diff --git a/CPRS-Chart/Accessibility_TLB.dcr b/CPRS-Chart/Accessibility_TLB.dcr new file mode 100644 index 0000000..36f26e2 Binary files /dev/null and b/CPRS-Chart/Accessibility_TLB.dcr differ diff --git a/CPRS-Chart/Accessibility_TLB.pas b/CPRS-Chart/Accessibility_TLB.pas new file mode 100644 index 0000000..be656eb --- /dev/null +++ b/CPRS-Chart/Accessibility_TLB.pas @@ -0,0 +1,286 @@ +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. diff --git a/CPRS-Chart/BA/UBAConst.pas b/CPRS-Chart/BA/UBAConst.pas new file mode 100644 index 0000000..8c9cab7 --- /dev/null +++ b/CPRS-Chart/BA/UBAConst.pas @@ -0,0 +1,61 @@ +unit UBAConst; + +{$OPTIMIZATION OFF} + +interface + +const + + BUFFER_ORDER_ID = '9999999999'; + + CARET = '^'; + NOT_APPLICABLE = 'N/A'; + + ENCOUNTER_TODAYS_DX = '^Diagnoses from Today''s Orders'; //BAPHII 1.3.10 + ENCOUNTER_PERSONAL_DX = '^Personal Diagnoses List Items'; + DX_PROBLEM_LIST_TXT = 'Problem List Items'; + DX_PERSONAL_LIST_TXT = 'Personal Diagnoses List Items'; + DX_ENCOUNTER_LIST_TXT = 'Encounter Form Diagnoses'; + DX_TODAYS_DX_LIST_TXT = 'Diagnoses from Today''s Orders'; + + MIN_SC_CONDITION = 0; + MAX_SC_CONDITION = 0; + BILLABLE_ORDER = '1'; + SERVICE_CONNECTED = 'SC'; + NOT_SERVICE_CONNECTED = 'NSC'; + AGENT_ORANGE = 'AO'; + IONIZING_RADIATION = 'IR'; + ENVIRONMENTAL_CONTAM = 'EC'; + HEAD_NECK_CANCER = 'HNC'; + MILITARY_SEXUAL_TRAUMA = 'MST'; + COMBAT_VETERAN = 'CV'; + + MAX_DX = 4; + DXREC_INIT_FIELD_VAL = ''; + UNSIGNED_REC_INIT_FIELD_VAL = ''; + + PRIMARY_DX = 'Primary'; + SECONDARY_DX = 'Secondary'; + + //Form identifiers + F_ORDERS_SIGN = 1; + F_REVIEW = 2; + F_CONSULTS = 3; + // Order Status + + BAOK2SIGN = 1; + DISCONTINUED = 5; + MIN_RECT = 0; + MAX_RECT = 199; + + ADD_TO_PROBLEM_LIST = 'PL'; + ADD_TO_PERSONAL_DX_LIST = 'PD'; + BA_INACTIVE_CODE = '#'; + + + +implementation + +end. + + diff --git a/CPRS-Chart/BA/UBACore.pas b/CPRS-Chart/BA/UBACore.pas new file mode 100644 index 0000000..8d9a779 --- /dev/null +++ b/CPRS-Chart/BA/UBACore.pas @@ -0,0 +1,1480 @@ +unit UBACore; + +{.$define debug} + +interface +uses + Classes, ORNet, uConst, ORFn, Sysutils, Dialogs, Windows,Messages, UBAGlobals,Trpcb, + fFrame; + +function rpcAddToPersonalDxList(UserDUZ:int64; DxCodes:TStringList):boolean; +function rpcGetPersonalDxList(UserDUZ:int64):TStringList; +function rpcDeleteFromPersonalDxList(UserDUZ:int64; Dest:TStringList):integer; +procedure rpcSaveBillingDxEntered; // save dx enteries regardless of being mandatory.... +function rpcNonBillableOrders(pOrderList: TStringList): TStringList; +function rpcOrderRequiresDx(pList: TStringList):boolean; +procedure rpcSetBillingAwareSwitch(encProvider: int64; pPatientDFN: string); +procedure rpcGetProviderPatientDaysDx(ProviderIEN: string;PatientIEN: string); +procedure rpcGetSC4Orders; // returns Eligible Treatment Factors for a given patient + +function rpcTreatmentFactorsActive(pOrderID: string):boolean; +procedure rpcBuildSCIEList(pOrderList: TList); +function rpcGetUnsignedOrdersBillingData(pOrderList: TStringList):TStringList; +function rpcRetrieveSelectedOrderInfo(pOrderIDList: TStringList):TStringList; +function rpcGetTFHintData:TStringList; +procedure rpcSaveNurseConsultOrder(pOrderRec:TStringList); +function rpcGetBAMasterSwStatus:boolean; +procedure rpcSaveCIDCData(pCIDCList: TStringList); +function rpcIsPatientInsured(pPatientDFN: string):boolean; + +procedure SaveBillingData(pBillingData:TStringList); +function OrdersHaveDx(pOrderList:TStringList):boolean; +procedure SetTreatmentFactors(TFactors: string); +function AttachDxToOrderList(pOrderList:TStringList):TStringList; +procedure AttachPLTFactorsToDx(var Dest:String;ProblemRec:string); +procedure BALoadStsFlagsAsIs(StsFlagsIN: string); +function BADxEntered:boolean; // main logic to determine if dx has been entered for order that requires dx +function StripTFactors(FactorsIN: string): string; +function AddProviderPatientDaysDx(Dest: TStringList; ProviderIEN: string;PatientIEN: string) : TStringList; +function IsOrderBillable(pOrderID: string):boolean; + +function OrderRequiresSCEI(pOrderID :String): boolean; +procedure SaveUnsignedOrders(pOrderRec:String); + +procedure CompleteUnsignedBillingInfo(pOrderList: TStringList); +procedure BuildSaveUnsignedList(pOrderList: TStringList); +procedure LoadUnsignedOrderRec(var thisRetVal: TBAUnsignedBillingRec;UnsignedBillingInfo:string); +function GetUnsignedOrderFlags(pOrderID: string; pFlagList: TStringList):string; // returns STSFlags if found +procedure BuildTFHintRec; +function IsAllOrdersNA(pOrderList:TStringList):boolean; +function PrepOrderID(pOrderID:String): String; +procedure ClearSelectedOrderDiagnoses(pOrderIDList: TStringList); +procedure LoadConsultOrderRec(var thisRetVal: TBAConsultOrderRec; pOrderID: String; pDxList: TStringList); +procedure CompleteConsultOrderRec(pOrderID: string; pDxList: TStringList); +function GetConsultFlags(pOrderID:String; pFlagList:TStringList;FlagsAsIs:string):string; +function SetConsultFlags(pPLFactors: string;pFlagsAsIs: string):string; // return updated flags. +procedure GetBAStatus(pProvider:int64; pPatientDFN: string); +function IsICD9CodeActive(ACode: string; LexApp: string; ADate:TFMDateTime = 0): boolean; +function BuildConsultDxRec(ConsultRec: TBAConsultOrderRec): string; +function ConvertPIMTreatmentFactors(pTFactors:string):string; +procedure DeleteDCOrdersFromCopiedList(pOrderID:string); +procedure UpdateBAConsultOrderList(pDcOrders: TStringList); +function VerifyOrderIdExists(pOrderList: TStringList): TStringList; // removes records without order id +function IsCIDCProvider(encProvider:int64):boolean; +function ProcessProblemTFactors(pText:String):String; + +var + uAddToPDl: integer; + uDeleteFromPDL: integer; + uDxLst: TStringList; + BADxList: TStringList; + +implementation + +uses fBALocalDiagnoses, fOrdersSign, fReview, rOrders, uCore, rCore, rPCE,uPCE, + UBAConst, UBAMessages, USignItems; + + +// ----------------- MAIN CIDC DX HAS BEEN ENTERED LOGIC --------------------------- +function BADxEntered:boolean; +var + i: integer; + //orderStatus: integer; + x: string; + passList: TStringList; + holdOrderList: TStringList; + thisOrderID: string; + thisRec: string; +begin + // Result := TRUE; // caused hint..... + holdOrderList := TStringList.Create; + holdOrderList.Clear; + updatedBAOrderList := TStringList.Create; + updatedBAOrderList.Clear; + passList := TStringList.Create; + passList.Clear; + // determine which orders require a dx (lrmp- only) + // if NO then continue + // if YES, check BADxList for orders with DX enteries. + // if ok then create data string pass to M via RPC + + for i := 0 to BAOrderList.Count-1 do + begin + thisRec := BAOrderList.Strings[i]; + thisOrderID := piece(thisRec,';',1) + ';1'; //rebuild orderID pass to M. + x := BAOrderList.Strings[i]; + //orderStatus := StrToInt(CharAt(Piece(x, ';', 2), 1)); // Order Status 1=OK, 2=DISCONTINUE + if IsOrderBillable(thisOrderID) then + begin + passList.Add(piece(x,';',1)); + holdOrderList.Add(x);// place holder for orders that can be signed! + end; + end; + + BAOrderList.Assign(holdOrderList); //assign signable orders to BAOrderList for further processing + holdOrderList.Clear; // CQ5025 + + //call with passList determine if LRMP + if rpcOrderRequiresDx(passList) then + BAOrderList.Assign(updatedBAOrderList); + + // check of all orders dx columns are flagged with N/A..... + if UBACore.IsAllOrdersNA(BAOrderList) then + begin + Result := TRUE; // force true, no record needs DX entry + Exit; //to do. clean this up... when time permitts + end + else + begin + if OrdersHaveDx(UBAGlobals.BAOrderList) then + begin + Result := True; // CIDC orders have dx + SaveBillingData(UBAGlobals.BAOrderList) ; + end + else + begin + Result := FALSE; + Exit; + end; + end; +end; + + +function rpcOrderRequiresDx(pList: TStringList):boolean; +var x: string; + i,j: integer; + returnList, updatedList: TStringList; + begin + Result := FALSE; // initial set dx NOT required + returnList := TStringList.Create; + updatedList := TStringList.Create; + returnList.Clear; + updatedList.Clear; + // remove deleted orderid's + if UBAGlobals.BADeltedOrders.Count > 0 then + begin + for i := 0 to UBAGlobals.BADeltedOrders.Count-1 do + x := UBAGlobals.BADeltedOrders.Strings[i]; + for j := 0 to pList.Count-1 do + begin + if x = pList.Strings[j] then + continue // orderid is removed.. or skipped + else + updatedList.Add(x); + end; + end + else + updatedList.Assign(pList); + + // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0 + tCallV(returnList,'ORWDBA1 ORPKGTYP',[updatedList]); + + //Remove NON LRMP orders from the mix(when checking for dx entry); + // BAOrderList and pList are in sync - order id.... + for i := 0 to BAOrderList.Count-1 do + begin + x:= piece(returnList.Strings[i],'^',1); + if x = BILLABLE_ORDER then + begin + updatedBAOrderList.Add(BAOrderList[i]); + Result := TRUE; + end; + end; +end; + + +// UBAGlobals.NonBillableOrderList must be populated prior to calling this function. +// call rpcNonBillableOrders to populate List. +function IsOrderBillable(pOrderID: string):boolean ; +var + i: integer; + currOrderID: string; + matchOrderID : string; + +begin + Result := TRUE; // = Billable + currOrderID := PrepOrderID(pOrderID); + if Piece(pOrderID,';',2) = DISCONTINUED_ORDER THEN + begin + Result := FALSE; + Exit; + end; + try + for i := 0 to UBAGlobals.NonBillableOrderList.Count -1 do + begin + matchOrderID := PrepOrderID( (Piece(UBAGlobals.NonBillableOrderList.Strings[i],U,1)) ); + if currOrderID = matchOrderID then + begin + Result := FALSE; //= Non Billable + Exit; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.IsOrderBillable()');{$endif} + raise; + end; + end; +end; + + +procedure SaveBillingData(pBillingData:TStringList); +var + RecsToSave: TStringList; +begin + RecsToSave := TStringList.Create; + RecsToSave.Clear; + + RecsToSave := AttachDxToOrderList(pBillingData); //call with new Biling data, return-code returned + rpcSaveCIDCData(RecsToSave); // verify and save billing data + + if Assigned(UBAGlobals.BAOrderList) then UBAGlobals.BAOrderList.Clear; // hds00005025 +end; + +function rpcTreatmentFactorsActive(pOrderID:string): boolean; +var x: string; + i: integer; + pList: TStringList; + rList: TStringList; + begin + pList := TStringList.Create; + rList := TStringList.Create; + rList.Clear; + rList := nil; + pList.Clear; + pList.Add(pOrderID); + Result := FALSE; + // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0 + tCallV(rList,'ORWDBA1 ORPKGTYP',[pList]); + //returns boolean value by OrderID - True = billable + for i := 0 to rList.Count-1 do + begin + x := rList[i]; + if rList[i] = BILLABLE_ORDER then + begin + Result := True; + end; + end; +end; + + +function AttachDxToOrderList(pOrderList:TStringList):TStringList; +var + i: integer; + newBillingList: TStringList; + baseDxRec: TBADxRecord; + currentOrderID: string; + currentOrderString: string; + dxString,FlagsStatsIn: string; + +begin + newBillingList:= TStringList.Create; + newBillingList.Clear; + dxString := ''; + baseDxRec := nil; + baseDxRec := TBADxRecord.Create; + + InitializeNewDxRec(baseDxRec); + for i := 0 to pOrderList.Count-1 do + begin + currentOrderString := pOrderList.Strings[i]; + currentOrderID := piece(pOrderList.Strings[i],';',1)+ ';1'; + + GetBADxListForOrder(baseDxRec, currentOrderID); + FlagsStatsIn := BAFlagsIN; + dxString := currentOrderString + '^' + piece(baseDxRec.FBADxCode,':',2); + if baseDxRec.FBASecDx1 <> '' then + dxString := dxString + '^' + piece(baseDxRec.FBASecDx1,':',2); + if baseDxRec.FBASecDx2 <> '' then + dxString := dxString + '^' + piece(baseDxRec.FBASecDx2,':',2); + if baseDxRec.FBASecDx3 <> '' then + dxString := dxString + '^' + piece(baseDxRec.FBASecDx3,':',2); + + NewBillingList.Add(dxString); + InitializeNewDxRec(baseDxRec); //HDS00004744 + end; + Result := NewBillingList; +end; + +function rpcAddToPersonalDxList(UserDUZ:int64; DxCodes:TStringList):boolean; +//input example ien^code(s) = 12345^306.70^431.22 +begin + Result := (sCallV('ORWDBA2 ADDPDL', [UserDUZ,DxCodes])= '1'); +end; + +function rpcGetPersonalDxList(UserDUZ:int64):TStringList; +var +tmplst: TStringList; +begin + tmplst := TStringList.Create; + tmplst.clear; + tCallV(tmplst, 'ORWDBA2 GETPDL', [UserDUZ]); + Result := tmplst; +end; + +function rpcDeleteFromPersonalDxList(UserDUZ:int64; Dest:TStringList):integer; +begin + uDeleteFromPDL := StrToIntDef(sCallV('ORWDBA2 DELPDL', [UserDUZ,Dest]), 0); + Result := uDeleteFromPDL; +end; + +// returns value used to bypass Billing Aware if needed. +// turns off visual and functionality +procedure rpcSetBillingAwareSwitch(encProvider:int64; pPatientDFN: string); +begin +// Is Provider -> Is Master Sw -> Is CIDC SW -> Is Patient Insured + BILLING_AWARE := FALSE; + // verify user is a provider + if (encProvider <> 0) and PersonHasKey(encProvider, 'PROVIDER') then + // Master switch is set "ON" + if (sCallV('ORWDBA1 BASTATUS', [nil]) = '1') then + // User is CIDC Enabled + if (sCallV('ORWDBA4 GETBAUSR', [encProvider]) = '1') then + begin + // Verify Patient is Insured + if rpcIsPatientInsured(pPatientDFN) then + BILLING_AWARE := TRUE; + end; + {$ifdef debug}BILLING_AWARE := TRUE;{$endif} +end; + +// verify CIDC Master Switch and Provider is CIDC Enabled. +// Patient insurance check is bypassed. (hds7564) +function IsCIDCProvider(encProvider:int64):boolean; +begin + Result := False; + if rpcGetBAMasterSwStatus then + if (encProvider <> 0) and PersonHasKey(encProvider, 'PROVIDER') then + Result := True; +end; + + +function rpcGetBAMasterSwStatus:boolean; +begin + Result := (sCallV('ORWDBA1 BASTATUS', [nil]) = '1'); // Master switch is set "ON" +end; + + +procedure rpcSaveNurseConsultOrder(pOrderRec:TStringList); +begin + rpcSaveCIDCData(pOrderRec); +end; + + +procedure rpcSaveBillingDxEntered; // if not mandatory and user enters dx. +var + ordersWithDx,i: integer; + newBillingList: TStringList; + baseDxRec, tempDxRec: TBADxRecord; + currentOrderID, thisOrderID: string; + currentOrderString, thisRec: string; +begin +// verify Dx has been entered for orders checked for signature.. + ordersWithDx := 0; + tempDxRec := TBADxRecord.Create; + UBAGlobals.InitializeNewDxRec(tempDxRec); + for i := 0 to BAOrderList.Count-1 do + begin + thisRec := BAOrderList.Strings[i]; + thisOrderID := piece(thisRec,';',1) + ';1'; //rebuild orderID pass to M. + if tempDxNodeExists(thisOrderID) then + inc(ordersWithDx); + end; + + // if orders have dx enteries - save billing data. + if ordersWithDx > 0 then + begin + newBillingList:= TStringList.Create; + newBillingList.Clear; + baseDxRec := nil; + baseDxRec := TBADxRecord.Create; + InitializeNewDxRec(baseDxRec); + + try + for i := 0 to BAOrderList.Count-1 do + begin + currentOrderString := BAOrderList.Strings[i]; + currentOrderID := piece(BAOrderList.Strings[i],';',1)+ ';1'; + GetBADxListForOrder(baseDxRec, currentOrderID); + if baseDxRec.FBADxCode <> '' then + begin + NewBillingList.Add(currentOrderString +'^'+ baseDxRec.FBADxCode +'^'+ baseDxRec.FBASecDx1+ + '^'+ baseDxRec.FBASecDx2+'^'+ baseDxRec.FBASecDx3); + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.rpcSaveBillingDxEntered()');{$endif} + raise; + end; + end; + + rpcSaveCIDCData(NewBillingList); + if Assigned(NewBillingList) then FreeAndNil(NewBillingList); + end; +end; + +procedure rpcGetSC4Orders; +begin + RPCBrokerV.Param[0].PType := literal; + RPCBrokerV.Param[0].Value := Patient.DFN; + RPCBrokerV.RemoteProcedure := 'ORWDBA1 SCLST'; + CallBroker; +end; + +procedure rpcGetProviderPatientDaysDx(ProviderIEN: string;PatientIEN: string); +var + tmplst: TStringList; +begin + tmplst := TStringList.Create; + uDxLst := TStringList.Create; + tmplst.clear; + uDxLst.Clear; + tCallV(tmplst, 'ORWDBA2 GETDUDC', [ProviderIEN, PatientIEN]); + UBACore.UDxLst.Assign(tmplst); + tmplst.clear; +end; + + +function rpcGetTFHintData:TStringList; +begin + tCallv(BATFHints,'ORWDBA3 HINTS', [nil]); + Result := BATFHints; +end; + +// call made to determine if order type is billable +// if order type NOT billable, flagged with "NA". +function rpcNonBillableOrders(pOrderList: TStringList):TStringList; +var x: string; + i: integer; + rList: TStringList; + begin + rList := TStringList.Create; + rList.Clear; + NonBillableOrderList.Clear; + // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0 + tCallV(rList,'ORWDBA1 ORPKGTYP',[pOrderList]); + for i := 0 to rList.Count-1 do + begin + x := rList[i]; + if rList[i] <> BILLABLE_ORDER then + NonBillableOrderList.Add(pOrderList[i] + U + 'NA'); + end; + Result := NonBillableOrderList; +end; + + +procedure rpcBuildSCIEList(pOrderList: TList); +var AnOrder: TOrder; + OrderIDList: TStringList; + rList: TStringList; + i: integer; + begin + OrderIDList := TStringList.Create; + rList := TStringList.Create; + if Assigned(OrderListSCEI) then OrderListSCEI.Clear; + OrderIDList.Clear; + rList.Clear; + for i := 0 to pOrderList.Count -1 do + begin + AnOrder := TOrder(pOrderList.Items[i]); + OrderIDList.Add(AnOrder.ID); + end; + // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0 + tCallV(rList,'ORWDBA1 ORPKGTYP',[OrderIDList]); + + for i := 0 to rList.Count-1 do + begin + if rList.Strings[i] = BILLABLE_ORDER then + OrderListSCEI.Add(OrderIDList.Strings[i]); + end; +end; + +procedure rpcSaveCIDCData(pCIDCList: TStringList); +var + CIDCList :TStringList; +begin + CIDCList := TStringList.create; + CIDCList.Clear; + // insure record contain valid orderid + if pCIDCList.Count > 0 then + begin + CIDCList := VerifyOrderIdExists(pCIDCList); + if CIDCList.Count > 0 then + CallV('ORWDBA1 RCVORCI',[CIDCList]); + end; + if Assigned(CIDCList) then FreeAndNil(CIDCList); +end; + +function rpcIsPatientInsured(pPatientDFN: string):boolean; +begin + Result := (sCallV('ORWDBA7 ISWITCH',[pPatientDFN]) = '1'); + +end; + + +function OrdersHaveDx(pOrderList:TStringList):boolean; +var + i: integer; + thisOrderID: string; + thisRec: string; + tempDxRec: TBADxRecord; +begin + Result := TRUE; + tempDxRec := nil; + tempDxRec := TBADxRecord.Create; + UBAGlobals.InitializeNewDxRec(tempDxRec); + + try + for i := 0 to pOrderList.Count-1 do + begin + thisRec := pOrderList.Strings[i]; + thisOrderID := piece(thisRec,';',1) + ';1'; //rebuild orderID pass to M. + if not tempDxNodeExists(thisOrderID) then + begin + Result := FALSE; + Break; + end + else + begin + GetBADxListForOrder(tempDxRec, thisOrderID); + if tempDxRec.FBADxCode = '' then + begin + Result := FALSE; + Break; + end; + end; + + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.OrdersHaveDx()');{$endif} + raise; + end; + end; + + if Assigned(tempDxRec) then + FreeAndNil(tempDxRec); +end; + + + + +procedure LoadUnsignedOrderRec(var thisRetVal: TBAUnsignedBillingRec;UnsignedBillingInfo:string); +var + thisString : String; +begin + thisString := UnsignedBillingInfo; + with thisRetVal do + begin + FBAOrderID := Piece(thisString,U,1) + ';1'; + FBASTSFlags := Piece(thisString,U,2); + FBADxCode := (Piece(thisString,U,4)+ U + (Piece(thisString,U,3))); + FBASecDx1 := (Piece(thisString,U,6)+ U + (Piece(thisString,U,5))); + FBASecDx2 := (Piece(thisString,U,8)+ U + (Piece(thisString,U,7))); + FBASecDx3 := (Piece(thisString,U,10)+ U + (Piece(thisString,U,9))); + // if codes are absent then get rid of '^'. + if FBADxCode = U then FBADxCode := DXREC_INIT_FIELD_VAL; + if FBASecDx1 = U then FBASecDx1 := DXREC_INIT_FIELD_VAL; + if FBASecDx2 = U then FBASecDx2 := DXREC_INIT_FIELD_VAL; + if FBASecDx3 = U then FBASecDx3 := DXREC_INIT_FIELD_VAL; + end; +end; + +procedure AttachPLTFactorsToDx(var Dest:String;ProblemRec:string); +var + TFResults: string; + thisRec: TBAPLFactorsIN; +begin + TFResults := ''; + thisRec := TBAPLFactorsIN.Create; + thisRec.FBADxText := Piece(ProblemRec,'(',1); + thisRec.FBADxText := Piece(thisRec.FBADxText,U,2); + thisRec.FBADxCode := Piece(ProblemRec,U,3); + thisRec.FBASC := Piece(ProblemRec,U,5); + thisRec.FBASC_YN := Piece(ProblemRec,U,6); + //HDS8409 + if StrPos(PChar(ProblemRec),'(') <> nil then + thisRec.FBATreatFactors := ProcessProblemTFactors(ProblemRec) + else + begin + thisRec.FBATreatFactors := Piece(ProblemRec,')',1); + thisRec.FBATreatFactors := Piece(thisRec.FBATreatFactors,'(',2); + end; + //HDS8409 + with thisRec do + begin + if StrLen(pchar(FBATreatFactors)) > 0 then // 0 Treatment Factors exist + //build string containing Problem List Treatment Factors + TFResults := ( FBADXCode + U + FBADxText + ' (' + FBASC + '/' + FBATreatFactors + ') ' ) + else + if StrLen(PChar(FBASC)) > 0 then + TFResults := ( FBADxCode + U + FBADxText + ' (' + FBASC + ') ' ) + else + TFResults := ( FBADxCode + U + FBADxText ); + end; + + Dest := TFResults; +end; + + +// this code is to handle adding Problem List(only) TF's when selected +procedure BALoadStsFlagsAsIs(StsFlagsIN: String); +var + x: string; +begin + x:= Piece(StsFlagsIN,U,2); + UBAGlobals.SC := Copy(x,1,1); + UBAGlobals.AO := Copy(x,2,1); + UBAGlobals.IR := Copy(x,3,1); + UBAGlobals.EC := Copy(x,4,1); + UBAGlobals.MST := Copy(x,5,1); + UBAGlobals.HNC := Copy(x,6,1); + UBAGlobals.CV := Copy(x,7,1); +end; + + +// this code is to handle adding Problem List(only) TF's when selected + +procedure SetTreatmentFactors(TFactors: string); +var + strTFactors : string; + strFlagsOut: string; + FlagsIN : TStringList; + Idx: string; + i : integer; +begin + UBAGlobals.BAFlagsOUT := TStringList.Create; + UBAGlobals.BAFlagsOUT.Clear; + FlagsIN := TStringList.Create; + FlagsIN.Clear; + FlagsIN := UBAGlobals.PLFactorsIndexes; + + for i:= 0 to FlagsIN.Count-1 do + begin + BALoadStsFlagsAsIs(FlagsIN.Strings[i]); + IDX := Piece(FlagsIN.Strings[i],U,1); + + strTFactors := TFactors; + + if UBAGlobals.SC <> 'N' then + if StrPos(PChar(strTFactors),PChar(SERVICE_CONNECTED)) <> nil then + UBAGlobals.SC := 'C' ; + + if UBAGlobals.SC <> 'N' then + if StrPos(PChar(strTFactors),PChar(NOT_SERVICE_CONNECTED)) <> nil then + UBAGlobals.SC := 'U'; + + if UBAGlobals.AO <>'N' then + if StrPos(PChar(strTFactors),PChar(AGENT_ORANGE)) <> nil then + UBAGlobals.AO := 'C'; + + if UBAGlobals.IR <>'N' then + if StrPos(PChar(strTFactors),PChar(IONIZING_RADIATION)) <> nil then + UBAGlobals.IR := 'C'; + + if UBAGlobals.EC <>'N' then + if StrPos(PChar(strTFactors),PChar(ENVIRONMENTAL_CONTAM)) <> nil then + UBAGlobals.EC := 'C'; + + if UBAGlobals.MST <>'N' then + if StrPos(PChar(strTFactors),PChar(MILITARY_SEXUAL_TRAUMA)) <> nil then + UBAGlobals.MST := 'C'; + + if UBAGlobals.CV <>'N' then + if StrPos(PChar(strTFactors),PChar(COMBAT_VETERAN)) <> nil then + UBAGlobals.CV := 'C'; + + if UBAGlobals.HNC <>'N' then + if StrPos(PChar(strTFactors),PChar(HEAD_NECK_CANCER)) <> nil then + UBAGlobals.HNC := 'C'; + + // Build Treatment Factor List to be passed to fOrdersSign form + strFlagsOut := (SC + AO + IR + EC + MST + HNC + CV); + UBAGlobals.BAFlagsOUT.Add(IDX + '^' + strFlagsOut ); + end; + end; + + +function StripTFactors(FactorsIN: string):string; +var strDxCode,strDxName:string; +begin + Result := ''; + strDxCode := Piece(FactorsIN,U,2); + strDxName := Piece(FactorsIN,'(',1); + Result := (strDxName + U + strDxCode); +end; + +function AddProviderPatientDaysDx(Dest: TStringList; ProviderIEN: string;PatientIEN: string) : TStringList; +var i:integer; + x: string; + tmplst: TStringList; +begin + tmplst := TStringList.Create; + tmplst.clear; + tCallV(tmplst, 'ORWDBA2 GETDUDC', [ProviderIEN, PatientIEN]); + + try + for i := 0 to tmplst.count-1 do + x := tmplst.Strings[i]; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.AddProviderPatientDaysDx()');{$endif} + raise; + end; + end; + + Result := tmplst; +end; + + +function OrderRequiresSCEI(pOrderID: string):boolean; +var i:integer; + +begin + Result := False; + + try + for i := 0 to UBAGlobals.OrderListSCEI.Count-1 do + begin + if pOrderID = UBAGlobals.OrderListSCEI.Strings[i] then + begin + Result := True; + Break; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.OrderRequiresSCEI()');{$endif} + raise; + end; + end; +end; + +procedure SaveUnsignedOrders(pOrderRec:String); +begin + // save all unsigned orders, keeping freview and fordersSign in sync + // this change may have an impact on response time?????? + // change from save orders with dx to save all. 06/24/04 + // / if not clear treatment factors for order is non cidc + uBAGlobals.UnsignedOrders.Add(pOrderRec); + +end; + +function rpcRetrieveSelectedOrderInfo(pOrderIDList: TStringList):TStringList; +var + rList : TStringList; + newList:TStringList; + i: integer; + x: string; +begin + rList := TStringList.Create; + newList := TStringList.Create; + if Assigned(rList) then rList.Clear; + if Assigned(newList) then newList.Clear; + + for i := 0 to pOrderIDList.Count-1 do + begin + newList.Add(Piece(pOrderIDList.Strings[i],';',1)); + x := newlist.strings[i]; + end; + if newList.Count > 0 then + tCallV(rList,'ORWDBA4 GETTFCI',[newList]); + Result := rList; + + +end; + +procedure BuildSaveUnsignedList(pOrderList: TStringList); +var + thisList: TStringList; + rList: TStringList; +begin + + thisList := TStringList.Create; + rList := TStringList.Create; + if Assigned(rList) then rList.Clear; + if Assigned(thisList)then thisList.Clear; + SaveBillingData(pOrderList); // save unsigned info to be displayed when recalled at later time +end; + +function rpcGetUnsignedOrdersBillingData(pOrderList: TStringList):TStringList; +var + i:integer; + newList:TStringList; + rList:TStringList; +begin + newList := TStringList.Create; + rList := TStringList.Create; + if Assigned(newList) then newList.Clear; + if Assigned(rList) then rList.Clear; + Result := rList; + + if pOrderList.Count = 0 then Exit; + for i := 0 to pOrderList.Count-1 do + begin + newList.Add(Piece(pOrderList.Strings[i],';',1)); + end; + tCallV(rList,'ORWDBA4 GETTFCI',[newList]); + Result := rList; +end; + +procedure CompleteUnsignedBillingInfo(pOrderList:TStringList); +var +i: integer; +RecOut : TBADxRecord; +copyList: TStringList; +begin + copyList := TStringList.Create; + if Assigned(copyList) then copyList.Clear; + + if Assigned(BAUnSignedOrders) then BAUnSignedOrders.Clear; + + if not Assigned(UBAGlobals.UnsignedBillingRec) then + begin + UBAGlobals.UnSignedBillingRec := UBAGlobals.TBAUnsignedBillingRec.Create; + UBAGlobals.InitializeUnsignedOrderRec(UBAGlobals.UnsignedBillingRec); + end; + + UBAGlobals.InitializeUnsignedOrderRec(UnsignedBillingRec); + + try + for i := 0 to pOrderList.Count-1 do + begin + LoadUnsignedOrderRec(UBAGlobals.UnsignedBillingRec, pOrderList.Strings[i]); + if Not UBAGlobals.tempDxNodeExists(UnsignedBillingRec.FBAOrderID) then + begin + SimpleAddTempDxList(UnSignedBillingRec.FBAOrderID); + RecOut := TBADxRecord.Create; + RecOut.FExistingRecordID := UnSignedBillingRec.FBAOrderID; + RecOut.FBADxCode := UnsignedBillingRec.FBADxCode; + RecOut.FBASecDx1 := UnsignedBillingRec.FBASecDx1; + RecOut.FBASecDx2 := UnsignedBillingRec.FBASecDx2; + RecOut.FBASecDx3 := UnsignedBillingRec.FBASecDx3; + RecOut.FTreatmentFactors := UnSignedBillingRec.FBASTSFlags; + PutBADxListForOrder(RecOut, RecOut.FExistingRecordID); + UBAGlobals.BAUnSignedOrders.Add(UnSignedBillingRec.FBAOrderID + '^' + UnSignedBillingRec.FBASTSFlags); + end + else + begin + RecOut := TBADxRecord.Create; + if tempDxNodeExists(UnSignedBillingRec.FBAOrderID) then + begin + GetBADxListForOrder(RecOut, UnSignedBillingRec.FBAOrderID); //load data from source + copyList.Add(UnSignedBillingRec.FBAOrderID + '^' + UnSignedBillingRec.FBASTSFlags); + BuildSaveUnsignedList(copyList); + end; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.CompleteUnsignedBillingInfo()');{$endif} + raise; + end; + end; +end; + +function GetUnsignedOrderFlags(pOrderID: string; pFlagList: TStringList):string; +var + i: integer; +begin + Result := ''; + try + for i := 0 to pFlagList.Count-1 do + begin + if pOrderID = Piece(pFlagList.Strings[i],U,1) then + begin + Result := Piece(pFlagList.Strings[i],U,2); // STSFlags + Break; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.GetUnsignedOrderFlags()');{$endif} + raise; + end; + end; + +end; + +// BuildTFHintRec is meant to run once, first user of the session +// contains the information to be displayed while mouse-over in fOrdersSign and fReview. +procedure BuildTFHintRec; +var +hintList :TStringList; +i: integer; +x: string; +begin + hintList := TStringList.Create; + if Assigned(hintList) then hintList.Clear; + hintList := rpcGetTFHintData; + if hintList.Count > 0 then UBAGlobals.BAFactorsRec.FBAFactorActive := TRUE; + + try + for i := 0 to hintList.Count -1 do + begin + x := hintList.Strings[i]; + if piece(x,U,1) = SERVICE_CONNECTED then + begin + if piece(x,U,2) = '1' then + UBAGlobals.BAFactorsRec.FBAFactorSC := Piece(x,U,3) + else + UBAGlobals.BAFactorsRec.FBAFactorSC := ( UBAGlobals.BAFactorsRec.FBAFactorSC + CRLF + Piece(x,U,3) ); + end + else + if piece(x,U,1) = AGENT_ORANGE then + begin + if piece(x,U,2) = '1' then + UBAGlobals.BAFactorsRec.FBAFactorAO := Piece(x,U,3) + else + UBAGlobals.BAFactorsRec.FBAFactorAO := (UBAGlobals.BAFactorsRec.FBAFactorAO + CRLF + Piece(x,U,3) ); + end + else + if piece(x,U,1) = IONIZING_RADIATION then + begin + if piece(x,U,2) = '1' then + UBAGlobals.BAFactorsRec.FBAFactorIR := Piece(x,U,3) + else + UBAGlobals.BAFactorsRec.FBAFactorIR := (UBAGlobals.BAFactorsRec.FBAFactorIR + CRLF + Piece(x,U,3) ); + end + else + if piece(x,U,1) = ENVIRONMENTAL_CONTAM then + begin + if piece(x,U,2) = '1' then + UBAGlobals.BAFactorsRec.FBAFactorEC := Piece(x,U,3) + else + UBAGlobals.BAFactorsRec.FBAFactorEC := (UBAGlobals.BAFactorsRec.FBAFactorEC + CRLF + Piece(x,U,3) ); + end + else + if piece(x,U,1) = HEAD_NECK_CANCER then + begin + if piece(x,U,2) = '1' then + UBAGlobals.BAFactorsRec.FBAFactorHNC := Piece(x,U,3) + else + UBAGlobals.BAFactorsRec.FBAFactorHNC := (UBAGlobals.BAFactorsRec.FBAFactorHNC + CRLF + Piece(x,U,3) ); + end + else + if piece(x,U,1) = MILITARY_SEXUAL_TRAUMA then + begin + if piece(x,U,2) = '1' then + UBAGlobals.BAFactorsRec.FBAFactorMST := Piece(x,U,3) + else + UBAGlobals.BAFactorsRec.FBAFactorMST := (UBAGlobals.BAFactorsRec.FBAFactorMST + CRLF + Piece(x,U,3) ); + end + else + if piece(x,U,1) = COMBAT_VETERAN then + begin + if piece(x,U,2) = '1' then + UBAGlobals.BAFactorsRec.FBAFactorCV := Piece(x,U,3) + else + UBAGlobals.BAFactorsRec.FBAFactorCV := (UBAGlobals.BAFactorsRec.FBAFactorCV + CRLF + Piece(x,U,3) ); + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.BuileTFHintRec()');{$endif} + raise; + end; + end; +end; + + +function IsAllOrdersNA(pOrderList:TStringList):boolean; +var + i:integer; + rList: TStringList; +begin + rList := TStringList.Create; + if Assigned(rList) then rList.Clear; + Result := True;// disables dx button + + // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0 + tCallV(rList,'ORWDBA1 ORPKGTYP',[pOrderList]); + + for i := 0 to rList.Count-1 do + begin + if rList.Strings[i] = BILLABLE_ORDER then + begin + Result := False; + Break; + end; + end; +end; + +function PrepOrderID(pOrderID:String): String; +var + newOrderID: String; +begin + newOrderID := ''; + if pos(';',pOrderID) > 0 then + newOrderID := Piece(pOrderID,';',1) + else + newOrderID := pOrderID ; + + Result := newOrderID; +end; + +procedure ClearSelectedOrderDiagnoses(pOrderIDList: TStringList); +var + RecOut: TBADXRecord; + i: integer; +begin + try + for i := 0 to pOrderIDList.Count-1 do + begin + if UBAGlobals.tempDxNodeExists(pOrderIDList.Strings[i]) then + begin + RecOut := TBADxRecord.Create; + GetBADxListForOrder(RecOut, pOrderIDList.Strings[i]); + RecOut.FOrderID := RecOut.FOrderID; + RecOut.FBADxCode := DXREC_INIT_FIELD_VAL; + RecOut.FBASecDx1 := DXREC_INIT_FIELD_VAL; + RecOut.FBASecDx2 := DXREC_INIT_FIELD_VAL; + RecOut.FBASecDx3 := DXREC_INIT_FIELD_VAL; + PutBADxListForOrder(RecOut, pOrderIDList.Strings[i]); + frmReview.lstReview.Refresh; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.ClearSelectedORdersDiagnoses()');{$endif} + raise; + end; + end; +end; + +procedure LoadConsultOrderRec(var thisRetVal: TBAConsultOrderRec; pOrderID: String; pDxList: TStringList); +var + thisString, thisFlags:String; + dx1,dx2,dx3,dx4: string; + i: integer; +begin + thisFlags := ''; + dx1 := ''; + dx2 := ''; + dx3 := ''; + dx4 := ''; + UBAGlobals.BAConsultDxList.Sort; + + try + for i := 0 to UBAGlobals.BAConsultDxList.Count -1 do + begin + thisString := UBAGlobals.BAConsultDxList[i]; + + if i = 0 then + begin + if pos( '(', thisString) > 0 then + begin + thisFlags := Piece(thisString,'(',2); + thisFlags := Piece(thisFlags,')',1); + UBAGlobals.BAConsultPLFlags.Add(pOrderID + U + thisFlags); + dx1 := Piece(thisString,U,2); + dx1 := Piece(dx1,'(',1) + U + Piece(thisString,':',2); + end + else + begin + dx1 := Piece(thisString,U,2); + dx1 := Piece(dx1,':',1)+ U + Piece(thisString,':',2); + end + end + else + if i = 1 then + begin + if pos( '(', thisString) > 0 then + begin + dx2 := Piece(thisString,U,2); + dx2 := Piece(dx2,'(',1)+ U + Piece(thisString,':',2); + end + else + begin + dx2 := Piece(thisString,U,2); + dx2 := Piece(dx2,':',1)+ U + Piece(thisString,':',2); + end + end + else + if i = 2 then + begin + if pos( '(', thisString) > 0 then + begin + dx3 := Piece(thisString,U,2); + dx3 := Piece(dx3,'(',1)+ U + Piece(thisString,':',2); + end + else + begin + dx3 := Piece(thisString,U,2); + dx3 := Piece(dx3,':',1)+ U + Piece(thisString,':',2); + end + end + else + if i = 3 then + begin + if pos( '(', thisString) > 0 then + begin + dx4 := Piece(thisString,U,2); + dx4 := Piece(dx4,'(',1)+ U + Piece(thisString,':',2); + end + else + begin + dx4 := Piece(thisString,U,2); + dx4 := Piece(dx4,':',1)+ U + Piece(thisString,':',2); + end; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.LoadConsultOrderRec()');{$endif} + raise; + end; + end; + + with thisRetVal do + begin + FBAOrderID := pOrderID; + FBATreatmentFactors:= thisFlags; + FBADxCode := dx1; + FBASecDx1 := dx2; + FBASecDx2 := dx3; + FBASecDx3 := dx4; + end; +end; + +procedure LoadTFactorsInRec(var thisRetVal: TBATreatmentFactorsInRec; pOrderID:string; pEligible: string; pTFactors:string); +begin + with thisRetVal do + begin + FBAOrderID := pOrderID; + FBAEligible := pEligible; + FBATFactors := pTFactors; + end; +end; + +procedure CompleteConsultOrderRec(pOrderID: string; pDxList: TStringList); +var + RecOut : TBADxRecord; + TfFlags,dxRec: string; + orderList : TStringList; + tmpOrderList: TStringList; +begin + orderList := TStringList.Create; + tmpOrderList := TStringList.Create; + orderList.Clear; + tmpOrderList.Clear; + if not Assigned(uBAGlobals.ConsultOrderRec)then + begin + UBAGlobals.ConsultOrderRec := UBAGlobals.TBAConsultOrderRec.Create; + InitializeConsultOrderRec(UBAGlobals.ConsultOrderRec); + end + else + InitializeConsultOrderRec(UBAGlobals.ConsultOrderRec); + // call rpc to load list with boolean values based on orders package type. + UBAGlobals.NonBillableOrderList.Clear; + tmpOrderList.Add(UBAGLobals.BAOrderID); + rpcNonBillableOrders(tmpOrderList); + if IsOrderBillable(uBAGlobals.BAOrderID) then + begin + if not UBAGlobals.tempDxNodeExists(uBAGlobals.BAOrderID) then + begin + LoadConsultOrderRec(UBAGlobals.ConsultOrderRec,UBAGlobals.BAOrderID,uBAGlobals.BAConsultDxList); + if NOT UBAGlobals.tempDxNodeExists(pOrderID) then + SimpleAddTempDxList(pOrderID); + RecOut := TBADxRecord.Create; + RecOut.FExistingRecordID := pOrderID; + RecOut.FBADxCode := ConsultOrderRec.FBADxCode; + RecOut.FBASecDx1 := ConsultOrderRec.FBASecDx1; + RecOut.FBASecDx2 := ConsultOrderRec.FBASecDx2; + RecOut.FBASecDx3 := ConsultOrderRec.FBASecDx3; + RecOut.FTreatmentFactors := ConsultOrderRec.FBATreatmentFactors; + PutBADxListForOrder(RecOut, RecOut.FExistingRecordID); +// HDS00003380 + if IsUserNurseProvider(User.DUZ) then + begin + dxRec := BuildConsultDxRec(ConsultOrderRec); + orderList.Add(RecOut.FExistingRecordID); + // TfFlags := Piece(GetPatientTFactors(orderList),U,2); + TfFlags := GetPatientTFactors(orderList); + TfFlags := ConvertPIMTreatmentFactors(TfFlags); + orderList.Clear; + // if strLen(PChar(dxRec)) > 0 then + // orderList.Add(RecOut.FExistingRecordID +TfFlags + '^'+ BuildConsultDxRec(ConsultOrderRec) ) + // else + orderList.Add(RecOut.FExistingRecordID +TfFlags); + SaveBillingData(OrderList); // save unsigned info to be displayed when re + end; + end; + end; +end; + +function GetConsultFlags(pOrderID:String; pFlagList:TStringList;FlagsAsIs:string):string; +var + i: integer; //add code to match order id..... +begin + Result := ''; + for i := 0 to pFlagList.Count -1 do + begin + if pOrderID = Piece(pFlagList.Strings[i],U,1) then + begin + Result := SetConsultFlags( Piece(pFlagList.Strings[i],U,2), FlagsAsIs); + break; + end; + end; + +end; + +function SetConsultFlags(pPLFactors: string; pFlagsAsIs:string):string; // return updated flags. +var + strFlagsAsIs: string; + strTFactors: string; + strFlagsOut,x: string; + +begin + strFlagsAsIs := pFlagsAsIs; // flags from pims + strTFactors := pPLFactors; // value selected from problem list + strFlagsOut := ''; // flags updated with selected values from problem list + x := strFlagsAsIs; + Result := ''; + + UBAGlobals.SC := Copy(x,1,1); + UBAGlobals.AO := Copy(x,2,1); + UBAGlobals.IR := Copy(x,3,1); + UBAGlobals.EC := Copy(x,4,1); + UBAGlobals.MST := Copy(x,5,1); + UBAGlobals.HNC := Copy(x,6,1); + UBAGlobals.CV := Copy(x,7,1); // load factors to global vars; + + if UBAGlobals.SC <> 'N' then + if StrPos(PChar(strTFactors),PChar(SERVICE_CONNECTED)) <> nil then + UBAGlobals.SC := 'C' ; + + if UBAGlobals.SC <> 'N' then + if StrPos(PChar(strTFactors),PChar(NOT_SERVICE_CONNECTED)) <> nil then + UBAGlobals.SC := 'U'; + + if UBAGlobals.AO <>'N' then + if StrPos(PChar(strTFactors),PChar(AGENT_ORANGE)) <> nil then + UBAGlobals.AO := 'C'; + + if UBAGlobals.IR <>'N' then + if StrPos(PChar(strTFactors),PChar(IONIZING_RADIATION)) <> nil then + UBAGlobals.IR := 'C'; + + if UBAGlobals.EC <>'N' then + if StrPos(PChar(strTFactors),PChar(ENVIRONMENTAL_CONTAM)) <> nil then + UBAGlobals.EC := 'C'; + + if UBAGlobals.MST <>'N' then + if StrPos(PChar(strTFactors),PChar(MILITARY_SEXUAL_TRAUMA)) <> nil then + UBAGlobals.MST := 'C'; + + if UBAGlobals.HNC <> 'N' then + if StrPos(PChar(strTFactors),PChar(HEAD_NECK_CANCER)) <> nil then + UBAGlobals.HNC := 'C'; + + if UBAGlobals.CV <>'N' then + if StrPos(PChar(strTFactors),PChar(COMBAT_VETERAN)) <> nil then + UBAGlobals.CV := 'C'; + + strFlagsOut := (UBAGlobals.SC + UBAGlobals.AO + UBAGlobals.IR + + UBAGlobals.EC + UBAGlobals.MST + UBAGlobals.HNC + + UBAGlobals.CV); + Result := strFlagsOut; +end; + +procedure GetBAStatus(pProvider:int64; pPatientDFN: string); +begin + // sets global switch, based in value returned from server. + // True -> Billing Aware Switch ON. else OFF + + UBACore.rpcSetBillingAwareSwitch(pProvider,pPatientDFN); + + if Assigned(UBAGlobals.BAPCEDiagList) then UBAGlobals.BAPCEDiagList.Clear; + frmFrame.SetBADxList; + if not UBAGlobals.BAFactorsRec.FBAFactorActive then + UBACore.BuildTFHintRec; +end; + +function IsICD9CodeActive(ACode: string; LexApp: string; ADate: TFMDateTime = 0): boolean; +var + inactiveChar : string; +begin + inactiveChar := '#'; + if StrPos(PChar(ACode),PChar(inactiveChar) ) <> nil then + ACode := Piece(ACode,'#',1); // remove the '#' added for inactive code. + Result := (sCallV('ORWPCE ACTIVE CODE',[ACode, LexApp, ADate]) = '1'); +end; + +function BuildConsultDxRec(ConsultRec: TBAConsultOrderRec): string; +var +newString: string; +begin + if strLen(PChar(ConsultRec.FBADxCode)) > 0 then + newString := Piece(ConsultRec.FBADxCode,U,2) + else + if strLen(PChar(ConsultRec.FBASecDx1)) > 0 then + newString := newString + '^' + Piece(ConsultRec.FBASecDx1,U,2) + else + if strLen(PChar(ConsultRec.FBASecDx2)) > 0 then + newString := newString + '^' + Piece(ConsultRec.FBASecDx2,U,2) + else + if strLen(PChar(ConsultRec.FBASecDx3)) > 0 then + newString := newString + '^' + Piece(ConsultRec.FBASecDx3,U,2); + Result := newString; +end; + +function ConvertPIMTreatmentFactors(pTFactors:string):string; +var + strSC,strAO, strIR: string; + strEC, strMST, strHNC, strCV: string; + +begin + Result := ''; + if StrPos(PChar(pTFactors),PChar(SERVICE_CONNECTED)) <> nil then + strSC := '?' + else + strSC := 'N'; + + if StrPos(PChar(pTFactors),PChar(AGENT_ORANGE)) <> nil then + strAO := '?' + else + strAO := 'N'; + + if StrPos(PChar(pTFactors),PChar(IONIZING_RADIATION)) <> nil then + strIR := '?' + else + strIR := 'N'; + + if StrPos(PChar(pTFactors),PChar(ENVIRONMENTAL_CONTAM)) <> nil then + strEC := '?' + else + strEC := 'N'; + + if StrPos(PChar(pTFactors),PChar(MILITARY_SEXUAL_TRAUMA)) <> nil then + strMST := '?' + else + strMST := 'N'; + + if StrPos(PChar(pTFactors),PChar(HEAD_NECK_CANCER)) <> nil then + strHNC := '?' + else + strHNC := 'N'; + + if StrPos(PChar(pTFactors),PChar(COMBAT_VETERAN)) <> nil then + strCV := '?' + else + strCV := 'N'; + + Result := (strSC + strAO + strIR + strEC + strMST + strHNC + strCV); +end; + + +// Delete dc'd orders from BACopiedOrderList to keep things in sync. +procedure DeleteDCOrdersFromCopiedList(pOrderID:string); +var i:integer; + holdList: TStringList; + x: string; +begin + holdList := TStringList.Create; + holdList.Clear; + holdList.Assign(UBAGlobals.BACopiedOrderFlags); + UBAGlobals.BACopiedOrderFlags.Clear; + for i := 0 to holdList.Count-1 do + begin + x := Piece(holdList.Strings[i],';',1); + if pOrderID = Piece(holdList.Strings[i],';',1) then + continue + else + UBAGlobals.BACopiedOrderFlags.Add(holdList.Strings[i]); + end; +end; + +procedure UpdateBAConsultOrderList(pDcOrders: TStringList); +var + x: string; + var i,j: integer; + holdList : TStringList; +begin + // remove order enteries from the dx list that are being discontinued. + for i := 0 to pDcOrders.Count -1 do + begin + UBAGlobals.RemoveOrderFromDxList(pDcOrders.Strings[i]); + end; + if UBAGlobals.BAConsultPLFlags.Count > 0 then + begin + holdList := TStringList.Create; + holdList.Clear; + holdList.Assign(UBAGlobals.BAConsultPLFlags); + UBAGlobals.BAConsultPLFlags.Clear; + for i := 0 to holdList.Count-1 do + begin + x := holdList.Strings[i]; + for j := 0 to pDcOrders.Count-1 do + begin + if x = pDcOrders.Strings[j] then + continue + else + UBAGlobals.BAConsultPLFlags.Add(x); + end; + end; + end; +end; + +// loop thru CIDC records remove records with invalid orderid +function VerifyOrderIdExists(pOrderList: TStringList): TStringList; +var + goodList: TStringList; + tOrderID: integer; + i: integer; +begin + goodList := TStringList.Create; + goodList.clear; + + if pOrderList.Count > 0 then + begin + for i := 0 to pOrderList.Count-1 do + begin + tOrderID := StrToIntDef(Piece(pOrderList.Strings[i],';',1), 0); + if tOrderID > 0 then + goodList.add(pOrderList.Strings[i]); + end; + end; + result := goodList; +end; + +// parse string return Treatment Factors when text inlcudes multiple "(())" +//HDS8409 +function ProcessProblemTFactors(pText:String):String; +var AText1,x: string; + i,j: integer; +begin + if StrPos(PChar(pText),'(') = nil then exit; + AText1 := Piece(pText,U,2); + i := 1; + j := 0; + while j = 0 do + begin + x := Piece(AText1,'(',i); + if Length(x) > 0 then + inc(i) + else + begin + x := Piece(AText1,'(',i-1); + x := Piece(x,')',1); + j := 1; + Result := x; + end; + end; +end; + +end. + + + diff --git a/CPRS-Chart/BA/UBAGlobals.pas b/CPRS-Chart/BA/UBAGlobals.pas new file mode 100644 index 0000000..8e02711 --- /dev/null +++ b/CPRS-Chart/BA/UBAGlobals.pas @@ -0,0 +1,1182 @@ + unit UBAGlobals; + +{$OPTIMIZATION OFF} + +{$define debug} + +interface + +uses + Classes, ORNet, uConst, ORFn, Sysutils, Dialogs, Windows,Messages, rOrders; + +type + + {Problem List Record Used To Add New DX From SignOrders Form } + TBAPLRec = class(TObject) + constructor Create(PLlist:TStringList); + function BuildProblemListDxEntry(pDxCode:string):TStringList; + function FMToDateTime(FMDateTime: string): TDateTime; + + end; + + {patient qualifiers} + TBAPLPt=class(TObject) + PtVAMC:string; + PtDead:string; + PtBid:string; + PtServiceConnected:boolean; + PtAgentOrange:boolean; + PtRadiation:boolean; + PtEnvironmental:boolean; + PtHNC:boolean; + PtMST:boolean; + constructor Create(Alist:TStringList); + function GetGMPDFN(dfn:string;name:String):string; + public + function rpcInitPt(const PatientDFN: string): TStrings ; + procedure LoadPatientParams(AList:TstringList); + + end; + + TBAGlobals = class(TObject) + private + FOrderNum: string; + protected + public + constructor Create; + published + property OrderNum: string read FOrderNum write FOrderNum; + procedure AddBAPCEDiag(DiagStr:string); + procedure ClearBAPCEDiagList; + end; + + TBADxRecord = class(TObject) + FExistingRecordID: string; + FOrderID: string; + FBADxCode: string; //Primary Dx + FBASecDx1: string; //Secondary Dx 1 + FBASecDx2: string; //Secondary Dx 2 + FBASecDx3: string; //Secondary Dx 3 + FDxDescCode: string; + FDxDesc1: string; + FDxDesc2: string; + FDxDesc3: string; + FTreatmentFactors: string; + end; + + TBACopiedOrderFlags = class + OrderID: string; +end; + + TBATreatmentFactorsInRec = class(TObject) + FBAOrderID: string; + FBAEligible: string; + FBATFactors: string; + end; + + TBAUnsignedBillingRec = class(TObject) + FBAOrderID: string; + FBASTSFlags: string; + FBADxCode: string; + FBASecDx1: string; + FBASecDx2: string; + FBASecDx3: string; + end; + + TBAConsultOrderRec = class(TObject) + FBAOrderID: string; + FBADxCode: string; + FBASecDx1: string; + FBASecDx2: string; + FBASecDx3: string; + FBATreatmentFactors: string; + end; + + TBAClearedBillingRec = class(TObject) + FBAOrderID: string; + FBASTSFlags: string; + FBADxCode: string; + FBASecDx1: string; + FBASecDx2: string; + FBASecDx3: string; + end; + + TBAFactorsRec = class(TObject) + FBAFactorActive : boolean; + FBAFactorSC : string; + FBAFactorMST : string; + FBAFactorAO : string; + FBAFactorIR : string; + FBAFactorEC : string; + FBAFactorHNC : string; + FBAFactorCV : string; + end; + + TBAPLFactorsIN = class(TOBject) + FPatientID : string; // UProblems.piece 1 + FBADxText : string; // UProblems.piece 2 + FBADxCode : string; // UProblems.piece 3 + FBASC : string; // UProblems.piece 5 + FBASC_YN : string; // UProblems.piece 6 + FBATreatFactors : string; //(......) + end; + + TBACBStsFlagsIN = class(TOBject) // Y/N/U + CB_Sts_Flags :string; + // CB_SC :string; + CB_AO :string; + CB_IR :string; + CB_EC :string; + CB_MST :string; + CB_HNC :string; + CB_CV :string; + end; + +procedure PutBADxListForOrder(var thisRecord: TBADxRecord; thisOrderID: string); //BAPHII 1.3.1 +procedure CopyDxRecord(sourceOrderID: string; targetOrderID: string); //BAPHII 1.3.1 +function GetPrimaryDx(thisOrderID: string) : string; //BAPHII 1.3.1 +function tempDxNodeExists(thisOrderID: string) : boolean; +function GetDxNodeIndex(thisOrderID: string) : smallint; +function DiagnosesMatch(var List1: TStringList; var List2: TStringList) : boolean; +function CountSelectedOrders(const Caller: smallint) : smallint; +function CompareOrderDx(const Caller: smallint) : boolean; +procedure GetBADxListForOrder(var thisRetVal: TBADxRecord; thisOrderID: string); +procedure DestroyDxList; +procedure SetBADxList; +procedure SimpleAddTempDxList(thisOrderID: string); +procedure SetBADxListForOrder(thisRec: TBADxRecord; thisOrderID: string); +function AllSelectedDxBlank(const Caller: smallint) : boolean; +function SecondaryDxFull(thisOrderID: string) : boolean; +procedure AddSecondaryDx(thisOrderID: string; thisDxCode: string); +procedure InitializeNewDxRec(var thisDxRec: TBADxRecord); +procedure InitializeConsultOrderRec(var thisDxRec: TBAConsultOrderRec); +procedure InitializeUnsignedOrderRec(var thisUnsignedRec: TBAUnsignedBillingRec); +procedure InitializeTFactorsInRec(var thisTFactorsRecIn: TBATreatmentFactorsInRec); +procedure BACopyOrder(sourceOrderList: TStringList); //BAPHII 1.3.2 +procedure CopyTreatmentFactorsDxsToCopiedOrder(pSourceOrderID:string; pTargetOrderID:string); //BAPHII 1.3.2 +procedure CopyTreatmentFactorsDxsToRenewedOrder; //BAPHII 1.3.2 +function GetTFCIForOrder(thisIndex: integer) : string; //BAPHII 1.3.2 +procedure CopyTFCIToTargetOrder(thisTargetOrderID: string; thisCheckBoxStatus: string); + +procedure ResetOrderID(fromID: string; toID: string); +procedure RemoveOrderFromDxList(thisOrderID: string); +function IsUserNurseProvider(pUserID: int64): boolean; +function GetPatientTFactors(pOrderList:TStringList): String; + +var + BAGlobals : TBAGlobals; + BAPLPt : TBAPLPt; + BAPLRec : TBAPLRec; + PLlist : TStringList; + BADiagnosisList : TStringList; + BALocation : integer; + BAPCEDiagList : TStringList; + BAOrderIDList : TStringList; + tempDxList : TList; + globalDxRec : TBADxRecord; + UnsignedBillingRec : TBAUnsignedBillingRec; + ClearedBillingRec : TBAClearedBillingRec; + ConsultOrderRec : TBAConsultOrderRec; + BAFactorsInRec : TBATreatmentFactorsInRec; + BAFactorsRec : TBAFactorsRec; + BAOrderList : TStringList; + UpdatedBAOrderList: TStringList; + ChangeItemOrderNum: string; + i : integer; + OrderIDList : TStringList; + OrderBillableList : TStrings; + BAOrderID : string; + BILLING_AWARE : boolean; + + BAtmpOrderList : TStringList; + BAFlagsIN : string; + BAFlagsOUT : TStringList; + + SourceOrderID : string; //BAPHII 1.3.2 + TargetOrderID : string; //BAPHII 1.3.2 + BACopiedOrderFlags: TStringList; //BAPHII 1.3.2 + BANurseConsultOrders: TStringList; + + // Used to display Dx's on fordersSign and fReview grids + Dx1 : string; + Dx2 : string; + Dx3 : string; + Dx4 : string; + TFactors : string; + SC,AO,IR : string; + MST,HNC,CV,EC : string; + PLFactorsIndexes : TStringList; + BAHoldPrimaryDx : string; // used to verify primart dx has been changed. + BAPrimaryDxChanged: boolean; +// OrdersReqDxLst : TStringList; // List of selected Orders flagged collect DX Y/N + NonBillableOrderList : TStringList; // contains reference to those selected orders that are non billable + OrderListSCEI : TSTringList; // OrderID Exists SCEI are required. + UnsignedOrders : TStringList; // List of Orders from fReview when "don't sign" action + BAUnSignedOrders : TStringList; // OrderID^StsFlags ie., 12345^NNNNNNN + BATFHints : TStringList; + BASelectedList : TStringList; // contains list of orders selected for signature. + BAConsultDxList: TStringList; // contains dx^code^DxRequired(consults Only) selected for consults. + BAConsultPLFlags: TStringList; // orderid^flags contains TF's if dx is selected from Problem list and Problem had TF associated. + BAFWarningShown: boolean; // flag used to determine if Inactive ICD Code has been shown. + BAPersonalDX: boolean; +// BAConsultOrdersRequireDx: TStringList; //orderid - if orderid exists - consult order that requires dx... + BADeltedOrders: TStringList; + +implementation + +uses fBALocalDiagnoses, fOrdersSign, fReview, uCore, rCore, rPCE,uPCE, UBAConst, UBAMessages, UBACore; + +procedure RemoveOrderFromDxList(thisOrderID: string); +{ + This routine written for CQ4589. Called from fOrdersDC.ExecuteDCOrders(). +} +var + i: integer; +begin + if tempDxList.Count > 0 then + for i := 0 to tempDxList.Count-1 do + if tempDxNodeExists(thisOrderID) then + if ((TBADxRecord(tempDxList[i]).FOrderID = thisOrderID) and (tempDxList[i] <> nil)) then + begin + //tempDxList.Items[i] := nil; //remove reference to this item, effectively deleting it from the list (see Delphi help) + BACopiedOrderFlags.Clear; + UBAGlobals.SourceOrderID := ''; + UBAGlobals.TargetOrderID := ''; + tempDxList.Delete(i); //remove this item from the CIDC Dx list + end; +end; + +procedure ResetOrderID(fromID: string; toID: string); +var + i: integer; +begin + for i := 0 to tempDxList.Count-1 do + begin + if TBADxRecord(tempDxList[i]).FOrderID = fromID then + TBADxRecord(tempDxList[i]).FOrderID := toID; + end; +end; + +function GetTFCIForOrder(thisIndex: integer) : string; +{ + Retrieve BA flags for 'thisOrderID', and convert them to CPRS type uSignItems.StsChar array. +} +begin + Result := BACopiedOrderFlags[thisIndex]; +end; + +procedure CopyTFCIToTargetOrder(thisTargetOrderID: string; thisCheckBoxStatus: string); +var + i: integer; +begin + for i := 0 to tempDxList.Count - 1 do + if TBADxRecord(tempDxList[i]).FOrderID = thisTargetOrderID then + TBADxRecord(tempDxList[i]).FTreatmentFactors := thisCheckBoxStatus; +end; + +procedure BACopyOrder(sourceOrderList: TStringList); +{ BAPHII 1.3.2 + Copy source order to target order, including Dx's, Dx descriptions, Treatment Factors and Clinical Indicators +} +var + newList,rList: TStringList; + i: integer; + x: string; + +begin + newList := TStringList.Create; + rList := TSTRingList.Create; + newList.Clear; + rList.Clear; + + CopyDxRecord(UBAGlobals.SourceOrderID, UBAGlobals.TargetOrderID); //copy dx's to tempDxList record + newList.Add(UBAGlobals.SourceOrderID); + rList := rpcGetUnsignedOrdersBillingData(newList); + + if RList.Count > 0 then + begin + for i := 0 to rList.Count-1 do + begin + x := rList.Strings[i]; + BACopiedOrderFlags.Add(TargetOrderID + '^' + Piece(x,U,2) ); + end; + end + else + begin + BACopiedOrderFlags.Add(TargetOrderID + '^' + frmSignOrders.GetCheckBoxStatus(sourceOrderID) ); + end; +end; + +procedure CopyTreatmentFactorsDxsToCopiedOrder(pSourceOrderID:string; pTargetOrderID:string); +{ + BAPHII 1.3.2 +} +var + sourceOrderList: TStringList; + sourceOrderID: TStringList; + targetOrderIDLst: TStringList; +begin + //Retrieve TF's/CI's from SOURCE Order + sourceOrderList := TStringList.Create; + targetOrderIDLst := TStringList.Create; + sourceOrderList.Clear; + targetOrderIDLst.Clear; + sourceOrderID := TStringList.Create; + sourceOrderID.Clear; + sourceOrderID.Add(Piece(pSourceOrderID, ';', 1)); + targetOrderIDLst.Add(pTargetOrderID); + { if targetORderID is not billable do not create entry in BADXRecord - List fix HDS00003130} + rpcNonBillableOrders(targetOrderIDLst); + if IsOrderBillable(pTargetOrderID) then + begin + tCallV(sourceOrderList, 'ORWDBA4 GETTFCI', [sourceOrderID]); + BACopyOrder(sourceOrderList); + end; +end; + +procedure CopyTreatmentFactorsDxsToRenewedOrder; +{ + BAPHII 1.3.2 +} +var + sourceOrderList: TStringList; + sourceOrderID: TStringList; + targetOrderList: TStringList; +begin + //Retrieve TF's/CI's from SOURCE Order + sourceOrderList := TStringList.Create; + sourceOrderList.Clear; + sourceOrderID := TStringList.Create; + sourceOrderID.Clear; + targetOrderList := TStringList.Create; + targetOrderList.Clear; + sourceOrderID.Add(Piece(UBAGlobals.sourceOrderID, ';', 1)); + { if targetORderID is not billable do not create entry in BADXRecord - List fix HDS00003130} + rpcNonBillableOrders(targetOrderList); + if IsOrderBillable(UBAGLobals.TargetOrderID) then + begin + tCallV(sourceOrderList, 'ORWDBA4 GETTFCI', [sourceOrderID]); + BACopyOrder(sourceOrderList); //BAPHII 1.3.2 + end; +end; + +procedure PutBADxListForOrder(var thisRecord: TBADxRecord; thisOrderID: string); +{ //existingRecord //targetOrderID } +var + i: integer; + thisRec: TBADxRecord; +begin + if UBAGlobals.tempDxNodeExists(thisOrderID) then + begin + if Assigned(tempDxList) then + + try + for i := 0 to (tempDxList.Count - 1) do + begin + thisRec := TBADxRecord(tempDxList.Items[i]); + + if Assigned(thisRec) then + if (thisRec.FOrderID = thisOrderID) then + begin + thisRec.FBADxCode := thisRecord.FBADxCode; + thisRec.FBASecDx1 := thisRecord.FBASecDx1; + thisRec.FBASecDx2 := thisRecord.FBASecDx2; + thisRec.FBASecDx3 := thisRecord.FBASecDx3; + thisRec.FTreatmentFactors := thisRecord.FTreatmentFactors; + end; + end; + + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.PutBADxListForOrder()');{$endif} + raise; + end; + end; + end; +end; + +procedure CopyDxRecord(sourceOrderID: string; targetOrderID: string); + { + BAPHII 1.3.1 + Copy contents of one TBADxRecord to another. + If target record does NOT exist, then add it to the Dx list. + If target record DOES exist, then change its contents to those of source record. + } + var + thisRecord: TBADxRecord; + thatRecord: TBADxRecord; + billingInfo: TstringList; + orderList: TStringList; +begin + thisRecord := TBADxRecord.Create; + thatRecord := TBADxRecord.Create; + billingInfo := TStringList.Create; + orderList := TStringList.Create; + if Assigned(billingInfo) then billingInfo.Clear; + if Assigned(orderList) then orderList.Clear; + + if tempDxNodeExists(sourceOrderID) then + GetBADxListForOrder(thisRecord, sourceOrderID); //load data from source + + if not tempDxNodeExists(targetOrderID) then + begin + SimpleAddTempDxList(targetOrderID); + orderList.Add(sourceOrderID); + billingInfo := rpcRetrieveSelectedOrderInfo(orderList); + if billingInfo.Count > 0 then + begin + thisRecord.FBADxCode := Piece(billingInfo.Strings[0],U,4) + U + + Piece(billingInfo.Strings[0],U,3); + thisRecord.FBASecDx1 := Piece(billingInfo.Strings[0],U,6) + U + + Piece(billingInfo.Strings[0],U,5); + thisRecord.FBASecDx2 := Piece(billingInfo.Strings[0],U,8) + U + + Piece(billingInfo.Strings[0],U,7); + thisRecord.FBASecDx3 := Piece(billingInfo.Strings[0],U,10) + U + + Piece(billingInfo.Strings[0],U,9); + if thisRecord.FBADxCode = CARET then thisRecord.FBADxCode := DXREC_INIT_FIELD_VAL; + if thisRecord.FBASecDx1 = CARET then thisRecord.FBASecDx1 := DXREC_INIT_FIELD_VAL ; + if thisRecord.FBASecDx2 = CARET then thisRecord.FBASecDx2 := DXREC_INIT_FIELD_VAL ; + if thisRecord.FBASecDx3 = CARET then thisRecord.FBASecDx3 := DXREC_INIT_FIELD_VAL ; + + end + else + PutBADxListForOrder(thisRecord, targetOrderID); + //copy source data to temporary record + with thatRecord do + begin + FOrderID := targetOrderID; + FBADxCode := thisRecord.FBADxCode; + FBASecDx1 := thisRecord.FBASecDx1; + FBASecDx2 := thisRecord.FBASecDx2; + FBASecDx3 := thisRecord.FBASecDx3; + PutBADxListForOrder(thatRecord, targetOrderID); + end; + end; +end; + + +function GetPrimaryDx(thisOrderID: string) : string; +{ +BAPHII 1.3.1 +} +var + retVal: TBADxRecord; +begin + retVal := TBADxRecord.Create; + GetBADxListForOrder(retVal, thisOrderID); + Result := retVal.FBADxCode; +end; + +function AllSelectedDxBlank(const Caller: smallint) : boolean; +var + i: smallint; + selectedOrderID: string; +begin + Result := true; + + case Caller of + F_ORDERS_SIGN: begin + try + for i := 0 to fOrdersSign.frmSignOrders.clstOrders.Items.Count-1 do + if (frmSignOrders.clstOrders.Selected[i]) then + begin + selectedOrderID := TOrder(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i]).ID; + if (tempDxNodeExists(selectedOrderID)) then + Result := false; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.AllSelectedDxBlank() - F_ORDERS_SIGN');{$endif} + raise; + end; + end; + end; + F_REVIEW: begin + try + for i := 0 to fReview.frmReview.lstReview.Items.Count-1 do + if (fReview.frmReview.lstReview.Selected[i]) then + begin + selectedOrderID := TOrder(fReview.frmReview.lstReview.Items.Objects[i]).ID; + if tempDxNodeExists(selectedOrderID) then + Result := false; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.AllSelectedDxBlank() - F_REVIEW');{$endif} + raise; + end; + end; + end; + end; //case +end; + +function GetDxNodeIndex(thisOrderID: string) : smallint; +var + i: integer; + thisRec: TBADxRecord; +begin + Result := 0; + + if Assigned(tempDxList) then + + try + for i := 0 to (tempDxList.Count - 1) do + begin + thisRec := TBADxRecord(tempDxList.Items[i]); + if Assigned(thisRec) then + if (thisRec.FOrderID = thisOrderID) then + Result := i; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.GetDxNodeIndex()');{$endif} + raise; + end; + end; +end; + +function DiagnosesMatch(var List1: TStringList; var List2: TStringList) : boolean; +var + i: smallint; +begin + Result := false; + + // If the number of Dx's in the lists differs, then bail + if (List1.Count <> List2.Count) then + begin + Result := false; + Exit; + end; + + List1.Sort; + List2.Sort; + + try + for i := 0 to (List1.Count - 1) do + if (List1.Strings[i] <> List2.Strings[i]) then + Result := false + else + Result := true; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.DiagnosesMatch()');{$endif} + raise; + end; + end; +end; + +function CountSelectedOrders(const Caller: smallint) : smallint; +var + i: integer; + selectedOrders: smallint; +begin + selectedOrders := 0; + + // How many orders selected? + case Caller of + F_ORDERS_SIGN: begin + try + for i := 0 to (fOrdersSign.frmSignOrders.clstOrders.Items.Count-1) do + if (fOrdersSign.frmSignOrders.clstOrders.Selected[i]) then + Inc(selectedOrders); + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.CountSelectedOrders() - F_ORDERS_SIGN');{$endif} + raise; + end; + end; + end; + F_REVIEW: begin + try + for i := 0 to (fReview.frmReview.lstReview.Items.Count-1) do + if (fReview.frmReview.lstReview.Selected[i]) then + Inc(selectedOrders); + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.CountSelectedOrders() - F_REVIEW');{$endif} + raise; + end; + end; + end; + end; //case + + Result := selectedOrders; + +end; + +function CompareOrderDx(const Caller: smallint) : boolean; +var + i: integer; + firstSelectedID: string; + thisOrderID: string; + firstDxRec: TBADxRecord; + compareDxRec: TBADxRecord; + thisStringList: TStringList; + thatStringList: TStringList; +begin + Result := false; + firstSelectedID := ''; + firstDxRec := nil; + firstDxRec := TBADxRecord.Create; + thisStringList := TStringList.Create; + thisStringList.Clear; + thatStringList := TStringList.Create; + thatStringList.Clear; + + case Caller of + F_ORDERS_SIGN: begin + try + for i := 0 to (fOrdersSign.frmSignOrders.clstOrders.Items.Count-1) do + if (fOrdersSign.frmSignOrders.clstOrders.Selected[i]) then + begin + firstSelectedID := TChangeItem(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i]).ID; + Break; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif} + raise; + end; + end; + end; + F_REVIEW: begin + try + for i := 0 to (fReview.frmReview.lstReview.Items.Count-1) do + if (fReview.frmReview.lstReview.Selected[i]) then + begin + firstSelectedID := TChangeItem(fReview.frmReview.lstReview.Items.Objects[i]).ID; + Break; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif} + raise; + end; + end; + end; + end; //case + + firstDxRec := TBADxRecord.Create; + InitializeNewDxRec(firstDxRec); + GetBADxListForOrder(firstDxRec, firstSelectedID); + + // first string to compare + thisStringList.Add(firstDxRec.FBADxCode); + thisStringList.Add(firstDxRec.FBASecDx1); + thisStringList.Add(firstDxRec.FBASecDx2); + thisStringList.Add(firstDxRec.FBASecDx3); + + case Caller of + F_ORDERS_SIGN: begin + try + for i := 0 to fOrdersSign.frmSignOrders.clstOrders.Items.Count-1 do + if (fOrdersSign.frmSignOrders.clstOrders.Selected[i]) then + begin + thisOrderID := TChangeItem(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i]).ID; + // If order ID is same as the first selected order, then skip it + if thisOrderID = firstSelectedID then + Continue + else + begin + compareDxRec := TBADxRecord.Create; + InitializeNewDxRec(compareDxRec); + GetBADxListForOrder(compareDxRec, thisOrderID); + + thatStringList.Add(compareDxRec.FBADxCode); + thatStringList.Add(compareDxRec.FBASecDx1); + thatStringList.Add(compareDxRec.FBASecDx2); + thatStringList.Add(compareDxRec.FBASecDx3); + + if DiagnosesMatch(thisStringList, thatStringList) then + Result := true; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif} + raise; + end; + end; + end; + F_REVIEW: begin + try + for i := 0 to fReview.frmReview.lstReview.Items.Count-1 do + if (fReview.frmReview.lstReview.Selected[i]) then + begin + thisOrderID := TChangeItem(fReview.frmReview.lstReview.Items.Objects[i]).ID; + // If order ID is same as the first selected order, then skip it + if thisOrderID = firstSelectedID then + Continue + else + begin + compareDxRec := TBADxRecord.Create; + InitializeNewDxRec(compareDxRec); + GetBADxListForOrder(compareDxRec, thisOrderID); + + thatStringList.Add(compareDxRec.FBADxCode); + thatStringList.Add(compareDxRec.FBASecDx1); + thatStringList.Add(compareDxRec.FBASecDx2); + thatStringList.Add(compareDxRec.FBASecDx3); + + if DiagnosesMatch(thisStringList, thatStringList) then + Result := true; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif} + raise; + end; + end; + end; + end; //case + + if Assigned(thisStringList) then + FreeAndNil(thisStringList); + + if Assigned(thatStringList) then + FreeAndNil(thatStringList); +end; + +procedure GetBADxListForOrder(var thisRetVal: TBADxRecord; thisOrderID: string); +var + i: integer; + thisRec: TBADxRecord; +begin + if UBAGlobals.tempDxNodeExists(thisOrderID) then + begin + + if Assigned(tempDxList) then + for i := 0 to (tempDxList.Count - 1) do + begin + thisRec := TBADxRecord(tempDxList.Items[i]); + + if Assigned(thisRec) then + if (thisRec.FOrderID = thisOrderID) then + begin + with thisRetVal do + begin + FOrderID := thisRec.FOrderID; + FBADxCode := StringReplace(thisrec.FBADxCode,'^',':',[rfReplaceAll]); + FBASecDx1 := StringReplace(thisrec.FBASecDx1,'^',':',[rfReplaceAll]); + FBASecDx2 := StringReplace(thisrec.FBASecDx2,'^',':',[rfReplaceAll]);; + FBASecDx3 := StringReplace(thisrec.FBASecDx3,'^',':',[rfReplaceAll]); + end; + end; + end; + end; +end; + +procedure DestroyDxList; +var + i: integer; +begin + if Assigned(tempDxList) then + for i := 0 to pred(UBAGlobals.tempDxList.Count) do + TObject(tempDxList[i]).Free; + + tempDxList := nil; + FreeAndNil(tempDxList); +end; + +procedure SimpleAddTempDxList(thisOrderID: string); +var + tempDxRec: TBADxRecord; +begin + frmBALocalDiagnoses.LoadTempRec(tempDxRec, thisOrderID); + UBAGlobals.tempDxList.Add(TBADxRecord(tempDxRec)); +end; + +procedure SetBADxList; +var + i: smallint; +begin + if not Assigned(UBAGlobals.tempDxList) then + begin + UBAGlobals.tempDxList := TList.Create; + UBAGlobals.tempDxList.Count := 0; + end + else + begin + //Kill the old Dx list + for i := 0 to pred(UBAGlobals.tempDxList.Count) do + TObject(UBAGlobals.tempDxList[i]).Free; + + UBAGlobals.tempDxList := nil; + + //Create new Dx list for newly selected patient + if not Assigned(UBAGlobals.tempDxList) then + begin + UBAGlobals.tempDxList := TList.Create; + UBAGlobals.tempDxList.Count := 0; + end; + end; +end; + +procedure SetBADxListForOrder(thisRec: TBADxRecord; thisOrderID: string); +var + i: integer; + foundRec: TBADxRecord; +begin + if UBAGlobals.tempDxNodeExists(thisOrderID) then + begin + foundRec := TBADxRecord.Create; + + if Assigned(tempDxList) then + try + for i := 0 to (tempDxList.Count - 1) do + begin + foundRec := TBADxRecord(tempDxList.Items[i]); + + if Assigned(thisRec) then + if (thisOrderID = foundRec.FOrderID) then + begin + with foundRec do + begin + FOrderID := thisRec.FOrderID; + FBADxCode := thisRec.FBADxCode; + FBASecDx1 := thisRec.FBASecDx1; + FBASecDx2 := thisRec.FBASecDx2; + FBASecDx3 := thisRec.FBASecDx3; + PutBADxListForOrder(foundRec, thisOrderID); + end; + Break; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.SetBADxListForOrder()');{$endif} + raise; + end; + end; + end; +end; + +function SecondaryDxFull(thisOrderID: string) : boolean; +var + i: integer; + thisRec: TBADxRecord; +begin + Result := false; + + try + for i := 0 to tempDxList.Count - 1 do + begin + thisRec := TBADxRecord(tempDxList.Items[i]); + + if Assigned(thisRec) then + if thisRec.FOrderID = thisOrderID then + begin + if (thisRec.FBADxCode <> UBAConst.DXREC_INIT_FIELD_VAL) then + if (thisRec.FBASecDx1 <> UBAConst.DXREC_INIT_FIELD_VAL) then + if (thisRec.FBASecDx2 <> UBAConst.DXREC_INIT_FIELD_VAL) then + if (thisRec.FBASecDx3 <> UBAConst.DXREC_INIT_FIELD_VAL) then + Result := true; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.SecondaryDxFull()');{$endif} + raise; + end; + end; +end; + +procedure AddSecondaryDx(thisOrderID: string; thisDxCode: string); +// Add a Secondary Dx to the first open slot in DxRec, if there IS an open slot +var + thisRec: TBADxRecord; + i: integer; +begin + + try + for i := 0 to tempDxList.Count - 1 do + begin + thisRec := TBADxRecord(tempDxList.Items[i]); + + if thisRec.FOrderID = thisOrderID then + begin + if (thisRec.FBASecDx1 = UBAConst.DXREC_INIT_FIELD_VAL) then + thisRec.FBASecDx1 := thisDxCode + else + if (thisRec.FBASecDx2 = UBAConst.DXREC_INIT_FIELD_VAL) then + thisRec.FBASecDx2 := thisDxCode + else + if (thisRec.FBASecDx3 = UBAConst.DXREC_INIT_FIELD_VAL) then + thisRec.FBASecDx3 := thisDxCode; + end + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.AddSecondaryDx()');{$endif} + raise; + end; + end; +end; + +procedure InitializeConsultOrderRec(var thisDxRec: TBAConsultOrderRec); +begin + with thisDxRec do + begin + FBAOrderID := UBAConst.DXREC_INIT_FIELD_VAL; + FBADxCode := UBAConst.DXREC_INIT_FIELD_VAL; + FBASecDx1 := UBAConst.DXREC_INIT_FIELD_VAL; + FBASecDx2 := UBAConst.DXREC_INIT_FIELD_VAL; + FBASecDx3 := UBAConst.DXREC_INIT_FIELD_VAL; + FBATreatmentFactors:= UBAConst.DXREC_INIT_FIELD_VAL; + end; +end; + + +procedure InitializeNewDxRec(var thisDxRec: TBADxRecord); +begin + with thisDxRec do + begin + FExistingRecordID := UBAConst.DXREC_INIT_FIELD_VAL; + FOrderID := UBAConst.DXREC_INIT_FIELD_VAL; + FBADxCode := UBAConst.DXREC_INIT_FIELD_VAL; + FBASecDx1 := UBAConst.DXREC_INIT_FIELD_VAL; + FBASecDx2 := UBAConst.DXREC_INIT_FIELD_VAL; + FBASecDx3 := UBAConst.DXREC_INIT_FIELD_VAL; + end; +end; + +procedure InitializeUnsignedOrderRec(var thisUnsignedRec: TBAUnsignedBillingRec); +begin + with thisUnsignedRec do + begin + FBAOrderID := UNSIGNED_REC_INIT_FIELD_VAL; + FBASTSFlags := UNSIGNED_REC_INIT_FIELD_VAL; + FBADxCode := UNSIGNED_REC_INIT_FIELD_VAL; + FBASecDx1 := UNSIGNED_REC_INIT_FIELD_VAL; + FBASecDx2 := UNSIGNED_REC_INIT_FIELD_VAL; + FBASecDx3 := UNSIGNED_REC_INIT_FIELD_VAL; + end; +end; + +procedure InitializeTFactorsInRec(var thisTFactorsRecIn: TBATreatmentFactorsInRec); +begin + with thisTFactorsRecIn do + begin + FBAOrderID := UNSIGNED_REC_INIT_FIELD_VAL; + FBAEligible := UNSIGNED_REC_INIT_FIELD_VAL; + FBATFactors := UNSIGNED_REC_INIT_FIELD_VAL; + end; +end; +constructor TBAGlobals.Create; +begin + inherited Create; +end; +// This procedure is called from uPCE.pas only -- do not delete..... +procedure TBAGlobals.AddBAPCEDiag(DiagStr:string); +begin + if (BAPCEDiagList.Count <= 0) then + BAPCEDiagList.Add('^Encounter Diagnoses'); + + BAPCEDiagList.Add(DiagStr); +end; + +procedure TBAGlobals.ClearBAPCEDiagList; +begin + + BAPCEDiagList.Clear; +end; + +constructor TBAPLRec.Create; +begin + inherited Create; +end; + +function TBAPLRec.BuildProblemListDxEntry(pDxCode:string): TStringList; +// StringList used to store DX Codes selected from Encounter Form +var + BADxIEN: string; + BAProviderStr, BAProviderName : string; + AList: TStringList; +begin +// Build Problem List record to be saved for selection. + PLlist := TStringList.Create; + AList := TStringList.Create; + AList.Clear; + PLlist.Clear; + BALocation := Encounter.Location; + BAProviderStr := IntToStr(Encounter.Provider); + BAProviderName := Encounter.ProviderName; + BADxIEN := sCallV('ORWDBA7 GETIEN9', [Piece(pDxCode,U,1)]); + BAPLPt.LoadPatientParams(AList); + + //BAPLPt.PtVAMC + PLlist.Add('GMPFLD(.01)='+'"' +BADxIEN+ '^'+Piece(pDxCode,U,1)+'"'); + PLlist.Add('GMPFLD(.03)=' +'"'+'0^' +'"'); + PLlist.Add('GMPFLD(.05)=' + '"' +'^'+Piece(pDxCode,U,2)+ '"'); + PLlist.Add('GMPFLD(.08)=' + '"'+ '^'+FloatToStr(FMToday)+'"'); + PLlist.Add('GMPFLD(.12)=' + '"' + 'A^ACTIVE'+ '"'); + PLlist.Add('GMPFLD(.13)=' + '"' + '^'+ '"'); + PLlist.Add('GMPFLD(1.01)=' + '"'+ Piece(pDxCode,U,2) + '"'); + PLlist.Add('GMPFLD(1.02)=' + '"'+'P' + '"'); + PLlist.Add('GMPFLD(1.03)=' + '"'+ BAProviderStr + '^'+ BAProviderName + '"'); + PLlist.Add('GMPFLD(1.04)=' + '"'+ BAProviderStr + '^' + BAProviderName + '"'); + PLlist.Add('GMPFLD(1.05)=' + '"'+ BAProviderStr + '^' + BAProviderName + '"'); + PLlist.Add('GMPFLD(1.08)=' +'"' + IntToStr(BALocation) + '^' + Encounter.LocationName + '"'); + PLlist.Add('GMPFLD(1.09)=' + '"'+ FloatToStr(FMToday) +'"'); + PLlist.Add('GMPFLD(10,0)=' + '"'+'0'+ '"'); + Result := PLlist; + +end; + +function TBAPLRec.FMToDateTime(FMDateTime: string): TDateTime; +var + x, Year: string; +begin + { Note: TDateTime cannot store month only or year only dates } + x := FMDateTime + '0000000'; + if Length(x) > 12 then x := Copy(x, 1, 12); + if StrToInt(Copy(x, 9, 4)) > 2359 then x := Copy(x,1,7) + '.2359'; + Year := IntToStr(17 + StrToInt(Copy(x,1,1))) + Copy(x,2,2); + x := Copy(x,4,2) + '/' + Copy(x,6,2) + '/' + Year + ' ' + Copy(x,9,2) + ':' + Copy(x,11,2); + Result := StrToDateTime(x); +end; + +{-------------------------- TPLPt Class ----------------------} +constructor TBAPLPT.Create(Alist:TStringList); +var + i: integer; +begin + for i := 0 to AList.Count - 1 do + case i of + 0: PtVAMC := Copy(Alist[i],1,999); + 1: PtDead := AList[i]; + 2: PtServiceConnected := (AList[i] = '1'); + 3: PtAgentOrange := (AList[i] = '1'); + 4: PtRadiation := (AList[i] = '1'); + 5: PtEnvironmental := (AList[i] = '1'); + 6: PtBID := Alist[i]; + 7: PtHNC := (AList[i] = '1'); + 8: PtMST := (AList[i] = '1'); + end; +end; + +function TBAPLPt.GetGMPDFN(dfn:string;name:string):string; +begin + Result := dfn + u + name + u + PtBID + u + PtDead; +end; + +procedure TBAPLPt.LoadPatientParams(AList:TstringList); +begin + AList.Assign(rpcInitPt(Patient.DFN)); + BAPLPt := TBAPLPt.create(Alist); +end; + +function TBAPLPt.rpcInitPt(const PatientDFN: string): TStrings ; //*DFN* +begin + CallV('ORQQPL INIT PT',[PatientDFN]); + Result := RPCBrokerV.Results; +end ; + +function tempDxNodeExists(thisOrderID: string) : boolean; +// Returns true if a node with the specified Order ID exists, false otherwise. +var + i: integer; + thisRec: TBADxRecord; +begin + Result := false; + if Assigned(tempDxList) then + try + for i := 0 to (tempDxList.Count - 1) do + begin + thisRec := TBADxRecord(tempDxList.Items[i]); + + if Assigned(thisRec) then + if (thisRec.FOrderID = thisOrderID) then + begin + Result := true; + Break; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBAGlobals.tempDxNodeExists()');{$endif} + raise; + end; + end; +end; + // HDS00003380 +function IsUserNurseProvider(pUserID: int64):boolean; +begin + Result := False; + if BILLING_AWARE then + begin + if (pUserID <> 0) and PersonHasKey(pUserID, 'PROVIDER') then + if (uCore.User.OrderRole = OR_NURSE) then + Result := True; + end; +end; + +function GetPatientTFactors(pOrderList:TStringList):String; +begin + Result := ''; + Result := sCallV('ORWDBA1 SCLST',[Patient.DFN,pOrderList]); +end; + + +Initialization + BAPrimaryDxChanged := False; + BAFWarningShown := False; + BAPersonalDX := False; + BAHoldPrimaryDx := DXREC_INIT_FIELD_VAL; + NonBillableOrderList := TStringList.Create; + BAPCEDiagList := TStringList.Create; + OrderListSCEI := TStringList.Create; + BAOrderList := TStringList.Create; + UnSignedOrders := TStringList.Create; + BAOrderIDList := TStringList.Create; + BAUnSignedOrders := TStringList.Create; + BATFHints := TStringList.Create; + BAFactorsRec := TBAFactorsRec.Create; + BAFactorsInRec := TBATreatmentFactorsInRec.Create; + BASelectedList := TStringList.Create; + PLFactorsIndexes := TStringList.Create; + BAtmpOrderList := TStringList.Create; + BACopiedOrderFlags := TStringList.Create; //BAPHII 1.3.2 + OrderIDList := TStringList.Create; + BAConsultDxList := TStringList.Create; + BAConsultPLFlags := TStringList.Create; + BANurseConsultOrders := TStringList.Create; + BADeltedOrders := TStringList.Create; + // BAConsultOrdersRequireDx := TStringList.Create; + BAConsultDxList.Clear; + NonBillableOrderList.Clear; + OrderListSCEI.Clear; + UnSignedOrders.Clear; + BAOrderIDList.Clear; + BAUnSignedOrders.Clear; + BATFHints.Clear; + PLFactorsIndexes.Clear; + BASelectedList.Clear; + BAtmpOrderList.Clear; + OrderIDList.Clear; + BAConsultPLFlags.Clear; + BAPCEDiagList.Clear; + BANurseConsultOrders.Clear; + BADeltedOrders.Clear; + //BAConsultOrdersRequireDx.Clear; + +end. + + + diff --git a/CPRS-Chart/BA/UBAMessages.pas b/CPRS-Chart/BA/UBAMessages.pas new file mode 100644 index 0000000..59fa621 --- /dev/null +++ b/CPRS-Chart/BA/UBAMessages.pas @@ -0,0 +1,43 @@ +unit UBAMessages; + +{$OPTIMIZATION OFF} +{.$define debug} + +interface + +const + + {$ifdef debug} + BA_ASSRTF = 'Assertion failed' + #13; + {$endif} + + //CPRS User Messages + BA_MAX_DX_ALLOWED = 'Can Not Add Diagnosis' + #13 + + 'Reason: Maximum (4) diagnoses have already been applied to this order.' + #13 + + 'You may use the ''Diagnosis Editor'' to manage diagnoses for order(s).'; + BA_NO_ORDERS_SELECTED = 'No orders have been selected. Select one or more orders to be signed.'; + BA_CONFIRM_DX_OVERWRITE = '''Lookup Diagnoses'' action will overwrite any existing diagnoses for selected orders.'+#13+'Do you wish to proceed?'; + BA_MAX_DX = 'A maximum of 4 diagnosis can be selected'; + BA_BILLING_DATA_SAVE_FAILED = 'Error: Billing data was not saved'; + + BA_NA_COPY_DISALLOWED = 'Can''t copy ''N/A'' orders. Select non-''N/A'' order(s), and retry the copy.'; + BA_NA_PASTE_DISALLOWED = 'Selected Diagnoses will not be pasted to orders flagged with N/A.'; + + BA_ONE_ORDER_ONLY = 'Only 1 order at a time may be selected for copying'; + BA_PERSONAL_LIST_UPDATED = 'Personal Diagnoses List Updated.'; + BA_NO_BILLABLE_ORDERS = 'No billable orders have been selected.'; + + BA_INACTIVE_CODE = 'Inactive Code'; + BA_INACTIVE_ICD9_CODE_1 = 'The diagnosis code ('; + BA_INACTIVE_ICD9_CODE_2 = ') is not active as of today''s date,' + #13#10+ + 'Please select another.'; + BA_DATA_NOT_REQD = '9'; + BA_DUP_DX = 'Duplicate Diagnosis.'; + BA_DUP_DX_DISALLOWED_1 = 'Diagnosis ('; + BA_DUP_DX_DISALLOWED_2 = ') has already been selected.'; + + + +implementation + +end. diff --git a/CPRS-Chart/BA/fBALocalDiagnoses.dfm b/CPRS-Chart/BA/fBALocalDiagnoses.dfm new file mode 100644 index 0000000..34d2dbb --- /dev/null +++ b/CPRS-Chart/BA/fBALocalDiagnoses.dfm @@ -0,0 +1,270 @@ +object frmBALocalDiagnoses: TfrmBALocalDiagnoses + Left = 192 + Top = 61 + Width = 620 + Height = 544 + Caption = 'Assign Diagnoses to Order(s)' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + Position = poScreenCenter + ShowHint = True + OnActivate = FormActivate + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 612 + Height = 96 + Align = alTop + Caption = 'pnlTop' + TabOrder = 0 + DesignSize = ( + 612 + 96) + object lbOrders: TListBox + Left = 7 + Top = 25 + Width = 599 + Height = 69 + Anchors = [akLeft, akTop, akRight, akBottom] + IntegralHeight = True + ItemHeight = 13 + TabOrder = 2 + OnMouseMove = lbOrdersMouseMove + end + object ORStaticText1: TORStaticText + Left = 216 + Top = 8 + Width = 169 + Height = 14 + AutoSize = False + Caption = 'Selected Orders' + TabOrder = 1 + TabStop = True + OnEnter = ORStaticText1Enter + OnExit = ORStaticText1Exit + end + object lblPatientName: TStaticText + Left = 11 + Top = 9 + Width = 76 + Height = 17 + Caption = 'PatientName' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + TabStop = True + end + end + object pnlMain: TPanel + Left = 0 + Top = 96 + Width = 612 + Height = 259 + Align = alClient + TabOrder = 1 + object lbSections: TORListBox + Left = 9 + Top = 16 + Width = 238 + Height = 201 + Style = lbOwnerDrawVariable + IntegralHeight = True + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = lbSectionsClick + OnDrawItem = lbSectionsDrawItem + Caption = 'Diagnosis Section' + ItemTipColor = clWindow + LongList = False + Pieces = '3' + CheckEntireLine = True + end + object btnOther: TButton + Left = 155 + Top = 219 + Width = 92 + Height = 20 + Caption = 'Other &Diagnosis' + TabOrder = 2 + OnClick = btnOtherClick + end + object lbDiagnosis: TORListBox + Left = 248 + Top = 16 + Width = 353 + Height = 225 + IntegralHeight = True + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 4 + OnClick = lbDiagnosisClick + Caption = 'Diagnosis Section' + ItemTipColor = clWindow + LongList = False + Pieces = '1,2,3' + end + object ORStaticText2: TORStaticText + Left = 8 + Top = 1 + Width = 241 + Height = 17 + AutoSize = False + BevelKind = bkFlat + Caption = 'Diagnosis Section' + TabOrder = 0 + TabStop = True + OnEnter = ORStaticText1Enter + OnExit = ORStaticText1Exit + end + object ORStaticText3: TORStaticText + Left = 248 + Top = 1 + Width = 353 + Height = 17 + AutoSize = False + BevelKind = bkFlat + Caption = 'Diagnosis Codes' + TabOrder = 3 + TabStop = True + OnEnter = ORStaticText1Enter + OnExit = ORStaticText1Exit + end + end + object pnlBottom: TORAutoPanel + Left = 0 + Top = 355 + Width = 612 + Height = 162 + Align = alBottom + TabOrder = 2 + DesignSize = ( + 612 + 162) + object lvDxGrid: TListView + Left = 12 + Top = 19 + Width = 445 + Height = 85 + Color = clInfoBk + Columns = < + item + Caption = 'Add To PL/PD' + Width = 85 + end + item + Caption = 'Primary' + MinWidth = 65 + Width = 65 + end + item + Caption = 'Diagnosis for Selected Orders' + MinWidth = 275 + Width = 290 + end> + Ctl3D = False + HideSelection = False + MultiSelect = True + ReadOnly = True + RowSelect = True + TabOrder = 1 + ViewStyle = vsReport + OnClick = lvDxGridClick + OnKeyDown = lvDxGridKeyDown + OnKeyUp = lvDxGridKeyUp + end + object cbAddToPDList: TCheckBox + Left = 459 + Top = 33 + Width = 129 + Height = 17 + Caption = 'Add to Personal Dx List' + TabOrder = 3 + OnClick = cbAddToPDListClick + end + object cbAddToPL: TCheckBox + Left = 459 + Top = 17 + Width = 149 + Height = 16 + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = 'Add To Problem List' + TabOrder = 2 + OnClick = cbAddToPLClick + end + object btnPrimary: TButton + Left = 480 + Top = 57 + Width = 72 + Height = 19 + Caption = '&Primary' + TabOrder = 4 + OnClick = btnPrimaryClick + end + object btnRemove: TButton + Left = 480 + Top = 81 + Width = 72 + Height = 19 + Caption = '&Remove' + TabOrder = 5 + OnClick = btnRemoveClick + end + object btnSelectAll: TButton + Left = 385 + Top = 108 + Width = 72 + Height = 18 + Caption = '&Select All' + TabOrder = 6 + OnClick = btnSelectAllClick + end + object buOK: TButton + Left = 384 + Top = 136 + Width = 72 + Height = 21 + Caption = '&OK' + TabOrder = 7 + OnClick = buOKClick + end + object buCancel: TButton + Left = 482 + Top = 136 + Width = 72 + Height = 21 + Caption = '&Cancel' + TabOrder = 8 + OnClick = buCancelClick + end + object ORStaticText4: TORStaticText + Left = 14 + Top = 3 + Width = 219 + Height = 14 + AutoSize = False + Caption = 'Provisional Diagnosis' + TabOrder = 0 + TabStop = True + OnEnter = ORStaticText1Enter + OnExit = ORStaticText1Exit + end + end +end diff --git a/CPRS-Chart/BA/fBALocalDiagnoses.pas b/CPRS-Chart/BA/fBALocalDiagnoses.pas new file mode 100644 index 0000000..6424d4b --- /dev/null +++ b/CPRS-Chart/BA/fBALocalDiagnoses.pas @@ -0,0 +1,1576 @@ +unit fBALocalDiagnoses; + {.$define debug} +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, fAutoSz, StdCtrls, ORCtrls, ExtCtrls,fPCELex, uConsults, ORFn, + rPCE,DBCtrls, DB, DBClient, uPCE, fEncounterFrame, ComCtrls, Grids, UBAGlobals, + Buttons, Menus, UBACore, UCore; + +type + DxRecord = Record + DxFiller1 : string; + DxFiller2 : string; + DxAddToPL : string; + DxPrimary : string; + DxCode : string; + end; + TfrmBALocalDiagnoses = class(TfrmAutoSz) + pnlTop: TPanel; + lbOrders: TListBox; + pnlMain: TPanel; + lbSections: TORListBox; + pnlBottom: TORAutoPanel; + lvDxGrid: TListView; + cbAddToPDList: TCheckBox; + cbAddToPL: TCheckBox; + btnPrimary: TButton; + btnRemove: TButton; + btnSelectAll: TButton; + buOK: TButton; + buCancel: TButton; + btnOther: TButton; + lbDiagnosis: TORListBox; + ORStaticText1: TORStaticText; + ORStaticText2: TORStaticText; + ORStaticText3: TORStaticText; + ORStaticText4: TORStaticText; + lblPatientName: TStaticText; + procedure buOKClick(Sender: TObject); + procedure buCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure lbSectionsClick(Sender: TObject); + procedure btnOtherClick(Sender: TObject); + procedure btnPrimaryClick(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure btnSelectAllClick(Sender: TObject); + procedure cbAddToPLClick(Sender: TObject); + procedure ProcessAddToItems; + procedure lbDiagnosisClick(Sender: TObject); + procedure FormActivate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure AddDiagnosistoPersonalDiagnosesList1Click(Sender: TObject); + procedure AddDiagnosistoPersonalDiagnosesList2Click(Sender: TObject); + + procedure cbAddToPDListClick(Sender: TObject); + procedure lbSectionsDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure lvDxGridKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure lvDxGridKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure lvDxGridClick(Sender: TObject); + procedure lbOrdersMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure ORStaticText1Enter(Sender: TObject); + procedure ORStaticText1Exit(Sender: TObject); + procedure ORStaticText3Enter(Sender: TObject); + procedure ORStaticText3Exit(Sender: TObject); + + private + { Private declarations } + + + inactiveCodes: integer; + procedure MainDriver; + procedure LoadEncounterForm; + procedure AddProbsToDiagnosis; + procedure AddPCEToDiagnosis;//** adds dx's if selected currently from ecf + procedure AddPersonalDxToDiagnosisList; + procedure ListDiagnosisSections(Dest: TStrings); + procedure ListDiagnosisCodes(Section : String); + procedure DiagnosisSelection(SelectedDx: String); + procedure EnsurePrimary; + function IsDxAlreadySelected(SelectedDx: string):boolean; + procedure BuildTempDxList; + procedure AssocDxToOrders; + procedure BuildBADxList; + procedure ListGlobalDx(pOrderIDList: TStringList); + procedure ListConsultDX(pOrderDxList: TStringList); + procedure DeselectGridItems; + procedure ListSelectedOrders; + procedure BuildConsultDxList(pDxList: TStringList); + function AddToWhatList(IsPLChecked:boolean; IsPDLChecked:boolean):string; + procedure AddToProblemList; + procedure AddToPersonalDxList; + procedure InactiveICDNotification; + procedure LoadTempDXLists; + procedure SetAddToCBoxStatus; + procedure SetAddToCheckBoxStatus(ADiagnosis:string); + procedure ClearAndDisableCBoxes; + procedure ProcessMultSelections; + function ProblemListDxFound(pDxCode:string):boolean; + function PersonalListDxFound(pDxCode:string):boolean; + procedure ReSetCheckBoxStatus(pDxCode:String); + + public + FLastHintItemNum: integer; + procedure Enter(theCaller: smallint; pOrderIDList: TStringList); + procedure LoadTempRec(var thisRec: TBADxRecord; thisOrderID: string); + end; + + const + TX799 = '799.9'; + PROBLEM_LIST_SECTION = 'Problem List Items'; + PERSONAL_DX_SECTION = 'Personal Diagnoses List Items'; + +var + deleteDX: boolean; + selectingDX: boolean; + FDxCode: string; + FDxSection: string; + PList: TextFile; + FName: string; + MaxDx : Integer; + GridItems: integer; + UpdatingGrid: boolean; + whoCalled: smallint; + currentOrderIDList: TStringList; + ProblemDxHoldList, PersonalDxHoldList: TStringList; + frmBALocalDiagnoses: TfrmBALocalDiagnoses; + lexIENHoldList: TStringList; //** OrderID^Lexicon IEN + + +implementation + +uses rCore, rODMeds, rODBase, rOrders, fRptBox, fODMedOIFA, + uAccessibleStringGrid,ORNet, fProbs, fOrdersSign, UBAConst, + UBAMessages, fReview, uSignItems, fODConsult, fFrame; + +var + uProblems : TStringList; + BADiagnosis : TStringList; + ECFDiagnosis : TStringList; + uLastDFN : string; + uLastLocation: integer; + ListItem : TListItem; + uPrimaryDxHold: string; + PrimaryChanged: boolean; +{$R *.dfm} + +//************* Entry point *****************// + +procedure TfrmBALocalDiagnoses.Enter(theCaller:smallint; pOrderIDList: TStringList); +begin + selectingDX := False; + deleteDX := False; + fBALocalDiagnoses.whoCalled := theCaller; + currentOrderIDList := pOrderIDList; + frmBALocalDiagnoses := TfrmBALocalDiagnoses.Create(Application); + ResizeFormToFont(TForm(frmBALocalDiagnoses)); + frmBALocalDiagnoses.ShowModal; + frmBALocalDiagnoses.Release; + +end; +procedure TfrmBALocalDiagnoses.FormCreate(Sender: TObject); +begin + MaxDx := 4; + inactiveCodes := 0; + MainDriver; + GridItems := 0; + PrimaryChanged := False; + FLastHintItemNum := -1; + ClearAndDisableCBoxes +end; + +procedure TfrmBALocalDiagnoses.ListDiagnosisSections(Dest: TStrings); +{ return section names in format: ListIndex^SectionName (sections begin with '^') } +var + i: Integer; + x: string; +begin + for i := 0 to BADiagnosis.Count - 1 do if CharAt(BADiagnosis[i], 1) = U then + begin + x := Piece(BADiagnosis[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(BADiagnosis[i], U, 2) + U + x); + end; +end; + +procedure TfrmBALocalDiagnoses.MainDriver; +begin + BADiagnosis := TStringList.Create; + ECFDiagnosis := TStringList.Create; + uProblems := TStringList.Create; + lblPatientName.Caption := Patient.Name; + DeselectGridItems; + + if whoCalled = F_CONSULTS then + ListConsultDX(uBAGlobals.BAConsultDxList) + else + ListGlobalDx(currentOrderIDList); + + LoadEncounterForm; + ListDiagnosisSections(lbSections.Items); + ListSelectedOrders; + LoadTempDXLists; +end; + +procedure TfrmBALocalDiagnoses.LoadTempRec(var thisRec: TBADxRecord; thisOrderID: string); +begin + if frmFrame.TimedOut then exit; + thisRec := TBADxRecord.Create; + UBAGlobals.InitializeNewDxRec(thisRec); + //** Load it + thisRec.FOrderID := thisOrderID; + if pos( '(', UBAGlobals.Dx1) > 0 then + thisRec.FBADxCode := UBACore.StripTFactors(UBAGlobals.Dx1) + else + thisRec.FBADxCode := UBAGlobals.Dx1; + + if pos( '(', UBAGlobals.Dx2) > 0 then + thisRec.FBASecDx1 := UBACore.StripTFactors(UBAGlobals.Dx2) + else + thisRec.FBASecDx1 := UBAGlobals.Dx2; + + if pos( '(', UBAGlobals.Dx3) > 0 then + thisRec.FBASecDx2 := UBACore.StripTFactors(UBAGlobals.Dx3) + else + thisRec.FBASecDx2 := UBAGlobals.Dx3; + + if pos( '(', UBAGlobals.Dx4) > 0 then + thisRec.FBASecDx3 := UBACore.StripTFactors(UBAGlobals.Dx4) + else + thisRec.FBASecDx3 := UBAGlobals.Dx4; + + //** Verify Diagnosis exists prior to adding to list. + if UBAGlobals.Dx1 <> '' then + BADiagnosis.Add(UBAGlobals.Dx1); + if UBAGlobals.Dx2 <> '' then + BADiagnosis.Add(UBAGlobals.Dx2); + if UBAGlobals.Dx3 <> '' then + BADiagnosis.Add(UBAGlobals.Dx3); + if UBAGlobals.Dx4 <> '' then + BADiagnosis.Add(UBAGlobals.Dx4); +end; + +procedure TfrmBALocalDiagnoses.AssocDxToOrders; +var + tmpFlagList: TStringList; + i: integer; + thisOrderID: string; + tempDxRec: TBADxRecord; + {$ifdef debug}thismsg: string;{$endif} +begin + //** Initialize + if Assigned(UBAGlobals.OrderIDList) then + UBAGlobals.OrderIDList.Clear; + tmpFlagList := TStringList.Create; + + //** Associate Dx's to Orders + if whoCalled = F_ORDERS_SIGN then + begin + for i := 0 to fOrdersSign.frmSignOrders.clstOrders.Items.Count-1 do + begin + if (frmSignOrders.clstOrders.Selected[i]) then + begin + thisOrderID := TOrder(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i]).ID; + if Not UBACore.IsOrderBillable(thisOrderID) then Continue; //BAPHII 1.4.16 + LoadTempRec(tempDxRec, thisOrderID); + if ((UBAGlobals.tempDxList <> nil) and (not UBAGlobals.tempDxNodeExists(thisOrderID))) then + UBAGlobals.tempDxList.Add(TBADxRecord(tempDxRec)) + else + begin + //** Order already exists in Dx list, so modifiy existing Dx record + SetBADxListForOrder(tempDxRec, thisOrderID); + end; + //** Add it to OrderID string list + if Assigned(UBAGlobals.OrderIDList) then + UBAGlobals.OrderIDList.Add(thisOrderID); + end; //** if + end; //** for + end + else + if whoCalled = F_REVIEW then + begin + DeselectGridItems; + for i := 0 to fReview.frmReview.lstReview.Items.Count-1 do + begin + if (frmReview.lstReview.Selected[i]) then + begin + thisOrderID := TOrder(fReview.frmReview.lstReview.Items.Objects[i]).ID; + if Not UBACore.IsOrderBillable(thisOrderID) then Continue; //BAPHII 1.4.16 + LoadTempRec(tempDxRec, thisOrderID); + if ((UBAGlobals.tempDxList <> nil) and (not UBAGlobals.tempDxNodeExists(thisOrderID))) then + UBAGlobals.tempDxList.Add(TBADxRecord(tempDxRec)) + else + begin + //** Order already exists in Dx list, so modifiy existing Dx record + SetBADxListForOrder(tempDxRec, thisOrderID); + GetUnsignedOrderFlags(thisOrderID,tmpFlagList); + end; + + //** Add it to OrderID string list + if Assigned(UBAGlobals.OrderIDList) then + UBAGlobals.OrderIDList.Add(thisOrderID); + end; + end; //for + end; +end; + +procedure TfrmBALocalDiagnoses.buOKClick(Sender: TObject); +begin + inherited; +//*** Load selected diagnosis to Temp List*** ///// + + if whoCalled <> F_CONSULTS then + begin + BuildTempDxList; //** Loop thru dx grid and build list of dx's + BuildBADxList; //** Save selected Dx passed to PCE-Diagnosis Tab + AssocDxToOrders; //** Add selected Dx to TList for display and tracking. + end + else + begin + BuildConsultDxList(UBAGlobals.BAConsultDxList); //** Loop thru dx grid and build list of dx's + fODConsult.consultQuickOrder := False; // allow multiple dx's if first selection was a quick order + end; + ProcessAddToItems; //** Items flagged with 'add' will be added to the Problem list table + lvDxGrid.Clear; + frmBALocalDiagnoses.Close; + +end; + +procedure TfrmBALocalDiagnoses.LoadEncounterForm; +{ load the major coding lists that are used by the encounter form for a given location } +var + i: integer; + uTempList: TStringList; + EncDt: TFMDateTime; +begin + uLastLocation := Encounter.Location; + EncDt := Trunc(FMToday); + // ** add problems to the top of diagnoses. + uTempList := TstringList.Create; + BADiagnosis.clear; + tCallV(uTempList,'ORWPCE DIAG', [uLastLocation, EncDt]); + BADiagnosis.add(utemplist.strings[0]); + AddProbsToDiagnosis; + + // ** Loading Diagnoses if previously entered via the Encounter Form + AddPersonalDxToDiagnosisList; + + if Assigned(BAPCEDiagList) then + begin + AddPCEToDiagnosis; + end; + + for i := 1 to (uTempList.Count-1) do + BADiagnosis.add(uTemplist.strings[i]); + +end; + +// ** Add problem-list enteries to Diagnosis selection list +procedure TfrmBALocalDiagnoses.AddProbsToDiagnosis; +var + i : integer; + EncDt: TFMDateTime; + ProblemListTFactors: string; +begin + // ** Get problem list + EncDt := Trunc(FMToday); + uLastDFN := Patient.DFN; + tCallV(UProblems, 'ORWPCE ACTPROB', [Patient.DFN, EncDT]); + + if uProblems.Count > 0 then + begin + BADiagnosis.add('^Problem List Items'); + for i := 1 to (uProblems.count-1) do + begin + // ** add PL Treatment Factors to Dx Display List. + //HDS00006194 if (Piece(uproblems.Strings[i],U,3) = '799.9') then continue; + //HDS00006194 if (Piece(uproblems.Strings[i],U,2) = '799.9') then continue; + // change made to allow 799.9 into selection list + AttachPLTFactorsToDx(ProblemListTFactors,uProblems.Strings[i]); + + if (Piece(uproblems.Strings[i], U, 11) = '#') then + begin + BADiagnosis.add(Piece(uProblems.Strings[i],U,3) + U + // PL code inactive + Piece(uProblems.Strings[i],U,2) + U + '#'); + inc(inactiveCodes); + end + else if (Piece(uproblems.Strings[i], U, 10) = '') then // no inactive date for code + BADiagnosis.add(ProblemListTFactors) + else if (Trunc(StrToFloat(Piece(uProblems.Strings[i], U, 10))) > EncDT) then // code active as of EncDt + BADiagnosis.add(Piece(uProblems.Strings[i],U,3) + U + + ProblemListTFactors ) + else + BADiagnosis.add(Piece(uProblems.Strings[i],U,3) + U + // PL code inactive + Piece(uProblems.Strings[i],U,2) + U + '#'); + end; + end; +end; + +procedure TfrmBALocalDiagnoses.AddPCEToDiagnosis; +var + i: integer; +begin + for i := 0 to (BAPCEDiagList.Count-1) do + begin + if CharAt(BAPCEDiagList.Strings[i], 1) = U then + BADiagnosis.Add(BAPCEDiagList.Strings[i]) //** section header + else + BADiagnosis.add(Piece(BAPCEDiagList.Strings[i],U,1) + U + Piece(BAPCEDiagList.Strings[i],U,2)); + end; +end; + +procedure TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList; +var + personalDxList: TStringList; + personalDxListSorted: TStringList; + i,z: integer; +begin + + personalDxList := TStringList.Create; + personalDxListSorted := TStringlist.Create; + personalDxList.Clear; + personalDxListSorted.Clear; + personalDxList := rpcGetPersonalDxList(User.DUZ); + for i := 0 to personalDxList.Count-1 do + personalDxListSorted.Add(Piece(personalDXList.Strings[i],U,2) + U + (Piece(personalDXList.Strings[i],U,1)) ); + //****** sort personal dx list alphabetical by code name + personalDxListSorted.Sorted := False; + personalDxListSorted.Sorted := True ; + personalDxList.Clear; + for z := 0 to personalDxListSorted.Count-1 do + personalDxList.Add(Piece(personalDXListSorted.Strings[z],U,2) + U + (Piece(personalDXListSorted.Strings[z],U,1)) ); + + + if personalDxList.Count > 0 then + begin + BADiagnosis.add(U + DX_PERSONAL_LIST_TXT); + for i := 0 to personalDxList.Count-1 do + BADiagnosis.Add(personalDxList.Strings[i]); + end + else + BADiagnosis.add('^NO Personal Diagnoses Available'); +end; + + +procedure TfrmBALocalDiagnoses.buCancelClick(Sender: TObject); +begin + lvDxGrid.Clear; + fODConsult.displayDXCode := 'DXCANCEL';// retain original dx in consult dialog + uBAGlobals.TFactors := ''; // clear treatment factors from last order.// hds00006266 + Close; +end; + +procedure TfrmBALocalDiagnoses.Button4Click(Sender: TObject); +begin + Close; +end; + +procedure TfrmBALocalDiagnoses.lbSectionsClick(Sender: TObject); +var i: integer; +begin + for i := 0 to lbSections.Items.Count-1 do + begin + if(lbSections.Selected[i]) then + begin + lvDxGrid.ClearSelection; + ClearAndDisableCBoxes; + ListDiagnosisCodes(lbSections.Items[i]); + FDXSection := lbSections.Items[i]; + Break; + end; + end; +end; + +procedure TfrmBALocalDiagnoses.ListDiagnosisCodes(Section: String); +var +i,j: integer; +a: string; +begin + lbDiagnosis.Clear; + + for i := 0 to BADiagnosis.Count-1 do + begin + a := BADiagnosis.Strings[i]; + if Piece(BADiagnosis[i], U, 2) = (Piece(Section,U,2)) then + Break; + end; + + inc(i); + + for j := i to BADiagnosis.Count-1 do + begin + if Piece(BADiagnosis[j], U, 0) = '' then + break + else + begin + a := Piece(BADiagnosis[j], U, 2) + U + Piece(BADiagnosis[j], U, 1) + U + ' ' + Piece(BADiagnosis[j], U, 3) ; + if a = '' then showmessage('found nothing'); + lbDiagnosis.Items.Add(a); + end; + end; +end; + +procedure TfrmBALocalDiagnoses.btnOtherClick(Sender: TObject); +var + Match: string; + selectedDx: string; + i: integer; + lexIEN: string; +begin + lvDxGrid.ClearSelection; + ProvDx.Code := ''; //** init + lexIEN := ''; + BAPersonalDX := True; //** returns LexIEN in piece 3 + //** Execute LEXICON + LexiconLookup(Match, LX_ICD); + if Match = '' then Exit; + fOrdersSign.ProvDx.Code := Piece(Match, U, 1); + fOrdersSign.ProvDx.Text := Piece(Match, U, 2); + lexIEN := Piece(Match, U, 3); + i := Pos(' (ICD', fOrdersSign.ProvDx.Text); + if i = 0 then i := Length(ProvDx.Text) + 1; + if fOrdersSign.ProvDx.Text[i-1] = '*' then i := i - 2; + fOrdersSign.ProvDx.Text := Copy(fOrdersSign.ProvDx.Text, 1, i - 1); + fOrdersSign.ProvDx.Text := StringReplace(fOrdersSign.ProvDx.Text,':',' ',[rfReplaceAll]); + fOrdersSign.ProvDx.Code := StringReplace(fOrdersSign.ProvDx.Code,':',' ',[rfReplaceAll]); + + selectedDx := (fOrdersSign.ProvDx.Text + ':' + fOrdersSign.ProvDx.Code); + if strLen(PChar(lexIEN) ) > 0 then + lexIENHoldList.Add(fOrdersSign.ProvDx.Code + U + lexIEN); + + //** Begin CQ4819 + if not IsDxAlreadySelected(selectedDx) then + begin + if UBACore.IsICD9CodeActive(fOrdersSign.ProvDx.Code,'ICD',0) then + DiagnosisSelection(selectedDx) + else + InfoBox(BA_INACTIVE_ICD9_CODE_1 + fOrdersSign.ProvDx.Code + BA_INACTIVE_ICD9_CODE_2 , BA_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + end; + //** End CQ4819 + BAPersonalDX := False; + SetAddToCheckBoxStatus(selectedDX); + +end; + +procedure TfrmBALocalDiagnoses.btnPrimaryClick(Sender: TObject); +var + i: shortint; + Primary: boolean; +begin + inherited; + Primary := FALSE; + if lvDxGrid.Items.Count = 0 then Exit; //** Exit if list empty + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if(lvDxGrid.Items[i].Selected) then + begin + if not Primary then + begin + LvDxGrid.Items[i].SubItems[0] := UBAConst.PRIMARY_DX; + Primary :=TRUE; + end; + end + else + LvDxGrid.Items[i].SubItems[0] := UBAConst.SECONDARY_DX ; + end; + + if not Primary then EnsurePrimary; +end; + +procedure TfrmBALocalDiagnoses.btnRemoveClick(Sender: TObject); +begin + inherited; + deleteDX := True; + lvDxGrid.DeleteSelected; + ClearAndDisableCBoxes; + DeselectGridItems; + EnsurePrimary; + deleteDX := False; + // if all dx's removed, clear out displaycode + if lvDxGrid.items.Count = 0 then FODConsult.displayDXCode := ''; +end; + +procedure TfrmBALocalDiagnoses.btnSelectAllClick(Sender: TObject); +var + i: integer; +begin + inherited; + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if cbAddToPDList.Enabled then + SetAddToCheckBoxStatus(lvDxGrid.Items[i].Subitems[1]); //** personal dx + if cbAddToPL.Enabled then + SetAddToCheckBoxStatus(lvDxGrid.Items[i].Subitems[1]);; //** problem dx + end; + + lvDxGrid.MultiSelect := true; + lvDxGrid.SelectAll; + lvDxGrid.Setfocus; +end; + +procedure TfrmBALocalDiagnoses.DiagnosisSelection(SelectedDx: String); +begin +// ** Set up Dx grid + if lvDxGrid.Items.Count < MaxDx then + begin + if lvDxGrid.Items.count = 0 then + begin + ListItem := lvDxGrid.Items.Add; // ** add the row instance prior to adding text // adding text. + ListItem.SubItems.Add(UBAConst.PRIMARY_DX); + ListItem.SubItems.Add(SelectedDX); + end + else + begin + DeselectGridItems; + ListItem := lvDxGrid.Items.Add; // ** add the row instance prior to adding text. + ListItem.SubItems.Add(UBAConst.SECONDARY_DX); + ListItem.SubItems.Add(SelectedDX); + end; + end + else + begin + DeselectGridItems; + ShowMessage(BA_MAX_DX); //** max 4 diagnoses per order + end; +end; + +// insure unique diagnoses entered. +function TfrmBALocalDiagnoses.IsDxAlreadySelected(SelectedDx: string):boolean; +var i: integer; +x: string; +begin + Result := False; + with lvDxGrid do + begin + for i := 0 to lvDxGrid.Items.Count-1 do + begin + x := lvDxGrid.Items[i].Subitems[1]; + if Piece(x,':',2) = Piece(SelectedDx,':',2) then + begin + Result := True; + Break; + end; + end; + end; +end; + +function TFrmBALocalDiagnoses.ProblemListDxFound(pDxCode:string):boolean; +var + i: integer; + problemDx: string; +begin + Result := False; + for i := 0 to ProblemDXHoldList.Count -1 do + begin + problemDX := ProblemDXHoldList.Strings[i]; + problemDX := Piece(ProblemDX,':',2); + if pDxCode = problemDX then + begin + Result := True; + break; + end; + end;//** for +end; + +function TFrmBALocalDiagnoses.PersonalListDxFound(pDxCode:string):boolean; +var + i: integer; + personalDx: string; +begin + Result := False; + for i := 0 to PersonalDxHoldList.Count -1 do + begin + personalDX := PersonalDXHoldList.Strings[i]; + personalDX := Piece(personalDX,':',2); + if pDxCode = personalDX then + begin + Result := True; + break; + end; + end; +end; + + +procedure TfrmBALocalDiagnoses.EnsurePrimary; +var + Primary: boolean; + i : integer; +begin + Primary := False; + + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if LvDxGrid.Items[i].SubItems[0] = UBAConst.PRIMARY_DX then + begin + Primary := True; + Break; + end; + end; + + if not Primary then + begin + if lvDxGrid.Items.Count > 0 then + lvDxGrid.Items[0].Subitems[0] := UBAConst.PRIMARY_DX; + end; +end; + +procedure TfrmBALocalDiagnoses.cbAddToPLClick(Sender: TObject); +var i: integer; +begin + inherited; + if cbAddToPL.Checked then + begin + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if(lvDxGrid.Items[i].Selected) then + begin + lvDxGrid.Items[i].Caption := AddToWhatList(cbAddToPL.Checked,cbAddToPDList.Checked); + cbaddToPL.Checked := true; + lvDxGrid.Items[i].Selected := True; + lvDxGrid.SetFocus; + end; + end; + end + else + begin + if not cbaddToPL.Checked then + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if(lvDxGrid.Items[i].Selected) then + begin + lvDxGrid.Items[i].Caption := AddToWhatList(cbAddToPL.Checked,cbAddToPDList.Checked); + lvDxGrid.Items[i].Selected := True; + lvDxGrid.SetFocus; + end; + end; +end; + EnsurePrimary; +end; + +procedure TfrmBALocalDiagnoses.ProcessAddToItems; +begin + AddToProblemList; + AddToPersonalDxList; +end; + + +procedure TfrmBALocalDiagnoses.AddToPersonalDxList; +var + i,j: integer; + tempcode,thisCode : string; + tempList, addToPDList: TStringList; +begin + templist := TStringList.Create; + addToPDList := TStringList.Create; + tempList.Clear; + addTOPDList.Clear; + with lvDxGrid do + begin + for i := 0 to Items.Count-1 do + begin + if StrPos(PChar(LvDxGrid.Items[i].Caption),PChar(ADD_TO_PERSONAL_DX_LIST)) <> nil then + begin + tempCode := lvDxGrid.Items[i].Subitems[1]; + tempCode := Piece(tempCode, ':', 2); + tempList.Add(tempCode); + end; + end; + end; + + //** add Lexicon IEN to list (if any) + for i := 0 to tempList.Count -1 do + begin + thisCode := tempList.Strings[i]; + if lexIENHoldList.Count > 0 then //HDS6393 + begin + for j := 0 to lexIENHoldList.Count-1 do + begin + if thisCode = Piece(lexIENHoldList.Strings[j],U,1) then + AddToPDList.Add(thisCode + U + Piece(lexIENHoldList.Strings[j],U,2) ) // code was selected from Lexicon + else + AddToPDList.Add(thisCode); + end; + end + else //HDS6393 + AddToPDList.Add(thisCode); // code was not selected from the Lexicon. //HDS6393 + end; + if AddToPDList.Count > 0 then + rpcAddToPersonalDxList(User.DUZ,AddToPDList); +end; + + +procedure TfrmBALocalDiagnoses.AddToProblemList; +var + i: integer; + tempCode, passCode: string; + NewList: TStringList; + PatientInfo:string; + ProviderID:string; + ptVAMC:string; + +begin + PatientInfo := Patient.DFN + U + Patient.Name + U; + ProviderID := IntToStr(Encounter.Provider); + ptVAMC := ''; + NewList := TStringList.Create; + NewList.Clear; + // ** Add Diagnosis to Problem List if flagged with 'Add' in First Col. + with lvDxGrid do + begin + for i := 0 to Items.Count-1 do + begin + if StrPos(PChar(LvDxGrid.Items[i].Caption),PChar(ADD_TO_PROBLEM_LIST)) <> nil then + begin + tempCode := lvDxGrid.Items[i].Subitems[1]; + // ** passCode consists of Dx Code '^' Dx Desc ///// + passCode := Piece(tempCode,':',2) + U + Piece(tempCode,':',1); + if Piece(passCode,U,1) <> TX799 then + begin + NewList := BAPLRec.BuildProblemListDxEntry(passCode); + CallV('ORQQPL ADD SAVE',[PatientInfo, ProviderID, BAPLPt.PtVAMC, NewList]); + NewList.Free; + end; + end; + end; + end; +end; + +procedure TfrmBALocalDiagnoses.BuildConsultDxList(pDxList: TStringList); // ** adds grid items to BAConsultDxList - uConsults +var + i: integer; + x: string; +begin + UBAGlobals.BAConsultDxList.Clear; + + if lvDxGrid.Items.Count > 0 then + with lvDxGrid do + begin + for i := 0 to Items.Count-1 do + begin + if i = 0 then fODConsult.displayDXCode := lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1]; + x:= lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1]; + if Piece(lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1],U,1) = PRIMARY_DX then + fODConsult.displayDXCode := Piece(lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1],U,2); + uBAGlobals.BAConsultDxList.Add(lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1]); + end; + uBAGlobals.BAConsultDxList.Sort; + end + else + uBAGlobals.BAConsultDxList.Clear; +end; + + +procedure TfrmBALocalDiagnoses.BuildTempDxList; +var + i : integer; + tempStr1,tempStr2, tempStr3: string; + tempFactor1,x: string; + tempStrList: TStringList; +begin + tempStrList := TStringList.Create; + if Assigned(tempStrList) then tempStrList.Clear; + + UBAGlobals.Dx1 := ''; + UBAGlobals.Dx2 := ''; + UBAGlobals.Dx3 := ''; + UBAGlobals.Dx4 := ''; + UBAGlobals.TFactors := ''; + tempstr1 := ''; + tempstr2 := ''; + tempstr3 := ''; + tempFactor1 := ''; + + if lvDxGrid.Items.Count > 0 then + with lvDxGrid do + begin + for i := 0 to Items.Count-1 do + begin + x := lvDxGrid.Items[i].Subitems[0]; + x := lvDxGrid.Items[i].Subitems[1]; + x:= lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1]; + tempStrList.Add(lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1]); + end; + if tempStrList.Count > 0 then + tempStrList.Sort; //** Sort list Ascending order. + with tempStrList do + begin + tempFactor1 := (Piece(tempStrList.Strings[0],'(',2)); //** 0 = Primary + tempFactor1 := (Piece(tempFactor1,')',1) ); + if (Length(tempFactor1) > 0) then + UBAGLobals.TFactors := tempFactor1; + for i := 0 to tempStrList.Count-1 do + begin + tempstr1 := (Piece(tempStrList.Strings[i],U,2)); + tempstr2 := (Piece(tempstr1,':',1) + '^'+ Piece(tempstr1,':',2)); + if i = 0 then //** has primary dx changed + begin + if tempStr2 <> uPrimaryDxHold then + begin + if tempStr2 <> '' then + PrimaryChanged := True; + end; + end; + if tempstr2 = U then + tempstr2 := DXREC_INIT_FIELD_VAL; + case i of + 0: UBAGlobals.Dx1 := tempStr2; + 1: UBAGlobals.Dx2 := tempStr2; + 2: UBAGlobals.Dx3 := tempStr2; + 3: UBAGlobals.Dx4 := tempStr2; + else + Exit; + end; + end; + end; + end + else + if lvDxGrid.Items.Count = 0 then + begin + UBAGlobals.Dx1 := DXREC_INIT_FIELD_VAL; + UBAGlobals.Dx2 := DXREC_INIT_FIELD_VAL; + UBAGlobals.Dx3 := DXREC_INIT_FIELD_VAL; + UBAGlobals.Dx4 := DXREC_INIT_FIELD_VAL; + end; +end; + +procedure TfrmBALocalDiagnoses.BuildBADxList; +begin + if not assigned(BADiagnosisList) then + begin + BADiagnosisList := TStringList.Create; + BADiagnosisList.Duplicates := dupIgnore; + BADiagnosisList.Sorted := True; + end; + + if UBAGlobals.Dx1 <> '' then + BADiagnosisList.Add(U + UBAGlobals.Dx1 + U); + + if UBAGlobals.Dx2 <> '' then + BADiagnosisList.Add(U + UBAGlobals.Dx2 + U); + + if UBAGlobals.Dx3 <> '' then + BADiagnosisList.Add(U + UBAGlobals.Dx3 + U); + + if UBAGlobals.Dx4 <> '' then + BADiagnosisList.Add(U + UBAGlobals.Dx4 + U); +end; + +procedure TfrmBALocalDiagnoses.ListConsultDX(pOrderDxList: TStringList); +var + i: integer; + dx1,dx2,dx3,dx4: string; + begin + if UBAGlobals.BAConsultDxList.Count = 0 then Exit; + dx1 := ''; + dx2 := ''; + dx3 := ''; + dx4 := ''; + for i := 0 to BAConsultDxList.Count-1 do + begin + case i of + 0: dx1 := BAConsultDxList.Strings[i]; + 1: dx2 := BAConsultDxList.Strings[i]; + 2: dx3 := BAConsultDxList.Strings[i]; + 3: dx4 := BAConsultDxList.Strings[i]; + end; + end; + + ListItem := lvDxGrid.Items.Add; + if Length(dx1) > 0 then + ListItem.SubItems.Add(UBAConst.PRIMARY_DX) + else + ListItem.SubItems.Add(DXREC_INIT_FIELD_VAL); + ListItem.SubItems.Add(Piece(dx1,U,2)); + + if Length(dx2) > 1 then + begin + ListItem := lvDxGrid.Items.Add; + ListItem.SubItems.Add(UBAConst.SECONDARY_DX); + ListItem.SubItems.Add(Piece(dx2,U,2)); + end; + + if Length(dx3) > 1 then + begin + ListItem := lvDxGrid.Items.Add; + ListItem.SubItems.Add(UBAConst.SECONDARY_DX); + ListItem.SubItems.Add(Piece(dx3,U,2)); + end; + + if Length(dx4) > 1 then + begin + ListItem := lvDxGrid.Items.Add; + ListItem.SubItems.Add(UBAConst.SECONDARY_DX); + ListItem.SubItems.Add(Piece(dx4,U,2)); + end; +end; + +procedure TfrmBALocalDiagnoses.ListGlobalDx(pOrderIDList: TStringList); // need to get rec based on orderid +var + i :integer; +begin + + if not Assigned(UBAGlobals.globalDxRec) then Exit; + + if (Assigned(UBAGlobals.globalDxRec)) and (UBAGlobals.globalDxRec.FBADxCode = '') then Exit; + + for i := 0 to pOrderIDList.Count-1 do + begin + if tempDxNodeExists(pOrderIDList.Strings[i]) then + begin + UBAGlobals.globalDxRec.FOrderID := pOrderIDList.Strings[i]; + break; + end; + end; + ListItem := lvDxGrid.Items.Add; + if Length(UBAGlobals.globalDxRec.FBADxCode) > 0 then + ListItem.SubItems.Add(UBAConst.PRIMARY_DX) + else + ListItem.SubItems.Add(DXREC_INIT_FIELD_VAL); + uPrimaryDxHold := UBAGlobals.globalDxRec.FBADxCode; + ListItem.SubItems.Add(UBAGlobals.globalDxRec.FBADxCode); + + if Length(UBAGlobals.globalDxRec.FBASecDx1) > 1 then + begin + ListItem := lvDxGrid.Items.Add; + ListItem.SubItems.Add(UBAConst.SECONDARY_DX); + ListItem.SubItems.Add(UBAGlobals.globalDxRec.FBASecDx1); + end; + + if Length(UBAGlobals.globalDxRec.FBASecDx2) > 1 then + begin + ListItem := lvDxGrid.Items.Add; + ListItem.SubItems.Add(UBAConst.SECONDARY_DX); + ListItem.SubItems.Add(UBAGlobals.globalDxRec.FBASecDx2); + end; + + if Length(UBAGlobals.globalDxRec.FBASecDx3) > 1 then + begin + ListItem := lvDxGrid.Items.Add; + ListItem.SubItems.Add(UBAConst.SECONDARY_DX); + ListItem.SubItems.Add(UBAGlobals.globalDxRec.FBASecDx3); + end; +end; + +procedure TfrmBALocalDiagnoses.lbDiagnosisClick(Sender: TObject); +var + i : integer; + newDxCode, initDxCode: string; +begin + inherited; + for i := 0 to lbDiagnosis.Count-1 do + begin + if(lbDiagnosis.Selected[i]) then + begin + initDxCode := StringReplace(lbDiagnosis.Items[i],':',' ',[rfReplaceAll]); + newDxCode := (Piece(initDxCode,U,1) + ':'+ Piece(initDxCode,U,2)); + if UBACore.IsICD9CodeActive(Piece(newDxCode,':',2),'ICD',Encounter.DateTime) then + begin + if not IsDxAlreadySelected(newDxCode) then + begin + DiagnosisSelection(newDxCode); + SetAddToCheckBoxStatus(newDxCode); + end + else + begin + DeselectGridItems; + lvDxGrid.Items[lvDxGrid.items.Count-1].Selected := true; + InfoBox(BA_DUP_DX_DISALLOWED_1 + Piece(newDxCode,':',2) + BA_DUP_DX_DISALLOWED_2,BA_DUP_DX ,MB_ICONINFORMATION or MB_OK); + end; + end + else + InfoBox(BA_INACTIVE_ICD9_CODE_1 + Piece(newDxCode,':',2) + BA_INACTIVE_ICD9_CODE_2 , BA_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + end; + end; +end; + + +procedure TfrmBALocalDiagnoses.DeselectGridItems; +var +i: integer; +begin + if lvDxGrid.Items.Count = 0 then + lvDxGrid.Clear + else + begin + for i := 0 to lvDxGrid.Items.Count-1 do + lvDxGrid.Items[i].Selected := false; + end; +end; + +procedure TfrmBALocalDiagnoses.FormActivate(Sender: TObject); +begin + inherited; + InactiveICDNotification; +end; + +procedure TfrmBALocalDiagnoses.FormShow(Sender: TObject); +begin + lbSections.Selected[0] := false; + + if lbSections.Count > 0 then + ListDiagnosisCodes(lbSections.Items[0]); +end; + +procedure TfrmBALocalDiagnoses.ListSelectedOrders; +var i: integer; +begin + if BAtmpOrderList.Count > 0 then + try + for i:= 0 to BAtmpOrderList.Count -1 do + begin + lbOrders.Items.Add(StringReplace(BAtmpOrderList.Strings[i],CRLF,' ',[rfReplaceAll]) ); + + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in frmBALocalDiagnoses.ListSelectedOrders()');{$endif} + raise; + end; + end; //try + +end; + +procedure TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList1Click(Sender: TObject); +var + i: integer; + pCodeList: TStringList; + selectedList: TStringList; +begin + inherited; + pCodeList := TStringList.Create; + selectedList := TStringList.Create; + + if Assigned(pCodeList) then pCodeList.Clear; + if Assigned(selectedList) then selectedList.Clear; + + try + for i := 0 to lbDiagnosis.Items.Count-1 do + if(lbDiagnosis.Selected[i]) then + selectedList.Add((Piece(lbDiagnosis.Items[i],U,2)) ); + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in frmBALocalDiagnoses.AddDiagnosisToPersonalDiagnosesListClick()');{$endif} + raise; + end; + end; //try + + if selectedList.Count > 0 then + if UBACore.rpcAddToPersonalDxList(User.DUZ,selectedList) then + begin + ShowMessage(UBAMessages.BA_PERSONAL_LIST_UPDATED); + LoadEncounterForm; + Refresh; + end; + +end; + +procedure TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click( + Sender: TObject); + var i:integer; + selectedList: TStringList; +begin + inherited; + selectedList := TStringList.Create; + if Assigned(selectedList) then selectedList.create; + + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if(lvDxGrid.Items[i].Selected) then + selectedList.Add( piece(LvDxGrid.Items[i].SubItems[1],':',2) ); + end; + if UBACore.rpcAddToPersonalDxList(User.DUZ,selectedList) then + begin + ShowMessage(UBAMessages.BA_PERSONAL_LIST_UPDATED); + LoadEncounterForm; + Refresh; + end; +end; + + +procedure TfrmBALocalDiagnoses.cbAddToPDListClick(Sender: TObject); +var i: integer; +begin + inherited; + + if cbAddToPDList.Checked then + begin + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if(lvDxGrid.Items[i].Selected) then + begin + lvDxGrid.Items[i].Caption := AddToWhatList(cbAddToPL.Checked,cbAddToPDList.Checked); + cbaddToPDList.Checked := true; + lvDxGrid.SetFocus; + end + else + if(lvDxGrid.Items[i].Selected) then + begin + lvDxGrid.Items[i].Caption := AddToWhatList(cbAddToPL.Checked,cbAddToPDList.Checked); + cbaddToPL.Checked := false; + lvDxGrid.SetFocus; + end; + end; + end + else + begin + if not cbaddToPDList.Checked then + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if(lvDxGrid.Items[i].Selected) then + lvDxGrid.Items[i].Caption := AddToWhatList(cbAddToPL.Checked,cbAddToPDList.Checked); + end; +end; + EnsurePrimary; +end; + +function TfrmBALocalDiagnoses.AddToWhatList(IsPLChecked:boolean; IsPDLChecked:boolean):string; +begin + Result := ''; + + if IsPLChecked and IsPDLChecked then + Result := 'PL/PD' + else + if IsPLChecked then + Result := 'PL' + else + if IsPDLChecked then + Result := 'PD'; + +end; + +procedure TfrmBALocalDiagnoses.InactiveICDNotification; +begin + if inactiveCodes > 0 then + begin + if (not BAFWarningShown) and (inactiveCodes > 0) then + begin + InfoBox('There are ' + IntToStr(inactiveCodes) + ' active problem(s) flagged with a "#" as having' + #13#10 + + 'inactive ICD codes as of today''s date. Please correct these' + #13#10 + + 'problems via the Problems Tab - Change" option.', 'Inactive ICD Codes Found', MB_ICONWARNING or MB_OK); + BAFWarningShown := True; + end; + end; +end; + +procedure TfrmBALocalDiagnoses.lbSectionsDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +begin + inherited; + lbsections.Font.Size := MainFontSize; + if (control as Tlistbox).items[index] = DX_PROBLEM_LIST_TXT then + (Control as TListBox).Canvas.Font.Style := [fsBold] + else + if (control as Tlistbox).items[index] = DX_PERSONAL_LIST_TXT then + (Control as TListBox).Canvas.Font.Style := [fsBold] + else + if (control as Tlistbox).items[index] = DX_ENCOUNTER_LIST_TXT then + (Control as TListBox).Canvas.Font.Style := [fsBold]; + + (Control as TListBox).Canvas.TextOut(Rect.Left+2, Rect.Top+1, (Control as + TListBox).Items[Index]); {** display the text } +end; + +//** Loads string lists containing Diagnoses contained in the Problem and Personal DX List. +//** These lists will be used to insure duplicates can not be entered via add to check boxes. +procedure TfrmBALocalDiagnoses.LoadTempDXLists; +var + i: integer; + sChar,probDX,x: string; + updatingProblemList, updatingPersonalList: boolean; +begin + sChar := ')'; + updatingProblemList := FALSE; + updatingPersonalList := FALSE; + if Assigned(ProblemDxHoldList) then ProblemDxHoldList.Clear; + if Assigned(PersonalDxHoldList) then PersonalDxHoldList.Clear; + for i := 0 to BADiagnosis.Count - 1 do + begin + x := BADiagnosis.Strings[i]; + if CharAt(BADiagnosis[i], 1) = U then + begin + if Piece(BADiagnosis.Strings[i],U,2) = PROBLEM_LIST_SECTION then + begin + updatingProblemList := TRUE; + updatingPersonalList := FALSE; + end + else + begin + if Piece(BADiagnosis.Strings[i],U,2) = PERSONAL_DX_SECTION then + begin + updatingProblemList := FALSE; + updatingPersonalList := TRUE; + end + else + begin + updatingProblemList := FALSE; + updatingPersonalList := FALSE; + end; + end; + end; + if updatingProblemList then + begin + if Piece(BADiagnosis.Strings[i],U,2) = PROBLEM_LIST_SECTION then lbSections.Selected[0] := true; + if strPos(pChar(BADiagnosis.Strings[i]) , pChar(sChar) ) <> nil then + begin + probDX := StringReplace(BADiagnosis.Strings[i],'(','^',[rfReplaceAll]); + probDX := StringReplace(probDX,')','^',[rfReplaceAll]); + probDX := Piece(probDX,U,2) + ':' + Piece(probDX,U,1); + probDX := StringReplace(probDX,' ','',[rfReplaceAll]); + ProblemDXHoldList.Add(probDX); + end + else + ProblemDxHoldList.Add(Piece(BADiagnosis.Strings[i],U,2) +':' +Piece(BADiagnosis.Strings[i],U,1) ); + end + else + if updatingPersonalList then + PersonalDxHoldList.Add(Piece(BADiagnosis.Strings[i],U,2) + ':' + Piece(BADiagnosis.Strings[i],U,1) ); + end; +end; + +procedure TfrmBALocalDiagnoses.lvDxGridKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + inherited; + if(ssShift in Shift) or(ssCtrl in Shift) then + selectingDX := True; +end; + +//** set Add To Check Boxes status. +procedure TfrmBALocalDiagnoses.SetAddToCBoxStatus; +var + i: integer; + x: string; +begin + UpdatingGrid := False; + + // ** detemine status of "add to" check boxes..... + + //** if dx selected already exists in Problem or Personal Dx List then + //** add to checkboxes are disabled. + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if lvDxGrid.Items[i].Selected then + begin + x:= lvDxGrid.Items[i].Subitems[1]; + lvDxGrid.Items[i].Selected := True; + SetAddToCheckBoxStatus(lvDxGrid.Items[i].Subitems[1]); + lvDxGrid.SetFocus; + end; + end; + + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if lvDxGrid.Items[i].Selected then + if lvDxGrid.Items[i].Caption = 'PL/PD' then + begin + UpdatingGrid := True; + lvDxGrid.Items[i].Selected := True; + cbaddToPL.Checked := True; + cbAddToPDList.Checked := true; + ResetCheckBoxStatus(lvDxGrid.Items[i].Subitems[1]); + lvDxGrid.SetFocus; + end + else if lvDxGrid.Items[i].Caption = 'PL' then + begin + UpdatingGrid := True; + lvDxGrid.Items[i].Selected := True; + cbaddToPL.Checked := True; + cbAddToPDList.Checked := False; + ResetCheckBoxStatus(lvDxGrid.Items[i].Subitems[1]); + lvDxGrid.SetFocus; + end + else if lvDxGrid.Items[i].Caption = 'PD' then + begin + UpdatingGrid := True; + lvDxGrid.Items[i].Selected := True; + cbaddToPL.Checked := False; + cbAddToPDList.Checked := True; + ResetCheckBoxStatus(lvDxGrid.Items[i].Subitems[1]); + lvDxGrid.SetFocus; + end; + end; + // ** end determine check box status................ +end; + + +procedure TfrmBALocalDiagnoses.lvDxGridKeyUp(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + inherited; + selectingDX := False; +end; + +procedure TfrmBALocalDiagnoses.lvDxGridClick(Sender: TObject); +begin + inherited; +if deleteDX then Exit; + +if lvDxGrid.SelCount > 1 then + ProcessMultSelections +else + SetAddToCBoxStatus; +end; + +procedure TfrmBALocalDiagnoses.lbOrdersMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); +var + lstIndex: integer; +begin + inherited; + //** CQ4739 + with lbOrders do + begin + lstIndex := SendMessage(Handle, LB_ITEMFROMPOINT, 0, MakeLParam(X, Y)); + if (lstIndex >= 0) and (lstIndex <= Items.Count-1) then + Hint := Items[lstIndex] + else + Hint := ''; + end; + //** end CQ4739 +end; + +procedure TfrmBALocalDiagnoses.SetAddToCheckBoxStatus(ADiagnosis:string); +var + selectedDX :string; + i: integer; + begin + if (cbAddToPL.Checked or cbAddToPDList.Checked) then + begin + for i := 0 to LvDxGrid.Items.Count-1 do + begin + if(lvDxGrid.Items[i].Selected) then + begin + if StrPos(PChar(LvDxGrid.Items[i].Caption),PChar(ADD_TO_PERSONAL_DX_LIST)) <> nil then Exit; + if StrPos(PChar(LvDxGrid.Items[i].Caption),PChar(ADD_TO_PROBLEM_LIST)) <> nil then Exit; + end; + end; + end; + + if lvDxGrid.SelCount = 0 then + begin + ClearAndDisableCBoxes; + Exit; + end; + selectedDX:= Piece(ADiagnosis,':',2); + //** loop thru problem list dx, if match check box disabled + if ProblemListDxFound(selectedDx) then + begin + cbAddToPL.Enabled := False; + cbAddToPL.Checked := False; + end + else + begin + cbAddToPL.Enabled := True; + cbAddToPL.Checked := False; + end; + + if PersonalListDxFound(selectedDx) then + begin + cbAddToPDList.Enabled := False; + cbAddToPDList.Checked := False; + end + else + begin + cbAddToPDList.Enabled := True; + cbAddToPDList.Checked := False; + end; + +end; + +procedure TfrmBALocalDiagnoses.ProcessMultSelections; +var + i: integer; + selectedDX: string; + PLFound, PDLFound: boolean; +begin + PLFound := False; + PDLFound := False; + for i := 0 to lvDxGrid.Items.Count-1 do + begin + if(lvDxGrid.Items[i].Selected) then + begin + selectedDX := lvDxGrid.Items[i].Subitems[1]; + selectedDX := Piece(selectedDX,':',2); + if not PLFound then + PLFound := ProblemListDxFound(selectedDX); + if not PDLFound then + PDLFound := PersonalListDXFound(selectedDX); + end; + end; + if not PDLFound then + begin + cbAddToPDList.Enabled := True; + cbAddTOPDList.Checked := False; + end + else + begin + cbAddToPDList.Enabled := False; + cbAddTOPDList.Checked := False; + end; + if not PLFound then + begin + cbAddToPL.Enabled := True; + cbAddToPL.Checked := False; + end + else + begin + cbAddToPL.Enabled := False; + cbAddToPL.Checked := False; + end; +end; + +procedure TfrmBALocalDiagnoses.ClearAndDisableCBoxes; +begin + cbAddToPL.Checked := False; + cbAddToPDList.Checked := False; + lvDxGrid.ClearSelection; + cbAddToPL.Enabled := False; + cbAddToPDList.Enabled := False; +end; + +procedure TfrmBALocalDiagnoses.ORStaticText1Enter(Sender: TObject); +begin + inherited; + (Sender as TORStaticText).Font.Style := [fsBold]; +end; + +procedure TfrmBALocalDiagnoses.ORStaticText1Exit(Sender: TObject); +begin + inherited; + (Sender as TORStaticText).Font.Style := []; +end; + +procedure TfrmBALocalDiagnoses.ORStaticText3Enter(Sender: TObject); +begin + inherited; + (Sender as TORStaticText).Font.Style := [fsBold]; +end; + +procedure TfrmBALocalDiagnoses.ORStaticText3Exit(Sender: TObject); +begin + inherited; + (Sender as TORStaticText).Font.Style := []; +end; + +procedure TfrmBALocalDiagnoses.ResetCheckBoxStatus(pDxCode:string); +begin + if Not ProblemListDxFound(pDxCode) then + cbAddToPL.Enabled := True; + if Not PersonalListDxFound(pDxCode) then + cbAddToPDList.Enabled := True; + + +end; + + +Initialization + BADiagnosis := TStringList.Create; + currentOrderIDList := TStringList.Create; + ProblemDxHoldList := TStringList.Create; + PersonalDxHoldList := TStringList.Create; + lexIENHoldList := TStringList.Create; + BADiagnosis.Clear; + currentOrderIDList.Clear; + PersonalDxHoldList.Clear; + ProblemDxHoldList.Clear; + lexIENHoldList.Clear; + +end. + diff --git a/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm b/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm new file mode 100644 index 0000000..0c6e861 --- /dev/null +++ b/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm @@ -0,0 +1,312 @@ +inherited frmBAOptionsDiagnoses: TfrmBAOptionsDiagnoses + Left = 231 + Top = 183 + Width = 747 + Height = 557 + Caption = 'Personal Diagnoses List' + Constraints.MinHeight = 100 + Constraints.MinWidth = 200 + OnActivate = FormActivate + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 739 + Height = 530 + Align = alClient + Caption = 'Panel1' + Constraints.MinHeight = 344 + Constraints.MinWidth = 576 + TabOrder = 0 + object Panel2: TPanel + Left = 16 + Top = 10 + Width = 713 + Height = 519 + Caption = 'Panel1' + TabOrder = 0 + object Splitter1: TSplitter + Left = 458 + Top = 26 + Width = -3 + Height = 463 + Cursor = crHSplit + end + object Splitter2: TSplitter + Left = 169 + Top = 26 + Width = 7 + Height = 463 + Cursor = crHSplit + end + object Splitter3: TSplitter + Left = 457 + Top = 26 + Width = 1 + Height = 463 + Cursor = crHSplit + end + object Splitter5: TSplitter + Left = 455 + Top = 26 + Width = 2 + Height = 463 + Cursor = crHSplit + end + object pnlBottom: TPanel + Left = 1 + Top = 489 + Width = 711 + Height = 29 + Align = alBottom + BevelOuter = bvNone + Caption = ' ' + TabOrder = 0 + DesignSize = ( + 711 + 29) + object btnOther: TButton + Left = 13 + Top = 3 + Width = 129 + Height = 23 + Anchors = [akLeft, akBottom] + Caption = 'Other &Diagnoses' + Constraints.MinHeight = 23 + Constraints.MinWidth = 115 + TabOrder = 0 + OnClick = btnOtherClick + end + object btnOK: TButton + Left = 523 + Top = 3 + Width = 75 + Height = 23 + Anchors = [akRight, akBottom] + Caption = '&OK' + TabOrder = 1 + OnClick = btnOKClick + end + object Button1: TButton + Left = 632 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Caption = '&Cancel' + TabOrder = 2 + OnClick = Button1Click + end + end + object Panel3: TPanel + Left = 1 + Top = 26 + Width = 168 + Height = 463 + Align = alLeft + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + object lbSections: TORListBox + Left = 0 + Top = 17 + Width = 161 + Height = 446 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 13 + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = lbSectionsClick + OnEnter = lbSectionsEnter + ItemTipColor = clWindow + LongList = False + Pieces = '3' + end + object hdrCntlDxSections: THeaderControl + Left = 0 + Top = 0 + Width = 168 + Height = 17 + DragReorder = False + Sections = < + item + Alignment = taCenter + ImageIndex = -1 + Text = 'Diagnoses Sections' + Width = 50 + end> + end + end + object Panel4: TPanel + Left = 176 + Top = 26 + Width = 201 + Height = 463 + Align = alLeft + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + object lbDiagnosis: TORListBox + Left = 0 + Top = 17 + Width = 201 + Height = 446 + Align = alClient + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + Sorted = True + TabOrder = 0 + OnClick = lbDiagnosisChange + OnEnter = lbDiagnosisEnter + ItemTipColor = clWindow + LongList = False + Pieces = '1,2,3' + OnChange = lbDiagnosisChange + end + object hdrCntlDxAdd: THeaderControl + Left = 0 + Top = 0 + Width = 201 + Height = 17 + DragReorder = False + Sections = < + item + Alignment = taCenter + ImageIndex = -1 + Text = 'Diagnoses to add' + Width = 50 + end> + end + end + object Panel5: TPanel + Left = 455 + Top = 26 + Width = 257 + Height = 463 + Align = alClient + BevelOuter = bvNone + Caption = 'Panel5' + TabOrder = 3 + object lbPersonalDx: TORListBox + Left = 0 + Top = 17 + Width = 257 + Height = 446 + Align = alClient + Anchors = [akRight] + Color = clInfoBk + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + Sorted = True + TabOrder = 0 + OnClick = lbPersonalDxClick + ItemTipColor = clWindow + LongList = False + Pieces = '2,1,3' + end + object hdrCntlDx: THeaderControl + Left = 0 + Top = 0 + Width = 257 + Height = 17 + DragReorder = False + Sections = < + item + Alignment = taCenter + ImageIndex = -1 + MinWidth = 150 + Text = 'Diagnoses Codes' + Width = 150 + end> + OnSectionClick = hdrCntlDxSectionClick + end + end + object pnlTop: TPanel + Left = 1 + Top = 1 + Width = 711 + Height = 25 + Align = alTop + BevelOuter = bvNone + TabOrder = 4 + object StaticText3: TStaticText + Left = 472 + Top = 8 + Width = 140 + Height = 17 + Caption = 'Personal Diagnoses List' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + TabStop = True + end + end + object Panel7: TPanel + Left = 377 + Top = 26 + Width = 78 + Height = 463 + Align = alLeft + BevelOuter = bvNone + TabOrder = 5 + DesignSize = ( + 78 + 463) + object btnAdd: TBitBtn + Left = 1 + Top = 88 + Width = 75 + Height = 25 + Anchors = [akLeft, akTop, akRight] + Caption = '&Add' + Constraints.MinHeight = 25 + Constraints.MinWidth = 70 + Enabled = False + TabOrder = 0 + OnClick = btnAddClick + NumGlyphs = 2 + end + object btnDelete: TBitBtn + Left = 2 + Top = 136 + Width = 75 + Height = 25 + Caption = '&Remove' + Constraints.MinHeight = 25 + Constraints.MinWidth = 70 + Enabled = False + TabOrder = 1 + OnClick = btnDeleteClick + NumGlyphs = 2 + end + end + end + end +end diff --git a/CPRS-Chart/BA/fBAOptionsDiagnoses.pas b/CPRS-Chart/BA/fBAOptionsDiagnoses.pas new file mode 100644 index 0000000..efd5d58 --- /dev/null +++ b/CPRS-Chart/BA/fBAOptionsDiagnoses.pas @@ -0,0 +1,652 @@ +unit fBAOptionsDiagnoses; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, fAutoSz, StdCtrls, ORCtrls, ExtCtrls, ORFn, UCore, RCore, ORNet, + UBAGlobals, fPCELex, rPCE, Buttons, UBACore, UBAMessages, UBAConst, + ComCtrls; + +type + TfrmBAOptionsDiagnoses = class(TfrmAutoSz) + Panel1: TPanel; + Panel2: TPanel; + Splitter1: TSplitter; + Splitter2: TSplitter; + Splitter3: TSplitter; + pnlBottom: TPanel; + btnOther: TButton; + btnOK: TButton; + Panel3: TPanel; + lbSections: TORListBox; + Panel4: TPanel; + lbDiagnosis: TORListBox; + Panel5: TPanel; + lbPersonalDx: TORListBox; + pnlTop: TPanel; + Panel7: TPanel; + btnAdd: TBitBtn; + btnDelete: TBitBtn; + Splitter5: TSplitter; + Button1: TButton; + StaticText3: TStaticText; + hdrCntlDx: THeaderControl; + hdrCntlDxSections: THeaderControl; + hdrCntlDxAdd: THeaderControl; + procedure FormCreate(Sender: TObject); + procedure btnOtherClick(Sender: TObject); + procedure lbSectionsClick(Sender: TObject); + procedure lbSectionsEnter(Sender: TObject); + procedure lbDiagnosisClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure btnAddClick(Sender: TObject); + procedure btnDeleteClick(Sender: TObject); + procedure lbDiagnosisChange(Sender: TObject); + procedure lbPersonalDxClick(Sender: TObject); + procedure lbDiagnosisEnter(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure FormActivate(Sender: TObject); + function IsDXInList(ADXCode: string):boolean; + procedure LoadPersonalDxList; + procedure btnRemoveAllClick(Sender: TObject); + procedure btnAddAllClick(Sender: TObject); + procedure hdrCntlDxSectionClick(HeaderControl: THeaderControl; + Section: THeaderSection); + procedure FormResize(Sender: TObject); + private + { Private declarations } + procedure LoadEncounterDx; + procedure ListDiagnosesSections(Dest: TStrings); + procedure AddProblemsToDxList; + procedure ListDiagnosesCodes(Section: String); + procedure InactiveICDNotification; + procedure SyncDxDeleteList; + procedure SyncDxNewList; + + public + { Public declarations } + end; + +var + + uAddToP : integer; + uDeleteFromPDL: integer; + uNewDxList : TStringList; + Problems : TStringList; + DxList : TStringList; + ECFDiagnoses : TStringList; + tmplst : TStringList; + newDxLst : TStringList; + delDxLst : TStringList; + inactiveCodes : integer; + +procedure DialogOptionsDiagnoses(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +{$R *.dfm} + +var + + LastDFN : string; + LastLocation : integer; + FDxSection: string; + BADxCode: String; + +procedure DialogOptionsDiagnoses(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +var + frmBAOptionsDiagnoses: TfrmBAOptionsDiagnoses; + begin + frmBAOptionsDiagnoses := TfrmBAOptionsDiagnoses.Create(Application); + actiontype := 0; + with frmBAOptionsDiagnoses do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmBAOptionsDiagnoses); + ShowModal; + end; + +end; + +procedure TfrmBAOptionsDiagnoses.FormCreate(Sender: TObject); +begin + inactiveCodes := 0; + LoadEncounterDx; + ListDiagnosesSections(lbSections.Items); + // lbPersonalDx.Items := rpcGetPersonalDxList(User.DUZ); + LoadPersonalDxList; + btnOK.Enabled := False; + hdrCntlDx.Sections[0].Width := lbPersonalDX.Width; + hdrCntlDxSections.Sections[0].Width := lbSections.Width; + hdrCntlDxAdd.Sections[0].Width := lbDiagnosis.Width; + // lbPersonalDx.Sorted := false; + // lbPersonalDx.Sorted := True; + lbPersonalDX.Repaint; +end; + + +procedure TfrmBAOptionsDiagnoses.LoadEncounterDx; +{ load the major coding lists that are used by the encounter form for a given location } +var + i: integer; + TempList: TStringList; + EncDt: TFMDateTime; +begin + Caption := 'Personal Diagnoses List for ' + User.Name; + LastLocation := Encounter.Location; + EncDt := Trunc(FMToday); + //add problems to the top of diagnoses. + TempList := TstringList.Create; + DxList.clear; + tCallV(TempList,'ORWPCE DIAG', [LastLocation, EncDt]); + DxList.add(templist.strings[0]); + AddProblemsToDxList; + for i := 1 to (TempList.Count-1) do + begin + DxList.add(Templist.strings[i]); + end; +end; + +procedure TfrmBAOptionsDiagnoses.ListDiagnosesSections(Dest: TStrings); +var + i: Integer; + x: string; +begin + for i := 0 to DxList.Count - 1 do if CharAt(DxList[i], 1) = U then + begin + x := Piece(DxList[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(DxList[i], U, 2) + U + x); + end; +end; + +procedure TfrmBAOptionsDiagnoses.ListDiagnosesCodes(Section: String); +var +i,j: integer; +a: string; +begin + lbDiagnosis.Clear; + a := ''; + for i := 0 to DxList.Count-1 do + begin + a := DxList.Strings[i]; + if Piece(DxList[i], U, 2) = (Piece(Section,U,2)) then + break; + end; + inc(i); + for j := i to DxList.Count-1 do + begin + if Piece(DxList[j], U, 0) = '' then + break + else + begin + a := Piece(DxList[j], U, 2) + '^' + Piece(DxList[j], U, 1); + if not UBACore.IsICD9CodeActive(Piece(a,U,2),'ICD',Encounter.DateTime) then + begin + a := a + ' ' + UBAConst.BA_INACTIVE_CODE; + inc(inactiveCodes); + end; + lbDiagnosis.Items.Add(a); + end; + end; +end; + +procedure TfrmBAOptionsDiagnoses.AddProblemsToDxList; +var + i : integer; + EncDt: TFMDateTime; + x : String; +begin + //Get problem list + EncDt := Trunc(FMToday); + LastDFN := Patient.DFN; + tCallV(Problems, 'ORWPCE ACTPROB', [Patient.DFN, EncDT]); + if Problems.Count > 0 then + begin + DxList.add('^Problem List Items'); + for i := 1 to (Problems.count-1) do + begin + x :=(Piece(Problems.Strings[i],U,3) + U + + Piece(Problems.Strings[i],U,2)); + // if (Piece(Problems.Strings[i],U,3) = '799.9') then continue; // DON'T INCLUDE 799.9 CODES + + if (Piece(problems.Strings[i], U, 11) = '#') then + DxList.add(Piece(Problems.Strings[i],U,3) + U + // PL code inactive + Piece(Problems.Strings[i],U,2) + U + '#') + else if (Piece(problems.Strings[i], U, 10) = '') then // no inactive date for code + DxList.add(Piece(Problems.Strings[i],U,3) + U + + Piece(Problems.Strings[i],U,2)) + else if (Trunc(StrToFloat(Piece(Problems.Strings[i], U, 10))) > EncDT) then // code active as of EncDt + DxList.add(Piece(Problems.Strings[i],U,3) + U + + Piece(Problems.Strings[i],U,2)) + else + DxList.add(Piece(Problems.Strings[i],U,3) + U + // PL code inactive + Piece(Problems.Strings[i],U,2) + U + '#'); + end; + end; +end; + +procedure TfrmBAOptionsDiagnoses.btnOtherClick(Sender: TObject); + var + Match: string; + SelectedList : TStringList; + lexIEN: string; +begin + inherited; + BAPersonalDX := True; + SelectedList := TStringList.Create; + if Assigned (SelectedList) then SelectedList.Clear; + BADxCode := ''; //init + //Execute LEXICON + LexiconLookup(Match, LX_ICD); + if Match = '' then Exit; + if strLen(PChar(Piece(Match, U, 3)))> 0 then + lexIEN := Piece(Match, U, 3); + + BADxCode := Piece(Match,U,2) + ' ' + Piece(Match, U, 1); + if IsDXInList(Piece(Match,U,1) ) then Exit; // eliminate duplicates + if UBACore.IsICD9CodeActive(Piece(Match,U,1),'ICD',Encounter.DateTime) then + begin + lbPersonalDx.Items.Add(BADxCode); + if strLen(PChar(lexIEN)) > 0 then + newDxLst.Add(Piece(Match,U,1) + U + lexIEN) + else + newDxLst.Add(Piece(Match,U,1)); + end + else + InfoBox(BA_INACTIVE_ICD9_CODE_1 + BADxCode + BA_INACTIVE_ICD9_CODE_2 , BA_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + + lexIEN := ''; + BAPersonalDX := False; + if newDxLst.Count > 0 then btnOK.Enabled := True; +end; + +procedure TfrmBAOptionsDiagnoses.lbSectionsClick(Sender: TObject); +var i: integer; +begin + inherited; +for i := 0 to lbSections.Items.Count-1 do +begin + if(lbSections.Selected[i]) then + begin + ListDiagnosesCodes(lbSections.Items[i]); + FDXSection := lbSections.Items[i]; + Break; + end; + end; +end; + +procedure TfrmBAOptionsDiagnoses.lbSectionsEnter(Sender: TObject); +begin + inherited; + lbSections.Selected[0] := true; +end; + +procedure TfrmBAOptionsDiagnoses.lbDiagnosisClick(Sender: TObject); +var + i : integer; + newDxCodes: TStringList; + selectedCode: String; +begin + inherited; + newDxCodes := TStringList.Create; + newDxCodes.Clear; + for i := 0 to lbDiagnosis.Items.Count-1 do + begin + if(lbDiagnosis.Selected[i]) then + begin + selectedCode := Piece(lbDiagnosis.Items[i],U,2); + newDxCodes.Add(selectedCode); + end; + if newDxCodes.Count > 0 then + begin + rpcAddToPersonalDxList(User.DUZ,NewDxCodes); + NewDxCodes.Clear; + lbPersonalDx.Items := rpcGetPersonalDxList(User.DUZ); + end; + end; +end; + +procedure TfrmBAOptionsDiagnoses.btnCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmBAOptionsDiagnoses.btnOKClick(Sender: TObject); +begin + inherited; + if delDxLst.Count > 0 then + begin + // delete selected dx's + rpcDeleteFromPersonalDxList(User.DUZ,delDxLst); + delDxLst.Clear; + end; + + if newDxLst.Count > 0 then + begin + newDxLst.Sort; + newDxLst.Duplicates := dupIgnore; + // add selected dx's + rpcAddToPersonalDxList(User.DUZ,newDxLst); + newDxLst.Clear; + end; + Close; +end; + +procedure TfrmBAOptionsDiagnoses.btnAddClick(Sender: TObject); +var + i : integer; + newDxCode: string; + +begin + inherited; + for i := 0 to lbDiagnosis.Items.Count-1 do + begin + if(lbDiagnosis.Selected[i]) then + begin + newDxCode := Piece(lbDiagnosis.Items[i],U,2); + if (not IsDxInList(newDxCode) ) then + begin + if UBACore.IsICD9CodeActive(newDxCode,'ICD',Encounter.DateTime) then + begin + newDxLst.Add(newDxCode); + lbPersonalDx.Items.Add(Piece(lbDiagnosis.Items[i],U,2) + U + Piece(lbDiagnosis.Items[i],U,1) ) + end + else + InfoBox(BA_INACTIVE_ICD9_CODE_1 + Trim(Piece(newDxCode,'#',1)) + BA_INACTIVE_ICD9_CODE_2 , BA_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + end; + end; + end; + btnAdd.Enabled := False; + lbDiagnosis.ClearSelection; + if newDxLst.Count > 0 then btnOK.Enabled := True; +end; + +procedure TfrmBAOptionsDiagnoses.btnDeleteClick(Sender: TObject); +var + i, c: integer; +begin + inherited; + SyncDxDeleteList; + SyncDxNewList; + // delete selected dx from listbox. + with lbPersonalDX do + begin + i := Items.Count - 1; + c := SelCount; + Items.BeginUpdate; + while (i >= 0) and (c > 0) do + begin + if Selected[i] = true then + begin + Dec(c); + Items.Delete(i); + end; + Dec(i); + end; + Items.EndUpdate; + end; + + btnDelete.Enabled := False; + lbDiagnosis.ClearSelection; + if delDxLst.Count > 0 then btnOK.Enabled := True; +end; + +procedure TfrmBAOptionsDiagnoses.lbDiagnosisChange(Sender: TObject); +begin + inherited; + if lbDiagnosis.Count = 0 then + btnAdd.Enabled := False + else + begin + if (lbDiagnosis.SelCount > 0) then + btnAdd.Enabled := True + else + btnAdd.Enabled := False; + end; +end; + +procedure TfrmBAOptionsDiagnoses.lbPersonalDxClick(Sender: TObject); +var i : integer; +begin + inherited; + for i := 0 to lbPersonalDX.Count-1 do + begin + if(lbPersonalDX.Selected[i]) then + begin + btnDelete.Enabled := True; + break; + end + else + btnDelete.Enabled := False; + end; +end; + +procedure TfrmBAOptionsDiagnoses.lbDiagnosisEnter(Sender: TObject); +begin + inherited; +if lbDiagnosis.Count > 0 then + lbDiagnosis.Selected[0] := true; +end; + +procedure TfrmBAOptionsDiagnoses.FormShow(Sender: TObject); +begin + inherited; + if lbSections.Count > 0 then + ListDiagnosesCodes(lbSections.Items[0]); + lbSections.SetFocus; +end; + +procedure TfrmBAOptionsDiagnoses.Button1Click(Sender: TObject); +begin + inherited; + newDxLst.Clear; + Close; +end; + +procedure TfrmBAOptionsDiagnoses.InactiveICDNotification; +begin + if inactiveCodes > 0 then + begin + if (not BAFWarningShown) and (inactiveCodes > 0) then + begin + InfoBox('There are ' + IntToStr(inactiveCodes) + ' active problem(s) flagged with a "#" as having' + #13#10 + + 'inactive ICD codes as of today''s date. Please correct these' + #13#10 + + 'problems via the Problems Tab - Change" option.', 'Inactive ICD Codes Found', MB_ICONWARNING or MB_OK); + BAFWarningShown := True; + end; + end; +end; + + +procedure TfrmBAOptionsDiagnoses.FormActivate(Sender: TObject); +begin + inherited; + InactiveICDNotification; +end; + +function TfrmBAOptionsDiagnoses.IsDXInList(ADXCode: string):boolean; +var + i: integer; + //x,y: string; +begin + Result := False; + for i := 0 to lbPersonalDx.Count-1 do + if ADXCode = Piece(lbPersonalDx.Items[i],U,1) then + begin + Result := True; + Break; + end; +end; + + +procedure TfrmBAOptionsDiagnoses.LoadPersonalDxList; +var + i: integer; + dxList: TStringList; + inActiveDx: string; +begin + dxList := TStringList.Create; + dxList.Clear; + dxList := rpcGetPersonalDxList(User.DUZ); + if dxList.Count > 0 then + begin + for i := 0 to dxList.Count -1 do + begin + if not UBACore.IsICD9CodeActive(Piece(dxList.Strings[i],U,1),'ICD',Encounter.DateTime ) then + begin + inActiveDx := Piece(dxList.Strings[i],U,1) + ' ' + BA_INACTIVE_CODE + U + Piece(DxList.Strings[i],U,2); + lbPersonalDx.Items.Add(inActiveDx); + end + else + lbPersonalDx.Items.Add(dxList.Strings[i]); + end; + end; +end; + +procedure TfrmBAOptionsDiagnoses.btnRemoveAllClick(Sender: TObject); +var + i: integer; + delDxCode: string; +begin + inherited; + // save dx seleted for deletion, update file when ok is pressed + for i := 0 to lbPersonalDX.Count-1 do + begin + delDxCode := Piece(lbPersonalDX.Items[i],U,1); + delDxLst.Add(delDxCode); + end; + + + // delete selected dx from listbox. + with lbPersonalDX do + begin + i := Items.Count - 1; + Items.BeginUpdate; + while (i >= 0) do + begin + Items.Delete(i); + Dec(i); + end; + Items.EndUpdate; + end; + + btnDelete.Enabled := False; + lbDiagnosis.ClearSelection; + if delDxLst.Count > 0 then btnOK.Enabled := True; +end; + +procedure TfrmBAOptionsDiagnoses.btnAddAllClick(Sender: TObject); +var + i : integer; + newDxCode: string; + +begin + inherited; + for i := 0 to lbDiagnosis.Items.Count-1 do + begin + newDxCode := Piece(lbDiagnosis.Items[i],U,2); + if (not IsDxInList(newDxCode) ) then + begin + if UBACore.IsICD9CodeActive(newDxCode,'ICD',Encounter.DateTime) then + begin + newDxLst.Add(newDxCode); + lbPersonalDx.Items.Add(Piece(lbDiagnosis.Items[i],U,2) + U + Piece(lbDiagnosis.Items[i],U,1) ) + end + else + InfoBox(BA_INACTIVE_ICD9_CODE_1 + Trim(Piece(newDxCode,'#',1)) + BA_INACTIVE_ICD9_CODE_2 , BA_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + end; + end; + btnAdd.Enabled := False; + lbDiagnosis.ClearSelection; + if newDxLst.Count > 0 then btnOK.Enabled := True; + +end; + +procedure TfrmBAOptionsDiagnoses.hdrCntlDxSectionClick( + HeaderControl: THeaderControl; Section: THeaderSection); +begin + inherited; + lbPersonalDx.Sorted := false; + lbPersonalDx.Sorted := True; + lbPersonalDX.Repaint; +end; + +procedure TfrmBAOptionsDiagnoses.FormResize(Sender: TObject); +begin + inherited; + hdrCntlDxSections.Sections[0].Width := lbSections.Width; + hdrCntlDxAdd.Sections[0].Width := lbDiagnosis.Width; + hdrCntlDx.Sections[0].Width := lbPersonalDx.Width; +end; + +procedure TfrmBAOptionsDiagnoses.SyncDxDeleteList; +var + i: integer; + delDxCode: string; +begin +// save dx selected for deletion, update file when ok is pressed + for i := 0 to lbPersonalDX.Count-1 do + begin + if(lbPersonalDX.Selected[i]) then + begin + delDxCode := Piece(lbPersonalDX.Items[i],U,1); + delDxLst.Add(delDxCode); + end; + end; +end; + +procedure TfrmBAOptionsDiagnoses.SyncDxNewList; +var +i,j :integer; +begin + // remove diagnoses selected for deletion from newdxList; + for i := 0 to lbPersonalDX.Count-1 do + begin + if lbPersonalDX.Selected[i] then + begin + for j := 0 to newDxLst.Count-1 do + begin + if (Piece(lbPersonalDX.Items[i],U,1)) = (newDxLst.Strings[j]) then + begin + newDxLst.Delete(j); + Break; + end; + end; + end; + end; +end; + + +initialization + uAddToPDL := 0; + uDeleteFromPDL := 0; + + Problems := TStringList.Create; + DxList := TStringList.Create; + ECFDiagnoses := TStringList.Create; + uNewDxList := TStringList.Create; + tmplst := TStringList.Create; + newDxLst := TStringList.Create; + delDxLst := TStringList.Create; + + Problems.Clear; + DxList.Clear; + ECFDiagnoses.Clear; + uNewDxList.Clear; + tmplst.Clear; + newDxLst.Clear; + delDxLst.Clear; + +end. diff --git a/CPRS-Chart/CPRS.vpw b/CPRS-Chart/CPRS.vpw new file mode 100644 index 0000000..5cbe258 --- /dev/null +++ b/CPRS-Chart/CPRS.vpw @@ -0,0 +1,32 @@ +[ProjectDates] +[State] +SCREEN: 800 600 22 22 600 432 0 0 N 0 0 0 0 588 233 +CWD: D:\vista\cprs\main\CPRS-Chart +BUFFER: BN="D:\ejb\book\chap09\timetracker\Employee.java" +BI: MA=1 74 1 TABS=1 9 WWS=1 IWT=0 ST=0 IN=2 BW=0 US=32000 RO=1 SE=1 SN=0 BIN=0 MN=Java HM=0 MF=0 TL=0 MLL=0 ASE=0 LNL=6 LCF=0 CAPS=0 +VIEW: LN=.0 CL=1 LE=0 CX=0 CY=1 WI=5 BI=12 HT=0 HN=0 HF=0 HC=4 +BUFFER: BN="D:\ejb\book\chap09\timetracker\EmployeePK.java" +BI: MA=1 74 1 TABS=1 9 WWS=1 IWT=0 ST=0 IN=2 BW=0 US=32000 RO=1 SE=1 SN=0 BIN=0 MN=Java HM=0 MF=0 TL=0 MLL=0 ASE=0 LNL=6 LCF=0 CAPS=0 +VIEW: LN=.0 CL=1 LE=0 CX=0 CY=1 WI=5 BI=14 HT=0 HN=0 HF=0 HC=4 +BUFFER: BN="D:\ejb\book\chap09\timetracker\EmployeeBean.java" +BI: MA=1 74 1 TABS=1 9 WWS=1 IWT=0 ST=0 IN=2 BW=0 US=32000 RO=1 SE=1 SN=0 BIN=0 MN=Java HM=0 MF=608 TL=0 MLL=0 ASE=0 LNL=6 LCF=0 CAPS=0 +VIEW: LN=.0 CL=1 LE=0 CX=0 CY=1 WI=5 BI=15 HT=0 HN=0 HF=0 HC=4 +WINDOW: 0 0 522 167 -1 -1 N WF=0 WT=2 "Courier New,9,0,1" +BUFFER: BN="D:\ejb\book\chap09\timetracker\Employee.java" +VIEW: LN=.0 CL=1 LE=0 CX=0 CY=1 WI=121 BI=12 HT=0 HN=0 HF=0 HC=4 +WINDOW: 22 22 522 167 -1 -1 N WF=0 WT=3 "Courier New,9,0,1" +BUFFER: BN="D:\ejb\book\chap09\timetracker\EmployeePK.java" +VIEW: LN=.0 CL=1 LE=0 CX=0 CY=1 WI=122 BI=14 HT=0 HN=0 HF=0 HC=4 +WINDOW: 44 44 522 167 -1 -1 N WF=0 WT=1 "Courier New,9,0,1" +BUFFER: BN="D:\ejb\book\chap09\timetracker\EmployeeBean.java" +VIEW: LN=.6777 CL=1 LE=0 CX=0 CY=6 WI=123 BI=15 HT=0 HN=0 HF=0 HC=4 +FILEHIST: 9 +c:\temp\p4win\ReadOnly-0-Rev-12-fReview.pas +D:\dev\AppExHandler\AppExHandler.pas +D:\vista\cprs\OR_3_190V24\CPRS-Chart\fmeds.dfm +D:\vista\cprs\OR_3_190V24\CPRS-Chart\Orders\fODMedNVA.pas +D:\vista\cprs\OR_3_215V26\CPRS-Chart\dcu\Trpcb.dcu +D:\vista\cprs\OR_3_215V26\CPRS-Chart\Accessibility_TLB.~pas +D:\ejb\book\chap09\timetracker\Employee.java +D:\ejb\book\chap09\timetracker\EmployeePK.java +D:\ejb\book\chap09\timetracker\EmployeeBean.java diff --git a/CPRS-Chart/CPRSChart SHORTCUT.lnk b/CPRS-Chart/CPRSChart SHORTCUT.lnk new file mode 100644 index 0000000..298b048 Binary files /dev/null and b/CPRS-Chart/CPRSChart SHORTCUT.lnk differ diff --git a/CPRS-Chart/CPRSChart.cfg b/CPRS-Chart/CPRSChart.cfg new file mode 100644 index 0000000..adef36e --- /dev/null +++ b/CPRS-Chart/CPRSChart.cfg @@ -0,0 +1,42 @@ +-$A8 +-$B- +-$C+ +-$D+ +-$E- +-$F- +-$G+ +-$H+ +-$I+ +-$J+ +-$K- +-$L+ +-$M- +-$N+ +-$O+ +-$P+ +-$Q- +-$R- +-$S- +-$T- +-$U- +-$V+ +-$W- +-$X+ +-$YD +-$Z1 +-GD +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-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" diff --git a/CPRS-Chart/CPRSChart.dof b/CPRS-Chart/CPRSChart.dof new file mode 100644 index 0000000..a948365 --- /dev/null +++ b/CPRS-Chart/CPRSChart.dof @@ -0,0 +1,170 @@ +[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 diff --git a/CPRS-Chart/CPRSChart.dpr b/CPRS-Chart/CPRSChart.dpr new file mode 100644 index 0000000..4fdd425 --- /dev/null +++ b/CPRS-Chart/CPRSChart.dpr @@ -0,0 +1,327 @@ +program CPRSChart; + +uses + ShareMem, + Forms, + ORSystem, + fPage in 'fPage.pas' {frmPage}, + fHSplit in 'fHSplit.pas' {frmHSplit}, + fHP in 'fHP.pas' {frmHP}, + fCover in 'fCover.pas' {frmCover}, + fMeds in 'fMeds.pas' {frmMeds}, + fNotes in 'fNotes.pas' {frmNotes}, + fDCSumm in 'fDCSumm.pas' {frmDCSumm}, + fLabs in 'fLabs.pas' {frmLabs}, + fReports in 'fReports.pas' {frmReports}, + uCore in 'uCore.pas', + fPtSel in 'fPtSel.pas' {frmPtSel}, + fPtSens in 'fPtSens.pas' {frmPtSens}, + rCore in 'rCore.pas', + fEncnt in 'fEncnt.pas' {frmEncounter}, + fVisit in 'fVisit.pas' {frmVisit}, + fPtDemo in 'fPtDemo.pas' {frmPtDemo}, + rTIU in 'rTIU.pas', + fxBroker in 'fxBroker.pas' {frmBroker}, + fNoteBA in 'fNoteBA.pas' {frmNotesByAuthor}, + fNoteBD in 'fNoteBD.pas' {frmNotesByDate}, + fLabTest in 'fLabTest.pas' {frmLabTest}, + fLabTestGroups in 'fLabTestGroups.pas' {frmLabTestGroups}, + fLabTests in 'fLabTests.pas' {frmLabTests}, + rLabs in 'rLabs.pas', + fSignItem in 'fSignItem.pas' {frmSignItem}, + rCover in 'rCover.pas', + fRptBox in 'fRptBox.pas' {frmReportBox}, + rReports in 'rReports.pas', + fAbout in 'fAbout.pas' {frmAbout}, + fxLists in 'fxLists.pas' {frmDbgList}, + fProbs in 'fProbs.pas' {frmProblems}, + fAutoSz in 'fAutoSz.pas' {frmAutoSz}, + rMisc in 'rMisc.pas', + fxServer in 'fxServer.pas' {frmDbgServer}, + fPtCWAD in 'fPtCWAD.pas' {frmPtCWAD}, + rMeds in 'rMeds.pas', + fVitals in 'fVitals.pas' {frmVitals}, + uProbs in 'uProbs.pas', + fProbEdt in 'fProbEdt.pas' {frmdlgProb}, + fProbflt in 'fProbFlt.pas' {frmPlVuFilt}, + fProbCmt in 'fProbCmt.pas' {frmProbCmt}, + fNoteCslt in 'fNoteCslt.pas' {frmNoteConsult}, + fNotePrt in 'fNotePrt.pas' {frmNotePrint}, + uConst in 'uConst.pas', + fConsults in 'Consults\fConsults.pas' {frmConsults}, + fLkUpLocation in 'fLkUpLocation.pas' {frmLkUpLocation}, + fRename in 'fRename.pas' {frmRename}, + fDateRange in 'fDateRange.pas' {frmDateRange}, + fRenewOutMed in 'fRenewOutMed.pas' {frmRenewOutMed}, + fConsult513Prt in 'Consults\fConsult513Prt.pas' {frm513Print}, + fConsultAct in 'Consults\fConsultAct.pas' {frmConsultAction}, + fConsultAlertTo in 'Consults\fConsultAlertTo.pas' {frmConsultAlertsTo}, + fConsultBD in 'Consults\fConsultBD.pas' {frmConsultsByDate}, + fConsultBS in 'Consults\fConsultBS.pas' {frmConsultsByService}, + fConsultBSt in 'Consults\fConsultBSt.pas' {frmConsultsByStatus}, + fConsultsView in 'Consults\fConsultsView.pas' {frmConsultsView}, + rConsults in 'Consults\rConsults.pas', + uConsults in 'Consults\uConsults.pas', + fTimeout in 'fTimeout.pas' {frmTimeout}, + fNoteDR in 'fNoteDR.pas' {frmNoteDelReason}, + rDCSumm in 'rDCSumm.pas', + fSplash in 'fSplash.pas' {frmSplash}, + fCsltNote in 'Consults\fCsltNote.pas' {frmCsltNote}, + rProbs in 'rProbs.pas', + fEditConsult in 'Consults\fEditConsult.pas' {frmEditCslt}, + fEditProc in 'Consults\fEditProc.pas' {frmEditProc}, + fAllgyFind in 'fAllgyFind.pas' {frmAllgyFind}, + fAddlSigners in 'fAddlSigners.pas' {frmAddlSigners}, + fLabPrint in 'fLabPrint.pas' {frmLabPrint}, + fReportsPrint in 'fReportsPrint.pas' {frmReportPrt}, + fvit in 'fvit.pas' {frmVit}, + uPCE in 'Encounter\uPCE.pas', + fEncounterFrame in 'Encounter\fEncounterFrame.pas' {frmEncounterFrame}, + fPCEBase in 'Encounter\fPCEBase.pas' {frmPCEBase}, + fPCELex in 'Encounter\fPCELex.pas' {frmPCELex}, + fPCEOther in 'Encounter\fPCEOther.pas' {frmPCEOther}, + fProcedure in 'Encounter\fProcedure.pas' {frmProcedures}, + fSkinTest in 'Encounter\fSkinTest.pas' {frmSkinTests}, + fVisitType in 'Encounter\fVisitType.pas' {frmVisitType}, + rPCE in 'Encounter\rPCE.pas', + fDiagnoses in 'Encounter\fDiagnoses.pas' {frmDiagnoses}, + fPatientEd in 'Encounter\fPatientEd.pas' {frmPatientEd}, + fExam in 'Encounter\fExam.pas' {frmExams}, + fHealthFactor in 'Encounter\fHealthFactor.pas' {frmHealthFactors}, + fImmunization in 'Encounter\fImmunization.pas' {frmImmunizations}, + fEncVitals in 'Encounter\fEncVitals.pas' {frmEncVitals}, + fEffectDate in 'fEffectDate.pas' {frmEffectDate}, + fPtSelDemog in 'fPtSelDemog.pas' {frmPtSelDemog}, + fPtSelOptns in 'fPtSelOptns.pas' {frmPtSelOptns}, + uInit in 'uInit.pas', + uSpell in 'uSpell.pas', + dShared in 'dShared.pas' {dmodShared: TDataModule}, + fDrawers in 'fDrawers.pas' {frmDrawers}, + fMedCopy in 'fMedCopy.pas' {frmMedCopy}, + uReminders in 'uReminders.pas', + rReminders in 'rReminders.pas', + fReminderTree in 'fReminderTree.pas' {frmReminderTree}, + fReminderDialog in 'fReminderDialog.pas' {frmRemDlg}, + fReportsAdhocSubItem1 in 'fReportsAdhocSubItem1.pas' {frmReportsAdhocSubItem1}, + fReportsAdhocComponent1 in 'fReportsAdhocComponent1.pas' {frmReportsAdhocComponent1}, + fPtSelMsg in 'fPtSelMsg.pas' {frmPtSelMsg}, + fMHTest in 'fMHTest.pas' {frmMHTest}, + fGAF in 'Encounter\fGAF.pas' {frmGAF}, + fPCEProvider in 'Encounter\fPCEProvider.pas' {frmPCEProvider}, + fPCEBaseGrid in 'Encounter\fPCEBaseGrid.pas' {frmPCEBaseGrid}, + fPCEBaseMain in 'Encounter\fPCEBaseMain.pas' {frmPCEBaseMain}, + fNoteProps in 'fNoteProps.pas' {frmNoteProperties}, + fNotesBP in 'fNotesBP.pas' {frmNotesBP}, + fLabInfo in 'fLabInfo.pas' {frmLabInfo}, + fPreReq in 'Consults\fPreReq.pas' {frmPrerequisites}, + 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}, + uTemplates in 'Templates\uTemplates.pas', + fTemplateDialog in 'Templates\fTemplateDialog.pas' {frmTemplateDialog}, + fTemplateEditor in 'Templates\fTemplateEditor.pas' {frmTemplateEditor}, + fTemplateFieldEditor in 'Templates\fTemplateFieldEditor.pas' {frmTemplateFieldEditor}, + fTemplateFields in 'Templates\fTemplateFields.pas' {frmTemplateFields}, + fTemplateObjects in 'Templates\fTemplateObjects.pas' {frmTemplateObjects}, + fTemplateView in 'Templates\fTemplateView.pas' {frmTemplateView}, + mTemplateFieldButton in 'Templates\mTemplateFieldButton.pas' {fraTemplateFieldButton: TFrame}, + rTemplates in 'Templates\rTemplates.pas', + uTemplateFields in 'Templates\uTemplateFields.pas', + fTemplateAutoGen in 'Templates\fTemplateAutoGen.pas' {frmTemplateAutoGen}, + mVisitRelated in 'Encounter\mVisitRelated.pas' {fraVisitRelated: TFrame}, + fRemVisitInfo in 'fRemVisitInfo.pas' {frmRemVisitInfo}, + fIconLegend in 'fIconLegend.pas' {frmIconLegend}, + mImgText in 'mImgText.pas' {fraImgText: TFrame}, + fTemplateImport in 'Templates\fTemplateImport.pas' {frmTemplateImport}, + fRemCoverSheet in 'fRemCoverSheet.pas' {frmRemCoverSheet}, + uTIU in 'uTIU.pas', + fRemCoverPreview in 'fRemCoverPreview.pas' {frmRemCoverPreview}, + fPCEEdit in 'Encounter\fPCEEdit.pas' {frmPCEEdit}, + uSurgery in 'uSurgery.pas', + fSurgeryView in 'fSurgeryView.pas' {frmSurgeryView}, + rSurgery in 'rSurgery.pas', + uCaseTree in 'uCaseTree.pas', + fSurgery in 'fSurgery.pas' {frmSurgery}, + fNoteIDParents in 'fNoteIDParents.pas' {frmNoteIDParents}, + uReports in 'uReports.pas', + fNoteCPFields in 'fNoteCPFields.pas' {frmNoteCPFields}, + CPRSChart_TLB in 'CPRSChart_TLB.pas', + uEventHooks in 'uEventHooks.pas', + rEventHooks in 'rEventHooks.pas', + fPtSelOptSave in 'fPtSelOptSave.pas' {frmPtSelOptSave}, + uOrders in 'Orders\uOrders.pas', + fOCSession in 'Orders\fOCSession.pas' {frmOCSession}, + fODAuto in 'Orders\fODAuto.pas', + fODBase in 'Orders\fODBase.pas' {frmODBase}, + fODDiet in 'Orders\fODDiet.pas' {frmODDiet}, + fODDietLT in 'Orders\fODDietLT.pas' {frmODDietLT}, + fODGen in 'Orders\fODGen.pas' {frmODGen}, + fODLab in 'Orders\fODLab.pas' {frmODLab}, + fODLabImmedColl in 'Orders\fODLabImmedColl.pas' {frmODLabImmedColl}, + fODLabOthCollSamp in 'Orders\fODLabOthCollSamp.pas' {frmODLabOthCollSamp}, + fODLabOthSpec in 'Orders\fODLabOthSpec.pas' {frmODLabOthSpec}, + fODMedComplex in 'Orders\fODMedComplex.pas' {frmODMedComplex}, + fODMedFA in 'Orders\fODMedFA.pas' {frmODMedFA}, + fODMedIn in 'Orders\fODMedIn.pas' {frmODMedIn}, + fODMedIV in 'Orders\fODMedIV.pas' {frmODMedIV}, + fODMedOIFA in 'Orders\fODMedOIFA.pas' {frmODMedOIFA}, + fODMedOut in 'Orders\fODMedOut.pas' {frmODMedOut}, + fODMeds in 'Orders\fODMeds.pas' {frmODMeds}, + fODMessage in 'Orders\fODMessage.pas' {frmODMessage}, + fODMisc in 'Orders\fODMisc.pas' {frmODMisc}, + fODRad in 'Orders\fODRad.pas' {frmODRad}, + fODRadApproval in 'Orders\fODRadApproval.pas' {frmODRadApproval}, + fODRadConShRes in 'Orders\fODRadConShRes.pas' {frmODRadConShRes}, + fODRadImType in 'Orders\fODRadImType.pas' {frmODRadImType}, + fODSaveQuick in 'Orders\fODSaveQuick.pas' {frmODQuick}, + fODText in 'Orders\fODText.pas' {frmODText}, + fODVitals in 'Orders\fODVitals.pas' {frmODVitals}, + fOMAction in 'Orders\fOMAction.pas' {frmOMAction}, + fOMHTML in 'Orders\fOMHTML.pas' {frmOMHTML}, + fOMNavA in 'Orders\fOMNavA.pas' {frmOMNavA}, + fOMProgress in 'Orders\fOMProgress.pas' {frmOMProgress}, + fOMSet in 'Orders\fOMSet.pas' {frmOMSet}, + fOMVerify in 'Orders\fOMVerify.pas' {frmOMVerify}, + fOrderComment in 'Orders\fOrderComment.pas' {frmWardComments}, + fOrderFlag in 'Orders\fOrderFlag.pas' {frmFlagOrder}, + fOrders in 'Orders\fOrders.pas' {frmOrders}, + fOrdersAlert in 'Orders\fOrdersAlert.pas' {frmAlertOrders}, + fOrderSaveQuick in 'Orders\fOrderSaveQuick.pas' {frmSaveQuickOrder}, + fOrdersComplete in 'Orders\fOrdersComplete.pas' {frmCompleteOrders}, + fOrdersCopy in 'Orders\fOrdersCopy.pas' {frmCopyOrders}, + fOrdersDC in 'Orders\fOrdersDC.pas' {frmDCOrders}, + fOrdersHold in 'Orders\fOrdersHold.pas' {frmHoldOrders}, + fOrdersOnChart in 'Orders\fOrdersOnChart.pas' {frmOnChartOrders}, + fOrdersPrint in 'Orders\fOrdersPrint.pas' {frmOrdersPrint}, + fOrdersRefill in 'Orders\fOrdersRefill.pas' {frmRefillOrders}, + fOrdersRelease in 'Orders\fOrdersRelease.pas' {frmReleaseOrders}, + fOrdersRenew in 'Orders\fOrdersRenew.pas' {frmRenewOrders}, + fOrdersSign in 'Orders\fOrdersSign.pas' {frmSignOrders}, + fOrdersTS in 'Orders\fOrdersTS.pas' {frmOrdersTS}, + fOrdersUnhold in 'Orders\fOrdersUnhold.pas' {frmUnholdOrders}, + fOrdersVerify in 'Orders\fOrdersVerify.pas' {frmVerifyOrders}, + fOrderUnflag in 'Orders\fOrderUnflag.pas' {frmUnflagOrder}, + fOrderVw in 'Orders\fOrderVw.pas' {frmOrderView}, + rODAllergy in 'Orders\rODAllergy.pas', + rODBase in 'Orders\rODBase.pas', + rODDiet in 'Orders\rODDiet.pas', + rODLab in 'Orders\rODLab.pas', + rODMeds in 'Orders\rODMeds.pas', + rODRad in 'Orders\rODRad.pas', + rOrders in 'Orders\rOrders.pas', + uODBase in 'Orders\uODBase.pas', + fOCAccept in 'Orders\fOCAccept.pas' {frmOCAccept}, + fODConsult in 'Consults\fODConsult.pas' {frmODCslt}, + fODProc in 'Consults\fODProc.pas' {frmODProc}, + uOptions in 'Options\uOptions.pas', + fOptionsCombinations in 'Options\fOptionsCombinations.pas' {frmOptionsCombinations}, + fOptionsDays in 'Options\fOptionsDays.pas' {frmOptionsDays}, + fOptionsLists in 'Options\fOptionsLists.pas' {frmOptionsLists}, + fOptionsNewList in 'Options\fOptionsNewList.pas' {frmOptionsNewList}, + fOptionsNotes in 'Options\fOptionsNotes.pas' {frmOptionsNotes}, + fOptionsOther in 'Options\fOptionsOther.pas' {frmOptionsOther}, + fOptionsPatientSelection in 'Options\fOptionsPatientSelection.pas' {frmOptionsPatientSelection}, + fOptionsPrimaryList in 'Options\fOptionsPrimaryList.pas' {frmOptionsPrimaryList}, + fOptionsReminders in 'Options\fOptionsReminders.pas' {frmOptionsReminders}, + fOptionsReportsCustom in 'Options\fOptionsReportsCustom.pas' {frmOptionsReportsCustom}, + fOptionsReportsDefault in 'Options\fOptionsReportsDefault.pas' {frmOptionsReportsDefault}, + fOptionsSubscribe in 'Options\fOptionsSubscribe.pas' {frmOptionsSubscribe}, + fOptionsSurrogate in 'Options\fOptionsSurrogate.pas' {frmOptionsSurrogate}, + fOptionsTeams in 'Options\fOptionsTeams.pas' {frmOptionsTeams}, + fOptionsTitles in 'Options\fOptionsTitles.pas' {frmOptionsTitles}, + rOptions in 'Options\rOptions.pas', + fOptions in 'Options\fOptions.pas' {frmOptions}, + uSignItems in 'uSignItems.pas', + mCoPayDesc in 'mCoPayDesc.pas' {fraCoPayDesc: TFrame}, + XuDigSigSC_TLB in 'XuDigSigSC_TLB.pas', + fOrdersCV in 'Orders\fOrdersCV.pas' {frmChgEvent}, + fODReleaseEvent in 'Orders\fODReleaseEvent.pas' {frmOrdersReleaseEvent}, + fODActive in 'Orders\fODActive.pas' {frmODActive}, + fDefaultEvent in 'fDefaultEvent.pas' {frmDefaultEvent}, + mEvntDelay in 'mEvntDelay.pas' {fraEvntDelayList: TFrame}, + fOrdersEvntRelease in 'Orders\fOrdersEvntRelease.pas' {frmOrdersEvntRelease}, + rECS in 'rECS.pas', + 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', + fPatientFlagMulti in 'fPatientFlagMulti.pas' {frmFlags}, + 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', + UBAConst in 'BA\UBAConst.pas', + UBAGlobals in 'BA\UBAGlobals.pas', + fBALocalDiagnoses in 'BA\fBALocalDiagnoses.pas' {frmBALocalDiagnoses}, + fReview in 'fReview.pas' {frmReview}, + fARTFreeTextMsg in 'fARTFreeTextMsg.pas' {frmARTFreeTextMsg}, + fAllgyBox in 'fAllgyBox.pas' {frmAllgyBox}, + fARTAllgy in 'fARTAllgy.pas' {frmARTAllergy}, + UBACore in 'BA\UBACore.pas', + fBAOptionsDiagnoses in 'BA\fBAOptionsDiagnoses.pas' {frmBAOptionsDiagnoses}, + fOtherSchedule in 'Orders\fOtherSchedule.pas' {frmOtherSchedule}, + fODBBank in 'Orders\fODBBank.pas' {frmODBBank}, + fNoteST in 'fNoteST.pas' {frmNotesSearchText}, + fNoteSTStop in 'fNoteSTStop.pas' {frmSearchStop}, + rGraphs in 'rGraphs.pas', + fGraphs in 'fGraphs.pas' {frmGraphs}, + fGraphSettings in 'fGraphSettings.pas' {frmGraphSettings}, + fGraphProfiles in 'fGraphProfiles.pas' {frmGraphProfiles}, + uGraphs in 'uGraphs.pas', + fClinicWardMeds in 'fClinicWardMeds.pas' {frmClinicWardMeds}, + fActivateDeactivate in 'fActivateDeactivate.pas' {frmActivateDeactive}, + uFormMonitor in 'uFormMonitor.pas'; + +{$R *.TLB} + +{$R *.RES} + +begin + if not UpdateSelf then // only start if not copying new version + begin + RegisterCPRSTypeLibrary; // will halt program if /regserver or /unregserver param + Application.Initialize; + frmSplash := nil; + if ParamSearch('SPLASH') <> 'OFF' then + begin + frmSplash := TfrmSplash.Create(Application); // show splash screen + frmSplash.Show; // " + frmSplash.Refresh; // " + end; + Application.Title := 'CPRS - Patient Chart'; + Application.HelpFile := 'cprs.hlp'; + Application.CreateForm(TdmodShared, dmodShared); + Application.CreateForm(TfrmFrame, frmFrame); + Application.CreateForm(TfrmSearchStop, frmSearchStop); + frmSplash.Free; // close & free splash screen + Application.Run; + end; +end. diff --git a/CPRS-Chart/CPRSChart.drc b/CPRS-Chart/CPRSChart.drc new file mode 100644 index 0000000..432eb3e --- /dev/null +++ b/CPRS-Chart/CPRSChart.drc @@ -0,0 +1,976 @@ +/* VER150 + Generated by the Borland Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + 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 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 RTLConsts_SListCapacityError 65392 +#define RTLConsts_SListCountError 65393 +#define RTLConsts_SListIndexError 65394 +#define RTLConsts_SMemoryStreamError 65395 +#define RTLConsts_SPropertyException 65396 +#define RTLConsts_SReadError 65397 +#define RTLConsts_SReadOnlyProperty 65398 +#define RTLConsts_SRegGetDataFailed 65399 +#define RTLConsts_SRegSetDataFailed 65400 +#define RTLConsts_SResNotFound 65401 +#define RTLConsts_SSeekNotImplemented 65402 +#define RTLConsts_SSortedListError 65403 +#define RTLConsts_STooManyDeleted 65404 +#define RTLConsts_SUnknownGroup 65405 +#define RTLConsts_SUnknownProperty 65406 +#define RTLConsts_SWriteError 65407 +#define RTLConsts_SDuplicateString 65408 +#define RTLConsts_SFCreateErrorEx 65409 +#define RTLConsts_SFixedColTooBig 65410 +#define RTLConsts_SFixedRowTooBig 65411 +#define RTLConsts_SFOpenErrorEx 65412 +#define RTLConsts_SGridTooLarge 65413 +#define RTLConsts_SIndexOutOfRange 65414 +#define RTLConsts_SInvalidImage 65415 +#define RTLConsts_SInvalidName 65416 +#define RTLConsts_SInvalidProperty 65417 +#define RTLConsts_SInvalidPropertyElement 65418 +#define RTLConsts_SInvalidPropertyPath 65419 +#define RTLConsts_SInvalidPropertyType 65420 +#define RTLConsts_SInvalidPropertyValue 65421 +#define RTLConsts_SInvalidRegType 65422 +#define RTLConsts_SInvalidStringGridOp 65423 +#define SysConst_SLongDayNameSun 65424 +#define SysConst_SLongDayNameMon 65425 +#define SysConst_SLongDayNameTue 65426 +#define SysConst_SLongDayNameWed 65427 +#define SysConst_SLongDayNameThu 65428 +#define SysConst_SLongDayNameFri 65429 +#define SysConst_SLongDayNameSat 65430 +#define RTLConsts_SAncestorNotFound 65431 +#define RTLConsts_SAssignError 65432 +#define RTLConsts_SBitsIndexError 65433 +#define RTLConsts_SCantWriteResourceStreamError 65434 +#define RTLConsts_SCheckSynchronizeError 65435 +#define RTLConsts_SClassNotFound 65436 +#define RTLConsts_SDuplicateClass 65437 +#define RTLConsts_SDuplicateItem 65438 +#define RTLConsts_SDuplicateName 65439 +#define SysConst_SLongMonthNameApr 65440 +#define SysConst_SLongMonthNameMay 65441 +#define SysConst_SLongMonthNameJun 65442 +#define SysConst_SLongMonthNameJul 65443 +#define SysConst_SLongMonthNameAug 65444 +#define SysConst_SLongMonthNameSep 65445 +#define SysConst_SLongMonthNameOct 65446 +#define SysConst_SLongMonthNameNov 65447 +#define SysConst_SLongMonthNameDec 65448 +#define SysConst_SShortDayNameSun 65449 +#define SysConst_SShortDayNameMon 65450 +#define SysConst_SShortDayNameTue 65451 +#define SysConst_SShortDayNameWed 65452 +#define SysConst_SShortDayNameThu 65453 +#define SysConst_SShortDayNameFri 65454 +#define SysConst_SShortDayNameSat 65455 +#define SysConst_SUnkOSError 65456 +#define SysConst_SShortMonthNameJan 65457 +#define SysConst_SShortMonthNameFeb 65458 +#define SysConst_SShortMonthNameMar 65459 +#define SysConst_SShortMonthNameApr 65460 +#define SysConst_SShortMonthNameMay 65461 +#define SysConst_SShortMonthNameJun 65462 +#define SysConst_SShortMonthNameJul 65463 +#define SysConst_SShortMonthNameAug 65464 +#define SysConst_SShortMonthNameSep 65465 +#define SysConst_SShortMonthNameOct 65466 +#define SysConst_SShortMonthNameNov 65467 +#define SysConst_SShortMonthNameDec 65468 +#define SysConst_SLongMonthNameJan 65469 +#define SysConst_SLongMonthNameFeb 65470 +#define SysConst_SLongMonthNameMar 65471 +#define SysConst_SVarTypeTooManyCustom 65472 +#define SysConst_SVarTypeCouldNotConvert 65473 +#define SysConst_SVarTypeConvertOverflow 65474 +#define SysConst_SVarOverflow 65475 +#define SysConst_SVarInvalid 65476 +#define SysConst_SVarBadType 65477 +#define SysConst_SVarNotImplemented 65478 +#define SysConst_SVarUnexpected 65479 +#define SysConst_SExternalException 65480 +#define SysConst_SAssertionFailed 65481 +#define SysConst_SIntfCastError 65482 +#define SysConst_SSafecallException 65483 +#define SysConst_SAssertError 65484 +#define SysConst_SAbstractError 65485 +#define SysConst_SModuleAccessViolation 65486 +#define SysConst_SOSError 65487 +#define SysConst_SInvalidFormat 65488 +#define SysConst_SArgumentMissing 65489 +#define SysConst_SDispatchError 65490 +#define SysConst_SReadAccess 65491 +#define SysConst_SWriteAccess 65492 +#define SysConst_SFormatTooLong 65493 +#define SysConst_SVarArrayCreate 65494 +#define SysConst_SVarArrayBounds 65495 +#define SysConst_SVarArrayLocked 65496 +#define SysConst_SInvalidVarCast 65497 +#define SysConst_SInvalidVarOp 65498 +#define SysConst_SInvalidVarNullOp 65499 +#define SysConst_SInvalidVarOpWithHResultWithPrefix 65500 +#define SysConst_SVarTypeOutOfRangeWithPrefix 65501 +#define SysConst_SVarTypeAlreadyUsedWithPrefix 65502 +#define SysConst_SVarTypeNotUsableWithPrefix 65503 +#define SysConst_SRangeError 65504 +#define SysConst_SIntOverflow 65505 +#define SysConst_SInvalidOp 65506 +#define SysConst_SZeroDivide 65507 +#define SysConst_SOverflow 65508 +#define SysConst_SUnderflow 65509 +#define SysConst_SInvalidPointer 65510 +#define SysConst_SInvalidCast 65511 +#define SysConst_SAccessViolationArg3 65512 +#define SysConst_SAccessViolationNoArg 65513 +#define SysConst_SStackOverflow 65514 +#define SysConst_SControlC 65515 +#define SysConst_SPrivilege 65516 +#define SysConst_SOperationAborted 65517 +#define SysConst_SException 65518 +#define SysConst_SExceptTitle 65519 +#define SysConst_SInvalidInteger 65520 +#define SysConst_SInvalidFloat 65521 +#define SysConst_SInvalidTime 65522 +#define SysConst_SInvalidDateTime 65523 +#define SysConst_STimeEncodeError 65524 +#define SysConst_SDateEncodeError 65525 +#define SysConst_SOutOfMemory 65526 +#define SysConst_SInOutError 65527 +#define SysConst_SFileNotFound 65528 +#define SysConst_SInvalidFilename 65529 +#define SysConst_STooManyOpenFiles 65530 +#define SysConst_SAccessDenied 65531 +#define SysConst_SEndOfFile 65532 +#define SysConst_SDiskFull 65533 +#define SysConst_SInvalidInput 65534 +#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." + OleConst_SCannotActivate, "OLE control activation failed" + OleConst_SNoWindowHandle, "Could not obtain OLE control window handle" + OleConst_SInvalidLicense, "License information for %s is invalid" + OleConst_SNotLicensed, "License information for %s not found. You cannot use this control in design mode" + OleConst_sNoRunningObject, "Unable to retrieve a pointer to a running object registered with OLE for %s/%s" + DBConsts_SBcdOverflow, "BCD overflow" + DBConsts_SInvalidBcdValue, "%s is not a valid BCD value" + DBConsts_SCouldNotParseTimeStamp, "Could not parse SQL TimeStamp string" + DBConsts_SInvalidSqlTimeStamp, "Invalid SQL date/time values" + VDBConsts_SFirstRecord, "First record" + VDBConsts_SPriorRecord, "Prior record" + VDBConsts_SNextRecord, "Next record" + VDBConsts_SLastRecord, "Last record" + 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" + TeeConst_TeeMsg_ValuesPie, "Pie" + TeeConst_TeeMsg_ValuesBar, "Bar" + TeeConst_TeeMsg_ValuesAngle, "Angle" + 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_GanttSample6, "Testing" + TeeConst_TeeMsg_GanttSample7, "Manufac." + TeeConst_TeeMsg_GanttSample8, "Debugging" + TeeConst_TeeMsg_GanttSample9, "New Version" + TeeConst_TeeMsg_GanttSample10, "Banking" + TeeConst_TeeMsg_DefaultFontSize, "8" + 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_PieSample2, "Phones" + TeeConst_TeeMsg_PieSample3, "Tables" + TeeConst_TeeMsg_PieSample4, "Monitors" + TeeConst_TeeMsg_PieSample5, "Lamps" + TeeConst_TeeMsg_PieSample6, "Keyboards" + TeeConst_TeeMsg_PieSample7, "Bikes" + 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_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" + TeeConst_TeeMsg_DefPercentFormat, "##0.## %" + TeeConst_TeeMsg_DefValueFormat, "#,##0.###" + TeeConst_TeeMsg_AxisTitle, "Axis Title" + 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_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" + TeeConst_TeeMsg_SeriesInvDataSource, "No valid DataSource: %s" + TeeConst_TeeMsg_FillSample, "FillSampleValues NumValues must be > 0" + TeeConst_TeeMsg_Angle, "%s Angle must be between 0 and 359 degrees" + 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" + ComStrs_sInvalidIndex, "Invalid index" + ComStrs_sInsertError, "Unable to insert an item" + ComStrs_sInvalidOwner, "Invalid owner" + ComStrs_sRichEditInsertError, "RichEdit line insertion error" + ComStrs_sRichEditLoadFail, "Failed to Load Stream" + ComStrs_sRichEditSaveFail, "Failed to Save Stream" + ComStrs_sUDAssociated, "%s is already associated with %s" + 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_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" + 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" + Consts_SDockedCtlNeedsName, "Docked control must have a name" + Consts_SDockTreeRemoveError, "Error removing control from dock tree" + Consts_SDockZoneNotFound, " - Dock zone not found" + Consts_SDockZoneHasNoCtl, " - Dock zone has no control" + 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_SmkcLeft, "Left" + Consts_SmkcUp, "Up" + Consts_SmkcRight, "Right" + Consts_SmkcDown, "Down" + Consts_SmkcIns, "Ins" + Consts_SmkcDel, "Del" + Consts_SmkcShift, "Shift+" + Consts_SmkcCtrl, "Ctrl+" + 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_SMsgDlgHelp, "&Help" + Consts_SMsgDlgAbort, "&Abort" + Consts_SMsgDlgRetry, "&Retry" + Consts_SMsgDlgIgnore, "&Ignore" + Consts_SMsgDlgAll, "&All" + Consts_SMsgDlgNoToAll, "N&o to All" + Consts_SMsgDlgYesToAll, "Yes to &All" + Consts_SmkcBkSp, "BkSp" + 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_SAllButton, "&All" + Consts_SCannotDragForm, "Cannot drag a form" + Consts_SVMetafiles, "Metafiles" + Consts_SVEnhMetafiles, "Enhanced Metafiles" + Consts_SVIcons, "Icons" + Consts_SVBitmaps, "Bitmaps" + Consts_SMaskErr, "Invalid input value" + Consts_SMaskEditErr, "Invalid input value. Use escape key to abandon changes" + 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_SNotPrinting, "Printer is not currently printing" + Consts_SPrinting, "Printing in progress" + Consts_SInvalidPrinter, "Printer selected is not valid" + Consts_SDeviceOnPort, "%s on %s" + Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex" + Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" + Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" + Consts_SOKButton, "OK" + 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_SImageReadFail, "Failed to read ImageList data from stream" + Consts_SImageWriteFail, "Failed to write ImageList data to stream" + Consts_SWindowDCError, "Error creating window device context" + Consts_SWindowClass, "Error creating window class" + Consts_SCannotFocus, "Cannot focus a disabled or invisible window" + Consts_SParentRequired, "Control '%s' has no parent window" + Consts_SParentGivenNotAParent, "Parent given is not a parent of '%s'" + Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" + 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)" + 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" + Consts_SInvalidIcon, "Icon image is not valid" + Consts_SInvalidMetafile, "Metafile is not valid" + Consts_SChangeIconSize, "Cannot change the size of an icon" + 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)" + RTLConsts_SMemoryStreamError, "Out of memory while expanding memory stream" + RTLConsts_SPropertyException, "Error reading %s%s%s: %s" + RTLConsts_SReadError, "Stream read error" + RTLConsts_SReadOnlyProperty, "Property is read-only" + RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'" + RTLConsts_SRegSetDataFailed, "Failed to set data for '%s'" + RTLConsts_SResNotFound, "Resource %s not found" + RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" + RTLConsts_SSortedListError, "Operation not allowed on sorted list" + RTLConsts_STooManyDeleted, "Too many rows or columns deleted" + RTLConsts_SUnknownGroup, "%s not in a class registration group" + RTLConsts_SUnknownProperty, "Property %s does not exist" + RTLConsts_SWriteError, "Stream write error" + RTLConsts_SDuplicateString, "String list does not allow duplicates" + RTLConsts_SFCreateErrorEx, "Cannot create file \"%s\". %s" + RTLConsts_SFixedColTooBig, "Fixed column count must be less than column count" + RTLConsts_SFixedRowTooBig, "Fixed row count must be less than row count" + RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s" + RTLConsts_SGridTooLarge, "Grid too large for operation" + RTLConsts_SIndexOutOfRange, "Grid index out of range" + RTLConsts_SInvalidImage, "Invalid stream format" + RTLConsts_SInvalidName, "''%s'' is not a valid component name" + RTLConsts_SInvalidProperty, "Invalid property value" + RTLConsts_SInvalidPropertyElement, "Invalid property element: %s" + RTLConsts_SInvalidPropertyPath, "Invalid property path" + RTLConsts_SInvalidPropertyType, "Invalid property type: %s" + RTLConsts_SInvalidPropertyValue, "Invalid property value" + RTLConsts_SInvalidRegType, "Invalid data type for '%s'" + RTLConsts_SInvalidStringGridOp, "Cannot insert or delete rows from grid" + SysConst_SLongDayNameSun, "Sunday" + SysConst_SLongDayNameMon, "Monday" + SysConst_SLongDayNameTue, "Tuesday" + SysConst_SLongDayNameWed, "Wednesday" + SysConst_SLongDayNameThu, "Thursday" + SysConst_SLongDayNameFri, "Friday" + SysConst_SLongDayNameSat, "Saturday" + RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found" + RTLConsts_SAssignError, "Cannot assign a %s to a %s" + RTLConsts_SBitsIndexError, "Bits index out of range" + RTLConsts_SCantWriteResourceStreamError, "Can't write to a read-only resource stream" + RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread" + RTLConsts_SClassNotFound, "Class %s not found" + RTLConsts_SDuplicateClass, "A class named %s already exists" + RTLConsts_SDuplicateItem, "List does not allow duplicates ($0%x)" + RTLConsts_SDuplicateName, "A component named %s already exists" + SysConst_SLongMonthNameApr, "April" + SysConst_SLongMonthNameMay, "May" + SysConst_SLongMonthNameJun, "June" + SysConst_SLongMonthNameJul, "July" + SysConst_SLongMonthNameAug, "August" + SysConst_SLongMonthNameSep, "September" + SysConst_SLongMonthNameOct, "October" + SysConst_SLongMonthNameNov, "November" + SysConst_SLongMonthNameDec, "December" + SysConst_SShortDayNameSun, "Sun" + SysConst_SShortDayNameMon, "Mon" + SysConst_SShortDayNameTue, "Tue" + SysConst_SShortDayNameWed, "Wed" + SysConst_SShortDayNameThu, "Thu" + SysConst_SShortDayNameFri, "Fri" + SysConst_SShortDayNameSat, "Sat" + SysConst_SUnkOSError, "A call to an OS function failed" + SysConst_SShortMonthNameJan, "Jan" + SysConst_SShortMonthNameFeb, "Feb" + SysConst_SShortMonthNameMar, "Mar" + SysConst_SShortMonthNameApr, "Apr" + SysConst_SShortMonthNameMay, "May" + SysConst_SShortMonthNameJun, "Jun" + SysConst_SShortMonthNameJul, "Jul" + SysConst_SShortMonthNameAug, "Aug" + SysConst_SShortMonthNameSep, "Sep" + SysConst_SShortMonthNameOct, "Oct" + SysConst_SShortMonthNameNov, "Nov" + SysConst_SShortMonthNameDec, "Dec" + SysConst_SLongMonthNameJan, "January" + SysConst_SLongMonthNameFeb, "February" + SysConst_SLongMonthNameMar, "March" + SysConst_SVarTypeTooManyCustom, "Too many custom variant types have been registered" + SysConst_SVarTypeCouldNotConvert, "Could not convert variant of type (%s) into type (%s)" + SysConst_SVarTypeConvertOverflow, "Overflow while converting variant of type (%s) into type (%s)" + SysConst_SVarOverflow, "Variant overflow" + SysConst_SVarInvalid, "Invalid argument" + SysConst_SVarBadType, "Invalid variant type" + SysConst_SVarNotImplemented, "Operation not supported" + SysConst_SVarUnexpected, "Unexpected variant error" + SysConst_SExternalException, "External exception %x" + SysConst_SAssertionFailed, "Assertion failed" + SysConst_SIntfCastError, "Interface not supported" + SysConst_SSafecallException, "Exception in safecall method" + SysConst_SAssertError, "%s (%s, line %d)" + SysConst_SAbstractError, "Abstract Error" + SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" + SysConst_SOSError, "System Error. Code: %d.\r\n%s" + SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument" + SysConst_SArgumentMissing, "No argument for format '%s'" + SysConst_SDispatchError, "Variant method calls not supported" + SysConst_SReadAccess, "Read" + SysConst_SWriteAccess, "Write" + SysConst_SFormatTooLong, "Format string too long" + SysConst_SVarArrayCreate, "Error creating variant or safe array" + SysConst_SVarArrayBounds, "Variant or safe array index out of bounds" + SysConst_SVarArrayLocked, "Variant or safe array is locked" + SysConst_SInvalidVarCast, "Invalid variant type conversion" + SysConst_SInvalidVarOp, "Invalid variant operation" + SysConst_SInvalidVarNullOp, "Invalid NULL variant operation" + SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" + SysConst_SVarTypeOutOfRangeWithPrefix, "Custom variant type (%s%.4x) is out of range" + SysConst_SVarTypeAlreadyUsedWithPrefix, "Custom variant type (%s%.4x) already used by %s" + SysConst_SVarTypeNotUsableWithPrefix, "Custom variant type (%s%.4x) is not usable" + SysConst_SRangeError, "Range check error" + SysConst_SIntOverflow, "Integer overflow" + SysConst_SInvalidOp, "Invalid floating point operation" + SysConst_SZeroDivide, "Floating point division by zero" + SysConst_SOverflow, "Floating point overflow" + SysConst_SUnderflow, "Floating point underflow" + SysConst_SInvalidPointer, "Invalid pointer operation" + SysConst_SInvalidCast, "Invalid class typecast" + SysConst_SAccessViolationArg3, "Access violation at address %p. %s of address %p" + SysConst_SAccessViolationNoArg, "Access violation" + SysConst_SStackOverflow, "Stack overflow" + SysConst_SControlC, "Control-C hit" + SysConst_SPrivilege, "Privileged instruction" + SysConst_SOperationAborted, "Operation aborted" + SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" + SysConst_SExceptTitle, "Application Error" + SysConst_SInvalidInteger, "'%s' is not a valid integer value" + SysConst_SInvalidFloat, "'%s' is not a valid floating point value" + SysConst_SInvalidTime, "'%s' is not a valid time" + SysConst_SInvalidDateTime, "'%s' is not a valid date and time" + SysConst_STimeEncodeError, "Invalid argument to time encode" + SysConst_SDateEncodeError, "Invalid argument to date encode" + SysConst_SOutOfMemory, "Out of memory" + SysConst_SInOutError, "I/O error %d" + SysConst_SFileNotFound, "File not found" + SysConst_SInvalidFilename, "Invalid filename" + SysConst_STooManyOpenFiles, "Too many open files" + SysConst_SAccessDenied, "File access denied" + SysConst_SEndOfFile, "Read beyond end of file" + SysConst_SDiskFull, "Disk full" + SysConst_SInvalidInput, "Invalid numeric input" + SysConst_SDivByZero, "Division by zero" +END + diff --git a/CPRS-Chart/CPRSChart.dsk b/CPRS-Chart/CPRSChart.dsk new file mode 100644 index 0000000..98671ef --- /dev/null +++ b/CPRS-Chart/CPRSChart.dsk @@ -0,0 +1,397 @@ +[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 + +[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 +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 + +[EditWindow0] +ViewCount=6 +CurrentView=3 +View0=0 +View1=1 +View2=2 +View3=3 +View4=4 +View5=5 +CodeExplorer=CodeExplorer@EditWindow0 +MessageView=MessageView@EditWindow0 +Create=1 +Visible=1 +State=0 +Left=35 +Top=116 +Width=957 +Height=594 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=949 +ClientHeight=560 +LeftPanelSize=0 +RightPanelSize=0 +BottomPanelSize=0 + +[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 + +[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 + +[Watches] +Count=1 +Watch0='paramstr(2)',256,0,18,1,1,'Watches' + +[WatchWindow] +WatchColumnWidth=100 +WatchShowColumnHeaders=1 +Create=1 +Visible=0 +State=0 +Left=4 +Top=410 +Width=739 +Height=172 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=731 +ClientHeight=146 +TBDockHeight=146 +LRDockWidth=426 +Dockable=1 + +[Breakpoints] +Count=0 + +[AddressBreakpoints] +Count=0 + +[Main Window] +Create=1 +Visible=1 +State=0 +Left=0 +Top=0 +Width=1024 +Height=112 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=1016 +ClientHeight=78 + +[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] +Create=1 +Visible=1 +State=0 +Left=0 +Top=394 +Width=246 +Height=335 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=238 +ClientHeight=309 +TBDockHeight=367 +LRDockWidth=190 +Dockable=1 +SplitPos=85 +ArrangeBy=Name +SelectedItem=Visible +ExpandedItems= +HiddenCategories= + +[BreakpointWindow] +Create=1 +Visible=0 +State=0 +Left=143 +Top=285 +Width=737 +Height=197 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=729 +ClientHeight=171 +TBDockHeight=197 +LRDockWidth=737 +Dockable=1 +Column0Width=100 +Column1Width=75 +Column2Width=200 +Column3Width=200 +Column4Width=75 +Column5Width=75 + +[CallStackWindow] +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 +State=0 +Left=0 +Top=114 +Width=250 +Height=274 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=242 +ClientHeight=248 +TBDockHeight=248 +LRDockWidth=190 +Dockable=1 + +[DebugLogView] +Create=1 +Visible=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 +Dockable=1 + +[MessageView@EditWindow0] +Create=1 +Visible=0 +State=0 +Left=0 +Top=0 +Width=1008 +Height=419 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=1008 +ClientHeight=419 +TBDockHeight=85 +LRDockWidth=443 +Dockable=1 + +[DockHosts] +DockHostCount=1 + +[DockSite0] +DockSiteType=1 +Create=1 +Visible=0 +State=0 +Left=4 +Top=195 +Width=1024 +Height=474 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=1016 +ClientHeight=448 +TBDockHeight=474 +LRDockWidth=283 +Dockable=1 +TabPosition=0 +ActiveTab=Exploring fPtSelOptns.pas +TabDockClients=CodeExplorer@EditWindow0,MessageView@EditWindow0 + diff --git a/CPRS-Chart/CPRSChart.dsm b/CPRS-Chart/CPRSChart.dsm new file mode 100644 index 0000000..1af08cd Binary files /dev/null and b/CPRS-Chart/CPRSChart.dsm differ diff --git a/CPRS-Chart/CPRSChart.exe b/CPRS-Chart/CPRSChart.exe new file mode 100644 index 0000000..7062525 Binary files /dev/null and b/CPRS-Chart/CPRSChart.exe differ diff --git a/CPRS-Chart/CPRSChart.map b/CPRS-Chart/CPRSChart.map new file mode 100644 index 0000000..adbbdc7 --- /dev/null +++ b/CPRS-Chart/CPRSChart.map @@ -0,0 +1,77282 @@ + + Start Length Name Class + 0001:00000000 003806DCH .text CODE + 0002:00000000 00004104H .data DATA + 0002:00004104 0000413DH .bss BSS + + +Detailed map of segments + + 0001:00000000 00005B1F C=CODE S=.text G=(none) M=System ACBP=A9 + 0001:00005B20 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9 + 0001:00005C60 00000118 C=CODE S=.text G=(none) M=ShareMem ACBP=A9 + 0001:00005D78 00000250 C=CODE S=.text G=(none) M=Types ACBP=A9 + 0001:00005FC8 00001168 C=CODE S=.text G=(none) M=Windows ACBP=A9 + 0001:00007130 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9 + 0001:00007168 00000370 C=CODE S=.text G=(none) M=SysConst ACBP=A9 + 0001:000074D8 00008B8C C=CODE S=.text G=(none) M=SysUtils ACBP=A9 + 0001:00010064 000008AF C=CODE S=.text G=(none) M=VarUtils ACBP=A9 + 0001:00010914 00009412 C=CODE S=.text G=(none) M=Variants ACBP=A9 + 0001:00019D28 00000190 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9 + 0001:00019EB8 00001D48 C=CODE S=.text G=(none) M=TypInfo ACBP=A9 + 0001:0001BC00 0000040C C=CODE S=.text G=(none) M=ActiveX ACBP=A9 + 0001:0001C00C 000106FA C=CODE S=.text G=(none) M=Classes ACBP=A9 + 0001:0002C708 00000388 C=CODE S=.text G=(none) M=Consts ACBP=A9 + 0001:0002CA90 0000B903 C=CODE S=.text G=(none) M=Graphics ACBP=A9 + 0001:00038394 00000108 C=CODE S=.text G=(none) M=Math ACBP=A9 + 0001:0003849C 00000760 C=CODE S=.text G=(none) M=Contnrs ACBP=A9 + 0001:00038BFC 000011B8 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9 + 0001:00039DB4 0000087F C=CODE S=.text G=(none) M=MultiMon ACBP=A9 + 0001:0003A634 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9 + 0001:0003A66C 00001210 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9 + 0001:0003B87C 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9 + 0001:0003B8D4 0000141C C=CODE S=.text G=(none) M=Printers ACBP=A9 + 0001:0003CCF0 0000036B C=CODE S=.text G=(none) M=FlatSB ACBP=A9 + 0001:0003D05C 00000204 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9 + 0001:0003D260 00000A63 C=CODE S=.text G=(none) M=UxTheme ACBP=A9 + 0001:0003DCC4 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9 + 0001:0003DCFC 00000CBC C=CODE S=.text G=(none) M=ToolWin ACBP=A9 + 0001:0003E9B8 00000040 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9 + 0001:0003E9F8 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9 + 0001:0003EA30 00000038 C=CODE S=.text G=(none) M=WinInet ACBP=A9 + 0001:0003EA68 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9 + 0001:0003EAA0 000000A8 C=CODE S=.text G=(none) M=ShlObj ACBP=A9 + 0001:0003EB48 00000070 C=CODE S=.text G=(none) M=CommDlg ACBP=A9 + 0001:0003EBB8 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9 + 0001:0003EBF0 00004E79 C=CODE S=.text G=(none) M=Dialogs ACBP=A9 + 0001:00043A6C 0000631A C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9 + 0001:00049D88 000000E8 C=CODE S=.text G=(none) M=ComStrs ACBP=A9 + 0001:00049E70 000009CC C=CODE S=.text G=(none) M=Clipbrd ACBP=A9 + 0001:0004A83C 00000228 C=CODE S=.text G=(none) M=StrUtils ACBP=A9 + 0001:0004AA64 000042E1 C=CODE S=.text G=(none) M=Buttons ACBP=A9 + 0001:0004ED48 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9 + 0001:0004ED80 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9 + 0001:0004EDE8 00000B64 C=CODE S=.text G=(none) M=Registry ACBP=A9 + 0001:0004F94C 00000070 C=CODE S=.text G=(none) M=Mapi ACBP=A9 + 0001:0004F9BC 0000005C C=CODE S=.text G=(none) M=ExtActns ACBP=A9 + 0001:0004FA18 000020F4 C=CODE S=.text G=(none) M=ListActns ACBP=A9 + 0001:00051B0C 0002E00C C=CODE S=.text G=(none) M=ComCtrls ACBP=A9 + 0001:0007FB18 0000107C C=CODE S=.text G=(none) M=Themes ACBP=A9 + 0001:00080B94 0001002C C=CODE S=.text G=(none) M=StdCtrls ACBP=A9 + 0001:00090BC0 0000017C C=CODE S=.text G=(none) M=StdActns ACBP=A9 + 0001:00090D3C 00000EAF C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9 + 0001:00091BEC 0001584F C=CODE S=.text G=(none) M=Controls ACBP=A9 + 0001:000A743C 00001A06 C=CODE S=.text G=(none) M=ActnList ACBP=A9 + 0001:000A8E44 000020FC C=CODE S=.text G=(none) M=ImgList ACBP=A9 + 0001:000AAF40 00007B29 C=CODE S=.text G=(none) M=Menus ACBP=A9 + 0001:000B2A6C 000107D0 C=CODE S=.text G=(none) M=Forms ACBP=A9 + 0001:000C323C 00004B04 C=CODE S=.text G=(none) M=TeCanvas ACBP=A9 + 0001:000C7D40 00000298 C=CODE S=.text G=(none) M=TeeConst ACBP=A9 + 0001:000C7FD8 00002910 C=CODE S=.text G=(none) M=TeeProcs ACBP=A9 + 0001:000CA8E8 0000C110 C=CODE S=.text G=(none) M=TeEngine ACBP=A9 + 0001:000D69F8 00001B77 C=CODE S=.text G=(none) M=CheckLst ACBP=A9 + 0001:000D8570 00000C34 C=CODE S=.text G=(none) M=TeeFunci ACBP=A9 + 0001:000D91A4 00005C3C C=CODE S=.text G=(none) M=Chart ACBP=A9 + 0001:000DEDE0 00000C20 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9 + 0001:000DFA00 00002F38 C=CODE S=.text G=(none) M=Mask ACBP=A9 + 0001:000E2938 0000B13C C=CODE S=.text G=(none) M=Grids ACBP=A9 + 0001:000EDA74 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9 + 0001:000EDAAC 000000A8 C=CODE S=.text G=(none) M=ComConst ACBP=A9 + 0001:000EDB54 0000399D C=CODE S=.text G=(none) M=ComObj ACBP=A9 + 0001:000F14F4 00000074 C=CODE S=.text G=(none) M=Accessibility_TLB ACBP=A9 + 0001:000F1568 000001C4 C=CODE S=.text G=(none) M=uAccessAPI ACBP=A9 + 0001:000F172C 0000F227 C=CODE S=.text G=(none) M=ORCtrls ACBP=A9 + 0001:00100954 00004364 C=CODE S=.text G=(none) M=ORFn ACBP=A9 + 0001:00104CB8 00000E10 C=CODE S=.text G=(none) M=ORSystem ACBP=A9 + 0001:00105AC8 000002C2 C=CODE S=.text G=(none) M=uConst ACBP=A9 + 0001:00105D8C 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9 + 0001:00105DEC 00000B12 C=CODE S=.text G=(none) M=OleServer ACBP=A9 + 0001:00106900 00001A67 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9 + 0001:00108368 00003DD9 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9 + 0001:0010C144 00000870 C=CODE S=.text G=(none) M=VERGENCECONTEXTORLib_TLB ACBP=A9 + 0001:0010C9B4 000002D0 C=CODE S=.text G=(none) M=MFunStr ACBP=A9 + 0001:0010CC84 00000928 C=CODE S=.text G=(none) M=Hash ACBP=A9 + 0001:0010D5AC 00000478 C=CODE S=.text G=(none) M=Xwbut1 ACBP=A9 + 0001:0010DA24 00000120 C=CODE S=.text G=(none) M=WinSock ACBP=A9 + 0001:0010DB44 000001E4 C=CODE S=.text G=(none) M=fDebugInfo ACBP=A9 + 0001:0010DD28 00000038 C=CODE S=.text G=(none) M=Rpcberr ACBP=A9 + 0001:0010DD60 00003CEC C=CODE S=.text G=(none) M=Wsockc ACBP=A9 + 0001:00111A4C 000002B8 C=CODE S=.text G=(none) M=fRPCBErrMsg ACBP=A9 + 0001:00111D04 00000038 C=CODE S=.text G=(none) M=CCOW_const ACBP=A9 + 0001:00111D3C 00000B5C C=CODE S=.text G=(none) M=SelDiv ACBP=A9 + 0001:00112898 000031E4 C=CODE S=.text G=(none) M=XWBRich20 ACBP=A9 + 0001:00115A7C 00000254 C=CODE S=.text G=(none) M=frmSignonMessage ACBP=A9 + 0001:00115CD0 000001EC C=CODE S=.text G=(none) M=fSgnonDlg ACBP=A9 + 0001:00115EBC 00000230 C=CODE S=.text G=(none) M=AddServer ACBP=A9 + 0001:001160EC 00000630 C=CODE S=.text G=(none) M=RpcNet ACBP=A9 + 0001:0011671C 00000D58 C=CODE S=.text G=(none) M=Rpcconf1 ACBP=A9 + 0001:00117474 00000BF0 C=CODE S=.text G=(none) M=VCEdit ACBP=A9 + 0001:00118064 00001AB4 C=CODE S=.text G=(none) M=Sgnoncnf ACBP=A9 + 0001:00119B18 000015AC C=CODE S=.text G=(none) M=Loginfrm ACBP=A9 + 0001:0011B0C4 0000088C C=CODE S=.text G=(none) M=RpcSLogin ACBP=A9 + 0001:0011B950 00002FF0 C=CODE S=.text G=(none) M=Trpcb ACBP=A9 + 0001:0011E940 00001C14 C=CODE S=.text G=(none) M=CCOWRPCBroker ACBP=A9 + 0001:00120554 0000131C C=CODE S=.text G=(none) M=ORNet ACBP=A9 + 0001:00121870 00001040 C=CODE S=.text G=(none) M=ORClasses ACBP=A9 + 0001:001228B0 000005A0 C=CODE S=.text G=(none) M=uTIU ACBP=A9 + 0001:00122E50 00000528 C=CODE S=.text G=(none) M=fAutoSz ACBP=A9 + 0001:00123378 00000038 C=CODE S=.text G=(none) M=Tabs ACBP=A9 + 0001:001233B0 00001593 C=CODE S=.text G=(none) M=AppEvnts ACBP=A9 + 0001:00124944 000005A8 C=CODE S=.text G=(none) M=fPtSelMsg ACBP=A9 + 0001:00124EEC 00000EB4 C=CODE S=.text G=(none) M=Calendar ACBP=A9 + 0001:00125DA0 00000384 C=CODE S=.text G=(none) M=ORDtTmCal ACBP=A9 + 0001:00126124 00004240 C=CODE S=.text G=(none) M=ORDtTm ACBP=A9 + 0001:0012A364 00000B90 C=CODE S=.text G=(none) M=ORDtTmRng ACBP=A9 + 0001:0012AEF4 0000109C C=CODE S=.text G=(none) M=Gauges ACBP=A9 + 0001:0012BF90 00001A50 C=CODE S=.text G=(none) M=uConsults ACBP=A9 + 0001:0012D9E0 00000BC8 C=CODE S=.text G=(none) M=mVisitRelated ACBP=A9 + 0001:0012E5A8 000009FC C=CODE S=.text G=(none) M=fPCEBaseGrid ACBP=A9 + 0001:0012EFA4 00000038 C=CODE S=.text G=(none) M=UBAConst ACBP=A9 + 0001:0012EFDC 000004EC C=CODE S=.text G=(none) M=rVitals ACBP=A9 + 0001:0012F4C8 00000038 C=CODE S=.text G=(none) M=mVitBase ACBP=A9 + 0001:0012F500 00000038 C=CODE S=.text G=(none) M=mVitMetric ACBP=A9 + 0001:0012F538 0000025C C=CODE S=.text G=(none) M=fVitalsDate ACBP=A9 + 0001:0012F794 0000183C C=CODE S=.text G=(none) M=uVitals ACBP=A9 + 0001:00130FD0 00008D85 C=CODE S=.text G=(none) M=Series ACBP=A9 + 0001:00139D58 00000E20 C=CODE S=.text G=(none) M=rMeds ACBP=A9 + 0001:0013AB78 00000164 C=CODE S=.text G=(none) M=MSXML_TLB ACBP=A9 + 0001:0013ACDC 00000458 C=CODE S=.text G=(none) M=uDCSumm ACBP=A9 + 0001:0013B134 000019FC C=CODE S=.text G=(none) M=rTemplates ACBP=A9 + 0001:0013CB30 00000524 C=CODE S=.text G=(none) M=mTemplateFieldButton ACBP=A9 + 0001:0013D054 00005E14 C=CODE S=.text G=(none) M=uTemplateFields ACBP=A9 + 0001:00142E68 00000E3C C=CODE S=.text G=(none) M=uReports ACBP=A9 + 0001:00143CA4 00000FF4 C=CODE S=.text G=(none) M=SHDocVw ACBP=A9 + 0001:00144C98 000008B4 C=CODE S=.text G=(none) M=rECS ACBP=A9 + 0001:0014554C 00002BFC C=CODE S=.text G=(none) M=fReportsPrint ACBP=A9 + 0001:00148148 00001450 C=CODE S=.text G=(none) M=fReportsAdhocSubItem1 ACBP=A9 + 0001:00149598 00003020 C=CODE S=.text G=(none) M=fReportsAdhocComponent1 ACBP=A9 + 0001:0014C5B8 000000A0 C=CODE S=.text G=(none) M=MSHTML ACBP=A9 + 0001:0014C658 00000AEA C=CODE S=.text G=(none) M=GanttCh ACBP=A9 + 0001:0014D144 00000238 C=CODE S=.text G=(none) M=DateUtils ACBP=A9 + 0001:0014D37C 00000038 C=CODE S=.text G=(none) M=Office97 ACBP=A9 + 0001:0014D3B4 00000038 C=CODE S=.text G=(none) M=VBIDE97 ACBP=A9 + 0001:0014D3EC 00000A88 C=CODE S=.text G=(none) M=Word97 ACBP=A9 + 0001:0014DE74 00000038 C=CODE S=.text G=(none) M=Office2000 ACBP=A9 + 0001:0014DEAC 00000038 C=CODE S=.text G=(none) M=VBIDE2000 ACBP=A9 + 0001:0014DEE4 00000038 C=CODE S=.text G=(none) M=Word2000 ACBP=A9 + 0001:0014DF1C 0000088A C=CODE S=.text G=(none) M=ArrowCha ACBP=A9 + 0001:0014E7A8 000003C8 C=CODE S=.text G=(none) M=uGraphs ACBP=A9 + 0001:0014EB70 00000E0C C=CODE S=.text G=(none) M=rGraphs ACBP=A9 + 0001:0014F97C 00003DA4 C=CODE S=.text G=(none) M=fGraphSettings ACBP=A9 + 0001:00153720 00005A24 C=CODE S=.text G=(none) M=fGraphProfiles ACBP=A9 + 0001:00159144 00000D2B C=CODE S=.text G=(none) M=uFormMonitor ACBP=A9 + 0001:00159E70 00017D9D C=CODE S=.text G=(none) M=fGraphs ACBP=A9 + 0001:00171C10 0000C5D0 C=CODE S=.text G=(none) M=fReports ACBP=A9 + 0001:0017E1E0 000033F8 C=CODE S=.text G=(none) M=rReports ACBP=A9 + 0001:001815D8 00000B38 C=CODE S=.text G=(none) M=fRptBox ACBP=A9 + 0001:00182110 000003F4 C=CODE S=.text G=(none) M=fTimeout ACBP=A9 + 0001:00182504 00000680 C=CODE S=.text G=(none) M=uInit ACBP=A9 + 0001:00182B84 00001E00 C=CODE S=.text G=(none) M=fTemplateDialog ACBP=A9 + 0001:00184984 00000610 C=CODE S=.text G=(none) M=fTemplateView ACBP=A9 + 0001:00184F94 00000388 C=CODE S=.text G=(none) M=MenuBar ACBP=A9 + 0001:0018531C 000004C8 C=CODE S=.text G=(none) M=fTemplateObjects ACBP=A9 + 0001:001857E4 0000139C C=CODE S=.text G=(none) M=uSpell ACBP=A9 + 0001:00186B80 00000720 C=CODE S=.text G=(none) M=fTemplateAutoGen ACBP=A9 + 0001:001872A0 000006B0 C=CODE S=.text G=(none) M=fTemplateFields ACBP=A9 + 0001:00187950 00004064 C=CODE S=.text G=(none) M=fTemplateFieldEditor ACBP=A9 + 0001:0018B9B4 0000061C C=CODE S=.text G=(none) M=XMLUtils ACBP=A9 + 0001:0018BFD0 000001B4 C=CODE S=.text G=(none) M=mImgText ACBP=A9 + 0001:0018C184 00000A50 C=CODE S=.text G=(none) M=fIconLegend ACBP=A9 + 0001:0018CBD4 00000898 C=CODE S=.text G=(none) M=fDeviceSelect ACBP=A9 + 0001:0018D46C 00001B74 C=CODE S=.text G=(none) M=rReminders ACBP=A9 + 0001:0018EFE0 0000034C C=CODE S=.text G=(none) M=fOCAccept ACBP=A9 + 0001:0018F32C 000005AF C=CODE S=.text G=(none) M=uODBase ACBP=A9 + 0001:0018F8DC 00000038 C=CODE S=.text G=(none) M=fODMessage ACBP=A9 + 0001:0018F914 000000A8 C=CODE S=.text G=(none) M=CPRSChart_TLB ACBP=A9 + 0001:0018F9BC 00000160 C=CODE S=.text G=(none) M=rEventHooks ACBP=A9 + 0001:0018FB1C 00001DA4 C=CODE S=.text G=(none) M=uEventHooks ACBP=A9 + 0001:001918C0 00000B30 C=CODE S=.text G=(none) M=rODDiet ACBP=A9 + 0001:001923F0 00000DB8 C=CODE S=.text G=(none) M=fODDietLT ACBP=A9 + 0001:001931A8 00000A28 C=CODE S=.text G=(none) M=uComServ ACBP=A9 + 0001:00193BD0 00001869 C=CODE S=.text G=(none) M=uAccessibleStringGrid ACBP=A9 + 0001:0019543C 00009EEC C=CODE S=.text G=(none) M=fODDiet ACBP=A9 + 0001:0019F328 000008AC C=CODE S=.text G=(none) M=fODMisc ACBP=A9 + 0001:0019FBD4 00002124 C=CODE S=.text G=(none) M=fODGen ACBP=A9 + 0001:001A1CF8 000005D8 C=CODE S=.text G=(none) M=fODMedFA ACBP=A9 + 0001:001A22D0 00001EC0 C=CODE S=.text G=(none) M=fODMedIn ACBP=A9 + 0001:001A4190 00002190 C=CODE S=.text G=(none) M=fODMedComplex ACBP=A9 + 0001:001A6320 00002D14 C=CODE S=.text G=(none) M=fODMedOut ACBP=A9 + 0001:001A9034 000007A8 C=CODE S=.text G=(none) M=fODText ACBP=A9 + 0001:001A97DC 00000058 C=CODE S=.text G=(none) M=DBConsts ACBP=A9 + 0001:001A9834 00001213 C=CODE S=.text G=(none) M=SqlTimSt ACBP=A9 + 0001:001AAA48 00003D2B C=CODE S=.text G=(none) M=FMTBcd ACBP=A9 + 0001:001AE774 00000584 C=CODE S=.text G=(none) M=DB ACBP=A9 + 0001:001AECF8 00000090 C=CODE S=.text G=(none) M=VDBConsts ACBP=A9 + 0001:001AED88 00000790 C=CODE S=.text G=(none) M=DBLogDlg ACBP=A9 + 0001:001AF518 0000059D C=CODE S=.text G=(none) M=DBPWDlg ACBP=A9 + 0001:001AFAB8 00000358 C=CODE S=.text G=(none) M=DBCtrls ACBP=A9 + 0001:001AFE10 00000038 C=CODE S=.text G=(none) M=DBCommon ACBP=A9 + 0001:001AFE48 00000038 C=CODE S=.text G=(none) M=MidConst ACBP=A9 + 0001:001AFE80 00000068 C=CODE S=.text G=(none) M=DSIntf ACBP=A9 + 0001:001AFEE8 00000038 C=CODE S=.text G=(none) M=Midas ACBP=A9 + 0001:001AFF20 00000038 C=CODE S=.text G=(none) M=DataBkr ACBP=A9 + 0001:001AFF58 00000138 C=CODE S=.text G=(none) M=Provider ACBP=A9 + 0001:001B0090 00000038 C=CODE S=.text G=(none) M=DBClient ACBP=A9 + 0001:001B00C8 00000B08 C=CODE S=.text G=(none) M=fGAF ACBP=A9 + 0001:001B0BD0 0000097C C=CODE S=.text G=(none) M=fPCEProvider ACBP=A9 + 0001:001B154C 00001028 C=CODE S=.text G=(none) M=rODMeds ACBP=A9 + 0001:001B2574 00000704 C=CODE S=.text G=(none) M=fODMedOIFA ACBP=A9 + 0001:001B2C78 00000038 C=CODE S=.text G=(none) M=Vawrgrid ACBP=A9 + 0001:001B2CB0 0000365C C=CODE S=.text G=(none) M=uProbs ACBP=A9 + 0001:001B630C 00000B98 C=CODE S=.text G=(none) M=rProbs ACBP=A9 + 0001:001B6EA4 00001620 C=CODE S=.text G=(none) M=fProbflt ACBP=A9 + 0001:001B84C4 00000DF4 C=CODE S=.text G=(none) M=fProbLex ACBP=A9 + 0001:001B92B8 00000228 C=CODE S=.text G=(none) M=fOMAction ACBP=A9 + 0001:001B94E0 000017A8 C=CODE S=.text G=(none) M=rODAllergy ACBP=A9 + 0001:001BAC88 000004DC C=CODE S=.text G=(none) M=fARTFreeTextMsg ACBP=A9 + 0001:001BB164 000015C0 C=CODE S=.text G=(none) M=fAllgyFind ACBP=A9 + 0001:001BC724 000021A0 C=CODE S=.text G=(none) M=rOptions ACBP=A9 + 0001:001BE8C4 00000038 C=CODE S=.text G=(none) M=fVisit ACBP=A9 + 0001:001BE8FC 000004D0 C=CODE S=.text G=(none) M=mCoPayDesc ACBP=A9 + 0001:001BEDCC 000000F4 C=CODE S=.text G=(none) M=XuDigSigSC_TLB ACBP=A9 + 0001:001BEEC0 00000C44 C=CODE S=.text G=(none) M=fConsult513Prt ACBP=A9 + 0001:001BFB04 0000050C C=CODE S=.text G=(none) M=fNoteST ACBP=A9 + 0001:001C0010 000005FC C=CODE S=.text G=(none) M=fNoteBA ACBP=A9 + 0001:001C060C 000006EC C=CODE S=.text G=(none) M=fNoteBD ACBP=A9 + 0001:001C0CF8 0000043C C=CODE S=.text G=(none) M=fSignItem ACBP=A9 + 0001:001C1134 00000038 C=CODE S=.text G=(none) M=fNoteCslt ACBP=A9 + 0001:001C116C 00000C38 C=CODE S=.text G=(none) M=fNotePrt ACBP=A9 + 0001:001C1DA4 000003E0 C=CODE S=.text G=(none) M=uSurgery ACBP=A9 + 0001:001C2184 00000CA4 C=CODE S=.text G=(none) M=rSurgery ACBP=A9 + 0001:001C2E28 000013BD C=CODE S=.text G=(none) M=uAccessibleListBox ACBP=A9 + 0001:001C41E8 000031B0 C=CODE S=.text G=(none) M=fNoteProps ACBP=A9 + 0001:001C7398 000013B8 C=CODE S=.text G=(none) M=fAddlSigners ACBP=A9 + 0001:001C8750 00000404 C=CODE S=.text G=(none) M=fNoteDR ACBP=A9 + 0001:001C8B54 00000986 C=CODE S=.text G=(none) M=fConsultBS ACBP=A9 + 0001:001C94DC 000006B4 C=CODE S=.text G=(none) M=fConsultBD ACBP=A9 + 0001:001C9B90 00000724 C=CODE S=.text G=(none) M=fConsultBSt ACBP=A9 + 0001:001CA2B4 00000EE2 C=CODE S=.text G=(none) M=fConsultsView ACBP=A9 + 0001:001CB198 00000630 C=CODE S=.text G=(none) M=fConsultAlertTo ACBP=A9 + 0001:001CB7C8 0000238E C=CODE S=.text G=(none) M=fConsultAct ACBP=A9 + 0001:001CDB58 00000964 C=CODE S=.text G=(none) M=fPreReq ACBP=A9 + 0001:001CE4BC 0000130D C=CODE S=.text G=(none) M=uAccessibleRichEdit ACBP=A9 + 0001:001CF7CC 000032BC C=CODE S=.text G=(none) M=fODProc ACBP=A9 + 0001:001D2A88 00000CDC C=CODE S=.text G=(none) M=fCsltNote ACBP=A9 + 0001:001D3764 00001008 C=CODE S=.text G=(none) M=fOrderVw ACBP=A9 + 0001:001D476C 00000400 C=CODE S=.text G=(none) M=fLkUpLocation ACBP=A9 + 0001:001D4B6C 00000A84 C=CODE S=.text G=(none) M=fOrdersDC ACBP=A9 + 0001:001D55F0 00000544 C=CODE S=.text G=(none) M=fODChangeEvtDisp ACBP=A9 + 0001:001D5B34 00001788 C=CODE S=.text G=(none) M=fOrdersCV ACBP=A9 + 0001:001D72BC 000003E4 C=CODE S=.text G=(none) M=fOrdersHold ACBP=A9 + 0001:001D76A0 0000039C C=CODE S=.text G=(none) M=fOrdersUnhold ACBP=A9 + 0001:001D7A3C 00000508 C=CODE S=.text G=(none) M=fOrdersAlert ACBP=A9 + 0001:001D7F44 00000554 C=CODE S=.text G=(none) M=fOrderFlag ACBP=A9 + 0001:001D8498 00000378 C=CODE S=.text G=(none) M=fOrderUnflag ACBP=A9 + 0001:001D8810 00000038 C=CODE S=.text G=(none) M=UBAMessages ACBP=A9 + 0001:001D8848 00001268 C=CODE S=.text G=(none) M=fOrdersPrint ACBP=A9 + 0001:001D9AB0 000023D5 C=CODE S=.text G=(none) M=uSignItems ACBP=A9 + 0001:001DBE88 000009F4 C=CODE S=.text G=(none) M=fClinicWardMeds ACBP=A9 + 0001:001DC87C 00004334 C=CODE S=.text G=(none) M=fOrdersSign ACBP=A9 + 0001:001E0BB0 00000E44 C=CODE S=.text G=(none) M=fOrdersRelease ACBP=A9 + 0001:001E19F4 000009A4 C=CODE S=.text G=(none) M=fOrdersOnChart ACBP=A9 + 0001:001E2398 00000038 C=CODE S=.text G=(none) M=Spin ACBP=A9 + 0001:001E23D0 000015C8 C=CODE S=.text G=(none) M=fOrdersEvntRelease ACBP=A9 + 0001:001E3998 00000574 C=CODE S=.text G=(none) M=fOrdersComplete ACBP=A9 + 0001:001E3F0C 0000087C C=CODE S=.text G=(none) M=fOrdersVerify ACBP=A9 + 0001:001E4788 00000468 C=CODE S=.text G=(none) M=fOrderComment ACBP=A9 + 0001:001E4BF0 00000348 C=CODE S=.text G=(none) M=fRename ACBP=A9 + 0001:001E4F38 00000FC0 C=CODE S=.text G=(none) M=fOrderSaveQuick ACBP=A9 + 0001:001E5EF8 00000600 C=CODE S=.text G=(none) M=fDateRange ACBP=A9 + 0001:001E64F8 00000524 C=CODE S=.text G=(none) M=fRenewOutMed ACBP=A9 + 0001:001E6A1C 000013D0 C=CODE S=.text G=(none) M=fOrdersRenew ACBP=A9 + 0001:001E7DEC 00000DC8 C=CODE S=.text G=(none) M=fODReleaseEvent ACBP=A9 + 0001:001E8BB4 0000054C C=CODE S=.text G=(none) M=fODAuto ACBP=A9 + 0001:001E9100 00000624 C=CODE S=.text G=(none) M=fOMVerify ACBP=A9 + 0001:001E9724 00001940 C=CODE S=.text G=(none) M=fOMNavA ACBP=A9 + 0001:001EB064 00000FF8 C=CODE S=.text G=(none) M=fOCSession ACBP=A9 + 0001:001EC05C 000012D0 C=CODE S=.text G=(none) M=fMedCopy ACBP=A9 + 0001:001ED32C 00001158 C=CODE S=.text G=(none) M=fOrdersCopy ACBP=A9 + 0001:001EE484 00001310 C=CODE S=.text G=(none) M=mEvntDelay ACBP=A9 + 0001:001EF794 00000F10 C=CODE S=.text G=(none) M=fOrdersTS ACBP=A9 + 0001:001F06A4 0000032C C=CODE S=.text G=(none) M=fEffectDate ACBP=A9 + 0001:001F09D0 00000FE4 C=CODE S=.text G=(none) M=fODActive ACBP=A9 + 0001:001F19B4 00000670 C=CODE S=.text G=(none) M=fODChild ACBP=A9 + 0001:001F2024 00000F28 C=CODE S=.text G=(none) M=fODValidateAction ACBP=A9 + 0001:001F2F4C 00000710 C=CODE S=.text G=(none) M=fOrdersRefill ACBP=A9 + 0001:001F365C 00000038 C=CODE S=.text G=(none) M=fActivateDeactivate ACBP=A9 + 0001:001F3694 000069FC C=CODE S=.text G=(none) M=fMeds ACBP=A9 + 0001:001FA090 00002504 C=CODE S=.text G=(none) M=fEditProc ACBP=A9 + 0001:001FC594 00002470 C=CODE S=.text G=(none) M=fEditConsult ACBP=A9 + 0001:001FEA04 00000340 C=CODE S=.text G=(none) M=fNotesBP ACBP=A9 + 0001:001FED44 00000390 C=CODE S=.text G=(none) M=fRemCoverPreview ACBP=A9 + 0001:001FF0D4 00004B34 C=CODE S=.text G=(none) M=fRemCoverSheet ACBP=A9 + 0001:00203C08 00001391 C=CODE S=.text G=(none) M=uaccessibleTreeView ACBP=A9 + 0001:00204F9C 00001321 C=CODE S=.text G=(none) M=uAccessibleTreeNode ACBP=A9 + 0001:002062C0 00001D6C C=CODE S=.text G=(none) M=fReminderTree ACBP=A9 + 0001:0020802C 00000CB8 C=CODE S=.text G=(none) M=fConsMedRslt ACBP=A9 + 0001:00208CE4 0000053C C=CODE S=.text G=(none) M=fNoteIDParents ACBP=A9 + 0001:00209220 000008F0 C=CODE S=.text G=(none) M=fNoteCPFields ACBP=A9 + 0001:00209B10 0000FF1B C=CODE S=.text G=(none) M=fConsults ACBP=A9 + 0001:00219A2C 00001264 C=CODE S=.text G=(none) M=fTIUView ACBP=A9 + 0001:0021AC90 0000082C C=CODE S=.text G=(none) M=fPCEEdit ACBP=A9 + 0001:0021B4BC 00000230 C=CODE S=.text G=(none) M=fNoteSTStop ACBP=A9 + 0001:0021B6EC 000026E8 C=CODE S=.text G=(none) M=rDCSumm ACBP=A9 + 0001:0021DDD4 00001D18 C=CODE S=.text G=(none) M=fDCSummProps ACBP=A9 + 0001:0021FAEC 0000BC07 C=CODE S=.text G=(none) M=fDCSumm ACBP=A9 + 0001:0022B6F4 0000067C C=CODE S=.text G=(none) M=fPrintList ACBP=A9 + 0001:0022BD70 00000884 C=CODE S=.text G=(none) M=fSurgeryView ACBP=A9 + 0001:0022C5F4 00001560 C=CODE S=.text G=(none) M=uCaseTree ACBP=A9 + 0001:0022DB54 0000948B C=CODE S=.text G=(none) M=fSurgery ACBP=A9 + 0001:00236FE0 00005E54 C=CODE S=.text G=(none) M=fReview ACBP=A9 + 0001:0023CE34 00001DC0 C=CODE S=.text G=(none) M=fEncnt ACBP=A9 + 0001:0023EBF4 0000186C C=CODE S=.text G=(none) M=fvit ACBP=A9 + 0001:00240460 00000264 C=CODE S=.text G=(none) M=uOrPtf ACBP=A9 + 0001:002406C4 00000B28 C=CODE S=.text G=(none) M=fPatientFlagMulti ACBP=A9 + 0001:002411EC 000005E8 C=CODE S=.text G=(none) M=fPtCWAD ACBP=A9 + 0001:002417D4 000042D4 C=CODE S=.text G=(none) M=fARTAllgy ACBP=A9 + 0001:00245AA8 000007F0 C=CODE S=.text G=(none) M=fAllgyBox ACBP=A9 + 0001:00246298 00000550 C=CODE S=.text G=(none) M=fProbCmt ACBP=A9 + 0001:002467E8 00003D44 C=CODE S=.text G=(none) M=fProbEdt ACBP=A9 + 0001:0024A52C 000087E4 C=CODE S=.text G=(none) M=fProbs ACBP=A9 + 0001:00252D10 00005DE8 C=CODE S=.text G=(none) M=fODConsult ACBP=A9 + 0001:00258AF8 000003E4 C=CODE S=.text G=(none) M=rODRad ACBP=A9 + 0001:00258EDC 00000454 C=CODE S=.text G=(none) M=fODRadApproval ACBP=A9 + 0001:00259330 00000688 C=CODE S=.text G=(none) M=fODRadConShRes ACBP=A9 + 0001:002599B8 000039C8 C=CODE S=.text G=(none) M=fODRad ACBP=A9 + 0001:0025D380 00000A60 C=CODE S=.text G=(none) M=rODLab ACBP=A9 + 0001:0025DDE0 00000584 C=CODE S=.text G=(none) M=fODLabOthCollSamp ACBP=A9 + 0001:0025E364 000004D0 C=CODE S=.text G=(none) M=fODLabOthSpec ACBP=A9 + 0001:0025E834 000005F0 C=CODE S=.text G=(none) M=fODLabImmedColl ACBP=A9 + 0001:0025EE24 000005F0 C=CODE S=.text G=(none) M=fLabCollTimes ACBP=A9 + 0001:0025F414 00007E60 C=CODE S=.text G=(none) M=fODLab ACBP=A9 + 0001:00267274 0000951C C=CODE S=.text G=(none) M=fODBBank ACBP=A9 + 0001:00270790 00002094 C=CODE S=.text G=(none) M=fOtherSchedule ACBP=A9 + 0001:00272824 00012920 C=CODE S=.text G=(none) M=fODMeds ACBP=A9 + 0001:00285144 000001AC C=CODE S=.text G=(none) M=IdException ACBP=A9 + 0001:002852F0 000001A0 C=CODE S=.text G=(none) M=IdResourceStrings ACBP=A9 + 0001:00285490 0000117F C=CODE S=.text G=(none) M=IdWinSock2 ACBP=A9 + 0001:00286610 00000038 C=CODE S=.text G=(none) M=IdStackConsts ACBP=A9 + 0001:00286648 000008C8 C=CODE S=.text G=(none) M=IdStack ACBP=A9 + 0001:00286F10 0000145C C=CODE S=.text G=(none) M=IdStackWindows ACBP=A9 + 0001:0028836C 00000038 C=CODE S=.text G=(none) M=IdURI ACBP=A9 + 0001:002883A4 000006A4 C=CODE S=.text G=(none) M=IdGlobal ACBP=A9 + 0001:00288A48 00003A0C C=CODE S=.text G=(none) M=fODMedIV ACBP=A9 + 0001:0028C454 00000AD4 C=CODE S=.text G=(none) M=fODVitals ACBP=A9 + 0001:0028CF28 00000FCC C=CODE S=.text G=(none) M=fOMSet ACBP=A9 + 0001:0028DEF4 0000241C C=CODE S=.text G=(none) M=fOMHTML ACBP=A9 + 0001:00290310 00006CB8 C=CODE S=.text G=(none) M=fODMedNVA ACBP=A9 + 0001:00296FC8 000008C8 C=CODE S=.text G=(none) M=fODChangeUnreleasedRenew ACBP=A9 + 0001:00297890 00005384 C=CODE S=.text G=(none) M=fODBase ACBP=A9 + 0001:0029CC14 00005C01 C=CODE S=.text G=(none) M=uOrders ACBP=A9 + 0001:002A2818 00003702 C=CODE S=.text G=(none) M=rODBase ACBP=A9 + 0001:002A5F1C 000036D4 C=CODE S=.text G=(none) M=rConsults ACBP=A9 + 0001:002A95F0 00002A5C C=CODE S=.text G=(none) M=uDocTree ACBP=A9 + 0001:002AC04C 0000ECD3 C=CODE S=.text G=(none) M=fNotes ACBP=A9 + 0001:002BAD20 000002AC C=CODE S=.text G=(none) M=fRemVisitInfo ACBP=A9 + 0001:002BAFCC 00004E3C C=CODE S=.text G=(none) M=fReminderDialog ACBP=A9 + 0001:002BFE08 000022D0 C=CODE S=.text G=(none) M=fMHTest ACBP=A9 + 0001:002C20D8 0000B1CC C=CODE S=.text G=(none) M=fTemplateEditor ACBP=A9 + 0001:002CD2A4 00001ED8 C=CODE S=.text G=(none) M=dShared ACBP=A9 + 0001:002CF17C 000003E4 C=CODE S=.text G=(none) M=fTemplateImport ACBP=A9 + 0001:002CF560 00008A40 C=CODE S=.text G=(none) M=uTemplates ACBP=A9 + 0001:002D7FA0 0000357C C=CODE S=.text G=(none) M=fDrawers ACBP=A9 + 0001:002DB51C 00012DA6 C=CODE S=.text G=(none) M=uReminders ACBP=A9 + 0001:002EE2C4 0000184C C=CODE S=.text G=(none) M=rCover ACBP=A9 + 0001:002EFB10 00003687 C=CODE S=.text G=(none) M=fCover ACBP=A9 + 0001:002F3198 00002D48 C=CODE S=.text G=(none) M=fVitals ACBP=A9 + 0001:002F5EE0 000022BC C=CODE S=.text G=(none) M=fEncVitals ACBP=A9 + 0001:002F819C 00000530 C=CODE S=.text G=(none) M=fExam ACBP=A9 + 0001:002F86CC 00000550 C=CODE S=.text G=(none) M=fHealthFactor ACBP=A9 + 0001:002F8C1C 0000054C C=CODE S=.text G=(none) M=fPatientEd ACBP=A9 + 0001:002F9168 00000818 C=CODE S=.text G=(none) M=fSkinTest ACBP=A9 + 0001:002F9980 00000860 C=CODE S=.text G=(none) M=fImmunization ACBP=A9 + 0001:002FA1E0 000016C0 C=CODE S=.text G=(none) M=fProcedure ACBP=A9 + 0001:002FB8A0 000004E0 C=CODE S=.text G=(none) M=fPCEOther ACBP=A9 + 0001:002FBD80 00000AE4 C=CODE S=.text G=(none) M=fHFSearch ACBP=A9 + 0001:002FC864 000015A4 C=CODE S=.text G=(none) M=fPCEBaseMain ACBP=A9 + 0001:002FDE08 00000E2C C=CODE S=.text G=(none) M=fDiagnoses ACBP=A9 + 0001:002FEC34 000017B0 C=CODE S=.text G=(none) M=fVisitType ACBP=A9 + 0001:003003E4 000006B0 C=CODE S=.text G=(none) M=fPCEBase ACBP=A9 + 0001:00300A94 00001F84 C=CODE S=.text G=(none) M=fEncounterFrame ACBP=A9 + 0001:00302A18 0000041C C=CODE S=.text G=(none) M=fDupPts ACBP=A9 + 0001:00302E34 00000038 C=CODE S=.text G=(none) M=fPtSens ACBP=A9 + 0001:00302E6C 0000091C C=CODE S=.text G=(none) M=fPtSelDemog ACBP=A9 + 0001:00303788 0000044C C=CODE S=.text G=(none) M=fPtSelOptSave ACBP=A9 + 0001:00303BD4 00001C9C C=CODE S=.text G=(none) M=fPtSelOptns ACBP=A9 + 0001:00305870 000006D4 C=CODE S=.text G=(none) M=fAlertForward ACBP=A9 + 0001:00305F44 00004E2C C=CODE S=.text G=(none) M=fPtSel ACBP=A9 + 0001:0030AD70 0000197C C=CODE S=.text G=(none) M=rLabs ACBP=A9 + 0001:0030C6EC 00000C74 C=CODE S=.text G=(none) M=fLabPrint ACBP=A9 + 0001:0030D360 00001910 C=CODE S=.text G=(none) M=fLabTestGroups ACBP=A9 + 0001:0030EC70 000007C4 C=CODE S=.text G=(none) M=fLabTests ACBP=A9 + 0001:0030F434 00000764 C=CODE S=.text G=(none) M=fLabTest ACBP=A9 + 0001:0030FB98 00009A60 C=CODE S=.text G=(none) M=fLabs ACBP=A9 + 0001:003195F8 00000814 C=CODE S=.text G=(none) M=fPtDemo ACBP=A9 + 0001:00319E0C 00000724 C=CODE S=.text G=(none) M=fAbout ACBP=A9 + 0001:0031A530 0000076C C=CODE S=.text G=(none) M=fxBroker ACBP=A9 + 0001:0031AC9C 0000029C C=CODE S=.text G=(none) M=fxLists ACBP=A9 + 0001:0031AF38 000002C4 C=CODE S=.text G=(none) M=fxServer ACBP=A9 + 0001:0031B1FC 00000300 C=CODE S=.text G=(none) M=fSplash ACBP=A9 + 0001:0031B4FC 000003AC C=CODE S=.text G=(none) M=fLabInfo ACBP=A9 + 0001:0031B8A8 00002456 C=CODE S=.text G=(none) M=fBAOptionsDiagnoses ACBP=A9 + 0001:0031DD00 00000DA8 C=CODE S=.text G=(none) M=uOptions ACBP=A9 + 0001:0031EAA8 0000158C C=CODE S=.text G=(none) M=fOptionsDays ACBP=A9 + 0001:00320034 00000C30 C=CODE S=.text G=(none) M=fOptionsReminders ACBP=A9 + 0001:00320C64 00000CE8 C=CODE S=.text G=(none) M=fOptionsSurrogate ACBP=A9 + 0001:0032194C 0000162C C=CODE S=.text G=(none) M=fOptionsPatientSelection ACBP=A9 + 0001:00322F78 00000554 C=CODE S=.text G=(none) M=fOptionsNewList ACBP=A9 + 0001:003234CC 00001EA4 C=CODE S=.text G=(none) M=fOptionsLists ACBP=A9 + 0001:00325370 0000104C C=CODE S=.text G=(none) M=fOptionsTeams ACBP=A9 + 0001:003263BC 0000107C C=CODE S=.text G=(none) M=fOptionsCombinations ACBP=A9 + 0001:00327438 00001098 C=CODE S=.text G=(none) M=fOptionsOther ACBP=A9 + 0001:003284D0 00000A9C C=CODE S=.text G=(none) M=fOptionsNotes ACBP=A9 + 0001:00328F6C 00001378 C=CODE S=.text G=(none) M=fOptionsTitles ACBP=A9 + 0001:0032A2E4 000022B4 C=CODE S=.text G=(none) M=fOptionsReportsCustom ACBP=A9 + 0001:0032C598 000018A4 C=CODE S=.text G=(none) M=fOptionsReportsDefault ACBP=A9 + 0001:0032DE3C 000027E0 C=CODE S=.text G=(none) M=fOptions ACBP=A9 + 0001:0033061C 00000038 C=CODE S=.text G=(none) M=fDefaultEvent ACBP=A9 + 0001:00330654 0000FADF C=CODE S=.text G=(none) M=fFrame ACBP=A9 + 0001:00340134 00003DA8 C=CODE S=.text G=(none) M=UBACore ACBP=A9 + 0001:00343EDC 00008700 C=CODE S=.text G=(none) M=uPCE ACBP=A9 + 0001:0034C5DC 00005C7F C=CODE S=.text G=(none) M=rPCE ACBP=A9 + 0001:0035225C 0000079C C=CODE S=.text G=(none) M=fPCELex ACBP=A9 + 0001:003529F8 000052A8 C=CODE S=.text G=(none) M=fBALocalDiagnoses ACBP=A9 + 0001:00357CA0 00002AED C=CODE S=.text G=(none) M=UBAGlobals ACBP=A9 + 0001:0035A790 000001FC C=CODE S=.text G=(none) M=fHSplit ACBP=A9 + 0001:0035A98C 0000D070 C=CODE S=.text G=(none) M=fOrders ACBP=A9 + 0001:003679FC 0000196C C=CODE S=.text G=(none) M=rMisc ACBP=A9 + 0001:00369368 00004287 C=CODE S=.text G=(none) M=rTIU ACBP=A9 + 0001:0036D5F0 000048C0 C=CODE S=.text G=(none) M=rCore ACBP=A9 + 0001:00371EB0 000033A5 C=CODE S=.text G=(none) M=uCore ACBP=A9 + 0001:00375258 00009B7C C=CODE S=.text G=(none) M=rOrders ACBP=A9 + 0001:0037EDD4 00000574 C=CODE S=.text G=(none) M=fPage ACBP=A9 + 0001:0037F348 00000038 C=CODE S=.text G=(none) M=fHP ACBP=A9 + 0001:0037F380 00000038 C=CODE S=.text G=(none) M=mVitCirGirth ACBP=A9 + 0001:0037F3B8 00000038 C=CODE S=.text G=(none) M=mVitCVP ACBP=A9 + 0001:0037F3F0 00000038 C=CODE S=.text G=(none) M=mVitPO2 ACBP=A9 + 0001:0037F428 00000038 C=CODE S=.text G=(none) M=mVitPain ACBP=A9 + 0001:0037F460 00000038 C=CODE S=.text G=(none) M=mVitWeight ACBP=A9 + 0001:0037F498 00000038 C=CODE S=.text G=(none) M=mVitHeight ACBP=A9 + 0001:0037F4D0 00000038 C=CODE S=.text G=(none) M=mVitBP ACBP=A9 + 0001:0037F508 00000038 C=CODE S=.text G=(none) M=mVitResp ACBP=A9 + 0001:0037F540 00000038 C=CODE S=.text G=(none) M=mVitPulse ACBP=A9 + 0001:0037F578 00000038 C=CODE S=.text G=(none) M=mVitTemp ACBP=A9 + 0001:0037F5B0 00000038 C=CODE S=.text G=(none) M=mVitAll ACBP=A9 + 0001:0037F5E8 00000038 C=CODE S=.text G=(none) M=fODRadImType ACBP=A9 + 0001:0037F620 00000038 C=CODE S=.text G=(none) M=fODSaveQuick ACBP=A9 + 0001:0037F658 00000038 C=CODE S=.text G=(none) M=fOMProgress ACBP=A9 + 0001:0037F690 00000038 C=CODE S=.text G=(none) M=fOptionsPrimaryList ACBP=A9 + 0001:0037F6C8 00000038 C=CODE S=.text G=(none) M=fOptionsSubscribe ACBP=A9 + 0001:0037F700 00000FDC C=CODE S=.text G=(none) M=CPRSChart ACBP=A9 + 0002:00000000 000000A8 C=DATA S=.data G=DGROUP M=System ACBP=A9 + 0002:000000A8 00000020 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9 + 0002:000000C8 00000254 C=DATA S=.data G=DGROUP M=SysUtils ACBP=A9 + 0002:0000031C 00000110 C=DATA S=.data G=DGROUP M=VarUtils ACBP=A9 + 0002:0000042C 000001B6 C=DATA S=.data G=DGROUP M=Variants ACBP=A9 + 0002:000005E4 0000000C C=DATA S=.data G=DGROUP M=TypInfo ACBP=A9 + 0002:000005F0 00000010 C=DATA S=.data G=DGROUP M=ActiveX ACBP=A9 + 0002:00000600 00000064 C=DATA S=.data G=DGROUP M=Classes ACBP=A9 + 0002:00000664 00000304 C=DATA S=.data G=DGROUP M=Graphics ACBP=A9 + 0002:00000968 00000004 C=DATA S=.data G=DGROUP M=Printers ACBP=A9 + 0002:0000096C 00000020 C=DATA S=.data G=DGROUP M=ToolWin ACBP=A9 + 0002:0000098C 00000010 C=DATA S=.data G=DGROUP M=ShlObj ACBP=A9 + 0002:0000099C 000001B4 C=DATA S=.data G=DGROUP M=Dialogs ACBP=A9 + 0002:00000B50 0000018C C=DATA S=.data G=DGROUP M=ExtCtrls ACBP=A9 + 0002:00000CDC 0000009E C=DATA S=.data G=DGROUP M=Buttons ACBP=A9 + 0002:00000D7C 00000008 C=DATA S=.data G=DGROUP M=IniFiles ACBP=A9 + 0002:00000D84 00000008 C=DATA S=.data G=DGROUP M=Registry ACBP=A9 + 0002:00000D8C 00000008 C=DATA S=.data G=DGROUP M=Mapi ACBP=A9 + 0002:00000D94 000002A0 C=DATA S=.data G=DGROUP M=ComCtrls ACBP=A9 + 0002:00001034 00000068 C=DATA S=.data G=DGROUP M=Themes ACBP=A9 + 0002:0000109C 00000180 C=DATA S=.data G=DGROUP M=StdCtrls ACBP=A9 + 0002:0000121C 0000013C C=DATA S=.data G=DGROUP M=Controls ACBP=A9 + 0002:00001358 00000020 C=DATA S=.data G=DGROUP M=ImgList ACBP=A9 + 0002:00001378 000000EC C=DATA S=.data G=DGROUP M=Menus ACBP=A9 + 0002:00001464 00000130 C=DATA S=.data G=DGROUP M=Forms ACBP=A9 + 0002:00001594 00000010 C=DATA S=.data G=DGROUP M=TeCanvas ACBP=A9 + 0002:000015A4 00000148 C=DATA S=.data G=DGROUP M=TeeProcs ACBP=A9 + 0002:000016EC 0000002A C=DATA S=.data G=DGROUP M=TeEngine ACBP=A9 + 0002:00001718 0000000A C=DATA S=.data G=DGROUP M=Chart ACBP=A9 + 0002:00001724 00000009 C=DATA S=.data G=DGROUP M=MaskUtils ACBP=A9 + 0002:00001730 00000004 C=DATA S=.data G=DGROUP M=Mask ACBP=A9 + 0002:00001734 00000006 C=DATA S=.data G=DGROUP M=Grids ACBP=A9 + 0002:0000173C 00000040 C=DATA S=.data G=DGROUP M=ComObj ACBP=A9 + 0002:0000177C 00000010 C=DATA S=.data G=DGROUP M=Accessibility_TLB ACBP=A9 + 0002:0000178C 000001FC C=DATA S=.data G=DGROUP M=ORCtrls ACBP=A9 + 0002:00001988 000004F4 C=DATA S=.data G=DGROUP M=ORFn ACBP=A9 + 0002:00001E7C 00000064 C=DATA S=.data G=DGROUP M=uConst ACBP=A9 + 0002:00001EE0 0000002C C=DATA S=.data G=DGROUP M=OleCtrls ACBP=A9 + 0002:00001F0C 00000080 C=DATA S=.data G=DGROUP M=VERGENCECONTEXTORLib_TLB ACBP=A9 + 0002:00001F8C 00000004 C=DATA S=.data G=DGROUP M=MFunStr ACBP=A9 + 0002:00001F90 00000050 C=DATA S=.data G=DGROUP M=Hash ACBP=A9 + 0002:00001FE0 00000031 C=DATA S=.data G=DGROUP M=XWBRich20 ACBP=A9 + 0002:00002014 00000004 C=DATA S=.data G=DGROUP M=VCEdit ACBP=A9 + 0002:00002018 00000018 C=DATA S=.data G=DGROUP M=Trpcb ACBP=A9 + 0002:00002030 00000008 C=DATA S=.data G=DGROUP M=CCOWRPCBroker ACBP=A9 + 0002:00002038 0000000A C=DATA S=.data G=DGROUP M=ORNet ACBP=A9 + 0002:00002044 00000004 C=DATA S=.data G=DGROUP M=ORClasses ACBP=A9 + 0002:00002048 00000004 C=DATA S=.data G=DGROUP M=AppEvnts ACBP=A9 + 0002:0000204C 00000004 C=DATA S=.data G=DGROUP M=fPtSelMsg ACBP=A9 + 0002:00002050 00000030 C=DATA S=.data G=DGROUP M=Calendar ACBP=A9 + 0002:00002080 00000030 C=DATA S=.data G=DGROUP M=ORDtTm ACBP=A9 + 0002:000020B0 00000004 C=DATA S=.data G=DGROUP M=rVitals ACBP=A9 + 0002:000020B4 000000B8 C=DATA S=.data G=DGROUP M=uVitals ACBP=A9 + 0002:0000216C 00000038 C=DATA S=.data G=DGROUP M=Series ACBP=A9 + 0002:000021A4 00000010 C=DATA S=.data G=DGROUP M=MSXML_TLB ACBP=A9 + 0002:000021B4 00000005 C=DATA S=.data G=DGROUP M=rTemplates ACBP=A9 + 0002:000021BC 000000F8 C=DATA S=.data G=DGROUP M=uTemplateFields ACBP=A9 + 0002:000022B4 00000030 C=DATA S=.data G=DGROUP M=uReports ACBP=A9 + 0002:000022E4 0000009C C=DATA S=.data G=DGROUP M=SHDocVw ACBP=A9 + 0002:00002380 00000078 C=DATA S=.data G=DGROUP M=Word97 ACBP=A9 + 0002:000023F8 00000004 C=DATA S=.data G=DGROUP M=uFormMonitor ACBP=A9 + 0002:000023FC 00000005 C=DATA S=.data G=DGROUP M=uInit ACBP=A9 + 0002:00002404 00000005 C=DATA S=.data G=DGROUP M=fTemplateView ACBP=A9 + 0002:0000240C 00000004 C=DATA S=.data G=DGROUP M=fTemplateFieldEditor ACBP=A9 + 0002:00002410 00000028 C=DATA S=.data G=DGROUP M=XMLUtils ACBP=A9 + 0002:00002438 00000005 C=DATA S=.data G=DGROUP M=fIconLegend ACBP=A9 + 0002:00002440 00000018 C=DATA S=.data G=DGROUP M=rReminders ACBP=A9 + 0002:00002458 00000070 C=DATA S=.data G=DGROUP M=CPRSChart_TLB ACBP=A9 + 0002:000024C8 00000005 C=DATA S=.data G=DGROUP M=uEventHooks ACBP=A9 + 0002:000024D0 00000004 C=DATA S=.data G=DGROUP M=uComServ ACBP=A9 + 0002:000024D4 00000001 C=DATA S=.data G=DGROUP M=uAccessibleStringGrid ACBP=A9 + 0002:000024D8 0000000E C=DATA S=.data G=DGROUP M=fODDiet ACBP=A9 + 0002:000024E8 0000003C C=DATA S=.data G=DGROUP M=SqlTimSt ACBP=A9 + 0002:00002524 0000003A C=DATA S=.data G=DGROUP M=FMTBcd ACBP=A9 + 0002:00002560 00000098 C=DATA S=.data G=DGROUP M=DB ACBP=A9 + 0002:000025F8 00000028 C=DATA S=.data G=DGROUP M=DBCtrls ACBP=A9 + 0002:00002620 00000004 C=DATA S=.data G=DGROUP M=DSIntf ACBP=A9 + 0002:00002624 0000002C C=DATA S=.data G=DGROUP M=Provider ACBP=A9 + 0002:00002650 0000000D C=DATA S=.data G=DGROUP M=uProbs ACBP=A9 + 0002:00002660 00000008 C=DATA S=.data G=DGROUP M=rODAllergy ACBP=A9 + 0002:00002668 00000010 C=DATA S=.data G=DGROUP M=XuDigSigSC_TLB ACBP=A9 + 0002:00002678 00000001 C=DATA S=.data G=DGROUP M=uAccessibleListBox ACBP=A9 + 0002:0000267C 00000004 C=DATA S=.data G=DGROUP M=fNoteProps ACBP=A9 + 0002:00002680 00000001 C=DATA S=.data G=DGROUP M=uAccessibleRichEdit ACBP=A9 + 0002:00002684 00000049 C=DATA S=.data G=DGROUP M=uSignItems ACBP=A9 + 0002:000026D0 00000058 C=DATA S=.data G=DGROUP M=fRemCoverSheet ACBP=A9 + 0002:00002728 00000001 C=DATA S=.data G=DGROUP M=uaccessibleTreeView ACBP=A9 + 0002:0000272C 00000001 C=DATA S=.data G=DGROUP M=uAccessibleTreeNode ACBP=A9 + 0002:00002730 00000014 C=DATA S=.data G=DGROUP M=fReminderTree ACBP=A9 + 0002:00002744 0000002C C=DATA S=.data G=DGROUP M=fConsults ACBP=A9 + 0002:00002770 0000000C C=DATA S=.data G=DGROUP M=fPCEEdit ACBP=A9 + 0002:0000277C 00000001 C=DATA S=.data G=DGROUP M=fvit ACBP=A9 + 0002:00002780 0000000D C=DATA S=.data G=DGROUP M=fARTAllgy ACBP=A9 + 0002:00002790 00000040 C=DATA S=.data G=DGROUP M=fProbs ACBP=A9 + 0002:000027D0 0000002C C=DATA S=.data G=DGROUP M=fODLab ACBP=A9 + 0002:000027FC 0000002C C=DATA S=.data G=DGROUP M=fODBBank ACBP=A9 + 0002:00002828 00000544 C=DATA S=.data G=DGROUP M=IdWinSock2 ACBP=A9 + 0002:00002D6C 00000008 C=DATA S=.data G=DGROUP M=IdStack ACBP=A9 + 0002:00002D74 00000001 C=DATA S=.data G=DGROUP M=IdStackWindows ACBP=A9 + 0002:00002D78 0000009C C=DATA S=.data G=DGROUP M=IdGlobal ACBP=A9 + 0002:00002E14 00000021 C=DATA S=.data G=DGROUP M=fODBase ACBP=A9 + 0002:00002E38 00000028 C=DATA S=.data G=DGROUP M=fReminderDialog ACBP=A9 + 0002:00002E60 0000004C C=DATA S=.data G=DGROUP M=fTemplateEditor ACBP=A9 + 0002:00002EAC 00000100 C=DATA S=.data G=DGROUP M=dShared ACBP=A9 + 0002:00002FAC 00000004 C=DATA S=.data G=DGROUP M=fTemplateImport ACBP=A9 + 0002:00002FB0 00000130 C=DATA S=.data G=DGROUP M=uTemplates ACBP=A9 + 0002:000030E0 0000022C C=DATA S=.data G=DGROUP M=uReminders ACBP=A9 + 0002:0000330C 00000008 C=DATA S=.data G=DGROUP M=rCover ACBP=A9 + 0002:00003314 00000001 C=DATA S=.data G=DGROUP M=fEncVitals ACBP=A9 + 0002:00003318 0000000C C=DATA S=.data G=DGROUP M=fPtSel ACBP=A9 + 0002:00003324 00000001 C=DATA S=.data G=DGROUP M=fFrame ACBP=A9 + 0002:00003328 000000A4 C=DATA S=.data G=DGROUP M=uPCE ACBP=A9 + 0002:000033CC 00000049 C=DATA S=.data G=DGROUP M=rPCE ACBP=A9 + 0002:00003418 00000001 C=DATA S=.data G=DGROUP M=rTIU ACBP=A9 + 0002:0000341C 00000004 C=DATA S=.data G=DGROUP M=rCore ACBP=A9 + 0002:00003420 00000024 C=DATA S=.data G=DGROUP M=uCore ACBP=A9 + 0002:00003444 00000002 C=DATA S=.data G=DGROUP M=rOrders ACBP=A9 + 0002:00005000 00000664 C=BSS S=.bss G=DGROUP M=System ACBP=A9 + 0002:00005664 00000010 C=BSS S=.bss G=DGROUP M=SysInit ACBP=A9 + 0002:00005674 00000004 C=BSS S=.bss G=DGROUP M=ShareMem ACBP=A9 + 0002:00005678 00000004 C=BSS S=.bss G=DGROUP M=Types ACBP=A9 + 0002:0000567C 00000004 C=BSS S=.bss G=DGROUP M=Windows ACBP=A9 + 0002:00005680 00000004 C=BSS S=.bss G=DGROUP M=Messages ACBP=A9 + 0002:00005684 00000004 C=BSS S=.bss G=DGROUP M=SysConst ACBP=A9 + 0002:00005688 00000120 C=BSS S=.bss G=DGROUP M=SysUtils ACBP=A9 + 0002:000057A8 0000005C C=BSS S=.bss G=DGROUP M=VarUtils ACBP=A9 + 0002:00005804 00000040 C=BSS S=.bss G=DGROUP M=Variants ACBP=A9 + 0002:00005844 00000004 C=BSS S=.bss G=DGROUP M=RTLConsts ACBP=A9 + 0002:00005848 00000004 C=BSS S=.bss G=DGROUP M=TypInfo ACBP=A9 + 0002:0000584C 00000004 C=BSS S=.bss G=DGROUP M=ActiveX ACBP=A9 + 0002:00005850 00000044 C=BSS S=.bss G=DGROUP M=Classes ACBP=A9 + 0002:00005894 00000004 C=BSS S=.bss G=DGROUP M=Consts ACBP=A9 + 0002:00005898 00000060 C=BSS S=.bss G=DGROUP M=Graphics ACBP=A9 + 0002:000058F8 00000004 C=BSS S=.bss G=DGROUP M=Math ACBP=A9 + 0002:000058FC 00000004 C=BSS S=.bss G=DGROUP M=Contnrs ACBP=A9 + 0002:00005900 0000000C C=BSS S=.bss G=DGROUP M=CommCtrl ACBP=A9 + 0002:0000590C 00000031 C=BSS S=.bss G=DGROUP M=MultiMon ACBP=A9 + 0002:00005940 00000004 C=BSS S=.bss G=DGROUP M=Imm ACBP=A9 + 0002:00005944 00000008 C=BSS S=.bss G=DGROUP M=HelpIntfs ACBP=A9 + 0002:0000594C 00000004 C=BSS S=.bss G=DGROUP M=WinSpool ACBP=A9 + 0002:00005950 00000004 C=BSS S=.bss G=DGROUP M=Printers ACBP=A9 + 0002:00005954 00000034 C=BSS S=.bss G=DGROUP M=FlatSB ACBP=A9 + 0002:00005988 00000004 C=BSS S=.bss G=DGROUP M=SyncObjs ACBP=A9 + 0002:0000598C 000000CC C=BSS S=.bss G=DGROUP M=UxTheme ACBP=A9 + 0002:00005A58 00000004 C=BSS S=.bss G=DGROUP M=RichEdit ACBP=A9 + 0002:00005A5C 00000004 C=BSS S=.bss G=DGROUP M=ToolWin ACBP=A9 + 0002:00005A60 00000004 C=BSS S=.bss G=DGROUP M=ShellAPI ACBP=A9 + 0002:00005A64 00000004 C=BSS S=.bss G=DGROUP M=RegStr ACBP=A9 + 0002:00005A68 00000004 C=BSS S=.bss G=DGROUP M=WinInet ACBP=A9 + 0002:00005A6C 00000004 C=BSS S=.bss G=DGROUP M=UrlMon ACBP=A9 + 0002:00005A70 00000004 C=BSS S=.bss G=DGROUP M=ShlObj ACBP=A9 + 0002:00005A74 00000004 C=BSS S=.bss G=DGROUP M=CommDlg ACBP=A9 + 0002:00005A78 00000004 C=BSS S=.bss G=DGROUP M=Dlgs ACBP=A9 + 0002:00005A7C 0000003C C=BSS S=.bss G=DGROUP M=Dialogs ACBP=A9 + 0002:00005AB8 00000004 C=BSS S=.bss G=DGROUP M=ExtCtrls ACBP=A9 + 0002:00005ABC 00000004 C=BSS S=.bss G=DGROUP M=ComStrs ACBP=A9 + 0002:00005AC0 0000000C C=BSS S=.bss G=DGROUP M=Clipbrd ACBP=A9 + 0002:00005ACC 00000004 C=BSS S=.bss G=DGROUP M=StrUtils ACBP=A9 + 0002:00005AD0 00000030 C=BSS S=.bss G=DGROUP M=Buttons ACBP=A9 + 0002:00005B00 00000004 C=BSS S=.bss G=DGROUP M=ExtDlgs ACBP=A9 + 0002:00005B04 00000004 C=BSS S=.bss G=DGROUP M=IniFiles ACBP=A9 + 0002:00005B08 00000004 C=BSS S=.bss G=DGROUP M=Registry ACBP=A9 + 0002:00005B0C 00000004 C=BSS S=.bss G=DGROUP M=Mapi ACBP=A9 + 0002:00005B10 00000009 C=BSS S=.bss G=DGROUP M=ExtActns ACBP=A9 + 0002:00005B1C 00000004 C=BSS S=.bss G=DGROUP M=ListActns ACBP=A9 + 0002:00005B20 00000039 C=BSS S=.bss G=DGROUP M=ComCtrls ACBP=A9 + 0002:00005B5C 00000008 C=BSS S=.bss G=DGROUP M=Themes ACBP=A9 + 0002:00005B64 00000004 C=BSS S=.bss G=DGROUP M=StdCtrls ACBP=A9 + 0002:00005B68 00000004 C=BSS S=.bss G=DGROUP M=StdActns ACBP=A9 + 0002:00005B6C 00000014 C=BSS S=.bss G=DGROUP M=WinHelpViewer ACBP=A9 + 0002:00005B80 00000080 C=BSS S=.bss G=DGROUP M=Controls ACBP=A9 + 0002:00005C00 00000004 C=BSS S=.bss G=DGROUP M=ActnList ACBP=A9 + 0002:00005C04 0000000C C=BSS S=.bss G=DGROUP M=ImgList ACBP=A9 + 0002:00005C10 00000010 C=BSS S=.bss G=DGROUP M=Menus ACBP=A9 + 0002:00005C20 00000020 C=BSS S=.bss G=DGROUP M=Forms ACBP=A9 + 0002:00005C40 00000004 C=BSS S=.bss G=DGROUP M=TeCanvas ACBP=A9 + 0002:00005C44 00000004 C=BSS S=.bss G=DGROUP M=TeeConst ACBP=A9 + 0002:00005C48 00000004 C=BSS S=.bss G=DGROUP M=TeeProcs ACBP=A9 + 0002:00005C4C 00000004 C=BSS S=.bss G=DGROUP M=TeEngine ACBP=A9 + 0002:00005C50 0000000C C=BSS S=.bss G=DGROUP M=CheckLst ACBP=A9 + 0002:00005C5C 00000004 C=BSS S=.bss G=DGROUP M=TeeFunci ACBP=A9 + 0002:00005C60 00000014 C=BSS S=.bss G=DGROUP M=Chart ACBP=A9 + 0002:00005C74 00000004 C=BSS S=.bss G=DGROUP M=MaskUtils ACBP=A9 + 0002:00005C78 00000004 C=BSS S=.bss G=DGROUP M=Mask ACBP=A9 + 0002:00005C7C 00000004 C=BSS S=.bss G=DGROUP M=Grids ACBP=A9 + 0002:00005C80 00000004 C=BSS S=.bss G=DGROUP M=StdVCL ACBP=A9 + 0002:00005C84 00000004 C=BSS S=.bss G=DGROUP M=ComConst ACBP=A9 + 0002:00005C88 00000011 C=BSS S=.bss G=DGROUP M=ComObj ACBP=A9 + 0002:00005C9C 00000004 C=BSS S=.bss G=DGROUP M=Accessibility_TLB ACBP=A9 + 0002:00005CA0 00000010 C=BSS S=.bss G=DGROUP M=uAccessAPI ACBP=A9 + 0002:00005CB0 00000054 C=BSS S=.bss G=DGROUP M=ORCtrls ACBP=A9 + 0002:00005D04 0000000C C=BSS S=.bss G=DGROUP M=ORFn ACBP=A9 + 0002:00005D10 00000004 C=BSS S=.bss G=DGROUP M=ORSystem ACBP=A9 + 0002:00005D14 00000004 C=BSS S=.bss G=DGROUP M=uConst ACBP=A9 + 0002:00005D18 00000004 C=BSS S=.bss G=DGROUP M=OleConst ACBP=A9 + 0002:00005D1C 00000004 C=BSS S=.bss G=DGROUP M=OleServer ACBP=A9 + 0002:00005D20 0000001C C=BSS S=.bss G=DGROUP M=AxCtrls ACBP=A9 + 0002:00005D3C 00000014 C=BSS S=.bss G=DGROUP M=OleCtrls ACBP=A9 + 0002:00005D50 00000004 C=BSS S=.bss G=DGROUP M=VERGENCECONTEXTORLib_TLB ACBP=A9 + 0002:00005D54 00000004 C=BSS S=.bss G=DGROUP M=MFunStr ACBP=A9 + 0002:00005D58 00000004 C=BSS S=.bss G=DGROUP M=Hash ACBP=A9 + 0002:00005D5C 00000004 C=BSS S=.bss G=DGROUP M=Xwbut1 ACBP=A9 + 0002:00005D60 00000004 C=BSS S=.bss G=DGROUP M=WinSock ACBP=A9 + 0002:00005D64 00000008 C=BSS S=.bss G=DGROUP M=fDebugInfo ACBP=A9 + 0002:00005D6C 00000004 C=BSS S=.bss G=DGROUP M=Rpcberr ACBP=A9 + 0002:00005D70 00000018 C=BSS S=.bss G=DGROUP M=Wsockc ACBP=A9 + 0002:00005D88 00000008 C=BSS S=.bss G=DGROUP M=fRPCBErrMsg ACBP=A9 + 0002:00005D90 00000004 C=BSS S=.bss G=DGROUP M=CCOW_const ACBP=A9 + 0002:00005D94 00000014 C=BSS S=.bss G=DGROUP M=SelDiv ACBP=A9 + 0002:00005DA8 00000008 C=BSS S=.bss G=DGROUP M=XWBRich20 ACBP=A9 + 0002:00005DB0 00000008 C=BSS S=.bss G=DGROUP M=frmSignonMessage ACBP=A9 + 0002:00005DB8 00000004 C=BSS S=.bss G=DGROUP M=fSgnonDlg ACBP=A9 + 0002:00005DBC 00000004 C=BSS S=.bss G=DGROUP M=AddServer ACBP=A9 + 0002:00005DC0 00001004 C=BSS S=.bss G=DGROUP M=RpcNet ACBP=A9 + 0002:00006DC4 00000018 C=BSS S=.bss G=DGROUP M=Rpcconf1 ACBP=A9 + 0002:00006DDC 00000008 C=BSS S=.bss G=DGROUP M=VCEdit ACBP=A9 + 0002:00006DE4 0000001C C=BSS S=.bss G=DGROUP M=Sgnoncnf ACBP=A9 + 0002:00006E00 00000014 C=BSS S=.bss G=DGROUP M=Loginfrm ACBP=A9 + 0002:00006E14 00000004 C=BSS S=.bss G=DGROUP M=RpcSLogin ACBP=A9 + 0002:00006E18 00000010 C=BSS S=.bss G=DGROUP M=Trpcb ACBP=A9 + 0002:00006E28 00000014 C=BSS S=.bss G=DGROUP M=CCOWRPCBroker ACBP=A9 + 0002:00006E3C 00000015 C=BSS S=.bss G=DGROUP M=ORNet ACBP=A9 + 0002:00006E54 00000004 C=BSS S=.bss G=DGROUP M=ORClasses ACBP=A9 + 0002:00006E58 00000004 C=BSS S=.bss G=DGROUP M=uTIU ACBP=A9 + 0002:00006E5C 00000004 C=BSS S=.bss G=DGROUP M=fAutoSz ACBP=A9 + 0002:00006E60 00000004 C=BSS S=.bss G=DGROUP M=Tabs ACBP=A9 + 0002:00006E64 00000004 C=BSS S=.bss G=DGROUP M=AppEvnts ACBP=A9 + 0002:00006E68 00000004 C=BSS S=.bss G=DGROUP M=fPtSelMsg ACBP=A9 + 0002:00006E6C 00000004 C=BSS S=.bss G=DGROUP M=Calendar ACBP=A9 + 0002:00006E70 00000004 C=BSS S=.bss G=DGROUP M=ORDtTmCal ACBP=A9 + 0002:00006E74 0000000C C=BSS S=.bss G=DGROUP M=ORDtTm ACBP=A9 + 0002:00006E80 00000004 C=BSS S=.bss G=DGROUP M=ORDtTmRng ACBP=A9 + 0002:00006E84 00000004 C=BSS S=.bss G=DGROUP M=Gauges ACBP=A9 + 0002:00006E88 00000094 C=BSS S=.bss G=DGROUP M=uConsults ACBP=A9 + 0002:00006F1C 00000004 C=BSS S=.bss G=DGROUP M=mVisitRelated ACBP=A9 + 0002:00006F20 00000004 C=BSS S=.bss G=DGROUP M=fPCEBaseGrid ACBP=A9 + 0002:00006F24 00000004 C=BSS S=.bss G=DGROUP M=UBAConst ACBP=A9 + 0002:00006F28 00000004 C=BSS S=.bss G=DGROUP M=rVitals ACBP=A9 + 0002:00006F2C 00000004 C=BSS S=.bss G=DGROUP M=mVitBase ACBP=A9 + 0002:00006F30 00000004 C=BSS S=.bss G=DGROUP M=mVitMetric ACBP=A9 + 0002:00006F34 00000004 C=BSS S=.bss G=DGROUP M=fVitalsDate ACBP=A9 + 0002:00006F38 00000008 C=BSS S=.bss G=DGROUP M=uVitals ACBP=A9 + 0002:00006F40 00000004 C=BSS S=.bss G=DGROUP M=Series ACBP=A9 + 0002:00006F44 00000004 C=BSS S=.bss G=DGROUP M=rMeds ACBP=A9 + 0002:00006F48 00000004 C=BSS S=.bss G=DGROUP M=MSXML_TLB ACBP=A9 + 0002:00006F4C 00000004 C=BSS S=.bss G=DGROUP M=uDCSumm ACBP=A9 + 0002:00006F50 00000005 C=BSS S=.bss G=DGROUP M=rTemplates ACBP=A9 + 0002:00006F58 00000004 C=BSS S=.bss G=DGROUP M=mTemplateFieldButton ACBP=A9 + 0002:00006F5C 00000004 C=BSS S=.bss G=DGROUP M=uTemplateFields ACBP=A9 + 0002:00006F60 00000008 C=BSS S=.bss G=DGROUP M=uReports ACBP=A9 + 0002:00006F68 00000004 C=BSS S=.bss G=DGROUP M=SHDocVw ACBP=A9 + 0002:00006F6C 00000004 C=BSS S=.bss G=DGROUP M=rECS ACBP=A9 + 0002:00006F70 00000004 C=BSS S=.bss G=DGROUP M=fReportsPrint ACBP=A9 + 0002:00006F74 00000008 C=BSS S=.bss G=DGROUP M=fReportsAdhocSubItem1 ACBP=A9 + 0002:00006F7C 00000020 C=BSS S=.bss G=DGROUP M=fReportsAdhocComponent1 ACBP=A9 + 0002:00006F9C 00000004 C=BSS S=.bss G=DGROUP M=MSHTML ACBP=A9 + 0002:00006FA0 00000004 C=BSS S=.bss G=DGROUP M=GanttCh ACBP=A9 + 0002:00006FA4 00000004 C=BSS S=.bss G=DGROUP M=DateUtils ACBP=A9 + 0002:00006FA8 00000004 C=BSS S=.bss G=DGROUP M=Office97 ACBP=A9 + 0002:00006FAC 00000004 C=BSS S=.bss G=DGROUP M=VBIDE97 ACBP=A9 + 0002:00006FB0 00000004 C=BSS S=.bss G=DGROUP M=Word97 ACBP=A9 + 0002:00006FB4 00000004 C=BSS S=.bss G=DGROUP M=Office2000 ACBP=A9 + 0002:00006FB8 00000004 C=BSS S=.bss G=DGROUP M=VBIDE2000 ACBP=A9 + 0002:00006FBC 00000004 C=BSS S=.bss G=DGROUP M=Word2000 ACBP=A9 + 0002:00006FC0 00000004 C=BSS S=.bss G=DGROUP M=ArrowCha ACBP=A9 + 0002:00006FC4 00000004 C=BSS S=.bss G=DGROUP M=uGraphs ACBP=A9 + 0002:00006FC8 00000004 C=BSS S=.bss G=DGROUP M=rGraphs ACBP=A9 + 0002:00006FCC 00000004 C=BSS S=.bss G=DGROUP M=fGraphSettings ACBP=A9 + 0002:00006FD0 00000004 C=BSS S=.bss G=DGROUP M=fGraphProfiles ACBP=A9 + 0002:00006FD4 0000000C C=BSS S=.bss G=DGROUP M=uFormMonitor ACBP=A9 + 0002:00006FE0 0000000C C=BSS S=.bss G=DGROUP M=fGraphs ACBP=A9 + 0002:00006FEC 0000008D C=BSS S=.bss G=DGROUP M=fReports ACBP=A9 + 0002:0000707C 00000018 C=BSS S=.bss G=DGROUP M=rReports ACBP=A9 + 0002:00007094 00000004 C=BSS S=.bss G=DGROUP M=fRptBox ACBP=A9 + 0002:00007098 00000004 C=BSS S=.bss G=DGROUP M=fTimeout ACBP=A9 + 0002:0000709C 00000004 C=BSS S=.bss G=DGROUP M=uInit ACBP=A9 + 0002:000070A0 00000008 C=BSS S=.bss G=DGROUP M=fTemplateDialog ACBP=A9 + 0002:000070A8 00000004 C=BSS S=.bss G=DGROUP M=fTemplateView ACBP=A9 + 0002:000070AC 00000004 C=BSS S=.bss G=DGROUP M=MenuBar ACBP=A9 + 0002:000070B0 00000004 C=BSS S=.bss G=DGROUP M=fTemplateObjects ACBP=A9 + 0002:000070B4 00000022 C=BSS S=.bss G=DGROUP M=uSpell ACBP=A9 + 0002:000070D8 00000008 C=BSS S=.bss G=DGROUP M=fTemplateAutoGen ACBP=A9 + 0002:000070E0 00000004 C=BSS S=.bss G=DGROUP M=fTemplateFields ACBP=A9 + 0002:000070E4 00000004 C=BSS S=.bss G=DGROUP M=fTemplateFieldEditor ACBP=A9 + 0002:000070E8 00000004 C=BSS S=.bss G=DGROUP M=XMLUtils ACBP=A9 + 0002:000070EC 00000004 C=BSS S=.bss G=DGROUP M=mImgText ACBP=A9 + 0002:000070F0 0000000C C=BSS S=.bss G=DGROUP M=fIconLegend ACBP=A9 + 0002:000070FC 00000008 C=BSS S=.bss G=DGROUP M=fDeviceSelect ACBP=A9 + 0002:00007104 00000004 C=BSS S=.bss G=DGROUP M=rReminders ACBP=A9 + 0002:00007108 00000004 C=BSS S=.bss G=DGROUP M=fOCAccept ACBP=A9 + 0002:0000710C 0000001C C=BSS S=.bss G=DGROUP M=uODBase ACBP=A9 + 0002:00007128 00000004 C=BSS S=.bss G=DGROUP M=fODMessage ACBP=A9 + 0002:0000712C 00000004 C=BSS S=.bss G=DGROUP M=CPRSChart_TLB ACBP=A9 + 0002:00007130 00000004 C=BSS S=.bss G=DGROUP M=rEventHooks ACBP=A9 + 0002:00007134 00000004 C=BSS S=.bss G=DGROUP M=uEventHooks ACBP=A9 + 0002:00007138 00000008 C=BSS S=.bss G=DGROUP M=rODDiet ACBP=A9 + 0002:00007140 00000004 C=BSS S=.bss G=DGROUP M=fODDietLT ACBP=A9 + 0002:00007144 0000000C C=BSS S=.bss G=DGROUP M=uComServ ACBP=A9 + 0002:00007150 00000004 C=BSS S=.bss G=DGROUP M=uAccessibleStringGrid ACBP=A9 + 0002:00007154 00000040 C=BSS S=.bss G=DGROUP M=fODDiet ACBP=A9 + 0002:00007194 00000004 C=BSS S=.bss G=DGROUP M=fODMisc ACBP=A9 + 0002:00007198 00000004 C=BSS S=.bss G=DGROUP M=fODGen ACBP=A9 + 0002:0000719C 00000004 C=BSS S=.bss G=DGROUP M=fODMedFA ACBP=A9 + 0002:000071A0 00000004 C=BSS S=.bss G=DGROUP M=fODMedIn ACBP=A9 + 0002:000071A4 00000004 C=BSS S=.bss G=DGROUP M=fODMedComplex ACBP=A9 + 0002:000071A8 00000004 C=BSS S=.bss G=DGROUP M=fODMedOut ACBP=A9 + 0002:000071AC 00000004 C=BSS S=.bss G=DGROUP M=fODText ACBP=A9 + 0002:000071B0 00000004 C=BSS S=.bss G=DGROUP M=DBConsts ACBP=A9 + 0002:000071B4 00000004 C=BSS S=.bss G=DGROUP M=SqlTimSt ACBP=A9 + 0002:000071B8 00000004 C=BSS S=.bss G=DGROUP M=FMTBcd ACBP=A9 + 0002:000071BC 00000020 C=BSS S=.bss G=DGROUP M=DB ACBP=A9 + 0002:000071DC 00000004 C=BSS S=.bss G=DGROUP M=VDBConsts ACBP=A9 + 0002:000071E0 00000004 C=BSS S=.bss G=DGROUP M=DBLogDlg ACBP=A9 + 0002:000071E4 00000004 C=BSS S=.bss G=DGROUP M=DBPWDlg ACBP=A9 + 0002:000071E8 00000004 C=BSS S=.bss G=DGROUP M=DBCtrls ACBP=A9 + 0002:000071EC 00000004 C=BSS S=.bss G=DGROUP M=DBCommon ACBP=A9 + 0002:000071F0 00000004 C=BSS S=.bss G=DGROUP M=MidConst ACBP=A9 + 0002:000071F4 0000001C C=BSS S=.bss G=DGROUP M=DSIntf ACBP=A9 + 0002:00007210 00000004 C=BSS S=.bss G=DGROUP M=Midas ACBP=A9 + 0002:00007214 00000004 C=BSS S=.bss G=DGROUP M=DataBkr ACBP=A9 + 0002:00007218 00000004 C=BSS S=.bss G=DGROUP M=Provider ACBP=A9 + 0002:0000721C 00000004 C=BSS S=.bss G=DGROUP M=DBClient ACBP=A9 + 0002:00007220 00000008 C=BSS S=.bss G=DGROUP M=fGAF ACBP=A9 + 0002:00007228 00000004 C=BSS S=.bss G=DGROUP M=fPCEProvider ACBP=A9 + 0002:0000722C 00000004 C=BSS S=.bss G=DGROUP M=rODMeds ACBP=A9 + 0002:00007230 00000004 C=BSS S=.bss G=DGROUP M=fODMedOIFA ACBP=A9 + 0002:00007234 00000004 C=BSS S=.bss G=DGROUP M=Vawrgrid ACBP=A9 + 0002:00007238 00000024 C=BSS S=.bss G=DGROUP M=uProbs ACBP=A9 + 0002:0000725C 00000004 C=BSS S=.bss G=DGROUP M=rProbs ACBP=A9 + 0002:00007260 00000004 C=BSS S=.bss G=DGROUP M=fProbflt ACBP=A9 + 0002:00007264 00000008 C=BSS S=.bss G=DGROUP M=fProbLex ACBP=A9 + 0002:0000726C 00000004 C=BSS S=.bss G=DGROUP M=fOMAction ACBP=A9 + 0002:00007270 00000018 C=BSS S=.bss G=DGROUP M=rODAllergy ACBP=A9 + 0002:00007288 00000008 C=BSS S=.bss G=DGROUP M=fARTFreeTextMsg ACBP=A9 + 0002:00007290 00000008 C=BSS S=.bss G=DGROUP M=fAllgyFind ACBP=A9 + 0002:00007298 00000004 C=BSS S=.bss G=DGROUP M=rOptions ACBP=A9 + 0002:0000729C 00000004 C=BSS S=.bss G=DGROUP M=fVisit ACBP=A9 + 0002:000072A0 00000004 C=BSS S=.bss G=DGROUP M=mCoPayDesc ACBP=A9 + 0002:000072A4 00000004 C=BSS S=.bss G=DGROUP M=XuDigSigSC_TLB ACBP=A9 + 0002:000072A8 00000004 C=BSS S=.bss G=DGROUP M=fConsult513Prt ACBP=A9 + 0002:000072AC 00000004 C=BSS S=.bss G=DGROUP M=fNoteST ACBP=A9 + 0002:000072B0 00000004 C=BSS S=.bss G=DGROUP M=fNoteBA ACBP=A9 + 0002:000072B4 00000004 C=BSS S=.bss G=DGROUP M=fNoteBD ACBP=A9 + 0002:000072B8 00000004 C=BSS S=.bss G=DGROUP M=fSignItem ACBP=A9 + 0002:000072BC 00000004 C=BSS S=.bss G=DGROUP M=fNoteCslt ACBP=A9 + 0002:000072C0 00000004 C=BSS S=.bss G=DGROUP M=fNotePrt ACBP=A9 + 0002:000072C4 00000004 C=BSS S=.bss G=DGROUP M=uSurgery ACBP=A9 + 0002:000072C8 0000000A C=BSS S=.bss G=DGROUP M=rSurgery ACBP=A9 + 0002:000072D4 00000004 C=BSS S=.bss G=DGROUP M=uAccessibleListBox ACBP=A9 + 0002:000072D8 00000009 C=BSS S=.bss G=DGROUP M=fNoteProps ACBP=A9 + 0002:000072E4 00000004 C=BSS S=.bss G=DGROUP M=fAddlSigners ACBP=A9 + 0002:000072E8 00000004 C=BSS S=.bss G=DGROUP M=fNoteDR ACBP=A9 + 0002:000072EC 0000000D C=BSS S=.bss G=DGROUP M=fConsultBS ACBP=A9 + 0002:000072FC 00000004 C=BSS S=.bss G=DGROUP M=fConsultBD ACBP=A9 + 0002:00007300 00000004 C=BSS S=.bss G=DGROUP M=fConsultBSt ACBP=A9 + 0002:00007304 00000010 C=BSS S=.bss G=DGROUP M=fConsultsView ACBP=A9 + 0002:00007314 00000004 C=BSS S=.bss G=DGROUP M=fConsultAlertTo ACBP=A9 + 0002:00007318 00000018 C=BSS S=.bss G=DGROUP M=fConsultAct ACBP=A9 + 0002:00007330 00000008 C=BSS S=.bss G=DGROUP M=fPreReq ACBP=A9 + 0002:00007338 00000004 C=BSS S=.bss G=DGROUP M=uAccessibleRichEdit ACBP=A9 + 0002:0000733C 0000001C C=BSS S=.bss G=DGROUP M=fODProc ACBP=A9 + 0002:00007358 00000004 C=BSS S=.bss G=DGROUP M=fCsltNote ACBP=A9 + 0002:0000735C 0000000C C=BSS S=.bss G=DGROUP M=fOrderVw ACBP=A9 + 0002:00007368 00000008 C=BSS S=.bss G=DGROUP M=fLkUpLocation ACBP=A9 + 0002:00007370 00000004 C=BSS S=.bss G=DGROUP M=fOrdersDC ACBP=A9 + 0002:00007374 00000004 C=BSS S=.bss G=DGROUP M=fODChangeEvtDisp ACBP=A9 + 0002:00007378 00000004 C=BSS S=.bss G=DGROUP M=fOrdersCV ACBP=A9 + 0002:0000737C 00000004 C=BSS S=.bss G=DGROUP M=fOrdersHold ACBP=A9 + 0002:00007380 00000004 C=BSS S=.bss G=DGROUP M=fOrdersUnhold ACBP=A9 + 0002:00007384 00000010 C=BSS S=.bss G=DGROUP M=fOrdersAlert ACBP=A9 + 0002:00007394 0000000C C=BSS S=.bss G=DGROUP M=fOrderFlag ACBP=A9 + 0002:000073A0 00000004 C=BSS S=.bss G=DGROUP M=fOrderUnflag ACBP=A9 + 0002:000073A4 00000004 C=BSS S=.bss G=DGROUP M=UBAMessages ACBP=A9 + 0002:000073A8 00000028 C=BSS S=.bss G=DGROUP M=fOrdersPrint ACBP=A9 + 0002:000073D0 00000018 C=BSS S=.bss G=DGROUP M=uSignItems ACBP=A9 + 0002:000073E8 00000030 C=BSS S=.bss G=DGROUP M=fClinicWardMeds ACBP=A9 + 0002:00007418 00000CD0 C=BSS S=.bss G=DGROUP M=fOrdersSign ACBP=A9 + 0002:000080E8 00000004 C=BSS S=.bss G=DGROUP M=fOrdersRelease ACBP=A9 + 0002:000080EC 00000004 C=BSS S=.bss G=DGROUP M=fOrdersOnChart ACBP=A9 + 0002:000080F0 00000004 C=BSS S=.bss G=DGROUP M=Spin ACBP=A9 + 0002:000080F4 00000004 C=BSS S=.bss G=DGROUP M=fOrdersEvntRelease ACBP=A9 + 0002:000080F8 00000004 C=BSS S=.bss G=DGROUP M=fOrdersComplete ACBP=A9 + 0002:000080FC 00000004 C=BSS S=.bss G=DGROUP M=fOrdersVerify ACBP=A9 + 0002:00008100 00000004 C=BSS S=.bss G=DGROUP M=fOrderComment ACBP=A9 + 0002:00008104 00000004 C=BSS S=.bss G=DGROUP M=fRename ACBP=A9 + 0002:00008108 00000004 C=BSS S=.bss G=DGROUP M=fOrderSaveQuick ACBP=A9 + 0002:0000810C 00000004 C=BSS S=.bss G=DGROUP M=fDateRange ACBP=A9 + 0002:00008110 00000004 C=BSS S=.bss G=DGROUP M=fRenewOutMed ACBP=A9 + 0002:00008114 00000004 C=BSS S=.bss G=DGROUP M=fOrdersRenew ACBP=A9 + 0002:00008118 00000004 C=BSS S=.bss G=DGROUP M=fODReleaseEvent ACBP=A9 + 0002:0000811C 00000004 C=BSS S=.bss G=DGROUP M=fODAuto ACBP=A9 + 0002:00008120 00000004 C=BSS S=.bss G=DGROUP M=fOMVerify ACBP=A9 + 0002:00008124 00000004 C=BSS S=.bss G=DGROUP M=fOMNavA ACBP=A9 + 0002:00008128 0000000C C=BSS S=.bss G=DGROUP M=fOCSession ACBP=A9 + 0002:00008134 00000008 C=BSS S=.bss G=DGROUP M=fMedCopy ACBP=A9 + 0002:0000813C 00000008 C=BSS S=.bss G=DGROUP M=fOrdersCopy ACBP=A9 + 0002:00008144 00000004 C=BSS S=.bss G=DGROUP M=mEvntDelay ACBP=A9 + 0002:00008148 00000008 C=BSS S=.bss G=DGROUP M=fOrdersTS ACBP=A9 + 0002:00008150 00000004 C=BSS S=.bss G=DGROUP M=fEffectDate ACBP=A9 + 0002:00008154 00000004 C=BSS S=.bss G=DGROUP M=fODActive ACBP=A9 + 0002:00008158 00000004 C=BSS S=.bss G=DGROUP M=fODChild ACBP=A9 + 0002:0000815C 00000004 C=BSS S=.bss G=DGROUP M=fODValidateAction ACBP=A9 + 0002:00008160 00000004 C=BSS S=.bss G=DGROUP M=fOrdersRefill ACBP=A9 + 0002:00008164 00000004 C=BSS S=.bss G=DGROUP M=fActivateDeactivate ACBP=A9 + 0002:00008168 00000054 C=BSS S=.bss G=DGROUP M=fMeds ACBP=A9 + 0002:000081BC 000000E4 C=BSS S=.bss G=DGROUP M=fEditProc ACBP=A9 + 0002:000082A0 000000E9 C=BSS S=.bss G=DGROUP M=fEditConsult ACBP=A9 + 0002:0000838C 00000004 C=BSS S=.bss G=DGROUP M=fNotesBP ACBP=A9 + 0002:00008390 00000004 C=BSS S=.bss G=DGROUP M=fRemCoverPreview ACBP=A9 + 0002:00008394 00000004 C=BSS S=.bss G=DGROUP M=fRemCoverSheet ACBP=A9 + 0002:00008398 00000004 C=BSS S=.bss G=DGROUP M=uaccessibleTreeView ACBP=A9 + 0002:0000839C 00000004 C=BSS S=.bss G=DGROUP M=uAccessibleTreeNode ACBP=A9 + 0002:000083A0 00000004 C=BSS S=.bss G=DGROUP M=fReminderTree ACBP=A9 + 0002:000083A4 0000000C C=BSS S=.bss G=DGROUP M=fConsMedRslt ACBP=A9 + 0002:000083B0 00000004 C=BSS S=.bss G=DGROUP M=fNoteIDParents ACBP=A9 + 0002:000083B4 00000004 C=BSS S=.bss G=DGROUP M=fNoteCPFields ACBP=A9 + 0002:000083B8 000000A6 C=BSS S=.bss G=DGROUP M=fConsults ACBP=A9 + 0002:00008460 00000004 C=BSS S=.bss G=DGROUP M=fTIUView ACBP=A9 + 0002:00008464 00000004 C=BSS S=.bss G=DGROUP M=fPCEEdit ACBP=A9 + 0002:00008468 00000008 C=BSS S=.bss G=DGROUP M=fNoteSTStop ACBP=A9 + 0002:00008470 0000000C C=BSS S=.bss G=DGROUP M=rDCSumm ACBP=A9 + 0002:0000847C 00000008 C=BSS S=.bss G=DGROUP M=fDCSummProps ACBP=A9 + 0002:00008484 00000077 C=BSS S=.bss G=DGROUP M=fDCSumm ACBP=A9 + 0002:000084FC 0000000C C=BSS S=.bss G=DGROUP M=fPrintList ACBP=A9 + 0002:00008508 00000004 C=BSS S=.bss G=DGROUP M=fSurgeryView ACBP=A9 + 0002:0000850C 00000004 C=BSS S=.bss G=DGROUP M=uCaseTree ACBP=A9 + 0002:00008510 00000051 C=BSS S=.bss G=DGROUP M=fSurgery ACBP=A9 + 0002:00008564 00000048 C=BSS S=.bss G=DGROUP M=fReview ACBP=A9 + 0002:000085AC 0000000C C=BSS S=.bss G=DGROUP M=fEncnt ACBP=A9 + 0002:000085B8 00000018 C=BSS S=.bss G=DGROUP M=fvit ACBP=A9 + 0002:000085D0 00000004 C=BSS S=.bss G=DGROUP M=uOrPtf ACBP=A9 + 0002:000085D4 00000004 C=BSS S=.bss G=DGROUP M=fPatientFlagMulti ACBP=A9 + 0002:000085D8 00000004 C=BSS S=.bss G=DGROUP M=fPtCWAD ACBP=A9 + 0002:000085DC 00000144 C=BSS S=.bss G=DGROUP M=fARTAllgy ACBP=A9 + 0002:00008720 00000008 C=BSS S=.bss G=DGROUP M=fAllgyBox ACBP=A9 + 0002:00008728 00000008 C=BSS S=.bss G=DGROUP M=fProbCmt ACBP=A9 + 0002:00008730 00000004 C=BSS S=.bss G=DGROUP M=fProbEdt ACBP=A9 + 0002:00008734 00000054 C=BSS S=.bss G=DGROUP M=fProbs ACBP=A9 + 0002:00008788 0000003C C=BSS S=.bss G=DGROUP M=fODConsult ACBP=A9 + 0002:000087C4 00000004 C=BSS S=.bss G=DGROUP M=rODRad ACBP=A9 + 0002:000087C8 00000004 C=BSS S=.bss G=DGROUP M=fODRadApproval ACBP=A9 + 0002:000087CC 00000004 C=BSS S=.bss G=DGROUP M=fODRadConShRes ACBP=A9 + 0002:000087D0 00000020 C=BSS S=.bss G=DGROUP M=fODRad ACBP=A9 + 0002:000087F0 00000004 C=BSS S=.bss G=DGROUP M=rODLab ACBP=A9 + 0002:000087F4 00000004 C=BSS S=.bss G=DGROUP M=fODLabOthCollSamp ACBP=A9 + 0002:000087F8 00000004 C=BSS S=.bss G=DGROUP M=fODLabOthSpec ACBP=A9 + 0002:000087FC 00000004 C=BSS S=.bss G=DGROUP M=fODLabImmedColl ACBP=A9 + 0002:00008800 00000004 C=BSS S=.bss G=DGROUP M=fLabCollTimes ACBP=A9 + 0002:00008804 0000002C C=BSS S=.bss G=DGROUP M=fODLab ACBP=A9 + 0002:00008830 00000054 C=BSS S=.bss G=DGROUP M=fODBBank ACBP=A9 + 0002:00008884 00000004 C=BSS S=.bss G=DGROUP M=fOtherSchedule ACBP=A9 + 0002:00008888 00000008 C=BSS S=.bss G=DGROUP M=fODMeds ACBP=A9 + 0002:00008890 00000004 C=BSS S=.bss G=DGROUP M=IdException ACBP=A9 + 0002:00008894 00000004 C=BSS S=.bss G=DGROUP M=IdResourceStrings ACBP=A9 + 0002:00008898 000001C8 C=BSS S=.bss G=DGROUP M=IdWinSock2 ACBP=A9 + 0002:00008A60 00000004 C=BSS S=.bss G=DGROUP M=IdStackConsts ACBP=A9 + 0002:00008A64 00000008 C=BSS S=.bss G=DGROUP M=IdStack ACBP=A9 + 0002:00008A6C 00000004 C=BSS S=.bss G=DGROUP M=IdStackWindows ACBP=A9 + 0002:00008A70 00000004 C=BSS S=.bss G=DGROUP M=IdURI ACBP=A9 + 0002:00008A74 00000014 C=BSS S=.bss G=DGROUP M=IdGlobal ACBP=A9 + 0002:00008A88 00000004 C=BSS S=.bss G=DGROUP M=fODMedIV ACBP=A9 + 0002:00008A8C 00000004 C=BSS S=.bss G=DGROUP M=fODVitals ACBP=A9 + 0002:00008A90 00000004 C=BSS S=.bss G=DGROUP M=fOMSet ACBP=A9 + 0002:00008A94 00000004 C=BSS S=.bss G=DGROUP M=fOMHTML ACBP=A9 + 0002:00008A98 00000008 C=BSS S=.bss G=DGROUP M=fODMedNVA ACBP=A9 + 0002:00008AA0 00000004 C=BSS S=.bss G=DGROUP M=fODChangeUnreleasedRenew ACBP=A9 + 0002:00008AA4 00000010 C=BSS S=.bss G=DGROUP M=fODBase ACBP=A9 + 0002:00008AB4 00000088 C=BSS S=.bss G=DGROUP M=uOrders ACBP=A9 + 0002:00008B3C 00000016 C=BSS S=.bss G=DGROUP M=rODBase ACBP=A9 + 0002:00008B54 00000020 C=BSS S=.bss G=DGROUP M=rConsults ACBP=A9 + 0002:00008B74 00000004 C=BSS S=.bss G=DGROUP M=uDocTree ACBP=A9 + 0002:00008B78 0000007B C=BSS S=.bss G=DGROUP M=fNotes ACBP=A9 + 0002:00008BF4 00000004 C=BSS S=.bss G=DGROUP M=fRemVisitInfo ACBP=A9 + 0002:00008BF8 00000004 C=BSS S=.bss G=DGROUP M=fReminderDialog ACBP=A9 + 0002:00008BFC 00000010 C=BSS S=.bss G=DGROUP M=fMHTest ACBP=A9 + 0002:00008C0C 00000004 C=BSS S=.bss G=DGROUP M=fTemplateEditor ACBP=A9 + 0002:00008C10 00000008 C=BSS S=.bss G=DGROUP M=dShared ACBP=A9 + 0002:00008C18 00000004 C=BSS S=.bss G=DGROUP M=fTemplateImport ACBP=A9 + 0002:00008C1C 0000000C C=BSS S=.bss G=DGROUP M=uTemplates ACBP=A9 + 0002:00008C28 00000004 C=BSS S=.bss G=DGROUP M=fDrawers ACBP=A9 + 0002:00008C2C 00000040 C=BSS S=.bss G=DGROUP M=uReminders ACBP=A9 + 0002:00008C6C 00000004 C=BSS S=.bss G=DGROUP M=rCover ACBP=A9 + 0002:00008C70 00000020 C=BSS S=.bss G=DGROUP M=fCover ACBP=A9 + 0002:00008C90 0000001C C=BSS S=.bss G=DGROUP M=fVitals ACBP=A9 + 0002:00008CAC 00000008 C=BSS S=.bss G=DGROUP M=fEncVitals ACBP=A9 + 0002:00008CB4 00000008 C=BSS S=.bss G=DGROUP M=fExam ACBP=A9 + 0002:00008CBC 00000008 C=BSS S=.bss G=DGROUP M=fHealthFactor ACBP=A9 + 0002:00008CC4 00000008 C=BSS S=.bss G=DGROUP M=fPatientEd ACBP=A9 + 0002:00008CCC 00000008 C=BSS S=.bss G=DGROUP M=fSkinTest ACBP=A9 + 0002:00008CD4 00000008 C=BSS S=.bss G=DGROUP M=fImmunization ACBP=A9 + 0002:00008CDC 00000008 C=BSS S=.bss G=DGROUP M=fProcedure ACBP=A9 + 0002:00008CE4 00000004 C=BSS S=.bss G=DGROUP M=fPCEOther ACBP=A9 + 0002:00008CE8 00000004 C=BSS S=.bss G=DGROUP M=fHFSearch ACBP=A9 + 0002:00008CEC 00000004 C=BSS S=.bss G=DGROUP M=fPCEBaseMain ACBP=A9 + 0002:00008CF0 00000008 C=BSS S=.bss G=DGROUP M=fDiagnoses ACBP=A9 + 0002:00008CF8 00000008 C=BSS S=.bss G=DGROUP M=fVisitType ACBP=A9 + 0002:00008D00 00000008 C=BSS S=.bss G=DGROUP M=fPCEBase ACBP=A9 + 0002:00008D08 00000024 C=BSS S=.bss G=DGROUP M=fEncounterFrame ACBP=A9 + 0002:00008D2C 00000004 C=BSS S=.bss G=DGROUP M=fDupPts ACBP=A9 + 0002:00008D30 00000004 C=BSS S=.bss G=DGROUP M=fPtSens ACBP=A9 + 0002:00008D34 00000008 C=BSS S=.bss G=DGROUP M=fPtSelDemog ACBP=A9 + 0002:00008D3C 00000008 C=BSS S=.bss G=DGROUP M=fPtSelOptSave ACBP=A9 + 0002:00008D44 00000010 C=BSS S=.bss G=DGROUP M=fPtSelOptns ACBP=A9 + 0002:00008D54 00000008 C=BSS S=.bss G=DGROUP M=fAlertForward ACBP=A9 + 0002:00008D5C 00000024 C=BSS S=.bss G=DGROUP M=fPtSel ACBP=A9 + 0002:00008D80 00000004 C=BSS S=.bss G=DGROUP M=rLabs ACBP=A9 + 0002:00008D84 00000004 C=BSS S=.bss G=DGROUP M=fLabPrint ACBP=A9 + 0002:00008D88 00000004 C=BSS S=.bss G=DGROUP M=fLabTestGroups ACBP=A9 + 0002:00008D8C 00000004 C=BSS S=.bss G=DGROUP M=fLabTests ACBP=A9 + 0002:00008D90 00000004 C=BSS S=.bss G=DGROUP M=fLabTest ACBP=A9 + 0002:00008D94 00000048 C=BSS S=.bss G=DGROUP M=fLabs ACBP=A9 + 0002:00008DDC 00000004 C=BSS S=.bss G=DGROUP M=fPtDemo ACBP=A9 + 0002:00008DE0 00000004 C=BSS S=.bss G=DGROUP M=fAbout ACBP=A9 + 0002:00008DE4 00000004 C=BSS S=.bss G=DGROUP M=fxBroker ACBP=A9 + 0002:00008DE8 00000004 C=BSS S=.bss G=DGROUP M=fxLists ACBP=A9 + 0002:00008DEC 00000004 C=BSS S=.bss G=DGROUP M=fxServer ACBP=A9 + 0002:00008DF0 00000008 C=BSS S=.bss G=DGROUP M=fSplash ACBP=A9 + 0002:00008DF8 00000008 C=BSS S=.bss G=DGROUP M=fLabInfo ACBP=A9 + 0002:00008E00 00000038 C=BSS S=.bss G=DGROUP M=fBAOptionsDiagnoses ACBP=A9 + 0002:00008E38 00000004 C=BSS S=.bss G=DGROUP M=uOptions ACBP=A9 + 0002:00008E3C 00000004 C=BSS S=.bss G=DGROUP M=fOptionsDays ACBP=A9 + 0002:00008E40 00000004 C=BSS S=.bss G=DGROUP M=fOptionsReminders ACBP=A9 + 0002:00008E44 0000000C C=BSS S=.bss G=DGROUP M=fOptionsSurrogate ACBP=A9 + 0002:00008E50 00000004 C=BSS S=.bss G=DGROUP M=fOptionsPatientSelection ACBP=A9 + 0002:00008E54 00000004 C=BSS S=.bss G=DGROUP M=fOptionsNewList ACBP=A9 + 0002:00008E58 00000004 C=BSS S=.bss G=DGROUP M=fOptionsLists ACBP=A9 + 0002:00008E5C 00000004 C=BSS S=.bss G=DGROUP M=fOptionsTeams ACBP=A9 + 0002:00008E60 00000004 C=BSS S=.bss G=DGROUP M=fOptionsCombinations ACBP=A9 + 0002:00008E64 00000004 C=BSS S=.bss G=DGROUP M=fOptionsOther ACBP=A9 + 0002:00008E68 00000004 C=BSS S=.bss G=DGROUP M=fOptionsNotes ACBP=A9 + 0002:00008E6C 00000004 C=BSS S=.bss G=DGROUP M=fOptionsTitles ACBP=A9 + 0002:00008E70 00000004 C=BSS S=.bss G=DGROUP M=fOptionsReportsCustom ACBP=A9 + 0002:00008E74 00000004 C=BSS S=.bss G=DGROUP M=fOptionsReportsDefault ACBP=A9 + 0002:00008E78 00000004 C=BSS S=.bss G=DGROUP M=fOptions ACBP=A9 + 0002:00008E7C 00000004 C=BSS S=.bss G=DGROUP M=fDefaultEvent ACBP=A9 + 0002:00008E80 00000028 C=BSS S=.bss G=DGROUP M=fFrame ACBP=A9 + 0002:00008EA8 00000014 C=BSS S=.bss G=DGROUP M=UBACore ACBP=A9 + 0002:00008EBC 00000008 C=BSS S=.bss G=DGROUP M=uPCE ACBP=A9 + 0002:00008EC4 00000049 C=BSS S=.bss G=DGROUP M=rPCE ACBP=A9 + 0002:00008F10 00000004 C=BSS S=.bss G=DGROUP M=fPCELex ACBP=A9 + 0002:00008F14 00000051 C=BSS S=.bss G=DGROUP M=fBALocalDiagnoses ACBP=A9 + 0002:00008F68 000000D0 C=BSS S=.bss G=DGROUP M=UBAGlobals ACBP=A9 + 0002:00009038 00000004 C=BSS S=.bss G=DGROUP M=fHSplit ACBP=A9 + 0002:0000903C 0000003C C=BSS S=.bss G=DGROUP M=fOrders ACBP=A9 + 0002:00009078 00000014 C=BSS S=.bss G=DGROUP M=rMisc ACBP=A9 + 0002:0000908C 00000012 C=BSS S=.bss G=DGROUP M=rTIU ACBP=A9 + 0002:000090A0 0000000C C=BSS S=.bss G=DGROUP M=rCore ACBP=A9 + 0002:000090AC 00000038 C=BSS S=.bss G=DGROUP M=uCore ACBP=A9 + 0002:000090E4 0000000D C=BSS S=.bss G=DGROUP M=rOrders ACBP=A9 + 0002:000090F4 00000004 C=BSS S=.bss G=DGROUP M=fPage ACBP=A9 + 0002:000090F8 00000004 C=BSS S=.bss G=DGROUP M=fHP ACBP=A9 + 0002:000090FC 00000004 C=BSS S=.bss G=DGROUP M=mVitCirGirth ACBP=A9 + 0002:00009100 00000004 C=BSS S=.bss G=DGROUP M=mVitCVP ACBP=A9 + 0002:00009104 00000004 C=BSS S=.bss G=DGROUP M=mVitPO2 ACBP=A9 + 0002:00009108 00000004 C=BSS S=.bss G=DGROUP M=mVitPain ACBP=A9 + 0002:0000910C 00000004 C=BSS S=.bss G=DGROUP M=mVitWeight ACBP=A9 + 0002:00009110 00000004 C=BSS S=.bss G=DGROUP M=mVitHeight ACBP=A9 + 0002:00009114 00000004 C=BSS S=.bss G=DGROUP M=mVitBP ACBP=A9 + 0002:00009118 00000004 C=BSS S=.bss G=DGROUP M=mVitResp ACBP=A9 + 0002:0000911C 00000004 C=BSS S=.bss G=DGROUP M=mVitPulse ACBP=A9 + 0002:00009120 00000004 C=BSS S=.bss G=DGROUP M=mVitTemp ACBP=A9 + 0002:00009124 00000004 C=BSS S=.bss G=DGROUP M=mVitAll ACBP=A9 + 0002:00009128 00000004 C=BSS S=.bss G=DGROUP M=fODRadImType ACBP=A9 + 0002:0000912C 00000004 C=BSS S=.bss G=DGROUP M=fODSaveQuick ACBP=A9 + 0002:00009130 00000004 C=BSS S=.bss G=DGROUP M=fOMProgress ACBP=A9 + 0002:00009134 00000004 C=BSS S=.bss G=DGROUP M=fOptionsPrimaryList ACBP=A9 + 0002:00009138 00000004 C=BSS S=.bss G=DGROUP M=fOptionsSubscribe ACBP=A9 + + + Address Publics by Name + + 0002:00005C5C .01 + 0002:00008C64 .01 + 0002:00005D20 .02 + 0002:00006F24 .1 + 0002:00005A58 .1 + 0002:00007298 .1 + 0002:00007138 .1 + 0002:0000566C .1 + 0002:00005844 .1 + 0002:00008EC8 .1 + 0002:00005CA0 .1 + 0002:00005D18 .1 + 0002:00005B0C .1 + 0002:00005D04 .1 + 0002:00005A60 .1 + 0002:00005A48 .1 + 0002:000087F0 .1 + 0002:00008470 .1 + 0002:00008B74 .1 + 0002:00005674 .1 + 0002:00005974 .1 + 0002:00005C84 .1 + 0002:00005C80 .1 + 0002:00008D80 .1 + 0002:000072C8 .1 + 0002:00005678 .1 + 0002:00005A64 .1 + 0002:0000850C .1 + 0002:00006F28 .1 + 0002:00006F50 .1 + 0002:000087C4 .1 + 0002:000071B0 .1 + 0002:00005ACC .1 + 0002:000071B4 .1 + 0002:00005940 .1 + 0002:000090A0 .1 + 0002:00005D90 .1 + 0002:00005ABC .1 + 0002:0000725C .1 + 0002:00006E14 .1 + 0002:00006FA4 .1 + 0002:00006FA8 .1 + 0002:00008B68 .1 + 0002:00007130 .1 + 0002:00006FC8 .1 + 0002:000071DC .1 + 0002:00005B74 .1 + 0002:00006E44 .1 + 0002:00006FD4 .1 + 0002:0000908C .1 + 0002:000073A4 .1 + 0002:0000707C .1 + 0002:0000710C .1 + 0002:00008EB8 .1 + 0002:0000592C .1 + 0002:00005A78 .1 + 0002:00008A60 .1 + 0002:0000709C .1 + 0002:00005894 .1 + 0002:000071F0 .1 + 0002:00005A74 .1 + 0002:00007210 .1 + 0002:000070B4 .1 + 0002:00005C44 .1 + 0002:00005684 .1 + 0002:00005680 .1 + 0002:00005A70 .1 + 0002:000070E8 .1 + 0002:00005D60 .1 + 0002:00005D5C .1 + 0002:00008894 .1 + 0002:00005D10 .1 + 0002:00005D54 .1 + 0002:0000722C .1 + 0002:00007104 .1 + 0002:00005A6C .1 + 0002:00005A68 .1 + 0002:00007270 .1 + 0002:00005900 .1 + 0002:00007134 .1 + 0002:00005A7C .11 + 0002:00008A7C .11 + 0002:00005C40 .11 + 0002:00005C7C .11 + 0002:00006F48 .11 + 0002:00006F9C .111 + 0002:00005AB8 .12 + 0002:0000589C .12 + 0002:00005CB0 .13 + 0002:000080E4 .2 + 0002:00007414 .2 + 0002:000073D0 .2 + 0002:000073CC .2 + 0002:000073A0 .2 + 0002:0000872C .2 + 0002:00008730 .2 + 0002:00008784 .2 + 0002:00007394 .2 + 0002:00008794 .2 + 0002:00007384 .2 + 0002:00007380 .2 + 0002:0000737C .2 + 0002:000087C8 .2 + 0002:000087CC .2 + 0002:000087D0 .2 + 0002:00007378 .2 + 0002:00007374 .2 + 0002:00007370 .2 + 0002:0000736C .2 + 0002:000087F4 .2 + 0002:000087F8 .2 + 0002:000087FC .2 + 0002:00008800 .2 + 0002:0000735C .2 + 0002:00007358 .2 + 0002:0000733C .2 + 0002:00007338 .2 + 0002:0000911C .2 + 0002:00007334 .2 + 0002:00008F44 .2 + 0002:0000888C .2 + 0002:00008F10 .2 + 0002:00007324 .2 + 0002:00007314 .2 + 0002:00007308 .2 + 0002:00009118 .2 + 0002:00008464 .2 + 0002:00007300 .2 + 0002:00008A88 .2 + 0002:00008A8C .2 + 0002:00009114 .2 + 0002:00008A94 .2 + 0002:000072FC .2 + 0002:00008A9C .2 + 0002:000072EC .2 + 0002:00008AA0 .2 + 0002:000072E8 .2 + 0002:000072E4 .2 + 0002:00009110 .2 + 0002:000072D4 .2 + 0002:000072C4 .2 + 0002:00008B10 .2 + 0002:000072C0 .2 + 0002:000072BC .2 + 0002:000072B8 .2 + 0002:000072B4 .2 + 0002:000072B0 .2 + 0002:000072AC .2 + 0002:000072A8 .2 + 0002:000072A4 .2 + 0002:000072A0 .2 + 0002:0000729C .2 + 0002:0000910C .2 + 0002:00007290 .2 + 0002:0000728C .2 + 0002:0000726C .2 + 0002:00007264 .2 + 0002:00007260 .2 + 0002:00006F30 .2 + 0002:00007234 .2 + 0002:00007230 .2 + 0002:00005D58 .2 + 0002:00007224 .2 + 0002:000058F8 .2 + 0002:000071F4 .2 + 0002:00009108 .2 + 0002:00005D68 .2 + 0002:00006F34 .2 + 0002:000071E4 .2 + 0002:00005D6C .2 + 0002:00008EA0 .2 + 0002:00005D80 .2 + 0002:00008E7C .2 + 0002:000071E0 .2 + 0002:00009104 .2 + 0002:00005D8C .2 + 0002:00008E78 .2 + 0002:00008E74 .2 + 0002:00005D98 .2 + 0002:00008E70 .2 + 0002:00008E6C .2 + 0002:000071AC .2 + 0002:000071A8 .2 + 0002:000071A4 .2 + 0002:000071A0 .2 + 0002:0000719C .2 + 0002:00009100 .2 + 0002:00007194 .2 + 0002:00005DB4 .2 + 0002:00008E68 .2 + 0002:00007160 .2 + 0002:00005DB8 .2 + 0002:00008E64 .2 + 0002:00005DBC .2 + 0002:00008E60 .2 + 0002:00007150 .2 + 0002:00007148 .2 + 0002:00007140 .2 + 0002:00008B80 .2 + 0002:00008E5C .2 + 0002:00006DD8 .2 + 0002:000090FC .2 + 0002:00008E58 .2 + 0002:00008BF4 .2 + 0002:00008BF8 .2 + 0002:00007128 .2 + 0002:00008E54 .2 + 0002:00006E0C .2 + 0002:00008BFC .2 + 0002:00007108 .2 + 0002:00008C0C .2 + 0002:00008C14 .2 + 0002:00007100 .2 + 0002:00008E50 .2 + 0002:000070F0 .2 + 0002:000070EC .2 + 0002:00008C18 .2 + 0002:00008C1C .2 + 0002:000070E4 .2 + 0002:000070E0 .2 + 0002:000070D8 .2 + 0002:000070B0 .2 + 0002:000070AC .2 + 0002:000070A8 .2 + 0002:000070A4 .2 + 0002:00007098 .2 + 0002:00006E28 .2 + 0002:00008E44 .2 + 0002:00007094 .2 + 0002:00008C28 .2 + 0002:00007048 .2 + 0002:00006FE8 .2 + 0002:00006FD0 .2 + 0002:00008E40 .2 + 0002:00006FCC .2 + 0002:00006FC4 .2 + 0002:00006FC0 .2 + 0002:00006FA0 .2 + 0002:00006F98 .2 + 0002:00006F78 .2 + 0002:00006F70 .2 + 0002:00006F6C .2 + 0002:000090F8 .2 + 0002:00008C6C .2 + 0002:000090F4 .2 + 0002:00006F58 .2 + 0002:00006E5C .2 + 0002:00006F44 .2 + 0002:00008C84 .2 + 0002:00008CA8 .2 + 0002:00008CB0 .2 + 0002:00008CB8 .2 + 0002:00008CC0 .2 + 0002:00008CC8 .2 + 0002:00008CD0 .2 + 0002:00008CD8 .2 + 0002:00008CE0 .2 + 0002:00008CE4 .2 + 0002:00008CE8 .2 + 0002:00008CEC .2 + 0002:00008E3C .2 + 0002:00008CF4 .2 + 0002:00008CFC .2 + 0002:00008D04 .2 + 0002:00008D28 .2 + 0002:00008D2C .2 + 0002:00008D30 .2 + 0002:00008460 .2 + 0002:00008D38 .2 + 0002:00008D40 .2 + 0002:00008E38 .2 + 0002:000080E8 .2 + 0002:000080EC .2 + 0002:000080F4 .2 + 0002:000080F8 .2 + 0002:000080FC .2 + 0002:00008100 .2 + 0002:00008104 .2 + 0002:00008108 .2 + 0002:0000810C .2 + 0002:00008110 .2 + 0002:00005C9C .2 + 0002:00008114 .2 + 0002:00008118 .2 + 0002:0000811C .2 + 0002:00008120 .2 + 0002:00008124 .2 + 0002:00008128 .2 + 0002:00008138 .2 + 0002:00009038 .2 + 0002:00009068 .2 + 0002:00005C74 .2 + 0002:00008140 .2 + 0002:0000907C .2 + 0002:00005C50 .2 + 0002:00008144 .2 + 0002:0000814C .2 + 0002:00008150 .2 + 0002:00008154 .2 + 0002:00008724 .2 + 0002:0000871C .2 + 0002:00008158 .2 + 0002:0000815C .2 + 0002:000085D8 .2 + 0002:00009120 .2 + 0002:00008160 .2 + 0002:000085D0 .2 + 0002:000085C4 .2 + 0002:00009124 .2 + 0002:000085AC .2 + 0002:000085A8 .2 + 0002:00009128 .2 + 0002:00008164 .2 + 0002:0000912C .2 + 0002:000081C0 .2 + 0002:000082A4 .2 + 0002:0000838C .2 + 0002:00008390 .2 + 0002:0000854C .2 + 0002:00008394 .2 + 0002:00008398 .2 + 0002:00005B5C .2 + 0002:00008508 .2 + 0002:00008504 .2 + 0002:00006F2C .2 + 0002:0000839C .2 + 0002:000083A0 .2 + 0002:000083A4 .2 + 0002:00008488 .2 + 0002:00009130 .2 + 0002:00008480 .2 + 0002:00005AC4 .2 + 0002:000083B0 .2 + 0002:000083B4 .2 + 0002:0000846C .2 + 0002:00009134 .2 + 0002:00009138 .2 + 0002:00008D50 .2 + 0002:00008D54 .2 + 0002:00008D7C .2 + 0002:00008E24 .2 + 0002:00006E68 .2 + 0002:00008DFC .2 + 0002:00008DF4 .2 + 0002:00006E6C .2 + 0002:00008DEC .2 + 0002:00006E70 .2 + 0002:00008DE8 .2 + 0002:00008DE4 .2 + 0002:00008DE0 .2 + 0002:00008DDC .2 + 0002:00008DC0 .2 + 0002:00008D90 .2 + 0002:00006F20 .2 + 0002:00006F1C .2 + 0002:00006E84 .2 + 0002:00008D8C .2 + 0002:00008D88 .2 + 0002:00008D84 .2 + 0002:00005944 .2 + 0002:000058FC .21 + 0002:000090D4 .21 + 0002:00005D50 .21 + 0002:000071E8 .22 + 0002:00006E80 .3 + 0002:00006F18 .3 + 0002:00006E64 .3 + 0002:00006E58 .3 + 0002:00006F4C .3 + 0002:00006F64 .3 + 0002:0000567C .3 + 0002:00006DE0 .3 + 0002:00007198 .3 + 0002:000071B8 .3 + 0002:000071EC .3 + 0002:00007214 .3 + 0002:00007228 .3 + 0002:00005D1C .3 + 0002:000072D8 .3 + 0002:00008A90 .3 + 0002:00008A70 .3 + 0002:00008A6C .3 + 0002:00008A58 .3 + 0002:00008884 .3 + 0002:000085D4 .3 + 0002:00005C04 .3 + 0002:0000584C .3 + 0002:000081B8 .3 + 0002:00005B00 .3 + 0002:00005950 .3 + 0002:0000594C .3 + 0002:000083BC .3 + 0002:00008EBC .31 + 0002:0000721C .31 + 0002:00005C70 .31 + 0002:00009034 .31 + 0002:00005798 .35 + 0002:00005B20 .36 + 0002:000071D8 .36 + 0002:00006DFC .4 + 0002:00006E60 .4 + 0002:00006DC0 .4 + 0002:00005D14 .4 + 0002:00006FB4 .4 + 0002:00005A5C .4 + 0002:00008B3C .4 + 0002:00005AD0 .4 + 0002:00005C28 .41 + 0002:00005C88 .41 + 0002:00006F68 .41 + 0002:00005B64 .42 + 0002:0000585C .45 + 0002:00005B08 .5 + 0002:00005D4C .5 + 0002:00006F3C .5 + 0002:00005800 .5 + 0002:00008830 .5 + 0002:00008804 .5 + 0002:000080F0 .5 + 0002:000055BC .5 + 0002:00008AB0 .5 + 0002:00005C78 .5 + 0002:00007218 .51 + 0002:00006FBC .51 + 0002:00006FB0 .51 + 0002:00006E74 .6 + 0002:00005988 .6 + 0002:00005848 .6 + 0002:00005DA8 .6 + 0002:0000712C .6 + 0002:00008A68 .6 + 0002:00006F40 .61 + 0002:00008890 .64 + 0002:00007258 .7 + 0002:00005C4C .71 + 0002:00006FAC .71 + 0002:00005B88 .72 + 0002:00005B10 .72 + 0002:00005B68 .73 + 0002:00005B1C .8 + 0002:00005C00 .8 + 0002:00005B04 .8 + 0002:00006F5C .8 + 0002:000090E4 .8 + 0002:00006E54 .8 + 0002:00006FB8 .81 + 0002:00005824 .81 + 0002:00005C18 .9 + 0002:00005C48 .9 + 0002:00006E24 .9 + 0001:00001D04 @AbstractError + 0001:00004394 @AddRefArray + 0001:0000434C @AddRefRecord + 0001:00002AD4 @AfterConstruction + 0001:000028C8 @AsClass + 0001:0000356C @Assert + 0001:00001EA8 @AStrCmp + 0001:00002AE4 @BeforeDestruction + 0001:00002658 @BoundErr + 0001:00002914 @CallDynaInst + 0001:0000555C @CheckAutoResult + 0001:00002A7C @ClassCreate + 0001:00002ACC @ClassDestroy + 0001:00001D74 @Close + 0001:000019B8 @Copy + 0001:00004588 @CopyArray + 0001:0000446C @CopyRecord + 0001:00001C58 @COS + 0001:000046F4 @DispCallByIDError + 0001:00011970 @DispInvoke + 0001:00011668 @DispInvokeError + 0001:00004690 @Dispose + 0001:00003024 @DoneExcept + 0001:00004DC8 @DynArrayAddRef + 0001:00004DA0 @DynArrayAsg + 0001:00004D64 @DynArrayClear + 0001:00004C50 @DynArrayCopy + 0001:00004C70 @DynArrayCopyRange + 0001:00004A90 @DynArrayHigh + 0001:00004A88 @DynArrayLength + 0001:00004C44 @DynArraySetLength + 0001:0000310C @ExceptionHandler + 0001:00001C68 @EXP + 0001:00001F18 @FillChar + 0001:00004340 @Finalize + 0001:00004254 @FinalizeArray + 0001:00004208 @FinalizeRecord + 0001:0000292C @FindDynaInst + 0001:0000264C @FpuInit + 0001:00002588 @FpuMaskInit + 0001:00001CB0 @FRAC + 0001:000017F4 @FreeMem + 0001:000017D4 @GetMem + 0001:00005B98 @GetTls + 0001:00003554 @Halt + 0001:0000347C @Halt0 + 0001:00002BF8 @HandleAnyException + 0001:00002EE4 @HandleAutoException + 0001:00002EAC @HandleFinally + 0001:00002D24 @HandleOnException + 0001:00005BE4 @InitExe + 0001:000041FC @Initialize + 0001:00004168 @InitializeArray + 0001:00004138 @InitializeRecord + 0001:00003340 @InitImports + 0001:00003318 @InitResStringImports + 0001:000032F4 @InitResStrings + 0001:00001C80 @INT + 0001:000054C0 @IntfAddRef + 0001:00005490 @IntfCast + 0001:0000544C @IntfClear + 0001:00005464 @IntfCopy + 0001:000028A4 @IsClass + 0001:00002558 @isNECWindows + 0001:00003AC0 @LStrAddRef + 0001:00003634 @LStrArrayClr + 0001:00003664 @LStrAsg + 0001:000038D8 @LStrCat + 0001:0000391C @LStrCat3 + 0001:00003990 @LStrCatN + 0001:00003610 @LStrClr + 0001:00003A1C @LStrCmp + 0001:00003B30 @LStrCopy + 0001:00003B70 @LStrDelete + 0001:00003880 @LStrFromArray + 0001:000037F8 @LStrFromChar + 0001:00003808 @LStrFromPChar + 0001:00003700 @LStrFromPCharLen + 0001:00003838 @LStrFromPWChar + 0001:0000376C @LStrFromPWCharLen + 0001:00003874 @LStrFromString + 0001:00003898 @LStrFromWStr + 0001:00003BB8 @LStrInsert + 0001:000036A8 @LStrLAsg + 0001:000038D0 @LStrLen + 0001:00003CC0 @LStrOfChar + 0001:00003C14 @LStrPos + 0001:00003C5C @LStrSetLength + 0001:00003AD0 @LStrToPChar + 0001:000038AC @LStrToString + 0001:0000467C @New + 0001:000036D4 @NewAnsiString + 0001:00003CF4 @NewWideString + 0001:00015EBC @OleVarFromInt + 0001:000161C0 @OleVarFromLStr + 0001:0001627C @OleVarFromVar + 0001:0000226C @Pow10 + 0001:00001E24 @PStrCmp + 0001:00001DFC @PStrCpy + 0001:00001DCC @PStrNCat + 0001:00001E08 @PStrNCpy + 0001:00002FD0 @RaiseAgain + 0001:00002FA8 @RaiseExcept + 0001:00001F38 @RandInt + 0001:00001814 @ReallocMem + 0001:00001CD4 @ROUND + 0001:00003560 @RunError + 0001:000020C4 @SetElem + 0001:00002140 @SetEq + 0001:00001C08 @SetLength + 0001:000020E8 @SetRange + 0001:00002154 @SetUnion + 0001:00001CA0 @SIN + 0001:000032B4 @StartExe + 0001:00001FB4 @Str0Long + 0001:000003A4 @strlen + 0001:00001F54 @StrLong + 0001:00001CE0 @TRUNC + 0001:00003054 @TryFinallyExit + 0001:00003B28 @UniqueStringA + 0001:00002160 @ValExt + 0001:00004858 @ValInt64 + 0001:00001FC0 @ValLong + 0001:00019BA0 @VarAdd + 0001:00017B88 @VarAddRef + 0001:0000437C @VarAddRef + 0001:000182F8 @VarArrayGet + 0001:000183E8 @VarArrayPut + 0001:000122C4 @VarCast + 0001:00011954 @VarClear + 0001:00011968 @VarClr + 0001:0000423C @VarClr + 0001:00019BC4 @VarCmpEQ + 0001:00019BF4 @VarCmpGT + 0001:00019BE4 @VarCmpLT + 0001:00019BD4 @VarCmpNE + 0001:00004454 @VarCopy + 0001:00011D80 @VarCopy + 0001:00012000 @VarCopyNoInd + 0001:00016050 @VarFromBool + 0001:00015EDC @VarFromByte + 0001:000160A0 @VarFromCurr + 0001:00015FF8 @VarFromCurrency + 0001:00016024 @VarFromDate + 0001:00016194 @VarFromDisp + 0001:00015FCC @VarFromDouble + 0001:00015E60 @VarFromInt + 0001:00015F7C @VarFromInt64 + 0001:00015E9C @VarFromInteger + 0001:00016168 @VarFromIntf + 0001:00015F1C @VarFromLongWord + 0001:000160B4 @VarFromLStr + 0001:000160E0 @VarFromPStr + 0001:00016078 @VarFromReal + 0001:00015F3C @VarFromShortInt + 0001:00015FA8 @VarFromSingle + 0001:00015F5C @VarFromSmallInt + 0001:0001608C @VarFromTDateTime + 0001:00015EFC @VarFromWord + 0001:00016130 @VarFromWStr + 0001:000116BC @VarNull + 0001:000171DC @VarOp + 0001:00019BB8 @VarOr + 0001:00012014 @VarStringToOleStr + 0001:00019BAC @VarSub + 0001:00013A90 @VarToBool + 0001:00013748 @VarToBoolean + 0001:00012B88 @VarToByte + 0001:00014934 @VarToCurrency + 0001:000143CC @VarToDate + 0001:00015DB4 @VarToDisp + 0001:00013C5C @VarToDouble + 0001:0001314C @VarToInt64 + 0001:00012688 @VarToInteger + 0001:00015CE8 @VarToIntf + 0001:00012E00 @VarToLongWord + 0001:00014FE8 @VarToLStr + 0001:00013FD8 @VarToReal + 0001:00012AD8 @VarToShortInt + 0001:00013FF4 @VarToSingle + 0001:00012C30 @VarToSmallInt + 0001:00012D28 @VarToWord + 0001:00015710 @VarToWStr + 0001:00004118 @WStrAddRef + 0001:00003D34 @WStrArrayClr + 0001:00003D58 @WStrAsg + 0001:00003F0C @WStrCat + 0001:00003F6C @WStrCatN + 0001:00003D1C @WStrClr + 0001:00003FB4 @WStrCmp + 0001:00004038 @WStrCopy + 0001:00003E74 @WStrFromLStr + 0001:00003D7C @WStrFromPCharLen + 0001:00003E2C @WStrFromPWChar + 0001:00003E08 @WStrFromPWCharLen + 0001:00003E68 @WStrFromString + 0001:00003F00 @WStrLen + 0001:00004084 @WStrPos + 0001:000040D4 @WStrSetLength + 0001:00003EF0 @WStrToPWChar + 0001:00003E84 @WStrToString + 0001:000020A0 @_CLenToPasStr + 0001:00002094 @_CToPasStr + 0001:00001988 @_IOTest + 0001:00004720 @_lldiv + 0001:0000479C @_llmod + 0001:000046FC @_llmul + 0001:00004818 @_llshl + 0001:00004838 @_llushr + 0001:0000D3AC Abort + 0001:0003BA20 AbortProc + 0001:00095100 AbsMin + 0001:0000D844 AbstractErrorHandler + 0002:0000502C AbstractErrorProc + 0002:0000889C accept + 0001:0010DA44 accept + 0002:00008A4C AcceptEx + 0001:0018F1AC AcceptOrderWithChecks + 0001:000F1560 Accessibility_TLB + 0002:0000014C AccessMode + 0002:000073F4 AClinicLoc + 0002:00007408 AClinicName + 0001:000018F0 AcquireExceptionObject + 0001:001F1C0C ActionOnComplexOrder + 0002:00002744 ActionType + 0001:0029EF60 ActivateAction + 0001:0019C0F0 ActivateButton + 0001:0001EB58 ActivateClassGroup + 0001:000066E8 ActivateKeyboardLayout + 0001:0029F0A8 ActivateOrderDialog + 0001:002A0078 ActivateOrderHTML + 0001:002A0634 ActivateOrderList + 0001:002A0220 ActivateOrderMenu + 0001:002A0464 ActivateOrderSet + 0001:00126D60 ActiveBroker + 0002:00005BBC ActiveDrag + 0001:002A077C ActiveOrdering + 0002:000030F0 ActiveReminders + 0001:0001C004 ActiveX + 0001:000A8E14 ActnList + 0001:0021BC2C ActOnDCDocument + 0001:0036A01C ActOnDocument + 0001:0034AF00 Add + 0001:0034B520 Add + 0001:002DE344 Add + 0001:002BD648 Add + 0001:002E90EC Add + 0001:002DEE7C Add2Tree + 0001:000004E0 AddBlockAfter + 0001:002D1E08 AddBoiler + 0001:001ABC80 AddChars + 0001:002CD544 AddChildObject + 0001:002A7864 AddComment + 0002:00000600 AddDataModule + 0001:001AE298 AddDigit + 0001:002DE5C8 AddEducationTopics + 0001:002CE2DC AddErr + 0001:000081DC AddExitProc + 0001:002D1ECC AddField + 0001:002D1FBC AddFieldHeader + 0001:0018F32C AddFillerAppID + 0001:00024518 AddFinished + 0001:000ACE54 AddIn + 0001:000F5ED4 AddItemTipRef + 0001:0034B8C8 AddList + 0001:002AB568 AddListViewItem + 0001:000052E0 AddModuleUnloadProc + 0001:000052F0 AddModuleUnloadProc + 0001:002E7410 AddNewTxt + 0001:0013DF18 AddNewTxt + 0001:001AD588 AddNormalizedFractions + 0001:00024554 AddNotFinished + 0001:000B1B18 AddOle2 + 0001:001AE274 AddOneChar + 0001:0034DAD0 AddProbsToDiagnoses + 0001:002E8DBC AddPrompt + 0001:002E3828 AddPrompts + 0001:001B630C AddSave + 0001:0029D6F0 AddSelectedToChanges + 0001:001160E4 AddServer + 0001:001ABD60 AddStrings + 0001:00025168 AddSubComponentsToLoaded + 0001:002CFD80 AddTemplate + 0001:0000F330 AddTerminateProc + 0001:00029C90 AddThread + 0001:000CF96C AddTick + 0001:00121C5C AddToNotifyWhenCreated + 0001:0034A8A4 AddTxt + 0001:002C0550 AddTxt2Str + 0001:001300A0 AddVital + 0001:002DE77C AddWebPages + 0001:002D1BB4 AddXMLBool + 0001:002D1AD8 AddXMLData + 0001:002D1C40 AddXMLList + 0002:000070FC ADevice + 0001:002C112C AdjDY + 0002:0000251C AdjustAmt + 0002:00002514 AdjustAmt + 0002:00002504 AdjustAmt + 0002:0000250C AdjustAmt + 0001:00137F20 AdjustCircleMarks + 0001:00031494 AdjustColor + 0001:00047BEC AdjustColors + 0001:001AC8C4 AdjustDecimalPosition + 0001:0006B4A4 AdjustLineBreaks + 0001:00114740 AdjustLineBreaks + 0001:00008984 AdjustLineBreaks + 0001:000B67D8 Adjustment + 0001:001AD9DC AdjustNibbles + 0001:000066F0 AdjustWindowRectEx + 0001:002A7920 AdminComplete + 0002:00008860 ALabTest + 0002:00008810 ALabTest + 0001:0037AD14 AlertOrder + 0002:00007388 AlertRecip + 0002:00007398 AlertRecip + 0002:000010E4 Alignments + 0002:000010A4 Alignments + 0002:000011F8 Alignments + 0002:00000B58 Alignments + 0002:0000144C Alignments + 0002:0000118C Alignments + 0002:0000117C Alignments + 0002:0000143C Alignments + 0002:000016FC Aligns + 0002:00000DC8 AlignStyles + 0001:0009C378 AlignWork + 0001:000BF8D4 AlignWork + 0001:00137BB4 AllCircled + 0001:002D888C AllCtrls + 0001:002460A4 AllergyBox + 0002:000085DC AllergyList + 0001:001BB488 AllergyLookup + 0001:0002C4D0 AllocateHWnd + 0001:000B6154 AllocateHWnd + 0001:0004079C AllocFilterStr + 0001:00008170 AllocMem + 0002:000055B4 AllocMemCount + 0002:000055B8 AllocMemSize + 0001:0003817C AllocPatternBitmap + 0001:00005B40 AllocTlsBuffer + 0001:002A2194 AllowActionOnIMO + 0001:0036C21C AllowChartPrintForNote + 0001:00182328 AllowTimeout + 0001:00358AB8 AllSelectedDxBlank + 0001:0030AE3C AllTests + 0002:000087E8 ALocation + 0002:000073EC ALocation + 0002:0000178C ALPHA_DISTRIBUTION + 0001:002A5AC0 AmountsForIVFluid + 0001:00192674 AMPMToFMTime + 0002:00007410 AMsgSw + 0002:000087E0 AName + 0002:000073FC AName + 0002:00003438 AnAtom + 0001:000282C0 AncestorIsValid + 0002:00001228 AnchorAlign + 0002:00005C60 AnimatedZoomFactor + 0002:0000121C AnimateWindowProc + 0002:00001324 AnimationStyle + 0001:0000845C AnsiCompareStr + 0001:000084A8 AnsiCompareText + 0001:0004A8A4 AnsiContainsStr + 0001:000087FC AnsiExtractQuotedStr + 0001:000092D4 AnsiLastChar + 0001:000066F8 AnsiLower + 0001:00008414 AnsiLowerCase + 0001:0000E4A0 AnsiLowerCaseFileName + 0001:0000E454 AnsiPos + 0001:00008690 AnsiQuotedStr + 0001:0004A83C AnsiReplaceStr + 0001:0004A870 AnsiReplaceText + 0001:000B286C AnsiSameCaption + 0001:000084F4 AnsiSameText + 0001:00008518 AnsiStrIComp + 0001:0000854C AnsiStrLIComp + 0001:0000E574 AnsiStrPos + 0001:0000E64C AnsiStrRScan + 0001:0000E69C AnsiStrScan + 0001:000058DC AnsiToUtf8 + 0001:000083CC AnsiUpperCase + 0001:000167F0 AnyOp + 0001:0037C5C0 AnyOrdersRequireSignature + 0001:0013EA98 AnyTemplateFieldsModified + 0001:00351A7C AnytimeEncounters + 0001:00015C70 AnyToIntf + 0002:00008FE8 AO + 0002:0000740C AOrderLocList + 0001:0000B2A4 AppendChars + 0001:00347A28 AppendComment + 0001:0000B6C4 AppendFormat + 0001:00006700 AppendMenu + 0001:0000B328 AppendNumber + 0001:0000B304 AppendString + 0001:00191DD8 AppendTFProducts + 0001:0012490C AppEvnts + 0002:00005C20 Application + 0002:00000610 ApplicationHandleException + 0002:00000618 ApplicationShowException + 0001:000C59EC ApplyDark + 0001:00372784 AppNotificationEnabled + 0001:00104D1C AppOutOfDate + 0002:0000158C AppVisible + 0001:000CF51C AProc + 0001:000063A8 Arc + 0001:000C3D18 ArcTan2 + 0001:0013E2A8 AreTemplateFieldsRequired + 0002:00000EC4 Arrangements + 0002:00007418 arRect + 0001:0014E734 ArrowCha + 0002:0000170C ArrowColors + 0002:00001730 ArrowKey + 0001:001BA908 ARTPatchInstalled + 0002:000073F8 ASelectedLoc + 0001:002A32A4 AskAnotherOrder + 0001:00369C10 AskCosignerForDocument + 0001:00369CE0 AskCosignerForTitle + 0001:00369E34 AskSubjectForNotes + 0001:0000D80C AssertErrorHandler + 0002:00005024 AssertErrorProc + 0001:00216B90 AssignBoilerText + 0001:00231EF0 AssignBoilerText + 0001:00228DA8 AssignBoilerText + 0001:002B14BC AssignBoilerText + 0001:0029A968 AssignBPText + 0001:0013DA74 AssignFieldIDs + 0001:0013DB4C AssignFieldIDs + 0001:002EF2EC AssignList + 0001:0001B130 AssignLongStr + 0001:0001B8F8 AssignVariant + 0001:0013012C AssignVitals2List + 0002:00007400 ASvc + 0002:00008A84 ATempPath + 0001:0030AFCC ATest + 0001:0030B020 ATestGroup + 0001:0030AD70 AtomicTests + 0001:00340624 AttachDxToOrderList + 0001:0036D16C AttachEntryToParent + 0001:002A70E8 AttachMedicineResult + 0001:0034148C AttachPLTFactorsToDx + 0002:000087EC AType + 0001:0011F3E0 AuthenticateUser + 0001:0011DDBC AuthenticateUser + 0001:00121270 AuthorizedOption + 0001:0029CF74 AuthorizedToVerify + 0001:0029CE98 AuthorizedUser + 0001:0036A118 AuthorSignedDocument + 0002:00000ECC AutoArrange + 0001:00351B1C AutoCheckout + 0002:00000E64 AutoExpandStyles + 0001:00193538 AutomationTerminateProc + 0001:0017F8F8 AutoRDV + 0001:0034D63C AutoSelectVisit + 0001:0036E9E0 AutoUnflagAlertedOrders + 0001:001825C0 AutoUpdateCheck + 0002:0000560C avail + 0002:000073F0 AWardLoc + 0002:00007404 AWardName + 0001:00108340 AxCtrls + 0001:000CFCF8 AxisLabelsSeries + 0001:00009598 BackfillGetDiskFreeSpaceEx + 0001:00098A98 BackgroundClipped + 0001:002D0668 BackupDiffers + 0001:00010344 BackupVarBoolFromStr + 0001:000104C0 BackupVarBStrFromBool + 0001:000103C8 BackupVarBStrFromCy + 0001:00010444 BackupVarBStrFromDate + 0001:000102D0 BackupVarCyFromStr + 0001:0001025C BackupVarDateFromStr + 0001:00010100 BackupVarI4FromStr + 0001:0001008C BackupVariantChangeTypeEx + 0001:00010174 BackupVarR4FromStr + 0001:000101E8 BackupVarR8FromStr + 0002:00009024 BAConsultDxList + 0002:00009028 BAConsultPLFlags + 0002:00008FC8 BACopiedOrderFlags + 0001:00358240 BACopyOrder + 0002:00009030 BADeltedOrders + 0002:00008F4C BADiagnosis + 0002:00008F74 BADiagnosisList + 0001:002D1914 BadTemplateName + 0002:00008E34 BADxCode + 0001:00340134 BADxEntered + 0002:00008EB4 BADxList + 0002:00008388 BADxUpdated + 0002:000087BC BADxUpdated + 0002:00008F94 BAFactorsInRec + 0002:00008F98 BAFactorsRec + 0002:00008FB8 BAFlagsIN + 0002:00008FBC BAFlagsOUT + 0002:0000902C BAFWarningShown + 0002:00009004 BAHoldPrimaryDx + 0001:003416C4 BALoadStsFlagsAsIs + 0002:00008F78 BALocation + 0002:00008FCC BANurseConsultOrders + 0002:00008FAC BAOrderID + 0002:00008F80 BAOrderIDList + 0002:00008F9C BAOrderList + 0002:00008F7C BAPCEDiagList + 0002:0000902D BAPersonalDX + 0002:00008F68 BAPLPt + 0002:00008F6C BAPLRec + 0002:00009008 BAPrimaryDxChanged + 0002:000073D8 BaseFlags + 0001:00103234 BaseFont + 0002:00009020 BASelectedList + 0002:00000444 BaseTypeMap + 0002:0000901C BATFHints + 0002:00008FB4 BAtmpOrderList + 0002:00009018 BAUnSignedOrders + 0001:001AE0D0 BcdAdd + 0001:001ADC00 BcdCompare + 0001:001ADEDC BcdDivide + 0001:001AE05C BcdDivide + 0001:001AAD68 BcdError + 0001:001AACF8 BcdErrorFmt + 0001:001ADE68 BcdMultiply + 0001:001ADD58 BcdMultiply + 0001:001AE5D0 BcdScale + 0001:001ADD14 BcdSubtract + 0001:001AE680 BCDToCurr + 0001:001AB7C0 BcdToDouble + 0001:001AE470 BcdToStr + 0001:0000DEE4 Beep + 0001:00006708 BeginDeferWindowPos + 0001:0001F014 BeginGlobalLoading + 0001:00006710 BeginPaint + 0001:002DC6E4 BeginReminderUpdate + 0001:000035C4 BeginThread + 0001:000314BC BetterSize + 0001:00047324 BevelLine + 0001:00047208 BevelRect + 0001:000ADDEC BiDiDraw + 0002:00008FB0 BILLING_AWARE + 0002:000088A0 bind + 0001:0010DA4C bind + 0001:000063B0 BitBlt + 0002:00000D08 BitBtnCaptions + 0002:00005AD4 BitBtnGlyphs + 0002:00000D34 BitBtnModalResults + 0002:00000CDC BitBtnResNames + 0002:0000091C BitmapCanvasList + 0002:000058B4 BitmapImageLock + 0001:000100D8 BiUnimplemented + 0001:001AC724 BlankArgument + 0001:000ECFB4 BlankStr + 0002:00000638 BlockCode + 0002:000055E4 blockDescBlockList + 0002:000055E8 blockDescFreeList + 0001:0013EFA4 BoilerplateTemplateFieldsOK + 0002:00001988 BOOLCHAR + 0002:00002040 BoolChar + 0002:00003444 BoolChars + 0002:000005E4 BooleanIdents + 0002:00000440 BooleanToStringRule + 0001:00009064 BoolToStr + 0001:00014D70 BoolToWStrViaOS + 0002:00001210 Borders + 0002:00000E1C BorderStyles + 0002:00000EA4 BorderStyles + 0002:00000B50 BorderStyles + 0002:000014C8 BorderStyles + 0002:0000109C BorderStyles + 0001:0016BC94 BorderValue + 0001:00005F04 Bounds + 0001:0001DB4C Bounds + 0001:001716B0 boxcount + 0002:000013E4 Breaks + 0001:00006718 BringWindowToTop + 0001:001858C8 BringWordToFront + 0002:00006E20 BrokerAllConnections + 0002:00006E1C BrokerConnections + 0002:000016C8 BrushColors + 0002:000058EC BrushManager + 0002:00001714 BrushStyles + 0002:000025F8 BtnHintId + 0001:002E03C4 Build + 0001:000E416C Build + 0001:0022CF48 BuildCaseTree + 0001:003438BC BuildConsultDxRec + 0001:0012D3BC BuildConsultsTree + 0001:002AA034 BuildDocumentTree + 0001:000B0FAC BuildImage + 0001:002CDBEC BuildNodes + 0001:002DEFA4 BuildReminderTree + 0001:00378A68 BuildResponses + 0001:00341E0C BuildSaveUnsignedList + 0001:0012C9E0 BuildServiceTree + 0001:0013C8C0 BuildTemplateFields + 0001:003422A8 BuildTFHintRec + 0002:00001968 ButtonAlignment + 0002:00000AF8 ButtonCaptions + 0002:00000D64 ButtonCount + 0002:0000197C ButtonLayout + 0002:00001F04 ButtonMap + 0002:00000ACC ButtonNames + 0002:00001460 Buttons + 0001:0004ED20 Buttons + 0002:00000F8C ButtonStates + 0002:00006DC8 ButtonStatus + 0002:00000E34 ButtonStyles + 0002:00001174 ButtonStyles + 0002:00000F9C ButtonStyles + 0002:00005A8C ButtonWidths + 0002:00001974 ButtonWordWrap + 0001:0013A3B0 ByStatusThenStop + 0001:00030B30 BytesPerScanline + 0001:00030F5C ByteSwapColors + 0001:0000E03C ByteToCharIndex + 0001:0000E000 ByteToCharLen + 0001:0000DF9C ByteType + 0001:0000DEF0 ByteTypeTest + 0002:00005C08 CachedComCtrlVer + 0002:00000E14 cAddMode + 0001:000C9920 Calc3DRect + 0001:000CFBE4 CalcAllSeries + 0001:000C7888 CalcArrowPoint + 0001:000E7DC0 CalcAxis + 0001:000E6DC4 CalcAxis + 0001:000DC648 CalcAxisScale + 0001:000E70D0 CalcAxisState + 0001:000C5354 CalcBrushColor + 0001:00137DE0 CalcCircledRatio + 0001:000CFC6C CalcFirstLastAllSeries + 0001:000E6EB0 CalcFixedAxis + 0001:000DE30C CalcHorizMargin + 0001:000DE294 CalcHorizontalColsRows + 0001:0002C398 CalcJmpOffset + 0001:000D098C CalcLabelsRect + 0001:000E6FF0 CalcMaxCell + 0001:000DDC18 CalcMaxLegendValues + 0001:001B20F8 CalcMaxRefills + 0001:000D2DD4 CalcMinMaxValue + 0001:000D5344 CalcNumPages + 0001:000E9540 CalcPageExtents + 0001:000E8D7C CalcScroll + 0001:000E8220 CalcScrollBar + 0001:000DD444 CalcSeriesAxisRect + 0001:000FDCB8 CalcShortName + 0001:00079B0C CalcSize + 0001:000E9148 CalcSizeInfo + 0001:000A64EC CalcSplitterPos + 0001:000C4E90 CalcTrigValues + 0001:000D1E24 CalculateFunctionMany + 0001:000D1DA0 CalculateMovingFunction + 0001:000DE340 CalcVertMargin + 0001:001344E8 CalcYPosLeftRight + 0001:00125D98 Calendar + 0001:00121200 CallBroker + 0001:00120C28 CallBrokerInContext + 0001:00041E3C CallDefWndProc + 0001:00109FF8 CallEventMethod + 0001:0013C4F4 CallImportExportTemplateFields + 0001:00006720 CallNextHookEx + 0001:0000F368 CallTerminateProcs + 0001:00121540 CallV + 0001:00006728 CallWindowProc + 0001:00159840 CallWndHook + 0001:0036CE44 CanBeAttached + 0001:000963CC CancelDrag + 0001:0036C4E8 CanChangeCosigner + 0001:00369E4C CanCosign + 0001:0018EAD0 CanEditAllRemCoverSheetLists + 0001:002D03C0 CanEditLinkType + 0001:003449FC CanEditPCE + 0001:0037B604 CanEditSuchRenewedOrder + 0001:0013C318 CanEditTemplateFields + 0001:002D02C4 CanEditType + 0001:0037D2F0 CanManualRelease + 0001:0036D07C CanReceiveAttachment + 0001:0036CD3C CanTitleBeIDChild + 0001:001AC6B8 CanUseShort + 0002:000058F0 CanvasList + 0002:00005BD0 CanvasList + 0002:00000AA4 Captions + 0002:000012E0 CaptureControl + 0001:000E4914 CaretPos + 0002:00001384 cBooleanToItemAutoFlag + 0002:000004F0 CBooleanToRelationship + 0002:00001F38 CControlData + 0002:0000232C CControlData + 0001:0012054C CCOWRPCBroker + 0002:00006E2C CCOWToken + 0001:00111D34 CCOW_const + 0002:00001EC4 CC_TV_TEXT + 0001:00005F44 CenterPoint + 0002:00000F50 CenterStyles + 0001:0003FEB8 CenterWindow + 0002:00001F2C CEventDispIDs + 0002:000022E4 CEventDispIDs + 0002:00005AC2 CF_COMPONENT + 0002:00005AC0 CF_PICTURE + 0002:0000581C ChangeAnyProc + 0001:0021D6DC ChangeAttending + 0001:00094320 ChangeBiDiModeAlignment + 0001:0036C5A0 ChangeCosigner + 0001:0037BD38 ChangeEvent + 0001:00009390 ChangeFileExt + 0002:00008FA4 ChangeItemOrderNum + 0001:002A0E2C ChangeOrders + 0002:000090B4 Changes + 0001:00371D8C ChangeVistaWebParam + 0002:00008714 Changing + 0001:00101658 CharAt + 0002:00001128 CharCases + 0002:000010C4 CharCases + 0001:00003730 CharFromWChar + 0001:0000E2B4 CharLength + 0001:00006730 CharLowerBuff + 0001:00000314 CharNext + 0001:00006738 CharNext + 0001:0002E77C CharsetToIdent + 0001:000DEC6C Chart + 0001:0000E178 CharToByteIndex + 0001:0000E1F0 CharToByteLen + 0001:00006740 CharToOemA + 0001:00006748 CharUpperBuff + 0001:0034BE68 Check + 0001:00350E48 CheckActivePerson + 0001:002A54C0 CheckAuthForMeds + 0001:00296D20 CheckAuthForNVAMeds + 0001:000DC9C8 CheckBackground + 0001:00183860 CheckBoilerplate4Fields + 0001:0018374C CheckBoilerplate4Fields + 0001:00031BB8 CheckBool + 0002:00001920 CheckBoxImageResNames + 0001:0005DC08 CheckCommonControl + 0001:001B24AC CheckExistingPI + 0001:001B6DAC CheckForDuplicateProblem + 0001:001B2A08 CheckFormularyDose + 0001:001B27DC CheckFormularyOI + 0001:0018E470 CheckGECValue + 0001:00371BB0 CheckHL7TCPLink + 0001:002E0F20 CheckItem + 0001:000C8790 CheckJapaneseFontSize + 0001:00002B74 CheckJmp + 0001:00192878 CheckLateTray + 0001:000D855C CheckLst + 0001:00006750 CheckMenuItem + 0001:000DCCC8 CheckMouseSeries + 0001:00376208 CheckOrderGroup + 0001:00133EB0 CheckPointInLine + 0001:00376298 CheckQOGroup + 0001:0016A638 CheckRef + 0001:002DCD24 CheckReminders + 0002:000013D4 Checks + 0001:00370934 CheckSensitiveRecordAccess + 0001:001AA894 CheckSqlTimeStamp + 0001:000251B4 CheckSubComponents + 0001:00029CB0 CheckSynchronize + 0001:000B601C CheckTaskWindow + 0001:0013C64C CheckTemplateFields + 0001:000167CC CheckType + 0001:00096050 CheckUndock + 0001:0000DDB8 CheckWin32Version + 0001:000DC8FC CheckZoomPanning + 0001:0030AEA4 ChemTest + 0001:002E0F54 ChildrenChecked + 0001:00006758 ChildWindowFromPoint + 0002:00008578 chkBoxStatus + 0002:000080C4 chkBoxStatus + 0001:0003EB58 ChooseColor + 0001:00111F58 ChooseDiv + 0001:0003EB70 ChooseFont + 0002:00008AAC CIDCOkToSave + 0002:0000045C CInvalidCustomVariantType + 0002:00001F90 CipherPad + 0002:00001388 cItemAutoFlagToBoolean + 0002:00001380 cItemAutoFlagToMenu + 0001:0002C674 Classes + 0001:000F0420 ClassIDToProgID + 0001:0001E8A8 ClassNotFound + 0002:00002488 CLASS_AccessibleListBox + 0002:000024B8 CLASS_AccessibleRichEdit + 0002:00002478 CLASS_AccessibleStringGrid + 0002:00002498 CLASS_AccessibleTreeNode + 0002:000024A8 CLASS_AccessibleTreeView + 0002:00001F1C CLASS_ContextItem + 0002:00001F0C CLASS_ContextItemCollection + 0002:000021A4 CLASS_DOMDocument + 0002:00002668 CLASS_XuDigSigS + 0002:00005818 ClearAnyProc + 0001:002D1824 ClearBackup + 0001:0002DF30 ClearColor + 0001:00297D14 ClearControl + 0001:000D293C ClearDataSources + 0001:000F1194 ClearExcepInfo + 0001:002CACD0 ClearFields + 0001:0018F358 ClearFillerAppList + 0001:00240620 ClearFlag + 0001:000ECCDC ClearItem + 0001:0034772C ClearList + 0001:000F9C18 ClearLong + 0001:00139DEC ClearMedList + 0001:0013EA48 ClearModifiedTemplateFields + 0001:003790C0 ClearOrderRecall + 0001:003763CC ClearOrders + 0001:002DFAAC ClearReminderData + 0001:00342A40 ClearSelectedOrderDiagnoses + 0001:00018E20 ClearVariantTypeList + 0001:000DC760 ClickedAxis + 0001:000DE920 ClickedRow + 0001:00006760 ClientToScreen + 0001:000A2E34 ClientToWindow + 0001:00104FD4 ClientVersion + 0001:000F59C0 ClientWidthOfList + 0002:00008D4C clinDefaults + 0002:00008AC4 ClinDisp + 0002:00008D48 clinDoSave + 0001:001B63C0 ClinicFilterList + 0001:001B641C ClinicSearch + 0001:002BB3A8 ClinRemText + 0002:00002E58 ClinRemTextLocation + 0002:00002E5C ClinRemTextStr + 0002:00008D49 clinSaveToday + 0001:0004A6D0 Clipboard + 0002:00000914 ClipboardFormats + 0001:0004A7E0 Clipbrd + 0001:000C4BDC ClipCanvas + 0001:000D5D0C ClipRegionCreate + 0001:000D5D64 ClipRegionDone + 0001:00006768 CloseClipboard + 0001:000063B8 CloseEnhMetaFile + 0001:000060F8 CloseHandle + 0001:002A07B0 CloseOrdering + 0001:0003B87C ClosePrinter + 0001:0010DA54 closesocket + 0002:000088A4 closesocket + 0002:00005990 CloseThemeData + 0001:0012FA5C CloseVitalsDLL + 0001:0001BF3C CLSIDFromProgID + 0001:0001BF2C CLSIDFromString + 0002:0000098C CLSID_AutoComplete + 0002:00005040 CmdLine + 0002:0000503C CmdShow + 0002:0000137C cMenuAutoFlagToItem + 0002:000004FC CmpTypeMap + 0001:000100EC CmpUnimplemented + 0002:000027FC CmtType + 0002:000027D0 CmtType + 0002:00005DA0 CntDiv + 0002:00001744 CoAddRefServerProcess + 0001:0010C918 CoContextItem.Create + 0001:0010C8B4 CoContextItemCollection.Create + 0001:0001BF1C CoCreateInstance + 0002:0000173C CoCreateInstanceEx + 0001:002E1A70 Code2DataType + 0001:002E1ADC Code2PromptType + 0001:002DC24C Code2VitalType + 0002:00000F20 Codes + 0002:00000E94 Codes + 0001:00344B8C CodeSetIndex + 0001:0001BF0C CoDisconnectObject + 0001:0013AC40 CoDOMDocument.Create + 0001:0001BEF4 CoGetClassObject + 0002:00005B58 CoInitExProcLoaded + 0002:00001754 CoInitFlags + 0001:0001BEE4 CoInitialize + 0002:00001740 CoInitializeEx + 0002:00005B54 CoInitializeExProc + 0001:0001F31C CollectionsEqual + 0001:0001BF14 CoLockObjectExternal + 0002:00000FDC ColorIndex + 0002:000015A4 ColorPalette + 0002:00000694 Colors + 0002:000016D0 Colors + 0001:0002E514 ColorToIdent + 0002:00000B64 ColorToPretyName + 0001:0002E4B8 ColorToRGB + 0002:00000EF4 ColumnClicks + 0001:0017E6E0 ColumnHeaders + 0002:000084F8 ColumnSortForward + 0002:00007070 ColumnSortForward + 0002:00008BF0 ColumnSortForward + 0002:000084F4 ColumnToSort + 0002:00008BEC ColumnToSort + 0002:0000706C ColumnToSort + 0001:000063C0 CombineRgn + 0002:00001014 ComboBoxExStyles + 0002:00001960 ComboBoxImages + 0002:00001114 ComboBoxStyles + 0002:00001020 ComboExStyles + 0002:00003218 ComboPromptTags + 0001:000F1370 ComClassManager + 0002:00005C90 ComClassManagerVar + 0001:000EDB4C ComConst + 0002:00005904 ComCtl32DLL + 0002:00005B2C ComCtlVersion + 0001:0007FB0C ComCtrls + 0002:00005C1C CommandPool + 0001:00039DAC CommCtrl + 0001:0003EBB0 CommDlg + 0001:000007C0 Commit + 0002:00005628 committedRoot + 0002:00000F68 CommonAVIId + 0001:003790FC CommonLocationForOrders + 0001:000F1498 ComObj + 0001:00191878 COMObjectActive + 0001:00191804 COMObjectOK + 0002:00002FA4 COMObjIdx + 0001:001AD914 CompactBcd + 0001:001AB9F4 CompareDigits + 0001:000E45AC CompareExtents + 0001:000AC1B8 CompareFront + 0001:00008334 CompareMem + 0001:001AD640 CompareNormalizedFractions + 0001:0035907C CompareOrderDx + 0001:001024A8 ComparePieces + 0001:00138C34 CompareSliceAngle + 0001:00008304 CompareStr + 0001:00006100 CompareString + 0001:00008354 CompareText + 0001:000D10A8 CompareValueIndex + 0001:0017C00C CompareValues + 0001:001051C8 CompareVersion + 0001:00008F68 CompareWith + 0001:00343060 CompleteConsultOrderRec + 0001:0037D8D8 CompleteEvt + 0001:0037AF68 CompleteOrder + 0001:00341F60 CompleteUnsignedBillingInfo + 0001:000252C4 ComponentCreated + 0001:000318B4 ComputeAldusChecksum + 0002:00007144 ComServer + 0001:00049E68 ComStrs + 0001:0010DA5C connect + 0002:000088A8 connect + 0001:001212B4 ConnectToServer + 0001:0002CA88 Consts + 0001:002A816C ConsultCanBeResubmitted + 0001:002A8034 ConsultMessage + 0002:00008F90 ConsultOrderRec + 0002:00008790 consultQuickOrder + 0002:00006E88 ConsultRec + 0001:002A7254 ConsultServiceUser + 0002:00002FD8 ConsultsTemplate + 0001:0010168C ContainsAlpha + 0001:001016DC ContainsVisibleChar + 0001:002AAE54 ContextMatch + 0002:00007330 ContinueWithOrder + 0001:00038BF4 Contnrs + 0002:000087D8 Contract + 0002:00005B8E ControlAtom + 0002:00005B94 ControlAtomString + 0001:000BC6C8 ControlHasHelp + 0001:000A73AC Controls + 0002:00001FF8 ConversionFormatList + 0002:00000DAC ConversionFormatList + 0001:0013C748 Convert2LMText + 0001:0000D100 ConvertAddr + 0001:0013F314 ConvertCodes2Text + 0001:0000B428 ConvertEraString + 0001:00008118 ConvertError + 0001:00008138 ConvertErrorFmt + 0001:002D0528 ConvertFileLink + 0001:00071C50 ConvertFlags + 0001:0013048C ConvertHeight2Inches + 0001:00071A70 ConvertMask + 0001:003439F8 ConvertPIMTreatmentFactors + 0001:00101724 ConvertSpecialStrings + 0001:00071C94 ConvertStates + 0001:0012FCFC ConvertVital + 0001:001307F4 ConvertVitalData + 0001:0000B5AC ConvertYearString + 0001:001F0C88 CopyActiveOrdersToEvent + 0001:00004A98 CopyArray + 0001:00034CA4 CopyBitmap + 0001:0003538C CopyBitmapAsMask + 0002:000080E0 CopyBuffer + 0002:00008594 CopyBuffer + 0001:00041970 CopyData + 0001:0035874C CopyDxRecord + 0001:000063C8 CopyEnhMetaFile + 0001:0004DCC0 CopyImage + 0001:0004EA6C CopyImage + 0001:00006D58 CopyMemory + 0002:0000858C copyOrderID + 0002:000080D8 copyOrderID + 0001:002A1170 CopyOrders + 0001:00035314 CopyPalette + 0002:00001038 Copyright + 0001:0035819C CopyTFCIToTargetOrder + 0001:000AFD1C CopyToBest + 0001:003583B4 CopyTreatmentFactorsDxsToCopiedOrder + 0001:003584D0 CopyTreatmentFactorsDxsToRenewedOrder + 0001:0001BEFC CoRegisterClassObject + 0002:00001748 CoReleaseServerProcess + 0002:0000174C CoResumeClassObjects + 0001:0001BF04 CoRevokeClassObject + 0001:0036A1C4 CosignDocument + 0002:00001750 CoSuspendClassObjects + 0001:0001BF44 CoTaskMemAlloc + 0001:0001BF4C CoTaskMemFree + 0001:0001BEEC CoUninitialize + 0001:0000E0C0 CountChars + 0001:001831E4 CountDlgProps + 0002:000058CC CounterLock + 0001:000EC9B8 CountItem + 0001:00358E94 CountSelectedOrders + 0002:000030FC CoverSheetRemindersInBackground + 0001:001BEE24 CoXuDigSigS.Create + 0001:00380548 CPRSChart + 0001:0018F9B4 CPRSChart_TLB + 0002:00000460 CRangeToType + 0002:00001A74 CRC32_TABLE + 0001:00101810 CRCForFile + 0001:001018C0 CRCForStrings + 0001:00245D00 CreateAllergyBox + 0001:0000D744 CreateAssertException + 0001:0000D940 CreateAVObject + 0001:000063D0 CreateBitmap + 0001:000063D8 CreateBrushIndirect + 0001:001DA178 CreateCB + 0001:000F051C CreateComObject + 0001:000063E0 CreateCompatibleBitmap + 0001:000063E8 CreateCompatibleDC + 0001:00025358 CreateComponent + 0001:000063F0 CreateDC + 0001:000C8914 CreateDefaultFont + 0001:00006400 CreateDIBitmap + 0001:000063F8 CreateDIBSection + 0001:00006408 CreateEnhMetaFile + 0001:0001BFB4 CreateErrorInfo + 0001:00006108 CreateEvent + 0001:00006110 CreateFile + 0001:00006410 CreateFont + 0001:00006418 CreateFontIndirect + 0001:00006420 CreateHalftonePalette + 0001:00006428 CreateIC + 0001:00006770 CreateIcon + 0001:0000D630 CreateInOutError + 0001:0022C6A4 CreateListItemsForCaseTree + 0001:0012CBF0 CreateListItemsForConsultTree + 0001:002A967C CreateListItemsForDocumentTree + 0001:00006778 CreateMenu + 0001:00042D60 CreateMessageDialog + 0001:000F06D0 CreateOleObject + 0001:0029CC14 CreateOrderDialog + 0001:00006430 CreatePalette + 0001:00180788 CreatePatientHeader + 0001:00006438 CreatePen + 0001:00006440 CreatePenIndirect + 0001:00006448 CreatePolygonRgn + 0001:00006780 CreatePopupMenu + 0001:00006118 CreateProcess + 0001:00006450 CreateRectRgn + 0001:000F0458 CreateRegKey + 0001:000F055C CreateRemoteComObject + 0001:00181890 CreateReportBox + 0001:001CDDF4 CreateReportBox + 0001:00075734 CreateResStream + 0001:00006458 CreateSolidBrush + 0002:00005CA4 CreateStdAccessibleObject + 0001:0001BF6C CreateStreamOnHGlobal + 0001:00030FB4 CreateSystemPalette + 0001:00006120 CreateThread + 0001:0000031C CreateThread + 0001:00006F84 CreateWindow + 0001:00006F20 CreateWindowEx + 0002:000009A0 CreationControl + 0002:00001220 CreationControl + 0002:000005D0 CRelationshipToBoolean + 0002:00000424 CResult + 0001:002DC190 CRLFText + 0002:00008888 crypto + 0002:000085A0 crypto + 0002:00008A98 crypto + 0002:000080B8 crypto + 0002:00002380 CServerData + 0002:000023BC CServerData + 0002:000011E0 CSHREDRAW + 0002:00000144 cSimpleBoolStrs + 0002:00008AD0 CsltDisp + 0002:00000578 CText + 0002:00000984 Ctl3DStyles + 0002:0000116C Ctl3DStyles + 0002:0000131C Ctl3DStyles + 0001:000E48D0 Ctrl + 0002:00008E90 ctxContextor + 0001:0030B27C Cumulative + 0002:00005620 curAlloc + 0001:000174DC CurrCompare + 0002:00005690 CurrencyDecimals + 0002:0000568C CurrencyFormat + 0002:00005688 CurrencyString + 0001:00191D84 CurrentDietText + 0001:00192010 CurrentIsolation + 0001:00370A4C CurrentLocationForPatient + 0002:000085A4 currentlySelectedItem + 0002:00008F30 currentOrderIDList + 0001:002BB480 CurrentReminderInDialog + 0001:0000B284 CurrentYear + 0002:00002020 CURRENT_RPC_VERSION + 0002:00002034 CURRENT_RPC_VERSION + 0002:000083C4 CurrNotifIEN + 0001:00016DD8 CurrOp + 0001:001AE5F4 CurrToBCD + 0001:0000A918 CurrToStr + 0001:00014D00 CurrToWStrViaOS + 0002:00001504 CursorMap + 0002:00001230 Cursors + 0001:0009469C CursorToIdent + 0002:000014F4 cUseAlpha + 0002:000014FC cUseColorKey + 0002:00000FD0 CustomizeStyles + 0001:001E9334 CutoffOutptPrompts + 0002:00008FF8 CV + 0002:0000031C CVarTypeToElementInfo + 0001:00008BD4 CvtInt + 0001:00008C40 CvtInt64 + 0002:00000184 CWNear + 0002:0000255C CWNear + 0001:000C7134 Dark + 0001:000C5A44 Dark + 0001:000C6A14 Dark + 0001:000C6378 Dark + 0002:0000159C DarkColorQuantity + 0002:00001598 DarkerColorQuantity + 0002:000011E8 Data + 0001:001AFF50 DataBkr + 0002:000026D0 DataCode + 0001:0037DEF0 DataForOrderCheck + 0001:00350A68 DataHasCPTCodes + 0002:000026E0 DataName + 0001:0004EF5C DataTypeToRegData + 0001:0000B090 Date + 0001:000174B4 DateCompare + 0001:0031E264 DateLimits + 0001:00370B34 DateOfDeath + 0001:00016910 DateOp + 0002:000083E8 DateRange + 0002:00005691 DateSeparator + 0001:001B58C0 DateStringOK + 0001:000C869C DateTimeDefaultFormat + 0002:000015F8 DateTimeStep + 0001:00100AAC DateTimeToFMDateTime + 0001:001AA788 DateTimeToSQLTimeStamp + 0001:0000BF58 DateTimeToStr + 0001:0000BECC DateTimeToString + 0001:0000AF74 DateTimeToSystemTime + 0001:0000AADC DateTimeToTimeStamp + 0001:0000BF38 DateToStr + 0001:00014D38 DateToWStrViaOS + 0001:0014D374 DateUtils + 0001:0014D190 DayOfTheWeek + 0001:0000B060 DayOfWeek + 0001:0014D1C0 DaysBetween + 0001:0014D144 DaysInAMonth + 0002:00002050 DaysInMonth + 0002:00002080 DaysInMonth + 0001:0014D278 DaySpan + 0001:00128738 DaysPerMonth + 0001:001B1F8C DaysToQty + 0001:001AEC6C DB + 0002:000071D4 DBApplication + 0001:001B00C0 DBClient + 0002:00002620 DbClientHandle + 0001:001AFE40 DBCommon + 0001:001A982C DBConsts + 0001:001AFD9C DBCtrls + 0001:001AF4C0 DBLogDlg + 0001:001AFA9C DBPWDlg + 0002:000071D0 DBScreen + 0002:00000180 DCon10 + 0001:0037ABF4 DCOrder + 0002:00000690 DDBsOnly + 0001:001B154C DEACheckFailed + 0001:001B1604 DEACheckFailedForIVOnOutPatient + 0001:000B6170 DeallocateHWnd + 0001:0002C58C DeallocateHWnd + 0002:00008AA4 DEASig + 0002:00006E18 DebugData + 0002:0000002C DebugHook + 0001:0031AE3C DebugListItems + 0001:0031B13C DebugShowServer + 0002:0000568F DecimalSeparator + 0001:00018690 DecIndices + 0001:000CA404 DecMonths + 0001:0000AF44 DecodeDate + 0001:0000ADC8 DecodeDateFully + 0001:0000ABE4 DecodeTime + 0001:00000854 Decommit + 0001:00000E70 DecommitFree + 0002:000055FC decommittedRoot + 0001:000C0840 Default + 0001:000B9970 Default + 0002:00000024 Default8087CW + 0002:00001724 DefaultBlank + 0001:00369FAC DefaultCosigner + 0001:001B204C DefaultDays + 0002:00001224 DefaultDockTreeClass + 0001:0006FE24 DefaultListViewSort + 0001:00351F6C DefaultProvider + 0002:000087A0 Defaults + 0002:00008710 Defaults + 0002:0000836C Defaults + 0002:00008284 Defaults + 0001:00063EB0 DefaultTreeViewSort + 0002:000055C0 DefaultUserCodePage + 0002:00002024 DEFAULT_PULSE + 0002:000008E4 DefBrushData + 0001:000067A0 DeferWindowPos + 0002:00000664 DefFontData + 0001:00006788 DefFrameProc + 0002:00000210 DefLongDayNames + 0002:000001C4 DefLongMonthNames + 0001:00006790 DefMDIChildProc + 0002:000008C4 DefPenData + 0002:000001F4 DefShortDayNames + 0002:00000194 DefShortMonthNames + 0001:00006798 DefWindowProc + 0001:00004E04 DelayLoadResourceModule + 0002:00008E1C delDxLst + 0001:0036EA7C DeleteAlert + 0001:0036EAF4 DeleteAlertForUser + 0001:00000510 DeleteBlock + 0001:0037DE5C DeleteCheckedOrder + 0001:00006128 DeleteCriticalSection + 0001:00000480 DeleteCriticalSection + 0002:00002FEC Deleted + 0001:00006460 DeleteDC + 0001:00343BE4 DeleteDCOrdersFromCopiedList + 0001:0036B0A8 DeleteDocument + 0002:00008F14 deleteDX + 0001:0037D760 DeleteEmptyEvt + 0001:00006468 DeleteEnhMetaFile + 0001:00000CB8 DeleteFree + 0001:000067A8 DeleteMenu + 0001:00006470 DeleteObject + 0001:0034CA0C DeletePCE + 0001:0037BDC8 DeletePtEvent + 0001:0010D7C4 DeleteRegData + 0001:000F04F8 DeleteRegKey + 0001:0008BD44 DeleteSelectedText + 0001:0013C4B8 DeleteTemplateField + 0001:0013B954 DeleteTemplates + 0001:00102A24 DelimCount + 0001:002A768C DenyConsult + 0001:000D0490 DepthAxisLabels + 0001:00034744 DeselectBitmap + 0001:0029E110 DeselectChild + 0001:000067B0 DestroyCursor + 0001:000067B8 DestroyIcon + 0001:002A1830 DestroyingOrderAction + 0001:002A184C DestroyingOrderDialog + 0001:002A1868 DestroyingOrderHTML + 0001:002A1884 DestroyingOrderMenu + 0001:002A18A0 DestroyingOrderSet + 0001:0004EBA4 DestroyLocals + 0001:000067C0 DestroyMenu + 0001:000F6674 DestroyORCBBitmaps + 0001:000067C8 DestroyWindow + 0001:0036D268 DetachEntryFromParent + 0001:002EE524 DetailAllergy + 0001:002EE424 DetailGeneric + 0001:002EE68C DetailMed + 0001:00139E44 DetailMedLM + 0001:00375978 DetailOrder + 0001:002EE58C DetailPosting + 0001:00367A7C DetailPrimaryCare + 0001:002EE4BC DetailProblem + 0001:0018D894 DetailReminder + 0001:000EC464 Detector + 0002:00000A58 Devices + 0001:002A64E4 DfltClinProcTitle + 0001:002A64FC DfltClinProcTitleName + 0001:002A6158 DfltConsultTitle + 0001:002A6170 DfltConsultTitleName + 0001:0036DC44 DfltDateRangeClinic + 0001:0021B88C DfltDCSummTitle + 0001:0021B8A4 DfltDCSummTitleName + 0001:00369508 DfltNoteTitle + 0001:00369520 DfltNoteTitleName + 0001:0036EF20 DfltPtList + 0001:0036EFC4 DfltPtListSrc + 0001:0036A004 DfltTIULocation + 0001:003782F4 DGroupAll + 0001:00378394 DGroupIEN + 0001:00358D30 DiagnosesMatch + 0001:00091818 DialogEnumerationTester + 0001:00379CD0 DialogForOrder + 0001:00153FF0 DialogGraphProfiles + 0001:00150258 DialogGraphSettings + 0001:0003FF80 DialogHook + 0002:00002F5C DialogImageXRef + 0001:0032EAC4 DialogOptions + 0002:00000A04 DialogOptions + 0001:003267F0 DialogOptionsCombinations + 0001:0031F008 DialogOptionsDays + 0001:0031BD8C DialogOptionsDiagnoses + 0001:00153D94 DialogOptionsGraphProfiles + 0001:0014FFC4 DialogOptionsGraphSettings + 0001:0032A7F8 DialogOptionsHSCustom + 0001:0032C990 DialogOptionsHSDefault + 0001:00323A38 DialogOptionsLists + 0001:003231C8 DialogOptionsNewList + 0001:003287FC DialogOptionsNotes + 0001:00327888 DialogOptionsOther + 0001:00322018 DialogOptionsPatientSelection + 0001:003203A4 DialogOptionsReminders + 0001:00320F9C DialogOptionsSurrogate + 0001:00325734 DialogOptionsTeams + 0001:003293E0 DialogOptionsTitles + 0001:00043A28 Dialogs + 0002:00000920 DIBPalSizes + 0001:00191914 DietAttributes + 0001:00192108 DietDialogType + 0001:000C9E94 Dif + 0002:00000098 dig + 0001:001DCFEC DigitalSign + 0002:00000F0C Directions + 0001:0017F6A8 DirectQuery + 0001:0012DC78 DisableCheck + 0001:001591F8 DisableGhosting + 0001:00257360 DisableReason + 0001:001D2020 DisableReason + 0001:000B5E08 DisableTaskWindows + 0001:002A7728 DiscontinueConsult + 0001:000F0ABC DispatchInvoke + 0001:000F1170 DispatchInvokeError + 0001:000067D0 DispatchMessage + 0001:000BDCD0 DispatchShortCut + 0001:000F11B0 DispCall + 0001:000F1294 DispCallByID + 0002:00005000 DispCallByIDProc + 0001:000F1078 DispCallError + 0001:002A5560 DispenseMessage + 0001:0001BF94 DispGetIDsOfNames + 0002:00001EF0 DispIDArgs + 0002:0000878C displayDXCode + 0001:002D06C0 DisplayErrors + 0001:001D5DBC DisplayEvntDialog + 0001:001EC4C0 DisplayEvntDialog + 0001:001ED78C DisplayEvntDialog + 0001:002A3330 DisplayGroupByName + 0001:002A33AC DisplayGroupForDialog + 0001:002D38B8 DisplayGroupToLinkType + 0001:001F2334 DisplayOrdersForAction + 0001:001CE03C DisplayPrerequisites + 0001:0031E84C DisplayPtInfo + 0001:002A68D4 DisplayResults + 0001:00375F54 DispOrdersForEvent + 0001:001D584C DispOrdersForEventChange + 0001:000EBE78 DisposeStrItem + 0002:00001EE0 DispParams + 0002:00005DA4 DivArray + 0001:000080FC DivMod + 0002:00005D9C DivSel + 0001:00379204 DlgIENForName + 0002:00008738 dlgProbs + 0001:0003EBE8 Dlgs + 0001:002CFA18 DlgText + 0002:00002104 DLLForceClose + 0002:00008C10 dmodShared + 0001:0009C1DC DoAlign + 0001:000BF758 DoAlign + 0001:000E6BE8 DoCalc + 0001:000A1740 DoCalcConstraints + 0001:000E6C80 DoCalcRightToLeft + 0001:000CED4C DoCalculation + 0001:000E75A4 DoChange + 0002:00005BC4 DockSiteList + 0001:000B0C20 DoClick + 0001:000E5B20 DoColWidths + 0001:0009DEE0 DoControlMsg + 0001:0010C580 DoCreate + 0001:00144B18 DoCreate + 0001:0003B884 DocumentProperties + 0001:000D030C DoCustomLabels + 0001:000D0178 DoDefaultLabels + 0001:000D006C DoDefaultLogLabels + 0001:000B5D98 DoDisableWindow + 0001:00095874 DoDragOver + 0001:0037C9EC DoesOIPIInSigForQO + 0001:00008198 DoExitProc + 0001:000A3FF8 DoFindControlZone + 0001:000B5F14 DoFindWindow + 0001:000A4810 DoFindZone + 0001:000A409C DoForEach + 0001:000A6084 DoGetNextLimit + 0001:00142100 DoLabel + 0002:00006E30 Domain + 0001:000B5D5C DoneApplication + 0001:000A70C0 DoneControls + 0001:0000DCB4 DoneExceptions + 0001:000BBA74 DoNestedActivation + 0001:00029C30 DoneThreadSynchronization + 0001:000D02CC DoNotCustomLabels + 0001:0009BD8C DoPosition + 0001:000BF554 DoPosition + 0001:000A53B8 DoPrune + 0001:000463C8 DoRect + 0001:000E5B70 DoRowHeights + 0001:000A5A60 DoSaveZone + 0001:000A5C9C DoSetNewBounds + 0001:000E53B0 DoSizeAdjust + 0001:001832F8 DoTemplateDialog + 0001:00133618 DoTriangle3D + 0002:000005EC DotSep + 0001:00121700 DottedIPStr + 0001:000E90AC DoUpdate + 0002:00000FA8 DownMessage + 0002:00000D68 DownStyles + 0001:00021548 DoWrite + 0001:00032EB4 DoWrite + 0001:000AA73C DoWrite + 0001:00031E60 DoWrite + 0001:0009D230 DoWriteDesignSize + 0001:0002C05C DoWriteHeight + 0001:0002BFE4 DoWriteHorizontalOffset + 0001:0009A160 DoWriteIsControl + 0001:0002C020 DoWriteVerticalOffset + 0001:0002BFB4 DoWriteWidth + 0002:00005BA8 DragCapture + 0002:00005B9C DragControl + 0001:000960D0 DragDone + 0001:00095808 DragFindTarget + 0001:000957C4 DragFindWindow + 0002:00005BC0 DragImageList + 0001:00095CC4 DragInit + 0001:00095E6C DragInitControl + 0002:00005BA4 DragInternalObject + 0001:000956E4 DragMessage + 0002:00005BA0 DragObject + 0002:00005BCC DragSave + 0002:00005BB4 DragSaveCursor + 0002:00005BAC DragStartPos + 0002:00000E4C DragStyles + 0002:00005BB8 DragThreshold + 0001:00095994 DragTo + 0001:000C63D0 Draw3DPie + 0001:000D6288 DrawAllAxis + 0001:000D5DD8 DrawAllSeriesValue + 0001:000C087C DrawAppIcon + 0001:000CF334 DrawAxisLine + 0001:000E6010 DrawAxisLines + 0001:000D03F0 DrawAxisTitle + 0001:000E62E0 DrawCells + 0001:000A4E84 DrawCloseButton + 0001:00133560 DrawCross + 0001:00133484 DrawDiagonalCross + 0001:000067D8 DrawEdge + 0001:000067E0 DrawFocusRect + 0001:000067E8 DrawFrameControl + 0001:000A4EDC DrawGrabberLine + 0001:000CEEE4 DrawGridLine + 0001:000CF0E0 DrawGrids + 0001:000067F0 DrawIcon + 0001:000067F8 DrawIconEx + 0002:00001358 DrawingStyles + 0001:000DE0F0 DrawLegendBackground + 0001:000DDE60 DrawLegendItem + 0001:000D14E4 DrawLine + 0001:0013433C DrawLine + 0001:000E6248 DrawLines + 0001:000D5E8C DrawMarksSeries + 0001:000D154C DrawMarkText + 0001:00006800 DrawMenuBar + 0001:000B2600 DrawMenuItem + 0001:001347E0 DrawPoint + 0001:000D5EC8 DrawSeries + 0001:00006808 DrawText + 0002:00005994 DrawThemeBackground + 0002:000059B8 DrawThemeEdge + 0002:000059BC DrawThemeIcon + 0002:00005A40 DrawThemeParentBackground + 0002:00005998 DrawThemeText + 0001:000CF988 DrawThisLabel + 0001:000CF8BC DrawTicksGrid + 0001:000DBFE0 DrawTitleFoot + 0001:000DB610 DrawTitleLine + 0001:002CF174 dShared + 0001:001AFED0 DSIntf + 0001:00030988 DupBits + 0002:00008D6C DupDFN + 0002:00008AA8 DupORIFN + 0002:00008FD0 Dx1 + 0002:00008FD4 Dx2 + 0002:00008FD8 Dx3 + 0002:00008FDC Dx4 + 0002:00008E0C DxList + 0002:00008568 DxRect + 0001:0001863C DynArrayBounds + 0001:00004AB0 DynArrayClear + 0001:000185B4 DynArrayDim + 0001:00018598 DynArrayElTypeInfo + 0001:00018AEC DynArrayFromVariant + 0001:00018558 DynArrayIndex + 0001:00004AB8 DynArraySetLength + 0001:000185CC DynArraySize + 0001:0001879C DynArrayToVariant + 0001:000186FC DynArrayVariantBounds + 0001:00018754 DynArrayVarType + 0002:00008FFC EC + 0002:00008E10 ECFDiagnoses + 0002:00008F50 ECFDiagnosis + 0002:00001444 EdgeStyle + 0002:0000130C EdgeStyles + 0002:0000115C EdgeStyles + 0001:00246510 EditComment + 0001:001E52B8 EditCommonList + 0001:001FF998 EditCoverSheetReminderList + 0001:001884F8 EditDialogFields + 0002:0000847C EditLines + 0001:001B6564 EditLoad + 0001:0021AE80 EditPCEData + 0001:001FCBA8 EditResubmitConsult + 0001:001FA6E8 EditResubmitProcedure + 0001:001B6614 EditSave + 0002:00000E3C EditStyles + 0002:00000EAC EditStyles + 0001:002C3A38 EditTemplates + 0001:0018D9A4 EducationTopicDetail + 0002:00003154 EducationTopics + 0001:0000D5F4 EHeapException.FreeInstance + 0001:00285264 EIdSocketError.CreateError + 0001:00285508 EIdWS2StubError.Build + 0002:00003170 ElementChecked + 0001:003503A4 EligbleConditions + 0001:00006478 Ellipse + 0002:000010E0 Empty + 0002:00000E7C Empty + 0002:00001FFC Empty + 0001:00006810 EmptyClipboard + 0001:00017340 EmptyCompare + 0001:00016D40 EmptyOp + 0002:00005D3C EmptyParam + 0002:00005804 EmptyParam + 0002:000000C8 EmptyStr + 0002:000000CC EmptyWideStr + 0001:000FFA4C EnableCtrl + 0001:001BAAB0 EnableErrorComments + 0001:00006818 EnableMenuItem + 0001:001D1FA4 EnableReason + 0001:002572E4 EnableReason + 0002:000013DC Enables + 0001:00006820 EnableScrollBar + 0001:000B5EC0 EnableTaskWindows + 0002:00005A28 EnableThemeDialogTexture + 0002:00005A44 EnableTheming + 0001:00006828 EnableWindow + 0001:0000AD8C EncodeDate + 0001:0000ABA0 EncodeTime + 0002:00003420 Encounter + 0001:002513D4 EncounterPresent + 0001:0029D050 EncounterPresent + 0001:0029D2BC EncounterPresentEDO + 0001:0010D4A4 Encrypt + 0001:00006830 EndDeferWindowPos + 0001:00006480 EndDoc + 0001:0001F0C4 EndGlobalLoading + 0001:00006488 EndPage + 0001:00006838 EndPaint + 0001:002DC794 EndReminderUpdate + 0001:00003608 EndThread + 0002:0000331C enhanceskip + 0001:00120554 EnsureBroker + 0001:0018FF80 EnsureEventHookObjects + 0001:0013F154 EnsureText + 0001:002094A4 EnterClinProcFields + 0001:00006130 EnterCriticalSection + 0001:00000470 EnterCriticalSection + 0001:002420EC EnterEditAllergy + 0001:00241FA8 EnterNKAForPatient + 0001:00006138 EnumCalendarInfoA + 0001:00006840 EnumClipboardFormats + 0002:00005928 EnumDisplayMonitors + 0001:0000CCC0 EnumEraNames + 0001:0000CD0C EnumEraYearOffsets + 0001:000052B8 EnumModules + 0001:000052B0 EnumModules + 0001:000BA080 EnumMonitorsProc + 0001:0003B88C EnumPrinters + 0001:00006848 EnumThreadWindows + 0001:00024944 EnumValue + 0001:00006850 EnumWindows + 0001:000F0230 EOleException.Create + 0001:000F0154 EOleSysError.Create + 0001:00006858 EqualRect + 0002:00005758 EraNames + 0001:0000C2A8 EraToYear + 0002:00005774 EraYearOffsets + 0002:00000070 errCaption + 0001:002CE348 ErrCount + 0001:0000197C Error + 0001:0001E378 Error + 0001:000ABEC0 Error + 0001:00023F74 Error + 0002:00000004 ErrorAddr + 0001:00001930 ErrorAt + 0001:0000D6D4 ErrorHandler + 0002:0000022C ErrorMap + 0002:00005008 ErrorProc + 0002:000053E8 ErrOutput + 0001:002DE038 EvalProcessed + 0001:002DDE08 EvalReminder + 0001:002DE1D0 EvaluateCategoryClicked + 0002:00003144 EvaluatedReminders + 0001:0018D6AC EvaluateReminder + 0001:0018D554 EvaluateReminders + 0002:00002E30 EventDefaultOD + 0001:0037E45C EventExist + 0001:00375FF4 EventInfo + 0001:0037606C EventInfo1 + 0001:000018D0 ExceptAddr + 0002:0000500C ExceptClsProc + 0001:0000DC04 ExceptHandler + 0001:0000D3DC Exception.Create + 0001:0000D424 Exception.CreateFmt + 0001:0000D5A0 Exception.CreateHelp + 0001:0000D4B4 Exception.CreateRes + 0001:0000D4FC Exception.CreateResFmt + 0002:0000501C ExceptionClass + 0001:0000D110 ExceptionErrorMessage + 0002:00000264 ExceptMap + 0001:000018B0 ExceptObject + 0002:00005010 ExceptObjProc + 0002:00005004 ExceptProc + 0001:00006490 ExcludeClipRect + 0001:0033678C ExcuteEC + 0001:003369C8 ExcuteECS + 0001:00149D5C ExecuteAdhoc1 + 0001:001D7CA8 ExecuteAlertOrders + 0001:001D5F98 ExecuteChangeEvt + 0001:00297294 ExecuteChangeRenewedOrder + 0001:001E3BDC ExecuteCompleteOrders + 0001:001A45B4 ExecuteComplexDose + 0001:001E6140 ExecuteDateRange + 0001:001D4DDC ExecuteDCOrders + 0001:0021E318 ExecuteDCSummProperties + 0001:001D81BC ExecuteFlagOrder + 0001:001485C8 ExecuteForm2 + 0001:001D74C0 ExecuteHoldOrders + 0001:0031B710 ExecuteLabInfo + 0001:001C4890 ExecuteNoteProperties + 0001:001E1CC0 ExecuteOnChartOrders + 0001:00379C70 ExecutePrintOrders + 0001:001F31F4 ExecuteRefillOrders + 0001:001E8100 ExecuteReleaseEventOrders + 0001:001EB41C ExecuteReleaseOrderChecks + 0001:001E0F14 ExecuteReleaseOrders + 0001:001E4DE8 ExecuteRename + 0001:001E6DA0 ExecuteRenewOrders + 0001:001E6760 ExecuteRenewOutMed + 0001:001EB544 ExecuteSessionOrderChecks + 0001:001DD08C ExecuteSignOrders + 0001:002D3A80 ExecuteTemplateOrBoilerPlate + 0001:002D394C ExecuteTemplateOrBoilerPlate + 0001:001D86C4 ExecuteUnflagOrder + 0001:001D78A8 ExecuteUnholdOrders + 0001:001E41B0 ExecuteVerifyOrders + 0001:001E49BC ExecuteWardComments + 0001:0011DDB4 ExistingSocket + 0002:00000000 ExitCode + 0001:000033C0 ExitDll + 0002:00005048 ExitProc + 0001:0000032C ExitProcess + 0002:00005028 ExitProcessProc + 0002:00000140 ExitProcList + 0001:00000324 ExitThread + 0001:000EC054 ExpandDir + 0001:00191E28 ExpandedQuantity + 0001:002D755C ExpandEmbeddedFields + 0001:00009514 ExpandFileName + 0001:0018F4D0 ExpandOrderObjects + 0001:002D0038 ExpandTemplate + 0001:002E0790 ExpandTIUObjects + 0001:00375ED4 ExpiredOrdersStartDT + 0001:0004033C ExplorerHook + 0002:00003054 ExportPieces + 0001:0013C624 ExportTemplateFields + 0001:0004FA0C ExtActns + 0001:00006498 ExtCreatePen + 0001:00049D58 ExtCtrls + 0001:0004ED78 ExtDlgs + 0002:000011C0 ExtendSelects + 0002:000016D8 Extensions + 0001:0036DDE0 ExternalName + 0001:002EE750 ExtractActiveMeds + 0001:00101D14 ExtractDefault + 0001:000094B4 ExtractFileExt + 0001:00040B44 ExtractFileName + 0001:00009470 ExtractFileName + 0001:00040B9C ExtractFileNames + 0001:00009430 ExtractFilePath + 0001:00101C3C ExtractFloat + 0001:00101B70 ExtractInteger + 0001:00101E58 ExtractItems + 0001:0017E1E0 ExtractSection + 0001:00009558 ExtractShortPathName + 0001:00101F90 ExtractText + 0001:002A3CFC ExtractToResponses + 0002:00002624 ExtraFieldProps + 0001:000064A0 ExtSelectClipRgn + 0001:000064A8 ExtTextOut + 0001:0031A528 fAbout + 0001:001F368C fActivateDeactivate + 0001:001C8748 fAddlSigners + 0001:00305F3C fAlertForward + 0001:00246290 fAllgyBox + 0001:001BC71C fAllgyFind + 0002:00005794 FalseBoolStrs + 0001:00245AA0 fARTAllgy + 0001:001BB15C fARTFreeTextMsg + 0001:0014EC68 FastAssign + 0001:00123370 fAutoSz + 0001:00357BE4 fBALocalDiagnoses + 0001:0031DBFC fBAOptionsDiagnoses + 0002:00005D08 FBaseFont + 0002:00005C58 FCheckHeight + 0002:00005C54 FCheckWidth + 0001:001DC874 fClinicWardMeds + 0002:00005AC8 FClipboard + 0002:00000174 FCon1E18 + 0001:00208CDC fConsMedRslt + 0002:00002558 FConst10 + 0001:001BFAFC fConsult513Prt + 0001:001CDB14 fConsultAct + 0001:001CB7C0 fConsultAlertTo + 0001:001C9B88 fConsultBD + 0001:001C9498 fConsultBS + 0001:001CA2AC fConsultBSt + 0001:002199D8 fConsults + 0001:001CB154 fConsultsView + 0001:002F3168 fCover + 0001:001D375C fCsltNote + 0001:001E64F0 fDateRange + 0001:0022B6A0 fDCSumm + 0001:0021FAE4 fDCSummProps + 0001:0010DD20 fDebugInfo + 0001:0033064C fDefaultEvent + 0001:0018D464 fDeviceSelect + 0002:00008D5C FDfltSrc + 0002:00008D60 FDfltSrcType + 0001:002FEC2C fDiagnoses + 0001:002DB514 fDrawers + 0001:00302E2C fDupPts + 0002:00008F18 FDxCode + 0002:00008F1C FDxSection + 0002:00008E30 FDxSection + 0001:001FE9FC fEditConsult + 0001:001FC58C fEditProc + 0001:001F09C8 fEffectDate + 0001:0023EBEC fEncnt + 0001:00302A10 fEncounterFrame + 0001:002F8194 fEncVitals + 0001:00288758 Fetch + 0001:00288650 FetchCaseInsensitive + 0001:0003B994 FetchStr + 0001:002F86C4 fExam + 0002:00008C04 FFirstCtrl + 0001:00340104 fFrame + 0001:001B0BC8 fGAF + 0001:0015913C fGraphProfiles + 0001:00171BFC fGraphs + 0001:00153718 fGraphSettings + 0001:002F8C14 fHealthFactor + 0001:002FC85C fHFSearch + 0002:00006FE5 FHintStop + 0002:00006FE0 FHintWin + 0002:00006FE4 FHintWinActive + 0001:0037F378 fHP + 0001:0035A984 fHSplit + 0001:0018CBCC fIconLegend + 0002:00008A80 FIdPorts + 0002:00002560 FieldTypeNames + 0001:00009244 FileAge + 0001:00009230 FileClose + 0001:00009164 FileCreate + 0001:00009130 FileCreate + 0001:000092B4 FileExists + 0002:00000918 FileFormats + 0001:00104CB8 FileLastWrite + 0002:0000000C FileMode + 0001:0015103C FileNameX + 0001:000090C0 FileOpen + 0001:00009184 FileRead + 0002:00000628 FilerSignature + 0001:000091F4 FileSeek + 0001:00006140 FileTimeToDosDateTime + 0001:00006148 FileTimeToLocalFileTime + 0001:00105118 FileVersionValue + 0001:000091BC FileWrite + 0001:00000DA0 FillAfterGap + 0001:00000D4C FillBeforeGap + 0001:000E5FBC FillDWord + 0001:0037DAD0 FillerIDForDialog + 0001:00000E38 FillerSizeAfterGap + 0001:00000DC8 FillerSizeBeforeGap + 0001:00006860 FillRect + 0002:00000D70 FillStyles + 0001:00101998 FilteredString + 0001:002FA1D8 fImmunization + 0001:00039D7C Finalization + 0001:00142DD8 Finalization + 0001:0003A5F0 Finalization + 0001:00143C6C Finalization + 0001:0003A634 Finalization + 0001:0030ACD4 Finalization + 0001:0030C6B4 Finalization + 0001:0013D01C Finalization + 0001:0030D328 Finalization + 0001:0013CAEC Finalization + 0001:0030EC38 Finalization + 0001:0030F3FC Finalization + 0001:0030FB60 Finalization + 0001:00319598 Finalization + 0001:00305F00 Finalization + 0001:0003B830 Finalization + 0001:00319DD4 Finalization + 0001:0003B89C Finalization + 0001:0031A4F8 Finalization + 0001:0030582C Finalization + 0001:000059F8 Finalization + 0001:0031AC64 Finalization + 0001:00303B9C Finalization + 0001:00303750 Finalization + 0001:00302E34 Finalization + 0001:00302DFC Finalization + 0001:0013B0FC Finalization + 0001:0013ACA4 Finalization + 0001:003029E0 Finalization + 0001:0013AB40 Finalization + 0001:00300A5C Finalization + 0001:003003AC Finalization + 0001:00139CF4 Finalization + 0001:00144C60 Finalization + 0001:0003CCA8 Finalization + 0001:002FEBFC Finalization + 0001:002FDDD0 Finalization + 0001:0003D018 Finalization + 0001:0001BBA8 Finalization + 0001:002FC82C Finalization + 0001:00130F38 Finalization + 0001:002FBD48 Finalization + 0001:002FB868 Finalization + 0001:0003D228 Finalization + 0001:0012F75C Finalization + 0001:0012F500 Finalization + 0001:0012F4C8 Finalization + 0001:0012F484 Finalization + 0001:00145514 Finalization + 0001:00148110 Finalization + 0001:002FA1A8 Finalization + 0001:00149560 Finalization + 0001:0003DC50 Finalization + 0001:0003DCC4 Finalization + 0001:002F9948 Finalization + 0001:00005C28 Finalization + 0001:002F9130 Finalization + 0001:002F8BE4 Finalization + 0001:002F8694 Finalization + 0001:002F8164 Finalization + 0001:002F5EA8 Finalization + 0001:0003E980 Finalization + 0001:0003E9C0 Finalization + 0001:0014C574 Finalization + 0001:0003E9F8 Finalization + 0001:0003EA30 Finalization + 0001:0014C620 Finalization + 0001:0031AF00 Finalization + 0001:0003EA68 Finalization + 0001:00038BC4 Finalization + 0001:0031B1C4 Finalization + 0001:002F3104 Finalization + 0001:0003EB10 Finalization + 0001:0031B4C4 Finalization + 0001:00005D30 Finalization + 0001:0031B870 Finalization + 0001:0012EFA4 Finalization + 0001:0003EB80 Finalization + 0001:0012EF6C Finalization + 0001:0012E570 Finalization + 0001:0031DBAC Finalization + 0001:0012D998 Finalization + 0001:00038464 Finalization + 0001:002EFAC0 Finalization + 0001:000381C4 Finalization + 0001:0012BF58 Finalization + 0001:0000FE64 Finalization + 0001:0014D0A0 Finalization + 0001:0012AEBC Finalization + 0001:0012A31C Finalization + 0001:001260EC Finalization + 0001:0031EA70 Finalization + 0001:00125D68 Finalization + 0001:0031FFFC Finalization + 0001:00005F90 Finalization + 0001:00320C2C Finalization + 0001:002EE1B4 Finalization + 0001:00321914 Finalization + 0001:00091B18 Finalization + 0001:00322F40 Finalization + 0001:0014D344 Finalization + 0001:00323494 Finalization + 0001:00124EB4 Finalization + 0001:00325338 Finalization + 0001:00326384 Finalization + 0001:0014D37C Finalization + 0001:0014D3B4 Finalization + 0001:00327400 Finalization + 0001:0014DE3C Finalization + 0001:001248DC Finalization + 0001:00328498 Finalization + 0001:00123378 Finalization + 0001:0014DE74 Finalization + 0001:00328F34 Finalization + 0001:0014DEAC Finalization + 0001:00123340 Finalization + 0001:0032A2AC Finalization + 0001:0014DEE4 Finalization + 0001:00122E18 Finalization + 0001:0012286C Finalization + 0001:0032C560 Finalization + 0001:0014E704 Finalization + 0001:0012176C Finalization + 0001:0032DE04 Finalization + 0001:0001BFD4 Finalization + 0001:0014EB38 Finalization + 0001:00090D04 Finalization + 0001:003305E4 Finalization + 0001:0033061C Finalization + 0001:00090B88 Finalization + 0001:0014F944 Finalization + 0001:001204E8 Finalization + 0001:003400C8 Finalization + 0001:0011E8F4 Finalization + 0001:0011B918 Finalization + 0001:001536E8 Finalization + 0001:0015910C Finalization + 0001:0011B08C Finalization + 0001:00119ACC Finalization + 0001:000108D0 Finalization + 0001:00159E30 Finalization + 0001:000439CC Finalization + 0001:0011802C Finalization + 0001:00117428 Finalization + 0001:00171BCC Finalization + 0001:001166CC Finalization + 0001:0017E130 Finalization + 0001:001160B4 Finalization + 0001:00343EA4 Finalization + 0001:00115E84 Finalization + 0001:00115C98 Finalization + 0001:002DB4E4 Finalization + 0001:002D7F04 Finalization + 0001:0018156C Finalization + 0001:00115A24 Finalization + 0001:001820D8 Finalization + 0001:001824CC Finalization + 0001:0034C560 Finalization + 0001:00182B44 Finalization + 0001:00112854 Finalization + 0001:00049D10 Finalization + 0001:00049E38 Finalization + 0001:00111D04 Finalization + 0001:002CF528 Finalization + 0001:00111CCC Finalization + 0001:002CF144 Finalization + 0001:00111A08 Finalization + 0001:0010DD28 Finalization + 0001:002CD26C Finalization + 0001:0010DCF0 Finalization + 0001:0004A7A4 Finalization + 0001:0010DB0C Finalization + 0001:0018494C Finalization + 0001:0004AA2C Finalization + 0001:002C20A0 Finalization + 0001:00184F5C Finalization + 0001:001852E4 Finalization + 0001:002BFDB0 Finalization + 0001:001857AC Finalization + 0001:00186B3C Finalization + 0001:00187268 Finalization + 0001:0010D9EC Finalization + 0001:00187918 Finalization + 0001:0010D55C Finalization + 0001:0010CC40 Finalization + 0001:0010C97C Finalization + 0001:0010C0B4 Finalization + 0001:002BAF94 Finalization + 0001:002BAC64 Finalization + 0001:0018B97C Finalization + 0001:002AC014 Finalization + 0001:0018BF6C Finalization + 0001:0018C14C Finalization + 0001:0018CB9C Finalization + 0001:002A9540 Finalization + 0001:001082E0 Finalization + 0001:0018D428 Finalization + 0001:0004ECE8 Finalization + 0001:0004ED48 Finalization + 0001:0004ED98 Finalization + 0001:0018EF9C Finalization + 0001:0018F2F4 Finalization + 0001:0018F820 Finalization + 0001:0004F8FC Finalization + 0001:0018F8DC Finalization + 0001:0004F960 Finalization + 0001:001068B0 Finalization + 0001:00105DB4 Finalization + 0001:00105D18 Finalization + 0001:00105A90 Finalization + 0001:0018F984 Finalization + 0001:002A5E80 Finalization + 0001:0004F9BC Finalization + 0001:0035209C Finalization + 0001:00104BF4 Finalization + 0001:0018FAE4 Finalization + 0001:003529C0 Finalization + 0001:00191880 Finalization + 0001:001923B8 Finalization + 0001:00193170 Finalization + 0001:00357B80 Finalization + 0001:00193B10 Finalization + 0001:001953A8 Finalization + 0001:002A273C Finalization + 0001:0019F2D4 Finalization + 0001:0019FB9C Finalization + 0001:001008D0 Finalization + 0001:001A1CC0 Finalization + 0001:00051AD4 Finalization + 0001:001A2298 Finalization + 0001:001A4158 Finalization + 0001:001A62E8 Finalization + 0001:001A8FFC Finalization + 0001:000F1650 Finalization + 0001:001A97A4 Finalization + 0001:001A97FC Finalization + 0001:001AA9EC Finalization + 0001:000F1530 Finalization + 0001:00080B44 Finalization + 0001:0035A478 Finalization + 0001:0007FA94 Finalization + 0001:0035A954 Finalization + 0001:0029CBBC Finalization + 0001:000F1418 Finalization + 0001:003679C4 Finalization + 0001:001AE718 Finalization + 0001:00297858 Finalization + 0001:00296F84 Finalization + 0001:001AEC10 Finalization + 0001:001AED50 Finalization + 0001:002902D8 Finalization + 0001:001AF490 Finalization + 0001:001AFA60 Finalization + 0001:0028DEBC Finalization + 0001:001AFD58 Finalization + 0001:0028CEF0 Finalization + 0001:001AFE10 Finalization + 0001:0002CA58 Finalization + 0001:0002C5C4 Finalization + 0001:003692F4 Finalization + 0001:0028C41C Finalization + 0001:001AFE48 Finalization + 0001:001AFE80 Finalization + 0001:000EDB1C Finalization + 0001:000EDA74 Finalization + 0001:0028886C Finalization + 0001:001AFEE8 Finalization + 0001:000EDA3C Finalization + 0001:001AFF20 Finalization + 0001:0028836C Finalization + 0001:002882F8 Finalization + 0001:000074A0 Finalization + 0001:001B0040 Finalization + 0001:00286ED8 Finalization + 0001:001B0090 Finalization + 0001:00286610 Finalization + 0001:00007130 Finalization + 0001:002865C4 Finalization + 0001:001B0B98 Finalization + 0001:000070F8 Finalization + 0001:001B1514 Finalization + 0001:001B253C Finalization + 0001:001B2C40 Finalization + 0001:001B2C78 Finalization + 0001:00285458 Finalization + 0001:002852B8 Finalization + 0001:00285100 Finalization + 0001:002727EC Finalization + 0001:001B62C0 Finalization + 0001:002706E8 Finalization + 0001:000A7344 Finalization + 0001:0036D560 Finalization + 0001:001B6E6C Finalization + 0001:001B848C Finalization + 0001:001B9280 Finalization + 0001:002671CC Finalization + 0001:001B94A8 Finalization + 0001:0025F3DC Finalization + 0001:001BAC28 Finalization + 0001:0025EDEC Finalization + 0001:000E2900 Finalization + 0001:001BB12C Finalization + 0001:0025E7FC Finalization + 0001:001BC6EC Finalization + 0001:0025E32C Finalization + 0001:000DF9C8 Finalization + 0001:001BE88C Finalization + 0001:000DEC34 Finalization + 0001:0025DDA8 Finalization + 0001:001BE8C4 Finalization + 0001:001BED94 Finalization + 0001:001BEE88 Finalization + 0001:001BFACC Finalization + 0001:0025D314 Finalization + 0001:001BFFD8 Finalization + 0001:000D916C Finalization + 0001:000D852C Finalization + 0001:001C05D4 Finalization + 0001:001C0CC0 Finalization + 0001:001C10FC Finalization + 0001:000D6988 Finalization + 0001:000A8DE4 Finalization + 0001:001C1134 Finalization + 0001:00259980 Finalization + 0001:001C1D6C Finalization + 0001:002592F8 Finalization + 0001:001C214C Finalization + 0001:00258EA4 Finalization + 0001:001C2DDC Finalization + 0001:00258A90 Finalization + 0001:001C4154 Finalization + 0001:001C7360 Finalization + 0001:001C8718 Finalization + 0001:001C8B1C Finalization + 0001:00252CD8 Finalization + 0001:00371E5C Finalization + 0001:001C9454 Finalization + 0001:0024A4F4 Finalization + 0001:001C9B58 Finalization + 0001:002467B0 Finalization + 0001:00246260 Finalization + 0001:00245A50 Finalization + 0001:003751BC Finalization + 0001:001CA27C Finalization + 0001:001CB110 Finalization + 0001:001CB790 Finalization + 0001:001CDAC8 Finalization + 0001:000CA850 Finalization + 0001:0024179C Finalization + 0001:002411B4 Finalization + 0001:001CE484 Finalization + 0001:0024068C Finalization + 0001:00240428 Finalization + 0001:000AAF08 Finalization + 0001:0023EBB0 Finalization + 0001:0023CDC0 Finalization + 0001:001CF738 Finalization + 0001:000C7FA0 Finalization + 0001:000C7D08 Finalization + 0001:00236F38 Finalization + 0001:00019C04 Finalization + 0001:00019E80 Finalization + 0001:0022DB1C Finalization + 0001:001D2A34 Finalization + 0001:001D372C Finalization + 0001:001D4734 Finalization + 0001:001D4B34 Finalization + 0001:0022C5BC Finalization + 0001:0022BD38 Finalization + 0001:0022B64C Finalization + 0001:0021FAB4 Finalization + 0001:001D55B8 Finalization + 0001:0021DD74 Finalization + 0001:001D5AFC Finalization + 0001:000C319C Finalization + 0001:001D7284 Finalization + 0001:001D7668 Finalization + 0001:001D7A04 Finalization + 0001:0021B6B4 Finalization + 0001:0021B458 Finalization + 0001:0021AC58 Finalization + 0001:0021992C Finalization + 0001:001D7F00 Finalization + 0001:00209AD8 Finalization + 0001:002091E8 Finalization + 0001:001D8460 Finalization + 0001:00208C9C Finalization + 0001:001D87D8 Finalization + 0001:00207FF4 Finalization + 0001:001D8810 Finalization + 0001:001D9A68 Finalization + 0001:0020622C Finalization + 0001:00204F08 Finalization + 0001:00203B90 Finalization + 0001:001DBDC0 Finalization + 0001:001FF09C Finalization + 0001:001FED0C Finalization + 0001:001DC810 Finalization + 0001:001FE99C Finalization + 0001:001FC52C Finalization + 0001:001E0B2C Finalization + 0001:001FA04C Finalization + 0001:001E19BC Finalization + 0001:001F365C Finalization + 0001:001F3624 Finalization + 0001:001F2F14 Finalization + 0001:001F1FEC Finalization + 0001:001F197C Finalization + 0001:001F0998 Finalization + 0001:001F066C Finalization + 0001:001E2360 Finalization + 0001:001EF75C Finalization + 0001:001EE44C Finalization + 0001:001E2398 Finalization + 0001:001ED2F4 Finalization + 0001:001E3960 Finalization + 0001:001EC024 Finalization + 0001:001EB02C Finalization + 0001:001E96EC Finalization + 0001:0037ED78 Finalization + 0001:001E90C8 Finalization + 0001:001E8B7C Finalization + 0001:0037F310 Finalization + 0001:001E7DB4 Finalization + 0001:0037F348 Finalization + 0001:0037F380 Finalization + 0001:0037F3B8 Finalization + 0001:0037F3F0 Finalization + 0001:0037F428 Finalization + 0001:001E3ED4 Finalization + 0001:0037F460 Finalization + 0001:001E69E4 Finalization + 0001:0037F498 Finalization + 0001:0037F4D0 Finalization + 0001:001E64C0 Finalization + 0001:0037F508 Finalization + 0001:0037F540 Finalization + 0001:000B2974 Finalization + 0001:0037F578 Finalization + 0001:001E5EC0 Finalization + 0001:0037F5B0 Finalization + 0001:001E4F00 Finalization + 0001:0037F5E8 Finalization + 0001:0037F620 Finalization + 0001:001E4BB8 Finalization + 0001:0037F658 Finalization + 0001:0037F690 Finalization + 0001:0037F6C8 Finalization + 0001:001E4750 Finalization + 0001:0037F700 Finalization + 0001:0003EBB8 Finalization + 0001:00004AA8 FinalizeArray + 0001:000031F4 FinalizeUnits + 0001:000B0900 Find + 0001:00159BD4 FindActiveWindow + 0001:000278F0 FindAncestor + 0001:00004E74 FindBS + 0001:0007B6EC FindButton + 0001:0001E970 FindClass + 0001:00004DFC FindClassHInstance + 0001:0000033C FindClose + 0001:00006150 FindClose + 0001:0000F12C FindCmdLineSwitch + 0001:00000D1C FindCommitted + 0001:002A6F28 FindConsult + 0001:00094444 FindControl + 0001:000A4A88 FindControlAtPos + 0001:000199F0 FindCustomVariantType + 0001:00019AA8 FindCustomVariantType + 0001:000C8724 FindDateTimeStep + 0001:00096434 FindDragTarget + 0001:0036A4B8 FindDT + 0001:0021BE08 FindDT + 0001:0002550C FindExistingComponent + 0001:0021BEF4 FindExt + 0001:0036A5A4 FindExt + 0001:00000344 FindFirstFile + 0001:00006158 FindFirstFile + 0001:00159384 FindFormEvent + 0001:00159344 FindFormEventIndex + 0001:000B607C FindGlobalComponent + 0001:0001EEE0 FindGlobalComponent + 0002:00005868 FindGlobalComponentProcs + 0001:00004DD4 FindHInstance + 0001:0001ED30 FindIdentToInt + 0001:001A4E40 FindInCombo + 0001:0027CB78 FindInCombo + 0001:0036A67C FindInt + 0001:0021BFCC FindInt + 0001:0036A75C FindInt64 + 0001:0021C0AC FindInt64 + 0001:0001ECA0 FindIntToIdent + 0001:001ED860 FindMatchedPtEvtID + 0001:001D5E90 FindMatchedPtEvtID + 0002:00005A84 FindMsg + 0001:00024410 FindNestedComponent + 0001:0033DC8C FindNextBestDFN + 0001:002CEA10 FindNode + 0001:002DA8E4 FindNode + 0002:00000A70 FindOptions + 0001:001DCF40 FindOrderText + 0001:001E80A4 FindOrderText + 0001:001E0E7C FindOrderText + 0001:001E1C64 FindOrderText + 0001:000ABE70 FindPopupControl + 0001:00010580 FindProc + 0001:0001A17C FindPropInfo + 0001:00041F38 FindReplaceDialogHook + 0001:00041E80 FindReplaceWndProc + 0001:00006160 FindResource + 0001:00004E4C FindResourceHInstance + 0001:000C2838 FindScanline + 0001:0008F91C FindString + 0001:001935F4 FindSwitch + 0001:0003EB60 FindText + 0001:000B5F8C FindTopMostWindow + 0001:000264A8 FindUniqueName + 0001:0036A858 FindVal + 0001:00017E80 FindVarData + 0001:000963E4 FindVCLWindow + 0001:00006868 FindWindow + 0001:00159B44 FindWindows + 0001:0015950C FindWindowZOrder + 0001:0009187C FindWinHelp + 0001:0018BC4C FindXMLAttributeValue + 0001:0018BB24 FindXMLElement + 0002:000031D8 FinishPromptPieceNum + 0002:0000243C FirstSize + 0001:001B61FC FixQuotes + 0001:00034C34 FixupBitFields + 0001:0025F40C fLabCollTimes + 0001:0031B8A0 fLabInfo + 0001:0030D358 fLabPrint + 0001:003195F0 fLabs + 0001:0030FB90 fLabTest + 0001:0030EC68 fLabTestGroups + 0001:0030F42C fLabTests + 0002:000073D4 FlagCount + 0002:00008E8C FlaggedPTList + 0002:000090C8 FlagList + 0001:0037AD64 FlagOrder + 0002:00001454 Flags + 0002:000057A4 FLanguages + 0002:00000FC0 FlatOnXp + 0001:0003D048 FlatSB + 0002:00005954 FlatSB_EnableScrollBar + 0002:00005960 FlatSB_GetScrollInfo + 0002:00005964 FlatSB_GetScrollPos + 0002:0000595C FlatSB_GetScrollRange + 0002:0000596C FlatSB_SetScrollInfo + 0002:00005968 FlatSB_SetScrollPos + 0001:0003CCF0 FlatSB_SetScrollProp + 0002:00005970 FlatSB_SetScrollRange + 0002:00005958 FlatSB_ShowScrollBar + 0002:00000FB8 FlatStyles + 0002:00002264 FldNames + 0001:001D4B64 fLkUpLocation + 0001:0000A5A8 FloatToDecimal + 0001:0000A8E8 FloatToStr + 0001:0000A948 FloatToStrF + 0001:00009FE0 FloatToText + 0001:0000A2B4 FloatToTextFmt + 0001:00001D68 Flush + 0001:00372AC0 FlushNotifierBuffer + 0002:000027EC FMDateResponses + 0002:00002818 FMDateResponses + 0001:00100D7C FMDateTimeOffsetBy + 0001:00100B3C FMDateTimeToDateTime + 0002:000024D8 FMDayLetters + 0001:001ED324 fMedCopy + 0001:001FA088 fMeds + 0001:002C20D0 fMHTest + 0001:0036D8D8 FMNow + 0002:00000188 FMSecsPerDay + 0001:001AE754 FMTBcd + 0002:00002524 FMTBcdVariantType + 0001:0036D894 FMToday + 0001:00009EC0 FmtStr + 0002:00008F20 FName + 0001:001C0604 fNoteBA + 0001:001C0CF0 fNoteBD + 0001:00209B08 fNoteCPFields + 0001:001C1164 fNoteCslt + 0001:001C8B4C fNoteDR + 0001:00209218 fNoteIDParents + 0001:001C7390 fNoteProps + 0001:001C1D9C fNotePrt + 0001:002BACCC fNotes + 0001:001FED3C fNotesBP + 0001:001C0008 fNoteST + 0001:0021B6E4 fNoteSTStop + 0001:0018F324 fOCAccept + 0001:001EC054 fOCSession + 0002:00001470 FocusCount + 0002:0000146C FocusMessages + 0001:001F19AC fODActive + 0001:001E90F8 fODAuto + 0001:0029CC0C fODBase + 0001:00270788 fODBBank + 0001:001D5B2C fODChangeEvtDisp + 0001:00297888 fODChangeUnreleasedRenew + 0001:001F201C fODChild + 0001:00258AF0 fODConsult + 0001:0019F320 fODDiet + 0001:001931A0 fODDietLT + 0001:001A1CF0 fODGen + 0001:0026726C fODLab + 0001:0025EE1C fODLabImmedColl + 0001:0025E35C fODLabOthCollSamp + 0001:0025E82C fODLabOthSpec + 0001:001A6318 fODMedComplex + 0001:001A22C8 fODMedFA + 0001:001A4188 fODMedIn + 0001:0028C44C fODMedIV + 0001:00296FC0 fODMedNVA + 0001:001B2C70 fODMedOIFA + 0001:001A902C fODMedOut + 0001:0028513C fODMeds + 0001:0018F90C fODMessage + 0001:0019FBCC fODMisc + 0001:001D2A80 fODProc + 0001:0025D378 fODRad + 0001:00259328 fODRadApproval + 0001:002599B0 fODRadConShRes + 0001:0037F618 fODRadImType + 0001:001E8BAC fODReleaseEvent + 0001:0037F650 fODSaveQuick + 0001:001A97D4 fODText + 0001:001F2F44 fODValidateAction + 0001:0028CF20 fODVitals + 0002:00008130 FOldHintHidePause + 0001:001B94D8 fOMAction + 0001:00290308 fOMHTML + 0001:001EB05C fOMNavA + 0001:0037F688 fOMProgress + 0001:0028DEEC fOMSet + 0001:001E971C fOMVerify + 0002:00000834 FontCharsets + 0002:00005A88 FontDialog + 0001:00041298 FontDialogHook + 0001:000F5AE4 FontHeightPixel + 0002:000058E4 FontManager + 0002:00000A18 FontOptions + 0001:00108BBC FontToOleFont + 0001:0010330C FontWidthPixel + 0001:000F59E8 FontWidthPixel + 0001:00103294 FontWidthSubPixel + 0001:00330614 fOptions + 0001:00327430 fOptionsCombinations + 0001:0032002C fOptionsDays + 0001:00325368 fOptionsLists + 0001:003234C4 fOptionsNewList + 0001:00328F64 fOptionsNotes + 0001:003284C8 fOptionsOther + 0001:00322F70 fOptionsPatientSelection + 0001:0037F6C0 fOptionsPrimaryList + 0001:00320C5C fOptionsReminders + 0001:0032C590 fOptionsReportsCustom + 0001:0032DE34 fOptionsReportsDefault + 0001:0037F6F8 fOptionsSubscribe + 0001:00321944 fOptionsSurrogate + 0001:003263B4 fOptionsTeams + 0001:0032A2DC fOptionsTitles + 0002:0000099C ForceCurrentDirectory + 0002:00002E68 ForcedIdx + 0001:00103DBC ForceInsideWorkArea + 0001:00350F28 ForcePCEEntry + 0001:001B615C ForChars + 0001:001E4BE8 fOrderComment + 0001:001D8490 fOrderFlag + 0001:003679F4 fOrders + 0001:001D7F3C fOrdersAlert + 0001:001E5EF0 fOrderSaveQuick + 0001:001E3F04 fOrdersComplete + 0001:001EE47C fOrdersCopy + 0001:001D72B4 fOrdersCV + 0001:001D55E8 fOrdersDC + 0001:001E3990 fOrdersEvntRelease + 0001:001D7698 fOrdersHold + 0001:001E2390 fOrdersOnChart + 0001:001D9AA8 fOrdersPrint + 0001:001F3654 fOrdersRefill + 0001:001E19EC fOrdersRelease + 0001:001E7DE4 fOrdersRenew + 0001:001E0BA8 fOrdersSign + 0001:001F069C fOrdersTS + 0001:001D7A34 fOrdersUnhold + 0001:001E4780 fOrdersVerify + 0001:001D8808 fOrderUnflag + 0001:001D4764 fOrderVw + 0001:000B6048 ForegroundTask + 0001:0037CBD4 ForIVandUD + 0002:00000190 Format + 0001:00009E98 Format + 0001:00009A6C FormatBuf + 0001:00009A58 FormatClearStr + 0001:0000BF74 FormatDateTime + 0001:00144F4C FormatECSDate + 0001:000099B8 FormatError + 0002:0000016C FormatErrorStrs + 0001:0000A984 FormatFloat + 0001:00100E00 FormatFMDateTime + 0001:00101394 FormatFMDateTimeStr + 0001:00006168 FormatMessage + 0001:0036D754 FormatSSN + 0001:00009A20 FormatVarToStr + 0001:0013066C FormatVitalForNote + 0001:00379180 FormIDForDialog + 0002:000023F8 FormMonitor + 0001:001593A8 FormMonitorBringToFrontEvent + 0001:000C31F8 Forms + 0001:0036EB74 ForwardAlert + 0001:00305B54 ForwardAlertTo + 0001:00377EC8 ForwardByGroup + 0001:00378198 ForwardChrono + 0001:002A77C4 ForwardConsult + 0001:000E48AC ForwardMovement + 0002:000080B0 FOSTFhintWindow + 0002:000080AC FOSTFHintWndActive + 0001:0027281C fOtherSchedule + 0001:0037F340 fPage + 0001:002F9160 fPatientEd + 0001:002411E4 fPatientFlagMulti + 0001:00300A8C fPCEBase + 0001:0012EF9C fPCEBaseGrid + 0001:002FDE00 fPCEBaseMain + 0001:0021B4B4 fPCEEdit + 0001:003529F0 fPCELex + 0001:002FBD78 fPCEOther + 0001:001B1544 fPCEProvider + 0001:00002264 FPower10 + 0001:001CE4B4 fPreReq + 0002:00000968 FPrinter + 0001:0022BD68 fPrintList + 0001:002467E0 fProbCmt + 0001:0024A524 fProbEdt + 0001:001B84BC fProbflt + 0001:001B92B0 fProbLex + 0001:00252D08 fProbs + 0001:002FB898 fProcedure + 0001:002417CC fPtCWAD + 0001:00319E04 fPtDemo + 0001:0030AD38 fPtSel + 0001:00303780 fPtSelDemog + 0001:00124EE4 fPtSelMsg + 0001:00305868 fPtSelOptns + 0001:00303BCC fPtSelOptSave + 0001:00302E64 fPtSens + 0001:001AE318 FractionToStr + 0001:000464A8 Frame3D + 0001:00006870 FrameRect + 0001:0000FA04 FreeAndNil + 0001:00000A88 FreeCommitted + 0001:00000FA8 FreeCurAlloc + 0001:00096540 FreeDeviceContext + 0001:000965FC FreeDeviceContexts + 0001:0013D978 FreeEntries + 0001:001912DC FreeEventHookObjects + 0001:0002BBC4 FreeIntConstList + 0001:000ED2F4 FreeItem + 0001:0000034C FreeLibrary + 0001:00006170 FreeLibrary + 0001:00109110 FreeList + 0001:00034698 FreeMemoryContexts + 0001:0002C49C FreeObjectInstance + 0001:000B6140 FreeObjectInstance + 0001:002DFDB8 FreeReminderObjects + 0001:00006190 FreeResource + 0001:00000708 FreeSpace + 0001:0000F3A4 FreeTerminateProcs + 0001:0003D260 FreeThemeLibrary + 0001:001FF0CC fRemCoverPreview + 0001:00203C00 fRemCoverSheet + 0001:002BFE00 fReminderDialog + 0001:00208024 fReminderTree + 0001:002BAFC4 fRemVisitInfo + 0001:001E4F30 fRename + 0001:001E6A14 fRenewOutMed + 0001:0017E1D8 fReports + 0001:0014C5B0 fReportsAdhocComponent1 + 0001:00149590 fReportsAdhocSubItem1 + 0001:00148140 fReportsPrint + 0001:0023CE2C fReview + 0002:00005B28 FRichEditModule + 0002:00005DAC FRichEditModule + 0002:00008720 frmAllgyBox + 0002:00008F3C frmBALocalDiagnoses + 0002:000073E8 frmClinicWardMeds + 0002:00007318 frmConsultAction + 0002:000083B8 frmConsults + 0002:0000813C frmCopyOrders + 0002:00008C70 frmCover + 0002:00008484 frmDCSumm + 0002:00005D64 frmDebugInfo + 0002:00008CF0 frmDiagnoses + 0002:00008B90 frmDrawers + 0002:0000855C frmDrawers + 0002:00008498 frmDrawers + 0002:00008428 frmDrawers + 0002:000082A0 frmEditCslt + 0002:000081BC frmEditProc + 0002:00008D08 frmEncounterFrame + 0002:00008CAC frmEncVitals + 0002:00005D88 frmErrMsg + 0002:00008CB4 frmExams + 0002:00008E80 frmFrame + 0002:00007220 frmGAF + 0002:00008CBC frmHealthFactors + 0002:00002438 frmIconLegend + 0002:00008CD4 frmImmunizations + 0002:00008DF8 frmLabInfo + 0002:00008D94 frmLabs + 0002:00008134 frmMedCopy + 0002:00008168 frmMeds + 0002:00008C00 frmMHTest + 0002:00008B78 frmNotes + 0002:0000903C frmOrders + 0002:00008148 frmOrdersTS + 0002:00008CC4 frmPatientEd + 0002:00008D00 frmPCEBase + 0002:000084FC frmPrintList + 0002:00008728 frmProbCmt + 0002:00008734 frmProblems + 0002:00008CDC frmProcedures + 0002:00008D34 frmPtSelDemog + 0002:0000204C frmPtSelMsg + 0002:00008D44 frmPtSelOptns + 0002:00008D3C frmPtSelOptSave + 0002:00002E38 frmRemDlg + 0002:00002730 frmReminderTree + 0002:00006FEC frmReports + 0002:00006F7C frmReportsAdhocComponent1 + 0002:00006F74 frmReportsAdhocSubItem1 + 0002:00008564 frmReview + 0002:00008468 frmSearchStop + 0002:00006E00 frmSignon + 0002:00006DE4 frmSignonConfig + 0001:00115CC8 frmSignonMessage + 0002:00005DB0 frmSignonMsg + 0002:000080C0 frmSignOrders + 0002:00008CCC frmSkinTests + 0002:00008DF0 frmSplash + 0002:00008510 frmSurgery + 0002:000070A0 frmTemplateDialog + 0002:00002EA8 frmTemplateFields + 0002:0000240C frmTemplateFields + 0002:00002FAC frmTemplateImport + 0002:00002EA4 frmTemplateObjects + 0002:00002404 frmTemplateView + 0002:00006DDC frmVCEdit + 0002:00008CF8 frmVisitType + 0002:000085B8 frmVit + 0002:00008C90 frmVitals + 0001:000C5638 FromCenter + 0001:000C5520 FromCorner + 0001:00111CFC fRPCBErrMsg + 0001:00182108 fRptBox + 0002:0000859C FRVTFHintWindow + 0002:00008598 FRVTFHintWindowActive + 0001:00115EB4 fSgnonDlg + 0001:001C112C fSignItem + 0001:002F9978 fSkinTest + 0001:0031B4F4 fSplash + 0001:00236F8C fSurgery + 0001:0022C5EC fSurgeryView + 0001:00187298 fTemplateAutoGen + 0001:0018497C fTemplateDialog + 0001:002CD29C fTemplateEditor + 0001:0018B9AC fTemplateFieldEditor + 0001:00187948 fTemplateFields + 0001:002CF558 fTemplateImport + 0001:001857DC fTemplateObjects + 0001:00184F8C fTemplateView + 0002:00002400 FTimedOut + 0001:001824FC fTimeout + 0001:0021AC88 fTIUView + 0001:00105320 FullToFilePart + 0001:001053AC FullToPathPart + 0001:00063704 FullWindowUpdate + 0001:003449B4 FutureEncounter + 0001:001BE8F4 fVisit + 0001:003003DC fVisitType + 0001:00240458 fvit + 0001:002F5ED8 fVitals + 0001:0012F78C fVitalsDate + 0001:0031AC94 fxBroker + 0001:0031AF30 fxLists + 0001:0031B1F4 fxServer + 0002:00008C08 FYPos + 0001:00351454 GAFOK + 0001:00351880 GAFURL + 0001:0014D0D0 GanttCh + 0001:0014CAC4 GanttSampleStr + 0001:0012BF88 Gauges + 0001:00030964 GDICheck + 0001:000308B8 GDIError + 0001:00001C50 Get8087CW + 0002:00008A50 GetAcceptExSockaddrs + 0001:00006198 GetACP + 0001:002A73A4 GetActionMenuLevel + 0001:002405A8 GetActiveFlg + 0001:0001BF9C GetActiveObject + 0001:00006878 GetActiveWindow + 0001:001811A4 GetAdhocLookup + 0001:0018FA6C GetAllActiveCOMObjects + 0001:002030E4 GetAllChildren + 0001:0013BA84 GetAllowedPersonalObjects + 0001:0018ED90 GetAllRemindersAndCategories + 0001:00138B90 GetAngleSlice + 0001:000BFCD8 GetAnimation + 0001:0011E43C GetAppHandle + 0001:00350CA8 GetAskPCE + 0001:002A6FAC GetAssignableMedResults + 0001:0021D35C GetAttending + 0001:00186E00 GetAutoGenText + 0001:00042654 GetAveCharSize + 0001:000CFAAC GetAxisSeriesLabel + 0001:00359614 GetBADxListForOrder + 0001:00343710 GetBAStatus + 0001:0004B6E8 GetBitBtnGlyph + 0001:000064B0 GetBitmapBits + 0001:000064B8 GetBkColor + 0001:000064C0 GetBkMode + 0001:00000488 GetBlockDesc + 0001:0025D380 GetBloodComponents + 0001:0011E210 GetBrokerInfo + 0001:000064C8 GetBrushOrgEx + 0001:00006E60 GetBValue + 0001:00006880 GetCapture + 0001:000947FC GetCaptureControl + 0001:00006888 GetCaretPos + 0001:0018ED44 GetCategoryItems + 0001:0030BF94 GetChart + 0001:000D753C GetCheckSize + 0001:0037BB08 GetChildrenOfComplexOrder + 0001:0001E918 GetClass + 0001:00006890 GetClassInfo + 0001:00006898 GetClassName + 0001:000068A0 GetClientRect + 0001:000068A8 GetClipboardData + 0001:000327B0 GetClipboardFormats + 0001:000064D0 GetClipBox + 0001:000064D8 GetClipRgn + 0001:00000424 GetCmdShow + 0001:000A905C GetColor + 0001:00344A1C GetComboBoxMinMax + 0001:0005DC8C GetComCtlVersion + 0001:00000354 GetCommandLine + 0001:000008D4 GetCommitted + 0001:00000964 GetCommittedAt + 0001:0018FAA4 GetCOMObjectDetails + 0001:00191730 GetCOMObjectText + 0001:00028E4C GetComponentValue + 0001:000061A8 GetComputerName + 0001:003432A0 GetConsultFlags + 0001:0036ADEC GetConsultIENforNote + 0001:002A933C GetConsultOrderIEN + 0001:0037C188 GetConsultOrderNumber + 0001:002A6928 GetConsultRec + 0001:002A6634 GetConsultsList + 0001:0009D978 GetControlAtPos + 0001:0037E5B0 GetCoPay4Orders + 0001:0000B378 GetCount + 0001:0018EB14 GetCoverSheetLevelData + 0001:000061A0 GetCPInfo + 0001:002C10C4 GetCtrl + 0001:002A8CB8 GetCurrentContext + 0001:0021D89C GetCurrentDCSummContext + 0001:000064E0 GetCurrentPositionEx + 0001:000061B0 GetCurrentProcessId + 0001:00192268 GetCurrentRecurringOPMeals + 0001:0018D46C GetCurrentReminders + 0001:0036C434 GetCurrentSigners + 0001:0037CD98 GetCurrentSpec + 0001:001C29F4 GetCurrentSurgCaseContext + 0002:00005A38 GetCurrentThemeName + 0001:000061B8 GetCurrentThreadId + 0001:00000404 GetCurrentThreadId + 0001:00006D44 GetCurrentTime + 0001:0036C7B8 GetCurrentTIUContext + 0001:000068B0 GetCursor + 0001:000C284C GetCursorHeightMargin + 0001:000068B8 GetCursorPos + 0001:00040FFC GetCustomColorsArray + 0001:001B96B4 GetCWADInfo + 0001:0000B3B0 GetDate + 0001:000061C0 GetDateFormat + 0001:0000C174 GetDateOrder + 0001:000068C0 GetDC + 0001:000068C8 GetDCEx + 0001:000064E8 GetDCOrgEx + 0001:0021C1A8 GetDCSummForEdit + 0001:000C89A4 GetDefaultColor + 0001:002A4B6C GetDefaultCopay + 0001:0037CDE0 GetDefaultEvt + 0001:000C8820 GetDefaultFontName + 0001:000C87C0 GetDefaultFontSize + 0001:0025D984 GetDefaultImmCollTime + 0001:000F15A8 GetDefaultObject + 0001:000F1568 GetDefaultObject + 0001:000DB138 GetDefaultPattern + 0001:00371E00 GetDefaultPrinter + 0001:002A8F84 GetDefaultReasonForRequest + 0001:0037D214 GetDefaultTSForEvt + 0001:00037D34 GetDefFontCharSet + 0001:0018E8EC GetDefLocations + 0001:00020768 GetDesigner + 0001:000068D0 GetDesktopWindow + 0001:002A7054 GetDetailedMedicineResults + 0001:00006500 GetDeviceCaps + 0001:0036F3BC GetDfltSort + 0001:003715D4 GetDFNFromICN + 0001:0013D8B4 GetDialogEntry + 0001:0018D9F4 GetDialogInfo + 0001:0018DAF0 GetDialogPrompts + 0001:0018DBA0 GetDialogStatus + 0001:00031B84 GetDIB + 0001:000064F0 GetDIBColorTable + 0001:000064F8 GetDIBits + 0001:00031AA0 GetDIBSizes + 0001:00030AF4 GetDInColors + 0001:0021D3FC GetDischargeDate + 0001:000061C8 GetDiskFreeSpaceA + 0002:0000013C GetDiskFreeSpaceEx + 0001:0037CA70 GetDispGroupForLES + 0001:00144E40 GetDivisionID + 0001:0037C01C GetDlgData + 0001:000068D8 GetDlgItem + 0001:000A6194 GetDockAlign + 0001:00095510 GetDockSiteAtPos + 0001:000068E0 GetDoubleClickTime + 0001:000061D0 GetDriveType + 0001:000958C4 GetDropCtl + 0001:0037C77C GetDrugSchedule + 0001:000028E4 GetDynaMethod + 0001:0018D7B8 GetEducationSubtopics + 0001:002DD470 GetEducationTopics + 0001:0018D778 GetEducationTopicsForReminder + 0001:00371674 GetEncounterText + 0001:00006508 GetEnhMetaFileBits + 0001:00006510 GetEnhMetaFileDescription + 0001:00006518 GetEnhMetaFileHeader + 0001:00006520 GetEnhMetaFilePaletteEntries + 0001:0001A8B8 GetEnumName + 0001:0001A9C0 GetEnumNameValue + 0001:0001ACAC GetEnumProp + 0001:0001AA0C GetEnumValue + 0001:0000CD98 GetEraNamesAndYearOffsets + 0001:0000C244 GetEraYearOffset + 0001:0001BFAC GetErrorInfo + 0001:0037D2A4 GetEventDefaultDlg + 0001:0037CD50 GetEventDiv1 + 0001:0037CC78 GetEventIFN + 0001:0037CD08 GetEventLoc1 + 0001:0037CCC0 GetEventName + 0001:0037D190 GetEventPromptID + 0001:0000D914 GetExceptionClass + 0001:0000DB24 GetExceptionObject + 0001:000061D8 GetExitCodeThread + 0001:002875D4 GetFDSet + 0001:0001E89C GetFieldClassTable + 0001:00032784 GetFileFormats + 0001:000061E0 GetFileSize + 0001:0000DDF4 GetFileVersion + 0001:00006390 GetFileVersionInfo + 0001:00006398 GetFileVersionInfoSize + 0001:002CC2BC GetFirstPersonalNode + 0001:0001B55C GetFloatProp + 0001:000068E8 GetFocus + 0001:00106DC8 GetFontAccess + 0001:0002E7CC GetFontData + 0001:001B6160 GetFontInfo + 0001:000068F0 GetForegroundWindow + 0001:0000E9BC GetFormatSettings + 0001:0030C3D4 GetFormattedLabReport + 0001:0036C3DC GetFormattedNote + 0001:0017FF5C GetFormattedReport + 0001:002A7EB4 GetFormattedSF513 + 0001:001BAEA8 GetFreeTextARTComment + 0001:000061E8 GetFullPathName + 0001:0025F0C4 GetFutureLabTime + 0001:00006E44 GetGValue + 0001:0002DB94 GetHashCode + 0001:000BC718 GetHelpInfo + 0001:0003AAB8 GetHelpSystem + 0001:000BFA70 GetHint + 0001:000BFAC0 GetHintControl + 0001:0010DAB4 gethostbyaddr + 0002:000088F8 gethostbyaddr + 0002:000088FC gethostbyname + 0001:0010DABC gethostbyname + 0002:00008900 gethostname + 0001:0010DAC4 gethostname + 0001:000B27D8 GetHotkey + 0001:000068F8 GetIconInfo + 0001:002CD814 GetID + 0001:000F0EAC GetIDsOfNames + 0001:0007892C GetImageBitmap + 0001:002DD0F8 GetImageIndex + 0001:0001BA0C GetInt64Prop + 0001:0001BA70 GetInterfaceProp + 0001:00006910 GetKeyboardLayout + 0001:00006918 GetKeyboardLayoutList + 0001:00006920 GetKeyboardState + 0001:00002550 GetKeyboardType + 0001:00006900 GetKeyNameText + 0001:00006908 GetKeyState + 0001:0018F3A8 GetKeyVars + 0001:0025DB70 GetLabTimesForDate + 0001:00006928 GetLastActivePopup + 0001:000A3C18 GetLastChildZone + 0001:0025DB2C GetLastCollectionTime + 0001:000061F0 GetLastError + 0001:0012EFDC GetLastVital + 0001:0006F9A8 GetLength + 0001:002D0418 GetLinkedTemplate + 0001:0013C180 GetLinkedTemplateData + 0001:002D05AC GetLinkName + 0001:001B5A68 GetListforIP + 0001:001B5B5C GetListforOP + 0001:0000CB0C GetLocaleChar + 0001:0000035C GetLocaleInfo + 0001:00006200 GetLocaleInfo + 0001:0000CAB0 GetLocaleStr + 0001:000061F8 GetLocalTime + 0001:00351398 GetLocSecondaryVisitCode + 0001:00094740 GetLongHint + 0001:0001B14C GetLongStrProp + 0001:000F15E8 GetLResult + 0001:0013AA98 GetMedStatus + 0001:00006930 GetMenu + 0001:000BC674 GetMenuHelpContext + 0001:00006938 GetMenuItemCount + 0001:00006940 GetMenuItemID + 0001:00006948 GetMenuItemInfo + 0001:000AE8B4 GetMenuSize + 0001:00006950 GetMenuState + 0001:00006958 GetMenuString + 0001:00006960 GetMessagePos + 0001:00006968 GetMessageTime + 0001:0001B994 GetMethodProp + 0001:00193248 GetModuleFileName + 0001:00000364 GetModuleFileName + 0001:00006208 GetModuleFileName + 0001:00006210 GetModuleHandle + 0001:0000036C GetModuleHandle + 0001:00005C68 GetModuleHandle + 0001:00005B20 GetModuleHandle + 0001:0019327C GetModuleName + 0002:0000591C GetMonitorInfo + 0002:00005920 GetMonitorInfoA + 0002:00005924 GetMonitorInfoW + 0001:0000CB8C GetMonthDayNames + 0001:0031DE30 GetMultiplier + 0001:00200A68 GetNameFromList + 0001:002A915C GetNewDialog + 0001:0013A8A0 GetNewDialog + 0001:0030BEAC GetNewestOldest + 0001:0013D810 GetNewFieldID + 0001:00006970 GetNextWindow + 0001:002CD9A0 GetNode + 0001:0036A930 GetNoteForEdit + 0001:0036EE70 GetNotificationFollowUpText + 0001:00006528 GetObject + 0001:0013BA54 GetObjectList + 0001:00106E88 GetOleFont + 0001:00106F48 GetOlePicture + 0001:0025DA9C GetOneCollSamp + 0001:0025DAE4 GetOneSpecimen + 0001:0003EB48 GetOpenFileName + 0001:000F65E8 GetORCBBitmap + 0001:0037B084 GetOrderableIen + 0001:0018FA2C GetOrderAcceptGUIDs + 0001:0037C208 GetOrderByIFN + 0001:0025B62C GetOrderingLocation + 0001:0037CAB4 GetOrderPtEvtID + 0001:00375E40 GetOrderStatus + 0001:0001A1B8 GetOrdProp + 0001:0001ABDC GetOrdProp + 0001:00141870 GetOriginalItem + 0001:001B43E0 GetOrigVal + 0001:0018D4D4 GetOtherReminders + 0001:0037C578 GetPackageByOrderID + 0001:0036ADAC GetPackageRefForNote + 0001:00006530 GetPaletteEntries + 0001:002E3638 GetPanel + 0001:00001A5C GetParamStr + 0001:00006978 GetParent + 0001:000B6338 GetParentForm + 0001:0025D544 GetPatientBBInfo + 0001:0025D4C0 GetPatientBloodResults + 0001:0025D440 GetPatientBloodResultsRaw + 0001:0018F9BC GetPatientChangeGUIDs + 0001:0035A414 GetPatientTFactors + 0001:00344CE8 GetPCECodes + 0001:00344E34 GetPCECodeString + 0001:00345348 GetPCEDataText + 0001:00345058 GetPCEDisplayText + 0002:000088B0 getpeername + 0001:001B23D4 GetPickupForLocation + 0001:00106E28 GetPictureAccess + 0001:00006538 GetPixel + 0001:0037C8CC GetPKISite + 0001:0037C95C GetPKIUse + 0001:000417C4 GetPrinter + 0001:001B6CAC GetProblemComments + 0001:00006218 GetProcAddress + 0001:00005C70 GetProcAddress + 0001:00000374 GetProcAddress + 0001:002A80A4 GetProcedureIEN + 0001:002A8120 GetProcedureServices + 0001:00006220 GetProfileString + 0001:0036DC94 GetProgramFilesPath + 0001:0018DD68 GetProgressNoteHeader + 0001:0037D25C GetPromptIDs + 0001:00006980 GetProp + 0001:0001AB04 GetPropInfo + 0001:0001AA94 GetPropInfo + 0001:0001A124 GetPropInfo + 0001:0001A150 GetPropInfo + 0001:0001AB58 GetPropInfos + 0001:0001A1E4 GetPropValue + 0002:00008910 getprotobyname + 0002:0000890C getprotobynumber + 0001:002A9268 GetProvDxMode + 0001:00370BB4 GetPtIDInfo + 0001:002A305C GetQuickName + 0001:000B6910 GetRealScrollPosition + 0001:002DC854 GetRemFolders + 0001:002DFE70 GetReminder + 0001:002E0268 GetReminderData + 0001:002E0254 GetReminderData + 0001:0018E83C GetReminderFolders + 0001:0018DCB0 GetRemindersActive + 0001:002DC648 GetReminderStatus + 0001:0018D7FC GetReminderWebPages + 0001:001812CC GetRemoteData + 0001:00181110 GetRemoteStatus + 0001:002A7000 GetRemovableMedResults + 0001:0037AB74 GetREQReason + 0001:000A9020 GetRGBColor + 0001:00006540 GetRgnBox + 0001:002C1140 GetRLbl + 0001:001216C8 GetRPCMax + 0001:00006E2C GetRValue + 0001:002A9384 GetSavedCPFields + 0001:000D7604 GetSaveDisabled + 0001:0003EB50 GetSaveFileName + 0001:000D75E8 GetSaveState + 0001:000C876C GetScreenLogPixels + 0001:00006988 GetScrollInfo + 0001:00006990 GetScrollPos + 0001:00006998 GetScrollRange + 0002:00008908 getservbyname + 0002:00008904 getservbyport + 0001:00116D3C GetServerInfo + 0001:00116A4C GetServerIP + 0001:002A91E8 GetServiceIEN + 0001:002A90B8 GetServicePrerequisites + 0001:0001AD3C GetSetProp + 0001:0005DC38 GetShellModule + 0001:000946EC GetShortHint + 0001:00006228 GetShortPathName + 0001:0001B020 GetShortStrProp + 0001:0001B0B8 GetShortStrPropAsLongStr + 0001:001C2CF0 GetSingleCaseListItemWithDocs + 0001:001BA950 GetSiteParams + 0001:0010DA64 getsockname + 0002:000088B4 getsockname + 0002:000088B8 getsockopt + 0001:0036ECAC GetSortMethod + 0001:0000062C GetSpace + 0001:00000690 GetSpaceAt + 0001:000ABF38 GetSpecialName + 0001:0000037C GetStartupInfo + 0001:0028F480 GetStateFromName + 0001:00006230 GetStdHandle + 0001:000002EC GetStdHandle + 0001:00006548 GetStockObject + 0001:00102B28 GetStrings + 0001:00006238 GetStringTypeEx + 0001:0001B28C GetStrProp + 0001:000069A0 GetSubMenu + 0001:001C26C4 GetSurgCaseList + 0001:000069A8 GetSysColor + 0001:000069B0 GetSysColorBrush + 0001:00006240 GetSystemInfo + 0001:000069B8 GetSystemMenu + 0001:000069C0 GetSystemMetrics + 0002:0000590C GetSystemMetrics + 0001:00006550 GetSystemPaletteEntries + 0001:000069C8 GetTabbedTextExtent + 0001:0013BBF0 GetTemplateAccess + 0001:0013BF54 GetTemplateAllowedReminderDialogs + 0001:0013B30C GetTemplateBoilerplate + 0001:0013B25C GetTemplateChildren + 0001:0013E588 GetTemplateField + 0001:0013B134 GetTemplateRoots + 0001:0013B3BC GetTemplateText + 0001:00006248 GetTempPath + 0001:00182E50 GetText + 0001:00006558 GetTextAlign + 0001:00006568 GetTextExtentPoint + 0001:00006560 GetTextExtentPoint32 + 0001:00006570 GetTextFace + 0001:00006578 GetTextMetrics + 0002:00005A30 GetThemeAppProperties + 0002:0000599C GetThemeBackgroundContentRect + 0002:000059A0 GetThemeBackgroundExtent + 0002:000059B0 GetThemeBackgroundRegion + 0002:000059D4 GetThemeBool + 0002:000059C8 GetThemeColor + 0002:00005A3C GetThemeDocumentationProperty + 0002:000059DC GetThemeEnumValue + 0002:000059FC GetThemeFilename + 0002:000059E4 GetThemeFont + 0002:000059D8 GetThemeInt + 0002:000059F0 GetThemeIntList + 0002:000059EC GetThemeMargins + 0002:000059CC GetThemeMetric + 0002:000059A4 GetThemePartSize + 0002:000059E0 GetThemePosition + 0002:000059F4 GetThemePropertyOrigin + 0002:000059E8 GetThemeRect + 0002:000059D0 GetThemeString + 0002:00005A08 GetThemeSysBool + 0002:00005A00 GetThemeSysColor + 0002:00005A04 GetThemeSysColorBrush + 0002:00005A10 GetThemeSysFont + 0002:00005A18 GetThemeSysInt + 0002:00005A0C GetThemeSysSize + 0002:00005A14 GetThemeSysString + 0002:000059A8 GetThemeTextExtent + 0002:000059AC GetThemeTextMetrics + 0001:00000384 GetThreadLocale + 0001:00006250 GetThreadLocale + 0001:0000041C GetTickCount + 0001:00006258 GetTickCount + 0001:0000B3E8 GetTime + 0002:00002FF4 GettingDialogText + 0001:0013BD14 GetTitleBoilerplate + 0001:0036EDF4 GetTIUAlertInfo + 0001:0036B05C GetTIUListItem + 0001:00005B4C GetTlsSize + 0001:00367AC4 GetToolMenu + 0001:000C046C GetTopMostWindows + 0001:0009494C GetTopParent + 0001:000069D0 GetTopWindow + 0001:00042168 GetTopWindow + 0001:0037D6D8 GetTSListForEvt + 0001:0001A8AC GetTypeData + 0001:001934C0 GetTypeLibName + 0001:002A7F50 GetUnresolvedConsultsInfo + 0001:003421A4 GetUnsignedOrderFlags + 0001:000069D8 GetUpdateRect + 0001:0028E2BC GetURLforDialog + 0001:00006260 GetUserDefaultLCID + 0001:0011B748 GetUserInfo + 0001:0036DFC0 GetUserInfo + 0001:0036E42C GetUserParam + 0001:0013BDA4 GetUserTemplateDefaults + 0001:001ABAB8 GetValueAndMultiplyOrder + 0001:000180B0 GetVarDataArrayInfo + 0001:0001B914 GetVariantProp + 0001:0000040C GetVersion + 0001:00006268 GetVersion + 0001:00006270 GetVersionEx + 0001:001B72F8 GetViewFilters + 0001:0034C5DC GetVisitCat + 0001:00144D8C GetVisitID + 0001:00350900 GetVisitIEN + 0001:00371D00 GetVistaWebAddress + 0001:0012F310 GetVitalFromNoteIEN + 0001:003459C4 GetVitalsFromDate + 0001:0012F3C8 GetVitalsFromEncDateTime + 0001:00345A14 GetVitalsFromNote + 0001:002F37FC getVitalsStartDate + 0001:0012FF44 GetVitalStr + 0001:0013004C GetVitalUser + 0001:002DD748 GetWebPageAddress + 0001:002DD6EC GetWebPageName + 0001:002DD7A4 GetWebPages + 0001:0001B348 GetWideStrProp + 0001:0001B1CC GetWideStrPropAsLongStr + 0001:000069E0 GetWindow + 0001:000069E8 GetWindowDC + 0001:001858A8 GetWindowList + 0001:000069F0 GetWindowLong + 0001:00006588 GetWindowOrgEx + 0001:000069F8 GetWindowPlacement + 0001:00006A00 GetWindowRect + 0001:00185888 GetWindows + 0001:00006A08 GetWindowText + 0002:00005A24 GetWindowTheme + 0001:00006A18 GetWindowThreadProcessId + 0001:00006A10 GetWindowThreadProcessId + 0001:00006580 GetWinMetaFileBits + 0001:002D2280 GetXMLFromWord + 0001:002D7BF4 GetXMLParamReturnValueTIU + 0001:0018BDC4 GetXMLWPText + 0001:0036ED7C GetXQAData + 0002:0000873C gFontHeight + 0002:00008740 gFontWidth + 0001:00006278 GlobalAddAtom + 0001:00006280 GlobalAlloc + 0001:00006D94 GlobalAllocPtr + 0001:00006288 GlobalDeleteAtom + 0002:00008F88 globalDxRec + 0001:00006290 GlobalFindAtom + 0002:0000586C GlobalFixupList + 0001:000245A8 GlobalFixupReferences + 0001:00006298 GlobalFree + 0001:00006DC0 GlobalFreePtr + 0001:000062A8 GlobalHandle + 0001:000062A0 GlobalLock + 0002:00005850 GlobalNameSpace + 0001:000062B0 GlobalReAlloc + 0001:00006DA4 GlobalReAllocPtr + 0001:0036DED8 GlobalRefForFile + 0001:000062B8 GlobalSize + 0001:000062C0 GlobalUnlock + 0002:00000D60 GlyphCache + 0002:00007354 GMRCREAF + 0002:000087B8 GMRCREAF + 0001:00100520 GoodNotifyWinEvent + 0001:00374FFC GotoWebPage + 0001:00186B20 GrammarCheckForControl + 0002:00008EA4 GraphFloat + 0002:00007074 GraphForm + 0002:00007078 GraphFormActive + 0001:00038298 Graphics + 0001:0014E814 GraphSettingsInit + 0002:00002790 GridColWidths + 0002:00008F28 GridItems + 0001:000E3FDC GridRect + 0001:000EDA6C Grids + 0002:00000DFC GripStyles + 0001:0001EB00 GroupDescendentsWith + 0002:00002D70 GServeFileProc + 0002:00008A64 GSocketListClass + 0002:00002D6C GStackClass + 0002:00002D74 GStarted + 0001:000F0384 GUIDToString + 0002:000005F0 GUID_NULL + 0002:00002174 HalfPi + 0001:000115E4 HandleConversionException + 0001:000BC9C0 HandleEdge + 0001:00106D84 HandleException + 0001:00025CB8 HandleException + 0001:000EE4F8 HandleSafeCallException + 0001:00240460 HasActiveFlg + 0001:0004A604 HasAPicture + 0002:000090C4 HasFlag + 0001:0010D5A4 Hash + 0001:00370F00 HasLegacyData + 0001:0036E4F8 HasMenuOptionAccess + 0001:00087A54 HasPopup + 0001:00371AD8 HasRemoteData + 0001:0036E468 HasSecurityKey + 0001:0008BD04 HasSelectedText + 0001:0013E524 HasTemplateField + 0001:00350D90 HasVisit + 0001:0017F938 HDRActive + 0002:00000E0C HeaderStyles + 0001:00038DB0 Header_GetItem + 0001:00038DE0 Header_SetImageList + 0001:00038E0C Header_SetOrderArray + 0001:0017E67C HealthSummaryCheck + 0002:00000028 HeapAllocFlags + 0002:000055C8 heapErrorCode + 0002:000055CC heapLock + 0001:0003B870 HelpIntfs + 0002:00005948 HelpManager + 0002:00005A80 HelpMsg + 0002:00005B78 HelpViewer + 0002:00005B7C HelpViewerIntf + 0002:00000138 HexDisplayPrefix + 0001:002FC010 HFLookup + 0001:00006A20 HideCaret + 0001:00124C18 HidePatientSelectMessages + 0001:002BB9C0 HideReminderDialog + 0002:00002000 HideScrollBar + 0002:00000E80 HideScrollBars + 0002:00002008 HideSelections + 0002:00000E44 HideSelections + 0002:00000E88 HideSelections + 0002:00000EBC HideSelections + 0002:000010D0 HideSelections + 0001:000A621C HideZone + 0001:000F5B20 HigherOf + 0001:001015CC HigherOf + 0001:001EC3EC Highlight + 0001:001ED6B8 Highlight + 0001:00107CA4 HIMETRICtoDP + 0002:00005668 HInstance + 0002:00005C34 HintDoneEvent + 0001:000BFBBC HintGetMsgHook + 0002:00005C38 HintHook + 0001:000BFB5C HintMouseThread + 0002:00005C3C HintThread + 0002:00005C30 HintThreadID + 0001:000BFB08 HintTimerProc + 0002:00001464 HintWindowClass + 0002:00003374 HistLocations + 0002:00003174 HistRootCount + 0002:000059B4 HitTestThemeBackground + 0001:00006D28 HiWord + 0002:00008500 HLDPageID + 0002:000090E0 HlinkNav + 0002:00008FF4 HNC + 0001:0037AA48 HoldOrder + 0001:000BFC00 HookHintHooks + 0002:00005D70 HookTimeOut + 0002:00000E6C HotTrackStyles + 0001:00180FC8 HSABVComponents + 0002:00006F88 HSCompCtr + 0001:00180DCC HSComponentFiles + 0001:00180F70 HSComponents + 0001:00181068 HSComponentSubs + 0001:00181018 HSDispComponents + 0001:00180D18 HSFileLookup + 0001:00180F00 HSReportText + 0001:00180E60 HSSubItems + 0001:0013FB40 ht + 0002:000088BC htonl + 0001:0010DA6C htons + 0002:000088C0 htons + 0001:00006FE4 HwndMSWheel + 0002:00002828 hWS2Dll + 0002:00000F38 IAlignment + 0002:000013F8 IBreaks + 0002:00001404 IChecks + 0002:00000AB8 IconIDs + 0002:0000140C IDefaults + 0001:002A62A8 IdentifyClinProcClass + 0001:002A5F1C IdentifyConsultsClass + 0001:002A3428 IdentifyDialog + 0001:0002E7A4 IdentToCharset + 0001:0002E53C IdentToColor + 0001:000946C4 IdentToCursor + 0001:0001EDC0 IdentToInt + 0001:002852E8 IdException + 0001:00288928 IdGlobal + 0002:00001E78 IdleCaller + 0001:0036CD38 IDNotesInstalled + 0001:00285488 IdResourceStrings + 0001:00286F08 IdStack + 0001:00286640 IdStackConsts + 0001:0028833C IdStackWindows + 0001:0028839C IdURI + 0001:002865FC IdWinSock2 + 0002:00002E98 IdxForced + 0002:00001414 IEnables + 0001:0010D5AC Iff + 0001:000AFCD8 IfHotkeyAvailable + 0002:0000177C IID_IAccessible + 0002:00002468 IID_ICPRSExtension + 0002:00005C0C ImageListWriteExProc + 0001:00038CC4 ImageList_Add + 0001:00038CEC ImageList_AddIcon + 0001:00038D50 ImageList_BeginDrag + 0001:00038CAC ImageList_Create + 0001:00038CB4 ImageList_Destroy + 0001:00038D60 ImageList_DragEnter + 0001:00038D68 ImageList_DragLeave + 0001:00038D70 ImageList_DragMove + 0001:00038D80 ImageList_DragShowNolock + 0001:00038D30 ImageList_Draw + 0001:00038D40 ImageList_DrawEx + 0001:00038D58 ImageList_EndDrag + 0001:00038CDC ImageList_GetBkColor + 0001:00038D88 ImageList_GetDragImage + 0001:00038DA0 ImageList_GetIconSize + 0001:00038CBC ImageList_GetImageCount + 0001:00038D90 ImageList_Read + 0001:00038D48 ImageList_Remove + 0001:00038D38 ImageList_Replace + 0001:00038CCC ImageList_ReplaceIcon + 0001:00038CD4 ImageList_SetBkColor + 0001:00038D78 ImageList_SetDragCursorImage + 0001:00038DA8 ImageList_SetIconSize + 0001:00038CE4 ImageList_SetOverlayImage + 0001:00038D98 ImageList_Write + 0002:00001368 Images + 0001:00258BC4 ImagingMessage + 0001:0017F8B8 ImagingParams + 0002:00008AD8 ImgDisp + 0001:000AAF38 ImgList + 0001:0003A664 Imm + 0002:0000134C IMM32DLL + 0001:000A7094 Imm32IsIME + 0002:00002E1C ImmdCopyAct + 0001:0025D938 ImmediateCollectTimes + 0001:002A223C IMOActionValidation + 0001:0013CA84 ImportLoadedFields + 0002:0000018C IMSecsPerDay + 0002:00008E20 inactiveCodes + 0001:00011A74 InBounds + 0001:000116D0 InBounds + 0001:0000B160 IncAMonth + 0001:0014D2FC IncDay + 0001:000CA470 IncDecMonths + 0001:001830FC IncDlgID + 0001:000E40FC Includes + 0001:0000E400 IncludeTrailingPathDelimiter + 0001:002884D0 IncludeTrailingSlash + 0001:0000B104 IncMonth + 0001:000CA440 IncMonths + 0001:00011AA4 Increment + 0001:00011700 Increment + 0002:000024F8 IncrementAmount + 0001:0014D318 IncSecond + 0001:001F4588 IndexForCurrentID + 0001:00121B80 IndexOfClass + 0001:001B1888 IndexOfOrderable + 0001:00038D14 IndexToOverlayMask + 0001:00038EC0 IndexToStateImageMask + 0002:00008A74 IndyFalseBoolStrs + 0002:00002DC4 IndyPos + 0002:00008A78 IndyTrueBoolStrs + 0001:0010DA74 inet_addr + 0002:000088C4 inet_addr + 0002:000088C8 inet_ntoa + 0001:0010DA7C inet_ntoa + 0001:000D094C InflateAxisPos + 0001:000D08F0 InflateAxisRect + 0001:00006A28 InflateRect + 0001:00103098 InfoBox + 0001:0004EDE0 IniFiles + 0001:00000B14 InitAllocator + 0001:00039DB4 InitAnApi + 0002:00005934 InitApis + 0001:00038C04 InitComCtl + 0001:0005DBCC InitCommonControl + 0001:00038BFC InitCommonControls + 0001:00038C68 InitCommonControlsEx + 0001:000F139C InitComObj + 0001:0001F130 InitComponent + 0001:001939FC InitComServer + 0002:00005638 InitContext + 0001:000A7148 InitControls + 0001:00037D8C InitDefFontData + 0002:00000FD8 InitDone + 0001:0000F3D8 InitDriveSpacePtr + 0001:0000DC2C InitExceptions + 0001:0003CD5C InitFlatSB + 0001:0004387C InitGlobals + 0001:000318F4 InitializeBitmapInfoHeader + 0001:003599CC InitializeConsultOrderRec + 0001:000062C8 InitializeCriticalSection + 0001:00000468 InitializeCriticalSection + 0002:000055C4 initialized + 0001:0003CD2C InitializeFlatSB + 0001:00005BD8 InitializeModule + 0001:00359A24 InitializeNewDxRec + 0001:00359A7C InitializeUnsignedOrderRec + 0001:000105C4 InitializeVarUtils + 0001:0029DBB4 InitialOrderVariables + 0002:000030E0 InitialRemindersLoaded + 0002:00006DF0 InitialValues + 0001:000A6CF4 InitIMM32 + 0001:0001F1E4 InitInheritedComponent + 0001:0000E76C InitLeadBytes + 0001:00301998 InitList + 0001:00005C78 InitMemoryManager + 0001:0003A580 InitMultiMonStubs + 0001:001080EC InitOlePro32 + 0001:0012FB4C InitPainCombo + 0001:0036C104 InitParams + 0001:0000DD38 InitPlatformId + 0002:00005044 InitProc + 0001:000C30DC InitProcs + 0001:001B66E4 InitPt + 0001:002DFCEC InitReminderList + 0001:002DFD04 InitReminderObjects + 0001:00037CF4 InitScreenLogPixels + 0001:0000E810 InitSysLocale + 0001:002DC0AC InitText + 0001:0003D420 InitThemeLibrary + 0001:00029BF8 InitThreadSynchronization + 0001:00005B54 InitThreadTLS + 0001:00182984 InitTimeOut + 0001:0007BAF4 InitToolMenuHooks + 0001:0007BC28 InitToolMenuKeyHooks + 0001:00003254 InitUnits + 0001:001B672C InitUser + 0001:001B5F14 InitViewFilters + 0001:00094348 InitWndProc + 0002:0000113C InnerStyles + 0002:000012EC InnerStyles + 0002:0000096C InnerStyles + 0002:00008AB8 InptDisp + 0002:00005050 Input + 0001:0004384C InputBox + 0001:000434F0 InputQuery + 0001:0009BCC4 InsertBefore + 0001:000BF4C0 InsertBefore + 0001:00000F20 InsertFree + 0001:000AFDAC InsertHotkeyFarEastFormat + 0001:00006A30 InsertMenu + 0001:00006A38 InsertMenuItem + 0001:0018E97C InsertRemTextAtCursor + 0001:0034D204 InsertTab + 0002:0000588C InstBlockList + 0002:00005890 InstFreeList + 0001:002CD7EC InSyncNode + 0001:00017450 Int64Compare + 0001:00016A9C Int64Op + 0001:000F5CB4 IntArrayToString + 0001:0001743C IntCompare + 0002:00005860 IntConstList + 0002:00006E04 intDeviceLock + 0002:000011C8 IntegralHeights + 0001:002E0234 InteractiveRemindersActive + 0002:00003164 InteractiveRemindersActiveChecked + 0002:00003168 InteractiveRemindersActiveStatus + 0001:000F071C InterfaceConnect + 0001:000F07D4 InterfaceDisconnect + 0001:0030B494 Interim + 0001:0030B928 InterimGrid + 0001:0030B8AC InterimSelect + 0001:00006178 InterlockedDecrement + 0001:0000F448 InterlockedDecrement + 0001:000003FC InterlockedDecrement + 0001:0000F454 InterlockedExchange + 0001:00006180 InterlockedExchange + 0001:0000F45C InterlockedExchangeAdd + 0001:000003F4 InterlockedIncrement + 0001:00006188 InterlockedIncrement + 0001:0000F43C InterlockedIncrement + 0001:000CD2A4 InternalCalcLabelsIncrement + 0001:000CCEC0 InternalCalcPos + 0001:0002DB10 InternalDeletePalette + 0001:00134598 InternalDrawArea + 0001:000CFF38 InternalDrawLabel + 0001:000CF1D0 InternalDrawTick + 0001:00001D20 InternalFlush + 0001:00000D7C InternalFreeMem + 0001:00031AC4 InternalGetDIB + 0001:00031A28 InternalGetDIBSizes + 0002:000026FC InternalName + 0001:0001EF70 InternalReadComponentRes + 0001:000D295C InternalRemoveDataSource + 0002:00005B60 InternalServices + 0001:000D29DC InternalSetDataSource + 0001:00003ADC InternalUniqueString + 0001:00006590 IntersectClipRect + 0001:00005DD4 IntersectRect + 0001:00006A40 IntersectRect + 0001:00016984 IntOp + 0001:000D0024 IntPower + 0001:000383DC IntPower + 0001:00008D34 IntToHex + 0001:00008D5C IntToHex + 0001:0001EE20 IntToIdent + 0001:00008C20 IntToStr + 0001:00008D0C IntToStr + 0001:00006A48 InvalidateRect + 0001:001AD1C0 InvalidBcdString + 0001:00030840 InvalidBitmap + 0001:00030820 InvalidGraphic + 0001:0003084C InvalidIcon + 0001:00030858 InvalidMetafile + 0001:000E3FBC InvalidOp + 0001:00030800 InvalidOperation + 0001:00107E3C InvalidOperation + 0001:00344694 InvalidPCEProviderTxt + 0001:0001DBA4 InvalidPoint + 0001:0001DB78 InvalidPoint + 0002:000057A0 InvalidPointer + 0001:00377CD4 InverseByGroup + 0001:0037809C InverseChrono + 0001:001020C8 InvertStringList + 0001:0000279C InvokeImplGetter + 0002:000088AC ioctlsocket + 0001:000019FC IOResult + 0002:00001434 IOwnerDraw + 0002:00008FEC IR + 0002:0000141C IRadios + 0002:0000142C IRTL + 0001:000B62C0 IsAccel + 0001:000B13AC IsAccelChar + 0001:0001BF64 IsAccelerator + 0001:001B1A18 IsActivateOI + 0001:0034C8F8 IsActiveCode + 0001:0034C89C IsActiveICDCode + 0001:003428C0 IsAllOrdersNA + 0001:00100704 IsAMouseButtonDown + 0002:00005A20 IsAppThemed + 0001:001BAAC8 IsARTClinicalUser + 0001:00120C04 IsBaseContext + 0001:0009526C IsBeforeTargetWindow + 0001:0007D81C IsBlankSysTime + 0001:00351E40 IsCancelOrNoShow + 0001:00006A50 IsCharAlpha + 0001:00006A58 IsCharAlphaNumeric + 0001:00006A60 IsChild + 0001:00340AFC IsCIDCProvider + 0001:0006D03C IsClass + 0001:0037E9A0 IsClinicLoc + 0001:00369678 IsClinProcTitle + 0001:00006A68 IsClipboardFormatAvailable + 0001:0037D3FC IsCompletedPtEvt + 0001:0037BEEC IsComplexOrder + 0002:0000504C IsConsole + 0001:00369544 IsConsultTitle + 0001:0037D064 isDCedOrder + 0001:0002851C IsDefault + 0001:00028370 IsDefaultFloatProp + 0001:000C886C IsDefaultFont + 0001:000283D0 IsDefaultInt64Prop + 0001:000286DC IsDefaultInterfaceProp + 0001:000287C0 IsDefaultMethodProp + 0001:00028584 IsDefaultObjectProp + 0001:00028304 IsDefaultOrdProp + 0001:000288DC IsDefaultPropertyValue + 0001:00028430 IsDefaultStrProp + 0001:0002860C IsDefaultValue + 0001:00028844 IsDefaultVariantProp + 0001:0000E3A4 IsDelimiter + 0001:0009574C IsDelphiHandle + 0001:00006A70 IsDialogMessage + 0001:000185D4 IsDynArrayRectangular + 0002:00001424 ISeparators + 0001:00008168 IsEqualGUID + 0001:0001BEDC IsEqualIID + 0001:0037CE2C isExistedEvent + 0001:0013A9F4 IsFirstDoseNowOrder + 0001:0036D864 IsFMDate + 0001:001013DC IsFMDateTime + 0001:00159420 IsFormStayOnTop + 0001:00159B74 IsHandleOK + 0001:00343794 IsICD9CodeActive + 0001:00006A78 IsIconic + 0001:002A20F4 IsIMODialog + 0001:0037E7D8 IsIMOOrder + 0001:000B1440 IsInitialChar + 0001:0037E878 IsInptQO + 0001:0029DA1C IsInvalidActionWarning + 0001:001169D4 IsIPAddress + 0001:0037E90C IsIVQO + 0001:000E1F7C IsKatakana + 0001:0025D7FC IsLabCollectTime + 0001:0037A4B0 IsLatestAction + 0001:001286EC IsLeapYear + 0001:0000AC44 IsLeapYear + 0002:00005038 IsLibrary + 0001:000DF5A0 IsLiteralChar + 0001:0037CF80 isMatchedEvent + 0001:00001880 IsMemoryManagerSet + 0001:0007C09C IsMenuBar + 0002:0000504D IsMultiThread + 0001:00351ED4 IsNonCountClinic + 0001:001C2D40 IsNonORProcedure + 0001:0028882C IsNumeric + 0001:0028AE44 IsNumericRate + 0001:00130F04 IsNumericWeight + 0001:003448C4 IsOK2Sign + 0001:00191FD0 IsolationID + 0001:002BBF44 IsOnBox + 0001:0037D0F0 isOnholdMedOrder + 0001:003404B0 IsOrderBillable + 0001:000A3440 IsOrientationSet + 0001:0037D48C IsPassEvt + 0001:0037D52C IsPassEvt1 + 0001:0000E358 IsPathDelimiter + 0001:002A540C IsPFSSActive + 0002:000087E4 IsPregnant + 0001:003695E4 IsPRFTitle + 0001:0037B6B8 IsPSOSupplyDlg + 0001:0001A0F4 IsPublishedProp + 0001:00006A80 IsRectEmpty + 0001:00005E84 IsRectEmpty + 0001:0004EEE4 IsRelative + 0001:0013C014 IsRemDlgAllowed + 0001:0037BE4C IsRenewableComplexOrder + 0002:00008D64 IsRPL + 0002:00003324 IsRunExecuted + 0002:00006DF8 IsSharedBroker + 0001:000954C4 IsSiteChildOfClient + 0001:001A9AB4 IsSQLTimeStampBlank + 0001:001AA654 IsSqlTimeStampValid + 0001:0036D828 IsSSN + 0001:0001ABAC IsStoredProp + 0001:001C261C IsSurgeryTitle + 0001:002DC3C0 IsSyncPrompt + 0001:0013C69C IsTemplateFieldNameUnique + 0002:00005A1C IsThemeActive + 0002:000059C4 IsThemeBackgroundPartiallyTransparent + 0002:00005A2C IsThemeDialogTextureEnabled + 0002:000059C0 IsThemePartDefined + 0001:0007B090 IsToolButtonMouseMsg + 0002:00002E34 IsTransferAction + 0002:00002E20 IsUDGroup + 0001:0001EF38 IsUniqueGlobalComponentName + 0002:00005854 IsUniqueGlobalComponentNameProc + 0001:00351FEC IsUserAProvider + 0001:0035A3B4 IsUserNurseProvider + 0001:0013B17C IsUserTemplateEditor + 0001:0029E280 IsValidActionOnComplexOrder + 0001:00008B58 IsValidIdent + 0001:0037E730 IsValidIMOLoc + 0001:00143550 IsValidNumber + 0001:0037EAD8 IsValidQOSch + 0001:0037EA34 IsValidSchedule + 0001:0037EB50 IsValidSchStr + 0001:00206BC4 IsVis + 0001:0000E7EC IsWesternGroup + 0001:00006A88 IsWindow + 0001:00006A90 IsWindowEnabled + 0001:00006A98 IsWindowVisible + 0001:00006AA0 IsZoomed + 0001:000F5EA0 ItemTipKeyHook + 0001:000AC374 Iterate + 0001:000AC3E0 IterateMenus + 0002:00003318 itimson + 0002:00008ACC IVDisp + 0002:00000030 JITEnable + 0001:0036B190 JustifyDocumentDelete + 0001:000B6228 KeyboardStateToShiftState + 0001:000B6294 KeyboardStateToShiftState + 0001:000B61E0 KeyDataToShiftState + 0001:000B6184 KeysToShiftState + 0001:0022D6B8 KillCaseTreeNode + 0001:0022D63C KillCaseTreeObjects + 0001:002AB468 KillDocTreeNode + 0001:002AB3EC KillDocTreeObjects + 0001:002940B0 KillDrug + 0001:0027B400 KillDrug + 0001:00104A0C KillObj + 0001:002BBA14 KillReminderDialog + 0002:00003100 KillReminderDialogProc + 0001:003708C0 KillRPLPtList + 0001:00006AA8 KillTimer + 0002:000011F0 Kinds + 0001:0025D89C LabCollectFutureDays + 0001:0031E55C LabelSurrogate + 0001:00009320 LastDelimiter + 0002:00008E28 LastDFN + 0002:00008E2C LastLocation + 0002:00005B40 LastMenuItem + 0002:00005B44 LastMousePos + 0002:00008788 LastNode + 0002:00003160 LastProcessingList + 0002:00003140 LastReminderLocation + 0001:0036AFC4 LastSaveClean + 0002:00002408 LastStayOnTop + 0002:00008E98 LastTab + 0002:00002FE4 LastTemplateLocation + 0002:000070F4 LastX + 0002:000070F8 LastY + 0001:0000E6F4 LCIDToCodePage + 0001:00005984 LCIDToCodePage + 0002:00000118 LeadBytes + 0001:00000478 LeaveCriticalSection + 0001:000062D0 LeaveCriticalSection + 0001:000E49B4 LeftSide + 0001:0004A924 LeftStr + 0001:001AB9A0 LeftTrim + 0001:0037BC94 LESValidationForChangedLabOrder + 0001:003524F4 LexiconLookup + 0001:0034C6D8 LexiconToCode + 0002:00008F40 lexIENHoldList + 0001:001162E0 libClose + 0001:00116300 libGetHostIP1 + 0002:00002458 LIBID_CPRSChart + 0002:00000038 LibModuleList + 0001:0011627C libOpen + 0001:0010955C LicenseCheck + 0001:001030DC LimitEditWidth + 0001:00102EF8 LimitStringLength + 0001:000E7D34 LinePos + 0002:00000E24 LineStyles + 0001:000065A0 LineTo + 0002:000030C0 LinkGlobal + 0002:000030D0 LinkPassCode + 0001:002EEFEC ListActiveProblems + 0001:00051B04 ListActns + 0001:00096490 ListAdd + 0001:0037187C ListAdmitAll + 0001:002EF5B8 ListAllBackGround + 0001:002EF15C ListAllergies + 0001:00371794 ListApptAll + 0001:0036F350 ListClinicTop + 0001:002A6520 ListClinProcTitlesShort + 0001:0036A268 ListConsultRequests + 0001:002A6194 ListConsultTitlesShort + 0001:0034EAC8 ListCPTModifiers + 0001:0036DBF4 ListDateRangeClinic + 0001:0037AB04 ListDCReasons + 0001:0021B8C8 ListDCSummTitlesShort + 0001:00378424 ListDGroupAll + 0001:0034D860 ListDiagnosisCodes + 0001:0034D6FC ListDiagnosisSections + 0001:0010DA84 listen + 0002:000088CC listen + 0001:003502E0 ListExamsCodes + 0001:00350170 ListExamsSections + 0001:001B16B4 ListForOrderable + 0001:001B1A98 ListForQuickOrders + 0001:002EEB58 ListGeneric + 0001:00104838 ListGridDrawCell + 0001:001048F8 ListGridDrawLines + 0001:0034FDBC ListHealthCodes + 0001:0034FC4C ListHealthSections + 0001:0017E650 ListHealthSummaryTypes + 0001:0017E7E8 ListImagingExams + 0001:0034E2DC ListImmunizCodes + 0001:0034E16C ListImmunizSections + 0002:00008F5C ListItem + 0001:000508E8 ListItemsCompare + 0001:0017E594 ListLabReports + 0001:0034C7B4 ListLexicon + 0002:00003378 ListMinMax + 0001:0036A32C ListNotesForTree + 0001:00369718 ListNoteTitlesShort + 0001:0017ECFC ListNutrAssessments + 0001:00378A14 ListOrderFiltersAll + 0001:0034FB08 ListPatientCodes + 0001:0034F998 ListPatientSections + 0001:002EF1C0 ListPostings + 0001:0034E510 ListProcedureCodes + 0001:0017EAA8 ListProcedures + 0001:0034E3A0 ListProcedureSections + 0001:0036F18C ListProviderTop + 0001:0036F9D4 ListPtByClinic + 0001:0036F480 ListPtByDflt + 0001:0037021C ListPtByFullSSN + 0001:0036FE50 ListPtByLast5 + 0001:0036FD00 ListPtByOther + 0001:0036F844 ListPtByProvider + 0001:00370478 ListPtByRPLFullSSN + 0001:00370034 ListPtByRPLLast5 + 0001:0036F94C ListPtBySpecialty + 0001:0036F8CC ListPtByTeam + 0001:0036FDB8 ListPtByTimson + 0001:0036FC10 ListPtByWard + 0001:003706D8 ListPtTop + 0001:000964C8 ListRemove + 0001:0017E630 ListReportDateRanges + 0001:0017E4E8 ListReports + 0001:003507D8 ListSCDisabilities + 0002:00005756 ListSeparator + 0001:0034F854 ListSkinCodes + 0001:0034F6E4 ListSkinSections + 0001:00378478 ListSpecialtiesED + 0001:0036F080 ListSpecialtyAll + 0002:00000FB0 ListStyles + 0001:0021BD28 ListSummsForTree + 0001:001C2848 ListSurgeryCases + 0001:0017EE68 ListSurgeryReports + 0001:001C2470 ListSurgeryTitlesShort + 0001:00367C44 ListSymbolTable + 0001:0036F0E4 ListTeamAll + 0001:0013EAD8 ListTemplateFields + 0001:00039144 ListView_Arrange + 0001:00039288 ListView_CreateDragImage + 0001:00038F8C ListView_DeleteAllItems + 0001:000391F8 ListView_DeleteColumn + 0001:00038F60 ListView_DeleteItem + 0001:000390A4 ListView_EnsureVisible + 0001:00038FEC ListView_FindItem + 0001:00039430 ListView_GetCheckState + 0001:000395E8 ListView_GetColumnOrderArray + 0001:00039224 ListView_GetColumnWidth + 0001:00039338 ListView_GetCountPerPage + 0001:00039170 ListView_GetEditControl + 0001:00039674 ListView_GetHoverTime + 0001:00038EDC ListView_GetItem + 0001:00038E98 ListView_GetItemCount + 0001:0003901C ListView_GetItemRect + 0001:00039400 ListView_GetItemState + 0001:00038FB4 ListView_GetNextItem + 0001:00039360 ListView_GetOrigin + 0001:00039564 ListView_GetSelectedCount + 0001:00039310 ListView_GetTopIndex + 0001:00039078 ListView_HitTest + 0001:000391C8 ListView_InsertColumn + 0001:00038F34 ListView_InsertItem + 0001:00039114 ListView_RedrawItems + 0001:000390E4 ListView_Scroll + 0001:00038E3C ListView_SetBkColor + 0001:00039464 ListView_SetCheckState + 0001:00039198 ListView_SetColumn + 0001:000395B8 ListView_SetColumnOrderArray + 0001:00039250 ListView_SetColumnWidth + 0001:0003958C ListView_SetExtendedListViewStyle + 0001:00039648 ListView_SetHoverTime + 0001:00038E68 ListView_SetImageList + 0001:00038F08 ListView_SetItem + 0001:000394E4 ListView_SetItemCount + 0001:00039508 ListView_SetItemCountEx + 0001:000393C0 ListView_SetItemState + 0001:000394A4 ListView_SetItemText + 0001:000392E4 ListView_SetTextBkColor + 0001:000392B8 ListView_SetTextColor + 0001:00039618 ListView_SetWorkAreas + 0001:00039534 ListView_SortItems + 0001:0003938C ListView_Update + 0001:0034D450 ListVisitTypeByLoc + 0001:0034D2F4 ListVisitTypeCodes + 0001:0034D094 ListVisitTypeSections + 0001:0036F140 ListWardAll + 0002:000005CC LNextVarType + 0001:0013A500 LoadActiveMedLists + 0001:001B1D28 LoadAdminInfo + 0001:001B96F8 LoadAllergyForEdit + 0001:00006AB0 LoadBitmap + 0001:003697C4 LoadBoilerPlate + 0001:00350FEC LoadcboOther + 0001:000CA73C LoadClassBitmap + 0001:002A6344 LoadClinProcTitles + 0001:000F089C LoadComExProcs + 0001:002A6884 LoadConsultDetail + 0001:002A81AC LoadConsultForEdit + 0001:00342B84 LoadConsultOrderRec + 0001:002A5FB8 LoadConsultTitles + 0001:002EE6D8 LoadCoverSheetList + 0001:00006AB8 LoadCursor + 0001:0021BA24 LoadDCSummPrefs + 0001:0021B6EC LoadDCSummTitles + 0001:0021C534 LoadDCUrgencies + 0001:002EF908 LoadDemographics + 0001:0036A460 LoadDetailText + 0001:00375AC8 LoadDGroupMap + 0001:002A3524 LoadDialogDefinition + 0001:00191960 LoadDietParams + 0001:001920A8 LoadDietQuickList + 0001:0036A40C LoadDocumentText + 0001:001450CC LoadECSReportText + 0001:0034CA94 LoadEncounterForm + 0001:001B5C6C LoadFilterList + 0001:0037ADC8 LoadFlagReason + 0001:002A57E4 LoadFormularyAlt + 0001:001B1CB0 LoadFormularyAltDose + 0001:001B1C48 LoadFormularyAltOI + 0001:0034FBCC LoadHFLevelItems + 0001:0034FF00 LoadHistLocations + 0001:00006AC0 LoadIcon + 0001:0034E06C LoadImmReactionItems + 0001:0034E0EC LoadImmSeriesItems + 0002:000071F8 Loading + 0001:00192058 LoadIsolations + 0001:00006AC8 LoadKeyboardLayout + 0001:0017E3F4 LoadLabReportLists + 0001:0025D618 LoadLabTestData + 0001:000062D8 LoadLibrary + 0001:0000038C LoadLibraryEx + 0001:0018DDC0 LoadMentalHealthTest + 0001:00369368 LoadNoteTitles + 0001:0036E638 LoadNotifications + 0001:00379298 LoadOrderMenu + 0001:002A3894 LoadOrderPrompting + 0001:00376D8C LoadOrdersAbbr + 0001:003767CC LoadOrdersAbbr + 0001:00379650 LoadOrderSet + 0001:00377220 LoadOrderSheetsED + 0001:00377390 LoadOrderViewDefault + 0001:00350834 LoadPCEDataForNote + 0001:0034F918 LoadPEDLevelItems + 0001:002A309C LoadQuickListForOD + 0001:0001BF84 LoadRegTypeLib + 0001:002DCEE8 LoadReminderData + 0001:0037B8BC LoadRenewFields + 0001:0017E304 LoadReportLists + 0001:0017F0FC LoadReportText + 0001:000062E0 LoadResource + 0001:00005040 LoadResourceModule + 0001:002A4018 LoadResponses + 0001:0000592C LoadResString + 0001:001216D0 LoadRPCData + 0001:0025D690 LoadSamples + 0001:001B1E40 LoadSchedules + 0001:002A7BC8 LoadServiceList + 0001:002A7C94 LoadServiceListWithSynonyms + 0001:002A7C1C LoadServiceListWithSynonyms + 0001:00367F88 LoadSizes + 0001:0034F664 LoadSkResultsItems + 0001:0025D72C LoadSpecimens + 0001:00000394 LoadString + 0001:00006AD0 LoadString + 0001:001C227C LoadSurgeryTitles + 0001:001C299C LoadSurgReportDetail + 0001:001C2948 LoadSurgReportText + 0001:002CFEE4 LoadTemplateData + 0001:0013BED0 LoadTemplateDescription + 0001:0013C280 LoadTemplateField + 0001:0013C2C8 LoadTemplateFieldByIEN + 0001:00369978 LoadTIUPrefs + 0001:0017E470 LoadTree + 0001:0001BF7C LoadTypeLib + 0001:001932DC LoadTypeLibrary + 0001:00341264 LoadUnsignedOrderRec + 0001:00377558 LoadUnsignedOrders + 0001:00375020 LoadURLMon + 0001:0037AE7C LoadWardComments + 0001:0037978C LoadWriteOrders + 0001:003797E4 LoadWriteOrdersED + 0001:0034FE80 LoadXAMResultsItems + 0001:00000448 LocalAlloc + 0001:00005B28 LocalAlloc + 0001:00000450 LocalFree + 0001:0000CB48 LocalGetLocaleStr + 0001:002DFAA4 LocationChanged + 0001:00258E60 LocationType + 0002:00005A54 Lock + 0001:0036AEC8 LockDocument + 0001:0029D4B4 LockedForOrdering + 0001:0037A1D4 LockOrder + 0001:0037A06C LockPatient + 0001:000062E8 LockResource + 0001:0013C0B0 LockTemplate + 0001:0013C3EC LockTemplateField + 0002:00007368 LocType + 0001:000D0054 LogBaseN + 0001:001AEFCC LoginDialog + 0001:001AF0EC LoginDialogEx + 0002:000071C0 LoginDialogExProc + 0002:000071BC LoginDialogProc + 0001:0011B0BC Loginfrm + 0002:00006E08 LoginfrmSignOnBroker + 0001:00371034 LogSensitiveRecordAccess + 0002:00005698 LongDateFormat + 0002:0000572C LongDayNames + 0002:000056E0 LongMonthNames + 0001:000E4610 LongMulDiv + 0002:000056AC LongTimeFormat + 0001:001D49A4 LookupLocation + 0001:002A5844 LookupRoute + 0001:00008298 LowerCase + 0001:001015F4 LowerOf + 0001:000F5B2C LowerOf + 0001:0010DDE4 LPack + 0001:00006598 LPtoDP + 0002:00005CA8 LresultFromObject + 0002:00008874 LRFDATE + 0002:00008824 LRFDATE + 0002:0000886C LRFSAMP + 0002:0000881C LRFSAMP + 0002:0000887C LRFSCH + 0002:0000882C LRFSCH + 0002:00008820 LRFSPEC + 0002:00008870 LRFSPEC + 0002:00008828 LRFURG + 0002:00008878 LRFURG + 0002:00008818 LRFZX + 0002:00008868 LRFZX + 0002:00008880 LRORDERMODE + 0001:00006380 lstrcmp + 0001:00006388 lstrcpy + 0001:0000039C lstrcpyn + 0002:00005828 LVarTypes + 0002:0000582C LVarTypeSync + 0001:00103248 MainFont + 0001:00103350 MainFontHeight + 0001:0010327C MainFontSize + 0001:00103338 MainFontWidth + 0002:00005030 MainInstance + 0002:00005034 MainThreadID + 0001:002AA368 MakeBold + 0001:0022D774 MakeCaseTreeObject + 0001:00122A98 MakeConsultDisplayText + 0001:0012C6C8 MakeConsultListDisplayText + 0001:0012C2C8 MakeConsultListItem + 0001:0012C7AC MakeConsultNoteDisplayText + 0001:002ABCC8 MakeConsultsNoteTreeObject + 0001:0013AE28 MakeDCSummDisplayText + 0001:002AB958 MakeDCSummTreeObject + 0001:000004D8 MakeEmpty + 0001:00003364 MakeErrorMessage + 0001:00101484 MakeFMDateTime + 0002:00001338 MakeLast + 0001:00006D00 MakeLong + 0001:00006EF0 MakeLParam + 0001:0029E1F4 MakeMessage + 0001:00122B7C MakeNoteDisplayText + 0001:002AB654 MakeNoteTreeObject + 0001:0002C3BC MakeObjectInstance + 0001:000B6124 MakeObjectInstance + 0001:00143B88 MakeProcedureTreeObject + 0001:0036D95C MakeRelativeDateTime + 0001:001431C0 MakeReportTreeObject + 0001:00006DD4 MakeROP4 + 0001:0037079C MakeRPLPtList + 0001:000D75C0 MakeSaveState + 0001:000EC0B0 MakeSec + 0001:001C1E90 MakeSurgeryCaseDisplayText + 0001:001C1FE0 MakeSurgeryReportDisplayText + 0001:00006EC8 MakeWParam + 0001:002D7708 MakeXMLParamTIU + 0001:002D7984 MakeXMLParamTIU + 0001:0000D860 MapException + 0001:0004F9B0 Mapi + 0002:00000D8C MAPIDLL + 0002:00000D90 MAPIModule + 0001:0000306C MapToRunError + 0001:00006AD8 MapVirtualKey + 0001:00006AE0 MapWindowPoints + 0001:002D1870 MarkDeleted + 0001:002420E0 MarkEnteredInError + 0001:001592D8 MarkFormAsStayOnTop + 0001:001BAA84 MarkIDBand + 0002:00001370 Mask + 0001:000E2930 Mask + 0001:000065A8 MaskBlt + 0001:000DF084 MaskDoFormatText + 0002:00001728 MaskFieldSeparator + 0001:000DEE04 MaskGetCharType + 0001:000DEFA4 MaskGetCurrentDirectives + 0001:000DF3A0 MaskGetMaskBlank + 0001:000DF2E4 MaskGetMaskSave + 0001:000DF050 MaskIntlLiteralToChar + 0002:0000172C MaskNoSave + 0001:000DF4C4 MaskOffsetToOffset + 0001:000DF420 MaskOffsetToString + 0001:000DF9F8 MaskUtils + 0001:00038494 Math + 0001:00038438 Max + 0001:000E8134 Max + 0001:0025D76C MaxDays + 0001:000C7C50 MaxDouble + 0002:00008F24 MaxDx + 0001:000B99BC MaximizedChildren + 0001:000CDC38 MaxLabelsValueWidth + 0001:000C7CB8 MaxLong + 0001:000C8758 MaxLong + 0002:00002014 MAX_CONFIRM_FAIL + 0001:001BEDC4 mCoPayDesc + 0001:00196CB0 MealTimePassed + 0001:003710D4 MeansTestRequired + 0001:00139EF4 MedAdminHistory + 0001:002A590C MedIsSupply + 0002:0000843C MedResult + 0002:00008AC0 MedsDisp + 0002:00008AEC MedsInDlgFormId + 0002:00008AE0 MedsInDlgIen + 0002:00008AFC MedsIVDlgFormID + 0002:00008AF8 MedsIVDlgIen + 0002:00008AF4 MedsNVADlgFormID + 0002:00008AE8 MedsNVADlgIen + 0002:00008AF0 MedsOutDlgFormId + 0002:00008AE4 MedsOutDlgIen + 0001:00139F8C MedStatusGroup + 0001:002A599C MedTypeIsIV + 0002:0000330C MED_TYPE + 0002:00000040 MemoryManager + 0001:0018DE4C MentalHealthTestResults + 0002:0000842C MenuAccessRec + 0001:00185314 MenuBar + 0002:00005B3C MenuButtonIndex + 0001:00104AEC menuHideAllBut + 0002:0000138C MenuKeyCaps + 0001:000B29E4 Menus + 0002:00005B34 MenuToolBar + 0002:00005B38 MenuToolBar2 + 0001:00000528 MergeBlockAfter + 0001:00000FF4 MergeCommit + 0001:00006AE8 MessageBeep + 0001:00006AF0 MessageBox + 0001:00000334 MessageBox + 0001:00043378 MessageDlg + 0001:000433B0 MessageDlgPos + 0001:000433EC MessageDlgPosHelp + 0001:00007160 Messages + 0001:001EF78C mEvntDelay + 0001:0010CC7C MFunStr + 0001:003514F8 MHClinic + 0001:003519B8 MHTestAuthorized + 0001:00351914 MHTestsOK + 0002:00008C78 MHVFlag + 0001:0030B6A0 Micro + 0001:001AFF18 Midas + 0001:001AFE78 MidConst + 0001:0014D218 MilliSecondsBetween + 0001:0014D2CC MilliSecondSpan + 0001:0018C17C mImgText + 0001:000E8100 Min + 0001:0003840C Min + 0001:0002024C Min + 0001:000C7C84 MinDouble + 0002:00002028 MINIMUM_TIMEOUT + 0001:000C7CC0 MinLong + 0001:000E7530 MinRedraw + 0001:0009B2DC MinVar + 0002:0000201C MIN_RPCTIMELIMIT + 0001:00344778 MissingProviderInfo + 0001:00102118 MixedCase + 0001:00102284 MixedCaseByPiece + 0001:001021F4 MixedCaseList + 0001:0034E688 MixedCaseModifier + 0002:0000593C MMAvailable + 0002:00000B24 ModalResults + 0001:00181CCC ModelessReportBox + 0002:00001350 ModeMap + 0001:0034F014 ModifierCode + 0001:0034E718 ModifierIdx + 0001:0034E860 ModifierList + 0001:0034EF7C ModifierName + 0001:000E43A0 ModifyExtents + 0001:001813FC ModifyHDRData + 0001:000E8378 ModifyPixelScrollBar + 0001:0003E690 ModifySystemMenu + 0001:000BBE98 ModifySystemMenu + 0002:000000B0 Module + 0002:00005665 ModuleIsCpp + 0002:00005664 ModuleIsLib + 0001:0002BC40 ModuleUnload + 0002:0000003C ModuleUnloadList + 0002:00001558 MonitorDefaultFlags + 0002:00005918 MonitorFromPoint + 0002:00005914 MonitorFromRect + 0002:00005910 MonitorFromWindow + 0001:00039C98 MonthCal_GetMinReqRect + 0001:00039CC4 MonthCal_SetColor + 0001:00039C14 MonthCal_SetCurSel + 0001:00039CF4 MonthCal_SetFirstDayOfWeek + 0001:00039C40 MonthCal_SetMaxSelCount + 0001:00039D50 MonthCal_SetMonthDelta + 0001:00039D20 Monthcal_SetRange + 0001:00039C6C MonthCal_SetSelRange + 0002:000000E8 MonthDays + 0002:00002DE4 monthnames + 0002:00002D94 monthnames + 0002:000022B4 Months + 0002:000019BC MONTH_NAMES_LONG + 0002:0000198C MONTH_NAMES_SHORT + 0002:00005B80 Mouse + 0002:00001EFC MouseMap + 0001:00001A1C Move + 0001:000ED3CC MoveColData + 0001:00278AC8 MoveCombo + 0001:000E4514 MoveExtent + 0001:001AD710 MoveNibbles + 0001:000065B0 MoveToEx + 0001:00006AF8 MoveWindow + 0001:00096504 MoveWindowOrg + 0001:00367D48 MScalar + 0001:00249790 Msg + 0001:00006B00 MsgWaitForMultipleObjects + 0002:0000343C MSG_TYPE + 0001:0014C650 MSHTML + 0002:00008FF0 MST + 0002:000032A0 MSTDescTxt + 0002:000070C4 MSWord + 0001:0013ACD4 MSXML_TLB + 0001:0013D04C mTemplateFieldButton + 0001:000062F0 MulDiv + 0001:00112364 MultDiv + 0001:000003AC MultiByteToWideChar + 0001:000062F8 MultiByteToWideChar + 0002:00002048 MultiCaster + 0002:000011D0 MultiColumns + 0001:000C2A38 MultiLineWidth + 0001:0003A620 MultiMon + 0002:00000EB4 MultiSelections + 0002:000011B8 MultiSelects + 0002:0000100C MultiSelFlags + 0001:0012E5A0 mVisitRelated + 0001:0037F5E0 mVitAll + 0001:0012F4F8 mVitBase + 0001:0037F500 mVitBP + 0001:0037F3B0 mVitCirGirth + 0001:0037F3E8 mVitCVP + 0001:0037F4C8 mVitHeight + 0001:0012F530 mVitMetric + 0001:0037F458 mVitPain + 0001:0037F420 mVitPO2 + 0001:0037F570 mVitPulse + 0001:0037F538 mVitResp + 0001:0037F5A8 mVitTemp + 0001:0037F490 mVitWeight + 0002:00002FD0 MyTemplate + 0001:003760E4 NameOfDGroup + 0001:00375B24 NameOfStatus + 0001:0028E468 NameValueToOrderSet + 0001:0028E330 NameValueToViewList + 0002:00001E7C NC_TV_TEXT + 0002:00005C98 NeedToUninitialize + 0002:0000568D NegCurrFormat + 0001:0010ECB4 NetBlockingHook + 0002:00005D74 NetCallPending + 0002:00005D78 NetTimerStart + 0001:00246494 NewComment + 0001:00001080 NewCommit + 0001:000010AC NewCommitAt + 0002:00008E18 newDxLst + 0002:000070C0 NewList + 0002:00008678 NewRec + 0002:0000830C NewRec + 0002:00008224 NewRec + 0001:0018EA24 NewRemCoverSheetListActive + 0002:00000D78 NewState + 0001:000EBE3C NewStrItem + 0002:00005B84 NewStyleControls + 0001:0000E304 NextCharIndex + 0001:000C86DC NextDateTimeStep + 0001:001AC7F4 NextDigit + 0001:00142198 NextLine + 0001:002E3774 NextLine + 0001:002A20D4 NextMove + 0002:00008E94 NextTab + 0001:00183AF0 NextTabCtrl + 0001:000A340C NextVisibleZone + 0001:0001AE70 NextWord + 0002:0000062C NilMethod + 0001:002EF8B0 NoDataText + 0002:00002FF0 NodeCount + 0001:00069F88 NodeInList + 0002:00000034 NoErrMsg + 0002:00002E24 NoFresh + 0002:00002018 NoMore + 0002:00002030 NoMore + 0002:0000900C NonBillableOrderList + 0002:00008ADC NonVADisp + 0001:001B0E3C NoPrimaryPCEProvider + 0001:000AD4DC NormalDraw + 0001:001AD778 NormalizeBcd + 0001:001ADA78 NormalizeBcdPair + 0001:001AD090 NormalizeFractions + 0001:0011E378 NoSignOnNeeded + 0001:0036D4DC NoteHasText + 0002:000090C0 Notifications + 0001:00002B60 NotifyAnyExcept + 0001:0002081C NotifyDesigner + 0001:00002B34 NotifyExcept + 0001:00002B94 NotifyExceptFinally + 0001:0001F07C NotifyGlobalLoading + 0002:00002044 NotifyLists + 0001:00005370 NotifyModuleUnload + 0001:00002B10 NotifyNonDelphiException + 0001:00002B4C NotifyOnExcept + 0001:00372970 NotifyOtherApps + 0001:00002AF4 NotifyReRaise + 0001:00002BBC NotifyTerminate + 0001:00002BD8 NotifyUnhandled + 0001:002BB420 NotifyWhenProcessingReminderChanges + 0001:002DC3DC NotifyWhenRemindersChange + 0002:00008C5C NotPurposeValue + 0001:0000B0BC Now + 0002:00002660 NO_YES + 0002:00008B00 NSSchedule + 0001:000B0BEC NthParentOf + 0002:000088D0 ntohl + 0002:000088D4 ntohs + 0001:0010DA8C ntohs + 0001:00019B98 Null + 0002:00000438 NullAsStringValue + 0001:00017354 NullCompare + 0002:0000042C NullEqualityRule + 0002:00000430 NullMagnitudeRule + 0001:00016C94 NullOp + 0002:000024E8 NullSQLTimeStamp + 0002:00000434 NullStrictConvert + 0001:001AD8D8 NumberOfDigits + 0001:00104450 NumCharsFitInWidth + 0002:00008AC8 NurDisp + 0001:000284C0 ObjectAncestorMatch + 0001:00121C80 ObjectCreated + 0001:000943FC ObjectFromHWnd + 0001:001F08C8 ObtainEffectiveDate + 0001:001B9570 ODForAllergies + 0001:002A7AE4 ODForConsults + 0001:002A5A78 ODForIVFluids + 0001:0025D5C8 ODForLab + 0001:002A5A30 ODForMedIn + 0001:002A5B14 ODForMedOut + 0001:001B2258 ODForMedsIn + 0001:001B22C4 ODForMedsOut + 0001:002A7B28 ODForProcedures + 0001:00258AF8 ODForRad + 0001:002A5E3C ODForVitals + 0002:000010D8 OEMConverts + 0001:00006B08 OemToAnsi + 0001:0014DEA4 Office2000 + 0001:0014D3AC Office97 + 0001:00006B10 OffsetRect + 0001:00005EB8 OffsetRect + 0001:000DF520 OffsetToMaskOffset + 0001:001B2330 OIForMed + 0001:002A5B5C OIForMedIn + 0001:002A5BC4 OIForMedOut + 0001:00296C7C OIForNVA + 0001:002A49EC OIMessage + 0001:0031535C OkFloatValue + 0001:002F45D0 OkFloatValue + 0001:0031DD6C OKToday + 0002:000081B4 oldFont + 0002:000070BC OldList + 0001:001B677C OldProblemLexiconSearch + 0002:000085E0 OldRec + 0002:000081C4 OldRec + 0002:000082AC OldRec + 0002:00005CAC OleAccHandle + 0002:0000714C OleAutHandle + 0001:000F0300 OleCheck + 0001:00105DE4 OleConst + 0001:001081E0 OleCreateFontIndirect + 0001:00108220 OleCreatePictureIndirect + 0001:0010C0F0 OleCtrls + 0001:0001BF5C OleDraw + 0001:000F02DC OleError + 0001:00108C14 OleFontToFont + 0001:00108264 OleLoadPicture + 0002:00005D28 OlePro32DLL + 0001:001068E0 OleServer + 0001:0001BF54 OleSetMenuDescriptor + 0001:000046AC OleStrToStrVar + 0002:00005C8C OleUninitializing + 0001:00016210 OleVarFromAny + 0001:00016274 OleVarFromVarArrayProc + 0001:0036C6E4 OneNotePerVisit + 0001:0014F940 onoff + 0001:00006B18 OpenClipboard + 0002:000009A8 OpenOptions + 0002:00000A00 OpenOptionsEx + 0001:0003B894 OpenPrinter + 0002:0000598C OpenThemeData + 0001:00196E30 OPMealTimePassed + 0002:00000474 OpTypeMap + 0002:00005CC4 ORCBImages + 0001:001228A8 ORClasses + 0001:0010091C ORCtrls + 0001:0029D5C0 OrderCanBeLocked + 0001:0037DB18 OrderChecksEnabled + 0001:0037DD90 OrderChecksForSession + 0001:0037DC68 OrderChecksOnAccept + 0001:0037DBAC OrderChecksOnDisplay + 0001:003798A4 OrderDisabledMessage + 0001:0018F3A0 OrderEventIDOnCreate + 0001:0018F38C OrderEventNameOnCreate + 0001:0018F37C OrderEventTypeOnCreate + 0001:001E6D94 OrderForInpatient + 0001:0018F36C OrderFormIDOnCreate + 0002:00008FA8 OrderIDList + 0001:002A18CC OrderIsLocked + 0001:0037B828 OrderIsReleased + 0001:00191F3C OrderLateTray + 0002:00009010 OrderListSCEI + 0001:002A4A88 OrderMenuStyle + 0001:0037DF38 OrderPrintDeviceInfo + 0001:0037C6E8 OrderRequiresDigitalSignature + 0001:00341BD8 OrderRequiresSCEI + 0001:0037C654 OrderRequiresSignature + 0001:0034112C OrdersHaveDx + 0002:00002E2C OrderSource + 0001:00238E80 OrdersSignedOrReleased + 0001:00238F74 OrdersToBeSignedOrReleased + 0001:0012A34C ORDtTm + 0001:0012611C ORDtTmCal + 0001:0012AEEC ORDtTmRng + 0001:00104C64 ORFn + 0002:00001330 OrientArray + 0002:00008B08 OriginalMedsInHeight + 0002:00008B04 OriginalMedsOutHeight + 0002:00008B0C OriginalNonVAMedsHeight + 0002:00008188 OrigInPtSecWidths + 0002:0000819C OrigNonVASecWidths + 0002:0000816C OrigOutPtSecWidths + 0002:00009040 origWidths + 0002:00008744 origWidths + 0001:001217EC ORNet + 0001:00105AC0 ORSystem + 0001:002FBAC8 OtherLookup + 0002:000030F4 OtherReminders + 0002:00000978 OuterStyles + 0002:0000114C OuterStyles + 0002:000012FC OuterStyles + 0002:0000579C OutOfMemory + 0001:0000D3D0 OutOfMemoryError + 0001:00030864 OutOfResources + 0001:00192314 OutpatientLocationConfigured + 0001:001921A8 OutpatientPatchInstalled + 0002:00008ABC OutptDisp + 0002:0000521C Output + 0001:001AAD88 OverflowError + 0001:00028E14 OwnedBy + 0001:00367EC4 PackageVersion + 0002:0000043C PackVarCreation + 0001:000DF7A8 PadInputLiterals + 0001:000DF5E8 PadSubField + 0001:000E81C8 PageDown + 0001:000E815C PageUp + 0002:00000E90 Painting + 0002:00002010 Painting + 0001:0008F36C PaintListBox + 0002:00000928 Pal16 + 0001:0002DFBC PaletteChanged + 0001:00031188 PaletteFromDIBColorTable + 0001:00031268 PaletteToDIBColorTable + 0002:00000924 PalSize + 0001:000DCD90 PanAxis + 0001:0014140C PanelDestroy + 0001:00001B48 ParamCount + 0001:0010544C ParamIndex + 0001:00105518 ParamSearch + 0001:00001BA8 ParamStr + 0001:000E485C ParentEvent + 0001:000A39E8 ParentNotLast + 0001:0001945C ParseParam + 0001:002C03A4 ParseText + 0002:00006E34 PassCode1 + 0002:00006E38 PassCode2 + 0001:001AF7A0 PasswordDialog + 0002:000071CC PasswordDialog + 0002:000010B4 Passwords + 0001:000065B8 PatBlt + 0002:000090B0 Patient + 0001:00319844 PatientInquiry + 0001:00258CAC PatientOnIsolationProcedures + 0002:000058F4 PatternManager + 0002:0000171C PatternPalette + 0002:00003334 PCEDataCatText + 0001:0034503C PCELoadORCombo + 0001:0034504C PCELoadORCombo + 0001:00344F78 PCELoadORComboData + 0002:00008C68 PCERootList + 0001:00351384 PCERPCEncLocation + 0002:00003370 PCESetsOfCodes + 0002:00003328 PCETypeText + 0001:00006B20 PeekMessage + 0002:000058E8 PenManager + 0002:000008F4 PenModes + 0002:000008D4 PenStyles + 0001:00094794 PerformEraseBackground + 0001:002C016C PerformMHTest + 0001:00248DF8 Permanent + 0002:000070DC PersObjects + 0002:00008F38 PersonalDxHoldList + 0001:0036DE38 PersonHasKey + 0001:0013A8EC PickUpDefault + 0001:001E6CE4 PickupText + 0002:0000217C PiDegree + 0001:000065C0 Pie + 0001:0010CABC Piece + 0001:00102348 Piece + 0001:000F5B38 Piece + 0001:001023DC Pieces + 0001:001025E8 PiecesToList + 0002:00002184 PieSampleStr + 0001:0028A824 PlaceControl + 0001:0032A8D0 PlaceControl + 0001:001A51F8 PlaceControl + 0001:0019A798 PlaceControl + 0001:0027D35C PlaceControl + 0001:000065C8 PlayEnhMetaFile + 0002:00009000 PLFactorsIndexes + 0002:00007250 PLFilters + 0002:00008F70 PLlist + 0002:00007254 PLProblem + 0002:0000723C PLPt + 0002:00007240 PLUser + 0002:00002658 PL_IP_VIEW + 0002:00002654 PL_OP_VIEW + 0002:0000265C PL_UF_VIEW + 0001:00005DB0 Point + 0001:0001DAD4 Point + 0001:0001E030 PointerInModule + 0001:000CA1E8 PointInEllipse + 0001:000E4064 PointInGridRect + 0001:00133E98 PointInHorizLine + 0001:000CA168 PointInHorizTriangle + 0001:000CA038 PointInLine + 0001:000C9EA4 PointInLineTolerance + 0001:000CA050 PointInPolygon + 0001:000CA0E8 PointInTriangle + 0001:00133E80 PointInVertLine + 0001:0009D1F8 PointsEqual + 0001:00006EA0 PointToSmallPoint + 0001:000065D8 Polygon + 0001:000065E0 Polyline + 0001:000065D0 PolyPolyline + 0001:0018F3DC PopKeyVars + 0001:002A1A44 PopLastMenu + 0001:0010458C PopupComponent + 0002:00005C10 PopupList + 0002:00002E54 PositionList + 0001:00006B28 PostMessage + 0001:00006B30 PostQuitMessage + 0001:00006B38 PostThreadMessage + 0002:00002548 Power10 + 0002:00007244 pProviderID + 0002:0000724C pProviderName + 0002:00005D84 Prefix + 0001:00119EBC PrepareSignonForm + 0001:000DC110 PrepareWallCanvas + 0001:003429A0 PrepOrderID + 0001:002E06B8 PrepText4NextLine + 0002:00008F64 PrimaryChanged + 0002:0000316C PrimaryDiagRoot + 0001:00181490 PrintBitmap + 0001:0003EB78 PrintDlg + 0001:001452F0 PrintECSReportToDevice + 0001:0003CC7C Printer + 0001:0003CCE4 Printers + 0001:00180A34 PrintGraph + 0001:0030C9D0 PrintLabs + 0001:0030C060 PrintLabsToDevice + 0001:00369884 PrintNameForTitle + 0001:001C14AC PrintNote + 0001:0036C2D4 PrintNoteToDevice + 0001:00379BBC PrintOrdersOnReview + 0001:002A1DE4 PrintOrdersOnSignRelease + 0002:000073A8 PrintParams + 0002:00000A64 PrintRanges + 0001:00145860 PrintReports + 0001:0017FA2C PrintReportsToDevice + 0001:00379C1C PrintServiceCopies + 0001:001BF21C PrintSF513 + 0001:002A7E08 PrintSF513ToDevice + 0001:00181D34 PrintStrings + 0002:000015F4 PrintTeePanel + 0001:0017F978 PrintVReports + 0001:0018038C PrintWindowsReport + 0001:000D110C PrivateSort + 0001:001B64A4 ProblemDelete + 0002:00008F34 ProblemDxHoldList + 0002:00007268 ProblemList + 0001:001B6834 ProblemList + 0001:001B6994 ProblemReplace + 0002:00008E08 Problems + 0001:001B6AFC ProblemUpdate + 0001:001B6B40 ProblemVerify + 0002:00007238 ProbRec + 0002:00008AD4 ProcDisp + 0002:00002FDC ProceduresTemplate + 0002:00003108 ProcessedReminders + 0001:000BDA70 ProcessExecute + 0001:0011E37C ProcessExecute + 0001:000B6588 ProcessHorz + 0001:002DC514 ProcessingChangeString + 0001:000CF878 ProcessMinor + 0001:000CF5D4 ProcessMinorTicks + 0001:002C00F0 ProcessMsg + 0001:00191650 ProcessOrderAcceptEventHook + 0001:000DCC34 ProcessPanning + 0001:00191588 ProcessPatientChangeEventHook + 0001:00343DBC ProcessProblemTFactors + 0001:00372504 ProcessQueue + 0001:000CF808 ProcessTicks + 0001:000BDBA0 ProcessUpdate + 0001:000B660C ProcessVert + 0001:0001BF34 ProgIDFromCLSID + 0001:000F03BC ProgIDToClassID + 0002:00003258 PromptDescriptions + 0001:00351CF8 PromptForWorkload + 0001:00024910 PropertyNotFound + 0001:0001A0C0 PropertyNotFound + 0001:00025DB8 PropPathError + 0002:00001494 Props + 0001:00024900 PropValueError + 0002:000087A4 ProvDx + 0002:00008098 ProvDx + 0002:00008374 ProvDx + 0002:0000828C ProvDx + 0002:00007340 ProvDx + 0001:001B0088 Provider + 0002:00007390 Provider + 0001:001B68C8 ProviderList + 0001:0037C094 PtEvtEmpty + 0001:00006B40 PtInRect + 0001:000E40B0 PtInRect + 0002:00008C81 PtIsMHV + 0002:00008C80 PtIsVAA + 0002:000000AC PtrToNil + 0002:00008D74 PtStrs + 0002:0000202C PULSE_PERCENTAGE + 0001:0018F40C PushKeyVars + 0001:0036B760 PutAddendum + 0001:003585C4 PutBADxListForOrder + 0001:0021CC6C PutDCAddendum + 0001:0021CFC4 PutEditedDCSumm + 0001:0036BA08 PutEditedNote + 0001:00009F9C PutExponent + 0001:0021C708 PutNewDCSumm + 0001:0036B308 PutNewNote + 0001:002A4064 PutNewOrder + 0001:002A3130 PutQuickOrder + 0001:0037AED4 PutWardComments + 0001:001B2414 QOHasRouteDefined + 0001:00122664 QSort + 0001:001B1EC4 QtyToDays + 0002:00005BC8 QualifyingSites + 0001:002A5650 QuantityMessage + 0001:001FEC1C QueryBoilerPlate + 0001:00000414 QueryPerformanceCounter + 0001:003724B0 QueuePending + 0002:000087C0 quickCode + 0001:00102DDC QuickCopy + 0002:0000879C QuickList + 0001:002A1C58 QuickOrderListEdit + 0001:002A1A60 QuickOrderSave + 0001:0001FB14 QuickSort + 0001:00105638 QuotedExeName + 0002:00003320 radiogrp1index + 0002:000087D4 Radiologist + 0001:0000D7FC RaiseAssertException + 0001:0003BA00 RaiseError + 0001:0002345C RaiseException + 0001:000F0FB0 RaiseException + 0001:000002F4 RaiseException + 0002:00005014 RaiseExceptionProc + 0001:0000F260 RaiseLastOSError + 0001:000F0E78 RaiseNameException + 0001:00001C0C Randomize + 0002:00000008 RandSeed + 0001:0001A480 RangedValue + 0001:002A5C2C RatedDisabilities + 0001:002A95A0 rConsults + 0001:00371E98 rCore + 0001:002EFB08 rCover + 0001:0021DDCC rDCSumm + 0001:000703BC ReadCols + 0001:000A4BD4 ReadControlName + 0001:00027158 ReadCustomVariant + 0001:0004EEB0 ReadError + 0001:000248E0 ReadError + 0001:00006300 ReadFile + 0001:00031568 ReadIcon + 0001:001047E4 ReadOnlyColor + 0002:000010BC ReadOnlys + 0001:0010D624 ReadRegData + 0001:0010D880 ReadRegDataDefault + 0001:0010D91C ReadRegValueNames + 0001:00370814 ReadRPLPtList + 0001:00062AC0 ReadSections + 0001:002A0960 ReadyForNewOrder + 0001:002A0C78 ReadyForNewOrder1 + 0001:0001748C RealCompare + 0001:000065E8 RealizePalette + 0001:0001687C RealOp + 0001:002A9034 ReasonForRequestEditable + 0001:000CD660 RecalcAdjustedMinMax + 0001:002A7538 ReceiveConsult + 0001:0035159C RecentGAFScores + 0002:000083A8 RecipientList + 0002:00007328 RecipientList + 0001:000252EC Recover + 0001:00145544 rECS + 0001:0001DB20 Rect + 0001:00005D78 Rect + 0001:000065F8 Rectangle + 0001:000C3D3C RectCenter + 0001:000C53F4 RectGradient + 0002:000080BC rectIndex + 0001:000C3D28 RectSize + 0001:000065F0 RectVisible + 0002:000088D8 recv + 0001:0010DA94 recv + 0002:000088DC recvfrom + 0001:00103388 RedrawActivate + 0001:0010336C RedrawSuspend + 0001:00006B48 RedrawWindow + 0002:00005820 RefAnyProc + 0002:00005A50 ReferenceCount + 0001:0013A930 Refill + 0001:002A1D5C RefNumFor + 0001:001045E0 ReformatMemoParagraph + 0001:000003B4 RegCloseKey + 0001:000060A8 RegCloseKey + 0001:000060B0 RegCreateKeyEx + 0001:0004EF0C RegDataToDataType + 0001:000060B8 RegDeleteKey + 0001:000060C0 RegDeleteValue + 0001:000060C8 RegEnumValue + 0002:00001758 RegFlags + 0001:000060D0 RegFlushKey + 0002:00005864 RegGroups + 0001:0001E99C RegisterClass + 0001:00006B50 RegisterClass + 0001:0001EA14 RegisterClasses + 0001:00006B58 RegisterClipboardFormat + 0001:001912E8 RegisterCPRSTypeLibrary + 0001:00095674 RegisterDockSite + 0001:0001EE7C RegisterFindGlobalComponentProc + 0001:0001EC68 RegisterIntegerConsts + 0001:000053CC RegisterModule + 0001:00139B28 RegisterStandardSeries + 0001:000DEBA8 RegisterTeeBasicFunction + 0001:000DEB90 RegisterTeeFunction + 0001:000DEB78 RegisterTeeSeries + 0001:000DEA8C RegisterTeeSeriesFunction + 0001:0001BF8C RegisterTypeLib + 0001:0019333C RegisterTypeLibrary + 0001:0003AA30 RegisterViewer + 0001:00006B60 RegisterWindowMessage + 0001:0004F944 Registry + 0001:000003BC RegOpenKeyEx + 0001:000060D8 RegOpenKeyEx + 0001:000060E0 RegQueryInfoKey + 0001:000003C4 RegQueryValueEx + 0001:000060E8 RegQueryValueEx + 0001:001057B0 RegReadBool + 0001:001056FC RegReadStr + 0001:000060F0 RegSetValueEx + 0001:0003EA28 RegStr + 0001:0031DEE0 RelativeDate + 0001:00126F58 RelativeDateTime + 0001:00372898 ReleaseAppNotification + 0001:00006B68 ReleaseCapture + 0001:00006B70 ReleaseDC + 0001:0037AAA4 ReleaseOrderHold + 0001:002D01BC ReleaseTemplates + 0001:0007BB30 ReleaseToolMenuHooks + 0001:0007BC50 ReleaseToolMenuKeyHooks + 0001:00375094 ReleaseURLMon + 0002:0000004C reMap + 0002:0000561C remBytes + 0002:00002718 RemClsText + 0001:002DEC2C RemContextPopup + 0002:0000317C RemData2PCECat + 0002:00003110 RemDataCodes + 0002:00002E50 RemDlgHeight + 0002:00002F9C RemDlgIdx + 0002:00002E44 RemDlgLeft + 0002:00002E3C RemDlgSpltr1 + 0002:00002E40 RemDlgSpltr2 + 0002:00002E48 RemDlgTop + 0002:00002E4C RemDlgWidth + 0002:00003298 RemFolderCodes + 0002:00008C2C RemForm + 0002:0000315C ReminderCallList + 0002:00003150 ReminderCatMenu + 0001:002DDBBC ReminderClinMaintClicked + 0001:002BB474 ReminderDialogActive + 0002:0000310C ReminderDialogInfo + 0001:002DDC54 ReminderEduClicked + 0001:002DE15C ReminderEvalClicked + 0001:002DC9BC ReminderEvaluated + 0001:002DE338 ReminderIconLegendClicked + 0001:002DDCF4 ReminderInqClicked + 0001:0018D954 ReminderInquiry + 0001:002DEBC8 ReminderMenu + 0001:002DE854 ReminderMenuBuilder + 0001:002DEB0C ReminderMenuItemSelect + 0001:002DDA80 ReminderName + 0001:002DF9F4 ReminderNode + 0001:002DCC48 RemindersEvaluated + 0001:002DC6C8 RemindersEvaluatingInBackground + 0002:000030F8 RemindersInProcess + 0001:002DFC88 RemindersInProcessChanged + 0002:00003104 RemindersStarted + 0002:00003148 ReminderTreeMenu + 0002:0000314C ReminderTreeMenuDlg + 0001:002DEA70 ReminderTreePopup + 0001:002DEAA4 ReminderTreePopupCover + 0001:002DEAD8 ReminderTreePopupDlg + 0001:002DE178 ReminderViewFolderClicked + 0001:002DDD90 ReminderWebClicked + 0002:000032D0 RemMenuFolder + 0002:000032D8 RemMenuNames + 0001:0030BD48 RemoteLab + 0001:0030B3B0 RemoteLabCumulative + 0001:0030B5C0 RemoteLabInterim + 0001:0030B7CC RemoteLabMicro + 0001:0030BBE4 RemoteLabReports + 0001:001AF224 RemoteLoginDialog + 0002:000071C4 RemoteLoginDialogProc + 0001:0017F498 RemoteQuery + 0001:0017F458 RemoteQueryAbortAll + 0002:000090BC RemoteReports + 0002:000090B8 RemoteSites + 0001:002D0278 RemoveAllNodes + 0001:00000598 RemoveBlock + 0001:0011DCCC RemoveConnection + 0002:00000608 RemoveDataModule + 0001:00024790 RemoveFixupReferences + 0001:0002484C RemoveFixups + 0001:0035BC24 RemoveFromOrderList + 0001:00024BE8 RemoveGlobalFixup + 0001:000F5F00 RemoveItemTipRef + 0001:002A71AC RemoveMedicineResult + 0001:00006B78 RemoveMenu + 0001:000052E8 RemoveModuleUnloadProc + 0001:00005310 RemoveModuleUnloadProc + 0001:002DC47C RemoveNotifyRemindersChange + 0001:002BB454 RemoveNotifyWhenProcessingReminderChanges + 0001:003580C8 RemoveOrderFromDxList + 0001:002AB49C RemoveParentsWithNoChildren + 0001:0022D6EC RemoveParentsWithNoChildren + 0001:00006B80 RemoveProp + 0001:00029CA0 RemoveThread + 0002:000030E4 RemPriorityText + 0002:00003188 RemPromptCodes + 0002:000031C8 RemPromptTypes + 0002:00002740 RemTreeDlgHeight + 0002:00002734 RemTreeDlgLeft + 0002:00002738 RemTreeDlgTop + 0002:0000273C RemTreeDlgWidth + 0001:0036EC38 RenewAlert + 0001:0037A524 RenewOrder + 0001:002DB178 REOK + 0002:00001A54 ReplaceChars + 0001:0003EB68 ReplaceText + 0001:0000B21C ReplaceTime + 0001:00181C3C ReportBox + 0001:0030BA5C Reports + 0001:00351BD4 RequireExposures + 0001:0021D5B8 RequireMASVerification + 0001:001BAA98 RequireOriginatorComments + 0001:0021D498 RequireRelease + 0001:002A5740 RequiresCopay + 0002:000087DC Research + 0001:002E046C Reset + 0001:0022D5A8 ResetCaseTreeObjectStrings + 0001:002A64C4 ResetClinProcTitles + 0001:002A6138 ResetConsultTitles + 0001:00297E78 ResetControl + 0001:0021BBEC ResetDCSummPreferences + 0001:0021B86C ResetDCSummTitles + 0001:0036F474 ResetDfltSort + 0001:0029D7E8 ResetDialogProperties + 0001:002AB378 ResetDocTreeObjectStrings + 0001:00006308 ResetEvent + 0001:003694E8 ResetNoteTitles + 0001:002DCED4 ResetReminderLoad + 0001:001033B0 ResetSelectedForList + 0001:00029C4C ResetSyncEvent + 0001:00369BF0 ResetTIUPreferences + 0001:0013C868 reset_broker + 0001:00103FA0 ResizeAnchoredFormToFont + 0001:00103A50 ResizeChartFonts + 0001:00103674 ResizeCheckListBox + 0001:00103608 ResizeComboBox + 0001:001036A8 ResizeDescendants + 0001:00103C34 ResizeFontsInDescendants + 0001:00103EA0 ResizeFormToFont + 0001:00103514 ResizeHeaderControl + 0001:00103438 ResizeHeight + 0001:00001534 ResizeInPlace + 0001:000EA10C ResizeLine + 0001:00103640 ResizeListBox + 0001:00103584 ResizeListView + 0001:00103494 ResizeToFont + 0001:001033F0 ResizeWidth + 0001:0013DFA8 ResolveTemplateFields + 0001:000DBE68 RestoreAxisScales + 0001:00006600 RestoreDC + 0001:000B5CDC RestoreFocusState + 0001:001187F0 RestoreFontStyles + 0001:000E95AC Restrict + 0001:002A875C ResubmitConsult + 0001:003759E0 ResultOrder + 0001:00375A50 ResultOrderHistory + 0001:00006310 ResumeThread + 0001:001216B0 RetainedRPCCount + 0001:003776FC RetrieveOrderFields + 0001:0029FFD8 RetrieveOrderText + 0001:0029DDC0 RetrieveOrderTextPSI + 0001:000216CC ReturnAddr + 0001:000ABEB4 ReturnAddr + 0001:0000D3A4 ReturnAddr + 0001:0001F580 ReturnAddr + 0001:0021BC0C ReturnMaxDCSumms + 0001:00369FE4 ReturnMaxNotes + 0001:0018FB14 rEventHooks + 0001:0024E490 ReverseList + 0001:001AD6E8 ReverseNegative + 0001:0010268C ReverseStr + 0001:0004A8C8 ReverseString + 0001:0023771C ReviewChanges + 0001:00006DF8 RGB + 0001:00030EB0 RGBQuadToTriple + 0001:00030E3C RGBTripleToQuad + 0001:0014F974 rGraphs + 0001:0003DCF4 RichEdit + 0001:000E4954 RightSide + 0001:0004A99C RightStr + 0001:0030C6E4 rLabs + 0001:0013AB70 rMeds + 0001:00369360 rMisc + 0002:00005B98 RM_GetObjectInstance + 0002:00005C2C RM_TaskbarCreated + 0001:001BAC80 rODAllergy + 0001:002A5ED8 rODBase + 0001:001923E8 rODDiet + 0001:0025DDD8 rODLab + 0001:001B256C rODMeds + 0001:00258ED4 rODRad + 0002:00000E2C RootStyles + 0002:00002FCC RootTemplate + 0001:001BE8BC rOptions + 0001:0037EDBC rOrders + 0001:001AB818 RoundAt + 0001:00006608 RoundRect + 0001:00038394 RoundTo + 0002:00005618 rover + 0002:00006F60 RowObjects + 0002:00000E74 RowSelectStyles + 0001:001BE194 rpcActiveDefaultSetting + 0001:001BDF44 rpcAddList + 0001:00340828 rpcAddToPersonalDxList + 0001:0010DD58 Rpcberr + 0002:00006E3C RPCBrokerV + 0001:00111BF4 RPCBShowErrMsg + 0001:00340EC4 rpcBuildSCIEList + 0001:001BC890 rpcCheckSurrogate + 0001:0014F0FC rpcClass + 0001:001BC9D8 rpcClearNotifications + 0001:0011746C Rpcconf1 + 0002:00006DC4 rpcConfig + 0001:0014F878 rpcDateItem + 0001:00340920 rpcDeleteFromPersonalDxList + 0001:0014F700 rpcDeleteGraphProfile + 0001:001BDD60 rpcDeleteList + 0001:001BE124 rpcDeleteUserLevelReportsSetting + 0001:0014ECDC rpcDetailDay + 0001:0014EDF8 rpcDetailSelected + 0001:00352160 rPCE + 0001:001BA534 RPCEnterNKAForPatient + 0001:0014EEF8 rpcGetAllItems + 0001:001BDC40 rpcGetAllTeams + 0001:001BD100 rpcGetApptDays + 0001:001BD1F4 rpcGetApptUserDays + 0001:001BDD00 rpcGetATeams + 0001:00340B48 rpcGetBAMasterSwStatus + 0001:001BCDA8 rpcGetClasses + 0001:001BD618 rpcGetClinicDefaults + 0001:001BD528 rpcGetClinicUserDays + 0001:001BDF78 rpcGetCombo + 0001:001BCBF8 rpcGetCosigners + 0001:001BCC60 rpcGetDefaultCosigner + 0001:001BE004 rpcGetDefaultReportsSetting + 0001:001BE810 rpcGetEncFutureDays + 0001:0014F334 rpcGetGraphDateRange + 0001:0014F560 rpcGetGraphProfiles + 0001:0014F3CC rpcGetGraphSettings + 0001:0014F4C0 rpcGetGraphSizing + 0001:0014F274 rpcGetItemData + 0001:0014F048 rpcGetItems + 0001:001BCF7C rpcGetLabDays + 0001:001BD03C rpcGetLabUserDays + 0001:001BD4A4 rpcGetListOrder + 0001:001BD790 rpcGetListSourceDefaults + 0001:001BC7D4 rpcGetNotificationDefaults + 0001:001BC724 rpcGetNotifications + 0001:001BC77C rpcGetOrderChecks + 0001:001BCB44 rpcGetOther + 0001:001BCAEC rpcGetOtherTabs + 0001:003408C8 rpcGetPersonalDxList + 0001:001BDBE0 rpcGetPersonalLists + 0001:00340C54 rpcGetProviderPatientDaysDx + 0001:001BE64C rpcGetRangeForEncs + 0001:001BE45C rpcGetRangeForMeds + 0001:001BD410 rpcGetReminders + 0001:00340BE4 rpcGetSC4Orders + 0001:001BCCE0 rpcGetSubject + 0001:001BC814 rpcGetSurrogateInfo + 0001:001BDCA0 rpcGetTeams + 0001:0014F7A4 rpcGetTestSpec + 0001:00340D28 rpcGetTFHintData + 0001:001BCEB0 rpcGetTitleDefault + 0001:001BCE00 rpcGetTitlesForClass + 0001:001BCE6C rpcGetTitlesForUser + 0001:0014EF64 rpcGetTypes + 0001:00341E50 rpcGetUnsignedOrdersBillingData + 0001:0034108C rpcIsPatientInsured + 0002:00006E40 RPCLastCall + 0001:001BDEB0 rpcListUsersByTeam + 0001:0014F7F0 rpcLookupItems + 0001:00116714 RpcNet + 0001:001BDDD4 rpcNewList + 0001:00340D70 rpcNonBillableOrders + 0001:003402E4 rpcOrderRequiresDx + 0001:0014EB70 rpcPublicEdit + 0001:001BE74C rpcPutRangeForEncs + 0001:001BE5CC rpcPutRangeForMeds + 0001:001BDF10 rpcRemoveList + 0001:0014EC10 rpcReportParams + 0001:001BE318 rpcRetrieveDefaultSetting + 0001:00341CF0 rpcRetrieveSelectedOrderInfo + 0001:00341008 rpcSaveCIDCData + 0001:001BCF30 rpcSaveDocumentDefaults + 0001:001BDE6C rpcSaveListChanges + 0001:00340BDC rpcSaveNurseConsultOrder + 0001:003409B8 rpcSetBillingAwareSwitch + 0001:001BD8A0 rpcSetClinicDefaults + 0001:001BDFD0 rpcSetCombo + 0001:001BD2E8 rpcSetDays + 0001:001BCCA0 rpcSetDefaultCosigner + 0001:001BE204 rpcSetDefaultReportsSetting + 0001:0014F650 rpcSetGraphProfile + 0001:0014F420 rpcSetGraphSettings + 0001:0014F514 rpcSetGraphSizing + 0001:001BE280 rpcSetIndividualReportSetting + 0001:001BCA10 rpcSetNotifications + 0001:001BCA44 rpcSetOrderChecks + 0001:001BCB84 rpcSetOther + 0001:001BCA78 rpcSetOtherStuff + 0001:001BDA74 rpcSetPtListDefaults + 0001:001BD470 rpcSetReminders + 0001:001BCD74 rpcSetSubject + 0001:001BC964 rpcSetSurrogateInfo + 0001:0011B948 RpcSLogin + 0001:0014F1A4 rpcTaxonomy + 0002:00008D68 RPLJob + 0002:00008D70 RPLProblem + 0002:00006DD0 rPort + 0001:001B6E9C rProbs + 0001:0018EFD8 rReminders + 0001:001815D0 rReports + 0002:00000DF4 RRStyles + 0002:00006DCC rServer + 0001:000FE7A4 RStr + 0001:001C2E20 rSurgery + 0001:0013CB28 rTemplates + 0002:00000D94 RTFConversionFormat + 0002:00001FE0 RTFConversionFormat + 0001:0036D5C0 rTIU + 0002:00000DB0 RTL + 0002:00000DC0 RTL + 0002:00000DB8 RTL + 0001:00019EB0 RTLConsts + 0002:00000E04 RTLReading + 0002:00000E54 RTLStyles + 0001:000002FC RtlUnwind + 0002:00005018 RTLUnwindProc + 0002:00000078 runErrMsg + 0001:00001924 RunErrorAt + 0001:00105938 RunProgram + 0001:0012F4C0 rVitals + 0002:000081AC s + 0001:00010558 SafeArrayAccessData + 0001:00010540 SafeArrayCreate + 0001:00010568 SafeArrayGetElement + 0001:00010548 SafeArrayGetLBound + 0001:00010550 SafeArrayGetUBound + 0001:00010578 SafeArrayPtrOfIndex + 0001:00010570 SafeArrayPutElement + 0001:00010560 SafeArrayUnaccessData + 0001:000F09B8 SafeCallError + 0002:00005020 SafeCallErrorProc + 0001:0000FB0C SafeLoadLibrary + 0001:000083A8 SameText + 0001:001B9C60 SaveAllergy + 0001:002D144C SaveAllTemplates + 0002:00002E28 SaveAsCurrent + 0001:001E54B4 SaveAsQuickOrder + 0001:000DBDFC SaveAxisScales + 0001:003405EC SaveBillingData + 0001:0037B75C SaveChangesOnRenewOrder + 0001:0017E774 SaveColumnSizes + 0001:0037E620 SaveCoPayStatus + 0001:002A8E50 SaveCurrentContext + 0001:0021DB50 SaveCurrentDCSummContext + 0001:001C2BA8 SaveCurrentSurgCaseContext + 0001:0036CA80 SaveCurrentTIUContext + 0001:00006610 SaveDC + 0001:00180C98 SaveDefaultPrinter + 0001:00293F40 SaveDrug + 0001:0027B284 SaveDrug + 0001:0037E394 SaveEvtForOrder + 0001:000B5CC8 SaveFocusState + 0001:003516AC SaveGAFScore + 0002:00005C94 SaveInitProc + 0002:000024D0 SaveInitProc + 0001:0018E1FC SaveMentalHealthTest + 0001:002BD880 SaveMSTData + 0001:0018E73C SaveMSTDataFromReminder + 0001:0020D4F4 SaveOrAbort + 0001:0037DDFC SaveOrderChecksForSession + 0001:00377B64 SaveOrderViewDefault + 0001:00350A10 SavePCEData + 0001:0036F048 SavePtListDflt + 0001:002A30EC SaveQuickListForOD + 0001:002D0730 SaveTemplate + 0001:0013E8C0 SaveTemplateFieldErrors + 0001:00341CA4 SaveUnsignedOrders + 0001:00368888 SaveUserBounds + 0001:003689A8 SaveUserFontSize + 0001:00144EBC SaveUserPath + 0001:00368974 SaveUserSizes + 0001:0013BE88 SaveUserTemplateDefaults + 0001:001B6D38 SaveViewPreferences + 0001:0018E428 SaveWomenHealthData + 0001:00288848 SBPos + 0002:00008FE4 SC + 0001:00121588 sCallV + 0001:0000BF98 ScanBlanks + 0001:0000C124 ScanChar + 0001:0000C310 ScanDate + 0001:0000BFD8 ScanNumber + 0001:0000C08C ScanString + 0001:0000C6A4 ScanTime + 0001:0000C1DC ScanToNumber + 0001:002C8B50 ScanTree + 0001:00347974 SCCValue + 0001:002A75B8 ScheduleConsult + 0001:001B21AC ScheduleRequired + 0002:00003308 ScootOver + 0002:00005C24 Screen + 0002:000071C8 ScreenCursorProc + 0002:000058A0 ScreenLogPixels + 0001:00006B88 ScreenToClient + 0002:000010FC ScrollBar + 0001:000B6794 ScrollBarVisible + 0001:000E90D0 ScrollBarVisible + 0002:00001EDC ScrollBarWidth + 0001:00006B90 ScrollWindow + 0001:00006B98 ScrollWindowEx + 0002:00001A34 SearchChars + 0001:001B95C0 SearchForAllergies + 0001:002CFB40 SearchMatch + 0001:000010E0 SearchSmallBlocks + 0002:00008B7C SearchTextStopFlag + 0001:0014D1E8 SecondsBetween + 0001:0014D29C SecondSpan + 0001:00112890 SelDiv + 0002:00005D94 SelDivForm + 0002:000088E0 select + 0001:001C775C SelectAdditionalSigners + 0001:00259104 SelectApprovingRadiologist + 0001:001C0278 SelectAuthor + 0001:00006618 SelectClipRgn + 0001:001C97A4 SelectConsultDateRange + 0001:001CA638 SelectConsultsView + 0001:001C896C SelectDeleteReason + 0001:0018CEA8 SelectDevice + 0001:00112158 SelectDivision + 0001:001E27EC SelectEvtReleasedOrders + 0001:001A1F28 SelectFormularyAlt + 0001:0025EAA4 SelectImmediateCollectTime + 0002:00008F15 selectingDX + 0001:000E48E8 Selection + 0001:002083A4 SelectMedicineResult + 0001:001C08C8 SelectNoteDateRange + 0001:001D2C9C SelectNoteForProcessing + 0001:00006620 SelectObject + 0001:001D3AFC SelectOrderView + 0001:0025E01C SelectOtherCollSample + 0001:0025E5A8 SelectOtherSpecimen + 0001:00006628 SelectPalette + 0001:00208F10 SelectParentNodeFromList + 0001:00306598 SelectPatient + 0001:00371214 SelectPatient + 0001:001CB464 SelectRecipients + 0001:001BFD80 SelectSearchText + 0001:001C8E0C SelectService + 0001:00259568 SelectSource + 0001:001C9DFC SelectStatus + 0001:0022C074 SelectSurgeryView + 0001:0030F6B8 SelectTest + 0001:0030D8E4 SelectTestGroups + 0001:0030EF7C SelectTests + 0001:00219E80 SelectTIUView + 0001:002F3744 SelectVital + 0001:002F3878 SelectVitals + 0001:000D42F8 SelfSetDataSources + 0002:000088E4 send + 0001:0010DA9C send + 0001:000944B4 SendAppMessage + 0001:001BA698 SendARTBulletin + 0001:00006BA0 SendDlgItemMessage + 0001:0007B14C SendDropdownMsg + 0001:000B5FE0 SendFocusMessage + 0001:00006BA8 SendMessage + 0001:00006BB0 SendMessageTimeout + 0001:003798EC SendOrders + 0001:00379AC0 SendReleaseOrders + 0002:000088E8 sendto + 0001:000E4828 SendToParent + 0002:000013F0 Separators + 0001:00376178 SeqOfDGroup + 0001:00139D3C Series + 0001:00287D3C ServeFile + 0001:00126D8C ServerFMNow + 0001:00367DE8 ServerHasPatch + 0001:00126E30 ServerNow + 0001:00126EB0 ServerParseFMDate + 0001:00126E68 ServerToday + 0001:00367E74 ServerVersion + 0001:001B6A18 ServiceFilterList + 0001:001B6A74 ServiceSearch + 0001:00001C40 Set8087CW + 0001:00006630 SetAbortProc + 0001:001CBC0C SetActionContext + 0001:002BBF80 SetActiveVars + 0001:00006BB8 SetActiveWindow + 0001:00181250 SetAdhocLookup + 0001:000BFD10 SetAnimation + 0001:001927AC SetAvailTimes + 0001:000E91C0 SetAxisRange + 0001:00359830 SetBADxListForOrder + 0001:00006638 SetBkColor + 0001:00006640 SetBkMode + 0001:00121210 SetBrokerServer + 0001:00006648 SetBrushOrgEx + 0001:00006BC0 SetCapture + 0001:00094838 SetCaptureControl + 0001:0022D1F0 SetCaseTreeNodeImagesAndFormatting + 0001:00006BC8 SetClassLong + 0001:000180A4 SetClearVarToEmptyParam + 0001:00006BD0 SetClipboardData + 0001:0005DCD0 SetComCtlStyle + 0001:0002546C SetCompName + 0001:002A0E20 SetConfirmEventDelay + 0001:0034338C SetConsultFlags + 0001:0018EBB4 SetCoverSheetLevelData + 0001:00006BD8 SetCursor + 0001:00006BE0 SetCursorPos + 0001:001AF474 SetCursorType + 0001:000410D0 SetCustomColorsArray + 0001:0023656C SetDateRangeText + 0001:0022AE78 SetDateRangeText + 0001:002B9948 SetDateRangeText + 0001:002A4C90 SetDefaultCoPayToNewOrder + 0001:00345488 SetDefaultProvider + 0001:001EC594 SetDelayEventForMed + 0001:00006650 SetDIBColorTable + 0001:00112420 SetDiv + 0001:00006318 SetEndOfFile + 0001:00006658 SetEnhMetaFileBits + 0001:0001ACDC SetEnumProp + 0001:001040B4 SetEqualTabStops + 0001:00243088 SetError + 0001:001FD1C4 SetError + 0001:00254214 SetError + 0001:001A2ABC SetError + 0001:00289448 SetError + 0001:001FACA4 SetError + 0001:00199538 SetError + 0001:001D04C4 SetError + 0001:001A5EE4 SetError + 0001:002628BC SetError + 0001:0028CA44 SetError + 0001:001A6D6C SetError + 0001:001A05AC SetError + 0001:0026943C SetError + 0001:0026953C SetError + 0001:0025B5DC SetError + 0001:0019F73C SetError + 0001:00291140 SetError + 0001:001A93B0 SetError + 0001:00274558 SetError + 0001:00196C5C SetError + 0001:0001BFA4 SetErrorInfo + 0001:00006320 SetErrorMode + 0001:00006328 SetEvent + 0001:000031AC SetExceptionHandler + 0001:0037C7C4 SetExternalText + 0001:00287630 SetFDSet + 0001:00006330 SetFilePointer + 0001:0001B6A8 SetFloatProp + 0001:00006BE8 SetFocus + 0001:002A20A8 SetFontSize + 0001:00006BF0 SetForegroundWindow + 0001:0015928C SetFormMonitoring + 0001:00368A24 SetFormPosition + 0001:000E9244 SetHorzRange + 0001:0022D508 SetImageFlag + 0001:000A6F98 SetImeMode + 0001:000019A8 SetInOutRes + 0001:0001BA34 SetInt64Prop + 0001:0001BB0C SetInterfaceProp + 0001:000260D0 SetInterfaceReference + 0001:00025FE0 SetIntIdent + 0001:00006BF8 SetKeyboardState + 0002:00001468 SetLayeredWindowAttributes + 0001:00188560 SetLbl + 0001:001B8C4C SetLexList + 0001:001205BC SetList + 0001:001014C4 SetListFMDateTime + 0001:0001B18C SetLongStrProp + 0001:00006660 SetMapMode + 0001:0019C154 SetMealTimes + 0001:0013A104 SetMedFields + 0001:00001864 SetMemoryManager + 0001:00006C00 SetMenu + 0001:00006C08 SetMenuItemInfo + 0001:0001B9D4 SetMethodProp + 0001:0012D5CC SetNodeImage + 0001:0002602C SetObjectIdent + 0001:00106EE0 SetOleFont + 0001:0018F384 SetOrderEventIDOnCreate + 0001:0018F374 SetOrderEventTypeOnCreate + 0001:00376418 SetOrderFields + 0001:0018F364 SetOrderFormIDOnCreate + 0001:00379D50 SetOrderFromResults + 0001:0001AC50 SetOrdProp + 0001:00135558 SetOtherMultiArea + 0001:00120664 SetParams + 0001:00006C10 SetParent + 0001:000F5BA8 SetPiece + 0001:001026F4 SetPiece + 0001:00102818 SetPieces + 0001:00006668 SetPixel + 0001:000418EC SetPrinter + 0001:00006C18 SetProp + 0001:0001A4E8 SetPropValue + 0001:0037D5D0 SetPtEvtList + 0001:00006C20 SetRect + 0001:002DC8F4 SetRemFolders + 0001:0018E8B0 SetReminderFolders + 0001:002E02B8 SetReminderFormBounds + 0001:002DEBA0 SetReminderMenuSelectRoutine + 0001:002DEB60 SetReminderPopupCoverRoutine + 0001:002DEB80 SetReminderPopupDlgRoutine + 0001:002DEB40 SetReminderPopupRoutine + 0001:001216BC SetRetainedRPCMax + 0001:00006670 SetROP2 + 0001:00351360 SetRPCEncLocation + 0001:000E8EA8 SetScroll + 0001:00006C28 SetScrollInfo + 0001:00006C30 SetScrollPos + 0001:00006C38 SetScrollRange + 0001:000D6118 SetSeriesZOrder + 0001:000D6208 SetSeriesZPositions + 0001:0001AFF4 SetSetProp + 0001:003681CC SetShareNode + 0001:0001B064 SetShortStrProp + 0001:0001B0F4 SetShortStrPropAsLongStr + 0001:0010DAA4 setsockopt + 0002:000088EC setsockopt + 0001:0036ECEC SetSortMethod + 0001:00006678 SetStretchBltMode + 0001:0001B2F0 SetStrProp + 0001:0002523C SetSubComponentState + 0001:0036BDC4 SetText + 0001:00006680 SetTextAlign + 0001:00006688 SetTextColor + 0002:00005A34 SetThemeAppProperties + 0001:00006338 SetThreadLocale + 0001:00006C40 SetTimer + 0001:0001AD70 SetToString + 0001:003417CC SetTreatmentFactors + 0001:002AA4AC SetTreeNodeImagesAndFormatting + 0001:001D8C34 SetupOrdersPrint + 0001:002A2A48 SetupORDIALOG + 0001:00119EC4 SetUpSignOn + 0001:00368284 SetUserBounds + 0001:003684B4 SetUserBounds2 + 0001:003686AC SetUserColumns + 0001:0013BE34 SetUserTemplateDefaults + 0001:003685AC SetUserWidths + 0001:0001808C SetVarAsError + 0001:0001B954 SetVariantProp + 0001:00026074 SetVariantReference + 0001:000E92E8 SetVertRange + 0001:001B5E00 SetViewFilters + 0001:001ED968 SetViewForCopy + 0001:00006690 SetViewportExtEx + 0001:00006698 SetViewportOrgEx + 0001:000C2460 SetVisible + 0001:001B7A94 SetVu + 0001:0001B458 SetWideStrProp + 0001:0001B22C SetWideStrPropAsLongStr + 0001:000066A8 SetWindowExtEx + 0001:00006C48 SetWindowLong + 0001:000066B0 SetWindowOrgEx + 0001:00006C50 SetWindowPlacement + 0001:00006C58 SetWindowPos + 0001:00006C68 SetWindowsHookEx + 0001:00006C60 SetWindowText + 0002:000059F8 SetWindowTheme + 0001:000066A0 SetWinMetaFileBits + 0001:001885B4 SetY + 0001:00119B10 Sgnoncnf + 0001:00005D60 ShareMem + 0002:00000158 ShareMode + 0001:00144C90 SHDocVw + 0001:0003E9F0 ShellAPI + 0001:0003E9B8 ShellExecute + 0002:00005B24 ShellModule + 0001:0003EB08 SHGetSpecialFolderPath + 0002:00001EF4 ShiftMap + 0001:00104BC0 ShiftTabIsPressed + 0001:0003EB40 ShlObj + 0001:000ABEE8 ShortCut + 0002:00005C14 ShortCutItems + 0001:000ABF98 ShortCutToText + 0002:00005694 ShortDateFormat + 0001:001438C0 ShortDateStrToDate + 0002:00005710 ShortDayNames + 0002:000056B0 ShortMonthNames + 0002:000056A8 ShortTimeFormat + 0001:0031A0CC ShowAbout + 0001:0011E828 ShowApplicationAndFocusOK + 0001:0031A7CC ShowBroker + 0002:00000EEC ShowColumns + 0002:000014E8 ShowCommands + 0002:000014D0 ShowCommands + 0002:000014DC ShowCommands + 0001:00006C70 ShowCursor + 0001:0024143C ShowCWAD + 0001:001EFB34 ShowDelayedEventsTreatingSepecialty + 0001:0031E394 ShowDisplay + 0001:0000D2C8 ShowException + 0001:001B5CFC ShowFilterStatus + 0002:00001590 ShowFlags + 0002:000012E4 ShowFlags + 0001:00240A08 ShowFlags + 0001:0018C8CC ShowIconLegend + 0001:0032518C ShowMatchingPatients + 0001:00307468 ShowMatchingPatients + 0001:000B5CF0 ShowMDIClientEdge + 0001:000434A4 ShowMessage + 0001:000434BC ShowMessagePos + 0001:001041E4 ShowMsgOn + 0001:00270C2C ShowOtherSchedule + 0001:00006C78 ShowOwnedPopups + 0001:00124B5C ShowPatientSelectMessages + 0001:00006C80 ShowScrollBar + 0001:002A7D18 ShowSF513 + 0001:001C21CC ShowSurgeryTab + 0001:00184C64 ShowTemplateData + 0002:00000FFC ShowTodayCircleFlags + 0002:00000FF4 ShowTodayFlags + 0001:001E9418 ShowVerifyText + 0001:00006C88 ShowWindow + 0001:000BFD40 ShowWinNoAnimate + 0001:000A62B8 ShowZone + 0002:000088F0 shutdown + 0001:00182A68 ShutDownTimeOut + 0001:00069FC8 SiblingNotInList + 0001:002A7A0C SigFindings + 0002:00002688 SigItemDesc + 0002:000026C0 SigItemDisplayOrder + 0001:001D9F18 SigItemHeight + 0001:001D9EC0 SigItems + 0001:00029C80 SignalSyncEvent + 0001:001C0F0C SignatureForItem + 0001:0021C624 SignDCDocument + 0001:0036B224 SignDocument + 0001:001AD48C SignificantIntDigits + 0001:001DCFA8 SignNotRequired + 0001:001E0ED8 SignNotRequired + 0002:00006DF4 SignonDefaults + 0001:0011B4C8 SilentLogIn + 0001:003597D0 SimpleAddTempDxList + 0001:00016F60 SimpleVarOp + 0001:000C3D04 SinCos + 0002:00001344 SizeCursors + 0002:00009078 SizeHolder + 0001:00006340 SizeofResource + 0001:00026BE8 SkipBinary + 0001:00026C1C SkipCollection + 0001:00026BBC SkipList + 0001:0028D4F4 SkipToNext + 0001:00006348 Sleep + 0001:0000F258 Sleep + 0001:0001DAF8 SmallPoint + 0001:00006E7C SmallPointToPoint + 0002:00005624 smallTab + 0002:000088F4 socket + 0001:0010DAAC socket + 0001:0012B490 SolveForX + 0001:0012B4C8 SolveForY + 0001:002179AC SortByDate + 0001:0022A0E8 SortByDate + 0001:002B8774 SortByDate + 0001:001028D0 SortByPiece + 0001:00229F70 SortByTitle + 0001:002B85D8 SortByTitle + 0001:00217834 SortByTitle + 0002:000011B0 Sorteds + 0001:00378294 SortOrders + 0001:00298A0C SortPromptsBySequence + 0002:00001134 Sorts + 0001:00138C90 SortSlices + 0002:00008D78 SortViaKeyboard + 0002:00008FC0 SourceOrderID + 0002:0000267C SPACE + 0002:00002528 spaceChars + 0002:000055EC spaceRoot + 0001:0010DFB8 SPack + 0002:00001734 SPAIndexMask + 0001:0014D248 SpanOfNowAndThen + 0002:00001738 SPASecShift + 0001:0030B124 SpecimenDefaults + 0001:0030ADD8 Specimens + 0001:00185B30 SpellAndGrammarCheckForControl + 0001:00185A88 SpellCheckAvailable + 0001:00186B04 SpellCheckForControl + 0001:001857E4 SpellCheckInProgress + 0001:00185800 SpellCheckTitle + 0001:001E23C8 Spin + 0001:001AA7E8 SQLTimeStampToDateTime + 0001:001AA618 SQLTimeStampToStr + 0002:00002500 SQLTimeStampVariantType + 0001:001AAA28 SqlTimSt + 0002:000080D0 srcDx + 0002:00008584 srcDx + 0002:00008590 srcIndex + 0002:000080DC srcIndex + 0002:0000857C srcOrderID + 0002:000080C8 srcOrderID + 0001:000E5FC8 StackAlloc + 0001:000E5FF8 StackFree + 0001:0001EAB0 StartClassGroup + 0001:002EF95C StartCoverSheet + 0001:000066B8 StartDoc + 0001:002CF378 StartImportMessage + 0001:000066C0 StartPage + 0001:002DC628 StartupReminders + 0001:0025D3AC StatAllowed + 0001:00104194 StatusText + 0001:00090D34 StdActns + 0001:00090BB8 StdCtrls + 0001:000EDAA4 StdVCL + 0001:0002C378 StdWndProc + 0002:00005B4C StillModal + 0002:000058A8 StockBrush + 0002:000058AC StockFont + 0002:000058B0 StockIcon + 0002:000058A4 StockPen + 0001:002EFA28 StopCoverSheet + 0001:002CF4CC StopImportMessage + 0001:0033BC58 StopProcessingNotifs + 0001:0011DB5C StoreConnection + 0001:0037B118 StoreDigitalSig + 0001:00118760 StoreFontStyle + 0001:000EC9D8 StoreItem + 0001:00009900 StrAlloc + 0001:0000992C StrBufSize + 0001:0000DFD0 StrByteType + 0001:0000975C StrCat + 0001:0000E264 StrCharLength + 0001:00009788 StrComp + 0001:00009670 StrCopy + 0001:00009994 StrDispose + 0001:0006B54C StreamLoad + 0001:001147D4 StreamLoad + 0001:0006B4D8 StreamSave + 0001:00114774 StreamSave + 0001:000AA5EC StreamsEqual + 0001:00009698 StrECopy + 0001:00009630 StrEnd + 0001:000066C8 StretchBlt + 0001:000066D0 StretchDIBits + 0001:00009DE4 StrFmt + 0001:000097AC StrIComp + 0001:000F5E70 StringBetween + 0001:00017508 StringCompare + 0001:0001BF24 StringFromCLSID + 0001:00023260 StringListCompareStrings + 0001:001AC32C StringMultiplyByByte + 0001:0014642C StringPad + 0001:0000ED50 StringReplace + 0001:0002E4E8 StringToColor + 0001:00143684 StringToFMDateTime + 0001:000F0320 StringToGUID + 0001:000F5D58 StringToIntArray + 0001:000046D0 StringToOleStr + 0001:0001AEDC StringToSet + 0001:00108C98 StringToVarOleStr + 0001:00142CD8 StripEmbedded + 0001:000B2704 StripHotkey + 0001:001B59E8 StripSpace + 0001:00143B08 StripSpace + 0001:00341B3C StripTFactors + 0001:000097EC StrLComp + 0001:000096C4 StrLCopy + 0001:00009618 StrLen + 0001:00009E40 StrLFmt + 0001:00009814 StrLIComp + 0001:00009644 StrMove + 0001:00009954 StrNew + 0001:0000E298 StrNextChar + 0001:000098E4 StrPas + 0001:000096F8 StrPCopy + 0001:0000972C StrPLCopy + 0001:00009890 StrPos + 0002:00006DE8 strPosition + 0001:00009858 StrScan + 0002:00006DEC strSize + 0001:001AB754 StrToBcd + 0001:0000C980 StrToDateTime + 0001:0000A9DC StrToFloat + 0001:0010161C StrToFloatDef + 0001:0036DAF0 StrToFMDateTime + 0001:001AD174 StrToFraction + 0001:00008D8C StrToInt + 0001:00008E28 StrToInt64 + 0001:00008E6C StrToInt64Def + 0001:00008DCC StrToIntDef + 0001:001AA718 StrToSQLTimeStamp + 0001:0000C904 StrToTime + 0001:00368B64 StrUserBounds + 0001:00368CC0 StrUserBounds2 + 0001:00368E68 StrUserColumns + 0001:00368D9C StrUserWidth + 0001:0004AA5C StrUtils + 0002:000026C8 StsChar + 0002:000083D8 StsCtxt + 0002:000014BC Styles + 0002:0000119C Styles + 0001:002EF258 SubListPresent + 0001:0036F2BC SubSetOfActiveAndInactivePersons + 0001:0013C1C8 SubSetOfAllTitles + 0001:0013BCB0 SubSetOfBoilerplatedTitles + 0001:0036F354 SubSetOfClinics + 0001:002A65CC SubSetOfClinProcTitles + 0001:002A6240 SubSetOfConsultTitles + 0001:0021B974 SubSetOfDCSummTitles + 0001:0036DF14 SubsetOfDevices + 0001:00191EA0 SubSetOfDiets + 0001:002A52BC SubsetOfEntries + 0001:00258D94 SubsetOfImagingTypes + 0001:00371A84 SubSetOfInpatientLocations + 0001:003719D4 SubSetOfLocations + 0001:00371A2C SubSetOfNewLocs + 0001:003698C8 SubSetOfNoteTitles + 0001:00191EF8 SubSetOfOPDiets + 0001:001B179C SubsetOfOrderable + 0001:002A4B08 SubSetOfOrderItems + 0001:00370734 SubSetOfPatients + 0001:0036DF68 SubSetOfPersons + 0001:002A7B6C SubSetOfProcedures + 0001:0036F190 SubSetOfProviders + 0001:001B1B80 SubsetOfQuickOrders + 0001:00258D4C SubsetOfRadiologists + 0001:00258B5C SubsetOfRadProcs + 0001:00258DDC SubsetOfRadSources + 0001:0025D6D0 SubsetOfSpecimens + 0001:002A6E78 SubSetOfStatus + 0001:001C2570 SubSetOfSurgeryTitles + 0001:001B964C SubsetofSymptoms + 0001:0013C228 SubSetOfTemplateFields + 0001:002A6ED0 SubSetOfUrgencies + 0001:0036D34C SubSetOfUserClasses + 0001:0036F208 SubSetOfUsersWithClass + 0001:003363D0 Substitute + 0001:001ABD00 SubtractChars + 0001:001AD4D0 SubtractNormalizedFractions + 0001:001ABEE8 SubtractStrings + 0001:0001BFBC Succeeded + 0001:0000FA64 Supports + 0001:0000FA28 Supports + 0002:00008E48 Surrogate + 0002:00001760 SuspendedFlag + 0001:00006350 SuspendThread + 0002:000083C8 SvcCtxt + 0002:000072F4 SvcInfo + 0002:00007310 SvcInfo + 0002:00008798 SvcList + 0002:000072F0 SvcList + 0002:0000730C SvcList + 0002:0000731C SvcList + 0002:000082A8 SvcList + 0001:000C7CD4 SwapDouble + 0001:000C7CFC SwapInteger + 0001:000C7CC8 SwapLongint + 0001:000C8760 SwapLongint + 0002:00005858 SyncEvent + 0001:0032A96C Synch + 0001:0027D3F4 SynchCombo + 0002:00000634 SyncList + 0001:0003D258 SyncObjs + 0001:000003DC SysAllocStringLen + 0001:000074D0 SysConst + 0002:00001484 SysConsts + 0002:0000148C SysConsts + 0001:0000CA4C SysErrorMessage + 0001:00001390 SysFreeMem + 0001:000003EC SysFreeString + 0001:0001BF74 SysFreeString + 0001:00005C60 SysGetMem + 0001:00001200 SysGetMem + 0001:00005C58 SysInit + 0002:00005748 SysLocale + 0002:00006E10 SysMenu + 0001:00001710 SysReallocMem + 0001:000003E4 SysReAllocStringLen + 0001:00005A4C System + 0002:00005898 SystemPalette16 + 0001:000310E0 SystemPaletteOverride + 0001:00006C90 SystemParametersInfo + 0001:0000AFCC SystemTimeToDateTime + 0001:0000FFE4 SysUtils + 0001:00006C98 TabbedTextOut + 0001:0005DE2C TabControlError + 0001:00104B8C TabIsPressed + 0001:001233A8 Tabs + 0002:000011D8 TabStops + 0002:00000DE8 TabStyles + 0001:001C3CDC TAccessibleListBox.accDoDefaultAction + 0001:001C3108 TAccessibleListBox.accHitTest + 0001:001C3D6C TAccessibleListBox.accLocation + 0001:001C31C4 TAccessibleListBox.accNavigate + 0001:001C3E0C TAccessibleListBox.accSelect + 0001:001C4038 TAccessibleListBox.ChildType + 0001:001C3FC8 TAccessibleListBox.GetDefaultObject + 0001:001C3298 TAccessibleListBox.Get_accChild + 0001:001C3344 TAccessibleListBox.Get_accChildCount + 0001:001C33C8 TAccessibleListBox.Get_accDefaultAction + 0001:001C3474 TAccessibleListBox.Get_accDescription + 0001:001C3520 TAccessibleListBox.Get_accFocus + 0001:001C35D4 TAccessibleListBox.Get_accHelp + 0001:001C3680 TAccessibleListBox.Get_accHelpTopic + 0001:001C3734 TAccessibleListBox.Get_accKeyboardShortcut + 0001:001C37E0 TAccessibleListBox.Get_accName + 0001:001C394C TAccessibleListBox.Get_accParent + 0001:001C39DC TAccessibleListBox.Get_accRole + 0001:001C3AAC TAccessibleListBox.Get_accSelection + 0001:001C3B60 TAccessibleListBox.Get_accState + 0001:001C3C30 TAccessibleListBox.Get_accValue + 0001:001C3EA0 TAccessibleListBox.Set_accName + 0001:001C3F34 TAccessibleListBox.Set_accValue + 0001:001C4140 TAccessibleListBox.UnwrapControl + 0001:001C40D0 TAccessibleListBox.WrapControl + 0001:001CF290 TAccessibleRichEdit.accDoDefaultAction + 0001:001CE79C TAccessibleRichEdit.accHitTest + 0001:001CF320 TAccessibleRichEdit.accLocation + 0001:001CE858 TAccessibleRichEdit.accNavigate + 0001:001CF3C0 TAccessibleRichEdit.accSelect + 0001:001CF57C TAccessibleRichEdit.ChildType + 0001:001CF614 TAccessibleRichEdit.GetDefaultObject + 0001:001CE92C TAccessibleRichEdit.Get_accChild + 0001:001CE9D8 TAccessibleRichEdit.Get_accChildCount + 0001:001CEA5C TAccessibleRichEdit.Get_accDefaultAction + 0001:001CEB08 TAccessibleRichEdit.Get_accDescription + 0001:001CEBB4 TAccessibleRichEdit.Get_accFocus + 0001:001CEC68 TAccessibleRichEdit.Get_accHelp + 0001:001CED14 TAccessibleRichEdit.Get_accHelpTopic + 0001:001CEDC8 TAccessibleRichEdit.Get_accKeyboardShortcut + 0001:001CEE74 TAccessibleRichEdit.Get_accName + 0001:001CEF48 TAccessibleRichEdit.Get_accParent + 0001:001CEFD8 TAccessibleRichEdit.Get_accRole + 0001:001CF060 TAccessibleRichEdit.Get_accSelection + 0001:001CF114 TAccessibleRichEdit.Get_accState + 0001:001CF1E4 TAccessibleRichEdit.Get_accValue + 0001:001CF684 TAccessibleRichEdit.SafeCallException + 0001:001CF454 TAccessibleRichEdit.Set_accName + 0001:001CF4E8 TAccessibleRichEdit.Set_accValue + 0001:001CF6B4 TAccessibleRichEdit.UnwrapControl + 0001:001CF6C8 TAccessibleRichEdit.WrapControl + 0001:00194E80 TAccessibleStringGrid.accDoDefaultAction + 0001:00193EB4 TAccessibleStringGrid.accHitTest + 0001:00194F10 TAccessibleStringGrid.accLocation + 0001:00193FBC TAccessibleStringGrid.accNavigate + 0001:00195024 TAccessibleStringGrid.accSelect + 0001:001951EC TAccessibleStringGrid.ChildType + 0001:00195284 TAccessibleStringGrid.GetDefaultObject + 0001:0019426C TAccessibleStringGrid.Get_accChild + 0001:001942CC TAccessibleStringGrid.Get_accChildCount + 0001:0019432C TAccessibleStringGrid.Get_accDefaultAction + 0001:001943D8 TAccessibleStringGrid.Get_accDescription + 0001:00194484 TAccessibleStringGrid.Get_accFocus + 0001:0019452C TAccessibleStringGrid.Get_accHelp + 0001:001945D8 TAccessibleStringGrid.Get_accHelpTopic + 0001:0019468C TAccessibleStringGrid.Get_accKeyboardShortcut + 0001:00194738 TAccessibleStringGrid.Get_accName + 0001:0019495C TAccessibleStringGrid.Get_accParent + 0001:001949EC TAccessibleStringGrid.Get_accRole + 0001:00194A8C TAccessibleStringGrid.Get_accSelection + 0001:00194B24 TAccessibleStringGrid.Get_accState + 0001:00194D40 TAccessibleStringGrid.Get_accValue + 0001:001952F4 TAccessibleStringGrid.SafeCallException + 0001:001950B8 TAccessibleStringGrid.Set_accName + 0001:0019514C TAccessibleStringGrid.Set_accValue + 0001:00195324 TAccessibleStringGrid.UnwrapControl + 0001:00195338 TAccessibleStringGrid.WrapControl + 0001:00205DB4 TAccessibleTreeNode.accDoDefaultAction + 0001:0020527C TAccessibleTreeNode.accHitTest + 0001:00205E44 TAccessibleTreeNode.accLocation + 0001:00205338 TAccessibleTreeNode.accNavigate + 0001:00205EE4 TAccessibleTreeNode.accSelect + 0001:00206110 TAccessibleTreeNode.ChildType + 0001:002060A0 TAccessibleTreeNode.GetDefaultObject + 0001:0020540C TAccessibleTreeNode.Get_accChild + 0001:002054B8 TAccessibleTreeNode.Get_accChildCount + 0001:0020553C TAccessibleTreeNode.Get_accDefaultAction + 0001:002055E8 TAccessibleTreeNode.Get_accDescription + 0001:00205694 TAccessibleTreeNode.Get_accFocus + 0001:00205748 TAccessibleTreeNode.Get_accHelp + 0001:002057F4 TAccessibleTreeNode.Get_accHelpTopic + 0001:002058A8 TAccessibleTreeNode.Get_accKeyboardShortcut + 0001:00205954 TAccessibleTreeNode.Get_accName + 0001:00205A24 TAccessibleTreeNode.Get_accParent + 0001:00205AB4 TAccessibleTreeNode.Get_accRole + 0001:00205B84 TAccessibleTreeNode.Get_accSelection + 0001:00205C38 TAccessibleTreeNode.Get_accState + 0001:00205D08 TAccessibleTreeNode.Get_accValue + 0001:00205F78 TAccessibleTreeNode.Set_accName + 0001:0020600C TAccessibleTreeNode.Set_accValue + 0001:00206218 TAccessibleTreeNode.UnwrapControl + 0001:002061A8 TAccessibleTreeNode.WrapControl + 0001:00204A90 TAccessibleTreeView.accDoDefaultAction + 0001:00203EE8 TAccessibleTreeView.accHitTest + 0001:00204B20 TAccessibleTreeView.accLocation + 0001:00203FA4 TAccessibleTreeView.accNavigate + 0001:00204BC0 TAccessibleTreeView.accSelect + 0001:00204DEC TAccessibleTreeView.ChildType + 0001:00204D7C TAccessibleTreeView.GetDefaultObject + 0001:00204078 TAccessibleTreeView.Get_accChild + 0001:00204124 TAccessibleTreeView.Get_accChildCount + 0001:002041A8 TAccessibleTreeView.Get_accDefaultAction + 0001:00204254 TAccessibleTreeView.Get_accDescription + 0001:00204300 TAccessibleTreeView.Get_accFocus + 0001:002043B4 TAccessibleTreeView.Get_accHelp + 0001:00204460 TAccessibleTreeView.Get_accHelpTopic + 0001:00204514 TAccessibleTreeView.Get_accKeyboardShortcut + 0001:002045C0 TAccessibleTreeView.Get_accName + 0001:00204700 TAccessibleTreeView.Get_accParent + 0001:00204790 TAccessibleTreeView.Get_accRole + 0001:00204860 TAccessibleTreeView.Get_accSelection + 0001:00204914 TAccessibleTreeView.Get_accState + 0001:002049E4 TAccessibleTreeView.Get_accValue + 0001:00204C54 TAccessibleTreeView.Set_accName + 0001:00204CE8 TAccessibleTreeView.Set_accValue + 0001:00204EF4 TAccessibleTreeView.UnwrapControl + 0001:00204E84 TAccessibleTreeView.WrapControl + 0001:000A81BC TActionLink.IsCaptionLinked + 0001:000A81E0 TActionLink.IsCheckedLinked + 0001:000A8204 TActionLink.IsEnabledLinked + 0001:000A8228 TActionLink.IsGroupIndexLinked + 0001:000A824C TActionLink.IsHelpContextLinked + 0001:000A8270 TActionLink.IsHelpLinked + 0001:000A8294 TActionLink.IsHintLinked + 0001:000A82B8 TActionLink.IsImageIndexLinked + 0001:000A82DC TActionLink.IsShortCutLinked + 0001:000A8300 TActionLink.IsVisibleLinked + 0001:000A8324 TActionLink.SetAutoCheck + 0001:000A8334 TActionLink.SetCaption + 0001:000A8344 TActionLink.SetChecked + 0001:000A8354 TActionLink.SetEnabled + 0001:000A8364 TActionLink.SetGroupIndex + 0001:000A8374 TActionLink.SetHelpContext + 0001:000A8384 TActionLink.SetHelpKeyword + 0001:000A8394 TActionLink.SetHelpType + 0001:000A83A4 TActionLink.SetHint + 0001:000A83B4 TActionLink.SetImageIndex + 0001:000A83C4 TActionLink.SetShortCut + 0001:000A83D8 TActionLink.SetVisible + 0001:0010712C TAdapterNotifier.Create + 0001:0010717C TAdapterNotifier.OnChanged + 0001:001071C8 TAdapterNotifier.OnRequestEdit + 0001:000D8C3C TAddTeeFunction.Calculate + 0001:000D8C94 TAddTeeFunction.CalculateMany + 0001:003366D4 TakeOutAmps + 0001:002A03A4 TakeoutDuplicateDlg + 0001:00076054 TAnimate.CanAutoSize + 0001:00075DD8 TAnimate.CheckOpen + 0001:00075428 TAnimate.CMColorChanged + 0001:00075454 TAnimate.CNCommand + 0001:00074F48 TAnimate.Create + 0001:00074FEC TAnimate.CreateParams + 0001:000750FC TAnimate.CreateWnd + 0001:0007512C TAnimate.DestroyWnd + 0001:000754E0 TAnimate.DoClose + 0001:000754B4 TAnimate.DoOpen + 0001:0007550C TAnimate.DoStart + 0001:00075538 TAnimate.DoStop + 0001:00075660 TAnimate.GetActualResHandle + 0001:000756C0 TAnimate.GetActualResId + 0001:00075598 TAnimate.GetAnimateParams + 0001:000757DC TAnimate.GetFrameInfo + 0001:00075ECC TAnimate.InternalClose + 0001:00075E10 TAnimate.InternalOpen + 0001:00075570 TAnimate.Loaded + 0001:00075F20 TAnimate.Play + 0001:00075F8C TAnimate.Reset + 0001:00075FB8 TAnimate.Seek + 0001:000758A0 TAnimate.SetActive + 0001:000755FC TAnimate.SetAnimateParams + 0001:00075910 TAnimate.SetCenter + 0001:00075944 TAnimate.SetCommonAVI + 0001:000759E0 TAnimate.SetFileName + 0001:00075AF8 TAnimate.SetOpen + 0001:00075B58 TAnimate.SetRepetitions + 0001:00075B94 TAnimate.SetResHandle + 0001:00075C0C TAnimate.SetResName + 0001:00075CE4 TAnimate.SetStartFrame + 0001:00075D30 TAnimate.SetStopFrame + 0001:00075D70 TAnimate.SetTimers + 0001:00075DA4 TAnimate.SetTransparent + 0001:00075FF8 TAnimate.Stop + 0001:0007517C TAnimate.UpdateActiveState + 0001:000751BC TAnimate.WMNCCalcSize + 0001:000751F8 TAnimate.WMNCHitTest + 0001:00075228 TAnimate.WMNCPaint + 0001:00075344 TAnimate.WMSize + 0001:00075360 TAnimate.WMWindowPosChanged + 0001:000C2B10 TApplication.ActivateHint + 0001:000C1274 TApplication.BringToFront + 0001:000C2800 TApplication.CancelHint + 0001:000C0750 TApplication.CheckIniChange + 0001:000C03C8 TApplication.ControlDestroyed + 0001:000BFE3C TApplication.Create + 0001:000C18A8 TApplication.CreateForm + 0001:000C01EC TApplication.CreateHandle + 0001:000C008C TApplication.Destroy + 0001:000C2FB8 TApplication.DispatchAction + 0001:000C209C TApplication.DoActionIdle + 0001:000C2118 TApplication.DoMouseIdle + 0001:000C04EC TApplication.DoNormalizeTopMosts + 0001:000C3064 TApplication.ExecuteAction + 0001:000C2EE4 TApplication.GetCurrentHelpFile + 0001:000C2F34 TApplication.GetDialogHandle + 0001:000C2004 TApplication.GetExeName + 0001:000C100C TApplication.GetIconHandle + 0001:000C12D0 TApplication.GetTitle + 0001:000C1A54 TApplication.HandleException + 0001:000C1738 TApplication.HandleMessage + 0001:000C1FDC TApplication.HelpCommand + 0001:000C1F64 TApplication.HelpContext + 0001:000C1EEC TApplication.HelpKeyword + 0001:000C27A8 TApplication.HideHint + 0001:000C262C TApplication.HintMouseMessage + 0001:000C2764 TApplication.HintTimerExpired + 0001:000C1760 TApplication.HookMainWindow + 0001:000C3158 TApplication.HookSynchronizeWakeup + 0001:000C2338 TApplication.IconChanged + 0001:000C21C4 TApplication.Idle + 0001:000C1888 TApplication.Initialize + 0001:000C1D38 TApplication.InvokeHelp + 0001:000C13D0 TApplication.IsDlgMsg + 0001:000C1590 TApplication.IsHintMsg + 0001:000C147C TApplication.IsKeyMsg + 0001:000C1410 TApplication.IsMDIMsg + 0001:000C15D4 TApplication.IsShortCut + 0001:000C1AF4 TApplication.MessageBox + 0001:000C1044 TApplication.Minimize + 0001:000C05FC TApplication.ModalFinished + 0001:000C05BC TApplication.ModalStarted + 0001:000C0650 TApplication.NormalizeAllTopMosts + 0001:000C063C TApplication.NormalizeTopMosts + 0001:000C22E8 TApplication.NotifyForms + 0001:000C1654 TApplication.ProcessMessage + 0001:000C171C TApplication.ProcessMessages + 0001:000C1130 TApplication.Restore + 0001:000C0664 TApplication.RestoreTopMosts + 0001:000C193C TApplication.Run + 0001:000C2F78 TApplication.SetDialogHandle + 0001:000C23B4 TApplication.SetHint + 0001:000C2020 TApplication.SetShowHint + 0001:000C07C0 TApplication.SettingChange + 0001:000C132C TApplication.SetTitle + 0001:000C1C5C TApplication.ShowException + 0001:000C259C TApplication.StartHintTimer + 0001:000C25F4 TApplication.StopHintTimer + 0001:000C1A38 TApplication.Terminate + 0001:000C17D8 TApplication.UnhookMainWindow + 0001:000C3174 TApplication.UnhookSynchronizeWakeup + 0001:000C30A0 TApplication.UpdateAction + 0001:000C24C0 TApplication.UpdateVisible + 0001:000C0720 TApplication.UseRightToLeftAlignment + 0001:000C06F0 TApplication.UseRightToLeftReading + 0001:000C2560 TApplication.ValidateHelpSystem + 0001:000C3134 TApplication.WakeMainThread + 0001:000C08C8 TApplication.WndProc + 0001:001354A8 TAreaSeries.Assign + 0001:00135764 TAreaSeries.CalcYPos + 0001:00135508 TAreaSeries.CalcZOrder + 0001:00135404 TAreaSeries.Create + 0001:00135528 TAreaSeries.GetEditorClass + 0001:00135690 TAreaSeries.GetOriginPos + 0001:001355F4 TAreaSeries.InternalCalcStackedYPos + 0001:001356AC TAreaSeries.MaxYValue + 0001:0013573C TAreaSeries.MinYValue + 0001:0013545C TAreaSeries.PrepareLegendCanvas + 0001:001355C4 TAreaSeries.SetMultiArea + 0002:00008FC4 TargetOrderID + 0002:000080CC targetOrderID + 0002:00008580 targetOrderID + 0001:0014E300 TArrowSeries.AddArrow + 0001:0014E1DC TArrowSeries.Create + 0001:0014E488 TArrowSeries.DrawValue + 0001:0014E360 TArrowSeries.FillSampleValues + 0001:0014E464 TArrowSeries.GetArrowHeight + 0001:0014E458 TArrowSeries.GetArrowWidth + 0001:0014E654 TArrowSeries.GetEditorClass + 0001:0014E684 TArrowSeries.GetStartXValues + 0001:0014E694 TArrowSeries.GetStartYValues + 0001:0014E6F0 TArrowSeries.IsValidSourceOf + 0001:0014E574 TArrowSeries.MaxXValue + 0001:0014E5E4 TArrowSeries.MaxYValue + 0001:0014E5AC TArrowSeries.MinXValue + 0001:0014E61C TArrowSeries.MinYValue + 0001:0014E6A4 TArrowSeries.PrepareForGallery + 0001:0014E47C TArrowSeries.SetArrowHeight + 0001:0014E470 TArrowSeries.SetArrowWidth + 0001:0014E2E0 TArrowSeries.SetEndXValues + 0001:0014E2F0 TArrowSeries.SetEndYValues + 0001:0014E68C TArrowSeries.SetStartXValues + 0001:0014E69C TArrowSeries.SetStartYValues + 0002:00001474 TaskActiveWindow + 0002:0000147C TaskFirstTopMost + 0002:00001478 TaskFirstWindow + 0002:00006DD4 TaskInstance + 0002:00001480 TaskWindowList + 0001:000EFF44 TAutoIntfObject.Create + 0001:000EFFBC TAutoIntfObject.GetIDsOfNames + 0001:000EFFE4 TAutoIntfObject.GetTypeInfo + 0001:000F001C TAutoIntfObject.GetTypeInfoCount + 0001:000F0088 TAutoIntfObject.InterfaceSupportsErrorInfo + 0001:000F0038 TAutoIntfObject.Invoke + 0001:000F00B8 TAutoIntfObject.SafeCallException + 0001:000EFC14 TAutoObject.EventSinkChanged + 0001:000EFC50 TAutoObject.GetIDsOfNames + 0001:000EFC7C TAutoObject.GetTypeInfo + 0001:000EFCB4 TAutoObject.GetTypeInfoCount + 0001:000EFC24 TAutoObject.Initialize + 0001:000EFCD0 TAutoObject.Invoke + 0001:000EFD24 TAutoObjectFactory.Create + 0001:000EFF14 TAutoObjectFactory.GetIntfEntry + 0001:000D9034 TAverageTeeFunction.Calculate + 0001:000D90DC TAverageTeeFunction.CalculateMany + 0001:00359FCC TBAPLPt.Create + 0001:0035A208 TBAPLPt.LoadPatientParams + 0001:0035A248 TBAPLPt.rpcInitPt + 0001:00359AD4 TBAPLRec.BuildProblemListDxEntry + 0001:00136638 TBarSeries.CalcHorizMargins + 0001:0013665C TBarSeries.CalcVerticalMargins + 0001:00136560 TBarSeries.CalcXPos + 0001:00136C78 TBarSeries.CalcYPos + 0001:00136764 TBarSeries.DrawBar + 0001:001366F4 TBarSeries.DrawMark + 0001:00136E4C TBarSeries.DrawSeriesForward + 0001:00136BE4 TBarSeries.DrawValue + 0001:00136E40 TBarSeries.DrawValuesForward + 0001:00136D28 TBarSeries.GetOriginPos + 0001:001366E4 TBarSeries.InternalCalcMarkLength + 0001:00136D38 TBarSeries.InternalClicked + 0001:001365E4 TBarSeries.MaxYValue + 0001:00136610 TBarSeries.MinYValue + 0001:00094E28 TBaseDragControlObject.Assign + 0001:00094DE4 TBaseDragControlObject.Create + 0001:00094E64 TBaseDragControlObject.EndDrag + 0001:00094E94 TBaseDragControlObject.Finished + 0001:0002B4F4 TBasicAction.Change + 0001:0002B2CC TBasicAction.Create + 0001:0002B328 TBasicAction.Destroy + 0001:0002B414 TBasicAction.Execute + 0001:0002B3B8 TBasicAction.ExecuteTarget + 0001:0002B3A0 TBasicAction.HandlesTarget + 0001:0002B3C8 TBasicAction.Notification + 0001:0002B518 TBasicAction.RegisterChanges + 0001:0002B59C TBasicAction.SetActionComponent + 0001:0002B47C TBasicAction.SetOnExecute + 0001:0002B540 TBasicAction.UnRegisterChanges + 0001:0002B448 TBasicAction.Update + 0001:0002B404 TBasicAction.UpdateTarget + 0001:0002B188 TBasicActionLink.AssignClient + 0001:0002B1E0 TBasicActionLink.Change + 0001:0002B138 TBasicActionLink.Create + 0001:0002B198 TBasicActionLink.Destroy + 0001:0002B208 TBasicActionLink.Execute + 0001:0002B28C TBasicActionLink.IsOnExecuteLinked + 0001:0002B240 TBasicActionLink.SetAction + 0001:0002B2A0 TBasicActionLink.SetOnExecute + 0001:0002B2AC TBasicActionLink.Update + 0001:00047114 TBevel.Create + 0001:00047374 TBevel.Paint + 0001:000471D4 TBevel.SetShape + 0001:000471A0 TBevel.SetStyle + 0001:0004EB0C TBitBtn.ActionChange + 0001:0004DFE0 TBitBtn.Click + 0001:0004E5C8 TBitBtn.CMEnabledChanged + 0001:0004E5A4 TBitBtn.CMFontChanged + 0001:0004EBCC TBitBtn.CMMouseEnter + 0001:0004EC20 TBitBtn.CMMouseLeave + 0001:0004E0AC TBitBtn.CNDrawItem + 0001:0004E078 TBitBtn.CNMeasureItem + 0001:0004DE1C TBitBtn.Create + 0001:0004DF4C TBitBtn.CreateHandle + 0001:0004DF88 TBitBtn.CreateParams + 0001:0004DEFC TBitBtn.Destroy + 0001:0004E0CC TBitBtn.DrawItem + 0001:0004E66C TBitBtn.GetGlyph + 0001:0004E8BC TBitBtn.GetKind + 0001:0004E990 TBitBtn.GetNumGlyphs + 0001:0004E618 TBitBtn.GetPalette + 0001:0004E68C TBitBtn.GlyphChanged + 0001:0004E6A4 TBitBtn.IsCustom + 0001:0004E838 TBitBtn.IsCustomCaption + 0001:0004DFAC TBitBtn.SetButtonStyle + 0001:0004E638 TBitBtn.SetGlyph + 0001:0004E6F8 TBitBtn.SetKind + 0001:0004E95C TBitBtn.SetLayout + 0001:0004EA34 TBitBtn.SetMargin + 0001:0004E9B0 TBitBtn.SetNumGlyphs + 0001:0004EA00 TBitBtn.SetSpacing + 0001:0004E6C4 TBitBtn.SetStyle + 0001:0004E5EC TBitBtn.WMLButtonDblClk + 0001:00035684 TBitmap.Assign + 0001:00035894 TBitmap.Changed + 0001:00035858 TBitmap.Changing + 0001:00035784 TBitmap.CopyImage + 0001:000355B8 TBitmap.Create + 0001:00035634 TBitmap.Destroy + 0001:00035EF0 TBitmap.DIBNeeded + 0001:000358B8 TBitmap.Dormant + 0001:00035940 TBitmap.Draw + 0001:00035FC4 TBitmap.FreeContext + 0001:00035BE4 TBitmap.FreeImage + 0001:00035CC4 TBitmap.GetCanvas + 0001:00035C84 TBitmap.GetEmpty + 0001:00035D34 TBitmap.GetHandle + 0001:00035D6C TBitmap.GetHandleType + 0001:00035DC4 TBitmap.GetHeight + 0001:00035DE8 TBitmap.GetMaskHandle + 0001:00035E0C TBitmap.GetMonochrome + 0001:00035E48 TBitmap.GetPalette + 0001:00035E6C TBitmap.GetTransparentColor + 0001:00035ED4 TBitmap.GetWidth + 0001:00035FE4 TBitmap.HandleNeeded + 0001:0003635C TBitmap.LoadFromClipboardFormat + 0001:00036424 TBitmap.LoadFromResourceName + 0001:000363F4 TBitmap.LoadFromStream + 0001:000360A8 TBitmap.Mask + 0001:000361B4 TBitmap.MaskHandleNeeded + 0001:00036490 TBitmap.NewImage + 0001:0003624C TBitmap.PaletteNeeded + 0001:0003659C TBitmap.ReadData + 0001:000365CC TBitmap.ReadDIB + 0001:00036B98 TBitmap.ReadStream + 0001:00037540 TBitmap.ReleaseHandle + 0001:0003759C TBitmap.ReleasePalette + 0001:000375F8 TBitmap.SaveToClipboardFormat + 0001:000375D8 TBitmap.SaveToStream + 0001:00036C10 TBitmap.SetHandle + 0001:00036CFC TBitmap.SetHandleType + 0001:00036EC8 TBitmap.SetHeight + 0001:00036F38 TBitmap.SetMonochrome + 0001:00036FE4 TBitmap.SetPalette + 0001:000370F0 TBitmap.SetTransparentColor + 0001:00037170 TBitmap.SetWidth + 0001:000371E0 TBitmap.WriteData + 0001:00037200 TBitmap.WriteStream + 0001:000347E0 TBitmapCanvas.Create + 0001:0003491C TBitmapCanvas.CreateHandle + 0001:00034830 TBitmapCanvas.Destroy + 0001:0003486C TBitmapCanvas.FreeContext + 0001:00034A68 TBitmapImage.Destroy + 0001:00034AE8 TBitmapImage.FreeHandle + 0001:000201EC TBits.Destroy + 0001:00020228 TBits.Error + 0001:00020374 TBits.GetBit + 0001:0002038C TBits.OpenBit + 0001:00020348 TBits.SetBit + 0001:00020274 TBits.SetSize + 0001:0012B40C TBltBitmap.MakeLike + 0001:0002F310 TBrush.Assign + 0001:0002F290 TBrush.Create + 0001:0002F2DC TBrush.Destroy + 0001:0002F444 TBrush.GetBitmap + 0001:0002F494 TBrush.GetColor + 0001:0002F3B8 TBrush.GetData + 0001:0002F4E8 TBrush.GetHandle + 0001:0002F5DC TBrush.GetStyle + 0001:0002F460 TBrush.SetBitmap + 0001:0002F4B0 TBrush.SetColor + 0001:0002F3F0 TBrush.SetData + 0001:0002F5F8 TBrush.SetStyle + 0001:0008CD84 TButton.Click + 0001:0008CFB0 TButton.CMDialogChar + 0001:0008CF24 TButton.CMDialogKey + 0001:0008D044 TButton.CMFocusChanged + 0001:0008CEFC TButton.CNCommand + 0001:0008D0EC TButton.CNCtlColorBtn + 0001:0008CD08 TButton.Create + 0001:0008CE8C TButton.CreateParams + 0001:0008CED8 TButton.CreateWnd + 0001:0008CDD0 TButton.SetButtonStyle + 0001:0008CE38 TButton.SetDefault + 0001:0008CDBC TButton.UseRightToLeftAlignment + 0001:0008D0B4 TButton.WMEraseBkgnd + 0001:0008C95C TButtonActionLink.AssignClient + 0001:0008C98C TButtonActionLink.IsCheckedLinked + 0001:0008C9DC TButtonActionLink.SetChecked + 0001:0008CAB0 TButtonControl.ActionChange + 0001:0008CC0C TButtonControl.CNCtlColorStatic + 0001:0008CA48 TButtonControl.Create + 0001:0008CCA0 TButtonControl.CreateParams + 0001:0008CB0C TButtonControl.GetActionLinkClass + 0001:0008CB24 TButtonControl.GetChecked + 0001:0008CB38 TButtonControl.IsCheckedStored + 0001:0008CB6C TButtonControl.SetChecked + 0001:0008CCD4 TButtonControl.SetWordWrap + 0001:0008CC68 TButtonControl.WMEraseBkGnd + 0001:0008CB7C TButtonControl.WndProc + 0001:0004C760 TButtonGlyph.CalcButtonLayout + 0001:0004BBF0 TButtonGlyph.Create + 0001:0004BE98 TButtonGlyph.CreateButtonGlyph + 0001:0004BCA0 TButtonGlyph.Destroy + 0001:0004CAF0 TButtonGlyph.Draw + 0001:0004C4DC TButtonGlyph.DrawButtonGlyph + 0001:0004C668 TButtonGlyph.DrawButtonText + 0001:0004BD74 TButtonGlyph.GlyphChanged + 0001:0004BD0C TButtonGlyph.Invalidate + 0001:0004BDC0 TButtonGlyph.SetGlyph + 0001:0004BE58 TButtonGlyph.SetNumGlyphs + 0001:001256CC TCalendar.Change + 0001:00125B1C TCalendar.ChangeMonth + 0001:001256EC TCalendar.Click + 0001:0012561C TCalendar.Create + 0001:0012579C TCalendar.DaysPerMonth + 0001:001257CC TCalendar.DaysThisMonth + 0001:001257F8 TCalendar.DrawCell + 0001:001258A8 TCalendar.GetCellText + 0001:001259C8 TCalendar.GetDateElement + 0001:00125760 TCalendar.IsLeapYear + 0001:00125C1C TCalendar.NextMonth + 0001:00125C10 TCalendar.PrevMonth + 0001:00125918 TCalendar.SelectCell + 0001:00125994 TCalendar.SetCalendarDate + 0001:00125A14 TCalendar.SetDateElement + 0001:00125ACC TCalendar.SetStartOfWeek + 0001:00125AEC TCalendar.SetUseCurrentDate + 0001:00125C28 TCalendar.UpdateCalendar + 0001:00125D24 TCalendar.WMSize + 0001:00121614 tCallV + 0001:000307CC TCanvas.BrushChanged + 0001:0002F7BC TCanvas.BrushCopy + 0001:0003061C TCanvas.Changed + 0001:000305F8 TCanvas.Changing + 0001:0002FAC0 TCanvas.CopyRect + 0001:0002F634 TCanvas.Create + 0001:000306C4 TCanvas.CreateBrush + 0001:00030640 TCanvas.CreateFont + 0001:000304DC TCanvas.CreateHandle + 0001:00030680 TCanvas.CreatePen + 0001:00030464 TCanvas.DeselectHandles + 0001:0002F744 TCanvas.Destroy + 0001:0002FB70 TCanvas.Draw + 0001:0002FC34 TCanvas.DrawFocusRect + 0001:0002FC78 TCanvas.Ellipse + 0001:0002FCCC TCanvas.FillRect + 0001:00030764 TCanvas.FontChanged + 0001:0002FD1C TCanvas.FrameRect + 0001:0002FFE4 TCanvas.GetCanvasOrientation + 0001:000303FC TCanvas.GetClipRect + 0001:00030430 TCanvas.GetHandle + 0001:0003030C TCanvas.GetPenPos + 0001:00030368 TCanvas.GetPixel + 0001:0002FD6C TCanvas.LineTo + 0001:0002FDB8 TCanvas.Lock + 0001:0002FDE8 TCanvas.MoveTo + 0001:00030798 TCanvas.PenChanged + 0001:0002FE24 TCanvas.Pie + 0001:0002FE88 TCanvas.Polyline + 0001:0002FED4 TCanvas.Rectangle + 0001:0002FF28 TCanvas.Refresh + 0001:00030564 TCanvas.RequiredState + 0001:0002FF3C TCanvas.RoundRect + 0001:000302EC TCanvas.SetBrush + 0001:000302AC TCanvas.SetFont + 0001:000304E8 TCanvas.SetHandle + 0001:000302CC TCanvas.SetPen + 0001:00030340 TCanvas.SetPenPos + 0001:000303A8 TCanvas.SetPixel + 0001:0002FF98 TCanvas.StretchDraw + 0001:00030174 TCanvas.TextExtent + 0001:000301F4 TCanvas.TextHeight + 0001:00030020 TCanvas.TextOut + 0001:000300C0 TCanvas.TextRect + 0001:000301CC TCanvas.TextWidth + 0001:0003021C TCanvas.TryLock + 0001:0003027C TCanvas.Unlock + 0001:000C42DC TCanvas3D.Assign + 0001:00100070 TCaptionCheckListBox.GetCaption + 0001:00100098 TCaptionCheckListBox.SetCaption + 0001:00100404 TCaptionComboBox.GetCaption + 0001:0010042C TCaptionComboBox.SetCaption + 0001:001001C0 TCaptionEdit.GetCaption + 0001:001001E8 TCaptionEdit.SetCaption + 0001:000FFD84 TCaptionListBox.DoEnter + 0001:000FFDA4 TCaptionListBox.GetCaption + 0001:000FFDCC TCaptionListBox.SetCaption + 0001:000FFE4C TCaptionListBox.WMGetObject + 0001:000FFE84 TCaptionListBox.WMMouseMove + 0001:000FFF44 TCaptionListBox.WMRButtonUp + 0001:00100118 TCaptionMemo.GetCaption + 0001:00100140 TCaptionMemo.SetCaption + 0001:00100268 TCaptionRichEdit.MakeAccessible + 0001:0010032C TCaptionRichEdit.WMGetObject + 0001:00100528 TCaptionStringGrid.ColRowToIndex + 0001:0010054C TCaptionStringGrid.IndexToColRow + 0001:00100594 TCaptionStringGrid.KeyUp + 0001:00100608 TCaptionStringGrid.MakeAccessible + 0001:001006CC TCaptionStringGrid.WMGetObject + 0001:00100364 TCaptionTreeView.GetCaption + 0001:00100378 TCaptionTreeView.SetCaption + 0001:0011FA24 TCCOWRPCBroker.CCOWsetUser + 0001:0011F8DC TCCOWRPCBroker.GetCCOWHandle + 0001:0011FDBC TCCOWRPCBroker.GetCCOWtoken + 0001:0011F29C TCCOWRPCBroker.IsUserCleared + 0001:001200CC TCCOWRPCBroker.IsUserContextPending + 0001:0011EABC TCCOWRPCBroker.SetConnected + 0001:0011F294 TCCOWRPCBroker.WasUserDefined + 0001:00143088 TCellObject.Add + 0001:00143028 TCellObject.Create + 0001:00143064 TCellObject.Destroy + 0001:003734F8 TChangeItem.Create + 0001:000AAEE0 TChangeLink.Change + 0001:000AAE98 TChangeLink.Destroy + 0001:003736C0 TChanges.Add + 0001:00374294 TChanges.AddUnsignedToChanges + 0001:00373928 TChanges.CanSign + 0001:00375120 TChanges.ChangeOrderGrp + 0001:003739C4 TChanges.Clear + 0001:003735B4 TChanges.Create + 0001:00373650 TChanges.Destroy + 0001:00373B34 TChanges.Exist + 0001:00373C20 TChanges.ExistForOrder + 0001:00373CE8 TChanges.Locate + 0001:00373DE0 TChanges.Remove + 0001:003750B0 TChanges.ReplaceODGrpName + 0001:00374034 TChanges.ReplaceSignState + 0001:00374124 TChanges.ReplaceText + 0001:0037421C TChanges.RequireReview + 0001:000C3F4C TChartArrowPen.Create + 0001:000C3EFC TChartAxisPen.Create + 0001:000CCA54 TChartAxisTitle.Assign + 0001:000CCA94 TChartAxisTitle.IsAngleStored + 0001:000CCAA4 TChartAxisTitle.SetAngle + 0001:000CCB08 TChartAxisTitle.SetCaption + 0001:000DB14C TChartBrush.Create + 0001:000DB1A0 TChartBrush.HasBitmap + 0001:000C9DC4 TChartFontObject.Assign + 0001:000C9D28 TChartFontObject.Create + 0001:000C9D94 TChartFontObject.Destroy + 0001:000C9D84 TChartFontObject.IsFontStored + 0001:000C9E08 TChartFontObject.Repaint + 0001:000C9DF8 TChartFontObject.SetFont + 0001:000C3E08 TChartHiddenPen.Create + 0001:000C3DAC TChartPen.Assign + 0001:000C3D5C TChartPen.Create + 0001:000C3DF4 TChartPen.SetSmallDots + 0001:000C3DE0 TChartPen.SetVisible + 0001:000D3A6C TChartSeries.Add + 0001:000D3114 TChartSeries.AddChartValue + 0001:000D31F4 TChartSeries.AddedValue + 0001:000D4E74 TChartSeries.AddLinkedSeries + 0001:000D3A34 TChartSeries.AddNull + 0001:000D3A48 TChartSeries.AddNullXY + 0001:000D30D4 TChartSeries.AddValue + 0001:000D3490 TChartSeries.AddValues + 0001:000D3AB0 TChartSeries.AddX + 0001:000D3930 TChartSeries.AddXY + 0001:000D3AF4 TChartSeries.AddY + 0001:000D4338 TChartSeries.Assign + 0001:000D3528 TChartSeries.AssignValues + 0001:000D4890 TChartSeries.AssociatedToAxis + 0001:000D2E58 TChartSeries.CalcFirstLastVisibleIndex + 0001:000D3874 TChartSeries.CalcHorizMargins + 0001:000D4AEC TChartSeries.CalcPosValue + 0001:000D3FA4 TChartSeries.CalcRandomBounds + 0001:000D3880 TChartSeries.CalcVerticalMargins + 0001:000D4B20 TChartSeries.CalcXPos + 0001:000D4AA4 TChartSeries.CalcXPosValue + 0001:000D4BE8 TChartSeries.CalcYPos + 0001:000D4AD4 TChartSeries.CalcYPosValue + 0001:000D4A48 TChartSeries.CalcZOrder + 0001:000D2B70 TChartSeries.CanvasChanged + 0001:000D2804 TChartSeries.CheckDataSource + 0001:000D2C40 TChartSeries.CheckOtherSeries + 0001:000D4844 TChartSeries.Clear + 0001:000D47BC TChartSeries.ClearLists + 0001:000D4D24 TChartSeries.ClearTempValue + 0001:000D2C50 TChartSeries.Clicked + 0001:000D3B38 TChartSeries.Count + 0001:000D3B44 TChartSeries.CountLegendItems + 0001:000D20E4 TChartSeries.Create + 0001:000D27EC TChartSeries.CreateChartPen + 0001:000D2374 TChartSeries.DefineProperties + 0001:000D4C0C TChartSeries.Delete + 0001:000D30C8 TChartSeries.DeletedValue + 0001:000D504C TChartSeries.Destroy + 0001:000D363C TChartSeries.DoAfterDrawValues + 0001:000D3618 TChartSeries.DoBeforeDrawChart + 0001:000D361C TChartSeries.DoBeforeDrawValues + 0001:000D4B54 TChartSeries.DoSeriesClick + 0001:000D4B44 TChartSeries.DoSeriesMouseMove + 0001:000D4B4C TChartSeries.DoSeriesMouseUp + 0001:000D26B0 TChartSeries.DrawAllValues + 0001:000D4948 TChartSeries.DrawLegend + 0001:000D48DC TChartSeries.DrawLegendShape + 0001:000D388C TChartSeries.DrawMark + 0001:000D365C TChartSeries.DrawMarks + 0001:000D26AC TChartSeries.DrawSeriesForward + 0001:000D3008 TChartSeries.DrawValue + 0001:000D26A8 TChartSeries.DrawValuesForward + 0001:000D4184 TChartSeries.FillSampleValues + 0001:000D35B0 TChartSeries.FirstInZOrder + 0001:000D4794 TChartSeries.FreeXLabel + 0001:000D42A4 TChartSeries.GalleryChanged3D + 0001:000D4668 TChartSeries.GetBitmapEditor + 0001:000D22B8 TChartSeries.GetChildren + 0001:000D2884 TChartSeries.GetDataSource + 0001:000D353C TChartSeries.GetEditorClass + 0001:000D3CF0 TChartSeries.GetMarkText + 0001:000D3C7C TChartSeries.GetMarkValue + 0001:000D4768 TChartSeries.GetMemLabel + 0001:000D3C64 TChartSeries.GetOriginValue + 0001:000D22E4 TChartSeries.GetParentComponent + 0001:000D2DAC TChartSeries.GetValue + 0001:000D46E4 TChartSeries.GetValueColor + 0001:000D46A0 TChartSeries.GetXLabel + 0001:000D4670 TChartSeries.GetxValue + 0001:000D4688 TChartSeries.GetyValue + 0001:000D2B78 TChartSeries.GetYValueList + 0001:000D5124 TChartSeries.GetZOrder + 0001:000D230C TChartSeries.HasParent + 0001:000D3908 TChartSeries.InsertLabel + 0001:000D28A8 TChartSeries.InternalAddDataSource + 0001:000D3A18 TChartSeries.IsNull + 0001:000D3070 TChartSeries.IsPercentFormatStored + 0001:000D2B6C TChartSeries.IsValidSeriesSource + 0001:000D2B64 TChartSeries.IsValidSourceOf + 0001:000D3018 TChartSeries.IsValueFormatStored + 0001:000D4940 TChartSeries.LegendItemColor + 0001:000D32A4 TChartSeries.LegendString + 0001:000D32A0 TChartSeries.LegendToValueIndex + 0001:000D4F98 TChartSeries.Loaded + 0001:000D26A0 TChartSeries.MandatoryValueList + 0001:000D3B4C TChartSeries.MarkPercent + 0001:000D4DE4 TChartSeries.MaxMarkWidth + 0001:000D4D3C TChartSeries.MaxXValue + 0001:000D4D54 TChartSeries.MaxYValue + 0001:000D4D9C TChartSeries.MaxZValue + 0001:000D4D6C TChartSeries.MinXValue + 0001:000D4D84 TChartSeries.MinYValue + 0001:000D4DC0 TChartSeries.MinZValue + 0001:000D3548 TChartSeries.MoreSameZOrder + 0001:000D233C TChartSeries.Notification + 0001:000D39DC TChartSeries.NotifyNewValue + 0001:000D4EB8 TChartSeries.NotifyValue + 0001:000D3F9C TChartSeries.NumSampleValues + 0001:000D2734 TChartSeries.PointOrigin + 0001:000D3F60 TChartSeries.PrepareForGallery + 0001:000D4A40 TChartSeries.PrepareLegendCanvas + 0001:000D25C0 TChartSeries.ReadData + 0001:000D2430 TChartSeries.ReadIdentifier + 0001:000D2494 TChartSeries.ReadStyle + 0001:000D2C54 TChartSeries.RecalcGetAxis + 0001:000D3530 TChartSeries.RefreshSeries + 0001:000D28E4 TChartSeries.RemoveAllLinkedSeries + 0001:000D4E94 TChartSeries.RemoveDataSource + 0001:000D4EA8 TChartSeries.RemoveLinkedSeries + 0001:000D2FF0 TChartSeries.Repaint + 0001:000D26FC TChartSeries.SameClass + 0001:000D300C TChartSeries.SetActive + 0001:000D38FC TChartSeries.SetBooleanProperty + 0001:000D2D20 TChartSeries.SetChartValueList + 0001:000D461C TChartSeries.SetColorEachPoint + 0001:000D42EC TChartSeries.SetColorProperty + 0001:000D281C TChartSeries.SetColorSource + 0001:000D2B3C TChartSeries.SetDataSource + 0001:000D42C4 TChartSeries.SetDoubleProperty + 0001:000D2310 TChartSeries.SetFunction + 0001:000D2CD8 TChartSeries.SetHorizAxis + 0001:000D38BC TChartSeries.SetIntegerProperty + 0001:000D2850 TChartSeries.SetLabelsSource + 0001:000D38C8 TChartSeries.SetLongintProperty + 0001:000D4D14 TChartSeries.SetMarks + 0001:000D4720 TChartSeries.SetParentChart + 0001:000D22E8 TChartSeries.SetParentComponent + 0001:000D3F54 TChartSeries.SetPercentFormat + 0001:000D4D30 TChartSeries.SetSeriesColor + 0001:000D465C TChartSeries.SetShowInLegend + 0001:000D38D4 TChartSeries.SetStringProperty + 0001:000D2D5C TChartSeries.SetTitle + 0001:000D4754 TChartSeries.SetValueColor + 0001:000D3F48 TChartSeries.SetValueFormat + 0001:000D2CFC TChartSeries.SetVertAxis + 0001:000D2D3C TChartSeries.SetXValues + 0001:000D2D4C TChartSeries.SetYValues + 0001:000D4CA4 TChartSeries.SwapValueIndex + 0001:000D4F94 TChartSeries.UseAxis + 0001:000D2648 TChartSeries.WriteData + 0001:000D2484 TChartSeries.WriteIdentifier + 0001:000D256C TChartSeries.WriteStyle + 0001:000D4ABC TChartSeries.XScreenToValue + 0001:000D2688 TChartSeries.YMandatory + 0001:000D5150 TChartSeriesList.CountActive + 0001:000D513C TChartSeriesList.GetSeries + 0001:000DB428 TChartTitle.Assign + 0001:000DB5D0 TChartTitle.Clicked + 0001:000DB35C TChartTitle.Create + 0001:000DB524 TChartTitle.Destroy + 0001:000DB6DC TChartTitle.Draw + 0001:000DB488 TChartTitle.IsFontStored + 0001:000DB588 TChartTitle.SetAdjustFrame + 0001:000DB598 TChartTitle.SetAlignment + 0001:000DB5A8 TChartTitle.SetBrush + 0001:000DB5B4 TChartTitle.SetColor + 0001:000DB5C4 TChartTitle.SetFrame + 0001:000DB564 TChartTitle.SetText + 0001:000DB578 TChartTitle.SetVisible + 0001:000D0C60 TChartValueList.AddChartValue + 0001:000D11E8 TChartValueList.Assign + 0001:000D0FAC TChartValueList.ClearValues + 0001:000D0BD4 TChartValueList.Count + 0001:000D0B20 TChartValueList.Create + 0001:000D0C00 TChartValueList.Delete + 0001:000D0BA4 TChartValueList.Destroy + 0001:000D1070 TChartValueList.FillSequence + 0001:000D0E0C TChartValueList.GetMaxValue + 0001:000D0E34 TChartValueList.GetMinValue + 0001:000D0E5C TChartValueList.GetTotal + 0001:000D0E84 TChartValueList.GetTotalABS + 0001:000D0D78 TChartValueList.GetValue + 0001:000D0C2C TChartValueList.InsertChartValue + 0001:000D0BDC TChartValueList.Last + 0001:000D0D9C TChartValueList.Locate + 0001:000D0EAC TChartValueList.RecalcStats + 0001:000D0FF8 TChartValueList.Scroll + 0001:000D0F9C TChartValueList.SetDateTime + 0001:000D0D3C TChartValueList.SetMultiplier + 0001:000D0DD8 TChartValueList.SetValue + 0001:000D1048 TChartValueList.SetValueSource + 0001:000D11C0 TChartValueList.Sort + 0001:000D20D0 TChartValueLists.GetValueList + 0001:000D8184 TCheckListBox.ClickCheck + 0001:000D7898 TCheckListBox.CMFontChanged + 0001:000D7AF0 TCheckListBox.CNDrawItem + 0001:000D7678 TCheckListBox.Create + 0001:000D7850 TCheckListBox.CreateParams + 0001:000D7724 TCheckListBox.CreateWnd + 0001:000D82D4 TCheckListBox.CreateWrapper + 0001:000D83C4 TCheckListBox.DeleteString + 0001:000D76E4 TCheckListBox.Destroy + 0001:000D77BC TCheckListBox.DestroyWnd + 0001:000D7B68 TCheckListBox.DrawCheck + 0001:000D7934 TCheckListBox.DrawItem + 0001:000D8220 TCheckListBox.ExtractWrapper + 0001:000D7F10 TCheckListBox.GetChecked + 0001:000D787C TCheckListBox.GetCheckWidth + 0001:000D8488 TCheckListBox.GetHeader + 0001:000D81B0 TCheckListBox.GetItemData + 0001:000D7F4C TCheckListBox.GetItemEnabled + 0001:000D7F88 TCheckListBox.GetState + 0001:000D81E8 TCheckListBox.GetWrapper + 0001:000D8304 TCheckListBox.HaveWrapper + 0001:000D828C TCheckListBox.InternalGetItemData + 0001:000D82B0 TCheckListBox.InternalSetItemData + 0001:000D7E80 TCheckListBox.InvalidateCheck + 0001:000D7FCC TCheckListBox.KeyPress + 0001:000D8004 TCheckListBox.MouseDown + 0001:000D8368 TCheckListBox.ResetContent + 0001:000D78BC TCheckListBox.ResetItemHeight + 0001:000D7DFC TCheckListBox.SetChecked + 0001:000D8400 TCheckListBox.SetFlat + 0001:000D84C4 TCheckListBox.SetHeaderBackgroundColor + 0001:000D84F8 TCheckListBox.SetHeaderColor + 0001:000D8328 TCheckListBox.SetItemData + 0001:000D7E40 TCheckListBox.SetState + 0001:000D80F0 TCheckListBox.ToggleClickCheck + 0001:000D8434 TCheckListBox.WMDestroy + 0001:000D7648 TCheckListBoxDataWrapper.GetChecked + 0001:000D7664 TCheckListBoxDataWrapper.GetDefaultState + 0001:000D7620 TCheckListBoxDataWrapper.SetChecked + 0001:001F8AFC TChildOD.Create + 0001:00137D64 TCircledSeries.AdjustCircleRect + 0001:001380F4 TCircledSeries.AngleToPos + 0001:00138290 TCircledSeries.Assign + 0001:00137D60 TCircledSeries.AssociatedToAxis + 0001:00138150 TCircledSeries.CalcCircleBackColor + 0001:00138048 TCircledSeries.CalcRadius + 0001:0013793C TCircledSeries.Create + 0001:00137998 TCircledSeries.Destroy + 0001:00137FE0 TCircledSeries.DoBeforeDrawValues + 0001:0013819C TCircledSeries.PointToAngle + 0001:00138184 TCircledSeries.PrepareLegendCanvas + 0001:001382F4 TCircledSeries.SetActive + 0001:001380E4 TCircledSeries.SetCircleBackColor + 0001:001379CC TCircledSeries.SetCircled + 0001:00137B6C TCircledSeries.SetCustomXRadius + 0001:00137B90 TCircledSeries.SetCustomYRadius + 0001:00137AF0 TCircledSeries.SetOtherCustomRadius + 0001:00137D24 TCircledSeries.SetParentChart + 0001:00137C08 TCircledSeries.SetParentProperties + 0001:00137A38 TCircledSeries.SetRotationAngle + 0001:00137B68 TCircledSeries.UseAxis + 0001:0001E67C TClassFinder.Create + 0001:0001E7C4 TClassFinder.Destroy + 0001:0001E800 TClassFinder.GetClass + 0001:0012C254 TClinProcTitles.Create + 0001:0012C298 TClinProcTitles.Destroy + 0001:00049F4C TClipboard.Adding + 0001:0004A554 TClipboard.Assign + 0001:0004A4D0 TClipboard.AssignGraphic + 0001:0004A44C TClipboard.AssignPicture + 0001:0004A3D4 TClipboard.AssignTo + 0001:0004A2FC TClipboard.AssignToBitmap + 0001:0004A368 TClipboard.AssignToMetafile + 0001:0004A238 TClipboard.AssignToPicture + 0001:00049F08 TClipboard.Clear + 0001:00049F78 TClipboard.Close + 0001:0004A760 TClipboard.Destroy + 0001:0004A5B0 TClipboard.GetAsHandle + 0001:0004A188 TClipboard.GetAsText + 0001:0004A68C TClipboard.HasFormat + 0001:0004A6FC TClipboard.MainWndProc + 0001:00049FBC TClipboard.Open + 0001:0004A208 TClipboard.SetAsText + 0001:0004A070 TClipboard.SetBuffer + 0001:0004A15C TClipboard.SetTextBuf + 0001:0004A038 TClipboard.WndProc + 0001:000326B8 TClipboardFormats.Add + 0001:000325E8 TClipboardFormats.Create + 0001:0003267C TClipboardFormats.Destroy + 0001:00032728 TClipboardFormats.FindFormat + 0001:00020C0C TCollection.Add + 0001:0002123C TCollection.Added + 0001:00020C38 TCollection.Assign + 0001:00020CDC TCollection.BeginUpdate + 0001:00020CEC TCollection.Changed + 0001:00020D0C TCollection.Clear + 0001:00020B44 TCollection.Create + 0001:000211D8 TCollection.Delete + 0001:0002124C TCollection.Deleting + 0001:00020BA8 TCollection.Destroy + 0001:00020D74 TCollection.EndUpdate + 0001:00020D8C TCollection.FindItemID + 0001:00020DFC TCollection.GetAttr + 0001:00020DE4 TCollection.GetAttrCount + 0001:00020E40 TCollection.GetCount + 0001:00020E5C TCollection.GetItem + 0001:00020E18 TCollection.GetItemAttr + 0001:00020E80 TCollection.GetNamePath + 0001:00020F50 TCollection.GetPropName + 0001:0002108C TCollection.Insert + 0001:000210B8 TCollection.InsertItem + 0001:0002125C TCollection.Notify + 0001:00021218 TCollection.Owner + 0001:00021144 TCollection.RemoveItem + 0001:000211B8 TCollection.SetItemName + 0001:000211C8 TCollection.Update + 0001:0002090C TCollectionItem.Changed + 0001:00020888 TCollectionItem.Create + 0001:000208D0 TCollectionItem.Destroy + 0001:0002098C TCollectionItem.GetDisplayName + 0001:00020954 TCollectionItem.GetIndex + 0001:000209C0 TCollectionItem.GetNamePath + 0001:00020A80 TCollectionItem.GetOwner + 0001:00020A9C TCollectionItem.SetCollection + 0001:00020AE0 TCollectionItem.SetDisplayName + 0001:00020AFC TCollectionItem.SetIndex + 0001:00040F64 TColorDialog.Create + 0001:00040FC0 TColorDialog.Destroy + 0001:000411AC TColorDialog.Execute + 0001:00041278 TColorDialog.SetCustomColors + 0001:0007F7EC TComboBoxExActionLink.AddItem + 0001:0007F770 TComboBoxExActionLink.AddItem + 0001:0007F83C TComboBoxExEnumerator.Clone + 0001:0007F890 TComboBoxExEnumerator.Create + 0001:0007F8E0 TComboBoxExEnumerator.GetCount + 0001:0007F900 TComboBoxExEnumerator.GetString + 0001:0007F92C TComboBoxExEnumerator.Next + 0001:0007FA34 TComboBoxExEnumerator.Reset + 0001:0007FA50 TComboBoxExEnumerator.Skip + 0001:0007EFA4 TComboBoxExStrings.Add + 0001:0007EFDC TComboBoxExStrings.AddObject + 0001:0007F024 TComboBoxExStrings.Clear + 0001:0007F08C TComboBoxExStrings.Create + 0001:0007F134 TComboBoxExStrings.Delete + 0001:0007F0F8 TComboBoxExStrings.Destroy + 0001:0007F154 TComboBoxExStrings.Exchange + 0001:0007F2E0 TComboBoxExStrings.Get + 0001:0007F30C TComboBoxExStrings.GetCapacity + 0001:0007F32C TComboBoxExStrings.GetCount + 0001:0007F514 TComboBoxExStrings.GetItemClass + 0001:0007F4FC TComboBoxExStrings.GetItemsClass + 0001:0007F34C TComboBoxExStrings.GetObject + 0001:0007F374 TComboBoxExStrings.IndexOf + 0001:0007F3D8 TComboBoxExStrings.IndexOfName + 0001:0007F3FC TComboBoxExStrings.Insert + 0001:0007F42C TComboBoxExStrings.Move + 0001:0007F458 TComboBoxExStrings.Put + 0001:0007F47C TComboBoxExStrings.PutObject + 0001:0007F4AC TComboBoxExStrings.SetUpdateState + 0001:0008A514 TComboBoxStrings.Add + 0001:0008A5A4 TComboBoxStrings.Insert + 0001:0007DC50 TComboExItem.Assign + 0001:0007DCC0 TComboExItem.SetCaption + 0001:0007DD14 TComboExItem.SetData + 0001:0007DD68 TComboExItem.SetDisplayName + 0001:0007DD98 TComboExItem.SetImageIndex + 0001:0007DDE8 TComboExItem.SetIndex + 0001:0007DE14 TComboExItem.SetOverlayImageIndex + 0001:0007DE44 TComboExItem.SetSelectedImageIndex + 0001:0007DE74 TComboExItems.Add + 0001:0007DE90 TComboExItems.AddItem + 0001:0007DF08 TComboExItems.GetComboItem + 0001:0007DF2C TComboExItems.Insert + 0001:0007DF7C TComboExItems.Notify + 0001:0007E00C TComboExItems.SetItem + 0001:000EE6F4 TComClassManager.AddObjectFactory + 0001:000EE664 TComClassManager.Create + 0001:000EE6B8 TComClassManager.Destroy + 0001:000EE754 TComClassManager.ForEachFactory + 0001:000EE7D8 TComClassManager.GetFactoryFromClass + 0001:000EE890 TComClassManager.RemoveObjectFactory + 0001:001B307C TComment.Create + 0001:001B31D4 TComment.Destroy + 0001:001B3304 TComment.GetAge + 0001:001B32CC TComment.GetExtDateAdd + 0001:001B31FC TComment.TComtoDHCPCom + 0001:0007CCC0 TCommonCalendar.CheckEmptyDate + 0001:0007CCCC TCommonCalendar.CheckValidDate + 0001:0007CBC0 TCommonCalendar.Create + 0001:0007CDF8 TCommonCalendar.CreateWnd + 0001:0007CC80 TCommonCalendar.Destroy + 0001:0007CF1C TCommonCalendar.DoStoreEndDate + 0001:0007CF38 TCommonCalendar.DoStoreMaxDate + 0001:0007CF64 TCommonCalendar.DoStoreMinDate + 0001:0007CEC0 TCommonCalendar.GetCalStyles + 0001:0007CF90 TCommonCalendar.GetDate + 0001:0007CFB8 TCommonCalendar.SetCalColors + 0001:0007CFE8 TCommonCalendar.SetDate + 0001:0007D0A0 TCommonCalendar.SetDateTime + 0001:0007D134 TCommonCalendar.SetEndDate + 0001:0007D1C0 TCommonCalendar.SetFirstDayOfWeek + 0001:0007D23C TCommonCalendar.SetMaxDate + 0001:0007D33C TCommonCalendar.SetMaxSelectRange + 0001:0007D3A0 TCommonCalendar.SetMinDate + 0001:0007D4A0 TCommonCalendar.SetMonthDelta + 0001:0007D4EC TCommonCalendar.SetMultiSelect + 0001:0007D558 TCommonCalendar.SetRange + 0001:0007D6B8 TCommonCalendar.SetSelectedRange + 0001:0007D760 TCommonCalendar.SetShowToday + 0001:0007D7A0 TCommonCalendar.SetShowTodayCircle + 0001:0007D7E0 TCommonCalendar.SetWeekNumbers + 0001:0003FFF0 TCommonDialog.Create + 0001:000400E0 TCommonDialog.DefaultHandler + 0001:00040054 TCommonDialog.Destroy + 0001:000402F4 TCommonDialog.DoClose + 0001:00040318 TCommonDialog.DoShow + 0001:00040134 TCommonDialog.MainWndProc + 0001:0004009C TCommonDialog.MessageHook + 0001:0004021C TCommonDialog.TaskModalDialog + 0001:000401A4 TCommonDialog.WMDestroy + 0001:000401D0 TCommonDialog.WMInitDialog + 0001:000401F8 TCommonDialog.WMNCDestroy + 0001:00040188 TCommonDialog.WndProc + 0001:000EE934 TComObject.Create + 0001:000EE994 TComObject.CreateFromFactory + 0001:000EEA14 TComObject.Destroy + 0001:000EEA7C TComObject.Initialize + 0001:000EEDB0 TComObject.InterfaceSupportsErrorInfo + 0001:000EECBC TComObject.ObjAddRef + 0001:000EEC90 TComObject.ObjQueryInterface + 0001:000EECD8 TComObject.ObjRelease + 0001:000EED04 TComObject.QueryInterface + 0001:000EEA88 TComObject.SafeCallException + 0001:000EED48 TComObject._AddRef + 0001:000EED7C TComObject._Release + 0001:000EEDDC TComObjectFactory.Create + 0001:000EEF3C TComObjectFactory.CreateComObject + 0001:000EF44C TComObjectFactory.CreateInstance + 0001:000EF5C0 TComObjectFactory.CreateInstanceLic + 0001:000EEEF4 TComObjectFactory.Destroy + 0001:000EF328 TComObjectFactory.GetLicenseString + 0001:000EF4AC TComObjectFactory.GetLicInfo + 0001:000EEF68 TComObjectFactory.GetProgID + 0001:000EF35C TComObjectFactory.HasMachineLicense + 0001:000EF474 TComObjectFactory.LockServer + 0001:000EF3E8 TComObjectFactory.QueryInterface + 0001:000EEFF0 TComObjectFactory.RegisterClassObject + 0001:000EF580 TComObjectFactory.RequestLicKey + 0001:000EF090 TComObjectFactory.UpdateRegistry + 0001:000EF370 TComObjectFactory.ValidateUserLicense + 0001:000EF414 TComObjectFactory._AddRef + 0001:000EF430 TComObjectFactory._Release + 0001:0002A580 TComponent.BeforeDestruction + 0001:0002AD80 TComponent.ChangeName + 0001:0002A480 TComponent.Create + 0001:0002A99C TComponent.DefineProperties + 0001:0002A4DC TComponent.Destroy + 0001:0002A7D8 TComponent.DestroyComponents + 0001:0002A848 TComponent.Destroying + 0001:0002AFA8 TComponent.ExecuteAction + 0001:0002AC5C TComponent.FindComponent + 0001:0002A59C TComponent.FreeNotification + 0001:0002AA6C TComponent.GetChildOwner + 0001:0002AA84 TComponent.GetChildParent + 0001:0002AA58 TComponent.GetChildren + 0001:0002ADE4 TComponent.GetComponent + 0001:0002AE24 TComponent.GetComponentCount + 0001:0002ADA0 TComponent.GetComponentIndex + 0001:0002AA9C TComponent.GetNamePath + 0001:0002AABC TComponent.GetOwner + 0001:0002AAEC TComponent.GetParentComponent + 0001:0002AA44 TComponent.HasParent + 0001:0002A694 TComponent.Insert + 0001:0002A720 TComponent.InsertComponent + 0001:0002B120 TComponent.IntfGetComponent + 0001:0002AB3C TComponent.Loaded + 0001:0002A914 TComponent.Notification + 0001:0002AB50 TComponent.PaletteCreated + 0001:0002B070 TComponent.QueryInterface + 0001:0002A614 TComponent.ReadLeft + 0001:0002AB5C TComponent.ReadState + 0001:0002A634 TComponent.ReadTop + 0001:0002A6D8 TComponent.Remove + 0001:0002A790 TComponent.RemoveComponent + 0001:0002A8EC TComponent.RemoveFreeNotification + 0001:0002A8A4 TComponent.RemoveNotification + 0001:0002B010 TComponent.SafeCallException + 0001:0002AAD8 TComponent.SetChildOrder + 0001:0002AE50 TComponent.SetComponentIndex + 0001:0002AEDC TComponent.SetDesigning + 0001:0002ACC8 TComponent.SetName + 0001:0002AB04 TComponent.SetParentComponent + 0001:0002AF44 TComponent.SetReference + 0001:0002AFDC TComponent.UpdateAction + 0001:0002AB28 TComponent.Updated + 0001:0002B058 TComponent.UpdateRegistry + 0001:0002AB14 TComponent.Updating + 0001:0002AC28 TComponent.ValidateContainer + 0001:0002AC4C TComponent.ValidateInsert + 0001:0002AB94 TComponent.ValidateRename + 0001:0002A654 TComponent.WriteLeft + 0001:0002AB78 TComponent.WriteState + 0001:0002A674 TComponent.WriteTop + 0001:0002B0C0 TComponent._AddRef + 0001:0002B0F0 TComponent._Release + 0001:000388E4 TComponentList.Add + 0001:00038908 TComponentList.Destroy + 0001:00038944 TComponentList.Extract + 0001:00038968 TComponentList.GetItems + 0001:0003898C TComponentList.HandleFreeNotify + 0001:000389AC TComponentList.IndexOf + 0001:000389D0 TComponentList.Notify + 0001:00038A58 TComponentList.Remove + 0001:000388A0 TComponentListNexus.Notification + 0001:001937A4 TComServer.CountFactory + 0001:00193728 TComServer.CountObject + 0001:00193624 TComServer.Create + 0001:001936FC TComServer.Destroy + 0001:001937BC TComServer.FactoryFree + 0001:001937C4 TComServer.FactoryRegisterClassObject + 0001:001937CC TComServer.FactoryUpdateRegistry + 0001:001937E4 TComServer.GetHelpFileName + 0001:001937F8 TComServer.GetServerFileName + 0001:00193804 TComServer.GetServerKey + 0001:0019385C TComServer.GetServerName + 0001:00193A58 TComServer.GetStartSuspended + 0001:00193894 TComServer.GetTypeLib + 0001:00193A70 TComServer.Initialize + 0001:001938B0 TComServer.LastReleased + 0001:00193918 TComServer.LoadTypeLib + 0001:00193A5C TComServer.SetHelpFileName + 0001:00193984 TComServer.UpdateRegistry + 0001:0012C1E0 TConsultTitles.Create + 0001:0012C224 TConsultTitles.Destroy + 0001:000A79B0 TContainedAction.Destroy + 0001:000A7C18 TContainedAction.Execute + 0001:000A79F8 TContainedAction.GetIndex + 0001:000A7A44 TContainedAction.GetParentComponent + 0001:000A7A74 TContainedAction.HasParent + 0001:000A7A30 TContainedAction.IsCategoryStored + 0001:000A7AA0 TContainedAction.ReadState + 0001:000A7B9C TContainedAction.SetActionList + 0001:000A7B58 TContainedAction.SetCategory + 0001:000A7AE0 TContainedAction.SetIndex + 0001:000A7BE0 TContainedAction.SetParentComponent + 0001:000A7C84 TContainedAction.Update + 0001:0010C604 TContextorControl.CreateControl + 0001:0010C7F4 TContextorControl.EndContextChange + 0001:0010C624 TContextorControl.GetControlInterface + 0001:0010C644 TContextorControl.Get_CurrentContext + 0001:0010C564 TContextorControl.InitControlData + 0001:0010C754 TContextorControl.Resume + 0001:0010C6A0 TContextorControl.Run + 0001:0010C860 TContextorControl.SetSurveyResponse + 0001:0010C7A4 TContextorControl.StartContextChange + 0001:0010C704 TContextorControl.Suspend + 0001:0009AF28 TControl.ActionChange + 0001:0009B460 TControl.AdjustSize + 0001:0009B21C TControl.AssignTo + 0001:00098EA4 TControl.BeginAutoDrag + 0001:00098EC8 TControl.BeginDrag + 0001:00098880 TControl.BringToFront + 0001:00099B88 TControl.CalcCursorPos + 0001:00099D6C TControl.CalcDockSizes + 0001:00099A28 TControl.CanAutoSize + 0001:00099A44 TControl.CanResize + 0001:00097EB4 TControl.Changed + 0001:00097ED4 TControl.ChangeScale + 0001:0009A4A4 TControl.CheckNewSize + 0001:0009A1F0 TControl.Click + 0001:0009B728 TControl.ClientToParent + 0001:00097D7C TControl.ClientToScreen + 0001:0009ABE0 TControl.CMBiDiModeChanged + 0001:0009AABC TControl.CMColorChanged + 0001:0009AD48 TControl.CMDesignHitTest + 0001:0009AA8C TControl.CMEnabledChanged + 0001:0009AEC0 TControl.CMFloat + 0001:0009AAA4 TControl.CMFontChanged + 0001:0009B53C TControl.CMHintShow + 0001:0009ACCC TControl.CMHitTest + 0001:0009ACE8 TControl.CMMouseEnter + 0001:0009AD18 TControl.CMMouseLeave + 0001:0009AB5C TControl.CMMouseWheel + 0001:0009AB20 TControl.CMParentBiDiModeChanged + 0001:0009AAD4 TControl.CMParentColorChanged + 0001:0009AC48 TControl.CMParentFontChanged + 0001:0009AC0C TControl.CMParentShowHintChanged + 0001:0009AC94 TControl.CMSysFontChanged + 0001:0009AA48 TControl.CMVisibleChanged + 0001:00099B40 TControl.ConstrainedResize + 0001:00096EEC TControl.Create + 0001:0009AD60 TControl.CreateFloatingDockSite + 0001:0009A280 TControl.DblClick + 0001:00099478 TControl.DefaultDockImage + 0001:0009A054 TControl.DefaultHandler + 0001:0009A1A0 TControl.DefineProperties + 0001:00099BC0 TControl.DesignWndProc + 0001:00097014 TControl.Destroy + 0001:0009B05C TControl.DoActionChange + 0001:00099A8C TControl.DoCanAutoSize + 0001:00099B00 TControl.DoCanResize + 0001:00097928 TControl.Dock + 0001:00099240 TControl.DockTrackNoTarget + 0001:00099C14 TControl.DoConstrainedResize + 0001:00099A08 TControl.DoConstraintsChange + 0001:0009B6C4 TControl.DoContextPopup + 0001:00097A64 TControl.DoDock + 0001:00099610 TControl.DoDragMsg + 0001:00099268 TControl.DoEndDock + 0001:000990D4 TControl.DoEndDrag + 0001:0009A2F4 TControl.DoMouseDown + 0001:0009A73C TControl.DoMouseUp + 0001:000992E0 TControl.DoMouseWheel + 0001:000993D8 TControl.DoMouseWheelDown + 0001:00099428 TControl.DoMouseWheelUp + 0001:000992AC TControl.DoStartDock + 0001:000990A0 TControl.DoStartDrag + 0001:00098FDC TControl.DragCanceled + 0001:0009905C TControl.DragDrop + 0001:00098FE8 TControl.Dragging + 0001:00099004 TControl.DragOver + 0001:000995C8 TControl.DrawDragDockImage + 0001:0009B49C TControl.DrawTextBiDiModeFlags + 0001:0009B4F0 TControl.DrawTextBiDiModeFlagsReadingOnly + 0001:00098FA0 TControl.EndDrag + 0001:000995EC TControl.EraseDragDockImage + 0001:00098540 TControl.FontChanged + 0001:0009724C TControl.GetAction + 0001:0009B08C TControl.GetActionLinkClass + 0001:00097B68 TControl.GetBoundsRect + 0001:00097C84 TControl.GetClientHeight + 0001:00097CD8 TControl.GetClientOrigin + 0001:00097BF8 TControl.GetClientRect + 0001:00097C30 TControl.GetClientWidth + 0001:00098DD0 TControl.GetControlsAlignment + 0001:000989D0 TControl.GetDeviceContext + 0001:0009B32C TControl.GetDockEdge + 0001:000970FC TControl.GetDragImages + 0001:00097114 TControl.GetEnabled + 0001:0009B400 TControl.GetFloating + 0001:0009B444 TControl.GetFloatingDockSiteClass + 0001:00098830 TControl.GetMouseCapture + 0001:00097130 TControl.GetPalette + 0001:00097164 TControl.GetParentComponent + 0001:0009A488 TControl.GetPopupMenu + 0001:00098458 TControl.GetText + 0001:00098354 TControl.GetTextBuf + 0001:00098330 TControl.GetTextLen + 0001:00098384 TControl.GetUndockHeight + 0001:000983B8 TControl.GetUndockWidth + 0001:00097148 TControl.HasParent + 0001:00098C40 TControl.Hide + 0001:0009B51C TControl.InitiateAction + 0001:00098BC0 TControl.Invalidate + 0001:00098B34 TControl.InvalidateControl + 0001:00097350 TControl.IsAnchorsStored + 0001:00098610 TControl.IsBiDiModeStored + 0001:0009B0A4 TControl.IsCaptionStored + 0001:00098748 TControl.IsColorStored + 0001:0009B0D8 TControl.IsEnabledStored + 0001:000985C4 TControl.IsFontStored + 0001:0009B140 TControl.IsHelpContextStored + 0001:0009B10C TControl.IsHintStored + 0001:0009B1A8 TControl.IsOnClickStored + 0001:00098DE4 TControl.IsRightToLeft + 0001:000985F0 TControl.IsShowHintStored + 0001:0009B174 TControl.IsVisibleStored + 0001:0009B1DC TControl.Loaded + 0001:00099720 TControl.ManualDock + 0001:00099958 TControl.ManualFloat + 0001:0009A2AC TControl.MouseDown + 0001:0009A618 TControl.MouseMove + 0001:0009A6F4 TControl.MouseUp + 0001:00098BE4 TControl.MouseWheelHandler + 0001:00097490 TControl.Notification + 0001:000971B8 TControl.PaletteChanged + 0001:00099D20 TControl.Perform + 0001:00099118 TControl.PositionDockRect + 0001:0009A120 TControl.ReadIsControl + 0001:000973E4 TControl.ReadState + 0001:00098CB8 TControl.Refresh + 0001:00098CD0 TControl.Repaint + 0001:00097394 TControl.RequestAlign + 0001:000973B8 TControl.Resize + 0001:00097DB8 TControl.ScreenToClient + 0001:00097DF4 TControl.SendCancelMode + 0001:00097E3C TControl.SendDockNotification + 0001:0009889C TControl.SendToBack + 0001:000972A4 TControl.SetAction + 0001:000974E8 TControl.SetAlign + 0001:00097278 TControl.SetAnchors + 0001:000980EC TControl.SetAutoSize + 0001:00098504 TControl.SetBiDiMode + 0001:000975CC TControl.SetBounds + 0001:00097BB4 TControl.SetBoundsRect + 0001:00097CA8 TControl.SetClientHeight + 0001:000981E0 TControl.SetClientSize + 0001:00097C54 TControl.SetClientWidth + 0001:0009870C TControl.SetColor + 0001:0009B708 TControl.SetConstraints + 0001:000987F4 TControl.SetCursor + 0001:00097378 TControl.SetDragMode + 0001:000982F8 TControl.SetEnabled + 0001:000985A4 TControl.SetFont + 0001:000978E8 TControl.SetHeight + 0001:00097AD4 TControl.SetHelpContext + 0001:00097B04 TControl.SetHelpKeyword + 0001:00097B38 TControl.SetHostDockSite + 0001:00097828 TControl.SetLeft + 0001:0009884C TControl.SetMouseCapture + 0001:00098124 TControl.SetName + 0001:00098238 TControl.SetParent + 0001:000987AC TControl.SetParentBiDiMode + 0001:00098764 TControl.SetParentColor + 0001:00097180 TControl.SetParentComponent + 0001:0009862C TControl.SetParentFont + 0001:000986BC TControl.SetParentShowHint + 0001:000983EC TControl.SetPopupMenu + 0001:00098674 TControl.SetShowHint + 0001:00098498 TControl.SetText + 0001:00098424 TControl.SetTextBuf + 0001:00097868 TControl.SetTop + 0001:000982A4 TControl.SetVisible + 0001:000978A8 TControl.SetWidth + 0001:0009898C TControl.SetZOrder + 0001:000988B8 TControl.SetZOrderPosition + 0001:00098C54 TControl.Show + 0001:00098C94 TControl.Update + 0001:0009769C TControl.UpdateAnchorRules + 0001:00099E0C TControl.UpdateBoundsRect + 0001:00098E44 TControl.UseRightToLeftAlignment + 0001:00098E14 TControl.UseRightToLeftReading + 0001:00098E74 TControl.UseRightToLeftScrollBar + 0001:00099E60 TControl.VisibleChanging + 0001:0009A8CC TControl.WMCancelMode + 0001:0009B578 TControl.WMContextMenu + 0001:0009A420 TControl.WMLButtonDblClk + 0001:0009A394 TControl.WMLButtonDown + 0001:0009A788 TControl.WMLButtonUp + 0001:0009A5E4 TControl.WMMButtonDblClk + 0001:0009A5B0 TControl.WMMButtonDown + 0001:0009A838 TControl.WMMButtonUp + 0001:0009A65C TControl.WMMouseMove + 0001:0009A860 TControl.WMMouseWheel + 0001:0009A3F8 TControl.WMNCLButtonDown + 0001:0009A57C TControl.WMRButtonDblClk + 0001:0009A548 TControl.WMRButtonDown + 0001:0009A810 TControl.WMRButtonUp + 0001:0009A924 TControl.WMWindowPosChanged + 0001:00099E6C TControl.WndProc + 0001:0009A140 TControl.WriteIsControl + 0001:00096A38 TControlActionLink.AssignClient + 0001:00096A5C TControlActionLink.DoShowHint + 0001:00096B60 TControlActionLink.IsCaptionLinked + 0001:00096BE4 TControlActionLink.IsEnabledLinked + 0001:00096DE4 TControlActionLink.IsHelpLinked + 0001:00096C30 TControlActionLink.IsHintLinked + 0001:00096CC4 TControlActionLink.IsOnExecuteLinked + 0001:00096C7C TControlActionLink.IsVisibleLinked + 0001:00096D00 TControlActionLink.SetCaption + 0001:00096D2C TControlActionLink.SetEnabled + 0001:00096E94 TControlActionLink.SetHelpContext + 0001:00096E68 TControlActionLink.SetHelpKeyword + 0001:00096EC0 TControlActionLink.SetHelpType + 0001:00096D58 TControlActionLink.SetHint + 0001:00096DB4 TControlActionLink.SetOnExecute + 0001:00096D88 TControlActionLink.SetVisible + 0001:000966E4 TControlCanvas.CreateHandle + 0001:000966A8 TControlCanvas.Destroy + 0001:00096790 TControlCanvas.FreeHandle + 0001:000967D8 TControlCanvas.SetControl + 0001:00096804 TControlCanvas.UpdateTextFlags + 0001:000B64D8 TControlScrollBar.Assign + 0001:000B6688 TControlScrollBar.CalcAutoRange + 0001:000B6540 TControlScrollBar.ChangeBiDiPosition + 0001:000B6864 TControlScrollBar.ControlSize + 0001:000B6404 TControlScrollBar.Create + 0001:000B6F9C TControlScrollBar.DoSetRange + 0001:000B64BC TControlScrollBar.IsIncrementStored + 0001:000B7004 TControlScrollBar.IsRangeStored + 0001:000B6740 TControlScrollBar.IsScrollBarVisible + 0001:000B68E8 TControlScrollBar.NeedsScrollBarVisible + 0001:000B697C TControlScrollBar.ScrollMessage + 0001:000B6CAC TControlScrollBar.SetButtonSize + 0001:000B6D18 TControlScrollBar.SetColor + 0001:000B6D58 TControlScrollBar.SetParentColor + 0001:000B6D90 TControlScrollBar.SetPosition + 0001:000B6FD4 TControlScrollBar.SetRange + 0001:000B6EC0 TControlScrollBar.SetSize + 0001:000B6F2C TControlScrollBar.SetStyle + 0001:000B6F64 TControlScrollBar.SetThumbSize + 0001:000B7028 TControlScrollBar.SetVisible + 0001:000B7198 TControlScrollBar.Update + 0001:00114130 TConversion.ConvertReadStream + 0001:0006AD38 TConversion.ConvertReadStream + 0001:00114144 TConversion.ConvertWriteStream + 0001:0006AD64 TConversion.ConvertWriteStream + 0001:002EE320 TCoverSheetList.Add + 0001:002EE34C TCoverSheetList.Create + 0001:002EE3FC TCoverSheetList.CVlbl + 0001:002EE410 TCoverSheetList.CVlst + 0001:002EE3E8 TCoverSheetList.CVpln + 0001:002EE3A8 TCoverSheetList.Destroy + 0001:00190064 TCPRSBroker.CallRPC + 0001:0018FF9C TCPRSBroker.Create + 0001:00190354 TCPRSBroker.DebugMode + 0001:00190A1C TCPRSBroker.Destroy + 0001:001903A0 TCPRSBroker.Get_ClearParameters + 0001:001903E0 TCPRSBroker.Get_ClearResults + 0001:00190420 TCPRSBroker.Get_Param + 0001:00190474 TCPRSBroker.Get_ParamList + 0001:001904F8 TCPRSBroker.Get_ParamType + 0001:00190564 TCPRSBroker.Get_Results + 0001:001905B0 TCPRSBroker.Get_RPCVersion + 0001:001909C4 TCPRSBroker.Initialize + 0001:001905FC TCPRSBroker.ParamCount + 0001:00190640 TCPRSBroker.ParamListCount + 0001:00190690 TCPRSBroker.Port + 0001:001906D4 TCPRSBroker.Server + 0001:00190974 TCPRSBroker.SetContext + 0001:00190728 TCPRSBroker.Set_ClearParameters + 0001:00190768 TCPRSBroker.Set_ClearResults + 0001:001907A8 TCPRSBroker.Set_Param + 0001:001907F4 TCPRSBroker.Set_ParamList + 0001:00190870 TCPRSBroker.Set_ParamType + 0001:001908F4 TCPRSBroker.Set_Results + 0001:00190934 TCPRSBroker.Set_RPCVersion + 0001:00190E6C TCPRSEventHookManager.Create + 0001:00190EDC TCPRSEventHookManager.Destroy + 0001:00190F20 TCPRSEventHookManager.EnterCriticalSection + 0001:00190F2C TCPRSEventHookManager.LeaveCriticalSection + 0001:00190F38 TCPRSEventHookManager.ProcessComObject + 0001:00190A54 TCPRSState.Create + 0001:00190B4C TCPRSState.Handle + 0001:00190B98 TCPRSState.LocationIEN + 0001:00190BDC TCPRSState.LocationName + 0001:00190C40 TCPRSState.PatientDFN + 0001:00190C90 TCPRSState.PatientDOB + 0001:00190D14 TCPRSState.PatientName + 0001:00190D64 TCPRSState.PatientSSN + 0001:00190DB4 TCPRSState.UserDUZ + 0001:00190E1C TCPRSState.UserName + 0001:00182AC0 TCPRSTimeoutTimer.ResetTimeout + 0001:00182AE4 TCPRSTimeoutTimer.timTimeoutTimer + 0001:0003D1D0 TCriticalSection.Acquire + 0001:0003D140 TCriticalSection.Create + 0001:0003D190 TCriticalSection.Destroy + 0001:0003D200 TCriticalSection.Enter + 0001:0003D214 TCriticalSection.Leave + 0001:0003D1E8 TCriticalSection.Release + 0001:00297FBC TCtrlInit.Create + 0001:00298008 TCtrlInit.Destroy + 0001:00298128 TCtrlInits.ClearOI + 0001:00298044 TCtrlInits.Create + 0001:0029898C TCtrlInits.DefaultText + 0001:002980A0 TCtrlInits.Destroy + 0001:00298178 TCtrlInits.ExtractInits + 0001:0029842C TCtrlInits.FindInitByName + 0001:002983D4 TCtrlInits.LoadDefaults + 0001:00298400 TCtrlInits.LoadOrderItem + 0001:002984E8 TCtrlInits.SetControl + 0001:00298728 TCtrlInits.SetListOnly + 0001:0029881C TCtrlInits.SetPopupMenu + 0001:002989CC TCtrlInits.TextOf + 0001:000A84C0 TCustomAction.AssignTo + 0001:000A83E8 TCustomAction.Create + 0001:000A8458 TCustomAction.Destroy + 0001:000A8BA8 TCustomAction.DoHint + 0001:000A8BE4 TCustomAction.Execute + 0001:000A8C74 TCustomAction.GetSecondaryShortCuts + 0001:000A8D30 TCustomAction.HandleShortCut + 0001:000A8CF8 TCustomAction.IsSecondaryShortCutsStored + 0001:000A85A4 TCustomAction.SetCaption + 0001:000A862C TCustomAction.SetChecked + 0001:000A8764 TCustomAction.SetEnabled + 0001:000A88A0 TCustomAction.SetHelpContext + 0001:000A8814 TCustomAction.SetHelpKeyword + 0001:000A891C TCustomAction.SetHint + 0001:000A89A4 TCustomAction.SetImageIndex + 0001:000A8B3C TCustomAction.SetName + 0001:000A8CB4 TCustomAction.SetSecondaryShortCuts + 0001:000A8A28 TCustomAction.SetShortCut + 0001:000A8AB0 TCustomAction.SetVisible + 0001:000A7F94 TCustomActionList.AddAction + 0001:000A7FF4 TCustomActionList.Change + 0001:000A7CF0 TCustomActionList.Create + 0001:000A7D78 TCustomActionList.Destroy + 0001:000A8154 TCustomActionList.ExecuteAction + 0001:000A7E78 TCustomActionList.GetAction + 0001:000A7E9C TCustomActionList.GetActionCount + 0001:000A7DE0 TCustomActionList.GetChildren + 0001:000A7F14 TCustomActionList.ImageListChange + 0001:000A808C TCustomActionList.IsShortCut + 0001:000A7F38 TCustomActionList.Notification + 0001:000A7FC8 TCustomActionList.RemoveAction + 0001:000A7E3C TCustomActionList.SetChildOrder + 0001:000A7EB8 TCustomActionList.SetImages + 0001:000A8188 TCustomActionList.UpdateAction + 0001:00107040 TCustomAdapter.Changed + 0001:0010705C TCustomAdapter.ConnectOleObject + 0001:00106FA0 TCustomAdapter.Create + 0001:00107004 TCustomAdapter.Destroy + 0001:001070F0 TCustomAdapter.ReleaseOleObject + 0001:001237F8 TCustomApplicationEvents.Create + 0001:00123858 TCustomApplicationEvents.DoActionExecute + 0001:00123888 TCustomApplicationEvents.DoActionUpdate + 0001:001238B8 TCustomApplicationEvents.DoActivate + 0001:001238E0 TCustomApplicationEvents.DoDeactivate + 0001:00123908 TCustomApplicationEvents.DoException + 0001:00123948 TCustomApplicationEvents.DoHelp + 0001:0012398C TCustomApplicationEvents.DoHint + 0001:00123A14 TCustomApplicationEvents.DoIdle + 0001:00123A44 TCustomApplicationEvents.DoMessage + 0001:00123A74 TCustomApplicationEvents.DoMinimize + 0001:00123B8C TCustomApplicationEvents.DoModalBegin + 0001:00123BC0 TCustomApplicationEvents.DoModalEnd + 0001:00123A9C TCustomApplicationEvents.DoRestore + 0001:00123B48 TCustomApplicationEvents.DoSettingChange + 0001:00123AD0 TCustomApplicationEvents.DoShortcut + 0001:00123B08 TCustomApplicationEvents.DoShowHint + 0001:000D5A14 TCustomAxisPanel.ActiveSeriesLegend + 0001:000D68C0 TCustomAxisPanel.Assign + 0001:000D5C38 TCustomAxisPanel.CalcSize3DWalls + 0001:000D6870 TCustomAxisPanel.CheckDatasource + 0001:000D6778 TCustomAxisPanel.CheckOtherSeries + 0001:000D5180 TCustomAxisPanel.Create + 0001:000D5548 TCustomAxisPanel.Destroy + 0001:000D6648 TCustomAxisPanel.FormattedValueLegend + 0001:000D5518 TCustomAxisPanel.FreeAllSeries + 0001:000D65E8 TCustomAxisPanel.GetAxisSeries + 0001:000D64F0 TCustomAxisPanel.GetChildren + 0001:000D6650 TCustomAxisPanel.GetFreeSeriesColor + 0001:000D6704 TCustomAxisPanel.GetMaxValuesCount + 0001:000D5C20 TCustomAxisPanel.GetSeries + 0001:000D6688 TCustomAxisPanel.InternalAddSeries + 0001:000D6304 TCustomAxisPanel.InternalDraw + 0001:000D569C TCustomAxisPanel.InternalMinMax + 0001:000D55B0 TCustomAxisPanel.IsAxisVisible + 0001:000D6838 TCustomAxisPanel.IsValidDataSource + 0001:000D5BD0 TCustomAxisPanel.MaxMarkWidth + 0001:000D5B04 TCustomAxisPanel.MaxTextWidth + 0001:000D59B4 TCustomAxisPanel.MaxXValue + 0001:000D59CC TCustomAxisPanel.MaxYValue + 0001:000D59E4 TCustomAxisPanel.MinXValue + 0001:000D59FC TCustomAxisPanel.MinYValue + 0001:000D564C TCustomAxisPanel.NoActiveSeries + 0001:000D53F8 TCustomAxisPanel.NumPages + 0001:000D6540 TCustomAxisPanel.RemovedDataSource + 0001:000D6590 TCustomAxisPanel.RemoveSeries + 0001:000D68AC TCustomAxisPanel.SeriesCount + 0001:000D5A64 TCustomAxisPanel.SeriesTitleLegend + 0001:000D6768 TCustomAxisPanel.SetAxisVisible + 0001:000D6584 TCustomAxisPanel.SetBottomAxis + 0001:000D6544 TCustomAxisPanel.SetClipPoints + 0001:000D6560 TCustomAxisPanel.SetDepthAxis + 0001:000D6554 TCustomAxisPanel.SetLeftAxis + 0001:000D5488 TCustomAxisPanel.SetMaxPointsPerPage + 0001:000D52DC TCustomAxisPanel.SetPage + 0001:000D656C TCustomAxisPanel.SetRightAxis + 0001:000D5334 TCustomAxisPanel.SetScaleLastPage + 0001:000D6578 TCustomAxisPanel.SetTopAxis + 0001:000D64E0 TCustomAxisPanel.SetView3DWalls + 0001:001363F8 TCustomBarSeries.AdjustGradientRectPen + 0001:001362C0 TCustomBarSeries.ApplyBarOffset + 0001:00136324 TCustomBarSeries.Assign + 0001:001362A0 TCustomBarSeries.BarMargin + 0001:00135A60 TCustomBarSeries.BarOrderPos + 0001:0013612C TCustomBarSeries.BarRectangle + 0001:00135D84 TCustomBarSeries.BarSeriesCount + 0001:00135AC8 TCustomBarSeries.CalcBarWidth + 0001:00135C50 TCustomBarSeries.CalcMarkLength + 0001:001358C0 TCustomBarSeries.CalcZOrder + 0001:00135DEC TCustomBarSeries.Clicked + 0001:0013579C TCustomBarSeries.Create + 0001:00135874 TCustomBarSeries.Destroy + 0001:00136000 TCustomBarSeries.DrawLegendShape + 0001:00136234 TCustomBarSeries.GetBarStyle + 0001:00136270 TCustomBarSeries.GetEditorClass + 0001:00136540 TCustomBarSeries.InternalApplyBarMargin + 0001:00135AC4 TCustomBarSeries.InternalClicked + 0001:00135F0C TCustomBarSeries.InternalGetOriginPos + 0001:00136424 TCustomBarSeries.MaxMandatoryValue + 0001:001364E4 TCustomBarSeries.MinMandatoryValue + 0001:00135954 TCustomBarSeries.NumSampleValues + 0001:00135FBC TCustomBarSeries.PointOrigin + 0001:00135D48 TCustomBarSeries.PrepareForGallery + 0001:00136048 TCustomBarSeries.PrepareLegendCanvas + 0001:00136314 TCustomBarSeries.SetAutoBarSize + 0001:00136304 TCustomBarSeries.SetAutoMarkPosition + 0001:00136264 TCustomBarSeries.SetBarBrush + 0001:00136228 TCustomBarSeries.SetBarPen + 0001:00135A4C TCustomBarSeries.SetBarStyle + 0001:0013595C TCustomBarSeries.SetBarWidthPercent + 0001:00135A3C TCustomBarSeries.SetCustomBarSize + 0001:00135D38 TCustomBarSeries.SetDark3d + 0001:00135EE8 TCustomBarSeries.SetMultiBar + 0001:001359CC TCustomBarSeries.SetOffsetPercent + 0001:00135D6C TCustomBarSeries.SetOrigin + 0001:00135E94 TCustomBarSeries.SetOtherMultiBar + 0001:001360A4 TCustomBarSeries.SetPenBrushBar + 0001:00135CC4 TCustomBarSeries.SetSideMargins + 0001:00135CB4 TCustomBarSeries.SetUseOrigin + 0001:000DD5A0 TCustomChart.Assign + 0001:000DD2EC TCustomChart.CalcAxisRect + 0001:000DC794 TCustomChart.CalcClickedPart + 0001:000DD554 TCustomChart.CalcSeriesRect + 0001:000DC0D4 TCustomChart.CalcWallSize + 0001:000DD120 TCustomChart.CalcZoomPoints + 0001:000DBB38 TCustomChart.Create + 0001:000DBCE4 TCustomChart.Destroy + 0001:000DCFD8 TCustomChart.DoMouseWheel + 0001:000DD084 TCustomChart.DoMouseWheelDown + 0001:000DD0BC TCustomChart.DoMouseWheelUp + 0001:000DC514 TCustomChart.DoZoom + 0001:000DC0B4 TCustomChart.DrawImage + 0001:000DC020 TCustomChart.DrawTitlesAndLegend + 0001:000DC1C0 TCustomChart.DrawWalls + 0001:000DD63C TCustomChart.FillSeriesSourceItems + 0001:000DD644 TCustomChart.FillValueSourceItems + 0001:000DBDAC TCustomChart.FormattedLegend + 0001:000DBD74 TCustomChart.FormattedValueLegend + 0001:000DD6B0 TCustomChart.GetASeries + 0001:000DBF18 TCustomChart.GetBackColor + 0001:000DBEF4 TCustomChart.GetFrame + 0001:000DBF50 TCustomChart.IsFreeSeriesColor + 0001:000DCA34 TCustomChart.MouseDown + 0001:000DCE44 TCustomChart.MouseMove + 0001:000DD1E4 TCustomChart.MouseUp + 0001:000DC4B8 TCustomChart.RemoveAllSeries + 0001:000DBEA8 TCustomChart.RestoreScales + 0001:000DBE28 TCustomChart.SaveScales + 0001:000DD000 TCustomChart.ScrollVerticalAxes + 0001:000DBF24 TCustomChart.SetBackColor + 0001:000DBD58 TCustomChart.SetBackImageInside + 0001:000DBEE8 TCustomChart.SetBackWall + 0001:000DBFD4 TCustomChart.SetBottomWall + 0001:000DBD68 TCustomChart.SetFoot + 0001:000DBF08 TCustomChart.SetFrame + 0001:000DBFC8 TCustomChart.SetLeftWall + 0001:000DBDEC TCustomChart.SetLegend + 0001:000DBD4C TCustomChart.SetTitle + 0001:000DD0F4 TCustomChart.UndoZoom + 0001:000DC6C0 TCustomChart.ZoomPercent + 0001:000CD7D8 TCustomChartAxis.AdjustMaxMin + 0001:000CD6D4 TCustomChartAxis.AdjustMaxMinRect + 0001:000CEE14 TCustomChartAxis.ApplyPosition + 0001:000CD824 TCustomChartAxis.Assign + 0001:000CD1D0 TCustomChartAxis.CalcDateTimeIncrement + 0001:000CD5E0 TCustomChartAxis.CalcIncrement + 0001:000CD3B0 TCustomChartAxis.CalcLabelsIncrement + 0001:000CDAF4 TCustomChartAxis.CalcLabelStyle + 0001:000CD780 TCustomChartAxis.CalcMinMax + 0001:000CCF28 TCustomChartAxis.CalcPosPoint + 0001:000CEB08 TCustomChartAxis.CalcPosValue + 0001:000D09AC TCustomChartAxis.CalcRect + 0001:000CEB30 TCustomChartAxis.CalcXPosValue + 0001:000CD560 TCustomChartAxis.CalcXYIncrement + 0001:000CEB74 TCustomChartAxis.CalcYPosValue + 0001:000CEC54 TCustomChartAxis.Clicked + 0001:000CCB18 TCustomChartAxis.Create + 0001:000CCE04 TCustomChartAxis.Destroy + 0001:000D05CC TCustomChartAxis.Draw + 0001:000CE528 TCustomChartAxis.DrawAxisLabel + 0001:000CE48C TCustomChartAxis.DrawTitle + 0001:000CEE90 TCustomChartAxis.GetRectangleEdge + 0001:000CCCF8 TCustomChartAxis.IncDecDateTime + 0001:000CE9BC TCustomChartAxis.InternalCalcDepthPosValue + 0001:000CE948 TCustomChartAxis.InternalCalcLog + 0001:000CEA3C TCustomChartAxis.InternalCalcLogPosValue + 0001:000CEDC4 TCustomChartAxis.InternalCalcPositions + 0001:000CEBBC TCustomChartAxis.InternalCalcPosValue + 0001:000D0838 TCustomChartAxis.InternalCalcSize + 0001:000CE420 TCustomChartAxis.InternalSetMaximum + 0001:000CE308 TCustomChartAxis.InternalSetMinimum + 0001:000CDEDC TCustomChartAxis.IsAxisValuesFormatStored + 0001:000CCD34 TCustomChartAxis.IsDateTime + 0001:000CCEA4 TCustomChartAxis.IsEndStored + 0001:000CDE40 TCustomChartAxis.IsFontStored + 0001:000CD538 TCustomChartAxis.IsMaxStored + 0001:000CD54C TCustomChartAxis.IsMinStored + 0001:000CCE6C TCustomChartAxis.IsPosStored + 0001:000CCE88 TCustomChartAxis.IsStartStored + 0001:000CD4AC TCustomChartAxis.LabelHeight + 0001:000CDA00 TCustomChartAxis.LabelValue + 0001:000CD41C TCustomChartAxis.LabelWidth + 0001:000CDDCC TCustomChartAxis.MaxLabelsWidth + 0001:000CED20 TCustomChartAxis.RecalcSizeCenter + 0001:000CE8A8 TCustomChartAxis.Scroll + 0001:000CDE50 TCustomChartAxis.SetAutomatic + 0001:000CDEAC TCustomChartAxis.SetAutomaticMaximum + 0001:000CDE7C TCustomChartAxis.SetAutomaticMinimum + 0001:000CCDF8 TCustomChartAxis.SetAxis + 0001:000CD128 TCustomChartAxis.SetAxisTitle + 0001:000CD114 TCustomChartAxis.SetDateTimeFormat + 0001:000CE1E8 TCustomChartAxis.SetDesiredIncrement + 0001:000CD154 TCustomChartAxis.SetEndPosition + 0001:000CE1A8 TCustomChartAxis.SetExactDateTime + 0001:000CCDCC TCustomChartAxis.SetGrid + 0001:000CCDE4 TCustomChartAxis.SetGridCentered + 0001:000CDF48 TCustomChartAxis.SetInverted + 0001:000CDE1C TCustomChartAxis.SetLabels + 0001:000CE0A0 TCustomChartAxis.SetLabelsAngle + 0001:000CDE30 TCustomChartAxis.SetLabelsFont + 0001:000CD1A8 TCustomChartAxis.SetLabelsMultiLine + 0001:000CE194 TCustomChartAxis.SetLabelsOnAxis + 0001:000CE104 TCustomChartAxis.SetLabelsSeparation + 0001:000CE16C TCustomChartAxis.SetLabelsSize + 0001:000CE1BC TCustomChartAxis.SetLabelStyle + 0001:000CDFC8 TCustomChartAxis.SetLogarithmic + 0001:000CDF5C TCustomChartAxis.SetLogarithmicBase + 0001:000CE324 TCustomChartAxis.SetMaximum + 0001:000CE28C TCustomChartAxis.SetMinimum + 0001:000CE3A0 TCustomChartAxis.SetMinMax + 0001:000CCDD8 TCustomChartAxis.SetMinorGrid + 0001:000CE464 TCustomChartAxis.SetMinorTickCount + 0001:000CE450 TCustomChartAxis.SetMinorTickLength + 0001:000CCDB4 TCustomChartAxis.SetMinorTicks + 0001:000CD174 TCustomChartAxis.SetPositionPercent + 0001:000CD194 TCustomChartAxis.SetRoundFirstLabel + 0001:000CD134 TCustomChartAxis.SetStartPosition + 0001:000CE478 TCustomChartAxis.SetTickInnerLength + 0001:000CE43C TCustomChartAxis.SetTickLength + 0001:000CD1BC TCustomChartAxis.SetTickOnLabelsOnly + 0001:000CCDA8 TCustomChartAxis.SetTicks + 0001:000CCDC0 TCustomChartAxis.SetTicksInner + 0001:000CE180 TCustomChartAxis.SetTitleSize + 0001:000CDF34 TCustomChartAxis.SetValuesFormat + 0001:000CE1D4 TCustomChartAxis.SetVisible + 0001:000D0824 TCustomChartAxis.SizeLabels + 0001:000D07D4 TCustomChartAxis.SizeTickAxis + 0001:000D080C TCustomChartAxis.SizeTitle + 0001:000DD808 TCustomChartLegend.Assign + 0001:000DDB24 TCustomChartLegend.CalcLegendStyle + 0001:000DE978 TCustomChartLegend.Clicked + 0001:000DD8F0 TCustomChartLegend.CMColorChanged + 0001:000DD8E8 TCustomChartLegend.CMVisibleChanged + 0001:000DD6F0 TCustomChartLegend.Create + 0001:000DD7C8 TCustomChartLegend.Destroy + 0001:000DE374 TCustomChartLegend.Draw + 0001:000DDB54 TCustomChartLegend.FormattedLegend + 0001:000DE884 TCustomChartLegend.FormattedValue + 0001:000DDE1C TCustomChartLegend.GetColorRect + 0001:000DDA64 TCustomChartLegend.GetParentChart + 0001:000DDE4C TCustomChartLegend.GetVertical + 0001:000DDC8C TCustomChartLegend.MaxLegendValues + 0001:000DDD70 TCustomChartLegend.MaxLegendWidth + 0001:000DD8CC TCustomChartLegend.SetAlignment + 0001:000DDA84 TCustomChartLegend.SetBrush + 0001:000DDA90 TCustomChartLegend.SetColor + 0001:000DDAAC TCustomChartLegend.SetColorWidth + 0001:000DDC0C TCustomChartLegend.SetDividingLines + 0001:000DD970 TCustomChartLegend.SetFirstValue + 0001:000DD8DC TCustomChartLegend.SetFrame + 0001:000DDA2C TCustomChartLegend.SetHorizMargin + 0001:000DD8B0 TCustomChartLegend.SetInverted + 0001:000DDA10 TCustomChartLegend.SetLegendStyle + 0001:000DD9F4 TCustomChartLegend.SetMaxNumRows + 0001:000DDA68 TCustomChartLegend.SetResizeChart + 0001:000DDBD4 TCustomChartLegend.SetShadowColor + 0001:000DDBF0 TCustomChartLegend.SetShadowSize + 0001:000DD9E4 TCustomChartLegend.SetTextStyle + 0001:000DD8F8 TCustomChartLegend.SetTopLeftPos + 0001:000DDA48 TCustomChartLegend.SetVertMargin + 0001:000DD894 TCustomChartLegend.SetVisible + 0001:000DDCE8 TCustomChartLegend.TotalLegendItems + 0001:000DB2E8 TCustomChartWall.ApplyDark3D + 0001:000DB294 TCustomChartWall.Assign + 0001:000DB1C8 TCustomChartWall.Create + 0001:000DB250 TCustomChartWall.Destroy + 0001:000DB288 TCustomChartWall.IsColorStored + 0001:000DB320 TCustomChartWall.SetBrush + 0001:000DB33C TCustomChartWall.SetColor + 0001:000DB34C TCustomChartWall.SetDark3D + 0001:000DB314 TCustomChartWall.SetPen + 0001:000DB32C TCustomChartWall.SetSize + 0001:0008D26C TCustomCheckBox.Click + 0001:0008D440 TCustomCheckBox.CMCtl3DChanged + 0001:0008D458 TCustomCheckBox.CMDialogChar + 0001:0008D508 TCustomCheckBox.CNCommand + 0001:0008D148 TCustomCheckBox.Create + 0001:0008D378 TCustomCheckBox.CreateParams + 0001:0008D3E8 TCustomCheckBox.CreateWnd + 0001:0008D288 TCustomCheckBox.GetChecked + 0001:0008D1D0 TCustomCheckBox.GetControlsAlignment + 0001:0008D2A8 TCustomCheckBox.SetAlignment + 0001:0008D2DC TCustomCheckBox.SetChecked + 0001:0008D308 TCustomCheckBox.SetState + 0001:0008D210 TCustomCheckBox.Toggle + 0001:0008D41C TCustomCheckBox.WMSize + 0001:0008B7D8 TCustomCombo.AddItem + 0001:0008B5A8 TCustomCombo.AdjustDropDown + 0001:0008B340 TCustomCombo.Change + 0001:0008A7D4 TCustomCombo.Clear + 0001:0008B6B4 TCustomCombo.ClearSelection + 0001:0008B4F8 TCustomCombo.CloseUp + 0001:0008AB14 TCustomCombo.CMCancelMode + 0001:0008AB40 TCustomCombo.CMCtl3DChanged + 0001:0008B1A0 TCustomCombo.CNCommand + 0001:0008AD34 TCustomCombo.ComboWndProc + 0001:0008B6CC TCustomCombo.CopySelection + 0001:0008A634 TCustomCombo.Create + 0001:0008B560 TCustomCombo.CreateWnd + 0001:0008B768 TCustomCombo.DeleteSelected + 0001:0008A760 TCustomCombo.Destroy + 0001:0008A80C TCustomCombo.DestroyWindowHandle + 0001:0008B448 TCustomCombo.DropDown + 0001:0008ABAC TCustomCombo.EditWndProc + 0001:0008B4A8 TCustomCombo.Focused + 0001:0008B79C TCustomCombo.GetCount + 0001:0008A864 TCustomCombo.GetDroppedDown + 0001:0008A8E0 TCustomCombo.GetItemIndex + 0001:0008ACCC TCustomCombo.ListWndProc + 0001:0008B474 TCustomCombo.Loaded + 0001:0008B524 TCustomCombo.Select + 0001:0008A840 TCustomCombo.SelectAll + 0001:0008B7BC TCustomCombo.SetDropDownCount + 0001:0008A894 TCustomCombo.SetDroppedDown + 0001:0008AA28 TCustomCombo.SetItemHeight + 0001:0008A924 TCustomCombo.SetItemIndex + 0001:0008B678 TCustomCombo.SetItems + 0001:0008A9CC TCustomCombo.SetMaxLength + 0001:0008A974 TCustomCombo.SetSelLength + 0001:0008AA54 TCustomCombo.WMCreate + 0001:0008AAC8 TCustomCombo.WMDeleteItem + 0001:0008AA90 TCustomCombo.WMDrawItem + 0001:0008AAE4 TCustomCombo.WMGetDlgCode + 0001:0008AAAC TCustomCombo.WMMeasureItem + 0001:0008B04C TCustomCombo.WndProc + 0001:0008AB70 TCustomComboBox.CMParentColorChanged + 0001:0008C420 TCustomComboBox.CNDrawItem + 0001:0008C544 TCustomComboBox.CNMeasureItem + 0001:0008B834 TCustomComboBox.Create + 0001:0008BA08 TCustomComboBox.CreateParams + 0001:0008BA84 TCustomComboBox.CreateWnd + 0001:0008B8DC TCustomComboBox.Destroy + 0001:0008BC40 TCustomComboBox.DestroyWnd + 0001:0008B374 TCustomComboBox.DrawItem + 0001:0008C68C TCustomComboBox.GetItemCount + 0001:0008B9C4 TCustomComboBox.GetItemHt + 0001:0008C6B0 TCustomComboBox.GetItemsClass + 0001:0008BE0C TCustomComboBox.KeyPress + 0001:0008C3E4 TCustomComboBox.MeasureItem + 0001:0008C1F0 TCustomComboBox.SelectItem + 0001:0008AD00 TCustomComboBox.SetCharCase + 0001:0008B92C TCustomComboBox.SetSorted + 0001:0008B960 TCustomComboBox.SetStyle + 0001:0008BCA4 TCustomComboBox.WMEraseBkgnd + 0001:0008C594 TCustomComboBox.WMLButtonDown + 0001:0008C94C TCustomComboBox.WMNCCalcSize + 0001:0008C6C8 TCustomComboBox.WMPaint + 0001:0008C630 TCustomComboBox.WndProc + 0001:0007EC54 TCustomComboBoxEx.ActionChange + 0001:0007E6D0 TCustomComboBoxEx.CMColorChanged + 0001:0007E694 TCustomComboBoxEx.CMParentColorChanged + 0001:0007E3F0 TCustomComboBoxEx.CNNotify + 0001:0007E7EC TCustomComboBoxEx.ComboExWndProc + 0001:0007E200 TCustomComboBoxEx.Create + 0001:0007E464 TCustomComboBoxEx.CreateParams + 0001:0007E820 TCustomComboBoxEx.CreateWnd + 0001:0007E360 TCustomComboBoxEx.Destroy + 0001:0007ED3C TCustomComboBoxEx.DestroyWnd + 0001:0007EDA0 TCustomComboBoxEx.Focused + 0001:0007EBC4 TCustomComboBoxEx.GetActionLinkClass + 0001:0007EB88 TCustomComboBoxEx.GetItemCount + 0001:0007ED24 TCustomComboBoxEx.GetItemHt + 0001:0007EBAC TCustomComboBoxEx.GetItemsClass + 0001:0007E5C4 TCustomComboBoxEx.ImageListChange + 0001:0007E654 TCustomComboBoxEx.Notification + 0001:0007ECD4 TCustomComboBoxEx.SetDropDownCount + 0001:0007E4F8 TCustomComboBoxEx.SetImages + 0001:0007EBDC TCustomComboBoxEx.SetStyleEx + 0001:0007EDFC TCustomComboBoxEx.UpdateAutoComplete + 0001:0007E750 TCustomComboBoxEx.WMLButtonDown + 0001:0007E5F8 TCustomComboBoxEx.WndProc + 0001:0008A3EC TCustomComboBoxStrings.Clear + 0001:0008A470 TCustomComboBoxStrings.Delete + 0001:0008A378 TCustomComboBoxStrings.Get + 0001:0008A290 TCustomComboBoxStrings.GetCount + 0001:0008A2C0 TCustomComboBoxStrings.GetObject + 0001:0008A49C TCustomComboBoxStrings.IndexOf + 0001:0008A344 TCustomComboBoxStrings.PutObject + 0001:0008A4D4 TCustomComboBoxStrings.SetUpdateState + 0001:000A3274 TCustomControl.Create + 0001:000A32E4 TCustomControl.Destroy + 0001:000A3400 TCustomControl.Paint + 0001:000A3354 TCustomControl.PaintWindow + 0001:000A3324 TCustomControl.WMPaint + 0001:000BE3C8 TCustomDockForm.CMControlListChange + 0001:000BE438 TCustomDockForm.CMDockNotification + 0001:000BE534 TCustomDockForm.CMUnDockClient + 0001:000BE55C TCustomDockForm.CMVisibleChanged + 0001:000BE0A0 TCustomDockForm.Create + 0001:000BE118 TCustomDockForm.DoAddDockClient + 0001:000BE210 TCustomDockForm.DoRemoveDockClient + 0001:000BE2A0 TCustomDockForm.GetSiteInfo + 0001:000BE240 TCustomDockForm.Loaded + 0001:000BE2D4 TCustomDockForm.WMNCHitTest + 0001:000BE30C TCustomDockForm.WMNCLButtonDown + 0001:000EBB30 TCustomDrawGrid.CellRect + 0001:000EBB90 TCustomDrawGrid.ColumnMoved + 0001:000EBD2C TCustomDrawGrid.DrawCell + 0001:000EBBCC TCustomDrawGrid.GetEditMask + 0001:000EBC18 TCustomDrawGrid.GetEditText + 0001:000EBB58 TCustomDrawGrid.MouseToCell + 0001:000EBC64 TCustomDrawGrid.RowMoved + 0001:000EBCA0 TCustomDrawGrid.SelectCell + 0001:000EBCE8 TCustomDrawGrid.SetEditText + 0001:000EBDE8 TCustomDrawGrid.TopLeftChanged + 0001:0008958C TCustomEdit.AdjustHeight + 0001:00089660 TCustomEdit.Change + 0001:000890E8 TCustomEdit.Clear + 0001:0008972C TCustomEdit.CMCtl3DChanged + 0001:000897E8 TCustomEdit.CMEnter + 0001:00089770 TCustomEdit.CMFontChanged + 0001:00089834 TCustomEdit.CMTextChanged + 0001:000897B0 TCustomEdit.CNCommand + 0001:0008910C TCustomEdit.CopyToClipboard + 0001:00088C1C TCustomEdit.Create + 0001:000892F4 TCustomEdit.CreateParams + 0001:000893DC TCustomEdit.CreateWindowHandle + 0001:0008946C TCustomEdit.CreateWnd + 0001:00089130 TCustomEdit.CutToClipboard + 0001:00089694 TCustomEdit.DefaultHandler + 0001:00089510 TCustomEdit.DestroyWnd + 0001:00088CF0 TCustomEdit.DoSetMaxLength + 0001:00088E6C TCustomEdit.GetModified + 0001:0008904C TCustomEdit.GetSelLength + 0001:00088FF4 TCustomEdit.GetSelStart + 0001:0008921C TCustomEdit.GetSelText + 0001:00089178 TCustomEdit.GetSelTextBuf + 0001:00089154 TCustomEdit.SelectAll + 0001:00088D1C TCustomEdit.SetAutoSize + 0001:00088D50 TCustomEdit.SetBorderStyle + 0001:00088D8C TCustomEdit.SetCharCase + 0001:00088DC0 TCustomEdit.SetHideSelection + 0001:00088DF4 TCustomEdit.SetMaxLength + 0001:00088EB4 TCustomEdit.SetModified + 0001:00088E38 TCustomEdit.SetOEMConvert + 0001:00088EFC TCustomEdit.SetPasswordChar + 0001:00088FA0 TCustomEdit.SetReadOnly + 0001:00089080 TCustomEdit.SetSelLength + 0001:00089020 TCustomEdit.SetSelStart + 0001:000892C4 TCustomEdit.SetSelText + 0001:00089534 TCustomEdit.UpdateHeight + 0001:00089880 TCustomEdit.WMContextMenu + 0001:000896DC TCustomEdit.WMSetFont + 0001:000BBAD8 TCustomForm.Activate + 0001:000BB81C TCustomForm.ActiveChanged + 0001:000B83DC TCustomForm.AfterConstruction + 0001:000B9BF0 TCustomForm.AlignControls + 0001:000B85F0 TCustomForm.BeforeDestruction + 0001:000B8E18 TCustomForm.BeginAutoDrag + 0001:000B8E24 TCustomForm.ChangeScale + 0001:000B9A10 TCustomForm.ClientWndProc + 0001:000BD35C TCustomForm.Close + 0001:000BD49C TCustomForm.CloseModal + 0001:000BD41C TCustomForm.CloseQuery + 0001:000BDB40 TCustomForm.CMActionExecute + 0001:000BDC70 TCustomForm.CMActionUpdate + 0001:000BCAD0 TCustomForm.CMActivate + 0001:000BC398 TCustomForm.CMAppSysCommand + 0001:000B9C8C TCustomForm.CMBiDiModeChanged + 0001:000BA7B0 TCustomForm.CMColorChanged + 0001:000BA81C TCustomForm.CMCtl3DChanged + 0001:000BCB04 TCustomForm.CMDeactivate + 0001:000BCB38 TCustomForm.CMDialogKey + 0001:000BA880 TCustomForm.CMFontChanged + 0001:000BD1E0 TCustomForm.CMIconChanged + 0001:000BD320 TCustomForm.CMIsShortCut + 0001:000BA8BC TCustomForm.CMMenuChanged + 0001:000B9D40 TCustomForm.CMParentBiDiModeChanged + 0001:000BD2A0 TCustomForm.CMParentFontChanged + 0001:000BD20C TCustomForm.CMRelease + 0001:000BCC04 TCustomForm.CMShowingChanged + 0001:000BD224 TCustomForm.CMTextChanged + 0001:000BD284 TCustomForm.CMUIActivate + 0001:000B824C TCustomForm.Create + 0001:000B8424 TCustomForm.CreateNew + 0001:000BAD08 TCustomForm.CreateParams + 0001:000BB13C TCustomForm.CreateWindowHandle + 0001:000BAFCC TCustomForm.CreateWnd + 0001:000BBB1C TCustomForm.Deactivate + 0001:000BB2F8 TCustomForm.DefaultHandler + 0001:000B8C84 TCustomForm.DefineProperties + 0001:000BB468 TCustomForm.DefocusControl + 0001:000B8670 TCustomForm.Destroy + 0001:000BB2A8 TCustomForm.DestroyWindowHandle + 0001:000B9E6C TCustomForm.Dock + 0001:000B8FE4 TCustomForm.DoClose + 0001:000B8754 TCustomForm.DoCreate + 0001:000B87D0 TCustomForm.DoDestroy + 0001:000B9ED8 TCustomForm.DoDock + 0001:000B9018 TCustomForm.DoHide + 0001:000B9044 TCustomForm.DoShow + 0001:000BB4C4 TCustomForm.FocusControl + 0001:000B9F50 TCustomForm.GetActiveMDIChild + 0001:000BA1EC TCustomForm.GetCanvas + 0001:000B9124 TCustomForm.GetChildren + 0001:000B9070 TCustomForm.GetClientRect + 0001:000B9198 TCustomForm.GetFloating + 0001:000BBB8C TCustomForm.GetIconHandle + 0001:000B9FA0 TCustomForm.GetMDIChildCount + 0001:000BA008 TCustomForm.GetMDIChildren + 0001:000BA0C8 TCustomForm.GetMonitor + 0001:000BA698 TCustomForm.GetPixelsPerInch + 0001:000BA750 TCustomForm.GetScaled + 0001:000B8DE4 TCustomForm.GetTextHeight + 0001:000BDE6C TCustomForm.HandleCreateException + 0001:000BD534 TCustomForm.Hide + 0001:000B8ECC TCustomForm.IconChanged + 0001:000BE05C TCustomForm.InitAlphaBlending + 0001:000B8F9C TCustomForm.IsAutoScrollStored + 0001:000B8F38 TCustomForm.IsClientSizeStored + 0001:000BA22C TCustomForm.IsForm + 0001:000B8F58 TCustomForm.IsFormSizeStored + 0001:000BA248 TCustomForm.IsIconStored + 0001:000BDD40 TCustomForm.IsShortCut + 0001:000B8830 TCustomForm.Loaded + 0001:000BB990 TCustomForm.MergeMenu + 0001:000BDE1C TCustomForm.MouseWheelHandler + 0001:000BA7F0 TCustomForm.NormalColor + 0001:000B8888 TCustomForm.Notification + 0001:000BBB60 TCustomForm.Paint + 0001:000BBBC0 TCustomForm.PaintWindow + 0001:000BBC80 TCustomForm.PaletteChanged + 0001:000BDDCC TCustomForm.QueryInterface + 0001:000B8D50 TCustomForm.ReadIgnoreFontProperty + 0001:000B89F0 TCustomForm.ReadState + 0001:000B8D78 TCustomForm.ReadTextHeight + 0001:000BA334 TCustomForm.RefreshMDIMenu + 0001:000BD5EC TCustomForm.Release + 0001:000BDA10 TCustomForm.RequestAlign + 0001:000BC2F4 TCustomForm.Resizing + 0001:000BB924 TCustomForm.SendCancelMode + 0001:000BB898 TCustomForm.SetActive + 0001:000BB388 TCustomForm.SetActiveControl + 0001:000BDF8C TCustomForm.SetAlphaBlend + 0001:000BDFC0 TCustomForm.SetAlphaBlendValue + 0001:000B9DD4 TCustomForm.SetBorderIcons + 0001:000B9E10 TCustomForm.SetBorderStyle + 0001:000B91D8 TCustomForm.SetChildOrder + 0001:000B9304 TCustomForm.SetClientHeight + 0001:000B92B4 TCustomForm.SetClientWidth + 0001:000BD564 TCustomForm.SetFocus + 0001:000BB4FC TCustomForm.SetFocusedControl + 0001:000BA280 TCustomForm.SetFormStyle + 0001:000BA208 TCustomForm.SetIcon + 0001:000BDE90 TCustomForm.SetLayeredAttribs + 0001:000BA468 TCustomForm.SetMenu + 0001:000BA3EC TCustomForm.SetObjectMenuItem + 0001:000B9444 TCustomForm.SetParent + 0001:000B9274 TCustomForm.SetParentBiDiMode + 0001:000BA6C8 TCustomForm.SetPixelsPerInch + 0001:000BA714 TCustomForm.SetPosition + 0001:000BA770 TCustomForm.SetScaled + 0001:000BE028 TCustomForm.SetTransparentColor + 0001:000BDFF4 TCustomForm.SetTransparentColorValue + 0001:000B9354 TCustomForm.SetVisible + 0001:000BB828 TCustomForm.SetWindowFocus + 0001:000BA424 TCustomForm.SetWindowMenu + 0001:000BA8E8 TCustomForm.SetWindowState + 0001:000BA944 TCustomForm.SetWindowToMonitor + 0001:000BD548 TCustomForm.Show + 0001:000BD610 TCustomForm.ShowModal + 0001:000BD97C TCustomForm.UpdateActions + 0001:000B9494 TCustomForm.ValidateRename + 0001:000B93B4 TCustomForm.VisibleChanging + 0001:000B9428 TCustomForm.WantChildKey + 0001:000BC2BC TCustomForm.WMActivate + 0001:000BC348 TCustomForm.WMClose + 0001:000BC110 TCustomForm.WMCommand + 0001:000BC09C TCustomForm.WMDestroy + 0001:000BC64C TCustomForm.WMEnterMenuLoop + 0001:000BBE34 TCustomForm.WMEraseBkgnd + 0001:000BC8EC TCustomForm.WMGetMinMaxInfo + 0001:000BC768 TCustomForm.WMHelp + 0001:000BBDC4 TCustomForm.WMIconEraseBkgnd + 0001:000BC15C TCustomForm.WMInitMenuPopup + 0001:000BC594 TCustomForm.WMMDIActivate + 0001:000BC18C TCustomForm.WMMenuChar + 0001:000BC1DC TCustomForm.WMMenuSelect + 0001:000BBFB0 TCustomForm.WMNCCreate + 0001:000BBFEC TCustomForm.WMNCLButtonDown + 0001:000BC604 TCustomForm.WMNextDlgCtl + 0001:000BBD28 TCustomForm.WMPaint + 0001:000BBE78 TCustomForm.WMQueryDragIcon + 0001:000BC360 TCustomForm.WMQueryEndSession + 0001:000BDA3C TCustomForm.WMSettingChange + 0001:000BC4D8 TCustomForm.WMShowWindow + 0001:000BC418 TCustomForm.WMSysCommand + 0001:000BC9FC TCustomForm.WMWindowPosChanging + 0001:000B94E4 TCustomForm.WndProc + 0001:000B8DC0 TCustomForm.WritePixelsPerInch + 0001:000B8D9C TCustomForm.WriteTextHeight + 0001:000B8078 TCustomFrame.AddActionList + 0001:000B7EAC TCustomFrame.Create + 0001:000B7FD0 TCustomFrame.CreateParams + 0001:000B8004 TCustomFrame.GetChildren + 0001:000B810C TCustomFrame.Notification + 0001:000B80CC TCustomFrame.RemoveActionList + 0001:000B81F0 TCustomFrame.SetParent + 0001:000E54EC TCustomGrid.AdjustSize + 0001:000EBA90 TCustomGrid.BeginColumnDrag + 0001:000EBAAC TCustomGrid.BeginRowDrag + 0001:000E56B0 TCustomGrid.BoxRect + 0001:000E6D30 TCustomGrid.CalcCoordFromPoint + 0001:000E6D94 TCustomGrid.CalcDrawInfo + 0001:000E6E70 TCustomGrid.CalcDrawInfoXY + 0001:000E6F64 TCustomGrid.CalcFixedInfo + 0001:000E708C TCustomGrid.CalcMaxTopLeft + 0001:000E72D8 TCustomGrid.CalcSizingState + 0001:000EB478 TCustomGrid.CancelMode + 0001:000E5748 TCustomGrid.CanEditAcceptKey + 0001:000E577C TCustomGrid.CanEditModify + 0001:000E5798 TCustomGrid.CanEditShow + 0001:000E5760 TCustomGrid.CanGridAcceptKey + 0001:000E5718 TCustomGrid.CellRect + 0001:000E73BC TCustomGrid.ChangeGridOrientation + 0001:000E77D4 TCustomGrid.ChangeSize + 0001:000EBA58 TCustomGrid.CheckColumnDrag + 0001:000EBA74 TCustomGrid.CheckRowDrag + 0001:000E78C0 TCustomGrid.ClampInView + 0001:000EB530 TCustomGrid.CMCancelMode + 0001:000EB5AC TCustomGrid.CMCtl3DChanged + 0001:000EB5D0 TCustomGrid.CMDesignHitTest + 0001:000EB570 TCustomGrid.CMFontChanged + 0001:000EBB00 TCustomGrid.CMShowingChanged + 0001:000EB600 TCustomGrid.CMWantSpecialKey + 0001:000E5D74 TCustomGrid.ColumnMoved + 0001:000EB898 TCustomGrid.ColWidthsChanged + 0001:000E5198 TCustomGrid.Create + 0001:000E9474 TCustomGrid.CreateEditor + 0001:000E9498 TCustomGrid.CreateParams + 0001:000E5BC0 TCustomGrid.DefineProperties + 0001:000EB8D0 TCustomGrid.DeleteColumn + 0001:000EB908 TCustomGrid.DeleteRow + 0001:000E5344 TCustomGrid.Destroy + 0001:000E56F0 TCustomGrid.DoExit + 0001:000EB998 TCustomGrid.DoMouseWheelDown + 0001:000EB9F8 TCustomGrid.DoMouseWheelUp + 0001:000E7B3C TCustomGrid.DrawMove + 0001:000E79D4 TCustomGrid.DrawSizingLine + 0001:000EBAC8 TCustomGrid.EndColumnDrag + 0001:000EBAE4 TCustomGrid.EndRowDrag + 0001:000E7CF4 TCustomGrid.FocusCell + 0001:000EA5E8 TCustomGrid.GetColWidths + 0001:000E58E0 TCustomGrid.GetEditLimit + 0001:000E5888 TCustomGrid.GetEditMask + 0001:000E58F8 TCustomGrid.GetEditStyle + 0001:000E58A8 TCustomGrid.GetEditText + 0001:000EA638 TCustomGrid.GetRowHeights + 0001:000EA688 TCustomGrid.GetSelection + 0001:000EA6B4 TCustomGrid.GetTabStops + 0001:000EA6EC TCustomGrid.GetVisibleColCount + 0001:000EA718 TCustomGrid.GetVisibleRowCount + 0001:000E7EE4 TCustomGrid.GridRectToScreenRect + 0001:000EAE88 TCustomGrid.HideEdit + 0001:000E5914 TCustomGrid.HideEditor + 0001:000E7FDC TCustomGrid.Initialize + 0001:000E8068 TCustomGrid.InvalidateCell + 0001:000E5994 TCustomGrid.InvalidateEditor + 0001:000E80A0 TCustomGrid.InvalidateGrid + 0001:000E80B4 TCustomGrid.InvalidateRect + 0001:000E5810 TCustomGrid.IsActiveControl + 0001:000E9614 TCustomGrid.KeyDown + 0001:000E9B38 TCustomGrid.KeyPress + 0001:000E855C TCustomGrid.ModifyScrollBar + 0001:000E5E4C TCustomGrid.MouseCoord + 0001:000E9B8C TCustomGrid.MouseDown + 0001:000E9F78 TCustomGrid.MouseMove + 0001:000EA174 TCustomGrid.MouseUp + 0001:000E875C TCustomGrid.MoveAdjust + 0001:000E87D0 TCustomGrid.MoveAnchor + 0001:000EA420 TCustomGrid.MoveAndScroll + 0001:000E5EA8 TCustomGrid.MoveColRow + 0001:000E5C64 TCustomGrid.MoveColumn + 0001:000E8878 TCustomGrid.MoveCurrent + 0001:000E5D88 TCustomGrid.MoveRow + 0001:000E8A18 TCustomGrid.MoveTopLeft + 0001:000E66B0 TCustomGrid.Paint + 0001:000E59C0 TCustomGrid.ReadColWidths + 0001:000E5A18 TCustomGrid.ReadRowHeights + 0001:000E8A8C TCustomGrid.ResizeCol + 0001:000E8AAC TCustomGrid.ResizeRow + 0001:000EB8B4 TCustomGrid.RowHeightsChanged + 0001:000E5E38 TCustomGrid.RowMoved + 0001:000E8D4C TCustomGrid.ScrollData + 0001:000E8B4C TCustomGrid.ScrollDataInfo + 0001:000E5ED4 TCustomGrid.SelectCell + 0001:000E8ACC TCustomGrid.SelectionMoved + 0001:000EA744 TCustomGrid.SetBorderStyle + 0001:000EA778 TCustomGrid.SetCol + 0001:000EA7AC TCustomGrid.SetColCount + 0001:000EA82C TCustomGrid.SetColWidths + 0001:000EA914 TCustomGrid.SetDefaultColWidth + 0001:000EA964 TCustomGrid.SetDefaultRowHeight + 0001:000EAB48 TCustomGrid.SetEditorMode + 0001:000E58C8 TCustomGrid.SetEditText + 0001:000EA9B4 TCustomGrid.SetFixedColor + 0001:000EA9E8 TCustomGrid.SetFixedCols + 0001:000EAA98 TCustomGrid.SetFixedRows + 0001:000EAB8C TCustomGrid.SetGridLineWidth + 0001:000EABC0 TCustomGrid.SetOptions + 0001:000EAC4C TCustomGrid.SetRow + 0001:000EAC80 TCustomGrid.SetRowCount + 0001:000EACDC TCustomGrid.SetRowHeights + 0001:000EADC4 TCustomGrid.SetScrollBars + 0001:000EADF8 TCustomGrid.SetSelection + 0001:000EAE54 TCustomGrid.SetTopRow + 0001:000E5930 TCustomGrid.ShowEditor + 0001:000E594C TCustomGrid.ShowEditorChar + 0001:000E5EF0 TCustomGrid.SizeChanged + 0001:000E5F04 TCustomGrid.Sizing + 0001:000EB63C TCustomGrid.TimedScroll + 0001:000E5F68 TCustomGrid.TopLeftChanged + 0001:000E8E24 TCustomGrid.TopLeftMoved + 0001:000EB940 TCustomGrid.UpdateDesigner + 0001:000EAF80 TCustomGrid.UpdateEdit + 0001:000E8F3C TCustomGrid.UpdateScrollPos + 0001:000E932C TCustomGrid.UpdateScrollRange + 0001:000EB060 TCustomGrid.UpdateText + 0001:000EB50C TCustomGrid.WMCancelMode + 0001:000EB0EC TCustomGrid.WMChar + 0001:000EB134 TCustomGrid.WMCommand + 0001:000EB17C TCustomGrid.WMGetDlgCode + 0001:000EB44C TCustomGrid.WMHScroll + 0001:000EB1CC TCustomGrid.WMKillFocus + 0001:000EB228 TCustomGrid.WMLButtonDown + 0001:000EB264 TCustomGrid.WMNCHitTest + 0001:000EB2B0 TCustomGrid.WMSetCursor + 0001:000EB380 TCustomGrid.WMSetFocus + 0001:000EB3DC TCustomGrid.WMSize + 0001:000EB70C TCustomGrid.WMTimer + 0001:000EB41C TCustomGrid.WMVScroll + 0001:000E5A70 TCustomGrid.WriteColWidths + 0001:000E5AC8 TCustomGrid.WriteRowHeights + 0001:00087E18 TCustomGroupBox.AdjustClientRect + 0001:0008837C TCustomGroupBox.CMCtl3DChanged + 0001:000882CC TCustomGroupBox.CMDialogChar + 0001:0008835C TCustomGroupBox.CMTextChanged + 0001:00087DA4 TCustomGroupBox.Create + 0001:00087E94 TCustomGroupBox.CreateParams + 0001:00087EB8 TCustomGroupBox.Paint + 0001:000883A8 TCustomGroupBox.WMSize + 0001:00062C84 TCustomHeaderControl.CMBiDiModeChanged + 0001:000632B0 TCustomHeaderControl.CNDrawItem + 0001:000633C8 TCustomHeaderControl.CNNotify + 0001:000628A4 TCustomHeaderControl.Create + 0001:00062A24 TCustomHeaderControl.CreateParams + 0001:00063E3C TCustomHeaderControl.CreateSection + 0001:00063E8C TCustomHeaderControl.CreateSections + 0001:00062B74 TCustomHeaderControl.CreateWnd + 0001:000629AC TCustomHeaderControl.Destroy + 0001:00062BE0 TCustomHeaderControl.DestroyWnd + 0001:00063AB4 TCustomHeaderControl.DoSectionDrag + 0001:00063DB4 TCustomHeaderControl.DoSectionEndDrag + 0001:00062ED4 TCustomHeaderControl.DrawSection + 0001:00062D00 TCustomHeaderControl.FlipChildren + 0001:00063BD8 TCustomHeaderControl.ImageListChange + 0001:00063AE8 TCustomHeaderControl.Notification + 0001:00062F28 TCustomHeaderControl.SectionClick + 0001:00063C08 TCustomHeaderControl.SectionDrag + 0001:00063E10 TCustomHeaderControl.SectionEndDrag + 0001:00062F5C TCustomHeaderControl.SectionResize + 0001:00062F90 TCustomHeaderControl.SectionTrack + 0001:00063070 TCustomHeaderControl.SetDragReorder + 0001:00062FD4 TCustomHeaderControl.SetFullDrag + 0001:00063008 TCustomHeaderControl.SetHotTrack + 0001:00063B2C TCustomHeaderControl.SetImages + 0001:000630A4 TCustomHeaderControl.SetSections + 0001:0006303C TCustomHeaderControl.SetStyle + 0001:000630C8 TCustomHeaderControl.UpdateItem + 0001:000631DC TCustomHeaderControl.UpdateSection + 0001:00063208 TCustomHeaderControl.UpdateSections + 0001:00063834 TCustomHeaderControl.WMLButtonDown + 0001:000638A4 TCustomHeaderControl.WMSize + 0001:00063A90 TCustomHeaderControl.WMWindowPosChanged + 0001:00063744 TCustomHeaderControl.WndProc + 0001:000A9700 TCustomImageList.Add + 0001:000AA1EC TCustomImageList.AddImages + 0001:000A97D0 TCustomImageList.AddMasked + 0001:000AA218 TCustomImageList.Assign + 0001:000AA318 TCustomImageList.AssignTo + 0001:000AAE50 TCustomImageList.BeginUpdate + 0001:000AA4DC TCustomImageList.Change + 0001:000AA404 TCustomImageList.CheckImage + 0001:000A9C74 TCustomImageList.Clear + 0001:000AA02C TCustomImageList.CopyImages + 0001:000A9098 TCustomImageList.Create + 0001:000A9640 TCustomImageList.CreateImageList + 0001:000A90FC TCustomImageList.CreateSize + 0001:000AA7A0 TCustomImageList.DefineProperties + 0001:000A9BD8 TCustomImageList.Delete + 0001:000A9160 TCustomImageList.Destroy + 0001:000A9D18 TCustomImageList.DoDraw + 0001:000A9F88 TCustomImageList.Draw + 0001:000A9F48 TCustomImageList.Draw + 0001:000AAE60 TCustomImageList.EndUpdate + 0001:000AA644 TCustomImageList.Equal + 0001:000A95FC TCustomImageList.FreeHandle + 0001:000A98F0 TCustomImageList.GetBitmap + 0001:000A9538 TCustomImageList.GetBitmapHandle + 0001:000A9CD8 TCustomImageList.GetBkColor + 0001:000A9974 TCustomImageList.GetCount + 0001:000A9568 TCustomImageList.GetHandle + 0001:000AA4C0 TCustomImageList.GetHotSpot + 0001:000A958C TCustomImageList.GetImageHandle + 0001:000A92D0 TCustomImageList.HandleAllocated + 0001:000A92EC TCustomImageList.HandleNeeded + 0001:000A9308 TCustomImageList.InitBitmap + 0001:000A91F0 TCustomImageList.Initialize + 0001:000A9FE0 TCustomImageList.Overlay + 0001:000AA7F8 TCustomImageList.ReadD2Stream + 0001:000AAAA4 TCustomImageList.ReadD3Stream + 0001:000AAC70 TCustomImageList.ReadData + 0001:000AA5BC TCustomImageList.RegisterChanges + 0001:000A99A8 TCustomImageList.ReplaceMasked + 0001:000A9C8C TCustomImageList.SetBkColor + 0001:000AA48C TCustomImageList.SetDrawingStyle + 0001:000A94F8 TCustomImageList.SetHandle + 0001:000A9490 TCustomImageList.SetHeight + 0001:000A93D8 TCustomImageList.SetNewDimensions + 0001:000A9428 TCustomImageList.SetWidth + 0001:000AA554 TCustomImageList.UnRegisterChanges + 0001:000AAD04 TCustomImageList.WriteData + 0001:000887A0 TCustomLabel.AdjustBounds + 0001:00088AEC TCustomLabel.CMDialogChar + 0001:00088AC0 TCustomLabel.CMFontChanged + 0001:00088BA4 TCustomLabel.CMMouseEnter + 0001:00088BE0 TCustomLabel.CMMouseLeave + 0001:00088A98 TCustomLabel.CMTextChanged + 0001:000883CC TCustomLabel.Create + 0001:000884B0 TCustomLabel.DoDrawText + 0001:00088494 TCustomLabel.GetLabelText + 0001:00088900 TCustomLabel.GetTransparent + 0001:00088780 TCustomLabel.Loaded + 0001:00088A58 TCustomLabel.Notification + 0001:0008865C TCustomLabel.Paint + 0001:00088894 TCustomLabel.SetAlignment + 0001:000888C8 TCustomLabel.SetAutoSize + 0001:00088920 TCustomLabel.SetFocusControl + 0001:000889E4 TCustomLabel.SetLayout + 0001:00088950 TCustomLabel.SetShowAccelChar + 0001:00088984 TCustomLabel.SetTransparent + 0001:00088A18 TCustomLabel.SetWordWrap + 0001:00050BFC TCustomListAction.Create + 0001:00050C6C TCustomListAction.ExecuteTarget + 0001:00050DA8 TCustomListAction.GetCount + 0001:00050DE4 TCustomListAction.GetString + 0001:00050E00 TCustomListAction.HandlesTarget + 0001:00050E18 TCustomListAction.Loaded + 0001:00050E64 TCustomListAction.SetActive + 0001:00050F6C TCustomListAction.SetImages + 0001:0005100C TCustomListAction.SetItemIndex + 0001:0005108C TCustomListAction.SetString + 0001:0008E1F0 TCustomListBox.AddItem + 0001:0008E388 TCustomListBox.Clear + 0001:0008E3A0 TCustomListBox.ClearSelection + 0001:0008F894 TCustomListBox.CMCtl3DChanged + 0001:0008F324 TCustomListBox.CNCommand + 0001:0008F740 TCustomListBox.CNDrawItem + 0001:0008F844 TCustomListBox.CNMeasureItem + 0001:0008E3FC TCustomListBox.CopySelection + 0001:0008E070 TCustomListBox.Create + 0001:0008EECC TCustomListBox.CreateParams + 0001:0008F024 TCustomListBox.CreateWnd + 0001:0008E54C TCustomListBox.DeleteSelected + 0001:0008E32C TCustomListBox.DeleteString + 0001:0008E194 TCustomListBox.Destroy + 0001:0008F144 TCustomListBox.DestroyWnd + 0001:0008FD58 TCustomListBox.DoFindData + 0001:0008FCE0 TCustomListBox.DoGetData + 0001:0008FD1C TCustomListBox.DoGetDataObject + 0001:0008F568 TCustomListBox.DragCanceled + 0001:0008F5C8 TCustomListBox.DrawItem + 0001:0008E6F8 TCustomListBox.GetCount + 0001:0008E27C TCustomListBox.GetItemData + 0001:0008E838 TCustomListBox.GetItemHeight + 0001:0008E6A4 TCustomListBox.GetItemIndex + 0001:0008FD9C TCustomListBox.GetScrollWidth + 0001:0008E738 TCustomListBox.GetSelCount + 0001:0008E934 TCustomListBox.GetSelected + 0001:0008EB04 TCustomListBox.GetTopIndex + 0001:0008E2DC TCustomListBox.InternalGetItemData + 0001:0008E304 TCustomListBox.InternalSetItemData + 0001:0008ED9C TCustomListBox.ItemAtPos + 0001:0008EE3C TCustomListBox.ItemRect + 0001:0008FA08 TCustomListBox.KeyPress + 0001:0008EB30 TCustomListBox.LBGetText + 0001:0008EC0C TCustomListBox.LBGetTextLen + 0001:0008F704 TCustomListBox.MeasureItem + 0001:0008E358 TCustomListBox.ResetContent + 0001:0008F8D0 TCustomListBox.SelectAll + 0001:0008ECD4 TCustomListBox.SetBorderStyle + 0001:0008E63C TCustomListBox.SetColumns + 0001:0008E5D0 TCustomListBox.SetColumnWidth + 0001:0008FBE8 TCustomListBox.SetCount + 0001:0008E7C4 TCustomListBox.SetExtendedSelect + 0001:0008E7F8 TCustomListBox.SetIntegralHeight + 0001:0008E2AC TCustomListBox.SetItemData + 0001:0008E888 TCustomListBox.SetItemHeight + 0001:0008E764 TCustomListBox.SetItemIndex + 0001:0008ED40 TCustomListBox.SetItems + 0001:0008E900 TCustomListBox.SetMultiSelect + 0001:0008FDC8 TCustomListBox.SetScrollWidth + 0001:0008E99C TCustomListBox.SetSelected + 0001:0008EA6C TCustomListBox.SetSorted + 0001:0008EAB0 TCustomListBox.SetStyle + 0001:0008E8C0 TCustomListBox.SetTabWidth + 0001:0008ED08 TCustomListBox.SetTopIndex + 0001:0008F268 TCustomListBox.WMLButtonDown + 0001:0008F514 TCustomListBox.WMPaint + 0001:0008F544 TCustomListBox.WMSize + 0001:0008F1E4 TCustomListBox.WndProc + 0001:000A7318 TCustomListControl.MoveSelection + 0001:00074E24 TCustomListView.ActionChange + 0001:00072C94 TCustomListView.AddItem + 0001:000733BC TCustomListView.AlphaSort + 0001:00074A38 TCustomListView.AreItemsStored + 0001:00073B98 TCustomListView.Arrange + 0001:00072D04 TCustomListView.CanChange + 0001:00072E1C TCustomListView.CanEdit + 0001:00074280 TCustomListView.CanvasChanged + 0001:00072D6C TCustomListView.Change + 0001:00072B58 TCustomListView.ChangeScale + 0001:00074DB4 TCustomListView.Clear + 0001:00074BB8 TCustomListView.ClearSelection + 0001:0007130C TCustomListView.CMColorChanged + 0001:00071344 TCustomListView.CMCtl3DChanged + 0001:0007310C TCustomListView.CMDrag + 0001:00071650 TCustomListView.CMFontChanged + 0001:00074858 TCustomListView.CMHintShow + 0001:00074148 TCustomListView.CNDrawItem + 0001:00071CE4 TCustomListView.CNNotify + 0001:00072BE8 TCustomListView.ColClick + 0001:00072C1C TCustomListView.ColRightClick + 0001:00071610 TCustomListView.ColumnsShowing + 0001:00074C08 TCustomListView.CopySelection + 0001:0006FE98 TCustomListView.Create + 0001:000719F8 TCustomListView.CreateListItem + 0001:00071A4C TCustomListView.CreateListItems + 0001:00070244 TCustomListView.CreateParams + 0001:00070470 TCustomListView.CreateWnd + 0001:00074400 TCustomListView.CustomDraw + 0001:00074474 TCustomListView.CustomDrawItem + 0001:000744F4 TCustomListView.CustomDrawSubItem + 0001:0007336C TCustomListView.CustomSort + 0001:00072DC8 TCustomListView.Delete + 0001:00074C94 TCustomListView.DeleteSelected + 0001:000700F8 TCustomListView.Destroy + 0001:00070668 TCustomListView.DestroyWnd + 0001:00073F40 TCustomListView.DoAutoSize + 0001:00073280 TCustomListView.DoDragOver + 0001:000730CC TCustomListView.DoEndDrag + 0001:000749AC TCustomListView.DoInfoTip + 0001:00072FCC TCustomListView.DoStartDrag + 0001:0007457C TCustomListView.DrawItem + 0001:00074660 TCustomListView.DrawWorkAreas + 0001:00072E5C TCustomListView.Edit + 0001:00070ADC TCustomListView.EditWndProc + 0001:00074E0C TCustomListView.GetActionLinkClass + 0001:000737A0 TCustomListView.GetColumnFromIndex + 0001:00074AD4 TCustomListView.GetColumnFromTag + 0001:00074D40 TCustomListView.GetCount + 0001:00072EF4 TCustomListView.GetDragImages + 0001:00073878 TCustomListView.GetDropTarget + 0001:00073908 TCustomListView.GetFocused + 0001:00074A18 TCustomListView.GetHoverTime + 0001:00073988 TCustomListView.GetImageIndex + 0001:00071AC0 TCustomListView.GetItem + 0001:00073B28 TCustomListView.GetItemAt + 0001:00071884 TCustomListView.GetItemIndex + 0001:00073AB0 TCustomListView.GetNearestItem + 0001:000739BC TCustomListView.GetNextItem + 0001:00071C30 TCustomListView.GetSelCount + 0001:000737C8 TCustomListView.GetSelected + 0001:00074608 TCustomListView.GetSubItemImage + 0001:000734B4 TCustomListView.GetTopItem + 0001:00073494 TCustomListView.GetViewOrigin + 0001:0007345C TCustomListView.GetVisibleRowCount + 0001:000709BC TCustomListView.HeaderWndProc + 0001:00070740 TCustomListView.ImageListChange + 0001:00072C60 TCustomListView.InsertItem + 0001:0007429C TCustomListView.IsCustomDrawn + 0001:00074A88 TCustomListView.MouseUp + 0001:000707D8 TCustomListView.Notification + 0001:000718B8 TCustomListView.OwnerDataFetch + 0001:000718FC TCustomListView.OwnerDataFind + 0001:0007195C TCustomListView.OwnerDataHint + 0001:000719A4 TCustomListView.OwnerDataStateChange + 0001:00070C20 TCustomListView.ResetExStyles + 0001:00070D64 TCustomListView.RestoreChecks + 0001:00070E1C TCustomListView.SaveChecks + 0001:00073500 TCustomListView.Scroll + 0001:00074D64 TCustomListView.SelectAll + 0001:000712C4 TCustomListView.SetAllocBy + 0001:00071128 TCustomListView.SetBorderStyle + 0001:00070EC8 TCustomListView.SetCheckboxes + 0001:0007115C TCustomListView.SetColumnClick + 0001:0007121C TCustomListView.SetColumnHeaders + 0001:000738B4 TCustomListView.SetDropTarget + 0001:000710C0 TCustomListView.SetFlatScrollBars + 0001:00073934 TCustomListView.SetFocused + 0001:000710F4 TCustomListView.SetFullDrag + 0001:00070F7C TCustomListView.SetGridLines + 0001:000716A8 TCustomListView.SetHideSelection + 0001:00070FB0 TCustomListView.SetHotTrack + 0001:00070FE4 TCustomListView.SetHotTrackStyles + 0001:000749E8 TCustomListView.SetHoverTime + 0001:00071710 TCustomListView.SetIconOptions + 0001:0007070C TCustomListView.SetImageList + 0001:00071190 TCustomListView.SetItemIndex + 0001:00073324 TCustomListView.SetItems + 0001:00073528 TCustomListView.SetLargeImages + 0001:00073348 TCustomListView.SetListColumns + 0001:000711E8 TCustomListView.SetMultiSelect + 0001:00071018 TCustomListView.SetOwnerData + 0001:00071058 TCustomListView.SetOwnerDraw + 0001:000716DC TCustomListView.SetReadOnly + 0001:0007108C TCustomListView.SetRowSelect + 0001:000737F4 TCustomListView.SetSelected + 0001:00074834 TCustomListView.SetShowWorkAreas + 0001:000735E0 TCustomListView.SetSmallImages + 0001:000733FC TCustomListView.SetSortType + 0001:0007369C TCustomListView.SetStateImages + 0001:00071280 TCustomListView.SetTextBkColor + 0001:00071250 TCustomListView.SetTextColor + 0001:00071758 TCustomListView.SetViewStyle + 0001:00073C1C TCustomListView.UpdateColumn + 0001:00073BC4 TCustomListView.UpdateColumns + 0001:00070BF8 TCustomListView.UpdateItems + 0001:00071630 TCustomListView.ValidHeaderHandle + 0001:00074B34 TCustomListView.WMContextMenu + 0001:00073D9C TCustomListView.WMLButtonDown + 0001:00071374 TCustomListView.WMNotify + 0001:000747F8 TCustomListView.WMPaint + 0001:0007180C TCustomListView.WMParentNotify + 0001:00074EA4 TCustomListView.WMVScroll + 0001:00074104 TCustomListView.WMWindowPosChanged + 0001:00072F28 TCustomListView.WndProc + 0001:000E1C28 TCustomMaskEdit.AddEditFormat + 0001:000E1400 TCustomMaskEdit.ArrowKeys + 0001:000E1204 TCustomMaskEdit.CharKeys + 0001:000E1160 TCustomMaskEdit.CheckCursor + 0001:000E11A8 TCustomMaskEdit.Clear + 0001:000E1960 TCustomMaskEdit.CMEnter + 0001:000E1AF4 TCustomMaskEdit.CMExit + 0001:000E1A08 TCustomMaskEdit.CMTextChanged + 0001:000E1AAC TCustomMaskEdit.CMWantSpecialKey + 0001:000E0520 TCustomMaskEdit.Create + 0001:000E167C TCustomMaskEdit.CursorDec + 0001:000E162C TCustomMaskEdit.CursorInc + 0001:000E1824 TCustomMaskEdit.DeleteKeys + 0001:000E248C TCustomMaskEdit.DeleteSelection + 0001:000E20A4 TCustomMaskEdit.DoInputChar + 0001:000E11BC TCustomMaskEdit.EditCanModify + 0001:000E2878 TCustomMaskEdit.FindLiteralChar + 0001:000E08AC TCustomMaskEdit.GetEditText + 0001:000E0C20 TCustomMaskEdit.GetMasked + 0001:000E0E10 TCustomMaskEdit.GetMaxLength + 0001:000E16B0 TCustomMaskEdit.GetNextEditChar + 0001:000E16F4 TCustomMaskEdit.GetPriorEditChar + 0001:000E0E68 TCustomMaskEdit.GetSel + 0001:000E0920 TCustomMaskEdit.GetText + 0001:000E08C8 TCustomMaskEdit.GetTextLen + 0001:000E1744 TCustomMaskEdit.HomeEndKeys + 0001:000E1EB0 TCustomMaskEdit.InputChar + 0001:000E2550 TCustomMaskEdit.InputString + 0001:000E058C TCustomMaskEdit.KeyDown + 0001:000E0718 TCustomMaskEdit.KeyPress + 0001:000E06B4 TCustomMaskEdit.KeyUp + 0001:000E0C40 TCustomMaskEdit.ReformatText + 0001:000E1C7C TCustomMaskEdit.RemoveEditFormat + 0001:000E11D0 TCustomMaskEdit.Reset + 0001:000E0EC8 TCustomMaskEdit.SetCursor + 0001:000E0D18 TCustomMaskEdit.SetEditMask + 0001:000E0838 TCustomMaskEdit.SetEditText + 0001:000E0E2C TCustomMaskEdit.SetMaxLength + 0001:000E0E98 TCustomMaskEdit.SetSel + 0001:000E09C4 TCustomMaskEdit.SetText + 0001:000E23C8 TCustomMaskEdit.Validate + 0001:000E1B38 TCustomMaskEdit.ValidateEdit + 0001:000E1BE4 TCustomMaskEdit.ValidateError + 0001:000E0AE8 TCustomMaskEdit.WMCut + 0001:000E076C TCustomMaskEdit.WMLButtonDown + 0001:000E0798 TCustomMaskEdit.WMLButtonUp + 0001:000E0B28 TCustomMaskEdit.WMPaste + 0001:000E0808 TCustomMaskEdit.WMSetFocus + 0001:00089D98 TCustomMemo.Create + 0001:00089E88 TCustomMemo.CreateParams + 0001:00089F04 TCustomMemo.CreateWindowHandle + 0001:00089E48 TCustomMemo.Destroy + 0001:0008A038 TCustomMemo.GetCaretPos + 0001:0008A0F8 TCustomMemo.GetControlsAlignment + 0001:0008A258 TCustomMemo.KeyPress + 0001:0008A114 TCustomMemo.Loaded + 0001:0008A130 TCustomMemo.SetAlignment + 0001:0008A0A8 TCustomMemo.SetCaretPos + 0001:0008A164 TCustomMemo.SetLines + 0001:0008A188 TCustomMemo.SetScrollBars + 0001:0008A1BC TCustomMemo.SetWordWrap + 0001:0008A1F0 TCustomMemo.WMGetDlgCode + 0001:0008A23C TCustomMemo.WMNCDestroy + 0001:00023B78 TCustomMemoryStream.Read + 0001:00023BE8 TCustomMemoryStream.Seek + 0001:00023B50 TCustomMemoryStream.SetPointer + 0001:00047F24 TCustomPanel.AdjustClientRect + 0001:00048100 TCustomPanel.CanAutoSize + 0001:00047A20 TCustomPanel.CMBorderChanged + 0001:00047A5C TCustomPanel.CMCtl3DChanged + 0001:00047FAC TCustomPanel.CMDockClient + 0001:00047A98 TCustomPanel.CMIsToolControl + 0001:00047A44 TCustomPanel.CMTextChanged + 0001:000478C0 TCustomPanel.Create + 0001:000479B0 TCustomPanel.CreateParams + 0001:00047F08 TCustomPanel.GetControlsAlignment + 0001:00047C2C TCustomPanel.Paint + 0001:00047E00 TCustomPanel.SetAlignment + 0001:00047E24 TCustomPanel.SetBevelInner + 0001:00047E50 TCustomPanel.SetBevelOuter + 0001:00047E7C TCustomPanel.SetBevelWidth + 0001:00047ED4 TCustomPanel.SetBorderStyle + 0001:00047EA8 TCustomPanel.SetBorderWidth + 0001:00048140 TCustomPanel.SetParentBackground + 0001:00047AC0 TCustomPanel.WMWindowPosChanged + 0001:0004863C TCustomRadioGroup.ArrangeButtons + 0001:00048820 TCustomRadioGroup.ButtonClick + 0001:00048C5C TCustomRadioGroup.CanModify + 0001:00048BB4 TCustomRadioGroup.CMEnabledChanged + 0001:00048C14 TCustomRadioGroup.CMFontChanged + 0001:00048510 TCustomRadioGroup.Create + 0001:000485C4 TCustomRadioGroup.Destroy + 0001:0004862C TCustomRadioGroup.FlipChildren + 0001:00048C70 TCustomRadioGroup.GetChildren + 0001:0004886C TCustomRadioGroup.ItemsChange + 0001:000488C4 TCustomRadioGroup.Loaded + 0001:000488E0 TCustomRadioGroup.ReadState + 0001:00048918 TCustomRadioGroup.SetButtonCount + 0001:00048970 TCustomRadioGroup.SetColumns + 0001:000489C4 TCustomRadioGroup.SetItemIndex + 0001:00048A94 TCustomRadioGroup.SetItems + 0001:00048AB8 TCustomRadioGroup.UpdateButtons + 0001:00048C38 TCustomRadioGroup.WMSize + 0001:0006BD24 TCustomRichEdit.Clear + 0001:0006C2CC TCustomRichEdit.CMBiDiModeChanged + 0001:0006C45C TCustomRichEdit.CMColorChanged + 0001:0006C07C TCustomRichEdit.CMFontChanged + 0001:0006C848 TCustomRichEdit.CNNotify + 0001:0006BB38 TCustomRichEdit.Create + 0001:0006BD40 TCustomRichEdit.CreateParams + 0001:0006BDE4 TCustomRichEdit.CreateWnd + 0001:0006BCAC TCustomRichEdit.Destroy + 0001:0006BF0C TCustomRichEdit.DestroyWnd + 0001:0006C0A0 TCustomRichEdit.DoSetMaxLength + 0001:0006C9E8 TCustomRichEdit.FindText + 0001:0006C0CC TCustomRichEdit.GetCaretPos + 0001:0006C41C TCustomRichEdit.GetPlainText + 0001:0006C190 TCustomRichEdit.GetSelLength + 0001:0006C1C4 TCustomRichEdit.GetSelStart + 0001:0006C278 TCustomRichEdit.GetSelText + 0001:0006C1F4 TCustomRichEdit.GetSelTextBuf + 0001:0006C4F4 TCustomRichEdit.Print + 0001:0006C940 TCustomRichEdit.ProtectChange + 0001:0006C9B4 TCustomRichEdit.RequestSize + 0001:0006C8F8 TCustomRichEdit.SaveClipboard + 0001:0006C988 TCustomRichEdit.SelectionChange + 0001:0006C13C TCustomRichEdit.SetCaretPos + 0001:0006C338 TCustomRichEdit.SetHideScrollBars + 0001:0006C36C TCustomRichEdit.SetHideSelection + 0001:0006C43C TCustomRichEdit.SetPlainText + 0001:0006C498 TCustomRichEdit.SetRichEditStrings + 0001:0006C3B8 TCustomRichEdit.SetSelLength + 0001:0006C4BC TCustomRichEdit.SetSelStart + 0001:0006BFD8 TCustomRichEdit.WMNCDestroy + 0001:0006C6E8 TCustomRichEdit.WMPaint + 0001:0006C018 TCustomRichEdit.WMRButtonUp + 0001:0006C7AC TCustomRichEdit.WMSetCursor + 0001:0006BFF4 TCustomRichEdit.WMSetFont + 0001:00133DA8 TCustomSeries.Assign + 0001:001350FC TCustomSeries.CalcHorizMargins + 0001:00135164 TCustomSeries.CalcVerticalMargins + 0001:00134050 TCustomSeries.Clicked + 0001:00133D70 TCustomSeries.ClickedPointer + 0001:00133C68 TCustomSeries.Create + 0001:00133CF4 TCustomSeries.Destroy + 0001:001343B8 TCustomSeries.DrawLegendShape + 0001:00133D3C TCustomSeries.DrawMark + 0001:0013506C TCustomSeries.DrawPointer + 0001:00134D84 TCustomSeries.DrawValue + 0001:001344CC TCustomSeries.GetAreaBrushColor + 0001:001350CC TCustomSeries.GetEditorClass + 0001:001351E4 TCustomSeries.GetOriginPos + 0001:0013446C TCustomSeries.LinePrepareCanvas + 0001:0013431C TCustomSeries.SetAreaBrush + 0001:00134300 TCustomSeries.SetAreaColor + 0001:001342B8 TCustomSeries.SetAreaLinesPen + 0001:00134310 TCustomSeries.SetBrushProperty + 0001:001351F0 TCustomSeries.SetDark3D + 0001:00134298 TCustomSeries.SetDrawArea + 0001:001342F0 TCustomSeries.SetInvertedStairs + 0001:0013432C TCustomSeries.SetLineBrush + 0001:001342D0 TCustomSeries.SetLineHeight + 0001:001342C4 TCustomSeries.SetLinePen + 0001:001342A8 TCustomSeries.SetPointer + 0001:001342E0 TCustomSeries.SetStairs + 0001:0009084C TCustomStaticText.AdjustBounds + 0001:00090728 TCustomStaticText.CMDialogChar + 0001:000907E0 TCustomStaticText.CMFontChanged + 0001:00090804 TCustomStaticText.CMTextChanged + 0001:00090A98 TCustomStaticText.CNCtlColorStatic + 0001:000905F8 TCustomStaticText.Create + 0001:00090688 TCustomStaticText.CreateParams + 0001:00090B68 TCustomStaticText.GetTransparent + 0001:00090830 TCustomStaticText.Loaded + 0001:00090954 TCustomStaticText.Notification + 0001:00090994 TCustomStaticText.SetAlignment + 0001:000909C8 TCustomStaticText.SetAutoSize + 0001:00090A00 TCustomStaticText.SetBorderStyle + 0001:00090A34 TCustomStaticText.SetFocusControl + 0001:00090A64 TCustomStaticText.SetShowAccelChar + 0001:00090B10 TCustomStaticText.SetTransparent + 0001:00062034 TCustomStatusBar.ChangeScale + 0001:000616C0 TCustomStatusBar.CMBiDiModeChanged + 0001:00061EEC TCustomStatusBar.CMColorChanged + 0001:00061F10 TCustomStatusBar.CMParentFontChanged + 0001:00061FEC TCustomStatusBar.CMSysColorChange + 0001:00062010 TCustomStatusBar.CMSysFontChanged + 0001:00061CA4 TCustomStatusBar.CMWinIniChange + 0001:00061CDC TCustomStatusBar.CNDrawItem + 0001:00061230 TCustomStatusBar.Create + 0001:00062170 TCustomStatusBar.CreatePanel + 0001:000621C8 TCustomStatusBar.CreatePanels + 0001:0006135C TCustomStatusBar.CreateParams + 0001:000613FC TCustomStatusBar.CreateWnd + 0001:0006130C TCustomStatusBar.Destroy + 0001:0006149C TCustomStatusBar.DoHint + 0001:000615A4 TCustomStatusBar.DoRightToLeftAlignment + 0001:000614D8 TCustomStatusBar.DrawPanel + 0001:00061F4C TCustomStatusBar.ExecuteAction + 0001:0006175C TCustomStatusBar.FlipChildren + 0001:000621EC TCustomStatusBar.GetPanelClass + 0001:00061E68 TCustomStatusBar.IsFontStored + 0001:00062074 TCustomStatusBar.SetBounds + 0001:00061528 TCustomStatusBar.SetPanels + 0001:000620AC TCustomStatusBar.SetParent + 0001:0006154C TCustomStatusBar.SetSimplePanel + 0001:00061684 TCustomStatusBar.SetSimpleText + 0001:00061944 TCustomStatusBar.SetSizeGrip + 0001:00061EA0 TCustomStatusBar.SetUseSystemFont + 0001:00061978 TCustomStatusBar.SyncToSystemFont + 0001:000619B4 TCustomStatusBar.UpdatePanel + 0001:00061B6C TCustomStatusBar.UpdatePanels + 0001:00061610 TCustomStatusBar.UpdateSimpleText + 0001:000620C8 TCustomStatusBar.ValidateSizeGrip + 0001:00062204 TCustomStatusBar.WMEraseBkGnd + 0001:00061DE8 TCustomStatusBar.WMGetTextLength + 0001:00061E0C TCustomStatusBar.WMPaint + 0001:00061E34 TCustomStatusBar.WMSize + 0001:0005F540 TCustomTabControl.AdjustClientRect + 0001:0005E59C TCustomTabControl.CanChange + 0001:0005E5D4 TCustomTabControl.CanShowTab + 0001:0005E5EC TCustomTabControl.Change + 0001:0005F444 TCustomTabControl.CMDialogChar + 0001:0005F358 TCustomTabControl.CMFontChanged + 0001:0005F390 TCustomTabControl.CMSysColorChange + 0001:0005F3C8 TCustomTabControl.CMTabStopChanged + 0001:0005F140 TCustomTabControl.CNDrawItem + 0001:0005F3EC TCustomTabControl.CNNotify + 0001:0005E444 TCustomTabControl.Create + 0001:0005E618 TCustomTabControl.CreateParams + 0001:0005E768 TCustomTabControl.CreateWnd + 0001:0005E534 TCustomTabControl.Destroy + 0001:0005E81C TCustomTabControl.DrawTab + 0001:0005E870 TCustomTabControl.GetDisplayRect + 0001:0005E8B8 TCustomTabControl.GetImageIndex + 0001:0005E8FC TCustomTabControl.GetTabIndex + 0001:0005EA68 TCustomTabControl.ImageListChange + 0001:0005EA90 TCustomTabControl.InternalSetMultiLine + 0001:0005E928 TCustomTabControl.Loaded + 0001:0005E984 TCustomTabControl.Notification + 0001:0005E950 TCustomTabControl.SetHotTrack + 0001:0005E9C4 TCustomTabControl.SetImages + 0001:0005EB38 TCustomTabControl.SetMultiLine + 0001:0005EB60 TCustomTabControl.SetMultiSelect + 0001:0005EB94 TCustomTabControl.SetOwnerDraw + 0001:0005EBC8 TCustomTabControl.SetRaggedRight + 0001:0005EC04 TCustomTabControl.SetScrollOpposite + 0001:0005EC48 TCustomTabControl.SetStyle + 0001:0005ECF0 TCustomTabControl.SetTabHeight + 0001:0005EDB4 TCustomTabControl.SetTabIndex + 0001:0005EDE0 TCustomTabControl.SetTabPosition + 0001:0005EE98 TCustomTabControl.SetTabs + 0001:0005EEBC TCustomTabControl.SetTabWidth + 0001:0005EFA8 TCustomTabControl.TabsChanged + 0001:0005F578 TCustomTabControl.TCMAdjustRect + 0001:0005F02C TCustomTabControl.UpdateTabImages + 0001:0005EFF8 TCustomTabControl.UpdateTabSize + 0001:0005F234 TCustomTabControl.WMDestroy + 0001:0005F2F0 TCustomTabControl.WMNotifyFormat + 0001:0005F328 TCustomTabControl.WMSize + 0001:000C9CE8 TCustomTeeGradient.Assign + 0001:000C9C18 TCustomTeeGradient.Create + 0001:000C9C88 TCustomTeeGradient.SetDirection + 0001:000C9CC8 TCustomTeeGradient.SetEndColor + 0001:000C9CA8 TCustomTeeGradient.SetStartColor + 0001:000C9C68 TCustomTeeGradient.SetVisible + 0001:000C938C TCustomTeePanel.Assign + 0001:000C8E74 TCustomTeePanel.CanClip + 0001:000C8C10 TCustomTeePanel.CanvasChanged + 0001:000C9530 TCustomTeePanel.CheckPenWidth + 0001:000C9018 TCustomTeePanel.CMMouseLeave + 0001:000C94C8 TCustomTeePanel.CopyToClipboardBitmap + 0001:000C8A34 TCustomTeePanel.Create + 0001:000C8C1C TCustomTeePanel.CreateParams + 0001:000C8BBC TCustomTeePanel.Destroy + 0001:000C8C54 TCustomTeePanel.Draw + 0001:000C9560 TCustomTeePanel.DrawPanelBevels + 0001:000C92E0 TCustomTeePanel.DrawZoomRectangle + 0001:000C8E58 TCustomTeePanel.FontCanvas + 0001:000C9234 TCustomTeePanel.GetBufferedDisplay + 0001:000C91D8 TCustomTeePanel.GetMargin + 0001:000C9374 TCustomTeePanel.GetMonochrome + 0001:000C9360 TCustomTeePanel.GetRectangle + 0001:000C9070 TCustomTeePanel.Invalidate + 0001:000C9000 TCustomTeePanel.Loaded + 0001:000C909C TCustomTeePanel.MultiLineTextWidth + 0001:000C8D98 TCustomTeePanel.Paint + 0001:000C924C TCustomTeePanel.ReCalcWidthHeight + 0001:000C8ED0 TCustomTeePanel.Set3DPercent + 0001:000C8FD8 TCustomTeePanel.SetBooleanProperty + 0001:000C8DDC TCustomTeePanel.SetBrushCanvas + 0001:000C9240 TCustomTeePanel.SetBufferedDisplay + 0001:000C8FC4 TCustomTeePanel.SetColorProperty + 0001:000C8F9C TCustomTeePanel.SetDoubleProperty + 0001:000C8FEC TCustomTeePanel.SetIntegerProperty + 0001:000C8F60 TCustomTeePanel.SetLongintProperty + 0001:000C91F8 TCustomTeePanel.SetMargin + 0001:000C9380 TCustomTeePanel.SetMonochrome + 0001:000C8F74 TCustomTeePanel.SetStringProperty + 0001:000C8C44 TCustomTeePanel.SetView3D + 0001:000C8C34 TCustomTeePanel.SetView3DOptions + 0001:000C9438 TCustomTeePanel.TeeCreateBitmap + 0001:000C9054 TCustomTeePanel.WMEraseBkgnd + 0001:000C9044 TCustomTeePanel.WMGetDlgCode + 0001:000C97BC TCustomTeePanelExtended.Assign + 0001:000C96B4 TCustomTeePanelExtended.Create + 0001:000C9748 TCustomTeePanelExtended.Destroy + 0001:000C99A8 TCustomTeePanelExtended.DrawBitmap + 0001:000C9B2C TCustomTeePanelExtended.DrawImage + 0001:000C9B90 TCustomTeePanelExtended.FillPanelRect + 0001:000C9844 TCustomTeePanelExtended.GetPalette + 0001:000C9B40 TCustomTeePanelExtended.PanelPaint + 0001:000C9668 TCustomTeePanelExtended.SetAnimatedZoom + 0001:000C9678 TCustomTeePanelExtended.SetAnimatedZoomSteps + 0001:000C9688 TCustomTeePanelExtended.SetBackImage + 0001:000C9698 TCustomTeePanelExtended.SetBackImageMode + 0001:000C97B0 TCustomTeePanelExtended.SetGradient + 0001:000C9784 TCustomTeePanelExtended.UndoZoom + 0001:000688B8 TCustomTreeView.Added + 0001:000670D0 TCustomTreeView.AlphaSort + 0001:00068814 TCustomTreeView.CanChange + 0001:000689C8 TCustomTreeView.CanCollapse + 0001:00068A08 TCustomTreeView.CanEdit + 0001:00068954 TCustomTreeView.CanExpand + 0001:0006912C TCustomTreeView.CanvasChanged + 0001:00068854 TCustomTreeView.Change + 0001:00069324 TCustomTreeView.ClearSelection + 0001:00066FF8 TCustomTreeView.CMColorChanged + 0001:00067030 TCustomTreeView.CMCtl3DChanged + 0001:00068698 TCustomTreeView.CMDrag + 0001:00067060 TCustomTreeView.CMFontChanged + 0001:00067098 TCustomTreeView.CMSysColorChange + 0001:0006798C TCustomTreeView.CNNotify + 0001:00068994 TCustomTreeView.Collapse + 0001:00069370 TCustomTreeView.ControlSelectNode + 0001:000693F4 TCustomTreeView.ControlShiftSelectNode + 0001:0006662C TCustomTreeView.Create + 0001:00068B0C TCustomTreeView.CreateNode + 0001:00068B60 TCustomTreeView.CreateNodes + 0001:00066940 TCustomTreeView.CreateParams + 0001:00066A9C TCustomTreeView.CreateWnd + 0001:00069224 TCustomTreeView.CustomDraw + 0001:00069298 TCustomTreeView.CustomDrawItem + 0001:000670F8 TCustomTreeView.CustomSort + 0001:000688EC TCustomTreeView.Delete + 0001:00069F58 TCustomTreeView.Deselect + 0001:0006685C TCustomTreeView.Destroy + 0001:00066CF4 TCustomTreeView.DestroyWnd + 0001:00068740 TCustomTreeView.DoDragOver + 0001:00068664 TCustomTreeView.DoEndDrag + 0001:00069428 TCustomTreeView.DoEnter + 0001:00069444 TCustomTreeView.DoExit + 0001:000685AC TCustomTreeView.DoStartDrag + 0001:00068A48 TCustomTreeView.Edit + 0001:00066EDC TCustomTreeView.EditWndProc + 0001:00068920 TCustomTreeView.Expand + 0001:0006A044 TCustomTreeView.FindNextToSelect + 0001:00069460 TCustomTreeView.FinishSelection + 0001:000676A4 TCustomTreeView.FullCollapse + 0001:00067664 TCustomTreeView.FullExpand + 0001:00067884 TCustomTreeView.GetChangeDelay + 0001:000684B8 TCustomTreeView.GetDragImages + 0001:000678A4 TCustomTreeView.GetDropTarget + 0001:00067514 TCustomTreeView.GetHitTestInfoAt + 0001:000687AC TCustomTreeView.GetImageIndex + 0001:00067644 TCustomTreeView.GetIndent + 0001:000674C0 TCustomTreeView.GetNodeAt + 0001:0006793C TCustomTreeView.GetNodeFromItem + 0001:000677C0 TCustomTreeView.GetSelected + 0001:000687E0 TCustomTreeView.GetSelectedIndex + 0001:00069688 TCustomTreeView.GetSelection + 0001:00069668 TCustomTreeView.GetSelectionCount + 0001:0006A0DC TCustomTreeView.GetSelections + 0001:00067708 TCustomTreeView.GetTopItem + 0001:00068BB8 TCustomTreeView.ImageListChange + 0001:000696B0 TCustomTreeView.InvalidateSelectionsRects + 0001:00069148 TCustomTreeView.IsCustomDrawn + 0001:000676E4 TCustomTreeView.Loaded + 0001:0006970C TCustomTreeView.MouseDown + 0001:00069788 TCustomTreeView.NodeDeselect + 0001:000697BC TCustomTreeView.NodeSelect + 0001:00068C30 TCustomTreeView.Notification + 0001:00067784 TCustomTreeView.OnChangeTimer + 0001:00069DA0 TCustomTreeView.Select + 0001:000697FC TCustomTreeView.Select + 0001:00069D08 TCustomTreeView.Select + 0001:00069828 TCustomTreeView.SelectNode + 0001:000671BC TCustomTreeView.SetAutoExpand + 0001:00067314 TCustomTreeView.SetBorderStyle + 0001:00067384 TCustomTreeView.SetButtonStyle + 0001:00067860 TCustomTreeView.SetChangeDelay + 0001:00067348 TCustomTreeView.SetDragMode + 0001:000678FC TCustomTreeView.SetDropTarget + 0001:00067478 TCustomTreeView.SetHideSelection + 0001:000671F8 TCustomTreeView.SetHotTrack + 0001:00068B84 TCustomTreeView.SetImageList + 0001:00068C88 TCustomTreeView.SetImages + 0001:00067614 TCustomTreeView.SetIndent + 0001:000673C0 TCustomTreeView.SetLineStyle + 0001:000698C4 TCustomTreeView.SetMultiSelect + 0001:00069910 TCustomTreeView.SetMultiSelectStyle + 0001:00067438 TCustomTreeView.SetReadOnly + 0001:000673FC TCustomTreeView.SetRootStyle + 0001:00067234 TCustomTreeView.SetRowSelect + 0001:0006782C TCustomTreeView.SetSelected + 0001:000672B0 TCustomTreeView.SetSortType + 0001:00068D24 TCustomTreeView.SetStateImages + 0001:00067270 TCustomTreeView.SetToolTips + 0001:0006774C TCustomTreeView.SetTopItem + 0001:000675F0 TCustomTreeView.SetTreeNodes + 0001:00069944 TCustomTreeView.ShiftSelectNode + 0001:00069B78 TCustomTreeView.Subselect + 0001:00069C2C TCustomTreeView.ValidateSelection + 0001:00068DC8 TCustomTreeView.WMContextMenu + 0001:00068E98 TCustomTreeView.WMLButtonDown + 0001:00068FAC TCustomTreeView.WMNotify + 0001:000684F0 TCustomTreeView.WndProc + 0001:0006CEA0 TCustomUpDown.CanChange + 0001:0006D008 TCustomUpDown.Click + 0001:0006CF80 TCustomUpDown.CMAllChildrenFlipped + 0001:0006CFB4 TCustomUpDown.CNNotify + 0001:0006CA54 TCustomUpDown.Create + 0001:0006CB58 TCustomUpDown.CreateParams + 0001:0006CC24 TCustomUpDown.CreateWnd + 0001:0006CE58 TCustomUpDown.DoCanChange + 0001:0006D3C0 TCustomUpDown.GetPosition + 0001:0006D35C TCustomUpDown.Notification + 0001:0006D714 TCustomUpDown.SetAlignButton + 0001:0006D76C TCustomUpDown.SetArrowKeys + 0001:0006D080 TCustomUpDown.SetAssociate + 0001:0006D4F0 TCustomUpDown.SetIncrement + 0001:0006D484 TCustomUpDown.SetMax + 0001:0006D418 TCustomUpDown.SetMin + 0001:0006D674 TCustomUpDown.SetOrientation + 0001:0006D560 TCustomUpDown.SetPosition + 0001:0006D7C4 TCustomUpDown.SetThousands + 0001:0006D81C TCustomUpDown.SetWrap + 0001:0006D2DC TCustomUpDown.UndoAutoResizing + 0001:0006CDDC TCustomUpDown.WMHScroll + 0001:0006CDA0 TCustomUpDown.WMSize + 0001:0006CD24 TCustomUpDown.WMVScroll + 0001:00018E8C TCustomVariantType.BinaryOp + 0001:00018E98 TCustomVariantType.Cast + 0001:00018ED0 TCustomVariantType.CastTo + 0001:00018F5C TCustomVariantType.CastToOle + 0001:00018F18 TCustomVariantType.Compare + 0001:00018F24 TCustomVariantType.CompareOp + 0001:00018F98 TCustomVariantType.Create + 0001:00018FDC TCustomVariantType.Create + 0001:00019264 TCustomVariantType.Destroy + 0001:0001937C TCustomVariantType.DispInvoke + 0001:000192F0 TCustomVariantType.IsClear + 0001:000192F4 TCustomVariantType.LeftPromotion + 0001:00019308 TCustomVariantType.OlePromotion + 0001:000193B8 TCustomVariantType.QueryInterface + 0001:00019310 TCustomVariantType.RaiseCastError + 0001:00019320 TCustomVariantType.RaiseDispError + 0001:00019318 TCustomVariantType.RaiseInvalidOp + 0001:00019328 TCustomVariantType.RightPromotion + 0001:0001933C TCustomVariantType.UnaryOp + 0001:00019360 TCustomVariantType.VarDataCastTo + 0001:0001934C TCustomVariantType.VarDataClear + 0001:00019354 TCustomVariantType.VarDataCopyNoInd + 0001:00019394 TCustomVariantType.VarDataFromOleStr + 0001:00019388 TCustomVariantType.VarDataFromStr + 0001:00019344 TCustomVariantType.VarDataInit + 0001:00019374 TCustomVariantType.VarDataIsByRef + 0001:000193E0 TCustomVariantType.VarDataIsStr + 0001:000193EC TCustomVariantType.VarDataToStr + 0001:000193A0 TCustomVariantType._AddRef + 0001:000193AC TCustomVariantType._Release + 0001:000C3EAC TDarkGrayPen.Create + 0001:0002BD98 TDataModule.AfterConstruction + 0001:0002BE1C TDataModule.BeforeDestruction + 0001:0002BC54 TDataModule.Create + 0001:0002BDB4 TDataModule.CreateNew + 0001:0002C08C TDataModule.DefineProperties + 0001:0002BE54 TDataModule.Destroy + 0001:0002BEF0 TDataModule.DoCreate + 0001:0002BF50 TDataModule.DoDestroy + 0001:0002C1A8 TDataModule.GetChildren + 0001:0002C21C TDataModule.HandleCreateException + 0001:0002C2D8 TDataModule.ReadHeight + 0001:0002C298 TDataModule.ReadHorizontalOffset + 0001:0002C250 TDataModule.ReadState + 0001:0002C2B8 TDataModule.ReadVerticalOffset + 0001:0002C278 TDataModule.ReadWidth + 0001:0002C358 TDataModule.WriteHeight + 0001:0002C318 TDataModule.WriteHorizontalOffset + 0001:0002C338 TDataModule.WriteVerticalOffset + 0001:0002C2F8 TDataModule.WriteWidth + 0001:0013B088 TDCSummTitles.Create + 0001:0013B0CC TDCSummTitles.Destroy + 0001:001AEB8C TDefaultDBScreenApplication.GetCursor + 0001:001AEBA8 TDefaultDBScreenApplication.GetTitle + 0001:001AEBC8 TDefaultDBScreenApplication.ProcessMessages + 0001:001AEBD4 TDefaultDBScreenApplication.SetCursor + 0001:001AEBF0 TDefaultDBScreenApplication.SetTitle + 0001:000D8DE0 TDivideTeeFunction.CalculateValue + 0001:002CE0CC TdmodShared.AddDrawerTree + 0001:002CD604 TdmodShared.AddTemplateNode + 0001:002CE36C TdmodShared.BoilerplateOK + 0001:002CE06C TdmodShared.dmodSharedCreate + 0001:002CE0B0 TdmodShared.dmodSharedDestroy + 0001:002CE9DC TdmodShared.EncounterLocationChanged + 0001:002CD71C TdmodShared.ExpandNode + 0001:002CEC24 TdmodShared.ExpandTree + 0001:002CED14 TdmodShared.FindRichEditText + 0001:002CD41C TdmodShared.ImgIdx + 0001:002CEBF4 TdmodShared.InDialog + 0001:002CE178 TdmodShared.LoadTIUObjects + 0001:002CE2A4 TdmodShared.NeedsCollapsing + 0001:002CE138 TdmodShared.Reload + 0001:002CE110 TdmodShared.RemoveDrawerTree + 0001:002CEF4C TdmodShared.ReplaceRichEditText + 0001:002CDD64 TdmodShared.Resync + 0001:002CEA88 TdmodShared.SelectNode + 0001:002CE7EC TdmodShared.TemplateOK + 0001:000A3F8C TDockTree.AdjustDockRect + 0001:000A3FBC TDockTree.BeginUpdate + 0001:000A6438 TDockTree.ControlVisibilityChanged + 0001:000A3DA4 TDockTree.Create + 0001:000A3F18 TDockTree.Destroy + 0001:000A5F6C TDockTree.DrawSizeSplitter + 0001:000A3FCC TDockTree.EndUpdate + 0001:000A4060 TDockTree.FindControlZone + 0001:000A40E8 TDockTree.ForEachAt + 0001:000A4114 TDockTree.GetControlBounds + 0001:000A6138 TDockTree.GetNextLimit + 0001:000A41A0 TDockTree.HitTest + 0001:000A41E0 TDockTree.InsertControl + 0001:000A448C TDockTree.InsertNewParent + 0001:000A4718 TDockTree.InsertSibling + 0001:000A4B40 TDockTree.InternalHitTest + 0001:000A4C24 TDockTree.LoadFromStream + 0001:000A4F70 TDockTree.PaintDockFrame + 0001:000A5084 TDockTree.PaintSite + 0001:000A5214 TDockTree.PositionDockRect + 0001:000A53FC TDockTree.PruneZone + 0001:000A5490 TDockTree.RemoveControl + 0001:000A54EC TDockTree.RemoveZone + 0001:000A5880 TDockTree.ResetBounds + 0001:000A5B34 TDockTree.SaveToStream + 0001:000A5998 TDockTree.ScaleZone + 0001:000A5D38 TDockTree.SetNewBounds + 0001:000A5D70 TDockTree.SetReplacingControl + 0001:000A5D94 TDockTree.ShiftZone + 0001:000A5DE0 TDockTree.SplitterMouseDown + 0001:000A5E5C TDockTree.SplitterMouseUp + 0001:000A5F10 TDockTree.UpdateAll + 0001:000A5F48 TDockTree.UpdateZone + 0001:000A65E4 TDockTree.WindowProc + 0001:000A3488 TDockZone.Create + 0001:000A3C48 TDockZone.ExpandZoneLimit + 0001:000A3D84 TDockZone.FirstVisibleChild + 0001:000A34CC TDockZone.GetChildCount + 0001:000A3904 TDockZone.GetControlName + 0001:000A372C TDockZone.GetHeightWidth + 0001:000A359C TDockZone.GetLimitBegin + 0001:000A3614 TDockZone.GetLimitSize + 0001:000A368C TDockZone.GetTopLeft + 0001:000A3540 TDockZone.GetVisible + 0001:000A3504 TDockZone.GetVisibleChildCount + 0001:000A3BBC TDockZone.GetZoneLimit + 0001:000A3D2C TDockZone.NextVisible + 0001:000A3D4C TDockZone.PrevVisible + 0001:000A3834 TDockZone.ResetChildren + 0001:000A3CA8 TDockZone.ResetZoneLimits + 0001:000A395C TDockZone.SetControlName + 0001:000A3BFC TDockZone.SetZoneLimit + 0001:000A3A2C TDockZone.Update + 0001:000C3E54 TDottedGrayPen.Create + 0001:00094EDC TDragControlObject.GetDragCursor + 0001:00094F14 TDragControlObject.GetDragImages + 0001:00094F34 TDragControlObject.HideDragImage + 0001:00094F60 TDragControlObject.ShowDragImage + 0001:00094F8C TDragControlObjectEx.BeforeDestruction + 0001:00095138 TDragDockObject.AdjustDockRect + 0001:00095048 TDragDockObject.Assign + 0001:00094F98 TDragDockObject.Create + 0001:0009500C TDragDockObject.Destroy + 0001:000951E8 TDragDockObject.DrawDragDockImage + 0001:000950D0 TDragDockObject.EndDrag + 0001:00095208 TDragDockObject.EraseDragDockImage + 0001:00095228 TDragDockObject.GetDragCursor + 0001:00095248 TDragDockObject.GetFrameWidth + 0001:00095260 TDragDockObjectEx.BeforeDestruction + 0001:000A3060 TDragImageList.BeginDrag + 0001:000A2EA8 TDragImageList.CombineDragCursor + 0001:000A30D8 TDragImageList.DragLock + 0001:000A3184 TDragImageList.DragMove + 0001:000A3150 TDragImageList.DragUnlock + 0001:000A3218 TDragImageList.EndDrag + 0001:000A3024 TDragImageList.GetHotSpot + 0001:000A31F8 TDragImageList.HideDragImage + 0001:000A2E88 TDragImageList.Initialize + 0001:000A2FE8 TDragImageList.SetDragCursor + 0001:000A2F7C TDragImageList.SetDragImage + 0001:000A31D8 TDragImageList.ShowDragImage + 0001:00094DC8 TDragObject.AfterConstruction + 0001:00094AC8 TDragObject.Assign + 0001:00094DAC TDragObject.BeforeDestruction + 0001:00094B38 TDragObject.Capture + 0001:00094B64 TDragObject.Finished + 0001:00094CF8 TDragObject.GetDragCursor + 0001:00094CE0 TDragObject.GetDragImages + 0001:00094B7C TDragObject.GetName + 0001:00094D28 TDragObject.HideDragImage + 0001:00094D34 TDragObject.Instance + 0001:00094D58 TDragObject.MainWndProc + 0001:00094BB0 TDragObject.ReleaseCapture + 0001:00094D4C TDragObject.ShowDragImage + 0001:00094BD0 TDragObject.WndProc + 0001:000C7D38 TeCanvas + 0001:00144D2C TECSReport.Create + 0002:000016F4 TeeAxisClickGap + 0001:000C89BC TeeCheckAngle + 0002:000016F0 TeeCheckMarkArrowColor + 0002:000015EC TeeClipWhenMetafiling + 0002:000015E8 TeeClipWhenPrinting + 0001:000C7FD0 TeeConst + 0001:000CA494 TeeDateTimeIncrement + 0002:000016F8 TeeDefaultCapacity + 0002:00001594 TeeDefaultConePercent + 0002:000016EC TeeDrawAxisBeforeSeries + 0002:000015F0 TeeEraseBack + 0001:000D919C TeeFunci + 0001:000DEC00 TeeGalleryExitProc + 0001:000CA834 TeeGetClassNameBitmap + 0002:000015A0 TeeGradientPrecision + 0002:000015E4 TeeLineSeparator + 0001:000CA5C8 TeeNextStep + 0001:000D69B8 TeEngine + 0001:000CA2C4 TeeNumTextLines + 0001:000CA8A8 TeeProcs + 0001:000CA364 TeeRoundDate + 0002:00005C6B TeeScrollKeyShift + 0002:00005C69 TeeScrollMouseButton + 0002:00005C6C TeeSeriesTypes + 0001:000CA294 TeeSplitInLines + 0002:00001718 TeeTitleFootDistance + 0002:00005C6A TeeZoomKeyShift + 0002:00005C68 TeeZoomMouseButton + 0002:000073DC tempCkBx + 0002:00008F84 tempDxList + 0001:0035A29C tempDxNodeExists + 0002:000090CC TempEncounterLoc + 0002:000090D0 TempEncounterLocName + 0002:00002FE0 TemplateAccessLevelChecked + 0002:00008C20 TemplateAccessLevelValue + 0002:00003010 TemplateActiveCode + 0001:002D5558 TemplateChildrenCompare + 0001:0013F2A0 TemplateDateCode2DateType + 0002:0000222C TemplateDateTypeDesc + 0002:00003014 TemplateExportTag + 0001:0013F22C TemplateFieldCode2Field + 0002:00002290 TemplateFieldDateCodes + 0002:00003094 TemplateFieldExportTag + 0001:0013E698 TemplateFieldNameProblem + 0002:000021BC TemplateFieldTypeCodes + 0002:000021D4 TemplateFieldTypeDesc + 0002:00002EAC TemplateImageIdx + 0002:00002FC8 Templates + 0002:00002FB0 TemplateTypeCodes + 0002:000080B4 tempList + 0002:00008588 tempOrderList + 0002:000080D4 tempOrderList + 0001:002885D0 TempPath + 0002:00002FE8 TempSL + 0002:00008E4C TempSurrogate + 0002:00000068 Ten + 0001:00373054 TEncounter.Clear + 0001:00372FB0 TEncounter.Create + 0001:00373018 TEncounter.Destroy + 0001:003730F4 TEncounter.GetLocationName + 0001:003730C4 TEncounter.GetLocationText + 0001:00373124 TEncounter.GetProviderName + 0001:00373154 TEncounter.GetVisitCategory + 0001:00373178 TEncounter.GetVisitStr + 0001:00373220 TEncounter.NeedVisit + 0001:00373258 TEncounter.SetDateTime + 0001:00373288 TEncounter.SetInpatient + 0001:003732B4 TEncounter.SetLocation + 0001:003732F0 TEncounter.SetProvider + 0001:00373328 TEncounter.SetStandAlone + 0001:00373354 TEncounter.SetVisitCategory + 0001:00373380 TEncounter.UpdateText + 0001:00372B10 TerminateOtherAppNotification + 0002:00000318 TerminateProcList + 0001:00006358 TerminateThread + 0002:0000504E Test8086 + 0001:0013BABC TestBoilerplate + 0001:000E1FA8 TestChar + 0001:0030AF74 TestGroups + 0001:0030C634 TestInfo + 0001:00108CC8 TEventDispatch.Create + 0001:00108DE8 TEventDispatch.GetIDsOfNames + 0001:00108DCC TEventDispatch.GetTypeInfo + 0001:00108DB4 TEventDispatch.GetTypeInfoCount + 0001:00108DFC TEventDispatch.Invoke + 0001:00108D0C TEventDispatch.QueryInterface + 0001:00108D7C TEventDispatch._AddRef + 0001:00108D98 TEventDispatch._Release + 0001:00138310 TExplodedSlices.GetValue + 0001:0013833C TExplodedSlices.SetValue + 0001:0018BA40 Text2XML + 0002:00001FEC TextConversionFormat + 0002:00000DA0 TextConversionFormat + 0001:0031E498 TextExit + 0001:0037C130 TextForOrder + 0001:002AB25C TextFound + 0001:00104280 TextHeightByFont + 0001:000066D8 TextOut + 0001:0000A7D4 TextToFloat + 0001:000AC22C TextToShortCut + 0001:00104214 TextWidthByFont + 0002:00008FE0 TFactors + 0001:001399D8 TFastLineSeries.Assign + 0001:00139A1C TFastLineSeries.Clicked + 0001:00139678 TFastLineSeries.Create + 0001:001396D0 TFastLineSeries.Destroy + 0001:00139844 TFastLineSeries.DrawAllValues + 0001:001399AC TFastLineSeries.DrawLegendShape + 0001:00139B08 TFastLineSeries.DrawMark + 0001:00139858 TFastLineSeries.DrawValue + 0001:001397E0 TFastLineSeries.GetEditorClass + 0001:00139728 TFastLineSeries.NotifyNewValue + 0001:00139814 TFastLineSeries.PrepareCanvas + 0001:00139700 TFastLineSeries.SetLinePen + 0001:0013998C TFastLineSeries.SetSeriesColor + 0001:00142AA4 TFieldPanel.Destroy + 0001:00142AE4 TFieldPanel.Paint + 0001:00142BB0 TFieldPanel.SetTheFocus + 0001:00032448 TFileFormatsList.Add + 0001:000322A4 TFileFormatsList.Create + 0001:000323E0 TFileFormatsList.Destroy + 0001:000324EC TFileFormatsList.FindClassName + 0001:000240E8 TFiler.Create + 0001:00024144 TFiler.Destroy + 0001:00024184 TFiler.SetRoot + 0001:00023958 TFileStream.Create + 0001:000239A8 TFileStream.Create + 0001:00023B08 TFileStream.Destroy + 0001:0004213C TFindDialog.CloseDialog + 0001:00041FE0 TFindDialog.Create + 0001:000420C8 TFindDialog.Destroy + 0001:000421B0 TFindDialog.Execute + 0001:000422DC TFindDialog.Find + 0001:00042300 TFindDialog.GetFindText + 0001:00042328 TFindDialog.GetLeft + 0001:0004234C TFindDialog.GetPosition + 0001:0004239C TFindDialog.GetReplaceText + 0001:000423C4 TFindDialog.GetTop + 0001:000423E8 TFindDialog.MessageHook + 0001:00042518 TFindDialog.Replace + 0001:0004253C TFindDialog.SetFindText + 0001:00042568 TFindDialog.SetPosition + 0001:000425D4 TFindDialog.SetReplaceText + 0001:001AAED0 TFMTBcdData.Compare + 0001:001AB1C4 TFMTBcdData.Create + 0001:001AB16C TFMTBcdData.Create + 0001:001AB294 TFMTBcdData.Create + 0001:001AB348 TFMTBcdData.Create + 0001:001AADE0 TFMTBcdData.DoAdd + 0001:001AADA8 TFMTBcdData.DoAdd + 0001:001AAE94 TFMTBcdData.DoDivide + 0001:001AAE58 TFMTBcdData.DoMultiply + 0001:001AAE38 TFMTBcdData.DoSubtract + 0001:001AAE00 TFMTBcdData.DoSubtract + 0001:001AAFF0 TFMTBcdData.GetAsCurrency + 0001:001AAF18 TFMTBcdData.GetAsDouble + 0001:001AAF74 TFMTBcdData.GetAsInteger + 0001:001AAFD0 TFMTBcdData.GetAsSmallInt + 0001:001AAEF8 TFMTBcdData.GetAsString + 0001:001AB144 TFMTBcdData.SetAsCurrency + 0001:001AB044 TFMTBcdData.SetAsDouble + 0001:001AB0B8 TFMTBcdData.SetAsInteger + 0001:001AB124 TFMTBcdData.SetAsSmallInt + 0001:001AB010 TFMTBcdData.SetAsString + 0001:001AB690 TFMTBcdVariantType.BinaryOp + 0001:001AB3B8 TFMTBcdVariantType.Cast + 0001:001AB4F0 TFMTBcdVariantType.CastTo + 0001:001AB394 TFMTBcdVariantType.Clear + 0001:001AB728 TFMTBcdVariantType.Compare + 0001:001AB630 TFMTBcdVariantType.Copy + 0001:001AB70C TFMTBcdVariantType.GetInstance + 0001:0002E974 TFont.Assign + 0001:0002E94C TFont.Changed + 0001:0002E8AC TFont.Create + 0001:0002E918 TFont.Destroy + 0001:0002EE98 TFont.GetCharset + 0001:0002EA4C TFont.GetData + 0001:0002EB04 TFont.GetHandle + 0001:0002ECDC TFont.GetHeight + 0001:0002ED24 TFont.GetName + 0001:0002EE50 TFont.GetPitch + 0001:0002EDAC TFont.GetSize + 0001:0002EE08 TFont.GetStyle + 0001:0002EEB4 TFont.SetCharset + 0001:0002EAD0 TFont.SetColor + 0001:0002EA7C TFont.SetData + 0001:0002ECB4 TFont.SetHandle + 0001:0002ECF8 TFont.SetHeight + 0001:0002ED48 TFont.SetName + 0001:0002EE6C TFont.SetPitch + 0001:0002EDD8 TFont.SetSize + 0001:0002EE24 TFont.SetStyle + 0001:001073FC TFontAdapter.Changed + 0001:001071DC TFontAdapter.Create + 0001:0010759C TFontAdapter.GetOleFont + 0001:0010771C TFontAdapter.SetOleFont + 0001:0010722C TFontAdapter.Update + 0001:000413EC TFontDialog.Apply + 0001:000412EC TFontDialog.Create + 0001:00041358 TFontDialog.Destroy + 0001:00041418 TFontDialog.DoApply + 0001:000414D4 TFontDialog.Execute + 0001:000416C8 TFontDialog.SetFont + 0001:000416E8 TFontDialog.UpdateFromLogFont + 0001:00041394 TFontDialog.WndProc + 0001:00159448 TFormMonitor.Activate + 0001:00159468 TFormMonitor.ActiveFormChange + 0001:001594A4 TFormMonitor.FormValid + 0001:00159C14 TFormMonitor.GetActiveFormHandle + 0001:001594D8 TFormMonitor.HandleValid + 0001:00159B1C TFormMonitor.IsNormalized + 0001:00159B30 TFormMonitor.IsTopMost + 0001:00159540 TFormMonitor.ManageForms + 0001:00159D80 TFormMonitor.ModalDelphiForm + 0001:00159A84 TFormMonitor.MoveOffTop + 0001:00159ABC TFormMonitor.MoveOnTop + 0001:00159AF4 TFormMonitor.Normalize + 0001:00159B60 TFormMonitor.NormalizeReset + 0001:00159484 TFormMonitor.Restore + 0001:00159898 TFormMonitor.Start + 0001:00159D14 TFormMonitor.StartZOrdering + 0001:001599E0 TFormMonitor.Stop + 0001:00159D40 TFormMonitor.SystemRunning + 0001:00159DD4 TFormMonitor.Timer + 0001:001BEC18 TfraCoPayDesc.Create + 0001:001EEB7C TfraEvntDelayList.CheckMatch + 0001:001EE6EC TfraEvntDelayList.Create + 0001:001EE750 TfraEvntDelayList.DisplayEvntDelayList + 0001:001EED30 TfraEvntDelayList.edtSearchChange + 0001:001EF688 TfraEvntDelayList.edtSearchKeyDown + 0001:001EEEE4 TfraEvntDelayList.mlstEventsChange + 0001:001EF4D4 TfraEvntDelayList.mlstEventsClick + 0001:001EF538 TfraEvntDelayList.mlstEventsKeyUp + 0001:001EEB4C TfraEvntDelayList.ResetProperty + 0001:0013CF30 TfraTemplateFieldButton.ButtonKeyDown + 0001:0013CF54 TfraTemplateFieldButton.ButtonKeyUp + 0001:0013CEB8 TfraTemplateFieldButton.Create + 0001:0013CFEC TfraTemplateFieldButton.Destroy + 0001:0013CF74 TfraTemplateFieldButton.GetButtonText + 0001:0013CF98 TfraTemplateFieldButton.pbFocusPaint + 0001:0013CEA0 TfraTemplateFieldButton.pnlBtnEnter + 0001:0013CEAC TfraTemplateFieldButton.pnlBtnExit + 0001:0013CD48 TfraTemplateFieldButton.pnlBtnMouseDown + 0001:0013CE7C TfraTemplateFieldButton.pnlBtnMouseUp + 0001:0013CF8C TfraTemplateFieldButton.SetButtonText + 0001:0012DC94 TfraVisitRelated.chkClick + 0001:0012E074 TfraVisitRelated.Create + 0001:0012E0CC TfraVisitRelated.GetCheckState + 0001:0012E1E8 TfraVisitRelated.GetRelated + 0001:0012E118 TfraVisitRelated.GetRelated + 0001:0012E2A0 TfraVisitRelated.InitAllow + 0001:0012E36C TfraVisitRelated.InitRelated + 0001:0012E418 TfraVisitRelated.InitRelated + 0001:0012E4C4 TfraVisitRelated.SetCheckEnable + 0001:0012E4EC TfraVisitRelated.SetCheckState + 0001:001BF624 Tfrm513Print.cboDeviceChange + 0001:001BF5FC Tfrm513Print.cboDeviceNeedData + 0001:001BFAA4 Tfrm513Print.cmdCancelClick + 0001:001BF700 Tfrm513Print.cmdOKClick + 0001:001BF4A0 Tfrm513Print.DisplaySelectDevice + 0001:001BF464 Tfrm513Print.FormCreate + 0001:001BFAAC Tfrm513Print.FormDestroy + 0001:001BF6F0 Tfrm513Print.radChartCopyClick + 0001:001BF6F8 Tfrm513Print.radWorkCopyClick + 0001:0031A174 TfrmAbout.FormCreate + 0001:001C806C TfrmAddlSigners.cboCosignerChange + 0001:001C8570 TfrmAddlSigners.cboCosignerExit + 0001:001C8500 TfrmAddlSigners.cboCosignerNeedData + 0001:001C85C8 TfrmAddlSigners.cboSrcListClick + 0001:001C830C TfrmAddlSigners.cboSrcListKeyDown + 0001:001C7CE0 TfrmAddlSigners.cboSrcListMouseClick + 0001:001C7B60 TfrmAddlSigners.cmdCancelClick + 0001:001C7B68 TfrmAddlSigners.cmdOKClick + 0001:001C7F38 TfrmAddlSigners.cmdRemoveClick + 0001:001C8320 TfrmAddlSigners.CosignerOK + 0001:001C82EC TfrmAddlSigners.DstListClick + 0001:001C8280 TfrmAddlSigners.FormCreate + 0001:001C82D0 TfrmAddlSigners.FormDestroy + 0001:001C7B3C TfrmAddlSigners.NewPersonNeedData + 0001:00305E1C TfrmAlertForward.cboSrcListKeyDown + 0001:00305E30 TfrmAlertForward.cboSrcListMouseClick + 0001:00305C60 TfrmAlertForward.cboSrcListNeedData + 0001:00305C90 TfrmAlertForward.cmdCancelClick + 0001:00305C98 TfrmAlertForward.cmdOKClick + 0001:00305DE4 TfrmAlertForward.DstListClick + 0001:00305EEC TfrmAlertForward.DstListKeyDown + 0001:00305C50 TfrmAlertForward.FormCreate + 0001:001D7E44 TfrmAlertOrders.cboAlertRecipientNeedData + 0001:001D7E6C TfrmAlertOrders.cboOnExit + 0001:001D7E3C TfrmAlertOrders.cmdCancelClick + 0001:001D7E18 TfrmAlertOrders.cmdOKClick + 0001:001D7DE4 TfrmAlertOrders.FormCreate + 0001:00246180 TfrmAllgyBox.cmdAddClick + 0001:002461BC TfrmAllgyBox.cmdEditClick + 0001:002461F0 TfrmAllgyBox.cmdInErrorClick + 0001:0024622C TfrmAllgyBox.RefreshText + 0001:001BC4B8 TfrmAllgyFind.BuildAgentTree + 0001:001BC410 TfrmAllgyFind.ckNoKnownAllergiesClick + 0001:001BC3F8 TfrmAllgyFind.cmdCancelClick + 0001:001BBB74 TfrmAllgyFind.cmdOKClick + 0001:001BB558 TfrmAllgyFind.cmdSearchClick + 0001:001BB50C TfrmAllgyFind.FormCreate + 0001:001BC6E4 TfrmAllgyFind.tvAgentDblClick + 0001:001BB52C TfrmAllgyFind.txtSearchChange + 0001:002443D0 TfrmARTAllergy.btnAgentClick + 0001:00244AE0 TfrmARTAllergy.btnCurrentClick + 0001:00244CF0 TfrmARTAllergy.btnDateTimeClick + 0001:00244B80 TfrmARTAllergy.btnRemoveClick + 0001:00245818 TfrmARTAllergy.btnSevHelpClick + 0001:00243958 TfrmARTAllergy.cboOriginatorNeedData + 0001:002444C8 TfrmARTAllergy.cboSymptomsClick + 0001:00245334 TfrmARTAllergy.cboSymptomsKeyDown + 0001:00244F68 TfrmARTAllergy.cboSymptomsMouseClick + 0001:00243980 TfrmARTAllergy.cboSymptomsNeedData + 0001:00245404 TfrmARTAllergy.cboVerifierNeedData + 0001:00244690 TfrmARTAllergy.ckNoKnownAllergiesClick + 0001:00245348 TfrmARTAllergy.cmdCancelClick + 0001:00244804 TfrmARTAllergy.cmdOKClick + 0001:00245358 TfrmARTAllergy.cmdPrevCmtsClick + 0001:0024538C TfrmARTAllergy.cmdPrevObsClick + 0001:00243A88 TfrmARTAllergy.ControlChange + 0001:002446D0 TfrmARTAllergy.EnableDisableControls + 0001:002457E4 TfrmARTAllergy.FormClose + 0001:00245810 TfrmARTAllergy.FormCloseQuery + 0001:0024252C TfrmARTAllergy.FormCreate + 0001:002445DC TfrmARTAllergy.FormDestroy + 0001:002439A8 TfrmARTAllergy.grpObsHistClick + 0001:00242714 TfrmARTAllergy.InitDialog + 0001:00244CDC TfrmARTAllergy.lstAllergyClick + 0001:0024422C TfrmARTAllergy.lstAllergySelect + 0001:002453C4 TfrmARTAllergy.lstSelectedSymptomsChange + 0001:0024434C TfrmARTAllergy.memCommentsExit + 0001:00242D40 TfrmARTAllergy.SetupDialog + 0001:002455EC TfrmARTAllergy.SetUpEnteredInErrorFields + 0001:0024542C TfrmARTAllergy.SetupVerifyFields + 0001:002430D8 TfrmARTAllergy.Validate + 0001:002449F4 TfrmARTAllergy.ValidSave + 0001:001BB100 TfrmARTFreeTextMsg.cmdContinueClick + 0001:00123300 TfrmAutoSz.FormDestroy + 0001:001231C8 TfrmAutoSz.FormResize + 0001:001230B0 TfrmAutoSz.Loaded + 0001:003564B8 TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList1Click + 0001:00356644 TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click + 0001:00353B50 TfrmBALocalDiagnoses.AddPCEToDiagnosis + 0001:00353C74 TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList + 0001:003537F4 TfrmBALocalDiagnoses.AddProbsToDiagnosis + 0001:00354E18 TfrmBALocalDiagnoses.AddToPersonalDxList + 0001:0035506C TfrmBALocalDiagnoses.AddToProblemList + 0001:003569D8 TfrmBALocalDiagnoses.AddToWhatList + 0001:00353410 TfrmBALocalDiagnoses.AssocDxToOrders + 0001:003541FC TfrmBALocalDiagnoses.btnOtherClick + 0001:003544E0 TfrmBALocalDiagnoses.btnPrimaryClick + 0001:003545D8 TfrmBALocalDiagnoses.btnRemoveClick + 0001:00354630 TfrmBALocalDiagnoses.btnSelectAllClick + 0001:00353EDC TfrmBALocalDiagnoses.buCancelClick + 0001:00355960 TfrmBALocalDiagnoses.BuildBADxList + 0001:00355294 TfrmBALocalDiagnoses.BuildConsultDxList + 0001:00355590 TfrmBALocalDiagnoses.BuildTempDxList + 0001:00353660 TfrmBALocalDiagnoses.buOKClick + 0001:00353F24 TfrmBALocalDiagnoses.Button4Click + 0001:00356798 TfrmBALocalDiagnoses.cbAddToPDListClick + 0001:00354BF8 TfrmBALocalDiagnoses.cbAddToPLClick + 0001:00357A28 TfrmBALocalDiagnoses.ClearAndDisableCBoxes + 0001:003562C0 TfrmBALocalDiagnoses.DeselectGridItems + 0001:00354748 TfrmBALocalDiagnoses.DiagnosisSelection + 0001:00354B04 TfrmBALocalDiagnoses.EnsurePrimary + 0001:00352F6C TfrmBALocalDiagnoses.Enter + 0001:0035632C TfrmBALocalDiagnoses.FormActivate + 0001:00352FC4 TfrmBALocalDiagnoses.FormCreate + 0001:00356334 TfrmBALocalDiagnoses.FormShow + 0001:00356A54 TfrmBALocalDiagnoses.InactiveICDNotification + 0001:003548A0 TfrmBALocalDiagnoses.IsDxAlreadySelected + 0001:00355FB0 TfrmBALocalDiagnoses.lbDiagnosisClick + 0001:00357610 TfrmBALocalDiagnoses.lbOrdersMouseMove + 0001:00353F2C TfrmBALocalDiagnoses.lbSectionsClick + 0001:00356C00 TfrmBALocalDiagnoses.lbSectionsDrawItem + 0001:00355ABC TfrmBALocalDiagnoses.ListConsultDX + 0001:00353FF8 TfrmBALocalDiagnoses.ListDiagnosisCodes + 0001:00353004 TfrmBALocalDiagnoses.ListDiagnosisSections + 0001:00355D4C TfrmBALocalDiagnoses.ListGlobalDx + 0001:003563B0 TfrmBALocalDiagnoses.ListSelectedOrders + 0001:003536BC TfrmBALocalDiagnoses.LoadEncounterForm + 0001:00356E1C TfrmBALocalDiagnoses.LoadTempDXLists + 0001:003531F4 TfrmBALocalDiagnoses.LoadTempRec + 0001:003575E0 TfrmBALocalDiagnoses.lvDxGridClick + 0001:00357220 TfrmBALocalDiagnoses.lvDxGridKeyDown + 0001:003575D0 TfrmBALocalDiagnoses.lvDxGridKeyUp + 0001:0035314C TfrmBALocalDiagnoses.MainDriver + 0001:00357A78 TfrmBALocalDiagnoses.ORStaticText1Enter + 0001:00357A9C TfrmBALocalDiagnoses.ORStaticText1Exit + 0001:00357AC0 TfrmBALocalDiagnoses.ORStaticText3Enter + 0001:00357AE4 TfrmBALocalDiagnoses.ORStaticText3Exit + 0001:00354A48 TfrmBALocalDiagnoses.PersonalListDxFound + 0001:0035498C TfrmBALocalDiagnoses.ProblemListDxFound + 0001:00354E04 TfrmBALocalDiagnoses.ProcessAddToItems + 0001:0035789C TfrmBALocalDiagnoses.ProcessMultSelections + 0001:00357B08 TfrmBALocalDiagnoses.ReSetCheckBoxStatus + 0001:0035723C TfrmBALocalDiagnoses.SetAddToCBoxStatus + 0001:003576B4 TfrmBALocalDiagnoses.SetAddToCheckBoxStatus + 0001:0031C380 TfrmBAOptionsDiagnoses.AddProblemsToDxList + 0001:0031D6E8 TfrmBAOptionsDiagnoses.btnAddAllClick + 0001:0031CD04 TfrmBAOptionsDiagnoses.btnAddClick + 0001:0031CC7C TfrmBAOptionsDiagnoses.btnCancelClick + 0001:0031CF88 TfrmBAOptionsDiagnoses.btnDeleteClick + 0001:0031CC84 TfrmBAOptionsDiagnoses.btnOKClick + 0001:0031C7C4 TfrmBAOptionsDiagnoses.btnOtherClick + 0001:0031D5C4 TfrmBAOptionsDiagnoses.btnRemoveAllClick + 0001:0031D180 TfrmBAOptionsDiagnoses.Button1Click + 0001:0031D340 TfrmBAOptionsDiagnoses.FormActivate + 0001:0031BDFC TfrmBAOptionsDiagnoses.FormCreate + 0001:0031D984 TfrmBAOptionsDiagnoses.FormResize + 0001:0031D108 TfrmBAOptionsDiagnoses.FormShow + 0001:0031D954 TfrmBAOptionsDiagnoses.hdrCntlDxSectionClick + 0001:0031D198 TfrmBAOptionsDiagnoses.InactiveICDNotification + 0001:0031D348 TfrmBAOptionsDiagnoses.IsDXInList + 0001:0031D038 TfrmBAOptionsDiagnoses.lbDiagnosisChange + 0001:0031CB60 TfrmBAOptionsDiagnoses.lbDiagnosisClick + 0001:0031D0E0 TfrmBAOptionsDiagnoses.lbDiagnosisEnter + 0001:0031D08C TfrmBAOptionsDiagnoses.lbPersonalDxClick + 0001:0031CA98 TfrmBAOptionsDiagnoses.lbSectionsClick + 0001:0031CB50 TfrmBAOptionsDiagnoses.lbSectionsEnter + 0001:0031C164 TfrmBAOptionsDiagnoses.ListDiagnosesCodes + 0001:0031C01C TfrmBAOptionsDiagnoses.ListDiagnosesSections + 0001:0031BEA8 TfrmBAOptionsDiagnoses.LoadEncounterDx + 0001:0031D40C TfrmBAOptionsDiagnoses.LoadPersonalDxList + 0001:0031D9F4 TfrmBAOptionsDiagnoses.SyncDxDeleteList + 0001:0031DAA8 TfrmBAOptionsDiagnoses.SyncDxNewList + 0001:0031AB20 TfrmBroker.btnRLTClick + 0001:0031A9C4 TfrmBroker.cmdNextClick + 0001:0031A8FC TfrmBroker.cmdPrevClick + 0001:0031AA90 TfrmBroker.FormClose + 0001:0031AAF0 TfrmBroker.FormCreate + 0001:0031AB08 TfrmBroker.FormKeyUp + 0001:0031AAE8 TfrmBroker.FormResize + 0001:001D5AEC TfrmChangeEventDisp.cmdCancelClick + 0001:001D5ADC TfrmChangeEventDisp.cmdOKClick + 0001:001D590C TfrmChangeEventDisp.lstCVOrdersDrawItem + 0001:001D5A08 TfrmChangeEventDisp.lstCVOrdersMeasureItem + 0001:001D6E3C TfrmChgEvent.btnActionClick + 0001:001D6EBC TfrmChgEvent.btnCancelClick + 0001:001D6A54 TfrmChgEvent.cboSpecialtyChange + 0001:001D6EC4 TfrmChgEvent.cboSpecialtyDblClick + 0001:001D7174 TfrmChgEvent.FilterOutEmptyPtEvt + 0001:001D6EE0 TfrmChgEvent.FormClose + 0001:001D6A18 TfrmChgEvent.FormCreate + 0001:001D7094 TfrmChgEvent.Highlight + 0001:001D67DC TfrmChgEvent.LoadSpecialtyList + 0001:001D6EF0 TfrmChgEvent.updateChanges + 0001:001DC2B4 TfrmClinicWardMeds.btnClinicClick + 0001:001DC2CC TfrmClinicWardMeds.btnWardClick + 0001:001DC2E4 TfrmClinicWardMeds.BuildMessage + 0001:001DC64C TfrmClinicWardMeds.BuildOrderLocList + 0001:001DC128 TfrmClinicWardMeds.ClinicOrWardLocation + 0001:001DC098 TfrmClinicWardMeds.ClinicOrWardLocation + 0001:001DC720 TfrmClinicWardMeds.rpcChangeOrderLocation + 0001:001DC770 TfrmClinicWardMeds.rpcIsPatientOnWard + 0001:001DC20C TfrmClinicWardMeds.StartLocationCheck + 0001:001E3ECC TfrmCompleteOrders.cmdCancelClick + 0001:001E3CF0 TfrmCompleteOrders.cmdOKClick + 0001:001E3CE8 TfrmCompleteOrders.FormCreate + 0001:0020895C TfrmConsMedRslt.ckAlertClick + 0001:0020858C TfrmConsMedRslt.cmdCancelClick + 0001:002086E0 TfrmConsMedRslt.cmdDetailsClick + 0001:002085B4 TfrmConsMedRslt.cmdOKClick + 0001:002089C8 TfrmConsMedRslt.FormDestroy + 0001:002089E4 TfrmConsMedRslt.lstMedResultsDrawItem + 0001:00208998 TfrmConsMedRslt.NewPersonNeedData + 0001:0020890C TfrmConsMedRslt.ShowDetailsDestroyed + 0001:001CD79C TfrmConsultAction.cboServiceSelect + 0001:001CD6A4 TfrmConsultAction.ckAlertClick + 0001:001CCB88 TfrmConsultAction.cmdCancelClick + 0001:001CCB98 TfrmConsultAction.cmdOKClick + 0001:001CCB28 TfrmConsultAction.NewPersonNeedData + 0001:001CCB58 TfrmConsultAction.ProviderNeedData + 0001:001CC470 TfrmConsultAction.SetupAddComment + 0001:001CC670 TfrmConsultAction.SetupAdminComplete + 0001:001CBE8C TfrmConsultAction.SetupForward + 0001:001CC9F4 TfrmConsultAction.SetupOther + 0001:001CC940 TfrmConsultAction.SetupReceive + 0001:001CC514 TfrmConsultAction.SetupSchedule + 0001:001CC784 TfrmConsultAction.SetupSigFindings + 0001:001CD8DC TfrmConsultAction.ShowAutoAlertText + 0001:001CC800 TfrmConsultAction.SigFindPanelShow + 0001:001CD6D4 TfrmConsultAction.treServiceChange + 0001:001CD798 TfrmConsultAction.treServiceExit + 0001:001CB6C0 TfrmConsultAlertsTo.cboSrcListKeyDown + 0001:001CB6D4 TfrmConsultAlertsTo.cboSrcListMouseClick + 0001:001CB508 TfrmConsultAlertsTo.cboSrcListNeedData + 0001:001CB538 TfrmConsultAlertsTo.cmdCancelClick + 0001:001CB540 TfrmConsultAlertsTo.cmdOKClick + 0001:001CB688 TfrmConsultAlertsTo.DstListClick + 0001:002156A0 TfrmConsults.ActiveEditOf + 0001:0020B5F0 TfrmConsults.AllowContextChange + 0001:00216AE4 TfrmConsults.AssignRemForm + 0001:00216B30 TfrmConsults.CanFinishReminder + 0001:0020BD18 TfrmConsults.ClearEditControls + 0001:0020B884 TfrmConsults.ClearPtData + 0001:002163EC TfrmConsults.cmdChangeClick + 0001:00214EA4 TfrmConsults.cmdEditResubmitClick + 0001:0020E650 TfrmConsults.cmdNewConsultClick + 0001:0020E658 TfrmConsults.cmdNewProcClick + 0001:00211208 TfrmConsults.cmdPCEClick + 0001:0020BE00 TfrmConsults.CompleteConsult + 0001:0020BABC TfrmConsults.DisplayPage + 0001:00212350 TfrmConsults.DisplayPCE + 0001:0021339C TfrmConsults.dlgFindTextFind + 0001:002133BC TfrmConsults.dlgReplaceTextFind + 0001:002133DC TfrmConsults.dlgReplaceTextReplace + 0001:002189B8 TfrmConsults.DoAttachIDChild + 0001:002160DC TfrmConsults.DoAutoSave + 0001:00217F74 TfrmConsults.EnableDisableIDNotes + 0001:00214E58 TfrmConsults.EnableDisableOrdering + 0001:00213EB0 TfrmConsults.FormClose + 0001:00213C7C TfrmConsults.FormCreate + 0001:002152B0 TfrmConsults.FormDestroy + 0001:002194A4 TfrmConsults.FormHide + 0001:0021977C TfrmConsults.FormMouseMove + 0001:00219538 TfrmConsults.FormShow + 0001:0021971C TfrmConsults.frmDrawerEdtSearchExit + 0001:0021975C TfrmConsults.frmDrawerPnlEncounterButtonExit + 0001:0021973C TfrmConsults.frmDrawerPnlTemplatesButtonExit + 0001:00219400 TfrmConsults.frmFramePnlPatientExit + 0001:002152F4 TfrmConsults.GetDrawers + 0001:00215F38 TfrmConsults.GetTitleText + 0001:0020C7BC TfrmConsults.InsertAddendum + 0001:00215C94 TfrmConsults.LacksClinProcFields + 0001:00215E7C TfrmConsults.LacksClinProcFieldsForSignature + 0001:00215BBC TfrmConsults.LacksRequiredForCreate + 0001:0021808C TfrmConsults.LoadConsults + 0001:0020CDE8 TfrmConsults.LoadForEdit + 0001:00215324 TfrmConsults.LockConsultRequest + 0001:00215444 TfrmConsults.LockConsultRequestAndNote + 0001:0020DCB4 TfrmConsults.lstConsultsClick + 0001:00219018 TfrmConsults.LstConsultsToPrint + 0001:00212B24 TfrmConsults.lstNotesClick + 0001:0020E690 TfrmConsults.memResultChange + 0001:00218EB4 TfrmConsults.memResultsKeyDown + 0001:0020ED14 TfrmConsults.mnuActAddIDEntryClick + 0001:0021735C TfrmConsults.mnuActAttachMedClick + 0001:0021883C TfrmConsults.mnuActAttachtoIDParentClick + 0001:00216B5C TfrmConsults.mnuActChangeClick + 0001:0020E920 TfrmConsults.mnuActCompleteClick + 0001:0021124C TfrmConsults.mnuActConsultClick + 0001:0020F040 TfrmConsults.mnuActDetachFromIDParentClick + 0001:00213E64 TfrmConsults.mnuActDisplayDetailsClick + 0001:00213910 TfrmConsults.mnuActDisplayResultsClick + 0001:0021398C TfrmConsults.mnuActDisplaySF513Click + 0001:00214CC4 TfrmConsults.mnuActEditResubmitClick + 0001:00213FAC TfrmConsults.mnuActIdentifyAddlSignersClick + 0001:00216C44 TfrmConsults.mnuActLoadBoilerClick + 0001:0020EE0C TfrmConsults.mnuActMakeAddendumClick + 0001:0020E2C8 TfrmConsults.mnuActNewConsultRequestClick + 0001:0020E4B8 TfrmConsults.mnuActNewProcedureClick + 0001:0020F7F8 TfrmConsults.mnuActNoteDeleteClick + 0001:0020FDB8 TfrmConsults.mnuActNoteEditClick + 0001:002150F8 TfrmConsults.mnuActNotePrintClick + 0001:00213C3C TfrmConsults.mnuActPrintSF513Click + 0001:00217378 TfrmConsults.mnuActRemoveMedClick + 0001:0020F414 TfrmConsults.mnuActSignatureListClick + 0001:0020FE9C TfrmConsults.mnuActSignatureSaveClick + 0001:00210174 TfrmConsults.mnuActSignatureSignClick + 0001:0020BD08 TfrmConsults.mnuChartTabClick + 0001:00217394 TfrmConsults.mnuEditDialgFieldsClick + 0001:002150E0 TfrmConsults.mnuEditSharedTemplatesClick + 0001:00215004 TfrmConsults.mnuEditTemplatesClick + 0001:00218830 TfrmConsults.mnuIconLegendClick + 0001:002150EC TfrmConsults.mnuNewSharedTemplateClick + 0001:00215010 TfrmConsults.mnuNewTemplateClick + 0001:0021506C TfrmConsults.mnuOptionsClick + 0001:0020E698 TfrmConsults.mnuViewClick + 0001:002197A4 TfrmConsults.mnuViewInformationClick + 0001:00214F60 TfrmConsults.mnuViewReturntoDefaultClick + 0001:00214EAC TfrmConsults.mnuViewSaveAsDefaultClick + 0001:0020E660 TfrmConsults.NewPersonNeedData + 0001:00213C10 TfrmConsults.NotifyOrder + 0001:0021931C TfrmConsults.pnlActionExit + 0001:00216A8C TfrmConsults.pnlFieldsResize + 0001:0021501C TfrmConsults.pnlLeftResize + 0001:00219210 TfrmConsults.pnlResultsExit + 0001:00213B60 TfrmConsults.pnlResultsResize + 0001:0020DC70 TfrmConsults.pnlRightResize + 0001:00217DF8 TfrmConsults.popNoteListCollapseAllClick + 0001:00217F18 TfrmConsults.popNoteListCollapseSelectedClick + 0001:00217DC0 TfrmConsults.popNoteListExpandAllClick + 0001:00217EBC TfrmConsults.popNoteListExpandSelectedClick + 0001:002187E4 TfrmConsults.popNoteListPopup + 0001:00214384 TfrmConsults.popNoteMemoAddlSignClick + 0001:0021329C TfrmConsults.popNoteMemoCopyClick + 0001:00213290 TfrmConsults.popNoteMemoCutClick + 0001:0021331C TfrmConsults.popNoteMemoFindClick + 0001:00213500 TfrmConsults.popNoteMemoGrammarClick + 0001:00218FCC TfrmConsults.popNoteMemoInsTemplateClick + 0001:002132A8 TfrmConsults.popNoteMemoPasteClick + 0001:00213058 TfrmConsults.popNoteMemoPopup + 0001:00218FC0 TfrmConsults.popNoteMemoPreviewClick + 0001:002152A8 TfrmConsults.popNoteMemoPrintClick + 0001:002132FC TfrmConsults.popNoteMemoReformatClick + 0001:002133FC TfrmConsults.popNoteMemoReplaceClick + 0001:00216F4C TfrmConsults.popNoteMemoSaveContinueClick + 0001:00213484 TfrmConsults.popNoteMemoSpellClick + 0001:00214FAC TfrmConsults.popNoteMemoTemplateClick + 0001:00216F60 TfrmConsults.ProcessMedResults + 0001:0021438C TfrmConsults.ProcessNotifications + 0001:00212928 TfrmConsults.RemovePCEFromChanges + 0001:00213734 TfrmConsults.RequestMultiplePrint + 0001:0021357C TfrmConsults.RequestPrint + 0001:0020DC60 TfrmConsults.SaveCurrentNote + 0001:0020D5FC TfrmConsults.SaveEditedConsult + 0001:00210B24 TfrmConsults.SaveSignItem + 0001:0021196C TfrmConsults.SetActionMenus + 0001:002152FC TfrmConsults.SetEditingIndex + 0001:0020BCA4 TfrmConsults.SetFontSize + 0001:00211CB0 TfrmConsults.SetResultMenus + 0001:0021605C TfrmConsults.SetSubjectVisible + 0001:0020B97C TfrmConsults.SetViewContext + 0001:002128DC TfrmConsults.ShowPCEControls + 0001:00218F60 TfrmConsults.sptHorzCanResize + 0001:0021576C TfrmConsults.StartNewEdit + 0001:002160D0 TfrmConsults.timAutoSaveTimer + 0001:00218FD8 TfrmConsults.tvConsultsAddition + 0001:00218508 TfrmConsults.tvConsultsChange + 0001:0021842C TfrmConsults.tvConsultsClick + 0001:002183FC TfrmConsults.tvConsultsCollapsed + 0001:00218FF8 TfrmConsults.tvConsultsDeletion + 0001:00219140 TfrmConsults.tvConsultsExit + 0001:002183CC TfrmConsults.tvConsultsExpanded + 0001:00218D84 TfrmConsults.tvConsultsKeyUp + 0001:002174C8 TfrmConsults.tvCsltNotesChange + 0001:00217FF4 TfrmConsults.tvCsltNotesClick + 0001:002177F0 TfrmConsults.tvCsltNotesCollapsed + 0001:00217C50 TfrmConsults.tvCsltNotesDragDrop + 0001:00217BB8 TfrmConsults.tvCsltNotesDragOver + 0001:00217B24 TfrmConsults.tvCsltNotesExpanded + 0001:00217CDC TfrmConsults.tvCsltNotesStartDrag + 0001:00214E94 TfrmConsults.UMNewOrder + 0001:00215620 TfrmConsults.UnlockConsultRequest + 0001:00218364 TfrmConsults.UpdateConsultsTreeView + 0001:002115B8 TfrmConsults.UpdateList + 0001:0021739C TfrmConsults.UpdateNoteTreeView + 0001:00218DB4 TfrmConsults.UserIsSigner + 0001:00215FB0 TfrmConsults.VerifyNoteTitle + 0001:00219794 TfrmConsults.ViewInfo + 0001:001C9B38 TfrmConsultsByDate.calBeginDateKeyPress + 0001:001C9B48 TfrmConsultsByDate.calEndDateKeyPress + 0001:001C9B30 TfrmConsultsByDate.cmdCancelClick + 0001:001C99B8 TfrmConsultsByDate.cmdOKClick + 0001:001C934C TfrmConsultsByService.cboServiceSelect + 0001:001C9160 TfrmConsultsByService.cmdCancelClick + 0001:001C9168 TfrmConsultsByService.cmdOKClick + 0001:001C92BC TfrmConsultsByService.treServiceChange + 0001:001CA014 TfrmConsultsByStatus.cmdCancelClick + 0001:001CA01C TfrmConsultsByStatus.cmdOKClick + 0001:001CAFC8 TfrmConsultsView.cboServiceSelect + 0001:001CAF30 TfrmConsultsView.cmdCancelClick + 0001:001CAAF8 TfrmConsultsView.cmdOKClick + 0001:001CB0D0 TfrmConsultsView.popStatusSelectNoneClick + 0001:001CAF38 TfrmConsultsView.treServiceChange + 0001:001EE20C TfrmCopyOrders.cmdCancelClick + 0001:001EE134 TfrmCopyOrders.cmdOKClick + 0001:001EE09C TfrmCopyOrders.FormCreate + 0001:001EE438 TfrmCopyOrders.FormKeyDown + 0001:001EE344 TfrmCopyOrders.fraEvntDelayListcboEvntListChange + 0001:001EE408 TfrmCopyOrders.fraEvntDelayListmlstEventsChange + 0001:001EE384 TfrmCopyOrders.fraEvntDelayListmlstEventsDblClick + 0001:001EE214 TfrmCopyOrders.radEvtDelayClick + 0001:001EE2EC TfrmCopyOrders.radReleaseClick + 0001:001EE374 TfrmCopyOrders.UMStillDelay + 0001:002F0124 TfrmCover.ClearPtData + 0001:002F0D88 TfrmCover.CoverItemClick + 0001:002F2ADC TfrmCover.CoverItemExit + 0001:002F044C TfrmCover.DisplayPage + 0001:002F17C4 TfrmCover.FormClose + 0001:002F2310 TfrmCover.FormCreate + 0001:002F2454 TfrmCover.FormDestroy + 0001:002F2B08 TfrmCover.GetPatientFlag + 0001:002F0250 TfrmCover.LoadList + 0001:002F2B4C TfrmCover.lstFlagClick + 0001:002F2BB8 TfrmCover.lstFlagKeyDown + 0001:002F1DE0 TfrmCover.NotifyOrder + 0001:002F2660 TfrmCover.popEditAllergyClick + 0001:002F2688 TfrmCover.popEnteredInErrorClick + 0001:002F24EC TfrmCover.popMenuAllergiesPopup + 0001:002F262C TfrmCover.popNewAllergyClick + 0001:002F2648 TfrmCover.popNKAClick + 0001:002F2170 TfrmCover.RemContextPopup + 0001:002F1E64 TfrmCover.RemindersChange + 0001:002F0D14 TfrmCover.SetFontSize + 0001:002F2460 TfrmCover.sptBottomCanResize + 0001:002F2474 TfrmCover.sptTopCanResize + 0001:002F2488 TfrmCover.spt_1CanResize + 0001:002F249C TfrmCover.spt_2CanResize + 0001:002F24B0 TfrmCover.spt_3CanResize + 0001:002F24C4 TfrmCover.spt_4CanResize + 0001:002F24D8 TfrmCover.spt_5CanResize + 0001:002F1818 TfrmCover.timPollTimer + 0001:002F26B8 TfrmCover.UpdateAllergiesList + 0001:002F2BCC TfrmCover.UpdateVAAButton + 0001:001D35E0 TfrmCsltNote.cmdCancelClick + 0001:001D3608 TfrmCsltNote.cmdOKClick + 0001:001E64B8 TfrmDateRange.cmdCancelClick + 0001:001E62D0 TfrmDateRange.cmdOKClick + 0001:001E62C8 TfrmDateRange.FormCreate + 0001:0031AEE8 TfrmDbgList.FormKeyUp + 0001:0031B198 TfrmDbgServer.FormCreate + 0001:0031B1AC TfrmDbgServer.FormKeyUp + 0001:001D53B8 TfrmDCOrders.cmdCancelClick + 0001:001D5304 TfrmDCOrders.cmdOKClick + 0001:001D52D0 TfrmDCOrders.FormCreate + 0001:001D53C0 TfrmDCOrders.lstOrdersDrawItem + 0001:001D54BC TfrmDCOrders.lstOrdersMeasureItem + 0001:001D553C TfrmDCOrders.MeasureColumnHeight + 0001:00220F14 TfrmDCSumm.AllowContextChange + 0001:00221974 TfrmDCSumm.ClearEditControls + 0001:002212EC TfrmDCSumm.ClearPtData + 0001:00228874 TfrmDCSumm.cmdChangeClick + 0001:00223F18 TfrmDCSumm.cmdNewSummClick + 0001:00223F64 TfrmDCSumm.cmdOrdersClick + 0001:00223F20 TfrmDCSumm.cmdPCEClick + 0001:00221394 TfrmDCSumm.DisplayPage + 0001:00221ABC TfrmDCSumm.DisplayPCE + 0001:00226E78 TfrmDCSumm.dlgFindTextFind + 0001:00226F40 TfrmDCSumm.dlgReplaceTextFind + 0001:00226F20 TfrmDCSumm.dlgReplaceTextReplace + 0001:0022AACC TfrmDCSumm.DoAttachIDChild + 0001:002283E4 TfrmDCSumm.DoAutoSave + 0001:0022A8F4 TfrmDCSumm.EnableDisableIDNotes + 0001:002272D8 TfrmDCSumm.FormClose + 0001:00227058 TfrmDCSumm.FormCreate + 0001:0022816C TfrmDCSumm.FormDestroy + 0001:002281A4 TfrmDCSumm.GetDrawers + 0001:00228700 TfrmDCSumm.GetTitleText + 0001:00222840 TfrmDCSumm.InsertAddendum + 0001:00221F44 TfrmDCSumm.InsertNewSumm + 0001:002281B4 TfrmDCSumm.LacksRequiredForCreate + 0001:00222E54 TfrmDCSumm.LoadForEdit + 0001:00229190 TfrmDCSumm.LoadSumms + 0001:00228334 TfrmDCSumm.LockSumm + 0001:00223C5C TfrmDCSumm.lstSummsClick + 0001:002211C4 TfrmDCSumm.LstSummsToPrint + 0001:0022A500 TfrmDCSumm.lvSummsColumnClick + 0001:0022A6D8 TfrmDCSumm.lvSummsCompare + 0001:0022A850 TfrmDCSumm.lvSummsResize + 0001:0022A784 TfrmDCSumm.lvSummsSelectItem + 0001:00223F68 TfrmDCSumm.memNewSummChange + 0001:0022B2C8 TfrmDCSumm.memNewSummKeyUp + 0001:00224B88 TfrmDCSumm.mnuActAddendClick + 0001:00224A28 TfrmDCSumm.mnuActAddIDEntryClick + 0001:0022A980 TfrmDCSumm.mnuActAttachtoIDParentClick + 0001:00228D6C TfrmDCSumm.mnuActChangeClick + 0001:002256FC TfrmDCSumm.mnuActDeleteClick + 0001:00224DFC TfrmDCSumm.mnuActDetachFromIDParentClick + 0001:00225BD8 TfrmDCSumm.mnuActEditClick + 0001:002273D4 TfrmDCSumm.mnuActIdentifyAddlSignersClick + 0001:00228E5C TfrmDCSumm.mnuActLoadBoilerClick + 0001:00224A08 TfrmDCSumm.mnuActNewClick + 0001:00225D30 TfrmDCSumm.mnuActSaveClick + 0001:00225E78 TfrmDCSumm.mnuActSignClick + 0001:00225188 TfrmDCSumm.mnuActSignListClick + 0001:00221964 TfrmDCSumm.mnuChartTabClick + 0001:00229188 TfrmDCSumm.mnuEditDialgFieldsClick + 0001:00228154 TfrmDCSumm.mnuEditSharedTemplatesClick + 0001:002280D4 TfrmDCSumm.mnuEditTemplatesClick + 0001:0022A974 TfrmDCSumm.mnuIconLegendClick + 0001:00228160 TfrmDCSumm.mnuNewSharedTemplateClick + 0001:002280C8 TfrmDCSumm.mnuNewTemplateClick + 0001:002280E0 TfrmDCSumm.mnuOptionsClick + 0001:00223F70 TfrmDCSumm.mnuViewClick + 0001:002271D4 TfrmDCSumm.mnuViewDetailClick + 0001:0022B4C4 TfrmDCSumm.mnuViewInformationClick + 0001:00227F1C TfrmDCSumm.mnuViewReturntoDefaultClick + 0001:00227CF4 TfrmDCSumm.mnuViewSaveAsDefaultClick + 0001:0022B42C TfrmDCSumm.NoSummSelected + 0001:00223B8C TfrmDCSumm.pnlRightResize + 0001:00223BAC TfrmDCSumm.pnlWriteResize + 0001:00228004 TfrmDCSumm.popSummListCollapseAllClick + 0001:00228090 TfrmDCSumm.popSummListCollapseSelectedClick + 0001:00227FF8 TfrmDCSumm.popSummListExpandAllClick + 0001:00228058 TfrmDCSumm.popSummListExpandSelectedClick + 0001:00227F80 TfrmDCSumm.popSummListPopup + 0001:0022776C TfrmDCSumm.popSummMemoAddlSignClick + 0001:00226D78 TfrmDCSumm.popSummMemoCopyClick + 0001:00226D6C TfrmDCSumm.popSummMemoCutClick + 0001:00226DF8 TfrmDCSumm.popSummMemoFindClick + 0001:00226FDC TfrmDCSumm.popSummMemoGrammarClick + 0001:0022B3E0 TfrmDCSumm.popSummMemoInsTemplateClick + 0001:00226D84 TfrmDCSumm.popSummMemoPasteClick + 0001:00226B34 TfrmDCSumm.popSummMemoPopup + 0001:0022B3D4 TfrmDCSumm.popSummMemoPreviewClick + 0001:00226DD8 TfrmDCSumm.popSummMemoReformatClick + 0001:00226E98 TfrmDCSumm.popSummMemoReplaceClick + 0001:00229174 TfrmDCSumm.popSummMemoSaveContinueClick + 0001:00226F60 TfrmDCSumm.popSummMemoSpellClick + 0001:00227F28 TfrmDCSumm.popSummMemoTemplateClick + 0001:00227774 TfrmDCSumm.ProcessNotifications + 0001:00225500 TfrmDCSumm.RemovePCEFromChanges + 0001:002216FC TfrmDCSumm.RequestMultiplePrint + 0001:0022153C TfrmDCSumm.RequestPrint + 0001:00223B7C TfrmDCSumm.SaveCurrentSumm + 0001:002233E0 TfrmDCSumm.SaveEditedSumm + 0001:00226654 TfrmDCSumm.SaveSignItem + 0001:002281AC TfrmDCSumm.SetEditingIndex + 0001:00221900 TfrmDCSumm.SetFontSize + 0001:0022AF8C TfrmDCSumm.SetSummTreeLabel + 0001:00227B90 TfrmDCSumm.SetViewContext + 0001:00221A70 TfrmDCSumm.ShowPCEControls + 0001:0022B374 TfrmDCSumm.sptHorzCanResize + 0001:0022464C TfrmDCSumm.StartNewEdit + 0001:002286F4 TfrmDCSumm.timAutoSaveTimer + 0001:002232EC TfrmDCSumm.TitleText + 0001:0022B3EC TfrmDCSumm.tvSummsAddition + 0001:0022985C TfrmDCSumm.tvSummsChange + 0001:0022A2F4 TfrmDCSumm.tvSummsClick + 0001:00229F2C TfrmDCSumm.tvSummsCollapsed + 0001:0022B40C TfrmDCSumm.tvSummsDeletion + 0001:0022A390 TfrmDCSumm.tvSummsDragDrop + 0001:0022A2F8 TfrmDCSumm.tvSummsDragOver + 0001:0022A260 TfrmDCSumm.tvSummsExpanded + 0001:0022A41C TfrmDCSumm.tvSummsStartDrag + 0001:002297F4 TfrmDCSumm.UpdateTreeView + 0001:00228288 TfrmDCSumm.VerifySummTitle + 0001:0022B4B4 TfrmDCSumm.ViewInfo + 0001:0021EE44 TfrmDCSummProperties.cboAttendingExit + 0001:0021EDAC TfrmDCSummProperties.cboAttendingNeedData + 0001:0021EDDC TfrmDCSummProperties.cboAuthorEnter + 0001:0021EE18 TfrmDCSummProperties.cboAuthorExit + 0001:0021EDF4 TfrmDCSummProperties.cboAuthorMouseClick + 0001:0021ED7C TfrmDCSummProperties.cboAuthorNeedData + 0001:0021FAA4 TfrmDCSummProperties.cboNewTitleDblClick + 0001:0021F520 TfrmDCSummProperties.cboNewTitleDropDownClose + 0001:0021EC64 TfrmDCSummProperties.cboNewTitleEnter + 0001:0021ED4C TfrmDCSummProperties.cboNewTitleExit + 0001:0021EC70 TfrmDCSummProperties.cboNewTitleMouseClick + 0001:0021EC38 TfrmDCSummProperties.cboNewTitleNeedData + 0001:0021F510 TfrmDCSummProperties.cmdCancelClick + 0001:0021EEFC TfrmDCSummProperties.cmdOKClick + 0001:0021FAAC TfrmDCSummProperties.FormClose + 0001:0021E9E8 TfrmDCSummProperties.FormShow + 0001:0021F524 TfrmDCSummProperties.lstAdmissionsChange + 0001:0021E9F4 TfrmDCSummProperties.SetCosignerRequired + 0001:0021EA1C TfrmDCSummProperties.ShowAdmissionList + 0001:0021E9F0 TfrmDCSummProperties.UMDelayEvent + 0001:0018D190 TfrmDeviceSelect.cboDeviceChange + 0001:0018D3F0 TfrmDeviceSelect.cboDeviceNeedData + 0001:0018D3D8 TfrmDeviceSelect.cmdCancelClick + 0001:0018D258 TfrmDeviceSelect.cmdOKClick + 0001:0018D420 TfrmDeviceSelect.FormClose + 0001:0018D418 TfrmDeviceSelect.FormShow + 0001:002FE810 TfrmDiagnoses.btnOKClick + 0001:002FE2F0 TfrmDiagnoses.btnRemoveClick + 0001:002FE1B8 TfrmDiagnoses.ckbDiagProbClicked + 0001:002FE154 TfrmDiagnoses.cmdDiagPrimaryClick + 0001:002FE0D0 TfrmDiagnoses.EnsurePrimaryDiag + 0001:002FE278 TfrmDiagnoses.FormCreate + 0001:002FE5A4 TfrmDiagnoses.FormResize + 0001:002FE838 TfrmDiagnoses.GetEncounterDiagnoses + 0001:002FE830 TfrmDiagnoses.lbSectionClick + 0001:002FE954 TfrmDiagnoses.lbSectionDrawItem + 0001:002FE5FC TfrmDiagnoses.lbxSectionClickCheck + 0001:002FE384 TfrmDiagnoses.UpdateControls + 0001:002FE304 TfrmDiagnoses.UpdateNewItemStr + 0001:002498CC TfrmdlgProb.BadDates + 0001:00246EB8 TfrmdlgProb.bbAddComClick + 0001:0024A06C TfrmdlgProb.bbChangeProbClick + 0001:00246F54 TfrmdlgProb.bbEditClick + 0001:002480B8 TfrmdlgProb.bbFileClick + 0001:00246DA0 TfrmdlgProb.bbQuitClick + 0001:00248C34 TfrmdlgProb.bbRemoveClick + 0001:00248D98 TfrmdlgProb.cbLocClick + 0001:00249D9C TfrmdlgProb.cbLocDropDown + 0001:00248DB8 TfrmdlgProb.cbLocKeyPress + 0001:0024A47C TfrmdlgProb.cbLocNeedData + 0001:00248D78 TfrmdlgProb.cbProvClick + 0001:00249C58 TfrmdlgProb.cbProvDropDown + 0001:00248CA0 TfrmdlgProb.cbProvKeyPress + 0001:0024A4A4 TfrmdlgProb.cbProvNeedData + 0001:0024A4CC TfrmdlgProb.cbServNeedData + 0001:00249FD4 TfrmdlgProb.ClearDialogControls + 0001:00249BB8 TfrmdlgProb.ControlChange + 0001:00249EB4 TfrmdlgProb.Create + 0001:00249F18 TfrmdlgProb.CreateParams + 0001:00249BC0 TfrmdlgProb.Destroy + 0001:00249FBC TfrmdlgProb.DoShow + 0001:00247FC4 TfrmdlgProb.FormClose + 0001:00249E70 TfrmdlgProb.FormCreate + 0001:00247060 TfrmdlgProb.FormShow + 0001:002489A0 TfrmdlgProb.GetEditedComments + 0001:00248B14 TfrmdlgProb.GetNewComments + 0001:0024A030 TfrmdlgProb.LackRequired + 0001:0024A02C TfrmdlgProb.LoadDefaults + 0001:00249F7C TfrmdlgProb.Loaded + 0001:00246D94 TfrmdlgProb.OkToQuit + 0001:00248CE0 TfrmdlgProb.rgStatusClick + 0001:00248E18 TfrmdlgProb.SetDefaultProb + 0001:00249FCC TfrmdlgProb.SetFontSize + 0001:00247F04 TfrmdlgProb.ShowComments + 0001:0024A034 TfrmdlgProb.UMTakeFocus + 0001:002D956C TfrmDrawers.AddTemplateNode + 0001:002DA110 TfrmDrawers.btnFindClick + 0001:002D8AE4 TfrmDrawers.ButtonHeights + 0001:002DA76C TfrmDrawers.CanEditShared + 0001:002DA758 TfrmDrawers.CanEditTemplates + 0001:002DA7BC TfrmDrawers.cbFindOptionClick + 0001:002D97C8 TfrmDrawers.CheckAsk + 0001:002D8E0C TfrmDrawers.CreateDrawers + 0001:002DB474 TfrmDrawers.DisableArrowKeyMove + 0001:002DA6D0 TfrmDrawers.DisplayDrawers + 0001:002DA6E8 TfrmDrawers.DisplayDrawers + 0001:002DA4A4 TfrmDrawers.edtSearchChange + 0001:002DA548 TfrmDrawers.edtSearchEnter + 0001:002DA558 TfrmDrawers.edtSearchExit + 0001:002D8F20 TfrmDrawers.EnableDrawer + 0001:002D8FB8 TfrmDrawers.EnableDrawers + 0001:002D91C4 TfrmDrawers.EndInternalResize + 0001:002DA628 TfrmDrawers.ExternalReloadTemplates + 0001:002D9388 TfrmDrawers.FontChanged + 0001:002D8A8C TfrmDrawers.FormCanResize + 0001:002DA5FC TfrmDrawers.FormCreate + 0001:002DA05C TfrmDrawers.FormDestroy + 0001:002D9058 TfrmDrawers.FormResize + 0001:002DAC60 TfrmDrawers.GetAlign + 0001:002D8D9C TfrmDrawers.GetDrawerControls + 0001:002D9210 TfrmDrawers.InitButtons + 0001:002DB1A8 TfrmDrawers.InsertOK + 0001:002D9BB4 TfrmDrawers.InsertText + 0001:002D8874 TfrmDrawers.MinDrawerControlHeight + 0001:002DA08C TfrmDrawers.mnuCollapseTreeClick + 0001:002DB048 TfrmDrawers.mnuCopyTemplateClick + 0001:002DACE4 TfrmDrawers.mnuDefaultClick + 0001:002DA5E4 TfrmDrawers.mnuEditTemplatesClick + 0001:002DA568 TfrmDrawers.mnuFindTemplatesClick + 0001:002DAEB8 TfrmDrawers.mnuGotoDefaultClick + 0001:002DA7E4 TfrmDrawers.mnuInsertTemplateClick + 0001:002DA5F0 TfrmDrawers.mnuNewTemplateClick + 0001:002D9F9C TfrmDrawers.mnuPreviewTemplateClick + 0001:002DAF20 TfrmDrawers.mnuViewNotesClick + 0001:002DB234 TfrmDrawers.mnuViewTemplateIconLegendClick + 0001:002D9AB4 TfrmDrawers.MoveCaret + 0001:002D9B04 TfrmDrawers.NewRECDragDrop + 0001:002D9B4C TfrmDrawers.NewRECDragOver + 0001:002DAC08 TfrmDrawers.NotifyWhenRemTreeChanges + 0001:002D8C4C TfrmDrawers.OpenDrawer + 0001:002DADB4 TfrmDrawers.OpenToNode + 0001:002DB240 TfrmDrawers.pnlTemplatesButtonEnter + 0001:002DB2A0 TfrmDrawers.pnlTemplatesButtonExit + 0001:002DA778 TfrmDrawers.pnlTemplateSearchResize + 0001:002D9D60 TfrmDrawers.popTemplatesPopup + 0001:002DAADC TfrmDrawers.PositionToReminder + 0001:002DA0AC TfrmDrawers.ReloadTemplates + 0001:002DA9C4 TfrmDrawers.RemindersChanged + 0001:002DAC40 TfrmDrawers.RemoveNotifyWhenRemTreeChanges + 0001:002DAC78 TfrmDrawers.ResetTemplates + 0001:002D8918 TfrmDrawers.ResizeToVisible + 0001:002D912C TfrmDrawers.sbEncounterClick + 0001:002D91A4 TfrmDrawers.sbOrdersClick + 0001:002D9134 TfrmDrawers.sbRemindersClick + 0001:002D91DC TfrmDrawers.sbResize + 0001:002D90A8 TfrmDrawers.sbTemplatesClick + 0001:002DAC64 TfrmDrawers.SetAlign + 0001:002DA448 TfrmDrawers.SetFindNext + 0001:002D9A04 TfrmDrawers.SetRichEditControl + 0001:002DA818 TfrmDrawers.SetSplitter + 0001:002DA89C TfrmDrawers.SetSplitterActive + 0001:002D8B68 TfrmDrawers.ShowDrawers + 0001:002DA888 TfrmDrawers.SplitterCanResize + 0001:002D91D4 TfrmDrawers.StartInternalResize + 0001:002D91AC TfrmDrawers.ToggleDrawer + 0001:002DA504 TfrmDrawers.ToggleMenuItem + 0001:002DB434 TfrmDrawers.tvRemindersAddition + 0001:002DABF4 TfrmDrawers.tvRemindersCurListChanged + 0001:002DB454 TfrmDrawers.tvRemindersDeletion + 0001:002DB2C8 TfrmDrawers.tvRemindersKeyDown + 0001:002DAA8C TfrmDrawers.tvRemindersMouseUp + 0001:002DB304 TfrmDrawers.tvRemindersNodeCaptioning + 0001:002D9850 TfrmDrawers.tvTemplatesClick + 0001:002D98AC TfrmDrawers.tvTemplatesCollapsing + 0001:002D9860 TfrmDrawers.tvTemplatesDblClick + 0001:002DA5B4 TfrmDrawers.tvTemplatesDragging + 0001:002D9684 TfrmDrawers.tvTemplatesExpanding + 0001:002D958C TfrmDrawers.tvTemplatesGetImageIndex + 0001:002D95A8 TfrmDrawers.tvTemplatesGetSelectedIndex + 0001:002D99C4 TfrmDrawers.tvTemplatesKeyDown + 0001:002D99F8 TfrmDrawers.tvTemplatesKeyUp + 0001:002DA91C TfrmDrawers.UpdatePersonalTemplates + 0001:00302C74 TfrmDupPts.btnCancelClick + 0001:00302CD8 TfrmDupPts.btnOKClick + 0001:00302C7C TfrmDupPts.FormCreate + 0001:00302DD0 TfrmDupPts.FormKeyDown + 0001:00302DF0 TfrmDupPts.lboSelPtDblClick + 0001:001FE1B0 TfrmEditCslt.btnCmtCancelClick + 0001:001FE1E4 TfrmEditCslt.btnCmtOtherClick + 0001:001FDE98 TfrmEditCslt.cmdAcceptClick + 0001:001FE210 TfrmEditCslt.cmdLexSearchClick + 0001:001FDFF4 TfrmEditCslt.cmdQuitClick + 0001:001FD8E4 TfrmEditCslt.ControlChange + 0001:001FDE24 TfrmEditCslt.FormClose + 0001:001FCDE4 TfrmEditCslt.InitDialog + 0001:001FE944 TfrmEditCslt.memCommentKeyDown + 0001:001FE98C TfrmEditCslt.memCommentKeyPress + 0001:001FE898 TfrmEditCslt.memCommentKeyUp + 0001:001FDF70 TfrmEditCslt.memReasonExit + 0001:001FE6E0 TfrmEditCslt.mnuPopProvDxDeleteClick + 0001:001FE150 TfrmEditCslt.OrderMessage + 0001:001FE808 TfrmEditCslt.popReasonCopyClick + 0001:001FE7FC TfrmEditCslt.popReasonCutClick + 0001:001FE814 TfrmEditCslt.popReasonPasteClick + 0001:001FE718 TfrmEditCslt.popReasonPopup + 0001:001FE868 TfrmEditCslt.popReasonReformatClick + 0001:001FD704 TfrmEditCslt.radInpatientClick + 0001:001FD7F4 TfrmEditCslt.radOutpatientClick + 0001:001FE368 TfrmEditCslt.SetProvDiagPromptingMode + 0001:001FD6DC TfrmEditCslt.txtAttnNeedData + 0001:001FD214 TfrmEditCslt.Validate + 0001:001FE004 TfrmEditCslt.ValidSave + 0001:001FBD8C TfrmEditProc.btnCmtCancelClick + 0001:001FBDC0 TfrmEditProc.btnCmtOtherClick + 0001:001FB0CC TfrmEditProc.cboProcNeedData + 0001:001FBA64 TfrmEditProc.cboProcSelect + 0001:001FBCA4 TfrmEditProc.cmdAcceptClick + 0001:001FBDEC TfrmEditProc.cmdLexSearchClick + 0001:001FBD1C TfrmEditProc.cmdQuitClick + 0001:001FB294 TfrmEditProc.ControlChange + 0001:001FB8A4 TfrmEditProc.FormClose + 0001:001FA908 TfrmEditProc.InitDialog + 0001:001FC42C TfrmEditProc.memCommentKeyUp + 0001:001FBC20 TfrmEditProc.memReasonExit + 0001:001FC4D4 TfrmEditProc.memReasonKeyDown + 0001:001FC51C TfrmEditProc.memReasonKeyPress + 0001:001FC274 TfrmEditProc.mnuPopProvDxDeleteClick + 0001:001FBD2C TfrmEditProc.OrderMessage + 0001:001FC39C TfrmEditProc.popReasonCopyClick + 0001:001FC390 TfrmEditProc.popReasonCutClick + 0001:001FC3A8 TfrmEditProc.popReasonPasteClick + 0001:001FC2AC TfrmEditProc.popReasonPopup + 0001:001FC3FC TfrmEditProc.popReasonReformatClick + 0001:001FB0F4 TfrmEditProc.radInpatientClick + 0001:001FB1C4 TfrmEditProc.radOutpatientClick + 0001:001FBF24 TfrmEditProc.SetProvDiagPromptingMode + 0001:001FB0A4 TfrmEditProc.txtAttnNeedData + 0001:001FACF4 TfrmEditProc.Validate + 0001:001FB918 TfrmEditProc.ValidSave + 0001:001F0990 TfrmEffectDate.cmdCancelClick + 0001:001F0980 TfrmEffectDate.cmdOKClick + 0001:001F0978 TfrmEffectDate.FormCreate + 0001:0023E660 TfrmEncounter.AppShowHint + 0001:0023E13C TfrmEncounter.calVisitDateChange + 0001:0023E224 TfrmEncounter.calVisitDateExit + 0001:0023E004 TfrmEncounter.cboNewVisitChange + 0001:0023DDF0 TfrmEncounter.cboNewVisitNeedData + 0001:0023DB88 TfrmEncounter.cboPtProviderNeedData + 0001:0023E658 TfrmEncounter.ckbHistoricalClick + 0001:0023E650 TfrmEncounter.cmdCancelClick + 0001:0023DE18 TfrmEncounter.cmdDateRangeClick + 0001:0023E378 TfrmEncounter.cmdOKClick + 0001:0023E6F4 TfrmEncounter.FormClose + 0001:0023D630 TfrmEncounter.FormCreate + 0001:0023E6A0 TfrmEncounter.FormDestroy + 0001:0023EA3C TfrmEncounter.FormResize + 0001:0023EB00 TfrmEncounter.FormShow + 0001:0023E718 TfrmEncounter.lstAdmitChange + 0001:0023E830 TfrmEncounter.lstClinicChange + 0001:0023DBD4 TfrmEncounter.pgeVisitChange + 0001:0023E6A4 TfrmEncounter.SetVisitCat + 0001:0030160C TfrmEncounterFrame.AddTabs + 0001:00300FAC TfrmEncounterFrame.CreateChildForms + 0001:003011A4 TfrmEncounterFrame.CreateForms + 0001:003029C4 TfrmEncounterFrame.FormCanResize + 0001:003029BC TfrmEncounterFrame.FormClose + 0001:00301EF8 TfrmEncounterFrame.FormCloseQuery + 0001:00301D70 TfrmEncounterFrame.FormCreate + 0001:00301D00 TfrmEncounterFrame.FormDestroy + 0001:00302658 TfrmEncounterFrame.FormKeyDown + 0001:00301148 TfrmEncounterFrame.FormListContains + 0001:0030156C TfrmEncounterFrame.FormResize + 0001:00300FC8 TfrmEncounterFrame.LoadFormList + 0001:00300F18 TfrmEncounterFrame.PageIDToForm + 0001:00300D60 TfrmEncounterFrame.PageIDToTab + 0001:00301948 TfrmEncounterFrame.SectionClick + 0001:00302524 TfrmEncounterFrame.SelectTab + 0001:00301DC0 TfrmEncounterFrame.SendData + 0001:003027A4 TfrmEncounterFrame.SetFormFonts + 0001:003014A0 TfrmEncounterFrame.SwitchToPage + 0001:00301A50 TfrmEncounterFrame.SynchPCEData + 0001:00302214 TfrmEncounterFrame.TabControlChange + 0001:003022DC TfrmEncounterFrame.TabControlChanging + 0001:003025A4 TfrmEncounterFrame.TabControlExit + 0001:003014D4 TfrmEncounterFrame.tabPageChange + 0001:003022F8 TfrmEncounterFrame.UpdateEncounter + 0001:002F70BC TfrmEncVitals.AssignVitals + 0001:002F7E30 TfrmEncVitals.btnEnterVitalsClick + 0001:002F73E0 TfrmEncVitals.cboHeightChange + 0001:002F74E4 TfrmEncVitals.cboHeightExit + 0001:002F7804 TfrmEncVitals.cboPainChange + 0001:002F724C TfrmEncVitals.cboTempChange + 0001:002F7428 TfrmEncVitals.cboTempExit + 0001:002F73E8 TfrmEncVitals.cboWeightChange + 0001:002F755C TfrmEncVitals.cboWeightExit + 0001:002F7978 TfrmEncVitals.ChangeFocus + 0001:002F7268 TfrmEncVitals.CheckVitalUnit + 0001:002F7BB4 TfrmEncVitals.ClearData + 0001:002F77E4 TfrmEncVitals.FormActivate + 0001:002F75A8 TfrmEncVitals.FormCreate + 0001:002F75F8 TfrmEncVitals.FormDestroy + 0001:002F7C14 TfrmEncVitals.FormKeyDown + 0001:002F780C TfrmEncVitals.FormResize + 0001:002F7698 TfrmEncVitals.FormShow + 0001:002F705C TfrmEncVitals.GetVitHTRate + 0001:002F6524 TfrmEncVitals.HasData + 0001:002F6604 TfrmEncVitals.InitVitalPanel + 0001:002F7630 TfrmEncVitals.lbllastClick + 0001:002F8014 TfrmEncVitals.LoadVitalsList + 0001:002F7C7C TfrmEncVitals.LoadVitalView + 0001:002F79C4 TfrmEncVitals.OK2SaveVitals + 0001:002F6914 TfrmEncVitals.PopulateLastVital + 0001:002F6F78 TfrmEncVitals.SetVitPointer + 0001:002F73F0 TfrmEncVitals.txtMeasBPExit + 0001:002F78B4 TfrmEncVitals.txtMeasHtExit + 0001:002F74AC TfrmEncVitals.txtMeasPulseExit + 0001:002F7474 TfrmEncVitals.txtMeasRespExit + 0001:002F7868 TfrmEncVitals.txtMeasTempExit + 0001:002F792C TfrmEncVitals.txtMeasWtExit + 0001:00111C7C TfrmErrMsg.RPCBShowException + 0001:002F8394 TfrmExams.cboExamResultsChange + 0001:002F8464 TfrmExams.FormCreate + 0001:002F84F0 TfrmExams.UpdateControls + 0001:002F84D0 TfrmExams.UpdateNewItemStr + 0001:001D8438 TfrmFlagOrder.cboAlertRecipientNeedData + 0001:001D83A4 TfrmFlagOrder.cboOnExit + 0001:001D839C TfrmFlagOrder.cmdCancelClick + 0001:001D82D4 TfrmFlagOrder.cmdOKClick + 0001:001D82BC TfrmFlagOrder.FormCreate + 0001:00240BF0 TfrmFlags.FormClose + 0001:00240BE4 TfrmFlags.FormCreate + 0001:002410B4 TfrmFlags.FormDestroy + 0001:00240B78 TfrmFlags.FormKeyDown + 0001:00240B8C TfrmFlags.FormShow + 0001:00240BF8 TfrmFlags.GetNotes + 0001:00240AAC TfrmFlags.lstFlagsClick + 0001:002410C0 TfrmFlags.lvPRFClick + 0001:0024119C TfrmFlags.lvPRFKeyDown + 0001:0033CF18 TfrmFrame.AllowCCOWContextChange + 0001:00331AEC TfrmFrame.AllowContextChangeAll + 0001:0033C1EC TfrmFrame.AppActivated + 0001:0033C230 TfrmFrame.AppDeActivated + 0001:0033F648 TfrmFrame.AppEventsActivate + 0001:0033F720 TfrmFrame.AppEventsShortCut + 0001:00331908 TfrmFrame.AppException + 0001:00338650 TfrmFrame.ChangeFont + 0001:0033E978 TfrmFrame.CheckForDifferentPatient + 0001:0033EB44 TfrmFrame.CheckForDifferentUser + 0001:0033EBCC TfrmFrame.CheckHyperlinkResponse + 0001:00331D6C TfrmFrame.ClearPatient + 0001:0033C29C TfrmFrame.CreateTab + 0001:0033D78C TfrmFrame.ctxContextorCanceled + 0001:0033D9CC TfrmFrame.ctxContextorCommitted + 0001:0033D7C4 TfrmFrame.ctxContextorPending + 0001:00336008 TfrmFrame.DetermineNextTab + 0001:00332168 TfrmFrame.DisplayEncounterText + 0001:00336488 TfrmFrame.ExpandCommand + 0001:0033DE28 TfrmFrame.FindBestCCOWDFN + 0001:00338C04 TfrmFrame.FitToolbar + 0001:0033F6B4 TfrmFrame.FocusApplicationTopForm + 0001:0033CB0C TfrmFrame.FormActivate + 0001:00333CB8 TfrmFrame.FormClose + 0001:00333638 TfrmFrame.FormCloseQuery + 0001:003323A0 TfrmFrame.FormCreate + 0001:00333558 TfrmFrame.FormDestroy + 0001:003394C0 TfrmFrame.FormHelp + 0001:0033C9F0 TfrmFrame.FormKeyDown + 0001:00338308 TfrmFrame.FormResize + 0001:003318C8 TfrmFrame.GetTimedOut + 0001:0033CD4C TfrmFrame.HandleCCOWError + 0001:0033EE08 TfrmFrame.HideEverything + 0001:0033BC40 TfrmFrame.LabInfo1Click + 0001:0033FA04 TfrmFrame.laMHVClick + 0001:0033FA28 TfrmFrame.laVAA2Click + 0001:003377EC TfrmFrame.LoadSizesForUser + 0001:0033C130 TfrmFrame.LoadUserPreferences + 0001:0033BB4C TfrmFrame.lstCIRNLocationsChange + 0001:0033A630 TfrmFrame.lstCIRNLocationsClick + 0001:0033F5F4 TfrmFrame.lstCIRNLocationsExit + 0001:0033F1C8 TfrmFrame.mnuAlertForwardClick + 0001:0033F150 TfrmFrame.mnuAlertRenewClick + 0001:00334554 TfrmFrame.mnuChartTabClick + 0001:00339154 TfrmFrame.mnuEditClick + 0001:00339354 TfrmFrame.mnuEditCopyClick + 0001:00339334 TfrmFrame.mnuEditCutClick + 0001:00339374 TfrmFrame.mnuEditPasteClick + 0001:0033930C TfrmFrame.mnuEditUndoClick + 0001:0033E244 TfrmFrame.mnuFileBreakContextClick + 0001:00336160 TfrmFrame.mnuFileEncounterClick + 0001:003362F4 TfrmFrame.mnuFileExitClick + 0001:00334E68 TfrmFrame.mnuFileNextClick + 0001:0033BCC0 TfrmFrame.mnuFileNotifRemoveClick + 0001:00335960 TfrmFrame.mnuFileOpenClick + 0001:003393D4 TfrmFrame.mnuFilePrintClick + 0001:0033F0F0 TfrmFrame.mnuFilePrintSelectedItemsClick + 0001:0033BAC4 TfrmFrame.mnuFilePrintSetupClick + 0001:0033C198 TfrmFrame.mnuFileRefreshClick + 0001:0033E3F4 TfrmFrame.mnuFileResumeContextGetClick + 0001:0033E604 TfrmFrame.mnuFileResumeContextSetClick + 0001:00336188 TfrmFrame.mnuFileReviewClick + 0001:00339050 TfrmFrame.mnuFontSizeClick + 0001:0033F294 TfrmFrame.mnuGECStatusClick + 0001:00337084 TfrmFrame.mnuHelpAboutClick + 0001:00336FC8 TfrmFrame.mnuHelpBrokerClick + 0001:00336FE0 TfrmFrame.mnuHelpListsClick + 0001:0033706C TfrmFrame.mnuHelpSymbolsClick + 0001:00333970 TfrmFrame.mnuToolsClick + 0001:0033F75C TfrmFrame.mnuToolsGraphingClick + 0001:0033C110 TfrmFrame.mnuToolsOptionsClick + 0001:0033FF08 TfrmFrame.mnuViewInformationClick + 0001:003363C0 TfrmFrame.mnuViewPostingsClick + 0001:00334724 TfrmFrame.PageIDToTab + 0001:0033A60C TfrmFrame.pnlCIRNClick + 0001:0033F9B4 TfrmFrame.pnlCIRNMouseDown + 0001:0033F9DC TfrmFrame.pnlCIRNMouseUp + 0001:0033F0CC TfrmFrame.pnlFlagClick + 0001:0033F534 TfrmFrame.pnlFlagEnter + 0001:0033F578 TfrmFrame.pnlFlagExit + 0001:0033F07C TfrmFrame.pnlFlagMouseDown + 0001:0033F0A4 TfrmFrame.pnlFlagMouseUp + 0001:0033CC8C TfrmFrame.pnlPatientClick + 0001:0033727C TfrmFrame.pnlPatientMouseDown + 0001:00337360 TfrmFrame.pnlPatientMouseUp + 0001:0033CD28 TfrmFrame.pnlPostingsClick + 0001:003376BC TfrmFrame.pnlPostingsMouseDown + 0001:00337754 TfrmFrame.pnlPostingsMouseUp + 0001:0033CCD4 TfrmFrame.pnlPrimaryCareClick + 0001:0033CB38 TfrmFrame.pnlPrimaryCareEnter + 0001:0033CBA8 TfrmFrame.pnlPrimaryCareExit + 0001:0033758C TfrmFrame.pnlPrimaryCareMouseDown + 0001:00337624 TfrmFrame.pnlPrimaryCareMouseUp + 0001:0033CCF8 TfrmFrame.pnlRemindersClick + 0001:00339C84 TfrmFrame.pnlRemindersMouseDown + 0001:00339CC8 TfrmFrame.pnlRemindersMouseUp + 0001:0033CCB0 TfrmFrame.pnlVisitClick + 0001:00337444 TfrmFrame.pnlVisitMouseDown + 0001:003374E8 TfrmFrame.pnlVisitMouseUp + 0001:0033B9E4 TfrmFrame.popCIRNCloseClick + 0001:0033BA24 TfrmFrame.popCIRNSelectAllClick + 0001:0033BA74 TfrmFrame.popCIRNSelectNoneClick + 0001:00332324 TfrmFrame.RefreshFixedStatusWidth + 0001:003397DC TfrmFrame.RemindersChanged + 0001:0033C654 TfrmFrame.ReportsOnlyDisplay + 0001:00337D78 TfrmFrame.SaveSizesForUser + 0001:0033C180 TfrmFrame.SaveUserPreferences + 0001:0033F664 TfrmFrame.ScreenActiveFormChange + 0001:00335888 TfrmFrame.SetBADxList + 0001:00333E48 TfrmFrame.SetDebugMenu + 0001:00339D10 TfrmFrame.SetUpCIRN + 0001:00334808 TfrmFrame.SetupPatient + 0001:003336D8 TfrmFrame.SetUserTools + 0001:0033EF1C TfrmFrame.ShowEverything + 0001:0033C59C TfrmFrame.ShowHideChartTabMenus + 0001:00333178 TfrmFrame.StartCCOWContextor + 0001:00337200 TfrmFrame.stsAreaDrawPanel + 0001:00337118 TfrmFrame.stsAreaMouseDown + 0001:00337184 TfrmFrame.stsAreaMouseUp + 0001:00334324 TfrmFrame.SwitchToPage + 0001:0033C5F4 TfrmFrame.TabExists + 0001:003345C4 TfrmFrame.tabPageChange + 0001:0033F5BC TfrmFrame.tabPageMouseUp + 0001:00334788 TfrmFrame.TabToPageID + 0001:003318E0 TfrmFrame.TimeOutAction + 0001:003318A8 TfrmFrame.TimeoutCondition + 0001:00339010 TfrmFrame.ToggleMenuItemChecked + 0001:00336CF8 TfrmFrame.ToolClick + 0001:00333490 TfrmFrame.UMInitiate + 0001:00333EC4 TfrmFrame.UMNewOrder + 0001:003342B4 TfrmFrame.UMShowPage + 0001:0033709C TfrmFrame.UMStatusText + 0001:0033E07C TfrmFrame.UpdateCCOWContext + 0001:003339FC TfrmFrame.UpdateECSParameter + 0001:0033C848 TfrmFrame.UpdatePtInfoOnRefresh + 0001:00333BF8 TfrmFrame.ValidECSUser + 0001:0033FA4C TfrmFrame.ViewInfo + 0001:00334260 TfrmFrame.WMSetFocus + 0001:003395A4 TfrmFrame.WMSysCommand + 0001:001B0984 TfrmGAF.AllowTabChange + 0001:001B0640 TfrmGAF.BADData + 0001:001B0AB4 TfrmGAF.btnURLClick + 0001:001B097C TfrmGAF.cboGAFProviderExit + 0001:001B0618 TfrmGAF.cboGAFProviderNeedData + 0001:001B0978 TfrmGAF.dteGAFExit + 0001:001B08A4 TfrmGAF.edtScoreChange + 0001:001B0A24 TfrmGAF.FormActivate + 0001:001B0B10 TfrmGAF.FormCreate + 0001:001B0A98 TfrmGAF.FormShow + 0001:001B099C TfrmGAF.GetGAFScore + 0001:001B042C TfrmGAF.LoadScores + 0001:0015722C TfrmGraphProfiles.AddToList + 0001:00157598 TfrmGraphProfiles.ArrangeList + 0001:001586F4 TfrmGraphProfiles.AssignHints + 0001:00157798 TfrmGraphProfiles.AssignProfile + 0001:00154490 TfrmGraphProfiles.btnClearClick + 0001:00154E9C TfrmGraphProfiles.btnCloseClick + 0001:001544F8 TfrmGraphProfiles.btnDeleteClick + 0001:00154F0C TfrmGraphProfiles.btnRemoveAllClick + 0001:00154ECC TfrmGraphProfiles.btnRemoveClick + 0001:00154F30 TfrmGraphProfiles.btnRemoveOneClick + 0001:001548B8 TfrmGraphProfiles.btnRenameClick + 0001:00154FD8 TfrmGraphProfiles.btnSaveClick + 0001:00155FC0 TfrmGraphProfiles.cboAllItemsChange + 0001:001558F8 TfrmGraphProfiles.cboAllItemsClick + 0001:001560E8 TfrmGraphProfiles.cboAllItemsNeedData + 0001:001556E0 TfrmGraphProfiles.CheckPublic + 0001:00154F48 TfrmGraphProfiles.CheckToClear + 0001:00158290 TfrmGraphProfiles.FillSource + 0001:001590F8 TfrmGraphProfiles.FormClose + 0001:00154438 TfrmGraphProfiles.FormCreate + 0001:00154450 TfrmGraphProfiles.FormShow + 0001:00156190 TfrmGraphProfiles.lstItemsDisplayedChange + 0001:00156308 TfrmGraphProfiles.lstItemsDisplayedDblClick + 0001:001565A8 TfrmGraphProfiles.lstSourceChange + 0001:001571C0 TfrmGraphProfiles.lstSourceDblClick + 0001:001585E4 TfrmGraphProfiles.ProfileExists + 0001:001563AC TfrmGraphProfiles.QualifierDelete + 0001:00155804 TfrmGraphProfiles.radSourceAllClick + 0001:0015907C TfrmGraphProfiles.wmNCLButtonDown + 0001:0015EF98 TfrmGraphs.AdjustTimeframe + 0001:00164AFC TfrmGraphs.AllDetails + 0001:00162D48 TfrmGraphs.AllTypeDate + 0001:00168BDC TfrmGraphs.AssignProfile + 0001:001697AC TfrmGraphs.AutoSelect + 0001:0016B574 TfrmGraphs.BaseResize + 0001:0015EF0C TfrmGraphs.BottomAxis + 0001:0016AF94 TfrmGraphs.BPValue + 0001:0015CBE4 TfrmGraphs.btnChangeSettingsClick + 0001:0015CBDC TfrmGraphs.btnCloseClick + 0001:001676A0 TfrmGraphs.btnGraphSelectionsClick + 0001:00166C6C TfrmGraphs.cboDateRangeChange + 0001:00171930 TfrmGraphs.cboDateRangeDropDown + 0001:00168BB4 TfrmGraphs.cboViewsBottomChange + 0001:001719A8 TfrmGraphs.cboViewsBottomDropDown + 0001:001719B8 TfrmGraphs.cboViewsBottomDropDownClose + 0001:00171B34 TfrmGraphs.cboViewsBottomEnter + 0001:00168B90 TfrmGraphs.cboViewsTopChange + 0001:00171988 TfrmGraphs.cboViewsTopDropDown + 0001:00171998 TfrmGraphs.cboViewsTopDropDownClose + 0001:00162550 TfrmGraphs.ChangeStyle + 0001:0016ABF4 TfrmGraphs.chartBaseClickLegend + 0001:001628F4 TfrmGraphs.chartBaseClickSeries + 0001:00164230 TfrmGraphs.chartBaseMouseDown + 0001:0016FDCC TfrmGraphs.chartBaseMouseMove + 0001:0015F3A0 TfrmGraphs.ChartOnUndoZoom + 0001:0015F0BC TfrmGraphs.ChartOnZoom + 0001:0016229C TfrmGraphs.ChartStyle + 0001:00169348 TfrmGraphs.CheckProfile + 0001:00167FA0 TfrmGraphs.CheckToAddData + 0001:0015D014 TfrmGraphs.chkDualViewsClick + 0001:0015EE94 TfrmGraphs.chkItemsBottomClick + 0001:00171AF0 TfrmGraphs.chkItemsBottomEnter + 0001:0015EE20 TfrmGraphs.chkItemsTopClick + 0001:00165C34 TfrmGraphs.CreatePatientHeader + 0001:0015D92C TfrmGraphs.DateRangeItems + 0001:0015DD50 TfrmGraphs.DateRangeMultiItems + 0001:00166A70 TfrmGraphs.DCName + 0001:0015E9F0 TfrmGraphs.DisplayData + 0001:0015E8C4 TfrmGraphs.DisplayType + 0001:00169098 TfrmGraphs.ExpandTax + 0001:0015DEB4 TfrmGraphs.FileNameX + 0001:0015BB9C TfrmGraphs.FillViews + 0001:0015D2C8 TfrmGraphs.FilterListView + 0001:0016B95C TfrmGraphs.FixedDates + 0001:0016B830 TfrmGraphs.FMCorrectedDate + 0001:001664B8 TfrmGraphs.FMToDateTime + 0001:0015BFB4 TfrmGraphs.FormClose + 0001:0015B1F4 TfrmGraphs.FormCreate + 0001:001719C8 TfrmGraphs.FormDestroy + 0001:0015BEA4 TfrmGraphs.FormShow + 0001:00166024 TfrmGraphs.GetData + 0001:0015BFE4 TfrmGraphs.GetSize + 0001:001666B8 TfrmGraphs.GraphTypeNum + 0001:001703D4 TfrmGraphs.HideDates + 0001:0016BC1C TfrmGraphs.HideGraphs + 0001:0016BA0C TfrmGraphs.HighLow + 0001:00166860 TfrmGraphs.HSAbbrev + 0001:0017031C TfrmGraphs.InactivateHint + 0001:0015E188 TfrmGraphs.InitialData + 0001:0015B91C TfrmGraphs.Initialize + 0001:0015BB98 TfrmGraphs.InitialRetain + 0001:00167364 TfrmGraphs.InvVal + 0001:0016404C TfrmGraphs.ItemCheck + 0001:001636F4 TfrmGraphs.ItemDateRange + 0001:0015E048 TfrmGraphs.ItemName + 0001:00167C94 TfrmGraphs.ItemsClick + 0001:00169924 TfrmGraphs.LabData + 0001:0015E638 TfrmGraphs.LoadDateRange + 0001:00169718 TfrmGraphs.LoadDisplayCheck + 0001:0015D0C4 TfrmGraphs.LoadListView + 0001:0015E758 TfrmGraphs.LoadType + 0001:00171644 TfrmGraphs.lvwItemsBottomChange + 0001:00168494 TfrmGraphs.lvwItemsBottomClick + 0001:0016764C TfrmGraphs.lvwItemsBottomColumnClick + 0001:0016752C TfrmGraphs.lvwItemsBottomCompare + 0001:00171B5C TfrmGraphs.lvwItemsBottomEnter + 0001:00171600 TfrmGraphs.lvwItemsTopChange + 0001:001682BC TfrmGraphs.lvwItemsTopClick + 0001:001674D8 TfrmGraphs.lvwItemsTopColumnClick + 0001:001673B8 TfrmGraphs.lvwItemsTopCompare + 0001:00171AA4 TfrmGraphs.lvwItemsTopEnter + 0001:00171688 TfrmGraphs.lvwItemsTopKeyDown + 0001:0016F0DC TfrmGraphs.MakeAGanttSeries + 0001:0016E718 TfrmGraphs.MakeArrowSeries + 0001:0016D5EC TfrmGraphs.MakeBarSeries + 0001:001612E0 TfrmGraphs.MakeDateline + 0001:0016EDF4 TfrmGraphs.MakeGanttSeries + 0001:0016BCCC TfrmGraphs.MakeLineSeries + 0001:0016DAEC TfrmGraphs.MakeManyGanttSeries + 0001:0016D31C TfrmGraphs.MakePointSeries + 0001:0015F7FC TfrmGraphs.MakeSeparate + 0001:00160130 TfrmGraphs.MakeTogether + 0001:0016E010 TfrmGraphs.MakeVisitGanttSeries + 0001:0016EA5C TfrmGraphs.MakeWeightedArrowSeries + 0001:0016E480 TfrmGraphs.MakeWeightedGanttSeries + 0001:0016B140 TfrmGraphs.mnuMedsasganttClick + 0001:00161FE8 TfrmGraphs.mnuPopGraph3DClick + 0001:001620F0 TfrmGraphs.mnuPopGraphClearClick + 0001:00164ED0 TfrmGraphs.mnuPopGraphCopyClick + 0001:001621A8 TfrmGraphs.mnuPopGraphDatesClick + 0001:00164724 TfrmGraphs.mnuPopGraphDetailsClick + 0001:001621C0 TfrmGraphs.mnuPopGraphDualViewsClick + 0001:00171970 TfrmGraphs.mnuPopGraphFixedClick + 0001:0016224C TfrmGraphs.mnuPopGraphGradientClick + 0001:0016226C TfrmGraphs.mnuPopGraphHintsClick + 0001:00162140 TfrmGraphs.mnuPopGraphHorizontalClick + 0001:00163C54 TfrmGraphs.mnuPopGraphIsolateClick + 0001:00162284 TfrmGraphs.mnuPopGraphLegendClick + 0001:00161FD0 TfrmGraphs.mnuPopGraphLinesClick + 0001:0017084C TfrmGraphs.mnuPopGraphPrintClick + 0001:0016B334 TfrmGraphs.mnuPopGraphRemoveClick + 0001:0016B170 TfrmGraphs.mnuPopGraphResetClick + 0001:001621F0 TfrmGraphs.mnuPopGraphSeparate1Click + 0001:00162018 TfrmGraphs.mnuPopGraphSortClick + 0001:00161BA8 TfrmGraphs.mnuPopGraphSplitClick + 0001:00170330 TfrmGraphs.mnuPopGraphStayOnTopClick + 0001:00164464 TfrmGraphs.mnuPopGraphStuffPopup + 0001:00161758 TfrmGraphs.mnuPopGraphSwapClick + 0001:0016B538 TfrmGraphs.mnuPopGraphTodayClick + 0001:00162000 TfrmGraphs.mnuPopGraphValuesClick + 0001:00162174 TfrmGraphs.mnuPopGraphVerticalClick + 0001:001704D4 TfrmGraphs.mnuPopGraphZoomBackClick + 0001:00161678 TfrmGraphs.NextColor + 0001:0016B620 TfrmGraphs.NextPointerStyle + 0001:00164CB4 TfrmGraphs.OneDayTypeDetails + 0001:0016B5F4 TfrmGraphs.pnlScrollTopBaseResize + 0001:001611D4 TfrmGraphs.PortionSize + 0001:0016A3D8 TfrmGraphs.RefUnits + 0001:0016AA1C TfrmGraphs.ResetSpec + 0001:00168670 TfrmGraphs.SelCopy + 0001:00161F04 TfrmGraphs.SelectItem + 0001:0016A920 TfrmGraphs.SelectRef + 0001:001686E8 TfrmGraphs.SelReset + 0001:0016B1AC TfrmGraphs.serDatelineTopGetMarkText + 0001:001719D0 TfrmGraphs.SetFontSize + 0001:00168CC4 TfrmGraphs.SetProfile + 0001:0015C5C0 TfrmGraphs.SetSize + 0001:0015F614 TfrmGraphs.SizeDates + 0001:00161460 TfrmGraphs.SizeTogether + 0001:0015BE80 TfrmGraphs.SourceContext + 0001:0015B76C TfrmGraphs.SourcesDefault + 0001:0016F3A4 TfrmGraphs.splGraphsMoved + 0001:00166BCC TfrmGraphs.splItemsBottomMoved + 0001:00166C1C TfrmGraphs.splItemsTopMoved + 0001:0017037C TfrmGraphs.StayOnTop + 0001:001672F8 TfrmGraphs.StdDev + 0001:0016695C TfrmGraphs.TempCheck + 0001:00171790 TfrmGraphs.testcount1Click + 0001:0016FFE4 TfrmGraphs.timHintPauseTimer + 0001:0015E538 TfrmGraphs.TypeIsDisplayed + 0001:0015E47C TfrmGraphs.TypeIsLoaded + 0001:0015DBF8 TfrmGraphs.UpdateView + 0001:0016F3C8 TfrmGraphs.ValueText + 0001:00161598 TfrmGraphs.Vfactor + 0001:00168834 TfrmGraphs.ViewsChange + 0001:00167A54 TfrmGraphs.ViewSelections + 0001:00170770 TfrmGraphs.ZoomTo + 0001:00170524 TfrmGraphs.ZoomUpdate + 0001:001705FC TfrmGraphs.ZoomUpdateInfo + 0001:00152BE8 TfrmGraphSettings.AssignHints + 0001:00151284 TfrmGraphSettings.btnAllClick + 0001:001512C4 TfrmGraphSettings.btnCloseClick + 0001:001515BC TfrmGraphSettings.btnPublicClick + 0001:00151A7C TfrmGraphSettings.CheckSetting + 0001:00151928 TfrmGraphSettings.chklstOptionsClickCheck + 0001:0015132C TfrmGraphSettings.DisplaySettings + 0001:001536D4 TfrmGraphSettings.FormClose + 0001:00151198 TfrmGraphSettings.FormCreate + 0001:00152B44 TfrmGraphSettings.FormShow + 0001:00151B50 TfrmGraphSettings.SaveClick + 0001:00151D4C TfrmGraphSettings.spnMaxGraphsClick + 0001:001521C8 TfrmGraphSettings.spnMaxSelectClick + 0001:00152154 TfrmGraphSettings.spnMinGraphHeightClick + 0001:00151DC0 TfrmGraphSettings.txtMaxGraphsChange + 0001:00151FB0 TfrmGraphSettings.txtMaxGraphsExit + 0001:00152128 TfrmGraphSettings.txtMaxGraphsKeyPress + 0001:00152464 TfrmGraphSettings.txtMaxSelectChange + 0001:0015286C TfrmGraphSettings.txtMaxSelectExit + 0001:00152AC8 TfrmGraphSettings.txtMaxSelectKeyPress + 0001:0015223C TfrmGraphSettings.txtMinGraphHeightChange + 0001:0015268C TfrmGraphSettings.txtMinGraphHeightExit + 0001:00152A4C TfrmGraphSettings.txtMinGraphHeightKeyPress + 0001:00153658 TfrmGraphSettings.wmNCLButtonDown + 0001:002F88DC TfrmHealthFactors.cboHealthLevelChange + 0001:002F89AC TfrmHealthFactors.FormCreate + 0001:002F8A40 TfrmHealthFactors.UpdateControls + 0001:002F8A20 TfrmHealthFactors.UpdateNewItemStr + 0001:002FC564 TfrmHFSearch.btnOKClick + 0001:002FC080 TfrmHFSearch.cbxSearchChange + 0001:002FC2A0 TfrmHFSearch.FormCreate + 0001:002FC674 TfrmHFSearch.tvSearchChange + 0001:002FC5E0 TfrmHFSearch.tvSearchDblClick + 0001:002FC5E8 TfrmHFSearch.tvSearchGetImageIndex + 0001:002FC760 TfrmHFSearch.UpdateCat + 0001:001D7660 TfrmHoldOrders.cmdCancelClick + 0001:001D7650 TfrmHoldOrders.cmdOKClick + 0001:001D7648 TfrmHoldOrders.FormCreate + 0001:0018C958 TfrmIconLegend.btnOKClick + 0001:0018C9E4 TfrmIconLegend.FormClose + 0001:0018C9E8 TfrmIconLegend.FormDestroy + 0001:0018CB40 TfrmIconLegend.FormKeyDown + 0001:0018CA04 TfrmIconLegend.SetFontSize + 0001:0018C960 TfrmIconLegend.ShowTab + 0001:0018CABC TfrmIconLegend.SnapLabels + 0001:002F9CD0 TfrmImmunizations.cboImmReactionChange + 0001:002F9C00 TfrmImmunizations.cboImmSeriesChange + 0001:002F9DA0 TfrmImmunizations.ckbContraClick + 0001:002F9E14 TfrmImmunizations.FormCreate + 0001:002F9F00 TfrmImmunizations.UpdateControls + 0001:002F9E90 TfrmImmunizations.UpdateNewItemStr + 0001:001F2B04 TfrmInvalidActionList.btnOKClick + 0001:001F2B0C TfrmInvalidActionList.FormCreate + 0001:001F2EE8 TfrmInvalidActionList.FormResize + 0001:001F2B24 TfrmInvalidActionList.hdrActionSectionResize + 0001:001F26D8 TfrmInvalidActionList.lstActDeniedOrdersDrawItem + 0001:001F2914 TfrmInvalidActionList.lstActDeniedOrdersMeasureItem + 0001:001F2DAC TfrmInvalidActionList.lstValidOrdersDrawItem + 0001:001F2C78 TfrmInvalidActionList.lstValidOrdersMeasureItem + 0001:001F2B54 TfrmInvalidActionList.RedrawActiveList + 0001:0025F194 TfrmLabCollectTimes.calLabCollectChange + 0001:0025F2DC TfrmLabCollectTimes.calMonthClick + 0001:0025F320 TfrmLabCollectTimes.calMonthKeyDown + 0001:0025F2C4 TfrmLabCollectTimes.cmdCancelClick + 0001:0025F1E0 TfrmLabCollectTimes.cmdOKClick + 0001:0025F318 TfrmLabCollectTimes.FormCreate + 0001:0031B790 TfrmLabInfo.btnOKClick + 0001:0031B7FC TfrmLabInfo.cboTestsClick + 0001:0031B7D4 TfrmLabInfo.cboTestsNeedData + 0001:0031B7A0 TfrmLabInfo.FormCreate + 0001:0030CD04 TfrmLabPrint.cboDeviceChange + 0001:0030CDD0 TfrmLabPrint.cboDeviceNeedData + 0001:0030D314 TfrmLabPrint.cmdCancelClick + 0001:0030CDF8 TfrmLabPrint.cmdOKClick + 0001:0030CC10 TfrmLabPrint.DisplaySelectDevice + 0001:0030CCC8 TfrmLabPrint.FormCreate + 0001:0030D31C TfrmLabPrint.FormDestroy + 0001:00311218 TfrmLabs.AlignList + 0001:00310C30 TfrmLabs.AllowContextChange + 0001:00317EC4 TfrmLabs.BeginEndDates + 0001:0031652C TfrmLabs.chk3DClick + 0001:00319278 TfrmLabs.ChkBrowser + 0001:00316BB8 TfrmLabs.chkGraph3DClick + 0001:00316B94 TfrmLabs.chkGraphValuesClick + 0001:00316BD8 TfrmLabs.chkGraphZoomClick + 0001:00316508 TfrmLabs.chkValuesClick + 0001:00317428 TfrmLabs.chkZoomClick + 0001:00317898 TfrmLabs.chtChartClickLegend + 0001:00317770 TfrmLabs.chtChartClickSeries + 0001:00317748 TfrmLabs.chtChartMouseDown + 0001:00317494 TfrmLabs.chtChartUndoZoom + 0001:00310D90 TfrmLabs.ClearPtData + 0001:00315120 TfrmLabs.cmdNextClick + 0001:00315E28 TfrmLabs.cmdOldClick + 0001:00313698 TfrmLabs.cmdOtherTestsClick + 0001:0031523C TfrmLabs.cmdPrevClick + 0001:00315D78 TfrmLabs.cmdRecentClick + 0001:00319328 TfrmLabs.CommonComponentVisible + 0001:00311100 TfrmLabs.DisplayHeading + 0001:00310E24 TfrmLabs.DisplayPage + 0001:00311340 TfrmLabs.ExtlstReportsClick + 0001:0031490C TfrmLabs.FillComments + 0001:0031458C TfrmLabs.FillGrid + 0001:00316308 TfrmLabs.FMToDateTime + 0001:00310964 TfrmLabs.FormCreate + 0001:00314558 TfrmLabs.FormDestroy + 0001:00315EBC TfrmLabs.FormResize + 0001:00316E84 TfrmLabs.FreezeText1Click + 0001:00314AB4 TfrmLabs.GetInterimGrid + 0001:00315C74 TfrmLabs.GetStartStop + 0001:00318460 TfrmLabs.GoRemote + 0001:00316DD0 TfrmLabs.GotoBottom1Click + 0001:00316DA4 TfrmLabs.GotoTop1Click + 0001:0031654C TfrmLabs.GraphChart + 0001:003136A0 TfrmLabs.GraphList + 0001:00314418 TfrmLabs.GridComments + 0001:00313928 TfrmLabs.HGrid + 0001:00312298 TfrmLabs.lstDatesClick + 0001:00312234 TfrmLabs.lstHeadersClick + 0001:00311338 TfrmLabs.lstReportsClick + 0001:00316B28 TfrmLabs.lstTestGraphClick + 0001:003194EC TfrmLabs.Memo1KeyUp + 0001:003162E4 TfrmLabs.pnlRightResize + 0001:00317664 TfrmLabs.pop3DClick + 0001:003174B4 TfrmLabs.popChartPopup + 0001:003174A8 TfrmLabs.popCopyClick + 0001:00317950 TfrmLabs.popDetailsClick + 0001:00317D5C TfrmLabs.popPrintClick + 0001:00317024 TfrmLabs.PopupMenu1Popup + 0001:003175FC TfrmLabs.popValuesClick + 0001:00317734 TfrmLabs.popZoomBackClick + 0001:003176CC TfrmLabs.popZoomClick + 0001:00317D70 TfrmLabs.PrintLabGraph + 0001:00317178 TfrmLabs.ProcessNotifications + 0001:00316974 TfrmLabs.ragCorGClick + 0001:0031694C TfrmLabs.ragHorVClick + 0001:003105C0 TfrmLabs.RequestPrint + 0001:003110E8 TfrmLabs.SetFontSize + 0001:00318B80 TfrmLabs.TabControl1Change + 0001:00318118 TfrmLabs.Timer1Timer + 0001:00316FE8 TfrmLabs.UnfreezeText1Click + 0001:00310AB8 TfrmLabs.UpdateRemoteStatus + 0001:00313ECC TfrmLabs.VGrid + 0001:00319128 TfrmLabs.WebBrowser1DocumentComplete + 0001:0031548C TfrmLabs.WorksheetChart + 0001:0030FB40 TfrmLabTest.cboListEnter + 0001:0030FB50 TfrmLabTest.cboListExit + 0001:0030FA08 TfrmLabTest.cboListNeedData + 0001:0030FA30 TfrmLabTest.cboSpecimenNeedData + 0001:0030FA58 TfrmLabTest.cmdOKClick + 0001:0030F7C4 TfrmLabTest.FormCreate + 0001:0030E3B8 TfrmLabTestGroups.AddTests + 0001:0030E360 TfrmLabTestGroups.cboSpecimenNeedData + 0001:0030EB68 TfrmLabTestGroups.cboTestsChange + 0001:0030EB88 TfrmLabTestGroups.cboTestsEnter + 0001:0030EB98 TfrmLabTestGroups.cboTestsExit + 0001:0030DE10 TfrmLabTestGroups.cboTestsNeedData + 0001:0030E388 TfrmLabTestGroups.cboUsersClick + 0001:0030E338 TfrmLabTestGroups.cboUsersNeedData + 0001:0030E788 TfrmLabTestGroups.cmdAddClick + 0001:0030EBA8 TfrmLabTestGroups.cmdAddTestClick + 0001:0030DF10 TfrmLabTestGroups.cmdClearClick + 0001:0030E984 TfrmLabTestGroups.cmdDeleteClick + 0001:0030E0F0 TfrmLabTestGroups.cmdDownClick + 0001:0030DE38 TfrmLabTestGroups.cmdOKClick + 0001:0030DF2C TfrmLabTestGroups.cmdRemoveClick + 0001:0030E5E8 TfrmLabTestGroups.cmdReplaceClick + 0001:0030DFE0 TfrmLabTestGroups.cmdUpClick + 0001:0030DAB0 TfrmLabTestGroups.FormCreate + 0001:0030E200 TfrmLabTestGroups.lstListClick + 0001:0030E50C TfrmLabTestGroups.lstTestGroupsClick + 0001:0030EBE8 TfrmLabTestGroups.pnlDownButtonEnter + 0001:0030EBF8 TfrmLabTestGroups.pnlDownButtonExit + 0001:0030EC20 TfrmLabTestGroups.pnlDownButtonResize + 0001:0030EBC8 TfrmLabTestGroups.pnlUpButtonEnter + 0001:0030EBD8 TfrmLabTestGroups.pnlUpButtonExit + 0001:0030EC08 TfrmLabTestGroups.pnlUpButtonResize + 0001:0030E538 TfrmLabTestGroups.TestGroupEnable + 0001:0030F288 TfrmLabTests.cboTestsChange + 0001:0030F2A8 TfrmLabTests.cboTestsEnter + 0001:0030F2B8 TfrmLabTests.cboTestsExit + 0001:0030F0D0 TfrmLabTests.cboTestsNeedData + 0001:0030F2C8 TfrmLabTests.cmdAddClick + 0001:0030F168 TfrmLabTests.cmdClearClick + 0001:0030F0F8 TfrmLabTests.cmdOKClick + 0001:0030F184 TfrmLabTests.cmdRemoveClick + 0001:0030F3F4 TfrmLabTests.FormClose + 0001:0030F09C TfrmLabTests.FormCreate + 0001:0030F3EC TfrmLabTests.FormShow + 0001:0030F238 TfrmLabTests.lstListClick + 0001:001D4AB0 TfrmLkUpLocation.cboLocationNeedData + 0001:001D4B2C TfrmLkUpLocation.cmdCancelClick + 0001:001D4B1C TfrmLkUpLocation.cmdOKClick + 0001:001D4A98 TfrmLkUpLocation.FormCreate + 0001:001ED004 TfrmMedCopy.cmdCancelClick + 0001:001ECE50 TfrmMedCopy.cmdOKClick + 0001:001ECDBC TfrmMedCopy.FormCreate + 0001:001ED2E0 TfrmMedCopy.FormKeyDown + 0001:001ED1F4 TfrmMedCopy.fraEvntDelayListcboEvntListChange + 0001:001ED2B0 TfrmMedCopy.fraEvntDelayListmlstEventsChange + 0001:001ED22C TfrmMedCopy.fraEvntDelayListmlstEventsDblClick + 0001:001ED00C TfrmMedCopy.radDelayedClick + 0001:001ED1CC TfrmMedCopy.radReleaseClick + 0001:001ED21C TfrmMedCopy.UMStillDelay + 0001:001F999C TfrmMeds.CheckMedStatus + 0001:001F9930 TfrmMeds.ClearChildODList + 0001:001F4198 TfrmMeds.ClearPtData + 0001:001F4250 TfrmMeds.DisplayPage + 0001:001F4FE0 TfrmMeds.FormCreate + 0001:001F53F8 TfrmMeds.FormDestroy + 0001:001F8C68 TfrmMeds.FormMouseUp + 0001:001F8A38 TfrmMeds.FormResize + 0001:001F8C48 TfrmMeds.FormShow + 0001:001F5D80 TfrmMeds.GetActionText + 0001:001F63C4 TfrmMeds.GetHeader + 0001:001F5FB4 TfrmMeds.GetInstructText + 0001:001F612C TfrmMeds.GetListText + 0001:001F6418 TfrmMeds.GetMedList + 0001:001F646C TfrmMeds.GetPharmacyOrders + 0001:001F627C TfrmMeds.GetPlainText + 0001:001F9174 TfrmMeds.GetTotalSectionsWidth + 0001:001F94D8 TfrmMeds.hdrMedsInMouseDown + 0001:001F97C8 TfrmMeds.hdrMedsInMouseUp + 0001:001F8BF4 TfrmMeds.hdrMedsInResize + 0001:001FA02C TfrmMeds.hdrMedsInSectionClick + 0001:001F6BE4 TfrmMeds.hdrMedsInSectionResize + 0001:001F94B8 TfrmMeds.hdrMedsNonVAMouseDown + 0001:001F9660 TfrmMeds.hdrMedsNonVAMouseUp + 0001:001F8BA0 TfrmMeds.hdrMedsNonVAResize + 0001:001FA00C TfrmMeds.hdrMedsNonVASectionClick + 0001:001F89C0 TfrmMeds.hdrMedsNonVASectionResize + 0001:001F9498 TfrmMeds.hdrMedsOutMouseDown + 0001:001F94F8 TfrmMeds.hdrMedsOutMouseUp + 0001:001F8B4C TfrmMeds.hdrMedsOutResize + 0001:001F9FEC TfrmMeds.hdrMedsOutSectionClick + 0001:001F6B6C TfrmMeds.hdrMedsOutSectionResize + 0001:001F8CD4 TfrmMeds.InitfMedsSize + 0001:001F80F8 TfrmMeds.ListSelected + 0001:001F6A18 TfrmMeds.lstMedsDblClick + 0001:001F66BC TfrmMeds.lstMedsDrawItem + 0001:001F69F4 TfrmMeds.lstMedsExit + 0001:001F6A34 TfrmMeds.lstMedsInClick + 0001:001F64C0 TfrmMeds.lstMedsMeasureItem + 0001:001F88E4 TfrmMeds.lstMedsNonVAClick + 0001:001F8980 TfrmMeds.lstMedsNonVADblClick + 0001:001F899C TfrmMeds.lstMedsNonVAExit + 0001:001F6AD0 TfrmMeds.lstMedsOutClick + 0001:001F85C4 TfrmMeds.MakeSelectedList + 0001:001F7380 TfrmMeds.mnuActChangeClick + 0001:001F6C5C TfrmMeds.mnuActClick + 0001:001F75F4 TfrmMeds.mnuActCopyClick + 0001:001F6D74 TfrmMeds.mnuActDCClick + 0001:001F6F2C TfrmMeds.mnuActHoldClick + 0001:001F7CDC TfrmMeds.mnuActNewClick + 0001:001F7F40 TfrmMeds.mnuActRefillClick + 0001:001F70EC TfrmMeds.mnuActRenewClick + 0001:001F4568 TfrmMeds.mnuChartTabClick + 0001:001F9D40 TfrmMeds.mnuOptimizeFieldsClick + 0001:001F88C8 TfrmMeds.mnuViewClick + 0001:001F54AC TfrmMeds.mnuViewDetailClick + 0001:001F5848 TfrmMeds.mnuViewHistoryClick + 0001:001F9B70 TfrmMeds.mnuViewInformationClick + 0001:001F46C4 TfrmMeds.NotifyOrder + 0001:001F8EF4 TfrmMeds.PatientStatusChanged + 0001:001F88AC TfrmMeds.popMedPopup + 0001:001F5A90 TfrmMeds.RefreshMedLists + 0001:001F4FA4 TfrmMeds.SetFontSize + 0001:001F9300 TfrmMeds.SetSectionWidths + 0001:001F8C8C TfrmMeds.splitBottomMoved + 0001:001F8CB0 TfrmMeds.splitTopMoved + 0001:001F8890 TfrmMeds.SynchListToOrders + 0001:001F81A8 TfrmMeds.ValidateSelected + 0001:001F9B50 TfrmMeds.ViewInfo + 0001:002C02E0 TfrmMHTest.Answers + 0001:002C1FEC TfrmMHTest.btnClearClick + 0001:002C1C40 TfrmMHTest.btnOKClick + 0001:002C0C08 TfrmMHTest.BuildControls + 0001:002C0F60 TfrmMHTest.CurrentQ + 0001:002C0B7C TfrmMHTest.FormCreate + 0001:002C0BD0 TfrmMHTest.FormDestroy + 0001:002C1074 TfrmMHTest.FormKeyDown + 0001:002C1A40 TfrmMHTest.FormShow + 0001:002C0E68 TfrmMHTest.GetQText + 0001:002C0FF0 TfrmMHTest.GotoQ + 0001:002C0604 TfrmMHTest.LoadTest + 0001:002C1AA4 TfrmMHTest.sbMainResize + 0001:00209AA8 TfrmNoteCPFields.cboAuthorNeedData + 0001:00209974 TfrmNoteCPFields.cmdCancelClick + 0001:00209600 TfrmNoteCPFields.cmdOKClick + 0001:002095C4 TfrmNoteCPFields.FormCreate + 0001:00209690 TfrmNoteCPFields.ValidateFields + 0001:001C8B14 TfrmNoteDelReason.cmdCancelClick + 0001:001C8A74 TfrmNoteDelReason.cmdOKClick + 0001:001C8A6C TfrmNoteDelReason.FormCreate + 0001:002090E4 TfrmNoteIDParents.cmdCancelClick + 0001:002090FC TfrmNoteIDParents.cmdOKClick + 0001:002090D4 TfrmNoteIDParents.FormCreate + 0001:001C194C TfrmNotePrint.cboDeviceChange + 0001:001C1924 TfrmNotePrint.cboDeviceNeedData + 0001:001C1D64 TfrmNotePrint.cmdCancelClick + 0001:001C1A28 TfrmNotePrint.cmdOKClick + 0001:001C17C8 TfrmNotePrint.DisplaySelectDevice + 0001:001C178C TfrmNotePrint.FormCreate + 0001:001C1A18 TfrmNotePrint.radChartCopyClick + 0001:001C1A20 TfrmNotePrint.radWorkCopyClick + 0001:001C7190 TfrmNoteProperties.btnDetailsClick + 0001:001C6A64 TfrmNoteProperties.btnShowListClick + 0001:001C6BB8 TfrmNoteProperties.calNoteEnter + 0001:001C5DB4 TfrmNoteProperties.cboAuthorEnter + 0001:001C5DF4 TfrmNoteProperties.cboAuthorExit + 0001:001C5DCC TfrmNoteProperties.cboAuthorMouseClick + 0001:001C5E20 TfrmNoteProperties.cboCosignerExit + 0001:001C69EC TfrmNoteProperties.cboCosignerNeedData + 0001:001C5D7C TfrmNoteProperties.cboNewTitleDblClick + 0001:001C69E8 TfrmNoteProperties.cboNewTitleDropDownClose + 0001:001C5A6C TfrmNoteProperties.cboNewTitleEnter + 0001:001C5D4C TfrmNoteProperties.cboNewTitleExit + 0001:001C5A78 TfrmNoteProperties.cboNewTitleMouseClick + 0001:001C59C0 TfrmNoteProperties.cboNewTitleNeedData + 0001:001C69DC TfrmNoteProperties.cmdCancelClick + 0001:001C5F0C TfrmNoteProperties.cmdOKClick + 0001:001C6A6C TfrmNoteProperties.FormatRequestList + 0001:001C7184 TfrmNoteProperties.FormDestroy + 0001:001C6B00 TfrmNoteProperties.FormResize + 0001:001C550C TfrmNoteProperties.FormShow + 0001:001C7334 TfrmNoteProperties.lstRequestsChange + 0001:001C5D84 TfrmNoteProperties.NewPersonNeedData + 0001:001C5514 TfrmNoteProperties.SetCosignerRequired + 0001:001C6D5C TfrmNoteProperties.SetGenericFormSize + 0001:001C6A24 TfrmNoteProperties.ShowClinProcFields + 0001:001C6BE0 TfrmNoteProperties.ShowPRFList + 0001:001C56D4 TfrmNoteProperties.ShowRequestList + 0001:001C5958 TfrmNoteProperties.ShowSurgCaseList + 0001:001C5510 TfrmNoteProperties.UMDelayEvent + 0001:002AEF08 TfrmNotes.ActiveEditOf + 0001:002AD584 TfrmNotes.AllowContextChange + 0001:002B7258 TfrmNotes.AssignRemForm + 0001:002B71B0 TfrmNotes.CanFinishReminder + 0001:002AE138 TfrmNotes.ClearEditControls + 0001:002ADA6C TfrmNotes.ClearPtData + 0001:002B188C TfrmNotes.cmdChangeClick + 0001:002BA9E4 TfrmNotes.cmdChangeExit + 0001:002B1270 TfrmNotes.cmdNewNoteClick + 0001:002BA43C TfrmNotes.cmdNewNoteExit + 0001:002B137C TfrmNotes.cmdPCEClick + 0001:002BAA24 TfrmNotes.cmdPCEExit + 0001:002ADB44 TfrmNotes.DisplayPage + 0001:002AE2E4 TfrmNotes.DisplayPCE + 0001:002B5CB8 TfrmNotes.dlgFindTextFind + 0001:002B5D90 TfrmNotes.dlgReplaceTextFind + 0001:002B5DC4 TfrmNotes.dlgReplaceTextReplace + 0001:002B9548 TfrmNotes.DoAttachIDChild + 0001:002B22F4 TfrmNotes.DoAutoSave + 0001:002B90F4 TfrmNotes.EnableDisableIDNotes + 0001:002B6024 TfrmNotes.FormClose + 0001:002B0AC4 TfrmNotes.FormCreate + 0001:002B71F0 TfrmNotes.FormDestroy + 0001:002BA5A8 TfrmNotes.FormHide + 0001:002BA850 TfrmNotes.FormMouseMove + 0001:002BA654 TfrmNotes.FormShow + 0001:002BA778 TfrmNotes.frmDrawerEdtSearchExit + 0001:002BA820 TfrmNotes.frmDrawerPnlEncounterButtonExit + 0001:002BA7A8 TfrmNotes.frmDrawerPnlTemplatesButtonExit + 0001:002BA500 TfrmNotes.frmFramePnlPatientExit + 0001:002B7240 TfrmNotes.GetDrawers + 0001:002AE72C TfrmNotes.GetTitleText + 0001:002AF8D8 TfrmNotes.InsertAddendum + 0001:002AEF94 TfrmNotes.InsertNewNote + 0001:002AE8A8 TfrmNotes.LacksRequiredForCreate + 0001:002AFFF4 TfrmNotes.LoadForEdit + 0001:002B72F8 TfrmNotes.LoadNotes + 0001:002AEB60 TfrmNotes.LockConsultRequest + 0001:002AECA0 TfrmNotes.LockConsultRequestAndNote + 0001:002B0DC0 TfrmNotes.lstNotesClick + 0001:002AD910 TfrmNotes.LstNotesToPrint + 0001:002B8C80 TfrmNotes.lvNotesColumnClick + 0001:002B8E84 TfrmNotes.lvNotesCompare + 0001:002B9028 TfrmNotes.lvNotesResize + 0001:002B8F40 TfrmNotes.lvNotesSelectItem + 0001:002B224C TfrmNotes.memNewNoteChange + 0001:002B9DA8 TfrmNotes.memNewNoteKeyDown + 0001:002BA874 TfrmNotes.memNewNoteKeyPress + 0001:002BA89C TfrmNotes.memNewNoteKeyUp + 0001:002BA98C TfrmNotes.memPCEShowExit + 0001:002B3650 TfrmNotes.mnuActAddendClick + 0001:002B34D8 TfrmNotes.mnuActAddIDEntryClick + 0001:002B93C0 TfrmNotes.mnuActAttachtoIDParentClick + 0001:002B1478 TfrmNotes.mnuActChangeClick + 0001:002B427C TfrmNotes.mnuActDeleteClick + 0001:002B38F8 TfrmNotes.mnuActDetachFromIDParentClick + 0001:002B47B4 TfrmNotes.mnuActEditClick + 0001:002B6138 TfrmNotes.mnuActIdentifyAddlSignersClick + 0001:002B1580 TfrmNotes.mnuActLoadBoilerClick + 0001:002B33D8 TfrmNotes.mnuActNewClick + 0001:002B491C TfrmNotes.mnuActSaveClick + 0001:002B4A84 TfrmNotes.mnuActSignClick + 0001:002B3CBC TfrmNotes.mnuActSignListClick + 0001:002AE118 TfrmNotes.mnuChartTabClick + 0001:002B72E0 TfrmNotes.mnuEditDialgFieldsClick + 0001:002B7098 TfrmNotes.mnuEditSharedTemplatesClick + 0001:002B7058 TfrmNotes.mnuEditTemplatesClick + 0001:002B93A4 TfrmNotes.mnuIconLegendClick + 0001:002B70B8 TfrmNotes.mnuNewSharedTemplateClick + 0001:002B7078 TfrmNotes.mnuNewTemplateClick + 0001:002B70D8 TfrmNotes.mnuOptionsClick + 0001:002B2628 TfrmNotes.mnuViewClick + 0001:002B5EF8 TfrmNotes.mnuViewDetailClick + 0001:002BAA94 TfrmNotes.mnuViewInformationClick + 0001:002B6E04 TfrmNotes.mnuViewReturntoDefaultClick + 0001:002B6BD4 TfrmNotes.mnuViewSaveAsDefaultClick + 0001:002B2268 TfrmNotes.pnlFieldsResize + 0001:002BA338 TfrmNotes.pnlReadExit + 0001:002B0C88 TfrmNotes.pnlRightResize + 0001:002B0CB8 TfrmNotes.pnlWriteResize + 0001:002B6F4C TfrmNotes.popNoteListCollapseAllClick + 0001:002B700C TfrmNotes.popNoteListCollapseSelectedClick + 0001:002B6F2C TfrmNotes.popNoteListExpandAllClick + 0001:002B6FC0 TfrmNotes.popNoteListExpandSelectedClick + 0001:002B6E8C TfrmNotes.popNoteListPopup + 0001:002B6540 TfrmNotes.popNoteMemoAddlSignClick + 0001:002B5B34 TfrmNotes.popNoteMemoCopyClick + 0001:002B5B14 TfrmNotes.popNoteMemoCutClick + 0001:002B5C1C TfrmNotes.popNoteMemoFindClick + 0001:002B5E78 TfrmNotes.popNoteMemoGrammarClick + 0001:002BA1D4 TfrmNotes.popNoteMemoInsTemplateClick + 0001:002B5B54 TfrmNotes.popNoteMemoPasteClick + 0001:002B5870 TfrmNotes.popNoteMemoPopup + 0001:002BA1F4 TfrmNotes.popNoteMemoPreviewClick + 0001:002B5BC0 TfrmNotes.popNoteMemoReformatClick + 0001:002B5CEC TfrmNotes.popNoteMemoReplaceClick + 0001:002B5BF4 TfrmNotes.popNoteMemoSaveContinueClick + 0001:002B5DF8 TfrmNotes.popNoteMemoSpellClick + 0001:002B6E28 TfrmNotes.popNoteMemoTemplateClick + 0001:002B655C TfrmNotes.ProcessNotifications + 0001:002B4054 TfrmNotes.RemovePCEFromChanges + 0001:002ADEE8 TfrmNotes.RequestMultiplePrint + 0001:002ADD24 TfrmNotes.RequestPrint + 0001:002B0A9C TfrmNotes.SaveCurrentNote + 0001:002B0524 TfrmNotes.SaveEditedNote + 0001:002B5338 TfrmNotes.SaveSignItem + 0001:002B7168 TfrmNotes.SetEditingIndex + 0001:002AE0D8 TfrmNotes.SetFontSize + 0001:002B9A5C TfrmNotes.SetNoteTreeLabel + 0001:002AEAB4 TfrmNotes.SetSubjectVisible + 0001:002B69C4 TfrmNotes.SetViewContext + 0001:002B91AC TfrmNotes.ShowPCEButtons + 0001:002AE278 TfrmNotes.ShowPCEControls + 0001:002BA158 TfrmNotes.sptHorzCanResize + 0001:002B2FB0 TfrmNotes.StartNewEdit + 0001:002B2608 TfrmNotes.timAutoSaveTimer + 0001:002BA214 TfrmNotes.tvNotesAddition + 0001:002B7DC8 TfrmNotes.tvNotesChange + 0001:002B89C8 TfrmNotes.tvNotesClick + 0001:002B857C TfrmNotes.tvNotesCollapsed + 0001:002BA244 TfrmNotes.tvNotesDeletion + 0001:002B8A9C TfrmNotes.tvNotesDragDrop + 0001:002B89D8 TfrmNotes.tvNotesDragOver + 0001:002BA274 TfrmNotes.tvNotesExit + 0001:002B8910 TfrmNotes.tvNotesExpanded + 0001:002B8B3C TfrmNotes.tvNotesStartDrag + 0001:002AEE78 TfrmNotes.UnlockConsultRequest + 0001:002B9E04 TfrmNotes.UpdateNoteAuthor + 0001:002B7D4C TfrmNotes.UpdateTreeView + 0001:002AE9F4 TfrmNotes.VerifyNoteTitle + 0001:002BAA74 TfrmNotes.ViewInfo + 0001:001FECD8 TfrmNotesBP.cmdCloseClick + 0001:001FECA0 TfrmNotesBP.cmdPreviewClick + 0001:001FECE0 TfrmNotesBP.FormKeyUp + 0001:001C048C TfrmNotesByAuthor.cboAuthorNeedData + 0001:001C04B4 TfrmNotesByAuthor.cmdCancelClick + 0001:001C04BC TfrmNotesByAuthor.cmdOKClick + 0001:001C0CA0 TfrmNotesByDate.calBeginDateKeyPress + 0001:001C0CB0 TfrmNotesByDate.calEndDateKeyPress + 0001:001C0C98 TfrmNotesByDate.cmdCancelClick + 0001:001C0AE0 TfrmNotesByDate.cmdOKClick + 0001:001BFEB4 TfrmNotesSearchText.cmdCancelClick + 0001:001BFEC4 TfrmNotesSearchText.cmdOKClick + 0001:001BFFB0 TfrmNotesSearchText.FormDestroy + 0001:001BFFB8 TfrmNotesSearchText.FormResize + 0001:001BFFA8 TfrmNotesSearchText.FormShow + 0001:001EBCFC TfrmOCSession.cmdCancelOrderClick + 0001:001EBEA4 TfrmOCSession.cmdContinueClick + 0001:001EBFF8 TfrmOCSession.FormClose + 0001:001EC008 TfrmOCSession.FormResize + 0001:001EC000 TfrmOCSession.FormShow + 0001:001EBB14 TfrmOCSession.lstChecksDrawItem + 0001:001EB9B0 TfrmOCSession.lstChecksMeasureItem + 0001:001EB89C TfrmOCSession.SetReqJustify + 0001:001EC010 TfrmOCSession.txtJustifyKeyDown + 0001:001F100C TfrmODActive.btnCancelClick + 0001:001F0DF0 TfrmODActive.btnOKClick + 0001:001F1014 TfrmODActive.FormCreate + 0001:001F11F8 TfrmODActive.FormDestroy + 0001:001F180C TfrmODActive.hdControlSectionResize + 0001:001F1048 TfrmODActive.LoadActiveOrders + 0001:001F141C TfrmODActive.lstActiveOrdersDrawItem + 0001:001F1234 TfrmODActive.lstActiveOrdersMeasureItem + 0001:001F18E8 TfrmODActive.MeasureColumnHeight + 0001:001F183C TfrmODActive.RedrawActiveList + 0001:001F17A0 TfrmODActive.RetrieveVisibleOrders + 0001:001E8D50 TfrmODAuto.InitDialog + 0001:001E8FE8 TfrmODAuto.SetupDialog + 0001:001E8D58 TfrmODAuto.Validate + 0001:0029BE70 TfrmODBase.AcceptOrderChecks + 0001:0029B04C TfrmODBase.ClearDialogControls + 0001:0029C378 TfrmODBase.cmdAcceptClick + 0001:0029C580 TfrmODBase.cmdQuitClick + 0001:0029C7BC TfrmODBase.DoSetFontSize + 0001:0029C598 TfrmODBase.FormClose + 0001:0029C5D0 TfrmODBase.FormCloseQuery + 0001:0029BBE4 TfrmODBase.FormCreate + 0001:0029BD88 TfrmODBase.FormDestroy + 0001:0029BE24 TfrmODBase.FormKeyPress + 0001:0029B550 TfrmODBase.GetKeyVariable + 0001:0029B224 TfrmODBase.InitDialog + 0001:0029C950 TfrmODBase.LESValidationCheck + 0001:0029C734 TfrmODBase.memMessageMouseUp + 0001:0029B258 TfrmODBase.OrderForInpatient + 0001:0029B348 TfrmODBase.OrderMessage + 0001:0029C88C TfrmODBase.pnlMessageExit + 0001:0029C8A8 TfrmODBase.pnlMessageMouseDown + 0001:0029C8D8 TfrmODBase.pnlMessageMouseMove + 0001:0029B3B8 TfrmODBase.PreserveControl + 0001:0029C754 TfrmODBase.SetDefaultCoPay + 0001:0029B3DC TfrmODBase.SetDialogIEN + 0001:0029B11C TfrmODBase.SetDisplayGroup + 0001:0029B148 TfrmODBase.SetFillerID + 0001:0029C808 TfrmODBase.SetFontSize + 0001:0029B880 TfrmODBase.SetKeyVariables + 0001:0029B3F8 TfrmODBase.SetupDialog + 0001:0029B2D4 TfrmODBase.ShowOrderMessage + 0001:0029B8A0 TfrmODBase.Validate + 0001:0029BF9C TfrmODBase.ValidSave + 0001:0026CC9C TfrmODBBank.btnAddTestsClick + 0001:0026FB1C TfrmODBBank.btnRemoveAllClick + 0001:0026ECF0 TfrmODBBank.btnRemoveClick + 0001:00270328 TfrmODBBank.calCollTimeChange + 0001:0026FD44 TfrmODBBank.calWantTimeChange + 0001:0026C64C TfrmODBBank.cboAvailCompExit + 0001:0026C794 TfrmODBBank.cboAvailCompNeedData + 0001:0026B9F4 TfrmODBBank.cboAvailCompSelect + 0001:0026C530 TfrmODBBank.cboAvailTestExit + 0001:0026C768 TfrmODBBank.cboAvailTestNeedData + 0001:0026B3C4 TfrmODBBank.cboAvailTestSelect + 0001:0026C9B4 TfrmODBBank.cboCollTypeChange + 0001:002700EC TfrmODBBank.cboPreparationChange + 0001:002701C0 TfrmODBBank.cboSurgeryChange + 0001:0026FEBC TfrmODBBank.cboUrgencyChange + 0001:0026FE18 TfrmODBBank.chkConsentClick + 0001:0026FB78 TfrmODBBank.cmdAcceptClick + 0001:0026C7C0 TfrmODBBank.cmdImmedCollClick + 0001:0026C294 TfrmODBBank.DetermineCollectionDefaults + 0001:0026BF78 TfrmODBBank.DisableCommentPanels + 0001:0026BF88 TfrmODBBank.DisableComponentControls + 0001:0026C170 TfrmODBBank.DisableDiagTestControls + 0001:0026C054 TfrmODBBank.EnableComponentControls + 0001:0026C1D4 TfrmODBBank.EnableDiagTestControls + 0001:00269098 TfrmODBBank.ExtractModifiers + 0001:002691B4 TfrmODBBank.ExtractMSBOS + 0001:00269174 TfrmODBBank.ExtractPatientInfo + 0001:00269150 TfrmODBBank.ExtractSpecimen + 0001:00269104 TfrmODBBank.ExtractSpecimens + 0001:002690E0 TfrmODBBank.ExtractSurgeries + 0001:00269194 TfrmODBBank.ExtractTests + 0001:00269128 TfrmODBBank.ExtractTypeScreen + 0001:002690BC TfrmODBBank.ExtractUrgencies + 0001:00267C74 TfrmODBBank.FormCreate + 0001:0026ECAC TfrmODBBank.FormDestroy + 0001:00268410 TfrmODBBank.InitDialog + 0001:0026AFA8 TfrmODBBank.LoadCollType + 0001:0026CB3C TfrmODBBank.LoadModifiers + 0001:0026C278 TfrmODBBank.LoadRequiredComment + 0001:0026CBC0 TfrmODBBank.LoadUrgencies + 0001:0026C888 TfrmODBBank.pgeProductChange + 0001:0026B278 TfrmODBBank.ReadServerVariables + 0001:0026A7EC TfrmODBBank.SetupCollTimes + 0001:00268484 TfrmODBBank.SetupDialog + 0001:002691D4 TfrmODBBank.SpecimenNeeded + 0001:00270274 TfrmODBBank.tReasonChange + 0001:00270054 TfrmODBBank.txtDiagCommentChange + 0001:0026A4FC TfrmODBBank.ValidAdd + 0001:0026948C TfrmODBBank.Validate + 0001:0026958C TfrmODBBank.ValidateAdd + 0001:0026A60C TfrmODBBank.ValidCollTime + 0001:002975CC TfrmODChangeUnreleasedRenew.btnCancelClick + 0001:002975D4 TfrmODChangeUnreleasedRenew.btnOKClick + 0001:00297554 TfrmODChangeUnreleasedRenew.FormCreate + 0001:001F1FDC TfrmODChild.btnCancelClick + 0001:001F1FCC TfrmODChild.btnOKClick + 0001:001F1D8C TfrmODChild.FormCreate + 0001:001F1D94 TfrmODChild.lstODComplexDrawItem + 0001:001F1ECC TfrmODChild.lstODComplexMeasureItem + 0001:002582A0 TfrmODCslt.btnDiagnosisClick + 0001:00256740 TfrmODCslt.btnServiceTreeClick + 0001:002548D8 TfrmODCslt.BuildQuickTree + 0001:00257768 TfrmODCslt.cboServiceExit + 0001:00258238 TfrmODCslt.cboServiceKeyDown + 0001:00258280 TfrmODCslt.cboServiceKeyUp + 0001:00255FC0 TfrmODCslt.cboServiceSelect + 0001:00255DD8 TfrmODCslt.cmdAcceptClick + 0001:00256C04 TfrmODCslt.cmdLexSearchClick + 0001:00258584 TfrmODCslt.cmdQuitClick + 0001:002555D0 TfrmODCslt.ControlChange + 0001:00257AC8 TfrmODCslt.DefaultReasonForRequest + 0001:00257D68 TfrmODCslt.DoSetFontSize + 0001:00258A58 TfrmODCslt.FormClose + 0001:00253448 TfrmODCslt.FormCreate + 0001:00256704 TfrmODCslt.FormDestroy + 0001:00257E98 TfrmODCslt.GetProvDxandValidateCode + 0001:0025364C TfrmODCslt.InitDialog + 0001:00255F30 TfrmODCslt.memReasonExit + 0001:002581B4 TfrmODCslt.memReasonKeyDown + 0001:00258210 TfrmODCslt.memReasonKeyPress + 0001:00257DDC TfrmODCslt.memReasonKeyUp + 0001:0025720C TfrmODCslt.mnuPopProvDxDeleteClick + 0001:00257C98 TfrmODCslt.pnlServiceTreeButtonEnter + 0001:00257CC0 TfrmODCslt.pnlServiceTreeButtonExit + 0001:00257A14 TfrmODCslt.popReasonCopyClick + 0001:002579F4 TfrmODCslt.popReasonCutClick + 0001:00257A34 TfrmODCslt.popReasonPasteClick + 0001:002578D8 TfrmODCslt.popReasonPopup + 0001:00257A94 TfrmODCslt.popReasonReformatClick + 0001:00254710 TfrmODCslt.radInpatientClick + 0001:002547F4 TfrmODCslt.radOutpatientClick + 0001:002568E8 TfrmODCslt.ReadServerVariables + 0001:002585B8 TfrmODCslt.SaveConsultDxForNurse + 0001:00257DB4 TfrmODCslt.SetFontSize + 0001:00256D74 TfrmODCslt.SetProvDiagPromptingMode + 0001:002586AC TfrmODCslt.SetUpCopyConsultDiagnoses + 0001:0025394C TfrmODCslt.SetupDialog + 0001:00255D08 TfrmODCslt.SetUpQuickOrderDX + 0001:002573EC TfrmODCslt.SetupReasonForRequest + 0001:002575B4 TfrmODCslt.ShowPrerequisites + 0001:002549E8 TfrmODCslt.treServiceChange + 0001:00256AE4 TfrmODCslt.treServiceCollapsing + 0001:00255C30 TfrmODCslt.treServiceExit + 0001:00257CE8 TfrmODCslt.treServiceKeyDown + 0001:00257D48 TfrmODCslt.treServiceKeyUp + 0001:00256B24 TfrmODCslt.treServiceMouseDown + 0001:002546E0 TfrmODCslt.txtAttnNeedData + 0001:0025724C TfrmODCslt.txtProvDiagChange + 0001:00254268 TfrmODCslt.Validate + 0001:0019CF40 TfrmODDiet.AOChange + 0001:0019C54C TfrmODDiet.calELStartChange + 0001:0019C4E4 TfrmODDiet.calELStartEnter + 0001:0019C5C8 TfrmODDiet.calELStartExit + 0001:0019C688 TfrmODDiet.calELStopChange + 0001:0019DC20 TfrmODDiet.calOPStartChange + 0001:0019DBB8 TfrmODDiet.calOPStartEnter + 0001:0019DDA4 TfrmODDiet.calOPStartExit + 0001:0019DEE4 TfrmODDiet.calOPStopChange + 0001:00199AC0 TfrmODDiet.cboDietAvailExit + 0001:00199560 TfrmODDiet.cboDietAvailMouseClick + 0001:00199508 TfrmODDiet.cboDietAvailNeedData + 0001:0019D438 TfrmODDiet.cboOPDietAvailExit + 0001:0019F0C0 TfrmODDiet.cboOPDietAvailKeyDown + 0001:0019D0F8 TfrmODDiet.cboOPDietAvailMouseClick + 0001:0019A61C TfrmODDiet.cboProductExit + 0001:0019A3B8 TfrmODDiet.cboProductMouseClick + 0001:0019AD14 TfrmODDiet.cboStrengthChange + 0001:0019AC54 TfrmODDiet.cboStrengthEnter + 0001:0019ADBC TfrmODDiet.cboStrengthExit + 0001:0019AC80 TfrmODDiet.cboStrengthKeyDown + 0001:0019EC14 TfrmODDiet.cmdAcceptClick + 0001:0019E86C TfrmODDiet.cmdOPRemoveClick + 0001:00199B60 TfrmODDiet.cmdRemoveClick + 0001:0019B2A8 TfrmODDiet.cmdTFRemoveClick + 0001:00199C0C TfrmODDiet.DietChange + 0001:00198FA8 TfrmODDiet.DietCheckForNPO + 0001:001990A4 TfrmODDiet.DietCheckForTF + 0001:0019C730 TfrmODDiet.ELChange + 0001:0019DCE0 TfrmODDiet.FMDays + 0001:0019DCA8 TfrmODDiet.FMDOW + 0001:00196100 TfrmODDiet.FormCreate + 0001:0019652C TfrmODDiet.FormDestroy + 0001:0019F050 TfrmODDiet.FormKeyDown + 0001:0019656C TfrmODDiet.FormResize + 0001:0019BF20 TfrmODDiet.GetDaysOfWeek + 0001:0019BE24 TfrmODDiet.GetMealTime + 0001:0019E6FC TfrmODDiet.GetOPDaysOfWeek + 0001:0019E918 TfrmODDiet.GetOPMealWindow + 0001:0019A6BC TfrmODDiet.grdSelectedDrawCell + 0001:0019A824 TfrmODDiet.grdSelectedSelectCell + 0001:0019C2BC TfrmODDiet.grpMealClick + 0001:0019E498 TfrmODDiet.grpOPMealClick + 0001:00196724 TfrmODDiet.InitDialog + 0001:0019CC8C TfrmODDiet.IPChange + 0001:0019C090 TfrmODDiet.IsEarlyTray + 0001:00198084 TfrmODDiet.nbkDietChange + 0001:00197DE0 TfrmODDiet.nbkDietChanging + 0001:0019E034 TfrmODDiet.OPChange + 0001:0019E9A8 TfrmODDiet.OPDietCheckForNPO + 0001:0019EAA4 TfrmODDiet.OPDietCheckForTF + 0001:0019F0EC TfrmODDiet.PatientHasRecurringMeals + 0001:0019CE80 TfrmODDiet.ResetControlsAO + 0001:00199214 TfrmODDiet.ResetControlsDO + 0001:0019B798 TfrmODDiet.ResetControlsEL + 0001:0019CBC8 TfrmODDiet.ResetControlsIP + 0001:0019D4D8 TfrmODDiet.ResetControlsOP + 0001:0019A040 TfrmODDiet.ResetControlsTF + 0001:0019C44C TfrmODDiet.SetEnableDOW + 0001:0019E4B4 TfrmODDiet.SetEnableOPDOW + 0001:0019A954 TfrmODDiet.SetNextCell + 0001:00196750 TfrmODDiet.SetupDialog + 0001:0019CEAC TfrmODDiet.SetValuesFromResponsesAO + 0001:001992B0 TfrmODDiet.SetValuesFromResponsesDO + 0001:0019B900 TfrmODDiet.SetValuesFromResponsesEL + 0001:0019CBF8 TfrmODDiet.SetValuesFromResponsesIP + 0001:0019D728 TfrmODDiet.SetValuesFromResponsesOP + 0001:0019A088 TfrmODDiet.SetValuesFromResponsesTF + 0001:0019B378 TfrmODDiet.TFChange + 0001:0019A348 TfrmODDiet.TFClearGrid + 0001:0019A980 TfrmODDiet.TFMoveToNextCell + 0001:0019AA34 TfrmODDiet.TFSetAmountForRow + 0001:0019ABA8 TfrmODDiet.TFStrengthCode + 0001:0019B128 TfrmODDiet.txtQuantityChange + 0001:0019AE94 TfrmODDiet.txtQuantityEnter + 0001:0019B1D0 TfrmODDiet.txtQuantityExit + 0001:0019AEB4 TfrmODDiet.txtQuantityKeyDown + 0001:00196F40 TfrmODDiet.Validate + 0001:00193168 TfrmODDietLT.cmdNoClick + 0001:001930B8 TfrmODDietLT.cmdYesClick + 0001:001930B0 TfrmODDietLT.FormCreate + 0001:001A1954 TfrmODGen.ControlChange + 0001:001A0038 TfrmODGen.FormClose + 0001:0019FE3C TfrmODGen.FormCreate + 0001:001A04C0 TfrmODGen.InitDialog + 0001:001A16FC TfrmODGen.LookupNeedData + 0001:001A0930 TfrmODGen.PlaceControls + 0001:001A0BF4 TfrmODGen.PlaceDateTime + 0001:001A0D1C TfrmODGen.PlaceFreeText + 0001:001A18B4 TfrmODGen.PlaceHidden + 0001:001A18D4 TfrmODGen.PlaceLabel + 0001:001A126C TfrmODGen.PlaceLookup + 0001:001A17C4 TfrmODGen.PlaceMemo + 0001:001A0E68 TfrmODGen.PlaceNumeric + 0001:001A0F5C TfrmODGen.PlaceSetOfCodes + 0001:001A1138 TfrmODGen.PlaceYesNo + 0001:001A0178 TfrmODGen.SetDialogIEN + 0001:001A0244 TfrmODGen.SetupDialog + 0001:001A05FC TfrmODGen.Validate + 0001:00263E5C TfrmODLab.cboAvailTestExit + 0001:00263E20 TfrmODLab.cboAvailTestNeedData + 0001:00263F78 TfrmODLab.cboAvailTestSelect + 0001:00264A98 TfrmODLab.cboCollSampChange + 0001:00266330 TfrmODLab.cboCollSampKeyPause + 0001:002663D4 TfrmODLab.cboCollSampMouseClick + 0001:00264DF8 TfrmODLab.cboCollTimeChange + 0001:00266688 TfrmODLab.cboCollTimeExit + 0001:002650C4 TfrmODLab.cboCollTypeChange + 0001:00264EDC TfrmODLab.cboFrequencyChange + 0001:00264D14 TfrmODLab.cboSpecimenChange + 0001:00266C38 TfrmODLab.cboSpecimenKeyPause + 0001:00266958 TfrmODLab.cboSpecimenMouseClick + 0001:00264C94 TfrmODLab.cboUrgencyChange + 0001:00266CB0 TfrmODLab.cmdImmedCollClick + 0001:00262044 TfrmODLab.ControlChange + 0001:00266EC4 TfrmODLab.DetermineCollectionDefaults + 0001:002662B8 TfrmODLab.DisableCommentPanels + 0001:0026618C TfrmODLab.DoseDrawComment + 0001:00265A50 TfrmODLab.FormClose + 0001:0025FE14 TfrmODLab.FormCreate + 0001:002669C8 TfrmODLab.GetAllCollSamples + 0001:00266B0C TfrmODLab.GetAllSpecimens + 0001:00265E30 TfrmODLab.grpPeakTroughClick + 0001:00260408 TfrmODLab.InitDialog + 0001:002619D4 TfrmODLab.LoadCollType + 0001:00265A80 TfrmODLab.LoadRequiredComment + 0001:00267160 TfrmODLab.pnlCollTimeButtonEnter + 0001:0026717C TfrmODLab.pnlCollTimeButtonExit + 0001:00266D78 TfrmODLab.ReadServerVariables + 0001:00265294 TfrmODLab.SetupCollTimes + 0001:00260528 TfrmODLab.SetupDialog + 0001:0026629C TfrmODLab.txtAddlCommentExit + 0001:00265C84 TfrmODLab.txtAntiCoagulantExit + 0001:00265F9C TfrmODLab.txtDoseTimeExit + 0001:00266094 TfrmODLab.txtDrawTimeExit + 0001:00265B68 TfrmODLab.txtOrderCommentExit + 0001:00265DB0 TfrmODLab.txtUrineVolumeExit + 0001:0026290C TfrmODLab.Validate + 0001:002664A8 TfrmODLab.ValidCollTime + 0001:00267198 TfrmODLab.ViewinReportWindow1Click + 0001:0025EDCC TfrmODLabImmedColl.calImmedCollectKeyUp + 0001:0025EB60 TfrmODLabImmedColl.cmdCancelClick + 0001:0025EB88 TfrmODLabImmedColl.cmdOKClick + 0001:0025ED68 TfrmODLabImmedColl.FormShow + 0001:0025E324 TfrmODLabOthCollSamp.cboOtherCollSampDblClick + 0001:0025E1D8 TfrmODLabOthCollSamp.cmdCancelClick + 0001:0025E200 TfrmODLabOthCollSamp.cmdOKClick + 0001:0025E7CC TfrmODLabOthSpec.cboOtherSpecDblClick + 0001:0025E7D4 TfrmODLabOthSpec.cboOtherSpecNeedData + 0001:0025E690 TfrmODLabOthSpec.cmdCancelClick + 0001:0025E6B8 TfrmODLabOthSpec.cmdOKClick + 0001:001A58F4 TfrmODMedComplex.btnUnitsClick + 0001:001A5944 TfrmODMedComplex.cboRouteClick + 0001:001A5AF0 TfrmODMedComplex.cboRouteExit + 0001:001A5B10 TfrmODMedComplex.cboScheduleExit + 0001:001A62E0 TfrmODMedComplex.cmdCancelClick + 0001:001A5CE0 TfrmODMedComplex.cmdInsertClick + 0001:001A6258 TfrmODMedComplex.cmdOKClick + 0001:001A5E68 TfrmODMedComplex.cmdRemoveClick + 0001:001A4F48 TfrmODMedComplex.FormCreate + 0001:001A5158 TfrmODMedComplex.grdDosesDrawCell + 0001:001A5080 TfrmODMedComplex.grdDosesKeyPress + 0001:001A5014 TfrmODMedComplex.grdDosesMouseDown + 0001:001A50D0 TfrmODMedComplex.grdDosesMouseUp + 0001:001A5B84 TfrmODMedComplex.pnlDaysEnter + 0001:001A5B94 TfrmODMedComplex.pnlDaysExit + 0001:001A574C TfrmODMedComplex.pnlInstructEnter + 0001:001A5780 TfrmODMedComplex.pnlInstructExit + 0001:001A527C TfrmODMedComplex.ShowEditor + 0001:001A5C70 TfrmODMedComplex.txtDaysChange + 0001:001A5678 TfrmODMedComplex.UMDelayEvent + 0001:001A5934 TfrmODMedComplex.UnitClick + 0001:001A4BF4 TfrmODMedComplex.ValFor + 0001:001A5F34 TfrmODMedComplex.Validate + 0001:001A2290 TfrmODMedFA.cmdNoClick + 0001:001A2214 TfrmODMedFA.cmdYesClick + 0001:001A21E0 TfrmODMedFA.FormCreate + 0001:001A21F0 TfrmODMedFA.lstFormAltClick + 0001:001A3AD8 TfrmODMedIn.cboDispenseExit + 0001:001A3BB8 TfrmODMedIn.cboDispenseMouseClick + 0001:001A3640 TfrmODMedIn.cboMedicationNeedData + 0001:001A3688 TfrmODMedIn.cboMedicationSelect + 0001:001A398C TfrmODMedIn.CheckFormAlt + 0001:001A3C70 TfrmODMedIn.ControlChange + 0001:001A262C TfrmODMedIn.FormCreate + 0001:001A278C TfrmODMedIn.InitDialog + 0001:001A32EC TfrmODMedIn.ResetOnMedChange + 0001:001A334C TfrmODMedIn.SetAltCombo + 0001:001A3468 TfrmODMedIn.SetOnOISelect + 0001:001A28E4 TfrmODMedIn.SetupDialog + 0001:001A2B10 TfrmODMedIn.Validate + 0001:0028B830 TfrmODMedIV.btnXDurationClick + 0001:0028A7FC TfrmODMedIV.cboAdditiveExit + 0001:0028A54C TfrmODMedIV.cboAdditiveMouseClick + 0001:0028A49C TfrmODMedIV.cboAdditiveNeedData + 0001:0028AC84 TfrmODMedIV.cboSelectedChange + 0001:0028AD1C TfrmODMedIV.cboSelectedExit + 0001:0028A474 TfrmODMedIV.cboSolutionExit + 0001:0028A06C TfrmODMedIV.cboSolutionMouseClick + 0001:00289FBC TfrmODMedIV.cboSolutionNeedData + 0001:0028A8CC TfrmODMedIV.ClickOnGridCell + 0001:0028ADA8 TfrmODMedIV.cmdRemoveClick + 0001:0028AE78 TfrmODMedIV.ControlChange + 0001:0028B77C TfrmODMedIV.DoSetFontSize + 0001:0028907C TfrmODMedIV.FormCreate + 0001:00289208 TfrmODMedIV.FormDestroy + 0001:0028B7BC TfrmODMedIV.FormKeyDown + 0001:00289270 TfrmODMedIV.FormResize + 0001:0028B6A4 TfrmODMedIV.grdSelectedDrawCell + 0001:0028B81C TfrmODMedIV.grdSelectedKeyPress + 0001:0028B824 TfrmODMedIV.grdSelectedMouseDown + 0001:0028934C TfrmODMedIV.InitDialog + 0001:0028B8F8 TfrmODMedIV.pnlXDurationEnter + 0001:0028B880 TfrmODMedIV.popDurationClick + 0001:0028B760 TfrmODMedIV.SetFontSize + 0001:0028B908 TfrmODMedIV.SetLimitationControl + 0001:00289F18 TfrmODMedIV.SetupDialog + 0001:002897C8 TfrmODMedIV.SetValuesFromResponses + 0001:00289F40 TfrmODMedIV.tabFluidChange + 0001:0028C1A8 TfrmODMedIV.txtRateExit + 0001:0028AB60 TfrmODMedIV.txtSelectedChange + 0001:0028ABF8 TfrmODMedIV.txtSelectedExit + 0001:0028B8E8 TfrmODMedIV.txtXDurationChange + 0001:0028BB90 TfrmODMedIV.txtXDurationExit + 0001:00289498 TfrmODMedIV.Validate + 0001:00291E38 TfrmODMedNVA.btnSelectClick + 0001:002937D8 TfrmODMedNVA.cboDosageChange + 0001:002936E4 TfrmODMedNVA.cboDosageClick + 0001:002937E0 TfrmODMedNVA.cboDosageExit + 0001:00293880 TfrmODMedNVA.cboRouteChange + 0001:002939A8 TfrmODMedNVA.cboRouteExit + 0001:002939B4 TfrmODMedNVA.cboScheduleChange + 0001:002939AC TfrmODMedNVA.cboScheduleClick + 0001:002939BC TfrmODMedNVA.cboScheduleExit + 0001:00291670 TfrmODMedNVA.ChangeDelayed + 0001:00296148 TfrmODMedNVA.CheckDecimal + 0001:00293634 TfrmODMedNVA.CheckFormAltDose + 0001:00296578 TfrmODMedNVA.chkPRNClick + 0001:00296128 TfrmODMedNVA.cmdAcceptClick + 0001:00293B34 TfrmODMedNVA.ConstructedDoseFields + 0001:002946F0 TfrmODMedNVA.ControlChange + 0001:00296758 TfrmODMedNVA.DisableCancelButton + 0001:002967E8 TfrmODMedNVA.DisableDefaultButton + 0001:00296EAC TfrmODMedNVA.DispOrderMessage + 0001:00294164 TfrmODMedNVA.FindCommonDrug + 0001:00293E40 TfrmODMedNVA.FindDoseFields + 0001:00296ACC TfrmODMedNVA.FindQuickOrder + 0001:00290A2C TfrmODMedNVA.FormCreate + 0001:00290E38 TfrmODMedNVA.FormDestroy + 0001:00296C5C TfrmODMedNVA.FormKeyPress + 0001:00296914 TfrmODMedNVA.FormResize + 0001:00296740 TfrmODMedNVA.grdDosesEnter + 0001:00294DDC TfrmODMedNVA.grdDosesExit + 0001:002966C0 TfrmODMedNVA.grdDosesKeyDown + 0001:00290E98 TfrmODMedNVA.InitDialog + 0001:00296DC4 TfrmODMedNVA.isUniqueQuickOrder + 0001:00293574 TfrmODMedNVA.lblGuidelineClick + 0001:00296BB8 TfrmODMedNVA.lbStatementsClickCheck + 0001:00291BCC TfrmODMedNVA.ListViewClick + 0001:00291C0C TfrmODMedNVA.ListViewEditing + 0001:00291B44 TfrmODMedNVA.ListViewEnter + 0001:00291C1C TfrmODMedNVA.ListViewResize + 0001:00291C50 TfrmODMedNVA.LoadNonVAMedCache + 0001:002969DC TfrmODMedNVA.LoadOTCStatements + 0001:00291D3C TfrmODMedNVA.lstAllData + 0001:00291E24 TfrmODMedNVA.lstAllDataHint + 0001:00296BC0 TfrmODMedNVA.lstChange + 0001:0029693C TfrmODMedNVA.lstQuickData + 0001:002968E8 TfrmODMedNVA.memMessageKeyDown + 0001:002939C0 TfrmODMedNVA.OutpatientSig + 0001:002968B4 TfrmODMedNVA.pnlMessageEnter + 0001:002968CC TfrmODMedNVA.pnlMessageExit + 0001:0029209C TfrmODMedNVA.ResetOnMedChange + 0001:00296878 TfrmODMedNVA.RestoreCancelButton + 0001:00296894 TfrmODMedNVA.RestoreDefaultButton + 0001:002915E8 TfrmODMedNVA.ScrollToVisible + 0001:002932E8 TfrmODMedNVA.SearchStatements + 0001:00293044 TfrmODMedNVA.SetDosage + 0001:00292184 TfrmODMedNVA.SetOnMedSelect + 0001:00292674 TfrmODMedNVA.SetOnQuickOrder + 0001:002933AC TfrmODMedNVA.SetSchedule + 0001:002933A0 TfrmODMedNVA.SetStartDate + 0001:0029311C TfrmODMedNVA.SetStatements + 0001:00290F90 TfrmODMedNVA.SetupDialog + 0001:00292FD4 TfrmODMedNVA.ShowControlsSimple + 0001:00292EB8 TfrmODMedNVA.ShowMedFields + 0001:00292D30 TfrmODMedNVA.ShowMedSelect + 0001:00291424 TfrmODMedNVA.StartKeyTimer + 0001:0029146C TfrmODMedNVA.StopKeyTimer + 0001:0029354C TfrmODMedNVA.tabDoseChange + 0001:00295C4C TfrmODMedNVA.timCheckChangesTimer + 0001:002915D4 TfrmODMedNVA.txtMedChange + 0001:00291B18 TfrmODMedNVA.txtMedExit + 0001:00291494 TfrmODMedNVA.txtMedKeyDown + 0001:002915B0 TfrmODMedNVA.txtMedKeyUp + 0001:00291C04 TfrmODMedNVA.UMDelayClick + 0001:00295C18 TfrmODMedNVA.UpdateRelated + 0001:00295970 TfrmODMedNVA.UpdateStartExpires + 0001:00291190 TfrmODMedNVA.Validate + 0001:00294DF8 TfrmODMedNVA.ValueOf + 0001:002956CC TfrmODMedNVA.ValueOfResponse + 0001:002913F8 TfrmODMedNVA.WMTimer + 0001:001B2C28 TfrmODMedOIFA.cmdNoClick + 0001:001B2BAC TfrmODMedOIFA.cmdYesClick + 0001:001B2C38 TfrmODMedOIFA.FormClose + 0001:001B2B78 TfrmODMedOIFA.FormCreate + 0001:001B2C30 TfrmODMedOIFA.FormShow + 0001:001B2B88 TfrmODMedOIFA.lstFormAltClick + 0001:001A81F4 TfrmODMedOut.btnUnitsClick + 0001:001A7F54 TfrmODMedOut.cboDispenseExit + 0001:001A8044 TfrmODMedOut.cboDispenseMouseClick + 0001:001A79D0 TfrmODMedOut.cboMedicationNeedData + 0001:001A7A0C TfrmODMedOut.cboMedicationSelect + 0001:001A8940 TfrmODMedOut.cboSCEnter + 0001:001A7CE8 TfrmODMedOut.CheckFormAlt + 0001:001A8790 TfrmODMedOut.cmdComplexClick + 0001:001A8994 TfrmODMedOut.ControlChange + 0001:001A67E8 TfrmODMedOut.FormCreate + 0001:001A695C TfrmODMedOut.InitDialog + 0001:001A898C TfrmODMedOut.memCommentsEnter + 0001:001A7630 TfrmODMedOut.ResetOnMedChange + 0001:001A76BC TfrmODMedOut.SetAltCombo + 0001:001A8880 TfrmODMedOut.SetAskSC + 0001:001A8244 TfrmODMedOut.SetComplex + 0001:001A83D0 TfrmODMedOut.SetInstructions + 0001:001A7E18 TfrmODMedOut.SetMaxRefills + 0001:001A77AC TfrmODMedOut.SetOnOISelect + 0001:001A82DC TfrmODMedOut.SetSimple + 0001:001A6AB8 TfrmODMedOut.SetupDialog + 0001:001A80EC TfrmODMedOut.SetupNouns + 0001:001A8810 TfrmODMedOut.txtQuantityEnter + 0001:001A8234 TfrmODMedOut.UnitClick + 0001:001A6DBC TfrmODMedOut.Validate + 0001:002764A4 TfrmODMeds.btnSelectClick + 0001:002836FC TfrmODMeds.btnXDurationClick + 0001:0027F25C TfrmODMeds.btnXInsertClick + 0001:0027F3DC TfrmODMeds.btnXRemoveClick + 0001:0027EDEC TfrmODMeds.btnXSequenceClick + 0001:00279A44 TfrmODMeds.cboDosageChange + 0001:00279798 TfrmODMeds.cboDosageClick + 0001:00279A60 TfrmODMeds.cboDosageExit + 0001:00284F04 TfrmODMeds.cboDosageKeyUp + 0001:00279B9C TfrmODMeds.cboRouteChange + 0001:00279CE8 TfrmODMeds.cboRouteExit + 0001:00279E64 TfrmODMeds.cboScheduleChange + 0001:00279D64 TfrmODMeds.cboScheduleClick + 0001:00284930 TfrmODMeds.cboScheduleEnter + 0001:00284A80 TfrmODMeds.cboScheduleExit + 0001:0027DC74 TfrmODMeds.cboXDosageChange + 0001:0027DD10 TfrmODMeds.cboXDosageClick + 0001:0027DC0C TfrmODMeds.cboXDosageEnter + 0001:0027DF20 TfrmODMeds.cboXDosageExit + 0001:00284F38 TfrmODMeds.cboXDosageKeyUp + 0001:0027E018 TfrmODMeds.cboXRouteChange + 0001:0027E0B8 TfrmODMeds.cboXRouteClick + 0001:00283C84 TfrmODMeds.cboXRouteEnter + 0001:0027E1AC TfrmODMeds.cboXRouteExit + 0001:0027E340 TfrmODMeds.cboXScheduleChange + 0001:0027E4F8 TfrmODMeds.cboXScheduleClick + 0001:002850D0 TfrmODMeds.cboXScheduleEnter + 0001:00284EE0 TfrmODMeds.cboXScheduleExit + 0001:00275A74 TfrmODMeds.ChangeDelayed + 0001:002832C8 TfrmODMeds.CheckDecimal + 0001:002796CC TfrmODMeds.CheckFormAltDose + 0001:00282DD0 TfrmODMeds.chkDoseNowClick + 0001:00283740 TfrmODMeds.chkPRNClick + 0001:00282DB4 TfrmODMeds.chkPtInstructClick + 0001:0027A338 TfrmODMeds.chkSCClick + 0001:0027A2C4 TfrmODMeds.chkSCEnter + 0001:0027E5F4 TfrmODMeds.chkXPRNClick + 0001:00282B30 TfrmODMeds.cmdAcceptClick + 0001:0027AB50 TfrmODMeds.ConstructedDoseFields + 0001:0027BA6C TfrmODMeds.ControlChange + 0001:00284460 TfrmODMeds.CreateOtherScheduel + 0001:00284790 TfrmODMeds.CreateOtherScheduelComplex + 0001:002839B4 TfrmODMeds.DisableCancelButton + 0001:00283A60 TfrmODMeds.DisableDefaultButton + 0001:00284624 TfrmODMeds.DispOrderMessage + 0001:002834A0 TfrmODMeds.DropLastSequence + 0001:0027CB94 TfrmODMeds.DurationToDays + 0001:0027AF54 TfrmODMeds.FieldsForDose + 0001:0027AE7C TfrmODMeds.FieldsForDrug + 0001:0027B4C0 TfrmODMeds.FindCommonDrug + 0001:0027B164 TfrmODMeds.FindDoseFields + 0001:0027572C TfrmODMeds.FindQuickOrder + 0001:00284764 TfrmODMeds.FormClose + 0001:002736C0 TfrmODMeds.FormCreate + 0001:00273F84 TfrmODMeds.FormDestroy + 0001:00283BF8 TfrmODMeds.FormKeyDown + 0001:00283B74 TfrmODMeds.FormKeyPress + 0001:00283DD0 TfrmODMeds.FormResize + 0001:002849B8 TfrmODMeds.FormShow + 0001:00284E38 TfrmODMeds.GetSchedListIndex + 0001:0027D280 TfrmODMeds.grdDosesDrawCell + 0001:0028398C TfrmODMeds.grdDosesEnter + 0001:0027D330 TfrmODMeds.grdDosesExit + 0001:002838B8 TfrmODMeds.grdDosesKeyDown + 0001:0027D164 TfrmODMeds.grdDosesKeyPress + 0001:0027D0CC TfrmODMeds.grdDosesMouseDown + 0001:0027D1CC TfrmODMeds.grdDosesMouseUp + 0001:002844E0 TfrmODMeds.IfIsIMODialog + 0001:0027400C TfrmODMeds.InitDialog + 0001:0027A8BC TfrmODMeds.InpatientSig + 0001:00284DFC TfrmODMeds.IsSupplyAndOutPatient + 0001:00284D04 TfrmODMeds.isUniqueQuickOrder + 0001:00279604 TfrmODMeds.lblGuidelineClick + 0001:00276030 TfrmODMeds.ListViewClick + 0001:00276094 TfrmODMeds.ListViewEditing + 0001:00275F88 TfrmODMeds.ListViewEnter + 0001:002760B0 TfrmODMeds.ListViewKeyUp + 0001:002760C8 TfrmODMeds.ListViewResize + 0001:00276110 TfrmODMeds.LoadMedCache + 0001:002762A0 TfrmODMeds.lstAllData + 0001:002763B0 TfrmODMeds.lstAllDataHint + 0001:00284564 TfrmODMeds.lstChange + 0001:002763D4 TfrmODMeds.lstQuickData + 0001:0027648C TfrmODMeds.lstQuickDataHint + 0001:002836D8 TfrmODMeds.memCommentClick + 0001:00283D28 TfrmODMeds.memMessageKeyDown + 0001:00283D68 TfrmODMeds.memPIClick + 0001:00283FD8 TfrmODMeds.memPIKeyDown + 0001:0027A358 TfrmODMeds.OutpatientSig + 0001:0027CE80 TfrmODMeds.pnlFieldsResize + 0001:00283CD4 TfrmODMeds.pnlMessageEnter + 0001:00283CFC TfrmODMeds.pnlMessageExit + 0001:0027E7C4 TfrmODMeds.pnlXDurationEnter + 0001:0027ED00 TfrmODMeds.pnlXDurationExit + 0001:0027E308 TfrmODMeds.pnlXScheduleEnter + 0001:0027E6BC TfrmODMeds.pnlXScheduleExit + 0001:00283CAC TfrmODMeds.pnlXSequenceEnter + 0001:0027F0AC TfrmODMeds.pnlXSequenceExit + 0001:0027A070 TfrmODMeds.popDurationClick + 0001:0027EE84 TfrmODMeds.popXSequenceClick + 0001:002769AC TfrmODMeds.ResetOnMedChange + 0001:00276C6C TfrmODMeds.ResetOnTabChange + 0001:00283B0C TfrmODMeds.RestoreCancelButton + 0001:00283B40 TfrmODMeds.RestoreDefaultButton + 0001:002759DC TfrmODMeds.ScrollToVisible + 0001:002752F4 TfrmODMeds.SetControlsInpatient + 0001:00275488 TfrmODMeds.SetControlsOutpatient + 0001:00278DE0 TfrmODMeds.SetDosage + 0001:00276FC8 TfrmODMeds.SetOnMedSelect + 0001:00277924 TfrmODMeds.SetOnQuickOrder + 0001:00278EC8 TfrmODMeds.SetPickup + 0001:00278F6C TfrmODMeds.SetSchedule + 0001:0027411C TfrmODMeds.SetupDialog + 0001:002752B8 TfrmODMeds.SetVisibleCommentRows + 0001:00278CB4 TfrmODMeds.ShowControlsComplex + 0001:00278A08 TfrmODMeds.ShowControlsSimple + 0001:0027D4B0 TfrmODMeds.ShowEditor + 0001:002787D8 TfrmODMeds.ShowMedFields + 0001:00278548 TfrmODMeds.ShowMedSelect + 0001:00283E8C TfrmODMeds.spnQuantityChangingEx + 0001:00275694 TfrmODMeds.StartKeyTimer + 0001:002756F8 TfrmODMeds.StopKeyTimer + 0001:00279114 TfrmODMeds.tabDoseChange + 0001:00284044 TfrmODMeds.TextDosage + 0001:0028216C TfrmODMeds.timCheckChangesTimer + 0001:002759B4 TfrmODMeds.txtMedChange + 0001:00275F40 TfrmODMeds.txtMedExit + 0001:00275838 TfrmODMeds.txtMedKeyDown + 0001:0027597C TfrmODMeds.txtMedKeyUp + 0001:00284810 TfrmODMeds.txtNSSClick + 0001:0027A210 TfrmODMeds.txtQuantityChange + 0001:00284F8C TfrmODMeds.txtQuantityClick + 0001:00284FAC TfrmODMeds.txtRefillsClick + 0001:0027A15C TfrmODMeds.txtSupplyChange + 0001:00284F6C TfrmODMeds.txtSupplyClick + 0001:0027E7FC TfrmODMeds.txtXDurationChange + 0001:00276078 TfrmODMeds.UMDelayClick + 0001:0027DB18 TfrmODMeds.UMDelayEvent + 0001:00284A58 TfrmODMeds.UMShowNSSBuilder + 0001:00280FDC TfrmODMeds.UpdateDefaultSupply + 0001:00279F70 TfrmODMeds.UpdateDurationControls + 0001:00281FE8 TfrmODMeds.UpdateRefills + 0001:00282128 TfrmODMeds.UpdateRelated + 0001:00281868 TfrmODMeds.UpdateSC + 0001:00281974 TfrmODMeds.UpdateStartExpires + 0001:002812EC TfrmODMeds.UpdateSupplyQuantity + 0001:0027C8B8 TfrmODMeds.ValFor + 0001:00274BD8 TfrmODMeds.Validate + 0001:00284B0C TfrmODMeds.ValidateInpatientSchedule + 0001:0027F4A0 TfrmODMeds.ValueOf + 0001:00280D00 TfrmODMeds.ValueOfResponse + 0001:00284FCC TfrmODMeds.WMClose + 0001:0027565C TfrmODMeds.WMTimer + 0001:0019F940 TfrmODMisc.cboCareNeedData + 0001:0019F97C TfrmODMisc.ControlChange + 0001:0019F578 TfrmODMisc.FormCreate + 0001:0019F634 TfrmODMisc.InitDialog + 0001:0019F65C TfrmODMisc.SetupDialog + 0001:0019F78C TfrmODMisc.Validate + 0001:001D087C TfrmODProc.cboProcNeedData + 0001:001D1050 TfrmODProc.cboProcSelect + 0001:001D1D84 TfrmODProc.cboServiceChange + 0001:001D18FC TfrmODProc.cmdLexSearchClick + 0001:001D0A2C TfrmODProc.ControlChange + 0001:001D23CC TfrmODProc.DefaultReasonForRequest + 0001:001D2960 TfrmODProc.DoSetFontSize + 0001:001D2A18 TfrmODProc.FormClose + 0001:001CFD90 TfrmODProc.FormCreate + 0001:001D2928 TfrmODProc.FormDestroy + 0001:001D29F0 TfrmODProc.FormResize + 0001:001D2674 TfrmODProc.GetProvDxandValidateCode + 0001:001CFF10 TfrmODProc.InitDialog + 0001:001D16C8 TfrmODProc.memReasonExit + 0001:001D2998 TfrmODProc.memReasonKeyDown + 0001:001D29E0 TfrmODProc.memReasonKeyPress + 0001:001D25C8 TfrmODProc.memReasonKeyUp + 0001:001D1D8C TfrmODProc.mnuPopProvDxDeleteClick + 0001:001D1F24 TfrmODProc.popReasonCopyClick + 0001:001D1F18 TfrmODProc.popReasonCutClick + 0001:001D1F30 TfrmODProc.popReasonPasteClick + 0001:001D1E34 TfrmODProc.popReasonPopup + 0001:001D1F84 TfrmODProc.popReasonReformatClick + 0001:001D08A4 TfrmODProc.radInpatientClick + 0001:001D0968 TfrmODProc.radOutpatientClick + 0001:001D174C TfrmODProc.ReadServerVariables + 0001:001D2944 TfrmODProc.SetFontSize + 0001:001D1A34 TfrmODProc.SetProvDiagPromptingMode + 0001:001D016C TfrmODProc.SetupDialog + 0001:001D20AC TfrmODProc.SetupReasonForRequest + 0001:001D225C TfrmODProc.ShowPrerequisites + 0001:001D0854 TfrmODProc.txtAttnNeedData + 0001:001D1DBC TfrmODProc.txtProvDiagChange + 0001:001D0514 TfrmODProc.Validate + 0001:0025CD40 TfrmODRad.calPreOpChange + 0001:0025D124 TfrmODRad.calPreOpExit + 0001:0025CD2C TfrmODRad.cboAvailModKeyDown + 0001:0025BFF4 TfrmODRad.cboAvailModMouseClick + 0001:0025C7B4 TfrmODRad.cboCategoryChange + 0001:0025CC58 TfrmODRad.cboImTypeChange + 0001:0025D1A4 TfrmODRad.cboImTypeDropDownClose + 0001:0025D0B0 TfrmODRad.cboImTypeExit + 0001:0025CEE0 TfrmODRad.cboProcedureExit + 0001:0025BFC8 TfrmODRad.cboProcedureNeedData + 0001:0025C318 TfrmODRad.cboProcedureSelect + 0001:0025D0E8 TfrmODRad.chkIsolationExit + 0001:0025CDE4 TfrmODRad.cmdAcceptClick + 0001:0025C18C TfrmODRad.cmdRemoveClick + 0001:0025ACA8 TfrmODRad.ControlChange + 0001:0025D0B8 TfrmODRad.FormClose + 0001:0025C9F8 TfrmODRad.FormCreate + 0001:0025D2B4 TfrmODRad.FormFirstOpened + 0001:0025CCE4 TfrmODRad.FormResize + 0001:0025D1AC TfrmODRad.ImageTypeChange + 0001:0025A5F0 TfrmODRad.InitDialog + 0001:0025CC60 TfrmODRad.memReasonExit + 0001:0025D160 TfrmODRad.NoPregnantSelection + 0001:0025CDA8 TfrmODRad.SetDefaultPregant + 0001:0025C6B0 TfrmODRad.SetModifierList + 0001:00259FC8 TfrmODRad.SetupDialog + 0001:0025B884 TfrmODRad.Validate + 0001:00259200 TfrmODRadApproval.cmdCancelClick + 0001:00259208 TfrmODRadApproval.cmdOKClick + 0001:00259794 TfrmODRadConShRes.cmdCancelClick + 0001:002597B4 TfrmODRadConShRes.cmdOKClick + 0001:001A9618 TfrmODText.ControlChange + 0001:001A9248 TfrmODText.FormCreate + 0001:001A92E4 TfrmODText.InitDialog + 0001:001A9300 TfrmODText.SetupDialog + 0001:001A9400 TfrmODText.Validate + 0001:0028CC4C TfrmODVitals.ControlChange + 0001:0028CED4 TfrmODVitals.FormClose + 0001:0028C7EC TfrmODVitals.FormCreate + 0001:0028C8C8 TfrmODVitals.InitDialog + 0001:0028C948 TfrmODVitals.SetupDialog + 0001:0028CA94 TfrmODVitals.Validate + 0001:001B9448 TfrmOMAction.FormDestroy + 0001:001B94A0 TfrmOMAction.InitDialog + 0001:0028EA64 TfrmOMHTML.AddPageToCache + 0001:002900B0 TfrmOMHTML.btnBackClick + 0001:00290098 TfrmOMHTML.btnCancelClick + 0001:0028FFB0 TfrmOMHTML.btnOKClick + 0001:002901B4 TfrmOMHTML.btnShowClick + 0001:0028FD8C TfrmOMHTML.FormClose + 0001:0028FD18 TfrmOMHTML.FormCreate + 0001:0028FDF0 TfrmOMHTML.FormDestroy + 0001:0028E7DC TfrmOMHTML.GetPageIndex + 0001:0028E840 TfrmOMHTML.MetaElementExists + 0001:0028F558 TfrmOMHTML.RestoreState + 0001:0028EAB0 TfrmOMHTML.SaveState + 0001:0028FC94 TfrmOMHTML.SetDialog + 0001:0028E768 TfrmOMHTML.SetEventDelay + 0001:0028FF90 TfrmOMHTML.webViewBeforeNavigate2 + 0001:0028FE60 TfrmOMHTML.webViewDocumentComplete + 0001:001EAC2C TfrmOMNavA.ActivateDialog + 0001:001EA588 TfrmOMNavA.AddToSelectList + 0001:001E9AF8 TfrmOMNavA.ClearMenuGrid + 0001:001E9ECC TfrmOMNavA.cmdDoneClick + 0001:001E9E88 TfrmOMNavA.cmdNextClick + 0001:001E9E44 TfrmOMNavA.cmdPrevClick + 0001:001EAB90 TfrmOMNavA.CMMouseLeave + 0001:001EA048 TfrmOMNavA.CreateParams + 0001:001EABB0 TfrmOMNavA.DialogNotDisabled + 0001:001EA5B0 TfrmOMNavA.DoSelectList + 0001:001E9B74 TfrmOMNavA.FindOrderMenu + 0001:001EA188 TfrmOMNavA.FormActivate + 0001:001EA18C TfrmOMNavA.FormClose + 0001:001E9F90 TfrmOMNavA.FormCreate + 0001:001EA07C TfrmOMNavA.FormDestroy + 0001:001EAFD4 TfrmOMNavA.FormResize + 0001:001EA28C TfrmOMNavA.grdMenuDrawCell + 0001:001EA718 TfrmOMNavA.grdMenuKeyDown + 0001:001EA8B4 TfrmOMNavA.grdMenuKeyUp + 0001:001EA8D8 TfrmOMNavA.grdMenuMouseDown + 0001:001EA9F8 TfrmOMNavA.grdMenuMouseMove + 0001:001EAA94 TfrmOMNavA.grdMenuMouseUp + 0001:001E9BF4 TfrmOMNavA.PlaceMenuItems + 0001:001EAEEC TfrmOMNavA.pnlToolMouseDown + 0001:001EAF58 TfrmOMNavA.pnlToolMouseMove + 0001:001EAFC4 TfrmOMNavA.pnlToolMouseUp + 0001:001EB00C TfrmOMNavA.ResizeFont + 0001:001EA218 TfrmOMNavA.SetEventDelay + 0001:001E9DA4 TfrmOMNavA.SetNavButtons + 0001:001E9D1C TfrmOMNavA.SetNewMenu + 0001:001EA064 TfrmOMNavA.UMDestroy + 0001:0028DD48 TfrmOMSet.cmdInteruptClick + 0001:0028DD60 TfrmOMSet.DeaCheckPassed + 0001:0028D52C TfrmOMSet.DoNextItem + 0001:0028DC60 TfrmOMSet.FormClose + 0001:0028DBAC TfrmOMSet.FormCloseQuery + 0001:0028DB3C TfrmOMSet.FormCreate + 0001:0028DB6C TfrmOMSet.FormDestroy + 0001:0028D22C TfrmOMSet.InsertList + 0001:0028DE80 TfrmOMSet.IsCreatedByMenu + 0001:0028D1B8 TfrmOMSet.SetEventDelay + 0001:0028D9B4 TfrmOMSet.UMDelayEvent + 0001:0028DA18 TfrmOMSet.UMDestroy + 0001:001E9608 TfrmOMVerify.cmdAcceptClick + 0001:001E9628 TfrmOMVerify.cmdCancelClick + 0001:001E9618 TfrmOMVerify.cmdEditClick + 0001:001E9638 TfrmOMVerify.FormClose + 0001:001E95FC TfrmOMVerify.FormCreate + 0001:001E9640 TfrmOMVerify.memTextKeyUp + 0001:001E2148 TfrmOnChartOrders.cmdCancelClick + 0001:001E2138 TfrmOnChartOrders.cmdOKClick + 0001:001E2130 TfrmOnChartOrders.FormCreate + 0001:001E2220 TfrmOnChartOrders.lstOrdersDrawItem + 0001:001E2150 TfrmOnChartOrders.lstOrdersMeasureItem + 0001:001E2354 TfrmOnChartOrders.Panel2Resize + 0001:0032F60C TfrmOptions.ApplyNotifications + 0001:0032F7B8 TfrmOptions.ApplyOrderChecks + 0001:0032F918 TfrmOptions.ApplyOtherStuff + 0001:0032F484 TfrmOptions.btnApplyClick + 0001:003300D0 TfrmOptions.btnCombinationsClick + 0001:0032F1C0 TfrmOptions.btnCoverDaysClick + 0001:0032F204 TfrmOptions.btnCoverRemindersClick + 0001:00330298 TfrmOptions.btnDiagnosesClick + 0001:003302F4 TfrmOptions.btnGraphSettingsClick + 0001:00330334 TfrmOptions.btnGraphViewsClick + 0001:00330114 TfrmOptions.btnNotesNotesClick + 0001:00330158 TfrmOptions.btnNotesTitlesClick + 0001:0032F358 TfrmOptions.btnNotificationsRemoveClick + 0001:0032F248 TfrmOptions.btnOtherParametersClick + 0001:0032F28C TfrmOptions.btnPatientSelectionClick + 0001:0032F2D0 TfrmOptions.btnPersonalListsClick + 0001:003301E0 TfrmOptions.btnReport1Click + 0001:0033019C TfrmOptions.btnReportsClick + 0001:0033002C TfrmOptions.btnSurrogateClick + 0001:0032F314 TfrmOptions.btnTeamsClick + 0001:00330008 TfrmOptions.ChangeOnOff + 0001:0032F9AC TfrmOptions.CheckApply + 0001:0032F9DC TfrmOptions.chkNotificationsFlaggedClick + 0001:0032F0AC TfrmOptions.FormCreate + 0001:0032F12C TfrmOptions.FormDestroy + 0001:0032F9EC TfrmOptions.LoadListView + 0001:0032F4D4 TfrmOptions.LoadNotifications + 0001:0032F5E4 TfrmOptions.LoadOrderChecks + 0001:0032FBD0 TfrmOptions.lvwNotificationsChange + 0001:0032FD60 TfrmOptions.lvwNotificationsColumnClick + 0001:0032FDB4 TfrmOptions.lvwNotificationsCompare + 0001:0032FED4 TfrmOptions.lvwNotificationsDblClick + 0001:00330224 TfrmOptions.lvwNotificationsEnter + 0001:00330268 TfrmOptions.lvwNotificationsMouseDown + 0001:0032F450 TfrmOptions.Offset + 0001:00330374 TfrmOptions.rdoRDVClick + 0001:00326BA0 TfrmOptionsCombinations.btnAddClick + 0001:0032715C TfrmOptionsCombinations.btnOKClick + 0001:00326EC4 TfrmOptionsCombinations.btnRemoveClick + 0001:00327054 TfrmOptionsCombinations.Duplicate + 0001:00326B7C TfrmOptionsCombinations.FormCreate + 0001:003273EC TfrmOptionsCombinations.FormShow + 0001:0032728C TfrmOptionsCombinations.LoadCombinations + 0001:00326F30 TfrmOptionsCombinations.lstAddByChange + 0001:00327240 TfrmOptionsCombinations.lstAddByEnter + 0001:00327250 TfrmOptionsCombinations.lstAddByExit + 0001:00327140 TfrmOptionsCombinations.lstAddByKeyUp + 0001:00326AB4 TfrmOptionsCombinations.lstAddByNeedData + 0001:00327260 TfrmOptionsCombinations.lvwCombinationsChange + 0001:00326D50 TfrmOptionsCombinations.lvwCombinationsColumnClick + 0001:00326DA4 TfrmOptionsCombinations.lvwCombinationsCompare + 0001:003268A0 TfrmOptionsCombinations.radAddByTypeClick + 0001:0031F82C TfrmOptionsDays.AdjustLabLabel + 0001:0031F6DC TfrmOptionsDays.AdjustVisitLabel + 0001:0031F5EC TfrmOptionsDays.btnLabDefaultsClick + 0001:0031F948 TfrmOptionsDays.btnOKClick + 0001:0031F68C TfrmOptionsDays.btnVisitDefaultsClick + 0001:0031F0B8 TfrmOptionsDays.FormCreate + 0001:0031F0C8 TfrmOptionsDays.FormShow + 0001:0031F4D0 TfrmOptionsDays.spnLabInpatientClick + 0001:0031F548 TfrmOptionsDays.spnLabOutpatientClick + 0001:0031F20C TfrmOptionsDays.spnVisitStartClick + 0001:0031F364 TfrmOptionsDays.spnVisitStopClick + 0001:0031F974 TfrmOptionsDays.txtLabInpatientChange + 0001:0031FA90 TfrmOptionsDays.txtLabInpatientExit + 0001:0031F5C0 TfrmOptionsDays.txtLabInpatientKeyPress + 0001:0031FB98 TfrmOptionsDays.txtLabOutpatientChange + 0001:0031FCB4 TfrmOptionsDays.txtLabOutpatientExit + 0001:0031FDBC TfrmOptionsDays.txtVisitStartExit + 0001:0031FFC4 TfrmOptionsDays.txtVisitStartKeyPress + 0001:0031FE5C TfrmOptionsDays.txtVisitStartKeyUp + 0001:0031FEC0 TfrmOptionsDays.txtVisitStopExit + 0001:0031FFE0 TfrmOptionsDays.txtVisitStopKeyPress + 0001:0031FF60 TfrmOptionsDays.txtVisitStopKeyUp + 0001:00323E34 TfrmOptionsLists.AddIfUnique + 0001:003245AC TfrmOptionsLists.btnDeleteListClick + 0001:003248C0 TfrmOptionsLists.btnListAddAllClick + 0001:00324B68 TfrmOptionsLists.btnListAddClick + 0001:003247C8 TfrmOptionsLists.btnListSaveChangesClick + 0001:00323B1C TfrmOptionsLists.btnNewListClick + 0001:00324EF0 TfrmOptionsLists.btnOKClick + 0001:00324860 TfrmOptionsLists.btnPersonalPatientRAClick + 0001:003249E8 TfrmOptionsLists.btnPersonalPatientRClick + 0001:00323AE8 TfrmOptionsLists.FormCreate + 0001:00324D7C TfrmOptionsLists.FormShow + 0001:003241E0 TfrmOptionsLists.lstAddByClick + 0001:00325254 TfrmOptionsLists.lstAddByKeyPress + 0001:00324E04 TfrmOptionsLists.lstAddByNeedData + 0001:00324C90 TfrmOptionsLists.lstListPatsChange + 0001:003250A4 TfrmOptionsLists.lstListPatsMouseDown + 0001:00323F20 TfrmOptionsLists.lstPersonalListsChange + 0001:00324A8C TfrmOptionsLists.lstPersonalPatientsChange + 0001:00325118 TfrmOptionsLists.lstPersonalPatientsMouseDown + 0001:00324FF4 TfrmOptionsLists.mnuPatientIDClick + 0001:00323BE0 TfrmOptionsLists.radAddByTypeClick + 0001:0032324C TfrmOptionsNewList.btnOKClick + 0001:00323434 TfrmOptionsNewList.txtNewListChange + 0001:0032340C TfrmOptionsNewList.txtNewListKeyPress + 0001:00328A38 TfrmOptionsNotes.btnOKClick + 0001:00328EB8 TfrmOptionsNotes.cboCosignerExit + 0001:00328E90 TfrmOptionsNotes.cboCosignerNeedData + 0001:003288AC TfrmOptionsNotes.FormShow + 0001:00328E28 TfrmOptionsNotes.spnAutoSaveClick + 0001:00328BD8 TfrmOptionsNotes.txtAutoSaveChange + 0001:00328D20 TfrmOptionsNotes.txtAutoSaveExit + 0001:00328CF4 TfrmOptionsNotes.txtAutoSaveKeyPress + 0001:00328420 TfrmOptionsOther.btnEncDefaultsClick + 0001:00327BC0 TfrmOptionsOther.btnOKClick + 0001:00328018 TfrmOptionsOther.dtStartChange + 0001:00327ED4 TfrmOptionsOther.dtStartExit + 0001:00327F5C TfrmOptionsOther.dtStopExit + 0001:00327EB4 TfrmOptionsOther.FormCreate + 0001:00327938 TfrmOptionsOther.FormShow + 0001:003280A0 TfrmOptionsOther.txtEncStartChange + 0001:00328358 TfrmOptionsOther.txtEncStartExit + 0001:003281FC TfrmOptionsOther.txtEncStopChange + 0001:003283BC TfrmOptionsOther.txtEncStopExit + 0001:003228E0 TfrmOptionsPatientSelection.btnOKClick + 0001:00322E24 TfrmOptionsPatientSelection.cboFridayNeedData + 0001:00322D84 TfrmOptionsPatientSelection.cboMondayNeedData + 0001:00322C88 TfrmOptionsPatientSelection.cboProviderExit + 0001:00322F18 TfrmOptionsPatientSelection.cboProviderKeyUp + 0001:00322E9C TfrmOptionsPatientSelection.cboProviderNeedData + 0001:00322E4C TfrmOptionsPatientSelection.cboSaturdayNeedData + 0001:00322E74 TfrmOptionsPatientSelection.cboSundayNeedData + 0001:00322DFC TfrmOptionsPatientSelection.cboThursdayNeedData + 0001:00322DAC TfrmOptionsPatientSelection.cboTuesdayNeedData + 0001:00322DD4 TfrmOptionsPatientSelection.cboWednesdayNeedData + 0001:003220D4 TfrmOptionsPatientSelection.FormCreate + 0001:00322184 TfrmOptionsPatientSelection.FormShow + 0001:00322EC4 TfrmOptionsPatientSelection.NextControl + 0001:00322CB0 TfrmOptionsPatientSelection.radListSourceClick + 0001:00322678 TfrmOptionsPatientSelection.spnVisitStartClick + 0001:003227B8 TfrmOptionsPatientSelection.spnVisitStopClick + 0001:00322A90 TfrmOptionsPatientSelection.txtVisitStartExit + 0001:00322ED8 TfrmOptionsPatientSelection.txtVisitStartKeyPress + 0001:00322BC0 TfrmOptionsPatientSelection.txtVisitStartKeyUp + 0001:00322B28 TfrmOptionsPatientSelection.txtVisitStopExit + 0001:00322EF4 TfrmOptionsPatientSelection.txtVisitStopKeyPress + 0001:00322C24 TfrmOptionsPatientSelection.txtVisitStopKeyUp + 0001:0032083C TfrmOptionsReminders.btnAddClick + 0001:003207F4 TfrmOptionsReminders.btnDeleteClick + 0001:0032078C TfrmOptionsReminders.btnDownClick + 0001:003209C4 TfrmOptionsReminders.btnOKClick + 0001:00320728 TfrmOptionsReminders.btnUpClick + 0001:003205E0 TfrmOptionsReminders.CheckEnable + 0001:00320468 TfrmOptionsReminders.FormCreate + 0001:0032089C TfrmOptionsReminders.GetFirstSelection + 0001:00320718 TfrmOptionsReminders.lstDisplayedChange + 0001:00320720 TfrmOptionsReminders.lstNotDisplayedChange + 0001:0032091C TfrmOptionsReminders.MoveSelected + 0001:00320AD8 TfrmOptionsReminders.radSortClick + 0001:003208D4 TfrmOptionsReminders.SetItem + 0001:0032B380 TfrmOptionsReportsCustom.btnApplyClick + 0001:0032B600 TfrmOptionsReportsCustom.btnCancelClick + 0001:0032BE08 TfrmOptionsReportsCustom.btnOKClick + 0001:0032B048 TfrmOptionsReportsCustom.edtMaxExit + 0001:0032BDE0 TfrmOptionsReportsCustom.edtMaxKeyPress + 0001:0032BE2C TfrmOptionsReportsCustom.edtSearchChange + 0001:0032BFD4 TfrmOptionsReportsCustom.edtSearchKeyPress + 0001:0032BD78 TfrmOptionsReportsCustom.FormClose + 0001:0032A8A8 TfrmOptionsReportsCustom.FormCreate + 0001:0032C54C TfrmOptionsReportsCustom.FormDestroy + 0001:0032BFFC TfrmOptionsReportsCustom.FormShow + 0001:0032AFA8 TfrmOptionsReportsCustom.grdReportDrawCell + 0001:0032C4CC TfrmOptionsReportsCustom.grdReportKeyDown + 0001:0032AB98 TfrmOptionsReportsCustom.grdReportKeyPress + 0001:0032AD74 TfrmOptionsReportsCustom.grdReportMouseDown + 0001:0032B618 TfrmOptionsReportsCustom.odbStartExit + 0001:0032BD90 TfrmOptionsReportsCustom.odbStartKeyPress + 0001:0032B9C8 TfrmOptionsReportsCustom.odbStopExit + 0001:0032BDB8 TfrmOptionsReportsCustom.odbStopKeyPress + 0001:0032A980 TfrmOptionsReportsCustom.ShowEditor + 0001:0032A72C TfrmOptionsReportsCustom.UMDelayEvent + 0001:0032AB70 TfrmOptionsReportsCustom.ValFor + 0001:0032CE44 TfrmOptionsReportsDefault.btnCancelClick + 0001:0032CA40 TfrmOptionsReportsDefault.btnOKClick + 0001:0032CE4C TfrmOptionsReportsDefault.btnResetClick + 0001:0032D56C TfrmOptionsReportsDefault.edtDefaultEndKeyPress + 0001:0032DDF8 TfrmOptionsReportsDefault.edtDefaultMaxClick + 0001:0032D260 TfrmOptionsReportsDefault.edtDefaultMaxExit + 0001:0032D580 TfrmOptionsReportsDefault.edtDefaultMaxKeyPress + 0001:0032D558 TfrmOptionsReportsDefault.edtDefaultStartKeyPress + 0001:0032D3F4 TfrmOptionsReportsDefault.fillLabelText + 0001:0032D594 TfrmOptionsReportsDefault.FormCreate + 0001:0032DDE0 TfrmOptionsReportsDefault.odcDfStartClick + 0001:0032D894 TfrmOptionsReportsDefault.odcDfStartExit + 0001:0032DD80 TfrmOptionsReportsDefault.odcDfStartKeyPress + 0001:0032DDEC TfrmOptionsReportsDefault.odcDfStopClick + 0001:0032DB04 TfrmOptionsReportsDefault.odcDfStopExit + 0001:0032DDB0 TfrmOptionsReportsDefault.odcDfStopKeyPress + 0001:00321404 TfrmOptionsSurrogate.btnOKClick + 0001:003215B0 TfrmOptionsSurrogate.btnRemoveClick + 0001:00321288 TfrmOptionsSurrogate.btnSurrogateDateRangeClick + 0001:00321814 TfrmOptionsSurrogate.cboSurrogateChange + 0001:003218EC TfrmOptionsSurrogate.cboSurrogateKeyDown + 0001:003213DC TfrmOptionsSurrogate.cboSurrogateNeedData + 0001:00321250 TfrmOptionsSurrogate.FormShow + 0001:00321614 TfrmOptionsSurrogate.LabelInfo + 0001:00325FAC TfrmOptionsTeams.btnRemoveClick + 0001:00325FA4 TfrmOptionsTeams.cboSubscribeClick + 0001:00326190 TfrmOptionsTeams.cboSubscribeKeyDown + 0001:003261CC TfrmOptionsTeams.cboSubscribeMouseClick + 0001:00325C04 TfrmOptionsTeams.chkPersonalClick + 0001:00325F9C TfrmOptionsTeams.chkRestrictClick + 0001:00325804 TfrmOptionsTeams.FillATeams + 0001:00325930 TfrmOptionsTeams.FillList + 0001:003257D4 TfrmOptionsTeams.FormCreate + 0001:00325AA4 TfrmOptionsTeams.ItemNotAMember + 0001:00326148 TfrmOptionsTeams.lstPatientsMouseDown + 0001:00325C68 TfrmOptionsTeams.lstTeamsClick + 0001:00325B54 TfrmOptionsTeams.MemberNotOnList + 0001:003259F4 TfrmOptionsTeams.MergeList + 0001:003260E0 TfrmOptionsTeams.mnuPatientIDClick + 0001:00329CE4 TfrmOptionsTitles.AddIfUnique + 0001:00329B24 TfrmOptionsTitles.btnAddClick + 0001:003299A4 TfrmOptionsTitles.btnDefaultClick + 0001:00329F04 TfrmOptionsTitles.btnDownClick + 0001:003295E4 TfrmOptionsTitles.btnOKClick + 0001:00329C68 TfrmOptionsTitles.btnRemoveClick + 0001:003298C0 TfrmOptionsTitles.btnSaveChangesClick + 0001:00329E88 TfrmOptionsTitles.btnUpClick + 0001:0032960C TfrmOptionsTitles.cboDocumentClassClick + 0001:00329E80 TfrmOptionsTitles.cboDocumentTitlesChange + 0001:0032986C TfrmOptionsTitles.cboDocumentTitlesNeedData + 0001:0032A108 TfrmOptionsTitles.CheckEnable + 0001:00329490 TfrmOptionsTitles.FormShow + 0001:00329F84 TfrmOptionsTitles.GetFirstSelection + 0001:00329BC4 TfrmOptionsTitles.lstYourTitlesChange + 0001:0032A294 TfrmOptionsTitles.lstYourTitlesClick + 0001:00329DD0 TfrmOptionsTitles.MemberNotOnList + 0001:00329FF8 TfrmOptionsTitles.RemoveSelected + 0001:00329FBC TfrmOptionsTitles.SetItem + 0001:003664EC TfrmOrders.AddToListBox + 0001:0035B728 TfrmOrders.AllowContextChange + 0001:0036474C TfrmOrders.btnDelayedOrderClick + 0001:0035C98C TfrmOrders.CanChangeOrderView + 0001:003665BC TfrmOrders.ChangesUpdate + 0001:003674DC TfrmOrders.CheckOrderStatus + 0001:0035DE04 TfrmOrders.ClearOrderSheets + 0001:0035B7BC TfrmOrders.ClearPtData + 0001:003661FC TfrmOrders.ClickLstSheet + 0001:003648D0 TfrmOrders.CompressEventSection + 0001:00364A38 TfrmOrders.DfltViewForEvtDelay + 0001:00365DEC TfrmOrders.DisplayDefaultDlgList + 0001:0035B81C TfrmOrders.DisplayPage + 0001:00364B08 TfrmOrders.EventRealeasedOrder1Click + 0001:00364950 TfrmOrders.ExpandEventSection + 0001:0035C1E0 TfrmOrders.FormCreate + 0001:0035C304 TfrmOrders.FormDestroy + 0001:00367144 TfrmOrders.FormShow + 0001:00365650 TfrmOrders.GetEvtIFN + 0001:0035EE64 TfrmOrders.GetOrderText + 0001:0035E9A0 TfrmOrders.GetPlainText + 0001:0035ECE0 TfrmOrders.GetStartStopText + 0001:003670E4 TfrmOrders.getTotalSectionsWidth + 0001:00366C70 TfrmOrders.GroupChangesUpdate + 0001:00367234 TfrmOrders.hdrOrdersMouseDown + 0001:00367154 TfrmOrders.hdrOrdersMouseUp + 0001:00367988 TfrmOrders.hdrOrdersSectionClick + 0001:0035F474 TfrmOrders.hdrOrdersSectionResize + 0001:0035DE74 TfrmOrders.InitOrderSheets + 0001:00366298 TfrmOrders.InitOrderSheets2 + 0001:00364A1C TfrmOrders.InitOrderSheetsForEvtDelay + 0001:00366228 TfrmOrders.lblWriteMouseMove + 0001:0035F4F8 TfrmOrders.lstOrdersDblClick + 0001:0035F0C0 TfrmOrders.lstOrdersDrawItem + 0001:0035EB70 TfrmOrders.lstOrdersMeasureItem + 0001:0035E1D8 TfrmOrders.lstSheetsClick + 0001:0035F514 TfrmOrders.lstWriteClick + 0001:0036071C TfrmOrders.MakeSelectedList + 0001:0035EAB4 TfrmOrders.MeasureColumnHeight + 0001:00361804 TfrmOrders.mnuActAlertClick + 0001:003623B4 TfrmOrders.mnuActChangeClick + 0001:00362048 TfrmOrders.mnuActChartRevClick + 0001:00360F88 TfrmOrders.mnuActChgEvntClick + 0001:003664B4 TfrmOrders.mnuActClick + 0001:00362194 TfrmOrders.mnuActCommentClick + 0001:00361DB0 TfrmOrders.mnuActCompleteClick + 0001:0036261C TfrmOrders.mnuActCopyClick + 0001:00360940 TfrmOrders.mnuActDCClick + 0001:00361950 TfrmOrders.mnuActFlagClick + 0001:00361234 TfrmOrders.mnuActHoldClick + 0001:00362E78 TfrmOrders.mnuActOnChartClick + 0001:00360BC8 TfrmOrders.mnuActRelClick + 0001:00362AE0 TfrmOrders.mnuActReleaseClick + 0001:0036159C TfrmOrders.mnuActRenewClick + 0001:0036321C TfrmOrders.mnuActSignClick + 0001:00361B78 TfrmOrders.mnuActUnflagClick + 0001:00361400 TfrmOrders.mnuActUnholdClick + 0001:00361EFC TfrmOrders.mnuActVerifyClick + 0001:0035BC04 TfrmOrders.mnuChartTabClick + 0001:003664D0 TfrmOrders.mnuOptClick + 0001:0036370C TfrmOrders.mnuOptEditCommonClick + 0001:003677F4 TfrmOrders.mnuOptimizeFieldsClick + 0001:003636F4 TfrmOrders.mnuOptSaveQuickClick + 0001:0035CD3C TfrmOrders.mnuViewActiveClick + 0001:00366498 TfrmOrders.mnuViewClick + 0001:0035CDB4 TfrmOrders.mnuViewCurrentClick + 0001:0035CF2C TfrmOrders.mnuViewCustomClick + 0001:0035D644 TfrmOrders.mnuViewDetailClick + 0001:0035D328 TfrmOrders.mnuViewDfltSaveClick + 0001:0035D190 TfrmOrders.mnuViewDfltShowClick + 0001:0035CE7C TfrmOrders.mnuViewExpiredClick + 0001:0035CE28 TfrmOrders.mnuViewExpiringClick + 0001:00367624 TfrmOrders.mnuViewInformationClick + 0001:0035DA70 TfrmOrders.mnuViewResultClick + 0001:0035DC38 TfrmOrders.mnuViewResultsHistoryClick + 0001:0035CED8 TfrmOrders.mnuViewUnsignedClick + 0001:00360788 TfrmOrders.NoneSelected + 0001:0035BCB4 TfrmOrders.NotifyOrder + 0001:00367254 TfrmOrders.PatientStatusChanged + 0001:00365784 TfrmOrders.PlaceOrderForDefaultDialog + 0001:00364400 TfrmOrders.pnlRightResize + 0001:0036647C TfrmOrders.popOrderPopup + 0001:0035C3C4 TfrmOrders.PositionTopOrder + 0001:00363724 TfrmOrders.ProcessNotifications + 0001:003666F4 TfrmOrders.PtEvtCompleted + 0001:0035C4F4 TfrmOrders.RedrawOrderList + 0001:0035C5FC TfrmOrders.RefreshOrderList + 0001:00360818 TfrmOrders.RemoveSelectedFromChanges + 0001:00364430 TfrmOrders.RequestPrint + 0001:00364D44 TfrmOrders.ResetOrderPage + 0001:0035E908 TfrmOrders.RetrieveVisibleOrders + 0001:0035FCB8 TfrmOrders.SaveSignOrders + 0001:00366418 TfrmOrders.SetFontSize + 0001:0035CA64 TfrmOrders.SetOrderView + 0001:003670A4 TfrmOrders.setSectionWidths + 0001:003679A8 TfrmOrders.sptHorzMoved + 0001:0036086C TfrmOrders.SynchListToOrders + 0001:0035C3A0 TfrmOrders.UMDestroy + 0001:00366D24 TfrmOrders.UMEventOccur + 0001:0035C91C TfrmOrders.UseDefaultSort + 0001:0035FE58 TfrmOrders.ValidateSelected + 0001:0036416C TfrmOrders.ViewAlertedOrders + 0001:00367604 TfrmOrders.ViewInfo + 0001:001E3834 TfrmOrdersEvntRelease.btnApplyClick + 0001:001E3894 TfrmOrdersEvntRelease.btnApplyKeyDown + 0001:001E2CD8 TfrmOrdersEvntRelease.btnCancelClick + 0001:001E2F7C TfrmOrdersEvntRelease.btnOKClick + 0001:001E36D8 TfrmOrdersEvntRelease.edtNumberChange + 0001:001E38A8 TfrmOrdersEvntRelease.edtNumberClick + 0001:001E3820 TfrmOrdersEvntRelease.edtNumberKeyDown + 0001:001E392C TfrmOrdersEvntRelease.FormClose + 0001:001E2934 TfrmOrdersEvntRelease.FormCreate + 0001:001E393C TfrmOrdersEvntRelease.FormDestroy + 0001:001E2CE0 TfrmOrdersEvntRelease.FormShow + 0001:001E3404 TfrmOrdersEvntRelease.grdEvtListDblClick + 0001:001E2CEC TfrmOrdersEvntRelease.grdEvtListDrawCell + 0001:001E320C TfrmOrdersEvntRelease.grdEvtListKeyPress + 0001:001E2D8C TfrmOrdersEvntRelease.grdEvtListMouseDown + 0001:001E341C TfrmOrdersEvntRelease.pnlBottomResize + 0001:001E3464 TfrmOrdersEvntRelease.ShowEvents + 0001:001E38B4 TfrmOrdersEvntRelease.updown1Click + 0001:001D9970 TfrmOrdersPrint.ckChartCopyClick + 0001:001D99A4 TfrmOrdersPrint.ckLabelsClick + 0001:001D99D8 TfrmOrdersPrint.ckRequisitionsClick + 0001:001D9A0C TfrmOrdersPrint.ckWorkCopyClick + 0001:001D965C TfrmOrdersPrint.cmdCancelClick + 0001:001D9180 TfrmOrdersPrint.cmdChartClick + 0001:001D91F8 TfrmOrdersPrint.cmdLabelsClick + 0001:001D9360 TfrmOrdersPrint.cmdOKClick + 0001:001D9270 TfrmOrdersPrint.cmdReqsClick + 0001:001D92E8 TfrmOrdersPrint.cmdWorkClick + 0001:001D9A40 TfrmOrdersPrint.DeviceListClick + 0001:001D9A50 TfrmOrdersPrint.FormKeyUp + 0001:001D8D8C TfrmOrdersPrint.SetupControls + 0001:001D8FA8 TfrmOrdersPrint.SetupPrompting + 0001:001E8760 TfrmOrdersReleaseEvent.btnCancelClick + 0001:001E87CC TfrmOrdersReleaseEvent.btnOKClick + 0001:001E8960 TfrmOrdersReleaseEvent.cklstOrdersDrawItem + 0001:001E8880 TfrmOrdersReleaseEvent.cklstOrdersMeasureItem + 0001:001E8A74 TfrmOrdersReleaseEvent.cklstOrdersMouseMove + 0001:001E8768 TfrmOrdersReleaseEvent.FormCreate + 0001:001E885C TfrmOrdersReleaseEvent.FormDestroy + 0001:001F0350 TfrmOrdersTS.cmdCancelClick + 0001:001F0214 TfrmOrdersTS.cmdOKClick + 0001:001F0618 TfrmOrdersTS.FormClose + 0001:001F01CC TfrmOrdersTS.FormCreate + 0001:001F0658 TfrmOrdersTS.FormKeyDown + 0001:001F046C TfrmOrdersTS.fraEvntDelayListcboEvntListChange + 0001:001F0628 TfrmOrdersTS.fraEvntDelayListmlstEventsChange + 0001:001F0594 TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick + 0001:001F0360 TfrmOrdersTS.radDelayedClick + 0001:001F038C TfrmOrdersTS.radReleaseNowClick + 0001:001F049C TfrmOrdersTS.UMStillDelay + 0001:001D44C8 TfrmOrderView.calChange + 0001:001D43A8 TfrmOrderView.chkDateRangeClick + 0001:001D4618 TfrmOrderView.cmdCancelClick + 0001:001D44D0 TfrmOrderView.cmdOKClick + 0001:001D3CC8 TfrmOrderView.FormCreate + 0001:001D4080 TfrmOrderView.LoadDGroups + 0001:001D41F8 TfrmOrderView.LoadFilters + 0001:001D4714 TfrmOrderView.Splitter1Moved + 0001:001D3EFC TfrmOrderView.SynchViewData + 0001:001D4370 TfrmOrderView.treServiceClick + 0001:001D4620 TfrmOrderView.trFiltersClick + 0001:001D3D7C TfrmOrderView.UpdateViewName + 0001:00270E54 TfrmOtherSchedule.btn0k1Click + 0001:002714D4 TfrmOtherSchedule.btnAddClick + 0001:00270E48 TfrmOtherSchedule.btnCancelClick + 0001:002717BC TfrmOtherSchedule.btnRemoveClick + 0001:002716E8 TfrmOtherSchedule.btnResetClick + 0001:00272774 TfrmOtherSchedule.Button1Click + 0001:002713FC TfrmOtherSchedule.cbo1Click + 0001:00271420 TfrmOtherSchedule.cbo2Click + 0001:00271444 TfrmOtherSchedule.cbo3Click + 0001:00271468 TfrmOtherSchedule.cbo4Click + 0001:0027148C TfrmOtherSchedule.cbo5Click + 0001:002714B0 TfrmOtherSchedule.cbo6Click + 0001:002713D8 TfrmOtherSchedule.cbo7Click + 0001:002723EC TfrmOtherSchedule.CheckDay + 0001:00271A58 TfrmOtherSchedule.FormClose + 0001:00270D24 TfrmOtherSchedule.FormCreate + 0001:00271984 TfrmOtherSchedule.GetSiteMessage + 0001:002723A0 TfrmOtherSchedule.lstHourClick + 0001:00272740 TfrmOtherSchedule.lstMinuteKeyDown + 0001:00272714 TfrmOtherSchedule.lstMinuteMouseUp + 0001:00270F60 TfrmOtherSchedule.SetDaySchedule + 0001:002711C8 TfrmOtherSchedule.SetTimeSchedule + 0001:002723C8 TfrmOtherSchedule.txtScheduleChange + 0001:002720A8 TfrmOtherSchedule.UpdateOnFreeTextInput + 0001:0037F094 TfrmPage.AllowContextChange + 0001:0037F0AC TfrmPage.ClearPtData + 0001:0037F0C4 TfrmPage.DisplayPage + 0001:0037F2AC TfrmPage.FocusFirstControl + 0001:0037F228 TfrmPage.FormClose + 0001:0037EF98 TfrmPage.FormCreate + 0001:0037F244 TfrmPage.frmPageEnter + 0001:0037F1C8 TfrmPage.GetInitPage + 0001:0037F1E8 TfrmPage.GetInitPatient + 0001:0037F208 TfrmPage.GetPatientViewed + 0001:0037F028 TfrmPage.Loaded + 0001:0037F14C TfrmPage.NotifyOrder + 0001:0037F160 TfrmPage.RequestPrint + 0001:0037F16C TfrmPage.SetFontSize + 0001:002F8E2C TfrmPatientEd.cboPatUnderstandingChange + 0001:002F8EFC TfrmPatientEd.FormCreate + 0001:002F8F8C TfrmPatientEd.UpdateControls + 0001:002F8F6C TfrmPatientEd.UpdateNewItemStr + 0001:0030088C TfrmPCEBase.ActiveCtrl + 0001:00300810 TfrmPCEBase.AllowTabChange + 0001:00300788 TfrmPCEBase.btnCancelClick + 0001:003007C0 TfrmPCEBase.btnOKClick + 0001:00300820 TfrmPCEBase.CreateLinked + 0001:0030069C TfrmPCEBase.DisplayPage + 0001:003009F8 TfrmPCEBase.DoEnter + 0001:00300A20 TfrmPCEBase.FocusFirstControl + 0001:003007EC TfrmPCEBase.FormClose + 0001:00300608 TfrmPCEBase.FormCreate + 0001:00300A44 TfrmPCEBase.FormShow + 0001:00300630 TfrmPCEBase.Loaded + 0001:003008C8 TfrmPCEBase.SectionString + 0001:003006FC TfrmPCEBase.SetFontSize + 0001:0030071C TfrmPCEBase.UMResizePage + 0001:0012EDD8 TfrmPCEBaseGrid.ClearGrid + 0001:0012E7CC TfrmPCEBaseGrid.FormCreate + 0001:0012ED38 TfrmPCEBaseGrid.GetGridIndex + 0001:0012EA70 TfrmPCEBaseGrid.hcGridSectionResize + 0001:0012EA78 TfrmPCEBaseGrid.pnlGridResize + 0001:0012EE30 TfrmPCEBaseGrid.RestoreGridSelected + 0001:0012EED8 TfrmPCEBaseGrid.SaveGridSelected + 0001:0012ED90 TfrmPCEBaseGrid.SetGridIndex + 0001:0012EA80 TfrmPCEBaseGrid.SyncGridData + 0001:0012E810 TfrmPCEBaseGrid.SyncGridHeader + 0001:0012EE2C TfrmPCEBaseGrid.UpdateControls + 0001:002FCFCC TfrmPCEBaseMain.AllowTabChange + 0001:002FD37C TfrmPCEBaseMain.BeginUpdate + 0001:002FCDB8 TfrmPCEBaseMain.btnOtherClick + 0001:002FCFF0 TfrmPCEBaseMain.btnRemoveClick + 0001:002FD534 TfrmPCEBaseMain.btnSelectAllClick + 0001:002FD3A0 TfrmPCEBaseMain.CheckOffEntries + 0001:002FD2CC TfrmPCEBaseMain.clbListClick + 0001:002FD5CC TfrmPCEBaseMain.clbListMouseDown + 0001:002FCFD4 TfrmPCEBaseMain.edtCommentChange + 0001:002FCF4C TfrmPCEBaseMain.edtCommentExit + 0001:002FDD64 TfrmPCEBaseMain.edtCommentKeyPress + 0001:002FD384 TfrmPCEBaseMain.EndUpdate + 0001:002FD2DC TfrmPCEBaseMain.FormDestroy + 0001:002FD5B4 TfrmPCEBaseMain.FormResize + 0001:002FD5D4 TfrmPCEBaseMain.GetCat + 0001:002FCC6C TfrmPCEBaseMain.GridChanged + 0001:002FD31C TfrmPCEBaseMain.InitTab + 0001:002FD2D0 TfrmPCEBaseMain.lbGridSelect + 0001:002FCC34 TfrmPCEBaseMain.lbSectionClick + 0001:002FD670 TfrmPCEBaseMain.lbxSectionClickCheck + 0001:002FD394 TfrmPCEBaseMain.NotUpdating + 0001:002FD9B8 TfrmPCEBaseMain.splLeftMoved + 0001:002FD9F4 TfrmPCEBaseMain.Sync2Grid + 0001:002FDBB8 TfrmPCEBaseMain.Sync2Section + 0001:002FD1B0 TfrmPCEBaseMain.UpdateControls + 0001:002FCC68 TfrmPCEBaseMain.UpdateNewItemStr + 0001:002FD968 TfrmPCEBaseMain.UpdateTabPos + 0001:0021B410 TfrmPCEEdit.FormCreate + 0001:0035298C TfrmPCELex.cmdCancelClick + 0001:00352830 TfrmPCELex.cmdOKClick + 0001:00352698 TfrmPCELex.cmdSearchClick + 0001:00352584 TfrmPCELex.FormCreate + 0001:003527E4 TfrmPCELex.lstSelectClick + 0001:003529A4 TfrmPCELex.lstSelectDblClick + 0001:00352594 TfrmPCELex.SetApp + 0001:0035265C TfrmPCELex.SetDate + 0001:00352678 TfrmPCELex.txtSearchChange + 0001:002FBD28 TfrmPCEOther.cboOtherChange + 0001:002FBD20 TfrmPCEOther.cboOtherDblClick + 0001:002FBD08 TfrmPCEOther.cmdCancelClick + 0001:002FBC7C TfrmPCEOther.cmdOKClick + 0001:002FBCF8 TfrmPCEOther.FormCreate + 0001:002FBB48 TfrmPCEOther.SetApp + 0001:001B1394 TfrmPCEProvider.AskUser + 0001:001B1250 TfrmPCEProvider.btnSelectClick + 0001:001B1148 TfrmPCEProvider.cboPrimaryChange + 0001:001B10AC TfrmPCEProvider.cboPrimaryNeedData + 0001:001B1234 TfrmPCEProvider.FormCreate + 0001:001B8BA8 TfrmPLLex.bbCanClick + 0001:001B876C TfrmPLLex.bbOKClick + 0001:001B8F00 TfrmPLLex.bbSearchClick + 0001:001B8C14 TfrmPLLex.ebLexKeyPress + 0001:001B8754 TfrmPLLex.FormClose + 0001:001B8BC0 TfrmPLLex.FormCreate + 0001:001B9270 TfrmPLLex.FormShow + 0001:001B9268 TfrmPLLex.lbLexClick + 0001:001B80EC TfrmPlVuFilt.cboProviderNeedData + 0001:001B7A5C TfrmPlVuFilt.cboSourceChange + 0001:001B7A64 TfrmPlVuFilt.cboSourceEnter + 0001:001B7A74 TfrmPlVuFilt.cboSourceExit + 0001:001B813C TfrmPlVuFilt.cboSourceNeedData + 0001:001B75D0 TfrmPlVuFilt.cmdAddClick + 0001:001B7A84 TfrmPlVuFilt.cmdCancelClick + 0001:001B7E20 TfrmPlVuFilt.cmdDefaultViewClick + 0001:001B7B90 TfrmPlVuFilt.cmdOKClick + 0001:001B7770 TfrmPlVuFilt.cmdRemoveAllClick + 0001:001B76BC TfrmPlVuFilt.cmdRemoveClick + 0001:001B8488 TfrmPlVuFilt.cmdSaveClick + 0001:001B819C TfrmPlVuFilt.CreateContextString + 0001:001B82D8 TfrmPlVuFilt.CreateFilterString + 0001:001B7E24 TfrmPlVuFilt.FormClose + 0001:001B7400 TfrmPlVuFilt.FormCreate + 0001:001B743C TfrmPlVuFilt.FormShow + 0001:001B7E2C TfrmPlVuFilt.GetClinicList + 0001:001B7FF0 TfrmPlVuFilt.GetLocationList + 0001:001B7F0C TfrmPlVuFilt.GetServiceList + 0001:001B7A54 TfrmPlVuFilt.lstDestClick + 0001:001B7808 TfrmPlVuFilt.rgVuClick + 0001:001B778C TfrmPlVuFilt.SetButtons + 0001:001CE440 TfrmPrerequisites.AlignButtons + 0001:001CE0E4 TfrmPrerequisites.cmdCancelClick + 0001:001CE0D4 TfrmPrerequisites.cmdContinueClick + 0001:001CE0F4 TfrmPrerequisites.cmdPrintClick + 0001:001CE474 TfrmPrerequisites.FormClose + 0001:001CE428 TfrmPrerequisites.FormCreate + 0001:001CE47C TfrmPrerequisites.FormShow + 0001:001CE0D0 TfrmPrerequisites.memReportClick + 0001:0022B920 TfrmPrintList.cmdCancelClick + 0001:0022B938 TfrmPrintList.cmdOKClick + 0001:0022B910 TfrmPrintList.FormCreate + 0001:0022B9D8 TfrmPrintList.SelectParentFromList + 0001:002465EC TfrmProbCmt.bbCancelClick + 0001:00246618 TfrmProbCmt.bbOKClick + 0001:0024FA14 TfrmProblems.AddProblem + 0001:0024AFFC TfrmProblems.AllowContextChange + 0001:0024D400 TfrmProblems.ApplyViewFilters + 0001:00251310 TfrmProblems.bbCancelClick + 0001:00252494 TfrmProblems.bbNewProbExit + 0001:0024D184 TfrmProblems.bbOtherProbClick + 0001:0024E3FC TfrmProblems.ClearGrid + 0001:0024B0F8 TfrmProblems.ClearPtData + 0001:0024B184 TfrmProblems.DisplayPage + 0001:0024FED4 TfrmProblems.EditProblem + 0001:0024D15C TfrmProblems.edProbEntKeyPress + 0001:0024E014 TfrmProblems.FormCreate + 0001:002514EC TfrmProblems.FormDestroy + 0001:00252618 TfrmProblems.FormHide + 0001:002526A8 TfrmProblems.FormMouseMove + 0001:00252650 TfrmProblems.FormShow + 0001:00252570 TfrmProblems.frmFramePnlPatientExit + 0001:0024D9B0 TfrmProblems.GetRowCount + 0001:00252BFC TfrmProblems.getTotalSectionsWidth + 0001:00252C5C TfrmProblems.HeaderControlMouseDown + 0001:00252B1C TfrmProblems.HeaderControlMouseUp + 0001:00252AFC TfrmProblems.HeaderControlSectionClick + 0001:00252278 TfrmProblems.HeaderControlSectionResize + 0001:0024F588 TfrmProblems.HighlightDuplicate + 0001:0024E3BC TfrmProblems.LoadPatientParams + 0001:0024E4D4 TfrmProblems.LoadPatientProblems + 0001:0024F354 TfrmProblems.LoadProblems + 0001:0024F1B8 TfrmProblems.LoadUserCats + 0001:0024E0AC TfrmProblems.LoadUserParams + 0001:0024F2A8 TfrmProblems.LoadUserProbs + 0001:0024B26C TfrmProblems.lstCatPickClick + 0001:0024B2C4 TfrmProblems.lstProbActsClick + 0001:0024CEFC TfrmProblems.lstProbPickClick + 0001:0024D0FC TfrmProblems.lstProbPickDblClick + 0001:00251360 TfrmProblems.lstViewClick + 0001:0025229C TfrmProblems.lstViewExit + 0001:0024B24C TfrmProblems.mnuChartTabClick + 0001:00252904 TfrmProblems.mnuOptimizeFieldsClick + 0001:002517B0 TfrmProblems.mnuViewCommentsClick + 0001:00252734 TfrmProblems.mnuViewInformationClick + 0001:002516CC TfrmProblems.mnuViewRestoreDefaultClick + 0001:00251530 TfrmProblems.mnuViewSaveClick + 0001:002521F4 TfrmProblems.MString + 0001:00250C24 TfrmProblems.NoRowSelected + 0001:002520B8 TfrmProblems.PlainText + 0001:0024CF5C TfrmProblems.pnlProbEntResize + 0001:00252344 TfrmProblems.pnlRightExit + 0001:0024DF1C TfrmProblems.pnlRightResize + 0001:00251CA4 TfrmProblems.RefreshList + 0001:00251AA8 TfrmProblems.RequestPrint + 0001:002508B8 TfrmProblems.RestoreProblem + 0001:00250D10 TfrmProblems.RowSelected + 0001:00251BA8 TfrmProblems.SetFontSize + 0001:0024DC98 TfrmProblems.SetGridPieces + 0001:00252C7C TfrmProblems.setSectionWidths + 0001:002526CC TfrmProblems.ShowPnlView + 0001:00252CBC TfrmProblems.sptHorzMoved + 0001:0024D1F0 TfrmProblems.UMCloseProblem + 0001:0024DC6C TfrmProblems.UMPLLexicon + 0001:00250360 TfrmProblems.UpdateProblem + 0001:00252714 TfrmProblems.ViewInfo + 0001:0024CF6C TfrmProblems.wgProbDataClick + 0001:0024D0D8 TfrmProblems.wgProbDataDblClick + 0001:00251FA0 TfrmProblems.wgProbDataDrawItem + 0001:00251E50 TfrmProblems.wgProbDataMeasureItem + 0001:002FB630 TfrmProcedures.btnOtherClick + 0001:002FB64C TfrmProcedures.btnRemoveClick + 0001:002FAB70 TfrmProcedures.btnSelectAllClick + 0001:002FA5D8 TfrmProcedures.cboProviderChange + 0001:002FB668 TfrmProcedures.cboProviderNeedData + 0001:002FAED0 TfrmProcedures.CheckModifiers + 0001:002FAB30 TfrmProcedures.clbListClick + 0001:002FA64C TfrmProcedures.FormCreate + 0001:002FAA04 TfrmProcedures.FormResize + 0001:002FB810 TfrmProcedures.InitTab + 0001:002FAB54 TfrmProcedures.lbGridSelect + 0001:002FB194 TfrmProcedures.lbModsClickCheck + 0001:002FB3A4 TfrmProcedures.lbSectionClick + 0001:002FB3B8 TfrmProcedures.lbxSectionClickCheck + 0001:002FB7A4 TfrmProcedures.MissingProvider + 0001:002FB704 TfrmProcedures.OK2SaveProcedures + 0001:002FAB8C TfrmProcedures.ShowModifiers + 0001:002FAAF4 TfrmProcedures.splRightMoved + 0001:002FA564 TfrmProcedures.txtProcQtyChange + 0001:002FA734 TfrmProcedures.UpdateControls + 0001:002FA714 TfrmProcedures.UpdateNewItemStr + 0001:00241794 TfrmPtCWAD.btnCloseClick + 0001:00241498 TfrmPtCWAD.FormCreate + 0001:0024177C TfrmPtCWAD.FormKeyUp + 0001:002415B8 TfrmPtCWAD.lstAllergiesClick + 0001:00241638 TfrmPtCWAD.lstNotesClick + 0001:00319A8C TfrmPtDemo.cmdCloseClick + 0001:00319A7C TfrmPtDemo.cmdNewPtClick + 0001:00319A94 TfrmPtDemo.cmdPrintClick + 0001:003198C8 TfrmPtDemo.FormCreate + 0001:00306754 TfrmPtSel.AdjustFormSize + 0001:003097EC TfrmPtSel.AlertList + 0001:00307554 TfrmPtSel.cboPatientChange + 0001:003079D8 TfrmPtSel.cboPatientDblClick + 0001:00307404 TfrmPtSel.cboPatientEnter + 0001:00307448 TfrmPtSel.cboPatientExit + 0001:003097B4 TfrmPtSel.cboPatientKeyDown + 0001:00307880 TfrmPtSel.cboPatientKeyPause + 0001:0030790C TfrmPtSel.cboPatientMouseClick + 0001:00307A98 TfrmPtSel.cboPatientNeedData + 0001:00307D30 TfrmPtSel.ClearIDInfo + 0001:00308748 TfrmPtSel.cmdCancelClick + 0001:00309064 TfrmPtSel.cmdForwardClick + 0001:00307DB8 TfrmPtSel.cmdOKClick + 0001:00308FD4 TfrmPtSel.cmdProcessAllClick + 0001:0030876C TfrmPtSel.cmdProcessClick + 0001:00308DBC TfrmPtSel.cmdProcessInfoClick + 0001:00309254 TfrmPtSel.cmdRemoveClick + 0001:00308D9C TfrmPtSel.cmdSaveListClick + 0001:00309E54 TfrmPtSel.DupLastSSN + 0001:00309778 TfrmPtSel.FormClose + 0001:0030948C TfrmPtSel.FormDestroy + 0001:0030A39C TfrmPtSel.FormKeyDown + 0001:0030A610 TfrmPtSel.FormShow + 0001:00306550 TfrmPtSel.IsOther + 0001:00309514 TfrmPtSel.Loaded + 0001:0030A258 TfrmPtSel.lstFlagsClick + 0001:0030A268 TfrmPtSel.lstFlagsKeyDown + 0001:00309B34 TfrmPtSel.lstvAlertsColumnClick + 0001:00309D0C TfrmPtSel.lstvAlertsCompare + 0001:00309048 TfrmPtSel.lstvAlertsDblClick + 0001:0030A334 TfrmPtSel.lstvAlertsInfoTip + 0001:0030A3B4 TfrmPtSel.lstvAlertsKeyDown + 0001:0030A294 TfrmPtSel.lstvAlertsSelectItem + 0001:0030AB18 TfrmPtSel.onclick1 + 0001:003094C0 TfrmPtSel.pnlPtSelResize + 0001:0030A858 TfrmPtSel.ReformatAlertDateTime + 0001:00309750 TfrmPtSel.RPLDisplay + 0001:003068C0 TfrmPtSel.SetCaptionTop + 0001:00306BB4 TfrmPtSel.SetPtListTop + 0001:0030A2F0 TfrmPtSel.ShowButts + 0001:0030A120 TfrmPtSel.ShowFlagInfo + 0001:00307D48 TfrmPtSel.ShowIDInfo + 0001:0030311C TfrmPtSelDemog.ClearIDInfo + 0001:003035BC TfrmPtSelDemog.FormCreate + 0001:00303734 TfrmPtSelDemog.FormDestroy + 0001:003035E8 TfrmPtSelDemog.NewWinProc + 0001:003031A4 TfrmPtSelDemog.ShowDemog + 0001:00303594 TfrmPtSelDemog.ToggleMemo + 0001:00124DAC TfrmPtSelMsg.ActiveFormChanged + 0001:00124E3C TfrmPtSelMsg.ClearEvents + 0001:00124D04 TfrmPtSelMsg.cmdCloseClick + 0001:00124D0C TfrmPtSelMsg.FormClose + 0001:00124D10 TfrmPtSelMsg.FormCreate + 0001:00124D9C TfrmPtSelMsg.FormDestroy + 0001:00124E90 TfrmPtSelMsg.TabChanged + 0001:00124C34 TfrmPtSelMsg.timCloseTimer + 0001:00304A7C TfrmPtSelOptns.cboDateRangeExit + 0001:00304AA0 TfrmPtSelOptns.cboDateRangeMouseClick + 0001:00304774 TfrmPtSelOptns.cboListExit + 0001:003047AC TfrmPtSelOptns.cboListKeyPause + 0001:003047E4 TfrmPtSelOptns.cboListMouseClick + 0001:0030481C TfrmPtSelOptns.cboListNeedData + 0001:00304BFC TfrmPtSelOptns.cmdSaveListClick + 0001:00305684 TfrmPtSelOptns.FormCreate + 0001:00304874 TfrmPtSelOptns.HideDateRange + 0001:00304074 TfrmPtSelOptns.IsEnhanced + 0001:003040D4 TfrmPtSelOptns.IsFullSSN + 0001:00303F44 TfrmPtSelOptns.IsLast5 + 0001:00303FF4 TfrmPtSelOptns.IsPatientName + 0001:00304334 TfrmPtSelOptns.radHideSrcClick + 0001:003045C0 TfrmPtSelOptns.radLongSrcClick + 0001:003043EC TfrmPtSelOptns.radShowSrcClick + 0001:00305690 TfrmPtSelOptns.SetDefaultPtList + 0001:003048AC TfrmPtSelOptns.ShowDateRange + 0001:0030574C TfrmPtSelOptns.UpdateDefault + 0001:00303AD4 TfrmPtSelOptSave.btnCancelClick + 0001:00303ADC TfrmPtSelOptSave.btnOKClick + 0001:003039CC TfrmPtSelOptSave.FormCreate + 0001:00303B78 TfrmPtSelOptSave.rGrpClinSaveClick + 0001:001F360C TfrmRefillOrders.cmdCancelClick + 0001:001F34E0 TfrmRefillOrders.cmdOKClick + 0001:001F3614 TfrmRefillOrders.FormClose + 0001:001F3400 TfrmRefillOrders.FormCreate + 0001:001F361C TfrmRefillOrders.FormShow + 0001:001E17A4 TfrmReleaseOrders.cmdCancelClick + 0001:001E14F4 TfrmReleaseOrders.cmdOKClick + 0001:001E1484 TfrmReleaseOrders.FormCreate + 0001:001E17AC TfrmReleaseOrders.lstOrdersDrawItem + 0001:001E18E0 TfrmReleaseOrders.lstOrdersMeasureItem + 0001:001E19B0 TfrmReleaseOrders.Panel1Resize + 0001:001FEF4C TfrmRemCoverPreview.FormCreate + 0001:001FEF60 TfrmRemCoverPreview.lvMainColumnClick + 0001:001FEF94 TfrmRemCoverPreview.lvMainCompare + 0001:00201E30 TfrmRemCoverSheet.btnAddClick + 0001:002029E8 TfrmRemCoverSheet.btnApplyClick + 0001:00201E60 TfrmRemCoverSheet.btnLockClick + 0001:00202A04 TfrmRemCoverSheet.btnOKClick + 0001:00201E48 TfrmRemCoverSheet.btnRemoveClick + 0001:00203284 TfrmRemCoverSheet.btnViewClick + 0001:00200F3C TfrmRemCoverSheet.cbEditLevelClick + 0001:00200CCC TfrmRemCoverSheet.cbxClassChange + 0001:00200220 TfrmRemCoverSheet.cbxClassNeedData + 0001:00200C1C TfrmRemCoverSheet.cbxDivisionChange + 0001:00203A2C TfrmRemCoverSheet.cbxDivisionKeyDown + 0001:00200EDC TfrmRemCoverSheet.cbxDropDownClose + 0001:00200C94 TfrmRemCoverSheet.cbxLocationChange + 0001:002001AC TfrmRemCoverSheet.cbxLocationNeedData + 0001:00200C58 TfrmRemCoverSheet.cbxServiceChange + 0001:002001D0 TfrmRemCoverSheet.cbxServiceNeedData + 0001:00200D08 TfrmRemCoverSheet.cbxUserChange + 0001:002001F8 TfrmRemCoverSheet.cbxUserNeedData + 0001:00201D08 TfrmRemCoverSheet.ChangeStatus + 0001:00201B7C TfrmRemCoverSheet.edtSeqChange + 0001:00203A1C TfrmRemCoverSheet.edtSeqKeyPress + 0001:00200248 TfrmRemCoverSheet.FormDestroy + 0001:00201848 TfrmRemCoverSheet.GetCatInfo + 0001:00203A4C TfrmRemCoverSheet.GetCoverSheetLvlData + 0001:0020031C TfrmRemCoverSheet.GetCurrent + 0001:00200B48 TfrmRemCoverSheet.GetExternalName + 0001:00201C70 TfrmRemCoverSheet.GetIndex + 0001:002002C8 TfrmRemCoverSheet.GetUserInfo + 0001:001FFA40 TfrmRemCoverSheet.Init + 0001:00202760 TfrmRemCoverSheet.ListHasData + 0001:00201C64 TfrmRemCoverSheet.lvCoverChange + 0001:00201EAC TfrmRemCoverSheet.lvCoverColumnClick + 0001:00202094 TfrmRemCoverSheet.lvCoverCompare + 0001:00202C88 TfrmRemCoverSheet.lvCoverDblClick + 0001:002039E8 TfrmRemCoverSheet.lvCoverKeyDown + 0001:00202CB0 TfrmRemCoverSheet.lvViewClick + 0001:00201E78 TfrmRemCoverSheet.lvViewColumnClick + 0001:00201EE0 TfrmRemCoverSheet.lvViewCompare + 0001:00201A8C TfrmRemCoverSheet.MarkListAsChanged + 0001:00203070 TfrmRemCoverSheet.RPad + 0001:00202A0C TfrmRemCoverSheet.SaveData + 0001:002028BC TfrmRemCoverSheet.sbCopyLeftClick + 0001:002024C8 TfrmRemCoverSheet.sbCopyRightClick + 0001:002022B8 TfrmRemCoverSheet.sbDownClick + 0001:002021A8 TfrmRemCoverSheet.sbUpClick + 0001:002023DC TfrmRemCoverSheet.SetSeq + 0001:00200994 TfrmRemCoverSheet.SetupItem + 0001:002007A0 TfrmRemCoverSheet.SetupItem + 0001:00201C5C TfrmRemCoverSheet.tvAllChange + 0001:002029C0 TfrmRemCoverSheet.tvAllDblClick + 0001:00201C2C TfrmRemCoverSheet.tvAllExpanded + 0001:0020168C TfrmRemCoverSheet.tvAllExpanding + 0001:0020281C TfrmRemCoverSheet.udSeqChangingEx + 0001:00201394 TfrmRemCoverSheet.UpdateButtons + 0001:0020126C TfrmRemCoverSheet.UpdateMasterListView + 0001:002005B8 TfrmRemCoverSheet.UpdateView + 0001:002BD30C TfrmRemDlg.BackReminder + 0001:002BC3D8 TfrmRemDlg.BoxUpdateDone + 0001:002BD4A4 TfrmRemDlg.btnBackClick + 0001:002BCD00 TfrmRemDlg.btnCancelClick + 0001:002BCB8C TfrmRemDlg.btnClearClick + 0001:002BF880 TfrmRemDlg.btnClinMaintClick + 0001:002BD980 TfrmRemDlg.btnFinishClick + 0001:002BD458 TfrmRemDlg.btnNextClick + 0001:002BF9A0 TfrmRemDlg.btnVisitClick + 0001:002BC0EC TfrmRemDlg.BuildControls + 0001:002BBF00 TfrmRemDlg.ClearControls + 0001:002BF974 TfrmRemDlg.ClinMaintDestroyed + 0001:002BC41C TfrmRemDlg.ControlsChanged + 0001:002BBD44 TfrmRemDlg.FormClose + 0001:002BBD48 TfrmRemDlg.FormCloseQuery + 0001:002BBD64 TfrmRemDlg.FormCreate + 0001:002BBDD4 TfrmRemDlg.FormDestroy + 0001:002BFD74 TfrmRemDlg.FormShow + 0001:002BC3C0 TfrmRemDlg.GetBox + 0001:002BD054 TfrmRemDlg.GetCurReminderList + 0001:002BCD28 TfrmRemDlg.KillAll + 0001:002BFC50 TfrmRemDlg.KillDlg + 0001:002BD294 TfrmRemDlg.NextReminder + 0001:002BD5C0 TfrmRemDlg.PositionTrees + 0001:002BBA5C TfrmRemDlg.ProcessReminder + 0001:002BD378 TfrmRemDlg.ProcessReminderFromNodeStr + 0001:002BFB18 TfrmRemDlg.ProcessTemplate + 0001:002BF878 TfrmRemDlg.RemindersChanged + 0001:002BF658 TfrmRemDlg.ResetProcessing + 0001:002BC454 TfrmRemDlg.sbResize + 0001:002BFC28 TfrmRemDlg.SetFontSize + 0001:002BC44C TfrmRemDlg.UMResyncRem + 0001:002BD4F0 TfrmRemDlg.UpdateButtons + 0001:002BC47C TfrmRemDlg.UpdateText + 0001:00207A34 TfrmReminderTree.EnableActions + 0001:0020676C TfrmReminderTree.FormClose + 0001:00206770 TfrmReminderTree.FormCreate + 0001:00207C08 TfrmReminderTree.FormDestroy + 0001:002073B8 TfrmReminderTree.hcRemSectionClick + 0001:00207334 TfrmReminderTree.lbRemChange + 0001:00207350 TfrmReminderTree.lbRemClick + 0001:00207108 TfrmReminderTree.lbRemDrawItem + 0001:002068B4 TfrmReminderTree.LinkTopControls + 0001:00207CC0 TfrmReminderTree.memActionClick + 0001:00207C00 TfrmReminderTree.memEvalAllClick + 0001:00207CC8 TfrmReminderTree.memEvalCatClick + 0001:00207978 TfrmReminderTree.memEvalClick + 0001:00207CA0 TfrmReminderTree.memRefreshClick + 0001:00207CD0 TfrmReminderTree.mnuCoverSheetClick + 0001:00207FEC TfrmReminderTree.mnuExitClick + 0001:00206FA8 TfrmReminderTree.pnlTopResize + 0001:00207BF8 TfrmReminderTree.ProcessedRemindersChanged + 0001:002069C8 TfrmReminderTree.RemindersChanged + 0001:00206BF4 TfrmReminderTree.ResetlbItems + 0001:00207910 TfrmReminderTree.Resync + 0001:00207CE0 TfrmReminderTree.SetFontSize + 0001:00207E04 TfrmReminderTree.SetRemHeaderSectionWidth + 0001:002076EC TfrmReminderTree.SortData + 0001:00207504 TfrmReminderTree.SortNode + 0001:00206E34 TfrmReminderTree.SyncTopControls + 0001:00207FAC TfrmReminderTree.tvRemAddition + 0001:00207824 TfrmReminderTree.tvRemChange + 0001:0020781C TfrmReminderTree.tvRemClick + 0001:00206F44 TfrmReminderTree.tvRemCollapsed + 0001:00207FCC TfrmReminderTree.tvRemDeletion + 0001:00207360 TfrmReminderTree.tvRemEnter + 0001:0020738C TfrmReminderTree.tvRemExit + 0001:00206EE0 TfrmReminderTree.tvRemExpanded + 0001:00207900 TfrmReminderTree.tvRemMouseDown + 0001:00207E7C TfrmReminderTree.tvRemNodeCaptioning + 0001:002BAF3C TfrmRemVisitInfo.btnNowClick + 0001:002BAF5C TfrmRemVisitInfo.FormCreate + 0001:001E4EF8 TfrmRename.cmdCancelClick + 0001:001E4EE8 TfrmRename.cmdOKClick + 0001:001E4EE0 TfrmRename.FormCreate + 0001:001E7D00 TfrmRenewOrders.AcceptOrderCheckOnRenew + 0001:001E7C64 TfrmRenewOrders.cmdCancelClick + 0001:001E7894 TfrmRenewOrders.cmdChangeClick + 0001:001E7C54 TfrmRenewOrders.cmdOKClick + 0001:001E7D94 TfrmRenewOrders.FormClose + 0001:001E755C TfrmRenewOrders.FormCreate + 0001:001E7D9C TfrmRenewOrders.FormShow + 0001:001E7DA4 TfrmRenewOrders.hdrOrdersSectionResize + 0001:001E778C TfrmRenewOrders.lstOrdersClick + 0001:001E766C TfrmRenewOrders.lstOrdersDrawItem + 0001:001E757C TfrmRenewOrders.lstOrdersMeasureItem + 0001:001E7C6C TfrmRenewOrders.MeasureColumnHeight + 0001:001E69DC TfrmRenewOutMed.cmdCancelClick + 0001:001E6920 TfrmRenewOutMed.cmdOKClick + 0001:001E68A8 TfrmRenewOutMed.FormCreate + 0001:001820A8 TfrmReportBox.cmdCloseClick + 0001:00182028 TfrmReportBox.cmdPrintClick + 0001:001820B0 TfrmReportBox.FormClose + 0001:001820C0 TfrmReportBox.FormCreate + 0001:00182024 TfrmReportBox.memReportClick + 0001:001465B8 TfrmReportPrt.cboDeviceChange + 0001:001480C8 TfrmReportPrt.cboDeviceNeedData + 0001:001480C0 TfrmReportPrt.cmdCancelClick + 0001:00146684 TfrmReportPrt.cmdOKClick + 0001:001464C4 TfrmReportPrt.DisplaySelectDevice + 0001:00145AB0 TfrmReportPrt.FindVType + 0001:0014657C TfrmReportPrt.FormCreate + 0001:001480F0 TfrmReportPrt.FormDestroy + 0001:00172BD0 TfrmReports.AllowContextChange + 0001:0017E008 TfrmReports.btnChangeViewClick + 0001:0017E054 TfrmReports.btnGraphSelectionsClick + 0001:0017DFCC TfrmReports.chkDualViewsClick + 0001:00172518 TfrmReports.ClearPtData + 0001:0017D390 TfrmReports.Copy1Click + 0001:0017D58C TfrmReports.Copy2Click + 0001:001768BC TfrmReports.DisplayHeading + 0001:001730C0 TfrmReports.DisplayPage + 0001:00176398 TfrmReports.FormCreate + 0001:001787E8 TfrmReports.FormDestroy + 0001:00176CB4 TfrmReports.FormShow + 0001:001760C8 TfrmReports.FreezeText1Click + 0001:00177A64 TfrmReports.GoRemote + 0001:00175F88 TfrmReports.GotoBottom1Click + 0001:00175EE4 TfrmReports.GotoTop1Click + 0001:0017263C TfrmReports.Graph + 0001:00172944 TfrmReports.GraphPanel + 0001:00173BF0 TfrmReports.LoadListView + 0001:0017D75C TfrmReports.LoadProceduresTreeView + 0001:001736C0 TfrmReports.LoadTreeView + 0001:0017E0A0 TfrmReports.lstDateRangeClick + 0001:00178988 TfrmReports.lstHeadersClick + 0001:001748D4 TfrmReports.lstQualifierClick + 0001:00178B74 TfrmReports.lstQualifierDrawItem + 0001:0017BB38 TfrmReports.lvReportsColumnClick + 0001:0017C2F8 TfrmReports.lvReportsCompare + 0001:0017D5A4 TfrmReports.lvReportsKeyUp + 0001:0017C3A8 TfrmReports.lvReportsSelectItem + 0001:0017D6B0 TfrmReports.Memo1KeyUp + 0001:00176288 TfrmReports.PopupMenu1Popup + 0001:0017D384 TfrmReports.Print1Click + 0001:0017D598 TfrmReports.Print2Click + 0001:00176470 TfrmReports.ProcessNotifications + 0001:00172D44 TfrmReports.RequestPrint + 0001:0017D5E0 TfrmReports.SelectAll1Click + 0001:0017D628 TfrmReports.SelectAll2Click + 0001:00173BCC TfrmReports.SetFontSize + 0001:0017D660 TfrmReports.ShowTabControl + 0001:001789FC TfrmReports.Splitter1CanResize + 0001:0017E11C TfrmReports.sptHorzMoved + 0001:00178B60 TfrmReports.sptHorzRightCanResize + 0001:0017728C TfrmReports.TabControl1Change + 0001:00176D14 TfrmReports.Timer1Timer + 0001:0017DACC TfrmReports.tvProceduresChange + 0001:0017D888 TfrmReports.tvProceduresClick + 0001:0017D860 TfrmReports.tvProceduresCollapsing + 0001:0017D874 TfrmReports.tvProceduresExpanding + 0001:0017DFA0 TfrmReports.tvProceduresKeyDown + 0001:00178DF8 TfrmReports.tvReportsClick + 0001:0017D370 TfrmReports.tvReportsCollapsing + 0001:0017D35C TfrmReports.tvReportsExpanding + 0001:0017D634 TfrmReports.tvReportsKeyDown + 0001:0017623C TfrmReports.UnFreezeText1Click + 0001:00173548 TfrmReports.UpdateRemoteStatus + 0001:00178A10 TfrmReports.WebBrowser1DocumentComplete + 0001:0014ACCC TfrmReportsAdhocComponent1.btnAddComponentClick + 0001:00149F34 TfrmReportsAdhocComponent1.btnCancelMainClick + 0001:0014BBF0 TfrmReportsAdhocComponent1.btnEditSubitemsClick + 0001:00149F3C TfrmReportsAdhocComponent1.btnOKMainClick + 0001:0014AB1C TfrmReportsAdhocComponent1.btnRemoveAllComponentsClick + 0001:0014A8F4 TfrmReportsAdhocComponent1.btnRemoveComponentClick + 0001:0014C0F4 TfrmReportsAdhocComponent1.cboICDExit + 0001:0014BE9C TfrmReportsAdhocComponent1.cboTimeLimitExit + 0001:0014BF94 TfrmReportsAdhocComponent1.ckbHospitalLocationExit + 0001:0014C044 TfrmReportsAdhocComponent1.ckbProviderNarrativeExit + 0001:0014BD54 TfrmReportsAdhocComponent1.edtHeaderNameExit + 0001:0014BDF8 TfrmReportsAdhocComponent1.edtOccuranceLimitExit + 0001:0014A248 TfrmReportsAdhocComponent1.FormClose + 0001:00149DDC TfrmReportsAdhocComponent1.FormCreate + 0001:00149ECC TfrmReportsAdhocComponent1.FormShow + 0001:0014A2AC TfrmReportsAdhocComponent1.HideEdits + 0001:0014C240 TfrmReportsAdhocComponent1.LoadComponents + 0001:0014C198 TfrmReportsAdhocComponent1.ORComboBox1KeyDown + 0001:0014A394 TfrmReportsAdhocComponent1.ORListBox2Click + 0001:0014BAC4 TfrmReportsAdhocComponent1.ORListBox2DragDrop + 0001:0014BA10 TfrmReportsAdhocComponent1.ORListBox2DragOver + 0001:0014BB3C TfrmReportsAdhocComponent1.ORListBox2EndDrag + 0001:0014C53C TfrmReportsAdhocComponent1.pnl5ButtonEnter + 0001:0014C558 TfrmReportsAdhocComponent1.pnl5ButtonExit + 0001:0014C488 TfrmReportsAdhocComponent1.rbtnAbbrevClick + 0001:0014C500 TfrmReportsAdhocComponent1.rbtnHeaderClick + 0001:0014C4C4 TfrmReportsAdhocComponent1.rbtnNameClick + 0001:0014B93C TfrmReportsAdhocComponent1.SpeedButton5Click + 0001:0014B998 TfrmReportsAdhocComponent1.SpeedButton6Click + 0001:0014ACB8 TfrmReportsAdhocComponent1.Splitter1CanResize + 0001:0014ACA4 TfrmReportsAdhocComponent1.Splitter4CanResize + 0001:0014BB70 TfrmReportsAdhocComponent1.Timer1Timer + 0001:001490DC TfrmReportsAdhocSubItem1.btnAddSelClick + 0001:00148648 TfrmReportsAdhocSubItem1.btnCancelClick + 0001:00148F18 TfrmReportsAdhocSubItem1.btnOKClick + 0001:00148BA4 TfrmReportsAdhocSubItem1.btnRemoveAllSelClick + 0001:00148CF8 TfrmReportsAdhocSubItem1.btnRemoveSelClick + 0001:00148670 TfrmReportsAdhocSubItem1.FormCreate + 0001:00149448 TfrmReportsAdhocSubItem1.ORComboBox2KeyUp + 0001:001494F8 TfrmReportsAdhocSubItem1.ORComboBox2NeedData + 0001:0014894C TfrmReportsAdhocSubItem1.ORListBox1DragDrop + 0001:001489C4 TfrmReportsAdhocSubItem1.ORListBox1DragOver + 0001:00148918 TfrmReportsAdhocSubItem1.ORListBox1EndDrag + 0001:00149528 TfrmReportsAdhocSubItem1.pnl7ButtonEnter + 0001:00149544 TfrmReportsAdhocSubItem1.pnl7ButtonExit + 0001:00148B5C TfrmReportsAdhocSubItem1.SpeedButton7Click + 0001:00148AF8 TfrmReportsAdhocSubItem1.SpeedButton8Click + 0001:00148A78 TfrmReportsAdhocSubItem1.Timer2Timer + 0001:00237A94 TfrmReview.AddHeader + 0001:00237AEC TfrmReview.AddItem + 0001:00237BD0 TfrmReview.AdjustSignatureTop + 0001:0023B320 TfrmReview.buDiagnosisClick + 0001:00238470 TfrmReview.BuildFullList + 0001:00237C98 TfrmReview.BuildList + 0001:00238478 TfrmReview.BuildSignList + 0001:0023AE48 TfrmReview.CleanupChangesList + 0001:0023C01C TfrmReview.ClearDiagnoses1Click + 0001:0023AE88 TfrmReview.cmdCancelClick + 0001:0023906C TfrmReview.cmdOKClick + 0001:0023BB00 TfrmReview.Copy1Click + 0001:0023B97C TfrmReview.Exit1Click + 0001:0023CD98 TfrmReview.FormatListForScreenReader + 0001:0023CAD0 TfrmReview.FormClose + 0001:00237900 TfrmReview.FormCreate + 0001:0023AF7C TfrmReview.FormDestroy + 0001:0023C2C4 TfrmReview.FormKeyDown + 0001:0023C554 TfrmReview.FormKeyUp + 0001:0023C888 TfrmReview.FormMouseDown + 0001:0023C864 TfrmReview.FormMouseMove + 0001:0023C124 TfrmReview.FormShow + 0001:0023CB84 TfrmReview.fraCoPayLabel23Enter + 0001:0023CBA8 TfrmReview.fraCoPayLabel23Exit + 0001:0023C8B8 TfrmReview.fraCoPayLabel24MouseMove + 0001:002375BC TfrmReview.GetCheckBoxStatus + 0001:0023C0D8 TfrmReview.GetNonNilItemCount + 0001:002376C4 TfrmReview.GetNumberOfSelectedOrders + 0001:00237C18 TfrmReview.IsSignatureRequired + 0001:00238480 TfrmReview.ItemsAreChecked + 0001:0023B7C0 TfrmReview.lstReviewClick + 0001:0023865C TfrmReview.lstReviewClickCheck + 0001:00238728 TfrmReview.lstReviewDrawItem + 0001:0023CD84 TfrmReview.lstReviewKeyUp + 0001:0023AE90 TfrmReview.lstReviewMeasureItem + 0001:0023B984 TfrmReview.lstReviewMouseDown + 0001:0023AFA0 TfrmReview.lstReviewMouseMove + 0001:0023BDC8 TfrmReview.Paste1Click + 0001:00238CBC TfrmReview.radReleaseClick + 0001:0023755C TfrmReview.SetCheckBoxStatus + 0001:0023CBCC TfrmReview.SetItemTextToState + 0001:0023C5AC TfrmReview.ShowTreatmentFactorHints + 0001:002384C0 TfrmReview.SignRequiredForAny + 0001:00238DA4 TfrmReview.txtESCodeChange + 0001:001E5EA0 TfrmSaveQuickOrder.cmdCancelClick + 0001:001E5C44 TfrmSaveQuickOrder.cmdDeleteClick + 0001:001E5AC0 TfrmSaveQuickOrder.cmdDownClick + 0001:001E5DBC TfrmSaveQuickOrder.cmdOKClick + 0001:001E5B20 TfrmSaveQuickOrder.cmdRenameClick + 0001:001E5A70 TfrmSaveQuickOrder.cmdUpClick + 0001:001E5DB4 TfrmSaveQuickOrder.FormCreate + 0001:001E5EA8 TfrmSaveQuickOrder.pnlUpButtonEnter + 0001:001E5EB4 TfrmSaveQuickOrder.pnlUpButtonExit + 0001:001E5974 TfrmSaveQuickOrder.txtDisplayNameChange + 0001:0021B69C TfrmSearchStop.btnSearchStopClick + 0001:0021B6A8 TfrmSearchStop.FormShow + 0001:001C10E4 TfrmSignItem.cmdCancelClick + 0001:001C0FAC TfrmSignItem.cmdOKClick + 0001:0011A4EC TfrmSignon.btnCancelClick + 0001:0011A0FC TfrmSignon.btnOkClick + 0001:0011AFE4 TfrmSignon.DoVerify + 0001:0011ADB8 TfrmSignon.FormClose + 0001:0011A6DC TfrmSignon.FormCreate + 0001:0011A538 TfrmSignon.FormShow + 0001:0011AF78 TfrmSignon.introTextURLClick + 0001:0011AC28 TfrmSignon.WMSysCommand + 0001:00118454 TfrmSignonConfig.Button1Click + 0001:001187EC TfrmSignonConfig.FormShow + 0001:00118460 TfrmSignonConfig.OKBtnClick + 0001:001188E4 TfrmSignonConfig.rgrIntroBackClrClick + 0001:00115C90 TfrmSignonMsg.BitBtn1Click + 0001:00115C6C TfrmSignonMsg.Panel2Resize + 0001:001DF478 TfrmSignOrders.buOrdersDiagnosisClick + 0001:001DFFE0 TfrmSignOrders.clstOrdersClick + 0001:001DEC38 TfrmSignOrders.clstOrdersClickCheck + 0001:001DE66C TfrmSignOrders.clstOrdersDrawItem + 0001:001E0AF0 TfrmSignOrders.clstOrdersKeyUp + 0001:001DEA78 TfrmSignOrders.clstOrdersMeasureItem + 0001:001DFE68 TfrmSignOrders.clstOrdersMouseDown + 0001:001DEDAC TfrmSignOrders.clstOrdersMouseMove + 0001:001DE634 TfrmSignOrders.cmdCancelClick + 0001:001DE294 TfrmSignOrders.cmdOKClick + 0001:001DF8E8 TfrmSignOrders.Copy1Click + 0001:001DF8E0 TfrmSignOrders.Exit1Click + 0001:001E0B04 TfrmSignOrders.FormatListForScreenReader + 0001:001DE130 TfrmSignOrders.FormCreate + 0001:001DE63C TfrmSignOrders.FormDestroy + 0001:001E0138 TfrmSignOrders.FormKeyDown + 0001:001E0670 TfrmSignOrders.FormMouseMove + 0001:001DF0F4 TfrmSignOrders.FormShow + 0001:001E08F0 TfrmSignOrders.fraCoPayLabel23Enter + 0001:001E0914 TfrmSignOrders.fraCoPayLabel23Exit + 0001:001E06D8 TfrmSignOrders.fraCoPaylblHNCMouseMove + 0001:001DCE00 TfrmSignOrders.GetCheckBoxStatus + 0001:001DCD14 TfrmSignOrders.GetNumberOfSelectedOrders + 0001:001DE248 TfrmSignOrders.IsSignatureRequired + 0001:001DED6C TfrmSignOrders.ItemsAreChecked + 0001:001DFBE8 TfrmSignOrders.Paste1Click + 0001:001DCDA0 TfrmSignOrders.SetCheckBoxStatus + 0001:001E0938 TfrmSignOrders.SetItemTextToState + 0001:001E0354 TfrmSignOrders.ShowTreatmentFactorHints + 0001:002F9448 TfrmSkinTests.cboSkinResultsChange + 0001:002F95D8 TfrmSkinTests.edtDTGivenChange + 0001:002F95D4 TfrmSkinTests.edtDtReadChange + 0001:002F9518 TfrmSkinTests.EdtReadingChange + 0001:002F95DC TfrmSkinTests.FormCreate + 0001:002F9690 TfrmSkinTests.UpdateControls + 0001:002F964C TfrmSkinTests.UpdateNewItemStr + 0001:002F9924 TfrmSkinTests.UpDnReadingChanging + 0001:0031B400 TfrmSplash.FormCreate + 0001:0022EE38 TfrmSurgery.AllowContextChange + 0001:0022FE04 TfrmSurgery.ClearEditControls + 0001:0022F0D0 TfrmSurgery.ClearPtData + 0001:002322AC TfrmSurgery.cmdChangeClick + 0001:00231DA8 TfrmSurgery.cmdNewNoteClick + 0001:00231DB0 TfrmSurgery.cmdPCEClick + 0001:0022F16C TfrmSurgery.DisplayPage + 0001:0022FF20 TfrmSurgery.DisplayPCE + 0001:0022FDE4 TfrmSurgery.dlgFindTextFind + 0001:00234D94 TfrmSurgery.dlgReplaceTextFind + 0001:00234DB4 TfrmSurgery.dlgReplaceTextReplace + 0001:00232850 TfrmSurgery.DoAutoSave + 0001:00236AB8 TfrmSurgery.EnableDisableMenus + 0001:00235074 TfrmSurgery.FormClose + 0001:0022F2F8 TfrmSurgery.FormCreate + 0001:0022F654 TfrmSurgery.FormDestroy + 0001:0022F68C TfrmSurgery.GetDrawers + 0001:00230354 TfrmSurgery.GetTitleText + 0001:00230DCC TfrmSurgery.InsertAddendum + 0001:00230698 TfrmSurgery.InsertNewNote + 0001:002304D8 TfrmSurgery.LacksRequiredForCreate + 0001:002313AC TfrmSurgery.LoadForEdit + 0001:002361D8 TfrmSurgery.LoadSurgeryCases + 0001:0023681C TfrmSurgery.lstNotesClick + 0001:002327F0 TfrmSurgery.memNewNoteChange + 0001:00236C3C TfrmSurgery.memNewNoteKeyDown + 0001:00232F30 TfrmSurgery.mnuActAddendClick + 0001:00231EBC TfrmSurgery.mnuActChangeClick + 0001:00233710 TfrmSurgery.mnuActDeleteClick + 0001:00233BF8 TfrmSurgery.mnuActEditClick + 0001:00235170 TfrmSurgery.mnuActIdentifyAddlSignersClick + 0001:00231FA4 TfrmSurgery.mnuActLoadBoilerClick + 0001:00232E4C TfrmSurgery.mnuActNewClick + 0001:00233D3C TfrmSurgery.mnuActSaveClick + 0001:00233E7C TfrmSurgery.mnuActSignClick + 0001:002331A8 TfrmSurgery.mnuActSignListClick + 0001:0022F950 TfrmSurgery.mnuChartTabClick + 0001:00235C64 TfrmSurgery.mnuEditDialgFieldsClick + 0001:00235BB0 TfrmSurgery.mnuEditSharedTemplatesClick + 0001:00235B98 TfrmSurgery.mnuEditTemplatesClick + 0001:00235DA0 TfrmSurgery.mnuIconLegendClick + 0001:00235BBC TfrmSurgery.mnuNewSharedTemplateClick + 0001:00235BA4 TfrmSurgery.mnuNewTemplateClick + 0001:00235BC8 TfrmSurgery.mnuOptionsClick + 0001:0022F9E8 TfrmSurgery.mnuViewClick + 0001:00234ECC TfrmSurgery.mnuViewDetailClick + 0001:00236DB0 TfrmSurgery.mnuViewInformationClick + 0001:002359FC TfrmSurgery.mnuViewReturntoDefaultClick + 0001:00235908 TfrmSurgery.mnuViewSaveAsDefaultClick + 0001:002327F8 TfrmSurgery.pnlFieldsResize + 0001:0022F444 TfrmSurgery.pnlRightResize + 0001:0022F464 TfrmSurgery.pnlWriteResize + 0001:00235AE4 TfrmSurgery.popNoteListCollapseAllClick + 0001:00235B60 TfrmSurgery.popNoteListCollapseSelectedClick + 0001:00235AD8 TfrmSurgery.popNoteListExpandAllClick + 0001:00235B28 TfrmSurgery.popNoteListExpandSelectedClick + 0001:00235A60 TfrmSurgery.popNoteListPopup + 0001:002354E4 TfrmSurgery.popNoteMemoAddlSignClick + 0001:00234C78 TfrmSurgery.popNoteMemoCopyClick + 0001:00234C6C TfrmSurgery.popNoteMemoCutClick + 0001:0022FD64 TfrmSurgery.popNoteMemoFindClick + 0001:00234E50 TfrmSurgery.popNoteMemoGrammarClick + 0001:00236D54 TfrmSurgery.popNoteMemoInsTemplateClick + 0001:00234C84 TfrmSurgery.popNoteMemoPasteClick + 0001:00234A34 TfrmSurgery.popNoteMemoPopup + 0001:00236D48 TfrmSurgery.popNoteMemoPreviewClick + 0001:00234CD8 TfrmSurgery.popNoteMemoReformatClick + 0001:00234D0C TfrmSurgery.popNoteMemoReplaceClick + 0001:00234CF8 TfrmSurgery.popNoteMemoSaveContinueClick + 0001:00234DD4 TfrmSurgery.popNoteMemoSpellClick + 0001:00235A08 TfrmSurgery.popNoteMemoTemplateClick + 0001:002354EC TfrmSurgery.ProcessNotifications + 0001:00233514 TfrmSurgery.RemovePCEFromChanges + 0001:0022F798 TfrmSurgery.RequestPrint + 0001:00231D98 TfrmSurgery.SaveCurrentNote + 0001:00231830 TfrmSurgery.SaveEditedNote + 0001:00234554 TfrmSurgery.SaveSignItem + 0001:00235C3C TfrmSurgery.SetEditingIndex + 0001:0022F960 TfrmSurgery.SetFontSize + 0001:00230624 TfrmSurgery.SetSubjectVisible + 0001:00236680 TfrmSurgery.SetSurgTreeLabel + 0001:0022F514 TfrmSurgery.SetViewContext + 0001:00235CA4 TfrmSurgery.ShowPCEButtons + 0001:0022FED4 TfrmSurgery.ShowPCEControls + 0001:00236CE8 TfrmSurgery.sptHorzCanResize + 0001:00232B6C TfrmSurgery.StartNewEdit + 0001:00232B60 TfrmSurgery.timAutoSaveTimer + 0001:00236D60 TfrmSurgery.tvSurgeryAddition + 0001:00235DAC TfrmSurgery.tvSurgeryChange + 0001:00235C6C TfrmSurgery.tvSurgeryClick + 0001:00236194 TfrmSurgery.tvSurgeryCollapsed + 0001:00236D80 TfrmSurgery.tvSurgeryDeletion + 0001:00236134 TfrmSurgery.tvSurgeryExpanded + 0001:0022F694 TfrmSurgery.UpdateTreeView + 0001:00230578 TfrmSurgery.VerifyNoteTitle + 0001:00236DA0 TfrmSurgery.ViewInfo + 0001:0022C58C TfrmSurgeryView.cmdCancelClick + 0001:0022C59C TfrmSurgeryView.cmdClearClick + 0001:0022C350 TfrmSurgeryView.cmdOKClick + 0001:00187238 TfrmTemplateAutoGen.cbxObjectsDblClick + 0001:00187218 TfrmTemplateAutoGen.cbxTitlesDblClick + 0001:001871F0 TfrmTemplateAutoGen.cbxTitlesNeedData + 0001:00187258 TfrmTemplateAutoGen.FormShow + 0001:00187030 TfrmTemplateAutoGen.rgSourceClick + 0001:001845B4 TfrmTemplateDialog.AppShowHint + 0001:00183968 TfrmTemplateDialog.btnAllClick + 0001:00183970 TfrmTemplateDialog.btnNoneClick + 0001:00184858 TfrmTemplateDialog.btnOKClick + 0001:00184860 TfrmTemplateDialog.btnPreviewClick + 0001:00184430 TfrmTemplateDialog.BuildAllControls + 0001:00183B2C TfrmTemplateDialog.BuildCB + 0001:0018390C TfrmTemplateDialog.ChkAll + 0001:001848E4 TfrmTemplateDialog.EntryDestroyed + 0001:00184618 TfrmTemplateDialog.FieldChanged + 0001:00183A3C TfrmTemplateDialog.FindObjectByID + 0001:00184908 TfrmTemplateDialog.FormClose + 0001:00184670 TfrmTemplateDialog.FormCloseQuery + 0001:0018450C TfrmTemplateDialog.FormCreate + 0001:001845E4 TfrmTemplateDialog.FormDestroy + 0001:001844F4 TfrmTemplateDialog.FormPaint + 0001:00183978 TfrmTemplateDialog.GetObjectID + 0001:001843B0 TfrmTemplateDialog.ItemChecked + 0001:00184378 TfrmTemplateDialog.ParentCBEnter + 0001:00184394 TfrmTemplateDialog.ParentCBExit + 0001:00184930 TfrmTemplateDialog.SizeFormToCancelBtn + 0001:002C7694 TfrmTemplateEditor.AllowMove + 0001:002CA014 TfrmTemplateEditor.AutoDel + 0001:002CC1D0 TfrmTemplateEditor.AutoLongLines + 0001:002C4008 TfrmTemplateEditor.btnApplyClick + 0001:002C8E7C TfrmTemplateEditor.btnCancelClick + 0001:002C80F4 TfrmTemplateEditor.btnFindClick + 0001:002C3D40 TfrmTemplateEditor.btnNewClick + 0001:002C8620 TfrmTemplateEditor.btnOKClick + 0001:002CC304 TfrmTemplateEditor.CanClone + 0001:002C57FC TfrmTemplateEditor.cbActiveClick + 0001:002CA5BC TfrmTemplateEditor.cbClick + 0001:002CA584 TfrmTemplateEditor.cbDisplayOnlyClick + 0001:002C7B8C TfrmTemplateEditor.cbEditSharedClick + 0001:002C5954 TfrmTemplateEditor.cbExcludeClick + 0001:002CA58C TfrmTemplateEditor.cbFirstLineClick + 0001:002CA5A4 TfrmTemplateEditor.cbHideDlgItemsClick + 0001:002CA5B0 TfrmTemplateEditor.cbHideItemsClick + 0001:002CA714 TfrmTemplateEditor.cbIndentClick + 0001:002CC43C TfrmTemplateEditor.cbLockClick + 0001:002CC1B8 TfrmTemplateEditor.cbLongLinesClick + 0001:002CA528 TfrmTemplateEditor.cbNotesClick + 0001:002CA598 TfrmTemplateEditor.cbOneItemOnlyClick + 0001:002C4444 TfrmTemplateEditor.cboOwnerChange + 0001:002C443C TfrmTemplateEditor.cboOwnerNeedData + 0001:002C9C2C TfrmTemplateEditor.cbPerFindOptionClick + 0001:002C5D74 TfrmTemplateEditor.cbPerHideClick + 0001:002C9BFC TfrmTemplateEditor.cbShFindOptionClick + 0001:002C5D00 TfrmTemplateEditor.cbShHideClick + 0001:002CCB24 TfrmTemplateEditor.cbxCOMObjChange + 0001:002CCE7C TfrmTemplateEditor.cbxLinkChange + 0001:002CCD34 TfrmTemplateEditor.cbxLinkNeedData + 0001:002CD0CC TfrmTemplateEditor.cbxLinkSynonymCheck + 0001:002CC0A0 TfrmTemplateEditor.cbxRemDlgsChange + 0001:002CBDE4 TfrmTemplateEditor.cbxTypeChange + 0001:002CBCB0 TfrmTemplateEditor.cbxTypeDrawItem + 0001:002C5B84 TfrmTemplateEditor.ChangeTree + 0001:002C779C TfrmTemplateEditor.Clone + 0001:002C5DD4 TfrmTemplateEditor.DisplayBoilerplate + 0001:002CCC04 TfrmTemplateEditor.edtCOMParamChange + 0001:002C5A74 TfrmTemplateEditor.edtGapChange + 0001:002C8F38 TfrmTemplateEditor.edtGapKeyPress + 0001:002C8F44 TfrmTemplateEditor.edtNameExit + 0001:002C56D0 TfrmTemplateEditor.edtNameOldChange + 0001:002C8600 TfrmTemplateEditor.edtPerSearchEnter + 0001:002C8610 TfrmTemplateEditor.edtPerSearchExit + 0001:002C849C TfrmTemplateEditor.edtSearchChange + 0001:002C85E0 TfrmTemplateEditor.edtShSearchEnter + 0001:002C85F0 TfrmTemplateEditor.edtShSearchExit + 0001:002C46F8 TfrmTemplateEditor.EnableControls + 0001:002C6B00 TfrmTemplateEditor.EnableNavControls + 0001:002C8E84 TfrmTemplateEditor.FormCloseQuery + 0001:002C4044 TfrmTemplateEditor.FormCreate + 0001:002C60B0 TfrmTemplateEditor.FormDestroy + 0001:002C8660 TfrmTemplateEditor.FormShow + 0001:002CCCB4 TfrmTemplateEditor.GetLinkType + 0001:002C80B8 TfrmTemplateEditor.GetTree + 0001:002C43AC TfrmTemplateEditor.HideControls + 0001:002CC800 TfrmTemplateEditor.InitTrees + 0001:002C4590 TfrmTemplateEditor.IsTemplateLocked + 0001:002C9F74 TfrmTemplateEditor.mbMainResize + 0001:002CA1AC TfrmTemplateEditor.mnuAutoGenClick + 0001:002C9F8C TfrmTemplateEditor.mnuBPCheckGrammarClick + 0001:002C94AC TfrmTemplateEditor.mnuBPCopyClick + 0001:002C94A0 TfrmTemplateEditor.mnuBPCutClick + 0001:002C8834 TfrmTemplateEditor.mnuBPErrorCheckClick + 0001:002CA7CC TfrmTemplateEditor.mnuBPInsertFieldClick + 0001:002C86A8 TfrmTemplateEditor.mnuBPInsertObjectClick + 0001:002C94B8 TfrmTemplateEditor.mnuBPPasteClick + 0001:002C9518 TfrmTemplateEditor.mnuBPSelectAllClick + 0001:002C8F24 TfrmTemplateEditor.mnuBPSpellCheckClick + 0001:002CA0B8 TfrmTemplateEditor.mnuBPTryClick + 0001:002C9754 TfrmTemplateEditor.mnuBPUndoClick + 0001:002C7E78 TfrmTemplateEditor.mnuCollapseTreeClick + 0001:002C9938 TfrmTemplateEditor.mnuEditClick + 0001:002CA788 TfrmTemplateEditor.mnuEditTemplateFieldsClick + 0001:002CA854 TfrmTemplateEditor.mnuExportTemplateClick + 0001:002C9E8C TfrmTemplateEditor.mnuFindPersonalClick + 0001:002C9E74 TfrmTemplateEditor.mnuFindSharedClick + 0001:002C7ED8 TfrmTemplateEditor.mnuFindTemplatesClick + 0001:002C9B94 TfrmTemplateEditor.mnuGroupBoilerplateClick + 0001:002C942C TfrmTemplateEditor.mnuGroupBPCopyClick + 0001:002C950C TfrmTemplateEditor.mnuGroupBPSelectAllClick + 0001:002CACF0 TfrmTemplateEditor.mnuImportTemplateClick + 0001:002C9598 TfrmTemplateEditor.mnuNodeCopyClick + 0001:002C9524 TfrmTemplateEditor.mnuNodeDeleteClick + 0001:002C95C4 TfrmTemplateEditor.mnuNodePasteClick + 0001:002CA384 TfrmTemplateEditor.mnuNotesCopyClick + 0001:002CA378 TfrmTemplateEditor.mnuNotesCutClick + 0001:002CA3F0 TfrmTemplateEditor.mnuNotesGrammarClick + 0001:002CA390 TfrmTemplateEditor.mnuNotesPasteClick + 0001:002CA3E4 TfrmTemplateEditor.mnuNotesSelectAllClick + 0001:002CA3FC TfrmTemplateEditor.mnuNotesSpellingClick + 0001:002CA360 TfrmTemplateEditor.mnuNotesUndoClick + 0001:002C9EBC TfrmTemplateEditor.mnuPerCollapseClick + 0001:002CC448 TfrmTemplateEditor.mnuRefreshClick + 0001:002C9EA4 TfrmTemplateEditor.mnuShCollapseClick + 0001:002C9F98 TfrmTemplateEditor.mnuSortClick + 0001:002C9C5C TfrmTemplateEditor.mnuTemplateClick + 0001:002CC1AC TfrmTemplateEditor.mnuTemplateIconLegendClick + 0001:002CA720 TfrmTemplateEditor.mnuToolsClick + 0001:002C4954 TfrmTemplateEditor.MoveCopyButtons + 0001:002C4460 TfrmTemplateEditor.NewPersonalUser + 0001:002C9680 TfrmTemplateEditor.PasteOK + 0001:002C9FFC TfrmTemplateEditor.pnlBoilerplateCanResize + 0001:002C5660 TfrmTemplateEditor.pnlBoilerplateResize + 0001:002C9F18 TfrmTemplateEditor.pnlPerSearchResize + 0001:002C9F5C TfrmTemplateEditor.pnlPropertiesResize + 0001:002C9ED4 TfrmTemplateEditor.pnlShSearchResize + 0001:002C89BC TfrmTemplateEditor.popBoilerplatePopup + 0001:002C9438 TfrmTemplateEditor.popGroupPopup + 0001:002CA408 TfrmTemplateEditor.popNotesPopup + 0001:002C7BAC TfrmTemplateEditor.popTemplatesPopup + 0001:002C78D8 TfrmTemplateEditor.reBoilChange + 0001:002CD224 TfrmTemplateEditor.reBoilKeyDown + 0001:002CD214 TfrmTemplateEditor.reBoilKeyPress + 0001:002CD168 TfrmTemplateEditor.reBoilKeyUp + 0001:002CCA20 TfrmTemplateEditor.reBoilSelectionChange + 0001:002CC550 TfrmTemplateEditor.RefreshData + 0001:002CCA3C TfrmTemplateEditor.reGroupBPSelectionChange + 0001:002CA25C TfrmTemplateEditor.reNotesChange + 0001:002CC9C0 TfrmTemplateEditor.reResizeRequest + 0001:002C7210 TfrmTemplateEditor.Resync + 0001:002C7564 TfrmTemplateEditor.sbCopyLeftClick + 0001:002C75FC TfrmTemplateEditor.sbCopyRightClick + 0001:002C67C8 TfrmTemplateEditor.sbDeleteClick + 0001:002C6470 TfrmTemplateEditor.sbMoveDownClick + 0001:002C6150 TfrmTemplateEditor.sbMoveUpClick + 0001:002C8BD0 TfrmTemplateEditor.ScanNames + 0001:002C8544 TfrmTemplateEditor.SetFindNext + 0001:002C7AC8 TfrmTemplateEditor.SharedEditing + 0001:002C49F4 TfrmTemplateEditor.ShowInfo + 0001:002C7FE0 TfrmTemplateEditor.ShowTemplateType + 0001:002C8F30 TfrmTemplateEditor.splBoilMoved + 0001:002C49EC TfrmTemplateEditor.splMainMoved + 0001:002CC388 TfrmTemplateEditor.TemplateLocked + 0001:002C914C TfrmTemplateEditor.tmrAutoScrollTimer + 0001:002C44B0 TfrmTemplateEditor.tvPersonalExpanding + 0001:002C4504 TfrmTemplateEditor.tvSharedExpanding + 0001:002C4618 TfrmTemplateEditor.tvTreeChange + 0001:002C6ED0 TfrmTemplateEditor.tvTreeDragDrop + 0001:002C6DCC TfrmTemplateEditor.tvTreeDragging + 0001:002C6E00 TfrmTemplateEditor.tvTreeDragOver + 0001:002C9418 TfrmTemplateEditor.tvTreeEndDrag + 0001:002C5C5C TfrmTemplateEditor.tvTreeEnter + 0001:002C4558 TfrmTemplateEditor.tvTreeGetImageIndex + 0001:002C4574 TfrmTemplateEditor.tvTreeGetSelectedIndex + 0001:002C976C TfrmTemplateEditor.tvTreeKeyDown + 0001:002C5C98 TfrmTemplateEditor.tvTreeNodeEdited + 0001:002C93F0 TfrmTemplateEditor.tvTreeStartDrag + 0001:002CC35C TfrmTemplateEditor.UpdateApply + 0001:002CA82C TfrmTemplateEditor.UpdateInsertsDialogs + 0001:002CC1E4 TfrmTemplateEditor.UpdatePersonalObjects + 0001:002CCA58 TfrmTemplateEditor.UpdateXY + 0001:00189EEC TfrmTemplateFieldEditor.btnApplyClick + 0001:00189FF0 TfrmTemplateFieldEditor.btnCancelClick + 0001:00189EE4 TfrmTemplateFieldEditor.btnOKClick + 0001:0018A938 TfrmTemplateFieldEditor.btnPreviewClick + 0001:00189D00 TfrmTemplateFieldEditor.cbActiveClick + 0001:0018B648 TfrmTemplateFieldEditor.cbExcludeClick + 0001:0018A280 TfrmTemplateFieldEditor.cbHideClick + 0001:0018AAF8 TfrmTemplateFieldEditor.cbRequiredClick + 0001:0018AF60 TfrmTemplateFieldEditor.cbSepLinesClick + 0001:0018B590 TfrmTemplateFieldEditor.cbxDateTypeChange + 0001:00189C04 TfrmTemplateFieldEditor.cbxDefaultChange + 0001:00189550 TfrmTemplateFieldEditor.cbxObjsChange + 0001:0018B028 TfrmTemplateFieldEditor.cbxObjsKeyDown + 0001:001892FC TfrmTemplateFieldEditor.cbxObjsNeedData + 0001:0018ABB0 TfrmTemplateFieldEditor.cbxObjsSynonymCheck + 0001:00189958 TfrmTemplateFieldEditor.cbxTypeChange + 0001:0018B8B4 TfrmTemplateFieldEditor.ControlExit + 0001:00189B74 TfrmTemplateFieldEditor.edtDefaultChange + 0001:0018B104 TfrmTemplateFieldEditor.edtDefNumChange + 0001:0018B378 TfrmTemplateFieldEditor.edtIncChange + 0001:0018B4BC TfrmTemplateFieldEditor.edtIndentChange + 0001:00189A08 TfrmTemplateFieldEditor.edtLenChange + 0001:00189C84 TfrmTemplateFieldEditor.edtLMTextChange + 0001:0018B2C0 TfrmTemplateFieldEditor.edtMaxValChange + 0001:0018B208 TfrmTemplateFieldEditor.edtMinValChange + 0001:001895E8 TfrmTemplateFieldEditor.edtNameChange + 0001:0018A29C TfrmTemplateFieldEditor.edtNameExit + 0001:0018B464 TfrmTemplateFieldEditor.edtPadChange + 0001:0018AFAC TfrmTemplateFieldEditor.edtpopControlEnter + 0001:0018B05C TfrmTemplateFieldEditor.edtTextLenChange + 0001:0018B3DC TfrmTemplateFieldEditor.edtURLChange + 0001:0018AA50 TfrmTemplateFieldEditor.EnableButtons + 0001:00189F80 TfrmTemplateFieldEditor.FormCloseQuery + 0001:0018941C TfrmTemplateFieldEditor.FormCreate + 0001:0018AB60 TfrmTemplateFieldEditor.FormDestroy + 0001:0018B698 TfrmTemplateFieldEditor.FormResize + 0001:0018AE44 TfrmTemplateFieldEditor.GetPopupControl + 0001:0018AAF0 TfrmTemplateFieldEditor.mnuActionClick + 0001:0018AF10 TfrmTemplateFieldEditor.mnuBPCheckGrammarClick + 0001:0018AE98 TfrmTemplateFieldEditor.mnuBPCopyClick + 0001:0018AE88 TfrmTemplateFieldEditor.mnuBPCutClick + 0001:0018AEA8 TfrmTemplateFieldEditor.mnuBPPasteClick + 0001:0018AF00 TfrmTemplateFieldEditor.mnuBPSelectAllClick + 0001:0018AF38 TfrmTemplateFieldEditor.mnuBPSpellCheckClick + 0001:0018AE70 TfrmTemplateFieldEditor.mnuBPUndoClick + 0001:0018A378 TfrmTemplateFieldEditor.mnuCopyClick + 0001:0018A3DC TfrmTemplateFieldEditor.mnuDeleteClick + 0001:0018B7F4 TfrmTemplateFieldEditor.mnuInsertTemplateFieldClick + 0001:00189D50 TfrmTemplateFieldEditor.mnuNewClick + 0001:0018AB48 TfrmTemplateFieldEditor.pnlObjsResize + 0001:0018ABFC TfrmTemplateFieldEditor.popTextPopup + 0001:0018A1F4 TfrmTemplateFieldEditor.reItemsChange + 0001:0018B6C0 TfrmTemplateFieldEditor.reItemsResizeRequest + 0001:0018B720 TfrmTemplateFieldEditor.reItemsSelectionChange + 0001:0018B514 TfrmTemplateFieldEditor.reNotesChange + 0001:0018B8D0 TfrmTemplateFieldEditor.reNotesKeyUp + 0001:0018A87C TfrmTemplateFieldEditor.ResetListEntry + 0001:0018A094 TfrmTemplateFieldEditor.SaveChanges + 0001:0018A3D0 TfrmTemplateFieldEditor.SetFld + 0001:0018AB88 TfrmTemplateFieldEditor.SetHideSynonyms + 0001:001890D0 TfrmTemplateFieldEditor.SyncItems + 0001:001885EC TfrmTemplateFieldEditor.UpdateControls + 0001:0018A2B8 TfrmTemplateFieldEditor.VerifyName + 0001:00187780 TfrmTemplateFields.btnCancelClick + 0001:001877B4 TfrmTemplateFields.btnInsertClick + 0001:001877BC TfrmTemplateFields.btnPreviewClick + 0001:001878F8 TfrmTemplateFields.cboObjectsChange + 0001:00187764 TfrmTemplateFields.cboObjectsDblClick + 0001:001875E0 TfrmTemplateFields.cboObjectsNeedData + 0001:00187788 TfrmTemplateFields.FormClose + 0001:0018757C TfrmTemplateFields.FormCreate + 0001:0018755C TfrmTemplateFields.FormShow + 0001:00187610 TfrmTemplateFields.InsertField + 0001:0018778C TfrmTemplateFields.Setre + 0001:00187798 TfrmTemplateFields.UpdateStatus + 0001:002CF4E0 TfrmTemplateImport.btnCancelClick + 0001:00185728 TfrmTemplateObjects.btnCancelClick + 0001:00185604 TfrmTemplateObjects.btnInsertClick + 0001:0018575C TfrmTemplateObjects.btnRefreshClick + 0001:00185720 TfrmTemplateObjects.cboObjectsDblClick + 0001:00185730 TfrmTemplateObjects.FormClose + 0001:00185588 TfrmTemplateObjects.FormShow + 0001:0018560C TfrmTemplateObjects.InsertObject + 0001:00185734 TfrmTemplateObjects.Setre + 0001:00185740 TfrmTemplateObjects.UpdateStatus + 0001:00184DF0 TfrmTemplateView.btnCloseClick + 0001:00184EC4 TfrmTemplateView.btnPrintClick + 0001:00184E0C TfrmTemplateView.cbStayOnTopClick + 0001:00184EAC TfrmTemplateView.Copy1Click + 0001:00184DF8 TfrmTemplateView.FormClose + 0001:00184F38 TfrmTemplateView.FormCreate + 0001:00184E60 TfrmTemplateView.FormDestroy + 0001:00184F50 TfrmTemplateView.FormShow + 0001:00184E68 TfrmTemplateView.popViewPopup + 0001:00184EB8 TfrmTemplateView.SelectAll1Click + 0001:00182400 TfrmTimeout.cmdContinueClick + 0001:00182398 TfrmTimeout.FormCreate + 0001:00182410 TfrmTimeout.timCountDownTimer + 0001:0021ABC0 TfrmTIUView.cboAuthorNeedData + 0001:0021A884 TfrmTIUView.cmdCancelClick + 0001:0021ABE8 TfrmTIUView.cmdClearClick + 0001:0021A3BC TfrmTIUView.cmdOKClick + 0001:0021A894 TfrmTIUView.lstStatusSelect + 0001:001D87D0 TfrmUnflagOrder.cmdCancelClick + 0001:001D87C0 TfrmUnflagOrder.cmdOKClick + 0001:001D87B8 TfrmUnflagOrder.FormCreate + 0001:001D79FC TfrmUnholdOrders.cmdCancelClick + 0001:001D79EC TfrmUnholdOrders.cmdOKClick + 0001:001D79E4 TfrmUnholdOrders.FormCreate + 0001:00117E44 TfrmVCEdit.btnHelpClick + 0001:00117A48 TfrmVCEdit.btnOKClick + 0001:00117F70 TfrmVCEdit.edtNewVCExit + 0001:00117F9C TfrmVCEdit.edtOldVCChange + 0001:001E4538 TfrmVerifyOrders.cmdCancelClick + 0001:001E4360 TfrmVerifyOrders.cmdOKClick + 0001:001E4358 TfrmVerifyOrders.FormCreate + 0001:001E4610 TfrmVerifyOrders.lstOrdersDrawItem + 0001:001E4540 TfrmVerifyOrders.lstOrdersMeasureItem + 0001:001E4744 TfrmVerifyOrders.Panel1Resize + 0001:002FF730 TfrmVisitType.btnAddClick + 0001:002FF7C8 TfrmVisitType.btnDeleteClick + 0001:002FF860 TfrmVisitType.btnPrimaryClick + 0001:002FF910 TfrmVisitType.cboPtProviderChange + 0001:002FF908 TfrmVisitType.cboPtProviderDblClick + 0001:002FF918 TfrmVisitType.cboPtProviderNeedData + 0001:002FFFC0 TfrmVisitType.CheckModifiers + 0001:002FF448 TfrmVisitType.FormCloseQuery + 0001:002FF564 TfrmVisitType.FormCreate + 0001:002FF9C4 TfrmVisitType.FormResize + 0001:0030026C TfrmVisitType.lbModsClickCheck + 0001:002FF9B4 TfrmVisitType.lbProvidersChange + 0001:002FF9BC TfrmVisitType.lbProvidersDblClick + 0001:003003A4 TfrmVisitType.lbxVisitsClick + 0001:002FFB10 TfrmVisitType.lbxVisitsClickCheck + 0001:002FF2C0 TfrmVisitType.lstVTypeSectionClick + 0001:002FF0C8 TfrmVisitType.MatchVType + 0001:002FF44C TfrmVisitType.RefreshProviders + 0001:002FFD7C TfrmVisitType.ShowModifiers + 0001:003001FC TfrmVisitType.splLeftMoved + 0001:00300234 TfrmVisitType.splRightMoved + 0001:002FF6D8 TfrmVisitType.UpdateProviderButtons + 0001:0023FB80 TfrmVit.AssignVitals + 0001:0023FEC0 TfrmVit.cboHeightChange + 0001:0023FFD8 TfrmVit.cboHeightExit + 0001:00240260 TfrmVit.cboPainChange + 0001:0023FCF0 TfrmVit.cboTempChange + 0001:0023FF14 TfrmVit.cboTempExit + 0001:0023FECC TfrmVit.cboWeightChange + 0001:0024004C TfrmVit.cboWeightExit + 0001:0023FD14 TfrmVit.CheckVitalUnit + 0001:002400E4 TfrmVit.cmdCancelClick + 0001:002400EC TfrmVit.cmdOKClick + 0001:00240244 TfrmVit.FormActivate + 0001:00240098 TfrmVit.FormCreate + 0001:002400C8 TfrmVit.FormDestroy + 0001:0023F1D8 TfrmVit.FormKeyPress + 0001:002401D0 TfrmVit.FormShow + 0001:0023FB20 TfrmVit.GetVitHTRate + 0001:0023F228 TfrmVit.InitVitalPanel + 0001:00240168 TfrmVit.lbllastClick + 0001:0023F500 TfrmVit.PopulateLastVital + 0001:0024026C TfrmVit.SetVitPointer + 0001:0023FED8 TfrmVit.txtMeasBPExit + 0001:00240368 TfrmVit.txtMeasHtExit + 0001:0023FF9C TfrmVit.txtMeasPulseExit + 0001:0023FF60 TfrmVit.txtMeasRespExit + 0001:0024031C TfrmVit.txtMeasTempExit + 0001:002403DC TfrmVit.txtMeasWtExit + 0001:002F5C3C TfrmVitals.BeginEndDates + 0001:002F5270 TfrmVitals.btnEnterVitalsClick + 0001:002F5180 TfrmVitals.chk3DClick + 0001:002F51A0 TfrmVitals.chkValuesClick + 0001:002F5104 TfrmVitals.chkZoomClick + 0001:002F59B0 TfrmVitals.chtChartClickLegend + 0001:002F587C TfrmVitals.chtChartClickSeries + 0001:002F5988 TfrmVitals.chtChartMouseDown + 0001:002F53F8 TfrmVitals.chtChartUndoZoom + 0001:002F4394 TfrmVitals.FMToDateTime + 0001:002F42DC TfrmVitals.FormCreate + 0001:002F4374 TfrmVitals.FormDestroy + 0001:002F5E90 TfrmVitals.FormKeyUp + 0001:002F5210 TfrmVitals.FormShow + 0001:002F4F38 TfrmVitals.GetStartStop + 0001:002F503C TfrmVitals.grdVitalsSelectCell + 0001:002F3FF8 TfrmVitals.lstDatesClick + 0001:002F4594 TfrmVitals.lstVitalsClick + 0001:002F5218 TfrmVitals.pnlEnterVitalsResize + 0001:002F543C TfrmVitals.pop3DClick + 0001:002F5A8C TfrmVitals.popChartPopup + 0001:002F54B0 TfrmVitals.popCopyClick + 0001:002F54BC TfrmVitals.popDetailsClick + 0001:002F5B78 TfrmVitals.popPrintClick + 0001:002F540C TfrmVitals.popValuesClick + 0001:002F549C TfrmVitals.popZoomBackClick + 0001:002F546C TfrmVitals.popZoomClick + 0001:002F3BD8 TfrmVitals.VGrid + 0001:002F46F0 TfrmVitals.WorksheetChart + 0001:0012F734 TfrmVitalsDate.btnNowClick + 0001:0012F754 TfrmVitalsDate.FormCreate + 0001:001E4B04 TfrmWardComments.cmdCancelClick + 0001:001E4AF4 TfrmWardComments.cmdOKClick + 0001:001E4AEC TfrmWardComments.FormCreate + 0001:001E4B0C TfrmWardComments.memCommentsKeyUp + 0001:0014CAA0 TGanttSeries.AddGantt + 0001:0014CA40 TGanttSeries.AddGanttColor + 0001:0014D050 TGanttSeries.Assign + 0001:0014D098 TGanttSeries.CalcHorizMargins + 0001:0014CFBC TGanttSeries.ClearTempValue + 0001:0014CCFC TGanttSeries.ClickedPointer + 0001:0014C8C8 TGanttSeries.Create + 0001:0014C9E4 TGanttSeries.Destroy + 0001:0014CF60 TGanttSeries.DrawMark + 0001:0014CD58 TGanttSeries.DrawValue + 0001:0014CB88 TGanttSeries.FillSampleValues + 0001:0014D020 TGanttSeries.GetEditorClass + 0001:0014CFE4 TGanttSeries.GetStartValues + 0001:0014D084 TGanttSeries.IsValidSourceOf + 0001:0014CFDC TGanttSeries.MandatoryValueList + 0001:0014CF28 TGanttSeries.MaxXValue + 0001:0014CFF4 TGanttSeries.PrepareForGallery + 0001:0014CA34 TGanttSeries.SetConnectingPen + 0001:0014CA14 TGanttSeries.SetEndValues + 0001:0014CA24 TGanttSeries.SetNextTask + 0001:0014CFEC TGanttSeries.SetStartValues + 0001:0012B500 TGauge.Create + 0001:0012B5A0 TGauge.GetPercentDone + 0001:0012B5C4 TGauge.Paint + 0001:0012B960 TGauge.PaintAsBar + 0001:0012BBB8 TGauge.PaintAsNeedle + 0001:0012B920 TGauge.PaintAsNothing + 0001:0012BA60 TGauge.PaintAsPie + 0001:0012B7C0 TGauge.PaintAsText + 0001:0012B76C TGauge.PaintBackground + 0001:0012BD94 TGauge.SetBackColor + 0001:0012BD6C TGauge.SetBorderStyle + 0001:0012BD80 TGauge.SetForeColor + 0001:0012BD44 TGauge.SetGaugeKind + 0001:0012BE58 TGauge.SetMaxValue + 0001:0012BDA8 TGauge.SetMinValue + 0001:0012BF08 TGauge.SetProgress + 0001:0012BD58 TGauge.SetShowText + 0001:0004BA8C TGlyphCache.Create + 0001:0004BAE0 TGlyphCache.Destroy + 0001:0004BBD0 TGlyphCache.Empty + 0001:0004BB1C TGlyphCache.GetList + 0001:0004BB98 TGlyphCache.ReturnList + 0001:0004BA0C TGlyphList.AddMasked + 0001:0004B9A4 TGlyphList.AllocateIndex + 0001:0004B900 TGlyphList.CreateSize + 0001:0004BA48 TGlyphList.Delete + 0001:0004B964 TGlyphList.Destroy + 0001:00031E30 TGraphic.Changed + 0001:00031DEC TGraphic.Create + 0001:00031EC4 TGraphic.DefineProperties + 0001:00031F10 TGraphic.Equals + 0001:00032060 TGraphic.GetPalette + 0001:00032078 TGraphic.GetTransparent + 0001:00032094 TGraphic.LoadFromFile + 0001:000320F0 TGraphic.Progress + 0001:00032130 TGraphic.ReadData + 0001:0003214C TGraphic.SaveToFile + 0001:000321AC TGraphic.SetPalette + 0001:000321BC TGraphic.SetTransparent + 0001:000321EC TGraphic.WriteData + 0001:000A25CC TGraphicControl.Create + 0001:000A263C TGraphicControl.Destroy + 0001:000A273C TGraphicControl.Paint + 0001:000A268C TGraphicControl.WMPaint + 0001:0002E564 TGraphicsObject.Changed + 0001:0002E588 TGraphicsObject.Lock + 0001:0002E5A8 TGraphicsObject.Unlock + 0001:000483E8 TGroupButton.CNCommand + 0001:000483A0 TGroupButton.Destroy + 0001:00048300 TGroupButton.InternalCreate + 0001:000484D8 TGroupButton.KeyDown + 0001:00048480 TGroupButton.KeyPress + 0001:00023814 THandleStream.Create + 0001:00023864 THandleStream.Read + 0001:000238D4 THandleStream.Seek + 0001:00023908 THandleStream.SetSize + 0001:00023928 THandleStream.SetSize + 0001:0002389C THandleStream.Write + 0001:0007F52C THeaderControl.GetOnDrawSection + 0001:0007F554 THeaderControl.GetOnSectionClick + 0001:0007F57C THeaderControl.GetOnSectionResize + 0001:0007F5A4 THeaderControl.GetOnSectionTrack + 0001:0007F5CC THeaderControl.SetOnDrawSection + 0001:0007F5F0 THeaderControl.SetOnSectionClick + 0001:0007F614 THeaderControl.SetOnSectionResize + 0001:0007F638 THeaderControl.SetOnSectionTrack + 0001:000622E8 THeaderSection.Assign + 0001:0006226C THeaderSection.Create + 0001:000624B0 THeaderSection.GetDisplayName + 0001:000624E4 THeaderSection.GetLeft + 0001:000623C0 THeaderSection.IsBiDiModeStored + 0001:00062408 THeaderSection.ParentBiDiModeChanged + 0001:00062530 THeaderSection.SetAlignment + 0001:00062560 THeaderSection.SetAutoSize + 0001:00062388 THeaderSection.SetBiDiMode + 0001:0006271C THeaderSection.SetImageIndex + 0001:000625A4 THeaderSection.SetMaxWidth + 0001:000625F0 THeaderSection.SetMinWidth + 0001:000623DC THeaderSection.SetParentBiDiMode + 0001:00062638 THeaderSection.SetStyle + 0001:00062668 THeaderSection.SetText + 0001:000626A0 THeaderSection.SetWidth + 0001:00062480 THeaderSection.UseRightToLeftAlignment + 0001:00062450 THeaderSection.UseRightToLeftReading + 0001:000627A0 THeaderSections.Add + 0001:00062838 THeaderSections.AddItem + 0001:0006274C THeaderSections.Create + 0001:000627C0 THeaderSections.GetItem + 0001:000627E4 THeaderSections.GetOwner + 0001:00062800 THeaderSections.Update + 0001:0003B598 THelpManager.AssignHelpSelector + 0001:0003AFB4 THelpManager.CallSpecialWinHelp + 0001:0003AB64 THelpManager.Create + 0001:0003B7C0 THelpManager.Destroy + 0001:0003ADA8 THelpManager.DoSoftShutDown + 0001:0003ADEC THelpManager.DoTableOfContents + 0001:0003B6B4 THelpManager.GetHandle + 0001:0003B6D0 THelpManager.GetHelpFile + 0001:0003B600 THelpManager.Hook + 0001:0003ABF0 THelpManager.RegisterViewer + 0001:0003B6F0 THelpManager.Release + 0001:0003B344 THelpManager.ShowContextHelp + 0001:0003B0E4 THelpManager.ShowHelp + 0001:0003B468 THelpManager.ShowTableOfContents + 0001:0003B47C THelpManager.ShowTopicHelp + 0001:0003AD50 THelpManager.UnloadAllViewers + 0001:0003AB1C THelpViewerNode.Create + 0002:0000103C ThemeDataNames + 0002:00005A4C ThemeLibrary + 0001:00080B88 Themes + 0001:0007FD40 ThemeServices + 0002:00001034 ThemeServicesClass + 0001:0037D380 TheParentPtEvt + 0001:000D8E1C THighTeeFunction.Calculate + 0001:000D8E9C THighTeeFunction.CalculateMany + 0001:00090CB4 THintAction.Create + 0001:000A2AD8 THintWindow.ActivateHint + 0001:000A2CF0 THintWindow.ActivateHintData + 0001:000A2D24 THintWindow.CalcHintRect + 0001:000A2A24 THintWindow.CMTextChanged + 0001:000A2748 THintWindow.Create + 0001:000A27CC THintWindow.CreateParams + 0001:000A297C THintWindow.IsHintMsg + 0001:000A2D8C THintWindow.NCPaint + 0001:000A28CC THintWindow.Paint + 0001:000A2A10 THintWindow.ReleaseHandle + 0001:000A284C THintWindow.WMNCHitTest + 0001:000A2868 THintWindow.WMNCPaint + 0001:000A2E00 THintWindow.WMPrint + 0002:000073E4 thisChangeItem + 0002:000073E0 thisOrderID + 0001:00136E74 THorizBarSeries.CalcHorizMargins + 0001:00136EEC THorizBarSeries.CalcVerticalMargins + 0001:00136F10 THorizBarSeries.CalcXPos + 0001:00136FD0 THorizBarSeries.CalcYPos + 0001:001372AC THorizBarSeries.DrawBar + 0001:0013721C THorizBarSeries.DrawMark + 0001:0013791C THorizBarSeries.DrawSeriesForward + 0001:0013774C THorizBarSeries.DrawValue + 0001:00137910 THorizBarSeries.DrawValuesForward + 0001:001377E0 THorizBarSeries.FillSampleValues + 0001:00136FC0 THorizBarSeries.GetOriginPos + 0001:001371B0 THorizBarSeries.InternalCalcMarkLength + 0001:00137048 THorizBarSeries.InternalClicked + 0001:00136E6C THorizBarSeries.MandatoryValueList + 0001:0013715C THorizBarSeries.MaxXValue + 0001:00137188 THorizBarSeries.MinXValue + 0002:0000568E ThousandSeparator + 0002:00005888 ThreadCount + 0002:00005870 ThreadLock + 0001:00029E54 ThreadProc + 0002:00001768 ThreadStrs + 0001:0000358C ThreadWrapper + 0001:000377BC TIcon.Assign + 0001:00037718 TIcon.Create + 0001:00037780 TIcon.Destroy + 0001:00037834 TIcon.Draw + 0001:00037888 TIcon.GetEmpty + 0001:000378BC TIcon.GetHandle + 0001:000378E0 TIcon.GetHeight + 0001:0003790C TIcon.GetWidth + 0001:00037938 TIcon.HandleNeeded + 0001:000379CC TIcon.ImageNeeded + 0001:00037CB4 TIcon.LoadFromClipboardFormat + 0001:00037A90 TIcon.LoadFromStream + 0001:00037B50 TIcon.NewImage + 0001:00037CD4 TIcon.SaveToClipboardFormat + 0001:00037C78 TIcon.SaveToStream + 0001:00037BD8 TIcon.SetHandle + 0001:00037C00 TIcon.SetHeight + 0001:00037C34 TIcon.SetTransparent + 0001:00037C44 TIcon.SetWidth + 0001:000376B4 TIconImage.Destroy + 0001:000376F0 TIconImage.FreeHandle + 0001:0006FD0C TIconOptions.Create + 0001:0006FD94 TIconOptions.SetArrangement + 0001:0006FDC4 TIconOptions.SetAutoArrange + 0001:0006FDF4 TIconOptions.SetWrapText + 0001:002880B0 TIdSocketListWindows.Add + 0001:00288130 TIdSocketListWindows.Count + 0001:0028814C TIdSocketListWindows.GetItem + 0001:002881D0 TIdSocketListWindows.Remove + 0001:002868CC TIdStack.CheckForSocketError + 0001:002868F4 TIdStack.CheckForSocketError + 0001:002869CC TIdStack.Create + 0001:00286E40 TIdStack.Destroy + 0001:00286964 TIdStack.RaiseSocketError + 0001:00286E7C TIdStack.StringToTInAddr + 0001:00286A04 TIdStack.WSTranslateSocketErrorMsg + 0001:00287064 TIdStackWindows.Create + 0001:0028712C TIdStackWindows.Destroy + 0001:00287C50 TIdStackWindows.PopulateLocalAddresses + 0001:00287160 TIdStackWindows.TInAddrToString + 0001:00287E04 TIdStackWindows.TranslateStringToTInAddr + 0001:00287220 TIdStackWindows.WSAccept + 0001:002872B8 TIdStackWindows.WSBind + 0001:00287328 TIdStackWindows.WSCloseSocket + 0001:0028734C TIdStackWindows.WSConnect + 0001:00287424 TIdStackWindows.WSGetHostByAddr + 0001:002873A8 TIdStackWindows.WSGetHostByName + 0001:00287480 TIdStackWindows.WSGetHostName + 0001:00287928 TIdStackWindows.WSGetLastError + 0001:00287D18 TIdStackWindows.WSGetLocalAddress + 0001:002878EC TIdStackWindows.WSGetLocalAddresses + 0001:00287F28 TIdStackWindows.WSGetPeerName + 0001:002879C4 TIdStackWindows.WSGetServByName + 0001:00287AD8 TIdStackWindows.WSGetServByPort + 0001:00287FD0 TIdStackWindows.WSGetSockName + 0001:00288078 TIdStackWindows.WSGetSockOpt + 0001:00287C08 TIdStackWindows.WSHToNL + 0001:00287974 TIdStackWindows.WSHToNs + 0001:002874D0 TIdStackWindows.WSListen + 0001:00287C2C TIdStackWindows.WSNToHL + 0001:0028799C TIdStackWindows.WSNToHs + 0001:002874FC TIdStackWindows.WSRecv + 0001:00287530 TIdStackWindows.WSRecvFrom + 0001:002876E0 TIdStackWindows.WSSelect + 0001:00287808 TIdStackWindows.WSSend + 0001:0028783C TIdStackWindows.WSSendTo + 0001:002878B4 TIdStackWindows.WSSetSockOpt + 0001:00287EFC TIdStackWindows.WSShutdown + 0001:00287944 TIdStackWindows.WSSocket + 0001:0028823C TIdStackWindows.WSTranslateSocketErrorMsg + 0001:000C9880 TileBitmap + 0001:0004708C TImage.CanAutoSize + 0001:00046954 TImage.Create + 0001:00046A90 TImage.DestRect + 0001:00046A18 TImage.Destroy + 0001:00046CC8 TImage.DoPaletteChange + 0001:00046A58 TImage.GetPalette + 0001:00046BFC TImage.Paint + 0001:00046F18 TImage.PictureChanged + 0001:00046D98 TImage.Progress + 0001:00046E14 TImage.SetCenter + 0001:00046E4C TImage.SetPicture + 0001:00046EE0 TImage.SetProportional + 0001:00046E70 TImage.SetStretch + 0001:00046EA8 TImage.SetTransparent + 0002:000056A0 TimeAMString + 0001:00182A60 TimedOut + 0001:00182908 TimeoutKeyHook + 0001:00182940 TimeoutMouseHook + 0002:000056A4 TimePMString + 0002:00000F58 TimerStyles + 0002:0000569C TimeSeparator + 0002:000023FC timTimeout + 0001:000E5010 TInplaceEdit.BoundsChanged + 0001:000E46D4 TInplaceEdit.CMShowingChanged + 0001:000E4618 TInplaceEdit.Create + 0001:000E4694 TInplaceEdit.CreateParams + 0001:000E479C TInplaceEdit.DblClick + 0001:000E4E08 TInplaceEdit.Deselect + 0001:000E47BC TInplaceEdit.DoMouseWheel + 0001:000E4800 TInplaceEdit.EditCanModify + 0001:000E4EC4 TInplaceEdit.Hide + 0001:000E4F38 TInplaceEdit.InternalMove + 0001:000E4E2C TInplaceEdit.Invalidate + 0001:000E4A04 TInplaceEdit.KeyDown + 0001:000E4C34 TInplaceEdit.KeyPress + 0001:000E4D44 TInplaceEdit.KeyUp + 0001:000E5090 TInplaceEdit.Move + 0001:000E46B8 TInplaceEdit.SetGrid + 0001:000E50B0 TInplaceEdit.UpdateContents + 0001:000E5070 TInplaceEdit.UpdateLoc + 0001:000E4744 TInplaceEdit.WMClear + 0001:000E4770 TInplaceEdit.WMCut + 0001:000E46E4 TInplaceEdit.WMGetDlgCode + 0001:000E4718 TInplaceEdit.WMPaste + 0001:000E4D74 TInplaceEdit.WndProc + 0001:0001EC10 TIntConst.Create + 0001:000054CC TInterfacedObject.AfterConstruction + 0001:000054D8 TInterfacedObject.BeforeDestruction + 0001:000054E8 TInterfacedObject.NewInstance + 0001:000054F8 TInterfacedObject.QueryInterface + 0001:00005520 TInterfacedObject._AddRef + 0001:00005534 TInterfacedObject._Release + 0001:00020680 TInterfacedPersistent.AfterConstruction + 0001:0002073C TInterfacedPersistent.QueryInterface + 0001:000206DC TInterfacedPersistent._AddRef + 0001:0002070C TInterfacedPersistent._Release + 0001:00019714 TInvokeableVariantType.DispInvoke + 0001:000199D8 TInvokeableVariantType.DoFunction + 0001:000199E4 TInvokeableVariantType.DoProcedure + 0001:00019400 TInvokeableVariantType.FixupIdent + 0001:000199C0 TInvokeableVariantType.GetProperty + 0001:000199CC TInvokeableVariantType.SetProperty + 0001:000F5F24 TItemTip.Create + 0001:000F5FAC TItemTip.CreateParams + 0001:000F5F74 TItemTip.Destroy + 0001:000F60EC TItemTip.GetTabSettings + 0001:000F60AC TItemTip.Hide + 0001:000F5FD4 TItemTip.Paint + 0001:000F6418 TItemTip.Show + 0001:000F619C TItemTip.UpdateText + 0001:0036AD20 TitleForNote + 0002:00002FD4 TitlesTemplate + 0001:0036D4A0 TIUPatch175Installed + 0001:0036CCA0 TIUSiteParams + 0001:000FFC64 TKeyClickPanel.KeyDown + 0001:000FFC88 TKeyClickRadioGroup.Click + 0001:000FFCBC TKeyClickRadioGroup.Create + 0001:000FFD18 TKeyClickRadioGroup.KeyDown + 0001:001B2FF4 TKeyVal.DHCPtoKeyVal + 0001:001B2FC8 TKeyVal.GetDHCPField + 0001:002615A0 TLabTest.ChangeCollSamp + 0001:002615DC TLabTest.ChangeComment + 0001:00269038 TLabTest.ChangeSpecimen + 0001:002615AC TLabTest.ChangeSpecimen + 0001:002615C4 TLabTest.ChangeUrgency + 0001:00260A28 TLabTest.Create + 0001:00268590 TLabTest.Create + 0001:00260F60 TLabTest.Destroy + 0001:00268A00 TLabTest.Destroy + 0001:00268BEC TLabTest.FillCollSampList + 0001:00261154 TLabTest.FillCollSampList + 0001:00260FF4 TLabTest.IndexOfCollSamp + 0001:00268A8C TLabTest.IndexOfCollSamp + 0001:00269050 TLabTest.LabCanCollect + 0001:002615E8 TLabTest.LabCanCollect + 0001:00268AC8 TLabTest.LoadAllSamples + 0001:00261030 TLabTest.LoadAllSamples + 0001:00261614 TLabTest.LoadCollSamp + 0001:002617C0 TLabTest.LoadSpecimen + 0001:00261CA4 TLabTest.LoadUrgency + 0001:00261DD4 TLabTest.NameOfCollSamp + 0001:00261E10 TLabTest.NameOfSpecimen + 0001:00261F20 TLabTest.NameOfUrgency + 0001:00261FE8 TLabTest.ObtainCollSamp + 0001:0026907C TLabTest.ObtainCollSamp + 0001:00269084 TLabTest.ObtainComment + 0001:00262030 TLabTest.ObtainComment + 0001:00261FF0 TLabTest.ObtainSpecimen + 0001:00262028 TLabTest.ObtainUrgency + 0001:00261508 TLabTest.SetCollSampDflts + 0001:00268FA0 TLabTest.SetCollSampDflts + 0001:0013527C TLineSeries.Assign + 0001:00135200 TLineSeries.Create + 0001:00135250 TLineSeries.PrepareLegendCanvas + 0001:0001F474 TList.Add + 0001:0001FC90 TList.Assign + 0001:0001F4CC TList.Clear + 0001:0001F4EC TList.Delete + 0001:0001F448 TList.Destroy + 0001:0001F588 TList.Error + 0001:0001F5C8 TList.Error + 0001:0001F628 TList.Exchange + 0001:0001F6BC TList.Expand + 0001:0001FC20 TList.Extract + 0001:0001F6E8 TList.First + 0001:0001F708 TList.Get + 0001:0001F750 TList.Grow + 0001:0001F7A8 TList.IndexOf + 0001:0001F7F4 TList.Insert + 0001:0001F8A4 TList.Last + 0001:0001F8C8 TList.Move + 0001:0001FC7C TList.Notify + 0001:0001F94C TList.Put + 0001:0001F9DC TList.Remove + 0001:0001FA10 TList.SetCapacity + 0001:0001FA6C TList.SetCount + 0001:0001FBE4 TList.Sort + 0001:00051A34 TListActionLink.AddItem + 0001:00051A44 TListActionLink.AddItem + 0001:00051758 TListActionLink.IsActiveLinked + 0001:0005177C TListActionLink.IsImagesLinked + 0001:000518AC TListActionLink.RefreshControl + 0001:000517BC TListActionLink.SetAction + 0001:00051818 TListActionLink.SetActive + 0001:0005189C TListActionLink.SetImages + 0001:00051A8C TListActionLink.SetItemIndex + 0001:0008DBC8 TListBoxStrings.Add + 0001:0008DEA0 TListBoxStrings.Clear + 0001:0008DD10 TListBoxStrings.Delete + 0001:0008DD34 TListBoxStrings.Exchange + 0001:0008D95C TListBoxStrings.Get + 0001:0008D92C TListBoxStrings.GetCount + 0001:0008DA50 TListBoxStrings.GetObject + 0001:0008DEFC TListBoxStrings.IndexOf + 0001:0008DC70 TListBoxStrings.Insert + 0001:0008DF58 TListBoxStrings.Move + 0001:0008DAF0 TListBoxStrings.Put + 0001:0008DB84 TListBoxStrings.PutObject + 0001:0008DEBC TListBoxStrings.SetUpdateState + 0001:0006DF04 TListColumn.Assign + 0001:0006D874 TListColumn.Create + 0001:0006D9AC TListColumn.DefineProperties + 0001:0006D934 TListColumn.Destroy + 0001:0006DB70 TListColumn.DoChange + 0001:0006DFA0 TListColumn.GetDisplayName + 0001:0006DD08 TListColumn.GetWidth + 0001:0006DD50 TListColumn.IsWidthStored + 0001:0006DA08 TListColumn.ReadData + 0001:0006DDD4 TListColumn.SetAlignment + 0001:0006DE24 TListColumn.SetAutoSize + 0001:0006DCD0 TListColumn.SetCaption + 0001:0006DE78 TListColumn.SetImageIndex + 0001:0006DBF8 TListColumn.SetIndex + 0001:0006DEA4 TListColumn.SetMaxWidth + 0001:0006DED4 TListColumn.SetMinWidth + 0001:0006DD6C TListColumn.SetWidth + 0001:0006DA3C TListColumn.WriteData + 0001:0006E04C TListColumns.Add + 0001:0006DFD4 TListColumns.Create + 0001:0006E028 TListColumns.GetItem + 0001:0006E08C TListColumns.GetOwner + 0001:0006E070 TListColumns.Owner + 0001:0006E0A8 TListColumns.Update + 0001:0006E0E4 TListColumns.UpdateCols + 0001:0005072C TListControlItem.Assign + 0001:000507C4 TListControlItem.Changed + 0001:000507E8 TListControlItem.Create + 0001:0005083C TListControlItem.GetDisplayName + 0001:00050878 TListControlItem.SetCaption + 0001:000508A0 TListControlItem.SetData + 0001:000508C4 TListControlItem.SetImageIndex + 0001:00050928 TListControlItems.Add + 0001:0005098C TListControlItems.CompareItems + 0001:00050BA0 TListControlItems.Create + 0001:0005094C TListControlItems.CustomSort + 0001:000509FC TListControlItems.ExchangeItems + 0001:00050B2C TListControlItems.GetListItem + 0001:00050A68 TListControlItems.QuickSort + 0001:00050B50 TListControlItems.SetSortType + 0001:00050B88 TListControlItems.Sort + 0001:0006EEB0 TListItem.Assign + 0001:0006E7DC TListItem.Create + 0001:0006E8F4 TListItem.Delete + 0001:0006E848 TListItem.Destroy + 0001:0006F018 TListItem.DisplayRect + 0001:0006E974 TListItem.GetChecked + 0001:0006E924 TListItem.GetHandle + 0001:0006EFD8 TListItem.GetIndex + 0001:0006E8D8 TListItem.GetListView + 0001:0006EB6C TListItem.GetState + 0001:0006F054 TListItem.GetSubItemImage + 0001:0006EF74 TListItem.IsEqual + 0001:0006E944 TListItem.MakeVisible + 0001:0006EA58 TListItem.SetCaption + 0001:0006E9D0 TListItem.SetChecked + 0001:0006EB24 TListItem.SetData + 0001:0006EC94 TListItem.SetImage + 0001:0006EE2C TListItem.SetIndent + 0001:0006EBF8 TListItem.SetState + 0001:0006F078 TListItem.SetSubItemImage + 0001:0006EFB4 TListItem.SetSubItems + 0001:0006EA34 TListItem.Update + 0001:0006F180 TListItems.Add + 0001:0006F1C4 TListItems.AddItem + 0001:0006F5F8 TListItems.Assign + 0001:0006F3A4 TListItems.BeginUpdate + 0001:0006F37C TListItems.Clear + 0001:0006F0F4 TListItems.Create + 0001:0006FCC8 TListItems.CreateItem + 0001:0006F718 TListItems.DefineProperties + 0001:0006FCA8 TListItems.Delete + 0001:0006F144 TListItems.Destroy + 0001:0006F5D4 TListItems.EndUpdate + 0001:0006F230 TListItems.GetCount + 0001:0006F268 TListItems.GetHandle + 0001:0006F288 TListItems.GetItem + 0001:0006F31C TListItems.IndexOf + 0001:0006F1A0 TListItems.Insert + 0001:0006F770 TListItems.ReadData + 0001:0006F354 TListItems.SetCount + 0001:0006F3C8 TListItems.SetUpdateState + 0001:0006F9D4 TListItems.WriteData + 0001:0007F65C TListViewActionLink.AddItem + 0001:0007F6DC TListViewActionLink.AddItem + 0001:0007F72C TListViewActionLink.SetImages + 0001:001AF40C TLoginDialog.FormShow + 0001:000D8F28 TLowTeeFunction.Calculate + 0001:000D8FA8 TLowTeeFunction.CalculateMany + 0002:00005670 tlsBuffer + 0001:00005B30 TlsGetValue + 0002:000000A8 TlsIndex + 0002:FF87E010 TlsLast + 0001:00005B38 TlsSetValue + 0001:000B1AE8 TMainMenu.GetHandle + 0001:000B1AB0 TMainMenu.ItemChanged + 0001:000B19DC TMainMenu.MenuChanged + 0001:000B1A44 TMainMenu.Merge + 0001:000B1B84 TMainMenu.PopulateOle2Menu + 0001:000B1998 TMainMenu.SetAutoMerge + 0001:000B1BE8 TMainMenu.SetOle2MenuHandle + 0001:000B1A7C TMainMenu.Unmerge + 0001:000D8D04 TManySeriesTeeFunction.CalculateMany + 0001:00023C7C TMemoryStream.Clear + 0001:00023C40 TMemoryStream.Destroy + 0001:00023CA0 TMemoryStream.LoadFromStream + 0001:00023D64 TMemoryStream.Realloc + 0001:00023CE8 TMemoryStream.SetCapacity + 0001:00023D1C TMemoryStream.SetSize + 0001:00023E2C TMemoryStream.Write + 0001:00089C18 TMemoStrings.Clear + 0001:00089B58 TMemoStrings.Delete + 0001:00089934 TMemoStrings.Get + 0001:000898A8 TMemoStrings.GetCount + 0001:00089C94 TMemoStrings.GetTextStr + 0001:00089A20 TMemoStrings.Insert + 0001:0008998C TMemoStrings.Put + 0001:00089CB4 TMemoStrings.SetTextStr + 0001:00089C30 TMemoStrings.SetUpdateState + 0001:000B114C TMenu.AdjustBiDiBehavior + 0001:000B0718 TMenu.Create + 0001:000B07E4 TMenu.Destroy + 0001:000B0A84 TMenu.DispatchCommand + 0001:000B0AC0 TMenu.DispatchPopup + 0001:000B0EE0 TMenu.DoBiDiModeChanged + 0001:000B121C TMenu.DoChange + 0001:000B174C TMenu.DoGetMenuString + 0001:000B09B0 TMenu.FindItem + 0001:000B1908 TMenu.GetAutoHotkeys + 0001:000B1950 TMenu.GetAutoLineReduction + 0001:000B082C TMenu.GetChildren + 0001:000B0858 TMenu.GetHandle + 0001:000B09EC TMenu.GetHelpContext + 0001:000B12B8 TMenu.ImageListChange + 0001:000B0EC4 TMenu.IsBiDiModeStored + 0001:000B0BC0 TMenu.IsOwnerDraw + 0001:000B137C TMenu.IsRightToLeft + 0001:000B0D9C TMenu.IsShortCut + 0001:000B1250 TMenu.Loaded + 0001:000B1270 TMenu.MenuChanged + 0001:000B1340 TMenu.Notification + 0001:000B188C TMenu.ParentBiDiModeChanged + 0001:000B18CC TMenu.ParentBiDiModeChanged + 0001:000B1554 TMenu.ProcessMenuChar + 0001:000B192C TMenu.SetAutoHotkeys + 0001:000B1974 TMenu.SetAutoLineReduction + 0001:000B182C TMenu.SetBiDiMode + 0001:000B0878 TMenu.SetChildOrder + 0001:000B12DC TMenu.SetImages + 0001:000B1120 TMenu.SetOwnerDraw + 0001:000B1860 TMenu.SetParentBiDiMode + 0001:000B11CC TMenu.SetWindowHandle + 0001:000B1090 TMenu.UpdateImage + 0001:000B08DC TMenu.UpdateItems + 0001:000AC500 TMenuActionLink.AssignClient + 0001:000AC524 TMenuActionLink.IsAutoCheckLinked + 0001:000AC55C TMenuActionLink.IsCaptionLinked + 0001:000AC5A8 TMenuActionLink.IsCheckedLinked + 0001:000AC5EC TMenuActionLink.IsEnabledLinked + 0001:000AC6C0 TMenuActionLink.IsGroupIndexLinked + 0001:000AC630 TMenuActionLink.IsHelpContextLinked + 0001:000AC674 TMenuActionLink.IsHintLinked + 0001:000AC714 TMenuActionLink.IsImageIndexLinked + 0001:000AC7F0 TMenuActionLink.IsOnExecuteLinked + 0001:000AC75C TMenuActionLink.IsShortCutLinked + 0001:000AC7A8 TMenuActionLink.IsVisibleLinked + 0001:000AC82C TMenuActionLink.SetAutoCheck + 0001:000AC858 TMenuActionLink.SetCaption + 0001:000AC884 TMenuActionLink.SetChecked + 0001:000AC8B0 TMenuActionLink.SetEnabled + 0001:000AC8DC TMenuActionLink.SetHelpContext + 0001:000AC904 TMenuActionLink.SetHint + 0001:000AC934 TMenuActionLink.SetImageIndex + 0001:000AC9B8 TMenuActionLink.SetOnExecute + 0001:000AC960 TMenuActionLink.SetShortCut + 0001:000AC98C TMenuActionLink.SetVisible + 0001:0018513C TMenuBar.Create + 0001:001851A0 TMenuBar.GetChildren + 0001:001851A8 TMenuBar.SetMenu + 0001:000AF720 TMenuItem.ActionChange + 0001:000AF360 TMenuItem.Add + 0001:000AE71C TMenuItem.AdvancedDrawItem + 0001:000ACB74 TMenuItem.AppendTo + 0001:000AFAB8 TMenuItem.AssignTo + 0001:000AFCA0 TMenuItem.Clear + 0001:000AF244 TMenuItem.Click + 0001:000AC9E8 TMenuItem.Create + 0001:000AD208 TMenuItem.DefineProperties + 0001:000AF1B0 TMenuItem.Delete + 0001:000ACA88 TMenuItem.Destroy + 0001:000AF8B4 TMenuItem.DoActionChange + 0001:000AD25C TMenuItem.DoDrawText + 0001:000AD490 TMenuItem.DrawItem + 0001:000AEDC4 TMenuItem.GetAction + 0001:000AEDF0 TMenuItem.GetActionLinkClass + 0001:000B0678 TMenuItem.GetAutoHotkeys + 0001:000B06C8 TMenuItem.GetAutoLineReduction + 0001:000AF49C TMenuItem.GetBitmap + 0001:000AEFA4 TMenuItem.GetChildren + 0001:000AEE08 TMenuItem.GetCount + 0001:000AD19C TMenuItem.GetHandle + 0001:000AE850 TMenuItem.GetImageList + 0001:000AEE34 TMenuItem.GetItem + 0001:000AEF00 TMenuItem.GetMenuIndex + 0001:000AF5FC TMenuItem.GetParentComponent + 0001:000AF6A4 TMenuItem.GetParentMenu + 0001:000AEB50 TMenuItem.HasParent + 0001:000AFC24 TMenuItem.ImageListChange + 0001:000AF32C TMenuItem.IndexOf + 0001:000AF0A0 TMenuItem.InitiateAction + 0001:000AF5BC TMenuItem.InitiateActions + 0001:000AF0C0 TMenuItem.Insert + 0001:000AFF34 TMenuItem.InternalRethinkHotkeys + 0001:000B04B0 TMenuItem.InternalRethinkLines + 0001:000AF8E4 TMenuItem.IsCaptionStored + 0001:000AF918 TMenuItem.IsCheckedStored + 0001:000AF94C TMenuItem.IsEnabledStored + 0001:000AF9B4 TMenuItem.IsHelpContextStored + 0001:000AF980 TMenuItem.IsHintStored + 0001:000AF9E8 TMenuItem.IsImageIndexStored + 0001:000B0480 TMenuItem.IsLine + 0001:000AFA84 TMenuItem.IsOnClickStored + 0001:000AFA1C TMenuItem.IsShortCutStored + 0001:000AFA50 TMenuItem.IsVisibleStored + 0001:000ACFC8 TMenuItem.Loaded + 0001:000AE900 TMenuItem.MeasureItem + 0001:000AF3C4 TMenuItem.MenuChanged + 0001:000ACF54 TMenuItem.MergeWith + 0001:000AFB54 TMenuItem.Notification + 0001:000ACE80 TMenuItem.PopulateMenu + 0001:000ACEF4 TMenuItem.ReadShortCutText + 0001:000AD014 TMenuItem.RebuildHandle + 0001:000AF388 TMenuItem.Remove + 0001:000AF4E0 TMenuItem.SetAction + 0001:000B0450 TMenuItem.SetAutoHotkeys + 0001:000B0648 TMenuItem.SetAutoLineReduction + 0001:000AF578 TMenuItem.SetBitmap + 0001:000AEB64 TMenuItem.SetBreak + 0001:000AEB94 TMenuItem.SetCaption + 0001:000AEC40 TMenuItem.SetChecked + 0001:000AEFEC TMenuItem.SetChildOrder + 0001:000AF018 TMenuItem.SetDefault + 0001:000AECB8 TMenuItem.SetEnabled + 0001:000AED5C TMenuItem.SetGroupIndex + 0001:000AEED0 TMenuItem.SetImageIndex + 0001:000AEF34 TMenuItem.SetMenuIndex + 0001:000AF638 TMenuItem.SetParentComponent + 0001:000AF6D8 TMenuItem.SetRadioItem + 0001:000AEE6C TMenuItem.SetShortCut + 0001:000AFBC0 TMenuItem.SetSubMenuImages + 0001:000AEEA0 TMenuItem.SetVisible + 0001:000AF428 TMenuItem.SubItemChanged + 0001:000AEBCC TMenuItem.TurnSiblingsOff + 0001:000AFC80 TMenuItem.UpdateItems + 0001:000AD11C TMenuItem.VerifyGroupIndex + 0001:000B25A8 TMenuItemStack.ClearItem + 0001:0004283C TMessageForm.CreateNew + 0001:000428E8 TMessageForm.CustomKeyDown + 0001:00042AA8 TMessageForm.GetFormText + 0001:000428C0 TMessageForm.HelpButtonClick + 0001:00042964 TMessageForm.WriteToClipBoard + 0001:0003344C TMetafile.Assign + 0001:000333B4 TMetafile.Create + 0001:00033410 TMetafile.Destroy + 0001:00033520 TMetafile.Draw + 0001:000335C8 TMetafile.GetAuthor + 0001:00033654 TMetafile.GetDesc + 0001:00033704 TMetafile.GetEmpty + 0001:00033720 TMetafile.GetHandle + 0001:0003374C TMetafile.GetHeight + 0001:000337DC TMetafile.GetMMHeight + 0001:0003380C TMetafile.GetMMWidth + 0001:0003383C TMetafile.GetPalette + 0001:00033908 TMetafile.GetWidth + 0001:000344DC TMetafile.LoadFromClipboardFormat + 0001:00033998 TMetafile.LoadFromStream + 0001:00033A00 TMetafile.NewImage + 0001:00033A34 TMetafile.ReadData + 0001:00033AB4 TMetafile.ReadEMFStream + 0001:00033B9C TMetafile.ReadWMFStream + 0001:000345CC TMetafile.ReleaseHandle + 0001:00034588 TMetafile.SaveToClipboardFormat + 0001:00033D3C TMetafile.SaveToFile + 0001:00033E00 TMetafile.SaveToStream + 0001:00033E3C TMetafile.SetHandle + 0001:00033F0C TMetafile.SetHeight + 0001:00033FA4 TMetafile.SetMMHeight + 0001:00034000 TMetafile.SetMMWidth + 0001:0003405C TMetafile.SetTransparent + 0001:0003406C TMetafile.SetWidth + 0001:00034104 TMetafile.TestEMF + 0001:00034174 TMetafile.UniqueImage + 0001:00034248 TMetafile.WriteData + 0001:000342E0 TMetafile.WriteEMFStream + 0001:00034374 TMetafile.WriteWMFStream + 0001:00033050 TMetafileCanvas.Create + 0001:000330F8 TMetafileCanvas.CreateWithComment + 0001:00033358 TMetafileCanvas.Destroy + 0001:00032FF0 TMetafileImage.Destroy + 0001:00033044 TMetafileImage.FreeHandle + 0001:002C12D0 TMHQuestion.BuildControls + 0001:002C187C TMHQuestion.Create + 0001:002C1918 TMHQuestion.Destroy + 0001:002C1948 TMHQuestion.OnChange + 0001:002C1AB4 TMHQuestion.Question + 0001:000BE648 TMonitor.GetBoundsRect + 0001:000BE5DC TMonitor.GetHeight + 0001:000BE5B8 TMonitor.GetLeft + 0001:000BE600 TMonitor.GetTop + 0001:000BE624 TMonitor.GetWidth + 0001:000BE684 TMonitor.GetWorkareaRect + 0001:0007C95C TMonthCalColors.Assign + 0001:0007C8DC TMonthCalColors.Create + 0001:0007CB44 TMonthCalColors.SetAllColors + 0001:0007CA94 TMonthCalColors.SetColor + 0001:0007DBF8 TMonthCalendar.CanAutoSize + 0001:0007D8B8 TMonthCalendar.CMFontChanged + 0001:0007D8F0 TMonthCalendar.CNNotify + 0001:0007DA2C TMonthCalendar.ConstrainedResize + 0001:0007D848 TMonthCalendar.Create + 0001:0007DAAC TMonthCalendar.CreateParams + 0001:0007DB0C TMonthCalendar.GetCalendarHandle + 0001:0007DB28 TMonthCalendar.MsgSetCalColors + 0001:0007DB68 TMonthCalendar.MsgSetDateTime + 0001:0007DBB0 TMonthCalendar.MsgSetRange + 0001:000A6A50 TMouse.Create + 0001:000A6AF4 TMouse.Destroy + 0001:000A6B30 TMouse.GetCapture + 0001:000A6B48 TMouse.GetCursorPos + 0001:000A6B68 TMouse.GetMouseData + 0001:000A6B8C TMouse.GetNativeData + 0001:000A6BC8 TMouse.GetRegisteredData + 0001:000A6C10 TMouse.SetCapture + 0001:000A6C44 TMouse.SetCursorPos + 0001:000A6C6C TMouse.SettingChanged + 0002:000032C8 TmpActive + 0002:00008DB0 tmpGrid + 0002:00008C94 tmpGrid + 0002:00007288 tmpList + 0002:00008E14 tmplst + 0002:000032CC TmpOther + 0001:0011C2EC TMult.Assign + 0001:0011C44C TMult.ClearAll + 0001:0011C26C TMult.Create + 0001:0011C2B0 TMult.Destroy + 0001:0011C490 TMult.GetCount + 0001:0011C4AC TMult.GetFirst + 0001:0011C510 TMult.GetFMultiple + 0001:0011C4D8 TMult.GetLast + 0001:0011C800 TMult.Order + 0001:0011C898 TMult.Position + 0001:0011C758 TMult.SetFMultiple + 0001:0011C8A4 TMult.Subscript + 0001:00123BF4 TMultiCaster.AddAppEvent + 0001:00123C24 TMultiCaster.BeginDispatch + 0001:00123C34 TMultiCaster.Create + 0001:00123E30 TMultiCaster.Destroy + 0001:00123FC4 TMultiCaster.DoActionExecute + 0001:00124044 TMultiCaster.DoActionUpdate + 0001:001240C4 TMultiCaster.DoActivate + 0001:00124140 TMultiCaster.DoDeactivate + 0001:001241BC TMultiCaster.DoException + 0001:0012427C TMultiCaster.DoHelp + 0001:00124320 TMultiCaster.DoHint + 0001:0012439C TMultiCaster.DoIdle + 0001:0012441C TMultiCaster.DoMessage + 0001:0012449C TMultiCaster.DoMinimize + 0001:001247E4 TMultiCaster.DoModalBegin + 0001:00124860 TMultiCaster.DoModalEnd + 0001:00124518 TMultiCaster.DoRestore + 0001:0012469C TMultiCaster.DoSettingChange + 0001:00124594 TMultiCaster.DoShortcut + 0001:00124614 TMultiCaster.DoShowHint + 0001:00124728 TMultiCaster.EndDispatch + 0001:001247A4 TMultiCaster.GetAppEvents + 0001:001247C8 TMultiCaster.GetCount + 0001:000D8DC4 TMultiplyTeeFunction.CalculateValue + 0001:0000F8F8 TMultiReadExclusiveWriteSynchronizer.BeginRead + 0001:0000F7B0 TMultiReadExclusiveWriteSynchronizer.BeginWrite + 0001:0000F728 TMultiReadExclusiveWriteSynchronizer.BlockReaders + 0001:0000F63C TMultiReadExclusiveWriteSynchronizer.Create + 0001:0000F6CC TMultiReadExclusiveWriteSynchronizer.Destroy + 0001:0000F980 TMultiReadExclusiveWriteSynchronizer.EndRead + 0001:0000F88C TMultiReadExclusiveWriteSynchronizer.EndWrite + 0001:0000F758 TMultiReadExclusiveWriteSynchronizer.UnblockOneWriter + 0001:0000F740 TMultiReadExclusiveWriteSynchronizer.UnblockReaders + 0001:0000F770 TMultiReadExclusiveWriteSynchronizer.WaitForReadSignal + 0001:0000F790 TMultiReadExclusiveWriteSynchronizer.WaitForWriteSignal + 0001:00122DA4 TNoteTitles.Create + 0001:00122DE8 TNoteTitles.Destroy + 0001:00374508 TNotifications.Add + 0001:00374568 TNotifications.Clear + 0001:00374468 TNotifications.Create + 0001:00374800 TNotifications.Delete + 0001:00374868 TNotifications.DeleteForCurrentUser + 0001:003744C4 TNotifications.Destroy + 0001:00374638 TNotifications.GetAlertData + 0001:003745D8 TNotifications.GetDFN + 0001:0037460C TNotifications.GetFollowUp + 0001:003746B0 TNotifications.GetRecordID + 0001:003746E4 TNotifications.GetText + 0001:00374764 TNotifications.Next + 0001:003747B0 TNotifications.Prior + 0001:003726B8 TNotifyAppsThread.CreateThread + 0001:00372744 TNotifyAppsThread.Execute + 0001:00372720 TNotifyAppsThread.ResumeAndTerminate + 0001:00372704 TNotifyAppsThread.ResumeIfIdle + 0001:0000296C TObject.AfterConstruction + 0001:00002970 TObject.BeforeDestruction + 0001:00002958 TObject.ClassInfo + 0001:00002668 TObject.ClassName + 0001:0000267C TObject.ClassNameIs + 0001:000026A4 TObject.ClassParent + 0001:00002660 TObject.ClassType + 0001:0000277C TObject.CleanupInstance + 0001:000026E8 TObject.Create + 0001:00002968 TObject.DefaultHandler + 0001:00002708 TObject.Destroy + 0001:00002974 TObject.Dispatch + 0001:00002A2C TObject.FieldAddress + 0001:00002718 TObject.Free + 0001:000026CC TObject.FreeInstance + 0001:000027CC TObject.GetInterface + 0001:00002860 TObject.GetInterfaceEntry + 0001:00002944 TObject.InheritsFrom + 0001:00002724 TObject.InitInstance + 0001:000026E0 TObject.InstanceSize + 0001:0000299C TObject.MethodAddress + 0001:000029EC TObject.MethodName + 0001:000026B0 TObject.NewInstance + 0001:00002960 TObject.SafeCallException + 0001:00038638 TObjectList.Add + 0001:0003865C TObjectList.Create + 0001:000386A4 TObjectList.Create + 0001:000386F4 TObjectList.Extract + 0001:00038718 TObjectList.GetItem + 0001:0003873C TObjectList.IndexOf + 0001:00038760 TObjectList.Insert + 0001:00038784 TObjectList.Notify + 0001:000387BC TObjectList.Remove + 0001:001EB384 TOCRec.Create + 0001:001EB3DC TOCRec.Destroy + 0001:0010B8A0 TOleControl.CanInPlaceActivate + 0001:0010B1AC TOleControl.CMColorChanged + 0001:0010B3D4 TOleControl.CMDialogKey + 0001:0010B134 TOleControl.CMDocWindowActivate + 0001:0010B238 TOleControl.CMEnabledChanged + 0001:0010B2CC TOleControl.CMFontChanged + 0001:0010B498 TOleControl.CMUIActivate + 0001:0010B504 TOleControl.CMUIDeactivate + 0001:0010B85C TOleControl.ContextSensitiveHelp + 0001:00108E4C TOleControl.Create + 0001:00109258 TOleControl.CreateControl + 0001:001095BC TOleControl.CreateInstance + 0001:00109704 TOleControl.CreateStorage + 0001:001097DC TOleControl.CreateWnd + 0001:0010A038 TOleControl.D2InvokeEvent + 0001:0010BA64 TOleControl.DeactivateAndUndo + 0001:0010989C TOleControl.DefaultHandler + 0001:0010998C TOleControl.DefineProperties + 0001:00109168 TOleControl.Destroy + 0001:00109A38 TOleControl.DestroyControl + 0001:00109AB8 TOleControl.DestroyEnumPropDescs + 0001:00109B24 TOleControl.DestroyStorage + 0001:00109B54 TOleControl.DestroyWindowHandle + 0001:0010BA50 TOleControl.DiscardUndoState + 0001:0010BC18 TOleControl.EnableModeless + 0001:0010BAC8 TOleControl.GetBorder + 0001:0010B618 TOleControl.GetContainer + 0001:00109BB8 TOleControl.GetEventMethod + 0001:0010B74C TOleControl.GetExtendedControl + 0001:00109C18 TOleControl.GetIDispatchProp + 0001:0010BC74 TOleControl.GetIDsOfNames + 0001:00109C44 TOleControl.GetIntegerProp + 0001:00109C6C TOleControl.GetMainMenu + 0001:0010B5F8 TOleControl.GetMoniker + 0001:00109D30 TOleControl.GetOleObject + 0001:00109DAC TOleControl.GetOleVariantProp + 0001:00109DD8 TOleControl.GetProperty + 0001:00109E7C TOleControl.GetStringProp + 0001:00109D0C TOleControl.GetTOleEnumProp + 0001:0010BC58 TOleControl.GetTypeInfo + 0001:0010BC40 TOleControl.GetTypeInfoCount + 0001:00109EE0 TOleControl.GetVariantProp + 0001:00109F04 TOleControl.GetWideStringProp + 0001:0010B944 TOleControl.GetWindowContext + 0001:00109CE0 TOleControl.GetWordBoolProp + 0001:00109F38 TOleControl.HookControlWndProc + 0001:0010A368 TOleControl.InitControlInterface + 0001:0010BB38 TOleControl.InsertMenus + 0001:0010BC88 TOleControl.Invoke + 0001:0010A280 TOleControl.InvokeEvent + 0001:0010B738 TOleControl.LockInPlaceActive + 0001:0010B820 TOleControl.OleControlSite_TranslateAccelerator + 0001:0010BB18 TOleControl.OleInPlaceFrame_GetWindow + 0001:0010BC2C TOleControl.OleInPlaceFrame_TranslateAccelerator + 0001:0010B870 TOleControl.OleInPlaceSite_GetWindow + 0001:0010BE5C TOleControl.OnChanged + 0001:0010B724 TOleControl.OnControlInfoChanged + 0001:0010B834 TOleControl.OnFocus + 0001:0010B8B4 TOleControl.OnInPlaceActivate + 0001:0010BA24 TOleControl.OnInPlaceDeactivate + 0001:0010BA84 TOleControl.OnPosRectChange + 0001:0010C078 TOleControl.OnRequestEdit + 0001:0010B654 TOleControl.OnShowWindow + 0001:0010B928 TOleControl.OnUIActivate + 0001:0010B9F8 TOleControl.OnUIDeactivate + 0001:0010A378 TOleControl.PaletteChanged + 0001:0010A3D8 TOleControl.PictureChanged + 0001:0010C0A0 TOleControl.PostMessageFilter + 0001:0010C08C TOleControl.PreMessageFilter + 0001:0010B570 TOleControl.QueryInterface + 0001:0010A468 TOleControl.ReadData + 0001:0010BBD4 TOleControl.RemoveMenus + 0001:0010BADC TOleControl.RequestBorderSpace + 0001:0010B668 TOleControl.RequestNewObjectLayout + 0001:0010B5E4 TOleControl.SaveObject + 0001:0010B9E4 TOleControl.Scroll + 0001:0010BB04 TOleControl.SetActiveObject + 0001:0010BAF0 TOleControl.SetBorderSpace + 0001:0010A534 TOleControl.SetBounds + 0001:0010A5FC TOleControl.SetColorProp + 0001:0010A620 TOleControl.SetIDispatchProp + 0001:0010A650 TOleControl.SetIntegerProp + 0001:0010BB88 TOleControl.SetMenu + 0001:0010A680 TOleControl.SetName + 0001:0010A79C TOleControl.SetOleVariantProp + 0001:0010A7C0 TOleControl.SetParent + 0001:0010A9AC TOleControl.SetProperty + 0001:0010BC04 TOleControl.SetStatusText + 0001:0010AA7C TOleControl.SetStringProp + 0001:0010A8AC TOleControl.SetTPictureProp + 0001:0010AADC TOleControl.SetUIActive + 0001:0010AB5C TOleControl.SetVariantProp + 0001:0010ABC0 TOleControl.SetWideStringProp + 0001:0010A75C TOleControl.SetWordBoolProp + 0001:0010B638 TOleControl.ShowObject + 0001:0010B848 TOleControl.ShowPropertyFrame + 0001:0010AC08 TOleControl.StandardEvent + 0001:00109954 TOleControl.SuppressException + 0001:0010B76C TOleControl.TransformCoords + 0001:0010B074 TOleControl.WMEraseBkgnd + 0001:0010B0A8 TOleControl.WMPaint + 0001:0010AE4C TOleControl.WndProc + 0001:0010AF68 TOleControl.WriteData + 0001:0010B59C TOleControl._AddRef + 0001:0010B5C0 TOleControl._Release + 0001:00107AD4 TOleGraphic.Assign + 0001:00107B14 TOleGraphic.Changed + 0001:00107B24 TOleGraphic.Draw + 0001:00107C64 TOleGraphic.GetEmpty + 0001:00107D04 TOleGraphic.GetHeight + 0001:00107D3C TOleGraphic.GetMMHeight + 0001:00107D6C TOleGraphic.GetMMWidth + 0001:00107D9C TOleGraphic.GetPalette + 0001:00107DD0 TOleGraphic.GetTransparent + 0001:00107E08 TOleGraphic.GetWidth + 0001:00108030 TOleGraphic.LoadFromClipboardFormat + 0001:00107F3C TOleGraphic.LoadFromFile + 0001:00107F4C TOleGraphic.LoadFromStream + 0001:00108090 TOleGraphic.SaveToClipboardFormat + 0001:00107FA4 TOleGraphic.SaveToStream + 0001:00107E5C TOleGraphic.SetHeight + 0001:00107EB4 TOleGraphic.SetPalette + 0001:00107EE4 TOleGraphic.SetWidth + 0001:00106760 TOleServer.ConnectEvents + 0001:001064C4 TOleServer.Create + 0001:00106534 TOleServer.Destroy + 0001:00106798 TOleServer.DisconnectEvents + 0001:00106804 TOleServer.GetAutoConnect + 0001:001067C0 TOleServer.GetConnectKind + 0001:001065E0 TOleServer.GetServer + 0001:001065CC TOleServer.InvokeEvent + 0001:0010659C TOleServer.Loaded + 0001:0010684C TOleServer.QueryInterface + 0001:00106830 TOleServer.SetAutoConnect + 0001:001067E8 TOleServer.SetConnectKind + 0001:00106878 TOleServer._AddRef + 0001:00106894 TOleServer._Release + 0001:00004E88 ToLongPath + 0001:0007B7C8 ToolMenuGetMsgHook + 0002:00005B30 ToolMenuHook + 0002:00005B50 ToolMenuKeyHook + 0001:0007BB70 ToolMenuKeyMsgHook + 0002:00000E5C ToolTipStyles + 0001:0003E9B0 ToolWin + 0001:000404B4 TOpenDialog.CanClose + 0001:000403C8 TOpenDialog.Create + 0001:00040748 TOpenDialog.DefineProperties + 0001:0004046C TOpenDialog.Destroy + 0001:00040640 TOpenDialog.DoCanClose + 0001:0004080C TOpenDialog.DoExecute + 0001:000406A4 TOpenDialog.DoFolderChange + 0001:00040F04 TOpenDialog.DoIncludeItem + 0001:00040678 TOpenDialog.DoSelectionChange + 0001:000406D0 TOpenDialog.DoTypeChange + 0001:00040EDC TOpenDialog.Execute + 0001:00040DD8 TOpenDialog.GetFileName + 0001:00040CA0 TOpenDialog.GetFileNames + 0001:00040E40 TOpenDialog.GetFilterIndex + 0001:00040D60 TOpenDialog.GetStaticRect + 0001:000406FC TOpenDialog.ReadFileEditStyle + 0001:00040E70 TOpenDialog.SetInitialDir + 0001:000404F0 TOpenDialog.WndProc + 0001:00376338 TopNameOfDGroup + 0001:000FD860 TORAlignButton.Create + 0001:000FD8AC TORAlignButton.CreateParams + 0001:000FD8F4 TORAlignButton.SetAlignment + 0001:000FD908 TORAlignButton.SetLayout + 0001:000FD91C TORAlignButton.SetWordWrap + 0001:001004AC TORAlignSpeedButton.Paint + 0001:000FD318 TORAutoPanel.BuildSizes + 0001:000FD2B4 TORAutoPanel.Destroy + 0001:000FD440 TORAutoPanel.DoResize + 0001:000FD410 TORAutoPanel.Loaded + 0001:000FD588 TORAutoPanel.Resize + 0001:00125F20 TORCalendar.DrawCell + 0001:0012607C TORCalendar.KeyDown + 0001:000FE6B4 TORCBImageIndexes.Create + 0001:000FE738 TORCBImageIndexes.Destroy + 0001:000FE7DC TORCBImageIndexes.IdxString + 0001:000FE9FC TORCBImageIndexes.ImageListChanged + 0001:000FEA2C TORCBImageIndexes.Notification + 0001:000FEA58 TORCBImageIndexes.SetCheckedDisabledIndex + 0001:000FEA68 TORCBImageIndexes.SetCheckedEnabledIndex + 0001:000FEA78 TORCBImageIndexes.SetGrayedDisabledIndex + 0001:000FEA88 TORCBImageIndexes.SetGrayedEnabledIndex + 0001:000FE8C0 TORCBImageIndexes.SetIdxString + 0001:000FE768 TORCBImageIndexes.SetImages + 0001:000FEA98 TORCBImageIndexes.SetUncheckedDisabledIndex + 0001:000FEAA8 TORCBImageIndexes.SetUncheckedEnabledIndex + 0001:000FF740 TORCheckBox.AutoAdjustSize + 0001:000FFB3C TORCheckBox.BMGetCheck + 0001:000FFB64 TORCheckBox.BMGetState + 0001:000FF600 TORCheckBox.BMSetCheck + 0001:000FEC5C TORCheckBox.CMEnabledChanged + 0001:000FEC70 TORCheckBox.CMFontChanged + 0001:000FEC84 TORCheckBox.CNDrawItem + 0001:000FEC9C TORCheckBox.CNMeasureItem + 0001:000FEAB8 TORCheckBox.Create + 0001:000FEB10 TORCheckBox.CreateCommon + 0001:000FEC44 TORCheckBox.CreateParams + 0001:000FEB3C TORCheckBox.Destroy + 0001:000FF1E0 TORCheckBox.DrawItem + 0001:000FF8D0 TORCheckBox.GetCaption + 0001:000FECAC TORCheckBox.GetDrawData + 0001:000FEB80 TORCheckBox.GetImageIndexes + 0001:000FEB98 TORCheckBox.GetImageList + 0001:000FFB00 TORCheckBox.Notification + 0001:000FF94C TORCheckBox.SetAllowAllUnchecked + 0001:000FFA14 TORCheckBox.SetAssociate + 0001:000FF71C TORCheckBox.SetAutoSize + 0001:000FF8E4 TORCheckBox.SetCaption + 0001:000FFB30 TORCheckBox.SetFocusOnBox + 0001:000FF5A8 TORCheckBox.SetGrayedStyle + 0001:000FF958 TORCheckBox.SetGroupIndex + 0001:000FEBA4 TORCheckBox.SetImageIndexes + 0001:000FEBB0 TORCheckBox.SetImageList + 0001:000FF9F4 TORCheckBox.SetParent + 0001:000FFA08 TORCheckBox.SetRadioStyle + 0001:000FF6F8 TORCheckBox.SetWordWrap + 0001:000FF984 TORCheckBox.SyncAllowAllUnchecked + 0001:000FEBBC TORCheckBox.Toggle + 0001:000FFAE0 TORCheckBox.UpdateAssociate + 0001:000FF5C8 TORCheckBox.WMLButtonDblClk + 0001:000FF5DC TORCheckBox.WMSize + 0001:000FB4A0 TORComboBox.AdjustSizeOfSelf + 0001:000FD150 TORComboBox.CheckBoxSelected + 0001:000FC7E8 TORComboBox.Clear + 0001:000FC80C TORComboBox.ClearTop + 0001:000FB3F0 TORComboBox.CMFontChanged + 0001:000FB224 TORComboBox.Create + 0001:000FB628 TORComboBox.DoEnter + 0001:000FB678 TORComboBox.DoExit + 0001:000FB5C8 TORComboBox.DropButtonDown + 0001:000FB5F8 TORComboBox.DropButtonUp + 0001:000FCDCC TORComboBox.DropPanelBtnPressed + 0001:000FB48C TORComboBox.EditControl + 0001:000FC818 TORComboBox.ForDataUse + 0001:000FB6D4 TORComboBox.FwdChange + 0001:000FB704 TORComboBox.FwdChangeDelayed + 0001:000FBA14 TORComboBox.FwdClick + 0001:000FBB68 TORComboBox.FwdDblClick + 0001:000FBB88 TORComboBox.FwdKeyDown + 0001:000FBF4C TORComboBox.FwdKeyPress + 0001:000FBF90 TORComboBox.FwdKeyUp + 0001:000FBFFC TORComboBox.FwdMouseUp + 0001:000FC020 TORComboBox.FwdNeedData + 0001:000FC880 TORComboBox.GetAutoSelect + 0001:000FD18C TORComboBox.GetCaption + 0001:000FD1FC TORComboBox.GetCaseChanged + 0001:000FCB8C TORComboBox.GetCheckBoxes + 0001:000FCE30 TORComboBox.GetCheckedString + 0001:000FCB9C TORComboBox.GetCheckEntireLine + 0001:000FC890 TORComboBox.GetColor + 0001:000FC89C TORComboBox.GetDelimiter + 0001:000FC8AC TORComboBox.GetDisplayText + 0001:000FCFD4 TORComboBox.GetEditBoxText + 0001:000FCF84 TORComboBox.GetEnabled + 0001:000FCBAC TORComboBox.GetFlatCheckBoxes + 0001:000FC9A4 TORComboBox.GetHideSynonyms + 0001:000FC8C8 TORComboBox.GetItemHeight + 0001:000FC8D4 TORComboBox.GetItemID + 0001:000FC8EC TORComboBox.GetItemIEN + 0001:000FC90C TORComboBox.GetItemIndex + 0001:000FC92C TORComboBox.GetItemTipColor + 0001:000FC91C TORComboBox.GetItemTipEnable + 0001:000FC93C TORComboBox.GetLongList + 0001:000FD21C TORComboBox.GetLookupPiece + 0001:000FC94C TORComboBox.GetMaxLength + 0001:000FCF4C TORComboBox.GetOnSynonymCheck + 0001:000FC95C TORComboBox.GetPieces + 0001:000FC974 TORComboBox.GetSelStart + 0001:000FC984 TORComboBox.GetShortCount + 0001:000FC994 TORComboBox.GetSorted + 0001:000FC9B4 TORComboBox.GetSynonymChars + 0001:000FCA44 TORComboBox.GetTabPosInPixels + 0001:000FCA2C TORComboBox.GetTabPositions + 0001:000FCA54 TORComboBox.GetText + 0001:000FC824 TORComboBox.InitLongList + 0001:000FC874 TORComboBox.InsertSeparator + 0001:000FB6BC TORComboBox.Loaded + 0001:000FD1A4 TORComboBox.MakeAccessible + 0001:000FCA6C TORComboBox.SelectAll + 0001:000FC538 TORComboBox.SelectByID + 0001:000FC50C TORComboBox.SelectByIEN + 0001:000FCA78 TORComboBox.SetAutoSelect + 0001:000FD180 TORComboBox.SetCaption + 0001:000FD20C TORComboBox.SetCaseChanged + 0001:000FCE54 TORComboBox.SetCheckBoxEditColor + 0001:000FCBBC TORComboBox.SetCheckBoxes + 0001:000FCE48 TORComboBox.SetCheckedString + 0001:000FCDB0 TORComboBox.SetCheckEntireLine + 0001:000FCA88 TORComboBox.SetColor + 0001:000FCABC TORComboBox.SetDelimiter + 0001:000FC098 TORComboBox.SetDropDownCount + 0001:000FC0A4 TORComboBox.SetDroppedDown + 0001:000FC2DC TORComboBox.SetEditRect + 0001:000FC384 TORComboBox.SetEditText + 0001:000FCF8C TORComboBox.SetEnabled + 0001:000FC558 TORComboBox.SetExactByIEN + 0001:000FCDC0 TORComboBox.SetFlatCheckBoxes + 0001:000FC9D0 TORComboBox.SetHideSynonyms + 0001:000FCAC8 TORComboBox.SetItemHeight + 0001:000FC428 TORComboBox.SetItemIndex + 0001:000FCB7C TORComboBox.SetItems + 0001:000FCAE4 TORComboBox.SetItemTipColor + 0001:000FCAD4 TORComboBox.SetItemTipEnable + 0001:000FCE84 TORComboBox.SetListItemsOnly + 0001:000FCAF4 TORComboBox.SetLongList + 0001:000FD22C TORComboBox.SetLookupPiece + 0001:000FCB00 TORComboBox.SetMaxLength + 0001:00100738 TORComboBox.SetNumForMatch + 0001:000FCEA0 TORComboBox.SetOnCheckedText + 0001:000FCF64 TORComboBox.SetOnSynonymCheck + 0001:000FCB0C TORComboBox.SetPieces + 0001:000FCB18 TORComboBox.SetSelLength + 0001:000FCB2C TORComboBox.SetSelStart + 0001:000FCB40 TORComboBox.SetSelText + 0001:000FCB4C TORComboBox.SetSorted + 0001:000FC584 TORComboBox.SetStyle + 0001:000FC9DC TORComboBox.SetSynonymChars + 0001:000FCB64 TORComboBox.SetTabPosInPixels + 0001:000FCB58 TORComboBox.SetTabPositions + 0001:000FCF08 TORComboBox.SetTemplateField + 0001:000FCB70 TORComboBox.SetText + 0001:00100854 TORComboBox.SetTextAutoComplete + 0001:00100760 TORComboBox.SetUniqueAutoComplete + 0001:000FC760 TORComboBox.StartKeyTimer + 0001:000FC7C0 TORComboBox.StopKeyTimer + 0001:000FB64C TORComboBox.UMGotFocus + 0001:000FD0D0 TORComboBox.UpdateCheckEditBoxText + 0001:000FB3C4 TORComboBox.WMDestroy + 0001:000FB404 TORComboBox.WMMove + 0001:000FB41C TORComboBox.WMSize + 0001:000FB430 TORComboBox.WMTimer + 0001:000FB13C TORComboEdit.CreateParams + 0001:000FB158 TORComboEdit.WMKillFocus + 0001:000FB1CC TORComboEdit.WMSetFocus + 0001:000FFB68 TORComboPanelEdit.Destroy + 0001:000FFB9C TORComboPanelEdit.Paint + 0001:00127DC4 TORDateBox.ButtonClick + 0001:00127F3C TORDateBox.Change + 0001:00127B3C TORDateBox.Create + 0001:001286C8 TORDateBox.GetCaption + 0001:00127FA0 TORDateBox.GetFMDateTime + 0001:00128034 TORDateBox.GetRelativeTime + 0001:00128598 TORDateBox.IsValid + 0001:00127F58 TORDateBox.KeyDown + 0001:00128620 TORDateBox.SetCaption + 0001:00128158 TORDateBox.SetDateOnly + 0001:001282BC TORDateBox.SetEditRect + 0001:00128204 TORDateBox.SetFMDateTime + 0001:00128230 TORDateBox.SetRequireTime + 0001:00127D00 TORDateBox.SetTemplateField + 0001:00128324 TORDateBox.UpdateText + 0001:00128434 TORDateBox.Validate + 0001:00127C74 TORDateBox.WMSize + 0001:00129B30 TORDateCombo.BtnClicked + 0001:001299FC TORDateCombo.CheckDays + 0001:0012A108 TORDateCombo.CMFontChanged + 0001:00128950 TORDateCombo.Create + 0001:00129820 TORDateCombo.DayChanged + 0001:001289F0 TORDateCombo.Destroy + 0001:0012A0C4 TORDateCombo.DoChange + 0001:00129F70 TORDateCombo.GetFMDate + 0001:00128A6C TORDateCombo.GetYearSize + 0001:00128AA8 TORDateCombo.InitDays + 0001:00128C38 TORDateCombo.InitMonths + 0001:00129AE0 TORDateCombo.Loaded + 0001:00129870 TORDateCombo.MonthChanged + 0001:00129B08 TORDateCombo.Paint + 0001:00128D80 TORDateCombo.Rebuild + 0001:0012A0F0 TORDateCombo.Resized + 0001:0012942C TORDateCombo.SetDay + 0001:00129FCC TORDateCombo.SetFMDate + 0001:001294E8 TORDateCombo.SetIncludeBtn + 0001:0012951C TORDateCombo.SetIncludeDay + 0001:00129578 TORDateCombo.SetIncludeMonth + 0001:00129658 TORDateCombo.SetLongMonths + 0001:001295D0 TORDateCombo.SetMonth + 0001:0012A2E8 TORDateCombo.SetTemplateField + 0001:0012968C TORDateCombo.SetYear + 0001:0012A12C TORDateCombo.Text + 0001:001298C8 TORDateCombo.YearChanged + 0001:00129E80 TORDateCombo.YearKeyPress + 0001:00129CEC TORDateCombo.YearUDChange + 0001:00128908 TORDateComboEdit.SetTemplateField + 0001:00127B0C TORDateEdit.CreateParams + 0001:0012A7FC TORDateRangeDlg.Create + 0001:0012A8C8 TORDateRangeDlg.Execute + 0001:0012AB40 TORDateRangeDlg.SetDateOnly + 0001:0012AC28 TORDateRangeDlg.SetFMDateStart + 0001:0012AC8C TORDateRangeDlg.SetFMDateStop + 0001:0012ABC8 TORDateRangeDlg.SetRequireTime + 0001:0012ACF0 TORDateRangeDlg.SetTextOfStart + 0001:0012AD0C TORDateRangeDlg.SetTextOfStop + 0001:0012771C TORDateTimeDlg.Create + 0001:00127788 TORDateTimeDlg.Execute + 0001:00127A50 TORDateTimeDlg.GetFMDateTime + 0001:00127A74 TORDateTimeDlg.SetDateOnly + 0001:00127AB0 TORDateTimeDlg.SetFMDateTime + 0001:00127AE0 TORDateTimeDlg.SetRequireTime + 0001:0037566C TOrder.Assign + 0001:00375850 TOrder.Clear + 0001:00038ABC TOrderedList.Create + 0001:00038B10 TOrderedList.Destroy + 0001:00038B4C TOrderedList.PeekItem + 0001:00038A7C TOrderedList.Pop + 0001:00038B74 TOrderedList.PopItem + 0001:00038A98 TOrderedList.Push + 0001:000FAD3C TORDropPanel.BtnClicked + 0001:000FAD70 TORDropPanel.Create + 0001:000FADE4 TORDropPanel.CreateParams + 0001:000FAE20 TORDropPanel.GetButton + 0001:000FAEB8 TORDropPanel.ResetButtons + 0001:000FAEE8 TORDropPanel.Resize + 0001:000FAF68 TORDropPanel.UpdateButtons + 0001:000FB0E0 TORDropPanel.WMActivateApp + 0001:0012ADF4 TORfrmDateRange.cmdCancelClick + 0001:0012AD28 TORfrmDateRange.cmdOKClick + 0001:0012AE00 TORfrmDateRange.FormCreate + 0001:0012AEA0 TORfrmDateRange.FormDestroy + 0001:00127100 TORfrmDtTm.calSelectChange + 0001:001276FC TORfrmDtTm.cmdCancelClick + 0001:001274F4 TORfrmDtTm.cmdMidnightClick + 0001:00127454 TORfrmDtTm.cmdNowClick + 0001:00127528 TORfrmDtTm.cmdOKClick + 0001:00127278 TORfrmDtTm.cmdTodayClick + 0001:001270C0 TORfrmDtTm.FormCreate + 0001:00127208 TORfrmDtTm.imgNextMonthClick + 0001:001271C0 TORfrmDtTm.imgNextMonthMouseDown + 0001:00127250 TORfrmDtTm.imgNextMonthMouseUp + 0001:001271E8 TORfrmDtTm.imgPrevMonthClick + 0001:00127198 TORfrmDtTm.imgPrevMonthMouseDown + 0001:00127228 TORfrmDtTm.imgPrevMonthMouseUp + 0001:0012732C TORfrmDtTm.lstHourClick + 0001:00127370 TORfrmDtTm.lstMinuteClick + 0001:001272DC TORfrmDtTm.txtTimeChange + 0001:000F9610 TORListBox.AdjustScrollBar + 0001:000FAB70 TORListBox.Clear + 0001:000F9BC4 TORListBox.ClearTop + 0001:000F7F08 TORListBox.Click + 0001:000F7744 TORListBox.CMFontChanged + 0001:000F7EAC TORListBox.CMHintShow + 0001:000F83EC TORListBox.CNDrawItem + 0001:000F6E10 TORListBox.Create + 0001:000F6F54 TORListBox.CreateParams + 0001:000F9670 TORListBox.CreateScrollBar + 0001:000F6F68 TORListBox.CreateWnd + 0001:000F6F04 TORListBox.Destroy + 0001:000F7F88 TORListBox.DestroyItems + 0001:000F6FEC TORListBox.DestroyWnd + 0001:000F7F20 TORListBox.DoChange + 0001:000F7F60 TORListBox.DoEnter + 0001:000F7F68 TORListBox.DoExit + 0001:000F8404 TORListBox.DrawItem + 0001:000F973C TORListBox.ForDataUse + 0001:000F971C TORListBox.FreeScrollBar + 0001:000FAC24 TORListBox.GetCaption + 0001:000FA830 TORListBox.GetChecked + 0001:000FA900 TORListBox.GetCheckedState + 0001:000FA9DC TORListBox.GetCheckedString + 0001:000F71C8 TORListBox.GetDisplayText + 0001:000F8AE8 TORListBox.GetIEN + 0001:000F8728 TORListBox.GetIndexFromY + 0001:000F8D90 TORListBox.GetItemID + 0001:000F8B98 TORListBox.GetItemIEN + 0001:000FAAFC TORListBox.GetMItems + 0001:000FA9B4 TORListBox.GetMultiSelect + 0001:000F93D8 TORListBox.GetPieces + 0001:000FA3EC TORListBox.GetStringIndex + 0001:000F9394 TORListBox.GetStyle + 0001:000F8FBC TORListBox.GetTabPositions + 0001:000F99C0 TORListBox.InitLongList + 0001:000F9B20 TORListBox.InsertSeparator + 0001:000F70F8 TORListBox.IsSynonym + 0001:000F80E4 TORListBox.KeyPress + 0001:000F7444 TORListBox.LBAddString + 0001:000F7628 TORListBox.LBDeleteString + 0001:000F721C TORListBox.LBGetItemData + 0001:000F72D4 TORListBox.LBGetText + 0001:000F73A0 TORListBox.LBGetTextLen + 0001:000F752C TORListBox.LBInsertString + 0001:000F76A0 TORListBox.LBResetContent + 0001:000F772C TORListBox.LBSetCurSel + 0001:000F724C TORListBox.LBSetItemData + 0001:000F6FBC TORListBox.Loaded + 0001:000FAC3C TORListBox.MakeAccessible + 0001:000F8320 TORListBox.MeasureItem + 0001:000F8110 TORListBox.MouseDown + 0001:000F8190 TORListBox.MouseMove + 0001:000F9CE0 TORListBox.NeedData + 0001:000F9FD4 TORListBox.PositionThumb + 0001:000F9414 TORListBox.ResetItems + 0001:000FA070 TORListBox.ScrollTo + 0001:000F8E2C TORListBox.SelectByID + 0001:000F8C48 TORListBox.SelectByIEN + 0001:000FA520 TORListBox.SelectString + 0001:000FAB88 TORListBox.SetCaption + 0001:000FA7D4 TORListBox.SetCheckBoxes + 0001:000FA874 TORListBox.SetChecked + 0001:000FA938 TORListBox.SetCheckedState + 0001:000FAA74 TORListBox.SetCheckedString + 0001:000F93CC TORListBox.SetDelimiter + 0001:000F8CA4 TORListBox.SetExactByIEN + 0001:000FA81C TORListBox.SetFlatCheckBoxes + 0001:000F8798 TORListBox.SetFocusIndex + 0001:000F9240 TORListBox.SetHideSynonyms + 0001:000F95DC TORListBox.SetLongList + 0001:000FAB30 TORListBox.SetMItems + 0001:000FA9BC TORListBox.SetMultiSelect + 0001:000F93F4 TORListBox.SetPieces + 0001:000F8EE8 TORListBox.SetReference + 0001:000F939C TORListBox.SetStyle + 0001:000F9300 TORListBox.SetSynonymChars + 0001:000F9110 TORListBox.SetTabPosInPixels + 0001:000F8FF8 TORListBox.SetTabPositions + 0001:000F9124 TORListBox.SetTabStops + 0001:000F7008 TORListBox.TextToShow + 0001:000F7FF4 TORListBox.ToggleCheckBox + 0001:000F89DC TORListBox.UMShowTip + 0001:00100768 TORListBox.VerifyUnique + 0001:000F7E04 TORListBox.WMCancelMode + 0001:000F83C4 TORListBox.WMDestroy + 0001:000FAD04 TORListBox.WMGetObject + 0001:000F7770 TORListBox.WMKeyDown + 0001:000F7C78 TORListBox.WMLButtonDblClk + 0001:000F791C TORListBox.WMLButtonDown + 0001:000F7B8C TORListBox.WMLButtonUp + 0001:000F7E34 TORListBox.WMMove + 0001:000F7BD0 TORListBox.WMRButtonUp + 0001:000F7E50 TORListBox.WMSize + 0001:000F7E8C TORListBox.WMVScroll + 0001:00122010 TORNotifier.BeginUpdate + 0001:00121F8C TORNotifier.Create + 0001:00121FE0 TORNotifier.Destroy + 0001:00122134 TORNotifier.DoNotify + 0001:00122014 TORNotifier.EndUpdate + 0001:00122114 TORNotifier.GetOnNotify + 0001:00122030 TORNotifier.Notify + 0001:0012205C TORNotifier.Notify + 0001:00122108 TORNotifier.NotifyMethod + 0001:001220B4 TORNotifier.NotifyWhenChanged + 0001:00122084 TORNotifier.NotifyWhenChanged + 0001:001220F8 TORNotifier.RemoveNotify + 0001:001220DC TORNotifier.RemoveNotify + 0001:00122120 TORNotifier.SetOnNotify + 0001:00121DDC TORNotifyList.Add + 0001:00121EDC TORNotifyList.Add + 0001:00121ED4 TORNotifyList.Count + 0001:00121CE0 TORNotifyList.Create + 0001:00121D34 TORNotifyList.Destroy + 0001:00121F10 TORNotifyList.IndexOf + 0001:00121D70 TORNotifyList.IndexOf + 0001:00121E5C TORNotifyList.Notify + 0001:00121E28 TORNotifyList.Remove + 0001:00121F64 TORNotifyList.Remove + 0001:000FD630 TOROffsetLabel.AdjustSizeOfSelf + 0001:000FD61C TOROffsetLabel.CMFontChanged + 0001:000FD608 TOROffsetLabel.CMTextChanged + 0001:000FD5AC TOROffsetLabel.Create + 0001:000FD6BC TOROffsetLabel.DoDrawText + 0001:000FD7E8 TOROffsetLabel.GetTransparent + 0001:000FD75C TOROffsetLabel.Paint + 0001:000FD840 TOROffsetLabel.SetHorzOffset + 0001:000FD7F4 TOROffsetLabel.SetTransparent + 0001:000FD834 TOROffsetLabel.SetVertOffset + 0001:000FD84C TOROffsetLabel.SetWordWrap + 0001:000F6694 TORStaticText.DoEnter + 0001:000F66B8 TORStaticText.DoExit + 0001:001225A8 TORStringList.CaseInsensitiveIndexOfPiece + 0001:00122194 TORStringList.Changed + 0001:00122164 TORStringList.Destroy + 0001:00122360 TORStringList.GetNotifier + 0001:00122218 TORStringList.IndexOfPiece + 0001:00122348 TORStringList.IndexOfPieces + 0001:00122334 TORStringList.IndexOfPieces + 0001:001222D0 TORStringList.IndexOfPieces + 0001:0012239C TORStringList.KillObjects + 0001:001223FC TORStringList.PiecesEqual + 0001:001223E4 TORStringList.PiecesEqual + 0001:001224E0 TORStringList.RemoveDuplicates + 0001:001227E4 TORStringList.SetStrPiece + 0001:00122858 TORStringList.SetStrPiece + 0001:001224CC TORStringList.SortByPiece + 0001:00122778 TORStringList.SortByPieces + 0001:000F66DC TORStrings.Add + 0001:000F6758 TORStrings.Clear + 0001:000F6780 TORStrings.Create + 0001:000F67D8 TORStrings.Delete + 0001:000F6808 TORStrings.Destroy + 0001:000F6838 TORStrings.Get + 0001:000F6858 TORStrings.GetCount + 0001:000F686C TORStrings.GetObject + 0001:000F6888 TORStrings.IndexOf + 0001:000F68A4 TORStrings.Insert + 0001:000F6928 TORStrings.Put + 0001:000F69A8 TORStrings.PutObject + 0001:000F69B8 TORStrings.SetUpdateState + 0001:000F69D0 TORStrings.Verify + 0001:000FD930 TORTreeNode.EnsureVisible + 0001:000FD9BC TORTreeNode.GetORTreeView + 0001:000FD9D4 TORTreeNode.GetParent + 0001:000FD9EC TORTreeNode.GetText + 0001:000FDBC4 TORTreeNode.MakeAccessible + 0001:000FDA00 TORTreeNode.SetBold + 0001:000FDE64 TORTreeNode.SetCaption + 0001:000FDA44 TORTreeNode.SetPiece + 0001:000FDA80 TORTreeNode.SetStringData + 0001:000FDB2C TORTreeNode.SetText + 0001:000FDB34 TORTreeNode.UpdateText + 0001:000FDC88 TORTreeNode.WMGetObject + 0001:000FDF14 TORTreeView.CNNotify + 0001:000FDF94 TORTreeView.Create + 0001:000FDFD0 TORTreeView.CreateNode + 0001:000FE068 TORTreeView.FindPieceNode + 0001:000FE008 TORTreeView.FindPieceNode + 0001:000FE13C TORTreeView.GetExpandedIDStr + 0001:000FE388 TORTreeView.GetHorzScrollPos + 0001:000FE4E4 TORTreeView.GetNodeID + 0001:000FE39C TORTreeView.GetVertScrollPos + 0001:000FE5A8 TORTreeView.MakeAccessible + 0001:000FE3B0 TORTreeView.RenameNodes + 0001:000FE230 TORTreeView.SetExpandedIDStr + 0001:000FE478 TORTreeView.SetHorzScrollPos + 0001:000FE464 TORTreeView.SetNodeDelim + 0001:000FE4A4 TORTreeView.SetNodePiece + 0001:000FE6A8 TORTreeView.SetShortNodeCaptions + 0001:000FE4B8 TORTreeView.SetVertScrollPos + 0001:000FE670 TORTreeView.WMGetObject + 0002:000081B0 totalHeight + 0001:00021294 TOwnedCollection.Create + 0001:000212E8 TOwnedCollection.GetOwner + 0001:0005FEA4 TPageControl.CanShowTab + 0001:0005FED0 TPageControl.Change + 0001:0005FF30 TPageControl.ChangeActivePage + 0001:00060814 TPageControl.CMDesignHitTest + 0001:00060878 TPageControl.CMDialogKey + 0001:000608F8 TPageControl.CMDockClient + 0001:00060A60 TPageControl.CMDockNotification + 0001:00060B4C TPageControl.CMUnDockClient + 0001:0005FD50 TPageControl.Create + 0001:00060094 TPageControl.DeleteTab + 0001:0005FDBC TPageControl.Destroy + 0001:0006010C TPageControl.DoAddDockClient + 0001:0006013C TPageControl.DockOver + 0001:00060194 TPageControl.DoRemoveDockClient + 0001:000601E0 TPageControl.FindNextPage + 0001:000602B4 TPageControl.GetChildren + 0001:00060B94 TPageControl.GetDockClientFromMousePos + 0001:00060304 TPageControl.GetImageIndex + 0001:0006040C TPageControl.GetPage + 0001:00060434 TPageControl.GetPageCount + 0001:000603A0 TPageControl.GetPageFromDockClient + 0001:00060454 TPageControl.GetSiteInfo + 0001:000604A0 TPageControl.InsertPage + 0001:000604D8 TPageControl.InsertTab + 0001:0005FE88 TPageControl.Loaded + 0001:00060554 TPageControl.MoveTab + 0001:00060580 TPageControl.RemovePage + 0001:000605EC TPageControl.SelectNextPage + 0001:00060658 TPageControl.SetActivePage + 0001:00060CFC TPageControl.SetActivePageIndex + 0001:000606F8 TPageControl.SetChildOrder + 0001:00060D40 TPageControl.SetTabIndex + 0001:00060718 TPageControl.ShowControl + 0001:000607CC TPageControl.UpdateActivePage + 0001:00060760 TPageControl.UpdateTab + 0001:0005FE38 TPageControl.UpdateTabHighlights + 0001:00060DA8 TPageControl.WMEraseBkGnd + 0001:00060CB0 TPageControl.WMLButtonDblClk + 0001:00060C58 TPageControl.WMLButtonDown + 0001:0028E218 TPageState.Create + 0001:0028E274 TPageState.Destroy + 0001:00046838 TPaintBox.Create + 0001:000468B0 TPaintBox.Paint + 0001:00114094 TParaAttributes.Assign + 0001:0006AC84 TParaAttributes.Assign + 0001:00113D40 TParaAttributes.Create + 0001:0006A810 TParaAttributes.Create + 0001:0006A954 TParaAttributes.GetAlignment + 0001:00113E30 TParaAttributes.GetAlignment + 0001:0006A888 TParaAttributes.GetAttributes + 0001:00113D98 TParaAttributes.GetAttributes + 0001:0006AA68 TParaAttributes.GetFirstIndent + 0001:00113F04 TParaAttributes.GetFirstIndent + 0001:00113F60 TParaAttributes.GetLeftIndent + 0001:0006AAE4 TParaAttributes.GetLeftIndent + 0001:0006A9C8 TParaAttributes.GetNumbering + 0001:00113E88 TParaAttributes.GetNumbering + 0001:00113FBC TParaAttributes.GetRightIndent + 0001:0006AB60 TParaAttributes.GetRightIndent + 0001:00114018 TParaAttributes.GetTab + 0001:0006ABDC TParaAttributes.GetTab + 0001:0006A860 TParaAttributes.InitPara + 0001:00113D7C TParaAttributes.InitPara + 0001:00113E4C TParaAttributes.SetAlignment + 0001:0006A980 TParaAttributes.SetAlignment + 0001:00113DCC TParaAttributes.SetAttributes + 0001:0006A8D0 TParaAttributes.SetAttributes + 0001:0006AA9C TParaAttributes.SetFirstIndent + 0001:00113F24 TParaAttributes.SetFirstIndent + 0001:00113F80 TParaAttributes.SetLeftIndent + 0001:0006AB18 TParaAttributes.SetLeftIndent + 0001:0006A9F4 TParaAttributes.SetNumbering + 0001:00113EA0 TParaAttributes.SetNumbering + 0001:00113FDC TParaAttributes.SetRightIndent + 0001:0006AB94 TParaAttributes.SetRightIndent + 0001:0006AC18 TParaAttributes.SetTab + 0001:00114040 TParaAttributes.SetTab + 0001:0011C8D8 TParamRecord.Create + 0001:0011C948 TParamRecord.Destroy + 0001:0011C9FC TParams.Assign + 0001:0011CA90 TParams.Clear + 0001:0011C97C TParams.Create + 0001:0011C9C0 TParams.Destroy + 0001:0011CAE0 TParams.GetCount + 0001:0011CAFC TParams.GetParameter + 0001:0037EBF4 TParentEvent.Assign + 0001:0037ED08 TParentEvent.Create + 0001:001AF8B8 TPasswordDialog.AddButtonClick + 0001:001AF814 TPasswordDialog.EditChange + 0001:001AF9FC TPasswordDialog.OKButtonClick + 0001:001AF9CC TPasswordDialog.RemoveAllButtonClick + 0001:001AF948 TPasswordDialog.RemoveButtonClick + 0001:00372D14 TPatient.Clear + 0001:00372DE0 TPatient.GetDateDied + 0001:00372E24 TPatient.SetDFN + 0001:00037F0C TPatternManager.AllocPattern + 0001:00037E60 TPatternManager.Create + 0001:00037FD8 TPatternManager.CreateBitmap + 0001:00037EA4 TPatternManager.Destroy + 0001:000380F8 TPatternManager.FreePatterns + 0001:00037EDC TPatternManager.Lock + 0001:00037EF4 TPatternManager.Unlock + 0001:0034B578 TPCEData.AddStrData + 0001:0034B664 TPCEData.AddVitalData + 0001:0034775C TPCEData.Clear + 0001:00347824 TPCEData.CopyDiagnoses + 0001:0034789C TPCEData.CopyExams + 0001:00347888 TPCEData.CopyHealthFactors + 0001:0034784C TPCEData.CopyImmunizations + 0001:00347874 TPCEData.CopyPatientEds + 0001:0034AC40 TPCEData.CopyPCEData + 0001:0034B978 TPCEData.CopyPCEItems + 0001:00347838 TPCEData.CopyProcedures + 0001:00347860 TPCEData.CopySkinTests + 0001:003474EC TPCEData.Create + 0001:003475D4 TPCEData.Destroy + 0001:0034BA58 TPCEData.Empty + 0001:0034794C TPCEData.GetCPTRequired + 0001:0034B938 TPCEData.GetHasCPTList + 0001:003478B0 TPCEData.GetVisitString + 0001:0034B748 TPCEData.IsSecondaryVisit + 0001:00349768 TPCEData.MarkDeletions + 0001:00349708 TPCEData.MatchItem + 0001:0034AD7C TPCEData.NeededPCEData + 0001:0034B770 TPCEData.NeedProviderInfo + 0001:0034AF7C TPCEData.OK2SignNote + 0001:00347B44 TPCEData.PCEForNote + 0001:0034B6EC TPCEData.PersonClassDate + 0001:00348874 TPCEData.Save + 0001:0034A0A4 TPCEData.SetAORelated + 0001:0034A0F4 TPCEData.SetCVRelated + 0001:00349808 TPCEData.SetDiagnoses + 0001:0034A0C4 TPCEData.SetECRelated + 0001:0034A104 TPCEData.SetEncUseCurr + 0001:00349F1C TPCEData.SetExams + 0001:00349DF4 TPCEData.SetHealthFactors + 0001:0034A0E4 TPCEData.SetHNCRelated + 0001:00349A78 TPCEData.SetImmunizations + 0001:0034A0B4 TPCEData.SetIRRelated + 0001:0034A0D4 TPCEData.SetMSTRelated + 0001:00349CF0 TPCEData.SetPatientEds + 0001:0034993C TPCEData.SetProcedures + 0001:0034A094 TPCEData.SetSCRelated + 0001:00349BDC TPCEData.SetSkinTests + 0001:0034A020 TPCEData.SetVisitType + 0001:0034ABD0 TPCEData.StandAlone + 0001:0034A194 TPCEData.StrDiagnoses + 0001:0034A7A4 TPCEData.StrExams + 0001:0034A6A4 TPCEData.StrHealthFactors + 0001:0034A3A4 TPCEData.StrImmunizations + 0001:0034A5A4 TPCEData.StrPatientEds + 0001:0034A298 TPCEData.StrProcedures + 0001:0034A4A4 TPCEData.StrSkinTests + 0001:0034A93C TPCEData.StrVisitType + 0001:0034AADC TPCEData.StrVisitType + 0001:0034B714 TPCEData.VisitDateTime + 0001:00347108 TPCEDiag.Assign + 0001:00347128 TPCEDiag.Clear + 0001:0034713C TPCEDiag.DelimitedStr + 0001:00347264 TPCEDiag.DelimitedStr2 + 0001:0034735C TPCEDiag.ItemStr + 0001:0034743C TPCEDiag.SetFromString + 0001:00345DDC TPCEExams.Assign + 0001:00345E18 TPCEExams.Clear + 0001:00345E40 TPCEExams.DelimitedStr + 0001:00345EE0 TPCEExams.HasCPTStr + 0001:00345F0C TPCEExams.ItemStr + 0001:00345FA8 TPCEExams.SetFromString + 0001:00346368 TPCEHealth.Assign + 0001:003463A4 TPCEHealth.Clear + 0001:003463CC TPCEHealth.DelimitedStr + 0001:00346474 TPCEHealth.HasCPTStr + 0001:003464A0 TPCEHealth.ItemStr + 0001:0034653C TPCEHealth.SetFromString + 0001:003465BC TPCEImm.Assign + 0001:00346624 TPCEImm.Clear + 0001:00346660 TPCEImm.DelimitedStr + 0001:0034675C TPCEImm.HasCPTStr + 0001:00346788 TPCEImm.ItemStr + 0001:0034688C TPCEImm.SetFromString + 0001:00345B2C TPCEItem.Assign + 0001:00345BB4 TPCEItem.Clear + 0001:00345BF0 TPCEItem.DelimitedStr + 0001:00345A5C TPCEItem.DelimitedStr2 + 0001:00345CF0 TPCEItem.HasCPTStr + 0001:00345CA4 TPCEItem.ItemStr + 0001:00345CB8 TPCEItem.Match + 0001:0034AC20 TPCEItem.MatchProvider + 0001:00345B78 TPCEItem.SetComment + 0001:00345CFC TPCEItem.SetFromString + 0001:00346EBC TPCEPat.Assign + 0001:00346EF8 TPCEPat.Clear + 0001:00346F20 TPCEPat.DelimitedStr + 0001:00346FC0 TPCEPat.HasCPTStr + 0001:00346FEC TPCEPat.ItemStr + 0001:00347088 TPCEPat.SetFromString + 0001:003469A8 TPCEProc.Assign + 0001:003469DC TPCEProc.Clear + 0001:00346A04 TPCEProc.CopyProc + 0001:00346A5C TPCEProc.DelimitedStr + 0001:00346BEC TPCEProc.Empty + 0001:00346CD4 TPCEProc.ItemStr + 0001:00346C28 TPCEProc.ModText + 0001:00346D90 TPCEProc.SetFromString + 0001:0034BB28 TPCEProviderList.Add + 0001:0034BC98 TPCEProviderList.AddProvider + 0001:0034C504 TPCEProviderList.Assign + 0001:0034BD68 TPCEProviderList.Clear + 0001:0034BDC0 TPCEProviderList.Delete + 0001:0034BFFC TPCEProviderList.GetPrimaryIdx + 0001:0034C01C TPCEProviderList.GetProviderData + 0001:0034C124 TPCEProviderList.IndexOfProvider + 0001:0034C17C TPCEProviderList.Merge + 0001:0034BEF4 TPCEProviderList.PCEProvider + 0001:0034BF64 TPCEProviderList.PCEProviderName + 0001:0034C26C TPCEProviderList.PendingIEN + 0001:0034C308 TPCEProviderList.PendingName + 0001:0034C338 TPCEProviderList.PrimaryIEN + 0001:0034C3D4 TPCEProviderList.SetPrimary + 0001:0034C474 TPCEProviderList.SetPrimaryIdx + 0001:00346028 TPCESkin.Assign + 0001:00346084 TPCESkin.Clear + 0001:003460C0 TPCESkin.DelimitedStr + 0001:00346178 TPCESkin.HasCPTStr + 0001:003461A4 TPCESkin.ItemStr + 0001:00346270 TPCESkin.SetFromString + 0001:0002EF68 TPen.Assign + 0001:0002EEE0 TPen.Create + 0001:0002EF34 TPen.Destroy + 0001:0002F0A4 TPen.GetColor + 0001:0002F020 TPen.GetData + 0001:0002F0EC TPen.GetHandle + 0001:0002F1F8 TPen.GetStyle + 0001:0002F240 TPen.GetWidth + 0001:0002F0C0 TPen.SetColor + 0001:0002F050 TPen.SetData + 0001:0002F190 TPen.SetHandle + 0001:0002F1C4 TPen.SetMode + 0001:0002F214 TPen.SetStyle + 0001:0002F25C TPen.SetWidth + 0001:00020480 TPersistent.Assign + 0001:000204AC TPersistent.AssignError + 0001:00020584 TPersistent.AssignTo + 0001:000205A0 TPersistent.DefineProperties + 0001:00020444 TPersistent.Destroy + 0001:000205B0 TPersistent.GetNamePath + 0001:00020668 TPersistent.GetOwner + 0001:00032BFC TPicture.Assign + 0001:00032864 TPicture.AssignTo + 0001:00032C98 TPicture.Changed + 0001:000327DC TPicture.Create + 0001:00032F4C TPicture.DefineProperties + 0001:00032828 TPicture.Destroy + 0001:000328A8 TPicture.ForceType + 0001:00032938 TPicture.GetBitmap + 0001:00032FC4 TPicture.GetHeight + 0001:00032960 TPicture.GetIcon + 0001:00032988 TPicture.GetMetafile + 0001:00032F98 TPicture.GetWidth + 0001:00032A74 TPicture.LoadFromClipboardFormat + 0001:00032BBC TPicture.LoadFromStream + 0001:00032CD4 TPicture.Progress + 0001:00032D14 TPicture.ReadData + 0001:00032C6C TPicture.RegisterFileFormat + 0001:00032B5C TPicture.SaveToClipboardFormat + 0001:00032BDC TPicture.SaveToStream + 0001:000329B0 TPicture.SetGraphic + 0001:00032B94 TPicture.SupportsClipboardFormat + 0001:00032E44 TPicture.WriteData + 0001:00107790 TPictureAdapter.Create + 0001:0010786C TPictureAdapter.GetOlePicture + 0001:00107AB0 TPictureAdapter.SetOlePicture + 0001:001077E0 TPictureAdapter.Update + 0001:001383D4 TPieOtherSlice.Assign + 0001:0013837C TPieOtherSlice.Create + 0001:00138410 TPieOtherSlice.SetStyle + 0001:00138424 TPieOtherSlice.SetText + 0001:00138434 TPieOtherSlice.SetValue + 0001:0013942C TPieSeries.Assign + 0001:0013881C TPieSeries.BelongsToOtherSlice + 0001:00138844 TPieSeries.CalcAngles + 0001:00138688 TPieSeries.CalcClickedPie + 0001:00139200 TPieSeries.CalcExplodeBiggest + 0001:001390E4 TPieSeries.CalcExplodedOffset + 0001:001389A4 TPieSeries.CalcExplodedRadius + 0001:00138570 TPieSeries.CalcXPos + 0001:001385B8 TPieSeries.ClearLists + 0001:00138768 TPieSeries.Clicked + 0001:00138790 TPieSeries.CountLegendItems + 0001:0013844C TPieSeries.Create + 0001:0013850C TPieSeries.Destroy + 0001:001393AC TPieSeries.DisableRotation + 0001:001394A4 TPieSeries.DoBeforeDrawChart + 0001:00138D60 TPieSeries.DrawAllValues + 0001:00138A14 TPieSeries.DrawMark + 0001:00138F3C TPieSeries.DrawPie + 0001:00139270 TPieSeries.DrawValue + 0001:00138620 TPieSeries.FillSampleValues + 0001:0013860C TPieSeries.GalleryChanged3D + 0001:001392EC TPieSeries.GetEditorClass + 0001:0013931C TPieSeries.GetPieValues + 0001:001387CC TPieSeries.LegendToValueIndex + 0001:0013933C TPieSeries.MaxXValue + 0001:00139374 TPieSeries.MaxYValue + 0001:00139358 TPieSeries.MinXValue + 0001:00139390 TPieSeries.MinYValue + 0001:001385B0 TPieSeries.NumSampleValues + 0001:001393D8 TPieSeries.PrepareForGallery + 0001:001385D4 TPieSeries.PrepareLegendCanvas + 0001:0013932C TPieSeries.SetDark3d + 0001:0013923C TPieSeries.SetExplodeBiggest + 0001:00139264 TPieSeries.SetOtherSlice + 0001:00139258 TPieSeries.SetPiePen + 0001:00139324 TPieSeries.SetPieValues + 0001:001392DC TPieSeries.SetUsePatterns + 0001:0013962C TPieSeries.SwapValueIndex + 0001:001B3AA0 TPLFilters.create + 0001:001B3AFC TPLFilters.destroy + 0001:001B3368 TPLPt.Create + 0001:001B3594 TPLPt.GetGMPDFN + 0001:001B3620 TPLPt.Today + 0001:001B36D8 TPLUserParams.Create + 0001:001B3A68 TPLUserParams.Destroy + 0001:0013531C TPointSeries.Assign + 0001:001352C0 TPointSeries.Create + 0001:0013534C TPointSeries.GetEditorClass + 0001:00135380 TPointSeries.PrepareForGallery + 0001:001353D8 TPointSeries.SetColorEachPoint + 0001:000B2254 TPopupList.Add + 0001:000B1C0C TPopupList.MainWndProc + 0001:000B228C TPopupList.Remove + 0001:000B1C60 TPopupList.WndProc + 0001:000B22BC TPopupMenu.Create + 0001:000B2358 TPopupMenu.Destroy + 0001:000B2398 TPopupMenu.DoPopup + 0001:000B23C0 TPopupMenu.GetHelpContext + 0001:000B24CC TPopupMenu.Popup + 0001:000B23F8 TPopupMenu.SetBiDiModeFromPopupControl + 0001:000B23DC TPopupMenu.SetHelpContext + 0001:000B2460 TPopupMenu.UseRightToLeftAlignment + 0001:001C6D74 TPRFActions.Create + 0001:001C6DB8 TPRFActions.Destroy + 0001:001C6DE8 TPRFActions.GetActionIEN + 0001:001C6E50 TPRFActions.GetPRF_IEN + 0001:001C6EC0 TPRFActions.Load + 0001:001C6F60 TPRFActions.SelActionHasNote + 0001:001C6FD4 TPRFActions.ShowActionsOnList + 0001:00240DCC TPRFNotes.create + 0001:00240E10 TPRFNotes.Destroy + 0001:00240E40 TPRFNotes.getNoteIEN + 0001:00240EA8 TPRFNotes.Load + 0001:00240F58 TPRFNotes.ShowActionsOnList + 0001:00041A40 TPrintDialog.Execute + 0001:00041A18 TPrintDialog.SetNumCopies + 0001:0003C0CC TPrinter.BeginDoc + 0001:0003C044 TPrinter.CheckPrinting + 0001:0003BDD0 TPrinter.Create + 0001:0003BE1C TPrinter.Destroy + 0001:0003C170 TPrinter.EndDoc + 0001:0003CC64 TPrinter.FreeFonts + 0001:0003CC0C TPrinter.FreePrinters + 0001:0003C590 TPrinter.GetCanvas + 0001:0003C5C8 TPrinter.GetHandle + 0001:0003C5EC TPrinter.GetNumCopies + 0001:0003C6E8 TPrinter.GetPageHeight + 0001:0003C714 TPrinter.GetPageWidth + 0001:0003C1FC TPrinter.GetPrinter + 0001:0003C740 TPrinter.GetPrinterIndex + 0001:0003C76C TPrinter.GetPrinters + 0001:0003C1BC TPrinter.NewPage + 0001:0003C660 TPrinter.SetNumCopies + 0001:0003C2C0 TPrinter.SetPrinter + 0001:0003C278 TPrinter.SetPrinterCapabilities + 0001:0003BEC4 TPrinter.SetState + 0001:0003C9F4 TPrinter.SetToDefaultPrinter + 0001:0003BD48 TPrinterCanvas.Changing + 0001:0003BCC8 TPrinterCanvas.Create + 0001:0003BD18 TPrinterCanvas.CreateHandle + 0001:0003BD70 TPrinterCanvas.UpdateFont + 0001:0003BACC TPrinterDevice.Create + 0001:0003BB3C TPrinterDevice.IsEqual + 0001:001B48E8 TProbRec.AddNewComment + 0001:001B3B3C TProbRec.Create + 0001:001B4280 TProbRec.CreateFields + 0001:001B414C TProbRec.Destroy + 0001:001B4254 TProbRec.EraseComments + 0001:001B56F0 TProbRec.GetAltFilerObject + 0001:001B4E68 TProbRec.GetAOProblem + 0001:001B48E0 TProbRec.GetCommentCount + 0001:001B4C14 TProbRec.GetCondition + 0001:001B4FA8 TProbRec.GetENVProblem + 0001:001B5484 TProbRec.GetFilerObject + 0001:001B5048 TProbRec.GetHNCProblem + 0001:001B4A08 TProbRec.GetModDatstr + 0001:001B50E8 TProbRec.GetMSTProblem + 0001:001B4B88 TProbRec.GetOnsetDatstr + 0001:001B52A0 TProbRec.GetPriority + 0001:001B4F08 TProbRec.GetRADProblem + 0001:001B541C TProbRec.GetRecDatstr + 0001:001B53B4 TProbRec.GetResDatstr + 0001:001B4BF0 TProbRec.GetSCProblem + 0001:001B5188 TProbRec.GetStatus + 0001:001B4700 TProbRec.LoadComments + 0001:001B451C TProbRec.LoadField + 0001:001B4E8C TProbRec.SetAOProblem + 0001:001B4C2C TProbRec.SetCondition + 0001:001B4A70 TProbRec.SetDateString + 0001:001B4FCC TProbRec.SetENVProblem + 0001:001B506C TProbRec.SetHNCProblem + 0001:001B4A20 TProbRec.SetModDatStr + 0001:001B510C TProbRec.SetMSTProblem + 0001:001B4BA0 TProbRec.SetOnsetDatStr + 0001:001B52B8 TProbRec.SetPriority + 0001:001B4F2C TProbRec.SetRADProblem + 0001:001B5434 TProbRec.SetRecDatStr + 0001:001B53CC TProbRec.SetResDatStr + 0001:001B4DEC TProbRec.SetSCProblem + 0001:001B51A0 TProbRec.SetStatus + 0001:00024278 TPropFixup.Create + 0001:000242EC TPropFixup.MakeGlobalReference + 0001:00024358 TPropFixup.ResolveReference + 0001:0002437C TPropIntfFixup.ResolveReference + 0001:0001A7FC TPublishableVariantType.GetProperty + 0001:0001A878 TPublishableVariantType.SetProperty + 0001:00006CA0 TrackPopupMenu + 0001:0008D83C TRadioButton.CMCtl3DChanged + 0001:0008D854 TRadioButton.CMDialogChar + 0001:0008D8E8 TRadioButton.CNCommand + 0001:0008D530 TRadioButton.Create + 0001:0008D79C TRadioButton.CreateParams + 0001:0008D808 TRadioButton.CreateWnd + 0001:0008D5AC TRadioButton.GetChecked + 0001:0008D5C8 TRadioButton.GetControlsAlignment + 0001:0008D608 TRadioButton.SetAlignment + 0001:0008D708 TRadioButton.SetChecked + 0001:002A14D8 TransferOrders + 0001:0010C9C0 Translate + 0001:0000CE5C TranslateDateFormat + 0001:00006CA8 TranslateMDISysAccel + 0001:00006CB0 TranslateMessage + 0001:00011350 TranslateResult + 0002:00008A48 TransmitFile + 0001:00030B6C TransparentStretchBlt + 0002:00000FC8 TransparentStyles + 0002:00000F60 TransparentStyles + 0001:000BDAAC TraverseClients + 0001:000BDBDC TraverseClients + 0001:000BD8FC TraverseClients + 0001:0009F8BC TraverseControls + 0001:002AAA78 TraverseTree + 0001:000249C0 TReader.CheckValue + 0001:00024A34 TReader.DefineBinaryProperty + 0001:000249F0 TReader.DefineProperty + 0001:00024970 TReader.Destroy + 0001:00024C84 TReader.DoFixupReferences + 0001:00024B14 TReader.EndOfList + 0001:00024B38 TReader.Error + 0001:00026F30 TReader.FindAncestorComponent + 0001:00027064 TReader.FindComponentClass + 0001:00024B70 TReader.FindMethod + 0001:00024DB8 TReader.FlushBuffer + 0001:00024DE8 TReader.FreeFixups + 0001:00024E48 TReader.GetFieldClass + 0001:00024EF8 TReader.GetPosition + 0001:00024F24 TReader.NextValue + 0001:00024F48 TReader.PropertyError + 0001:00024F68 TReader.Read + 0001:00025008 TReader.ReadBoolean + 0001:00024FB4 TReader.ReadBuffer + 0001:00025028 TReader.ReadChar + 0001:0002508C TReader.ReadCollection + 0001:000255B4 TReader.ReadComponent + 0001:000259D0 TReader.ReadCurrency + 0001:000257F0 TReader.ReadData + 0001:00025864 TReader.ReadDataInner + 0001:00025A24 TReader.ReadDate + 0001:00025938 TReader.ReadFloat + 0001:00025A70 TReader.ReadIdent + 0001:00025BEC TReader.ReadInt64 + 0001:00025B7C TReader.ReadInteger + 0001:00025C34 TReader.ReadListBegin + 0001:00025C48 TReader.ReadListEnd + 0001:00025C5C TReader.ReadPrefix + 0001:00025DD4 TReader.ReadProperty + 0001:00026190 TReader.ReadPropValue + 0001:00026518 TReader.ReadRootComponent + 0001:0002684C TReader.ReadSet + 0001:00026914 TReader.ReadSignature + 0001:00025984 TReader.ReadSingle + 0001:00026948 TReader.ReadStr + 0001:00026990 TReader.ReadString + 0001:00026B4C TReader.ReadValue + 0001:00027324 TReader.ReadVariant + 0001:00026A54 TReader.ReadWideString + 0001:00026FF8 TReader.ReferenceName + 0001:00027024 TReader.SetName + 0001:000270FC TReader.SkipBytes + 0001:00026E7C TReader.SkipComponent + 0001:00026E2C TReader.SkipProperty + 0001:00026B6C TReader.SkipSetBody + 0001:00026C90 TReader.SkipValue + 0001:00041E24 TRedirectorWindow.CMRelease + 0001:00041D98 TRedirectorWindow.CreateParams + 0001:00041DCC TRedirectorWindow.WndProc + 0002:00001340 TreeStreamEndFlag + 0001:00063F24 TreeViewError + 0001:00039B34 TreeView_CreateDragImage + 0001:000396F4 TreeView_DeleteAllItems + 0001:000396C8 TreeView_DeleteItem + 0001:00039B60 TreeView_EnsureVisible + 0001:0003971C TreeView_Expand + 0001:00039864 TreeView_GetChild + 0001:00039788 TreeView_GetCount + 0001:0003999C TreeView_GetDropHilite + 0001:00039AE0 TreeView_GetEditControl + 0001:00039904 TreeView_GetFirstVisible + 0001:000397B0 TreeView_GetIndent + 0001:00039A88 TreeView_GetItem + 0001:0003974C TreeView_GetItemRect + 0001:00039834 TreeView_GetNextItem + 0001:0003988C TreeView_GetNextSibling + 0001:00039928 TreeView_GetNextVisible + 0001:000398DC TreeView_GetParent + 0001:000398B4 TreeView_GetPrevSibling + 0001:00039950 TreeView_GetPrevVisible + 0001:000399C0 TreeView_GetRoot + 0001:00039978 TreeView_GetSelection + 0001:00039B08 TreeView_HitTest + 0001:0003969C TreeView_InsertItem + 0001:000399E0 TreeView_Select + 0001:00039A38 TreeView_SelectDropTarget + 0001:00039A10 TreeView_SelectItem + 0001:00039A60 TreeView_SelectSetFirstVisible + 0001:00039BBC TreeView_SetBkColor + 0001:00039804 TreeView_SetImageList + 0001:000397D8 TreeView_SetIndent + 0001:00039AB4 TreeView_SetItem + 0001:00039BE8 TreeView_SetTextColor + 0001:00039B8C TreeView_SortChildrenCB + 0001:0001DC7C TRegGroup.AddClass + 0001:0001DC9C TRegGroup.BestClass + 0001:0001DD10 TRegGroup.BestGroup + 0001:0001DDA4 TRegGroup.Create + 0001:0001DE2C TRegGroup.Destroy + 0001:0001DE80 TRegGroup.GetClass + 0001:0001DF04 TRegGroup.InGroup + 0001:0001DF5C TRegGroup.RegisterClass + 0001:0001E008 TRegGroup.Registered + 0001:0001E060 TRegGroup.UnregisterModuleClasses + 0001:0001E13C TRegGroups.Activate + 0001:0001E1A4 TRegGroups.Create + 0001:0001E230 TRegGroups.Destroy + 0001:0001E2AC TRegGroups.FindGroup + 0001:0001E310 TRegGroups.GetClass + 0001:0001E408 TRegGroups.GroupWith + 0001:0001E4EC TRegGroups.Lock + 0001:0001E504 TRegGroups.RegisterClass + 0001:0001E534 TRegGroups.Registered + 0001:0001E58C TRegGroups.StartGroup + 0001:0001E5F8 TRegGroups.Unlock + 0001:0001E610 TRegGroups.UnregisterModuleClasses + 0001:0004F0C8 TRegistry.ChangeKey + 0001:0004F034 TRegistry.CloseKey + 0001:0004EFA0 TRegistry.Create + 0001:0004F44C TRegistry.DeleteValue + 0001:0004EFF8 TRegistry.Destroy + 0001:0004F0FC TRegistry.GetBaseKey + 0001:0004F840 TRegistry.GetData + 0001:0004F5E4 TRegistry.GetDataInfo + 0001:0004F640 TRegistry.GetDataSize + 0001:0004F47C TRegistry.GetKeyInfo + 0001:0004F510 TRegistry.GetValueNames + 0001:0004F134 TRegistry.OpenKey + 0001:0004F26C TRegistry.OpenKeyReadOnly + 0001:0004F7D0 TRegistry.PutData + 0001:0004F76C TRegistry.ReadBool + 0001:0004F790 TRegistry.ReadDateTime + 0001:0004F734 TRegistry.ReadInteger + 0001:0004F6A8 TRegistry.ReadString + 0001:0004F080 TRegistry.SetRootKey + 0001:0004F8C0 TRegistry.ValueExists + 0001:0004F674 TRegistry.WriteString + 0001:002E8D50 TRemData.Add2PN + 0001:002E97AC TRemData.AddData + 0001:002E9A70 TRemData.DataType + 0001:002E9AC8 TRemData.Destroy + 0001:002E9B44 TRemData.DisplayWHResults + 0001:002E9BB8 TRemData.InternalValue + 0001:002E9BD4 TRemData.Narrative + 0001:002E1B78 TRemDlgElement.Add2PN + 0001:002E799C TRemDlgElement.AddData + 0001:002E7724 TRemDlgElement.AddText + 0001:002E1C90 TRemDlgElement.Box + 0001:002E1CFC TRemDlgElement.BoxCaption + 0001:002E6DC0 TRemDlgElement.BuildControls + 0001:002E347C TRemDlgElement.cbClicked + 0001:002E7BDC TRemDlgElement.Check4ChildrenSharedPrompts + 0001:002E1D2C TRemDlgElement.ChildrenIndent + 0001:002E1D84 TRemDlgElement.ChildrenRequired + 0001:002E1E30 TRemDlgElement.ChildrenSharePrompts + 0001:002E897C TRemDlgElement.Create + 0001:002E1E9C TRemDlgElement.Destroy + 0001:002E1EEC TRemDlgElement.ElemType + 0001:002E3588 TRemDlgElement.EnableChildren + 0001:002E35B8 TRemDlgElement.Enabled + 0001:002E89B8 TRemDlgElement.EntryID + 0001:002E8A44 TRemDlgElement.FieldPanelChange + 0001:002E8C9C TRemDlgElement.FieldPanelEntered + 0001:002E8CDC TRemDlgElement.FieldPanelExited + 0001:002E8D1C TRemDlgElement.FieldPanelKeyPress + 0001:002E8D44 TRemDlgElement.FieldPanelLabelOnClick + 0001:002E8D30 TRemDlgElement.FieldPanelOnClick + 0001:002E1F78 TRemDlgElement.FindingType + 0001:002E7F18 TRemDlgElement.FinishProblems + 0001:002E20D8 TRemDlgElement.GetData + 0001:002E8B38 TRemDlgElement.GetFieldValues + 0001:002E74A0 TRemDlgElement.GetTemplateFieldValues + 0001:002E1FA8 TRemDlgElement.HideChildren + 0001:002E2014 TRemDlgElement.Historical + 0001:002E8748 TRemDlgElement.IncludeMHTestInPN + 0001:002E2080 TRemDlgElement.Indent + 0001:002E86AC TRemDlgElement.IndentChildrenInPN + 0001:002E8718 TRemDlgElement.IndentPNLevel + 0001:002E867C TRemDlgElement.IsChecked + 0001:002E3600 TRemDlgElement.ParentCBEnter + 0001:002E361C TRemDlgElement.ParentCBExit + 0001:002E87B4 TRemDlgElement.ResultDlgID + 0001:002E32B4 TRemDlgElement.SetChecked + 0001:002E35CC TRemDlgElement.ShowChildren + 0001:002E880C TRemDlgElement.SubCommentChange + 0001:002E3430 TRemDlgElement.TrueIndent + 0001:002E2238 TRemDlgElement.UpdateData + 0001:002E18C4 TReminder.Create + 0001:002E1940 TReminder.GetDueDateStr + 0001:002E195C TReminder.GetIEN + 0001:002E19C0 TReminder.GetLastDateStr + 0001:002E19DC TReminder.GetPrintName + 0001:002E19F8 TReminder.GetPriority + 0001:002E1A54 TReminder.GetStatus + 0001:002E141C TReminderDialog.AddData + 0001:002E1308 TReminderDialog.AddText + 0001:002E0B14 TReminderDialog.BaseCreate + 0001:002E16E4 TReminderDialog.BeginNeedRedraw + 0001:002E1684 TReminderDialog.BeginTextChanged + 0001:002E11A4 TReminderDialog.BuildControls + 0001:002E1488 TReminderDialog.ComboBoxCheckedText + 0001:002E1880 TReminderDialog.ComboBoxResized + 0001:002E0E74 TReminderDialog.Create + 0001:002E0EF0 TReminderDialog.Destroy + 0001:002E16E8 TReminderDialog.EndNeedRedraw + 0001:002E1688 TReminderDialog.EndTextChanged + 0001:002E170C TReminderDialog.FinishProblems + 0001:002E10A0 TReminderDialog.GetDlgSL + 0001:002E16AC TReminderDialog.GetIEN + 0001:002E16C8 TReminderDialog.GetPrintName + 0001:002E0F94 TReminderDialog.Processing + 0001:002E18B4 TReminderDialog.Visible + 0001:00374ACC TRemoteReport.Create + 0001:00374B54 TRemoteReport.Destroy + 0001:00374C18 TRemoteReportList.Add + 0001:00374B88 TRemoteReportList.Create + 0001:00374BDC TRemoteReportList.Destroy + 0001:003748D0 TRemoteSite.Create + 0001:00374A18 TRemoteSite.Destroy + 0001:00374A90 TRemoteSite.LabClear + 0001:00374A70 TRemoteSite.ReportClear + 0001:00374AB0 TRemoteSite.SetSelected + 0001:00374D50 TRemoteSiteList.Add + 0001:00374E24 TRemoteSiteList.ChangePatient + 0001:00374DC4 TRemoteSiteList.Clear + 0001:00374CB8 TRemoteSiteList.Create + 0001:00374D0C TRemoteSiteList.Destroy + 0001:002ED9E0 TRemPCERoot.Destroy + 0001:002EDA1C TRemPCERoot.Done + 0001:002EDAB0 TRemPCERoot.GetRoot + 0001:002EDCE0 TRemPCERoot.GetValue + 0001:002EDD6C TRemPCERoot.Sync + 0001:002EE180 TRemPCERoot.UnSync + 0001:002E9BF0 TRemPrompt.Add2PN + 0001:002EBD1C TRemPrompt.CanShare + 0001:002E9CB8 TRemPrompt.Caption + 0001:002EAD20 TRemPrompt.ComboBoxKeyDown + 0001:002E9CF4 TRemPrompt.Create + 0001:002EBE14 TRemPrompt.Destroy + 0001:002ED55C TRemPrompt.DoMHTest + 0001:002ED2D0 TRemPrompt.DoWHReport + 0001:002ED968 TRemPrompt.EditKeyPress + 0001:002E9D18 TRemPrompt.Forced + 0001:002ECE84 TRemPrompt.ForcedCaption + 0001:002ED90C TRemPrompt.GAFHelp + 0001:002EC09C TRemPrompt.GetValue + 0001:002ECC40 TRemPrompt.InitValue + 0001:002E9D84 TRemPrompt.InternalValue + 0001:002EAF7C TRemPrompt.NoteText + 0001:002E9EA8 TRemPrompt.PromptChange + 0001:002EAD70 TRemPrompt.PromptOK + 0001:002EAE28 TRemPrompt.PromptType + 0001:002EBE44 TRemPrompt.RemDataActive + 0001:002EBF64 TRemPrompt.RemDataChoiceActive + 0001:002EAE8C TRemPrompt.Required + 0001:002EAF10 TRemPrompt.SameLine + 0001:002EC294 TRemPrompt.SetValue + 0001:002ECBC0 TRemPrompt.SetValueFromParent + 0001:002ED3EC TRemPrompt.ViewWHText + 0001:002ED050 TRemPrompt.VitalType + 0001:002ED190 TRemPrompt.VitalUnitValue + 0001:002ED278 TRemPrompt.VitalValue + 0001:002ED0AC TRemPrompt.VitalVerify + 0001:00042600 TReplaceDialog.Create + 0001:0002DC5C TResourceManager.AllocResource + 0001:0002DEB0 TResourceManager.AssignResource + 0001:0002DE2C TResourceManager.ChangeResource + 0001:0002DBA8 TResourceManager.Create + 0001:0002DBFC TResourceManager.Destroy + 0001:0002DD60 TResourceManager.FreeResource + 0001:0002DC2C TResourceManager.Lock + 0001:0002DC44 TResourceManager.Unlock + 0001:00023EBC TResourceStream.Create + 0001:00023F1C TResourceStream.CreateFromID + 0001:00024070 TResourceStream.Destroy + 0001:00023FE4 TResourceStream.Initialize + 0001:000240B8 TResourceStream.Write + 0001:00299A14 TResponses.AppendChildren + 0001:00298F6C TResponses.BuildOCItems + 0001:00298C04 TResponses.Clear + 0001:00298B8C TResponses.Clear + 0001:00298A64 TResponses.Create + 0001:00298AF8 TResponses.Destroy + 0001:002992A8 TResponses.EValueFor + 0001:002999AC TResponses.FindPromptByIEN + 0001:002995D8 TResponses.FindResponseByIEN + 0001:00299408 TResponses.FindResponseByName + 0001:00299650 TResponses.FormatResponse + 0001:0029C824 TResponses.GetIENForPrompt + 0001:00299B78 TResponses.GetOrderText + 0001:00299484 TResponses.IENForPrompt + 0001:002994EC TResponses.InstanceCount + 0001:00299328 TResponses.IValueFor + 0001:0029954C TResponses.NextInstance + 0001:00299F50 TResponses.OrderCRC + 0001:002993A8 TResponses.PromptExists + 0001:0029A0CC TResponses.Remove + 0001:0029A1BC TResponses.SaveOrder + 0001:0029A10C TResponses.SaveQuickOrder + 0001:0029AB34 TResponses.SetControl + 0001:00298D28 TResponses.SetCopyOrder + 0001:00298C74 TResponses.SetDialog + 0001:00298DD4 TResponses.SetEditOrder + 0001:0029AEF0 TResponses.SetEventDelay + 0001:0029AFE4 TResponses.SetPromptFormat + 0001:00298E6C TResponses.SetQuickOrder + 0001:00298EE4 TResponses.SetQuickOrderByID + 0001:00299EC0 TResponses.Update + 0001:00114294 TRichEditStrings.AddStrings + 0001:0006AED8 TRichEditStrings.AddStrings + 0001:0006B360 TRichEditStrings.Clear + 0001:00114634 TRichEditStrings.Clear + 0001:0006B298 TRichEditStrings.Delete + 0001:00114588 TRichEditStrings.Delete + 0001:0006AE9C TRichEditStrings.Destroy + 0001:00114264 TRichEditStrings.Destroy + 0001:00114694 TRichEditStrings.EnableChange + 0001:0006B3DC TRichEditStrings.EnableChange + 0001:0006AFC8 TRichEditStrings.Get + 0001:00114364 TRichEditStrings.Get + 0001:0011430C TRichEditStrings.GetCount + 0001:0006AF5C TRichEditStrings.GetCount + 0001:00114444 TRichEditStrings.Insert + 0001:0006B0E4 TRichEditStrings.Insert + 0001:0006B8F0 TRichEditStrings.LoadFromFile + 0001:00114B3C TRichEditStrings.LoadFromFile + 0001:001148C8 TRichEditStrings.LoadFromStream + 0001:0006B65C TRichEditStrings.LoadFromStream + 0001:0006B040 TRichEditStrings.Put + 0001:001143B8 TRichEditStrings.Put + 0001:0006BA1C TRichEditStrings.SaveToFile + 0001:00114C44 TRichEditStrings.SaveToFile + 0001:0006B7D4 TRichEditStrings.SaveToStream + 0001:00114A2C TRichEditStrings.SaveToStream + 0001:0006B450 TRichEditStrings.SetTextStr + 0001:001146F0 TRichEditStrings.SetTextStr + 0001:0006B378 TRichEditStrings.SetUpdateState + 0001:00114644 TRichEditStrings.SetUpdateState + 0001:002404D8 TriggerPRFPopUp + 0001:00008584 Trim + 0001:00100DB4 TrimFormatCount + 0001:000085F8 TrimLeft + 0001:000F00E8 TrimPunctuation + 0001:00008648 TrimRight + 0001:00143478 TRowObject.Add + 0001:00143518 TRowObject.Clear + 0001:00143408 TRowObject.Create + 0001:00143448 TRowObject.Destroy + 0001:0011E938 Trpcb + 0001:0011D138 TRPCBroker.Call + 0001:0011CB60 TRPCBroker.Create + 0001:0011CEBC TRPCBroker.CreateContext + 0001:0011CE24 TRPCBroker.Destroy + 0001:0011E488 TRPCBroker.DoPulseOnTimer + 0001:0011D130 TRPCBroker.Loaded + 0001:0011D1B0 TRPCBroker.lstCall + 0001:0011D800 TRPCBroker.pchCall + 0001:0011D734 TRPCBroker.SetClearParameters + 0001:0011D754 TRPCBroker.SetClearResults + 0001:0011D1F0 TRPCBroker.SetConnected + 0001:0011E654 TRPCBroker.SetKernelLogIn + 0001:0011D774 TRPCBroker.SetResults + 0001:0011D784 TRPCBroker.SetRPCTimeLimit + 0001:0011D7AC TRPCBroker.SetServer + 0001:0011E65C TRPCBroker.SetUser + 0001:0011D1D0 TRPCBroker.strCall + 0001:001171B4 TrpcConfig.butCancelClick + 0001:001170FC TrpcConfig.butOkClick + 0001:00116B10 TrpcConfig.cboServerClick + 0001:00117278 TrpcConfig.cboServerExit + 0001:00116CFC TrpcConfig.FormClose + 0001:00116C18 TrpcConfig.FormCreate + 0001:00117240 TrpcConfig.FormDestroy + 0001:0011727C TrpcConfig.NewClick + 0001:001164F8 TRPCFRM1.WndProc + 0001:00116524 TRPCFRM1.XWBGHIP + 0002:00005790 TrueBoolStrs + 0001:000D5D90 TryDrawSeries + 0001:0000AC88 TryEncodeDate + 0001:0000AB20 TryEncodeTime + 0001:000CA698 TryFindResource + 0001:0000110C TryHarder + 0001:001AD248 TryStrToBcd + 0001:00008FB8 TryStrToBool + 0001:0000AAB4 TryStrToCurr + 0001:0000C8C0 TryStrToDate + 0001:0000C9B8 TryStrToDateTime + 0001:0000AA44 TryStrToFloat + 0001:0000AA7C TryStrToFloat + 0001:0000AA1C TryStrToFloat + 0001:00008DFC TryStrToInt + 0001:00008EA4 TryStrToInt64 + 0001:001AA6B4 TryStrToSQLTimeStamp + 0001:0000C93C TryStrToTime + 0001:00040F3C TSaveDialog.Execute + 0001:000BEC30 TScreen.AddDataModule + 0001:000BEB88 TScreen.AddForm + 0001:000BF9D0 TScreen.AlignForm + 0001:000BF948 TScreen.AlignForms + 0001:000BE6C0 TScreen.Create + 0001:000BEC70 TScreen.CreateCursors + 0001:000BED78 TScreen.DeleteCursor + 0001:000BE864 TScreen.Destroy + 0001:000BECE4 TScreen.DestroyCursors + 0001:000BF460 TScreen.DisableAlign + 0001:000BF474 TScreen.EnableAlign + 0001:000BEDF4 TScreen.FindMonitor + 0001:000BF17C TScreen.GetCursors + 0001:000BEAEC TScreen.GetCustomFormCount + 0001:000BEAC8 TScreen.GetCustomForms + 0001:000BF13C TScreen.GetDataModule + 0001:000BF160 TScreen.GetDataModuleCount + 0001:000BF0B8 TScreen.GetDefaultIME + 0001:000BE9EC TScreen.GetDesktopHeight + 0001:000BE9CC TScreen.GetDesktopLeft + 0001:000BE9AC TScreen.GetDesktopTop + 0001:000BEA0C TScreen.GetDesktopWidth + 0001:000BEA88 TScreen.GetForm + 0001:000BEAAC TScreen.GetFormCount + 0001:000BE96C TScreen.GetHeight + 0001:000BEE98 TScreen.GetImes + 0001:000BF2F8 TScreen.GetMetricSettings + 0001:000BEA2C TScreen.GetMonitor + 0001:000BEA50 TScreen.GetMonitorCount + 0001:000BE98C TScreen.GetWidth + 0001:000BFD80 TScreen.GetWorkAreaHeight + 0001:000BFDA4 TScreen.GetWorkAreaRect + 0001:000BFDC4 TScreen.GetWorkAreaWidth + 0001:000BF0E0 TScreen.IconFontChanged + 0001:000BEE50 TScreen.InsertCursor + 0001:000BFDE8 TScreen.MonitorFromPoint + 0001:000BF4AC TScreen.Realign + 0001:000BEC50 TScreen.RemoveDataModule + 0001:000BEBD0 TScreen.RemoveForm + 0001:000BFA58 TScreen.ResetFonts + 0001:000BF1D8 TScreen.SetCursor + 0001:000BF294 TScreen.SetCursors + 0001:000BEB08 TScreen.UpdateLastActive + 0001:00090384 TScrollBar.Change + 0001:000905A0 TScrollBar.CNCtlColorScrollBar + 0001:00090568 TScrollBar.CNHScroll + 0001:00090584 TScrollBar.CNVScroll + 0001:0008FE00 TScrollBar.Create + 0001:0008FEE4 TScrollBar.CreateParams + 0001:0008FF88 TScrollBar.CreateWnd + 0001:000903F4 TScrollBar.DoScroll + 0001:00090058 TScrollBar.NotRightToLeft + 0001:000903B8 TScrollBar.Scroll + 0001:0009008C TScrollBar.SetKind + 0001:00090354 TScrollBar.SetMax + 0001:00090324 TScrollBar.SetMin + 0001:000902B4 TScrollBar.SetPageSize + 0001:000900F0 TScrollBar.SetParams + 0001:00090284 TScrollBar.SetPosition + 0001:000905DC TScrollBar.WMEraseBkgnd + 0001:000B7E70 TScrollBox.CMCtl3DChanged + 0001:000B7D3C TScrollBox.Create + 0001:000B7DB8 TScrollBox.CreateParams + 0001:000B7E20 TScrollBox.SetBorderStyle + 0001:000B7E54 TScrollBox.WMNCHitTest + 0001:000B7C24 TScrollingWinControl.AdjustClientRect + 0001:000B7428 TScrollingWinControl.AlignControls + 0001:000B7454 TScrollingWinControl.AutoScrollEnabled + 0001:000B779C TScrollingWinControl.AutoScrollInView + 0001:000B75CC TScrollingWinControl.CalcAutoRange + 0001:000B7A68 TScrollingWinControl.ChangeScale + 0001:000B7CAC TScrollingWinControl.CMBiDiModeChanged + 0001:000B72D0 TScrollingWinControl.Create + 0001:000B73BC TScrollingWinControl.CreateParams + 0001:000B73E0 TScrollingWinControl.CreateWnd + 0001:000B736C TScrollingWinControl.Destroy + 0001:000B7490 TScrollingWinControl.DoFlipChildren + 0001:000B7A98 TScrollingWinControl.Resizing + 0001:000B7978 TScrollingWinControl.ScaleScrollBars + 0001:000B77D0 TScrollingWinControl.ScrollInView + 0001:000B7600 TScrollingWinControl.SetAutoScroll + 0001:000B765C TScrollingWinControl.SetHorzScrollBar + 0001:000B7680 TScrollingWinControl.SetVertScrollBar + 0001:000B76A4 TScrollingWinControl.UpdateScrollBars + 0001:000B7B94 TScrollingWinControl.WMHScroll + 0001:000B7AA8 TScrollingWinControl.WMSize + 0001:000B7BDC TScrollingWinControl.WMVScroll + 0001:0011260C TSelDivForm.btnCancelClick + 0001:00112614 TSelDivForm.btnHelpClick + 0001:00112558 TSelDivForm.btnOKClick + 0001:00112528 TSelDivForm.Enter + 0001:001126E0 TSelDivForm.FormCreate + 0001:000D0AD0 TSeriesMarkPosition.Assign + 0001:000D0B04 TSeriesMarkPosition.Bounds + 0001:000D12F4 TSeriesMarks.Assign + 0001:000D1434 TSeriesMarks.ClearPositions + 0001:000D1258 TSeriesMarks.Create + 0001:000D1464 TSeriesMarks.Destroy + 0001:000D1680 TSeriesMarks.Draw + 0001:000D1364 TSeriesMarks.IsFontStored + 0001:000D1390 TSeriesMarks.SetArrow + 0001:000D139C TSeriesMarks.SetArrowLength + 0001:000D13AC TSeriesMarks.SetBackColor + 0001:000D13BC TSeriesMarks.SetBackTransparent + 0001:000D14D4 TSeriesMarks.SetClip + 0001:000D14B0 TSeriesMarks.SetFont + 0001:000D1384 TSeriesMarks.SetFrame + 0001:000D14C0 TSeriesMarks.SetStyle + 0001:000D1374 TSeriesMarks.SetVisible + 0001:000D13CC TSeriesMarks.UsePosition + 0001:000D122C TSeriesMarksPositions.GetPosition + 0001:00133B50 TSeriesPointer.Assign + 0001:00133394 TSeriesPointer.CalcHorizMargins + 0001:001333C8 TSeriesPointer.CalcVerticalMargins + 0001:001332C0 TSeriesPointer.CheckPointerSize + 0001:001331E4 TSeriesPointer.Create + 0001:00133270 TSeriesPointer.Destroy + 0001:00133B24 TSeriesPointer.Draw + 0001:00133BBC TSeriesPointer.DrawLegendShape + 0001:001336EC TSeriesPointer.DrawPointer + 0001:0013341C TSeriesPointer.PrepareCanvas + 0001:001332B4 TSeriesPointer.SetBooleanProperty + 0001:00133370 TSeriesPointer.SetBrush + 0001:0013337C TSeriesPointer.SetDark3D + 0001:00133388 TSeriesPointer.SetDraw3D + 0001:00133318 TSeriesPointer.SetHorizSize + 0001:00133338 TSeriesPointer.SetInflateMargins + 0001:001332A8 TSeriesPointer.SetIntegerProperty + 0001:00133364 TSeriesPointer.SetPen + 0001:00133408 TSeriesPointer.SetStyle + 0001:00133344 TSeriesPointer.SetVertSize + 0001:001333FC TSeriesPointer.SetVisible + 0001:0010613C TServerEventDispatch.Create + 0001:00106290 TServerEventDispatch.GetIDsOfNames + 0001:00106274 TServerEventDispatch.GetTypeInfo + 0001:0010625C TServerEventDispatch.GetTypeInfoCount + 0001:001062A4 TServerEventDispatch.Invoke + 0001:0010618C TServerEventDispatch.QueryInterface + 0001:00106498 TServerEventDispatch.ServerDisconnect + 0001:001061FC TServerEventDispatch._AddRef + 0001:0010622C TServerEventDispatch._Release + 0001:00046508 TShape.Create + 0001:000465D8 TShape.Destroy + 0001:00046628 TShape.Paint + 0001:000467BC TShape.SetBrush + 0001:000467E0 TShape.SetPen + 0001:00046804 TShape.SetShape + 0001:000467A4 TShape.StyleChanged + 0001:00034A28 TSharedImage.Reference + 0001:00034A38 TSharedImage.Release + 0001:000A8D54 TShortCutList.Add + 0001:000A8D90 TShortCutList.IndexOfShortCut + 0001:001D9F24 TSigItems.Add + 0001:001DAFF4 TSigItems.cbClicked + 0001:001DB280 TSigItems.cbEnter + 0001:001DB2D0 TSigItems.cbExit + 0001:001D9FC4 TSigItems.Clear + 0001:001D9CD4 TSigItems.CopyCB + 0001:001DBB24 TSigItems.CopyCBValues + 0001:001D9FDC TSigItems.Create + 0001:001DA094 TSigItems.Destroy + 0001:001DBA68 TSigItems.DisplayPlTreatmentFactors + 0001:001DB5B4 TSigItems.EnableSettings + 0001:001D9C84 TSigItems.FindCB + 0001:001DBC58 TSigItems.FindCBValues + 0001:001D9C80 TSigItems.GetSigItems + 0001:001DBCA8 TSigItems.GetTempCkBxState + 0001:001DA10C TSigItems.ItemToTag + 0001:001DB2F0 TSigItems.lbDrawItem + 0001:001DB568 TSigItems.Notification + 0001:001DB6B8 TSigItems.OK2SaveSettings + 0001:001DA0CC TSigItems.ResetOrders + 0001:001DB87C TSigItems.SaveSettings + 0001:001D9D5C TSigItems.SetSigItems + 0001:001DA138 TSigItems.TagInfo + 0001:001DA148 TSigItems.TagToItem + 0001:001DA21C TSigItems.UpdateListBox + 0001:001194B4 TSignonConfiguration.Create + 0001:00118C00 TSignonConfiguration.FontDialog + 0001:00118B38 TSignonConfiguration.IntroBackColor + 0001:00118464 TSignonConfiguration.ReadRegistrySettings + 0001:00118EA8 TSignonConfiguration.ResetToDefaults + 0001:001188F0 TSignonConfiguration.ShowModal + 0001:00119520 TSignonConfiguration.UpdateWindow + 0001:00119078 TSignonConfiguration.UserClickedOK + 0001:00119628 TSignonValues.Clear + 0001:001196A8 TSignonValues.Create + 0001:001196EC TSignonValues.Destroy + 0001:00119964 TSignonValues.SetEqual + 0001:00119A20 TSignonValues.SetFont + 0001:00119884 TSignonValues.SetIntroFont + 0001:00119924 TSignonValues.SetIntroFontStyles + 0001:001197D0 TSignonValues.SetPosition + 0001:0011971C TSignonValues.SetSize + 0001:00119AC0 TSignonValues.SetTextColor + 0001:0009498C TSiteList.AddSite + 0001:000949F0 TSiteList.Clear + 0001:000948F8 TSiteList.Find + 0001:00094A38 TSiteList.GetTopSite + 0001:0009688C TSizeConstraints.AssignTo + 0001:00096A14 TSizeConstraints.Change + 0001:0009683C TSizeConstraints.Create + 0001:000968F4 TSizeConstraints.SetConstraints + 0001:00369044 TSizeHolder.AddSizesToStrList + 0001:00369100 TSizeHolder.Create + 0001:00369154 TSizeHolder.Destroy + 0001:0036918C TSizeHolder.GetSize + 0001:00369268 TSizeHolder.SetSize + 0001:000FD23C TSizeRatio.Create + 0001:0012303C TSizeRatio.Create + 0001:000EC554 TSparseList.Clear + 0001:000EC4D0 TSparseList.Create + 0001:000EC584 TSparseList.Delete + 0001:000EC518 TSparseList.Destroy + 0001:000EC5FC TSparseList.Exchange + 0001:000EC644 TSparseList.ForAll + 0001:000EC650 TSparseList.Get + 0001:000EC6C8 TSparseList.Insert + 0001:000EC798 TSparseList.Move + 0001:000EC7DC TSparseList.NewList + 0001:000EC80C TSparseList.Put + 0001:000EC0F0 TSparsePointerArray.Create + 0001:000EC18C TSparsePointerArray.Destroy + 0001:000EC3C4 TSparsePointerArray.ForAll + 0001:000EC218 TSparsePointerArray.GetAt + 0001:000EC2B0 TSparsePointerArray.MakeAt + 0001:000EC37C TSparsePointerArray.PutAt + 0001:000EC4A4 TSparsePointerArray.ResetHighBound + 0001:0004DD60 TSpeedButton.ActionChange + 0001:0004D5BC TSpeedButton.Click + 0001:0004D9E4 TSpeedButton.CMButtonPressed + 0001:0004DA84 TSpeedButton.CMDialogChar + 0001:0004D9A0 TSpeedButton.CMEnabledChanged + 0001:0004DB34 TSpeedButton.CMFontChanged + 0001:0004DB9C TSpeedButton.CMMouseEnter + 0001:0004DC34 TSpeedButton.CMMouseLeave + 0001:0004DB64 TSpeedButton.CMSysColorChange + 0001:0004DB4C TSpeedButton.CMTextChanged + 0001:0004CC98 TSpeedButton.Create + 0001:0004CD7C TSpeedButton.Destroy + 0001:0004D5F0 TSpeedButton.GetActionLinkClass + 0001:0004D608 TSpeedButton.GetGlyph + 0001:0004D654 TSpeedButton.GetNumGlyphs + 0001:0004D5D0 TSpeedButton.GetPalette + 0001:0004D6C4 TSpeedButton.GlyphChanged + 0001:0004D334 TSpeedButton.Loaded + 0001:0004D370 TSpeedButton.MouseDown + 0001:0004D3D8 TSpeedButton.MouseMove + 0001:0004D498 TSpeedButton.MouseUp + 0001:0004CDC4 TSpeedButton.Paint + 0001:0004D934 TSpeedButton.SetAllowAllUp + 0001:0004D72C TSpeedButton.SetDown + 0001:0004D7C8 TSpeedButton.SetFlat + 0001:0004D628 TSpeedButton.SetGlyph + 0001:0004D7FC TSpeedButton.SetGroupIndex + 0001:0004D830 TSpeedButton.SetLayout + 0001:0004D864 TSpeedButton.SetMargin + 0001:0004D674 TSpeedButton.SetNumGlyphs + 0001:0004D89C TSpeedButton.SetSpacing + 0001:0004D8D0 TSpeedButton.SetTransparent + 0001:0004D6DC TSpeedButton.UpdateExclusive + 0001:0004D2B8 TSpeedButton.UpdateTracking + 0001:0004D968 TSpeedButton.WMLButtonDblClk + 0001:0004CB64 TSpeedButtonActionLink.AssignClient + 0001:0004CB94 TSpeedButtonActionLink.IsCheckedLinked + 0001:0004CBFC TSpeedButtonActionLink.IsGroupIndexLinked + 0001:0004CC40 TSpeedButtonActionLink.SetChecked + 0001:0004CC6C TSpeedButtonActionLink.SetGroupIndex + 0001:00048D5C TSplitter.AllocateLineDC + 0001:0004966C TSplitter.CalcSplitSize + 0001:00049244 TSplitter.CanResize + 0001:00048C84 TSplitter.Create + 0001:00048D1C TSplitter.Destroy + 0001:000491F4 TSplitter.DoCanResize + 0001:00048DF8 TSplitter.DrawLine + 0001:00048EFC TSplitter.FindControl + 0001:00049900 TSplitter.FocusKeyDown + 0001:00049284 TSplitter.MouseDown + 0001:000497D0 TSplitter.MouseMove + 0001:00049898 TSplitter.MouseUp + 0001:0004905C TSplitter.Paint + 0001:00048E8C TSplitter.ReleaseLineDC + 0001:00049010 TSplitter.RequestAlign + 0001:00049958 TSplitter.SetBeveled + 0001:00049980 TSplitter.StopSizing + 0001:000494B4 TSplitter.UpdateControlSize + 0001:0004979C TSplitter.UpdateSize + 0001:001A9D14 TSQLTimeStampData.AdjustDate + 0001:001A9B84 TSQLTimeStampData.AdjustDays + 0001:001A9C00 TSQLTimeStampData.AdjustHours + 0001:001A9C5C TSQLTimeStampData.AdjustMinutes + 0001:001A9B34 TSQLTimeStampData.AdjustMonths + 0001:001A9CB8 TSQLTimeStampData.AdjustSeconds + 0001:001A9ECC TSQLTimeStampData.Compare + 0001:001AA11C TSQLTimeStampData.Create + 0001:001AA17C TSQLTimeStampData.Create + 0001:001AA058 TSQLTimeStampData.Create + 0001:001AA0BC TSQLTimeStampData.Create + 0001:001A9D9C TSQLTimeStampData.DaysInMonth + 0001:001A9E44 TSQLTimeStampData.DoAdd + 0001:001A9DC8 TSQLTimeStampData.DoSubtract + 0001:001A9FDC TSQLTimeStampData.GetAsDateTime + 0001:001A9FBC TSQLTimeStampData.GetAsString + 0001:001A9B14 TSQLTimeStampData.GetIsBlank + 0001:001AA028 TSQLTimeStampData.SetAsDateTime + 0001:001A9FFC TSQLTimeStampData.SetAsString + 0001:001AA1C8 TSQLTimeStampData.SetDay + 0001:001AA1E4 TSQLTimeStampData.SetFractions + 0001:001AA200 TSQLTimeStampData.SetHour + 0001:001AA21C TSQLTimeStampData.SetMinute + 0001:001AA238 TSQLTimeStampData.SetMonth + 0001:001AA254 TSQLTimeStampData.SetSecond + 0001:001AA270 TSQLTimeStampData.SetYear + 0001:001AA59C TSQLTimeStampVariantType.BinaryOp + 0001:001AA2B0 TSQLTimeStampVariantType.Cast + 0001:001AA3E0 TSQLTimeStampVariantType.CastTo + 0001:001AA28C TSQLTimeStampVariantType.Clear + 0001:001AA5EC TSQLTimeStampVariantType.Compare + 0001:001AA520 TSQLTimeStampVariantType.Copy + 0001:001AA580 TSQLTimeStampVariantType.GetInstance + 0001:00038BA4 TStack.PushItem + 0001:00051560 TStaticListAction.Create + 0001:000515D8 TStaticListAction.Destroy + 0001:00051618 TStaticListAction.GetCount + 0001:0005163C TStaticListAction.GetItem + 0001:000516C0 TStaticListAction.GetItemClass + 0001:000516D8 TStaticListAction.GetString + 0001:00051708 TStaticListAction.SetListitems + 0001:0005172C TStaticListAction.SetString + 0001:000511F0 TStaticListItems.Notify + 0001:000513F8 TStaticListItems.Update + 0001:0007EF58 TStatusBar.GetOnDrawPanel + 0001:0007EF80 TStatusBar.SetOnDrawPanel + 0001:00060E54 TStatusPanel.Assign + 0001:00060DEC TStatusPanel.Create + 0001:00060FF4 TStatusPanel.GetDisplayName + 0001:00060F04 TStatusPanel.IsBiDiModeStored + 0001:00060F4C TStatusPanel.ParentBiDiModeChanged + 0001:00061028 TStatusPanel.SetAlignment + 0001:00061058 TStatusPanel.SetBevel + 0001:00060ECC TStatusPanel.SetBiDiMode + 0001:00060F20 TStatusPanel.SetParentBiDiMode + 0001:00061088 TStatusPanel.SetStyle + 0001:000610B8 TStatusPanel.SetText + 0001:000610F0 TStatusPanel.SetWidth + 0001:00060FC4 TStatusPanel.UseRightToLeftAlignment + 0001:00060F94 TStatusPanel.UseRightToLeftReading + 0001:00061194 TStatusPanels.Add + 0001:00061120 TStatusPanels.Create + 0001:000611B0 TStatusPanels.GetItem + 0001:000611D4 TStatusPanels.GetOwner + 0001:000611F0 TStatusPanels.Update + 0001:00023634 TStream.CopyFrom + 0001:00023348 TStream.GetPosition + 0001:0002338C TStream.GetSize + 0001:000235A4 TStream.ReadBuffer + 0001:0002372C TStream.ReadComponent + 0001:00023534 TStream.Seek + 0001:000234A8 TStream.Seek + 0001:00023370 TStream.SetPosition + 0001:00023404 TStream.SetSize + 0001:000233D8 TStream.SetSize + 0001:000233E8 TStream.SetSize64 + 0001:000235EC TStream.WriteBuffer + 0001:00023790 TStream.WriteComponent + 0001:000237B0 TStream.WriteDescendent + 0001:0002BBA4 TStreamAdapter.Clone + 0001:0002BAB4 TStreamAdapter.Commit + 0001:0002B890 TStreamAdapter.CopyTo + 0001:0002B5F0 TStreamAdapter.Create + 0001:0002B648 TStreamAdapter.Destroy + 0001:0002BADC TStreamAdapter.LockRegion + 0001:0002B698 TStreamAdapter.Read + 0001:0002BAC8 TStreamAdapter.Revert + 0001:0002B790 TStreamAdapter.Seek + 0001:0002B820 TStreamAdapter.SetSize + 0001:0002BB04 TStreamAdapter.Stat + 0001:0002BAF0 TStreamAdapter.UnlockRegion + 0001:0002B714 TStreamAdapter.Write + 0001:000ED3FC TStringGrid.ColumnMoved + 0001:000ED2A4 TStringGrid.Create + 0001:000ED314 TStringGrid.Destroy + 0001:000ED638 TStringGrid.DisableEditUpdate + 0001:000ED58C TStringGrid.DrawCell + 0001:000ED64C TStringGrid.EnableEditUpdate + 0001:000ED7B8 TStringGrid.EnsureColRow + 0001:000ED840 TStringGrid.EnsureDataRow + 0001:000ED8AC TStringGrid.GetCells + 0001:000ED478 TStringGrid.GetEditText + 0001:000ED8F8 TStringGrid.GetObjects + 0001:000ED940 TStringGrid.GetRows + 0001:000ED660 TStringGrid.Initialize + 0001:000ED438 TStringGrid.RowMoved + 0001:000ED964 TStringGrid.SetCells + 0001:000ED4CC TStringGrid.SetEditText + 0001:000ED9BC TStringGrid.SetObjects + 0001:000EDA14 TStringGrid.SetRows + 0001:000ED70C TStringGrid.SetUpdateState + 0001:000ED74C TStringGrid.Update + 0001:000ECEF8 TStringGridStrings.Add + 0001:000ECD84 TStringGridStrings.Assign + 0001:000ECE90 TStringGridStrings.CalcXY + 0001:000ECFF0 TStringGridStrings.Clear + 0001:000ECD2C TStringGridStrings.Create + 0001:000ED078 TStringGridStrings.Delete + 0001:000ED0D0 TStringGridStrings.Get + 0001:000ED11C TStringGridStrings.GetCount + 0001:000ED168 TStringGridStrings.GetObject + 0001:000ED1B0 TStringGridStrings.Insert + 0001:000ED20C TStringGridStrings.Put + 0001:000ED248 TStringGridStrings.PutObject + 0001:000ED284 TStringGridStrings.SetUpdateState + 0001:00022A20 TStringList.Add + 0001:00022A48 TStringList.AddObject + 0001:00022AC0 TStringList.Changed + 0001:00022AEC TStringList.Changing + 0001:00022B18 TStringList.Clear + 0001:00023308 TStringList.CompareStrings + 0001:000232B8 TStringList.CustomSort + 0001:00022B6C TStringList.Delete + 0001:000229A4 TStringList.Destroy + 0001:00022C0C TStringList.Exchange + 0001:00022C88 TStringList.ExchangeItems + 0001:00022CF4 TStringList.Find + 0001:00022D8C TStringList.Get + 0001:00022DD8 TStringList.GetCapacity + 0001:00022DF4 TStringList.GetCount + 0001:00022E10 TStringList.GetObject + 0001:00022E58 TStringList.Grow + 0001:00022EB0 TStringList.IndexOf + 0001:00022EFC TStringList.Insert + 0001:00022F8C TStringList.InsertItem + 0001:00022F24 TStringList.InsertObject + 0001:00023034 TStringList.Put + 0001:000230AC TStringList.PutObject + 0001:00023108 TStringList.QuickSort + 0001:000231CC TStringList.SetCapacity + 0001:000231F8 TStringList.SetSorted + 0001:00023230 TStringList.SetUpdateState + 0001:0002329C TStringList.Sort + 0001:00021340 TStrings.Add + 0001:00021370 TStrings.AddObject + 0001:000213C0 TStrings.AddStrings + 0001:000213A4 TStrings.Append + 0001:00021480 TStrings.Assign + 0001:00021524 TStrings.BeginUpdate + 0001:00022920 TStrings.CompareStrings + 0001:000215A8 TStrings.DefineProperties + 0001:00021304 TStrings.Destroy + 0001:000215F4 TStrings.EndUpdate + 0001:00021618 TStrings.Equals + 0001:000216D4 TStrings.Error + 0001:00021714 TStrings.Error + 0001:00021774 TStrings.Exchange + 0001:00021860 TStrings.ExtractName + 0001:000218F0 TStrings.GetCapacity + 0001:0002190C TStrings.GetCommaText + 0001:00021994 TStrings.GetDelimitedText + 0001:00022860 TStrings.GetDelimiter + 0001:00021B9C TStrings.GetName + 0001:00022944 TStrings.GetNameValueSeparator + 0001:00021C00 TStrings.GetObject + 0001:0002288C TStrings.GetQuoteChar + 0001:00021C18 TStrings.GetText + 0001:00021C74 TStrings.GetTextStr + 0001:00021DBC TStrings.GetValue + 0001:00021E50 TStrings.IndexOf + 0001:00021EDC TStrings.IndexOfName + 0001:00021FB8 TStrings.IndexOfObject + 0001:00022004 TStrings.InsertObject + 0001:00022038 TStrings.LoadFromFile + 0001:00022094 TStrings.LoadFromStream + 0001:00022148 TStrings.Move + 0001:00022204 TStrings.Put + 0001:00022244 TStrings.PutObject + 0001:00022258 TStrings.ReadData + 0001:00022308 TStrings.SaveToFile + 0001:00022368 TStrings.SaveToStream + 0001:000223C8 TStrings.SetCapacity + 0001:000223D8 TStrings.SetCommaText + 0001:000226E8 TStrings.SetDelimitedText + 0001:000228B8 TStrings.SetDelimiter + 0001:00022970 TStrings.SetNameValueSeparator + 0001:000228EC TStrings.SetQuoteChar + 0001:00022408 TStrings.SetStringsAdapter + 0001:00022454 TStrings.SetText + 0001:000224AC TStrings.SetTextStr + 0001:0002258C TStrings.SetUpdateState + 0001:0002259C TStrings.SetValue + 0001:0002265C TStrings.WriteData + 0001:000ECC14 TStringSparseList.Changed + 0001:000ECCFC TStringSparseList.Clear + 0001:000EC898 TStringSparseList.Create + 0001:000ECA50 TStringSparseList.DefineProperties + 0001:000ECC38 TStringSparseList.Delete + 0001:000EC8F4 TStringSparseList.Destroy + 0001:000ECC80 TStringSparseList.Exchange + 0001:000ECA94 TStringSparseList.Get + 0001:000ECAD8 TStringSparseList.GetCount + 0001:000ECAF4 TStringSparseList.GetObject + 0001:000ECCA4 TStringSparseList.Insert + 0001:000ECB30 TStringSparseList.Put + 0001:000ECBB8 TStringSparseList.PutObject + 0001:000EC938 TStringSparseList.ReadData + 0001:000ECA10 TStringSparseList.WriteData + 0001:0006E550 TSubItems.Add + 0001:0006E58C TSubItems.AddObject + 0001:0006E5D0 TSubItems.Clear + 0001:0006E4B4 TSubItems.Create + 0001:0006E5F0 TSubItems.Delete + 0001:0006E514 TSubItems.Destroy + 0001:0006E624 TSubItems.GetHandle + 0001:0006E794 TSubItems.GetImageIndex + 0001:0006E6A4 TSubItems.Insert + 0001:0006E704 TSubItems.Put + 0001:0006E734 TSubItems.RefreshItem + 0001:0006E648 TSubItems.SetColumnWidth + 0001:0006E7B8 TSubItems.SetImageIndex + 0001:0006E770 TSubItems.SetUpdateState + 0001:000D8DA8 TSubtractTeeFunction.CalculateValue + 0001:001C1E1C TSurgeryTitles.Create + 0001:001C1E60 TSurgeryTitles.Destroy + 0001:0003D128 TSynchroObject.Acquire + 0001:0003D134 TSynchroObject.Release + 0001:0005FAC8 TTabSheet.CMShowingChanged + 0001:0005FA98 TTabSheet.CMTextChanged + 0001:0005F5FC TTabSheet.Create + 0001:0005F7FC TTabSheet.CreateParams + 0001:0005F684 TTabSheet.Destroy + 0001:0005F6F8 TTabSheet.DoHide + 0001:0005F724 TTabSheet.DoShow + 0001:0005F750 TTabSheet.GetPageIndex + 0001:0005F790 TTabSheet.GetTabIndex + 0001:0005F82C TTabSheet.ReadState + 0001:0005FB80 TTabSheet.SetHighlighted + 0001:0005F86C TTabSheet.SetImageIndex + 0001:0005F8B4 TTabSheet.SetPageControl + 0001:0005F90C TTabSheet.SetPageIndex + 0001:0005F9C8 TTabSheet.SetTabShowing + 0001:0005FA34 TTabSheet.SetTabVisible + 0001:0005FA68 TTabSheet.UpdateTabShowing + 0001:0005FBD4 TTabSheet.WMNCPaint + 0001:0005FCF4 TTabSheet.WMPrintClient + 0001:0005DE4C TTabStrings.Clear + 0001:0005DEC8 TTabStrings.Delete + 0001:0005DF6C TTabStrings.Get + 0001:0005E070 TTabStrings.GetCount + 0001:0005E0A0 TTabStrings.GetObject + 0001:0005E2F0 TTabStrings.Insert + 0001:0005E14C TTabStrings.Put + 0001:0005E244 TTabStrings.PutObject + 0001:0005E3E8 TTabStrings.SetUpdateState + 0001:000C41BC TTeeCanvas.AssignVisiblePen + 0001:000C42C4 TTeeCanvas.FontHeight + 0001:000C414C TTeeCanvas.ResetState + 0001:000C412C TTeeCanvas.SetCanvas + 0001:000C427C TTeeCanvas.TextHeight + 0001:000C4234 TTeeCanvas.TextWidth + 0001:000C6300 TTeeCanvas3D.Arc + 0001:000C78EC TTeeCanvas3D.Arrow + 0001:000C4660 TTeeCanvas3D.Calc3DPoint + 0001:000C47B8 TTeeCanvas3D.Calc3DPos + 0001:000C460C TTeeCanvas3D.Calc3DTPoint + 0001:000C4618 TTeeCanvas3D.Calc3DTPoint3D + 0001:000C468C TTeeCanvas3D.Calculate2DPosition + 0001:000C462C TTeeCanvas3D.Calculate3DPosition + 0001:000C4C4C TTeeCanvas3D.ClipCube + 0001:000C4C40 TTeeCanvas3D.ClipRectangle + 0001:000C4904 TTeeCanvas3D.Cone + 0001:000C42F8 TTeeCanvas3D.Create + 0001:000C5A90 TTeeCanvas3D.Cube + 0001:000C710C TTeeCanvas3D.Cylinder + 0001:000C4360 TTeeCanvas3D.DeleteBitmap + 0001:000C4374 TTeeCanvas3D.Destroy + 0001:000C4B74 TTeeCanvas3D.DoHorizLine + 0001:000C4514 TTeeCanvas3D.DoRectangle + 0001:000C4BAC TTeeCanvas3D.DoVertLine + 0001:000C52CC TTeeCanvas3D.Draw + 0001:000C6020 TTeeCanvas3D.Ellipse + 0001:000C604C TTeeCanvas3D.EllipseWithZ + 0001:000C58C4 TTeeCanvas3D.EraseBackground + 0001:000C58D8 TTeeCanvas3D.FillRect + 0001:000C58FC TTeeCanvas3D.Frame3D + 0001:000C5DF8 TTeeCanvas3D.FrontPlaneBegin + 0001:000C5E0C TTeeCanvas3D.FrontPlaneEnd + 0001:000C43F0 TTeeCanvas3D.GetBackColor + 0001:000C43A0 TTeeCanvas3D.GetBackMode + 0001:000C48F8 TTeeCanvas3D.GetHandle + 0001:000C75F8 TTeeCanvas3D.GetMonochrome + 0001:000C75A8 TTeeCanvas3D.GetSupports3DText + 0001:000C75AC TTeeCanvas3D.GetSupportsFullRotation + 0001:000C75B0 TTeeCanvas3D.GetTextAlign + 0001:000C75C4 TTeeCanvas3D.GetUseBuffer + 0001:000C5784 TTeeCanvas3D.GradientFill + 0001:000C7630 TTeeCanvas3D.HorizLine3D + 0001:000C503C TTeeCanvas3D.InitWindow + 0001:000C6A6C TTeeCanvas3D.InternalCylinder + 0001:000C5E1C TTeeCanvas3D.Invalidate + 0001:000C5F54 TTeeCanvas3D.Line + 0001:000C44F4 TTeeCanvas3D.LineTo + 0001:000C4ACC TTeeCanvas3D.LineTo3D + 0001:000C5F88 TTeeCanvas3D.LineWithZ + 0001:000C44D4 TTeeCanvas3D.MoveTo + 0001:000C4A8C TTeeCanvas3D.MoveTo3D + 0001:000C633C TTeeCanvas3D.Pie + 0001:000C64FC TTeeCanvas3D.Pie3D + 0001:000C699C TTeeCanvas3D.Plane3D + 0001:000C74C4 TTeeCanvas3D.PlaneFour3D + 0001:000C4558 TTeeCanvas3D.PlaneWithZ + 0001:000C5FE8 TTeeCanvas3D.Polygon + 0001:000C453C TTeeCanvas3D.PolygonFour + 0001:000C6008 TTeeCanvas3D.PolygonWithZ + 0001:000C4E28 TTeeCanvas3D.Projection + 0001:000C718C TTeeCanvas3D.Pyramid + 0001:000C445C TTeeCanvas3D.Rectangle + 0001:000C4B0C TTeeCanvas3D.RectangleWithZ + 0001:000C5D8C TTeeCanvas3D.RectangleY + 0001:000C5D1C TTeeCanvas3D.RectangleZ + 0001:000C5250 TTeeCanvas3D.ReDrawBitmap + 0001:000C5E64 TTeeCanvas3D.RotateLabel + 0001:000C5E24 TTeeCanvas3D.RotateLabel3D + 0001:000C4488 TTeeCanvas3D.RoundRect + 0001:000C43D0 TTeeCanvas3D.SetBackColor + 0001:000C43B4 TTeeCanvas3D.SetBackMode + 0001:000C7600 TTeeCanvas3D.SetMonochrome + 0001:000C62D4 TTeeCanvas3D.SetPixel + 0001:000C7538 TTeeCanvas3D.SetPixel3D + 0001:000C44BC TTeeCanvas3D.SetTextAlign + 0001:000C75CC TTeeCanvas3D.SetUseBuffer + 0001:000C5270 TTeeCanvas3D.ShowImage + 0001:000C4934 TTeeCanvas3D.Sphere + 0001:000C52B0 TTeeCanvas3D.StretchDraw + 0001:000C4974 TTeeCanvas3D.Surface3D + 0001:000C4404 TTeeCanvas3D.TextOut + 0001:000C497C TTeeCanvas3D.TextOut3D + 0001:000C51F8 TTeeCanvas3D.TransferBitmap + 0001:000C7784 TTeeCanvas3D.Triangle3D + 0001:000C781C TTeeCanvas3D.TriangleWithZ + 0001:000C4E1C TTeeCanvas3D.UnClipRectangle + 0001:000C76A0 TTeeCanvas3D.VertLine3D + 0001:000C770C TTeeCanvas3D.ZLine3D + 0001:000D1D68 TTeeFunction.AddFunctionXY + 0001:000D1EF4 TTeeFunction.AddPoints + 0001:000D1FE0 TTeeFunction.Assign + 0001:000D1920 TTeeFunction.Calculate + 0001:000D19B0 TTeeFunction.CalculateAllPoints + 0001:000D1B88 TTeeFunction.CalculateByPeriod + 0001:000D1FCC TTeeFunction.CalculateMany + 0001:000D1B44 TTeeFunction.CalculatePeriod + 0001:000D18BC TTeeFunction.Create + 0001:000D20BC TTeeFunction.GetParentComponent + 0001:000D20CC TTeeFunction.HasParent + 0001:000D1908 TTeeFunction.ReCalculate + 0001:000D20C0 TTeeFunction.SetParentComponent + 0001:000D1FA8 TTeeFunction.SetParentSeries + 0001:000D2014 TTeeFunction.SetPeriod + 0001:000D209C TTeeFunction.SetPeriodAlign + 0001:000D20AC TTeeFunction.SetPeriodStyle + 0001:000D1938 TTeeFunction.ValueList + 0001:000DEA78 TTeeSeriesTypes.GetSeriesType + 0001:002D4658 TTemplate.AddChild + 0001:002D4F68 TTemplate.AddNode + 0001:002D7050 TTemplate.AssignFileLink + 0001:002D7284 TTemplate.AutoLock + 0001:002D55BC TTemplate.BackupItems + 0001:002D6414 TTemplate.CanExportXML + 0001:002D6D04 TTemplate.CanModify + 0001:002D59C8 TTemplate.Changed + 0001:002D58B8 TTemplate.ClearBackup + 0001:002D5034 TTemplate.Clone + 0001:002D7178 TTemplate.COMObjectText + 0001:002D3B50 TTemplate.Create + 0001:002D4168 TTemplate.CreateFromXML + 0001:002D4600 TTemplate.Destroy + 0001:002D6180 TTemplate.DialogProperties + 0001:002D60AC TTemplate.DlgID + 0001:002D73F8 TTemplate.ExecuteReminderDialog + 0001:002D4AFC TTemplate.FullBoilerplate + 0001:002D4810 TTemplate.GetBoilerplate + 0001:002D4790 TTemplate.GetChildren + 0001:002D5D6C TTemplate.GetDescription + 0001:002D63C0 TTemplate.GetDialogAborted + 0001:002D46DC TTemplate.GetItems + 0001:002D474C TTemplate.GetTemplateType + 0001:002D4CB0 TTemplate.GetText + 0001:002D63E8 TTemplate.IsDialog + 0001:002D6F18 TTemplate.IsLocked + 0001:002D4930 TTemplate.ItemBoilerplate + 0001:002D54E0 TTemplate.ItemIENs + 0001:002D7334 TTemplate.LinkIEN + 0001:002D7360 TTemplate.LinkName + 0001:002D72C4 TTemplate.LinkType + 0001:002D6CB4 TTemplate.ReminderDialogIEN + 0001:002D7ED8 TTemplate.ReminderWipe + 0001:002D4690 TTemplate.RemoveChild + 0001:002D4FF0 TTemplate.RemoveNode + 0001:002D5634 TTemplate.SetActive + 0001:002D4BFC TTemplate.SetBoilerplate + 0001:002D6F58 TTemplate.SetCOMObject + 0001:002D6FD8 TTemplate.SetCOMParam + 0001:002D5CEC TTemplate.SetDescription + 0001:002D56FC TTemplate.SetDialog + 0001:002D5E54 TTemplate.SetDisplayOnly + 0001:002D5698 TTemplate.SetExclude + 0001:002D7158 TTemplate.SetFileLink + 0001:002D5EB8 TTemplate.SetFirstLine + 0001:002D5760 TTemplate.SetGap + 0001:002D6048 TTemplate.SetHideDlgItems + 0001:002D5F1C TTemplate.SetHideItems + 0001:002D5F80 TTemplate.SetIndentItems + 0001:002D6EB4 TTemplate.SetLock + 0001:002D5FE4 TTemplate.SetOneItemOnly + 0001:002D4E94 TTemplate.SetPersonalOwner + 0001:002D57C4 TTemplate.SetPrintName + 0001:002D5834 TTemplate.SetRealType + 0001:002D6BC4 TTemplate.SetReminderDialog + 0001:002D5580 TTemplate.SortChildren + 0001:002D5158 TTemplate.TrueClone + 0001:002D6E7C TTemplate.Unlock + 0001:002D6918 TTemplate.UpdateImportedFieldNames + 0001:002D6E3C TTemplate.ValidID + 0001:00141440 TTemplateDialogEntry.Create + 0001:001417E8 TTemplateDialogEntry.Destroy + 0001:00141854 TTemplateDialogEntry.DoChange + 0001:001419A0 TTemplateDialogEntry.GetControlText + 0001:00141F88 TTemplateDialogEntry.GetFieldValues + 0001:001421DC TTemplateDialogEntry.GetPanel + 0001:001425D0 TTemplateDialogEntry.GetText + 0001:001425E8 TTemplateDialogEntry.KillLabels + 0001:00142648 TTemplateDialogEntry.SetAutoDestroyOnPanelFree + 0001:0014268C TTemplateDialogEntry.SetControlText + 0001:0014297C TTemplateDialogEntry.SetFieldValues + 0001:00142A88 TTemplateDialogEntry.UpDownChange + 0001:001410DC TTemplateField.Assign + 0001:001405AC TTemplateField.CanModify + 0001:0013F49C TTemplateField.Create + 0001:0013FC40 TTemplateField.CreateDialogControls + 0001:00141288 TTemplateField.Destroy + 0001:001413DC TTemplateField.GetRequired + 0001:0013FA70 TTemplateField.GetTemplateFieldDefault + 0001:001412D8 TTemplateField.NewField + 0001:001408A8 TTemplateField.SaveError + 0001:001413F0 TTemplateField.SetDateType + 0001:00140690 TTemplateField.SetEditDefault + 0001:001406BC TTemplateField.SetFldName + 0001:001406EC TTemplateField.SetFldType + 0001:001407C0 TTemplateField.SetInactive + 0001:00141308 TTemplateField.SetIncrement + 0001:00141324 TTemplateField.SetIndent + 0001:001407DC TTemplateField.SetItemDefault + 0001:00140808 TTemplateField.SetItems + 0001:00140834 TTemplateField.SetLMText + 0001:00140860 TTemplateField.SetMaxLen + 0001:00141340 TTemplateField.SetMaxVal + 0001:0014135C TTemplateField.SetMinVal + 0001:0014087C TTemplateField.SetNotes + 0001:00141378 TTemplateField.SetPad + 0001:001412BC TTemplateField.SetRequired + 0001:001412EC TTemplateField.SetSepLines + 0001:00141394 TTemplateField.SetTextLen + 0001:001413B0 TTemplateField.SetURL + 0001:0014117C TTemplateField.Width + 0001:0006A568 TTextAttributes.Assign + 0001:0006A6C4 TTextAttributes.AssignTo + 0001:0006A138 TTextAttributes.Create + 0001:0006A1B8 TTextAttributes.GetAttributes + 0001:0006A260 TTextAttributes.GetCharset + 0001:0006A2B8 TTextAttributes.GetColor + 0001:0006A334 TTextAttributes.GetName + 0001:0006A4E0 TTextAttributes.GetPitch + 0001:0006A478 TTextAttributes.GetSize + 0001:0006A3D0 TTextAttributes.GetStyle + 0001:0006A190 TTextAttributes.InitFormat + 0001:0006A20C TTextAttributes.SetAttributes + 0001:0006A284 TTextAttributes.SetCharset + 0001:0006A2E8 TTextAttributes.SetColor + 0001:0006A360 TTextAttributes.SetName + 0001:0006A524 TTextAttributes.SetPitch + 0001:0006A4A4 TTextAttributes.SetSize + 0001:0006A420 TTextAttributes.SetStyle + 0001:0007FF14 TThemeServices.ApplyThemeChange + 0001:0007FF30 TThemeServices.ContentRect + 0001:0007FD6C TThemeServices.Create + 0001:0007FDCC TThemeServices.Destroy + 0001:0007FEA0 TThemeServices.DoOnThemeChange + 0001:0007FF84 TThemeServices.DrawEdge + 0001:0007FFD4 TThemeServices.DrawElement + 0001:0008001C TThemeServices.DrawIcon + 0001:00080068 TThemeServices.DrawParentBackground + 0001:000800E0 TThemeServices.DrawText + 0001:00080208 TThemeServices.GetElementDetails + 0001:00080148 TThemeServices.GetElementDetails + 0001:00080460 TThemeServices.GetElementDetails + 0001:00080270 TThemeServices.GetElementDetails + 0001:0008053C TThemeServices.GetElementDetails + 0001:000802F0 TThemeServices.GetElementDetails + 0001:0007FE0C TThemeServices.GetTheme + 0001:0007FE6C TThemeServices.GetThemesEnabled + 0001:000809A8 TThemeServices.PaintBorder + 0001:0007FEC4 TThemeServices.UnloadThemeData + 0001:00080B1C TThemeServices.UpdateThemes + 0001:0002A080 TThread.AfterConstruction + 0001:0002A148 TThread.CallOnTerminate + 0001:0002A09C TThread.CheckThreadError + 0001:0002A120 TThread.CheckThreadError + 0001:00029F08 TThread.Create + 0001:00029FF4 TThread.Destroy + 0001:0002A16C TThread.DoTerminate + 0001:0002A384 TThread.Resume + 0001:0002A318 TThread.Suspend + 0001:0002A194 TThread.Synchronize + 0001:0002A2DC TThread.Synchronize + 0001:0002A3BC TThread.Terminate + 0001:0002A3D0 TThread.WaitFor + 0001:000200CC TThreadList.Add + 0001:0001FFE8 TThreadList.Create + 0001:00020050 TThreadList.Destroy + 0001:00020158 TThreadList.LockList + 0001:00020180 TThreadList.Remove + 0001:000201D4 TThreadList.UnlockList + 0001:0000F5B4 TThreadLocalCounter.Delete + 0001:0000F464 TThreadLocalCounter.Destroy + 0001:0000F4E0 TThreadLocalCounter.HashIndex + 0001:0000F504 TThreadLocalCounter.Open + 0001:0000F5D8 TThreadLocalCounter.Recycle + 0001:0004763C TTimer.Create + 0001:000476A8 TTimer.Destroy + 0001:00047820 TTimer.SetEnabled + 0001:0004784C TTimer.SetInterval + 0001:00047878 TTimer.SetOnTimer + 0001:0004789C TTimer.Timer + 0001:0004777C TTimer.UpdateTimer + 0001:000476F4 TTimer.WndProc + 0001:0007965C TToolBar.AdjustControl + 0001:00079768 TToolBar.AlignControls + 0001:00079368 TToolBar.BeginUpdate + 0001:000793FC TToolBar.ButtonIndex + 0001:0007A3F8 TToolBar.CanAutoSize + 0001:0007C2E4 TToolBar.CancelMenu + 0001:0007B6D0 TToolBar.CanvasChanged + 0001:000797B8 TToolBar.ChangeScale + 0001:0007BD5C TToolBar.CheckMenuDropdown + 0001:0007BC78 TToolBar.ClearTempMenu + 0001:0007C1F4 TToolBar.ClickButton + 0001:0007A594 TToolBar.CMColorChanged + 0001:0007A420 TToolBar.CMControlChange + 0001:0007A4B4 TToolBar.CMDialogChar + 0001:0007A56C TToolBar.CMEnabledChanged + 0001:0007C410 TToolBar.CMFontChanged + 0001:0007A5B8 TToolBar.CMParentColorChanged + 0001:0007A61C TToolBar.CMSysFontChanged + 0001:0007A464 TToolBar.CNChar + 0001:0007A640 TToolBar.CNDropDownClosed + 0001:0007A694 TToolBar.CNNotify + 0001:0007A5E8 TToolBar.CNSysKeyDown + 0001:00077358 TToolBar.Create + 0001:00077828 TToolBar.CreateButtons + 0001:00077660 TToolBar.CreateParams + 0001:00077734 TToolBar.CreateWnd + 0001:0007B5D8 TToolBar.CustomDraw + 0001:0007B64C TToolBar.CustomDrawButton + 0001:0007757C TToolBar.Destroy + 0001:00078CE4 TToolBar.DisabledImageListChange + 0001:0007C4A8 TToolBar.DoGetButton + 0001:0007C6B4 TToolBar.DoQueryDelete + 0001:0007C6F4 TToolBar.DoQueryInsert + 0001:0007937C TToolBar.EndUpdate + 0001:0007B428 TToolBar.FindButtonFromAccel + 0001:0007B418 TToolBar.FlipChildren + 0001:00078774 TToolBar.GetButton + 0001:0007879C TToolBar.GetButtonCount + 0001:00077BC4 TToolBar.GetButtonSize + 0001:0007924C TToolBar.GetChildren + 0001:00078DD8 TToolBar.HotImageListChange + 0001:00078BF0 TToolBar.ImageListChange + 0001:0007C254 TToolBar.InitMenu + 0001:00077D4C TToolBar.InsertButton + 0001:000793D8 TToolBar.InternalButtonCount + 0001:0007B4FC TToolBar.IsCustomDrawn + 0001:00079304 TToolBar.Loaded + 0001:00078A3C TToolBar.LoadImages + 0001:000788A4 TToolBar.Notification + 0001:000790E0 TToolBar.RecreateButtons + 0001:0007AF98 TToolBar.RecreateButtonsFromToolbar + 0001:00078340 TToolBar.RefreshButton + 0001:00077E4C TToolBar.RemoveButton + 0001:00079584 TToolBar.ReorderButton + 0001:000779F8 TToolBar.RepositionButton + 0001:00077B40 TToolBar.RepositionButtons + 0001:00079390 TToolBar.ResizeButtons + 0001:0007C734 TToolBar.SaveButtons + 0001:00077CBC TToolBar.SetButtonHeight + 0001:00077D04 TToolBar.SetButtonWidth + 0001:0007C474 TToolBar.SetCustomizable + 0001:00078D18 TToolBar.SetDisabledImageList + 0001:00078D50 TToolBar.SetDisabledImages + 0001:000787F0 TToolBar.SetFlat + 0001:0007C78C TToolBar.SetHideClippedButtons + 0001:00078E0C TToolBar.SetHotImageList + 0001:00078E44 TToolBar.SetHotImages + 0001:00078C24 TToolBar.SetImageList + 0001:00078C5C TToolBar.SetImages + 0001:00078ECC TToolBar.SetIndent + 0001:000787BC TToolBar.SetList + 0001:00078F00 TToolBar.SetMenu + 0001:00078728 TToolBar.SetShowCaptions + 0001:00078824 TToolBar.SetTransparent + 0001:00078860 TToolBar.SetWrapable + 0001:0007C340 TToolBar.TrackMenu + 0001:00078450 TToolBar.UpdateButton + 0001:00078554 TToolBar.UpdateButtons + 0001:0007866C TToolBar.UpdateButtonState + 0001:000786CC TToolBar.UpdateButtonStates + 0001:00078B4C TToolBar.UpdateImages + 0001:00077F08 TToolBar.UpdateItem + 0001:0007812C TToolBar.UpdateItem2 + 0001:0007913C TToolBar.WMCaptureChanged + 0001:000797CC TToolBar.WMEraseBkgnd + 0001:00079800 TToolBar.WMGetDlgCode + 0001:00079828 TToolBar.WMGetText + 0001:00079868 TToolBar.WMGetTextLength + 0001:00079180 TToolBar.WMKeyDown + 0001:000798BC TToolBar.WMNotifyFormat + 0001:0007988C TToolBar.WMSetText + 0001:000798F4 TToolBar.WMSize + 0001:00079938 TToolBar.WMSysChar + 0001:0007C11C TToolBar.WMSysCommand + 0001:00079974 TToolBar.WMWindowPosChanged + 0001:00079A98 TToolBar.WMWindowPosChanging + 0001:0007B1BC TToolBar.WndProc + 0001:0007A19C TToolBar.WrapButtons + 0001:000771F4 TToolButton.ActionChange + 0001:00077284 TToolButton.AssignTo + 0001:00077030 TToolButton.BeginUpdate + 0001:0007711C TToolButton.CheckMenuDropdown + 0001:00076288 TToolButton.Click + 0001:00076B5C TToolButton.CMEnabledChanged + 0001:00076BA4 TToolButton.CMHitTest + 0001:000762F8 TToolButton.CMTextChanged + 0001:00076A98 TToolButton.CMVisibleChanged + 0001:0007609C TToolButton.Create + 0001:00077044 TToolButton.EndUpdate + 0001:0007726C TToolButton.GetActionLinkClass + 0001:000768BC TToolButton.GetButtonState + 0001:00077058 TToolButton.GetIndex + 0001:0007718C TToolButton.IsCheckedStored + 0001:000771C0 TToolButton.IsImageIndexStored + 0001:00077098 TToolButton.IsWidthStored + 0001:00076144 TToolButton.MouseDown + 0001:000761A4 TToolButton.MouseMove + 0001:00076218 TToolButton.MouseUp + 0001:0007629C TToolButton.Notification + 0001:000765D0 TToolButton.Paint + 0001:000770BC TToolButton.RefreshControl + 0001:00076984 TToolButton.SetAutoSize + 0001:00076378 TToolButton.SetBounds + 0001:00076A10 TToolButton.SetButtonState + 0001:00076BE0 TToolButton.SetDown + 0001:00076C60 TToolButton.SetDropdownMenu + 0001:00076C9C TToolButton.SetGrouped + 0001:00076CD4 TToolButton.SetImageIndex + 0001:00076DC0 TToolButton.SetIndeterminate + 0001:00076D64 TToolButton.SetMarked + 0001:00076E2C TToolButton.SetMenuItem + 0001:00076ED8 TToolButton.SetStyle + 0001:00076FEC TToolButton.SetWrap + 0001:000770EC TToolButton.UpdateControl + 0001:000772D4 TToolButton.ValidateContainer + 0001:0007C7C0 TToolButtonActionLink.AssignClient + 0001:0007C7F0 TToolButtonActionLink.IsCheckedLinked + 0001:0007C838 TToolButtonActionLink.IsImageIndexLinked + 0001:0007C884 TToolButtonActionLink.SetChecked + 0001:0007C8B0 TToolButtonActionLink.SetImageIndex + 0001:0003E4BC TToolDockForm.CanResize + 0001:0003E440 TToolDockForm.Create + 0001:0003E494 TToolDockForm.CreateParams + 0001:0003E658 TToolDockForm.DoAddDockClient + 0001:0003E71C TToolDockForm.WMNCCreate + 0001:0003E748 TToolDockForm.WMNCHitTest + 0001:0003E87C TToolDockForm.WMNCLButtonDown + 0001:0003E8D0 TToolDockForm.WMSize + 0001:0003E930 TToolDockForm.WMSysCommand + 0001:0003E3E4 TToolWindow.CMBorderChanged + 0001:0003E408 TToolWindow.CMCtl3DChanged + 0001:0003E09C TToolWindow.Create + 0001:0003E1A8 TToolWindow.NCPaint + 0001:0003E10C TToolWindow.SetEdgeBorders + 0001:0003E140 TToolWindow.SetEdgeInner + 0001:0003E174 TToolWindow.SetEdgeOuter + 0001:0003E2BC TToolWindow.WMNCCalcSize + 0001:0003E380 TToolWindow.WMNCPaint + 0001:00065514 TTreeNode.AlphaSort + 0001:00065658 TTreeNode.Assign + 0001:000647E8 TTreeNode.Collapse + 0001:000645A8 TTreeNode.CompareCount + 0001:00063F44 TTreeNode.Create + 0001:0006553C TTreeNode.CustomSort + 0001:000655F4 TTreeNode.Delete + 0001:00065610 TTreeNode.DeleteChildren + 0001:00063FA8 TTreeNode.Destroy + 0001:000654C8 TTreeNode.DisplayRect + 0001:00064600 TTreeNode.DoCanExpand + 0001:00064664 TTreeNode.DoExpand + 0001:000647C8 TTreeNode.Expand + 0001:000646BC TTreeNode.ExpandItem + 0001:00064E88 TTreeNode.GetAbsoluteIndex + 0001:00064A30 TTreeNode.GetChildren + 0001:0006502C TTreeNode.GetCount + 0001:00064968 TTreeNode.GetCut + 0001:000649B4 TTreeNode.GetDropTarget + 0001:00064808 TTreeNode.GetExpanded + 0001:00064CF4 TTreeNode.getFirstChild + 0001:00064AA8 TTreeNode.GetFocused + 0001:000640D8 TTreeNode.GetHandle + 0001:00064EF0 TTreeNode.GetIndex + 0001:00064F28 TTreeNode.GetItem + 0001:00064D48 TTreeNode.GetLastChild + 0001:0006544C TTreeNode.GetLevel + 0001:00064D88 TTreeNode.GetNext + 0001:00064CC8 TTreeNode.GetNextChild + 0001:00064B60 TTreeNode.getNextSibling + 0001:00064C08 TTreeNode.GetNextVisible + 0001:00064B0C TTreeNode.GetParent + 0001:00064E3C TTreeNode.GetPrev + 0001:00064BB4 TTreeNode.getPrevSibling + 0001:00064C68 TTreeNode.GetPrevVisible + 0001:00064864 TTreeNode.GetSelected + 0001:000642AC TTreeNode.GetState + 0001:000640F8 TTreeNode.GetTreeView + 0001:00064114 TTreeNode.HasAsParent + 0001:00064FD4 TTreeNode.IndexOf + 0001:0006506C TTreeNode.InternalMove + 0001:00065748 TTreeNode.IsEqual + 0001:000653DC TTreeNode.IsFirstNode + 0001:00065488 TTreeNode.IsNodeVisible + 0001:00065418 TTreeNode.MakeVisible + 0001:00065220 TTreeNode.MoveTo + 0001:00065788 TTreeNode.ReadData + 0001:00064AC8 TTreeNode.SetChildren + 0001:00064988 TTreeNode.SetCut + 0001:00064218 TTreeNode.SetData + 0001:000649D4 TTreeNode.SetDropTarget + 0001:00064828 TTreeNode.SetExpanded + 0001:00064A7C TTreeNode.SetFocused + 0001:000643F0 TTreeNode.SetImageIndex + 0001:000644D8 TTreeNode.SetOverlayIndex + 0001:00064884 TTreeNode.SetSelected + 0001:00064948 TTreeNode.SetSelectedBit + 0001:00064464 TTreeNode.SetSelectedIndex + 0001:00064348 TTreeNode.SetState + 0001:0006453C TTreeNode.SetStateIndex + 0001:0006416C TTreeNode.SetText + 0001:000658B0 TTreeNode.WriteData + 0001:00065C54 TTreeNodes.Add + 0001:00065B8C TTreeNodes.AddChild + 0001:00065B28 TTreeNodes.AddChildFirst + 0001:00065BBC TTreeNodes.AddChildObject + 0001:00065B58 TTreeNodes.AddChildObjectFirst + 0001:00065F10 TTreeNodes.AddedNode + 0001:00065BF0 TTreeNodes.AddFirst + 0001:00065F88 TTreeNodes.AddItem + 0001:00065CB8 TTreeNodes.AddNode + 0001:00065C84 TTreeNodes.AddObject + 0001:00065C20 TTreeNodes.AddObjectFirst + 0001:00066228 TTreeNodes.Assign + 0001:000661A4 TTreeNodes.BeginUpdate + 0001:00065AA4 TTreeNodes.Clear + 0001:00066618 TTreeNodes.ClearCache + 0001:000659A8 TTreeNodes.Create + 0001:00065F3C TTreeNodes.CreateItem + 0001:00066370 TTreeNodes.DefineProperties + 0001:00065A8C TTreeNodes.Delete + 0001:000659F8 TTreeNodes.Destroy + 0001:00066204 TTreeNodes.EndUpdate + 0001:00065A34 TTreeNodes.GetCount + 0001:00066010 TTreeNodes.GetFirstNode + 0001:00065A6C TTreeNodes.GetHandle + 0001:00066160 TTreeNodes.GetNode + 0001:0006603C TTreeNodes.GetNodeFromIndex + 0001:000663C8 TTreeNodes.ReadData + 0001:00066520 TTreeNodes.ReadExpandedState + 0001:00065EAC TTreeNodes.Repaint + 0001:000661C8 TTreeNodes.SetUpdateState + 0001:000664A0 TTreeNodes.WriteData + 0001:000665B0 TTreeNodes.WriteExpandedState + 0001:000EF7BC TTypedComObject.GetClassInfo + 0001:000EF7EC TTypedComObjectFactory.Create + 0001:000EF954 TTypedComObjectFactory.GetInterfaceTypeInfo + 0001:000EFA18 TTypedComObjectFactory.UpdateRegistry + 0001:0008D63C TurnSiblingsOff + 0001:00372B18 TUser.Create + 0001:00372CF4 TUser.HasKey + 0001:00374FA8 TUser.SetCurrentPrinter + 0001:00117880 TVCEdit.ChangeVC + 0001:0011781C TVCEdit.ChangeVCKnowOldVC + 0001:001177B8 TVCEdit.Create + 0001:001177F4 TVCEdit.Destroy + 0001:001179A4 TVCEdit.NoChange + 0001:001AFBEC TVCLScreenApplication.GetCursor + 0001:001AFC30 TVCLScreenApplication.GetTitle + 0001:001AFC50 TVCLScreenApplication.ProcessMessages + 0001:001AFC68 TVCLScreenApplication.SetCursor + 0001:001AFCBC TVCLScreenApplication.SetTitle + 0001:000C40D8 TView3DOptions.Assign + 0001:000C3F9C TView3DOptions.Create + 0001:000C3FFC TView3DOptions.Repaint + 0001:000C4014 TView3DOptions.SetBooleanProperty + 0001:000C4020 TView3DOptions.SetElevation + 0001:000C4050 TView3DOptions.SetHorizOffset + 0001:000C4008 TView3DOptions.SetIntegerProperty + 0001:000C4098 TView3DOptions.SetOrthogonal + 0001:000C402C TView3DOptions.SetPerspective + 0001:000C4038 TView3DOptions.SetRotation + 0001:000C4044 TView3DOptions.SetTilt + 0001:000C4074 TView3DOptions.SetVertOffset + 0001:000C40A4 TView3DOptions.SetZoom + 0001:000C40CC TView3DOptions.SetZoomText + 0001:000510A0 TVirtualListAction.GetItem + 0001:00051100 TVirtualListAction.GetString + 0001:0011E664 TVistaLogin.Create + 0001:0011E6A8 TVistaLogin.Destroy + 0001:0011E6DC TVistaLogin.FailedLogin + 0001:0011E704 TVistaLogin.SetAccessCode + 0001:0011E718 TVistaLogin.SetDivision + 0001:0011E72C TVistaLogin.SetDuz + 0001:0011E740 TVistaLogin.SetErrorText + 0001:0011E754 TVistaLogin.SetLogInHandle + 0001:0011E768 TVistaLogin.SetMode + 0001:0011E76C TVistaLogin.SetMultiDivision + 0001:0011E770 TVistaLogin.SetPromptDiv + 0001:0011E774 TVistaLogin.SetVerifyCode + 0001:0011E788 TVistaUser.SetDivision + 0001:0011E79C TVistaUser.SetDTime + 0001:0011E7B0 TVistaUser.SetDUZ + 0001:0011E7C4 TVistaUser.SetLanguage + 0001:0011E7D8 TVistaUser.SetName + 0001:0011E7EC TVistaUser.SetServiceSection + 0001:0011E800 TVistaUser.SetStandardName + 0001:0011E814 TVistaUser.SetTitle + 0001:002DC2BC TVitalComboBox.SelectByID + 0001:00144B9C TWebBrowser.CreateControl + 0001:00144BBC TWebBrowser.GetControlInterface + 0001:00144AF0 TWebBrowser.InitControlData + 0001:00144BE8 TWebBrowser.Navigate + 0001:00142BC4 TWebLabel.Clicked + 0001:00142C14 TWebLabel.Init + 0001:000A1C84 TWinControl.ActionChange + 0001:0009CCB8 TWinControl.AddBiDiModeExStyle + 0001:0009BCB4 TWinControl.AdjustClientRect + 0001:000A0FE4 TWinControl.AdjustSize + 0001:0009C4E0 TWinControl.AlignControl + 0001:0009C3DC TWinControl.AlignControls + 0001:000A1CF0 TWinControl.AssignTo + 0001:0009CB88 TWinControl.Broadcast + 0001:000A17FC TWinControl.CalcConstraints + 0001:000A1D30 TWinControl.CanAutoSize + 0001:000A0D4C TWinControl.CanFocus + 0001:000A1718 TWinControl.CanResize + 0001:000A0704 TWinControl.ChangeScale + 0001:0009FC88 TWinControl.CMBiDiModeChanged + 0001:000A0000 TWinControl.CMBorderChanged + 0001:0009FD98 TWinControl.CMChanged + 0001:0009FDC4 TWinControl.CMChildKey + 0001:0009FF28 TWinControl.CMColorChanged + 0001:000A01F0 TWinControl.CMControlListChange + 0001:000A0054 TWinControl.CMCtl3DChanged + 0001:0009FFB4 TWinControl.CMCursorChanged + 0001:0009FD6C TWinControl.CMDesignHitTest + 0001:0009FE0C TWinControl.CMDialogChar + 0001:0009FDF0 TWinControl.CMDialogKey + 0001:0009F3B4 TWinControl.CMDockClient + 0001:000A0174 TWinControl.CMDrag + 0001:0009FEC8 TWinControl.CMEnabledChanged + 0001:0009FCCC TWinControl.CMEnter + 0001:0009FD4C TWinControl.CMExit + 0001:0009F4F4 TWinControl.CMFloat + 0001:0009FE28 TWinControl.CMFocusChanged + 0001:000A013C TWinControl.CMFontChange + 0001:0009FF64 TWinControl.CMFontChanged + 0001:000A0C08 TWinControl.CMInvalidate + 0001:000A00AC TWinControl.CMParentCtl3DChanged + 0001:0009D67C TWinControl.CMRecreateWnd + 0001:0009FC60 TWinControl.CMShowHintChanged + 0001:0009FE8C TWinControl.CMShowingChanged + 0001:000A0104 TWinControl.CMSysColorChange + 0001:000A021C TWinControl.CMSysFontChanged + 0001:000A0158 TWinControl.CMTimeChange + 0001:0009F4B0 TWinControl.CMUnDockClient + 0001:0009FE44 TWinControl.CMVisibleChanged + 0001:000A0120 TWinControl.CMWinIniChange + 0001:000A0474 TWinControl.CNChar + 0001:000A02F8 TWinControl.CNKeyDown + 0001:000A0410 TWinControl.CNKeyUp + 0001:000A0554 TWinControl.CNSysChar + 0001:000A04D8 TWinControl.CNSysKeyDown + 0001:000A1C40 TWinControl.ConstrainedResize + 0001:0009C830 TWinControl.ContainsControl + 0001:0009DA50 TWinControl.ControlAtPos + 0001:0009F23C TWinControl.ControlsAligned + 0001:0009B8D0 TWinControl.Create + 0001:0009F248 TWinControl.CreateDockManager + 0001:0009D4E8 TWinControl.CreateHandle + 0001:0009CD38 TWinControl.CreateParams + 0001:0009CC10 TWinControl.CreateSubClass + 0001:0009D0DC TWinControl.CreateWindowHandle + 0001:0009CEC4 TWinControl.CreateWnd + 0001:0009D5A8 TWinControl.CustomAlignInsertBefore + 0001:0009D5C4 TWinControl.CustomAlignPosition + 0001:0009DD64 TWinControl.DefaultHandler + 0001:0009D34C TWinControl.DefineProperties + 0001:0009BA2C TWinControl.Destroy + 0001:0009D5E8 TWinControl.DestroyHandle + 0001:0009D418 TWinControl.DestroyWindowHandle + 0001:0009D3A8 TWinControl.DestroyWnd + 0001:0009C578 TWinControl.DisableAlign + 0001:0009EEEC TWinControl.DoAddDockClient + 0001:0009EF74 TWinControl.DockDrop + 0001:0009F024 TWinControl.DockOver + 0001:0009EFD8 TWinControl.DoDockOver + 0001:0009EF1C TWinControl.DoEnter + 0001:0009EF48 TWinControl.DoExit + 0001:0009C5D4 TWinControl.DoFlipChildren + 0001:0009F5B8 TWinControl.DoKeyDown + 0001:0009F808 TWinControl.DoKeyPress + 0001:0009F6F4 TWinControl.DoKeyUp + 0001:0009EF0C TWinControl.DoRemoveDockClient + 0001:0009F068 TWinControl.DoUnDock + 0001:0009C58C TWinControl.EnableAlign + 0001:000A14A8 TWinControl.FindNextControl + 0001:0009BB38 TWinControl.FixupTabList + 0001:0009C6C8 TWinControl.FlipChildren + 0001:000A0DFC TWinControl.Focused + 0001:000A1CD8 TWinControl.GetActionLinkClass + 0001:000A1674 TWinControl.GetChildren + 0001:000A0F8C TWinControl.GetClientOrigin + 0001:000A0FC0 TWinControl.GetClientRect + 0001:0009CAD0 TWinControl.GetControl + 0001:0009CB3C TWinControl.GetControlCount + 0001:000A0E90 TWinControl.GetControlExtents + 0001:000A0AFC TWinControl.GetDeviceContext + 0001:0009F10C TWinControl.GetDockClientCount + 0001:0009F140 TWinControl.GetDockClients + 0001:000A0E6C TWinControl.GetHandle + 0001:000A2554 TWinControl.GetParentBackground + 0001:000A0B6C TWinControl.GetParentHandle + 0001:0009F17C TWinControl.GetSiteInfo + 0001:000A112C TWinControl.GetTabOrder + 0001:000A1438 TWinControl.GetTabOrderList + 0001:000A0BA4 TWinControl.GetTopParentHandle + 0001:0009F1EC TWinControl.GetVisibleDockClientCount + 0001:000A133C TWinControl.HandleAllocated + 0001:000A0E34 TWinControl.HandleNeeded + 0001:0009C894 TWinControl.Insert + 0001:0009C954 TWinControl.InsertControl + 0001:000A0BEC TWinControl.Invalidate + 0001:000A0D0C TWinControl.InvalidateFrame + 0001:0009DB0C TWinControl.IsControlMouseMsg + 0001:000A10BC TWinControl.IsCtl3DStored + 0001:000A0244 TWinControl.IsMenuKey + 0001:0009F57C TWinControl.KeyDown + 0001:0009F7D4 TWinControl.KeyPress + 0001:0009F6B8 TWinControl.KeyUp + 0001:0009D8F8 TWinControl.MainWndProc + 0001:0009CBDC TWinControl.NotifyControls + 0001:0009E0D4 TWinControl.PaintControls + 0001:0009DF34 TWinControl.PaintHandler + 0001:0009E3B8 TWinControl.PaintTo + 0001:0009E0A0 TWinControl.PaintWindow + 0001:0009FB94 TWinControl.PaletteChanged + 0001:0009D47C TWinControl.PrecedingWindow + 0001:0009D148 TWinControl.ReadDesignSize + 0001:0009BC3C TWinControl.ReadState + 0001:0009C5C0 TWinControl.Realign + 0001:0009D654 TWinControl.RecreateWnd + 0001:0009F0D8 TWinControl.ReloadDockedControl + 0001:0009C8F8 TWinControl.Remove + 0001:0009CA44 TWinControl.RemoveControl + 0001:0009C864 TWinControl.RemoveFocus + 0001:000A0CEC TWinControl.Repaint + 0001:0009EE44 TWinControl.ResetIme + 0001:000A06B4 TWinControl.ScaleControls + 0001:000A07C4 TWinControl.ScrollBy + 0001:000A1618 TWinControl.SelectFirst + 0001:000A15D4 TWinControl.SelectNext + 0001:000A1F38 TWinControl.SetBevelCut + 0001:000A1FB0 TWinControl.SetBevelEdges + 0001:000A1FEC TWinControl.SetBevelKind + 0001:000A2028 TWinControl.SetBevelWidth + 0001:000A1038 TWinControl.SetBorderWidth + 0001:000A05A0 TWinControl.SetBounds + 0001:000A16C8 TWinControl.SetChildOrder + 0001:000A1074 TWinControl.SetCtl3D + 0001:0009F2D0 TWinControl.SetDockSite + 0001:000A0DAC TWinControl.SetFocus + 0001:0009ED38 TWinControl.SetIme + 0001:000A2574 TWinControl.SetParentBackground + 0001:000A10DC TWinControl.SetParentCtl3D + 0001:0009D83C TWinControl.SetParentWindow + 0001:000A11F4 TWinControl.SetTabOrder + 0001:000A122C TWinControl.SetTabStop + 0001:000A12B0 TWinControl.SetUseDockManager + 0001:000A0A58 TWinControl.SetZOrder + 0001:000A08F8 TWinControl.SetZOrderPosition + 0001:000A08CC TWinControl.ShowControl + 0001:000A0CC4 TWinControl.Update + 0001:000A135C TWinControl.UpdateBounds + 0001:0009D7E0 TWinControl.UpdateControlState + 0001:0009D6D0 TWinControl.UpdateShowing + 0001:000A1168 TWinControl.UpdateTabOrder + 0001:000A2488 TWinControl.UpdateUIState + 0001:0009F890 TWinControl.WMChar + 0001:0009FA38 TWinControl.WMCharToItem + 0001:0009E6E4 TWinControl.WMCommand + 0001:0009E840 TWinControl.WMCompareItem + 0001:000A2408 TWinControl.WMContextMenu + 0001:0009E870 TWinControl.WMDeleteItem + 0001:0009FADC TWinControl.WMDestroy + 0001:0009E8A0 TWinControl.WMDrawItem + 0001:0009E900 TWinControl.WMEraseBkgnd + 0001:0009E798 TWinControl.WMFontChange + 0001:0009E7E0 TWinControl.WMHScroll + 0001:0009ED10 TWinControl.WMIMEEndComp + 0001:0009ECE8 TWinControl.WMIMEStartComp + 0001:0009F640 TWinControl.WMKeyDown + 0001:0009F77C TWinControl.WMKeyUp + 0001:0009ECC4 TWinControl.WMKillFocus + 0001:0009E8D0 TWinControl.WMMeasureItem + 0001:0009EB40 TWinControl.WMMove + 0001:000A2064 TWinControl.WMNCCalcSize + 0001:0009FB28 TWinControl.WMNCDestroy + 0001:0009FB58 TWinControl.WMNCHitTest + 0001:000A2148 TWinControl.WMNCPaint + 0001:0009E714 TWinControl.WMNotify + 0001:0009E560 TWinControl.WMPaint + 0001:0009FC34 TWinControl.WMPaletteChanged + 0001:0009FA68 TWinControl.WMParentNotify + 0001:000A2504 TWinControl.WMPrintClient + 0001:0009FC00 TWinControl.WMQueryNewPalette + 0001:0009EB64 TWinControl.WMSetCursor + 0001:0009ECA0 TWinControl.WMSetFocus + 0001:0009EAFC TWinControl.WMSize + 0001:0009E744 TWinControl.WMSysColorChange + 0001:0009F984 TWinControl.WMSysCommand + 0001:0009F67C TWinControl.WMSysKeyDown + 0001:0009F7A8 TWinControl.WMSysKeyUp + 0001:0009E7BC TWinControl.WMTimeChange + 0001:0009FAAC TWinControl.WMVKeyToItem + 0001:0009E810 TWinControl.WMVScroll + 0001:0009E9A4 TWinControl.WMWindowPosChanged + 0001:0009EA8C TWinControl.WMWindowPosChanging + 0001:0009E76C TWinControl.WMWinIniChange + 0001:0009DBCC TWinControl.WndProc + 0001:0009D194 TWinControl.WriteDesignSize + 0001:0009B868 TWinControlActionLink.AssignClient + 0001:0009B898 TWinControlActionLink.IsHelpContextLinked + 0001:0009B8B4 TWinControlActionLink.SetHelpContext + 0001:00091694 TWinHelpViewer.CallWinHelp + 0001:0009115C TWinHelpViewer.CanShowTableOfContents + 0001:00091964 TWinHelpViewer.CouldBeUnstableWindow + 0001:00091A88 TWinHelpViewer.Create + 0001:00091AE0 TWinHelpViewer.Destroy + 0001:000915E8 TWinHelpViewer.DisplayHelpByContext + 0001:00091450 TWinHelpViewer.DisplayTopic + 0001:000910AC TWinHelpViewer.GetHelpStrings + 0001:00091000 TWinHelpViewer.GetViewerName + 0001:00090EE8 TWinHelpViewer.HelpFile + 0001:00090FC8 TWinHelpViewer.InternalShutDown + 0001:00091940 TWinHelpViewer.IsBusyWindow + 0001:000918AC TWinHelpViewer.IsNewQuery + 0001:0009198C TWinHelpViewer.MakeWinHelpHappy + 0001:0009135C TWinHelpViewer.NotifyID + 0001:000919F4 TWinHelpViewer.RestartWinHelp + 0001:00091204 TWinHelpViewer.ShowHelp + 0001:00091170 TWinHelpViewer.ShowTableOfContents + 0001:000913A0 TWinHelpViewer.ShutDown + 0001:00091378 TWinHelpViewer.SoftShutDown + 0001:00091570 TWinHelpViewer.UnderstandsContext + 0001:00091020 TWinHelpViewer.UnderstandsKeyword + 0001:000913DC TWinHelpViewer.UnderstandsTopic + 0001:000312D0 TwoBitsFromDIB + 0002:000000E4 TwoDigitYearCenturyWindow + 0002:0000216C TwoPi + 0001:0014D734 TWordApplication.Connect + 0001:0014D7F4 TWordApplication.Create + 0001:0014D82C TWordApplication.Destroy + 0001:0014D7A8 TWordApplication.Disconnect + 0001:0014D7D4 TWordApplication.GetDefaultInterface + 0001:0014D8A0 TWordApplication.Get_Documents + 0001:0014D8FC TWordApplication.Get_Visible + 0001:0014D728 TWordApplication.InitServerData + 0001:0014D854 TWordApplication.InvokeEvent + 0001:0014D9B8 TWordApplication.Quit + 0001:0014D960 TWordApplication.Set_Visible + 0001:0014DCAC TWordDocument.Close + 0001:0014DA28 TWordDocument.Connect + 0001:0014DA9C TWordDocument.ConnectTo + 0001:0014DB3C TWordDocument.Create + 0001:0014DB74 TWordDocument.Destroy + 0001:0014DAFC TWordDocument.Disconnect + 0001:0014DB1C TWordDocument.GetDefaultInterface + 0001:0014DBE8 TWordDocument.Get_FormFields + 0001:0014DC48 TWordDocument.Get_ProtectionType + 0001:0014DA1C TWordDocument.InitServerData + 0001:0014DB9C TWordDocument.InvokeEvent + 0001:0014DD10 TWordDocument.Range + 0001:0014DD7C TWordDocument.Range + 0001:0014DDE4 TWordDocument.Unprotect + 0001:0006E1DC TWorkArea.Create + 0001:0006E238 TWorkArea.GetDisplayName + 0001:0006E258 TWorkArea.SetDisplayName + 0001:0006E37C TWorkAreas.GetItem + 0001:0006E2A4 TWorkAreas.Update + 0001:00027574 TWriter.AddAncestor + 0001:000275CC TWriter.DefineBinaryProperty + 0001:00027594 TWriter.DefineProperty + 0001:00027538 TWriter.Destroy + 0001:0002762C TWriter.FlushBuffer + 0001:00029BB4 TWriter.GetLookupInfo + 0001:00027608 TWriter.GetPosition + 0001:00027640 TWriter.SetPosition + 0001:0002769C TWriter.SetRoot + 0001:000276C0 TWriter.Write + 0001:0002770C TWriter.WriteBinary + 0001:000277C0 TWriter.WriteBoolean + 0001:00027794 TWriter.WriteBuffer + 0001:000277EC TWriter.WriteChar + 0001:00027844 TWriter.WriteCollection + 0001:00027950 TWriter.WriteComponent + 0001:00027F70 TWriter.WriteCurrency + 0001:00027AC0 TWriter.WriteData + 0001:00027F98 TWriter.WriteDate + 0001:00027ED4 TWriter.WriteDescendent + 0001:00027F20 TWriter.WriteFloat + 0001:00027FC0 TWriter.WriteIdent + 0001:00028118 TWriter.WriteInteger + 0001:00028098 TWriter.WriteInteger + 0001:00028174 TWriter.WriteListBegin + 0001:00028188 TWriter.WriteListEnd + 0001:000299C8 TWriter.WriteMinStr + 0001:0002819C TWriter.WritePrefix + 0001:000281E8 TWriter.WriteProperties + 0001:000293A8 TWriter.WriteProperty + 0001:00029900 TWriter.WritePropName + 0001:0002995C TWriter.WriteSignature + 0001:00027F48 TWriter.WriteSingle + 0001:00029978 TWriter.WriteStr + 0001:00029A78 TWriter.WriteString + 0001:00029B94 TWriter.WriteValue + 0001:000294F4 TWriter.WriteVariant + 0001:00029AD4 TWriter.WriteWideString + 0001:00114EB8 TXWBCustomRichEdit.Clear + 0001:00115374 TXWBCustomRichEdit.CMBiDiModeChanged + 0001:00115498 TXWBCustomRichEdit.CMColorChanged + 0001:001151E0 TXWBCustomRichEdit.CMFontChanged + 0001:00115828 TXWBCustomRichEdit.CNNotify + 0001:00114D38 TXWBCustomRichEdit.Create + 0001:00114ED0 TXWBCustomRichEdit.CreateParams + 0001:00114F5C TXWBCustomRichEdit.CreateWnd + 0001:00114E5C TXWBCustomRichEdit.Destroy + 0001:001150A4 TXWBCustomRichEdit.DestroyWnd + 0001:001151F0 TXWBCustomRichEdit.DoSetMaxLength + 0001:00115210 TXWBCustomRichEdit.GetCaretPos + 0001:00115480 TXWBCustomRichEdit.GetPlainText + 0001:00115270 TXWBCustomRichEdit.GetSelLength + 0001:00115298 TXWBCustomRichEdit.GetSelStart + 0001:00115330 TXWBCustomRichEdit.GetSelText + 0001:001152BC TXWBCustomRichEdit.GetSelTextBuf + 0001:001154FC TXWBCustomRichEdit.Print + 0001:001159B4 TXWBCustomRichEdit.ProtectChange + 0001:00115A04 TXWBCustomRichEdit.RequestSize + 0001:00115984 TXWBCustomRichEdit.SaveClipboard + 0001:001159E4 TXWBCustomRichEdit.SelectionChange + 0001:001153CC TXWBCustomRichEdit.SetHideScrollBars + 0001:001153E0 TXWBCustomRichEdit.SetHideSelection + 0001:0011548C TXWBCustomRichEdit.SetPlainText + 0001:001154C4 TXWBCustomRichEdit.SetRichEditStrings + 0001:00115424 TXWBCustomRichEdit.SetSelLength + 0001:001154D4 TXWBCustomRichEdit.SetSelStart + 0001:00115410 TXWBCustomRichEdit.SetURLDetect + 0001:00115170 TXWBCustomRichEdit.WMNCDestroy + 0001:001156D4 TXWBCustomRichEdit.WMPaint + 0001:00115188 TXWBCustomRichEdit.WMRButtonUp + 0001:00115798 TXWBCustomRichEdit.WMSetCursor + 0001:00115178 TXWBCustomRichEdit.WMSetFont + 0001:00113AE4 TXWBTextAttributes.Assign + 0001:00113C10 TXWBTextAttributes.AssignTo + 0001:00113758 TXWBTextAttributes.Create + 0001:001137BC TXWBTextAttributes.GetAttributes + 0001:00113838 TXWBTextAttributes.GetCharset + 0001:0011387C TXWBTextAttributes.GetColor + 0001:001138E4 TXWBTextAttributes.GetName + 0001:00113A74 TXWBTextAttributes.GetPitch + 0001:00113A20 TXWBTextAttributes.GetSize + 0001:00113978 TXWBTextAttributes.GetStyle + 0001:001137A0 TXWBTextAttributes.InitFormat + 0001:001137FC TXWBTextAttributes.SetAttributes + 0001:0011384C TXWBTextAttributes.SetCharset + 0001:0011389C TXWBTextAttributes.SetColor + 0001:00113908 TXWBTextAttributes.SetName + 0001:00113AA4 TXWBTextAttributes.SetPitch + 0001:00113A3C TXWBTextAttributes.SetSize + 0001:001139C8 TXWBTextAttributes.SetStyle + 0001:0010E0F0 TXWBWinsock.BuildApi + 0001:0010E50C TXWBWinsock.BuildHdr + 0001:0010E5D0 TXWBWinsock.BuildPar + 0001:0011151C TXWBWinsock.BuildPar1 + 0001:0011047C TXWBWinsock.Create + 0001:001103BC TXWBWinsock.GetServerPacket + 0001:0010ED1C TXWBWinsock.NetCall + 0001:001104B8 TXWBWinsock.NetError + 0001:0010F278 TXWBWinsock.NetStart + 0001:0010F7C8 TXWBWinsock.NetStart1 + 0001:00110128 TXWBWinsock.NetStop + 0001:0010E1D4 TXWBWinsock.NetworkConnect + 0001:0010E4A0 TXWBWinsock.NetworkDisconnect + 0001:0010EABC TXWBWinsock.StrPack + 0001:0010F12C TXWBWinsock.tCall + 0001:0010EBF0 TXWBWinsock.VarPack + 0001:0037CEDC TypeOfExistedEvent + 0001:00005FC0 Types + 0002:00002E60 TypeTag + 0001:0001BBF8 TypInfo + 0001:000C9E44 TZoomPanningRecord.Activate + 0001:000C9E18 TZoomPanningRecord.Check + 0002:00001F8C U + 0001:000F1694 uAccessAPI + 0001:001C4184 uAccessibleListBox + 0001:001CF768 uAccessibleRichEdit + 0001:001953D8 uAccessibleStringGrid + 0001:0020625C uAccessibleTreeNode + 0001:00204F38 uaccessibleTreeView + 0002:00006FDC uActiveWindowCount + 0002:00006FD8 uActiveWindowHandle + 0002:00002780 uAddingNew + 0002:00008EA8 uAddToPDl + 0002:00003404 uAnytimeEnc + 0002:00008F0A uAPAsk + 0002:00003400 uAPLoc + 0002:000033F8 uAPUser + 0002:0000727C uARTClinUser + 0002:00008C8C uARTCoverSheetParams + 0002:00007274 uARTPatchInstalled + 0002:00008AB4 uAutoAc + 0002:00003408 UAutoSelLoc + 0002:00008F0B UAutoSelVal + 0001:0012EFD4 UBAConst + 0001:00343ED4 UBACore + 0001:0035A560 UBAGlobals + 0001:001D8840 UBAMessages + 0002:00002038 uBaseContext + 0002:00009080 uBounds + 0002:00006E48 uCallList + 0002:00002454 uCanEditAllCoverSheetLists + 0002:000021B8 uCanEditDlgFldChecked + 0002:00006F54 uCanEditDlgFlds + 0002:00003000 uCanEditLinkTypeResults + 0001:0022DB4C uCaseTree + 0002:0000277C UcboVitChanging + 0002:00003314 UcboVitChanging + 0002:0000845C uChanging + 0002:00007320 uChanging + 0002:00007304 uChanging + 0002:000072F8 uChanging + 0002:00008BF1 uChanging + 0002:000084F9 uChanging + 0002:00008560 uChanging + 0002:0000812C uCheckedOrders + 0002:00008B5C uClinProcClass + 0002:00008B60 uClinProcTitles + 0002:00007034 uColChange + 0002:00007008 uColumns + 0002:00009088 uColumns + 0002:000024CC uCOMObjectActive + 0002:00006F80 uComponents + 0002:0000884D uComponentSelected + 0001:00193B5C uComServ + 0001:00105D74 uConst + 0001:0012D9D8 uConsults + 0002:00008B54 uConsultsClass + 0002:000072DC uConsultsList + 0002:00008B58 uConsultTitles + 0001:00375218 uCore + 0002:000024C8 uCPRSEventHookManager + 0002:00006F84 uCurrentComponent + 0002:0000203C uCurrentContext + 0002:00008DA0 uDate1 + 0002:00008C98 uDate1 + 0002:00008DA8 uDate2 + 0002:00008CA0 uDate2 + 0002:0000708C uDateRanges + 0001:0013B12C uDCSumm + 0002:0000849C uDCSummContext + 0002:00008478 uDCSummPrefs + 0002:00008474 uDCSummTitles + 0002:00002448 uDefLocs + 0002:00008718 uDeletedSymptoms + 0002:00008EAC uDeleteFromPDL + 0002:00008E00 uDeleteFromPDL + 0002:0000885C uDfltCollType + 0002:0000880C uDfltCollType + 0002:00008850 uDfltUrgency + 0002:00008808 uDfltUrgency + 0002:000090EC uDGroupAll + 0002:00003008 uDGroupConsults + 0002:00007360 uDGroupList + 0002:000090E8 uDGroupMap + 0002:0000300C uDGroupProcedures + 0002:00008ED8 uDiagnoses + 0002:00007154 uDialogName + 0002:00007164 uDietParams + 0002:00007064 uDirect + 0002:00002FF8 uDlgCount + 0001:002AC044 uDocTree + 0002:00008EB0 uDxLst + 0002:00007040 uECSReport + 0002:00002784 uEditing + 0002:00007068 uEmptyImageList + 0002:00008EC4 uEncLocation + 0002:00008D20 uEncPCEData + 0002:00002788 uEnteredInError + 0002:000022A4 uEntries + 0001:001918B8 uEventHooks + 0002:00009070 uEvtDCList + 0002:00009074 uEvtRLList + 0002:00008EDC uExams + 0002:00007158 uFHAUTH + 0002:00006F8C uFile + 0002:00007294 uFileCount + 0002:00007120 uFillerAppID + 0002:00007364 uFilterList + 0002:00007028 uFirstSort + 0002:000090A4 uFMToday + 0002:00008D9C uFormat + 0001:00159E60 uFormMonitor + 0002:00008DC4 uFrozen + 0002:00007050 uFrozen + 0002:00008F00 uGAFOK + 0002:000033D8 uGAFOKCalled + 0002:00008F04 uGAFURL + 0002:000033E4 uGAFURLChecked + 0002:00008858 uGetTnS + 0002:00007278 uGMRASiteParams + 0002:00008DC5 uGraphingActivated + 0001:0014EB68 uGraphs + 0002:000033E0 uHasCPT + 0002:00001E74 uHaveReadOnlyColor + 0002:00008EE0 uHealthFactors + 0002:00006FF4 uHSAll + 0002:00006FF0 uHSComponents + 0002:00007014 uHState + 0002:00007090 uHSTypes + 0002:00008DCC uHTMLDoc + 0002:00007054 uHTMLDoc + 0002:00008DD8 uHTMLPatient + 0002:0000705C uHTMLPatient + 0002:000084FA uIDNotesActive + 0002:0000845D uIDNotesActive + 0002:00008BF2 uIDNotesActive + 0002:00008EE4 uImmunizations + 0002:00008C24 uIndentLevel + 0001:00182B7C uInit + 0002:000022B0 uInternalFieldIDCount + 0002:00008C88 uIPAddress + 0002:00005CB8 uItemTip + 0002:00005CBC uItemTipCount + 0002:00008B15 uKeepLock + 0002:00005CB4 uKeyHookHandle + 0002:00007124 uKeyVarList + 0002:00008DB4 uLabLocalReportData + 0002:00008DB8 uLabRemoteReportData + 0002:00007088 uLabReports + 0002:00008F0C uLastChkOut + 0002:0000340C uLastChkOutLoc + 0002:00008B2C uLastConfirm + 0002:00002440 uLastDefLocUser + 0002:00008F54 uLastDFN + 0002:00008ED0 uLastDFN + 0002:00008B40 uLastDispenseIEN + 0002:00008B44 uLastDispenseMsg + 0002:00008F01 uLastForce + 0002:000033DC uLastForceLoc + 0002:00003414 uLastIsClinic + 0002:00003410 uLastIsClinicLoc + 0002:00008ECC uLastLocation + 0002:00008F58 uLastLocation + 0002:00008B6C uLastOrderedIEN + 0002:00008B70 uLastOrderMsg + 0002:00008B48 uLastQuantityMsg + 0002:00006F90 uLimit + 0002:00006F94 uLimitCount + 0002:0000703C uListState + 0002:00006FF8 uLocalReportData + 0002:00007039 ulvSelectOn + 0002:00006E4C uMaxCalls + 0002:00007010 uMaxOcc + 0002:00008B4C uMedRoutes + 0002:00008288 uMessageVisible + 0002:00008370 uMessageVisible + 0002:00008F08 uMHOK + 0002:000033E8 uMHOKChecked + 0002:00008844 uModifierList + 0002:000033D4 uModifiers + 0001:00019B90 Unassigned + 0001:000C4E08 UnClipCanvas + 0002:00007004 uNewColumn + 0002:00002450 uNewCoverSheetListActive + 0002:00008E04 uNewDxList + 0002:00008B38 uNewMedDialog + 0002:00005CC0 uNewStyle + 0002:000022A8 uNewTemplateFieldIDCnt + 0001:0037AE20 UnflagOrder + 0001:00000304 UnhandledExceptionFilter + 0001:000BFC7C UnhookHintHooks + 0001:00006CB8 UnhookWindowsHookEx + 0001:00005578 UnicodeToUtf8 + 0001:00000BD8 UninitAllocator + 0001:00006CC0 UnionRect + 0001:000AC348 UniqueCommand + 0001:00003B20 UniqueString + 0001:000100C4 UniUnimplemented + 0001:002D3870 UnlockAllTemplates + 0001:0036AF80 UnlockDocument + 0001:0029D574 UnlockIfAble + 0001:0037A2D8 UnlockOrder + 0001:0029D684 UnlockOrderIfAble + 0001:0037A15C UnlockPatient + 0001:00006D7C UnlockResource + 0001:0013C144 UnlockTemplate + 0001:0013C47C UnlockTemplateField + 0002:00009094 uNoteTitles + 0002:00003434 uNotifyAppsActive + 0002:00003430 uNotifyAppsQueue + 0002:0000342C uNotifyAppsThread + 0001:000066E0 UnrealizeObject + 0001:00006CC8 UnregisterClass + 0001:0001EEC0 UnregisterFindGlobalComponentProc + 0001:000053DC UnregisterModule + 0001:0001EA60 UnRegisterModuleClasses + 0001:001933D8 UnregisterTypeLibrary + 0001:000031CC UnsetExceptionHandler + 0002:00008F8C UnsignedBillingRec + 0001:0036E744 UnsignedOrderAlertFollowup + 0002:00009014 UnsignedOrders + 0002:00008EC0 UNxtCommSeqNum + 0001:0018F870 uODBase + 0001:0031EAA0 uOptions + 0002:00008B18 uOrderAction + 0002:000090F0 uOrderChecksOn + 0002:00008B1C uOrderDialog + 0002:00007114 uOrderEventID + 0002:00007118 uOrderEventName + 0002:00007110 uOrderEventType + 0002:0000711C uOrderFormID + 0002:00008B20 uOrderHTML + 0002:0000906C uOrderList + 0002:00008B24 uOrderMenu + 0001:002A2778 uOrders + 0002:00008B28 uOrderSet + 0002:00008B30 uOrderSetTime + 0001:002406BC uOrPtf + 0002:0000713C uOutpatientPatchInstalled + 0002:0000909C uPatch175Installed + 0002:00002778 uPatient + 0002:00008EE8 uPatientEds + 0002:00008B14 uPatientLocked + 0001:00001C34 UpCase + 0001:0034C5D4 uPCE + 0002:00008554 uPCEEdit + 0002:00008424 uPCEEdit + 0002:00008B88 uPCEEdit + 0002:00008490 uPCEEdit + 0002:0000848C uPCEShow + 0002:00008420 uPCEShow + 0002:00008550 uPCEShow + 0002:00008B84 uPCEShow + 0002:00002770 uPCETemp + 0002:00002774 uPCETempOld + 0001:000B8174 UpdateActionLists + 0001:0036C494 UpdateAdditionalSigners + 0001:0023856C updateAllChilds + 0001:001DEB58 updateAllChilds + 0001:00271A9C updateCheckbox + 0001:0013B804 UpdateChildren + 0001:0007086C UpdateColumnOrder + 0001:00120B4C UpdateContext + 0001:001017AC UpdateCrc32 + 0002:00008FA0 UpdatedBAOrderList + 0001:00034B64 UpdateDIBColorTable + 0001:000EAEF4 UpdateEditor + 0001:0023D340 UpdateEncounter + 0001:002B128C UpdateEncounterInfo + 0001:0036E84C UpdateExpiringFlaggedOIAlerts + 0001:0036E7CC UpdateExpiringMedAlerts + 0001:000E44D4 UpdateExtents + 0001:0009ADF0 UpdateFloatingDockSitePos + 0001:002E317C UpdateForcedValues + 0001:002CF47C UpdateImportMessage + 0001:0013FB70 UpdateIndents + 0001:000B08A4 UpdateItem + 0001:000AFC48 UpdateItem + 0001:0034F0AC UpdateModifierList + 0001:0037B4E0 UpdateOrderDGIfNeeded + 0001:00334DA8 UpdatePatientInfoForAlert + 0001:003016A4 UpdatePCE + 0001:002E05C0 UpdateReminderDialogStatus + 0001:002BB9D4 UpdateReminderFinish + 0001:000B704C UpdateScrollProperties + 0001:00063C70 UpdateSectionOrder + 0001:00105980 UpdateSelf + 0001:0013B788 UpdateTemplate + 0001:0013C3B8 UpdateTemplateField + 0001:00182A34 UpdateTimeOutInterval + 0001:0013B59C UpdateTIURec + 0001:0036E6C0 UpdateUnsignedOrderAlerts + 0001:0036E8D8 UpdateUnverifiedMedAlerts + 0001:0036E95C UpdateUnverifiedOrderAlerts + 0001:0023D320 UpdateVisit + 0001:0023D330 UpdateVisit + 0001:0034F388 UpdateVisitTypeModifierList + 0001:00006CD0 UpdateWindow + 0002:00008F2C UpdatingGrid + 0002:00007044 UpdatingLvReports + 0002:00007045 UpdatingTvProcedures + 0002:00008B50 uPFSSActive + 0001:0000822C UpperCase + 0002:00008D98 uPrevReportIndex + 0002:00008F60 uPrimaryDxHold + 0002:00008EFC uProblems + 0002:00008F48 uProblems + 0001:001B6304 uProbs + 0002:00008EEC uProcedures + 0002:00008D24 uProviders + 0002:0000341C uPtListDfltSort + 0002:00007018 uQualifier + 0002:00007024 uQualifierType + 0002:000022AC uRadioGroupIndex + 0002:00008848 uRaw + 0002:00005D0C uReadOnlyColor + 0002:0000715C uRecurringMealList + 0002:00003178 uRemFolders + 0001:002EE28C uReminders + 0002:0000244C uRemInsertAtCursor + 0002:0000704C uRemoteCount + 0002:00008DC8 uRemoteCount + 0002:00006FFC uRemoteReportData + 0002:00008E88 uRemoteType + 0002:00007000 uReportInstruction + 0002:00008DD4 uReportRPC + 0002:00007058 uReportRPC + 0001:00143C9C uReports + 0002:00007084 uReportsList + 0002:00008DD0 uReportType + 0002:0000701C uReportType + 0001:0003EA98 UrlMon + 0002:00005B14 UrlMonHandle + 0002:00003424 URLMonHandle + 0002:00005B18 UrlMonInitialized + 0002:00007060 uRptID + 0002:00008D0C uSCCond + 0002:0000702C uSecondSort + 0002:000083F8 uSelectContext + 0002:00008834 uSelectedItems + 0001:0037E520 UseNewMedDialogs + 0002:000090AC User + 0002:00005930 User32Dll + 0001:0036D3B0 UserDivClassInfo + 0001:00367F04 UserFontSize + 0001:00192230 UserHasFHAUTHKey + 0002:00008814 UserHasLRLABKey + 0002:00008864 UserHasLRLABKey + 0001:0036D404 UserInactive + 0002:00002680 UserIsRestricted + 0002:00002678 UserIsRestricted + 0002:00002728 UserIsRestricted + 0002:000024D4 UserIsRestricted + 0002:0000272C UserIsRestricted + 0001:001B6BC4 UserProblemCategories + 0001:001B6C20 UserProblemList + 0001:00105860 UserRegReadDateTime + 0001:0030AF0C Users + 0001:002CFBEC UserTemplateAccessLevel + 0002:00006E78 uServerToday + 0001:0003DC18 UseThemes + 0001:00371C58 UseVistaWeb + 0002:00006E50 uShowRPCs + 0002:000072D0 uShowSurgeryTab + 0002:000072E0 uShowUnresolvedOnly + 0002:00002684 uSigItems + 0001:001DBE24 uSignItems + 0002:000026CC uSingletonFlag + 0002:00008EF0 uSkinTests + 0002:00007020 uSortOrder + 0002:00008854 uSpecimen + 0001:00186B78 uSpell + 0002:000070D4 uSpellCheckAvailable + 0001:001C217C uSurgery + 0002:00008514 uSurgeryContext + 0002:000072CC uSurgeryTitles + 0002:00003428 uSynchronizer + 0002:00008E84 uTabList + 0002:00003004 uTemplateDataLoaded + 0001:00142E60 uTemplateFields + 0001:002D7F98 uTemplates + 0002:0000884C uTestSelected + 0002:0000883C uTestsForResults + 0001:00005838 UTF8Decode + 0001:0000578C UTF8Encode + 0001:00005654 Utf8ToUnicode + 0001:0030B084 UTGAdd + 0001:0030B0F4 UTGDelete + 0001:0030B0B4 UTGReplace + 0002:00007030 uThirdSort + 0002:0000063C UtilWindowClass + 0001:00122E48 uTIU + 0002:00008B94 uTIUContext + 0002:000085B0 uTIULocation + 0002:000085B4 uTIULocationName + 0002:00009098 uTIUPrefs + 0002:00009090 uTIUSiteParams + 0002:00003418 uTIUSiteParamsLoaded + 0002:000022A0 uTmplFlds + 0002:00008E9C uToolsMaxed + 0002:00008E9D uToolsWarned + 0002:00007080 uTree + 0002:0000700C uTreeStrings + 0002:00002FFC uUniqueIDNum + 0002:00008B64 uUnresolvedConsults + 0002:00007038 uUpdateStat + 0002:00008DBC uUpdateStat + 0002:00008840 uUrgencyList + 0002:0000278C uUserCanVerify + 0002:0000713E uUserHasFHAUTHKey + 0002:000021B4 uUserTemplateDefaults + 0002:00008838 uVBECList + 0002:000033EC uVCInitialCat + 0002:000033F4 uVCInpatient + 0002:000033F0 uVCLocation + 0002:00008F09 uVCResult + 0002:00008D1C uVisitType + 0002:00008EF4 uVisitTypes + 0002:000090DC uVistaDomMsg + 0002:000090D8 uVistaMsg + 0002:00002168 uVitalFrames + 0002:000020B0 uVitalList + 0002:000085BC uVitalLocation + 0002:000085CC uVitalNew + 0002:000085C8 uVitalOld + 0001:00130FC8 uVitals + 0002:00008EF8 uVTypeForLoc + 0002:000033CC uVTypeLastDate + 0002:00008ED4 uVTypeLastLoc + 0002:00009084 uWidths + 0001:0003DCA4 UxTheme + 0002:00002650 v + 0002:00008C74 VAAFlag + 0002:00008C7C VAA_DFN + 0001:0012F16C ValAndStoreVitals + 0001:0011B2E0 ValidAppHandle + 0001:0037BF8C ValidateComplexOrderAct + 0001:00345718 ValidateGAFDate + 0001:000C29D0 ValidateHintWindow + 0001:002A5C84 ValidateIVRate + 0001:002A5334 ValidateNumericStr + 0001:0037A35C ValidateOrderAction + 0001:0037A400 ValidateOrderActionNature + 0001:00006CD8 ValidateRect + 0001:002745AC ValidateRoute + 0001:0027474C ValidateSchedule + 0001:0011B0C4 ValidAVCodes + 0001:0036DB68 ValidDateTimeStr + 0001:00095300 ValidDockTarget + 0001:0036E590 ValidESCode + 0001:00102E8C ValidFileName + 0001:001B03C4 ValidGAFData + 0001:0025DA38 ValidImmCollTime + 0002:00001378 ValidMenuHotkeys + 0001:0011B4C4 ValidNTToken + 0001:000B637C ValidParentForm + 0001:002A5D94 ValidQuantity + 0001:002A5D04 ValidSchedule + 0001:00130C68 ValidVitalsDate + 0001:001ACAA8 ValueOverOne + 0002:00000D84 Values + 0002:00000D7C Values + 0002:000057B4 VarAdd + 0002:00000014 VarAddRefProc + 0002:000057CC VarAnd + 0001:0001819C VarArrayAsPSafeArray + 0001:0001175C VarArrayClear + 0001:00011B00 VarArrayCopyForEach + 0001:000180F4 VarArrayCreate + 0001:000112FC VarArrayCreateError + 0001:000181C4 VarArrayDimCount + 0001:000183C4 VarArrayGet + 0001:00018210 VarArrayHighBound + 0001:00018234 VarArrayLock + 0001:000181EC VarArrayLowBound + 0001:00018530 VarArrayPut + 0001:00018254 VarArrayUnlock + 0002:000057F0 VarBoolFromStr + 0002:000057FC VarBstrFromBool + 0002:000057F4 VarBstrFromCy + 0002:000057F8 VarBstrFromDate + 0001:0001203C VarCastAsAny + 0001:00012140 VarCastAsDispatch + 0001:0001218C VarCastAsInterface + 0001:000120A8 VarCastAsOleStr + 0001:000120F4 VarCastAsString + 0001:0001111C VarCastError + 0001:000110C8 VarCastError + 0001:00012258 VarCastRare + 0001:000121D8 VarCastViaOS + 0001:000118D8 VarClearDeep + 0002:00000010 VarClearProc + 0002:000057D8 VarCmp + 0001:00017B20 VarCompare + 0001:0001726C VarCompareAny + 0001:00017700 VarCompareRare + 0001:00017574 VarCompareSimple + 0001:00011E28 VarCopyByRef + 0001:00011CCC VarCopyCopyProc + 0001:00011CD4 VarCopyDeep + 0001:00011DEC VarCopyNoIndCopyProc + 0001:00011DF4 VarCopyNoIndDeep + 0001:00011DE4 VarCopyNoIndOleStr + 0001:00011DC4 VarCopyNoIndViaOS + 0002:00000018 VarCopyProc + 0002:000057EC VarCyFromStr + 0002:000057E8 VarDateFromStr + 0001:000F0FCC VarDispInvoke + 0002:00005814 VarDispProc + 0002:000057C0 VarDiv + 0002:000057DC VarI4FromStr + 0001:00010084 VariantChangeType + 0002:000057A8 VariantChangeTypeEx + 0001:0001006C VariantClear + 0001:00010074 VariantCopy + 0001:0001007C VariantCopyInd + 0001:00010064 VariantInit + 0001:00019C7C Variants + 0002:000057C4 VarIDiv + 0001:0001120C VarInvalidNullOp + 0001:000111B8 VarInvalidOp + 0001:00018274 VarIsArray + 0001:0001826C VarIsArray + 0001:00017E90 VarIsClear + 0001:00017F24 VarIsEmpty + 0001:00017F38 VarIsNull + 0002:000057C8 VarMod + 0002:000057BC VarMul + 0002:000057AC VarNeg + 0002:000057B0 VarNot + 0001:00016480 VarOpRare + 0002:000057D0 VarOr + 0001:00011260 VarOverflowError + 0002:000057E0 VarR4FromStr + 0002:000057E4 VarR8FromStr + 0001:000115B0 VarResultCheck + 0001:000115A4 VarResultCheck + 0001:00018014 VarSameValue + 0001:000163CC VarStrCat + 0001:00012034 VarStringToOleStr + 0002:000057B8 VarSub + 0001:00013698 VarToBoolAny + 0001:00013590 VarToBoolAsString + 0001:000136FC VarToBoolCustom + 0001:00013658 VarToBoolViaOS + 0001:00014884 VarToCurrencyAny + 0001:000147D8 VarToCurrencyAsDouble + 0001:0001471C VarToCurrencyAsString + 0001:000148E8 VarToCurrencyCustom + 0001:00014838 VarToCurrencyViaOS + 0001:0001431C VarToDateAny + 0001:00014270 VarToDateAsDouble + 0001:00014184 VarToDateAsString + 0001:00014380 VarToDateCustom + 0001:000142D0 VarToDateViaOS + 0001:00013BAC VarToDoubleAny + 0001:00013A9C VarToDoubleAsString + 0001:00013C10 VarToDoubleCustom + 0001:00013B60 VarToDoubleViaOS + 0001:00013094 VarToInt64Any + 0001:00012F94 VarToInt64AsString + 0001:00013100 VarToInt64Custom + 0001:00012EE8 VarToInt64ViaOS + 0001:000125E0 VarToIntAny + 0001:000124F0 VarToIntAsString + 0001:00012644 VarToIntCustom + 0001:000125A4 VarToIntViaOS + 0001:00014F00 VarToLStrAny + 0001:00014F64 VarToLStrCustom + 0002:0000001C VarToLStrProc + 0001:00014E34 VarToLStrViaOS + 0001:00017F4C VarToStr + 0001:00017F64 VarToStrDef + 0001:00017F90 VarToWideStr + 0001:00017FE8 VarToWideStrDef + 0001:000155E4 VarToWStrAny + 0001:00015648 VarToWStrCustom + 0002:00000020 VarToWStrProc + 0001:0001552C VarToWStrViaOS + 0001:00017E7C VarType + 0001:00017D0C VarTypeAsText + 0001:00017F04 VarTypeIsCustom + 0001:00017F10 VarTypeIsStr + 0001:0001829C VarTypeIsValidArrayType + 0001:000182BC VarTypeIsValidElementType + 0001:00010900 VarUtils + 0002:000057D4 VarXor + 0001:001B2CA8 Vawrgrid + 0001:0014DEDC VBIDE2000 + 0001:0014D3E4 VBIDE97 + 0001:0011805C VCEdit + 0001:001AED80 VDBConsts + 0001:0037CB30 VerbTelPolicyOrder + 0001:0010C9AC VERGENCECONTEXTORLib_TLB + 0001:00008ED4 VerifyBoolStrArray + 0001:0018EDD8 VerifyMentalHealthTestComplete + 0001:0037AFC4 VerifyOrder + 0001:0037B020 VerifyOrderChartReview + 0001:00343CF0 VerifyOrderIdExists + 0001:0012F070 VerifyVital + 0001:000063A0 VerQueryValue + 0002:00008558 ViewContext + 0002:00008494 ViewContext + 0002:000083C0 ViewContext + 0002:00008B8C ViewContext + 0002:00005B70 ViewerName + 0001:002BB8C0 ViewRemDlg + 0001:002BB498 ViewRemDlgFromForm + 0001:002BB990 ViewRemDlgTemplateFromForm + 0001:002BB97C ViewReminderDialog + 0001:00206730 ViewReminderTree + 0002:00000EDC ViewStyles + 0002:00000EFC ViewStyles + 0001:00000458 VirtualAlloc + 0001:00006360 VirtualAlloc + 0001:00000460 VirtualFree + 0001:000003D4 VirtualQuery + 0001:00006368 VirtualQuery + 0001:0036ACE0 VisitStrForNote + 0002:000020DC VitalCodes + 0001:00130454 VitalControlTag + 0002:00002114 VitalDesc + 0001:0012FA9C VitalErrorText + 0002:00002140 VitalFormatedDesc + 0001:00130304 VitalInvalid + 0002:000020B4 VitalPCECodes + 0002:00006F38 VitalsDLLHandle + 0001:002F3EE4 VitalsGrid + 0001:002F3F70 VitalsMemo + 0002:00002108 VitalTagCodes + 0001:00006CE0 WaitForInputIdle + 0001:00006370 WaitForSingleObject + 0001:00029C5C WaitForSyncEvent + 0001:002F03F0 WaitList + 0001:00006CE8 WaitMessage + 0002:00000620 WakeMainThread + 0001:00003750 WCharFromChar + 0002:00002DC8 wdays + 0002:00002D78 wdays + 0001:0013FB10 wdth + 0002:00003158 WebPages + 0002:00001004 WeekNumFlags + 0002:00000314 WesternGroups + 0002:00008F2E whoCalled + 0002:00008C60 WHRemPrint + 0001:000046A0 WideCharLenToStrVar + 0001:000003CC WideCharToMultiByte + 0002:000000DC Win32BuildNumber + 0001:0000F30C Win32Check + 0002:000000E0 Win32CSDVersion + 0002:000000D4 Win32MajorVersion + 0002:000000D8 Win32MinorVersion + 0001:000A6F60 Win32NLSEnableIME + 0002:000000D0 Win32Platform + 0002:00005B8C WindowAtom + 0002:00005B90 WindowAtomString + 0002:00001564 WindowClass + 0001:000917B0 WindowEnumerationTester + 0001:00006CF8 WindowFromPoint + 0002:000070B8 WindowList + 0002:000012E8 WindowPos + 0001:00007128 Windows + 0001:00031BB4 WinError + 0001:00006CF0 WinHelp + 0002:00005B6C WinHelpTester + 0001:00091B90 WinHelpViewer + 0001:0003EA60 WinInet + 0001:0010DB3C WinSock + 0001:0003B8CC WinSpool + 0001:002BBE90 WipeOutControls + 0002:000009A4 WndProcPtrAtom + 0001:0014DF14 Word2000 + 0001:0014DE6C Word97 + 0001:002D3860 WordImportActive + 0001:002D19B0 WordImportError + 0001:002DFFD0 WordWrap + 0001:002D2150 WordWrap + 0002:0000110C WordWraps + 0002:000010B0 WordWraps + 0002:000010AC WordWraps + 0001:0013DE14 WordWrapText + 0001:0030B9A0 Worksheet + 0001:00079D5C WrapHorz + 0001:0013DBC8 WrappedText + 0001:001042EC WrappedTextHeightByFont + 0001:0007A0D4 WrapSizeHorz + 0001:00079FB8 WrapSizeVert + 0001:0000EEAC WrapText + 0002:00000ED4 WrapText + 0002:00005DC0 WRec + 0001:0001F2A8 WriteCollection + 0001:00028BC4 WriteCollectionProp + 0001:0006DA6C WriteCols + 0001:000A59E8 WriteControlName + 0001:000033F0 WriteErrorMessage + 0001:00006378 WriteFile + 0001:0000030C WriteFile + 0001:00028D38 WriteFloatProp + 0001:00031BD0 WriteIcon + 0001:00028D78 WriteInt64Prop + 0001:000291C0 WriteInterfaceProp + 0001:00028B48 WriteIntProp + 0001:0006F670 WriteItems + 0001:0002929C WriteMethodProp + 0001:000662C8 WriteNodes + 0001:00028FB4 WriteObjectProp + 0001:00028C6C WriteOrdProp + 0001:00028A50 WritePropPath + 0001:0010D6F0 WriteRegData + 0001:00028AA4 WriteSet + 0001:00028DB4 WriteStrProp + 0001:00029344 WriteVariantProp + 0001:002863B4 WS2Call + 0001:0028647C WS2StubInit + 0002:0000282C WS2StubTable + 0001:00285634 WS2Stub_accept + 0001:00285CF4 WS2Stub_AcceptEx + 0001:00285644 WS2Stub_bind + 0001:00285654 WS2Stub_closesocket + 0001:00285664 WS2Stub_connect + 0001:00285D04 WS2Stub_GetAcceptExSockaddrs + 0001:002857A4 WS2Stub_gethostbyaddr + 0001:002857B4 WS2Stub_gethostbyname + 0001:002857C4 WS2Stub_gethostname + 0001:00285684 WS2Stub_getpeername + 0001:00285804 WS2Stub_getprotobyname + 0001:002857F4 WS2Stub_getprotobynumber + 0001:002857E4 WS2Stub_getservbyname + 0001:002857D4 WS2Stub_getservbyport + 0001:00285694 WS2Stub_getsockname + 0001:002856A4 WS2Stub_getsockopt + 0001:002856B4 WS2Stub_htonl + 0001:002856C4 WS2Stub_htons + 0001:002856D4 WS2Stub_inet_addr + 0001:002856E4 WS2Stub_inet_ntoa + 0001:00285674 WS2Stub_ioctlsocket + 0001:002856F4 WS2Stub_listen + 0001:00285704 WS2Stub_ntohl + 0001:00285714 WS2Stub_ntohs + 0001:00285724 WS2Stub_recv + 0001:00285734 WS2Stub_recvfrom + 0001:00285744 WS2Stub_select + 0001:00285754 WS2Stub_send + 0001:00285764 WS2Stub_sendto + 0001:00285774 WS2Stub_setsockopt + 0001:00285784 WS2Stub_shutdown + 0001:00285794 WS2Stub_socket + 0001:00285CE4 WS2Stub_TransmitFile + 0001:00285904 WS2Stub_WSAAccept + 0001:00285C54 WS2Stub_WSAAddressToString + 0001:00285AD4 WS2Stub_WSAAddressToStringA + 0001:00285AE4 WS2Stub_WSAAddressToStringW + 0001:002858C4 WS2Stub_WSAAsyncGetHostByAddr + 0001:002858B4 WS2Stub_WSAAsyncGetHostByName + 0001:00285894 WS2Stub_WSAAsyncGetProtoByName + 0001:002858A4 WS2Stub_WSAAsyncGetProtoByNumber + 0001:00285874 WS2Stub_WSAAsyncGetServByName + 0001:00285884 WS2Stub_WSAAsyncGetServByPort + 0001:002858E4 WS2Stub_WSAAsyncSelect + 0001:002858D4 WS2Stub_WSACancelAsyncRequest + 0001:00285864 WS2Stub_WSACancelBlockingCall + 0001:00285624 WS2Stub_WSACleanup + 0001:00285914 WS2Stub_WSACloseEvent + 0001:00285924 WS2Stub_WSAConnect + 0001:00285934 WS2Stub_WSACreateEvent + 0001:00285C24 WS2Stub_WSADuplicateSocket + 0001:00285944 WS2Stub_WSADuplicateSocketA + 0001:00285954 WS2Stub_WSADuplicateSocketW + 0001:00285CB4 WS2Stub_WSAEnumNameSpaceProviders + 0001:00285BB4 WS2Stub_WSAEnumNameSpaceProvidersA + 0001:00285BC4 WS2Stub_WSAEnumNameSpaceProvidersW + 0001:00285964 WS2Stub_WSAEnumNetworkEvents + 0001:00285C34 WS2Stub_WSAEnumProtocols + 0001:00285974 WS2Stub_WSAEnumProtocolsA + 0001:00285984 WS2Stub_WSAEnumProtocolsW + 0001:00285994 WS2Stub_WSAEventSelect + 0001:00285824 WS2Stub_WSAGetLastError + 0001:002859A4 WS2Stub_WSAGetOverlappedResult + 0001:002859B4 WS2Stub_WSAGetQosByName + 0001:00285CA4 WS2Stub_WSAGetServiceClassInfo + 0001:00285B94 WS2Stub_WSAGetServiceClassInfoA + 0001:00285BA4 WS2Stub_WSAGetServiceClassInfoW + 0001:00285CC4 WS2Stub_WSAGetServiceClassNameByClassId + 0001:00285BD4 WS2Stub_WSAGetServiceClassNameByClassIdA + 0001:00285BE4 WS2Stub_WSAGetServiceClassNameByClassIdW + 0001:002859C4 WS2Stub_WSAHtonl + 0001:002859D4 WS2Stub_WSAHtons + 0001:00285C94 WS2Stub_WSAInstallServiceClass + 0001:00285B64 WS2Stub_WSAInstallServiceClassA + 0001:00285B74 WS2Stub_WSAInstallServiceClassW + 0001:002859E4 WS2Stub_WSAIoctl + 0001:00285834 WS2Stub_WSAIsBlocking + 0001:002859F4 WS2Stub_WSAJoinLeaf + 0001:00285C74 WS2Stub_WSALookupServiceBegin + 0001:00285B14 WS2Stub_WSALookupServiceBeginA + 0001:00285B24 WS2Stub_WSALookupServiceBeginW + 0001:00285B54 WS2Stub_WSALookupServiceEnd + 0001:00285C84 WS2Stub_WSALookupServiceNext + 0001:00285B34 WS2Stub_WSALookupServiceNextA + 0001:00285B44 WS2Stub_WSALookupServiceNextW + 0001:00285A04 WS2Stub_WSANtohl + 0001:00285A14 WS2Stub_WSANtohs + 0001:00285C14 WS2Stub_WSAProviderConfigChange + 0001:00285A24 WS2Stub_WSARecv + 0001:00285A34 WS2Stub_WSARecvDisconnect + 0001:00285D14 WS2Stub_WSARecvEx + 0001:00285A44 WS2Stub_WSARecvFrom + 0001:00285B84 WS2Stub_WSARemoveServiceClass + 0001:00285A54 WS2Stub_WSAResetEvent + 0001:00285A64 WS2Stub_WSASend + 0001:00285A74 WS2Stub_WSASendDisconnect + 0001:00285A84 WS2Stub_WSASendTo + 0001:00285854 WS2Stub_WSASetBlockingHook + 0001:00285A94 WS2Stub_WSASetEvent + 0001:00285814 WS2Stub_WSASetLastError + 0001:00285CD4 WS2Stub_WSASetService + 0001:00285BF4 WS2Stub_WSASetServiceA + 0001:00285C04 WS2Stub_WSASetServiceW + 0001:00285C44 WS2Stub_WSASocket + 0001:00285AA4 WS2Stub_WSASocketA + 0001:00285AB4 WS2Stub_WSASocketW + 0001:00285C64 WS2Stub_WSAStringToAddress + 0001:00285AF4 WS2Stub_WSAStringToAddressA + 0001:00285B04 WS2Stub_WSAStringToAddressW + 0001:00285844 WS2Stub_WSAUnhookBlockingHook + 0001:00285AC4 WS2Stub_WSAWaitForMultipleEvents + 0001:002858F4 WS2Stub___WSAFDIsSet + 0001:002855F8 WS2Unload + 0002:00008A5C WS2_WSAStartup + 0002:00008950 WSAAccept + 0002:000089D8 WSAAddressToString + 0002:000089D0 WSAAddressToStringA + 0002:000089D4 WSAAddressToStringW + 0002:00008940 WSAAsyncGetHostByAddr + 0001:0010DACC WSAAsyncGetHostByName + 0002:0000893C WSAAsyncGetHostByName + 0002:00008934 WSAAsyncGetProtoByName + 0002:00008938 WSAAsyncGetProtoByNumber + 0002:0000892C WSAAsyncGetServByName + 0002:00008930 WSAAsyncGetServByPort + 0002:00008948 WSAAsyncSelect + 0002:00008944 WSACancelAsyncRequest + 0002:00008928 WSACancelBlockingCall + 0001:0010DAEC WSACancelBlockingCall + 0002:00008898 WSACleanup + 0001:0010DB04 WSACleanup + 0002:00008954 WSACloseEvent + 0002:00008958 WSAConnect + 0002:0000895C WSACreateEvent + 0002:00008968 WSADuplicateSocket + 0002:00008960 WSADuplicateSocketA + 0002:00008964 WSADuplicateSocketW + 0002:00008A28 WSAEnumNameSpaceProviders + 0002:00008A20 WSAEnumNameSpaceProvidersA + 0002:00008A24 WSAEnumNameSpaceProvidersW + 0002:0000896C WSAEnumNetworkEvents + 0002:00008978 WSAEnumProtocols + 0002:00008970 WSAEnumProtocolsA + 0002:00008974 WSAEnumProtocolsW + 0002:0000897C WSAEventSelect + 0001:0010DA24 WSAGetAsyncError + 0001:0010DAE4 WSAGetLastError + 0002:00008918 WSAGetLastError + 0002:00008980 WSAGetOverlappedResult + 0002:00008984 WSAGetQosByName + 0002:00008A1C WSAGetServiceClassInfo + 0002:00008A14 WSAGetServiceClassInfoA + 0002:00008A18 WSAGetServiceClassInfoW + 0002:00008A34 WSAGetServiceClassNameByClassId + 0002:00008A2C WSAGetServiceClassNameByClassIdA + 0002:00008A30 WSAGetServiceClassNameByClassIdW + 0002:00008988 WSAHtonl + 0002:0000898C WSAHtons + 0002:00008A0C WSAInstallServiceClass + 0002:00008A04 WSAInstallServiceClassA + 0002:00008A08 WSAInstallServiceClassW + 0002:00008990 WSAIoctl + 0002:0000891C WSAIsBlocking + 0001:0010DAF4 WSAIsBlocking + 0002:00008994 WSAJoinLeaf + 0002:000089F0 WSALookupServiceBegin + 0002:000089E8 WSALookupServiceBeginA + 0002:000089EC WSALookupServiceBeginW + 0002:00008A00 WSALookupServiceEnd + 0002:000089FC WSALookupServiceNext + 0002:000089F4 WSALookupServiceNextA + 0002:000089F8 WSALookupServiceNextW + 0002:00008998 WSANtohl + 0002:0000899C WSANtohs + 0002:00008A44 WSAProviderConfigChange + 0002:000089A0 WSARecv + 0002:000089A4 WSARecvDisconnect + 0002:00008A54 WSARecvEx + 0002:000089A8 WSARecvFrom + 0002:00008A10 WSARemoveServiceClass + 0002:000089AC WSAResetEvent + 0002:000089B0 WSASend + 0002:000089B4 WSASendDisconnect + 0002:000089B8 WSASendTo + 0002:00008924 WSASetBlockingHook + 0001:0010DAD4 WSASetBlockingHook + 0002:000089BC WSASetEvent + 0002:00008914 WSASetLastError + 0002:00008A40 WSASetService + 0002:00008A38 WSASetServiceA + 0002:00008A3C WSASetServiceW + 0002:000089C8 WSASocket + 0002:000089C0 WSASocketA + 0002:000089C4 WSASocketW + 0001:002864B8 WSAStartup + 0001:0010DAFC WSAStartup + 0002:000089E4 WSAStringToAddress + 0002:000089DC WSAStringToAddressA + 0002:000089E0 WSAStringToAddressW + 0001:0010DADC WSAUnhookBlockingHook + 0002:00008920 WSAUnhookBlockingHook + 0002:000089CC WSAWaitForMultipleEvents + 0001:00111A44 Wsockc + 0001:00003CEC WStrError + 0001:00003D0C WStrSet + 0001:0003A434 xEnumDisplayMonitors + 0002:00002E18 XferOuttoInOnMeds + 0002:00002E14 XfInToOutNow + 0001:0003A140 xGetMonitorInfo + 0001:0003A23C xGetMonitorInfoA + 0001:0003A338 xGetMonitorInfoW + 0001:000D3CA4 XLabelOrValue + 0002:00002410 XMLCnvChr + 0002:00002424 XMLCnvStr + 0001:002D1A4C XMLImportError + 0001:0018BFC8 XMLUtils + 0001:0003A0A4 xMonitorFromPoint + 0001:00039F58 xMonitorFromRect + 0001:00039FF8 xMonitorFromWindow + 0001:000E41F4 XorRects + 0001:000E7230 XOutsideHorzFixedBoundary + 0001:000E7284 XOutsideOrEqualHorzFixedBoundary + 0002:00005D24 xParkingWindow + 0002:00008D58 XQAID + 0001:001BEEB8 XuDigSigSC_TLB + 0001:00115A74 XWBRich20 + 0001:0010DA1C Xwbut1 + 0001:00207668 ZForm + 0001:000DC4DC ZoomAxis + 0001:001AD048 _CopyBytes + 0001:001AD058 _CopyOddFractions + 0001:001AD080 _CopyRestBlank + 0001:00006F18 _CreateWindowEx + 0001:001ACEF4 _Divide + 0002:00005978 _FlatSB_GetScrollProp + 0002:0000597C _FlatSB_SetScrollProp + 0001:001AD028 _GetRemainder + 0001:001AD038 _GetSubRemainder + 0001:00039EB4 _GetSystemMetrics + 0002:00005BF4 _ImmGetCompositionString + 0002:00005BD8 _ImmGetContext + 0002:00005BE0 _ImmGetConversionStatus + 0002:00005BF8 _ImmIsIME + 0002:00005BFC _ImmNotifyIME + 0002:00005BDC _ImmReleaseContext + 0002:00005BF0 _ImmSetCompositionFont + 0002:00005BEC _ImmSetCompositionWindow + 0002:00005BE4 _ImmSetConversionStatus + 0002:00005BE8 _ImmSetOpenStatus + 0002:00005908 _InitCommonControlsEx + 0002:00005980 _InitializeFlatSB + 0001:001ACD64 _LongDivide + 0001:001AC3E8 _LongMultiply + 0001:001AC770 _Multiply + 0002:00005D30 _OleCreateFontIndirect + 0002:00005D34 _OleCreatePictureIndirect + 0002:00005D2C _OleCreatePropertyFrame + 0002:00005D38 _OleLoadPicture + 0001:001AC11C _ShortMultiply + 0002:00005984 _UninitializeFlatSB + 0002:00005BD4 _WINNLSEnableIME + 0002:0000894C __WSAFDIsSet + + + Address Publics by Value + + 0002:FF87E010 TlsLast + 0001:000002EC GetStdHandle + 0001:000002F4 RaiseException + 0001:000002FC RtlUnwind + 0001:00000304 UnhandledExceptionFilter + 0001:0000030C WriteFile + 0001:00000314 CharNext + 0001:0000031C CreateThread + 0001:00000324 ExitThread + 0001:0000032C ExitProcess + 0001:00000334 MessageBox + 0001:0000033C FindClose + 0001:00000344 FindFirstFile + 0001:0000034C FreeLibrary + 0001:00000354 GetCommandLine + 0001:0000035C GetLocaleInfo + 0001:00000364 GetModuleFileName + 0001:0000036C GetModuleHandle + 0001:00000374 GetProcAddress + 0001:0000037C GetStartupInfo + 0001:00000384 GetThreadLocale + 0001:0000038C LoadLibraryEx + 0001:00000394 LoadString + 0001:0000039C lstrcpyn + 0001:000003A4 @strlen + 0001:000003AC MultiByteToWideChar + 0001:000003B4 RegCloseKey + 0001:000003BC RegOpenKeyEx + 0001:000003C4 RegQueryValueEx + 0001:000003CC WideCharToMultiByte + 0001:000003D4 VirtualQuery + 0001:000003DC SysAllocStringLen + 0001:000003E4 SysReAllocStringLen + 0001:000003EC SysFreeString + 0001:000003F4 InterlockedIncrement + 0001:000003FC InterlockedDecrement + 0001:00000404 GetCurrentThreadId + 0001:0000040C GetVersion + 0001:00000414 QueryPerformanceCounter + 0001:0000041C GetTickCount + 0001:00000424 GetCmdShow + 0001:00000448 LocalAlloc + 0001:00000450 LocalFree + 0001:00000458 VirtualAlloc + 0001:00000460 VirtualFree + 0001:00000468 InitializeCriticalSection + 0001:00000470 EnterCriticalSection + 0001:00000478 LeaveCriticalSection + 0001:00000480 DeleteCriticalSection + 0001:00000488 GetBlockDesc + 0001:000004D8 MakeEmpty + 0001:000004E0 AddBlockAfter + 0001:00000510 DeleteBlock + 0001:00000528 MergeBlockAfter + 0001:00000598 RemoveBlock + 0001:0000062C GetSpace + 0001:00000690 GetSpaceAt + 0001:00000708 FreeSpace + 0001:000007C0 Commit + 0001:00000854 Decommit + 0001:000008D4 GetCommitted + 0001:00000964 GetCommittedAt + 0001:00000A88 FreeCommitted + 0001:00000B14 InitAllocator + 0001:00000BD8 UninitAllocator + 0001:00000CB8 DeleteFree + 0001:00000D1C FindCommitted + 0001:00000D4C FillBeforeGap + 0001:00000D7C InternalFreeMem + 0001:00000DA0 FillAfterGap + 0001:00000DC8 FillerSizeBeforeGap + 0001:00000E38 FillerSizeAfterGap + 0001:00000E70 DecommitFree + 0001:00000F20 InsertFree + 0001:00000FA8 FreeCurAlloc + 0001:00000FF4 MergeCommit + 0001:00001080 NewCommit + 0001:000010AC NewCommitAt + 0001:000010E0 SearchSmallBlocks + 0001:0000110C TryHarder + 0001:00001200 SysGetMem + 0001:00001390 SysFreeMem + 0001:00001534 ResizeInPlace + 0001:00001710 SysReallocMem + 0001:000017D4 @GetMem + 0001:000017F4 @FreeMem + 0001:00001814 @ReallocMem + 0001:00001864 SetMemoryManager + 0001:00001880 IsMemoryManagerSet + 0001:000018B0 ExceptObject + 0001:000018D0 ExceptAddr + 0001:000018F0 AcquireExceptionObject + 0001:00001924 RunErrorAt + 0001:00001930 ErrorAt + 0001:0000197C Error + 0001:00001988 @_IOTest + 0001:000019A8 SetInOutRes + 0001:000019B8 @Copy + 0001:000019FC IOResult + 0001:00001A1C Move + 0001:00001A5C GetParamStr + 0001:00001B48 ParamCount + 0001:00001BA8 ParamStr + 0001:00001C08 @SetLength + 0001:00001C0C Randomize + 0001:00001C34 UpCase + 0001:00001C40 Set8087CW + 0001:00001C50 Get8087CW + 0001:00001C58 @COS + 0001:00001C68 @EXP + 0001:00001C80 @INT + 0001:00001CA0 @SIN + 0001:00001CB0 @FRAC + 0001:00001CD4 @ROUND + 0001:00001CE0 @TRUNC + 0001:00001D04 @AbstractError + 0001:00001D20 InternalFlush + 0001:00001D68 Flush + 0001:00001D74 @Close + 0001:00001DCC @PStrNCat + 0001:00001DFC @PStrCpy + 0001:00001E08 @PStrNCpy + 0001:00001E24 @PStrCmp + 0001:00001EA8 @AStrCmp + 0001:00001F18 @FillChar + 0001:00001F38 @RandInt + 0001:00001F54 @StrLong + 0001:00001FB4 @Str0Long + 0001:00001FC0 @ValLong + 0001:00002094 @_CToPasStr + 0001:000020A0 @_CLenToPasStr + 0001:000020C4 @SetElem + 0001:000020E8 @SetRange + 0001:00002140 @SetEq + 0001:00002154 @SetUnion + 0001:00002160 @ValExt + 0001:00002264 FPower10 + 0001:0000226C @Pow10 + 0001:00002550 GetKeyboardType + 0001:00002558 @isNECWindows + 0001:00002588 @FpuMaskInit + 0001:0000264C @FpuInit + 0001:00002658 @BoundErr + 0001:00002660 TObject.ClassType + 0001:00002668 TObject.ClassName + 0001:0000267C TObject.ClassNameIs + 0001:000026A4 TObject.ClassParent + 0001:000026B0 TObject.NewInstance + 0001:000026CC TObject.FreeInstance + 0001:000026E0 TObject.InstanceSize + 0001:000026E8 TObject.Create + 0001:00002708 TObject.Destroy + 0001:00002718 TObject.Free + 0001:00002724 TObject.InitInstance + 0001:0000277C TObject.CleanupInstance + 0001:0000279C InvokeImplGetter + 0001:000027CC TObject.GetInterface + 0001:00002860 TObject.GetInterfaceEntry + 0001:000028A4 @IsClass + 0001:000028C8 @AsClass + 0001:000028E4 GetDynaMethod + 0001:00002914 @CallDynaInst + 0001:0000292C @FindDynaInst + 0001:00002944 TObject.InheritsFrom + 0001:00002958 TObject.ClassInfo + 0001:00002960 TObject.SafeCallException + 0001:00002968 TObject.DefaultHandler + 0001:0000296C TObject.AfterConstruction + 0001:00002970 TObject.BeforeDestruction + 0001:00002974 TObject.Dispatch + 0001:0000299C TObject.MethodAddress + 0001:000029EC TObject.MethodName + 0001:00002A2C TObject.FieldAddress + 0001:00002A7C @ClassCreate + 0001:00002ACC @ClassDestroy + 0001:00002AD4 @AfterConstruction + 0001:00002AE4 @BeforeDestruction + 0001:00002AF4 NotifyReRaise + 0001:00002B10 NotifyNonDelphiException + 0001:00002B34 NotifyExcept + 0001:00002B4C NotifyOnExcept + 0001:00002B60 NotifyAnyExcept + 0001:00002B74 CheckJmp + 0001:00002B94 NotifyExceptFinally + 0001:00002BBC NotifyTerminate + 0001:00002BD8 NotifyUnhandled + 0001:00002BF8 @HandleAnyException + 0001:00002D24 @HandleOnException + 0001:00002EAC @HandleFinally + 0001:00002EE4 @HandleAutoException + 0001:00002FA8 @RaiseExcept + 0001:00002FD0 @RaiseAgain + 0001:00003024 @DoneExcept + 0001:00003054 @TryFinallyExit + 0001:0000306C MapToRunError + 0001:0000310C @ExceptionHandler + 0001:000031AC SetExceptionHandler + 0001:000031CC UnsetExceptionHandler + 0001:000031F4 FinalizeUnits + 0001:00003254 InitUnits + 0001:000032B4 @StartExe + 0001:000032F4 @InitResStrings + 0001:00003318 @InitResStringImports + 0001:00003340 @InitImports + 0001:00003364 MakeErrorMessage + 0001:000033C0 ExitDll + 0001:000033F0 WriteErrorMessage + 0001:0000347C @Halt0 + 0001:00003554 @Halt + 0001:00003560 @RunError + 0001:0000356C @Assert + 0001:0000358C ThreadWrapper + 0001:000035C4 BeginThread + 0001:00003608 EndThread + 0001:00003610 @LStrClr + 0001:00003634 @LStrArrayClr + 0001:00003664 @LStrAsg + 0001:000036A8 @LStrLAsg + 0001:000036D4 @NewAnsiString + 0001:00003700 @LStrFromPCharLen + 0001:00003730 CharFromWChar + 0001:00003750 WCharFromChar + 0001:0000376C @LStrFromPWCharLen + 0001:000037F8 @LStrFromChar + 0001:00003808 @LStrFromPChar + 0001:00003838 @LStrFromPWChar + 0001:00003874 @LStrFromString + 0001:00003880 @LStrFromArray + 0001:00003898 @LStrFromWStr + 0001:000038AC @LStrToString + 0001:000038D0 @LStrLen + 0001:000038D8 @LStrCat + 0001:0000391C @LStrCat3 + 0001:00003990 @LStrCatN + 0001:00003A1C @LStrCmp + 0001:00003AC0 @LStrAddRef + 0001:00003AD0 @LStrToPChar + 0001:00003ADC InternalUniqueString + 0001:00003B20 UniqueString + 0001:00003B28 @UniqueStringA + 0001:00003B30 @LStrCopy + 0001:00003B70 @LStrDelete + 0001:00003BB8 @LStrInsert + 0001:00003C14 @LStrPos + 0001:00003C5C @LStrSetLength + 0001:00003CC0 @LStrOfChar + 0001:00003CEC WStrError + 0001:00003CF4 @NewWideString + 0001:00003D0C WStrSet + 0001:00003D1C @WStrClr + 0001:00003D34 @WStrArrayClr + 0001:00003D58 @WStrAsg + 0001:00003D7C @WStrFromPCharLen + 0001:00003E08 @WStrFromPWCharLen + 0001:00003E2C @WStrFromPWChar + 0001:00003E68 @WStrFromString + 0001:00003E74 @WStrFromLStr + 0001:00003E84 @WStrToString + 0001:00003EF0 @WStrToPWChar + 0001:00003F00 @WStrLen + 0001:00003F0C @WStrCat + 0001:00003F6C @WStrCatN + 0001:00003FB4 @WStrCmp + 0001:00004038 @WStrCopy + 0001:00004084 @WStrPos + 0001:000040D4 @WStrSetLength + 0001:00004118 @WStrAddRef + 0001:00004138 @InitializeRecord + 0001:00004168 @InitializeArray + 0001:000041FC @Initialize + 0001:00004208 @FinalizeRecord + 0001:0000423C @VarClr + 0001:00004254 @FinalizeArray + 0001:00004340 @Finalize + 0001:0000434C @AddRefRecord + 0001:0000437C @VarAddRef + 0001:00004394 @AddRefArray + 0001:00004454 @VarCopy + 0001:0000446C @CopyRecord + 0001:00004588 @CopyArray + 0001:0000467C @New + 0001:00004690 @Dispose + 0001:000046A0 WideCharLenToStrVar + 0001:000046AC OleStrToStrVar + 0001:000046D0 StringToOleStr + 0001:000046F4 @DispCallByIDError + 0001:000046FC @_llmul + 0001:00004720 @_lldiv + 0001:0000479C @_llmod + 0001:00004818 @_llshl + 0001:00004838 @_llushr + 0001:00004858 @ValInt64 + 0001:00004A88 @DynArrayLength + 0001:00004A90 @DynArrayHigh + 0001:00004A98 CopyArray + 0001:00004AA8 FinalizeArray + 0001:00004AB0 DynArrayClear + 0001:00004AB8 DynArraySetLength + 0001:00004C44 @DynArraySetLength + 0001:00004C50 @DynArrayCopy + 0001:00004C70 @DynArrayCopyRange + 0001:00004D64 @DynArrayClear + 0001:00004DA0 @DynArrayAsg + 0001:00004DC8 @DynArrayAddRef + 0001:00004DD4 FindHInstance + 0001:00004DFC FindClassHInstance + 0001:00004E04 DelayLoadResourceModule + 0001:00004E4C FindResourceHInstance + 0001:00004E74 FindBS + 0001:00004E88 ToLongPath + 0001:00005040 LoadResourceModule + 0001:000052B0 EnumModules + 0001:000052B8 EnumModules + 0001:000052E0 AddModuleUnloadProc + 0001:000052E8 RemoveModuleUnloadProc + 0001:000052F0 AddModuleUnloadProc + 0001:00005310 RemoveModuleUnloadProc + 0001:00005370 NotifyModuleUnload + 0001:000053CC RegisterModule + 0001:000053DC UnregisterModule + 0001:0000544C @IntfClear + 0001:00005464 @IntfCopy + 0001:00005490 @IntfCast + 0001:000054C0 @IntfAddRef + 0001:000054CC TInterfacedObject.AfterConstruction + 0001:000054D8 TInterfacedObject.BeforeDestruction + 0001:000054E8 TInterfacedObject.NewInstance + 0001:000054F8 TInterfacedObject.QueryInterface + 0001:00005520 TInterfacedObject._AddRef + 0001:00005534 TInterfacedObject._Release + 0001:0000555C @CheckAutoResult + 0001:00005578 UnicodeToUtf8 + 0001:00005654 Utf8ToUnicode + 0001:0000578C UTF8Encode + 0001:00005838 UTF8Decode + 0001:000058DC AnsiToUtf8 + 0001:0000592C LoadResString + 0001:00005984 LCIDToCodePage + 0001:000059F8 Finalization + 0001:00005A4C System + 0001:00005B20 GetModuleHandle + 0001:00005B28 LocalAlloc + 0001:00005B30 TlsGetValue + 0001:00005B38 TlsSetValue + 0001:00005B40 AllocTlsBuffer + 0001:00005B4C GetTlsSize + 0001:00005B54 InitThreadTLS + 0001:00005B98 @GetTls + 0001:00005BD8 InitializeModule + 0001:00005BE4 @InitExe + 0001:00005C28 Finalization + 0001:00005C58 SysInit + 0001:00005C60 SysGetMem + 0001:00005C68 GetModuleHandle + 0001:00005C70 GetProcAddress + 0001:00005C78 InitMemoryManager + 0001:00005D30 Finalization + 0001:00005D60 ShareMem + 0001:00005D78 Rect + 0001:00005DB0 Point + 0001:00005DD4 IntersectRect + 0001:00005E84 IsRectEmpty + 0001:00005EB8 OffsetRect + 0001:00005F04 Bounds + 0001:00005F44 CenterPoint + 0001:00005F90 Finalization + 0001:00005FC0 Types + 0001:000060A8 RegCloseKey + 0001:000060B0 RegCreateKeyEx + 0001:000060B8 RegDeleteKey + 0001:000060C0 RegDeleteValue + 0001:000060C8 RegEnumValue + 0001:000060D0 RegFlushKey + 0001:000060D8 RegOpenKeyEx + 0001:000060E0 RegQueryInfoKey + 0001:000060E8 RegQueryValueEx + 0001:000060F0 RegSetValueEx + 0001:000060F8 CloseHandle + 0001:00006100 CompareString + 0001:00006108 CreateEvent + 0001:00006110 CreateFile + 0001:00006118 CreateProcess + 0001:00006120 CreateThread + 0001:00006128 DeleteCriticalSection + 0001:00006130 EnterCriticalSection + 0001:00006138 EnumCalendarInfoA + 0001:00006140 FileTimeToDosDateTime + 0001:00006148 FileTimeToLocalFileTime + 0001:00006150 FindClose + 0001:00006158 FindFirstFile + 0001:00006160 FindResource + 0001:00006168 FormatMessage + 0001:00006170 FreeLibrary + 0001:00006178 InterlockedDecrement + 0001:00006180 InterlockedExchange + 0001:00006188 InterlockedIncrement + 0001:00006190 FreeResource + 0001:00006198 GetACP + 0001:000061A0 GetCPInfo + 0001:000061A8 GetComputerName + 0001:000061B0 GetCurrentProcessId + 0001:000061B8 GetCurrentThreadId + 0001:000061C0 GetDateFormat + 0001:000061C8 GetDiskFreeSpaceA + 0001:000061D0 GetDriveType + 0001:000061D8 GetExitCodeThread + 0001:000061E0 GetFileSize + 0001:000061E8 GetFullPathName + 0001:000061F0 GetLastError + 0001:000061F8 GetLocalTime + 0001:00006200 GetLocaleInfo + 0001:00006208 GetModuleFileName + 0001:00006210 GetModuleHandle + 0001:00006218 GetProcAddress + 0001:00006220 GetProfileString + 0001:00006228 GetShortPathName + 0001:00006230 GetStdHandle + 0001:00006238 GetStringTypeEx + 0001:00006240 GetSystemInfo + 0001:00006248 GetTempPath + 0001:00006250 GetThreadLocale + 0001:00006258 GetTickCount + 0001:00006260 GetUserDefaultLCID + 0001:00006268 GetVersion + 0001:00006270 GetVersionEx + 0001:00006278 GlobalAddAtom + 0001:00006280 GlobalAlloc + 0001:00006288 GlobalDeleteAtom + 0001:00006290 GlobalFindAtom + 0001:00006298 GlobalFree + 0001:000062A0 GlobalLock + 0001:000062A8 GlobalHandle + 0001:000062B0 GlobalReAlloc + 0001:000062B8 GlobalSize + 0001:000062C0 GlobalUnlock + 0001:000062C8 InitializeCriticalSection + 0001:000062D0 LeaveCriticalSection + 0001:000062D8 LoadLibrary + 0001:000062E0 LoadResource + 0001:000062E8 LockResource + 0001:000062F0 MulDiv + 0001:000062F8 MultiByteToWideChar + 0001:00006300 ReadFile + 0001:00006308 ResetEvent + 0001:00006310 ResumeThread + 0001:00006318 SetEndOfFile + 0001:00006320 SetErrorMode + 0001:00006328 SetEvent + 0001:00006330 SetFilePointer + 0001:00006338 SetThreadLocale + 0001:00006340 SizeofResource + 0001:00006348 Sleep + 0001:00006350 SuspendThread + 0001:00006358 TerminateThread + 0001:00006360 VirtualAlloc + 0001:00006368 VirtualQuery + 0001:00006370 WaitForSingleObject + 0001:00006378 WriteFile + 0001:00006380 lstrcmp + 0001:00006388 lstrcpy + 0001:00006390 GetFileVersionInfo + 0001:00006398 GetFileVersionInfoSize + 0001:000063A0 VerQueryValue + 0001:000063A8 Arc + 0001:000063B0 BitBlt + 0001:000063B8 CloseEnhMetaFile + 0001:000063C0 CombineRgn + 0001:000063C8 CopyEnhMetaFile + 0001:000063D0 CreateBitmap + 0001:000063D8 CreateBrushIndirect + 0001:000063E0 CreateCompatibleBitmap + 0001:000063E8 CreateCompatibleDC + 0001:000063F0 CreateDC + 0001:000063F8 CreateDIBSection + 0001:00006400 CreateDIBitmap + 0001:00006408 CreateEnhMetaFile + 0001:00006410 CreateFont + 0001:00006418 CreateFontIndirect + 0001:00006420 CreateHalftonePalette + 0001:00006428 CreateIC + 0001:00006430 CreatePalette + 0001:00006438 CreatePen + 0001:00006440 CreatePenIndirect + 0001:00006448 CreatePolygonRgn + 0001:00006450 CreateRectRgn + 0001:00006458 CreateSolidBrush + 0001:00006460 DeleteDC + 0001:00006468 DeleteEnhMetaFile + 0001:00006470 DeleteObject + 0001:00006478 Ellipse + 0001:00006480 EndDoc + 0001:00006488 EndPage + 0001:00006490 ExcludeClipRect + 0001:00006498 ExtCreatePen + 0001:000064A0 ExtSelectClipRgn + 0001:000064A8 ExtTextOut + 0001:000064B0 GetBitmapBits + 0001:000064B8 GetBkColor + 0001:000064C0 GetBkMode + 0001:000064C8 GetBrushOrgEx + 0001:000064D0 GetClipBox + 0001:000064D8 GetClipRgn + 0001:000064E0 GetCurrentPositionEx + 0001:000064E8 GetDCOrgEx + 0001:000064F0 GetDIBColorTable + 0001:000064F8 GetDIBits + 0001:00006500 GetDeviceCaps + 0001:00006508 GetEnhMetaFileBits + 0001:00006510 GetEnhMetaFileDescription + 0001:00006518 GetEnhMetaFileHeader + 0001:00006520 GetEnhMetaFilePaletteEntries + 0001:00006528 GetObject + 0001:00006530 GetPaletteEntries + 0001:00006538 GetPixel + 0001:00006540 GetRgnBox + 0001:00006548 GetStockObject + 0001:00006550 GetSystemPaletteEntries + 0001:00006558 GetTextAlign + 0001:00006560 GetTextExtentPoint32 + 0001:00006568 GetTextExtentPoint + 0001:00006570 GetTextFace + 0001:00006578 GetTextMetrics + 0001:00006580 GetWinMetaFileBits + 0001:00006588 GetWindowOrgEx + 0001:00006590 IntersectClipRect + 0001:00006598 LPtoDP + 0001:000065A0 LineTo + 0001:000065A8 MaskBlt + 0001:000065B0 MoveToEx + 0001:000065B8 PatBlt + 0001:000065C0 Pie + 0001:000065C8 PlayEnhMetaFile + 0001:000065D0 PolyPolyline + 0001:000065D8 Polygon + 0001:000065E0 Polyline + 0001:000065E8 RealizePalette + 0001:000065F0 RectVisible + 0001:000065F8 Rectangle + 0001:00006600 RestoreDC + 0001:00006608 RoundRect + 0001:00006610 SaveDC + 0001:00006618 SelectClipRgn + 0001:00006620 SelectObject + 0001:00006628 SelectPalette + 0001:00006630 SetAbortProc + 0001:00006638 SetBkColor + 0001:00006640 SetBkMode + 0001:00006648 SetBrushOrgEx + 0001:00006650 SetDIBColorTable + 0001:00006658 SetEnhMetaFileBits + 0001:00006660 SetMapMode + 0001:00006668 SetPixel + 0001:00006670 SetROP2 + 0001:00006678 SetStretchBltMode + 0001:00006680 SetTextAlign + 0001:00006688 SetTextColor + 0001:00006690 SetViewportExtEx + 0001:00006698 SetViewportOrgEx + 0001:000066A0 SetWinMetaFileBits + 0001:000066A8 SetWindowExtEx + 0001:000066B0 SetWindowOrgEx + 0001:000066B8 StartDoc + 0001:000066C0 StartPage + 0001:000066C8 StretchBlt + 0001:000066D0 StretchDIBits + 0001:000066D8 TextOut + 0001:000066E0 UnrealizeObject + 0001:000066E8 ActivateKeyboardLayout + 0001:000066F0 AdjustWindowRectEx + 0001:000066F8 AnsiLower + 0001:00006700 AppendMenu + 0001:00006708 BeginDeferWindowPos + 0001:00006710 BeginPaint + 0001:00006718 BringWindowToTop + 0001:00006720 CallNextHookEx + 0001:00006728 CallWindowProc + 0001:00006730 CharLowerBuff + 0001:00006738 CharNext + 0001:00006740 CharToOemA + 0001:00006748 CharUpperBuff + 0001:00006750 CheckMenuItem + 0001:00006758 ChildWindowFromPoint + 0001:00006760 ClientToScreen + 0001:00006768 CloseClipboard + 0001:00006770 CreateIcon + 0001:00006778 CreateMenu + 0001:00006780 CreatePopupMenu + 0001:00006788 DefFrameProc + 0001:00006790 DefMDIChildProc + 0001:00006798 DefWindowProc + 0001:000067A0 DeferWindowPos + 0001:000067A8 DeleteMenu + 0001:000067B0 DestroyCursor + 0001:000067B8 DestroyIcon + 0001:000067C0 DestroyMenu + 0001:000067C8 DestroyWindow + 0001:000067D0 DispatchMessage + 0001:000067D8 DrawEdge + 0001:000067E0 DrawFocusRect + 0001:000067E8 DrawFrameControl + 0001:000067F0 DrawIcon + 0001:000067F8 DrawIconEx + 0001:00006800 DrawMenuBar + 0001:00006808 DrawText + 0001:00006810 EmptyClipboard + 0001:00006818 EnableMenuItem + 0001:00006820 EnableScrollBar + 0001:00006828 EnableWindow + 0001:00006830 EndDeferWindowPos + 0001:00006838 EndPaint + 0001:00006840 EnumClipboardFormats + 0001:00006848 EnumThreadWindows + 0001:00006850 EnumWindows + 0001:00006858 EqualRect + 0001:00006860 FillRect + 0001:00006868 FindWindow + 0001:00006870 FrameRect + 0001:00006878 GetActiveWindow + 0001:00006880 GetCapture + 0001:00006888 GetCaretPos + 0001:00006890 GetClassInfo + 0001:00006898 GetClassName + 0001:000068A0 GetClientRect + 0001:000068A8 GetClipboardData + 0001:000068B0 GetCursor + 0001:000068B8 GetCursorPos + 0001:000068C0 GetDC + 0001:000068C8 GetDCEx + 0001:000068D0 GetDesktopWindow + 0001:000068D8 GetDlgItem + 0001:000068E0 GetDoubleClickTime + 0001:000068E8 GetFocus + 0001:000068F0 GetForegroundWindow + 0001:000068F8 GetIconInfo + 0001:00006900 GetKeyNameText + 0001:00006908 GetKeyState + 0001:00006910 GetKeyboardLayout + 0001:00006918 GetKeyboardLayoutList + 0001:00006920 GetKeyboardState + 0001:00006928 GetLastActivePopup + 0001:00006930 GetMenu + 0001:00006938 GetMenuItemCount + 0001:00006940 GetMenuItemID + 0001:00006948 GetMenuItemInfo + 0001:00006950 GetMenuState + 0001:00006958 GetMenuString + 0001:00006960 GetMessagePos + 0001:00006968 GetMessageTime + 0001:00006970 GetNextWindow + 0001:00006978 GetParent + 0001:00006980 GetProp + 0001:00006988 GetScrollInfo + 0001:00006990 GetScrollPos + 0001:00006998 GetScrollRange + 0001:000069A0 GetSubMenu + 0001:000069A8 GetSysColor + 0001:000069B0 GetSysColorBrush + 0001:000069B8 GetSystemMenu + 0001:000069C0 GetSystemMetrics + 0001:000069C8 GetTabbedTextExtent + 0001:000069D0 GetTopWindow + 0001:000069D8 GetUpdateRect + 0001:000069E0 GetWindow + 0001:000069E8 GetWindowDC + 0001:000069F0 GetWindowLong + 0001:000069F8 GetWindowPlacement + 0001:00006A00 GetWindowRect + 0001:00006A08 GetWindowText + 0001:00006A10 GetWindowThreadProcessId + 0001:00006A18 GetWindowThreadProcessId + 0001:00006A20 HideCaret + 0001:00006A28 InflateRect + 0001:00006A30 InsertMenu + 0001:00006A38 InsertMenuItem + 0001:00006A40 IntersectRect + 0001:00006A48 InvalidateRect + 0001:00006A50 IsCharAlpha + 0001:00006A58 IsCharAlphaNumeric + 0001:00006A60 IsChild + 0001:00006A68 IsClipboardFormatAvailable + 0001:00006A70 IsDialogMessage + 0001:00006A78 IsIconic + 0001:00006A80 IsRectEmpty + 0001:00006A88 IsWindow + 0001:00006A90 IsWindowEnabled + 0001:00006A98 IsWindowVisible + 0001:00006AA0 IsZoomed + 0001:00006AA8 KillTimer + 0001:00006AB0 LoadBitmap + 0001:00006AB8 LoadCursor + 0001:00006AC0 LoadIcon + 0001:00006AC8 LoadKeyboardLayout + 0001:00006AD0 LoadString + 0001:00006AD8 MapVirtualKey + 0001:00006AE0 MapWindowPoints + 0001:00006AE8 MessageBeep + 0001:00006AF0 MessageBox + 0001:00006AF8 MoveWindow + 0001:00006B00 MsgWaitForMultipleObjects + 0001:00006B08 OemToAnsi + 0001:00006B10 OffsetRect + 0001:00006B18 OpenClipboard + 0001:00006B20 PeekMessage + 0001:00006B28 PostMessage + 0001:00006B30 PostQuitMessage + 0001:00006B38 PostThreadMessage + 0001:00006B40 PtInRect + 0001:00006B48 RedrawWindow + 0001:00006B50 RegisterClass + 0001:00006B58 RegisterClipboardFormat + 0001:00006B60 RegisterWindowMessage + 0001:00006B68 ReleaseCapture + 0001:00006B70 ReleaseDC + 0001:00006B78 RemoveMenu + 0001:00006B80 RemoveProp + 0001:00006B88 ScreenToClient + 0001:00006B90 ScrollWindow + 0001:00006B98 ScrollWindowEx + 0001:00006BA0 SendDlgItemMessage + 0001:00006BA8 SendMessage + 0001:00006BB0 SendMessageTimeout + 0001:00006BB8 SetActiveWindow + 0001:00006BC0 SetCapture + 0001:00006BC8 SetClassLong + 0001:00006BD0 SetClipboardData + 0001:00006BD8 SetCursor + 0001:00006BE0 SetCursorPos + 0001:00006BE8 SetFocus + 0001:00006BF0 SetForegroundWindow + 0001:00006BF8 SetKeyboardState + 0001:00006C00 SetMenu + 0001:00006C08 SetMenuItemInfo + 0001:00006C10 SetParent + 0001:00006C18 SetProp + 0001:00006C20 SetRect + 0001:00006C28 SetScrollInfo + 0001:00006C30 SetScrollPos + 0001:00006C38 SetScrollRange + 0001:00006C40 SetTimer + 0001:00006C48 SetWindowLong + 0001:00006C50 SetWindowPlacement + 0001:00006C58 SetWindowPos + 0001:00006C60 SetWindowText + 0001:00006C68 SetWindowsHookEx + 0001:00006C70 ShowCursor + 0001:00006C78 ShowOwnedPopups + 0001:00006C80 ShowScrollBar + 0001:00006C88 ShowWindow + 0001:00006C90 SystemParametersInfo + 0001:00006C98 TabbedTextOut + 0001:00006CA0 TrackPopupMenu + 0001:00006CA8 TranslateMDISysAccel + 0001:00006CB0 TranslateMessage + 0001:00006CB8 UnhookWindowsHookEx + 0001:00006CC0 UnionRect + 0001:00006CC8 UnregisterClass + 0001:00006CD0 UpdateWindow + 0001:00006CD8 ValidateRect + 0001:00006CE0 WaitForInputIdle + 0001:00006CE8 WaitMessage + 0001:00006CF0 WinHelp + 0001:00006CF8 WindowFromPoint + 0001:00006D00 MakeLong + 0001:00006D28 HiWord + 0001:00006D44 GetCurrentTime + 0001:00006D58 CopyMemory + 0001:00006D7C UnlockResource + 0001:00006D94 GlobalAllocPtr + 0001:00006DA4 GlobalReAllocPtr + 0001:00006DC0 GlobalFreePtr + 0001:00006DD4 MakeROP4 + 0001:00006DF8 RGB + 0001:00006E2C GetRValue + 0001:00006E44 GetGValue + 0001:00006E60 GetBValue + 0001:00006E7C SmallPointToPoint + 0001:00006EA0 PointToSmallPoint + 0001:00006EC8 MakeWParam + 0001:00006EF0 MakeLParam + 0001:00006F18 _CreateWindowEx + 0001:00006F20 CreateWindowEx + 0001:00006F84 CreateWindow + 0001:00006FE4 HwndMSWheel + 0001:000070F8 Finalization + 0001:00007128 Windows + 0001:00007130 Finalization + 0001:00007160 Messages + 0001:000074A0 Finalization + 0001:000074D0 SysConst + 0001:000080FC DivMod + 0001:00008118 ConvertError + 0001:00008138 ConvertErrorFmt + 0001:00008168 IsEqualGUID + 0001:00008170 AllocMem + 0001:00008198 DoExitProc + 0001:000081DC AddExitProc + 0001:0000822C UpperCase + 0001:00008298 LowerCase + 0001:00008304 CompareStr + 0001:00008334 CompareMem + 0001:00008354 CompareText + 0001:000083A8 SameText + 0001:000083CC AnsiUpperCase + 0001:00008414 AnsiLowerCase + 0001:0000845C AnsiCompareStr + 0001:000084A8 AnsiCompareText + 0001:000084F4 AnsiSameText + 0001:00008518 AnsiStrIComp + 0001:0000854C AnsiStrLIComp + 0001:00008584 Trim + 0001:000085F8 TrimLeft + 0001:00008648 TrimRight + 0001:00008690 AnsiQuotedStr + 0001:000087FC AnsiExtractQuotedStr + 0001:00008984 AdjustLineBreaks + 0001:00008B58 IsValidIdent + 0001:00008BD4 CvtInt + 0001:00008C20 IntToStr + 0001:00008C40 CvtInt64 + 0001:00008D0C IntToStr + 0001:00008D34 IntToHex + 0001:00008D5C IntToHex + 0001:00008D8C StrToInt + 0001:00008DCC StrToIntDef + 0001:00008DFC TryStrToInt + 0001:00008E28 StrToInt64 + 0001:00008E6C StrToInt64Def + 0001:00008EA4 TryStrToInt64 + 0001:00008ED4 VerifyBoolStrArray + 0001:00008F68 CompareWith + 0001:00008FB8 TryStrToBool + 0001:00009064 BoolToStr + 0001:000090C0 FileOpen + 0001:00009130 FileCreate + 0001:00009164 FileCreate + 0001:00009184 FileRead + 0001:000091BC FileWrite + 0001:000091F4 FileSeek + 0001:00009230 FileClose + 0001:00009244 FileAge + 0001:000092B4 FileExists + 0001:000092D4 AnsiLastChar + 0001:00009320 LastDelimiter + 0001:00009390 ChangeFileExt + 0001:00009430 ExtractFilePath + 0001:00009470 ExtractFileName + 0001:000094B4 ExtractFileExt + 0001:00009514 ExpandFileName + 0001:00009558 ExtractShortPathName + 0001:00009598 BackfillGetDiskFreeSpaceEx + 0001:00009618 StrLen + 0001:00009630 StrEnd + 0001:00009644 StrMove + 0001:00009670 StrCopy + 0001:00009698 StrECopy + 0001:000096C4 StrLCopy + 0001:000096F8 StrPCopy + 0001:0000972C StrPLCopy + 0001:0000975C StrCat + 0001:00009788 StrComp + 0001:000097AC StrIComp + 0001:000097EC StrLComp + 0001:00009814 StrLIComp + 0001:00009858 StrScan + 0001:00009890 StrPos + 0001:000098E4 StrPas + 0001:00009900 StrAlloc + 0001:0000992C StrBufSize + 0001:00009954 StrNew + 0001:00009994 StrDispose + 0001:000099B8 FormatError + 0001:00009A20 FormatVarToStr + 0001:00009A58 FormatClearStr + 0001:00009A6C FormatBuf + 0001:00009DE4 StrFmt + 0001:00009E40 StrLFmt + 0001:00009E98 Format + 0001:00009EC0 FmtStr + 0001:00009F9C PutExponent + 0001:00009FE0 FloatToText + 0001:0000A2B4 FloatToTextFmt + 0001:0000A5A8 FloatToDecimal + 0001:0000A7D4 TextToFloat + 0001:0000A8E8 FloatToStr + 0001:0000A918 CurrToStr + 0001:0000A948 FloatToStrF + 0001:0000A984 FormatFloat + 0001:0000A9DC StrToFloat + 0001:0000AA1C TryStrToFloat + 0001:0000AA44 TryStrToFloat + 0001:0000AA7C TryStrToFloat + 0001:0000AAB4 TryStrToCurr + 0001:0000AADC DateTimeToTimeStamp + 0001:0000AB20 TryEncodeTime + 0001:0000ABA0 EncodeTime + 0001:0000ABE4 DecodeTime + 0001:0000AC44 IsLeapYear + 0001:0000AC88 TryEncodeDate + 0001:0000AD8C EncodeDate + 0001:0000ADC8 DecodeDateFully + 0001:0000AF44 DecodeDate + 0001:0000AF74 DateTimeToSystemTime + 0001:0000AFCC SystemTimeToDateTime + 0001:0000B060 DayOfWeek + 0001:0000B090 Date + 0001:0000B0BC Now + 0001:0000B104 IncMonth + 0001:0000B160 IncAMonth + 0001:0000B21C ReplaceTime + 0001:0000B284 CurrentYear + 0001:0000B2A4 AppendChars + 0001:0000B304 AppendString + 0001:0000B328 AppendNumber + 0001:0000B378 GetCount + 0001:0000B3B0 GetDate + 0001:0000B3E8 GetTime + 0001:0000B428 ConvertEraString + 0001:0000B5AC ConvertYearString + 0001:0000B6C4 AppendFormat + 0001:0000BECC DateTimeToString + 0001:0000BF38 DateToStr + 0001:0000BF58 DateTimeToStr + 0001:0000BF74 FormatDateTime + 0001:0000BF98 ScanBlanks + 0001:0000BFD8 ScanNumber + 0001:0000C08C ScanString + 0001:0000C124 ScanChar + 0001:0000C174 GetDateOrder + 0001:0000C1DC ScanToNumber + 0001:0000C244 GetEraYearOffset + 0001:0000C2A8 EraToYear + 0001:0000C310 ScanDate + 0001:0000C6A4 ScanTime + 0001:0000C8C0 TryStrToDate + 0001:0000C904 StrToTime + 0001:0000C93C TryStrToTime + 0001:0000C980 StrToDateTime + 0001:0000C9B8 TryStrToDateTime + 0001:0000CA4C SysErrorMessage + 0001:0000CAB0 GetLocaleStr + 0001:0000CB0C GetLocaleChar + 0001:0000CB48 LocalGetLocaleStr + 0001:0000CB8C GetMonthDayNames + 0001:0000CCC0 EnumEraNames + 0001:0000CD0C EnumEraYearOffsets + 0001:0000CD98 GetEraNamesAndYearOffsets + 0001:0000CE5C TranslateDateFormat + 0001:0000D100 ConvertAddr + 0001:0000D110 ExceptionErrorMessage + 0001:0000D2C8 ShowException + 0001:0000D3A4 ReturnAddr + 0001:0000D3AC Abort + 0001:0000D3D0 OutOfMemoryError + 0001:0000D3DC Exception.Create + 0001:0000D424 Exception.CreateFmt + 0001:0000D4B4 Exception.CreateRes + 0001:0000D4FC Exception.CreateResFmt + 0001:0000D5A0 Exception.CreateHelp + 0001:0000D5F4 EHeapException.FreeInstance + 0001:0000D630 CreateInOutError + 0001:0000D6D4 ErrorHandler + 0001:0000D744 CreateAssertException + 0001:0000D7FC RaiseAssertException + 0001:0000D80C AssertErrorHandler + 0001:0000D844 AbstractErrorHandler + 0001:0000D860 MapException + 0001:0000D914 GetExceptionClass + 0001:0000D940 CreateAVObject + 0001:0000DB24 GetExceptionObject + 0001:0000DC04 ExceptHandler + 0001:0000DC2C InitExceptions + 0001:0000DCB4 DoneExceptions + 0001:0000DD38 InitPlatformId + 0001:0000DDB8 CheckWin32Version + 0001:0000DDF4 GetFileVersion + 0001:0000DEE4 Beep + 0001:0000DEF0 ByteTypeTest + 0001:0000DF9C ByteType + 0001:0000DFD0 StrByteType + 0001:0000E000 ByteToCharLen + 0001:0000E03C ByteToCharIndex + 0001:0000E0C0 CountChars + 0001:0000E178 CharToByteIndex + 0001:0000E1F0 CharToByteLen + 0001:0000E264 StrCharLength + 0001:0000E298 StrNextChar + 0001:0000E2B4 CharLength + 0001:0000E304 NextCharIndex + 0001:0000E358 IsPathDelimiter + 0001:0000E3A4 IsDelimiter + 0001:0000E400 IncludeTrailingPathDelimiter + 0001:0000E454 AnsiPos + 0001:0000E4A0 AnsiLowerCaseFileName + 0001:0000E574 AnsiStrPos + 0001:0000E64C AnsiStrRScan + 0001:0000E69C AnsiStrScan + 0001:0000E6F4 LCIDToCodePage + 0001:0000E76C InitLeadBytes + 0001:0000E7EC IsWesternGroup + 0001:0000E810 InitSysLocale + 0001:0000E9BC GetFormatSettings + 0001:0000ED50 StringReplace + 0001:0000EEAC WrapText + 0001:0000F12C FindCmdLineSwitch + 0001:0000F258 Sleep + 0001:0000F260 RaiseLastOSError + 0001:0000F30C Win32Check + 0001:0000F330 AddTerminateProc + 0001:0000F368 CallTerminateProcs + 0001:0000F3A4 FreeTerminateProcs + 0001:0000F3D8 InitDriveSpacePtr + 0001:0000F43C InterlockedIncrement + 0001:0000F448 InterlockedDecrement + 0001:0000F454 InterlockedExchange + 0001:0000F45C InterlockedExchangeAdd + 0001:0000F464 TThreadLocalCounter.Destroy + 0001:0000F4E0 TThreadLocalCounter.HashIndex + 0001:0000F504 TThreadLocalCounter.Open + 0001:0000F5B4 TThreadLocalCounter.Delete + 0001:0000F5D8 TThreadLocalCounter.Recycle + 0001:0000F63C TMultiReadExclusiveWriteSynchronizer.Create + 0001:0000F6CC TMultiReadExclusiveWriteSynchronizer.Destroy + 0001:0000F728 TMultiReadExclusiveWriteSynchronizer.BlockReaders + 0001:0000F740 TMultiReadExclusiveWriteSynchronizer.UnblockReaders + 0001:0000F758 TMultiReadExclusiveWriteSynchronizer.UnblockOneWriter + 0001:0000F770 TMultiReadExclusiveWriteSynchronizer.WaitForReadSignal + 0001:0000F790 TMultiReadExclusiveWriteSynchronizer.WaitForWriteSignal + 0001:0000F7B0 TMultiReadExclusiveWriteSynchronizer.BeginWrite + 0001:0000F88C TMultiReadExclusiveWriteSynchronizer.EndWrite + 0001:0000F8F8 TMultiReadExclusiveWriteSynchronizer.BeginRead + 0001:0000F980 TMultiReadExclusiveWriteSynchronizer.EndRead + 0001:0000FA04 FreeAndNil + 0001:0000FA28 Supports + 0001:0000FA64 Supports + 0001:0000FB0C SafeLoadLibrary + 0001:0000FE64 Finalization + 0001:0000FFE4 SysUtils + 0001:00010064 VariantInit + 0001:0001006C VariantClear + 0001:00010074 VariantCopy + 0001:0001007C VariantCopyInd + 0001:00010084 VariantChangeType + 0001:0001008C BackupVariantChangeTypeEx + 0001:000100C4 UniUnimplemented + 0001:000100D8 BiUnimplemented + 0001:000100EC CmpUnimplemented + 0001:00010100 BackupVarI4FromStr + 0001:00010174 BackupVarR4FromStr + 0001:000101E8 BackupVarR8FromStr + 0001:0001025C BackupVarDateFromStr + 0001:000102D0 BackupVarCyFromStr + 0001:00010344 BackupVarBoolFromStr + 0001:000103C8 BackupVarBStrFromCy + 0001:00010444 BackupVarBStrFromDate + 0001:000104C0 BackupVarBStrFromBool + 0001:00010540 SafeArrayCreate + 0001:00010548 SafeArrayGetLBound + 0001:00010550 SafeArrayGetUBound + 0001:00010558 SafeArrayAccessData + 0001:00010560 SafeArrayUnaccessData + 0001:00010568 SafeArrayGetElement + 0001:00010570 SafeArrayPutElement + 0001:00010578 SafeArrayPtrOfIndex + 0001:00010580 FindProc + 0001:000105C4 InitializeVarUtils + 0001:000108D0 Finalization + 0001:00010900 VarUtils + 0001:000110C8 VarCastError + 0001:0001111C VarCastError + 0001:000111B8 VarInvalidOp + 0001:0001120C VarInvalidNullOp + 0001:00011260 VarOverflowError + 0001:000112FC VarArrayCreateError + 0001:00011350 TranslateResult + 0001:000115A4 VarResultCheck + 0001:000115B0 VarResultCheck + 0001:000115E4 HandleConversionException + 0001:00011668 @DispInvokeError + 0001:000116BC @VarNull + 0001:000116D0 InBounds + 0001:00011700 Increment + 0001:0001175C VarArrayClear + 0001:000118D8 VarClearDeep + 0001:00011954 @VarClear + 0001:00011968 @VarClr + 0001:00011970 @DispInvoke + 0001:00011A74 InBounds + 0001:00011AA4 Increment + 0001:00011B00 VarArrayCopyForEach + 0001:00011CCC VarCopyCopyProc + 0001:00011CD4 VarCopyDeep + 0001:00011D80 @VarCopy + 0001:00011DC4 VarCopyNoIndViaOS + 0001:00011DE4 VarCopyNoIndOleStr + 0001:00011DEC VarCopyNoIndCopyProc + 0001:00011DF4 VarCopyNoIndDeep + 0001:00011E28 VarCopyByRef + 0001:00012000 @VarCopyNoInd + 0001:00012014 @VarStringToOleStr + 0001:00012034 VarStringToOleStr + 0001:0001203C VarCastAsAny + 0001:000120A8 VarCastAsOleStr + 0001:000120F4 VarCastAsString + 0001:00012140 VarCastAsDispatch + 0001:0001218C VarCastAsInterface + 0001:000121D8 VarCastViaOS + 0001:00012258 VarCastRare + 0001:000122C4 @VarCast + 0001:000124F0 VarToIntAsString + 0001:000125A4 VarToIntViaOS + 0001:000125E0 VarToIntAny + 0001:00012644 VarToIntCustom + 0001:00012688 @VarToInteger + 0001:00012AD8 @VarToShortInt + 0001:00012B88 @VarToByte + 0001:00012C30 @VarToSmallInt + 0001:00012D28 @VarToWord + 0001:00012E00 @VarToLongWord + 0001:00012EE8 VarToInt64ViaOS + 0001:00012F94 VarToInt64AsString + 0001:00013094 VarToInt64Any + 0001:00013100 VarToInt64Custom + 0001:0001314C @VarToInt64 + 0001:00013590 VarToBoolAsString + 0001:00013658 VarToBoolViaOS + 0001:00013698 VarToBoolAny + 0001:000136FC VarToBoolCustom + 0001:00013748 @VarToBoolean + 0001:00013A90 @VarToBool + 0001:00013A9C VarToDoubleAsString + 0001:00013B60 VarToDoubleViaOS + 0001:00013BAC VarToDoubleAny + 0001:00013C10 VarToDoubleCustom + 0001:00013C5C @VarToDouble + 0001:00013FD8 @VarToReal + 0001:00013FF4 @VarToSingle + 0001:00014184 VarToDateAsString + 0001:00014270 VarToDateAsDouble + 0001:000142D0 VarToDateViaOS + 0001:0001431C VarToDateAny + 0001:00014380 VarToDateCustom + 0001:000143CC @VarToDate + 0001:0001471C VarToCurrencyAsString + 0001:000147D8 VarToCurrencyAsDouble + 0001:00014838 VarToCurrencyViaOS + 0001:00014884 VarToCurrencyAny + 0001:000148E8 VarToCurrencyCustom + 0001:00014934 @VarToCurrency + 0001:00014D00 CurrToWStrViaOS + 0001:00014D38 DateToWStrViaOS + 0001:00014D70 BoolToWStrViaOS + 0001:00014E34 VarToLStrViaOS + 0001:00014F00 VarToLStrAny + 0001:00014F64 VarToLStrCustom + 0001:00014FE8 @VarToLStr + 0001:0001552C VarToWStrViaOS + 0001:000155E4 VarToWStrAny + 0001:00015648 VarToWStrCustom + 0001:00015710 @VarToWStr + 0001:00015C70 AnyToIntf + 0001:00015CE8 @VarToIntf + 0001:00015DB4 @VarToDisp + 0001:00015E60 @VarFromInt + 0001:00015E9C @VarFromInteger + 0001:00015EBC @OleVarFromInt + 0001:00015EDC @VarFromByte + 0001:00015EFC @VarFromWord + 0001:00015F1C @VarFromLongWord + 0001:00015F3C @VarFromShortInt + 0001:00015F5C @VarFromSmallInt + 0001:00015F7C @VarFromInt64 + 0001:00015FA8 @VarFromSingle + 0001:00015FCC @VarFromDouble + 0001:00015FF8 @VarFromCurrency + 0001:00016024 @VarFromDate + 0001:00016050 @VarFromBool + 0001:00016078 @VarFromReal + 0001:0001608C @VarFromTDateTime + 0001:000160A0 @VarFromCurr + 0001:000160B4 @VarFromLStr + 0001:000160E0 @VarFromPStr + 0001:00016130 @VarFromWStr + 0001:00016168 @VarFromIntf + 0001:00016194 @VarFromDisp + 0001:000161C0 @OleVarFromLStr + 0001:00016210 OleVarFromAny + 0001:00016274 OleVarFromVarArrayProc + 0001:0001627C @OleVarFromVar + 0001:000163CC VarStrCat + 0001:00016480 VarOpRare + 0001:000167CC CheckType + 0001:000167F0 AnyOp + 0001:0001687C RealOp + 0001:00016910 DateOp + 0001:00016984 IntOp + 0001:00016A9C Int64Op + 0001:00016C94 NullOp + 0001:00016D40 EmptyOp + 0001:00016DD8 CurrOp + 0001:00016F60 SimpleVarOp + 0001:000171DC @VarOp + 0001:0001726C VarCompareAny + 0001:00017340 EmptyCompare + 0001:00017354 NullCompare + 0001:0001743C IntCompare + 0001:00017450 Int64Compare + 0001:0001748C RealCompare + 0001:000174B4 DateCompare + 0001:000174DC CurrCompare + 0001:00017508 StringCompare + 0001:00017574 VarCompareSimple + 0001:00017700 VarCompareRare + 0001:00017B20 VarCompare + 0001:00017B88 @VarAddRef + 0001:00017D0C VarTypeAsText + 0001:00017E7C VarType + 0001:00017E80 FindVarData + 0001:00017E90 VarIsClear + 0001:00017F04 VarTypeIsCustom + 0001:00017F10 VarTypeIsStr + 0001:00017F24 VarIsEmpty + 0001:00017F38 VarIsNull + 0001:00017F4C VarToStr + 0001:00017F64 VarToStrDef + 0001:00017F90 VarToWideStr + 0001:00017FE8 VarToWideStrDef + 0001:00018014 VarSameValue + 0001:0001808C SetVarAsError + 0001:000180A4 SetClearVarToEmptyParam + 0001:000180B0 GetVarDataArrayInfo + 0001:000180F4 VarArrayCreate + 0001:0001819C VarArrayAsPSafeArray + 0001:000181C4 VarArrayDimCount + 0001:000181EC VarArrayLowBound + 0001:00018210 VarArrayHighBound + 0001:00018234 VarArrayLock + 0001:00018254 VarArrayUnlock + 0001:0001826C VarIsArray + 0001:00018274 VarIsArray + 0001:0001829C VarTypeIsValidArrayType + 0001:000182BC VarTypeIsValidElementType + 0001:000182F8 @VarArrayGet + 0001:000183C4 VarArrayGet + 0001:000183E8 @VarArrayPut + 0001:00018530 VarArrayPut + 0001:00018558 DynArrayIndex + 0001:00018598 DynArrayElTypeInfo + 0001:000185B4 DynArrayDim + 0001:000185CC DynArraySize + 0001:000185D4 IsDynArrayRectangular + 0001:0001863C DynArrayBounds + 0001:00018690 DecIndices + 0001:000186FC DynArrayVariantBounds + 0001:00018754 DynArrayVarType + 0001:0001879C DynArrayToVariant + 0001:00018AEC DynArrayFromVariant + 0001:00018E20 ClearVariantTypeList + 0001:00018E8C TCustomVariantType.BinaryOp + 0001:00018E98 TCustomVariantType.Cast + 0001:00018ED0 TCustomVariantType.CastTo + 0001:00018F18 TCustomVariantType.Compare + 0001:00018F24 TCustomVariantType.CompareOp + 0001:00018F5C TCustomVariantType.CastToOle + 0001:00018F98 TCustomVariantType.Create + 0001:00018FDC TCustomVariantType.Create + 0001:00019264 TCustomVariantType.Destroy + 0001:000192F0 TCustomVariantType.IsClear + 0001:000192F4 TCustomVariantType.LeftPromotion + 0001:00019308 TCustomVariantType.OlePromotion + 0001:00019310 TCustomVariantType.RaiseCastError + 0001:00019318 TCustomVariantType.RaiseInvalidOp + 0001:00019320 TCustomVariantType.RaiseDispError + 0001:00019328 TCustomVariantType.RightPromotion + 0001:0001933C TCustomVariantType.UnaryOp + 0001:00019344 TCustomVariantType.VarDataInit + 0001:0001934C TCustomVariantType.VarDataClear + 0001:00019354 TCustomVariantType.VarDataCopyNoInd + 0001:00019360 TCustomVariantType.VarDataCastTo + 0001:00019374 TCustomVariantType.VarDataIsByRef + 0001:0001937C TCustomVariantType.DispInvoke + 0001:00019388 TCustomVariantType.VarDataFromStr + 0001:00019394 TCustomVariantType.VarDataFromOleStr + 0001:000193A0 TCustomVariantType._AddRef + 0001:000193AC TCustomVariantType._Release + 0001:000193B8 TCustomVariantType.QueryInterface + 0001:000193E0 TCustomVariantType.VarDataIsStr + 0001:000193EC TCustomVariantType.VarDataToStr + 0001:00019400 TInvokeableVariantType.FixupIdent + 0001:0001945C ParseParam + 0001:00019714 TInvokeableVariantType.DispInvoke + 0001:000199C0 TInvokeableVariantType.GetProperty + 0001:000199CC TInvokeableVariantType.SetProperty + 0001:000199D8 TInvokeableVariantType.DoFunction + 0001:000199E4 TInvokeableVariantType.DoProcedure + 0001:000199F0 FindCustomVariantType + 0001:00019AA8 FindCustomVariantType + 0001:00019B90 Unassigned + 0001:00019B98 Null + 0001:00019BA0 @VarAdd + 0001:00019BAC @VarSub + 0001:00019BB8 @VarOr + 0001:00019BC4 @VarCmpEQ + 0001:00019BD4 @VarCmpNE + 0001:00019BE4 @VarCmpLT + 0001:00019BF4 @VarCmpGT + 0001:00019C04 Finalization + 0001:00019C7C Variants + 0001:00019E80 Finalization + 0001:00019EB0 RTLConsts + 0001:0001A0C0 PropertyNotFound + 0001:0001A0F4 IsPublishedProp + 0001:0001A124 GetPropInfo + 0001:0001A150 GetPropInfo + 0001:0001A17C FindPropInfo + 0001:0001A1B8 GetOrdProp + 0001:0001A1E4 GetPropValue + 0001:0001A480 RangedValue + 0001:0001A4E8 SetPropValue + 0001:0001A7FC TPublishableVariantType.GetProperty + 0001:0001A878 TPublishableVariantType.SetProperty + 0001:0001A8AC GetTypeData + 0001:0001A8B8 GetEnumName + 0001:0001A9C0 GetEnumNameValue + 0001:0001AA0C GetEnumValue + 0001:0001AA94 GetPropInfo + 0001:0001AB04 GetPropInfo + 0001:0001AB58 GetPropInfos + 0001:0001ABAC IsStoredProp + 0001:0001ABDC GetOrdProp + 0001:0001AC50 SetOrdProp + 0001:0001ACAC GetEnumProp + 0001:0001ACDC SetEnumProp + 0001:0001AD3C GetSetProp + 0001:0001AD70 SetToString + 0001:0001AE70 NextWord + 0001:0001AEDC StringToSet + 0001:0001AFF4 SetSetProp + 0001:0001B020 GetShortStrProp + 0001:0001B064 SetShortStrProp + 0001:0001B0B8 GetShortStrPropAsLongStr + 0001:0001B0F4 SetShortStrPropAsLongStr + 0001:0001B130 AssignLongStr + 0001:0001B14C GetLongStrProp + 0001:0001B18C SetLongStrProp + 0001:0001B1CC GetWideStrPropAsLongStr + 0001:0001B22C SetWideStrPropAsLongStr + 0001:0001B28C GetStrProp + 0001:0001B2F0 SetStrProp + 0001:0001B348 GetWideStrProp + 0001:0001B458 SetWideStrProp + 0001:0001B55C GetFloatProp + 0001:0001B6A8 SetFloatProp + 0001:0001B8F8 AssignVariant + 0001:0001B914 GetVariantProp + 0001:0001B954 SetVariantProp + 0001:0001B994 GetMethodProp + 0001:0001B9D4 SetMethodProp + 0001:0001BA0C GetInt64Prop + 0001:0001BA34 SetInt64Prop + 0001:0001BA70 GetInterfaceProp + 0001:0001BB0C SetInterfaceProp + 0001:0001BBA8 Finalization + 0001:0001BBF8 TypInfo + 0001:0001BEDC IsEqualIID + 0001:0001BEE4 CoInitialize + 0001:0001BEEC CoUninitialize + 0001:0001BEF4 CoGetClassObject + 0001:0001BEFC CoRegisterClassObject + 0001:0001BF04 CoRevokeClassObject + 0001:0001BF0C CoDisconnectObject + 0001:0001BF14 CoLockObjectExternal + 0001:0001BF1C CoCreateInstance + 0001:0001BF24 StringFromCLSID + 0001:0001BF2C CLSIDFromString + 0001:0001BF34 ProgIDFromCLSID + 0001:0001BF3C CLSIDFromProgID + 0001:0001BF44 CoTaskMemAlloc + 0001:0001BF4C CoTaskMemFree + 0001:0001BF54 OleSetMenuDescriptor + 0001:0001BF5C OleDraw + 0001:0001BF64 IsAccelerator + 0001:0001BF6C CreateStreamOnHGlobal + 0001:0001BF74 SysFreeString + 0001:0001BF7C LoadTypeLib + 0001:0001BF84 LoadRegTypeLib + 0001:0001BF8C RegisterTypeLib + 0001:0001BF94 DispGetIDsOfNames + 0001:0001BF9C GetActiveObject + 0001:0001BFA4 SetErrorInfo + 0001:0001BFAC GetErrorInfo + 0001:0001BFB4 CreateErrorInfo + 0001:0001BFBC Succeeded + 0001:0001BFD4 Finalization + 0001:0001C004 ActiveX + 0001:0001DAD4 Point + 0001:0001DAF8 SmallPoint + 0001:0001DB20 Rect + 0001:0001DB4C Bounds + 0001:0001DB78 InvalidPoint + 0001:0001DBA4 InvalidPoint + 0001:0001DC7C TRegGroup.AddClass + 0001:0001DC9C TRegGroup.BestClass + 0001:0001DD10 TRegGroup.BestGroup + 0001:0001DDA4 TRegGroup.Create + 0001:0001DE2C TRegGroup.Destroy + 0001:0001DE80 TRegGroup.GetClass + 0001:0001DF04 TRegGroup.InGroup + 0001:0001DF5C TRegGroup.RegisterClass + 0001:0001E008 TRegGroup.Registered + 0001:0001E030 PointerInModule + 0001:0001E060 TRegGroup.UnregisterModuleClasses + 0001:0001E13C TRegGroups.Activate + 0001:0001E1A4 TRegGroups.Create + 0001:0001E230 TRegGroups.Destroy + 0001:0001E2AC TRegGroups.FindGroup + 0001:0001E310 TRegGroups.GetClass + 0001:0001E378 Error + 0001:0001E408 TRegGroups.GroupWith + 0001:0001E4EC TRegGroups.Lock + 0001:0001E504 TRegGroups.RegisterClass + 0001:0001E534 TRegGroups.Registered + 0001:0001E58C TRegGroups.StartGroup + 0001:0001E5F8 TRegGroups.Unlock + 0001:0001E610 TRegGroups.UnregisterModuleClasses + 0001:0001E67C TClassFinder.Create + 0001:0001E7C4 TClassFinder.Destroy + 0001:0001E800 TClassFinder.GetClass + 0001:0001E89C GetFieldClassTable + 0001:0001E8A8 ClassNotFound + 0001:0001E918 GetClass + 0001:0001E970 FindClass + 0001:0001E99C RegisterClass + 0001:0001EA14 RegisterClasses + 0001:0001EA60 UnRegisterModuleClasses + 0001:0001EAB0 StartClassGroup + 0001:0001EB00 GroupDescendentsWith + 0001:0001EB58 ActivateClassGroup + 0001:0001EC10 TIntConst.Create + 0001:0001EC68 RegisterIntegerConsts + 0001:0001ECA0 FindIntToIdent + 0001:0001ED30 FindIdentToInt + 0001:0001EDC0 IdentToInt + 0001:0001EE20 IntToIdent + 0001:0001EE7C RegisterFindGlobalComponentProc + 0001:0001EEC0 UnregisterFindGlobalComponentProc + 0001:0001EEE0 FindGlobalComponent + 0001:0001EF38 IsUniqueGlobalComponentName + 0001:0001EF70 InternalReadComponentRes + 0001:0001F014 BeginGlobalLoading + 0001:0001F07C NotifyGlobalLoading + 0001:0001F0C4 EndGlobalLoading + 0001:0001F130 InitComponent + 0001:0001F1E4 InitInheritedComponent + 0001:0001F2A8 WriteCollection + 0001:0001F31C CollectionsEqual + 0001:0001F448 TList.Destroy + 0001:0001F474 TList.Add + 0001:0001F4CC TList.Clear + 0001:0001F4EC TList.Delete + 0001:0001F580 ReturnAddr + 0001:0001F588 TList.Error + 0001:0001F5C8 TList.Error + 0001:0001F628 TList.Exchange + 0001:0001F6BC TList.Expand + 0001:0001F6E8 TList.First + 0001:0001F708 TList.Get + 0001:0001F750 TList.Grow + 0001:0001F7A8 TList.IndexOf + 0001:0001F7F4 TList.Insert + 0001:0001F8A4 TList.Last + 0001:0001F8C8 TList.Move + 0001:0001F94C TList.Put + 0001:0001F9DC TList.Remove + 0001:0001FA10 TList.SetCapacity + 0001:0001FA6C TList.SetCount + 0001:0001FB14 QuickSort + 0001:0001FBE4 TList.Sort + 0001:0001FC20 TList.Extract + 0001:0001FC7C TList.Notify + 0001:0001FC90 TList.Assign + 0001:0001FFE8 TThreadList.Create + 0001:00020050 TThreadList.Destroy + 0001:000200CC TThreadList.Add + 0001:00020158 TThreadList.LockList + 0001:00020180 TThreadList.Remove + 0001:000201D4 TThreadList.UnlockList + 0001:000201EC TBits.Destroy + 0001:00020228 TBits.Error + 0001:0002024C Min + 0001:00020274 TBits.SetSize + 0001:00020348 TBits.SetBit + 0001:00020374 TBits.GetBit + 0001:0002038C TBits.OpenBit + 0001:00020444 TPersistent.Destroy + 0001:00020480 TPersistent.Assign + 0001:000204AC TPersistent.AssignError + 0001:00020584 TPersistent.AssignTo + 0001:000205A0 TPersistent.DefineProperties + 0001:000205B0 TPersistent.GetNamePath + 0001:00020668 TPersistent.GetOwner + 0001:00020680 TInterfacedPersistent.AfterConstruction + 0001:000206DC TInterfacedPersistent._AddRef + 0001:0002070C TInterfacedPersistent._Release + 0001:0002073C TInterfacedPersistent.QueryInterface + 0001:00020768 GetDesigner + 0001:0002081C NotifyDesigner + 0001:00020888 TCollectionItem.Create + 0001:000208D0 TCollectionItem.Destroy + 0001:0002090C TCollectionItem.Changed + 0001:00020954 TCollectionItem.GetIndex + 0001:0002098C TCollectionItem.GetDisplayName + 0001:000209C0 TCollectionItem.GetNamePath + 0001:00020A80 TCollectionItem.GetOwner + 0001:00020A9C TCollectionItem.SetCollection + 0001:00020AE0 TCollectionItem.SetDisplayName + 0001:00020AFC TCollectionItem.SetIndex + 0001:00020B44 TCollection.Create + 0001:00020BA8 TCollection.Destroy + 0001:00020C0C TCollection.Add + 0001:00020C38 TCollection.Assign + 0001:00020CDC TCollection.BeginUpdate + 0001:00020CEC TCollection.Changed + 0001:00020D0C TCollection.Clear + 0001:00020D74 TCollection.EndUpdate + 0001:00020D8C TCollection.FindItemID + 0001:00020DE4 TCollection.GetAttrCount + 0001:00020DFC TCollection.GetAttr + 0001:00020E18 TCollection.GetItemAttr + 0001:00020E40 TCollection.GetCount + 0001:00020E5C TCollection.GetItem + 0001:00020E80 TCollection.GetNamePath + 0001:00020F50 TCollection.GetPropName + 0001:0002108C TCollection.Insert + 0001:000210B8 TCollection.InsertItem + 0001:00021144 TCollection.RemoveItem + 0001:000211B8 TCollection.SetItemName + 0001:000211C8 TCollection.Update + 0001:000211D8 TCollection.Delete + 0001:00021218 TCollection.Owner + 0001:0002123C TCollection.Added + 0001:0002124C TCollection.Deleting + 0001:0002125C TCollection.Notify + 0001:00021294 TOwnedCollection.Create + 0001:000212E8 TOwnedCollection.GetOwner + 0001:00021304 TStrings.Destroy + 0001:00021340 TStrings.Add + 0001:00021370 TStrings.AddObject + 0001:000213A4 TStrings.Append + 0001:000213C0 TStrings.AddStrings + 0001:00021480 TStrings.Assign + 0001:00021524 TStrings.BeginUpdate + 0001:00021548 DoWrite + 0001:000215A8 TStrings.DefineProperties + 0001:000215F4 TStrings.EndUpdate + 0001:00021618 TStrings.Equals + 0001:000216CC ReturnAddr + 0001:000216D4 TStrings.Error + 0001:00021714 TStrings.Error + 0001:00021774 TStrings.Exchange + 0001:00021860 TStrings.ExtractName + 0001:000218F0 TStrings.GetCapacity + 0001:0002190C TStrings.GetCommaText + 0001:00021994 TStrings.GetDelimitedText + 0001:00021B9C TStrings.GetName + 0001:00021C00 TStrings.GetObject + 0001:00021C18 TStrings.GetText + 0001:00021C74 TStrings.GetTextStr + 0001:00021DBC TStrings.GetValue + 0001:00021E50 TStrings.IndexOf + 0001:00021EDC TStrings.IndexOfName + 0001:00021FB8 TStrings.IndexOfObject + 0001:00022004 TStrings.InsertObject + 0001:00022038 TStrings.LoadFromFile + 0001:00022094 TStrings.LoadFromStream + 0001:00022148 TStrings.Move + 0001:00022204 TStrings.Put + 0001:00022244 TStrings.PutObject + 0001:00022258 TStrings.ReadData + 0001:00022308 TStrings.SaveToFile + 0001:00022368 TStrings.SaveToStream + 0001:000223C8 TStrings.SetCapacity + 0001:000223D8 TStrings.SetCommaText + 0001:00022408 TStrings.SetStringsAdapter + 0001:00022454 TStrings.SetText + 0001:000224AC TStrings.SetTextStr + 0001:0002258C TStrings.SetUpdateState + 0001:0002259C TStrings.SetValue + 0001:0002265C TStrings.WriteData + 0001:000226E8 TStrings.SetDelimitedText + 0001:00022860 TStrings.GetDelimiter + 0001:0002288C TStrings.GetQuoteChar + 0001:000228B8 TStrings.SetDelimiter + 0001:000228EC TStrings.SetQuoteChar + 0001:00022920 TStrings.CompareStrings + 0001:00022944 TStrings.GetNameValueSeparator + 0001:00022970 TStrings.SetNameValueSeparator + 0001:000229A4 TStringList.Destroy + 0001:00022A20 TStringList.Add + 0001:00022A48 TStringList.AddObject + 0001:00022AC0 TStringList.Changed + 0001:00022AEC TStringList.Changing + 0001:00022B18 TStringList.Clear + 0001:00022B6C TStringList.Delete + 0001:00022C0C TStringList.Exchange + 0001:00022C88 TStringList.ExchangeItems + 0001:00022CF4 TStringList.Find + 0001:00022D8C TStringList.Get + 0001:00022DD8 TStringList.GetCapacity + 0001:00022DF4 TStringList.GetCount + 0001:00022E10 TStringList.GetObject + 0001:00022E58 TStringList.Grow + 0001:00022EB0 TStringList.IndexOf + 0001:00022EFC TStringList.Insert + 0001:00022F24 TStringList.InsertObject + 0001:00022F8C TStringList.InsertItem + 0001:00023034 TStringList.Put + 0001:000230AC TStringList.PutObject + 0001:00023108 TStringList.QuickSort + 0001:000231CC TStringList.SetCapacity + 0001:000231F8 TStringList.SetSorted + 0001:00023230 TStringList.SetUpdateState + 0001:00023260 StringListCompareStrings + 0001:0002329C TStringList.Sort + 0001:000232B8 TStringList.CustomSort + 0001:00023308 TStringList.CompareStrings + 0001:00023348 TStream.GetPosition + 0001:00023370 TStream.SetPosition + 0001:0002338C TStream.GetSize + 0001:000233D8 TStream.SetSize + 0001:000233E8 TStream.SetSize64 + 0001:00023404 TStream.SetSize + 0001:0002345C RaiseException + 0001:000234A8 TStream.Seek + 0001:00023534 TStream.Seek + 0001:000235A4 TStream.ReadBuffer + 0001:000235EC TStream.WriteBuffer + 0001:00023634 TStream.CopyFrom + 0001:0002372C TStream.ReadComponent + 0001:00023790 TStream.WriteComponent + 0001:000237B0 TStream.WriteDescendent + 0001:00023814 THandleStream.Create + 0001:00023864 THandleStream.Read + 0001:0002389C THandleStream.Write + 0001:000238D4 THandleStream.Seek + 0001:00023908 THandleStream.SetSize + 0001:00023928 THandleStream.SetSize + 0001:00023958 TFileStream.Create + 0001:000239A8 TFileStream.Create + 0001:00023B08 TFileStream.Destroy + 0001:00023B50 TCustomMemoryStream.SetPointer + 0001:00023B78 TCustomMemoryStream.Read + 0001:00023BE8 TCustomMemoryStream.Seek + 0001:00023C40 TMemoryStream.Destroy + 0001:00023C7C TMemoryStream.Clear + 0001:00023CA0 TMemoryStream.LoadFromStream + 0001:00023CE8 TMemoryStream.SetCapacity + 0001:00023D1C TMemoryStream.SetSize + 0001:00023D64 TMemoryStream.Realloc + 0001:00023E2C TMemoryStream.Write + 0001:00023EBC TResourceStream.Create + 0001:00023F1C TResourceStream.CreateFromID + 0001:00023F74 Error + 0001:00023FE4 TResourceStream.Initialize + 0001:00024070 TResourceStream.Destroy + 0001:000240B8 TResourceStream.Write + 0001:000240E8 TFiler.Create + 0001:00024144 TFiler.Destroy + 0001:00024184 TFiler.SetRoot + 0001:00024278 TPropFixup.Create + 0001:000242EC TPropFixup.MakeGlobalReference + 0001:00024358 TPropFixup.ResolveReference + 0001:0002437C TPropIntfFixup.ResolveReference + 0001:00024410 FindNestedComponent + 0001:00024518 AddFinished + 0001:00024554 AddNotFinished + 0001:000245A8 GlobalFixupReferences + 0001:00024790 RemoveFixupReferences + 0001:0002484C RemoveFixups + 0001:000248E0 ReadError + 0001:00024900 PropValueError + 0001:00024910 PropertyNotFound + 0001:00024944 EnumValue + 0001:00024970 TReader.Destroy + 0001:000249C0 TReader.CheckValue + 0001:000249F0 TReader.DefineProperty + 0001:00024A34 TReader.DefineBinaryProperty + 0001:00024B14 TReader.EndOfList + 0001:00024B38 TReader.Error + 0001:00024B70 TReader.FindMethod + 0001:00024BE8 RemoveGlobalFixup + 0001:00024C84 TReader.DoFixupReferences + 0001:00024DB8 TReader.FlushBuffer + 0001:00024DE8 TReader.FreeFixups + 0001:00024E48 TReader.GetFieldClass + 0001:00024EF8 TReader.GetPosition + 0001:00024F24 TReader.NextValue + 0001:00024F48 TReader.PropertyError + 0001:00024F68 TReader.Read + 0001:00024FB4 TReader.ReadBuffer + 0001:00025008 TReader.ReadBoolean + 0001:00025028 TReader.ReadChar + 0001:0002508C TReader.ReadCollection + 0001:00025168 AddSubComponentsToLoaded + 0001:000251B4 CheckSubComponents + 0001:0002523C SetSubComponentState + 0001:000252C4 ComponentCreated + 0001:000252EC Recover + 0001:00025358 CreateComponent + 0001:0002546C SetCompName + 0001:0002550C FindExistingComponent + 0001:000255B4 TReader.ReadComponent + 0001:000257F0 TReader.ReadData + 0001:00025864 TReader.ReadDataInner + 0001:00025938 TReader.ReadFloat + 0001:00025984 TReader.ReadSingle + 0001:000259D0 TReader.ReadCurrency + 0001:00025A24 TReader.ReadDate + 0001:00025A70 TReader.ReadIdent + 0001:00025B7C TReader.ReadInteger + 0001:00025BEC TReader.ReadInt64 + 0001:00025C34 TReader.ReadListBegin + 0001:00025C48 TReader.ReadListEnd + 0001:00025C5C TReader.ReadPrefix + 0001:00025CB8 HandleException + 0001:00025DB8 PropPathError + 0001:00025DD4 TReader.ReadProperty + 0001:00025FE0 SetIntIdent + 0001:0002602C SetObjectIdent + 0001:00026074 SetVariantReference + 0001:000260D0 SetInterfaceReference + 0001:00026190 TReader.ReadPropValue + 0001:000264A8 FindUniqueName + 0001:00026518 TReader.ReadRootComponent + 0001:0002684C TReader.ReadSet + 0001:00026914 TReader.ReadSignature + 0001:00026948 TReader.ReadStr + 0001:00026990 TReader.ReadString + 0001:00026A54 TReader.ReadWideString + 0001:00026B4C TReader.ReadValue + 0001:00026B6C TReader.SkipSetBody + 0001:00026BBC SkipList + 0001:00026BE8 SkipBinary + 0001:00026C1C SkipCollection + 0001:00026C90 TReader.SkipValue + 0001:00026E2C TReader.SkipProperty + 0001:00026E7C TReader.SkipComponent + 0001:00026F30 TReader.FindAncestorComponent + 0001:00026FF8 TReader.ReferenceName + 0001:00027024 TReader.SetName + 0001:00027064 TReader.FindComponentClass + 0001:000270FC TReader.SkipBytes + 0001:00027158 ReadCustomVariant + 0001:00027324 TReader.ReadVariant + 0001:00027538 TWriter.Destroy + 0001:00027574 TWriter.AddAncestor + 0001:00027594 TWriter.DefineProperty + 0001:000275CC TWriter.DefineBinaryProperty + 0001:00027608 TWriter.GetPosition + 0001:0002762C TWriter.FlushBuffer + 0001:00027640 TWriter.SetPosition + 0001:0002769C TWriter.SetRoot + 0001:000276C0 TWriter.Write + 0001:0002770C TWriter.WriteBinary + 0001:00027794 TWriter.WriteBuffer + 0001:000277C0 TWriter.WriteBoolean + 0001:000277EC TWriter.WriteChar + 0001:00027844 TWriter.WriteCollection + 0001:000278F0 FindAncestor + 0001:00027950 TWriter.WriteComponent + 0001:00027AC0 TWriter.WriteData + 0001:00027ED4 TWriter.WriteDescendent + 0001:00027F20 TWriter.WriteFloat + 0001:00027F48 TWriter.WriteSingle + 0001:00027F70 TWriter.WriteCurrency + 0001:00027F98 TWriter.WriteDate + 0001:00027FC0 TWriter.WriteIdent + 0001:00028098 TWriter.WriteInteger + 0001:00028118 TWriter.WriteInteger + 0001:00028174 TWriter.WriteListBegin + 0001:00028188 TWriter.WriteListEnd + 0001:0002819C TWriter.WritePrefix + 0001:000281E8 TWriter.WriteProperties + 0001:000282C0 AncestorIsValid + 0001:00028304 IsDefaultOrdProp + 0001:00028370 IsDefaultFloatProp + 0001:000283D0 IsDefaultInt64Prop + 0001:00028430 IsDefaultStrProp + 0001:000284C0 ObjectAncestorMatch + 0001:0002851C IsDefault + 0001:00028584 IsDefaultObjectProp + 0001:0002860C IsDefaultValue + 0001:000286DC IsDefaultInterfaceProp + 0001:000287C0 IsDefaultMethodProp + 0001:00028844 IsDefaultVariantProp + 0001:000288DC IsDefaultPropertyValue + 0001:00028A50 WritePropPath + 0001:00028AA4 WriteSet + 0001:00028B48 WriteIntProp + 0001:00028BC4 WriteCollectionProp + 0001:00028C6C WriteOrdProp + 0001:00028D38 WriteFloatProp + 0001:00028D78 WriteInt64Prop + 0001:00028DB4 WriteStrProp + 0001:00028E14 OwnedBy + 0001:00028E4C GetComponentValue + 0001:00028FB4 WriteObjectProp + 0001:000291C0 WriteInterfaceProp + 0001:0002929C WriteMethodProp + 0001:00029344 WriteVariantProp + 0001:000293A8 TWriter.WriteProperty + 0001:000294F4 TWriter.WriteVariant + 0001:00029900 TWriter.WritePropName + 0001:0002995C TWriter.WriteSignature + 0001:00029978 TWriter.WriteStr + 0001:000299C8 TWriter.WriteMinStr + 0001:00029A78 TWriter.WriteString + 0001:00029AD4 TWriter.WriteWideString + 0001:00029B94 TWriter.WriteValue + 0001:00029BB4 TWriter.GetLookupInfo + 0001:00029BF8 InitThreadSynchronization + 0001:00029C30 DoneThreadSynchronization + 0001:00029C4C ResetSyncEvent + 0001:00029C5C WaitForSyncEvent + 0001:00029C80 SignalSyncEvent + 0001:00029C90 AddThread + 0001:00029CA0 RemoveThread + 0001:00029CB0 CheckSynchronize + 0001:00029E54 ThreadProc + 0001:00029F08 TThread.Create + 0001:00029FF4 TThread.Destroy + 0001:0002A080 TThread.AfterConstruction + 0001:0002A09C TThread.CheckThreadError + 0001:0002A120 TThread.CheckThreadError + 0001:0002A148 TThread.CallOnTerminate + 0001:0002A16C TThread.DoTerminate + 0001:0002A194 TThread.Synchronize + 0001:0002A2DC TThread.Synchronize + 0001:0002A318 TThread.Suspend + 0001:0002A384 TThread.Resume + 0001:0002A3BC TThread.Terminate + 0001:0002A3D0 TThread.WaitFor + 0001:0002A480 TComponent.Create + 0001:0002A4DC TComponent.Destroy + 0001:0002A580 TComponent.BeforeDestruction + 0001:0002A59C TComponent.FreeNotification + 0001:0002A614 TComponent.ReadLeft + 0001:0002A634 TComponent.ReadTop + 0001:0002A654 TComponent.WriteLeft + 0001:0002A674 TComponent.WriteTop + 0001:0002A694 TComponent.Insert + 0001:0002A6D8 TComponent.Remove + 0001:0002A720 TComponent.InsertComponent + 0001:0002A790 TComponent.RemoveComponent + 0001:0002A7D8 TComponent.DestroyComponents + 0001:0002A848 TComponent.Destroying + 0001:0002A8A4 TComponent.RemoveNotification + 0001:0002A8EC TComponent.RemoveFreeNotification + 0001:0002A914 TComponent.Notification + 0001:0002A99C TComponent.DefineProperties + 0001:0002AA44 TComponent.HasParent + 0001:0002AA58 TComponent.GetChildren + 0001:0002AA6C TComponent.GetChildOwner + 0001:0002AA84 TComponent.GetChildParent + 0001:0002AA9C TComponent.GetNamePath + 0001:0002AABC TComponent.GetOwner + 0001:0002AAD8 TComponent.SetChildOrder + 0001:0002AAEC TComponent.GetParentComponent + 0001:0002AB04 TComponent.SetParentComponent + 0001:0002AB14 TComponent.Updating + 0001:0002AB28 TComponent.Updated + 0001:0002AB3C TComponent.Loaded + 0001:0002AB50 TComponent.PaletteCreated + 0001:0002AB5C TComponent.ReadState + 0001:0002AB78 TComponent.WriteState + 0001:0002AB94 TComponent.ValidateRename + 0001:0002AC28 TComponent.ValidateContainer + 0001:0002AC4C TComponent.ValidateInsert + 0001:0002AC5C TComponent.FindComponent + 0001:0002ACC8 TComponent.SetName + 0001:0002AD80 TComponent.ChangeName + 0001:0002ADA0 TComponent.GetComponentIndex + 0001:0002ADE4 TComponent.GetComponent + 0001:0002AE24 TComponent.GetComponentCount + 0001:0002AE50 TComponent.SetComponentIndex + 0001:0002AEDC TComponent.SetDesigning + 0001:0002AF44 TComponent.SetReference + 0001:0002AFA8 TComponent.ExecuteAction + 0001:0002AFDC TComponent.UpdateAction + 0001:0002B010 TComponent.SafeCallException + 0001:0002B058 TComponent.UpdateRegistry + 0001:0002B070 TComponent.QueryInterface + 0001:0002B0C0 TComponent._AddRef + 0001:0002B0F0 TComponent._Release + 0001:0002B120 TComponent.IntfGetComponent + 0001:0002B138 TBasicActionLink.Create + 0001:0002B188 TBasicActionLink.AssignClient + 0001:0002B198 TBasicActionLink.Destroy + 0001:0002B1E0 TBasicActionLink.Change + 0001:0002B208 TBasicActionLink.Execute + 0001:0002B240 TBasicActionLink.SetAction + 0001:0002B28C TBasicActionLink.IsOnExecuteLinked + 0001:0002B2A0 TBasicActionLink.SetOnExecute + 0001:0002B2AC TBasicActionLink.Update + 0001:0002B2CC TBasicAction.Create + 0001:0002B328 TBasicAction.Destroy + 0001:0002B3A0 TBasicAction.HandlesTarget + 0001:0002B3B8 TBasicAction.ExecuteTarget + 0001:0002B3C8 TBasicAction.Notification + 0001:0002B404 TBasicAction.UpdateTarget + 0001:0002B414 TBasicAction.Execute + 0001:0002B448 TBasicAction.Update + 0001:0002B47C TBasicAction.SetOnExecute + 0001:0002B4F4 TBasicAction.Change + 0001:0002B518 TBasicAction.RegisterChanges + 0001:0002B540 TBasicAction.UnRegisterChanges + 0001:0002B59C TBasicAction.SetActionComponent + 0001:0002B5F0 TStreamAdapter.Create + 0001:0002B648 TStreamAdapter.Destroy + 0001:0002B698 TStreamAdapter.Read + 0001:0002B714 TStreamAdapter.Write + 0001:0002B790 TStreamAdapter.Seek + 0001:0002B820 TStreamAdapter.SetSize + 0001:0002B890 TStreamAdapter.CopyTo + 0001:0002BAB4 TStreamAdapter.Commit + 0001:0002BAC8 TStreamAdapter.Revert + 0001:0002BADC TStreamAdapter.LockRegion + 0001:0002BAF0 TStreamAdapter.UnlockRegion + 0001:0002BB04 TStreamAdapter.Stat + 0001:0002BBA4 TStreamAdapter.Clone + 0001:0002BBC4 FreeIntConstList + 0001:0002BC40 ModuleUnload + 0001:0002BC54 TDataModule.Create + 0001:0002BD98 TDataModule.AfterConstruction + 0001:0002BDB4 TDataModule.CreateNew + 0001:0002BE1C TDataModule.BeforeDestruction + 0001:0002BE54 TDataModule.Destroy + 0001:0002BEF0 TDataModule.DoCreate + 0001:0002BF50 TDataModule.DoDestroy + 0001:0002BFB4 DoWriteWidth + 0001:0002BFE4 DoWriteHorizontalOffset + 0001:0002C020 DoWriteVerticalOffset + 0001:0002C05C DoWriteHeight + 0001:0002C08C TDataModule.DefineProperties + 0001:0002C1A8 TDataModule.GetChildren + 0001:0002C21C TDataModule.HandleCreateException + 0001:0002C250 TDataModule.ReadState + 0001:0002C278 TDataModule.ReadWidth + 0001:0002C298 TDataModule.ReadHorizontalOffset + 0001:0002C2B8 TDataModule.ReadVerticalOffset + 0001:0002C2D8 TDataModule.ReadHeight + 0001:0002C2F8 TDataModule.WriteWidth + 0001:0002C318 TDataModule.WriteHorizontalOffset + 0001:0002C338 TDataModule.WriteVerticalOffset + 0001:0002C358 TDataModule.WriteHeight + 0001:0002C378 StdWndProc + 0001:0002C398 CalcJmpOffset + 0001:0002C3BC MakeObjectInstance + 0001:0002C49C FreeObjectInstance + 0001:0002C4D0 AllocateHWnd + 0001:0002C58C DeallocateHWnd + 0001:0002C5C4 Finalization + 0001:0002C674 Classes + 0001:0002CA58 Finalization + 0001:0002CA88 Consts + 0001:0002DB10 InternalDeletePalette + 0001:0002DB94 GetHashCode + 0001:0002DBA8 TResourceManager.Create + 0001:0002DBFC TResourceManager.Destroy + 0001:0002DC2C TResourceManager.Lock + 0001:0002DC44 TResourceManager.Unlock + 0001:0002DC5C TResourceManager.AllocResource + 0001:0002DD60 TResourceManager.FreeResource + 0001:0002DE2C TResourceManager.ChangeResource + 0001:0002DEB0 TResourceManager.AssignResource + 0001:0002DF30 ClearColor + 0001:0002DFBC PaletteChanged + 0001:0002E4B8 ColorToRGB + 0001:0002E4E8 StringToColor + 0001:0002E514 ColorToIdent + 0001:0002E53C IdentToColor + 0001:0002E564 TGraphicsObject.Changed + 0001:0002E588 TGraphicsObject.Lock + 0001:0002E5A8 TGraphicsObject.Unlock + 0001:0002E77C CharsetToIdent + 0001:0002E7A4 IdentToCharset + 0001:0002E7CC GetFontData + 0001:0002E8AC TFont.Create + 0001:0002E918 TFont.Destroy + 0001:0002E94C TFont.Changed + 0001:0002E974 TFont.Assign + 0001:0002EA4C TFont.GetData + 0001:0002EA7C TFont.SetData + 0001:0002EAD0 TFont.SetColor + 0001:0002EB04 TFont.GetHandle + 0001:0002ECB4 TFont.SetHandle + 0001:0002ECDC TFont.GetHeight + 0001:0002ECF8 TFont.SetHeight + 0001:0002ED24 TFont.GetName + 0001:0002ED48 TFont.SetName + 0001:0002EDAC TFont.GetSize + 0001:0002EDD8 TFont.SetSize + 0001:0002EE08 TFont.GetStyle + 0001:0002EE24 TFont.SetStyle + 0001:0002EE50 TFont.GetPitch + 0001:0002EE6C TFont.SetPitch + 0001:0002EE98 TFont.GetCharset + 0001:0002EEB4 TFont.SetCharset + 0001:0002EEE0 TPen.Create + 0001:0002EF34 TPen.Destroy + 0001:0002EF68 TPen.Assign + 0001:0002F020 TPen.GetData + 0001:0002F050 TPen.SetData + 0001:0002F0A4 TPen.GetColor + 0001:0002F0C0 TPen.SetColor + 0001:0002F0EC TPen.GetHandle + 0001:0002F190 TPen.SetHandle + 0001:0002F1C4 TPen.SetMode + 0001:0002F1F8 TPen.GetStyle + 0001:0002F214 TPen.SetStyle + 0001:0002F240 TPen.GetWidth + 0001:0002F25C TPen.SetWidth + 0001:0002F290 TBrush.Create + 0001:0002F2DC TBrush.Destroy + 0001:0002F310 TBrush.Assign + 0001:0002F3B8 TBrush.GetData + 0001:0002F3F0 TBrush.SetData + 0001:0002F444 TBrush.GetBitmap + 0001:0002F460 TBrush.SetBitmap + 0001:0002F494 TBrush.GetColor + 0001:0002F4B0 TBrush.SetColor + 0001:0002F4E8 TBrush.GetHandle + 0001:0002F5DC TBrush.GetStyle + 0001:0002F5F8 TBrush.SetStyle + 0001:0002F634 TCanvas.Create + 0001:0002F744 TCanvas.Destroy + 0001:0002F7BC TCanvas.BrushCopy + 0001:0002FAC0 TCanvas.CopyRect + 0001:0002FB70 TCanvas.Draw + 0001:0002FC34 TCanvas.DrawFocusRect + 0001:0002FC78 TCanvas.Ellipse + 0001:0002FCCC TCanvas.FillRect + 0001:0002FD1C TCanvas.FrameRect + 0001:0002FD6C TCanvas.LineTo + 0001:0002FDB8 TCanvas.Lock + 0001:0002FDE8 TCanvas.MoveTo + 0001:0002FE24 TCanvas.Pie + 0001:0002FE88 TCanvas.Polyline + 0001:0002FED4 TCanvas.Rectangle + 0001:0002FF28 TCanvas.Refresh + 0001:0002FF3C TCanvas.RoundRect + 0001:0002FF98 TCanvas.StretchDraw + 0001:0002FFE4 TCanvas.GetCanvasOrientation + 0001:00030020 TCanvas.TextOut + 0001:000300C0 TCanvas.TextRect + 0001:00030174 TCanvas.TextExtent + 0001:000301CC TCanvas.TextWidth + 0001:000301F4 TCanvas.TextHeight + 0001:0003021C TCanvas.TryLock + 0001:0003027C TCanvas.Unlock + 0001:000302AC TCanvas.SetFont + 0001:000302CC TCanvas.SetPen + 0001:000302EC TCanvas.SetBrush + 0001:0003030C TCanvas.GetPenPos + 0001:00030340 TCanvas.SetPenPos + 0001:00030368 TCanvas.GetPixel + 0001:000303A8 TCanvas.SetPixel + 0001:000303FC TCanvas.GetClipRect + 0001:00030430 TCanvas.GetHandle + 0001:00030464 TCanvas.DeselectHandles + 0001:000304DC TCanvas.CreateHandle + 0001:000304E8 TCanvas.SetHandle + 0001:00030564 TCanvas.RequiredState + 0001:000305F8 TCanvas.Changing + 0001:0003061C TCanvas.Changed + 0001:00030640 TCanvas.CreateFont + 0001:00030680 TCanvas.CreatePen + 0001:000306C4 TCanvas.CreateBrush + 0001:00030764 TCanvas.FontChanged + 0001:00030798 TCanvas.PenChanged + 0001:000307CC TCanvas.BrushChanged + 0001:00030800 InvalidOperation + 0001:00030820 InvalidGraphic + 0001:00030840 InvalidBitmap + 0001:0003084C InvalidIcon + 0001:00030858 InvalidMetafile + 0001:00030864 OutOfResources + 0001:000308B8 GDIError + 0001:00030964 GDICheck + 0001:00030988 DupBits + 0001:00030AF4 GetDInColors + 0001:00030B30 BytesPerScanline + 0001:00030B6C TransparentStretchBlt + 0001:00030E3C RGBTripleToQuad + 0001:00030EB0 RGBQuadToTriple + 0001:00030F5C ByteSwapColors + 0001:00030FB4 CreateSystemPalette + 0001:000310E0 SystemPaletteOverride + 0001:00031188 PaletteFromDIBColorTable + 0001:00031268 PaletteToDIBColorTable + 0001:000312D0 TwoBitsFromDIB + 0001:00031494 AdjustColor + 0001:000314BC BetterSize + 0001:00031568 ReadIcon + 0001:000318B4 ComputeAldusChecksum + 0001:000318F4 InitializeBitmapInfoHeader + 0001:00031A28 InternalGetDIBSizes + 0001:00031AA0 GetDIBSizes + 0001:00031AC4 InternalGetDIB + 0001:00031B84 GetDIB + 0001:00031BB4 WinError + 0001:00031BB8 CheckBool + 0001:00031BD0 WriteIcon + 0001:00031DEC TGraphic.Create + 0001:00031E30 TGraphic.Changed + 0001:00031E60 DoWrite + 0001:00031EC4 TGraphic.DefineProperties + 0001:00031F10 TGraphic.Equals + 0001:00032060 TGraphic.GetPalette + 0001:00032078 TGraphic.GetTransparent + 0001:00032094 TGraphic.LoadFromFile + 0001:000320F0 TGraphic.Progress + 0001:00032130 TGraphic.ReadData + 0001:0003214C TGraphic.SaveToFile + 0001:000321AC TGraphic.SetPalette + 0001:000321BC TGraphic.SetTransparent + 0001:000321EC TGraphic.WriteData + 0001:000322A4 TFileFormatsList.Create + 0001:000323E0 TFileFormatsList.Destroy + 0001:00032448 TFileFormatsList.Add + 0001:000324EC TFileFormatsList.FindClassName + 0001:000325E8 TClipboardFormats.Create + 0001:0003267C TClipboardFormats.Destroy + 0001:000326B8 TClipboardFormats.Add + 0001:00032728 TClipboardFormats.FindFormat + 0001:00032784 GetFileFormats + 0001:000327B0 GetClipboardFormats + 0001:000327DC TPicture.Create + 0001:00032828 TPicture.Destroy + 0001:00032864 TPicture.AssignTo + 0001:000328A8 TPicture.ForceType + 0001:00032938 TPicture.GetBitmap + 0001:00032960 TPicture.GetIcon + 0001:00032988 TPicture.GetMetafile + 0001:000329B0 TPicture.SetGraphic + 0001:00032A74 TPicture.LoadFromClipboardFormat + 0001:00032B5C TPicture.SaveToClipboardFormat + 0001:00032B94 TPicture.SupportsClipboardFormat + 0001:00032BBC TPicture.LoadFromStream + 0001:00032BDC TPicture.SaveToStream + 0001:00032BFC TPicture.Assign + 0001:00032C6C TPicture.RegisterFileFormat + 0001:00032C98 TPicture.Changed + 0001:00032CD4 TPicture.Progress + 0001:00032D14 TPicture.ReadData + 0001:00032E44 TPicture.WriteData + 0001:00032EB4 DoWrite + 0001:00032F4C TPicture.DefineProperties + 0001:00032F98 TPicture.GetWidth + 0001:00032FC4 TPicture.GetHeight + 0001:00032FF0 TMetafileImage.Destroy + 0001:00033044 TMetafileImage.FreeHandle + 0001:00033050 TMetafileCanvas.Create + 0001:000330F8 TMetafileCanvas.CreateWithComment + 0001:00033358 TMetafileCanvas.Destroy + 0001:000333B4 TMetafile.Create + 0001:00033410 TMetafile.Destroy + 0001:0003344C TMetafile.Assign + 0001:00033520 TMetafile.Draw + 0001:000335C8 TMetafile.GetAuthor + 0001:00033654 TMetafile.GetDesc + 0001:00033704 TMetafile.GetEmpty + 0001:00033720 TMetafile.GetHandle + 0001:0003374C TMetafile.GetHeight + 0001:000337DC TMetafile.GetMMHeight + 0001:0003380C TMetafile.GetMMWidth + 0001:0003383C TMetafile.GetPalette + 0001:00033908 TMetafile.GetWidth + 0001:00033998 TMetafile.LoadFromStream + 0001:00033A00 TMetafile.NewImage + 0001:00033A34 TMetafile.ReadData + 0001:00033AB4 TMetafile.ReadEMFStream + 0001:00033B9C TMetafile.ReadWMFStream + 0001:00033D3C TMetafile.SaveToFile + 0001:00033E00 TMetafile.SaveToStream + 0001:00033E3C TMetafile.SetHandle + 0001:00033F0C TMetafile.SetHeight + 0001:00033FA4 TMetafile.SetMMHeight + 0001:00034000 TMetafile.SetMMWidth + 0001:0003405C TMetafile.SetTransparent + 0001:0003406C TMetafile.SetWidth + 0001:00034104 TMetafile.TestEMF + 0001:00034174 TMetafile.UniqueImage + 0001:00034248 TMetafile.WriteData + 0001:000342E0 TMetafile.WriteEMFStream + 0001:00034374 TMetafile.WriteWMFStream + 0001:000344DC TMetafile.LoadFromClipboardFormat + 0001:00034588 TMetafile.SaveToClipboardFormat + 0001:000345CC TMetafile.ReleaseHandle + 0001:00034698 FreeMemoryContexts + 0001:00034744 DeselectBitmap + 0001:000347E0 TBitmapCanvas.Create + 0001:00034830 TBitmapCanvas.Destroy + 0001:0003486C TBitmapCanvas.FreeContext + 0001:0003491C TBitmapCanvas.CreateHandle + 0001:00034A28 TSharedImage.Reference + 0001:00034A38 TSharedImage.Release + 0001:00034A68 TBitmapImage.Destroy + 0001:00034AE8 TBitmapImage.FreeHandle + 0001:00034B64 UpdateDIBColorTable + 0001:00034C34 FixupBitFields + 0001:00034CA4 CopyBitmap + 0001:00035314 CopyPalette + 0001:0003538C CopyBitmapAsMask + 0001:000355B8 TBitmap.Create + 0001:00035634 TBitmap.Destroy + 0001:00035684 TBitmap.Assign + 0001:00035784 TBitmap.CopyImage + 0001:00035858 TBitmap.Changing + 0001:00035894 TBitmap.Changed + 0001:000358B8 TBitmap.Dormant + 0001:00035940 TBitmap.Draw + 0001:00035BE4 TBitmap.FreeImage + 0001:00035C84 TBitmap.GetEmpty + 0001:00035CC4 TBitmap.GetCanvas + 0001:00035D34 TBitmap.GetHandle + 0001:00035D6C TBitmap.GetHandleType + 0001:00035DC4 TBitmap.GetHeight + 0001:00035DE8 TBitmap.GetMaskHandle + 0001:00035E0C TBitmap.GetMonochrome + 0001:00035E48 TBitmap.GetPalette + 0001:00035E6C TBitmap.GetTransparentColor + 0001:00035ED4 TBitmap.GetWidth + 0001:00035EF0 TBitmap.DIBNeeded + 0001:00035FC4 TBitmap.FreeContext + 0001:00035FE4 TBitmap.HandleNeeded + 0001:000360A8 TBitmap.Mask + 0001:000361B4 TBitmap.MaskHandleNeeded + 0001:0003624C TBitmap.PaletteNeeded + 0001:0003635C TBitmap.LoadFromClipboardFormat + 0001:000363F4 TBitmap.LoadFromStream + 0001:00036424 TBitmap.LoadFromResourceName + 0001:00036490 TBitmap.NewImage + 0001:0003659C TBitmap.ReadData + 0001:000365CC TBitmap.ReadDIB + 0001:00036B98 TBitmap.ReadStream + 0001:00036C10 TBitmap.SetHandle + 0001:00036CFC TBitmap.SetHandleType + 0001:00036EC8 TBitmap.SetHeight + 0001:00036F38 TBitmap.SetMonochrome + 0001:00036FE4 TBitmap.SetPalette + 0001:000370F0 TBitmap.SetTransparentColor + 0001:00037170 TBitmap.SetWidth + 0001:000371E0 TBitmap.WriteData + 0001:00037200 TBitmap.WriteStream + 0001:00037540 TBitmap.ReleaseHandle + 0001:0003759C TBitmap.ReleasePalette + 0001:000375D8 TBitmap.SaveToStream + 0001:000375F8 TBitmap.SaveToClipboardFormat + 0001:000376B4 TIconImage.Destroy + 0001:000376F0 TIconImage.FreeHandle + 0001:00037718 TIcon.Create + 0001:00037780 TIcon.Destroy + 0001:000377BC TIcon.Assign + 0001:00037834 TIcon.Draw + 0001:00037888 TIcon.GetEmpty + 0001:000378BC TIcon.GetHandle + 0001:000378E0 TIcon.GetHeight + 0001:0003790C TIcon.GetWidth + 0001:00037938 TIcon.HandleNeeded + 0001:000379CC TIcon.ImageNeeded + 0001:00037A90 TIcon.LoadFromStream + 0001:00037B50 TIcon.NewImage + 0001:00037BD8 TIcon.SetHandle + 0001:00037C00 TIcon.SetHeight + 0001:00037C34 TIcon.SetTransparent + 0001:00037C44 TIcon.SetWidth + 0001:00037C78 TIcon.SaveToStream + 0001:00037CB4 TIcon.LoadFromClipboardFormat + 0001:00037CD4 TIcon.SaveToClipboardFormat + 0001:00037CF4 InitScreenLogPixels + 0001:00037D34 GetDefFontCharSet + 0001:00037D8C InitDefFontData + 0001:00037E60 TPatternManager.Create + 0001:00037EA4 TPatternManager.Destroy + 0001:00037EDC TPatternManager.Lock + 0001:00037EF4 TPatternManager.Unlock + 0001:00037F0C TPatternManager.AllocPattern + 0001:00037FD8 TPatternManager.CreateBitmap + 0001:000380F8 TPatternManager.FreePatterns + 0001:0003817C AllocPatternBitmap + 0001:000381C4 Finalization + 0001:00038298 Graphics + 0001:00038394 RoundTo + 0001:000383DC IntPower + 0001:0003840C Min + 0001:00038438 Max + 0001:00038464 Finalization + 0001:00038494 Math + 0001:00038638 TObjectList.Add + 0001:0003865C TObjectList.Create + 0001:000386A4 TObjectList.Create + 0001:000386F4 TObjectList.Extract + 0001:00038718 TObjectList.GetItem + 0001:0003873C TObjectList.IndexOf + 0001:00038760 TObjectList.Insert + 0001:00038784 TObjectList.Notify + 0001:000387BC TObjectList.Remove + 0001:000388A0 TComponentListNexus.Notification + 0001:000388E4 TComponentList.Add + 0001:00038908 TComponentList.Destroy + 0001:00038944 TComponentList.Extract + 0001:00038968 TComponentList.GetItems + 0001:0003898C TComponentList.HandleFreeNotify + 0001:000389AC TComponentList.IndexOf + 0001:000389D0 TComponentList.Notify + 0001:00038A58 TComponentList.Remove + 0001:00038A7C TOrderedList.Pop + 0001:00038A98 TOrderedList.Push + 0001:00038ABC TOrderedList.Create + 0001:00038B10 TOrderedList.Destroy + 0001:00038B4C TOrderedList.PeekItem + 0001:00038B74 TOrderedList.PopItem + 0001:00038BA4 TStack.PushItem + 0001:00038BC4 Finalization + 0001:00038BF4 Contnrs + 0001:00038BFC InitCommonControls + 0001:00038C04 InitComCtl + 0001:00038C68 InitCommonControlsEx + 0001:00038CAC ImageList_Create + 0001:00038CB4 ImageList_Destroy + 0001:00038CBC ImageList_GetImageCount + 0001:00038CC4 ImageList_Add + 0001:00038CCC ImageList_ReplaceIcon + 0001:00038CD4 ImageList_SetBkColor + 0001:00038CDC ImageList_GetBkColor + 0001:00038CE4 ImageList_SetOverlayImage + 0001:00038CEC ImageList_AddIcon + 0001:00038D14 IndexToOverlayMask + 0001:00038D30 ImageList_Draw + 0001:00038D38 ImageList_Replace + 0001:00038D40 ImageList_DrawEx + 0001:00038D48 ImageList_Remove + 0001:00038D50 ImageList_BeginDrag + 0001:00038D58 ImageList_EndDrag + 0001:00038D60 ImageList_DragEnter + 0001:00038D68 ImageList_DragLeave + 0001:00038D70 ImageList_DragMove + 0001:00038D78 ImageList_SetDragCursorImage + 0001:00038D80 ImageList_DragShowNolock + 0001:00038D88 ImageList_GetDragImage + 0001:00038D90 ImageList_Read + 0001:00038D98 ImageList_Write + 0001:00038DA0 ImageList_GetIconSize + 0001:00038DA8 ImageList_SetIconSize + 0001:00038DB0 Header_GetItem + 0001:00038DE0 Header_SetImageList + 0001:00038E0C Header_SetOrderArray + 0001:00038E3C ListView_SetBkColor + 0001:00038E68 ListView_SetImageList + 0001:00038E98 ListView_GetItemCount + 0001:00038EC0 IndexToStateImageMask + 0001:00038EDC ListView_GetItem + 0001:00038F08 ListView_SetItem + 0001:00038F34 ListView_InsertItem + 0001:00038F60 ListView_DeleteItem + 0001:00038F8C ListView_DeleteAllItems + 0001:00038FB4 ListView_GetNextItem + 0001:00038FEC ListView_FindItem + 0001:0003901C ListView_GetItemRect + 0001:00039078 ListView_HitTest + 0001:000390A4 ListView_EnsureVisible + 0001:000390E4 ListView_Scroll + 0001:00039114 ListView_RedrawItems + 0001:00039144 ListView_Arrange + 0001:00039170 ListView_GetEditControl + 0001:00039198 ListView_SetColumn + 0001:000391C8 ListView_InsertColumn + 0001:000391F8 ListView_DeleteColumn + 0001:00039224 ListView_GetColumnWidth + 0001:00039250 ListView_SetColumnWidth + 0001:00039288 ListView_CreateDragImage + 0001:000392B8 ListView_SetTextColor + 0001:000392E4 ListView_SetTextBkColor + 0001:00039310 ListView_GetTopIndex + 0001:00039338 ListView_GetCountPerPage + 0001:00039360 ListView_GetOrigin + 0001:0003938C ListView_Update + 0001:000393C0 ListView_SetItemState + 0001:00039400 ListView_GetItemState + 0001:00039430 ListView_GetCheckState + 0001:00039464 ListView_SetCheckState + 0001:000394A4 ListView_SetItemText + 0001:000394E4 ListView_SetItemCount + 0001:00039508 ListView_SetItemCountEx + 0001:00039534 ListView_SortItems + 0001:00039564 ListView_GetSelectedCount + 0001:0003958C ListView_SetExtendedListViewStyle + 0001:000395B8 ListView_SetColumnOrderArray + 0001:000395E8 ListView_GetColumnOrderArray + 0001:00039618 ListView_SetWorkAreas + 0001:00039648 ListView_SetHoverTime + 0001:00039674 ListView_GetHoverTime + 0001:0003969C TreeView_InsertItem + 0001:000396C8 TreeView_DeleteItem + 0001:000396F4 TreeView_DeleteAllItems + 0001:0003971C TreeView_Expand + 0001:0003974C TreeView_GetItemRect + 0001:00039788 TreeView_GetCount + 0001:000397B0 TreeView_GetIndent + 0001:000397D8 TreeView_SetIndent + 0001:00039804 TreeView_SetImageList + 0001:00039834 TreeView_GetNextItem + 0001:00039864 TreeView_GetChild + 0001:0003988C TreeView_GetNextSibling + 0001:000398B4 TreeView_GetPrevSibling + 0001:000398DC TreeView_GetParent + 0001:00039904 TreeView_GetFirstVisible + 0001:00039928 TreeView_GetNextVisible + 0001:00039950 TreeView_GetPrevVisible + 0001:00039978 TreeView_GetSelection + 0001:0003999C TreeView_GetDropHilite + 0001:000399C0 TreeView_GetRoot + 0001:000399E0 TreeView_Select + 0001:00039A10 TreeView_SelectItem + 0001:00039A38 TreeView_SelectDropTarget + 0001:00039A60 TreeView_SelectSetFirstVisible + 0001:00039A88 TreeView_GetItem + 0001:00039AB4 TreeView_SetItem + 0001:00039AE0 TreeView_GetEditControl + 0001:00039B08 TreeView_HitTest + 0001:00039B34 TreeView_CreateDragImage + 0001:00039B60 TreeView_EnsureVisible + 0001:00039B8C TreeView_SortChildrenCB + 0001:00039BBC TreeView_SetBkColor + 0001:00039BE8 TreeView_SetTextColor + 0001:00039C14 MonthCal_SetCurSel + 0001:00039C40 MonthCal_SetMaxSelCount + 0001:00039C6C MonthCal_SetSelRange + 0001:00039C98 MonthCal_GetMinReqRect + 0001:00039CC4 MonthCal_SetColor + 0001:00039CF4 MonthCal_SetFirstDayOfWeek + 0001:00039D20 Monthcal_SetRange + 0001:00039D50 MonthCal_SetMonthDelta + 0001:00039D7C Finalization + 0001:00039DAC CommCtrl + 0001:00039DB4 InitAnApi + 0001:00039EB4 _GetSystemMetrics + 0001:00039F58 xMonitorFromRect + 0001:00039FF8 xMonitorFromWindow + 0001:0003A0A4 xMonitorFromPoint + 0001:0003A140 xGetMonitorInfo + 0001:0003A23C xGetMonitorInfoA + 0001:0003A338 xGetMonitorInfoW + 0001:0003A434 xEnumDisplayMonitors + 0001:0003A580 InitMultiMonStubs + 0001:0003A5F0 Finalization + 0001:0003A620 MultiMon + 0001:0003A634 Finalization + 0001:0003A664 Imm + 0001:0003AA30 RegisterViewer + 0001:0003AAB8 GetHelpSystem + 0001:0003AB1C THelpViewerNode.Create + 0001:0003AB64 THelpManager.Create + 0001:0003ABF0 THelpManager.RegisterViewer + 0001:0003AD50 THelpManager.UnloadAllViewers + 0001:0003ADA8 THelpManager.DoSoftShutDown + 0001:0003ADEC THelpManager.DoTableOfContents + 0001:0003AFB4 THelpManager.CallSpecialWinHelp + 0001:0003B0E4 THelpManager.ShowHelp + 0001:0003B344 THelpManager.ShowContextHelp + 0001:0003B468 THelpManager.ShowTableOfContents + 0001:0003B47C THelpManager.ShowTopicHelp + 0001:0003B598 THelpManager.AssignHelpSelector + 0001:0003B600 THelpManager.Hook + 0001:0003B6B4 THelpManager.GetHandle + 0001:0003B6D0 THelpManager.GetHelpFile + 0001:0003B6F0 THelpManager.Release + 0001:0003B7C0 THelpManager.Destroy + 0001:0003B830 Finalization + 0001:0003B870 HelpIntfs + 0001:0003B87C ClosePrinter + 0001:0003B884 DocumentProperties + 0001:0003B88C EnumPrinters + 0001:0003B894 OpenPrinter + 0001:0003B89C Finalization + 0001:0003B8CC WinSpool + 0001:0003B994 FetchStr + 0001:0003BA00 RaiseError + 0001:0003BA20 AbortProc + 0001:0003BACC TPrinterDevice.Create + 0001:0003BB3C TPrinterDevice.IsEqual + 0001:0003BCC8 TPrinterCanvas.Create + 0001:0003BD18 TPrinterCanvas.CreateHandle + 0001:0003BD48 TPrinterCanvas.Changing + 0001:0003BD70 TPrinterCanvas.UpdateFont + 0001:0003BDD0 TPrinter.Create + 0001:0003BE1C TPrinter.Destroy + 0001:0003BEC4 TPrinter.SetState + 0001:0003C044 TPrinter.CheckPrinting + 0001:0003C0CC TPrinter.BeginDoc + 0001:0003C170 TPrinter.EndDoc + 0001:0003C1BC TPrinter.NewPage + 0001:0003C1FC TPrinter.GetPrinter + 0001:0003C278 TPrinter.SetPrinterCapabilities + 0001:0003C2C0 TPrinter.SetPrinter + 0001:0003C590 TPrinter.GetCanvas + 0001:0003C5C8 TPrinter.GetHandle + 0001:0003C5EC TPrinter.GetNumCopies + 0001:0003C660 TPrinter.SetNumCopies + 0001:0003C6E8 TPrinter.GetPageHeight + 0001:0003C714 TPrinter.GetPageWidth + 0001:0003C740 TPrinter.GetPrinterIndex + 0001:0003C76C TPrinter.GetPrinters + 0001:0003C9F4 TPrinter.SetToDefaultPrinter + 0001:0003CC0C TPrinter.FreePrinters + 0001:0003CC64 TPrinter.FreeFonts + 0001:0003CC7C Printer + 0001:0003CCA8 Finalization + 0001:0003CCE4 Printers + 0001:0003CCF0 FlatSB_SetScrollProp + 0001:0003CD2C InitializeFlatSB + 0001:0003CD5C InitFlatSB + 0001:0003D018 Finalization + 0001:0003D048 FlatSB + 0001:0003D128 TSynchroObject.Acquire + 0001:0003D134 TSynchroObject.Release + 0001:0003D140 TCriticalSection.Create + 0001:0003D190 TCriticalSection.Destroy + 0001:0003D1D0 TCriticalSection.Acquire + 0001:0003D1E8 TCriticalSection.Release + 0001:0003D200 TCriticalSection.Enter + 0001:0003D214 TCriticalSection.Leave + 0001:0003D228 Finalization + 0001:0003D258 SyncObjs + 0001:0003D260 FreeThemeLibrary + 0001:0003D420 InitThemeLibrary + 0001:0003DC18 UseThemes + 0001:0003DC50 Finalization + 0001:0003DCA4 UxTheme + 0001:0003DCC4 Finalization + 0001:0003DCF4 RichEdit + 0001:0003E09C TToolWindow.Create + 0001:0003E10C TToolWindow.SetEdgeBorders + 0001:0003E140 TToolWindow.SetEdgeInner + 0001:0003E174 TToolWindow.SetEdgeOuter + 0001:0003E1A8 TToolWindow.NCPaint + 0001:0003E2BC TToolWindow.WMNCCalcSize + 0001:0003E380 TToolWindow.WMNCPaint + 0001:0003E3E4 TToolWindow.CMBorderChanged + 0001:0003E408 TToolWindow.CMCtl3DChanged + 0001:0003E440 TToolDockForm.Create + 0001:0003E494 TToolDockForm.CreateParams + 0001:0003E4BC TToolDockForm.CanResize + 0001:0003E658 TToolDockForm.DoAddDockClient + 0001:0003E690 ModifySystemMenu + 0001:0003E71C TToolDockForm.WMNCCreate + 0001:0003E748 TToolDockForm.WMNCHitTest + 0001:0003E87C TToolDockForm.WMNCLButtonDown + 0001:0003E8D0 TToolDockForm.WMSize + 0001:0003E930 TToolDockForm.WMSysCommand + 0001:0003E980 Finalization + 0001:0003E9B0 ToolWin + 0001:0003E9B8 ShellExecute + 0001:0003E9C0 Finalization + 0001:0003E9F0 ShellAPI + 0001:0003E9F8 Finalization + 0001:0003EA28 RegStr + 0001:0003EA30 Finalization + 0001:0003EA60 WinInet + 0001:0003EA68 Finalization + 0001:0003EA98 UrlMon + 0001:0003EB08 SHGetSpecialFolderPath + 0001:0003EB10 Finalization + 0001:0003EB40 ShlObj + 0001:0003EB48 GetOpenFileName + 0001:0003EB50 GetSaveFileName + 0001:0003EB58 ChooseColor + 0001:0003EB60 FindText + 0001:0003EB68 ReplaceText + 0001:0003EB70 ChooseFont + 0001:0003EB78 PrintDlg + 0001:0003EB80 Finalization + 0001:0003EBB0 CommDlg + 0001:0003EBB8 Finalization + 0001:0003EBE8 Dlgs + 0001:0003FEB8 CenterWindow + 0001:0003FF80 DialogHook + 0001:0003FFF0 TCommonDialog.Create + 0001:00040054 TCommonDialog.Destroy + 0001:0004009C TCommonDialog.MessageHook + 0001:000400E0 TCommonDialog.DefaultHandler + 0001:00040134 TCommonDialog.MainWndProc + 0001:00040188 TCommonDialog.WndProc + 0001:000401A4 TCommonDialog.WMDestroy + 0001:000401D0 TCommonDialog.WMInitDialog + 0001:000401F8 TCommonDialog.WMNCDestroy + 0001:0004021C TCommonDialog.TaskModalDialog + 0001:000402F4 TCommonDialog.DoClose + 0001:00040318 TCommonDialog.DoShow + 0001:0004033C ExplorerHook + 0001:000403C8 TOpenDialog.Create + 0001:0004046C TOpenDialog.Destroy + 0001:000404B4 TOpenDialog.CanClose + 0001:000404F0 TOpenDialog.WndProc + 0001:00040640 TOpenDialog.DoCanClose + 0001:00040678 TOpenDialog.DoSelectionChange + 0001:000406A4 TOpenDialog.DoFolderChange + 0001:000406D0 TOpenDialog.DoTypeChange + 0001:000406FC TOpenDialog.ReadFileEditStyle + 0001:00040748 TOpenDialog.DefineProperties + 0001:0004079C AllocFilterStr + 0001:0004080C TOpenDialog.DoExecute + 0001:00040B44 ExtractFileName + 0001:00040B9C ExtractFileNames + 0001:00040CA0 TOpenDialog.GetFileNames + 0001:00040D60 TOpenDialog.GetStaticRect + 0001:00040DD8 TOpenDialog.GetFileName + 0001:00040E40 TOpenDialog.GetFilterIndex + 0001:00040E70 TOpenDialog.SetInitialDir + 0001:00040EDC TOpenDialog.Execute + 0001:00040F04 TOpenDialog.DoIncludeItem + 0001:00040F3C TSaveDialog.Execute + 0001:00040F64 TColorDialog.Create + 0001:00040FC0 TColorDialog.Destroy + 0001:00040FFC GetCustomColorsArray + 0001:000410D0 SetCustomColorsArray + 0001:000411AC TColorDialog.Execute + 0001:00041278 TColorDialog.SetCustomColors + 0001:00041298 FontDialogHook + 0001:000412EC TFontDialog.Create + 0001:00041358 TFontDialog.Destroy + 0001:00041394 TFontDialog.WndProc + 0001:000413EC TFontDialog.Apply + 0001:00041418 TFontDialog.DoApply + 0001:000414D4 TFontDialog.Execute + 0001:000416C8 TFontDialog.SetFont + 0001:000416E8 TFontDialog.UpdateFromLogFont + 0001:000417C4 GetPrinter + 0001:000418EC SetPrinter + 0001:00041970 CopyData + 0001:00041A18 TPrintDialog.SetNumCopies + 0001:00041A40 TPrintDialog.Execute + 0001:00041D98 TRedirectorWindow.CreateParams + 0001:00041DCC TRedirectorWindow.WndProc + 0001:00041E24 TRedirectorWindow.CMRelease + 0001:00041E3C CallDefWndProc + 0001:00041E80 FindReplaceWndProc + 0001:00041F38 FindReplaceDialogHook + 0001:00041FE0 TFindDialog.Create + 0001:000420C8 TFindDialog.Destroy + 0001:0004213C TFindDialog.CloseDialog + 0001:00042168 GetTopWindow + 0001:000421B0 TFindDialog.Execute + 0001:000422DC TFindDialog.Find + 0001:00042300 TFindDialog.GetFindText + 0001:00042328 TFindDialog.GetLeft + 0001:0004234C TFindDialog.GetPosition + 0001:0004239C TFindDialog.GetReplaceText + 0001:000423C4 TFindDialog.GetTop + 0001:000423E8 TFindDialog.MessageHook + 0001:00042518 TFindDialog.Replace + 0001:0004253C TFindDialog.SetFindText + 0001:00042568 TFindDialog.SetPosition + 0001:000425D4 TFindDialog.SetReplaceText + 0001:00042600 TReplaceDialog.Create + 0001:00042654 GetAveCharSize + 0001:0004283C TMessageForm.CreateNew + 0001:000428C0 TMessageForm.HelpButtonClick + 0001:000428E8 TMessageForm.CustomKeyDown + 0001:00042964 TMessageForm.WriteToClipBoard + 0001:00042AA8 TMessageForm.GetFormText + 0001:00042D60 CreateMessageDialog + 0001:00043378 MessageDlg + 0001:000433B0 MessageDlgPos + 0001:000433EC MessageDlgPosHelp + 0001:000434A4 ShowMessage + 0001:000434BC ShowMessagePos + 0001:000434F0 InputQuery + 0001:0004384C InputBox + 0001:0004387C InitGlobals + 0001:000439CC Finalization + 0001:00043A28 Dialogs + 0001:000463C8 DoRect + 0001:000464A8 Frame3D + 0001:00046508 TShape.Create + 0001:000465D8 TShape.Destroy + 0001:00046628 TShape.Paint + 0001:000467A4 TShape.StyleChanged + 0001:000467BC TShape.SetBrush + 0001:000467E0 TShape.SetPen + 0001:00046804 TShape.SetShape + 0001:00046838 TPaintBox.Create + 0001:000468B0 TPaintBox.Paint + 0001:00046954 TImage.Create + 0001:00046A18 TImage.Destroy + 0001:00046A58 TImage.GetPalette + 0001:00046A90 TImage.DestRect + 0001:00046BFC TImage.Paint + 0001:00046CC8 TImage.DoPaletteChange + 0001:00046D98 TImage.Progress + 0001:00046E14 TImage.SetCenter + 0001:00046E4C TImage.SetPicture + 0001:00046E70 TImage.SetStretch + 0001:00046EA8 TImage.SetTransparent + 0001:00046EE0 TImage.SetProportional + 0001:00046F18 TImage.PictureChanged + 0001:0004708C TImage.CanAutoSize + 0001:00047114 TBevel.Create + 0001:000471A0 TBevel.SetStyle + 0001:000471D4 TBevel.SetShape + 0001:00047208 BevelRect + 0001:00047324 BevelLine + 0001:00047374 TBevel.Paint + 0001:0004763C TTimer.Create + 0001:000476A8 TTimer.Destroy + 0001:000476F4 TTimer.WndProc + 0001:0004777C TTimer.UpdateTimer + 0001:00047820 TTimer.SetEnabled + 0001:0004784C TTimer.SetInterval + 0001:00047878 TTimer.SetOnTimer + 0001:0004789C TTimer.Timer + 0001:000478C0 TCustomPanel.Create + 0001:000479B0 TCustomPanel.CreateParams + 0001:00047A20 TCustomPanel.CMBorderChanged + 0001:00047A44 TCustomPanel.CMTextChanged + 0001:00047A5C TCustomPanel.CMCtl3DChanged + 0001:00047A98 TCustomPanel.CMIsToolControl + 0001:00047AC0 TCustomPanel.WMWindowPosChanged + 0001:00047BEC AdjustColors + 0001:00047C2C TCustomPanel.Paint + 0001:00047E00 TCustomPanel.SetAlignment + 0001:00047E24 TCustomPanel.SetBevelInner + 0001:00047E50 TCustomPanel.SetBevelOuter + 0001:00047E7C TCustomPanel.SetBevelWidth + 0001:00047EA8 TCustomPanel.SetBorderWidth + 0001:00047ED4 TCustomPanel.SetBorderStyle + 0001:00047F08 TCustomPanel.GetControlsAlignment + 0001:00047F24 TCustomPanel.AdjustClientRect + 0001:00047FAC TCustomPanel.CMDockClient + 0001:00048100 TCustomPanel.CanAutoSize + 0001:00048140 TCustomPanel.SetParentBackground + 0001:00048300 TGroupButton.InternalCreate + 0001:000483A0 TGroupButton.Destroy + 0001:000483E8 TGroupButton.CNCommand + 0001:00048480 TGroupButton.KeyPress + 0001:000484D8 TGroupButton.KeyDown + 0001:00048510 TCustomRadioGroup.Create + 0001:000485C4 TCustomRadioGroup.Destroy + 0001:0004862C TCustomRadioGroup.FlipChildren + 0001:0004863C TCustomRadioGroup.ArrangeButtons + 0001:00048820 TCustomRadioGroup.ButtonClick + 0001:0004886C TCustomRadioGroup.ItemsChange + 0001:000488C4 TCustomRadioGroup.Loaded + 0001:000488E0 TCustomRadioGroup.ReadState + 0001:00048918 TCustomRadioGroup.SetButtonCount + 0001:00048970 TCustomRadioGroup.SetColumns + 0001:000489C4 TCustomRadioGroup.SetItemIndex + 0001:00048A94 TCustomRadioGroup.SetItems + 0001:00048AB8 TCustomRadioGroup.UpdateButtons + 0001:00048BB4 TCustomRadioGroup.CMEnabledChanged + 0001:00048C14 TCustomRadioGroup.CMFontChanged + 0001:00048C38 TCustomRadioGroup.WMSize + 0001:00048C5C TCustomRadioGroup.CanModify + 0001:00048C70 TCustomRadioGroup.GetChildren + 0001:00048C84 TSplitter.Create + 0001:00048D1C TSplitter.Destroy + 0001:00048D5C TSplitter.AllocateLineDC + 0001:00048DF8 TSplitter.DrawLine + 0001:00048E8C TSplitter.ReleaseLineDC + 0001:00048EFC TSplitter.FindControl + 0001:00049010 TSplitter.RequestAlign + 0001:0004905C TSplitter.Paint + 0001:000491F4 TSplitter.DoCanResize + 0001:00049244 TSplitter.CanResize + 0001:00049284 TSplitter.MouseDown + 0001:000494B4 TSplitter.UpdateControlSize + 0001:0004966C TSplitter.CalcSplitSize + 0001:0004979C TSplitter.UpdateSize + 0001:000497D0 TSplitter.MouseMove + 0001:00049898 TSplitter.MouseUp + 0001:00049900 TSplitter.FocusKeyDown + 0001:00049958 TSplitter.SetBeveled + 0001:00049980 TSplitter.StopSizing + 0001:00049D10 Finalization + 0001:00049D58 ExtCtrls + 0001:00049E38 Finalization + 0001:00049E68 ComStrs + 0001:00049F08 TClipboard.Clear + 0001:00049F4C TClipboard.Adding + 0001:00049F78 TClipboard.Close + 0001:00049FBC TClipboard.Open + 0001:0004A038 TClipboard.WndProc + 0001:0004A070 TClipboard.SetBuffer + 0001:0004A15C TClipboard.SetTextBuf + 0001:0004A188 TClipboard.GetAsText + 0001:0004A208 TClipboard.SetAsText + 0001:0004A238 TClipboard.AssignToPicture + 0001:0004A2FC TClipboard.AssignToBitmap + 0001:0004A368 TClipboard.AssignToMetafile + 0001:0004A3D4 TClipboard.AssignTo + 0001:0004A44C TClipboard.AssignPicture + 0001:0004A4D0 TClipboard.AssignGraphic + 0001:0004A554 TClipboard.Assign + 0001:0004A5B0 TClipboard.GetAsHandle + 0001:0004A604 HasAPicture + 0001:0004A68C TClipboard.HasFormat + 0001:0004A6D0 Clipboard + 0001:0004A6FC TClipboard.MainWndProc + 0001:0004A760 TClipboard.Destroy + 0001:0004A7A4 Finalization + 0001:0004A7E0 Clipbrd + 0001:0004A83C AnsiReplaceStr + 0001:0004A870 AnsiReplaceText + 0001:0004A8A4 AnsiContainsStr + 0001:0004A8C8 ReverseString + 0001:0004A924 LeftStr + 0001:0004A99C RightStr + 0001:0004AA2C Finalization + 0001:0004AA5C StrUtils + 0001:0004B6E8 GetBitBtnGlyph + 0001:0004B900 TGlyphList.CreateSize + 0001:0004B964 TGlyphList.Destroy + 0001:0004B9A4 TGlyphList.AllocateIndex + 0001:0004BA0C TGlyphList.AddMasked + 0001:0004BA48 TGlyphList.Delete + 0001:0004BA8C TGlyphCache.Create + 0001:0004BAE0 TGlyphCache.Destroy + 0001:0004BB1C TGlyphCache.GetList + 0001:0004BB98 TGlyphCache.ReturnList + 0001:0004BBD0 TGlyphCache.Empty + 0001:0004BBF0 TButtonGlyph.Create + 0001:0004BCA0 TButtonGlyph.Destroy + 0001:0004BD0C TButtonGlyph.Invalidate + 0001:0004BD74 TButtonGlyph.GlyphChanged + 0001:0004BDC0 TButtonGlyph.SetGlyph + 0001:0004BE58 TButtonGlyph.SetNumGlyphs + 0001:0004BE98 TButtonGlyph.CreateButtonGlyph + 0001:0004C4DC TButtonGlyph.DrawButtonGlyph + 0001:0004C668 TButtonGlyph.DrawButtonText + 0001:0004C760 TButtonGlyph.CalcButtonLayout + 0001:0004CAF0 TButtonGlyph.Draw + 0001:0004CB64 TSpeedButtonActionLink.AssignClient + 0001:0004CB94 TSpeedButtonActionLink.IsCheckedLinked + 0001:0004CBFC TSpeedButtonActionLink.IsGroupIndexLinked + 0001:0004CC40 TSpeedButtonActionLink.SetChecked + 0001:0004CC6C TSpeedButtonActionLink.SetGroupIndex + 0001:0004CC98 TSpeedButton.Create + 0001:0004CD7C TSpeedButton.Destroy + 0001:0004CDC4 TSpeedButton.Paint + 0001:0004D2B8 TSpeedButton.UpdateTracking + 0001:0004D334 TSpeedButton.Loaded + 0001:0004D370 TSpeedButton.MouseDown + 0001:0004D3D8 TSpeedButton.MouseMove + 0001:0004D498 TSpeedButton.MouseUp + 0001:0004D5BC TSpeedButton.Click + 0001:0004D5D0 TSpeedButton.GetPalette + 0001:0004D5F0 TSpeedButton.GetActionLinkClass + 0001:0004D608 TSpeedButton.GetGlyph + 0001:0004D628 TSpeedButton.SetGlyph + 0001:0004D654 TSpeedButton.GetNumGlyphs + 0001:0004D674 TSpeedButton.SetNumGlyphs + 0001:0004D6C4 TSpeedButton.GlyphChanged + 0001:0004D6DC TSpeedButton.UpdateExclusive + 0001:0004D72C TSpeedButton.SetDown + 0001:0004D7C8 TSpeedButton.SetFlat + 0001:0004D7FC TSpeedButton.SetGroupIndex + 0001:0004D830 TSpeedButton.SetLayout + 0001:0004D864 TSpeedButton.SetMargin + 0001:0004D89C TSpeedButton.SetSpacing + 0001:0004D8D0 TSpeedButton.SetTransparent + 0001:0004D934 TSpeedButton.SetAllowAllUp + 0001:0004D968 TSpeedButton.WMLButtonDblClk + 0001:0004D9A0 TSpeedButton.CMEnabledChanged + 0001:0004D9E4 TSpeedButton.CMButtonPressed + 0001:0004DA84 TSpeedButton.CMDialogChar + 0001:0004DB34 TSpeedButton.CMFontChanged + 0001:0004DB4C TSpeedButton.CMTextChanged + 0001:0004DB64 TSpeedButton.CMSysColorChange + 0001:0004DB9C TSpeedButton.CMMouseEnter + 0001:0004DC34 TSpeedButton.CMMouseLeave + 0001:0004DCC0 CopyImage + 0001:0004DD60 TSpeedButton.ActionChange + 0001:0004DE1C TBitBtn.Create + 0001:0004DEFC TBitBtn.Destroy + 0001:0004DF4C TBitBtn.CreateHandle + 0001:0004DF88 TBitBtn.CreateParams + 0001:0004DFAC TBitBtn.SetButtonStyle + 0001:0004DFE0 TBitBtn.Click + 0001:0004E078 TBitBtn.CNMeasureItem + 0001:0004E0AC TBitBtn.CNDrawItem + 0001:0004E0CC TBitBtn.DrawItem + 0001:0004E5A4 TBitBtn.CMFontChanged + 0001:0004E5C8 TBitBtn.CMEnabledChanged + 0001:0004E5EC TBitBtn.WMLButtonDblClk + 0001:0004E618 TBitBtn.GetPalette + 0001:0004E638 TBitBtn.SetGlyph + 0001:0004E66C TBitBtn.GetGlyph + 0001:0004E68C TBitBtn.GlyphChanged + 0001:0004E6A4 TBitBtn.IsCustom + 0001:0004E6C4 TBitBtn.SetStyle + 0001:0004E6F8 TBitBtn.SetKind + 0001:0004E838 TBitBtn.IsCustomCaption + 0001:0004E8BC TBitBtn.GetKind + 0001:0004E95C TBitBtn.SetLayout + 0001:0004E990 TBitBtn.GetNumGlyphs + 0001:0004E9B0 TBitBtn.SetNumGlyphs + 0001:0004EA00 TBitBtn.SetSpacing + 0001:0004EA34 TBitBtn.SetMargin + 0001:0004EA6C CopyImage + 0001:0004EB0C TBitBtn.ActionChange + 0001:0004EBA4 DestroyLocals + 0001:0004EBCC TBitBtn.CMMouseEnter + 0001:0004EC20 TBitBtn.CMMouseLeave + 0001:0004ECE8 Finalization + 0001:0004ED20 Buttons + 0001:0004ED48 Finalization + 0001:0004ED78 ExtDlgs + 0001:0004ED98 Finalization + 0001:0004EDE0 IniFiles + 0001:0004EEB0 ReadError + 0001:0004EEE4 IsRelative + 0001:0004EF0C RegDataToDataType + 0001:0004EF5C DataTypeToRegData + 0001:0004EFA0 TRegistry.Create + 0001:0004EFF8 TRegistry.Destroy + 0001:0004F034 TRegistry.CloseKey + 0001:0004F080 TRegistry.SetRootKey + 0001:0004F0C8 TRegistry.ChangeKey + 0001:0004F0FC TRegistry.GetBaseKey + 0001:0004F134 TRegistry.OpenKey + 0001:0004F26C TRegistry.OpenKeyReadOnly + 0001:0004F44C TRegistry.DeleteValue + 0001:0004F47C TRegistry.GetKeyInfo + 0001:0004F510 TRegistry.GetValueNames + 0001:0004F5E4 TRegistry.GetDataInfo + 0001:0004F640 TRegistry.GetDataSize + 0001:0004F674 TRegistry.WriteString + 0001:0004F6A8 TRegistry.ReadString + 0001:0004F734 TRegistry.ReadInteger + 0001:0004F76C TRegistry.ReadBool + 0001:0004F790 TRegistry.ReadDateTime + 0001:0004F7D0 TRegistry.PutData + 0001:0004F840 TRegistry.GetData + 0001:0004F8C0 TRegistry.ValueExists + 0001:0004F8FC Finalization + 0001:0004F944 Registry + 0001:0004F960 Finalization + 0001:0004F9B0 Mapi + 0001:0004F9BC Finalization + 0001:0004FA0C ExtActns + 0001:0005072C TListControlItem.Assign + 0001:000507C4 TListControlItem.Changed + 0001:000507E8 TListControlItem.Create + 0001:0005083C TListControlItem.GetDisplayName + 0001:00050878 TListControlItem.SetCaption + 0001:000508A0 TListControlItem.SetData + 0001:000508C4 TListControlItem.SetImageIndex + 0001:000508E8 ListItemsCompare + 0001:00050928 TListControlItems.Add + 0001:0005094C TListControlItems.CustomSort + 0001:0005098C TListControlItems.CompareItems + 0001:000509FC TListControlItems.ExchangeItems + 0001:00050A68 TListControlItems.QuickSort + 0001:00050B2C TListControlItems.GetListItem + 0001:00050B50 TListControlItems.SetSortType + 0001:00050B88 TListControlItems.Sort + 0001:00050BA0 TListControlItems.Create + 0001:00050BFC TCustomListAction.Create + 0001:00050C6C TCustomListAction.ExecuteTarget + 0001:00050DA8 TCustomListAction.GetCount + 0001:00050DE4 TCustomListAction.GetString + 0001:00050E00 TCustomListAction.HandlesTarget + 0001:00050E18 TCustomListAction.Loaded + 0001:00050E64 TCustomListAction.SetActive + 0001:00050F6C TCustomListAction.SetImages + 0001:0005100C TCustomListAction.SetItemIndex + 0001:0005108C TCustomListAction.SetString + 0001:000510A0 TVirtualListAction.GetItem + 0001:00051100 TVirtualListAction.GetString + 0001:000511F0 TStaticListItems.Notify + 0001:000513F8 TStaticListItems.Update + 0001:00051560 TStaticListAction.Create + 0001:000515D8 TStaticListAction.Destroy + 0001:00051618 TStaticListAction.GetCount + 0001:0005163C TStaticListAction.GetItem + 0001:000516C0 TStaticListAction.GetItemClass + 0001:000516D8 TStaticListAction.GetString + 0001:00051708 TStaticListAction.SetListitems + 0001:0005172C TStaticListAction.SetString + 0001:00051758 TListActionLink.IsActiveLinked + 0001:0005177C TListActionLink.IsImagesLinked + 0001:000517BC TListActionLink.SetAction + 0001:00051818 TListActionLink.SetActive + 0001:0005189C TListActionLink.SetImages + 0001:000518AC TListActionLink.RefreshControl + 0001:00051A34 TListActionLink.AddItem + 0001:00051A44 TListActionLink.AddItem + 0001:00051A8C TListActionLink.SetItemIndex + 0001:00051AD4 Finalization + 0001:00051B04 ListActns + 0001:0005DBCC InitCommonControl + 0001:0005DC08 CheckCommonControl + 0001:0005DC38 GetShellModule + 0001:0005DC8C GetComCtlVersion + 0001:0005DCD0 SetComCtlStyle + 0001:0005DE2C TabControlError + 0001:0005DE4C TTabStrings.Clear + 0001:0005DEC8 TTabStrings.Delete + 0001:0005DF6C TTabStrings.Get + 0001:0005E070 TTabStrings.GetCount + 0001:0005E0A0 TTabStrings.GetObject + 0001:0005E14C TTabStrings.Put + 0001:0005E244 TTabStrings.PutObject + 0001:0005E2F0 TTabStrings.Insert + 0001:0005E3E8 TTabStrings.SetUpdateState + 0001:0005E444 TCustomTabControl.Create + 0001:0005E534 TCustomTabControl.Destroy + 0001:0005E59C TCustomTabControl.CanChange + 0001:0005E5D4 TCustomTabControl.CanShowTab + 0001:0005E5EC TCustomTabControl.Change + 0001:0005E618 TCustomTabControl.CreateParams + 0001:0005E768 TCustomTabControl.CreateWnd + 0001:0005E81C TCustomTabControl.DrawTab + 0001:0005E870 TCustomTabControl.GetDisplayRect + 0001:0005E8B8 TCustomTabControl.GetImageIndex + 0001:0005E8FC TCustomTabControl.GetTabIndex + 0001:0005E928 TCustomTabControl.Loaded + 0001:0005E950 TCustomTabControl.SetHotTrack + 0001:0005E984 TCustomTabControl.Notification + 0001:0005E9C4 TCustomTabControl.SetImages + 0001:0005EA68 TCustomTabControl.ImageListChange + 0001:0005EA90 TCustomTabControl.InternalSetMultiLine + 0001:0005EB38 TCustomTabControl.SetMultiLine + 0001:0005EB60 TCustomTabControl.SetMultiSelect + 0001:0005EB94 TCustomTabControl.SetOwnerDraw + 0001:0005EBC8 TCustomTabControl.SetRaggedRight + 0001:0005EC04 TCustomTabControl.SetScrollOpposite + 0001:0005EC48 TCustomTabControl.SetStyle + 0001:0005ECF0 TCustomTabControl.SetTabHeight + 0001:0005EDB4 TCustomTabControl.SetTabIndex + 0001:0005EDE0 TCustomTabControl.SetTabPosition + 0001:0005EE98 TCustomTabControl.SetTabs + 0001:0005EEBC TCustomTabControl.SetTabWidth + 0001:0005EFA8 TCustomTabControl.TabsChanged + 0001:0005EFF8 TCustomTabControl.UpdateTabSize + 0001:0005F02C TCustomTabControl.UpdateTabImages + 0001:0005F140 TCustomTabControl.CNDrawItem + 0001:0005F234 TCustomTabControl.WMDestroy + 0001:0005F2F0 TCustomTabControl.WMNotifyFormat + 0001:0005F328 TCustomTabControl.WMSize + 0001:0005F358 TCustomTabControl.CMFontChanged + 0001:0005F390 TCustomTabControl.CMSysColorChange + 0001:0005F3C8 TCustomTabControl.CMTabStopChanged + 0001:0005F3EC TCustomTabControl.CNNotify + 0001:0005F444 TCustomTabControl.CMDialogChar + 0001:0005F540 TCustomTabControl.AdjustClientRect + 0001:0005F578 TCustomTabControl.TCMAdjustRect + 0001:0005F5FC TTabSheet.Create + 0001:0005F684 TTabSheet.Destroy + 0001:0005F6F8 TTabSheet.DoHide + 0001:0005F724 TTabSheet.DoShow + 0001:0005F750 TTabSheet.GetPageIndex + 0001:0005F790 TTabSheet.GetTabIndex + 0001:0005F7FC TTabSheet.CreateParams + 0001:0005F82C TTabSheet.ReadState + 0001:0005F86C TTabSheet.SetImageIndex + 0001:0005F8B4 TTabSheet.SetPageControl + 0001:0005F90C TTabSheet.SetPageIndex + 0001:0005F9C8 TTabSheet.SetTabShowing + 0001:0005FA34 TTabSheet.SetTabVisible + 0001:0005FA68 TTabSheet.UpdateTabShowing + 0001:0005FA98 TTabSheet.CMTextChanged + 0001:0005FAC8 TTabSheet.CMShowingChanged + 0001:0005FB80 TTabSheet.SetHighlighted + 0001:0005FBD4 TTabSheet.WMNCPaint + 0001:0005FCF4 TTabSheet.WMPrintClient + 0001:0005FD50 TPageControl.Create + 0001:0005FDBC TPageControl.Destroy + 0001:0005FE38 TPageControl.UpdateTabHighlights + 0001:0005FE88 TPageControl.Loaded + 0001:0005FEA4 TPageControl.CanShowTab + 0001:0005FED0 TPageControl.Change + 0001:0005FF30 TPageControl.ChangeActivePage + 0001:00060094 TPageControl.DeleteTab + 0001:0006010C TPageControl.DoAddDockClient + 0001:0006013C TPageControl.DockOver + 0001:00060194 TPageControl.DoRemoveDockClient + 0001:000601E0 TPageControl.FindNextPage + 0001:000602B4 TPageControl.GetChildren + 0001:00060304 TPageControl.GetImageIndex + 0001:000603A0 TPageControl.GetPageFromDockClient + 0001:0006040C TPageControl.GetPage + 0001:00060434 TPageControl.GetPageCount + 0001:00060454 TPageControl.GetSiteInfo + 0001:000604A0 TPageControl.InsertPage + 0001:000604D8 TPageControl.InsertTab + 0001:00060554 TPageControl.MoveTab + 0001:00060580 TPageControl.RemovePage + 0001:000605EC TPageControl.SelectNextPage + 0001:00060658 TPageControl.SetActivePage + 0001:000606F8 TPageControl.SetChildOrder + 0001:00060718 TPageControl.ShowControl + 0001:00060760 TPageControl.UpdateTab + 0001:000607CC TPageControl.UpdateActivePage + 0001:00060814 TPageControl.CMDesignHitTest + 0001:00060878 TPageControl.CMDialogKey + 0001:000608F8 TPageControl.CMDockClient + 0001:00060A60 TPageControl.CMDockNotification + 0001:00060B4C TPageControl.CMUnDockClient + 0001:00060B94 TPageControl.GetDockClientFromMousePos + 0001:00060C58 TPageControl.WMLButtonDown + 0001:00060CB0 TPageControl.WMLButtonDblClk + 0001:00060CFC TPageControl.SetActivePageIndex + 0001:00060D40 TPageControl.SetTabIndex + 0001:00060DA8 TPageControl.WMEraseBkGnd + 0001:00060DEC TStatusPanel.Create + 0001:00060E54 TStatusPanel.Assign + 0001:00060ECC TStatusPanel.SetBiDiMode + 0001:00060F04 TStatusPanel.IsBiDiModeStored + 0001:00060F20 TStatusPanel.SetParentBiDiMode + 0001:00060F4C TStatusPanel.ParentBiDiModeChanged + 0001:00060F94 TStatusPanel.UseRightToLeftReading + 0001:00060FC4 TStatusPanel.UseRightToLeftAlignment + 0001:00060FF4 TStatusPanel.GetDisplayName + 0001:00061028 TStatusPanel.SetAlignment + 0001:00061058 TStatusPanel.SetBevel + 0001:00061088 TStatusPanel.SetStyle + 0001:000610B8 TStatusPanel.SetText + 0001:000610F0 TStatusPanel.SetWidth + 0001:00061120 TStatusPanels.Create + 0001:00061194 TStatusPanels.Add + 0001:000611B0 TStatusPanels.GetItem + 0001:000611D4 TStatusPanels.GetOwner + 0001:000611F0 TStatusPanels.Update + 0001:00061230 TCustomStatusBar.Create + 0001:0006130C TCustomStatusBar.Destroy + 0001:0006135C TCustomStatusBar.CreateParams + 0001:000613FC TCustomStatusBar.CreateWnd + 0001:0006149C TCustomStatusBar.DoHint + 0001:000614D8 TCustomStatusBar.DrawPanel + 0001:00061528 TCustomStatusBar.SetPanels + 0001:0006154C TCustomStatusBar.SetSimplePanel + 0001:000615A4 TCustomStatusBar.DoRightToLeftAlignment + 0001:00061610 TCustomStatusBar.UpdateSimpleText + 0001:00061684 TCustomStatusBar.SetSimpleText + 0001:000616C0 TCustomStatusBar.CMBiDiModeChanged + 0001:0006175C TCustomStatusBar.FlipChildren + 0001:00061944 TCustomStatusBar.SetSizeGrip + 0001:00061978 TCustomStatusBar.SyncToSystemFont + 0001:000619B4 TCustomStatusBar.UpdatePanel + 0001:00061B6C TCustomStatusBar.UpdatePanels + 0001:00061CA4 TCustomStatusBar.CMWinIniChange + 0001:00061CDC TCustomStatusBar.CNDrawItem + 0001:00061DE8 TCustomStatusBar.WMGetTextLength + 0001:00061E0C TCustomStatusBar.WMPaint + 0001:00061E34 TCustomStatusBar.WMSize + 0001:00061E68 TCustomStatusBar.IsFontStored + 0001:00061EA0 TCustomStatusBar.SetUseSystemFont + 0001:00061EEC TCustomStatusBar.CMColorChanged + 0001:00061F10 TCustomStatusBar.CMParentFontChanged + 0001:00061F4C TCustomStatusBar.ExecuteAction + 0001:00061FEC TCustomStatusBar.CMSysColorChange + 0001:00062010 TCustomStatusBar.CMSysFontChanged + 0001:00062034 TCustomStatusBar.ChangeScale + 0001:00062074 TCustomStatusBar.SetBounds + 0001:000620AC TCustomStatusBar.SetParent + 0001:000620C8 TCustomStatusBar.ValidateSizeGrip + 0001:00062170 TCustomStatusBar.CreatePanel + 0001:000621C8 TCustomStatusBar.CreatePanels + 0001:000621EC TCustomStatusBar.GetPanelClass + 0001:00062204 TCustomStatusBar.WMEraseBkGnd + 0001:0006226C THeaderSection.Create + 0001:000622E8 THeaderSection.Assign + 0001:00062388 THeaderSection.SetBiDiMode + 0001:000623C0 THeaderSection.IsBiDiModeStored + 0001:000623DC THeaderSection.SetParentBiDiMode + 0001:00062408 THeaderSection.ParentBiDiModeChanged + 0001:00062450 THeaderSection.UseRightToLeftReading + 0001:00062480 THeaderSection.UseRightToLeftAlignment + 0001:000624B0 THeaderSection.GetDisplayName + 0001:000624E4 THeaderSection.GetLeft + 0001:00062530 THeaderSection.SetAlignment + 0001:00062560 THeaderSection.SetAutoSize + 0001:000625A4 THeaderSection.SetMaxWidth + 0001:000625F0 THeaderSection.SetMinWidth + 0001:00062638 THeaderSection.SetStyle + 0001:00062668 THeaderSection.SetText + 0001:000626A0 THeaderSection.SetWidth + 0001:0006271C THeaderSection.SetImageIndex + 0001:0006274C THeaderSections.Create + 0001:000627A0 THeaderSections.Add + 0001:000627C0 THeaderSections.GetItem + 0001:000627E4 THeaderSections.GetOwner + 0001:00062800 THeaderSections.Update + 0001:00062838 THeaderSections.AddItem + 0001:000628A4 TCustomHeaderControl.Create + 0001:000629AC TCustomHeaderControl.Destroy + 0001:00062A24 TCustomHeaderControl.CreateParams + 0001:00062AC0 ReadSections + 0001:00062B74 TCustomHeaderControl.CreateWnd + 0001:00062BE0 TCustomHeaderControl.DestroyWnd + 0001:00062C84 TCustomHeaderControl.CMBiDiModeChanged + 0001:00062D00 TCustomHeaderControl.FlipChildren + 0001:00062ED4 TCustomHeaderControl.DrawSection + 0001:00062F28 TCustomHeaderControl.SectionClick + 0001:00062F5C TCustomHeaderControl.SectionResize + 0001:00062F90 TCustomHeaderControl.SectionTrack + 0001:00062FD4 TCustomHeaderControl.SetFullDrag + 0001:00063008 TCustomHeaderControl.SetHotTrack + 0001:0006303C TCustomHeaderControl.SetStyle + 0001:00063070 TCustomHeaderControl.SetDragReorder + 0001:000630A4 TCustomHeaderControl.SetSections + 0001:000630C8 TCustomHeaderControl.UpdateItem + 0001:000631DC TCustomHeaderControl.UpdateSection + 0001:00063208 TCustomHeaderControl.UpdateSections + 0001:000632B0 TCustomHeaderControl.CNDrawItem + 0001:000633C8 TCustomHeaderControl.CNNotify + 0001:00063704 FullWindowUpdate + 0001:00063744 TCustomHeaderControl.WndProc + 0001:00063834 TCustomHeaderControl.WMLButtonDown + 0001:000638A4 TCustomHeaderControl.WMSize + 0001:00063A90 TCustomHeaderControl.WMWindowPosChanged + 0001:00063AB4 TCustomHeaderControl.DoSectionDrag + 0001:00063AE8 TCustomHeaderControl.Notification + 0001:00063B2C TCustomHeaderControl.SetImages + 0001:00063BD8 TCustomHeaderControl.ImageListChange + 0001:00063C08 TCustomHeaderControl.SectionDrag + 0001:00063C70 UpdateSectionOrder + 0001:00063DB4 TCustomHeaderControl.DoSectionEndDrag + 0001:00063E10 TCustomHeaderControl.SectionEndDrag + 0001:00063E3C TCustomHeaderControl.CreateSection + 0001:00063E8C TCustomHeaderControl.CreateSections + 0001:00063EB0 DefaultTreeViewSort + 0001:00063F24 TreeViewError + 0001:00063F44 TTreeNode.Create + 0001:00063FA8 TTreeNode.Destroy + 0001:000640D8 TTreeNode.GetHandle + 0001:000640F8 TTreeNode.GetTreeView + 0001:00064114 TTreeNode.HasAsParent + 0001:0006416C TTreeNode.SetText + 0001:00064218 TTreeNode.SetData + 0001:000642AC TTreeNode.GetState + 0001:00064348 TTreeNode.SetState + 0001:000643F0 TTreeNode.SetImageIndex + 0001:00064464 TTreeNode.SetSelectedIndex + 0001:000644D8 TTreeNode.SetOverlayIndex + 0001:0006453C TTreeNode.SetStateIndex + 0001:000645A8 TTreeNode.CompareCount + 0001:00064600 TTreeNode.DoCanExpand + 0001:00064664 TTreeNode.DoExpand + 0001:000646BC TTreeNode.ExpandItem + 0001:000647C8 TTreeNode.Expand + 0001:000647E8 TTreeNode.Collapse + 0001:00064808 TTreeNode.GetExpanded + 0001:00064828 TTreeNode.SetExpanded + 0001:00064864 TTreeNode.GetSelected + 0001:00064884 TTreeNode.SetSelected + 0001:00064948 TTreeNode.SetSelectedBit + 0001:00064968 TTreeNode.GetCut + 0001:00064988 TTreeNode.SetCut + 0001:000649B4 TTreeNode.GetDropTarget + 0001:000649D4 TTreeNode.SetDropTarget + 0001:00064A30 TTreeNode.GetChildren + 0001:00064A7C TTreeNode.SetFocused + 0001:00064AA8 TTreeNode.GetFocused + 0001:00064AC8 TTreeNode.SetChildren + 0001:00064B0C TTreeNode.GetParent + 0001:00064B60 TTreeNode.getNextSibling + 0001:00064BB4 TTreeNode.getPrevSibling + 0001:00064C08 TTreeNode.GetNextVisible + 0001:00064C68 TTreeNode.GetPrevVisible + 0001:00064CC8 TTreeNode.GetNextChild + 0001:00064CF4 TTreeNode.getFirstChild + 0001:00064D48 TTreeNode.GetLastChild + 0001:00064D88 TTreeNode.GetNext + 0001:00064E3C TTreeNode.GetPrev + 0001:00064E88 TTreeNode.GetAbsoluteIndex + 0001:00064EF0 TTreeNode.GetIndex + 0001:00064F28 TTreeNode.GetItem + 0001:00064FD4 TTreeNode.IndexOf + 0001:0006502C TTreeNode.GetCount + 0001:0006506C TTreeNode.InternalMove + 0001:00065220 TTreeNode.MoveTo + 0001:000653DC TTreeNode.IsFirstNode + 0001:00065418 TTreeNode.MakeVisible + 0001:0006544C TTreeNode.GetLevel + 0001:00065488 TTreeNode.IsNodeVisible + 0001:000654C8 TTreeNode.DisplayRect + 0001:00065514 TTreeNode.AlphaSort + 0001:0006553C TTreeNode.CustomSort + 0001:000655F4 TTreeNode.Delete + 0001:00065610 TTreeNode.DeleteChildren + 0001:00065658 TTreeNode.Assign + 0001:00065748 TTreeNode.IsEqual + 0001:00065788 TTreeNode.ReadData + 0001:000658B0 TTreeNode.WriteData + 0001:000659A8 TTreeNodes.Create + 0001:000659F8 TTreeNodes.Destroy + 0001:00065A34 TTreeNodes.GetCount + 0001:00065A6C TTreeNodes.GetHandle + 0001:00065A8C TTreeNodes.Delete + 0001:00065AA4 TTreeNodes.Clear + 0001:00065B28 TTreeNodes.AddChildFirst + 0001:00065B58 TTreeNodes.AddChildObjectFirst + 0001:00065B8C TTreeNodes.AddChild + 0001:00065BBC TTreeNodes.AddChildObject + 0001:00065BF0 TTreeNodes.AddFirst + 0001:00065C20 TTreeNodes.AddObjectFirst + 0001:00065C54 TTreeNodes.Add + 0001:00065C84 TTreeNodes.AddObject + 0001:00065CB8 TTreeNodes.AddNode + 0001:00065EAC TTreeNodes.Repaint + 0001:00065F10 TTreeNodes.AddedNode + 0001:00065F3C TTreeNodes.CreateItem + 0001:00065F88 TTreeNodes.AddItem + 0001:00066010 TTreeNodes.GetFirstNode + 0001:0006603C TTreeNodes.GetNodeFromIndex + 0001:00066160 TTreeNodes.GetNode + 0001:000661A4 TTreeNodes.BeginUpdate + 0001:000661C8 TTreeNodes.SetUpdateState + 0001:00066204 TTreeNodes.EndUpdate + 0001:00066228 TTreeNodes.Assign + 0001:000662C8 WriteNodes + 0001:00066370 TTreeNodes.DefineProperties + 0001:000663C8 TTreeNodes.ReadData + 0001:000664A0 TTreeNodes.WriteData + 0001:00066520 TTreeNodes.ReadExpandedState + 0001:000665B0 TTreeNodes.WriteExpandedState + 0001:00066618 TTreeNodes.ClearCache + 0001:0006662C TCustomTreeView.Create + 0001:0006685C TCustomTreeView.Destroy + 0001:00066940 TCustomTreeView.CreateParams + 0001:00066A9C TCustomTreeView.CreateWnd + 0001:00066CF4 TCustomTreeView.DestroyWnd + 0001:00066EDC TCustomTreeView.EditWndProc + 0001:00066FF8 TCustomTreeView.CMColorChanged + 0001:00067030 TCustomTreeView.CMCtl3DChanged + 0001:00067060 TCustomTreeView.CMFontChanged + 0001:00067098 TCustomTreeView.CMSysColorChange + 0001:000670D0 TCustomTreeView.AlphaSort + 0001:000670F8 TCustomTreeView.CustomSort + 0001:000671BC TCustomTreeView.SetAutoExpand + 0001:000671F8 TCustomTreeView.SetHotTrack + 0001:00067234 TCustomTreeView.SetRowSelect + 0001:00067270 TCustomTreeView.SetToolTips + 0001:000672B0 TCustomTreeView.SetSortType + 0001:00067314 TCustomTreeView.SetBorderStyle + 0001:00067348 TCustomTreeView.SetDragMode + 0001:00067384 TCustomTreeView.SetButtonStyle + 0001:000673C0 TCustomTreeView.SetLineStyle + 0001:000673FC TCustomTreeView.SetRootStyle + 0001:00067438 TCustomTreeView.SetReadOnly + 0001:00067478 TCustomTreeView.SetHideSelection + 0001:000674C0 TCustomTreeView.GetNodeAt + 0001:00067514 TCustomTreeView.GetHitTestInfoAt + 0001:000675F0 TCustomTreeView.SetTreeNodes + 0001:00067614 TCustomTreeView.SetIndent + 0001:00067644 TCustomTreeView.GetIndent + 0001:00067664 TCustomTreeView.FullExpand + 0001:000676A4 TCustomTreeView.FullCollapse + 0001:000676E4 TCustomTreeView.Loaded + 0001:00067708 TCustomTreeView.GetTopItem + 0001:0006774C TCustomTreeView.SetTopItem + 0001:00067784 TCustomTreeView.OnChangeTimer + 0001:000677C0 TCustomTreeView.GetSelected + 0001:0006782C TCustomTreeView.SetSelected + 0001:00067860 TCustomTreeView.SetChangeDelay + 0001:00067884 TCustomTreeView.GetChangeDelay + 0001:000678A4 TCustomTreeView.GetDropTarget + 0001:000678FC TCustomTreeView.SetDropTarget + 0001:0006793C TCustomTreeView.GetNodeFromItem + 0001:0006798C TCustomTreeView.CNNotify + 0001:000684B8 TCustomTreeView.GetDragImages + 0001:000684F0 TCustomTreeView.WndProc + 0001:000685AC TCustomTreeView.DoStartDrag + 0001:00068664 TCustomTreeView.DoEndDrag + 0001:00068698 TCustomTreeView.CMDrag + 0001:00068740 TCustomTreeView.DoDragOver + 0001:000687AC TCustomTreeView.GetImageIndex + 0001:000687E0 TCustomTreeView.GetSelectedIndex + 0001:00068814 TCustomTreeView.CanChange + 0001:00068854 TCustomTreeView.Change + 0001:000688B8 TCustomTreeView.Added + 0001:000688EC TCustomTreeView.Delete + 0001:00068920 TCustomTreeView.Expand + 0001:00068954 TCustomTreeView.CanExpand + 0001:00068994 TCustomTreeView.Collapse + 0001:000689C8 TCustomTreeView.CanCollapse + 0001:00068A08 TCustomTreeView.CanEdit + 0001:00068A48 TCustomTreeView.Edit + 0001:00068B0C TCustomTreeView.CreateNode + 0001:00068B60 TCustomTreeView.CreateNodes + 0001:00068B84 TCustomTreeView.SetImageList + 0001:00068BB8 TCustomTreeView.ImageListChange + 0001:00068C30 TCustomTreeView.Notification + 0001:00068C88 TCustomTreeView.SetImages + 0001:00068D24 TCustomTreeView.SetStateImages + 0001:00068DC8 TCustomTreeView.WMContextMenu + 0001:00068E98 TCustomTreeView.WMLButtonDown + 0001:00068FAC TCustomTreeView.WMNotify + 0001:0006912C TCustomTreeView.CanvasChanged + 0001:00069148 TCustomTreeView.IsCustomDrawn + 0001:00069224 TCustomTreeView.CustomDraw + 0001:00069298 TCustomTreeView.CustomDrawItem + 0001:00069324 TCustomTreeView.ClearSelection + 0001:00069370 TCustomTreeView.ControlSelectNode + 0001:000693F4 TCustomTreeView.ControlShiftSelectNode + 0001:00069428 TCustomTreeView.DoEnter + 0001:00069444 TCustomTreeView.DoExit + 0001:00069460 TCustomTreeView.FinishSelection + 0001:00069668 TCustomTreeView.GetSelectionCount + 0001:00069688 TCustomTreeView.GetSelection + 0001:000696B0 TCustomTreeView.InvalidateSelectionsRects + 0001:0006970C TCustomTreeView.MouseDown + 0001:00069788 TCustomTreeView.NodeDeselect + 0001:000697BC TCustomTreeView.NodeSelect + 0001:000697FC TCustomTreeView.Select + 0001:00069828 TCustomTreeView.SelectNode + 0001:000698C4 TCustomTreeView.SetMultiSelect + 0001:00069910 TCustomTreeView.SetMultiSelectStyle + 0001:00069944 TCustomTreeView.ShiftSelectNode + 0001:00069B78 TCustomTreeView.Subselect + 0001:00069C2C TCustomTreeView.ValidateSelection + 0001:00069D08 TCustomTreeView.Select + 0001:00069DA0 TCustomTreeView.Select + 0001:00069F58 TCustomTreeView.Deselect + 0001:00069F88 NodeInList + 0001:00069FC8 SiblingNotInList + 0001:0006A044 TCustomTreeView.FindNextToSelect + 0001:0006A0DC TCustomTreeView.GetSelections + 0001:0006A138 TTextAttributes.Create + 0001:0006A190 TTextAttributes.InitFormat + 0001:0006A1B8 TTextAttributes.GetAttributes + 0001:0006A20C TTextAttributes.SetAttributes + 0001:0006A260 TTextAttributes.GetCharset + 0001:0006A284 TTextAttributes.SetCharset + 0001:0006A2B8 TTextAttributes.GetColor + 0001:0006A2E8 TTextAttributes.SetColor + 0001:0006A334 TTextAttributes.GetName + 0001:0006A360 TTextAttributes.SetName + 0001:0006A3D0 TTextAttributes.GetStyle + 0001:0006A420 TTextAttributes.SetStyle + 0001:0006A478 TTextAttributes.GetSize + 0001:0006A4A4 TTextAttributes.SetSize + 0001:0006A4E0 TTextAttributes.GetPitch + 0001:0006A524 TTextAttributes.SetPitch + 0001:0006A568 TTextAttributes.Assign + 0001:0006A6C4 TTextAttributes.AssignTo + 0001:0006A810 TParaAttributes.Create + 0001:0006A860 TParaAttributes.InitPara + 0001:0006A888 TParaAttributes.GetAttributes + 0001:0006A8D0 TParaAttributes.SetAttributes + 0001:0006A954 TParaAttributes.GetAlignment + 0001:0006A980 TParaAttributes.SetAlignment + 0001:0006A9C8 TParaAttributes.GetNumbering + 0001:0006A9F4 TParaAttributes.SetNumbering + 0001:0006AA68 TParaAttributes.GetFirstIndent + 0001:0006AA9C TParaAttributes.SetFirstIndent + 0001:0006AAE4 TParaAttributes.GetLeftIndent + 0001:0006AB18 TParaAttributes.SetLeftIndent + 0001:0006AB60 TParaAttributes.GetRightIndent + 0001:0006AB94 TParaAttributes.SetRightIndent + 0001:0006ABDC TParaAttributes.GetTab + 0001:0006AC18 TParaAttributes.SetTab + 0001:0006AC84 TParaAttributes.Assign + 0001:0006AD38 TConversion.ConvertReadStream + 0001:0006AD64 TConversion.ConvertWriteStream + 0001:0006AE9C TRichEditStrings.Destroy + 0001:0006AED8 TRichEditStrings.AddStrings + 0001:0006AF5C TRichEditStrings.GetCount + 0001:0006AFC8 TRichEditStrings.Get + 0001:0006B040 TRichEditStrings.Put + 0001:0006B0E4 TRichEditStrings.Insert + 0001:0006B298 TRichEditStrings.Delete + 0001:0006B360 TRichEditStrings.Clear + 0001:0006B378 TRichEditStrings.SetUpdateState + 0001:0006B3DC TRichEditStrings.EnableChange + 0001:0006B450 TRichEditStrings.SetTextStr + 0001:0006B4A4 AdjustLineBreaks + 0001:0006B4D8 StreamSave + 0001:0006B54C StreamLoad + 0001:0006B65C TRichEditStrings.LoadFromStream + 0001:0006B7D4 TRichEditStrings.SaveToStream + 0001:0006B8F0 TRichEditStrings.LoadFromFile + 0001:0006BA1C TRichEditStrings.SaveToFile + 0001:0006BB38 TCustomRichEdit.Create + 0001:0006BCAC TCustomRichEdit.Destroy + 0001:0006BD24 TCustomRichEdit.Clear + 0001:0006BD40 TCustomRichEdit.CreateParams + 0001:0006BDE4 TCustomRichEdit.CreateWnd + 0001:0006BF0C TCustomRichEdit.DestroyWnd + 0001:0006BFD8 TCustomRichEdit.WMNCDestroy + 0001:0006BFF4 TCustomRichEdit.WMSetFont + 0001:0006C018 TCustomRichEdit.WMRButtonUp + 0001:0006C07C TCustomRichEdit.CMFontChanged + 0001:0006C0A0 TCustomRichEdit.DoSetMaxLength + 0001:0006C0CC TCustomRichEdit.GetCaretPos + 0001:0006C13C TCustomRichEdit.SetCaretPos + 0001:0006C190 TCustomRichEdit.GetSelLength + 0001:0006C1C4 TCustomRichEdit.GetSelStart + 0001:0006C1F4 TCustomRichEdit.GetSelTextBuf + 0001:0006C278 TCustomRichEdit.GetSelText + 0001:0006C2CC TCustomRichEdit.CMBiDiModeChanged + 0001:0006C338 TCustomRichEdit.SetHideScrollBars + 0001:0006C36C TCustomRichEdit.SetHideSelection + 0001:0006C3B8 TCustomRichEdit.SetSelLength + 0001:0006C41C TCustomRichEdit.GetPlainText + 0001:0006C43C TCustomRichEdit.SetPlainText + 0001:0006C45C TCustomRichEdit.CMColorChanged + 0001:0006C498 TCustomRichEdit.SetRichEditStrings + 0001:0006C4BC TCustomRichEdit.SetSelStart + 0001:0006C4F4 TCustomRichEdit.Print + 0001:0006C6E8 TCustomRichEdit.WMPaint + 0001:0006C7AC TCustomRichEdit.WMSetCursor + 0001:0006C848 TCustomRichEdit.CNNotify + 0001:0006C8F8 TCustomRichEdit.SaveClipboard + 0001:0006C940 TCustomRichEdit.ProtectChange + 0001:0006C988 TCustomRichEdit.SelectionChange + 0001:0006C9B4 TCustomRichEdit.RequestSize + 0001:0006C9E8 TCustomRichEdit.FindText + 0001:0006CA54 TCustomUpDown.Create + 0001:0006CB58 TCustomUpDown.CreateParams + 0001:0006CC24 TCustomUpDown.CreateWnd + 0001:0006CD24 TCustomUpDown.WMVScroll + 0001:0006CDA0 TCustomUpDown.WMSize + 0001:0006CDDC TCustomUpDown.WMHScroll + 0001:0006CE58 TCustomUpDown.DoCanChange + 0001:0006CEA0 TCustomUpDown.CanChange + 0001:0006CF80 TCustomUpDown.CMAllChildrenFlipped + 0001:0006CFB4 TCustomUpDown.CNNotify + 0001:0006D008 TCustomUpDown.Click + 0001:0006D03C IsClass + 0001:0006D080 TCustomUpDown.SetAssociate + 0001:0006D2DC TCustomUpDown.UndoAutoResizing + 0001:0006D35C TCustomUpDown.Notification + 0001:0006D3C0 TCustomUpDown.GetPosition + 0001:0006D418 TCustomUpDown.SetMin + 0001:0006D484 TCustomUpDown.SetMax + 0001:0006D4F0 TCustomUpDown.SetIncrement + 0001:0006D560 TCustomUpDown.SetPosition + 0001:0006D674 TCustomUpDown.SetOrientation + 0001:0006D714 TCustomUpDown.SetAlignButton + 0001:0006D76C TCustomUpDown.SetArrowKeys + 0001:0006D7C4 TCustomUpDown.SetThousands + 0001:0006D81C TCustomUpDown.SetWrap + 0001:0006D874 TListColumn.Create + 0001:0006D934 TListColumn.Destroy + 0001:0006D9AC TListColumn.DefineProperties + 0001:0006DA08 TListColumn.ReadData + 0001:0006DA3C TListColumn.WriteData + 0001:0006DA6C WriteCols + 0001:0006DB70 TListColumn.DoChange + 0001:0006DBF8 TListColumn.SetIndex + 0001:0006DCD0 TListColumn.SetCaption + 0001:0006DD08 TListColumn.GetWidth + 0001:0006DD50 TListColumn.IsWidthStored + 0001:0006DD6C TListColumn.SetWidth + 0001:0006DDD4 TListColumn.SetAlignment + 0001:0006DE24 TListColumn.SetAutoSize + 0001:0006DE78 TListColumn.SetImageIndex + 0001:0006DEA4 TListColumn.SetMaxWidth + 0001:0006DED4 TListColumn.SetMinWidth + 0001:0006DF04 TListColumn.Assign + 0001:0006DFA0 TListColumn.GetDisplayName + 0001:0006DFD4 TListColumns.Create + 0001:0006E028 TListColumns.GetItem + 0001:0006E04C TListColumns.Add + 0001:0006E070 TListColumns.Owner + 0001:0006E08C TListColumns.GetOwner + 0001:0006E0A8 TListColumns.Update + 0001:0006E0E4 TListColumns.UpdateCols + 0001:0006E1DC TWorkArea.Create + 0001:0006E238 TWorkArea.GetDisplayName + 0001:0006E258 TWorkArea.SetDisplayName + 0001:0006E2A4 TWorkAreas.Update + 0001:0006E37C TWorkAreas.GetItem + 0001:0006E4B4 TSubItems.Create + 0001:0006E514 TSubItems.Destroy + 0001:0006E550 TSubItems.Add + 0001:0006E58C TSubItems.AddObject + 0001:0006E5D0 TSubItems.Clear + 0001:0006E5F0 TSubItems.Delete + 0001:0006E624 TSubItems.GetHandle + 0001:0006E648 TSubItems.SetColumnWidth + 0001:0006E6A4 TSubItems.Insert + 0001:0006E704 TSubItems.Put + 0001:0006E734 TSubItems.RefreshItem + 0001:0006E770 TSubItems.SetUpdateState + 0001:0006E794 TSubItems.GetImageIndex + 0001:0006E7B8 TSubItems.SetImageIndex + 0001:0006E7DC TListItem.Create + 0001:0006E848 TListItem.Destroy + 0001:0006E8D8 TListItem.GetListView + 0001:0006E8F4 TListItem.Delete + 0001:0006E924 TListItem.GetHandle + 0001:0006E944 TListItem.MakeVisible + 0001:0006E974 TListItem.GetChecked + 0001:0006E9D0 TListItem.SetChecked + 0001:0006EA34 TListItem.Update + 0001:0006EA58 TListItem.SetCaption + 0001:0006EB24 TListItem.SetData + 0001:0006EB6C TListItem.GetState + 0001:0006EBF8 TListItem.SetState + 0001:0006EC94 TListItem.SetImage + 0001:0006EE2C TListItem.SetIndent + 0001:0006EEB0 TListItem.Assign + 0001:0006EF74 TListItem.IsEqual + 0001:0006EFB4 TListItem.SetSubItems + 0001:0006EFD8 TListItem.GetIndex + 0001:0006F018 TListItem.DisplayRect + 0001:0006F054 TListItem.GetSubItemImage + 0001:0006F078 TListItem.SetSubItemImage + 0001:0006F0F4 TListItems.Create + 0001:0006F144 TListItems.Destroy + 0001:0006F180 TListItems.Add + 0001:0006F1A0 TListItems.Insert + 0001:0006F1C4 TListItems.AddItem + 0001:0006F230 TListItems.GetCount + 0001:0006F268 TListItems.GetHandle + 0001:0006F288 TListItems.GetItem + 0001:0006F31C TListItems.IndexOf + 0001:0006F354 TListItems.SetCount + 0001:0006F37C TListItems.Clear + 0001:0006F3A4 TListItems.BeginUpdate + 0001:0006F3C8 TListItems.SetUpdateState + 0001:0006F5D4 TListItems.EndUpdate + 0001:0006F5F8 TListItems.Assign + 0001:0006F670 WriteItems + 0001:0006F718 TListItems.DefineProperties + 0001:0006F770 TListItems.ReadData + 0001:0006F9A8 GetLength + 0001:0006F9D4 TListItems.WriteData + 0001:0006FCA8 TListItems.Delete + 0001:0006FCC8 TListItems.CreateItem + 0001:0006FD0C TIconOptions.Create + 0001:0006FD94 TIconOptions.SetArrangement + 0001:0006FDC4 TIconOptions.SetAutoArrange + 0001:0006FDF4 TIconOptions.SetWrapText + 0001:0006FE24 DefaultListViewSort + 0001:0006FE98 TCustomListView.Create + 0001:000700F8 TCustomListView.Destroy + 0001:00070244 TCustomListView.CreateParams + 0001:000703BC ReadCols + 0001:00070470 TCustomListView.CreateWnd + 0001:00070668 TCustomListView.DestroyWnd + 0001:0007070C TCustomListView.SetImageList + 0001:00070740 TCustomListView.ImageListChange + 0001:000707D8 TCustomListView.Notification + 0001:0007086C UpdateColumnOrder + 0001:000709BC TCustomListView.HeaderWndProc + 0001:00070ADC TCustomListView.EditWndProc + 0001:00070BF8 TCustomListView.UpdateItems + 0001:00070C20 TCustomListView.ResetExStyles + 0001:00070D64 TCustomListView.RestoreChecks + 0001:00070E1C TCustomListView.SaveChecks + 0001:00070EC8 TCustomListView.SetCheckboxes + 0001:00070F7C TCustomListView.SetGridLines + 0001:00070FB0 TCustomListView.SetHotTrack + 0001:00070FE4 TCustomListView.SetHotTrackStyles + 0001:00071018 TCustomListView.SetOwnerData + 0001:00071058 TCustomListView.SetOwnerDraw + 0001:0007108C TCustomListView.SetRowSelect + 0001:000710C0 TCustomListView.SetFlatScrollBars + 0001:000710F4 TCustomListView.SetFullDrag + 0001:00071128 TCustomListView.SetBorderStyle + 0001:0007115C TCustomListView.SetColumnClick + 0001:00071190 TCustomListView.SetItemIndex + 0001:000711E8 TCustomListView.SetMultiSelect + 0001:0007121C TCustomListView.SetColumnHeaders + 0001:00071250 TCustomListView.SetTextColor + 0001:00071280 TCustomListView.SetTextBkColor + 0001:000712C4 TCustomListView.SetAllocBy + 0001:0007130C TCustomListView.CMColorChanged + 0001:00071344 TCustomListView.CMCtl3DChanged + 0001:00071374 TCustomListView.WMNotify + 0001:00071610 TCustomListView.ColumnsShowing + 0001:00071630 TCustomListView.ValidHeaderHandle + 0001:00071650 TCustomListView.CMFontChanged + 0001:000716A8 TCustomListView.SetHideSelection + 0001:000716DC TCustomListView.SetReadOnly + 0001:00071710 TCustomListView.SetIconOptions + 0001:00071758 TCustomListView.SetViewStyle + 0001:0007180C TCustomListView.WMParentNotify + 0001:00071884 TCustomListView.GetItemIndex + 0001:000718B8 TCustomListView.OwnerDataFetch + 0001:000718FC TCustomListView.OwnerDataFind + 0001:0007195C TCustomListView.OwnerDataHint + 0001:000719A4 TCustomListView.OwnerDataStateChange + 0001:000719F8 TCustomListView.CreateListItem + 0001:00071A4C TCustomListView.CreateListItems + 0001:00071A70 ConvertMask + 0001:00071AC0 TCustomListView.GetItem + 0001:00071C30 TCustomListView.GetSelCount + 0001:00071C50 ConvertFlags + 0001:00071C94 ConvertStates + 0001:00071CE4 TCustomListView.CNNotify + 0001:00072B58 TCustomListView.ChangeScale + 0001:00072BE8 TCustomListView.ColClick + 0001:00072C1C TCustomListView.ColRightClick + 0001:00072C60 TCustomListView.InsertItem + 0001:00072C94 TCustomListView.AddItem + 0001:00072D04 TCustomListView.CanChange + 0001:00072D6C TCustomListView.Change + 0001:00072DC8 TCustomListView.Delete + 0001:00072E1C TCustomListView.CanEdit + 0001:00072E5C TCustomListView.Edit + 0001:00072EF4 TCustomListView.GetDragImages + 0001:00072F28 TCustomListView.WndProc + 0001:00072FCC TCustomListView.DoStartDrag + 0001:000730CC TCustomListView.DoEndDrag + 0001:0007310C TCustomListView.CMDrag + 0001:00073280 TCustomListView.DoDragOver + 0001:00073324 TCustomListView.SetItems + 0001:00073348 TCustomListView.SetListColumns + 0001:0007336C TCustomListView.CustomSort + 0001:000733BC TCustomListView.AlphaSort + 0001:000733FC TCustomListView.SetSortType + 0001:0007345C TCustomListView.GetVisibleRowCount + 0001:00073494 TCustomListView.GetViewOrigin + 0001:000734B4 TCustomListView.GetTopItem + 0001:00073500 TCustomListView.Scroll + 0001:00073528 TCustomListView.SetLargeImages + 0001:000735E0 TCustomListView.SetSmallImages + 0001:0007369C TCustomListView.SetStateImages + 0001:000737A0 TCustomListView.GetColumnFromIndex + 0001:000737C8 TCustomListView.GetSelected + 0001:000737F4 TCustomListView.SetSelected + 0001:00073878 TCustomListView.GetDropTarget + 0001:000738B4 TCustomListView.SetDropTarget + 0001:00073908 TCustomListView.GetFocused + 0001:00073934 TCustomListView.SetFocused + 0001:00073988 TCustomListView.GetImageIndex + 0001:000739BC TCustomListView.GetNextItem + 0001:00073AB0 TCustomListView.GetNearestItem + 0001:00073B28 TCustomListView.GetItemAt + 0001:00073B98 TCustomListView.Arrange + 0001:00073BC4 TCustomListView.UpdateColumns + 0001:00073C1C TCustomListView.UpdateColumn + 0001:00073D9C TCustomListView.WMLButtonDown + 0001:00073F40 TCustomListView.DoAutoSize + 0001:00074104 TCustomListView.WMWindowPosChanged + 0001:00074148 TCustomListView.CNDrawItem + 0001:00074280 TCustomListView.CanvasChanged + 0001:0007429C TCustomListView.IsCustomDrawn + 0001:00074400 TCustomListView.CustomDraw + 0001:00074474 TCustomListView.CustomDrawItem + 0001:000744F4 TCustomListView.CustomDrawSubItem + 0001:0007457C TCustomListView.DrawItem + 0001:00074608 TCustomListView.GetSubItemImage + 0001:00074660 TCustomListView.DrawWorkAreas + 0001:000747F8 TCustomListView.WMPaint + 0001:00074834 TCustomListView.SetShowWorkAreas + 0001:00074858 TCustomListView.CMHintShow + 0001:000749AC TCustomListView.DoInfoTip + 0001:000749E8 TCustomListView.SetHoverTime + 0001:00074A18 TCustomListView.GetHoverTime + 0001:00074A38 TCustomListView.AreItemsStored + 0001:00074A88 TCustomListView.MouseUp + 0001:00074AD4 TCustomListView.GetColumnFromTag + 0001:00074B34 TCustomListView.WMContextMenu + 0001:00074BB8 TCustomListView.ClearSelection + 0001:00074C08 TCustomListView.CopySelection + 0001:00074C94 TCustomListView.DeleteSelected + 0001:00074D40 TCustomListView.GetCount + 0001:00074D64 TCustomListView.SelectAll + 0001:00074DB4 TCustomListView.Clear + 0001:00074E0C TCustomListView.GetActionLinkClass + 0001:00074E24 TCustomListView.ActionChange + 0001:00074EA4 TCustomListView.WMVScroll + 0001:00074F48 TAnimate.Create + 0001:00074FEC TAnimate.CreateParams + 0001:000750FC TAnimate.CreateWnd + 0001:0007512C TAnimate.DestroyWnd + 0001:0007517C TAnimate.UpdateActiveState + 0001:000751BC TAnimate.WMNCCalcSize + 0001:000751F8 TAnimate.WMNCHitTest + 0001:00075228 TAnimate.WMNCPaint + 0001:00075344 TAnimate.WMSize + 0001:00075360 TAnimate.WMWindowPosChanged + 0001:00075428 TAnimate.CMColorChanged + 0001:00075454 TAnimate.CNCommand + 0001:000754B4 TAnimate.DoOpen + 0001:000754E0 TAnimate.DoClose + 0001:0007550C TAnimate.DoStart + 0001:00075538 TAnimate.DoStop + 0001:00075570 TAnimate.Loaded + 0001:00075598 TAnimate.GetAnimateParams + 0001:000755FC TAnimate.SetAnimateParams + 0001:00075660 TAnimate.GetActualResHandle + 0001:000756C0 TAnimate.GetActualResId + 0001:00075734 CreateResStream + 0001:000757DC TAnimate.GetFrameInfo + 0001:000758A0 TAnimate.SetActive + 0001:00075910 TAnimate.SetCenter + 0001:00075944 TAnimate.SetCommonAVI + 0001:000759E0 TAnimate.SetFileName + 0001:00075AF8 TAnimate.SetOpen + 0001:00075B58 TAnimate.SetRepetitions + 0001:00075B94 TAnimate.SetResHandle + 0001:00075C0C TAnimate.SetResName + 0001:00075CE4 TAnimate.SetStartFrame + 0001:00075D30 TAnimate.SetStopFrame + 0001:00075D70 TAnimate.SetTimers + 0001:00075DA4 TAnimate.SetTransparent + 0001:00075DD8 TAnimate.CheckOpen + 0001:00075E10 TAnimate.InternalOpen + 0001:00075ECC TAnimate.InternalClose + 0001:00075F20 TAnimate.Play + 0001:00075F8C TAnimate.Reset + 0001:00075FB8 TAnimate.Seek + 0001:00075FF8 TAnimate.Stop + 0001:00076054 TAnimate.CanAutoSize + 0001:0007609C TToolButton.Create + 0001:00076144 TToolButton.MouseDown + 0001:000761A4 TToolButton.MouseMove + 0001:00076218 TToolButton.MouseUp + 0001:00076288 TToolButton.Click + 0001:0007629C TToolButton.Notification + 0001:000762F8 TToolButton.CMTextChanged + 0001:00076378 TToolButton.SetBounds + 0001:000765D0 TToolButton.Paint + 0001:000768BC TToolButton.GetButtonState + 0001:00076984 TToolButton.SetAutoSize + 0001:00076A10 TToolButton.SetButtonState + 0001:00076A98 TToolButton.CMVisibleChanged + 0001:00076B5C TToolButton.CMEnabledChanged + 0001:00076BA4 TToolButton.CMHitTest + 0001:00076BE0 TToolButton.SetDown + 0001:00076C60 TToolButton.SetDropdownMenu + 0001:00076C9C TToolButton.SetGrouped + 0001:00076CD4 TToolButton.SetImageIndex + 0001:00076D64 TToolButton.SetMarked + 0001:00076DC0 TToolButton.SetIndeterminate + 0001:00076E2C TToolButton.SetMenuItem + 0001:00076ED8 TToolButton.SetStyle + 0001:00076FEC TToolButton.SetWrap + 0001:00077030 TToolButton.BeginUpdate + 0001:00077044 TToolButton.EndUpdate + 0001:00077058 TToolButton.GetIndex + 0001:00077098 TToolButton.IsWidthStored + 0001:000770BC TToolButton.RefreshControl + 0001:000770EC TToolButton.UpdateControl + 0001:0007711C TToolButton.CheckMenuDropdown + 0001:0007718C TToolButton.IsCheckedStored + 0001:000771C0 TToolButton.IsImageIndexStored + 0001:000771F4 TToolButton.ActionChange + 0001:0007726C TToolButton.GetActionLinkClass + 0001:00077284 TToolButton.AssignTo + 0001:000772D4 TToolButton.ValidateContainer + 0001:00077358 TToolBar.Create + 0001:0007757C TToolBar.Destroy + 0001:00077660 TToolBar.CreateParams + 0001:00077734 TToolBar.CreateWnd + 0001:00077828 TToolBar.CreateButtons + 0001:000779F8 TToolBar.RepositionButton + 0001:00077B40 TToolBar.RepositionButtons + 0001:00077BC4 TToolBar.GetButtonSize + 0001:00077CBC TToolBar.SetButtonHeight + 0001:00077D04 TToolBar.SetButtonWidth + 0001:00077D4C TToolBar.InsertButton + 0001:00077E4C TToolBar.RemoveButton + 0001:00077F08 TToolBar.UpdateItem + 0001:0007812C TToolBar.UpdateItem2 + 0001:00078340 TToolBar.RefreshButton + 0001:00078450 TToolBar.UpdateButton + 0001:00078554 TToolBar.UpdateButtons + 0001:0007866C TToolBar.UpdateButtonState + 0001:000786CC TToolBar.UpdateButtonStates + 0001:00078728 TToolBar.SetShowCaptions + 0001:00078774 TToolBar.GetButton + 0001:0007879C TToolBar.GetButtonCount + 0001:000787BC TToolBar.SetList + 0001:000787F0 TToolBar.SetFlat + 0001:00078824 TToolBar.SetTransparent + 0001:00078860 TToolBar.SetWrapable + 0001:000788A4 TToolBar.Notification + 0001:0007892C GetImageBitmap + 0001:00078A3C TToolBar.LoadImages + 0001:00078B4C TToolBar.UpdateImages + 0001:00078BF0 TToolBar.ImageListChange + 0001:00078C24 TToolBar.SetImageList + 0001:00078C5C TToolBar.SetImages + 0001:00078CE4 TToolBar.DisabledImageListChange + 0001:00078D18 TToolBar.SetDisabledImageList + 0001:00078D50 TToolBar.SetDisabledImages + 0001:00078DD8 TToolBar.HotImageListChange + 0001:00078E0C TToolBar.SetHotImageList + 0001:00078E44 TToolBar.SetHotImages + 0001:00078ECC TToolBar.SetIndent + 0001:00078F00 TToolBar.SetMenu + 0001:000790E0 TToolBar.RecreateButtons + 0001:0007913C TToolBar.WMCaptureChanged + 0001:00079180 TToolBar.WMKeyDown + 0001:0007924C TToolBar.GetChildren + 0001:00079304 TToolBar.Loaded + 0001:00079368 TToolBar.BeginUpdate + 0001:0007937C TToolBar.EndUpdate + 0001:00079390 TToolBar.ResizeButtons + 0001:000793D8 TToolBar.InternalButtonCount + 0001:000793FC TToolBar.ButtonIndex + 0001:00079584 TToolBar.ReorderButton + 0001:0007965C TToolBar.AdjustControl + 0001:00079768 TToolBar.AlignControls + 0001:000797B8 TToolBar.ChangeScale + 0001:000797CC TToolBar.WMEraseBkgnd + 0001:00079800 TToolBar.WMGetDlgCode + 0001:00079828 TToolBar.WMGetText + 0001:00079868 TToolBar.WMGetTextLength + 0001:0007988C TToolBar.WMSetText + 0001:000798BC TToolBar.WMNotifyFormat + 0001:000798F4 TToolBar.WMSize + 0001:00079938 TToolBar.WMSysChar + 0001:00079974 TToolBar.WMWindowPosChanged + 0001:00079A98 TToolBar.WMWindowPosChanging + 0001:00079B0C CalcSize + 0001:00079D5C WrapHorz + 0001:00079FB8 WrapSizeVert + 0001:0007A0D4 WrapSizeHorz + 0001:0007A19C TToolBar.WrapButtons + 0001:0007A3F8 TToolBar.CanAutoSize + 0001:0007A420 TToolBar.CMControlChange + 0001:0007A464 TToolBar.CNChar + 0001:0007A4B4 TToolBar.CMDialogChar + 0001:0007A56C TToolBar.CMEnabledChanged + 0001:0007A594 TToolBar.CMColorChanged + 0001:0007A5B8 TToolBar.CMParentColorChanged + 0001:0007A5E8 TToolBar.CNSysKeyDown + 0001:0007A61C TToolBar.CMSysFontChanged + 0001:0007A640 TToolBar.CNDropDownClosed + 0001:0007A694 TToolBar.CNNotify + 0001:0007AF98 TToolBar.RecreateButtonsFromToolbar + 0001:0007B090 IsToolButtonMouseMsg + 0001:0007B14C SendDropdownMsg + 0001:0007B1BC TToolBar.WndProc + 0001:0007B418 TToolBar.FlipChildren + 0001:0007B428 TToolBar.FindButtonFromAccel + 0001:0007B4FC TToolBar.IsCustomDrawn + 0001:0007B5D8 TToolBar.CustomDraw + 0001:0007B64C TToolBar.CustomDrawButton + 0001:0007B6D0 TToolBar.CanvasChanged + 0001:0007B6EC FindButton + 0001:0007B7C8 ToolMenuGetMsgHook + 0001:0007BAF4 InitToolMenuHooks + 0001:0007BB30 ReleaseToolMenuHooks + 0001:0007BB70 ToolMenuKeyMsgHook + 0001:0007BC28 InitToolMenuKeyHooks + 0001:0007BC50 ReleaseToolMenuKeyHooks + 0001:0007BC78 TToolBar.ClearTempMenu + 0001:0007BD5C TToolBar.CheckMenuDropdown + 0001:0007C09C IsMenuBar + 0001:0007C11C TToolBar.WMSysCommand + 0001:0007C1F4 TToolBar.ClickButton + 0001:0007C254 TToolBar.InitMenu + 0001:0007C2E4 TToolBar.CancelMenu + 0001:0007C340 TToolBar.TrackMenu + 0001:0007C410 TToolBar.CMFontChanged + 0001:0007C474 TToolBar.SetCustomizable + 0001:0007C4A8 TToolBar.DoGetButton + 0001:0007C6B4 TToolBar.DoQueryDelete + 0001:0007C6F4 TToolBar.DoQueryInsert + 0001:0007C734 TToolBar.SaveButtons + 0001:0007C78C TToolBar.SetHideClippedButtons + 0001:0007C7C0 TToolButtonActionLink.AssignClient + 0001:0007C7F0 TToolButtonActionLink.IsCheckedLinked + 0001:0007C838 TToolButtonActionLink.IsImageIndexLinked + 0001:0007C884 TToolButtonActionLink.SetChecked + 0001:0007C8B0 TToolButtonActionLink.SetImageIndex + 0001:0007C8DC TMonthCalColors.Create + 0001:0007C95C TMonthCalColors.Assign + 0001:0007CA94 TMonthCalColors.SetColor + 0001:0007CB44 TMonthCalColors.SetAllColors + 0001:0007CBC0 TCommonCalendar.Create + 0001:0007CC80 TCommonCalendar.Destroy + 0001:0007CCC0 TCommonCalendar.CheckEmptyDate + 0001:0007CCCC TCommonCalendar.CheckValidDate + 0001:0007CDF8 TCommonCalendar.CreateWnd + 0001:0007CEC0 TCommonCalendar.GetCalStyles + 0001:0007CF1C TCommonCalendar.DoStoreEndDate + 0001:0007CF38 TCommonCalendar.DoStoreMaxDate + 0001:0007CF64 TCommonCalendar.DoStoreMinDate + 0001:0007CF90 TCommonCalendar.GetDate + 0001:0007CFB8 TCommonCalendar.SetCalColors + 0001:0007CFE8 TCommonCalendar.SetDate + 0001:0007D0A0 TCommonCalendar.SetDateTime + 0001:0007D134 TCommonCalendar.SetEndDate + 0001:0007D1C0 TCommonCalendar.SetFirstDayOfWeek + 0001:0007D23C TCommonCalendar.SetMaxDate + 0001:0007D33C TCommonCalendar.SetMaxSelectRange + 0001:0007D3A0 TCommonCalendar.SetMinDate + 0001:0007D4A0 TCommonCalendar.SetMonthDelta + 0001:0007D4EC TCommonCalendar.SetMultiSelect + 0001:0007D558 TCommonCalendar.SetRange + 0001:0007D6B8 TCommonCalendar.SetSelectedRange + 0001:0007D760 TCommonCalendar.SetShowToday + 0001:0007D7A0 TCommonCalendar.SetShowTodayCircle + 0001:0007D7E0 TCommonCalendar.SetWeekNumbers + 0001:0007D81C IsBlankSysTime + 0001:0007D848 TMonthCalendar.Create + 0001:0007D8B8 TMonthCalendar.CMFontChanged + 0001:0007D8F0 TMonthCalendar.CNNotify + 0001:0007DA2C TMonthCalendar.ConstrainedResize + 0001:0007DAAC TMonthCalendar.CreateParams + 0001:0007DB0C TMonthCalendar.GetCalendarHandle + 0001:0007DB28 TMonthCalendar.MsgSetCalColors + 0001:0007DB68 TMonthCalendar.MsgSetDateTime + 0001:0007DBB0 TMonthCalendar.MsgSetRange + 0001:0007DBF8 TMonthCalendar.CanAutoSize + 0001:0007DC50 TComboExItem.Assign + 0001:0007DCC0 TComboExItem.SetCaption + 0001:0007DD14 TComboExItem.SetData + 0001:0007DD68 TComboExItem.SetDisplayName + 0001:0007DD98 TComboExItem.SetImageIndex + 0001:0007DDE8 TComboExItem.SetIndex + 0001:0007DE14 TComboExItem.SetOverlayImageIndex + 0001:0007DE44 TComboExItem.SetSelectedImageIndex + 0001:0007DE74 TComboExItems.Add + 0001:0007DE90 TComboExItems.AddItem + 0001:0007DF08 TComboExItems.GetComboItem + 0001:0007DF2C TComboExItems.Insert + 0001:0007DF7C TComboExItems.Notify + 0001:0007E00C TComboExItems.SetItem + 0001:0007E200 TCustomComboBoxEx.Create + 0001:0007E360 TCustomComboBoxEx.Destroy + 0001:0007E3F0 TCustomComboBoxEx.CNNotify + 0001:0007E464 TCustomComboBoxEx.CreateParams + 0001:0007E4F8 TCustomComboBoxEx.SetImages + 0001:0007E5C4 TCustomComboBoxEx.ImageListChange + 0001:0007E5F8 TCustomComboBoxEx.WndProc + 0001:0007E654 TCustomComboBoxEx.Notification + 0001:0007E694 TCustomComboBoxEx.CMParentColorChanged + 0001:0007E6D0 TCustomComboBoxEx.CMColorChanged + 0001:0007E750 TCustomComboBoxEx.WMLButtonDown + 0001:0007E7EC TCustomComboBoxEx.ComboExWndProc + 0001:0007E820 TCustomComboBoxEx.CreateWnd + 0001:0007EB88 TCustomComboBoxEx.GetItemCount + 0001:0007EBAC TCustomComboBoxEx.GetItemsClass + 0001:0007EBC4 TCustomComboBoxEx.GetActionLinkClass + 0001:0007EBDC TCustomComboBoxEx.SetStyleEx + 0001:0007EC54 TCustomComboBoxEx.ActionChange + 0001:0007ECD4 TCustomComboBoxEx.SetDropDownCount + 0001:0007ED24 TCustomComboBoxEx.GetItemHt + 0001:0007ED3C TCustomComboBoxEx.DestroyWnd + 0001:0007EDA0 TCustomComboBoxEx.Focused + 0001:0007EDFC TCustomComboBoxEx.UpdateAutoComplete + 0001:0007EF58 TStatusBar.GetOnDrawPanel + 0001:0007EF80 TStatusBar.SetOnDrawPanel + 0001:0007EFA4 TComboBoxExStrings.Add + 0001:0007EFDC TComboBoxExStrings.AddObject + 0001:0007F024 TComboBoxExStrings.Clear + 0001:0007F08C TComboBoxExStrings.Create + 0001:0007F0F8 TComboBoxExStrings.Destroy + 0001:0007F134 TComboBoxExStrings.Delete + 0001:0007F154 TComboBoxExStrings.Exchange + 0001:0007F2E0 TComboBoxExStrings.Get + 0001:0007F30C TComboBoxExStrings.GetCapacity + 0001:0007F32C TComboBoxExStrings.GetCount + 0001:0007F34C TComboBoxExStrings.GetObject + 0001:0007F374 TComboBoxExStrings.IndexOf + 0001:0007F3D8 TComboBoxExStrings.IndexOfName + 0001:0007F3FC TComboBoxExStrings.Insert + 0001:0007F42C TComboBoxExStrings.Move + 0001:0007F458 TComboBoxExStrings.Put + 0001:0007F47C TComboBoxExStrings.PutObject + 0001:0007F4AC TComboBoxExStrings.SetUpdateState + 0001:0007F4FC TComboBoxExStrings.GetItemsClass + 0001:0007F514 TComboBoxExStrings.GetItemClass + 0001:0007F52C THeaderControl.GetOnDrawSection + 0001:0007F554 THeaderControl.GetOnSectionClick + 0001:0007F57C THeaderControl.GetOnSectionResize + 0001:0007F5A4 THeaderControl.GetOnSectionTrack + 0001:0007F5CC THeaderControl.SetOnDrawSection + 0001:0007F5F0 THeaderControl.SetOnSectionClick + 0001:0007F614 THeaderControl.SetOnSectionResize + 0001:0007F638 THeaderControl.SetOnSectionTrack + 0001:0007F65C TListViewActionLink.AddItem + 0001:0007F6DC TListViewActionLink.AddItem + 0001:0007F72C TListViewActionLink.SetImages + 0001:0007F770 TComboBoxExActionLink.AddItem + 0001:0007F7EC TComboBoxExActionLink.AddItem + 0001:0007F83C TComboBoxExEnumerator.Clone + 0001:0007F890 TComboBoxExEnumerator.Create + 0001:0007F8E0 TComboBoxExEnumerator.GetCount + 0001:0007F900 TComboBoxExEnumerator.GetString + 0001:0007F92C TComboBoxExEnumerator.Next + 0001:0007FA34 TComboBoxExEnumerator.Reset + 0001:0007FA50 TComboBoxExEnumerator.Skip + 0001:0007FA94 Finalization + 0001:0007FB0C ComCtrls + 0001:0007FD40 ThemeServices + 0001:0007FD6C TThemeServices.Create + 0001:0007FDCC TThemeServices.Destroy + 0001:0007FE0C TThemeServices.GetTheme + 0001:0007FE6C TThemeServices.GetThemesEnabled + 0001:0007FEA0 TThemeServices.DoOnThemeChange + 0001:0007FEC4 TThemeServices.UnloadThemeData + 0001:0007FF14 TThemeServices.ApplyThemeChange + 0001:0007FF30 TThemeServices.ContentRect + 0001:0007FF84 TThemeServices.DrawEdge + 0001:0007FFD4 TThemeServices.DrawElement + 0001:0008001C TThemeServices.DrawIcon + 0001:00080068 TThemeServices.DrawParentBackground + 0001:000800E0 TThemeServices.DrawText + 0001:00080148 TThemeServices.GetElementDetails + 0001:00080208 TThemeServices.GetElementDetails + 0001:00080270 TThemeServices.GetElementDetails + 0001:000802F0 TThemeServices.GetElementDetails + 0001:00080460 TThemeServices.GetElementDetails + 0001:0008053C TThemeServices.GetElementDetails + 0001:000809A8 TThemeServices.PaintBorder + 0001:00080B1C TThemeServices.UpdateThemes + 0001:00080B44 Finalization + 0001:00080B88 Themes + 0001:00087A54 HasPopup + 0001:00087DA4 TCustomGroupBox.Create + 0001:00087E18 TCustomGroupBox.AdjustClientRect + 0001:00087E94 TCustomGroupBox.CreateParams + 0001:00087EB8 TCustomGroupBox.Paint + 0001:000882CC TCustomGroupBox.CMDialogChar + 0001:0008835C TCustomGroupBox.CMTextChanged + 0001:0008837C TCustomGroupBox.CMCtl3DChanged + 0001:000883A8 TCustomGroupBox.WMSize + 0001:000883CC TCustomLabel.Create + 0001:00088494 TCustomLabel.GetLabelText + 0001:000884B0 TCustomLabel.DoDrawText + 0001:0008865C TCustomLabel.Paint + 0001:00088780 TCustomLabel.Loaded + 0001:000887A0 TCustomLabel.AdjustBounds + 0001:00088894 TCustomLabel.SetAlignment + 0001:000888C8 TCustomLabel.SetAutoSize + 0001:00088900 TCustomLabel.GetTransparent + 0001:00088920 TCustomLabel.SetFocusControl + 0001:00088950 TCustomLabel.SetShowAccelChar + 0001:00088984 TCustomLabel.SetTransparent + 0001:000889E4 TCustomLabel.SetLayout + 0001:00088A18 TCustomLabel.SetWordWrap + 0001:00088A58 TCustomLabel.Notification + 0001:00088A98 TCustomLabel.CMTextChanged + 0001:00088AC0 TCustomLabel.CMFontChanged + 0001:00088AEC TCustomLabel.CMDialogChar + 0001:00088BA4 TCustomLabel.CMMouseEnter + 0001:00088BE0 TCustomLabel.CMMouseLeave + 0001:00088C1C TCustomEdit.Create + 0001:00088CF0 TCustomEdit.DoSetMaxLength + 0001:00088D1C TCustomEdit.SetAutoSize + 0001:00088D50 TCustomEdit.SetBorderStyle + 0001:00088D8C TCustomEdit.SetCharCase + 0001:00088DC0 TCustomEdit.SetHideSelection + 0001:00088DF4 TCustomEdit.SetMaxLength + 0001:00088E38 TCustomEdit.SetOEMConvert + 0001:00088E6C TCustomEdit.GetModified + 0001:00088EB4 TCustomEdit.SetModified + 0001:00088EFC TCustomEdit.SetPasswordChar + 0001:00088FA0 TCustomEdit.SetReadOnly + 0001:00088FF4 TCustomEdit.GetSelStart + 0001:00089020 TCustomEdit.SetSelStart + 0001:0008904C TCustomEdit.GetSelLength + 0001:00089080 TCustomEdit.SetSelLength + 0001:000890E8 TCustomEdit.Clear + 0001:0008910C TCustomEdit.CopyToClipboard + 0001:00089130 TCustomEdit.CutToClipboard + 0001:00089154 TCustomEdit.SelectAll + 0001:00089178 TCustomEdit.GetSelTextBuf + 0001:0008921C TCustomEdit.GetSelText + 0001:000892C4 TCustomEdit.SetSelText + 0001:000892F4 TCustomEdit.CreateParams + 0001:000893DC TCustomEdit.CreateWindowHandle + 0001:0008946C TCustomEdit.CreateWnd + 0001:00089510 TCustomEdit.DestroyWnd + 0001:00089534 TCustomEdit.UpdateHeight + 0001:0008958C TCustomEdit.AdjustHeight + 0001:00089660 TCustomEdit.Change + 0001:00089694 TCustomEdit.DefaultHandler + 0001:000896DC TCustomEdit.WMSetFont + 0001:0008972C TCustomEdit.CMCtl3DChanged + 0001:00089770 TCustomEdit.CMFontChanged + 0001:000897B0 TCustomEdit.CNCommand + 0001:000897E8 TCustomEdit.CMEnter + 0001:00089834 TCustomEdit.CMTextChanged + 0001:00089880 TCustomEdit.WMContextMenu + 0001:000898A8 TMemoStrings.GetCount + 0001:00089934 TMemoStrings.Get + 0001:0008998C TMemoStrings.Put + 0001:00089A20 TMemoStrings.Insert + 0001:00089B58 TMemoStrings.Delete + 0001:00089C18 TMemoStrings.Clear + 0001:00089C30 TMemoStrings.SetUpdateState + 0001:00089C94 TMemoStrings.GetTextStr + 0001:00089CB4 TMemoStrings.SetTextStr + 0001:00089D98 TCustomMemo.Create + 0001:00089E48 TCustomMemo.Destroy + 0001:00089E88 TCustomMemo.CreateParams + 0001:00089F04 TCustomMemo.CreateWindowHandle + 0001:0008A038 TCustomMemo.GetCaretPos + 0001:0008A0A8 TCustomMemo.SetCaretPos + 0001:0008A0F8 TCustomMemo.GetControlsAlignment + 0001:0008A114 TCustomMemo.Loaded + 0001:0008A130 TCustomMemo.SetAlignment + 0001:0008A164 TCustomMemo.SetLines + 0001:0008A188 TCustomMemo.SetScrollBars + 0001:0008A1BC TCustomMemo.SetWordWrap + 0001:0008A1F0 TCustomMemo.WMGetDlgCode + 0001:0008A23C TCustomMemo.WMNCDestroy + 0001:0008A258 TCustomMemo.KeyPress + 0001:0008A290 TCustomComboBoxStrings.GetCount + 0001:0008A2C0 TCustomComboBoxStrings.GetObject + 0001:0008A344 TCustomComboBoxStrings.PutObject + 0001:0008A378 TCustomComboBoxStrings.Get + 0001:0008A3EC TCustomComboBoxStrings.Clear + 0001:0008A470 TCustomComboBoxStrings.Delete + 0001:0008A49C TCustomComboBoxStrings.IndexOf + 0001:0008A4D4 TCustomComboBoxStrings.SetUpdateState + 0001:0008A514 TComboBoxStrings.Add + 0001:0008A5A4 TComboBoxStrings.Insert + 0001:0008A634 TCustomCombo.Create + 0001:0008A760 TCustomCombo.Destroy + 0001:0008A7D4 TCustomCombo.Clear + 0001:0008A80C TCustomCombo.DestroyWindowHandle + 0001:0008A840 TCustomCombo.SelectAll + 0001:0008A864 TCustomCombo.GetDroppedDown + 0001:0008A894 TCustomCombo.SetDroppedDown + 0001:0008A8E0 TCustomCombo.GetItemIndex + 0001:0008A924 TCustomCombo.SetItemIndex + 0001:0008A974 TCustomCombo.SetSelLength + 0001:0008A9CC TCustomCombo.SetMaxLength + 0001:0008AA28 TCustomCombo.SetItemHeight + 0001:0008AA54 TCustomCombo.WMCreate + 0001:0008AA90 TCustomCombo.WMDrawItem + 0001:0008AAAC TCustomCombo.WMMeasureItem + 0001:0008AAC8 TCustomCombo.WMDeleteItem + 0001:0008AAE4 TCustomCombo.WMGetDlgCode + 0001:0008AB14 TCustomCombo.CMCancelMode + 0001:0008AB40 TCustomCombo.CMCtl3DChanged + 0001:0008AB70 TCustomComboBox.CMParentColorChanged + 0001:0008ABAC TCustomCombo.EditWndProc + 0001:0008ACCC TCustomCombo.ListWndProc + 0001:0008AD00 TCustomComboBox.SetCharCase + 0001:0008AD34 TCustomCombo.ComboWndProc + 0001:0008B04C TCustomCombo.WndProc + 0001:0008B1A0 TCustomCombo.CNCommand + 0001:0008B340 TCustomCombo.Change + 0001:0008B374 TCustomComboBox.DrawItem + 0001:0008B448 TCustomCombo.DropDown + 0001:0008B474 TCustomCombo.Loaded + 0001:0008B4A8 TCustomCombo.Focused + 0001:0008B4F8 TCustomCombo.CloseUp + 0001:0008B524 TCustomCombo.Select + 0001:0008B560 TCustomCombo.CreateWnd + 0001:0008B5A8 TCustomCombo.AdjustDropDown + 0001:0008B678 TCustomCombo.SetItems + 0001:0008B6B4 TCustomCombo.ClearSelection + 0001:0008B6CC TCustomCombo.CopySelection + 0001:0008B768 TCustomCombo.DeleteSelected + 0001:0008B79C TCustomCombo.GetCount + 0001:0008B7BC TCustomCombo.SetDropDownCount + 0001:0008B7D8 TCustomCombo.AddItem + 0001:0008B834 TCustomComboBox.Create + 0001:0008B8DC TCustomComboBox.Destroy + 0001:0008B92C TCustomComboBox.SetSorted + 0001:0008B960 TCustomComboBox.SetStyle + 0001:0008B9C4 TCustomComboBox.GetItemHt + 0001:0008BA08 TCustomComboBox.CreateParams + 0001:0008BA84 TCustomComboBox.CreateWnd + 0001:0008BC40 TCustomComboBox.DestroyWnd + 0001:0008BCA4 TCustomComboBox.WMEraseBkgnd + 0001:0008BD04 HasSelectedText + 0001:0008BD44 DeleteSelectedText + 0001:0008BE0C TCustomComboBox.KeyPress + 0001:0008C1F0 TCustomComboBox.SelectItem + 0001:0008C3E4 TCustomComboBox.MeasureItem + 0001:0008C420 TCustomComboBox.CNDrawItem + 0001:0008C544 TCustomComboBox.CNMeasureItem + 0001:0008C594 TCustomComboBox.WMLButtonDown + 0001:0008C630 TCustomComboBox.WndProc + 0001:0008C68C TCustomComboBox.GetItemCount + 0001:0008C6B0 TCustomComboBox.GetItemsClass + 0001:0008C6C8 TCustomComboBox.WMPaint + 0001:0008C94C TCustomComboBox.WMNCCalcSize + 0001:0008C95C TButtonActionLink.AssignClient + 0001:0008C98C TButtonActionLink.IsCheckedLinked + 0001:0008C9DC TButtonActionLink.SetChecked + 0001:0008CA48 TButtonControl.Create + 0001:0008CAB0 TButtonControl.ActionChange + 0001:0008CB0C TButtonControl.GetActionLinkClass + 0001:0008CB24 TButtonControl.GetChecked + 0001:0008CB38 TButtonControl.IsCheckedStored + 0001:0008CB6C TButtonControl.SetChecked + 0001:0008CB7C TButtonControl.WndProc + 0001:0008CC0C TButtonControl.CNCtlColorStatic + 0001:0008CC68 TButtonControl.WMEraseBkGnd + 0001:0008CCA0 TButtonControl.CreateParams + 0001:0008CCD4 TButtonControl.SetWordWrap + 0001:0008CD08 TButton.Create + 0001:0008CD84 TButton.Click + 0001:0008CDBC TButton.UseRightToLeftAlignment + 0001:0008CDD0 TButton.SetButtonStyle + 0001:0008CE38 TButton.SetDefault + 0001:0008CE8C TButton.CreateParams + 0001:0008CED8 TButton.CreateWnd + 0001:0008CEFC TButton.CNCommand + 0001:0008CF24 TButton.CMDialogKey + 0001:0008CFB0 TButton.CMDialogChar + 0001:0008D044 TButton.CMFocusChanged + 0001:0008D0B4 TButton.WMEraseBkgnd + 0001:0008D0EC TButton.CNCtlColorBtn + 0001:0008D148 TCustomCheckBox.Create + 0001:0008D1D0 TCustomCheckBox.GetControlsAlignment + 0001:0008D210 TCustomCheckBox.Toggle + 0001:0008D26C TCustomCheckBox.Click + 0001:0008D288 TCustomCheckBox.GetChecked + 0001:0008D2A8 TCustomCheckBox.SetAlignment + 0001:0008D2DC TCustomCheckBox.SetChecked + 0001:0008D308 TCustomCheckBox.SetState + 0001:0008D378 TCustomCheckBox.CreateParams + 0001:0008D3E8 TCustomCheckBox.CreateWnd + 0001:0008D41C TCustomCheckBox.WMSize + 0001:0008D440 TCustomCheckBox.CMCtl3DChanged + 0001:0008D458 TCustomCheckBox.CMDialogChar + 0001:0008D508 TCustomCheckBox.CNCommand + 0001:0008D530 TRadioButton.Create + 0001:0008D5AC TRadioButton.GetChecked + 0001:0008D5C8 TRadioButton.GetControlsAlignment + 0001:0008D608 TRadioButton.SetAlignment + 0001:0008D63C TurnSiblingsOff + 0001:0008D708 TRadioButton.SetChecked + 0001:0008D79C TRadioButton.CreateParams + 0001:0008D808 TRadioButton.CreateWnd + 0001:0008D83C TRadioButton.CMCtl3DChanged + 0001:0008D854 TRadioButton.CMDialogChar + 0001:0008D8E8 TRadioButton.CNCommand + 0001:0008D92C TListBoxStrings.GetCount + 0001:0008D95C TListBoxStrings.Get + 0001:0008DA50 TListBoxStrings.GetObject + 0001:0008DAF0 TListBoxStrings.Put + 0001:0008DB84 TListBoxStrings.PutObject + 0001:0008DBC8 TListBoxStrings.Add + 0001:0008DC70 TListBoxStrings.Insert + 0001:0008DD10 TListBoxStrings.Delete + 0001:0008DD34 TListBoxStrings.Exchange + 0001:0008DEA0 TListBoxStrings.Clear + 0001:0008DEBC TListBoxStrings.SetUpdateState + 0001:0008DEFC TListBoxStrings.IndexOf + 0001:0008DF58 TListBoxStrings.Move + 0001:0008E070 TCustomListBox.Create + 0001:0008E194 TCustomListBox.Destroy + 0001:0008E1F0 TCustomListBox.AddItem + 0001:0008E27C TCustomListBox.GetItemData + 0001:0008E2AC TCustomListBox.SetItemData + 0001:0008E2DC TCustomListBox.InternalGetItemData + 0001:0008E304 TCustomListBox.InternalSetItemData + 0001:0008E32C TCustomListBox.DeleteString + 0001:0008E358 TCustomListBox.ResetContent + 0001:0008E388 TCustomListBox.Clear + 0001:0008E3A0 TCustomListBox.ClearSelection + 0001:0008E3FC TCustomListBox.CopySelection + 0001:0008E54C TCustomListBox.DeleteSelected + 0001:0008E5D0 TCustomListBox.SetColumnWidth + 0001:0008E63C TCustomListBox.SetColumns + 0001:0008E6A4 TCustomListBox.GetItemIndex + 0001:0008E6F8 TCustomListBox.GetCount + 0001:0008E738 TCustomListBox.GetSelCount + 0001:0008E764 TCustomListBox.SetItemIndex + 0001:0008E7C4 TCustomListBox.SetExtendedSelect + 0001:0008E7F8 TCustomListBox.SetIntegralHeight + 0001:0008E838 TCustomListBox.GetItemHeight + 0001:0008E888 TCustomListBox.SetItemHeight + 0001:0008E8C0 TCustomListBox.SetTabWidth + 0001:0008E900 TCustomListBox.SetMultiSelect + 0001:0008E934 TCustomListBox.GetSelected + 0001:0008E99C TCustomListBox.SetSelected + 0001:0008EA6C TCustomListBox.SetSorted + 0001:0008EAB0 TCustomListBox.SetStyle + 0001:0008EB04 TCustomListBox.GetTopIndex + 0001:0008EB30 TCustomListBox.LBGetText + 0001:0008EC0C TCustomListBox.LBGetTextLen + 0001:0008ECD4 TCustomListBox.SetBorderStyle + 0001:0008ED08 TCustomListBox.SetTopIndex + 0001:0008ED40 TCustomListBox.SetItems + 0001:0008ED9C TCustomListBox.ItemAtPos + 0001:0008EE3C TCustomListBox.ItemRect + 0001:0008EECC TCustomListBox.CreateParams + 0001:0008F024 TCustomListBox.CreateWnd + 0001:0008F144 TCustomListBox.DestroyWnd + 0001:0008F1E4 TCustomListBox.WndProc + 0001:0008F268 TCustomListBox.WMLButtonDown + 0001:0008F324 TCustomListBox.CNCommand + 0001:0008F36C PaintListBox + 0001:0008F514 TCustomListBox.WMPaint + 0001:0008F544 TCustomListBox.WMSize + 0001:0008F568 TCustomListBox.DragCanceled + 0001:0008F5C8 TCustomListBox.DrawItem + 0001:0008F704 TCustomListBox.MeasureItem + 0001:0008F740 TCustomListBox.CNDrawItem + 0001:0008F844 TCustomListBox.CNMeasureItem + 0001:0008F894 TCustomListBox.CMCtl3DChanged + 0001:0008F8D0 TCustomListBox.SelectAll + 0001:0008F91C FindString + 0001:0008FA08 TCustomListBox.KeyPress + 0001:0008FBE8 TCustomListBox.SetCount + 0001:0008FCE0 TCustomListBox.DoGetData + 0001:0008FD1C TCustomListBox.DoGetDataObject + 0001:0008FD58 TCustomListBox.DoFindData + 0001:0008FD9C TCustomListBox.GetScrollWidth + 0001:0008FDC8 TCustomListBox.SetScrollWidth + 0001:0008FE00 TScrollBar.Create + 0001:0008FEE4 TScrollBar.CreateParams + 0001:0008FF88 TScrollBar.CreateWnd + 0001:00090058 TScrollBar.NotRightToLeft + 0001:0009008C TScrollBar.SetKind + 0001:000900F0 TScrollBar.SetParams + 0001:00090284 TScrollBar.SetPosition + 0001:000902B4 TScrollBar.SetPageSize + 0001:00090324 TScrollBar.SetMin + 0001:00090354 TScrollBar.SetMax + 0001:00090384 TScrollBar.Change + 0001:000903B8 TScrollBar.Scroll + 0001:000903F4 TScrollBar.DoScroll + 0001:00090568 TScrollBar.CNHScroll + 0001:00090584 TScrollBar.CNVScroll + 0001:000905A0 TScrollBar.CNCtlColorScrollBar + 0001:000905DC TScrollBar.WMEraseBkgnd + 0001:000905F8 TCustomStaticText.Create + 0001:00090688 TCustomStaticText.CreateParams + 0001:00090728 TCustomStaticText.CMDialogChar + 0001:000907E0 TCustomStaticText.CMFontChanged + 0001:00090804 TCustomStaticText.CMTextChanged + 0001:00090830 TCustomStaticText.Loaded + 0001:0009084C TCustomStaticText.AdjustBounds + 0001:00090954 TCustomStaticText.Notification + 0001:00090994 TCustomStaticText.SetAlignment + 0001:000909C8 TCustomStaticText.SetAutoSize + 0001:00090A00 TCustomStaticText.SetBorderStyle + 0001:00090A34 TCustomStaticText.SetFocusControl + 0001:00090A64 TCustomStaticText.SetShowAccelChar + 0001:00090A98 TCustomStaticText.CNCtlColorStatic + 0001:00090B10 TCustomStaticText.SetTransparent + 0001:00090B68 TCustomStaticText.GetTransparent + 0001:00090B88 Finalization + 0001:00090BB8 StdCtrls + 0001:00090CB4 THintAction.Create + 0001:00090D04 Finalization + 0001:00090D34 StdActns + 0001:00090EE8 TWinHelpViewer.HelpFile + 0001:00090FC8 TWinHelpViewer.InternalShutDown + 0001:00091000 TWinHelpViewer.GetViewerName + 0001:00091020 TWinHelpViewer.UnderstandsKeyword + 0001:000910AC TWinHelpViewer.GetHelpStrings + 0001:0009115C TWinHelpViewer.CanShowTableOfContents + 0001:00091170 TWinHelpViewer.ShowTableOfContents + 0001:00091204 TWinHelpViewer.ShowHelp + 0001:0009135C TWinHelpViewer.NotifyID + 0001:00091378 TWinHelpViewer.SoftShutDown + 0001:000913A0 TWinHelpViewer.ShutDown + 0001:000913DC TWinHelpViewer.UnderstandsTopic + 0001:00091450 TWinHelpViewer.DisplayTopic + 0001:00091570 TWinHelpViewer.UnderstandsContext + 0001:000915E8 TWinHelpViewer.DisplayHelpByContext + 0001:00091694 TWinHelpViewer.CallWinHelp + 0001:000917B0 WindowEnumerationTester + 0001:00091818 DialogEnumerationTester + 0001:0009187C FindWinHelp + 0001:000918AC TWinHelpViewer.IsNewQuery + 0001:00091940 TWinHelpViewer.IsBusyWindow + 0001:00091964 TWinHelpViewer.CouldBeUnstableWindow + 0001:0009198C TWinHelpViewer.MakeWinHelpHappy + 0001:000919F4 TWinHelpViewer.RestartWinHelp + 0001:00091A88 TWinHelpViewer.Create + 0001:00091AE0 TWinHelpViewer.Destroy + 0001:00091B18 Finalization + 0001:00091B90 WinHelpViewer + 0001:00094320 ChangeBiDiModeAlignment + 0001:00094348 InitWndProc + 0001:000943FC ObjectFromHWnd + 0001:00094444 FindControl + 0001:000944B4 SendAppMessage + 0001:0009469C CursorToIdent + 0001:000946C4 IdentToCursor + 0001:000946EC GetShortHint + 0001:00094740 GetLongHint + 0001:00094794 PerformEraseBackground + 0001:000947FC GetCaptureControl + 0001:00094838 SetCaptureControl + 0001:000948F8 TSiteList.Find + 0001:0009494C GetTopParent + 0001:0009498C TSiteList.AddSite + 0001:000949F0 TSiteList.Clear + 0001:00094A38 TSiteList.GetTopSite + 0001:00094AC8 TDragObject.Assign + 0001:00094B38 TDragObject.Capture + 0001:00094B64 TDragObject.Finished + 0001:00094B7C TDragObject.GetName + 0001:00094BB0 TDragObject.ReleaseCapture + 0001:00094BD0 TDragObject.WndProc + 0001:00094CE0 TDragObject.GetDragImages + 0001:00094CF8 TDragObject.GetDragCursor + 0001:00094D28 TDragObject.HideDragImage + 0001:00094D34 TDragObject.Instance + 0001:00094D4C TDragObject.ShowDragImage + 0001:00094D58 TDragObject.MainWndProc + 0001:00094DAC TDragObject.BeforeDestruction + 0001:00094DC8 TDragObject.AfterConstruction + 0001:00094DE4 TBaseDragControlObject.Create + 0001:00094E28 TBaseDragControlObject.Assign + 0001:00094E64 TBaseDragControlObject.EndDrag + 0001:00094E94 TBaseDragControlObject.Finished + 0001:00094EDC TDragControlObject.GetDragCursor + 0001:00094F14 TDragControlObject.GetDragImages + 0001:00094F34 TDragControlObject.HideDragImage + 0001:00094F60 TDragControlObject.ShowDragImage + 0001:00094F8C TDragControlObjectEx.BeforeDestruction + 0001:00094F98 TDragDockObject.Create + 0001:0009500C TDragDockObject.Destroy + 0001:00095048 TDragDockObject.Assign + 0001:000950D0 TDragDockObject.EndDrag + 0001:00095100 AbsMin + 0001:00095138 TDragDockObject.AdjustDockRect + 0001:000951E8 TDragDockObject.DrawDragDockImage + 0001:00095208 TDragDockObject.EraseDragDockImage + 0001:00095228 TDragDockObject.GetDragCursor + 0001:00095248 TDragDockObject.GetFrameWidth + 0001:00095260 TDragDockObjectEx.BeforeDestruction + 0001:0009526C IsBeforeTargetWindow + 0001:00095300 ValidDockTarget + 0001:000954C4 IsSiteChildOfClient + 0001:00095510 GetDockSiteAtPos + 0001:00095674 RegisterDockSite + 0001:000956E4 DragMessage + 0001:0009574C IsDelphiHandle + 0001:000957C4 DragFindWindow + 0001:00095808 DragFindTarget + 0001:00095874 DoDragOver + 0001:000958C4 GetDropCtl + 0001:00095994 DragTo + 0001:00095CC4 DragInit + 0001:00095E6C DragInitControl + 0001:00096050 CheckUndock + 0001:000960D0 DragDone + 0001:000963CC CancelDrag + 0001:000963E4 FindVCLWindow + 0001:00096434 FindDragTarget + 0001:00096490 ListAdd + 0001:000964C8 ListRemove + 0001:00096504 MoveWindowOrg + 0001:00096540 FreeDeviceContext + 0001:000965FC FreeDeviceContexts + 0001:000966A8 TControlCanvas.Destroy + 0001:000966E4 TControlCanvas.CreateHandle + 0001:00096790 TControlCanvas.FreeHandle + 0001:000967D8 TControlCanvas.SetControl + 0001:00096804 TControlCanvas.UpdateTextFlags + 0001:0009683C TSizeConstraints.Create + 0001:0009688C TSizeConstraints.AssignTo + 0001:000968F4 TSizeConstraints.SetConstraints + 0001:00096A14 TSizeConstraints.Change + 0001:00096A38 TControlActionLink.AssignClient + 0001:00096A5C TControlActionLink.DoShowHint + 0001:00096B60 TControlActionLink.IsCaptionLinked + 0001:00096BE4 TControlActionLink.IsEnabledLinked + 0001:00096C30 TControlActionLink.IsHintLinked + 0001:00096C7C TControlActionLink.IsVisibleLinked + 0001:00096CC4 TControlActionLink.IsOnExecuteLinked + 0001:00096D00 TControlActionLink.SetCaption + 0001:00096D2C TControlActionLink.SetEnabled + 0001:00096D58 TControlActionLink.SetHint + 0001:00096D88 TControlActionLink.SetVisible + 0001:00096DB4 TControlActionLink.SetOnExecute + 0001:00096DE4 TControlActionLink.IsHelpLinked + 0001:00096E68 TControlActionLink.SetHelpKeyword + 0001:00096E94 TControlActionLink.SetHelpContext + 0001:00096EC0 TControlActionLink.SetHelpType + 0001:00096EEC TControl.Create + 0001:00097014 TControl.Destroy + 0001:000970FC TControl.GetDragImages + 0001:00097114 TControl.GetEnabled + 0001:00097130 TControl.GetPalette + 0001:00097148 TControl.HasParent + 0001:00097164 TControl.GetParentComponent + 0001:00097180 TControl.SetParentComponent + 0001:000971B8 TControl.PaletteChanged + 0001:0009724C TControl.GetAction + 0001:00097278 TControl.SetAnchors + 0001:000972A4 TControl.SetAction + 0001:00097350 TControl.IsAnchorsStored + 0001:00097378 TControl.SetDragMode + 0001:00097394 TControl.RequestAlign + 0001:000973B8 TControl.Resize + 0001:000973E4 TControl.ReadState + 0001:00097490 TControl.Notification + 0001:000974E8 TControl.SetAlign + 0001:000975CC TControl.SetBounds + 0001:0009769C TControl.UpdateAnchorRules + 0001:00097828 TControl.SetLeft + 0001:00097868 TControl.SetTop + 0001:000978A8 TControl.SetWidth + 0001:000978E8 TControl.SetHeight + 0001:00097928 TControl.Dock + 0001:00097A64 TControl.DoDock + 0001:00097AD4 TControl.SetHelpContext + 0001:00097B04 TControl.SetHelpKeyword + 0001:00097B38 TControl.SetHostDockSite + 0001:00097B68 TControl.GetBoundsRect + 0001:00097BB4 TControl.SetBoundsRect + 0001:00097BF8 TControl.GetClientRect + 0001:00097C30 TControl.GetClientWidth + 0001:00097C54 TControl.SetClientWidth + 0001:00097C84 TControl.GetClientHeight + 0001:00097CA8 TControl.SetClientHeight + 0001:00097CD8 TControl.GetClientOrigin + 0001:00097D7C TControl.ClientToScreen + 0001:00097DB8 TControl.ScreenToClient + 0001:00097DF4 TControl.SendCancelMode + 0001:00097E3C TControl.SendDockNotification + 0001:00097EB4 TControl.Changed + 0001:00097ED4 TControl.ChangeScale + 0001:000980EC TControl.SetAutoSize + 0001:00098124 TControl.SetName + 0001:000981E0 TControl.SetClientSize + 0001:00098238 TControl.SetParent + 0001:000982A4 TControl.SetVisible + 0001:000982F8 TControl.SetEnabled + 0001:00098330 TControl.GetTextLen + 0001:00098354 TControl.GetTextBuf + 0001:00098384 TControl.GetUndockHeight + 0001:000983B8 TControl.GetUndockWidth + 0001:000983EC TControl.SetPopupMenu + 0001:00098424 TControl.SetTextBuf + 0001:00098458 TControl.GetText + 0001:00098498 TControl.SetText + 0001:00098504 TControl.SetBiDiMode + 0001:00098540 TControl.FontChanged + 0001:000985A4 TControl.SetFont + 0001:000985C4 TControl.IsFontStored + 0001:000985F0 TControl.IsShowHintStored + 0001:00098610 TControl.IsBiDiModeStored + 0001:0009862C TControl.SetParentFont + 0001:00098674 TControl.SetShowHint + 0001:000986BC TControl.SetParentShowHint + 0001:0009870C TControl.SetColor + 0001:00098748 TControl.IsColorStored + 0001:00098764 TControl.SetParentColor + 0001:000987AC TControl.SetParentBiDiMode + 0001:000987F4 TControl.SetCursor + 0001:00098830 TControl.GetMouseCapture + 0001:0009884C TControl.SetMouseCapture + 0001:00098880 TControl.BringToFront + 0001:0009889C TControl.SendToBack + 0001:000988B8 TControl.SetZOrderPosition + 0001:0009898C TControl.SetZOrder + 0001:000989D0 TControl.GetDeviceContext + 0001:00098A98 BackgroundClipped + 0001:00098B34 TControl.InvalidateControl + 0001:00098BC0 TControl.Invalidate + 0001:00098BE4 TControl.MouseWheelHandler + 0001:00098C40 TControl.Hide + 0001:00098C54 TControl.Show + 0001:00098C94 TControl.Update + 0001:00098CB8 TControl.Refresh + 0001:00098CD0 TControl.Repaint + 0001:00098DD0 TControl.GetControlsAlignment + 0001:00098DE4 TControl.IsRightToLeft + 0001:00098E14 TControl.UseRightToLeftReading + 0001:00098E44 TControl.UseRightToLeftAlignment + 0001:00098E74 TControl.UseRightToLeftScrollBar + 0001:00098EA4 TControl.BeginAutoDrag + 0001:00098EC8 TControl.BeginDrag + 0001:00098FA0 TControl.EndDrag + 0001:00098FDC TControl.DragCanceled + 0001:00098FE8 TControl.Dragging + 0001:00099004 TControl.DragOver + 0001:0009905C TControl.DragDrop + 0001:000990A0 TControl.DoStartDrag + 0001:000990D4 TControl.DoEndDrag + 0001:00099118 TControl.PositionDockRect + 0001:00099240 TControl.DockTrackNoTarget + 0001:00099268 TControl.DoEndDock + 0001:000992AC TControl.DoStartDock + 0001:000992E0 TControl.DoMouseWheel + 0001:000993D8 TControl.DoMouseWheelDown + 0001:00099428 TControl.DoMouseWheelUp + 0001:00099478 TControl.DefaultDockImage + 0001:000995C8 TControl.DrawDragDockImage + 0001:000995EC TControl.EraseDragDockImage + 0001:00099610 TControl.DoDragMsg + 0001:00099720 TControl.ManualDock + 0001:00099958 TControl.ManualFloat + 0001:00099A08 TControl.DoConstraintsChange + 0001:00099A28 TControl.CanAutoSize + 0001:00099A44 TControl.CanResize + 0001:00099A8C TControl.DoCanAutoSize + 0001:00099B00 TControl.DoCanResize + 0001:00099B40 TControl.ConstrainedResize + 0001:00099B88 TControl.CalcCursorPos + 0001:00099BC0 TControl.DesignWndProc + 0001:00099C14 TControl.DoConstrainedResize + 0001:00099D20 TControl.Perform + 0001:00099D6C TControl.CalcDockSizes + 0001:00099E0C TControl.UpdateBoundsRect + 0001:00099E60 TControl.VisibleChanging + 0001:00099E6C TControl.WndProc + 0001:0009A054 TControl.DefaultHandler + 0001:0009A120 TControl.ReadIsControl + 0001:0009A140 TControl.WriteIsControl + 0001:0009A160 DoWriteIsControl + 0001:0009A1A0 TControl.DefineProperties + 0001:0009A1F0 TControl.Click + 0001:0009A280 TControl.DblClick + 0001:0009A2AC TControl.MouseDown + 0001:0009A2F4 TControl.DoMouseDown + 0001:0009A394 TControl.WMLButtonDown + 0001:0009A3F8 TControl.WMNCLButtonDown + 0001:0009A420 TControl.WMLButtonDblClk + 0001:0009A488 TControl.GetPopupMenu + 0001:0009A4A4 TControl.CheckNewSize + 0001:0009A548 TControl.WMRButtonDown + 0001:0009A57C TControl.WMRButtonDblClk + 0001:0009A5B0 TControl.WMMButtonDown + 0001:0009A5E4 TControl.WMMButtonDblClk + 0001:0009A618 TControl.MouseMove + 0001:0009A65C TControl.WMMouseMove + 0001:0009A6F4 TControl.MouseUp + 0001:0009A73C TControl.DoMouseUp + 0001:0009A788 TControl.WMLButtonUp + 0001:0009A810 TControl.WMRButtonUp + 0001:0009A838 TControl.WMMButtonUp + 0001:0009A860 TControl.WMMouseWheel + 0001:0009A8CC TControl.WMCancelMode + 0001:0009A924 TControl.WMWindowPosChanged + 0001:0009AA48 TControl.CMVisibleChanged + 0001:0009AA8C TControl.CMEnabledChanged + 0001:0009AAA4 TControl.CMFontChanged + 0001:0009AABC TControl.CMColorChanged + 0001:0009AAD4 TControl.CMParentColorChanged + 0001:0009AB20 TControl.CMParentBiDiModeChanged + 0001:0009AB5C TControl.CMMouseWheel + 0001:0009ABE0 TControl.CMBiDiModeChanged + 0001:0009AC0C TControl.CMParentShowHintChanged + 0001:0009AC48 TControl.CMParentFontChanged + 0001:0009AC94 TControl.CMSysFontChanged + 0001:0009ACCC TControl.CMHitTest + 0001:0009ACE8 TControl.CMMouseEnter + 0001:0009AD18 TControl.CMMouseLeave + 0001:0009AD48 TControl.CMDesignHitTest + 0001:0009AD60 TControl.CreateFloatingDockSite + 0001:0009ADF0 UpdateFloatingDockSitePos + 0001:0009AEC0 TControl.CMFloat + 0001:0009AF28 TControl.ActionChange + 0001:0009B05C TControl.DoActionChange + 0001:0009B08C TControl.GetActionLinkClass + 0001:0009B0A4 TControl.IsCaptionStored + 0001:0009B0D8 TControl.IsEnabledStored + 0001:0009B10C TControl.IsHintStored + 0001:0009B140 TControl.IsHelpContextStored + 0001:0009B174 TControl.IsVisibleStored + 0001:0009B1A8 TControl.IsOnClickStored + 0001:0009B1DC TControl.Loaded + 0001:0009B21C TControl.AssignTo + 0001:0009B2DC MinVar + 0001:0009B32C TControl.GetDockEdge + 0001:0009B400 TControl.GetFloating + 0001:0009B444 TControl.GetFloatingDockSiteClass + 0001:0009B460 TControl.AdjustSize + 0001:0009B49C TControl.DrawTextBiDiModeFlags + 0001:0009B4F0 TControl.DrawTextBiDiModeFlagsReadingOnly + 0001:0009B51C TControl.InitiateAction + 0001:0009B53C TControl.CMHintShow + 0001:0009B578 TControl.WMContextMenu + 0001:0009B6C4 TControl.DoContextPopup + 0001:0009B708 TControl.SetConstraints + 0001:0009B728 TControl.ClientToParent + 0001:0009B868 TWinControlActionLink.AssignClient + 0001:0009B898 TWinControlActionLink.IsHelpContextLinked + 0001:0009B8B4 TWinControlActionLink.SetHelpContext + 0001:0009B8D0 TWinControl.Create + 0001:0009BA2C TWinControl.Destroy + 0001:0009BB38 TWinControl.FixupTabList + 0001:0009BC3C TWinControl.ReadState + 0001:0009BCB4 TWinControl.AdjustClientRect + 0001:0009BCC4 InsertBefore + 0001:0009BD8C DoPosition + 0001:0009C1DC DoAlign + 0001:0009C378 AlignWork + 0001:0009C3DC TWinControl.AlignControls + 0001:0009C4E0 TWinControl.AlignControl + 0001:0009C578 TWinControl.DisableAlign + 0001:0009C58C TWinControl.EnableAlign + 0001:0009C5C0 TWinControl.Realign + 0001:0009C5D4 TWinControl.DoFlipChildren + 0001:0009C6C8 TWinControl.FlipChildren + 0001:0009C830 TWinControl.ContainsControl + 0001:0009C864 TWinControl.RemoveFocus + 0001:0009C894 TWinControl.Insert + 0001:0009C8F8 TWinControl.Remove + 0001:0009C954 TWinControl.InsertControl + 0001:0009CA44 TWinControl.RemoveControl + 0001:0009CAD0 TWinControl.GetControl + 0001:0009CB3C TWinControl.GetControlCount + 0001:0009CB88 TWinControl.Broadcast + 0001:0009CBDC TWinControl.NotifyControls + 0001:0009CC10 TWinControl.CreateSubClass + 0001:0009CCB8 TWinControl.AddBiDiModeExStyle + 0001:0009CD38 TWinControl.CreateParams + 0001:0009CEC4 TWinControl.CreateWnd + 0001:0009D0DC TWinControl.CreateWindowHandle + 0001:0009D148 TWinControl.ReadDesignSize + 0001:0009D194 TWinControl.WriteDesignSize + 0001:0009D1F8 PointsEqual + 0001:0009D230 DoWriteDesignSize + 0001:0009D34C TWinControl.DefineProperties + 0001:0009D3A8 TWinControl.DestroyWnd + 0001:0009D418 TWinControl.DestroyWindowHandle + 0001:0009D47C TWinControl.PrecedingWindow + 0001:0009D4E8 TWinControl.CreateHandle + 0001:0009D5A8 TWinControl.CustomAlignInsertBefore + 0001:0009D5C4 TWinControl.CustomAlignPosition + 0001:0009D5E8 TWinControl.DestroyHandle + 0001:0009D654 TWinControl.RecreateWnd + 0001:0009D67C TWinControl.CMRecreateWnd + 0001:0009D6D0 TWinControl.UpdateShowing + 0001:0009D7E0 TWinControl.UpdateControlState + 0001:0009D83C TWinControl.SetParentWindow + 0001:0009D8F8 TWinControl.MainWndProc + 0001:0009D978 GetControlAtPos + 0001:0009DA50 TWinControl.ControlAtPos + 0001:0009DB0C TWinControl.IsControlMouseMsg + 0001:0009DBCC TWinControl.WndProc + 0001:0009DD64 TWinControl.DefaultHandler + 0001:0009DEE0 DoControlMsg + 0001:0009DF34 TWinControl.PaintHandler + 0001:0009E0A0 TWinControl.PaintWindow + 0001:0009E0D4 TWinControl.PaintControls + 0001:0009E3B8 TWinControl.PaintTo + 0001:0009E560 TWinControl.WMPaint + 0001:0009E6E4 TWinControl.WMCommand + 0001:0009E714 TWinControl.WMNotify + 0001:0009E744 TWinControl.WMSysColorChange + 0001:0009E76C TWinControl.WMWinIniChange + 0001:0009E798 TWinControl.WMFontChange + 0001:0009E7BC TWinControl.WMTimeChange + 0001:0009E7E0 TWinControl.WMHScroll + 0001:0009E810 TWinControl.WMVScroll + 0001:0009E840 TWinControl.WMCompareItem + 0001:0009E870 TWinControl.WMDeleteItem + 0001:0009E8A0 TWinControl.WMDrawItem + 0001:0009E8D0 TWinControl.WMMeasureItem + 0001:0009E900 TWinControl.WMEraseBkgnd + 0001:0009E9A4 TWinControl.WMWindowPosChanged + 0001:0009EA8C TWinControl.WMWindowPosChanging + 0001:0009EAFC TWinControl.WMSize + 0001:0009EB40 TWinControl.WMMove + 0001:0009EB64 TWinControl.WMSetCursor + 0001:0009ECA0 TWinControl.WMSetFocus + 0001:0009ECC4 TWinControl.WMKillFocus + 0001:0009ECE8 TWinControl.WMIMEStartComp + 0001:0009ED10 TWinControl.WMIMEEndComp + 0001:0009ED38 TWinControl.SetIme + 0001:0009EE44 TWinControl.ResetIme + 0001:0009EEEC TWinControl.DoAddDockClient + 0001:0009EF0C TWinControl.DoRemoveDockClient + 0001:0009EF1C TWinControl.DoEnter + 0001:0009EF48 TWinControl.DoExit + 0001:0009EF74 TWinControl.DockDrop + 0001:0009EFD8 TWinControl.DoDockOver + 0001:0009F024 TWinControl.DockOver + 0001:0009F068 TWinControl.DoUnDock + 0001:0009F0D8 TWinControl.ReloadDockedControl + 0001:0009F10C TWinControl.GetDockClientCount + 0001:0009F140 TWinControl.GetDockClients + 0001:0009F17C TWinControl.GetSiteInfo + 0001:0009F1EC TWinControl.GetVisibleDockClientCount + 0001:0009F23C TWinControl.ControlsAligned + 0001:0009F248 TWinControl.CreateDockManager + 0001:0009F2D0 TWinControl.SetDockSite + 0001:0009F3B4 TWinControl.CMDockClient + 0001:0009F4B0 TWinControl.CMUnDockClient + 0001:0009F4F4 TWinControl.CMFloat + 0001:0009F57C TWinControl.KeyDown + 0001:0009F5B8 TWinControl.DoKeyDown + 0001:0009F640 TWinControl.WMKeyDown + 0001:0009F67C TWinControl.WMSysKeyDown + 0001:0009F6B8 TWinControl.KeyUp + 0001:0009F6F4 TWinControl.DoKeyUp + 0001:0009F77C TWinControl.WMKeyUp + 0001:0009F7A8 TWinControl.WMSysKeyUp + 0001:0009F7D4 TWinControl.KeyPress + 0001:0009F808 TWinControl.DoKeyPress + 0001:0009F890 TWinControl.WMChar + 0001:0009F8BC TraverseControls + 0001:0009F984 TWinControl.WMSysCommand + 0001:0009FA38 TWinControl.WMCharToItem + 0001:0009FA68 TWinControl.WMParentNotify + 0001:0009FAAC TWinControl.WMVKeyToItem + 0001:0009FADC TWinControl.WMDestroy + 0001:0009FB28 TWinControl.WMNCDestroy + 0001:0009FB58 TWinControl.WMNCHitTest + 0001:0009FB94 TWinControl.PaletteChanged + 0001:0009FC00 TWinControl.WMQueryNewPalette + 0001:0009FC34 TWinControl.WMPaletteChanged + 0001:0009FC60 TWinControl.CMShowHintChanged + 0001:0009FC88 TWinControl.CMBiDiModeChanged + 0001:0009FCCC TWinControl.CMEnter + 0001:0009FD4C TWinControl.CMExit + 0001:0009FD6C TWinControl.CMDesignHitTest + 0001:0009FD98 TWinControl.CMChanged + 0001:0009FDC4 TWinControl.CMChildKey + 0001:0009FDF0 TWinControl.CMDialogKey + 0001:0009FE0C TWinControl.CMDialogChar + 0001:0009FE28 TWinControl.CMFocusChanged + 0001:0009FE44 TWinControl.CMVisibleChanged + 0001:0009FE8C TWinControl.CMShowingChanged + 0001:0009FEC8 TWinControl.CMEnabledChanged + 0001:0009FF28 TWinControl.CMColorChanged + 0001:0009FF64 TWinControl.CMFontChanged + 0001:0009FFB4 TWinControl.CMCursorChanged + 0001:000A0000 TWinControl.CMBorderChanged + 0001:000A0054 TWinControl.CMCtl3DChanged + 0001:000A00AC TWinControl.CMParentCtl3DChanged + 0001:000A0104 TWinControl.CMSysColorChange + 0001:000A0120 TWinControl.CMWinIniChange + 0001:000A013C TWinControl.CMFontChange + 0001:000A0158 TWinControl.CMTimeChange + 0001:000A0174 TWinControl.CMDrag + 0001:000A01F0 TWinControl.CMControlListChange + 0001:000A021C TWinControl.CMSysFontChanged + 0001:000A0244 TWinControl.IsMenuKey + 0001:000A02F8 TWinControl.CNKeyDown + 0001:000A0410 TWinControl.CNKeyUp + 0001:000A0474 TWinControl.CNChar + 0001:000A04D8 TWinControl.CNSysKeyDown + 0001:000A0554 TWinControl.CNSysChar + 0001:000A05A0 TWinControl.SetBounds + 0001:000A06B4 TWinControl.ScaleControls + 0001:000A0704 TWinControl.ChangeScale + 0001:000A07C4 TWinControl.ScrollBy + 0001:000A08CC TWinControl.ShowControl + 0001:000A08F8 TWinControl.SetZOrderPosition + 0001:000A0A58 TWinControl.SetZOrder + 0001:000A0AFC TWinControl.GetDeviceContext + 0001:000A0B6C TWinControl.GetParentHandle + 0001:000A0BA4 TWinControl.GetTopParentHandle + 0001:000A0BEC TWinControl.Invalidate + 0001:000A0C08 TWinControl.CMInvalidate + 0001:000A0CC4 TWinControl.Update + 0001:000A0CEC TWinControl.Repaint + 0001:000A0D0C TWinControl.InvalidateFrame + 0001:000A0D4C TWinControl.CanFocus + 0001:000A0DAC TWinControl.SetFocus + 0001:000A0DFC TWinControl.Focused + 0001:000A0E34 TWinControl.HandleNeeded + 0001:000A0E6C TWinControl.GetHandle + 0001:000A0E90 TWinControl.GetControlExtents + 0001:000A0F8C TWinControl.GetClientOrigin + 0001:000A0FC0 TWinControl.GetClientRect + 0001:000A0FE4 TWinControl.AdjustSize + 0001:000A1038 TWinControl.SetBorderWidth + 0001:000A1074 TWinControl.SetCtl3D + 0001:000A10BC TWinControl.IsCtl3DStored + 0001:000A10DC TWinControl.SetParentCtl3D + 0001:000A112C TWinControl.GetTabOrder + 0001:000A1168 TWinControl.UpdateTabOrder + 0001:000A11F4 TWinControl.SetTabOrder + 0001:000A122C TWinControl.SetTabStop + 0001:000A12B0 TWinControl.SetUseDockManager + 0001:000A133C TWinControl.HandleAllocated + 0001:000A135C TWinControl.UpdateBounds + 0001:000A1438 TWinControl.GetTabOrderList + 0001:000A14A8 TWinControl.FindNextControl + 0001:000A15D4 TWinControl.SelectNext + 0001:000A1618 TWinControl.SelectFirst + 0001:000A1674 TWinControl.GetChildren + 0001:000A16C8 TWinControl.SetChildOrder + 0001:000A1718 TWinControl.CanResize + 0001:000A1740 DoCalcConstraints + 0001:000A17FC TWinControl.CalcConstraints + 0001:000A1C40 TWinControl.ConstrainedResize + 0001:000A1C84 TWinControl.ActionChange + 0001:000A1CD8 TWinControl.GetActionLinkClass + 0001:000A1CF0 TWinControl.AssignTo + 0001:000A1D30 TWinControl.CanAutoSize + 0001:000A1F38 TWinControl.SetBevelCut + 0001:000A1FB0 TWinControl.SetBevelEdges + 0001:000A1FEC TWinControl.SetBevelKind + 0001:000A2028 TWinControl.SetBevelWidth + 0001:000A2064 TWinControl.WMNCCalcSize + 0001:000A2148 TWinControl.WMNCPaint + 0001:000A2408 TWinControl.WMContextMenu + 0001:000A2488 TWinControl.UpdateUIState + 0001:000A2504 TWinControl.WMPrintClient + 0001:000A2554 TWinControl.GetParentBackground + 0001:000A2574 TWinControl.SetParentBackground + 0001:000A25CC TGraphicControl.Create + 0001:000A263C TGraphicControl.Destroy + 0001:000A268C TGraphicControl.WMPaint + 0001:000A273C TGraphicControl.Paint + 0001:000A2748 THintWindow.Create + 0001:000A27CC THintWindow.CreateParams + 0001:000A284C THintWindow.WMNCHitTest + 0001:000A2868 THintWindow.WMNCPaint + 0001:000A28CC THintWindow.Paint + 0001:000A297C THintWindow.IsHintMsg + 0001:000A2A10 THintWindow.ReleaseHandle + 0001:000A2A24 THintWindow.CMTextChanged + 0001:000A2AD8 THintWindow.ActivateHint + 0001:000A2CF0 THintWindow.ActivateHintData + 0001:000A2D24 THintWindow.CalcHintRect + 0001:000A2D8C THintWindow.NCPaint + 0001:000A2E00 THintWindow.WMPrint + 0001:000A2E34 ClientToWindow + 0001:000A2E88 TDragImageList.Initialize + 0001:000A2EA8 TDragImageList.CombineDragCursor + 0001:000A2F7C TDragImageList.SetDragImage + 0001:000A2FE8 TDragImageList.SetDragCursor + 0001:000A3024 TDragImageList.GetHotSpot + 0001:000A3060 TDragImageList.BeginDrag + 0001:000A30D8 TDragImageList.DragLock + 0001:000A3150 TDragImageList.DragUnlock + 0001:000A3184 TDragImageList.DragMove + 0001:000A31D8 TDragImageList.ShowDragImage + 0001:000A31F8 TDragImageList.HideDragImage + 0001:000A3218 TDragImageList.EndDrag + 0001:000A3274 TCustomControl.Create + 0001:000A32E4 TCustomControl.Destroy + 0001:000A3324 TCustomControl.WMPaint + 0001:000A3354 TCustomControl.PaintWindow + 0001:000A3400 TCustomControl.Paint + 0001:000A340C NextVisibleZone + 0001:000A3440 IsOrientationSet + 0001:000A3488 TDockZone.Create + 0001:000A34CC TDockZone.GetChildCount + 0001:000A3504 TDockZone.GetVisibleChildCount + 0001:000A3540 TDockZone.GetVisible + 0001:000A359C TDockZone.GetLimitBegin + 0001:000A3614 TDockZone.GetLimitSize + 0001:000A368C TDockZone.GetTopLeft + 0001:000A372C TDockZone.GetHeightWidth + 0001:000A3834 TDockZone.ResetChildren + 0001:000A3904 TDockZone.GetControlName + 0001:000A395C TDockZone.SetControlName + 0001:000A39E8 ParentNotLast + 0001:000A3A2C TDockZone.Update + 0001:000A3BBC TDockZone.GetZoneLimit + 0001:000A3BFC TDockZone.SetZoneLimit + 0001:000A3C18 GetLastChildZone + 0001:000A3C48 TDockZone.ExpandZoneLimit + 0001:000A3CA8 TDockZone.ResetZoneLimits + 0001:000A3D2C TDockZone.NextVisible + 0001:000A3D4C TDockZone.PrevVisible + 0001:000A3D84 TDockZone.FirstVisibleChild + 0001:000A3DA4 TDockTree.Create + 0001:000A3F18 TDockTree.Destroy + 0001:000A3F8C TDockTree.AdjustDockRect + 0001:000A3FBC TDockTree.BeginUpdate + 0001:000A3FCC TDockTree.EndUpdate + 0001:000A3FF8 DoFindControlZone + 0001:000A4060 TDockTree.FindControlZone + 0001:000A409C DoForEach + 0001:000A40E8 TDockTree.ForEachAt + 0001:000A4114 TDockTree.GetControlBounds + 0001:000A41A0 TDockTree.HitTest + 0001:000A41E0 TDockTree.InsertControl + 0001:000A448C TDockTree.InsertNewParent + 0001:000A4718 TDockTree.InsertSibling + 0001:000A4810 DoFindZone + 0001:000A4A88 FindControlAtPos + 0001:000A4B40 TDockTree.InternalHitTest + 0001:000A4BD4 ReadControlName + 0001:000A4C24 TDockTree.LoadFromStream + 0001:000A4E84 DrawCloseButton + 0001:000A4EDC DrawGrabberLine + 0001:000A4F70 TDockTree.PaintDockFrame + 0001:000A5084 TDockTree.PaintSite + 0001:000A5214 TDockTree.PositionDockRect + 0001:000A53B8 DoPrune + 0001:000A53FC TDockTree.PruneZone + 0001:000A5490 TDockTree.RemoveControl + 0001:000A54EC TDockTree.RemoveZone + 0001:000A5880 TDockTree.ResetBounds + 0001:000A5998 TDockTree.ScaleZone + 0001:000A59E8 WriteControlName + 0001:000A5A60 DoSaveZone + 0001:000A5B34 TDockTree.SaveToStream + 0001:000A5C9C DoSetNewBounds + 0001:000A5D38 TDockTree.SetNewBounds + 0001:000A5D70 TDockTree.SetReplacingControl + 0001:000A5D94 TDockTree.ShiftZone + 0001:000A5DE0 TDockTree.SplitterMouseDown + 0001:000A5E5C TDockTree.SplitterMouseUp + 0001:000A5F10 TDockTree.UpdateAll + 0001:000A5F48 TDockTree.UpdateZone + 0001:000A5F6C TDockTree.DrawSizeSplitter + 0001:000A6084 DoGetNextLimit + 0001:000A6138 TDockTree.GetNextLimit + 0001:000A6194 GetDockAlign + 0001:000A621C HideZone + 0001:000A62B8 ShowZone + 0001:000A6438 TDockTree.ControlVisibilityChanged + 0001:000A64EC CalcSplitterPos + 0001:000A65E4 TDockTree.WindowProc + 0001:000A6A50 TMouse.Create + 0001:000A6AF4 TMouse.Destroy + 0001:000A6B30 TMouse.GetCapture + 0001:000A6B48 TMouse.GetCursorPos + 0001:000A6B68 TMouse.GetMouseData + 0001:000A6B8C TMouse.GetNativeData + 0001:000A6BC8 TMouse.GetRegisteredData + 0001:000A6C10 TMouse.SetCapture + 0001:000A6C44 TMouse.SetCursorPos + 0001:000A6C6C TMouse.SettingChanged + 0001:000A6CF4 InitIMM32 + 0001:000A6F60 Win32NLSEnableIME + 0001:000A6F98 SetImeMode + 0001:000A7094 Imm32IsIME + 0001:000A70C0 DoneControls + 0001:000A7148 InitControls + 0001:000A7318 TCustomListControl.MoveSelection + 0001:000A7344 Finalization + 0001:000A73AC Controls + 0001:000A79B0 TContainedAction.Destroy + 0001:000A79F8 TContainedAction.GetIndex + 0001:000A7A30 TContainedAction.IsCategoryStored + 0001:000A7A44 TContainedAction.GetParentComponent + 0001:000A7A74 TContainedAction.HasParent + 0001:000A7AA0 TContainedAction.ReadState + 0001:000A7AE0 TContainedAction.SetIndex + 0001:000A7B58 TContainedAction.SetCategory + 0001:000A7B9C TContainedAction.SetActionList + 0001:000A7BE0 TContainedAction.SetParentComponent + 0001:000A7C18 TContainedAction.Execute + 0001:000A7C84 TContainedAction.Update + 0001:000A7CF0 TCustomActionList.Create + 0001:000A7D78 TCustomActionList.Destroy + 0001:000A7DE0 TCustomActionList.GetChildren + 0001:000A7E3C TCustomActionList.SetChildOrder + 0001:000A7E78 TCustomActionList.GetAction + 0001:000A7E9C TCustomActionList.GetActionCount + 0001:000A7EB8 TCustomActionList.SetImages + 0001:000A7F14 TCustomActionList.ImageListChange + 0001:000A7F38 TCustomActionList.Notification + 0001:000A7F94 TCustomActionList.AddAction + 0001:000A7FC8 TCustomActionList.RemoveAction + 0001:000A7FF4 TCustomActionList.Change + 0001:000A808C TCustomActionList.IsShortCut + 0001:000A8154 TCustomActionList.ExecuteAction + 0001:000A8188 TCustomActionList.UpdateAction + 0001:000A81BC TActionLink.IsCaptionLinked + 0001:000A81E0 TActionLink.IsCheckedLinked + 0001:000A8204 TActionLink.IsEnabledLinked + 0001:000A8228 TActionLink.IsGroupIndexLinked + 0001:000A824C TActionLink.IsHelpContextLinked + 0001:000A8270 TActionLink.IsHelpLinked + 0001:000A8294 TActionLink.IsHintLinked + 0001:000A82B8 TActionLink.IsImageIndexLinked + 0001:000A82DC TActionLink.IsShortCutLinked + 0001:000A8300 TActionLink.IsVisibleLinked + 0001:000A8324 TActionLink.SetAutoCheck + 0001:000A8334 TActionLink.SetCaption + 0001:000A8344 TActionLink.SetChecked + 0001:000A8354 TActionLink.SetEnabled + 0001:000A8364 TActionLink.SetGroupIndex + 0001:000A8374 TActionLink.SetHelpContext + 0001:000A8384 TActionLink.SetHelpKeyword + 0001:000A8394 TActionLink.SetHelpType + 0001:000A83A4 TActionLink.SetHint + 0001:000A83B4 TActionLink.SetImageIndex + 0001:000A83C4 TActionLink.SetShortCut + 0001:000A83D8 TActionLink.SetVisible + 0001:000A83E8 TCustomAction.Create + 0001:000A8458 TCustomAction.Destroy + 0001:000A84C0 TCustomAction.AssignTo + 0001:000A85A4 TCustomAction.SetCaption + 0001:000A862C TCustomAction.SetChecked + 0001:000A8764 TCustomAction.SetEnabled + 0001:000A8814 TCustomAction.SetHelpKeyword + 0001:000A88A0 TCustomAction.SetHelpContext + 0001:000A891C TCustomAction.SetHint + 0001:000A89A4 TCustomAction.SetImageIndex + 0001:000A8A28 TCustomAction.SetShortCut + 0001:000A8AB0 TCustomAction.SetVisible + 0001:000A8B3C TCustomAction.SetName + 0001:000A8BA8 TCustomAction.DoHint + 0001:000A8BE4 TCustomAction.Execute + 0001:000A8C74 TCustomAction.GetSecondaryShortCuts + 0001:000A8CB4 TCustomAction.SetSecondaryShortCuts + 0001:000A8CF8 TCustomAction.IsSecondaryShortCutsStored + 0001:000A8D30 TCustomAction.HandleShortCut + 0001:000A8D54 TShortCutList.Add + 0001:000A8D90 TShortCutList.IndexOfShortCut + 0001:000A8DE4 Finalization + 0001:000A8E14 ActnList + 0001:000A9020 GetRGBColor + 0001:000A905C GetColor + 0001:000A9098 TCustomImageList.Create + 0001:000A90FC TCustomImageList.CreateSize + 0001:000A9160 TCustomImageList.Destroy + 0001:000A91F0 TCustomImageList.Initialize + 0001:000A92D0 TCustomImageList.HandleAllocated + 0001:000A92EC TCustomImageList.HandleNeeded + 0001:000A9308 TCustomImageList.InitBitmap + 0001:000A93D8 TCustomImageList.SetNewDimensions + 0001:000A9428 TCustomImageList.SetWidth + 0001:000A9490 TCustomImageList.SetHeight + 0001:000A94F8 TCustomImageList.SetHandle + 0001:000A9538 TCustomImageList.GetBitmapHandle + 0001:000A9568 TCustomImageList.GetHandle + 0001:000A958C TCustomImageList.GetImageHandle + 0001:000A95FC TCustomImageList.FreeHandle + 0001:000A9640 TCustomImageList.CreateImageList + 0001:000A9700 TCustomImageList.Add + 0001:000A97D0 TCustomImageList.AddMasked + 0001:000A98F0 TCustomImageList.GetBitmap + 0001:000A9974 TCustomImageList.GetCount + 0001:000A99A8 TCustomImageList.ReplaceMasked + 0001:000A9BD8 TCustomImageList.Delete + 0001:000A9C74 TCustomImageList.Clear + 0001:000A9C8C TCustomImageList.SetBkColor + 0001:000A9CD8 TCustomImageList.GetBkColor + 0001:000A9D18 TCustomImageList.DoDraw + 0001:000A9F48 TCustomImageList.Draw + 0001:000A9F88 TCustomImageList.Draw + 0001:000A9FE0 TCustomImageList.Overlay + 0001:000AA02C TCustomImageList.CopyImages + 0001:000AA1EC TCustomImageList.AddImages + 0001:000AA218 TCustomImageList.Assign + 0001:000AA318 TCustomImageList.AssignTo + 0001:000AA404 TCustomImageList.CheckImage + 0001:000AA48C TCustomImageList.SetDrawingStyle + 0001:000AA4C0 TCustomImageList.GetHotSpot + 0001:000AA4DC TCustomImageList.Change + 0001:000AA554 TCustomImageList.UnRegisterChanges + 0001:000AA5BC TCustomImageList.RegisterChanges + 0001:000AA5EC StreamsEqual + 0001:000AA644 TCustomImageList.Equal + 0001:000AA73C DoWrite + 0001:000AA7A0 TCustomImageList.DefineProperties + 0001:000AA7F8 TCustomImageList.ReadD2Stream + 0001:000AAAA4 TCustomImageList.ReadD3Stream + 0001:000AAC70 TCustomImageList.ReadData + 0001:000AAD04 TCustomImageList.WriteData + 0001:000AAE50 TCustomImageList.BeginUpdate + 0001:000AAE60 TCustomImageList.EndUpdate + 0001:000AAE98 TChangeLink.Destroy + 0001:000AAEE0 TChangeLink.Change + 0001:000AAF08 Finalization + 0001:000AAF38 ImgList + 0001:000ABE70 FindPopupControl + 0001:000ABEB4 ReturnAddr + 0001:000ABEC0 Error + 0001:000ABEE8 ShortCut + 0001:000ABF38 GetSpecialName + 0001:000ABF98 ShortCutToText + 0001:000AC1B8 CompareFront + 0001:000AC22C TextToShortCut + 0001:000AC348 UniqueCommand + 0001:000AC374 Iterate + 0001:000AC3E0 IterateMenus + 0001:000AC500 TMenuActionLink.AssignClient + 0001:000AC524 TMenuActionLink.IsAutoCheckLinked + 0001:000AC55C TMenuActionLink.IsCaptionLinked + 0001:000AC5A8 TMenuActionLink.IsCheckedLinked + 0001:000AC5EC TMenuActionLink.IsEnabledLinked + 0001:000AC630 TMenuActionLink.IsHelpContextLinked + 0001:000AC674 TMenuActionLink.IsHintLinked + 0001:000AC6C0 TMenuActionLink.IsGroupIndexLinked + 0001:000AC714 TMenuActionLink.IsImageIndexLinked + 0001:000AC75C TMenuActionLink.IsShortCutLinked + 0001:000AC7A8 TMenuActionLink.IsVisibleLinked + 0001:000AC7F0 TMenuActionLink.IsOnExecuteLinked + 0001:000AC82C TMenuActionLink.SetAutoCheck + 0001:000AC858 TMenuActionLink.SetCaption + 0001:000AC884 TMenuActionLink.SetChecked + 0001:000AC8B0 TMenuActionLink.SetEnabled + 0001:000AC8DC TMenuActionLink.SetHelpContext + 0001:000AC904 TMenuActionLink.SetHint + 0001:000AC934 TMenuActionLink.SetImageIndex + 0001:000AC960 TMenuActionLink.SetShortCut + 0001:000AC98C TMenuActionLink.SetVisible + 0001:000AC9B8 TMenuActionLink.SetOnExecute + 0001:000AC9E8 TMenuItem.Create + 0001:000ACA88 TMenuItem.Destroy + 0001:000ACB74 TMenuItem.AppendTo + 0001:000ACE54 AddIn + 0001:000ACE80 TMenuItem.PopulateMenu + 0001:000ACEF4 TMenuItem.ReadShortCutText + 0001:000ACF54 TMenuItem.MergeWith + 0001:000ACFC8 TMenuItem.Loaded + 0001:000AD014 TMenuItem.RebuildHandle + 0001:000AD11C TMenuItem.VerifyGroupIndex + 0001:000AD19C TMenuItem.GetHandle + 0001:000AD208 TMenuItem.DefineProperties + 0001:000AD25C TMenuItem.DoDrawText + 0001:000AD490 TMenuItem.DrawItem + 0001:000AD4DC NormalDraw + 0001:000ADDEC BiDiDraw + 0001:000AE71C TMenuItem.AdvancedDrawItem + 0001:000AE850 TMenuItem.GetImageList + 0001:000AE8B4 GetMenuSize + 0001:000AE900 TMenuItem.MeasureItem + 0001:000AEB50 TMenuItem.HasParent + 0001:000AEB64 TMenuItem.SetBreak + 0001:000AEB94 TMenuItem.SetCaption + 0001:000AEBCC TMenuItem.TurnSiblingsOff + 0001:000AEC40 TMenuItem.SetChecked + 0001:000AECB8 TMenuItem.SetEnabled + 0001:000AED5C TMenuItem.SetGroupIndex + 0001:000AEDC4 TMenuItem.GetAction + 0001:000AEDF0 TMenuItem.GetActionLinkClass + 0001:000AEE08 TMenuItem.GetCount + 0001:000AEE34 TMenuItem.GetItem + 0001:000AEE6C TMenuItem.SetShortCut + 0001:000AEEA0 TMenuItem.SetVisible + 0001:000AEED0 TMenuItem.SetImageIndex + 0001:000AEF00 TMenuItem.GetMenuIndex + 0001:000AEF34 TMenuItem.SetMenuIndex + 0001:000AEFA4 TMenuItem.GetChildren + 0001:000AEFEC TMenuItem.SetChildOrder + 0001:000AF018 TMenuItem.SetDefault + 0001:000AF0A0 TMenuItem.InitiateAction + 0001:000AF0C0 TMenuItem.Insert + 0001:000AF1B0 TMenuItem.Delete + 0001:000AF244 TMenuItem.Click + 0001:000AF32C TMenuItem.IndexOf + 0001:000AF360 TMenuItem.Add + 0001:000AF388 TMenuItem.Remove + 0001:000AF3C4 TMenuItem.MenuChanged + 0001:000AF428 TMenuItem.SubItemChanged + 0001:000AF49C TMenuItem.GetBitmap + 0001:000AF4E0 TMenuItem.SetAction + 0001:000AF578 TMenuItem.SetBitmap + 0001:000AF5BC TMenuItem.InitiateActions + 0001:000AF5FC TMenuItem.GetParentComponent + 0001:000AF638 TMenuItem.SetParentComponent + 0001:000AF6A4 TMenuItem.GetParentMenu + 0001:000AF6D8 TMenuItem.SetRadioItem + 0001:000AF720 TMenuItem.ActionChange + 0001:000AF8B4 TMenuItem.DoActionChange + 0001:000AF8E4 TMenuItem.IsCaptionStored + 0001:000AF918 TMenuItem.IsCheckedStored + 0001:000AF94C TMenuItem.IsEnabledStored + 0001:000AF980 TMenuItem.IsHintStored + 0001:000AF9B4 TMenuItem.IsHelpContextStored + 0001:000AF9E8 TMenuItem.IsImageIndexStored + 0001:000AFA1C TMenuItem.IsShortCutStored + 0001:000AFA50 TMenuItem.IsVisibleStored + 0001:000AFA84 TMenuItem.IsOnClickStored + 0001:000AFAB8 TMenuItem.AssignTo + 0001:000AFB54 TMenuItem.Notification + 0001:000AFBC0 TMenuItem.SetSubMenuImages + 0001:000AFC24 TMenuItem.ImageListChange + 0001:000AFC48 UpdateItem + 0001:000AFC80 TMenuItem.UpdateItems + 0001:000AFCA0 TMenuItem.Clear + 0001:000AFCD8 IfHotkeyAvailable + 0001:000AFD1C CopyToBest + 0001:000AFDAC InsertHotkeyFarEastFormat + 0001:000AFF34 TMenuItem.InternalRethinkHotkeys + 0001:000B0450 TMenuItem.SetAutoHotkeys + 0001:000B0480 TMenuItem.IsLine + 0001:000B04B0 TMenuItem.InternalRethinkLines + 0001:000B0648 TMenuItem.SetAutoLineReduction + 0001:000B0678 TMenuItem.GetAutoHotkeys + 0001:000B06C8 TMenuItem.GetAutoLineReduction + 0001:000B0718 TMenu.Create + 0001:000B07E4 TMenu.Destroy + 0001:000B082C TMenu.GetChildren + 0001:000B0858 TMenu.GetHandle + 0001:000B0878 TMenu.SetChildOrder + 0001:000B08A4 UpdateItem + 0001:000B08DC TMenu.UpdateItems + 0001:000B0900 Find + 0001:000B09B0 TMenu.FindItem + 0001:000B09EC TMenu.GetHelpContext + 0001:000B0A84 TMenu.DispatchCommand + 0001:000B0AC0 TMenu.DispatchPopup + 0001:000B0BC0 TMenu.IsOwnerDraw + 0001:000B0BEC NthParentOf + 0001:000B0C20 DoClick + 0001:000B0D9C TMenu.IsShortCut + 0001:000B0EC4 TMenu.IsBiDiModeStored + 0001:000B0EE0 TMenu.DoBiDiModeChanged + 0001:000B0FAC BuildImage + 0001:000B1090 TMenu.UpdateImage + 0001:000B1120 TMenu.SetOwnerDraw + 0001:000B114C TMenu.AdjustBiDiBehavior + 0001:000B11CC TMenu.SetWindowHandle + 0001:000B121C TMenu.DoChange + 0001:000B1250 TMenu.Loaded + 0001:000B1270 TMenu.MenuChanged + 0001:000B12B8 TMenu.ImageListChange + 0001:000B12DC TMenu.SetImages + 0001:000B1340 TMenu.Notification + 0001:000B137C TMenu.IsRightToLeft + 0001:000B13AC IsAccelChar + 0001:000B1440 IsInitialChar + 0001:000B1554 TMenu.ProcessMenuChar + 0001:000B174C TMenu.DoGetMenuString + 0001:000B182C TMenu.SetBiDiMode + 0001:000B1860 TMenu.SetParentBiDiMode + 0001:000B188C TMenu.ParentBiDiModeChanged + 0001:000B18CC TMenu.ParentBiDiModeChanged + 0001:000B1908 TMenu.GetAutoHotkeys + 0001:000B192C TMenu.SetAutoHotkeys + 0001:000B1950 TMenu.GetAutoLineReduction + 0001:000B1974 TMenu.SetAutoLineReduction + 0001:000B1998 TMainMenu.SetAutoMerge + 0001:000B19DC TMainMenu.MenuChanged + 0001:000B1A44 TMainMenu.Merge + 0001:000B1A7C TMainMenu.Unmerge + 0001:000B1AB0 TMainMenu.ItemChanged + 0001:000B1AE8 TMainMenu.GetHandle + 0001:000B1B18 AddOle2 + 0001:000B1B84 TMainMenu.PopulateOle2Menu + 0001:000B1BE8 TMainMenu.SetOle2MenuHandle + 0001:000B1C0C TPopupList.MainWndProc + 0001:000B1C60 TPopupList.WndProc + 0001:000B2254 TPopupList.Add + 0001:000B228C TPopupList.Remove + 0001:000B22BC TPopupMenu.Create + 0001:000B2358 TPopupMenu.Destroy + 0001:000B2398 TPopupMenu.DoPopup + 0001:000B23C0 TPopupMenu.GetHelpContext + 0001:000B23DC TPopupMenu.SetHelpContext + 0001:000B23F8 TPopupMenu.SetBiDiModeFromPopupControl + 0001:000B2460 TPopupMenu.UseRightToLeftAlignment + 0001:000B24CC TPopupMenu.Popup + 0001:000B25A8 TMenuItemStack.ClearItem + 0001:000B2600 DrawMenuItem + 0001:000B2704 StripHotkey + 0001:000B27D8 GetHotkey + 0001:000B286C AnsiSameCaption + 0001:000B2974 Finalization + 0001:000B29E4 Menus + 0001:000B5CC8 SaveFocusState + 0001:000B5CDC RestoreFocusState + 0001:000B5CF0 ShowMDIClientEdge + 0001:000B5D5C DoneApplication + 0001:000B5D98 DoDisableWindow + 0001:000B5E08 DisableTaskWindows + 0001:000B5EC0 EnableTaskWindows + 0001:000B5F14 DoFindWindow + 0001:000B5F8C FindTopMostWindow + 0001:000B5FE0 SendFocusMessage + 0001:000B601C CheckTaskWindow + 0001:000B6048 ForegroundTask + 0001:000B607C FindGlobalComponent + 0001:000B6124 MakeObjectInstance + 0001:000B6140 FreeObjectInstance + 0001:000B6154 AllocateHWnd + 0001:000B6170 DeallocateHWnd + 0001:000B6184 KeysToShiftState + 0001:000B61E0 KeyDataToShiftState + 0001:000B6228 KeyboardStateToShiftState + 0001:000B6294 KeyboardStateToShiftState + 0001:000B62C0 IsAccel + 0001:000B6338 GetParentForm + 0001:000B637C ValidParentForm + 0001:000B6404 TControlScrollBar.Create + 0001:000B64BC TControlScrollBar.IsIncrementStored + 0001:000B64D8 TControlScrollBar.Assign + 0001:000B6540 TControlScrollBar.ChangeBiDiPosition + 0001:000B6588 ProcessHorz + 0001:000B660C ProcessVert + 0001:000B6688 TControlScrollBar.CalcAutoRange + 0001:000B6740 TControlScrollBar.IsScrollBarVisible + 0001:000B6794 ScrollBarVisible + 0001:000B67D8 Adjustment + 0001:000B6864 TControlScrollBar.ControlSize + 0001:000B68E8 TControlScrollBar.NeedsScrollBarVisible + 0001:000B6910 GetRealScrollPosition + 0001:000B697C TControlScrollBar.ScrollMessage + 0001:000B6CAC TControlScrollBar.SetButtonSize + 0001:000B6D18 TControlScrollBar.SetColor + 0001:000B6D58 TControlScrollBar.SetParentColor + 0001:000B6D90 TControlScrollBar.SetPosition + 0001:000B6EC0 TControlScrollBar.SetSize + 0001:000B6F2C TControlScrollBar.SetStyle + 0001:000B6F64 TControlScrollBar.SetThumbSize + 0001:000B6F9C TControlScrollBar.DoSetRange + 0001:000B6FD4 TControlScrollBar.SetRange + 0001:000B7004 TControlScrollBar.IsRangeStored + 0001:000B7028 TControlScrollBar.SetVisible + 0001:000B704C UpdateScrollProperties + 0001:000B7198 TControlScrollBar.Update + 0001:000B72D0 TScrollingWinControl.Create + 0001:000B736C TScrollingWinControl.Destroy + 0001:000B73BC TScrollingWinControl.CreateParams + 0001:000B73E0 TScrollingWinControl.CreateWnd + 0001:000B7428 TScrollingWinControl.AlignControls + 0001:000B7454 TScrollingWinControl.AutoScrollEnabled + 0001:000B7490 TScrollingWinControl.DoFlipChildren + 0001:000B75CC TScrollingWinControl.CalcAutoRange + 0001:000B7600 TScrollingWinControl.SetAutoScroll + 0001:000B765C TScrollingWinControl.SetHorzScrollBar + 0001:000B7680 TScrollingWinControl.SetVertScrollBar + 0001:000B76A4 TScrollingWinControl.UpdateScrollBars + 0001:000B779C TScrollingWinControl.AutoScrollInView + 0001:000B77D0 TScrollingWinControl.ScrollInView + 0001:000B7978 TScrollingWinControl.ScaleScrollBars + 0001:000B7A68 TScrollingWinControl.ChangeScale + 0001:000B7A98 TScrollingWinControl.Resizing + 0001:000B7AA8 TScrollingWinControl.WMSize + 0001:000B7B94 TScrollingWinControl.WMHScroll + 0001:000B7BDC TScrollingWinControl.WMVScroll + 0001:000B7C24 TScrollingWinControl.AdjustClientRect + 0001:000B7CAC TScrollingWinControl.CMBiDiModeChanged + 0001:000B7D3C TScrollBox.Create + 0001:000B7DB8 TScrollBox.CreateParams + 0001:000B7E20 TScrollBox.SetBorderStyle + 0001:000B7E54 TScrollBox.WMNCHitTest + 0001:000B7E70 TScrollBox.CMCtl3DChanged + 0001:000B7EAC TCustomFrame.Create + 0001:000B7FD0 TCustomFrame.CreateParams + 0001:000B8004 TCustomFrame.GetChildren + 0001:000B8078 TCustomFrame.AddActionList + 0001:000B80CC TCustomFrame.RemoveActionList + 0001:000B810C TCustomFrame.Notification + 0001:000B8174 UpdateActionLists + 0001:000B81F0 TCustomFrame.SetParent + 0001:000B824C TCustomForm.Create + 0001:000B83DC TCustomForm.AfterConstruction + 0001:000B8424 TCustomForm.CreateNew + 0001:000B85F0 TCustomForm.BeforeDestruction + 0001:000B8670 TCustomForm.Destroy + 0001:000B8754 TCustomForm.DoCreate + 0001:000B87D0 TCustomForm.DoDestroy + 0001:000B8830 TCustomForm.Loaded + 0001:000B8888 TCustomForm.Notification + 0001:000B89F0 TCustomForm.ReadState + 0001:000B8C84 TCustomForm.DefineProperties + 0001:000B8D50 TCustomForm.ReadIgnoreFontProperty + 0001:000B8D78 TCustomForm.ReadTextHeight + 0001:000B8D9C TCustomForm.WriteTextHeight + 0001:000B8DC0 TCustomForm.WritePixelsPerInch + 0001:000B8DE4 TCustomForm.GetTextHeight + 0001:000B8E18 TCustomForm.BeginAutoDrag + 0001:000B8E24 TCustomForm.ChangeScale + 0001:000B8ECC TCustomForm.IconChanged + 0001:000B8F38 TCustomForm.IsClientSizeStored + 0001:000B8F58 TCustomForm.IsFormSizeStored + 0001:000B8F9C TCustomForm.IsAutoScrollStored + 0001:000B8FE4 TCustomForm.DoClose + 0001:000B9018 TCustomForm.DoHide + 0001:000B9044 TCustomForm.DoShow + 0001:000B9070 TCustomForm.GetClientRect + 0001:000B9124 TCustomForm.GetChildren + 0001:000B9198 TCustomForm.GetFloating + 0001:000B91D8 TCustomForm.SetChildOrder + 0001:000B9274 TCustomForm.SetParentBiDiMode + 0001:000B92B4 TCustomForm.SetClientWidth + 0001:000B9304 TCustomForm.SetClientHeight + 0001:000B9354 TCustomForm.SetVisible + 0001:000B93B4 TCustomForm.VisibleChanging + 0001:000B9428 TCustomForm.WantChildKey + 0001:000B9444 TCustomForm.SetParent + 0001:000B9494 TCustomForm.ValidateRename + 0001:000B94E4 TCustomForm.WndProc + 0001:000B9970 Default + 0001:000B99BC MaximizedChildren + 0001:000B9A10 TCustomForm.ClientWndProc + 0001:000B9BF0 TCustomForm.AlignControls + 0001:000B9C8C TCustomForm.CMBiDiModeChanged + 0001:000B9D40 TCustomForm.CMParentBiDiModeChanged + 0001:000B9DD4 TCustomForm.SetBorderIcons + 0001:000B9E10 TCustomForm.SetBorderStyle + 0001:000B9E6C TCustomForm.Dock + 0001:000B9ED8 TCustomForm.DoDock + 0001:000B9F50 TCustomForm.GetActiveMDIChild + 0001:000B9FA0 TCustomForm.GetMDIChildCount + 0001:000BA008 TCustomForm.GetMDIChildren + 0001:000BA080 EnumMonitorsProc + 0001:000BA0C8 TCustomForm.GetMonitor + 0001:000BA1EC TCustomForm.GetCanvas + 0001:000BA208 TCustomForm.SetIcon + 0001:000BA22C TCustomForm.IsForm + 0001:000BA248 TCustomForm.IsIconStored + 0001:000BA280 TCustomForm.SetFormStyle + 0001:000BA334 TCustomForm.RefreshMDIMenu + 0001:000BA3EC TCustomForm.SetObjectMenuItem + 0001:000BA424 TCustomForm.SetWindowMenu + 0001:000BA468 TCustomForm.SetMenu + 0001:000BA698 TCustomForm.GetPixelsPerInch + 0001:000BA6C8 TCustomForm.SetPixelsPerInch + 0001:000BA714 TCustomForm.SetPosition + 0001:000BA750 TCustomForm.GetScaled + 0001:000BA770 TCustomForm.SetScaled + 0001:000BA7B0 TCustomForm.CMColorChanged + 0001:000BA7F0 TCustomForm.NormalColor + 0001:000BA81C TCustomForm.CMCtl3DChanged + 0001:000BA880 TCustomForm.CMFontChanged + 0001:000BA8BC TCustomForm.CMMenuChanged + 0001:000BA8E8 TCustomForm.SetWindowState + 0001:000BA944 TCustomForm.SetWindowToMonitor + 0001:000BAD08 TCustomForm.CreateParams + 0001:000BAFCC TCustomForm.CreateWnd + 0001:000BB13C TCustomForm.CreateWindowHandle + 0001:000BB2A8 TCustomForm.DestroyWindowHandle + 0001:000BB2F8 TCustomForm.DefaultHandler + 0001:000BB388 TCustomForm.SetActiveControl + 0001:000BB468 TCustomForm.DefocusControl + 0001:000BB4C4 TCustomForm.FocusControl + 0001:000BB4FC TCustomForm.SetFocusedControl + 0001:000BB81C TCustomForm.ActiveChanged + 0001:000BB828 TCustomForm.SetWindowFocus + 0001:000BB898 TCustomForm.SetActive + 0001:000BB924 TCustomForm.SendCancelMode + 0001:000BB990 TCustomForm.MergeMenu + 0001:000BBA74 DoNestedActivation + 0001:000BBAD8 TCustomForm.Activate + 0001:000BBB1C TCustomForm.Deactivate + 0001:000BBB60 TCustomForm.Paint + 0001:000BBB8C TCustomForm.GetIconHandle + 0001:000BBBC0 TCustomForm.PaintWindow + 0001:000BBC80 TCustomForm.PaletteChanged + 0001:000BBD28 TCustomForm.WMPaint + 0001:000BBDC4 TCustomForm.WMIconEraseBkgnd + 0001:000BBE34 TCustomForm.WMEraseBkgnd + 0001:000BBE78 TCustomForm.WMQueryDragIcon + 0001:000BBE98 ModifySystemMenu + 0001:000BBFB0 TCustomForm.WMNCCreate + 0001:000BBFEC TCustomForm.WMNCLButtonDown + 0001:000BC09C TCustomForm.WMDestroy + 0001:000BC110 TCustomForm.WMCommand + 0001:000BC15C TCustomForm.WMInitMenuPopup + 0001:000BC18C TCustomForm.WMMenuChar + 0001:000BC1DC TCustomForm.WMMenuSelect + 0001:000BC2BC TCustomForm.WMActivate + 0001:000BC2F4 TCustomForm.Resizing + 0001:000BC348 TCustomForm.WMClose + 0001:000BC360 TCustomForm.WMQueryEndSession + 0001:000BC398 TCustomForm.CMAppSysCommand + 0001:000BC418 TCustomForm.WMSysCommand + 0001:000BC4D8 TCustomForm.WMShowWindow + 0001:000BC594 TCustomForm.WMMDIActivate + 0001:000BC604 TCustomForm.WMNextDlgCtl + 0001:000BC64C TCustomForm.WMEnterMenuLoop + 0001:000BC674 GetMenuHelpContext + 0001:000BC6C8 ControlHasHelp + 0001:000BC718 GetHelpInfo + 0001:000BC768 TCustomForm.WMHelp + 0001:000BC8EC TCustomForm.WMGetMinMaxInfo + 0001:000BC9C0 HandleEdge + 0001:000BC9FC TCustomForm.WMWindowPosChanging + 0001:000BCAD0 TCustomForm.CMActivate + 0001:000BCB04 TCustomForm.CMDeactivate + 0001:000BCB38 TCustomForm.CMDialogKey + 0001:000BCC04 TCustomForm.CMShowingChanged + 0001:000BD1E0 TCustomForm.CMIconChanged + 0001:000BD20C TCustomForm.CMRelease + 0001:000BD224 TCustomForm.CMTextChanged + 0001:000BD284 TCustomForm.CMUIActivate + 0001:000BD2A0 TCustomForm.CMParentFontChanged + 0001:000BD320 TCustomForm.CMIsShortCut + 0001:000BD35C TCustomForm.Close + 0001:000BD41C TCustomForm.CloseQuery + 0001:000BD49C TCustomForm.CloseModal + 0001:000BD534 TCustomForm.Hide + 0001:000BD548 TCustomForm.Show + 0001:000BD564 TCustomForm.SetFocus + 0001:000BD5EC TCustomForm.Release + 0001:000BD610 TCustomForm.ShowModal + 0001:000BD8FC TraverseClients + 0001:000BD97C TCustomForm.UpdateActions + 0001:000BDA10 TCustomForm.RequestAlign + 0001:000BDA3C TCustomForm.WMSettingChange + 0001:000BDA70 ProcessExecute + 0001:000BDAAC TraverseClients + 0001:000BDB40 TCustomForm.CMActionExecute + 0001:000BDBA0 ProcessUpdate + 0001:000BDBDC TraverseClients + 0001:000BDC70 TCustomForm.CMActionUpdate + 0001:000BDCD0 DispatchShortCut + 0001:000BDD40 TCustomForm.IsShortCut + 0001:000BDDCC TCustomForm.QueryInterface + 0001:000BDE1C TCustomForm.MouseWheelHandler + 0001:000BDE6C TCustomForm.HandleCreateException + 0001:000BDE90 TCustomForm.SetLayeredAttribs + 0001:000BDF8C TCustomForm.SetAlphaBlend + 0001:000BDFC0 TCustomForm.SetAlphaBlendValue + 0001:000BDFF4 TCustomForm.SetTransparentColorValue + 0001:000BE028 TCustomForm.SetTransparentColor + 0001:000BE05C TCustomForm.InitAlphaBlending + 0001:000BE0A0 TCustomDockForm.Create + 0001:000BE118 TCustomDockForm.DoAddDockClient + 0001:000BE210 TCustomDockForm.DoRemoveDockClient + 0001:000BE240 TCustomDockForm.Loaded + 0001:000BE2A0 TCustomDockForm.GetSiteInfo + 0001:000BE2D4 TCustomDockForm.WMNCHitTest + 0001:000BE30C TCustomDockForm.WMNCLButtonDown + 0001:000BE3C8 TCustomDockForm.CMControlListChange + 0001:000BE438 TCustomDockForm.CMDockNotification + 0001:000BE534 TCustomDockForm.CMUnDockClient + 0001:000BE55C TCustomDockForm.CMVisibleChanged + 0001:000BE5B8 TMonitor.GetLeft + 0001:000BE5DC TMonitor.GetHeight + 0001:000BE600 TMonitor.GetTop + 0001:000BE624 TMonitor.GetWidth + 0001:000BE648 TMonitor.GetBoundsRect + 0001:000BE684 TMonitor.GetWorkareaRect + 0001:000BE6C0 TScreen.Create + 0001:000BE864 TScreen.Destroy + 0001:000BE96C TScreen.GetHeight + 0001:000BE98C TScreen.GetWidth + 0001:000BE9AC TScreen.GetDesktopTop + 0001:000BE9CC TScreen.GetDesktopLeft + 0001:000BE9EC TScreen.GetDesktopHeight + 0001:000BEA0C TScreen.GetDesktopWidth + 0001:000BEA2C TScreen.GetMonitor + 0001:000BEA50 TScreen.GetMonitorCount + 0001:000BEA88 TScreen.GetForm + 0001:000BEAAC TScreen.GetFormCount + 0001:000BEAC8 TScreen.GetCustomForms + 0001:000BEAEC TScreen.GetCustomFormCount + 0001:000BEB08 TScreen.UpdateLastActive + 0001:000BEB88 TScreen.AddForm + 0001:000BEBD0 TScreen.RemoveForm + 0001:000BEC30 TScreen.AddDataModule + 0001:000BEC50 TScreen.RemoveDataModule + 0001:000BEC70 TScreen.CreateCursors + 0001:000BECE4 TScreen.DestroyCursors + 0001:000BED78 TScreen.DeleteCursor + 0001:000BEDF4 TScreen.FindMonitor + 0001:000BEE50 TScreen.InsertCursor + 0001:000BEE98 TScreen.GetImes + 0001:000BF0B8 TScreen.GetDefaultIME + 0001:000BF0E0 TScreen.IconFontChanged + 0001:000BF13C TScreen.GetDataModule + 0001:000BF160 TScreen.GetDataModuleCount + 0001:000BF17C TScreen.GetCursors + 0001:000BF1D8 TScreen.SetCursor + 0001:000BF294 TScreen.SetCursors + 0001:000BF2F8 TScreen.GetMetricSettings + 0001:000BF460 TScreen.DisableAlign + 0001:000BF474 TScreen.EnableAlign + 0001:000BF4AC TScreen.Realign + 0001:000BF4C0 InsertBefore + 0001:000BF554 DoPosition + 0001:000BF758 DoAlign + 0001:000BF8D4 AlignWork + 0001:000BF948 TScreen.AlignForms + 0001:000BF9D0 TScreen.AlignForm + 0001:000BFA58 TScreen.ResetFonts + 0001:000BFA70 GetHint + 0001:000BFAC0 GetHintControl + 0001:000BFB08 HintTimerProc + 0001:000BFB5C HintMouseThread + 0001:000BFBBC HintGetMsgHook + 0001:000BFC00 HookHintHooks + 0001:000BFC7C UnhookHintHooks + 0001:000BFCD8 GetAnimation + 0001:000BFD10 SetAnimation + 0001:000BFD40 ShowWinNoAnimate + 0001:000BFD80 TScreen.GetWorkAreaHeight + 0001:000BFDA4 TScreen.GetWorkAreaRect + 0001:000BFDC4 TScreen.GetWorkAreaWidth + 0001:000BFDE8 TScreen.MonitorFromPoint + 0001:000BFE3C TApplication.Create + 0001:000C008C TApplication.Destroy + 0001:000C01EC TApplication.CreateHandle + 0001:000C03C8 TApplication.ControlDestroyed + 0001:000C046C GetTopMostWindows + 0001:000C04EC TApplication.DoNormalizeTopMosts + 0001:000C05BC TApplication.ModalStarted + 0001:000C05FC TApplication.ModalFinished + 0001:000C063C TApplication.NormalizeTopMosts + 0001:000C0650 TApplication.NormalizeAllTopMosts + 0001:000C0664 TApplication.RestoreTopMosts + 0001:000C06F0 TApplication.UseRightToLeftReading + 0001:000C0720 TApplication.UseRightToLeftAlignment + 0001:000C0750 TApplication.CheckIniChange + 0001:000C07C0 TApplication.SettingChange + 0001:000C0840 Default + 0001:000C087C DrawAppIcon + 0001:000C08C8 TApplication.WndProc + 0001:000C100C TApplication.GetIconHandle + 0001:000C1044 TApplication.Minimize + 0001:000C1130 TApplication.Restore + 0001:000C1274 TApplication.BringToFront + 0001:000C12D0 TApplication.GetTitle + 0001:000C132C TApplication.SetTitle + 0001:000C13D0 TApplication.IsDlgMsg + 0001:000C1410 TApplication.IsMDIMsg + 0001:000C147C TApplication.IsKeyMsg + 0001:000C1590 TApplication.IsHintMsg + 0001:000C15D4 TApplication.IsShortCut + 0001:000C1654 TApplication.ProcessMessage + 0001:000C171C TApplication.ProcessMessages + 0001:000C1738 TApplication.HandleMessage + 0001:000C1760 TApplication.HookMainWindow + 0001:000C17D8 TApplication.UnhookMainWindow + 0001:000C1888 TApplication.Initialize + 0001:000C18A8 TApplication.CreateForm + 0001:000C193C TApplication.Run + 0001:000C1A38 TApplication.Terminate + 0001:000C1A54 TApplication.HandleException + 0001:000C1AF4 TApplication.MessageBox + 0001:000C1C5C TApplication.ShowException + 0001:000C1D38 TApplication.InvokeHelp + 0001:000C1EEC TApplication.HelpKeyword + 0001:000C1F64 TApplication.HelpContext + 0001:000C1FDC TApplication.HelpCommand + 0001:000C2004 TApplication.GetExeName + 0001:000C2020 TApplication.SetShowHint + 0001:000C209C TApplication.DoActionIdle + 0001:000C2118 TApplication.DoMouseIdle + 0001:000C21C4 TApplication.Idle + 0001:000C22E8 TApplication.NotifyForms + 0001:000C2338 TApplication.IconChanged + 0001:000C23B4 TApplication.SetHint + 0001:000C2460 SetVisible + 0001:000C24C0 TApplication.UpdateVisible + 0001:000C2560 TApplication.ValidateHelpSystem + 0001:000C259C TApplication.StartHintTimer + 0001:000C25F4 TApplication.StopHintTimer + 0001:000C262C TApplication.HintMouseMessage + 0001:000C2764 TApplication.HintTimerExpired + 0001:000C27A8 TApplication.HideHint + 0001:000C2800 TApplication.CancelHint + 0001:000C2838 FindScanline + 0001:000C284C GetCursorHeightMargin + 0001:000C29D0 ValidateHintWindow + 0001:000C2A38 MultiLineWidth + 0001:000C2B10 TApplication.ActivateHint + 0001:000C2EE4 TApplication.GetCurrentHelpFile + 0001:000C2F34 TApplication.GetDialogHandle + 0001:000C2F78 TApplication.SetDialogHandle + 0001:000C2FB8 TApplication.DispatchAction + 0001:000C3064 TApplication.ExecuteAction + 0001:000C30A0 TApplication.UpdateAction + 0001:000C30DC InitProcs + 0001:000C3134 TApplication.WakeMainThread + 0001:000C3158 TApplication.HookSynchronizeWakeup + 0001:000C3174 TApplication.UnhookSynchronizeWakeup + 0001:000C319C Finalization + 0001:000C31F8 Forms + 0001:000C3D04 SinCos + 0001:000C3D18 ArcTan2 + 0001:000C3D28 RectSize + 0001:000C3D3C RectCenter + 0001:000C3D5C TChartPen.Create + 0001:000C3DAC TChartPen.Assign + 0001:000C3DE0 TChartPen.SetVisible + 0001:000C3DF4 TChartPen.SetSmallDots + 0001:000C3E08 TChartHiddenPen.Create + 0001:000C3E54 TDottedGrayPen.Create + 0001:000C3EAC TDarkGrayPen.Create + 0001:000C3EFC TChartAxisPen.Create + 0001:000C3F4C TChartArrowPen.Create + 0001:000C3F9C TView3DOptions.Create + 0001:000C3FFC TView3DOptions.Repaint + 0001:000C4008 TView3DOptions.SetIntegerProperty + 0001:000C4014 TView3DOptions.SetBooleanProperty + 0001:000C4020 TView3DOptions.SetElevation + 0001:000C402C TView3DOptions.SetPerspective + 0001:000C4038 TView3DOptions.SetRotation + 0001:000C4044 TView3DOptions.SetTilt + 0001:000C4050 TView3DOptions.SetHorizOffset + 0001:000C4074 TView3DOptions.SetVertOffset + 0001:000C4098 TView3DOptions.SetOrthogonal + 0001:000C40A4 TView3DOptions.SetZoom + 0001:000C40CC TView3DOptions.SetZoomText + 0001:000C40D8 TView3DOptions.Assign + 0001:000C412C TTeeCanvas.SetCanvas + 0001:000C414C TTeeCanvas.ResetState + 0001:000C41BC TTeeCanvas.AssignVisiblePen + 0001:000C4234 TTeeCanvas.TextWidth + 0001:000C427C TTeeCanvas.TextHeight + 0001:000C42C4 TTeeCanvas.FontHeight + 0001:000C42DC TCanvas3D.Assign + 0001:000C42F8 TTeeCanvas3D.Create + 0001:000C4360 TTeeCanvas3D.DeleteBitmap + 0001:000C4374 TTeeCanvas3D.Destroy + 0001:000C43A0 TTeeCanvas3D.GetBackMode + 0001:000C43B4 TTeeCanvas3D.SetBackMode + 0001:000C43D0 TTeeCanvas3D.SetBackColor + 0001:000C43F0 TTeeCanvas3D.GetBackColor + 0001:000C4404 TTeeCanvas3D.TextOut + 0001:000C445C TTeeCanvas3D.Rectangle + 0001:000C4488 TTeeCanvas3D.RoundRect + 0001:000C44BC TTeeCanvas3D.SetTextAlign + 0001:000C44D4 TTeeCanvas3D.MoveTo + 0001:000C44F4 TTeeCanvas3D.LineTo + 0001:000C4514 TTeeCanvas3D.DoRectangle + 0001:000C453C TTeeCanvas3D.PolygonFour + 0001:000C4558 TTeeCanvas3D.PlaneWithZ + 0001:000C460C TTeeCanvas3D.Calc3DTPoint + 0001:000C4618 TTeeCanvas3D.Calc3DTPoint3D + 0001:000C462C TTeeCanvas3D.Calculate3DPosition + 0001:000C4660 TTeeCanvas3D.Calc3DPoint + 0001:000C468C TTeeCanvas3D.Calculate2DPosition + 0001:000C47B8 TTeeCanvas3D.Calc3DPos + 0001:000C48F8 TTeeCanvas3D.GetHandle + 0001:000C4904 TTeeCanvas3D.Cone + 0001:000C4934 TTeeCanvas3D.Sphere + 0001:000C4974 TTeeCanvas3D.Surface3D + 0001:000C497C TTeeCanvas3D.TextOut3D + 0001:000C4A8C TTeeCanvas3D.MoveTo3D + 0001:000C4ACC TTeeCanvas3D.LineTo3D + 0001:000C4B0C TTeeCanvas3D.RectangleWithZ + 0001:000C4B74 TTeeCanvas3D.DoHorizLine + 0001:000C4BAC TTeeCanvas3D.DoVertLine + 0001:000C4BDC ClipCanvas + 0001:000C4C40 TTeeCanvas3D.ClipRectangle + 0001:000C4C4C TTeeCanvas3D.ClipCube + 0001:000C4E08 UnClipCanvas + 0001:000C4E1C TTeeCanvas3D.UnClipRectangle + 0001:000C4E28 TTeeCanvas3D.Projection + 0001:000C4E90 CalcTrigValues + 0001:000C503C TTeeCanvas3D.InitWindow + 0001:000C51F8 TTeeCanvas3D.TransferBitmap + 0001:000C5250 TTeeCanvas3D.ReDrawBitmap + 0001:000C5270 TTeeCanvas3D.ShowImage + 0001:000C52B0 TTeeCanvas3D.StretchDraw + 0001:000C52CC TTeeCanvas3D.Draw + 0001:000C5354 CalcBrushColor + 0001:000C53F4 RectGradient + 0001:000C5520 FromCorner + 0001:000C5638 FromCenter + 0001:000C5784 TTeeCanvas3D.GradientFill + 0001:000C58C4 TTeeCanvas3D.EraseBackground + 0001:000C58D8 TTeeCanvas3D.FillRect + 0001:000C58FC TTeeCanvas3D.Frame3D + 0001:000C59EC ApplyDark + 0001:000C5A44 Dark + 0001:000C5A90 TTeeCanvas3D.Cube + 0001:000C5D1C TTeeCanvas3D.RectangleZ + 0001:000C5D8C TTeeCanvas3D.RectangleY + 0001:000C5DF8 TTeeCanvas3D.FrontPlaneBegin + 0001:000C5E0C TTeeCanvas3D.FrontPlaneEnd + 0001:000C5E1C TTeeCanvas3D.Invalidate + 0001:000C5E24 TTeeCanvas3D.RotateLabel3D + 0001:000C5E64 TTeeCanvas3D.RotateLabel + 0001:000C5F54 TTeeCanvas3D.Line + 0001:000C5F88 TTeeCanvas3D.LineWithZ + 0001:000C5FE8 TTeeCanvas3D.Polygon + 0001:000C6008 TTeeCanvas3D.PolygonWithZ + 0001:000C6020 TTeeCanvas3D.Ellipse + 0001:000C604C TTeeCanvas3D.EllipseWithZ + 0001:000C62D4 TTeeCanvas3D.SetPixel + 0001:000C6300 TTeeCanvas3D.Arc + 0001:000C633C TTeeCanvas3D.Pie + 0001:000C6378 Dark + 0001:000C63D0 Draw3DPie + 0001:000C64FC TTeeCanvas3D.Pie3D + 0001:000C699C TTeeCanvas3D.Plane3D + 0001:000C6A14 Dark + 0001:000C6A6C TTeeCanvas3D.InternalCylinder + 0001:000C710C TTeeCanvas3D.Cylinder + 0001:000C7134 Dark + 0001:000C718C TTeeCanvas3D.Pyramid + 0001:000C74C4 TTeeCanvas3D.PlaneFour3D + 0001:000C7538 TTeeCanvas3D.SetPixel3D + 0001:000C75A8 TTeeCanvas3D.GetSupports3DText + 0001:000C75AC TTeeCanvas3D.GetSupportsFullRotation + 0001:000C75B0 TTeeCanvas3D.GetTextAlign + 0001:000C75C4 TTeeCanvas3D.GetUseBuffer + 0001:000C75CC TTeeCanvas3D.SetUseBuffer + 0001:000C75F8 TTeeCanvas3D.GetMonochrome + 0001:000C7600 TTeeCanvas3D.SetMonochrome + 0001:000C7630 TTeeCanvas3D.HorizLine3D + 0001:000C76A0 TTeeCanvas3D.VertLine3D + 0001:000C770C TTeeCanvas3D.ZLine3D + 0001:000C7784 TTeeCanvas3D.Triangle3D + 0001:000C781C TTeeCanvas3D.TriangleWithZ + 0001:000C7888 CalcArrowPoint + 0001:000C78EC TTeeCanvas3D.Arrow + 0001:000C7C50 MaxDouble + 0001:000C7C84 MinDouble + 0001:000C7CB8 MaxLong + 0001:000C7CC0 MinLong + 0001:000C7CC8 SwapLongint + 0001:000C7CD4 SwapDouble + 0001:000C7CFC SwapInteger + 0001:000C7D08 Finalization + 0001:000C7D38 TeCanvas + 0001:000C7FA0 Finalization + 0001:000C7FD0 TeeConst + 0001:000C869C DateTimeDefaultFormat + 0001:000C86DC NextDateTimeStep + 0001:000C8724 FindDateTimeStep + 0001:000C8758 MaxLong + 0001:000C8760 SwapLongint + 0001:000C876C GetScreenLogPixels + 0001:000C8790 CheckJapaneseFontSize + 0001:000C87C0 GetDefaultFontSize + 0001:000C8820 GetDefaultFontName + 0001:000C886C IsDefaultFont + 0001:000C8914 CreateDefaultFont + 0001:000C89A4 GetDefaultColor + 0001:000C89BC TeeCheckAngle + 0001:000C8A34 TCustomTeePanel.Create + 0001:000C8BBC TCustomTeePanel.Destroy + 0001:000C8C10 TCustomTeePanel.CanvasChanged + 0001:000C8C1C TCustomTeePanel.CreateParams + 0001:000C8C34 TCustomTeePanel.SetView3DOptions + 0001:000C8C44 TCustomTeePanel.SetView3D + 0001:000C8C54 TCustomTeePanel.Draw + 0001:000C8D98 TCustomTeePanel.Paint + 0001:000C8DDC TCustomTeePanel.SetBrushCanvas + 0001:000C8E58 TCustomTeePanel.FontCanvas + 0001:000C8E74 TCustomTeePanel.CanClip + 0001:000C8ED0 TCustomTeePanel.Set3DPercent + 0001:000C8F60 TCustomTeePanel.SetLongintProperty + 0001:000C8F74 TCustomTeePanel.SetStringProperty + 0001:000C8F9C TCustomTeePanel.SetDoubleProperty + 0001:000C8FC4 TCustomTeePanel.SetColorProperty + 0001:000C8FD8 TCustomTeePanel.SetBooleanProperty + 0001:000C8FEC TCustomTeePanel.SetIntegerProperty + 0001:000C9000 TCustomTeePanel.Loaded + 0001:000C9018 TCustomTeePanel.CMMouseLeave + 0001:000C9044 TCustomTeePanel.WMGetDlgCode + 0001:000C9054 TCustomTeePanel.WMEraseBkgnd + 0001:000C9070 TCustomTeePanel.Invalidate + 0001:000C909C TCustomTeePanel.MultiLineTextWidth + 0001:000C91D8 TCustomTeePanel.GetMargin + 0001:000C91F8 TCustomTeePanel.SetMargin + 0001:000C9234 TCustomTeePanel.GetBufferedDisplay + 0001:000C9240 TCustomTeePanel.SetBufferedDisplay + 0001:000C924C TCustomTeePanel.ReCalcWidthHeight + 0001:000C92E0 TCustomTeePanel.DrawZoomRectangle + 0001:000C9360 TCustomTeePanel.GetRectangle + 0001:000C9374 TCustomTeePanel.GetMonochrome + 0001:000C9380 TCustomTeePanel.SetMonochrome + 0001:000C938C TCustomTeePanel.Assign + 0001:000C9438 TCustomTeePanel.TeeCreateBitmap + 0001:000C94C8 TCustomTeePanel.CopyToClipboardBitmap + 0001:000C9530 TCustomTeePanel.CheckPenWidth + 0001:000C9560 TCustomTeePanel.DrawPanelBevels + 0001:000C9668 TCustomTeePanelExtended.SetAnimatedZoom + 0001:000C9678 TCustomTeePanelExtended.SetAnimatedZoomSteps + 0001:000C9688 TCustomTeePanelExtended.SetBackImage + 0001:000C9698 TCustomTeePanelExtended.SetBackImageMode + 0001:000C96B4 TCustomTeePanelExtended.Create + 0001:000C9748 TCustomTeePanelExtended.Destroy + 0001:000C9784 TCustomTeePanelExtended.UndoZoom + 0001:000C97B0 TCustomTeePanelExtended.SetGradient + 0001:000C97BC TCustomTeePanelExtended.Assign + 0001:000C9844 TCustomTeePanelExtended.GetPalette + 0001:000C9880 TileBitmap + 0001:000C9920 Calc3DRect + 0001:000C99A8 TCustomTeePanelExtended.DrawBitmap + 0001:000C9B2C TCustomTeePanelExtended.DrawImage + 0001:000C9B40 TCustomTeePanelExtended.PanelPaint + 0001:000C9B90 TCustomTeePanelExtended.FillPanelRect + 0001:000C9C18 TCustomTeeGradient.Create + 0001:000C9C68 TCustomTeeGradient.SetVisible + 0001:000C9C88 TCustomTeeGradient.SetDirection + 0001:000C9CA8 TCustomTeeGradient.SetStartColor + 0001:000C9CC8 TCustomTeeGradient.SetEndColor + 0001:000C9CE8 TCustomTeeGradient.Assign + 0001:000C9D28 TChartFontObject.Create + 0001:000C9D84 TChartFontObject.IsFontStored + 0001:000C9D94 TChartFontObject.Destroy + 0001:000C9DC4 TChartFontObject.Assign + 0001:000C9DF8 TChartFontObject.SetFont + 0001:000C9E08 TChartFontObject.Repaint + 0001:000C9E18 TZoomPanningRecord.Check + 0001:000C9E44 TZoomPanningRecord.Activate + 0001:000C9E94 Dif + 0001:000C9EA4 PointInLineTolerance + 0001:000CA038 PointInLine + 0001:000CA050 PointInPolygon + 0001:000CA0E8 PointInTriangle + 0001:000CA168 PointInHorizTriangle + 0001:000CA1E8 PointInEllipse + 0001:000CA294 TeeSplitInLines + 0001:000CA2C4 TeeNumTextLines + 0001:000CA364 TeeRoundDate + 0001:000CA404 DecMonths + 0001:000CA440 IncMonths + 0001:000CA470 IncDecMonths + 0001:000CA494 TeeDateTimeIncrement + 0001:000CA5C8 TeeNextStep + 0001:000CA698 TryFindResource + 0001:000CA73C LoadClassBitmap + 0001:000CA834 TeeGetClassNameBitmap + 0001:000CA850 Finalization + 0001:000CA8A8 TeeProcs + 0001:000CCA54 TChartAxisTitle.Assign + 0001:000CCA94 TChartAxisTitle.IsAngleStored + 0001:000CCAA4 TChartAxisTitle.SetAngle + 0001:000CCB08 TChartAxisTitle.SetCaption + 0001:000CCB18 TCustomChartAxis.Create + 0001:000CCCF8 TCustomChartAxis.IncDecDateTime + 0001:000CCD34 TCustomChartAxis.IsDateTime + 0001:000CCDA8 TCustomChartAxis.SetTicks + 0001:000CCDB4 TCustomChartAxis.SetMinorTicks + 0001:000CCDC0 TCustomChartAxis.SetTicksInner + 0001:000CCDCC TCustomChartAxis.SetGrid + 0001:000CCDD8 TCustomChartAxis.SetMinorGrid + 0001:000CCDE4 TCustomChartAxis.SetGridCentered + 0001:000CCDF8 TCustomChartAxis.SetAxis + 0001:000CCE04 TCustomChartAxis.Destroy + 0001:000CCE6C TCustomChartAxis.IsPosStored + 0001:000CCE88 TCustomChartAxis.IsStartStored + 0001:000CCEA4 TCustomChartAxis.IsEndStored + 0001:000CCEC0 InternalCalcPos + 0001:000CCF28 TCustomChartAxis.CalcPosPoint + 0001:000CD114 TCustomChartAxis.SetDateTimeFormat + 0001:000CD128 TCustomChartAxis.SetAxisTitle + 0001:000CD134 TCustomChartAxis.SetStartPosition + 0001:000CD154 TCustomChartAxis.SetEndPosition + 0001:000CD174 TCustomChartAxis.SetPositionPercent + 0001:000CD194 TCustomChartAxis.SetRoundFirstLabel + 0001:000CD1A8 TCustomChartAxis.SetLabelsMultiLine + 0001:000CD1BC TCustomChartAxis.SetTickOnLabelsOnly + 0001:000CD1D0 TCustomChartAxis.CalcDateTimeIncrement + 0001:000CD2A4 InternalCalcLabelsIncrement + 0001:000CD3B0 TCustomChartAxis.CalcLabelsIncrement + 0001:000CD41C TCustomChartAxis.LabelWidth + 0001:000CD4AC TCustomChartAxis.LabelHeight + 0001:000CD538 TCustomChartAxis.IsMaxStored + 0001:000CD54C TCustomChartAxis.IsMinStored + 0001:000CD560 TCustomChartAxis.CalcXYIncrement + 0001:000CD5E0 TCustomChartAxis.CalcIncrement + 0001:000CD660 RecalcAdjustedMinMax + 0001:000CD6D4 TCustomChartAxis.AdjustMaxMinRect + 0001:000CD780 TCustomChartAxis.CalcMinMax + 0001:000CD7D8 TCustomChartAxis.AdjustMaxMin + 0001:000CD824 TCustomChartAxis.Assign + 0001:000CDA00 TCustomChartAxis.LabelValue + 0001:000CDAF4 TCustomChartAxis.CalcLabelStyle + 0001:000CDC38 MaxLabelsValueWidth + 0001:000CDDCC TCustomChartAxis.MaxLabelsWidth + 0001:000CDE1C TCustomChartAxis.SetLabels + 0001:000CDE30 TCustomChartAxis.SetLabelsFont + 0001:000CDE40 TCustomChartAxis.IsFontStored + 0001:000CDE50 TCustomChartAxis.SetAutomatic + 0001:000CDE7C TCustomChartAxis.SetAutomaticMinimum + 0001:000CDEAC TCustomChartAxis.SetAutomaticMaximum + 0001:000CDEDC TCustomChartAxis.IsAxisValuesFormatStored + 0001:000CDF34 TCustomChartAxis.SetValuesFormat + 0001:000CDF48 TCustomChartAxis.SetInverted + 0001:000CDF5C TCustomChartAxis.SetLogarithmicBase + 0001:000CDFC8 TCustomChartAxis.SetLogarithmic + 0001:000CE0A0 TCustomChartAxis.SetLabelsAngle + 0001:000CE104 TCustomChartAxis.SetLabelsSeparation + 0001:000CE16C TCustomChartAxis.SetLabelsSize + 0001:000CE180 TCustomChartAxis.SetTitleSize + 0001:000CE194 TCustomChartAxis.SetLabelsOnAxis + 0001:000CE1A8 TCustomChartAxis.SetExactDateTime + 0001:000CE1BC TCustomChartAxis.SetLabelStyle + 0001:000CE1D4 TCustomChartAxis.SetVisible + 0001:000CE1E8 TCustomChartAxis.SetDesiredIncrement + 0001:000CE28C TCustomChartAxis.SetMinimum + 0001:000CE308 TCustomChartAxis.InternalSetMinimum + 0001:000CE324 TCustomChartAxis.SetMaximum + 0001:000CE3A0 TCustomChartAxis.SetMinMax + 0001:000CE420 TCustomChartAxis.InternalSetMaximum + 0001:000CE43C TCustomChartAxis.SetTickLength + 0001:000CE450 TCustomChartAxis.SetMinorTickLength + 0001:000CE464 TCustomChartAxis.SetMinorTickCount + 0001:000CE478 TCustomChartAxis.SetTickInnerLength + 0001:000CE48C TCustomChartAxis.DrawTitle + 0001:000CE528 TCustomChartAxis.DrawAxisLabel + 0001:000CE8A8 TCustomChartAxis.Scroll + 0001:000CE948 TCustomChartAxis.InternalCalcLog + 0001:000CE9BC TCustomChartAxis.InternalCalcDepthPosValue + 0001:000CEA3C TCustomChartAxis.InternalCalcLogPosValue + 0001:000CEB08 TCustomChartAxis.CalcPosValue + 0001:000CEB30 TCustomChartAxis.CalcXPosValue + 0001:000CEB74 TCustomChartAxis.CalcYPosValue + 0001:000CEBBC TCustomChartAxis.InternalCalcPosValue + 0001:000CEC54 TCustomChartAxis.Clicked + 0001:000CED20 TCustomChartAxis.RecalcSizeCenter + 0001:000CED4C DoCalculation + 0001:000CEDC4 TCustomChartAxis.InternalCalcPositions + 0001:000CEE14 TCustomChartAxis.ApplyPosition + 0001:000CEE90 TCustomChartAxis.GetRectangleEdge + 0001:000CEEE4 DrawGridLine + 0001:000CF0E0 DrawGrids + 0001:000CF1D0 InternalDrawTick + 0001:000CF334 DrawAxisLine + 0001:000CF51C AProc + 0001:000CF5D4 ProcessMinorTicks + 0001:000CF808 ProcessTicks + 0001:000CF878 ProcessMinor + 0001:000CF8BC DrawTicksGrid + 0001:000CF96C AddTick + 0001:000CF988 DrawThisLabel + 0001:000CFAAC GetAxisSeriesLabel + 0001:000CFBE4 CalcAllSeries + 0001:000CFC6C CalcFirstLastAllSeries + 0001:000CFCF8 AxisLabelsSeries + 0001:000CFF38 InternalDrawLabel + 0001:000D0024 IntPower + 0001:000D0054 LogBaseN + 0001:000D006C DoDefaultLogLabels + 0001:000D0178 DoDefaultLabels + 0001:000D02CC DoNotCustomLabels + 0001:000D030C DoCustomLabels + 0001:000D03F0 DrawAxisTitle + 0001:000D0490 DepthAxisLabels + 0001:000D05CC TCustomChartAxis.Draw + 0001:000D07D4 TCustomChartAxis.SizeTickAxis + 0001:000D080C TCustomChartAxis.SizeTitle + 0001:000D0824 TCustomChartAxis.SizeLabels + 0001:000D0838 TCustomChartAxis.InternalCalcSize + 0001:000D08F0 InflateAxisRect + 0001:000D094C InflateAxisPos + 0001:000D098C CalcLabelsRect + 0001:000D09AC TCustomChartAxis.CalcRect + 0001:000D0AD0 TSeriesMarkPosition.Assign + 0001:000D0B04 TSeriesMarkPosition.Bounds + 0001:000D0B20 TChartValueList.Create + 0001:000D0BA4 TChartValueList.Destroy + 0001:000D0BD4 TChartValueList.Count + 0001:000D0BDC TChartValueList.Last + 0001:000D0C00 TChartValueList.Delete + 0001:000D0C2C TChartValueList.InsertChartValue + 0001:000D0C60 TChartValueList.AddChartValue + 0001:000D0D3C TChartValueList.SetMultiplier + 0001:000D0D78 TChartValueList.GetValue + 0001:000D0D9C TChartValueList.Locate + 0001:000D0DD8 TChartValueList.SetValue + 0001:000D0E0C TChartValueList.GetMaxValue + 0001:000D0E34 TChartValueList.GetMinValue + 0001:000D0E5C TChartValueList.GetTotal + 0001:000D0E84 TChartValueList.GetTotalABS + 0001:000D0EAC TChartValueList.RecalcStats + 0001:000D0F9C TChartValueList.SetDateTime + 0001:000D0FAC TChartValueList.ClearValues + 0001:000D0FF8 TChartValueList.Scroll + 0001:000D1048 TChartValueList.SetValueSource + 0001:000D1070 TChartValueList.FillSequence + 0001:000D10A8 CompareValueIndex + 0001:000D110C PrivateSort + 0001:000D11C0 TChartValueList.Sort + 0001:000D11E8 TChartValueList.Assign + 0001:000D122C TSeriesMarksPositions.GetPosition + 0001:000D1258 TSeriesMarks.Create + 0001:000D12F4 TSeriesMarks.Assign + 0001:000D1364 TSeriesMarks.IsFontStored + 0001:000D1374 TSeriesMarks.SetVisible + 0001:000D1384 TSeriesMarks.SetFrame + 0001:000D1390 TSeriesMarks.SetArrow + 0001:000D139C TSeriesMarks.SetArrowLength + 0001:000D13AC TSeriesMarks.SetBackColor + 0001:000D13BC TSeriesMarks.SetBackTransparent + 0001:000D13CC TSeriesMarks.UsePosition + 0001:000D1434 TSeriesMarks.ClearPositions + 0001:000D1464 TSeriesMarks.Destroy + 0001:000D14B0 TSeriesMarks.SetFont + 0001:000D14C0 TSeriesMarks.SetStyle + 0001:000D14D4 TSeriesMarks.SetClip + 0001:000D14E4 DrawLine + 0001:000D154C DrawMarkText + 0001:000D1680 TSeriesMarks.Draw + 0001:000D18BC TTeeFunction.Create + 0001:000D1908 TTeeFunction.ReCalculate + 0001:000D1920 TTeeFunction.Calculate + 0001:000D1938 TTeeFunction.ValueList + 0001:000D19B0 TTeeFunction.CalculateAllPoints + 0001:000D1B44 TTeeFunction.CalculatePeriod + 0001:000D1B88 TTeeFunction.CalculateByPeriod + 0001:000D1D68 TTeeFunction.AddFunctionXY + 0001:000D1DA0 CalculateMovingFunction + 0001:000D1E24 CalculateFunctionMany + 0001:000D1EF4 TTeeFunction.AddPoints + 0001:000D1FA8 TTeeFunction.SetParentSeries + 0001:000D1FCC TTeeFunction.CalculateMany + 0001:000D1FE0 TTeeFunction.Assign + 0001:000D2014 TTeeFunction.SetPeriod + 0001:000D209C TTeeFunction.SetPeriodAlign + 0001:000D20AC TTeeFunction.SetPeriodStyle + 0001:000D20BC TTeeFunction.GetParentComponent + 0001:000D20C0 TTeeFunction.SetParentComponent + 0001:000D20CC TTeeFunction.HasParent + 0001:000D20D0 TChartValueLists.GetValueList + 0001:000D20E4 TChartSeries.Create + 0001:000D22B8 TChartSeries.GetChildren + 0001:000D22E4 TChartSeries.GetParentComponent + 0001:000D22E8 TChartSeries.SetParentComponent + 0001:000D230C TChartSeries.HasParent + 0001:000D2310 TChartSeries.SetFunction + 0001:000D233C TChartSeries.Notification + 0001:000D2374 TChartSeries.DefineProperties + 0001:000D2430 TChartSeries.ReadIdentifier + 0001:000D2484 TChartSeries.WriteIdentifier + 0001:000D2494 TChartSeries.ReadStyle + 0001:000D256C TChartSeries.WriteStyle + 0001:000D25C0 TChartSeries.ReadData + 0001:000D2648 TChartSeries.WriteData + 0001:000D2688 TChartSeries.YMandatory + 0001:000D26A0 TChartSeries.MandatoryValueList + 0001:000D26A8 TChartSeries.DrawValuesForward + 0001:000D26AC TChartSeries.DrawSeriesForward + 0001:000D26B0 TChartSeries.DrawAllValues + 0001:000D26FC TChartSeries.SameClass + 0001:000D2734 TChartSeries.PointOrigin + 0001:000D27EC TChartSeries.CreateChartPen + 0001:000D2804 TChartSeries.CheckDataSource + 0001:000D281C TChartSeries.SetColorSource + 0001:000D2850 TChartSeries.SetLabelsSource + 0001:000D2884 TChartSeries.GetDataSource + 0001:000D28A8 TChartSeries.InternalAddDataSource + 0001:000D28E4 TChartSeries.RemoveAllLinkedSeries + 0001:000D293C ClearDataSources + 0001:000D295C InternalRemoveDataSource + 0001:000D29DC InternalSetDataSource + 0001:000D2B3C TChartSeries.SetDataSource + 0001:000D2B64 TChartSeries.IsValidSourceOf + 0001:000D2B6C TChartSeries.IsValidSeriesSource + 0001:000D2B70 TChartSeries.CanvasChanged + 0001:000D2B78 TChartSeries.GetYValueList + 0001:000D2C40 TChartSeries.CheckOtherSeries + 0001:000D2C50 TChartSeries.Clicked + 0001:000D2C54 TChartSeries.RecalcGetAxis + 0001:000D2CD8 TChartSeries.SetHorizAxis + 0001:000D2CFC TChartSeries.SetVertAxis + 0001:000D2D20 TChartSeries.SetChartValueList + 0001:000D2D3C TChartSeries.SetXValues + 0001:000D2D4C TChartSeries.SetYValues + 0001:000D2D5C TChartSeries.SetTitle + 0001:000D2DAC TChartSeries.GetValue + 0001:000D2DD4 CalcMinMaxValue + 0001:000D2E58 TChartSeries.CalcFirstLastVisibleIndex + 0001:000D2FF0 TChartSeries.Repaint + 0001:000D3008 TChartSeries.DrawValue + 0001:000D300C TChartSeries.SetActive + 0001:000D3018 TChartSeries.IsValueFormatStored + 0001:000D3070 TChartSeries.IsPercentFormatStored + 0001:000D30C8 TChartSeries.DeletedValue + 0001:000D30D4 TChartSeries.AddValue + 0001:000D3114 TChartSeries.AddChartValue + 0001:000D31F4 TChartSeries.AddedValue + 0001:000D32A0 TChartSeries.LegendToValueIndex + 0001:000D32A4 TChartSeries.LegendString + 0001:000D3490 TChartSeries.AddValues + 0001:000D3528 TChartSeries.AssignValues + 0001:000D3530 TChartSeries.RefreshSeries + 0001:000D353C TChartSeries.GetEditorClass + 0001:000D3548 TChartSeries.MoreSameZOrder + 0001:000D35B0 TChartSeries.FirstInZOrder + 0001:000D3618 TChartSeries.DoBeforeDrawChart + 0001:000D361C TChartSeries.DoBeforeDrawValues + 0001:000D363C TChartSeries.DoAfterDrawValues + 0001:000D365C TChartSeries.DrawMarks + 0001:000D3874 TChartSeries.CalcHorizMargins + 0001:000D3880 TChartSeries.CalcVerticalMargins + 0001:000D388C TChartSeries.DrawMark + 0001:000D38BC TChartSeries.SetIntegerProperty + 0001:000D38C8 TChartSeries.SetLongintProperty + 0001:000D38D4 TChartSeries.SetStringProperty + 0001:000D38FC TChartSeries.SetBooleanProperty + 0001:000D3908 TChartSeries.InsertLabel + 0001:000D3930 TChartSeries.AddXY + 0001:000D39DC TChartSeries.NotifyNewValue + 0001:000D3A18 TChartSeries.IsNull + 0001:000D3A34 TChartSeries.AddNull + 0001:000D3A48 TChartSeries.AddNullXY + 0001:000D3A6C TChartSeries.Add + 0001:000D3AB0 TChartSeries.AddX + 0001:000D3AF4 TChartSeries.AddY + 0001:000D3B38 TChartSeries.Count + 0001:000D3B44 TChartSeries.CountLegendItems + 0001:000D3B4C TChartSeries.MarkPercent + 0001:000D3C64 TChartSeries.GetOriginValue + 0001:000D3C7C TChartSeries.GetMarkValue + 0001:000D3CA4 XLabelOrValue + 0001:000D3CF0 TChartSeries.GetMarkText + 0001:000D3F48 TChartSeries.SetValueFormat + 0001:000D3F54 TChartSeries.SetPercentFormat + 0001:000D3F60 TChartSeries.PrepareForGallery + 0001:000D3F9C TChartSeries.NumSampleValues + 0001:000D3FA4 TChartSeries.CalcRandomBounds + 0001:000D4184 TChartSeries.FillSampleValues + 0001:000D42A4 TChartSeries.GalleryChanged3D + 0001:000D42C4 TChartSeries.SetDoubleProperty + 0001:000D42EC TChartSeries.SetColorProperty + 0001:000D42F8 SelfSetDataSources + 0001:000D4338 TChartSeries.Assign + 0001:000D461C TChartSeries.SetColorEachPoint + 0001:000D465C TChartSeries.SetShowInLegend + 0001:000D4668 TChartSeries.GetBitmapEditor + 0001:000D4670 TChartSeries.GetxValue + 0001:000D4688 TChartSeries.GetyValue + 0001:000D46A0 TChartSeries.GetXLabel + 0001:000D46E4 TChartSeries.GetValueColor + 0001:000D4720 TChartSeries.SetParentChart + 0001:000D4754 TChartSeries.SetValueColor + 0001:000D4768 TChartSeries.GetMemLabel + 0001:000D4794 TChartSeries.FreeXLabel + 0001:000D47BC TChartSeries.ClearLists + 0001:000D4844 TChartSeries.Clear + 0001:000D4890 TChartSeries.AssociatedToAxis + 0001:000D48DC TChartSeries.DrawLegendShape + 0001:000D4940 TChartSeries.LegendItemColor + 0001:000D4948 TChartSeries.DrawLegend + 0001:000D4A40 TChartSeries.PrepareLegendCanvas + 0001:000D4A48 TChartSeries.CalcZOrder + 0001:000D4AA4 TChartSeries.CalcXPosValue + 0001:000D4ABC TChartSeries.XScreenToValue + 0001:000D4AD4 TChartSeries.CalcYPosValue + 0001:000D4AEC TChartSeries.CalcPosValue + 0001:000D4B20 TChartSeries.CalcXPos + 0001:000D4B44 TChartSeries.DoSeriesMouseMove + 0001:000D4B4C TChartSeries.DoSeriesMouseUp + 0001:000D4B54 TChartSeries.DoSeriesClick + 0001:000D4BE8 TChartSeries.CalcYPos + 0001:000D4C0C TChartSeries.Delete + 0001:000D4CA4 TChartSeries.SwapValueIndex + 0001:000D4D14 TChartSeries.SetMarks + 0001:000D4D24 TChartSeries.ClearTempValue + 0001:000D4D30 TChartSeries.SetSeriesColor + 0001:000D4D3C TChartSeries.MaxXValue + 0001:000D4D54 TChartSeries.MaxYValue + 0001:000D4D6C TChartSeries.MinXValue + 0001:000D4D84 TChartSeries.MinYValue + 0001:000D4D9C TChartSeries.MaxZValue + 0001:000D4DC0 TChartSeries.MinZValue + 0001:000D4DE4 TChartSeries.MaxMarkWidth + 0001:000D4E74 TChartSeries.AddLinkedSeries + 0001:000D4E94 TChartSeries.RemoveDataSource + 0001:000D4EA8 TChartSeries.RemoveLinkedSeries + 0001:000D4EB8 TChartSeries.NotifyValue + 0001:000D4F94 TChartSeries.UseAxis + 0001:000D4F98 TChartSeries.Loaded + 0001:000D504C TChartSeries.Destroy + 0001:000D5124 TChartSeries.GetZOrder + 0001:000D513C TChartSeriesList.GetSeries + 0001:000D5150 TChartSeriesList.CountActive + 0001:000D5180 TCustomAxisPanel.Create + 0001:000D52DC TCustomAxisPanel.SetPage + 0001:000D5334 TCustomAxisPanel.SetScaleLastPage + 0001:000D5344 CalcNumPages + 0001:000D53F8 TCustomAxisPanel.NumPages + 0001:000D5488 TCustomAxisPanel.SetMaxPointsPerPage + 0001:000D5518 TCustomAxisPanel.FreeAllSeries + 0001:000D5548 TCustomAxisPanel.Destroy + 0001:000D55B0 TCustomAxisPanel.IsAxisVisible + 0001:000D564C TCustomAxisPanel.NoActiveSeries + 0001:000D569C TCustomAxisPanel.InternalMinMax + 0001:000D59B4 TCustomAxisPanel.MaxXValue + 0001:000D59CC TCustomAxisPanel.MaxYValue + 0001:000D59E4 TCustomAxisPanel.MinXValue + 0001:000D59FC TCustomAxisPanel.MinYValue + 0001:000D5A14 TCustomAxisPanel.ActiveSeriesLegend + 0001:000D5A64 TCustomAxisPanel.SeriesTitleLegend + 0001:000D5B04 TCustomAxisPanel.MaxTextWidth + 0001:000D5BD0 TCustomAxisPanel.MaxMarkWidth + 0001:000D5C20 TCustomAxisPanel.GetSeries + 0001:000D5C38 TCustomAxisPanel.CalcSize3DWalls + 0001:000D5D0C ClipRegionCreate + 0001:000D5D64 ClipRegionDone + 0001:000D5D90 TryDrawSeries + 0001:000D5DD8 DrawAllSeriesValue + 0001:000D5E8C DrawMarksSeries + 0001:000D5EC8 DrawSeries + 0001:000D6118 SetSeriesZOrder + 0001:000D6208 SetSeriesZPositions + 0001:000D6288 DrawAllAxis + 0001:000D6304 TCustomAxisPanel.InternalDraw + 0001:000D64E0 TCustomAxisPanel.SetView3DWalls + 0001:000D64F0 TCustomAxisPanel.GetChildren + 0001:000D6540 TCustomAxisPanel.RemovedDataSource + 0001:000D6544 TCustomAxisPanel.SetClipPoints + 0001:000D6554 TCustomAxisPanel.SetLeftAxis + 0001:000D6560 TCustomAxisPanel.SetDepthAxis + 0001:000D656C TCustomAxisPanel.SetRightAxis + 0001:000D6578 TCustomAxisPanel.SetTopAxis + 0001:000D6584 TCustomAxisPanel.SetBottomAxis + 0001:000D6590 TCustomAxisPanel.RemoveSeries + 0001:000D65E8 TCustomAxisPanel.GetAxisSeries + 0001:000D6648 TCustomAxisPanel.FormattedValueLegend + 0001:000D6650 TCustomAxisPanel.GetFreeSeriesColor + 0001:000D6688 TCustomAxisPanel.InternalAddSeries + 0001:000D6704 TCustomAxisPanel.GetMaxValuesCount + 0001:000D6768 TCustomAxisPanel.SetAxisVisible + 0001:000D6778 TCustomAxisPanel.CheckOtherSeries + 0001:000D6838 TCustomAxisPanel.IsValidDataSource + 0001:000D6870 TCustomAxisPanel.CheckDatasource + 0001:000D68AC TCustomAxisPanel.SeriesCount + 0001:000D68C0 TCustomAxisPanel.Assign + 0001:000D6988 Finalization + 0001:000D69B8 TeEngine + 0001:000D753C GetCheckSize + 0001:000D75C0 MakeSaveState + 0001:000D75E8 GetSaveState + 0001:000D7604 GetSaveDisabled + 0001:000D7620 TCheckListBoxDataWrapper.SetChecked + 0001:000D7648 TCheckListBoxDataWrapper.GetChecked + 0001:000D7664 TCheckListBoxDataWrapper.GetDefaultState + 0001:000D7678 TCheckListBox.Create + 0001:000D76E4 TCheckListBox.Destroy + 0001:000D7724 TCheckListBox.CreateWnd + 0001:000D77BC TCheckListBox.DestroyWnd + 0001:000D7850 TCheckListBox.CreateParams + 0001:000D787C TCheckListBox.GetCheckWidth + 0001:000D7898 TCheckListBox.CMFontChanged + 0001:000D78BC TCheckListBox.ResetItemHeight + 0001:000D7934 TCheckListBox.DrawItem + 0001:000D7AF0 TCheckListBox.CNDrawItem + 0001:000D7B68 TCheckListBox.DrawCheck + 0001:000D7DFC TCheckListBox.SetChecked + 0001:000D7E40 TCheckListBox.SetState + 0001:000D7E80 TCheckListBox.InvalidateCheck + 0001:000D7F10 TCheckListBox.GetChecked + 0001:000D7F4C TCheckListBox.GetItemEnabled + 0001:000D7F88 TCheckListBox.GetState + 0001:000D7FCC TCheckListBox.KeyPress + 0001:000D8004 TCheckListBox.MouseDown + 0001:000D80F0 TCheckListBox.ToggleClickCheck + 0001:000D8184 TCheckListBox.ClickCheck + 0001:000D81B0 TCheckListBox.GetItemData + 0001:000D81E8 TCheckListBox.GetWrapper + 0001:000D8220 TCheckListBox.ExtractWrapper + 0001:000D828C TCheckListBox.InternalGetItemData + 0001:000D82B0 TCheckListBox.InternalSetItemData + 0001:000D82D4 TCheckListBox.CreateWrapper + 0001:000D8304 TCheckListBox.HaveWrapper + 0001:000D8328 TCheckListBox.SetItemData + 0001:000D8368 TCheckListBox.ResetContent + 0001:000D83C4 TCheckListBox.DeleteString + 0001:000D8400 TCheckListBox.SetFlat + 0001:000D8434 TCheckListBox.WMDestroy + 0001:000D8488 TCheckListBox.GetHeader + 0001:000D84C4 TCheckListBox.SetHeaderBackgroundColor + 0001:000D84F8 TCheckListBox.SetHeaderColor + 0001:000D852C Finalization + 0001:000D855C CheckLst + 0001:000D8C3C TAddTeeFunction.Calculate + 0001:000D8C94 TAddTeeFunction.CalculateMany + 0001:000D8D04 TManySeriesTeeFunction.CalculateMany + 0001:000D8DA8 TSubtractTeeFunction.CalculateValue + 0001:000D8DC4 TMultiplyTeeFunction.CalculateValue + 0001:000D8DE0 TDivideTeeFunction.CalculateValue + 0001:000D8E1C THighTeeFunction.Calculate + 0001:000D8E9C THighTeeFunction.CalculateMany + 0001:000D8F28 TLowTeeFunction.Calculate + 0001:000D8FA8 TLowTeeFunction.CalculateMany + 0001:000D9034 TAverageTeeFunction.Calculate + 0001:000D90DC TAverageTeeFunction.CalculateMany + 0001:000D916C Finalization + 0001:000D919C TeeFunci + 0001:000DB138 GetDefaultPattern + 0001:000DB14C TChartBrush.Create + 0001:000DB1A0 TChartBrush.HasBitmap + 0001:000DB1C8 TCustomChartWall.Create + 0001:000DB250 TCustomChartWall.Destroy + 0001:000DB288 TCustomChartWall.IsColorStored + 0001:000DB294 TCustomChartWall.Assign + 0001:000DB2E8 TCustomChartWall.ApplyDark3D + 0001:000DB314 TCustomChartWall.SetPen + 0001:000DB320 TCustomChartWall.SetBrush + 0001:000DB32C TCustomChartWall.SetSize + 0001:000DB33C TCustomChartWall.SetColor + 0001:000DB34C TCustomChartWall.SetDark3D + 0001:000DB35C TChartTitle.Create + 0001:000DB428 TChartTitle.Assign + 0001:000DB488 TChartTitle.IsFontStored + 0001:000DB524 TChartTitle.Destroy + 0001:000DB564 TChartTitle.SetText + 0001:000DB578 TChartTitle.SetVisible + 0001:000DB588 TChartTitle.SetAdjustFrame + 0001:000DB598 TChartTitle.SetAlignment + 0001:000DB5A8 TChartTitle.SetBrush + 0001:000DB5B4 TChartTitle.SetColor + 0001:000DB5C4 TChartTitle.SetFrame + 0001:000DB5D0 TChartTitle.Clicked + 0001:000DB610 DrawTitleLine + 0001:000DB6DC TChartTitle.Draw + 0001:000DBB38 TCustomChart.Create + 0001:000DBCE4 TCustomChart.Destroy + 0001:000DBD4C TCustomChart.SetTitle + 0001:000DBD58 TCustomChart.SetBackImageInside + 0001:000DBD68 TCustomChart.SetFoot + 0001:000DBD74 TCustomChart.FormattedValueLegend + 0001:000DBDAC TCustomChart.FormattedLegend + 0001:000DBDEC TCustomChart.SetLegend + 0001:000DBDFC SaveAxisScales + 0001:000DBE28 TCustomChart.SaveScales + 0001:000DBE68 RestoreAxisScales + 0001:000DBEA8 TCustomChart.RestoreScales + 0001:000DBEE8 TCustomChart.SetBackWall + 0001:000DBEF4 TCustomChart.GetFrame + 0001:000DBF08 TCustomChart.SetFrame + 0001:000DBF18 TCustomChart.GetBackColor + 0001:000DBF24 TCustomChart.SetBackColor + 0001:000DBF50 TCustomChart.IsFreeSeriesColor + 0001:000DBFC8 TCustomChart.SetLeftWall + 0001:000DBFD4 TCustomChart.SetBottomWall + 0001:000DBFE0 DrawTitleFoot + 0001:000DC020 TCustomChart.DrawTitlesAndLegend + 0001:000DC0B4 TCustomChart.DrawImage + 0001:000DC0D4 TCustomChart.CalcWallSize + 0001:000DC110 PrepareWallCanvas + 0001:000DC1C0 TCustomChart.DrawWalls + 0001:000DC4B8 TCustomChart.RemoveAllSeries + 0001:000DC4DC ZoomAxis + 0001:000DC514 TCustomChart.DoZoom + 0001:000DC648 CalcAxisScale + 0001:000DC6C0 TCustomChart.ZoomPercent + 0001:000DC760 ClickedAxis + 0001:000DC794 TCustomChart.CalcClickedPart + 0001:000DC8FC CheckZoomPanning + 0001:000DC9C8 CheckBackground + 0001:000DCA34 TCustomChart.MouseDown + 0001:000DCC34 ProcessPanning + 0001:000DCCC8 CheckMouseSeries + 0001:000DCD90 PanAxis + 0001:000DCE44 TCustomChart.MouseMove + 0001:000DCFD8 TCustomChart.DoMouseWheel + 0001:000DD000 TCustomChart.ScrollVerticalAxes + 0001:000DD084 TCustomChart.DoMouseWheelDown + 0001:000DD0BC TCustomChart.DoMouseWheelUp + 0001:000DD0F4 TCustomChart.UndoZoom + 0001:000DD120 TCustomChart.CalcZoomPoints + 0001:000DD1E4 TCustomChart.MouseUp + 0001:000DD2EC TCustomChart.CalcAxisRect + 0001:000DD444 CalcSeriesAxisRect + 0001:000DD554 TCustomChart.CalcSeriesRect + 0001:000DD5A0 TCustomChart.Assign + 0001:000DD63C TCustomChart.FillSeriesSourceItems + 0001:000DD644 TCustomChart.FillValueSourceItems + 0001:000DD6B0 TCustomChart.GetASeries + 0001:000DD6F0 TCustomChartLegend.Create + 0001:000DD7C8 TCustomChartLegend.Destroy + 0001:000DD808 TCustomChartLegend.Assign + 0001:000DD894 TCustomChartLegend.SetVisible + 0001:000DD8B0 TCustomChartLegend.SetInverted + 0001:000DD8CC TCustomChartLegend.SetAlignment + 0001:000DD8DC TCustomChartLegend.SetFrame + 0001:000DD8E8 TCustomChartLegend.CMVisibleChanged + 0001:000DD8F0 TCustomChartLegend.CMColorChanged + 0001:000DD8F8 TCustomChartLegend.SetTopLeftPos + 0001:000DD970 TCustomChartLegend.SetFirstValue + 0001:000DD9E4 TCustomChartLegend.SetTextStyle + 0001:000DD9F4 TCustomChartLegend.SetMaxNumRows + 0001:000DDA10 TCustomChartLegend.SetLegendStyle + 0001:000DDA2C TCustomChartLegend.SetHorizMargin + 0001:000DDA48 TCustomChartLegend.SetVertMargin + 0001:000DDA64 TCustomChartLegend.GetParentChart + 0001:000DDA68 TCustomChartLegend.SetResizeChart + 0001:000DDA84 TCustomChartLegend.SetBrush + 0001:000DDA90 TCustomChartLegend.SetColor + 0001:000DDAAC TCustomChartLegend.SetColorWidth + 0001:000DDB24 TCustomChartLegend.CalcLegendStyle + 0001:000DDB54 TCustomChartLegend.FormattedLegend + 0001:000DDBD4 TCustomChartLegend.SetShadowColor + 0001:000DDBF0 TCustomChartLegend.SetShadowSize + 0001:000DDC0C TCustomChartLegend.SetDividingLines + 0001:000DDC18 CalcMaxLegendValues + 0001:000DDC8C TCustomChartLegend.MaxLegendValues + 0001:000DDCE8 TCustomChartLegend.TotalLegendItems + 0001:000DDD70 TCustomChartLegend.MaxLegendWidth + 0001:000DDE1C TCustomChartLegend.GetColorRect + 0001:000DDE4C TCustomChartLegend.GetVertical + 0001:000DDE60 DrawLegendItem + 0001:000DE0F0 DrawLegendBackground + 0001:000DE294 CalcHorizontalColsRows + 0001:000DE30C CalcHorizMargin + 0001:000DE340 CalcVertMargin + 0001:000DE374 TCustomChartLegend.Draw + 0001:000DE884 TCustomChartLegend.FormattedValue + 0001:000DE920 ClickedRow + 0001:000DE978 TCustomChartLegend.Clicked + 0001:000DEA78 TTeeSeriesTypes.GetSeriesType + 0001:000DEA8C RegisterTeeSeriesFunction + 0001:000DEB78 RegisterTeeSeries + 0001:000DEB90 RegisterTeeFunction + 0001:000DEBA8 RegisterTeeBasicFunction + 0001:000DEC00 TeeGalleryExitProc + 0001:000DEC34 Finalization + 0001:000DEC6C Chart + 0001:000DEE04 MaskGetCharType + 0001:000DEFA4 MaskGetCurrentDirectives + 0001:000DF050 MaskIntlLiteralToChar + 0001:000DF084 MaskDoFormatText + 0001:000DF2E4 MaskGetMaskSave + 0001:000DF3A0 MaskGetMaskBlank + 0001:000DF420 MaskOffsetToString + 0001:000DF4C4 MaskOffsetToOffset + 0001:000DF520 OffsetToMaskOffset + 0001:000DF5A0 IsLiteralChar + 0001:000DF5E8 PadSubField + 0001:000DF7A8 PadInputLiterals + 0001:000DF9C8 Finalization + 0001:000DF9F8 MaskUtils + 0001:000E0520 TCustomMaskEdit.Create + 0001:000E058C TCustomMaskEdit.KeyDown + 0001:000E06B4 TCustomMaskEdit.KeyUp + 0001:000E0718 TCustomMaskEdit.KeyPress + 0001:000E076C TCustomMaskEdit.WMLButtonDown + 0001:000E0798 TCustomMaskEdit.WMLButtonUp + 0001:000E0808 TCustomMaskEdit.WMSetFocus + 0001:000E0838 TCustomMaskEdit.SetEditText + 0001:000E08AC TCustomMaskEdit.GetEditText + 0001:000E08C8 TCustomMaskEdit.GetTextLen + 0001:000E0920 TCustomMaskEdit.GetText + 0001:000E09C4 TCustomMaskEdit.SetText + 0001:000E0AE8 TCustomMaskEdit.WMCut + 0001:000E0B28 TCustomMaskEdit.WMPaste + 0001:000E0C20 TCustomMaskEdit.GetMasked + 0001:000E0C40 TCustomMaskEdit.ReformatText + 0001:000E0D18 TCustomMaskEdit.SetEditMask + 0001:000E0E10 TCustomMaskEdit.GetMaxLength + 0001:000E0E2C TCustomMaskEdit.SetMaxLength + 0001:000E0E68 TCustomMaskEdit.GetSel + 0001:000E0E98 TCustomMaskEdit.SetSel + 0001:000E0EC8 TCustomMaskEdit.SetCursor + 0001:000E1160 TCustomMaskEdit.CheckCursor + 0001:000E11A8 TCustomMaskEdit.Clear + 0001:000E11BC TCustomMaskEdit.EditCanModify + 0001:000E11D0 TCustomMaskEdit.Reset + 0001:000E1204 TCustomMaskEdit.CharKeys + 0001:000E1400 TCustomMaskEdit.ArrowKeys + 0001:000E162C TCustomMaskEdit.CursorInc + 0001:000E167C TCustomMaskEdit.CursorDec + 0001:000E16B0 TCustomMaskEdit.GetNextEditChar + 0001:000E16F4 TCustomMaskEdit.GetPriorEditChar + 0001:000E1744 TCustomMaskEdit.HomeEndKeys + 0001:000E1824 TCustomMaskEdit.DeleteKeys + 0001:000E1960 TCustomMaskEdit.CMEnter + 0001:000E1A08 TCustomMaskEdit.CMTextChanged + 0001:000E1AAC TCustomMaskEdit.CMWantSpecialKey + 0001:000E1AF4 TCustomMaskEdit.CMExit + 0001:000E1B38 TCustomMaskEdit.ValidateEdit + 0001:000E1BE4 TCustomMaskEdit.ValidateError + 0001:000E1C28 TCustomMaskEdit.AddEditFormat + 0001:000E1C7C TCustomMaskEdit.RemoveEditFormat + 0001:000E1EB0 TCustomMaskEdit.InputChar + 0001:000E1F7C IsKatakana + 0001:000E1FA8 TestChar + 0001:000E20A4 TCustomMaskEdit.DoInputChar + 0001:000E23C8 TCustomMaskEdit.Validate + 0001:000E248C TCustomMaskEdit.DeleteSelection + 0001:000E2550 TCustomMaskEdit.InputString + 0001:000E2878 TCustomMaskEdit.FindLiteralChar + 0001:000E2900 Finalization + 0001:000E2930 Mask + 0001:000E3FBC InvalidOp + 0001:000E3FDC GridRect + 0001:000E4064 PointInGridRect + 0001:000E40B0 PtInRect + 0001:000E40FC Includes + 0001:000E416C Build + 0001:000E41F4 XorRects + 0001:000E43A0 ModifyExtents + 0001:000E44D4 UpdateExtents + 0001:000E4514 MoveExtent + 0001:000E45AC CompareExtents + 0001:000E4610 LongMulDiv + 0001:000E4618 TInplaceEdit.Create + 0001:000E4694 TInplaceEdit.CreateParams + 0001:000E46B8 TInplaceEdit.SetGrid + 0001:000E46D4 TInplaceEdit.CMShowingChanged + 0001:000E46E4 TInplaceEdit.WMGetDlgCode + 0001:000E4718 TInplaceEdit.WMPaste + 0001:000E4744 TInplaceEdit.WMClear + 0001:000E4770 TInplaceEdit.WMCut + 0001:000E479C TInplaceEdit.DblClick + 0001:000E47BC TInplaceEdit.DoMouseWheel + 0001:000E4800 TInplaceEdit.EditCanModify + 0001:000E4828 SendToParent + 0001:000E485C ParentEvent + 0001:000E48AC ForwardMovement + 0001:000E48D0 Ctrl + 0001:000E48E8 Selection + 0001:000E4914 CaretPos + 0001:000E4954 RightSide + 0001:000E49B4 LeftSide + 0001:000E4A04 TInplaceEdit.KeyDown + 0001:000E4C34 TInplaceEdit.KeyPress + 0001:000E4D44 TInplaceEdit.KeyUp + 0001:000E4D74 TInplaceEdit.WndProc + 0001:000E4E08 TInplaceEdit.Deselect + 0001:000E4E2C TInplaceEdit.Invalidate + 0001:000E4EC4 TInplaceEdit.Hide + 0001:000E4F38 TInplaceEdit.InternalMove + 0001:000E5010 TInplaceEdit.BoundsChanged + 0001:000E5070 TInplaceEdit.UpdateLoc + 0001:000E5090 TInplaceEdit.Move + 0001:000E50B0 TInplaceEdit.UpdateContents + 0001:000E5198 TCustomGrid.Create + 0001:000E5344 TCustomGrid.Destroy + 0001:000E53B0 DoSizeAdjust + 0001:000E54EC TCustomGrid.AdjustSize + 0001:000E56B0 TCustomGrid.BoxRect + 0001:000E56F0 TCustomGrid.DoExit + 0001:000E5718 TCustomGrid.CellRect + 0001:000E5748 TCustomGrid.CanEditAcceptKey + 0001:000E5760 TCustomGrid.CanGridAcceptKey + 0001:000E577C TCustomGrid.CanEditModify + 0001:000E5798 TCustomGrid.CanEditShow + 0001:000E5810 TCustomGrid.IsActiveControl + 0001:000E5888 TCustomGrid.GetEditMask + 0001:000E58A8 TCustomGrid.GetEditText + 0001:000E58C8 TCustomGrid.SetEditText + 0001:000E58E0 TCustomGrid.GetEditLimit + 0001:000E58F8 TCustomGrid.GetEditStyle + 0001:000E5914 TCustomGrid.HideEditor + 0001:000E5930 TCustomGrid.ShowEditor + 0001:000E594C TCustomGrid.ShowEditorChar + 0001:000E5994 TCustomGrid.InvalidateEditor + 0001:000E59C0 TCustomGrid.ReadColWidths + 0001:000E5A18 TCustomGrid.ReadRowHeights + 0001:000E5A70 TCustomGrid.WriteColWidths + 0001:000E5AC8 TCustomGrid.WriteRowHeights + 0001:000E5B20 DoColWidths + 0001:000E5B70 DoRowHeights + 0001:000E5BC0 TCustomGrid.DefineProperties + 0001:000E5C64 TCustomGrid.MoveColumn + 0001:000E5D74 TCustomGrid.ColumnMoved + 0001:000E5D88 TCustomGrid.MoveRow + 0001:000E5E38 TCustomGrid.RowMoved + 0001:000E5E4C TCustomGrid.MouseCoord + 0001:000E5EA8 TCustomGrid.MoveColRow + 0001:000E5ED4 TCustomGrid.SelectCell + 0001:000E5EF0 TCustomGrid.SizeChanged + 0001:000E5F04 TCustomGrid.Sizing + 0001:000E5F68 TCustomGrid.TopLeftChanged + 0001:000E5FBC FillDWord + 0001:000E5FC8 StackAlloc + 0001:000E5FF8 StackFree + 0001:000E6010 DrawAxisLines + 0001:000E6248 DrawLines + 0001:000E62E0 DrawCells + 0001:000E66B0 TCustomGrid.Paint + 0001:000E6BE8 DoCalc + 0001:000E6C80 DoCalcRightToLeft + 0001:000E6D30 TCustomGrid.CalcCoordFromPoint + 0001:000E6D94 TCustomGrid.CalcDrawInfo + 0001:000E6DC4 CalcAxis + 0001:000E6E70 TCustomGrid.CalcDrawInfoXY + 0001:000E6EB0 CalcFixedAxis + 0001:000E6F64 TCustomGrid.CalcFixedInfo + 0001:000E6FF0 CalcMaxCell + 0001:000E708C TCustomGrid.CalcMaxTopLeft + 0001:000E70D0 CalcAxisState + 0001:000E7230 XOutsideHorzFixedBoundary + 0001:000E7284 XOutsideOrEqualHorzFixedBoundary + 0001:000E72D8 TCustomGrid.CalcSizingState + 0001:000E73BC TCustomGrid.ChangeGridOrientation + 0001:000E7530 MinRedraw + 0001:000E75A4 DoChange + 0001:000E77D4 TCustomGrid.ChangeSize + 0001:000E78C0 TCustomGrid.ClampInView + 0001:000E79D4 TCustomGrid.DrawSizingLine + 0001:000E7B3C TCustomGrid.DrawMove + 0001:000E7CF4 TCustomGrid.FocusCell + 0001:000E7D34 LinePos + 0001:000E7DC0 CalcAxis + 0001:000E7EE4 TCustomGrid.GridRectToScreenRect + 0001:000E7FDC TCustomGrid.Initialize + 0001:000E8068 TCustomGrid.InvalidateCell + 0001:000E80A0 TCustomGrid.InvalidateGrid + 0001:000E80B4 TCustomGrid.InvalidateRect + 0001:000E8100 Min + 0001:000E8134 Max + 0001:000E815C PageUp + 0001:000E81C8 PageDown + 0001:000E8220 CalcScrollBar + 0001:000E8378 ModifyPixelScrollBar + 0001:000E855C TCustomGrid.ModifyScrollBar + 0001:000E875C TCustomGrid.MoveAdjust + 0001:000E87D0 TCustomGrid.MoveAnchor + 0001:000E8878 TCustomGrid.MoveCurrent + 0001:000E8A18 TCustomGrid.MoveTopLeft + 0001:000E8A8C TCustomGrid.ResizeCol + 0001:000E8AAC TCustomGrid.ResizeRow + 0001:000E8ACC TCustomGrid.SelectionMoved + 0001:000E8B4C TCustomGrid.ScrollDataInfo + 0001:000E8D4C TCustomGrid.ScrollData + 0001:000E8D7C CalcScroll + 0001:000E8E24 TCustomGrid.TopLeftMoved + 0001:000E8EA8 SetScroll + 0001:000E8F3C TCustomGrid.UpdateScrollPos + 0001:000E90AC DoUpdate + 0001:000E90D0 ScrollBarVisible + 0001:000E9148 CalcSizeInfo + 0001:000E91C0 SetAxisRange + 0001:000E9244 SetHorzRange + 0001:000E92E8 SetVertRange + 0001:000E932C TCustomGrid.UpdateScrollRange + 0001:000E9474 TCustomGrid.CreateEditor + 0001:000E9498 TCustomGrid.CreateParams + 0001:000E9540 CalcPageExtents + 0001:000E95AC Restrict + 0001:000E9614 TCustomGrid.KeyDown + 0001:000E9B38 TCustomGrid.KeyPress + 0001:000E9B8C TCustomGrid.MouseDown + 0001:000E9F78 TCustomGrid.MouseMove + 0001:000EA10C ResizeLine + 0001:000EA174 TCustomGrid.MouseUp + 0001:000EA420 TCustomGrid.MoveAndScroll + 0001:000EA5E8 TCustomGrid.GetColWidths + 0001:000EA638 TCustomGrid.GetRowHeights + 0001:000EA688 TCustomGrid.GetSelection + 0001:000EA6B4 TCustomGrid.GetTabStops + 0001:000EA6EC TCustomGrid.GetVisibleColCount + 0001:000EA718 TCustomGrid.GetVisibleRowCount + 0001:000EA744 TCustomGrid.SetBorderStyle + 0001:000EA778 TCustomGrid.SetCol + 0001:000EA7AC TCustomGrid.SetColCount + 0001:000EA82C TCustomGrid.SetColWidths + 0001:000EA914 TCustomGrid.SetDefaultColWidth + 0001:000EA964 TCustomGrid.SetDefaultRowHeight + 0001:000EA9B4 TCustomGrid.SetFixedColor + 0001:000EA9E8 TCustomGrid.SetFixedCols + 0001:000EAA98 TCustomGrid.SetFixedRows + 0001:000EAB48 TCustomGrid.SetEditorMode + 0001:000EAB8C TCustomGrid.SetGridLineWidth + 0001:000EABC0 TCustomGrid.SetOptions + 0001:000EAC4C TCustomGrid.SetRow + 0001:000EAC80 TCustomGrid.SetRowCount + 0001:000EACDC TCustomGrid.SetRowHeights + 0001:000EADC4 TCustomGrid.SetScrollBars + 0001:000EADF8 TCustomGrid.SetSelection + 0001:000EAE54 TCustomGrid.SetTopRow + 0001:000EAE88 TCustomGrid.HideEdit + 0001:000EAEF4 UpdateEditor + 0001:000EAF80 TCustomGrid.UpdateEdit + 0001:000EB060 TCustomGrid.UpdateText + 0001:000EB0EC TCustomGrid.WMChar + 0001:000EB134 TCustomGrid.WMCommand + 0001:000EB17C TCustomGrid.WMGetDlgCode + 0001:000EB1CC TCustomGrid.WMKillFocus + 0001:000EB228 TCustomGrid.WMLButtonDown + 0001:000EB264 TCustomGrid.WMNCHitTest + 0001:000EB2B0 TCustomGrid.WMSetCursor + 0001:000EB380 TCustomGrid.WMSetFocus + 0001:000EB3DC TCustomGrid.WMSize + 0001:000EB41C TCustomGrid.WMVScroll + 0001:000EB44C TCustomGrid.WMHScroll + 0001:000EB478 TCustomGrid.CancelMode + 0001:000EB50C TCustomGrid.WMCancelMode + 0001:000EB530 TCustomGrid.CMCancelMode + 0001:000EB570 TCustomGrid.CMFontChanged + 0001:000EB5AC TCustomGrid.CMCtl3DChanged + 0001:000EB5D0 TCustomGrid.CMDesignHitTest + 0001:000EB600 TCustomGrid.CMWantSpecialKey + 0001:000EB63C TCustomGrid.TimedScroll + 0001:000EB70C TCustomGrid.WMTimer + 0001:000EB898 TCustomGrid.ColWidthsChanged + 0001:000EB8B4 TCustomGrid.RowHeightsChanged + 0001:000EB8D0 TCustomGrid.DeleteColumn + 0001:000EB908 TCustomGrid.DeleteRow + 0001:000EB940 TCustomGrid.UpdateDesigner + 0001:000EB998 TCustomGrid.DoMouseWheelDown + 0001:000EB9F8 TCustomGrid.DoMouseWheelUp + 0001:000EBA58 TCustomGrid.CheckColumnDrag + 0001:000EBA74 TCustomGrid.CheckRowDrag + 0001:000EBA90 TCustomGrid.BeginColumnDrag + 0001:000EBAAC TCustomGrid.BeginRowDrag + 0001:000EBAC8 TCustomGrid.EndColumnDrag + 0001:000EBAE4 TCustomGrid.EndRowDrag + 0001:000EBB00 TCustomGrid.CMShowingChanged + 0001:000EBB30 TCustomDrawGrid.CellRect + 0001:000EBB58 TCustomDrawGrid.MouseToCell + 0001:000EBB90 TCustomDrawGrid.ColumnMoved + 0001:000EBBCC TCustomDrawGrid.GetEditMask + 0001:000EBC18 TCustomDrawGrid.GetEditText + 0001:000EBC64 TCustomDrawGrid.RowMoved + 0001:000EBCA0 TCustomDrawGrid.SelectCell + 0001:000EBCE8 TCustomDrawGrid.SetEditText + 0001:000EBD2C TCustomDrawGrid.DrawCell + 0001:000EBDE8 TCustomDrawGrid.TopLeftChanged + 0001:000EBE3C NewStrItem + 0001:000EBE78 DisposeStrItem + 0001:000EC054 ExpandDir + 0001:000EC0B0 MakeSec + 0001:000EC0F0 TSparsePointerArray.Create + 0001:000EC18C TSparsePointerArray.Destroy + 0001:000EC218 TSparsePointerArray.GetAt + 0001:000EC2B0 TSparsePointerArray.MakeAt + 0001:000EC37C TSparsePointerArray.PutAt + 0001:000EC3C4 TSparsePointerArray.ForAll + 0001:000EC464 Detector + 0001:000EC4A4 TSparsePointerArray.ResetHighBound + 0001:000EC4D0 TSparseList.Create + 0001:000EC518 TSparseList.Destroy + 0001:000EC554 TSparseList.Clear + 0001:000EC584 TSparseList.Delete + 0001:000EC5FC TSparseList.Exchange + 0001:000EC644 TSparseList.ForAll + 0001:000EC650 TSparseList.Get + 0001:000EC6C8 TSparseList.Insert + 0001:000EC798 TSparseList.Move + 0001:000EC7DC TSparseList.NewList + 0001:000EC80C TSparseList.Put + 0001:000EC898 TStringSparseList.Create + 0001:000EC8F4 TStringSparseList.Destroy + 0001:000EC938 TStringSparseList.ReadData + 0001:000EC9B8 CountItem + 0001:000EC9D8 StoreItem + 0001:000ECA10 TStringSparseList.WriteData + 0001:000ECA50 TStringSparseList.DefineProperties + 0001:000ECA94 TStringSparseList.Get + 0001:000ECAD8 TStringSparseList.GetCount + 0001:000ECAF4 TStringSparseList.GetObject + 0001:000ECB30 TStringSparseList.Put + 0001:000ECBB8 TStringSparseList.PutObject + 0001:000ECC14 TStringSparseList.Changed + 0001:000ECC38 TStringSparseList.Delete + 0001:000ECC80 TStringSparseList.Exchange + 0001:000ECCA4 TStringSparseList.Insert + 0001:000ECCDC ClearItem + 0001:000ECCFC TStringSparseList.Clear + 0001:000ECD2C TStringGridStrings.Create + 0001:000ECD84 TStringGridStrings.Assign + 0001:000ECE90 TStringGridStrings.CalcXY + 0001:000ECEF8 TStringGridStrings.Add + 0001:000ECFB4 BlankStr + 0001:000ECFF0 TStringGridStrings.Clear + 0001:000ED078 TStringGridStrings.Delete + 0001:000ED0D0 TStringGridStrings.Get + 0001:000ED11C TStringGridStrings.GetCount + 0001:000ED168 TStringGridStrings.GetObject + 0001:000ED1B0 TStringGridStrings.Insert + 0001:000ED20C TStringGridStrings.Put + 0001:000ED248 TStringGridStrings.PutObject + 0001:000ED284 TStringGridStrings.SetUpdateState + 0001:000ED2A4 TStringGrid.Create + 0001:000ED2F4 FreeItem + 0001:000ED314 TStringGrid.Destroy + 0001:000ED3CC MoveColData + 0001:000ED3FC TStringGrid.ColumnMoved + 0001:000ED438 TStringGrid.RowMoved + 0001:000ED478 TStringGrid.GetEditText + 0001:000ED4CC TStringGrid.SetEditText + 0001:000ED58C TStringGrid.DrawCell + 0001:000ED638 TStringGrid.DisableEditUpdate + 0001:000ED64C TStringGrid.EnableEditUpdate + 0001:000ED660 TStringGrid.Initialize + 0001:000ED70C TStringGrid.SetUpdateState + 0001:000ED74C TStringGrid.Update + 0001:000ED7B8 TStringGrid.EnsureColRow + 0001:000ED840 TStringGrid.EnsureDataRow + 0001:000ED8AC TStringGrid.GetCells + 0001:000ED8F8 TStringGrid.GetObjects + 0001:000ED940 TStringGrid.GetRows + 0001:000ED964 TStringGrid.SetCells + 0001:000ED9BC TStringGrid.SetObjects + 0001:000EDA14 TStringGrid.SetRows + 0001:000EDA3C Finalization + 0001:000EDA6C Grids + 0001:000EDA74 Finalization + 0001:000EDAA4 StdVCL + 0001:000EDB1C Finalization + 0001:000EDB4C ComConst + 0001:000EE4F8 HandleSafeCallException + 0001:000EE664 TComClassManager.Create + 0001:000EE6B8 TComClassManager.Destroy + 0001:000EE6F4 TComClassManager.AddObjectFactory + 0001:000EE754 TComClassManager.ForEachFactory + 0001:000EE7D8 TComClassManager.GetFactoryFromClass + 0001:000EE890 TComClassManager.RemoveObjectFactory + 0001:000EE934 TComObject.Create + 0001:000EE994 TComObject.CreateFromFactory + 0001:000EEA14 TComObject.Destroy + 0001:000EEA7C TComObject.Initialize + 0001:000EEA88 TComObject.SafeCallException + 0001:000EEC90 TComObject.ObjQueryInterface + 0001:000EECBC TComObject.ObjAddRef + 0001:000EECD8 TComObject.ObjRelease + 0001:000EED04 TComObject.QueryInterface + 0001:000EED48 TComObject._AddRef + 0001:000EED7C TComObject._Release + 0001:000EEDB0 TComObject.InterfaceSupportsErrorInfo + 0001:000EEDDC TComObjectFactory.Create + 0001:000EEEF4 TComObjectFactory.Destroy + 0001:000EEF3C TComObjectFactory.CreateComObject + 0001:000EEF68 TComObjectFactory.GetProgID + 0001:000EEFF0 TComObjectFactory.RegisterClassObject + 0001:000EF090 TComObjectFactory.UpdateRegistry + 0001:000EF328 TComObjectFactory.GetLicenseString + 0001:000EF35C TComObjectFactory.HasMachineLicense + 0001:000EF370 TComObjectFactory.ValidateUserLicense + 0001:000EF3E8 TComObjectFactory.QueryInterface + 0001:000EF414 TComObjectFactory._AddRef + 0001:000EF430 TComObjectFactory._Release + 0001:000EF44C TComObjectFactory.CreateInstance + 0001:000EF474 TComObjectFactory.LockServer + 0001:000EF4AC TComObjectFactory.GetLicInfo + 0001:000EF580 TComObjectFactory.RequestLicKey + 0001:000EF5C0 TComObjectFactory.CreateInstanceLic + 0001:000EF7BC TTypedComObject.GetClassInfo + 0001:000EF7EC TTypedComObjectFactory.Create + 0001:000EF954 TTypedComObjectFactory.GetInterfaceTypeInfo + 0001:000EFA18 TTypedComObjectFactory.UpdateRegistry + 0001:000EFC14 TAutoObject.EventSinkChanged + 0001:000EFC24 TAutoObject.Initialize + 0001:000EFC50 TAutoObject.GetIDsOfNames + 0001:000EFC7C TAutoObject.GetTypeInfo + 0001:000EFCB4 TAutoObject.GetTypeInfoCount + 0001:000EFCD0 TAutoObject.Invoke + 0001:000EFD24 TAutoObjectFactory.Create + 0001:000EFF14 TAutoObjectFactory.GetIntfEntry + 0001:000EFF44 TAutoIntfObject.Create + 0001:000EFFBC TAutoIntfObject.GetIDsOfNames + 0001:000EFFE4 TAutoIntfObject.GetTypeInfo + 0001:000F001C TAutoIntfObject.GetTypeInfoCount + 0001:000F0038 TAutoIntfObject.Invoke + 0001:000F0088 TAutoIntfObject.InterfaceSupportsErrorInfo + 0001:000F00B8 TAutoIntfObject.SafeCallException + 0001:000F00E8 TrimPunctuation + 0001:000F0154 EOleSysError.Create + 0001:000F0230 EOleException.Create + 0001:000F02DC OleError + 0001:000F0300 OleCheck + 0001:000F0320 StringToGUID + 0001:000F0384 GUIDToString + 0001:000F03BC ProgIDToClassID + 0001:000F0420 ClassIDToProgID + 0001:000F0458 CreateRegKey + 0001:000F04F8 DeleteRegKey + 0001:000F051C CreateComObject + 0001:000F055C CreateRemoteComObject + 0001:000F06D0 CreateOleObject + 0001:000F071C InterfaceConnect + 0001:000F07D4 InterfaceDisconnect + 0001:000F089C LoadComExProcs + 0001:000F09B8 SafeCallError + 0001:000F0ABC DispatchInvoke + 0001:000F0E78 RaiseNameException + 0001:000F0EAC GetIDsOfNames + 0001:000F0FB0 RaiseException + 0001:000F0FCC VarDispInvoke + 0001:000F1078 DispCallError + 0001:000F1170 DispatchInvokeError + 0001:000F1194 ClearExcepInfo + 0001:000F11B0 DispCall + 0001:000F1294 DispCallByID + 0001:000F1370 ComClassManager + 0001:000F139C InitComObj + 0001:000F1418 Finalization + 0001:000F1498 ComObj + 0001:000F1530 Finalization + 0001:000F1560 Accessibility_TLB + 0001:000F1568 GetDefaultObject + 0001:000F15A8 GetDefaultObject + 0001:000F15E8 GetLResult + 0001:000F1650 Finalization + 0001:000F1694 uAccessAPI + 0001:000F59C0 ClientWidthOfList + 0001:000F59E8 FontWidthPixel + 0001:000F5AE4 FontHeightPixel + 0001:000F5B20 HigherOf + 0001:000F5B2C LowerOf + 0001:000F5B38 Piece + 0001:000F5BA8 SetPiece + 0001:000F5CB4 IntArrayToString + 0001:000F5D58 StringToIntArray + 0001:000F5E70 StringBetween + 0001:000F5EA0 ItemTipKeyHook + 0001:000F5ED4 AddItemTipRef + 0001:000F5F00 RemoveItemTipRef + 0001:000F5F24 TItemTip.Create + 0001:000F5F74 TItemTip.Destroy + 0001:000F5FAC TItemTip.CreateParams + 0001:000F5FD4 TItemTip.Paint + 0001:000F60AC TItemTip.Hide + 0001:000F60EC TItemTip.GetTabSettings + 0001:000F619C TItemTip.UpdateText + 0001:000F6418 TItemTip.Show + 0001:000F65E8 GetORCBBitmap + 0001:000F6674 DestroyORCBBitmaps + 0001:000F6694 TORStaticText.DoEnter + 0001:000F66B8 TORStaticText.DoExit + 0001:000F66DC TORStrings.Add + 0001:000F6758 TORStrings.Clear + 0001:000F6780 TORStrings.Create + 0001:000F67D8 TORStrings.Delete + 0001:000F6808 TORStrings.Destroy + 0001:000F6838 TORStrings.Get + 0001:000F6858 TORStrings.GetCount + 0001:000F686C TORStrings.GetObject + 0001:000F6888 TORStrings.IndexOf + 0001:000F68A4 TORStrings.Insert + 0001:000F6928 TORStrings.Put + 0001:000F69A8 TORStrings.PutObject + 0001:000F69B8 TORStrings.SetUpdateState + 0001:000F69D0 TORStrings.Verify + 0001:000F6E10 TORListBox.Create + 0001:000F6F04 TORListBox.Destroy + 0001:000F6F54 TORListBox.CreateParams + 0001:000F6F68 TORListBox.CreateWnd + 0001:000F6FBC TORListBox.Loaded + 0001:000F6FEC TORListBox.DestroyWnd + 0001:000F7008 TORListBox.TextToShow + 0001:000F70F8 TORListBox.IsSynonym + 0001:000F71C8 TORListBox.GetDisplayText + 0001:000F721C TORListBox.LBGetItemData + 0001:000F724C TORListBox.LBSetItemData + 0001:000F72D4 TORListBox.LBGetText + 0001:000F73A0 TORListBox.LBGetTextLen + 0001:000F7444 TORListBox.LBAddString + 0001:000F752C TORListBox.LBInsertString + 0001:000F7628 TORListBox.LBDeleteString + 0001:000F76A0 TORListBox.LBResetContent + 0001:000F772C TORListBox.LBSetCurSel + 0001:000F7744 TORListBox.CMFontChanged + 0001:000F7770 TORListBox.WMKeyDown + 0001:000F791C TORListBox.WMLButtonDown + 0001:000F7B8C TORListBox.WMLButtonUp + 0001:000F7BD0 TORListBox.WMRButtonUp + 0001:000F7C78 TORListBox.WMLButtonDblClk + 0001:000F7E04 TORListBox.WMCancelMode + 0001:000F7E34 TORListBox.WMMove + 0001:000F7E50 TORListBox.WMSize + 0001:000F7E8C TORListBox.WMVScroll + 0001:000F7EAC TORListBox.CMHintShow + 0001:000F7F08 TORListBox.Click + 0001:000F7F20 TORListBox.DoChange + 0001:000F7F60 TORListBox.DoEnter + 0001:000F7F68 TORListBox.DoExit + 0001:000F7F88 TORListBox.DestroyItems + 0001:000F7FF4 TORListBox.ToggleCheckBox + 0001:000F80E4 TORListBox.KeyPress + 0001:000F8110 TORListBox.MouseDown + 0001:000F8190 TORListBox.MouseMove + 0001:000F8320 TORListBox.MeasureItem + 0001:000F83C4 TORListBox.WMDestroy + 0001:000F83EC TORListBox.CNDrawItem + 0001:000F8404 TORListBox.DrawItem + 0001:000F8728 TORListBox.GetIndexFromY + 0001:000F8798 TORListBox.SetFocusIndex + 0001:000F89DC TORListBox.UMShowTip + 0001:000F8AE8 TORListBox.GetIEN + 0001:000F8B98 TORListBox.GetItemIEN + 0001:000F8C48 TORListBox.SelectByIEN + 0001:000F8CA4 TORListBox.SetExactByIEN + 0001:000F8D90 TORListBox.GetItemID + 0001:000F8E2C TORListBox.SelectByID + 0001:000F8EE8 TORListBox.SetReference + 0001:000F8FBC TORListBox.GetTabPositions + 0001:000F8FF8 TORListBox.SetTabPositions + 0001:000F9110 TORListBox.SetTabPosInPixels + 0001:000F9124 TORListBox.SetTabStops + 0001:000F9240 TORListBox.SetHideSynonyms + 0001:000F9300 TORListBox.SetSynonymChars + 0001:000F9394 TORListBox.GetStyle + 0001:000F939C TORListBox.SetStyle + 0001:000F93CC TORListBox.SetDelimiter + 0001:000F93D8 TORListBox.GetPieces + 0001:000F93F4 TORListBox.SetPieces + 0001:000F9414 TORListBox.ResetItems + 0001:000F95DC TORListBox.SetLongList + 0001:000F9610 TORListBox.AdjustScrollBar + 0001:000F9670 TORListBox.CreateScrollBar + 0001:000F971C TORListBox.FreeScrollBar + 0001:000F973C TORListBox.ForDataUse + 0001:000F99C0 TORListBox.InitLongList + 0001:000F9B20 TORListBox.InsertSeparator + 0001:000F9BC4 TORListBox.ClearTop + 0001:000F9C18 ClearLong + 0001:000F9CE0 TORListBox.NeedData + 0001:000F9FD4 TORListBox.PositionThumb + 0001:000FA070 TORListBox.ScrollTo + 0001:000FA3EC TORListBox.GetStringIndex + 0001:000FA520 TORListBox.SelectString + 0001:000FA7D4 TORListBox.SetCheckBoxes + 0001:000FA81C TORListBox.SetFlatCheckBoxes + 0001:000FA830 TORListBox.GetChecked + 0001:000FA874 TORListBox.SetChecked + 0001:000FA900 TORListBox.GetCheckedState + 0001:000FA938 TORListBox.SetCheckedState + 0001:000FA9B4 TORListBox.GetMultiSelect + 0001:000FA9BC TORListBox.SetMultiSelect + 0001:000FA9DC TORListBox.GetCheckedString + 0001:000FAA74 TORListBox.SetCheckedString + 0001:000FAAFC TORListBox.GetMItems + 0001:000FAB30 TORListBox.SetMItems + 0001:000FAB70 TORListBox.Clear + 0001:000FAB88 TORListBox.SetCaption + 0001:000FAC24 TORListBox.GetCaption + 0001:000FAC3C TORListBox.MakeAccessible + 0001:000FAD04 TORListBox.WMGetObject + 0001:000FAD3C TORDropPanel.BtnClicked + 0001:000FAD70 TORDropPanel.Create + 0001:000FADE4 TORDropPanel.CreateParams + 0001:000FAE20 TORDropPanel.GetButton + 0001:000FAEB8 TORDropPanel.ResetButtons + 0001:000FAEE8 TORDropPanel.Resize + 0001:000FAF68 TORDropPanel.UpdateButtons + 0001:000FB0E0 TORDropPanel.WMActivateApp + 0001:000FB13C TORComboEdit.CreateParams + 0001:000FB158 TORComboEdit.WMKillFocus + 0001:000FB1CC TORComboEdit.WMSetFocus + 0001:000FB224 TORComboBox.Create + 0001:000FB3C4 TORComboBox.WMDestroy + 0001:000FB3F0 TORComboBox.CMFontChanged + 0001:000FB404 TORComboBox.WMMove + 0001:000FB41C TORComboBox.WMSize + 0001:000FB430 TORComboBox.WMTimer + 0001:000FB48C TORComboBox.EditControl + 0001:000FB4A0 TORComboBox.AdjustSizeOfSelf + 0001:000FB5C8 TORComboBox.DropButtonDown + 0001:000FB5F8 TORComboBox.DropButtonUp + 0001:000FB628 TORComboBox.DoEnter + 0001:000FB64C TORComboBox.UMGotFocus + 0001:000FB678 TORComboBox.DoExit + 0001:000FB6BC TORComboBox.Loaded + 0001:000FB6D4 TORComboBox.FwdChange + 0001:000FB704 TORComboBox.FwdChangeDelayed + 0001:000FBA14 TORComboBox.FwdClick + 0001:000FBB68 TORComboBox.FwdDblClick + 0001:000FBB88 TORComboBox.FwdKeyDown + 0001:000FBF4C TORComboBox.FwdKeyPress + 0001:000FBF90 TORComboBox.FwdKeyUp + 0001:000FBFFC TORComboBox.FwdMouseUp + 0001:000FC020 TORComboBox.FwdNeedData + 0001:000FC098 TORComboBox.SetDropDownCount + 0001:000FC0A4 TORComboBox.SetDroppedDown + 0001:000FC2DC TORComboBox.SetEditRect + 0001:000FC384 TORComboBox.SetEditText + 0001:000FC428 TORComboBox.SetItemIndex + 0001:000FC50C TORComboBox.SelectByIEN + 0001:000FC538 TORComboBox.SelectByID + 0001:000FC558 TORComboBox.SetExactByIEN + 0001:000FC584 TORComboBox.SetStyle + 0001:000FC760 TORComboBox.StartKeyTimer + 0001:000FC7C0 TORComboBox.StopKeyTimer + 0001:000FC7E8 TORComboBox.Clear + 0001:000FC80C TORComboBox.ClearTop + 0001:000FC818 TORComboBox.ForDataUse + 0001:000FC824 TORComboBox.InitLongList + 0001:000FC874 TORComboBox.InsertSeparator + 0001:000FC880 TORComboBox.GetAutoSelect + 0001:000FC890 TORComboBox.GetColor + 0001:000FC89C TORComboBox.GetDelimiter + 0001:000FC8AC TORComboBox.GetDisplayText + 0001:000FC8C8 TORComboBox.GetItemHeight + 0001:000FC8D4 TORComboBox.GetItemID + 0001:000FC8EC TORComboBox.GetItemIEN + 0001:000FC90C TORComboBox.GetItemIndex + 0001:000FC91C TORComboBox.GetItemTipEnable + 0001:000FC92C TORComboBox.GetItemTipColor + 0001:000FC93C TORComboBox.GetLongList + 0001:000FC94C TORComboBox.GetMaxLength + 0001:000FC95C TORComboBox.GetPieces + 0001:000FC974 TORComboBox.GetSelStart + 0001:000FC984 TORComboBox.GetShortCount + 0001:000FC994 TORComboBox.GetSorted + 0001:000FC9A4 TORComboBox.GetHideSynonyms + 0001:000FC9B4 TORComboBox.GetSynonymChars + 0001:000FC9D0 TORComboBox.SetHideSynonyms + 0001:000FC9DC TORComboBox.SetSynonymChars + 0001:000FCA2C TORComboBox.GetTabPositions + 0001:000FCA44 TORComboBox.GetTabPosInPixels + 0001:000FCA54 TORComboBox.GetText + 0001:000FCA6C TORComboBox.SelectAll + 0001:000FCA78 TORComboBox.SetAutoSelect + 0001:000FCA88 TORComboBox.SetColor + 0001:000FCABC TORComboBox.SetDelimiter + 0001:000FCAC8 TORComboBox.SetItemHeight + 0001:000FCAD4 TORComboBox.SetItemTipEnable + 0001:000FCAE4 TORComboBox.SetItemTipColor + 0001:000FCAF4 TORComboBox.SetLongList + 0001:000FCB00 TORComboBox.SetMaxLength + 0001:000FCB0C TORComboBox.SetPieces + 0001:000FCB18 TORComboBox.SetSelLength + 0001:000FCB2C TORComboBox.SetSelStart + 0001:000FCB40 TORComboBox.SetSelText + 0001:000FCB4C TORComboBox.SetSorted + 0001:000FCB58 TORComboBox.SetTabPositions + 0001:000FCB64 TORComboBox.SetTabPosInPixels + 0001:000FCB70 TORComboBox.SetText + 0001:000FCB7C TORComboBox.SetItems + 0001:000FCB8C TORComboBox.GetCheckBoxes + 0001:000FCB9C TORComboBox.GetCheckEntireLine + 0001:000FCBAC TORComboBox.GetFlatCheckBoxes + 0001:000FCBBC TORComboBox.SetCheckBoxes + 0001:000FCDB0 TORComboBox.SetCheckEntireLine + 0001:000FCDC0 TORComboBox.SetFlatCheckBoxes + 0001:000FCDCC TORComboBox.DropPanelBtnPressed + 0001:000FCE30 TORComboBox.GetCheckedString + 0001:000FCE48 TORComboBox.SetCheckedString + 0001:000FCE54 TORComboBox.SetCheckBoxEditColor + 0001:000FCE84 TORComboBox.SetListItemsOnly + 0001:000FCEA0 TORComboBox.SetOnCheckedText + 0001:000FCF08 TORComboBox.SetTemplateField + 0001:000FCF4C TORComboBox.GetOnSynonymCheck + 0001:000FCF64 TORComboBox.SetOnSynonymCheck + 0001:000FCF84 TORComboBox.GetEnabled + 0001:000FCF8C TORComboBox.SetEnabled + 0001:000FCFD4 TORComboBox.GetEditBoxText + 0001:000FD0D0 TORComboBox.UpdateCheckEditBoxText + 0001:000FD150 TORComboBox.CheckBoxSelected + 0001:000FD180 TORComboBox.SetCaption + 0001:000FD18C TORComboBox.GetCaption + 0001:000FD1A4 TORComboBox.MakeAccessible + 0001:000FD1FC TORComboBox.GetCaseChanged + 0001:000FD20C TORComboBox.SetCaseChanged + 0001:000FD21C TORComboBox.GetLookupPiece + 0001:000FD22C TORComboBox.SetLookupPiece + 0001:000FD23C TSizeRatio.Create + 0001:000FD2B4 TORAutoPanel.Destroy + 0001:000FD318 TORAutoPanel.BuildSizes + 0001:000FD410 TORAutoPanel.Loaded + 0001:000FD440 TORAutoPanel.DoResize + 0001:000FD588 TORAutoPanel.Resize + 0001:000FD5AC TOROffsetLabel.Create + 0001:000FD608 TOROffsetLabel.CMTextChanged + 0001:000FD61C TOROffsetLabel.CMFontChanged + 0001:000FD630 TOROffsetLabel.AdjustSizeOfSelf + 0001:000FD6BC TOROffsetLabel.DoDrawText + 0001:000FD75C TOROffsetLabel.Paint + 0001:000FD7E8 TOROffsetLabel.GetTransparent + 0001:000FD7F4 TOROffsetLabel.SetTransparent + 0001:000FD834 TOROffsetLabel.SetVertOffset + 0001:000FD840 TOROffsetLabel.SetHorzOffset + 0001:000FD84C TOROffsetLabel.SetWordWrap + 0001:000FD860 TORAlignButton.Create + 0001:000FD8AC TORAlignButton.CreateParams + 0001:000FD8F4 TORAlignButton.SetAlignment + 0001:000FD908 TORAlignButton.SetLayout + 0001:000FD91C TORAlignButton.SetWordWrap + 0001:000FD930 TORTreeNode.EnsureVisible + 0001:000FD9BC TORTreeNode.GetORTreeView + 0001:000FD9D4 TORTreeNode.GetParent + 0001:000FD9EC TORTreeNode.GetText + 0001:000FDA00 TORTreeNode.SetBold + 0001:000FDA44 TORTreeNode.SetPiece + 0001:000FDA80 TORTreeNode.SetStringData + 0001:000FDB2C TORTreeNode.SetText + 0001:000FDB34 TORTreeNode.UpdateText + 0001:000FDBC4 TORTreeNode.MakeAccessible + 0001:000FDC88 TORTreeNode.WMGetObject + 0001:000FDCB8 CalcShortName + 0001:000FDE64 TORTreeNode.SetCaption + 0001:000FDF14 TORTreeView.CNNotify + 0001:000FDF94 TORTreeView.Create + 0001:000FDFD0 TORTreeView.CreateNode + 0001:000FE008 TORTreeView.FindPieceNode + 0001:000FE068 TORTreeView.FindPieceNode + 0001:000FE13C TORTreeView.GetExpandedIDStr + 0001:000FE230 TORTreeView.SetExpandedIDStr + 0001:000FE388 TORTreeView.GetHorzScrollPos + 0001:000FE39C TORTreeView.GetVertScrollPos + 0001:000FE3B0 TORTreeView.RenameNodes + 0001:000FE464 TORTreeView.SetNodeDelim + 0001:000FE478 TORTreeView.SetHorzScrollPos + 0001:000FE4A4 TORTreeView.SetNodePiece + 0001:000FE4B8 TORTreeView.SetVertScrollPos + 0001:000FE4E4 TORTreeView.GetNodeID + 0001:000FE5A8 TORTreeView.MakeAccessible + 0001:000FE670 TORTreeView.WMGetObject + 0001:000FE6A8 TORTreeView.SetShortNodeCaptions + 0001:000FE6B4 TORCBImageIndexes.Create + 0001:000FE738 TORCBImageIndexes.Destroy + 0001:000FE768 TORCBImageIndexes.SetImages + 0001:000FE7A4 RStr + 0001:000FE7DC TORCBImageIndexes.IdxString + 0001:000FE8C0 TORCBImageIndexes.SetIdxString + 0001:000FE9FC TORCBImageIndexes.ImageListChanged + 0001:000FEA2C TORCBImageIndexes.Notification + 0001:000FEA58 TORCBImageIndexes.SetCheckedDisabledIndex + 0001:000FEA68 TORCBImageIndexes.SetCheckedEnabledIndex + 0001:000FEA78 TORCBImageIndexes.SetGrayedDisabledIndex + 0001:000FEA88 TORCBImageIndexes.SetGrayedEnabledIndex + 0001:000FEA98 TORCBImageIndexes.SetUncheckedDisabledIndex + 0001:000FEAA8 TORCBImageIndexes.SetUncheckedEnabledIndex + 0001:000FEAB8 TORCheckBox.Create + 0001:000FEB10 TORCheckBox.CreateCommon + 0001:000FEB3C TORCheckBox.Destroy + 0001:000FEB80 TORCheckBox.GetImageIndexes + 0001:000FEB98 TORCheckBox.GetImageList + 0001:000FEBA4 TORCheckBox.SetImageIndexes + 0001:000FEBB0 TORCheckBox.SetImageList + 0001:000FEBBC TORCheckBox.Toggle + 0001:000FEC44 TORCheckBox.CreateParams + 0001:000FEC5C TORCheckBox.CMEnabledChanged + 0001:000FEC70 TORCheckBox.CMFontChanged + 0001:000FEC84 TORCheckBox.CNDrawItem + 0001:000FEC9C TORCheckBox.CNMeasureItem + 0001:000FECAC TORCheckBox.GetDrawData + 0001:000FF1E0 TORCheckBox.DrawItem + 0001:000FF5A8 TORCheckBox.SetGrayedStyle + 0001:000FF5C8 TORCheckBox.WMLButtonDblClk + 0001:000FF5DC TORCheckBox.WMSize + 0001:000FF600 TORCheckBox.BMSetCheck + 0001:000FF6F8 TORCheckBox.SetWordWrap + 0001:000FF71C TORCheckBox.SetAutoSize + 0001:000FF740 TORCheckBox.AutoAdjustSize + 0001:000FF8D0 TORCheckBox.GetCaption + 0001:000FF8E4 TORCheckBox.SetCaption + 0001:000FF94C TORCheckBox.SetAllowAllUnchecked + 0001:000FF958 TORCheckBox.SetGroupIndex + 0001:000FF984 TORCheckBox.SyncAllowAllUnchecked + 0001:000FF9F4 TORCheckBox.SetParent + 0001:000FFA08 TORCheckBox.SetRadioStyle + 0001:000FFA14 TORCheckBox.SetAssociate + 0001:000FFA4C EnableCtrl + 0001:000FFAE0 TORCheckBox.UpdateAssociate + 0001:000FFB00 TORCheckBox.Notification + 0001:000FFB30 TORCheckBox.SetFocusOnBox + 0001:000FFB3C TORCheckBox.BMGetCheck + 0001:000FFB64 TORCheckBox.BMGetState + 0001:000FFB68 TORComboPanelEdit.Destroy + 0001:000FFB9C TORComboPanelEdit.Paint + 0001:000FFC64 TKeyClickPanel.KeyDown + 0001:000FFC88 TKeyClickRadioGroup.Click + 0001:000FFCBC TKeyClickRadioGroup.Create + 0001:000FFD18 TKeyClickRadioGroup.KeyDown + 0001:000FFD84 TCaptionListBox.DoEnter + 0001:000FFDA4 TCaptionListBox.GetCaption + 0001:000FFDCC TCaptionListBox.SetCaption + 0001:000FFE4C TCaptionListBox.WMGetObject + 0001:000FFE84 TCaptionListBox.WMMouseMove + 0001:000FFF44 TCaptionListBox.WMRButtonUp + 0001:00100070 TCaptionCheckListBox.GetCaption + 0001:00100098 TCaptionCheckListBox.SetCaption + 0001:00100118 TCaptionMemo.GetCaption + 0001:00100140 TCaptionMemo.SetCaption + 0001:001001C0 TCaptionEdit.GetCaption + 0001:001001E8 TCaptionEdit.SetCaption + 0001:00100268 TCaptionRichEdit.MakeAccessible + 0001:0010032C TCaptionRichEdit.WMGetObject + 0001:00100364 TCaptionTreeView.GetCaption + 0001:00100378 TCaptionTreeView.SetCaption + 0001:00100404 TCaptionComboBox.GetCaption + 0001:0010042C TCaptionComboBox.SetCaption + 0001:001004AC TORAlignSpeedButton.Paint + 0001:00100520 GoodNotifyWinEvent + 0001:00100528 TCaptionStringGrid.ColRowToIndex + 0001:0010054C TCaptionStringGrid.IndexToColRow + 0001:00100594 TCaptionStringGrid.KeyUp + 0001:00100608 TCaptionStringGrid.MakeAccessible + 0001:001006CC TCaptionStringGrid.WMGetObject + 0001:00100704 IsAMouseButtonDown + 0001:00100738 TORComboBox.SetNumForMatch + 0001:00100760 TORComboBox.SetUniqueAutoComplete + 0001:00100768 TORListBox.VerifyUnique + 0001:00100854 TORComboBox.SetTextAutoComplete + 0001:001008D0 Finalization + 0001:0010091C ORCtrls + 0001:00100AAC DateTimeToFMDateTime + 0001:00100B3C FMDateTimeToDateTime + 0001:00100D7C FMDateTimeOffsetBy + 0001:00100DB4 TrimFormatCount + 0001:00100E00 FormatFMDateTime + 0001:00101394 FormatFMDateTimeStr + 0001:001013DC IsFMDateTime + 0001:00101484 MakeFMDateTime + 0001:001014C4 SetListFMDateTime + 0001:001015CC HigherOf + 0001:001015F4 LowerOf + 0001:0010161C StrToFloatDef + 0001:00101658 CharAt + 0001:0010168C ContainsAlpha + 0001:001016DC ContainsVisibleChar + 0001:00101724 ConvertSpecialStrings + 0001:001017AC UpdateCrc32 + 0001:00101810 CRCForFile + 0001:001018C0 CRCForStrings + 0001:00101998 FilteredString + 0001:00101B70 ExtractInteger + 0001:00101C3C ExtractFloat + 0001:00101D14 ExtractDefault + 0001:00101E58 ExtractItems + 0001:00101F90 ExtractText + 0001:001020C8 InvertStringList + 0001:00102118 MixedCase + 0001:001021F4 MixedCaseList + 0001:00102284 MixedCaseByPiece + 0001:00102348 Piece + 0001:001023DC Pieces + 0001:001024A8 ComparePieces + 0001:001025E8 PiecesToList + 0001:0010268C ReverseStr + 0001:001026F4 SetPiece + 0001:00102818 SetPieces + 0001:001028D0 SortByPiece + 0001:00102A24 DelimCount + 0001:00102B28 GetStrings + 0001:00102DDC QuickCopy + 0001:00102E8C ValidFileName + 0001:00102EF8 LimitStringLength + 0001:00103098 InfoBox + 0001:001030DC LimitEditWidth + 0001:00103234 BaseFont + 0001:00103248 MainFont + 0001:0010327C MainFontSize + 0001:00103294 FontWidthSubPixel + 0001:0010330C FontWidthPixel + 0001:00103338 MainFontWidth + 0001:00103350 MainFontHeight + 0001:0010336C RedrawSuspend + 0001:00103388 RedrawActivate + 0001:001033B0 ResetSelectedForList + 0001:001033F0 ResizeWidth + 0001:00103438 ResizeHeight + 0001:00103494 ResizeToFont + 0001:00103514 ResizeHeaderControl + 0001:00103584 ResizeListView + 0001:00103608 ResizeComboBox + 0001:00103640 ResizeListBox + 0001:00103674 ResizeCheckListBox + 0001:001036A8 ResizeDescendants + 0001:00103A50 ResizeChartFonts + 0001:00103C34 ResizeFontsInDescendants + 0001:00103DBC ForceInsideWorkArea + 0001:00103EA0 ResizeFormToFont + 0001:00103FA0 ResizeAnchoredFormToFont + 0001:001040B4 SetEqualTabStops + 0001:00104194 StatusText + 0001:001041E4 ShowMsgOn + 0001:00104214 TextWidthByFont + 0001:00104280 TextHeightByFont + 0001:001042EC WrappedTextHeightByFont + 0001:00104450 NumCharsFitInWidth + 0001:0010458C PopupComponent + 0001:001045E0 ReformatMemoParagraph + 0001:001047E4 ReadOnlyColor + 0001:00104838 ListGridDrawCell + 0001:001048F8 ListGridDrawLines + 0001:00104A0C KillObj + 0001:00104AEC menuHideAllBut + 0001:00104B8C TabIsPressed + 0001:00104BC0 ShiftTabIsPressed + 0001:00104BF4 Finalization + 0001:00104C64 ORFn + 0001:00104CB8 FileLastWrite + 0001:00104D1C AppOutOfDate + 0001:00104FD4 ClientVersion + 0001:00105118 FileVersionValue + 0001:001051C8 CompareVersion + 0001:00105320 FullToFilePart + 0001:001053AC FullToPathPart + 0001:0010544C ParamIndex + 0001:00105518 ParamSearch + 0001:00105638 QuotedExeName + 0001:001056FC RegReadStr + 0001:001057B0 RegReadBool + 0001:00105860 UserRegReadDateTime + 0001:00105938 RunProgram + 0001:00105980 UpdateSelf + 0001:00105A90 Finalization + 0001:00105AC0 ORSystem + 0001:00105D18 Finalization + 0001:00105D74 uConst + 0001:00105DB4 Finalization + 0001:00105DE4 OleConst + 0001:0010613C TServerEventDispatch.Create + 0001:0010618C TServerEventDispatch.QueryInterface + 0001:001061FC TServerEventDispatch._AddRef + 0001:0010622C TServerEventDispatch._Release + 0001:0010625C TServerEventDispatch.GetTypeInfoCount + 0001:00106274 TServerEventDispatch.GetTypeInfo + 0001:00106290 TServerEventDispatch.GetIDsOfNames + 0001:001062A4 TServerEventDispatch.Invoke + 0001:00106498 TServerEventDispatch.ServerDisconnect + 0001:001064C4 TOleServer.Create + 0001:00106534 TOleServer.Destroy + 0001:0010659C TOleServer.Loaded + 0001:001065CC TOleServer.InvokeEvent + 0001:001065E0 TOleServer.GetServer + 0001:00106760 TOleServer.ConnectEvents + 0001:00106798 TOleServer.DisconnectEvents + 0001:001067C0 TOleServer.GetConnectKind + 0001:001067E8 TOleServer.SetConnectKind + 0001:00106804 TOleServer.GetAutoConnect + 0001:00106830 TOleServer.SetAutoConnect + 0001:0010684C TOleServer.QueryInterface + 0001:00106878 TOleServer._AddRef + 0001:00106894 TOleServer._Release + 0001:001068B0 Finalization + 0001:001068E0 OleServer + 0001:00106D84 HandleException + 0001:00106DC8 GetFontAccess + 0001:00106E28 GetPictureAccess + 0001:00106E88 GetOleFont + 0001:00106EE0 SetOleFont + 0001:00106F48 GetOlePicture + 0001:00106FA0 TCustomAdapter.Create + 0001:00107004 TCustomAdapter.Destroy + 0001:00107040 TCustomAdapter.Changed + 0001:0010705C TCustomAdapter.ConnectOleObject + 0001:001070F0 TCustomAdapter.ReleaseOleObject + 0001:0010712C TAdapterNotifier.Create + 0001:0010717C TAdapterNotifier.OnChanged + 0001:001071C8 TAdapterNotifier.OnRequestEdit + 0001:001071DC TFontAdapter.Create + 0001:0010722C TFontAdapter.Update + 0001:001073FC TFontAdapter.Changed + 0001:0010759C TFontAdapter.GetOleFont + 0001:0010771C TFontAdapter.SetOleFont + 0001:00107790 TPictureAdapter.Create + 0001:001077E0 TPictureAdapter.Update + 0001:0010786C TPictureAdapter.GetOlePicture + 0001:00107AB0 TPictureAdapter.SetOlePicture + 0001:00107AD4 TOleGraphic.Assign + 0001:00107B14 TOleGraphic.Changed + 0001:00107B24 TOleGraphic.Draw + 0001:00107C64 TOleGraphic.GetEmpty + 0001:00107CA4 HIMETRICtoDP + 0001:00107D04 TOleGraphic.GetHeight + 0001:00107D3C TOleGraphic.GetMMHeight + 0001:00107D6C TOleGraphic.GetMMWidth + 0001:00107D9C TOleGraphic.GetPalette + 0001:00107DD0 TOleGraphic.GetTransparent + 0001:00107E08 TOleGraphic.GetWidth + 0001:00107E3C InvalidOperation + 0001:00107E5C TOleGraphic.SetHeight + 0001:00107EB4 TOleGraphic.SetPalette + 0001:00107EE4 TOleGraphic.SetWidth + 0001:00107F3C TOleGraphic.LoadFromFile + 0001:00107F4C TOleGraphic.LoadFromStream + 0001:00107FA4 TOleGraphic.SaveToStream + 0001:00108030 TOleGraphic.LoadFromClipboardFormat + 0001:00108090 TOleGraphic.SaveToClipboardFormat + 0001:001080EC InitOlePro32 + 0001:001081E0 OleCreateFontIndirect + 0001:00108220 OleCreatePictureIndirect + 0001:00108264 OleLoadPicture + 0001:001082E0 Finalization + 0001:00108340 AxCtrls + 0001:00108BBC FontToOleFont + 0001:00108C14 OleFontToFont + 0001:00108C98 StringToVarOleStr + 0001:00108CC8 TEventDispatch.Create + 0001:00108D0C TEventDispatch.QueryInterface + 0001:00108D7C TEventDispatch._AddRef + 0001:00108D98 TEventDispatch._Release + 0001:00108DB4 TEventDispatch.GetTypeInfoCount + 0001:00108DCC TEventDispatch.GetTypeInfo + 0001:00108DE8 TEventDispatch.GetIDsOfNames + 0001:00108DFC TEventDispatch.Invoke + 0001:00108E4C TOleControl.Create + 0001:00109110 FreeList + 0001:00109168 TOleControl.Destroy + 0001:00109258 TOleControl.CreateControl + 0001:0010955C LicenseCheck + 0001:001095BC TOleControl.CreateInstance + 0001:00109704 TOleControl.CreateStorage + 0001:001097DC TOleControl.CreateWnd + 0001:0010989C TOleControl.DefaultHandler + 0001:00109954 TOleControl.SuppressException + 0001:0010998C TOleControl.DefineProperties + 0001:00109A38 TOleControl.DestroyControl + 0001:00109AB8 TOleControl.DestroyEnumPropDescs + 0001:00109B24 TOleControl.DestroyStorage + 0001:00109B54 TOleControl.DestroyWindowHandle + 0001:00109BB8 TOleControl.GetEventMethod + 0001:00109C18 TOleControl.GetIDispatchProp + 0001:00109C44 TOleControl.GetIntegerProp + 0001:00109C6C TOleControl.GetMainMenu + 0001:00109CE0 TOleControl.GetWordBoolProp + 0001:00109D0C TOleControl.GetTOleEnumProp + 0001:00109D30 TOleControl.GetOleObject + 0001:00109DAC TOleControl.GetOleVariantProp + 0001:00109DD8 TOleControl.GetProperty + 0001:00109E7C TOleControl.GetStringProp + 0001:00109EE0 TOleControl.GetVariantProp + 0001:00109F04 TOleControl.GetWideStringProp + 0001:00109F38 TOleControl.HookControlWndProc + 0001:00109FF8 CallEventMethod + 0001:0010A038 TOleControl.D2InvokeEvent + 0001:0010A280 TOleControl.InvokeEvent + 0001:0010A368 TOleControl.InitControlInterface + 0001:0010A378 TOleControl.PaletteChanged + 0001:0010A3D8 TOleControl.PictureChanged + 0001:0010A468 TOleControl.ReadData + 0001:0010A534 TOleControl.SetBounds + 0001:0010A5FC TOleControl.SetColorProp + 0001:0010A620 TOleControl.SetIDispatchProp + 0001:0010A650 TOleControl.SetIntegerProp + 0001:0010A680 TOleControl.SetName + 0001:0010A75C TOleControl.SetWordBoolProp + 0001:0010A79C TOleControl.SetOleVariantProp + 0001:0010A7C0 TOleControl.SetParent + 0001:0010A8AC TOleControl.SetTPictureProp + 0001:0010A9AC TOleControl.SetProperty + 0001:0010AA7C TOleControl.SetStringProp + 0001:0010AADC TOleControl.SetUIActive + 0001:0010AB5C TOleControl.SetVariantProp + 0001:0010ABC0 TOleControl.SetWideStringProp + 0001:0010AC08 TOleControl.StandardEvent + 0001:0010AE4C TOleControl.WndProc + 0001:0010AF68 TOleControl.WriteData + 0001:0010B074 TOleControl.WMEraseBkgnd + 0001:0010B0A8 TOleControl.WMPaint + 0001:0010B134 TOleControl.CMDocWindowActivate + 0001:0010B1AC TOleControl.CMColorChanged + 0001:0010B238 TOleControl.CMEnabledChanged + 0001:0010B2CC TOleControl.CMFontChanged + 0001:0010B3D4 TOleControl.CMDialogKey + 0001:0010B498 TOleControl.CMUIActivate + 0001:0010B504 TOleControl.CMUIDeactivate + 0001:0010B570 TOleControl.QueryInterface + 0001:0010B59C TOleControl._AddRef + 0001:0010B5C0 TOleControl._Release + 0001:0010B5E4 TOleControl.SaveObject + 0001:0010B5F8 TOleControl.GetMoniker + 0001:0010B618 TOleControl.GetContainer + 0001:0010B638 TOleControl.ShowObject + 0001:0010B654 TOleControl.OnShowWindow + 0001:0010B668 TOleControl.RequestNewObjectLayout + 0001:0010B724 TOleControl.OnControlInfoChanged + 0001:0010B738 TOleControl.LockInPlaceActive + 0001:0010B74C TOleControl.GetExtendedControl + 0001:0010B76C TOleControl.TransformCoords + 0001:0010B820 TOleControl.OleControlSite_TranslateAccelerator + 0001:0010B834 TOleControl.OnFocus + 0001:0010B848 TOleControl.ShowPropertyFrame + 0001:0010B85C TOleControl.ContextSensitiveHelp + 0001:0010B870 TOleControl.OleInPlaceSite_GetWindow + 0001:0010B8A0 TOleControl.CanInPlaceActivate + 0001:0010B8B4 TOleControl.OnInPlaceActivate + 0001:0010B928 TOleControl.OnUIActivate + 0001:0010B944 TOleControl.GetWindowContext + 0001:0010B9E4 TOleControl.Scroll + 0001:0010B9F8 TOleControl.OnUIDeactivate + 0001:0010BA24 TOleControl.OnInPlaceDeactivate + 0001:0010BA50 TOleControl.DiscardUndoState + 0001:0010BA64 TOleControl.DeactivateAndUndo + 0001:0010BA84 TOleControl.OnPosRectChange + 0001:0010BAC8 TOleControl.GetBorder + 0001:0010BADC TOleControl.RequestBorderSpace + 0001:0010BAF0 TOleControl.SetBorderSpace + 0001:0010BB04 TOleControl.SetActiveObject + 0001:0010BB18 TOleControl.OleInPlaceFrame_GetWindow + 0001:0010BB38 TOleControl.InsertMenus + 0001:0010BB88 TOleControl.SetMenu + 0001:0010BBD4 TOleControl.RemoveMenus + 0001:0010BC04 TOleControl.SetStatusText + 0001:0010BC18 TOleControl.EnableModeless + 0001:0010BC2C TOleControl.OleInPlaceFrame_TranslateAccelerator + 0001:0010BC40 TOleControl.GetTypeInfoCount + 0001:0010BC58 TOleControl.GetTypeInfo + 0001:0010BC74 TOleControl.GetIDsOfNames + 0001:0010BC88 TOleControl.Invoke + 0001:0010BE5C TOleControl.OnChanged + 0001:0010C078 TOleControl.OnRequestEdit + 0001:0010C08C TOleControl.PreMessageFilter + 0001:0010C0A0 TOleControl.PostMessageFilter + 0001:0010C0B4 Finalization + 0001:0010C0F0 OleCtrls + 0001:0010C564 TContextorControl.InitControlData + 0001:0010C580 DoCreate + 0001:0010C604 TContextorControl.CreateControl + 0001:0010C624 TContextorControl.GetControlInterface + 0001:0010C644 TContextorControl.Get_CurrentContext + 0001:0010C6A0 TContextorControl.Run + 0001:0010C704 TContextorControl.Suspend + 0001:0010C754 TContextorControl.Resume + 0001:0010C7A4 TContextorControl.StartContextChange + 0001:0010C7F4 TContextorControl.EndContextChange + 0001:0010C860 TContextorControl.SetSurveyResponse + 0001:0010C8B4 CoContextItemCollection.Create + 0001:0010C918 CoContextItem.Create + 0001:0010C97C Finalization + 0001:0010C9AC VERGENCECONTEXTORLib_TLB + 0001:0010C9C0 Translate + 0001:0010CABC Piece + 0001:0010CC40 Finalization + 0001:0010CC7C MFunStr + 0001:0010D4A4 Encrypt + 0001:0010D55C Finalization + 0001:0010D5A4 Hash + 0001:0010D5AC Iff + 0001:0010D624 ReadRegData + 0001:0010D6F0 WriteRegData + 0001:0010D7C4 DeleteRegData + 0001:0010D880 ReadRegDataDefault + 0001:0010D91C ReadRegValueNames + 0001:0010D9EC Finalization + 0001:0010DA1C Xwbut1 + 0001:0010DA24 WSAGetAsyncError + 0001:0010DA44 accept + 0001:0010DA4C bind + 0001:0010DA54 closesocket + 0001:0010DA5C connect + 0001:0010DA64 getsockname + 0001:0010DA6C htons + 0001:0010DA74 inet_addr + 0001:0010DA7C inet_ntoa + 0001:0010DA84 listen + 0001:0010DA8C ntohs + 0001:0010DA94 recv + 0001:0010DA9C send + 0001:0010DAA4 setsockopt + 0001:0010DAAC socket + 0001:0010DAB4 gethostbyaddr + 0001:0010DABC gethostbyname + 0001:0010DAC4 gethostname + 0001:0010DACC WSAAsyncGetHostByName + 0001:0010DAD4 WSASetBlockingHook + 0001:0010DADC WSAUnhookBlockingHook + 0001:0010DAE4 WSAGetLastError + 0001:0010DAEC WSACancelBlockingCall + 0001:0010DAF4 WSAIsBlocking + 0001:0010DAFC WSAStartup + 0001:0010DB04 WSACleanup + 0001:0010DB0C Finalization + 0001:0010DB3C WinSock + 0001:0010DCF0 Finalization + 0001:0010DD20 fDebugInfo + 0001:0010DD28 Finalization + 0001:0010DD58 Rpcberr + 0001:0010DDE4 LPack + 0001:0010DFB8 SPack + 0001:0010E0F0 TXWBWinsock.BuildApi + 0001:0010E1D4 TXWBWinsock.NetworkConnect + 0001:0010E4A0 TXWBWinsock.NetworkDisconnect + 0001:0010E50C TXWBWinsock.BuildHdr + 0001:0010E5D0 TXWBWinsock.BuildPar + 0001:0010EABC TXWBWinsock.StrPack + 0001:0010EBF0 TXWBWinsock.VarPack + 0001:0010ECB4 NetBlockingHook + 0001:0010ED1C TXWBWinsock.NetCall + 0001:0010F12C TXWBWinsock.tCall + 0001:0010F278 TXWBWinsock.NetStart + 0001:0010F7C8 TXWBWinsock.NetStart1 + 0001:00110128 TXWBWinsock.NetStop + 0001:001103BC TXWBWinsock.GetServerPacket + 0001:0011047C TXWBWinsock.Create + 0001:001104B8 TXWBWinsock.NetError + 0001:0011151C TXWBWinsock.BuildPar1 + 0001:00111A08 Finalization + 0001:00111A44 Wsockc + 0001:00111BF4 RPCBShowErrMsg + 0001:00111C7C TfrmErrMsg.RPCBShowException + 0001:00111CCC Finalization + 0001:00111CFC fRPCBErrMsg + 0001:00111D04 Finalization + 0001:00111D34 CCOW_const + 0001:00111F58 ChooseDiv + 0001:00112158 SelectDivision + 0001:00112364 MultDiv + 0001:00112420 SetDiv + 0001:00112528 TSelDivForm.Enter + 0001:00112558 TSelDivForm.btnOKClick + 0001:0011260C TSelDivForm.btnCancelClick + 0001:00112614 TSelDivForm.btnHelpClick + 0001:001126E0 TSelDivForm.FormCreate + 0001:00112854 Finalization + 0001:00112890 SelDiv + 0001:00113758 TXWBTextAttributes.Create + 0001:001137A0 TXWBTextAttributes.InitFormat + 0001:001137BC TXWBTextAttributes.GetAttributes + 0001:001137FC TXWBTextAttributes.SetAttributes + 0001:00113838 TXWBTextAttributes.GetCharset + 0001:0011384C TXWBTextAttributes.SetCharset + 0001:0011387C TXWBTextAttributes.GetColor + 0001:0011389C TXWBTextAttributes.SetColor + 0001:001138E4 TXWBTextAttributes.GetName + 0001:00113908 TXWBTextAttributes.SetName + 0001:00113978 TXWBTextAttributes.GetStyle + 0001:001139C8 TXWBTextAttributes.SetStyle + 0001:00113A20 TXWBTextAttributes.GetSize + 0001:00113A3C TXWBTextAttributes.SetSize + 0001:00113A74 TXWBTextAttributes.GetPitch + 0001:00113AA4 TXWBTextAttributes.SetPitch + 0001:00113AE4 TXWBTextAttributes.Assign + 0001:00113C10 TXWBTextAttributes.AssignTo + 0001:00113D40 TParaAttributes.Create + 0001:00113D7C TParaAttributes.InitPara + 0001:00113D98 TParaAttributes.GetAttributes + 0001:00113DCC TParaAttributes.SetAttributes + 0001:00113E30 TParaAttributes.GetAlignment + 0001:00113E4C TParaAttributes.SetAlignment + 0001:00113E88 TParaAttributes.GetNumbering + 0001:00113EA0 TParaAttributes.SetNumbering + 0001:00113F04 TParaAttributes.GetFirstIndent + 0001:00113F24 TParaAttributes.SetFirstIndent + 0001:00113F60 TParaAttributes.GetLeftIndent + 0001:00113F80 TParaAttributes.SetLeftIndent + 0001:00113FBC TParaAttributes.GetRightIndent + 0001:00113FDC TParaAttributes.SetRightIndent + 0001:00114018 TParaAttributes.GetTab + 0001:00114040 TParaAttributes.SetTab + 0001:00114094 TParaAttributes.Assign + 0001:00114130 TConversion.ConvertReadStream + 0001:00114144 TConversion.ConvertWriteStream + 0001:00114264 TRichEditStrings.Destroy + 0001:00114294 TRichEditStrings.AddStrings + 0001:0011430C TRichEditStrings.GetCount + 0001:00114364 TRichEditStrings.Get + 0001:001143B8 TRichEditStrings.Put + 0001:00114444 TRichEditStrings.Insert + 0001:00114588 TRichEditStrings.Delete + 0001:00114634 TRichEditStrings.Clear + 0001:00114644 TRichEditStrings.SetUpdateState + 0001:00114694 TRichEditStrings.EnableChange + 0001:001146F0 TRichEditStrings.SetTextStr + 0001:00114740 AdjustLineBreaks + 0001:00114774 StreamSave + 0001:001147D4 StreamLoad + 0001:001148C8 TRichEditStrings.LoadFromStream + 0001:00114A2C TRichEditStrings.SaveToStream + 0001:00114B3C TRichEditStrings.LoadFromFile + 0001:00114C44 TRichEditStrings.SaveToFile + 0001:00114D38 TXWBCustomRichEdit.Create + 0001:00114E5C TXWBCustomRichEdit.Destroy + 0001:00114EB8 TXWBCustomRichEdit.Clear + 0001:00114ED0 TXWBCustomRichEdit.CreateParams + 0001:00114F5C TXWBCustomRichEdit.CreateWnd + 0001:001150A4 TXWBCustomRichEdit.DestroyWnd + 0001:00115170 TXWBCustomRichEdit.WMNCDestroy + 0001:00115178 TXWBCustomRichEdit.WMSetFont + 0001:00115188 TXWBCustomRichEdit.WMRButtonUp + 0001:001151E0 TXWBCustomRichEdit.CMFontChanged + 0001:001151F0 TXWBCustomRichEdit.DoSetMaxLength + 0001:00115210 TXWBCustomRichEdit.GetCaretPos + 0001:00115270 TXWBCustomRichEdit.GetSelLength + 0001:00115298 TXWBCustomRichEdit.GetSelStart + 0001:001152BC TXWBCustomRichEdit.GetSelTextBuf + 0001:00115330 TXWBCustomRichEdit.GetSelText + 0001:00115374 TXWBCustomRichEdit.CMBiDiModeChanged + 0001:001153CC TXWBCustomRichEdit.SetHideScrollBars + 0001:001153E0 TXWBCustomRichEdit.SetHideSelection + 0001:00115410 TXWBCustomRichEdit.SetURLDetect + 0001:00115424 TXWBCustomRichEdit.SetSelLength + 0001:00115480 TXWBCustomRichEdit.GetPlainText + 0001:0011548C TXWBCustomRichEdit.SetPlainText + 0001:00115498 TXWBCustomRichEdit.CMColorChanged + 0001:001154C4 TXWBCustomRichEdit.SetRichEditStrings + 0001:001154D4 TXWBCustomRichEdit.SetSelStart + 0001:001154FC TXWBCustomRichEdit.Print + 0001:001156D4 TXWBCustomRichEdit.WMPaint + 0001:00115798 TXWBCustomRichEdit.WMSetCursor + 0001:00115828 TXWBCustomRichEdit.CNNotify + 0001:00115984 TXWBCustomRichEdit.SaveClipboard + 0001:001159B4 TXWBCustomRichEdit.ProtectChange + 0001:001159E4 TXWBCustomRichEdit.SelectionChange + 0001:00115A04 TXWBCustomRichEdit.RequestSize + 0001:00115A24 Finalization + 0001:00115A74 XWBRich20 + 0001:00115C6C TfrmSignonMsg.Panel2Resize + 0001:00115C90 TfrmSignonMsg.BitBtn1Click + 0001:00115C98 Finalization + 0001:00115CC8 frmSignonMessage + 0001:00115E84 Finalization + 0001:00115EB4 fSgnonDlg + 0001:001160B4 Finalization + 0001:001160E4 AddServer + 0001:0011627C libOpen + 0001:001162E0 libClose + 0001:00116300 libGetHostIP1 + 0001:001164F8 TRPCFRM1.WndProc + 0001:00116524 TRPCFRM1.XWBGHIP + 0001:001166CC Finalization + 0001:00116714 RpcNet + 0001:001169D4 IsIPAddress + 0001:00116A4C GetServerIP + 0001:00116B10 TrpcConfig.cboServerClick + 0001:00116C18 TrpcConfig.FormCreate + 0001:00116CFC TrpcConfig.FormClose + 0001:00116D3C GetServerInfo + 0001:001170FC TrpcConfig.butOkClick + 0001:001171B4 TrpcConfig.butCancelClick + 0001:00117240 TrpcConfig.FormDestroy + 0001:00117278 TrpcConfig.cboServerExit + 0001:0011727C TrpcConfig.NewClick + 0001:00117428 Finalization + 0001:0011746C Rpcconf1 + 0001:001177B8 TVCEdit.Create + 0001:001177F4 TVCEdit.Destroy + 0001:0011781C TVCEdit.ChangeVCKnowOldVC + 0001:00117880 TVCEdit.ChangeVC + 0001:001179A4 TVCEdit.NoChange + 0001:00117A48 TfrmVCEdit.btnOKClick + 0001:00117E44 TfrmVCEdit.btnHelpClick + 0001:00117F70 TfrmVCEdit.edtNewVCExit + 0001:00117F9C TfrmVCEdit.edtOldVCChange + 0001:0011802C Finalization + 0001:0011805C VCEdit + 0001:00118454 TfrmSignonConfig.Button1Click + 0001:00118460 TfrmSignonConfig.OKBtnClick + 0001:00118464 TSignonConfiguration.ReadRegistrySettings + 0001:00118760 StoreFontStyle + 0001:001187EC TfrmSignonConfig.FormShow + 0001:001187F0 RestoreFontStyles + 0001:001188E4 TfrmSignonConfig.rgrIntroBackClrClick + 0001:001188F0 TSignonConfiguration.ShowModal + 0001:00118B38 TSignonConfiguration.IntroBackColor + 0001:00118C00 TSignonConfiguration.FontDialog + 0001:00118EA8 TSignonConfiguration.ResetToDefaults + 0001:00119078 TSignonConfiguration.UserClickedOK + 0001:001194B4 TSignonConfiguration.Create + 0001:00119520 TSignonConfiguration.UpdateWindow + 0001:00119628 TSignonValues.Clear + 0001:001196A8 TSignonValues.Create + 0001:001196EC TSignonValues.Destroy + 0001:0011971C TSignonValues.SetSize + 0001:001197D0 TSignonValues.SetPosition + 0001:00119884 TSignonValues.SetIntroFont + 0001:00119924 TSignonValues.SetIntroFontStyles + 0001:00119964 TSignonValues.SetEqual + 0001:00119A20 TSignonValues.SetFont + 0001:00119AC0 TSignonValues.SetTextColor + 0001:00119ACC Finalization + 0001:00119B10 Sgnoncnf + 0001:00119EBC PrepareSignonForm + 0001:00119EC4 SetUpSignOn + 0001:0011A0FC TfrmSignon.btnOkClick + 0001:0011A4EC TfrmSignon.btnCancelClick + 0001:0011A538 TfrmSignon.FormShow + 0001:0011A6DC TfrmSignon.FormCreate + 0001:0011AC28 TfrmSignon.WMSysCommand + 0001:0011ADB8 TfrmSignon.FormClose + 0001:0011AF78 TfrmSignon.introTextURLClick + 0001:0011AFE4 TfrmSignon.DoVerify + 0001:0011B08C Finalization + 0001:0011B0BC Loginfrm + 0001:0011B0C4 ValidAVCodes + 0001:0011B2E0 ValidAppHandle + 0001:0011B4C4 ValidNTToken + 0001:0011B4C8 SilentLogIn + 0001:0011B748 GetUserInfo + 0001:0011B918 Finalization + 0001:0011B948 RpcSLogin + 0001:0011C26C TMult.Create + 0001:0011C2B0 TMult.Destroy + 0001:0011C2EC TMult.Assign + 0001:0011C44C TMult.ClearAll + 0001:0011C490 TMult.GetCount + 0001:0011C4AC TMult.GetFirst + 0001:0011C4D8 TMult.GetLast + 0001:0011C510 TMult.GetFMultiple + 0001:0011C758 TMult.SetFMultiple + 0001:0011C800 TMult.Order + 0001:0011C898 TMult.Position + 0001:0011C8A4 TMult.Subscript + 0001:0011C8D8 TParamRecord.Create + 0001:0011C948 TParamRecord.Destroy + 0001:0011C97C TParams.Create + 0001:0011C9C0 TParams.Destroy + 0001:0011C9FC TParams.Assign + 0001:0011CA90 TParams.Clear + 0001:0011CAE0 TParams.GetCount + 0001:0011CAFC TParams.GetParameter + 0001:0011CB60 TRPCBroker.Create + 0001:0011CE24 TRPCBroker.Destroy + 0001:0011CEBC TRPCBroker.CreateContext + 0001:0011D130 TRPCBroker.Loaded + 0001:0011D138 TRPCBroker.Call + 0001:0011D1B0 TRPCBroker.lstCall + 0001:0011D1D0 TRPCBroker.strCall + 0001:0011D1F0 TRPCBroker.SetConnected + 0001:0011D734 TRPCBroker.SetClearParameters + 0001:0011D754 TRPCBroker.SetClearResults + 0001:0011D774 TRPCBroker.SetResults + 0001:0011D784 TRPCBroker.SetRPCTimeLimit + 0001:0011D7AC TRPCBroker.SetServer + 0001:0011D800 TRPCBroker.pchCall + 0001:0011DB5C StoreConnection + 0001:0011DCCC RemoveConnection + 0001:0011DDB4 ExistingSocket + 0001:0011DDBC AuthenticateUser + 0001:0011E210 GetBrokerInfo + 0001:0011E378 NoSignOnNeeded + 0001:0011E37C ProcessExecute + 0001:0011E43C GetAppHandle + 0001:0011E488 TRPCBroker.DoPulseOnTimer + 0001:0011E654 TRPCBroker.SetKernelLogIn + 0001:0011E65C TRPCBroker.SetUser + 0001:0011E664 TVistaLogin.Create + 0001:0011E6A8 TVistaLogin.Destroy + 0001:0011E6DC TVistaLogin.FailedLogin + 0001:0011E704 TVistaLogin.SetAccessCode + 0001:0011E718 TVistaLogin.SetDivision + 0001:0011E72C TVistaLogin.SetDuz + 0001:0011E740 TVistaLogin.SetErrorText + 0001:0011E754 TVistaLogin.SetLogInHandle + 0001:0011E768 TVistaLogin.SetMode + 0001:0011E76C TVistaLogin.SetMultiDivision + 0001:0011E770 TVistaLogin.SetPromptDiv + 0001:0011E774 TVistaLogin.SetVerifyCode + 0001:0011E788 TVistaUser.SetDivision + 0001:0011E79C TVistaUser.SetDTime + 0001:0011E7B0 TVistaUser.SetDUZ + 0001:0011E7C4 TVistaUser.SetLanguage + 0001:0011E7D8 TVistaUser.SetName + 0001:0011E7EC TVistaUser.SetServiceSection + 0001:0011E800 TVistaUser.SetStandardName + 0001:0011E814 TVistaUser.SetTitle + 0001:0011E828 ShowApplicationAndFocusOK + 0001:0011E8F4 Finalization + 0001:0011E938 Trpcb + 0001:0011EABC TCCOWRPCBroker.SetConnected + 0001:0011F294 TCCOWRPCBroker.WasUserDefined + 0001:0011F29C TCCOWRPCBroker.IsUserCleared + 0001:0011F3E0 AuthenticateUser + 0001:0011F8DC TCCOWRPCBroker.GetCCOWHandle + 0001:0011FA24 TCCOWRPCBroker.CCOWsetUser + 0001:0011FDBC TCCOWRPCBroker.GetCCOWtoken + 0001:001200CC TCCOWRPCBroker.IsUserContextPending + 0001:001204E8 Finalization + 0001:0012054C CCOWRPCBroker + 0001:00120554 EnsureBroker + 0001:001205BC SetList + 0001:00120664 SetParams + 0001:00120B4C UpdateContext + 0001:00120C04 IsBaseContext + 0001:00120C28 CallBrokerInContext + 0001:00121200 CallBroker + 0001:00121210 SetBrokerServer + 0001:00121270 AuthorizedOption + 0001:001212B4 ConnectToServer + 0001:00121540 CallV + 0001:00121588 sCallV + 0001:00121614 tCallV + 0001:001216B0 RetainedRPCCount + 0001:001216BC SetRetainedRPCMax + 0001:001216C8 GetRPCMax + 0001:001216D0 LoadRPCData + 0001:00121700 DottedIPStr + 0001:0012176C Finalization + 0001:001217EC ORNet + 0001:00121B80 IndexOfClass + 0001:00121C5C AddToNotifyWhenCreated + 0001:00121C80 ObjectCreated + 0001:00121CE0 TORNotifyList.Create + 0001:00121D34 TORNotifyList.Destroy + 0001:00121D70 TORNotifyList.IndexOf + 0001:00121DDC TORNotifyList.Add + 0001:00121E28 TORNotifyList.Remove + 0001:00121E5C TORNotifyList.Notify + 0001:00121ED4 TORNotifyList.Count + 0001:00121EDC TORNotifyList.Add + 0001:00121F10 TORNotifyList.IndexOf + 0001:00121F64 TORNotifyList.Remove + 0001:00121F8C TORNotifier.Create + 0001:00121FE0 TORNotifier.Destroy + 0001:00122010 TORNotifier.BeginUpdate + 0001:00122014 TORNotifier.EndUpdate + 0001:00122030 TORNotifier.Notify + 0001:0012205C TORNotifier.Notify + 0001:00122084 TORNotifier.NotifyWhenChanged + 0001:001220B4 TORNotifier.NotifyWhenChanged + 0001:001220DC TORNotifier.RemoveNotify + 0001:001220F8 TORNotifier.RemoveNotify + 0001:00122108 TORNotifier.NotifyMethod + 0001:00122114 TORNotifier.GetOnNotify + 0001:00122120 TORNotifier.SetOnNotify + 0001:00122134 TORNotifier.DoNotify + 0001:00122164 TORStringList.Destroy + 0001:00122194 TORStringList.Changed + 0001:00122218 TORStringList.IndexOfPiece + 0001:001222D0 TORStringList.IndexOfPieces + 0001:00122334 TORStringList.IndexOfPieces + 0001:00122348 TORStringList.IndexOfPieces + 0001:00122360 TORStringList.GetNotifier + 0001:0012239C TORStringList.KillObjects + 0001:001223E4 TORStringList.PiecesEqual + 0001:001223FC TORStringList.PiecesEqual + 0001:001224CC TORStringList.SortByPiece + 0001:001224E0 TORStringList.RemoveDuplicates + 0001:001225A8 TORStringList.CaseInsensitiveIndexOfPiece + 0001:00122664 QSort + 0001:00122778 TORStringList.SortByPieces + 0001:001227E4 TORStringList.SetStrPiece + 0001:00122858 TORStringList.SetStrPiece + 0001:0012286C Finalization + 0001:001228A8 ORClasses + 0001:00122A98 MakeConsultDisplayText + 0001:00122B7C MakeNoteDisplayText + 0001:00122DA4 TNoteTitles.Create + 0001:00122DE8 TNoteTitles.Destroy + 0001:00122E18 Finalization + 0001:00122E48 uTIU + 0001:0012303C TSizeRatio.Create + 0001:001230B0 TfrmAutoSz.Loaded + 0001:001231C8 TfrmAutoSz.FormResize + 0001:00123300 TfrmAutoSz.FormDestroy + 0001:00123340 Finalization + 0001:00123370 fAutoSz + 0001:00123378 Finalization + 0001:001233A8 Tabs + 0001:001237F8 TCustomApplicationEvents.Create + 0001:00123858 TCustomApplicationEvents.DoActionExecute + 0001:00123888 TCustomApplicationEvents.DoActionUpdate + 0001:001238B8 TCustomApplicationEvents.DoActivate + 0001:001238E0 TCustomApplicationEvents.DoDeactivate + 0001:00123908 TCustomApplicationEvents.DoException + 0001:00123948 TCustomApplicationEvents.DoHelp + 0001:0012398C TCustomApplicationEvents.DoHint + 0001:00123A14 TCustomApplicationEvents.DoIdle + 0001:00123A44 TCustomApplicationEvents.DoMessage + 0001:00123A74 TCustomApplicationEvents.DoMinimize + 0001:00123A9C TCustomApplicationEvents.DoRestore + 0001:00123AD0 TCustomApplicationEvents.DoShortcut + 0001:00123B08 TCustomApplicationEvents.DoShowHint + 0001:00123B48 TCustomApplicationEvents.DoSettingChange + 0001:00123B8C TCustomApplicationEvents.DoModalBegin + 0001:00123BC0 TCustomApplicationEvents.DoModalEnd + 0001:00123BF4 TMultiCaster.AddAppEvent + 0001:00123C24 TMultiCaster.BeginDispatch + 0001:00123C34 TMultiCaster.Create + 0001:00123E30 TMultiCaster.Destroy + 0001:00123FC4 TMultiCaster.DoActionExecute + 0001:00124044 TMultiCaster.DoActionUpdate + 0001:001240C4 TMultiCaster.DoActivate + 0001:00124140 TMultiCaster.DoDeactivate + 0001:001241BC TMultiCaster.DoException + 0001:0012427C TMultiCaster.DoHelp + 0001:00124320 TMultiCaster.DoHint + 0001:0012439C TMultiCaster.DoIdle + 0001:0012441C TMultiCaster.DoMessage + 0001:0012449C TMultiCaster.DoMinimize + 0001:00124518 TMultiCaster.DoRestore + 0001:00124594 TMultiCaster.DoShortcut + 0001:00124614 TMultiCaster.DoShowHint + 0001:0012469C TMultiCaster.DoSettingChange + 0001:00124728 TMultiCaster.EndDispatch + 0001:001247A4 TMultiCaster.GetAppEvents + 0001:001247C8 TMultiCaster.GetCount + 0001:001247E4 TMultiCaster.DoModalBegin + 0001:00124860 TMultiCaster.DoModalEnd + 0001:001248DC Finalization + 0001:0012490C AppEvnts + 0001:00124B5C ShowPatientSelectMessages + 0001:00124C18 HidePatientSelectMessages + 0001:00124C34 TfrmPtSelMsg.timCloseTimer + 0001:00124D04 TfrmPtSelMsg.cmdCloseClick + 0001:00124D0C TfrmPtSelMsg.FormClose + 0001:00124D10 TfrmPtSelMsg.FormCreate + 0001:00124D9C TfrmPtSelMsg.FormDestroy + 0001:00124DAC TfrmPtSelMsg.ActiveFormChanged + 0001:00124E3C TfrmPtSelMsg.ClearEvents + 0001:00124E90 TfrmPtSelMsg.TabChanged + 0001:00124EB4 Finalization + 0001:00124EE4 fPtSelMsg + 0001:0012561C TCalendar.Create + 0001:001256CC TCalendar.Change + 0001:001256EC TCalendar.Click + 0001:00125760 TCalendar.IsLeapYear + 0001:0012579C TCalendar.DaysPerMonth + 0001:001257CC TCalendar.DaysThisMonth + 0001:001257F8 TCalendar.DrawCell + 0001:001258A8 TCalendar.GetCellText + 0001:00125918 TCalendar.SelectCell + 0001:00125994 TCalendar.SetCalendarDate + 0001:001259C8 TCalendar.GetDateElement + 0001:00125A14 TCalendar.SetDateElement + 0001:00125ACC TCalendar.SetStartOfWeek + 0001:00125AEC TCalendar.SetUseCurrentDate + 0001:00125B1C TCalendar.ChangeMonth + 0001:00125C10 TCalendar.PrevMonth + 0001:00125C1C TCalendar.NextMonth + 0001:00125C28 TCalendar.UpdateCalendar + 0001:00125D24 TCalendar.WMSize + 0001:00125D68 Finalization + 0001:00125D98 Calendar + 0001:00125F20 TORCalendar.DrawCell + 0001:0012607C TORCalendar.KeyDown + 0001:001260EC Finalization + 0001:0012611C ORDtTmCal + 0001:00126D60 ActiveBroker + 0001:00126D8C ServerFMNow + 0001:00126E30 ServerNow + 0001:00126E68 ServerToday + 0001:00126EB0 ServerParseFMDate + 0001:00126F58 RelativeDateTime + 0001:001270C0 TORfrmDtTm.FormCreate + 0001:00127100 TORfrmDtTm.calSelectChange + 0001:00127198 TORfrmDtTm.imgPrevMonthMouseDown + 0001:001271C0 TORfrmDtTm.imgNextMonthMouseDown + 0001:001271E8 TORfrmDtTm.imgPrevMonthClick + 0001:00127208 TORfrmDtTm.imgNextMonthClick + 0001:00127228 TORfrmDtTm.imgPrevMonthMouseUp + 0001:00127250 TORfrmDtTm.imgNextMonthMouseUp + 0001:00127278 TORfrmDtTm.cmdTodayClick + 0001:001272DC TORfrmDtTm.txtTimeChange + 0001:0012732C TORfrmDtTm.lstHourClick + 0001:00127370 TORfrmDtTm.lstMinuteClick + 0001:00127454 TORfrmDtTm.cmdNowClick + 0001:001274F4 TORfrmDtTm.cmdMidnightClick + 0001:00127528 TORfrmDtTm.cmdOKClick + 0001:001276FC TORfrmDtTm.cmdCancelClick + 0001:0012771C TORDateTimeDlg.Create + 0001:00127788 TORDateTimeDlg.Execute + 0001:00127A50 TORDateTimeDlg.GetFMDateTime + 0001:00127A74 TORDateTimeDlg.SetDateOnly + 0001:00127AB0 TORDateTimeDlg.SetFMDateTime + 0001:00127AE0 TORDateTimeDlg.SetRequireTime + 0001:00127B0C TORDateEdit.CreateParams + 0001:00127B3C TORDateBox.Create + 0001:00127C74 TORDateBox.WMSize + 0001:00127D00 TORDateBox.SetTemplateField + 0001:00127DC4 TORDateBox.ButtonClick + 0001:00127F3C TORDateBox.Change + 0001:00127F58 TORDateBox.KeyDown + 0001:00127FA0 TORDateBox.GetFMDateTime + 0001:00128034 TORDateBox.GetRelativeTime + 0001:00128158 TORDateBox.SetDateOnly + 0001:00128204 TORDateBox.SetFMDateTime + 0001:00128230 TORDateBox.SetRequireTime + 0001:001282BC TORDateBox.SetEditRect + 0001:00128324 TORDateBox.UpdateText + 0001:00128434 TORDateBox.Validate + 0001:00128598 TORDateBox.IsValid + 0001:00128620 TORDateBox.SetCaption + 0001:001286C8 TORDateBox.GetCaption + 0001:001286EC IsLeapYear + 0001:00128738 DaysPerMonth + 0001:00128908 TORDateComboEdit.SetTemplateField + 0001:00128950 TORDateCombo.Create + 0001:001289F0 TORDateCombo.Destroy + 0001:00128A6C TORDateCombo.GetYearSize + 0001:00128AA8 TORDateCombo.InitDays + 0001:00128C38 TORDateCombo.InitMonths + 0001:00128D80 TORDateCombo.Rebuild + 0001:0012942C TORDateCombo.SetDay + 0001:001294E8 TORDateCombo.SetIncludeBtn + 0001:0012951C TORDateCombo.SetIncludeDay + 0001:00129578 TORDateCombo.SetIncludeMonth + 0001:001295D0 TORDateCombo.SetMonth + 0001:00129658 TORDateCombo.SetLongMonths + 0001:0012968C TORDateCombo.SetYear + 0001:00129820 TORDateCombo.DayChanged + 0001:00129870 TORDateCombo.MonthChanged + 0001:001298C8 TORDateCombo.YearChanged + 0001:001299FC TORDateCombo.CheckDays + 0001:00129AE0 TORDateCombo.Loaded + 0001:00129B08 TORDateCombo.Paint + 0001:00129B30 TORDateCombo.BtnClicked + 0001:00129CEC TORDateCombo.YearUDChange + 0001:00129E80 TORDateCombo.YearKeyPress + 0001:00129F70 TORDateCombo.GetFMDate + 0001:00129FCC TORDateCombo.SetFMDate + 0001:0012A0C4 TORDateCombo.DoChange + 0001:0012A0F0 TORDateCombo.Resized + 0001:0012A108 TORDateCombo.CMFontChanged + 0001:0012A12C TORDateCombo.Text + 0001:0012A2E8 TORDateCombo.SetTemplateField + 0001:0012A31C Finalization + 0001:0012A34C ORDtTm + 0001:0012A7FC TORDateRangeDlg.Create + 0001:0012A8C8 TORDateRangeDlg.Execute + 0001:0012AB40 TORDateRangeDlg.SetDateOnly + 0001:0012ABC8 TORDateRangeDlg.SetRequireTime + 0001:0012AC28 TORDateRangeDlg.SetFMDateStart + 0001:0012AC8C TORDateRangeDlg.SetFMDateStop + 0001:0012ACF0 TORDateRangeDlg.SetTextOfStart + 0001:0012AD0C TORDateRangeDlg.SetTextOfStop + 0001:0012AD28 TORfrmDateRange.cmdOKClick + 0001:0012ADF4 TORfrmDateRange.cmdCancelClick + 0001:0012AE00 TORfrmDateRange.FormCreate + 0001:0012AEA0 TORfrmDateRange.FormDestroy + 0001:0012AEBC Finalization + 0001:0012AEEC ORDtTmRng + 0001:0012B40C TBltBitmap.MakeLike + 0001:0012B490 SolveForX + 0001:0012B4C8 SolveForY + 0001:0012B500 TGauge.Create + 0001:0012B5A0 TGauge.GetPercentDone + 0001:0012B5C4 TGauge.Paint + 0001:0012B76C TGauge.PaintBackground + 0001:0012B7C0 TGauge.PaintAsText + 0001:0012B920 TGauge.PaintAsNothing + 0001:0012B960 TGauge.PaintAsBar + 0001:0012BA60 TGauge.PaintAsPie + 0001:0012BBB8 TGauge.PaintAsNeedle + 0001:0012BD44 TGauge.SetGaugeKind + 0001:0012BD58 TGauge.SetShowText + 0001:0012BD6C TGauge.SetBorderStyle + 0001:0012BD80 TGauge.SetForeColor + 0001:0012BD94 TGauge.SetBackColor + 0001:0012BDA8 TGauge.SetMinValue + 0001:0012BE58 TGauge.SetMaxValue + 0001:0012BF08 TGauge.SetProgress + 0001:0012BF58 Finalization + 0001:0012BF88 Gauges + 0001:0012C1E0 TConsultTitles.Create + 0001:0012C224 TConsultTitles.Destroy + 0001:0012C254 TClinProcTitles.Create + 0001:0012C298 TClinProcTitles.Destroy + 0001:0012C2C8 MakeConsultListItem + 0001:0012C6C8 MakeConsultListDisplayText + 0001:0012C7AC MakeConsultNoteDisplayText + 0001:0012C9E0 BuildServiceTree + 0001:0012CBF0 CreateListItemsForConsultTree + 0001:0012D3BC BuildConsultsTree + 0001:0012D5CC SetNodeImage + 0001:0012D998 Finalization + 0001:0012D9D8 uConsults + 0001:0012DC78 DisableCheck + 0001:0012DC94 TfraVisitRelated.chkClick + 0001:0012E074 TfraVisitRelated.Create + 0001:0012E0CC TfraVisitRelated.GetCheckState + 0001:0012E118 TfraVisitRelated.GetRelated + 0001:0012E1E8 TfraVisitRelated.GetRelated + 0001:0012E2A0 TfraVisitRelated.InitAllow + 0001:0012E36C TfraVisitRelated.InitRelated + 0001:0012E418 TfraVisitRelated.InitRelated + 0001:0012E4C4 TfraVisitRelated.SetCheckEnable + 0001:0012E4EC TfraVisitRelated.SetCheckState + 0001:0012E570 Finalization + 0001:0012E5A0 mVisitRelated + 0001:0012E7CC TfrmPCEBaseGrid.FormCreate + 0001:0012E810 TfrmPCEBaseGrid.SyncGridHeader + 0001:0012EA70 TfrmPCEBaseGrid.hcGridSectionResize + 0001:0012EA78 TfrmPCEBaseGrid.pnlGridResize + 0001:0012EA80 TfrmPCEBaseGrid.SyncGridData + 0001:0012ED38 TfrmPCEBaseGrid.GetGridIndex + 0001:0012ED90 TfrmPCEBaseGrid.SetGridIndex + 0001:0012EDD8 TfrmPCEBaseGrid.ClearGrid + 0001:0012EE2C TfrmPCEBaseGrid.UpdateControls + 0001:0012EE30 TfrmPCEBaseGrid.RestoreGridSelected + 0001:0012EED8 TfrmPCEBaseGrid.SaveGridSelected + 0001:0012EF6C Finalization + 0001:0012EF9C fPCEBaseGrid + 0001:0012EFA4 Finalization + 0001:0012EFD4 UBAConst + 0001:0012EFDC GetLastVital + 0001:0012F070 VerifyVital + 0001:0012F16C ValAndStoreVitals + 0001:0012F310 GetVitalFromNoteIEN + 0001:0012F3C8 GetVitalsFromEncDateTime + 0001:0012F484 Finalization + 0001:0012F4C0 rVitals + 0001:0012F4C8 Finalization + 0001:0012F4F8 mVitBase + 0001:0012F500 Finalization + 0001:0012F530 mVitMetric + 0001:0012F734 TfrmVitalsDate.btnNowClick + 0001:0012F754 TfrmVitalsDate.FormCreate + 0001:0012F75C Finalization + 0001:0012F78C fVitalsDate + 0001:0012FA5C CloseVitalsDLL + 0001:0012FA9C VitalErrorText + 0001:0012FB4C InitPainCombo + 0001:0012FCFC ConvertVital + 0001:0012FF44 GetVitalStr + 0001:0013004C GetVitalUser + 0001:001300A0 AddVital + 0001:0013012C AssignVitals2List + 0001:00130304 VitalInvalid + 0001:00130454 VitalControlTag + 0001:0013048C ConvertHeight2Inches + 0001:0013066C FormatVitalForNote + 0001:001307F4 ConvertVitalData + 0001:00130C68 ValidVitalsDate + 0001:00130F04 IsNumericWeight + 0001:00130F38 Finalization + 0001:00130FC8 uVitals + 0001:001331E4 TSeriesPointer.Create + 0001:00133270 TSeriesPointer.Destroy + 0001:001332A8 TSeriesPointer.SetIntegerProperty + 0001:001332B4 TSeriesPointer.SetBooleanProperty + 0001:001332C0 TSeriesPointer.CheckPointerSize + 0001:00133318 TSeriesPointer.SetHorizSize + 0001:00133338 TSeriesPointer.SetInflateMargins + 0001:00133344 TSeriesPointer.SetVertSize + 0001:00133364 TSeriesPointer.SetPen + 0001:00133370 TSeriesPointer.SetBrush + 0001:0013337C TSeriesPointer.SetDark3D + 0001:00133388 TSeriesPointer.SetDraw3D + 0001:00133394 TSeriesPointer.CalcHorizMargins + 0001:001333C8 TSeriesPointer.CalcVerticalMargins + 0001:001333FC TSeriesPointer.SetVisible + 0001:00133408 TSeriesPointer.SetStyle + 0001:0013341C TSeriesPointer.PrepareCanvas + 0001:00133484 DrawDiagonalCross + 0001:00133560 DrawCross + 0001:00133618 DoTriangle3D + 0001:001336EC TSeriesPointer.DrawPointer + 0001:00133B24 TSeriesPointer.Draw + 0001:00133B50 TSeriesPointer.Assign + 0001:00133BBC TSeriesPointer.DrawLegendShape + 0001:00133C68 TCustomSeries.Create + 0001:00133CF4 TCustomSeries.Destroy + 0001:00133D3C TCustomSeries.DrawMark + 0001:00133D70 TCustomSeries.ClickedPointer + 0001:00133DA8 TCustomSeries.Assign + 0001:00133E80 PointInVertLine + 0001:00133E98 PointInHorizLine + 0001:00133EB0 CheckPointInLine + 0001:00134050 TCustomSeries.Clicked + 0001:00134298 TCustomSeries.SetDrawArea + 0001:001342A8 TCustomSeries.SetPointer + 0001:001342B8 TCustomSeries.SetAreaLinesPen + 0001:001342C4 TCustomSeries.SetLinePen + 0001:001342D0 TCustomSeries.SetLineHeight + 0001:001342E0 TCustomSeries.SetStairs + 0001:001342F0 TCustomSeries.SetInvertedStairs + 0001:00134300 TCustomSeries.SetAreaColor + 0001:00134310 TCustomSeries.SetBrushProperty + 0001:0013431C TCustomSeries.SetAreaBrush + 0001:0013432C TCustomSeries.SetLineBrush + 0001:0013433C DrawLine + 0001:001343B8 TCustomSeries.DrawLegendShape + 0001:0013446C TCustomSeries.LinePrepareCanvas + 0001:001344CC TCustomSeries.GetAreaBrushColor + 0001:001344E8 CalcYPosLeftRight + 0001:00134598 InternalDrawArea + 0001:001347E0 DrawPoint + 0001:00134D84 TCustomSeries.DrawValue + 0001:0013506C TCustomSeries.DrawPointer + 0001:001350CC TCustomSeries.GetEditorClass + 0001:001350FC TCustomSeries.CalcHorizMargins + 0001:00135164 TCustomSeries.CalcVerticalMargins + 0001:001351E4 TCustomSeries.GetOriginPos + 0001:001351F0 TCustomSeries.SetDark3D + 0001:00135200 TLineSeries.Create + 0001:00135250 TLineSeries.PrepareLegendCanvas + 0001:0013527C TLineSeries.Assign + 0001:001352C0 TPointSeries.Create + 0001:0013531C TPointSeries.Assign + 0001:0013534C TPointSeries.GetEditorClass + 0001:00135380 TPointSeries.PrepareForGallery + 0001:001353D8 TPointSeries.SetColorEachPoint + 0001:00135404 TAreaSeries.Create + 0001:0013545C TAreaSeries.PrepareLegendCanvas + 0001:001354A8 TAreaSeries.Assign + 0001:00135508 TAreaSeries.CalcZOrder + 0001:00135528 TAreaSeries.GetEditorClass + 0001:00135558 SetOtherMultiArea + 0001:001355C4 TAreaSeries.SetMultiArea + 0001:001355F4 TAreaSeries.InternalCalcStackedYPos + 0001:00135690 TAreaSeries.GetOriginPos + 0001:001356AC TAreaSeries.MaxYValue + 0001:0013573C TAreaSeries.MinYValue + 0001:00135764 TAreaSeries.CalcYPos + 0001:0013579C TCustomBarSeries.Create + 0001:00135874 TCustomBarSeries.Destroy + 0001:001358C0 TCustomBarSeries.CalcZOrder + 0001:00135954 TCustomBarSeries.NumSampleValues + 0001:0013595C TCustomBarSeries.SetBarWidthPercent + 0001:001359CC TCustomBarSeries.SetOffsetPercent + 0001:00135A3C TCustomBarSeries.SetCustomBarSize + 0001:00135A4C TCustomBarSeries.SetBarStyle + 0001:00135A60 TCustomBarSeries.BarOrderPos + 0001:00135AC4 TCustomBarSeries.InternalClicked + 0001:00135AC8 TCustomBarSeries.CalcBarWidth + 0001:00135C50 TCustomBarSeries.CalcMarkLength + 0001:00135CB4 TCustomBarSeries.SetUseOrigin + 0001:00135CC4 TCustomBarSeries.SetSideMargins + 0001:00135D38 TCustomBarSeries.SetDark3d + 0001:00135D48 TCustomBarSeries.PrepareForGallery + 0001:00135D6C TCustomBarSeries.SetOrigin + 0001:00135D84 TCustomBarSeries.BarSeriesCount + 0001:00135DEC TCustomBarSeries.Clicked + 0001:00135E94 TCustomBarSeries.SetOtherMultiBar + 0001:00135EE8 TCustomBarSeries.SetMultiBar + 0001:00135F0C TCustomBarSeries.InternalGetOriginPos + 0001:00135FBC TCustomBarSeries.PointOrigin + 0001:00136000 TCustomBarSeries.DrawLegendShape + 0001:00136048 TCustomBarSeries.PrepareLegendCanvas + 0001:001360A4 TCustomBarSeries.SetPenBrushBar + 0001:0013612C TCustomBarSeries.BarRectangle + 0001:00136228 TCustomBarSeries.SetBarPen + 0001:00136234 TCustomBarSeries.GetBarStyle + 0001:00136264 TCustomBarSeries.SetBarBrush + 0001:00136270 TCustomBarSeries.GetEditorClass + 0001:001362A0 TCustomBarSeries.BarMargin + 0001:001362C0 TCustomBarSeries.ApplyBarOffset + 0001:00136304 TCustomBarSeries.SetAutoMarkPosition + 0001:00136314 TCustomBarSeries.SetAutoBarSize + 0001:00136324 TCustomBarSeries.Assign + 0001:001363F8 TCustomBarSeries.AdjustGradientRectPen + 0001:00136424 TCustomBarSeries.MaxMandatoryValue + 0001:001364E4 TCustomBarSeries.MinMandatoryValue + 0001:00136540 TCustomBarSeries.InternalApplyBarMargin + 0001:00136560 TBarSeries.CalcXPos + 0001:001365E4 TBarSeries.MaxYValue + 0001:00136610 TBarSeries.MinYValue + 0001:00136638 TBarSeries.CalcHorizMargins + 0001:0013665C TBarSeries.CalcVerticalMargins + 0001:001366E4 TBarSeries.InternalCalcMarkLength + 0001:001366F4 TBarSeries.DrawMark + 0001:00136764 TBarSeries.DrawBar + 0001:00136BE4 TBarSeries.DrawValue + 0001:00136C78 TBarSeries.CalcYPos + 0001:00136D28 TBarSeries.GetOriginPos + 0001:00136D38 TBarSeries.InternalClicked + 0001:00136E40 TBarSeries.DrawValuesForward + 0001:00136E4C TBarSeries.DrawSeriesForward + 0001:00136E6C THorizBarSeries.MandatoryValueList + 0001:00136E74 THorizBarSeries.CalcHorizMargins + 0001:00136EEC THorizBarSeries.CalcVerticalMargins + 0001:00136F10 THorizBarSeries.CalcXPos + 0001:00136FC0 THorizBarSeries.GetOriginPos + 0001:00136FD0 THorizBarSeries.CalcYPos + 0001:00137048 THorizBarSeries.InternalClicked + 0001:0013715C THorizBarSeries.MaxXValue + 0001:00137188 THorizBarSeries.MinXValue + 0001:001371B0 THorizBarSeries.InternalCalcMarkLength + 0001:0013721C THorizBarSeries.DrawMark + 0001:001372AC THorizBarSeries.DrawBar + 0001:0013774C THorizBarSeries.DrawValue + 0001:001377E0 THorizBarSeries.FillSampleValues + 0001:00137910 THorizBarSeries.DrawValuesForward + 0001:0013791C THorizBarSeries.DrawSeriesForward + 0001:0013793C TCircledSeries.Create + 0001:00137998 TCircledSeries.Destroy + 0001:001379CC TCircledSeries.SetCircled + 0001:00137A38 TCircledSeries.SetRotationAngle + 0001:00137AF0 TCircledSeries.SetOtherCustomRadius + 0001:00137B68 TCircledSeries.UseAxis + 0001:00137B6C TCircledSeries.SetCustomXRadius + 0001:00137B90 TCircledSeries.SetCustomYRadius + 0001:00137BB4 AllCircled + 0001:00137C08 TCircledSeries.SetParentProperties + 0001:00137D24 TCircledSeries.SetParentChart + 0001:00137D60 TCircledSeries.AssociatedToAxis + 0001:00137D64 TCircledSeries.AdjustCircleRect + 0001:00137DE0 CalcCircledRatio + 0001:00137F20 AdjustCircleMarks + 0001:00137FE0 TCircledSeries.DoBeforeDrawValues + 0001:00138048 TCircledSeries.CalcRadius + 0001:001380E4 TCircledSeries.SetCircleBackColor + 0001:001380F4 TCircledSeries.AngleToPos + 0001:00138150 TCircledSeries.CalcCircleBackColor + 0001:00138184 TCircledSeries.PrepareLegendCanvas + 0001:0013819C TCircledSeries.PointToAngle + 0001:00138290 TCircledSeries.Assign + 0001:001382F4 TCircledSeries.SetActive + 0001:00138310 TExplodedSlices.GetValue + 0001:0013833C TExplodedSlices.SetValue + 0001:0013837C TPieOtherSlice.Create + 0001:001383D4 TPieOtherSlice.Assign + 0001:00138410 TPieOtherSlice.SetStyle + 0001:00138424 TPieOtherSlice.SetText + 0001:00138434 TPieOtherSlice.SetValue + 0001:0013844C TPieSeries.Create + 0001:0013850C TPieSeries.Destroy + 0001:00138570 TPieSeries.CalcXPos + 0001:001385B0 TPieSeries.NumSampleValues + 0001:001385B8 TPieSeries.ClearLists + 0001:001385D4 TPieSeries.PrepareLegendCanvas + 0001:0013860C TPieSeries.GalleryChanged3D + 0001:00138620 TPieSeries.FillSampleValues + 0001:00138688 TPieSeries.CalcClickedPie + 0001:00138768 TPieSeries.Clicked + 0001:00138790 TPieSeries.CountLegendItems + 0001:001387CC TPieSeries.LegendToValueIndex + 0001:0013881C TPieSeries.BelongsToOtherSlice + 0001:00138844 TPieSeries.CalcAngles + 0001:001389A4 TPieSeries.CalcExplodedRadius + 0001:00138A14 TPieSeries.DrawMark + 0001:00138B90 GetAngleSlice + 0001:00138C34 CompareSliceAngle + 0001:00138C90 SortSlices + 0001:00138D60 TPieSeries.DrawAllValues + 0001:00138F3C TPieSeries.DrawPie + 0001:001390E4 TPieSeries.CalcExplodedOffset + 0001:00139200 TPieSeries.CalcExplodeBiggest + 0001:0013923C TPieSeries.SetExplodeBiggest + 0001:00139258 TPieSeries.SetPiePen + 0001:00139264 TPieSeries.SetOtherSlice + 0001:00139270 TPieSeries.DrawValue + 0001:001392DC TPieSeries.SetUsePatterns + 0001:001392EC TPieSeries.GetEditorClass + 0001:0013931C TPieSeries.GetPieValues + 0001:00139324 TPieSeries.SetPieValues + 0001:0013932C TPieSeries.SetDark3d + 0001:0013933C TPieSeries.MaxXValue + 0001:00139358 TPieSeries.MinXValue + 0001:00139374 TPieSeries.MaxYValue + 0001:00139390 TPieSeries.MinYValue + 0001:001393AC TPieSeries.DisableRotation + 0001:001393D8 TPieSeries.PrepareForGallery + 0001:0013942C TPieSeries.Assign + 0001:001394A4 TPieSeries.DoBeforeDrawChart + 0001:0013962C TPieSeries.SwapValueIndex + 0001:00139678 TFastLineSeries.Create + 0001:001396D0 TFastLineSeries.Destroy + 0001:00139700 TFastLineSeries.SetLinePen + 0001:00139728 TFastLineSeries.NotifyNewValue + 0001:001397E0 TFastLineSeries.GetEditorClass + 0001:00139814 TFastLineSeries.PrepareCanvas + 0001:00139844 TFastLineSeries.DrawAllValues + 0001:00139858 TFastLineSeries.DrawValue + 0001:0013998C TFastLineSeries.SetSeriesColor + 0001:001399AC TFastLineSeries.DrawLegendShape + 0001:001399D8 TFastLineSeries.Assign + 0001:00139A1C TFastLineSeries.Clicked + 0001:00139B08 TFastLineSeries.DrawMark + 0001:00139B28 RegisterStandardSeries + 0001:00139CF4 Finalization + 0001:00139D3C Series + 0001:00139DEC ClearMedList + 0001:00139E44 DetailMedLM + 0001:00139EF4 MedAdminHistory + 0001:00139F8C MedStatusGroup + 0001:0013A104 SetMedFields + 0001:0013A3B0 ByStatusThenStop + 0001:0013A500 LoadActiveMedLists + 0001:0013A8A0 GetNewDialog + 0001:0013A8EC PickUpDefault + 0001:0013A930 Refill + 0001:0013A9F4 IsFirstDoseNowOrder + 0001:0013AA98 GetMedStatus + 0001:0013AB40 Finalization + 0001:0013AB70 rMeds + 0001:0013AC40 CoDOMDocument.Create + 0001:0013ACA4 Finalization + 0001:0013ACD4 MSXML_TLB + 0001:0013AE28 MakeDCSummDisplayText + 0001:0013B088 TDCSummTitles.Create + 0001:0013B0CC TDCSummTitles.Destroy + 0001:0013B0FC Finalization + 0001:0013B12C uDCSumm + 0001:0013B134 GetTemplateRoots + 0001:0013B17C IsUserTemplateEditor + 0001:0013B25C GetTemplateChildren + 0001:0013B30C GetTemplateBoilerplate + 0001:0013B3BC GetTemplateText + 0001:0013B59C UpdateTIURec + 0001:0013B788 UpdateTemplate + 0001:0013B804 UpdateChildren + 0001:0013B954 DeleteTemplates + 0001:0013BA54 GetObjectList + 0001:0013BA84 GetAllowedPersonalObjects + 0001:0013BABC TestBoilerplate + 0001:0013BBF0 GetTemplateAccess + 0001:0013BCB0 SubSetOfBoilerplatedTitles + 0001:0013BD14 GetTitleBoilerplate + 0001:0013BDA4 GetUserTemplateDefaults + 0001:0013BE34 SetUserTemplateDefaults + 0001:0013BE88 SaveUserTemplateDefaults + 0001:0013BED0 LoadTemplateDescription + 0001:0013BF54 GetTemplateAllowedReminderDialogs + 0001:0013C014 IsRemDlgAllowed + 0001:0013C0B0 LockTemplate + 0001:0013C144 UnlockTemplate + 0001:0013C180 GetLinkedTemplateData + 0001:0013C1C8 SubSetOfAllTitles + 0001:0013C228 SubSetOfTemplateFields + 0001:0013C280 LoadTemplateField + 0001:0013C2C8 LoadTemplateFieldByIEN + 0001:0013C318 CanEditTemplateFields + 0001:0013C3B8 UpdateTemplateField + 0001:0013C3EC LockTemplateField + 0001:0013C47C UnlockTemplateField + 0001:0013C4B8 DeleteTemplateField + 0001:0013C4F4 CallImportExportTemplateFields + 0001:0013C624 ExportTemplateFields + 0001:0013C64C CheckTemplateFields + 0001:0013C69C IsTemplateFieldNameUnique + 0001:0013C748 Convert2LMText + 0001:0013C868 reset_broker + 0001:0013C8C0 BuildTemplateFields + 0001:0013CA84 ImportLoadedFields + 0001:0013CAEC Finalization + 0001:0013CB28 rTemplates + 0001:0013CD48 TfraTemplateFieldButton.pnlBtnMouseDown + 0001:0013CE7C TfraTemplateFieldButton.pnlBtnMouseUp + 0001:0013CEA0 TfraTemplateFieldButton.pnlBtnEnter + 0001:0013CEAC TfraTemplateFieldButton.pnlBtnExit + 0001:0013CEB8 TfraTemplateFieldButton.Create + 0001:0013CF30 TfraTemplateFieldButton.ButtonKeyDown + 0001:0013CF54 TfraTemplateFieldButton.ButtonKeyUp + 0001:0013CF74 TfraTemplateFieldButton.GetButtonText + 0001:0013CF8C TfraTemplateFieldButton.SetButtonText + 0001:0013CF98 TfraTemplateFieldButton.pbFocusPaint + 0001:0013CFEC TfraTemplateFieldButton.Destroy + 0001:0013D01C Finalization + 0001:0013D04C mTemplateFieldButton + 0001:0013D810 GetNewFieldID + 0001:0013D8B4 GetDialogEntry + 0001:0013D978 FreeEntries + 0001:0013DA74 AssignFieldIDs + 0001:0013DB4C AssignFieldIDs + 0001:0013DBC8 WrappedText + 0001:0013DE14 WordWrapText + 0001:0013DF18 AddNewTxt + 0001:0013DFA8 ResolveTemplateFields + 0001:0013E2A8 AreTemplateFieldsRequired + 0001:0013E524 HasTemplateField + 0001:0013E588 GetTemplateField + 0001:0013E698 TemplateFieldNameProblem + 0001:0013E8C0 SaveTemplateFieldErrors + 0001:0013EA48 ClearModifiedTemplateFields + 0001:0013EA98 AnyTemplateFieldsModified + 0001:0013EAD8 ListTemplateFields + 0001:0013EFA4 BoilerplateTemplateFieldsOK + 0001:0013F154 EnsureText + 0001:0013F22C TemplateFieldCode2Field + 0001:0013F2A0 TemplateDateCode2DateType + 0001:0013F314 ConvertCodes2Text + 0001:0013F49C TTemplateField.Create + 0001:0013FA70 TTemplateField.GetTemplateFieldDefault + 0001:0013FB10 wdth + 0001:0013FB40 ht + 0001:0013FB70 UpdateIndents + 0001:0013FC40 TTemplateField.CreateDialogControls + 0001:001405AC TTemplateField.CanModify + 0001:00140690 TTemplateField.SetEditDefault + 0001:001406BC TTemplateField.SetFldName + 0001:001406EC TTemplateField.SetFldType + 0001:001407C0 TTemplateField.SetInactive + 0001:001407DC TTemplateField.SetItemDefault + 0001:00140808 TTemplateField.SetItems + 0001:00140834 TTemplateField.SetLMText + 0001:00140860 TTemplateField.SetMaxLen + 0001:0014087C TTemplateField.SetNotes + 0001:001408A8 TTemplateField.SaveError + 0001:001410DC TTemplateField.Assign + 0001:0014117C TTemplateField.Width + 0001:00141288 TTemplateField.Destroy + 0001:001412BC TTemplateField.SetRequired + 0001:001412D8 TTemplateField.NewField + 0001:001412EC TTemplateField.SetSepLines + 0001:00141308 TTemplateField.SetIncrement + 0001:00141324 TTemplateField.SetIndent + 0001:00141340 TTemplateField.SetMaxVal + 0001:0014135C TTemplateField.SetMinVal + 0001:00141378 TTemplateField.SetPad + 0001:00141394 TTemplateField.SetTextLen + 0001:001413B0 TTemplateField.SetURL + 0001:001413DC TTemplateField.GetRequired + 0001:001413F0 TTemplateField.SetDateType + 0001:0014140C PanelDestroy + 0001:00141440 TTemplateDialogEntry.Create + 0001:001417E8 TTemplateDialogEntry.Destroy + 0001:00141854 TTemplateDialogEntry.DoChange + 0001:00141870 GetOriginalItem + 0001:001419A0 TTemplateDialogEntry.GetControlText + 0001:00141F88 TTemplateDialogEntry.GetFieldValues + 0001:00142100 DoLabel + 0001:00142198 NextLine + 0001:001421DC TTemplateDialogEntry.GetPanel + 0001:001425D0 TTemplateDialogEntry.GetText + 0001:001425E8 TTemplateDialogEntry.KillLabels + 0001:00142648 TTemplateDialogEntry.SetAutoDestroyOnPanelFree + 0001:0014268C TTemplateDialogEntry.SetControlText + 0001:0014297C TTemplateDialogEntry.SetFieldValues + 0001:00142A88 TTemplateDialogEntry.UpDownChange + 0001:00142AA4 TFieldPanel.Destroy + 0001:00142AE4 TFieldPanel.Paint + 0001:00142BB0 TFieldPanel.SetTheFocus + 0001:00142BC4 TWebLabel.Clicked + 0001:00142C14 TWebLabel.Init + 0001:00142CD8 StripEmbedded + 0001:00142DD8 Finalization + 0001:00142E60 uTemplateFields + 0001:00143028 TCellObject.Create + 0001:00143064 TCellObject.Destroy + 0001:00143088 TCellObject.Add + 0001:001431C0 MakeReportTreeObject + 0001:00143408 TRowObject.Create + 0001:00143448 TRowObject.Destroy + 0001:00143478 TRowObject.Add + 0001:00143518 TRowObject.Clear + 0001:00143550 IsValidNumber + 0001:00143684 StringToFMDateTime + 0001:001438C0 ShortDateStrToDate + 0001:00143B08 StripSpace + 0001:00143B88 MakeProcedureTreeObject + 0001:00143C6C Finalization + 0001:00143C9C uReports + 0001:00144AF0 TWebBrowser.InitControlData + 0001:00144B18 DoCreate + 0001:00144B9C TWebBrowser.CreateControl + 0001:00144BBC TWebBrowser.GetControlInterface + 0001:00144BE8 TWebBrowser.Navigate + 0001:00144C60 Finalization + 0001:00144C90 SHDocVw + 0001:00144D2C TECSReport.Create + 0001:00144D8C GetVisitID + 0001:00144E40 GetDivisionID + 0001:00144EBC SaveUserPath + 0001:00144F4C FormatECSDate + 0001:001450CC LoadECSReportText + 0001:001452F0 PrintECSReportToDevice + 0001:00145514 Finalization + 0001:00145544 rECS + 0001:00145860 PrintReports + 0001:00145AB0 TfrmReportPrt.FindVType + 0001:0014642C StringPad + 0001:001464C4 TfrmReportPrt.DisplaySelectDevice + 0001:0014657C TfrmReportPrt.FormCreate + 0001:001465B8 TfrmReportPrt.cboDeviceChange + 0001:00146684 TfrmReportPrt.cmdOKClick + 0001:001480C0 TfrmReportPrt.cmdCancelClick + 0001:001480C8 TfrmReportPrt.cboDeviceNeedData + 0001:001480F0 TfrmReportPrt.FormDestroy + 0001:00148110 Finalization + 0001:00148140 fReportsPrint + 0001:001485C8 ExecuteForm2 + 0001:00148648 TfrmReportsAdhocSubItem1.btnCancelClick + 0001:00148670 TfrmReportsAdhocSubItem1.FormCreate + 0001:00148918 TfrmReportsAdhocSubItem1.ORListBox1EndDrag + 0001:0014894C TfrmReportsAdhocSubItem1.ORListBox1DragDrop + 0001:001489C4 TfrmReportsAdhocSubItem1.ORListBox1DragOver + 0001:00148A78 TfrmReportsAdhocSubItem1.Timer2Timer + 0001:00148AF8 TfrmReportsAdhocSubItem1.SpeedButton8Click + 0001:00148B5C TfrmReportsAdhocSubItem1.SpeedButton7Click + 0001:00148BA4 TfrmReportsAdhocSubItem1.btnRemoveAllSelClick + 0001:00148CF8 TfrmReportsAdhocSubItem1.btnRemoveSelClick + 0001:00148F18 TfrmReportsAdhocSubItem1.btnOKClick + 0001:001490DC TfrmReportsAdhocSubItem1.btnAddSelClick + 0001:00149448 TfrmReportsAdhocSubItem1.ORComboBox2KeyUp + 0001:001494F8 TfrmReportsAdhocSubItem1.ORComboBox2NeedData + 0001:00149528 TfrmReportsAdhocSubItem1.pnl7ButtonEnter + 0001:00149544 TfrmReportsAdhocSubItem1.pnl7ButtonExit + 0001:00149560 Finalization + 0001:00149590 fReportsAdhocSubItem1 + 0001:00149D5C ExecuteAdhoc1 + 0001:00149DDC TfrmReportsAdhocComponent1.FormCreate + 0001:00149ECC TfrmReportsAdhocComponent1.FormShow + 0001:00149F34 TfrmReportsAdhocComponent1.btnCancelMainClick + 0001:00149F3C TfrmReportsAdhocComponent1.btnOKMainClick + 0001:0014A248 TfrmReportsAdhocComponent1.FormClose + 0001:0014A2AC TfrmReportsAdhocComponent1.HideEdits + 0001:0014A394 TfrmReportsAdhocComponent1.ORListBox2Click + 0001:0014A8F4 TfrmReportsAdhocComponent1.btnRemoveComponentClick + 0001:0014AB1C TfrmReportsAdhocComponent1.btnRemoveAllComponentsClick + 0001:0014ACA4 TfrmReportsAdhocComponent1.Splitter4CanResize + 0001:0014ACB8 TfrmReportsAdhocComponent1.Splitter1CanResize + 0001:0014ACCC TfrmReportsAdhocComponent1.btnAddComponentClick + 0001:0014B93C TfrmReportsAdhocComponent1.SpeedButton5Click + 0001:0014B998 TfrmReportsAdhocComponent1.SpeedButton6Click + 0001:0014BA10 TfrmReportsAdhocComponent1.ORListBox2DragOver + 0001:0014BAC4 TfrmReportsAdhocComponent1.ORListBox2DragDrop + 0001:0014BB3C TfrmReportsAdhocComponent1.ORListBox2EndDrag + 0001:0014BB70 TfrmReportsAdhocComponent1.Timer1Timer + 0001:0014BBF0 TfrmReportsAdhocComponent1.btnEditSubitemsClick + 0001:0014BD54 TfrmReportsAdhocComponent1.edtHeaderNameExit + 0001:0014BDF8 TfrmReportsAdhocComponent1.edtOccuranceLimitExit + 0001:0014BE9C TfrmReportsAdhocComponent1.cboTimeLimitExit + 0001:0014BF94 TfrmReportsAdhocComponent1.ckbHospitalLocationExit + 0001:0014C044 TfrmReportsAdhocComponent1.ckbProviderNarrativeExit + 0001:0014C0F4 TfrmReportsAdhocComponent1.cboICDExit + 0001:0014C198 TfrmReportsAdhocComponent1.ORComboBox1KeyDown + 0001:0014C240 TfrmReportsAdhocComponent1.LoadComponents + 0001:0014C488 TfrmReportsAdhocComponent1.rbtnAbbrevClick + 0001:0014C4C4 TfrmReportsAdhocComponent1.rbtnNameClick + 0001:0014C500 TfrmReportsAdhocComponent1.rbtnHeaderClick + 0001:0014C53C TfrmReportsAdhocComponent1.pnl5ButtonEnter + 0001:0014C558 TfrmReportsAdhocComponent1.pnl5ButtonExit + 0001:0014C574 Finalization + 0001:0014C5B0 fReportsAdhocComponent1 + 0001:0014C620 Finalization + 0001:0014C650 MSHTML + 0001:0014C8C8 TGanttSeries.Create + 0001:0014C9E4 TGanttSeries.Destroy + 0001:0014CA14 TGanttSeries.SetEndValues + 0001:0014CA24 TGanttSeries.SetNextTask + 0001:0014CA34 TGanttSeries.SetConnectingPen + 0001:0014CA40 TGanttSeries.AddGanttColor + 0001:0014CAA0 TGanttSeries.AddGantt + 0001:0014CAC4 GanttSampleStr + 0001:0014CB88 TGanttSeries.FillSampleValues + 0001:0014CCFC TGanttSeries.ClickedPointer + 0001:0014CD58 TGanttSeries.DrawValue + 0001:0014CF28 TGanttSeries.MaxXValue + 0001:0014CF60 TGanttSeries.DrawMark + 0001:0014CFBC TGanttSeries.ClearTempValue + 0001:0014CFDC TGanttSeries.MandatoryValueList + 0001:0014CFE4 TGanttSeries.GetStartValues + 0001:0014CFEC TGanttSeries.SetStartValues + 0001:0014CFF4 TGanttSeries.PrepareForGallery + 0001:0014D020 TGanttSeries.GetEditorClass + 0001:0014D050 TGanttSeries.Assign + 0001:0014D084 TGanttSeries.IsValidSourceOf + 0001:0014D098 TGanttSeries.CalcHorizMargins + 0001:0014D0A0 Finalization + 0001:0014D0D0 GanttCh + 0001:0014D144 DaysInAMonth + 0001:0014D190 DayOfTheWeek + 0001:0014D1C0 DaysBetween + 0001:0014D1E8 SecondsBetween + 0001:0014D218 MilliSecondsBetween + 0001:0014D248 SpanOfNowAndThen + 0001:0014D278 DaySpan + 0001:0014D29C SecondSpan + 0001:0014D2CC MilliSecondSpan + 0001:0014D2FC IncDay + 0001:0014D318 IncSecond + 0001:0014D344 Finalization + 0001:0014D374 DateUtils + 0001:0014D37C Finalization + 0001:0014D3AC Office97 + 0001:0014D3B4 Finalization + 0001:0014D3E4 VBIDE97 + 0001:0014D728 TWordApplication.InitServerData + 0001:0014D734 TWordApplication.Connect + 0001:0014D7A8 TWordApplication.Disconnect + 0001:0014D7D4 TWordApplication.GetDefaultInterface + 0001:0014D7F4 TWordApplication.Create + 0001:0014D82C TWordApplication.Destroy + 0001:0014D854 TWordApplication.InvokeEvent + 0001:0014D8A0 TWordApplication.Get_Documents + 0001:0014D8FC TWordApplication.Get_Visible + 0001:0014D960 TWordApplication.Set_Visible + 0001:0014D9B8 TWordApplication.Quit + 0001:0014DA1C TWordDocument.InitServerData + 0001:0014DA28 TWordDocument.Connect + 0001:0014DA9C TWordDocument.ConnectTo + 0001:0014DAFC TWordDocument.Disconnect + 0001:0014DB1C TWordDocument.GetDefaultInterface + 0001:0014DB3C TWordDocument.Create + 0001:0014DB74 TWordDocument.Destroy + 0001:0014DB9C TWordDocument.InvokeEvent + 0001:0014DBE8 TWordDocument.Get_FormFields + 0001:0014DC48 TWordDocument.Get_ProtectionType + 0001:0014DCAC TWordDocument.Close + 0001:0014DD10 TWordDocument.Range + 0001:0014DD7C TWordDocument.Range + 0001:0014DDE4 TWordDocument.Unprotect + 0001:0014DE3C Finalization + 0001:0014DE6C Word97 + 0001:0014DE74 Finalization + 0001:0014DEA4 Office2000 + 0001:0014DEAC Finalization + 0001:0014DEDC VBIDE2000 + 0001:0014DEE4 Finalization + 0001:0014DF14 Word2000 + 0001:0014E1DC TArrowSeries.Create + 0001:0014E2E0 TArrowSeries.SetEndXValues + 0001:0014E2F0 TArrowSeries.SetEndYValues + 0001:0014E300 TArrowSeries.AddArrow + 0001:0014E360 TArrowSeries.FillSampleValues + 0001:0014E458 TArrowSeries.GetArrowWidth + 0001:0014E464 TArrowSeries.GetArrowHeight + 0001:0014E470 TArrowSeries.SetArrowWidth + 0001:0014E47C TArrowSeries.SetArrowHeight + 0001:0014E488 TArrowSeries.DrawValue + 0001:0014E574 TArrowSeries.MaxXValue + 0001:0014E5AC TArrowSeries.MinXValue + 0001:0014E5E4 TArrowSeries.MaxYValue + 0001:0014E61C TArrowSeries.MinYValue + 0001:0014E654 TArrowSeries.GetEditorClass + 0001:0014E684 TArrowSeries.GetStartXValues + 0001:0014E68C TArrowSeries.SetStartXValues + 0001:0014E694 TArrowSeries.GetStartYValues + 0001:0014E69C TArrowSeries.SetStartYValues + 0001:0014E6A4 TArrowSeries.PrepareForGallery + 0001:0014E6F0 TArrowSeries.IsValidSourceOf + 0001:0014E704 Finalization + 0001:0014E734 ArrowCha + 0001:0014E814 GraphSettingsInit + 0001:0014EB38 Finalization + 0001:0014EB68 uGraphs + 0001:0014EB70 rpcPublicEdit + 0001:0014EC10 rpcReportParams + 0001:0014EC68 FastAssign + 0001:0014ECDC rpcDetailDay + 0001:0014EDF8 rpcDetailSelected + 0001:0014EEF8 rpcGetAllItems + 0001:0014EF64 rpcGetTypes + 0001:0014F048 rpcGetItems + 0001:0014F0FC rpcClass + 0001:0014F1A4 rpcTaxonomy + 0001:0014F274 rpcGetItemData + 0001:0014F334 rpcGetGraphDateRange + 0001:0014F3CC rpcGetGraphSettings + 0001:0014F420 rpcSetGraphSettings + 0001:0014F4C0 rpcGetGraphSizing + 0001:0014F514 rpcSetGraphSizing + 0001:0014F560 rpcGetGraphProfiles + 0001:0014F650 rpcSetGraphProfile + 0001:0014F700 rpcDeleteGraphProfile + 0001:0014F7A4 rpcGetTestSpec + 0001:0014F7F0 rpcLookupItems + 0001:0014F878 rpcDateItem + 0001:0014F940 onoff + 0001:0014F944 Finalization + 0001:0014F974 rGraphs + 0001:0014FFC4 DialogOptionsGraphSettings + 0001:00150258 DialogGraphSettings + 0001:0015103C FileNameX + 0001:00151198 TfrmGraphSettings.FormCreate + 0001:00151284 TfrmGraphSettings.btnAllClick + 0001:001512C4 TfrmGraphSettings.btnCloseClick + 0001:0015132C TfrmGraphSettings.DisplaySettings + 0001:001515BC TfrmGraphSettings.btnPublicClick + 0001:00151928 TfrmGraphSettings.chklstOptionsClickCheck + 0001:00151A7C TfrmGraphSettings.CheckSetting + 0001:00151B50 TfrmGraphSettings.SaveClick + 0001:00151D4C TfrmGraphSettings.spnMaxGraphsClick + 0001:00151DC0 TfrmGraphSettings.txtMaxGraphsChange + 0001:00151FB0 TfrmGraphSettings.txtMaxGraphsExit + 0001:00152128 TfrmGraphSettings.txtMaxGraphsKeyPress + 0001:00152154 TfrmGraphSettings.spnMinGraphHeightClick + 0001:001521C8 TfrmGraphSettings.spnMaxSelectClick + 0001:0015223C TfrmGraphSettings.txtMinGraphHeightChange + 0001:00152464 TfrmGraphSettings.txtMaxSelectChange + 0001:0015268C TfrmGraphSettings.txtMinGraphHeightExit + 0001:0015286C TfrmGraphSettings.txtMaxSelectExit + 0001:00152A4C TfrmGraphSettings.txtMinGraphHeightKeyPress + 0001:00152AC8 TfrmGraphSettings.txtMaxSelectKeyPress + 0001:00152B44 TfrmGraphSettings.FormShow + 0001:00152BE8 TfrmGraphSettings.AssignHints + 0001:00153658 TfrmGraphSettings.wmNCLButtonDown + 0001:001536D4 TfrmGraphSettings.FormClose + 0001:001536E8 Finalization + 0001:00153718 fGraphSettings + 0001:00153D94 DialogOptionsGraphProfiles + 0001:00153FF0 DialogGraphProfiles + 0001:00154438 TfrmGraphProfiles.FormCreate + 0001:00154450 TfrmGraphProfiles.FormShow + 0001:00154490 TfrmGraphProfiles.btnClearClick + 0001:001544F8 TfrmGraphProfiles.btnDeleteClick + 0001:001548B8 TfrmGraphProfiles.btnRenameClick + 0001:00154E9C TfrmGraphProfiles.btnCloseClick + 0001:00154ECC TfrmGraphProfiles.btnRemoveClick + 0001:00154F0C TfrmGraphProfiles.btnRemoveAllClick + 0001:00154F30 TfrmGraphProfiles.btnRemoveOneClick + 0001:00154F48 TfrmGraphProfiles.CheckToClear + 0001:00154FD8 TfrmGraphProfiles.btnSaveClick + 0001:001556E0 TfrmGraphProfiles.CheckPublic + 0001:00155804 TfrmGraphProfiles.radSourceAllClick + 0001:001558F8 TfrmGraphProfiles.cboAllItemsClick + 0001:00155FC0 TfrmGraphProfiles.cboAllItemsChange + 0001:001560E8 TfrmGraphProfiles.cboAllItemsNeedData + 0001:00156190 TfrmGraphProfiles.lstItemsDisplayedChange + 0001:00156308 TfrmGraphProfiles.lstItemsDisplayedDblClick + 0001:001563AC TfrmGraphProfiles.QualifierDelete + 0001:001565A8 TfrmGraphProfiles.lstSourceChange + 0001:001571C0 TfrmGraphProfiles.lstSourceDblClick + 0001:0015722C TfrmGraphProfiles.AddToList + 0001:00157598 TfrmGraphProfiles.ArrangeList + 0001:00157798 TfrmGraphProfiles.AssignProfile + 0001:00158290 TfrmGraphProfiles.FillSource + 0001:001585E4 TfrmGraphProfiles.ProfileExists + 0001:001586F4 TfrmGraphProfiles.AssignHints + 0001:0015907C TfrmGraphProfiles.wmNCLButtonDown + 0001:001590F8 TfrmGraphProfiles.FormClose + 0001:0015910C Finalization + 0001:0015913C fGraphProfiles + 0001:001591F8 DisableGhosting + 0001:0015928C SetFormMonitoring + 0001:001592D8 MarkFormAsStayOnTop + 0001:00159344 FindFormEventIndex + 0001:00159384 FindFormEvent + 0001:001593A8 FormMonitorBringToFrontEvent + 0001:00159420 IsFormStayOnTop + 0001:00159448 TFormMonitor.Activate + 0001:00159468 TFormMonitor.ActiveFormChange + 0001:00159484 TFormMonitor.Restore + 0001:001594A4 TFormMonitor.FormValid + 0001:001594D8 TFormMonitor.HandleValid + 0001:0015950C FindWindowZOrder + 0001:00159540 TFormMonitor.ManageForms + 0001:00159840 CallWndHook + 0001:00159898 TFormMonitor.Start + 0001:001599E0 TFormMonitor.Stop + 0001:00159A84 TFormMonitor.MoveOffTop + 0001:00159ABC TFormMonitor.MoveOnTop + 0001:00159AF4 TFormMonitor.Normalize + 0001:00159B1C TFormMonitor.IsNormalized + 0001:00159B30 TFormMonitor.IsTopMost + 0001:00159B44 FindWindows + 0001:00159B60 TFormMonitor.NormalizeReset + 0001:00159B74 IsHandleOK + 0001:00159BD4 FindActiveWindow + 0001:00159C14 TFormMonitor.GetActiveFormHandle + 0001:00159D14 TFormMonitor.StartZOrdering + 0001:00159D40 TFormMonitor.SystemRunning + 0001:00159D80 TFormMonitor.ModalDelphiForm + 0001:00159DD4 TFormMonitor.Timer + 0001:00159E30 Finalization + 0001:00159E60 uFormMonitor + 0001:0015B1F4 TfrmGraphs.FormCreate + 0001:0015B76C TfrmGraphs.SourcesDefault + 0001:0015B91C TfrmGraphs.Initialize + 0001:0015BB98 TfrmGraphs.InitialRetain + 0001:0015BB9C TfrmGraphs.FillViews + 0001:0015BE80 TfrmGraphs.SourceContext + 0001:0015BEA4 TfrmGraphs.FormShow + 0001:0015BFB4 TfrmGraphs.FormClose + 0001:0015BFE4 TfrmGraphs.GetSize + 0001:0015C5C0 TfrmGraphs.SetSize + 0001:0015CBDC TfrmGraphs.btnCloseClick + 0001:0015CBE4 TfrmGraphs.btnChangeSettingsClick + 0001:0015D014 TfrmGraphs.chkDualViewsClick + 0001:0015D0C4 TfrmGraphs.LoadListView + 0001:0015D2C8 TfrmGraphs.FilterListView + 0001:0015D92C TfrmGraphs.DateRangeItems + 0001:0015DBF8 TfrmGraphs.UpdateView + 0001:0015DD50 TfrmGraphs.DateRangeMultiItems + 0001:0015DEB4 TfrmGraphs.FileNameX + 0001:0015E048 TfrmGraphs.ItemName + 0001:0015E188 TfrmGraphs.InitialData + 0001:0015E47C TfrmGraphs.TypeIsLoaded + 0001:0015E538 TfrmGraphs.TypeIsDisplayed + 0001:0015E638 TfrmGraphs.LoadDateRange + 0001:0015E758 TfrmGraphs.LoadType + 0001:0015E8C4 TfrmGraphs.DisplayType + 0001:0015E9F0 TfrmGraphs.DisplayData + 0001:0015EE20 TfrmGraphs.chkItemsTopClick + 0001:0015EE94 TfrmGraphs.chkItemsBottomClick + 0001:0015EF0C TfrmGraphs.BottomAxis + 0001:0015EF98 TfrmGraphs.AdjustTimeframe + 0001:0015F0BC TfrmGraphs.ChartOnZoom + 0001:0015F3A0 TfrmGraphs.ChartOnUndoZoom + 0001:0015F614 TfrmGraphs.SizeDates + 0001:0015F7FC TfrmGraphs.MakeSeparate + 0001:00160130 TfrmGraphs.MakeTogether + 0001:001611D4 TfrmGraphs.PortionSize + 0001:001612E0 TfrmGraphs.MakeDateline + 0001:00161460 TfrmGraphs.SizeTogether + 0001:00161598 TfrmGraphs.Vfactor + 0001:00161678 TfrmGraphs.NextColor + 0001:00161758 TfrmGraphs.mnuPopGraphSwapClick + 0001:00161BA8 TfrmGraphs.mnuPopGraphSplitClick + 0001:00161F04 TfrmGraphs.SelectItem + 0001:00161FD0 TfrmGraphs.mnuPopGraphLinesClick + 0001:00161FE8 TfrmGraphs.mnuPopGraph3DClick + 0001:00162000 TfrmGraphs.mnuPopGraphValuesClick + 0001:00162018 TfrmGraphs.mnuPopGraphSortClick + 0001:001620F0 TfrmGraphs.mnuPopGraphClearClick + 0001:00162140 TfrmGraphs.mnuPopGraphHorizontalClick + 0001:00162174 TfrmGraphs.mnuPopGraphVerticalClick + 0001:001621A8 TfrmGraphs.mnuPopGraphDatesClick + 0001:001621C0 TfrmGraphs.mnuPopGraphDualViewsClick + 0001:001621F0 TfrmGraphs.mnuPopGraphSeparate1Click + 0001:0016224C TfrmGraphs.mnuPopGraphGradientClick + 0001:0016226C TfrmGraphs.mnuPopGraphHintsClick + 0001:00162284 TfrmGraphs.mnuPopGraphLegendClick + 0001:0016229C TfrmGraphs.ChartStyle + 0001:00162550 TfrmGraphs.ChangeStyle + 0001:001628F4 TfrmGraphs.chartBaseClickSeries + 0001:00162D48 TfrmGraphs.AllTypeDate + 0001:001636F4 TfrmGraphs.ItemDateRange + 0001:00163C54 TfrmGraphs.mnuPopGraphIsolateClick + 0001:0016404C TfrmGraphs.ItemCheck + 0001:00164230 TfrmGraphs.chartBaseMouseDown + 0001:00164464 TfrmGraphs.mnuPopGraphStuffPopup + 0001:00164724 TfrmGraphs.mnuPopGraphDetailsClick + 0001:00164AFC TfrmGraphs.AllDetails + 0001:00164CB4 TfrmGraphs.OneDayTypeDetails + 0001:00164ED0 TfrmGraphs.mnuPopGraphCopyClick + 0001:00165C34 TfrmGraphs.CreatePatientHeader + 0001:00166024 TfrmGraphs.GetData + 0001:001664B8 TfrmGraphs.FMToDateTime + 0001:001666B8 TfrmGraphs.GraphTypeNum + 0001:00166860 TfrmGraphs.HSAbbrev + 0001:0016695C TfrmGraphs.TempCheck + 0001:00166A70 TfrmGraphs.DCName + 0001:00166BCC TfrmGraphs.splItemsBottomMoved + 0001:00166C1C TfrmGraphs.splItemsTopMoved + 0001:00166C6C TfrmGraphs.cboDateRangeChange + 0001:001672F8 TfrmGraphs.StdDev + 0001:00167364 TfrmGraphs.InvVal + 0001:001673B8 TfrmGraphs.lvwItemsTopCompare + 0001:001674D8 TfrmGraphs.lvwItemsTopColumnClick + 0001:0016752C TfrmGraphs.lvwItemsBottomCompare + 0001:0016764C TfrmGraphs.lvwItemsBottomColumnClick + 0001:001676A0 TfrmGraphs.btnGraphSelectionsClick + 0001:00167A54 TfrmGraphs.ViewSelections + 0001:00167C94 TfrmGraphs.ItemsClick + 0001:00167FA0 TfrmGraphs.CheckToAddData + 0001:001682BC TfrmGraphs.lvwItemsTopClick + 0001:00168494 TfrmGraphs.lvwItemsBottomClick + 0001:00168670 TfrmGraphs.SelCopy + 0001:001686E8 TfrmGraphs.SelReset + 0001:00168834 TfrmGraphs.ViewsChange + 0001:00168B90 TfrmGraphs.cboViewsTopChange + 0001:00168BB4 TfrmGraphs.cboViewsBottomChange + 0001:00168BDC TfrmGraphs.AssignProfile + 0001:00168CC4 TfrmGraphs.SetProfile + 0001:00169098 TfrmGraphs.ExpandTax + 0001:00169348 TfrmGraphs.CheckProfile + 0001:00169718 TfrmGraphs.LoadDisplayCheck + 0001:001697AC TfrmGraphs.AutoSelect + 0001:00169924 TfrmGraphs.LabData + 0001:0016A3D8 TfrmGraphs.RefUnits + 0001:0016A638 CheckRef + 0001:0016A920 TfrmGraphs.SelectRef + 0001:0016AA1C TfrmGraphs.ResetSpec + 0001:0016ABF4 TfrmGraphs.chartBaseClickLegend + 0001:0016AF94 TfrmGraphs.BPValue + 0001:0016B140 TfrmGraphs.mnuMedsasganttClick + 0001:0016B170 TfrmGraphs.mnuPopGraphResetClick + 0001:0016B1AC TfrmGraphs.serDatelineTopGetMarkText + 0001:0016B334 TfrmGraphs.mnuPopGraphRemoveClick + 0001:0016B538 TfrmGraphs.mnuPopGraphTodayClick + 0001:0016B574 TfrmGraphs.BaseResize + 0001:0016B5F4 TfrmGraphs.pnlScrollTopBaseResize + 0001:0016B620 TfrmGraphs.NextPointerStyle + 0001:0016B830 TfrmGraphs.FMCorrectedDate + 0001:0016B95C TfrmGraphs.FixedDates + 0001:0016BA0C TfrmGraphs.HighLow + 0001:0016BC1C TfrmGraphs.HideGraphs + 0001:0016BC94 BorderValue + 0001:0016BCCC TfrmGraphs.MakeLineSeries + 0001:0016D31C TfrmGraphs.MakePointSeries + 0001:0016D5EC TfrmGraphs.MakeBarSeries + 0001:0016DAEC TfrmGraphs.MakeManyGanttSeries + 0001:0016E010 TfrmGraphs.MakeVisitGanttSeries + 0001:0016E480 TfrmGraphs.MakeWeightedGanttSeries + 0001:0016E718 TfrmGraphs.MakeArrowSeries + 0001:0016EA5C TfrmGraphs.MakeWeightedArrowSeries + 0001:0016EDF4 TfrmGraphs.MakeGanttSeries + 0001:0016F0DC TfrmGraphs.MakeAGanttSeries + 0001:0016F3A4 TfrmGraphs.splGraphsMoved + 0001:0016F3C8 TfrmGraphs.ValueText + 0001:0016FDCC TfrmGraphs.chartBaseMouseMove + 0001:0016FFE4 TfrmGraphs.timHintPauseTimer + 0001:0017031C TfrmGraphs.InactivateHint + 0001:00170330 TfrmGraphs.mnuPopGraphStayOnTopClick + 0001:0017037C TfrmGraphs.StayOnTop + 0001:001703D4 TfrmGraphs.HideDates + 0001:001704D4 TfrmGraphs.mnuPopGraphZoomBackClick + 0001:00170524 TfrmGraphs.ZoomUpdate + 0001:001705FC TfrmGraphs.ZoomUpdateInfo + 0001:00170770 TfrmGraphs.ZoomTo + 0001:0017084C TfrmGraphs.mnuPopGraphPrintClick + 0001:00171600 TfrmGraphs.lvwItemsTopChange + 0001:00171644 TfrmGraphs.lvwItemsBottomChange + 0001:00171688 TfrmGraphs.lvwItemsTopKeyDown + 0001:001716B0 boxcount + 0001:00171790 TfrmGraphs.testcount1Click + 0001:00171930 TfrmGraphs.cboDateRangeDropDown + 0001:00171970 TfrmGraphs.mnuPopGraphFixedClick + 0001:00171988 TfrmGraphs.cboViewsTopDropDown + 0001:00171998 TfrmGraphs.cboViewsTopDropDownClose + 0001:001719A8 TfrmGraphs.cboViewsBottomDropDown + 0001:001719B8 TfrmGraphs.cboViewsBottomDropDownClose + 0001:001719C8 TfrmGraphs.FormDestroy + 0001:001719D0 TfrmGraphs.SetFontSize + 0001:00171AA4 TfrmGraphs.lvwItemsTopEnter + 0001:00171AF0 TfrmGraphs.chkItemsBottomEnter + 0001:00171B34 TfrmGraphs.cboViewsBottomEnter + 0001:00171B5C TfrmGraphs.lvwItemsBottomEnter + 0001:00171BCC Finalization + 0001:00171BFC fGraphs + 0001:00172518 TfrmReports.ClearPtData + 0001:0017263C TfrmReports.Graph + 0001:00172944 TfrmReports.GraphPanel + 0001:00172BD0 TfrmReports.AllowContextChange + 0001:00172D44 TfrmReports.RequestPrint + 0001:001730C0 TfrmReports.DisplayPage + 0001:00173548 TfrmReports.UpdateRemoteStatus + 0001:001736C0 TfrmReports.LoadTreeView + 0001:00173BCC TfrmReports.SetFontSize + 0001:00173BF0 TfrmReports.LoadListView + 0001:001748D4 TfrmReports.lstQualifierClick + 0001:00175EE4 TfrmReports.GotoTop1Click + 0001:00175F88 TfrmReports.GotoBottom1Click + 0001:001760C8 TfrmReports.FreezeText1Click + 0001:0017623C TfrmReports.UnFreezeText1Click + 0001:00176288 TfrmReports.PopupMenu1Popup + 0001:00176398 TfrmReports.FormCreate + 0001:00176470 TfrmReports.ProcessNotifications + 0001:001768BC TfrmReports.DisplayHeading + 0001:00176CB4 TfrmReports.FormShow + 0001:00176D14 TfrmReports.Timer1Timer + 0001:0017728C TfrmReports.TabControl1Change + 0001:00177A64 TfrmReports.GoRemote + 0001:001787E8 TfrmReports.FormDestroy + 0001:00178988 TfrmReports.lstHeadersClick + 0001:001789FC TfrmReports.Splitter1CanResize + 0001:00178A10 TfrmReports.WebBrowser1DocumentComplete + 0001:00178B60 TfrmReports.sptHorzRightCanResize + 0001:00178B74 TfrmReports.lstQualifierDrawItem + 0001:00178DF8 TfrmReports.tvReportsClick + 0001:0017BB38 TfrmReports.lvReportsColumnClick + 0001:0017C00C CompareValues + 0001:0017C2F8 TfrmReports.lvReportsCompare + 0001:0017C3A8 TfrmReports.lvReportsSelectItem + 0001:0017D35C TfrmReports.tvReportsExpanding + 0001:0017D370 TfrmReports.tvReportsCollapsing + 0001:0017D384 TfrmReports.Print1Click + 0001:0017D390 TfrmReports.Copy1Click + 0001:0017D58C TfrmReports.Copy2Click + 0001:0017D598 TfrmReports.Print2Click + 0001:0017D5A4 TfrmReports.lvReportsKeyUp + 0001:0017D5E0 TfrmReports.SelectAll1Click + 0001:0017D628 TfrmReports.SelectAll2Click + 0001:0017D634 TfrmReports.tvReportsKeyDown + 0001:0017D660 TfrmReports.ShowTabControl + 0001:0017D6B0 TfrmReports.Memo1KeyUp + 0001:0017D75C TfrmReports.LoadProceduresTreeView + 0001:0017D860 TfrmReports.tvProceduresCollapsing + 0001:0017D874 TfrmReports.tvProceduresExpanding + 0001:0017D888 TfrmReports.tvProceduresClick + 0001:0017DACC TfrmReports.tvProceduresChange + 0001:0017DFA0 TfrmReports.tvProceduresKeyDown + 0001:0017DFCC TfrmReports.chkDualViewsClick + 0001:0017E008 TfrmReports.btnChangeViewClick + 0001:0017E054 TfrmReports.btnGraphSelectionsClick + 0001:0017E0A0 TfrmReports.lstDateRangeClick + 0001:0017E11C TfrmReports.sptHorzMoved + 0001:0017E130 Finalization + 0001:0017E1D8 fReports + 0001:0017E1E0 ExtractSection + 0001:0017E304 LoadReportLists + 0001:0017E3F4 LoadLabReportLists + 0001:0017E470 LoadTree + 0001:0017E4E8 ListReports + 0001:0017E594 ListLabReports + 0001:0017E630 ListReportDateRanges + 0001:0017E650 ListHealthSummaryTypes + 0001:0017E67C HealthSummaryCheck + 0001:0017E6E0 ColumnHeaders + 0001:0017E774 SaveColumnSizes + 0001:0017E7E8 ListImagingExams + 0001:0017EAA8 ListProcedures + 0001:0017ECFC ListNutrAssessments + 0001:0017EE68 ListSurgeryReports + 0001:0017F0FC LoadReportText + 0001:0017F458 RemoteQueryAbortAll + 0001:0017F498 RemoteQuery + 0001:0017F6A8 DirectQuery + 0001:0017F8B8 ImagingParams + 0001:0017F8F8 AutoRDV + 0001:0017F938 HDRActive + 0001:0017F978 PrintVReports + 0001:0017FA2C PrintReportsToDevice + 0001:0017FF5C GetFormattedReport + 0001:0018038C PrintWindowsReport + 0001:00180788 CreatePatientHeader + 0001:00180A34 PrintGraph + 0001:00180C98 SaveDefaultPrinter + 0001:00180D18 HSFileLookup + 0001:00180DCC HSComponentFiles + 0001:00180E60 HSSubItems + 0001:00180F00 HSReportText + 0001:00180F70 HSComponents + 0001:00180FC8 HSABVComponents + 0001:00181018 HSDispComponents + 0001:00181068 HSComponentSubs + 0001:00181110 GetRemoteStatus + 0001:001811A4 GetAdhocLookup + 0001:00181250 SetAdhocLookup + 0001:001812CC GetRemoteData + 0001:001813FC ModifyHDRData + 0001:00181490 PrintBitmap + 0001:0018156C Finalization + 0001:001815D0 rReports + 0001:00181890 CreateReportBox + 0001:00181C3C ReportBox + 0001:00181CCC ModelessReportBox + 0001:00181D34 PrintStrings + 0001:00182024 TfrmReportBox.memReportClick + 0001:00182028 TfrmReportBox.cmdPrintClick + 0001:001820A8 TfrmReportBox.cmdCloseClick + 0001:001820B0 TfrmReportBox.FormClose + 0001:001820C0 TfrmReportBox.FormCreate + 0001:001820D8 Finalization + 0001:00182108 fRptBox + 0001:00182328 AllowTimeout + 0001:00182398 TfrmTimeout.FormCreate + 0001:00182400 TfrmTimeout.cmdContinueClick + 0001:00182410 TfrmTimeout.timCountDownTimer + 0001:001824CC Finalization + 0001:001824FC fTimeout + 0001:001825C0 AutoUpdateCheck + 0001:00182908 TimeoutKeyHook + 0001:00182940 TimeoutMouseHook + 0001:00182984 InitTimeOut + 0001:00182A34 UpdateTimeOutInterval + 0001:00182A60 TimedOut + 0001:00182A68 ShutDownTimeOut + 0001:00182AC0 TCPRSTimeoutTimer.ResetTimeout + 0001:00182AE4 TCPRSTimeoutTimer.timTimeoutTimer + 0001:00182B44 Finalization + 0001:00182B7C uInit + 0001:00182E50 GetText + 0001:001830FC IncDlgID + 0001:001831E4 CountDlgProps + 0001:001832F8 DoTemplateDialog + 0001:0018374C CheckBoilerplate4Fields + 0001:00183860 CheckBoilerplate4Fields + 0001:0018390C TfrmTemplateDialog.ChkAll + 0001:00183968 TfrmTemplateDialog.btnAllClick + 0001:00183970 TfrmTemplateDialog.btnNoneClick + 0001:00183978 TfrmTemplateDialog.GetObjectID + 0001:00183A3C TfrmTemplateDialog.FindObjectByID + 0001:00183AF0 NextTabCtrl + 0001:00183B2C TfrmTemplateDialog.BuildCB + 0001:00184378 TfrmTemplateDialog.ParentCBEnter + 0001:00184394 TfrmTemplateDialog.ParentCBExit + 0001:001843B0 TfrmTemplateDialog.ItemChecked + 0001:00184430 TfrmTemplateDialog.BuildAllControls + 0001:001844F4 TfrmTemplateDialog.FormPaint + 0001:0018450C TfrmTemplateDialog.FormCreate + 0001:001845B4 TfrmTemplateDialog.AppShowHint + 0001:001845E4 TfrmTemplateDialog.FormDestroy + 0001:00184618 TfrmTemplateDialog.FieldChanged + 0001:00184670 TfrmTemplateDialog.FormCloseQuery + 0001:00184858 TfrmTemplateDialog.btnOKClick + 0001:00184860 TfrmTemplateDialog.btnPreviewClick + 0001:001848E4 TfrmTemplateDialog.EntryDestroyed + 0001:00184908 TfrmTemplateDialog.FormClose + 0001:00184930 TfrmTemplateDialog.SizeFormToCancelBtn + 0001:0018494C Finalization + 0001:0018497C fTemplateDialog + 0001:00184C64 ShowTemplateData + 0001:00184DF0 TfrmTemplateView.btnCloseClick + 0001:00184DF8 TfrmTemplateView.FormClose + 0001:00184E0C TfrmTemplateView.cbStayOnTopClick + 0001:00184E60 TfrmTemplateView.FormDestroy + 0001:00184E68 TfrmTemplateView.popViewPopup + 0001:00184EAC TfrmTemplateView.Copy1Click + 0001:00184EB8 TfrmTemplateView.SelectAll1Click + 0001:00184EC4 TfrmTemplateView.btnPrintClick + 0001:00184F38 TfrmTemplateView.FormCreate + 0001:00184F50 TfrmTemplateView.FormShow + 0001:00184F5C Finalization + 0001:00184F8C fTemplateView + 0001:0018513C TMenuBar.Create + 0001:001851A0 TMenuBar.GetChildren + 0001:001851A8 TMenuBar.SetMenu + 0001:001852E4 Finalization + 0001:00185314 MenuBar + 0001:00185588 TfrmTemplateObjects.FormShow + 0001:00185604 TfrmTemplateObjects.btnInsertClick + 0001:0018560C TfrmTemplateObjects.InsertObject + 0001:00185720 TfrmTemplateObjects.cboObjectsDblClick + 0001:00185728 TfrmTemplateObjects.btnCancelClick + 0001:00185730 TfrmTemplateObjects.FormClose + 0001:00185734 TfrmTemplateObjects.Setre + 0001:00185740 TfrmTemplateObjects.UpdateStatus + 0001:0018575C TfrmTemplateObjects.btnRefreshClick + 0001:001857AC Finalization + 0001:001857DC fTemplateObjects + 0001:001857E4 SpellCheckInProgress + 0001:00185800 SpellCheckTitle + 0001:00185888 GetWindows + 0001:001858A8 GetWindowList + 0001:001858C8 BringWordToFront + 0001:00185A88 SpellCheckAvailable + 0001:00185B30 SpellAndGrammarCheckForControl + 0001:00186B04 SpellCheckForControl + 0001:00186B20 GrammarCheckForControl + 0001:00186B3C Finalization + 0001:00186B78 uSpell + 0001:00186E00 GetAutoGenText + 0001:00187030 TfrmTemplateAutoGen.rgSourceClick + 0001:001871F0 TfrmTemplateAutoGen.cbxTitlesNeedData + 0001:00187218 TfrmTemplateAutoGen.cbxTitlesDblClick + 0001:00187238 TfrmTemplateAutoGen.cbxObjectsDblClick + 0001:00187258 TfrmTemplateAutoGen.FormShow + 0001:00187268 Finalization + 0001:00187298 fTemplateAutoGen + 0001:0018755C TfrmTemplateFields.FormShow + 0001:0018757C TfrmTemplateFields.FormCreate + 0001:001875E0 TfrmTemplateFields.cboObjectsNeedData + 0001:00187610 TfrmTemplateFields.InsertField + 0001:00187764 TfrmTemplateFields.cboObjectsDblClick + 0001:00187780 TfrmTemplateFields.btnCancelClick + 0001:00187788 TfrmTemplateFields.FormClose + 0001:0018778C TfrmTemplateFields.Setre + 0001:00187798 TfrmTemplateFields.UpdateStatus + 0001:001877B4 TfrmTemplateFields.btnInsertClick + 0001:001877BC TfrmTemplateFields.btnPreviewClick + 0001:001878F8 TfrmTemplateFields.cboObjectsChange + 0001:00187918 Finalization + 0001:00187948 fTemplateFields + 0001:001884F8 EditDialogFields + 0001:00188560 SetLbl + 0001:001885B4 SetY + 0001:001885EC TfrmTemplateFieldEditor.UpdateControls + 0001:001890D0 TfrmTemplateFieldEditor.SyncItems + 0001:001892FC TfrmTemplateFieldEditor.cbxObjsNeedData + 0001:0018941C TfrmTemplateFieldEditor.FormCreate + 0001:00189550 TfrmTemplateFieldEditor.cbxObjsChange + 0001:001895E8 TfrmTemplateFieldEditor.edtNameChange + 0001:00189958 TfrmTemplateFieldEditor.cbxTypeChange + 0001:00189A08 TfrmTemplateFieldEditor.edtLenChange + 0001:00189B74 TfrmTemplateFieldEditor.edtDefaultChange + 0001:00189C04 TfrmTemplateFieldEditor.cbxDefaultChange + 0001:00189C84 TfrmTemplateFieldEditor.edtLMTextChange + 0001:00189D00 TfrmTemplateFieldEditor.cbActiveClick + 0001:00189D50 TfrmTemplateFieldEditor.mnuNewClick + 0001:00189EE4 TfrmTemplateFieldEditor.btnOKClick + 0001:00189EEC TfrmTemplateFieldEditor.btnApplyClick + 0001:00189F80 TfrmTemplateFieldEditor.FormCloseQuery + 0001:00189FF0 TfrmTemplateFieldEditor.btnCancelClick + 0001:0018A094 TfrmTemplateFieldEditor.SaveChanges + 0001:0018A1F4 TfrmTemplateFieldEditor.reItemsChange + 0001:0018A280 TfrmTemplateFieldEditor.cbHideClick + 0001:0018A29C TfrmTemplateFieldEditor.edtNameExit + 0001:0018A2B8 TfrmTemplateFieldEditor.VerifyName + 0001:0018A378 TfrmTemplateFieldEditor.mnuCopyClick + 0001:0018A3D0 TfrmTemplateFieldEditor.SetFld + 0001:0018A3DC TfrmTemplateFieldEditor.mnuDeleteClick + 0001:0018A87C TfrmTemplateFieldEditor.ResetListEntry + 0001:0018A938 TfrmTemplateFieldEditor.btnPreviewClick + 0001:0018AA50 TfrmTemplateFieldEditor.EnableButtons + 0001:0018AAF0 TfrmTemplateFieldEditor.mnuActionClick + 0001:0018AAF8 TfrmTemplateFieldEditor.cbRequiredClick + 0001:0018AB48 TfrmTemplateFieldEditor.pnlObjsResize + 0001:0018AB60 TfrmTemplateFieldEditor.FormDestroy + 0001:0018AB88 TfrmTemplateFieldEditor.SetHideSynonyms + 0001:0018ABB0 TfrmTemplateFieldEditor.cbxObjsSynonymCheck + 0001:0018ABFC TfrmTemplateFieldEditor.popTextPopup + 0001:0018AE44 TfrmTemplateFieldEditor.GetPopupControl + 0001:0018AE70 TfrmTemplateFieldEditor.mnuBPUndoClick + 0001:0018AE88 TfrmTemplateFieldEditor.mnuBPCutClick + 0001:0018AE98 TfrmTemplateFieldEditor.mnuBPCopyClick + 0001:0018AEA8 TfrmTemplateFieldEditor.mnuBPPasteClick + 0001:0018AF00 TfrmTemplateFieldEditor.mnuBPSelectAllClick + 0001:0018AF10 TfrmTemplateFieldEditor.mnuBPCheckGrammarClick + 0001:0018AF38 TfrmTemplateFieldEditor.mnuBPSpellCheckClick + 0001:0018AF60 TfrmTemplateFieldEditor.cbSepLinesClick + 0001:0018AFAC TfrmTemplateFieldEditor.edtpopControlEnter + 0001:0018B028 TfrmTemplateFieldEditor.cbxObjsKeyDown + 0001:0018B05C TfrmTemplateFieldEditor.edtTextLenChange + 0001:0018B104 TfrmTemplateFieldEditor.edtDefNumChange + 0001:0018B208 TfrmTemplateFieldEditor.edtMinValChange + 0001:0018B2C0 TfrmTemplateFieldEditor.edtMaxValChange + 0001:0018B378 TfrmTemplateFieldEditor.edtIncChange + 0001:0018B3DC TfrmTemplateFieldEditor.edtURLChange + 0001:0018B464 TfrmTemplateFieldEditor.edtPadChange + 0001:0018B4BC TfrmTemplateFieldEditor.edtIndentChange + 0001:0018B514 TfrmTemplateFieldEditor.reNotesChange + 0001:0018B590 TfrmTemplateFieldEditor.cbxDateTypeChange + 0001:0018B648 TfrmTemplateFieldEditor.cbExcludeClick + 0001:0018B698 TfrmTemplateFieldEditor.FormResize + 0001:0018B6C0 TfrmTemplateFieldEditor.reItemsResizeRequest + 0001:0018B720 TfrmTemplateFieldEditor.reItemsSelectionChange + 0001:0018B7F4 TfrmTemplateFieldEditor.mnuInsertTemplateFieldClick + 0001:0018B8B4 TfrmTemplateFieldEditor.ControlExit + 0001:0018B8D0 TfrmTemplateFieldEditor.reNotesKeyUp + 0001:0018B97C Finalization + 0001:0018B9AC fTemplateFieldEditor + 0001:0018BA40 Text2XML + 0001:0018BB24 FindXMLElement + 0001:0018BC4C FindXMLAttributeValue + 0001:0018BDC4 GetXMLWPText + 0001:0018BF6C Finalization + 0001:0018BFC8 XMLUtils + 0001:0018C14C Finalization + 0001:0018C17C mImgText + 0001:0018C8CC ShowIconLegend + 0001:0018C958 TfrmIconLegend.btnOKClick + 0001:0018C960 TfrmIconLegend.ShowTab + 0001:0018C9E4 TfrmIconLegend.FormClose + 0001:0018C9E8 TfrmIconLegend.FormDestroy + 0001:0018CA04 TfrmIconLegend.SetFontSize + 0001:0018CABC TfrmIconLegend.SnapLabels + 0001:0018CB40 TfrmIconLegend.FormKeyDown + 0001:0018CB9C Finalization + 0001:0018CBCC fIconLegend + 0001:0018CEA8 SelectDevice + 0001:0018D190 TfrmDeviceSelect.cboDeviceChange + 0001:0018D258 TfrmDeviceSelect.cmdOKClick + 0001:0018D3D8 TfrmDeviceSelect.cmdCancelClick + 0001:0018D3F0 TfrmDeviceSelect.cboDeviceNeedData + 0001:0018D418 TfrmDeviceSelect.FormShow + 0001:0018D420 TfrmDeviceSelect.FormClose + 0001:0018D428 Finalization + 0001:0018D464 fDeviceSelect + 0001:0018D46C GetCurrentReminders + 0001:0018D4D4 GetOtherReminders + 0001:0018D554 EvaluateReminders + 0001:0018D6AC EvaluateReminder + 0001:0018D778 GetEducationTopicsForReminder + 0001:0018D7B8 GetEducationSubtopics + 0001:0018D7FC GetReminderWebPages + 0001:0018D894 DetailReminder + 0001:0018D954 ReminderInquiry + 0001:0018D9A4 EducationTopicDetail + 0001:0018D9F4 GetDialogInfo + 0001:0018DAF0 GetDialogPrompts + 0001:0018DBA0 GetDialogStatus + 0001:0018DCB0 GetRemindersActive + 0001:0018DD68 GetProgressNoteHeader + 0001:0018DDC0 LoadMentalHealthTest + 0001:0018DE4C MentalHealthTestResults + 0001:0018E1FC SaveMentalHealthTest + 0001:0018E428 SaveWomenHealthData + 0001:0018E470 CheckGECValue + 0001:0018E73C SaveMSTDataFromReminder + 0001:0018E83C GetReminderFolders + 0001:0018E8B0 SetReminderFolders + 0001:0018E8EC GetDefLocations + 0001:0018E97C InsertRemTextAtCursor + 0001:0018EA24 NewRemCoverSheetListActive + 0001:0018EAD0 CanEditAllRemCoverSheetLists + 0001:0018EB14 GetCoverSheetLevelData + 0001:0018EBB4 SetCoverSheetLevelData + 0001:0018ED44 GetCategoryItems + 0001:0018ED90 GetAllRemindersAndCategories + 0001:0018EDD8 VerifyMentalHealthTestComplete + 0001:0018EF9C Finalization + 0001:0018EFD8 rReminders + 0001:0018F1AC AcceptOrderWithChecks + 0001:0018F2F4 Finalization + 0001:0018F324 fOCAccept + 0001:0018F32C AddFillerAppID + 0001:0018F358 ClearFillerAppList + 0001:0018F364 SetOrderFormIDOnCreate + 0001:0018F36C OrderFormIDOnCreate + 0001:0018F374 SetOrderEventTypeOnCreate + 0001:0018F37C OrderEventTypeOnCreate + 0001:0018F384 SetOrderEventIDOnCreate + 0001:0018F38C OrderEventNameOnCreate + 0001:0018F3A0 OrderEventIDOnCreate + 0001:0018F3A8 GetKeyVars + 0001:0018F3DC PopKeyVars + 0001:0018F40C PushKeyVars + 0001:0018F4D0 ExpandOrderObjects + 0001:0018F820 Finalization + 0001:0018F870 uODBase + 0001:0018F8DC Finalization + 0001:0018F90C fODMessage + 0001:0018F984 Finalization + 0001:0018F9B4 CPRSChart_TLB + 0001:0018F9BC GetPatientChangeGUIDs + 0001:0018FA2C GetOrderAcceptGUIDs + 0001:0018FA6C GetAllActiveCOMObjects + 0001:0018FAA4 GetCOMObjectDetails + 0001:0018FAE4 Finalization + 0001:0018FB14 rEventHooks + 0001:0018FF80 EnsureEventHookObjects + 0001:0018FF9C TCPRSBroker.Create + 0001:00190064 TCPRSBroker.CallRPC + 0001:00190354 TCPRSBroker.DebugMode + 0001:001903A0 TCPRSBroker.Get_ClearParameters + 0001:001903E0 TCPRSBroker.Get_ClearResults + 0001:00190420 TCPRSBroker.Get_Param + 0001:00190474 TCPRSBroker.Get_ParamList + 0001:001904F8 TCPRSBroker.Get_ParamType + 0001:00190564 TCPRSBroker.Get_Results + 0001:001905B0 TCPRSBroker.Get_RPCVersion + 0001:001905FC TCPRSBroker.ParamCount + 0001:00190640 TCPRSBroker.ParamListCount + 0001:00190690 TCPRSBroker.Port + 0001:001906D4 TCPRSBroker.Server + 0001:00190728 TCPRSBroker.Set_ClearParameters + 0001:00190768 TCPRSBroker.Set_ClearResults + 0001:001907A8 TCPRSBroker.Set_Param + 0001:001907F4 TCPRSBroker.Set_ParamList + 0001:00190870 TCPRSBroker.Set_ParamType + 0001:001908F4 TCPRSBroker.Set_Results + 0001:00190934 TCPRSBroker.Set_RPCVersion + 0001:00190974 TCPRSBroker.SetContext + 0001:001909C4 TCPRSBroker.Initialize + 0001:00190A1C TCPRSBroker.Destroy + 0001:00190A54 TCPRSState.Create + 0001:00190B4C TCPRSState.Handle + 0001:00190B98 TCPRSState.LocationIEN + 0001:00190BDC TCPRSState.LocationName + 0001:00190C40 TCPRSState.PatientDFN + 0001:00190C90 TCPRSState.PatientDOB + 0001:00190D14 TCPRSState.PatientName + 0001:00190D64 TCPRSState.PatientSSN + 0001:00190DB4 TCPRSState.UserDUZ + 0001:00190E1C TCPRSState.UserName + 0001:00190E6C TCPRSEventHookManager.Create + 0001:00190EDC TCPRSEventHookManager.Destroy + 0001:00190F20 TCPRSEventHookManager.EnterCriticalSection + 0001:00190F2C TCPRSEventHookManager.LeaveCriticalSection + 0001:00190F38 TCPRSEventHookManager.ProcessComObject + 0001:001912DC FreeEventHookObjects + 0001:001912E8 RegisterCPRSTypeLibrary + 0001:00191588 ProcessPatientChangeEventHook + 0001:00191650 ProcessOrderAcceptEventHook + 0001:00191730 GetCOMObjectText + 0001:00191804 COMObjectOK + 0001:00191878 COMObjectActive + 0001:00191880 Finalization + 0001:001918B8 uEventHooks + 0001:00191914 DietAttributes + 0001:00191960 LoadDietParams + 0001:00191D84 CurrentDietText + 0001:00191DD8 AppendTFProducts + 0001:00191E28 ExpandedQuantity + 0001:00191EA0 SubSetOfDiets + 0001:00191EF8 SubSetOfOPDiets + 0001:00191F3C OrderLateTray + 0001:00191FD0 IsolationID + 0001:00192010 CurrentIsolation + 0001:00192058 LoadIsolations + 0001:001920A8 LoadDietQuickList + 0001:00192108 DietDialogType + 0001:001921A8 OutpatientPatchInstalled + 0001:00192230 UserHasFHAUTHKey + 0001:00192268 GetCurrentRecurringOPMeals + 0001:00192314 OutpatientLocationConfigured + 0001:001923B8 Finalization + 0001:001923E8 rODDiet + 0001:00192674 AMPMToFMTime + 0001:001927AC SetAvailTimes + 0001:00192878 CheckLateTray + 0001:001930B0 TfrmODDietLT.FormCreate + 0001:001930B8 TfrmODDietLT.cmdYesClick + 0001:00193168 TfrmODDietLT.cmdNoClick + 0001:00193170 Finalization + 0001:001931A0 fODDietLT + 0001:00193248 GetModuleFileName + 0001:0019327C GetModuleName + 0001:001932DC LoadTypeLibrary + 0001:0019333C RegisterTypeLibrary + 0001:001933D8 UnregisterTypeLibrary + 0001:001934C0 GetTypeLibName + 0001:00193538 AutomationTerminateProc + 0001:001935F4 FindSwitch + 0001:00193624 TComServer.Create + 0001:001936FC TComServer.Destroy + 0001:00193728 TComServer.CountObject + 0001:001937A4 TComServer.CountFactory + 0001:001937BC TComServer.FactoryFree + 0001:001937C4 TComServer.FactoryRegisterClassObject + 0001:001937CC TComServer.FactoryUpdateRegistry + 0001:001937E4 TComServer.GetHelpFileName + 0001:001937F8 TComServer.GetServerFileName + 0001:00193804 TComServer.GetServerKey + 0001:0019385C TComServer.GetServerName + 0001:00193894 TComServer.GetTypeLib + 0001:001938B0 TComServer.LastReleased + 0001:00193918 TComServer.LoadTypeLib + 0001:00193984 TComServer.UpdateRegistry + 0001:001939FC InitComServer + 0001:00193A58 TComServer.GetStartSuspended + 0001:00193A5C TComServer.SetHelpFileName + 0001:00193A70 TComServer.Initialize + 0001:00193B10 Finalization + 0001:00193B5C uComServ + 0001:00193EB4 TAccessibleStringGrid.accHitTest + 0001:00193FBC TAccessibleStringGrid.accNavigate + 0001:0019426C TAccessibleStringGrid.Get_accChild + 0001:001942CC TAccessibleStringGrid.Get_accChildCount + 0001:0019432C TAccessibleStringGrid.Get_accDefaultAction + 0001:001943D8 TAccessibleStringGrid.Get_accDescription + 0001:00194484 TAccessibleStringGrid.Get_accFocus + 0001:0019452C TAccessibleStringGrid.Get_accHelp + 0001:001945D8 TAccessibleStringGrid.Get_accHelpTopic + 0001:0019468C TAccessibleStringGrid.Get_accKeyboardShortcut + 0001:00194738 TAccessibleStringGrid.Get_accName + 0001:0019495C TAccessibleStringGrid.Get_accParent + 0001:001949EC TAccessibleStringGrid.Get_accRole + 0001:00194A8C TAccessibleStringGrid.Get_accSelection + 0001:00194B24 TAccessibleStringGrid.Get_accState + 0001:00194D40 TAccessibleStringGrid.Get_accValue + 0001:00194E80 TAccessibleStringGrid.accDoDefaultAction + 0001:00194F10 TAccessibleStringGrid.accLocation + 0001:00195024 TAccessibleStringGrid.accSelect + 0001:001950B8 TAccessibleStringGrid.Set_accName + 0001:0019514C TAccessibleStringGrid.Set_accValue + 0001:001951EC TAccessibleStringGrid.ChildType + 0001:00195284 TAccessibleStringGrid.GetDefaultObject + 0001:001952F4 TAccessibleStringGrid.SafeCallException + 0001:00195324 TAccessibleStringGrid.UnwrapControl + 0001:00195338 TAccessibleStringGrid.WrapControl + 0001:001953A8 Finalization + 0001:001953D8 uAccessibleStringGrid + 0001:00196100 TfrmODDiet.FormCreate + 0001:0019652C TfrmODDiet.FormDestroy + 0001:0019656C TfrmODDiet.FormResize + 0001:00196724 TfrmODDiet.InitDialog + 0001:00196750 TfrmODDiet.SetupDialog + 0001:00196C5C SetError + 0001:00196CB0 MealTimePassed + 0001:00196E30 OPMealTimePassed + 0001:00196F40 TfrmODDiet.Validate + 0001:00197DE0 TfrmODDiet.nbkDietChanging + 0001:00198084 TfrmODDiet.nbkDietChange + 0001:00198FA8 TfrmODDiet.DietCheckForNPO + 0001:001990A4 TfrmODDiet.DietCheckForTF + 0001:00199214 TfrmODDiet.ResetControlsDO + 0001:001992B0 TfrmODDiet.SetValuesFromResponsesDO + 0001:00199508 TfrmODDiet.cboDietAvailNeedData + 0001:00199538 SetError + 0001:00199560 TfrmODDiet.cboDietAvailMouseClick + 0001:00199AC0 TfrmODDiet.cboDietAvailExit + 0001:00199B60 TfrmODDiet.cmdRemoveClick + 0001:00199C0C TfrmODDiet.DietChange + 0001:0019A040 TfrmODDiet.ResetControlsTF + 0001:0019A088 TfrmODDiet.SetValuesFromResponsesTF + 0001:0019A348 TfrmODDiet.TFClearGrid + 0001:0019A3B8 TfrmODDiet.cboProductMouseClick + 0001:0019A61C TfrmODDiet.cboProductExit + 0001:0019A6BC TfrmODDiet.grdSelectedDrawCell + 0001:0019A798 PlaceControl + 0001:0019A824 TfrmODDiet.grdSelectedSelectCell + 0001:0019A954 TfrmODDiet.SetNextCell + 0001:0019A980 TfrmODDiet.TFMoveToNextCell + 0001:0019AA34 TfrmODDiet.TFSetAmountForRow + 0001:0019ABA8 TfrmODDiet.TFStrengthCode + 0001:0019AC54 TfrmODDiet.cboStrengthEnter + 0001:0019AC80 TfrmODDiet.cboStrengthKeyDown + 0001:0019AD14 TfrmODDiet.cboStrengthChange + 0001:0019ADBC TfrmODDiet.cboStrengthExit + 0001:0019AE94 TfrmODDiet.txtQuantityEnter + 0001:0019AEB4 TfrmODDiet.txtQuantityKeyDown + 0001:0019B128 TfrmODDiet.txtQuantityChange + 0001:0019B1D0 TfrmODDiet.txtQuantityExit + 0001:0019B2A8 TfrmODDiet.cmdTFRemoveClick + 0001:0019B378 TfrmODDiet.TFChange + 0001:0019B798 TfrmODDiet.ResetControlsEL + 0001:0019B900 TfrmODDiet.SetValuesFromResponsesEL + 0001:0019BE24 TfrmODDiet.GetMealTime + 0001:0019BF20 TfrmODDiet.GetDaysOfWeek + 0001:0019C090 TfrmODDiet.IsEarlyTray + 0001:0019C0F0 ActivateButton + 0001:0019C154 SetMealTimes + 0001:0019C2BC TfrmODDiet.grpMealClick + 0001:0019C44C TfrmODDiet.SetEnableDOW + 0001:0019C4E4 TfrmODDiet.calELStartEnter + 0001:0019C54C TfrmODDiet.calELStartChange + 0001:0019C5C8 TfrmODDiet.calELStartExit + 0001:0019C688 TfrmODDiet.calELStopChange + 0001:0019C730 TfrmODDiet.ELChange + 0001:0019CBC8 TfrmODDiet.ResetControlsIP + 0001:0019CBF8 TfrmODDiet.SetValuesFromResponsesIP + 0001:0019CC8C TfrmODDiet.IPChange + 0001:0019CE80 TfrmODDiet.ResetControlsAO + 0001:0019CEAC TfrmODDiet.SetValuesFromResponsesAO + 0001:0019CF40 TfrmODDiet.AOChange + 0001:0019D0F8 TfrmODDiet.cboOPDietAvailMouseClick + 0001:0019D438 TfrmODDiet.cboOPDietAvailExit + 0001:0019D4D8 TfrmODDiet.ResetControlsOP + 0001:0019D728 TfrmODDiet.SetValuesFromResponsesOP + 0001:0019DBB8 TfrmODDiet.calOPStartEnter + 0001:0019DC20 TfrmODDiet.calOPStartChange + 0001:0019DCA8 TfrmODDiet.FMDOW + 0001:0019DCE0 TfrmODDiet.FMDays + 0001:0019DDA4 TfrmODDiet.calOPStartExit + 0001:0019DEE4 TfrmODDiet.calOPStopChange + 0001:0019E034 TfrmODDiet.OPChange + 0001:0019E498 TfrmODDiet.grpOPMealClick + 0001:0019E4B4 TfrmODDiet.SetEnableOPDOW + 0001:0019E6FC TfrmODDiet.GetOPDaysOfWeek + 0001:0019E86C TfrmODDiet.cmdOPRemoveClick + 0001:0019E918 TfrmODDiet.GetOPMealWindow + 0001:0019E9A8 TfrmODDiet.OPDietCheckForNPO + 0001:0019EAA4 TfrmODDiet.OPDietCheckForTF + 0001:0019EC14 TfrmODDiet.cmdAcceptClick + 0001:0019F050 TfrmODDiet.FormKeyDown + 0001:0019F0C0 TfrmODDiet.cboOPDietAvailKeyDown + 0001:0019F0EC TfrmODDiet.PatientHasRecurringMeals + 0001:0019F2D4 Finalization + 0001:0019F320 fODDiet + 0001:0019F578 TfrmODMisc.FormCreate + 0001:0019F634 TfrmODMisc.InitDialog + 0001:0019F65C TfrmODMisc.SetupDialog + 0001:0019F73C SetError + 0001:0019F78C TfrmODMisc.Validate + 0001:0019F940 TfrmODMisc.cboCareNeedData + 0001:0019F97C TfrmODMisc.ControlChange + 0001:0019FB9C Finalization + 0001:0019FBCC fODMisc + 0001:0019FE3C TfrmODGen.FormCreate + 0001:001A0038 TfrmODGen.FormClose + 0001:001A0178 TfrmODGen.SetDialogIEN + 0001:001A0244 TfrmODGen.SetupDialog + 0001:001A04C0 TfrmODGen.InitDialog + 0001:001A05AC SetError + 0001:001A05FC TfrmODGen.Validate + 0001:001A0930 TfrmODGen.PlaceControls + 0001:001A0BF4 TfrmODGen.PlaceDateTime + 0001:001A0D1C TfrmODGen.PlaceFreeText + 0001:001A0E68 TfrmODGen.PlaceNumeric + 0001:001A0F5C TfrmODGen.PlaceSetOfCodes + 0001:001A1138 TfrmODGen.PlaceYesNo + 0001:001A126C TfrmODGen.PlaceLookup + 0001:001A16FC TfrmODGen.LookupNeedData + 0001:001A17C4 TfrmODGen.PlaceMemo + 0001:001A18B4 TfrmODGen.PlaceHidden + 0001:001A18D4 TfrmODGen.PlaceLabel + 0001:001A1954 TfrmODGen.ControlChange + 0001:001A1CC0 Finalization + 0001:001A1CF0 fODGen + 0001:001A1F28 SelectFormularyAlt + 0001:001A21E0 TfrmODMedFA.FormCreate + 0001:001A21F0 TfrmODMedFA.lstFormAltClick + 0001:001A2214 TfrmODMedFA.cmdYesClick + 0001:001A2290 TfrmODMedFA.cmdNoClick + 0001:001A2298 Finalization + 0001:001A22C8 fODMedFA + 0001:001A262C TfrmODMedIn.FormCreate + 0001:001A278C TfrmODMedIn.InitDialog + 0001:001A28E4 TfrmODMedIn.SetupDialog + 0001:001A2ABC SetError + 0001:001A2B10 TfrmODMedIn.Validate + 0001:001A32EC TfrmODMedIn.ResetOnMedChange + 0001:001A334C TfrmODMedIn.SetAltCombo + 0001:001A3468 TfrmODMedIn.SetOnOISelect + 0001:001A3640 TfrmODMedIn.cboMedicationNeedData + 0001:001A3688 TfrmODMedIn.cboMedicationSelect + 0001:001A398C TfrmODMedIn.CheckFormAlt + 0001:001A3AD8 TfrmODMedIn.cboDispenseExit + 0001:001A3BB8 TfrmODMedIn.cboDispenseMouseClick + 0001:001A3C70 TfrmODMedIn.ControlChange + 0001:001A4158 Finalization + 0001:001A4188 fODMedIn + 0001:001A45B4 ExecuteComplexDose + 0001:001A4BF4 TfrmODMedComplex.ValFor + 0001:001A4E40 FindInCombo + 0001:001A4F48 TfrmODMedComplex.FormCreate + 0001:001A5014 TfrmODMedComplex.grdDosesMouseDown + 0001:001A5080 TfrmODMedComplex.grdDosesKeyPress + 0001:001A50D0 TfrmODMedComplex.grdDosesMouseUp + 0001:001A5158 TfrmODMedComplex.grdDosesDrawCell + 0001:001A51F8 PlaceControl + 0001:001A527C TfrmODMedComplex.ShowEditor + 0001:001A5678 TfrmODMedComplex.UMDelayEvent + 0001:001A574C TfrmODMedComplex.pnlInstructEnter + 0001:001A5780 TfrmODMedComplex.pnlInstructExit + 0001:001A58F4 TfrmODMedComplex.btnUnitsClick + 0001:001A5934 TfrmODMedComplex.UnitClick + 0001:001A5944 TfrmODMedComplex.cboRouteClick + 0001:001A5AF0 TfrmODMedComplex.cboRouteExit + 0001:001A5B10 TfrmODMedComplex.cboScheduleExit + 0001:001A5B84 TfrmODMedComplex.pnlDaysEnter + 0001:001A5B94 TfrmODMedComplex.pnlDaysExit + 0001:001A5C70 TfrmODMedComplex.txtDaysChange + 0001:001A5CE0 TfrmODMedComplex.cmdInsertClick + 0001:001A5E68 TfrmODMedComplex.cmdRemoveClick + 0001:001A5EE4 SetError + 0001:001A5F34 TfrmODMedComplex.Validate + 0001:001A6258 TfrmODMedComplex.cmdOKClick + 0001:001A62E0 TfrmODMedComplex.cmdCancelClick + 0001:001A62E8 Finalization + 0001:001A6318 fODMedComplex + 0001:001A67E8 TfrmODMedOut.FormCreate + 0001:001A695C TfrmODMedOut.InitDialog + 0001:001A6AB8 TfrmODMedOut.SetupDialog + 0001:001A6D6C SetError + 0001:001A6DBC TfrmODMedOut.Validate + 0001:001A7630 TfrmODMedOut.ResetOnMedChange + 0001:001A76BC TfrmODMedOut.SetAltCombo + 0001:001A77AC TfrmODMedOut.SetOnOISelect + 0001:001A79D0 TfrmODMedOut.cboMedicationNeedData + 0001:001A7A0C TfrmODMedOut.cboMedicationSelect + 0001:001A7CE8 TfrmODMedOut.CheckFormAlt + 0001:001A7E18 TfrmODMedOut.SetMaxRefills + 0001:001A7F54 TfrmODMedOut.cboDispenseExit + 0001:001A8044 TfrmODMedOut.cboDispenseMouseClick + 0001:001A80EC TfrmODMedOut.SetupNouns + 0001:001A81F4 TfrmODMedOut.btnUnitsClick + 0001:001A8234 TfrmODMedOut.UnitClick + 0001:001A8244 TfrmODMedOut.SetComplex + 0001:001A82DC TfrmODMedOut.SetSimple + 0001:001A83D0 TfrmODMedOut.SetInstructions + 0001:001A8790 TfrmODMedOut.cmdComplexClick + 0001:001A8810 TfrmODMedOut.txtQuantityEnter + 0001:001A8880 TfrmODMedOut.SetAskSC + 0001:001A8940 TfrmODMedOut.cboSCEnter + 0001:001A898C TfrmODMedOut.memCommentsEnter + 0001:001A8994 TfrmODMedOut.ControlChange + 0001:001A8FFC Finalization + 0001:001A902C fODMedOut + 0001:001A9248 TfrmODText.FormCreate + 0001:001A92E4 TfrmODText.InitDialog + 0001:001A9300 TfrmODText.SetupDialog + 0001:001A93B0 SetError + 0001:001A9400 TfrmODText.Validate + 0001:001A9618 TfrmODText.ControlChange + 0001:001A97A4 Finalization + 0001:001A97D4 fODText + 0001:001A97FC Finalization + 0001:001A982C DBConsts + 0001:001A9AB4 IsSQLTimeStampBlank + 0001:001A9B14 TSQLTimeStampData.GetIsBlank + 0001:001A9B34 TSQLTimeStampData.AdjustMonths + 0001:001A9B84 TSQLTimeStampData.AdjustDays + 0001:001A9C00 TSQLTimeStampData.AdjustHours + 0001:001A9C5C TSQLTimeStampData.AdjustMinutes + 0001:001A9CB8 TSQLTimeStampData.AdjustSeconds + 0001:001A9D14 TSQLTimeStampData.AdjustDate + 0001:001A9D9C TSQLTimeStampData.DaysInMonth + 0001:001A9DC8 TSQLTimeStampData.DoSubtract + 0001:001A9E44 TSQLTimeStampData.DoAdd + 0001:001A9ECC TSQLTimeStampData.Compare + 0001:001A9FBC TSQLTimeStampData.GetAsString + 0001:001A9FDC TSQLTimeStampData.GetAsDateTime + 0001:001A9FFC TSQLTimeStampData.SetAsString + 0001:001AA028 TSQLTimeStampData.SetAsDateTime + 0001:001AA058 TSQLTimeStampData.Create + 0001:001AA0BC TSQLTimeStampData.Create + 0001:001AA11C TSQLTimeStampData.Create + 0001:001AA17C TSQLTimeStampData.Create + 0001:001AA1C8 TSQLTimeStampData.SetDay + 0001:001AA1E4 TSQLTimeStampData.SetFractions + 0001:001AA200 TSQLTimeStampData.SetHour + 0001:001AA21C TSQLTimeStampData.SetMinute + 0001:001AA238 TSQLTimeStampData.SetMonth + 0001:001AA254 TSQLTimeStampData.SetSecond + 0001:001AA270 TSQLTimeStampData.SetYear + 0001:001AA28C TSQLTimeStampVariantType.Clear + 0001:001AA2B0 TSQLTimeStampVariantType.Cast + 0001:001AA3E0 TSQLTimeStampVariantType.CastTo + 0001:001AA520 TSQLTimeStampVariantType.Copy + 0001:001AA580 TSQLTimeStampVariantType.GetInstance + 0001:001AA59C TSQLTimeStampVariantType.BinaryOp + 0001:001AA5EC TSQLTimeStampVariantType.Compare + 0001:001AA618 SQLTimeStampToStr + 0001:001AA654 IsSqlTimeStampValid + 0001:001AA6B4 TryStrToSQLTimeStamp + 0001:001AA718 StrToSQLTimeStamp + 0001:001AA788 DateTimeToSQLTimeStamp + 0001:001AA7E8 SQLTimeStampToDateTime + 0001:001AA894 CheckSqlTimeStamp + 0001:001AA9EC Finalization + 0001:001AAA28 SqlTimSt + 0001:001AACF8 BcdErrorFmt + 0001:001AAD68 BcdError + 0001:001AAD88 OverflowError + 0001:001AADA8 TFMTBcdData.DoAdd + 0001:001AADE0 TFMTBcdData.DoAdd + 0001:001AAE00 TFMTBcdData.DoSubtract + 0001:001AAE38 TFMTBcdData.DoSubtract + 0001:001AAE58 TFMTBcdData.DoMultiply + 0001:001AAE94 TFMTBcdData.DoDivide + 0001:001AAED0 TFMTBcdData.Compare + 0001:001AAEF8 TFMTBcdData.GetAsString + 0001:001AAF18 TFMTBcdData.GetAsDouble + 0001:001AAF74 TFMTBcdData.GetAsInteger + 0001:001AAFD0 TFMTBcdData.GetAsSmallInt + 0001:001AAFF0 TFMTBcdData.GetAsCurrency + 0001:001AB010 TFMTBcdData.SetAsString + 0001:001AB044 TFMTBcdData.SetAsDouble + 0001:001AB0B8 TFMTBcdData.SetAsInteger + 0001:001AB124 TFMTBcdData.SetAsSmallInt + 0001:001AB144 TFMTBcdData.SetAsCurrency + 0001:001AB16C TFMTBcdData.Create + 0001:001AB1C4 TFMTBcdData.Create + 0001:001AB294 TFMTBcdData.Create + 0001:001AB348 TFMTBcdData.Create + 0001:001AB394 TFMTBcdVariantType.Clear + 0001:001AB3B8 TFMTBcdVariantType.Cast + 0001:001AB4F0 TFMTBcdVariantType.CastTo + 0001:001AB630 TFMTBcdVariantType.Copy + 0001:001AB690 TFMTBcdVariantType.BinaryOp + 0001:001AB70C TFMTBcdVariantType.GetInstance + 0001:001AB728 TFMTBcdVariantType.Compare + 0001:001AB754 StrToBcd + 0001:001AB7C0 BcdToDouble + 0001:001AB818 RoundAt + 0001:001AB9A0 LeftTrim + 0001:001AB9F4 CompareDigits + 0001:001ABAB8 GetValueAndMultiplyOrder + 0001:001ABC80 AddChars + 0001:001ABD00 SubtractChars + 0001:001ABD60 AddStrings + 0001:001ABEE8 SubtractStrings + 0001:001AC11C _ShortMultiply + 0001:001AC32C StringMultiplyByByte + 0001:001AC3E8 _LongMultiply + 0001:001AC6B8 CanUseShort + 0001:001AC724 BlankArgument + 0001:001AC770 _Multiply + 0001:001AC7F4 NextDigit + 0001:001AC8C4 AdjustDecimalPosition + 0001:001ACAA8 ValueOverOne + 0001:001ACD64 _LongDivide + 0001:001ACEF4 _Divide + 0001:001AD028 _GetRemainder + 0001:001AD038 _GetSubRemainder + 0001:001AD048 _CopyBytes + 0001:001AD058 _CopyOddFractions + 0001:001AD080 _CopyRestBlank + 0001:001AD090 NormalizeFractions + 0001:001AD174 StrToFraction + 0001:001AD1C0 InvalidBcdString + 0001:001AD248 TryStrToBcd + 0001:001AD48C SignificantIntDigits + 0001:001AD4D0 SubtractNormalizedFractions + 0001:001AD588 AddNormalizedFractions + 0001:001AD640 CompareNormalizedFractions + 0001:001AD6E8 ReverseNegative + 0001:001AD710 MoveNibbles + 0001:001AD778 NormalizeBcd + 0001:001AD8D8 NumberOfDigits + 0001:001AD914 CompactBcd + 0001:001AD9DC AdjustNibbles + 0001:001ADA78 NormalizeBcdPair + 0001:001ADC00 BcdCompare + 0001:001ADD14 BcdSubtract + 0001:001ADD58 BcdMultiply + 0001:001ADE68 BcdMultiply + 0001:001ADEDC BcdDivide + 0001:001AE05C BcdDivide + 0001:001AE0D0 BcdAdd + 0001:001AE274 AddOneChar + 0001:001AE298 AddDigit + 0001:001AE318 FractionToStr + 0001:001AE470 BcdToStr + 0001:001AE5D0 BcdScale + 0001:001AE5F4 CurrToBCD + 0001:001AE680 BCDToCurr + 0001:001AE718 Finalization + 0001:001AE754 FMTBcd + 0001:001AEB8C TDefaultDBScreenApplication.GetCursor + 0001:001AEBA8 TDefaultDBScreenApplication.GetTitle + 0001:001AEBC8 TDefaultDBScreenApplication.ProcessMessages + 0001:001AEBD4 TDefaultDBScreenApplication.SetCursor + 0001:001AEBF0 TDefaultDBScreenApplication.SetTitle + 0001:001AEC10 Finalization + 0001:001AEC6C DB + 0001:001AED50 Finalization + 0001:001AED80 VDBConsts + 0001:001AEFCC LoginDialog + 0001:001AF0EC LoginDialogEx + 0001:001AF224 RemoteLoginDialog + 0001:001AF40C TLoginDialog.FormShow + 0001:001AF474 SetCursorType + 0001:001AF490 Finalization + 0001:001AF4C0 DBLogDlg + 0001:001AF7A0 PasswordDialog + 0001:001AF814 TPasswordDialog.EditChange + 0001:001AF8B8 TPasswordDialog.AddButtonClick + 0001:001AF948 TPasswordDialog.RemoveButtonClick + 0001:001AF9CC TPasswordDialog.RemoveAllButtonClick + 0001:001AF9FC TPasswordDialog.OKButtonClick + 0001:001AFA60 Finalization + 0001:001AFA9C DBPWDlg + 0001:001AFBEC TVCLScreenApplication.GetCursor + 0001:001AFC30 TVCLScreenApplication.GetTitle + 0001:001AFC50 TVCLScreenApplication.ProcessMessages + 0001:001AFC68 TVCLScreenApplication.SetCursor + 0001:001AFCBC TVCLScreenApplication.SetTitle + 0001:001AFD58 Finalization + 0001:001AFD9C DBCtrls + 0001:001AFE10 Finalization + 0001:001AFE40 DBCommon + 0001:001AFE48 Finalization + 0001:001AFE78 MidConst + 0001:001AFE80 Finalization + 0001:001AFED0 DSIntf + 0001:001AFEE8 Finalization + 0001:001AFF18 Midas + 0001:001AFF20 Finalization + 0001:001AFF50 DataBkr + 0001:001B0040 Finalization + 0001:001B0088 Provider + 0001:001B0090 Finalization + 0001:001B00C0 DBClient + 0001:001B03C4 ValidGAFData + 0001:001B042C TfrmGAF.LoadScores + 0001:001B0618 TfrmGAF.cboGAFProviderNeedData + 0001:001B0640 TfrmGAF.BADData + 0001:001B08A4 TfrmGAF.edtScoreChange + 0001:001B0978 TfrmGAF.dteGAFExit + 0001:001B097C TfrmGAF.cboGAFProviderExit + 0001:001B0984 TfrmGAF.AllowTabChange + 0001:001B099C TfrmGAF.GetGAFScore + 0001:001B0A24 TfrmGAF.FormActivate + 0001:001B0A98 TfrmGAF.FormShow + 0001:001B0AB4 TfrmGAF.btnURLClick + 0001:001B0B10 TfrmGAF.FormCreate + 0001:001B0B98 Finalization + 0001:001B0BC8 fGAF + 0001:001B0E3C NoPrimaryPCEProvider + 0001:001B10AC TfrmPCEProvider.cboPrimaryNeedData + 0001:001B1148 TfrmPCEProvider.cboPrimaryChange + 0001:001B1234 TfrmPCEProvider.FormCreate + 0001:001B1250 TfrmPCEProvider.btnSelectClick + 0001:001B1394 TfrmPCEProvider.AskUser + 0001:001B1514 Finalization + 0001:001B1544 fPCEProvider + 0001:001B154C DEACheckFailed + 0001:001B1604 DEACheckFailedForIVOnOutPatient + 0001:001B16B4 ListForOrderable + 0001:001B179C SubsetOfOrderable + 0001:001B1888 IndexOfOrderable + 0001:001B1A18 IsActivateOI + 0001:001B1A98 ListForQuickOrders + 0001:001B1B80 SubsetOfQuickOrders + 0001:001B1C48 LoadFormularyAltOI + 0001:001B1CB0 LoadFormularyAltDose + 0001:001B1D28 LoadAdminInfo + 0001:001B1E40 LoadSchedules + 0001:001B1EC4 QtyToDays + 0001:001B1F8C DaysToQty + 0001:001B204C DefaultDays + 0001:001B20F8 CalcMaxRefills + 0001:001B21AC ScheduleRequired + 0001:001B2258 ODForMedsIn + 0001:001B22C4 ODForMedsOut + 0001:001B2330 OIForMed + 0001:001B23D4 GetPickupForLocation + 0001:001B2414 QOHasRouteDefined + 0001:001B24AC CheckExistingPI + 0001:001B253C Finalization + 0001:001B256C rODMeds + 0001:001B27DC CheckFormularyOI + 0001:001B2A08 CheckFormularyDose + 0001:001B2B78 TfrmODMedOIFA.FormCreate + 0001:001B2B88 TfrmODMedOIFA.lstFormAltClick + 0001:001B2BAC TfrmODMedOIFA.cmdYesClick + 0001:001B2C28 TfrmODMedOIFA.cmdNoClick + 0001:001B2C30 TfrmODMedOIFA.FormShow + 0001:001B2C38 TfrmODMedOIFA.FormClose + 0001:001B2C40 Finalization + 0001:001B2C70 fODMedOIFA + 0001:001B2C78 Finalization + 0001:001B2CA8 Vawrgrid + 0001:001B2FC8 TKeyVal.GetDHCPField + 0001:001B2FF4 TKeyVal.DHCPtoKeyVal + 0001:001B307C TComment.Create + 0001:001B31D4 TComment.Destroy + 0001:001B31FC TComment.TComtoDHCPCom + 0001:001B32CC TComment.GetExtDateAdd + 0001:001B3304 TComment.GetAge + 0001:001B3368 TPLPt.Create + 0001:001B3594 TPLPt.GetGMPDFN + 0001:001B3620 TPLPt.Today + 0001:001B36D8 TPLUserParams.Create + 0001:001B3A68 TPLUserParams.Destroy + 0001:001B3AA0 TPLFilters.create + 0001:001B3AFC TPLFilters.destroy + 0001:001B3B3C TProbRec.Create + 0001:001B414C TProbRec.Destroy + 0001:001B4254 TProbRec.EraseComments + 0001:001B4280 TProbRec.CreateFields + 0001:001B43E0 GetOrigVal + 0001:001B451C TProbRec.LoadField + 0001:001B4700 TProbRec.LoadComments + 0001:001B48E0 TProbRec.GetCommentCount + 0001:001B48E8 TProbRec.AddNewComment + 0001:001B4A08 TProbRec.GetModDatstr + 0001:001B4A20 TProbRec.SetModDatStr + 0001:001B4A70 TProbRec.SetDateString + 0001:001B4B88 TProbRec.GetOnsetDatstr + 0001:001B4BA0 TProbRec.SetOnsetDatStr + 0001:001B4BF0 TProbRec.GetSCProblem + 0001:001B4C14 TProbRec.GetCondition + 0001:001B4C2C TProbRec.SetCondition + 0001:001B4DEC TProbRec.SetSCProblem + 0001:001B4E68 TProbRec.GetAOProblem + 0001:001B4E8C TProbRec.SetAOProblem + 0001:001B4F08 TProbRec.GetRADProblem + 0001:001B4F2C TProbRec.SetRADProblem + 0001:001B4FA8 TProbRec.GetENVProblem + 0001:001B4FCC TProbRec.SetENVProblem + 0001:001B5048 TProbRec.GetHNCProblem + 0001:001B506C TProbRec.SetHNCProblem + 0001:001B50E8 TProbRec.GetMSTProblem + 0001:001B510C TProbRec.SetMSTProblem + 0001:001B5188 TProbRec.GetStatus + 0001:001B51A0 TProbRec.SetStatus + 0001:001B52A0 TProbRec.GetPriority + 0001:001B52B8 TProbRec.SetPriority + 0001:001B53B4 TProbRec.GetResDatstr + 0001:001B53CC TProbRec.SetResDatStr + 0001:001B541C TProbRec.GetRecDatstr + 0001:001B5434 TProbRec.SetRecDatStr + 0001:001B5484 TProbRec.GetFilerObject + 0001:001B56F0 TProbRec.GetAltFilerObject + 0001:001B58C0 DateStringOK + 0001:001B59E8 StripSpace + 0001:001B5A68 GetListforIP + 0001:001B5B5C GetListforOP + 0001:001B5C6C LoadFilterList + 0001:001B5CFC ShowFilterStatus + 0001:001B5E00 SetViewFilters + 0001:001B5F14 InitViewFilters + 0001:001B615C ForChars + 0001:001B6160 GetFontInfo + 0001:001B61FC FixQuotes + 0001:001B62C0 Finalization + 0001:001B6304 uProbs + 0001:001B630C AddSave + 0001:001B63C0 ClinicFilterList + 0001:001B641C ClinicSearch + 0001:001B64A4 ProblemDelete + 0001:001B6564 EditLoad + 0001:001B6614 EditSave + 0001:001B66E4 InitPt + 0001:001B672C InitUser + 0001:001B677C OldProblemLexiconSearch + 0001:001B6834 ProblemList + 0001:001B68C8 ProviderList + 0001:001B6994 ProblemReplace + 0001:001B6A18 ServiceFilterList + 0001:001B6A74 ServiceSearch + 0001:001B6AFC ProblemUpdate + 0001:001B6B40 ProblemVerify + 0001:001B6BC4 UserProblemCategories + 0001:001B6C20 UserProblemList + 0001:001B6CAC GetProblemComments + 0001:001B6D38 SaveViewPreferences + 0001:001B6DAC CheckForDuplicateProblem + 0001:001B6E6C Finalization + 0001:001B6E9C rProbs + 0001:001B72F8 GetViewFilters + 0001:001B7400 TfrmPlVuFilt.FormCreate + 0001:001B743C TfrmPlVuFilt.FormShow + 0001:001B75D0 TfrmPlVuFilt.cmdAddClick + 0001:001B76BC TfrmPlVuFilt.cmdRemoveClick + 0001:001B7770 TfrmPlVuFilt.cmdRemoveAllClick + 0001:001B778C TfrmPlVuFilt.SetButtons + 0001:001B7808 TfrmPlVuFilt.rgVuClick + 0001:001B7A54 TfrmPlVuFilt.lstDestClick + 0001:001B7A5C TfrmPlVuFilt.cboSourceChange + 0001:001B7A64 TfrmPlVuFilt.cboSourceEnter + 0001:001B7A74 TfrmPlVuFilt.cboSourceExit + 0001:001B7A84 TfrmPlVuFilt.cmdCancelClick + 0001:001B7A94 SetVu + 0001:001B7B90 TfrmPlVuFilt.cmdOKClick + 0001:001B7E20 TfrmPlVuFilt.cmdDefaultViewClick + 0001:001B7E24 TfrmPlVuFilt.FormClose + 0001:001B7E2C TfrmPlVuFilt.GetClinicList + 0001:001B7F0C TfrmPlVuFilt.GetServiceList + 0001:001B7FF0 TfrmPlVuFilt.GetLocationList + 0001:001B80EC TfrmPlVuFilt.cboProviderNeedData + 0001:001B813C TfrmPlVuFilt.cboSourceNeedData + 0001:001B819C TfrmPlVuFilt.CreateContextString + 0001:001B82D8 TfrmPlVuFilt.CreateFilterString + 0001:001B8488 TfrmPlVuFilt.cmdSaveClick + 0001:001B848C Finalization + 0001:001B84BC fProbflt + 0001:001B8754 TfrmPLLex.FormClose + 0001:001B876C TfrmPLLex.bbOKClick + 0001:001B8BA8 TfrmPLLex.bbCanClick + 0001:001B8BC0 TfrmPLLex.FormCreate + 0001:001B8C14 TfrmPLLex.ebLexKeyPress + 0001:001B8C4C SetLexList + 0001:001B8F00 TfrmPLLex.bbSearchClick + 0001:001B9268 TfrmPLLex.lbLexClick + 0001:001B9270 TfrmPLLex.FormShow + 0001:001B9280 Finalization + 0001:001B92B0 fProbLex + 0001:001B9448 TfrmOMAction.FormDestroy + 0001:001B94A0 TfrmOMAction.InitDialog + 0001:001B94A8 Finalization + 0001:001B94D8 fOMAction + 0001:001B9570 ODForAllergies + 0001:001B95C0 SearchForAllergies + 0001:001B964C SubsetofSymptoms + 0001:001B96B4 GetCWADInfo + 0001:001B96F8 LoadAllergyForEdit + 0001:001B9C60 SaveAllergy + 0001:001BA534 RPCEnterNKAForPatient + 0001:001BA698 SendARTBulletin + 0001:001BA908 ARTPatchInstalled + 0001:001BA950 GetSiteParams + 0001:001BAA84 MarkIDBand + 0001:001BAA98 RequireOriginatorComments + 0001:001BAAB0 EnableErrorComments + 0001:001BAAC8 IsARTClinicalUser + 0001:001BAC28 Finalization + 0001:001BAC80 rODAllergy + 0001:001BAEA8 GetFreeTextARTComment + 0001:001BB100 TfrmARTFreeTextMsg.cmdContinueClick + 0001:001BB12C Finalization + 0001:001BB15C fARTFreeTextMsg + 0001:001BB488 AllergyLookup + 0001:001BB50C TfrmAllgyFind.FormCreate + 0001:001BB52C TfrmAllgyFind.txtSearchChange + 0001:001BB558 TfrmAllgyFind.cmdSearchClick + 0001:001BBB74 TfrmAllgyFind.cmdOKClick + 0001:001BC3F8 TfrmAllgyFind.cmdCancelClick + 0001:001BC410 TfrmAllgyFind.ckNoKnownAllergiesClick + 0001:001BC4B8 TfrmAllgyFind.BuildAgentTree + 0001:001BC6E4 TfrmAllgyFind.tvAgentDblClick + 0001:001BC6EC Finalization + 0001:001BC71C fAllgyFind + 0001:001BC724 rpcGetNotifications + 0001:001BC77C rpcGetOrderChecks + 0001:001BC7D4 rpcGetNotificationDefaults + 0001:001BC814 rpcGetSurrogateInfo + 0001:001BC890 rpcCheckSurrogate + 0001:001BC964 rpcSetSurrogateInfo + 0001:001BC9D8 rpcClearNotifications + 0001:001BCA10 rpcSetNotifications + 0001:001BCA44 rpcSetOrderChecks + 0001:001BCA78 rpcSetOtherStuff + 0001:001BCAEC rpcGetOtherTabs + 0001:001BCB44 rpcGetOther + 0001:001BCB84 rpcSetOther + 0001:001BCBF8 rpcGetCosigners + 0001:001BCC60 rpcGetDefaultCosigner + 0001:001BCCA0 rpcSetDefaultCosigner + 0001:001BCCE0 rpcGetSubject + 0001:001BCD74 rpcSetSubject + 0001:001BCDA8 rpcGetClasses + 0001:001BCE00 rpcGetTitlesForClass + 0001:001BCE6C rpcGetTitlesForUser + 0001:001BCEB0 rpcGetTitleDefault + 0001:001BCF30 rpcSaveDocumentDefaults + 0001:001BCF7C rpcGetLabDays + 0001:001BD03C rpcGetLabUserDays + 0001:001BD100 rpcGetApptDays + 0001:001BD1F4 rpcGetApptUserDays + 0001:001BD2E8 rpcSetDays + 0001:001BD410 rpcGetReminders + 0001:001BD470 rpcSetReminders + 0001:001BD4A4 rpcGetListOrder + 0001:001BD528 rpcGetClinicUserDays + 0001:001BD618 rpcGetClinicDefaults + 0001:001BD790 rpcGetListSourceDefaults + 0001:001BD8A0 rpcSetClinicDefaults + 0001:001BDA74 rpcSetPtListDefaults + 0001:001BDBE0 rpcGetPersonalLists + 0001:001BDC40 rpcGetAllTeams + 0001:001BDCA0 rpcGetTeams + 0001:001BDD00 rpcGetATeams + 0001:001BDD60 rpcDeleteList + 0001:001BDDD4 rpcNewList + 0001:001BDE6C rpcSaveListChanges + 0001:001BDEB0 rpcListUsersByTeam + 0001:001BDF10 rpcRemoveList + 0001:001BDF44 rpcAddList + 0001:001BDF78 rpcGetCombo + 0001:001BDFD0 rpcSetCombo + 0001:001BE004 rpcGetDefaultReportsSetting + 0001:001BE124 rpcDeleteUserLevelReportsSetting + 0001:001BE194 rpcActiveDefaultSetting + 0001:001BE204 rpcSetDefaultReportsSetting + 0001:001BE280 rpcSetIndividualReportSetting + 0001:001BE318 rpcRetrieveDefaultSetting + 0001:001BE45C rpcGetRangeForMeds + 0001:001BE5CC rpcPutRangeForMeds + 0001:001BE64C rpcGetRangeForEncs + 0001:001BE74C rpcPutRangeForEncs + 0001:001BE810 rpcGetEncFutureDays + 0001:001BE88C Finalization + 0001:001BE8BC rOptions + 0001:001BE8C4 Finalization + 0001:001BE8F4 fVisit + 0001:001BEC18 TfraCoPayDesc.Create + 0001:001BED94 Finalization + 0001:001BEDC4 mCoPayDesc + 0001:001BEE24 CoXuDigSigS.Create + 0001:001BEE88 Finalization + 0001:001BEEB8 XuDigSigSC_TLB + 0001:001BF21C PrintSF513 + 0001:001BF464 Tfrm513Print.FormCreate + 0001:001BF4A0 Tfrm513Print.DisplaySelectDevice + 0001:001BF5FC Tfrm513Print.cboDeviceNeedData + 0001:001BF624 Tfrm513Print.cboDeviceChange + 0001:001BF6F0 Tfrm513Print.radChartCopyClick + 0001:001BF6F8 Tfrm513Print.radWorkCopyClick + 0001:001BF700 Tfrm513Print.cmdOKClick + 0001:001BFAA4 Tfrm513Print.cmdCancelClick + 0001:001BFAAC Tfrm513Print.FormDestroy + 0001:001BFACC Finalization + 0001:001BFAFC fConsult513Prt + 0001:001BFD80 SelectSearchText + 0001:001BFEB4 TfrmNotesSearchText.cmdCancelClick + 0001:001BFEC4 TfrmNotesSearchText.cmdOKClick + 0001:001BFFA8 TfrmNotesSearchText.FormShow + 0001:001BFFB0 TfrmNotesSearchText.FormDestroy + 0001:001BFFB8 TfrmNotesSearchText.FormResize + 0001:001BFFD8 Finalization + 0001:001C0008 fNoteST + 0001:001C0278 SelectAuthor + 0001:001C048C TfrmNotesByAuthor.cboAuthorNeedData + 0001:001C04B4 TfrmNotesByAuthor.cmdCancelClick + 0001:001C04BC TfrmNotesByAuthor.cmdOKClick + 0001:001C05D4 Finalization + 0001:001C0604 fNoteBA + 0001:001C08C8 SelectNoteDateRange + 0001:001C0AE0 TfrmNotesByDate.cmdOKClick + 0001:001C0C98 TfrmNotesByDate.cmdCancelClick + 0001:001C0CA0 TfrmNotesByDate.calBeginDateKeyPress + 0001:001C0CB0 TfrmNotesByDate.calEndDateKeyPress + 0001:001C0CC0 Finalization + 0001:001C0CF0 fNoteBD + 0001:001C0F0C SignatureForItem + 0001:001C0FAC TfrmSignItem.cmdOKClick + 0001:001C10E4 TfrmSignItem.cmdCancelClick + 0001:001C10FC Finalization + 0001:001C112C fSignItem + 0001:001C1134 Finalization + 0001:001C1164 fNoteCslt + 0001:001C14AC PrintNote + 0001:001C178C TfrmNotePrint.FormCreate + 0001:001C17C8 TfrmNotePrint.DisplaySelectDevice + 0001:001C1924 TfrmNotePrint.cboDeviceNeedData + 0001:001C194C TfrmNotePrint.cboDeviceChange + 0001:001C1A18 TfrmNotePrint.radChartCopyClick + 0001:001C1A20 TfrmNotePrint.radWorkCopyClick + 0001:001C1A28 TfrmNotePrint.cmdOKClick + 0001:001C1D64 TfrmNotePrint.cmdCancelClick + 0001:001C1D6C Finalization + 0001:001C1D9C fNotePrt + 0001:001C1E1C TSurgeryTitles.Create + 0001:001C1E60 TSurgeryTitles.Destroy + 0001:001C1E90 MakeSurgeryCaseDisplayText + 0001:001C1FE0 MakeSurgeryReportDisplayText + 0001:001C214C Finalization + 0001:001C217C uSurgery + 0001:001C21CC ShowSurgeryTab + 0001:001C227C LoadSurgeryTitles + 0001:001C2470 ListSurgeryTitlesShort + 0001:001C2570 SubSetOfSurgeryTitles + 0001:001C261C IsSurgeryTitle + 0001:001C26C4 GetSurgCaseList + 0001:001C2848 ListSurgeryCases + 0001:001C2948 LoadSurgReportText + 0001:001C299C LoadSurgReportDetail + 0001:001C29F4 GetCurrentSurgCaseContext + 0001:001C2BA8 SaveCurrentSurgCaseContext + 0001:001C2CF0 GetSingleCaseListItemWithDocs + 0001:001C2D40 IsNonORProcedure + 0001:001C2DDC Finalization + 0001:001C2E20 rSurgery + 0001:001C3108 TAccessibleListBox.accHitTest + 0001:001C31C4 TAccessibleListBox.accNavigate + 0001:001C3298 TAccessibleListBox.Get_accChild + 0001:001C3344 TAccessibleListBox.Get_accChildCount + 0001:001C33C8 TAccessibleListBox.Get_accDefaultAction + 0001:001C3474 TAccessibleListBox.Get_accDescription + 0001:001C3520 TAccessibleListBox.Get_accFocus + 0001:001C35D4 TAccessibleListBox.Get_accHelp + 0001:001C3680 TAccessibleListBox.Get_accHelpTopic + 0001:001C3734 TAccessibleListBox.Get_accKeyboardShortcut + 0001:001C37E0 TAccessibleListBox.Get_accName + 0001:001C394C TAccessibleListBox.Get_accParent + 0001:001C39DC TAccessibleListBox.Get_accRole + 0001:001C3AAC TAccessibleListBox.Get_accSelection + 0001:001C3B60 TAccessibleListBox.Get_accState + 0001:001C3C30 TAccessibleListBox.Get_accValue + 0001:001C3CDC TAccessibleListBox.accDoDefaultAction + 0001:001C3D6C TAccessibleListBox.accLocation + 0001:001C3E0C TAccessibleListBox.accSelect + 0001:001C3EA0 TAccessibleListBox.Set_accName + 0001:001C3F34 TAccessibleListBox.Set_accValue + 0001:001C3FC8 TAccessibleListBox.GetDefaultObject + 0001:001C4038 TAccessibleListBox.ChildType + 0001:001C40D0 TAccessibleListBox.WrapControl + 0001:001C4140 TAccessibleListBox.UnwrapControl + 0001:001C4154 Finalization + 0001:001C4184 uAccessibleListBox + 0001:001C4890 ExecuteNoteProperties + 0001:001C550C TfrmNoteProperties.FormShow + 0001:001C5510 TfrmNoteProperties.UMDelayEvent + 0001:001C5514 TfrmNoteProperties.SetCosignerRequired + 0001:001C56D4 TfrmNoteProperties.ShowRequestList + 0001:001C5958 TfrmNoteProperties.ShowSurgCaseList + 0001:001C59C0 TfrmNoteProperties.cboNewTitleNeedData + 0001:001C5A6C TfrmNoteProperties.cboNewTitleEnter + 0001:001C5A78 TfrmNoteProperties.cboNewTitleMouseClick + 0001:001C5D4C TfrmNoteProperties.cboNewTitleExit + 0001:001C5D7C TfrmNoteProperties.cboNewTitleDblClick + 0001:001C5D84 TfrmNoteProperties.NewPersonNeedData + 0001:001C5DB4 TfrmNoteProperties.cboAuthorEnter + 0001:001C5DCC TfrmNoteProperties.cboAuthorMouseClick + 0001:001C5DF4 TfrmNoteProperties.cboAuthorExit + 0001:001C5E20 TfrmNoteProperties.cboCosignerExit + 0001:001C5F0C TfrmNoteProperties.cmdOKClick + 0001:001C69DC TfrmNoteProperties.cmdCancelClick + 0001:001C69E8 TfrmNoteProperties.cboNewTitleDropDownClose + 0001:001C69EC TfrmNoteProperties.cboCosignerNeedData + 0001:001C6A24 TfrmNoteProperties.ShowClinProcFields + 0001:001C6A64 TfrmNoteProperties.btnShowListClick + 0001:001C6A6C TfrmNoteProperties.FormatRequestList + 0001:001C6B00 TfrmNoteProperties.FormResize + 0001:001C6BB8 TfrmNoteProperties.calNoteEnter + 0001:001C6BE0 TfrmNoteProperties.ShowPRFList + 0001:001C6D5C TfrmNoteProperties.SetGenericFormSize + 0001:001C6D74 TPRFActions.Create + 0001:001C6DB8 TPRFActions.Destroy + 0001:001C6DE8 TPRFActions.GetActionIEN + 0001:001C6E50 TPRFActions.GetPRF_IEN + 0001:001C6EC0 TPRFActions.Load + 0001:001C6F60 TPRFActions.SelActionHasNote + 0001:001C6FD4 TPRFActions.ShowActionsOnList + 0001:001C7184 TfrmNoteProperties.FormDestroy + 0001:001C7190 TfrmNoteProperties.btnDetailsClick + 0001:001C7334 TfrmNoteProperties.lstRequestsChange + 0001:001C7360 Finalization + 0001:001C7390 fNoteProps + 0001:001C775C SelectAdditionalSigners + 0001:001C7B3C TfrmAddlSigners.NewPersonNeedData + 0001:001C7B60 TfrmAddlSigners.cmdCancelClick + 0001:001C7B68 TfrmAddlSigners.cmdOKClick + 0001:001C7CE0 TfrmAddlSigners.cboSrcListMouseClick + 0001:001C7F38 TfrmAddlSigners.cmdRemoveClick + 0001:001C806C TfrmAddlSigners.cboCosignerChange + 0001:001C8280 TfrmAddlSigners.FormCreate + 0001:001C82D0 TfrmAddlSigners.FormDestroy + 0001:001C82EC TfrmAddlSigners.DstListClick + 0001:001C830C TfrmAddlSigners.cboSrcListKeyDown + 0001:001C8320 TfrmAddlSigners.CosignerOK + 0001:001C8500 TfrmAddlSigners.cboCosignerNeedData + 0001:001C8570 TfrmAddlSigners.cboCosignerExit + 0001:001C85C8 TfrmAddlSigners.cboSrcListClick + 0001:001C8718 Finalization + 0001:001C8748 fAddlSigners + 0001:001C896C SelectDeleteReason + 0001:001C8A6C TfrmNoteDelReason.FormCreate + 0001:001C8A74 TfrmNoteDelReason.cmdOKClick + 0001:001C8B14 TfrmNoteDelReason.cmdCancelClick + 0001:001C8B1C Finalization + 0001:001C8B4C fNoteDR + 0001:001C8E0C SelectService + 0001:001C9160 TfrmConsultsByService.cmdCancelClick + 0001:001C9168 TfrmConsultsByService.cmdOKClick + 0001:001C92BC TfrmConsultsByService.treServiceChange + 0001:001C934C TfrmConsultsByService.cboServiceSelect + 0001:001C9454 Finalization + 0001:001C9498 fConsultBS + 0001:001C97A4 SelectConsultDateRange + 0001:001C99B8 TfrmConsultsByDate.cmdOKClick + 0001:001C9B30 TfrmConsultsByDate.cmdCancelClick + 0001:001C9B38 TfrmConsultsByDate.calBeginDateKeyPress + 0001:001C9B48 TfrmConsultsByDate.calEndDateKeyPress + 0001:001C9B58 Finalization + 0001:001C9B88 fConsultBD + 0001:001C9DFC SelectStatus + 0001:001CA014 TfrmConsultsByStatus.cmdCancelClick + 0001:001CA01C TfrmConsultsByStatus.cmdOKClick + 0001:001CA27C Finalization + 0001:001CA2AC fConsultBSt + 0001:001CA638 SelectConsultsView + 0001:001CAAF8 TfrmConsultsView.cmdOKClick + 0001:001CAF30 TfrmConsultsView.cmdCancelClick + 0001:001CAF38 TfrmConsultsView.treServiceChange + 0001:001CAFC8 TfrmConsultsView.cboServiceSelect + 0001:001CB0D0 TfrmConsultsView.popStatusSelectNoneClick + 0001:001CB110 Finalization + 0001:001CB154 fConsultsView + 0001:001CB464 SelectRecipients + 0001:001CB508 TfrmConsultAlertsTo.cboSrcListNeedData + 0001:001CB538 TfrmConsultAlertsTo.cmdCancelClick + 0001:001CB540 TfrmConsultAlertsTo.cmdOKClick + 0001:001CB688 TfrmConsultAlertsTo.DstListClick + 0001:001CB6C0 TfrmConsultAlertsTo.cboSrcListKeyDown + 0001:001CB6D4 TfrmConsultAlertsTo.cboSrcListMouseClick + 0001:001CB790 Finalization + 0001:001CB7C0 fConsultAlertTo + 0001:001CBC0C SetActionContext + 0001:001CBE8C TfrmConsultAction.SetupForward + 0001:001CC470 TfrmConsultAction.SetupAddComment + 0001:001CC514 TfrmConsultAction.SetupSchedule + 0001:001CC670 TfrmConsultAction.SetupAdminComplete + 0001:001CC784 TfrmConsultAction.SetupSigFindings + 0001:001CC800 TfrmConsultAction.SigFindPanelShow + 0001:001CC940 TfrmConsultAction.SetupReceive + 0001:001CC9F4 TfrmConsultAction.SetupOther + 0001:001CCB28 TfrmConsultAction.NewPersonNeedData + 0001:001CCB58 TfrmConsultAction.ProviderNeedData + 0001:001CCB88 TfrmConsultAction.cmdCancelClick + 0001:001CCB98 TfrmConsultAction.cmdOKClick + 0001:001CD6A4 TfrmConsultAction.ckAlertClick + 0001:001CD6D4 TfrmConsultAction.treServiceChange + 0001:001CD798 TfrmConsultAction.treServiceExit + 0001:001CD79C TfrmConsultAction.cboServiceSelect + 0001:001CD8DC TfrmConsultAction.ShowAutoAlertText + 0001:001CDAC8 Finalization + 0001:001CDB14 fConsultAct + 0001:001CDDF4 CreateReportBox + 0001:001CE03C DisplayPrerequisites + 0001:001CE0D0 TfrmPrerequisites.memReportClick + 0001:001CE0D4 TfrmPrerequisites.cmdContinueClick + 0001:001CE0E4 TfrmPrerequisites.cmdCancelClick + 0001:001CE0F4 TfrmPrerequisites.cmdPrintClick + 0001:001CE428 TfrmPrerequisites.FormCreate + 0001:001CE440 TfrmPrerequisites.AlignButtons + 0001:001CE474 TfrmPrerequisites.FormClose + 0001:001CE47C TfrmPrerequisites.FormShow + 0001:001CE484 Finalization + 0001:001CE4B4 fPreReq + 0001:001CE79C TAccessibleRichEdit.accHitTest + 0001:001CE858 TAccessibleRichEdit.accNavigate + 0001:001CE92C TAccessibleRichEdit.Get_accChild + 0001:001CE9D8 TAccessibleRichEdit.Get_accChildCount + 0001:001CEA5C TAccessibleRichEdit.Get_accDefaultAction + 0001:001CEB08 TAccessibleRichEdit.Get_accDescription + 0001:001CEBB4 TAccessibleRichEdit.Get_accFocus + 0001:001CEC68 TAccessibleRichEdit.Get_accHelp + 0001:001CED14 TAccessibleRichEdit.Get_accHelpTopic + 0001:001CEDC8 TAccessibleRichEdit.Get_accKeyboardShortcut + 0001:001CEE74 TAccessibleRichEdit.Get_accName + 0001:001CEF48 TAccessibleRichEdit.Get_accParent + 0001:001CEFD8 TAccessibleRichEdit.Get_accRole + 0001:001CF060 TAccessibleRichEdit.Get_accSelection + 0001:001CF114 TAccessibleRichEdit.Get_accState + 0001:001CF1E4 TAccessibleRichEdit.Get_accValue + 0001:001CF290 TAccessibleRichEdit.accDoDefaultAction + 0001:001CF320 TAccessibleRichEdit.accLocation + 0001:001CF3C0 TAccessibleRichEdit.accSelect + 0001:001CF454 TAccessibleRichEdit.Set_accName + 0001:001CF4E8 TAccessibleRichEdit.Set_accValue + 0001:001CF57C TAccessibleRichEdit.ChildType + 0001:001CF614 TAccessibleRichEdit.GetDefaultObject + 0001:001CF684 TAccessibleRichEdit.SafeCallException + 0001:001CF6B4 TAccessibleRichEdit.UnwrapControl + 0001:001CF6C8 TAccessibleRichEdit.WrapControl + 0001:001CF738 Finalization + 0001:001CF768 uAccessibleRichEdit + 0001:001CFD90 TfrmODProc.FormCreate + 0001:001CFF10 TfrmODProc.InitDialog + 0001:001D016C TfrmODProc.SetupDialog + 0001:001D04C4 SetError + 0001:001D0514 TfrmODProc.Validate + 0001:001D0854 TfrmODProc.txtAttnNeedData + 0001:001D087C TfrmODProc.cboProcNeedData + 0001:001D08A4 TfrmODProc.radInpatientClick + 0001:001D0968 TfrmODProc.radOutpatientClick + 0001:001D0A2C TfrmODProc.ControlChange + 0001:001D1050 TfrmODProc.cboProcSelect + 0001:001D16C8 TfrmODProc.memReasonExit + 0001:001D174C TfrmODProc.ReadServerVariables + 0001:001D18FC TfrmODProc.cmdLexSearchClick + 0001:001D1A34 TfrmODProc.SetProvDiagPromptingMode + 0001:001D1D84 TfrmODProc.cboServiceChange + 0001:001D1D8C TfrmODProc.mnuPopProvDxDeleteClick + 0001:001D1DBC TfrmODProc.txtProvDiagChange + 0001:001D1E34 TfrmODProc.popReasonPopup + 0001:001D1F18 TfrmODProc.popReasonCutClick + 0001:001D1F24 TfrmODProc.popReasonCopyClick + 0001:001D1F30 TfrmODProc.popReasonPasteClick + 0001:001D1F84 TfrmODProc.popReasonReformatClick + 0001:001D1FA4 EnableReason + 0001:001D2020 DisableReason + 0001:001D20AC TfrmODProc.SetupReasonForRequest + 0001:001D225C TfrmODProc.ShowPrerequisites + 0001:001D23CC TfrmODProc.DefaultReasonForRequest + 0001:001D25C8 TfrmODProc.memReasonKeyUp + 0001:001D2674 TfrmODProc.GetProvDxandValidateCode + 0001:001D2928 TfrmODProc.FormDestroy + 0001:001D2944 TfrmODProc.SetFontSize + 0001:001D2960 TfrmODProc.DoSetFontSize + 0001:001D2998 TfrmODProc.memReasonKeyDown + 0001:001D29E0 TfrmODProc.memReasonKeyPress + 0001:001D29F0 TfrmODProc.FormResize + 0001:001D2A18 TfrmODProc.FormClose + 0001:001D2A34 Finalization + 0001:001D2A80 fODProc + 0001:001D2C9C SelectNoteForProcessing + 0001:001D35E0 TfrmCsltNote.cmdCancelClick + 0001:001D3608 TfrmCsltNote.cmdOKClick + 0001:001D372C Finalization + 0001:001D375C fCsltNote + 0001:001D3AFC SelectOrderView + 0001:001D3CC8 TfrmOrderView.FormCreate + 0001:001D3D7C TfrmOrderView.UpdateViewName + 0001:001D3EFC TfrmOrderView.SynchViewData + 0001:001D4080 TfrmOrderView.LoadDGroups + 0001:001D41F8 TfrmOrderView.LoadFilters + 0001:001D4370 TfrmOrderView.treServiceClick + 0001:001D43A8 TfrmOrderView.chkDateRangeClick + 0001:001D44C8 TfrmOrderView.calChange + 0001:001D44D0 TfrmOrderView.cmdOKClick + 0001:001D4618 TfrmOrderView.cmdCancelClick + 0001:001D4620 TfrmOrderView.trFiltersClick + 0001:001D4714 TfrmOrderView.Splitter1Moved + 0001:001D4734 Finalization + 0001:001D4764 fOrderVw + 0001:001D49A4 LookupLocation + 0001:001D4A98 TfrmLkUpLocation.FormCreate + 0001:001D4AB0 TfrmLkUpLocation.cboLocationNeedData + 0001:001D4B1C TfrmLkUpLocation.cmdOKClick + 0001:001D4B2C TfrmLkUpLocation.cmdCancelClick + 0001:001D4B34 Finalization + 0001:001D4B64 fLkUpLocation + 0001:001D4DDC ExecuteDCOrders + 0001:001D52D0 TfrmDCOrders.FormCreate + 0001:001D5304 TfrmDCOrders.cmdOKClick + 0001:001D53B8 TfrmDCOrders.cmdCancelClick + 0001:001D53C0 TfrmDCOrders.lstOrdersDrawItem + 0001:001D54BC TfrmDCOrders.lstOrdersMeasureItem + 0001:001D553C TfrmDCOrders.MeasureColumnHeight + 0001:001D55B8 Finalization + 0001:001D55E8 fOrdersDC + 0001:001D584C DispOrdersForEventChange + 0001:001D590C TfrmChangeEventDisp.lstCVOrdersDrawItem + 0001:001D5A08 TfrmChangeEventDisp.lstCVOrdersMeasureItem + 0001:001D5ADC TfrmChangeEventDisp.cmdOKClick + 0001:001D5AEC TfrmChangeEventDisp.cmdCancelClick + 0001:001D5AFC Finalization + 0001:001D5B2C fODChangeEvtDisp + 0001:001D5DBC DisplayEvntDialog + 0001:001D5E90 FindMatchedPtEvtID + 0001:001D5F98 ExecuteChangeEvt + 0001:001D67DC TfrmChgEvent.LoadSpecialtyList + 0001:001D6A18 TfrmChgEvent.FormCreate + 0001:001D6A54 TfrmChgEvent.cboSpecialtyChange + 0001:001D6E3C TfrmChgEvent.btnActionClick + 0001:001D6EBC TfrmChgEvent.btnCancelClick + 0001:001D6EC4 TfrmChgEvent.cboSpecialtyDblClick + 0001:001D6EE0 TfrmChgEvent.FormClose + 0001:001D6EF0 TfrmChgEvent.updateChanges + 0001:001D7094 TfrmChgEvent.Highlight + 0001:001D7174 TfrmChgEvent.FilterOutEmptyPtEvt + 0001:001D7284 Finalization + 0001:001D72B4 fOrdersCV + 0001:001D74C0 ExecuteHoldOrders + 0001:001D7648 TfrmHoldOrders.FormCreate + 0001:001D7650 TfrmHoldOrders.cmdOKClick + 0001:001D7660 TfrmHoldOrders.cmdCancelClick + 0001:001D7668 Finalization + 0001:001D7698 fOrdersHold + 0001:001D78A8 ExecuteUnholdOrders + 0001:001D79E4 TfrmUnholdOrders.FormCreate + 0001:001D79EC TfrmUnholdOrders.cmdOKClick + 0001:001D79FC TfrmUnholdOrders.cmdCancelClick + 0001:001D7A04 Finalization + 0001:001D7A34 fOrdersUnhold + 0001:001D7CA8 ExecuteAlertOrders + 0001:001D7DE4 TfrmAlertOrders.FormCreate + 0001:001D7E18 TfrmAlertOrders.cmdOKClick + 0001:001D7E3C TfrmAlertOrders.cmdCancelClick + 0001:001D7E44 TfrmAlertOrders.cboAlertRecipientNeedData + 0001:001D7E6C TfrmAlertOrders.cboOnExit + 0001:001D7F00 Finalization + 0001:001D7F3C fOrdersAlert + 0001:001D81BC ExecuteFlagOrder + 0001:001D82BC TfrmFlagOrder.FormCreate + 0001:001D82D4 TfrmFlagOrder.cmdOKClick + 0001:001D839C TfrmFlagOrder.cmdCancelClick + 0001:001D83A4 TfrmFlagOrder.cboOnExit + 0001:001D8438 TfrmFlagOrder.cboAlertRecipientNeedData + 0001:001D8460 Finalization + 0001:001D8490 fOrderFlag + 0001:001D86C4 ExecuteUnflagOrder + 0001:001D87B8 TfrmUnflagOrder.FormCreate + 0001:001D87C0 TfrmUnflagOrder.cmdOKClick + 0001:001D87D0 TfrmUnflagOrder.cmdCancelClick + 0001:001D87D8 Finalization + 0001:001D8808 fOrderUnflag + 0001:001D8810 Finalization + 0001:001D8840 UBAMessages + 0001:001D8C34 SetupOrdersPrint + 0001:001D8D8C TfrmOrdersPrint.SetupControls + 0001:001D8FA8 TfrmOrdersPrint.SetupPrompting + 0001:001D9180 TfrmOrdersPrint.cmdChartClick + 0001:001D91F8 TfrmOrdersPrint.cmdLabelsClick + 0001:001D9270 TfrmOrdersPrint.cmdReqsClick + 0001:001D92E8 TfrmOrdersPrint.cmdWorkClick + 0001:001D9360 TfrmOrdersPrint.cmdOKClick + 0001:001D965C TfrmOrdersPrint.cmdCancelClick + 0001:001D9970 TfrmOrdersPrint.ckChartCopyClick + 0001:001D99A4 TfrmOrdersPrint.ckLabelsClick + 0001:001D99D8 TfrmOrdersPrint.ckRequisitionsClick + 0001:001D9A0C TfrmOrdersPrint.ckWorkCopyClick + 0001:001D9A40 TfrmOrdersPrint.DeviceListClick + 0001:001D9A50 TfrmOrdersPrint.FormKeyUp + 0001:001D9A68 Finalization + 0001:001D9AA8 fOrdersPrint + 0001:001D9C80 TSigItems.GetSigItems + 0001:001D9C84 TSigItems.FindCB + 0001:001D9CD4 TSigItems.CopyCB + 0001:001D9D5C TSigItems.SetSigItems + 0001:001D9EC0 SigItems + 0001:001D9F18 SigItemHeight + 0001:001D9F24 TSigItems.Add + 0001:001D9FC4 TSigItems.Clear + 0001:001D9FDC TSigItems.Create + 0001:001DA094 TSigItems.Destroy + 0001:001DA0CC TSigItems.ResetOrders + 0001:001DA10C TSigItems.ItemToTag + 0001:001DA138 TSigItems.TagInfo + 0001:001DA148 TSigItems.TagToItem + 0001:001DA178 CreateCB + 0001:001DA21C TSigItems.UpdateListBox + 0001:001DAFF4 TSigItems.cbClicked + 0001:001DB280 TSigItems.cbEnter + 0001:001DB2D0 TSigItems.cbExit + 0001:001DB2F0 TSigItems.lbDrawItem + 0001:001DB568 TSigItems.Notification + 0001:001DB5B4 TSigItems.EnableSettings + 0001:001DB6B8 TSigItems.OK2SaveSettings + 0001:001DB87C TSigItems.SaveSettings + 0001:001DBA68 TSigItems.DisplayPlTreatmentFactors + 0001:001DBB24 TSigItems.CopyCBValues + 0001:001DBC58 TSigItems.FindCBValues + 0001:001DBCA8 TSigItems.GetTempCkBxState + 0001:001DBDC0 Finalization + 0001:001DBE24 uSignItems + 0001:001DC098 TfrmClinicWardMeds.ClinicOrWardLocation + 0001:001DC128 TfrmClinicWardMeds.ClinicOrWardLocation + 0001:001DC20C TfrmClinicWardMeds.StartLocationCheck + 0001:001DC2B4 TfrmClinicWardMeds.btnClinicClick + 0001:001DC2CC TfrmClinicWardMeds.btnWardClick + 0001:001DC2E4 TfrmClinicWardMeds.BuildMessage + 0001:001DC64C TfrmClinicWardMeds.BuildOrderLocList + 0001:001DC720 TfrmClinicWardMeds.rpcChangeOrderLocation + 0001:001DC770 TfrmClinicWardMeds.rpcIsPatientOnWard + 0001:001DC810 Finalization + 0001:001DC874 fClinicWardMeds + 0001:001DCD14 TfrmSignOrders.GetNumberOfSelectedOrders + 0001:001DCDA0 TfrmSignOrders.SetCheckBoxStatus + 0001:001DCE00 TfrmSignOrders.GetCheckBoxStatus + 0001:001DCF40 FindOrderText + 0001:001DCFA8 SignNotRequired + 0001:001DCFEC DigitalSign + 0001:001DD08C ExecuteSignOrders + 0001:001DE130 TfrmSignOrders.FormCreate + 0001:001DE248 TfrmSignOrders.IsSignatureRequired + 0001:001DE294 TfrmSignOrders.cmdOKClick + 0001:001DE634 TfrmSignOrders.cmdCancelClick + 0001:001DE63C TfrmSignOrders.FormDestroy + 0001:001DE66C TfrmSignOrders.clstOrdersDrawItem + 0001:001DEA78 TfrmSignOrders.clstOrdersMeasureItem + 0001:001DEB58 updateAllChilds + 0001:001DEC38 TfrmSignOrders.clstOrdersClickCheck + 0001:001DED6C TfrmSignOrders.ItemsAreChecked + 0001:001DEDAC TfrmSignOrders.clstOrdersMouseMove + 0001:001DF0F4 TfrmSignOrders.FormShow + 0001:001DF478 TfrmSignOrders.buOrdersDiagnosisClick + 0001:001DF8E0 TfrmSignOrders.Exit1Click + 0001:001DF8E8 TfrmSignOrders.Copy1Click + 0001:001DFBE8 TfrmSignOrders.Paste1Click + 0001:001DFE68 TfrmSignOrders.clstOrdersMouseDown + 0001:001DFFE0 TfrmSignOrders.clstOrdersClick + 0001:001E0138 TfrmSignOrders.FormKeyDown + 0001:001E0354 TfrmSignOrders.ShowTreatmentFactorHints + 0001:001E0670 TfrmSignOrders.FormMouseMove + 0001:001E06D8 TfrmSignOrders.fraCoPaylblHNCMouseMove + 0001:001E08F0 TfrmSignOrders.fraCoPayLabel23Enter + 0001:001E0914 TfrmSignOrders.fraCoPayLabel23Exit + 0001:001E0938 TfrmSignOrders.SetItemTextToState + 0001:001E0AF0 TfrmSignOrders.clstOrdersKeyUp + 0001:001E0B04 TfrmSignOrders.FormatListForScreenReader + 0001:001E0B2C Finalization + 0001:001E0BA8 fOrdersSign + 0001:001E0E7C FindOrderText + 0001:001E0ED8 SignNotRequired + 0001:001E0F14 ExecuteReleaseOrders + 0001:001E1484 TfrmReleaseOrders.FormCreate + 0001:001E14F4 TfrmReleaseOrders.cmdOKClick + 0001:001E17A4 TfrmReleaseOrders.cmdCancelClick + 0001:001E17AC TfrmReleaseOrders.lstOrdersDrawItem + 0001:001E18E0 TfrmReleaseOrders.lstOrdersMeasureItem + 0001:001E19B0 TfrmReleaseOrders.Panel1Resize + 0001:001E19BC Finalization + 0001:001E19EC fOrdersRelease + 0001:001E1C64 FindOrderText + 0001:001E1CC0 ExecuteOnChartOrders + 0001:001E2130 TfrmOnChartOrders.FormCreate + 0001:001E2138 TfrmOnChartOrders.cmdOKClick + 0001:001E2148 TfrmOnChartOrders.cmdCancelClick + 0001:001E2150 TfrmOnChartOrders.lstOrdersMeasureItem + 0001:001E2220 TfrmOnChartOrders.lstOrdersDrawItem + 0001:001E2354 TfrmOnChartOrders.Panel2Resize + 0001:001E2360 Finalization + 0001:001E2390 fOrdersOnChart + 0001:001E2398 Finalization + 0001:001E23C8 Spin + 0001:001E27EC SelectEvtReleasedOrders + 0001:001E2934 TfrmOrdersEvntRelease.FormCreate + 0001:001E2CD8 TfrmOrdersEvntRelease.btnCancelClick + 0001:001E2CE0 TfrmOrdersEvntRelease.FormShow + 0001:001E2CEC TfrmOrdersEvntRelease.grdEvtListDrawCell + 0001:001E2D8C TfrmOrdersEvntRelease.grdEvtListMouseDown + 0001:001E2F7C TfrmOrdersEvntRelease.btnOKClick + 0001:001E320C TfrmOrdersEvntRelease.grdEvtListKeyPress + 0001:001E3404 TfrmOrdersEvntRelease.grdEvtListDblClick + 0001:001E341C TfrmOrdersEvntRelease.pnlBottomResize + 0001:001E3464 TfrmOrdersEvntRelease.ShowEvents + 0001:001E36D8 TfrmOrdersEvntRelease.edtNumberChange + 0001:001E3820 TfrmOrdersEvntRelease.edtNumberKeyDown + 0001:001E3834 TfrmOrdersEvntRelease.btnApplyClick + 0001:001E3894 TfrmOrdersEvntRelease.btnApplyKeyDown + 0001:001E38A8 TfrmOrdersEvntRelease.edtNumberClick + 0001:001E38B4 TfrmOrdersEvntRelease.updown1Click + 0001:001E392C TfrmOrdersEvntRelease.FormClose + 0001:001E393C TfrmOrdersEvntRelease.FormDestroy + 0001:001E3960 Finalization + 0001:001E3990 fOrdersEvntRelease + 0001:001E3BDC ExecuteCompleteOrders + 0001:001E3CE8 TfrmCompleteOrders.FormCreate + 0001:001E3CF0 TfrmCompleteOrders.cmdOKClick + 0001:001E3ECC TfrmCompleteOrders.cmdCancelClick + 0001:001E3ED4 Finalization + 0001:001E3F04 fOrdersComplete + 0001:001E41B0 ExecuteVerifyOrders + 0001:001E4358 TfrmVerifyOrders.FormCreate + 0001:001E4360 TfrmVerifyOrders.cmdOKClick + 0001:001E4538 TfrmVerifyOrders.cmdCancelClick + 0001:001E4540 TfrmVerifyOrders.lstOrdersMeasureItem + 0001:001E4610 TfrmVerifyOrders.lstOrdersDrawItem + 0001:001E4744 TfrmVerifyOrders.Panel1Resize + 0001:001E4750 Finalization + 0001:001E4780 fOrdersVerify + 0001:001E49BC ExecuteWardComments + 0001:001E4AEC TfrmWardComments.FormCreate + 0001:001E4AF4 TfrmWardComments.cmdOKClick + 0001:001E4B04 TfrmWardComments.cmdCancelClick + 0001:001E4B0C TfrmWardComments.memCommentsKeyUp + 0001:001E4BB8 Finalization + 0001:001E4BE8 fOrderComment + 0001:001E4DE8 ExecuteRename + 0001:001E4EE0 TfrmRename.FormCreate + 0001:001E4EE8 TfrmRename.cmdOKClick + 0001:001E4EF8 TfrmRename.cmdCancelClick + 0001:001E4F00 Finalization + 0001:001E4F30 fRename + 0001:001E52B8 EditCommonList + 0001:001E54B4 SaveAsQuickOrder + 0001:001E5974 TfrmSaveQuickOrder.txtDisplayNameChange + 0001:001E5A70 TfrmSaveQuickOrder.cmdUpClick + 0001:001E5AC0 TfrmSaveQuickOrder.cmdDownClick + 0001:001E5B20 TfrmSaveQuickOrder.cmdRenameClick + 0001:001E5C44 TfrmSaveQuickOrder.cmdDeleteClick + 0001:001E5DB4 TfrmSaveQuickOrder.FormCreate + 0001:001E5DBC TfrmSaveQuickOrder.cmdOKClick + 0001:001E5EA0 TfrmSaveQuickOrder.cmdCancelClick + 0001:001E5EA8 TfrmSaveQuickOrder.pnlUpButtonEnter + 0001:001E5EB4 TfrmSaveQuickOrder.pnlUpButtonExit + 0001:001E5EC0 Finalization + 0001:001E5EF0 fOrderSaveQuick + 0001:001E6140 ExecuteDateRange + 0001:001E62C8 TfrmDateRange.FormCreate + 0001:001E62D0 TfrmDateRange.cmdOKClick + 0001:001E64B8 TfrmDateRange.cmdCancelClick + 0001:001E64C0 Finalization + 0001:001E64F0 fDateRange + 0001:001E6760 ExecuteRenewOutMed + 0001:001E68A8 TfrmRenewOutMed.FormCreate + 0001:001E6920 TfrmRenewOutMed.cmdOKClick + 0001:001E69DC TfrmRenewOutMed.cmdCancelClick + 0001:001E69E4 Finalization + 0001:001E6A14 fRenewOutMed + 0001:001E6CE4 PickupText + 0001:001E6D94 OrderForInpatient + 0001:001E6DA0 ExecuteRenewOrders + 0001:001E755C TfrmRenewOrders.FormCreate + 0001:001E757C TfrmRenewOrders.lstOrdersMeasureItem + 0001:001E766C TfrmRenewOrders.lstOrdersDrawItem + 0001:001E778C TfrmRenewOrders.lstOrdersClick + 0001:001E7894 TfrmRenewOrders.cmdChangeClick + 0001:001E7C54 TfrmRenewOrders.cmdOKClick + 0001:001E7C64 TfrmRenewOrders.cmdCancelClick + 0001:001E7C6C TfrmRenewOrders.MeasureColumnHeight + 0001:001E7D00 TfrmRenewOrders.AcceptOrderCheckOnRenew + 0001:001E7D94 TfrmRenewOrders.FormClose + 0001:001E7D9C TfrmRenewOrders.FormShow + 0001:001E7DA4 TfrmRenewOrders.hdrOrdersSectionResize + 0001:001E7DB4 Finalization + 0001:001E7DE4 fOrdersRenew + 0001:001E80A4 FindOrderText + 0001:001E8100 ExecuteReleaseEventOrders + 0001:001E8760 TfrmOrdersReleaseEvent.btnCancelClick + 0001:001E8768 TfrmOrdersReleaseEvent.FormCreate + 0001:001E87CC TfrmOrdersReleaseEvent.btnOKClick + 0001:001E885C TfrmOrdersReleaseEvent.FormDestroy + 0001:001E8880 TfrmOrdersReleaseEvent.cklstOrdersMeasureItem + 0001:001E8960 TfrmOrdersReleaseEvent.cklstOrdersDrawItem + 0001:001E8A74 TfrmOrdersReleaseEvent.cklstOrdersMouseMove + 0001:001E8B7C Finalization + 0001:001E8BAC fODReleaseEvent + 0001:001E8D50 TfrmODAuto.InitDialog + 0001:001E8D58 TfrmODAuto.Validate + 0001:001E8FE8 TfrmODAuto.SetupDialog + 0001:001E90C8 Finalization + 0001:001E90F8 fODAuto + 0001:001E9334 CutoffOutptPrompts + 0001:001E9418 ShowVerifyText + 0001:001E95FC TfrmOMVerify.FormCreate + 0001:001E9608 TfrmOMVerify.cmdAcceptClick + 0001:001E9618 TfrmOMVerify.cmdEditClick + 0001:001E9628 TfrmOMVerify.cmdCancelClick + 0001:001E9638 TfrmOMVerify.FormClose + 0001:001E9640 TfrmOMVerify.memTextKeyUp + 0001:001E96EC Finalization + 0001:001E971C fOMVerify + 0001:001E9AF8 TfrmOMNavA.ClearMenuGrid + 0001:001E9B74 TfrmOMNavA.FindOrderMenu + 0001:001E9BF4 TfrmOMNavA.PlaceMenuItems + 0001:001E9D1C TfrmOMNavA.SetNewMenu + 0001:001E9DA4 TfrmOMNavA.SetNavButtons + 0001:001E9E44 TfrmOMNavA.cmdPrevClick + 0001:001E9E88 TfrmOMNavA.cmdNextClick + 0001:001E9ECC TfrmOMNavA.cmdDoneClick + 0001:001E9F90 TfrmOMNavA.FormCreate + 0001:001EA048 TfrmOMNavA.CreateParams + 0001:001EA064 TfrmOMNavA.UMDestroy + 0001:001EA07C TfrmOMNavA.FormDestroy + 0001:001EA188 TfrmOMNavA.FormActivate + 0001:001EA18C TfrmOMNavA.FormClose + 0001:001EA218 TfrmOMNavA.SetEventDelay + 0001:001EA28C TfrmOMNavA.grdMenuDrawCell + 0001:001EA588 TfrmOMNavA.AddToSelectList + 0001:001EA5B0 TfrmOMNavA.DoSelectList + 0001:001EA718 TfrmOMNavA.grdMenuKeyDown + 0001:001EA8B4 TfrmOMNavA.grdMenuKeyUp + 0001:001EA8D8 TfrmOMNavA.grdMenuMouseDown + 0001:001EA9F8 TfrmOMNavA.grdMenuMouseMove + 0001:001EAA94 TfrmOMNavA.grdMenuMouseUp + 0001:001EAB90 TfrmOMNavA.CMMouseLeave + 0001:001EABB0 TfrmOMNavA.DialogNotDisabled + 0001:001EAC2C TfrmOMNavA.ActivateDialog + 0001:001EAEEC TfrmOMNavA.pnlToolMouseDown + 0001:001EAF58 TfrmOMNavA.pnlToolMouseMove + 0001:001EAFC4 TfrmOMNavA.pnlToolMouseUp + 0001:001EAFD4 TfrmOMNavA.FormResize + 0001:001EB00C TfrmOMNavA.ResizeFont + 0001:001EB02C Finalization + 0001:001EB05C fOMNavA + 0001:001EB384 TOCRec.Create + 0001:001EB3DC TOCRec.Destroy + 0001:001EB41C ExecuteReleaseOrderChecks + 0001:001EB544 ExecuteSessionOrderChecks + 0001:001EB89C TfrmOCSession.SetReqJustify + 0001:001EB9B0 TfrmOCSession.lstChecksMeasureItem + 0001:001EBB14 TfrmOCSession.lstChecksDrawItem + 0001:001EBCFC TfrmOCSession.cmdCancelOrderClick + 0001:001EBEA4 TfrmOCSession.cmdContinueClick + 0001:001EBFF8 TfrmOCSession.FormClose + 0001:001EC000 TfrmOCSession.FormShow + 0001:001EC008 TfrmOCSession.FormResize + 0001:001EC010 TfrmOCSession.txtJustifyKeyDown + 0001:001EC024 Finalization + 0001:001EC054 fOCSession + 0001:001EC3EC Highlight + 0001:001EC4C0 DisplayEvntDialog + 0001:001EC594 SetDelayEventForMed + 0001:001ECDBC TfrmMedCopy.FormCreate + 0001:001ECE50 TfrmMedCopy.cmdOKClick + 0001:001ED004 TfrmMedCopy.cmdCancelClick + 0001:001ED00C TfrmMedCopy.radDelayedClick + 0001:001ED1CC TfrmMedCopy.radReleaseClick + 0001:001ED1F4 TfrmMedCopy.fraEvntDelayListcboEvntListChange + 0001:001ED21C TfrmMedCopy.UMStillDelay + 0001:001ED22C TfrmMedCopy.fraEvntDelayListmlstEventsDblClick + 0001:001ED2B0 TfrmMedCopy.fraEvntDelayListmlstEventsChange + 0001:001ED2E0 TfrmMedCopy.FormKeyDown + 0001:001ED2F4 Finalization + 0001:001ED324 fMedCopy + 0001:001ED6B8 Highlight + 0001:001ED78C DisplayEvntDialog + 0001:001ED860 FindMatchedPtEvtID + 0001:001ED968 SetViewForCopy + 0001:001EE09C TfrmCopyOrders.FormCreate + 0001:001EE134 TfrmCopyOrders.cmdOKClick + 0001:001EE20C TfrmCopyOrders.cmdCancelClick + 0001:001EE214 TfrmCopyOrders.radEvtDelayClick + 0001:001EE2EC TfrmCopyOrders.radReleaseClick + 0001:001EE344 TfrmCopyOrders.fraEvntDelayListcboEvntListChange + 0001:001EE374 TfrmCopyOrders.UMStillDelay + 0001:001EE384 TfrmCopyOrders.fraEvntDelayListmlstEventsDblClick + 0001:001EE408 TfrmCopyOrders.fraEvntDelayListmlstEventsChange + 0001:001EE438 TfrmCopyOrders.FormKeyDown + 0001:001EE44C Finalization + 0001:001EE47C fOrdersCopy + 0001:001EE6EC TfraEvntDelayList.Create + 0001:001EE750 TfraEvntDelayList.DisplayEvntDelayList + 0001:001EEB4C TfraEvntDelayList.ResetProperty + 0001:001EEB7C TfraEvntDelayList.CheckMatch + 0001:001EED30 TfraEvntDelayList.edtSearchChange + 0001:001EEEE4 TfraEvntDelayList.mlstEventsChange + 0001:001EF4D4 TfraEvntDelayList.mlstEventsClick + 0001:001EF538 TfraEvntDelayList.mlstEventsKeyUp + 0001:001EF688 TfraEvntDelayList.edtSearchKeyDown + 0001:001EF75C Finalization + 0001:001EF78C mEvntDelay + 0001:001EFB34 ShowDelayedEventsTreatingSepecialty + 0001:001F01CC TfrmOrdersTS.FormCreate + 0001:001F0214 TfrmOrdersTS.cmdOKClick + 0001:001F0350 TfrmOrdersTS.cmdCancelClick + 0001:001F0360 TfrmOrdersTS.radDelayedClick + 0001:001F038C TfrmOrdersTS.radReleaseNowClick + 0001:001F046C TfrmOrdersTS.fraEvntDelayListcboEvntListChange + 0001:001F049C TfrmOrdersTS.UMStillDelay + 0001:001F0594 TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick + 0001:001F0618 TfrmOrdersTS.FormClose + 0001:001F0628 TfrmOrdersTS.fraEvntDelayListmlstEventsChange + 0001:001F0658 TfrmOrdersTS.FormKeyDown + 0001:001F066C Finalization + 0001:001F069C fOrdersTS + 0001:001F08C8 ObtainEffectiveDate + 0001:001F0978 TfrmEffectDate.FormCreate + 0001:001F0980 TfrmEffectDate.cmdOKClick + 0001:001F0990 TfrmEffectDate.cmdCancelClick + 0001:001F0998 Finalization + 0001:001F09C8 fEffectDate + 0001:001F0C88 CopyActiveOrdersToEvent + 0001:001F0DF0 TfrmODActive.btnOKClick + 0001:001F100C TfrmODActive.btnCancelClick + 0001:001F1014 TfrmODActive.FormCreate + 0001:001F1048 TfrmODActive.LoadActiveOrders + 0001:001F11F8 TfrmODActive.FormDestroy + 0001:001F1234 TfrmODActive.lstActiveOrdersMeasureItem + 0001:001F141C TfrmODActive.lstActiveOrdersDrawItem + 0001:001F17A0 TfrmODActive.RetrieveVisibleOrders + 0001:001F180C TfrmODActive.hdControlSectionResize + 0001:001F183C TfrmODActive.RedrawActiveList + 0001:001F18E8 TfrmODActive.MeasureColumnHeight + 0001:001F197C Finalization + 0001:001F19AC fODActive + 0001:001F1C0C ActionOnComplexOrder + 0001:001F1D8C TfrmODChild.FormCreate + 0001:001F1D94 TfrmODChild.lstODComplexDrawItem + 0001:001F1ECC TfrmODChild.lstODComplexMeasureItem + 0001:001F1FCC TfrmODChild.btnOKClick + 0001:001F1FDC TfrmODChild.btnCancelClick + 0001:001F1FEC Finalization + 0001:001F201C fODChild + 0001:001F2334 DisplayOrdersForAction + 0001:001F26D8 TfrmInvalidActionList.lstActDeniedOrdersDrawItem + 0001:001F2914 TfrmInvalidActionList.lstActDeniedOrdersMeasureItem + 0001:001F2B04 TfrmInvalidActionList.btnOKClick + 0001:001F2B0C TfrmInvalidActionList.FormCreate + 0001:001F2B24 TfrmInvalidActionList.hdrActionSectionResize + 0001:001F2B54 TfrmInvalidActionList.RedrawActiveList + 0001:001F2C78 TfrmInvalidActionList.lstValidOrdersMeasureItem + 0001:001F2DAC TfrmInvalidActionList.lstValidOrdersDrawItem + 0001:001F2EE8 TfrmInvalidActionList.FormResize + 0001:001F2F14 Finalization + 0001:001F2F44 fODValidateAction + 0001:001F31F4 ExecuteRefillOrders + 0001:001F3400 TfrmRefillOrders.FormCreate + 0001:001F34E0 TfrmRefillOrders.cmdOKClick + 0001:001F360C TfrmRefillOrders.cmdCancelClick + 0001:001F3614 TfrmRefillOrders.FormClose + 0001:001F361C TfrmRefillOrders.FormShow + 0001:001F3624 Finalization + 0001:001F3654 fOrdersRefill + 0001:001F365C Finalization + 0001:001F368C fActivateDeactivate + 0001:001F4198 TfrmMeds.ClearPtData + 0001:001F4250 TfrmMeds.DisplayPage + 0001:001F4568 TfrmMeds.mnuChartTabClick + 0001:001F4588 IndexForCurrentID + 0001:001F46C4 TfrmMeds.NotifyOrder + 0001:001F4FA4 TfrmMeds.SetFontSize + 0001:001F4FE0 TfrmMeds.FormCreate + 0001:001F53F8 TfrmMeds.FormDestroy + 0001:001F54AC TfrmMeds.mnuViewDetailClick + 0001:001F5848 TfrmMeds.mnuViewHistoryClick + 0001:001F5A90 TfrmMeds.RefreshMedLists + 0001:001F5D80 TfrmMeds.GetActionText + 0001:001F5FB4 TfrmMeds.GetInstructText + 0001:001F612C TfrmMeds.GetListText + 0001:001F627C TfrmMeds.GetPlainText + 0001:001F63C4 TfrmMeds.GetHeader + 0001:001F6418 TfrmMeds.GetMedList + 0001:001F646C TfrmMeds.GetPharmacyOrders + 0001:001F64C0 TfrmMeds.lstMedsMeasureItem + 0001:001F66BC TfrmMeds.lstMedsDrawItem + 0001:001F69F4 TfrmMeds.lstMedsExit + 0001:001F6A18 TfrmMeds.lstMedsDblClick + 0001:001F6A34 TfrmMeds.lstMedsInClick + 0001:001F6AD0 TfrmMeds.lstMedsOutClick + 0001:001F6B6C TfrmMeds.hdrMedsOutSectionResize + 0001:001F6BE4 TfrmMeds.hdrMedsInSectionResize + 0001:001F6C5C TfrmMeds.mnuActClick + 0001:001F6D74 TfrmMeds.mnuActDCClick + 0001:001F6F2C TfrmMeds.mnuActHoldClick + 0001:001F70EC TfrmMeds.mnuActRenewClick + 0001:001F7380 TfrmMeds.mnuActChangeClick + 0001:001F75F4 TfrmMeds.mnuActCopyClick + 0001:001F7CDC TfrmMeds.mnuActNewClick + 0001:001F7F40 TfrmMeds.mnuActRefillClick + 0001:001F80F8 TfrmMeds.ListSelected + 0001:001F81A8 TfrmMeds.ValidateSelected + 0001:001F85C4 TfrmMeds.MakeSelectedList + 0001:001F8890 TfrmMeds.SynchListToOrders + 0001:001F88AC TfrmMeds.popMedPopup + 0001:001F88C8 TfrmMeds.mnuViewClick + 0001:001F88E4 TfrmMeds.lstMedsNonVAClick + 0001:001F8980 TfrmMeds.lstMedsNonVADblClick + 0001:001F899C TfrmMeds.lstMedsNonVAExit + 0001:001F89C0 TfrmMeds.hdrMedsNonVASectionResize + 0001:001F8A38 TfrmMeds.FormResize + 0001:001F8AFC TChildOD.Create + 0001:001F8B4C TfrmMeds.hdrMedsOutResize + 0001:001F8BA0 TfrmMeds.hdrMedsNonVAResize + 0001:001F8BF4 TfrmMeds.hdrMedsInResize + 0001:001F8C48 TfrmMeds.FormShow + 0001:001F8C68 TfrmMeds.FormMouseUp + 0001:001F8C8C TfrmMeds.splitBottomMoved + 0001:001F8CB0 TfrmMeds.splitTopMoved + 0001:001F8CD4 TfrmMeds.InitfMedsSize + 0001:001F8EF4 TfrmMeds.PatientStatusChanged + 0001:001F9174 TfrmMeds.GetTotalSectionsWidth + 0001:001F9300 TfrmMeds.SetSectionWidths + 0001:001F9498 TfrmMeds.hdrMedsOutMouseDown + 0001:001F94B8 TfrmMeds.hdrMedsNonVAMouseDown + 0001:001F94D8 TfrmMeds.hdrMedsInMouseDown + 0001:001F94F8 TfrmMeds.hdrMedsOutMouseUp + 0001:001F9660 TfrmMeds.hdrMedsNonVAMouseUp + 0001:001F97C8 TfrmMeds.hdrMedsInMouseUp + 0001:001F9930 TfrmMeds.ClearChildODList + 0001:001F999C TfrmMeds.CheckMedStatus + 0001:001F9B50 TfrmMeds.ViewInfo + 0001:001F9B70 TfrmMeds.mnuViewInformationClick + 0001:001F9D40 TfrmMeds.mnuOptimizeFieldsClick + 0001:001F9FEC TfrmMeds.hdrMedsOutSectionClick + 0001:001FA00C TfrmMeds.hdrMedsNonVASectionClick + 0001:001FA02C TfrmMeds.hdrMedsInSectionClick + 0001:001FA04C Finalization + 0001:001FA088 fMeds + 0001:001FA6E8 EditResubmitProcedure + 0001:001FA908 TfrmEditProc.InitDialog + 0001:001FACA4 SetError + 0001:001FACF4 TfrmEditProc.Validate + 0001:001FB0A4 TfrmEditProc.txtAttnNeedData + 0001:001FB0CC TfrmEditProc.cboProcNeedData + 0001:001FB0F4 TfrmEditProc.radInpatientClick + 0001:001FB1C4 TfrmEditProc.radOutpatientClick + 0001:001FB294 TfrmEditProc.ControlChange + 0001:001FB8A4 TfrmEditProc.FormClose + 0001:001FB918 TfrmEditProc.ValidSave + 0001:001FBA64 TfrmEditProc.cboProcSelect + 0001:001FBC20 TfrmEditProc.memReasonExit + 0001:001FBCA4 TfrmEditProc.cmdAcceptClick + 0001:001FBD1C TfrmEditProc.cmdQuitClick + 0001:001FBD2C TfrmEditProc.OrderMessage + 0001:001FBD8C TfrmEditProc.btnCmtCancelClick + 0001:001FBDC0 TfrmEditProc.btnCmtOtherClick + 0001:001FBDEC TfrmEditProc.cmdLexSearchClick + 0001:001FBF24 TfrmEditProc.SetProvDiagPromptingMode + 0001:001FC274 TfrmEditProc.mnuPopProvDxDeleteClick + 0001:001FC2AC TfrmEditProc.popReasonPopup + 0001:001FC390 TfrmEditProc.popReasonCutClick + 0001:001FC39C TfrmEditProc.popReasonCopyClick + 0001:001FC3A8 TfrmEditProc.popReasonPasteClick + 0001:001FC3FC TfrmEditProc.popReasonReformatClick + 0001:001FC42C TfrmEditProc.memCommentKeyUp + 0001:001FC4D4 TfrmEditProc.memReasonKeyDown + 0001:001FC51C TfrmEditProc.memReasonKeyPress + 0001:001FC52C Finalization + 0001:001FC58C fEditProc + 0001:001FCBA8 EditResubmitConsult + 0001:001FCDE4 TfrmEditCslt.InitDialog + 0001:001FD1C4 SetError + 0001:001FD214 TfrmEditCslt.Validate + 0001:001FD6DC TfrmEditCslt.txtAttnNeedData + 0001:001FD704 TfrmEditCslt.radInpatientClick + 0001:001FD7F4 TfrmEditCslt.radOutpatientClick + 0001:001FD8E4 TfrmEditCslt.ControlChange + 0001:001FDE24 TfrmEditCslt.FormClose + 0001:001FDE98 TfrmEditCslt.cmdAcceptClick + 0001:001FDF70 TfrmEditCslt.memReasonExit + 0001:001FDFF4 TfrmEditCslt.cmdQuitClick + 0001:001FE004 TfrmEditCslt.ValidSave + 0001:001FE150 TfrmEditCslt.OrderMessage + 0001:001FE1B0 TfrmEditCslt.btnCmtCancelClick + 0001:001FE1E4 TfrmEditCslt.btnCmtOtherClick + 0001:001FE210 TfrmEditCslt.cmdLexSearchClick + 0001:001FE368 TfrmEditCslt.SetProvDiagPromptingMode + 0001:001FE6E0 TfrmEditCslt.mnuPopProvDxDeleteClick + 0001:001FE718 TfrmEditCslt.popReasonPopup + 0001:001FE7FC TfrmEditCslt.popReasonCutClick + 0001:001FE808 TfrmEditCslt.popReasonCopyClick + 0001:001FE814 TfrmEditCslt.popReasonPasteClick + 0001:001FE868 TfrmEditCslt.popReasonReformatClick + 0001:001FE898 TfrmEditCslt.memCommentKeyUp + 0001:001FE944 TfrmEditCslt.memCommentKeyDown + 0001:001FE98C TfrmEditCslt.memCommentKeyPress + 0001:001FE99C Finalization + 0001:001FE9FC fEditConsult + 0001:001FEC1C QueryBoilerPlate + 0001:001FECA0 TfrmNotesBP.cmdPreviewClick + 0001:001FECD8 TfrmNotesBP.cmdCloseClick + 0001:001FECE0 TfrmNotesBP.FormKeyUp + 0001:001FED0C Finalization + 0001:001FED3C fNotesBP + 0001:001FEF4C TfrmRemCoverPreview.FormCreate + 0001:001FEF60 TfrmRemCoverPreview.lvMainColumnClick + 0001:001FEF94 TfrmRemCoverPreview.lvMainCompare + 0001:001FF09C Finalization + 0001:001FF0CC fRemCoverPreview + 0001:001FF998 EditCoverSheetReminderList + 0001:001FFA40 TfrmRemCoverSheet.Init + 0001:002001AC TfrmRemCoverSheet.cbxLocationNeedData + 0001:002001D0 TfrmRemCoverSheet.cbxServiceNeedData + 0001:002001F8 TfrmRemCoverSheet.cbxUserNeedData + 0001:00200220 TfrmRemCoverSheet.cbxClassNeedData + 0001:00200248 TfrmRemCoverSheet.FormDestroy + 0001:002002C8 TfrmRemCoverSheet.GetUserInfo + 0001:0020031C TfrmRemCoverSheet.GetCurrent + 0001:002005B8 TfrmRemCoverSheet.UpdateView + 0001:002007A0 TfrmRemCoverSheet.SetupItem + 0001:00200994 TfrmRemCoverSheet.SetupItem + 0001:00200A68 GetNameFromList + 0001:00200B48 TfrmRemCoverSheet.GetExternalName + 0001:00200C1C TfrmRemCoverSheet.cbxDivisionChange + 0001:00200C58 TfrmRemCoverSheet.cbxServiceChange + 0001:00200C94 TfrmRemCoverSheet.cbxLocationChange + 0001:00200CCC TfrmRemCoverSheet.cbxClassChange + 0001:00200D08 TfrmRemCoverSheet.cbxUserChange + 0001:00200EDC TfrmRemCoverSheet.cbxDropDownClose + 0001:00200F3C TfrmRemCoverSheet.cbEditLevelClick + 0001:0020126C TfrmRemCoverSheet.UpdateMasterListView + 0001:00201394 TfrmRemCoverSheet.UpdateButtons + 0001:0020168C TfrmRemCoverSheet.tvAllExpanding + 0001:00201848 TfrmRemCoverSheet.GetCatInfo + 0001:00201A8C TfrmRemCoverSheet.MarkListAsChanged + 0001:00201B7C TfrmRemCoverSheet.edtSeqChange + 0001:00201C2C TfrmRemCoverSheet.tvAllExpanded + 0001:00201C5C TfrmRemCoverSheet.tvAllChange + 0001:00201C64 TfrmRemCoverSheet.lvCoverChange + 0001:00201C70 TfrmRemCoverSheet.GetIndex + 0001:00201D08 TfrmRemCoverSheet.ChangeStatus + 0001:00201E30 TfrmRemCoverSheet.btnAddClick + 0001:00201E48 TfrmRemCoverSheet.btnRemoveClick + 0001:00201E60 TfrmRemCoverSheet.btnLockClick + 0001:00201E78 TfrmRemCoverSheet.lvViewColumnClick + 0001:00201EAC TfrmRemCoverSheet.lvCoverColumnClick + 0001:00201EE0 TfrmRemCoverSheet.lvViewCompare + 0001:00202094 TfrmRemCoverSheet.lvCoverCompare + 0001:002021A8 TfrmRemCoverSheet.sbUpClick + 0001:002022B8 TfrmRemCoverSheet.sbDownClick + 0001:002023DC TfrmRemCoverSheet.SetSeq + 0001:002024C8 TfrmRemCoverSheet.sbCopyRightClick + 0001:00202760 TfrmRemCoverSheet.ListHasData + 0001:0020281C TfrmRemCoverSheet.udSeqChangingEx + 0001:002028BC TfrmRemCoverSheet.sbCopyLeftClick + 0001:002029C0 TfrmRemCoverSheet.tvAllDblClick + 0001:002029E8 TfrmRemCoverSheet.btnApplyClick + 0001:00202A04 TfrmRemCoverSheet.btnOKClick + 0001:00202A0C TfrmRemCoverSheet.SaveData + 0001:00202C88 TfrmRemCoverSheet.lvCoverDblClick + 0001:00202CB0 TfrmRemCoverSheet.lvViewClick + 0001:00203070 TfrmRemCoverSheet.RPad + 0001:002030E4 GetAllChildren + 0001:00203284 TfrmRemCoverSheet.btnViewClick + 0001:002039E8 TfrmRemCoverSheet.lvCoverKeyDown + 0001:00203A1C TfrmRemCoverSheet.edtSeqKeyPress + 0001:00203A2C TfrmRemCoverSheet.cbxDivisionKeyDown + 0001:00203A4C TfrmRemCoverSheet.GetCoverSheetLvlData + 0001:00203B90 Finalization + 0001:00203C00 fRemCoverSheet + 0001:00203EE8 TAccessibleTreeView.accHitTest + 0001:00203FA4 TAccessibleTreeView.accNavigate + 0001:00204078 TAccessibleTreeView.Get_accChild + 0001:00204124 TAccessibleTreeView.Get_accChildCount + 0001:002041A8 TAccessibleTreeView.Get_accDefaultAction + 0001:00204254 TAccessibleTreeView.Get_accDescription + 0001:00204300 TAccessibleTreeView.Get_accFocus + 0001:002043B4 TAccessibleTreeView.Get_accHelp + 0001:00204460 TAccessibleTreeView.Get_accHelpTopic + 0001:00204514 TAccessibleTreeView.Get_accKeyboardShortcut + 0001:002045C0 TAccessibleTreeView.Get_accName + 0001:00204700 TAccessibleTreeView.Get_accParent + 0001:00204790 TAccessibleTreeView.Get_accRole + 0001:00204860 TAccessibleTreeView.Get_accSelection + 0001:00204914 TAccessibleTreeView.Get_accState + 0001:002049E4 TAccessibleTreeView.Get_accValue + 0001:00204A90 TAccessibleTreeView.accDoDefaultAction + 0001:00204B20 TAccessibleTreeView.accLocation + 0001:00204BC0 TAccessibleTreeView.accSelect + 0001:00204C54 TAccessibleTreeView.Set_accName + 0001:00204CE8 TAccessibleTreeView.Set_accValue + 0001:00204D7C TAccessibleTreeView.GetDefaultObject + 0001:00204DEC TAccessibleTreeView.ChildType + 0001:00204E84 TAccessibleTreeView.WrapControl + 0001:00204EF4 TAccessibleTreeView.UnwrapControl + 0001:00204F08 Finalization + 0001:00204F38 uaccessibleTreeView + 0001:0020527C TAccessibleTreeNode.accHitTest + 0001:00205338 TAccessibleTreeNode.accNavigate + 0001:0020540C TAccessibleTreeNode.Get_accChild + 0001:002054B8 TAccessibleTreeNode.Get_accChildCount + 0001:0020553C TAccessibleTreeNode.Get_accDefaultAction + 0001:002055E8 TAccessibleTreeNode.Get_accDescription + 0001:00205694 TAccessibleTreeNode.Get_accFocus + 0001:00205748 TAccessibleTreeNode.Get_accHelp + 0001:002057F4 TAccessibleTreeNode.Get_accHelpTopic + 0001:002058A8 TAccessibleTreeNode.Get_accKeyboardShortcut + 0001:00205954 TAccessibleTreeNode.Get_accName + 0001:00205A24 TAccessibleTreeNode.Get_accParent + 0001:00205AB4 TAccessibleTreeNode.Get_accRole + 0001:00205B84 TAccessibleTreeNode.Get_accSelection + 0001:00205C38 TAccessibleTreeNode.Get_accState + 0001:00205D08 TAccessibleTreeNode.Get_accValue + 0001:00205DB4 TAccessibleTreeNode.accDoDefaultAction + 0001:00205E44 TAccessibleTreeNode.accLocation + 0001:00205EE4 TAccessibleTreeNode.accSelect + 0001:00205F78 TAccessibleTreeNode.Set_accName + 0001:0020600C TAccessibleTreeNode.Set_accValue + 0001:002060A0 TAccessibleTreeNode.GetDefaultObject + 0001:00206110 TAccessibleTreeNode.ChildType + 0001:002061A8 TAccessibleTreeNode.WrapControl + 0001:00206218 TAccessibleTreeNode.UnwrapControl + 0001:0020622C Finalization + 0001:0020625C uAccessibleTreeNode + 0001:00206730 ViewReminderTree + 0001:0020676C TfrmReminderTree.FormClose + 0001:00206770 TfrmReminderTree.FormCreate + 0001:002068B4 TfrmReminderTree.LinkTopControls + 0001:002069C8 TfrmReminderTree.RemindersChanged + 0001:00206BC4 IsVis + 0001:00206BF4 TfrmReminderTree.ResetlbItems + 0001:00206E34 TfrmReminderTree.SyncTopControls + 0001:00206EE0 TfrmReminderTree.tvRemExpanded + 0001:00206F44 TfrmReminderTree.tvRemCollapsed + 0001:00206FA8 TfrmReminderTree.pnlTopResize + 0001:00207108 TfrmReminderTree.lbRemDrawItem + 0001:00207334 TfrmReminderTree.lbRemChange + 0001:00207350 TfrmReminderTree.lbRemClick + 0001:00207360 TfrmReminderTree.tvRemEnter + 0001:0020738C TfrmReminderTree.tvRemExit + 0001:002073B8 TfrmReminderTree.hcRemSectionClick + 0001:00207504 TfrmReminderTree.SortNode + 0001:00207668 ZForm + 0001:002076EC TfrmReminderTree.SortData + 0001:0020781C TfrmReminderTree.tvRemClick + 0001:00207824 TfrmReminderTree.tvRemChange + 0001:00207900 TfrmReminderTree.tvRemMouseDown + 0001:00207910 TfrmReminderTree.Resync + 0001:00207978 TfrmReminderTree.memEvalClick + 0001:00207A34 TfrmReminderTree.EnableActions + 0001:00207BF8 TfrmReminderTree.ProcessedRemindersChanged + 0001:00207C00 TfrmReminderTree.memEvalAllClick + 0001:00207C08 TfrmReminderTree.FormDestroy + 0001:00207CA0 TfrmReminderTree.memRefreshClick + 0001:00207CC0 TfrmReminderTree.memActionClick + 0001:00207CC8 TfrmReminderTree.memEvalCatClick + 0001:00207CD0 TfrmReminderTree.mnuCoverSheetClick + 0001:00207CE0 TfrmReminderTree.SetFontSize + 0001:00207E04 TfrmReminderTree.SetRemHeaderSectionWidth + 0001:00207E7C TfrmReminderTree.tvRemNodeCaptioning + 0001:00207FAC TfrmReminderTree.tvRemAddition + 0001:00207FCC TfrmReminderTree.tvRemDeletion + 0001:00207FEC TfrmReminderTree.mnuExitClick + 0001:00207FF4 Finalization + 0001:00208024 fReminderTree + 0001:002083A4 SelectMedicineResult + 0001:0020858C TfrmConsMedRslt.cmdCancelClick + 0001:002085B4 TfrmConsMedRslt.cmdOKClick + 0001:002086E0 TfrmConsMedRslt.cmdDetailsClick + 0001:0020890C TfrmConsMedRslt.ShowDetailsDestroyed + 0001:0020895C TfrmConsMedRslt.ckAlertClick + 0001:00208998 TfrmConsMedRslt.NewPersonNeedData + 0001:002089C8 TfrmConsMedRslt.FormDestroy + 0001:002089E4 TfrmConsMedRslt.lstMedResultsDrawItem + 0001:00208C9C Finalization + 0001:00208CDC fConsMedRslt + 0001:00208F10 SelectParentNodeFromList + 0001:002090D4 TfrmNoteIDParents.FormCreate + 0001:002090E4 TfrmNoteIDParents.cmdCancelClick + 0001:002090FC TfrmNoteIDParents.cmdOKClick + 0001:002091E8 Finalization + 0001:00209218 fNoteIDParents + 0001:002094A4 EnterClinProcFields + 0001:002095C4 TfrmNoteCPFields.FormCreate + 0001:00209600 TfrmNoteCPFields.cmdOKClick + 0001:00209690 TfrmNoteCPFields.ValidateFields + 0001:00209974 TfrmNoteCPFields.cmdCancelClick + 0001:00209AA8 TfrmNoteCPFields.cboAuthorNeedData + 0001:00209AD8 Finalization + 0001:00209B08 fNoteCPFields + 0001:0020B5F0 TfrmConsults.AllowContextChange + 0001:0020B884 TfrmConsults.ClearPtData + 0001:0020B97C TfrmConsults.SetViewContext + 0001:0020BABC TfrmConsults.DisplayPage + 0001:0020BCA4 TfrmConsults.SetFontSize + 0001:0020BD08 TfrmConsults.mnuChartTabClick + 0001:0020BD18 TfrmConsults.ClearEditControls + 0001:0020BE00 TfrmConsults.CompleteConsult + 0001:0020C7BC TfrmConsults.InsertAddendum + 0001:0020CDE8 TfrmConsults.LoadForEdit + 0001:0020D4F4 SaveOrAbort + 0001:0020D5FC TfrmConsults.SaveEditedConsult + 0001:0020DC60 TfrmConsults.SaveCurrentNote + 0001:0020DC70 TfrmConsults.pnlRightResize + 0001:0020DCB4 TfrmConsults.lstConsultsClick + 0001:0020E2C8 TfrmConsults.mnuActNewConsultRequestClick + 0001:0020E4B8 TfrmConsults.mnuActNewProcedureClick + 0001:0020E650 TfrmConsults.cmdNewConsultClick + 0001:0020E658 TfrmConsults.cmdNewProcClick + 0001:0020E660 TfrmConsults.NewPersonNeedData + 0001:0020E690 TfrmConsults.memResultChange + 0001:0020E698 TfrmConsults.mnuViewClick + 0001:0020E920 TfrmConsults.mnuActCompleteClick + 0001:0020ED14 TfrmConsults.mnuActAddIDEntryClick + 0001:0020EE0C TfrmConsults.mnuActMakeAddendumClick + 0001:0020F040 TfrmConsults.mnuActDetachFromIDParentClick + 0001:0020F414 TfrmConsults.mnuActSignatureListClick + 0001:0020F7F8 TfrmConsults.mnuActNoteDeleteClick + 0001:0020FDB8 TfrmConsults.mnuActNoteEditClick + 0001:0020FE9C TfrmConsults.mnuActSignatureSaveClick + 0001:00210174 TfrmConsults.mnuActSignatureSignClick + 0001:00210B24 TfrmConsults.SaveSignItem + 0001:00211208 TfrmConsults.cmdPCEClick + 0001:0021124C TfrmConsults.mnuActConsultClick + 0001:002115B8 TfrmConsults.UpdateList + 0001:0021196C TfrmConsults.SetActionMenus + 0001:00211CB0 TfrmConsults.SetResultMenus + 0001:00212350 TfrmConsults.DisplayPCE + 0001:002128DC TfrmConsults.ShowPCEControls + 0001:00212928 TfrmConsults.RemovePCEFromChanges + 0001:00212B24 TfrmConsults.lstNotesClick + 0001:00213058 TfrmConsults.popNoteMemoPopup + 0001:00213290 TfrmConsults.popNoteMemoCutClick + 0001:0021329C TfrmConsults.popNoteMemoCopyClick + 0001:002132A8 TfrmConsults.popNoteMemoPasteClick + 0001:002132FC TfrmConsults.popNoteMemoReformatClick + 0001:0021331C TfrmConsults.popNoteMemoFindClick + 0001:0021339C TfrmConsults.dlgFindTextFind + 0001:002133BC TfrmConsults.dlgReplaceTextFind + 0001:002133DC TfrmConsults.dlgReplaceTextReplace + 0001:002133FC TfrmConsults.popNoteMemoReplaceClick + 0001:00213484 TfrmConsults.popNoteMemoSpellClick + 0001:00213500 TfrmConsults.popNoteMemoGrammarClick + 0001:0021357C TfrmConsults.RequestPrint + 0001:00213734 TfrmConsults.RequestMultiplePrint + 0001:00213910 TfrmConsults.mnuActDisplayResultsClick + 0001:0021398C TfrmConsults.mnuActDisplaySF513Click + 0001:00213B60 TfrmConsults.pnlResultsResize + 0001:00213C10 TfrmConsults.NotifyOrder + 0001:00213C3C TfrmConsults.mnuActPrintSF513Click + 0001:00213C7C TfrmConsults.FormCreate + 0001:00213E64 TfrmConsults.mnuActDisplayDetailsClick + 0001:00213EB0 TfrmConsults.FormClose + 0001:00213FAC TfrmConsults.mnuActIdentifyAddlSignersClick + 0001:00214384 TfrmConsults.popNoteMemoAddlSignClick + 0001:0021438C TfrmConsults.ProcessNotifications + 0001:00214CC4 TfrmConsults.mnuActEditResubmitClick + 0001:00214E58 TfrmConsults.EnableDisableOrdering + 0001:00214E94 TfrmConsults.UMNewOrder + 0001:00214EA4 TfrmConsults.cmdEditResubmitClick + 0001:00214EAC TfrmConsults.mnuViewSaveAsDefaultClick + 0001:00214F60 TfrmConsults.mnuViewReturntoDefaultClick + 0001:00214FAC TfrmConsults.popNoteMemoTemplateClick + 0001:00215004 TfrmConsults.mnuEditTemplatesClick + 0001:00215010 TfrmConsults.mnuNewTemplateClick + 0001:0021501C TfrmConsults.pnlLeftResize + 0001:0021506C TfrmConsults.mnuOptionsClick + 0001:002150E0 TfrmConsults.mnuEditSharedTemplatesClick + 0001:002150EC TfrmConsults.mnuNewSharedTemplateClick + 0001:002150F8 TfrmConsults.mnuActNotePrintClick + 0001:002152A8 TfrmConsults.popNoteMemoPrintClick + 0001:002152B0 TfrmConsults.FormDestroy + 0001:002152F4 TfrmConsults.GetDrawers + 0001:002152FC TfrmConsults.SetEditingIndex + 0001:00215324 TfrmConsults.LockConsultRequest + 0001:00215444 TfrmConsults.LockConsultRequestAndNote + 0001:00215620 TfrmConsults.UnlockConsultRequest + 0001:002156A0 TfrmConsults.ActiveEditOf + 0001:0021576C TfrmConsults.StartNewEdit + 0001:00215BBC TfrmConsults.LacksRequiredForCreate + 0001:00215C94 TfrmConsults.LacksClinProcFields + 0001:00215E7C TfrmConsults.LacksClinProcFieldsForSignature + 0001:00215F38 TfrmConsults.GetTitleText + 0001:00215FB0 TfrmConsults.VerifyNoteTitle + 0001:0021605C TfrmConsults.SetSubjectVisible + 0001:002160D0 TfrmConsults.timAutoSaveTimer + 0001:002160DC TfrmConsults.DoAutoSave + 0001:002163EC TfrmConsults.cmdChangeClick + 0001:00216A8C TfrmConsults.pnlFieldsResize + 0001:00216AE4 TfrmConsults.AssignRemForm + 0001:00216B30 TfrmConsults.CanFinishReminder + 0001:00216B5C TfrmConsults.mnuActChangeClick + 0001:00216B90 AssignBoilerText + 0001:00216C44 TfrmConsults.mnuActLoadBoilerClick + 0001:00216F4C TfrmConsults.popNoteMemoSaveContinueClick + 0001:00216F60 TfrmConsults.ProcessMedResults + 0001:0021735C TfrmConsults.mnuActAttachMedClick + 0001:00217378 TfrmConsults.mnuActRemoveMedClick + 0001:00217394 TfrmConsults.mnuEditDialgFieldsClick + 0001:0021739C TfrmConsults.UpdateNoteTreeView + 0001:002174C8 TfrmConsults.tvCsltNotesChange + 0001:002177F0 TfrmConsults.tvCsltNotesCollapsed + 0001:00217834 SortByTitle + 0001:002179AC SortByDate + 0001:00217B24 TfrmConsults.tvCsltNotesExpanded + 0001:00217BB8 TfrmConsults.tvCsltNotesDragOver + 0001:00217C50 TfrmConsults.tvCsltNotesDragDrop + 0001:00217CDC TfrmConsults.tvCsltNotesStartDrag + 0001:00217DC0 TfrmConsults.popNoteListExpandAllClick + 0001:00217DF8 TfrmConsults.popNoteListCollapseAllClick + 0001:00217EBC TfrmConsults.popNoteListExpandSelectedClick + 0001:00217F18 TfrmConsults.popNoteListCollapseSelectedClick + 0001:00217F74 TfrmConsults.EnableDisableIDNotes + 0001:00217FF4 TfrmConsults.tvCsltNotesClick + 0001:0021808C TfrmConsults.LoadConsults + 0001:00218364 TfrmConsults.UpdateConsultsTreeView + 0001:002183CC TfrmConsults.tvConsultsExpanded + 0001:002183FC TfrmConsults.tvConsultsCollapsed + 0001:0021842C TfrmConsults.tvConsultsClick + 0001:00218508 TfrmConsults.tvConsultsChange + 0001:002187E4 TfrmConsults.popNoteListPopup + 0001:00218830 TfrmConsults.mnuIconLegendClick + 0001:0021883C TfrmConsults.mnuActAttachtoIDParentClick + 0001:002189B8 TfrmConsults.DoAttachIDChild + 0001:00218D84 TfrmConsults.tvConsultsKeyUp + 0001:00218DB4 TfrmConsults.UserIsSigner + 0001:00218EB4 TfrmConsults.memResultsKeyDown + 0001:00218F60 TfrmConsults.sptHorzCanResize + 0001:00218FC0 TfrmConsults.popNoteMemoPreviewClick + 0001:00218FCC TfrmConsults.popNoteMemoInsTemplateClick + 0001:00218FD8 TfrmConsults.tvConsultsAddition + 0001:00218FF8 TfrmConsults.tvConsultsDeletion + 0001:00219018 TfrmConsults.LstConsultsToPrint + 0001:00219140 TfrmConsults.tvConsultsExit + 0001:00219210 TfrmConsults.pnlResultsExit + 0001:0021931C TfrmConsults.pnlActionExit + 0001:00219400 TfrmConsults.frmFramePnlPatientExit + 0001:002194A4 TfrmConsults.FormHide + 0001:00219538 TfrmConsults.FormShow + 0001:0021971C TfrmConsults.frmDrawerEdtSearchExit + 0001:0021973C TfrmConsults.frmDrawerPnlTemplatesButtonExit + 0001:0021975C TfrmConsults.frmDrawerPnlEncounterButtonExit + 0001:0021977C TfrmConsults.FormMouseMove + 0001:00219794 TfrmConsults.ViewInfo + 0001:002197A4 TfrmConsults.mnuViewInformationClick + 0001:0021992C Finalization + 0001:002199D8 fConsults + 0001:00219E80 SelectTIUView + 0001:0021A3BC TfrmTIUView.cmdOKClick + 0001:0021A884 TfrmTIUView.cmdCancelClick + 0001:0021A894 TfrmTIUView.lstStatusSelect + 0001:0021ABC0 TfrmTIUView.cboAuthorNeedData + 0001:0021ABE8 TfrmTIUView.cmdClearClick + 0001:0021AC58 Finalization + 0001:0021AC88 fTIUView + 0001:0021AE80 EditPCEData + 0001:0021B410 TfrmPCEEdit.FormCreate + 0001:0021B458 Finalization + 0001:0021B4B4 fPCEEdit + 0001:0021B69C TfrmSearchStop.btnSearchStopClick + 0001:0021B6A8 TfrmSearchStop.FormShow + 0001:0021B6B4 Finalization + 0001:0021B6E4 fNoteSTStop + 0001:0021B6EC LoadDCSummTitles + 0001:0021B86C ResetDCSummTitles + 0001:0021B88C DfltDCSummTitle + 0001:0021B8A4 DfltDCSummTitleName + 0001:0021B8C8 ListDCSummTitlesShort + 0001:0021B974 SubSetOfDCSummTitles + 0001:0021BA24 LoadDCSummPrefs + 0001:0021BBEC ResetDCSummPreferences + 0001:0021BC0C ReturnMaxDCSumms + 0001:0021BC2C ActOnDCDocument + 0001:0021BD28 ListSummsForTree + 0001:0021BE08 FindDT + 0001:0021BEF4 FindExt + 0001:0021BFCC FindInt + 0001:0021C0AC FindInt64 + 0001:0021C1A8 GetDCSummForEdit + 0001:0021C534 LoadDCUrgencies + 0001:0021C624 SignDCDocument + 0001:0021C708 PutNewDCSumm + 0001:0021CC6C PutDCAddendum + 0001:0021CFC4 PutEditedDCSumm + 0001:0021D35C GetAttending + 0001:0021D3FC GetDischargeDate + 0001:0021D498 RequireRelease + 0001:0021D5B8 RequireMASVerification + 0001:0021D6DC ChangeAttending + 0001:0021D89C GetCurrentDCSummContext + 0001:0021DB50 SaveCurrentDCSummContext + 0001:0021DD74 Finalization + 0001:0021DDCC rDCSumm + 0001:0021E318 ExecuteDCSummProperties + 0001:0021E9E8 TfrmDCSummProperties.FormShow + 0001:0021E9F0 TfrmDCSummProperties.UMDelayEvent + 0001:0021E9F4 TfrmDCSummProperties.SetCosignerRequired + 0001:0021EA1C TfrmDCSummProperties.ShowAdmissionList + 0001:0021EC38 TfrmDCSummProperties.cboNewTitleNeedData + 0001:0021EC64 TfrmDCSummProperties.cboNewTitleEnter + 0001:0021EC70 TfrmDCSummProperties.cboNewTitleMouseClick + 0001:0021ED4C TfrmDCSummProperties.cboNewTitleExit + 0001:0021ED7C TfrmDCSummProperties.cboAuthorNeedData + 0001:0021EDAC TfrmDCSummProperties.cboAttendingNeedData + 0001:0021EDDC TfrmDCSummProperties.cboAuthorEnter + 0001:0021EDF4 TfrmDCSummProperties.cboAuthorMouseClick + 0001:0021EE18 TfrmDCSummProperties.cboAuthorExit + 0001:0021EE44 TfrmDCSummProperties.cboAttendingExit + 0001:0021EEFC TfrmDCSummProperties.cmdOKClick + 0001:0021F510 TfrmDCSummProperties.cmdCancelClick + 0001:0021F520 TfrmDCSummProperties.cboNewTitleDropDownClose + 0001:0021F524 TfrmDCSummProperties.lstAdmissionsChange + 0001:0021FAA4 TfrmDCSummProperties.cboNewTitleDblClick + 0001:0021FAAC TfrmDCSummProperties.FormClose + 0001:0021FAB4 Finalization + 0001:0021FAE4 fDCSummProps + 0001:00220F14 TfrmDCSumm.AllowContextChange + 0001:002211C4 TfrmDCSumm.LstSummsToPrint + 0001:002212EC TfrmDCSumm.ClearPtData + 0001:00221394 TfrmDCSumm.DisplayPage + 0001:0022153C TfrmDCSumm.RequestPrint + 0001:002216FC TfrmDCSumm.RequestMultiplePrint + 0001:00221900 TfrmDCSumm.SetFontSize + 0001:00221964 TfrmDCSumm.mnuChartTabClick + 0001:00221974 TfrmDCSumm.ClearEditControls + 0001:00221A70 TfrmDCSumm.ShowPCEControls + 0001:00221ABC TfrmDCSumm.DisplayPCE + 0001:00221F44 TfrmDCSumm.InsertNewSumm + 0001:00222840 TfrmDCSumm.InsertAddendum + 0001:00222E54 TfrmDCSumm.LoadForEdit + 0001:002232EC TfrmDCSumm.TitleText + 0001:002233E0 TfrmDCSumm.SaveEditedSumm + 0001:00223B7C TfrmDCSumm.SaveCurrentSumm + 0001:00223B8C TfrmDCSumm.pnlRightResize + 0001:00223BAC TfrmDCSumm.pnlWriteResize + 0001:00223C5C TfrmDCSumm.lstSummsClick + 0001:00223F18 TfrmDCSumm.cmdNewSummClick + 0001:00223F20 TfrmDCSumm.cmdPCEClick + 0001:00223F64 TfrmDCSumm.cmdOrdersClick + 0001:00223F68 TfrmDCSumm.memNewSummChange + 0001:00223F70 TfrmDCSumm.mnuViewClick + 0001:0022464C TfrmDCSumm.StartNewEdit + 0001:00224A08 TfrmDCSumm.mnuActNewClick + 0001:00224A28 TfrmDCSumm.mnuActAddIDEntryClick + 0001:00224B88 TfrmDCSumm.mnuActAddendClick + 0001:00224DFC TfrmDCSumm.mnuActDetachFromIDParentClick + 0001:00225188 TfrmDCSumm.mnuActSignListClick + 0001:00225500 TfrmDCSumm.RemovePCEFromChanges + 0001:002256FC TfrmDCSumm.mnuActDeleteClick + 0001:00225BD8 TfrmDCSumm.mnuActEditClick + 0001:00225D30 TfrmDCSumm.mnuActSaveClick + 0001:00225E78 TfrmDCSumm.mnuActSignClick + 0001:00226654 TfrmDCSumm.SaveSignItem + 0001:00226B34 TfrmDCSumm.popSummMemoPopup + 0001:00226D6C TfrmDCSumm.popSummMemoCutClick + 0001:00226D78 TfrmDCSumm.popSummMemoCopyClick + 0001:00226D84 TfrmDCSumm.popSummMemoPasteClick + 0001:00226DD8 TfrmDCSumm.popSummMemoReformatClick + 0001:00226DF8 TfrmDCSumm.popSummMemoFindClick + 0001:00226E78 TfrmDCSumm.dlgFindTextFind + 0001:00226E98 TfrmDCSumm.popSummMemoReplaceClick + 0001:00226F20 TfrmDCSumm.dlgReplaceTextReplace + 0001:00226F40 TfrmDCSumm.dlgReplaceTextFind + 0001:00226F60 TfrmDCSumm.popSummMemoSpellClick + 0001:00226FDC TfrmDCSumm.popSummMemoGrammarClick + 0001:00227058 TfrmDCSumm.FormCreate + 0001:002271D4 TfrmDCSumm.mnuViewDetailClick + 0001:002272D8 TfrmDCSumm.FormClose + 0001:002273D4 TfrmDCSumm.mnuActIdentifyAddlSignersClick + 0001:0022776C TfrmDCSumm.popSummMemoAddlSignClick + 0001:00227774 TfrmDCSumm.ProcessNotifications + 0001:00227B90 TfrmDCSumm.SetViewContext + 0001:00227CF4 TfrmDCSumm.mnuViewSaveAsDefaultClick + 0001:00227F1C TfrmDCSumm.mnuViewReturntoDefaultClick + 0001:00227F28 TfrmDCSumm.popSummMemoTemplateClick + 0001:00227F80 TfrmDCSumm.popSummListPopup + 0001:00227FF8 TfrmDCSumm.popSummListExpandAllClick + 0001:00228004 TfrmDCSumm.popSummListCollapseAllClick + 0001:00228058 TfrmDCSumm.popSummListExpandSelectedClick + 0001:00228090 TfrmDCSumm.popSummListCollapseSelectedClick + 0001:002280C8 TfrmDCSumm.mnuNewTemplateClick + 0001:002280D4 TfrmDCSumm.mnuEditTemplatesClick + 0001:002280E0 TfrmDCSumm.mnuOptionsClick + 0001:00228154 TfrmDCSumm.mnuEditSharedTemplatesClick + 0001:00228160 TfrmDCSumm.mnuNewSharedTemplateClick + 0001:0022816C TfrmDCSumm.FormDestroy + 0001:002281A4 TfrmDCSumm.GetDrawers + 0001:002281AC TfrmDCSumm.SetEditingIndex + 0001:002281B4 TfrmDCSumm.LacksRequiredForCreate + 0001:00228288 TfrmDCSumm.VerifySummTitle + 0001:00228334 TfrmDCSumm.LockSumm + 0001:002283E4 TfrmDCSumm.DoAutoSave + 0001:002286F4 TfrmDCSumm.timAutoSaveTimer + 0001:00228700 TfrmDCSumm.GetTitleText + 0001:00228874 TfrmDCSumm.cmdChangeClick + 0001:00228D6C TfrmDCSumm.mnuActChangeClick + 0001:00228DA8 AssignBoilerText + 0001:00228E5C TfrmDCSumm.mnuActLoadBoilerClick + 0001:00229174 TfrmDCSumm.popSummMemoSaveContinueClick + 0001:00229188 TfrmDCSumm.mnuEditDialgFieldsClick + 0001:00229190 TfrmDCSumm.LoadSumms + 0001:002297F4 TfrmDCSumm.UpdateTreeView + 0001:0022985C TfrmDCSumm.tvSummsChange + 0001:00229F2C TfrmDCSumm.tvSummsCollapsed + 0001:00229F70 SortByTitle + 0001:0022A0E8 SortByDate + 0001:0022A260 TfrmDCSumm.tvSummsExpanded + 0001:0022A2F4 TfrmDCSumm.tvSummsClick + 0001:0022A2F8 TfrmDCSumm.tvSummsDragOver + 0001:0022A390 TfrmDCSumm.tvSummsDragDrop + 0001:0022A41C TfrmDCSumm.tvSummsStartDrag + 0001:0022A500 TfrmDCSumm.lvSummsColumnClick + 0001:0022A6D8 TfrmDCSumm.lvSummsCompare + 0001:0022A784 TfrmDCSumm.lvSummsSelectItem + 0001:0022A850 TfrmDCSumm.lvSummsResize + 0001:0022A8F4 TfrmDCSumm.EnableDisableIDNotes + 0001:0022A974 TfrmDCSumm.mnuIconLegendClick + 0001:0022A980 TfrmDCSumm.mnuActAttachtoIDParentClick + 0001:0022AACC TfrmDCSumm.DoAttachIDChild + 0001:0022AE78 SetDateRangeText + 0001:0022AF8C TfrmDCSumm.SetSummTreeLabel + 0001:0022B2C8 TfrmDCSumm.memNewSummKeyUp + 0001:0022B374 TfrmDCSumm.sptHorzCanResize + 0001:0022B3D4 TfrmDCSumm.popSummMemoPreviewClick + 0001:0022B3E0 TfrmDCSumm.popSummMemoInsTemplateClick + 0001:0022B3EC TfrmDCSumm.tvSummsAddition + 0001:0022B40C TfrmDCSumm.tvSummsDeletion + 0001:0022B42C TfrmDCSumm.NoSummSelected + 0001:0022B4B4 TfrmDCSumm.ViewInfo + 0001:0022B4C4 TfrmDCSumm.mnuViewInformationClick + 0001:0022B64C Finalization + 0001:0022B6A0 fDCSumm + 0001:0022B910 TfrmPrintList.FormCreate + 0001:0022B920 TfrmPrintList.cmdCancelClick + 0001:0022B938 TfrmPrintList.cmdOKClick + 0001:0022B9D8 TfrmPrintList.SelectParentFromList + 0001:0022BD38 Finalization + 0001:0022BD68 fPrintList + 0001:0022C074 SelectSurgeryView + 0001:0022C350 TfrmSurgeryView.cmdOKClick + 0001:0022C58C TfrmSurgeryView.cmdCancelClick + 0001:0022C59C TfrmSurgeryView.cmdClearClick + 0001:0022C5BC Finalization + 0001:0022C5EC fSurgeryView + 0001:0022C6A4 CreateListItemsForCaseTree + 0001:0022CF48 BuildCaseTree + 0001:0022D1F0 SetCaseTreeNodeImagesAndFormatting + 0001:0022D508 SetImageFlag + 0001:0022D5A8 ResetCaseTreeObjectStrings + 0001:0022D63C KillCaseTreeObjects + 0001:0022D6B8 KillCaseTreeNode + 0001:0022D6EC RemoveParentsWithNoChildren + 0001:0022D774 MakeCaseTreeObject + 0001:0022DB1C Finalization + 0001:0022DB4C uCaseTree + 0001:0022EE38 TfrmSurgery.AllowContextChange + 0001:0022F0D0 TfrmSurgery.ClearPtData + 0001:0022F16C TfrmSurgery.DisplayPage + 0001:0022F2F8 TfrmSurgery.FormCreate + 0001:0022F444 TfrmSurgery.pnlRightResize + 0001:0022F464 TfrmSurgery.pnlWriteResize + 0001:0022F514 TfrmSurgery.SetViewContext + 0001:0022F654 TfrmSurgery.FormDestroy + 0001:0022F68C TfrmSurgery.GetDrawers + 0001:0022F694 TfrmSurgery.UpdateTreeView + 0001:0022F798 TfrmSurgery.RequestPrint + 0001:0022F950 TfrmSurgery.mnuChartTabClick + 0001:0022F960 TfrmSurgery.SetFontSize + 0001:0022F9E8 TfrmSurgery.mnuViewClick + 0001:0022FD64 TfrmSurgery.popNoteMemoFindClick + 0001:0022FDE4 TfrmSurgery.dlgFindTextFind + 0001:0022FE04 TfrmSurgery.ClearEditControls + 0001:0022FED4 TfrmSurgery.ShowPCEControls + 0001:0022FF20 TfrmSurgery.DisplayPCE + 0001:00230354 TfrmSurgery.GetTitleText + 0001:002304D8 TfrmSurgery.LacksRequiredForCreate + 0001:00230578 TfrmSurgery.VerifyNoteTitle + 0001:00230624 TfrmSurgery.SetSubjectVisible + 0001:00230698 TfrmSurgery.InsertNewNote + 0001:00230DCC TfrmSurgery.InsertAddendum + 0001:002313AC TfrmSurgery.LoadForEdit + 0001:00231830 TfrmSurgery.SaveEditedNote + 0001:00231D98 TfrmSurgery.SaveCurrentNote + 0001:00231DA8 TfrmSurgery.cmdNewNoteClick + 0001:00231DB0 TfrmSurgery.cmdPCEClick + 0001:00231EBC TfrmSurgery.mnuActChangeClick + 0001:00231EF0 AssignBoilerText + 0001:00231FA4 TfrmSurgery.mnuActLoadBoilerClick + 0001:002322AC TfrmSurgery.cmdChangeClick + 0001:002327F0 TfrmSurgery.memNewNoteChange + 0001:002327F8 TfrmSurgery.pnlFieldsResize + 0001:00232850 TfrmSurgery.DoAutoSave + 0001:00232B60 TfrmSurgery.timAutoSaveTimer + 0001:00232B6C TfrmSurgery.StartNewEdit + 0001:00232E4C TfrmSurgery.mnuActNewClick + 0001:00232F30 TfrmSurgery.mnuActAddendClick + 0001:002331A8 TfrmSurgery.mnuActSignListClick + 0001:00233514 TfrmSurgery.RemovePCEFromChanges + 0001:00233710 TfrmSurgery.mnuActDeleteClick + 0001:00233BF8 TfrmSurgery.mnuActEditClick + 0001:00233D3C TfrmSurgery.mnuActSaveClick + 0001:00233E7C TfrmSurgery.mnuActSignClick + 0001:00234554 TfrmSurgery.SaveSignItem + 0001:00234A34 TfrmSurgery.popNoteMemoPopup + 0001:00234C6C TfrmSurgery.popNoteMemoCutClick + 0001:00234C78 TfrmSurgery.popNoteMemoCopyClick + 0001:00234C84 TfrmSurgery.popNoteMemoPasteClick + 0001:00234CD8 TfrmSurgery.popNoteMemoReformatClick + 0001:00234CF8 TfrmSurgery.popNoteMemoSaveContinueClick + 0001:00234D0C TfrmSurgery.popNoteMemoReplaceClick + 0001:00234D94 TfrmSurgery.dlgReplaceTextFind + 0001:00234DB4 TfrmSurgery.dlgReplaceTextReplace + 0001:00234DD4 TfrmSurgery.popNoteMemoSpellClick + 0001:00234E50 TfrmSurgery.popNoteMemoGrammarClick + 0001:00234ECC TfrmSurgery.mnuViewDetailClick + 0001:00235074 TfrmSurgery.FormClose + 0001:00235170 TfrmSurgery.mnuActIdentifyAddlSignersClick + 0001:002354E4 TfrmSurgery.popNoteMemoAddlSignClick + 0001:002354EC TfrmSurgery.ProcessNotifications + 0001:00235908 TfrmSurgery.mnuViewSaveAsDefaultClick + 0001:002359FC TfrmSurgery.mnuViewReturntoDefaultClick + 0001:00235A08 TfrmSurgery.popNoteMemoTemplateClick + 0001:00235A60 TfrmSurgery.popNoteListPopup + 0001:00235AD8 TfrmSurgery.popNoteListExpandAllClick + 0001:00235AE4 TfrmSurgery.popNoteListCollapseAllClick + 0001:00235B28 TfrmSurgery.popNoteListExpandSelectedClick + 0001:00235B60 TfrmSurgery.popNoteListCollapseSelectedClick + 0001:00235B98 TfrmSurgery.mnuEditTemplatesClick + 0001:00235BA4 TfrmSurgery.mnuNewTemplateClick + 0001:00235BB0 TfrmSurgery.mnuEditSharedTemplatesClick + 0001:00235BBC TfrmSurgery.mnuNewSharedTemplateClick + 0001:00235BC8 TfrmSurgery.mnuOptionsClick + 0001:00235C3C TfrmSurgery.SetEditingIndex + 0001:00235C64 TfrmSurgery.mnuEditDialgFieldsClick + 0001:00235C6C TfrmSurgery.tvSurgeryClick + 0001:00235CA4 TfrmSurgery.ShowPCEButtons + 0001:00235DA0 TfrmSurgery.mnuIconLegendClick + 0001:00235DAC TfrmSurgery.tvSurgeryChange + 0001:00236134 TfrmSurgery.tvSurgeryExpanded + 0001:00236194 TfrmSurgery.tvSurgeryCollapsed + 0001:002361D8 TfrmSurgery.LoadSurgeryCases + 0001:0023656C SetDateRangeText + 0001:00236680 TfrmSurgery.SetSurgTreeLabel + 0001:0023681C TfrmSurgery.lstNotesClick + 0001:00236AB8 TfrmSurgery.EnableDisableMenus + 0001:00236C3C TfrmSurgery.memNewNoteKeyDown + 0001:00236CE8 TfrmSurgery.sptHorzCanResize + 0001:00236D48 TfrmSurgery.popNoteMemoPreviewClick + 0001:00236D54 TfrmSurgery.popNoteMemoInsTemplateClick + 0001:00236D60 TfrmSurgery.tvSurgeryAddition + 0001:00236D80 TfrmSurgery.tvSurgeryDeletion + 0001:00236DA0 TfrmSurgery.ViewInfo + 0001:00236DB0 TfrmSurgery.mnuViewInformationClick + 0001:00236F38 Finalization + 0001:00236F8C fSurgery + 0001:0023755C TfrmReview.SetCheckBoxStatus + 0001:002375BC TfrmReview.GetCheckBoxStatus + 0001:002376C4 TfrmReview.GetNumberOfSelectedOrders + 0001:0023771C ReviewChanges + 0001:00237900 TfrmReview.FormCreate + 0001:00237A94 TfrmReview.AddHeader + 0001:00237AEC TfrmReview.AddItem + 0001:00237BD0 TfrmReview.AdjustSignatureTop + 0001:00237C18 TfrmReview.IsSignatureRequired + 0001:00237C98 TfrmReview.BuildList + 0001:00238470 TfrmReview.BuildFullList + 0001:00238478 TfrmReview.BuildSignList + 0001:00238480 TfrmReview.ItemsAreChecked + 0001:002384C0 TfrmReview.SignRequiredForAny + 0001:0023856C updateAllChilds + 0001:0023865C TfrmReview.lstReviewClickCheck + 0001:00238728 TfrmReview.lstReviewDrawItem + 0001:00238CBC TfrmReview.radReleaseClick + 0001:00238DA4 TfrmReview.txtESCodeChange + 0001:00238E80 OrdersSignedOrReleased + 0001:00238F74 OrdersToBeSignedOrReleased + 0001:0023906C TfrmReview.cmdOKClick + 0001:0023AE48 TfrmReview.CleanupChangesList + 0001:0023AE88 TfrmReview.cmdCancelClick + 0001:0023AE90 TfrmReview.lstReviewMeasureItem + 0001:0023AF7C TfrmReview.FormDestroy + 0001:0023AFA0 TfrmReview.lstReviewMouseMove + 0001:0023B320 TfrmReview.buDiagnosisClick + 0001:0023B7C0 TfrmReview.lstReviewClick + 0001:0023B97C TfrmReview.Exit1Click + 0001:0023B984 TfrmReview.lstReviewMouseDown + 0001:0023BB00 TfrmReview.Copy1Click + 0001:0023BDC8 TfrmReview.Paste1Click + 0001:0023C01C TfrmReview.ClearDiagnoses1Click + 0001:0023C0D8 TfrmReview.GetNonNilItemCount + 0001:0023C124 TfrmReview.FormShow + 0001:0023C2C4 TfrmReview.FormKeyDown + 0001:0023C554 TfrmReview.FormKeyUp + 0001:0023C5AC TfrmReview.ShowTreatmentFactorHints + 0001:0023C864 TfrmReview.FormMouseMove + 0001:0023C888 TfrmReview.FormMouseDown + 0001:0023C8B8 TfrmReview.fraCoPayLabel24MouseMove + 0001:0023CAD0 TfrmReview.FormClose + 0001:0023CB84 TfrmReview.fraCoPayLabel23Enter + 0001:0023CBA8 TfrmReview.fraCoPayLabel23Exit + 0001:0023CBCC TfrmReview.SetItemTextToState + 0001:0023CD84 TfrmReview.lstReviewKeyUp + 0001:0023CD98 TfrmReview.FormatListForScreenReader + 0001:0023CDC0 Finalization + 0001:0023CE2C fReview + 0001:0023D320 UpdateVisit + 0001:0023D330 UpdateVisit + 0001:0023D340 UpdateEncounter + 0001:0023D630 TfrmEncounter.FormCreate + 0001:0023DB88 TfrmEncounter.cboPtProviderNeedData + 0001:0023DBD4 TfrmEncounter.pgeVisitChange + 0001:0023DDF0 TfrmEncounter.cboNewVisitNeedData + 0001:0023DE18 TfrmEncounter.cmdDateRangeClick + 0001:0023E004 TfrmEncounter.cboNewVisitChange + 0001:0023E13C TfrmEncounter.calVisitDateChange + 0001:0023E224 TfrmEncounter.calVisitDateExit + 0001:0023E378 TfrmEncounter.cmdOKClick + 0001:0023E650 TfrmEncounter.cmdCancelClick + 0001:0023E658 TfrmEncounter.ckbHistoricalClick + 0001:0023E660 TfrmEncounter.AppShowHint + 0001:0023E6A0 TfrmEncounter.FormDestroy + 0001:0023E6A4 TfrmEncounter.SetVisitCat + 0001:0023E6F4 TfrmEncounter.FormClose + 0001:0023E718 TfrmEncounter.lstAdmitChange + 0001:0023E830 TfrmEncounter.lstClinicChange + 0001:0023EA3C TfrmEncounter.FormResize + 0001:0023EB00 TfrmEncounter.FormShow + 0001:0023EBB0 Finalization + 0001:0023EBEC fEncnt + 0001:0023F1D8 TfrmVit.FormKeyPress + 0001:0023F228 TfrmVit.InitVitalPanel + 0001:0023F500 TfrmVit.PopulateLastVital + 0001:0023FB20 TfrmVit.GetVitHTRate + 0001:0023FB80 TfrmVit.AssignVitals + 0001:0023FCF0 TfrmVit.cboTempChange + 0001:0023FD14 TfrmVit.CheckVitalUnit + 0001:0023FEC0 TfrmVit.cboHeightChange + 0001:0023FECC TfrmVit.cboWeightChange + 0001:0023FED8 TfrmVit.txtMeasBPExit + 0001:0023FF14 TfrmVit.cboTempExit + 0001:0023FF60 TfrmVit.txtMeasRespExit + 0001:0023FF9C TfrmVit.txtMeasPulseExit + 0001:0023FFD8 TfrmVit.cboHeightExit + 0001:0024004C TfrmVit.cboWeightExit + 0001:00240098 TfrmVit.FormCreate + 0001:002400C8 TfrmVit.FormDestroy + 0001:002400E4 TfrmVit.cmdCancelClick + 0001:002400EC TfrmVit.cmdOKClick + 0001:00240168 TfrmVit.lbllastClick + 0001:002401D0 TfrmVit.FormShow + 0001:00240244 TfrmVit.FormActivate + 0001:00240260 TfrmVit.cboPainChange + 0001:0024026C TfrmVit.SetVitPointer + 0001:0024031C TfrmVit.txtMeasTempExit + 0001:00240368 TfrmVit.txtMeasHtExit + 0001:002403DC TfrmVit.txtMeasWtExit + 0001:00240428 Finalization + 0001:00240458 fvit + 0001:00240460 HasActiveFlg + 0001:002404D8 TriggerPRFPopUp + 0001:002405A8 GetActiveFlg + 0001:00240620 ClearFlag + 0001:0024068C Finalization + 0001:002406BC uOrPtf + 0001:00240A08 ShowFlags + 0001:00240AAC TfrmFlags.lstFlagsClick + 0001:00240B78 TfrmFlags.FormKeyDown + 0001:00240B8C TfrmFlags.FormShow + 0001:00240BE4 TfrmFlags.FormCreate + 0001:00240BF0 TfrmFlags.FormClose + 0001:00240BF8 TfrmFlags.GetNotes + 0001:00240DCC TPRFNotes.create + 0001:00240E10 TPRFNotes.Destroy + 0001:00240E40 TPRFNotes.getNoteIEN + 0001:00240EA8 TPRFNotes.Load + 0001:00240F58 TPRFNotes.ShowActionsOnList + 0001:002410B4 TfrmFlags.FormDestroy + 0001:002410C0 TfrmFlags.lvPRFClick + 0001:0024119C TfrmFlags.lvPRFKeyDown + 0001:002411B4 Finalization + 0001:002411E4 fPatientFlagMulti + 0001:0024143C ShowCWAD + 0001:00241498 TfrmPtCWAD.FormCreate + 0001:002415B8 TfrmPtCWAD.lstAllergiesClick + 0001:00241638 TfrmPtCWAD.lstNotesClick + 0001:0024177C TfrmPtCWAD.FormKeyUp + 0001:00241794 TfrmPtCWAD.btnCloseClick + 0001:0024179C Finalization + 0001:002417CC fPtCWAD + 0001:00241FA8 EnterNKAForPatient + 0001:002420E0 MarkEnteredInError + 0001:002420EC EnterEditAllergy + 0001:0024252C TfrmARTAllergy.FormCreate + 0001:00242714 TfrmARTAllergy.InitDialog + 0001:00242D40 TfrmARTAllergy.SetupDialog + 0001:00243088 SetError + 0001:002430D8 TfrmARTAllergy.Validate + 0001:00243958 TfrmARTAllergy.cboOriginatorNeedData + 0001:00243980 TfrmARTAllergy.cboSymptomsNeedData + 0001:002439A8 TfrmARTAllergy.grpObsHistClick + 0001:00243A88 TfrmARTAllergy.ControlChange + 0001:0024422C TfrmARTAllergy.lstAllergySelect + 0001:0024434C TfrmARTAllergy.memCommentsExit + 0001:002443D0 TfrmARTAllergy.btnAgentClick + 0001:002444C8 TfrmARTAllergy.cboSymptomsClick + 0001:002445DC TfrmARTAllergy.FormDestroy + 0001:00244690 TfrmARTAllergy.ckNoKnownAllergiesClick + 0001:002446D0 TfrmARTAllergy.EnableDisableControls + 0001:00244804 TfrmARTAllergy.cmdOKClick + 0001:002449F4 TfrmARTAllergy.ValidSave + 0001:00244AE0 TfrmARTAllergy.btnCurrentClick + 0001:00244B80 TfrmARTAllergy.btnRemoveClick + 0001:00244CDC TfrmARTAllergy.lstAllergyClick + 0001:00244CF0 TfrmARTAllergy.btnDateTimeClick + 0001:00244F68 TfrmARTAllergy.cboSymptomsMouseClick + 0001:00245334 TfrmARTAllergy.cboSymptomsKeyDown + 0001:00245348 TfrmARTAllergy.cmdCancelClick + 0001:00245358 TfrmARTAllergy.cmdPrevCmtsClick + 0001:0024538C TfrmARTAllergy.cmdPrevObsClick + 0001:002453C4 TfrmARTAllergy.lstSelectedSymptomsChange + 0001:00245404 TfrmARTAllergy.cboVerifierNeedData + 0001:0024542C TfrmARTAllergy.SetupVerifyFields + 0001:002455EC TfrmARTAllergy.SetUpEnteredInErrorFields + 0001:002457E4 TfrmARTAllergy.FormClose + 0001:00245810 TfrmARTAllergy.FormCloseQuery + 0001:00245818 TfrmARTAllergy.btnSevHelpClick + 0001:00245A50 Finalization + 0001:00245AA0 fARTAllgy + 0001:00245D00 CreateAllergyBox + 0001:002460A4 AllergyBox + 0001:00246180 TfrmAllgyBox.cmdAddClick + 0001:002461BC TfrmAllgyBox.cmdEditClick + 0001:002461F0 TfrmAllgyBox.cmdInErrorClick + 0001:0024622C TfrmAllgyBox.RefreshText + 0001:00246260 Finalization + 0001:00246290 fAllgyBox + 0001:00246494 NewComment + 0001:00246510 EditComment + 0001:002465EC TfrmProbCmt.bbCancelClick + 0001:00246618 TfrmProbCmt.bbOKClick + 0001:002467B0 Finalization + 0001:002467E0 fProbCmt + 0001:00246D94 TfrmdlgProb.OkToQuit + 0001:00246DA0 TfrmdlgProb.bbQuitClick + 0001:00246EB8 TfrmdlgProb.bbAddComClick + 0001:00246F54 TfrmdlgProb.bbEditClick + 0001:00247060 TfrmdlgProb.FormShow + 0001:00247F04 TfrmdlgProb.ShowComments + 0001:00247FC4 TfrmdlgProb.FormClose + 0001:002480B8 TfrmdlgProb.bbFileClick + 0001:002489A0 TfrmdlgProb.GetEditedComments + 0001:00248B14 TfrmdlgProb.GetNewComments + 0001:00248C34 TfrmdlgProb.bbRemoveClick + 0001:00248CA0 TfrmdlgProb.cbProvKeyPress + 0001:00248CE0 TfrmdlgProb.rgStatusClick + 0001:00248D78 TfrmdlgProb.cbProvClick + 0001:00248D98 TfrmdlgProb.cbLocClick + 0001:00248DB8 TfrmdlgProb.cbLocKeyPress + 0001:00248DF8 Permanent + 0001:00248E18 TfrmdlgProb.SetDefaultProb + 0001:00249790 Msg + 0001:002498CC TfrmdlgProb.BadDates + 0001:00249BB8 TfrmdlgProb.ControlChange + 0001:00249BC0 TfrmdlgProb.Destroy + 0001:00249C58 TfrmdlgProb.cbProvDropDown + 0001:00249D9C TfrmdlgProb.cbLocDropDown + 0001:00249E70 TfrmdlgProb.FormCreate + 0001:00249EB4 TfrmdlgProb.Create + 0001:00249F18 TfrmdlgProb.CreateParams + 0001:00249F7C TfrmdlgProb.Loaded + 0001:00249FBC TfrmdlgProb.DoShow + 0001:00249FCC TfrmdlgProb.SetFontSize + 0001:00249FD4 TfrmdlgProb.ClearDialogControls + 0001:0024A02C TfrmdlgProb.LoadDefaults + 0001:0024A030 TfrmdlgProb.LackRequired + 0001:0024A034 TfrmdlgProb.UMTakeFocus + 0001:0024A06C TfrmdlgProb.bbChangeProbClick + 0001:0024A47C TfrmdlgProb.cbLocNeedData + 0001:0024A4A4 TfrmdlgProb.cbProvNeedData + 0001:0024A4CC TfrmdlgProb.cbServNeedData + 0001:0024A4F4 Finalization + 0001:0024A524 fProbEdt + 0001:0024AFFC TfrmProblems.AllowContextChange + 0001:0024B0F8 TfrmProblems.ClearPtData + 0001:0024B184 TfrmProblems.DisplayPage + 0001:0024B24C TfrmProblems.mnuChartTabClick + 0001:0024B26C TfrmProblems.lstCatPickClick + 0001:0024B2C4 TfrmProblems.lstProbActsClick + 0001:0024CEFC TfrmProblems.lstProbPickClick + 0001:0024CF5C TfrmProblems.pnlProbEntResize + 0001:0024CF6C TfrmProblems.wgProbDataClick + 0001:0024D0D8 TfrmProblems.wgProbDataDblClick + 0001:0024D0FC TfrmProblems.lstProbPickDblClick + 0001:0024D15C TfrmProblems.edProbEntKeyPress + 0001:0024D184 TfrmProblems.bbOtherProbClick + 0001:0024D1F0 TfrmProblems.UMCloseProblem + 0001:0024D400 TfrmProblems.ApplyViewFilters + 0001:0024D9B0 TfrmProblems.GetRowCount + 0001:0024DC6C TfrmProblems.UMPLLexicon + 0001:0024DC98 TfrmProblems.SetGridPieces + 0001:0024DF1C TfrmProblems.pnlRightResize + 0001:0024E014 TfrmProblems.FormCreate + 0001:0024E0AC TfrmProblems.LoadUserParams + 0001:0024E3BC TfrmProblems.LoadPatientParams + 0001:0024E3FC TfrmProblems.ClearGrid + 0001:0024E490 ReverseList + 0001:0024E4D4 TfrmProblems.LoadPatientProblems + 0001:0024F1B8 TfrmProblems.LoadUserCats + 0001:0024F2A8 TfrmProblems.LoadUserProbs + 0001:0024F354 TfrmProblems.LoadProblems + 0001:0024F588 TfrmProblems.HighlightDuplicate + 0001:0024FA14 TfrmProblems.AddProblem + 0001:0024FED4 TfrmProblems.EditProblem + 0001:00250360 TfrmProblems.UpdateProblem + 0001:002508B8 TfrmProblems.RestoreProblem + 0001:00250C24 TfrmProblems.NoRowSelected + 0001:00250D10 TfrmProblems.RowSelected + 0001:00251310 TfrmProblems.bbCancelClick + 0001:00251360 TfrmProblems.lstViewClick + 0001:002513D4 EncounterPresent + 0001:002514EC TfrmProblems.FormDestroy + 0001:00251530 TfrmProblems.mnuViewSaveClick + 0001:002516CC TfrmProblems.mnuViewRestoreDefaultClick + 0001:002517B0 TfrmProblems.mnuViewCommentsClick + 0001:00251AA8 TfrmProblems.RequestPrint + 0001:00251BA8 TfrmProblems.SetFontSize + 0001:00251CA4 TfrmProblems.RefreshList + 0001:00251E50 TfrmProblems.wgProbDataMeasureItem + 0001:00251FA0 TfrmProblems.wgProbDataDrawItem + 0001:002520B8 TfrmProblems.PlainText + 0001:002521F4 TfrmProblems.MString + 0001:00252278 TfrmProblems.HeaderControlSectionResize + 0001:0025229C TfrmProblems.lstViewExit + 0001:00252344 TfrmProblems.pnlRightExit + 0001:00252494 TfrmProblems.bbNewProbExit + 0001:00252570 TfrmProblems.frmFramePnlPatientExit + 0001:00252618 TfrmProblems.FormHide + 0001:00252650 TfrmProblems.FormShow + 0001:002526A8 TfrmProblems.FormMouseMove + 0001:002526CC TfrmProblems.ShowPnlView + 0001:00252714 TfrmProblems.ViewInfo + 0001:00252734 TfrmProblems.mnuViewInformationClick + 0001:00252904 TfrmProblems.mnuOptimizeFieldsClick + 0001:00252AFC TfrmProblems.HeaderControlSectionClick + 0001:00252B1C TfrmProblems.HeaderControlMouseUp + 0001:00252BFC TfrmProblems.getTotalSectionsWidth + 0001:00252C5C TfrmProblems.HeaderControlMouseDown + 0001:00252C7C TfrmProblems.setSectionWidths + 0001:00252CBC TfrmProblems.sptHorzMoved + 0001:00252CD8 Finalization + 0001:00252D08 fProbs + 0001:00253448 TfrmODCslt.FormCreate + 0001:0025364C TfrmODCslt.InitDialog + 0001:0025394C TfrmODCslt.SetupDialog + 0001:00254214 SetError + 0001:00254268 TfrmODCslt.Validate + 0001:002546E0 TfrmODCslt.txtAttnNeedData + 0001:00254710 TfrmODCslt.radInpatientClick + 0001:002547F4 TfrmODCslt.radOutpatientClick + 0001:002548D8 TfrmODCslt.BuildQuickTree + 0001:002549E8 TfrmODCslt.treServiceChange + 0001:002555D0 TfrmODCslt.ControlChange + 0001:00255C30 TfrmODCslt.treServiceExit + 0001:00255D08 TfrmODCslt.SetUpQuickOrderDX + 0001:00255DD8 TfrmODCslt.cmdAcceptClick + 0001:00255F30 TfrmODCslt.memReasonExit + 0001:00255FC0 TfrmODCslt.cboServiceSelect + 0001:00256704 TfrmODCslt.FormDestroy + 0001:00256740 TfrmODCslt.btnServiceTreeClick + 0001:002568E8 TfrmODCslt.ReadServerVariables + 0001:00256AE4 TfrmODCslt.treServiceCollapsing + 0001:00256B24 TfrmODCslt.treServiceMouseDown + 0001:00256C04 TfrmODCslt.cmdLexSearchClick + 0001:00256D74 TfrmODCslt.SetProvDiagPromptingMode + 0001:0025720C TfrmODCslt.mnuPopProvDxDeleteClick + 0001:0025724C TfrmODCslt.txtProvDiagChange + 0001:002572E4 EnableReason + 0001:00257360 DisableReason + 0001:002573EC TfrmODCslt.SetupReasonForRequest + 0001:002575B4 TfrmODCslt.ShowPrerequisites + 0001:00257768 TfrmODCslt.cboServiceExit + 0001:002578D8 TfrmODCslt.popReasonPopup + 0001:002579F4 TfrmODCslt.popReasonCutClick + 0001:00257A14 TfrmODCslt.popReasonCopyClick + 0001:00257A34 TfrmODCslt.popReasonPasteClick + 0001:00257A94 TfrmODCslt.popReasonReformatClick + 0001:00257AC8 TfrmODCslt.DefaultReasonForRequest + 0001:00257C98 TfrmODCslt.pnlServiceTreeButtonEnter + 0001:00257CC0 TfrmODCslt.pnlServiceTreeButtonExit + 0001:00257CE8 TfrmODCslt.treServiceKeyDown + 0001:00257D48 TfrmODCslt.treServiceKeyUp + 0001:00257D68 TfrmODCslt.DoSetFontSize + 0001:00257DB4 TfrmODCslt.SetFontSize + 0001:00257DDC TfrmODCslt.memReasonKeyUp + 0001:00257E98 TfrmODCslt.GetProvDxandValidateCode + 0001:002581B4 TfrmODCslt.memReasonKeyDown + 0001:00258210 TfrmODCslt.memReasonKeyPress + 0001:00258238 TfrmODCslt.cboServiceKeyDown + 0001:00258280 TfrmODCslt.cboServiceKeyUp + 0001:002582A0 TfrmODCslt.btnDiagnosisClick + 0001:00258584 TfrmODCslt.cmdQuitClick + 0001:002585B8 TfrmODCslt.SaveConsultDxForNurse + 0001:002586AC TfrmODCslt.SetUpCopyConsultDiagnoses + 0001:00258A58 TfrmODCslt.FormClose + 0001:00258A90 Finalization + 0001:00258AF0 fODConsult + 0001:00258AF8 ODForRad + 0001:00258B5C SubsetOfRadProcs + 0001:00258BC4 ImagingMessage + 0001:00258CAC PatientOnIsolationProcedures + 0001:00258D4C SubsetOfRadiologists + 0001:00258D94 SubsetOfImagingTypes + 0001:00258DDC SubsetOfRadSources + 0001:00258E60 LocationType + 0001:00258EA4 Finalization + 0001:00258ED4 rODRad + 0001:00259104 SelectApprovingRadiologist + 0001:00259200 TfrmODRadApproval.cmdCancelClick + 0001:00259208 TfrmODRadApproval.cmdOKClick + 0001:002592F8 Finalization + 0001:00259328 fODRadApproval + 0001:00259568 SelectSource + 0001:00259794 TfrmODRadConShRes.cmdCancelClick + 0001:002597B4 TfrmODRadConShRes.cmdOKClick + 0001:00259980 Finalization + 0001:002599B0 fODRadConShRes + 0001:00259FC8 TfrmODRad.SetupDialog + 0001:0025A5F0 TfrmODRad.InitDialog + 0001:0025ACA8 TfrmODRad.ControlChange + 0001:0025B5DC SetError + 0001:0025B62C GetOrderingLocation + 0001:0025B884 TfrmODRad.Validate + 0001:0025BFC8 TfrmODRad.cboProcedureNeedData + 0001:0025BFF4 TfrmODRad.cboAvailModMouseClick + 0001:0025C18C TfrmODRad.cmdRemoveClick + 0001:0025C318 TfrmODRad.cboProcedureSelect + 0001:0025C6B0 TfrmODRad.SetModifierList + 0001:0025C7B4 TfrmODRad.cboCategoryChange + 0001:0025C9F8 TfrmODRad.FormCreate + 0001:0025CC58 TfrmODRad.cboImTypeChange + 0001:0025CC60 TfrmODRad.memReasonExit + 0001:0025CCE4 TfrmODRad.FormResize + 0001:0025CD2C TfrmODRad.cboAvailModKeyDown + 0001:0025CD40 TfrmODRad.calPreOpChange + 0001:0025CDA8 TfrmODRad.SetDefaultPregant + 0001:0025CDE4 TfrmODRad.cmdAcceptClick + 0001:0025CEE0 TfrmODRad.cboProcedureExit + 0001:0025D0B0 TfrmODRad.cboImTypeExit + 0001:0025D0B8 TfrmODRad.FormClose + 0001:0025D0E8 TfrmODRad.chkIsolationExit + 0001:0025D124 TfrmODRad.calPreOpExit + 0001:0025D160 TfrmODRad.NoPregnantSelection + 0001:0025D1A4 TfrmODRad.cboImTypeDropDownClose + 0001:0025D1AC TfrmODRad.ImageTypeChange + 0001:0025D2B4 TfrmODRad.FormFirstOpened + 0001:0025D314 Finalization + 0001:0025D378 fODRad + 0001:0025D380 GetBloodComponents + 0001:0025D3AC StatAllowed + 0001:0025D440 GetPatientBloodResultsRaw + 0001:0025D4C0 GetPatientBloodResults + 0001:0025D544 GetPatientBBInfo + 0001:0025D5C8 ODForLab + 0001:0025D618 LoadLabTestData + 0001:0025D690 LoadSamples + 0001:0025D6D0 SubsetOfSpecimens + 0001:0025D72C LoadSpecimens + 0001:0025D76C MaxDays + 0001:0025D7FC IsLabCollectTime + 0001:0025D89C LabCollectFutureDays + 0001:0025D938 ImmediateCollectTimes + 0001:0025D984 GetDefaultImmCollTime + 0001:0025DA38 ValidImmCollTime + 0001:0025DA9C GetOneCollSamp + 0001:0025DAE4 GetOneSpecimen + 0001:0025DB2C GetLastCollectionTime + 0001:0025DB70 GetLabTimesForDate + 0001:0025DDA8 Finalization + 0001:0025DDD8 rODLab + 0001:0025E01C SelectOtherCollSample + 0001:0025E1D8 TfrmODLabOthCollSamp.cmdCancelClick + 0001:0025E200 TfrmODLabOthCollSamp.cmdOKClick + 0001:0025E324 TfrmODLabOthCollSamp.cboOtherCollSampDblClick + 0001:0025E32C Finalization + 0001:0025E35C fODLabOthCollSamp + 0001:0025E5A8 SelectOtherSpecimen + 0001:0025E690 TfrmODLabOthSpec.cmdCancelClick + 0001:0025E6B8 TfrmODLabOthSpec.cmdOKClick + 0001:0025E7CC TfrmODLabOthSpec.cboOtherSpecDblClick + 0001:0025E7D4 TfrmODLabOthSpec.cboOtherSpecNeedData + 0001:0025E7FC Finalization + 0001:0025E82C fODLabOthSpec + 0001:0025EAA4 SelectImmediateCollectTime + 0001:0025EB60 TfrmODLabImmedColl.cmdCancelClick + 0001:0025EB88 TfrmODLabImmedColl.cmdOKClick + 0001:0025ED68 TfrmODLabImmedColl.FormShow + 0001:0025EDCC TfrmODLabImmedColl.calImmedCollectKeyUp + 0001:0025EDEC Finalization + 0001:0025EE1C fODLabImmedColl + 0001:0025F0C4 GetFutureLabTime + 0001:0025F194 TfrmLabCollectTimes.calLabCollectChange + 0001:0025F1E0 TfrmLabCollectTimes.cmdOKClick + 0001:0025F2C4 TfrmLabCollectTimes.cmdCancelClick + 0001:0025F2DC TfrmLabCollectTimes.calMonthClick + 0001:0025F318 TfrmLabCollectTimes.FormCreate + 0001:0025F320 TfrmLabCollectTimes.calMonthKeyDown + 0001:0025F3DC Finalization + 0001:0025F40C fLabCollTimes + 0001:0025FE14 TfrmODLab.FormCreate + 0001:00260408 TfrmODLab.InitDialog + 0001:00260528 TfrmODLab.SetupDialog + 0001:00260A28 TLabTest.Create + 0001:00260F60 TLabTest.Destroy + 0001:00260FF4 TLabTest.IndexOfCollSamp + 0001:00261030 TLabTest.LoadAllSamples + 0001:00261154 TLabTest.FillCollSampList + 0001:00261508 TLabTest.SetCollSampDflts + 0001:002615A0 TLabTest.ChangeCollSamp + 0001:002615AC TLabTest.ChangeSpecimen + 0001:002615C4 TLabTest.ChangeUrgency + 0001:002615DC TLabTest.ChangeComment + 0001:002615E8 TLabTest.LabCanCollect + 0001:00261614 TLabTest.LoadCollSamp + 0001:002617C0 TLabTest.LoadSpecimen + 0001:002619D4 TfrmODLab.LoadCollType + 0001:00261CA4 TLabTest.LoadUrgency + 0001:00261DD4 TLabTest.NameOfCollSamp + 0001:00261E10 TLabTest.NameOfSpecimen + 0001:00261F20 TLabTest.NameOfUrgency + 0001:00261FE8 TLabTest.ObtainCollSamp + 0001:00261FF0 TLabTest.ObtainSpecimen + 0001:00262028 TLabTest.ObtainUrgency + 0001:00262030 TLabTest.ObtainComment + 0001:00262044 TfrmODLab.ControlChange + 0001:002628BC SetError + 0001:0026290C TfrmODLab.Validate + 0001:00263E20 TfrmODLab.cboAvailTestNeedData + 0001:00263E5C TfrmODLab.cboAvailTestExit + 0001:00263F78 TfrmODLab.cboAvailTestSelect + 0001:00264A98 TfrmODLab.cboCollSampChange + 0001:00264C94 TfrmODLab.cboUrgencyChange + 0001:00264D14 TfrmODLab.cboSpecimenChange + 0001:00264DF8 TfrmODLab.cboCollTimeChange + 0001:00264EDC TfrmODLab.cboFrequencyChange + 0001:002650C4 TfrmODLab.cboCollTypeChange + 0001:00265294 TfrmODLab.SetupCollTimes + 0001:00265A50 TfrmODLab.FormClose + 0001:00265A80 TfrmODLab.LoadRequiredComment + 0001:00265B68 TfrmODLab.txtOrderCommentExit + 0001:00265C84 TfrmODLab.txtAntiCoagulantExit + 0001:00265DB0 TfrmODLab.txtUrineVolumeExit + 0001:00265E30 TfrmODLab.grpPeakTroughClick + 0001:00265F9C TfrmODLab.txtDoseTimeExit + 0001:00266094 TfrmODLab.txtDrawTimeExit + 0001:0026618C TfrmODLab.DoseDrawComment + 0001:0026629C TfrmODLab.txtAddlCommentExit + 0001:002662B8 TfrmODLab.DisableCommentPanels + 0001:00266330 TfrmODLab.cboCollSampKeyPause + 0001:002663D4 TfrmODLab.cboCollSampMouseClick + 0001:002664A8 TfrmODLab.ValidCollTime + 0001:00266688 TfrmODLab.cboCollTimeExit + 0001:00266958 TfrmODLab.cboSpecimenMouseClick + 0001:002669C8 TfrmODLab.GetAllCollSamples + 0001:00266B0C TfrmODLab.GetAllSpecimens + 0001:00266C38 TfrmODLab.cboSpecimenKeyPause + 0001:00266CB0 TfrmODLab.cmdImmedCollClick + 0001:00266D78 TfrmODLab.ReadServerVariables + 0001:00266EC4 TfrmODLab.DetermineCollectionDefaults + 0001:00267160 TfrmODLab.pnlCollTimeButtonEnter + 0001:0026717C TfrmODLab.pnlCollTimeButtonExit + 0001:00267198 TfrmODLab.ViewinReportWindow1Click + 0001:002671CC Finalization + 0001:0026726C fODLab + 0001:00267C74 TfrmODBBank.FormCreate + 0001:00268410 TfrmODBBank.InitDialog + 0001:00268484 TfrmODBBank.SetupDialog + 0001:00268590 TLabTest.Create + 0001:00268A00 TLabTest.Destroy + 0001:00268A8C TLabTest.IndexOfCollSamp + 0001:00268AC8 TLabTest.LoadAllSamples + 0001:00268BEC TLabTest.FillCollSampList + 0001:00268FA0 TLabTest.SetCollSampDflts + 0001:00269038 TLabTest.ChangeSpecimen + 0001:00269050 TLabTest.LabCanCollect + 0001:0026907C TLabTest.ObtainCollSamp + 0001:00269084 TLabTest.ObtainComment + 0001:00269098 TfrmODBBank.ExtractModifiers + 0001:002690BC TfrmODBBank.ExtractUrgencies + 0001:002690E0 TfrmODBBank.ExtractSurgeries + 0001:00269104 TfrmODBBank.ExtractSpecimens + 0001:00269128 TfrmODBBank.ExtractTypeScreen + 0001:00269150 TfrmODBBank.ExtractSpecimen + 0001:00269174 TfrmODBBank.ExtractPatientInfo + 0001:00269194 TfrmODBBank.ExtractTests + 0001:002691B4 TfrmODBBank.ExtractMSBOS + 0001:002691D4 TfrmODBBank.SpecimenNeeded + 0001:0026943C SetError + 0001:0026948C TfrmODBBank.Validate + 0001:0026953C SetError + 0001:0026958C TfrmODBBank.ValidateAdd + 0001:0026A4FC TfrmODBBank.ValidAdd + 0001:0026A60C TfrmODBBank.ValidCollTime + 0001:0026A7EC TfrmODBBank.SetupCollTimes + 0001:0026AFA8 TfrmODBBank.LoadCollType + 0001:0026B278 TfrmODBBank.ReadServerVariables + 0001:0026B3C4 TfrmODBBank.cboAvailTestSelect + 0001:0026B9F4 TfrmODBBank.cboAvailCompSelect + 0001:0026BF78 TfrmODBBank.DisableCommentPanels + 0001:0026BF88 TfrmODBBank.DisableComponentControls + 0001:0026C054 TfrmODBBank.EnableComponentControls + 0001:0026C170 TfrmODBBank.DisableDiagTestControls + 0001:0026C1D4 TfrmODBBank.EnableDiagTestControls + 0001:0026C278 TfrmODBBank.LoadRequiredComment + 0001:0026C294 TfrmODBBank.DetermineCollectionDefaults + 0001:0026C530 TfrmODBBank.cboAvailTestExit + 0001:0026C64C TfrmODBBank.cboAvailCompExit + 0001:0026C768 TfrmODBBank.cboAvailTestNeedData + 0001:0026C794 TfrmODBBank.cboAvailCompNeedData + 0001:0026C7C0 TfrmODBBank.cmdImmedCollClick + 0001:0026C888 TfrmODBBank.pgeProductChange + 0001:0026C9B4 TfrmODBBank.cboCollTypeChange + 0001:0026CB3C TfrmODBBank.LoadModifiers + 0001:0026CBC0 TfrmODBBank.LoadUrgencies + 0001:0026CC9C TfrmODBBank.btnAddTestsClick + 0001:0026ECAC TfrmODBBank.FormDestroy + 0001:0026ECF0 TfrmODBBank.btnRemoveClick + 0001:0026FB1C TfrmODBBank.btnRemoveAllClick + 0001:0026FB78 TfrmODBBank.cmdAcceptClick + 0001:0026FD44 TfrmODBBank.calWantTimeChange + 0001:0026FE18 TfrmODBBank.chkConsentClick + 0001:0026FEBC TfrmODBBank.cboUrgencyChange + 0001:00270054 TfrmODBBank.txtDiagCommentChange + 0001:002700EC TfrmODBBank.cboPreparationChange + 0001:002701C0 TfrmODBBank.cboSurgeryChange + 0001:00270274 TfrmODBBank.tReasonChange + 0001:00270328 TfrmODBBank.calCollTimeChange + 0001:002706E8 Finalization + 0001:00270788 fODBBank + 0001:00270C2C ShowOtherSchedule + 0001:00270D24 TfrmOtherSchedule.FormCreate + 0001:00270E48 TfrmOtherSchedule.btnCancelClick + 0001:00270E54 TfrmOtherSchedule.btn0k1Click + 0001:00270F60 TfrmOtherSchedule.SetDaySchedule + 0001:002711C8 TfrmOtherSchedule.SetTimeSchedule + 0001:002713D8 TfrmOtherSchedule.cbo7Click + 0001:002713FC TfrmOtherSchedule.cbo1Click + 0001:00271420 TfrmOtherSchedule.cbo2Click + 0001:00271444 TfrmOtherSchedule.cbo3Click + 0001:00271468 TfrmOtherSchedule.cbo4Click + 0001:0027148C TfrmOtherSchedule.cbo5Click + 0001:002714B0 TfrmOtherSchedule.cbo6Click + 0001:002714D4 TfrmOtherSchedule.btnAddClick + 0001:002716E8 TfrmOtherSchedule.btnResetClick + 0001:002717BC TfrmOtherSchedule.btnRemoveClick + 0001:00271984 TfrmOtherSchedule.GetSiteMessage + 0001:00271A58 TfrmOtherSchedule.FormClose + 0001:00271A9C updateCheckbox + 0001:002720A8 TfrmOtherSchedule.UpdateOnFreeTextInput + 0001:002723A0 TfrmOtherSchedule.lstHourClick + 0001:002723C8 TfrmOtherSchedule.txtScheduleChange + 0001:002723EC TfrmOtherSchedule.CheckDay + 0001:00272714 TfrmOtherSchedule.lstMinuteMouseUp + 0001:00272740 TfrmOtherSchedule.lstMinuteKeyDown + 0001:00272774 TfrmOtherSchedule.Button1Click + 0001:002727EC Finalization + 0001:0027281C fOtherSchedule + 0001:002736C0 TfrmODMeds.FormCreate + 0001:00273F84 TfrmODMeds.FormDestroy + 0001:0027400C TfrmODMeds.InitDialog + 0001:0027411C TfrmODMeds.SetupDialog + 0001:00274558 SetError + 0001:002745AC ValidateRoute + 0001:0027474C ValidateSchedule + 0001:00274BD8 TfrmODMeds.Validate + 0001:002752B8 TfrmODMeds.SetVisibleCommentRows + 0001:002752F4 TfrmODMeds.SetControlsInpatient + 0001:00275488 TfrmODMeds.SetControlsOutpatient + 0001:0027565C TfrmODMeds.WMTimer + 0001:00275694 TfrmODMeds.StartKeyTimer + 0001:002756F8 TfrmODMeds.StopKeyTimer + 0001:0027572C TfrmODMeds.FindQuickOrder + 0001:00275838 TfrmODMeds.txtMedKeyDown + 0001:0027597C TfrmODMeds.txtMedKeyUp + 0001:002759B4 TfrmODMeds.txtMedChange + 0001:002759DC TfrmODMeds.ScrollToVisible + 0001:00275A74 TfrmODMeds.ChangeDelayed + 0001:00275F40 TfrmODMeds.txtMedExit + 0001:00275F88 TfrmODMeds.ListViewEnter + 0001:00276030 TfrmODMeds.ListViewClick + 0001:00276078 TfrmODMeds.UMDelayClick + 0001:00276094 TfrmODMeds.ListViewEditing + 0001:002760B0 TfrmODMeds.ListViewKeyUp + 0001:002760C8 TfrmODMeds.ListViewResize + 0001:00276110 TfrmODMeds.LoadMedCache + 0001:002762A0 TfrmODMeds.lstAllData + 0001:002763B0 TfrmODMeds.lstAllDataHint + 0001:002763D4 TfrmODMeds.lstQuickData + 0001:0027648C TfrmODMeds.lstQuickDataHint + 0001:002764A4 TfrmODMeds.btnSelectClick + 0001:002769AC TfrmODMeds.ResetOnMedChange + 0001:00276C6C TfrmODMeds.ResetOnTabChange + 0001:00276FC8 TfrmODMeds.SetOnMedSelect + 0001:00277924 TfrmODMeds.SetOnQuickOrder + 0001:00278548 TfrmODMeds.ShowMedSelect + 0001:002787D8 TfrmODMeds.ShowMedFields + 0001:00278A08 TfrmODMeds.ShowControlsSimple + 0001:00278AC8 MoveCombo + 0001:00278CB4 TfrmODMeds.ShowControlsComplex + 0001:00278DE0 TfrmODMeds.SetDosage + 0001:00278EC8 TfrmODMeds.SetPickup + 0001:00278F6C TfrmODMeds.SetSchedule + 0001:00279114 TfrmODMeds.tabDoseChange + 0001:00279604 TfrmODMeds.lblGuidelineClick + 0001:002796CC TfrmODMeds.CheckFormAltDose + 0001:00279798 TfrmODMeds.cboDosageClick + 0001:00279A44 TfrmODMeds.cboDosageChange + 0001:00279A60 TfrmODMeds.cboDosageExit + 0001:00279B9C TfrmODMeds.cboRouteChange + 0001:00279CE8 TfrmODMeds.cboRouteExit + 0001:00279D64 TfrmODMeds.cboScheduleClick + 0001:00279E64 TfrmODMeds.cboScheduleChange + 0001:00279F70 TfrmODMeds.UpdateDurationControls + 0001:0027A070 TfrmODMeds.popDurationClick + 0001:0027A15C TfrmODMeds.txtSupplyChange + 0001:0027A210 TfrmODMeds.txtQuantityChange + 0001:0027A2C4 TfrmODMeds.chkSCEnter + 0001:0027A338 TfrmODMeds.chkSCClick + 0001:0027A358 TfrmODMeds.OutpatientSig + 0001:0027A8BC TfrmODMeds.InpatientSig + 0001:0027AB50 TfrmODMeds.ConstructedDoseFields + 0001:0027AE7C TfrmODMeds.FieldsForDrug + 0001:0027AF54 TfrmODMeds.FieldsForDose + 0001:0027B164 TfrmODMeds.FindDoseFields + 0001:0027B284 SaveDrug + 0001:0027B400 KillDrug + 0001:0027B4C0 TfrmODMeds.FindCommonDrug + 0001:0027BA6C TfrmODMeds.ControlChange + 0001:0027C8B8 TfrmODMeds.ValFor + 0001:0027CB78 FindInCombo + 0001:0027CB94 TfrmODMeds.DurationToDays + 0001:0027CE80 TfrmODMeds.pnlFieldsResize + 0001:0027D0CC TfrmODMeds.grdDosesMouseDown + 0001:0027D164 TfrmODMeds.grdDosesKeyPress + 0001:0027D1CC TfrmODMeds.grdDosesMouseUp + 0001:0027D280 TfrmODMeds.grdDosesDrawCell + 0001:0027D330 TfrmODMeds.grdDosesExit + 0001:0027D35C PlaceControl + 0001:0027D3F4 SynchCombo + 0001:0027D4B0 TfrmODMeds.ShowEditor + 0001:0027DB18 TfrmODMeds.UMDelayEvent + 0001:0027DC0C TfrmODMeds.cboXDosageEnter + 0001:0027DC74 TfrmODMeds.cboXDosageChange + 0001:0027DD10 TfrmODMeds.cboXDosageClick + 0001:0027DF20 TfrmODMeds.cboXDosageExit + 0001:0027E018 TfrmODMeds.cboXRouteChange + 0001:0027E0B8 TfrmODMeds.cboXRouteClick + 0001:0027E1AC TfrmODMeds.cboXRouteExit + 0001:0027E308 TfrmODMeds.pnlXScheduleEnter + 0001:0027E340 TfrmODMeds.cboXScheduleChange + 0001:0027E4F8 TfrmODMeds.cboXScheduleClick + 0001:0027E5F4 TfrmODMeds.chkXPRNClick + 0001:0027E6BC TfrmODMeds.pnlXScheduleExit + 0001:0027E7C4 TfrmODMeds.pnlXDurationEnter + 0001:0027E7FC TfrmODMeds.txtXDurationChange + 0001:0027ED00 TfrmODMeds.pnlXDurationExit + 0001:0027EDEC TfrmODMeds.btnXSequenceClick + 0001:0027EE84 TfrmODMeds.popXSequenceClick + 0001:0027F0AC TfrmODMeds.pnlXSequenceExit + 0001:0027F25C TfrmODMeds.btnXInsertClick + 0001:0027F3DC TfrmODMeds.btnXRemoveClick + 0001:0027F4A0 TfrmODMeds.ValueOf + 0001:00280D00 TfrmODMeds.ValueOfResponse + 0001:00280FDC TfrmODMeds.UpdateDefaultSupply + 0001:002812EC TfrmODMeds.UpdateSupplyQuantity + 0001:00281868 TfrmODMeds.UpdateSC + 0001:00281974 TfrmODMeds.UpdateStartExpires + 0001:00281FE8 TfrmODMeds.UpdateRefills + 0001:00282128 TfrmODMeds.UpdateRelated + 0001:0028216C TfrmODMeds.timCheckChangesTimer + 0001:00282B30 TfrmODMeds.cmdAcceptClick + 0001:00282DB4 TfrmODMeds.chkPtInstructClick + 0001:00282DD0 TfrmODMeds.chkDoseNowClick + 0001:002832C8 TfrmODMeds.CheckDecimal + 0001:002834A0 TfrmODMeds.DropLastSequence + 0001:002836D8 TfrmODMeds.memCommentClick + 0001:002836FC TfrmODMeds.btnXDurationClick + 0001:00283740 TfrmODMeds.chkPRNClick + 0001:002838B8 TfrmODMeds.grdDosesKeyDown + 0001:0028398C TfrmODMeds.grdDosesEnter + 0001:002839B4 TfrmODMeds.DisableCancelButton + 0001:00283A60 TfrmODMeds.DisableDefaultButton + 0001:00283B0C TfrmODMeds.RestoreCancelButton + 0001:00283B40 TfrmODMeds.RestoreDefaultButton + 0001:00283B74 TfrmODMeds.FormKeyPress + 0001:00283BF8 TfrmODMeds.FormKeyDown + 0001:00283C84 TfrmODMeds.cboXRouteEnter + 0001:00283CAC TfrmODMeds.pnlXSequenceEnter + 0001:00283CD4 TfrmODMeds.pnlMessageEnter + 0001:00283CFC TfrmODMeds.pnlMessageExit + 0001:00283D28 TfrmODMeds.memMessageKeyDown + 0001:00283D68 TfrmODMeds.memPIClick + 0001:00283DD0 TfrmODMeds.FormResize + 0001:00283E8C TfrmODMeds.spnQuantityChangingEx + 0001:00283FD8 TfrmODMeds.memPIKeyDown + 0001:00284044 TfrmODMeds.TextDosage + 0001:00284460 TfrmODMeds.CreateOtherScheduel + 0001:002844E0 TfrmODMeds.IfIsIMODialog + 0001:00284564 TfrmODMeds.lstChange + 0001:00284624 TfrmODMeds.DispOrderMessage + 0001:00284764 TfrmODMeds.FormClose + 0001:00284790 TfrmODMeds.CreateOtherScheduelComplex + 0001:00284810 TfrmODMeds.txtNSSClick + 0001:00284930 TfrmODMeds.cboScheduleEnter + 0001:002849B8 TfrmODMeds.FormShow + 0001:00284A58 TfrmODMeds.UMShowNSSBuilder + 0001:00284A80 TfrmODMeds.cboScheduleExit + 0001:00284B0C TfrmODMeds.ValidateInpatientSchedule + 0001:00284D04 TfrmODMeds.isUniqueQuickOrder + 0001:00284DFC TfrmODMeds.IsSupplyAndOutPatient + 0001:00284E38 TfrmODMeds.GetSchedListIndex + 0001:00284EE0 TfrmODMeds.cboXScheduleExit + 0001:00284F04 TfrmODMeds.cboDosageKeyUp + 0001:00284F38 TfrmODMeds.cboXDosageKeyUp + 0001:00284F6C TfrmODMeds.txtSupplyClick + 0001:00284F8C TfrmODMeds.txtQuantityClick + 0001:00284FAC TfrmODMeds.txtRefillsClick + 0001:00284FCC TfrmODMeds.WMClose + 0001:002850D0 TfrmODMeds.cboXScheduleEnter + 0001:00285100 Finalization + 0001:0028513C fODMeds + 0001:00285264 EIdSocketError.CreateError + 0001:002852B8 Finalization + 0001:002852E8 IdException + 0001:00285458 Finalization + 0001:00285488 IdResourceStrings + 0001:00285508 EIdWS2StubError.Build + 0001:002855F8 WS2Unload + 0001:00285624 WS2Stub_WSACleanup + 0001:00285634 WS2Stub_accept + 0001:00285644 WS2Stub_bind + 0001:00285654 WS2Stub_closesocket + 0001:00285664 WS2Stub_connect + 0001:00285674 WS2Stub_ioctlsocket + 0001:00285684 WS2Stub_getpeername + 0001:00285694 WS2Stub_getsockname + 0001:002856A4 WS2Stub_getsockopt + 0001:002856B4 WS2Stub_htonl + 0001:002856C4 WS2Stub_htons + 0001:002856D4 WS2Stub_inet_addr + 0001:002856E4 WS2Stub_inet_ntoa + 0001:002856F4 WS2Stub_listen + 0001:00285704 WS2Stub_ntohl + 0001:00285714 WS2Stub_ntohs + 0001:00285724 WS2Stub_recv + 0001:00285734 WS2Stub_recvfrom + 0001:00285744 WS2Stub_select + 0001:00285754 WS2Stub_send + 0001:00285764 WS2Stub_sendto + 0001:00285774 WS2Stub_setsockopt + 0001:00285784 WS2Stub_shutdown + 0001:00285794 WS2Stub_socket + 0001:002857A4 WS2Stub_gethostbyaddr + 0001:002857B4 WS2Stub_gethostbyname + 0001:002857C4 WS2Stub_gethostname + 0001:002857D4 WS2Stub_getservbyport + 0001:002857E4 WS2Stub_getservbyname + 0001:002857F4 WS2Stub_getprotobynumber + 0001:00285804 WS2Stub_getprotobyname + 0001:00285814 WS2Stub_WSASetLastError + 0001:00285824 WS2Stub_WSAGetLastError + 0001:00285834 WS2Stub_WSAIsBlocking + 0001:00285844 WS2Stub_WSAUnhookBlockingHook + 0001:00285854 WS2Stub_WSASetBlockingHook + 0001:00285864 WS2Stub_WSACancelBlockingCall + 0001:00285874 WS2Stub_WSAAsyncGetServByName + 0001:00285884 WS2Stub_WSAAsyncGetServByPort + 0001:00285894 WS2Stub_WSAAsyncGetProtoByName + 0001:002858A4 WS2Stub_WSAAsyncGetProtoByNumber + 0001:002858B4 WS2Stub_WSAAsyncGetHostByName + 0001:002858C4 WS2Stub_WSAAsyncGetHostByAddr + 0001:002858D4 WS2Stub_WSACancelAsyncRequest + 0001:002858E4 WS2Stub_WSAAsyncSelect + 0001:002858F4 WS2Stub___WSAFDIsSet + 0001:00285904 WS2Stub_WSAAccept + 0001:00285914 WS2Stub_WSACloseEvent + 0001:00285924 WS2Stub_WSAConnect + 0001:00285934 WS2Stub_WSACreateEvent + 0001:00285944 WS2Stub_WSADuplicateSocketA + 0001:00285954 WS2Stub_WSADuplicateSocketW + 0001:00285964 WS2Stub_WSAEnumNetworkEvents + 0001:00285974 WS2Stub_WSAEnumProtocolsA + 0001:00285984 WS2Stub_WSAEnumProtocolsW + 0001:00285994 WS2Stub_WSAEventSelect + 0001:002859A4 WS2Stub_WSAGetOverlappedResult + 0001:002859B4 WS2Stub_WSAGetQosByName + 0001:002859C4 WS2Stub_WSAHtonl + 0001:002859D4 WS2Stub_WSAHtons + 0001:002859E4 WS2Stub_WSAIoctl + 0001:002859F4 WS2Stub_WSAJoinLeaf + 0001:00285A04 WS2Stub_WSANtohl + 0001:00285A14 WS2Stub_WSANtohs + 0001:00285A24 WS2Stub_WSARecv + 0001:00285A34 WS2Stub_WSARecvDisconnect + 0001:00285A44 WS2Stub_WSARecvFrom + 0001:00285A54 WS2Stub_WSAResetEvent + 0001:00285A64 WS2Stub_WSASend + 0001:00285A74 WS2Stub_WSASendDisconnect + 0001:00285A84 WS2Stub_WSASendTo + 0001:00285A94 WS2Stub_WSASetEvent + 0001:00285AA4 WS2Stub_WSASocketA + 0001:00285AB4 WS2Stub_WSASocketW + 0001:00285AC4 WS2Stub_WSAWaitForMultipleEvents + 0001:00285AD4 WS2Stub_WSAAddressToStringA + 0001:00285AE4 WS2Stub_WSAAddressToStringW + 0001:00285AF4 WS2Stub_WSAStringToAddressA + 0001:00285B04 WS2Stub_WSAStringToAddressW + 0001:00285B14 WS2Stub_WSALookupServiceBeginA + 0001:00285B24 WS2Stub_WSALookupServiceBeginW + 0001:00285B34 WS2Stub_WSALookupServiceNextA + 0001:00285B44 WS2Stub_WSALookupServiceNextW + 0001:00285B54 WS2Stub_WSALookupServiceEnd + 0001:00285B64 WS2Stub_WSAInstallServiceClassA + 0001:00285B74 WS2Stub_WSAInstallServiceClassW + 0001:00285B84 WS2Stub_WSARemoveServiceClass + 0001:00285B94 WS2Stub_WSAGetServiceClassInfoA + 0001:00285BA4 WS2Stub_WSAGetServiceClassInfoW + 0001:00285BB4 WS2Stub_WSAEnumNameSpaceProvidersA + 0001:00285BC4 WS2Stub_WSAEnumNameSpaceProvidersW + 0001:00285BD4 WS2Stub_WSAGetServiceClassNameByClassIdA + 0001:00285BE4 WS2Stub_WSAGetServiceClassNameByClassIdW + 0001:00285BF4 WS2Stub_WSASetServiceA + 0001:00285C04 WS2Stub_WSASetServiceW + 0001:00285C14 WS2Stub_WSAProviderConfigChange + 0001:00285C24 WS2Stub_WSADuplicateSocket + 0001:00285C34 WS2Stub_WSAEnumProtocols + 0001:00285C44 WS2Stub_WSASocket + 0001:00285C54 WS2Stub_WSAAddressToString + 0001:00285C64 WS2Stub_WSAStringToAddress + 0001:00285C74 WS2Stub_WSALookupServiceBegin + 0001:00285C84 WS2Stub_WSALookupServiceNext + 0001:00285C94 WS2Stub_WSAInstallServiceClass + 0001:00285CA4 WS2Stub_WSAGetServiceClassInfo + 0001:00285CB4 WS2Stub_WSAEnumNameSpaceProviders + 0001:00285CC4 WS2Stub_WSAGetServiceClassNameByClassId + 0001:00285CD4 WS2Stub_WSASetService + 0001:00285CE4 WS2Stub_TransmitFile + 0001:00285CF4 WS2Stub_AcceptEx + 0001:00285D04 WS2Stub_GetAcceptExSockaddrs + 0001:00285D14 WS2Stub_WSARecvEx + 0001:002863B4 WS2Call + 0001:0028647C WS2StubInit + 0001:002864B8 WSAStartup + 0001:002865C4 Finalization + 0001:002865FC IdWinSock2 + 0001:00286610 Finalization + 0001:00286640 IdStackConsts + 0001:002868CC TIdStack.CheckForSocketError + 0001:002868F4 TIdStack.CheckForSocketError + 0001:00286964 TIdStack.RaiseSocketError + 0001:002869CC TIdStack.Create + 0001:00286A04 TIdStack.WSTranslateSocketErrorMsg + 0001:00286E40 TIdStack.Destroy + 0001:00286E7C TIdStack.StringToTInAddr + 0001:00286ED8 Finalization + 0001:00286F08 IdStack + 0001:00287064 TIdStackWindows.Create + 0001:0028712C TIdStackWindows.Destroy + 0001:00287160 TIdStackWindows.TInAddrToString + 0001:00287220 TIdStackWindows.WSAccept + 0001:002872B8 TIdStackWindows.WSBind + 0001:00287328 TIdStackWindows.WSCloseSocket + 0001:0028734C TIdStackWindows.WSConnect + 0001:002873A8 TIdStackWindows.WSGetHostByName + 0001:00287424 TIdStackWindows.WSGetHostByAddr + 0001:00287480 TIdStackWindows.WSGetHostName + 0001:002874D0 TIdStackWindows.WSListen + 0001:002874FC TIdStackWindows.WSRecv + 0001:00287530 TIdStackWindows.WSRecvFrom + 0001:002875D4 GetFDSet + 0001:00287630 SetFDSet + 0001:002876E0 TIdStackWindows.WSSelect + 0001:00287808 TIdStackWindows.WSSend + 0001:0028783C TIdStackWindows.WSSendTo + 0001:002878B4 TIdStackWindows.WSSetSockOpt + 0001:002878EC TIdStackWindows.WSGetLocalAddresses + 0001:00287928 TIdStackWindows.WSGetLastError + 0001:00287944 TIdStackWindows.WSSocket + 0001:00287974 TIdStackWindows.WSHToNs + 0001:0028799C TIdStackWindows.WSNToHs + 0001:002879C4 TIdStackWindows.WSGetServByName + 0001:00287AD8 TIdStackWindows.WSGetServByPort + 0001:00287C08 TIdStackWindows.WSHToNL + 0001:00287C2C TIdStackWindows.WSNToHL + 0001:00287C50 TIdStackWindows.PopulateLocalAddresses + 0001:00287D18 TIdStackWindows.WSGetLocalAddress + 0001:00287D3C ServeFile + 0001:00287E04 TIdStackWindows.TranslateStringToTInAddr + 0001:00287EFC TIdStackWindows.WSShutdown + 0001:00287F28 TIdStackWindows.WSGetPeerName + 0001:00287FD0 TIdStackWindows.WSGetSockName + 0001:00288078 TIdStackWindows.WSGetSockOpt + 0001:002880B0 TIdSocketListWindows.Add + 0001:00288130 TIdSocketListWindows.Count + 0001:0028814C TIdSocketListWindows.GetItem + 0001:002881D0 TIdSocketListWindows.Remove + 0001:0028823C TIdStackWindows.WSTranslateSocketErrorMsg + 0001:002882F8 Finalization + 0001:0028833C IdStackWindows + 0001:0028836C Finalization + 0001:0028839C IdURI + 0001:002884D0 IncludeTrailingSlash + 0001:002885D0 TempPath + 0001:00288650 FetchCaseInsensitive + 0001:00288758 Fetch + 0001:0028882C IsNumeric + 0001:00288848 SBPos + 0001:0028886C Finalization + 0001:00288928 IdGlobal + 0001:0028907C TfrmODMedIV.FormCreate + 0001:00289208 TfrmODMedIV.FormDestroy + 0001:00289270 TfrmODMedIV.FormResize + 0001:0028934C TfrmODMedIV.InitDialog + 0001:00289448 SetError + 0001:00289498 TfrmODMedIV.Validate + 0001:002897C8 TfrmODMedIV.SetValuesFromResponses + 0001:00289F18 TfrmODMedIV.SetupDialog + 0001:00289F40 TfrmODMedIV.tabFluidChange + 0001:00289FBC TfrmODMedIV.cboSolutionNeedData + 0001:0028A06C TfrmODMedIV.cboSolutionMouseClick + 0001:0028A474 TfrmODMedIV.cboSolutionExit + 0001:0028A49C TfrmODMedIV.cboAdditiveNeedData + 0001:0028A54C TfrmODMedIV.cboAdditiveMouseClick + 0001:0028A7FC TfrmODMedIV.cboAdditiveExit + 0001:0028A824 PlaceControl + 0001:0028A8CC TfrmODMedIV.ClickOnGridCell + 0001:0028AB60 TfrmODMedIV.txtSelectedChange + 0001:0028ABF8 TfrmODMedIV.txtSelectedExit + 0001:0028AC84 TfrmODMedIV.cboSelectedChange + 0001:0028AD1C TfrmODMedIV.cboSelectedExit + 0001:0028ADA8 TfrmODMedIV.cmdRemoveClick + 0001:0028AE44 IsNumericRate + 0001:0028AE78 TfrmODMedIV.ControlChange + 0001:0028B6A4 TfrmODMedIV.grdSelectedDrawCell + 0001:0028B760 TfrmODMedIV.SetFontSize + 0001:0028B77C TfrmODMedIV.DoSetFontSize + 0001:0028B7BC TfrmODMedIV.FormKeyDown + 0001:0028B81C TfrmODMedIV.grdSelectedKeyPress + 0001:0028B824 TfrmODMedIV.grdSelectedMouseDown + 0001:0028B830 TfrmODMedIV.btnXDurationClick + 0001:0028B880 TfrmODMedIV.popDurationClick + 0001:0028B8E8 TfrmODMedIV.txtXDurationChange + 0001:0028B8F8 TfrmODMedIV.pnlXDurationEnter + 0001:0028B908 TfrmODMedIV.SetLimitationControl + 0001:0028BB90 TfrmODMedIV.txtXDurationExit + 0001:0028C1A8 TfrmODMedIV.txtRateExit + 0001:0028C41C Finalization + 0001:0028C44C fODMedIV + 0001:0028C7EC TfrmODVitals.FormCreate + 0001:0028C8C8 TfrmODVitals.InitDialog + 0001:0028C948 TfrmODVitals.SetupDialog + 0001:0028CA44 SetError + 0001:0028CA94 TfrmODVitals.Validate + 0001:0028CC4C TfrmODVitals.ControlChange + 0001:0028CED4 TfrmODVitals.FormClose + 0001:0028CEF0 Finalization + 0001:0028CF20 fODVitals + 0001:0028D1B8 TfrmOMSet.SetEventDelay + 0001:0028D22C TfrmOMSet.InsertList + 0001:0028D4F4 SkipToNext + 0001:0028D52C TfrmOMSet.DoNextItem + 0001:0028D9B4 TfrmOMSet.UMDelayEvent + 0001:0028DA18 TfrmOMSet.UMDestroy + 0001:0028DB3C TfrmOMSet.FormCreate + 0001:0028DB6C TfrmOMSet.FormDestroy + 0001:0028DBAC TfrmOMSet.FormCloseQuery + 0001:0028DC60 TfrmOMSet.FormClose + 0001:0028DD48 TfrmOMSet.cmdInteruptClick + 0001:0028DD60 TfrmOMSet.DeaCheckPassed + 0001:0028DE80 TfrmOMSet.IsCreatedByMenu + 0001:0028DEBC Finalization + 0001:0028DEEC fOMSet + 0001:0028E218 TPageState.Create + 0001:0028E274 TPageState.Destroy + 0001:0028E2BC GetURLforDialog + 0001:0028E330 NameValueToViewList + 0001:0028E468 NameValueToOrderSet + 0001:0028E768 TfrmOMHTML.SetEventDelay + 0001:0028E7DC TfrmOMHTML.GetPageIndex + 0001:0028E840 TfrmOMHTML.MetaElementExists + 0001:0028EA64 TfrmOMHTML.AddPageToCache + 0001:0028EAB0 TfrmOMHTML.SaveState + 0001:0028F480 GetStateFromName + 0001:0028F558 TfrmOMHTML.RestoreState + 0001:0028FC94 TfrmOMHTML.SetDialog + 0001:0028FD18 TfrmOMHTML.FormCreate + 0001:0028FD8C TfrmOMHTML.FormClose + 0001:0028FDF0 TfrmOMHTML.FormDestroy + 0001:0028FE60 TfrmOMHTML.webViewDocumentComplete + 0001:0028FF90 TfrmOMHTML.webViewBeforeNavigate2 + 0001:0028FFB0 TfrmOMHTML.btnOKClick + 0001:00290098 TfrmOMHTML.btnCancelClick + 0001:002900B0 TfrmOMHTML.btnBackClick + 0001:002901B4 TfrmOMHTML.btnShowClick + 0001:002902D8 Finalization + 0001:00290308 fOMHTML + 0001:00290A2C TfrmODMedNVA.FormCreate + 0001:00290E38 TfrmODMedNVA.FormDestroy + 0001:00290E98 TfrmODMedNVA.InitDialog + 0001:00290F90 TfrmODMedNVA.SetupDialog + 0001:00291140 SetError + 0001:00291190 TfrmODMedNVA.Validate + 0001:002913F8 TfrmODMedNVA.WMTimer + 0001:00291424 TfrmODMedNVA.StartKeyTimer + 0001:0029146C TfrmODMedNVA.StopKeyTimer + 0001:00291494 TfrmODMedNVA.txtMedKeyDown + 0001:002915B0 TfrmODMedNVA.txtMedKeyUp + 0001:002915D4 TfrmODMedNVA.txtMedChange + 0001:002915E8 TfrmODMedNVA.ScrollToVisible + 0001:00291670 TfrmODMedNVA.ChangeDelayed + 0001:00291B18 TfrmODMedNVA.txtMedExit + 0001:00291B44 TfrmODMedNVA.ListViewEnter + 0001:00291BCC TfrmODMedNVA.ListViewClick + 0001:00291C04 TfrmODMedNVA.UMDelayClick + 0001:00291C0C TfrmODMedNVA.ListViewEditing + 0001:00291C1C TfrmODMedNVA.ListViewResize + 0001:00291C50 TfrmODMedNVA.LoadNonVAMedCache + 0001:00291D3C TfrmODMedNVA.lstAllData + 0001:00291E24 TfrmODMedNVA.lstAllDataHint + 0001:00291E38 TfrmODMedNVA.btnSelectClick + 0001:0029209C TfrmODMedNVA.ResetOnMedChange + 0001:00292184 TfrmODMedNVA.SetOnMedSelect + 0001:00292674 TfrmODMedNVA.SetOnQuickOrder + 0001:00292D30 TfrmODMedNVA.ShowMedSelect + 0001:00292EB8 TfrmODMedNVA.ShowMedFields + 0001:00292FD4 TfrmODMedNVA.ShowControlsSimple + 0001:00293044 TfrmODMedNVA.SetDosage + 0001:0029311C TfrmODMedNVA.SetStatements + 0001:002932E8 TfrmODMedNVA.SearchStatements + 0001:002933A0 TfrmODMedNVA.SetStartDate + 0001:002933AC TfrmODMedNVA.SetSchedule + 0001:0029354C TfrmODMedNVA.tabDoseChange + 0001:00293574 TfrmODMedNVA.lblGuidelineClick + 0001:00293634 TfrmODMedNVA.CheckFormAltDose + 0001:002936E4 TfrmODMedNVA.cboDosageClick + 0001:002937D8 TfrmODMedNVA.cboDosageChange + 0001:002937E0 TfrmODMedNVA.cboDosageExit + 0001:00293880 TfrmODMedNVA.cboRouteChange + 0001:002939A8 TfrmODMedNVA.cboRouteExit + 0001:002939AC TfrmODMedNVA.cboScheduleClick + 0001:002939B4 TfrmODMedNVA.cboScheduleChange + 0001:002939BC TfrmODMedNVA.cboScheduleExit + 0001:002939C0 TfrmODMedNVA.OutpatientSig + 0001:00293B34 TfrmODMedNVA.ConstructedDoseFields + 0001:00293E40 TfrmODMedNVA.FindDoseFields + 0001:00293F40 SaveDrug + 0001:002940B0 KillDrug + 0001:00294164 TfrmODMedNVA.FindCommonDrug + 0001:002946F0 TfrmODMedNVA.ControlChange + 0001:00294DDC TfrmODMedNVA.grdDosesExit + 0001:00294DF8 TfrmODMedNVA.ValueOf + 0001:002956CC TfrmODMedNVA.ValueOfResponse + 0001:00295970 TfrmODMedNVA.UpdateStartExpires + 0001:00295C18 TfrmODMedNVA.UpdateRelated + 0001:00295C4C TfrmODMedNVA.timCheckChangesTimer + 0001:00296128 TfrmODMedNVA.cmdAcceptClick + 0001:00296148 TfrmODMedNVA.CheckDecimal + 0001:00296578 TfrmODMedNVA.chkPRNClick + 0001:002966C0 TfrmODMedNVA.grdDosesKeyDown + 0001:00296740 TfrmODMedNVA.grdDosesEnter + 0001:00296758 TfrmODMedNVA.DisableCancelButton + 0001:002967E8 TfrmODMedNVA.DisableDefaultButton + 0001:00296878 TfrmODMedNVA.RestoreCancelButton + 0001:00296894 TfrmODMedNVA.RestoreDefaultButton + 0001:002968B4 TfrmODMedNVA.pnlMessageEnter + 0001:002968CC TfrmODMedNVA.pnlMessageExit + 0001:002968E8 TfrmODMedNVA.memMessageKeyDown + 0001:00296914 TfrmODMedNVA.FormResize + 0001:0029693C TfrmODMedNVA.lstQuickData + 0001:002969DC TfrmODMedNVA.LoadOTCStatements + 0001:00296ACC TfrmODMedNVA.FindQuickOrder + 0001:00296BB8 TfrmODMedNVA.lbStatementsClickCheck + 0001:00296BC0 TfrmODMedNVA.lstChange + 0001:00296C5C TfrmODMedNVA.FormKeyPress + 0001:00296C7C OIForNVA + 0001:00296D20 CheckAuthForNVAMeds + 0001:00296DC4 TfrmODMedNVA.isUniqueQuickOrder + 0001:00296EAC TfrmODMedNVA.DispOrderMessage + 0001:00296F84 Finalization + 0001:00296FC0 fODMedNVA + 0001:00297294 ExecuteChangeRenewedOrder + 0001:00297554 TfrmODChangeUnreleasedRenew.FormCreate + 0001:002975CC TfrmODChangeUnreleasedRenew.btnCancelClick + 0001:002975D4 TfrmODChangeUnreleasedRenew.btnOKClick + 0001:00297858 Finalization + 0001:00297888 fODChangeUnreleasedRenew + 0001:00297D14 ClearControl + 0001:00297E78 ResetControl + 0001:00297FBC TCtrlInit.Create + 0001:00298008 TCtrlInit.Destroy + 0001:00298044 TCtrlInits.Create + 0001:002980A0 TCtrlInits.Destroy + 0001:00298128 TCtrlInits.ClearOI + 0001:00298178 TCtrlInits.ExtractInits + 0001:002983D4 TCtrlInits.LoadDefaults + 0001:00298400 TCtrlInits.LoadOrderItem + 0001:0029842C TCtrlInits.FindInitByName + 0001:002984E8 TCtrlInits.SetControl + 0001:00298728 TCtrlInits.SetListOnly + 0001:0029881C TCtrlInits.SetPopupMenu + 0001:0029898C TCtrlInits.DefaultText + 0001:002989CC TCtrlInits.TextOf + 0001:00298A0C SortPromptsBySequence + 0001:00298A64 TResponses.Create + 0001:00298AF8 TResponses.Destroy + 0001:00298B8C TResponses.Clear + 0001:00298C04 TResponses.Clear + 0001:00298C74 TResponses.SetDialog + 0001:00298D28 TResponses.SetCopyOrder + 0001:00298DD4 TResponses.SetEditOrder + 0001:00298E6C TResponses.SetQuickOrder + 0001:00298EE4 TResponses.SetQuickOrderByID + 0001:00298F6C TResponses.BuildOCItems + 0001:002992A8 TResponses.EValueFor + 0001:00299328 TResponses.IValueFor + 0001:002993A8 TResponses.PromptExists + 0001:00299408 TResponses.FindResponseByName + 0001:00299484 TResponses.IENForPrompt + 0001:002994EC TResponses.InstanceCount + 0001:0029954C TResponses.NextInstance + 0001:002995D8 TResponses.FindResponseByIEN + 0001:00299650 TResponses.FormatResponse + 0001:002999AC TResponses.FindPromptByIEN + 0001:00299A14 TResponses.AppendChildren + 0001:00299B78 TResponses.GetOrderText + 0001:00299EC0 TResponses.Update + 0001:00299F50 TResponses.OrderCRC + 0001:0029A0CC TResponses.Remove + 0001:0029A10C TResponses.SaveQuickOrder + 0001:0029A1BC TResponses.SaveOrder + 0001:0029A968 AssignBPText + 0001:0029AB34 TResponses.SetControl + 0001:0029AEF0 TResponses.SetEventDelay + 0001:0029AFE4 TResponses.SetPromptFormat + 0001:0029B04C TfrmODBase.ClearDialogControls + 0001:0029B11C TfrmODBase.SetDisplayGroup + 0001:0029B148 TfrmODBase.SetFillerID + 0001:0029B224 TfrmODBase.InitDialog + 0001:0029B258 TfrmODBase.OrderForInpatient + 0001:0029B2D4 TfrmODBase.ShowOrderMessage + 0001:0029B348 TfrmODBase.OrderMessage + 0001:0029B3B8 TfrmODBase.PreserveControl + 0001:0029B3DC TfrmODBase.SetDialogIEN + 0001:0029B3F8 TfrmODBase.SetupDialog + 0001:0029B550 TfrmODBase.GetKeyVariable + 0001:0029B880 TfrmODBase.SetKeyVariables + 0001:0029B8A0 TfrmODBase.Validate + 0001:0029BBE4 TfrmODBase.FormCreate + 0001:0029BD88 TfrmODBase.FormDestroy + 0001:0029BE24 TfrmODBase.FormKeyPress + 0001:0029BE70 TfrmODBase.AcceptOrderChecks + 0001:0029BF9C TfrmODBase.ValidSave + 0001:0029C378 TfrmODBase.cmdAcceptClick + 0001:0029C580 TfrmODBase.cmdQuitClick + 0001:0029C598 TfrmODBase.FormClose + 0001:0029C5D0 TfrmODBase.FormCloseQuery + 0001:0029C734 TfrmODBase.memMessageMouseUp + 0001:0029C754 TfrmODBase.SetDefaultCoPay + 0001:0029C7BC TfrmODBase.DoSetFontSize + 0001:0029C808 TfrmODBase.SetFontSize + 0001:0029C824 TResponses.GetIENForPrompt + 0001:0029C88C TfrmODBase.pnlMessageExit + 0001:0029C8A8 TfrmODBase.pnlMessageMouseDown + 0001:0029C8D8 TfrmODBase.pnlMessageMouseMove + 0001:0029C950 TfrmODBase.LESValidationCheck + 0001:0029CBBC Finalization + 0001:0029CC0C fODBase + 0001:0029CC14 CreateOrderDialog + 0001:0029CE98 AuthorizedUser + 0001:0029CF74 AuthorizedToVerify + 0001:0029D050 EncounterPresent + 0001:0029D2BC EncounterPresentEDO + 0001:0029D4B4 LockedForOrdering + 0001:0029D574 UnlockIfAble + 0001:0029D5C0 OrderCanBeLocked + 0001:0029D684 UnlockOrderIfAble + 0001:0029D6F0 AddSelectedToChanges + 0001:0029D7E8 ResetDialogProperties + 0001:0029DA1C IsInvalidActionWarning + 0001:0029DBB4 InitialOrderVariables + 0001:0029DDC0 RetrieveOrderTextPSI + 0001:0029E110 DeselectChild + 0001:0029E1F4 MakeMessage + 0001:0029E280 IsValidActionOnComplexOrder + 0001:0029EF60 ActivateAction + 0001:0029F0A8 ActivateOrderDialog + 0001:0029FFD8 RetrieveOrderText + 0001:002A0078 ActivateOrderHTML + 0001:002A0220 ActivateOrderMenu + 0001:002A03A4 TakeoutDuplicateDlg + 0001:002A0464 ActivateOrderSet + 0001:002A0634 ActivateOrderList + 0001:002A077C ActiveOrdering + 0001:002A07B0 CloseOrdering + 0001:002A0960 ReadyForNewOrder + 0001:002A0C78 ReadyForNewOrder1 + 0001:002A0E20 SetConfirmEventDelay + 0001:002A0E2C ChangeOrders + 0001:002A1170 CopyOrders + 0001:002A14D8 TransferOrders + 0001:002A1830 DestroyingOrderAction + 0001:002A184C DestroyingOrderDialog + 0001:002A1868 DestroyingOrderHTML + 0001:002A1884 DestroyingOrderMenu + 0001:002A18A0 DestroyingOrderSet + 0001:002A18CC OrderIsLocked + 0001:002A1A44 PopLastMenu + 0001:002A1A60 QuickOrderSave + 0001:002A1C58 QuickOrderListEdit + 0001:002A1D5C RefNumFor + 0001:002A1DE4 PrintOrdersOnSignRelease + 0001:002A20A8 SetFontSize + 0001:002A20D4 NextMove + 0001:002A20F4 IsIMODialog + 0001:002A2194 AllowActionOnIMO + 0001:002A223C IMOActionValidation + 0001:002A273C Finalization + 0001:002A2778 uOrders + 0001:002A2A48 SetupORDIALOG + 0001:002A305C GetQuickName + 0001:002A309C LoadQuickListForOD + 0001:002A30EC SaveQuickListForOD + 0001:002A3130 PutQuickOrder + 0001:002A32A4 AskAnotherOrder + 0001:002A3330 DisplayGroupByName + 0001:002A33AC DisplayGroupForDialog + 0001:002A3428 IdentifyDialog + 0001:002A3524 LoadDialogDefinition + 0001:002A3894 LoadOrderPrompting + 0001:002A3CFC ExtractToResponses + 0001:002A4018 LoadResponses + 0001:002A4064 PutNewOrder + 0001:002A49EC OIMessage + 0001:002A4A88 OrderMenuStyle + 0001:002A4B08 SubSetOfOrderItems + 0001:002A4B6C GetDefaultCopay + 0001:002A4C90 SetDefaultCoPayToNewOrder + 0001:002A52BC SubsetOfEntries + 0001:002A5334 ValidateNumericStr + 0001:002A540C IsPFSSActive + 0001:002A54C0 CheckAuthForMeds + 0001:002A5560 DispenseMessage + 0001:002A5650 QuantityMessage + 0001:002A5740 RequiresCopay + 0001:002A57E4 LoadFormularyAlt + 0001:002A5844 LookupRoute + 0001:002A590C MedIsSupply + 0001:002A599C MedTypeIsIV + 0001:002A5A30 ODForMedIn + 0001:002A5A78 ODForIVFluids + 0001:002A5AC0 AmountsForIVFluid + 0001:002A5B14 ODForMedOut + 0001:002A5B5C OIForMedIn + 0001:002A5BC4 OIForMedOut + 0001:002A5C2C RatedDisabilities + 0001:002A5C84 ValidateIVRate + 0001:002A5D04 ValidSchedule + 0001:002A5D94 ValidQuantity + 0001:002A5E3C ODForVitals + 0001:002A5E80 Finalization + 0001:002A5ED8 rODBase + 0001:002A5F1C IdentifyConsultsClass + 0001:002A5FB8 LoadConsultTitles + 0001:002A6138 ResetConsultTitles + 0001:002A6158 DfltConsultTitle + 0001:002A6170 DfltConsultTitleName + 0001:002A6194 ListConsultTitlesShort + 0001:002A6240 SubSetOfConsultTitles + 0001:002A62A8 IdentifyClinProcClass + 0001:002A6344 LoadClinProcTitles + 0001:002A64C4 ResetClinProcTitles + 0001:002A64E4 DfltClinProcTitle + 0001:002A64FC DfltClinProcTitleName + 0001:002A6520 ListClinProcTitlesShort + 0001:002A65CC SubSetOfClinProcTitles + 0001:002A6634 GetConsultsList + 0001:002A6884 LoadConsultDetail + 0001:002A68D4 DisplayResults + 0001:002A6928 GetConsultRec + 0001:002A6E78 SubSetOfStatus + 0001:002A6ED0 SubSetOfUrgencies + 0001:002A6F28 FindConsult + 0001:002A6FAC GetAssignableMedResults + 0001:002A7000 GetRemovableMedResults + 0001:002A7054 GetDetailedMedicineResults + 0001:002A70E8 AttachMedicineResult + 0001:002A71AC RemoveMedicineResult + 0001:002A7254 ConsultServiceUser + 0001:002A73A4 GetActionMenuLevel + 0001:002A7538 ReceiveConsult + 0001:002A75B8 ScheduleConsult + 0001:002A768C DenyConsult + 0001:002A7728 DiscontinueConsult + 0001:002A77C4 ForwardConsult + 0001:002A7864 AddComment + 0001:002A7920 AdminComplete + 0001:002A7A0C SigFindings + 0001:002A7AE4 ODForConsults + 0001:002A7B28 ODForProcedures + 0001:002A7B6C SubSetOfProcedures + 0001:002A7BC8 LoadServiceList + 0001:002A7C1C LoadServiceListWithSynonyms + 0001:002A7C94 LoadServiceListWithSynonyms + 0001:002A7D18 ShowSF513 + 0001:002A7E08 PrintSF513ToDevice + 0001:002A7EB4 GetFormattedSF513 + 0001:002A7F50 GetUnresolvedConsultsInfo + 0001:002A8034 ConsultMessage + 0001:002A80A4 GetProcedureIEN + 0001:002A8120 GetProcedureServices + 0001:002A816C ConsultCanBeResubmitted + 0001:002A81AC LoadConsultForEdit + 0001:002A875C ResubmitConsult + 0001:002A8CB8 GetCurrentContext + 0001:002A8E50 SaveCurrentContext + 0001:002A8F84 GetDefaultReasonForRequest + 0001:002A9034 ReasonForRequestEditable + 0001:002A90B8 GetServicePrerequisites + 0001:002A915C GetNewDialog + 0001:002A91E8 GetServiceIEN + 0001:002A9268 GetProvDxMode + 0001:002A933C GetConsultOrderIEN + 0001:002A9384 GetSavedCPFields + 0001:002A9540 Finalization + 0001:002A95A0 rConsults + 0001:002A967C CreateListItemsForDocumentTree + 0001:002AA034 BuildDocumentTree + 0001:002AA368 MakeBold + 0001:002AA4AC SetTreeNodeImagesAndFormatting + 0001:002AAA78 TraverseTree + 0001:002AAE54 ContextMatch + 0001:002AB25C TextFound + 0001:002AB378 ResetDocTreeObjectStrings + 0001:002AB3EC KillDocTreeObjects + 0001:002AB468 KillDocTreeNode + 0001:002AB49C RemoveParentsWithNoChildren + 0001:002AB568 AddListViewItem + 0001:002AB654 MakeNoteTreeObject + 0001:002AB958 MakeDCSummTreeObject + 0001:002ABCC8 MakeConsultsNoteTreeObject + 0001:002AC014 Finalization + 0001:002AC044 uDocTree + 0001:002AD584 TfrmNotes.AllowContextChange + 0001:002AD910 TfrmNotes.LstNotesToPrint + 0001:002ADA6C TfrmNotes.ClearPtData + 0001:002ADB44 TfrmNotes.DisplayPage + 0001:002ADD24 TfrmNotes.RequestPrint + 0001:002ADEE8 TfrmNotes.RequestMultiplePrint + 0001:002AE0D8 TfrmNotes.SetFontSize + 0001:002AE118 TfrmNotes.mnuChartTabClick + 0001:002AE138 TfrmNotes.ClearEditControls + 0001:002AE278 TfrmNotes.ShowPCEControls + 0001:002AE2E4 TfrmNotes.DisplayPCE + 0001:002AE72C TfrmNotes.GetTitleText + 0001:002AE8A8 TfrmNotes.LacksRequiredForCreate + 0001:002AE9F4 TfrmNotes.VerifyNoteTitle + 0001:002AEAB4 TfrmNotes.SetSubjectVisible + 0001:002AEB60 TfrmNotes.LockConsultRequest + 0001:002AECA0 TfrmNotes.LockConsultRequestAndNote + 0001:002AEE78 TfrmNotes.UnlockConsultRequest + 0001:002AEF08 TfrmNotes.ActiveEditOf + 0001:002AEF94 TfrmNotes.InsertNewNote + 0001:002AF8D8 TfrmNotes.InsertAddendum + 0001:002AFFF4 TfrmNotes.LoadForEdit + 0001:002B0524 TfrmNotes.SaveEditedNote + 0001:002B0A9C TfrmNotes.SaveCurrentNote + 0001:002B0AC4 TfrmNotes.FormCreate + 0001:002B0C88 TfrmNotes.pnlRightResize + 0001:002B0CB8 TfrmNotes.pnlWriteResize + 0001:002B0DC0 TfrmNotes.lstNotesClick + 0001:002B1270 TfrmNotes.cmdNewNoteClick + 0001:002B128C UpdateEncounterInfo + 0001:002B137C TfrmNotes.cmdPCEClick + 0001:002B1478 TfrmNotes.mnuActChangeClick + 0001:002B14BC AssignBoilerText + 0001:002B1580 TfrmNotes.mnuActLoadBoilerClick + 0001:002B188C TfrmNotes.cmdChangeClick + 0001:002B224C TfrmNotes.memNewNoteChange + 0001:002B2268 TfrmNotes.pnlFieldsResize + 0001:002B22F4 TfrmNotes.DoAutoSave + 0001:002B2608 TfrmNotes.timAutoSaveTimer + 0001:002B2628 TfrmNotes.mnuViewClick + 0001:002B2FB0 TfrmNotes.StartNewEdit + 0001:002B33D8 TfrmNotes.mnuActNewClick + 0001:002B34D8 TfrmNotes.mnuActAddIDEntryClick + 0001:002B3650 TfrmNotes.mnuActAddendClick + 0001:002B38F8 TfrmNotes.mnuActDetachFromIDParentClick + 0001:002B3CBC TfrmNotes.mnuActSignListClick + 0001:002B4054 TfrmNotes.RemovePCEFromChanges + 0001:002B427C TfrmNotes.mnuActDeleteClick + 0001:002B47B4 TfrmNotes.mnuActEditClick + 0001:002B491C TfrmNotes.mnuActSaveClick + 0001:002B4A84 TfrmNotes.mnuActSignClick + 0001:002B5338 TfrmNotes.SaveSignItem + 0001:002B5870 TfrmNotes.popNoteMemoPopup + 0001:002B5B14 TfrmNotes.popNoteMemoCutClick + 0001:002B5B34 TfrmNotes.popNoteMemoCopyClick + 0001:002B5B54 TfrmNotes.popNoteMemoPasteClick + 0001:002B5BC0 TfrmNotes.popNoteMemoReformatClick + 0001:002B5BF4 TfrmNotes.popNoteMemoSaveContinueClick + 0001:002B5C1C TfrmNotes.popNoteMemoFindClick + 0001:002B5CB8 TfrmNotes.dlgFindTextFind + 0001:002B5CEC TfrmNotes.popNoteMemoReplaceClick + 0001:002B5D90 TfrmNotes.dlgReplaceTextFind + 0001:002B5DC4 TfrmNotes.dlgReplaceTextReplace + 0001:002B5DF8 TfrmNotes.popNoteMemoSpellClick + 0001:002B5E78 TfrmNotes.popNoteMemoGrammarClick + 0001:002B5EF8 TfrmNotes.mnuViewDetailClick + 0001:002B6024 TfrmNotes.FormClose + 0001:002B6138 TfrmNotes.mnuActIdentifyAddlSignersClick + 0001:002B6540 TfrmNotes.popNoteMemoAddlSignClick + 0001:002B655C TfrmNotes.ProcessNotifications + 0001:002B69C4 TfrmNotes.SetViewContext + 0001:002B6BD4 TfrmNotes.mnuViewSaveAsDefaultClick + 0001:002B6E04 TfrmNotes.mnuViewReturntoDefaultClick + 0001:002B6E28 TfrmNotes.popNoteMemoTemplateClick + 0001:002B6E8C TfrmNotes.popNoteListPopup + 0001:002B6F2C TfrmNotes.popNoteListExpandAllClick + 0001:002B6F4C TfrmNotes.popNoteListCollapseAllClick + 0001:002B6FC0 TfrmNotes.popNoteListExpandSelectedClick + 0001:002B700C TfrmNotes.popNoteListCollapseSelectedClick + 0001:002B7058 TfrmNotes.mnuEditTemplatesClick + 0001:002B7078 TfrmNotes.mnuNewTemplateClick + 0001:002B7098 TfrmNotes.mnuEditSharedTemplatesClick + 0001:002B70B8 TfrmNotes.mnuNewSharedTemplateClick + 0001:002B70D8 TfrmNotes.mnuOptionsClick + 0001:002B7168 TfrmNotes.SetEditingIndex + 0001:002B71B0 TfrmNotes.CanFinishReminder + 0001:002B71F0 TfrmNotes.FormDestroy + 0001:002B7240 TfrmNotes.GetDrawers + 0001:002B7258 TfrmNotes.AssignRemForm + 0001:002B72E0 TfrmNotes.mnuEditDialgFieldsClick + 0001:002B72F8 TfrmNotes.LoadNotes + 0001:002B7D4C TfrmNotes.UpdateTreeView + 0001:002B7DC8 TfrmNotes.tvNotesChange + 0001:002B857C TfrmNotes.tvNotesCollapsed + 0001:002B85D8 SortByTitle + 0001:002B8774 SortByDate + 0001:002B8910 TfrmNotes.tvNotesExpanded + 0001:002B89C8 TfrmNotes.tvNotesClick + 0001:002B89D8 TfrmNotes.tvNotesDragOver + 0001:002B8A9C TfrmNotes.tvNotesDragDrop + 0001:002B8B3C TfrmNotes.tvNotesStartDrag + 0001:002B8C80 TfrmNotes.lvNotesColumnClick + 0001:002B8E84 TfrmNotes.lvNotesCompare + 0001:002B8F40 TfrmNotes.lvNotesSelectItem + 0001:002B9028 TfrmNotes.lvNotesResize + 0001:002B90F4 TfrmNotes.EnableDisableIDNotes + 0001:002B91AC TfrmNotes.ShowPCEButtons + 0001:002B93A4 TfrmNotes.mnuIconLegendClick + 0001:002B93C0 TfrmNotes.mnuActAttachtoIDParentClick + 0001:002B9548 TfrmNotes.DoAttachIDChild + 0001:002B9948 SetDateRangeText + 0001:002B9A5C TfrmNotes.SetNoteTreeLabel + 0001:002B9DA8 TfrmNotes.memNewNoteKeyDown + 0001:002B9E04 TfrmNotes.UpdateNoteAuthor + 0001:002BA158 TfrmNotes.sptHorzCanResize + 0001:002BA1D4 TfrmNotes.popNoteMemoInsTemplateClick + 0001:002BA1F4 TfrmNotes.popNoteMemoPreviewClick + 0001:002BA214 TfrmNotes.tvNotesAddition + 0001:002BA244 TfrmNotes.tvNotesDeletion + 0001:002BA274 TfrmNotes.tvNotesExit + 0001:002BA338 TfrmNotes.pnlReadExit + 0001:002BA43C TfrmNotes.cmdNewNoteExit + 0001:002BA500 TfrmNotes.frmFramePnlPatientExit + 0001:002BA5A8 TfrmNotes.FormHide + 0001:002BA654 TfrmNotes.FormShow + 0001:002BA778 TfrmNotes.frmDrawerEdtSearchExit + 0001:002BA7A8 TfrmNotes.frmDrawerPnlTemplatesButtonExit + 0001:002BA820 TfrmNotes.frmDrawerPnlEncounterButtonExit + 0001:002BA850 TfrmNotes.FormMouseMove + 0001:002BA874 TfrmNotes.memNewNoteKeyPress + 0001:002BA89C TfrmNotes.memNewNoteKeyUp + 0001:002BA98C TfrmNotes.memPCEShowExit + 0001:002BA9E4 TfrmNotes.cmdChangeExit + 0001:002BAA24 TfrmNotes.cmdPCEExit + 0001:002BAA74 TfrmNotes.ViewInfo + 0001:002BAA94 TfrmNotes.mnuViewInformationClick + 0001:002BAC64 Finalization + 0001:002BACCC fNotes + 0001:002BAF3C TfrmRemVisitInfo.btnNowClick + 0001:002BAF5C TfrmRemVisitInfo.FormCreate + 0001:002BAF94 Finalization + 0001:002BAFC4 fRemVisitInfo + 0001:002BB3A8 ClinRemText + 0001:002BB420 NotifyWhenProcessingReminderChanges + 0001:002BB454 RemoveNotifyWhenProcessingReminderChanges + 0001:002BB474 ReminderDialogActive + 0001:002BB480 CurrentReminderInDialog + 0001:002BB498 ViewRemDlgFromForm + 0001:002BB8C0 ViewRemDlg + 0001:002BB97C ViewReminderDialog + 0001:002BB990 ViewRemDlgTemplateFromForm + 0001:002BB9C0 HideReminderDialog + 0001:002BB9D4 UpdateReminderFinish + 0001:002BBA14 KillReminderDialog + 0001:002BBA5C TfrmRemDlg.ProcessReminder + 0001:002BBD44 TfrmRemDlg.FormClose + 0001:002BBD48 TfrmRemDlg.FormCloseQuery + 0001:002BBD64 TfrmRemDlg.FormCreate + 0001:002BBDD4 TfrmRemDlg.FormDestroy + 0001:002BBE90 WipeOutControls + 0001:002BBF00 TfrmRemDlg.ClearControls + 0001:002BBF44 IsOnBox + 0001:002BBF80 SetActiveVars + 0001:002BC0EC TfrmRemDlg.BuildControls + 0001:002BC3C0 TfrmRemDlg.GetBox + 0001:002BC3D8 TfrmRemDlg.BoxUpdateDone + 0001:002BC41C TfrmRemDlg.ControlsChanged + 0001:002BC44C TfrmRemDlg.UMResyncRem + 0001:002BC454 TfrmRemDlg.sbResize + 0001:002BC47C TfrmRemDlg.UpdateText + 0001:002BCB8C TfrmRemDlg.btnClearClick + 0001:002BCD00 TfrmRemDlg.btnCancelClick + 0001:002BCD28 TfrmRemDlg.KillAll + 0001:002BD054 TfrmRemDlg.GetCurReminderList + 0001:002BD294 TfrmRemDlg.NextReminder + 0001:002BD30C TfrmRemDlg.BackReminder + 0001:002BD378 TfrmRemDlg.ProcessReminderFromNodeStr + 0001:002BD458 TfrmRemDlg.btnNextClick + 0001:002BD4A4 TfrmRemDlg.btnBackClick + 0001:002BD4F0 TfrmRemDlg.UpdateButtons + 0001:002BD5C0 TfrmRemDlg.PositionTrees + 0001:002BD648 Add + 0001:002BD880 SaveMSTData + 0001:002BD980 TfrmRemDlg.btnFinishClick + 0001:002BF658 TfrmRemDlg.ResetProcessing + 0001:002BF878 TfrmRemDlg.RemindersChanged + 0001:002BF880 TfrmRemDlg.btnClinMaintClick + 0001:002BF974 TfrmRemDlg.ClinMaintDestroyed + 0001:002BF9A0 TfrmRemDlg.btnVisitClick + 0001:002BFB18 TfrmRemDlg.ProcessTemplate + 0001:002BFC28 TfrmRemDlg.SetFontSize + 0001:002BFC50 TfrmRemDlg.KillDlg + 0001:002BFD74 TfrmRemDlg.FormShow + 0001:002BFDB0 Finalization + 0001:002BFE00 fReminderDialog + 0001:002C00F0 ProcessMsg + 0001:002C016C PerformMHTest + 0001:002C02E0 TfrmMHTest.Answers + 0001:002C03A4 ParseText + 0001:002C0550 AddTxt2Str + 0001:002C0604 TfrmMHTest.LoadTest + 0001:002C0B7C TfrmMHTest.FormCreate + 0001:002C0BD0 TfrmMHTest.FormDestroy + 0001:002C0C08 TfrmMHTest.BuildControls + 0001:002C0E68 TfrmMHTest.GetQText + 0001:002C0F60 TfrmMHTest.CurrentQ + 0001:002C0FF0 TfrmMHTest.GotoQ + 0001:002C1074 TfrmMHTest.FormKeyDown + 0001:002C10C4 GetCtrl + 0001:002C112C AdjDY + 0001:002C1140 GetRLbl + 0001:002C12D0 TMHQuestion.BuildControls + 0001:002C187C TMHQuestion.Create + 0001:002C1918 TMHQuestion.Destroy + 0001:002C1948 TMHQuestion.OnChange + 0001:002C1A40 TfrmMHTest.FormShow + 0001:002C1AA4 TfrmMHTest.sbMainResize + 0001:002C1AB4 TMHQuestion.Question + 0001:002C1C40 TfrmMHTest.btnOKClick + 0001:002C1FEC TfrmMHTest.btnClearClick + 0001:002C20A0 Finalization + 0001:002C20D0 fMHTest + 0001:002C3A38 EditTemplates + 0001:002C3D40 TfrmTemplateEditor.btnNewClick + 0001:002C4008 TfrmTemplateEditor.btnApplyClick + 0001:002C4044 TfrmTemplateEditor.FormCreate + 0001:002C43AC TfrmTemplateEditor.HideControls + 0001:002C443C TfrmTemplateEditor.cboOwnerNeedData + 0001:002C4444 TfrmTemplateEditor.cboOwnerChange + 0001:002C4460 TfrmTemplateEditor.NewPersonalUser + 0001:002C44B0 TfrmTemplateEditor.tvPersonalExpanding + 0001:002C4504 TfrmTemplateEditor.tvSharedExpanding + 0001:002C4558 TfrmTemplateEditor.tvTreeGetImageIndex + 0001:002C4574 TfrmTemplateEditor.tvTreeGetSelectedIndex + 0001:002C4590 TfrmTemplateEditor.IsTemplateLocked + 0001:002C4618 TfrmTemplateEditor.tvTreeChange + 0001:002C46F8 TfrmTemplateEditor.EnableControls + 0001:002C4954 TfrmTemplateEditor.MoveCopyButtons + 0001:002C49EC TfrmTemplateEditor.splMainMoved + 0001:002C49F4 TfrmTemplateEditor.ShowInfo + 0001:002C5660 TfrmTemplateEditor.pnlBoilerplateResize + 0001:002C56D0 TfrmTemplateEditor.edtNameOldChange + 0001:002C57FC TfrmTemplateEditor.cbActiveClick + 0001:002C5954 TfrmTemplateEditor.cbExcludeClick + 0001:002C5A74 TfrmTemplateEditor.edtGapChange + 0001:002C5B84 TfrmTemplateEditor.ChangeTree + 0001:002C5C5C TfrmTemplateEditor.tvTreeEnter + 0001:002C5C98 TfrmTemplateEditor.tvTreeNodeEdited + 0001:002C5D00 TfrmTemplateEditor.cbShHideClick + 0001:002C5D74 TfrmTemplateEditor.cbPerHideClick + 0001:002C5DD4 TfrmTemplateEditor.DisplayBoilerplate + 0001:002C60B0 TfrmTemplateEditor.FormDestroy + 0001:002C6150 TfrmTemplateEditor.sbMoveUpClick + 0001:002C6470 TfrmTemplateEditor.sbMoveDownClick + 0001:002C67C8 TfrmTemplateEditor.sbDeleteClick + 0001:002C6B00 TfrmTemplateEditor.EnableNavControls + 0001:002C6DCC TfrmTemplateEditor.tvTreeDragging + 0001:002C6E00 TfrmTemplateEditor.tvTreeDragOver + 0001:002C6ED0 TfrmTemplateEditor.tvTreeDragDrop + 0001:002C7210 TfrmTemplateEditor.Resync + 0001:002C7564 TfrmTemplateEditor.sbCopyLeftClick + 0001:002C75FC TfrmTemplateEditor.sbCopyRightClick + 0001:002C7694 TfrmTemplateEditor.AllowMove + 0001:002C779C TfrmTemplateEditor.Clone + 0001:002C78D8 TfrmTemplateEditor.reBoilChange + 0001:002C7AC8 TfrmTemplateEditor.SharedEditing + 0001:002C7B8C TfrmTemplateEditor.cbEditSharedClick + 0001:002C7BAC TfrmTemplateEditor.popTemplatesPopup + 0001:002C7E78 TfrmTemplateEditor.mnuCollapseTreeClick + 0001:002C7ED8 TfrmTemplateEditor.mnuFindTemplatesClick + 0001:002C7FE0 TfrmTemplateEditor.ShowTemplateType + 0001:002C80B8 TfrmTemplateEditor.GetTree + 0001:002C80F4 TfrmTemplateEditor.btnFindClick + 0001:002C849C TfrmTemplateEditor.edtSearchChange + 0001:002C8544 TfrmTemplateEditor.SetFindNext + 0001:002C85E0 TfrmTemplateEditor.edtShSearchEnter + 0001:002C85F0 TfrmTemplateEditor.edtShSearchExit + 0001:002C8600 TfrmTemplateEditor.edtPerSearchEnter + 0001:002C8610 TfrmTemplateEditor.edtPerSearchExit + 0001:002C8620 TfrmTemplateEditor.btnOKClick + 0001:002C8660 TfrmTemplateEditor.FormShow + 0001:002C86A8 TfrmTemplateEditor.mnuBPInsertObjectClick + 0001:002C8834 TfrmTemplateEditor.mnuBPErrorCheckClick + 0001:002C89BC TfrmTemplateEditor.popBoilerplatePopup + 0001:002C8B50 ScanTree + 0001:002C8BD0 TfrmTemplateEditor.ScanNames + 0001:002C8E7C TfrmTemplateEditor.btnCancelClick + 0001:002C8E84 TfrmTemplateEditor.FormCloseQuery + 0001:002C8F24 TfrmTemplateEditor.mnuBPSpellCheckClick + 0001:002C8F30 TfrmTemplateEditor.splBoilMoved + 0001:002C8F38 TfrmTemplateEditor.edtGapKeyPress + 0001:002C8F44 TfrmTemplateEditor.edtNameExit + 0001:002C914C TfrmTemplateEditor.tmrAutoScrollTimer + 0001:002C93F0 TfrmTemplateEditor.tvTreeStartDrag + 0001:002C9418 TfrmTemplateEditor.tvTreeEndDrag + 0001:002C942C TfrmTemplateEditor.mnuGroupBPCopyClick + 0001:002C9438 TfrmTemplateEditor.popGroupPopup + 0001:002C94A0 TfrmTemplateEditor.mnuBPCutClick + 0001:002C94AC TfrmTemplateEditor.mnuBPCopyClick + 0001:002C94B8 TfrmTemplateEditor.mnuBPPasteClick + 0001:002C950C TfrmTemplateEditor.mnuGroupBPSelectAllClick + 0001:002C9518 TfrmTemplateEditor.mnuBPSelectAllClick + 0001:002C9524 TfrmTemplateEditor.mnuNodeDeleteClick + 0001:002C9598 TfrmTemplateEditor.mnuNodeCopyClick + 0001:002C95C4 TfrmTemplateEditor.mnuNodePasteClick + 0001:002C9680 TfrmTemplateEditor.PasteOK + 0001:002C9754 TfrmTemplateEditor.mnuBPUndoClick + 0001:002C976C TfrmTemplateEditor.tvTreeKeyDown + 0001:002C9938 TfrmTemplateEditor.mnuEditClick + 0001:002C9B94 TfrmTemplateEditor.mnuGroupBoilerplateClick + 0001:002C9BFC TfrmTemplateEditor.cbShFindOptionClick + 0001:002C9C2C TfrmTemplateEditor.cbPerFindOptionClick + 0001:002C9C5C TfrmTemplateEditor.mnuTemplateClick + 0001:002C9E74 TfrmTemplateEditor.mnuFindSharedClick + 0001:002C9E8C TfrmTemplateEditor.mnuFindPersonalClick + 0001:002C9EA4 TfrmTemplateEditor.mnuShCollapseClick + 0001:002C9EBC TfrmTemplateEditor.mnuPerCollapseClick + 0001:002C9ED4 TfrmTemplateEditor.pnlShSearchResize + 0001:002C9F18 TfrmTemplateEditor.pnlPerSearchResize + 0001:002C9F5C TfrmTemplateEditor.pnlPropertiesResize + 0001:002C9F74 TfrmTemplateEditor.mbMainResize + 0001:002C9F8C TfrmTemplateEditor.mnuBPCheckGrammarClick + 0001:002C9F98 TfrmTemplateEditor.mnuSortClick + 0001:002C9FFC TfrmTemplateEditor.pnlBoilerplateCanResize + 0001:002CA014 TfrmTemplateEditor.AutoDel + 0001:002CA0B8 TfrmTemplateEditor.mnuBPTryClick + 0001:002CA1AC TfrmTemplateEditor.mnuAutoGenClick + 0001:002CA25C TfrmTemplateEditor.reNotesChange + 0001:002CA360 TfrmTemplateEditor.mnuNotesUndoClick + 0001:002CA378 TfrmTemplateEditor.mnuNotesCutClick + 0001:002CA384 TfrmTemplateEditor.mnuNotesCopyClick + 0001:002CA390 TfrmTemplateEditor.mnuNotesPasteClick + 0001:002CA3E4 TfrmTemplateEditor.mnuNotesSelectAllClick + 0001:002CA3F0 TfrmTemplateEditor.mnuNotesGrammarClick + 0001:002CA3FC TfrmTemplateEditor.mnuNotesSpellingClick + 0001:002CA408 TfrmTemplateEditor.popNotesPopup + 0001:002CA528 TfrmTemplateEditor.cbNotesClick + 0001:002CA584 TfrmTemplateEditor.cbDisplayOnlyClick + 0001:002CA58C TfrmTemplateEditor.cbFirstLineClick + 0001:002CA598 TfrmTemplateEditor.cbOneItemOnlyClick + 0001:002CA5A4 TfrmTemplateEditor.cbHideDlgItemsClick + 0001:002CA5B0 TfrmTemplateEditor.cbHideItemsClick + 0001:002CA5BC TfrmTemplateEditor.cbClick + 0001:002CA714 TfrmTemplateEditor.cbIndentClick + 0001:002CA720 TfrmTemplateEditor.mnuToolsClick + 0001:002CA788 TfrmTemplateEditor.mnuEditTemplateFieldsClick + 0001:002CA7CC TfrmTemplateEditor.mnuBPInsertFieldClick + 0001:002CA82C TfrmTemplateEditor.UpdateInsertsDialogs + 0001:002CA854 TfrmTemplateEditor.mnuExportTemplateClick + 0001:002CACD0 ClearFields + 0001:002CACF0 TfrmTemplateEditor.mnuImportTemplateClick + 0001:002CBCB0 TfrmTemplateEditor.cbxTypeDrawItem + 0001:002CBDE4 TfrmTemplateEditor.cbxTypeChange + 0001:002CC0A0 TfrmTemplateEditor.cbxRemDlgsChange + 0001:002CC1AC TfrmTemplateEditor.mnuTemplateIconLegendClick + 0001:002CC1B8 TfrmTemplateEditor.cbLongLinesClick + 0001:002CC1D0 TfrmTemplateEditor.AutoLongLines + 0001:002CC1E4 TfrmTemplateEditor.UpdatePersonalObjects + 0001:002CC2BC GetFirstPersonalNode + 0001:002CC304 TfrmTemplateEditor.CanClone + 0001:002CC35C TfrmTemplateEditor.UpdateApply + 0001:002CC388 TfrmTemplateEditor.TemplateLocked + 0001:002CC43C TfrmTemplateEditor.cbLockClick + 0001:002CC448 TfrmTemplateEditor.mnuRefreshClick + 0001:002CC550 TfrmTemplateEditor.RefreshData + 0001:002CC800 TfrmTemplateEditor.InitTrees + 0001:002CC9C0 TfrmTemplateEditor.reResizeRequest + 0001:002CCA20 TfrmTemplateEditor.reBoilSelectionChange + 0001:002CCA3C TfrmTemplateEditor.reGroupBPSelectionChange + 0001:002CCA58 TfrmTemplateEditor.UpdateXY + 0001:002CCB24 TfrmTemplateEditor.cbxCOMObjChange + 0001:002CCC04 TfrmTemplateEditor.edtCOMParamChange + 0001:002CCCB4 TfrmTemplateEditor.GetLinkType + 0001:002CCD34 TfrmTemplateEditor.cbxLinkNeedData + 0001:002CCE7C TfrmTemplateEditor.cbxLinkChange + 0001:002CD0CC TfrmTemplateEditor.cbxLinkSynonymCheck + 0001:002CD168 TfrmTemplateEditor.reBoilKeyUp + 0001:002CD214 TfrmTemplateEditor.reBoilKeyPress + 0001:002CD224 TfrmTemplateEditor.reBoilKeyDown + 0001:002CD26C Finalization + 0001:002CD29C fTemplateEditor + 0001:002CD41C TdmodShared.ImgIdx + 0001:002CD544 AddChildObject + 0001:002CD604 TdmodShared.AddTemplateNode + 0001:002CD71C TdmodShared.ExpandNode + 0001:002CD7EC InSyncNode + 0001:002CD814 GetID + 0001:002CD9A0 GetNode + 0001:002CDBEC BuildNodes + 0001:002CDD64 TdmodShared.Resync + 0001:002CE06C TdmodShared.dmodSharedCreate + 0001:002CE0B0 TdmodShared.dmodSharedDestroy + 0001:002CE0CC TdmodShared.AddDrawerTree + 0001:002CE110 TdmodShared.RemoveDrawerTree + 0001:002CE138 TdmodShared.Reload + 0001:002CE178 TdmodShared.LoadTIUObjects + 0001:002CE2A4 TdmodShared.NeedsCollapsing + 0001:002CE2DC AddErr + 0001:002CE348 ErrCount + 0001:002CE36C TdmodShared.BoilerplateOK + 0001:002CE7EC TdmodShared.TemplateOK + 0001:002CE9DC TdmodShared.EncounterLocationChanged + 0001:002CEA10 FindNode + 0001:002CEA88 TdmodShared.SelectNode + 0001:002CEBF4 TdmodShared.InDialog + 0001:002CEC24 TdmodShared.ExpandTree + 0001:002CED14 TdmodShared.FindRichEditText + 0001:002CEF4C TdmodShared.ReplaceRichEditText + 0001:002CF144 Finalization + 0001:002CF174 dShared + 0001:002CF378 StartImportMessage + 0001:002CF47C UpdateImportMessage + 0001:002CF4CC StopImportMessage + 0001:002CF4E0 TfrmTemplateImport.btnCancelClick + 0001:002CF528 Finalization + 0001:002CF558 fTemplateImport + 0001:002CFA18 DlgText + 0001:002CFB40 SearchMatch + 0001:002CFBEC UserTemplateAccessLevel + 0001:002CFD80 AddTemplate + 0001:002CFEE4 LoadTemplateData + 0001:002D0038 ExpandTemplate + 0001:002D01BC ReleaseTemplates + 0001:002D0278 RemoveAllNodes + 0001:002D02C4 CanEditType + 0001:002D03C0 CanEditLinkType + 0001:002D0418 GetLinkedTemplate + 0001:002D0528 ConvertFileLink + 0001:002D05AC GetLinkName + 0001:002D0668 BackupDiffers + 0001:002D06C0 DisplayErrors + 0001:002D0730 SaveTemplate + 0001:002D144C SaveAllTemplates + 0001:002D1824 ClearBackup + 0001:002D1870 MarkDeleted + 0001:002D1914 BadTemplateName + 0001:002D19B0 WordImportError + 0001:002D1A4C XMLImportError + 0001:002D1AD8 AddXMLData + 0001:002D1BB4 AddXMLBool + 0001:002D1C40 AddXMLList + 0001:002D1E08 AddBoiler + 0001:002D1ECC AddField + 0001:002D1FBC AddFieldHeader + 0001:002D2150 WordWrap + 0001:002D2280 GetXMLFromWord + 0001:002D3860 WordImportActive + 0001:002D3870 UnlockAllTemplates + 0001:002D38B8 DisplayGroupToLinkType + 0001:002D394C ExecuteTemplateOrBoilerPlate + 0001:002D3A80 ExecuteTemplateOrBoilerPlate + 0001:002D3B50 TTemplate.Create + 0001:002D4168 TTemplate.CreateFromXML + 0001:002D4600 TTemplate.Destroy + 0001:002D4658 TTemplate.AddChild + 0001:002D4690 TTemplate.RemoveChild + 0001:002D46DC TTemplate.GetItems + 0001:002D474C TTemplate.GetTemplateType + 0001:002D4790 TTemplate.GetChildren + 0001:002D4810 TTemplate.GetBoilerplate + 0001:002D4930 TTemplate.ItemBoilerplate + 0001:002D4AFC TTemplate.FullBoilerplate + 0001:002D4BFC TTemplate.SetBoilerplate + 0001:002D4CB0 TTemplate.GetText + 0001:002D4E94 TTemplate.SetPersonalOwner + 0001:002D4F68 TTemplate.AddNode + 0001:002D4FF0 TTemplate.RemoveNode + 0001:002D5034 TTemplate.Clone + 0001:002D5158 TTemplate.TrueClone + 0001:002D54E0 TTemplate.ItemIENs + 0001:002D5558 TemplateChildrenCompare + 0001:002D5580 TTemplate.SortChildren + 0001:002D55BC TTemplate.BackupItems + 0001:002D5634 TTemplate.SetActive + 0001:002D5698 TTemplate.SetExclude + 0001:002D56FC TTemplate.SetDialog + 0001:002D5760 TTemplate.SetGap + 0001:002D57C4 TTemplate.SetPrintName + 0001:002D5834 TTemplate.SetRealType + 0001:002D58B8 TTemplate.ClearBackup + 0001:002D59C8 TTemplate.Changed + 0001:002D5CEC TTemplate.SetDescription + 0001:002D5D6C TTemplate.GetDescription + 0001:002D5E54 TTemplate.SetDisplayOnly + 0001:002D5EB8 TTemplate.SetFirstLine + 0001:002D5F1C TTemplate.SetHideItems + 0001:002D5F80 TTemplate.SetIndentItems + 0001:002D5FE4 TTemplate.SetOneItemOnly + 0001:002D6048 TTemplate.SetHideDlgItems + 0001:002D60AC TTemplate.DlgID + 0001:002D6180 TTemplate.DialogProperties + 0001:002D63C0 TTemplate.GetDialogAborted + 0001:002D63E8 TTemplate.IsDialog + 0001:002D6414 TTemplate.CanExportXML + 0001:002D6918 TTemplate.UpdateImportedFieldNames + 0001:002D6BC4 TTemplate.SetReminderDialog + 0001:002D6CB4 TTemplate.ReminderDialogIEN + 0001:002D6D04 TTemplate.CanModify + 0001:002D6E3C TTemplate.ValidID + 0001:002D6E7C TTemplate.Unlock + 0001:002D6EB4 TTemplate.SetLock + 0001:002D6F18 TTemplate.IsLocked + 0001:002D6F58 TTemplate.SetCOMObject + 0001:002D6FD8 TTemplate.SetCOMParam + 0001:002D7050 TTemplate.AssignFileLink + 0001:002D7158 TTemplate.SetFileLink + 0001:002D7178 TTemplate.COMObjectText + 0001:002D7284 TTemplate.AutoLock + 0001:002D72C4 TTemplate.LinkType + 0001:002D7334 TTemplate.LinkIEN + 0001:002D7360 TTemplate.LinkName + 0001:002D73F8 TTemplate.ExecuteReminderDialog + 0001:002D755C ExpandEmbeddedFields + 0001:002D7708 MakeXMLParamTIU + 0001:002D7984 MakeXMLParamTIU + 0001:002D7BF4 GetXMLParamReturnValueTIU + 0001:002D7ED8 TTemplate.ReminderWipe + 0001:002D7F04 Finalization + 0001:002D7F98 uTemplates + 0001:002D8874 TfrmDrawers.MinDrawerControlHeight + 0001:002D888C AllCtrls + 0001:002D8918 TfrmDrawers.ResizeToVisible + 0001:002D8A8C TfrmDrawers.FormCanResize + 0001:002D8AE4 TfrmDrawers.ButtonHeights + 0001:002D8B68 TfrmDrawers.ShowDrawers + 0001:002D8C4C TfrmDrawers.OpenDrawer + 0001:002D8D9C TfrmDrawers.GetDrawerControls + 0001:002D8E0C TfrmDrawers.CreateDrawers + 0001:002D8F20 TfrmDrawers.EnableDrawer + 0001:002D8FB8 TfrmDrawers.EnableDrawers + 0001:002D9058 TfrmDrawers.FormResize + 0001:002D90A8 TfrmDrawers.sbTemplatesClick + 0001:002D912C TfrmDrawers.sbEncounterClick + 0001:002D9134 TfrmDrawers.sbRemindersClick + 0001:002D91A4 TfrmDrawers.sbOrdersClick + 0001:002D91AC TfrmDrawers.ToggleDrawer + 0001:002D91C4 TfrmDrawers.EndInternalResize + 0001:002D91D4 TfrmDrawers.StartInternalResize + 0001:002D91DC TfrmDrawers.sbResize + 0001:002D9210 TfrmDrawers.InitButtons + 0001:002D9388 TfrmDrawers.FontChanged + 0001:002D956C TfrmDrawers.AddTemplateNode + 0001:002D958C TfrmDrawers.tvTemplatesGetImageIndex + 0001:002D95A8 TfrmDrawers.tvTemplatesGetSelectedIndex + 0001:002D9684 TfrmDrawers.tvTemplatesExpanding + 0001:002D97C8 TfrmDrawers.CheckAsk + 0001:002D9850 TfrmDrawers.tvTemplatesClick + 0001:002D9860 TfrmDrawers.tvTemplatesDblClick + 0001:002D98AC TfrmDrawers.tvTemplatesCollapsing + 0001:002D99C4 TfrmDrawers.tvTemplatesKeyDown + 0001:002D99F8 TfrmDrawers.tvTemplatesKeyUp + 0001:002D9A04 TfrmDrawers.SetRichEditControl + 0001:002D9AB4 TfrmDrawers.MoveCaret + 0001:002D9B04 TfrmDrawers.NewRECDragDrop + 0001:002D9B4C TfrmDrawers.NewRECDragOver + 0001:002D9BB4 TfrmDrawers.InsertText + 0001:002D9D60 TfrmDrawers.popTemplatesPopup + 0001:002D9F9C TfrmDrawers.mnuPreviewTemplateClick + 0001:002DA05C TfrmDrawers.FormDestroy + 0001:002DA08C TfrmDrawers.mnuCollapseTreeClick + 0001:002DA0AC TfrmDrawers.ReloadTemplates + 0001:002DA110 TfrmDrawers.btnFindClick + 0001:002DA448 TfrmDrawers.SetFindNext + 0001:002DA4A4 TfrmDrawers.edtSearchChange + 0001:002DA504 TfrmDrawers.ToggleMenuItem + 0001:002DA548 TfrmDrawers.edtSearchEnter + 0001:002DA558 TfrmDrawers.edtSearchExit + 0001:002DA568 TfrmDrawers.mnuFindTemplatesClick + 0001:002DA5B4 TfrmDrawers.tvTemplatesDragging + 0001:002DA5E4 TfrmDrawers.mnuEditTemplatesClick + 0001:002DA5F0 TfrmDrawers.mnuNewTemplateClick + 0001:002DA5FC TfrmDrawers.FormCreate + 0001:002DA628 TfrmDrawers.ExternalReloadTemplates + 0001:002DA6D0 TfrmDrawers.DisplayDrawers + 0001:002DA6E8 TfrmDrawers.DisplayDrawers + 0001:002DA758 TfrmDrawers.CanEditTemplates + 0001:002DA76C TfrmDrawers.CanEditShared + 0001:002DA778 TfrmDrawers.pnlTemplateSearchResize + 0001:002DA7BC TfrmDrawers.cbFindOptionClick + 0001:002DA7E4 TfrmDrawers.mnuInsertTemplateClick + 0001:002DA818 TfrmDrawers.SetSplitter + 0001:002DA888 TfrmDrawers.SplitterCanResize + 0001:002DA89C TfrmDrawers.SetSplitterActive + 0001:002DA8E4 FindNode + 0001:002DA91C TfrmDrawers.UpdatePersonalTemplates + 0001:002DA9C4 TfrmDrawers.RemindersChanged + 0001:002DAA8C TfrmDrawers.tvRemindersMouseUp + 0001:002DAADC TfrmDrawers.PositionToReminder + 0001:002DABF4 TfrmDrawers.tvRemindersCurListChanged + 0001:002DAC08 TfrmDrawers.NotifyWhenRemTreeChanges + 0001:002DAC40 TfrmDrawers.RemoveNotifyWhenRemTreeChanges + 0001:002DAC60 TfrmDrawers.GetAlign + 0001:002DAC64 TfrmDrawers.SetAlign + 0001:002DAC78 TfrmDrawers.ResetTemplates + 0001:002DACE4 TfrmDrawers.mnuDefaultClick + 0001:002DADB4 TfrmDrawers.OpenToNode + 0001:002DAEB8 TfrmDrawers.mnuGotoDefaultClick + 0001:002DAF20 TfrmDrawers.mnuViewNotesClick + 0001:002DB048 TfrmDrawers.mnuCopyTemplateClick + 0001:002DB178 REOK + 0001:002DB1A8 TfrmDrawers.InsertOK + 0001:002DB234 TfrmDrawers.mnuViewTemplateIconLegendClick + 0001:002DB240 TfrmDrawers.pnlTemplatesButtonEnter + 0001:002DB2A0 TfrmDrawers.pnlTemplatesButtonExit + 0001:002DB2C8 TfrmDrawers.tvRemindersKeyDown + 0001:002DB304 TfrmDrawers.tvRemindersNodeCaptioning + 0001:002DB434 TfrmDrawers.tvRemindersAddition + 0001:002DB454 TfrmDrawers.tvRemindersDeletion + 0001:002DB474 TfrmDrawers.DisableArrowKeyMove + 0001:002DB4E4 Finalization + 0001:002DB514 fDrawers + 0001:002DC0AC InitText + 0001:002DC190 CRLFText + 0001:002DC24C Code2VitalType + 0001:002DC2BC TVitalComboBox.SelectByID + 0001:002DC3C0 IsSyncPrompt + 0001:002DC3DC NotifyWhenRemindersChange + 0001:002DC47C RemoveNotifyRemindersChange + 0001:002DC514 ProcessingChangeString + 0001:002DC628 StartupReminders + 0001:002DC648 GetReminderStatus + 0001:002DC6C8 RemindersEvaluatingInBackground + 0001:002DC6E4 BeginReminderUpdate + 0001:002DC794 EndReminderUpdate + 0001:002DC854 GetRemFolders + 0001:002DC8F4 SetRemFolders + 0001:002DC9BC ReminderEvaluated + 0001:002DCC48 RemindersEvaluated + 0001:002DCD24 CheckReminders + 0001:002DCED4 ResetReminderLoad + 0001:002DCEE8 LoadReminderData + 0001:002DD0F8 GetImageIndex + 0001:002DD470 GetEducationTopics + 0001:002DD6EC GetWebPageName + 0001:002DD748 GetWebPageAddress + 0001:002DD7A4 GetWebPages + 0001:002DDA80 ReminderName + 0001:002DDBBC ReminderClinMaintClicked + 0001:002DDC54 ReminderEduClicked + 0001:002DDCF4 ReminderInqClicked + 0001:002DDD90 ReminderWebClicked + 0001:002DDE08 EvalReminder + 0001:002DE038 EvalProcessed + 0001:002DE15C ReminderEvalClicked + 0001:002DE178 ReminderViewFolderClicked + 0001:002DE1D0 EvaluateCategoryClicked + 0001:002DE338 ReminderIconLegendClicked + 0001:002DE344 Add + 0001:002DE5C8 AddEducationTopics + 0001:002DE77C AddWebPages + 0001:002DE854 ReminderMenuBuilder + 0001:002DEA70 ReminderTreePopup + 0001:002DEAA4 ReminderTreePopupCover + 0001:002DEAD8 ReminderTreePopupDlg + 0001:002DEB0C ReminderMenuItemSelect + 0001:002DEB40 SetReminderPopupRoutine + 0001:002DEB60 SetReminderPopupCoverRoutine + 0001:002DEB80 SetReminderPopupDlgRoutine + 0001:002DEBA0 SetReminderMenuSelectRoutine + 0001:002DEBC8 ReminderMenu + 0001:002DEC2C RemContextPopup + 0001:002DEE7C Add2Tree + 0001:002DEFA4 BuildReminderTree + 0001:002DF9F4 ReminderNode + 0001:002DFAA4 LocationChanged + 0001:002DFAAC ClearReminderData + 0001:002DFC88 RemindersInProcessChanged + 0001:002DFCEC InitReminderList + 0001:002DFD04 InitReminderObjects + 0001:002DFDB8 FreeReminderObjects + 0001:002DFE70 GetReminder + 0001:002DFFD0 WordWrap + 0001:002E0234 InteractiveRemindersActive + 0001:002E0254 GetReminderData + 0001:002E0268 GetReminderData + 0001:002E02B8 SetReminderFormBounds + 0001:002E03C4 Build + 0001:002E046C Reset + 0001:002E05C0 UpdateReminderDialogStatus + 0001:002E06B8 PrepText4NextLine + 0001:002E0790 ExpandTIUObjects + 0001:002E0B14 TReminderDialog.BaseCreate + 0001:002E0E74 TReminderDialog.Create + 0001:002E0EF0 TReminderDialog.Destroy + 0001:002E0F20 CheckItem + 0001:002E0F54 ChildrenChecked + 0001:002E0F94 TReminderDialog.Processing + 0001:002E10A0 TReminderDialog.GetDlgSL + 0001:002E11A4 TReminderDialog.BuildControls + 0001:002E1308 TReminderDialog.AddText + 0001:002E141C TReminderDialog.AddData + 0001:002E1488 TReminderDialog.ComboBoxCheckedText + 0001:002E1684 TReminderDialog.BeginTextChanged + 0001:002E1688 TReminderDialog.EndTextChanged + 0001:002E16AC TReminderDialog.GetIEN + 0001:002E16C8 TReminderDialog.GetPrintName + 0001:002E16E4 TReminderDialog.BeginNeedRedraw + 0001:002E16E8 TReminderDialog.EndNeedRedraw + 0001:002E170C TReminderDialog.FinishProblems + 0001:002E1880 TReminderDialog.ComboBoxResized + 0001:002E18B4 TReminderDialog.Visible + 0001:002E18C4 TReminder.Create + 0001:002E1940 TReminder.GetDueDateStr + 0001:002E195C TReminder.GetIEN + 0001:002E19C0 TReminder.GetLastDateStr + 0001:002E19DC TReminder.GetPrintName + 0001:002E19F8 TReminder.GetPriority + 0001:002E1A54 TReminder.GetStatus + 0001:002E1A70 Code2DataType + 0001:002E1ADC Code2PromptType + 0001:002E1B78 TRemDlgElement.Add2PN + 0001:002E1C90 TRemDlgElement.Box + 0001:002E1CFC TRemDlgElement.BoxCaption + 0001:002E1D2C TRemDlgElement.ChildrenIndent + 0001:002E1D84 TRemDlgElement.ChildrenRequired + 0001:002E1E30 TRemDlgElement.ChildrenSharePrompts + 0001:002E1E9C TRemDlgElement.Destroy + 0001:002E1EEC TRemDlgElement.ElemType + 0001:002E1F78 TRemDlgElement.FindingType + 0001:002E1FA8 TRemDlgElement.HideChildren + 0001:002E2014 TRemDlgElement.Historical + 0001:002E2080 TRemDlgElement.Indent + 0001:002E20D8 TRemDlgElement.GetData + 0001:002E2238 TRemDlgElement.UpdateData + 0001:002E317C UpdateForcedValues + 0001:002E32B4 TRemDlgElement.SetChecked + 0001:002E3430 TRemDlgElement.TrueIndent + 0001:002E347C TRemDlgElement.cbClicked + 0001:002E3588 TRemDlgElement.EnableChildren + 0001:002E35B8 TRemDlgElement.Enabled + 0001:002E35CC TRemDlgElement.ShowChildren + 0001:002E3600 TRemDlgElement.ParentCBEnter + 0001:002E361C TRemDlgElement.ParentCBExit + 0001:002E3638 GetPanel + 0001:002E3774 NextLine + 0001:002E3828 AddPrompts + 0001:002E6DC0 TRemDlgElement.BuildControls + 0001:002E7410 AddNewTxt + 0001:002E74A0 TRemDlgElement.GetTemplateFieldValues + 0001:002E7724 TRemDlgElement.AddText + 0001:002E799C TRemDlgElement.AddData + 0001:002E7BDC TRemDlgElement.Check4ChildrenSharedPrompts + 0001:002E7F18 TRemDlgElement.FinishProblems + 0001:002E867C TRemDlgElement.IsChecked + 0001:002E86AC TRemDlgElement.IndentChildrenInPN + 0001:002E8718 TRemDlgElement.IndentPNLevel + 0001:002E8748 TRemDlgElement.IncludeMHTestInPN + 0001:002E87B4 TRemDlgElement.ResultDlgID + 0001:002E880C TRemDlgElement.SubCommentChange + 0001:002E897C TRemDlgElement.Create + 0001:002E89B8 TRemDlgElement.EntryID + 0001:002E8A44 TRemDlgElement.FieldPanelChange + 0001:002E8B38 TRemDlgElement.GetFieldValues + 0001:002E8C9C TRemDlgElement.FieldPanelEntered + 0001:002E8CDC TRemDlgElement.FieldPanelExited + 0001:002E8D1C TRemDlgElement.FieldPanelKeyPress + 0001:002E8D30 TRemDlgElement.FieldPanelOnClick + 0001:002E8D44 TRemDlgElement.FieldPanelLabelOnClick + 0001:002E8D50 TRemData.Add2PN + 0001:002E8DBC AddPrompt + 0001:002E90EC Add + 0001:002E97AC TRemData.AddData + 0001:002E9A70 TRemData.DataType + 0001:002E9AC8 TRemData.Destroy + 0001:002E9B44 TRemData.DisplayWHResults + 0001:002E9BB8 TRemData.InternalValue + 0001:002E9BD4 TRemData.Narrative + 0001:002E9BF0 TRemPrompt.Add2PN + 0001:002E9CB8 TRemPrompt.Caption + 0001:002E9CF4 TRemPrompt.Create + 0001:002E9D18 TRemPrompt.Forced + 0001:002E9D84 TRemPrompt.InternalValue + 0001:002E9EA8 TRemPrompt.PromptChange + 0001:002EAD20 TRemPrompt.ComboBoxKeyDown + 0001:002EAD70 TRemPrompt.PromptOK + 0001:002EAE28 TRemPrompt.PromptType + 0001:002EAE8C TRemPrompt.Required + 0001:002EAF10 TRemPrompt.SameLine + 0001:002EAF7C TRemPrompt.NoteText + 0001:002EBD1C TRemPrompt.CanShare + 0001:002EBE14 TRemPrompt.Destroy + 0001:002EBE44 TRemPrompt.RemDataActive + 0001:002EBF64 TRemPrompt.RemDataChoiceActive + 0001:002EC09C TRemPrompt.GetValue + 0001:002EC294 TRemPrompt.SetValue + 0001:002ECBC0 TRemPrompt.SetValueFromParent + 0001:002ECC40 TRemPrompt.InitValue + 0001:002ECE84 TRemPrompt.ForcedCaption + 0001:002ED050 TRemPrompt.VitalType + 0001:002ED0AC TRemPrompt.VitalVerify + 0001:002ED190 TRemPrompt.VitalUnitValue + 0001:002ED278 TRemPrompt.VitalValue + 0001:002ED2D0 TRemPrompt.DoWHReport + 0001:002ED3EC TRemPrompt.ViewWHText + 0001:002ED55C TRemPrompt.DoMHTest + 0001:002ED90C TRemPrompt.GAFHelp + 0001:002ED968 TRemPrompt.EditKeyPress + 0001:002ED9E0 TRemPCERoot.Destroy + 0001:002EDA1C TRemPCERoot.Done + 0001:002EDAB0 TRemPCERoot.GetRoot + 0001:002EDCE0 TRemPCERoot.GetValue + 0001:002EDD6C TRemPCERoot.Sync + 0001:002EE180 TRemPCERoot.UnSync + 0001:002EE1B4 Finalization + 0001:002EE28C uReminders + 0001:002EE320 TCoverSheetList.Add + 0001:002EE34C TCoverSheetList.Create + 0001:002EE3A8 TCoverSheetList.Destroy + 0001:002EE3E8 TCoverSheetList.CVpln + 0001:002EE3FC TCoverSheetList.CVlbl + 0001:002EE410 TCoverSheetList.CVlst + 0001:002EE424 DetailGeneric + 0001:002EE4BC DetailProblem + 0001:002EE524 DetailAllergy + 0001:002EE58C DetailPosting + 0001:002EE68C DetailMed + 0001:002EE6D8 LoadCoverSheetList + 0001:002EE750 ExtractActiveMeds + 0001:002EEB58 ListGeneric + 0001:002EEFEC ListActiveProblems + 0001:002EF15C ListAllergies + 0001:002EF1C0 ListPostings + 0001:002EF258 SubListPresent + 0001:002EF2EC AssignList + 0001:002EF5B8 ListAllBackGround + 0001:002EF8B0 NoDataText + 0001:002EF908 LoadDemographics + 0001:002EF95C StartCoverSheet + 0001:002EFA28 StopCoverSheet + 0001:002EFAC0 Finalization + 0001:002EFB08 rCover + 0001:002F0124 TfrmCover.ClearPtData + 0001:002F0250 TfrmCover.LoadList + 0001:002F03F0 WaitList + 0001:002F044C TfrmCover.DisplayPage + 0001:002F0D14 TfrmCover.SetFontSize + 0001:002F0D88 TfrmCover.CoverItemClick + 0001:002F17C4 TfrmCover.FormClose + 0001:002F1818 TfrmCover.timPollTimer + 0001:002F1DE0 TfrmCover.NotifyOrder + 0001:002F1E64 TfrmCover.RemindersChange + 0001:002F2170 TfrmCover.RemContextPopup + 0001:002F2310 TfrmCover.FormCreate + 0001:002F2454 TfrmCover.FormDestroy + 0001:002F2460 TfrmCover.sptBottomCanResize + 0001:002F2474 TfrmCover.sptTopCanResize + 0001:002F2488 TfrmCover.spt_1CanResize + 0001:002F249C TfrmCover.spt_2CanResize + 0001:002F24B0 TfrmCover.spt_3CanResize + 0001:002F24C4 TfrmCover.spt_4CanResize + 0001:002F24D8 TfrmCover.spt_5CanResize + 0001:002F24EC TfrmCover.popMenuAllergiesPopup + 0001:002F262C TfrmCover.popNewAllergyClick + 0001:002F2648 TfrmCover.popNKAClick + 0001:002F2660 TfrmCover.popEditAllergyClick + 0001:002F2688 TfrmCover.popEnteredInErrorClick + 0001:002F26B8 TfrmCover.UpdateAllergiesList + 0001:002F2ADC TfrmCover.CoverItemExit + 0001:002F2B08 TfrmCover.GetPatientFlag + 0001:002F2B4C TfrmCover.lstFlagClick + 0001:002F2BB8 TfrmCover.lstFlagKeyDown + 0001:002F2BCC TfrmCover.UpdateVAAButton + 0001:002F3104 Finalization + 0001:002F3168 fCover + 0001:002F3744 SelectVital + 0001:002F37FC getVitalsStartDate + 0001:002F3878 SelectVitals + 0001:002F3BD8 TfrmVitals.VGrid + 0001:002F3EE4 VitalsGrid + 0001:002F3F70 VitalsMemo + 0001:002F3FF8 TfrmVitals.lstDatesClick + 0001:002F42DC TfrmVitals.FormCreate + 0001:002F4374 TfrmVitals.FormDestroy + 0001:002F4394 TfrmVitals.FMToDateTime + 0001:002F4594 TfrmVitals.lstVitalsClick + 0001:002F45D0 OkFloatValue + 0001:002F46F0 TfrmVitals.WorksheetChart + 0001:002F4F38 TfrmVitals.GetStartStop + 0001:002F503C TfrmVitals.grdVitalsSelectCell + 0001:002F5104 TfrmVitals.chkZoomClick + 0001:002F5180 TfrmVitals.chk3DClick + 0001:002F51A0 TfrmVitals.chkValuesClick + 0001:002F5210 TfrmVitals.FormShow + 0001:002F5218 TfrmVitals.pnlEnterVitalsResize + 0001:002F5270 TfrmVitals.btnEnterVitalsClick + 0001:002F53F8 TfrmVitals.chtChartUndoZoom + 0001:002F540C TfrmVitals.popValuesClick + 0001:002F543C TfrmVitals.pop3DClick + 0001:002F546C TfrmVitals.popZoomClick + 0001:002F549C TfrmVitals.popZoomBackClick + 0001:002F54B0 TfrmVitals.popCopyClick + 0001:002F54BC TfrmVitals.popDetailsClick + 0001:002F587C TfrmVitals.chtChartClickSeries + 0001:002F5988 TfrmVitals.chtChartMouseDown + 0001:002F59B0 TfrmVitals.chtChartClickLegend + 0001:002F5A8C TfrmVitals.popChartPopup + 0001:002F5B78 TfrmVitals.popPrintClick + 0001:002F5C3C TfrmVitals.BeginEndDates + 0001:002F5E90 TfrmVitals.FormKeyUp + 0001:002F5EA8 Finalization + 0001:002F5ED8 fVitals + 0001:002F6524 TfrmEncVitals.HasData + 0001:002F6604 TfrmEncVitals.InitVitalPanel + 0001:002F6914 TfrmEncVitals.PopulateLastVital + 0001:002F6F78 TfrmEncVitals.SetVitPointer + 0001:002F705C TfrmEncVitals.GetVitHTRate + 0001:002F70BC TfrmEncVitals.AssignVitals + 0001:002F724C TfrmEncVitals.cboTempChange + 0001:002F7268 TfrmEncVitals.CheckVitalUnit + 0001:002F73E0 TfrmEncVitals.cboHeightChange + 0001:002F73E8 TfrmEncVitals.cboWeightChange + 0001:002F73F0 TfrmEncVitals.txtMeasBPExit + 0001:002F7428 TfrmEncVitals.cboTempExit + 0001:002F7474 TfrmEncVitals.txtMeasRespExit + 0001:002F74AC TfrmEncVitals.txtMeasPulseExit + 0001:002F74E4 TfrmEncVitals.cboHeightExit + 0001:002F755C TfrmEncVitals.cboWeightExit + 0001:002F75A8 TfrmEncVitals.FormCreate + 0001:002F75F8 TfrmEncVitals.FormDestroy + 0001:002F7630 TfrmEncVitals.lbllastClick + 0001:002F7698 TfrmEncVitals.FormShow + 0001:002F77E4 TfrmEncVitals.FormActivate + 0001:002F7804 TfrmEncVitals.cboPainChange + 0001:002F780C TfrmEncVitals.FormResize + 0001:002F7868 TfrmEncVitals.txtMeasTempExit + 0001:002F78B4 TfrmEncVitals.txtMeasHtExit + 0001:002F792C TfrmEncVitals.txtMeasWtExit + 0001:002F7978 TfrmEncVitals.ChangeFocus + 0001:002F79C4 TfrmEncVitals.OK2SaveVitals + 0001:002F7BB4 TfrmEncVitals.ClearData + 0001:002F7C14 TfrmEncVitals.FormKeyDown + 0001:002F7C7C TfrmEncVitals.LoadVitalView + 0001:002F7E30 TfrmEncVitals.btnEnterVitalsClick + 0001:002F8014 TfrmEncVitals.LoadVitalsList + 0001:002F8164 Finalization + 0001:002F8194 fEncVitals + 0001:002F8394 TfrmExams.cboExamResultsChange + 0001:002F8464 TfrmExams.FormCreate + 0001:002F84D0 TfrmExams.UpdateNewItemStr + 0001:002F84F0 TfrmExams.UpdateControls + 0001:002F8694 Finalization + 0001:002F86C4 fExam + 0001:002F88DC TfrmHealthFactors.cboHealthLevelChange + 0001:002F89AC TfrmHealthFactors.FormCreate + 0001:002F8A20 TfrmHealthFactors.UpdateNewItemStr + 0001:002F8A40 TfrmHealthFactors.UpdateControls + 0001:002F8BE4 Finalization + 0001:002F8C14 fHealthFactor + 0001:002F8E2C TfrmPatientEd.cboPatUnderstandingChange + 0001:002F8EFC TfrmPatientEd.FormCreate + 0001:002F8F6C TfrmPatientEd.UpdateNewItemStr + 0001:002F8F8C TfrmPatientEd.UpdateControls + 0001:002F9130 Finalization + 0001:002F9160 fPatientEd + 0001:002F9448 TfrmSkinTests.cboSkinResultsChange + 0001:002F9518 TfrmSkinTests.EdtReadingChange + 0001:002F95D4 TfrmSkinTests.edtDtReadChange + 0001:002F95D8 TfrmSkinTests.edtDTGivenChange + 0001:002F95DC TfrmSkinTests.FormCreate + 0001:002F964C TfrmSkinTests.UpdateNewItemStr + 0001:002F9690 TfrmSkinTests.UpdateControls + 0001:002F9924 TfrmSkinTests.UpDnReadingChanging + 0001:002F9948 Finalization + 0001:002F9978 fSkinTest + 0001:002F9C00 TfrmImmunizations.cboImmSeriesChange + 0001:002F9CD0 TfrmImmunizations.cboImmReactionChange + 0001:002F9DA0 TfrmImmunizations.ckbContraClick + 0001:002F9E14 TfrmImmunizations.FormCreate + 0001:002F9E90 TfrmImmunizations.UpdateNewItemStr + 0001:002F9F00 TfrmImmunizations.UpdateControls + 0001:002FA1A8 Finalization + 0001:002FA1D8 fImmunization + 0001:002FA564 TfrmProcedures.txtProcQtyChange + 0001:002FA5D8 TfrmProcedures.cboProviderChange + 0001:002FA64C TfrmProcedures.FormCreate + 0001:002FA714 TfrmProcedures.UpdateNewItemStr + 0001:002FA734 TfrmProcedures.UpdateControls + 0001:002FAA04 TfrmProcedures.FormResize + 0001:002FAAF4 TfrmProcedures.splRightMoved + 0001:002FAB30 TfrmProcedures.clbListClick + 0001:002FAB54 TfrmProcedures.lbGridSelect + 0001:002FAB70 TfrmProcedures.btnSelectAllClick + 0001:002FAB8C TfrmProcedures.ShowModifiers + 0001:002FAED0 TfrmProcedures.CheckModifiers + 0001:002FB194 TfrmProcedures.lbModsClickCheck + 0001:002FB3A4 TfrmProcedures.lbSectionClick + 0001:002FB3B8 TfrmProcedures.lbxSectionClickCheck + 0001:002FB630 TfrmProcedures.btnOtherClick + 0001:002FB64C TfrmProcedures.btnRemoveClick + 0001:002FB668 TfrmProcedures.cboProviderNeedData + 0001:002FB704 TfrmProcedures.OK2SaveProcedures + 0001:002FB7A4 TfrmProcedures.MissingProvider + 0001:002FB810 TfrmProcedures.InitTab + 0001:002FB868 Finalization + 0001:002FB898 fProcedure + 0001:002FBAC8 OtherLookup + 0001:002FBB48 TfrmPCEOther.SetApp + 0001:002FBC7C TfrmPCEOther.cmdOKClick + 0001:002FBCF8 TfrmPCEOther.FormCreate + 0001:002FBD08 TfrmPCEOther.cmdCancelClick + 0001:002FBD20 TfrmPCEOther.cboOtherDblClick + 0001:002FBD28 TfrmPCEOther.cboOtherChange + 0001:002FBD48 Finalization + 0001:002FBD78 fPCEOther + 0001:002FC010 HFLookup + 0001:002FC080 TfrmHFSearch.cbxSearchChange + 0001:002FC2A0 TfrmHFSearch.FormCreate + 0001:002FC564 TfrmHFSearch.btnOKClick + 0001:002FC5E0 TfrmHFSearch.tvSearchDblClick + 0001:002FC5E8 TfrmHFSearch.tvSearchGetImageIndex + 0001:002FC674 TfrmHFSearch.tvSearchChange + 0001:002FC760 TfrmHFSearch.UpdateCat + 0001:002FC82C Finalization + 0001:002FC85C fHFSearch + 0001:002FCC34 TfrmPCEBaseMain.lbSectionClick + 0001:002FCC68 TfrmPCEBaseMain.UpdateNewItemStr + 0001:002FCC6C TfrmPCEBaseMain.GridChanged + 0001:002FCDB8 TfrmPCEBaseMain.btnOtherClick + 0001:002FCF4C TfrmPCEBaseMain.edtCommentExit + 0001:002FCFCC TfrmPCEBaseMain.AllowTabChange + 0001:002FCFD4 TfrmPCEBaseMain.edtCommentChange + 0001:002FCFF0 TfrmPCEBaseMain.btnRemoveClick + 0001:002FD1B0 TfrmPCEBaseMain.UpdateControls + 0001:002FD2CC TfrmPCEBaseMain.clbListClick + 0001:002FD2D0 TfrmPCEBaseMain.lbGridSelect + 0001:002FD2DC TfrmPCEBaseMain.FormDestroy + 0001:002FD31C TfrmPCEBaseMain.InitTab + 0001:002FD37C TfrmPCEBaseMain.BeginUpdate + 0001:002FD384 TfrmPCEBaseMain.EndUpdate + 0001:002FD394 TfrmPCEBaseMain.NotUpdating + 0001:002FD3A0 TfrmPCEBaseMain.CheckOffEntries + 0001:002FD534 TfrmPCEBaseMain.btnSelectAllClick + 0001:002FD5B4 TfrmPCEBaseMain.FormResize + 0001:002FD5CC TfrmPCEBaseMain.clbListMouseDown + 0001:002FD5D4 TfrmPCEBaseMain.GetCat + 0001:002FD670 TfrmPCEBaseMain.lbxSectionClickCheck + 0001:002FD968 TfrmPCEBaseMain.UpdateTabPos + 0001:002FD9B8 TfrmPCEBaseMain.splLeftMoved + 0001:002FD9F4 TfrmPCEBaseMain.Sync2Grid + 0001:002FDBB8 TfrmPCEBaseMain.Sync2Section + 0001:002FDD64 TfrmPCEBaseMain.edtCommentKeyPress + 0001:002FDDD0 Finalization + 0001:002FDE00 fPCEBaseMain + 0001:002FE0D0 TfrmDiagnoses.EnsurePrimaryDiag + 0001:002FE154 TfrmDiagnoses.cmdDiagPrimaryClick + 0001:002FE1B8 TfrmDiagnoses.ckbDiagProbClicked + 0001:002FE278 TfrmDiagnoses.FormCreate + 0001:002FE2F0 TfrmDiagnoses.btnRemoveClick + 0001:002FE304 TfrmDiagnoses.UpdateNewItemStr + 0001:002FE384 TfrmDiagnoses.UpdateControls + 0001:002FE5A4 TfrmDiagnoses.FormResize + 0001:002FE5FC TfrmDiagnoses.lbxSectionClickCheck + 0001:002FE810 TfrmDiagnoses.btnOKClick + 0001:002FE830 TfrmDiagnoses.lbSectionClick + 0001:002FE838 TfrmDiagnoses.GetEncounterDiagnoses + 0001:002FE954 TfrmDiagnoses.lbSectionDrawItem + 0001:002FEBFC Finalization + 0001:002FEC2C fDiagnoses + 0001:002FF0C8 TfrmVisitType.MatchVType + 0001:002FF2C0 TfrmVisitType.lstVTypeSectionClick + 0001:002FF448 TfrmVisitType.FormCloseQuery + 0001:002FF44C TfrmVisitType.RefreshProviders + 0001:002FF564 TfrmVisitType.FormCreate + 0001:002FF6D8 TfrmVisitType.UpdateProviderButtons + 0001:002FF730 TfrmVisitType.btnAddClick + 0001:002FF7C8 TfrmVisitType.btnDeleteClick + 0001:002FF860 TfrmVisitType.btnPrimaryClick + 0001:002FF908 TfrmVisitType.cboPtProviderDblClick + 0001:002FF910 TfrmVisitType.cboPtProviderChange + 0001:002FF918 TfrmVisitType.cboPtProviderNeedData + 0001:002FF9B4 TfrmVisitType.lbProvidersChange + 0001:002FF9BC TfrmVisitType.lbProvidersDblClick + 0001:002FF9C4 TfrmVisitType.FormResize + 0001:002FFB10 TfrmVisitType.lbxVisitsClickCheck + 0001:002FFD7C TfrmVisitType.ShowModifiers + 0001:002FFFC0 TfrmVisitType.CheckModifiers + 0001:003001FC TfrmVisitType.splLeftMoved + 0001:00300234 TfrmVisitType.splRightMoved + 0001:0030026C TfrmVisitType.lbModsClickCheck + 0001:003003A4 TfrmVisitType.lbxVisitsClick + 0001:003003AC Finalization + 0001:003003DC fVisitType + 0001:00300608 TfrmPCEBase.FormCreate + 0001:00300630 TfrmPCEBase.Loaded + 0001:0030069C TfrmPCEBase.DisplayPage + 0001:003006FC TfrmPCEBase.SetFontSize + 0001:0030071C TfrmPCEBase.UMResizePage + 0001:00300788 TfrmPCEBase.btnCancelClick + 0001:003007C0 TfrmPCEBase.btnOKClick + 0001:003007EC TfrmPCEBase.FormClose + 0001:00300810 TfrmPCEBase.AllowTabChange + 0001:00300820 TfrmPCEBase.CreateLinked + 0001:0030088C TfrmPCEBase.ActiveCtrl + 0001:003008C8 TfrmPCEBase.SectionString + 0001:003009F8 TfrmPCEBase.DoEnter + 0001:00300A20 TfrmPCEBase.FocusFirstControl + 0001:00300A44 TfrmPCEBase.FormShow + 0001:00300A5C Finalization + 0001:00300A8C fPCEBase + 0001:00300D60 TfrmEncounterFrame.PageIDToTab + 0001:00300F18 TfrmEncounterFrame.PageIDToForm + 0001:00300FAC TfrmEncounterFrame.CreateChildForms + 0001:00300FC8 TfrmEncounterFrame.LoadFormList + 0001:00301148 TfrmEncounterFrame.FormListContains + 0001:003011A4 TfrmEncounterFrame.CreateForms + 0001:003014A0 TfrmEncounterFrame.SwitchToPage + 0001:003014D4 TfrmEncounterFrame.tabPageChange + 0001:0030156C TfrmEncounterFrame.FormResize + 0001:0030160C TfrmEncounterFrame.AddTabs + 0001:003016A4 UpdatePCE + 0001:00301948 TfrmEncounterFrame.SectionClick + 0001:00301998 InitList + 0001:00301A50 TfrmEncounterFrame.SynchPCEData + 0001:00301D00 TfrmEncounterFrame.FormDestroy + 0001:00301D70 TfrmEncounterFrame.FormCreate + 0001:00301DC0 TfrmEncounterFrame.SendData + 0001:00301EF8 TfrmEncounterFrame.FormCloseQuery + 0001:00302214 TfrmEncounterFrame.TabControlChange + 0001:003022DC TfrmEncounterFrame.TabControlChanging + 0001:003022F8 TfrmEncounterFrame.UpdateEncounter + 0001:00302524 TfrmEncounterFrame.SelectTab + 0001:003025A4 TfrmEncounterFrame.TabControlExit + 0001:00302658 TfrmEncounterFrame.FormKeyDown + 0001:003027A4 TfrmEncounterFrame.SetFormFonts + 0001:003029BC TfrmEncounterFrame.FormClose + 0001:003029C4 TfrmEncounterFrame.FormCanResize + 0001:003029E0 Finalization + 0001:00302A10 fEncounterFrame + 0001:00302C74 TfrmDupPts.btnCancelClick + 0001:00302C7C TfrmDupPts.FormCreate + 0001:00302CD8 TfrmDupPts.btnOKClick + 0001:00302DD0 TfrmDupPts.FormKeyDown + 0001:00302DF0 TfrmDupPts.lboSelPtDblClick + 0001:00302DFC Finalization + 0001:00302E2C fDupPts + 0001:00302E34 Finalization + 0001:00302E64 fPtSens + 0001:0030311C TfrmPtSelDemog.ClearIDInfo + 0001:003031A4 TfrmPtSelDemog.ShowDemog + 0001:00303594 TfrmPtSelDemog.ToggleMemo + 0001:003035BC TfrmPtSelDemog.FormCreate + 0001:003035E8 TfrmPtSelDemog.NewWinProc + 0001:00303734 TfrmPtSelDemog.FormDestroy + 0001:00303750 Finalization + 0001:00303780 fPtSelDemog + 0001:003039CC TfrmPtSelOptSave.FormCreate + 0001:00303AD4 TfrmPtSelOptSave.btnCancelClick + 0001:00303ADC TfrmPtSelOptSave.btnOKClick + 0001:00303B78 TfrmPtSelOptSave.rGrpClinSaveClick + 0001:00303B9C Finalization + 0001:00303BCC fPtSelOptSave + 0001:00303F44 TfrmPtSelOptns.IsLast5 + 0001:00303FF4 TfrmPtSelOptns.IsPatientName + 0001:00304074 TfrmPtSelOptns.IsEnhanced + 0001:003040D4 TfrmPtSelOptns.IsFullSSN + 0001:00304334 TfrmPtSelOptns.radHideSrcClick + 0001:003043EC TfrmPtSelOptns.radShowSrcClick + 0001:003045C0 TfrmPtSelOptns.radLongSrcClick + 0001:00304774 TfrmPtSelOptns.cboListExit + 0001:003047AC TfrmPtSelOptns.cboListKeyPause + 0001:003047E4 TfrmPtSelOptns.cboListMouseClick + 0001:0030481C TfrmPtSelOptns.cboListNeedData + 0001:00304874 TfrmPtSelOptns.HideDateRange + 0001:003048AC TfrmPtSelOptns.ShowDateRange + 0001:00304A7C TfrmPtSelOptns.cboDateRangeExit + 0001:00304AA0 TfrmPtSelOptns.cboDateRangeMouseClick + 0001:00304BFC TfrmPtSelOptns.cmdSaveListClick + 0001:00305684 TfrmPtSelOptns.FormCreate + 0001:00305690 TfrmPtSelOptns.SetDefaultPtList + 0001:0030574C TfrmPtSelOptns.UpdateDefault + 0001:0030582C Finalization + 0001:00305868 fPtSelOptns + 0001:00305B54 ForwardAlertTo + 0001:00305C50 TfrmAlertForward.FormCreate + 0001:00305C60 TfrmAlertForward.cboSrcListNeedData + 0001:00305C90 TfrmAlertForward.cmdCancelClick + 0001:00305C98 TfrmAlertForward.cmdOKClick + 0001:00305DE4 TfrmAlertForward.DstListClick + 0001:00305E1C TfrmAlertForward.cboSrcListKeyDown + 0001:00305E30 TfrmAlertForward.cboSrcListMouseClick + 0001:00305EEC TfrmAlertForward.DstListKeyDown + 0001:00305F00 Finalization + 0001:00305F3C fAlertForward + 0001:00306550 TfrmPtSel.IsOther + 0001:00306598 SelectPatient + 0001:00306754 TfrmPtSel.AdjustFormSize + 0001:003068C0 TfrmPtSel.SetCaptionTop + 0001:00306BB4 TfrmPtSel.SetPtListTop + 0001:00307404 TfrmPtSel.cboPatientEnter + 0001:00307448 TfrmPtSel.cboPatientExit + 0001:00307468 ShowMatchingPatients + 0001:00307554 TfrmPtSel.cboPatientChange + 0001:00307880 TfrmPtSel.cboPatientKeyPause + 0001:0030790C TfrmPtSel.cboPatientMouseClick + 0001:003079D8 TfrmPtSel.cboPatientDblClick + 0001:00307A98 TfrmPtSel.cboPatientNeedData + 0001:00307D30 TfrmPtSel.ClearIDInfo + 0001:00307D48 TfrmPtSel.ShowIDInfo + 0001:00307DB8 TfrmPtSel.cmdOKClick + 0001:00308748 TfrmPtSel.cmdCancelClick + 0001:0030876C TfrmPtSel.cmdProcessClick + 0001:00308D9C TfrmPtSel.cmdSaveListClick + 0001:00308DBC TfrmPtSel.cmdProcessInfoClick + 0001:00308FD4 TfrmPtSel.cmdProcessAllClick + 0001:00309048 TfrmPtSel.lstvAlertsDblClick + 0001:00309064 TfrmPtSel.cmdForwardClick + 0001:00309254 TfrmPtSel.cmdRemoveClick + 0001:0030948C TfrmPtSel.FormDestroy + 0001:003094C0 TfrmPtSel.pnlPtSelResize + 0001:00309514 TfrmPtSel.Loaded + 0001:00309750 TfrmPtSel.RPLDisplay + 0001:00309778 TfrmPtSel.FormClose + 0001:003097B4 TfrmPtSel.cboPatientKeyDown + 0001:003097EC TfrmPtSel.AlertList + 0001:00309B34 TfrmPtSel.lstvAlertsColumnClick + 0001:00309D0C TfrmPtSel.lstvAlertsCompare + 0001:00309E54 TfrmPtSel.DupLastSSN + 0001:0030A120 TfrmPtSel.ShowFlagInfo + 0001:0030A258 TfrmPtSel.lstFlagsClick + 0001:0030A268 TfrmPtSel.lstFlagsKeyDown + 0001:0030A294 TfrmPtSel.lstvAlertsSelectItem + 0001:0030A2F0 TfrmPtSel.ShowButts + 0001:0030A334 TfrmPtSel.lstvAlertsInfoTip + 0001:0030A39C TfrmPtSel.FormKeyDown + 0001:0030A3B4 TfrmPtSel.lstvAlertsKeyDown + 0001:0030A610 TfrmPtSel.FormShow + 0001:0030A858 TfrmPtSel.ReformatAlertDateTime + 0001:0030AB18 TfrmPtSel.onclick1 + 0001:0030ACD4 Finalization + 0001:0030AD38 fPtSel + 0001:0030AD70 AtomicTests + 0001:0030ADD8 Specimens + 0001:0030AE3C AllTests + 0001:0030AEA4 ChemTest + 0001:0030AF0C Users + 0001:0030AF74 TestGroups + 0001:0030AFCC ATest + 0001:0030B020 ATestGroup + 0001:0030B084 UTGAdd + 0001:0030B0B4 UTGReplace + 0001:0030B0F4 UTGDelete + 0001:0030B124 SpecimenDefaults + 0001:0030B27C Cumulative + 0001:0030B3B0 RemoteLabCumulative + 0001:0030B494 Interim + 0001:0030B5C0 RemoteLabInterim + 0001:0030B6A0 Micro + 0001:0030B7CC RemoteLabMicro + 0001:0030B8AC InterimSelect + 0001:0030B928 InterimGrid + 0001:0030B9A0 Worksheet + 0001:0030BA5C Reports + 0001:0030BBE4 RemoteLabReports + 0001:0030BD48 RemoteLab + 0001:0030BEAC GetNewestOldest + 0001:0030BF94 GetChart + 0001:0030C060 PrintLabsToDevice + 0001:0030C3D4 GetFormattedLabReport + 0001:0030C634 TestInfo + 0001:0030C6B4 Finalization + 0001:0030C6E4 rLabs + 0001:0030C9D0 PrintLabs + 0001:0030CC10 TfrmLabPrint.DisplaySelectDevice + 0001:0030CCC8 TfrmLabPrint.FormCreate + 0001:0030CD04 TfrmLabPrint.cboDeviceChange + 0001:0030CDD0 TfrmLabPrint.cboDeviceNeedData + 0001:0030CDF8 TfrmLabPrint.cmdOKClick + 0001:0030D314 TfrmLabPrint.cmdCancelClick + 0001:0030D31C TfrmLabPrint.FormDestroy + 0001:0030D328 Finalization + 0001:0030D358 fLabPrint + 0001:0030D8E4 SelectTestGroups + 0001:0030DAB0 TfrmLabTestGroups.FormCreate + 0001:0030DE10 TfrmLabTestGroups.cboTestsNeedData + 0001:0030DE38 TfrmLabTestGroups.cmdOKClick + 0001:0030DF10 TfrmLabTestGroups.cmdClearClick + 0001:0030DF2C TfrmLabTestGroups.cmdRemoveClick + 0001:0030DFE0 TfrmLabTestGroups.cmdUpClick + 0001:0030E0F0 TfrmLabTestGroups.cmdDownClick + 0001:0030E200 TfrmLabTestGroups.lstListClick + 0001:0030E338 TfrmLabTestGroups.cboUsersNeedData + 0001:0030E360 TfrmLabTestGroups.cboSpecimenNeedData + 0001:0030E388 TfrmLabTestGroups.cboUsersClick + 0001:0030E3B8 TfrmLabTestGroups.AddTests + 0001:0030E50C TfrmLabTestGroups.lstTestGroupsClick + 0001:0030E538 TfrmLabTestGroups.TestGroupEnable + 0001:0030E5E8 TfrmLabTestGroups.cmdReplaceClick + 0001:0030E788 TfrmLabTestGroups.cmdAddClick + 0001:0030E984 TfrmLabTestGroups.cmdDeleteClick + 0001:0030EB68 TfrmLabTestGroups.cboTestsChange + 0001:0030EB88 TfrmLabTestGroups.cboTestsEnter + 0001:0030EB98 TfrmLabTestGroups.cboTestsExit + 0001:0030EBA8 TfrmLabTestGroups.cmdAddTestClick + 0001:0030EBC8 TfrmLabTestGroups.pnlUpButtonEnter + 0001:0030EBD8 TfrmLabTestGroups.pnlUpButtonExit + 0001:0030EBE8 TfrmLabTestGroups.pnlDownButtonEnter + 0001:0030EBF8 TfrmLabTestGroups.pnlDownButtonExit + 0001:0030EC08 TfrmLabTestGroups.pnlUpButtonResize + 0001:0030EC20 TfrmLabTestGroups.pnlDownButtonResize + 0001:0030EC38 Finalization + 0001:0030EC68 fLabTestGroups + 0001:0030EF7C SelectTests + 0001:0030F09C TfrmLabTests.FormCreate + 0001:0030F0D0 TfrmLabTests.cboTestsNeedData + 0001:0030F0F8 TfrmLabTests.cmdOKClick + 0001:0030F168 TfrmLabTests.cmdClearClick + 0001:0030F184 TfrmLabTests.cmdRemoveClick + 0001:0030F238 TfrmLabTests.lstListClick + 0001:0030F288 TfrmLabTests.cboTestsChange + 0001:0030F2A8 TfrmLabTests.cboTestsEnter + 0001:0030F2B8 TfrmLabTests.cboTestsExit + 0001:0030F2C8 TfrmLabTests.cmdAddClick + 0001:0030F3EC TfrmLabTests.FormShow + 0001:0030F3F4 TfrmLabTests.FormClose + 0001:0030F3FC Finalization + 0001:0030F42C fLabTests + 0001:0030F6B8 SelectTest + 0001:0030F7C4 TfrmLabTest.FormCreate + 0001:0030FA08 TfrmLabTest.cboListNeedData + 0001:0030FA30 TfrmLabTest.cboSpecimenNeedData + 0001:0030FA58 TfrmLabTest.cmdOKClick + 0001:0030FB40 TfrmLabTest.cboListEnter + 0001:0030FB50 TfrmLabTest.cboListExit + 0001:0030FB60 Finalization + 0001:0030FB90 fLabTest + 0001:003105C0 TfrmLabs.RequestPrint + 0001:00310964 TfrmLabs.FormCreate + 0001:00310AB8 TfrmLabs.UpdateRemoteStatus + 0001:00310C30 TfrmLabs.AllowContextChange + 0001:00310D90 TfrmLabs.ClearPtData + 0001:00310E24 TfrmLabs.DisplayPage + 0001:003110E8 TfrmLabs.SetFontSize + 0001:00311100 TfrmLabs.DisplayHeading + 0001:00311218 TfrmLabs.AlignList + 0001:00311338 TfrmLabs.lstReportsClick + 0001:00311340 TfrmLabs.ExtlstReportsClick + 0001:00312234 TfrmLabs.lstHeadersClick + 0001:00312298 TfrmLabs.lstDatesClick + 0001:00313698 TfrmLabs.cmdOtherTestsClick + 0001:003136A0 TfrmLabs.GraphList + 0001:00313928 TfrmLabs.HGrid + 0001:00313ECC TfrmLabs.VGrid + 0001:00314418 TfrmLabs.GridComments + 0001:00314558 TfrmLabs.FormDestroy + 0001:0031458C TfrmLabs.FillGrid + 0001:0031490C TfrmLabs.FillComments + 0001:00314AB4 TfrmLabs.GetInterimGrid + 0001:00315120 TfrmLabs.cmdNextClick + 0001:0031523C TfrmLabs.cmdPrevClick + 0001:0031535C OkFloatValue + 0001:0031548C TfrmLabs.WorksheetChart + 0001:00315C74 TfrmLabs.GetStartStop + 0001:00315D78 TfrmLabs.cmdRecentClick + 0001:00315E28 TfrmLabs.cmdOldClick + 0001:00315EBC TfrmLabs.FormResize + 0001:003162E4 TfrmLabs.pnlRightResize + 0001:00316308 TfrmLabs.FMToDateTime + 0001:00316508 TfrmLabs.chkValuesClick + 0001:0031652C TfrmLabs.chk3DClick + 0001:0031654C TfrmLabs.GraphChart + 0001:0031694C TfrmLabs.ragHorVClick + 0001:00316974 TfrmLabs.ragCorGClick + 0001:00316B28 TfrmLabs.lstTestGraphClick + 0001:00316B94 TfrmLabs.chkGraphValuesClick + 0001:00316BB8 TfrmLabs.chkGraph3DClick + 0001:00316BD8 TfrmLabs.chkGraphZoomClick + 0001:00316DA4 TfrmLabs.GotoTop1Click + 0001:00316DD0 TfrmLabs.GotoBottom1Click + 0001:00316E84 TfrmLabs.FreezeText1Click + 0001:00316FE8 TfrmLabs.UnfreezeText1Click + 0001:00317024 TfrmLabs.PopupMenu1Popup + 0001:00317178 TfrmLabs.ProcessNotifications + 0001:00317428 TfrmLabs.chkZoomClick + 0001:00317494 TfrmLabs.chtChartUndoZoom + 0001:003174A8 TfrmLabs.popCopyClick + 0001:003174B4 TfrmLabs.popChartPopup + 0001:003175FC TfrmLabs.popValuesClick + 0001:00317664 TfrmLabs.pop3DClick + 0001:003176CC TfrmLabs.popZoomClick + 0001:00317734 TfrmLabs.popZoomBackClick + 0001:00317748 TfrmLabs.chtChartMouseDown + 0001:00317770 TfrmLabs.chtChartClickSeries + 0001:00317898 TfrmLabs.chtChartClickLegend + 0001:00317950 TfrmLabs.popDetailsClick + 0001:00317D5C TfrmLabs.popPrintClick + 0001:00317D70 TfrmLabs.PrintLabGraph + 0001:00317EC4 TfrmLabs.BeginEndDates + 0001:00318118 TfrmLabs.Timer1Timer + 0001:00318460 TfrmLabs.GoRemote + 0001:00318B80 TfrmLabs.TabControl1Change + 0001:00319128 TfrmLabs.WebBrowser1DocumentComplete + 0001:00319278 TfrmLabs.ChkBrowser + 0001:00319328 TfrmLabs.CommonComponentVisible + 0001:003194EC TfrmLabs.Memo1KeyUp + 0001:00319598 Finalization + 0001:003195F0 fLabs + 0001:00319844 PatientInquiry + 0001:003198C8 TfrmPtDemo.FormCreate + 0001:00319A7C TfrmPtDemo.cmdNewPtClick + 0001:00319A8C TfrmPtDemo.cmdCloseClick + 0001:00319A94 TfrmPtDemo.cmdPrintClick + 0001:00319DD4 Finalization + 0001:00319E04 fPtDemo + 0001:0031A0CC ShowAbout + 0001:0031A174 TfrmAbout.FormCreate + 0001:0031A4F8 Finalization + 0001:0031A528 fAbout + 0001:0031A7CC ShowBroker + 0001:0031A8FC TfrmBroker.cmdPrevClick + 0001:0031A9C4 TfrmBroker.cmdNextClick + 0001:0031AA90 TfrmBroker.FormClose + 0001:0031AAE8 TfrmBroker.FormResize + 0001:0031AAF0 TfrmBroker.FormCreate + 0001:0031AB08 TfrmBroker.FormKeyUp + 0001:0031AB20 TfrmBroker.btnRLTClick + 0001:0031AC64 Finalization + 0001:0031AC94 fxBroker + 0001:0031AE3C DebugListItems + 0001:0031AEE8 TfrmDbgList.FormKeyUp + 0001:0031AF00 Finalization + 0001:0031AF30 fxLists + 0001:0031B13C DebugShowServer + 0001:0031B198 TfrmDbgServer.FormCreate + 0001:0031B1AC TfrmDbgServer.FormKeyUp + 0001:0031B1C4 Finalization + 0001:0031B1F4 fxServer + 0001:0031B400 TfrmSplash.FormCreate + 0001:0031B4C4 Finalization + 0001:0031B4F4 fSplash + 0001:0031B710 ExecuteLabInfo + 0001:0031B790 TfrmLabInfo.btnOKClick + 0001:0031B7A0 TfrmLabInfo.FormCreate + 0001:0031B7D4 TfrmLabInfo.cboTestsNeedData + 0001:0031B7FC TfrmLabInfo.cboTestsClick + 0001:0031B870 Finalization + 0001:0031B8A0 fLabInfo + 0001:0031BD8C DialogOptionsDiagnoses + 0001:0031BDFC TfrmBAOptionsDiagnoses.FormCreate + 0001:0031BEA8 TfrmBAOptionsDiagnoses.LoadEncounterDx + 0001:0031C01C TfrmBAOptionsDiagnoses.ListDiagnosesSections + 0001:0031C164 TfrmBAOptionsDiagnoses.ListDiagnosesCodes + 0001:0031C380 TfrmBAOptionsDiagnoses.AddProblemsToDxList + 0001:0031C7C4 TfrmBAOptionsDiagnoses.btnOtherClick + 0001:0031CA98 TfrmBAOptionsDiagnoses.lbSectionsClick + 0001:0031CB50 TfrmBAOptionsDiagnoses.lbSectionsEnter + 0001:0031CB60 TfrmBAOptionsDiagnoses.lbDiagnosisClick + 0001:0031CC7C TfrmBAOptionsDiagnoses.btnCancelClick + 0001:0031CC84 TfrmBAOptionsDiagnoses.btnOKClick + 0001:0031CD04 TfrmBAOptionsDiagnoses.btnAddClick + 0001:0031CF88 TfrmBAOptionsDiagnoses.btnDeleteClick + 0001:0031D038 TfrmBAOptionsDiagnoses.lbDiagnosisChange + 0001:0031D08C TfrmBAOptionsDiagnoses.lbPersonalDxClick + 0001:0031D0E0 TfrmBAOptionsDiagnoses.lbDiagnosisEnter + 0001:0031D108 TfrmBAOptionsDiagnoses.FormShow + 0001:0031D180 TfrmBAOptionsDiagnoses.Button1Click + 0001:0031D198 TfrmBAOptionsDiagnoses.InactiveICDNotification + 0001:0031D340 TfrmBAOptionsDiagnoses.FormActivate + 0001:0031D348 TfrmBAOptionsDiagnoses.IsDXInList + 0001:0031D40C TfrmBAOptionsDiagnoses.LoadPersonalDxList + 0001:0031D5C4 TfrmBAOptionsDiagnoses.btnRemoveAllClick + 0001:0031D6E8 TfrmBAOptionsDiagnoses.btnAddAllClick + 0001:0031D954 TfrmBAOptionsDiagnoses.hdrCntlDxSectionClick + 0001:0031D984 TfrmBAOptionsDiagnoses.FormResize + 0001:0031D9F4 TfrmBAOptionsDiagnoses.SyncDxDeleteList + 0001:0031DAA8 TfrmBAOptionsDiagnoses.SyncDxNewList + 0001:0031DBAC Finalization + 0001:0031DBFC fBAOptionsDiagnoses + 0001:0031DD6C OKToday + 0001:0031DE30 GetMultiplier + 0001:0031DEE0 RelativeDate + 0001:0031E264 DateLimits + 0001:0031E394 ShowDisplay + 0001:0031E498 TextExit + 0001:0031E55C LabelSurrogate + 0001:0031E84C DisplayPtInfo + 0001:0031EA70 Finalization + 0001:0031EAA0 uOptions + 0001:0031F008 DialogOptionsDays + 0001:0031F0B8 TfrmOptionsDays.FormCreate + 0001:0031F0C8 TfrmOptionsDays.FormShow + 0001:0031F20C TfrmOptionsDays.spnVisitStartClick + 0001:0031F364 TfrmOptionsDays.spnVisitStopClick + 0001:0031F4D0 TfrmOptionsDays.spnLabInpatientClick + 0001:0031F548 TfrmOptionsDays.spnLabOutpatientClick + 0001:0031F5C0 TfrmOptionsDays.txtLabInpatientKeyPress + 0001:0031F5EC TfrmOptionsDays.btnLabDefaultsClick + 0001:0031F68C TfrmOptionsDays.btnVisitDefaultsClick + 0001:0031F6DC TfrmOptionsDays.AdjustVisitLabel + 0001:0031F82C TfrmOptionsDays.AdjustLabLabel + 0001:0031F948 TfrmOptionsDays.btnOKClick + 0001:0031F974 TfrmOptionsDays.txtLabInpatientChange + 0001:0031FA90 TfrmOptionsDays.txtLabInpatientExit + 0001:0031FB98 TfrmOptionsDays.txtLabOutpatientChange + 0001:0031FCB4 TfrmOptionsDays.txtLabOutpatientExit + 0001:0031FDBC TfrmOptionsDays.txtVisitStartExit + 0001:0031FE5C TfrmOptionsDays.txtVisitStartKeyUp + 0001:0031FEC0 TfrmOptionsDays.txtVisitStopExit + 0001:0031FF60 TfrmOptionsDays.txtVisitStopKeyUp + 0001:0031FFC4 TfrmOptionsDays.txtVisitStartKeyPress + 0001:0031FFE0 TfrmOptionsDays.txtVisitStopKeyPress + 0001:0031FFFC Finalization + 0001:0032002C fOptionsDays + 0001:003203A4 DialogOptionsReminders + 0001:00320468 TfrmOptionsReminders.FormCreate + 0001:003205E0 TfrmOptionsReminders.CheckEnable + 0001:00320718 TfrmOptionsReminders.lstDisplayedChange + 0001:00320720 TfrmOptionsReminders.lstNotDisplayedChange + 0001:00320728 TfrmOptionsReminders.btnUpClick + 0001:0032078C TfrmOptionsReminders.btnDownClick + 0001:003207F4 TfrmOptionsReminders.btnDeleteClick + 0001:0032083C TfrmOptionsReminders.btnAddClick + 0001:0032089C TfrmOptionsReminders.GetFirstSelection + 0001:003208D4 TfrmOptionsReminders.SetItem + 0001:0032091C TfrmOptionsReminders.MoveSelected + 0001:003209C4 TfrmOptionsReminders.btnOKClick + 0001:00320AD8 TfrmOptionsReminders.radSortClick + 0001:00320C2C Finalization + 0001:00320C5C fOptionsReminders + 0001:00320F9C DialogOptionsSurrogate + 0001:00321250 TfrmOptionsSurrogate.FormShow + 0001:00321288 TfrmOptionsSurrogate.btnSurrogateDateRangeClick + 0001:003213DC TfrmOptionsSurrogate.cboSurrogateNeedData + 0001:00321404 TfrmOptionsSurrogate.btnOKClick + 0001:003215B0 TfrmOptionsSurrogate.btnRemoveClick + 0001:00321614 TfrmOptionsSurrogate.LabelInfo + 0001:00321814 TfrmOptionsSurrogate.cboSurrogateChange + 0001:003218EC TfrmOptionsSurrogate.cboSurrogateKeyDown + 0001:00321914 Finalization + 0001:00321944 fOptionsSurrogate + 0001:00322018 DialogOptionsPatientSelection + 0001:003220D4 TfrmOptionsPatientSelection.FormCreate + 0001:00322184 TfrmOptionsPatientSelection.FormShow + 0001:00322678 TfrmOptionsPatientSelection.spnVisitStartClick + 0001:003227B8 TfrmOptionsPatientSelection.spnVisitStopClick + 0001:003228E0 TfrmOptionsPatientSelection.btnOKClick + 0001:00322A90 TfrmOptionsPatientSelection.txtVisitStartExit + 0001:00322B28 TfrmOptionsPatientSelection.txtVisitStopExit + 0001:00322BC0 TfrmOptionsPatientSelection.txtVisitStartKeyUp + 0001:00322C24 TfrmOptionsPatientSelection.txtVisitStopKeyUp + 0001:00322C88 TfrmOptionsPatientSelection.cboProviderExit + 0001:00322CB0 TfrmOptionsPatientSelection.radListSourceClick + 0001:00322D84 TfrmOptionsPatientSelection.cboMondayNeedData + 0001:00322DAC TfrmOptionsPatientSelection.cboTuesdayNeedData + 0001:00322DD4 TfrmOptionsPatientSelection.cboWednesdayNeedData + 0001:00322DFC TfrmOptionsPatientSelection.cboThursdayNeedData + 0001:00322E24 TfrmOptionsPatientSelection.cboFridayNeedData + 0001:00322E4C TfrmOptionsPatientSelection.cboSaturdayNeedData + 0001:00322E74 TfrmOptionsPatientSelection.cboSundayNeedData + 0001:00322E9C TfrmOptionsPatientSelection.cboProviderNeedData + 0001:00322EC4 TfrmOptionsPatientSelection.NextControl + 0001:00322ED8 TfrmOptionsPatientSelection.txtVisitStartKeyPress + 0001:00322EF4 TfrmOptionsPatientSelection.txtVisitStopKeyPress + 0001:00322F18 TfrmOptionsPatientSelection.cboProviderKeyUp + 0001:00322F40 Finalization + 0001:00322F70 fOptionsPatientSelection + 0001:003231C8 DialogOptionsNewList + 0001:0032324C TfrmOptionsNewList.btnOKClick + 0001:0032340C TfrmOptionsNewList.txtNewListKeyPress + 0001:00323434 TfrmOptionsNewList.txtNewListChange + 0001:00323494 Finalization + 0001:003234C4 fOptionsNewList + 0001:00323A38 DialogOptionsLists + 0001:00323AE8 TfrmOptionsLists.FormCreate + 0001:00323B1C TfrmOptionsLists.btnNewListClick + 0001:00323BE0 TfrmOptionsLists.radAddByTypeClick + 0001:00323E34 TfrmOptionsLists.AddIfUnique + 0001:00323F20 TfrmOptionsLists.lstPersonalListsChange + 0001:003241E0 TfrmOptionsLists.lstAddByClick + 0001:003245AC TfrmOptionsLists.btnDeleteListClick + 0001:003247C8 TfrmOptionsLists.btnListSaveChangesClick + 0001:00324860 TfrmOptionsLists.btnPersonalPatientRAClick + 0001:003248C0 TfrmOptionsLists.btnListAddAllClick + 0001:003249E8 TfrmOptionsLists.btnPersonalPatientRClick + 0001:00324A8C TfrmOptionsLists.lstPersonalPatientsChange + 0001:00324B68 TfrmOptionsLists.btnListAddClick + 0001:00324C90 TfrmOptionsLists.lstListPatsChange + 0001:00324D7C TfrmOptionsLists.FormShow + 0001:00324E04 TfrmOptionsLists.lstAddByNeedData + 0001:00324EF0 TfrmOptionsLists.btnOKClick + 0001:00324FF4 TfrmOptionsLists.mnuPatientIDClick + 0001:003250A4 TfrmOptionsLists.lstListPatsMouseDown + 0001:00325118 TfrmOptionsLists.lstPersonalPatientsMouseDown + 0001:0032518C ShowMatchingPatients + 0001:00325254 TfrmOptionsLists.lstAddByKeyPress + 0001:00325338 Finalization + 0001:00325368 fOptionsLists + 0001:00325734 DialogOptionsTeams + 0001:003257D4 TfrmOptionsTeams.FormCreate + 0001:00325804 TfrmOptionsTeams.FillATeams + 0001:00325930 TfrmOptionsTeams.FillList + 0001:003259F4 TfrmOptionsTeams.MergeList + 0001:00325AA4 TfrmOptionsTeams.ItemNotAMember + 0001:00325B54 TfrmOptionsTeams.MemberNotOnList + 0001:00325C04 TfrmOptionsTeams.chkPersonalClick + 0001:00325C68 TfrmOptionsTeams.lstTeamsClick + 0001:00325F9C TfrmOptionsTeams.chkRestrictClick + 0001:00325FA4 TfrmOptionsTeams.cboSubscribeClick + 0001:00325FAC TfrmOptionsTeams.btnRemoveClick + 0001:003260E0 TfrmOptionsTeams.mnuPatientIDClick + 0001:00326148 TfrmOptionsTeams.lstPatientsMouseDown + 0001:00326190 TfrmOptionsTeams.cboSubscribeKeyDown + 0001:003261CC TfrmOptionsTeams.cboSubscribeMouseClick + 0001:00326384 Finalization + 0001:003263B4 fOptionsTeams + 0001:003267F0 DialogOptionsCombinations + 0001:003268A0 TfrmOptionsCombinations.radAddByTypeClick + 0001:00326AB4 TfrmOptionsCombinations.lstAddByNeedData + 0001:00326B7C TfrmOptionsCombinations.FormCreate + 0001:00326BA0 TfrmOptionsCombinations.btnAddClick + 0001:00326D50 TfrmOptionsCombinations.lvwCombinationsColumnClick + 0001:00326DA4 TfrmOptionsCombinations.lvwCombinationsCompare + 0001:00326EC4 TfrmOptionsCombinations.btnRemoveClick + 0001:00326F30 TfrmOptionsCombinations.lstAddByChange + 0001:00327054 TfrmOptionsCombinations.Duplicate + 0001:00327140 TfrmOptionsCombinations.lstAddByKeyUp + 0001:0032715C TfrmOptionsCombinations.btnOKClick + 0001:00327240 TfrmOptionsCombinations.lstAddByEnter + 0001:00327250 TfrmOptionsCombinations.lstAddByExit + 0001:00327260 TfrmOptionsCombinations.lvwCombinationsChange + 0001:0032728C TfrmOptionsCombinations.LoadCombinations + 0001:003273EC TfrmOptionsCombinations.FormShow + 0001:00327400 Finalization + 0001:00327430 fOptionsCombinations + 0001:00327888 DialogOptionsOther + 0001:00327938 TfrmOptionsOther.FormShow + 0001:00327BC0 TfrmOptionsOther.btnOKClick + 0001:00327EB4 TfrmOptionsOther.FormCreate + 0001:00327ED4 TfrmOptionsOther.dtStartExit + 0001:00327F5C TfrmOptionsOther.dtStopExit + 0001:00328018 TfrmOptionsOther.dtStartChange + 0001:003280A0 TfrmOptionsOther.txtEncStartChange + 0001:003281FC TfrmOptionsOther.txtEncStopChange + 0001:00328358 TfrmOptionsOther.txtEncStartExit + 0001:003283BC TfrmOptionsOther.txtEncStopExit + 0001:00328420 TfrmOptionsOther.btnEncDefaultsClick + 0001:00328498 Finalization + 0001:003284C8 fOptionsOther + 0001:003287FC DialogOptionsNotes + 0001:003288AC TfrmOptionsNotes.FormShow + 0001:00328A38 TfrmOptionsNotes.btnOKClick + 0001:00328BD8 TfrmOptionsNotes.txtAutoSaveChange + 0001:00328CF4 TfrmOptionsNotes.txtAutoSaveKeyPress + 0001:00328D20 TfrmOptionsNotes.txtAutoSaveExit + 0001:00328E28 TfrmOptionsNotes.spnAutoSaveClick + 0001:00328E90 TfrmOptionsNotes.cboCosignerNeedData + 0001:00328EB8 TfrmOptionsNotes.cboCosignerExit + 0001:00328F34 Finalization + 0001:00328F64 fOptionsNotes + 0001:003293E0 DialogOptionsTitles + 0001:00329490 TfrmOptionsTitles.FormShow + 0001:003295E4 TfrmOptionsTitles.btnOKClick + 0001:0032960C TfrmOptionsTitles.cboDocumentClassClick + 0001:0032986C TfrmOptionsTitles.cboDocumentTitlesNeedData + 0001:003298C0 TfrmOptionsTitles.btnSaveChangesClick + 0001:003299A4 TfrmOptionsTitles.btnDefaultClick + 0001:00329B24 TfrmOptionsTitles.btnAddClick + 0001:00329BC4 TfrmOptionsTitles.lstYourTitlesChange + 0001:00329C68 TfrmOptionsTitles.btnRemoveClick + 0001:00329CE4 TfrmOptionsTitles.AddIfUnique + 0001:00329DD0 TfrmOptionsTitles.MemberNotOnList + 0001:00329E80 TfrmOptionsTitles.cboDocumentTitlesChange + 0001:00329E88 TfrmOptionsTitles.btnUpClick + 0001:00329F04 TfrmOptionsTitles.btnDownClick + 0001:00329F84 TfrmOptionsTitles.GetFirstSelection + 0001:00329FBC TfrmOptionsTitles.SetItem + 0001:00329FF8 TfrmOptionsTitles.RemoveSelected + 0001:0032A108 TfrmOptionsTitles.CheckEnable + 0001:0032A294 TfrmOptionsTitles.lstYourTitlesClick + 0001:0032A2AC Finalization + 0001:0032A2DC fOptionsTitles + 0001:0032A72C TfrmOptionsReportsCustom.UMDelayEvent + 0001:0032A7F8 DialogOptionsHSCustom + 0001:0032A8A8 TfrmOptionsReportsCustom.FormCreate + 0001:0032A8D0 PlaceControl + 0001:0032A96C Synch + 0001:0032A980 TfrmOptionsReportsCustom.ShowEditor + 0001:0032AB70 TfrmOptionsReportsCustom.ValFor + 0001:0032AB98 TfrmOptionsReportsCustom.grdReportKeyPress + 0001:0032AD74 TfrmOptionsReportsCustom.grdReportMouseDown + 0001:0032AFA8 TfrmOptionsReportsCustom.grdReportDrawCell + 0001:0032B048 TfrmOptionsReportsCustom.edtMaxExit + 0001:0032B380 TfrmOptionsReportsCustom.btnApplyClick + 0001:0032B600 TfrmOptionsReportsCustom.btnCancelClick + 0001:0032B618 TfrmOptionsReportsCustom.odbStartExit + 0001:0032B9C8 TfrmOptionsReportsCustom.odbStopExit + 0001:0032BD78 TfrmOptionsReportsCustom.FormClose + 0001:0032BD90 TfrmOptionsReportsCustom.odbStartKeyPress + 0001:0032BDB8 TfrmOptionsReportsCustom.odbStopKeyPress + 0001:0032BDE0 TfrmOptionsReportsCustom.edtMaxKeyPress + 0001:0032BE08 TfrmOptionsReportsCustom.btnOKClick + 0001:0032BE2C TfrmOptionsReportsCustom.edtSearchChange + 0001:0032BFD4 TfrmOptionsReportsCustom.edtSearchKeyPress + 0001:0032BFFC TfrmOptionsReportsCustom.FormShow + 0001:0032C4CC TfrmOptionsReportsCustom.grdReportKeyDown + 0001:0032C54C TfrmOptionsReportsCustom.FormDestroy + 0001:0032C560 Finalization + 0001:0032C590 fOptionsReportsCustom + 0001:0032C990 DialogOptionsHSDefault + 0001:0032CA40 TfrmOptionsReportsDefault.btnOKClick + 0001:0032CE44 TfrmOptionsReportsDefault.btnCancelClick + 0001:0032CE4C TfrmOptionsReportsDefault.btnResetClick + 0001:0032D260 TfrmOptionsReportsDefault.edtDefaultMaxExit + 0001:0032D3F4 TfrmOptionsReportsDefault.fillLabelText + 0001:0032D558 TfrmOptionsReportsDefault.edtDefaultStartKeyPress + 0001:0032D56C TfrmOptionsReportsDefault.edtDefaultEndKeyPress + 0001:0032D580 TfrmOptionsReportsDefault.edtDefaultMaxKeyPress + 0001:0032D594 TfrmOptionsReportsDefault.FormCreate + 0001:0032D894 TfrmOptionsReportsDefault.odcDfStartExit + 0001:0032DB04 TfrmOptionsReportsDefault.odcDfStopExit + 0001:0032DD80 TfrmOptionsReportsDefault.odcDfStartKeyPress + 0001:0032DDB0 TfrmOptionsReportsDefault.odcDfStopKeyPress + 0001:0032DDE0 TfrmOptionsReportsDefault.odcDfStartClick + 0001:0032DDEC TfrmOptionsReportsDefault.odcDfStopClick + 0001:0032DDF8 TfrmOptionsReportsDefault.edtDefaultMaxClick + 0001:0032DE04 Finalization + 0001:0032DE34 fOptionsReportsDefault + 0001:0032EAC4 DialogOptions + 0001:0032F0AC TfrmOptions.FormCreate + 0001:0032F12C TfrmOptions.FormDestroy + 0001:0032F1C0 TfrmOptions.btnCoverDaysClick + 0001:0032F204 TfrmOptions.btnCoverRemindersClick + 0001:0032F248 TfrmOptions.btnOtherParametersClick + 0001:0032F28C TfrmOptions.btnPatientSelectionClick + 0001:0032F2D0 TfrmOptions.btnPersonalListsClick + 0001:0032F314 TfrmOptions.btnTeamsClick + 0001:0032F358 TfrmOptions.btnNotificationsRemoveClick + 0001:0032F450 TfrmOptions.Offset + 0001:0032F484 TfrmOptions.btnApplyClick + 0001:0032F4D4 TfrmOptions.LoadNotifications + 0001:0032F5E4 TfrmOptions.LoadOrderChecks + 0001:0032F60C TfrmOptions.ApplyNotifications + 0001:0032F7B8 TfrmOptions.ApplyOrderChecks + 0001:0032F918 TfrmOptions.ApplyOtherStuff + 0001:0032F9AC TfrmOptions.CheckApply + 0001:0032F9DC TfrmOptions.chkNotificationsFlaggedClick + 0001:0032F9EC TfrmOptions.LoadListView + 0001:0032FBD0 TfrmOptions.lvwNotificationsChange + 0001:0032FD60 TfrmOptions.lvwNotificationsColumnClick + 0001:0032FDB4 TfrmOptions.lvwNotificationsCompare + 0001:0032FED4 TfrmOptions.lvwNotificationsDblClick + 0001:00330008 TfrmOptions.ChangeOnOff + 0001:0033002C TfrmOptions.btnSurrogateClick + 0001:003300D0 TfrmOptions.btnCombinationsClick + 0001:00330114 TfrmOptions.btnNotesNotesClick + 0001:00330158 TfrmOptions.btnNotesTitlesClick + 0001:0033019C TfrmOptions.btnReportsClick + 0001:003301E0 TfrmOptions.btnReport1Click + 0001:00330224 TfrmOptions.lvwNotificationsEnter + 0001:00330268 TfrmOptions.lvwNotificationsMouseDown + 0001:00330298 TfrmOptions.btnDiagnosesClick + 0001:003302F4 TfrmOptions.btnGraphSettingsClick + 0001:00330334 TfrmOptions.btnGraphViewsClick + 0001:00330374 TfrmOptions.rdoRDVClick + 0001:003305E4 Finalization + 0001:00330614 fOptions + 0001:0033061C Finalization + 0001:0033064C fDefaultEvent + 0001:003318A8 TfrmFrame.TimeoutCondition + 0001:003318C8 TfrmFrame.GetTimedOut + 0001:003318E0 TfrmFrame.TimeOutAction + 0001:00331908 TfrmFrame.AppException + 0001:00331AEC TfrmFrame.AllowContextChangeAll + 0001:00331D6C TfrmFrame.ClearPatient + 0001:00332168 TfrmFrame.DisplayEncounterText + 0001:00332324 TfrmFrame.RefreshFixedStatusWidth + 0001:003323A0 TfrmFrame.FormCreate + 0001:00333178 TfrmFrame.StartCCOWContextor + 0001:00333490 TfrmFrame.UMInitiate + 0001:00333558 TfrmFrame.FormDestroy + 0001:00333638 TfrmFrame.FormCloseQuery + 0001:003336D8 TfrmFrame.SetUserTools + 0001:00333970 TfrmFrame.mnuToolsClick + 0001:003339FC TfrmFrame.UpdateECSParameter + 0001:00333BF8 TfrmFrame.ValidECSUser + 0001:00333CB8 TfrmFrame.FormClose + 0001:00333E48 TfrmFrame.SetDebugMenu + 0001:00333EC4 TfrmFrame.UMNewOrder + 0001:00334260 TfrmFrame.WMSetFocus + 0001:003342B4 TfrmFrame.UMShowPage + 0001:00334324 TfrmFrame.SwitchToPage + 0001:00334554 TfrmFrame.mnuChartTabClick + 0001:003345C4 TfrmFrame.tabPageChange + 0001:00334724 TfrmFrame.PageIDToTab + 0001:00334788 TfrmFrame.TabToPageID + 0001:00334808 TfrmFrame.SetupPatient + 0001:00334DA8 UpdatePatientInfoForAlert + 0001:00334E68 TfrmFrame.mnuFileNextClick + 0001:00335888 TfrmFrame.SetBADxList + 0001:00335960 TfrmFrame.mnuFileOpenClick + 0001:00336008 TfrmFrame.DetermineNextTab + 0001:00336160 TfrmFrame.mnuFileEncounterClick + 0001:00336188 TfrmFrame.mnuFileReviewClick + 0001:003362F4 TfrmFrame.mnuFileExitClick + 0001:003363C0 TfrmFrame.mnuViewPostingsClick + 0001:003363D0 Substitute + 0001:00336488 TfrmFrame.ExpandCommand + 0001:003366D4 TakeOutAmps + 0001:0033678C ExcuteEC + 0001:003369C8 ExcuteECS + 0001:00336CF8 TfrmFrame.ToolClick + 0001:00336FC8 TfrmFrame.mnuHelpBrokerClick + 0001:00336FE0 TfrmFrame.mnuHelpListsClick + 0001:0033706C TfrmFrame.mnuHelpSymbolsClick + 0001:00337084 TfrmFrame.mnuHelpAboutClick + 0001:0033709C TfrmFrame.UMStatusText + 0001:00337118 TfrmFrame.stsAreaMouseDown + 0001:00337184 TfrmFrame.stsAreaMouseUp + 0001:00337200 TfrmFrame.stsAreaDrawPanel + 0001:0033727C TfrmFrame.pnlPatientMouseDown + 0001:00337360 TfrmFrame.pnlPatientMouseUp + 0001:00337444 TfrmFrame.pnlVisitMouseDown + 0001:003374E8 TfrmFrame.pnlVisitMouseUp + 0001:0033758C TfrmFrame.pnlPrimaryCareMouseDown + 0001:00337624 TfrmFrame.pnlPrimaryCareMouseUp + 0001:003376BC TfrmFrame.pnlPostingsMouseDown + 0001:00337754 TfrmFrame.pnlPostingsMouseUp + 0001:003377EC TfrmFrame.LoadSizesForUser + 0001:00337D78 TfrmFrame.SaveSizesForUser + 0001:00338308 TfrmFrame.FormResize + 0001:00338650 TfrmFrame.ChangeFont + 0001:00338C04 TfrmFrame.FitToolbar + 0001:00339010 TfrmFrame.ToggleMenuItemChecked + 0001:00339050 TfrmFrame.mnuFontSizeClick + 0001:00339154 TfrmFrame.mnuEditClick + 0001:0033930C TfrmFrame.mnuEditUndoClick + 0001:00339334 TfrmFrame.mnuEditCutClick + 0001:00339354 TfrmFrame.mnuEditCopyClick + 0001:00339374 TfrmFrame.mnuEditPasteClick + 0001:003393D4 TfrmFrame.mnuFilePrintClick + 0001:003394C0 TfrmFrame.FormHelp + 0001:003395A4 TfrmFrame.WMSysCommand + 0001:003397DC TfrmFrame.RemindersChanged + 0001:00339C84 TfrmFrame.pnlRemindersMouseDown + 0001:00339CC8 TfrmFrame.pnlRemindersMouseUp + 0001:00339D10 TfrmFrame.SetUpCIRN + 0001:0033A60C TfrmFrame.pnlCIRNClick + 0001:0033A630 TfrmFrame.lstCIRNLocationsClick + 0001:0033B9E4 TfrmFrame.popCIRNCloseClick + 0001:0033BA24 TfrmFrame.popCIRNSelectAllClick + 0001:0033BA74 TfrmFrame.popCIRNSelectNoneClick + 0001:0033BAC4 TfrmFrame.mnuFilePrintSetupClick + 0001:0033BB4C TfrmFrame.lstCIRNLocationsChange + 0001:0033BC40 TfrmFrame.LabInfo1Click + 0001:0033BC58 StopProcessingNotifs + 0001:0033BCC0 TfrmFrame.mnuFileNotifRemoveClick + 0001:0033C110 TfrmFrame.mnuToolsOptionsClick + 0001:0033C130 TfrmFrame.LoadUserPreferences + 0001:0033C180 TfrmFrame.SaveUserPreferences + 0001:0033C198 TfrmFrame.mnuFileRefreshClick + 0001:0033C1EC TfrmFrame.AppActivated + 0001:0033C230 TfrmFrame.AppDeActivated + 0001:0033C29C TfrmFrame.CreateTab + 0001:0033C59C TfrmFrame.ShowHideChartTabMenus + 0001:0033C5F4 TfrmFrame.TabExists + 0001:0033C654 TfrmFrame.ReportsOnlyDisplay + 0001:0033C848 TfrmFrame.UpdatePtInfoOnRefresh + 0001:0033C9F0 TfrmFrame.FormKeyDown + 0001:0033CB0C TfrmFrame.FormActivate + 0001:0033CB38 TfrmFrame.pnlPrimaryCareEnter + 0001:0033CBA8 TfrmFrame.pnlPrimaryCareExit + 0001:0033CC8C TfrmFrame.pnlPatientClick + 0001:0033CCB0 TfrmFrame.pnlVisitClick + 0001:0033CCD4 TfrmFrame.pnlPrimaryCareClick + 0001:0033CCF8 TfrmFrame.pnlRemindersClick + 0001:0033CD28 TfrmFrame.pnlPostingsClick + 0001:0033CD4C TfrmFrame.HandleCCOWError + 0001:0033CF18 TfrmFrame.AllowCCOWContextChange + 0001:0033D78C TfrmFrame.ctxContextorCanceled + 0001:0033D7C4 TfrmFrame.ctxContextorPending + 0001:0033D9CC TfrmFrame.ctxContextorCommitted + 0001:0033DC8C FindNextBestDFN + 0001:0033DE28 TfrmFrame.FindBestCCOWDFN + 0001:0033E07C TfrmFrame.UpdateCCOWContext + 0001:0033E244 TfrmFrame.mnuFileBreakContextClick + 0001:0033E3F4 TfrmFrame.mnuFileResumeContextGetClick + 0001:0033E604 TfrmFrame.mnuFileResumeContextSetClick + 0001:0033E978 TfrmFrame.CheckForDifferentPatient + 0001:0033EB44 TfrmFrame.CheckForDifferentUser + 0001:0033EBCC TfrmFrame.CheckHyperlinkResponse + 0001:0033EE08 TfrmFrame.HideEverything + 0001:0033EF1C TfrmFrame.ShowEverything + 0001:0033F07C TfrmFrame.pnlFlagMouseDown + 0001:0033F0A4 TfrmFrame.pnlFlagMouseUp + 0001:0033F0CC TfrmFrame.pnlFlagClick + 0001:0033F0F0 TfrmFrame.mnuFilePrintSelectedItemsClick + 0001:0033F150 TfrmFrame.mnuAlertRenewClick + 0001:0033F1C8 TfrmFrame.mnuAlertForwardClick + 0001:0033F294 TfrmFrame.mnuGECStatusClick + 0001:0033F534 TfrmFrame.pnlFlagEnter + 0001:0033F578 TfrmFrame.pnlFlagExit + 0001:0033F5BC TfrmFrame.tabPageMouseUp + 0001:0033F5F4 TfrmFrame.lstCIRNLocationsExit + 0001:0033F648 TfrmFrame.AppEventsActivate + 0001:0033F664 TfrmFrame.ScreenActiveFormChange + 0001:0033F6B4 TfrmFrame.FocusApplicationTopForm + 0001:0033F720 TfrmFrame.AppEventsShortCut + 0001:0033F75C TfrmFrame.mnuToolsGraphingClick + 0001:0033F9B4 TfrmFrame.pnlCIRNMouseDown + 0001:0033F9DC TfrmFrame.pnlCIRNMouseUp + 0001:0033FA04 TfrmFrame.laMHVClick + 0001:0033FA28 TfrmFrame.laVAA2Click + 0001:0033FA4C TfrmFrame.ViewInfo + 0001:0033FF08 TfrmFrame.mnuViewInformationClick + 0001:003400C8 Finalization + 0001:00340104 fFrame + 0001:00340134 BADxEntered + 0001:003402E4 rpcOrderRequiresDx + 0001:003404B0 IsOrderBillable + 0001:003405EC SaveBillingData + 0001:00340624 AttachDxToOrderList + 0001:00340828 rpcAddToPersonalDxList + 0001:003408C8 rpcGetPersonalDxList + 0001:00340920 rpcDeleteFromPersonalDxList + 0001:003409B8 rpcSetBillingAwareSwitch + 0001:00340AFC IsCIDCProvider + 0001:00340B48 rpcGetBAMasterSwStatus + 0001:00340BDC rpcSaveNurseConsultOrder + 0001:00340BE4 rpcGetSC4Orders + 0001:00340C54 rpcGetProviderPatientDaysDx + 0001:00340D28 rpcGetTFHintData + 0001:00340D70 rpcNonBillableOrders + 0001:00340EC4 rpcBuildSCIEList + 0001:00341008 rpcSaveCIDCData + 0001:0034108C rpcIsPatientInsured + 0001:0034112C OrdersHaveDx + 0001:00341264 LoadUnsignedOrderRec + 0001:0034148C AttachPLTFactorsToDx + 0001:003416C4 BALoadStsFlagsAsIs + 0001:003417CC SetTreatmentFactors + 0001:00341B3C StripTFactors + 0001:00341BD8 OrderRequiresSCEI + 0001:00341CA4 SaveUnsignedOrders + 0001:00341CF0 rpcRetrieveSelectedOrderInfo + 0001:00341E0C BuildSaveUnsignedList + 0001:00341E50 rpcGetUnsignedOrdersBillingData + 0001:00341F60 CompleteUnsignedBillingInfo + 0001:003421A4 GetUnsignedOrderFlags + 0001:003422A8 BuildTFHintRec + 0001:003428C0 IsAllOrdersNA + 0001:003429A0 PrepOrderID + 0001:00342A40 ClearSelectedOrderDiagnoses + 0001:00342B84 LoadConsultOrderRec + 0001:00343060 CompleteConsultOrderRec + 0001:003432A0 GetConsultFlags + 0001:0034338C SetConsultFlags + 0001:00343710 GetBAStatus + 0001:00343794 IsICD9CodeActive + 0001:003438BC BuildConsultDxRec + 0001:003439F8 ConvertPIMTreatmentFactors + 0001:00343BE4 DeleteDCOrdersFromCopiedList + 0001:00343CF0 VerifyOrderIdExists + 0001:00343DBC ProcessProblemTFactors + 0001:00343EA4 Finalization + 0001:00343ED4 UBACore + 0001:00344694 InvalidPCEProviderTxt + 0001:00344778 MissingProviderInfo + 0001:003448C4 IsOK2Sign + 0001:003449B4 FutureEncounter + 0001:003449FC CanEditPCE + 0001:00344A1C GetComboBoxMinMax + 0001:00344B8C CodeSetIndex + 0001:00344CE8 GetPCECodes + 0001:00344E34 GetPCECodeString + 0001:00344F78 PCELoadORComboData + 0001:0034503C PCELoadORCombo + 0001:0034504C PCELoadORCombo + 0001:00345058 GetPCEDisplayText + 0001:00345348 GetPCEDataText + 0001:00345488 SetDefaultProvider + 0001:00345718 ValidateGAFDate + 0001:003459C4 GetVitalsFromDate + 0001:00345A14 GetVitalsFromNote + 0001:00345A5C TPCEItem.DelimitedStr2 + 0001:00345B2C TPCEItem.Assign + 0001:00345B78 TPCEItem.SetComment + 0001:00345BB4 TPCEItem.Clear + 0001:00345BF0 TPCEItem.DelimitedStr + 0001:00345CA4 TPCEItem.ItemStr + 0001:00345CB8 TPCEItem.Match + 0001:00345CF0 TPCEItem.HasCPTStr + 0001:00345CFC TPCEItem.SetFromString + 0001:00345DDC TPCEExams.Assign + 0001:00345E18 TPCEExams.Clear + 0001:00345E40 TPCEExams.DelimitedStr + 0001:00345EE0 TPCEExams.HasCPTStr + 0001:00345F0C TPCEExams.ItemStr + 0001:00345FA8 TPCEExams.SetFromString + 0001:00346028 TPCESkin.Assign + 0001:00346084 TPCESkin.Clear + 0001:003460C0 TPCESkin.DelimitedStr + 0001:00346178 TPCESkin.HasCPTStr + 0001:003461A4 TPCESkin.ItemStr + 0001:00346270 TPCESkin.SetFromString + 0001:00346368 TPCEHealth.Assign + 0001:003463A4 TPCEHealth.Clear + 0001:003463CC TPCEHealth.DelimitedStr + 0001:00346474 TPCEHealth.HasCPTStr + 0001:003464A0 TPCEHealth.ItemStr + 0001:0034653C TPCEHealth.SetFromString + 0001:003465BC TPCEImm.Assign + 0001:00346624 TPCEImm.Clear + 0001:00346660 TPCEImm.DelimitedStr + 0001:0034675C TPCEImm.HasCPTStr + 0001:00346788 TPCEImm.ItemStr + 0001:0034688C TPCEImm.SetFromString + 0001:003469A8 TPCEProc.Assign + 0001:003469DC TPCEProc.Clear + 0001:00346A04 TPCEProc.CopyProc + 0001:00346A5C TPCEProc.DelimitedStr + 0001:00346BEC TPCEProc.Empty + 0001:00346C28 TPCEProc.ModText + 0001:00346CD4 TPCEProc.ItemStr + 0001:00346D90 TPCEProc.SetFromString + 0001:00346EBC TPCEPat.Assign + 0001:00346EF8 TPCEPat.Clear + 0001:00346F20 TPCEPat.DelimitedStr + 0001:00346FC0 TPCEPat.HasCPTStr + 0001:00346FEC TPCEPat.ItemStr + 0001:00347088 TPCEPat.SetFromString + 0001:00347108 TPCEDiag.Assign + 0001:00347128 TPCEDiag.Clear + 0001:0034713C TPCEDiag.DelimitedStr + 0001:00347264 TPCEDiag.DelimitedStr2 + 0001:0034735C TPCEDiag.ItemStr + 0001:0034743C TPCEDiag.SetFromString + 0001:003474EC TPCEData.Create + 0001:003475D4 TPCEData.Destroy + 0001:0034772C ClearList + 0001:0034775C TPCEData.Clear + 0001:00347824 TPCEData.CopyDiagnoses + 0001:00347838 TPCEData.CopyProcedures + 0001:0034784C TPCEData.CopyImmunizations + 0001:00347860 TPCEData.CopySkinTests + 0001:00347874 TPCEData.CopyPatientEds + 0001:00347888 TPCEData.CopyHealthFactors + 0001:0034789C TPCEData.CopyExams + 0001:003478B0 TPCEData.GetVisitString + 0001:0034794C TPCEData.GetCPTRequired + 0001:00347974 SCCValue + 0001:00347A28 AppendComment + 0001:00347B44 TPCEData.PCEForNote + 0001:00348874 TPCEData.Save + 0001:00349708 TPCEData.MatchItem + 0001:00349768 TPCEData.MarkDeletions + 0001:00349808 TPCEData.SetDiagnoses + 0001:0034993C TPCEData.SetProcedures + 0001:00349A78 TPCEData.SetImmunizations + 0001:00349BDC TPCEData.SetSkinTests + 0001:00349CF0 TPCEData.SetPatientEds + 0001:00349DF4 TPCEData.SetHealthFactors + 0001:00349F1C TPCEData.SetExams + 0001:0034A020 TPCEData.SetVisitType + 0001:0034A094 TPCEData.SetSCRelated + 0001:0034A0A4 TPCEData.SetAORelated + 0001:0034A0B4 TPCEData.SetIRRelated + 0001:0034A0C4 TPCEData.SetECRelated + 0001:0034A0D4 TPCEData.SetMSTRelated + 0001:0034A0E4 TPCEData.SetHNCRelated + 0001:0034A0F4 TPCEData.SetCVRelated + 0001:0034A104 TPCEData.SetEncUseCurr + 0001:0034A194 TPCEData.StrDiagnoses + 0001:0034A298 TPCEData.StrProcedures + 0001:0034A3A4 TPCEData.StrImmunizations + 0001:0034A4A4 TPCEData.StrSkinTests + 0001:0034A5A4 TPCEData.StrPatientEds + 0001:0034A6A4 TPCEData.StrHealthFactors + 0001:0034A7A4 TPCEData.StrExams + 0001:0034A8A4 AddTxt + 0001:0034A93C TPCEData.StrVisitType + 0001:0034AADC TPCEData.StrVisitType + 0001:0034ABD0 TPCEData.StandAlone + 0001:0034AC20 TPCEItem.MatchProvider + 0001:0034AC40 TPCEData.CopyPCEData + 0001:0034AD7C TPCEData.NeededPCEData + 0001:0034AF00 Add + 0001:0034AF7C TPCEData.OK2SignNote + 0001:0034B520 Add + 0001:0034B578 TPCEData.AddStrData + 0001:0034B664 TPCEData.AddVitalData + 0001:0034B6EC TPCEData.PersonClassDate + 0001:0034B714 TPCEData.VisitDateTime + 0001:0034B748 TPCEData.IsSecondaryVisit + 0001:0034B770 TPCEData.NeedProviderInfo + 0001:0034B8C8 AddList + 0001:0034B938 TPCEData.GetHasCPTList + 0001:0034B978 TPCEData.CopyPCEItems + 0001:0034BA58 TPCEData.Empty + 0001:0034BB28 TPCEProviderList.Add + 0001:0034BC98 TPCEProviderList.AddProvider + 0001:0034BD68 TPCEProviderList.Clear + 0001:0034BDC0 TPCEProviderList.Delete + 0001:0034BE68 Check + 0001:0034BEF4 TPCEProviderList.PCEProvider + 0001:0034BF64 TPCEProviderList.PCEProviderName + 0001:0034BFFC TPCEProviderList.GetPrimaryIdx + 0001:0034C01C TPCEProviderList.GetProviderData + 0001:0034C124 TPCEProviderList.IndexOfProvider + 0001:0034C17C TPCEProviderList.Merge + 0001:0034C26C TPCEProviderList.PendingIEN + 0001:0034C308 TPCEProviderList.PendingName + 0001:0034C338 TPCEProviderList.PrimaryIEN + 0001:0034C3D4 TPCEProviderList.SetPrimary + 0001:0034C474 TPCEProviderList.SetPrimaryIdx + 0001:0034C504 TPCEProviderList.Assign + 0001:0034C560 Finalization + 0001:0034C5D4 uPCE + 0001:0034C5DC GetVisitCat + 0001:0034C6D8 LexiconToCode + 0001:0034C7B4 ListLexicon + 0001:0034C89C IsActiveICDCode + 0001:0034C8F8 IsActiveCode + 0001:0034CA0C DeletePCE + 0001:0034CA94 LoadEncounterForm + 0001:0034D094 ListVisitTypeSections + 0001:0034D204 InsertTab + 0001:0034D2F4 ListVisitTypeCodes + 0001:0034D450 ListVisitTypeByLoc + 0001:0034D63C AutoSelectVisit + 0001:0034D6FC ListDiagnosisSections + 0001:0034D860 ListDiagnosisCodes + 0001:0034DAD0 AddProbsToDiagnoses + 0001:0034E06C LoadImmReactionItems + 0001:0034E0EC LoadImmSeriesItems + 0001:0034E16C ListImmunizSections + 0001:0034E2DC ListImmunizCodes + 0001:0034E3A0 ListProcedureSections + 0001:0034E510 ListProcedureCodes + 0001:0034E688 MixedCaseModifier + 0001:0034E718 ModifierIdx + 0001:0034E860 ModifierList + 0001:0034EAC8 ListCPTModifiers + 0001:0034EF7C ModifierName + 0001:0034F014 ModifierCode + 0001:0034F0AC UpdateModifierList + 0001:0034F388 UpdateVisitTypeModifierList + 0001:0034F664 LoadSkResultsItems + 0001:0034F6E4 ListSkinSections + 0001:0034F854 ListSkinCodes + 0001:0034F918 LoadPEDLevelItems + 0001:0034F998 ListPatientSections + 0001:0034FB08 ListPatientCodes + 0001:0034FBCC LoadHFLevelItems + 0001:0034FC4C ListHealthSections + 0001:0034FDBC ListHealthCodes + 0001:0034FE80 LoadXAMResultsItems + 0001:0034FF00 LoadHistLocations + 0001:00350170 ListExamsSections + 0001:003502E0 ListExamsCodes + 0001:003503A4 EligbleConditions + 0001:003507D8 ListSCDisabilities + 0001:00350834 LoadPCEDataForNote + 0001:00350900 GetVisitIEN + 0001:00350A10 SavePCEData + 0001:00350A68 DataHasCPTCodes + 0001:00350CA8 GetAskPCE + 0001:00350D90 HasVisit + 0001:00350E48 CheckActivePerson + 0001:00350F28 ForcePCEEntry + 0001:00350FEC LoadcboOther + 0001:00351360 SetRPCEncLocation + 0001:00351384 PCERPCEncLocation + 0001:00351398 GetLocSecondaryVisitCode + 0001:00351454 GAFOK + 0001:003514F8 MHClinic + 0001:0035159C RecentGAFScores + 0001:003516AC SaveGAFScore + 0001:00351880 GAFURL + 0001:00351914 MHTestsOK + 0001:003519B8 MHTestAuthorized + 0001:00351A7C AnytimeEncounters + 0001:00351B1C AutoCheckout + 0001:00351BD4 RequireExposures + 0001:00351CF8 PromptForWorkload + 0001:00351E40 IsCancelOrNoShow + 0001:00351ED4 IsNonCountClinic + 0001:00351F6C DefaultProvider + 0001:00351FEC IsUserAProvider + 0001:0035209C Finalization + 0001:00352160 rPCE + 0001:003524F4 LexiconLookup + 0001:00352584 TfrmPCELex.FormCreate + 0001:00352594 TfrmPCELex.SetApp + 0001:0035265C TfrmPCELex.SetDate + 0001:00352678 TfrmPCELex.txtSearchChange + 0001:00352698 TfrmPCELex.cmdSearchClick + 0001:003527E4 TfrmPCELex.lstSelectClick + 0001:00352830 TfrmPCELex.cmdOKClick + 0001:0035298C TfrmPCELex.cmdCancelClick + 0001:003529A4 TfrmPCELex.lstSelectDblClick + 0001:003529C0 Finalization + 0001:003529F0 fPCELex + 0001:00352F6C TfrmBALocalDiagnoses.Enter + 0001:00352FC4 TfrmBALocalDiagnoses.FormCreate + 0001:00353004 TfrmBALocalDiagnoses.ListDiagnosisSections + 0001:0035314C TfrmBALocalDiagnoses.MainDriver + 0001:003531F4 TfrmBALocalDiagnoses.LoadTempRec + 0001:00353410 TfrmBALocalDiagnoses.AssocDxToOrders + 0001:00353660 TfrmBALocalDiagnoses.buOKClick + 0001:003536BC TfrmBALocalDiagnoses.LoadEncounterForm + 0001:003537F4 TfrmBALocalDiagnoses.AddProbsToDiagnosis + 0001:00353B50 TfrmBALocalDiagnoses.AddPCEToDiagnosis + 0001:00353C74 TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList + 0001:00353EDC TfrmBALocalDiagnoses.buCancelClick + 0001:00353F24 TfrmBALocalDiagnoses.Button4Click + 0001:00353F2C TfrmBALocalDiagnoses.lbSectionsClick + 0001:00353FF8 TfrmBALocalDiagnoses.ListDiagnosisCodes + 0001:003541FC TfrmBALocalDiagnoses.btnOtherClick + 0001:003544E0 TfrmBALocalDiagnoses.btnPrimaryClick + 0001:003545D8 TfrmBALocalDiagnoses.btnRemoveClick + 0001:00354630 TfrmBALocalDiagnoses.btnSelectAllClick + 0001:00354748 TfrmBALocalDiagnoses.DiagnosisSelection + 0001:003548A0 TfrmBALocalDiagnoses.IsDxAlreadySelected + 0001:0035498C TfrmBALocalDiagnoses.ProblemListDxFound + 0001:00354A48 TfrmBALocalDiagnoses.PersonalListDxFound + 0001:00354B04 TfrmBALocalDiagnoses.EnsurePrimary + 0001:00354BF8 TfrmBALocalDiagnoses.cbAddToPLClick + 0001:00354E04 TfrmBALocalDiagnoses.ProcessAddToItems + 0001:00354E18 TfrmBALocalDiagnoses.AddToPersonalDxList + 0001:0035506C TfrmBALocalDiagnoses.AddToProblemList + 0001:00355294 TfrmBALocalDiagnoses.BuildConsultDxList + 0001:00355590 TfrmBALocalDiagnoses.BuildTempDxList + 0001:00355960 TfrmBALocalDiagnoses.BuildBADxList + 0001:00355ABC TfrmBALocalDiagnoses.ListConsultDX + 0001:00355D4C TfrmBALocalDiagnoses.ListGlobalDx + 0001:00355FB0 TfrmBALocalDiagnoses.lbDiagnosisClick + 0001:003562C0 TfrmBALocalDiagnoses.DeselectGridItems + 0001:0035632C TfrmBALocalDiagnoses.FormActivate + 0001:00356334 TfrmBALocalDiagnoses.FormShow + 0001:003563B0 TfrmBALocalDiagnoses.ListSelectedOrders + 0001:003564B8 TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList1Click + 0001:00356644 TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click + 0001:00356798 TfrmBALocalDiagnoses.cbAddToPDListClick + 0001:003569D8 TfrmBALocalDiagnoses.AddToWhatList + 0001:00356A54 TfrmBALocalDiagnoses.InactiveICDNotification + 0001:00356C00 TfrmBALocalDiagnoses.lbSectionsDrawItem + 0001:00356E1C TfrmBALocalDiagnoses.LoadTempDXLists + 0001:00357220 TfrmBALocalDiagnoses.lvDxGridKeyDown + 0001:0035723C TfrmBALocalDiagnoses.SetAddToCBoxStatus + 0001:003575D0 TfrmBALocalDiagnoses.lvDxGridKeyUp + 0001:003575E0 TfrmBALocalDiagnoses.lvDxGridClick + 0001:00357610 TfrmBALocalDiagnoses.lbOrdersMouseMove + 0001:003576B4 TfrmBALocalDiagnoses.SetAddToCheckBoxStatus + 0001:0035789C TfrmBALocalDiagnoses.ProcessMultSelections + 0001:00357A28 TfrmBALocalDiagnoses.ClearAndDisableCBoxes + 0001:00357A78 TfrmBALocalDiagnoses.ORStaticText1Enter + 0001:00357A9C TfrmBALocalDiagnoses.ORStaticText1Exit + 0001:00357AC0 TfrmBALocalDiagnoses.ORStaticText3Enter + 0001:00357AE4 TfrmBALocalDiagnoses.ORStaticText3Exit + 0001:00357B08 TfrmBALocalDiagnoses.ReSetCheckBoxStatus + 0001:00357B80 Finalization + 0001:00357BE4 fBALocalDiagnoses + 0001:003580C8 RemoveOrderFromDxList + 0001:0035819C CopyTFCIToTargetOrder + 0001:00358240 BACopyOrder + 0001:003583B4 CopyTreatmentFactorsDxsToCopiedOrder + 0001:003584D0 CopyTreatmentFactorsDxsToRenewedOrder + 0001:003585C4 PutBADxListForOrder + 0001:0035874C CopyDxRecord + 0001:00358AB8 AllSelectedDxBlank + 0001:00358D30 DiagnosesMatch + 0001:00358E94 CountSelectedOrders + 0001:0035907C CompareOrderDx + 0001:00359614 GetBADxListForOrder + 0001:003597D0 SimpleAddTempDxList + 0001:00359830 SetBADxListForOrder + 0001:003599CC InitializeConsultOrderRec + 0001:00359A24 InitializeNewDxRec + 0001:00359A7C InitializeUnsignedOrderRec + 0001:00359AD4 TBAPLRec.BuildProblemListDxEntry + 0001:00359FCC TBAPLPt.Create + 0001:0035A208 TBAPLPt.LoadPatientParams + 0001:0035A248 TBAPLPt.rpcInitPt + 0001:0035A29C tempDxNodeExists + 0001:0035A3B4 IsUserNurseProvider + 0001:0035A414 GetPatientTFactors + 0001:0035A478 Finalization + 0001:0035A560 UBAGlobals + 0001:0035A954 Finalization + 0001:0035A984 fHSplit + 0001:0035B728 TfrmOrders.AllowContextChange + 0001:0035B7BC TfrmOrders.ClearPtData + 0001:0035B81C TfrmOrders.DisplayPage + 0001:0035BC04 TfrmOrders.mnuChartTabClick + 0001:0035BC24 RemoveFromOrderList + 0001:0035BCB4 TfrmOrders.NotifyOrder + 0001:0035C1E0 TfrmOrders.FormCreate + 0001:0035C304 TfrmOrders.FormDestroy + 0001:0035C3A0 TfrmOrders.UMDestroy + 0001:0035C3C4 TfrmOrders.PositionTopOrder + 0001:0035C4F4 TfrmOrders.RedrawOrderList + 0001:0035C5FC TfrmOrders.RefreshOrderList + 0001:0035C91C TfrmOrders.UseDefaultSort + 0001:0035C98C TfrmOrders.CanChangeOrderView + 0001:0035CA64 TfrmOrders.SetOrderView + 0001:0035CD3C TfrmOrders.mnuViewActiveClick + 0001:0035CDB4 TfrmOrders.mnuViewCurrentClick + 0001:0035CE28 TfrmOrders.mnuViewExpiringClick + 0001:0035CE7C TfrmOrders.mnuViewExpiredClick + 0001:0035CED8 TfrmOrders.mnuViewUnsignedClick + 0001:0035CF2C TfrmOrders.mnuViewCustomClick + 0001:0035D190 TfrmOrders.mnuViewDfltShowClick + 0001:0035D328 TfrmOrders.mnuViewDfltSaveClick + 0001:0035D644 TfrmOrders.mnuViewDetailClick + 0001:0035DA70 TfrmOrders.mnuViewResultClick + 0001:0035DC38 TfrmOrders.mnuViewResultsHistoryClick + 0001:0035DE04 TfrmOrders.ClearOrderSheets + 0001:0035DE74 TfrmOrders.InitOrderSheets + 0001:0035E1D8 TfrmOrders.lstSheetsClick + 0001:0035E908 TfrmOrders.RetrieveVisibleOrders + 0001:0035E9A0 TfrmOrders.GetPlainText + 0001:0035EAB4 TfrmOrders.MeasureColumnHeight + 0001:0035EB70 TfrmOrders.lstOrdersMeasureItem + 0001:0035ECE0 TfrmOrders.GetStartStopText + 0001:0035EE64 TfrmOrders.GetOrderText + 0001:0035F0C0 TfrmOrders.lstOrdersDrawItem + 0001:0035F474 TfrmOrders.hdrOrdersSectionResize + 0001:0035F4F8 TfrmOrders.lstOrdersDblClick + 0001:0035F514 TfrmOrders.lstWriteClick + 0001:0035FCB8 TfrmOrders.SaveSignOrders + 0001:0035FE58 TfrmOrders.ValidateSelected + 0001:0036071C TfrmOrders.MakeSelectedList + 0001:00360788 TfrmOrders.NoneSelected + 0001:00360818 TfrmOrders.RemoveSelectedFromChanges + 0001:0036086C TfrmOrders.SynchListToOrders + 0001:00360940 TfrmOrders.mnuActDCClick + 0001:00360BC8 TfrmOrders.mnuActRelClick + 0001:00360F88 TfrmOrders.mnuActChgEvntClick + 0001:00361234 TfrmOrders.mnuActHoldClick + 0001:00361400 TfrmOrders.mnuActUnholdClick + 0001:0036159C TfrmOrders.mnuActRenewClick + 0001:00361804 TfrmOrders.mnuActAlertClick + 0001:00361950 TfrmOrders.mnuActFlagClick + 0001:00361B78 TfrmOrders.mnuActUnflagClick + 0001:00361DB0 TfrmOrders.mnuActCompleteClick + 0001:00361EFC TfrmOrders.mnuActVerifyClick + 0001:00362048 TfrmOrders.mnuActChartRevClick + 0001:00362194 TfrmOrders.mnuActCommentClick + 0001:003623B4 TfrmOrders.mnuActChangeClick + 0001:0036261C TfrmOrders.mnuActCopyClick + 0001:00362AE0 TfrmOrders.mnuActReleaseClick + 0001:00362E78 TfrmOrders.mnuActOnChartClick + 0001:0036321C TfrmOrders.mnuActSignClick + 0001:003636F4 TfrmOrders.mnuOptSaveQuickClick + 0001:0036370C TfrmOrders.mnuOptEditCommonClick + 0001:00363724 TfrmOrders.ProcessNotifications + 0001:0036416C TfrmOrders.ViewAlertedOrders + 0001:00364400 TfrmOrders.pnlRightResize + 0001:00364430 TfrmOrders.RequestPrint + 0001:0036474C TfrmOrders.btnDelayedOrderClick + 0001:003648D0 TfrmOrders.CompressEventSection + 0001:00364950 TfrmOrders.ExpandEventSection + 0001:00364A1C TfrmOrders.InitOrderSheetsForEvtDelay + 0001:00364A38 TfrmOrders.DfltViewForEvtDelay + 0001:00364B08 TfrmOrders.EventRealeasedOrder1Click + 0001:00364D44 TfrmOrders.ResetOrderPage + 0001:00365650 TfrmOrders.GetEvtIFN + 0001:00365784 TfrmOrders.PlaceOrderForDefaultDialog + 0001:00365DEC TfrmOrders.DisplayDefaultDlgList + 0001:003661FC TfrmOrders.ClickLstSheet + 0001:00366228 TfrmOrders.lblWriteMouseMove + 0001:00366298 TfrmOrders.InitOrderSheets2 + 0001:00366418 TfrmOrders.SetFontSize + 0001:0036647C TfrmOrders.popOrderPopup + 0001:00366498 TfrmOrders.mnuViewClick + 0001:003664B4 TfrmOrders.mnuActClick + 0001:003664D0 TfrmOrders.mnuOptClick + 0001:003664EC TfrmOrders.AddToListBox + 0001:003665BC TfrmOrders.ChangesUpdate + 0001:003666F4 TfrmOrders.PtEvtCompleted + 0001:00366C70 TfrmOrders.GroupChangesUpdate + 0001:00366D24 TfrmOrders.UMEventOccur + 0001:003670A4 TfrmOrders.setSectionWidths + 0001:003670E4 TfrmOrders.getTotalSectionsWidth + 0001:00367144 TfrmOrders.FormShow + 0001:00367154 TfrmOrders.hdrOrdersMouseUp + 0001:00367234 TfrmOrders.hdrOrdersMouseDown + 0001:00367254 TfrmOrders.PatientStatusChanged + 0001:003674DC TfrmOrders.CheckOrderStatus + 0001:00367604 TfrmOrders.ViewInfo + 0001:00367624 TfrmOrders.mnuViewInformationClick + 0001:003677F4 TfrmOrders.mnuOptimizeFieldsClick + 0001:00367988 TfrmOrders.hdrOrdersSectionClick + 0001:003679A8 TfrmOrders.sptHorzMoved + 0001:003679C4 Finalization + 0001:003679F4 fOrders + 0001:00367A7C DetailPrimaryCare + 0001:00367AC4 GetToolMenu + 0001:00367C44 ListSymbolTable + 0001:00367D48 MScalar + 0001:00367DE8 ServerHasPatch + 0001:00367E74 ServerVersion + 0001:00367EC4 PackageVersion + 0001:00367F04 UserFontSize + 0001:00367F88 LoadSizes + 0001:003681CC SetShareNode + 0001:00368284 SetUserBounds + 0001:003684B4 SetUserBounds2 + 0001:003685AC SetUserWidths + 0001:003686AC SetUserColumns + 0001:00368888 SaveUserBounds + 0001:00368974 SaveUserSizes + 0001:003689A8 SaveUserFontSize + 0001:00368A24 SetFormPosition + 0001:00368B64 StrUserBounds + 0001:00368CC0 StrUserBounds2 + 0001:00368D9C StrUserWidth + 0001:00368E68 StrUserColumns + 0001:00369044 TSizeHolder.AddSizesToStrList + 0001:00369100 TSizeHolder.Create + 0001:00369154 TSizeHolder.Destroy + 0001:0036918C TSizeHolder.GetSize + 0001:00369268 TSizeHolder.SetSize + 0001:003692F4 Finalization + 0001:00369360 rMisc + 0001:00369368 LoadNoteTitles + 0001:003694E8 ResetNoteTitles + 0001:00369508 DfltNoteTitle + 0001:00369520 DfltNoteTitleName + 0001:00369544 IsConsultTitle + 0001:003695E4 IsPRFTitle + 0001:00369678 IsClinProcTitle + 0001:00369718 ListNoteTitlesShort + 0001:003697C4 LoadBoilerPlate + 0001:00369884 PrintNameForTitle + 0001:003698C8 SubSetOfNoteTitles + 0001:00369978 LoadTIUPrefs + 0001:00369BF0 ResetTIUPreferences + 0001:00369C10 AskCosignerForDocument + 0001:00369CE0 AskCosignerForTitle + 0001:00369E34 AskSubjectForNotes + 0001:00369E4C CanCosign + 0001:00369FAC DefaultCosigner + 0001:00369FE4 ReturnMaxNotes + 0001:0036A004 DfltTIULocation + 0001:0036A01C ActOnDocument + 0001:0036A118 AuthorSignedDocument + 0001:0036A1C4 CosignDocument + 0001:0036A268 ListConsultRequests + 0001:0036A32C ListNotesForTree + 0001:0036A40C LoadDocumentText + 0001:0036A460 LoadDetailText + 0001:0036A4B8 FindDT + 0001:0036A5A4 FindExt + 0001:0036A67C FindInt + 0001:0036A75C FindInt64 + 0001:0036A858 FindVal + 0001:0036A930 GetNoteForEdit + 0001:0036ACE0 VisitStrForNote + 0001:0036AD20 TitleForNote + 0001:0036ADAC GetPackageRefForNote + 0001:0036ADEC GetConsultIENforNote + 0001:0036AEC8 LockDocument + 0001:0036AF80 UnlockDocument + 0001:0036AFC4 LastSaveClean + 0001:0036B05C GetTIUListItem + 0001:0036B0A8 DeleteDocument + 0001:0036B190 JustifyDocumentDelete + 0001:0036B224 SignDocument + 0001:0036B308 PutNewNote + 0001:0036B760 PutAddendum + 0001:0036BA08 PutEditedNote + 0001:0036BDC4 SetText + 0001:0036C104 InitParams + 0001:0036C21C AllowChartPrintForNote + 0001:0036C2D4 PrintNoteToDevice + 0001:0036C3DC GetFormattedNote + 0001:0036C434 GetCurrentSigners + 0001:0036C494 UpdateAdditionalSigners + 0001:0036C4E8 CanChangeCosigner + 0001:0036C5A0 ChangeCosigner + 0001:0036C6E4 OneNotePerVisit + 0001:0036C7B8 GetCurrentTIUContext + 0001:0036CA80 SaveCurrentTIUContext + 0001:0036CCA0 TIUSiteParams + 0001:0036CD38 IDNotesInstalled + 0001:0036CD3C CanTitleBeIDChild + 0001:0036CE44 CanBeAttached + 0001:0036D07C CanReceiveAttachment + 0001:0036D16C AttachEntryToParent + 0001:0036D268 DetachEntryFromParent + 0001:0036D34C SubSetOfUserClasses + 0001:0036D3B0 UserDivClassInfo + 0001:0036D404 UserInactive + 0001:0036D4A0 TIUPatch175Installed + 0001:0036D4DC NoteHasText + 0001:0036D560 Finalization + 0001:0036D5C0 rTIU + 0001:0036D754 FormatSSN + 0001:0036D828 IsSSN + 0001:0036D864 IsFMDate + 0001:0036D894 FMToday + 0001:0036D8D8 FMNow + 0001:0036D95C MakeRelativeDateTime + 0001:0036DAF0 StrToFMDateTime + 0001:0036DB68 ValidDateTimeStr + 0001:0036DBF4 ListDateRangeClinic + 0001:0036DC44 DfltDateRangeClinic + 0001:0036DC94 GetProgramFilesPath + 0001:0036DDE0 ExternalName + 0001:0036DE38 PersonHasKey + 0001:0036DED8 GlobalRefForFile + 0001:0036DF14 SubsetOfDevices + 0001:0036DF68 SubSetOfPersons + 0001:0036DFC0 GetUserInfo + 0001:0036E42C GetUserParam + 0001:0036E468 HasSecurityKey + 0001:0036E4F8 HasMenuOptionAccess + 0001:0036E590 ValidESCode + 0001:0036E638 LoadNotifications + 0001:0036E6C0 UpdateUnsignedOrderAlerts + 0001:0036E744 UnsignedOrderAlertFollowup + 0001:0036E7CC UpdateExpiringMedAlerts + 0001:0036E84C UpdateExpiringFlaggedOIAlerts + 0001:0036E8D8 UpdateUnverifiedMedAlerts + 0001:0036E95C UpdateUnverifiedOrderAlerts + 0001:0036E9E0 AutoUnflagAlertedOrders + 0001:0036EA7C DeleteAlert + 0001:0036EAF4 DeleteAlertForUser + 0001:0036EB74 ForwardAlert + 0001:0036EC38 RenewAlert + 0001:0036ECAC GetSortMethod + 0001:0036ECEC SetSortMethod + 0001:0036ED7C GetXQAData + 0001:0036EDF4 GetTIUAlertInfo + 0001:0036EE70 GetNotificationFollowUpText + 0001:0036EF20 DfltPtList + 0001:0036EFC4 DfltPtListSrc + 0001:0036F048 SavePtListDflt + 0001:0036F080 ListSpecialtyAll + 0001:0036F0E4 ListTeamAll + 0001:0036F140 ListWardAll + 0001:0036F18C ListProviderTop + 0001:0036F190 SubSetOfProviders + 0001:0036F208 SubSetOfUsersWithClass + 0001:0036F2BC SubSetOfActiveAndInactivePersons + 0001:0036F350 ListClinicTop + 0001:0036F354 SubSetOfClinics + 0001:0036F3BC GetDfltSort + 0001:0036F474 ResetDfltSort + 0001:0036F480 ListPtByDflt + 0001:0036F844 ListPtByProvider + 0001:0036F8CC ListPtByTeam + 0001:0036F94C ListPtBySpecialty + 0001:0036F9D4 ListPtByClinic + 0001:0036FC10 ListPtByWard + 0001:0036FD00 ListPtByOther + 0001:0036FDB8 ListPtByTimson + 0001:0036FE50 ListPtByLast5 + 0001:00370034 ListPtByRPLLast5 + 0001:0037021C ListPtByFullSSN + 0001:00370478 ListPtByRPLFullSSN + 0001:003706D8 ListPtTop + 0001:00370734 SubSetOfPatients + 0001:0037079C MakeRPLPtList + 0001:00370814 ReadRPLPtList + 0001:003708C0 KillRPLPtList + 0001:00370934 CheckSensitiveRecordAccess + 0001:00370A4C CurrentLocationForPatient + 0001:00370B34 DateOfDeath + 0001:00370BB4 GetPtIDInfo + 0001:00370F00 HasLegacyData + 0001:00371034 LogSensitiveRecordAccess + 0001:003710D4 MeansTestRequired + 0001:00371214 SelectPatient + 0001:003715D4 GetDFNFromICN + 0001:00371674 GetEncounterText + 0001:00371794 ListApptAll + 0001:0037187C ListAdmitAll + 0001:003719D4 SubSetOfLocations + 0001:00371A2C SubSetOfNewLocs + 0001:00371A84 SubSetOfInpatientLocations + 0001:00371AD8 HasRemoteData + 0001:00371BB0 CheckHL7TCPLink + 0001:00371C58 UseVistaWeb + 0001:00371D00 GetVistaWebAddress + 0001:00371D8C ChangeVistaWebParam + 0001:00371E00 GetDefaultPrinter + 0001:00371E5C Finalization + 0001:00371E98 rCore + 0001:003724B0 QueuePending + 0001:00372504 ProcessQueue + 0001:003726B8 TNotifyAppsThread.CreateThread + 0001:00372704 TNotifyAppsThread.ResumeIfIdle + 0001:00372720 TNotifyAppsThread.ResumeAndTerminate + 0001:00372744 TNotifyAppsThread.Execute + 0001:00372784 AppNotificationEnabled + 0001:00372898 ReleaseAppNotification + 0001:00372970 NotifyOtherApps + 0001:00372AC0 FlushNotifierBuffer + 0001:00372B10 TerminateOtherAppNotification + 0001:00372B18 TUser.Create + 0001:00372CF4 TUser.HasKey + 0001:00372D14 TPatient.Clear + 0001:00372DE0 TPatient.GetDateDied + 0001:00372E24 TPatient.SetDFN + 0001:00372FB0 TEncounter.Create + 0001:00373018 TEncounter.Destroy + 0001:00373054 TEncounter.Clear + 0001:003730C4 TEncounter.GetLocationText + 0001:003730F4 TEncounter.GetLocationName + 0001:00373124 TEncounter.GetProviderName + 0001:00373154 TEncounter.GetVisitCategory + 0001:00373178 TEncounter.GetVisitStr + 0001:00373220 TEncounter.NeedVisit + 0001:00373258 TEncounter.SetDateTime + 0001:00373288 TEncounter.SetInpatient + 0001:003732B4 TEncounter.SetLocation + 0001:003732F0 TEncounter.SetProvider + 0001:00373328 TEncounter.SetStandAlone + 0001:00373354 TEncounter.SetVisitCategory + 0001:00373380 TEncounter.UpdateText + 0001:003734F8 TChangeItem.Create + 0001:003735B4 TChanges.Create + 0001:00373650 TChanges.Destroy + 0001:003736C0 TChanges.Add + 0001:00373928 TChanges.CanSign + 0001:003739C4 TChanges.Clear + 0001:00373B34 TChanges.Exist + 0001:00373C20 TChanges.ExistForOrder + 0001:00373CE8 TChanges.Locate + 0001:00373DE0 TChanges.Remove + 0001:00374034 TChanges.ReplaceSignState + 0001:00374124 TChanges.ReplaceText + 0001:0037421C TChanges.RequireReview + 0001:00374294 TChanges.AddUnsignedToChanges + 0001:00374468 TNotifications.Create + 0001:003744C4 TNotifications.Destroy + 0001:00374508 TNotifications.Add + 0001:00374568 TNotifications.Clear + 0001:003745D8 TNotifications.GetDFN + 0001:0037460C TNotifications.GetFollowUp + 0001:00374638 TNotifications.GetAlertData + 0001:003746B0 TNotifications.GetRecordID + 0001:003746E4 TNotifications.GetText + 0001:00374764 TNotifications.Next + 0001:003747B0 TNotifications.Prior + 0001:00374800 TNotifications.Delete + 0001:00374868 TNotifications.DeleteForCurrentUser + 0001:003748D0 TRemoteSite.Create + 0001:00374A18 TRemoteSite.Destroy + 0001:00374A70 TRemoteSite.ReportClear + 0001:00374A90 TRemoteSite.LabClear + 0001:00374AB0 TRemoteSite.SetSelected + 0001:00374ACC TRemoteReport.Create + 0001:00374B54 TRemoteReport.Destroy + 0001:00374B88 TRemoteReportList.Create + 0001:00374BDC TRemoteReportList.Destroy + 0001:00374C18 TRemoteReportList.Add + 0001:00374CB8 TRemoteSiteList.Create + 0001:00374D0C TRemoteSiteList.Destroy + 0001:00374D50 TRemoteSiteList.Add + 0001:00374DC4 TRemoteSiteList.Clear + 0001:00374E24 TRemoteSiteList.ChangePatient + 0001:00374FA8 TUser.SetCurrentPrinter + 0001:00374FFC GotoWebPage + 0001:00375020 LoadURLMon + 0001:00375094 ReleaseURLMon + 0001:003750B0 TChanges.ReplaceODGrpName + 0001:00375120 TChanges.ChangeOrderGrp + 0001:003751BC Finalization + 0001:00375218 uCore + 0001:0037566C TOrder.Assign + 0001:00375850 TOrder.Clear + 0001:00375978 DetailOrder + 0001:003759E0 ResultOrder + 0001:00375A50 ResultOrderHistory + 0001:00375AC8 LoadDGroupMap + 0001:00375B24 NameOfStatus + 0001:00375E40 GetOrderStatus + 0001:00375ED4 ExpiredOrdersStartDT + 0001:00375F54 DispOrdersForEvent + 0001:00375FF4 EventInfo + 0001:0037606C EventInfo1 + 0001:003760E4 NameOfDGroup + 0001:00376178 SeqOfDGroup + 0001:00376208 CheckOrderGroup + 0001:00376298 CheckQOGroup + 0001:00376338 TopNameOfDGroup + 0001:003763CC ClearOrders + 0001:00376418 SetOrderFields + 0001:003767CC LoadOrdersAbbr + 0001:00376D8C LoadOrdersAbbr + 0001:00377220 LoadOrderSheetsED + 0001:00377390 LoadOrderViewDefault + 0001:00377558 LoadUnsignedOrders + 0001:003776FC RetrieveOrderFields + 0001:00377B64 SaveOrderViewDefault + 0001:00377CD4 InverseByGroup + 0001:00377EC8 ForwardByGroup + 0001:0037809C InverseChrono + 0001:00378198 ForwardChrono + 0001:00378294 SortOrders + 0001:003782F4 DGroupAll + 0001:00378394 DGroupIEN + 0001:00378424 ListDGroupAll + 0001:00378478 ListSpecialtiesED + 0001:00378A14 ListOrderFiltersAll + 0001:00378A68 BuildResponses + 0001:003790C0 ClearOrderRecall + 0001:003790FC CommonLocationForOrders + 0001:00379180 FormIDForDialog + 0001:00379204 DlgIENForName + 0001:00379298 LoadOrderMenu + 0001:00379650 LoadOrderSet + 0001:0037978C LoadWriteOrders + 0001:003797E4 LoadWriteOrdersED + 0001:003798A4 OrderDisabledMessage + 0001:003798EC SendOrders + 0001:00379AC0 SendReleaseOrders + 0001:00379BBC PrintOrdersOnReview + 0001:00379C1C PrintServiceCopies + 0001:00379C70 ExecutePrintOrders + 0001:00379CD0 DialogForOrder + 0001:00379D50 SetOrderFromResults + 0001:0037A06C LockPatient + 0001:0037A15C UnlockPatient + 0001:0037A1D4 LockOrder + 0001:0037A2D8 UnlockOrder + 0001:0037A35C ValidateOrderAction + 0001:0037A400 ValidateOrderActionNature + 0001:0037A4B0 IsLatestAction + 0001:0037A524 RenewOrder + 0001:0037AA48 HoldOrder + 0001:0037AAA4 ReleaseOrderHold + 0001:0037AB04 ListDCReasons + 0001:0037AB74 GetREQReason + 0001:0037ABF4 DCOrder + 0001:0037AD14 AlertOrder + 0001:0037AD64 FlagOrder + 0001:0037ADC8 LoadFlagReason + 0001:0037AE20 UnflagOrder + 0001:0037AE7C LoadWardComments + 0001:0037AED4 PutWardComments + 0001:0037AF68 CompleteOrder + 0001:0037AFC4 VerifyOrder + 0001:0037B020 VerifyOrderChartReview + 0001:0037B084 GetOrderableIen + 0001:0037B118 StoreDigitalSig + 0001:0037B4E0 UpdateOrderDGIfNeeded + 0001:0037B604 CanEditSuchRenewedOrder + 0001:0037B6B8 IsPSOSupplyDlg + 0001:0037B75C SaveChangesOnRenewOrder + 0001:0037B828 OrderIsReleased + 0001:0037B8BC LoadRenewFields + 0001:0037BB08 GetChildrenOfComplexOrder + 0001:0037BC94 LESValidationForChangedLabOrder + 0001:0037BD38 ChangeEvent + 0001:0037BDC8 DeletePtEvent + 0001:0037BE4C IsRenewableComplexOrder + 0001:0037BEEC IsComplexOrder + 0001:0037BF8C ValidateComplexOrderAct + 0001:0037C01C GetDlgData + 0001:0037C094 PtEvtEmpty + 0001:0037C130 TextForOrder + 0001:0037C188 GetConsultOrderNumber + 0001:0037C208 GetOrderByIFN + 0001:0037C578 GetPackageByOrderID + 0001:0037C5C0 AnyOrdersRequireSignature + 0001:0037C654 OrderRequiresSignature + 0001:0037C6E8 OrderRequiresDigitalSignature + 0001:0037C77C GetDrugSchedule + 0001:0037C7C4 SetExternalText + 0001:0037C8CC GetPKISite + 0001:0037C95C GetPKIUse + 0001:0037C9EC DoesOIPIInSigForQO + 0001:0037CA70 GetDispGroupForLES + 0001:0037CAB4 GetOrderPtEvtID + 0001:0037CB30 VerbTelPolicyOrder + 0001:0037CBD4 ForIVandUD + 0001:0037CC78 GetEventIFN + 0001:0037CCC0 GetEventName + 0001:0037CD08 GetEventLoc1 + 0001:0037CD50 GetEventDiv1 + 0001:0037CD98 GetCurrentSpec + 0001:0037CDE0 GetDefaultEvt + 0001:0037CE2C isExistedEvent + 0001:0037CEDC TypeOfExistedEvent + 0001:0037CF80 isMatchedEvent + 0001:0037D064 isDCedOrder + 0001:0037D0F0 isOnholdMedOrder + 0001:0037D190 GetEventPromptID + 0001:0037D214 GetDefaultTSForEvt + 0001:0037D25C GetPromptIDs + 0001:0037D2A4 GetEventDefaultDlg + 0001:0037D2F0 CanManualRelease + 0001:0037D380 TheParentPtEvt + 0001:0037D3FC IsCompletedPtEvt + 0001:0037D48C IsPassEvt + 0001:0037D52C IsPassEvt1 + 0001:0037D5D0 SetPtEvtList + 0001:0037D6D8 GetTSListForEvt + 0001:0037D760 DeleteEmptyEvt + 0001:0037D8D8 CompleteEvt + 0001:0037DAD0 FillerIDForDialog + 0001:0037DB18 OrderChecksEnabled + 0001:0037DBAC OrderChecksOnDisplay + 0001:0037DC68 OrderChecksOnAccept + 0001:0037DD90 OrderChecksForSession + 0001:0037DDFC SaveOrderChecksForSession + 0001:0037DE5C DeleteCheckedOrder + 0001:0037DEF0 DataForOrderCheck + 0001:0037DF38 OrderPrintDeviceInfo + 0001:0037E394 SaveEvtForOrder + 0001:0037E45C EventExist + 0001:0037E520 UseNewMedDialogs + 0001:0037E5B0 GetCoPay4Orders + 0001:0037E620 SaveCoPayStatus + 0001:0037E730 IsValidIMOLoc + 0001:0037E7D8 IsIMOOrder + 0001:0037E878 IsInptQO + 0001:0037E90C IsIVQO + 0001:0037E9A0 IsClinicLoc + 0001:0037EA34 IsValidSchedule + 0001:0037EAD8 IsValidQOSch + 0001:0037EB50 IsValidSchStr + 0001:0037EBF4 TParentEvent.Assign + 0001:0037ED08 TParentEvent.Create + 0001:0037ED78 Finalization + 0001:0037EDBC rOrders + 0001:0037EF98 TfrmPage.FormCreate + 0001:0037F028 TfrmPage.Loaded + 0001:0037F094 TfrmPage.AllowContextChange + 0001:0037F0AC TfrmPage.ClearPtData + 0001:0037F0C4 TfrmPage.DisplayPage + 0001:0037F14C TfrmPage.NotifyOrder + 0001:0037F160 TfrmPage.RequestPrint + 0001:0037F16C TfrmPage.SetFontSize + 0001:0037F1C8 TfrmPage.GetInitPage + 0001:0037F1E8 TfrmPage.GetInitPatient + 0001:0037F208 TfrmPage.GetPatientViewed + 0001:0037F228 TfrmPage.FormClose + 0001:0037F244 TfrmPage.frmPageEnter + 0001:0037F2AC TfrmPage.FocusFirstControl + 0001:0037F310 Finalization + 0001:0037F340 fPage + 0001:0037F348 Finalization + 0001:0037F378 fHP + 0001:0037F380 Finalization + 0001:0037F3B0 mVitCirGirth + 0001:0037F3B8 Finalization + 0001:0037F3E8 mVitCVP + 0001:0037F3F0 Finalization + 0001:0037F420 mVitPO2 + 0001:0037F428 Finalization + 0001:0037F458 mVitPain + 0001:0037F460 Finalization + 0001:0037F490 mVitWeight + 0001:0037F498 Finalization + 0001:0037F4C8 mVitHeight + 0001:0037F4D0 Finalization + 0001:0037F500 mVitBP + 0001:0037F508 Finalization + 0001:0037F538 mVitResp + 0001:0037F540 Finalization + 0001:0037F570 mVitPulse + 0001:0037F578 Finalization + 0001:0037F5A8 mVitTemp + 0001:0037F5B0 Finalization + 0001:0037F5E0 mVitAll + 0001:0037F5E8 Finalization + 0001:0037F618 fODRadImType + 0001:0037F620 Finalization + 0001:0037F650 fODSaveQuick + 0001:0037F658 Finalization + 0001:0037F688 fOMProgress + 0001:0037F690 Finalization + 0001:0037F6C0 fOptionsPrimaryList + 0001:0037F6C8 Finalization + 0001:0037F6F8 fOptionsSubscribe + 0001:0037F700 Finalization + 0001:00380548 CPRSChart + 0002:00000000 ExitCode + 0002:00000004 ErrorAddr + 0002:00000008 RandSeed + 0002:0000000C FileMode + 0002:00000010 VarClearProc + 0002:00000014 VarAddRefProc + 0002:00000018 VarCopyProc + 0002:0000001C VarToLStrProc + 0002:00000020 VarToWStrProc + 0002:00000024 Default8087CW + 0002:00000028 HeapAllocFlags + 0002:0000002C DebugHook + 0002:00000030 JITEnable + 0002:00000034 NoErrMsg + 0002:00000038 LibModuleList + 0002:0000003C ModuleUnloadList + 0002:00000040 MemoryManager + 0002:0000004C reMap + 0002:00000068 Ten + 0002:00000070 errCaption + 0002:00000078 runErrMsg + 0002:00000098 dig + 0002:000000A8 TlsIndex + 0002:000000AC PtrToNil + 0002:000000B0 Module + 0002:000000C8 EmptyStr + 0002:000000CC EmptyWideStr + 0002:000000D0 Win32Platform + 0002:000000D4 Win32MajorVersion + 0002:000000D8 Win32MinorVersion + 0002:000000DC Win32BuildNumber + 0002:000000E0 Win32CSDVersion + 0002:000000E4 TwoDigitYearCenturyWindow + 0002:000000E8 MonthDays + 0002:00000118 LeadBytes + 0002:00000138 HexDisplayPrefix + 0002:0000013C GetDiskFreeSpaceEx + 0002:00000140 ExitProcList + 0002:00000144 cSimpleBoolStrs + 0002:0000014C AccessMode + 0002:00000158 ShareMode + 0002:0000016C FormatErrorStrs + 0002:00000174 FCon1E18 + 0002:00000180 DCon10 + 0002:00000184 CWNear + 0002:00000188 FMSecsPerDay + 0002:0000018C IMSecsPerDay + 0002:00000190 Format + 0002:00000194 DefShortMonthNames + 0002:000001C4 DefLongMonthNames + 0002:000001F4 DefShortDayNames + 0002:00000210 DefLongDayNames + 0002:0000022C ErrorMap + 0002:00000264 ExceptMap + 0002:00000314 WesternGroups + 0002:00000318 TerminateProcList + 0002:0000031C CVarTypeToElementInfo + 0002:00000424 CResult + 0002:0000042C NullEqualityRule + 0002:00000430 NullMagnitudeRule + 0002:00000434 NullStrictConvert + 0002:00000438 NullAsStringValue + 0002:0000043C PackVarCreation + 0002:00000440 BooleanToStringRule + 0002:00000444 BaseTypeMap + 0002:0000045C CInvalidCustomVariantType + 0002:00000460 CRangeToType + 0002:00000474 OpTypeMap + 0002:000004F0 CBooleanToRelationship + 0002:000004FC CmpTypeMap + 0002:00000578 CText + 0002:000005CC LNextVarType + 0002:000005D0 CRelationshipToBoolean + 0002:000005E4 BooleanIdents + 0002:000005EC DotSep + 0002:000005F0 GUID_NULL + 0002:00000600 AddDataModule + 0002:00000608 RemoveDataModule + 0002:00000610 ApplicationHandleException + 0002:00000618 ApplicationShowException + 0002:00000620 WakeMainThread + 0002:00000628 FilerSignature + 0002:0000062C NilMethod + 0002:00000634 SyncList + 0002:00000638 BlockCode + 0002:0000063C UtilWindowClass + 0002:00000664 DefFontData + 0002:00000690 DDBsOnly + 0002:00000694 Colors + 0002:00000834 FontCharsets + 0002:000008C4 DefPenData + 0002:000008D4 PenStyles + 0002:000008E4 DefBrushData + 0002:000008F4 PenModes + 0002:00000914 ClipboardFormats + 0002:00000918 FileFormats + 0002:0000091C BitmapCanvasList + 0002:00000920 DIBPalSizes + 0002:00000924 PalSize + 0002:00000928 Pal16 + 0002:00000968 FPrinter + 0002:0000096C InnerStyles + 0002:00000978 OuterStyles + 0002:00000984 Ctl3DStyles + 0002:0000098C CLSID_AutoComplete + 0002:0000099C ForceCurrentDirectory + 0002:000009A0 CreationControl + 0002:000009A4 WndProcPtrAtom + 0002:000009A8 OpenOptions + 0002:00000A00 OpenOptionsEx + 0002:00000A04 DialogOptions + 0002:00000A18 FontOptions + 0002:00000A58 Devices + 0002:00000A64 PrintRanges + 0002:00000A70 FindOptions + 0002:00000AA4 Captions + 0002:00000AB8 IconIDs + 0002:00000ACC ButtonNames + 0002:00000AF8 ButtonCaptions + 0002:00000B24 ModalResults + 0002:00000B50 BorderStyles + 0002:00000B58 Alignments + 0002:00000B64 ColorToPretyName + 0002:00000CDC BitBtnResNames + 0002:00000D08 BitBtnCaptions + 0002:00000D34 BitBtnModalResults + 0002:00000D60 GlyphCache + 0002:00000D64 ButtonCount + 0002:00000D68 DownStyles + 0002:00000D70 FillStyles + 0002:00000D78 NewState + 0002:00000D7C Values + 0002:00000D84 Values + 0002:00000D8C MAPIDLL + 0002:00000D90 MAPIModule + 0002:00000D94 RTFConversionFormat + 0002:00000DA0 TextConversionFormat + 0002:00000DAC ConversionFormatList + 0002:00000DB0 RTL + 0002:00000DB8 RTL + 0002:00000DC0 RTL + 0002:00000DC8 AlignStyles + 0002:00000DE8 TabStyles + 0002:00000DF4 RRStyles + 0002:00000DFC GripStyles + 0002:00000E04 RTLReading + 0002:00000E0C HeaderStyles + 0002:00000E14 cAddMode + 0002:00000E1C BorderStyles + 0002:00000E24 LineStyles + 0002:00000E2C RootStyles + 0002:00000E34 ButtonStyles + 0002:00000E3C EditStyles + 0002:00000E44 HideSelections + 0002:00000E4C DragStyles + 0002:00000E54 RTLStyles + 0002:00000E5C ToolTipStyles + 0002:00000E64 AutoExpandStyles + 0002:00000E6C HotTrackStyles + 0002:00000E74 RowSelectStyles + 0002:00000E7C Empty + 0002:00000E80 HideScrollBars + 0002:00000E88 HideSelections + 0002:00000E90 Painting + 0002:00000E94 Codes + 0002:00000EA4 BorderStyles + 0002:00000EAC EditStyles + 0002:00000EB4 MultiSelections + 0002:00000EBC HideSelections + 0002:00000EC4 Arrangements + 0002:00000ECC AutoArrange + 0002:00000ED4 WrapText + 0002:00000EDC ViewStyles + 0002:00000EEC ShowColumns + 0002:00000EF4 ColumnClicks + 0002:00000EFC ViewStyles + 0002:00000F0C Directions + 0002:00000F20 Codes + 0002:00000F38 IAlignment + 0002:00000F50 CenterStyles + 0002:00000F58 TimerStyles + 0002:00000F60 TransparentStyles + 0002:00000F68 CommonAVIId + 0002:00000F8C ButtonStates + 0002:00000F9C ButtonStyles + 0002:00000FA8 DownMessage + 0002:00000FB0 ListStyles + 0002:00000FB8 FlatStyles + 0002:00000FC0 FlatOnXp + 0002:00000FC8 TransparentStyles + 0002:00000FD0 CustomizeStyles + 0002:00000FD8 InitDone + 0002:00000FDC ColorIndex + 0002:00000FF4 ShowTodayFlags + 0002:00000FFC ShowTodayCircleFlags + 0002:00001004 WeekNumFlags + 0002:0000100C MultiSelFlags + 0002:00001014 ComboBoxExStyles + 0002:00001020 ComboExStyles + 0002:00001034 ThemeServicesClass + 0002:00001038 Copyright + 0002:0000103C ThemeDataNames + 0002:0000109C BorderStyles + 0002:000010A4 Alignments + 0002:000010AC WordWraps + 0002:000010B0 WordWraps + 0002:000010B4 Passwords + 0002:000010BC ReadOnlys + 0002:000010C4 CharCases + 0002:000010D0 HideSelections + 0002:000010D8 OEMConverts + 0002:000010E0 Empty + 0002:000010E4 Alignments + 0002:000010FC ScrollBar + 0002:0000110C WordWraps + 0002:00001114 ComboBoxStyles + 0002:00001128 CharCases + 0002:00001134 Sorts + 0002:0000113C InnerStyles + 0002:0000114C OuterStyles + 0002:0000115C EdgeStyles + 0002:0000116C Ctl3DStyles + 0002:00001174 ButtonStyles + 0002:0000117C Alignments + 0002:0000118C Alignments + 0002:0000119C Styles + 0002:000011B0 Sorteds + 0002:000011B8 MultiSelects + 0002:000011C0 ExtendSelects + 0002:000011C8 IntegralHeights + 0002:000011D0 MultiColumns + 0002:000011D8 TabStops + 0002:000011E0 CSHREDRAW + 0002:000011E8 Data + 0002:000011F0 Kinds + 0002:000011F8 Alignments + 0002:00001210 Borders + 0002:0000121C AnimateWindowProc + 0002:00001220 CreationControl + 0002:00001224 DefaultDockTreeClass + 0002:00001228 AnchorAlign + 0002:00001230 Cursors + 0002:000012E0 CaptureControl + 0002:000012E4 ShowFlags + 0002:000012E8 WindowPos + 0002:000012EC InnerStyles + 0002:000012FC OuterStyles + 0002:0000130C EdgeStyles + 0002:0000131C Ctl3DStyles + 0002:00001324 AnimationStyle + 0002:00001330 OrientArray + 0002:00001338 MakeLast + 0002:00001340 TreeStreamEndFlag + 0002:00001344 SizeCursors + 0002:0000134C IMM32DLL + 0002:00001350 ModeMap + 0002:00001358 DrawingStyles + 0002:00001368 Images + 0002:00001370 Mask + 0002:00001378 ValidMenuHotkeys + 0002:0000137C cMenuAutoFlagToItem + 0002:00001380 cItemAutoFlagToMenu + 0002:00001384 cBooleanToItemAutoFlag + 0002:00001388 cItemAutoFlagToBoolean + 0002:0000138C MenuKeyCaps + 0002:000013D4 Checks + 0002:000013DC Enables + 0002:000013E4 Breaks + 0002:000013F0 Separators + 0002:000013F8 IBreaks + 0002:00001404 IChecks + 0002:0000140C IDefaults + 0002:00001414 IEnables + 0002:0000141C IRadios + 0002:00001424 ISeparators + 0002:0000142C IRTL + 0002:00001434 IOwnerDraw + 0002:0000143C Alignments + 0002:00001444 EdgeStyle + 0002:0000144C Alignments + 0002:00001454 Flags + 0002:00001460 Buttons + 0002:00001464 HintWindowClass + 0002:00001468 SetLayeredWindowAttributes + 0002:0000146C FocusMessages + 0002:00001470 FocusCount + 0002:00001474 TaskActiveWindow + 0002:00001478 TaskFirstWindow + 0002:0000147C TaskFirstTopMost + 0002:00001480 TaskWindowList + 0002:00001484 SysConsts + 0002:0000148C SysConsts + 0002:00001494 Props + 0002:000014BC Styles + 0002:000014C8 BorderStyles + 0002:000014D0 ShowCommands + 0002:000014DC ShowCommands + 0002:000014E8 ShowCommands + 0002:000014F4 cUseAlpha + 0002:000014FC cUseColorKey + 0002:00001504 CursorMap + 0002:00001558 MonitorDefaultFlags + 0002:00001564 WindowClass + 0002:0000158C AppVisible + 0002:00001590 ShowFlags + 0002:00001594 TeeDefaultConePercent + 0002:00001598 DarkerColorQuantity + 0002:0000159C DarkColorQuantity + 0002:000015A0 TeeGradientPrecision + 0002:000015A4 ColorPalette + 0002:000015E4 TeeLineSeparator + 0002:000015E8 TeeClipWhenPrinting + 0002:000015EC TeeClipWhenMetafiling + 0002:000015F0 TeeEraseBack + 0002:000015F4 PrintTeePanel + 0002:000015F8 DateTimeStep + 0002:000016C8 BrushColors + 0002:000016D0 Colors + 0002:000016D8 Extensions + 0002:000016EC TeeDrawAxisBeforeSeries + 0002:000016F0 TeeCheckMarkArrowColor + 0002:000016F4 TeeAxisClickGap + 0002:000016F8 TeeDefaultCapacity + 0002:000016FC Aligns + 0002:0000170C ArrowColors + 0002:00001714 BrushStyles + 0002:00001718 TeeTitleFootDistance + 0002:0000171C PatternPalette + 0002:00001724 DefaultBlank + 0002:00001728 MaskFieldSeparator + 0002:0000172C MaskNoSave + 0002:00001730 ArrowKey + 0002:00001734 SPAIndexMask + 0002:00001738 SPASecShift + 0002:0000173C CoCreateInstanceEx + 0002:00001740 CoInitializeEx + 0002:00001744 CoAddRefServerProcess + 0002:00001748 CoReleaseServerProcess + 0002:0000174C CoResumeClassObjects + 0002:00001750 CoSuspendClassObjects + 0002:00001754 CoInitFlags + 0002:00001758 RegFlags + 0002:00001760 SuspendedFlag + 0002:00001768 ThreadStrs + 0002:0000177C IID_IAccessible + 0002:0000178C ALPHA_DISTRIBUTION + 0002:00001920 CheckBoxImageResNames + 0002:00001960 ComboBoxImages + 0002:00001968 ButtonAlignment + 0002:00001974 ButtonWordWrap + 0002:0000197C ButtonLayout + 0002:00001988 BOOLCHAR + 0002:0000198C MONTH_NAMES_SHORT + 0002:000019BC MONTH_NAMES_LONG + 0002:00001A34 SearchChars + 0002:00001A54 ReplaceChars + 0002:00001A74 CRC32_TABLE + 0002:00001E74 uHaveReadOnlyColor + 0002:00001E78 IdleCaller + 0002:00001E7C NC_TV_TEXT + 0002:00001EC4 CC_TV_TEXT + 0002:00001EDC ScrollBarWidth + 0002:00001EE0 DispParams + 0002:00001EF0 DispIDArgs + 0002:00001EF4 ShiftMap + 0002:00001EFC MouseMap + 0002:00001F04 ButtonMap + 0002:00001F0C CLASS_ContextItemCollection + 0002:00001F1C CLASS_ContextItem + 0002:00001F2C CEventDispIDs + 0002:00001F38 CControlData + 0002:00001F8C U + 0002:00001F90 CipherPad + 0002:00001FE0 RTFConversionFormat + 0002:00001FEC TextConversionFormat + 0002:00001FF8 ConversionFormatList + 0002:00001FFC Empty + 0002:00002000 HideScrollBar + 0002:00002008 HideSelections + 0002:00002010 Painting + 0002:00002014 MAX_CONFIRM_FAIL + 0002:00002018 NoMore + 0002:0000201C MIN_RPCTIMELIMIT + 0002:00002020 CURRENT_RPC_VERSION + 0002:00002024 DEFAULT_PULSE + 0002:00002028 MINIMUM_TIMEOUT + 0002:0000202C PULSE_PERCENTAGE + 0002:00002030 NoMore + 0002:00002034 CURRENT_RPC_VERSION + 0002:00002038 uBaseContext + 0002:0000203C uCurrentContext + 0002:00002040 BoolChar + 0002:00002044 NotifyLists + 0002:00002048 MultiCaster + 0002:0000204C frmPtSelMsg + 0002:00002050 DaysInMonth + 0002:00002080 DaysInMonth + 0002:000020B0 uVitalList + 0002:000020B4 VitalPCECodes + 0002:000020DC VitalCodes + 0002:00002104 DLLForceClose + 0002:00002108 VitalTagCodes + 0002:00002114 VitalDesc + 0002:00002140 VitalFormatedDesc + 0002:00002168 uVitalFrames + 0002:0000216C TwoPi + 0002:00002174 HalfPi + 0002:0000217C PiDegree + 0002:00002184 PieSampleStr + 0002:000021A4 CLASS_DOMDocument + 0002:000021B4 uUserTemplateDefaults + 0002:000021B8 uCanEditDlgFldChecked + 0002:000021BC TemplateFieldTypeCodes + 0002:000021D4 TemplateFieldTypeDesc + 0002:0000222C TemplateDateTypeDesc + 0002:00002264 FldNames + 0002:00002290 TemplateFieldDateCodes + 0002:000022A0 uTmplFlds + 0002:000022A4 uEntries + 0002:000022A8 uNewTemplateFieldIDCnt + 0002:000022AC uRadioGroupIndex + 0002:000022B0 uInternalFieldIDCount + 0002:000022B4 Months + 0002:000022E4 CEventDispIDs + 0002:0000232C CControlData + 0002:00002380 CServerData + 0002:000023BC CServerData + 0002:000023F8 FormMonitor + 0002:000023FC timTimeout + 0002:00002400 FTimedOut + 0002:00002404 frmTemplateView + 0002:00002408 LastStayOnTop + 0002:0000240C frmTemplateFields + 0002:00002410 XMLCnvChr + 0002:00002424 XMLCnvStr + 0002:00002438 frmIconLegend + 0002:0000243C FirstSize + 0002:00002440 uLastDefLocUser + 0002:00002448 uDefLocs + 0002:0000244C uRemInsertAtCursor + 0002:00002450 uNewCoverSheetListActive + 0002:00002454 uCanEditAllCoverSheetLists + 0002:00002458 LIBID_CPRSChart + 0002:00002468 IID_ICPRSExtension + 0002:00002478 CLASS_AccessibleStringGrid + 0002:00002488 CLASS_AccessibleListBox + 0002:00002498 CLASS_AccessibleTreeNode + 0002:000024A8 CLASS_AccessibleTreeView + 0002:000024B8 CLASS_AccessibleRichEdit + 0002:000024C8 uCPRSEventHookManager + 0002:000024CC uCOMObjectActive + 0002:000024D0 SaveInitProc + 0002:000024D4 UserIsRestricted + 0002:000024D8 FMDayLetters + 0002:000024E8 NullSQLTimeStamp + 0002:000024F8 IncrementAmount + 0002:00002500 SQLTimeStampVariantType + 0002:00002504 AdjustAmt + 0002:0000250C AdjustAmt + 0002:00002514 AdjustAmt + 0002:0000251C AdjustAmt + 0002:00002524 FMTBcdVariantType + 0002:00002528 spaceChars + 0002:00002548 Power10 + 0002:00002558 FConst10 + 0002:0000255C CWNear + 0002:00002560 FieldTypeNames + 0002:000025F8 BtnHintId + 0002:00002620 DbClientHandle + 0002:00002624 ExtraFieldProps + 0002:00002650 v + 0002:00002654 PL_OP_VIEW + 0002:00002658 PL_IP_VIEW + 0002:0000265C PL_UF_VIEW + 0002:00002660 NO_YES + 0002:00002668 CLASS_XuDigSigS + 0002:00002678 UserIsRestricted + 0002:0000267C SPACE + 0002:00002680 UserIsRestricted + 0002:00002684 uSigItems + 0002:00002688 SigItemDesc + 0002:000026C0 SigItemDisplayOrder + 0002:000026C8 StsChar + 0002:000026CC uSingletonFlag + 0002:000026D0 DataCode + 0002:000026E0 DataName + 0002:000026FC InternalName + 0002:00002718 RemClsText + 0002:00002728 UserIsRestricted + 0002:0000272C UserIsRestricted + 0002:00002730 frmReminderTree + 0002:00002734 RemTreeDlgLeft + 0002:00002738 RemTreeDlgTop + 0002:0000273C RemTreeDlgWidth + 0002:00002740 RemTreeDlgHeight + 0002:00002744 ActionType + 0002:00002770 uPCETemp + 0002:00002774 uPCETempOld + 0002:00002778 uPatient + 0002:0000277C UcboVitChanging + 0002:00002780 uAddingNew + 0002:00002784 uEditing + 0002:00002788 uEnteredInError + 0002:0000278C uUserCanVerify + 0002:00002790 GridColWidths + 0002:000027D0 CmtType + 0002:000027EC FMDateResponses + 0002:000027FC CmtType + 0002:00002818 FMDateResponses + 0002:00002828 hWS2Dll + 0002:0000282C WS2StubTable + 0002:00002D6C GStackClass + 0002:00002D70 GServeFileProc + 0002:00002D74 GStarted + 0002:00002D78 wdays + 0002:00002D94 monthnames + 0002:00002DC4 IndyPos + 0002:00002DC8 wdays + 0002:00002DE4 monthnames + 0002:00002E14 XfInToOutNow + 0002:00002E18 XferOuttoInOnMeds + 0002:00002E1C ImmdCopyAct + 0002:00002E20 IsUDGroup + 0002:00002E24 NoFresh + 0002:00002E28 SaveAsCurrent + 0002:00002E2C OrderSource + 0002:00002E30 EventDefaultOD + 0002:00002E34 IsTransferAction + 0002:00002E38 frmRemDlg + 0002:00002E3C RemDlgSpltr1 + 0002:00002E40 RemDlgSpltr2 + 0002:00002E44 RemDlgLeft + 0002:00002E48 RemDlgTop + 0002:00002E4C RemDlgWidth + 0002:00002E50 RemDlgHeight + 0002:00002E54 PositionList + 0002:00002E58 ClinRemTextLocation + 0002:00002E5C ClinRemTextStr + 0002:00002E60 TypeTag + 0002:00002E68 ForcedIdx + 0002:00002E98 IdxForced + 0002:00002EA4 frmTemplateObjects + 0002:00002EA8 frmTemplateFields + 0002:00002EAC TemplateImageIdx + 0002:00002F5C DialogImageXRef + 0002:00002F9C RemDlgIdx + 0002:00002FA4 COMObjIdx + 0002:00002FAC frmTemplateImport + 0002:00002FB0 TemplateTypeCodes + 0002:00002FC8 Templates + 0002:00002FCC RootTemplate + 0002:00002FD0 MyTemplate + 0002:00002FD4 TitlesTemplate + 0002:00002FD8 ConsultsTemplate + 0002:00002FDC ProceduresTemplate + 0002:00002FE0 TemplateAccessLevelChecked + 0002:00002FE4 LastTemplateLocation + 0002:00002FE8 TempSL + 0002:00002FEC Deleted + 0002:00002FF0 NodeCount + 0002:00002FF4 GettingDialogText + 0002:00002FF8 uDlgCount + 0002:00002FFC uUniqueIDNum + 0002:00003000 uCanEditLinkTypeResults + 0002:00003004 uTemplateDataLoaded + 0002:00003008 uDGroupConsults + 0002:0000300C uDGroupProcedures + 0002:00003010 TemplateActiveCode + 0002:00003014 TemplateExportTag + 0002:00003054 ExportPieces + 0002:00003094 TemplateFieldExportTag + 0002:000030C0 LinkGlobal + 0002:000030D0 LinkPassCode + 0002:000030E0 InitialRemindersLoaded + 0002:000030E4 RemPriorityText + 0002:000030F0 ActiveReminders + 0002:000030F4 OtherReminders + 0002:000030F8 RemindersInProcess + 0002:000030FC CoverSheetRemindersInBackground + 0002:00003100 KillReminderDialogProc + 0002:00003104 RemindersStarted + 0002:00003108 ProcessedReminders + 0002:0000310C ReminderDialogInfo + 0002:00003110 RemDataCodes + 0002:00003140 LastReminderLocation + 0002:00003144 EvaluatedReminders + 0002:00003148 ReminderTreeMenu + 0002:0000314C ReminderTreeMenuDlg + 0002:00003150 ReminderCatMenu + 0002:00003154 EducationTopics + 0002:00003158 WebPages + 0002:0000315C ReminderCallList + 0002:00003160 LastProcessingList + 0002:00003164 InteractiveRemindersActiveChecked + 0002:00003168 InteractiveRemindersActiveStatus + 0002:0000316C PrimaryDiagRoot + 0002:00003170 ElementChecked + 0002:00003174 HistRootCount + 0002:00003178 uRemFolders + 0002:0000317C RemData2PCECat + 0002:00003188 RemPromptCodes + 0002:000031C8 RemPromptTypes + 0002:000031D8 FinishPromptPieceNum + 0002:00003218 ComboPromptTags + 0002:00003258 PromptDescriptions + 0002:00003298 RemFolderCodes + 0002:000032A0 MSTDescTxt + 0002:000032C8 TmpActive + 0002:000032CC TmpOther + 0002:000032D0 RemMenuFolder + 0002:000032D8 RemMenuNames + 0002:00003308 ScootOver + 0002:0000330C MED_TYPE + 0002:00003314 UcboVitChanging + 0002:00003318 itimson + 0002:0000331C enhanceskip + 0002:00003320 radiogrp1index + 0002:00003324 IsRunExecuted + 0002:00003328 PCETypeText + 0002:00003334 PCEDataCatText + 0002:00003370 PCESetsOfCodes + 0002:00003374 HistLocations + 0002:00003378 ListMinMax + 0002:000033CC uVTypeLastDate + 0002:000033D4 uModifiers + 0002:000033D8 uGAFOKCalled + 0002:000033DC uLastForceLoc + 0002:000033E0 uHasCPT + 0002:000033E4 uGAFURLChecked + 0002:000033E8 uMHOKChecked + 0002:000033EC uVCInitialCat + 0002:000033F0 uVCLocation + 0002:000033F4 uVCInpatient + 0002:000033F8 uAPUser + 0002:00003400 uAPLoc + 0002:00003404 uAnytimeEnc + 0002:00003408 UAutoSelLoc + 0002:0000340C uLastChkOutLoc + 0002:00003410 uLastIsClinicLoc + 0002:00003414 uLastIsClinic + 0002:00003418 uTIUSiteParamsLoaded + 0002:0000341C uPtListDfltSort + 0002:00003420 Encounter + 0002:00003424 URLMonHandle + 0002:00003428 uSynchronizer + 0002:0000342C uNotifyAppsThread + 0002:00003430 uNotifyAppsQueue + 0002:00003434 uNotifyAppsActive + 0002:00003438 AnAtom + 0002:0000343C MSG_TYPE + 0002:00003444 BoolChars + 0002:00005000 DispCallByIDProc + 0002:00005004 ExceptProc + 0002:00005008 ErrorProc + 0002:0000500C ExceptClsProc + 0002:00005010 ExceptObjProc + 0002:00005014 RaiseExceptionProc + 0002:00005018 RTLUnwindProc + 0002:0000501C ExceptionClass + 0002:00005020 SafeCallErrorProc + 0002:00005024 AssertErrorProc + 0002:00005028 ExitProcessProc + 0002:0000502C AbstractErrorProc + 0002:00005030 MainInstance + 0002:00005034 MainThreadID + 0002:00005038 IsLibrary + 0002:0000503C CmdShow + 0002:00005040 CmdLine + 0002:00005044 InitProc + 0002:00005048 ExitProc + 0002:0000504C IsConsole + 0002:0000504D IsMultiThread + 0002:0000504E Test8086 + 0002:00005050 Input + 0002:0000521C Output + 0002:000053E8 ErrOutput + 0002:000055B4 AllocMemCount + 0002:000055B8 AllocMemSize + 0002:000055BC .5 + 0002:000055C0 DefaultUserCodePage + 0002:000055C4 initialized + 0002:000055C8 heapErrorCode + 0002:000055CC heapLock + 0002:000055E4 blockDescBlockList + 0002:000055E8 blockDescFreeList + 0002:000055EC spaceRoot + 0002:000055FC decommittedRoot + 0002:0000560C avail + 0002:00005618 rover + 0002:0000561C remBytes + 0002:00005620 curAlloc + 0002:00005624 smallTab + 0002:00005628 committedRoot + 0002:00005638 InitContext + 0002:00005664 ModuleIsLib + 0002:00005665 ModuleIsCpp + 0002:00005668 HInstance + 0002:0000566C .1 + 0002:00005670 tlsBuffer + 0002:00005674 .1 + 0002:00005678 .1 + 0002:0000567C .3 + 0002:00005680 .1 + 0002:00005684 .1 + 0002:00005688 CurrencyString + 0002:0000568C CurrencyFormat + 0002:0000568D NegCurrFormat + 0002:0000568E ThousandSeparator + 0002:0000568F DecimalSeparator + 0002:00005690 CurrencyDecimals + 0002:00005691 DateSeparator + 0002:00005694 ShortDateFormat + 0002:00005698 LongDateFormat + 0002:0000569C TimeSeparator + 0002:000056A0 TimeAMString + 0002:000056A4 TimePMString + 0002:000056A8 ShortTimeFormat + 0002:000056AC LongTimeFormat + 0002:000056B0 ShortMonthNames + 0002:000056E0 LongMonthNames + 0002:00005710 ShortDayNames + 0002:0000572C LongDayNames + 0002:00005748 SysLocale + 0002:00005756 ListSeparator + 0002:00005758 EraNames + 0002:00005774 EraYearOffsets + 0002:00005790 TrueBoolStrs + 0002:00005794 FalseBoolStrs + 0002:00005798 .35 + 0002:0000579C OutOfMemory + 0002:000057A0 InvalidPointer + 0002:000057A4 FLanguages + 0002:000057A8 VariantChangeTypeEx + 0002:000057AC VarNeg + 0002:000057B0 VarNot + 0002:000057B4 VarAdd + 0002:000057B8 VarSub + 0002:000057BC VarMul + 0002:000057C0 VarDiv + 0002:000057C4 VarIDiv + 0002:000057C8 VarMod + 0002:000057CC VarAnd + 0002:000057D0 VarOr + 0002:000057D4 VarXor + 0002:000057D8 VarCmp + 0002:000057DC VarI4FromStr + 0002:000057E0 VarR4FromStr + 0002:000057E4 VarR8FromStr + 0002:000057E8 VarDateFromStr + 0002:000057EC VarCyFromStr + 0002:000057F0 VarBoolFromStr + 0002:000057F4 VarBstrFromCy + 0002:000057F8 VarBstrFromDate + 0002:000057FC VarBstrFromBool + 0002:00005800 .5 + 0002:00005804 EmptyParam + 0002:00005814 VarDispProc + 0002:00005818 ClearAnyProc + 0002:0000581C ChangeAnyProc + 0002:00005820 RefAnyProc + 0002:00005824 .81 + 0002:00005828 LVarTypes + 0002:0000582C LVarTypeSync + 0002:00005844 .1 + 0002:00005848 .6 + 0002:0000584C .3 + 0002:00005850 GlobalNameSpace + 0002:00005854 IsUniqueGlobalComponentNameProc + 0002:00005858 SyncEvent + 0002:0000585C .45 + 0002:00005860 IntConstList + 0002:00005864 RegGroups + 0002:00005868 FindGlobalComponentProcs + 0002:0000586C GlobalFixupList + 0002:00005870 ThreadLock + 0002:00005888 ThreadCount + 0002:0000588C InstBlockList + 0002:00005890 InstFreeList + 0002:00005894 .1 + 0002:00005898 SystemPalette16 + 0002:0000589C .12 + 0002:000058A0 ScreenLogPixels + 0002:000058A4 StockPen + 0002:000058A8 StockBrush + 0002:000058AC StockFont + 0002:000058B0 StockIcon + 0002:000058B4 BitmapImageLock + 0002:000058CC CounterLock + 0002:000058E4 FontManager + 0002:000058E8 PenManager + 0002:000058EC BrushManager + 0002:000058F0 CanvasList + 0002:000058F4 PatternManager + 0002:000058F8 .2 + 0002:000058FC .21 + 0002:00005900 .1 + 0002:00005904 ComCtl32DLL + 0002:00005908 _InitCommonControlsEx + 0002:0000590C GetSystemMetrics + 0002:00005910 MonitorFromWindow + 0002:00005914 MonitorFromRect + 0002:00005918 MonitorFromPoint + 0002:0000591C GetMonitorInfo + 0002:00005920 GetMonitorInfoA + 0002:00005924 GetMonitorInfoW + 0002:00005928 EnumDisplayMonitors + 0002:0000592C .1 + 0002:00005930 User32Dll + 0002:00005934 InitApis + 0002:0000593C MMAvailable + 0002:00005940 .1 + 0002:00005944 .2 + 0002:00005948 HelpManager + 0002:0000594C .3 + 0002:00005950 .3 + 0002:00005954 FlatSB_EnableScrollBar + 0002:00005958 FlatSB_ShowScrollBar + 0002:0000595C FlatSB_GetScrollRange + 0002:00005960 FlatSB_GetScrollInfo + 0002:00005964 FlatSB_GetScrollPos + 0002:00005968 FlatSB_SetScrollPos + 0002:0000596C FlatSB_SetScrollInfo + 0002:00005970 FlatSB_SetScrollRange + 0002:00005974 .1 + 0002:00005978 _FlatSB_GetScrollProp + 0002:0000597C _FlatSB_SetScrollProp + 0002:00005980 _InitializeFlatSB + 0002:00005984 _UninitializeFlatSB + 0002:00005988 .6 + 0002:0000598C OpenThemeData + 0002:00005990 CloseThemeData + 0002:00005994 DrawThemeBackground + 0002:00005998 DrawThemeText + 0002:0000599C GetThemeBackgroundContentRect + 0002:000059A0 GetThemeBackgroundExtent + 0002:000059A4 GetThemePartSize + 0002:000059A8 GetThemeTextExtent + 0002:000059AC GetThemeTextMetrics + 0002:000059B0 GetThemeBackgroundRegion + 0002:000059B4 HitTestThemeBackground + 0002:000059B8 DrawThemeEdge + 0002:000059BC DrawThemeIcon + 0002:000059C0 IsThemePartDefined + 0002:000059C4 IsThemeBackgroundPartiallyTransparent + 0002:000059C8 GetThemeColor + 0002:000059CC GetThemeMetric + 0002:000059D0 GetThemeString + 0002:000059D4 GetThemeBool + 0002:000059D8 GetThemeInt + 0002:000059DC GetThemeEnumValue + 0002:000059E0 GetThemePosition + 0002:000059E4 GetThemeFont + 0002:000059E8 GetThemeRect + 0002:000059EC GetThemeMargins + 0002:000059F0 GetThemeIntList + 0002:000059F4 GetThemePropertyOrigin + 0002:000059F8 SetWindowTheme + 0002:000059FC GetThemeFilename + 0002:00005A00 GetThemeSysColor + 0002:00005A04 GetThemeSysColorBrush + 0002:00005A08 GetThemeSysBool + 0002:00005A0C GetThemeSysSize + 0002:00005A10 GetThemeSysFont + 0002:00005A14 GetThemeSysString + 0002:00005A18 GetThemeSysInt + 0002:00005A1C IsThemeActive + 0002:00005A20 IsAppThemed + 0002:00005A24 GetWindowTheme + 0002:00005A28 EnableThemeDialogTexture + 0002:00005A2C IsThemeDialogTextureEnabled + 0002:00005A30 GetThemeAppProperties + 0002:00005A34 SetThemeAppProperties + 0002:00005A38 GetCurrentThemeName + 0002:00005A3C GetThemeDocumentationProperty + 0002:00005A40 DrawThemeParentBackground + 0002:00005A44 EnableTheming + 0002:00005A48 .1 + 0002:00005A4C ThemeLibrary + 0002:00005A50 ReferenceCount + 0002:00005A54 Lock + 0002:00005A58 .1 + 0002:00005A5C .4 + 0002:00005A60 .1 + 0002:00005A64 .1 + 0002:00005A68 .1 + 0002:00005A6C .1 + 0002:00005A70 .1 + 0002:00005A74 .1 + 0002:00005A78 .1 + 0002:00005A7C .11 + 0002:00005A80 HelpMsg + 0002:00005A84 FindMsg + 0002:00005A88 FontDialog + 0002:00005A8C ButtonWidths + 0002:00005AB8 .12 + 0002:00005ABC .1 + 0002:00005AC0 CF_PICTURE + 0002:00005AC2 CF_COMPONENT + 0002:00005AC4 .2 + 0002:00005AC8 FClipboard + 0002:00005ACC .1 + 0002:00005AD0 .4 + 0002:00005AD4 BitBtnGlyphs + 0002:00005B00 .3 + 0002:00005B04 .8 + 0002:00005B08 .5 + 0002:00005B0C .1 + 0002:00005B10 .72 + 0002:00005B14 UrlMonHandle + 0002:00005B18 UrlMonInitialized + 0002:00005B1C .8 + 0002:00005B20 .36 + 0002:00005B24 ShellModule + 0002:00005B28 FRichEditModule + 0002:00005B2C ComCtlVersion + 0002:00005B30 ToolMenuHook + 0002:00005B34 MenuToolBar + 0002:00005B38 MenuToolBar2 + 0002:00005B3C MenuButtonIndex + 0002:00005B40 LastMenuItem + 0002:00005B44 LastMousePos + 0002:00005B4C StillModal + 0002:00005B50 ToolMenuKeyHook + 0002:00005B54 CoInitializeExProc + 0002:00005B58 CoInitExProcLoaded + 0002:00005B5C .2 + 0002:00005B60 InternalServices + 0002:00005B64 .42 + 0002:00005B68 .73 + 0002:00005B6C WinHelpTester + 0002:00005B70 ViewerName + 0002:00005B74 .1 + 0002:00005B78 HelpViewer + 0002:00005B7C HelpViewerIntf + 0002:00005B80 Mouse + 0002:00005B84 NewStyleControls + 0002:00005B88 .72 + 0002:00005B8C WindowAtom + 0002:00005B8E ControlAtom + 0002:00005B90 WindowAtomString + 0002:00005B94 ControlAtomString + 0002:00005B98 RM_GetObjectInstance + 0002:00005B9C DragControl + 0002:00005BA0 DragObject + 0002:00005BA4 DragInternalObject + 0002:00005BA8 DragCapture + 0002:00005BAC DragStartPos + 0002:00005BB4 DragSaveCursor + 0002:00005BB8 DragThreshold + 0002:00005BBC ActiveDrag + 0002:00005BC0 DragImageList + 0002:00005BC4 DockSiteList + 0002:00005BC8 QualifyingSites + 0002:00005BCC DragSave + 0002:00005BD0 CanvasList + 0002:00005BD4 _WINNLSEnableIME + 0002:00005BD8 _ImmGetContext + 0002:00005BDC _ImmReleaseContext + 0002:00005BE0 _ImmGetConversionStatus + 0002:00005BE4 _ImmSetConversionStatus + 0002:00005BE8 _ImmSetOpenStatus + 0002:00005BEC _ImmSetCompositionWindow + 0002:00005BF0 _ImmSetCompositionFont + 0002:00005BF4 _ImmGetCompositionString + 0002:00005BF8 _ImmIsIME + 0002:00005BFC _ImmNotifyIME + 0002:00005C00 .8 + 0002:00005C04 .3 + 0002:00005C08 CachedComCtrlVer + 0002:00005C0C ImageListWriteExProc + 0002:00005C10 PopupList + 0002:00005C14 ShortCutItems + 0002:00005C18 .9 + 0002:00005C1C CommandPool + 0002:00005C20 Application + 0002:00005C24 Screen + 0002:00005C28 .41 + 0002:00005C2C RM_TaskbarCreated + 0002:00005C30 HintThreadID + 0002:00005C34 HintDoneEvent + 0002:00005C38 HintHook + 0002:00005C3C HintThread + 0002:00005C40 .11 + 0002:00005C44 .1 + 0002:00005C48 .9 + 0002:00005C4C .71 + 0002:00005C50 .2 + 0002:00005C54 FCheckWidth + 0002:00005C58 FCheckHeight + 0002:00005C5C .01 + 0002:00005C60 AnimatedZoomFactor + 0002:00005C68 TeeZoomMouseButton + 0002:00005C69 TeeScrollMouseButton + 0002:00005C6A TeeZoomKeyShift + 0002:00005C6B TeeScrollKeyShift + 0002:00005C6C TeeSeriesTypes + 0002:00005C70 .31 + 0002:00005C74 .2 + 0002:00005C78 .5 + 0002:00005C7C .11 + 0002:00005C80 .1 + 0002:00005C84 .1 + 0002:00005C88 .41 + 0002:00005C8C OleUninitializing + 0002:00005C90 ComClassManagerVar + 0002:00005C94 SaveInitProc + 0002:00005C98 NeedToUninitialize + 0002:00005C9C .2 + 0002:00005CA0 .1 + 0002:00005CA4 CreateStdAccessibleObject + 0002:00005CA8 LresultFromObject + 0002:00005CAC OleAccHandle + 0002:00005CB0 .13 + 0002:00005CB4 uKeyHookHandle + 0002:00005CB8 uItemTip + 0002:00005CBC uItemTipCount + 0002:00005CC0 uNewStyle + 0002:00005CC4 ORCBImages + 0002:00005D04 .1 + 0002:00005D08 FBaseFont + 0002:00005D0C uReadOnlyColor + 0002:00005D10 .1 + 0002:00005D14 .4 + 0002:00005D18 .1 + 0002:00005D1C .3 + 0002:00005D20 .02 + 0002:00005D24 xParkingWindow + 0002:00005D28 OlePro32DLL + 0002:00005D2C _OleCreatePropertyFrame + 0002:00005D30 _OleCreateFontIndirect + 0002:00005D34 _OleCreatePictureIndirect + 0002:00005D38 _OleLoadPicture + 0002:00005D3C EmptyParam + 0002:00005D4C .5 + 0002:00005D50 .21 + 0002:00005D54 .1 + 0002:00005D58 .2 + 0002:00005D5C .1 + 0002:00005D60 .1 + 0002:00005D64 frmDebugInfo + 0002:00005D68 .2 + 0002:00005D6C .2 + 0002:00005D70 HookTimeOut + 0002:00005D74 NetCallPending + 0002:00005D78 NetTimerStart + 0002:00005D80 .2 + 0002:00005D84 Prefix + 0002:00005D88 frmErrMsg + 0002:00005D8C .2 + 0002:00005D90 .1 + 0002:00005D94 SelDivForm + 0002:00005D98 .2 + 0002:00005D9C DivSel + 0002:00005DA0 CntDiv + 0002:00005DA4 DivArray + 0002:00005DA8 .6 + 0002:00005DAC FRichEditModule + 0002:00005DB0 frmSignonMsg + 0002:00005DB4 .2 + 0002:00005DB8 .2 + 0002:00005DBC .2 + 0002:00005DC0 WRec + 0002:00006DC0 .4 + 0002:00006DC4 rpcConfig + 0002:00006DC8 ButtonStatus + 0002:00006DCC rServer + 0002:00006DD0 rPort + 0002:00006DD4 TaskInstance + 0002:00006DD8 .2 + 0002:00006DDC frmVCEdit + 0002:00006DE0 .3 + 0002:00006DE4 frmSignonConfig + 0002:00006DE8 strPosition + 0002:00006DEC strSize + 0002:00006DF0 InitialValues + 0002:00006DF4 SignonDefaults + 0002:00006DF8 IsSharedBroker + 0002:00006DFC .4 + 0002:00006E00 frmSignon + 0002:00006E04 intDeviceLock + 0002:00006E08 LoginfrmSignOnBroker + 0002:00006E0C .2 + 0002:00006E10 SysMenu + 0002:00006E14 .1 + 0002:00006E18 DebugData + 0002:00006E1C BrokerConnections + 0002:00006E20 BrokerAllConnections + 0002:00006E24 .9 + 0002:00006E28 .2 + 0002:00006E2C CCOWToken + 0002:00006E30 Domain + 0002:00006E34 PassCode1 + 0002:00006E38 PassCode2 + 0002:00006E3C RPCBrokerV + 0002:00006E40 RPCLastCall + 0002:00006E44 .1 + 0002:00006E48 uCallList + 0002:00006E4C uMaxCalls + 0002:00006E50 uShowRPCs + 0002:00006E54 .8 + 0002:00006E58 .3 + 0002:00006E5C .2 + 0002:00006E60 .4 + 0002:00006E64 .3 + 0002:00006E68 .2 + 0002:00006E6C .2 + 0002:00006E70 .2 + 0002:00006E74 .6 + 0002:00006E78 uServerToday + 0002:00006E80 .3 + 0002:00006E84 .2 + 0002:00006E88 ConsultRec + 0002:00006F18 .3 + 0002:00006F1C .2 + 0002:00006F20 .2 + 0002:00006F24 .1 + 0002:00006F28 .1 + 0002:00006F2C .2 + 0002:00006F30 .2 + 0002:00006F34 .2 + 0002:00006F38 VitalsDLLHandle + 0002:00006F3C .5 + 0002:00006F40 .61 + 0002:00006F44 .2 + 0002:00006F48 .11 + 0002:00006F4C .3 + 0002:00006F50 .1 + 0002:00006F54 uCanEditDlgFlds + 0002:00006F58 .2 + 0002:00006F5C .8 + 0002:00006F60 RowObjects + 0002:00006F64 .3 + 0002:00006F68 .41 + 0002:00006F6C .2 + 0002:00006F70 .2 + 0002:00006F74 frmReportsAdhocSubItem1 + 0002:00006F78 .2 + 0002:00006F7C frmReportsAdhocComponent1 + 0002:00006F80 uComponents + 0002:00006F84 uCurrentComponent + 0002:00006F88 HSCompCtr + 0002:00006F8C uFile + 0002:00006F90 uLimit + 0002:00006F94 uLimitCount + 0002:00006F98 .2 + 0002:00006F9C .111 + 0002:00006FA0 .2 + 0002:00006FA4 .1 + 0002:00006FA8 .1 + 0002:00006FAC .71 + 0002:00006FB0 .51 + 0002:00006FB4 .4 + 0002:00006FB8 .81 + 0002:00006FBC .51 + 0002:00006FC0 .2 + 0002:00006FC4 .2 + 0002:00006FC8 .1 + 0002:00006FCC .2 + 0002:00006FD0 .2 + 0002:00006FD4 .1 + 0002:00006FD8 uActiveWindowHandle + 0002:00006FDC uActiveWindowCount + 0002:00006FE0 FHintWin + 0002:00006FE4 FHintWinActive + 0002:00006FE5 FHintStop + 0002:00006FE8 .2 + 0002:00006FEC frmReports + 0002:00006FF0 uHSComponents + 0002:00006FF4 uHSAll + 0002:00006FF8 uLocalReportData + 0002:00006FFC uRemoteReportData + 0002:00007000 uReportInstruction + 0002:00007004 uNewColumn + 0002:00007008 uColumns + 0002:0000700C uTreeStrings + 0002:00007010 uMaxOcc + 0002:00007014 uHState + 0002:00007018 uQualifier + 0002:0000701C uReportType + 0002:00007020 uSortOrder + 0002:00007024 uQualifierType + 0002:00007028 uFirstSort + 0002:0000702C uSecondSort + 0002:00007030 uThirdSort + 0002:00007034 uColChange + 0002:00007038 uUpdateStat + 0002:00007039 ulvSelectOn + 0002:0000703C uListState + 0002:00007040 uECSReport + 0002:00007044 UpdatingLvReports + 0002:00007045 UpdatingTvProcedures + 0002:00007048 .2 + 0002:0000704C uRemoteCount + 0002:00007050 uFrozen + 0002:00007054 uHTMLDoc + 0002:00007058 uReportRPC + 0002:0000705C uHTMLPatient + 0002:00007060 uRptID + 0002:00007064 uDirect + 0002:00007068 uEmptyImageList + 0002:0000706C ColumnToSort + 0002:00007070 ColumnSortForward + 0002:00007074 GraphForm + 0002:00007078 GraphFormActive + 0002:0000707C .1 + 0002:00007080 uTree + 0002:00007084 uReportsList + 0002:00007088 uLabReports + 0002:0000708C uDateRanges + 0002:00007090 uHSTypes + 0002:00007094 .2 + 0002:00007098 .2 + 0002:0000709C .1 + 0002:000070A0 frmTemplateDialog + 0002:000070A4 .2 + 0002:000070A8 .2 + 0002:000070AC .2 + 0002:000070B0 .2 + 0002:000070B4 .1 + 0002:000070B8 WindowList + 0002:000070BC OldList + 0002:000070C0 NewList + 0002:000070C4 MSWord + 0002:000070D4 uSpellCheckAvailable + 0002:000070D8 .2 + 0002:000070DC PersObjects + 0002:000070E0 .2 + 0002:000070E4 .2 + 0002:000070E8 .1 + 0002:000070EC .2 + 0002:000070F0 .2 + 0002:000070F4 LastX + 0002:000070F8 LastY + 0002:000070FC ADevice + 0002:00007100 .2 + 0002:00007104 .1 + 0002:00007108 .2 + 0002:0000710C .1 + 0002:00007110 uOrderEventType + 0002:00007114 uOrderEventID + 0002:00007118 uOrderEventName + 0002:0000711C uOrderFormID + 0002:00007120 uFillerAppID + 0002:00007124 uKeyVarList + 0002:00007128 .2 + 0002:0000712C .6 + 0002:00007130 .1 + 0002:00007134 .1 + 0002:00007138 .1 + 0002:0000713C uOutpatientPatchInstalled + 0002:0000713E uUserHasFHAUTHKey + 0002:00007140 .2 + 0002:00007144 ComServer + 0002:00007148 .2 + 0002:0000714C OleAutHandle + 0002:00007150 .2 + 0002:00007154 uDialogName + 0002:00007158 uFHAUTH + 0002:0000715C uRecurringMealList + 0002:00007160 .2 + 0002:00007164 uDietParams + 0002:00007194 .2 + 0002:00007198 .3 + 0002:0000719C .2 + 0002:000071A0 .2 + 0002:000071A4 .2 + 0002:000071A8 .2 + 0002:000071AC .2 + 0002:000071B0 .1 + 0002:000071B4 .1 + 0002:000071B8 .3 + 0002:000071BC LoginDialogProc + 0002:000071C0 LoginDialogExProc + 0002:000071C4 RemoteLoginDialogProc + 0002:000071C8 ScreenCursorProc + 0002:000071CC PasswordDialog + 0002:000071D0 DBScreen + 0002:000071D4 DBApplication + 0002:000071D8 .36 + 0002:000071DC .1 + 0002:000071E0 .2 + 0002:000071E4 .2 + 0002:000071E8 .22 + 0002:000071EC .3 + 0002:000071F0 .1 + 0002:000071F4 .2 + 0002:000071F8 Loading + 0002:00007210 .1 + 0002:00007214 .3 + 0002:00007218 .51 + 0002:0000721C .31 + 0002:00007220 frmGAF + 0002:00007224 .2 + 0002:00007228 .3 + 0002:0000722C .1 + 0002:00007230 .2 + 0002:00007234 .2 + 0002:00007238 ProbRec + 0002:0000723C PLPt + 0002:00007240 PLUser + 0002:00007244 pProviderID + 0002:0000724C pProviderName + 0002:00007250 PLFilters + 0002:00007254 PLProblem + 0002:00007258 .7 + 0002:0000725C .1 + 0002:00007260 .2 + 0002:00007264 .2 + 0002:00007268 ProblemList + 0002:0000726C .2 + 0002:00007270 .1 + 0002:00007274 uARTPatchInstalled + 0002:00007278 uGMRASiteParams + 0002:0000727C uARTClinUser + 0002:00007288 tmpList + 0002:0000728C .2 + 0002:00007290 .2 + 0002:00007294 uFileCount + 0002:00007298 .1 + 0002:0000729C .2 + 0002:000072A0 .2 + 0002:000072A4 .2 + 0002:000072A8 .2 + 0002:000072AC .2 + 0002:000072B0 .2 + 0002:000072B4 .2 + 0002:000072B8 .2 + 0002:000072BC .2 + 0002:000072C0 .2 + 0002:000072C4 .2 + 0002:000072C8 .1 + 0002:000072CC uSurgeryTitles + 0002:000072D0 uShowSurgeryTab + 0002:000072D4 .2 + 0002:000072D8 .3 + 0002:000072DC uConsultsList + 0002:000072E0 uShowUnresolvedOnly + 0002:000072E4 .2 + 0002:000072E8 .2 + 0002:000072EC .2 + 0002:000072F0 SvcList + 0002:000072F4 SvcInfo + 0002:000072F8 uChanging + 0002:000072FC .2 + 0002:00007300 .2 + 0002:00007304 uChanging + 0002:00007308 .2 + 0002:0000730C SvcList + 0002:00007310 SvcInfo + 0002:00007314 .2 + 0002:00007318 frmConsultAction + 0002:0000731C SvcList + 0002:00007320 uChanging + 0002:00007324 .2 + 0002:00007328 RecipientList + 0002:00007330 ContinueWithOrder + 0002:00007334 .2 + 0002:00007338 .2 + 0002:0000733C .2 + 0002:00007340 ProvDx + 0002:00007354 GMRCREAF + 0002:00007358 .2 + 0002:0000735C .2 + 0002:00007360 uDGroupList + 0002:00007364 uFilterList + 0002:00007368 LocType + 0002:0000736C .2 + 0002:00007370 .2 + 0002:00007374 .2 + 0002:00007378 .2 + 0002:0000737C .2 + 0002:00007380 .2 + 0002:00007384 .2 + 0002:00007388 AlertRecip + 0002:00007390 Provider + 0002:00007394 .2 + 0002:00007398 AlertRecip + 0002:000073A0 .2 + 0002:000073A4 .1 + 0002:000073A8 PrintParams + 0002:000073CC .2 + 0002:000073D0 .2 + 0002:000073D4 FlagCount + 0002:000073D8 BaseFlags + 0002:000073DC tempCkBx + 0002:000073E0 thisOrderID + 0002:000073E4 thisChangeItem + 0002:000073E8 frmClinicWardMeds + 0002:000073EC ALocation + 0002:000073F0 AWardLoc + 0002:000073F4 AClinicLoc + 0002:000073F8 ASelectedLoc + 0002:000073FC AName + 0002:00007400 ASvc + 0002:00007404 AWardName + 0002:00007408 AClinicName + 0002:0000740C AOrderLocList + 0002:00007410 AMsgSw + 0002:00007414 .2 + 0002:00007418 arRect + 0002:00008098 ProvDx + 0002:000080AC FOSTFHintWndActive + 0002:000080B0 FOSTFhintWindow + 0002:000080B4 tempList + 0002:000080B8 crypto + 0002:000080BC rectIndex + 0002:000080C0 frmSignOrders + 0002:000080C4 chkBoxStatus + 0002:000080C8 srcOrderID + 0002:000080CC targetOrderID + 0002:000080D0 srcDx + 0002:000080D4 tempOrderList + 0002:000080D8 copyOrderID + 0002:000080DC srcIndex + 0002:000080E0 CopyBuffer + 0002:000080E4 .2 + 0002:000080E8 .2 + 0002:000080EC .2 + 0002:000080F0 .5 + 0002:000080F4 .2 + 0002:000080F8 .2 + 0002:000080FC .2 + 0002:00008100 .2 + 0002:00008104 .2 + 0002:00008108 .2 + 0002:0000810C .2 + 0002:00008110 .2 + 0002:00008114 .2 + 0002:00008118 .2 + 0002:0000811C .2 + 0002:00008120 .2 + 0002:00008124 .2 + 0002:00008128 .2 + 0002:0000812C uCheckedOrders + 0002:00008130 FOldHintHidePause + 0002:00008134 frmMedCopy + 0002:00008138 .2 + 0002:0000813C frmCopyOrders + 0002:00008140 .2 + 0002:00008144 .2 + 0002:00008148 frmOrdersTS + 0002:0000814C .2 + 0002:00008150 .2 + 0002:00008154 .2 + 0002:00008158 .2 + 0002:0000815C .2 + 0002:00008160 .2 + 0002:00008164 .2 + 0002:00008168 frmMeds + 0002:0000816C OrigOutPtSecWidths + 0002:00008188 OrigInPtSecWidths + 0002:0000819C OrigNonVASecWidths + 0002:000081AC s + 0002:000081B0 totalHeight + 0002:000081B4 oldFont + 0002:000081B8 .3 + 0002:000081BC frmEditProc + 0002:000081C0 .2 + 0002:000081C4 OldRec + 0002:00008224 NewRec + 0002:00008284 Defaults + 0002:00008288 uMessageVisible + 0002:0000828C ProvDx + 0002:000082A0 frmEditCslt + 0002:000082A4 .2 + 0002:000082A8 SvcList + 0002:000082AC OldRec + 0002:0000830C NewRec + 0002:0000836C Defaults + 0002:00008370 uMessageVisible + 0002:00008374 ProvDx + 0002:00008388 BADxUpdated + 0002:0000838C .2 + 0002:00008390 .2 + 0002:00008394 .2 + 0002:00008398 .2 + 0002:0000839C .2 + 0002:000083A0 .2 + 0002:000083A4 .2 + 0002:000083A8 RecipientList + 0002:000083B0 .2 + 0002:000083B4 .2 + 0002:000083B8 frmConsults + 0002:000083BC .3 + 0002:000083C0 ViewContext + 0002:000083C4 CurrNotifIEN + 0002:000083C8 SvcCtxt + 0002:000083D8 StsCtxt + 0002:000083E8 DateRange + 0002:000083F8 uSelectContext + 0002:00008420 uPCEShow + 0002:00008424 uPCEEdit + 0002:00008428 frmDrawers + 0002:0000842C MenuAccessRec + 0002:0000843C MedResult + 0002:0000845C uChanging + 0002:0000845D uIDNotesActive + 0002:00008460 .2 + 0002:00008464 .2 + 0002:00008468 frmSearchStop + 0002:0000846C .2 + 0002:00008470 .1 + 0002:00008474 uDCSummTitles + 0002:00008478 uDCSummPrefs + 0002:0000847C EditLines + 0002:00008480 .2 + 0002:00008484 frmDCSumm + 0002:00008488 .2 + 0002:0000848C uPCEShow + 0002:00008490 uPCEEdit + 0002:00008494 ViewContext + 0002:00008498 frmDrawers + 0002:0000849C uDCSummContext + 0002:000084F4 ColumnToSort + 0002:000084F8 ColumnSortForward + 0002:000084F9 uChanging + 0002:000084FA uIDNotesActive + 0002:000084FC frmPrintList + 0002:00008500 HLDPageID + 0002:00008504 .2 + 0002:00008508 .2 + 0002:0000850C .1 + 0002:00008510 frmSurgery + 0002:00008514 uSurgeryContext + 0002:0000854C .2 + 0002:00008550 uPCEShow + 0002:00008554 uPCEEdit + 0002:00008558 ViewContext + 0002:0000855C frmDrawers + 0002:00008560 uChanging + 0002:00008564 frmReview + 0002:00008568 DxRect + 0002:00008578 chkBoxStatus + 0002:0000857C srcOrderID + 0002:00008580 targetOrderID + 0002:00008584 srcDx + 0002:00008588 tempOrderList + 0002:0000858C copyOrderID + 0002:00008590 srcIndex + 0002:00008594 CopyBuffer + 0002:00008598 FRVTFHintWindowActive + 0002:0000859C FRVTFHintWindow + 0002:000085A0 crypto + 0002:000085A4 currentlySelectedItem + 0002:000085A8 .2 + 0002:000085AC .2 + 0002:000085B0 uTIULocation + 0002:000085B4 uTIULocationName + 0002:000085B8 frmVit + 0002:000085BC uVitalLocation + 0002:000085C4 .2 + 0002:000085C8 uVitalOld + 0002:000085CC uVitalNew + 0002:000085D0 .2 + 0002:000085D4 .3 + 0002:000085D8 .2 + 0002:000085DC AllergyList + 0002:000085E0 OldRec + 0002:00008678 NewRec + 0002:00008710 Defaults + 0002:00008714 Changing + 0002:00008718 uDeletedSymptoms + 0002:0000871C .2 + 0002:00008720 frmAllgyBox + 0002:00008724 .2 + 0002:00008728 frmProbCmt + 0002:0000872C .2 + 0002:00008730 .2 + 0002:00008734 frmProblems + 0002:00008738 dlgProbs + 0002:0000873C gFontHeight + 0002:00008740 gFontWidth + 0002:00008744 origWidths + 0002:00008784 .2 + 0002:00008788 LastNode + 0002:0000878C displayDXCode + 0002:00008790 consultQuickOrder + 0002:00008794 .2 + 0002:00008798 SvcList + 0002:0000879C QuickList + 0002:000087A0 Defaults + 0002:000087A4 ProvDx + 0002:000087B8 GMRCREAF + 0002:000087BC BADxUpdated + 0002:000087C0 quickCode + 0002:000087C4 .1 + 0002:000087C8 .2 + 0002:000087CC .2 + 0002:000087D0 .2 + 0002:000087D4 Radiologist + 0002:000087D8 Contract + 0002:000087DC Research + 0002:000087E0 AName + 0002:000087E4 IsPregnant + 0002:000087E8 ALocation + 0002:000087EC AType + 0002:000087F0 .1 + 0002:000087F4 .2 + 0002:000087F8 .2 + 0002:000087FC .2 + 0002:00008800 .2 + 0002:00008804 .5 + 0002:00008808 uDfltUrgency + 0002:0000880C uDfltCollType + 0002:00008810 ALabTest + 0002:00008814 UserHasLRLABKey + 0002:00008818 LRFZX + 0002:0000881C LRFSAMP + 0002:00008820 LRFSPEC + 0002:00008824 LRFDATE + 0002:00008828 LRFURG + 0002:0000882C LRFSCH + 0002:00008830 .5 + 0002:00008834 uSelectedItems + 0002:00008838 uVBECList + 0002:0000883C uTestsForResults + 0002:00008840 uUrgencyList + 0002:00008844 uModifierList + 0002:00008848 uRaw + 0002:0000884C uTestSelected + 0002:0000884D uComponentSelected + 0002:00008850 uDfltUrgency + 0002:00008854 uSpecimen + 0002:00008858 uGetTnS + 0002:0000885C uDfltCollType + 0002:00008860 ALabTest + 0002:00008864 UserHasLRLABKey + 0002:00008868 LRFZX + 0002:0000886C LRFSAMP + 0002:00008870 LRFSPEC + 0002:00008874 LRFDATE + 0002:00008878 LRFURG + 0002:0000887C LRFSCH + 0002:00008880 LRORDERMODE + 0002:00008884 .3 + 0002:00008888 crypto + 0002:0000888C .2 + 0002:00008890 .64 + 0002:00008894 .1 + 0002:00008898 WSACleanup + 0002:0000889C accept + 0002:000088A0 bind + 0002:000088A4 closesocket + 0002:000088A8 connect + 0002:000088AC ioctlsocket + 0002:000088B0 getpeername + 0002:000088B4 getsockname + 0002:000088B8 getsockopt + 0002:000088BC htonl + 0002:000088C0 htons + 0002:000088C4 inet_addr + 0002:000088C8 inet_ntoa + 0002:000088CC listen + 0002:000088D0 ntohl + 0002:000088D4 ntohs + 0002:000088D8 recv + 0002:000088DC recvfrom + 0002:000088E0 select + 0002:000088E4 send + 0002:000088E8 sendto + 0002:000088EC setsockopt + 0002:000088F0 shutdown + 0002:000088F4 socket + 0002:000088F8 gethostbyaddr + 0002:000088FC gethostbyname + 0002:00008900 gethostname + 0002:00008904 getservbyport + 0002:00008908 getservbyname + 0002:0000890C getprotobynumber + 0002:00008910 getprotobyname + 0002:00008914 WSASetLastError + 0002:00008918 WSAGetLastError + 0002:0000891C WSAIsBlocking + 0002:00008920 WSAUnhookBlockingHook + 0002:00008924 WSASetBlockingHook + 0002:00008928 WSACancelBlockingCall + 0002:0000892C WSAAsyncGetServByName + 0002:00008930 WSAAsyncGetServByPort + 0002:00008934 WSAAsyncGetProtoByName + 0002:00008938 WSAAsyncGetProtoByNumber + 0002:0000893C WSAAsyncGetHostByName + 0002:00008940 WSAAsyncGetHostByAddr + 0002:00008944 WSACancelAsyncRequest + 0002:00008948 WSAAsyncSelect + 0002:0000894C __WSAFDIsSet + 0002:00008950 WSAAccept + 0002:00008954 WSACloseEvent + 0002:00008958 WSAConnect + 0002:0000895C WSACreateEvent + 0002:00008960 WSADuplicateSocketA + 0002:00008964 WSADuplicateSocketW + 0002:00008968 WSADuplicateSocket + 0002:0000896C WSAEnumNetworkEvents + 0002:00008970 WSAEnumProtocolsA + 0002:00008974 WSAEnumProtocolsW + 0002:00008978 WSAEnumProtocols + 0002:0000897C WSAEventSelect + 0002:00008980 WSAGetOverlappedResult + 0002:00008984 WSAGetQosByName + 0002:00008988 WSAHtonl + 0002:0000898C WSAHtons + 0002:00008990 WSAIoctl + 0002:00008994 WSAJoinLeaf + 0002:00008998 WSANtohl + 0002:0000899C WSANtohs + 0002:000089A0 WSARecv + 0002:000089A4 WSARecvDisconnect + 0002:000089A8 WSARecvFrom + 0002:000089AC WSAResetEvent + 0002:000089B0 WSASend + 0002:000089B4 WSASendDisconnect + 0002:000089B8 WSASendTo + 0002:000089BC WSASetEvent + 0002:000089C0 WSASocketA + 0002:000089C4 WSASocketW + 0002:000089C8 WSASocket + 0002:000089CC WSAWaitForMultipleEvents + 0002:000089D0 WSAAddressToStringA + 0002:000089D4 WSAAddressToStringW + 0002:000089D8 WSAAddressToString + 0002:000089DC WSAStringToAddressA + 0002:000089E0 WSAStringToAddressW + 0002:000089E4 WSAStringToAddress + 0002:000089E8 WSALookupServiceBeginA + 0002:000089EC WSALookupServiceBeginW + 0002:000089F0 WSALookupServiceBegin + 0002:000089F4 WSALookupServiceNextA + 0002:000089F8 WSALookupServiceNextW + 0002:000089FC WSALookupServiceNext + 0002:00008A00 WSALookupServiceEnd + 0002:00008A04 WSAInstallServiceClassA + 0002:00008A08 WSAInstallServiceClassW + 0002:00008A0C WSAInstallServiceClass + 0002:00008A10 WSARemoveServiceClass + 0002:00008A14 WSAGetServiceClassInfoA + 0002:00008A18 WSAGetServiceClassInfoW + 0002:00008A1C WSAGetServiceClassInfo + 0002:00008A20 WSAEnumNameSpaceProvidersA + 0002:00008A24 WSAEnumNameSpaceProvidersW + 0002:00008A28 WSAEnumNameSpaceProviders + 0002:00008A2C WSAGetServiceClassNameByClassIdA + 0002:00008A30 WSAGetServiceClassNameByClassIdW + 0002:00008A34 WSAGetServiceClassNameByClassId + 0002:00008A38 WSASetServiceA + 0002:00008A3C WSASetServiceW + 0002:00008A40 WSASetService + 0002:00008A44 WSAProviderConfigChange + 0002:00008A48 TransmitFile + 0002:00008A4C AcceptEx + 0002:00008A50 GetAcceptExSockaddrs + 0002:00008A54 WSARecvEx + 0002:00008A58 .3 + 0002:00008A5C WS2_WSAStartup + 0002:00008A60 .1 + 0002:00008A64 GSocketListClass + 0002:00008A68 .6 + 0002:00008A6C .3 + 0002:00008A70 .3 + 0002:00008A74 IndyFalseBoolStrs + 0002:00008A78 IndyTrueBoolStrs + 0002:00008A7C .11 + 0002:00008A80 FIdPorts + 0002:00008A84 ATempPath + 0002:00008A88 .2 + 0002:00008A8C .2 + 0002:00008A90 .3 + 0002:00008A94 .2 + 0002:00008A98 crypto + 0002:00008A9C .2 + 0002:00008AA0 .2 + 0002:00008AA4 DEASig + 0002:00008AA8 DupORIFN + 0002:00008AAC CIDCOkToSave + 0002:00008AB0 .5 + 0002:00008AB4 uAutoAc + 0002:00008AB8 InptDisp + 0002:00008ABC OutptDisp + 0002:00008AC0 MedsDisp + 0002:00008AC4 ClinDisp + 0002:00008AC8 NurDisp + 0002:00008ACC IVDisp + 0002:00008AD0 CsltDisp + 0002:00008AD4 ProcDisp + 0002:00008AD8 ImgDisp + 0002:00008ADC NonVADisp + 0002:00008AE0 MedsInDlgIen + 0002:00008AE4 MedsOutDlgIen + 0002:00008AE8 MedsNVADlgIen + 0002:00008AEC MedsInDlgFormId + 0002:00008AF0 MedsOutDlgFormId + 0002:00008AF4 MedsNVADlgFormID + 0002:00008AF8 MedsIVDlgIen + 0002:00008AFC MedsIVDlgFormID + 0002:00008B00 NSSchedule + 0002:00008B04 OriginalMedsOutHeight + 0002:00008B08 OriginalMedsInHeight + 0002:00008B0C OriginalNonVAMedsHeight + 0002:00008B10 .2 + 0002:00008B14 uPatientLocked + 0002:00008B15 uKeepLock + 0002:00008B18 uOrderAction + 0002:00008B1C uOrderDialog + 0002:00008B20 uOrderHTML + 0002:00008B24 uOrderMenu + 0002:00008B28 uOrderSet + 0002:00008B2C uLastConfirm + 0002:00008B30 uOrderSetTime + 0002:00008B38 uNewMedDialog + 0002:00008B3C .4 + 0002:00008B40 uLastDispenseIEN + 0002:00008B44 uLastDispenseMsg + 0002:00008B48 uLastQuantityMsg + 0002:00008B4C uMedRoutes + 0002:00008B50 uPFSSActive + 0002:00008B54 uConsultsClass + 0002:00008B58 uConsultTitles + 0002:00008B5C uClinProcClass + 0002:00008B60 uClinProcTitles + 0002:00008B64 uUnresolvedConsults + 0002:00008B68 .1 + 0002:00008B6C uLastOrderedIEN + 0002:00008B70 uLastOrderMsg + 0002:00008B74 .1 + 0002:00008B78 frmNotes + 0002:00008B7C SearchTextStopFlag + 0002:00008B80 .2 + 0002:00008B84 uPCEShow + 0002:00008B88 uPCEEdit + 0002:00008B8C ViewContext + 0002:00008B90 frmDrawers + 0002:00008B94 uTIUContext + 0002:00008BEC ColumnToSort + 0002:00008BF0 ColumnSortForward + 0002:00008BF1 uChanging + 0002:00008BF2 uIDNotesActive + 0002:00008BF4 .2 + 0002:00008BF8 .2 + 0002:00008BFC .2 + 0002:00008C00 frmMHTest + 0002:00008C04 FFirstCtrl + 0002:00008C08 FYPos + 0002:00008C0C .2 + 0002:00008C10 dmodShared + 0002:00008C14 .2 + 0002:00008C18 .2 + 0002:00008C1C .2 + 0002:00008C20 TemplateAccessLevelValue + 0002:00008C24 uIndentLevel + 0002:00008C28 .2 + 0002:00008C2C RemForm + 0002:00008C5C NotPurposeValue + 0002:00008C60 WHRemPrint + 0002:00008C64 .01 + 0002:00008C68 PCERootList + 0002:00008C6C .2 + 0002:00008C70 frmCover + 0002:00008C74 VAAFlag + 0002:00008C78 MHVFlag + 0002:00008C7C VAA_DFN + 0002:00008C80 PtIsVAA + 0002:00008C81 PtIsMHV + 0002:00008C84 .2 + 0002:00008C88 uIPAddress + 0002:00008C8C uARTCoverSheetParams + 0002:00008C90 frmVitals + 0002:00008C94 tmpGrid + 0002:00008C98 uDate1 + 0002:00008CA0 uDate2 + 0002:00008CA8 .2 + 0002:00008CAC frmEncVitals + 0002:00008CB0 .2 + 0002:00008CB4 frmExams + 0002:00008CB8 .2 + 0002:00008CBC frmHealthFactors + 0002:00008CC0 .2 + 0002:00008CC4 frmPatientEd + 0002:00008CC8 .2 + 0002:00008CCC frmSkinTests + 0002:00008CD0 .2 + 0002:00008CD4 frmImmunizations + 0002:00008CD8 .2 + 0002:00008CDC frmProcedures + 0002:00008CE0 .2 + 0002:00008CE4 .2 + 0002:00008CE8 .2 + 0002:00008CEC .2 + 0002:00008CF0 frmDiagnoses + 0002:00008CF4 .2 + 0002:00008CF8 frmVisitType + 0002:00008CFC .2 + 0002:00008D00 frmPCEBase + 0002:00008D04 .2 + 0002:00008D08 frmEncounterFrame + 0002:00008D0C uSCCond + 0002:00008D1C uVisitType + 0002:00008D20 uEncPCEData + 0002:00008D24 uProviders + 0002:00008D28 .2 + 0002:00008D2C .2 + 0002:00008D30 .2 + 0002:00008D34 frmPtSelDemog + 0002:00008D38 .2 + 0002:00008D3C frmPtSelOptSave + 0002:00008D40 .2 + 0002:00008D44 frmPtSelOptns + 0002:00008D48 clinDoSave + 0002:00008D49 clinSaveToday + 0002:00008D4C clinDefaults + 0002:00008D50 .2 + 0002:00008D54 .2 + 0002:00008D58 XQAID + 0002:00008D5C FDfltSrc + 0002:00008D60 FDfltSrcType + 0002:00008D64 IsRPL + 0002:00008D68 RPLJob + 0002:00008D6C DupDFN + 0002:00008D70 RPLProblem + 0002:00008D74 PtStrs + 0002:00008D78 SortViaKeyboard + 0002:00008D7C .2 + 0002:00008D80 .1 + 0002:00008D84 .2 + 0002:00008D88 .2 + 0002:00008D8C .2 + 0002:00008D90 .2 + 0002:00008D94 frmLabs + 0002:00008D98 uPrevReportIndex + 0002:00008D9C uFormat + 0002:00008DA0 uDate1 + 0002:00008DA8 uDate2 + 0002:00008DB0 tmpGrid + 0002:00008DB4 uLabLocalReportData + 0002:00008DB8 uLabRemoteReportData + 0002:00008DBC uUpdateStat + 0002:00008DC0 .2 + 0002:00008DC4 uFrozen + 0002:00008DC5 uGraphingActivated + 0002:00008DC8 uRemoteCount + 0002:00008DCC uHTMLDoc + 0002:00008DD0 uReportType + 0002:00008DD4 uReportRPC + 0002:00008DD8 uHTMLPatient + 0002:00008DDC .2 + 0002:00008DE0 .2 + 0002:00008DE4 .2 + 0002:00008DE8 .2 + 0002:00008DEC .2 + 0002:00008DF0 frmSplash + 0002:00008DF4 .2 + 0002:00008DF8 frmLabInfo + 0002:00008DFC .2 + 0002:00008E00 uDeleteFromPDL + 0002:00008E04 uNewDxList + 0002:00008E08 Problems + 0002:00008E0C DxList + 0002:00008E10 ECFDiagnoses + 0002:00008E14 tmplst + 0002:00008E18 newDxLst + 0002:00008E1C delDxLst + 0002:00008E20 inactiveCodes + 0002:00008E24 .2 + 0002:00008E28 LastDFN + 0002:00008E2C LastLocation + 0002:00008E30 FDxSection + 0002:00008E34 BADxCode + 0002:00008E38 .2 + 0002:00008E3C .2 + 0002:00008E40 .2 + 0002:00008E44 .2 + 0002:00008E48 Surrogate + 0002:00008E4C TempSurrogate + 0002:00008E50 .2 + 0002:00008E54 .2 + 0002:00008E58 .2 + 0002:00008E5C .2 + 0002:00008E60 .2 + 0002:00008E64 .2 + 0002:00008E68 .2 + 0002:00008E6C .2 + 0002:00008E70 .2 + 0002:00008E74 .2 + 0002:00008E78 .2 + 0002:00008E7C .2 + 0002:00008E80 frmFrame + 0002:00008E84 uTabList + 0002:00008E88 uRemoteType + 0002:00008E8C FlaggedPTList + 0002:00008E90 ctxContextor + 0002:00008E94 NextTab + 0002:00008E98 LastTab + 0002:00008E9C uToolsMaxed + 0002:00008E9D uToolsWarned + 0002:00008EA0 .2 + 0002:00008EA4 GraphFloat + 0002:00008EA8 uAddToPDl + 0002:00008EAC uDeleteFromPDL + 0002:00008EB0 uDxLst + 0002:00008EB4 BADxList + 0002:00008EB8 .1 + 0002:00008EBC .31 + 0002:00008EC0 UNxtCommSeqNum + 0002:00008EC4 uEncLocation + 0002:00008EC8 .1 + 0002:00008ECC uLastLocation + 0002:00008ED0 uLastDFN + 0002:00008ED4 uVTypeLastLoc + 0002:00008ED8 uDiagnoses + 0002:00008EDC uExams + 0002:00008EE0 uHealthFactors + 0002:00008EE4 uImmunizations + 0002:00008EE8 uPatientEds + 0002:00008EEC uProcedures + 0002:00008EF0 uSkinTests + 0002:00008EF4 uVisitTypes + 0002:00008EF8 uVTypeForLoc + 0002:00008EFC uProblems + 0002:00008F00 uGAFOK + 0002:00008F01 uLastForce + 0002:00008F04 uGAFURL + 0002:00008F08 uMHOK + 0002:00008F09 uVCResult + 0002:00008F0A uAPAsk + 0002:00008F0B UAutoSelVal + 0002:00008F0C uLastChkOut + 0002:00008F10 .2 + 0002:00008F14 deleteDX + 0002:00008F15 selectingDX + 0002:00008F18 FDxCode + 0002:00008F1C FDxSection + 0002:00008F20 FName + 0002:00008F24 MaxDx + 0002:00008F28 GridItems + 0002:00008F2C UpdatingGrid + 0002:00008F2E whoCalled + 0002:00008F30 currentOrderIDList + 0002:00008F34 ProblemDxHoldList + 0002:00008F38 PersonalDxHoldList + 0002:00008F3C frmBALocalDiagnoses + 0002:00008F40 lexIENHoldList + 0002:00008F44 .2 + 0002:00008F48 uProblems + 0002:00008F4C BADiagnosis + 0002:00008F50 ECFDiagnosis + 0002:00008F54 uLastDFN + 0002:00008F58 uLastLocation + 0002:00008F5C ListItem + 0002:00008F60 uPrimaryDxHold + 0002:00008F64 PrimaryChanged + 0002:00008F68 BAPLPt + 0002:00008F6C BAPLRec + 0002:00008F70 PLlist + 0002:00008F74 BADiagnosisList + 0002:00008F78 BALocation + 0002:00008F7C BAPCEDiagList + 0002:00008F80 BAOrderIDList + 0002:00008F84 tempDxList + 0002:00008F88 globalDxRec + 0002:00008F8C UnsignedBillingRec + 0002:00008F90 ConsultOrderRec + 0002:00008F94 BAFactorsInRec + 0002:00008F98 BAFactorsRec + 0002:00008F9C BAOrderList + 0002:00008FA0 UpdatedBAOrderList + 0002:00008FA4 ChangeItemOrderNum + 0002:00008FA8 OrderIDList + 0002:00008FAC BAOrderID + 0002:00008FB0 BILLING_AWARE + 0002:00008FB4 BAtmpOrderList + 0002:00008FB8 BAFlagsIN + 0002:00008FBC BAFlagsOUT + 0002:00008FC0 SourceOrderID + 0002:00008FC4 TargetOrderID + 0002:00008FC8 BACopiedOrderFlags + 0002:00008FCC BANurseConsultOrders + 0002:00008FD0 Dx1 + 0002:00008FD4 Dx2 + 0002:00008FD8 Dx3 + 0002:00008FDC Dx4 + 0002:00008FE0 TFactors + 0002:00008FE4 SC + 0002:00008FE8 AO + 0002:00008FEC IR + 0002:00008FF0 MST + 0002:00008FF4 HNC + 0002:00008FF8 CV + 0002:00008FFC EC + 0002:00009000 PLFactorsIndexes + 0002:00009004 BAHoldPrimaryDx + 0002:00009008 BAPrimaryDxChanged + 0002:0000900C NonBillableOrderList + 0002:00009010 OrderListSCEI + 0002:00009014 UnsignedOrders + 0002:00009018 BAUnSignedOrders + 0002:0000901C BATFHints + 0002:00009020 BASelectedList + 0002:00009024 BAConsultDxList + 0002:00009028 BAConsultPLFlags + 0002:0000902C BAFWarningShown + 0002:0000902D BAPersonalDX + 0002:00009030 BADeltedOrders + 0002:00009034 .31 + 0002:00009038 .2 + 0002:0000903C frmOrders + 0002:00009040 origWidths + 0002:00009068 .2 + 0002:0000906C uOrderList + 0002:00009070 uEvtDCList + 0002:00009074 uEvtRLList + 0002:00009078 SizeHolder + 0002:0000907C .2 + 0002:00009080 uBounds + 0002:00009084 uWidths + 0002:00009088 uColumns + 0002:0000908C .1 + 0002:00009090 uTIUSiteParams + 0002:00009094 uNoteTitles + 0002:00009098 uTIUPrefs + 0002:0000909C uPatch175Installed + 0002:000090A0 .1 + 0002:000090A4 uFMToday + 0002:000090AC User + 0002:000090B0 Patient + 0002:000090B4 Changes + 0002:000090B8 RemoteSites + 0002:000090BC RemoteReports + 0002:000090C0 Notifications + 0002:000090C4 HasFlag + 0002:000090C8 FlagList + 0002:000090CC TempEncounterLoc + 0002:000090D0 TempEncounterLocName + 0002:000090D4 .21 + 0002:000090D8 uVistaMsg + 0002:000090DC uVistaDomMsg + 0002:000090E0 HlinkNav + 0002:000090E4 .8 + 0002:000090E8 uDGroupMap + 0002:000090EC uDGroupAll + 0002:000090F0 uOrderChecksOn + 0002:000090F4 .2 + 0002:000090F8 .2 + 0002:000090FC .2 + 0002:00009100 .2 + 0002:00009104 .2 + 0002:00009108 .2 + 0002:0000910C .2 + 0002:00009110 .2 + 0002:00009114 .2 + 0002:00009118 .2 + 0002:0000911C .2 + 0002:00009120 .2 + 0002:00009124 .2 + 0002:00009128 .2 + 0002:0000912C .2 + 0002:00009130 .2 + 0002:00009134 .2 + 0002:00009138 .2 + + +Line numbers for System(system.pas) segment .text + + 295 0001:00000204 2165 0001:000002EC 2168 0001:000002F4 2172 0001:000002FC + 2179 0001:00000304 2182 0001:0000030C 2185 0001:00000314 2190 0001:0000031C + 2193 0001:00000324 2196 0001:0000032C 2199 0001:00000334 2205 0001:0000033C + 2208 0001:00000344 2211 0001:0000034C 2214 0001:00000354 2226 0001:0000035C + 2230 0001:00000364 2233 0001:0000036C 2236 0001:00000374 2239 0001:0000037C + 2242 0001:00000384 2245 0001:0000038C 2249 0001:00000394 2259 0001:0000039C + 2262 0001:000003A4 2266 0001:000003AC 2269 0001:000003B4 2273 0001:000003BC + 2277 0001:000003C4 2288 0001:000003CC 2292 0001:000003D4 2298 0001:000003DC + 2302 0001:000003E4 2305 0001:000003EC 2311 0001:000003F4 2314 0001:000003FC + 2317 0001:00000404 2320 0001:0000040C 2323 0001:00000414 2326 0001:0000041C + 2332 0001:00000424 2333 0001:00000428 2334 0001:0000042D 2335 0001:00000433 + 2336 0001:0000043A 2337 0001:00000441 + +Line numbers for System(GETMEM.INC) segment .text + + 47 0001:00000448 49 0001:00000450 53 0001:00000458 55 0001:00000460 + 58 0001:00000468 60 0001:00000470 62 0001:00000478 64 0001:00000480 + 129 0001:00000488 130 0001:0000048F 131 0001:00000494 132 0001:000004A2 + 133 0001:000004A6 134 0001:000004A8 136 0001:000004AB 137 0001:000004B2 + 138 0001:000004B8 139 0001:000004BA 140 0001:000004C2 141 0001:000004C6 + 142 0001:000004C8 138 0001:000004C9 144 0001:000004CE 145 0001:000004D0 + 147 0001:000004D4 152 0001:000004D8 153 0001:000004DA 154 0001:000004DD + 160 0001:000004E0 161 0001:000004E6 162 0001:000004EB 163 0001:000004EF + 165 0001:000004F4 166 0001:000004F9 168 0001:000004FF 169 0001:00000501 + 170 0001:00000503 171 0001:00000506 172 0001:00000509 174 0001:0000050B + 176 0001:0000050D 183 0001:00000510 184 0001:00000513 185 0001:00000515 + 186 0001:00000517 187 0001:0000051A 188 0001:00000522 189 0001:00000527 + 195 0001:00000528 196 0001:00000534 197 0001:00000537 199 0001:00000544 + 200 0001:00000546 201 0001:00000552 202 0001:00000559 203 0001:0000055E + 204 0001:00000566 205 0001:0000056E 206 0001:00000575 208 0001:0000057B + 209 0001:0000057D 210 0001:00000581 211 0001:0000058E 212 0001:00000592 + 219 0001:00000598 220 0001:000005A1 222 0001:000005A3 223 0001:000005BA + 224 0001:000005BE 225 0001:000005C4 226 0001:000005CA 227 0001:000005D0 + 228 0001:000005D9 229 0001:000005E9 231 0001:000005EE 232 0001:000005F6 + 233 0001:00000602 234 0001:00000607 235 0001:00000614 236 0001:00000616 + 239 0001:00000618 240 0001:0000061A 242 0001:0000061C 243 0001:0000061E + 244 0001:00000622 245 0001:00000624 266 0001:0000062C 267 0001:00000633 + 268 0001:0000063B 270 0001:00000642 272 0001:0000064E 273 0001:00000651 + 274 0001:00000664 277 0001:00000668 278 0001:00000678 279 0001:00000687 + 282 0001:0000068B 289 0001:00000690 290 0001:0000069A 291 0001:000006A1 + 292 0001:000006B7 293 0001:000006BB 294 0001:000006C7 295 0001:000006CA + 297 0001:000006DA 298 0001:000006DF 299 0001:000006EF 300 0001:000006FE + 303 0001:00000702 312 0001:00000708 313 0001:00000716 314 0001:0000071E + 315 0001:00000724 316 0001:00000726 317 0001:0000072F 319 0001:00000737 + 320 0001:00000739 321 0001:0000074B 322 0001:00000751 323 0001:00000755 + 324 0001:00000760 325 0001:00000764 326 0001:00000775 327 0001:0000077F + 329 0001:00000786 318 0001:00000788 331 0001:00000790 332 0001:00000798 + 333 0001:0000079F 334 0001:000007A9 336 0001:000007B8 346 0001:000007C0 + 347 0001:000007CE 348 0001:000007D8 349 0001:000007EB 350 0001:000007F1 + 351 0001:000007FE 354 0001:00000806 355 0001:00000809 356 0001:0000080E + 357 0001:00000812 358 0001:00000814 359 0001:0000081A 360 0001:0000081E + 361 0001:00000822 362 0001:00000836 363 0001:0000083E 366 0001:00000840 + 352 0001:00000842 368 0001:0000084A 377 0001:00000854 378 0001:00000859 + 379 0001:0000086C 380 0001:00000876 381 0001:0000087B 382 0001:00000883 + 385 0001:0000088B 386 0001:0000088E 387 0001:00000893 388 0001:00000898 + 389 0001:0000089B 390 0001:0000089F 391 0001:000008A1 392 0001:000008A5 + 393 0001:000008B7 395 0001:000008C1 383 0001:000008C3 397 0001:000008CB + 416 0001:000008D4 417 0001:000008E4 419 0001:000008F0 421 0001:000008F5 + 422 0001:000008FA 423 0001:00000906 425 0001:0000090B 426 0001:00000911 + 427 0001:00000917 428 0001:0000091D 429 0001:00000924 431 0001:00000926 + 420 0001:00000928 433 0001:0000092C 434 0001:00000935 436 0001:0000093A + 437 0001:0000094B 438 0001:00000957 442 0001:0000095B 452 0001:00000964 + 453 0001:00000977 456 0001:00000983 458 0001:00000988 457 0001:0000098A + 460 0001:00000993 461 0001:00000998 463 0001:000009A1 464 0001:000009B5 + 465 0001:000009BC 468 0001:000009D2 469 0001:000009E3 470 0001:000009EA + 475 0001:000009EF 476 0001:000009FC 479 0001:00000A03 480 0001:00000A1D + 481 0001:00000A2E 482 0001:00000A35 486 0001:00000A37 487 0001:00000A43 + 488 0001:00000A4F 490 0001:00000A57 491 0001:00000A60 492 0001:00000A69 + 493 0001:00000A6F 495 0001:00000A78 496 0001:00000A7F 505 0001:00000A88 + 506 0001:00000A93 507 0001:00000A9F 508 0001:00000AAA 509 0001:00000AAE + 510 0001:00000ABB 511 0001:00000ACB 512 0001:00000AD3 513 0001:00000AF2 + 514 0001:00000AF9 516 0001:00000B09 517 0001:00000B0D 562 0001:00000B14 + 563 0001:00000B17 564 0001:00000B25 565 0001:00000B2F 567 0001:00000B42 + 568 0001:00000B4C 569 0001:00000B56 571 0001:00000B60 572 0001:00000B71 + 573 0001:00000B7A 574 0001:00000B7F 573 0001:00000B8C 576 0001:00000B93 + 577 0001:00000B98 578 0001:00000B9B 579 0001:00000B9D 581 0001:00000BA2 + 584 0001:00000BB6 586 0001:00000BD1 587 0001:00000BD6 595 0001:00000BD8 + 596 0001:00000BDC 597 0001:00000BE9 598 0001:00000BF7 600 0001:00000C0A + 602 0001:00000C11 603 0001:00000C1C 605 0001:00000C23 607 0001:00000C2B + 608 0001:00000C3B 606 0001:00000C3D 611 0001:00000C45 612 0001:00000C4F + 613 0001:00000C59 615 0001:00000C63 616 0001:00000C68 617 0001:00000C6C + 618 0001:00000C74 619 0001:00000C7A 616 0001:00000C7F 622 0001:00000C90 + 623 0001:00000CA3 626 0001:00000CB5 633 0001:00000CB8 634 0001:00000CB9 + 635 0001:00000CC1 636 0001:00000CCA 637 0001:00000CCD 638 0001:00000CD0 + 639 0001:00000CD8 640 0001:00000CDC 642 0001:00000CF3 643 0001:00000D07 + 644 0001:00000D09 645 0001:00000D0B 648 0001:00000D10 649 0001:00000D12 + 650 0001:00000D14 652 0001:00000D17 660 0001:00000D1C 662 0001:00000D24 + 664 0001:00000D32 661 0001:00000D34 666 0001:00000D3C 667 0001:00000D46 + 668 0001:00000D4A 675 0001:00000D4C 676 0001:00000D4D 677 0001:00000D52 + 678 0001:00000D55 679 0001:00000D5A 680 0001:00000D60 681 0001:00000D69 + 682 0001:00000D6E 683 0001:00000D78 685 0001:00000D7A 690 0001:00000D7C + 691 0001:00000D82 692 0001:00000D98 693 0001:00000D9D 698 0001:00000DA0 + 699 0001:00000DA5 700 0001:00000DAA 702 0001:00000DB3 703 0001:00000DB8 + 704 0001:00000DC2 705 0001:00000DC4 707 0001:00000DC7 715 0001:00000DC8 + 716 0001:00000DCA 717 0001:00000DD1 718 0001:00000DE1 719 0001:00000DEB + 720 0001:00000DF3 721 0001:00000DF5 722 0001:00000E01 723 0001:00000E0B + 724 0001:00000E10 725 0001:00000E18 726 0001:00000E1A 727 0001:00000E1F + 728 0001:00000E29 729 0001:00000E2E 731 0001:00000E32 738 0001:00000E38 + 739 0001:00000E3D 740 0001:00000E3F 741 0001:00000E41 742 0001:00000E48 + 743 0001:00000E4D 744 0001:00000E4F 745 0001:00000E51 747 0001:00000E53 + 748 0001:00000E57 749 0001:00000E59 750 0001:00000E60 751 0001:00000E65 + 752 0001:00000E67 754 0001:00000E6C 761 0001:00000E70 762 0001:00000E7B + 763 0001:00000E7F 764 0001:00000E88 765 0001:00000E90 766 0001:00000EA4 + 768 0001:00000EA8 769 0001:00000EB1 771 0001:00000EC5 773 0001:00000ED6 + 775 0001:00000EDE 776 0001:00000EE9 777 0001:00000EF9 778 0001:00000F03 + 779 0001:00000F0E 781 0001:00000F15 787 0001:00000F20 788 0001:00000F27 + 789 0001:00000F29 790 0001:00000F2C 791 0001:00000F36 792 0001:00000F3E + 793 0001:00000F53 794 0001:00000F57 795 0001:00000F60 796 0001:00000F63 + 798 0001:00000F67 799 0001:00000F69 800 0001:00000F6C 801 0001:00000F6E + 802 0001:00000F70 804 0001:00000F75 805 0001:00000F8A 806 0001:00000F8F + 807 0001:00000F95 808 0001:00000F97 809 0001:00000F9A 810 0001:00000F9C + 811 0001:00000F9E 813 0001:00000FA1 818 0001:00000FA8 819 0001:00000FB1 + 820 0001:00000FBA 822 0001:00000FC6 823 0001:00000FD6 824 0001:00000FE3 + 825 0001:00000FEA 828 0001:00000FF1 835 0001:00000FF4 836 0001:00001003 + 837 0001:00001008 838 0001:00001018 839 0001:00001020 840 0001:00001022 + 843 0001:00001024 844 0001:0000102A 845 0001:0000102F 846 0001:00001031 + 849 0001:00001034 850 0001:00001043 851 0001:00001048 854 0001:0000104B + 855 0001:00001054 856 0001:00001061 859 0001:00001065 860 0001:0000106C + 862 0001:00001074 863 0001:00001076 869 0001:00001080 870 0001:00001086 + 871 0001:00001090 872 0001:000010A7 878 0001:000010AC 879 0001:000010B5 + 880 0001:000010C1 881 0001:000010D8 888 0001:000010E0 889 0001:000010E2 + 890 0001:000010F3 891 0001:000010FD 893 0001:00001101 889 0001:00001102 + 894 0001:0000110B 900 0001:0000110C 904 0001:0000111C 905 0001:00001122 + 908 0001:0000112B 909 0001:0000112D 913 0001:00001134 915 0001:00001137 + 916 0001:0000113A 917 0001:0000113F 918 0001:00001144 919 0001:00001148 + 920 0001:0000114A 923 0001:0000114C 924 0001:00001154 925 0001:0000115D + 929 0001:00001161 930 0001:0000116C 931 0001:0000116E 934 0001:00001173 + 935 0001:00001178 936 0001:0000117B 937 0001:00001181 938 0001:00001184 + 940 0001:00001189 941 0001:0000118E 942 0001:00001194 943 0001:0000119B + 944 0001:0000119E 945 0001:000011A4 946 0001:000011AD 951 0001:000011AF + 953 0001:000011B6 954 0001:000011BD 955 0001:000011C2 957 0001:000011CE + 958 0001:000011D0 959 0001:000011D4 960 0001:000011D9 961 0001:000011DD + 964 0001:000011E0 965 0001:000011E2 967 0001:000011E9 968 0001:000011EC + 969 0001:000011F2 971 0001:000011FB 979 0001:00001200 981 0001:0000120B + 984 0001:00001225 985 0001:0000122A 989 0001:0000122F 990 0001:0000123D + 992 0001:00001250 993 0001:00001253 994 0001:00001256 995 0001:0000125B + 997 0001:00001260 998 0001:0000126C 999 0001:00001282 1000 0001:00001286 + 1001 0001:0000128C 1002 0001:0000128F 1003 0001:00001292 1004 0001:00001296 + 1006 0001:000012B0 1007 0001:000012C6 1008 0001:000012CB 1009 0001:000012D1 + 1011 0001:000012D6 1012 0001:000012D8 1013 0001:000012E0 1014 0001:000012E6 + 1015 0001:000012EC 1016 0001:000012F5 1020 0001:000012FF 1021 0001:00001307 + 1022 0001:0000130D 1023 0001:00001316 1024 0001:0000131C 1026 0001:00001323 + 1027 0001:00001328 1028 0001:0000132E 1029 0001:00001335 1030 0001:0000133B + 1031 0001:00001341 1032 0001:0000134A 1035 0001:00001351 1038 0001:00001368 + 1041 0001:00001386 1052 0001:00001390 1053 0001:00001399 1055 0001:000013A0 + 1056 0001:000013B2 1057 0001:000013BC 1058 0001:000013C3 1061 0001:000013C8 + 1062 0001:000013D6 1064 0001:000013E9 1065 0001:000013EB 1066 0001:000013EE + 1070 0001:000013F0 1071 0001:000013F5 1072 0001:000013FF 1077 0001:00001404 + 1078 0001:0000140A 1080 0001:0000141A 1082 0001:0000141F 1083 0001:00001427 + 1084 0001:00001434 1085 0001:0000143E 1088 0001:00001443 1089 0001:00001447 + 1090 0001:0000144C 1091 0001:00001456 1094 0001:0000145B 1095 0001:0000145D + 1096 0001:0000145F 1099 0001:00001464 1102 0001:0000146A 1105 0001:0000146E + 1107 0001:00001478 1108 0001:0000147E 1109 0001:00001484 1110 0001:00001490 + 1111 0001:00001495 1112 0001:0000149A 1115 0001:000014A4 1117 0001:000014AB + 1118 0001:000014B6 1119 0001:000014C0 1121 0001:000014C2 1124 0001:000014C7 + 1125 0001:000014C9 1126 0001:000014DA 1127 0001:000014E4 1129 0001:000014E6 + 1130 0001:000014E9 1131 0001:000014EB 1135 0001:000014F0 1137 0001:000014F9 + 1139 0001:0000150E 1141 0001:0000152C 1146 0001:00001534 1147 0001:0000153D + 1148 0001:00001540 1149 0001:00001543 1150 0001:00001548 1151 0001:0000154D + 1152 0001:00001552 1153 0001:0000155B 1154 0001:00001561 1156 0001:00001565 + 1157 0001:00001567 1159 0001:0000156C 1160 0001:00001574 1161 0001:0000157B + 1162 0001:00001583 1163 0001:0000158C 1164 0001:00001595 1165 0001:000015A2 + 1166 0001:000015AB 1167 0001:000015B4 1170 0001:000015BB 1171 0001:000015BD + 1172 0001:000015C2 1173 0001:000015C4 1174 0001:000015CA 1176 0001:000015CF + 1177 0001:000015D5 1178 0001:000015D9 1179 0001:000015E1 1181 0001:000015F0 + 1185 0001:000015F7 1186 0001:000015FF 1187 0001:00001607 1188 0001:00001612 + 1189 0001:0000161C 1190 0001:00001626 1191 0001:0000162F 1192 0001:0000163A + 1193 0001:00001640 1195 0001:00001647 1196 0001:00001651 1197 0001:0000165E + 1198 0001:00001660 1200 0001:00001665 1201 0001:0000166A 1205 0001:0000166E + 1206 0001:00001673 1207 0001:00001677 1208 0001:0000167D 1209 0001:00001686 + 1210 0001:0000168B 1212 0001:00001694 1213 0001:00001699 1214 0001:000016A0 + 1215 0001:000016A6 1217 0001:000016B4 1218 0001:000016B7 1219 0001:000016BB + 1221 0001:000016BE 1225 0001:000016C0 1226 0001:000016C9 1227 0001:000016D2 + 1228 0001:000016E1 1229 0001:000016E5 1233 0001:000016EA 1234 0001:000016EC + 1240 0001:000016EE 1241 0001:000016F8 1242 0001:00001705 1244 0001:00001707 + 1251 0001:00001710 1253 0001:0000171B 1254 0001:0000172D 1255 0001:00001732 + 1258 0001:00001737 1259 0001:00001745 1261 0001:00001758 1262 0001:00001765 + 1264 0001:0000176A 1265 0001:00001773 1266 0001:00001782 1267 0001:00001786 + 1268 0001:00001788 1269 0001:0000178C 1270 0001:00001796 1272 0001:0000179D + 1275 0001:000017AD 1278 0001:000017CB + +Line numbers for System(system.pas) segment .text + + 2437 0001:000017D4 2438 0001:000017D5 2447 0001:000017D9 2448 0001:000017E1 + 2449 0001:000017E5 2453 0001:000017EE 2454 0001:000017F2 2464 0001:000017F4 + 2465 0001:000017F5 2474 0001:000017F9 2476 0001:00001801 2477 0001:00001805 + 2480 0001:0000180E 2481 0001:00001812 2526 0001:00001814 2527 0001:00001816 + 2528 0001:00001818 2529 0001:0000181A 2530 0001:0000181C 2532 0001:0000181E + 2533 0001:0000181F 2534 0001:00001821 2535 0001:00001827 2536 0001:00001828 + 2537 0001:0000182A 2538 0001:0000182C 2539 0001:0000182E 2541 0001:0000182F + 2542 0001:00001831 2544 0001:00001836 2545 0001:00001838 2546 0001:0000183A + 2547 0001:00001840 2548 0001:00001842 2549 0001:00001844 2551 0001:00001845 + 2552 0001:00001847 2554 0001:0000184C 2555 0001:0000184E 2556 0001:00001850 + 2557 0001:00001851 2558 0001:00001853 2559 0001:00001859 2560 0001:0000185A + 2561 0001:0000185C 2562 0001:0000185E 2564 0001:00001860 2574 0001:00001864 + 2575 0001:0000187E 2579 0001:00001880 2582 0001:000018AC 2913 0001:000018B0 + 2914 0001:000018BE 2916 0001:000018CD 2917 0001:000018CF 2923 0001:000018D0 + 2924 0001:000018DE 2926 0001:000018ED 2927 0001:000018EF 2931 0001:000018F0 + 2932 0001:000018F2 2934 0001:00001900 2935 0001:0000190E 2938 0001:0000191A + 2939 0001:0000191E 2977 0001:00001924 2978 0001:0000192A 2979 0001:0000192F + 3021 0001:00001930 3022 0001:00001936 3023 0001:00001939 3024 0001:00001942 + 3025 0001:0000194C 3026 0001:00001950 3027 0001:0000195D 3028 0001:00001962 + 3029 0001:0000196C 3030 0001:00001977 3034 0001:0000197C 3035 0001:0000197F + 3036 0001:00001982 3037 0001:00001987 3041 0001:00001988 3042 0001:00001989 + 3043 0001:0000198A 3044 0001:0000198B 3045 0001:00001990 3046 0001:00001997 + 3047 0001:00001998 3048 0001:00001999 3049 0001:0000199A 3050 0001:0000199C + 3052 0001:0000199D 3053 0001:0000199F 3054 0001:000019A4 3057 0001:000019A8 + 3058 0001:000019AB 3059 0001:000019B6 3089 0001:000019B8 3090 0001:000019B9 + 3092 0001:000019BA 3093 0001:000019BC 3095 0001:000019C0 3096 0001:000019C2 + 3097 0001:000019C4 3101 0001:000019C6 3102 0001:000019C8 3103 0001:000019CA + 3104 0001:000019CC 3109 0001:000019CE 3110 0001:000019D0 3111 0001:000019D1 + 3112 0001:000019D3 3113 0001:000019D5 3114 0001:000019D7 3117 0001:000019D9 + 3119 0001:000019DB 3120 0001:000019DD 3121 0001:000019DE 3122 0001:000019E0 + 3125 0001:000019E2 3126 0001:000019E7 3131 0001:000019E9 3132 0001:000019EB + 3134 0001:000019ED 3135 0001:000019EF 3137 0001:000019F1 3139 0001:000019F3 + 3140 0001:000019F4 3141 0001:000019F5 3142 0001:000019F8 3309 0001:000019FC + 3310 0001:000019FD 3311 0001:00001A08 3312 0001:00001A17 3352 0001:00001A1C + 3353 0001:00001A1D 3355 0001:00001A1E 3356 0001:00001A20 3358 0001:00001A22 + 3360 0001:00001A24 3361 0001:00001A26 3362 0001:00001A28 3364 0001:00001A2A + 3365 0001:00001A2D 3367 0001:00001A2F 3369 0001:00001A31 3370 0001:00001A33 + 3371 0001:00001A36 3372 0001:00001A38 3375 0001:00001A3B 3376 0001:00001A3F + 3378 0001:00001A43 3379 0001:00001A46 3380 0001:00001A48 3381 0001:00001A49 + 3383 0001:00001A4B 3384 0001:00001A4D 3385 0001:00001A50 3386 0001:00001A53 + 3387 0001:00001A56 3388 0001:00001A58 3390 0001:00001A59 3391 0001:00001A5A + 3392 0001:00001A5B 3400 0001:00001A5C 3404 0001:00001A66 3403 0001:00001A6E + 3405 0001:00001A78 3401 0001:00001A86 3407 0001:00001A88 3408 0001:00001A8A + 3411 0001:00001A8E 3413 0001:00001A92 3416 0001:00001A9C 3417 0001:00001AA2 + 3418 0001:00001AA8 3414 0001:00001AAA 3420 0001:00001AB4 3421 0001:00001AB9 + 3425 0001:00001AC3 3426 0001:00001AC9 3427 0001:00001ACF 3409 0001:00001AD1 + 3431 0001:00001AD7 3433 0001:00001AE0 3434 0001:00001AE2 3435 0001:00001AE4 + 3438 0001:00001AE8 3440 0001:00001AEC 3443 0001:00001AF6 3444 0001:00001AFC + 3446 0001:00001B00 3447 0001:00001B05 3448 0001:00001B06 3444 0001:00001B07 + 3441 0001:00001B0B 3451 0001:00001B15 3455 0001:00001B24 3456 0001:00001B2A + 3458 0001:00001B2E 3459 0001:00001B33 3460 0001:00001B34 3456 0001:00001B35 + 3436 0001:00001B39 3465 0001:00001B3F 3466 0001:00001B41 3474 0001:00001B48 + 3475 0001:00001B5D 3476 0001:00001B5F 3479 0001:00001B6E 3480 0001:00001B7A + 3481 0001:00001B80 3477 0001:00001B81 3490 0001:00001BA2 3500 0001:00001BA8 + 3501 0001:00001BB5 3502 0001:00001BBC 3503 0001:00001BC0 3506 0001:00001BDE + 3509 0001:00001BE5 3510 0001:00001BF0 3511 0001:00001BF9 3507 0001:00001BFA + 3522 0001:00001BFC 3591 0001:00001C08 3592 0001:00001C0A 3610 0001:00001C0C + 3611 0001:00001C0F 3612 0001:00001C19 3614 0001:00001C24 3615 0001:00001C2E + 3647 0001:00001C34 3648 0001:00001C36 3649 0001:00001C38 3650 0001:00001C3A + 3651 0001:00001C3C 3653 0001:00001C3E 3658 0001:00001C40 3660 0001:00001C46 + 3665 0001:00001C48 3668 0001:00001C4E 3672 0001:00001C50 3673 0001:00001C52 + 3674 0001:00001C55 3675 0001:00001C56 3684 0001:00001C58 3685 0001:00001C5A + 3686 0001:00001C5C 3687 0001:00001C5D 3688 0001:00001C5F 3690 0001:00001C60 + 3691 0001:00001C62 3692 0001:00001C64 3698 0001:00001C68 3699 0001:00001C6A + 3700 0001:00001C6C 3701 0001:00001C6E 3702 0001:00001C70 3703 0001:00001C72 + 3704 0001:00001C74 3705 0001:00001C76 3706 0001:00001C78 3707 0001:00001C7A + 3708 0001:00001C7C 3709 0001:00001C7E 3713 0001:00001C80 3714 0001:00001C83 + 3715 0001:00001C86 3716 0001:00001C8A 3717 0001:00001C8B 3718 0001:00001C92 + 3719 0001:00001C96 3720 0001:00001C98 3721 0001:00001C99 3722 0001:00001C9C + 3723 0001:00001C9F 3727 0001:00001CA0 3728 0001:00001CA2 3729 0001:00001CA4 + 3730 0001:00001CA5 3731 0001:00001CA7 3733 0001:00001CA8 3734 0001:00001CAA + 3735 0001:00001CAC 3739 0001:00001CB0 3740 0001:00001CB2 3741 0001:00001CB5 + 3742 0001:00001CB8 3743 0001:00001CBC 3744 0001:00001CBD 3745 0001:00001CC4 + 3746 0001:00001CC8 3747 0001:00001CCA 3748 0001:00001CCB 3749 0001:00001CCE + 3750 0001:00001CD1 3751 0001:00001CD3 3758 0001:00001CD4 3759 0001:00001CD7 + 3760 0001:00001CDA 3761 0001:00001CDB 3762 0001:00001CDC 3763 0001:00001CDD + 3770 0001:00001CE0 3771 0001:00001CE3 3772 0001:00001CE6 3773 0001:00001CEA + 3774 0001:00001CEB 3775 0001:00001CF2 3776 0001:00001CF6 3777 0001:00001CFA + 3778 0001:00001CFB 3779 0001:00001CFE 3780 0001:00001CFF 3781 0001:00001D00 + 3782 0001:00001D01 3793 0001:00001D04 3794 0001:00001D0B 3795 0001:00001D0D + 3798 0001:00001D13 3799 0001:00001D18 3800 0001:00001D1D 4377 0001:00001D20 + 4378 0001:00001D21 4380 0001:00001D33 4381 0001:00001D3B 4383 0001:00001D3F + 4384 0001:00001D4D 4386 0001:00001D51 4388 0001:00001D56 4389 0001:00001D63 + 4393 0001:00001D68 4394 0001:00001D70 4471 0001:00001D74 4472 0001:00001D78 + 4473 0001:00001D7A 4475 0001:00001D8A 4476 0001:00001D94 4477 0001:00001D9B + 4478 0001:00001D9F 4479 0001:00001DA6 4480 0001:00001DAA 4483 0001:00001DB3 + 4484 0001:00001DBB 4485 0001:00001DC7 4545 0001:00001DCC 4546 0001:00001DCD + 4550 0001:00001DCE 4551 0001:00001DD0 4552 0001:00001DD2 4556 0001:00001DD4 + 4557 0001:00001DD6 4558 0001:00001DD8 4559 0001:00001DDA 4563 0001:00001DDB + 4564 0001:00001DDD 4565 0001:00001DDF 4566 0001:00001DE1 4569 0001:00001DE3 + 4570 0001:00001DE5 4571 0001:00001DE7 4575 0001:00001DE9 4576 0001:00001DEA + 4580 0001:00001DEC 4583 0001:00001DEE 4584 0001:00001DEF 4585 0001:00001DF0 + 4590 0001:00001DF1 4591 0001:00001DF3 4592 0001:00001DF5 4593 0001:00001DF7 + 4594 0001:00001DF9 4595 0001:00001DFB 4599 0001:00001DFC 4600 0001:00001E07 + 4603 0001:00001E08 4604 0001:00001E09 4605 0001:00001E0F 4606 0001:00001E11 + 4607 0001:00001E13 4608 0001:00001E21 4615 0001:00001E24 4616 0001:00001E25 + 4617 0001:00001E26 4619 0001:00001E27 4620 0001:00001E29 4622 0001:00001E2B + 4623 0001:00001E2D 4624 0001:00001E2F 4625 0001:00001E31 4626 0001:00001E33 + 4627 0001:00001E34 4629 0001:00001E35 4630 0001:00001E37 4631 0001:00001E39 + 4634 0001:00001E3B 4635 0001:00001E3C 4636 0001:00001E3F 4638 0001:00001E41 + 4639 0001:00001E43 4640 0001:00001E45 4641 0001:00001E47 4642 0001:00001E49 + 4643 0001:00001E4A 4644 0001:00001E4C 4645 0001:00001E4F 4646 0001:00001E52 + 4647 0001:00001E54 4648 0001:00001E56 4649 0001:00001E59 4650 0001:00001E5C + 4651 0001:00001E5D 4652 0001:00001E5F 4654 0001:00001E61 4655 0001:00001E64 + 4657 0001:00001E67 4658 0001:00001E68 4659 0001:00001E6B 4661 0001:00001E6D + 4662 0001:00001E6F 4663 0001:00001E71 4664 0001:00001E73 4665 0001:00001E74 + 4666 0001:00001E76 4667 0001:00001E79 4668 0001:00001E7C 4669 0001:00001E7E + 4670 0001:00001E7F 4671 0001:00001E81 4672 0001:00001E84 4673 0001:00001E87 + 4676 0001:00001E89 4677 0001:00001E8B 4680 0001:00001E8D 4681 0001:00001E8E + 4682 0001:00001E90 4683 0001:00001E92 4684 0001:00001E94 4685 0001:00001E96 + 4686 0001:00001E99 4687 0001:00001E9C 4688 0001:00001E9E 4689 0001:00001EA0 + 4692 0001:00001EA2 4693 0001:00001EA3 4694 0001:00001EA4 4695 0001:00001EA5 + 4703 0001:00001EA8 4704 0001:00001EA9 4705 0001:00001EAA 4706 0001:00001EAB + 4707 0001:00001EAD 4708 0001:00001EB0 4711 0001:00001EB2 4712 0001:00001EB4 + 4713 0001:00001EB6 4714 0001:00001EB8 4715 0001:00001EBA 4716 0001:00001EBB + 4717 0001:00001EBD 4718 0001:00001EC0 4719 0001:00001EC3 4720 0001:00001EC5 + 4721 0001:00001EC7 4722 0001:00001ECA 4723 0001:00001ECD 4724 0001:00001ECE + 4725 0001:00001ED0 4727 0001:00001ED2 4728 0001:00001ED5 4730 0001:00001ED8 + 4731 0001:00001ED9 4732 0001:00001EDC 4734 0001:00001EDE 4735 0001:00001EE0 + 4736 0001:00001EE2 4737 0001:00001EE4 4738 0001:00001EE5 4739 0001:00001EE7 + 4740 0001:00001EEA 4741 0001:00001EED 4742 0001:00001EEF 4743 0001:00001EF0 + 4744 0001:00001EF2 4745 0001:00001EF5 4746 0001:00001EF8 4749 0001:00001EFA + 4750 0001:00001EFC 4753 0001:00001EFF 4754 0001:00001F00 4755 0001:00001F02 + 4756 0001:00001F04 4757 0001:00001F06 4758 0001:00001F08 4759 0001:00001F0B + 4760 0001:00001F0E 4761 0001:00001F10 4762 0001:00001F12 4765 0001:00001F14 + 4766 0001:00001F15 4767 0001:00001F16 5073 0001:00001F18 5075 0001:00001F19 + 5077 0001:00001F1B 5078 0001:00001F1D 5079 0001:00001F1F 5080 0001:00001F22 + 5082 0001:00001F25 5083 0001:00001F27 5084 0001:00001F2A 5086 0001:00001F2C + 5088 0001:00001F2E 5089 0001:00001F30 5090 0001:00001F33 5093 0001:00001F35 + 5094 0001:00001F36 5106 0001:00001F38 5117 0001:00001F39 5118 0001:00001F3B + 5119 0001:00001F45 5120 0001:00001F46 5122 0001:00001F4C 5123 0001:00001F4E + 5124 0001:00001F50 5125 0001:00001F51 6096 0001:00001F54 6097 0001:00001F55 + 6098 0001:00001F56 6099 0001:00001F57 6100 0001:00001F58 6102 0001:00001F5B + 6104 0001:00001F5D 6106 0001:00001F5F 6107 0001:00001F60 6108 0001:00001F62 + 6110 0001:00001F64 6111 0001:00001F69 6114 0001:00001F6B 6116 0001:00001F6D + 6118 0001:00001F6F 6119 0001:00001F72 6120 0001:00001F75 6121 0001:00001F76 + 6122 0001:00001F78 6124 0001:00001F7A 6125 0001:00001F7C 6126 0001:00001F7E + 6127 0001:00001F82 6129 0001:00001F83 6130 0001:00001F85 6132 0001:00001F86 + 6133 0001:00001F8A 6134 0001:00001F90 6135 0001:00001F92 6137 0001:00001F97 + 6138 0001:00001F99 6139 0001:00001F9B 6140 0001:00001F9E 6141 0001:00001FA0 + 6144 0001:00001FA2 6145 0001:00001FA6 6146 0001:00001FA8 6147 0001:00001FA9 + 6148 0001:00001FAA 6150 0001:00001FAC 6151 0001:00001FAF 6152 0001:00001FB0 + 6153 0001:00001FB1 6154 0001:00001FB2 6159 0001:00001FB4 6160 0001:00001FBD + 6266 0001:00001FC0 6267 0001:00001FC1 6268 0001:00001FC2 6270 0001:00001FC3 + 6271 0001:00001FC5 6273 0001:00001FC6 6274 0001:00001FC8 6276 0001:00001FCA + 6277 0001:00001FCC 6278 0001:00001FCE 6281 0001:00001FD3 6282 0001:00001FD5 + 6283 0001:00001FD6 6284 0001:00001FD9 6287 0001:00001FDB 6288 0001:00001FDD + 6289 0001:00001FE0 6290 0001:00001FE2 6291 0001:00001FE5 6294 0001:00001FE7 + 6295 0001:00001FEA 6297 0001:00001FEC 6298 0001:00001FEF 6299 0001:00001FF1 + 6300 0001:00001FF4 6301 0001:00001FF6 6302 0001:00001FF9 6303 0001:00001FFB + 6304 0001:00001FFD 6305 0001:00001FFE 6306 0001:00002001 6307 0001:00002003 + 6308 0001:00002006 6309 0001:00002008 6310 0001:0000200A 6311 0001:0000200C + 6314 0001:0000200E 6315 0001:00002010 6318 0001:00002012 6319 0001:00002015 + 6320 0001:00002018 6321 0001:0000201A 6322 0001:0000201C 6323 0001:0000201E + 6324 0001:00002021 6325 0001:00002023 6327 0001:00002025 6328 0001:00002027 + 6330 0001:00002028 6331 0001:0000202A 6334 0001:0000202C 6335 0001:0000202E + 6336 0001:00002030 6337 0001:00002032 6338 0001:00002034 6341 0001:00002036 + 6342 0001:00002037 6345 0001:00002039 6346 0001:0000203B 6347 0001:0000203D + 6351 0001:0000203F 6352 0001:00002040 6353 0001:00002042 6356 0001:00002044 + 6358 0001:00002046 6359 0001:00002048 6360 0001:00002049 6363 0001:0000204B + 6365 0001:00002050 6366 0001:00002052 6367 0001:00002053 6368 0001:00002055 + 6371 0001:00002057 6372 0001:0000205A 6373 0001:0000205C 6375 0001:0000205F + 6376 0001:00002062 6377 0001:00002065 6378 0001:00002067 6379 0001:0000206A + 6380 0001:0000206D 6381 0001:0000206F 6383 0001:00002072 6384 0001:00002074 + 6385 0001:00002076 6386 0001:00002079 6388 0001:0000207B 6389 0001:0000207D + 6391 0001:0000207E 6392 0001:00002080 6394 0001:00002082 6395 0001:00002084 + 6396 0001:00002086 6399 0001:00002088 6400 0001:00002089 6403 0001:0000208B + 6404 0001:0000208D 6405 0001:0000208E 6406 0001:0000208F 6407 0001:00002090 + 6851 0001:00002094 6852 0001:0000209E 6875 0001:000020A0 6876 0001:000020A1 + 6878 0001:000020A2 6879 0001:000020A8 6880 0001:000020AA 6882 0001:000020AF + 6883 0001:000020B1 6884 0001:000020B2 6885 0001:000020B4 6886 0001:000020B6 + 6887 0001:000020B7 6888 0001:000020B9 6889 0001:000020BA 6892 0001:000020BC + 6893 0001:000020BD 6894 0001:000020BF 6895 0001:000020C1 6896 0001:000020C2 + 6919 0001:000020C4 6920 0001:000020C5 6922 0001:000020C6 6924 0001:000020C8 + 6925 0001:000020CA 6926 0001:000020CC 6928 0001:000020CE 6929 0001:000020D0 + 6931 0001:000020D2 6933 0001:000020D4 6934 0001:000020D5 6935 0001:000020D7 + 6936 0001:000020D9 6937 0001:000020DC 6938 0001:000020DE 6939 0001:000020E0 + 6942 0001:000020E3 6943 0001:000020E4 6944 0001:000020E5 6954 0001:000020E8 + 6955 0001:000020E9 6956 0001:000020EA 6958 0001:000020EB 6959 0001:000020ED + 6960 0001:000020EF 6961 0001:000020F2 6962 0001:000020F5 6966 0001:000020F7 + 6967 0001:000020F9 6968 0001:000020FB 6972 0001:000020FD 6973 0001:000020FF + 6974 0001:00002102 6975 0001:00002104 6976 0001:00002106 6979 0001:00002109 + 6980 0001:0000210B 6982 0001:0000210D 6983 0001:0000210E 6984 0001:00002110 + 6985 0001:00002113 6987 0001:00002115 6989 0001:00002118 6990 0001:0000211A + 6991 0001:0000211C 6992 0001:0000211F 6994 0001:00002121 6996 0001:00002124 + 6997 0001:00002126 6998 0001:00002128 6999 0001:0000212A 7001 0001:0000212C + 7002 0001:0000212E 7003 0001:00002130 7006 0001:00002132 7007 0001:00002133 + 7008 0001:00002134 7009 0001:00002136 7010 0001:00002138 7013 0001:0000213A + 7014 0001:0000213B 7015 0001:0000213C 7016 0001:0000213D 7025 0001:00002140 + 7026 0001:00002141 7028 0001:00002142 7029 0001:00002144 7031 0001:00002146 + 7032 0001:0000214C 7034 0001:0000214E 7035 0001:0000214F 7036 0001:00002150 + 7103 0001:00002154 7104 0001:00002156 7105 0001:00002157 7106 0001:00002159 + 7107 0001:0000215A 7108 0001:0000215C 7109 0001:0000215E 7659 0001:00002160 + 7666 0001:00002161 7668 0001:00002163 7669 0001:00002164 7671 0001:00002165 + 7672 0001:00002166 7673 0001:00002168 7675 0001:00002169 7676 0001:0000216B + 7677 0001:0000216D 7678 0001:0000216F 7680 0001:00002171 7682 0001:00002172 + 7683 0001:00002174 7686 0001:0000217A 7687 0001:0000217C 7688 0001:0000217D + 7689 0001:00002180 7692 0001:00002182 7693 0001:00002184 7694 0001:00002187 + 7695 0001:00002189 7696 0001:0000218C 7697 0001:0000218E 7700 0001:00002190 + 7702 0001:00002192 7703 0001:00002194 7706 0001:00002195 7707 0001:00002197 + 7709 0001:0000219D 7712 0001:000021A1 7713 0001:000021A4 7714 0001:000021A7 + 7715 0001:000021A9 7716 0001:000021AF 7717 0001:000021B2 7719 0001:000021B5 + 7720 0001:000021B7 7722 0001:000021B8 7723 0001:000021BA 7724 0001:000021BC + 7727 0001:000021BE 7728 0001:000021C1 7730 0001:000021C3 7731 0001:000021C5 + 7733 0001:000021C6 7734 0001:000021C8 7738 0001:000021CA 7739 0001:000021CD + 7740 0001:000021D0 7741 0001:000021D2 7742 0001:000021D8 7743 0001:000021DB + 7744 0001:000021DE 7746 0001:000021DF 7747 0001:000021E1 7749 0001:000021E2 + 7750 0001:000021E4 7753 0001:000021E6 7754 0001:000021E8 7757 0001:000021EA + 7758 0001:000021ED 7759 0001:000021EF 7760 0001:000021F2 7762 0001:000021F4 + 7763 0001:000021F6 7764 0001:000021F7 7765 0001:000021F9 7766 0001:000021FC + 7767 0001:000021FE 7768 0001:00002201 7769 0001:00002203 7771 0001:00002205 + 7773 0001:00002207 7774 0001:00002209 7776 0001:0000220A 7777 0001:0000220D + 7778 0001:00002210 7779 0001:00002212 7780 0001:00002214 7781 0001:00002216 + 7782 0001:00002217 7783 0001:00002219 7785 0001:0000221B 7786 0001:0000221E + 7787 0001:00002221 7788 0001:00002223 7789 0001:00002226 7790 0001:00002228 + 7791 0001:0000222A 7792 0001:0000222C 7793 0001:0000222D 7794 0001:0000222F + 7796 0001:00002231 7797 0001:00002233 7798 0001:00002235 7800 0001:00002237 + 7803 0001:0000223A 7804 0001:0000223C 7805 0001:0000223D 7806 0001:0000223E + 7807 0001:00002243 7808 0001:00002244 7810 0001:00002245 7811 0001:00002247 + 7815 0001:00002249 7817 0001:0000224C 7820 0001:0000224E 7822 0001:00002250 + 7823 0001:00002251 7824 0001:00002252 7825 0001:00002253 7828 0001:00002254 + 7829 0001:00002256 7832 0001:00002258 7835 0001:00002259 7836 0001:0000225A + 7837 0001:0000225B 7838 0001:0000225D 7839 0001:00002260 7840 0001:00002262 + 7844 0001:00002264 7845 0001:00002269 7858 0001:0000226C 7865 0001:0000226D + 7867 0001:0000226F 7868 0001:00002271 7869 0001:00002273 7870 0001:00002279 + 7871 0001:0000227E 7872 0001:00002284 7873 0001:00002286 7874 0001:00002289 + 7875 0001:0000228C 7877 0001:00002293 7879 0001:00002295 7880 0001:00002298 + 7882 0001:0000229A 7883 0001:0000229C 7884 0001:0000229F 7885 0001:000022A1 + 7886 0001:000022A4 7887 0001:000022AB 7891 0001:000022AD 7892 0001:000022B0 + 7893 0001:000022B2 7894 0001:000022B5 7895 0001:000022BC 7896 0001:000022BE + 7899 0001:000022C0 7900 0001:000022C2 7901 0001:000022C7 7902 0001:000022C9 + 7903 0001:000022CB 7904 0001:000022CE 7905 0001:000022D1 7906 0001:000022D8 + 7908 0001:000022DA 7909 0001:000022DD 7911 0001:000022DF 7912 0001:000022E1 + 7913 0001:000022E4 7914 0001:000022E6 7915 0001:000022E9 7916 0001:000022F0 + 7920 0001:000022F2 7921 0001:000022F5 7922 0001:000022F7 7923 0001:000022FA + 7924 0001:00002301 7926 0001:00002303 7929 0001:00002305 7930 0001:00002307 + 7931 0001:0000230D 7934 0001:0000230F 7935 0001:00002311 7938 0001:00002313 + 7939 0001:00002314 7941 0001:00002315 7942 0001:0000231F 7943 0001:00002329 + 7944 0001:00002333 7945 0001:0000233D 7946 0001:00002347 7947 0001:00002351 + 7948 0001:0000235B 7949 0001:00002365 7950 0001:0000236F 7951 0001:00002379 + 7952 0001:00002383 7953 0001:0000238D 7954 0001:00002397 7955 0001:000023A1 + 7956 0001:000023AB 7957 0001:000023B5 7958 0001:000023BF 7959 0001:000023C9 + 7960 0001:000023D3 7961 0001:000023DD 7962 0001:000023E7 7963 0001:000023F1 + 7964 0001:000023FB 7965 0001:00002405 7966 0001:0000240F 7967 0001:00002419 + 7968 0001:00002423 7969 0001:0000242D 7970 0001:00002437 7971 0001:00002441 + 7972 0001:0000244B 7973 0001:00002455 7975 0001:0000245F 7976 0001:00002469 + 7977 0001:00002473 7978 0001:0000247D 7979 0001:00002487 7980 0001:00002491 + 7981 0001:0000249B 7982 0001:000024A5 7983 0001:000024AF 7984 0001:000024B9 + 7985 0001:000024C3 7986 0001:000024CD 7987 0001:000024D7 7988 0001:000024E1 + 7989 0001:000024EB 7991 0001:000024F5 7992 0001:000024FF 7993 0001:00002509 + 7994 0001:00002513 7995 0001:0000251D 7996 0001:00002527 7997 0001:00002531 + 7998 0001:0000253B 7999 0001:00002545 8000 0001:0000254F 8217 0001:00002550 + 8222 0001:00002558 8223 0001:00002559 8224 0001:0000255B 8226 0001:00002567 + 8227 0001:00002573 8228 0001:00002581 8230 0001:00002585 8245 0001:00002588 + 8246 0001:0000258E 8248 0001:00002598 8249 0001:000025B3 8250 0001:000025C1 + 8251 0001:000025C8 8253 0001:000025EF 8255 0001:00002600 8256 0001:0000261B + 8261 0001:0000264C 8262 0001:0000264E 8268 0001:0000264F 8270 0001:00002655 + 8274 0001:00002658 8275 0001:0000265A 8276 0001:0000265F 8286 0001:00002660 + 8287 0001:00002666 8298 0001:00002668 8299 0001:00002669 8300 0001:0000266A + 8301 0001:0000266C 8302 0001:0000266F 8303 0001:00002671 8304 0001:00002673 + 8305 0001:00002674 8306 0001:00002676 8307 0001:00002677 8308 0001:00002678 + 8325 0001:0000267C 8326 0001:0000267D 8327 0001:0000267F 8328 0001:00002681 + 8329 0001:00002683 8330 0001:00002686 8331 0001:00002688 8332 0001:0000268A + 8333 0001:0000268D 8334 0001:0000268F 8336 0001:00002690 8337 0001:00002693 + 8338 0001:00002696 8339 0001:00002699 8340 0001:0000269B 8341 0001:0000269C + 8342 0001:0000269E 8344 0001:0000269F 8345 0001:000026A1 8346 0001:000026A2 + 8358 0001:000026A4 8359 0001:000026A7 8360 0001:000026A9 8361 0001:000026AB + 8363 0001:000026AD 8367 0001:000026B0 8368 0001:000026B3 8369 0001:000026C8 + 8372 0001:000026CC 8373 0001:000026CF 8374 0001:000026D6 8375 0001:000026DD + 8379 0001:000026E0 8380 0001:000026E5 8383 0001:000026E8 8384 0001:00002707 + 8387 0001:00002708 8388 0001:00002716 8392 0001:00002718 8393 0001:0000271C + 8394 0001:00002723 8422 0001:00002724 8423 0001:00002725 8424 0001:00002726 + 8425 0001:00002727 8426 0001:00002729 8427 0001:0000272B 8428 0001:0000272C + 8429 0001:0000272F 8430 0001:00002731 8431 0001:00002732 8432 0001:00002735 + 8433 0001:00002736 8434 0001:00002738 8435 0001:00002739 8436 0001:0000273C + 8437 0001:0000273E 8438 0001:00002740 8439 0001:00002742 8440 0001:00002745 + 8441 0001:00002747 8442 0001:00002749 8443 0001:0000274A 8444 0001:0000274D + 8445 0001:0000274F 8446 0001:00002751 8447 0001:00002753 8448 0001:00002755 + 8449 0001:00002757 8450 0001:00002759 8451 0001:0000275A 8452 0001:0000275C + 8453 0001:0000275F 8454 0001:00002762 8455 0001:00002764 8456 0001:00002766 + 8457 0001:00002769 8458 0001:0000276C 8459 0001:0000276F 8460 0001:00002770 + 8461 0001:00002772 8462 0001:00002774 8463 0001:00002776 8464 0001:00002777 + 8465 0001:00002778 8466 0001:00002779 8487 0001:0000277C 8488 0001:0000277D + 8489 0001:0000277E 8490 0001:00002780 8492 0001:00002782 8493 0001:00002784 + 8494 0001:00002787 8495 0001:0000278A 8496 0001:0000278C 8497 0001:0000278E + 8498 0001:00002793 8500 0001:00002795 8501 0001:00002797 8503 0001:00002799 + 8504 0001:0000279A 8505 0001:0000279B 8530 0001:0000279C 8531 0001:0000279E + 8532 0001:000027A4 8533 0001:000027A6 8534 0001:000027AC 8537 0001:000027AE + 8538 0001:000027B1 8539 0001:000027B3 8542 0001:000027B5 8545 0001:000027B7 + 8546 0001:000027BD 8547 0001:000027BF 8548 0001:000027C1 8549 0001:000027C3 + 8550 0001:000027C8 8556 0001:000027CC 8557 0001:000027EF 8558 0001:000027F3 + 8559 0001:000027FF 8561 0001:00002803 8563 0001:0000280A 8564 0001:0000280E + 8567 0001:0000281D 8569 0001:00002834 8570 0001:00002859 8597 0001:00002860 + 8598 0001:00002861 8599 0001:00002862 8600 0001:00002864 8601 0001:00002867 + 8602 0001:00002869 8603 0001:0000286B 8604 0001:0000286D 8605 0001:00002870 + 8606 0001:00002872 8607 0001:00002874 8608 0001:00002876 8609 0001:00002879 + 8610 0001:0000287C 8611 0001:0000287E 8612 0001:00002881 8613 0001:00002884 + 8614 0001:00002886 8615 0001:00002889 8616 0001:0000288C 8617 0001:0000288E + 8618 0001:00002891 8619 0001:00002892 8620 0001:00002894 8621 0001:00002897 + 8622 0001:00002899 8623 0001:0000289B 8624 0001:0000289D 8625 0001:0000289F + 8626 0001:000028A1 8627 0001:000028A2 8628 0001:000028A3 8637 0001:000028A4 + 8638 0001:000028AA 8639 0001:000028C2 8653 0001:000028C8 8654 0001:000028CA + 8655 0001:000028CC 8657 0001:000028CE 8658 0001:000028D0 8659 0001:000028D2 + 8660 0001:000028D4 8661 0001:000028D7 8662 0001:000028D9 8665 0001:000028DB + 8666 0001:000028DD 8669 0001:000028E2 8681 0001:000028E4 8682 0001:000028E5 + 8683 0001:000028E6 8685 0001:000028E8 8687 0001:000028EA 8688 0001:000028ED + 8689 0001:000028EF 8690 0001:000028F1 8691 0001:000028F4 8692 0001:000028F5 + 8693 0001:000028F8 8694 0001:000028FB 8695 0001:000028FD 8697 0001:000028FE + 8698 0001:00002901 8699 0001:00002903 8700 0001:00002905 8703 0001:00002907 + 8704 0001:00002908 8705 0001:0000290A 8706 0001:0000290C 8709 0001:00002910 + 8710 0001:00002911 8714 0001:00002914 8715 0001:00002915 8716 0001:00002916 + 8717 0001:00002918 8718 0001:0000291D 8719 0001:0000291E 8720 0001:0000291F + 8721 0001:00002921 8723 0001:00002923 8724 0001:00002924 8725 0001:00002929 + 8745 0001:0000292C 8746 0001:0000292D 8747 0001:0000292F 8748 0001:00002931 + 8749 0001:00002936 8750 0001:00002938 8751 0001:00002939 8752 0001:0000293B + 8753 0001:0000293C 8755 0001:00002941 8786 0001:00002944 8788 0001:00002946 + 8790 0001:00002948 8791 0001:0000294A 8792 0001:0000294C 8793 0001:0000294F + 8794 0001:00002951 8795 0001:00002953 8797 0001:00002954 8799 0001:00002956 + 8805 0001:00002958 8806 0001:0000295D 8812 0001:00002960 8813 0001:00002965 + 8818 0001:00002968 8823 0001:0000296C 8827 0001:00002970 8831 0001:00002974 + 8832 0001:00002975 8833 0001:00002978 8834 0001:0000297B 8835 0001:0000297D + 8836 0001:00002982 8837 0001:00002984 8838 0001:00002985 8839 0001:00002987 + 8840 0001:0000298C 8841 0001:0000298D 8842 0001:0000298F 8843 0001:00002991 + 8844 0001:00002992 8847 0001:00002994 8848 0001:00002995 8849 0001:00002997 + 8850 0001:0000299A 8857 0001:0000299C 8858 0001:0000299D 8859 0001:0000299E + 8860 0001:0000299F 8861 0001:000029A1 8862 0001:000029A3 8863 0001:000029A5 + 8865 0001:000029A7 8867 0001:000029A9 8868 0001:000029AC 8869 0001:000029AE + 8870 0001:000029B0 8871 0001:000029B3 8873 0001:000029B6 8874 0001:000029B9 + 8875 0001:000029BB 8877 0001:000029BD 8878 0001:000029C0 8879 0001:000029C2 + 8880 0001:000029C3 8882 0001:000029C5 8883 0001:000029C8 8884 0001:000029CA + 8885 0001:000029CC 8888 0001:000029CE 8889 0001:000029D0 8892 0001:000029D2 + 8894 0001:000029D4 8895 0001:000029D8 8896 0001:000029DB 8897 0001:000029DE + 8898 0001:000029E0 8899 0001:000029E1 8902 0001:000029E3 8905 0001:000029E6 + 8906 0001:000029E7 8907 0001:000029E8 8908 0001:000029E9 8916 0001:000029EC + 8917 0001:000029ED 8918 0001:000029EE 8919 0001:000029EF 8920 0001:000029F1 + 8921 0001:000029F3 8922 0001:000029F5 8924 0001:000029F7 8926 0001:000029F9 + 8927 0001:000029FC 8928 0001:000029FE 8929 0001:00002A00 8930 0001:00002A03 + 8932 0001:00002A06 8933 0001:00002A09 8934 0001:00002A0B 8935 0001:00002A0E + 8936 0001:00002A10 8937 0001:00002A11 8939 0001:00002A13 8940 0001:00002A16 + 8941 0001:00002A18 8942 0001:00002A1A 8943 0001:00002A1C 8946 0001:00002A1E + 8947 0001:00002A21 8948 0001:00002A23 8949 0001:00002A25 8950 0001:00002A26 + 8953 0001:00002A28 8954 0001:00002A29 8955 0001:00002A2A 8956 0001:00002A2B + 8963 0001:00002A2C 8964 0001:00002A2D 8965 0001:00002A2E 8966 0001:00002A2F + 8967 0001:00002A31 8968 0001:00002A33 8970 0001:00002A35 8973 0001:00002A36 + 8974 0001:00002A38 8975 0001:00002A3B 8976 0001:00002A3D 8977 0001:00002A3F + 8978 0001:00002A42 8980 0001:00002A45 8981 0001:00002A48 8982 0001:00002A4A + 8984 0001:00002A4C 8985 0001:00002A50 8986 0001:00002A51 8988 0001:00002A53 + 8989 0001:00002A56 8990 0001:00002A58 8991 0001:00002A5A 8992 0001:00002A5B + 8995 0001:00002A5D 8996 0001:00002A5F 8997 0001:00002A62 9000 0001:00002A64 + 9001 0001:00002A68 9002 0001:00002A6B 9003 0001:00002A6E 9004 0001:00002A70 + 9005 0001:00002A71 9008 0001:00002A73 9009 0001:00002A75 9010 0001:00002A76 + 9013 0001:00002A78 9014 0001:00002A79 9015 0001:00002A7A 9016 0001:00002A7B + 9022 0001:00002A7C 9023 0001:00002A7D 9024 0001:00002A7E 9025 0001:00002A7F + 9026 0001:00002A81 9027 0001:00002A83 9030 0001:00002A86 9031 0001:00002A88 + 9032 0001:00002A8C 9033 0001:00002A8F 9034 0001:00002A91 9035 0001:00002A94 + 9036 0001:00002A9B 9037 0001:00002A9E 9039 0001:00002AA1 9040 0001:00002AA2 + 9041 0001:00002AA3 9042 0001:00002AA4 9046 0001:00002AA5 9050 0001:00002AAA + 9051 0001:00002AAE 9052 0001:00002AB1 9053 0001:00002AB3 9054 0001:00002AB5 + 9055 0001:00002AB7 9056 0001:00002AB9 9057 0001:00002ABA 9058 0001:00002ABD + 9059 0001:00002ABE 9062 0001:00002AC3 9064 0001:00002AC8 9068 0001:00002ACC + 9069 0001:00002AD1 9073 0001:00002AD4 9074 0001:00002AD7 9075 0001:00002ADE + 9076 0001:00002AE0 9091 0001:00002AE4 9092 0001:00002AE6 9093 0001:00002AE8 + 9095 0001:00002AE9 9096 0001:00002AEA 9097 0001:00002AEB 9098 0001:00002AED + 9099 0001:00002AF0 9100 0001:00002AF1 9101 0001:00002AF2 9206 0001:00002AF4 + 9207 0001:00002AFB 9208 0001:00002AFD 9209 0001:00002AFF 9210 0001:00002B01 + 9211 0001:00002B03 9212 0001:00002B08 9215 0001:00002B0E 9221 0001:00002B10 + 9222 0001:00002B17 9223 0001:00002B19 9224 0001:00002B1A 9225 0001:00002B1B + 9226 0001:00002B1C 9227 0001:00002B1D 9228 0001:00002B1F 9229 0001:00002B21 + 9230 0001:00002B26 9231 0001:00002B2C 9232 0001:00002B2F 9234 0001:00002B30 + 9257 0001:00002B34 9258 0001:00002B35 9259 0001:00002B37 9260 0001:00002B39 + 9261 0001:00002B3E 9262 0001:00002B44 9263 0001:00002B47 9265 0001:00002B48 + 9281 0001:00002B4C 9282 0001:00002B53 9283 0001:00002B55 9284 0001:00002B56 + 9285 0001:00002B59 9288 0001:00002B5E 9293 0001:00002B60 9294 0001:00002B67 + 9295 0001:00002B69 9296 0001:00002B6A 9297 0001:00002B6B 9299 0001:00002B70 + 9303 0001:00002B74 9304 0001:00002B76 9305 0001:00002B78 9306 0001:00002B7B + 9307 0001:00002B7E 9308 0001:00002B80 9309 0001:00002B83 9310 0001:00002B85 + 9311 0001:00002B88 9312 0001:00002B89 9313 0001:00002B8A 9315 0001:00002B8C + 9317 0001:00002B8F 9319 0001:00002B91 9336 0001:00002B94 9337 0001:00002B9B + 9338 0001:00002B9D 9339 0001:00002B9E 9340 0001:00002B9F 9341 0001:00002BA0 + 9342 0001:00002BA5 9343 0001:00002BA6 9344 0001:00002BA7 9345 0001:00002BA9 + 9346 0001:00002BAB 9347 0001:00002BB0 9348 0001:00002BB6 9349 0001:00002BB7 + 9350 0001:00002BB8 9351 0001:00002BB9 9354 0001:00002BBA 9362 0001:00002BBC + 9363 0001:00002BC3 9364 0001:00002BC5 9365 0001:00002BC6 9366 0001:00002BC7 + 9367 0001:00002BC9 9368 0001:00002BCB 9369 0001:00002BD0 9370 0001:00002BD6 + 9372 0001:00002BD7 9396 0001:00002BD8 9397 0001:00002BD9 9398 0001:00002BDA + 9399 0001:00002BE1 9400 0001:00002BE3 9401 0001:00002BE4 9402 0001:00002BE6 + 9403 0001:00002BE8 9404 0001:00002BED 9406 0001:00002BF3 9407 0001:00002BF4 + 9409 0001:00002BF5 9496 0001:00002BF8 9497 0001:00002BFC 9498 0001:00002C03 + 9500 0001:00002C09 9501 0001:00002C0F 9502 0001:00002C12 9503 0001:00002C15 + 9504 0001:00002C17 9505 0001:00002C18 9506 0001:00002C1D 9507 0001:00002C23 + 9508 0001:00002C25 9509 0001:00002C2B 9510 0001:00002C2D 9511 0001:00002C2F + 9512 0001:00002C35 9513 0001:00002C39 9514 0001:00002C3D 9515 0001:00002C43 + 9516 0001:00002C45 9518 0001:00002C4A 9519 0001:00002C51 9520 0001:00002C53 + 9521 0001:00002C5A 9522 0001:00002C5C 9523 0001:00002C60 9524 0001:00002C61 + 9525 0001:00002C62 9526 0001:00002C67 9527 0001:00002C6A 9528 0001:00002C6B + 9529 0001:00002C71 9530 0001:00002C73 9531 0001:00002C77 9532 0001:00002C7A + 9535 0001:00002C7C 9536 0001:00002C7E 9537 0001:00002C82 9541 0001:00002C85 + 9542 0001:00002C8C 9543 0001:00002C8E 9544 0001:00002C95 9545 0001:00002C97 + 9546 0001:00002C98 9547 0001:00002C9C 9548 0001:00002C9D 9549 0001:00002C9E + 9550 0001:00002C9F 9551 0001:00002CA4 9552 0001:00002CA7 9553 0001:00002CA8 + 9554 0001:00002CA9 9555 0001:00002CAA 9559 0001:00002CAC 9561 0001:00002CB0 + 9562 0001:00002CB1 9563 0001:00002CB3 9564 0001:00002CB4 9565 0001:00002CB5 + 9567 0001:00002CB6 9568 0001:00002CB9 9569 0001:00002CBA 9570 0001:00002CBB + 9571 0001:00002CBC 9573 0001:00002CBD 9575 0001:00002CC1 9576 0001:00002CC3 + 9577 0001:00002CC4 9578 0001:00002CC9 9579 0001:00002CCA 9582 0001:00002CD0 + 9586 0001:00002CD4 9587 0001:00002CD9 9588 0001:00002CDF 9590 0001:00002CE5 + 9591 0001:00002CE8 9592 0001:00002CEB 9594 0001:00002CF2 9595 0001:00002CF5 + 9596 0001:00002CFA 9599 0001:00002CFC 9605 0001:00002D01 9606 0001:00002D06 + 9607 0001:00002D0C 9608 0001:00002D0E 9610 0001:00002D14 9611 0001:00002D17 + 9614 0001:00002D1C 9616 0001:00002D21 9814 0001:00002D24 9815 0001:00002D28 + 9816 0001:00002D2F 9818 0001:00002D35 9819 0001:00002D3B 9820 0001:00002D3D + 9821 0001:00002D3E 9822 0001:00002D43 9823 0001:00002D49 9824 0001:00002D4B + 9825 0001:00002D51 9826 0001:00002D53 9827 0001:00002D55 9828 0001:00002D57 + 9831 0001:00002D5C 9832 0001:00002D5F 9836 0001:00002D61 9838 0001:00002D65 + 9839 0001:00002D66 9840 0001:00002D67 9841 0001:00002D68 9843 0001:00002D69 + 9844 0001:00002D6C 9845 0001:00002D6F 9846 0001:00002D72 9849 0001:00002D74 + 9850 0001:00002D76 9851 0001:00002D78 9852 0001:00002D7A 9853 0001:00002D7C + 9856 0001:00002D7E 9858 0001:00002D80 9859 0001:00002D82 9860 0001:00002D84 + 9862 0001:00002D86 9863 0001:00002D89 9864 0001:00002D8C 9866 0001:00002D8E + 9867 0001:00002D91 9869 0001:00002D94 9870 0001:00002D96 9871 0001:00002D98 + 9872 0001:00002D9A 9874 0001:00002D9C 9875 0001:00002D9D 9876 0001:00002D9E + 9877 0001:00002DA3 9880 0001:00002DA5 9881 0001:00002DA8 9882 0001:00002DAA + 9883 0001:00002DAC 9885 0001:00002DAE 9886 0001:00002DB1 9887 0001:00002DB2 + 9889 0001:00002DB4 9890 0001:00002DB5 9891 0001:00002DB6 9892 0001:00002DB7 + 9893 0001:00002DB8 9896 0001:00002DBD 9897 0001:00002DC1 9898 0001:00002DC7 + 9899 0001:00002DCA 9900 0001:00002DCD 9901 0001:00002DCF 9902 0001:00002DD5 + 9903 0001:00002DD9 9905 0001:00002DDE 9906 0001:00002DE5 9907 0001:00002DE7 + 9908 0001:00002DEE 9909 0001:00002DF0 9910 0001:00002DF4 9911 0001:00002DF5 + 9912 0001:00002DF6 9913 0001:00002DFB 9914 0001:00002DFE 9915 0001:00002DFF + 9918 0001:00002E05 9919 0001:00002E07 9920 0001:00002E0B 9921 0001:00002E0E + 9925 0001:00002E10 9926 0001:00002E17 9927 0001:00002E19 9928 0001:00002E20 + 9929 0001:00002E22 9930 0001:00002E23 9931 0001:00002E27 9932 0001:00002E28 + 9933 0001:00002E29 9934 0001:00002E2A 9935 0001:00002E2F 9936 0001:00002E32 + 9937 0001:00002E33 9938 0001:00002E34 9939 0001:00002E35 9943 0001:00002E37 + 9944 0001:00002E39 9945 0001:00002E3C 9946 0001:00002E3D 9947 0001:00002E3E + 9948 0001:00002E3F 9950 0001:00002E40 9951 0001:00002E44 9953 0001:00002E48 + 9955 0001:00002E49 9956 0001:00002E4B 9957 0001:00002E4C 9958 0001:00002E51 + 9959 0001:00002E52 9962 0001:00002E58 9964 0001:00002E59 9968 0001:00002E5D + 9969 0001:00002E62 9970 0001:00002E68 9972 0001:00002E6E 9973 0001:00002E71 + 9974 0001:00002E78 9975 0001:00002E7C 9976 0001:00002E81 9979 0001:00002E84 + 9985 0001:00002E89 9986 0001:00002E8E 9987 0001:00002E94 9988 0001:00002E96 + 9990 0001:00002E9C 9991 0001:00002E9F 9993 0001:00002EA4 9994 0001:00002EA9 + 10058 0001:00002EAC 10059 0001:00002EB0 10060 0001:00002EB4 10061 0001:00002EBB + 10062 0001:00002EBD 10063 0001:00002EC0 10065 0001:00002EC7 10066 0001:00002EC8 + 10067 0001:00002EC9 10068 0001:00002ECA 10070 0001:00002ECB 10071 0001:00002ECE + 10072 0001:00002ED1 10073 0001:00002ED6 10075 0001:00002ED8 10076 0001:00002ED9 + 10077 0001:00002EDA 10078 0001:00002EDB 10081 0001:00002EDC 10083 0001:00002EE1 + 10142 0001:00002EE4 10143 0001:00002EE8 10144 0001:00002EEF 10146 0001:00002EF5 + 10147 0001:00002EFB 10148 0001:00002EFC 10149 0001:00002F01 10150 0001:00002F03 + 10151 0001:00002F0A 10152 0001:00002F0C 10153 0001:00002F13 10156 0001:00002F15 + 10157 0001:00002F19 10158 0001:00002F1A 10159 0001:00002F1F 10160 0001:00002F22 + 10161 0001:00002F24 10162 0001:00002F28 10165 0001:00002F2A 10166 0001:00002F31 + 10167 0001:00002F33 10168 0001:00002F3A 10172 0001:00002F3C 10174 0001:00002F40 + 10175 0001:00002F41 10176 0001:00002F42 10178 0001:00002F43 10180 0001:00002F47 + 10181 0001:00002F49 10182 0001:00002F4A 10183 0001:00002F4F 10184 0001:00002F50 + 10187 0001:00002F56 10188 0001:00002F57 10189 0001:00002F58 10190 0001:00002F59 + 10191 0001:00002F5D 10192 0001:00002F62 10193 0001:00002F68 10195 0001:00002F6A + 10196 0001:00002F6D 10197 0001:00002F70 10198 0001:00002F74 10199 0001:00002F77 + 10200 0001:00002F79 10201 0001:00002F7B 10202 0001:00002F7D 10203 0001:00002F80 + 10205 0001:00002F82 10206 0001:00002F86 10207 0001:00002F89 10209 0001:00002F8E + 10210 0001:00002F90 10211 0001:00002F94 10212 0001:00002F95 10213 0001:00002F98 + 10214 0001:00002F99 10215 0001:00002F9A 10216 0001:00002F9D 10217 0001:00002F9E + 10219 0001:00002FA0 10220 0001:00002FA5 10270 0001:00002FA8 10271 0001:00002FAA + 10272 0001:00002FAC 10273 0001:00002FB1 10275 0001:00002FB6 10277 0001:00002FB7 + 10278 0001:00002FB8 10279 0001:00002FB9 10280 0001:00002FBA 10281 0001:00002FBB + 10282 0001:00002FBC 10283 0001:00002FBD 10285 0001:00002FBE 10286 0001:00002FBF + 10287 0001:00002FC1 10288 0001:00002FC3 10289 0001:00002FC8 10290 0001:00002FC9 + 10292 0001:00002FCF 10354 0001:00002FD0 10355 0001:00002FD4 10359 0001:00002FDB + 10360 0001:00002FE0 10361 0001:00002FE6 10362 0001:00002FE8 10366 0001:00002FEE + 10367 0001:00002FF1 10368 0001:00002FF5 10369 0001:00002FFB 10370 0001:00002FFD + 10371 0001:00003000 10372 0001:00003005 10376 0001:0000300A 10377 0001:0000300C + 10378 0001:0000300F 10379 0001:00003012 10380 0001:00003013 10381 0001:00003015 + 10383 0001:00003017 10384 0001:00003018 10385 0001:00003019 10386 0001:0000301A + 10388 0001:0000301B 10390 0001:00003020 10474 0001:00003024 10475 0001:00003029 + 10476 0001:0000302F 10477 0001:00003031 10481 0001:00003037 10482 0001:0000303A + 10484 0001:0000303F 10485 0001:00003040 10486 0001:00003044 10487 0001:00003046 + 10488 0001:00003047 10489 0001:0000304A 10490 0001:0000304B 10491 0001:0000304C + 10492 0001:00003051 10494 0001:00003053 10500 0001:00003054 10501 0001:00003056 + 10502 0001:0000305A 10503 0001:0000305E 10504 0001:00003061 10505 0001:00003064 + 10506 0001:00003066 10508 0001:00003069 10534 0001:0000306C 10535 0001:00003072 + 10536 0001:000030CD 10537 0001:000030D1 10538 0001:000030D5 10541 0001:000030D9 + 10542 0001:000030DD 10543 0001:000030E1 10545 0001:000030E5 10546 0001:000030E9 + 10547 0001:000030ED 10548 0001:000030F1 10549 0001:000030F5 10550 0001:000030F9 + 10552 0001:000030FB 10553 0001:00003108 10557 0001:0000310C 10559 0001:00003110 + 10560 0001:00003117 10562 0001:0000311D 10563 0001:00003124 10564 0001:00003126 + 10565 0001:0000312A 10566 0001:0000312B 10567 0001:00003130 10568 0001:00003133 + 10573 0001:00003135 10574 0001:00003139 10575 0001:0000313A 10576 0001:0000313F + 10578 0001:00003143 10579 0001:00003145 10580 0001:00003146 10581 0001:0000314B + 10582 0001:0000314C 10585 0001:00003152 10586 0001:00003156 10587 0001:0000315C + 10588 0001:0000315F 10589 0001:00003162 10591 0001:00003164 10592 0001:0000316A + 10593 0001:0000316C 10594 0001:00003172 10595 0001:00003174 10596 0001:00003176 + 10597 0001:00003178 10598 0001:0000317E 10602 0001:00003181 10603 0001:00003186 + 10604 0001:0000318C 10605 0001:0000318E 10606 0001:00003190 10609 0001:00003192 + 10610 0001:00003196 10611 0001:0000319B 10612 0001:0000319E 10613 0001:000031A1 + 10616 0001:000031A6 10617 0001:000031A8 10621 0001:000031AC 10622 0001:000031AE + 10623 0001:000031B1 10624 0001:000031B4 10626 0001:000031B7 10631 0001:000031B9 + 10633 0001:000031C0 10637 0001:000031C3 10639 0001:000031C8 10644 0001:000031CC + 10648 0001:000031CE 10650 0001:000031D3 10651 0001:000031D5 10652 0001:000031D7 + 10653 0001:000031DA 10654 0001:000031DC 10655 0001:000031DE 10656 0001:000031E0 + 10657 0001:000031E3 10660 0001:000031E4 10662 0001:000031E6 10663 0001:000031E9 + 10664 0001:000031EB 10665 0001:000031ED 10667 0001:000031EF 10668 0001:000031F1 + 10670 0001:000031F3 10692 0001:000031F4 10693 0001:000031FF 10695 0001:00003206 + 10696 0001:00003209 10700 0001:0000320C 10701 0001:0000321A 10703 0001:0000321E + 10704 0001:0000321F 10705 0001:00003222 10706 0001:00003226 10712 0001:0000322A + 10701 0001:0000322C 10717 0001:0000323F 10718 0001:00003244 10720 0001:0000324E + 10832 0001:00003254 10833 0001:0000325A 10835 0001:00003263 10836 0001:00003265 + 10837 0001:00003267 10841 0001:0000326A 10842 0001:00003278 10844 0001:0000327C + 10845 0001:0000327F 10846 0001:00003280 10847 0001:00003286 10853 0001:0000328A + 10842 0001:0000328C 10858 0001:0000329F 10859 0001:000032A4 10861 0001:000032AE + 10907 0001:000032B4 10908 0001:000032BE 10910 0001:000032C8 10911 0001:000032CD + 10912 0001:000032D4 10913 0001:000032DA 10915 0001:000032E2 10917 0001:000032E7 + 10918 0001:000032EE 10919 0001:000032F3 11080 0001:000032F4 11081 0001:000032F5 + 11083 0001:000032F7 11084 0001:000032F8 11085 0001:000032F9 11086 0001:000032FC + 11088 0001:00003300 11089 0001:00003303 11090 0001:00003305 11091 0001:00003307 + 11092 0001:00003309 11093 0001:0000330E 11094 0001:00003311 11095 0001:00003312 + 11097 0001:00003314 11098 0001:00003315 11100 0001:00003316 11102 0001:00003317 + 11117 0001:00003318 11118 0001:00003319 11120 0001:0000331B 11121 0001:0000331C + 11122 0001:0000331D 11123 0001:00003320 11125 0001:00003324 11126 0001:00003327 + 11127 0001:00003329 11128 0001:0000332C 11129 0001:0000332E 11130 0001:00003333 + 11131 0001:00003336 11132 0001:00003337 11134 0001:00003339 11135 0001:0000333A + 11137 0001:0000333B 11139 0001:0000333C 11157 0001:00003340 11158 0001:00003341 + 11160 0001:00003343 11161 0001:00003344 11162 0001:00003345 11163 0001:00003348 + 11175 0001:0000334C 11176 0001:0000334F 11177 0001:00003351 11178 0001:00003354 + 11179 0001:00003357 11180 0001:0000335A 11181 0001:0000335D 11182 0001:0000335E + 11186 0001:00003360 11187 0001:00003361 11189 0001:00003362 11191 0001:00003363 + 11234 0001:00003364 11235 0001:0000336C 11236 0001:0000336E 11238 0001:00003374 + 11239 0001:00003388 11240 0001:00003394 11241 0001:00003395 11242 0001:00003399 + 11243 0001:0000339B 11245 0001:000033A0 11246 0001:000033B2 11247 0001:000033B5 + 11248 0001:000033B6 11249 0001:000033BA 11265 0001:000033C0 11266 0001:000033C2 + 11267 0001:000033C8 11268 0001:000033CA 11269 0001:000033CC 11276 0001:000033CD + 11279 0001:000033D2 11280 0001:000033D5 11281 0001:000033D8 11282 0001:000033DB + 11284 0001:000033DE 11285 0001:000033E0 11286 0001:000033E5 11287 0001:000033E7 + 11288 0001:000033E8 11290 0001:000033E9 11292 0001:000033EA 11297 0001:000033ED + 11303 0001:000033F0 11304 0001:000033F1 11308 0001:000033FA 11309 0001:0000340E + 11311 0001:00003419 11312 0001:00003434 11314 0001:00003451 11315 0001:0000345A + 11330 0001:0000346D 11338 0001:0000347C 11352 0001:0000348F 11353 0001:00003495 + 11355 0001:0000349A 11356 0001:0000349E 11357 0001:000034A2 11353 0001:000034A6 + 11362 0001:000034AB 11364 0001:000034B4 11365 0001:000034B9 11366 0001:000034BE + 11377 0001:000034C5 11378 0001:000034D0 11382 0001:000034D5 11384 0001:000034DA + 11386 0001:000034E5 11389 0001:000034EC 11393 0001:000034F1 11394 0001:00003500 + 11399 0001:00003506 11403 0001:0000350B 11404 0001:00003511 11407 0001:00003514 + 11408 0001:0000351A 11410 0001:0000351F 11417 0001:00003524 11418 0001:0000352D + 11419 0001:00003533 11422 0001:0000353B 11372 0001:0000354A 11424 0001:0000354F + 11428 0001:00003554 11429 0001:00003559 11430 0001:0000355E 11462 0001:00003560 + 11464 0001:00003566 11465 0001:0000356B 11487 0001:0000356C 11498 0001:0000356D + 11500 0001:00003574 11501 0001:00003576 11502 0001:00003578 11503 0001:0000357D + 11505 0001:0000357F 11510 0001:00003583 11513 0001:00003589 11514 0001:0000358A + 11529 0001:0000358C 11534 0001:0000358F 11535 0001:00003594 11537 0001:00003595 + 11538 0001:00003597 11539 0001:0000359C 11540 0001:0000359F 11541 0001:000035A0 + 11553 0001:000035A3 11555 0001:000035A6 11556 0001:000035A9 11557 0001:000035AB + 11558 0001:000035AC 11559 0001:000035AD 11560 0001:000035B2 11561 0001:000035B3 + 11562 0001:000035B4 11565 0001:000035B6 11566 0001:000035B8 11567 0001:000035B9 + 11568 0001:000035BC 11570 0001:000035BD 11575 0001:000035BE 11584 0001:000035C4 + 11585 0001:000035D0 11586 0001:000035DA 11587 0001:000035DC 11588 0001:000035E2 + 11589 0001:000035E9 11591 0001:000035FF 11596 0001:00003608 11597 0001:0000360E + 11660 0001:00003610 11661 0001:00003612 11662 0001:00003614 11663 0001:00003616 + 11664 0001:0000361C 11665 0001:0000361F 11666 0001:00003620 11667 0001:00003622 + 11668 0001:00003626 11669 0001:00003628 11670 0001:00003629 11671 0001:0000362C + 11672 0001:00003631 11674 0001:00003632 11695 0001:00003634 11696 0001:00003635 + 11697 0001:00003636 11698 0001:00003638 11701 0001:0000363A 11702 0001:0000363C + 11703 0001:0000363E 11704 0001:00003640 11705 0001:00003646 11706 0001:00003649 + 11707 0001:0000364A 11708 0001:0000364C 11709 0001:00003650 11710 0001:00003652 + 11711 0001:00003655 11713 0001:0000365A 11714 0001:0000365D 11715 0001:0000365E + 11717 0001:00003660 11718 0001:00003661 11719 0001:00003662 11767 0001:00003664 + 11768 0001:00003666 11770 0001:00003668 11771 0001:0000366B 11772 0001:0000366C + 11774 0001:0000366E 11775 0001:0000366F 11776 0001:00003670 11777 0001:00003673 + 11778 0001:00003678 11779 0001:0000367A 11780 0001:0000367B 11781 0001:0000367C + 11782 0001:0000367F 11783 0001:00003684 11784 0001:00003685 11785 0001:00003686 + 11788 0001:00003688 11790 0001:0000368C 11791 0001:0000368E 11792 0001:00003690 + 11793 0001:00003692 11794 0001:00003695 11795 0001:00003696 11796 0001:00003698 + 11797 0001:0000369C 11798 0001:0000369E 11799 0001:000036A1 11801 0001:000036A6 + 11820 0001:000036A8 11821 0001:000036AA 11825 0001:000036AC 11826 0001:000036AF + 11827 0001:000036B0 11828 0001:000036B2 11833 0001:000036B6 11834 0001:000036B8 + 11835 0001:000036BA 11836 0001:000036BC 11837 0001:000036BF 11838 0001:000036C0 + 11839 0001:000036C2 11840 0001:000036C6 11841 0001:000036C8 11842 0001:000036CB + 11844 0001:000036D0 11868 0001:000036D4 11869 0001:000036D6 11870 0001:000036D8 + 11871 0001:000036D9 11872 0001:000036DC 11873 0001:000036DF 11874 0001:000036E0 + 11875 0001:000036E5 11876 0001:000036E6 11877 0001:000036ED 11878 0001:000036F0 + 11879 0001:000036F1 11880 0001:000036F4 11881 0001:000036FB 11883 0001:000036FC + 11884 0001:000036FE 11893 0001:00003700 11894 0001:00003701 11895 0001:00003702 + 11897 0001:00003703 11898 0001:00003705 11899 0001:00003707 11903 0001:00003709 + 11905 0001:0000370B 11906 0001:00003710 11907 0001:00003712 11909 0001:00003714 + 11910 0001:00003716 11912 0001:00003718 11913 0001:0000371A 11914 0001:0000371C + 11919 0001:00003721 11920 0001:00003723 11921 0001:00003728 11923 0001:0000372A + 11924 0001:0000372B 11925 0001:0000372C 11926 0001:0000372D 12033 0001:00003730 + 12051 0001:00003733 12054 0001:0000374B 12061 0001:00003750 12081 0001:00003753 + 12084 0001:00003767 12090 0001:0000376C 12091 0001:00003781 12093 0001:00003785 + 12094 0001:0000378C 12096 0001:0000378E 12098 0001:00003799 12099 0001:000037AE + 12101 0001:000037B2 12102 0001:000037BF 12106 0001:000037C1 12107 0001:000037C5 + 12108 0001:000037CE 12109 0001:000037DE 12110 0001:000037E4 12111 0001:000037ED + 12116 0001:000037F8 12117 0001:000037F9 12118 0001:000037FB 12119 0001:00003800 + 12120 0001:00003805 12121 0001:00003806 12136 0001:00003808 12137 0001:0000380A + 12138 0001:0000380C 12139 0001:0000380E 12140 0001:0000380F 12141 0001:00003811 + 12142 0001:00003813 12143 0001:00003816 12144 0001:00003818 12145 0001:0000381B + 12146 0001:0000381D 12147 0001:00003820 12148 0001:00003822 12149 0001:00003825 + 12150 0001:00003827 12151 0001:00003828 12152 0001:00003829 12153 0001:0000382A + 12154 0001:0000382C 12155 0001:0000382D 12156 0001:0000382F 12157 0001:00003834 + 12162 0001:00003838 12163 0001:0000383A 12164 0001:0000383C 12165 0001:0000383E + 12166 0001:0000383F 12167 0001:00003842 12168 0001:00003844 12169 0001:00003848 + 12170 0001:0000384A 12171 0001:0000384E 12172 0001:00003850 12173 0001:00003854 + 12174 0001:00003856 12175 0001:00003859 12176 0001:0000385B 12177 0001:0000385E + 12178 0001:00003861 12179 0001:00003864 12180 0001:00003866 12181 0001:00003867 + 12182 0001:00003869 12183 0001:0000386B 12184 0001:00003870 12189 0001:00003874 + 12190 0001:00003876 12191 0001:00003878 12192 0001:00003879 12193 0001:0000387E + 12198 0001:00003880 12199 0001:00003881 12200 0001:00003882 12201 0001:00003883 + 12202 0001:00003885 12203 0001:00003887 12204 0001:00003889 12205 0001:0000388B + 12206 0001:0000388D 12207 0001:0000388E 12208 0001:00003890 12209 0001:00003891 + 12210 0001:00003892 12211 0001:00003897 12237 0001:00003898 12238 0001:0000389A + 12239 0001:0000389C 12240 0001:0000389E 12241 0001:000038A1 12242 0001:000038A3 + 12243 0001:000038A8 12252 0001:000038AC 12253 0001:000038AD 12254 0001:000038AF + 12255 0001:000038B1 12256 0001:000038B4 12257 0001:000038B6 12259 0001:000038B8 + 12260 0001:000038BA 12261 0001:000038BC 12263 0001:000038BE 12264 0001:000038C0 + 12266 0001:000038C1 12267 0001:000038C2 12269 0001:000038C7 12272 0001:000038C9 + 12275 0001:000038CC 12276 0001:000038CD 12289 0001:000038D0 12290 0001:000038D2 + 12291 0001:000038D4 12293 0001:000038D7 12302 0001:000038D8 12303 0001:000038DA + 12305 0001:000038DC 12306 0001:000038DE 12307 0001:000038E0 12309 0001:000038E6 + 12310 0001:000038E7 12311 0001:000038E8 12312 0001:000038E9 12313 0001:000038EB + 12314 0001:000038ED 12316 0001:000038F0 12317 0001:000038F3 12318 0001:000038F5 + 12319 0001:000038F7 12321 0001:000038F9 12322 0001:000038FE 12323 0001:00003900 + 12326 0001:00003903 12327 0001:00003905 12328 0001:00003907 12329 0001:0000390C + 12330 0001:0000390D 12331 0001:0000390E 12332 0001:0000390F 12335 0001:00003910 + 12336 0001:00003915 12337 0001:00003917 12338 0001:00003919 12341 0001:0000391B + 12350 0001:0000391C 12351 0001:0000391E 12353 0001:00003920 12354 0001:00003922 + 12356 0001:00003928 12357 0001:0000392A 12359 0001:0000392C 12360 0001:0000392E + 12362 0001:00003930 12363 0001:00003931 12364 0001:00003932 12366 0001:00003937 + 12367 0001:00003938 12368 0001:00003939 12372 0001:0000393E 12373 0001:0000393F + 12374 0001:00003940 12376 0001:00003941 12377 0001:00003943 12378 0001:00003945 + 12380 0001:00003946 12381 0001:00003949 12382 0001:0000394C 12384 0001:00003951 + 12385 0001:00003953 12386 0001:00003955 12387 0001:00003957 12388 0001:0000395A + 12390 0001:0000395F 12391 0001:00003961 12392 0001:00003963 12393 0001:00003966 + 12394 0001:00003969 12396 0001:0000396E 12397 0001:0000396F 12398 0001:00003971 + 12399 0001:00003973 12400 0001:00003975 12402 0001:00003978 12404 0001:0000397D + 12405 0001:0000397E 12406 0001:0000397F 12408 0001:00003980 12411 0001:00003981 + 12412 0001:00003983 12415 0001:00003988 12416 0001:0000398A 12419 0001:0000398F + 12428 0001:00003990 12429 0001:00003991 12430 0001:00003992 12431 0001:00003993 + 12432 0001:00003994 12433 0001:00003995 12435 0001:00003997 12436 0001:00003999 + 12437 0001:0000399D 12438 0001:0000399F 12439 0001:000039A1 12440 0001:000039A3 + 12441 0001:000039A5 12442 0001:000039A7 12443 0001:000039AA 12444 0001:000039AB + 12446 0001:000039AD 12448 0001:000039AF 12449 0001:000039B3 12450 0001:000039B5 + 12451 0001:000039B7 12452 0001:000039BA 12453 0001:000039BC 12454 0001:000039BE + 12456 0001:000039C0 12457 0001:000039C1 12460 0001:000039C3 12461 0001:000039C5 + 12462 0001:000039C7 12463 0001:000039C9 12464 0001:000039CC 12465 0001:000039CF + 12466 0001:000039D4 12467 0001:000039D7 12468 0001:000039D9 12469 0001:000039DB + 12470 0001:000039DC 12473 0001:000039DE 12474 0001:000039E3 12475 0001:000039E4 + 12478 0001:000039E6 12479 0001:000039EA 12480 0001:000039EC 12481 0001:000039EE + 12482 0001:000039F0 12483 0001:000039F3 12484 0001:000039F5 12486 0001:000039FA + 12487 0001:000039FB 12489 0001:000039FD 12490 0001:000039FE 12491 0001:000039FF + 12492 0001:00003A01 12494 0001:00003A03 12495 0001:00003A05 12496 0001:00003A07 + 12498 0001:00003A0A 12501 0001:00003A0F 12502 0001:00003A10 12503 0001:00003A11 + 12504 0001:00003A12 12505 0001:00003A13 12506 0001:00003A14 12507 0001:00003A17 + 12508 0001:00003A19 12516 0001:00003A1C 12517 0001:00003A1D 12518 0001:00003A1E + 12520 0001:00003A1F 12521 0001:00003A21 12523 0001:00003A23 12524 0001:00003A25 + 12526 0001:00003A2B 12527 0001:00003A2D 12529 0001:00003A2F 12530 0001:00003A31 + 12532 0001:00003A33 12533 0001:00003A36 12535 0001:00003A39 12536 0001:00003A3B + 12537 0001:00003A3D 12540 0001:00003A3F 12541 0001:00003A40 12542 0001:00003A43 + 12544 0001:00003A45 12545 0001:00003A47 12546 0001:00003A49 12547 0001:00003A4B + 12548 0001:00003A4D 12549 0001:00003A4E 12550 0001:00003A50 12551 0001:00003A53 + 12552 0001:00003A56 12553 0001:00003A58 12554 0001:00003A5A 12555 0001:00003A5D + 12556 0001:00003A60 12557 0001:00003A61 12558 0001:00003A63 12560 0001:00003A65 + 12561 0001:00003A68 12563 0001:00003A6B 12564 0001:00003A6C 12565 0001:00003A6F + 12567 0001:00003A71 12568 0001:00003A73 12569 0001:00003A75 12570 0001:00003A77 + 12571 0001:00003A79 12572 0001:00003A7A 12573 0001:00003A7C 12574 0001:00003A7E + 12575 0001:00003A80 12576 0001:00003A81 12577 0001:00003A83 12578 0001:00003A89 + 12579 0001:00003A8F 12580 0001:00003A91 12583 0001:00003A93 12584 0001:00003A95 + 12587 0001:00003A97 12588 0001:00003A9A 12589 0001:00003A9C 12592 0001:00003A9E + 12593 0001:00003AA1 12594 0001:00003AA3 12597 0001:00003AA5 12598 0001:00003AA6 + 12599 0001:00003AA8 12600 0001:00003AAA 12601 0001:00003AAC 12602 0001:00003AAE + 12603 0001:00003AB1 12604 0001:00003AB4 12605 0001:00003AB6 12606 0001:00003AB8 + 12609 0001:00003ABA 12610 0001:00003ABB 12611 0001:00003ABC 12613 0001:00003ABD + 12629 0001:00003AC0 12630 0001:00003AC2 12631 0001:00003AC4 12632 0001:00003AC7 + 12633 0001:00003AC8 12634 0001:00003ACA 12636 0001:00003ACE 12659 0001:00003AD0 + 12660 0001:00003AD2 12661 0001:00003AD4 12667 0001:00003AD5 12669 0001:00003AD6 + 12671 0001:00003ADB 12678 0001:00003ADC 12679 0001:00003ADE 12680 0001:00003AE0 + 12681 0001:00003AE2 12682 0001:00003AE5 12683 0001:00003AE6 12685 0001:00003AE8 + 12686 0001:00003AE9 12687 0001:00003AEB 12688 0001:00003AEE 12689 0001:00003AF3 + 12690 0001:00003AF5 12691 0001:00003AF7 12692 0001:00003AF9 12693 0001:00003AFA + 12694 0001:00003AFD 12695 0001:00003B02 12696 0001:00003B03 12697 0001:00003B06 + 12698 0001:00003B07 12699 0001:00003B09 12700 0001:00003B0D 12701 0001:00003B0F + 12702 0001:00003B12 12704 0001:00003B17 12705 0001:00003B19 12707 0001:00003B1A + 12708 0001:00003B1C 12713 0001:00003B20 12714 0001:00003B25 12718 0001:00003B28 + 12719 0001:00003B2D 12748 0001:00003B30 12750 0001:00003B31 12751 0001:00003B33 + 12753 0001:00003B35 12754 0001:00003B38 12755 0001:00003B3A 12759 0001:00003B3C + 12760 0001:00003B3D 12761 0001:00003B3F 12762 0001:00003B41 12768 0001:00003B43 + 12769 0001:00003B45 12770 0001:00003B47 12771 0001:00003B49 12772 0001:00003B4B + 12776 0001:00003B4D 12777 0001:00003B4F 12778 0001:00003B53 12779 0001:00003B58 + 12782 0001:00003B5A 12783 0001:00003B5C 12785 0001:00003B5E 12786 0001:00003B60 + 12790 0001:00003B62 12791 0001:00003B66 12793 0001:00003B6B 12794 0001:00003B6C + 12795 0001:00003B6F 12804 0001:00003B70 12805 0001:00003B71 12806 0001:00003B72 + 12808 0001:00003B73 12809 0001:00003B75 12810 0001:00003B77 12812 0001:00003B79 + 12814 0001:00003B7E 12815 0001:00003B80 12816 0001:00003B82 12818 0001:00003B84 + 12822 0001:00003B87 12823 0001:00003B88 12824 0001:00003B8A 12825 0001:00003B8C + 12829 0001:00003B8E 12830 0001:00003B90 12831 0001:00003B92 12832 0001:00003B94 + 12833 0001:00003B96 12834 0001:00003B98 12839 0001:00003B9A 12840 0001:00003B9C + 12841 0001:00003B9E 12842 0001:00003BA1 12846 0001:00003BA6 12847 0001:00003BA8 + 12848 0001:00003BAA 12849 0001:00003BAD 12850 0001:00003BAF 12853 0001:00003BB4 + 12854 0001:00003BB5 12855 0001:00003BB6 12856 0001:00003BB7 12865 0001:00003BB8 + 12866 0001:00003BBA 12868 0001:00003BBC 12869 0001:00003BBD 12870 0001:00003BBE + 12871 0001:00003BBF 12873 0001:00003BC0 12874 0001:00003BC2 12875 0001:00003BC4 + 12879 0001:00003BC6 12880 0001:00003BC8 12881 0001:00003BC9 12882 0001:00003BCB + 12883 0001:00003BCD 12885 0001:00003BD0 12886 0001:00003BD1 12887 0001:00003BD3 + 12889 0001:00003BD5 12890 0001:00003BD7 12891 0001:00003BD9 12894 0001:00003BDB + 12898 0001:00003BDE 12899 0001:00003BE0 12900 0001:00003BE2 12901 0001:00003BE7 + 12903 0001:00003BE8 12904 0001:00003BEA 12905 0001:00003BEC 12911 0001:00003BEE + 12912 0001:00003BF0 12913 0001:00003BF3 12914 0001:00003BF6 12915 0001:00003BF8 + 12916 0001:00003BFA 12917 0001:00003BFC 12921 0001:00003C01 12922 0001:00003C03 + 12923 0001:00003C05 12924 0001:00003C07 12925 0001:00003C09 12928 0001:00003C0E + 12929 0001:00003C0F 12930 0001:00003C10 12931 0001:00003C11 12933 0001:00003C12 + 12942 0001:00003C14 12943 0001:00003C16 12945 0001:00003C18 12946 0001:00003C1A + 12948 0001:00003C1C 12949 0001:00003C1D 12950 0001:00003C1E 12952 0001:00003C1F + 12953 0001:00003C21 12955 0001:00003C23 12957 0001:00003C26 12959 0001:00003C27 + 12961 0001:00003C2A 12962 0001:00003C2B 12963 0001:00003C2D 12964 0001:00003C2F + 12966 0001:00003C30 12968 0001:00003C32 12970 0001:00003C34 12971 0001:00003C36 + 12972 0001:00003C38 12973 0001:00003C3A 12974 0001:00003C3B 12976 0001:00003C3C + 12977 0001:00003C3E 12978 0001:00003C40 12979 0001:00003C41 12980 0001:00003C42 + 12981 0001:00003C44 12982 0001:00003C46 12985 0001:00003C48 12986 0001:00003C49 + 12987 0001:00003C4B 12990 0001:00003C4D 12991 0001:00003C4F 12994 0001:00003C50 + 12995 0001:00003C51 12996 0001:00003C53 12998 0001:00003C55 12999 0001:00003C56 + 13000 0001:00003C57 13002 0001:00003C58 13010 0001:00003C5C 13011 0001:00003C5D + 13012 0001:00003C5E 13013 0001:00003C5F 13014 0001:00003C61 13015 0001:00003C63 + 13017 0001:00003C65 13018 0001:00003C67 13020 0001:00003C69 13021 0001:00003C6B + 13022 0001:00003C6D 13024 0001:00003C6F 13025 0001:00003C73 13027 0001:00003C75 + 13028 0001:00003C78 13029 0001:00003C7B 13030 0001:00003C7C 13031 0001:00003C7E + 13032 0001:00003C83 13033 0001:00003C84 13034 0001:00003C87 13035 0001:00003C89 + 13036 0001:00003C8C 13037 0001:00003C90 13040 0001:00003C92 13041 0001:00003C94 + 13042 0001:00003C99 13044 0001:00003C9B 13045 0001:00003C9D 13046 0001:00003C9F + 13048 0001:00003CA1 13049 0001:00003CA3 13050 0001:00003CA6 13051 0001:00003CA8 + 13052 0001:00003CAA 13055 0001:00003CAC 13058 0001:00003CB1 13059 0001:00003CB3 + 13060 0001:00003CB8 13063 0001:00003CBA 13064 0001:00003CBB 13065 0001:00003CBC + 13066 0001:00003CBD 13075 0001:00003CC0 13076 0001:00003CC1 13077 0001:00003CC2 + 13079 0001:00003CC3 13080 0001:00003CC5 13081 0001:00003CC7 13083 0001:00003CC9 + 13084 0001:00003CCB 13086 0001:00003CD0 13087 0001:00003CD2 13089 0001:00003CD4 + 13090 0001:00003CD6 13092 0001:00003CDB 13094 0001:00003CDD 13095 0001:00003CDF + 13097 0001:00003CE1 13100 0001:00003CE6 13101 0001:00003CE7 13102 0001:00003CE8 + 13104 0001:00003CE9 13220 0001:00003CEC 13221 0001:00003CEE 13222 0001:00003CF3 + 13233 0001:00003CF4 13234 0001:00003CF6 13235 0001:00003CF8 13236 0001:00003CF9 + 13237 0001:00003CFB 13238 0001:00003D00 13239 0001:00003D02 13241 0001:00003D08 + 13265 0001:00003D0C 13266 0001:00003D0E 13267 0001:00003D10 13268 0001:00003D12 + 13269 0001:00003D13 13272 0001:00003D18 13286 0001:00003D1C 13287 0001:00003D1E + 13288 0001:00003D20 13289 0001:00003D22 13290 0001:00003D28 13291 0001:00003D29 + 13292 0001:00003D2A 13293 0001:00003D2F 13295 0001:00003D30 13307 0001:00003D34 + 13308 0001:00003D35 13309 0001:00003D36 13310 0001:00003D38 13311 0001:00003D3A + 13312 0001:00003D3C 13313 0001:00003D3E 13314 0001:00003D40 13315 0001:00003D46 + 13316 0001:00003D47 13317 0001:00003D4C 13318 0001:00003D4F 13319 0001:00003D50 + 13320 0001:00003D52 13321 0001:00003D53 13322 0001:00003D54 13336 0001:00003D58 + 13337 0001:00003D5A 13338 0001:00003D60 13339 0001:00003D63 13340 0001:00003D65 + 13341 0001:00003D6B 13342 0001:00003D6C 13343 0001:00003D6D 13344 0001:00003D6E + 13345 0001:00003D73 13346 0001:00003D75 13347 0001:00003D7B 13366 0001:00003D7C + 13367 0001:00003D91 13369 0001:00003D95 13370 0001:00003D9C 13372 0001:00003D9E + 13374 0001:00003DA9 13375 0001:00003DBE 13377 0001:00003DC2 13378 0001:00003DCF + 13382 0001:00003DD1 13383 0001:00003DD3 13384 0001:00003DDC 13385 0001:00003DEC + 13386 0001:00003DF2 13387 0001:00003DFB 13411 0001:00003E08 13412 0001:00003E0A + 13414 0001:00003E10 13416 0001:00003E11 13417 0001:00003E12 13418 0001:00003E13 + 13419 0001:00003E18 13420 0001:00003E1A 13422 0001:00003E20 13423 0001:00003E21 + 13424 0001:00003E23 13426 0001:00003E25 13427 0001:00003E2A 13485 0001:00003E2C + 13486 0001:00003E2E 13487 0001:00003E30 13488 0001:00003E32 13489 0001:00003E33 + 13490 0001:00003E36 13491 0001:00003E38 13492 0001:00003E3C 13493 0001:00003E3E + 13494 0001:00003E42 13495 0001:00003E44 13496 0001:00003E48 13497 0001:00003E4A + 13498 0001:00003E4D 13499 0001:00003E4F 13500 0001:00003E52 13501 0001:00003E55 + 13502 0001:00003E58 13503 0001:00003E5A 13504 0001:00003E5B 13505 0001:00003E5D + 13506 0001:00003E5F 13507 0001:00003E64 13512 0001:00003E68 13513 0001:00003E6A + 13514 0001:00003E6C 13515 0001:00003E6D 13516 0001:00003E72 13557 0001:00003E74 + 13558 0001:00003E76 13559 0001:00003E78 13560 0001:00003E7A 13561 0001:00003E7D + 13562 0001:00003E82 13569 0001:00003E84 13570 0001:00003E93 13571 0001:00003EA0 + 13572 0001:00003EA7 13573 0001:00003EAD 13574 0001:00003EB1 13577 0001:00003EB5 + 13578 0001:00003EC6 13579 0001:00003ECA 13580 0001:00003ECE 13581 0001:00003ED2 + 13583 0001:00003ED4 13584 0001:00003ED6 13585 0001:00003EE5 13599 0001:00003EF0 + 13600 0001:00003EF2 13601 0001:00003EF4 13605 0001:00003EF5 13606 0001:00003EF6 + 13607 0001:00003EF8 13609 0001:00003EFD 13624 0001:00003F00 13625 0001:00003F02 + 13626 0001:00003F04 13627 0001:00003F07 13629 0001:00003F09 13636 0001:00003F0C + 13637 0001:00003F16 13638 0001:00003F1F 13640 0001:00003F23 13641 0001:00003F2F + 13642 0001:00003F39 13643 0001:00003F3D 13644 0001:00003F4D 13645 0001:00003F5B + 13647 0001:00003F65 13673 0001:00003F6C 13674 0001:00003F6D 13675 0001:00003F6E + 13676 0001:00003F6F 13677 0001:00003F70 13679 0001:00003F72 13681 0001:00003F74 + 13682 0001:00003F78 13683 0001:00003F7A 13684 0001:00003F7C 13686 0001:00003F7F + 13687 0001:00003F80 13689 0001:00003F82 13690 0001:00003F84 13691 0001:00003F89 + 13692 0001:00003F8A 13695 0001:00003F8C 13696 0001:00003F90 13697 0001:00003F92 + 13698 0001:00003F94 13699 0001:00003F96 13700 0001:00003F99 13701 0001:00003F9B + 13703 0001:00003FA0 13704 0001:00003FA1 13706 0001:00003FA3 13707 0001:00003FA4 + 13708 0001:00003FA5 13710 0001:00003FAA 13711 0001:00003FAB 13712 0001:00003FAC + 13713 0001:00003FAD 13714 0001:00003FAE 13715 0001:00003FB1 13716 0001:00003FB3 + 13723 0001:00003FB4 13724 0001:00003FB5 13725 0001:00003FB6 13727 0001:00003FB7 + 13728 0001:00003FB9 13730 0001:00003FBB 13731 0001:00003FBD 13733 0001:00003FBF + 13734 0001:00003FC1 13736 0001:00003FC3 13737 0001:00003FC5 13739 0001:00003FC7 + 13740 0001:00003FCA 13742 0001:00003FCD 13743 0001:00003FCF 13744 0001:00003FD1 + 13747 0001:00003FD3 13748 0001:00003FD4 13749 0001:00003FD7 13751 0001:00003FD9 + 13752 0001:00003FDB 13753 0001:00003FDD 13754 0001:00003FDF 13755 0001:00003FE1 + 13756 0001:00003FE2 13757 0001:00003FE4 13758 0001:00003FE7 13759 0001:00003FEA + 13760 0001:00003FEC 13761 0001:00003FEE 13762 0001:00003FF1 13763 0001:00003FF4 + 13764 0001:00003FF5 13765 0001:00003FF7 13767 0001:00003FF9 13768 0001:00003FFC + 13770 0001:00003FFF 13771 0001:00004000 13772 0001:00004003 13774 0001:00004005 + 13775 0001:00004008 13776 0001:0000400B 13777 0001:0000400E 13780 0001:00004010 + 13781 0001:00004012 13784 0001:00004014 13785 0001:00004017 13786 0001:00004019 + 13789 0001:0000401B 13790 0001:0000401E 13791 0001:00004020 13794 0001:00004022 + 13795 0001:00004023 13796 0001:00004026 13797 0001:00004028 13798 0001:0000402B + 13799 0001:0000402E 13802 0001:00004031 13803 0001:00004032 13804 0001:00004033 + 13805 0001:00004034 13811 0001:00004038 13812 0001:00004044 13813 0001:0000404B + 13815 0001:00004054 13816 0001:00004055 13818 0001:0000405B 13820 0001:00004063 + 13821 0001:00004065 13823 0001:0000406B 13824 0001:0000407A 13883 0001:00004084 + 13884 0001:00004086 13886 0001:00004088 13887 0001:0000408A 13889 0001:0000408C + 13890 0001:0000408D 13891 0001:0000408E 13893 0001:0000408F 13894 0001:00004091 + 13896 0001:00004093 13897 0001:00004096 13899 0001:00004098 13901 0001:00004099 + 13902 0001:0000409C 13904 0001:0000409E 13905 0001:0000409F 13906 0001:000040A1 + 13907 0001:000040A4 13909 0001:000040A7 13911 0001:000040A9 13913 0001:000040AB + 13914 0001:000040AE 13915 0001:000040B0 13916 0001:000040B2 13917 0001:000040B3 + 13919 0001:000040B4 13920 0001:000040B6 13921 0001:000040B9 13922 0001:000040BA + 13923 0001:000040BB 13924 0001:000040BD 13925 0001:000040BF 13928 0001:000040C1 + 13929 0001:000040C2 13930 0001:000040C4 13933 0001:000040C6 13934 0001:000040C8 + 13937 0001:000040C9 13938 0001:000040CA 13939 0001:000040CC 13940 0001:000040CE + 13942 0001:000040D0 13943 0001:000040D1 13944 0001:000040D2 13946 0001:000040D3 + 13953 0001:000040D4 13954 0001:000040DB 13955 0001:000040DD 13957 0001:000040E1 + 13958 0001:000040EA 13959 0001:000040F1 13961 0001:000040F5 13962 0001:000040FB + 13965 0001:00004108 13966 0001:00004111 13990 0001:00004118 13991 0001:0000411A + 13992 0001:0000411C 13993 0001:0000411E 13994 0001:0000411F 13995 0001:00004122 + 13996 0001:00004124 13997 0001:00004125 13998 0001:00004126 13999 0001:0000412B + 14000 0001:0000412C 14001 0001:0000412E 14002 0001:00004134 14004 0001:00004136 + 14053 0001:00004138 14055 0001:0000413A 14056 0001:0000413B 14058 0001:0000413E + 14059 0001:0000413F 14061 0001:00004140 14062 0001:00004142 14063 0001:00004146 + 14067 0001:0000414A 14068 0001:0000414C 14069 0001:0000414F 14070 0001:00004151 + 14071 0001:00004153 14072 0001:00004158 14073 0001:0000415D 14074 0001:00004160 + 14075 0001:00004161 14077 0001:00004163 14078 0001:00004164 14079 0001:00004165 + 14080 0001:00004166 14147 0001:00004168 14148 0001:0000416A 14150 0001:00004170 + 14151 0001:00004171 14152 0001:00004172 14153 0001:00004173 14154 0001:00004175 + 14155 0001:00004177 14157 0001:00004179 14158 0001:0000417B 14159 0001:0000417D + 14160 0001:00004180 14162 0001:00004182 14163 0001:00004184 14164 0001:00004186 + 14165 0001:00004188 14166 0001:0000418A 14167 0001:0000418C 14168 0001:0000418E + 14169 0001:00004190 14170 0001:00004192 14171 0001:00004194 14172 0001:00004196 + 14173 0001:00004198 14174 0001:0000419A 14175 0001:0000419C 14176 0001:0000419E + 14177 0001:000041A0 14178 0001:000041A1 14179 0001:000041A2 14180 0001:000041A3 + 14186 0001:000041A8 14187 0001:000041AA 14188 0001:000041AD 14189 0001:000041AE + 14190 0001:000041B0 14193 0001:000041B2 14194 0001:000041B4 14195 0001:000041B7 + 14196 0001:000041BA 14197 0001:000041BD 14198 0001:000041C0 14199 0001:000041C1 + 14200 0001:000041C3 14203 0001:000041C5 14204 0001:000041C6 14206 0001:000041C8 + 14207 0001:000041CC 14208 0001:000041CE 14209 0001:000041D2 14210 0001:000041D6 + 14211 0001:000041D8 14212 0001:000041DD 14213 0001:000041DE 14214 0001:000041E0 + 14215 0001:000041E1 14218 0001:000041E3 14219 0001:000041E4 14221 0001:000041E6 + 14222 0001:000041E8 14223 0001:000041EC 14224 0001:000041EE 14225 0001:000041F3 + 14226 0001:000041F4 14227 0001:000041F6 14231 0001:000041F7 14232 0001:000041F8 + 14233 0001:000041F9 14235 0001:000041FA 14245 0001:000041FC 14246 0001:00004201 + 14247 0001:00004206 14265 0001:00004208 14267 0001:0000420A 14268 0001:0000420B + 14270 0001:0000420E 14271 0001:0000420F 14273 0001:00004210 14274 0001:00004212 + 14275 0001:00004216 14279 0001:0000421A 14280 0001:0000421C 14281 0001:0000421F + 14282 0001:00004221 14283 0001:00004223 14284 0001:00004228 14285 0001:0000422D + 14286 0001:00004230 14287 0001:00004231 14289 0001:00004233 14291 0001:00004235 + 14292 0001:00004236 14293 0001:00004237 14294 0001:00004238 14299 0001:0000423C + 14300 0001:00004245 14302 0001:0000424C 14303 0001:00004253 14370 0001:00004254 + 14371 0001:00004257 14373 0001:0000425D 14374 0001:0000425E 14375 0001:0000425F + 14376 0001:00004260 14377 0001:00004261 14378 0001:00004263 14379 0001:00004265 + 14381 0001:00004267 14382 0001:00004269 14383 0001:0000426B 14385 0001:0000426E + 14386 0001:00004270 14388 0001:00004272 14389 0001:00004274 14391 0001:00004276 + 14392 0001:00004278 14394 0001:0000427A 14395 0001:0000427C 14397 0001:0000427E + 14398 0001:00004280 14400 0001:00004282 14401 0001:00004284 14403 0001:0000428A + 14404 0001:0000428C 14406 0001:00004292 14409 0001:00004297 14410 0001:0000429A + 14411 0001:0000429C 14412 0001:0000429E 14413 0001:000042A3 14415 0001:000042A8 + 14416 0001:000042AA 14417 0001:000042AF 14420 0001:000042B4 14421 0001:000042B7 + 14422 0001:000042B9 14423 0001:000042BB 14424 0001:000042C0 14426 0001:000042C2 + 14427 0001:000042C4 14428 0001:000042C9 14430 0001:000042CB 14431 0001:000042CD + 14432 0001:000042D0 14433 0001:000042D5 14434 0001:000042D6 14435 0001:000042D8 + 14437 0001:000042DA 14438 0001:000042DB 14440 0001:000042DD 14441 0001:000042E1 + 14442 0001:000042E3 14443 0001:000042E7 14444 0001:000042EB 14445 0001:000042ED + 14446 0001:000042F2 14447 0001:000042F3 14448 0001:000042F5 14449 0001:000042F6 + 14452 0001:000042F8 14453 0001:000042F9 14457 0001:000042FB 14458 0001:000042FD + 14459 0001:00004301 14460 0001:00004303 14461 0001:00004308 14462 0001:00004309 + 14463 0001:0000430B 14464 0001:0000430C 14467 0001:0000430E 14468 0001:00004310 + 14469 0001:00004313 14470 0001:00004318 14471 0001:00004319 14472 0001:0000431B + 14475 0001:0000431D 14476 0001:0000431F 14477 0001:00004321 14478 0001:00004324 + 14479 0001:00004329 14480 0001:0000432A 14481 0001:0000432C 14484 0001:0000432E + 14485 0001:0000432F 14486 0001:00004330 14487 0001:00004331 14488 0001:00004332 + 14489 0001:00004334 14492 0001:00004339 14493 0001:0000433A 14494 0001:0000433B + 14495 0001:0000433C 14497 0001:0000433D 14507 0001:00004340 14508 0001:00004345 + 14509 0001:0000434A 14517 0001:0000434C 14519 0001:0000434E 14520 0001:0000434F + 14522 0001:00004352 14523 0001:00004353 14525 0001:00004354 14526 0001:00004356 + 14527 0001:0000435A 14531 0001:0000435E 14532 0001:00004360 14533 0001:00004363 + 14534 0001:00004365 14535 0001:00004367 14536 0001:0000436C 14537 0001:00004371 + 14538 0001:00004374 14539 0001:00004375 14541 0001:00004377 14542 0001:00004378 + 14543 0001:00004379 14544 0001:0000437A 14548 0001:0000437C 14549 0001:00004385 + 14551 0001:0000438C 14552 0001:00004393 14565 0001:00004394 14566 0001:00004395 + 14567 0001:00004396 14569 0001:00004397 14570 0001:00004399 14572 0001:0000439F + 14573 0001:000043A1 14574 0001:000043A3 14576 0001:000043A5 14577 0001:000043A7 + 14578 0001:000043A9 14580 0001:000043AC 14581 0001:000043AE 14582 0001:000043B0 + 14583 0001:000043B2 14584 0001:000043B4 14585 0001:000043B6 14586 0001:000043B8 + 14587 0001:000043BA 14588 0001:000043BC 14589 0001:000043BE 14590 0001:000043C0 + 14591 0001:000043C2 14592 0001:000043C4 14593 0001:000043C6 14594 0001:000043C8 + 14595 0001:000043CA 14596 0001:000043CB 14597 0001:000043CC 14598 0001:000043CD + 14604 0001:000043D2 14605 0001:000043D4 14606 0001:000043D7 14607 0001:000043DC + 14608 0001:000043DD 14609 0001:000043DF 14613 0001:000043E1 14614 0001:000043E3 + 14615 0001:000043E6 14616 0001:000043EB 14617 0001:000043EC 14618 0001:000043EE + 14621 0001:000043F0 14622 0001:000043F2 14623 0001:000043F5 14624 0001:000043FA + 14625 0001:000043FB 14626 0001:000043FD 14629 0001:000043FF 14630 0001:00004400 + 14632 0001:00004402 14633 0001:00004406 14634 0001:00004408 14635 0001:0000440C + 14636 0001:00004410 14637 0001:00004412 14638 0001:00004417 14639 0001:00004418 + 14640 0001:0000441A 14641 0001:0000441B 14644 0001:0000441D 14645 0001:0000441E + 14647 0001:00004420 14648 0001:00004422 14649 0001:00004426 14650 0001:00004428 + 14651 0001:0000442D 14652 0001:0000442E 14653 0001:00004430 14654 0001:00004431 + 14657 0001:00004433 14658 0001:00004435 14659 0001:00004438 14660 0001:0000443D + 14661 0001:0000443E 14662 0001:00004440 14665 0001:00004442 14666 0001:00004444 + 14667 0001:00004447 14668 0001:0000444C 14669 0001:0000444D 14672 0001:0000444F + 14673 0001:00004450 14674 0001:00004451 14675 0001:00004452 14686 0001:00004454 + 14687 0001:0000445D 14689 0001:00004464 14690 0001:0000446B 14698 0001:0000446C + 14699 0001:0000446D 14700 0001:0000446E 14701 0001:0000446F 14703 0001:00004470 + 14704 0001:00004472 14706 0001:00004474 14707 0001:00004476 14709 0001:00004479 + 14710 0001:0000447D 14711 0001:00004480 14712 0001:00004482 14713 0001:00004485 + 14715 0001:00004486 14716 0001:00004489 14717 0001:0000448B 14718 0001:0000448D + 14719 0001:0000448F 14720 0001:00004491 14721 0001:00004493 14723 0001:00004498 + 14725 0001:0000449B 14726 0001:0000449D 14727 0001:0000449F 14729 0001:000044A1 + 14730 0001:000044A4 14731 0001:000044A6 14732 0001:000044A9 14733 0001:000044AB + 14734 0001:000044AE 14735 0001:000044B0 14736 0001:000044B3 14737 0001:000044B5 + 14738 0001:000044B8 14739 0001:000044BA 14740 0001:000044BD 14741 0001:000044C3 + 14742 0001:000044C6 14743 0001:000044CC 14744 0001:000044CE 14745 0001:000044CF + 14746 0001:000044D0 14747 0001:000044D1 14748 0001:000044D2 14751 0001:000044D7 + 14752 0001:000044DA 14753 0001:000044DC 14754 0001:000044E1 14755 0001:000044E6 + 14758 0001:000044E8 14759 0001:000044EB 14760 0001:000044ED 14761 0001:000044F2 + 14762 0001:000044F7 14765 0001:000044F9 14766 0001:000044FC 14767 0001:000044FE + 14768 0001:00004503 14769 0001:00004508 14772 0001:0000450A 14773 0001:0000450C + 14774 0001:0000450F 14775 0001:00004513 14776 0001:00004517 14777 0001:0000451B + 14778 0001:0000451D 14779 0001:00004520 14780 0001:00004522 14781 0001:00004527 + 14782 0001:00004528 14785 0001:0000452A 14786 0001:0000452C 14787 0001:0000452F + 14788 0001:00004533 14789 0001:00004534 14790 0001:00004536 14791 0001:00004539 + 14792 0001:0000453B 14793 0001:00004540 14794 0001:00004541 14797 0001:00004543 + 14798 0001:00004546 14799 0001:00004548 14800 0001:0000454D 14801 0001:00004552 + 14804 0001:00004554 14805 0001:00004556 14806 0001:00004559 14807 0001:0000455B + 14808 0001:00004560 14811 0001:00004565 14812 0001:00004568 14813 0001:0000456B + 14814 0001:0000456C 14816 0001:00004572 14817 0001:00004573 14818 0001:00004575 + 14819 0001:00004577 14820 0001:0000457A 14821 0001:0000457C 14824 0001:00004581 + 14825 0001:00004582 14826 0001:00004583 14827 0001:00004584 14828 0001:00004585 + 14855 0001:00004588 14856 0001:00004589 14857 0001:0000458A 14858 0001:0000458B + 14860 0001:0000458C 14861 0001:0000458E 14862 0001:00004590 14863 0001:00004592 + 14865 0001:00004596 14867 0001:00004598 14868 0001:0000459B 14869 0001:0000459D + 14870 0001:000045A0 14871 0001:000045A2 14872 0001:000045A5 14873 0001:000045A7 + 14874 0001:000045AA 14875 0001:000045AC 14876 0001:000045AF 14877 0001:000045B1 + 14878 0001:000045B4 14879 0001:000045BA 14880 0001:000045BD 14881 0001:000045C3 + 14882 0001:000045C5 14883 0001:000045C6 14884 0001:000045C7 14885 0001:000045C8 + 14886 0001:000045C9 14889 0001:000045CE 14890 0001:000045D0 14891 0001:000045D2 + 14892 0001:000045D7 14893 0001:000045DA 14894 0001:000045DD 14895 0001:000045DE + 14896 0001:000045E0 14899 0001:000045E5 14900 0001:000045E7 14901 0001:000045E9 + 14902 0001:000045EE 14903 0001:000045F1 14904 0001:000045F4 14905 0001:000045F5 + 14906 0001:000045F7 14909 0001:000045F9 14910 0001:000045FB 14911 0001:000045FD + 14912 0001:00004602 14913 0001:00004605 14914 0001:00004608 14915 0001:00004609 + 14916 0001:0000460B 14919 0001:0000460D 14920 0001:0000460F 14921 0001:00004612 + 14923 0001:00004616 14924 0001:00004618 14925 0001:0000461A 14926 0001:0000461D + 14927 0001:00004620 14928 0001:00004625 14929 0001:00004627 14930 0001:00004629 + 14931 0001:0000462A 14932 0001:0000462C 14935 0001:0000462E 14936 0001:00004630 + 14937 0001:00004632 14938 0001:00004634 14939 0001:00004639 14940 0001:0000463B + 14941 0001:0000463E 14942 0001:00004642 14943 0001:00004646 14944 0001:00004647 + 14945 0001:00004649 14948 0001:0000464B 14949 0001:0000464D 14950 0001:0000464F + 14951 0001:00004654 14952 0001:00004657 14953 0001:0000465A 14954 0001:0000465B + 14955 0001:0000465D 14958 0001:0000465F 14959 0001:00004661 14960 0001:00004663 + 14961 0001:00004665 14962 0001:0000466A 14963 0001:0000466D 14964 0001:00004670 + 14965 0001:00004671 14968 0001:00004673 14969 0001:00004674 14970 0001:00004675 + 14971 0001:00004676 14972 0001:00004677 14973 0001:0000467A 14988 0001:0000467C + 14989 0001:0000467D 14990 0001:00004682 14991 0001:00004683 14992 0001:00004685 + 14993 0001:00004687 14994 0001:00004688 14995 0001:0000468D 14997 0001:0000468E + 15011 0001:00004690 15012 0001:00004691 15013 0001:00004696 15014 0001:00004697 + 15015 0001:0000469C 15040 0001:000046A0 15041 0001:000046A8 15060 0001:000046AC + 15061 0001:000046B3 15062 0001:000046C9 15065 0001:000046D0 15066 0001:000046D4 + 15067 0001:000046D9 15068 0001:000046EE 15106 0001:000046F4 15107 0001:000046F6 + 15108 0001:000046FB 15127 0001:000046FC 15128 0001:000046FD 15133 0001:000046FE + 15134 0001:00004702 15135 0001:00004705 15137 0001:00004707 15138 0001:0000470B + 15139 0001:0000470F 15141 0001:00004711 15142 0001:00004714 15143 0001:00004718 + 15145 0001:0000471A 15146 0001:0000471B 15148 0001:0000471C 15149 0001:0000471F + 15203 0001:00004720 15204 0001:00004721 15205 0001:00004722 15206 0001:00004723 + 15207 0001:00004724 15209 0001:00004726 15210 0001:0000472A 15212 0001:0000472E + 15213 0001:00004730 15215 0001:00004732 15216 0001:00004734 15218 0001:00004736 + 15219 0001:00004738 15232 0001:0000473A 15233 0001:0000473C 15234 0001:0000473E + 15235 0001:00004740 15236 0001:00004742 15237 0001:00004745 15240 0001:00004748 + 15241 0001:0000474A 15242 0001:0000474C 15243 0001:0000474E 15244 0001:00004750 + 15245 0001:00004753 15248 0001:00004756 15249 0001:00004758 15250 0001:0000475D + 15262 0001:0000475E 15263 0001:00004760 15266 0001:00004762 15267 0001:00004764 + 15268 0001:00004766 15269 0001:00004768 15270 0001:0000476A 15271 0001:0000476C + 15272 0001:0000476E 15273 0001:00004770 15274 0001:00004772 15277 0001:00004774 + 15278 0001:00004776 15279 0001:00004778 15282 0001:00004779 15289 0001:0000477B + 15290 0001:0000477C 15291 0001:00004782 15292 0001:00004784 15293 0001:00004786 + 15294 0001:00004788 15297 0001:0000478B 15298 0001:0000478C 15299 0001:0000478D + 15300 0001:0000478E 15301 0001:0000478F 15304 0001:00004792 15305 0001:00004794 + 15306 0001:00004796 15307 0001:00004798 15447 0001:0000479C 15448 0001:0000479D + 15449 0001:0000479E 15450 0001:0000479F 15451 0001:000047A0 15456 0001:000047A2 + 15457 0001:000047A6 15458 0001:000047AA 15459 0001:000047AC 15461 0001:000047AE + 15462 0001:000047B0 15464 0001:000047B2 15465 0001:000047B4 15476 0001:000047B6 + 15477 0001:000047B8 15478 0001:000047BA 15479 0001:000047BC 15480 0001:000047BE + 15481 0001:000047C1 15484 0001:000047C4 15485 0001:000047C6 15486 0001:000047C8 + 15487 0001:000047CA 15488 0001:000047CC 15491 0001:000047CF 15492 0001:000047D1 + 15493 0001:000047D6 15505 0001:000047D7 15506 0001:000047D9 15509 0001:000047DB + 15510 0001:000047DD 15511 0001:000047DF 15512 0001:000047E1 15513 0001:000047E3 + 15514 0001:000047E5 15515 0001:000047E7 15516 0001:000047E9 15517 0001:000047EB + 15520 0001:000047ED 15521 0001:000047EF 15522 0001:000047F1 15525 0001:000047F2 + 15532 0001:000047F4 15533 0001:000047F6 15535 0001:000047F8 15536 0001:000047F9 + 15537 0001:000047FF 15538 0001:00004801 15539 0001:00004803 15540 0001:00004805 + 15543 0001:00004808 15544 0001:00004809 15545 0001:0000480A 15546 0001:0000480B + 15547 0001:0000480C 15550 0001:0000480F 15551 0001:00004811 15552 0001:00004812 + 15553 0001:00004814 15554 0001:00004816 15694 0001:00004818 15695 0001:0000481B + 15696 0001:0000481D 15697 0001:00004820 15698 0001:00004822 15699 0001:00004824 + 15700 0001:00004826 15703 0001:00004827 15704 0001:00004829 15705 0001:0000482B + 15706 0001:0000482D 15709 0001:0000482E 15710 0001:00004831 15711 0001:00004833 + 15712 0001:00004834 15748 0001:00004838 15749 0001:0000483B 15750 0001:0000483D + 15751 0001:00004840 15752 0001:00004842 15753 0001:00004844 15754 0001:00004846 + 15757 0001:00004847 15758 0001:00004849 15759 0001:0000484B 15760 0001:0000484D + 15763 0001:0000484E 15764 0001:00004851 15765 0001:00004853 15766 0001:00004854 + 15916 0001:00004858 15917 0001:00004864 15918 0001:00004869 15919 0001:0000486B + 15920 0001:0000487B 15922 0001:0000487F 15923 0001:00004884 15926 0001:00004889 + 15925 0001:0000488A 15927 0001:00004891 15928 0001:00004896 15930 0001:0000489E + 15931 0001:000048A3 15933 0001:000048A6 15934 0001:000048AA 15935 0001:000048AB + 15936 0001:000048AD 15939 0001:000048DC 15940 0001:000048E3 15941 0001:000048E4 + 15944 0001:000048E5 15945 0001:00004905 15946 0001:00004912 15947 0001:0000491F + 15951 0001:0000492A 15953 0001:00004951 15954 0001:00004977 15955 0001:00004978 + 15942 0001:0000497A 15957 0001:0000497F 15958 0001:0000498A 15964 0001:000049A6 + 15965 0001:000049B4 15969 0001:000049BF 15971 0001:000049E9 15972 0001:00004A11 + 15973 0001:00004A12 15962 0001:00004A14 15975 0001:00004A16 15976 0001:00004A1D + 15977 0001:00004A34 15978 0001:00004A5C 15980 0001:00004A5D 15981 0001:00004A69 + 15983 0001:00004A70 15984 0001:00004A7F 15991 0001:00004A88 15992 0001:00004A8A + 15993 0001:00004A8C 15995 0001:00004A8F 16002 0001:00004A90 16003 0001:00004A95 + 16004 0001:00004A96 16007 0001:00004A98 16008 0001:00004A9B 16009 0001:00004A9E + 16010 0001:00004AA3 16014 0001:00004AA8 16015 0001:00004AAD 16019 0001:00004AB0 + 16020 0001:00004AB5 16029 0001:00004AB8 16030 0001:00004AC9 16033 0001:00004ACE + 16034 0001:00004AD3 16036 0001:00004AD7 16037 0001:00004ADB 16038 0001:00004AE2 + 16039 0001:00004AEC 16042 0001:00004AF1 16043 0001:00004AF6 16045 0001:00004AFA + 16046 0001:00004AFD 16047 0001:00004B02 16051 0001:00004B05 16052 0001:00004B0C + 16053 0001:00004B14 16054 0001:00004B1B 16056 0001:00004B1F 16057 0001:00004B21 + 16058 0001:00004B29 16059 0001:00004B34 16060 0001:00004B3B 16063 0001:00004B3F + 16065 0001:00004B48 16066 0001:00004B4B 16067 0001:00004B54 16068 0001:00004B6D + 16069 0001:00004B78 16073 0001:00004B7D 16074 0001:00004B7F 16075 0001:00004B89 + 16076 0001:00004B8F 16077 0001:00004B94 16078 0001:00004B97 16080 0001:00004B9B + 16081 0001:00004BAE 16084 0001:00004BC5 16088 0001:00004BDB 16089 0001:00004BE1 + 16090 0001:00004BE4 16091 0001:00004BE6 16094 0001:00004BE9 16097 0001:00004C02 + 16099 0001:00004C08 16100 0001:00004C0C 16101 0001:00004C0F 16102 0001:00004C1C + 16101 0001:00004C33 16104 0001:00004C36 16105 0001:00004C3B 16114 0001:00004C44 + 16115 0001:00004C45 16116 0001:00004C49 16117 0001:00004C4E 16120 0001:00004C50 + 16121 0001:00004C51 16122 0001:00004C55 16124 0001:00004C67 16125 0001:00004C6E + 16133 0001:00004C70 16134 0001:00004C84 16135 0001:00004C86 16137 0001:00004C90 + 16140 0001:00004C96 16142 0001:00004C9A 16143 0001:00004C9C 16145 0001:00004C9E + 16146 0001:00004CA6 16147 0001:00004CAA 16148 0001:00004CAC 16149 0001:00004CB4 + 16150 0001:00004CB6 16151 0001:00004CBA 16153 0001:00004CBC 16156 0001:00004CC4 + 16157 0001:00004CCE 16158 0001:00004CD7 16159 0001:00004CE1 16161 0001:00004CE8 + 16164 0001:00004CED 16167 0001:00004CFC 16168 0001:00004D02 16169 0001:00004D05 + 16170 0001:00004D07 16171 0001:00004D0A 16175 0001:00004D11 16177 0001:00004D15 + 16179 0001:00004D1B 16180 0001:00004D2A 16183 0001:00004D3A 16187 0001:00004D4A + 16188 0001:00004D55 16189 0001:00004D5A 16197 0001:00004D64 16198 0001:00004D66 + 16199 0001:00004D68 16202 0001:00004D6A 16205 0001:00004D70 16206 0001:00004D74 + 16209 0001:00004D76 16210 0001:00004D77 16213 0001:00004D79 16214 0001:00004D7B + 16215 0001:00004D7E 16218 0001:00004D82 16219 0001:00004D84 16220 0001:00004D86 + 16221 0001:00004D89 16222 0001:00004D8B 16223 0001:00004D8D 16224 0001:00004D8F + 16227 0001:00004D94 16228 0001:00004D97 16229 0001:00004D9C 16231 0001:00004D9D + 16240 0001:00004DA0 16241 0001:00004DA1 16245 0001:00004DA3 16246 0001:00004DA5 + 16247 0001:00004DA7 16250 0001:00004DAB 16251 0001:00004DAD 16252 0001:00004DAF + 16253 0001:00004DB3 16254 0001:00004DB5 16255 0001:00004DB6 16256 0001:00004DB7 + 16257 0001:00004DB9 16258 0001:00004DBC 16259 0001:00004DC1 16260 0001:00004DC2 + 16263 0001:00004DC3 16265 0001:00004DC5 16266 0001:00004DC6 16271 0001:00004DC8 + 16272 0001:00004DCA 16273 0001:00004DCC 16275 0001:00004DD0 16493 0001:00004DD4 + 16494 0001:00004DD7 16495 0001:00004DE4 16496 0001:00004DEE 16498 0001:00004DF4 + 16499 0001:00004DF6 16515 0001:00004DFC 16516 0001:00004E01 16670 0001:00004E04 + 16671 0001:00004E0E 16673 0001:00004E14 16674 0001:00004E27 16675 0001:00004E35 + 16676 0001:00004E39 16678 0001:00004E3F 16679 0001:00004E42 16685 0001:00004E4C + 16686 0001:00004E52 16688 0001:00004E56 16692 0001:00004E65 16693 0001:00004E6C + 16695 0001:00004E6D 16686 0001:00004E6F 16698 0001:00004E73 16774 0001:00004E74 + 16776 0001:00004E76 16775 0001:00004E7C 16777 0001:00004E87 16787 0001:00004E88 + 16788 0001:00004E9A 16789 0001:00004EA0 16790 0001:00004EAC 16792 0001:00004EB0 + 16793 0001:00004EBD 16796 0001:00004ED7 16797 0001:00004EEB 16801 0001:00004EF0 + 16803 0001:00004EF8 16804 0001:00004F05 16805 0001:00004F12 16806 0001:00004F1B + 16807 0001:00004F25 16809 0001:00004F30 16811 0001:00004F36 16812 0001:00004F3B + 16815 0001:00004F54 16816 0001:00004F5E 16817 0001:00004F73 16819 0001:00004F84 + 16820 0001:00004F99 16821 0001:00004F9E 16823 0001:00004FA4 16824 0001:00004FBD + 16825 0001:00004FC5 16826 0001:00004FE4 16827 0001:00004FF3 16813 0001:00004FF5 + 16829 0001:00004FFE 16830 0001:00005015 16831 0001:00005040 16832 0001:0000504E + 16833 0001:00005061 16834 0001:00005065 16837 0001:000050C3 16838 0001:000050D1 + 16839 0001:000050D8 16840 0001:000050E8 16841 0001:00005108 16842 0001:00005126 + 16843 0001:0000512A 16845 0001:0000513B 16847 0001:0000514C 16848 0001:00005161 + 16849 0001:00005174 16850 0001:00005176 16852 0001:00005193 16853 0001:000051AB + 16854 0001:000051BB 16856 0001:000051C9 16858 0001:000051CA 16860 0001:000051D0 + 16861 0001:000051E6 16863 0001:000051F8 16866 0001:00005202 16867 0001:0000521E + 16868 0001:00005230 16871 0001:00005234 16872 0001:00005238 16873 0001:00005254 + 16878 0001:00005268 16883 0001:000052B0 16884 0001:000052B5 16894 0001:000052B8 + 16895 0001:000052BF 16896 0001:000052C5 16898 0001:000052C9 16899 0001:000052D4 + 16896 0001:000052D6 16901 0001:000052DA 16917 0001:000052E0 16918 0001:000052E5 + 16922 0001:000052E8 16923 0001:000052ED 16928 0001:000052F0 16929 0001:000052F3 + 16930 0001:000052FD 16931 0001:00005305 16932 0001:00005308 16933 0001:0000530D + 16938 0001:00005310 16939 0001:00005312 16940 0001:00005318 16942 0001:00005323 + 16943 0001:0000532F 16946 0001:0000533E 16947 0001:00005340 16949 0001:00005344 + 16951 0001:00005351 16952 0001:00005353 16953 0001:00005357 16954 0001:00005363 + 16956 0001:00005365 16947 0001:00005367 16959 0001:0000536B 16964 0001:00005370 + 16965 0001:0000537C 16966 0001:00005384 16968 0001:0000538A 16969 0001:00005398 + 16972 0001:000053B0 16973 0001:000053B5 16966 0001:000053BD 16978 0001:000053C3 + 16982 0001:000053CC 16983 0001:000053D4 16984 0001:000053D9 16989 0001:000053DC + 16990 0001:000053E3 16991 0001:000053F1 16993 0001:00005409 16994 0001:00005414 + 16997 0001:00005420 16998 0001:00005425 17000 0001:00005429 17002 0001:00005430 + 17003 0001:00005437 17005 0001:00005439 16998 0001:0000543B 17009 0001:00005447 + 17026 0001:0000544C 17027 0001:0000544E 17028 0001:00005450 17029 0001:00005452 + 17030 0001:00005458 17031 0001:00005459 17032 0001:0000545A 17033 0001:0000545C + 17034 0001:0000545F 17036 0001:00005460 17069 0001:00005464 17070 0001:00005466 + 17071 0001:00005468 17072 0001:00005469 17073 0001:0000546A 17074 0001:0000546C + 17075 0001:0000546D 17076 0001:00005470 17077 0001:00005471 17078 0001:00005473 + 17079 0001:00005475 17080 0001:00005477 17081 0001:00005479 17083 0001:0000547A + 17084 0001:0000547C 17085 0001:0000547D 17086 0001:00005480 17090 0001:00005481 + 17091 0001:00005483 17092 0001:00005485 17093 0001:00005487 17094 0001:00005489 + 17095 0001:0000548B 17096 0001:0000548C 17098 0001:0000548F 17120 0001:00005490 + 17121 0001:00005492 17122 0001:00005498 17123 0001:00005499 17124 0001:0000549B + 17125 0001:0000549D 17126 0001:0000549E 17127 0001:0000549F 17128 0001:000054A0 + 17129 0001:000054A2 17130 0001:000054A4 17131 0001:000054A6 17132 0001:000054A8 + 17133 0001:000054AA 17134 0001:000054AF 17135 0001:000054B1 17136 0001:000054B3 + 17137 0001:000054B5 17138 0001:000054B6 17139 0001:000054B8 17140 0001:000054BB + 17141 0001:000054BC 17142 0001:000054BE 17143 0001:000054BF 17148 0001:000054C0 + 17149 0001:000054CA 17154 0001:000054CC 17155 0001:000054D5 17159 0001:000054D8 + 17160 0001:000054DE 17161 0001:000054E5 17167 0001:000054E8 17168 0001:000054ED + 17169 0001:000054F4 17172 0001:000054F8 17173 0001:000054FF 17174 0001:00005510 + 17176 0001:00005514 17177 0001:00005519 17180 0001:00005520 17181 0001:00005526 + 17182 0001:0000552F 17185 0001:00005534 17186 0001:0000553C 17187 0001:00005547 + 17188 0001:0000554B 17189 0001:00005556 17242 0001:0000555C 17243 0001:0000555E + 17244 0001:00005560 17245 0001:00005566 17246 0001:00005568 17247 0001:0000556A + 17248 0001:0000556D 17249 0001:0000556F 17250 0001:00005571 17252 0001:00005576 + 17328 0001:00005578 17329 0001:00005586 17330 0001:00005588 17331 0001:00005592 + 17332 0001:00005594 17333 0001:00005596 17337 0001:000055A0 17338 0001:000055A7 + 17339 0001:000055A8 17341 0001:000055AD 17342 0001:000055B0 17344 0001:000055B3 + 17346 0001:000055BB 17348 0001:000055C3 17349 0001:000055CE 17350 0001:000055DD + 17351 0001:000055E7 17355 0001:000055EC 17357 0001:000055F4 17358 0001:000055FF + 17359 0001:00005609 17335 0001:0000560C 17362 0001:00005616 17363 0001:0000561F + 17367 0001:00005625 17369 0001:0000562A 17370 0001:00005631 17371 0001:00005632 + 17373 0001:00005637 17374 0001:0000563F 17375 0001:00005640 17377 0001:00005641 + 17367 0001:00005642 17380 0001:00005647 17381 0001:0000564C 17399 0001:00005654 + 17400 0001:00005665 17402 0001:0000566B 17403 0001:00005670 17405 0001:00005675 + 17406 0001:0000567C 17407 0001:0000567E 17408 0001:00005680 17412 0001:0000568F + 17413 0001:00005697 17414 0001:00005698 17416 0001:0000569D 17417 0001:000056A6 + 17418 0001:000056A9 17420 0001:000056AE 17421 0001:000056B4 17422 0001:000056B5 + 17423 0001:000056C3 17424 0001:000056CC 17426 0001:000056DC 17427 0001:000056E2 + 17428 0001:000056E3 17430 0001:000056F1 17433 0001:00005709 17434 0001:00005710 + 17410 0001:00005711 17436 0001:0000571F 17437 0001:00005728 17441 0001:00005733 + 17443 0001:00005738 17444 0001:0000573E 17445 0001:0000573F 17447 0001:00005744 + 17448 0001:00005749 17449 0001:0000574C 17451 0001:00005751 17452 0001:00005757 + 17453 0001:00005758 17454 0001:00005760 17456 0001:00005765 17457 0001:0000576B + 17458 0001:0000576C 17460 0001:00005774 17441 0001:00005775 17463 0001:0000577A + 17464 0001:00005781 17470 0001:0000578C 17471 0001:000057A5 17472 0001:000057AC + 17473 0001:000057B7 17475 0001:000057C9 17476 0001:000057F2 17477 0001:000057F6 + 17479 0001:00005803 17480 0001:0000580B 17481 0001:00005832 17487 0001:00005838 + 17488 0001:00005851 17489 0001:00005858 17490 0001:0000585C 17492 0001:0000586D + 17493 0001:00005896 17494 0001:0000589A 17496 0001:000058A7 17497 0001:000058AF + 17498 0001:000058D6 17501 0001:000058DC 17502 0001:000058F5 17503 0001:00005926 + 17776 0001:0000592C 17777 0001:00005938 17778 0001:0000593C 17779 0001:00005945 + 17783 0001:0000596F 17784 0001:00005979 17898 0001:00005984 17899 0001:0000599E + 17900 0001:000059AF 17901 0001:000059CC 17902 0001:000059D2 17903 0001:000059F3 + 17965 0001:000059F8 17966 0001:00005A1B 17967 0001:00005A25 17972 0001:00005A2F + 17974 0001:00005A49 17914 0001:00005A4C 17919 0001:00005A59 17921 0001:00005A60 + 17922 0001:00005A6A 17931 0001:00005A74 17934 0001:00005A7B 17937 0001:00005A85 + 17939 0001:00005A93 17941 0001:00005A98 17942 0001:00005AA1 17943 0001:00005AAA + 17946 0001:00005AB3 17947 0001:00005ABD 17950 0001:00005AC7 17952 0001:00005AD8 + 17953 0001:00005AE8 17956 0001:00005AF4 17960 0001:00005B05 17962 0001:00005B14 + 17964 0001:00005B1E + +Line numbers for SysInit(SysInit.pas) segment .text + + 99 0001:00005B20 102 0001:00005B28 114 0001:00005B30 117 0001:00005B38 + 128 0001:00005B40 129 0001:00005B48 285 0001:00005B4C 286 0001:00005B51 + 293 0001:00005B54 294 0001:00005B55 295 0001:00005B5C 299 0001:00005B60 + 300 0001:00005B73 301 0001:00005B7A 302 0001:00005B7E 304 0001:00005B8A + 305 0001:00005B96 359 0001:00005B98 360 0001:00005B9E 361 0001:00005BA3 + 362 0001:00005BA5 363 0001:00005BA7 364 0001:00005BAE 365 0001:00005BB1 + 368 0001:00005BB2 369 0001:00005BB7 370 0001:00005BBC 371 0001:00005BBD + 372 0001:00005BC2 373 0001:00005BC4 374 0001:00005BC6 377 0001:00005BC7 + 378 0001:00005BCC 381 0001:00005BCD 382 0001:00005BCE 383 0001:00005BD3 + 384 0001:00005BD5 385 0001:00005BD7 423 0001:00005BD8 424 0001:00005BE2 + 661 0001:00005BE4 662 0001:00005BE7 663 0001:00005BEE 664 0001:00005BFA + 665 0001:00005C04 666 0001:00005C0B 667 0001:00005C12 668 0001:00005C17 + 669 0001:00005C23 840 0001:00005C58 840 0001:00005C5F + +Line numbers for Types(Types.pas) segment .text + + 462 0001:00005D78 463 0001:00005D87 464 0001:00005D8F 465 0001:00005D98 + 466 0001:00005DA1 467 0001:00005DAA 470 0001:00005DB0 471 0001:00005DBF + 472 0001:00005DC7 473 0001:00005DD0 482 0001:00005DD4 483 0001:00005DE5 + 484 0001:00005DF3 485 0001:00005E09 486 0001:00005E23 487 0001:00005E3D + 488 0001:00005E57 489 0001:00005E64 490 0001:00005E7C 507 0001:00005E84 + 508 0001:00005E8D 509 0001:00005EB4 512 0001:00005EB8 513 0001:00005EC7 + 515 0001:00005ECE 516 0001:00005ED6 517 0001:00005EDF 518 0001:00005EE8 + 519 0001:00005EF1 522 0001:00005EF7 523 0001:00005EFE 526 0001:00005F04 + 529 0001:00005F13 530 0001:00005F1B 531 0001:00005F24 532 0001:00005F30 + 534 0001:00005F3C 537 0001:00005F44 540 0001:00005F50 541 0001:00005F6C + 543 0001:00005F8B 545 0001:00005FC0 545 0001:00005FC7 + +Line numbers for Windows(Windows.pas) segment .text + + 28478 0001:000060A8 28485 0001:000060B0 28488 0001:000060B8 28491 0001:000060C0 + 28500 0001:000060C8 28503 0001:000060D0 28512 0001:000060D8 28515 0001:000060E0 + 28524 0001:000060E8 28540 0001:000060F0 28601 0001:000060F8 28607 0001:00006100 + 28627 0001:00006108 28631 0001:00006110 28674 0001:00006118 28682 0001:00006120 + 28696 0001:00006128 28714 0001:00006130 28717 0001:00006138 28751 0001:00006140 + 28752 0001:00006148 28761 0001:00006150 28766 0001:00006158 28777 0001:00006160 + 28791 0001:00006168 28798 0001:00006170 28801 0001:00006178 28802 0001:00006180 + 28805 0001:00006188 28807 0001:00006190 28810 0001:00006198 28817 0001:000061A0 + 28830 0001:000061A8 28848 0001:000061B0 28850 0001:000061B8 28851 0001:000061C0 + 28858 0001:000061C8 28863 0001:000061D0 28876 0001:000061D8 28884 0001:000061E0 + 28887 0001:000061E8 28892 0001:000061F0 28893 0001:000061F8 28894 0001:00006200 + 28902 0001:00006208 28905 0001:00006210 28932 0001:00006218 28947 0001:00006220 + 28951 0001:00006228 28957 0001:00006230 28958 0001:00006238 28968 0001:00006240 + 28979 0001:00006248 28983 0001:00006250 28988 0001:00006258 28993 0001:00006260 + 28995 0001:00006268 28996 0001:00006270 29005 0001:00006278 29008 0001:00006280 + 29010 0001:00006288 29011 0001:00006290 29016 0001:00006298 29020 0001:000062A0 + 29021 0001:000062A8 29023 0001:000062B0 29024 0001:000062B8 29027 0001:000062C0 + 29042 0001:000062C8 29062 0001:000062D0 29065 0001:000062D8 29074 0001:000062E0 + 29089 0001:000062E8 29102 0001:000062F0 29103 0001:000062F8 29160 0001:00006300 + 29169 0001:00006308 29170 0001:00006310 29207 0001:00006318 29211 0001:00006320 + 29212 0001:00006328 29218 0001:00006330 29243 0001:00006338 29255 0001:00006340 + 29257 0001:00006348 29259 0001:00006350 29265 0001:00006358 29285 0001:00006360 + 29300 0001:00006368 29307 0001:00006370 29327 0001:00006378 29355 0001:00006380 + 29361 0001:00006388 29438 0001:00006390 29441 0001:00006398 29450 0001:000063A0 + 29475 0001:000063A8 29478 0001:000063B0 29483 0001:000063B8 29488 0001:000063C0 + 29490 0001:000063C8 29496 0001:000063D0 29498 0001:000063D8 29502 0001:000063E0 + 29503 0001:000063E8 29504 0001:000063F0 29509 0001:000063F8 29510 0001:00006400 + 29514 0001:00006408 29517 0001:00006410 29520 0001:00006418 29526 0001:00006420 + 29528 0001:00006428 29534 0001:00006430 29536 0001:00006438 29537 0001:00006440 + 29539 0001:00006448 29540 0001:00006450 29546 0001:00006458 29549 0001:00006460 + 29550 0001:00006468 29552 0001:00006470 29559 0001:00006478 29560 0001:00006480 + 29561 0001:00006488 29580 0001:00006490 29581 0001:00006498 29585 0001:000064A0 + 29586 0001:000064A8 29600 0001:000064B0 29602 0001:000064B8 29603 0001:000064C0 + 29605 0001:000064C8 29626 0001:000064D0 29627 0001:000064D8 29631 0001:000064E0 + 29634 0001:000064E8 29635 0001:000064F0 29636 0001:000064F8 29637 0001:00006500 + 29642 0001:00006508 29643 0001:00006510 29646 0001:00006518 29647 0001:00006520 + 29675 0001:00006528 29682 0001:00006530 29684 0001:00006538 29690 0001:00006540 + 29691 0001:00006548 29693 0001:00006550 29695 0001:00006558 29704 0001:00006560 + 29707 0001:00006568 29711 0001:00006570 29714 0001:00006578 29719 0001:00006580 + 29721 0001:00006588 29724 0001:00006590 29726 0001:00006598 29728 0001:000065A0 + 29729 0001:000065A8 29731 0001:000065B0 29739 0001:000065B8 29741 0001:000065C0 + 29742 0001:000065C8 29751 0001:000065D0 29755 0001:000065D8 29756 0001:000065E0 + 29760 0001:000065E8 29762 0001:000065F0 29763 0001:000065F8 29775 0001:00006600 + 29776 0001:00006608 29777 0001:00006610 29781 0001:00006618 29782 0001:00006620 + 29783 0001:00006628 29784 0001:00006630 29788 0001:00006638 29789 0001:00006640 + 29791 0001:00006648 29796 0001:00006650 29800 0001:00006658 29806 0001:00006660 + 29812 0001:00006668 29816 0001:00006670 29818 0001:00006678 29820 0001:00006680 + 29821 0001:00006688 29824 0001:00006690 29825 0001:00006698 29826 0001:000066A0 + 29827 0001:000066A8 29828 0001:000066B0 29830 0001:000066B8 29833 0001:000066C0 + 29834 0001:000066C8 29835 0001:000066D0 29839 0001:000066D8 29845 0001:000066E0 + 29878 0001:000066E8 29880 0001:000066F0 29885 0001:000066F8 29890 0001:00006700 + 29895 0001:00006708 29896 0001:00006710 29897 0001:00006718 29904 0001:00006720 + 29905 0001:00006728 29922 0001:00006730 29925 0001:00006738 29936 0001:00006740 + 29944 0001:00006748 29948 0001:00006750 29951 0001:00006758 29953 0001:00006760 + 29955 0001:00006768 29980 0001:00006770 29987 0001:00006778 29988 0001:00006780 + 29996 0001:00006788 29999 0001:00006790 30002 0001:00006798 30005 0001:000067A0 + 30006 0001:000067A8 30009 0001:000067B0 30010 0001:000067B8 30011 0001:000067C0 + 30012 0001:000067C8 30019 0001:000067D0 30038 0001:000067D8 30039 0001:000067E0 + 30040 0001:000067E8 30041 0001:000067F0 30042 0001:000067F8 30043 0001:00006800 + 30047 0001:00006808 30053 0001:00006810 30054 0001:00006818 30055 0001:00006820 + 30056 0001:00006828 30057 0001:00006830 30060 0001:00006838 30062 0001:00006840 + 30079 0001:00006848 30083 0001:00006850 30084 0001:00006858 30087 0001:00006860 + 30088 0001:00006868 30096 0001:00006870 30098 0001:00006878 30104 0001:00006880 + 30106 0001:00006888 30107 0001:00006890 30116 0001:00006898 30120 0001:000068A0 + 30122 0001:000068A8 30130 0001:000068B0 30132 0001:000068B8 30133 0001:000068C0 + 30134 0001:000068C8 30135 0001:000068D0 30138 0001:000068D8 30143 0001:000068E0 + 30144 0001:000068E8 30145 0001:000068F0 30148 0001:000068F8 30151 0001:00006900 + 30154 0001:00006908 30155 0001:00006910 30156 0001:00006918 30161 0001:00006920 + 30163 0001:00006928 30166 0001:00006930 30172 0001:00006938 30173 0001:00006940 + 30174 0001:00006948 30178 0001:00006950 30179 0001:00006958 30186 0001:00006960 + 30187 0001:00006968 30190 0001:00006970 30192 0001:00006978 30195 0001:00006980 + 30200 0001:00006988 30201 0001:00006990 30202 0001:00006998 30203 0001:000069A0 + 30204 0001:000069A8 30205 0001:000069B0 30206 0001:000069B8 30207 0001:000069C0 + 30208 0001:000069C8 30213 0001:000069D0 30214 0001:000069D8 30220 0001:000069E0 + 30222 0001:000069E8 30224 0001:000069F0 30230 0001:000069F8 30231 0001:00006A00 + 30233 0001:00006A08 30239 0001:00006A10 30240 0001:00006A18 30245 0001:00006A20 + 30250 0001:00006A28 30251 0001:00006A30 30254 0001:00006A38 30257 0001:00006A40 + 30258 0001:00006A48 30261 0001:00006A50 30264 0001:00006A58 30273 0001:00006A60 + 30274 0001:00006A68 30275 0001:00006A70 30279 0001:00006A78 30281 0001:00006A80 + 30282 0001:00006A88 30283 0001:00006A90 30285 0001:00006A98 30286 0001:00006AA0 + 30287 0001:00006AA8 30291 0001:00006AB0 30294 0001:00006AB8 30300 0001:00006AC0 + 30306 0001:00006AC8 30315 0001:00006AD0 30323 0001:00006AD8 30329 0001:00006AE0 + 30331 0001:00006AE8 30332 0001:00006AF0 30344 0001:00006AF8 30345 0001:00006B00 + 30349 0001:00006B08 30357 0001:00006B10 30358 0001:00006B18 30369 0001:00006B20 + 30372 0001:00006B28 30375 0001:00006B30 30376 0001:00006B38 30379 0001:00006B40 + 30384 0001:00006B48 30385 0001:00006B50 30391 0001:00006B58 30398 0001:00006B60 + 30401 0001:00006B68 30402 0001:00006B70 30403 0001:00006B78 30404 0001:00006B80 + 30409 0001:00006B88 30411 0001:00006B90 30412 0001:00006B98 30413 0001:00006BA0 + 30417 0001:00006BA8 30423 0001:00006BB0 30429 0001:00006BB8 30430 0001:00006BC0 + 30433 0001:00006BC8 30437 0001:00006BD0 30439 0001:00006BD8 30440 0001:00006BE0 + 30447 0001:00006BE8 30448 0001:00006BF0 30449 0001:00006BF8 30452 0001:00006C00 + 30457 0001:00006C08 30462 0001:00006C10 30464 0001:00006C18 30467 0001:00006C20 + 30469 0001:00006C28 30470 0001:00006C30 30471 0001:00006C38 30475 0001:00006C40 + 30481 0001:00006C48 30484 0001:00006C50 30485 0001:00006C58 30486 0001:00006C60 + 30493 0001:00006C68 30499 0001:00006C70 30500 0001:00006C78 30501 0001:00006C80 + 30502 0001:00006C88 30508 0001:00006C90 30511 0001:00006C98 30520 0001:00006CA0 + 30525 0001:00006CA8 30526 0001:00006CB0 30528 0001:00006CB8 30530 0001:00006CC0 + 30533 0001:00006CC8 30538 0001:00006CD0 30541 0001:00006CD8 30549 0001:00006CE0 + 30550 0001:00006CE8 30551 0001:00006CF0 30555 0001:00006CF8 30580 0001:00006D00 + 30581 0001:00006D0E 30582 0001:00006D21 30585 0001:00006D28 30586 0001:00006D31 + 30587 0001:00006D3F 30621 0001:00006D44 30622 0001:00006D48 30623 0001:00006D53 + 30636 0001:00006D58 30637 0001:00006D67 30638 0001:00006D75 30691 0001:00006D7C + 30692 0001:00006D85 30693 0001:00006D8D 30698 0001:00006D94 30699 0001:00006D95 + 30700 0001:00006D96 30701 0001:00006D9B 30702 0001:00006D9C 30703 0001:00006DA1 + 30708 0001:00006DA4 30709 0001:00006DA5 30710 0001:00006DA6 30711 0001:00006DA7 + 30712 0001:00006DAC 30713 0001:00006DAD 30714 0001:00006DAE 30715 0001:00006DB3 + 30716 0001:00006DB8 30717 0001:00006DB9 30718 0001:00006DBE 30722 0001:00006DC0 + 30723 0001:00006DC1 30724 0001:00006DC6 30725 0001:00006DC7 30726 0001:00006DC8 + 30727 0001:00006DCD 30728 0001:00006DD2 30785 0001:00006DD4 30786 0001:00006DE0 + 30787 0001:00006DF4 30815 0001:00006DF8 30816 0001:00006E07 30817 0001:00006E26 + 30830 0001:00006E2C 30831 0001:00006E35 30832 0001:00006E3E 30835 0001:00006E44 + 30836 0001:00006E4D 30837 0001:00006E59 30840 0001:00006E60 30841 0001:00006E69 + 30842 0001:00006E75 30848 0001:00006E7C 30849 0001:00006E88 30850 0001:00006E91 + 30851 0001:00006E9B 30854 0001:00006EA0 30855 0001:00006EA9 30856 0001:00006EB3 + 30857 0001:00006EC1 30860 0001:00006EC8 30861 0001:00006ED6 30862 0001:00006EE9 + 30865 0001:00006EF0 30866 0001:00006EFE 30867 0001:00006F11 30895 0001:00006F18 + 30910 0001:00006F20 30911 0001:00006F2F 30912 0001:00006F38 30914 0001:00006F70 + 30915 0001:00006F7C 30944 0001:00006F84 30945 0001:00006F93 30946 0001:00006F9C + 30948 0001:00006FD2 30949 0001:00006FDE 31067 0001:00006FE4 31068 0001:00006FF3 + 31069 0001:00007005 31070 0001:00007014 31071 0001:00007023 31072 0001:00007032 + 31073 0001:00007040 31075 0001:0000705A 31076 0001:00007061 31077 0001:0000706F + 31079 0001:00007089 31080 0001:00007095 31082 0001:00007128 31082 0001:0000712F + +Line numbers for Messages(Messages.pas) segment .text + + 1848 0001:00007160 1848 0001:00007167 + +Line numbers for SysConst(SysConst.pas) segment .text + + 183 0001:000074D0 183 0001:000074D7 + +Line numbers for SysUtils(sysutils.pas) segment .text + + 3104 0001:0000800C 3168 0001:000080FC 3169 0001:000080FF 3170 0001:00008100 + 3171 0001:00008102 3172 0001:00008104 3173 0001:00008107 3174 0001:0000810A + 3175 0001:0000810D 3176 0001:00008110 3177 0001:00008113 3178 0001:00008114 + 3190 0001:00008118 3191 0001:0000811F 3192 0001:00008133 3195 0001:00008138 + 3196 0001:00008147 3197 0001:00008163 3364 0001:00008168 3381 0001:00008170 + 3382 0001:00008179 3383 0001:00008184 3384 0001:00008194 3403 0001:00008198 + 3404 0001:0000819E 3405 0001:000081A6 3406 0001:000081B0 3407 0001:000081BD + 3408 0001:000081C6 3409 0001:000081D3 3410 0001:000081D6 3415 0001:000081DC + 3416 0001:000081E5 3417 0001:000081F2 3418 0001:000081FC 3419 0001:00008209 + 3420 0001:00008212 3421 0001:0000821A 3422 0001:00008225 3459 0001:0000822C + 3460 0001:00008238 3461 0001:00008243 3462 0001:0000824E 3463 0001:00008254 + 3464 0001:0000825C 3466 0001:00008262 3467 0001:0000826A 3468 0001:0000827A + 3469 0001:00008282 3470 0001:00008285 3471 0001:00008288 3464 0001:0000828B + 3473 0001:00008291 3480 0001:00008298 3481 0001:000082A4 3482 0001:000082AF + 3483 0001:000082BA 3484 0001:000082C0 3485 0001:000082C8 3487 0001:000082CE + 3488 0001:000082D6 3489 0001:000082E6 3490 0001:000082EE 3491 0001:000082F1 + 3492 0001:000082F4 3485 0001:000082F7 3494 0001:000082FD 3498 0001:00008304 + 3499 0001:00008305 3500 0001:00008306 3501 0001:00008308 3502 0001:0000830A + 3503 0001:0000830C 3504 0001:0000830E 3505 0001:00008311 3506 0001:00008313 + 3507 0001:00008315 3508 0001:00008318 3509 0001:0000831A 3510 0001:0000831C + 3511 0001:0000831E 3512 0001:00008320 3513 0001:00008322 3514 0001:00008324 + 3515 0001:00008326 3516 0001:0000832A 3517 0001:0000832E 3518 0001:00008330 + 3519 0001:00008331 3520 0001:00008332 3524 0001:00008334 3525 0001:00008335 + 3526 0001:00008336 3527 0001:00008338 3528 0001:0000833A 3529 0001:0000833C + 3530 0001:0000833E 3531 0001:00008341 3532 0001:00008344 3533 0001:00008346 + 3534 0001:00008348 3535 0001:0000834A 3536 0001:0000834C 3537 0001:0000834E + 3538 0001:00008350 3539 0001:00008351 3540 0001:00008352 3541 0001:00008353 + 3545 0001:00008354 3546 0001:00008355 3547 0001:00008356 3548 0001:00008357 + 3549 0001:00008359 3550 0001:0000835B 3551 0001:0000835D 3552 0001:0000835F + 3553 0001:00008362 3554 0001:00008364 3555 0001:00008366 3556 0001:00008369 + 3557 0001:0000836B 3558 0001:0000836D 3559 0001:0000836F 3560 0001:00008371 + 3561 0001:00008373 3562 0001:00008375 3563 0001:00008377 3564 0001:0000837A + 3565 0001:0000837D 3566 0001:0000837F 3567 0001:00008382 3568 0001:00008384 + 3569 0001:00008387 3570 0001:0000838A 3571 0001:0000838D 3572 0001:0000838F + 3573 0001:00008392 3574 0001:00008394 3575 0001:00008397 3576 0001:00008399 + 3577 0001:0000839B 3578 0001:0000839E 3579 0001:000083A1 3580 0001:000083A3 + 3581 0001:000083A4 3582 0001:000083A5 3583 0001:000083A6 3587 0001:000083A8 + 3588 0001:000083AA 3589 0001:000083AC 3590 0001:000083AE 3591 0001:000083B0 + 3592 0001:000083B2 3593 0001:000083B4 3594 0001:000083B7 3595 0001:000083BA + 3596 0001:000083BC 3597 0001:000083C1 3598 0001:000083C3 3599 0001:000083C5 + 3600 0001:000083C7 3601 0001:000083C8 3602 0001:000083CA 3608 0001:000083CC + 3609 0001:000083D8 3610 0001:000083E3 3611 0001:000083F8 3612 0001:0000840D + 3624 0001:00008414 3625 0001:00008420 3626 0001:0000842B 3627 0001:00008440 + 3628 0001:00008455 3637 0001:0000845C 3639 0001:00008468 3649 0001:000084A1 + 3657 0001:000084A8 3659 0001:000084B4 3665 0001:000084ED 3668 0001:000084F4 + 3669 0001:00008500 3670 0001:00008514 3683 0001:00008518 3685 0001:00008524 + 3691 0001:00008545 3780 0001:0000854C 3782 0001:0000855B 3788 0001:00008580 + 3959 0001:00008584 3960 0001:00008590 3961 0001:0000859B 3962 0001:000085A4 + 3963 0001:000085BC 3965 0001:000085CE 3966 0001:000085DE 3968 0001:000085F4 + 3989 0001:000085F8 3990 0001:00008604 3991 0001:0000860F 3992 0001:00008618 + 3993 0001:00008630 3994 0001:00008644 4009 0001:00008648 4010 0001:00008654 + 4011 0001:00008661 4012 0001:00008677 4013 0001:0000868B 4038 0001:00008690 + 4039 0001:000086B6 4040 0001:000086BB 4041 0001:000086CE 4043 0001:000086D4 + 4044 0001:000086D7 4045 0001:000086DA 4041 0001:000086E8 4047 0001:000086EE + 4049 0001:000086F4 4050 0001:00008720 4052 0001:00008725 4053 0001:0000873D + 4054 0001:00008745 4055 0001:0000874D 4056 0001:00008750 4057 0001:00008756 + 4059 0001:00008764 4060 0001:00008767 4061 0001:00008778 4062 0001:00008781 + 4063 0001:00008789 4064 0001:0000878C 4065 0001:00008792 4066 0001:000087A0 + 4067 0001:000087A6 4068 0001:000087B1 4069 0001:000087C2 4070 0001:000087CB + 4071 0001:000087F5 4077 0001:000087FC 4078 0001:0000880B 4079 0001:00008813 + 4080 0001:0000882F 4081 0001:00008834 4082 0001:0000883B 4083 0001:00008843 + 4086 0001:00008857 4087 0001:0000885C 4088 0001:00008868 4089 0001:0000886D + 4090 0001:00008870 4084 0001:00008882 4092 0001:0000888A 4093 0001:0000889F + 4094 0001:000088AE 4095 0001:000088B4 4098 0001:000088CD 4099 0001:000088E0 + 4100 0001:000088ED 4103 0001:000088FF 4104 0001:00008904 4105 0001:00008910 + 4106 0001:00008923 4107 0001:0000892E 4108 0001:00008933 4109 0001:0000893B + 4101 0001:0000894D 4111 0001:00008955 4112 0001:0000896A 4114 0001:0000897E + 4131 0001:00008984 4132 0001:000089A7 4133 0001:000089AD 4134 0001:000089BB + 4135 0001:000089C6 4137 0001:000089CE 4139 0001:000089DD 4140 0001:000089E3 + 4142 0001:000089E8 4143 0001:000089EE 4144 0001:000089F7 4146 0001:000089FC + 4148 0001:00008A01 4149 0001:00008A0A 4151 0001:00008A0F 4153 0001:00008A22 + 4154 0001:00008A2D 4157 0001:00008A2F 4135 0001:00008A32 4159 0001:00008A3A + 4160 0001:00008A52 4163 0001:00008A62 4164 0001:00008A68 4165 0001:00008A75 + 4166 0001:00008A7D 4167 0001:00008A89 4170 0001:00008A98 4172 0001:00008A9E + 4173 0001:00008AA4 4175 0001:00008AA7 4176 0001:00008AAD 4177 0001:00008AB0 + 4181 0001:00008AB5 4183 0001:00008ABB 4184 0001:00008AC1 4186 0001:00008AC4 + 4187 0001:00008ACA 4188 0001:00008ACD 4189 0001:00008AD0 4192 0001:00008ADD + 4194 0001:00008AF0 4195 0001:00008AFB 4196 0001:00008B09 4197 0001:00008B0F + 4198 0001:00008B15 4200 0001:00008B17 4201 0001:00008B21 4202 0001:00008B24 + 4166 0001:00008B27 4205 0001:00008B50 4213 0001:00008B58 4214 0001:00008B61 + 4215 0001:00008B65 4216 0001:00008B86 4217 0001:00008BC6 4218 0001:00008BCD + 4231 0001:00008BD4 4232 0001:00008BD6 4233 0001:00008BD8 4234 0001:00008BDA + 4235 0001:00008BDC 4236 0001:00008BDE 4237 0001:00008BE3 4238 0001:00008BE5 + 4239 0001:00008BE6 4240 0001:00008BE7 4241 0001:00008BE9 4242 0001:00008BEA + 4245 0001:00008BEF 4246 0001:00008BF0 4247 0001:00008BF1 4248 0001:00008BF3 + 4249 0001:00008BF5 4250 0001:00008BF6 4251 0001:00008BF9 4252 0001:00008BFC + 4253 0001:00008BFE 4254 0001:00008C01 4255 0001:00008C03 4256 0001:00008C05 + 4257 0001:00008C07 4258 0001:00008C08 4259 0001:00008C09 4260 0001:00008C0B + 4261 0001:00008C0D 4262 0001:00008C0F 4263 0001:00008C11 4264 0001:00008C13 + 4265 0001:00008C15 4266 0001:00008C17 4267 0001:00008C1A 4268 0001:00008C1B + 4269 0001:00008C1D 4271 0001:00008C1F 4331 0001:00008C20 4332 0001:00008C21 + 4333 0001:00008C23 4334 0001:00008C26 4335 0001:00008C28 4336 0001:00008C29 + 4337 0001:00008C2B 4338 0001:00008C30 4339 0001:00008C32 4340 0001:00008C33 + 4341 0001:00008C38 4342 0001:00008C3B 4343 0001:00008C3C 4459 0001:00008C40 + 4460 0001:00008C42 4461 0001:00008C44 4462 0001:00008C49 4463 0001:00008C50 + 4464 0001:00008C52 4465 0001:00008C55 4466 0001:00008C57 4467 0001:00008C59 + 4468 0001:00008C5C 4469 0001:00008C61 4470 0001:00008C65 4471 0001:00008C6A + 4472 0001:00008C6E 4473 0001:00008C6F 4474 0001:00008C70 4475 0001:00008C73 + 4478 0001:00008C74 4479 0001:00008C75 4480 0001:00008C78 4481 0001:00008C7C + 4482 0001:00008C7F 4483 0001:00008C85 4485 0001:00008C88 4486 0001:00008C8C + 4487 0001:00008C8E 4488 0001:00008C95 4489 0001:00008C97 4490 0001:00008C9A + 4491 0001:00008C9C 4492 0001:00008CA4 4493 0001:00008CA9 4494 0001:00008CAE + 4495 0001:00008CB2 4496 0001:00008CB5 4497 0001:00008CB7 4498 0001:00008CB9 + 4499 0001:00008CBC 4501 0001:00008CBE 4503 0001:00008CC0 4504 0001:00008CC3 + 4506 0001:00008CC5 4507 0001:00008CC6 4508 0001:00008CC8 4509 0001:00008CCB + 4510 0001:00008CCD 4511 0001:00008CD0 4512 0001:00008CD2 4513 0001:00008CD4 + 4514 0001:00008CD6 4516 0001:00008CD8 4517 0001:00008CDA 4518 0001:00008CDC + 4519 0001:00008CDE 4520 0001:00008CE1 4521 0001:00008CE2 4523 0001:00008CE4 + 4524 0001:00008CE8 4526 0001:00008CEB 4527 0001:00008CED 4528 0001:00008CEF + 4529 0001:00008CF1 4531 0001:00008CF3 4532 0001:00008CF4 4533 0001:00008CF6 + 4534 0001:00008CF8 4535 0001:00008CFA 4536 0001:00008CFC 4537 0001:00008CFE + 4538 0001:00008D00 4539 0001:00008D02 4540 0001:00008D05 4541 0001:00008D06 + 4542 0001:00008D08 4544 0001:00008D0A 4548 0001:00008D0C 4549 0001:00008D0F + 4550 0001:00008D10 4551 0001:00008D12 4552 0001:00008D15 4553 0001:00008D17 + 4554 0001:00008D18 4555 0001:00008D1A 4556 0001:00008D1D 4558 0001:00008D22 + 4559 0001:00008D24 4560 0001:00008D25 4561 0001:00008D2A 4562 0001:00008D2D + 4563 0001:00008D2E 4568 0001:00008D34 4569 0001:00008D37 4570 0001:00008D39 + 4571 0001:00008D3B 4572 0001:00008D3C 4573 0001:00008D3E 4574 0001:00008D41 + 4575 0001:00008D42 4576 0001:00008D47 4577 0001:00008D4C 4578 0001:00008D4E + 4579 0001:00008D4F 4580 0001:00008D54 4581 0001:00008D57 4582 0001:00008D58 + 4586 0001:00008D5C 4587 0001:00008D5F 4588 0001:00008D62 4589 0001:00008D64 + 4590 0001:00008D66 4591 0001:00008D67 4592 0001:00008D69 4593 0001:00008D6C + 4594 0001:00008D71 4595 0001:00008D72 4596 0001:00008D74 4597 0001:00008D77 + 4599 0001:00008D7C 4600 0001:00008D7E 4601 0001:00008D7F 4602 0001:00008D84 + 4603 0001:00008D87 4604 0001:00008D88 4609 0001:00008D8C 4610 0001:00008D95 + 4611 0001:00008DA3 4612 0001:00008DC5 4617 0001:00008DCC 4618 0001:00008DD8 + 4619 0001:00008DE6 4620 0001:00008DF5 4625 0001:00008DFC 4626 0001:00008E08 + 4627 0001:00008E18 4628 0001:00008E23 4633 0001:00008E28 4634 0001:00008E31 + 4635 0001:00008E42 4636 0001:00008E67 4641 0001:00008E6C 4642 0001:00008E75 + 4643 0001:00008E86 4644 0001:00008E9E 4649 0001:00008EA4 4650 0001:00008EB0 + 4651 0001:00008EC3 4652 0001:00008ECE 4655 0001:00008ED4 4656 0001:00008ED7 + 4658 0001:00008EE5 4659 0001:00008EFF 4661 0001:00008F0E 4663 0001:00008F1C + 4664 0001:00008F36 4666 0001:00008F45 4684 0001:00008F68 4685 0001:00008F74 + 4686 0001:00008F78 4687 0001:00008F8A 4689 0001:00008FA2 4690 0001:00008FA6 + 4691 0001:00008FA8 4686 0001:00008FAB 4692 0001:00008FB3 4695 0001:00008FB8 + 4696 0001:00008FC4 4697 0001:00008FD2 4698 0001:00008FD8 4701 0001:00008FEC + 4702 0001:00008FF1 4703 0001:0000900C 4704 0001:00009012 4707 0001:0000901A + 4708 0001:00009035 4709 0001:0000903B 4712 0001:00009044 4717 0001:00009064 + 4718 0001:00009073 4720 0001:00009079 4721 0001:0000907E 4722 0001:00009084 + 4724 0001:00009096 4727 0001:000090A8 4728 0001:000090BC 4801 0001:000090C0 + 4802 0001:000090CC 4803 0001:000090D3 4805 0001:000090EB 4808 0001:0000912B + 4855 0001:00009130 4856 0001:00009139 4858 0001:0000915F 4868 0001:00009164 + 4869 0001:00009170 4870 0001:0000917E 4879 0001:00009184 4881 0001:00009193 + 4882 0001:000091AE 4887 0001:000091B8 4890 0001:000091BC 4892 0001:000091CB + 4893 0001:000091E6 4898 0001:000091F0 4912 0001:000091F4 4913 0001:00009200 + 4914 0001:0000920C 4916 0001:0000922A 4928 0001:00009230 4930 0001:00009237 + 4935 0001:00009240 4943 0001:00009244 4944 0001:00009250 4945 0001:00009268 + 4947 0001:0000926E 4948 0001:00009277 4950 0001:00009280 4951 0001:00009290 + 4955 0001:000092A5 4956 0001:000092AF 4971 0001:000092B4 4972 0001:000092BD + 4973 0001:000092CD 5334 0001:000092D4 5335 0001:000092DD 5336 0001:000092E8 + 5338 0001:000092F0 5339 0001:00009302 5342 0001:00009311 5343 0001:00009319 + 5348 0001:00009320 5349 0001:0000932C 5350 0001:00009337 5351 0001:00009342 + 5353 0001:00009348 5355 0001:0000936B 5356 0001:0000937A 5368 0001:0000937D + 5351 0001:00009380 5370 0001:00009389 5375 0001:00009390 5376 0001:000093B3 + 5377 0001:000093C3 5378 0001:000093DD 5379 0001:0000941D 5384 0001:00009430 + 5385 0001:0000943C 5386 0001:0000944C 5387 0001:00009460 5430 0001:00009470 + 5431 0001:0000947C 5432 0001:0000948C 5433 0001:000094A1 5438 0001:000094B4 + 5439 0001:000094C0 5440 0001:000094D0 5441 0001:000094E3 5442 0001:000094F9 + 5443 0001:00009501 5450 0001:00009514 5451 0001:00009523 5453 0001:00009551 + 5807 0001:00009558 5808 0001:00009567 5810 0001:00009591 5851 0001:00009598 + 5852 0001:0000959E 5853 0001:000095A4 5855 0001:000095AC 5856 0001:000095B1 + 5858 0001:000095CD 5859 0001:000095DB 5860 0001:000095F5 5861 0001:00009612 + 6003 0001:00009618 6004 0001:0000961A 6005 0001:0000961C 6006 0001:00009621 + 6007 0001:00009623 6008 0001:00009625 6009 0001:0000962A 6010 0001:0000962C + 6011 0001:0000962E 6015 0001:00009630 6016 0001:00009632 6017 0001:00009634 + 6018 0001:00009639 6019 0001:0000963B 6020 0001:0000963D 6021 0001:00009640 + 6022 0001:00009642 6025 0001:00009644 6026 0001:00009653 6027 0001:00009659 + 6028 0001:0000966A 6032 0001:00009670 6033 0001:00009671 6034 0001:00009672 + 6035 0001:00009674 6036 0001:00009676 6037 0001:0000967B 6038 0001:0000967D + 6039 0001:0000967F 6040 0001:00009681 6041 0001:00009683 6042 0001:00009685 + 6043 0001:00009687 6044 0001:00009689 6045 0001:0000968C 6046 0001:0000968E + 6047 0001:00009690 6048 0001:00009693 6049 0001:00009695 6050 0001:00009696 + 6051 0001:00009697 6055 0001:00009698 6056 0001:00009699 6057 0001:0000969A + 6058 0001:0000969C 6059 0001:0000969E 6060 0001:000096A3 6061 0001:000096A5 + 6062 0001:000096A7 6063 0001:000096A9 6064 0001:000096AB 6065 0001:000096AD + 6066 0001:000096AF 6067 0001:000096B2 6068 0001:000096B4 6069 0001:000096B6 + 6070 0001:000096B9 6071 0001:000096BB 6072 0001:000096BE 6073 0001:000096BF + 6074 0001:000096C0 6078 0001:000096C4 6079 0001:000096C5 6080 0001:000096C6 + 6081 0001:000096C7 6082 0001:000096C9 6083 0001:000096CB 6084 0001:000096CD + 6085 0001:000096CF 6086 0001:000096D1 6087 0001:000096D3 6088 0001:000096D5 + 6089 0001:000096D7 6090 0001:000096D8 6091 0001:000096DA 6092 0001:000096DC + 6093 0001:000096DE 6094 0001:000096E0 6095 0001:000096E2 6096 0001:000096E5 + 6097 0001:000096E7 6098 0001:000096E9 6099 0001:000096EC 6100 0001:000096EE + 6101 0001:000096EF 6102 0001:000096F1 6103 0001:000096F2 6104 0001:000096F3 + 6105 0001:000096F4 6108 0001:000096F8 6109 0001:00009704 6110 0001:00009726 + 6114 0001:0000972C 6115 0001:0000973B 6116 0001:00009756 6119 0001:0000975C + 6120 0001:00009768 6121 0001:00009778 6122 0001:00009781 6147 0001:00009788 + 6148 0001:00009789 6149 0001:0000978A 6150 0001:0000978C 6151 0001:0000978E + 6152 0001:00009793 6153 0001:00009795 6154 0001:00009797 6155 0001:00009799 + 6156 0001:0000979B 6157 0001:0000979D 6158 0001:0000979F 6159 0001:000097A2 + 6160 0001:000097A5 6161 0001:000097A7 6162 0001:000097A8 6163 0001:000097A9 + 6167 0001:000097AC 6168 0001:000097AD 6169 0001:000097AE 6170 0001:000097B0 + 6171 0001:000097B2 6172 0001:000097B7 6173 0001:000097B9 6174 0001:000097BB + 6175 0001:000097BD 6176 0001:000097BF 6177 0001:000097C1 6178 0001:000097C3 + 6179 0001:000097C5 6180 0001:000097C8 6181 0001:000097CA 6182 0001:000097CC + 6183 0001:000097CE 6184 0001:000097D0 6185 0001:000097D2 6186 0001:000097D5 + 6187 0001:000097D8 6188 0001:000097DA 6189 0001:000097DD 6190 0001:000097DF + 6191 0001:000097E2 6192 0001:000097E4 6193 0001:000097E6 6194 0001:000097E7 + 6195 0001:000097E8 6199 0001:000097EC 6200 0001:000097ED 6201 0001:000097EE + 6202 0001:000097EF 6203 0001:000097F1 6204 0001:000097F3 6205 0001:000097F5 + 6206 0001:000097F7 6207 0001:000097F9 6208 0001:000097FB 6209 0001:000097FD + 6210 0001:000097FF 6211 0001:00009801 6212 0001:00009803 6213 0001:00009805 + 6214 0001:00009807 6215 0001:0000980A 6216 0001:0000980D 6217 0001:0000980F + 6218 0001:00009810 6219 0001:00009811 6220 0001:00009812 6224 0001:00009814 + 6225 0001:00009815 6226 0001:00009816 6227 0001:00009817 6228 0001:00009819 + 6229 0001:0000981B 6230 0001:0000981D 6231 0001:0000981F 6232 0001:00009821 + 6233 0001:00009823 6234 0001:00009825 6235 0001:00009827 6236 0001:00009829 + 6237 0001:0000982B 6238 0001:0000982D 6239 0001:0000982F 6240 0001:00009831 + 6241 0001:00009834 6242 0001:00009836 6243 0001:00009838 6244 0001:0000983A + 6245 0001:0000983C 6246 0001:0000983E 6247 0001:00009841 6248 0001:00009844 + 6249 0001:00009846 6250 0001:00009849 6251 0001:0000984B 6252 0001:0000984E + 6253 0001:00009850 6254 0001:00009852 6255 0001:00009853 6256 0001:00009854 + 6257 0001:00009855 6260 0001:00009858 6261 0001:00009864 6264 0001:0000986C + 6266 0001:00009874 6267 0001:00009879 6269 0001:0000987B 6262 0001:0000987E + 6271 0001:0000988B 6300 0001:00009890 6301 0001:00009891 6302 0001:00009892 + 6303 0001:00009893 6304 0001:00009895 6305 0001:00009897 6306 0001:00009899 + 6307 0001:0000989B 6308 0001:0000989D 6309 0001:0000989F 6310 0001:000098A1 + 6311 0001:000098A6 6312 0001:000098A8 6313 0001:000098AA 6314 0001:000098AB + 6315 0001:000098AD 6316 0001:000098AF 6317 0001:000098B1 6318 0001:000098B6 + 6319 0001:000098B8 6320 0001:000098BA 6321 0001:000098BC 6322 0001:000098BE + 6323 0001:000098C0 6324 0001:000098C3 6325 0001:000098C5 6326 0001:000098C6 + 6327 0001:000098C8 6328 0001:000098CA 6329 0001:000098CC 6330 0001:000098CD + 6331 0001:000098CF 6332 0001:000098D1 6333 0001:000098D2 6334 0001:000098D4 + 6335 0001:000098D6 6336 0001:000098D9 6337 0001:000098DB 6338 0001:000098DD + 6339 0001:000098DE 6340 0001:000098DF 6341 0001:000098E0 6382 0001:000098E4 + 6383 0001:000098F0 6384 0001:000098FB 6387 0001:00009900 6388 0001:00009909 + 6389 0001:0000990D 6390 0001:00009918 6391 0001:00009920 6392 0001:00009927 + 6397 0001:0000992C 6398 0001:00009935 6399 0001:0000993B 6400 0001:0000993F + 6401 0001:0000994D 6406 0001:00009954 6407 0001:0000995D 6409 0001:0000996A + 6410 0001:00009976 6412 0001:0000998F 6415 0001:00009994 6416 0001:0000999B + 6418 0001:000099A1 6419 0001:000099A5 6421 0001:000099B2 6431 0001:000099B8 + 6432 0001:000099C7 6433 0001:000099D4 6434 0001:000099E7 6435 0001:000099F5 + 6436 0001:000099FD 6437 0001:00009A1B 6440 0001:00009A20 6441 0001:00009A2D + 6442 0001:00009A37 6444 0001:00009A49 6445 0001:00009A50 6448 0001:00009A58 + 6449 0001:00009A5F 6450 0001:00009A67 6473 0001:00009A6C 6474 0001:00009A78 + 6475 0001:00009A79 6476 0001:00009A7A 6477 0001:00009A7B 6478 0001:00009A7D + 6484 0001:00009A7F 6486 0001:00009A81 6487 0001:00009A84 6488 0001:00009A87 + 6489 0001:00009A8A 6490 0001:00009A8C 6491 0001:00009A8F 6492 0001:00009A92 + 6495 0001:00009A95 6496 0001:00009A97 6499 0001:00009A99 6500 0001:00009A9B + 6501 0001:00009A9D 6502 0001:00009A9E 6503 0001:00009AA0 6506 0001:00009AA2 + 6507 0001:00009AA3 6508 0001:00009AA4 6511 0001:00009AA6 6512 0001:00009AA8 + 6513 0001:00009AAB 6516 0001:00009AB0 6517 0001:00009AB2 6518 0001:00009AB4 + 6519 0001:00009AB5 6520 0001:00009AB7 6521 0001:00009AB9 6522 0001:00009ABC + 6523 0001:00009ABF 6524 0001:00009AC2 6525 0001:00009AC4 6526 0001:00009AC6 + 6527 0001:00009AC8 6528 0001:00009ACA 6529 0001:00009ACB 6530 0001:00009AD0 + 6531 0001:00009AD2 6532 0001:00009AD4 6533 0001:00009AD7 6534 0001:00009AD9 + 6535 0001:00009ADB 6536 0001:00009ADC 6538 0001:00009ADE 6539 0001:00009AE1 + 6540 0001:00009AE6 6541 0001:00009AE8 6542 0001:00009AEA 6543 0001:00009AEC + 6544 0001:00009AEE 6545 0001:00009AEF 6546 0001:00009AF4 6547 0001:00009AF7 + 6548 0001:00009AFA 6549 0001:00009AFB 6551 0001:00009AFC 6553 0001:00009B01 + 6554 0001:00009B02 6555 0001:00009B05 6556 0001:00009B07 6557 0001:00009B09 + 6559 0001:00009B0B 6560 0001:00009B0F 6561 0001:00009B11 6562 0001:00009B13 + 6563 0001:00009B15 6564 0001:00009B17 6566 0001:00009B19 6568 0001:00009B1B + 6569 0001:00009B1D 6570 0001:00009B1F 6571 0001:00009B21 6572 0001:00009B23 + 6573 0001:00009B25 6574 0001:00009B27 6575 0001:00009B29 6576 0001:00009B2B + 6577 0001:00009B2D 6578 0001:00009B2F 6579 0001:00009B31 6580 0001:00009B33 + 6581 0001:00009B35 6582 0001:00009B39 6583 0001:00009B3B 6584 0001:00009B3C + 6587 0001:00009B3F 6589 0001:00009B44 6590 0001:00009B45 6591 0001:00009B46 + 6592 0001:00009B49 6595 0001:00009B4E 6596 0001:00009B50 6597 0001:00009B52 + 6598 0001:00009B54 6599 0001:00009B56 6600 0001:00009B58 6601 0001:00009B5A + 6602 0001:00009B5C 6603 0001:00009B62 6604 0001:00009B64 6605 0001:00009B67 + 6606 0001:00009B69 6607 0001:00009B6B 6608 0001:00009B6D 6609 0001:00009B6E + 6610 0001:00009B70 6611 0001:00009B71 6612 0001:00009B76 6613 0001:00009B79 + 6614 0001:00009B7C 6615 0001:00009B7E 6616 0001:00009B81 6617 0001:00009B84 + 6618 0001:00009B89 6619 0001:00009B8C 6620 0001:00009B8E 6621 0001:00009B90 + 6622 0001:00009B92 6623 0001:00009B94 6624 0001:00009B95 6627 0001:00009B96 + 6628 0001:00009B98 6629 0001:00009B9A 6630 0001:00009B9F 6631 0001:00009BA2 + 6632 0001:00009BA5 6633 0001:00009BA7 6634 0001:00009BAA 6635 0001:00009BAD + 6636 0001:00009BB0 6637 0001:00009BB2 6645 0001:00009BB6 6649 0001:00009BBD + 6650 0001:00009BC1 6651 0001:00009BC5 6652 0001:00009BC9 6653 0001:00009BCD + 6654 0001:00009BD1 6655 0001:00009BD5 6656 0001:00009BD9 6657 0001:00009BDD + 6658 0001:00009BE1 6659 0001:00009BE5 6660 0001:00009BE9 6661 0001:00009BED + 6662 0001:00009BF1 6663 0001:00009BF5 6664 0001:00009BF9 6665 0001:00009BFD + 6673 0001:00009C01 6676 0001:00009C03 6677 0001:00009C08 6678 0001:00009C0B + 6679 0001:00009C0E 6697 0001:00009C10 6698 0001:00009C13 6707 0001:00009C18 + 6708 0001:00009C1B 6709 0001:00009C1E 6710 0001:00009C21 6711 0001:00009C23 + 6712 0001:00009C25 6713 0001:00009C27 6714 0001:00009C2A 6715 0001:00009C30 + 6716 0001:00009C35 6717 0001:00009C38 6718 0001:00009C3E 6719 0001:00009C43 + 6720 0001:00009C46 6721 0001:00009C4C 6827 0001:00009C4E 6828 0001:00009C51 + 6829 0001:00009C54 6830 0001:00009C56 6831 0001:00009C59 6832 0001:00009C5B + 6833 0001:00009C5D 6834 0001:00009C60 6835 0001:00009C66 6836 0001:00009C6B + 6837 0001:00009C6E 6838 0001:00009C74 6839 0001:00009C79 6840 0001:00009C7C + 6841 0001:00009C82 6891 0001:00009C87 6892 0001:00009C8A 6893 0001:00009C90 + 6894 0001:00009C95 6897 0001:00009C96 6898 0001:00009C99 6899 0001:00009C9F + 6900 0001:00009CA3 6901 0001:00009CA5 6902 0001:00009CA7 6905 0001:00009CAA + 6907 0001:00009CAF 6908 0001:00009CB2 6911 0001:00009CB4 6912 0001:00009CB6 + 6915 0001:00009CB7 6916 0001:00009CBA 6917 0001:00009CC0 6918 0001:00009CC2 + 6919 0001:00009CC3 6920 0001:00009CC6 6923 0001:00009CC8 6924 0001:00009CCD + 6927 0001:00009CCF 6930 0001:00009CD4 6934 0001:00009CD7 6935 0001:00009CDA + 6936 0001:00009CE0 6937 0001:00009CE2 6938 0001:00009CE5 6939 0001:00009CE6 + 6940 0001:00009CE9 6941 0001:00009CEB 6942 0001:00009CEC 6943 0001:00009CEF + 6944 0001:00009CF1 6947 0001:00009CF3 6948 0001:00009CF6 6949 0001:00009CFC + 6952 0001:00009CFE 6953 0001:00009D00 6954 0001:00009D02 6957 0001:00009D05 + 6958 0001:00009D08 6959 0001:00009D0A 6960 0001:00009D0B 6961 0001:00009D0E + 6964 0001:00009D0F 6965 0001:00009D12 6966 0001:00009D18 6967 0001:00009D1A + 6968 0001:00009D1B 6969 0001:00009D1D 6970 0001:00009D1F 6971 0001:00009D22 + 6972 0001:00009D24 6973 0001:00009D26 6974 0001:00009D28 6975 0001:00009D29 + 6976 0001:00009D2B 6977 0001:00009D2D 6978 0001:00009D2E 6981 0001:00009D2F + 6982 0001:00009D32 6983 0001:00009D38 6984 0001:00009D3D 6985 0001:00009D42 + 6986 0001:00009D45 6989 0001:00009D4A 6990 0001:00009D4C 6993 0001:00009D4E + 6996 0001:00009D50 6997 0001:00009D52 6998 0001:00009D54 6999 0001:00009D57 + 7000 0001:00009D59 7001 0001:00009D5B 7002 0001:00009D5E 7003 0001:00009D60 + 7004 0001:00009D62 7005 0001:00009D65 7006 0001:00009D67 7007 0001:00009D69 + 7008 0001:00009D6C 7009 0001:00009D6E 7010 0001:00009D71 7011 0001:00009D77 + 7012 0001:00009D79 7013 0001:00009D7E 7014 0001:00009D81 7015 0001:00009D83 + 7016 0001:00009D85 7017 0001:00009D8A 7018 0001:00009D8D 7019 0001:00009D8F + 7020 0001:00009D96 7021 0001:00009D98 7022 0001:00009D9B 7023 0001:00009DA0 + 7024 0001:00009DA3 7025 0001:00009DA5 7026 0001:00009DAA 7027 0001:00009DAB + 7028 0001:00009DAC 7029 0001:00009DAD 7030 0001:00009DB0 7031 0001:00009DB2 + 7032 0001:00009DB5 7033 0001:00009DB8 7034 0001:00009DBD 7035 0001:00009DBF + 7036 0001:00009DC2 7039 0001:00009DC3 7040 0001:00009DC4 7041 0001:00009DC5 + 7042 0001:00009DC8 7043 0001:00009DCB 7044 0001:00009DD0 7045 0001:00009DD1 + 7046 0001:00009DD2 7049 0001:00009DD3 7050 0001:00009DD8 7051 0001:00009DD9 + 7052 0001:00009DDA 7053 0001:00009DDB 7506 0001:00009DE4 7507 0001:00009DF3 + 7509 0001:00009DFF 7510 0001:00009E27 7513 0001:00009E2F 7514 0001:00009E37 + 7531 0001:00009E40 7532 0001:00009E4F 7534 0001:00009E5B 7535 0001:00009E81 + 7538 0001:00009E89 7539 0001:00009E91 7555 0001:00009E98 7556 0001:00009EA7 + 7557 0001:00009EB9 7570 0001:00009EC0 7571 0001:00009ED6 7572 0001:00009EDD + 7573 0001:00009EEC 7576 0001:00009F15 7577 0001:00009F20 7579 0001:00009F26 + 7583 0001:00009F31 7584 0001:00009F37 7585 0001:00009F3F 7586 0001:00009F4A + 7581 0001:00009F6F 7589 0001:00009F78 7592 0001:00009F85 7593 0001:00009F96 + 8628 0001:00009F9C 8637 0001:00009F9D 8639 0001:00009F9F 8640 0001:00009FA0 + 8641 0001:00009FA2 8642 0001:00009FA4 8643 0001:00009FA6 8644 0001:00009FA8 + 8645 0001:00009FAA 8646 0001:00009FAC 8647 0001:00009FAE 8648 0001:00009FB0 + 8649 0001:00009FB2 8650 0001:00009FB4 8651 0001:00009FB6 8652 0001:00009FB8 + 8653 0001:00009FB9 8654 0001:00009FBA 8655 0001:00009FBB 8656 0001:00009FBD + 8657 0001:00009FBF 8658 0001:00009FC5 8659 0001:00009FC8 8660 0001:00009FCA + 8661 0001:00009FCB 8662 0001:00009FCC 8663 0001:00009FCE 8664 0001:00009FD0 + 8665 0001:00009FD2 8666 0001:00009FD4 8667 0001:00009FD5 8668 0001:00009FD7 + 8669 0001:00009FD8 8670 0001:00009FDA 8671 0001:00009FDC 8672 0001:00009FDD + 8673 0001:00009FDE 8686 0001:00009FE0 8687 0001:00009FE6 8688 0001:00009FE7 + 8689 0001:00009FE8 8690 0001:00009FE9 8712 0001:00009FEC 8713 0001:00009FF1 + 8714 0001:00009FF4 8715 0001:00009FF9 8716 0001:00009FFC 8717 0001:0000A001 + 8718 0001:0000A004 8719 0001:0000A009 8720 0001:0000A00C 8721 0001:0000A011 + 8722 0001:0000A014 8724 0001:0000A01B 8725 0001:0000A020 8726 0001:0000A023 + 8727 0001:0000A025 8728 0001:0000A028 8729 0001:0000A02B 8730 0001:0000A02D + 8731 0001:0000A032 8732 0001:0000A035 8733 0001:0000A037 8734 0001:0000A03C + 8735 0001:0000A03F 8736 0001:0000A040 8737 0001:0000A045 8738 0001:0000A049 + 8739 0001:0000A04B 8740 0001:0000A04E 8741 0001:0000A04F 8742 0001:0000A052 + 8743 0001:0000A057 8744 0001:0000A05A 8745 0001:0000A05E 8746 0001:0000A063 + 8747 0001:0000A066 8748 0001:0000A068 8749 0001:0000A06A 8750 0001:0000A06F + 8751 0001:0000A076 8752 0001:0000A079 8753 0001:0000A07E 8754 0001:0000A080 + 8755 0001:0000A082 8756 0001:0000A085 8757 0001:0000A089 8758 0001:0000A08C + 8759 0001:0000A08E 8760 0001:0000A091 8761 0001:0000A093 8762 0001:0000A097 + 8763 0001:0000A09A 8764 0001:0000A09C 8765 0001:0000A09E 8766 0001:0000A0A5 + 8767 0001:0000A0A8 8768 0001:0000A0AA 8769 0001:0000A0AD 8770 0001:0000A0AF + 8771 0001:0000A0B1 8772 0001:0000A0B4 8773 0001:0000A0B5 8774 0001:0000A0B6 + 8775 0001:0000A0B7 8778 0001:0000A0BC 8779 0001:0000A0C0 8780 0001:0000A0C4 + 8781 0001:0000A0C8 8782 0001:0000A0CC 8784 0001:0000A0D0 8790 0001:0000A0D6 + 8791 0001:0000A0D7 8792 0001:0000A0D9 8793 0001:0000A0DB 8794 0001:0000A0DD + 8795 0001:0000A0DE 8801 0001:0000A0DF 8802 0001:0000A0E3 8803 0001:0000A0E5 + 8804 0001:0000A0E7 8805 0001:0000A0E8 8811 0001:0000A0E9 8812 0001:0000A0EE + 8813 0001:0000A0F2 8814 0001:0000A0F4 8815 0001:0000A0F7 8816 0001:0000A0F9 + 8817 0001:0000A0FC 8818 0001:0000A0FE 8819 0001:0000A100 8820 0001:0000A102 + 8821 0001:0000A104 8822 0001:0000A105 8823 0001:0000A108 8824 0001:0000A10A + 8825 0001:0000A10D 8826 0001:0000A10E 8827 0001:0000A110 8828 0001:0000A112 + 8829 0001:0000A114 8830 0001:0000A116 8831 0001:0000A11B 8832 0001:0000A11C + 8833 0001:0000A11D 8834 0001:0000A11F 8835 0001:0000A121 8836 0001:0000A122 + 8837 0001:0000A124 8838 0001:0000A125 8839 0001:0000A127 8840 0001:0000A129 + 8841 0001:0000A12B 8842 0001:0000A12E 8843 0001:0000A130 8844 0001:0000A131 + 8845 0001:0000A133 8846 0001:0000A135 8847 0001:0000A136 8848 0001:0000A138 + 8849 0001:0000A13A 8850 0001:0000A13C 8851 0001:0000A13E 8852 0001:0000A140 + 8853 0001:0000A142 8854 0001:0000A144 8860 0001:0000A145 8861 0001:0000A14A + 8862 0001:0000A14F 8863 0001:0000A152 8864 0001:0000A154 8865 0001:0000A157 + 8866 0001:0000A158 8867 0001:0000A15D 8868 0001:0000A15E 8869 0001:0000A160 + 8873 0001:0000A162 8874 0001:0000A165 8875 0001:0000A168 8876 0001:0000A16A + 8884 0001:0000A16C 8885 0001:0000A16E 8886 0001:0000A171 8887 0001:0000A175 + 8888 0001:0000A176 8889 0001:0000A17B 8896 0001:0000A17C 8902 0001:0000A181 + 8903 0001:0000A184 8904 0001:0000A187 8905 0001:0000A189 8906 0001:0000A18E + 8907 0001:0000A192 8908 0001:0000A194 8909 0001:0000A196 8910 0001:0000A198 + 8911 0001:0000A199 8912 0001:0000A19B 8913 0001:0000A19D 8914 0001:0000A1A1 + 8915 0001:0000A1A3 8916 0001:0000A1A5 8917 0001:0000A1A6 8918 0001:0000A1A8 + 8919 0001:0000A1AA 8920 0001:0000A1AC 8921 0001:0000A1AD 8922 0001:0000A1B2 + 8923 0001:0000A1B3 8924 0001:0000A1B4 8925 0001:0000A1B6 8926 0001:0000A1B7 + 8927 0001:0000A1B9 8928 0001:0000A1BC 8929 0001:0000A1BE 8930 0001:0000A1C0 + 8931 0001:0000A1C1 8932 0001:0000A1C3 8933 0001:0000A1C5 8934 0001:0000A1C7 + 8935 0001:0000A1C9 8936 0001:0000A1CC 8937 0001:0000A1CE 8938 0001:0000A1D0 + 8939 0001:0000A1D1 8940 0001:0000A1D3 8941 0001:0000A1D5 8942 0001:0000A1D6 + 8943 0001:0000A1D7 8944 0001:0000A1D9 8945 0001:0000A1DA 8946 0001:0000A1DC + 8947 0001:0000A1E1 8948 0001:0000A1E2 8949 0001:0000A1E3 8950 0001:0000A1E5 + 8956 0001:0000A1E6 8957 0001:0000A1E8 8958 0001:0000A1EB 8959 0001:0000A1F0 + 8960 0001:0000A1F4 8961 0001:0000A1F6 8962 0001:0000A1F9 8963 0001:0000A1FE + 8964 0001:0000A200 8965 0001:0000A202 8966 0001:0000A204 8967 0001:0000A206 + 8968 0001:0000A20D 8969 0001:0000A210 8970 0001:0000A215 8971 0001:0000A217 + 8972 0001:0000A219 8973 0001:0000A21B 8974 0001:0000A21C 8975 0001:0000A21D + 8976 0001:0000A21F 8977 0001:0000A221 8978 0001:0000A223 8979 0001:0000A225 + 8980 0001:0000A226 8981 0001:0000A228 8982 0001:0000A22D 8983 0001:0000A22F + 8984 0001:0000A234 8985 0001:0000A235 8986 0001:0000A236 8987 0001:0000A237 + 8988 0001:0000A239 8994 0001:0000A23A 8995 0001:0000A23B 8996 0001:0000A23E + 8997 0001:0000A240 8998 0001:0000A242 8999 0001:0000A245 9000 0001:0000A247 + 9001 0001:0000A248 9006 0001:0000A249 9007 0001:0000A24E 9008 0001:0000A253 + 9009 0001:0000A258 9010 0001:0000A25D 9011 0001:0000A262 9012 0001:0000A267 + 9013 0001:0000A26C 9014 0001:0000A271 9015 0001:0000A276 9016 0001:0000A27B + 9017 0001:0000A280 9018 0001:0000A285 9019 0001:0000A28A 9020 0001:0000A28F + 9021 0001:0000A294 9022 0001:0000A299 9023 0001:0000A29E 9024 0001:0000A2A3 + 9025 0001:0000A2A8 9028 0001:0000A2AD 9393 0001:0000A2B4 9394 0001:0000A2BA + 9395 0001:0000A2BB 9396 0001:0000A2BC 9397 0001:0000A2BD 9398 0001:0000A2C0 + 9399 0001:0000A2C2 9410 0001:0000A2C4 9411 0001:0000A2CB 9412 0001:0000A2D0 + 9413 0001:0000A2D3 9414 0001:0000A2D8 9416 0001:0000A2DB 9417 0001:0000A2E0 + 9418 0001:0000A2E3 9419 0001:0000A2E5 9420 0001:0000A2E7 9421 0001:0000A2EA + 9422 0001:0000A2EC 9423 0001:0000A2EF 9424 0001:0000A2F2 9425 0001:0000A2F4 + 9426 0001:0000A2F8 9427 0001:0000A2FA 9428 0001:0000A2FD 9429 0001:0000A2FF + 9430 0001:0000A303 9431 0001:0000A306 9432 0001:0000A30B 9433 0001:0000A30D + 9434 0001:0000A312 9435 0001:0000A315 9436 0001:0000A31A 9437 0001:0000A31E + 9438 0001:0000A320 9439 0001:0000A323 9440 0001:0000A325 9441 0001:0000A32A + 9442 0001:0000A32B 9443 0001:0000A32C 9444 0001:0000A32F 9445 0001:0000A331 + 9446 0001:0000A333 9447 0001:0000A338 9448 0001:0000A33C 9449 0001:0000A340 + 9450 0001:0000A342 9451 0001:0000A346 9452 0001:0000A348 9453 0001:0000A34B + 9454 0001:0000A34D 9455 0001:0000A351 9456 0001:0000A353 9457 0001:0000A357 + 9458 0001:0000A359 9459 0001:0000A35B 9460 0001:0000A35D 9461 0001:0000A35F + 9462 0001:0000A362 9463 0001:0000A364 9464 0001:0000A366 9465 0001:0000A36B + 9466 0001:0000A370 9467 0001:0000A374 9468 0001:0000A376 9469 0001:0000A37B + 9470 0001:0000A380 9471 0001:0000A382 9472 0001:0000A385 9473 0001:0000A387 + 9474 0001:0000A38C 9475 0001:0000A391 9483 0001:0000A396 9484 0001:0000A399 + 9485 0001:0000A39B 9486 0001:0000A39C 9487 0001:0000A39E 9488 0001:0000A3A0 + 9489 0001:0000A3A2 9490 0001:0000A3A4 9491 0001:0000A3A6 9492 0001:0000A3A8 + 9493 0001:0000A3AA 9494 0001:0000A3AC 9495 0001:0000A3AE 9496 0001:0000A3B0 + 9497 0001:0000A3B2 9498 0001:0000A3B4 9499 0001:0000A3B6 9500 0001:0000A3B8 + 9501 0001:0000A3BB 9502 0001:0000A3BD 9503 0001:0000A3BF 9504 0001:0000A3C1 + 9505 0001:0000A3C3 9506 0001:0000A3C4 9507 0001:0000A3C6 9508 0001:0000A3C7 + 9509 0001:0000A3C9 9510 0001:0000A3CB 9511 0001:0000A3CD 9512 0001:0000A3CF + 9517 0001:0000A3D1 9518 0001:0000A3D2 9519 0001:0000A3D5 9520 0001:0000A3DA + 9521 0001:0000A3DC 9522 0001:0000A3DE 9523 0001:0000A3E5 9524 0001:0000A3E8 + 9525 0001:0000A3EB 9526 0001:0000A3EC 9527 0001:0000A3EE 9528 0001:0000A3F0 + 9529 0001:0000A3F2 9530 0001:0000A3F4 9531 0001:0000A3F6 9532 0001:0000A3F8 + 9533 0001:0000A3FA 9534 0001:0000A3FC 9535 0001:0000A3FE 9536 0001:0000A400 + 9537 0001:0000A402 9538 0001:0000A404 9539 0001:0000A406 9540 0001:0000A408 + 9541 0001:0000A40A 9542 0001:0000A40C 9543 0001:0000A40E 9544 0001:0000A410 + 9545 0001:0000A412 9546 0001:0000A414 9547 0001:0000A416 9548 0001:0000A417 + 9549 0001:0000A419 9550 0001:0000A41B 9551 0001:0000A41D 9552 0001:0000A41F + 9553 0001:0000A420 9554 0001:0000A422 9555 0001:0000A424 9556 0001:0000A428 + 9557 0001:0000A42A 9558 0001:0000A42D 9559 0001:0000A42F 9560 0001:0000A433 + 9561 0001:0000A435 9562 0001:0000A437 9563 0001:0000A438 9564 0001:0000A43A + 9565 0001:0000A43C 9566 0001:0000A43E 9567 0001:0000A440 9568 0001:0000A442 + 9569 0001:0000A443 9570 0001:0000A445 9571 0001:0000A447 9572 0001:0000A449 + 9573 0001:0000A44B 9574 0001:0000A44F 9575 0001:0000A450 9576 0001:0000A452 + 9577 0001:0000A454 9578 0001:0000A456 9579 0001:0000A459 9580 0001:0000A45D + 9581 0001:0000A45F 9582 0001:0000A462 9583 0001:0000A465 9584 0001:0000A467 + 9585 0001:0000A469 9586 0001:0000A46B 9587 0001:0000A46E 9588 0001:0000A471 + 9589 0001:0000A473 9590 0001:0000A475 9591 0001:0000A477 9592 0001:0000A47A + 9593 0001:0000A47B 9598 0001:0000A47C 9599 0001:0000A480 9600 0001:0000A482 + 9601 0001:0000A485 9602 0001:0000A487 9603 0001:0000A489 9604 0001:0000A48D + 9605 0001:0000A490 9606 0001:0000A492 9607 0001:0000A495 9608 0001:0000A499 + 9609 0001:0000A49C 9610 0001:0000A49F 9611 0001:0000A4A2 9612 0001:0000A4A5 + 9613 0001:0000A4A8 9614 0001:0000A4AB 9615 0001:0000A4AF 9616 0001:0000A4B1 + 9617 0001:0000A4B4 9618 0001:0000A4B6 9619 0001:0000A4B8 9620 0001:0000A4B9 + 9621 0001:0000A4BA 9622 0001:0000A4BC 9623 0001:0000A4BE 9624 0001:0000A4C0 + 9625 0001:0000A4C2 9626 0001:0000A4C4 9627 0001:0000A4C6 9628 0001:0000A4C8 + 9629 0001:0000A4CA 9630 0001:0000A4CC 9631 0001:0000A4CE 9632 0001:0000A4D0 + 9633 0001:0000A4D2 9634 0001:0000A4D4 9635 0001:0000A4D6 9636 0001:0000A4D8 + 9637 0001:0000A4DA 9638 0001:0000A4DC 9639 0001:0000A4DE 9640 0001:0000A4E0 + 9641 0001:0000A4E2 9642 0001:0000A4E3 9643 0001:0000A4E5 9644 0001:0000A4EA + 9645 0001:0000A4EC 9646 0001:0000A4EE 9647 0001:0000A4EF 9648 0001:0000A4F1 + 9649 0001:0000A4F3 9650 0001:0000A4F5 9651 0001:0000A4F7 9652 0001:0000A4F8 + 9653 0001:0000A4FA 9654 0001:0000A4FC 9655 0001:0000A4FF 9656 0001:0000A501 + 9657 0001:0000A504 9658 0001:0000A506 9659 0001:0000A508 9660 0001:0000A50D + 9661 0001:0000A50E 9662 0001:0000A50F 9663 0001:0000A512 9664 0001:0000A514 + 9665 0001:0000A517 9666 0001:0000A519 9667 0001:0000A51E 9668 0001:0000A51F + 9669 0001:0000A522 9670 0001:0000A526 9671 0001:0000A529 9672 0001:0000A52E + 9673 0001:0000A52F 9674 0001:0000A531 9675 0001:0000A533 9676 0001:0000A536 + 9681 0001:0000A537 9682 0001:0000A53B 9683 0001:0000A53D 9684 0001:0000A53F + 9685 0001:0000A544 9686 0001:0000A547 9687 0001:0000A549 9688 0001:0000A54B + 9689 0001:0000A54E 9690 0001:0000A551 9691 0001:0000A554 9692 0001:0000A556 + 9693 0001:0000A558 9694 0001:0000A55A 9695 0001:0000A55B 9696 0001:0000A55D + 9697 0001:0000A55F 9698 0001:0000A560 9699 0001:0000A563 9700 0001:0000A566 + 9701 0001:0000A568 9702 0001:0000A56A 9703 0001:0000A56E 9704 0001:0000A570 + 9705 0001:0000A572 9706 0001:0000A575 9707 0001:0000A577 9708 0001:0000A579 + 9709 0001:0000A57A 9710 0001:0000A57E 9711 0001:0000A580 9712 0001:0000A583 + 9713 0001:0000A586 9714 0001:0000A588 9715 0001:0000A58A 9716 0001:0000A58C + 9717 0001:0000A58F 9718 0001:0000A591 9719 0001:0000A594 9720 0001:0000A596 + 9721 0001:0000A598 9722 0001:0000A599 9723 0001:0000A59C 9726 0001:0000A59D + 9727 0001:0000A59E 9728 0001:0000A59F 9729 0001:0000A5A0 10106 0001:0000A5A8 + 10107 0001:0000A5AE 10108 0001:0000A5AF 10109 0001:0000A5B0 10110 0001:0000A5B1 + 10111 0001:0000A5B3 10118 0001:0000A5B5 10120 0001:0000A5BC 10121 0001:0000A5BF + 10122 0001:0000A5C1 10123 0001:0000A5C6 10124 0001:0000A5CB 10125 0001:0000A5D0 + 10131 0001:0000A5D5 10132 0001:0000A5D9 10133 0001:0000A5DB 10134 0001:0000A5E0 + 10135 0001:0000A5E2 10136 0001:0000A5E7 10138 0001:0000A5E9 10139 0001:0000A5EF + 10142 0001:0000A5F1 10143 0001:0000A5F4 10144 0001:0000A5F6 10145 0001:0000A5FD + 10146 0001:0000A5FF 10147 0001:0000A600 10148 0001:0000A602 10149 0001:0000A606 + 10150 0001:0000A60B 10151 0001:0000A60D 10152 0001:0000A612 10153 0001:0000A618 + 10154 0001:0000A61B 10155 0001:0000A61C 10156 0001:0000A61F 10157 0001:0000A624 + 10158 0001:0000A627 10159 0001:0000A629 10160 0001:0000A62A 10161 0001:0000A62D + 10162 0001:0000A632 10163 0001:0000A633 10164 0001:0000A635 10165 0001:0000A638 + 10166 0001:0000A63E 10167 0001:0000A640 10168 0001:0000A644 10169 0001:0000A645 + 10170 0001:0000A64B 10171 0001:0000A64D 10172 0001:0000A653 10173 0001:0000A656 + 10174 0001:0000A659 10175 0001:0000A65C 10176 0001:0000A661 10177 0001:0000A662 + 10178 0001:0000A666 10179 0001:0000A668 10180 0001:0000A66B 10181 0001:0000A66E + 10182 0001:0000A672 10183 0001:0000A674 10184 0001:0000A675 10185 0001:0000A677 + 10186 0001:0000A679 10187 0001:0000A67A 10188 0001:0000A67D 10189 0001:0000A680 + 10190 0001:0000A682 10191 0001:0000A684 10192 0001:0000A689 10193 0001:0000A68C + 10194 0001:0000A68E 10195 0001:0000A691 10196 0001:0000A694 10197 0001:0000A696 + 10198 0001:0000A69B 10199 0001:0000A69D 10200 0001:0000A6A2 10201 0001:0000A6A3 + 10202 0001:0000A6A5 10203 0001:0000A6A9 10204 0001:0000A6AE 10205 0001:0000A6B0 + 10206 0001:0000A6B2 10207 0001:0000A6B8 10208 0001:0000A6BB 10209 0001:0000A6BD + 10210 0001:0000A6C2 10211 0001:0000A6C7 10212 0001:0000A6C8 10213 0001:0000A6CA + 10214 0001:0000A6CF 10215 0001:0000A6D1 10217 0001:0000A6D5 10218 0001:0000A6D8 + 10219 0001:0000A6DC 10220 0001:0000A6DF 10221 0001:0000A6E2 10222 0001:0000A6E3 + 10223 0001:0000A6E5 10226 0001:0000A6E7 10227 0001:0000A6EB 10228 0001:0000A6EF + 10229 0001:0000A6F3 10235 0001:0000A6F7 10236 0001:0000A6F9 10237 0001:0000A6FC + 10238 0001:0000A6FE 10239 0001:0000A700 10240 0001:0000A706 10241 0001:0000A708 + 10242 0001:0000A70A 10243 0001:0000A70C 10244 0001:0000A70E 10245 0001:0000A711 + 10246 0001:0000A713 10247 0001:0000A716 10248 0001:0000A718 10249 0001:0000A71A + 10250 0001:0000A71C 10251 0001:0000A71F 10252 0001:0000A721 10253 0001:0000A726 + 10254 0001:0000A727 10255 0001:0000A72C 10256 0001:0000A732 10257 0001:0000A734 + 10258 0001:0000A735 10259 0001:0000A73A 10260 0001:0000A740 10261 0001:0000A743 + 10262 0001:0000A746 10263 0001:0000A749 10264 0001:0000A74B 10265 0001:0000A750 + 10266 0001:0000A752 10267 0001:0000A754 10268 0001:0000A757 10269 0001:0000A75E + 10270 0001:0000A761 10271 0001:0000A764 10272 0001:0000A765 10273 0001:0000A767 + 10274 0001:0000A769 10275 0001:0000A76E 10276 0001:0000A772 10277 0001:0000A774 + 10278 0001:0000A777 10279 0001:0000A779 10280 0001:0000A77B 10281 0001:0000A77D + 10282 0001:0000A77F 10283 0001:0000A780 10284 0001:0000A782 10285 0001:0000A784 + 10286 0001:0000A786 10287 0001:0000A788 10288 0001:0000A789 10289 0001:0000A78E + 10290 0001:0000A792 10291 0001:0000A794 10292 0001:0000A797 10293 0001:0000A799 + 10294 0001:0000A79A 10295 0001:0000A79C 10296 0001:0000A79E 10297 0001:0000A7A0 + 10298 0001:0000A7A1 10299 0001:0000A7A2 10300 0001:0000A7A4 10301 0001:0000A7A6 + 10302 0001:0000A7AA 10303 0001:0000A7AC 10304 0001:0000A7AF 10305 0001:0000A7B0 + 10306 0001:0000A7B3 10307 0001:0000A7B5 10308 0001:0000A7B8 10309 0001:0000A7BB + 10310 0001:0000A7BD 10311 0001:0000A7BF 10312 0001:0000A7C1 10313 0001:0000A7C4 + 10314 0001:0000A7C7 10315 0001:0000A7CA 10318 0001:0000A7CB 10319 0001:0000A7CC + 10320 0001:0000A7CD 10321 0001:0000A7CE 10339 0001:0000A7D4 10340 0001:0000A7DA + 10341 0001:0000A7DB 10342 0001:0000A7DC 10343 0001:0000A7DD 10344 0001:0000A7DF + 10354 0001:0000A7E1 10355 0001:0000A7E8 10356 0001:0000A7ED 10357 0001:0000A7F0 + 10359 0001:0000A7F2 10360 0001:0000A7F6 10364 0001:0000A7F9 10366 0001:0000A7FF + 10367 0001:0000A801 10368 0001:0000A806 10369 0001:0000A808 10370 0001:0000A80B + 10371 0001:0000A80D 10372 0001:0000A810 10373 0001:0000A812 10374 0001:0000A813 + 10375 0001:0000A815 10376 0001:0000A81A 10377 0001:0000A81C 10378 0001:0000A81E + 10379 0001:0000A821 10380 0001:0000A823 10381 0001:0000A824 10382 0001:0000A829 + 10383 0001:0000A82B 10384 0001:0000A82D 10385 0001:0000A82F 10386 0001:0000A831 + 10387 0001:0000A833 10388 0001:0000A835 10389 0001:0000A837 10390 0001:0000A838 + 10391 0001:0000A839 10392 0001:0000A83E 10393 0001:0000A83F 10394 0001:0000A841 + 10395 0001:0000A846 10396 0001:0000A849 10397 0001:0000A84B 10398 0001:0000A84D + 10399 0001:0000A850 10400 0001:0000A852 10401 0001:0000A855 10402 0001:0000A856 + 10403 0001:0000A859 10404 0001:0000A85E 10405 0001:0000A85F 10406 0001:0000A862 + 10407 0001:0000A864 10408 0001:0000A866 10409 0001:0000A869 10410 0001:0000A86B + 10411 0001:0000A86D 10412 0001:0000A86F 10413 0001:0000A871 10414 0001:0000A874 + 10415 0001:0000A878 10416 0001:0000A87A 10417 0001:0000A87C 10418 0001:0000A87E + 10419 0001:0000A880 10420 0001:0000A882 10421 0001:0000A885 10422 0001:0000A888 + 10423 0001:0000A889 10427 0001:0000A88B 10428 0001:0000A88C 10429 0001:0000A88E + 10430 0001:0000A890 10431 0001:0000A892 10432 0001:0000A894 10433 0001:0000A895 + 10440 0001:0000A896 10441 0001:0000A898 10442 0001:0000A89A 10443 0001:0000A89B + 10444 0001:0000A89D 10445 0001:0000A89F 10451 0001:0000A8A1 10453 0001:0000A8A7 + 10454 0001:0000A8AA 10455 0001:0000A8AD 10456 0001:0000A8AE 10457 0001:0000A8B0 + 10458 0001:0000A8B1 10465 0001:0000A8B2 10466 0001:0000A8B4 10467 0001:0000A8B6 + 10468 0001:0000A8B8 10469 0001:0000A8BB 10470 0001:0000A8BD 10471 0001:0000A8C0 + 10472 0001:0000A8C2 10473 0001:0000A8C3 10474 0001:0000A8C5 10475 0001:0000A8C7 + 10476 0001:0000A8C9 10477 0001:0000A8CB 10478 0001:0000A8CC 10479 0001:0000A8CF + 10480 0001:0000A8D1 10481 0001:0000A8D7 10482 0001:0000A8D9 10483 0001:0000A8DC + 10484 0001:0000A8DE 10485 0001:0000A8E0 10488 0001:0000A8E1 10489 0001:0000A8E2 + 10490 0001:0000A8E3 10491 0001:0000A8E4 10664 0001:0000A8E8 10665 0001:0000A8F1 + 10667 0001:0000A911 10681 0001:0000A918 10682 0001:0000A921 10684 0001:0000A941 + 10712 0001:0000A948 10713 0001:0000A957 10715 0001:0000A97D 10747 0001:0000A984 + 10748 0001:0000A993 10749 0001:0000A9AC 10751 0001:0000A9D5 10783 0001:0000A9DC + 10784 0001:0000A9E5 10785 0001:0000A9FB 10786 0001:0000AA17 10809 0001:0000AA1C + 10810 0001:0000AA28 10811 0001:0000AA40 10822 0001:0000AA44 10823 0001:0000AA50 + 10824 0001:0000AA65 10825 0001:0000AA6B 10826 0001:0000AA77 10841 0001:0000AA7C + 10842 0001:0000AA88 10843 0001:0000AA9D 10844 0001:0000AAA3 10845 0001:0000AAAF + 10884 0001:0000AAB4 10885 0001:0000AAC0 10886 0001:0000AAD8 10901 0001:0000AADC + 10902 0001:0000AADF 10909 0001:0000AAE0 10911 0001:0000AAE2 10912 0001:0000AAE4 + 10913 0001:0000AAE7 10914 0001:0000AAED 10915 0001:0000AAF0 10916 0001:0000AAF3 + 10917 0001:0000AAF4 10918 0001:0000AAF5 10919 0001:0000AAF6 10920 0001:0000AAF8 + 10921 0001:0000AAFA 10922 0001:0000AAFC 10923 0001:0000AAFE 10924 0001:0000AB01 + 10925 0001:0000AB07 10926 0001:0000AB09 10927 0001:0000AB0B 10928 0001:0000AB11 + 10929 0001:0000AB16 10930 0001:0000AB18 10931 0001:0000AB1B 10932 0001:0000AB1C + 11016 0001:0000AB20 11017 0001:0000AB32 11018 0001:0000AB36 11020 0001:0000AB53 + 11024 0001:0000AB8D 11026 0001:0000AB94 11029 0001:0000ABA0 11030 0001:0000ABB2 + 11031 0001:0000ABD0 11032 0001:0000ABDD 11037 0001:0000ABE4 11038 0001:0000ABF3 + 11039 0001:0000AC14 11040 0001:0000AC28 11041 0001:0000AC3C 11046 0001:0000AC44 + 11047 0001:0000AC4C 11048 0001:0000AC85 11054 0001:0000AC88 11055 0001:0000AC9B + 11056 0001:0000AC9F 11057 0001:0000ACB8 11060 0001:0000AD02 11061 0001:0000AD2C + 11062 0001:0000AD34 11063 0001:0000AD7C 11065 0001:0000AD83 11068 0001:0000AD8C + 11069 0001:0000AD9E 11070 0001:0000ADB7 11071 0001:0000ADC4 11083 0001:0000ADC8 + 11084 0001:0000ADD7 11085 0001:0000ADEB 11087 0001:0000ADF1 11088 0001:0000ADF9 + 11089 0001:0000AE01 11090 0001:0000AE09 11091 0001:0000AE11 11094 0001:0000AE1A + 11095 0001:0000AE2C 11096 0001:0000AE2F 11097 0001:0000AE35 11099 0001:0000AE3E + 11100 0001:0000AE45 11097 0001:0000AE4B 11102 0001:0000AE54 11103 0001:0000AE67 + 11105 0001:0000AE6E 11106 0001:0000AE72 11108 0001:0000AE78 11109 0001:0000AE81 + 11110 0001:0000AE95 11111 0001:0000AEA0 11112 0001:0000AEB4 11114 0001:0000AEBB + 11115 0001:0000AEBF 11117 0001:0000AEC5 11118 0001:0000AECD 11119 0001:0000AED9 + 11120 0001:0000AEEB 11123 0001:0000AEF1 11124 0001:0000AF01 11125 0001:0000AF0B + 11126 0001:0000AF13 11121 0001:0000AF17 11128 0001:0000AF19 11129 0001:0000AF23 + 11130 0001:0000AF2D 11132 0001:0000AF3B 11143 0001:0000AF44 11144 0001:0000AF53 + 11145 0001:0000AF6B 11149 0001:0000AF74 11152 0001:0000AF7B 11153 0001:0000AF9C + 11154 0001:0000AFA3 11156 0001:0000AFC7 11159 0001:0000AFCC 11162 0001:0000AFD5 + 11163 0001:0000AFF2 11164 0001:0000B000 11166 0001:0000B02B 11168 0001:0000B057 + 11172 0001:0000B060 11173 0001:0000B066 11174 0001:0000B088 11180 0001:0000B090 + 11181 0001:0000B096 11182 0001:0000B09F 11183 0001:0000B0B7 11228 0001:0000B0BC + 11229 0001:0000B0C2 11230 0001:0000B0CB 11233 0001:0000B100 11252 0001:0000B104 + 11253 0001:0000B10D 11254 0001:0000B121 11255 0001:0000B133 11256 0001:0000B148 + 11257 0001:0000B159 11263 0001:0000B160 11264 0001:0000B16F 11265 0001:0000B185 + 11266 0001:0000B196 11267 0001:0000B1A4 11268 0001:0000B1AE 11270 0001:0000B1BB + 11271 0001:0000B1C5 11273 0001:0000B1D1 11274 0001:0000B1EC 11275 0001:0000B216 + 11278 0001:0000B21C 11279 0001:0000B225 11280 0001:0000B23E 11281 0001:0000B24E + 11283 0001:0000B265 11284 0001:0000B27A 11299 0001:0000B284 11300 0001:0000B28A + 11301 0001:0000B293 11302 0001:0000B29F 11326 0001:0000B2A4 11327 0001:0000B2B0 + 11328 0001:0000B2C1 11329 0001:0000B2CF 11330 0001:0000B2F3 11331 0001:0000B2FF + 11334 0001:0000B304 11335 0001:0000B30B 11336 0001:0000B322 11343 0001:0000B328 + 11344 0001:0000B334 11346 0001:0000B371 11360 0001:0000B378 11361 0001:0000B37C + 11362 0001:0000B387 11363 0001:0000B39D 11364 0001:0000B3AD 11367 0001:0000B3B0 + 11368 0001:0000B3B3 11370 0001:0000B3BC 11371 0001:0000B3DF 11373 0001:0000B3E6 + 11376 0001:0000B3E8 11377 0001:0000B3EB 11379 0001:0000B3F4 11380 0001:0000B41E + 11382 0001:0000B425 11391 0001:0000B428 11392 0001:0000B450 11395 0001:0000B458 + 11396 0001:0000B463 11397 0001:0000B46E 11400 0001:0000B479 11401 0001:0000B486 + 11404 0001:0000B4B4 11405 0001:0000B4C7 11407 0001:0000B4D1 11409 0001:0000B4E4 + 11411 0001:0000B50A 11414 0001:0000B52E 11415 0001:0000B549 11420 0001:0000B59C + 11427 0001:0000B5AC 11428 0001:0000B5CE 11431 0001:0000B5D6 11432 0001:0000B5E1 + 11433 0001:0000B5EC 11436 0001:0000B5F7 11437 0001:0000B5FD 11439 0001:0000B60C + 11441 0001:0000B619 11444 0001:0000B643 11445 0001:0000B656 11446 0001:0000B666 + 11448 0001:0000B6A3 11496 0001:0000B6C4 11497 0001:0000B6E3 11499 0001:0000B6FD + 11500 0001:0000B706 11501 0001:0000B70A 11502 0001:0000B70E 11503 0001:0000B712 + 11506 0001:0000B71B 11507 0001:0000B723 11509 0001:0000B734 11510 0001:0000B74B + 11511 0001:0000B756 11512 0001:0000B75A 11514 0001:0000B75F 11515 0001:0000B76A + 11516 0001:0000B770 11517 0001:0000B77D 11519 0001:0000B786 11520 0001:0000B796 + 11522 0001:0000B79C 11525 0001:0000B833 11526 0001:0000B83A 11527 0001:0000B841 + 11528 0001:0000B847 11529 0001:0000B86A 11533 0001:0000B882 11534 0001:0000B889 + 11535 0001:0000B890 11539 0001:0000B8AF 11540 0001:0000B8B6 11541 0001:0000B8BD + 11545 0001:0000B8DC 11546 0001:0000B8E3 11547 0001:0000B8EA 11548 0001:0000B8F7 + 11549 0001:0000B90D 11551 0001:0000B927 11556 0001:0000B941 11557 0001:0000B948 + 11560 0001:0000B95B 11561 0001:0000B962 11563 0001:0000B978 11564 0001:0000B99F + 11565 0001:0000B9C6 11567 0001:0000B9DA 11572 0001:0000B9EE 11573 0001:0000B9F5 + 11574 0001:0000B9FC 11575 0001:0000BA00 11578 0001:0000BA0B 11580 0001:0000BA1E + 11581 0001:0000BA29 11583 0001:0000BA2E 11585 0001:0000BA5C 11587 0001:0000BA62 + 11590 0001:0000BAA4 11591 0001:0000BAA8 11595 0001:0000BAAA 11597 0001:0000BAB2 + 11576 0001:0000BAB5 11599 0001:0000BAC1 11600 0001:0000BAC9 11601 0001:0000BACF + 11602 0001:0000BAEA 11603 0001:0000BAF7 11607 0001:0000BB0D 11608 0001:0000BB14 + 11609 0001:0000BB1B 11610 0001:0000BB28 11614 0001:0000BB3E 11615 0001:0000BB45 + 11616 0001:0000BB4C 11617 0001:0000BB59 11621 0001:0000BB6F 11622 0001:0000BB76 + 11623 0001:0000BB7C 11624 0001:0000BB90 11628 0001:0000BBA4 11629 0001:0000BBAB + 11630 0001:0000BBB2 11631 0001:0000BBBF 11635 0001:0000BBD5 11636 0001:0000BBDC + 11637 0001:0000BBE3 11639 0001:0000BBF9 11640 0001:0000BC04 11641 0001:0000BC16 + 11642 0001:0000BC1A 11644 0001:0000BC23 11646 0001:0000BC39 11647 0001:0000BC44 + 11648 0001:0000BC56 11649 0001:0000BC5A 11651 0001:0000BC63 11653 0001:0000BC79 + 11654 0001:0000BC80 11655 0001:0000BC91 11656 0001:0000BCA0 11657 0001:0000BCA4 + 11659 0001:0000BCAD 11661 0001:0000BCC3 11662 0001:0000BCCA 11663 0001:0000BCEC + 11665 0001:0000BCF5 11667 0001:0000BD0B 11668 0001:0000BD12 11669 0001:0000BD34 + 11671 0001:0000BD3D 11675 0001:0000BD54 11676 0001:0000BD5B 11677 0001:0000BD6A + 11678 0001:0000BD71 11680 0001:0000BD8A 11681 0001:0000BD9E 11685 0001:0000BDB2 + 11686 0001:0000BDBF 11688 0001:0000BDD8 11689 0001:0000BDE5 11692 0001:0000BDFB + 11695 0001:0000BE03 11696 0001:0000BE16 11698 0001:0000BE23 11693 0001:0000BE26 + 11700 0001:0000BE38 11701 0001:0000BE4B 11704 0001:0000BE58 11504 0001:0000BE6A + 11707 0001:0000BE76 11709 0001:0000BEA1 11711 0001:0000BECC 11712 0001:0000BEE1 + 11713 0001:0000BEE9 11714 0001:0000BEF1 11715 0001:0000BF15 11716 0001:0000BF2C + 12133 0001:0000BF38 12134 0001:0000BF3F 12135 0001:0000BF53 12157 0001:0000BF58 + 12158 0001:0000BF5F 12159 0001:0000BF6F 12168 0001:0000BF74 12169 0001:0000BF80 + 12170 0001:0000BF91 12186 0001:0000BF98 12187 0001:0000BFA4 12188 0001:0000BFAE + 12189 0001:0000BFCB 12190 0001:0000BFD3 12197 0001:0000BFD8 12198 0001:0000BFE7 + 12199 0001:0000BFEB 12200 0001:0000BFF1 12201 0001:0000BFFC 12202 0001:0000C004 + 12205 0001:0000C00C 12206 0001:0000C02B 12203 0001:0000C02E 12208 0001:0000C053 + 12210 0001:0000C05D 12211 0001:0000C06C 12212 0001:0000C074 12213 0001:0000C07E + 12215 0001:0000C085 12219 0001:0000C08C 12220 0001:0000C0AF 12221 0001:0000C0B3 + 12223 0001:0000C0B9 12224 0001:0000C0C4 12226 0001:0000C0EE 12227 0001:0000C0FB + 12230 0001:0000C11F 12233 0001:0000C124 12234 0001:0000C133 12235 0001:0000C137 + 12236 0001:0000C142 12238 0001:0000C162 12239 0001:0000C167 12241 0001:0000C16E + 12246 0001:0000C174 12247 0001:0000C17D 12248 0001:0000C181 12251 0001:0000C18A + 12252 0001:0000C1A8 12253 0001:0000C1AE 12254 0001:0000C1B4 12255 0001:0000C1BA + 12257 0001:0000C1C0 12249 0001:0000C1C3 12262 0001:0000C1D0 12263 0001:0000C1D7 + 12266 0001:0000C1DC 12269 0001:0000C1EA 12270 0001:0000C204 12272 0001:0000C218 + 12267 0001:0000C21D 12274 0001:0000C23E 12279 0001:0000C244 12280 0001:0000C24D + 12281 0001:0000C252 12283 0001:0000C259 12284 0001:0000C266 12286 0001:0000C288 + 12287 0001:0000C295 12289 0001:0000C297 12281 0001:0000C29A 12290 0001:0000C2A3 + 12303 0001:0000C2A8 12305 0001:0000C2B1 12307 0001:0000C2BA 12308 0001:0000C2C0 + 12309 0001:0000C2E5 12310 0001:0000C2EE 12313 0001:0000C2F6 12315 0001:0000C2FC + 12316 0001:0000C30B 12318 0001:0000C310 12319 0001:0000C33C 12320 0001:0000C342 + 12321 0001:0000C348 12322 0001:0000C34E 12323 0001:0000C352 12324 0001:0000C356 + 12325 0001:0000C363 12326 0001:0000C368 12328 0001:0000C37B 12329 0001:0000C386 + 12330 0001:0000C3A8 12333 0001:0000C3B5 12334 0001:0000C3C9 12335 0001:0000C3D1 + 12337 0001:0000C41E 12339 0001:0000C437 12340 0001:0000C451 12341 0001:0000C460 + 12342 0001:0000C480 12343 0001:0000C4A0 12345 0001:0000C4BE 12346 0001:0000C4C4 + 12348 0001:0000C4D5 12350 0001:0000C4DB 12351 0001:0000C4EF 12352 0001:0000C502 + 12353 0001:0000C515 12357 0001:0000C51C 12358 0001:0000C525 12360 0001:0000C52B + 12363 0001:0000C53D 12366 0001:0000C54D 12367 0001:0000C55E 12368 0001:0000C569 + 12370 0001:0000C58E 12371 0001:0000C59B 12374 0001:0000C5AD 12375 0001:0000C5D0 + 12376 0001:0000C5DB 12380 0001:0000C64A 12381 0001:0000C687 12482 0001:0000C6A4 + 12483 0001:0000C6B3 12484 0001:0000C6B7 12485 0001:0000C6BE 12486 0001:0000C6E7 + 12487 0001:0000C6EE 12488 0001:0000C717 12489 0001:0000C71E 12490 0001:0000C72F + 12491 0001:0000C749 12492 0001:0000C74F 12493 0001:0000C755 12494 0001:0000C75B + 12496 0001:0000C770 12497 0001:0000C78A 12499 0001:0000C79F 12500 0001:0000C7B9 + 12501 0001:0000C7CE 12504 0001:0000C7E8 12505 0001:0000C7EE 12506 0001:0000C817 + 12508 0001:0000C81E 12509 0001:0000C847 12510 0001:0000C84E 12512 0001:0000C854 + 12513 0001:0000C862 12514 0001:0000C86F 12516 0001:0000C877 12517 0001:0000C882 + 12518 0001:0000C8A2 12593 0001:0000C8C0 12594 0001:0000C8CC 12595 0001:0000C8D3 + 12596 0001:0000C8FE 12608 0001:0000C904 12609 0001:0000C90D 12610 0001:0000C91C + 12611 0001:0000C938 12636 0001:0000C93C 12637 0001:0000C948 12638 0001:0000C94F + 12639 0001:0000C97A 12651 0001:0000C980 12652 0001:0000C989 12653 0001:0000C998 + 12654 0001:0000C9B4 12680 0001:0000C9B8 12681 0001:0000C9C4 12682 0001:0000C9C8 + 12683 0001:0000C9CF 12684 0001:0000C9D7 12688 0001:0000CA08 12690 0001:0000CA18 + 12691 0001:0000CA26 12693 0001:0000CA34 12694 0001:0000CA43 12725 0001:0000CA4C + 12726 0001:0000CA5B 12729 0001:0000CA80 12730 0001:0000CA9B 12731 0001:0000CAAC + 12747 0001:0000CAB0 12748 0001:0000CAC2 12749 0001:0000CADE 12750 0001:0000CB03 + 12762 0001:0000CB0C 12763 0001:0000CB1B 12764 0001:0000CB32 12765 0001:0000CB3A + 12766 0001:0000CB43 12803 0001:0000CB48 12804 0001:0000CB57 12805 0001:0000CB6B + 12806 0001:0000CB84 12808 0001:0000CB8C 12809 0001:0000CBA6 12810 0001:0000CBAE + 12812 0001:0000CBB5 12814 0001:0000CBE4 12816 0001:0000CC13 12810 0001:0000CC16 + 12817 0001:0000CC1C 12819 0001:0000CC23 12820 0001:0000CC34 12822 0001:0000CC62 + 12824 0001:0000CC90 12817 0001:0000CC93 12825 0001:0000CCBB 12912 0001:0000CCC0 + 12913 0001:0000CCC6 12914 0001:0000CCCB 12916 0001:0000CCD4 12918 0001:0000CCDA + 12915 0001:0000CCDD 12919 0001:0000CCEA 12920 0001:0000CCFC 12921 0001:0000CD06 + 12926 0001:0000CD0C 12927 0001:0000CD25 12928 0001:0000CD2A 12930 0001:0000CD33 + 12932 0001:0000CD39 12929 0001:0000CD3C 12933 0001:0000CD49 12934 0001:0000CD68 + 12935 0001:0000CD8F 12941 0001:0000CD98 12942 0001:0000CDB1 12944 0001:0000CDD9 + 12947 0001:0000CDE4 12948 0001:0000CDFA 12949 0001:0000CE01 12948 0001:0000CE12 + 12950 0001:0000CE18 12953 0001:0000CE4B 12961 0001:0000CE5C 12962 0001:0000CE84 + 12963 0001:0000CE8B 12964 0001:0000CE93 12966 0001:0000CEBB 12968 0001:0000CECA + 12969 0001:0000CEE5 12973 0001:0000CEED 12974 0001:0000CEFF 12975 0001:0000CF1F + 12971 0001:0000CF22 12979 0001:0000CF34 12980 0001:0000CF3F 12985 0001:0000CF44 + 12987 0001:0000CF5C 12988 0001:0000CF6A 12989 0001:0000CF8A 12992 0001:0000CF95 + 12994 0001:0000CFB2 12995 0001:0000CFC2 12997 0001:0000CFCA 12999 0001:0000CFE7 + 13000 0001:0000CFF7 13002 0001:0000CFFD 13004 0001:0000D01A 13005 0001:0000D02A + 13007 0001:0000D02F 13008 0001:0000D041 13010 0001:0000D053 13011 0001:0000D073 + 12983 0001:0000D076 13014 0001:0000D0A9 13122 0001:0000D100 13123 0001:0000D103 + 13124 0001:0000D105 13125 0001:0000D107 13127 0001:0000D10C 13138 0001:0000D110 + 13139 0001:0000D122 13140 0001:0000D134 13143 0001:0000D15C 13144 0001:0000D173 + 13147 0001:0000D182 13148 0001:0000D18E 13149 0001:0000D1AE 13150 0001:0000D1B6 + 13151 0001:0000D1BE 13153 0001:0000D1D0 13154 0001:0000D1DE 13155 0001:0000D1E9 + 13157 0001:0000D204 13159 0001:0000D229 13161 0001:0000D2A9 13162 0001:0000D2B7 + 13200 0001:0000D2C8 13201 0001:0000D2D7 13202 0001:0000D2ED 13204 0001:0000D2F7 + 13205 0001:0000D306 13206 0001:0000D319 13207 0001:0000D33F 13212 0001:0000D35B + 13213 0001:0000D37A 13215 0001:0000D391 13233 0001:0000D3A4 13234 0001:0000D3A7 + 13235 0001:0000D3AA 13237 0001:0000D3AC 13238 0001:0000D3AF 13239 0001:0000D3CE + 13245 0001:0000D3D0 13246 0001:0000D3DA 13251 0001:0000D3DC 13252 0001:0000D3F7 + 13253 0001:0000D420 13257 0001:0000D424 13258 0001:0000D453 13259 0001:0000D4AB + 13267 0001:0000D4B4 13268 0001:0000D4CF 13269 0001:0000D4F8 13279 0001:0000D4FC + 13280 0001:0000D52E 13281 0001:0000D596 13284 0001:0000D5A0 13285 0001:0000D5BB + 13286 0001:0000D5C9 13287 0001:0000D5ED 13328 0001:0000D5F4 13329 0001:0000D5FB + 13330 0001:0000D604 13331 0001:0000D60C 13353 0001:0000D630 13354 0001:0000D636 + 13355 0001:0000D63B 13356 0001:0000D645 13357 0001:0000D65D 13358 0001:0000D663 + 13359 0001:0000D67E 13360 0001:0000D6A3 13361 0001:0000D6AF 13405 0001:0000D6D4 + 13406 0001:0000D6E0 13408 0001:0000D6F2 13410 0001:0000D6FC 13413 0001:0000D706 + 13414 0001:0000D715 13417 0001:0000D72C 13419 0001:0000D734 13420 0001:0000D73F + 13436 0001:0000D744 13437 0001:0000D76A 13438 0001:0000D78A 13440 0001:0000D7F5 + 13448 0001:0000D7FC 13449 0001:0000D7FE 13450 0001:0000D801 13451 0001:0000D804 + 13452 0001:0000D809 13461 0001:0000D80C 13462 0001:0000D81B 13466 0001:0000D82C + 13470 0001:0000D83D 13477 0001:0000D844 13478 0001:0000D847 13479 0001:0000D85E + 13579 0001:0000D860 13580 0001:0000D869 13582 0001:0000D8C7 13584 0001:0000D8CD + 13586 0001:0000D8D3 13590 0001:0000D8D9 13592 0001:0000D8DF 13594 0001:0000D8E5 + 13597 0001:0000D8EB 13599 0001:0000D8F1 13601 0001:0000D8F7 13603 0001:0000D8FD + 13605 0001:0000D903 13607 0001:0000D909 13609 0001:0000D910 13614 0001:0000D914 + 13615 0001:0000D91D 13616 0001:0000D928 13617 0001:0000D93A 13629 0001:0000D940 + 13630 0001:0000D974 13632 0001:0000D97D 13633 0001:0000D986 13635 0001:0000D995 + 13636 0001:0000D9A2 13637 0001:0000D9AB 13638 0001:0000D9BD 13640 0001:0000D9E7 + 13644 0001:0000DA84 13647 0001:0000DB20 13649 0001:0000DB24 13650 0001:0000DB40 + 13651 0001:0000DB50 13653 0001:0000DB63 13654 0001:0000DB87 13656 0001:0000DB93 + 13658 0001:0000DBC4 13659 0001:0000DBFF 13692 0001:0000DC04 13693 0001:0000DC10 + 13694 0001:0000DC1B 13695 0001:0000DC25 13974 0001:0000DC2C 13975 0001:0000DC2F + 13976 0001:0000DC46 13977 0001:0000DC5D 13978 0001:0000DC68 13979 0001:0000DC73 + 13982 0001:0000DC80 13983 0001:0000DC8B 13986 0001:0000DC96 13997 0001:0000DCA3 + 14004 0001:0000DCB0 14007 0001:0000DCB4 14008 0001:0000DCB7 14010 0001:0000DCC0 + 14011 0001:0000DCC9 14012 0001:0000DCD3 14014 0001:0000DCDA 14016 0001:0000DCE3 + 14017 0001:0000DCEC 14018 0001:0000DCF6 14020 0001:0000DCFD 14021 0001:0000DD06 + 14022 0001:0000DD0F 14024 0001:0000DD18 14025 0001:0000DD21 14027 0001:0000DD2A + 14032 0001:0000DD33 14038 0001:0000DD38 14039 0001:0000DD41 14040 0001:0000DD4B + 14043 0001:0000DD5B 14044 0001:0000DD66 14045 0001:0000DD71 14046 0001:0000DD7C + 14047 0001:0000DD85 14049 0001:0000DD97 14050 0001:0000DDA2 14052 0001:0000DDB4 + 14055 0001:0000DDB8 14056 0001:0000DDC4 14059 0001:0000DDEE 14068 0001:0000DDF4 + 14069 0001:0000DE10 14072 0001:0000DE17 14073 0001:0000DE22 14074 0001:0000DE2A + 14075 0001:0000DE3F 14077 0001:0000DE45 14078 0001:0000DE50 14079 0001:0000DE5E + 14080 0001:0000DE7C 14081 0001:0000DE96 14083 0001:0000DEAC 14086 0001:0000DEDC + 14089 0001:0000DEE4 14090 0001:0000DEE7 14091 0001:0000DEEE 14123 0001:0000DEF0 + 14124 0001:0000DEFC 14125 0001:0000DF00 14126 0001:0000DF16 14128 0001:0000DF1C + 14132 0001:0000DF35 14133 0001:0000DF3E 14134 0001:0000DF5E 14135 0001:0000DF7A + 14137 0001:0000DF98 14164 0001:0000DF9C 14165 0001:0000DFA8 14166 0001:0000DFAC + 14167 0001:0000DFB5 14168 0001:0000DFCC 14171 0001:0000DFD0 14172 0001:0000DFDC + 14173 0001:0000DFE0 14174 0001:0000DFE9 14175 0001:0000DFFA 14178 0001:0000E000 + 14179 0001:0000E00C 14180 0001:0000E024 14181 0001:0000E035 14186 0001:0000E03C + 14187 0001:0000E048 14188 0001:0000E04D 14189 0001:0000E060 14190 0001:0000E066 + 14191 0001:0000E06F 14192 0001:0000E076 14193 0001:0000E07B 14195 0001:0000E083 + 14196 0001:0000E09B 14198 0001:0000E0AB 14199 0001:0000E0AE 14193 0001:0000E0B1 + 14201 0001:0000E0BC 14206 0001:0000E0C0 14207 0001:0000E0CF 14208 0001:0000E0DA + 14209 0001:0000E0E1 14212 0001:0000E0EA 14213 0001:0000E0ED 14214 0001:0000E105 + 14216 0001:0000E115 14210 0001:0000E118 14218 0001:0000E128 14219 0001:0000E150 + 14220 0001:0000E15F 14221 0001:0000E167 14222 0001:0000E16F 14227 0001:0000E178 + 14228 0001:0000E184 14229 0001:0000E189 14230 0001:0000E19C 14232 0001:0000E1AB + 14233 0001:0000E1BE 14234 0001:0000E1D4 14236 0001:0000E1DB 14239 0001:0000E1E0 + 14240 0001:0000E1E9 14245 0001:0000E1F0 14246 0001:0000E1FC 14247 0001:0000E201 + 14248 0001:0000E207 14249 0001:0000E21F 14251 0001:0000E228 14252 0001:0000E23A + 14253 0001:0000E247 14256 0001:0000E254 14257 0001:0000E25D 14262 0001:0000E264 + 14268 0001:0000E26D 14269 0001:0000E276 14271 0001:0000E287 14273 0001:0000E291 + 14276 0001:0000E298 14281 0001:0000E2A1 14283 0001:0000E2B0 14286 0001:0000E2B4 + 14287 0001:0000E2C0 14289 0001:0000E2C7 14290 0001:0000E2E8 14291 0001:0000E2FF + 14294 0001:0000E304 14295 0001:0000E310 14297 0001:0000E317 14298 0001:0000E338 + 14299 0001:0000E352 14302 0001:0000E358 14303 0001:0000E364 14305 0001:0000E39F + 14308 0001:0000E3A4 14309 0001:0000E3B3 14310 0001:0000E3B7 14311 0001:0000E3D9 + 14312 0001:0000E3F9 14320 0001:0000E400 14321 0001:0000E40C 14322 0001:0000E417 + 14323 0001:0000E431 14324 0001:0000E441 14341 0001:0000E454 14342 0001:0000E460 + 14343 0001:0000E465 14344 0001:0000E47F 14345 0001:0000E485 14346 0001:0000E499 + 14367 0001:0000E4A0 14368 0001:0000E4AD 14370 0001:0000E4BA 14371 0001:0000E4C5 + 14372 0001:0000E4D0 14373 0001:0000E4D7 14375 0001:0000E4E3 14376 0001:0000E4FC + 14378 0001:0000E514 14379 0001:0000E517 14382 0001:0000E532 14383 0001:0000E554 + 14373 0001:0000E557 14387 0001:0000E561 14388 0001:0000E56C 14433 0001:0000E574 + 14434 0001:0000E580 14435 0001:0000E585 14436 0001:0000E5B1 14437 0001:0000E5BC + 14438 0001:0000E5C7 14441 0001:0000E5D7 14443 0001:0000E5E8 14445 0001:0000E60F + 14451 0001:0000E618 14452 0001:0000E61B 14439 0001:0000E629 14454 0001:0000E63F + 14455 0001:0000E647 14458 0001:0000E64C 14459 0001:0000E658 14460 0001:0000E666 + 14461 0001:0000E66C 14463 0001:0000E672 14465 0001:0000E678 14466 0001:0000E67E + 14467 0001:0000E681 14463 0001:0000E68F 14470 0001:0000E698 14473 0001:0000E69C + 14474 0001:0000E6A8 14475 0001:0000E6B6 14478 0001:0000E6BC 14480 0001:0000E6D2 + 14486 0001:0000E6D5 14487 0001:0000E6D8 14475 0001:0000E6E6 14489 0001:0000E6EF + 14495 0001:0000E6F4 14496 0001:0000E710 14497 0001:0000E724 14498 0001:0000E768 + 14516 0001:0000E76C 14517 0001:0000E772 14520 0001:0000E789 14523 0001:0000E790 + 14524 0001:0000E7AF 14523 0001:0000E7C1 14525 0001:0000E7C6 14521 0001:0000E7CA + 14528 0001:0000E7E6 14562 0001:0000E7EC 14563 0001:0000E7F0 14564 0001:0000E80A + 14566 0001:0000E810 14568 0001:0000E81B 14569 0001:0000E825 14570 0001:0000E82F + 14572 0001:0000E839 14573 0001:0000E841 14575 0001:0000E84F 14576 0001:0000E857 + 14578 0001:0000E85E 14579 0001:0000E86E 14582 0001:0000E87A 14583 0001:0000E88B + 14585 0001:0000E898 14587 0001:0000E8A3 14588 0001:0000E8AA 14593 0001:0000E8B6 + 14594 0001:0000E8BD 14595 0001:0000E8D6 14597 0001:0000E8DF 14598 0001:0000E8E6 + 14602 0001:0000E8EB 14603 0001:0000E8F2 14602 0001:0000E902 14604 0001:0000E90B + 14605 0001:0000E914 14606 0001:0000E931 14608 0001:0000E938 14609 0001:0000E94C + 14611 0001:0000E955 14606 0001:0000E958 14616 0001:0000E963 14617 0001:0000E974 + 14618 0001:0000E985 14619 0001:0000E98E 14621 0001:0000E995 14646 0001:0000E9BC + 14647 0001:0000E9DA 14648 0001:0000E9DF 14649 0001:0000E9E4 14650 0001:0000E9F2 + 14651 0001:0000E9FA 14652 0001:0000EA1A 14653 0001:0000EA3F 14654 0001:0000EA64 + 14655 0001:0000EA78 14656 0001:0000EA8C 14657 0001:0000EAB1 14658 0001:0000EAC5 + 14659 0001:0000EAF3 14660 0001:0000EB21 14661 0001:0000EB35 14662 0001:0000EB58 + 14663 0001:0000EB7B 14664 0001:0000EB83 14665 0001:0000EB8B 14666 0001:0000EBAF + 14667 0001:0000EBBE 14668 0001:0000EBCB 14669 0001:0000EBEF 14670 0001:0000EC13 + 14672 0001:0000EC22 14673 0001:0000EC2F 14674 0001:0000EC4C 14675 0001:0000EC69 + 14676 0001:0000ECAC 14889 0001:0000ED50 14890 0001:0000ED7C 14892 0001:0000ED82 + 14893 0001:0000ED8D 14896 0001:0000ED9A 14897 0001:0000EDA5 14899 0001:0000EDB0 + 14900 0001:0000EDBB 14903 0001:0000EDC8 14904 0001:0000EDD6 14906 0001:0000EDDC + 14907 0001:0000EDEA 14909 0001:0000EDEF 14910 0001:0000EE1C 14911 0001:0000EE3A + 14913 0001:0000EE40 14914 0001:0000EE4E 14916 0001:0000EE50 14901 0001:0000EE6E + 14918 0001:0000EEA2 14931 0001:0000EEAC 14932 0001:0000EED2 14933 0001:0000EED9 + 14934 0001:0000EEE0 14935 0001:0000EEE7 14936 0001:0000EEEC 14937 0001:0000EEF0 + 14938 0001:0000EEF4 14939 0001:0000EEFF 14940 0001:0000EF0A 14941 0001:0000EF12 + 14943 0001:0000EF1E 14944 0001:0000EF2B 14946 0001:0000EF3C 14947 0001:0000EF4B + 14948 0001:0000EF51 14952 0001:0000EF5C 14953 0001:0000EF67 14954 0001:0000EF6D + 14955 0001:0000EF75 14956 0001:0000EF7D 14957 0001:0000EF81 14959 0001:0000EF87 + 14961 0001:0000EF91 14962 0001:0000EFAC 14964 0001:0000EFB2 14965 0001:0000EFB9 + 14969 0001:0000EFBF 14970 0001:0000EFC5 14971 0001:0000EFD6 14975 0001:0000EFDC + 14976 0001:0000EFDF 14978 0001:0000EFE2 14981 0001:0000F013 14982 0001:0000F01A + 14983 0001:0000F03E 14985 0001:0000F049 14987 0001:0000F051 14989 0001:0000F068 + 14990 0001:0000F06B 14994 0001:0000F071 14995 0001:0000F090 14996 0001:0000F096 + 14985 0001:0000F09A 15002 0001:0000F0A2 15003 0001:0000F0B0 15005 0001:0000F0BE + 15006 0001:0000F0C1 15007 0001:0000F0C7 15008 0001:0000F0CD 14941 0001:0000F0D1 + 15011 0001:0000F0DD 15012 0001:0000F121 15024 0001:0000F12C 15025 0001:0000F155 + 15027 0001:0000F16C 15028 0001:0000F177 15029 0001:0000F19A 15031 0001:0000F1A0 + 15033 0001:0000F1C5 15034 0001:0000F1C9 15038 0001:0000F1CB 15040 0001:0000F1F0 + 15041 0001:0000F1F4 15044 0001:0000F1F6 15025 0001:0000F1F9 15045 0001:0000F202 + 15046 0001:0000F233 15443 0001:0000F258 15631 0001:0000F260 15632 0001:0000F279 + 15633 0001:0000F281 15634 0001:0000F287 15637 0001:0000F2C3 15638 0001:0000F2D8 + 15639 0001:0000F2E1 15640 0001:0000F306 15653 0001:0000F30C 15654 0001:0000F315 + 15655 0001:0000F320 15656 0001:0000F329 15672 0001:0000F330 15673 0001:0000F339 + 15674 0001:0000F346 15675 0001:0000F350 15676 0001:0000F359 15677 0001:0000F361 + 15682 0001:0000F368 15683 0001:0000F36F 15684 0001:0000F373 15687 0001:0000F37D + 15688 0001:0000F386 15685 0001:0000F38E 15690 0001:0000F39D 15695 0001:0000F3A4 + 15698 0001:0000F3AA 15699 0001:0000F3B2 15700 0001:0000F3BC 15696 0001:0000F3C9 + 15702 0001:0000F3D2 15811 0001:0000F3D8 15812 0001:0000F3DC 15813 0001:0000F3E9 + 15814 0001:0000F3EF 15815 0001:0000F402 15816 0001:0000F40B 15817 0001:0000F415 + 15824 0001:0000F43C 15825 0001:0000F441 15826 0001:0000F442 15827 0001:0000F446 + 15828 0001:0000F447 15832 0001:0000F448 15833 0001:0000F44D 15834 0001:0000F44E + 15835 0001:0000F452 15836 0001:0000F453 15840 0001:0000F454 15841 0001:0000F456 + 15842 0001:0000F458 15847 0001:0000F45C 15848 0001:0000F45D 15849 0001:0000F461 + 15896 0001:0000F464 15897 0001:0000F475 15899 0001:0000F47A 15900 0001:0000F487 + 15901 0001:0000F493 15903 0001:0000F499 15904 0001:0000F49F 15905 0001:0000F4A7 + 15901 0001:0000F4AF 15907 0001:0000F4B5 15897 0001:0000F4B8 15908 0001:0000F4BE + 15909 0001:0000F4DA 15914 0001:0000F4E0 15915 0001:0000F4E9 15916 0001:0000F4F2 + 15917 0001:0000F500 15924 0001:0000F504 15925 0001:0000F510 15926 0001:0000F51B + 15928 0001:0000F523 15930 0001:0000F534 15929 0001:0000F53C 15932 0001:0000F54D + 15934 0001:0000F553 15936 0001:0000F55E 15938 0001:0000F564 15939 0001:0000F571 + 15940 0001:0000F57A 15945 0001:0000F584 15946 0001:0000F58C 15949 0001:0000F5A5 + 15950 0001:0000F5AD 15958 0001:0000F5B4 15959 0001:0000F5C0 15960 0001:0000F5CA + 15961 0001:0000F5D4 15966 0001:0000F5D8 15967 0001:0000F5E1 15968 0001:0000F5F8 + 15970 0001:0000F5FE 15971 0001:0000F611 15973 0001:0000F61A 15974 0001:0000F625 + 15977 0001:0000F627 15968 0001:0000F62F 15979 0001:0000F638 15991 0001:0000F63C + 15992 0001:0000F654 15993 0001:0000F65E 15994 0001:0000F668 15995 0001:0000F67B + 15996 0001:0000F68E 15997 0001:0000F698 15998 0001:0000F6C5 16001 0001:0000F6CC + 16002 0001:0000F6DD 16003 0001:0000F6E5 16004 0001:0000F6F3 16005 0001:0000F6FF + 16006 0001:0000F70B 16007 0001:0000F724 16010 0001:0000F728 16011 0001:0000F72F + 16012 0001:0000F73B 16015 0001:0000F740 16016 0001:0000F747 16017 0001:0000F753 + 16020 0001:0000F758 16021 0001:0000F75F 16022 0001:0000F76B 16025 0001:0000F770 + 16026 0001:0000F777 16027 0001:0000F78A 16030 0001:0000F790 16031 0001:0000F797 + 16032 0001:0000F7AA 16052 0001:0000F7B0 16067 0001:0000F7B9 16068 0001:0000F7BD + 16069 0001:0000F7C5 16073 0001:0000F7D4 16075 0001:0000F7DC 16077 0001:0000F7E5 + 16080 0001:0000F7F3 16082 0001:0000F7FE 16083 0001:0000F804 16098 0001:0000F811 + 16104 0001:0000F824 16109 0001:0000F82A 16089 0001:0000F832 16120 0001:0000F849 + 16123 0001:0000F851 16124 0001:0000F857 16126 0001:0000F862 16128 0001:0000F86B + 16131 0001:0000F87E 16135 0001:0000F887 16140 0001:0000F88C 16145 0001:0000F895 + 16146 0001:0000F8A3 16147 0001:0000F8A9 16149 0001:0000F8B2 16150 0001:0000F8BA + 16154 0001:0000F8CA 16158 0001:0000F8D2 16160 0001:0000F8DA 16161 0001:0000F8E3 + 16165 0001:0000F8F1 16172 0001:0000F8F8 16177 0001:0000F901 16178 0001:0000F90F + 16179 0001:0000F915 16181 0001:0000F920 16190 0001:0000F92D 16194 0001:0000F933 + 16204 0001:0000F93D 16207 0001:0000F94B 16208 0001:0000F954 16211 0001:0000F95C + 16216 0001:0000F963 16195 0001:0000F96B 16226 0001:0000F97A 16232 0001:0000F980 + 16236 0001:0000F989 16237 0001:0000F997 16238 0001:0000F99D 16240 0001:0000F9A6 + 16243 0001:0000F9B4 16245 0001:0000F9C1 16253 0001:0000F9CF 16254 0001:0000F9D8 + 16255 0001:0000F9E2 16257 0001:0000F9E8 16258 0001:0000F9F7 16265 0001:0000F9FF + 16271 0001:0000FA04 16272 0001:0000FA0D 16273 0001:0000FA15 16274 0001:0000FA1C + 16275 0001:0000FA24 16280 0001:0000FA28 16281 0001:0000FA37 16282 0001:0000FA5D + 16287 0001:0000FA64 16288 0001:0000FA87 16291 0001:0000FAF5 16445 0001:0000FB0C + 16446 0001:0000FB18 16447 0001:0000FB24 16449 0001:0000FB32 16451 0001:0000FB35 + 16452 0001:0000FB43 16455 0001:0000FB61 16456 0001:0000FB63 16460 0001:0000FB7B + 16462 0001:0000FB8F 16594 0001:0000FE64 16600 0001:0000FE8B 16601 0001:0000FE90 + 16603 0001:0000FFE0 16575 0001:0000FFE4 16576 0001:00010012 16577 0001:0001002A + 16587 0001:0001002F 16588 0001:00010034 16590 0001:00010039 16592 0001:00010053 + +Line numbers for VarUtils(varutils.pas) segment .text + + 309 0001:00010064 310 0001:0001006C 311 0001:00010074 312 0001:0001007C + 313 0001:00010084 1071 0001:0001008C 1072 0001:00010090 1073 0001:00010099 + 1075 0001:000100A2 1076 0001:000100BF 1080 0001:000100C4 1081 0001:000100C8 + 1082 0001:000100D2 1085 0001:000100D8 1086 0001:000100DC 1087 0001:000100E6 + 1090 0001:000100EC 1091 0001:000100F0 1092 0001:000100FA 1102 0001:00010100 + 1103 0001:00010119 1104 0001:00010122 1106 0001:0001012B 1107 0001:0001016E + 1111 0001:00010174 1112 0001:0001018D 1113 0001:00010196 1115 0001:0001019F + 1116 0001:000101E2 1120 0001:000101E8 1121 0001:00010201 1122 0001:0001020A + 1124 0001:00010213 1125 0001:00010256 1129 0001:0001025C 1130 0001:00010275 + 1131 0001:0001027E 1133 0001:00010287 1134 0001:000102CA 1138 0001:000102D0 + 1139 0001:000102E9 1140 0001:000102F2 1142 0001:000102FB 1143 0001:0001033E + 1149 0001:00010344 1150 0001:0001035D 1151 0001:00010366 1154 0001:0001036F + 1155 0001:00010392 1157 0001:000103BF 1162 0001:000103C8 1163 0001:000103EC + 1164 0001:000103F5 1167 0001:000103FE 1168 0001:00010417 1170 0001:0001043C + 1174 0001:00010444 1175 0001:00010468 1176 0001:00010471 1179 0001:0001047A + 1180 0001:00010493 1182 0001:000104B8 1186 0001:000104C0 1187 0001:000104E4 + 1188 0001:000104ED 1191 0001:000104F6 1192 0001:00010513 1194 0001:00010538 + 1201 0001:00010540 1210 0001:00010548 1211 0001:00010550 1213 0001:00010558 + 1214 0001:00010560 1217 0001:00010568 1218 0001:00010570 1219 0001:00010578 + 2028 0001:00010580 2029 0001:0001058C 2030 0001:00010592 2032 0001:0001059B + 2033 0001:000105AE 2034 0001:000105B4 2036 0001:000105BD 2038 0001:000105C4 + 2039 0001:000105C8 2045 0001:000105D5 2076 0001:000105EB 2077 0001:00010601 + 2079 0001:00010617 2080 0001:0001062D 2081 0001:00010643 2082 0001:00010659 + 2083 0001:0001066F 2084 0001:00010685 2085 0001:0001069B 2086 0001:000106B1 + 2087 0001:000106C7 2089 0001:000106DD 2091 0001:000106F3 2092 0001:00010709 + 2093 0001:0001071F 2094 0001:00010735 2095 0001:0001074B 2096 0001:00010761 + 2098 0001:00010777 2099 0001:0001078D 2100 0001:000107A3 2102 0001:000107B9 + 2138 0001:00010900 2139 0001:0001090C 2140 0001:00010911 + +Line numbers for Variants(variants.pas) segment .text + + 196 0001:00010914 227 0001:00010A5C 519 0001:000110C8 520 0001:000110DB + 521 0001:00011119 524 0001:0001111C 525 0001:00011141 527 0001:000111B2 + 530 0001:000111B8 531 0001:000111CB 532 0001:00011209 535 0001:0001120C + 536 0001:0001121F 537 0001:0001125D 540 0001:00011260 541 0001:00011285 + 543 0001:000112F6 556 0001:000112FC 557 0001:0001130F 558 0001:0001134D + 561 0001:00011350 562 0001:00011370 563 0001:000113DF 564 0001:000113E9 + 565 0001:0001140F 566 0001:00011419 567 0001:0001143F 568 0001:00011465 + 569 0001:0001148B 570 0001:000114B1 571 0001:000114D7 572 0001:000114FA + 574 0001:0001151D 577 0001:0001159C 581 0001:000115A4 582 0001:000115A8 + 583 0001:000115AD 586 0001:000115B0 587 0001:000115B1 588 0001:000115B5 + 589 0001:000115C6 590 0001:000115D1 592 0001:000115DC 594 0001:000115E1 + 599 0001:000115E4 600 0001:000115EA 601 0001:000115FE 602 0001:0001160F + 603 0001:00011623 604 0001:00011633 605 0001:00011647 608 0001:00011657 + 609 0001:0001165E 611 0001:00011665 614 0001:00011668 615 0001:0001167B + 616 0001:000116B9 621 0001:000116BC 622 0001:000116BF 623 0001:000116C6 + 624 0001:000116CB 636 0001:000116D0 638 0001:000116DD 639 0001:000116F1 + 640 0001:000116F2 641 0001:000116FC 646 0001:00011700 647 0001:00011705 + 648 0001:00011707 649 0001:00011711 650 0001:00011733 651 0001:00011737 + 654 0001:0001173B 655 0001:00011748 657 0001:00011757 658 0001:0001175C + 660 0001:0001176E 661 0001:0001177A 664 0001:00011784 668 0001:0001179E + 669 0001:000117A9 671 0001:000117BC 674 0001:000117CB 675 0001:000117DA + 676 0001:000117EE 678 0001:000117F6 679 0001:00011815 681 0001:00011831 + 682 0001:00011849 675 0001:0001184D 685 0001:00011850 686 0001:00011868 + 685 0001:00011872 690 0001:00011875 692 0001:00011889 695 0001:000118A8 + 697 0001:000118B3 701 0001:000118C0 702 0001:000118D1 707 0001:000118D8 + 709 0001:000118DD 710 0001:000118E6 713 0001:000118F3 715 0001:000118FA + 716 0001:000118FF 720 0001:00011909 721 0001:00011910 724 0001:0001191A + 725 0001:00011921 728 0001:0001192A 729 0001:00011937 733 0001:00011943 + 734 0001:0001194E 739 0001:00011954 740 0001:0001195B 742 0001:00011961 + 743 0001:00011966 747 0001:00011968 748 0001:00011969 749 0001:0001196E + 750 0001:0001196F 758 0001:00011970 760 0001:0001197B 761 0001:00011982 + 766 0001:0001199F 767 0001:000119A5 770 0001:000119AC 771 0001:000119B5 + 775 0001:000119BB 778 0001:000119C9 784 0001:000119F0 785 0001:000119F9 + 788 0001:00011A11 789 0001:00011A1F 791 0001:00011A36 796 0001:00011A48 + 798 0001:00011A4E 799 0001:00011A5B 803 0001:00011A6B 818 0001:00011A74 + 820 0001:00011A81 821 0001:00011A95 822 0001:00011A96 823 0001:00011AA0 + 828 0001:00011AA4 829 0001:00011AA9 830 0001:00011AAB 831 0001:00011AB5 + 832 0001:00011AD7 833 0001:00011ADB 836 0001:00011ADF 837 0001:00011AEC + 839 0001:00011AFB 840 0001:00011B00 842 0001:00011B1A 843 0001:00011B20 + 846 0001:00011B2A 850 0001:00011B3E 851 0001:00011B43 853 0001:00011B50 + 856 0001:00011B59 857 0001:00011B68 858 0001:00011B7C 860 0001:00011B84 + 861 0001:00011BA3 862 0001:00011BBF 863 0001:00011BD7 857 0001:00011BDB + 866 0001:00011BDE 867 0001:00011BF5 868 0001:00011BF9 871 0001:00011BFE + 872 0001:00011C09 873 0001:00011C14 876 0001:00011C1D 877 0001:00011C35 + 876 0001:00011C3F 881 0001:00011C42 883 0001:00011C56 884 0001:00011C75 + 887 0001:00011C8E 889 0001:00011CA2 894 0001:00011CB1 895 0001:00011CC3 + 899 0001:00011CCC 900 0001:00011CD1 905 0001:00011CD4 907 0001:00011CDC + 908 0001:00011CE3 911 0001:00011CEA 912 0001:00011CF3 915 0001:00011D01 + 917 0001:00011D08 918 0001:00011D0D 919 0001:00011D12 923 0001:00011D1F + 925 0001:00011D26 926 0001:00011D29 927 0001:00011D2F 931 0001:00011D39 + 932 0001:00011D40 935 0001:00011D50 936 0001:00011D5D 940 0001:00011D6E + 941 0001:00011D7A 944 0001:00011D80 946 0001:00011D86 950 0001:00011D8A + 954 0001:00011D91 955 0001:00011D98 958 0001:00011D9F 959 0001:00011DA3 + 960 0001:00011DA9 961 0001:00011DAF 964 0001:00011DB7 965 0001:00011DC0 + 968 0001:00011DC4 969 0001:00011DCA 970 0001:00011DCE 971 0001:00011DD5 + 972 0001:00011DE1 976 0001:00011DE4 977 0001:00011DEA 981 0001:00011DEC + 982 0001:00011DF1 987 0001:00011DF4 989 0001:00011DFB 990 0001:00011E09 + 994 0001:00011E1A 995 0001:00011E23 998 0001:00011E28 999 0001:00011E41 + 1000 0001:00011EB1 1001 0001:00011EC5 1002 0001:00011ED8 1003 0001:00011EE9 + 1004 0001:00011EFA 1005 0001:00011F0B 1006 0001:00011F1C 1007 0001:00011F35 + 1008 0001:00011F4E 1009 0001:00011F5F 1010 0001:00011F70 1011 0001:00011F81 + 1012 0001:00011F91 1014 0001:00011FA4 1017 0001:00011FB2 1019 0001:00011FBD + 1020 0001:00011FC2 1022 0001:00011FD2 1024 0001:00011FF8 1028 0001:00012000 + 1029 0001:00012006 1031 0001:0001200C 1032 0001:00012011 1066 0001:00012014 + 1067 0001:00012018 1068 0001:00012022 1069 0001:00012029 1070 0001:0001202E + 1071 0001:00012031 1075 0001:00012034 1076 0001:00012039 1081 0001:0001203C + 1082 0001:0001204B 1083 0001:00012054 1084 0001:00012062 1085 0001:0001206C + 1086 0001:00012075 1088 0001:0001208F 1090 0001:0001209F 1095 0001:000120A8 + 1096 0001:000120BE 1097 0001:000120C6 1098 0001:000120ED 1103 0001:000120F4 + 1104 0001:0001210A 1105 0001:00012112 1106 0001:00012139 1111 0001:00012140 + 1112 0001:00012156 1113 0001:0001215E 1114 0001:00012185 1119 0001:0001218C + 1120 0001:000121A2 1121 0001:000121AA 1122 0001:000121D1 1125 0001:000121D8 + 1127 0001:000121E1 1129 0001:000121F1 1130 0001:000121FF 1135 0001:0001221E + 1136 0001:0001222B 1141 0001:0001224A 1142 0001:00012251 1147 0001:00012258 + 1148 0001:00012263 1149 0001:0001226D 1150 0001:0001227A 1151 0001:00012287 + 1152 0001:00012297 1153 0001:000122A4 1155 0001:000122B2 1156 0001:000122BD + 1159 0001:000122C4 1160 0001:000122CA 1161 0001:000122D4 1162 0001:000122E0 + 1163 0001:000122E6 1165 0001:000122F7 1167 0001:0001235D 1168 0001:0001236C + 1170 0001:0001237C 1171 0001:00012388 1172 0001:00012394 1173 0001:000123A9 + 1174 0001:000123BE 1175 0001:000123D8 1176 0001:000123F2 1177 0001:0001240C + 1178 0001:00012426 1179 0001:00012434 1180 0001:00012449 1181 0001:0001245E + 1182 0001:00012470 1183 0001:00012482 1184 0001:00012494 1186 0001:000124A6 + 1187 0001:000124B1 1189 0001:000124BC 1190 0001:000124CB 1191 0001:000124D6 + 1193 0001:000124E1 1196 0001:000124EA 1222 0001:000124F0 1223 0001:0001250A + 1224 0001:00012514 1225 0001:0001252C 1228 0001:00012540 1229 0001:0001255A + 1231 0001:00012569 1233 0001:0001259D 1238 0001:000125A4 1239 0001:000125AA + 1240 0001:000125B0 1242 0001:000125D4 1243 0001:000125D8 1248 0001:000125E0 + 1249 0001:000125E9 1250 0001:000125F2 1251 0001:00012600 1252 0001:0001260A + 1253 0001:00012613 1255 0001:0001262B 1257 0001:0001263E 1263 0001:00012644 + 1264 0001:0001264E 1265 0001:0001265A 1267 0001:0001265E 1268 0001:00012668 + 1269 0001:00012679 1271 0001:00012681 1274 0001:00012688 1275 0001:00012694 + 1276 0001:000126A2 1277 0001:0001270F 1280 0001:00012719 1281 0001:00012722 + 1282 0001:0001272F 1284 0001:00012739 1285 0001:00012748 1287 0001:00012756 + 1288 0001:00012777 1289 0001:00012798 1290 0001:000127BF 1294 0001:000127E0 + 1295 0001:000127F0 1296 0001:000127FF 1297 0001:0001280E 1298 0001:0001281D + 1300 0001:0001282C 1301 0001:00012843 1306 0001:00012862 1309 0001:00012875 + 1311 0001:00012885 1312 0001:00012898 1313 0001:000128A8 1315 0001:000128B8 + 1316 0001:000128C4 1317 0001:00012933 1318 0001:00012944 1320 0001:00012954 + 1321 0001:00012977 1322 0001:0001299A 1323 0001:000129C3 1327 0001:000129E6 + 1328 0001:000129F6 1329 0001:00012A07 1330 0001:00012A18 1331 0001:00012A26 + 1333 0001:00012A34 1334 0001:00012A4A 1339 0001:00012A68 1341 0001:00012A78 + 1344 0001:00012A85 1345 0001:00012A94 1349 0001:00012AAE 1350 0001:00012ABD + 1352 0001:00012ACA 1355 0001:00012AD8 1356 0001:00012AE2 1357 0001:00012AFE + 1360 0001:00012B02 1361 0001:00012B0B 1362 0001:00012B18 1364 0001:00012B1C + 1365 0001:00012B24 1367 0001:00012B2C 1369 0001:00012B3A 1374 0001:00012B69 + 1375 0001:00012B78 1378 0001:00012B81 1381 0001:00012B88 1382 0001:00012B92 + 1383 0001:00012BAE 1386 0001:00012BB2 1387 0001:00012BBB 1388 0001:00012BC8 + 1390 0001:00012BCC 1391 0001:00012BD4 1393 0001:00012BDC 1395 0001:00012BEA + 1400 0001:00012C10 1401 0001:00012C1F 1404 0001:00012C28 1407 0001:00012C30 + 1408 0001:00012C3A 1409 0001:00012C84 1412 0001:00012C8B 1413 0001:00012C94 + 1414 0001:00012CA1 1416 0001:00012CA5 1417 0001:00012CAE 1418 0001:00012CB7 + 1419 0001:00012CC0 1421 0001:00012CC9 1423 0001:00012CD7 1428 0001:00012D09 + 1429 0001:00012D18 1432 0001:00012D21 1435 0001:00012D28 1436 0001:00012D32 + 1437 0001:00012D75 1440 0001:00012D79 1441 0001:00012D82 1442 0001:00012D8F + 1444 0001:00012D93 1445 0001:00012D9C 1446 0001:00012DA5 1448 0001:00012DAE + 1450 0001:00012DBC 1455 0001:00012DE2 1456 0001:00012DF1 1459 0001:00012DFA + 1462 0001:00012E00 1463 0001:00012E0A 1464 0001:00012E56 1467 0001:00012E5D + 1468 0001:00012E66 1469 0001:00012E73 1471 0001:00012E77 1472 0001:00012E80 + 1473 0001:00012E89 1474 0001:00012E92 1476 0001:00012E9A 1478 0001:00012EA8 + 1483 0001:00012ECA 1484 0001:00012ED9 1487 0001:00012EE2 1497 0001:00012EE8 + 1498 0001:00012EEE 1499 0001:00012EF8 1500 0001:00012F10 1501 0001:00012F14 + 1504 0001:00012F22 1505 0001:00012F3A 1506 0001:00012F3E 1507 0001:00012F50 + 1508 0001:00012F57 1511 0001:00012F6C 1512 0001:00012F78 1515 0001:00012F8E + 1523 0001:00012F94 1524 0001:00012FB3 1525 0001:00012FBD 1527 0001:00012FDB + 1528 0001:00012FF3 1529 0001:00012FF7 1532 0001:00013003 1533 0001:0001301B + 1534 0001:0001301F 1535 0001:0001302F 1536 0001:00013036 1539 0001:0001304A + 1540 0001:00013056 1544 0001:0001308F 1549 0001:00013094 1550 0001:0001309D + 1551 0001:000130A6 1552 0001:000130B4 1553 0001:000130BE 1554 0001:000130C7 + 1556 0001:000130E2 1558 0001:000130F8 1564 0001:00013100 1565 0001:0001310A + 1566 0001:00013116 1568 0001:0001311A 1569 0001:00013124 1570 0001:00013135 + 1572 0001:00013144 1575 0001:0001314C 1576 0001:00013158 1577 0001:00013166 + 1578 0001:000131D3 1581 0001:000131E6 1582 0001:000131EF 1583 0001:000131FC + 1585 0001:0001320F 1586 0001:00013222 1587 0001:00013234 1588 0001:0001324A + 1589 0001:00013260 1590 0001:0001327C 1591 0001:00013292 1592 0001:000132A5 + 1593 0001:000132B8 1594 0001:000132CB 1595 0001:000132DF 1596 0001:000132F3 + 1597 0001:00013306 1599 0001:0001331A 1602 0001:00013330 1604 0001:00013343 + 1605 0001:00013356 1606 0001:00013369 1608 0001:0001337C 1609 0001:00013388 + 1610 0001:000133F7 1611 0001:0001340C 1612 0001:00013420 1613 0001:00013438 + 1614 0001:00013450 1615 0001:0001346E 1616 0001:00013486 1617 0001:00013499 + 1618 0001:000134AE 1619 0001:000134C3 1620 0001:000134D6 1621 0001:000134E9 + 1622 0001:000134FB 1624 0001:0001350E 1626 0001:00013521 1629 0001:00013531 + 1630 0001:00013540 1634 0001:0001355D 1635 0001:0001356C 1637 0001:00013585 + 1648 0001:00013590 1649 0001:000135AF 1650 0001:000135B9 1651 0001:000135D1 + 1653 0001:000135E3 1655 0001:000135F0 1656 0001:0001360A 1658 0001:0001361D + 1660 0001:00013651 1665 0001:00013658 1666 0001:0001365E 1667 0001:00013664 + 1669 0001:00013688 1670 0001:00013691 1675 0001:00013698 1676 0001:000136A1 + 1677 0001:000136AA 1678 0001:000136B8 1679 0001:000136C2 1680 0001:000136CB + 1682 0001:000136E3 1684 0001:000136F6 1690 0001:000136FC 1691 0001:00013706 + 1692 0001:00013712 1694 0001:00013716 1695 0001:00013720 1696 0001:00013731 + 1698 0001:0001373E 1701 0001:00013748 1702 0001:0001374C 1703 0001:000137B6 + 1706 0001:000137BF 1707 0001:000137C8 1708 0001:000137D5 1710 0001:000137DE + 1711 0001:000137EC 1712 0001:000137F9 1713 0001:0001380E 1714 0001:00013823 + 1715 0001:00013838 1716 0001:0001384D 1717 0001:0001385C 1718 0001:0001386C + 1719 0001:00013879 1720 0001:00013886 1721 0001:00013894 1722 0001:000138A1 + 1724 0001:000138B6 1727 0001:000138C6 1729 0001:000138D5 1730 0001:000138E5 + 1731 0001:000138F4 1733 0001:00013903 1734 0001:0001390C 1735 0001:00013978 + 1736 0001:00013988 1737 0001:00013997 1738 0001:000139AE 1739 0001:000139C5 + 1740 0001:000139DC 1741 0001:000139F3 1742 0001:00013A02 1743 0001:00013A11 + 1744 0001:00013A1D 1745 0001:00013A29 1746 0001:00013A36 1747 0001:00013A42 + 1749 0001:00013A56 1751 0001:00013A63 1754 0001:00013A6F 1755 0001:00013A7C + 1758 0001:00013A89 1763 0001:00013A90 1764 0001:00013A95 1765 0001:00013A97 + 1766 0001:00013A99 1767 0001:00013A9B 1778 0001:00013A9C 1779 0001:00013ABB + 1780 0001:00013AC5 1781 0001:00013ADD 1784 0001:00013AF1 1785 0001:00013B0B + 1787 0001:00013B14 1789 0001:00013B27 1791 0001:00013B5B 1796 0001:00013B60 + 1797 0001:00013B66 1798 0001:00013B70 1800 0001:00013B94 1801 0001:00013BA6 + 1806 0001:00013BAC 1807 0001:00013BB5 1808 0001:00013BBE 1809 0001:00013BCC + 1810 0001:00013BD6 1811 0001:00013BDF 1813 0001:00013BF8 1815 0001:00013C0B + 1821 0001:00013C10 1822 0001:00013C1A 1823 0001:00013C26 1825 0001:00013C2A + 1826 0001:00013C34 1827 0001:00013C45 1829 0001:00013C54 1832 0001:00013C5C + 1833 0001:00013C62 1834 0001:00013CCC 1837 0001:00013CDA 1838 0001:00013CE3 + 1839 0001:00013CF0 1841 0001:00013CFE 1842 0001:00013D0A 1843 0001:00013D16 + 1844 0001:00013D22 1845 0001:00013D34 1846 0001:00013D46 1847 0001:00013D58 + 1848 0001:00013D68 1849 0001:00013D7D 1850 0001:00013D92 1851 0001:00013DA8 + 1852 0001:00013DBD 1853 0001:00013DD7 1855 0001:00013DE3 1858 0001:00013DF4 + 1860 0001:00013E04 1861 0001:00013E14 1862 0001:00013E24 1864 0001:00013E34 + 1865 0001:00013E3D 1866 0001:00013EA9 1867 0001:00013EB7 1868 0001:00013EC5 + 1869 0001:00013ED3 1870 0001:00013EE7 1871 0001:00013EFB 1872 0001:00013F0F + 1873 0001:00013F1F 1874 0001:00013F36 1875 0001:00013F4A 1876 0001:00013F5E + 1877 0001:00013F72 1878 0001:00013F8B 1880 0001:00013F96 1882 0001:00013FA4 + 1885 0001:00013FB1 1886 0001:00013FBE 1889 0001:00013FCC 1892 0001:00013FD8 + 1893 0001:00013FDE 1894 0001:00013FEC 1897 0001:00013FF4 1898 0001:00014000 + 1899 0001:0001406A 1902 0001:00014074 1903 0001:0001407D 1904 0001:0001408A + 1906 0001:00014094 1907 0001:000140A3 1908 0001:000140B2 1909 0001:000140C0 + 1910 0001:000140D6 1911 0001:000140EC 1912 0001:000140FF 1913 0001:00014112 + 1914 0001:00014129 1916 0001:00014135 1918 0001:00014143 1923 0001:0001415E + 1924 0001:0001416D 1927 0001:0001417A 1938 0001:00014184 1939 0001:000141A6 + 1940 0001:000141B0 1941 0001:000141C8 1944 0001:000141DC 1945 0001:000141F6 + 1946 0001:00014210 1948 0001:0001421E 1950 0001:00014231 1952 0001:0001426A + 1957 0001:00014270 1958 0001:00014279 1959 0001:00014282 1960 0001:00014288 + 1961 0001:00014294 1963 0001:000142BA 1964 0001:000142C9 1969 0001:000142D0 + 1970 0001:000142D6 1971 0001:000142E0 1973 0001:00014304 1974 0001:00014316 + 1979 0001:0001431C 1980 0001:00014325 1981 0001:0001432E 1982 0001:0001433C + 1983 0001:00014346 1984 0001:0001434F 1986 0001:00014368 1988 0001:0001437B + 1994 0001:00014380 1995 0001:0001438A 1996 0001:00014396 1998 0001:0001439A + 1999 0001:000143A4 2000 0001:000143B5 2002 0001:000143C4 2005 0001:000143CC + 2006 0001:000143D2 2007 0001:0001443C 2010 0001:0001444A 2011 0001:00014453 + 2012 0001:00014460 2014 0001:0001446E 2015 0001:0001447A 2018 0001:00014486 + 2019 0001:00014496 2020 0001:000144A8 2021 0001:000144B8 2022 0001:000144CD + 2023 0001:000144E2 2024 0001:000144F8 2025 0001:0001450D 2026 0001:00014527 + 2028 0001:00014541 2031 0001:00014552 2033 0001:00014562 2034 0001:00014572 + 2035 0001:00014582 2037 0001:00014592 2038 0001:0001459B 2039 0001:00014607 + 2040 0001:00014615 2043 0001:00014623 2044 0001:00014633 2045 0001:00014647 + 2046 0001:00014657 2047 0001:0001466E 2048 0001:00014685 2049 0001:00014699 + 2050 0001:000146AD 2051 0001:000146C6 2053 0001:000146DF 2055 0001:000146ED + 2059 0001:000146FA 2060 0001:00014707 2064 0001:00014715 2074 0001:0001471C + 2075 0001:0001473B 2076 0001:00014745 2077 0001:0001475D 2080 0001:00014771 + 2081 0001:0001478B 2083 0001:0001479E 2085 0001:000147D2 2090 0001:000147D8 + 2091 0001:000147E1 2092 0001:000147EA 2093 0001:000147F0 2094 0001:000147FC + 2096 0001:00014822 2097 0001:00014831 2102 0001:00014838 2103 0001:0001483E + 2104 0001:00014848 2106 0001:0001486C 2107 0001:0001487E 2112 0001:00014884 + 2113 0001:0001488D 2114 0001:00014896 2115 0001:000148A4 2116 0001:000148AE + 2117 0001:000148B7 2119 0001:000148D0 2121 0001:000148E3 2127 0001:000148E8 + 2128 0001:000148F2 2129 0001:000148FE 2131 0001:00014902 2132 0001:0001490C + 2133 0001:0001491D 2135 0001:0001492C 2138 0001:00014934 2139 0001:0001493A + 2140 0001:000149A4 2143 0001:000149B2 2144 0001:000149BB 2145 0001:000149C8 + 2147 0001:000149D6 2148 0001:000149E8 2150 0001:000149FA 2151 0001:00014A0A + 2152 0001:00014A1C 2153 0001:00014A2C 2154 0001:00014A3C 2155 0001:00014A57 + 2156 0001:00014A72 2157 0001:00014A8E 2158 0001:00014AA9 2159 0001:00014AC9 + 2161 0001:00014AE3 2164 0001:00014AF4 2166 0001:00014B04 2167 0001:00014B14 + 2168 0001:00014B24 2170 0001:00014B34 2171 0001:00014B3D 2172 0001:00014BA9 + 2173 0001:00014BBD 2175 0001:00014BD1 2176 0001:00014BE1 2177 0001:00014BF5 + 2178 0001:00014C05 2179 0001:00014C15 2180 0001:00014C32 2181 0001:00014C4F + 2182 0001:00014C6C 2183 0001:00014C86 2184 0001:00014CA5 2186 0001:00014CBE + 2188 0001:00014CCC 2192 0001:00014CD9 2193 0001:00014CE6 2197 0001:00014CF4 + 2204 0001:00014D00 2205 0001:00014D06 2207 0001:00014D31 2210 0001:00014D38 + 2211 0001:00014D3E 2213 0001:00014D69 2216 0001:00014D70 2217 0001:00014D8D + 2219 0001:00014DB3 2221 0001:00014DC4 2222 0001:00014DE5 2224 0001:00014E06 + 2226 0001:00014E2D 2231 0001:00014E34 2232 0001:00014E56 2233 0001:00014E5F + 2234 0001:00014E6D 2236 0001:00014E90 2238 0001:00014EC8 2240 0001:00014EFA + 2245 0001:00014F00 2246 0001:00014F0C 2247 0001:00014F15 2248 0001:00014F23 + 2249 0001:00014F2D 2250 0001:00014F36 2252 0001:00014F4D 2254 0001:00014F5D + 2260 0001:00014F64 2261 0001:00014F7B 2262 0001:00014F89 2264 0001:00014F8F + 2265 0001:00014F98 2266 0001:00014FA6 2267 0001:00014FB8 2269 0001:00014FD0 + 2272 0001:00014FE3 2275 0001:00014FE8 2276 0001:0001500B 2277 0001:00015075 + 2280 0001:00015081 2281 0001:0001508A 2282 0001:00015097 2284 0001:000150A9 + 2285 0001:000150C4 2286 0001:000150DE 2287 0001:000150FF 2288 0001:00015120 + 2289 0001:0001513D 2290 0001:0001515A 2291 0001:0001518A 2292 0001:000151A5 + 2293 0001:000151C0 2294 0001:000151DC 2295 0001:000151F7 2296 0001:00015215 + 2298 0001:00015232 2301 0001:00015243 2303 0001:0001525C 2304 0001:0001526C + 2305 0001:0001527B 2307 0001:00015294 2308 0001:0001529D 2309 0001:00015309 + 2310 0001:00015326 2311 0001:00015342 2312 0001:00015365 2313 0001:00015388 + 2314 0001:000153A7 2315 0001:000153C6 2316 0001:000153D7 2317 0001:000153F4 + 2318 0001:00015411 2319 0001:0001542E 2320 0001:0001544B 2321 0001:00015468 + 2323 0001:00015484 2325 0001:00015492 2328 0001:000154A8 2329 0001:000154BC + 2332 0001:00015526 2345 0001:0001552C 2346 0001:0001554B 2347 0001:00015554 + 2348 0001:00015562 2350 0001:00015585 2352 0001:000155B0 2354 0001:000155DD + 2359 0001:000155E4 2360 0001:000155F0 2361 0001:000155F9 2362 0001:00015607 + 2363 0001:00015611 2364 0001:0001561A 2366 0001:00015631 2368 0001:00015641 + 2374 0001:00015648 2375 0001:00015672 2376 0001:00015680 2378 0001:00015686 + 2379 0001:0001568F 2380 0001:0001569D 2381 0001:000156AC 2383 0001:000156DA + 2386 0001:0001570A 2389 0001:00015710 2390 0001:00015734 2391 0001:0001579E + 2394 0001:000157AA 2395 0001:000157B3 2396 0001:000157C0 2398 0001:000157D2 + 2399 0001:000157ED 2400 0001:00015807 2401 0001:00015828 2402 0001:00015849 + 2403 0001:00015866 2404 0001:00015883 2405 0001:000158A6 2406 0001:000158C1 + 2407 0001:000158DC 2408 0001:000158F8 2409 0001:00015913 2410 0001:00015931 + 2412 0001:0001594E 2415 0001:0001595F 2417 0001:00015978 2418 0001:00015988 + 2419 0001:00015997 2421 0001:000159B0 2422 0001:000159B9 2423 0001:00015A25 + 2424 0001:00015A42 2425 0001:00015A5E 2426 0001:00015A81 2427 0001:00015AA4 + 2428 0001:00015AC3 2429 0001:00015AE2 2430 0001:00015AF3 2431 0001:00015B10 + 2432 0001:00015B2D 2433 0001:00015B4A 2434 0001:00015B67 2435 0001:00015B84 + 2437 0001:00015BA0 2439 0001:00015BAE 2442 0001:00015BC4 2443 0001:00015BD8 + 2446 0001:00015C69 2451 0001:00015C70 2452 0001:00015C7C 2453 0001:00015C85 + 2454 0001:00015C93 2455 0001:00015C9D 2456 0001:00015CA6 2457 0001:00015CAD + 2458 0001:00015CBA 2460 0001:00015CD1 2462 0001:00015CE1 2467 0001:00015CE8 + 2468 0001:00015CEF 2469 0001:00015D1C 2472 0001:00015D25 2473 0001:00015D2E + 2474 0001:00015D3B 2477 0001:00015D44 2479 0001:00015D50 2480 0001:00015D5E + 2482 0001:00015D69 2484 0001:00015D91 2486 0001:00015D9D 2491 0001:00015DB4 + 2492 0001:00015DBB 2493 0001:00015DD4 2496 0001:00015DDD 2497 0001:00015DE6 + 2498 0001:00015DF3 2500 0001:00015DFC 2501 0001:00015E08 2503 0001:00015E16 + 2505 0001:00015E3E 2507 0001:00015E4A 2523 0001:00015E60 2524 0001:00015E69 + 2525 0001:00015E70 2526 0001:00015E77 2527 0001:00015E80 2529 0001:00015E90 + 2530 0001:00015E95 2531 0001:00015E98 2534 0001:00015E9C 2535 0001:00015EA2 + 2536 0001:00015EA9 2537 0001:00015EB0 2538 0001:00015EB5 2539 0001:00015EB8 + 2542 0001:00015EBC 2543 0001:00015EC2 2544 0001:00015EC9 2545 0001:00015ED0 + 2546 0001:00015ED5 2547 0001:00015ED8 2550 0001:00015EDC 2551 0001:00015EE2 + 2552 0001:00015EE9 2553 0001:00015EF0 2554 0001:00015EF5 2555 0001:00015EF8 + 2558 0001:00015EFC 2559 0001:00015F02 2560 0001:00015F09 2561 0001:00015F10 + 2562 0001:00015F15 2563 0001:00015F19 2566 0001:00015F1C 2567 0001:00015F22 + 2568 0001:00015F29 2569 0001:00015F30 2570 0001:00015F35 2571 0001:00015F38 + 2574 0001:00015F3C 2575 0001:00015F42 2576 0001:00015F49 2577 0001:00015F50 + 2578 0001:00015F55 2579 0001:00015F58 2582 0001:00015F5C 2583 0001:00015F62 + 2584 0001:00015F69 2585 0001:00015F70 2586 0001:00015F75 2587 0001:00015F79 + 2590 0001:00015F7C 2591 0001:00015F82 2592 0001:00015F89 2593 0001:00015F90 + 2594 0001:00015F95 2595 0001:00015FA1 2598 0001:00015FA8 2599 0001:00015FAE + 2600 0001:00015FB5 2601 0001:00015FBC 2602 0001:00015FC2 2603 0001:00015FC7 + 2606 0001:00015FCC 2607 0001:00015FD2 2608 0001:00015FD9 2609 0001:00015FE0 + 2610 0001:00015FEC 2611 0001:00015FF1 2614 0001:00015FF8 2615 0001:00015FFE + 2616 0001:00016005 2617 0001:0001600C 2618 0001:00016018 2619 0001:0001601D + 2622 0001:00016024 2623 0001:0001602A 2624 0001:00016031 2625 0001:00016038 + 2626 0001:00016044 2627 0001:00016049 2630 0001:00016050 2631 0001:00016056 + 2632 0001:0001605D 2633 0001:00016064 2634 0001:00016069 2635 0001:00016073 + 2639 0001:00016078 2640 0001:00016079 2641 0001:0001607E 2642 0001:0001607F + 2643 0001:00016084 2644 0001:00016087 2645 0001:00016088 2649 0001:0001608C + 2650 0001:0001608D 2651 0001:00016092 2652 0001:00016093 2653 0001:00016098 + 2654 0001:0001609B 2655 0001:0001609C 2659 0001:000160A0 2660 0001:000160A1 + 2661 0001:000160A6 2662 0001:000160A7 2663 0001:000160AC 2664 0001:000160AF + 2665 0001:000160B0 2668 0001:000160B4 2669 0001:000160BA 2670 0001:000160C1 + 2671 0001:000160C8 2672 0001:000160CD 2673 0001:000160D2 2674 0001:000160DC + 2677 0001:000160E0 2678 0001:000160F9 2679 0001:0001612A 2682 0001:00016130 + 2683 0001:00016136 2684 0001:0001613D 2685 0001:00016144 2686 0001:00016149 + 2687 0001:0001614E 2688 0001:00016163 2691 0001:00016168 2692 0001:0001616E + 2693 0001:00016175 2694 0001:0001617C 2695 0001:00016181 2696 0001:00016186 + 2697 0001:00016190 2700 0001:00016194 2701 0001:0001619A 2702 0001:000161A1 + 2703 0001:000161A8 2704 0001:000161AD 2705 0001:000161B2 2706 0001:000161BC + 2720 0001:000161C0 2721 0001:000161D9 2722 0001:0001620A 2732 0001:00016210 + 2733 0001:0001621C 2734 0001:00016225 2735 0001:00016233 2736 0001:0001623D + 2737 0001:00016246 2739 0001:0001625D 2741 0001:0001626D 2745 0001:00016274 + 2746 0001:00016279 2751 0001:0001627C 2753 0001:00016284 2754 0001:0001628B + 2759 0001:0001629C 2760 0001:000162A3 2763 0001:000162AA 2765 0001:000162DD + 2767 0001:000162F0 2768 0001:000162F6 2770 0001:00016309 2772 0001:0001631C + 2773 0001:00016342 2775 0001:00016352 2777 0001:00016362 2779 0001:0001636E + 2783 0001:00016379 2784 0001:00016380 2787 0001:00016390 2788 0001:0001639C + 2791 0001:000163A7 2792 0001:000163B4 2796 0001:000163C2 2799 0001:000163C7 + 2802 0001:000163CC 2803 0001:000163E9 2804 0001:000163F0 2806 0001:0001641D + 2807 0001:00016477 2816 0001:00016480 2818 0001:00016490 2822 0001:000164A6 + 2823 0001:000164B8 2826 0001:000164C2 2830 0001:000164DC 2832 0001:000164E8 + 2833 0001:000164F1 2834 0001:000164FF 2835 0001:0001650E 2836 0001:00016519 + 2837 0001:00016525 2839 0001:00016537 2842 0001:00016547 2848 0001:0001655E + 2849 0001:00016567 2851 0001:00016575 2852 0001:00016586 2853 0001:00016592 + 2854 0001:00016597 2856 0001:000165B2 2864 0001:000165C2 2865 0001:000165D3 + 2868 0001:000165D8 2872 0001:000165F2 2874 0001:000165FE 2875 0001:00016607 + 2876 0001:00016615 2877 0001:00016624 2878 0001:0001662E 2879 0001:00016633 + 2881 0001:00016652 2887 0001:00016662 2891 0001:00016679 2895 0001:0001668F + 2897 0001:0001669A 2898 0001:000166A3 2899 0001:000166B1 2900 0001:000166C2 + 2901 0001:000166CD 2902 0001:000166DB 2904 0001:000166ED 2907 0001:000166FD + 2911 0001:00016710 2912 0001:00016721 2915 0001:0001672B 2919 0001:00016741 + 2921 0001:0001674D 2922 0001:00016756 2923 0001:00016764 2924 0001:00016773 + 2925 0001:0001677E 2926 0001:0001678A 2928 0001:0001679C 2931 0001:000167AC + 2936 0001:000167C0 2938 0001:000167C5 2941 0001:000167CC 2942 0001:000167CD + 2943 0001:000167D4 2944 0001:000167DA 2945 0001:000167E1 2947 0001:000167E7 + 2948 0001:000167EE 2953 0001:000167F0 2954 0001:000167FF 2955 0001:00016806 + 2956 0001:0001680E 2958 0001:00016815 2959 0001:0001681E 2960 0001:0001682C + 2961 0001:00016836 2962 0001:0001683F 2964 0001:00016858 2968 0001:00016868 + 2969 0001:00016873 2974 0001:0001687C 2975 0001:00016888 2976 0001:00016893 + 2977 0001:0001689F 2978 0001:000168AE 2979 0001:000168BB 2980 0001:000168C8 + 2981 0001:000168D5 2983 0001:000168E2 2985 0001:000168E7 2986 0001:000168EE + 2987 0001:000168F5 2988 0001:00016902 2989 0001:00016907 2994 0001:00016910 + 2995 0001:0001691C 2996 0001:00016927 2997 0001:00016933 2998 0001:0001693C + 2999 0001:00016949 3001 0001:00016956 3003 0001:0001695B 3004 0001:00016962 + 3005 0001:00016969 3006 0001:00016976 3007 0001:0001697B 3013 0001:00016984 + 3014 0001:00016993 3015 0001:00016997 3016 0001:000169A1 3017 0001:000169AB + 3019 0001:000169E9 3020 0001:000169EC 3021 0001:000169EF 3022 0001:000169F1 + 3023 0001:000169F5 3026 0001:000169FA 3027 0001:000169FD 3028 0001:00016A00 + 3029 0001:00016A02 3030 0001:00016A06 3033 0001:00016A0B 3034 0001:00016A0E + 3035 0001:00016A11 3036 0001:00016A13 3037 0001:00016A17 3039 0001:00016A1C + 3040 0001:00016A22 3041 0001:00016A2E 3042 0001:00016A3A 3043 0001:00016A42 + 3044 0001:00016A4A 3045 0001:00016A52 3046 0001:00016A5A 3048 0001:00016A62 + 3051 0001:00016A67 3052 0001:00016A6D 3055 0001:00016A7A 3056 0001:00016A81 + 3057 0001:00016A88 3058 0001:00016A8E 3060 0001:00016A93 3066 0001:00016A9C + 3067 0001:00016AAE 3068 0001:00016AB0 3069 0001:00016ABE 3070 0001:00016ACC + 3073 0001:00016B0B 3074 0001:00016B19 3075 0001:00016B28 3076 0001:00016B3C + 3077 0001:00016B50 3081 0001:00016B8D 3083 0001:00016B91 3089 0001:00016BA0 + 3090 0001:00016BA7 3091 0001:00016BC3 3092 0001:00016BDC 3093 0001:00016BF4 + 3094 0001:00016C0C 3095 0001:00016C20 3096 0001:00016C34 3098 0001:00016C48 + 3101 0001:00016C4D 3102 0001:00016C51 3105 0001:00016C61 3106 0001:00016C6B + 3107 0001:00016C73 3108 0001:00016C82 3110 0001:00016C8A 3113 0001:00016C94 + 3114 0001:00016C9A 3116 0001:00016CA7 3117 0001:00016CAD 3118 0001:00016CBE + 3121 0001:00016CC7 3123 0001:00016CD2 3124 0001:00016CE3 3127 0001:00016CED + 3128 0001:00016CF3 3129 0001:00016D04 3131 0001:00016D0D 3133 0001:00016D18 + 3134 0001:00016D29 3138 0001:00016D33 3140 0001:00016D3A 3143 0001:00016D40 + 3144 0001:00016D56 3145 0001:00016D63 3147 0001:00016D86 3149 0001:00016DA9 + 3151 0001:00016DD0 3157 0001:00016DD8 3158 0001:00016DE4 3159 0001:00016DF8 + 3160 0001:00016E18 3164 0001:00016E38 3166 0001:00016E44 3167 0001:00016E49 + 3169 0001:00016E6F 3171 0001:00016E95 3173 0001:00016E9B 3174 0001:00016EA0 + 3177 0001:00016EBB 3178 0001:00016EC2 3179 0001:00016EC9 3180 0001:00016EE4 + 3181 0001:00016EE9 3186 0001:00016EEB 3187 0001:00016EF0 3189 0001:00016F0D + 3193 0001:00016F2A 3194 0001:00016F33 3197 0001:00016F35 3198 0001:00016F3C + 3199 0001:00016F43 3200 0001:00016F4F 3201 0001:00016F54 3222 0001:00016F60 + 3223 0001:00016F6B 3224 0001:00016F7C 3225 0001:00016F90 3227 0001:00016FE2 + 3230 0001:00016FEC 3233 0001:00016FFC 3236 0001:0001700C 3237 0001:00017011 + 3239 0001:00017021 3242 0001:00017031 3243 0001:00017036 3245 0001:00017046 + 3248 0001:00017056 3251 0001:0001706C 3252 0001:00017070 3254 0001:0001707E + 3255 0001:00017083 3257 0001:00017093 3260 0001:000170A3 3261 0001:000170A8 + 3262 0001:000170AD 3264 0001:000170BD 3267 0001:000170CD 3268 0001:000170DD + 3269 0001:00017105 3270 0001:0001712D 3275 0001:0001714D 3277 0001:0001715E + 3280 0001:0001716B 3281 0001:00017176 3282 0001:00017181 3286 0001:00017188 + 3288 0001:00017195 3292 0001:000171A2 3293 0001:000171A7 3295 0001:000171B4 + 3298 0001:000171C1 3300 0001:000171CE 3302 0001:000171D3 3307 0001:000171DC + 3308 0001:000171E5 3309 0001:000171E8 3312 0001:000171EB 3313 0001:000171F8 + 3316 0001:00017205 3318 0001:0001720B 3319 0001:00017214 3323 0001:00017221 + 3324 0001:00017228 3327 0001:00017238 3329 0001:0001724E 3333 0001:0001725B + 3334 0001:00017266 3342 0001:0001726C 3343 0001:0001727B 3344 0001:00017284 + 3347 0001:00017292 3348 0001:0001729C 3349 0001:000172A3 3352 0001:000172AC + 3354 0001:000172B3 3355 0001:000172BC 3356 0001:000172CA 3357 0001:000172D4 + 3358 0001:000172DD 3360 0001:000172FA 3366 0001:0001730A 3368 0001:00017326 + 3370 0001:00017339 3384 0001:00017340 3385 0001:00017344 3386 0001:00017349 + 3388 0001:0001734D 3390 0001:00017350 3391 0001:00017352 3394 0001:00017354 + 3395 0001:00017359 3396 0001:0001735B 3398 0001:00017374 3399 0001:0001738A + 3400 0001:00017394 3401 0001:0001739F 3404 0001:000173BA 3405 0001:000173CD + 3406 0001:000173D4 3407 0001:000173DC 3410 0001:000173F7 3411 0001:0001740A + 3412 0001:00017411 3413 0001:0001741A 3414 0001:0001741E 3415 0001:00017424 + 3417 0001:00017428 3419 0001:0001742C 3422 0001:00017430 3424 0001:00017437 + 3428 0001:0001743C 3429 0001:00017440 3430 0001:00017443 3431 0001:00017447 + 3433 0001:0001744B 3434 0001:0001744D 3437 0001:00017450 3438 0001:00017453 + 3439 0001:00017467 3440 0001:0001746B 3441 0001:0001747F 3443 0001:00017483 + 3444 0001:00017485 3447 0001:0001748C 3448 0001:0001748F 3449 0001:0001749A + 3450 0001:0001749E 3451 0001:000174A9 3453 0001:000174AD 3454 0001:000174AF + 3457 0001:000174B4 3458 0001:000174B7 3459 0001:000174C2 3460 0001:000174C6 + 3461 0001:000174D1 3463 0001:000174D5 3464 0001:000174D7 3467 0001:000174DC + 3468 0001:000174DF 3469 0001:000174EC 3470 0001:000174F0 3471 0001:000174FD + 3473 0001:00017501 3474 0001:00017503 3480 0001:00017508 3481 0001:00017520 + 3482 0001:0001752A 3483 0001:00017534 3484 0001:0001756C 3504 0001:00017574 + 3505 0001:0001757E 3506 0001:0001758F 3507 0001:000175A0 3510 0001:000175F1 + 3511 0001:000175F6 3513 0001:000175FD 3514 0001:0001760B 3515 0001:0001761B + 3516 0001:00017635 3517 0001:00017651 3518 0001:00017677 3519 0001:0001769A + 3520 0001:000176BD 3521 0001:000176C8 3522 0001:000176E5 3524 0001:000176F2 + 3525 0001:000176F7 3527 0001:000176F9 3534 0001:00017700 3536 0001:00017710 + 3539 0001:00017714 3542 0001:00017727 3543 0001:0001772C 3546 0001:0001773D + 3547 0001:00017743 3550 0001:00017757 3551 0001:00017769 3554 0001:00017773 + 3558 0001:0001778E 3560 0001:00017797 3561 0001:000177A0 3562 0001:000177AE + 3563 0001:000177BC 3564 0001:000177CA 3565 0001:000177CF 3567 0001:00017802 + 3573 0001:00017812 3579 0001:0001783C 3580 0001:00017845 3581 0001:00017853 + 3582 0001:00017861 3583 0001:0001786E 3584 0001:00017873 3586 0001:00017890 + 3596 0001:000178A0 3597 0001:000178AB 3600 0001:000178BC 3601 0001:000178C5 + 3604 0001:000178D9 3605 0001:000178E7 3608 0001:000178F1 3612 0001:0001790D + 3614 0001:00017919 3615 0001:00017922 3616 0001:00017930 3617 0001:0001793F + 3618 0001:00017949 3619 0001:0001794E 3621 0001:00017980 3627 0001:00017990 + 3631 0001:000179BA 3633 0001:000179CC 3634 0001:000179D5 3636 0001:000179E3 + 3637 0001:000179F3 3638 0001:000179FF 3639 0001:00017A04 3641 0001:00017A22 + 3646 0001:00017A32 3647 0001:00017A43 3650 0001:00017A4D 3654 0001:00017A68 + 3656 0001:00017A71 3657 0001:00017A7A 3658 0001:00017A88 3659 0001:00017A96 + 3660 0001:00017AA0 3661 0001:00017AA5 3663 0001:00017AD8 3669 0001:00017AE8 + 3674 0001:00017B0F 3676 0001:00017B17 3681 0001:00017B20 3682 0001:00017B22 + 3683 0001:00017B25 3686 0001:00017B28 3687 0001:00017B36 3690 0001:00017B3E + 3691 0001:00017B45 3692 0001:00017B4F 3693 0001:00017B56 3696 0001:00017B60 + 3698 0001:00017B78 3702 0001:00017B7F 3703 0001:00017B84 3942 0001:00017B88 + 3943 0001:00017B8C 3944 0001:00017B8E 3945 0001:00017B91 3946 0001:00017B94 + 3947 0001:00017B97 3948 0001:00017B99 3949 0001:00017B9E 3950 0001:00017BA0 + 3951 0001:00017BA5 3953 0001:00017BA8 3963 0001:00017D0C 3964 0001:00017D32 + 3965 0001:00017D3F 3966 0001:00017D55 3967 0001:00017D5C 3968 0001:00017D6D + 3969 0001:00017D74 3970 0001:00017D82 3971 0001:00017D90 3973 0001:00017DCB + 3975 0001:00017DF3 3976 0001:00017DF8 3977 0001:00017E06 3978 0001:00017E0B + 3979 0001:00017E39 3983 0001:00017E7C 3984 0001:00017E7F 3988 0001:00017E80 + 3990 0001:00017E82 3989 0001:00017E85 3991 0001:00017E8C 4021 0001:00017E90 + 4022 0001:00017E98 4024 0001:00017EA9 4025 0001:00017EB5 4028 0001:00017EDD + 4029 0001:00017EEA 4031 0001:00017EF8 4032 0001:00017EFA 4037 0001:00017F04 + 4038 0001:00017F05 4039 0001:00017F0C 4079 0001:00017F10 4080 0001:00017F21 + 4088 0001:00017F24 4089 0001:00017F27 4090 0001:00017F35 4099 0001:00017F38 + 4100 0001:00017F3B 4101 0001:00017F49 4104 0001:00017F4C 4105 0001:00017F52 + 4106 0001:00017F61 4109 0001:00017F64 4110 0001:00017F6D 4111 0001:00017F78 + 4113 0001:00017F83 4114 0001:00017F8C 4117 0001:00017F90 4118 0001:00017FA9 + 4119 0001:00017FE0 4122 0001:00017FE8 4123 0001:00017FF1 4124 0001:00017FFC + 4126 0001:00018007 4127 0001:00018010 4158 0001:00018014 4159 0001:0001801E + 4160 0001:00018031 4161 0001:00018044 4162 0001:0001804D 4163 0001:00018058 + 4164 0001:0001805E 4165 0001:00018069 4166 0001:00018074 4168 0001:00018078 + 4169 0001:00018084 4194 0001:0001808C 4195 0001:00018092 4196 0001:00018099 + 4197 0001:0001809E 4198 0001:000180A1 4210 0001:000180A4 4211 0001:000180AE + 4266 0001:000180B0 4268 0001:000180B1 4269 0001:000180BB 4274 0001:000180C7 + 4275 0001:000180CA 4278 0001:000180D1 4279 0001:000180D5 4280 0001:000180DB + 4282 0001:000180E4 4284 0001:000180EB 4286 0001:000180F1 4297 0001:000180F4 + 4298 0001:00018107 4300 0001:0001811E 4302 0001:00018123 4303 0001:0001812E + 4304 0001:0001813F 4306 0001:00018141 4307 0001:00018146 4308 0001:0001814F + 4303 0001:00018155 4310 0001:00018158 4311 0001:0001816F 4312 0001:00018173 + 4314 0001:00018178 4316 0001:00018180 4317 0001:0001818E 4318 0001:00018194 + 4350 0001:0001819C 4351 0001:000181A2 4352 0001:000181B3 4353 0001:000181C0 + 4359 0001:000181C4 4360 0001:000181CA 4361 0001:000181DB 4363 0001:000181E4 + 4364 0001:000181E6 4367 0001:000181EC 4368 0001:000181F3 4369 0001:0001820A + 4372 0001:00018210 4373 0001:00018217 4374 0001:0001822E 4377 0001:00018234 + 4378 0001:00018238 4379 0001:0001824E 4382 0001:00018254 4383 0001:00018257 + 4384 0001:00018269 4402 0001:0001826C 4403 0001:00018273 4409 0001:00018274 + 4410 0001:00018277 4411 0001:0001827B 4413 0001:00018289 4414 0001:00018297 + 4418 0001:0001829C 4420 0001:000182BB 4423 0001:000182BC 4424 0001:000182C0 + 4427 0001:000182F2 4437 0001:000182F8 4438 0001:000182FF 4439 0001:00018311 + 4441 0001:0001831B 4442 0001:00018326 4445 0001:00018330 4446 0001:00018339 + 4447 0001:00018347 4448 0001:00018353 4450 0001:00018358 4451 0001:0001836E + 4455 0001:0001837D 4456 0001:00018393 4460 0001:00018397 4462 0001:000183AF + 4464 0001:000183BF 4467 0001:000183C4 4477 0001:000183C7 4479 0001:000183C8 + 4480 0001:000183CA 4481 0001:000183CB 4483 0001:000183CD 4484 0001:000183D0 + 4485 0001:000183D1 4487 0001:000183D3 4488 0001:000183D4 4492 0001:000183D5 + 4494 0001:000183D8 4495 0001:000183D9 4496 0001:000183DE 4498 0001:000183E2 + 4502 0001:000183E3 4516 0001:000183E8 4517 0001:000183F3 4518 0001:00018405 + 4520 0001:0001840F 4523 0001:00018435 4525 0001:0001843F 4526 0001:0001844A + 4528 0001:00018454 4530 0001:00018460 4534 0001:0001847A 4535 0001:00018490 + 4538 0001:0001849F 4539 0001:000184A8 4540 0001:000184B6 4542 0001:000184BB + 4543 0001:000184C5 4546 0001:000184CD 4547 0001:000184D9 4549 0001:000184E6 + 4551 0001:000184EE 4554 0001:000184F4 4556 0001:00018517 4559 0001:00018527 + 4562 0001:00018530 4572 0001:00018533 4577 0001:00018534 4580 0001:00018537 + 4581 0001:00018539 4583 0001:0001853B 4584 0001:0001853E 4585 0001:0001853F + 4590 0001:00018541 4592 0001:00018544 4593 0001:00018545 4594 0001:00018546 + 4595 0001:00018547 4596 0001:00018548 4597 0001:0001854D 4599 0001:00018551 + 4603 0001:00018552 4607 0001:00018558 4613 0001:0001855B 4614 0001:0001855C + 4615 0001:0001855D 4616 0001:0001855E 4618 0001:0001855F 4619 0001:00018561 + 4620 0001:00018564 4622 0001:00018566 4623 0001:00018568 4624 0001:0001856A + 4626 0001:0001856C 4628 0001:0001856F 4629 0001:00018571 4630 0001:00018574 + 4631 0001:00018576 4632 0001:00018579 4633 0001:0001857C 4634 0001:0001857F + 4635 0001:00018581 4636 0001:00018583 4638 0001:00018585 4639 0001:00018587 + 4640 0001:00018588 4641 0001:0001858A 4645 0001:0001858C 4647 0001:0001858E + 4648 0001:0001858F 4649 0001:00018590 4650 0001:00018591 4651 0001:00018592 + 4656 0001:00018598 4657 0001:0001859A 4659 0001:0001859E 4660 0001:000185A5 + 4661 0001:000185AC 4663 0001:000185B0 4667 0001:000185B4 4668 0001:000185B5 + 4671 0001:000185B9 4672 0001:000185BA 4669 0001:000185BF 4674 0001:000185CA + 4679 0001:000185CC 4680 0001:000185CE 4681 0001:000185D0 4683 0001:000185D3 + 4690 0001:000185D4 4692 0001:000185DB 4694 0001:000185DF 4695 0001:000185E1 + 4698 0001:000185E8 4700 0001:000185F1 4703 0001:000185F5 4706 0001:000185FE + 4709 0001:00018607 4710 0001:00018611 4712 0001:0001861D 4713 0001:00018621 + 4714 0001:00018623 4709 0001:00018624 4717 0001:00018627 4698 0001:00018629 + 4720 0001:00018632 4727 0001:0001863C 4728 0001:00018646 4730 0001:00018648 + 4731 0001:00018652 4733 0001:00018668 4734 0001:00018670 4736 0001:00018674 + 4737 0001:00018682 4738 0001:00018684 4733 0001:00018685 4739 0001:00018688 + 4747 0001:00018690 4749 0001:00018697 4750 0001:00018699 4751 0001:000186A9 + 4753 0001:000186B1 4754 0001:000186B3 4755 0001:000186B5 4750 0001:000186B6 + 4756 0001:000186B9 4763 0001:000186BD 4766 0001:000186C9 4768 0001:000186D1 + 4769 0001:000186D6 4777 0001:000186D8 4779 0001:000186E0 4774 0001:000186E1 + 4782 0001:000186E9 4783 0001:000186EE 4785 0001:000186F0 4763 0001:000186F1 + 4786 0001:000186F8 4795 0001:000186FC 4796 0001:00018702 4798 0001:00018704 + 4799 0001:0001870D 4801 0001:00018727 4804 0001:0001872B 4805 0001:00018732 + 4806 0001:00018733 4808 0001:00018737 4809 0001:00018744 4811 0001:00018746 + 4802 0001:00018747 4813 0001:0001874F 4818 0001:00018754 4819 0001:00018755 + 4820 0001:0001875A 4822 0001:00018763 4823 0001:0001876A 4826 0001:0001876D + 4827 0001:00018772 4831 0001:00018777 4835 0001:00018793 4836 0001:0001879A + 4848 0001:0001879C 4849 0001:000187C8 4850 0001:000187D6 4854 0001:000187E4 + 4857 0001:000187EC 4860 0001:000187F8 4861 0001:00018801 4863 0001:0001880A + 4866 0001:00018810 4869 0001:00018817 4870 0001:0001881A 4874 0001:0001882B + 4877 0001:00018837 4878 0001:00018843 4881 0001:00018854 4885 0001:00018879 + 4886 0001:00018881 4888 0001:0001888F 4889 0001:000188A6 4891 0001:000188AE + 4892 0001:00018948 4893 0001:0001895A 4894 0001:0001896B 4895 0001:0001897A + 4896 0001:00018989 4897 0001:00018998 4898 0001:000189A7 4899 0001:000189B6 + 4900 0001:000189C5 4901 0001:000189D6 4902 0001:000189EA 4903 0001:000189F6 + 4904 0001:00018A02 4905 0001:00018A11 4906 0001:00018A21 4907 0001:00018A30 + 4908 0001:00018A3E 4909 0001:00018A4F 4911 0001:00018A5B 4913 0001:00018A63 + 4915 0001:00018A7A 4919 0001:00018A9A 4921 0001:00018AE5 4932 0001:00018AEC + 4934 0001:00018B19 4937 0001:00018B24 4938 0001:00018B2A 4941 0001:00018B34 + 4942 0001:00018B3C 4945 0001:00018B4A 4948 0001:00018B58 4949 0001:00018B63 + 4948 0001:00018B85 4952 0001:00018B88 4955 0001:00018B9B 4956 0001:00018BA2 + 4960 0001:00018BAB 4961 0001:00018BBA 4965 0001:00018BCB 4966 0001:00018BE4 + 4967 0001:00018BFE 4968 0001:00018C97 4969 0001:00018CA7 4970 0001:00018CB6 + 4971 0001:00018CC6 4972 0001:00018CD6 4973 0001:00018CE6 4974 0001:00018CF6 + 4975 0001:00018D05 4976 0001:00018D11 4977 0001:00018D1D 4978 0001:00018D2A + 4979 0001:00018D36 4980 0001:00018D42 4981 0001:00018D4E 4982 0001:00018D5A + 4983 0001:00018D67 4984 0001:00018D73 4985 0001:00018D82 4987 0001:00018D8C + 4990 0001:00018D9F 4994 0001:00018DB4 4996 0001:00018DF4 5008 0001:00018E20 + 5009 0001:00018E2A 5010 0001:00018E34 5011 0001:00018E42 5012 0001:00018E51 + 5013 0001:00018E5E 5011 0001:00018E64 5015 0001:00018E76 5017 0001:00018E88 + 5023 0001:00018E8C 5024 0001:00018E8F 5025 0001:00018E94 5030 0001:00018E98 + 5031 0001:00018EA2 5032 0001:00018EB0 5034 0001:00018EC4 5035 0001:00018ECB + 5041 0001:00018ED0 5042 0001:00018EE3 5044 0001:00018EF8 5046 0001:00018F08 + 5047 0001:00018F0F 5051 0001:00018F18 5052 0001:00018F1B 5053 0001:00018F20 + 5068 0001:00018F24 5069 0001:00018F2F 5070 0001:00018F3C 5071 0001:00018F51 + 5077 0001:00018F5C 5078 0001:00018F67 5079 0001:00018F76 5081 0001:00018F88 + 5082 0001:00018F8F 5085 0001:00018F98 5086 0001:00018FAA 5087 0001:00018FBA + 5088 0001:00018FD7 5093 0001:00018FDC 5094 0001:0001901D 5095 0001:00019027 + 5096 0001:00019031 5097 0001:0001903F 5098 0001:00019049 5099 0001:00019055 + 5100 0001:00019095 5101 0001:000190A1 5103 0001:000190A5 5104 0001:000190B7 + 5105 0001:000190BF 5106 0001:000190E0 5107 0001:000190F9 5108 0001:0001910D + 5107 0001:00019119 5110 0001:0001911C 5111 0001:0001912C 5112 0001:00019134 + 5114 0001:00019176 5115 0001:000191DE 5116 0001:000191E9 5118 0001:00019201 + 5120 0001:0001925B 5123 0001:00019264 5124 0001:00019275 5125 0001:0001927F + 5126 0001:0001928D 5127 0001:00019299 5129 0001:000192BC 5132 0001:000192CE + 5133 0001:000192EA 5137 0001:000192F0 5138 0001:000192F2 5142 0001:000192F4 + 5143 0001:000192F7 5144 0001:00019301 5145 0001:00019303 5150 0001:00019308 + 5151 0001:0001930D 5152 0001:0001930F 5156 0001:00019310 5157 0001:00019315 + 5161 0001:00019318 5162 0001:0001931D 5166 0001:00019320 5167 0001:00019325 + 5171 0001:00019328 5172 0001:0001932B 5173 0001:00019335 5174 0001:00019337 + 5192 0001:0001933C 5193 0001:00019341 5197 0001:00019344 5198 0001:0001934A + 5202 0001:0001934C 5203 0001:00019353 5212 0001:00019354 5213 0001:0001935D + 5223 0001:00019360 5224 0001:00019363 5225 0001:00019370 5248 0001:00019374 + 5249 0001:0001937B 5253 0001:0001937C 5254 0001:0001937F 5255 0001:00019384 + 5264 0001:00019388 5265 0001:00019391 5269 0001:00019394 5270 0001:0001939D + 5273 0001:000193A0 5274 0001:000193A3 5275 0001:000193A6 5278 0001:000193AC + 5279 0001:000193AF 5280 0001:000193B2 5285 0001:000193B8 5286 0001:000193BF + 5287 0001:000193D0 5289 0001:000193D4 5290 0001:000193D9 5304 0001:000193E0 + 5305 0001:000193E8 5313 0001:000193EC 5314 0001:000193F2 5315 0001:000193FB + 5320 0001:00019400 5321 0001:00019406 5322 0001:0001940F 5350 0001:0001945C + 5351 0001:00019478 5352 0001:0001948F 5355 0001:00019497 5356 0001:0001949C + 5359 0001:000194B3 5361 0001:000194BC 5362 0001:000194CB 5365 0001:000194CF + 5366 0001:000194F6 5367 0001:00019501 5368 0001:00019511 5373 0001:0001951F + 5374 0001:00019544 5375 0001:00019549 5376 0001:00019559 5378 0001:0001956A + 5382 0001:00019575 5384 0001:00019579 5387 0001:0001958D 5388 0001:000195A9 + 5389 0001:000195BC 5393 0001:000195D3 5394 0001:000195DC 5396 0001:000195E9 + 5399 0001:000195F8 5400 0001:0001961B 5401 0001:00019620 5402 0001:00019630 + 5404 0001:00019641 5408 0001:0001964C 5409 0001:00019662 5413 0001:0001966B + 5414 0001:00019679 5417 0001:00019696 5421 0001:000196AA 5422 0001:000196BC + 5423 0001:000196CF 5426 0001:000196D8 5429 0001:000196E3 5430 0001:0001970C + 5436 0001:00019714 5438 0001:00019744 5439 0001:0001974E 5442 0001:0001976E + 5443 0001:00019774 5444 0001:0001978E 5445 0001:00019793 5446 0001:000197AD + 5447 0001:000197B8 5446 0001:000197C2 5450 0001:000197C5 5453 0001:000197E3 + 5455 0001:000197E9 5459 0001:00019803 5460 0001:0001980E 5465 0001:0001981C + 5468 0001:00019824 5469 0001:0001983E 5471 0001:00019853 5477 0001:00019866 + 5479 0001:0001986C 5481 0001:000198A5 5485 0001:000198B2 5486 0001:000198CC + 5489 0001:000198D6 5492 0001:000198F8 5495 0001:00019902 5498 0001:00019924 + 5500 0001:0001992E 5504 0001:00019936 5505 0001:00019939 5507 0001:0001993D + 5508 0001:0001993E 5509 0001:00019944 5510 0001:0001994A 5505 0001:0001996A + 5512 0001:000199B7 5516 0001:000199C0 5517 0001:000199C3 5518 0001:000199C5 + 5522 0001:000199CC 5523 0001:000199CF 5524 0001:000199D1 5528 0001:000199D8 + 5529 0001:000199DB 5530 0001:000199DD 5534 0001:000199E4 5535 0001:000199E7 + 5536 0001:000199E9 5541 0001:000199F0 5543 0001:000199FB 5545 0001:00019A1B + 5547 0001:00019A21 5548 0001:00019A2B 5549 0001:00019A39 5550 0001:00019A54 + 5552 0001:00019A5A 5553 0001:00019A68 5557 0001:00019A8D 5560 0001:00019AA2 + 5566 0001:00019AA8 5567 0001:00019ACD 5568 0001:00019AD1 5569 0001:00019ADB + 5570 0001:00019AE9 5572 0001:00019AFC 5573 0001:00019B04 5576 0001:00019B3A + 5577 0001:00019B3F 5578 0001:00019B43 5580 0001:00019B45 5570 0001:00019B46 + 5582 0001:00019B56 5584 0001:00019B88 5588 0001:00019B90 5589 0001:00019B95 + 5593 0001:00019B98 5594 0001:00019B9D 5602 0001:00019BA0 5603 0001:00019BA5 + 5605 0001:00019BAA 5613 0001:00019BAC 5614 0001:00019BB1 5616 0001:00019BB6 + 5668 0001:00019BB8 5669 0001:00019BBD 5671 0001:00019BC2 5719 0001:00019BC4 + 5720 0001:00019BC9 5721 0001:00019BCE 5722 0001:00019BD0 5726 0001:00019BD4 + 5727 0001:00019BD9 5728 0001:00019BDE 5729 0001:00019BE0 5733 0001:00019BE4 + 5734 0001:00019BE9 5735 0001:00019BEE 5736 0001:00019BF0 5747 0001:00019BF4 + 5748 0001:00019BF9 5749 0001:00019BFE 5750 0001:00019C00 5776 0001:00019C04 + 5777 0001:00019C22 5778 0001:00019C7A 5760 0001:00019C7C 5761 0001:00019C96 + 5763 0001:00019CA0 5764 0001:00019CAA 5765 0001:00019CB4 5766 0001:00019CBF + 5768 0001:00019CC4 5769 0001:00019CD1 5770 0001:00019CDE 5771 0001:00019CEB + 5772 0001:00019CF8 5774 0001:00019D05 5775 0001:00019D24 + +Line numbers for RTLConsts(RTLConsts.pas) segment .text + + 319 0001:00019EB0 319 0001:00019EB7 + +Line numbers for TypInfo(TypInfo.pas) segment .text + + 114 0001:00019EB8 340 0001:0001A0C0 341 0001:0001A0C9 342 0001:0001A0F0 + 345 0001:0001A0F4 346 0001:0001A100 347 0001:0001A11A 355 0001:0001A124 + 356 0001:0001A133 357 0001:0001A14C 360 0001:0001A150 361 0001:0001A15F + 362 0001:0001A178 387 0001:0001A17C 388 0001:0001A188 389 0001:0001A19C + 390 0001:0001A1A2 391 0001:0001A1AD 404 0001:0001A1B8 405 0001:0001A1C4 + 406 0001:0001A1DF 524 0001:0001A1E4 526 0001:0001A210 529 0001:0001A218 + 530 0001:0001A22C 531 0001:0001A232 535 0001:0001A23F 537 0001:0001A2A1 + 539 0001:0001A2BD 540 0001:0001A2C3 541 0001:0001A2E1 542 0001:0001A2FA + 544 0001:0001A314 546 0001:0001A330 547 0001:0001A336 549 0001:0001A357 + 551 0001:0001A373 553 0001:0001A38B 555 0001:0001A3A0 557 0001:0001A3BE + 559 0001:0001A3D9 561 0001:0001A3E9 563 0001:0001A400 565 0001:0001A41E + 569 0001:0001A474 575 0001:0001A480 576 0001:0001A486 577 0001:0001A49C + 578 0001:0001A4C4 579 0001:0001A4E1 585 0001:0001A4E8 587 0001:0001A514 + 588 0001:0001A528 589 0001:0001A52E 592 0001:0001A53B 595 0001:0001A54A + 597 0001:0001A5AC 598 0001:0001A5BA 602 0001:0001A5E5 606 0001:0001A612 + 607 0001:0001A620 608 0001:0001A63E 610 0001:0001A64C 612 0001:0001A676 + 615 0001:0001A6A1 616 0001:0001A6AF 618 0001:0001A6C9 620 0001:0001A6E7 + 622 0001:0001A706 624 0001:0001A724 626 0001:0001A742 628 0001:0001A752 + 632 0001:0001A779 633 0001:0001A78B 636 0001:0001A79B 640 0001:0001A7F1 + 676 0001:0001A7FC 677 0001:0001A828 678 0001:0001A84C 679 0001:0001A870 + 683 0001:0001A878 684 0001:0001A887 685 0001:0001A89D 686 0001:0001A8A4 + 693 0001:0001A8AC 694 0001:0001A8AE 695 0001:0001A8B1 696 0001:0001A8B5 + 702 0001:0001A8B8 703 0001:0001A8DB 705 0001:0001A8E3 706 0001:0001A8EE + 708 0001:0001A8F3 709 0001:0001A908 713 0001:0001A91C 714 0001:0001A935 + 715 0001:0001A94A 719 0001:0001A964 720 0001:0001A96D 722 0001:0001A973 + 723 0001:0001A97D 720 0001:0001A980 725 0001:0001A986 727 0001:0001A9AE + 736 0001:0001A9C0 737 0001:0001A9C1 738 0001:0001A9C2 740 0001:0001A9C3 + 741 0001:0001A9C5 744 0001:0001A9C7 745 0001:0001A9C9 746 0001:0001A9CC + 747 0001:0001A9D0 748 0001:0001A9D2 749 0001:0001A9D5 752 0001:0001A9D9 + 755 0001:0001A9DD 760 0001:0001A9DF 761 0001:0001A9E1 762 0001:0001A9E4 + 766 0001:0001A9E6 767 0001:0001A9EA 768 0001:0001A9ED 769 0001:0001A9F0 + 770 0001:0001A9F2 771 0001:0001A9F3 774 0001:0001A9F5 777 0001:0001A9F7 + 779 0001:0001A9F9 780 0001:0001A9FA 781 0001:0001A9FE 782 0001:0001AA00 + 786 0001:0001AA02 789 0001:0001AA05 790 0001:0001AA06 791 0001:0001AA07 + 792 0001:0001AA08 795 0001:0001AA0C 796 0001:0001AA18 797 0001:0001AA20 + 801 0001:0001AA2D 803 0001:0001AA3B 804 0001:0001AA4D 805 0001:0001AA54 + 806 0001:0001AA66 808 0001:0001AA6F 811 0001:0001AA7C 813 0001:0001AA8D + 821 0001:0001AA94 822 0001:0001AA95 823 0001:0001AA96 825 0001:0001AA97 + 826 0001:0001AA99 828 0001:0001AA9B 829 0001:0001AA9D 830 0001:0001AA9F + 831 0001:0001AAA1 832 0001:0001AAA4 833 0001:0001AAA6 836 0001:0001AAAC + 837 0001:0001AAAE 838 0001:0001AAB1 839 0001:0001AAB5 840 0001:0001AAB8 + 841 0001:0001AABD 842 0001:0001AABF 843 0001:0001AAC1 846 0001:0001AAC5 + 847 0001:0001AAC9 848 0001:0001AACC 849 0001:0001AACE 852 0001:0001AAD0 + 853 0001:0001AAD2 854 0001:0001AAD3 855 0001:0001AAD7 858 0001:0001AAD9 + 859 0001:0001AADC 860 0001:0001AADE 861 0001:0001AAE0 862 0001:0001AAE2 + 865 0001:0001AAE4 866 0001:0001AAE6 867 0001:0001AAE9 868 0001:0001AAEC + 871 0001:0001AAEE 874 0001:0001AAF0 875 0001:0001AAF4 876 0001:0001AAF8 + 877 0001:0001AAFB 878 0001:0001AAFD 879 0001:0001AAFE 882 0001:0001AB00 + 883 0001:0001AB01 884 0001:0001AB02 885 0001:0001AB03 888 0001:0001AB04 + 889 0001:0001AB13 890 0001:0001AB21 893 0001:0001AB47 894 0001:0001AB4F + 902 0001:0001AB58 903 0001:0001AB59 904 0001:0001AB5A 906 0001:0001AB5B + 907 0001:0001AB5D 908 0001:0001AB5F 909 0001:0001AB62 910 0001:0001AB64 + 911 0001:0001AB66 912 0001:0001AB6B 915 0001:0001AB6D 916 0001:0001AB70 + 917 0001:0001AB74 918 0001:0001AB77 919 0001:0001AB7C 920 0001:0001AB7E + 921 0001:0001AB80 925 0001:0001AB84 926 0001:0001AB88 927 0001:0001AB8B + 928 0001:0001AB8F 929 0001:0001AB91 932 0001:0001AB94 933 0001:0001AB98 + 934 0001:0001AB99 937 0001:0001AB9B 938 0001:0001AB9E 939 0001:0001ABA0 + 940 0001:0001ABA2 941 0001:0001ABA4 942 0001:0001ABA6 944 0001:0001ABA8 + 945 0001:0001ABA9 946 0001:0001ABAA 948 0001:0001ABAB 1124 0001:0001ABAC + 1125 0001:0001ABAF 1126 0001:0001ABB5 1127 0001:0001ABB7 1128 0001:0001ABBB + 1129 0001:0001ABBE 1130 0001:0001ABC0 1133 0001:0001ABC2 1134 0001:0001ABC5 + 1135 0001:0001ABC7 1136 0001:0001ABC9 1139 0001:0001ABCA 1140 0001:0001ABCC + 1143 0001:0001ABCD 1144 0001:0001ABD3 1147 0001:0001ABD6 1150 0001:0001ABD8 + 1158 0001:0001ABDC 1159 0001:0001ABDD 1160 0001:0001ABDE 1161 0001:0001ABE0 + 1162 0001:0001ABE2 1163 0001:0001ABE4 1164 0001:0001ABE7 1165 0001:0001ABE9 + 1166 0001:0001ABEB 1167 0001:0001ABEE 1169 0001:0001ABF2 1170 0001:0001ABF5 + 1171 0001:0001ABF9 1172 0001:0001ABFC 1173 0001:0001ABFE 1176 0001:0001AC00 + 1177 0001:0001AC03 1178 0001:0001AC05 1179 0001:0001AC07 1182 0001:0001AC09 + 1183 0001:0001AC0B 1186 0001:0001AC0D 1187 0001:0001AC13 1188 0001:0001AC15 + 1189 0001:0001AC17 1190 0001:0001AC1A 1191 0001:0001AC1C 1192 0001:0001AC1F + 1193 0001:0001AC22 1194 0001:0001AC24 1196 0001:0001AC26 1197 0001:0001AC29 + 1198 0001:0001AC2B 1199 0001:0001AC2E 1200 0001:0001AC30 1201 0001:0001AC33 + 1202 0001:0001AC36 1203 0001:0001AC38 1204 0001:0001AC3D 1206 0001:0001AC40 + 1207 0001:0001AC43 1208 0001:0001AC45 1210 0001:0001AC4A 1211 0001:0001AC4B + 1212 0001:0001AC4C 1221 0001:0001AC50 1222 0001:0001AC51 1223 0001:0001AC52 + 1224 0001:0001AC53 1226 0001:0001AC55 1227 0001:0001AC57 1228 0001:0001AC59 + 1229 0001:0001AC5B 1230 0001:0001AC5E 1231 0001:0001AC60 1232 0001:0001AC62 + 1233 0001:0001AC65 1235 0001:0001AC69 1236 0001:0001AC6C 1237 0001:0001AC72 + 1238 0001:0001AC74 1240 0001:0001AC76 1241 0001:0001AC79 1242 0001:0001AC7D + 1243 0001:0001AC7F 1246 0001:0001AC81 1247 0001:0001AC84 1248 0001:0001AC86 + 1249 0001:0001AC88 1252 0001:0001AC8A 1253 0001:0001AC8C 1256 0001:0001AC8E + 1257 0001:0001AC94 1258 0001:0001AC96 1259 0001:0001AC98 1260 0001:0001AC9B + 1261 0001:0001AC9D 1262 0001:0001ACA0 1263 0001:0001ACA3 1264 0001:0001ACA5 + 1266 0001:0001ACA7 1267 0001:0001ACA8 1268 0001:0001ACA9 1269 0001:0001ACAA + 1272 0001:0001ACAC 1273 0001:0001ACBB 1274 0001:0001ACD7 1280 0001:0001ACDC + 1281 0001:0001ACEB 1282 0001:0001ACFD 1283 0001:0001AD03 1284 0001:0001AD2A + 1285 0001:0001AD38 1289 0001:0001AD3C 1290 0001:0001AD4B 1291 0001:0001AD67 + 1298 0001:0001AD70 1299 0001:0001AD93 1300 0001:0001AD9B 1301 0001:0001ADA1 + 1302 0001:0001ADB5 1303 0001:0001ADBA 1305 0001:0001ADC8 1306 0001:0001ADD0 + 1307 0001:0001ADE0 1308 0001:0001ADFC 1302 0001:0001ADFF 1309 0001:0001AE05 + 1310 0001:0001AE0B 1311 0001:0001AE44 1324 0001:0001AE70 1325 0001:0001AE7C + 1329 0001:0001AE83 1328 0001:0001AE86 1331 0001:0001AEA1 1335 0001:0001AEB3 + 1334 0001:0001AEB6 1337 0001:0001AECD 1338 0001:0001AED5 1340 0001:0001AEDC + 1341 0001:0001AF01 1342 0001:0001AF06 1343 0001:0001AF10 1347 0001:0001AF1D + 1346 0001:0001AF20 1349 0001:0001AF2D 1350 0001:0001AF41 1353 0001:0001AF5B + 1354 0001:0001AF69 1355 0001:0001AF6F 1356 0001:0001AF96 1357 0001:0001AFA2 + 1351 0001:0001AFBA 1359 0001:0001AFF0 1363 0001:0001AFF4 1364 0001:0001B003 + 1365 0001:0001B01B 1401 0001:0001B020 1406 0001:0001B023 1407 0001:0001B024 + 1408 0001:0001B025 1410 0001:0001B027 1411 0001:0001B02A 1412 0001:0001B030 + 1413 0001:0001B032 1415 0001:0001B034 1416 0001:0001B037 1417 0001:0001B03B + 1418 0001:0001B03D 1421 0001:0001B03F 1422 0001:0001B042 1423 0001:0001B044 + 1424 0001:0001B046 1427 0001:0001B048 1428 0001:0001B04A 1431 0001:0001B04C + 1432 0001:0001B052 1433 0001:0001B054 1434 0001:0001B056 1435 0001:0001B058 + 1436 0001:0001B05A 1437 0001:0001B05B 1440 0001:0001B05D 1441 0001:0001B05E + 1442 0001:0001B05F 1451 0001:0001B064 1452 0001:0001B065 1453 0001:0001B066 + 1455 0001:0001B068 1456 0001:0001B06B 1457 0001:0001B071 1458 0001:0001B073 + 1460 0001:0001B075 1461 0001:0001B078 1462 0001:0001B07C 1463 0001:0001B07E + 1466 0001:0001B080 1467 0001:0001B083 1468 0001:0001B085 1469 0001:0001B087 + 1472 0001:0001B08A 1473 0001:0001B08C 1476 0001:0001B08F 1477 0001:0001B095 + 1478 0001:0001B097 1479 0001:0001B099 1480 0001:0001B09B 1481 0001:0001B09D + 1482 0001:0001B09F 1483 0001:0001B0A2 1485 0001:0001B0A6 1486 0001:0001B0A7 + 1487 0001:0001B0A9 1488 0001:0001B0AB 1490 0001:0001B0AD 1491 0001:0001B0AE + 1492 0001:0001B0B0 1494 0001:0001B0B2 1495 0001:0001B0B3 1496 0001:0001B0B4 + 1502 0001:0001B0B8 1503 0001:0001B0CA 1504 0001:0001B0E0 1505 0001:0001B0EE + 1511 0001:0001B0F4 1512 0001:0001B106 1513 0001:0001B119 1514 0001:0001B12A + 1517 0001:0001B130 1518 0001:0001B13C 1519 0001:0001B147 1528 0001:0001B14C + 1529 0001:0001B14D 1530 0001:0001B14E 1532 0001:0001B150 1533 0001:0001B153 + 1534 0001:0001B159 1535 0001:0001B15B 1537 0001:0001B15D 1538 0001:0001B160 + 1539 0001:0001B164 1540 0001:0001B166 1543 0001:0001B168 1544 0001:0001B16B + 1545 0001:0001B16D 1546 0001:0001B16F 1549 0001:0001B172 1550 0001:0001B174 + 1553 0001:0001B177 1554 0001:0001B17D 1555 0001:0001B180 1556 0001:0001B182 + 1559 0001:0001B187 1560 0001:0001B188 1561 0001:0001B189 1570 0001:0001B18C + 1571 0001:0001B18D 1572 0001:0001B18E 1574 0001:0001B190 1575 0001:0001B193 + 1576 0001:0001B199 1577 0001:0001B19B 1579 0001:0001B19D 1580 0001:0001B1A0 + 1581 0001:0001B1A4 1582 0001:0001B1A6 1585 0001:0001B1A8 1586 0001:0001B1AB + 1587 0001:0001B1AD 1588 0001:0001B1AF 1591 0001:0001B1B2 1592 0001:0001B1B4 + 1595 0001:0001B1B7 1596 0001:0001B1BD 1597 0001:0001B1BF 1598 0001:0001B1C1 + 1601 0001:0001B1C6 1602 0001:0001B1C7 1603 0001:0001B1C8 1607 0001:0001B1CC + 1608 0001:0001B1EF 1609 0001:0001B225 1615 0001:0001B22C 1616 0001:0001B24F + 1617 0001:0001B25A 1618 0001:0001B285 1621 0001:0001B28C 1622 0001:0001B29B + 1623 0001:0001B2B2 1624 0001:0001B2C2 1625 0001:0001B2D2 1627 0001:0001B2E2 + 1629 0001:0001B2EA 1633 0001:0001B2F0 1634 0001:0001B2FF 1635 0001:0001B316 + 1636 0001:0001B326 1637 0001:0001B336 1639 0001:0001B344 1649 0001:0001B348 + 1650 0001:0001B36B 1652 0001:0001B385 1655 0001:0001B3A3 1656 0001:0001B3AC + 1658 0001:0001B3BB 1659 0001:0001B3C9 1663 0001:0001B3D8 1665 0001:0001B3E7 + 1668 0001:0001B3F9 1670 0001:0001B3FF 1671 0001:0001B405 1672 0001:0001B411 + 1674 0001:0001B41C 1678 0001:0001B42D 1680 0001:0001B452 1692 0001:0001B458 + 1693 0001:0001B47B 1695 0001:0001B495 1698 0001:0001B4B3 1699 0001:0001B4BC + 1701 0001:0001B4CB 1702 0001:0001B4D9 1706 0001:0001B4E6 1708 0001:0001B4F5 + 1711 0001:0001B507 1713 0001:0001B50D 1714 0001:0001B513 1715 0001:0001B51F + 1717 0001:0001B52A 1721 0001:0001B556 1731 0001:0001B55C 1732 0001:0001B568 + 1733 0001:0001B571 1735 0001:0001B584 1736 0001:0001B592 1737 0001:0001B5C1 + 1738 0001:0001B5CF 1739 0001:0001B5DD 1740 0001:0001B5F8 1741 0001:0001B606 + 1743 0001:0001B61A 1748 0001:0001B628 1750 0001:0001B637 1753 0001:0001B649 + 1755 0001:0001B64F 1756 0001:0001B655 1757 0001:0001B661 1759 0001:0001B66D + 1761 0001:0001B67D 1762 0001:0001B68E 1764 0001:0001B69E 1789 0001:0001B6A8 + 1790 0001:0001B6B4 1791 0001:0001B6BD 1793 0001:0001B6CE 1795 0001:0001B6E1 + 1796 0001:0001B6EF 1797 0001:0001B718 1798 0001:0001B726 1799 0001:0001B734 + 1800 0001:0001B74F 1801 0001:0001B75D 1806 0001:0001B771 1808 0001:0001B780 + 1811 0001:0001B792 1813 0001:0001B798 1814 0001:0001B79E 1816 0001:0001B7AE + 1817 0001:0001B7D7 1818 0001:0001B7EC 1819 0001:0001B801 1820 0001:0001B817 + 1821 0001:0001B82C 1826 0001:0001B847 1827 0001:0001B870 1828 0001:0001B888 + 1829 0001:0001B8A0 1830 0001:0001B8B9 1831 0001:0001B8D1 1835 0001:0001B8ED + 1838 0001:0001B8F8 1839 0001:0001B904 1840 0001:0001B90F 1848 0001:0001B914 + 1849 0001:0001B915 1850 0001:0001B916 1852 0001:0001B918 1853 0001:0001B91B + 1854 0001:0001B921 1855 0001:0001B923 1857 0001:0001B925 1858 0001:0001B928 + 1859 0001:0001B92C 1860 0001:0001B92E 1863 0001:0001B930 1864 0001:0001B933 + 1865 0001:0001B935 1866 0001:0001B937 1869 0001:0001B93A 1870 0001:0001B93C + 1873 0001:0001B93F 1874 0001:0001B945 1875 0001:0001B948 1876 0001:0001B94A + 1879 0001:0001B94F 1880 0001:0001B950 1881 0001:0001B951 1890 0001:0001B954 + 1891 0001:0001B955 1892 0001:0001B956 1894 0001:0001B958 1895 0001:0001B95B + 1896 0001:0001B961 1897 0001:0001B963 1899 0001:0001B965 1900 0001:0001B968 + 1901 0001:0001B96C 1902 0001:0001B96E 1905 0001:0001B970 1906 0001:0001B973 + 1907 0001:0001B975 1908 0001:0001B977 1911 0001:0001B97A 1912 0001:0001B97C + 1915 0001:0001B97F 1916 0001:0001B985 1917 0001:0001B987 1918 0001:0001B989 + 1921 0001:0001B98E 1922 0001:0001B98F 1923 0001:0001B990 1932 0001:0001B994 + 1933 0001:0001B995 1934 0001:0001B996 1936 0001:0001B998 1937 0001:0001B99B + 1938 0001:0001B9A1 1939 0001:0001B9A3 1942 0001:0001B9A5 1943 0001:0001B9A8 + 1944 0001:0001B9AC 1945 0001:0001B9AE 1948 0001:0001B9B0 1949 0001:0001B9B3 + 1950 0001:0001B9B5 1951 0001:0001B9B7 1954 0001:0001B9BA 1955 0001:0001B9BC + 1958 0001:0001B9BF 1959 0001:0001B9C5 1960 0001:0001B9C7 1961 0001:0001B9C9 + 1962 0001:0001B9CC 1963 0001:0001B9CE 1966 0001:0001B9D1 1967 0001:0001B9D2 + 1968 0001:0001B9D3 1976 0001:0001B9D4 1977 0001:0001B9D5 1978 0001:0001B9D8 + 1979 0001:0001B9DC 1980 0001:0001B9DE 1981 0001:0001B9E1 1982 0001:0001B9E4 + 1983 0001:0001B9E6 1986 0001:0001B9E8 1987 0001:0001B9EB 1988 0001:0001B9ED + 1989 0001:0001B9EF 1992 0001:0001B9F1 1993 0001:0001B9F3 1996 0001:0001B9F5 + 1997 0001:0001B9FB 1998 0001:0001B9FD 1999 0001:0001B9FF 2000 0001:0001BA02 + 2001 0001:0001BA04 2004 0001:0001BA07 2005 0001:0001BA08 2014 0001:0001BA0C + 2016 0001:0001BA10 2017 0001:0001BA13 2019 0001:0001BA16 2020 0001:0001BA18 + 2023 0001:0001BA1A 2024 0001:0001BA1D 2025 0001:0001BA1F 2026 0001:0001BA21 + 2029 0001:0001BA22 2030 0001:0001BA24 2033 0001:0001BA25 2034 0001:0001BA2B + 2035 0001:0001BA2D 2036 0001:0001BA30 2039 0001:0001BA32 2043 0001:0001BA34 + 2047 0001:0001BA37 2048 0001:0001BA3B 2049 0001:0001BA3E 2050 0001:0001BA40 + 2051 0001:0001BA43 2052 0001:0001BA46 2053 0001:0001BA49 2056 0001:0001BA4B + 2057 0001:0001BA4E 2058 0001:0001BA50 2059 0001:0001BA52 2062 0001:0001BA54 + 2063 0001:0001BA56 2066 0001:0001BA58 2067 0001:0001BA5E 2068 0001:0001BA60 + 2069 0001:0001BA63 2070 0001:0001BA66 2071 0001:0001BA68 2074 0001:0001BA6B + 2096 0001:0001BA70 2097 0001:0001BA7F 2098 0001:0001BA88 2100 0001:0001BA97 + 2101 0001:0001BAA5 2105 0001:0001BAB4 2107 0001:0001BAC3 2110 0001:0001BAD5 + 2112 0001:0001BADB 2113 0001:0001BAE1 2114 0001:0001BAED 2116 0001:0001BAF8 + 2118 0001:0001BB07 2130 0001:0001BB0C 2131 0001:0001BB1B 2132 0001:0001BB24 + 2134 0001:0001BB33 2135 0001:0001BB41 2139 0001:0001BB4E 2141 0001:0001BB5D + 2144 0001:0001BB6F 2146 0001:0001BB75 2147 0001:0001BB7B 2148 0001:0001BB87 + 2150 0001:0001BB92 2152 0001:0001BBA1 2154 0001:0001BBF8 2154 0001:0001BBFF + +Line numbers for ActiveX(ActiveX.pas) segment .text + + 6260 0001:0001BEDC 6263 0001:0001BEE4 6265 0001:0001BEEC 6271 0001:0001BEF4 + 6272 0001:0001BEFC 6273 0001:0001BF04 6286 0001:0001BF0C 6287 0001:0001BF14 + 6308 0001:0001BF1C 6312 0001:0001BF24 6313 0001:0001BF2C 6317 0001:0001BF34 + 6318 0001:0001BF3C 6328 0001:0001BF44 6330 0001:0001BF4C 6395 0001:0001BF54 + 6399 0001:0001BF5C 6407 0001:0001BF64 6422 0001:0001BF6C 6435 0001:0001BF74 + 6592 0001:0001BF7C 6594 0001:0001BF84 6596 0001:0001BF8C 6601 0001:0001BF94 + 6608 0001:0001BF9C 6609 0001:0001BFA4 6610 0001:0001BFAC 6611 0001:0001BFB4 + 6631 0001:0001BFBC 6632 0001:0001BFC5 6633 0001:0001BFD0 6690 0001:0001C004 + 6690 0001:0001C00B + +Line numbers for Classes(classes.pas) segment .text + + 321 0001:0001C918 752 0001:0001D1B4 1288 0001:0001D618 1622 0001:0001DAD4 + 1623 0001:0001DAE3 1624 0001:0001DAF1 1627 0001:0001DAF8 1630 0001:0001DB06 + 1631 0001:0001DB0E 1633 0001:0001DB19 1646 0001:0001DB20 1647 0001:0001DB2F + 1648 0001:0001DB45 1656 0001:0001DB4C 1657 0001:0001DB5B 1658 0001:0001DB71 + 1666 0001:0001DB78 1667 0001:0001DB81 1668 0001:0001DB9E 1671 0001:0001DBA4 + 1672 0001:0001DBAD 1673 0001:0001DBC7 1732 0001:0001DC7C 1733 0001:0001DC88 + 1734 0001:0001DC96 1740 0001:0001DC9C 1741 0001:0001DCA8 1742 0001:0001DCAD + 1744 0001:0001DCC6 1745 0001:0001DCD7 1746 0001:0001DCE6 1747 0001:0001DCFB + 1748 0001:0001DD01 1742 0001:0001DD04 1749 0001:0001DD0C 1756 0001:0001DD10 + 1757 0001:0001DD1F 1758 0001:0001DD25 1759 0001:0001DD35 1760 0001:0001DD3A + 1761 0001:0001DD40 1762 0001:0001DD50 1763 0001:0001DD55 1764 0001:0001DD5B + 1766 0001:0001DD61 1769 0001:0001DD68 1771 0001:0001DD70 1773 0001:0001DD76 + 1776 0001:0001DD7E 1777 0001:0001DD8D 1779 0001:0001DD95 1780 0001:0001DD9E + 1783 0001:0001DDA4 1784 0001:0001DDBF 1785 0001:0001DDC9 1786 0001:0001DDDB + 1787 0001:0001DDED 1788 0001:0001DDFF 1789 0001:0001DE28 1792 0001:0001DE2C + 1793 0001:0001DE3D 1794 0001:0001DE4B 1795 0001:0001DE56 1796 0001:0001DE61 + 1797 0001:0001DE7A 1802 0001:0001DE80 1803 0001:0001DE8C 1805 0001:0001DEA5 + 1806 0001:0001DEB6 1807 0001:0001DEC5 1803 0001:0001DEC8 1808 0001:0001DECD + 1809 0001:0001DEDE 1811 0001:0001DEE4 1812 0001:0001DEF5 1814 0001:0001DEF7 + 1815 0001:0001DEFF 1828 0001:0001DF04 1829 0001:0001DF10 1830 0001:0001DF14 + 1831 0001:0001DF2D 1830 0001:0001DF4C 1832 0001:0001DF51 1833 0001:0001DF58 + 1838 0001:0001DF5C 1839 0001:0001DF7E 1840 0001:0001DF9A 1841 0001:0001DFA9 + 1842 0001:0001DFD9 1843 0001:0001E004 1853 0001:0001E008 1854 0001:0001E014 + 1855 0001:0001E02B 1868 0001:0001E030 1869 0001:0001E03C 1870 0001:0001E05B + 1875 0001:0001E060 1883 0001:0001E06C 1884 0001:0001E07E 1885 0001:0001E098 + 1883 0001:0001E0A9 1886 0001:0001E0AF 1887 0001:0001E0C1 1888 0001:0001E0DB + 1886 0001:0001E0EC 1889 0001:0001E0F2 1890 0001:0001E106 1891 0001:0001E120 + 1889 0001:0001E131 1892 0001:0001E137 1899 0001:0001E13C 1900 0001:0001E148 + 1902 0001:0001E153 1903 0001:0001E15C 1904 0001:0001E175 1905 0001:0001E186 + 1903 0001:0001E19A 1907 0001:0001E19F 1917 0001:0001E1A4 1918 0001:0001E1BC + 1919 0001:0001E1C6 1920 0001:0001E1D8 1922 0001:0001E1E4 1923 0001:0001E1F9 + 1924 0001:0001E207 1925 0001:0001E229 1930 0001:0001E230 1931 0001:0001E241 + 1932 0001:0001E24D 1933 0001:0001E266 1932 0001:0001E27C 1934 0001:0001E281 + 1935 0001:0001E28C 1936 0001:0001E2A8 1942 0001:0001E2AC 1943 0001:0001E2B8 + 1944 0001:0001E2BD 1946 0001:0001E2D6 1947 0001:0001E2E7 1948 0001:0001E2FE + 1944 0001:0001E301 1949 0001:0001E309 1954 0001:0001E310 1955 0001:0001E31C + 1956 0001:0001E321 1957 0001:0001E33A 1959 0001:0001E34B 1960 0001:0001E362 + 1961 0001:0001E368 1956 0001:0001E36B 1962 0001:0001E373 1977 0001:0001E378 + 1978 0001:0001E397 1979 0001:0001E402 1986 0001:0001E408 1987 0001:0001E417 + 1988 0001:0001E425 1989 0001:0001E432 1998 0001:0001E43D 2000 0001:0001E45A + 2001 0001:0001E46B 2002 0001:0001E473 2004 0001:0001E485 2005 0001:0001E496 + 2009 0001:0001E4A5 2011 0001:0001E4B5 2012 0001:0001E4C3 2014 0001:0001E4D1 + 2002 0001:0001E4D4 2015 0001:0001E4DA 1998 0001:0001E4DD 2016 0001:0001E4E6 + 2019 0001:0001E4EC 2020 0001:0001E4F3 2021 0001:0001E4FF 2026 0001:0001E504 + 2027 0001:0001E510 2028 0001:0001E51E 2029 0001:0001E52F 2043 0001:0001E534 + 2044 0001:0001E540 2045 0001:0001E544 2046 0001:0001E55D 2045 0001:0001E57A + 2047 0001:0001E57F 2048 0001:0001E586 2053 0001:0001E58C 2055 0001:0001E598 + 2056 0001:0001E5B1 2057 0001:0001E5CE 2055 0001:0001E5D1 2059 0001:0001E5D6 + 2060 0001:0001E5F2 2063 0001:0001E5F8 2064 0001:0001E5FF 2065 0001:0001E60B + 2079 0001:0001E610 2080 0001:0001E61C 2082 0001:0001E62E 2083 0001:0001E63F + 2084 0001:0001E64A 2086 0001:0001E656 2087 0001:0001E65E 2089 0001:0001E66C + 2080 0001:0001E66F 2090 0001:0001E675 2099 0001:0001E67C 2100 0001:0001E697 + 2101 0001:0001E6A1 2102 0001:0001E6B3 2103 0001:0001E6BD 2104 0001:0001E6CB + 2105 0001:0001E6DC 2107 0001:0001E6F7 2108 0001:0001E70A 2109 0001:0001E719 + 2110 0001:0001E727 2105 0001:0001E72A 2111 0001:0001E72F 2112 0001:0001E735 + 2114 0001:0001E750 2115 0001:0001E763 2116 0001:0001E76C 2117 0001:0001E77A + 2112 0001:0001E77D 2119 0001:0001E78F 2121 0001:0001E7BC 2124 0001:0001E7C4 + 2125 0001:0001E7D5 2126 0001:0001E7E0 2127 0001:0001E7FC 2132 0001:0001E800 + 2133 0001:0001E80C 2134 0001:0001E811 2135 0001:0001E81B 2136 0001:0001E829 + 2137 0001:0001E842 2139 0001:0001E853 2140 0001:0001E861 2141 0001:0001E86E + 2136 0001:0001E871 2143 0001:0001E883 2145 0001:0001E898 2171 0001:0001E89C + 2172 0001:0001E89F 2173 0001:0001E8A1 2174 0001:0001E8A3 2176 0001:0001E8A6 + 2179 0001:0001E8A8 2180 0001:0001E8C4 2181 0001:0001E912 2184 0001:0001E918 + 2185 0001:0001E921 2186 0001:0001E92B 2187 0001:0001E939 2189 0001:0001E956 + 2191 0001:0001E96B 2194 0001:0001E970 2195 0001:0001E979 2196 0001:0001E984 + 2197 0001:0001E995 2200 0001:0001E99C 2201 0001:0001E9A3 2202 0001:0001E9AD + 2205 0001:0001E9BD 2206 0001:0001E9CA 2207 0001:0001E9D5 2203 0001:0001E9E0 + 2210 0001:0001E9FE 2212 0001:0001EA10 2217 0001:0001EA14 2218 0001:0001EA30 + 2219 0001:0001EA58 2249 0001:0001EA60 2250 0001:0001EA67 2251 0001:0001EA71 + 2252 0001:0001EA7F 2254 0001:0001EA99 2256 0001:0001EAAB 2259 0001:0001EAB0 + 2260 0001:0001EAB7 2261 0001:0001EAC1 2262 0001:0001EACF 2264 0001:0001EAE9 + 2266 0001:0001EAFB 2269 0001:0001EB00 2270 0001:0001EB0C 2271 0001:0001EB16 + 2272 0001:0001EB24 2274 0001:0001EB41 2276 0001:0001EB53 2279 0001:0001EB58 + 2280 0001:0001EB61 2281 0001:0001EB6B 2282 0001:0001EB79 2283 0001:0001EB84 + 2285 0001:0001EB9E 2287 0001:0001EBB3 2359 0001:0001EC10 2360 0001:0001EC2B + 2361 0001:0001EC34 2362 0001:0001EC3D 2363 0001:0001EC61 2367 0001:0001EC68 + 2368 0001:0001EC77 2369 0001:0001EC9A 2392 0001:0001ECA0 2393 0001:0001ECA9 + 2394 0001:0001ECAE 2395 0001:0001ECBB 2396 0001:0001ECC9 2397 0001:0001ECD8 + 2398 0001:0001ECE6 2400 0001:0001ECF1 2401 0001:0001ECFA 2402 0001:0001ED01 + 2396 0001:0001ED04 2404 0001:0001ED17 2406 0001:0001ED2C 2411 0001:0001ED30 + 2412 0001:0001ED39 2413 0001:0001ED3E 2414 0001:0001ED4B 2415 0001:0001ED59 + 2416 0001:0001ED68 2417 0001:0001ED76 2419 0001:0001ED81 2420 0001:0001ED8A + 2421 0001:0001ED91 2415 0001:0001ED94 2423 0001:0001EDA7 2425 0001:0001EDBC + 2430 0001:0001EDC0 2431 0001:0001EDCF 2432 0001:0001EDE1 2434 0001:0001EDF7 + 2435 0001:0001EDFB 2436 0001:0001EE09 2437 0001:0001EE0B 2431 0001:0001EE0E + 2438 0001:0001EE13 2439 0001:0001EE1A 2444 0001:0001EE20 2445 0001:0001EE2F + 2446 0001:0001EE41 2448 0001:0001EE4F 2449 0001:0001EE53 2450 0001:0001EE65 + 2451 0001:0001EE67 2445 0001:0001EE6A 2452 0001:0001EE6F 2453 0001:0001EE76 + 2459 0001:0001EE7C 2460 0001:0001EE83 2461 0001:0001EE8C 2462 0001:0001EE9D + 2463 0001:0001EEAE 2464 0001:0001EEBB 2467 0001:0001EEC0 2468 0001:0001EEC7 + 2469 0001:0001EED0 2470 0001:0001EEDD 2475 0001:0001EEE0 2476 0001:0001EEEA + 2477 0001:0001EEEF 2479 0001:0001EEF8 2481 0001:0001EF09 2482 0001:0001EF20 + 2483 0001:0001EF26 2479 0001:0001EF29 2485 0001:0001EF32 2488 0001:0001EF38 + 2489 0001:0001EF41 2490 0001:0001EF4A 2491 0001:0001EF58 2492 0001:0001EF69 + 2497 0001:0001EF70 2498 0001:0001EF7F 2499 0001:0001EF8D 2500 0001:0001EFA4 + 2501 0001:0001EFAC 2502 0001:0001EFB2 2503 0001:0001EFCA 2504 0001:0001EFD8 + 2506 0001:0001EFF7 2508 0001:0001F007 2509 0001:0001F00E 2518 0001:0001F014 + 2519 0001:0001F019 2520 0001:0001F027 2522 0001:0001F02D 2523 0001:0001F03C + 2525 0001:0001F04A 2526 0001:0001F05D 2527 0001:0001F076 2533 0001:0001F07C + 2534 0001:0001F082 2535 0001:0001F090 2536 0001:0001F0A6 2535 0001:0001F0B9 + 2537 0001:0001F0BE 2542 0001:0001F0C4 2543 0001:0001F0C9 2544 0001:0001F0D9 + 2545 0001:0001F0E7 2546 0001:0001F0FC 2547 0001:0001F10B 2549 0001:0001F114 + 2550 0001:0001F121 2552 0001:0001F129 2557 0001:0001F130 2558 0001:0001F14F + 2559 0001:0001F153 2560 0001:0001F169 2561 0001:0001F17E 2563 0001:0001F1DF + 2567 0001:0001F1E4 2568 0001:0001F1F0 2569 0001:0001F1FA 2570 0001:0001F208 + 2571 0001:0001F224 2572 0001:0001F22F 2573 0001:0001F23D 2574 0001:0001F24F + 2576 0001:0001F267 2579 0001:0001F287 2581 0001:0001F29C 2642 0001:0001F2A8 + 2643 0001:0001F2B7 2644 0001:0001F2CE 2645 0001:0001F2D8 2646 0001:0001F2E1 + 2647 0001:0001F2EF 2649 0001:0001F307 2651 0001:0001F317 2653 0001:0001F31C + 2654 0001:0001F32C 2655 0001:0001F330 2656 0001:0001F34A 2657 0001:0001F364 + 2658 0001:0001F373 2659 0001:0001F381 2660 0001:0001F391 2661 0001:0001F3A0 + 2662 0001:0001F3AE 2663 0001:0001F3BE 2665 0001:0001F40F 2668 0001:0001F42C + 2670 0001:0001F43F 2746 0001:0001F448 2747 0001:0001F459 2748 0001:0001F46F + 2751 0001:0001F474 2752 0001:0001F481 2753 0001:0001F48A 2754 0001:0001F495 + 2755 0001:0001F49C 2756 0001:0001F4AB 2757 0001:0001F4B1 2758 0001:0001F4B7 + 2759 0001:0001F4C7 2762 0001:0001F4CC 2763 0001:0001F4D3 2764 0001:0001F4DD + 2765 0001:0001F4E7 2770 0001:0001F4EC 2771 0001:0001F4F9 2772 0001:0001F50A + 2773 0001:0001F51D 2774 0001:0001F52B 2775 0001:0001F531 2776 0001:0001F53C + 2778 0001:0001F568 2779 0001:0001F56E 2780 0001:0001F57B 2785 0001:0001F580 + 2786 0001:0001F583 2787 0001:0001F586 2789 0001:0001F588 2790 0001:0001F597 + 2791 0001:0001F5C3 2794 0001:0001F5C8 2795 0001:0001F5EB 2796 0001:0001F623 + 2801 0001:0001F628 2802 0001:0001F637 2803 0001:0001F648 2804 0001:0001F65B + 2805 0001:0001F66C 2806 0001:0001F67F 2807 0001:0001F68E 2808 0001:0001F6A6 + 2809 0001:0001F6B5 2812 0001:0001F6BC 2813 0001:0001F6C5 2814 0001:0001F6D3 + 2815 0001:0001F6DA 2816 0001:0001F6E3 2819 0001:0001F6E8 2820 0001:0001F6F1 + 2821 0001:0001F701 2824 0001:0001F708 2825 0001:0001F714 2826 0001:0001F725 + 2827 0001:0001F738 2828 0001:0001F74A 2833 0001:0001F750 2834 0001:0001F759 + 2835 0001:0001F762 2837 0001:0001F777 2838 0001:0001F780 2840 0001:0001F789 + 2841 0001:0001F790 2842 0001:0001F7A1 2845 0001:0001F7A8 2846 0001:0001F7B4 + 2848 0001:0001F7BB 2847 0001:0001F7BE 2849 0001:0001F7DA 2850 0001:0001F7E5 + 2851 0001:0001F7EF 2854 0001:0001F7F4 2855 0001:0001F804 2856 0001:0001F815 + 2857 0001:0001F828 2858 0001:0001F836 2859 0001:0001F83D 2860 0001:0001F848 + 2862 0001:0001F874 2863 0001:0001F883 2864 0001:0001F889 2865 0001:0001F88F + 2866 0001:0001F89C 2869 0001:0001F8A4 2870 0001:0001F8AD 2871 0001:0001F8C2 + 2876 0001:0001F8C8 2877 0001:0001F8D7 2879 0001:0001F8DF 2880 0001:0001F8F0 + 2881 0001:0001F903 2882 0001:0001F911 2883 0001:0001F91F 2884 0001:0001F92A + 2885 0001:0001F937 2887 0001:0001F946 2892 0001:0001F94C 2893 0001:0001F95C + 2894 0001:0001F96D 2895 0001:0001F980 2897 0001:0001F991 2898 0001:0001F9A0 + 2899 0001:0001F9AF 2900 0001:0001F9B5 2901 0001:0001F9C2 2902 0001:0001F9C8 + 2904 0001:0001F9D5 2907 0001:0001F9DC 2908 0001:0001F9E8 2909 0001:0001F9F6 + 2910 0001:0001F9FC 2911 0001:0001FA0A 2923 0001:0001FA10 2924 0001:0001FA1C + 2925 0001:0001FA30 2926 0001:0001FA43 2928 0001:0001FA4E 2929 0001:0001FA5F + 2931 0001:0001FA68 2936 0001:0001FA6C 2937 0001:0001FA78 2938 0001:0001FA87 + 2939 0001:0001FA9A 2940 0001:0001FAA5 2941 0001:0001FAB0 2942 0001:0001FABB + 2944 0001:0001FADF 2945 0001:0001FAF4 2944 0001:0001FB02 2946 0001:0001FB07 + 2947 0001:0001FB10 2954 0001:0001FB14 2956 0001:0001FB23 2957 0001:0001FB29 + 2958 0001:0001FB2F 2961 0001:0001FB42 2960 0001:0001FB45 2963 0001:0001FB5A + 2962 0001:0001FB5D 2964 0001:0001FB70 2966 0001:0001FB78 2967 0001:0001FB84 + 2968 0001:0001FB96 2969 0001:0001FBA2 2970 0001:0001FBA5 2972 0001:0001FBA8 + 2973 0001:0001FBB0 2974 0001:0001FBB8 2975 0001:0001FBCA 2976 0001:0001FBD0 + 2977 0001:0001FBDC 2980 0001:0001FBE4 2981 0001:0001FBF0 2982 0001:0001FC02 + 2983 0001:0001FC1A 2988 0001:0001FC20 2989 0001:0001FC2D 2990 0001:0001FC32 + 2991 0001:0001FC40 2993 0001:0001FC46 2994 0001:0001FC4C 2995 0001:0001FC5A + 2996 0001:0001FC65 2998 0001:0001FC75 3001 0001:0001FC7C 3002 0001:0001FC8B + 3008 0001:0001FC90 3010 0001:0001FC9F 3012 0001:0001FCA5 3013 0001:0001FCAB + 3016 0001:0001FCBC 3019 0001:0001FCC2 3024 0001:0001FCEF 3025 0001:0001FCF7 + 3026 0001:0001FD05 3027 0001:0001FD1F 3026 0001:0001FD37 3032 0001:0001FD41 + 3033 0001:0001FD54 3034 0001:0001FD6C 3032 0001:0001FD7A 3038 0001:0001FD85 + 3039 0001:0001FD9F 3040 0001:0001FDB7 3038 0001:0001FDCF 3045 0001:0001FDD9 + 3046 0001:0001FDE8 3047 0001:0001FDF6 3048 0001:0001FE04 3049 0001:0001FE1A + 3050 0001:0001FE32 3048 0001:0001FE4A 3051 0001:0001FE4F 3052 0001:0001FE5E + 3053 0001:0001FE76 3051 0001:0001FE84 3054 0001:0001FE8A 3055 0001:0001FE99 + 3056 0001:0001FEA4 3057 0001:0001FEAF 3058 0001:0001FEC5 3057 0001:0001FEDD + 3060 0001:0001FEEF 3066 0001:0001FEFF 3067 0001:0001FF12 3068 0001:0001FF2A + 3066 0001:0001FF38 3073 0001:0001FF43 3074 0001:0001FF52 3075 0001:0001FF60 + 3076 0001:0001FF6E 3077 0001:0001FF7D 3078 0001:0001FF95 3076 0001:0001FFAD + 3079 0001:0001FFB3 3081 0001:0001FFCF 3085 0001:0001FFDF 3090 0001:0001FFE8 + 3091 0001:00020000 3092 0001:0002000A 3093 0001:00020016 3094 0001:00020028 + 3095 0001:0002004A 3098 0001:00020050 3099 0001:00020061 3100 0001:00020069 + 3101 0001:00020077 3102 0001:00020082 3104 0001:0002009D 3105 0001:000200A5 + 3107 0001:000200C7 3110 0001:000200CC 3111 0001:000200D8 3112 0001:000200E0 + 3113 0001:000200EE 3115 0001:00020108 3116 0001:00020118 3117 0001:00020121 + 3119 0001:00020144 3121 0001:00020154 3134 0001:00020158 3135 0001:00020161 + 3136 0001:0002016D 3137 0001:00020179 3140 0001:00020180 3141 0001:0002018C + 3142 0001:00020194 3143 0001:000201A2 3145 0001:000201BD 3147 0001:000201CD + 3150 0001:000201D4 3151 0001:000201DB 3152 0001:000201E7 3365 0001:000201EC + 3366 0001:000201FD 3367 0001:00020207 3368 0001:00020223 3371 0001:00020228 + 3372 0001:0002022F 3373 0001:00020246 3382 0001:0002024C 3383 0001:00020258 + 3384 0001:0002025E 3385 0001:0002026F 3387 0001:00020274 3388 0001:00020280 + 3390 0001:0002028F 3391 0001:0002029D 3392 0001:000202B4 3393 0001:000202CE + 3395 0001:000202D6 3396 0001:000202DB 3398 0001:000202E1 3399 0001:000202EC + 3401 0001:000202F9 3403 0001:000202FF 3404 0001:00020305 3405 0001:00020322 + 3407 0001:00020330 3409 0001:00020339 3411 0001:00020342 3415 0001:00020348 + 3416 0001:0002034B 3418 0001:0002034D 3419 0001:00020350 3420 0001:00020352 + 3421 0001:00020354 3422 0001:00020357 3424 0001:00020358 3425 0001:0002035B + 3427 0001:0002035C 3428 0001:0002035F 3429 0001:00020365 3430 0001:00020366 + 3431 0001:00020367 3432 0001:00020368 3433 0001:00020369 3434 0001:0002036E + 3435 0001:0002036F 3436 0001:00020370 3437 0001:00020371 3438 0001:00020373 + 3442 0001:00020374 3443 0001:00020377 3444 0001:0002037D 3445 0001:00020380 + 3446 0001:00020383 3447 0001:00020385 3448 0001:00020388 3456 0001:0002038C + 3457 0001:00020395 3458 0001:000203AD 3459 0001:000203BF 3461 0001:000203D3 + 3462 0001:000203E2 3464 0001:000203E6 3466 0001:000203F6 3467 0001:00020406 + 3468 0001:0002041A 3470 0001:0002041C 3462 0001:0002041F 3471 0001:00020425 + 3458 0001:00020428 3472 0001:0002042D 3473 0001:00020439 3478 0001:00020444 + 3479 0001:00020455 3480 0001:0002045D 3481 0001:00020479 3484 0001:00020480 + 3485 0001:0002048C 3486 0001:000204A8 3491 0001:000204AC 3492 0001:000204CE + 3493 0001:000204D4 3494 0001:000204F4 3495 0001:00020501 3496 0001:00020571 + 3499 0001:00020584 3500 0001:00020590 3501 0001:0002059B 3504 0001:000205A0 + 3505 0001:000205AC 3510 0001:000205B0 3511 0001:000205D3 3512 0001:000205F1 + 3514 0001:00020601 3515 0001:00020619 3516 0001:0002061F 3518 0001:00020656 + 3521 0001:00020668 3522 0001:00020671 3523 0001:00020679 3528 0001:00020680 + 3529 0001:00020688 3530 0001:00020690 3531 0001:000206A0 3532 0001:000206C5 + 3535 0001:000206DC 3536 0001:000206E0 3537 0001:000206E9 3538 0001:000206FA + 3539 0001:00020704 3542 0001:0002070C 3543 0001:00020710 3544 0001:00020719 + 3545 0001:0002072A 3546 0001:00020734 3552 0001:0002073C 3553 0001:00020740 + 3554 0001:00020763 3560 0001:00020768 3561 0001:00020780 3562 0001:00020788 + 3563 0001:0002078E 3564 0001:0002079D 3566 0001:000207A3 3567 0001:000207BE + 3571 0001:000207D7 3573 0001:000207F2 3575 0001:00020804 3604 0001:0002081C + 3605 0001:0002083F 3606 0001:00020851 3607 0001:00020857 3608 0001:00020882 + 3643 0001:00020888 3644 0001:000208A3 3645 0001:000208C9 3648 0001:000208D0 + 3649 0001:000208E1 3650 0001:000208EB 3651 0001:00020907 3656 0001:0002090C + 3657 0001:00020918 3659 0001:0002092D 3660 0001:00020940 3662 0001:0002094E + 3665 0001:00020954 3666 0001:0002095D 3667 0001:00020966 3668 0001:0002097C + 3669 0001:00020986 3672 0001:0002098C 3673 0001:0002099B 3674 0001:000209B9 + 3677 0001:000209C0 3678 0001:000209E3 3679 0001:000209EC 3681 0001:00020A2F + 3682 0001:00020A6A 3685 0001:00020A80 3686 0001:00020A89 3687 0001:00020A95 + 3690 0001:00020A9C 3691 0001:00020AA8 3693 0001:00020AB3 3694 0001:00020ACA + 3696 0001:00020ADB 3699 0001:00020AE0 3700 0001:00020AEC 3701 0001:00020AF6 + 3706 0001:00020AFC 3707 0001:00020B08 3708 0001:00020B13 3710 0001:00020B21 + 3711 0001:00020B35 3713 0001:00020B3F 3718 0001:00020B44 3719 0001:00020B5F + 3720 0001:00020B68 3721 0001:00020B7A 3722 0001:00020BA2 3725 0001:00020BA8 + 3726 0001:00020BB9 3727 0001:00020BC3 3728 0001:00020BCC 3729 0001:00020BD4 + 3730 0001:00020BE1 3731 0001:00020BEC 3732 0001:00020C08 3735 0001:00020C0C + 3736 0001:00020C15 3737 0001:00020C26 3738 0001:00020C34 3743 0001:00020C38 + 3744 0001:00020C44 3746 0001:00020C56 3747 0001:00020C5E 3748 0001:00020C6C + 3749 0001:00020C74 3750 0001:00020C8C 3749 0001:00020CA9 3752 0001:00020CBB + 3756 0001:00020CCB 3757 0001:00020CD6 3760 0001:00020CDC 3761 0001:00020CE3 + 3762 0001:00020CE9 3765 0001:00020CEC 3766 0001:00020CF3 3767 0001:00020D06 + 3770 0001:00020D0C 3771 0001:00020D13 3773 0001:00020D1F 3774 0001:00020D27 + 3776 0001:00020D37 3775 0001:00020D47 3778 0001:00020D60 3781 0001:00020D70 + 3784 0001:00020D74 3785 0001:00020D7B 3786 0001:00020D81 3787 0001:00020D89 + 3792 0001:00020D8C 3793 0001:00020D98 3795 0001:00020DB1 3796 0001:00020DC2 + 3797 0001:00020DCD 3793 0001:00020DD0 3798 0001:00020DD5 3799 0001:00020DDD + 3802 0001:00020DE4 3803 0001:00020DED 3804 0001:00020DF5 3807 0001:00020DFC + 3808 0001:00020E0B 3809 0001:00020E13 3812 0001:00020E18 3813 0001:00020E27 + 3814 0001:00020E3A 3817 0001:00020E40 3818 0001:00020E49 3819 0001:00020E58 + 3822 0001:00020E5C 3823 0001:00020E68 3824 0001:00020E7C 3829 0001:00020E80 + 3830 0001:00020EA6 3831 0001:00020EC4 3832 0001:00020ED4 3833 0001:00020EEC + 3834 0001:00020EF2 3835 0001:00020EFD 3836 0001:00020F03 3837 0001:00020F3D + 3845 0001:00020F50 3846 0001:00020F5D 3847 0001:00020F6B 3848 0001:00020F7A + 3849 0001:00020FA2 3850 0001:00020FB4 3851 0001:00020FCC 3852 0001:00020FDE + 3853 0001:00020FEC 3854 0001:00020FFE 3856 0001:00021015 3857 0001:00021021 + 3859 0001:00021043 3860 0001:00021054 3854 0001:00021057 3862 0001:00021069 + 3864 0001:00021079 3865 0001:00021087 3868 0001:0002108C 3869 0001:00021098 + 3870 0001:000210A3 3871 0001:000210B1 3874 0001:000210B8 3875 0001:000210C5 + 3876 0001:000210E9 3877 0001:000210F7 3878 0001:00021100 3879 0001:0002110C + 3880 0001:00021112 3881 0001:0002111D 3882 0001:0002112A 3883 0001:00021132 + 3884 0001:0002113F 3887 0001:00021144 3888 0001:00021151 3889 0001:0002115E + 3890 0001:0002116E 3892 0001:00021185 3893 0001:00021193 3894 0001:0002119B + 3895 0001:000211A8 3896 0001:000211B0 3904 0001:000211B8 3905 0001:000211C4 + 3908 0001:000211C8 3909 0001:000211D4 3912 0001:000211D8 3913 0001:000211E5 + 3914 0001:000211FF 3915 0001:00021212 3918 0001:00021218 3919 0001:00021222 + 3920 0001:00021234 3923 0001:0002123C 3924 0001:00021248 3927 0001:0002124C + 3928 0001:00021258 3932 0001:0002125C 3933 0001:0002126B 3934 0001:00021278 + 3935 0001:00021285 3937 0001:00021290 3943 0001:00021294 3944 0001:000212AF + 3945 0001:000212B8 3946 0001:000212E0 3949 0001:000212E8 3950 0001:000212F1 + 3951 0001:000212FD 3977 0001:00021304 3978 0001:00021315 3979 0001:0002131F + 3980 0001:0002133B 3983 0001:00021340 3984 0001:0002134D 3985 0001:00021358 + 3986 0001:00021369 3989 0001:00021370 3990 0001:00021380 3991 0001:0002138E + 3992 0001:0002139F 3995 0001:000213A4 3996 0001:000213B0 3997 0001:000213BB + 4002 0001:000213C0 4003 0001:000213E0 4004 0001:000213E8 4005 0001:000213F6 + 4006 0001:0002140E 4005 0001:00021439 4008 0001:0002144B 4010 0001:00021478 + 4013 0001:00021480 4014 0001:0002148C 4016 0001:0002149E 4017 0001:000214A6 + 4018 0001:000214B4 4019 0001:000214BC 4020 0001:000214C8 4021 0001:000214D4 + 4022 0001:000214E0 4023 0001:000214EC 4025 0001:00021504 4029 0001:00021514 + 4030 0001:0002151F 4033 0001:00021524 4034 0001:0002152B 4035 0001:0002153E + 4036 0001:00021544 4041 0001:00021548 4042 0001:0002154C 4044 0001:00021558 + 4045 0001:0002155C 4046 0001:00021574 4048 0001:0002158F 4049 0001:000215A3 + 4051 0001:000215A8 4052 0001:000215B5 4053 0001:000215DD 4056 0001:000215F4 + 4057 0001:000215FB 4058 0001:00021601 4059 0001:00021614 4064 0001:00021618 + 4065 0001:0002163B 4066 0001:0002163F 4067 0001:0002164A 4068 0001:00021657 + 4069 0001:0002169D 4070 0001:000216C6 4075 0001:000216CC 4076 0001:000216CF + 4077 0001:000216D2 4079 0001:000216D4 4080 0001:000216E3 4081 0001:0002170F + 4084 0001:00021714 4085 0001:00021737 4086 0001:0002176D 4092 0001:00021774 + 4093 0001:0002179A 4094 0001:000217A2 4095 0001:000217B0 4096 0001:000217BE + 4097 0001:000217CC 4098 0001:000217E8 4099 0001:00021800 4100 0001:0002180E + 4102 0001:00021829 4104 0001:0002185B 4109 0001:00021860 4110 0001:00021883 + 4111 0001:0002188E 4112 0001:000218B0 4113 0001:000218B6 4114 0001:000218C4 + 4115 0001:000218EB 4118 0001:000218F0 4119 0001:000218F9 4120 0001:00021907 + 4127 0001:0002190C 4128 0001:00021918 4129 0001:00021921 4130 0001:0002192A + 4131 0001:00021933 4132 0001:0002193D 4133 0001:00021947 4134 0001:00021955 + 4136 0001:0002196D 4137 0001:00021976 4138 0001:0002197F 4140 0001:00021990 + 4147 0001:00021994 4148 0001:000219BF 4149 0001:000219CA 4150 0001:000219E3 + 4153 0001:00021A31 4154 0001:00021A39 4156 0001:00021A50 4157 0001:00021A5E + 4160 0001:00021A6B 4158 0001:00021A77 4164 0001:00021ACB 4165 0001:00021AF3 + 4166 0001:00021B1D 4154 0001:00021B20 4167 0001:00021B29 4169 0001:00021B74 + 4172 0001:00021B9C 4173 0001:00021BBF 4174 0001:00021BF8 4177 0001:00021C00 + 4178 0001:00021C0C 4179 0001:00021C14 4182 0001:00021C18 4183 0001:00021C34 + 4184 0001:00021C6F 4191 0001:00021C74 4192 0001:00021C9A 4193 0001:00021CA5 + 4194 0001:00021CAA 4195 0001:00021CB7 4196 0001:00021CF7 4197 0001:00021D04 + 4198 0001:00021D0C 4200 0001:00021D1F 4201 0001:00021D2D 4202 0001:00021D38 + 4204 0001:00021D3E 4205 0001:00021D4C 4207 0001:00021D52 4208 0001:00021D5D + 4210 0001:00021D63 4211 0001:00021D71 4213 0001:00021D77 4198 0001:00021D7A + 4214 0001:00021DA9 4219 0001:00021DBC 4220 0001:00021DDF 4221 0001:00021DED + 4222 0001:00021DF3 4223 0001:00021E23 4224 0001:00021E48 4227 0001:00021E50 + 4228 0001:00021E70 4229 0001:00021E88 4228 0001:00021EAB 4230 0001:00021EB0 + 4231 0001:00021ED7 4237 0001:00021EDC 4238 0001:00021F02 4240 0001:00021F1A + 4241 0001:00021F28 4242 0001:00021F48 4243 0001:00021F75 4238 0001:00021F78 + 4244 0001:00021F7D 4245 0001:00021FB1 4248 0001:00021FB8 4249 0001:00021FC4 + 4250 0001:00021FDC 4249 0001:00021FEF 4251 0001:00021FF4 4252 0001:00021FFE + 4256 0001:00022004 4257 0001:00022014 4258 0001:00022022 4259 0001:00022030 + 4264 0001:00022038 4265 0001:00022044 4266 0001:00022058 4267 0001:00022066 + 4269 0001:0002207E 4271 0001:0002208E 4277 0001:00022094 4278 0001:000220B4 + 4279 0001:000220BC 4280 0001:000220CA 4281 0001:000220E0 4282 0001:000220ED + 4283 0001:000220FB 4285 0001:00022113 4287 0001:00022140 4293 0001:00022148 + 4294 0001:0002216B 4296 0001:00022173 4297 0001:0002217B 4298 0001:00022189 + 4299 0001:00022197 4300 0001:000221A5 4301 0001:000221B0 4303 0001:000221CF + 4306 0001:000221FC 4311 0001:00022204 4312 0001:00022214 4313 0001:00022222 + 4314 0001:0002222D 4315 0001:0002223F 4318 0001:00022244 4319 0001:00022253 + 4322 0001:00022258 4323 0001:00022277 4324 0001:0002227F 4325 0001:00022287 + 4326 0001:00022295 4327 0001:0002229F 4329 0001:000222CE 4331 0001:000222DE + 4332 0001:00022303 4337 0001:00022308 4338 0001:00022314 4339 0001:0002232B + 4340 0001:00022339 4342 0001:00022351 4344 0001:00022361 4349 0001:00022368 + 4350 0001:00022387 4351 0001:00022392 4352 0001:000223C4 4355 0001:000223C8 + 4357 0001:000223D4 4360 0001:000223D8 4361 0001:000223E4 4362 0001:000223EE + 4363 0001:000223F8 4364 0001:00022403 4367 0001:00022408 4368 0001:00022414 + 4369 0001:00022428 4370 0001:00022436 4371 0001:0002244D 4374 0001:00022454 + 4375 0001:00022473 4376 0001:000224A6 4382 0001:000224AC 4383 0001:000224CB + 4384 0001:000224D3 4385 0001:000224E1 4386 0001:000224E9 4387 0001:000224EF + 4390 0001:000224F7 4391 0001:000224FF 4392 0001:00022513 4393 0001:00022524 + 4394 0001:0002252F 4395 0001:0002253A 4388 0001:00022545 4398 0001:0002255A + 4400 0001:00022587 4403 0001:0002258C 4404 0001:00022598 4409 0001:0002259C + 4410 0001:000225C2 4411 0001:000225D0 4413 0001:000225D6 4414 0001:000225E9 + 4417 0001:00022621 4419 0001:00022654 4424 0001:0002265C 4425 0001:0002267C + 4426 0001:00022684 4427 0001:000226BD 4428 0001:000226E2 4434 0001:000226E8 + 4435 0001:00022707 4436 0001:0002270F 4437 0001:0002271D 4438 0001:00022725 + 4441 0001:00022732 4439 0001:0002273E 4447 0001:0002274D 4448 0001:0002275C + 4451 0001:00022773 4454 0001:0002277B 4452 0001:00022787 4458 0001:0002279E + 4460 0001:000227AF 4463 0001:000227BC 4461 0001:000227C8 4467 0001:000227D2 + 4469 0001:000227E1 4471 0001:000227E7 4476 0001:000227F5 4479 0001:000227FF + 4483 0001:0002280B 4445 0001:00022815 4487 0001:0002282E 4489 0001:0002285B + 4492 0001:00022860 4493 0001:00022869 4494 0001:00022872 4495 0001:0002287C + 4496 0001:00022888 4499 0001:0002288C 4500 0001:00022895 4501 0001:0002289E + 4502 0001:000228A8 4503 0001:000228B4 4506 0001:000228B8 4507 0001:000228C4 + 4509 0001:000228D8 4510 0001:000228DF 4512 0001:000228E8 4515 0001:000228EC + 4516 0001:000228F8 4518 0001:0002290C 4519 0001:00022913 4521 0001:0002291C + 4524 0001:00022920 4525 0001:0002292F 4526 0001:00022940 4529 0001:00022944 + 4530 0001:0002294D 4531 0001:00022956 4532 0001:00022960 4533 0001:0002296C + 4536 0001:00022970 4537 0001:0002297C 4539 0001:00022990 4540 0001:00022997 + 4542 0001:000229A0 4565 0001:000229A4 4566 0001:000229B5 4567 0001:000229C0 + 4568 0001:000229CB 4569 0001:000229D9 4570 0001:000229F9 4571 0001:00022A01 + 4572 0001:00022A19 4575 0001:00022A20 4576 0001:00022A2D 4577 0001:00022A40 + 4580 0001:00022A48 4581 0001:00022A58 4582 0001:00022A61 4584 0001:00022A6C + 4585 0001:00022A81 4587 0001:00022A91 4589 0001:00022AA1 4590 0001:00022AB9 + 4593 0001:00022AC0 4594 0001:00022AC8 4595 0001:00022ADB 4596 0001:00022AE7 + 4599 0001:00022AEC 4600 0001:00022AF4 4601 0001:00022B07 4602 0001:00022B13 + 4605 0001:00022B18 4606 0001:00022B1F 4608 0001:00022B28 4609 0001:00022B33 + 4610 0001:00022B4A 4611 0001:00022B52 4612 0001:00022B5C 4614 0001:00022B67 + 4617 0001:00022B6C 4618 0001:00022B79 4619 0001:00022B9B 4620 0001:00022BA6 + 4621 0001:00022BBD 4622 0001:00022BC3 4623 0001:00022BCE 4625 0001:00022BFA + 4626 0001:00022C05 4629 0001:00022C0C 4630 0001:00022C1B 4631 0001:00022C3D + 4632 0001:00022C5F 4633 0001:00022C6A 4634 0001:00022C78 4635 0001:00022C83 + 4641 0001:00022C88 4642 0001:00022C97 4643 0001:00022CA6 4644 0001:00022CB5 + 4645 0001:00022CBD 4646 0001:00022CC7 4647 0001:00022CCF 4648 0001:00022CD8 + 4649 0001:00022CE4 4650 0001:00022CED 4655 0001:00022CF4 4656 0001:00022D04 + 4657 0001:00022D08 4658 0001:00022D0D 4659 0001:00022D17 4661 0001:00022D1F + 4662 0001:00022D2A 4663 0001:00022D44 4665 0001:00022D53 4666 0001:00022D5A + 4668 0001:00022D60 4669 0001:00022D64 4659 0001:00022D73 4673 0001:00022D7B + 4674 0001:00022D86 4677 0001:00022D8C 4678 0001:00022D9B 4679 0001:00022DBD + 4680 0001:00022DD1 4683 0001:00022DD8 4684 0001:00022DE1 4685 0001:00022DED + 4688 0001:00022DF4 4689 0001:00022DFD 4690 0001:00022E09 4693 0001:00022E10 + 4694 0001:00022E1C 4695 0001:00022E3E 4696 0001:00022E51 4701 0001:00022E58 + 4702 0001:00022E61 4703 0001:00022E7F 4704 0001:00022E91 4705 0001:00022E98 + 4706 0001:00022EA9 4709 0001:00022EB0 4710 0001:00022EBD 4711 0001:00022ED6 + 4712 0001:00022EF5 4715 0001:00022EFC 4716 0001:00022F0C 4717 0001:00022F1C + 4721 0001:00022F24 4722 0001:00022F34 4723 0001:00022F4D 4724 0001:00022F6F + 4725 0001:00022F84 4728 0001:00022F8C 4729 0001:00022F9B 4730 0001:00022FA6 + 4731 0001:00022FBC 4732 0001:00022FC7 4734 0001:00022FF1 4736 0001:00023000 + 4737 0001:00023007 4738 0001:00023010 4740 0001:0002301B 4741 0001:00023021 + 4742 0001:0002302C 4745 0001:00023034 4746 0001:00023043 4747 0001:0002305C + 4748 0001:0002307E 4749 0001:00023089 4750 0001:0002309D 4751 0001:000230A8 + 4754 0001:000230AC 4755 0001:000230BB 4756 0001:000230DD 4757 0001:000230E8 + 4758 0001:000230F8 4759 0001:00023103 4764 0001:00023108 4766 0001:00023117 + 4767 0001:0002311D 4768 0001:00023123 4770 0001:00023130 4771 0001:00023145 + 4772 0001:00023158 4774 0001:00023160 4775 0001:0002316E 4776 0001:00023176 + 4777 0001:0002317E 4778 0001:00023186 4779 0001:0002318C 4780 0001:0002318F + 4782 0001:00023192 4783 0001:0002319A 4784 0001:000231B4 4785 0001:000231BA + 4786 0001:000231C6 4789 0001:000231CC 4790 0001:000231D8 4791 0001:000231E9 + 4792 0001:000231F2 4795 0001:000231F8 4796 0001:00023204 4798 0001:0002320F + 4799 0001:00023220 4801 0001:00023229 4804 0001:00023230 4805 0001:0002323C + 4806 0001:0002325A 4809 0001:00023260 4810 0001:00023270 4812 0001:00023296 + 4815 0001:0002329C 4816 0001:000232A3 4817 0001:000232B3 4820 0001:000232B8 + 4821 0001:000232C4 4823 0001:000232D6 4824 0001:000232E1 4825 0001:000232F6 + 4827 0001:00023301 4830 0001:00023308 4831 0001:00023317 4832 0001:00023320 + 4834 0001:00023330 4835 0001:00023341 4849 0001:00023348 4850 0001:00023351 + 4851 0001:0002336B 4854 0001:00023370 4855 0001:00023377 4856 0001:00023387 + 4861 0001:0002338C 4862 0001:00023395 4863 0001:000233A9 4864 0001:000233BD + 4865 0001:000233D3 4868 0001:000233D8 4871 0001:000233E4 4874 0001:000233E8 + 4875 0001:000233EF 4876 0001:000233FD 4879 0001:00023404 4885 0001:0002340B + 4886 0001:00023431 4887 0001:00023448 4888 0001:00023455 4893 0001:0002345C + 4894 0001:00023465 4895 0001:000234A2 4903 0001:000234A8 4909 0001:000234B8 + 4910 0001:000234C6 4912 0001:000234D3 4911 0001:000234DE 4913 0001:000234EF + 4914 0001:000234FC 4915 0001:0002350A 4916 0001:00023512 4917 0001:00023519 + 4918 0001:00023530 4921 0001:00023534 4924 0001:00023541 4925 0001:00023567 + 4926 0001:0002357E 4927 0001:0002359D 4930 0001:000235A4 4931 0001:000235B4 + 4932 0001:000235CD 4933 0001:000235E4 4936 0001:000235EC 4937 0001:000235FC + 4938 0001:00023615 4939 0001:0002362C 4947 0001:00023634 4948 0001:00023640 + 4950 0001:0002364C 4951 0001:00023658 4953 0001:00023665 4954 0001:00023671 + 4955 0001:00023693 4956 0001:0002369E 4959 0001:000236AE 4960 0001:000236CE + 4961 0001:000236DC 4962 0001:000236EA 4957 0001:000236F4 4965 0001:0002370D + 4967 0001:00023726 4972 0001:0002372C 4973 0001:00023738 4974 0001:0002374F + 4975 0001:0002375D 4977 0001:00023778 4979 0001:0002378B 4982 0001:00023790 + 4983 0001:0002379C 4984 0001:000237A9 4989 0001:000237B0 4990 0001:000237BF + 4991 0001:000237D6 4992 0001:000237E4 4994 0001:000237FF 4996 0001:0002380F + 5059 0001:00023814 5060 0001:0002382F 5061 0001:00023839 5062 0001:0002385D + 5065 0001:00023864 5066 0001:00023873 5067 0001:00023887 5068 0001:00023895 + 5071 0001:0002389C 5072 0001:000238AB 5073 0001:000238BF 5074 0001:000238CD + 5077 0001:000238D4 5078 0001:000238E0 5079 0001:00023902 5082 0001:00023908 + 5083 0001:00023914 5084 0001:00023922 5087 0001:00023928 5088 0001:0002392F + 5090 0001:0002393F 5095 0001:00023950 5100 0001:00023958 5102 0001:00023973 + 5106 0001:000239A2 5109 0001:000239A8 5110 0001:000239E0 5112 0001:000239E8 + 5113 0001:000239FF 5114 0001:00023A0C 5118 0001:00023A57 5119 0001:00023A6F + 5120 0001:00023A78 5122 0001:00023AFE 5125 0001:00023B08 5126 0001:00023B19 + 5127 0001:00023B2D 5128 0001:00023B49 5134 0001:00023B50 5135 0001:00023B5F + 5136 0001:00023B68 5137 0001:00023B71 5140 0001:00023B78 5141 0001:00023B87 + 5143 0001:00023B96 5144 0001:00023BA5 5146 0001:00023BAB 5147 0001:00023BB9 + 5148 0001:00023BD0 5149 0001:00023BD9 5152 0001:00023BDB 5153 0001:00023BE3 + 5156 0001:00023BE8 5157 0001:00023BF8 5158 0001:00023C0B 5159 0001:00023C16 + 5160 0001:00023C21 5162 0001:00023C30 5163 0001:00023C3C 5188 0001:00023C40 + 5189 0001:00023C51 5190 0001:00023C59 5191 0001:00023C75 5194 0001:00023C7C + 5195 0001:00023C83 5196 0001:00023C8D 5197 0001:00023C95 5198 0001:00023C9D + 5203 0001:00023CA0 5204 0001:00023CAC 5205 0001:00023CB8 5206 0001:00023CC2 + 5207 0001:00023CCD 5208 0001:00023CE4 5223 0001:00023CE8 5224 0001:00023CF4 + 5225 0001:00023D0F 5226 0001:00023D18 5231 0001:00023D1C 5232 0001:00023D29 + 5233 0001:00023D32 5234 0001:00023D3D 5235 0001:00023D46 5236 0001:00023D5C + 5239 0001:00023D64 5240 0001:00023D70 5241 0001:00023D85 5242 0001:00023D99 + 5243 0001:00023DA2 5245 0001:00023DAF 5248 0001:00023DB7 5252 0001:00023DC2 + 5256 0001:00023DC9 5257 0001:00023DD2 5259 0001:00023DE9 5266 0001:00023E05 + 5269 0001:00023E25 5274 0001:00023E2C 5275 0001:00023E3B 5277 0001:00023E4A + 5278 0001:00023E56 5280 0001:00023E5C 5282 0001:00023E67 5283 0001:00023E72 + 5284 0001:00023E7D 5286 0001:00023E86 5287 0001:00023E9D 5288 0001:00023EA6 + 5289 0001:00023EAC 5292 0001:00023EAE 5293 0001:00023EB6 5357 0001:00023EBC + 5358 0001:00023ED7 5359 0001:00023EE1 5360 0001:00023F15 5364 0001:00023F1C + 5365 0001:00023F37 5366 0001:00023F41 5367 0001:00023F6E 5372 0001:00023F74 + 5373 0001:00023F8D 5374 0001:00023FDE 5376 0001:00023FE4 5377 0001:00023FF3 + 5378 0001:0002400A 5379 0001:0002401A 5380 0001:00024030 5381 0001:00024040 + 5382 0001:00024068 5385 0001:00024070 5386 0001:00024081 5387 0001:0002408C + 5388 0001:00024098 5389 0001:000240B4 5392 0001:000240B8 5393 0001:000240C7 + 5394 0001:000240E1 5399 0001:000240E8 5400 0001:00024103 5401 0001:0002410C + 5402 0001:0002411A 5403 0001:0002413E 5406 0001:00024144 5407 0001:00024155 + 5408 0001:0002417D 5411 0001:00024184 5412 0001:00024190 5413 0001:00024199 + 5439 0001:00024278 5440 0001:00024293 5441 0001:0002429C 5442 0001:000242A5 + 5443 0001:000242AE 5444 0001:000242BC 5445 0001:000242E5 5451 0001:000242EC + 5452 0001:000242F5 5453 0001:000242F9 5454 0001:00024302 5455 0001:0002430A + 5456 0001:0002431A 5457 0001:00024322 5458 0001:00024336 5459 0001:0002434D + 5460 0001:00024354 5463 0001:00024358 5464 0001:00024364 5465 0001:00024378 + 5470 0001:0002437C 5471 0001:0002439B 5472 0001:000243A3 5473 0001:000243A9 + 5474 0001:000243D3 5475 0001:000243DB 5476 0001:0002440C 5483 0001:00024410 + 5484 0001:0002442F 5485 0001:00024434 5486 0001:0002443E 5487 0001:00024444 + 5490 0001:0002444F 5491 0001:00024457 5492 0001:00024469 5493 0001:0002447A + 5494 0001:00024488 5495 0001:0002449F 5496 0001:000244A5 5497 0001:000244AB + 5498 0001:000244B6 5499 0001:000244C1 5500 0001:000244CC 5488 0001:000244D2 + 5502 0001:000244DE 5503 0001:00024504 5516 0001:00024518 5517 0001:0002451F + 5519 0001:00024543 5520 0001:00024551 5525 0001:00024554 5526 0001:0002455D + 5527 0001:0002456E 5528 0001:00024582 5529 0001:00024594 5530 0001:000245A2 + 5532 0001:000245A8 5535 0001:000245AE 5536 0001:000245B8 5537 0001:000245C6 + 5538 0001:000245D3 5539 0001:000245E1 5541 0001:000245EE 5542 0001:000245FD + 5543 0001:0002460B 5544 0001:0002461A 5545 0001:00024628 5547 0001:00024632 + 5549 0001:00024640 5550 0001:0002464E 5552 0001:00024669 5554 0001:0002466F + 5555 0001:00024680 5557 0001:0002468A 5558 0001:00024697 5559 0001:000246A2 + 5562 0001:000246AC 5563 0001:000246B9 5546 0001:000246BC 5567 0001:000246D8 + 5569 0001:000246E8 5571 0001:000246FE 5572 0001:0002470C 5573 0001:0002471E + 5574 0001:00024727 5569 0001:0002472A 5576 0001:0002473C 5580 0001:00024759 + 5583 0001:00024778 5585 0001:0002478A 5641 0001:00024790 5642 0001:0002479C + 5643 0001:000247A9 5644 0001:000247B6 5645 0001:000247C4 5647 0001:000247D3 + 5648 0001:000247E1 5651 0001:0002480A 5652 0001:00024815 5654 0001:0002481D + 5645 0001:00024820 5656 0001:00024833 5658 0001:00024845 5664 0001:0002484C + 5665 0001:00024855 5666 0001:0002485E 5667 0001:0002486B 5668 0001:00024879 + 5670 0001:00024888 5671 0001:00024896 5673 0001:000248A1 5674 0001:000248AC + 5676 0001:000248B4 5668 0001:000248B7 5678 0001:000248CA 5680 0001:000248DC + 5706 0001:000248E0 5707 0001:000248E7 5708 0001:000248FB 5711 0001:00024900 + 5712 0001:00024903 5713 0001:0002490D 5716 0001:00024910 5717 0001:00024919 + 5718 0001:00024940 5721 0001:00024944 5722 0001:00024950 5723 0001:0002495E + 5724 0001:0002496C 5727 0001:00024970 5728 0001:00024982 5729 0001:0002499D + 5730 0001:000249B9 5744 0001:000249C0 5745 0001:000249CC 5747 0001:000249D9 + 5748 0001:000249DF 5749 0001:000249E7 5751 0001:000249EC 5755 0001:000249F0 + 5756 0001:000249FF 5758 0001:00024A18 5759 0001:00024A21 5761 0001:00024A2C + 5768 0001:00024A34 5769 0001:00024A43 5771 0001:00024A64 5773 0001:00024A70 + 5774 0001:00024A76 5775 0001:00024A7E 5776 0001:00024A85 5778 0001:00024A8A + 5779 0001:00024A99 5780 0001:00024AA7 5781 0001:00024AB7 5782 0001:00024AC2 + 5783 0001:00024AD3 5784 0001:00024ADA 5786 0001:00024AF0 5788 0001:00024B00 + 5790 0001:00024B0B 5793 0001:00024B14 5794 0001:00024B1D 5795 0001:00024B2B + 5796 0001:00024B34 5806 0001:00024B38 5807 0001:00024B45 5808 0001:00024B49 + 5809 0001:00024B69 5815 0001:00024B70 5816 0001:00024B83 5817 0001:00024BA9 + 5818 0001:00024BB1 5819 0001:00024BD2 5820 0001:00024BE0 5825 0001:00024BE8 + 5826 0001:00024BF1 5827 0001:00024BFE 5828 0001:00024C0C 5829 0001:00024C1B + 5830 0001:00024C29 5832 0001:00024C45 5833 0001:00024C4D 5834 0001:00024C58 + 5828 0001:00024C5B 5836 0001:00024C6E 5838 0001:00024C80 5845 0001:00024C84 + 5846 0001:00024CA0 5847 0001:00024CAD 5848 0001:00024CBB 5849 0001:00024CD8 + 5851 0001:00024CE9 5852 0001:00024CF7 5853 0001:00024D02 5859 0001:00024D13 + 5860 0001:00024D26 5862 0001:00024D38 5863 0001:00024D52 5866 0001:00024D64 + 5867 0001:00024D6E 5848 0001:00024D71 5869 0001:00024D87 5871 0001:00024DB4 + 5883 0001:00024DB8 5884 0001:00024DBF 5885 0001:00024DD5 5886 0001:00024DDD + 5887 0001:00024DE5 5892 0001:00024DE8 5893 0001:00024DF1 5895 0001:00024DFA + 5896 0001:00024E2E 5897 0001:00024E39 5899 0001:00024E41 5906 0001:00024E48 + 5907 0001:00024E57 5910 0001:00024E64 5911 0001:00024E6F 5912 0001:00024E75 + 5914 0001:00024E8B 5915 0001:00024E9A 5916 0001:00024EA9 5912 0001:00024EAC + 5917 0001:00024EB1 5908 0001:00024EBC 5919 0001:00024EC7 5920 0001:00024ED0 + 5922 0001:00024EE3 5923 0001:00024EF1 5926 0001:00024EF8 5927 0001:00024F01 + 5928 0001:00024F20 5931 0001:00024F24 5932 0001:00024F2D 5933 0001:00024F38 + 5934 0001:00024F41 5937 0001:00024F48 5938 0001:00024F54 5939 0001:00024F5C + 5940 0001:00024F64 5944 0001:00024F68 5945 0001:00024F69 5946 0001:00024F6A + 5947 0001:00024F6B 5948 0001:00024F6D 5949 0001:00024F6F 5950 0001:00024F71 + 5951 0001:00024F73 5952 0001:00024F76 5953 0001:00024F79 5954 0001:00024F7B + 5955 0001:00024F7D 5956 0001:00024F82 5957 0001:00024F85 5958 0001:00024F87 + 5959 0001:00024F89 5960 0001:00024F8B 5961 0001:00024F8C 5962 0001:00024F8E + 5963 0001:00024F91 5964 0001:00024F94 5965 0001:00024F97 5966 0001:00024F99 + 5967 0001:00024F9B 5968 0001:00024F9E 5969 0001:00024F9F 5970 0001:00024FA1 + 5971 0001:00024FA3 5972 0001:00024FA6 5973 0001:00024FA8 5974 0001:00024FA9 + 5975 0001:00024FAB 5976 0001:00024FAD 5977 0001:00024FAE 5978 0001:00024FAF + 5979 0001:00024FB0 5982 0001:00024FB4 5983 0001:00024FBC 5984 0001:00024FD9 + 5985 0001:00024FF9 5986 0001:00025001 5989 0001:00025008 5990 0001:00025011 + 5991 0001:00025022 5996 0001:00025028 5997 0001:00025044 5998 0001:0002504F + 5999 0001:0002505A 6000 0001:0002505F 6001 0001:00025087 6006 0001:0002508C + 6007 0001:00025098 6008 0001:000250A0 6009 0001:000250AE 6012 0001:000250C4 + 6013 0001:000250DA 6014 0001:000250E5 6015 0001:000250EF 6016 0001:00025106 + 6010 0001:0002510E 6018 0001:0002511A 6020 0001:0002512F 6022 0001:0002513F + 6035 0001:00025168 6036 0001:00025171 6037 0001:0002518C 6036 0001:000251A9 + 6038 0001:000251AE 6043 0001:000251B4 6044 0001:000251BE 6045 0001:000251D6 + 6047 0001:000251E7 6048 0001:0002520D 6049 0001:0002522F 6044 0001:00025232 + 6050 0001:00025237 6055 0001:0002523C 6056 0001:00025249 6057 0001:00025264 + 6058 0001:0002526A 6060 0001:00025290 6056 0001:000252B9 6061 0001:000252BE + 6064 0001:000252C4 6065 0001:000252C8 6066 0001:000252E6 6069 0001:000252EC + 6070 0001:000252F5 6071 0001:000252F9 6072 0001:0002530D 6073 0001:00025325 + 6074 0001:0002532C 6075 0001:00025339 6076 0001:00025352 6081 0001:00025358 + 6082 0001:0002535F 6083 0001:0002536D 6084 0001:00025381 6085 0001:00025389 + 6086 0001:00025396 6087 0001:000253B2 6089 0001:000253BB 6090 0001:000253C7 + 6092 0001:000253D0 6093 0001:000253DB 6095 0001:000253E7 6096 0001:000253F5 + 6098 0001:0002541B 6099 0001:00025423 6102 0001:0002542D 6104 0001:00025447 + 6106 0001:00025465 6109 0001:0002546C 6110 0001:00025472 6111 0001:00025480 + 6112 0001:00025498 6113 0001:000254AF 6114 0001:000254CE 6116 0001:000254E9 + 6118 0001:00025507 6121 0001:0002550C 6122 0001:00025512 6123 0001:00025520 + 6124 0001:0002554A 6125 0001:00025562 6127 0001:0002558F 6129 0001:000255AD + 6133 0001:000255B4 6134 0001:000255DC 6135 0001:000255EA 6136 0001:000255F5 + 6137 0001:00025600 6138 0001:00025609 6139 0001:00025612 6140 0001:00025620 + 6141 0001:00025626 6142 0001:0002562C 6143 0001:00025632 6144 0001:0002563B + 6145 0001:00025642 6146 0001:0002564C 6147 0001:0002565A 6148 0001:00025664 + 6149 0001:0002566C 6150 0001:0002567B 6151 0001:00025688 6152 0001:000256A0 + 6153 0001:000256A9 6154 0001:000256B2 6155 0001:000256BA 6156 0001:000256C9 + 6157 0001:000256D4 6158 0001:000256DC 6159 0001:000256EB 6160 0001:00025706 + 6162 0001:00025715 6164 0001:00025727 6165 0001:00025731 6170 0001:00025741 + 6171 0001:0002574B 6174 0001:00025768 6175 0001:0002577B 6178 0001:00025792 + 6179 0001:0002579B 6181 0001:000257DF 6184 0001:000257F0 6185 0001:000257FC + 6187 0001:00025805 6188 0001:00025817 6189 0001:00025825 6190 0001:00025830 + 6192 0001:00025845 6195 0001:00025855 6196 0001:00025860 6201 0001:00025864 + 6202 0001:00025873 6203 0001:0002588A 6204 0001:00025892 6205 0001:0002589B + 6206 0001:000258A4 6207 0001:000258B6 6208 0001:000258C4 6209 0001:000258D6 + 6210 0001:000258ED 6211 0001:00025903 6213 0001:00025918 6214 0001:00025921 + 6216 0001:00025932 6219 0001:00025938 6220 0001:00025941 6222 0001:0002595F + 6223 0001:00025965 6225 0001:0002597D 6228 0001:00025984 6229 0001:0002598D + 6231 0001:000259AB 6232 0001:000259B1 6234 0001:000259C9 6237 0001:000259D0 + 6238 0001:000259D9 6240 0001:000259F7 6241 0001:000259FD 6243 0001:00025A1B + 6246 0001:00025A24 6247 0001:00025A2D 6249 0001:00025A4B 6250 0001:00025A51 + 6252 0001:00025A69 6257 0001:00025A70 6258 0001:00025A7C 6261 0001:00025AC3 + 6262 0001:00025AD3 6263 0001:00025AE2 6266 0001:00025AFB 6268 0001:00025B0A + 6270 0001:00025B19 6272 0001:00025B28 6274 0001:00025B37 6276 0001:00025B3C + 6282 0001:00025B7C 6283 0001:00025B85 6286 0001:00025B9B 6287 0001:00025BAB + 6291 0001:00025BB4 6292 0001:00025BC4 6295 0001:00025BCD 6297 0001:00025BDF + 6299 0001:00025BE7 6302 0001:00025BEC 6303 0001:00025BF5 6305 0001:00025C01 + 6306 0001:00025C09 6309 0001:00025C1B 6310 0001:00025C30 6313 0001:00025C34 + 6314 0001:00025C3B 6315 0001:00025C45 6318 0001:00025C48 6319 0001:00025C4F + 6320 0001:00025C59 6325 0001:00025C5C 6326 0001:00025C6B 6327 0001:00025C76 + 6329 0001:00025C84 6330 0001:00025C8F 6331 0001:00025C99 6333 0001:00025CAE + 6346 0001:00025CB8 6347 0001:00025CD7 6348 0001:00025CDF 6349 0001:00025CF4 + 6350 0001:00025D05 6351 0001:00025D2C 6352 0001:00025DB3 6355 0001:00025DB8 + 6356 0001:00025DBB 6357 0001:00025DC6 6358 0001:00025DD0 6360 0001:00025DD4 + 6361 0001:00025DF6 6362 0001:00025E04 6363 0001:00025E0F 6364 0001:00025E1D + 6365 0001:00025E24 6366 0001:00025E2F 6367 0001:00025E35 6370 0001:00025E3C + 6371 0001:00025E44 6372 0001:00025E5C 6373 0001:00025E74 6374 0001:00025E7C + 6375 0001:00025E94 6376 0001:00025E9A 6377 0001:00025EA8 6378 0001:00025EAD + 6379 0001:00025EB9 6380 0001:00025EC7 6381 0001:00025EE0 6382 0001:00025EE6 + 6368 0001:00025EE9 6384 0001:00025EEE 6385 0001:00025F06 6388 0001:00025F1C + 6389 0001:00025F23 6390 0001:00025F2E 6391 0001:00025F35 6392 0001:00025F3E + 6395 0001:00025F67 6398 0001:00025F94 6399 0001:00025F97 6401 0001:00025FD9 + 6415 0001:00025FE0 6416 0001:00025FEF 6417 0001:00025FFE 6418 0001:00026011 + 6420 0001:00026021 6421 0001:00026026 6425 0001:0002602C 6426 0001:0002603B + 6427 0001:0002606E 6431 0001:00026074 6432 0001:0002608B 6433 0001:000260CA + 6438 0001:000260D0 6439 0001:000260E5 6441 0001:000260F4 6442 0001:000260FF + 6443 0001:00026107 6446 0001:0002611D 6447 0001:00026189 6449 0001:00026190 + 6450 0001:000261C2 6451 0001:000261CB 6454 0001:00026202 6455 0001:0002620C + 6456 0001:00026216 6458 0001:00026270 6459 0001:0002627C 6461 0001:0002629C + 6463 0001:000262B6 6465 0001:000262D2 6467 0001:000262FA 6469 0001:00026319 + 6471 0001:00026337 6473 0001:00026355 6475 0001:00026372 6478 0001:00026384 + 6479 0001:0002638C 6483 0001:0002639E 6484 0001:000263A6 6487 0001:000263C0 + 6490 0001:000263E0 6492 0001:000263EC 6493 0001:000263F4 6497 0001:00026406 + 6498 0001:00026425 6499 0001:0002642E 6502 0001:00026444 6504 0001:0002644D + 6506 0001:00026464 6508 0001:000264A2 6515 0001:000264A8 6516 0001:000264B4 + 6517 0001:000264B9 6520 0001:000264C6 6521 0001:000264C9 6518 0001:000264F3 + 6523 0001:00026501 6529 0001:00026518 6530 0001:00026549 6531 0001:00026551 + 6532 0001:00026556 6533 0001:00026560 6534 0001:0002656E 6535 0001:0002657C + 6536 0001:0002658A 6538 0001:00026590 6539 0001:000265AD 6542 0001:000265C5 + 6543 0001:000265CB 6544 0001:000265D6 6545 0001:000265DF 6547 0001:000265EC + 6548 0001:000265F4 6549 0001:000265FC 6552 0001:0002661F 6553 0001:00026628 + 6554 0001:00026646 6555 0001:00026654 6556 0001:0002665D 6557 0001:0002666B + 6558 0001:00026671 6559 0001:0002667C 6560 0001:0002668E 6561 0001:0002669C + 6562 0001:000266B1 6563 0001:000266C2 6564 0001:000266CE 6565 0001:000266D9 + 6566 0001:000266E4 6567 0001:000266F2 6568 0001:000266FD 6569 0001:00026703 + 6571 0001:00026744 6572 0001:00026755 6575 0001:00026772 6578 0001:00026785 + 6582 0001:00026793 6583 0001:00026798 6585 0001:000267AF 6577 0001:000267CD + 6588 0001:000267DE 6589 0001:000267E8 6590 0001:000267F6 6593 0001:0002680D + 6595 0001:00026844 6629 0001:0002684C 6630 0001:0002686E 6631 0001:0002687C + 6632 0001:0002688D 6633 0001:0002689D 6636 0001:000268A2 6637 0001:000268AD + 6638 0001:000268B3 6634 0001:000268C7 6641 0001:000268D8 6642 0001:000268E0 + 6644 0001:0002690A 6649 0001:00026914 6650 0001:0002691D 6651 0001:0002692D + 6652 0001:00026942 6657 0001:00026948 6658 0001:00026954 6659 0001:00026964 + 6660 0001:00026973 6661 0001:0002698A 6666 0001:00026990 6667 0001:000269AF + 6668 0001:000269BF 6671 0001:000269D7 6672 0001:000269DC 6674 0001:000269EE + 6676 0001:00026A00 6678 0001:00026A12 6680 0001:00026A17 6681 0001:00026A22 + 6683 0001:00026A4F 6689 0001:00026A54 6690 0001:00026A76 6691 0001:00026A86 + 6694 0001:00026AA1 6695 0001:00026AA6 6698 0001:00026AB8 6699 0001:00026AC8 + 6700 0001:00026AD3 6704 0001:00026AE7 6705 0001:00026AF7 6706 0001:00026B02 + 6707 0001:00026B10 6710 0001:00026B1D 6713 0001:00026B47 6716 0001:00026B4C + 6717 0001:00026B55 6718 0001:00026B68 6728 0001:00026B6C 6729 0001:00026B88 + 6730 0001:00026BB6 6735 0001:00026BBC 6736 0001:00026BC1 6737 0001:00026BDB + 6738 0001:00026BE6 6743 0001:00026BE8 6744 0001:00026BF1 6745 0001:00026C04 + 6746 0001:00026C16 6749 0001:00026C1C 6752 0001:00026C21 6753 0001:00026C3D + 6754 0001:00026C4F 6755 0001:00026C69 6750 0001:00026C74 6757 0001:00026C83 + 6758 0001:00026C8E 6760 0001:00026C90 6761 0001:00026CAC 6763 0001:00026D20 + 6764 0001:00026D2C 6765 0001:00026D3E 6766 0001:00026D50 6767 0001:00026D62 + 6768 0001:00026D74 6770 0001:00026D84 6771 0001:00026D92 6772 0001:00026D9C + 6773 0001:00026DAA 6774 0001:00026DB3 6775 0001:00026DC2 6776 0001:00026DD1 + 6777 0001:00026DE0 6778 0001:00026DEE 6779 0001:00026DFD 6781 0001:00026E26 + 6864 0001:00026E2C 6865 0001:00026E48 6866 0001:00026E53 6867 0001:00026E78 + 6873 0001:00026E7C 6874 0001:00026E9F 6876 0001:00026EA5 6877 0001:00026EB3 + 6878 0001:00026EBE 6880 0001:00026ECB 6881 0001:00026EDF 6882 0001:00026EE9 + 6883 0001:00026EFF 6884 0001:00026F29 6890 0001:00026F30 6891 0001:00026F53 + 6892 0001:00026F5E 6893 0001:00026F63 6894 0001:00026F6C 6895 0001:00026F7D + 6897 0001:00026F83 6898 0001:00026F8D 6899 0001:00026FA4 6900 0001:00026FAA + 6902 0001:00026FF1 6905 0001:00026FF8 6906 0001:00027005 6907 0001:0002701E + 6910 0001:00027024 6911 0001:00027034 6912 0001:00027051 6913 0001:0002705E + 6916 0001:00027064 6917 0001:00027071 6918 0001:00027085 6919 0001:000270A2 + 6920 0001:000270B6 6921 0001:000270C0 6922 0001:000270D3 6923 0001:000270EB + 6924 0001:000270F6 6929 0001:000270FC 6930 0001:0002710B 6931 0001:00027111 + 6933 0001:0002711A 6934 0001:0002712D 6938 0001:00027136 6939 0001:00027147 + 6930 0001:0002714C 6941 0001:00027152 6953 0001:00027158 6954 0001:00027178 + 6956 0001:00027185 6957 0001:0002718A 6958 0001:00027199 6959 0001:000271A7 + 6961 0001:000271B6 6962 0001:000271C9 6963 0001:000271D7 6965 0001:000271EB + 6966 0001:00027202 6967 0001:00027210 6968 0001:0002721B 6969 0001:0002722B + 6970 0001:00027239 6972 0001:0002724A 6974 0001:00027274 6975 0001:0002728B + 6976 0001:00027298 6978 0001:000272B3 6981 0001:000272D0 6982 0001:000272D8 + 6984 0001:0002730D 6986 0001:00027324 6987 0001:00027345 6988 0001:0002734D + 6989 0001:000273BC 6990 0001:000273CC 6991 0001:000273D9 6992 0001:000273F5 + 6993 0001:00027411 6994 0001:0002742A 6995 0001:0002743F 6996 0001:00027454 + 6997 0001:00027469 6998 0001:0002747E 7000 0001:00027496 7001 0001:000274AE + 7002 0001:000274C5 7003 0001:000274DC 7005 0001:000274F0 7007 0001:00027534 + 7012 0001:00027538 7013 0001:00027549 7014 0001:00027551 7015 0001:0002756D + 7018 0001:00027574 7019 0001:00027580 7020 0001:0002758E 7024 0001:00027594 + 7025 0001:000275A3 7027 0001:000275B0 7028 0001:000275BB 7030 0001:000275C4 + 7034 0001:000275CC 7035 0001:000275DB 7037 0001:000275E8 7038 0001:000275F3 + 7040 0001:00027601 7043 0001:00027608 7044 0001:00027611 7045 0001:00027628 + 7048 0001:0002762C 7049 0001:00027633 7050 0001:0002763B 7055 0001:00027640 + 7056 0001:0002764C 7058 0001:0002765A 7060 0001:00027670 7061 0001:00027678 + 7064 0001:0002768B 7065 0001:00027697 7068 0001:0002769C 7069 0001:000276A8 + 7070 0001:000276B3 7071 0001:000276BC 7075 0001:000276C0 7076 0001:000276C1 + 7077 0001:000276C2 7078 0001:000276C3 7079 0001:000276C5 7080 0001:000276C7 + 7081 0001:000276C9 7082 0001:000276CB 7083 0001:000276CE 7084 0001:000276D1 + 7085 0001:000276D3 7086 0001:000276D5 7087 0001:000276DA 7088 0001:000276DD + 7089 0001:000276DF 7090 0001:000276E1 7091 0001:000276E3 7092 0001:000276E5 + 7093 0001:000276E6 7094 0001:000276E9 7095 0001:000276EC 7096 0001:000276EF + 7097 0001:000276F1 7098 0001:000276F3 7099 0001:000276F6 7100 0001:000276F7 + 7101 0001:000276F9 7102 0001:000276FB 7103 0001:000276FE 7104 0001:00027700 + 7105 0001:00027701 7106 0001:00027703 7107 0001:00027705 7108 0001:00027706 + 7109 0001:00027707 7110 0001:00027708 7116 0001:0002770C 7117 0001:00027715 + 7118 0001:00027724 7119 0001:00027732 7120 0001:0002773B 7121 0001:00027745 + 7122 0001:0002774F 7123 0001:0002775F 7125 0001:0002777D 7127 0001:0002778D + 7130 0001:00027794 7131 0001:0002779B 7132 0001:000277B2 7133 0001:000277BA + 7136 0001:000277C0 7137 0001:000277CC 7138 0001:000277D2 7140 0001:000277DE + 7141 0001:000277E8 7144 0001:000277EC 7145 0001:0002780B 7146 0001:0002783E + 7152 0001:00027844 7153 0001:00027850 7154 0001:00027859 7155 0001:00027861 + 7156 0001:0002786F 7157 0001:00027879 7158 0001:0002787F 7160 0001:00027897 + 7161 0001:0002789F 7162 0001:000278B4 7163 0001:000278BC 7158 0001:000278BF + 7164 0001:000278C4 7166 0001:000278D9 7168 0001:000278EA 7175 0001:000278F0 + 7176 0001:000278F9 7178 0001:00027915 7179 0001:00027929 7180 0001:0002793B + 7176 0001:0002793E 7181 0001:00027943 7182 0001:0002794B 7189 0001:00027950 + 7190 0001:0002795D 7191 0001:00027966 7192 0001:0002796F 7193 0001:0002797D + 7194 0001:00027985 7195 0001:0002799D 7196 0001:000279AE 7194 0001:000279C1 + 7197 0001:000279C6 7198 0001:000279CF 7199 0001:000279E2 7202 0001:00027A0A + 7203 0001:00027A13 7205 0001:00027A34 7207 0001:00027A3D 7208 0001:00027A48 + 7209 0001:00027A50 7210 0001:00027A68 7211 0001:00027A79 7209 0001:00027A8C + 7213 0001:00027A9E 7214 0001:00027AA7 7216 0001:00027AB8 7225 0001:00027AC0 + 7226 0001:00027AF9 7227 0001:00027B35 7229 0001:00027B3D 7230 0001:00027B48 + 7231 0001:00027B50 7232 0001:00027B59 7234 0001:00027B74 7237 0001:00027B7A + 7238 0001:00027B80 7239 0001:00027B89 7240 0001:00027B8D 7242 0001:00027BC9 + 7243 0001:00027BCD 7244 0001:00027BDE 7245 0001:00027BE7 7247 0001:00027C59 + 7248 0001:00027C88 7249 0001:00027C96 7250 0001:00027CA1 7252 0001:00027CBB + 7253 0001:00027CCA 7255 0001:00027CD0 7256 0001:00027CDB 7257 0001:00027CE3 + 7258 0001:00027CEC 7259 0001:00027CF5 7260 0001:00027CFE 7261 0001:00027D07 + 7262 0001:00027D10 7263 0001:00027D1E 7264 0001:00027D26 7265 0001:00027D2E + 7266 0001:00027D36 7267 0001:00027D43 7268 0001:00027D51 7270 0001:00027D6F + 7271 0001:00027D90 7272 0001:00027D9C 7273 0001:00027DAE 7275 0001:00027DCC + 7276 0001:00027DD5 7277 0001:00027DDE 7279 0001:00027E06 7282 0001:00027E26 + 7283 0001:00027E2F 7284 0001:00027E38 7285 0001:00027E41 7286 0001:00027E4A + 7288 0001:00027E5B 7289 0001:00027E63 7291 0001:00027E8A 7292 0001:00027EBA + 7295 0001:00027ED4 7296 0001:00027EE3 7297 0001:00027EEC 7298 0001:00027EF5 + 7299 0001:00027EFE 7300 0001:00027F07 7301 0001:00027F0F 7302 0001:00027F1A + 7305 0001:00027F20 7306 0001:00027F27 7307 0001:00027F31 7308 0001:00027F41 + 7311 0001:00027F48 7312 0001:00027F4F 7313 0001:00027F59 7314 0001:00027F69 + 7317 0001:00027F70 7318 0001:00027F77 7319 0001:00027F81 7320 0001:00027F91 + 7323 0001:00027F98 7324 0001:00027F9F 7325 0001:00027FA9 7326 0001:00027FB9 + 7329 0001:00027FC0 7330 0001:00027FCC 7331 0001:00027FE9 7332 0001:00028006 + 7333 0001:00028023 7335 0001:00028040 7336 0001:0002804A 7338 0001:00028055 + 7341 0001:00028098 7342 0001:000280A4 7344 0001:000280B0 7345 0001:000280BA + 7347 0001:000280CC 7349 0001:000280DE 7350 0001:000280E8 7354 0001:000280FA + 7355 0001:00028104 7357 0001:00028114 7360 0001:00028118 7361 0001:0002811F + 7362 0001:00028145 7365 0001:00028154 7366 0001:0002815E 7368 0001:0002816E + 7371 0001:00028174 7372 0001:0002817B 7373 0001:00028185 7376 0001:00028188 + 7377 0001:0002818F 7378 0001:00028199 7383 0001:0002819C 7384 0001:000281AB + 7386 0001:000281B5 7387 0001:000281BD 7388 0001:000281CD 7390 0001:000281DE + 7397 0001:000281E8 7398 0001:000281F4 7399 0001:0002820A 7401 0001:00028214 + 7402 0001:00028222 7403 0001:00028230 7404 0001:00028242 7406 0001:00028255 + 7407 0001:00028261 7409 0001:00028267 7410 0001:00028276 7411 0001:00028284 + 7404 0001:00028287 7413 0001:00028299 7416 0001:000282AF 7417 0001:000282BA + 7420 0001:000282C0 7421 0001:000282CF 7423 0001:000282FF 7439 0001:00028304 + 7440 0001:0002830A 7441 0001:0002831E 7442 0001:00028327 7445 0001:00028341 + 7446 0001:0002834D 7448 0001:0002836A 7453 0001:00028370 7454 0001:00028376 + 7455 0001:0002838B 7456 0001:00028394 7458 0001:000283B3 7459 0001:000283C6 + 7464 0001:000283D0 7465 0001:000283D6 7466 0001:000283ED 7467 0001:000283F6 + 7469 0001:00028417 7470 0001:0002842A 7475 0001:00028430 7476 0001:00028447 + 7477 0001:0002845B 7478 0001:00028464 7480 0001:00028489 7481 0001:000284BC + 7484 0001:000284C0 7485 0001:000284CC 7488 0001:00028515 7497 0001:0002851C + 7498 0001:00028522 7499 0001:00028527 7501 0001:00028533 7502 0001:0002854D + 7503 0001:00028567 7505 0001:00028570 7506 0001:00028580 7508 0001:00028584 + 7509 0001:0002858A 7510 0001:0002858E 7511 0001:000285A2 7513 0001:000285B3 + 7515 0001:000285B9 7517 0001:000285CB 7520 0001:000285E6 7525 0001:000285F1 + 7526 0001:000285FA 7530 0001:00028600 7533 0001:00028607 7544 0001:0002860C + 7545 0001:00028623 7546 0001:0002862E 7548 0001:0002863A 7549 0001:00028654 + 7550 0001:00028661 7552 0001:00028667 7553 0001:00028682 7556 0001:000286C8 + 7560 0001:000286DC 7561 0001:000286F4 7562 0001:000286F8 7563 0001:0002870C + 7565 0001:0002872D 7566 0001:00028750 7570 0001:00028756 7571 0001:00028761 + 7575 0001:0002876C 7576 0001:00028775 7579 0001:000287A9 7585 0001:000287C0 + 7586 0001:000287C9 7587 0001:000287DD 7588 0001:000287E2 7589 0001:000287EB + 7590 0001:00028805 7592 0001:0002883E 7597 0001:00028844 7598 0001:00028861 + 7599 0001:00028875 7600 0001:0002887E 7602 0001:000288A2 7603 0001:000288D8 + 7605 0001:000288DC 7606 0001:000288E8 7607 0001:000288ED 7608 0001:000288F2 + 7609 0001:000288F7 7611 0001:000288FC 7612 0001:00028903 7614 0001:00028917 + 7616 0001:00028928 7617 0001:0002892C 7623 0001:00028985 7624 0001:0002898F + 7626 0001:000289E9 7628 0001:000289F5 7630 0001:00028A01 7632 0001:00028A0D + 7634 0001:00028A19 7636 0001:00028A25 7638 0001:00028A31 7640 0001:00028A3D + 7643 0001:00028A4A 7651 0001:00028A50 7652 0001:00028A63 7653 0001:00028A9F + 7659 0001:00028AA4 7660 0001:00028AC0 7661 0001:00028AD3 7662 0001:00028AE0 + 7663 0001:00028AE5 7662 0001:00028B12 7664 0001:00028B18 7665 0001:00028B42 + 7671 0001:00028B48 7672 0001:00028B67 7673 0001:00028B72 7674 0001:00028B85 + 7676 0001:00028B95 7677 0001:00028BC0 7682 0001:00028BC4 7683 0001:00028BE0 + 7684 0001:00028BEA 7685 0001:00028BFB 7686 0001:00028C09 7687 0001:00028C17 + 7689 0001:00028C32 7691 0001:00028C68 7696 0001:00028C6C 7697 0001:00028C85 + 7698 0001:00028C99 7699 0001:00028CA3 7701 0001:00028CBD 7703 0001:00028CD6 + 7705 0001:00028CE6 7707 0001:00028CF5 7709 0001:00028D31 7714 0001:00028D38 + 7715 0001:00028D3E 7716 0001:00028D53 7717 0001:00028D5D 7718 0001:00028D73 + 7723 0001:00028D78 7724 0001:00028D7E 7725 0001:00028D95 7726 0001:00028D9F + 7727 0001:00028DB0 7732 0001:00028DB4 7733 0001:00028DC7 7734 0001:00028DDB + 7735 0001:00028DE5 7736 0001:00028E10 7739 0001:00028E14 7740 0001:00028E20 + 7741 0001:00028E24 7742 0001:00028E2A 7745 0001:00028E32 7741 0001:00028E3B + 7746 0001:00028E41 7747 0001:00028E48 7750 0001:00028E4C 7751 0001:00028E6B + 7752 0001:00028E7C 7753 0001:00028E8F 7754 0001:00028E9D 7755 0001:00028EAF + 7757 0001:00028ED1 7758 0001:00028EEE 7760 0001:00028F1E 7761 0001:00028F41 + 7762 0001:00028F4A 7763 0001:00028F5F 7764 0001:00028F84 7771 0001:00028FB4 + 7772 0001:00028FCC 7773 0001:00028FE0 7775 0001:00028FE6 7776 0001:00028FF0 + 7778 0001:00029002 7779 0001:00029018 7782 0001:00029033 7786 0001:00029043 + 7788 0001:0002904D 7789 0001:00029057 7793 0001:0002906A 7794 0001:00029076 + 7795 0001:00029087 7796 0001:00029095 7797 0001:000290CA 7798 0001:000290D3 + 7799 0001:000290F0 7801 0001:0002910B 7802 0001:00029117 7804 0001:00029130 + 7806 0001:00029142 7809 0001:00029180 7812 0001:000291AF 7821 0001:000291C0 + 7822 0001:000291D7 7823 0001:000291EB 7825 0001:000291F1 7826 0001:000291FB + 7828 0001:0002920A 7830 0001:00029225 7831 0001:00029230 7833 0001:00029240 + 7834 0001:0002924A 7838 0001:00029285 7843 0001:0002929C 7844 0001:000292B8 + 7845 0001:000292CC 7846 0001:000292D6 7847 0001:000292DC 7849 0001:000292EB + 7850 0001:0002933D 7855 0001:00029344 7856 0001:0002935B 7857 0001:0002936F + 7858 0001:00029379 7859 0001:000293A4 7861 0001:000293A8 7865 0001:000293B7 + 7871 0001:00029410 7873 0001:0002942C 7874 0001:00029446 7875 0001:00029450 + 7877 0001:000294AA 7879 0001:000294B3 7881 0001:000294BC 7883 0001:000294C5 + 7885 0001:000294CE 7887 0001:000294D7 7889 0001:000294E0 7891 0001:000294E9 + 7895 0001:000294F0 7905 0001:000294F4 7906 0001:00029528 7907 0001:00029534 + 7908 0001:0002954B 7910 0001:000295C6 7912 0001:000295D5 7914 0001:000295E4 + 7916 0001:000295FF 7918 0001:0002961A 7920 0001:00029631 7922 0001:0002964D + 7924 0001:00029669 7926 0001:00029685 7928 0001:000296A1 7929 0001:000296AD + 7931 0001:000296BC 7934 0001:000296CB 7935 0001:000296D9 7938 0001:000296EC + 7939 0001:000296FA 7941 0001:00029732 7944 0001:0002974D 7945 0001:00029752 + 7946 0001:00029761 7947 0001:0002976F 7948 0001:0002977E 7949 0001:00029795 + 7950 0001:000297A3 7951 0001:000297B1 7953 0001:000297BB 7954 0001:000297E4 + 7955 0001:000297F4 7957 0001:00029812 7959 0001:00029822 7960 0001:0002982C + 7961 0001:00029836 7962 0001:00029846 7964 0001:00029864 7965 0001:0002986C + 7969 0001:0002988B 7972 0001:000298E9 7975 0001:00029900 7976 0001:0002991F + 7977 0001:00029958 7985 0001:0002995C 7986 0001:00029963 7987 0001:00029975 + 7992 0001:00029978 7993 0001:00029984 7994 0001:0002998F 7995 0001:0002999F + 7996 0001:000299AF 7997 0001:000299C4 8002 0001:000299C8 8003 0001:000299D7 + 8005 0001:000299E4 8006 0001:000299EF 8007 0001:000299F9 8008 0001:00029A09 + 8012 0001:00029A19 8013 0001:00029A24 8015 0001:00029A2D 8016 0001:00029A37 + 8019 0001:00029A49 8020 0001:00029A53 8022 0001:00029A63 8024 0001:00029A71 + 8027 0001:00029A78 8028 0001:00029A97 8029 0001:00029ACD 8035 0001:00029AD4 + 8036 0001:00029AF7 8037 0001:00029B02 8038 0001:00029B1A 8041 0001:00029B35 + 8042 0001:00029B3F 8043 0001:00029B4A 8044 0001:00029B5A 8046 0001:00029B8F + 8049 0001:00029B94 8050 0001:00029BA0 8051 0001:00029BB0 8055 0001:00029BB4 + 8056 0001:00029BC3 8057 0001:00029BCE 8058 0001:00029BD9 8059 0001:00029BE4 + 8060 0001:00029BEF 9229 0001:00029BF8 9230 0001:00029BFB 9232 0001:00029C05 + 9233 0001:00029C1A 9234 0001:00029C23 9239 0001:00029C28 9242 0001:00029C30 + 9243 0001:00029C33 9245 0001:00029C3D 9250 0001:00029C48 9258 0001:00029C4C + 9260 0001:00029C4F 9265 0001:00029C5A 9273 0001:00029C5C 9275 0001:00029C63 + 9276 0001:00029C76 9285 0001:00029C7B 9294 0001:00029C80 9296 0001:00029C83 + 9301 0001:00029C8E 9304 0001:00029C90 9305 0001:00029C93 9306 0001:00029C9D + 9309 0001:00029CA0 9310 0001:00029CA3 9311 0001:00029CAD 9317 0001:00029CB0 + 9318 0001:00029CBC 9319 0001:00029CCB 9320 0001:00029CF4 9321 0001:00029CFA + 9323 0001:00029D04 9324 0001:00029D09 9325 0001:00029D0E 9326 0001:00029D18 + 9327 0001:00029D26 9328 0001:00029D37 9329 0001:00029D45 9330 0001:00029D5D + 9334 0001:00029D6C 9335 0001:00029D79 9336 0001:00029D83 9337 0001:00029D8D + 9338 0001:00029D9B 9339 0001:00029DA9 9341 0001:00029DC3 9344 0001:00029DE2 + 9347 0001:00029DF4 9332 0001:00029E00 9355 0001:00029E1A 9358 0001:00029E37 + 9360 0001:00029E4C 9365 0001:00029E54 9369 0001:00029E60 9370 0001:00029E6E + 9371 0001:00029E77 9372 0001:00029E85 9374 0001:00029E9C 9377 0001:00029EB9 + 9378 0001:00029EC2 9379 0001:00029ECB 9380 0001:00029ED2 9381 0001:00029ED9 + 9382 0001:00029EDE 9384 0001:00029EEC 9396 0001:00029EFF 9403 0001:00029F08 + 9404 0001:00029F37 9405 0001:00029F41 9406 0001:00029F46 9407 0001:00029F4F + 9409 0001:00029F58 9410 0001:00029F79 9411 0001:00029F82 9419 0001:00029FEE + 9422 0001:00029FF4 9423 0001:0002A005 9425 0001:0002A017 9426 0001:0002A01F + 9427 0001:0002A028 9428 0001:0002A030 9431 0001:0002A038 9439 0001:0002A04D + 9440 0001:0002A05B 9441 0001:0002A066 9442 0001:0002A079 9445 0001:0002A080 + 9446 0001:0002A087 9447 0001:0002A090 9448 0001:0002A098 9451 0001:0002A09C + 9452 0001:0002A0BB 9453 0001:0002A0C1 9454 0001:0002A11A 9457 0001:0002A120 + 9458 0001:0002A12C 9459 0001:0002A132 9460 0001:0002A141 9463 0001:0002A148 + 9464 0001:0002A150 9465 0001:0002A166 9468 0001:0002A16C 9469 0001:0002A173 + 9470 0001:0002A18E 9559 0001:0002A194 9560 0001:0002A1A1 9561 0001:0002A1B0 + 9565 0001:0002A1BE 9566 0001:0002A1CE 9571 0001:0002A1DC 9572 0001:0002A1E6 + 9573 0001:0002A1F4 9574 0001:0002A1FD 9575 0001:0002A20E 9576 0001:0002A214 + 9577 0001:0002A221 9578 0001:0002A226 9579 0001:0002A230 9581 0001:0002A241 + 9582 0001:0002A24B 9583 0001:0002A259 9585 0001:0002A271 9592 0001:0002A290 + 9596 0001:0002A2AF 9599 0001:0002A2C0 9601 0001:0002A2D4 9604 0001:0002A2DC + 9605 0001:0002A2E3 9606 0001:0002A2EC 9607 0001:0002A2F4 9608 0001:0002A303 + 9609 0001:0002A313 9643 0001:0002A318 9644 0001:0002A324 9645 0001:0002A32D + 9646 0001:0002A33B 9648 0001:0002A342 9654 0001:0002A36A 9655 0001:0002A373 + 9657 0001:0002A37D 9663 0001:0002A384 9664 0001:0002A38D 9665 0001:0002A39C + 9666 0001:0002A3AB 9667 0001:0002A3B1 9668 0001:0002A3B8 9695 0001:0002A3BC + 9696 0001:0002A3C3 9697 0001:0002A3CA 9705 0001:0002A3D0 9706 0001:0002A3D9 + 9707 0001:0002A3E2 9709 0001:0002A3F1 9710 0001:0002A3F6 9714 0001:0002A3FE + 9715 0001:0002A404 9716 0001:0002A415 9717 0001:0002A42C 9718 0001:0002A43B + 9719 0001:0002A441 9720 0001:0002A448 9721 0001:0002A450 9722 0001:0002A45B + 9723 0001:0002A479 9743 0001:0002A480 9744 0001:0002A49B 9745 0001:0002A4A7 + 9746 0001:0002A4D3 9749 0001:0002A4DC 9750 0001:0002A4EE 9751 0001:0002A4F6 + 9754 0001:0002A501 9753 0001:0002A520 9755 0001:0002A535 9757 0001:0002A540 + 9758 0001:0002A548 9759 0001:0002A55F 9760 0001:0002A57B 9763 0001:0002A580 + 9764 0001:0002A587 9765 0001:0002A590 9766 0001:0002A598 9769 0001:0002A59C + 9770 0001:0002A5A8 9774 0001:0002A5BF 9775 0001:0002A5DA 9777 0001:0002A5EC + 9778 0001:0002A5FA 9781 0001:0002A605 9782 0001:0002A60E 9785 0001:0002A614 + 9786 0001:0002A620 9787 0001:0002A62F 9790 0001:0002A634 9791 0001:0002A640 + 9792 0001:0002A64F 9795 0001:0002A654 9796 0001:0002A660 9797 0001:0002A66F + 9800 0001:0002A674 9801 0001:0002A680 9802 0001:0002A68F 9805 0001:0002A694 + 9806 0001:0002A6A0 9807 0001:0002A6BB 9808 0001:0002A6C9 9809 0001:0002A6D2 + 9812 0001:0002A6D8 9813 0001:0002A6E4 9814 0001:0002A6EC 9815 0001:0002A6FA + 9817 0001:0002A706 9818 0001:0002A711 9820 0001:0002A719 9823 0001:0002A720 + 9824 0001:0002A72E 9825 0001:0002A73D 9826 0001:0002A751 9827 0001:0002A75C + 9828 0001:0002A766 9829 0001:0002A76F 9830 0001:0002A77B 9831 0001:0002A788 + 9834 0001:0002A790 9835 0001:0002A79D 9836 0001:0002A7B0 9837 0001:0002A7BD + 9838 0001:0002A7C7 9839 0001:0002A7D2 9844 0001:0002A7D8 9847 0001:0002A7E3 + 9848 0001:0002A7F1 9850 0001:0002A813 9852 0001:0002A820 9853 0001:0002A82B + 9845 0001:0002A835 9855 0001:0002A83E 9860 0001:0002A848 9861 0001:0002A851 + 9863 0001:0002A85A 9864 0001:0002A862 9865 0001:0002A86B 9866 0001:0002A884 + 9865 0001:0002A89A 9868 0001:0002A89F 9871 0001:0002A8A4 9872 0001:0002A8B0 + 9874 0001:0002A8B9 9875 0001:0002A8C7 9877 0001:0002A8D3 9878 0001:0002A8DE + 9881 0001:0002A8E6 9884 0001:0002A8EC 9885 0001:0002A8F8 9886 0001:0002A903 + 9887 0001:0002A90E 9893 0001:0002A914 9894 0001:0002A924 9895 0001:0002A930 + 9896 0001:0002A93B 9898 0001:0002A944 9899 0001:0002A951 9901 0001:0002A957 + 9902 0001:0002A970 9903 0001:0002A973 9904 0001:0002A981 9899 0001:0002A98E + 9907 0001:0002A994 9913 0001:0002A99C 9914 0001:0002A9A9 9915 0001:0002A9AE + 9916 0001:0002A9B7 9917 0001:0002A9C6 9919 0001:0002A9F3 9921 0001:0002AA20 + 9924 0001:0002AA44 9925 0001:0002AA4D 9926 0001:0002AA54 9929 0001:0002AA58 + 9930 0001:0002AA64 9933 0001:0002AA6C 9934 0001:0002AA75 9935 0001:0002AA7D + 9938 0001:0002AA84 9939 0001:0002AA8D 9940 0001:0002AA96 9943 0001:0002AA9C + 9944 0001:0002AAA8 9945 0001:0002AAB6 9948 0001:0002AABC 9949 0001:0002AAC5 + 9950 0001:0002AAD1 9953 0001:0002AAD8 9954 0001:0002AAE7 9957 0001:0002AAEC + 9958 0001:0002AAF5 9959 0001:0002AAFD 9962 0001:0002AB04 9963 0001:0002AB10 + 9966 0001:0002AB14 9967 0001:0002AB1B 9968 0001:0002AB23 9971 0001:0002AB28 + 9972 0001:0002AB2F 9973 0001:0002AB37 9976 0001:0002AB3C 9977 0001:0002AB43 + 9978 0001:0002AB4B 9981 0001:0002AB50 9983 0001:0002AB57 9986 0001:0002AB5C + 9987 0001:0002AB68 9988 0001:0002AB73 9991 0001:0002AB78 9992 0001:0002AB84 + 9993 0001:0002AB8F 9997 0001:0002AB94 9998 0001:0002ABA4 10000 0001:0002ABD3 + 10001 0001:0002ABFA 10002 0001:0002AC0C 10003 0001:0002AC21 10006 0001:0002AC28 + 10007 0001:0002AC35 10008 0001:0002AC44 10011 0001:0002AC4C 10012 0001:0002AC58 + 10017 0001:0002AC5C 10018 0001:0002AC68 10019 0001:0002AC77 10021 0001:0002AC90 + 10022 0001:0002ACA1 10023 0001:0002ACB3 10019 0001:0002ACB6 10024 0001:0002ACBB + 10025 0001:0002ACC3 10028 0001:0002ACC8 10029 0001:0002ACD5 10031 0001:0002ACE9 + 10032 0001:0002ACFB 10033 0001:0002AD22 10034 0001:0002AD2B 10035 0001:0002AD45 + 10036 0001:0002AD59 10037 0001:0002AD63 10038 0001:0002AD6E 10040 0001:0002AD78 + 10043 0001:0002AD80 10044 0001:0002AD8C 10045 0001:0002AD9A 10048 0001:0002ADA0 + 10049 0001:0002ADA9 10050 0001:0002ADBE 10051 0001:0002ADD4 10052 0001:0002ADDE + 10055 0001:0002ADE4 10056 0001:0002ADF0 10057 0001:0002AE0C 10058 0001:0002AE20 + 10061 0001:0002AE24 10062 0001:0002AE2D 10063 0001:0002AE36 10064 0001:0002AE44 + 10065 0001:0002AE4C 10070 0001:0002AE50 10071 0001:0002AE5C 10073 0001:0002AE65 + 10074 0001:0002AE79 10076 0001:0002AE7F 10077 0001:0002AE8E 10078 0001:0002AE99 + 10079 0001:0002AEA8 10081 0001:0002AEB0 10082 0001:0002AEC1 10086 0001:0002AED5 + 10102 0001:0002AEDC 10103 0001:0002AEEB 10104 0001:0002AEF1 10105 0001:0002AEFB + 10106 0001:0002AF03 10107 0001:0002AF09 10108 0001:0002AF3E 10127 0001:0002AF44 + 10128 0001:0002AF53 10130 0001:0002AF5C 10131 0001:0002AF86 10132 0001:0002AF8C + 10134 0001:0002AFA3 10137 0001:0002AFA8 10138 0001:0002AFB4 10139 0001:0002AFC2 + 10140 0001:0002AFC8 10141 0001:0002AFD6 10144 0001:0002AFDC 10145 0001:0002AFE8 + 10146 0001:0002AFF6 10147 0001:0002AFFC 10148 0001:0002B00A 10172 0001:0002B010 + 10174 0001:0002B020 10175 0001:0002B029 10188 0001:0002B03F 10189 0001:0002B053 + 10198 0001:0002B058 10199 0001:0002B067 10204 0001:0002B070 10206 0001:0002B074 + 10209 0001:0002B07D 10210 0001:0002B096 10214 0001:0002B09F 10216 0001:0002B0B8 + 10219 0001:0002B0C0 10221 0001:0002B0C4 10222 0001:0002B0CD 10224 0001:0002B0D6 + 10228 0001:0002B0E8 10231 0001:0002B0F0 10233 0001:0002B0F4 10234 0001:0002B0FD + 10236 0001:0002B106 10240 0001:0002B118 10296 0001:0002B120 10297 0001:0002B129 + 10298 0001:0002B132 10371 0001:0002B138 10372 0001:0002B153 10373 0001:0002B15D + 10374 0001:0002B182 10377 0001:0002B188 10378 0001:0002B194 10381 0001:0002B198 + 10382 0001:0002B1A9 10383 0001:0002B1C0 10384 0001:0002B1DC 10387 0001:0002B1E0 + 10388 0001:0002B1E8 10389 0001:0002B201 10392 0001:0002B208 10393 0001:0002B215 + 10394 0001:0002B223 10395 0001:0002B238 10398 0001:0002B240 10399 0001:0002B24C + 10401 0001:0002B257 10402 0001:0002B26E 10403 0001:0002B277 10405 0001:0002B288 + 10408 0001:0002B28C 10409 0001:0002B295 10410 0001:0002B29C 10413 0001:0002B2A0 + 10414 0001:0002B2A7 10417 0001:0002B2AC 10418 0001:0002B2B5 10419 0001:0002B2C6 + 10424 0001:0002B2CC 10425 0001:0002B2E7 10426 0001:0002B2F4 10427 0001:0002B321 + 10430 0001:0002B328 10431 0001:0002B339 10432 0001:0002B347 10433 0001:0002B350 + 10435 0001:0002B360 10434 0001:0002B375 10436 0001:0002B381 10437 0001:0002B39A + 10440 0001:0002B3A0 10441 0001:0002B3AC 10442 0001:0002B3B3 10445 0001:0002B3B8 + 10446 0001:0002B3C4 10450 0001:0002B3C8 10451 0001:0002B3D7 10452 0001:0002B3E5 + 10453 0001:0002B3F6 10454 0001:0002B3FE 10457 0001:0002B404 10458 0001:0002B410 + 10461 0001:0002B414 10462 0001:0002B41E 10464 0001:0002B428 10465 0001:0002B434 + 10467 0001:0002B43A 10468 0001:0002B441 10471 0001:0002B448 10472 0001:0002B452 + 10474 0001:0002B45C 10475 0001:0002B468 10477 0001:0002B46E 10478 0001:0002B475 + 10483 0001:0002B47C 10484 0001:0002B485 10487 0001:0002B49B 10488 0001:0002B4B4 + 10487 0001:0002B4D0 10489 0001:0002B4D5 10490 0001:0002B4E4 10492 0001:0002B4EC + 10495 0001:0002B4F4 10496 0001:0002B4FC 10497 0001:0002B512 10500 0001:0002B518 + 10501 0001:0002B524 10502 0001:0002B52D 10503 0001:0002B53B 10508 0001:0002B540 + 10509 0001:0002B54C 10510 0001:0002B565 10512 0001:0002B578 10513 0001:0002B580 + 10514 0001:0002B58E 10515 0001:0002B590 10509 0001:0002B593 10516 0001:0002B598 + 10519 0001:0002B59C 10520 0001:0002B5A8 10522 0001:0002B5B3 10523 0001:0002B5BC + 10524 0001:0002B5CA 10525 0001:0002B5D3 10526 0001:0002B5DC 10528 0001:0002B5EA + 10534 0001:0002B5F0 10535 0001:0002B60B 10536 0001:0002B615 10537 0001:0002B61E + 10538 0001:0002B642 10541 0001:0002B648 10542 0001:0002B659 10544 0001:0002B662 + 10545 0001:0002B66D 10547 0001:0002B675 10548 0001:0002B691 10553 0001:0002B698 + 10554 0001:0002B6A1 10555 0001:0002B6AF 10557 0001:0002B6B5 10558 0001:0002B6BC + 10560 0001:0002B6C6 10561 0001:0002B6DA 10562 0001:0002B6E8 10564 0001:0002B6FC + 10566 0001:0002B70B 10571 0001:0002B714 10572 0001:0002B71D 10573 0001:0002B72B + 10575 0001:0002B731 10576 0001:0002B738 10578 0001:0002B742 10579 0001:0002B756 + 10580 0001:0002B764 10582 0001:0002B778 10584 0001:0002B787 10590 0001:0002B790 + 10591 0001:0002B799 10592 0001:0002B7A7 10594 0001:0002B7B3 10595 0001:0002B7BA + 10597 0001:0002B7C4 10598 0001:0002B7DD 10599 0001:0002B7F2 10601 0001:0002B806 + 10603 0001:0002B815 10606 0001:0002B820 10607 0001:0002B827 10608 0001:0002B835 + 10609 0001:0002B846 10610 0001:0002B85A 10612 0001:0002B863 10614 0001:0002B877 + 10616 0001:0002B886 10626 0001:0002B890 10627 0001:0002B8AF 10628 0001:0002B8B4 + 10629 0001:0002B8C2 10630 0001:0002B8D0 10631 0001:0002B8DE 10632 0001:0002B8F1 + 10634 0001:0002B8FA 10635 0001:0002B900 10636 0001:0002B90B 10639 0001:0002B91E + 10640 0001:0002B931 10642 0001:0002B93A 10643 0001:0002B940 10645 0001:0002B94A + 10646 0001:0002B960 10647 0001:0002B974 10648 0001:0002B98C 10649 0001:0002B996 + 10650 0001:0002B9A4 10651 0001:0002B9BC 10652 0001:0002B9C8 10653 0001:0002B9DD + 10654 0001:0002B9F5 10655 0001:0002B9FB 10643 0001:0002BA05 10637 0001:0002BA0F + 10659 0001:0002BA34 10660 0001:0002BA3C 10661 0001:0002BA51 10664 0001:0002BA7D + 10666 0001:0002BAA9 10669 0001:0002BAB4 10670 0001:0002BAB8 10671 0001:0002BAC0 + 10674 0001:0002BAC8 10675 0001:0002BACC 10676 0001:0002BAD6 10680 0001:0002BADC + 10681 0001:0002BAE0 10682 0001:0002BAEA 10686 0001:0002BAF0 10687 0001:0002BAF4 + 10688 0001:0002BAFE 10691 0001:0002BB04 10692 0001:0002BB0B 10693 0001:0002BB10 + 10694 0001:0002BB1E 10697 0001:0002BB25 10698 0001:0002BB2F 10699 0001:0002BB42 + 10700 0001:0002BB4A 10701 0001:0002BB52 10702 0001:0002BB5A 10703 0001:0002BB62 + 10704 0001:0002BB6A 10705 0001:0002BB72 10708 0001:0002BB8B 10710 0001:0002BB9A + 10713 0001:0002BBA4 10714 0001:0002BBB3 10715 0001:0002BBBD 10720 0001:0002BBC4 + 10721 0001:0002BBCA 10722 0001:0002BBD7 10723 0001:0002BBE5 10724 0001:0002BBFB + 10723 0001:0002BC0E 10726 0001:0002BC20 10728 0001:0002BC32 10729 0001:0002BC3C + 10732 0001:0002BC40 10733 0001:0002BC47 10734 0001:0002BC4F 10739 0001:0002BC54 + 10740 0001:0002BC89 10741 0001:0002BC93 10742 0001:0002BCA1 10743 0001:0002BCB0 + 10745 0001:0002BCC9 10746 0001:0002BCDB 10747 0001:0002BD25 10750 0001:0002BD43 + 10752 0001:0002BD90 10755 0001:0002BD98 10756 0001:0002BD9F 10757 0001:0002BDB0 + 10760 0001:0002BDB4 10761 0001:0002BDCF 10763 0001:0002BDDC 10764 0001:0002BDEC + 10765 0001:0002BE16 10768 0001:0002BE1C 10769 0001:0002BE23 10770 0001:0002BE2D + 10771 0001:0002BE35 10772 0001:0002BE3F 10773 0001:0002BE50 10776 0001:0002BE54 + 10777 0001:0002BE65 10778 0001:0002BE78 10779 0001:0002BE86 10780 0001:0002BE97 + 10781 0001:0002BEA1 10782 0001:0002BEB0 10784 0001:0002BECB 10786 0001:0002BEEB + 10789 0001:0002BEF0 10790 0001:0002BEFA 10791 0001:0002BF04 10792 0001:0002BF12 + 10794 0001:0002BF2D 10795 0001:0002BF3D 10797 0001:0002BF47 10800 0001:0002BF50 + 10801 0001:0002BF5A 10802 0001:0002BF64 10803 0001:0002BF72 10805 0001:0002BF8D + 10806 0001:0002BF97 10808 0001:0002BFAB 10815 0001:0002BFB4 10816 0001:0002BFB8 + 10817 0001:0002BFBC 10818 0001:0002BFDE 10821 0001:0002BFE4 10822 0001:0002BFE8 + 10823 0001:0002BFF1 10824 0001:0002C009 10825 0001:0002C01A 10828 0001:0002C020 + 10829 0001:0002C024 10830 0001:0002C02D 10831 0001:0002C045 10832 0001:0002C056 + 10835 0001:0002C05C 10836 0001:0002C060 10837 0001:0002C064 10838 0001:0002C086 + 10840 0001:0002C08C 10841 0001:0002C099 10842 0001:0002C0A4 10843 0001:0002C0AD + 10844 0001:0002C0D5 10846 0001:0002C0FD 10848 0001:0002C125 10849 0001:0002C14D + 10855 0001:0002C1A8 10856 0001:0002C1B5 10857 0001:0002C1C6 10858 0001:0002C1CE + 10860 0001:0002C1E6 10861 0001:0002C1F4 10862 0001:0002C20D 10858 0001:0002C210 + 10863 0001:0002C215 10866 0001:0002C21C 10867 0001:0002C225 10869 0001:0002C22F + 10870 0001:0002C23E 10873 0001:0002C244 10874 0001:0002C24B 10877 0001:0002C250 + 10878 0001:0002C25C 10879 0001:0002C269 10880 0001:0002C274 10883 0001:0002C278 + 10884 0001:0002C284 10885 0001:0002C292 10888 0001:0002C298 10889 0001:0002C2A4 + 10890 0001:0002C2B2 10893 0001:0002C2B8 10894 0001:0002C2C4 10895 0001:0002C2D2 + 10898 0001:0002C2D8 10899 0001:0002C2E4 10900 0001:0002C2F2 10903 0001:0002C2F8 + 10904 0001:0002C304 10905 0001:0002C312 10908 0001:0002C318 10909 0001:0002C324 + 10910 0001:0002C332 10913 0001:0002C338 10914 0001:0002C344 10915 0001:0002C352 + 10918 0001:0002C358 10919 0001:0002C364 10920 0001:0002C372 10958 0001:0002C378 + 10959 0001:0002C37B 10960 0001:0002C37D 10961 0001:0002C37E 10962 0001:0002C381 + 10963 0001:0002C384 10964 0001:0002C387 10965 0001:0002C389 10966 0001:0002C38C + 10967 0001:0002C38E 10968 0001:0002C391 10969 0001:0002C392 10974 0001:0002C398 + 10975 0001:0002C3A4 10976 0001:0002C3B5 10987 0001:0002C3BC 10988 0001:0002C3C2 + 10990 0001:0002C3CF 10991 0001:0002C3E5 10992 0001:0002C3EF 10993 0001:0002C404 + 10994 0001:0002C41A 10996 0001:0002C423 10997 0001:0002C429 10998 0001:0002C43D + 10999 0001:0002C448 11000 0001:0002C450 11001 0001:0002C454 11002 0001:0002C461 + 11004 0001:0002C469 11005 0001:0002C471 11006 0001:0002C479 11007 0001:0002C484 + 11008 0001:0002C496 11013 0001:0002C49C 11014 0001:0002C4A3 11016 0001:0002C4A9 + 11017 0001:0002C4B5 11019 0001:0002C4BD 11038 0001:0002C4D0 11039 0001:0002C4D6 + 11043 0001:0002C4E0 11045 0001:0002C4FE 11047 0001:0002C50E 11048 0001:0002C514 + 11049 0001:0002C525 11051 0001:0002C52F 11053 0001:0002C560 11054 0001:0002C567 + 11055 0001:0002C581 11060 0001:0002C58C 11061 0001:0002C595 11062 0001:0002C5A3 + 11063 0001:0002C5AC 11064 0001:0002C5BE 11090 0001:0002C5C4 11091 0001:0002C5E7 + 11092 0001:0002C5F1 11093 0001:0002C5F6 11094 0001:0002C5FF 11095 0001:0002C609 + 11096 0001:0002C619 11097 0001:0002C623 11098 0001:0002C62D 11099 0001:0002C637 + 11100 0001:0002C641 11101 0001:0002C646 11103 0001:0002C66F 11076 0001:0002C674 + 11077 0001:0002C68E 11078 0001:0002C693 11080 0001:0002C69D 11085 0001:0002C6BC + 11086 0001:0002C6CD 11087 0001:0002C6DE 11089 0001:0002C704 + +Line numbers for Consts(Consts.pas) segment .text + + 309 0001:0002CA88 309 0001:0002CA8F + +Line numbers for Graphics(Graphics.pas) segment .text + + 562 0001:0002D3E0 659 0001:0002D53C 1063 0001:0002DB10 1064 0001:0002DB17 + 1065 0001:0002DB28 1066 0001:0002DB31 1096 0001:0002DB94 1097 0001:0002DB96 + 1098 0001:0002DB98 1099 0001:0002DB9A 1100 0001:0002DB9E 1101 0001:0002DBA0 + 1102 0001:0002DBA1 1103 0001:0002DBA2 1104 0001:0002DBA4 1107 0001:0002DBA8 + 1108 0001:0002DBC4 1109 0001:0002DBCF 1110 0001:0002DBF6 1113 0001:0002DBFC + 1114 0001:0002DC0D 1115 0001:0002DC27 1118 0001:0002DC2C 1119 0001:0002DC33 + 1120 0001:0002DC3F 1123 0001:0002DC44 1124 0001:0002DC4B 1125 0001:0002DC57 + 1130 0001:0002DC5C 1131 0001:0002DC68 1132 0001:0002DC7B 1133 0001:0002DC83 + 1134 0001:0002DC91 1137 0001:0002DC9C 1135 0001:0002DCA4 1138 0001:0002DCD0 + 1140 0001:0002DCD6 1141 0001:0002DCE8 1143 0001:0002DCEE 1144 0001:0002DCF9 + 1145 0001:0002DD01 1146 0001:0002DD0C 1147 0001:0002DD17 1149 0001:0002DD2C + 1151 0001:0002DD35 1153 0001:0002DD48 1155 0001:0002DD5B 1161 0001:0002DD60 + 1162 0001:0002DD6C 1163 0001:0002DD76 1165 0001:0002DD7C 1166 0001:0002DD84 + 1167 0001:0002DD92 1168 0001:0002DD98 1169 0001:0002DDA3 1171 0001:0002DDA9 + 1172 0001:0002DDB4 1175 0001:0002DDC1 1176 0001:0002DDCC 1177 0001:0002DDDE + 1181 0001:0002DDF5 1183 0001:0002DE05 1185 0001:0002DE0B 1186 0001:0002DE20 + 1189 0001:0002DE28 1195 0001:0002DE2C 1196 0001:0002DE3C 1197 0001:0002DE44 + 1198 0001:0002DE52 1199 0001:0002DE5B 1200 0001:0002DE6C 1201 0001:0002DE83 + 1203 0001:0002DE9B 1205 0001:0002DEAB 1211 0001:0002DEB0 1212 0001:0002DEC0 + 1213 0001:0002DEC8 1214 0001:0002DED6 1215 0001:0002DEDF 1217 0001:0002DEE7 + 1218 0001:0002DEED 1219 0001:0002DEF6 1220 0001:0002DF02 1223 0001:0002DF1A + 1225 0001:0002DF2A 1235 0001:0002DF30 1236 0001:0002DF39 1237 0001:0002DF41 + 1238 0001:0002DF4F 1239 0001:0002DF58 1241 0001:0002DF5E 1243 0001:0002DF64 + 1245 0001:0002DF76 1246 0001:0002DF82 1248 0001:0002DF8A 1239 0001:0002DF92 + 1251 0001:0002DFA5 1253 0001:0002DFB5 1257 0001:0002DFBC 1259 0001:0002DFC2 + 1260 0001:0002DFC7 1261 0001:0002DFD4 1264 0001:0002DFE4 1266 0001:0002DFF2 + 1267 0001:0002DFFA 1268 0001:0002DFFD 1262 0001:0002E005 1271 0001:0002E010 + 1272 0001:0002E01C 1274 0001:0002E035 1275 0001:0002E048 1274 0001:0002E05B + 1276 0001:0002E060 1278 0001:0002E072 1341 0001:0002E4B8 1342 0001:0002E4C1 + 1343 0001:0002E4C7 1344 0001:0002E4DA 1345 0001:0002E4E3 1354 0001:0002E4E8 + 1355 0001:0002E4F1 1356 0001:0002E500 1357 0001:0002E50E 1367 0001:0002E514 + 1368 0001:0002E520 1369 0001:0002E538 1372 0001:0002E53C 1373 0001:0002E548 + 1374 0001:0002E560 1379 0001:0002E564 1380 0001:0002E56C 1381 0001:0002E582 + 1384 0001:0002E588 1385 0001:0002E58F 1386 0001:0002E5A4 1389 0001:0002E5A8 + 1390 0001:0002E5AF 1391 0001:0002E5C4 1429 0001:0002E77C 1430 0001:0002E788 + 1431 0001:0002E7A0 1434 0001:0002E7A4 1435 0001:0002E7B0 1436 0001:0002E7C8 + 1441 0001:0002E7CC 1442 0001:0002E7DA 1443 0001:0002E7EB 1445 0001:0002E7F5 + 1448 0001:0002E80C 1449 0001:0002E815 1450 0001:0002E81E 1451 0001:0002E825 + 1452 0001:0002E82B 1453 0001:0002E832 1454 0001:0002E838 1455 0001:0002E83F + 1456 0001:0002E845 1457 0001:0002E84C 1458 0001:0002E855 1459 0001:0002E875 + 1460 0001:0002E882 1461 0001:0002E88B 1463 0001:0002E894 1465 0001:0002E89B + 1468 0001:0002E8A3 1471 0001:0002E8AC 1472 0001:0002E8C4 1473 0001:0002E8CB + 1474 0001:0002E8E0 1475 0001:0002E8EA 1476 0001:0002E911 1479 0001:0002E918 + 1480 0001:0002E929 1481 0001:0002E947 1484 0001:0002E94C 1485 0001:0002E953 + 1486 0001:0002E95B 1487 0001:0002E96F 1490 0001:0002E974 1491 0001:0002E980 + 1493 0001:0002E996 1494 0001:0002E99E 1495 0001:0002E9AC 1496 0001:0002E9B4 + 1497 0001:0002E9C2 1498 0001:0002E9D5 1499 0001:0002E9E3 1500 0001:0002E9F1 + 1502 0001:0002EA10 1505 0001:0002EA2D 1509 0001:0002EA3D 1510 0001:0002EA48 + 1513 0001:0002EA4C 1514 0001:0002EA5A 1515 0001:0002EA6F 1516 0001:0002EA76 + 1519 0001:0002EA7C 1520 0001:0002EA88 1521 0001:0002EA90 1522 0001:0002EA9E + 1524 0001:0002EABB 1526 0001:0002EACB 1529 0001:0002EAD0 1530 0001:0002EADD + 1532 0001:0002EAE8 1533 0001:0002EAF1 1535 0001:0002EAFD 1540 0001:0002EB04 + 1541 0001:0002EB26 1543 0001:0002EB2F 1545 0001:0002EB3C 1546 0001:0002EB46 + 1548 0001:0002EB54 1550 0001:0002EB61 1551 0001:0002EB6A 1552 0001:0002EB6F + 1553 0001:0002EB74 1554 0001:0002EB79 1555 0001:0002EB82 1557 0001:0002EB8B + 1558 0001:0002EB92 1559 0001:0002EB9F 1560 0001:0002EBAC 1561 0001:0002EBB9 + 1562 0001:0002EBC2 1563 0001:0002EBE1 1565 0001:0002EBFB 1566 0001:0002EC14 + 1568 0001:0002EC18 1569 0001:0002EC1C 1570 0001:0002EC20 1571 0001:0002EC32 + 1572 0001:0002EC38 1574 0001:0002EC3E 1576 0001:0002EC42 1579 0001:0002EC5E + 1582 0001:0002EC70 1584 0001:0002EC9E 1587 0001:0002ECB4 1588 0001:0002ECC0 + 1589 0001:0002ECD6 1592 0001:0002ECDC 1593 0001:0002ECE5 1594 0001:0002ECF4 + 1599 0001:0002ECF8 1600 0001:0002ED04 1601 0001:0002ED0F 1602 0001:0002ED15 + 1603 0001:0002ED20 1606 0001:0002ED24 1607 0001:0002ED30 1608 0001:0002ED41 + 1613 0001:0002ED48 1614 0001:0002ED57 1616 0001:0002ED5D 1617 0001:0002ED68 + 1618 0001:0002ED77 1619 0001:0002ED9A 1621 0001:0002EDA5 1624 0001:0002EDAC + 1625 0001:0002EDB5 1626 0001:0002EDD4 1629 0001:0002EDD8 1630 0001:0002EDE4 + 1631 0001:0002EE02 1634 0001:0002EE08 1635 0001:0002EE11 1636 0001:0002EE20 + 1641 0001:0002EE24 1642 0001:0002EE30 1643 0001:0002EE3B 1644 0001:0002EE41 + 1645 0001:0002EE4C 1648 0001:0002EE50 1649 0001:0002EE59 1650 0001:0002EE68 + 1655 0001:0002EE6C 1656 0001:0002EE78 1657 0001:0002EE83 1658 0001:0002EE89 + 1659 0001:0002EE94 1662 0001:0002EE98 1663 0001:0002EEA1 1664 0001:0002EEB0 + 1669 0001:0002EEB4 1670 0001:0002EEC0 1671 0001:0002EECB 1672 0001:0002EED1 + 1673 0001:0002EEDC 1685 0001:0002EEE0 1686 0001:0002EEF8 1687 0001:0002EF0D + 1688 0001:0002EF2F 1691 0001:0002EF34 1692 0001:0002EF45 1693 0001:0002EF63 + 1696 0001:0002EF68 1697 0001:0002EF74 1699 0001:0002EF8A 1700 0001:0002EF92 + 1701 0001:0002EFA0 1702 0001:0002EFA8 1703 0001:0002EFB6 1704 0001:0002EFC9 + 1706 0001:0002EFE4 1709 0001:0002F001 1713 0001:0002F011 1714 0001:0002F01C + 1717 0001:0002F020 1718 0001:0002F02E 1719 0001:0002F040 1720 0001:0002F047 + 1723 0001:0002F050 1724 0001:0002F05C 1725 0001:0002F064 1726 0001:0002F072 + 1728 0001:0002F08F 1730 0001:0002F09F 1733 0001:0002F0A4 1734 0001:0002F0AD + 1735 0001:0002F0BC 1740 0001:0002F0C0 1741 0001:0002F0CC 1742 0001:0002F0D7 + 1743 0001:0002F0DD 1744 0001:0002F0E8 1753 0001:0002F0EC 1754 0001:0002F0F5 + 1756 0001:0002F0FE 1758 0001:0002F107 1759 0001:0002F111 1761 0001:0002F11F + 1763 0001:0002F128 1764 0001:0002F13A 1765 0001:0002F143 1766 0001:0002F151 + 1769 0001:0002F16D 1772 0001:0002F17F 1774 0001:0002F18B 1779 0001:0002F190 + 1780 0001:0002F19E 1781 0001:0002F1AA 1782 0001:0002F1B0 1783 0001:0002F1BB + 1786 0001:0002F1C4 1787 0001:0002F1D1 1789 0001:0002F1DC 1790 0001:0002F1E5 + 1792 0001:0002F1F1 1795 0001:0002F1F8 1796 0001:0002F201 1797 0001:0002F210 + 1802 0001:0002F214 1803 0001:0002F220 1804 0001:0002F22B 1805 0001:0002F231 + 1806 0001:0002F23C 1809 0001:0002F240 1810 0001:0002F249 1811 0001:0002F258 + 1816 0001:0002F25C 1817 0001:0002F268 1819 0001:0002F26E 1820 0001:0002F279 + 1821 0001:0002F27F 1823 0001:0002F28A 1835 0001:0002F290 1836 0001:0002F2A8 + 1837 0001:0002F2D8 1840 0001:0002F2DC 1841 0001:0002F2ED 1842 0001:0002F30B + 1845 0001:0002F310 1846 0001:0002F31C 1848 0001:0002F32E 1849 0001:0002F336 + 1850 0001:0002F344 1851 0001:0002F34C 1852 0001:0002F35A 1854 0001:0002F37A + 1857 0001:0002F397 1861 0001:0002F3A7 1862 0001:0002F3B2 1865 0001:0002F3B8 + 1866 0001:0002F3C6 1867 0001:0002F3D8 1868 0001:0002F3DF 1869 0001:0002F3E7 + 1872 0001:0002F3F0 1873 0001:0002F3FC 1874 0001:0002F404 1875 0001:0002F412 + 1877 0001:0002F42F 1879 0001:0002F43F 1882 0001:0002F444 1883 0001:0002F44D + 1884 0001:0002F45C 1889 0001:0002F460 1890 0001:0002F46E 1891 0001:0002F47A + 1892 0001:0002F480 1893 0001:0002F48B 1896 0001:0002F494 1897 0001:0002F49D + 1898 0001:0002F4AC 1903 0001:0002F4B0 1904 0001:0002F4BC 1905 0001:0002F4C7 + 1906 0001:0002F4CD 1907 0001:0002F4D7 1908 0001:0002F4E2 1913 0001:0002F4E8 + 1914 0001:0002F4F1 1916 0001:0002F4FA 1918 0001:0002F507 1919 0001:0002F511 + 1920 0001:0002F51F 1924 0001:0002F52C 1926 0001:0002F535 1927 0001:0002F53C + 1928 0001:0002F549 1931 0001:0002F559 1932 0001:0002F55E 1933 0001:0002F56C + 1934 0001:0002F573 1936 0001:0002F57C 1937 0001:0002F583 1940 0001:0002F590 + 1942 0001:0002F59E 1945 0001:0002F5BA 1948 0001:0002F5CC 1950 0001:0002F5D8 + 1962 0001:0002F5DC 1963 0001:0002F5E5 1964 0001:0002F5F4 1969 0001:0002F5F8 + 1970 0001:0002F604 1971 0001:0002F60F 1972 0001:0002F615 1973 0001:0002F622 + 1974 0001:0002F62D 2000 0001:0002F634 2001 0001:0002F64C 2002 0001:0002F656 + 2003 0001:0002F662 2004 0001:0002F674 2005 0001:0002F687 2006 0001:0002F696 + 2007 0001:0002F6A8 2008 0001:0002F6BB 2009 0001:0002F6CA 2010 0001:0002F6DC + 2011 0001:0002F6EF 2012 0001:0002F6FE 2013 0001:0002F708 2014 0001:0002F714 + 2015 0001:0002F73C 2018 0001:0002F744 2019 0001:0002F755 2020 0001:0002F762 + 2021 0001:0002F76C 2022 0001:0002F777 2023 0001:0002F782 2024 0001:0002F78D + 2025 0001:0002F799 2026 0001:0002F7B5 2046 0001:0002F7BC 2047 0001:0002F7CB + 2048 0001:0002F7D5 2049 0001:0002F7DD 2050 0001:0002F7EB 2051 0001:0002F7F3 + 2052 0001:0002F801 2053 0001:0002F80E 2054 0001:0002F81C 2055 0001:0002F82A + 2056 0001:0002F839 2057 0001:0002F847 2059 0001:0002F856 2061 0001:0002F863 + 2062 0001:0002F868 2063 0001:0002F873 2064 0001:0002F87D 2068 0001:0002F88F + 2069 0001:0002F89E 2071 0001:0002F8A9 2072 0001:0002F8B4 2073 0001:0002F8C7 + 2074 0001:0002F8D5 2077 0001:0002F8DA 2078 0001:0002F8E8 2080 0001:0002F8FB + 2082 0001:0002F90A 2089 0001:0002F95F 2090 0001:0002F9A6 2091 0001:0002F9B7 + 2092 0001:0002F9CB 2094 0001:0002FA0A 2095 0001:0002FA1A 2098 0001:0002FA37 + 2101 0001:0002FA47 2102 0001:0002FA5A 2106 0001:0002FA78 2108 0001:0002FA8D + 2110 0001:0002FAA2 2112 0001:0002FAB2 2124 0001:0002FAC0 2125 0001:0002FACF + 2126 0001:0002FAD7 2127 0001:0002FAE5 2128 0001:0002FAF3 2131 0001:0002FB59 + 2132 0001:0002FB61 2135 0001:0002FB70 2136 0001:0002FB80 2138 0001:0002FB9A + 2139 0001:0002FBA2 2140 0001:0002FBB0 2141 0001:0002FBCD 2142 0001:0002FBE8 + 2143 0001:0002FC1E 2145 0001:0002FC26 2148 0001:0002FC34 2149 0001:0002FC40 + 2150 0001:0002FC48 2151 0001:0002FC56 2152 0001:0002FC66 2153 0001:0002FC6E + 2156 0001:0002FC78 2157 0001:0002FC87 2158 0001:0002FC8F 2159 0001:0002FC9D + 2160 0001:0002FCB9 2161 0001:0002FCC1 2169 0001:0002FCCC 2170 0001:0002FCD8 + 2171 0001:0002FCE0 2172 0001:0002FCEE 2173 0001:0002FD0A 2174 0001:0002FD12 + 2189 0001:0002FD1C 2190 0001:0002FD28 2191 0001:0002FD30 2192 0001:0002FD3E + 2193 0001:0002FD5A 2194 0001:0002FD62 2202 0001:0002FD6C 2203 0001:0002FD7B + 2204 0001:0002FD83 2205 0001:0002FD91 2206 0001:0002FDA5 2207 0001:0002FDAD + 2210 0001:0002FDB8 2211 0001:0002FDBF 2212 0001:0002FDC9 2213 0001:0002FDCF + 2214 0001:0002FDD9 2215 0001:0002FDE5 2218 0001:0002FDE8 2219 0001:0002FDF7 + 2220 0001:0002FE05 2221 0001:0002FE1B 2224 0001:0002FE24 2225 0001:0002FE33 + 2226 0001:0002FE3B 2227 0001:0002FE49 2228 0001:0002FE75 2229 0001:0002FE7D + 2244 0001:0002FE88 2245 0001:0002FE97 2246 0001:0002FE9F 2247 0001:0002FEAD + 2248 0001:0002FEC2 2249 0001:0002FECA 2268 0001:0002FED4 2269 0001:0002FEE3 + 2270 0001:0002FEEB 2271 0001:0002FEF9 2272 0001:0002FF15 2273 0001:0002FF1D + 2281 0001:0002FF28 2282 0001:0002FF2F 2283 0001:0002FF37 2286 0001:0002FF3C + 2287 0001:0002FF4B 2288 0001:0002FF53 2289 0001:0002FF61 2290 0001:0002FF85 + 2291 0001:0002FF8D 2294 0001:0002FF98 2295 0001:0002FFA8 2297 0001:0002FFAE + 2298 0001:0002FFB6 2299 0001:0002FFC4 2300 0001:0002FFD2 2302 0001:0002FFDA + 2307 0001:0002FFE4 2308 0001:0002FFED 2309 0001:0002FFF1 2311 0001:0002FFFA + 2312 0001:0003000C 2314 0001:00030019 2317 0001:00030020 2318 0001:0003002F + 2319 0001:00030037 2320 0001:00030045 2321 0001:00030060 2323 0001:00030091 + 2324 0001:000300AC 2325 0001:000300B4 2330 0001:000300C0 2331 0001:000300D7 + 2332 0001:000300DF 2333 0001:000300ED 2334 0001:000300F9 2335 0001:00030108 + 2336 0001:0003010C 2337 0001:00030121 2338 0001:00030130 2340 0001:00030160 + 2341 0001:00030168 2344 0001:00030174 2345 0001:00030183 2346 0001:00030191 + 2347 0001:00030198 2348 0001:000301A0 2349 0001:000301C2 2352 0001:000301CC + 2353 0001:000301D8 2354 0001:000301EF 2357 0001:000301F4 2358 0001:00030200 + 2359 0001:00030217 2362 0001:0003021C 2363 0001:00030225 2364 0001:0003022F + 2365 0001:0003023D 2366 0001:00030248 2368 0001:00030263 2370 0001:00030278 + 2373 0001:0003027C 2374 0001:00030283 2375 0001:0003028F 2376 0001:00030299 + 2377 0001:0003029F 2378 0001:000302A9 2381 0001:000302AC 2382 0001:000302B8 + 2383 0001:000302C6 2386 0001:000302CC 2387 0001:000302D8 2388 0001:000302E6 + 2391 0001:000302EC 2392 0001:000302F8 2393 0001:00030306 2396 0001:0003030C + 2397 0001:00030318 2398 0001:00030326 2399 0001:00030336 2402 0001:00030340 + 2403 0001:00030352 2404 0001:00030360 2407 0001:00030368 2408 0001:00030377 + 2409 0001:00030385 2410 0001:0003039F 2413 0001:000303A8 2414 0001:000303B7 + 2415 0001:000303BF 2416 0001:000303CD 2417 0001:000303EA 2418 0001:000303F2 + 2421 0001:000303FC 2422 0001:00030408 2423 0001:00030416 2424 0001:00030426 + 2427 0001:00030430 2428 0001:00030439 2429 0001:00030441 2430 0001:0003044F + 2431 0001:0003045B 2434 0001:00030464 2435 0001:0003046B 2437 0001:0003048B + 2438 0001:0003049D 2439 0001:000304AF 2440 0001:000304C1 2442 0001:000304D4 + 2445 0001:000304DC 2446 0001:000304E3 2449 0001:000304E8 2450 0001:000304F4 + 2452 0001:000304FF 2454 0001:00030508 2455 0001:00030510 2456 0001:0003052A + 2457 0001:00030532 2459 0001:00030539 2461 0001:0003053F 2462 0001:00030546 + 2463 0001:0003054F 2466 0001:0003055D 2471 0001:00030564 2472 0001:00030570 + 2473 0001:0003057E 2475 0001:00030588 2477 0001:0003058E 2478 0001:00030596 + 2479 0001:0003059F 2481 0001:000305B6 2482 0001:000305C4 2483 0001:000305D2 + 2484 0001:000305E0 2486 0001:000305EF 2489 0001:000305F8 2490 0001:00030600 + 2491 0001:00030616 2494 0001:0003061C 2495 0001:00030624 2496 0001:0003063A + 2499 0001:00030640 2500 0001:00030647 2501 0001:0003065F 2502 0001:0003067A + 2510 0001:00030680 2511 0001:00030687 2512 0001:0003069F 2513 0001:000306BE + 2516 0001:000306C4 2517 0001:000306CB 2518 0001:000306DC 2519 0001:000306F4 + 2521 0001:00030703 2522 0001:00030720 2528 0001:00030731 2529 0001:00030750 + 2531 0001:0003075E 2534 0001:00030764 2535 0001:00030770 2537 0001:00030779 + 2538 0001:00030780 2540 0001:00030792 2543 0001:00030798 2544 0001:000307A4 + 2546 0001:000307AD 2547 0001:000307B4 2549 0001:000307C6 2552 0001:000307CC + 2553 0001:000307D8 2555 0001:000307E1 2556 0001:000307E8 2558 0001:000307FA + 2582 0001:00030800 2583 0001:00030807 2584 0001:0003081B 2587 0001:00030820 + 2588 0001:00030827 2589 0001:0003083B 2593 0001:00030840 2594 0001:0003084A + 2598 0001:0003084C 2599 0001:00030856 2603 0001:00030858 2604 0001:00030862 + 2607 0001:00030864 2608 0001:00030877 2609 0001:000308B5 2615 0001:000308B8 + 2616 0001:000308D7 2617 0001:000308DF 2619 0001:0003090C 2621 0001:0003093B + 2622 0001:00030960 2625 0001:00030964 2626 0001:0003096D 2627 0001:00030978 + 2628 0001:00030981 2635 0001:00030988 2636 0001:0003099D 2637 0001:000309A7 + 2639 0001:000309B1 2640 0001:000309BF 2641 0001:000309CE 2642 0001:000309D4 + 2645 0001:000309EC 2646 0001:000309F6 2647 0001:00030A01 2648 0001:00030A0F + 2649 0001:00030A23 2651 0001:00030A3B 2655 0001:00030A4E 2657 0001:00030A54 + 2658 0001:00030A64 2660 0001:00030A74 2662 0001:00030A9E 2663 0001:00030AB1 + 2666 0001:00030AD1 2667 0001:00030ADA 2669 0001:00030AEE 2672 0001:00030AF4 + 2673 0001:00030AFE 2674 0001:00030B13 2676 0001:00030B23 2678 0001:00030B2B + 2681 0001:00030B30 2682 0001:00030B3F 2683 0001:00030B42 2684 0001:00030B55 + 2685 0001:00030B68 2698 0001:00030B6C 2699 0001:00030B7B 2700 0001:00030B7F + 2702 0001:00030BA5 2703 0001:00030BBA 2704 0001:00030BCA 2706 0001:00030BD8 + 2708 0001:00030C26 2709 0001:00030C36 2713 0001:00030C47 2714 0001:00030C4C + 2715 0001:00030C5B 2716 0001:00030C69 2717 0001:00030C82 2718 0001:00030C92 + 2719 0001:00030CA6 2720 0001:00030CB5 2721 0001:00030CBB 2723 0001:00030CCF + 2724 0001:00030CE3 2726 0001:00030CEC 2727 0001:00030D1A 2728 0001:00030D48 + 2729 0001:00030D56 2730 0001:00030D67 2731 0001:00030D99 2732 0001:00030DC7 + 2733 0001:00030DD4 2735 0001:00030DE1 2736 0001:00030DF4 2738 0001:00030E0A + 2739 0001:00030E1F 2741 0001:00030E33 2756 0001:00030E3C 2757 0001:00030E45 + 2758 0001:00030E4B 2759 0001:00030E51 2760 0001:00030E58 2762 0001:00030E73 + 2763 0001:00030E7F 2764 0001:00030E8B 2765 0001:00030E95 2766 0001:00030E9C + 2759 0001:00030E9F 2767 0001:00030EA5 2768 0001:00030EAC 2776 0001:00030EB0 + 2777 0001:00030EBC 2778 0001:00030EC2 2779 0001:00030EC8 2780 0001:00030EDC + 2782 0001:00030EF7 2783 0001:00030F03 2784 0001:00030F0F 2785 0001:00030F19 + 2779 0001:00030F1C 2786 0001:00030F21 2788 0001:00030F2C 2789 0001:00030F4E + 2791 0001:00030F57 2796 0001:00030F5C 2797 0001:00030F68 2799 0001:00030F71 + 2800 0001:00030F74 2801 0001:00030F77 2802 0001:00030F78 2803 0001:00030F7A + 2804 0001:00030F7D 2805 0001:00030F82 2806 0001:00030F84 2807 0001:00030F87 + 2808 0001:00030F89 2809 0001:00030F8C 2810 0001:00030F8F 2811 0001:00030F90 + 2812 0001:00030F92 2814 0001:00030F94 2815 0001:00030F95 2816 0001:00030F97 + 2817 0001:00030F9A 2818 0001:00030F9C 2819 0001:00030F9E 2820 0001:00030FA1 + 2821 0001:00030FA4 2822 0001:00030FA6 2823 0001:00030FA9 2824 0001:00030FAA + 2825 0001:00030FAC 2828 0001:00030FAD 2835 0001:00030FB4 2836 0001:00030FC3 + 2837 0001:00030FCC 2838 0001:00030FD5 2839 0001:00030FE8 2840 0001:00030FF2 + 2841 0001:00031000 2844 0001:0003100E 2846 0001:00031018 2848 0001:0003102C + 2850 0001:00031038 2851 0001:00031051 2852 0001:00031072 2855 0001:00031088 + 2861 0001:000310B6 2863 0001:000310C9 2864 0001:000310DB 2870 0001:000310E0 + 2871 0001:000310E9 2872 0001:000310ED 2874 0001:000310FA 2875 0001:00031104 + 2876 0001:00031112 2877 0001:00031120 2881 0001:00031126 2882 0001:0003113C + 2883 0001:0003115A 2886 0001:0003116B 2889 0001:00031181 2897 0001:00031188 + 2898 0001:0003119A 2899 0001:0003119F 2900 0001:000311A8 2902 0001:000311AE + 2903 0001:000311B8 2904 0001:000311C8 2905 0001:000311E6 2906 0001:000311F3 + 2910 0001:000311FE 2911 0001:00031209 2913 0001:0003121D 2914 0001:00031227 + 2915 0001:00031240 2916 0001:00031252 2917 0001:00031264 2921 0001:00031268 + 2922 0001:00031277 2923 0001:0003127C 2926 0001:0003129B 2927 0001:000312AB + 2928 0001:000312BE 2929 0001:000312CC 2942 0001:000312D0 2945 0001:000312DF + 2946 0001:000312E5 2947 0001:00031308 2949 0001:00031317 2950 0001:00031321 + 2951 0001:0003132C 2952 0001:0003133A 2953 0001:0003134B 2954 0001:0003136C + 2955 0001:0003137A 2957 0001:00031399 2961 0001:000313AA 2962 0001:000313B3 + 2963 0001:000313BC 2964 0001:000313DF 2965 0001:000313E9 2967 0001:000313F3 + 2968 0001:000313FC 2969 0001:00031403 2970 0001:0003140D 2971 0001:0003142E + 2972 0001:0003143C 2974 0001:0003145B 2977 0001:00031479 2979 0001:0003148C + 3011 0001:00031494 3012 0001:0003149D 3013 0001:000314A3 3015 0001:000314AC + 3016 0001:000314B5 3021 0001:000314BC 3022 0001:000314C8 3023 0001:000314D9 + 3024 0001:000314EC 3025 0001:000314FD 3026 0001:00031510 3028 0001:00031564 + 3030 0001:00031568 3031 0001:0003157B 3032 0001:00031584 3033 0001:0003158F + 3034 0001:0003159D 3035 0001:000315AB 3037 0001:000315B8 3038 0001:000315C4 + 3041 0001:000315D3 3042 0001:000315E3 3043 0001:000315ED 3044 0001:000315F8 + 3045 0001:00031606 3046 0001:00031626 3047 0001:0003162D 3049 0001:00031636 + 3051 0001:00031651 3056 0001:00031664 3057 0001:00031669 3058 0001:0003167A + 3060 0001:0003168C 3061 0001:000316A3 3064 0001:000316D4 3065 0001:000316DA + 3067 0001:000316E0 3058 0001:000316E3 3095 0001:000316E8 3097 0001:000316F6 + 3098 0001:00031701 3099 0001:0003170E 3100 0001:0003171C 3101 0001:0003172A + 3102 0001:00031744 3103 0001:00031755 3104 0001:00031767 3105 0001:00031779 + 3106 0001:00031788 3108 0001:0003179A 3110 0001:000317A9 3111 0001:000317B2 + 3112 0001:000317BD 3113 0001:000317CB 3114 0001:000317D1 3116 0001:000317DA + 3117 0001:000317EB 3118 0001:000317FC 3119 0001:00031805 3120 0001:0003180E + 3122 0001:0003183B 3124 0001:00031855 3127 0001:00031875 3131 0001:00031898 + 3133 0001:000318AB 3141 0001:000318B4 3142 0001:000318BD 3143 0001:000318C3 + 3144 0001:000318C9 3147 0001:000318D4 3148 0001:000318DE 3145 0001:000318E2 + 3150 0001:000318EE 3157 0001:000318F4 3158 0001:00031905 3159 0001:0003190A + 3160 0001:0003191C 3161 0001:00031929 3163 0001:00031935 3166 0001:00031946 + 3169 0001:00031955 3170 0001:0003195E 3171 0001:00031967 3174 0001:00031970 + 3175 0001:00031987 3178 0001:00031992 3179 0001:0003199B 3183 0001:000319A6 + 3184 0001:000319AF 3187 0001:000319BA 3189 0001:000319C9 3190 0001:000319D2 + 3191 0001:000319E0 3192 0001:000319EC 3193 0001:000319F5 3194 0001:00031A22 + 3200 0001:00031A28 3201 0001:00031A37 3202 0001:00031A45 3204 0001:00031A4C + 3205 0001:00031A55 3206 0001:00031A5B 3209 0001:00031A63 3210 0001:00031A69 + 3213 0001:00031A81 3215 0001:00031A8F 3216 0001:00031A97 3220 0001:00031AA0 + 3221 0001:00031AAF 3222 0001:00031ABF 3229 0001:00031AC4 3230 0001:00031AD3 + 3231 0001:00031AE1 3232 0001:00031AE6 3233 0001:00031AF0 3234 0001:00031AFE + 3236 0001:00031B04 3237 0001:00031B16 3239 0001:00031B1F 3242 0001:00031B52 + 3243 0001:00031B67 3245 0001:00031B7B 3248 0001:00031B84 3249 0001:00031B93 + 3250 0001:00031BAD 3254 0001:00031BB4 3257 0001:00031BB8 3258 0001:00031BBF + 3259 0001:00031BCA 3270 0001:00031BD0 3271 0001:00031BE0 3272 0001:00031BEF + 3273 0001:00031BFE 3274 0001:00031C10 3275 0001:00031C1E 3276 0001:00031C2E + 3277 0001:00031C3E 3278 0001:00031C43 3279 0001:00031C48 3280 0001:00031C4D + 3281 0001:00031C52 3282 0001:00031C60 3283 0001:00031C6B 3284 0001:00031C76 + 3285 0001:00031C81 3286 0001:00031C8C 3287 0001:00031C9F 3288 0001:00031CB2 + 3290 0001:00031CB8 3292 0001:00031CC7 3296 0001:00031CD7 3297 0001:00031CDD + 3299 0001:00031CE3 3300 0001:00031CF3 3302 0001:00031CF9 3303 0001:00031D02 + 3304 0001:00031D0B 3305 0001:00031D1D 3306 0001:00031D29 3308 0001:00031D30 + 3309 0001:00031D40 3310 0001:00031D46 3311 0001:00031D52 3312 0001:00031D60 + 3313 0001:00031D6E 3315 0001:00031D89 3316 0001:00031D94 3317 0001:00031D9F + 3318 0001:00031DAA 3321 0001:00031DCA 3322 0001:00031DD3 3324 0001:00031DE4 + 3329 0001:00031DEC 3330 0001:00031E04 3331 0001:00031E29 3334 0001:00031E30 + 3335 0001:00031E3D 3336 0001:00031E44 3337 0001:00031E5A 3342 0001:00031E60 + 3343 0001:00031E64 3344 0001:00031E70 3347 0001:00031EAB 3348 0001:00031EBE + 3350 0001:00031EC4 3351 0001:00031ED1 3352 0001:00031EFB 3357 0001:00031F10 + 3358 0001:00031F1D 3359 0001:00031F42 3361 0001:00031F5A 3362 0001:00031F7B + 3364 0001:00031F80 3366 0001:00031F8A 3367 0001:00031F99 3368 0001:00031FA7 + 3369 0001:00031FB2 3370 0001:00031FC1 3371 0001:00031FCF 3372 0001:00031FDA + 3375 0001:0003202B 3378 0001:00032048 3381 0001:0003205B 3384 0001:00032060 + 3385 0001:00032069 3386 0001:00032071 3389 0001:00032078 3390 0001:00032081 + 3391 0001:0003208D 3396 0001:00032094 3397 0001:000320A0 3398 0001:000320B4 + 3399 0001:000320C2 3401 0001:000320DA 3403 0001:000320EA 3407 0001:000320F0 + 3408 0001:00032100 3409 0001:0003210A 3410 0001:00032129 3413 0001:00032130 + 3414 0001:0003213C 3415 0001:00032147 3420 0001:0003214C 3421 0001:00032158 + 3422 0001:0003216F 3423 0001:0003217D 3425 0001:00032195 3427 0001:000321A5 + 3430 0001:000321AC 3431 0001:000321B8 3441 0001:000321BC 3442 0001:000321C8 + 3444 0001:000321D3 3445 0001:000321DC 3447 0001:000321E7 3450 0001:000321EC + 3451 0001:000321F8 3452 0001:00032203 3478 0001:000322A4 3479 0001:000322CF + 3480 0001:000322D9 3481 0001:000322FE 3482 0001:00032323 3483 0001:00032348 + 3484 0001:000323AA 3489 0001:000323E0 3490 0001:000323F1 3491 0001:00032407 + 3490 0001:00032420 3492 0001:00032425 3493 0001:00032441 3499 0001:00032448 + 3500 0001:0003246B 3501 0001:0003247E 3503 0001:00032484 3504 0001:0003249D + 3505 0001:000324A5 3506 0001:000324B3 3508 0001:000324BC 3509 0001:000324E4 + 3529 0001:000324EC 3530 0001:0003250E 3532 0001:0003251D 3533 0001:0003252D + 3534 0001:00032556 3530 0001:00032559 3535 0001:0003255F 3536 0001:00032584 + 3599 0001:000325E8 3600 0001:00032600 3601 0001:00032612 3602 0001:00032624 + 3603 0001:00032636 3604 0001:00032648 3605 0001:00032675 3608 0001:0003267C + 3609 0001:0003268D 3610 0001:00032698 3611 0001:000326B1 3616 0001:000326B8 + 3617 0001:000326CB 3618 0001:000326DC 3619 0001:000326EA 3621 0001:00032708 + 3622 0001:00032716 3624 0001:00032720 3629 0001:00032728 3630 0001:00032735 + 3631 0001:00032747 3633 0001:0003275B 3634 0001:0003276C 3635 0001:0003276E + 3630 0001:00032771 3636 0001:00032777 3637 0001:0003277F 3656 0001:00032784 + 3657 0001:00032788 3658 0001:000327A2 3659 0001:000327AD 3662 0001:000327B0 + 3663 0001:000327B4 3664 0001:000327CE 3665 0001:000327D9 3668 0001:000327DC + 3669 0001:000327F4 3670 0001:000327FE 3671 0001:00032803 3672 0001:00032823 + 3675 0001:00032828 3676 0001:00032839 3677 0001:00032844 3678 0001:00032860 + 3681 0001:00032864 3682 0001:00032870 3683 0001:00032889 3685 0001:00032899 + 3686 0001:000328A4 3689 0001:000328A8 3690 0001:000328B5 3692 0001:000328C7 + 3693 0001:000328D2 3694 0001:000328DA 3695 0001:000328E8 3696 0001:00032906 + 3697 0001:00032924 3699 0001:00032933 3702 0001:00032938 3703 0001:00032941 + 3704 0001:0003294F 3705 0001:0003295B 3708 0001:00032960 3709 0001:00032969 + 3710 0001:00032977 3711 0001:00032983 3714 0001:00032988 3715 0001:00032991 + 3716 0001:0003299F 3717 0001:000329AB 3737 0001:000329B0 3738 0001:000329BF + 3739 0001:000329C4 3741 0001:000329CA 3742 0001:000329DA 3743 0001:000329E5 + 3744 0001:00032A00 3746 0001:00032A1B 3747 0001:00032A29 3748 0001:00032A34 + 3749 0001:00032A3D 3751 0001:00032A5B 3752 0001:00032A63 3754 0001:00032A6D + 3795 0001:00032A74 3796 0001:00032A87 3797 0001:00032A98 3798 0001:00032A9E + 3800 0001:00032AA8 3801 0001:00032AB3 3802 0001:00032AC1 3803 0001:00032ADC + 3805 0001:00032AFE 3806 0001:00032B06 3808 0001:00032B10 3809 0001:00032B1B + 3810 0001:00032B24 3811 0001:00032B42 3812 0001:00032B51 3816 0001:00032B5C + 3817 0001:00032B6C 3818 0001:00032B75 3819 0001:00032B8A 3822 0001:00032B94 + 3823 0001:00032BA1 3824 0001:00032BB8 3827 0001:00032BBC 3828 0001:00032BC8 + 3829 0001:00032BD8 3832 0001:00032BDC 3833 0001:00032BE8 3834 0001:00032BF8 + 3837 0001:00032BFC 3838 0001:00032C08 3839 0001:00032C0E 3840 0001:00032C1A + 3841 0001:00032C2C 3842 0001:00032C3C 3843 0001:00032C4E 3845 0001:00032C5B + 3846 0001:00032C66 3850 0001:00032C6C 3851 0001:00032C7B 3852 0001:00032C91 + 3873 0001:00032C98 3874 0001:00032CA5 3875 0001:00032CBB 3876 0001:00032CCF + 3880 0001:00032CD4 3881 0001:00032CE4 3882 0001:00032D0D 3889 0001:00032D14 + 3890 0001:00032D36 3891 0001:00032D46 3892 0001:00032D56 3893 0001:00032D71 + 3894 0001:00032D76 3896 0001:00032D7C 3897 0001:00032D87 3898 0001:00032D95 + 3900 0001:00032DAF 3901 0001:00032DB7 3904 0001:00032DC1 3905 0001:00032DCC + 3906 0001:00032DD5 3908 0001:00032DDB 3909 0001:00032DF6 3911 0001:00032E11 + 3912 0001:00032E3D 3917 0001:00032E44 3920 0001:00032E54 3921 0001:00032E5D + 3922 0001:00032E82 3923 0001:00032E86 3924 0001:00032E97 3925 0001:00032EA0 + 3927 0001:00032EAE 3934 0001:00032EB4 3935 0001:00032EBA 3937 0001:00032EC6 + 3938 0001:00032ECA 3940 0001:00032EE2 3941 0001:00032EEE 3946 0001:00032F37 + 3947 0001:00032F48 3949 0001:00032F4C 3950 0001:00032F59 3951 0001:00032F81 + 3954 0001:00032F98 3955 0001:00032FA1 3956 0001:00032FA6 3957 0001:00032FC0 + 3960 0001:00032FC4 3961 0001:00032FCD 3962 0001:00032FD2 3963 0001:00032FEC + 3968 0001:00032FF0 3969 0001:00033001 3970 0001:00033016 3971 0001:00033021 + 3972 0001:0003303D 3975 0001:00033044 3976 0001:0003304B 3982 0001:00033050 + 3983 0001:00033082 3985 0001:000330EE 3994 0001:000330F8 3995 0001:00033127 + 3996 0001:00033131 3997 0001:0003313A 3998 0001:00033140 3999 0001:00033150 + 4000 0001:0003315E 4001 0001:0003316D 4002 0001:0003317C 4004 0001:00033197 + 4006 0001:000331D0 4007 0001:000331DF 4008 0001:000331EE 4010 0001:00033209 + 4012 0001:00033242 4013 0001:00033268 4014 0001:00033280 4016 0001:000332AA + 4017 0001:000332AF 4018 0001:000332C5 4019 0001:000332D0 4021 0001:000332E8 + 4023 0001:00033339 4028 0001:00033358 4029 0001:00033369 4030 0001:00033374 + 4031 0001:0003337E 4032 0001:00033394 4033 0001:000333B0 4038 0001:000333B4 + 4039 0001:000333CC 4040 0001:000333D6 4041 0001:000333DD 4042 0001:000333E4 + 4043 0001:00033409 4046 0001:00033410 4047 0001:00033421 4048 0001:0003342C + 4049 0001:00033448 4054 0001:0003344C 4055 0001:00033458 4057 0001:00033474 + 4058 0001:00033479 4060 0001:00033482 4061 0001:0003348E 4063 0001:00033499 + 4065 0001:0003349F 4066 0001:000334AB 4070 0001:000334B9 4071 0001:000334CB + 4073 0001:000334D2 4074 0001:000334DD 4075 0001:00033502 4078 0001:0003350F + 4079 0001:0003351A 4090 0001:00033520 4091 0001:00033531 4092 0001:0003353E + 4093 0001:00033549 4094 0001:0003354E 4096 0001:00033554 4097 0001:0003356B + 4099 0001:00033579 4100 0001:00033585 4101 0001:00033588 4102 0001:0003358B + 4103 0001:000335A7 4104 0001:000335AD 4105 0001:000335C1 4110 0001:000335C8 + 4111 0001:000335D4 4112 0001:000335DC 4113 0001:000335F1 4114 0001:00033607 + 4115 0001:0003360D 4116 0001:00033618 4117 0001:00033636 4118 0001:0003364F + 4123 0001:00033654 4124 0001:00033660 4125 0001:00033668 4126 0001:00033681 + 4127 0001:00033697 4128 0001:0003369D 4129 0001:000336A8 4130 0001:000336C6 + 4131 0001:000336E5 4132 0001:000336FE 4135 0001:00033704 4136 0001:0003370D + 4137 0001:0003371B 4140 0001:00033720 4141 0001:00033729 4142 0001:00033732 + 4144 0001:00033740 4145 0001:00033748 4158 0001:0003374C 4159 0001:00033755 + 4160 0001:00033766 4161 0001:0003376F 4162 0001:00033779 4163 0001:00033782 + 4166 0001:0003378D 4167 0001:0003379F 4172 0001:000337B9 4173 0001:000337D6 + 4182 0001:000337DC 4183 0001:000337E5 4184 0001:000337F6 4185 0001:00033805 + 4188 0001:0003380C 4189 0001:00033815 4190 0001:00033826 4191 0001:00033835 + 4197 0001:0003383C 4198 0001:00033848 4199 0001:0003384D 4200 0001:0003386A + 4202 0001:00033876 4203 0001:0003388C 4205 0001:00033892 4206 0001:0003389B + 4207 0001:000338A2 4208 0001:000338B0 4209 0001:000338B9 4210 0001:000338C4 + 4211 0001:000338DE 4213 0001:000338F3 4214 0001:00033902 4219 0001:00033908 + 4220 0001:00033911 4221 0001:00033922 4222 0001:0003392B 4223 0001:00033935 + 4224 0001:0003393E 4227 0001:00033949 4228 0001:0003395B 4233 0001:00033975 + 4234 0001:00033992 4237 0001:00033998 4238 0001:000339A4 4239 0001:000339B3 + 4241 0001:000339C0 4242 0001:000339DE 4243 0001:000339F1 4244 0001:000339FC + 4247 0001:00033A00 4248 0001:00033A07 4249 0001:00033A12 4250 0001:00033A24 + 4251 0001:00033A2F 4256 0001:00033A34 4257 0001:00033A41 4258 0001:00033A51 + 4259 0001:00033A57 4261 0001:00033A63 4262 0001:00033A72 4264 0001:00033A7F + 4265 0001:00033A90 4266 0001:00033AA3 4267 0001:00033AAE 4273 0001:00033AB4 + 4274 0001:00033AC0 4275 0001:00033AC8 4276 0001:00033AD8 4277 0001:00033AE6 + 4278 0001:00033AF1 4279 0001:00033AFA 4280 0001:00033B08 4281 0001:00033B18 + 4283 0001:00033B2C 4284 0001:00033B3F 4285 0001:00033B4D 4288 0001:00033B56 + 4289 0001:00033B62 4291 0001:00033B6E 4293 0001:00033B82 4295 0001:00033B95 + 4303 0001:00033B9C 4304 0001:00033BAF 4305 0001:00033BB7 4306 0001:00033BC7 + 4307 0001:00033BDE 4308 0001:00033BE3 4309 0001:00033BE7 4310 0001:00033BF2 + 4311 0001:00033BFB 4312 0001:00033C09 4313 0001:00033C17 4314 0001:00033C25 + 4315 0001:00033C32 4316 0001:00033C52 4319 0001:00033C72 4320 0001:00033C79 + 4321 0001:00033C7E 4322 0001:00033C83 4324 0001:00033C88 4325 0001:00033CA1 + 4329 0001:00033CAF 4332 0001:00033CC4 4333 0001:00033CCB 4334 0001:00033CD1 + 4335 0001:00033CD7 4337 0001:00033CDC 4338 0001:00033CE8 4339 0001:00033D01 + 4340 0001:00033D0F 4342 0001:00033D23 4344 0001:00033D36 4349 0001:00033D3C + 4350 0001:00033D5E 4351 0001:00033D67 4352 0001:00033D75 4353 0001:00033D9A + 4354 0001:00033DA1 4356 0001:00033DB9 4358 0001:00033DEC 4361 0001:00033E00 + 4362 0001:00033E0C 4363 0001:00033E15 4364 0001:00033E1E 4366 0001:00033E2B + 4367 0001:00033E36 4372 0001:00033E3C 4373 0001:00033E48 4375 0001:00033E61 + 4376 0001:00033E66 4377 0001:00033E6E 4378 0001:00033E89 4379 0001:00033E97 + 4380 0001:00033EA2 4381 0001:00033EAE 4382 0001:00033EB9 4383 0001:00033EC4 + 4386 0001:00033ECA 4387 0001:00033ED9 4389 0001:00033EE8 4390 0001:00033EFB + 4391 0001:00033F06 4396 0001:00033F0C 4397 0001:00033F18 4398 0001:00033F29 + 4399 0001:00033F32 4400 0001:00033F3C 4401 0001:00033F45 4404 0001:00033F50 + 4405 0001:00033F62 4410 0001:00033F80 4411 0001:00033F9E 4425 0001:00033FA4 + 4426 0001:00033FB0 4427 0001:00033FC1 4428 0001:00033FCC 4430 0001:00033FDA + 4431 0001:00033FE2 4432 0001:00033FEE 4434 0001:00033FF9 4437 0001:00034000 + 4438 0001:0003400C 4439 0001:0003401D 4440 0001:00034028 4442 0001:00034036 + 4443 0001:0003403E 4444 0001:0003404A 4446 0001:00034055 4449 0001:0003405C + 4452 0001:00034068 4457 0001:0003406C 4458 0001:00034078 4459 0001:00034089 + 4460 0001:00034092 4461 0001:0003409C 4462 0001:000340A5 4465 0001:000340B0 + 4466 0001:000340C2 4471 0001:000340E0 4472 0001:000340FE 4478 0001:00034104 + 4479 0001:00034111 4480 0001:00034127 4482 0001:0003412D 4483 0001:0003413D + 4485 0001:0003414E 4487 0001:0003416F 4492 0001:00034174 4493 0001:0003417D + 4494 0001:00034186 4496 0001:00034193 4498 0001:000341A3 4499 0001:000341B2 + 4500 0001:000341BE 4501 0001:000341D5 4502 0001:000341E4 4503 0001:000341F3 + 4504 0001:00034204 4505 0001:00034213 4506 0001:00034222 4507 0001:0003422D + 4508 0001:00034236 4510 0001:00034241 4515 0001:00034248 4516 0001:00034255 + 4518 0001:0003425E 4519 0001:00034263 4520 0001:00034273 4521 0001:00034281 + 4522 0001:0003428A 4524 0001:00034297 4525 0001:000342A2 4526 0001:000342AF + 4527 0001:000342BC 4528 0001:000342CC 4530 0001:000342DA 4536 0001:000342E0 + 4537 0001:000342EC 4538 0001:000342F5 4539 0001:0003430B 4540 0001:00034311 + 4541 0001:0003431C 4542 0001:0003432A 4543 0001:00034341 4545 0001:0003435C + 4547 0001:0003436F 4555 0001:00034374 4556 0001:00034380 4557 0001:0003438D + 4558 0001:0003439C 4562 0001:000343A5 4563 0001:000343AC 4564 0001:000343B6 + 4566 0001:000343BE 4569 0001:000343C9 4570 0001:000343E3 4572 0001:000343FD + 4574 0001:00034409 4575 0001:00034413 4576 0001:00034421 4577 0001:0003443A + 4578 0001:00034445 4579 0001:00034453 4580 0001:00034472 4581 0001:00034477 + 4582 0001:00034487 4584 0001:000344A2 4587 0001:000344C2 4590 0001:000344D5 + 4596 0001:000344DC 4597 0001:000344EC 4598 0001:000344F6 4599 0001:00034506 + 4600 0001:0003450E 4602 0001:00034517 4603 0001:00034528 4606 0001:0003453A + 4607 0001:00034546 4609 0001:00034552 4611 0001:0003455B 4612 0001:00034562 + 4613 0001:00034575 4614 0001:00034580 4618 0001:00034588 4619 0001:00034597 + 4620 0001:000345A0 4621 0001:000345A8 4622 0001:000345AF 4623 0001:000345C5 + 4626 0001:000345CC 4627 0001:000345D5 4628 0001:000345DD 4629 0001:000345E9 + 4630 0001:000345F7 4658 0001:00034698 4659 0001:0003469E 4660 0001:000346AB + 4661 0001:000346B9 4662 0001:000346C8 4663 0001:000346D6 4664 0001:000346E2 + 4665 0001:000346F0 4667 0001:00034705 4668 0001:00034715 4661 0001:00034718 + 4670 0001:0003472B 4672 0001:0003473D 4682 0001:00034744 4683 0001:0003474D + 4684 0001:00034757 4685 0001:00034764 4686 0001:00034772 4687 0001:00034781 + 4688 0001:0003478F 4689 0001:000347A9 4686 0001:000347B4 4691 0001:000347C7 + 4693 0001:000347D9 4696 0001:000347E0 4697 0001:000347FB 4698 0001:00034805 + 4699 0001:00034829 4702 0001:00034830 4703 0001:00034841 4704 0001:00034849 + 4705 0001:00034865 4710 0001:0003486C 4711 0001:00034875 4713 0001:00034882 + 4714 0001:0003488A 4715 0001:00034898 4716 0001:000348B4 4717 0001:000348D2 + 4718 0001:000348DB 4719 0001:000348E5 4720 0001:000348EE 4722 0001:00034908 + 4725 0001:00034918 4730 0001:0003491C 4731 0001:00034925 4733 0001:00034932 + 4734 0001:0003493A 4735 0001:00034948 4736 0001:00034953 4738 0001:00034964 + 4739 0001:0003496F 4740 0001:00034979 4741 0001:00034988 4742 0001:000349A6 + 4743 0001:000349AE 4745 0001:000349BD 4746 0001:000349DB 4749 0001:000349E6 + 4750 0001:000349EE 4751 0001:000349F9 4753 0001:00034A13 4756 0001:00034A23 + 4761 0001:00034A28 4762 0001:00034A2F 4763 0001:00034A35 4766 0001:00034A38 + 4767 0001:00034A3F 4769 0001:00034A45 4770 0001:00034A4B 4772 0001:00034A54 + 4773 0001:00034A5B 4776 0001:00034A63 4781 0001:00034A68 4782 0001:00034A79 + 4784 0001:00034A82 4785 0001:00034A8D 4786 0001:00034A99 4788 0001:00034AA1 + 4789 0001:00034AA8 4790 0001:00034ABD 4791 0001:00034AC8 4792 0001:00034AE4 + 4795 0001:00034AE8 4796 0001:00034AEF 4798 0001:00034B06 4799 0001:00034B11 + 4801 0001:00034B1D 4803 0001:00034B26 4804 0001:00034B31 4805 0001:00034B3D + 4807 0001:00034B45 4808 0001:00034B50 4809 0001:00034B58 4810 0001:00034B60 + 5006 0001:00034B64 5007 0001:00034B76 5009 0001:00034B8E 5010 0001:00034BA4 + 5011 0001:00034BAE 5012 0001:00034BB8 5013 0001:00034BC4 5014 0001:00034BD4 + 5015 0001:00034BE2 5017 0001:00034C05 5018 0001:00034C12 5019 0001:00034C1B + 5022 0001:00034C2E 5025 0001:00034C34 5026 0001:00034C3B 5028 0001:00034C4D + 5031 0001:00034C57 5032 0001:00034C61 5033 0001:00034C6B 5034 0001:00034C77 + 5037 0001:00034C81 5038 0001:00034C8B 5039 0001:00034C95 5041 0001:00034C9F + 5053 0001:00034CA4 5054 0001:00034CB9 5057 0001:00034CBE 5058 0001:00034CE1 + 5061 0001:00034D04 5063 0001:00034D0C 5064 0001:00034D11 5065 0001:00034D17 + 5066 0001:00034D2E 5068 0001:00034D33 5069 0001:00034D42 5070 0001:00034D53 + 5072 0001:00034D61 5073 0001:00034D6A 5074 0001:00034D7E 5076 0001:00034DA4 + 5079 0001:00034DC8 5080 0001:00034DD5 5082 0001:00034DE3 5083 0001:00034DED + 5084 0001:00034DF6 5085 0001:00034E00 5086 0001:00034E23 5087 0001:00034E35 + 5088 0001:00034E41 5090 0001:00034E4D 5092 0001:00034E5B 5094 0001:00034E71 + 5095 0001:00034E79 5097 0001:00034E8D 5098 0001:00034E93 5099 0001:00034EAB + 5101 0001:00034EB5 5102 0001:00034EC5 5103 0001:00034ED1 5105 0001:00034EF0 + 5106 0001:00034F13 5109 0001:00034F22 5112 0001:00034F3F 5113 0001:00034F47 + 5116 0001:00034F5D 5117 0001:00034F7C 5119 0001:00034F87 5122 0001:00034FB3 + 5123 0001:00034FD8 5126 0001:00034FF4 5130 0001:00035004 5131 0001:0003500C + 5132 0001:00035021 5133 0001:0003502F 5134 0001:0003503D 5135 0001:00035042 + 5136 0001:00035047 5138 0001:0003504D 5139 0001:0003505F 5141 0001:00035068 + 5142 0001:00035076 5145 0001:00035080 5146 0001:000350B9 5147 0001:000350D1 + 5148 0001:000350EB 5150 0001:000350FE 5151 0001:0003510F 5152 0001:00035122 + 5156 0001:00035135 5157 0001:00035155 5159 0001:0003515F 5160 0001:00035170 + 5161 0001:0003517E 5162 0001:00035193 5164 0001:00035199 5165 0001:000351AB + 5167 0001:000351B4 5169 0001:000351BA 5170 0001:000351D2 5172 0001:000351EC + 5173 0001:00035214 5174 0001:0003521A 5175 0001:00035229 5177 0001:00035248 + 5181 0001:00035266 5182 0001:0003526C 5185 0001:00035290 5188 0001:000352B4 + 5189 0001:000352BD 5192 0001:000352D4 5193 0001:000352DD 5194 0001:000352E8 + 5196 0001:00035308 5202 0001:00035314 5203 0001:00035320 5204 0001:00035325 + 5205 0001:0003532B 5206 0001:00035330 5207 0001:00035343 5210 0001:00035349 + 5211 0001:00035352 5212 0001:0003535D 5214 0001:00035373 5215 0001:00035385 + 5225 0001:0003538C 5226 0001:0003539B 5227 0001:000353A0 5229 0001:000353C1 + 5230 0001:000353C9 5231 0001:000353CE 5232 0001:000353D3 5233 0001:000353E1 + 5234 0001:000353F0 5237 0001:00035401 5238 0001:00035417 5240 0001:00035421 + 5241 0001:00035431 5242 0001:0003543A 5245 0001:00035456 5246 0001:00035467 + 5248 0001:00035475 5250 0001:0003547B 5251 0001:0003547F 5252 0001:00035484 + 5254 0001:0003549D 5255 0001:000354A1 5256 0001:000354B1 5258 0001:000354B7 + 5259 0001:000354C6 5260 0001:000354CF 5261 0001:000354DE 5263 0001:000354E7 + 5264 0001:000354F7 5265 0001:00035519 5266 0001:00035526 5267 0001:00035539 + 5269 0001:00035555 5272 0001:00035566 5276 0001:00035586 5277 0001:00035595 + 5280 0001:000355B1 5283 0001:000355B8 5284 0001:000355D0 5285 0001:000355DA + 5286 0001:000355E4 5287 0001:000355F6 5288 0001:00035601 5289 0001:0003562F + 5292 0001:00035634 5293 0001:00035645 5294 0001:0003564D 5295 0001:00035658 + 5296 0001:00035663 5297 0001:0003567F 5302 0001:00035684 5303 0001:00035690 + 5305 0001:000356AC 5306 0001:000356B6 5307 0001:000356C4 5309 0001:000356CA + 5310 0001:000356D5 5311 0001:000356E0 5312 0001:000356EC 5313 0001:000356F8 + 5314 0001:00035704 5318 0001:00035712 5319 0001:00035721 5322 0001:00035742 + 5324 0001:00035754 5325 0001:00035767 5327 0001:00035774 5328 0001:0003577F + 5333 0001:00035784 5334 0001:000357A5 5335 0001:000357AD 5336 0001:000357B2 + 5337 0001:000357B7 5338 0001:000357C5 5339 0001:000357D0 5341 0001:000357D8 + 5342 0001:000357E3 5343 0001:000357FF 5345 0001:0003582C 5346 0001:00035834 + 5347 0001:00035843 5349 0001:0003584D 5356 0001:00035858 5357 0001:00035864 + 5358 0001:0003586C 5359 0001:00035877 5360 0001:00035882 5361 0001:00035890 + 5364 0001:00035894 5365 0001:000358A0 5366 0001:000358A7 5367 0001:000358B2 + 5373 0001:000358B8 5374 0001:000358C3 5375 0001:000358D2 5376 0001:000358DD + 5377 0001:000358EE 5378 0001:00035901 5379 0001:00035906 5380 0001:0003590E + 5381 0001:00035919 5382 0001:00035937 5393 0001:00035940 5394 0001:00035950 + 5396 0001:00035959 5397 0001:00035967 5398 0001:0003596F 5399 0001:00035974 + 5401 0001:00035978 5403 0001:00035981 5404 0001:00035999 5405 0001:000359A5 + 5407 0001:000359A9 5409 0001:000359CD 5410 0001:000359F1 5412 0001:000359F7 + 5413 0001:00035A07 5414 0001:00035A15 5415 0001:00035A2F 5416 0001:00035A3B + 5417 0001:00035A4B 5420 0001:00035A59 5421 0001:00035A6D 5422 0001:00035A80 + 5424 0001:00035A90 5425 0001:00035A95 5426 0001:00035A9A 5427 0001:00035AA8 + 5428 0001:00035AB7 5429 0001:00035ACA 5433 0001:00035B2C 5434 0001:00035B3F + 5438 0001:00035B56 5442 0001:00035BBA 5443 0001:00035BC0 5446 0001:00035BDA + 5457 0001:00035BE4 5458 0001:00035BED 5459 0001:00035BF6 5461 0001:00035BFF + 5462 0001:00035C07 5463 0001:00035C10 5465 0001:00035C17 5466 0001:00035C20 + 5468 0001:00035C3A 5470 0001:00035C51 5471 0001:00035C5A 5472 0001:00035C6F + 5473 0001:00035C77 5475 0001:00035C7F 5478 0001:00035C84 5479 0001:00035C8D + 5480 0001:00035C96 5481 0001:00035CBD 5484 0001:00035CC4 5485 0001:00035CCD + 5487 0001:00035CD6 5488 0001:00035CDE 5490 0001:00035CE7 5491 0001:00035CFC + 5492 0001:00035D10 5495 0001:00035D23 5496 0001:00035D2F 5502 0001:00035D34 + 5503 0001:00035D3D 5504 0001:00035D45 5505 0001:00035D4D 5506 0001:00035D58 + 5507 0001:00035D67 5515 0001:00035D6C 5516 0001:00035D75 5518 0001:00035D7E + 5519 0001:00035D95 5520 0001:00035D9E 5521 0001:00035DA7 5523 0001:00035DAD + 5525 0001:00035DB3 5527 0001:00035DB9 5529 0001:00035DC0 5532 0001:00035DC4 + 5533 0001:00035DCD 5534 0001:00035DE1 5537 0001:00035DE8 5538 0001:00035DF1 + 5539 0001:00035DF9 5540 0001:00035E08 5543 0001:00035E0C 5544 0001:00035E15 + 5545 0001:00035E21 5546 0001:00035E41 5549 0001:00035E48 5550 0001:00035E51 + 5551 0001:00035E59 5552 0001:00035E68 5591 0001:00035E6C 5592 0001:00035E75 + 5594 0001:00035E81 5595 0001:00035E8D 5597 0001:00035E96 5599 0001:00035EB5 + 5600 0001:00035EC3 5601 0001:00035ECD 5604 0001:00035ED4 5605 0001:00035EDD + 5606 0001:00035EEC 5609 0001:00035EF0 5610 0001:00035EF9 5612 0001:00035F02 + 5613 0001:00035F1C 5614 0001:00035F24 5616 0001:00035F2D 5617 0001:00035F42 + 5619 0001:00035F5A 5620 0001:00035F63 5621 0001:00035F6F 5622 0001:00035F7B + 5623 0001:00035F84 5626 0001:00035F99 5628 0001:00035FBF 5631 0001:00035FC4 + 5632 0001:00035FCB 5633 0001:00035FDF 5638 0001:00035FE4 5639 0001:00035FED + 5641 0001:00036015 5642 0001:00036027 5643 0001:00036036 5644 0001:00036044 + 5645 0001:0003604F 5647 0001:0003606D 5651 0001:00036084 5652 0001:0003608D + 5653 0001:00036096 5654 0001:000360A2 5660 0001:000360A8 5661 0001:000360B7 + 5662 0001:000360BC 5663 0001:000360C1 5664 0001:000360CF 5665 0001:000360D7 + 5666 0001:000360DF 5668 0001:00036103 5669 0001:00036112 5670 0001:00036121 + 5671 0001:00036132 5673 0001:00036140 5674 0001:00036151 5676 0001:0003617E + 5677 0001:00036186 5678 0001:00036195 5680 0001:0003619F 5681 0001:000361AA + 5684 0001:000361B4 5685 0001:000361BD 5686 0001:000361CF 5689 0001:000361D8 + 5691 0001:000361E1 5692 0001:000361EC 5693 0001:000361F8 5695 0001:00036200 + 5696 0001:00036208 5698 0001:00036210 5700 0001:00036219 5701 0001:0003623A + 5702 0001:00036241 5704 0001:00036248 5709 0001:0003624C 5710 0001:00036256 + 5712 0001:0003625F 5713 0001:00036286 5714 0001:0003629F 5715 0001:000362C2 + 5716 0001:000362CF 5717 0001:000362DE 5720 0001:00036322 5721 0001:0003633A + 5722 0001:00036345 5724 0001:00036355 5730 0001:0003635C 5731 0001:0003636C + 5732 0001:00036379 5733 0001:00036383 5734 0001:0003638B 5735 0001:0003639A + 5736 0001:000363A9 5737 0001:000363B4 5738 0001:000363C6 5739 0001:000363D0 + 5740 0001:000363E3 5741 0001:000363EE 5744 0001:000363F4 5745 0001:00036400 + 5746 0001:0003641E 5751 0001:00036424 5752 0001:00036433 5753 0001:0003644B + 5754 0001:00036459 5756 0001:0003647C 5758 0001:0003648C 5778 0001:00036490 + 5779 0001:000364A2 5780 0001:000364B1 5782 0001:000364BF 5783 0001:000364C8 + 5784 0001:000364D1 5785 0001:000364E3 5786 0001:000364EC 5787 0001:00036501 + 5789 0001:00036524 5790 0001:0003652C 5793 0001:00036536 5794 0001:00036540 + 5795 0001:0003654E 5796 0001:00036559 5797 0001:00036562 5799 0001:0003657A + 5801 0001:0003658C 5802 0001:00036593 5807 0001:0003659C 5808 0001:000365A9 + 5809 0001:000365B9 5810 0001:000365C7 5831 0001:000365CC 5832 0001:000365E1 + 5833 0001:000365E6 5834 0001:000365EB 5835 0001:000365F0 5836 0001:00036600 + 5837 0001:00036608 5838 0001:00036615 5839 0001:00036628 5840 0001:0003662E + 5841 0001:0003663C 5842 0001:0003664A 5845 0001:00036650 5846 0001:00036663 + 5847 0001:00036672 5849 0001:00036678 5850 0001:00036682 5851 0001:0003668C + 5852 0001:00036697 5854 0001:000366A2 5859 0001:000366AB 5860 0001:000366BF + 5862 0001:000366C5 5865 0001:000366DF 5867 0001:000366EE 5869 0001:000366F4 + 5870 0001:00036706 5871 0001:0003670F 5872 0001:0003671B 5874 0001:00036724 + 5875 0001:00036734 5876 0001:00036744 5878 0001:00036758 5880 0001:0003676A + 5881 0001:0003677B 5885 0001:00036781 5887 0001:00036787 5888 0001:0003678F + 5891 0001:00036798 5895 0001:000367A7 5899 0001:000367CA 5900 0001:000367DA + 5901 0001:000367DE 5905 0001:000367E2 5906 0001:000367EB 5907 0001:000367FD + 5908 0001:0003681D 5911 0001:00036834 5912 0001:0003683D 5914 0001:0003686A + 5918 0001:0003687E 5920 0001:0003688C 5921 0001:0003689B 5922 0001:000368A9 + 5925 0001:000368C8 5926 0001:000368CD 5927 0001:000368D8 5928 0001:000368E6 + 5929 0001:000368F4 5930 0001:00036905 5931 0001:0003691F 5932 0001:00036924 + 5934 0001:0003692D 5935 0001:00036940 5936 0001:00036952 5939 0001:0003695B + 5940 0001:00036969 5942 0001:00036985 5943 0001:0003698B 5945 0001:000369AD + 5946 0001:000369B3 5947 0001:000369C2 5950 0001:000369EA 5951 0001:000369F9 + 5956 0001:00036A09 5957 0001:00036A23 5958 0001:00036A2F 5960 0001:00036A44 + 5971 0001:00036A52 5973 0001:00036A6F 5974 0001:00036A78 5978 0001:00036A8F + 5981 0001:00036AA2 5982 0001:00036ABB 5984 0001:00036ACE 5985 0001:00036AE0 + 5987 0001:00036AF2 5988 0001:00036AFB 5989 0001:00036B04 5990 0001:00036B0D + 5992 0001:00036B25 5993 0001:00036B2D 5996 0001:00036B44 5998 0001:00036B54 + 5999 0001:00036B71 6000 0001:00036B84 6001 0001:00036B8F 6007 0001:00036B98 + 6008 0001:00036BA7 6009 0001:00036BAF 6011 0001:00036BB5 6012 0001:00036BC4 + 6016 0001:00036BDA 6017 0001:00036BEA 6018 0001:00036BF7 6020 0001:00036C0C + 6026 0001:00036C10 6027 0001:00036C1F 6028 0001:00036C28 6030 0001:00036C37 + 6031 0001:00036C3F 6032 0001:00036C4E 6033 0001:00036C54 6034 0001:00036C63 + 6036 0001:00036C6C 6037 0001:00036C75 6040 0001:00036C7F 6041 0001:00036C8D + 6043 0001:00036C97 6044 0001:00036CA5 6045 0001:00036CB3 6047 0001:00036CD8 + 6048 0001:00036CE0 6050 0001:00036CEA 6052 0001:00036CF5 6060 0001:00036CFC + 6061 0001:00036D0A 6062 0001:00036D1B 6064 0001:00036D24 6065 0001:00036D36 + 6066 0001:00036D3C 6068 0001:00036D49 6071 0001:00036D58 6073 0001:00036D62 + 6074 0001:00036D7D 6075 0001:00036D85 6076 0001:00036D8D 6077 0001:00036D95 + 6079 0001:00036D9E 6080 0001:00036DA7 6081 0001:00036DAF 6082 0001:00036DB8 + 6083 0001:00036DC0 6086 0001:00036DE3 6090 0001:00036E03 6091 0001:00036E1E + 6092 0001:00036E26 6093 0001:00036E2E 6094 0001:00036E3E 6095 0001:00036E43 + 6096 0001:00036E4E 6097 0001:00036E54 6099 0001:00036E5F 6100 0001:00036E6D + 6101 0001:00036E8A 6102 0001:00036E90 6104 0001:00036E9B 6106 0001:00036EB6 + 6109 0001:00036EC1 6114 0001:00036EC8 6115 0001:00036ED6 6116 0001:00036EDF + 6118 0001:00036EEA 6119 0001:00036EF2 6120 0001:00036F02 6121 0001:00036F08 + 6122 0001:00036F0E 6123 0001:00036F26 6125 0001:00036F31 6141 0001:00036F38 + 6142 0001:00036F46 6143 0001:00036F58 6145 0001:00036F77 6146 0001:00036F7F + 6149 0001:00036F8F 6150 0001:00036F94 6151 0001:00036F9D 6152 0001:00036FA6 + 6153 0001:00036FAF 6155 0001:00036FB8 6156 0001:00036FD0 6158 0001:00036FDB + 6164 0001:00036FE4 6165 0001:00036FF3 6167 0001:00037005 6168 0001:0003700E + 6170 0001:0003701D 6171 0001:00037028 6175 0001:00037035 6176 0001:0003703D + 6177 0001:00037045 6178 0001:00037055 6179 0001:00037072 6180 0001:00037080 + 6182 0001:000370AA 6183 0001:000370B3 6186 0001:000370BD 6187 0001:000370D7 + 6188 0001:000370DE 6190 0001:000370E9 6251 0001:000370F0 6252 0001:000370FC + 6254 0001:00037107 6255 0001:00037110 6256 0001:00037119 6257 0001:00037120 + 6258 0001:00037129 6259 0001:00037135 6261 0001:0003713E 6262 0001:00037146 + 6264 0001:00037161 6266 0001:0003716C 6281 0001:00037170 6282 0001:0003717E + 6283 0001:00037187 6285 0001:00037192 6286 0001:0003719A 6287 0001:000371AA + 6288 0001:000371B0 6289 0001:000371B6 6290 0001:000371CE 6292 0001:000371D9 + 6295 0001:000371E0 6296 0001:000371EC 6297 0001:000371F9 6309 0001:00037200 + 6310 0001:00037213 6311 0001:00037222 6312 0001:00037228 6314 0001:00037234 + 6315 0001:00037244 6316 0001:0003724A 6317 0001:0003725A 6318 0001:0003727D + 6320 0001:00037282 6321 0001:0003728A 6323 0001:00037293 6324 0001:00037298 + 6326 0001:000372A5 6327 0001:000372BD 6329 0001:000372C6 6330 0001:000372CD + 6331 0001:000372D7 6333 0001:000372EB 6335 0001:000372F4 6336 0001:00037303 + 6338 0001:00037309 6339 0001:0003731C 6340 0001:0003733A 6341 0001:0003735A + 6343 0001:0003736D 6344 0001:00037381 6345 0001:0003738A 6347 0001:000373AB + 6348 0001:000373C4 6350 0001:000373CE 6351 0001:000373D7 6355 0001:000373E0 + 6356 0001:000373E6 6359 0001:000373EF 6361 0001:00037405 6363 0001:0003740F + 6364 0001:0003741A 6366 0001:00037420 6367 0001:00037434 6368 0001:0003743D + 6370 0001:00037454 6372 0001:0003745D 6374 0001:00037466 6375 0001:0003746D + 6376 0001:00037478 6377 0001:00037483 6378 0001:00037489 6380 0001:00037494 + 6381 0001:000374A4 6385 0001:000374B6 6386 0001:000374C6 6387 0001:000374D9 + 6389 0001:000374EC 6391 0001:000374FF 6392 0001:00037520 6395 0001:00037534 + 6399 0001:00037540 6400 0001:00037549 6401 0001:00037551 6402 0001:0003755C + 6404 0001:00037565 6405 0001:0003756E 6407 0001:0003757C 6408 0001:00037584 + 6410 0001:0003758C 6412 0001:00037597 6421 0001:0003759C 6422 0001:000375A5 + 6423 0001:000375AD 6424 0001:000375B8 6425 0001:000375C4 6426 0001:000375D2 + 6429 0001:000375D8 6430 0001:000375E4 6431 0001:000375F1 6437 0001:000375F8 + 6438 0001:0003760A 6439 0001:00037612 6440 0001:0003761A 6442 0001:00037623 + 6443 0001:00037633 6444 0001:00037638 6445 0001:0003763D 6447 0001:00037664 + 6448 0001:00037672 6450 0001:00037694 6451 0001:0003769F 6453 0001:000376A9 + 6463 0001:000376B4 6464 0001:000376C5 6465 0001:000376D0 6466 0001:000376EC + 6469 0001:000376F0 6470 0001:000376F7 6471 0001:0003770C 6472 0001:00037714 + 6477 0001:00037718 6478 0001:00037730 6479 0001:0003773A 6480 0001:00037741 + 6481 0001:00037753 6482 0001:00037779 6485 0001:00037780 6486 0001:00037791 + 6487 0001:0003779C 6488 0001:000377B8 6491 0001:000377BC 6492 0001:000377C8 + 6494 0001:000377E0 6496 0001:000377E6 6497 0001:000377F1 6498 0001:000377FC + 6500 0001:0003780A 6501 0001:00037816 6502 0001:00037821 6504 0001:00037823 + 6505 0001:0003782E 6508 0001:00037834 6511 0001:00037843 6512 0001:00037851 + 6514 0001:0003787D 6517 0001:00037888 6518 0001:00037891 6519 0001:0003789A + 6520 0001:000378B8 6523 0001:000378BC 6524 0001:000378C5 6525 0001:000378CD + 6526 0001:000378DC 6534 0001:000378E0 6535 0001:000378E9 6536 0001:000378F5 + 6537 0001:000378FB 6538 0001:00037908 6541 0001:0003790C 6542 0001:00037915 + 6543 0001:00037921 6544 0001:00037927 6545 0001:00037934 6551 0001:00037938 + 6552 0001:00037941 6554 0001:0003794A 6555 0001:00037953 6556 0001:0003795C + 6557 0001:0003796B 6558 0001:0003797E 6559 0001:0003798C 6560 0001:00037996 + 6563 0001:000379BA 6565 0001:000379BF 6567 0001:000379C8 6573 0001:000379CC + 6574 0001:000379D8 6576 0001:000379E1 6577 0001:000379EE 6578 0001:000379FC + 6579 0001:00037A0B 6580 0001:00037A19 6582 0001:00037A29 6583 0001:00037A38 + 6586 0001:00037A4A 6588 0001:00037A6D 6589 0001:00037A75 6591 0001:00037A7F + 6593 0001:00037A88 6599 0001:00037A90 6600 0001:00037A9F 6601 0001:00037AAE + 6602 0001:00037ABC 6603 0001:00037AD7 6604 0001:00037AEE 6605 0001:00037AFE + 6606 0001:00037B0D 6608 0001:00037B29 6609 0001:00037B31 6611 0001:00037B3B + 6612 0001:00037B46 6617 0001:00037B50 6618 0001:00037B62 6619 0001:00037B71 + 6620 0001:00037B7F 6621 0001:00037B88 6623 0001:00037BA0 6624 0001:00037BA8 + 6626 0001:00037BB2 6627 0001:00037BBA 6628 0001:00037BC5 6629 0001:00037BCE + 6643 0001:00037BD8 6644 0001:00037BE4 6645 0001:00037BF1 6646 0001:00037BFC + 6649 0001:00037C00 6650 0001:00037C0C 6651 0001:00037C18 6653 0001:00037C23 + 6654 0001:00037C2D 6657 0001:00037C34 6660 0001:00037C40 6663 0001:00037C44 + 6664 0001:00037C50 6665 0001:00037C5C 6667 0001:00037C67 6668 0001:00037C71 + 6671 0001:00037C78 6672 0001:00037C84 6673 0001:00037C8C 6674 0001:00037CAF + 6678 0001:00037CB4 6679 0001:00037CC4 6680 0001:00037CCE 6684 0001:00037CD4 + 6685 0001:00037CE3 6686 0001:00037CED 6723 0001:00037CF4 6724 0001:00037CF8 + 6725 0001:00037D02 6726 0001:00037D12 6728 0001:00037D1D 6729 0001:00037D31 + 6735 0001:00037D34 6736 0001:00037D3A 6737 0001:00037D3E 6738 0001:00037D48 + 6740 0001:00037D4E 6741 0001:00037D61 6742 0001:00037D72 6743 0001:00037D78 + 6745 0001:00037D86 6750 0001:00037D8C 6751 0001:00037D92 6752 0001:00037DA8 + 6753 0001:00037DB3 6754 0001:00037DBB 6757 0001:00037DC2 6758 0001:00037DD0 + 6759 0001:00037DE6 6762 0001:00037DEE 6788 0001:00037E60 6789 0001:00037E78 + 6790 0001:00037E9F 6793 0001:00037EA4 6794 0001:00037EB5 6795 0001:00037EBD + 6796 0001:00037ED7 6799 0001:00037EDC 6800 0001:00037EE3 6801 0001:00037EEF + 6804 0001:00037EF4 6805 0001:00037EFB 6806 0001:00037F07 6809 0001:00037F0C + 6810 0001:00037F1B 6811 0001:00037F23 6812 0001:00037F31 6815 0001:00037F3C + 6813 0001:00037F44 6816 0001:00037F60 6818 0001:00037F66 6819 0001:00037F73 + 6821 0001:00037F79 6822 0001:00037F84 6823 0001:00037F98 6824 0001:00037FA1 + 6826 0001:00037FAA 6829 0001:00037FC0 6831 0001:00037FD3 6836 0001:00037FD8 + 6837 0001:00037FEA 6838 0001:00037FF9 6841 0001:00038007 6842 0001:00038014 + 6843 0001:00038021 6845 0001:0003802C 6846 0001:00038039 6847 0001:00038047 + 6848 0001:00038072 6849 0001:00038077 6850 0001:0003807C 6851 0001:0003809F + 6849 0001:000380B4 6851 0001:000380BA 6848 0001:000380BD 6853 0001:000380C3 + 6856 0001:000380DA 6857 0001:000380E2 6859 0001:000380EF 6864 0001:000380F8 + 6867 0001:00038103 6868 0001:0003810C 6870 0001:00038112 6871 0001:0003811A + 6872 0001:00038128 6874 0001:00038140 6876 0001:00038150 6878 0001:00038164 + 6865 0001:0003816C 6880 0001:00038175 6887 0001:0003817C 6888 0001:00038188 + 6889 0001:00038191 6892 0001:000381B7 6893 0001:000381BF 6913 0001:000381C4 + 6914 0001:000381EB 6915 0001:000381F5 6916 0001:000381FF 6917 0001:00038204 + 6918 0001:0003820E 6919 0001:00038218 6920 0001:00038222 6921 0001:0003822C + 6922 0001:00038236 6923 0001:00038241 6924 0001:0003824B 6925 0001:00038294 + 6895 0001:00038298 6896 0001:000382A5 6897 0001:000382AA 6898 0001:000382B4 + 6899 0001:000382BE 6900 0001:000382CA 6901 0001:000382D6 6902 0001:000382E2 + 6903 0001:000382F3 6904 0001:000382F8 6905 0001:0003830D 6906 0001:00038322 + 6907 0001:00038337 6908 0001:00038348 6909 0001:00038359 6910 0001:0003836A + 6911 0001:0003837E 6912 0001:00038392 + +Line numbers for Math(Math.pas) segment .text + + 461 0001:00038394 462 0001:0003839D 463 0001:000383B6 464 0001:000383D4 + 590 0001:000383DC 591 0001:000383DF 592 0001:000383E1 593 0001:000383E2 + 594 0001:000383E4 595 0001:000383E6 596 0001:000383E8 597 0001:000383EA + 598 0001:000383ED 599 0001:000383EF 600 0001:000383F1 601 0001:000383F3 + 602 0001:000383F5 603 0001:000383F7 604 0001:000383F9 605 0001:000383FB + 606 0001:000383FE 607 0001:00038400 608 0001:00038402 610 0001:00038404 + 611 0001:00038405 1099 0001:0003840C 1100 0001:00038418 1101 0001:00038420 + 1103 0001:00038428 1104 0001:00038431 1159 0001:00038438 1160 0001:00038444 + 1161 0001:0003844C 1163 0001:00038454 1164 0001:0003845D 2166 0001:00038494 + 2166 0001:0003849B + +Line numbers for Contnrs(Contnrs.pas) segment .text + + 237 0001:00038638 238 0001:00038644 239 0001:00038655 242 0001:0003865C + 243 0001:00038674 244 0001:0003867E 245 0001:000386A0 248 0001:000386A4 + 249 0001:000386BF 250 0001:000386C9 251 0001:000386ED 254 0001:000386F4 + 255 0001:00038700 256 0001:00038711 281 0001:00038718 282 0001:00038724 + 283 0001:00038735 286 0001:0003873C 287 0001:00038748 288 0001:00038759 + 291 0001:00038760 292 0001:0003876F 293 0001:0003877D 301 0001:00038784 + 302 0001:00038793 303 0001:0003879C 304 0001:000387A2 305 0001:000387AA + 306 0001:000387B8 309 0001:000387BC 310 0001:000387C8 311 0001:000387D9 + 336 0001:000388A0 337 0001:000388B0 338 0001:000388C0 339 0001:000388CF + 340 0001:000388DD 345 0001:000388E4 346 0001:000388F0 347 0001:00038901 + 350 0001:00038908 351 0001:00038919 352 0001:00038927 353 0001:00038940 + 356 0001:00038944 357 0001:00038950 358 0001:00038961 366 0001:00038968 + 367 0001:00038974 368 0001:00038985 371 0001:0003898C 372 0001:0003899B + 373 0001:000389A6 376 0001:000389AC 377 0001:000389B8 378 0001:000389C9 + 391 0001:000389D0 392 0001:000389DF 394 0001:000389E8 395 0001:000389FC + 397 0001:00038A0F 399 0001:00038A1C 400 0001:00038A22 403 0001:00038A32 + 404 0001:00038A38 406 0001:00038A46 407 0001:00038A54 410 0001:00038A58 + 411 0001:00038A64 412 0001:00038A75 479 0001:00038A7C 480 0001:00038A85 + 481 0001:00038A93 484 0001:00038A98 485 0001:00038AA4 486 0001:00038AAE + 487 0001:00038AB7 495 0001:00038ABC 496 0001:00038AD4 497 0001:00038ADE + 498 0001:00038B0B 501 0001:00038B10 502 0001:00038B21 503 0001:00038B2C + 504 0001:00038B48 507 0001:00038B4C 508 0001:00038B55 509 0001:00038B70 + 512 0001:00038B74 513 0001:00038B7D 514 0001:00038B88 515 0001:00038BA0 + 520 0001:00038BA4 521 0001:00038BB0 522 0001:00038BBE 799 0001:00038BF4 + 799 0001:00038BFB + +Line numbers for CommCtrl(CommCtrl.pas) segment .text + + 7328 0001:00038BFC 7331 0001:00038C04 7332 0001:00038C07 7334 0001:00038C10 + 7335 0001:00038C1F 7336 0001:00038C28 7338 0001:00038C3D 7341 0001:00038C68 + 7342 0001:00038C71 7343 0001:00038C7F 7344 0001:00038CA6 7356 0001:00038CAC + 7357 0001:00038CB4 7358 0001:00038CBC 7360 0001:00038CC4 7361 0001:00038CCC + 7362 0001:00038CD4 7363 0001:00038CDC 7364 0001:00038CE4 7367 0001:00038CEC + 7368 0001:00038CF8 7369 0001:00038D0D 7372 0001:00038D14 7373 0001:00038D1D + 7374 0001:00038D29 7376 0001:00038D30 7378 0001:00038D38 7380 0001:00038D40 + 7382 0001:00038D48 7388 0001:00038D50 7389 0001:00038D58 7390 0001:00038D60 + 7391 0001:00038D68 7392 0001:00038D70 7393 0001:00038D78 7394 0001:00038D80 + 7395 0001:00038D88 7416 0001:00038D90 7417 0001:00038D98 7419 0001:00038DA0 + 7420 0001:00038DA8 7444 0001:00038DB0 7445 0001:00038DBF 7446 0001:00038DDB + 7464 0001:00038DE0 7465 0001:00038DEC 7466 0001:00038E06 7489 0001:00038E0C + 7490 0001:00038E1B 7491 0001:00038E37 7551 0001:00038E3C 7552 0001:00038E48 + 7553 0001:00038E62 7561 0001:00038E68 7562 0001:00038E77 7563 0001:00038E93 + 7566 0001:00038E98 7567 0001:00038EA1 7568 0001:00038EB9 7571 0001:00038EC0 + 7572 0001:00038EC9 7573 0001:00038ED5 7576 0001:00038EDC 7577 0001:00038EE8 + 7578 0001:00038F02 7589 0001:00038F08 7590 0001:00038F14 7591 0001:00038F2E + 7602 0001:00038F34 7603 0001:00038F40 7604 0001:00038F5A 7615 0001:00038F60 + 7616 0001:00038F6C 7617 0001:00038F86 7620 0001:00038F8C 7621 0001:00038F95 + 7622 0001:00038FAD 7635 0001:00038FB4 7636 0001:00038FC3 7637 0001:00038FE7 + 7641 0001:00038FEC 7642 0001:00038FFB 7643 0001:00039017 7657 0001:0003901C + 7658 0001:0003902B 7660 0001:00039032 7661 0001:0003903A 7664 0001:00039055 + 7665 0001:0003906F 7692 0001:00039078 7693 0001:00039084 7694 0001:0003909E + 7697 0001:000390A4 7698 0001:000390B3 7700 0001:000390E0 7703 0001:000390E4 + 7704 0001:000390F3 7705 0001:0003910F 7708 0001:00039114 7709 0001:00039123 + 7710 0001:0003913F 7713 0001:00039144 7714 0001:00039150 7715 0001:0003916A + 7731 0001:00039170 7732 0001:00039179 7733 0001:00039191 7749 0001:00039198 + 7750 0001:000391A7 7751 0001:000391C3 7762 0001:000391C8 7763 0001:000391D7 + 7764 0001:000391F3 7775 0001:000391F8 7776 0001:00039204 7777 0001:0003921E + 7780 0001:00039224 7781 0001:00039230 7782 0001:0003924A 7785 0001:00039250 + 7786 0001:0003925F 7788 0001:00039283 7797 0001:00039288 7798 0001:00039297 + 7800 0001:000392B3 7813 0001:000392B8 7814 0001:000392C4 7815 0001:000392DE + 7823 0001:000392E4 7824 0001:000392F0 7825 0001:0003930A 7828 0001:00039310 + 7829 0001:00039319 7830 0001:00039331 7833 0001:00039338 7834 0001:00039341 + 7835 0001:00039359 7838 0001:00039360 7839 0001:0003936C 7840 0001:00039386 + 7843 0001:0003938C 7844 0001:00039398 7845 0001:000393BB 7850 0001:000393C0 + 7851 0001:000393CF 7852 0001:000393D5 7853 0001:000393DB 7854 0001:000393F7 + 7857 0001:00039400 7858 0001:0003940F 7859 0001:0003942B 7862 0001:00039430 + 7863 0001:0003943C 7864 0001:0003945D 7869 0001:00039464 7870 0001:00039473 + 7871 0001:0003947A 7872 0001:00039487 7873 0001:0003949D 7910 0001:000394A4 + 7911 0001:000394B3 7912 0001:000394B9 7913 0001:000394BF 7914 0001:000394DB + 7935 0001:000394E4 7936 0001:000394F0 7937 0001:00039504 7940 0001:00039508 + 7941 0001:00039517 7942 0001:0003952D 7946 0001:00039534 7947 0001:00039543 + 7949 0001:0003955F 7961 0001:00039564 7962 0001:0003956D 7963 0001:00039585 + 7992 0001:0003958C 7993 0001:00039598 7994 0001:000395B2 8019 0001:000395B8 + 8020 0001:000395C7 8022 0001:000395E3 8026 0001:000395E8 8027 0001:000395F7 + 8029 0001:00039613 8059 0001:00039618 8060 0001:00039627 8061 0001:00039643 + 8079 0001:00039648 8080 0001:00039654 8081 0001:0003966E 8084 0001:00039674 + 8085 0001:0003967D 8086 0001:00039695 8116 0001:0003969C 8117 0001:000396A8 + 8118 0001:000396C2 8121 0001:000396C8 8122 0001:000396D4 8123 0001:000396EE + 8126 0001:000396F4 8127 0001:000396FD 8128 0001:00039718 8131 0001:0003971C + 8132 0001:0003972B 8133 0001:00039747 8137 0001:0003974C 8138 0001:0003975B + 8139 0001:00039763 8140 0001:0003977F 8143 0001:00039788 8144 0001:00039791 + 8145 0001:000397A9 8148 0001:000397B0 8149 0001:000397B9 8150 0001:000397D1 + 8153 0001:000397D8 8154 0001:000397E4 8155 0001:000397FE 8164 0001:00039804 + 8165 0001:00039813 8167 0001:0003982F 8171 0001:00039834 8172 0001:00039843 + 8174 0001:0003985F 8177 0001:00039864 8178 0001:00039870 8179 0001:00039886 + 8182 0001:0003988C 8183 0001:00039898 8184 0001:000398AE 8187 0001:000398B4 + 8188 0001:000398C0 8189 0001:000398D6 8192 0001:000398DC 8193 0001:000398E8 + 8194 0001:000398FE 8197 0001:00039904 8198 0001:0003990D 8199 0001:00039922 + 8202 0001:00039928 8203 0001:00039934 8204 0001:0003994A 8207 0001:00039950 + 8208 0001:0003995C 8209 0001:00039972 8212 0001:00039978 8213 0001:00039981 + 8214 0001:00039996 8217 0001:0003999C 8218 0001:000399A5 8219 0001:000399BA + 8222 0001:000399C0 8223 0001:000399C9 8224 0001:000399DB 8233 0001:000399E0 + 8234 0001:000399EF 8236 0001:00039A0B 8239 0001:00039A10 8240 0001:00039A1C + 8241 0001:00039A32 8244 0001:00039A38 8245 0001:00039A44 8246 0001:00039A5A + 8249 0001:00039A60 8250 0001:00039A6C 8251 0001:00039A82 8254 0001:00039A88 + 8255 0001:00039A94 8256 0001:00039AAE 8267 0001:00039AB4 8268 0001:00039AC0 + 8269 0001:00039ADA 8293 0001:00039AE0 8294 0001:00039AE9 8295 0001:00039B01 + 8303 0001:00039B08 8304 0001:00039B14 8305 0001:00039B2E 8308 0001:00039B34 + 8309 0001:00039B40 8311 0001:00039B5A 8321 0001:00039B60 8322 0001:00039B6C + 8323 0001:00039B86 8327 0001:00039B8C 8328 0001:00039B9B 8330 0001:00039BB7 + 8390 0001:00039BBC 8391 0001:00039BC8 8392 0001:00039BE2 8395 0001:00039BE8 + 8396 0001:00039BF4 8397 0001:00039C0E 8572 0001:00039C14 8573 0001:00039C20 + 8574 0001:00039C3A 8582 0001:00039C40 8583 0001:00039C4C 8584 0001:00039C66 + 8592 0001:00039C6C 8593 0001:00039C78 8594 0001:00039C92 8607 0001:00039C98 + 8608 0001:00039CA4 8609 0001:00039CBE 8627 0001:00039CC4 8628 0001:00039CD3 + 8629 0001:00039CEF 8637 0001:00039CF4 8638 0001:00039D00 8639 0001:00039D1A + 8652 0001:00039D20 8653 0001:00039D2F 8654 0001:00039D4B 8662 0001:00039D50 + 8663 0001:00039D5C 8664 0001:00039D76 8860 0001:00039DAC 8860 0001:00039DB3 + +Line numbers for MultiMon(MultiMon.pas) segment .text + + 211 0001:00039DB4 212 0001:00039DD9 213 0001:00039DDE 215 0001:00039DF0 + 217 0001:00039DF9 219 0001:00039E08 220 0001:00039E1F 221 0001:00039E28 + 223 0001:00039E30 224 0001:00039E49 225 0001:00039E4E 226 0001:00039E54 + 227 0001:00039E5C 228 0001:00039E62 229 0001:00039E69 231 0001:00039E95 + 234 0001:00039EB4 235 0001:00039EB8 237 0001:00039EC1 238 0001:00039ED8 + 239 0001:00039EE5 242 0001:00039EE7 243 0001:00039EEE 246 0001:00039F04 + 249 0001:00039F0D 251 0001:00039F14 253 0001:00039F1B 255 0001:00039F22 + 256 0001:00039F28 257 0001:00039F37 260 0001:00039F58 261 0001:00039F5C + 263 0001:00039F65 264 0001:00039F7C 265 0001:00039F8D 268 0001:00039F8F + 269 0001:00039F94 274 0001:00039FCF 275 0001:00039FD9 280 0001:00039FF8 + 281 0001:00039FFE 283 0001:0003A007 284 0001:0003A01E 285 0001:0003A02F + 288 0001:0003A031 289 0001:0003A03B 292 0001:0003A044 293 0001:0003A051 + 295 0001:0003A060 296 0001:0003A06D 298 0001:0003A080 301 0001:0003A0A4 + 302 0001:0003A0A8 304 0001:0003A0B1 305 0001:0003A0C8 306 0001:0003A0DB + 309 0001:0003A0DD 310 0001:0003A0E2 315 0001:0003A112 316 0001:0003A11C + 321 0001:0003A140 322 0001:0003A148 324 0001:0003A151 325 0001:0003A168 + 326 0001:0003A179 329 0001:0003A17E 330 0001:0003A182 334 0001:0003A1B0 + 335 0001:0003A1B8 336 0001:0003A1C0 337 0001:0003A1CE 338 0001:0003A1DC + 339 0001:0003A1E9 340 0001:0003A1F3 341 0001:0003A1FB 342 0001:0003A20C + 344 0001:0003A213 348 0001:0003A23C 349 0001:0003A244 351 0001:0003A24D + 352 0001:0003A264 353 0001:0003A275 356 0001:0003A27A 357 0001:0003A27E + 361 0001:0003A2AC 362 0001:0003A2B4 363 0001:0003A2BC 364 0001:0003A2CA + 365 0001:0003A2D8 366 0001:0003A2E5 367 0001:0003A2EF 368 0001:0003A2F7 + 369 0001:0003A308 371 0001:0003A30F 375 0001:0003A338 376 0001:0003A340 + 378 0001:0003A349 379 0001:0003A360 380 0001:0003A371 383 0001:0003A376 + 384 0001:0003A37A 388 0001:0003A3A8 389 0001:0003A3B0 390 0001:0003A3B8 + 391 0001:0003A3C6 392 0001:0003A3D4 393 0001:0003A3E1 394 0001:0003A3EB + 395 0001:0003A3F3 396 0001:0003A404 398 0001:0003A40B 406 0001:0003A434 + 407 0001:0003A43A 409 0001:0003A443 410 0001:0003A45A 411 0001:0003A473 + 414 0001:0003A478 415 0001:0003A47C 417 0001:0003A486 418 0001:0003A48B + 419 0001:0003A490 420 0001:0003A49B 422 0001:0003A4A6 424 0001:0003A4AC + 425 0001:0003A4BC 426 0001:0003A4D1 427 0001:0003A4E6 431 0001:0003A516 + 432 0001:0003A520 435 0001:0003A522 438 0001:0003A53D 439 0001:0003A541 + 441 0001:0003A543 442 0001:0003A55D 445 0001:0003A580 446 0001:0003A583 + 447 0001:0003A592 448 0001:0003A59C 449 0001:0003A5A6 450 0001:0003A5B0 + 451 0001:0003A5BA 452 0001:0003A5C4 453 0001:0003A5CE 454 0001:0003A5D8 + 455 0001:0003A5E2 457 0001:0003A620 458 0001:0003A62C 460 0001:0003A631 + +Line numbers for Imm(Imm.pas) segment .text + + 888 0001:0003A664 888 0001:0003A66B + +Line numbers for HelpIntfs(HelpIntfs.pas) segment .text + + 245 0001:0003A89C 262 0001:0003AA30 263 0001:0003AA5A 264 0001:0003AA63 + 266 0001:0003AA74 267 0001:0003AA8F 268 0001:0003AAB4 271 0001:0003AAB8 + 272 0001:0003AACC 273 0001:0003AAD5 275 0001:0003AAE6 276 0001:0003AB00 + 277 0001:0003AB08 282 0001:0003AB1C 283 0001:0003AB37 284 0001:0003AB60 + 289 0001:0003AB64 290 0001:0003AB7C 291 0001:0003AB86 292 0001:0003AB98 + 293 0001:0003ABAA 294 0001:0003ABBC 295 0001:0003ABC7 296 0001:0003ABEC + 303 0001:0003ABF0 305 0001:0003AC16 306 0001:0003AC28 307 0001:0003AC34 + 308 0001:0003AC4B 311 0001:0003AC59 313 0001:0003AC74 314 0001:0003AC86 + 315 0001:0003AC92 319 0001:0003ACA9 321 0001:0003ACC4 322 0001:0003ACD6 + 323 0001:0003ACE2 326 0001:0003ACF9 327 0001:0003ACFF 328 0001:0003AD3B + 331 0001:0003AD50 333 0001:0003AD59 332 0001:0003AD76 334 0001:0003AD82 + 335 0001:0003AD8D 336 0001:0003AD98 337 0001:0003ADA3 342 0001:0003ADA8 + 346 0001:0003ADB1 347 0001:0003ADCA 346 0001:0003ADE3 348 0001:0003ADE8 + 355 0001:0003ADEC 358 0001:0003AE09 360 0001:0003AE15 361 0001:0003AE32 + 364 0001:0003AE4C 366 0001:0003AE59 367 0001:0003AE68 369 0001:0003AE76 + 371 0001:0003AE8F 372 0001:0003AEA0 373 0001:0003AEAF 374 0001:0003AECB + 369 0001:0003AECE 378 0001:0003AED3 380 0001:0003AEDE 381 0001:0003AEE9 + 382 0001:0003AEFA 386 0001:0003AF0F 389 0001:0003AF2E 393 0001:0003AF3E + 396 0001:0003AF63 400 0001:0003AF7A 401 0001:0003AFAD 409 0001:0003AFB4 + 410 0001:0003AFDD 411 0001:0003AFE1 412 0001:0003AFE7 415 0001:0003AFF5 + 418 0001:0003B005 420 0001:0003B011 421 0001:0003B029 428 0001:0003B055 + 429 0001:0003B06D 433 0001:0003B0CA 449 0001:0003B0E4 451 0001:0003B10A + 452 0001:0003B10F 456 0001:0003B114 457 0001:0003B11A 463 0001:0003B128 + 465 0001:0003B138 467 0001:0003B151 468 0001:0003B16D 470 0001:0003B173 + 471 0001:0003B179 473 0001:0003B17C 465 0001:0003B17F 476 0001:0003B184 + 477 0001:0003B18A 480 0001:0003B1B5 481 0001:0003B1BB 484 0001:0003B1D4 + 486 0001:0003B1DE 493 0001:0003B1ED 495 0001:0003B20A 496 0001:0003B21B + 497 0001:0003B22C 499 0001:0003B232 500 0001:0003B243 501 0001:0003B25B + 500 0001:0003B27A 502 0001:0003B27F 504 0001:0003B287 493 0001:0003B28A + 506 0001:0003B293 508 0001:0003B29C 511 0001:0003B2A7 515 0001:0003B2B8 + 517 0001:0003B2BE 518 0001:0003B2CC 519 0001:0003B2DA 528 0001:0003B2EA + 529 0001:0003B2F7 530 0001:0003B304 533 0001:0003B312 536 0001:0003B33F + 542 0001:0003B344 543 0001:0003B36D 544 0001:0003B373 547 0001:0003B381 + 548 0001:0003B38D 557 0001:0003B3A5 559 0001:0003B3BE 560 0001:0003B3D7 + 562 0001:0003B3F9 563 0001:0003B417 565 0001:0003B419 557 0001:0003B41C + 567 0001:0003B451 570 0001:0003B468 571 0001:0003B46F 572 0001:0003B477 + 578 0001:0003B47C 579 0001:0003B4A5 580 0001:0003B4AB 582 0001:0003B4B9 + 583 0001:0003B4C5 589 0001:0003B4DD 591 0001:0003B4F6 592 0001:0003B50F + 594 0001:0003B52E 595 0001:0003B549 597 0001:0003B54B 589 0001:0003B54E + 599 0001:0003B583 602 0001:0003B598 603 0001:0003B5BA 604 0001:0003B5C3 + 605 0001:0003B5CE 606 0001:0003B5F9 610 0001:0003B600 611 0001:0003B625 + 612 0001:0003B639 614 0001:0003B64E 616 0001:0003B65E 618 0001:0003B668 + 620 0001:0003B672 622 0001:0003B689 623 0001:0003B6AD 628 0001:0003B6B4 + 629 0001:0003B6BD 630 0001:0003B6C9 633 0001:0003B6D0 634 0001:0003B6DC + 635 0001:0003B6EA 640 0001:0003B6F0 641 0001:0003B6FC 643 0001:0003B70E + 644 0001:0003B724 645 0001:0003B732 641 0001:0003B735 646 0001:0003B73B + 648 0001:0003B74D 649 0001:0003B763 650 0001:0003B771 646 0001:0003B774 + 651 0001:0003B77A 653 0001:0003B78C 654 0001:0003B7A2 655 0001:0003B7B0 + 651 0001:0003B7B3 656 0001:0003B7B9 659 0001:0003B7C0 660 0001:0003B7D1 + 661 0001:0003B7D9 662 0001:0003B7E2 663 0001:0003B7ED 664 0001:0003B7F8 + 665 0001:0003B803 666 0001:0003B80E 667 0001:0003B82A 671 0001:0003B830 + 672 0001:0003B852 673 0001:0003B86E 669 0001:0003B870 670 0001:0003B87A + +Line numbers for WinSpool(WinSpool.pas) segment .text + + 1750 0001:0003B87C 1783 0001:0003B884 1806 0001:0003B88C 1840 0001:0003B894 + 1874 0001:0003B8CC 1874 0001:0003B8D3 + +Line numbers for Printers(Printers.pas) segment .text + + 151 0001:0003B994 152 0001:0003B99D 153 0001:0003B9A5 154 0001:0003B9AD + 155 0001:0003B9B7 156 0001:0003B9C2 157 0001:0003B9CA 158 0001:0003B9DD + 160 0001:0003B9E5 161 0001:0003B9EB 163 0001:0003B9EE 164 0001:0003B9F9 + 167 0001:0003BA00 168 0001:0003BA07 169 0001:0003BA1B 172 0001:0003BA20 + 173 0001:0003BA24 174 0001:0003BA30 175 0001:0003BA44 404 0001:0003BACC + 405 0001:0003BAE7 406 0001:0003BAF1 407 0001:0003BAFF 408 0001:0003BB0D + 409 0001:0003BB36 412 0001:0003BB3C 413 0001:0003BB62 414 0001:0003BBCF + 428 0001:0003BCC8 429 0001:0003BCE3 430 0001:0003BCED 431 0001:0003BD11 + 434 0001:0003BD18 435 0001:0003BD1F 436 0001:0003BD2C 437 0001:0003BD34 + 438 0001:0003BD45 441 0001:0003BD48 442 0001:0003BD4F 443 0001:0003BD5C + 444 0001:0003BD64 445 0001:0003BD6C 450 0001:0003BD70 451 0001:0003BD79 + 453 0001:0003BD95 454 0001:0003BDA3 455 0001:0003BDBD 457 0001:0003BDCB + 462 0001:0003BDD0 463 0001:0003BDE8 464 0001:0003BDF2 465 0001:0003BE17 + 468 0001:0003BE1C 469 0001:0003BE2D 470 0001:0003BE3E 471 0001:0003BE48 + 472 0001:0003BE50 473 0001:0003BE58 474 0001:0003BE63 475 0001:0003BE78 + 477 0001:0003BE81 478 0001:0003BE8D 479 0001:0003BE99 481 0001:0003BEA1 + 482 0001:0003BEBD 490 0001:0003BEC4 491 0001:0003BEE3 493 0001:0003BEF2 + 494 0001:0003BEF7 497 0001:0003BF09 498 0001:0003BF13 499 0001:0003BF29 + 500 0001:0003BF35 503 0001:0003BF3F 504 0001:0003BF54 507 0001:0003BF56 + 508 0001:0003BF6C 509 0001:0003BF81 512 0001:0003BF89 513 0001:0003BF93 + 515 0001:0003BFAD 516 0001:0003BFE1 517 0001:0003BFFF 519 0001:0003C019 + 521 0001:0003C03F 524 0001:0003C044 525 0001:0003C066 526 0001:0003C071 + 527 0001:0003C08E 528 0001:0003C0C5 541 0001:0003C0CC 542 0001:0003C0D5 + 543 0001:0003C0DF 544 0001:0003C0E9 545 0001:0003C0F6 546 0001:0003C103 + 547 0001:0003C10A 548 0001:0003C111 549 0001:0003C11B 552 0001:0003C12A + 553 0001:0003C131 555 0001:0003C13F 556 0001:0003C150 557 0001:0003C160 + 558 0001:0003C16C 561 0001:0003C170 562 0001:0003C177 563 0001:0003C181 + 564 0001:0003C18D 565 0001:0003C1A2 566 0001:0003C1A9 567 0001:0003C1B0 + 568 0001:0003C1B8 571 0001:0003C1BC 572 0001:0003C1C3 573 0001:0003C1CD + 574 0001:0003C1D9 575 0001:0003C1E5 576 0001:0003C1EB 577 0001:0003C1F8 + 580 0001:0003C1FC 581 0001:0003C20B 583 0001:0003C225 584 0001:0003C23A + 585 0001:0003C24F 587 0001:0003C264 588 0001:0003C26F 591 0001:0003C278 + 592 0001:0003C284 593 0001:0003C290 594 0001:0003C296 595 0001:0003C29D + 596 0001:0003C2A3 597 0001:0003C2AA 598 0001:0003C2B0 599 0001:0003C2B7 + 605 0001:0003C2C0 606 0001:0003C2EF 607 0001:0003C2F9 609 0001:0003C304 + 611 0001:0003C30D 612 0001:0003C319 614 0001:0003C325 616 0001:0003C32E + 618 0001:0003C337 619 0001:0003C349 621 0001:0003C35A 622 0001:0003C362 + 624 0001:0003C36B 625 0001:0003C377 627 0001:0003C37F 628 0001:0003C389 + 629 0001:0003C390 630 0001:0003C39B 632 0001:0003C3B3 634 0001:0003C3D1 + 635 0001:0003C3E7 636 0001:0003C3ED 638 0001:0003C3EF 630 0001:0003C3F2 + 639 0001:0003C3F7 641 0001:0003C401 642 0001:0003C40F 645 0001:0003C486 + 646 0001:0003C48F 648 0001:0003C4A9 650 0001:0003C4B6 653 0001:0003C4E6 + 655 0001:0003C4EF 656 0001:0003C501 659 0001:0003C527 660 0001:0003C533 + 661 0001:0003C53F 665 0001:0003C547 666 0001:0003C550 668 0001:0003C586 + 671 0001:0003C590 672 0001:0003C599 673 0001:0003C5B7 674 0001:0003C5C3 + 698 0001:0003C5C8 699 0001:0003C5D1 700 0001:0003C5DB 701 0001:0003C5E7 + 704 0001:0003C5EC 705 0001:0003C608 706 0001:0003C610 707 0001:0003C62E + 708 0001:0003C65B 711 0001:0003C660 712 0001:0003C67F 713 0001:0003C689 + 714 0001:0003C691 715 0001:0003C6AF 716 0001:0003C6B9 717 0001:0003C6E4 + 740 0001:0003C6E8 741 0001:0003C6F1 742 0001:0003C6FB 743 0001:0003C70F + 746 0001:0003C714 747 0001:0003C71D 748 0001:0003C727 749 0001:0003C73B + 752 0001:0003C740 753 0001:0003C749 754 0001:0003C75A 755 0001:0003C766 + 774 0001:0003C76C 775 0001:0003C791 777 0001:0003C79E 778 0001:0003C7B0 + 779 0001:0003C7B9 780 0001:0003C7C7 782 0001:0003C7D1 783 0001:0003C7D8 + 787 0001:0003C7DE 788 0001:0003C7E5 790 0001:0003C7E9 791 0001:0003C7EE + 792 0001:0003C80B 793 0001:0003C81E 794 0001:0003C829 795 0001:0003C837 + 796 0001:0003C85C 797 0001:0003C86E 798 0001:0003C874 800 0001:0003C88B + 801 0001:0003C891 804 0001:0003C897 805 0001:0003C8CA 808 0001:0003C8D3 + 810 0001:0003C8D9 811 0001:0003C8E2 815 0001:0003C8EF 816 0001:0003C94E + 812 0001:0003C959 818 0001:0003C961 820 0001:0003C965 798 0001:0003C968 + 822 0001:0003C97E 825 0001:0003C9A0 826 0001:0003C9AB 827 0001:0003C9B3 + 830 0001:0003C9BD 831 0001:0003C9EB 840 0001:0003C9F4 841 0001:0003CA22 + 842 0001:0003CA27 843 0001:0003CA2C 848 0001:0003CA51 849 0001:0003CA5B + 851 0001:0003CA78 853 0001:0003CA7D 854 0001:0003CA88 856 0001:0003CA96 + 857 0001:0003CAB1 858 0001:0003CAB7 861 0001:0003CAC1 862 0001:0003CAE1 + 863 0001:0003CAEA 865 0001:0003CAF5 866 0001:0003CB00 868 0001:0003CB1C + 870 0001:0003CB49 871 0001:0003CB57 872 0001:0003CB87 874 0001:0003CB8E + 866 0001:0003CB91 876 0001:0003CBA3 878 0001:0003CBB3 879 0001:0003CBF3 + 884 0001:0003CC0C 885 0001:0003CC15 887 0001:0003CC1E 888 0001:0003CC39 + 887 0001:0003CC4F 889 0001:0003CC54 891 0001:0003CC5F 894 0001:0003CC64 + 895 0001:0003CC6B 896 0001:0003CC76 899 0001:0003CC7C 900 0001:0003CC80 + 901 0001:0003CC9A 902 0001:0003CCA5 919 0001:0003CCA8 920 0001:0003CCE0 + 916 0001:0003CCE4 918 0001:0003CCEE + +Line numbers for FlatSB(FlatSB.pas) segment .text + + 74 0001:0003CCF0 75 0001:0003CCF4 77 0001:0003CD27 80 0001:0003CD2C + 81 0001:0003CD30 82 0001:0003CD57 99 0001:0003CD5C 104 0001:0003CD60 + 106 0001:0003CD6D 108 0001:0003CD77 109 0001:0003CD8A 110 0001:0003CD9D + 111 0001:0003CDB0 112 0001:0003CDC3 113 0001:0003CDD6 114 0001:0003CDDF + 115 0001:0003CDE9 116 0001:0003CDFC 117 0001:0003CE05 118 0001:0003CE0F + 119 0001:0003CE22 120 0001:0003CE2B 121 0001:0003CE35 122 0001:0003CE48 + 123 0001:0003CE51 124 0001:0003CE5B 125 0001:0003CE6E 126 0001:0003CE77 + 127 0001:0003CE81 128 0001:0003CE94 129 0001:0003CE9D 130 0001:0003CEA7 + 131 0001:0003CEBA 132 0001:0003CEC3 133 0001:0003CECD 134 0001:0003CEE0 + 135 0001:0003CEE9 137 0001:0003CEF3 139 0001:0003D048 140 0001:0003D054 + 142 0001:0003D059 + +Line numbers for SyncObjs(SyncObjs.pas) segment .text + + 88 0001:0003D128 89 0001:0003D12F 92 0001:0003D134 93 0001:0003D13B + 194 0001:0003D140 195 0001:0003D158 196 0001:0003D162 197 0001:0003D189 + 200 0001:0003D190 201 0001:0003D1A1 202 0001:0003D1AD 203 0001:0003D1C9 + 206 0001:0003D1D0 207 0001:0003D1D7 208 0001:0003D1E3 211 0001:0003D1E8 + 212 0001:0003D1EF 213 0001:0003D1FB 216 0001:0003D200 217 0001:0003D207 + 218 0001:0003D20E 221 0001:0003D214 222 0001:0003D21B 223 0001:0003D223 + 225 0001:0003D258 225 0001:0003D25F + +Line numbers for UxTheme(UxTheme.pas) segment .text + + 2445 0001:0003D260 2446 0001:0003D263 2447 0001:0003D26D 2448 0001:0003D27B + 2449 0001:0003D284 2451 0001:0003D28A 2453 0001:0003D2A4 2454 0001:0003D2AF + 2456 0001:0003D2B6 2457 0001:0003D2BD 2458 0001:0003D2C4 2459 0001:0003D2CB + 2460 0001:0003D2D2 2461 0001:0003D2D9 2462 0001:0003D2E0 2463 0001:0003D2E7 + 2464 0001:0003D2EE 2465 0001:0003D2F5 2466 0001:0003D2FC 2467 0001:0003D303 + 2468 0001:0003D30A 2469 0001:0003D311 2470 0001:0003D318 2471 0001:0003D31F + 2472 0001:0003D326 2473 0001:0003D32D 2474 0001:0003D334 2475 0001:0003D33B + 2476 0001:0003D342 2477 0001:0003D349 2478 0001:0003D350 2479 0001:0003D357 + 2480 0001:0003D35E 2481 0001:0003D365 2482 0001:0003D36C 2483 0001:0003D373 + 2484 0001:0003D37A 2485 0001:0003D381 2486 0001:0003D388 2487 0001:0003D38F + 2488 0001:0003D396 2489 0001:0003D39D 2490 0001:0003D3A4 2491 0001:0003D3AB + 2492 0001:0003D3B2 2493 0001:0003D3B9 2494 0001:0003D3C0 2495 0001:0003D3C7 + 2496 0001:0003D3CE 2497 0001:0003D3D5 2498 0001:0003D3DC 2499 0001:0003D3E3 + 2500 0001:0003D3EA 2501 0001:0003D3F1 2502 0001:0003D3F8 2505 0001:0003D40C + 2507 0001:0003D41E 2510 0001:0003D420 2511 0001:0003D424 2512 0001:0003D42E + 2513 0001:0003D43C 2515 0001:0003D442 2517 0001:0003D44F 2518 0001:0003D45E + 2520 0001:0003D46B 2521 0001:0003D480 2522 0001:0003D495 2523 0001:0003D4AA + 2524 0001:0003D4BF 2525 0001:0003D4D4 2526 0001:0003D4E9 2527 0001:0003D4FE + 2528 0001:0003D513 2529 0001:0003D528 2530 0001:0003D53D 2531 0001:0003D552 + 2532 0001:0003D567 2533 0001:0003D57C 2534 0001:0003D591 2535 0001:0003D5A6 + 2536 0001:0003D5BB 2537 0001:0003D5D0 2538 0001:0003D5E5 2539 0001:0003D5FA + 2540 0001:0003D60F 2541 0001:0003D624 2542 0001:0003D639 2543 0001:0003D64E + 2544 0001:0003D663 2545 0001:0003D678 2546 0001:0003D68D 2547 0001:0003D6A2 + 2548 0001:0003D6B7 2549 0001:0003D6CC 2550 0001:0003D6E1 2551 0001:0003D6F6 + 2552 0001:0003D70B 2553 0001:0003D720 2554 0001:0003D735 2555 0001:0003D74A + 2556 0001:0003D75F 2557 0001:0003D774 2558 0001:0003D789 2559 0001:0003D79E + 2560 0001:0003D7B3 2561 0001:0003D7C8 2562 0001:0003D7DD 2563 0001:0003D7F2 + 2564 0001:0003D807 2565 0001:0003D81C 2566 0001:0003D831 2569 0001:0003D846 + 2571 0001:0003D85E 2573 0001:0003D873 2576 0001:0003DC18 2577 0001:0003DC1C + 2578 0001:0003DC25 2580 0001:0003DC44 2581 0001:0003DC4B 2586 0001:0003DC50 + 2587 0001:0003DC72 2586 0001:0003DC77 2588 0001:0003DC80 2589 0001:0003DC9F + 2583 0001:0003DCA4 2584 0001:0003DCB0 2585 0001:0003DCC1 + +Line numbers for RichEdit(RichEdit.pas) segment .text + + 1206 0001:0003DCF4 1206 0001:0003DCFB + +Line numbers for ToolWin(ToolWin.pas) segment .text + + 92 0001:0003E09C 93 0001:0003E0B7 94 0001:0003E0C4 95 0001:0003E0D3 + 96 0001:0003E0DD 97 0001:0003E102 100 0001:0003E10C 101 0001:0003E118 + 103 0001:0003E126 104 0001:0003E132 106 0001:0003E13A 109 0001:0003E140 + 110 0001:0003E14C 112 0001:0003E15A 113 0001:0003E166 115 0001:0003E16E + 118 0001:0003E174 119 0001:0003E180 121 0001:0003E18E 122 0001:0003E19A + 124 0001:0003E1A2 133 0001:0003E1A8 134 0001:0003E1B4 135 0001:0003E1C6 + 136 0001:0003E1D8 137 0001:0003E1EE 138 0001:0003E203 140 0001:0003E21C + 141 0001:0003E231 144 0001:0003E282 145 0001:0003E29B 146 0001:0003E2B7 + 151 0001:0003E2BC 152 0001:0003E2C8 154 0001:0003E2D1 155 0001:0003E2F2 + 156 0001:0003E2F7 157 0001:0003E306 158 0001:0003E315 160 0001:0003E31B + 161 0001:0003E32F 162 0001:0003E344 163 0001:0003E359 166 0001:0003E36E + 167 0001:0003E379 172 0001:0003E380 174 0001:0003E38C 175 0001:0003E39D + 176 0001:0003E3AB 178 0001:0003E3C6 180 0001:0003E3E0 183 0001:0003E3E4 + 184 0001:0003E3F0 185 0001:0003E3F8 186 0001:0003E403 189 0001:0003E408 + 190 0001:0003E414 191 0001:0003E41F 192 0001:0003E437 246 0001:0003E440 + 247 0001:0003E45B 248 0001:0003E468 249 0001:0003E490 252 0001:0003E494 + 253 0001:0003E4A0 254 0001:0003E4AB 256 0001:0003E4B5 261 0001:0003E4BC + 262 0001:0003E4CC 263 0001:0003E4D0 265 0001:0003E51E 266 0001:0003E526 + 267 0001:0003E52E 268 0001:0003E547 269 0001:0003E555 272 0001:0003E563 + 273 0001:0003E567 275 0001:0003E56C 276 0001:0003E57B 277 0001:0003E58A + 279 0001:0003E597 280 0001:0003E5A6 281 0001:0003E5B5 282 0001:0003E5BF + 283 0001:0003E5CD 285 0001:0003E5FF 287 0001:0003E611 288 0001:0003E61F + 290 0001:0003E62D 291 0001:0003E653 294 0001:0003E658 295 0001:0003E667 + 296 0001:0003E675 297 0001:0003E67F 298 0001:0003E689 305 0001:0003E690 + 306 0001:0003E694 310 0001:0003E6C1 311 0001:0003E6D7 312 0001:0003E6E7 + 313 0001:0003E6F7 314 0001:0003E707 316 0001:0003E717 318 0001:0003E71C + 319 0001:0003E728 320 0001:0003E733 321 0001:0003E743 327 0001:0003E748 + 328 0001:0003E754 329 0001:0003E75F 330 0001:0003E76A 331 0001:0003E774 + 332 0001:0003E77E 334 0001:0003E793 336 0001:0003E7D9 337 0001:0003E7E5 + 339 0001:0003E7F4 341 0001:0003E800 342 0001:0003E80C 344 0001:0003E818 + 345 0001:0003E824 347 0001:0003E830 348 0001:0003E83C 350 0001:0003E848 + 352 0001:0003E854 353 0001:0003E860 355 0001:0003E86C 357 0001:0003E876 + 360 0001:0003E87C 361 0001:0003E888 362 0001:0003E892 363 0001:0003E8A9 + 364 0001:0003E8B5 366 0001:0003E8BF 367 0001:0003E8CA 370 0001:0003E8D0 + 371 0001:0003E8DC 372 0001:0003E8E7 373 0001:0003E8FA 374 0001:0003E914 + 376 0001:0003E92C 379 0001:0003E930 380 0001:0003E93C 382 0001:0003E94E + 383 0001:0003E959 385 0001:0003E964 386 0001:0003E96F 387 0001:0003E979 + 389 0001:0003E9B0 389 0001:0003E9B7 + +Line numbers for ShellAPI(ShellAPI.pas) segment .text + + 665 0001:0003E9B8 675 0001:0003E9F0 675 0001:0003E9F7 + +Line numbers for RegStr(RegStr.pas) segment .text + + 1870 0001:0003EA28 1870 0001:0003EA2F + +Line numbers for WinInet(WinInet.pas) segment .text + + 3051 0001:0003EA60 3051 0001:0003EA67 + +Line numbers for UrlMon(UrlMon.pas) segment .text + + 1884 0001:0003EA98 1884 0001:0003EA9F + +Line numbers for ShlObj(ShlObj.pas) segment .text + + 3553 0001:0003EB08 3559 0001:0003EB40 3559 0001:0003EB47 + +Line numbers for CommDlg(CommDlg.pas) segment .text + + 1015 0001:0003EB48 1018 0001:0003EB50 1024 0001:0003EB58 1027 0001:0003EB60 + 1030 0001:0003EB68 1033 0001:0003EB70 1036 0001:0003EB78 1044 0001:0003EBB0 + 1044 0001:0003EBB7 + +Line numbers for Dlgs(Dlgs.pas) segment .text + + 396 0001:0003EBE8 396 0001:0003EBEF + +Line numbers for Dialogs(Dialogs.pas) segment .text + + 452 0001:0003FEB8 453 0001:0003FEC2 454 0001:0003FECF 456 0001:0003FEDC + 457 0001:0003FEE9 459 0001:0003FEFD 462 0001:0003FF11 463 0001:0003FF22 + 467 0001:0003FF78 473 0001:0003FF80 474 0001:0003FF84 475 0001:0003FF89 + 477 0001:0003FF92 478 0001:0003FF9A 479 0001:0003FFA5 481 0001:0003FFC2 + 482 0001:0003FFE0 484 0001:0003FFEA 489 0001:0003FFF0 490 0001:0004000B + 491 0001:00040018 493 0001:0004001F 498 0001:0004004E 501 0001:00040054 + 503 0001:00040065 508 0001:00040079 509 0001:00040095 512 0001:0004009C + 513 0001:000400A8 514 0001:000400AC 516 0001:000400C2 517 0001:000400D4 + 519 0001:000400DB 522 0001:000400E0 523 0001:000400EC 524 0001:000400F5 + 526 0001:00040124 527 0001:0004012F 530 0001:00040134 531 0001:00040143 + 532 0001:00040151 534 0001:0004016B 536 0001:0004017F 539 0001:00040188 + 540 0001:00040194 541 0001:0004019F 544 0001:000401A4 545 0001:000401B1 + 546 0001:000401BC 547 0001:000401C8 550 0001:000401D0 552 0001:000401DD + 554 0001:000401E9 555 0001:000401F1 558 0001:000401F8 559 0001:00040204 + 560 0001:0004020F 561 0001:00040217 571 0001:0004021C 572 0001:0004022B + 573 0001:00040233 574 0001:0004023D 575 0001:00040245 576 0001:00040253 + 579 0001:00040269 581 0001:0004026C 582 0001:0004027A 583 0001:00040282 + 586 0001:00040299 587 0001:0004029B 589 0001:0004029E 592 0001:000402C9 + 593 0001:000402D1 594 0001:000402DA 596 0001:000402ED 599 0001:000402F4 + 600 0001:000402FC 601 0001:00040312 604 0001:00040318 605 0001:00040320 + 606 0001:00040336 611 0001:0004033C 612 0001:00040340 613 0001:00040345 + 615 0001:0004034E 616 0001:00040359 618 0001:00040376 619 0001:00040394 + 621 0001:0004039D 622 0001:000403AF 623 0001:000403C2 628 0001:000403C8 + 629 0001:000403E3 630 0001:000403F0 631 0001:00040402 632 0001:0004040E + 633 0001:0004041D 634 0001:0004042F 635 0001:00040439 636 0001:0004045E + 639 0001:0004046C 640 0001:0004047D 641 0001:00040488 642 0001:00040493 + 643 0001:000404AF 646 0001:000404B4 647 0001:000404C1 648 0001:000404CC + 649 0001:000404DB 650 0001:000404E9 656 0001:000404F0 657 0001:000404FD + 659 0001:00040505 660 0001:0004051D 661 0001:00040529 663 0001:00040567 + 665 0001:00040580 666 0001:0004058A 667 0001:0004059F 669 0001:000405A4 + 670 0001:000405B2 671 0001:000405C0 674 0001:000405CE 675 0001:000405DD + 677 0001:000405E8 678 0001:000405F1 682 0001:000405FF 684 0001:00040608 + 685 0001:0004060C 686 0001:00040623 689 0001:0004062E 690 0001:00040639 + 693 0001:00040640 694 0001:0004064A 695 0001:0004064E 696 0001:00040673 + 699 0001:00040678 700 0001:00040680 701 0001:0004069F 704 0001:000406A4 + 705 0001:000406AC 706 0001:000406CB 709 0001:000406D0 710 0001:000406D8 + 711 0001:000406F7 714 0001:000406FC 716 0001:0004071B 717 0001:00040743 + 720 0001:00040748 721 0001:00040755 722 0001:00040760 723 0001:0004077C + 773 0001:0004079C 774 0001:000407A8 775 0001:000407B0 777 0001:000407B6 + 778 0001:000407C6 779 0001:000407DA 781 0001:000407E0 782 0001:000407E6 + 783 0001:000407E9 779 0001:000407F6 786 0001:000407FC 790 0001:0004080C + 791 0001:00040835 792 0001:00040840 795 0001:0004084F 797 0001:00040881 + 799 0001:0004088A 801 0001:00040891 802 0001:00040899 803 0001:000408B4 + 804 0001:000408BF 805 0001:000408C8 806 0001:000408D4 807 0001:000408DD + 808 0001:000408E6 809 0001:000408ED 810 0001:000408FB 811 0001:00040906 + 812 0001:00040916 813 0001:0004092E 814 0001:00040940 816 0001:0004094A + 817 0001:00040958 818 0001:00040966 819 0001:0004096D 821 0001:00040972 + 822 0001:00040976 823 0001:00040989 821 0001:0004099B 824 0001:000409A1 + 826 0001:000409AB 827 0001:000409B2 829 0001:000409E4 830 0001:000409E8 + 831 0001:000409FE 829 0001:00040A10 834 0001:00040A18 835 0001:00040A1F + 836 0001:00040A2D 838 0001:00040A39 839 0001:00040A47 841 0001:00040A59 + 842 0001:00040A6A 843 0001:00040A7D 845 0001:00040A86 847 0001:00040A8D + 849 0001:00040A96 850 0001:00040A9A 852 0001:00040AA3 853 0001:00040AB0 + 854 0001:00040AC1 856 0001:00040AC7 857 0001:00040AD2 858 0001:00040AD8 + 859 0001:00040AE4 860 0001:00040AEE 861 0001:00040AF4 862 0001:00040AFD + 863 0001:00040B04 866 0001:00040B3A 873 0001:00040B44 874 0001:00040B50 + 875 0001:00040B61 877 0001:00040B67 878 0001:00040B72 882 0001:00040B7F + 883 0001:00040B90 885 0001:00040B96 890 0001:00040B9C 891 0001:00040BB6 + 892 0001:00040BC9 893 0001:00040BDC 894 0001:00040BE2 897 0001:00040BF5 + 898 0001:00040C02 900 0001:00040C0F 902 0001:00040C36 903 0001:00040C44 + 904 0001:00040C55 905 0001:00040C68 907 0001:00040C90 909 0001:00040CA0 + 910 0001:00040CC0 911 0001:00040CC4 913 0001:00040CE0 916 0001:00040CE4 + 918 0001:00040CED 919 0001:00040CFA 922 0001:00040D1A 923 0001:00040D2D + 926 0001:00040D5B 929 0001:00040D60 930 0001:00040D6C 932 0001:00040D75 + 934 0001:00040D7E 935 0001:00040D99 937 0001:00040DAF 939 0001:00040DC1 + 940 0001:00040DD2 945 0001:00040DD8 946 0001:00040DE7 948 0001:00040DFA + 949 0001:00040E1D 951 0001:00040E2D 952 0001:00040E3B 955 0001:00040E40 + 956 0001:00040E49 957 0001:00040E52 959 0001:00040E5D 960 0001:00040E69 + 970 0001:00040E70 971 0001:00040E7C 972 0001:00040E87 973 0001:00040EB1 + 974 0001:00040EB4 975 0001:00040ECB 978 0001:00040EDC 979 0001:00040EE5 + 980 0001:00040EFE 983 0001:00040F04 984 0001:00040F14 985 0001:00040F36 + 990 0001:00040F3C 991 0001:00040F45 992 0001:00040F5E 997 0001:00040F64 + 998 0001:00040F7F 999 0001:00040F8C 1000 0001:00040FB9 1003 0001:00040FC0 + 1004 0001:00040FD1 1005 0001:00040FDC 1006 0001:00040FF8 1024 0001:00040FFC + 1025 0001:0004101B 1026 0001:00041020 1027 0001:00041078 1025 0001:0004107B + 1028 0001:000410AB 1034 0001:000410D0 1035 0001:000410E8 1037 0001:000410ED + 1038 0001:0004111F 1039 0001:00041125 1040 0001:00041149 1041 0001:00041157 + 1035 0001:0004115A 1042 0001:0004118A 1044 0001:000411AC 1047 0001:000411B6 + 1048 0001:000411BD 1049 0001:000411C4 1050 0001:000411CC 1051 0001:000411DA + 1052 0001:000411E0 1053 0001:000411E7 1054 0001:000411EB 1055 0001:000411FF + 1053 0001:00041211 1056 0001:00041217 1058 0001:00041220 1059 0001:00041224 + 1061 0001:0004122D 1062 0001:00041234 1063 0001:00041241 1064 0001:0004125A + 1066 0001:00041260 1067 0001:00041269 1070 0001:00041273 1073 0001:00041278 + 1074 0001:00041284 1075 0001:00041292 1086 0001:00041298 1087 0001:0004129C + 1090 0001:000412B4 1091 0001:000412C1 1093 0001:000412CA 1094 0001:000412E5 + 1097 0001:000412EC 1098 0001:00041307 1099 0001:00041314 1100 0001:00041326 + 1101 0001:0004134F 1104 0001:00041358 1105 0001:00041369 1106 0001:00041374 + 1107 0001:00041390 1110 0001:00041394 1113 0001:000413A0 1114 0001:000413B5 + 1115 0001:000413C9 1116 0001:000413DB 1117 0001:000413E6 1120 0001:000413EC + 1121 0001:000413F9 1122 0001:00041412 1130 0001:00041418 1131 0001:00041427 + 1132 0001:0004143B 1133 0001:00041446 1134 0001:00041460 1135 0001:00041466 + 1136 0001:0004148C 1137 0001:0004149A 1139 0001:000414B8 1141 0001:000414CC + 1159 0001:000414D4 1162 0001:000414FA 1163 0001:00041501 1164 0001:00041506 + 1165 0001:0004151C 1166 0001:00041525 1167 0001:0004153F 1168 0001:0004154F + 1169 0001:00041563 1170 0001:00041567 1171 0001:0004157A 1169 0001:0004158C + 1172 0001:00041592 1173 0001:000415A3 1175 0001:000415AC 1176 0001:000415B0 + 1178 0001:000415B9 1179 0001:000415C5 1180 0001:000415CA 1181 0001:000415D1 + 1182 0001:000415DA 1183 0001:000415E3 1184 0001:000415F2 1185 0001:000415FF + 1186 0001:00041607 1187 0001:0004160F 1188 0001:00041616 1189 0001:0004161D + 1190 0001:00041636 1191 0001:0004163E 1193 0001:00041644 1194 0001:00041669 + 1195 0001:00041670 1196 0001:0004167E 1199 0001:000416C0 1202 0001:000416C8 + 1203 0001:000416D4 1204 0001:000416E2 1209 0001:000416E8 1212 0001:00041707 + 1213 0001:00041728 1214 0001:00041738 1215 0001:00041741 1216 0001:00041752 + 1219 0001:0004175A 1220 0001:0004176A 1221 0001:00041777 1222 0001:00041784 + 1224 0001:00041791 1226 0001:000417BC 1235 0001:000417C4 1236 0001:000417D4 + 1237 0001:000417F5 1239 0001:00041801 1241 0001:0004183B 1242 0001:00041849 + 1243 0001:00041857 1244 0001:00041860 1246 0001:00041866 1247 0001:00041874 + 1248 0001:00041886 1249 0001:00041895 1250 0001:000418A7 1251 0001:000418B6 + 1254 0001:000418D1 1257 0001:000418E4 1262 0001:000418EC 1263 0001:000418F8 + 1264 0001:00041904 1265 0001:00041912 1266 0001:00041918 1270 0001:00041951 + 1271 0001:0004195A 1273 0001:0004196B 1279 0001:00041970 1280 0001:00041979 + 1282 0001:00041983 1283 0001:0004198F 1284 0001:0004199D 1285 0001:000419A3 + 1286 0001:000419B1 1287 0001:000419BD 1288 0001:000419C9 1290 0001:000419F0 + 1291 0001:000419F9 1294 0001:00041A0A 1295 0001:00041A12 1327 0001:00041A18 + 1328 0001:00041A24 1329 0001:00041A2D 1330 0001:00041A3A 1339 0001:00041A40 + 1340 0001:00041A4A 1343 0001:00041A59 1344 0001:00041A60 1345 0001:00041A68 + 1346 0001:00041A73 1347 0001:00041A7E 1349 0001:00041A94 1350 0001:00041AA1 + 1351 0001:00041AB1 1352 0001:00041ABE 1353 0001:00041ACB 1354 0001:00041ADB + 1355 0001:00041AE8 1356 0001:00041AF8 1357 0001:00041B08 1359 0001:00041B11 + 1360 0001:00041B18 1362 0001:00041B21 1363 0001:00041B2C 1364 0001:00041B37 + 1365 0001:00041B42 1366 0001:00041B4D 1367 0001:00041B54 1368 0001:00041B5B + 1369 0001:00041B68 1370 0001:00041B81 1372 0001:00041B8B 1373 0001:00041B96 + 1374 0001:00041BA3 1375 0001:00041BB0 1376 0001:00041BBF 1377 0001:00041BCE + 1378 0001:00041BD5 1379 0001:00041BDF 1380 0001:00041BE9 1381 0001:00041BF0 + 1382 0001:00041C06 1385 0001:00041C14 1386 0001:00041C23 1389 0001:00041C35 + 1580 0001:00041D98 1581 0001:00041DA4 1584 0001:00041DAF 1585 0001:00041DB9 + 1587 0001:00041DC8 1590 0001:00041DCC 1591 0001:00041DD8 1592 0001:00041DE3 + 1594 0001:00041E03 1595 0001:00041E1D 1598 0001:00041E24 1599 0001:00041E30 + 1600 0001:00041E38 1607 0001:00041E3C 1608 0001:00041E40 1610 0001:00041E7C + 1612 0001:00041E80 1613 0001:00041E84 1615 0001:00041E9D 1617 0001:00041EBE + 1619 0001:00041EC4 1622 0001:00041EE5 1626 0001:00041F06 1627 0001:00041F10 + 1628 0001:00041F21 1631 0001:00041F23 1632 0001:00041F30 1635 0001:00041F38 + 1636 0001:00041F3E 1637 0001:00041F56 1639 0001:00041F5F 1640 0001:00041F68 + 1641 0001:00041F7E 1643 0001:00041FA1 1644 0001:00041FBE 1645 0001:00041FCE + 1647 0001:00041FD8 1658 0001:00041FE0 1659 0001:00041FFB 1660 0001:00042008 + 1661 0001:00042016 1662 0001:00042020 1663 0001:0004202A 1665 0001:00042035 + 1666 0001:0004203E 1667 0001:0004204E 1668 0001:00042059 1669 0001:00042067 + 1670 0001:00042070 1671 0001:0004207E 1672 0001:00042087 1673 0001:00042090 + 1675 0001:0004209A 1676 0001:000420C0 1679 0001:000420C8 1680 0001:000420D9 + 1681 0001:000420FA 1682 0001:00042103 1683 0001:00042111 1684 0001:0004211C + 1685 0001:00042138 1688 0001:0004213C 1689 0001:00042143 1690 0001:00042164 + 1695 0001:00042168 1696 0001:0004216E 1697 0001:00042179 1698 0001:00042180 + 1700 0001:00042198 1701 0001:000421A0 1703 0001:000421A8 1708 0001:000421B0 + 1709 0001:000421B9 1711 0001:000421C5 1712 0001:000421D4 1715 0001:000421DD + 1716 0001:000421EA 1717 0001:000421F7 1718 0001:0004220B 1720 0001:00042214 + 1721 0001:00042220 1723 0001:00042239 1724 0001:0004224D 1725 0001:00042251 + 1726 0001:00042264 1724 0001:0004227C 1727 0001:00042282 1729 0001:0004228B + 1730 0001:00042298 1732 0001:000422A7 1733 0001:000422AF 1734 0001:000422C7 + 1736 0001:000422D8 1739 0001:000422DC 1740 0001:000422E4 1741 0001:000422FA + 1744 0001:00042300 1745 0001:0004230C 1746 0001:00042322 1749 0001:00042328 + 1750 0001:00042331 1751 0001:00042345 1756 0001:0004234C 1757 0001:00042358 + 1758 0001:00042369 1760 0001:00042375 1761 0001:00042388 1763 0001:00042396 + 1766 0001:0004239C 1767 0001:000423A8 1768 0001:000423BE 1771 0001:000423C4 + 1772 0001:000423CD 1773 0001:000423E1 1779 0001:000423E8 1780 0001:000423F5 + 1781 0001:00042403 1782 0001:0004240D 1784 0001:00042435 1785 0001:00042443 + 1786 0001:00042447 1787 0001:0004245E 1785 0001:00042472 1788 0001:00042478 + 1789 0001:00042484 1791 0001:00042492 1792 0001:0004249E 1794 0001:000424AC + 1796 0001:000424B8 1797 0001:000424CB 1798 0001:000424DA 1799 0001:000424E5 + 1800 0001:000424FF 1802 0001:00042507 1804 0001:0004250E 1807 0001:00042518 + 1808 0001:00042520 1809 0001:00042536 1812 0001:0004253C 1813 0001:00042548 + 1814 0001:00042564 1822 0001:00042568 1823 0001:00042574 1825 0001:0004258F + 1826 0001:000425A0 1827 0001:000425AC 1830 0001:000425D0 1833 0001:000425D4 + 1834 0001:000425E0 1835 0001:000425FC 1845 0001:00042600 1846 0001:0004261B + 1847 0001:00042628 1848 0001:0004264E 1856 0001:00042654 1857 0001:00042660 + 1858 0001:0004267B 1859 0001:00042696 1860 0001:000426AE 1861 0001:000426C0 + 1880 0001:0004283C 1881 0001:0004285A 1882 0001:00042869 1883 0001:00042873 + 1884 0001:00042889 1885 0001:000428BA 1888 0001:000428C0 1889 0001:000428CC + 1890 0001:000428E1 1893 0001:000428E8 1894 0001:0004290B 1896 0001:0004291E + 1897 0001:00042923 1899 0001:00042956 1905 0001:00042964 1906 0001:00042989 + 1908 0001:00042998 1909 0001:000429A6 1910 0001:000429BD 1911 0001:000429CB + 1912 0001:000429D7 1913 0001:000429E5 1914 0001:00042A00 1915 0001:00042A05 + 1917 0001:00042A1D 1920 0001:00042A3D 1921 0001:00042A46 1924 0001:00042A5D + 1928 0001:00042A6A 1929 0001:00042A9E 1935 0001:00042AA8 1936 0001:00042ADC + 1937 0001:00042AFB 1938 0001:00042B13 1939 0001:00042B2D 1940 0001:00042B65 + 1937 0001:00042B68 1941 0001:00042B6D 1942 0001:00042B91 1945 0001:00042C79 + 1983 0001:00042D60 1984 0001:00042D8E 1987 0001:00042DA5 1988 0001:00042DB7 + 1989 0001:00042DC1 1990 0001:00042DD4 1991 0001:00042DDE 1992 0001:00042DF4 + 1993 0001:00042E04 1994 0001:00042E14 1995 0001:00042E24 1996 0001:00042E34 + 1997 0001:00042E44 1998 0001:00042E54 2000 0001:00042E58 2002 0001:00042E6C + 2004 0001:00042E7B 2005 0001:00042E8C 2009 0001:00042ED0 2011 0001:00042EE5 + 2012 0001:00042EF6 2014 0001:00042F05 1998 0001:00042F08 2015 0001:00042F12 + 2016 0001:00042F22 2017 0001:00042F32 2018 0001:00042F55 2021 0001:00042F8D + 2022 0001:00042F9C 2023 0001:00042FA2 2024 0001:00042FA8 2026 0001:00042FAE + 2027 0001:00042FB7 2029 0001:00042FC4 2030 0001:00042FC9 2031 0001:00042FCD + 2030 0001:00042FE3 2032 0001:00042FE9 2033 0001:00042FEE 2034 0001:00042FF4 + 2036 0001:00043007 2037 0001:00043023 2039 0001:0004303B 2040 0001:00043067 + 2041 0001:00043093 2042 0001:00043099 2043 0001:000430BA 2044 0001:000430D4 + 2045 0001:000430DA 2047 0001:000430EC 2048 0001:000430F9 2049 0001:00043104 + 2050 0001:00043124 2052 0001:00043139 2053 0001:00043151 2055 0001:0004315D + 2056 0001:0004316A 2057 0001:00043175 2058 0001:0004317F 2059 0001:0004318A + 2060 0001:00043195 2061 0001:000431A3 2062 0001:000431AF 2063 0001:000431BF + 2064 0001:000431D3 2067 0001:000431EC 2068 0001:000431F8 2069 0001:00043204 + 2070 0001:00043208 2071 0001:00043214 2072 0001:00043220 2073 0001:00043224 + 2074 0001:00043239 2075 0001:0004323D 2076 0001:00043251 2078 0001:00043263 + 2079 0001:00043277 2080 0001:00043282 2081 0001:000432A1 2082 0001:000432B6 + 2083 0001:000432C8 2084 0001:000432DA 2086 0001:000432F9 2087 0001:00043302 + 2088 0001:00043308 2089 0001:0004331E 2074 0001:00043321 2091 0001:00043350 + 2095 0001:00043378 2096 0001:00043388 2097 0001:000433A7 2101 0001:000433B0 + 2102 0001:000433C0 2103 0001:000433E3 2108 0001:000433EC 2109 0001:000433FC + 2110 0001:0004340E 2111 0001:0004341C 2112 0001:00043427 2113 0001:00043437 + 2114 0001:00043448 2115 0001:00043459 2116 0001:0004346F 2118 0001:0004348A + 2120 0001:0004349D 2123 0001:000434A4 2124 0001:000434AB 2125 0001:000434B9 + 2133 0001:000434BC 2134 0001:000434CB 2135 0001:000434E6 2147 0001:000434F0 + 2148 0001:00043519 2149 0001:0004351D 2150 0001:00043534 2152 0001:00043542 + 2153 0001:00043555 2154 0001:00043565 2155 0001:0004356F 2156 0001:0004357A + 2157 0001:00043594 2158 0001:0004359E 2161 0001:000435B0 2162 0001:000435BB + 2163 0001:000435C6 2164 0001:000435DD 2165 0001:000435F4 2166 0001:00043616 + 2168 0001:00043620 2171 0001:00043632 2172 0001:0004363D 2173 0001:0004364B + 2174 0001:00043662 2175 0001:0004367C 2176 0001:00043689 2177 0001:00043696 + 2179 0001:0004369E 2180 0001:000436B0 2181 0001:000436C0 2182 0001:000436D0 + 2184 0001:000436E2 2185 0001:000436ED 2186 0001:00043705 2187 0001:00043712 + 2188 0001:0004371C 2191 0001:00043741 2193 0001:00043753 2194 0001:0004375E + 2195 0001:00043776 2196 0001:00043783 2197 0001:0004378D 2199 0001:000437BE + 2201 0001:000437D5 2203 0001:000437E3 2204 0001:000437F9 2207 0001:0004380A + 2209 0001:00043847 2212 0001:0004384C 2213 0001:0004385B 2214 0001:00043866 + 2215 0001:00043874 2252 0001:0004387C 2253 0001:00043882 2254 0001:00043891 + 2255 0001:000438A0 2257 0001:000438D6 2265 0001:000439CC 2266 0001:00043A25 + 2259 0001:00043A28 2260 0001:00043A3E 2261 0001:00043A43 2262 0001:00043A4D + 2263 0001:00043A57 2264 0001:00043A67 + +Line numbers for ExtCtrls(ExtCtrls.pas) segment .text + + 1052 0001:000463C8 1055 0001:000463CE 1056 0001:000463DA 1057 0001:000463E6 + 1058 0001:000463F1 1059 0001:000463FD 1060 0001:00046411 1061 0001:0004644D + 1062 0001:00046461 1063 0001:00046464 1065 0001:000464A1 1067 0001:000464A8 + 1068 0001:000464B7 1069 0001:000464C7 1070 0001:000464D3 1072 0001:000464D9 + 1073 0001:000464DC 1074 0001:000464E3 1070 0001:000464F0 1076 0001:000464F6 + 1077 0001:00046502 1102 0001:00046508 1103 0001:00046523 1104 0001:00046530 + 1105 0001:00046542 1106 0001:0004654F 1107 0001:0004655C 1108 0001:00046571 + 1109 0001:00046587 1110 0001:0004659C 1111 0001:000465CD 1114 0001:000465D8 + 1115 0001:000465E9 1116 0001:000465F7 1117 0001:00046605 1118 0001:00046621 + 1123 0001:00046628 1124 0001:00046631 1126 0001:0004663D 1127 0001:0004664E + 1128 0001:0004665F 1129 0001:00046674 1130 0001:0004667A 1131 0001:00046691 + 1132 0001:000466A8 1134 0001:000466B7 1135 0001:000466BA 1137 0001:000466BD + 1138 0001:000466D3 1140 0001:000466E8 1141 0001:000466F8 1142 0001:00046708 + 1143 0001:0004670E 1145 0001:00046714 1147 0001:0004672B 1149 0001:00046749 + 1151 0001:00046783 1154 0001:0004679F 1157 0001:000467A4 1158 0001:000467B0 + 1159 0001:000467B8 1162 0001:000467BC 1163 0001:000467C8 1164 0001:000467D9 + 1167 0001:000467E0 1168 0001:000467EC 1169 0001:000467FD 1172 0001:00046804 + 1173 0001:00046810 1175 0001:0004681E 1176 0001:0004682A 1178 0001:00046832 + 1183 0001:00046838 1184 0001:00046853 1185 0001:00046860 1186 0001:00046872 + 1187 0001:0004687F 1188 0001:000468A7 1191 0001:000468B0 1192 0001:000468BA + 1193 0001:000468CE 1194 0001:000468E5 1195 0001:000468EE 1197 0001:000468FA + 1198 0001:00046907 1199 0001:00046914 1201 0001:0004692E 1202 0001:0004694D + 1207 0001:00046954 1208 0001:0004696F 1209 0001:0004697C 1210 0001:0004698E + 1211 0001:000469A3 1212 0001:000469B9 1213 0001:000469DA 1214 0001:000469E7 + 1215 0001:00046A0F 1218 0001:00046A18 1219 0001:00046A29 1220 0001:00046A37 + 1221 0001:00046A53 1224 0001:00046A58 1225 0001:00046A61 1226 0001:00046A66 + 1227 0001:00046A75 1228 0001:00046A8C 1234 0001:00046A90 1235 0001:00046A9C + 1236 0001:00046AAD 1237 0001:00046ABE 1238 0001:00046AC9 1239 0001:00046AD4 + 1241 0001:00046B04 1243 0001:00046B20 1244 0001:00046B2C 1246 0001:00046B34 + 1247 0001:00046B3A 1248 0001:00046B48 1250 0001:00046B50 1251 0001:00046B56 + 1256 0001:00046B66 1257 0001:00046B6C 1258 0001:00046B7A 1260 0001:00046B82 + 1261 0001:00046B88 1267 0001:00046B98 1268 0001:00046B9E 1274 0001:00046BA4 + 1275 0001:00046BAB 1276 0001:00046BB3 1277 0001:00046BBC 1280 0001:00046BC5 + 1281 0001:00046BD1 1282 0001:00046BF6 1287 0001:00046BFC 1288 0001:00046C05 + 1289 0001:00046C0E 1291 0001:00046C1A 1292 0001:00046C27 1293 0001:00046C34 + 1295 0001:00046C4E 1296 0001:00046C5A 1297 0001:00046C64 1298 0001:00046C72 + 1299 0001:00046C7E 1301 0001:00046CAD 1303 0001:00046CC1 1309 0001:00046CC8 + 1310 0001:00046CD1 1311 0001:00046CD5 1312 0001:00046CE4 1315 0001:00046D11 + 1316 0001:00046D1D 1319 0001:00046D26 1320 0001:00046D31 1322 0001:00046D4F + 1323 0001:00046D5B 1325 0001:00046D6E 1326 0001:00046D85 1327 0001:00046D89 + 1331 0001:00046D93 1335 0001:00046D98 1336 0001:00046DA8 1338 0001:00046DB6 + 1339 0001:00046DCF 1341 0001:00046DDA 1342 0001:00046E0C 1366 0001:00046E14 + 1367 0001:00046E20 1369 0001:00046E2E 1370 0001:00046E3A 1372 0001:00046E45 + 1375 0001:00046E4C 1376 0001:00046E58 1377 0001:00046E69 1380 0001:00046E70 + 1381 0001:00046E7C 1383 0001:00046E8A 1384 0001:00046E96 1386 0001:00046EA1 + 1389 0001:00046EA8 1390 0001:00046EB4 1392 0001:00046EC2 1393 0001:00046ECE + 1395 0001:00046ED9 1398 0001:00046EE0 1399 0001:00046EEC 1401 0001:00046EFA + 1402 0001:00046F06 1404 0001:00046F11 1410 0001:00046F18 1411 0001:00046F25 + 1412 0001:00046F52 1413 0001:00046F87 1414 0001:00046F96 1416 0001:00046FA0 + 1417 0001:00046FC4 1418 0001:00046FD5 1419 0001:00046FE0 1421 0001:0004700E + 1423 0001:00047021 1424 0001:00047034 1426 0001:00047059 1427 0001:0004706C + 1428 0001:00047080 1431 0001:0004708C 1432 0001:0004709B 1433 0001:0004709F + 1436 0001:000470CC 1437 0001:000470DC 1438 0001:000470EF 1439 0001:000470F9 + 1441 0001:0004710F 1446 0001:00047114 1447 0001:0004712F 1448 0001:0004713C + 1449 0001:0004714E 1450 0001:00047158 1451 0001:00047162 1452 0001:0004716F + 1453 0001:00047197 1456 0001:000471A0 1457 0001:000471AC 1459 0001:000471BA + 1460 0001:000471C6 1462 0001:000471CE 1465 0001:000471D4 1466 0001:000471E0 + 1468 0001:000471EE 1469 0001:000471FA 1471 0001:00047202 1481 0001:00047208 + 1482 0001:00047211 1484 0001:00047220 1485 0001:00047231 1487 0001:0004729F + 1488 0001:000472B0 1491 0001:0004731F 1494 0001:00047324 1495 0001:00047333 + 1497 0001:00047342 1498 0001:00047350 1499 0001:0004735E 1501 0001:0004736C + 1503 0001:00047374 1504 0001:0004737D 1506 0001:00047389 1508 0001:00047396 + 1510 0001:000473A2 1511 0001:000473AF 1512 0001:000473BC 1513 0001:000473CC + 1514 0001:000473D9 1515 0001:000473F7 1519 0001:000473FC 1520 0001:00047409 + 1521 0001:00047416 1522 0001:00047423 1526 0001:00047430 1528 0001:00047440 + 1530 0001:0004744C 1531 0001:00047453 1535 0001:0004745C 1536 0001:00047463 + 1539 0001:0004746A 1540 0001:0004749C 1543 0001:000474C7 1544 0001:000474CD + 1545 0001:000474D3 1546 0001:000474FF 1547 0001:00047505 1548 0001:0004750B + 1552 0001:0004753A 1553 0001:00047551 1557 0001:00047570 1558 0001:00047596 + 1562 0001:000475BA 1563 0001:000475D1 1567 0001:000475ED 1568 0001:00047613 + 1572 0001:00047635 1577 0001:0004763C 1578 0001:00047657 1579 0001:00047664 + 1580 0001:0004766B 1582 0001:00047675 1587 0001:000476A4 1590 0001:000476A8 + 1591 0001:000476B9 1592 0001:000476C0 1594 0001:000476C8 1599 0001:000476D3 + 1600 0001:000476EF 1603 0001:000476F4 1605 0001:00047703 1606 0001:0004770E + 1607 0001:0004771C 1609 0001:00047737 1612 0001:0004774D 1613 0001:00047773 + 1616 0001:0004777C 1617 0001:00047798 1618 0001:000477A6 1619 0001:000477C2 + 1620 0001:000477DD 1621 0001:0004781B 1624 0001:00047820 1625 0001:0004782C + 1627 0001:00047837 1628 0001:00047840 1630 0001:00047848 1633 0001:0004784C + 1634 0001:00047858 1636 0001:00047863 1637 0001:0004786C 1639 0001:00047874 + 1642 0001:00047878 1643 0001:0004787F 1644 0001:0004788E 1645 0001:00047896 + 1648 0001:0004789C 1649 0001:000478A4 1650 0001:000478BA 1655 0001:000478C0 + 1656 0001:000478DB 1657 0001:000478E8 1661 0001:000478F4 1662 0001:00047902 + 1663 0001:0004791E 1664 0001:0004792B 1665 0001:00047938 1666 0001:00047942 + 1667 0001:0004794C 1668 0001:00047959 1669 0001:00047963 1670 0001:00047970 + 1671 0001:0004797A 1672 0001:0004799F 1677 0001:000479B0 1678 0001:000479BC + 1681 0001:000479C7 1682 0001:000479DE 1684 0001:00047A00 1685 0001:00047A0A + 1687 0001:00047A14 1689 0001:00047A1B 1692 0001:00047A20 1693 0001:00047A2C + 1694 0001:00047A37 1695 0001:00047A3F 1698 0001:00047A44 1699 0001:00047A50 + 1700 0001:00047A58 1703 0001:00047A5C 1704 0001:00047A68 1705 0001:00047A86 + 1706 0001:00047A91 1709 0001:00047A98 1710 0001:00047AA4 1711 0001:00047ABA + 1717 0001:00047AC0 1718 0001:00047ADF 1719 0001:00047AFC 1722 0001:00047B09 + 1723 0001:00047B15 1724 0001:00047B2D 1725 0001:00047B45 1727 0001:00047B4B + 1728 0001:00047B54 1729 0001:00047B5D 1731 0001:00047B6B 1732 0001:00047B70 + 1733 0001:00047B7A 1735 0001:00047B8E 1737 0001:00047B9C 1738 0001:00047BA1 + 1739 0001:00047BAB 1743 0001:00047BBF 1744 0001:00047BE7 1756 0001:00047BEC + 1757 0001:00047BF3 1758 0001:00047BFD 1759 0001:00047C0D 1760 0001:00047C17 + 1761 0001:00047C27 1763 0001:00047C2C 1764 0001:00047C48 1765 0001:00047C53 + 1767 0001:00047C5F 1768 0001:00047C6F 1770 0001:00047C91 1771 0001:00047CB9 + 1773 0001:00047CC5 1774 0001:00047CD5 1776 0001:00047CF7 1778 0001:00047D03 + 1780 0001:00047D1D 1781 0001:00047D2E 1783 0001:00047D39 1784 0001:00047D46 + 1785 0001:00047D54 1788 0001:00047D64 1789 0001:00047D77 1791 0001:00047D80 + 1792 0001:00047D97 1793 0001:00047DA5 1795 0001:00047DEE 1798 0001:00047E00 + 1799 0001:00047E0C 1800 0001:00047E18 1801 0001:00047E20 1804 0001:00047E24 + 1805 0001:00047E30 1806 0001:00047E3C 1807 0001:00047E44 1808 0001:00047E4C + 1811 0001:00047E50 1812 0001:00047E5C 1813 0001:00047E68 1814 0001:00047E70 + 1815 0001:00047E78 1818 0001:00047E7C 1819 0001:00047E88 1820 0001:00047E94 + 1821 0001:00047E9C 1822 0001:00047EA4 1825 0001:00047EA8 1826 0001:00047EB4 + 1827 0001:00047EC0 1828 0001:00047EC8 1829 0001:00047ED0 1832 0001:00047ED4 + 1833 0001:00047EE0 1835 0001:00047EEE 1836 0001:00047EFA 1838 0001:00047F02 + 1841 0001:00047F08 1842 0001:00047F11 1843 0001:00047F20 1848 0001:00047F24 + 1849 0001:00047F30 1850 0001:00047F3B 1851 0001:00047F5C 1852 0001:00047F61 + 1853 0001:00047F79 1854 0001:00047F91 1855 0001:00047FA6 1861 0001:00047FAC + 1862 0001:00047FBB 1864 0001:00047FC8 1865 0001:00047FD2 1866 0001:00047FE0 + 1867 0001:00047FF0 1868 0001:0004800F 1869 0001:0004802F 1871 0001:0004803C + 1872 0001:00048045 1874 0001:0004806C 1875 0001:00048085 1877 0001:0004808E + 1878 0001:00048097 1881 0001:000480BC 1882 0001:000480C7 1884 0001:000480DB + 1887 0001:000480ED 1888 0001:000480F8 1891 0001:00048100 1892 0001:0004810F + 1893 0001:00048139 2009 0001:00048140 2012 0001:0004814C 2013 0001:00048152 + 2015 0001:00048167 2016 0001:00048178 2017 0001:00048182 2018 0001:0004818D + 2673 0001:00048300 2674 0001:0004831B 2675 0001:00048328 2676 0001:00048339 + 2677 0001:00048343 2678 0001:00048355 2679 0001:0004835F 2680 0001:00048375 + 2681 0001:0004839B 2684 0001:000483A0 2685 0001:000483B1 2686 0001:000483C5 + 2687 0001:000483E1 2690 0001:000483E8 2691 0001:000483F7 2693 0001:00048403 + 2694 0001:0004840D 2695 0001:0004841B 2698 0001:00048441 2700 0001:0004845B + 2702 0001:0004846F 2704 0001:00048479 2707 0001:00048480 2708 0001:0004848D + 2709 0001:00048498 2710 0001:000484AA 2712 0001:000484BA 2714 0001:000484D2 + 2717 0001:000484D8 2718 0001:000484E8 2719 0001:000484F6 2720 0001:0004850B + 2725 0001:00048510 2726 0001:0004852B 2727 0001:00048538 2728 0001:00048544 + 2729 0001:00048559 2730 0001:0004856E 2731 0001:00048584 2732 0001:00048591 + 2733 0001:000485B9 2736 0001:000485C4 2737 0001:000485D5 2738 0001:000485DF + 2739 0001:000485F0 2740 0001:000485FE 2741 0001:0004860C 2742 0001:00048628 + 2745 0001:0004862C 2747 0001:00048638 2757 0001:0004863C 2758 0001:00048646 + 2760 0001:00048669 2761 0001:00048673 2762 0001:0004868B 2763 0001:00048698 + 2764 0001:000486A5 2765 0001:000486B0 2766 0001:000486D5 2767 0001:000486ED + 2768 0001:000486FC 2769 0001:00048706 2770 0001:0004871D 2771 0001:00048732 + 2772 0001:00048740 2773 0001:00048760 2775 0001:00048774 2776 0001:00048782 + 2777 0001:00048792 2778 0001:000487A2 2779 0001:000487B3 2784 0001:000487E7 + 2785 0001:000487F1 2772 0001:000487F4 2787 0001:0004880A 2790 0001:0004881B + 2793 0001:00048820 2794 0001:0004882D 2796 0001:00048839 2797 0001:00048853 + 2798 0001:0004885B 2800 0001:00048867 2803 0001:0004886C 2804 0001:00048878 + 2806 0001:00048884 2807 0001:000488B5 2809 0001:000488BD 2812 0001:000488C4 + 2813 0001:000488CB 2814 0001:000488D3 2815 0001:000488DB 2818 0001:000488E0 + 2819 0001:000488EC 2820 0001:000488F6 2821 0001:00048901 2822 0001:0004890B + 2823 0001:00048913 2826 0001:00048918 2827 0001:00048926 2828 0001:00048948 + 2829 0001:0004896C 2832 0001:00048970 2833 0001:0004897C 2834 0001:00048989 + 2835 0001:00048996 2837 0001:000489A4 2838 0001:000489B0 2839 0001:000489B8 + 2841 0001:000489C0 2844 0001:000489C4 2845 0001:000489D0 2847 0001:000489ED + 2848 0001:000489FA 2849 0001:00048A1B 2851 0001:00048A29 2852 0001:00048A35 + 2853 0001:00048A56 2854 0001:00048A62 2855 0001:00048A6E 2858 0001:00048A8F + 2861 0001:00048A94 2862 0001:00048AA0 2863 0001:00048AB1 2868 0001:00048AB8 + 2869 0001:00048AD5 2870 0001:00048AED 2871 0001:00048B09 2870 0001:00048B3B + 2872 0001:00048B40 2874 0001:00048B4C 2875 0001:00048B56 2876 0001:00048B77 + 2878 0001:00048B81 2879 0001:00048B89 2880 0001:00048BAE 2885 0001:00048BB4 + 2886 0001:00048BC0 2887 0001:00048BCB 2888 0001:00048BE7 2887 0001:00048C0A + 2889 0001:00048C0F 2892 0001:00048C14 2893 0001:00048C20 2894 0001:00048C2B + 2895 0001:00048C33 2898 0001:00048C38 2899 0001:00048C44 2900 0001:00048C4F + 2901 0001:00048C57 2904 0001:00048C5C 2905 0001:00048C65 2906 0001:00048C6C + 2909 0001:00048C70 2910 0001:00048C7C 2923 0001:00048C84 2924 0001:00048C9F + 2925 0001:00048CAC 2926 0001:00048CB6 2927 0001:00048CC0 2928 0001:00048CCD + 2929 0001:00048CD9 2930 0001:00048CE6 2931 0001:00048CF0 2932 0001:00048D18 + 2935 0001:00048D1C 2936 0001:00048D2D 2937 0001:00048D3B 2938 0001:00048D57 + 2941 0001:00048D5C 2942 0001:00048D63 2944 0001:00048D84 2946 0001:00048D90 + 2948 0001:00048D9C 2950 0001:00048DB1 2956 0001:00048DCD 2958 0001:00048DF4 + 2963 0001:00048DF8 2964 0001:00048E01 2965 0001:00048E15 2966 0001:00048E29 + 2967 0001:00048E35 2968 0001:00048E49 2969 0001:00048E5B 2970 0001:00048E85 + 2973 0001:00048E8C 2974 0001:00048E93 2975 0001:00048E9F 2976 0001:00048EB8 + 2977 0001:00048ED3 2979 0001:00048EDF 2980 0001:00048EED 2982 0001:00048EF8 + 2989 0001:00048EFC 2990 0001:00048F05 2991 0001:00048F0A 2992 0001:00048F1E + 2993 0001:00048F39 2994 0001:00048F3E 2995 0001:00048F49 2996 0001:00048F4E + 3000 0001:00048F57 3002 0001:00048F76 3003 0001:00048F87 3005 0001:00048F9C + 3006 0001:00048FA7 3007 0001:00048FAF 3008 0001:00048FBD 3010 0001:00048FC2 + 3011 0001:00048FC5 3012 0001:00048FCD 3013 0001:00048FDB 3015 0001:00048FE0 + 3016 0001:00048FE3 3018 0001:00048FF6 3000 0001:00048FF9 3019 0001:00049002 + 3020 0001:0004900A 3023 0001:00049010 3024 0001:00049017 3025 0001:0004901F + 3026 0001:00049033 3027 0001:0004903E 3029 0001:0004904C 3030 0001:00049058 + 3038 0001:0004905C 3039 0001:00049066 3040 0001:00049071 3041 0001:00049088 + 3042 0001:000490A4 3044 0001:000490B4 3045 0001:000490C0 3046 0001:000490CF + 3047 0001:000490DC 3048 0001:000490E9 3049 0001:000490FC 3050 0001:00049118 + 3051 0001:00049121 3052 0001:0004912E 3053 0001:00049141 3054 0001:0004915D + 3056 0001:00049166 3058 0001:0004916F 3060 0001:0004917B 3061 0001:00049188 + 3062 0001:00049195 3063 0001:000491A5 3064 0001:000491B2 3066 0001:000491D0 + 3067 0001:000491EF 3070 0001:000491F4 3071 0001:00049200 3072 0001:00049211 + 3073 0001:00049233 3074 0001:0004923D 3077 0001:00049244 3078 0001:00049251 + 3079 0001:00049255 3080 0001:0004927E 3086 0001:00049284 3087 0001:00049293 + 3088 0001:000492A9 3090 0001:000492B3 3091 0001:000492C4 3092 0001:000492E7 + 3094 0001:000492F7 3096 0001:00049307 3097 0001:00049324 3098 0001:0004933F + 3099 0001:00049350 3097 0001:00049377 3100 0001:0004937C 3104 0001:00049396 + 3105 0001:000493B3 3106 0001:000493CE 3107 0001:000493DF 3105 0001:000493FC + 3108 0001:00049401 3110 0001:00049416 3111 0001:00049424 3112 0001:0004942C + 3113 0001:00049437 3115 0001:00049443 3116 0001:00049455 3117 0001:00049479 + 3119 0001:00049495 3122 0001:000494AE 3125 0001:000494B4 3126 0001:000494BC + 3128 0001:000494D4 3129 0001:000494F3 3130 0001:0004950F 3133 0001:0004952B + 3134 0001:00049536 3135 0001:00049544 3136 0001:00049573 3138 0001:00049597 + 3143 0001:000495AA 3144 0001:000495B5 3145 0001:000495C3 3146 0001:000495F2 + 3148 0001:00049616 3152 0001:00049629 3153 0001:00049634 3154 0001:00049653 + 3156 0001:00049665 3161 0001:0004966C 3162 0001:0004967B 3163 0001:00049687 + 3165 0001:0004969A 3166 0001:000496AB 3167 0001:000496B0 3168 0001:000496C8 + 3169 0001:000496DE 3170 0001:000496F4 3171 0001:0004970A 3173 0001:0004971E + 3174 0001:00049726 3175 0001:00049734 3176 0001:00049744 3177 0001:00049752 + 3178 0001:00049760 3180 0001:0004976A 3181 0001:00049778 3182 0001:00049782 + 3183 0001:0004978D 3185 0001:00049795 3188 0001:0004979C 3189 0001:000497AB + 3190 0001:000497CB 3195 0001:000497D0 3196 0001:000497DF 3197 0001:000497F1 + 3199 0001:0004980B 3200 0001:00049821 3202 0001:00049833 3203 0001:0004984C + 3204 0001:00049858 3205 0001:00049864 3206 0001:00049878 3209 0001:00049891 + 3213 0001:00049898 3214 0001:000498A8 3215 0001:000498BE 3217 0001:000498CA + 3218 0001:000498E3 3219 0001:000498EB 3221 0001:000498F7 3224 0001:00049900 + 3225 0001:00049911 3226 0001:0004991A 3227 0001:00049928 3228 0001:00049935 + 3229 0001:0004994E 3232 0001:00049958 3233 0001:00049964 3234 0001:00049970 + 3235 0001:0004997B 3238 0001:00049980 3239 0001:00049988 3241 0001:00049994 + 3242 0001:000499A8 3243 0001:000499B3 3244 0001:000499BB 3246 0001:000499C7 + 3247 0001:000499EB 3250 0001:000499F6 3251 0001:00049A03 3252 0001:00049A15 + 5214 0001:00049D10 5214 0001:00049D53 5208 0001:00049D58 5209 0001:00049D6B + 5210 0001:00049D75 5212 0001:00049D85 + +Line numbers for ComStrs(ComStrs.pas) segment .text + + 61 0001:00049E68 61 0001:00049E6F + +Line numbers for Clipbrd(Clipbrd.pas) segment .text + + 112 0001:00049F08 113 0001:00049F0F 114 0001:00049F17 115 0001:00049F25 + 117 0001:00049F37 119 0001:00049F47 122 0001:00049F4C 123 0001:00049F53 + 125 0001:00049F65 126 0001:00049F6D 128 0001:00049F74 131 0001:00049F78 + 132 0001:00049F7F 133 0001:00049F88 134 0001:00049F8E 136 0001:00049F97 + 137 0001:00049F9C 139 0001:00049FA5 144 0001:00049FB0 146 0001:00049FB8 + 149 0001:00049FBC 150 0001:00049FC3 152 0001:00049FCC 153 0001:00049FDC + 156 0001:00049FE5 161 0001:00049FF9 163 0001:0004A000 164 0001:0004A010 + 165 0001:0004A027 167 0001:0004A02E 168 0001:0004A034 171 0001:0004A038 + 172 0001:0004A044 174 0001:0004A06A 224 0001:0004A070 225 0001:0004A083 + 226 0001:0004A08B 227 0001:0004A099 228 0001:0004A0AA 229 0001:0004A0B8 + 230 0001:0004A0C4 231 0001:0004A0D2 232 0001:0004A0E0 233 0001:0004A0E8 + 235 0001:0004A103 238 0001:0004A123 239 0001:0004A12C 242 0001:0004A143 + 244 0001:0004A153 274 0001:0004A15C 275 0001:0004A168 276 0001:0004A181 + 281 0001:0004A188 282 0001:0004A194 283 0001:0004A19C 284 0001:0004A1A6 + 285 0001:0004A1B4 286 0001:0004A1BA 288 0001:0004A1CF 290 0001:0004A1E4 + 291 0001:0004A1F3 293 0001:0004A203 303 0001:0004A208 304 0001:0004A214 + 305 0001:0004A234 312 0001:0004A238 313 0001:0004A244 314 0001:0004A24C + 315 0001:0004A25A 316 0001:0004A265 318 0001:0004A26C 320 0001:0004A27E + 321 0001:0004A28B 322 0001:0004A295 323 0001:0004A2A8 325 0001:0004A2AF + 316 0001:0004A2BD 327 0001:0004A2C4 329 0001:0004A2E8 331 0001:0004A2F8 + 337 0001:0004A2FC 338 0001:0004A309 339 0001:0004A311 340 0001:0004A31F + 341 0001:0004A329 342 0001:0004A333 344 0001:0004A353 346 0001:0004A363 + 352 0001:0004A368 353 0001:0004A375 354 0001:0004A37D 355 0001:0004A38B + 356 0001:0004A395 357 0001:0004A39F 359 0001:0004A3BF 361 0001:0004A3CF + 364 0001:0004A3D4 365 0001:0004A3E0 366 0001:0004A3F2 367 0001:0004A3FF + 368 0001:0004A411 369 0001:0004A41E 370 0001:0004A430 371 0001:0004A43D + 372 0001:0004A448 379 0001:0004A44C 380 0001:0004A458 381 0001:0004A460 + 382 0001:0004A46E 383 0001:0004A476 384 0001:0004A47B 385 0001:0004A48D + 386 0001:0004A49B 388 0001:0004A4B9 390 0001:0004A4C9 397 0001:0004A4D0 + 398 0001:0004A4DD 399 0001:0004A4E5 400 0001:0004A4F3 401 0001:0004A4FB + 402 0001:0004A500 403 0001:0004A512 404 0001:0004A520 406 0001:0004A53E + 408 0001:0004A54E 411 0001:0004A554 412 0001:0004A560 413 0001:0004A572 + 414 0001:0004A57F 415 0001:0004A591 416 0001:0004A59E 417 0001:0004A5A9 + 420 0001:0004A5B0 421 0001:0004A5BD 422 0001:0004A5C5 423 0001:0004A5D3 + 425 0001:0004A5ED 427 0001:0004A600 465 0001:0004A604 466 0001:0004A608 + 467 0001:0004A613 468 0001:0004A621 469 0001:0004A625 470 0001:0004A630 + 471 0001:0004A637 473 0001:0004A649 474 0001:0004A64D 476 0001:0004A64F + 470 0001:0004A65D 478 0001:0004A671 480 0001:0004A687 482 0001:0004A68C + 483 0001:0004A699 485 0001:0004A6CB 492 0001:0004A6D0 493 0001:0004A6D4 + 494 0001:0004A6DD 495 0001:0004A6EE 496 0001:0004A6F9 505 0001:0004A6FC + 506 0001:0004A70B 507 0001:0004A719 509 0001:0004A733 510 0001:0004A73F + 512 0001:0004A74F 514 0001:0004A759 517 0001:0004A760 518 0001:0004A771 + 519 0001:0004A77B 520 0001:0004A782 521 0001:0004A79E 529 0001:0004A7A4 + 530 0001:0004A7DC 523 0001:0004A7E0 525 0001:0004A7EC 526 0001:0004A7FC + 527 0001:0004A80C 528 0001:0004A813 + +Line numbers for StrUtils(StrUtils.pas) segment .text + + 257 0001:0004A83C 258 0001:0004A84B 259 0001:0004A863 262 0001:0004A870 + 263 0001:0004A87F 264 0001:0004A897 287 0001:0004A8A4 288 0001:0004A8B0 + 289 0001:0004A8C4 349 0001:0004A8C8 350 0001:0004A8D4 351 0001:0004A8E6 + 352 0001:0004A8F3 354 0001:0004A903 355 0001:0004A912 356 0001:0004A915 + 352 0001:0004A918 357 0001:0004A91E 411 0001:0004A924 412 0001:0004A94A + 413 0001:0004A996 421 0001:0004A99C 422 0001:0004A9C5 423 0001:0004AA25 + 715 0001:0004AA5C 715 0001:0004AA63 + +Line numbers for Buttons(Buttons.pas) segment .text + + 305 0001:0004B6E8 306 0001:0004B704 308 0001:0004B713 309 0001:0004B72B + 311 0001:0004B759 312 0001:0004B788 375 0001:0004B900 376 0001:0004B91B + 377 0001:0004B92C 378 0001:0004B95C 381 0001:0004B964 382 0001:0004B975 + 383 0001:0004B983 384 0001:0004B99F 387 0001:0004B9A4 388 0001:0004B9AD + 389 0001:0004B9BE 391 0001:0004B9CF 392 0001:0004B9DE 394 0001:0004B9F0 + 395 0001:0004BA06 398 0001:0004BA0C 399 0001:0004BA1B 400 0001:0004BA26 + 401 0001:0004BA38 402 0001:0004BA44 405 0001:0004BA48 406 0001:0004BA54 + 408 0001:0004BA69 409 0001:0004BA72 411 0001:0004BA85 416 0001:0004BA8C + 417 0001:0004BAA4 418 0001:0004BAAE 419 0001:0004BADB 422 0001:0004BAE0 + 423 0001:0004BAF1 424 0001:0004BAFC 425 0001:0004BB18 430 0001:0004BB1C + 431 0001:0004BB2B 433 0001:0004BB3D 435 0001:0004BB4E 436 0001:0004BB64 + 431 0001:0004BB67 437 0001:0004BB6D 438 0001:0004BB83 439 0001:0004BB94 + 442 0001:0004BB98 443 0001:0004BBA4 444 0001:0004BBAA 446 0001:0004BBB6 + 447 0001:0004BBC4 449 0001:0004BBCC 452 0001:0004BBD0 453 0001:0004BBD9 + 454 0001:0004BBEA 465 0001:0004BBF0 466 0001:0004BC08 467 0001:0004BC12 + 468 0001:0004BC24 469 0001:0004BC37 470 0001:0004BC41 471 0001:0004BC48 + 472 0001:0004BC4C 471 0001:0004BC5F 473 0001:0004BC65 474 0001:0004BC9A + 477 0001:0004BCA0 478 0001:0004BCB1 479 0001:0004BCBC 480 0001:0004BCC4 + 482 0001:0004BCDB 483 0001:0004BCE5 485 0001:0004BCEC 486 0001:0004BD08 + 491 0001:0004BD0C 492 0001:0004BD15 494 0001:0004BD19 495 0001:0004BD3F + 496 0001:0004BD4F 492 0001:0004BD52 497 0001:0004BD58 498 0001:0004BD68 + 499 0001:0004BD70 502 0001:0004BD74 503 0001:0004BD81 505 0001:0004BD8C + 506 0001:0004BD9D 507 0001:0004BDA5 509 0001:0004BDBB 514 0001:0004BDC0 + 515 0001:0004BDCC 516 0001:0004BDD4 517 0001:0004BDE2 519 0001:0004BDF4 + 520 0001:0004BE02 522 0001:0004BE1E 523 0001:0004BE39 524 0001:0004BE46 + 527 0001:0004BE51 530 0001:0004BE58 531 0001:0004BE64 533 0001:0004BE75 + 534 0001:0004BE7D 535 0001:0004BE86 537 0001:0004BE94 548 0001:0004BE98 + 549 0001:0004BEA5 550 0001:0004BEB8 551 0001:0004BEC7 552 0001:0004BED1 + 553 0001:0004BEF1 554 0001:0004BF0B 555 0001:0004BF19 557 0001:0004BF22 + 558 0001:0004BF3C 560 0001:0004BF52 561 0001:0004BF61 562 0001:0004BF6F + 563 0001:0004BF7A 564 0001:0004BF85 565 0001:0004BF99 566 0001:0004BFAE + 567 0001:0004BFC8 568 0001:0004BFCE 569 0001:0004BFDD 570 0001:0004BFFE + 574 0001:0004C010 575 0001:0004C031 576 0001:0004C03D 578 0001:0004C062 + 582 0001:0004C086 583 0001:0004C08B 584 0001:0004C090 585 0001:0004C09E + 586 0001:0004C0AD 587 0001:0004C0BC 588 0001:0004C0CA 589 0001:0004C0D4 + 590 0001:0004C0E1 592 0001:0004C0EC 593 0001:0004C105 594 0001:0004C10F + 595 0001:0004C11A 598 0001:0004C125 599 0001:0004C13A 600 0001:0004C158 + 601 0001:0004C168 602 0001:0004C173 603 0001:0004C17E 604 0001:0004C18C + 608 0001:0004C1B8 609 0001:0004C1CD 610 0001:0004C1EB 611 0001:0004C1FB + 612 0001:0004C206 613 0001:0004C211 614 0001:0004C21F 618 0001:0004C24B + 619 0001:0004C268 620 0001:0004C286 621 0001:0004C296 622 0001:0004C2A1 + 623 0001:0004C2AC 624 0001:0004C2BA 632 0001:0004C2EB 633 0001:0004C2F9 + 634 0001:0004C303 635 0001:0004C315 636 0001:0004C320 638 0001:0004C32C + 639 0001:0004C341 640 0001:0004C34B 642 0001:0004C360 644 0001:0004C36A + 646 0001:0004C375 647 0001:0004C385 648 0001:0004C390 649 0001:0004C3A0 + 650 0001:0004C3B0 651 0001:0004C3C3 653 0001:0004C3F4 654 0001:0004C404 + 655 0001:0004C414 656 0001:0004C427 661 0001:0004C465 662 0001:0004C46D + 664 0001:0004C47D 668 0001:0004C4A9 670 0001:0004C4B9 671 0001:0004C4C8 + 672 0001:0004C4D6 681 0001:0004C4DC 682 0001:0004C4EB 683 0001:0004C4F8 + 684 0001:0004C51E 687 0001:0004C52C 689 0001:0004C53E 690 0001:0004C54C + 691 0001:0004C569 692 0001:0004C57A 694 0001:0004C588 697 0001:0004C58E + 700 0001:0004C594 702 0001:0004C598 703 0001:0004C5A8 706 0001:0004C5D8 + 708 0001:0004C5E4 712 0001:0004C621 715 0001:0004C662 719 0001:0004C668 + 722 0001:0004C683 723 0001:0004C690 725 0001:0004C69A 726 0001:0004C6A7 + 727 0001:0004C6B7 729 0001:0004C6E2 730 0001:0004C6EF 731 0001:0004C6FF + 734 0001:0004C72C 737 0001:0004C757 747 0001:0004C760 748 0001:0004C771 + 749 0001:0004C77C 751 0001:0004C788 753 0001:0004C792 756 0001:0004C7B1 + 757 0001:0004C7BA 758 0001:0004C7E8 760 0001:0004C7F4 762 0001:0004C800 + 763 0001:0004C826 765 0001:0004C853 770 0001:0004C874 771 0001:0004C891 + 777 0001:0004C89D 779 0001:0004C8A4 780 0001:0004C8B8 784 0001:0004C8CB + 785 0001:0004C8DE 789 0001:0004C8EF 790 0001:0004C8FB 793 0001:0004C900 + 795 0001:0004C90A 797 0001:0004C910 798 0001:0004C924 799 0001:0004C92B + 801 0001:0004C93E 802 0001:0004C94F 806 0001:0004C95A 808 0001:0004C974 + 809 0001:0004C97B 811 0001:0004C98E 816 0001:0004C9A1 818 0001:0004C9A7 + 820 0001:0004C9C7 821 0001:0004C9CE 823 0001:0004C9E0 827 0001:0004C9F0 + 830 0001:0004CA03 831 0001:0004CA0B 835 0001:0004CA1B 836 0001:0004CA29 + 840 0001:0004CA39 841 0001:0004CA42 845 0001:0004CA53 846 0001:0004CA62 + 853 0001:0004CA71 854 0001:0004CA80 858 0001:0004CA92 859 0001:0004CAA0 + 861 0001:0004CABE 863 0001:0004CAE5 871 0001:0004CAF0 872 0001:0004CAFF + 874 0001:0004CB2D 875 0001:0004CB43 876 0001:0004CB5D 881 0001:0004CB64 + 882 0001:0004CB70 883 0001:0004CB7B 884 0001:0004CB8F 887 0001:0004CB94 + 888 0001:0004CB9D 890 0001:0004CBF5 893 0001:0004CBFC 894 0001:0004CC05 + 896 0001:0004CC3C 899 0001:0004CC40 900 0001:0004CC4C 901 0001:0004CC66 + 904 0001:0004CC6C 905 0001:0004CC78 906 0001:0004CC92 911 0001:0004CC98 + 912 0001:0004CCB4 913 0001:0004CCC9 914 0001:0004CCDF 915 0001:0004CCEC + 916 0001:0004CCFF 917 0001:0004CD0B 918 0001:0004CD15 919 0001:0004CD22 + 920 0001:0004CD2F 921 0001:0004CD3C 922 0001:0004CD46 923 0001:0004CD50 + 924 0001:0004CD71 927 0001:0004CD7C 928 0001:0004CD8D 929 0001:0004CD93 + 930 0001:0004CDA1 931 0001:0004CDBD 944 0001:0004CDC4 945 0001:0004CDE5 + 947 0001:0004CDF1 948 0001:0004CDFB 950 0001:0004CE07 951 0001:0004CE13 + 952 0001:0004CE2B 954 0001:0004CE37 955 0001:0004CE41 957 0001:0004CE55 + 959 0001:0004CE67 961 0001:0004CE7F 962 0001:0004CE8B 964 0001:0004CE91 + 965 0001:0004CEA0 967 0001:0004CEA6 968 0001:0004CEB2 970 0001:0004CEB8 + 972 0001:0004CEBC 973 0001:0004CEC0 975 0001:0004CECC 977 0001:0004CEDF + 979 0001:0004CEE5 981 0001:0004CEEB 983 0001:0004CEF1 987 0001:0004CEF5 + 988 0001:0004CF00 990 0001:0004CF06 991 0001:0004CF16 992 0001:0004CF39 + 996 0001:0004CF6A 997 0001:0004CF7A 998 0001:0004CF9D 1001 0001:0004CFCC + 1004 0001:0004CFD2 1005 0001:0004CFD8 1006 0001:0004CFEE 1009 0001:0004CFFF + 1010 0001:0004D00B 1015 0001:0004D07E 1016 0001:0004D098 1018 0001:0004D0A4 + 1019 0001:0004D0AB 1020 0001:0004D0BA 1021 0001:0004D0C1 1025 0001:0004D0E4 + 1028 0001:0004D114 1030 0001:0004D15E 1032 0001:0004D16A 1033 0001:0004D181 + 1035 0001:0004D192 1037 0001:0004D19F 1039 0001:0004D1AE 1041 0001:0004D1D2 + 1042 0001:0004D1F4 1044 0001:0004D205 1045 0001:0004D20C 1049 0001:0004D215 + 1050 0001:0004D21A 1052 0001:0004D21F 1055 0001:0004D2AF 1060 0001:0004D2B8 + 1061 0001:0004D2C1 1063 0001:0004D2CD 1065 0001:0004D2D9 1066 0001:0004D2E2 + 1067 0001:0004D2FD 1068 0001:0004D309 1070 0001:0004D31C 1073 0001:0004D32D + 1078 0001:0004D334 1079 0001:0004D33D 1080 0001:0004D345 1081 0001:0004D351 + 1083 0001:0004D357 1084 0001:0004D35B 1085 0001:0004D36C 1089 0001:0004D370 + 1090 0001:0004D37F 1091 0001:0004D395 1093 0001:0004D3A7 1095 0001:0004D3B3 + 1096 0001:0004D3BD 1098 0001:0004D3C5 1100 0001:0004D3CF 1105 0001:0004D3D8 + 1106 0001:0004D3E7 1107 0001:0004D3F9 1109 0001:0004D405 1110 0001:0004D417 + 1111 0001:0004D41B 1112 0001:0004D441 1113 0001:0004D457 1115 0001:0004D465 + 1116 0001:0004D471 1119 0001:0004D47B 1120 0001:0004D487 1121 0001:0004D48F + 1127 0001:0004D498 1128 0001:0004D4A8 1129 0001:0004D4BE 1131 0001:0004D4CE + 1132 0001:0004D4D8 1133 0001:0004D507 1136 0001:0004D513 1137 0001:0004D51D + 1138 0001:0004D527 1139 0001:0004D53C 1142 0001:0004D546 1144 0001:0004D54C + 1145 0001:0004D560 1149 0001:0004D579 1150 0001:0004D58F 1152 0001:0004D59A + 1153 0001:0004D5AC 1155 0001:0004D5B4 1158 0001:0004D5BC 1159 0001:0004D5C3 + 1160 0001:0004D5CB 1163 0001:0004D5D0 1164 0001:0004D5D9 1165 0001:0004D5EC + 1168 0001:0004D5F0 1169 0001:0004D5F9 1170 0001:0004D604 1173 0001:0004D608 + 1174 0001:0004D611 1175 0001:0004D623 1178 0001:0004D628 1179 0001:0004D634 + 1180 0001:0004D645 1181 0001:0004D64D 1184 0001:0004D654 1185 0001:0004D65D + 1186 0001:0004D66F 1189 0001:0004D674 1190 0001:0004D680 1191 0001:0004D68C + 1192 0001:0004D696 1194 0001:0004D6A7 1195 0001:0004D6B8 1197 0001:0004D6C0 + 1200 0001:0004D6C4 1201 0001:0004D6D0 1202 0001:0004D6D8 1207 0001:0004D6DC + 1208 0001:0004D6E5 1210 0001:0004D6FA 1211 0001:0004D701 1212 0001:0004D70D + 1213 0001:0004D713 1214 0001:0004D718 1216 0001:0004D726 1219 0001:0004D72C + 1220 0001:0004D738 1221 0001:0004D748 1223 0001:0004D756 1224 0001:0004D76E + 1225 0001:0004D77A 1227 0001:0004D780 1228 0001:0004D794 1232 0001:0004D7A0 + 1233 0001:0004D7AA 1235 0001:0004D7B5 1237 0001:0004D7C3 1240 0001:0004D7C8 + 1241 0001:0004D7D4 1243 0001:0004D7E2 1244 0001:0004D7EE 1246 0001:0004D7F6 + 1249 0001:0004D7FC 1250 0001:0004D808 1252 0001:0004D816 1253 0001:0004D822 + 1255 0001:0004D82A 1258 0001:0004D830 1259 0001:0004D83C 1261 0001:0004D84A + 1262 0001:0004D856 1264 0001:0004D85E 1267 0001:0004D864 1268 0001:0004D870 + 1270 0001:0004D884 1271 0001:0004D890 1273 0001:0004D898 1276 0001:0004D89C + 1277 0001:0004D8A8 1279 0001:0004D8B6 1280 0001:0004D8C2 1282 0001:0004D8CA + 1285 0001:0004D8D0 1286 0001:0004D8DC 1288 0001:0004D8EA 1289 0001:0004D8F6 + 1290 0001:0004D8FC 1291 0001:0004D911 1292 0001:0004D922 1294 0001:0004D92A + 1297 0001:0004D934 1298 0001:0004D940 1300 0001:0004D94E 1301 0001:0004D95A + 1303 0001:0004D962 1306 0001:0004D968 1307 0001:0004D975 1308 0001:0004D980 + 1309 0001:0004D998 1314 0001:0004D9A0 1315 0001:0004D9AC 1316 0001:0004D9CB + 1317 0001:0004D9D3 1318 0001:0004D9DE 1323 0001:0004D9E4 1324 0001:0004D9F0 + 1326 0001:0004DA01 1327 0001:0004DA0A 1329 0001:0004DA12 1331 0001:0004DA2A + 1332 0001:0004DA34 1333 0001:0004DA3E 1334 0001:0004DA55 1335 0001:0004DA64 + 1337 0001:0004DA6C 1340 0001:0004DA7E 1343 0001:0004DA84 1345 0001:0004DAA4 + 1348 0001:0004DAEF 1349 0001:0004DAFB 1351 0001:0004DB07 1352 0001:0004DB2F + 1355 0001:0004DB34 1356 0001:0004DB40 1357 0001:0004DB48 1360 0001:0004DB4C + 1361 0001:0004DB58 1362 0001:0004DB60 1365 0001:0004DB64 1366 0001:0004DB70 + 1368 0001:0004DB7C 1369 0001:0004DB84 1371 0001:0004DB95 1376 0001:0004DB9C + 1377 0001:0004DBA8 1380 0001:0004DBB3 1383 0001:0004DBF2 1385 0001:0004DC0F + 1386 0001:0004DC19 1387 0001:0004DC25 1389 0001:0004DC30 1394 0001:0004DC34 + 1395 0001:0004DC40 1396 0001:0004DC4B 1398 0001:0004DC84 1400 0001:0004DC98 + 1401 0001:0004DCA2 1402 0001:0004DCAE 1404 0001:0004DCB9 1409 0001:0004DCC0 + 1410 0001:0004DCCC 1412 0001:0004DCDA 1413 0001:0004DCE8 1414 0001:0004DCF6 + 1415 0001:0004DD0B 1416 0001:0004DD3D 1418 0001:0004DD59 1420 0001:0004DD60 + 1421 0001:0004DD6F 1422 0001:0004DD7D 1425 0001:0004DD93 1426 0001:0004DDA5 + 1428 0001:0004DDB3 1430 0001:0004DDFE 1432 0001:0004DE17 1437 0001:0004DE1C + 1438 0001:0004DE37 1439 0001:0004DE4C 1440 0001:0004DE62 1441 0001:0004DE6F + 1442 0001:0004DE84 1443 0001:0004DE8E 1444 0001:0004DE98 1445 0001:0004DEA2 + 1446 0001:0004DEAF 1447 0001:0004DEBC 1448 0001:0004DECE 1449 0001:0004DEF3 + 1452 0001:0004DEFC 1453 0001:0004DF0D 1454 0001:0004DF1B 1455 0001:0004DF29 + 1456 0001:0004DF45 1461 0001:0004DF4C 1462 0001:0004DF55 1463 0001:0004DF61 + 1465 0001:0004DF67 1466 0001:0004DF6B 1467 0001:0004DF73 1468 0001:0004DF84 + 1471 0001:0004DF88 1472 0001:0004DF94 1473 0001:0004DF9F 1474 0001:0004DFA6 + 1477 0001:0004DFAC 1478 0001:0004DFB8 1480 0001:0004DFC6 1481 0001:0004DFD2 + 1483 0001:0004DFDA 1489 0001:0004DFE0 1490 0001:0004DFE9 1493 0001:0004DFFA + 1494 0001:0004E005 1495 0001:0004E015 1499 0001:0004E01F 1501 0001:0004E027 + 1500 0001:0004E030 1502 0001:0004E042 1503 0001:0004E05F 1506 0001:0004E069 + 1508 0001:0004E071 1511 0001:0004E078 1512 0001:0004E084 1514 0001:0004E08D + 1515 0001:0004E099 1517 0001:0004E0A5 1520 0001:0004E0AC 1521 0001:0004E0B8 + 1522 0001:0004E0C8 1533 0001:0004E0CC 1534 0001:0004E0EE 1535 0001:0004E102 + 1539 0001:0004E10D 1540 0001:0004E121 1541 0001:0004E135 1542 0001:0004E140 + 1544 0001:0004E14B 1545 0001:0004E15D 1546 0001:0004E169 1549 0001:0004E16D + 1551 0001:0004E17F 1552 0001:0004E18B 1554 0001:0004E191 1555 0001:0004E197 + 1557 0001:0004E19D 1558 0001:0004E1A9 1560 0001:0004E1AF 1561 0001:0004E1BD + 1563 0001:0004E1C3 1565 0001:0004E1C7 1567 0001:0004E1D7 1569 0001:0004E1F9 + 1570 0001:0004E215 1572 0001:0004E23D 1573 0001:0004E243 1575 0001:0004E254 + 1576 0001:0004E260 1579 0001:0004E2C0 1581 0001:0004E2D2 1582 0001:0004E2E8 + 1583 0001:0004E2FE 1588 0001:0004E31B 1590 0001:0004E326 1591 0001:0004E32D + 1592 0001:0004E33A 1593 0001:0004E343 1597 0001:0004E34A 1599 0001:0004E358 + 1600 0001:0004E36E 1601 0001:0004E384 1602 0001:0004E397 1605 0001:0004E3B3 + 1609 0001:0004E3C0 1611 0001:0004E3C6 1612 0001:0004E3DC 1613 0001:0004E3F2 + 1614 0001:0004E408 1615 0001:0004E424 1618 0001:0004E433 1620 0001:0004E449 + 1622 0001:0004E455 1623 0001:0004E460 1626 0001:0004E46D 1627 0001:0004E481 + 1628 0001:0004E487 1629 0001:0004E494 1632 0001:0004E500 1634 0001:0004E50E + 1635 0001:0004E519 1636 0001:0004E526 1637 0001:0004E53C 1638 0001:0004E552 + 1642 0001:0004E56A 1643 0001:0004E59F 1646 0001:0004E5A4 1647 0001:0004E5B0 + 1648 0001:0004E5BB 1649 0001:0004E5C3 1652 0001:0004E5C8 1653 0001:0004E5D4 + 1654 0001:0004E5DF 1655 0001:0004E5E7 1658 0001:0004E5EC 1659 0001:0004E5F8 + 1660 0001:0004E612 1663 0001:0004E618 1664 0001:0004E621 1665 0001:0004E634 + 1668 0001:0004E638 1669 0001:0004E644 1670 0001:0004E655 1671 0001:0004E65F + 1672 0001:0004E667 1675 0001:0004E66C 1676 0001:0004E675 1677 0001:0004E687 + 1680 0001:0004E68C 1681 0001:0004E698 1682 0001:0004E6A0 1685 0001:0004E6A4 + 1686 0001:0004E6AD 1687 0001:0004E6BE 1690 0001:0004E6C4 1691 0001:0004E6D0 + 1693 0001:0004E6DE 1694 0001:0004E6EA 1696 0001:0004E6F2 1699 0001:0004E6F8 + 1700 0001:0004E71A 1702 0001:0004E72C 1704 0001:0004E736 1705 0001:0004E74F + 1707 0001:0004E769 1710 0001:0004E78C 1711 0001:0004E79B 1714 0001:0004E7BA + 1715 0001:0004E7CF 1716 0001:0004E7E7 1717 0001:0004E7F1 1719 0001:0004E7FB + 1720 0001:0004E807 1722 0001:0004E834 1725 0001:0004E838 1726 0001:0004E857 + 1727 0001:0004E8B6 1730 0001:0004E8BC 1731 0001:0004E8C5 1732 0001:0004E8D1 + 1736 0001:0004E93D 1737 0001:0004E947 1738 0001:0004E956 1741 0001:0004E95C + 1742 0001:0004E968 1744 0001:0004E976 1745 0001:0004E982 1747 0001:0004E98A + 1750 0001:0004E990 1751 0001:0004E999 1752 0001:0004E9AB 1755 0001:0004E9B0 + 1756 0001:0004E9BC 1757 0001:0004E9C8 1758 0001:0004E9D2 1760 0001:0004E9E3 + 1761 0001:0004E9F4 1763 0001:0004E9FC 1766 0001:0004EA00 1767 0001:0004EA0C + 1769 0001:0004EA1A 1770 0001:0004EA26 1772 0001:0004EA2E 1775 0001:0004EA34 + 1776 0001:0004EA40 1778 0001:0004EA54 1779 0001:0004EA60 1781 0001:0004EA68 + 1786 0001:0004EA6C 1787 0001:0004EA78 1789 0001:0004EA86 1790 0001:0004EA94 + 1791 0001:0004EAA2 1792 0001:0004EAB7 1793 0001:0004EAE9 1795 0001:0004EB05 + 1797 0001:0004EB0C 1798 0001:0004EB1B 1799 0001:0004EB29 1803 0001:0004EB3B + 1805 0001:0004EB86 1807 0001:0004EB9F 1812 0001:0004EBA4 1813 0001:0004EBA8 + 1814 0001:0004EBAC 1813 0001:0004EBC0 1815 0001:0004EBC6 1818 0001:0004EBCC + 1819 0001:0004EBD8 1820 0001:0004EBE3 1822 0001:0004EC06 1823 0001:0004EC10 + 1825 0001:0004EC1B 1828 0001:0004EC20 1829 0001:0004EC2C 1830 0001:0004EC37 + 1832 0001:0004EC51 1833 0001:0004EC5B 1835 0001:0004EC66 1840 0001:0004ECE8 + 1841 0001:0004ED1B 1837 0001:0004ED20 1838 0001:0004ED33 1839 0001:0004ED44 + +Line numbers for ExtDlgs(ExtDlgs.pas) segment .text + + 282 0001:0004ED78 282 0001:0004ED7F + +Line numbers for IniFiles(IniFiles.pas) segment .text + + 945 0001:0004EDE0 945 0001:0004EDE7 + +Line numbers for Registry(Registry.pas) segment .text + + 164 0001:0004EEB0 165 0001:0004EEB9 166 0001:0004EEE0 169 0001:0004EEE4 + 170 0001:0004EEED 171 0001:0004EF07 174 0001:0004EF0C 175 0001:0004EF15 + 176 0001:0004EF2A 177 0001:0004EF33 178 0001:0004EF3C 179 0001:0004EF45 + 181 0001:0004EF4E 183 0001:0004EF56 186 0001:0004EF5C 187 0001:0004EF65 + 188 0001:0004EF71 189 0001:0004EF7D 190 0001:0004EF89 191 0001:0004EF95 + 192 0001:0004EF9C 195 0001:0004EFA0 196 0001:0004EFB8 197 0001:0004EFC5 + 198 0001:0004EFCF 199 0001:0004EFF1 208 0001:0004EFF8 209 0001:0004F009 + 210 0001:0004F011 211 0001:0004F02D 214 0001:0004F034 215 0001:0004F03B + 217 0001:0004F044 218 0001:0004F04D 219 0001:0004F05B 220 0001:0004F067 + 221 0001:0004F06F 223 0001:0004F07A 226 0001:0004F080 227 0001:0004F08C + 229 0001:0004F097 231 0001:0004F0A0 232 0001:0004F0AC 234 0001:0004F0B3 + 235 0001:0004F0BC 237 0001:0004F0C4 240 0001:0004F0C8 241 0001:0004F0D7 + 242 0001:0004F0DF 243 0001:0004F0E8 244 0001:0004F0F6 247 0001:0004F0FC + 248 0001:0004F108 249 0001:0004F117 250 0001:0004F122 251 0001:0004F12E + 281 0001:0004F134 282 0001:0004F157 283 0001:0004F162 285 0001:0004F16D + 286 0001:0004F185 287 0001:0004F18A 289 0001:0004F196 292 0001:0004F1C5 + 294 0001:0004F1FC 296 0001:0004F202 297 0001:0004F22C 299 0001:0004F25A + 306 0001:0004F26C 307 0001:0004F28B 308 0001:0004F296 310 0001:0004F2A1 + 311 0001:0004F2B9 312 0001:0004F2BE 314 0001:0004F2E9 316 0001:0004F2EF + 317 0001:0004F2F9 318 0001:0004F323 322 0001:0004F336 325 0001:0004F361 + 327 0001:0004F367 328 0001:0004F371 329 0001:0004F39B 333 0001:0004F3AB + 335 0001:0004F3D3 337 0001:0004F3D9 338 0001:0004F3E3 339 0001:0004F40D + 343 0001:0004F43B 381 0001:0004F44C 382 0001:0004F458 383 0001:0004F476 + 386 0001:0004F47C 387 0001:0004F488 388 0001:0004F497 391 0001:0004F4DA + 394 0001:0004F4EF 395 0001:0004F4FB 397 0001:0004F50A 425 0001:0004F510 + 426 0001:0004F532 427 0001:0004F53A 429 0001:0004F549 430 0001:0004F557 + 432 0001:0004F56A 433 0001:0004F571 434 0001:0004F596 435 0001:0004F5B3 + 430 0001:0004F5B6 437 0001:0004F5E0 442 0001:0004F5E4 443 0001:0004F5F3 + 444 0001:0004F602 446 0001:0004F62C 447 0001:0004F63C 452 0001:0004F640 + 453 0001:0004F64C 454 0001:0004F65E 455 0001:0004F666 456 0001:0004F670 + 468 0001:0004F674 469 0001:0004F683 470 0001:0004F6A4 481 0001:0004F6A8 + 482 0001:0004F6B7 483 0001:0004F6C5 485 0001:0004F6CB 486 0001:0004F6D8 + 487 0001:0004F6F7 488 0001:0004F703 489 0001:0004F71E 491 0001:0004F728 + 492 0001:0004F730 502 0001:0004F734 503 0001:0004F740 504 0001:0004F754 + 505 0001:0004F765 513 0001:0004F76C 514 0001:0004F778 515 0001:0004F78C + 556 0001:0004F790 557 0001:0004F79C 558 0001:0004F7B3 559 0001:0004F7BF + 560 0001:0004F7CA 607 0001:0004F7D0 608 0001:0004F7DF 609 0001:0004F7EA + 611 0001:0004F811 612 0001:0004F838 618 0001:0004F840 619 0001:0004F84F + 620 0001:0004F854 622 0001:0004F87B 623 0001:0004F8A2 624 0001:0004F8A8 + 625 0001:0004F8B8 637 0001:0004F8C0 638 0001:0004F8CC 639 0001:0004F8E0 + 1475 0001:0004F944 1475 0001:0004F94B + +Line numbers for Mapi(Mapi.pas) segment .text + + 596 0001:0004F960 597 0001:0004F9AC 594 0001:0004F9B0 595 0001:0004F9BA + +Line numbers for ExtActns(ExtActns.pas) segment .text + + 1365 0001:0004F9BC 1366 0001:0004F9E7 1368 0001:0004FA07 1362 0001:0004FA0C + 1363 0001:0004FA16 + +Line numbers for ListActns(ListActns.pas) segment .text + + 216 0001:0005072C 217 0001:00050738 219 0001:0005074A 220 0001:0005075E + 221 0001:0005076C 222 0001:0005077A 223 0001:00050788 225 0001:000507A3 + 228 0001:000507BF 231 0001:000507C4 232 0001:000507CB 233 0001:000507D4 + 234 0001:000507E2 237 0001:000507E8 238 0001:00050803 239 0001:00050810 + 240 0001:00050835 243 0001:0005083C 244 0001:00050848 245 0001:00050857 + 247 0001:00050867 248 0001:00050872 251 0001:00050878 252 0001:00050884 + 253 0001:00050892 254 0001:0005089A 257 0001:000508A0 258 0001:000508AC + 259 0001:000508B5 260 0001:000508BD 263 0001:000508C4 264 0001:000508D0 + 265 0001:000508D9 266 0001:000508E1 271 0001:000508E8 272 0001:000508F8 + 273 0001:00050920 276 0001:00050928 277 0001:00050931 278 0001:0005093C + 279 0001:00050948 282 0001:0005094C 283 0001:00050958 284 0001:0005096C + 285 0001:00050985 288 0001:0005098C 289 0001:0005099C 290 0001:000509A6 + 292 0001:000509BE 293 0001:000509C7 295 0001:000509DD 296 0001:000509F4 + 302 0001:000509FC 303 0001:00050A0B 304 0001:00050A19 305 0001:00050A27 + 306 0001:00050A3A 307 0001:00050A4D 308 0001:00050A58 309 0001:00050A63 + 314 0001:00050A68 316 0001:00050A77 317 0001:00050A7D 318 0001:00050A83 + 320 0001:00050A90 321 0001:00050AA5 322 0001:00050AB8 324 0001:00050AC0 + 325 0001:00050ACE 326 0001:00050AD6 327 0001:00050ADE 328 0001:00050AE6 + 329 0001:00050AEC 330 0001:00050AEF 332 0001:00050AF2 333 0001:00050AFA + 334 0001:00050B14 335 0001:00050B1A 336 0001:00050B26 340 0001:00050B2C + 341 0001:00050B38 342 0001:00050B49 345 0001:00050B50 346 0001:00050B5C + 348 0001:00050B67 349 0001:00050B70 350 0001:00050B76 352 0001:00050B83 + 355 0001:00050B88 356 0001:00050B8F 357 0001:00050B9C 361 0001:00050BA0 + 362 0001:00050BBB 363 0001:00050BCC 364 0001:00050BD3 365 0001:00050BF5 + 370 0001:00050BFC 371 0001:00050C17 372 0001:00050C24 373 0001:00050C31 + 374 0001:00050C38 375 0001:00050C42 376 0001:00050C67 381 0001:00050C6C + 382 0001:00050C79 383 0001:00050C89 384 0001:00050C93 385 0001:00050CA1 + 387 0001:00050CB7 388 0001:00050CCB 389 0001:00050CE4 391 0001:00050D17 + 392 0001:00050D28 388 0001:00050D4E 394 0001:00050D53 395 0001:00050D60 + 397 0001:00050D8F 399 0001:00050DA1 402 0001:00050DA8 403 0001:00050DB2 + 404 0001:00050DB9 405 0001:00050DC6 406 0001:00050DDE 409 0001:00050DE4 + 410 0001:00050DF3 411 0001:00050DFB 414 0001:00050E00 415 0001:00050E0C + 416 0001:00050E13 419 0001:00050E18 420 0001:00050E1F 421 0001:00050E27 + 422 0001:00050E33 423 0001:00050E44 424 0001:00050E50 425 0001:00050E61 + 430 0001:00050E64 431 0001:00050E70 433 0001:00050E7F 434 0001:00050E8B + 436 0001:00050E90 438 0001:00050EA2 439 0001:00050EAE 440 0001:00050ECB + 442 0001:00050EE8 443 0001:00050EF2 444 0001:00050F00 446 0001:00050F26 + 448 0001:00050F38 439 0001:00050F3B 449 0001:00050F40 450 0001:00050F48 + 451 0001:00050F54 453 0001:00050F65 458 0001:00050F6C 459 0001:00050F78 + 461 0001:00050F87 462 0001:00050F93 464 0001:00050F95 466 0001:00050FA3 + 467 0001:00050FAF 468 0001:00050FC8 469 0001:00050FE5 467 0001:00051001 + 471 0001:00051006 476 0001:0005100C 477 0001:00051018 478 0001:00051024 + 479 0001:0005103D 480 0001:0005105A 478 0001:00051076 481 0001:0005107B + 482 0001:00051087 485 0001:0005108C 486 0001:0005109B 492 0001:000510A0 + 493 0001:000510B0 494 0001:000510B4 495 0001:000510C0 496 0001:000510CF + 497 0001:000510D5 498 0001:000510F9 504 0001:00051100 505 0001:00051126 + 507 0001:0005113F 508 0001:0005114C 510 0001:0005116F 513 0001:00051192 + 514 0001:000511E8 526 0001:000511F0 527 0001:000511FF 530 0001:00051213 + 531 0001:00051233 532 0001:00051253 534 0001:00051267 535 0001:0005127C + 536 0001:00051290 538 0001:000512A1 539 0001:000512AF 540 0001:000512BD + 542 0001:000512CD 543 0001:000512E2 545 0001:000512F6 546 0001:00051304 + 547 0001:00051314 549 0001:00051322 531 0001:00051325 553 0001:00051333 + 554 0001:00051353 555 0001:00051373 557 0001:00051387 558 0001:0005139C + 559 0001:000513B9 560 0001:000513CE 561 0001:000513E9 554 0001:000513EC + 564 0001:000513F1 569 0001:000513F8 570 0001:00051404 571 0001:0005140F + 573 0001:0005144C 574 0001:0005146C 576 0001:00051480 577 0001:00051495 + 578 0001:000514A9 580 0001:000514C4 581 0001:000514D2 582 0001:000514E0 + 584 0001:000514F0 585 0001:00051505 587 0001:00051523 588 0001:00051531 + 589 0001:00051541 591 0001:0005154F 573 0001:00051552 592 0001:0005155B + 597 0001:00051560 598 0001:0005157B 599 0001:00051588 600 0001:000515A9 + 601 0001:000515D3 604 0001:000515D8 605 0001:000515E9 606 0001:000515F6 + 607 0001:00051612 610 0001:00051618 611 0001:00051621 612 0001:00051635 + 615 0001:0005163C 616 0001:0005164C 617 0001:0005166E 618 0001:00051674 + 619 0001:0005168F 620 0001:0005169C 621 0001:000516B8 624 0001:000516C0 + 625 0001:000516C9 626 0001:000516D4 629 0001:000516D8 630 0001:000516E7 + 631 0001:00051703 634 0001:00051708 635 0001:00051714 636 0001:00051725 + 639 0001:0005172C 640 0001:0005173B 641 0001:00051754 646 0001:00051758 + 647 0001:00051761 648 0001:00051778 651 0001:0005177C 652 0001:00051785 + 654 0001:000517B5 657 0001:000517BC 658 0001:000517C8 659 0001:000517D3 + 660 0001:000517E8 661 0001:000517FD 662 0001:0005180C 663 0001:00051814 + 666 0001:00051818 667 0001:00051824 669 0001:0005182A 670 0001:0005183F + 671 0001:0005184D 673 0001:0005184F 675 0001:00051879 676 0001:0005188E + 677 0001:00051896 680 0001:0005189C 681 0001:000518A8 689 0001:000518AC + 690 0001:000518C9 691 0001:000518E2 692 0001:000518F7 693 0001:00051905 + 695 0001:0005191A 696 0001:0005192E 697 0001:0005194A 698 0001:0005196C + 696 0001:0005198D 701 0001:00051994 702 0001:000519A9 703 0001:000519C4 + 704 0001:000519D8 705 0001:000519F2 702 0001:00051A0A 706 0001:00051A2C + 709 0001:00051A34 710 0001:00051A40 714 0001:00051A44 715 0001:00051A86 + 718 0001:00051A8C 719 0001:00051A98 720 0001:00051AAD 721 0001:00051AC1 + 722 0001:00051ACF 724 0001:00051B04 724 0001:00051B0B + +Line numbers for ComCtrls(ComCtrls.pas) segment .text + + 4031 0001:0005DBCC 4032 0001:0005DBD5 4033 0001:0005DBDC 4034 0001:0005DBE2 + 4035 0001:0005DBF3 4036 0001:0005DC01 4039 0001:0005DC08 4040 0001:0005DC0F + 4041 0001:0005DC1B 4042 0001:0005DC32 4045 0001:0005DC38 4046 0001:0005DC3C + 4048 0001:0005DC45 4049 0001:0005DC59 4050 0001:0005DC62 4052 0001:0005DC69 + 4053 0001:0005DC74 4056 0001:0005DC8C 4061 0001:0005DC90 4062 0001:0005DC99 + 4063 0001:0005DCA8 4065 0001:0005DCB3 4076 0001:0005DCD0 4077 0001:0005DCDF + 4079 0001:0005DCEB 4080 0001:0005DCFE 4081 0001:0005DD0E 4082 0001:0005DD14 + 4084 0001:0005DD28 4106 0001:0005DE2C 4107 0001:0005DE33 4108 0001:0005DE47 + 4111 0001:0005DE4C 4112 0001:0005DE68 4113 0001:0005DE86 4114 0001:0005DE9B + 4115 0001:0005DEC3 4118 0001:0005DEC8 4119 0001:0005DEEA 4120 0001:0005DF0A + 4121 0001:0005DF3A 4122 0001:0005DF67 4130 0001:0005DF6C 4131 0001:0005DF9F + 4132 0001:0005DFBA 4133 0001:0005DFC3 4134 0001:0005DFCA 4136 0001:0005DFEC + 4137 0001:0005E031 4138 0001:0005E069 4141 0001:0005E070 4142 0001:0005E079 + 4143 0001:0005E099 4148 0001:0005E0A0 4149 0001:0005E0C2 4150 0001:0005E0C9 + 4152 0001:0005E0EB 4153 0001:0005E11B 4154 0001:0005E146 4161 0001:0005E14C + 4162 0001:0005E172 4164 0001:0005E190 4165 0001:0005E19B 4166 0001:0005E1AF + 4168 0001:0005E1D1 4169 0001:0005E210 4170 0001:0005E23D 4175 0001:0005E244 + 4176 0001:0005E26A 4177 0001:0005E271 4178 0001:0005E277 4180 0001:0005E299 + 4181 0001:0005E2EB 4188 0001:0005E2F0 4189 0001:0005E316 4191 0001:0005E334 + 4192 0001:0005E33F 4193 0001:0005E353 4195 0001:0005E375 4196 0001:0005E3B4 + 4197 0001:0005E3E1 4200 0001:0005E3E8 4201 0001:0005E3F4 4202 0001:0005E403 + 4203 0001:0005E421 4205 0001:0005E427 4206 0001:0005E432 4208 0001:0005E43D + 4213 0001:0005E444 4214 0001:0005E45F 4215 0001:0005E46C 4216 0001:0005E479 + 4217 0001:0005E486 4218 0001:0005E490 4219 0001:0005E49C 4220 0001:0005E4B1 + 4221 0001:0005E4C0 4222 0001:0005E4D5 4223 0001:0005E4E6 4224 0001:0005E4FB + 4225 0001:0005E52C 4228 0001:0005E534 4229 0001:0005E545 4230 0001:0005E552 + 4231 0001:0005E55F 4232 0001:0005E56C 4233 0001:0005E579 4234 0001:0005E595 + 4237 0001:0005E59C 4238 0001:0005E5A6 4239 0001:0005E5AA 4240 0001:0005E5CF + 4243 0001:0005E5D4 4244 0001:0005E5E0 4245 0001:0005E5E7 4248 0001:0005E5EC + 4249 0001:0005E5F4 4250 0001:0005E613 4260 0001:0005E618 4261 0001:0005E625 + 4262 0001:0005E62F 4263 0001:0005E63A 4266 0001:0005E64A 4269 0001:0005E6A5 + 4270 0001:0005E6BB 4271 0001:0005E6D1 4272 0001:0005E6E4 4273 0001:0005E6FA + 4274 0001:0005E711 4275 0001:0005E726 4276 0001:0005E72D 4277 0001:0005E740 + 4280 0001:0005E752 4283 0001:0005E768 4284 0001:0005E76F 4285 0001:0005E777 + 4286 0001:0005E795 4287 0001:0005E7B3 4288 0001:0005E7C7 4290 0001:0005E7D3 + 4291 0001:0005E7EA 4292 0001:0005E7FE 4293 0001:0005E80C 4295 0001:0005E817 + 4299 0001:0005E81C 4300 0001:0005E82C 4301 0001:0005E839 4303 0001:0005E858 + 4304 0001:0005E869 4307 0001:0005E870 4308 0001:0005E87C 4309 0001:0005E887 + 4310 0001:0005E8A0 4311 0001:0005E8AC 4312 0001:0005E8B3 4315 0001:0005E8B8 + 4316 0001:0005E8C5 4317 0001:0005E8CB 4318 0001:0005E8F4 4321 0001:0005E8FC + 4322 0001:0005E905 4323 0001:0005E922 4326 0001:0005E928 4327 0001:0005E92F + 4328 0001:0005E937 4329 0001:0005E94B 4332 0001:0005E950 4333 0001:0005E95C + 4335 0001:0005E96A 4336 0001:0005E976 4338 0001:0005E97E 4342 0001:0005E984 + 4343 0001:0005E993 4344 0001:0005E9A1 4345 0001:0005E9B5 4346 0001:0005E9BF + 4349 0001:0005E9C4 4350 0001:0005E9D0 4351 0001:0005E9DC 4352 0001:0005E9F3 + 4353 0001:0005E9FF 4355 0001:0005EA0B 4356 0001:0005EA22 4357 0001:0005EA33 + 4359 0001:0005EA53 4360 0001:0005EA64 4363 0001:0005EA68 4364 0001:0005EA74 + 4365 0001:0005EA8C 4368 0001:0005EA90 4369 0001:0005EAAF 4370 0001:0005EABF + 4372 0001:0005EAC5 4373 0001:0005EAE3 4374 0001:0005EAF8 4375 0001:0005EB04 + 4377 0001:0005EB34 4380 0001:0005EB38 4381 0001:0005EB44 4382 0001:0005EB5B + 4385 0001:0005EB60 4386 0001:0005EB6C 4388 0001:0005EB7A 4389 0001:0005EB86 + 4391 0001:0005EB8E 4394 0001:0005EB94 4395 0001:0005EBA0 4397 0001:0005EBAE + 4398 0001:0005EBBA 4400 0001:0005EBC2 4403 0001:0005EBC8 4404 0001:0005EBD4 + 4406 0001:0005EBE2 4407 0001:0005EBEE 4409 0001:0005EBFE 4412 0001:0005EC04 + 4413 0001:0005EC10 4415 0001:0005EC1E 4416 0001:0005EC2A 4417 0001:0005EC3C + 4419 0001:0005EC44 4422 0001:0005EC48 4423 0001:0005EC67 4425 0001:0005EC75 + 4426 0001:0005EC87 4427 0001:0005ECA8 4428 0001:0005ECBA 4429 0001:0005ECC6 + 4431 0001:0005ECEB 4434 0001:0005ECF0 4435 0001:0005ED16 4437 0001:0005ED26 + 4438 0001:0005ED2D 4439 0001:0005ED77 4440 0001:0005ED85 4442 0001:0005EDAD + 4445 0001:0005EDB4 4446 0001:0005EDC0 4447 0001:0005EDD9 4450 0001:0005EDE0 + 4451 0001:0005EDFF 4453 0001:0005EE0D 4454 0001:0005EE1F 4455 0001:0005EE40 + 4456 0001:0005EE4C 4457 0001:0005EE64 4458 0001:0005EE6E 4460 0001:0005EE93 + 4463 0001:0005EE98 4464 0001:0005EEA4 4465 0001:0005EEB5 4470 0001:0005EEBC + 4471 0001:0005EEE2 4473 0001:0005EEF6 4474 0001:0005EEFD 4475 0001:0005EF47 + 4476 0001:0005EF55 4477 0001:0005EF63 4478 0001:0005EF7B 4480 0001:0005EFA3 + 4483 0001:0005EFA8 4484 0001:0005EFAF 4486 0001:0005EFBB 4487 0001:0005EFC7 + 4489 0001:0005EFED 4491 0001:0005EFF5 4494 0001:0005EFF8 4495 0001:0005EFFF + 4496 0001:0005F01E 4497 0001:0005F026 4503 0001:0005F02C 4504 0001:0005F04F + 4505 0001:0005F056 4507 0001:0005F078 4508 0001:0005F089 4510 0001:0005F0A8 + 4511 0001:0005F0FB 4505 0001:0005F0FE 4512 0001:0005F107 4513 0001:0005F139 + 4518 0001:0005F140 4519 0001:0005F14D 4521 0001:0005F156 4522 0001:0005F165 + 4523 0001:0005F173 4524 0001:0005F181 4525 0001:0005F195 4526 0001:0005F1A9 + 4527 0001:0005F1C0 4529 0001:0005F1EF 4530 0001:0005F1FF 4531 0001:0005F20D + 4534 0001:0005F225 4535 0001:0005F22F 4540 0001:0005F234 4541 0001:0005F240 + 4543 0001:0005F25E 4544 0001:0005F273 4545 0001:0005F28A 4547 0001:0005F29B + 4548 0001:0005F2A3 4550 0001:0005F2CC 4551 0001:0005F2D3 4552 0001:0005F2DE + 4553 0001:0005F2E9 4556 0001:0005F2F0 4557 0001:0005F2FC 4559 0001:0005F324 + 4562 0001:0005F328 4563 0001:0005F334 4564 0001:0005F33F 4565 0001:0005F353 + 4568 0001:0005F358 4569 0001:0005F364 4570 0001:0005F36F 4571 0001:0005F38C + 4574 0001:0005F390 4575 0001:0005F39C 4576 0001:0005F3A7 4578 0001:0005F3B0 + 4579 0001:0005F3B9 4581 0001:0005F3C4 4584 0001:0005F3C8 4585 0001:0005F3D4 + 4586 0001:0005F3E5 4589 0001:0005F3EC 4591 0001:0005F3F9 4593 0001:0005F40C + 4596 0001:0005F41A 4597 0001:0005F424 4600 0001:0005F43C 4605 0001:0005F444 + 4606 0001:0005F465 4607 0001:0005F487 4609 0001:0005F4D0 4610 0001:0005F4DA + 4612 0001:0005F4EA 4613 0001:0005F4F8 4615 0001:0005F504 4616 0001:0005F506 + 4606 0001:0005F509 4617 0001:0005F512 4618 0001:0005F53A 4621 0001:0005F540 + 4622 0001:0005F54E 4623 0001:0005F565 4624 0001:0005F570 4706 0001:0005F578 + 4714 0001:0005F587 4715 0001:0005F595 4716 0001:0005F5A0 4717 0001:0005F5B5 + 4719 0001:0005F5D9 4721 0001:0005F5F3 4726 0001:0005F5FC 4727 0001:0005F617 + 4728 0001:0005F624 4729 0001:0005F62E 4731 0001:0005F640 4732 0001:0005F64A + 4733 0001:0005F654 4734 0001:0005F679 4737 0001:0005F684 4738 0001:0005F695 + 4740 0001:0005F6A1 4741 0001:0005F6C6 4743 0001:0005F6D7 4744 0001:0005F6F3 + 4747 0001:0005F6F8 4748 0001:0005F700 4749 0001:0005F71F 4752 0001:0005F724 + 4753 0001:0005F72C 4754 0001:0005F74B 4757 0001:0005F750 4758 0001:0005F759 + 4759 0001:0005F765 4760 0001:0005F781 4761 0001:0005F78B 4766 0001:0005F790 + 4767 0001:0005F799 4768 0001:0005F79E 4769 0001:0005F7AF 4770 0001:0005F7C7 + 4771 0001:0005F7E7 4769 0001:0005F7ED 4772 0001:0005F7F5 4775 0001:0005F7FC + 4776 0001:0005F808 4777 0001:0005F813 4778 0001:0005F81E 4780 0001:0005F825 + 4783 0001:0005F82C 4784 0001:0005F838 4785 0001:0005F843 4786 0001:0005F858 + 4787 0001:0005F866 4790 0001:0005F86C 4791 0001:0005F878 4793 0001:0005F886 + 4794 0001:0005F892 4796 0001:0005F8AF 4799 0001:0005F8B4 4800 0001:0005F8C0 + 4802 0001:0005F8CE 4803 0001:0005F8EB 4804 0001:0005F8F6 4806 0001:0005F907 + 4811 0001:0005F90C 4812 0001:0005F918 4814 0001:0005F928 4815 0001:0005F93E + 4816 0001:0005F946 4817 0001:0005F977 4818 0001:0005F982 4819 0001:0005F9A3 + 4821 0001:0005F9C4 4826 0001:0005F9C8 4827 0001:0005F9D4 4828 0001:0005F9E2 + 4830 0001:0005F9E8 4831 0001:0005F9F2 4834 0001:0005FA05 4835 0001:0005FA10 + 4836 0001:0005FA1A 4838 0001:0005FA2E 4841 0001:0005FA34 4842 0001:0005FA40 + 4844 0001:0005FA4E 4845 0001:0005FA5A 4847 0001:0005FA62 4850 0001:0005FA68 + 4851 0001:0005FA6F 4852 0001:0005FA95 4855 0001:0005FA98 4856 0001:0005FAA4 + 4857 0001:0005FAC1 4860 0001:0005FAC8 4861 0001:0005FAD7 4862 0001:0005FAE2 + 4864 0001:0005FAEE 4865 0001:0005FAFC 4867 0001:0005FB17 4869 0001:0005FB2D + 4871 0001:0005FB39 4872 0001:0005FB47 4874 0001:0005FB62 4877 0001:0005FB76 + 4880 0001:0005FB80 4881 0001:0005FB8C 4882 0001:0005FB95 4884 0001:0005FBC4 + 4885 0001:0005FBD0 4892 0001:0005FBD4 4893 0001:0005FBE0 4895 0001:0005FBE8 + 4897 0001:0005FC08 4898 0001:0005FC19 4899 0001:0005FC27 4900 0001:0005FC32 + 4901 0001:0005FC4C 4903 0001:0005FC65 4904 0001:0005FC88 4905 0001:0005FC95 + 4907 0001:0005FCBF 4909 0001:0005FCD9 4912 0001:0005FCE3 4914 0001:0005FCEE + 4917 0001:0005FCF4 4918 0001:0005FD00 4919 0001:0005FD08 4921 0001:0005FD14 + 4922 0001:0005FD32 4925 0001:0005FD3E 4926 0001:0005FD49 4931 0001:0005FD50 + 4932 0001:0005FD6B 4933 0001:0005FD78 4934 0001:0005FD84 4935 0001:0005FDB4 + 4940 0001:0005FDBC 4941 0001:0005FDCD 4942 0001:0005FE0A 4943 0001:0005FE18 + 4944 0001:0005FE34 4949 0001:0005FE38 4950 0001:0005FE41 4951 0001:0005FE59 + 4950 0001:0005FE7F 4952 0001:0005FE84 4955 0001:0005FE88 4956 0001:0005FE8F + 4957 0001:0005FE97 4958 0001:0005FE9F 4962 0001:0005FEA4 4963 0001:0005FEB0 + 4964 0001:0005FECC 4969 0001:0005FED0 4970 0001:0005FED9 4971 0001:0005FEE5 + 4972 0001:0005FEF0 4974 0001:0005FEF9 4975 0001:0005FF04 4977 0001:0005FF24 + 4978 0001:0005FF2C 4983 0001:0005FF30 4984 0001:0005FF3D 4986 0001:0005FF4F + 4987 0001:0005FF5A 4990 0001:0005FF87 4991 0001:0005FF98 4993 0001:0005FFAC + 4994 0001:0005FFC7 4997 0001:0005FFCC 4999 0001:0005FFD2 5000 0001:0005FFDA + 5001 0001:0005FFE4 5003 0001:0006000A 5004 0001:0006001A 5005 0001:00060027 + 5007 0001:00060032 5008 0001:0006004E 5009 0001:0006005A 5011 0001:00060080 + 5013 0001:0006008E 5018 0001:00060094 5019 0001:000600A3 5020 0001:000600B3 + 5021 0001:000600C4 5023 0001:000600CA 5024 0001:000600DD 5025 0001:000600EF + 5027 0001:000600FD 5028 0001:00060108 5031 0001:0006010C 5032 0001:0006011B + 5033 0001:00060138 5039 0001:0006013C 5040 0001:0006014D 5041 0001:0006015F + 5042 0001:0006016C 5043 0001:0006018A 5046 0001:00060194 5047 0001:000601A0 + 5049 0001:000601B5 5050 0001:000601C1 5051 0001:000601CF 5053 0001:000601DA + 5059 0001:000601E0 5060 0001:000601EF 5062 0001:00060202 5063 0001:00060216 + 5064 0001:0006021C 5065 0001:00060239 5067 0001:0006023F 5069 0001:00060245 + 5070 0001:00060248 5073 0001:00060260 5074 0001:00060275 5076 0001:00060278 + 5077 0001:0006028C 5078 0001:0006029E 5080 0001:000602A6 5081 0001:000602AE + 5086 0001:000602B4 5087 0001:000602C0 5088 0001:000602FD 5095 0001:00060304 + 5096 0001:00060310 5097 0001:0006031D 5101 0001:0006032D 5102 0001:00060332 + 5103 0001:00060337 5105 0001:00060353 5106 0001:0006036C 5107 0001:0006036F + 5108 0001:00060378 5103 0001:0006037B 5109 0001:00060380 5111 0001:0006039A + 5116 0001:000603A0 5117 0001:000603AC 5118 0001:000603B1 5120 0001:000603C9 + 5122 0001:000603EA 5123 0001:000603F8 5125 0001:000603FA 5118 0001:000603FD + 5126 0001:00060405 5129 0001:0006040C 5130 0001:00060418 5131 0001:0006042F + 5134 0001:00060434 5135 0001:0006043D 5136 0001:0006044F 5140 0001:00060454 + 5141 0001:0006046D 5142 0001:00060480 5143 0001:00060496 5146 0001:000604A0 + 5147 0001:000604AC 5148 0001:000604BD 5149 0001:000604C9 5150 0001:000604D1 + 5153 0001:000604D8 5154 0001:000604F8 5155 0001:00060524 5156 0001:0006054C + 5159 0001:00060554 5160 0001:00060564 5161 0001:00060578 5166 0001:00060580 + 5167 0001:0006058C 5168 0001:000605A9 5169 0001:000605B6 5170 0001:000605C0 + 5171 0001:000605CB 5172 0001:000605DC 5173 0001:000605E7 5178 0001:000605EC + 5179 0001:000605FC 5180 0001:00060617 5182 0001:0006063B 5183 0001:00060646 + 5185 0001:00060652 5188 0001:00060658 5189 0001:00060664 5190 0001:00060678 + 5191 0001:00060682 5192 0001:00060690 5193 0001:0006069B 5194 0001:000606A1 + 5195 0001:000606B1 5196 0001:000606BF 5198 0001:000606E1 5200 0001:000606F3 + 5203 0001:000606F8 5204 0001:00060707 5205 0001:00060712 5208 0001:00060718 + 5209 0001:00060724 5210 0001:00060744 5211 0001:0006074F 5212 0001:0006075A + 5215 0001:00060760 5216 0001:00060780 5217 0001:000607C5 5220 0001:000607CC + 5221 0001:000607D3 5222 0001:000607DF 5224 0001:00060804 5225 0001:0006080E + 5231 0001:00060814 5232 0001:00060820 5233 0001:0006083A 5234 0001:00060856 + 5235 0001:00060873 5238 0001:00060878 5239 0001:00060885 5242 0001:000608C3 + 5243 0001:000608DA 5245 0001:000608E6 5246 0001:000608F1 5252 0001:000608F8 + 5253 0001:0006091A 5254 0001:00060922 5255 0001:0006093A 5256 0001:00060948 + 5257 0001:00060956 5258 0001:00060962 5259 0001:00060974 5260 0001:00060990 + 5261 0001:000609A1 5263 0001:000609C8 5264 0001:000609D6 5266 0001:000609E0 + 5267 0001:000609E9 5268 0001:000609FA 5269 0001:00060A11 5271 0001:00060A28 + 5273 0001:00060A58 5280 0001:00060A60 5281 0001:00060A7F 5282 0001:00060A90 + 5283 0001:00060A9A 5286 0001:00060AB0 5288 0001:00060AC1 5289 0001:00060AD7 + 5291 0001:00060AE9 5292 0001:00060AF5 5293 0001:00060AF7 5288 0001:00060AFA + 5294 0001:00060AFF 5297 0001:00060B0C 5299 0001:00060B1D 5300 0001:00060B45 + 5305 0001:00060B4C 5306 0001:00060B58 5307 0001:00060B60 5308 0001:00060B71 + 5310 0001:00060B77 5311 0001:00060B83 5313 0001:00060B90 5320 0001:00060B94 + 5321 0001:00060BA6 5322 0001:00060BAB 5324 0001:00060BBB 5325 0001:00060BC7 + 5326 0001:00060BE3 5328 0001:00060BE9 5329 0001:00060BEE 5330 0001:00060C00 + 5329 0001:00060C15 5331 0001:00060C1A 5333 0001:00060C2C 5334 0001:00060C39 + 5338 0001:00060C4F 5343 0001:00060C58 5344 0001:00060C64 5345 0001:00060C6F + 5346 0001:00060C8B 5347 0001:00060CAA 5352 0001:00060CB0 5353 0001:00060CBC + 5354 0001:00060CC7 5355 0001:00060CE3 5356 0001:00060CF7 5367 0001:00060CFC + 5368 0001:00060D08 5369 0001:00060D1B 5371 0001:00060D32 5372 0001:00060D3C + 5375 0001:00060D40 5376 0001:00060D4C 5377 0001:00060D57 5380 0001:00060D8E + 5382 0001:00060DA3 5385 0001:00060DA8 5386 0001:00060DB4 5387 0001:00060DCE + 5389 0001:00060DDB 5390 0001:00060DE5 5395 0001:00060DEC 5396 0001:00060E07 + 5397 0001:00060E11 5398 0001:00060E18 5399 0001:00060E1F 5400 0001:00060E2C + 5401 0001:00060E4F 5404 0001:00060E54 5405 0001:00060E60 5407 0001:00060E72 + 5408 0001:00060E80 5409 0001:00060E8E 5410 0001:00060E9C 5411 0001:00060EAA + 5413 0001:00060EBA 5414 0001:00060EC5 5417 0001:00060ECC 5418 0001:00060ED8 + 5420 0001:00060EE3 5421 0001:00060EEC 5422 0001:00060EF3 5424 0001:00060EFD + 5427 0001:00060F04 5428 0001:00060F0D 5429 0001:00060F1B 5432 0001:00060F20 + 5433 0001:00060F2C 5435 0001:00060F37 5436 0001:00060F40 5438 0001:00060F48 + 5441 0001:00060F4C 5442 0001:00060F54 5444 0001:00060F5D 5446 0001:00060F6D + 5447 0001:00060F87 5450 0001:00060F8E 5453 0001:00060F94 5454 0001:00060F9D + 5455 0001:00060FBD 5458 0001:00060FC4 5459 0001:00060FCD 5460 0001:00060FED + 5463 0001:00060FF4 5464 0001:00061000 5465 0001:0006100E 5466 0001:00061021 + 5469 0001:00061028 5470 0001:00061034 5472 0001:0006103F 5473 0001:00061048 + 5475 0001:00061052 5478 0001:00061058 5479 0001:00061064 5481 0001:0006106F + 5482 0001:00061078 5484 0001:00061082 5487 0001:00061088 5488 0001:00061094 + 5490 0001:0006109F 5491 0001:000610A8 5493 0001:000610B2 5496 0001:000610B8 + 5497 0001:000610C4 5499 0001:000610D4 5500 0001:000610E2 5502 0001:000610EC + 5505 0001:000610F0 5506 0001:000610FC 5508 0001:00061107 5509 0001:00061110 + 5511 0001:0006111A 5516 0001:00061120 5517 0001:0006113B 5518 0001:00061141 + 5520 0001:0006115A 5521 0001:0006116A 5522 0001:0006118E 5525 0001:00061194 + 5526 0001:0006119D 5527 0001:000611AB 5530 0001:000611B0 5531 0001:000611BC + 5532 0001:000611CD 5535 0001:000611D4 5536 0001:000611DD 5537 0001:000611E9 + 5545 0001:000611F0 5546 0001:000611FC 5547 0001:00061202 5549 0001:0006121B + 5550 0001:0006122A 5576 0001:00061230 5577 0001:0006124B 5578 0001:00061258 + 5579 0001:00061264 5580 0001:00061271 5581 0001:0006127E 5582 0001:00061288 + 5583 0001:0006129C 5584 0001:000612B1 5585 0001:000612C2 5586 0001:000612CC + 5587 0001:000612D6 5588 0001:000612E0 5589 0001:00061303 5592 0001:0006130C + 5593 0001:0006131D 5594 0001:0006132B 5595 0001:00061339 5596 0001:00061355 + 5601 0001:0006135C 5602 0001:00061368 5603 0001:00061372 5604 0001:0006137D + 5607 0001:0006138D 5608 0001:000613BB 5609 0001:000613C9 5611 0001:000613DD + 5613 0001:000613E4 5616 0001:000613FC 5617 0001:00061403 5618 0001:0006140D + 5619 0001:00061415 5620 0001:00061436 5621 0001:00061442 5622 0001:0006144E + 5623 0001:00061475 5624 0001:00061481 5625 0001:00061498 5628 0001:0006149C + 5629 0001:000614A6 5631 0001:000614B3 5632 0001:000614C5 5634 0001:000614CB + 5635 0001:000614D2 5638 0001:000614D8 5639 0001:000614E8 5640 0001:000614F5 + 5642 0001:00061510 5643 0001:00061521 5646 0001:00061528 5647 0001:00061534 + 5648 0001:00061545 5651 0001:0006154C 5652 0001:00061558 5654 0001:00061566 + 5655 0001:00061572 5656 0001:0006157E 5658 0001:0006159E 5662 0001:000615A4 + 5663 0001:000615B3 5665 0001:000615C1 5666 0001:000615CC 5667 0001:000615E0 + 5669 0001:000615F2 5674 0001:00061610 5675 0001:00061618 5676 0001:00061638 + 5677 0001:00061644 5679 0001:0006167E 5682 0001:00061684 5683 0001:00061690 + 5685 0001:000616A3 5686 0001:000616B3 5688 0001:000616BB 5693 0001:000616C0 + 5694 0001:000616CC 5695 0001:000616D7 5696 0001:000616E3 5698 0001:000616EF + 5699 0001:0006170D 5700 0001:00061724 5698 0001:0006173D 5701 0001:00061742 + 5704 0001:00061750 5705 0001:00061758 5711 0001:0006175C 5712 0001:00061768 + 5716 0001:0006179E 5717 0001:000617A9 5718 0001:000617BF 5720 0001:000617FE + 5721 0001:00061810 5722 0001:0006181E 5723 0001:00061847 5722 0001:00061865 + 5724 0001:0006186A 5725 0001:00061888 5724 0001:000618BF 5727 0001:000618D1 + 5730 0001:000618E1 5732 0001:000618F2 5733 0001:00061919 5735 0001:00061931 + 5737 0001:0006193D 5740 0001:00061944 5741 0001:00061950 5743 0001:0006195E + 5744 0001:0006196A 5746 0001:00061974 5749 0001:00061978 5750 0001:0006197F + 5752 0001:0006198B 5753 0001:000619A0 5755 0001:000619B0 5762 0001:000619B4 + 5763 0001:000619D7 5764 0001:000619E7 5766 0001:000619FB 5768 0001:00061A01 + 5769 0001:00061A08 5770 0001:00061A28 5771 0001:00061A3C 5773 0001:00061A41 + 5774 0001:00061A4E 5775 0001:00061A55 5776 0001:00061A5A 5777 0001:00061A6A + 5778 0001:00061A73 5780 0001:00061A7A 5781 0001:00061A8D 5782 0001:00061A9D + 5783 0001:00061AAB 5784 0001:00061AB7 5786 0001:00061AD3 5787 0001:00061AE1 + 5788 0001:00061AF5 5790 0001:00061B07 5792 0001:00061B4C 5800 0001:00061B6C + 5801 0001:00061B7E 5803 0001:00061B8E 5804 0001:00061B9F 5806 0001:00061BA9 + 5807 0001:00061BB9 5809 0001:00061BBF 5810 0001:00061BC9 5811 0001:00061BE5 + 5814 0001:00061C01 5815 0001:00061C06 5817 0001:00061C1B 5818 0001:00061C32 + 5819 0001:00061C3F 5815 0001:00061C42 5820 0001:00061C47 5821 0001:00061C55 + 5824 0001:00061C73 5825 0001:00061C86 5824 0001:00061C97 5827 0001:00061C9C + 5830 0001:00061CA4 5831 0001:00061CB0 5832 0001:00061CBB 5833 0001:00061CCD + 5834 0001:00061CD5 5839 0001:00061CDC 5840 0001:00061CE9 5842 0001:00061CF2 + 5843 0001:00061D01 5844 0001:00061D0F 5845 0001:00061D1D 5846 0001:00061D31 + 5847 0001:00061D45 5848 0001:00061D5B 5849 0001:00061D6E 5851 0001:00061DA3 + 5852 0001:00061DB3 5853 0001:00061DC1 5856 0001:00061DD9 5857 0001:00061DE3 + 5860 0001:00061DE8 5861 0001:00061DF4 5862 0001:00061E08 5865 0001:00061E0C + 5866 0001:00061E18 5867 0001:00061E24 5868 0001:00061E2F 5871 0001:00061E34 + 5873 0001:00061E41 5874 0001:00061E56 5875 0001:00061E61 5878 0001:00061E68 + 5879 0001:00061E71 5880 0001:00061E9B 5883 0001:00061EA0 5884 0001:00061EAC + 5886 0001:00061EBA 5887 0001:00061EC6 5889 0001:00061ECC 5890 0001:00061EDF + 5893 0001:00061EE7 5896 0001:00061EEC 5897 0001:00061EF8 5898 0001:00061F03 + 5899 0001:00061F0B 5902 0001:00061F10 5903 0001:00061F1C 5904 0001:00061F27 + 5905 0001:00061F46 5908 0001:00061F4C 5909 0001:00061F58 5911 0001:00061F85 + 5912 0001:00061FA3 5913 0001:00061FB3 5914 0001:00061FCE 5916 0001:00061FD4 + 5917 0001:00061FE5 5920 0001:00061FEC 5921 0001:00061FF8 5922 0001:00062003 + 5923 0001:0006200B 5926 0001:00062010 5927 0001:0006201C 5928 0001:00062027 + 5929 0001:0006202F 5932 0001:00062034 5933 0001:00062043 5934 0001:0006204F + 5935 0001:0006205E 5936 0001:0006206C 5939 0001:00062074 5940 0001:00062083 + 5941 0001:00062099 5942 0001:000620A3 5945 0001:000620AC 5946 0001:000620B8 + 5948 0001:000620C3 5955 0001:000620C8 5957 0001:000620D4 5958 0001:000620D8 + 5959 0001:000620E3 5961 0001:000620FA 5962 0001:00062120 5964 0001:00062143 + 5966 0001:00062151 5967 0001:0006215D 5968 0001:00062163 5970 0001:0006216B + 5975 0001:00062170 5976 0001:0006217A 5977 0001:00062188 5978 0001:00062195 + 5979 0001:000621AA 5980 0001:000621C1 5983 0001:000621C8 5984 0001:000621D1 + 5985 0001:000621E6 5988 0001:000621EC 5989 0001:000621F5 5990 0001:00062200 + 5995 0001:00062204 5996 0001:00062210 5998 0001:0006221E 5999 0001:0006222D + 6000 0001:00062251 6003 0001:0006225D 6004 0001:00062268 6009 0001:0006226C + 6010 0001:00062287 6011 0001:00062291 6012 0001:0006229B 6013 0001:000622A2 + 6014 0001:000622AC 6015 0001:000622B3 6016 0001:000622C0 6017 0001:000622E3 + 6020 0001:000622E8 6021 0001:000622F4 6023 0001:00062306 6024 0001:00062314 + 6025 0001:00062322 6026 0001:00062330 6027 0001:0006233E 6028 0001:0006234C + 6029 0001:0006235A 6030 0001:00062366 6032 0001:00062376 6033 0001:00062381 + 6036 0001:00062388 6037 0001:00062394 6039 0001:0006239F 6040 0001:000623A8 + 6041 0001:000623AF 6043 0001:000623B9 6046 0001:000623C0 6047 0001:000623C9 + 6048 0001:000623D7 6051 0001:000623DC 6052 0001:000623E8 6054 0001:000623F3 + 6055 0001:000623FC 6057 0001:00062404 6060 0001:00062408 6061 0001:00062410 + 6063 0001:00062419 6065 0001:00062429 6066 0001:00062443 6069 0001:0006244A + 6072 0001:00062450 6073 0001:00062459 6074 0001:00062479 6077 0001:00062480 + 6078 0001:00062489 6079 0001:000624A9 6082 0001:000624B0 6083 0001:000624BC + 6084 0001:000624CA 6085 0001:000624DD 6090 0001:000624E4 6091 0001:000624ED + 6092 0001:000624F2 6093 0001:0006250A 6092 0001:00062521 6094 0001:00062529 + 6102 0001:00062530 6103 0001:0006253C 6105 0001:00062547 6106 0001:00062550 + 6108 0001:0006255A 6111 0001:00062560 6112 0001:0006256D 6114 0001:00062578 + 6115 0001:00062581 6116 0001:0006258D 6118 0001:0006259F 6121 0001:000625A4 + 6122 0001:000625B0 6123 0001:000625C4 6124 0001:000625D4 6125 0001:000625DD + 6126 0001:000625EB 6129 0001:000625F0 6130 0001:000625FC 6131 0001:00062607 + 6132 0001:0006261B 6133 0001:00062624 6134 0001:00062632 6137 0001:00062638 + 6138 0001:00062644 6140 0001:0006264F 6141 0001:00062658 6143 0001:00062662 + 6146 0001:00062668 6147 0001:00062674 6149 0001:00062684 6150 0001:00062692 + 6152 0001:0006269C 6155 0001:000626A0 6156 0001:000626AD 6157 0001:000626C1 + 6158 0001:000626D5 6160 0001:000626E0 6161 0001:000626E9 6162 0001:000626F2 + 6164 0001:00062715 6167 0001:0006271C 6168 0001:00062728 6170 0001:00062733 + 6171 0001:0006273C 6173 0001:00062746 6178 0001:0006274C 6179 0001:00062767 + 6180 0001:00062777 6181 0001:0006279B 6184 0001:000627A0 6185 0001:000627A9 + 6186 0001:000627BC 6189 0001:000627C0 6190 0001:000627CC 6191 0001:000627DD + 6194 0001:000627E4 6195 0001:000627ED 6196 0001:000627F9 6204 0001:00062800 + 6205 0001:0006280C 6206 0001:00062812 6207 0001:00062829 6208 0001:00062834 + 6212 0001:00062838 6213 0001:00062847 6214 0001:0006284D 6217 0001:00062860 + 6218 0001:00062866 6220 0001:0006286C 6221 0001:00062877 6222 0001:00062884 + 6223 0001:00062890 6226 0001:0006289E 6236 0001:000628A4 6237 0001:000628BF + 6238 0001:000628CC 6239 0001:000628D8 6240 0001:000628E2 6241 0001:000628EF + 6242 0001:00062903 6243 0001:00062918 6244 0001:00062929 6245 0001:0006293E + 6246 0001:00062954 6247 0001:0006295E 6248 0001:00062968 6249 0001:00062972 + 6250 0001:0006297C 6251 0001:000629A2 6254 0001:000629AC 6255 0001:000629BD + 6256 0001:000629CB 6257 0001:000629D9 6258 0001:000629E7 6259 0001:00062A01 + 6260 0001:00062A1D 6265 0001:00062A24 6266 0001:00062A30 6267 0001:00062A3A + 6268 0001:00062A45 6271 0001:00062A55 6272 0001:00062A6C 6273 0001:00062A82 + 6274 0001:00062A95 6275 0001:00062AA8 6277 0001:00062AAF 6284 0001:00062AC0 + 6285 0001:00062AC4 6286 0001:00062AD7 6287 0001:00062AE8 6288 0001:00062B08 + 6289 0001:00062B16 6290 0001:00062B1E 6292 0001:00062B3F 6294 0001:00062B4F + 6295 0001:00062B60 6296 0001:00062B6E 6298 0001:00062B74 6299 0001:00062B7B + 6300 0001:00062B83 6301 0001:00062BA1 6302 0001:00062BBE 6303 0001:00062BCA + 6305 0001:00062BD4 6306 0001:00062BDC 6311 0001:00062BE0 6312 0001:00062BE9 + 6313 0001:00062BF5 6314 0001:00062C0A 6315 0001:00062C27 6316 0001:00062C35 + 6318 0001:00062C53 6319 0001:00062C5B 6321 0001:00062C75 6322 0001:00062C7D + 6327 0001:00062C84 6328 0001:00062C90 6329 0001:00062C9B 6330 0001:00062CA7 + 6331 0001:00062CC5 6332 0001:00062CDC 6330 0001:00062CF5 6333 0001:00062CFA + 6339 0001:00062D00 6340 0001:00062D0C 6344 0001:00062D32 6345 0001:00062D3D + 6346 0001:00062D53 6348 0001:00062D92 6349 0001:00062DA4 6350 0001:00062DB2 + 6351 0001:00062DDB 6350 0001:00062DF9 6352 0001:00062DFE 6353 0001:00062E1C + 6352 0001:00062E53 6355 0001:00062E65 6358 0001:00062E75 6360 0001:00062E86 + 6361 0001:00062EAD 6363 0001:00062EC5 6365 0001:00062ECD 6369 0001:00062ED4 + 6370 0001:00062EE4 6371 0001:00062EF1 6372 0001:00062F10 6373 0001:00062F21 + 6376 0001:00062F28 6377 0001:00062F35 6378 0001:00062F57 6381 0001:00062F5C + 6382 0001:00062F69 6383 0001:00062F8B 6387 0001:00062F90 6388 0001:00062FA0 + 6389 0001:00062FCA 6392 0001:00062FD4 6393 0001:00062FE0 6395 0001:00062FEE + 6396 0001:00062FFA 6398 0001:00063002 6401 0001:00063008 6402 0001:00063014 + 6404 0001:00063022 6405 0001:0006302E 6407 0001:00063036 6410 0001:0006303C + 6411 0001:00063048 6413 0001:00063056 6414 0001:00063062 6416 0001:0006306A + 6419 0001:00063070 6420 0001:0006307C 6422 0001:0006308A 6423 0001:00063096 + 6425 0001:0006309E 6428 0001:000630A4 6429 0001:000630B0 6430 0001:000630C1 + 6436 0001:000630C8 6437 0001:000630D7 6439 0001:000630EB 6440 0001:000630FA + 6441 0001:00063101 6442 0001:0006310A 6443 0001:00063118 6444 0001:00063126 + 6445 0001:0006312F 6446 0001:00063143 6447 0001:0006314E 6448 0001:00063155 + 6450 0001:0006315E 6452 0001:00063165 6453 0001:0006316E 6454 0001:00063177 + 6455 0001:0006317E 6456 0001:0006318E 6458 0001:000631A3 6459 0001:000631A7 + 6460 0001:000631AE 6462 0001:000631B7 6464 0001:000631D6 6467 0001:000631DC + 6468 0001:000631E8 6469 0001:00063204 6474 0001:00063208 6475 0001:00063211 + 6477 0001:0006322D 6478 0001:00063254 6477 0001:0006326E 6479 0001:00063273 + 6481 0001:000632A9 6486 0001:000632B0 6487 0001:000632BD 6489 0001:000632C6 + 6490 0001:000632D5 6491 0001:000632E3 6492 0001:000632F1 6493 0001:00063305 + 6494 0001:00063319 6495 0001:0006332F 6496 0001:00063342 6498 0001:00063382 + 6499 0001:00063392 6500 0001:000633A0 6503 0001:000633B8 6504 0001:000633C2 + 6513 0001:000633C8 6514 0001:000633D5 6515 0001:000633DE 6517 0001:00063420 + 6519 0001:00063447 6521 0001:00063456 6522 0001:0006346D 6524 0001:00063482 + 6525 0001:00063491 6530 0001:000634A5 6531 0001:000634BC 6532 0001:000634CC + 6533 0001:000634D2 6535 0001:000634D8 6537 0001:000634DC 6538 0001:000634EA + 6540 0001:000634F0 6541 0001:000634FC 6542 0001:0006350B 6543 0001:00063513 + 6544 0001:00063524 6545 0001:00063533 6547 0001:0006354A 6549 0001:00063553 + 6550 0001:0006356D 6551 0001:00063587 6554 0001:000635AD 6559 0001:000635C6 + 6560 0001:000635CE 6561 0001:000635D6 6562 0001:000635E1 6563 0001:000635F3 + 6564 0001:00063605 6565 0001:0006361E 6566 0001:00063625 6567 0001:0006362B + 6568 0001:00063631 6570 0001:0006363E 6572 0001:0006364A 6575 0001:00063664 + 6576 0001:00063677 6578 0001:00063683 6579 0001:00063699 6580 0001:000636A5 + 6583 0001:000636EA 6585 0001:000636FE 6595 0001:00063704 6596 0001:0006370A + 6598 0001:0006373E 6600 0001:00063744 6601 0001:00063751 6604 0001:0006378F + 6605 0001:000637AB 6606 0001:000637AF 6608 0001:000637C0 6609 0001:000637CF + 6611 0001:000637D3 6613 0001:000637E4 6614 0001:000637F3 6616 0001:000637F7 + 6617 0001:00063811 6618 0001:00063817 6620 0001:00063822 6621 0001:0006382D + 6627 0001:00063834 6628 0001:00063840 6629 0001:0006384A 6630 0001:00063854 + 6631 0001:00063870 6632 0001:00063893 6633 0001:0006389E 6640 0001:000638A4 + 6641 0001:000638B0 6642 0001:000638BB 6645 0001:000638D8 6646 0001:000638E7 + 6647 0001:000638F5 6648 0001:00063900 6650 0001:0006391E 6651 0001:00063932 + 6652 0001:0006393B 6654 0001:00063948 6655 0001:00063951 6648 0001:00063954 + 6656 0001:00063959 6658 0001:00063966 6659 0001:00063974 6661 0001:00063982 + 6662 0001:0006398B 6664 0001:00063995 6665 0001:0006399F 6667 0001:000639AB + 6668 0001:000639B9 6669 0001:000639BF 6670 0001:000639C5 6671 0001:000639D0 + 6665 0001:000639D3 6675 0001:000639D9 6676 0001:000639E3 6678 0001:000639EF + 6679 0001:000639FD 6680 0001:00063A03 6681 0001:00063A09 6683 0001:00063A14 + 6684 0001:00063A1F 6686 0001:00063A28 6676 0001:00063A2B 6687 0001:00063A31 + 6689 0001:00063A56 6693 0001:00063A79 6696 0001:00063A89 6699 0001:00063A90 + 6700 0001:00063A9C 6701 0001:00063AA7 6702 0001:00063AAF 6705 0001:00063AB4 + 6706 0001:00063AC4 6707 0001:00063AC8 6708 0001:00063AE1 6712 0001:00063AE8 + 6713 0001:00063AF7 6714 0001:00063B05 6715 0001:00063B19 6716 0001:00063B26 + 6719 0001:00063B2C 6720 0001:00063B38 6721 0001:00063B44 6722 0001:00063B5B + 6723 0001:00063B67 6725 0001:00063B73 6726 0001:00063B8A 6727 0001:00063B9B + 6729 0001:00063BBA 6730 0001:00063BC9 6731 0001:00063BD1 6734 0001:00063BD8 + 6735 0001:00063BE4 6736 0001:00063BFB 6737 0001:00063C03 6741 0001:00063C08 + 6742 0001:00063C18 6744 0001:00063C42 6752 0001:00063C70 6753 0001:00063C8F + 6754 0001:00063C9C 6755 0001:00063CAA 6756 0001:00063CD2 6757 0001:00063CFA + 6758 0001:00063D43 6760 0001:00063D76 6762 0001:00063DAE 6764 0001:00063DB4 + 6765 0001:00063DBC 6766 0001:00063DC6 6767 0001:00063DFD 6768 0001:00063E09 + 6771 0001:00063E10 6772 0001:00063E18 6773 0001:00063E37 6778 0001:00063E3C + 6779 0001:00063E46 6780 0001:00063E4E 6781 0001:00063E5B 6782 0001:00063E70 + 6783 0001:00063E87 6786 0001:00063E8C 6787 0001:00063E95 6788 0001:00063EAA + 6793 0001:00063EB0 6795 0001:00063EB5 6796 0001:00063EC7 6797 0001:00063EF8 + 6798 0001:00063F1B 6801 0001:00063F24 6802 0001:00063F2B 6803 0001:00063F3F + 6811 0001:00063F44 6812 0001:00063F5F 6813 0001:00063F69 6814 0001:00063F73 + 6815 0001:00063F7D 6816 0001:00063FA1 6822 0001:00063FA8 6823 0001:00063FBA + 6824 0001:00063FC5 6825 0001:00063FCC 6826 0001:00063FD8 6827 0001:00063FEF + 6828 0001:00064003 6829 0001:00064014 6830 0001:0006401F 6832 0001:0006402E + 6833 0001:0006403C 6835 0001:00064045 6836 0001:0006404A 6838 0001:00064059 + 6839 0001:00064063 6842 0001:0006406D 6843 0001:00064079 6844 0001:0006408E + 6845 0001:00064097 6846 0001:000640AA 6847 0001:000640B4 6848 0001:000640D0 + 6851 0001:000640D8 6852 0001:000640E1 6853 0001:000640F4 6856 0001:000640F8 + 6857 0001:00064101 6858 0001:00064110 6861 0001:00064114 6862 0001:00064120 + 6864 0001:00064126 6865 0001:00064138 6866 0001:0006414B 6868 0001:00064160 + 6869 0001:00064167 6874 0001:0006416C 6875 0001:00064178 6877 0001:00064195 + 6880 0001:000641A3 6881 0001:000641AA 6882 0001:000641B3 6884 0001:000641BA + 6885 0001:000641CA 6887 0001:000641E7 6888 0001:000641F3 6890 0001:00064204 + 6893 0001:00064213 6896 0001:00064218 6897 0001:00064224 6899 0001:00064238 + 6900 0001:00064241 6903 0001:0006427B 6904 0001:00064287 6906 0001:00064298 + 6909 0001:000642A7 6914 0001:000642AC 6915 0001:000642B8 6916 0001:000642BC + 6919 0001:000642C5 6920 0001:000642CC 6921 0001:000642D5 6922 0001:000642E9 + 6923 0001:0006430E 6924 0001:00064318 6925 0001:00064322 6926 0001:0006432C + 6927 0001:00064336 6930 0001:00064341 6935 0001:00064348 6936 0001:00064357 + 6940 0001:00064364 6941 0001:0006436B 6942 0001:00064374 6943 0001:00064399 + 6944 0001:000643A2 6945 0001:000643AB 6946 0001:000643B4 6947 0001:000643BD + 6949 0001:000643C4 6950 0001:000643CA 6952 0001:000643D5 6954 0001:000643DA + 6956 0001:000643EA 6961 0001:000643F0 6962 0001:000643FC 6964 0001:00064410 + 6967 0001:00064419 6968 0001:00064420 6969 0001:00064429 6970 0001:0006443C + 6972 0001:00064445 6974 0001:0006444E 6976 0001:0006445E 6981 0001:00064464 + 6982 0001:00064470 6984 0001:00064484 6987 0001:0006448D 6988 0001:00064494 + 6989 0001:0006449D 6990 0001:000644B0 6992 0001:000644B9 6994 0001:000644C2 + 6996 0001:000644D2 7001 0001:000644D8 7002 0001:000644E4 7004 0001:000644F8 + 7007 0001:00064501 7008 0001:00064508 7009 0001:0006450F 7010 0001:00064518 + 7012 0001:00064527 7014 0001:00064537 7019 0001:0006453C 7020 0001:00064548 + 7022 0001:0006455C 7023 0001:00064565 7026 0001:0006456E 7027 0001:00064575 + 7028 0001:0006457C 7029 0001:00064585 7031 0001:00064591 7033 0001:000645A1 + 7039 0001:000645A8 7040 0001:000645B4 7041 0001:000645B9 7042 0001:000645BD + 7043 0001:000645C8 7045 0001:000645CE 7046 0001:000645D1 7047 0001:000645DF + 7043 0001:000645E7 7050 0001:000645ED 7051 0001:000645F5 7052 0001:000645FC + 7055 0001:00064600 7056 0001:0006460D 7057 0001:00064611 7058 0001:0006461A + 7060 0001:00064626 7061 0001:0006462C 7063 0001:00064645 7065 0001:0006465F + 7068 0001:00064664 7069 0001:00064671 7071 0001:00064686 7072 0001:0006468C + 7074 0001:000646A2 7076 0001:000646B6 7082 0001:000646BC 7083 0001:000646CB + 7084 0001:000646D8 7086 0001:000646DE 7088 0001:000646E4 7089 0001:000646F1 + 7090 0001:000646FC 7093 0001:0006471A 7094 0001:00064729 7095 0001:00064737 + 7096 0001:0006473C 7098 0001:00064742 7100 0001:00064750 7101 0001:00064757 + 7105 0001:00064763 7107 0001:00064771 7108 0001:00064778 7111 0001:00064782 + 7113 0001:000647AB 7116 0001:000647C2 7119 0001:000647C8 7120 0001:000647D4 + 7121 0001:000647E1 7124 0001:000647E8 7125 0001:000647F4 7126 0001:00064801 + 7129 0001:00064808 7130 0001:00064811 7131 0001:00064821 7134 0001:00064828 + 7135 0001:00064834 7137 0001:00064841 7138 0001:00064847 7140 0001:00064853 + 7142 0001:0006485D 7145 0001:00064864 7146 0001:0006486D 7147 0001:0006487D + 7150 0001:00064884 7151 0001:00064891 7152 0001:000648BB 7154 0001:000648C8 + 7155 0001:000648E3 7157 0001:00064900 7158 0001:00064925 7159 0001:0006493E + 7162 0001:00064948 7163 0001:00064954 7164 0001:00064961 7167 0001:00064968 + 7168 0001:00064971 7169 0001:00064981 7172 0001:00064988 7173 0001:00064994 + 7174 0001:000649A1 7175 0001:000649AE 7178 0001:000649B4 7179 0001:000649BD + 7180 0001:000649CD 7183 0001:000649D4 7184 0001:000649E0 7185 0001:000649F5 + 7186 0001:000649FB 7187 0001:00064A10 7188 0001:00064A1C 7189 0001:00064A2B + 7194 0001:00064A30 7195 0001:00064A39 7196 0001:00064A3D 7198 0001:00064A46 + 7199 0001:00064A4D 7200 0001:00064A56 7201 0001:00064A6A 7203 0001:00064A75 + 7206 0001:00064A7C 7207 0001:00064A88 7208 0001:00064A95 7209 0001:00064AA2 + 7212 0001:00064AA8 7213 0001:00064AB1 7214 0001:00064AC1 7219 0001:00064AC8 + 7220 0001:00064AD4 7224 0001:00064ADD 7225 0001:00064AE4 7226 0001:00064AED + 7228 0001:00064AF5 7230 0001:00064B05 7233 0001:00064B0C 7234 0001:00064B15 + 7235 0001:00064B1A 7236 0001:00064B2F 7237 0001:00064B38 7238 0001:00064B5B + 7241 0001:00064B60 7242 0001:00064B69 7243 0001:00064B6E 7244 0001:00064B83 + 7245 0001:00064B8C 7246 0001:00064BAF 7249 0001:00064BB4 7250 0001:00064BBD + 7251 0001:00064BC2 7252 0001:00064BD7 7253 0001:00064BE0 7254 0001:00064C03 + 7257 0001:00064C08 7258 0001:00064C11 7259 0001:00064C16 7260 0001:00064C37 + 7261 0001:00064C40 7262 0001:00064C63 7265 0001:00064C68 7266 0001:00064C71 + 7267 0001:00064C76 7268 0001:00064C97 7269 0001:00064CA0 7270 0001:00064CC3 + 7273 0001:00064CC8 7274 0001:00064CD4 7275 0001:00064CE7 7276 0001:00064CEF + 7285 0001:00064CF4 7286 0001:00064CFD 7287 0001:00064D02 7288 0001:00064D17 + 7289 0001:00064D20 7290 0001:00064D43 7295 0001:00064D48 7296 0001:00064D51 + 7297 0001:00064D5C 7299 0001:00064D62 7301 0001:00064D68 7302 0001:00064D6E + 7303 0001:00064D79 7305 0001:00064D82 7310 0001:00064D88 7311 0001:00064D91 + 7312 0001:00064D96 7314 0001:00064DB3 7315 0001:00064DC9 7316 0001:00064DCF + 7317 0001:00064DE5 7320 0001:00064DF0 7321 0001:00064E03 7318 0001:00064E16 + 7323 0001:00064E22 7325 0001:00064E36 7330 0001:00064E3C 7331 0001:00064E45 + 7332 0001:00064E50 7334 0001:00064E56 7336 0001:00064E5C 7337 0001:00064E62 + 7338 0001:00064E6D 7340 0001:00064E75 7341 0001:00064E83 7346 0001:00064E88 + 7347 0001:00064E91 7348 0001:00064E9F 7351 0001:00064EAD 7352 0001:00064EB9 + 7355 0001:00064EC0 7356 0001:00064EC7 7357 0001:00064ECD 7359 0001:00064ED3 + 7360 0001:00064ED6 7357 0001:00064EE1 7364 0001:00064EEA 7369 0001:00064EF0 + 7370 0001:00064EF9 7371 0001:00064F00 7372 0001:00064F06 7374 0001:00064F0C + 7375 0001:00064F0F 7372 0001:00064F1A 7377 0001:00064F23 7380 0001:00064F28 + 7381 0001:00064F4A 7384 0001:00064F57 7385 0001:00064F65 7382 0001:00064F68 + 7387 0001:00064F74 7388 0001:00064FCF 7398 0001:00064FD4 7399 0001:00064FE0 + 7400 0001:00064FE7 7401 0001:00064FF2 7403 0001:00064FF8 7404 0001:00064FFB + 7405 0001:00065003 7401 0001:00065011 7407 0001:00065017 7408 0001:00065027 + 7413 0001:0006502C 7414 0001:00065035 7415 0001:0006503A 7416 0001:00065045 + 7418 0001:0006504B 7419 0001:0006504E 7416 0001:0006505C 7421 0001:00065065 + 7437 0001:0006506C 7438 0001:0006508F 7439 0001:0006509A 7440 0001:000650A6 + 7441 0001:000650B1 7442 0001:000650B6 7443 0001:000650C1 7444 0001:000650CC + 7446 0001:000650EE 7447 0001:000650FD 7451 0001:0006510C 7452 0001:00065113 + 7453 0001:0006511C 7455 0001:00065121 7456 0001:00065131 7457 0001:0006513A + 7458 0001:00065161 7459 0001:00065167 7460 0001:00065188 7461 0001:00065199 + 7460 0001:000651B7 7462 0001:000651BD 7463 0001:000651D0 7464 0001:000651D9 + 7465 0001:000651E4 7466 0001:000651EF 7467 0001:00065217 7476 0001:00065220 + 7477 0001:0006522F 7479 0001:0006523C 7480 0001:00065256 7481 0001:00065270 + 7482 0001:00065286 7483 0001:0006529C 7484 0001:000652AA 7486 0001:000652C3 + 7487 0001:000652C7 7488 0001:000652D6 7489 0001:000652E3 7490 0001:000652E9 + 7492 0001:0006530E 7494 0001:00065314 7497 0001:0006531A 7498 0001:00065325 + 7499 0001:00065331 7502 0001:00065335 7503 0001:0006533B 7504 0001:00065346 + 7505 0001:0006534B 7506 0001:00065353 7507 0001:00065369 7508 0001:00065374 + 7510 0001:0006537A 7511 0001:00065384 7515 0001:0006539B 7516 0001:000653B5 + 7519 0001:000653D7 7522 0001:000653DC 7523 0001:000653E5 7524 0001:00065412 + 7527 0001:00065418 7528 0001:0006541F 7529 0001:00065434 7530 0001:00065447 + 7535 0001:0006544C 7536 0001:00065455 7537 0001:0006545A 7538 0001:00065465 + 7540 0001:0006546B 7541 0001:0006546E 7538 0001:00065479 7543 0001:00065482 + 7548 0001:00065488 7549 0001:00065491 7550 0001:000654C2 7558 0001:000654C8 + 7559 0001:000654D7 7560 0001:000654E6 7561 0001:000654EF 7562 0001:0006550D + 7565 0001:00065514 7566 0001:00065520 7567 0001:00065536 7573 0001:0006553C + 7574 0001:0006554B 7575 0001:0006554F 7577 0001:0006555C 7580 0001:00065567 + 7581 0001:00065577 7582 0001:0006557D 7583 0001:00065586 7585 0001:0006558C + 7586 0001:000655A7 7588 0001:000655AD 7589 0001:000655B8 7591 0001:000655BE + 7592 0001:000655CA 7593 0001:000655DA 7589 0001:000655E5 7597 0001:000655EE + 7600 0001:000655F4 7601 0001:000655FB 7602 0001:00065604 7603 0001:0006560C + 7606 0001:00065610 7607 0001:00065617 7608 0001:00065622 7609 0001:0006562B + 7610 0001:00065648 7611 0001:00065652 7616 0001:00065658 7617 0001:00065664 + 7618 0001:0006566F 7620 0001:00065692 7621 0001:00065698 7622 0001:000656A6 + 7623 0001:000656B4 7624 0001:000656C2 7625 0001:000656D0 7626 0001:000656DE + 7627 0001:000656EC 7628 0001:000656FE 7629 0001:00065710 7630 0001:00065722 + 7633 0001:00065736 7634 0001:00065741 7637 0001:00065748 7638 0001:00065754 + 7639 0001:00065781 7645 0001:00065788 7646 0001:000657AC 7647 0001:000657B7 + 7648 0001:000657C7 7649 0001:000657D5 7650 0001:000657EE 7651 0001:000657FB + 7652 0001:00065809 7653 0001:00065817 7654 0001:00065825 7655 0001:00065833 + 7656 0001:0006583C 7658 0001:0006584F 7659 0001:00065862 7660 0001:00065870 + 7661 0001:00065885 7656 0001:00065888 7662 0001:000658AA 7667 0001:000658B0 + 7668 0001:000658BF 7669 0001:000658CD 7670 0001:000658DD 7671 0001:000658ED + 7672 0001:00065903 7673 0001:0006590E 7674 0001:0006591A 7675 0001:00065926 + 7676 0001:00065932 7677 0001:0006593E 7678 0001:00065949 7679 0001:00065952 + 7680 0001:00065962 7681 0001:00065970 7682 0001:00065983 7681 0001:0006599C + 7683 0001:000659A1 7688 0001:000659A8 7689 0001:000659C3 7690 0001:000659CD + 7691 0001:000659F1 7694 0001:000659F8 7695 0001:00065A09 7696 0001:00065A11 + 7697 0001:00065A2D 7700 0001:00065A34 7701 0001:00065A3D 7702 0001:00065A4C + 7704 0001:00065A5E 7705 0001:00065A66 7708 0001:00065A6C 7709 0001:00065A75 + 7710 0001:00065A86 7713 0001:00065A8C 7714 0001:00065A98 7715 0001:00065AA0 + 7720 0001:00065AA4 7721 0001:00065AAD 7722 0001:00065ABB 7723 0001:00065AC1 + 7724 0001:00065AC9 7725 0001:00065AD7 7726 0001:00065ADF 7727 0001:00065AEE + 7729 0001:00065B0B 7730 0001:00065B11 7732 0001:00065B21 7735 0001:00065B28 + 7736 0001:00065B37 7737 0001:00065B52 7741 0001:00065B58 7742 0001:00065B67 + 7743 0001:00065B84 7746 0001:00065B8C 7747 0001:00065B9B 7748 0001:00065BB6 + 7752 0001:00065BBC 7753 0001:00065BCB 7754 0001:00065BE8 7757 0001:00065BF0 + 7758 0001:00065BFF 7759 0001:00065C1A 7763 0001:00065C20 7764 0001:00065C2F + 7765 0001:00065C4C 7768 0001:00065C54 7769 0001:00065C63 7770 0001:00065C7E + 7774 0001:00065C84 7775 0001:00065C93 7776 0001:00065CB0 7804 0001:00065CB8 + 7806 0001:00065CDD 7807 0001:00065CE3 7809 0001:00065CF6 7812 0001:00065CFC + 7813 0001:00065D0A 7814 0001:00065D0F 7815 0001:00065D14 7816 0001:00065D19 + 7817 0001:00065D27 7818 0001:00065D2D 7821 0001:00065D3C 7822 0001:00065D47 + 7823 0001:00065D4D 7827 0001:00065D58 7828 0001:00065D5E 7832 0001:00065D69 + 7833 0001:00065D74 7834 0001:00065D7A 7835 0001:00065D83 7836 0001:00065D8E + 7837 0001:00065D94 7839 0001:00065D9F 7842 0001:00065DA3 7843 0001:00065DAE + 7844 0001:00065DB9 7845 0001:00065DE0 7846 0001:00065DE6 7847 0001:00065E07 + 7848 0001:00065E10 7849 0001:00065E25 7850 0001:00065E39 7851 0001:00065E44 + 7852 0001:00065E4D 7854 0001:00065E6E 7855 0001:00065E76 7857 0001:00065EA0 + 7862 0001:00065EAC 7863 0001:00065EB8 7866 0001:00065EC3 7865 0001:00065ECE + 7867 0001:00065EE0 7869 0001:00065EE6 7870 0001:00065EF3 7873 0001:00065F0A + 7876 0001:00065F10 7877 0001:00065F1C 7879 0001:00065F22 7880 0001:00065F2C + 7882 0001:00065F37 7885 0001:00065F3C 7886 0001:00065F4B 7889 0001:00065F52 + 7890 0001:00065F5B 7891 0001:00065F64 7892 0001:00065F6E 7893 0001:00065F78 + 7895 0001:00065F82 7901 0001:00065F88 7902 0001:00065F99 7905 0001:00065FA1 + 7906 0001:00065FA7 7908 0001:00065FB6 7910 0001:00065FBF 7912 0001:00065FC8 + 7915 0001:00065FCE 7916 0001:00065FDD 7917 0001:00065FF0 7918 0001:00066006 + 7921 0001:00066010 7922 0001:00066019 7923 0001:00066036 7928 0001:0006603C + 7929 0001:0006605E 7930 0001:00066079 7932 0001:00066093 7934 0001:0006609C + 7935 0001:000660A7 7936 0001:000660B1 7937 0001:000660BC 7939 0001:000660CB + 7943 0001:000660DA 7944 0001:000660E5 7947 0001:000660ED 7948 0001:000660F8 + 7945 0001:000660FB 7951 0001:00066107 7952 0001:0006610D 7953 0001:00066122 + 7954 0001:0006612B 7955 0001:00066159 7960 0001:00066160 7963 0001:0006616C + 7964 0001:00066172 7966 0001:00066179 7967 0001:0006618D 7969 0001:00066195 + 7970 0001:0006619D 7978 0001:000661A4 7979 0001:000661AB 7980 0001:000661B4 + 7981 0001:000661BE 7982 0001:000661C4 7985 0001:000661C8 7986 0001:000661D4 + 7987 0001:000661EF 7988 0001:000661F5 7989 0001:00066200 7992 0001:00066204 + 7993 0001:0006620B 7994 0001:00066211 7995 0001:0006621A 7996 0001:00066224 + 8002 0001:00066228 8003 0001:00066234 8004 0001:0006623C 8006 0001:0006624E + 8007 0001:00066254 8008 0001:0006625C 8009 0001:0006626B 8010 0001:00066279 + 8011 0001:00066284 8012 0001:00066290 8014 0001:000662A8 8017 0001:000662B8 + 8018 0001:000662C3 8026 0001:000662C8 8027 0001:000662CF 8028 0001:000662DB + 8029 0001:000662E1 8030 0001:000662F4 8031 0001:0006630D 8034 0001:00066313 + 8035 0001:00066317 8037 0001:00066332 8038 0001:00066357 8041 0001:0006635D + 8035 0001:00066360 8042 0001:00066368 8044 0001:00066370 8045 0001:0006637D + 8046 0001:00066388 8047 0001:000663B0 8055 0001:000663C8 8056 0001:000663D8 + 8057 0001:000663E6 8058 0001:000663EC 8059 0001:000663F4 8060 0001:000663FB + 8061 0001:00066409 8062 0001:00066411 8063 0001:00066421 8065 0001:00066434 + 8066 0001:00066443 8067 0001:00066454 8068 0001:00066466 8063 0001:00066469 + 8070 0001:0006647B 8071 0001:00066482 8072 0001:00066488 8074 0001:00066498 + 8081 0001:000664A0 8082 0001:000664AF 8083 0001:000664B4 8084 0001:000664BF + 8086 0001:000664C5 8087 0001:000664C8 8084 0001:000664D3 8089 0001:000664D9 + 8090 0001:000664E9 8091 0001:000664F4 8093 0001:000664FA 8094 0001:0006650B + 8091 0001:00066516 8096 0001:0006651C 8104 0001:00066520 8105 0001:0006652C + 8106 0001:00066550 8108 0001:00066560 8109 0001:00066565 8112 0001:00066572 + 8113 0001:00066582 8114 0001:0006658D 8115 0001:00066590 8110 0001:0006659B + 8117 0001:000665A9 8124 0001:000665B0 8125 0001:000665BC 8126 0001:000665C7 + 8127 0001:000665D7 8128 0001:000665E2 8130 0001:000665E8 8131 0001:000665F3 + 8132 0001:00066603 8128 0001:0006660E 8134 0001:00066614 8137 0001:00066618 + 8138 0001:0006661F 8139 0001:00066627 8340 0001:0006662C 8341 0001:00066647 + 8342 0001:00066654 8343 0001:0006666E 8344 0001:0006667B 8345 0001:00066688 + 8346 0001:00066692 8347 0001:0006669C 8348 0001:000666B1 8349 0001:000666C2 + 8350 0001:000666D6 8351 0001:000666E0 8352 0001:000666EA 8353 0001:000666F4 + 8354 0001:000666FE 8355 0001:00066708 8356 0001:00066724 8357 0001:00066731 + 8358 0001:00066746 8359 0001:00066750 8360 0001:0006675F 8361 0001:00066777 + 8362 0001:00066787 8363 0001:00066797 8364 0001:000667AE 8365 0001:000667B8 + 8366 0001:000667C2 8367 0001:000667D9 8368 0001:000667EE 8369 0001:00066804 + 8370 0001:00066819 8371 0001:0006684A 8374 0001:0006685C 8376 0001:0006686D + 8377 0001:0006687B 8379 0001:00066886 8380 0001:00066894 8381 0001:000668A2 + 8382 0001:000668B0 8383 0001:000668BE 8384 0001:000668CC 8385 0001:000668DA + 8386 0001:000668E8 8387 0001:000668F6 8388 0001:00066904 8389 0001:00066912 + 8390 0001:0006691D 8391 0001:00066939 8407 0001:00066940 8408 0001:0006694C + 8409 0001:00066956 8410 0001:00066961 8413 0001:00066971 8419 0001:00066A49 + 8421 0001:00066A6B 8422 0001:00066A75 8424 0001:00066A7F 8426 0001:00066A86 + 8431 0001:00066A9C 8432 0001:00066AA5 8433 0001:00066AAF 8434 0001:00066AB7 + 8435 0001:00066AD1 8436 0001:00066AEE 8438 0001:00066AFE 8439 0001:00066B0C + 8440 0001:00066B1A 8441 0001:00066B31 8442 0001:00066B48 8443 0001:00066B55 + 8444 0001:00066B76 8445 0001:00066B81 8447 0001:00066B91 8448 0001:00066BAD + 8447 0001:00066BE1 8449 0001:00066BE6 8450 0001:00066BF3 8451 0001:00066BFB + 8454 0001:00066C11 8455 0001:00066C32 8457 0001:00066C4A 8460 0001:00066C60 + 8461 0001:00066C6C 8462 0001:00066C7D 8463 0001:00066C9B 8464 0001:00066CB5 + 8465 0001:00066CD3 8466 0001:00066CF0 8472 0001:00066CF4 8473 0001:00066CFD + 8474 0001:00066D07 8475 0001:00066D12 8477 0001:00066D38 8478 0001:00066D4D + 8479 0001:00066D64 8480 0001:00066D7B 8481 0001:00066D8D 8482 0001:00066D98 + 8483 0001:00066DA3 8484 0001:00066DAE 8485 0001:00066DB4 8486 0001:00066DC5 + 8487 0001:00066DD3 8488 0001:00066DE1 8490 0001:00066DFC 8491 0001:00066E11 + 8492 0001:00066E2D 8491 0001:00066E56 8493 0001:00066E5B 8497 0001:00066E6B + 8498 0001:00066E76 8499 0001:00066E7C 8501 0001:00066E8D 8503 0001:00066EA8 + 8506 0001:00066EBE 8507 0001:00066ECF 8508 0001:00066ED7 8511 0001:00066EDC + 8512 0001:00066EEB 8515 0001:00066EF9 8517 0001:00066F33 8518 0001:00066F4F + 8520 0001:00066F6B 8525 0001:00066F84 8526 0001:00066F8F 8529 0001:00066F99 + 8532 0001:00066FDB 8534 0001:00066FEF 8537 0001:00066FF8 8538 0001:00067004 + 8539 0001:0006700F 8540 0001:00067029 8543 0001:00067030 8544 0001:0006703C + 8545 0001:00067047 8546 0001:0006705B 8549 0001:00067060 8550 0001:0006706C + 8551 0001:00067077 8552 0001:00067094 8555 0001:00067098 8556 0001:000670A4 + 8557 0001:000670AF 8559 0001:000670B8 8560 0001:000670C1 8562 0001:000670CC + 8565 0001:000670D0 8566 0001:000670DC 8567 0001:000670F2 8573 0001:000670F8 + 8574 0001:00067107 8575 0001:0006710B 8579 0001:0006711B 8580 0001:00067121 + 8582 0001:0006712B 8583 0001:00067131 8584 0001:00067138 8585 0001:0006713E + 8587 0001:00067159 8589 0001:0006715F 8590 0001:00067170 8592 0001:00067176 + 8593 0001:00067182 8594 0001:00067192 8590 0001:0006719D 8597 0001:000671A3 + 8599 0001:000671B4 8602 0001:000671BC 8603 0001:000671C8 8605 0001:000671D6 + 8606 0001:000671E2 8608 0001:000671F2 8611 0001:000671F8 8612 0001:00067204 + 8614 0001:00067212 8615 0001:0006721E 8617 0001:0006722E 8620 0001:00067234 + 8621 0001:00067240 8623 0001:0006724E 8624 0001:0006725A 8626 0001:0006726A + 8629 0001:00067270 8630 0001:0006727C 8632 0001:0006728A 8633 0001:00067296 + 8635 0001:000672A9 8638 0001:000672B0 8639 0001:000672BC 8641 0001:000672CA + 8642 0001:000672D6 8644 0001:00067303 8646 0001:0006730D 8649 0001:00067314 + 8650 0001:00067320 8652 0001:0006732E 8653 0001:0006733A 8655 0001:00067342 + 8658 0001:00067348 8659 0001:00067354 8660 0001:0006735F 8661 0001:00067373 + 8662 0001:0006737E 8665 0001:00067384 8666 0001:00067390 8668 0001:0006739E + 8669 0001:000673AA 8671 0001:000673BA 8674 0001:000673C0 8675 0001:000673CC + 8677 0001:000673DA 8678 0001:000673E6 8680 0001:000673F6 8683 0001:000673FC + 8684 0001:00067408 8686 0001:00067416 8687 0001:00067422 8689 0001:00067432 + 8692 0001:00067438 8693 0001:00067444 8695 0001:00067452 8696 0001:0006745E + 8698 0001:00067471 8701 0001:00067478 8702 0001:00067484 8704 0001:00067492 + 8705 0001:0006749E 8706 0001:000674B1 8708 0001:000674B9 8713 0001:000674C0 + 8716 0001:000674CF 8717 0001:000674D5 8718 0001:000674DB 8719 0001:000674EF + 8720 0001:00067505 8722 0001:0006750D 8727 0001:00067514 8728 0001:00067523 + 8731 0001:0006752D 8732 0001:00067533 8733 0001:00067539 8734 0001:00067549 + 8735 0001:00067554 8736 0001:0006755F 8737 0001:0006756A 8738 0001:00067575 + 8741 0001:0006757C 8742 0001:00067587 8743 0001:00067592 8744 0001:0006759E + 8746 0001:000675AA 8747 0001:000675B5 8748 0001:000675C0 8749 0001:000675CC + 8750 0001:000675D8 8752 0001:000675E8 8755 0001:000675F0 8756 0001:000675FC + 8757 0001:0006760D 8760 0001:00067614 8761 0001:00067620 8762 0001:0006763D + 8765 0001:00067644 8766 0001:0006764D 8767 0001:00067660 8772 0001:00067664 + 8773 0001:0006766D 8774 0001:0006767E 8776 0001:00067684 8777 0001:0006768E + 8774 0001:00067699 8779 0001:0006769F 8784 0001:000676A4 8785 0001:000676AD + 8786 0001:000676BE 8788 0001:000676C4 8789 0001:000676CE 8786 0001:000676D9 + 8791 0001:000676DF 8794 0001:000676E4 8795 0001:000676EB 8796 0001:000676F3 + 8797 0001:00067704 8800 0001:00067708 8801 0001:00067711 8802 0001:0006771D + 8803 0001:0006773F 8804 0001:00067747 8807 0001:0006774C 8808 0001:00067758 + 8809 0001:0006776A 8810 0001:0006777D 8813 0001:00067784 8814 0001:00067791 + 8815 0001:000677A1 8816 0001:000677B9 8819 0001:000677C0 8820 0001:000677C9 + 8822 0001:000677D5 8823 0001:000677ED 8825 0001:000677FB 8827 0001:0006781D + 8828 0001:00067825 8831 0001:0006782C 8832 0001:00067838 8833 0001:0006783E + 8835 0001:0006784A 8836 0001:00067859 8839 0001:00067860 8840 0001:0006786C + 8841 0001:0006787D 8844 0001:00067884 8845 0001:0006788D 8846 0001:0006789F + 8849 0001:000678A4 8850 0001:000678AD 8852 0001:000678B9 8853 0001:000678D9 + 8855 0001:000678ED 8856 0001:000678F5 8859 0001:000678FC 8860 0001:00067908 + 8861 0001:00067914 8862 0001:00067926 8863 0001:00067935 8866 0001:0006793C + 8867 0001:00067948 8868 0001:0006794D 8870 0001:00067959 8871 0001:00067962 + 8873 0001:0006796D 8874 0001:00067987 8892 0001:0006798C 8894 0001:000679B3 + 8896 0001:00067A54 8897 0001:00067A64 8899 0001:00067A6D 8900 0001:00067A7B + 8901 0001:00067A89 8902 0001:00067A91 8904 0001:00067A9E 8905 0001:00067AA9 + 8908 0001:00067ACC 8910 0001:00067AE3 8911 0001:00067AF1 8912 0001:00067B05 + 8913 0001:00067B19 8914 0001:00067B30 8916 0001:00067B50 8918 0001:00067B68 + 8920 0001:00067B6E 8921 0001:00067B78 8924 0001:00067B82 8925 0001:00067BA8 + 8926 0001:00067BAF 8927 0001:00067BC2 8928 0001:00067BC9 8929 0001:00067BE0 + 8932 0001:00067BEC 8933 0001:00067C03 8935 0001:00067C18 8936 0001:00067C2F + 8938 0001:00067C44 8939 0001:00067C5B 8943 0001:00067C70 8944 0001:00067C7F + 8945 0001:00067C88 8946 0001:00067C96 8947 0001:00067CA6 8951 0001:00067CCD + 8954 0001:00067CF1 8955 0001:00067D07 8956 0001:00067D16 8957 0001:00067D21 + 8960 0001:00067D2C 8961 0001:00067D3A 8962 0001:00067D4E 8963 0001:00067D62 + 8966 0001:00067D79 8968 0001:00067D82 8969 0001:00067D98 8971 0001:00067DAE + 8972 0001:00067DC7 8973 0001:00067DE0 8974 0001:00067DEA 8976 0001:00067E08 + 8977 0001:00067E0E 8978 0001:00067E18 8979 0001:00067E1E 8980 0001:00067E2A + 8982 0001:00067E3A 8983 0001:00067E44 8984 0001:00067E58 8985 0001:00067E6C + 8987 0001:00067E75 8988 0001:00067E8F 8989 0001:00067EAB 8991 0001:00067ECF + 8993 0001:00067EDF 8994 0001:00067EF4 8995 0001:00067F13 8999 0001:00067F1A + 9000 0001:00067F2D 9002 0001:00067F41 9006 0001:00067F59 9007 0001:00067F6C + 9009 0001:00067F89 9010 0001:00067F9C 9012 0001:00067FB9 9013 0001:00067FCC + 9017 0001:00067FF4 9022 0001:0006800A 9023 0001:00068014 9024 0001:0006801D + 9028 0001:00068039 9029 0001:00068042 9030 0001:0006806E 9031 0001:00068078 + 9033 0001:00068085 9034 0001:0006809B 9035 0001:000680B5 9038 0001:000680D5 + 9040 0001:000680EF 9042 0001:000680FF 9044 0001:00068108 9045 0001:00068119 + 9046 0001:00068135 9047 0001:00068144 9048 0001:00068168 9052 0001:00068177 + 9054 0001:00068187 9056 0001:00068190 9057 0001:000681A1 9058 0001:000681BE + 9062 0001:000681DF 9063 0001:00068206 9065 0001:00068215 9066 0001:0006821E + 9067 0001:0006822D 9069 0001:00068239 9070 0001:00068243 9071 0001:00068257 + 9074 0001:00068266 9077 0001:00068287 9078 0001:0006829B 9080 0001:000682A5 + 9081 0001:000682AD 9082 0001:000682BD 9083 0001:000682C9 9085 0001:000682D6 + 9089 0001:000682EC 9091 0001:000682F5 9092 0001:00068306 9093 0001:0006831D + 9096 0001:00068341 9098 0001:0006834A 9099 0001:0006835B 9101 0001:00068365 + 9102 0001:0006836E 9103 0001:0006838D 9105 0001:00068396 9106 0001:000683A4 + 9108 0001:000683B0 9110 0001:000683BD 9111 0001:000683CB 9117 0001:000683DC + 9118 0001:000683E7 9119 0001:000683F0 9120 0001:000683FC 9122 0001:0006841B + 9123 0001:00068434 9124 0001:00068454 9128 0001:00068461 9129 0001:00068486 + 9132 0001:000684B0 9135 0001:000684B8 9136 0001:000684C1 9137 0001:000684D3 + 9138 0001:000684E1 9139 0001:000684E9 9142 0001:000684F0 9143 0001:000684FC + 9147 0001:0006853C 9149 0001:0006854B 9150 0001:0006855F 9153 0001:0006856C + 9154 0001:00068577 9155 0001:00068599 9156 0001:000685A4 9163 0001:000685AC + 9164 0001:000685B8 9165 0001:000685C3 9166 0001:000685CF 9167 0001:000685DA + 9168 0001:000685E5 9170 0001:000685EB 9171 0001:000685F4 9173 0001:00068613 + 9175 0001:00068619 9176 0001:0006862F 9177 0001:00068635 9179 0001:00068641 + 9180 0001:0006864C 9183 0001:0006865D 9186 0001:00068664 9187 0001:00068673 + 9188 0001:00068685 9189 0001:00068690 9192 0001:00068698 9193 0001:000686A4 + 9194 0001:000686AF 9195 0001:000686B8 9197 0001:000686CC 9198 0001:000686DC + 9201 0001:000686FE 9202 0001:00068709 9203 0001:0006871A 9204 0001:00068724 + 9206 0001:00068731 9208 0001:0006873C 9213 0001:00068740 9214 0001:0006874F + 9215 0001:00068760 9218 0001:00068781 9219 0001:0006878C 9220 0001:00068794 + 9221 0001:0006879E 9223 0001:000687A6 9226 0001:000687AC 9227 0001:000687B9 + 9228 0001:000687DB 9231 0001:000687E0 9232 0001:000687ED 9233 0001:0006880F + 9236 0001:00068814 9237 0001:00068821 9238 0001:00068825 9239 0001:0006884E + 9242 0001:00068854 9243 0001:00068861 9244 0001:0006886B 9245 0001:0006888C + 9246 0001:000688AE 9249 0001:000688B8 9250 0001:000688C5 9251 0001:000688E7 + 9254 0001:000688EC 9255 0001:000688F9 9256 0001:0006891B 9259 0001:00068920 + 9260 0001:0006892D 9261 0001:0006894F 9264 0001:00068954 9265 0001:00068961 + 9266 0001:00068965 9267 0001:0006898E 9270 0001:00068994 9271 0001:000689A1 + 9272 0001:000689C3 9275 0001:000689C8 9276 0001:000689D5 9277 0001:000689D9 + 9278 0001:00068A02 9281 0001:00068A08 9282 0001:00068A15 9283 0001:00068A19 + 9284 0001:00068A42 9290 0001:00068A48 9293 0001:00068A68 9294 0001:00068A76 + 9296 0001:00068A7F 9297 0001:00068A8D 9298 0001:00068AB3 9300 0001:00068AC6 + 9302 0001:00068B05 9307 0001:00068B0C 9308 0001:00068B16 9309 0001:00068B1E + 9310 0001:00068B2B 9311 0001:00068B40 9312 0001:00068B59 9315 0001:00068B60 + 9316 0001:00068B69 9317 0001:00068B7E 9320 0001:00068B84 9321 0001:00068B93 + 9322 0001:00068BB2 9327 0001:00068BB8 9328 0001:00068BC4 9330 0001:00068BD0 + 9331 0001:00068BDC 9333 0001:00068BE9 9334 0001:00068BEE 9335 0001:00068BFC + 9336 0001:00068C0B 9337 0001:00068C19 9339 0001:00068C29 9343 0001:00068C30 + 9344 0001:00068C3F 9345 0001:00068C4D 9347 0001:00068C53 9348 0001:00068C6B + 9350 0001:00068C83 9353 0001:00068C88 9354 0001:00068C94 9355 0001:00068CA0 + 9356 0001:00068CB7 9357 0001:00068CC3 9359 0001:00068CCF 9360 0001:00068CE6 + 9361 0001:00068CF7 9363 0001:00068D13 9364 0001:00068D1F 9367 0001:00068D24 + 9368 0001:00068D30 9369 0001:00068D3C 9370 0001:00068D53 9371 0001:00068D5F + 9373 0001:00068D6B 9374 0001:00068D82 9375 0001:00068D93 9377 0001:00068DB2 + 9378 0001:00068DC1 9427 0001:00068DC8 9428 0001:00068DD5 9429 0001:00068DDE + 9430 0001:00068DE9 9431 0001:00068E04 9432 0001:00068E3D 9433 0001:00068E48 + 9434 0001:00068E51 9435 0001:00068E75 9436 0001:00068E92 9442 0001:00068E98 + 9443 0001:00068EA4 9444 0001:00068EAE 9445 0001:00068EB9 9446 0001:00068EC7 + 9447 0001:00068ED2 9449 0001:00068EEF 9450 0001:00068EFA 9452 0001:00068F06 + 9453 0001:00068F0F 9454 0001:00068F28 9457 0001:00068F47 9458 0001:00068F60 + 9460 0001:00068F66 9461 0001:00068F70 9462 0001:00068F7A 9467 0001:00068F94 + 9469 0001:00068FA7 9476 0001:00068FAC 9478 0001:00068FB8 9481 0001:00068FCB + 9482 0001:00068FD4 9483 0001:00068FEE 9484 0001:00068FFF 9486 0001:00069029 + 9488 0001:00069045 9489 0001:00069050 9491 0001:00069055 9492 0001:00069068 + 9493 0001:0006906F 9494 0001:00069082 9495 0001:00069093 9496 0001:000690AA + 9497 0001:000690BD 9498 0001:000690E6 9499 0001:000690F4 9501 0001:00069111 + 9503 0001:0006911D 9504 0001:00069128 9509 0001:0006912C 9510 0001:00069138 + 9511 0001:00069142 9515 0001:00069148 9517 0001:00069157 9519 0001:0006915D + 9520 0001:00069163 9521 0001:0006918B 9522 0001:00069191 9525 0001:000691D0 + 9529 0001:000691D6 9530 0001:000691DC 9531 0001:000691ED 9532 0001:000691F3 + 9534 0001:00069218 9536 0001:0006921F 9539 0001:00069224 9540 0001:00069234 + 9541 0001:00069238 9542 0001:00069264 9543 0001:00069291 9547 0001:00069298 + 9548 0001:000692A9 9549 0001:000692AD 9550 0001:000692B3 9551 0001:000692E4 + 9552 0001:0006931A 9557 0001:00069324 9558 0001:00069330 9559 0001:00069345 + 9558 0001:00069353 9560 0001:00069359 9561 0001:0006935F 9562 0001:00069369 + 9567 0001:00069370 9568 0001:0006937C 9570 0001:00069388 9571 0001:000693A4 + 9572 0001:000693AF 9573 0001:000693C3 9574 0001:000693C9 9576 0001:000693D6 + 9579 0001:000693E5 9580 0001:000693F0 9584 0001:000693F4 9585 0001:00069403 + 9586 0001:00069421 9589 0001:00069428 9590 0001:0006942F 9591 0001:00069437 + 9592 0001:0006943F 9595 0001:00069444 9596 0001:0006944B 9597 0001:00069453 + 9598 0001:0006945B 9605 0001:00069460 9606 0001:00069470 9607 0001:0006948A + 9608 0001:00069498 9609 0001:000694A2 9610 0001:000694A8 9613 0001:000694B3 + 9614 0001:000694CD 9618 0001:000694D7 9620 0001:000694F2 9621 0001:00069505 + 9623 0001:00069511 9624 0001:00069522 9625 0001:0006952E 9626 0001:00069539 + 9628 0001:0006953F 9630 0001:0006954B 9631 0001:00069557 9633 0001:00069559 + 9626 0001:00069564 9636 0001:0006956A 9640 0001:0006959B 9641 0001:000695A1 + 9643 0001:000695B4 9649 0001:000695C6 9650 0001:000695CC 9651 0001:000695D9 + 9653 0001:000695ED 9655 0001:00069602 9656 0001:00069613 9660 0001:00069622 + 9663 0001:0006962F 9666 0001:0006963A 9668 0001:0006964F 9670 0001:00069661 + 9673 0001:00069668 9674 0001:00069671 9675 0001:00069683 9678 0001:00069688 + 9679 0001:00069694 9680 0001:000696AB 9686 0001:000696B0 9687 0001:000696B9 + 9689 0001:000696D5 9690 0001:000696EA 9691 0001:000696FE 9687 0001:00069701 + 9692 0001:00069706 9696 0001:0006970C 9697 0001:0006971B 9698 0001:00069721 + 9699 0001:0006972D 9700 0001:00069739 9701 0001:0006974B 9703 0001:00069762 + 9704 0001:0006976A 9705 0001:00069780 9708 0001:00069788 9709 0001:00069794 + 9710 0001:000697A6 9711 0001:000697B7 9714 0001:000697BC 9715 0001:000697CB + 9717 0001:000697DA 9718 0001:000697EE 9720 0001:000697F8 9723 0001:000697FC + 9724 0001:0006980B 9725 0001:0006981F 9730 0001:00069828 9731 0001:00069834 + 9732 0001:00069849 9733 0001:00069859 9731 0001:00069867 9734 0001:0006986D + 9735 0001:00069889 9736 0001:00069894 9738 0001:000698B2 9739 0001:000698BF + 9742 0001:000698C4 9743 0001:000698D0 9745 0001:000698DE 9746 0001:000698E4 + 9747 0001:000698F6 9748 0001:00069902 9750 0001:0006990A 9753 0001:00069910 + 9754 0001:0006991C 9756 0001:0006992A 9757 0001:00069936 9759 0001:0006993E + 9767 0001:00069944 9768 0001:00069953 9770 0001:0006997A 9771 0001:00069989 + 9772 0001:00069998 9773 0001:000699A6 9774 0001:000699B2 9775 0001:000699BA + 9777 0001:000699C0 9778 0001:000699CB 9779 0001:000699D1 9780 0001:000699DD + 9782 0001:000699EA 9784 0001:000699F7 9785 0001:00069A03 9787 0001:00069A10 + 9788 0001:00069A1B 9790 0001:00069A23 9791 0001:00069A2E 9775 0001:00069A30 + 9795 0001:00069A36 9797 0001:00069A3C 9798 0001:00069A53 9799 0001:00069A5C + 9800 0001:00069A71 9801 0001:00069A8F 9799 0001:00069A9D 9804 0001:00069AA3 + 9805 0001:00069AB8 9806 0001:00069ACE 9805 0001:00069AE8 9808 0001:00069AED + 9809 0001:00069B01 9811 0001:00069B07 9812 0001:00069B18 9815 0001:00069B2D + 9816 0001:00069B33 9818 0001:00069B4D 9819 0001:00069B55 9823 0001:00069B65 + 9824 0001:00069B70 9827 0001:00069B78 9828 0001:00069B9B 9829 0001:00069BA7 + 9830 0001:00069BC8 9832 0001:00069BD7 9833 0001:00069BEB 9834 0001:00069BFB + 9835 0001:00069C01 9837 0001:00069C26 9843 0001:00069C2C 9844 0001:00069C36 + 9846 0001:00069C49 9847 0001:00069C56 9849 0001:00069C6F 9850 0001:00069C7D + 9855 0001:00069CD2 9856 0001:00069CDF 9857 0001:00069CEB 9858 0001:00069CF5 + 9847 0001:00069CF8 9860 0001:00069D02 9866 0001:00069D08 9867 0001:00069D17 + 9868 0001:00069D26 9869 0001:00069D34 9870 0001:00069D46 9871 0001:00069D55 + 9869 0001:00069D69 9872 0001:00069D6E 9874 0001:00069D89 9876 0001:00069D99 + 9882 0001:00069DA0 9883 0001:00069DAD 9884 0001:00069DB6 9887 0001:00069DC8 + 9888 0001:00069DD7 9889 0001:00069DE6 9891 0001:00069DF4 9892 0001:00069E03 + 9893 0001:00069E14 9891 0001:00069E22 9896 0001:00069E28 9897 0001:00069E31 + 9898 0001:00069E49 9901 0001:00069E5D 9902 0001:00069E74 9903 0001:00069E7D + 9904 0001:00069E92 9905 0001:00069EB0 9903 0001:00069EBE 9908 0001:00069EC4 + 9909 0001:00069EDB 9910 0001:00069EF1 9909 0001:00069F0B 9913 0001:00069F10 + 9915 0001:00069F32 9916 0001:00069F3A 9921 0001:00069F4A 9922 0001:00069F52 + 9925 0001:00069F58 9926 0001:00069F64 9927 0001:00069F78 9928 0001:00069F83 + 9935 0001:00069F88 9937 0001:00069F91 9938 0001:00069F97 9939 0001:00069FA8 + 9937 0001:00069FB3 9942 0001:00069FB9 9943 0001:00069FC4 9946 0001:00069FC8 + 9948 0001:00069FD1 9949 0001:00069FDC 9950 0001:00069FE2 9951 0001:00069FF3 + 9949 0001:00069FFE 9956 0001:0006A004 9958 0001:0006A00A 9959 0001:0006A015 + 9960 0001:0006A01B 9961 0001:0006A02C 9959 0001:0006A037 9965 0001:0006A040 + 9968 0001:0006A044 9969 0001:0006A04D 9970 0001:0006A05C 9972 0001:0006A06A + 9973 0001:0006A078 9978 0001:0006A080 9979 0001:0006A08D 9980 0001:0006A093 + 9983 0001:0006A09E 9976 0001:0006A0A4 9986 0001:0006A0C3 9988 0001:0006A0D6 + 9993 0001:0006A0DC 9996 0001:0006A0E8 9997 0001:0006A0F0 9998 0001:0006A108 + 9997 0001:0006A120 9999 0001:0006A125 10001 0001:0006A133 10507 0001:0006A138 + 10508 0001:0006A153 10509 0001:0006A15D 10510 0001:0006A166 10511 0001:0006A18A + 10514 0001:0006A190 10515 0001:0006A19C 10516 0001:0006A1AB 10517 0001:0006A1B4 + 10544 0001:0006A1B8 10545 0001:0006A1C4 10546 0001:0006A1CF 10547 0001:0006A1DE + 10549 0001:0006A206 10554 0001:0006A20C 10555 0001:0006A218 10556 0001:0006A22A + 10557 0001:0006A22F 10558 0001:0006A23E 10559 0001:0006A25C 10564 0001:0006A260 + 10565 0001:0006A269 10566 0001:0006A274 10567 0001:0006A27D 10572 0001:0006A284 + 10573 0001:0006A290 10576 0001:0006A29B 10577 0001:0006A2A2 10579 0001:0006A2A8 + 10580 0001:0006A2B3 10609 0001:0006A2B8 10610 0001:0006A2C1 10612 0001:0006A2CC + 10613 0001:0006A2D2 10614 0001:0006A2DB 10615 0001:0006A2E4 10620 0001:0006A2E8 + 10621 0001:0006A2F4 10624 0001:0006A2FF 10625 0001:0006A306 10626 0001:0006A30F + 10627 0001:0006A318 10629 0001:0006A323 10630 0001:0006A32E 10635 0001:0006A334 + 10636 0001:0006A340 10637 0001:0006A34B 10638 0001:0006A35B 10643 0001:0006A360 + 10644 0001:0006A382 10647 0001:0006A38D 10648 0001:0006A394 10650 0001:0006A3A4 + 10651 0001:0006A3CC 10656 0001:0006A3D0 10657 0001:0006A3D9 10658 0001:0006A3E1 + 10661 0001:0006A3EC 10662 0001:0006A3F6 10663 0001:0006A400 10664 0001:0006A40A + 10666 0001:0006A417 10671 0001:0006A420 10672 0001:0006A42C 10675 0001:0006A437 + 10676 0001:0006A43E 10677 0001:0006A448 10678 0001:0006A452 10679 0001:0006A45C + 10681 0001:0006A466 10682 0001:0006A471 10687 0001:0006A478 10688 0001:0006A481 + 10689 0001:0006A48C 10690 0001:0006A49D 10695 0001:0006A4A4 10696 0001:0006A4B0 + 10699 0001:0006A4BB 10700 0001:0006A4C2 10702 0001:0006A4CE 10703 0001:0006A4D9 + 10718 0001:0006A4E0 10719 0001:0006A4E9 10720 0001:0006A4F4 10721 0001:0006A505 + 10722 0001:0006A50B 10723 0001:0006A511 10725 0001:0006A517 10727 0001:0006A51E + 10732 0001:0006A524 10733 0001:0006A530 10736 0001:0006A53B 10737 0001:0006A548 + 10738 0001:0006A54E 10740 0001:0006A554 10743 0001:0006A558 10744 0001:0006A563 + 10747 0001:0006A568 10748 0001:0006A58A 10750 0001:0006A59C 10751 0001:0006A5AA + 10752 0001:0006A5C0 10753 0001:0006A5D2 10754 0001:0006A5E4 10755 0001:0006A5F6 + 10757 0001:0006A60D 10759 0001:0006A61F 10760 0001:0006A631 10761 0001:0006A647 + 10762 0001:0006A659 10763 0001:0006A66B 10764 0001:0006A67D 10766 0001:0006A691 + 10767 0001:0006A6BE 10770 0001:0006A6C4 10771 0001:0006A6E6 10773 0001:0006A6F8 + 10774 0001:0006A70A 10775 0001:0006A720 10776 0001:0006A732 10777 0001:0006A744 + 10778 0001:0006A756 10780 0001:0006A76A 10782 0001:0006A77C 10783 0001:0006A78E + 10784 0001:0006A7A4 10785 0001:0006A7B6 10786 0001:0006A7C8 10788 0001:0006A7DC + 10789 0001:0006A809 10794 0001:0006A810 10795 0001:0006A82B 10796 0001:0006A835 + 10797 0001:0006A859 10800 0001:0006A860 10801 0001:0006A86C 10802 0001:0006A87B + 10803 0001:0006A884 10806 0001:0006A888 10807 0001:0006A894 10808 0001:0006A89F + 10809 0001:0006A8AE 10810 0001:0006A8CA 10813 0001:0006A8D0 10814 0001:0006A8DD + 10815 0001:0006A8E8 10817 0001:0006A8F7 10818 0001:0006A90A 10819 0001:0006A914 + 10820 0001:0006A91F 10821 0001:0006A929 10822 0001:0006A932 10824 0001:0006A94E + 10829 0001:0006A954 10830 0001:0006A960 10831 0001:0006A96E 10832 0001:0006A97C + 10837 0001:0006A980 10838 0001:0006A98F 10841 0001:0006A99D 10842 0001:0006A9A7 + 10844 0001:0006A9B4 10845 0001:0006A9C2 10850 0001:0006A9C8 10851 0001:0006A9D4 + 10852 0001:0006A9E2 10853 0001:0006A9EE 10858 0001:0006A9F4 10859 0001:0006AA03 + 10860 0001:0006AA0C 10861 0001:0006AA28 10863 0001:0006AA32 10866 0001:0006AA40 + 10867 0001:0006AA4A 10869 0001:0006AA56 10870 0001:0006AA64 10875 0001:0006AA68 + 10876 0001:0006AA74 10877 0001:0006AA82 10878 0001:0006AA96 10883 0001:0006AA9C + 10884 0001:0006AAAB 10887 0001:0006AAB9 10888 0001:0006AAC3 10890 0001:0006AAD2 + 10891 0001:0006AAE0 10896 0001:0006AAE4 10897 0001:0006AAF0 10898 0001:0006AAFE + 10899 0001:0006AB12 10904 0001:0006AB18 10905 0001:0006AB27 10908 0001:0006AB35 + 10909 0001:0006AB3F 10911 0001:0006AB4E 10912 0001:0006AB5C 10917 0001:0006AB60 + 10918 0001:0006AB6C 10919 0001:0006AB7A 10920 0001:0006AB8E 10925 0001:0006AB94 + 10926 0001:0006ABA3 10929 0001:0006ABB1 10930 0001:0006ABBB 10932 0001:0006ABCA + 10933 0001:0006ABD8 10938 0001:0006ABDC 10939 0001:0006ABEB 10940 0001:0006ABF9 + 10941 0001:0006AC13 10946 0001:0006AC18 10947 0001:0006AC2A 10950 0001:0006AC38 + 10951 0001:0006AC4D 10952 0001:0006AC57 10953 0001:0006AC71 10955 0001:0006AC7F + 10981 0001:0006AC84 10982 0001:0006AC90 10984 0001:0006ACA6 10985 0001:0006ACB8 + 10986 0001:0006ACCA 10987 0001:0006ACDC 10988 0001:0006ACEE 10989 0001:0006AD00 + 10990 0001:0006AD05 10989 0001:0006AD20 10992 0001:0006AD28 10993 0001:0006AD33 + 10998 0001:0006AD38 10999 0001:0006AD48 11000 0001:0006AD5C 11003 0001:0006AD64 + 11004 0001:0006AD74 11005 0001:0006AD88 11045 0001:0006AE9C 11046 0001:0006AEAD + 11047 0001:0006AEB8 11048 0001:0006AED4 11053 0001:0006AED8 11054 0001:0006AEE4 + 11055 0001:0006AEFC 11056 0001:0006AF10 11057 0001:0006AF1E 11059 0001:0006AF36 + 11061 0001:0006AF56 11064 0001:0006AF5C 11065 0001:0006AF65 11066 0001:0006AF82 + 11067 0001:0006AFBC 11068 0001:0006AFC2 11074 0001:0006AFC8 11075 0001:0006AFDE + 11076 0001:0006AFE9 11077 0001:0006B00D 11078 0001:0006B02B 11079 0001:0006B03C + 11084 0001:0006B040 11085 0001:0006B04F 11087 0001:0006B059 11088 0001:0006B078 + 11090 0001:0006B07E 11092 0001:0006B0A0 11093 0001:0006B0BC 11096 0001:0006B0DD + 11104 0001:0006B0E4 11105 0001:0006B10D 11107 0001:0006B117 11108 0001:0006B136 + 11110 0001:0006B146 11112 0001:0006B166 11113 0001:0006B170 11114 0001:0006B18F + 11115 0001:0006B199 11116 0001:0006B19F 11118 0001:0006B1A7 11119 0001:0006B1AD + 11120 0001:0006B1C9 11121 0001:0006B1F1 11122 0001:0006B212 11123 0001:0006B231 + 11125 0001:0006B27C 11132 0001:0006B298 11133 0001:0006B2A4 11134 0001:0006B2AE + 11135 0001:0006B2CD 11137 0001:0006B2D7 11138 0001:0006B2F7 11139 0001:0006B2FD + 11141 0001:0006B31F 11142 0001:0006B33B 11144 0001:0006B359 11147 0001:0006B360 + 11148 0001:0006B367 11149 0001:0006B375 11152 0001:0006B378 11153 0001:0006B384 + 11154 0001:0006B393 11155 0001:0006B3B1 11156 0001:0006B3B7 11157 0001:0006B3C2 + 11159 0001:0006B3D6 11164 0001:0006B3DC 11165 0001:0006B3E8 11167 0001:0006B3F1 + 11168 0001:0006B3F7 11170 0001:0006B416 11171 0001:0006B433 11173 0001:0006B44C + 11176 0001:0006B450 11177 0001:0006B45C 11178 0001:0006B466 11179 0001:0006B474 + 11181 0001:0006B48C 11183 0001:0006B49E 11187 0001:0006B4A4 11188 0001:0006B4A5 + 11189 0001:0006B4A6 11190 0001:0006B4A8 11191 0001:0006B4AA 11192 0001:0006B4AC + 11193 0001:0006B4AD 11194 0001:0006B4AE 11195 0001:0006B4B0 11196 0001:0006B4B2 + 11197 0001:0006B4B4 11198 0001:0006B4B6 11199 0001:0006B4B7 11200 0001:0006B4B9 + 11201 0001:0006B4BB 11202 0001:0006B4BD 11203 0001:0006B4BE 11204 0001:0006B4BF + 11205 0001:0006B4C1 11206 0001:0006B4C3 11207 0001:0006B4C5 11208 0001:0006B4CA + 11209 0001:0006B4CC 11210 0001:0006B4CE 11211 0001:0006B4CF 11212 0001:0006B4D2 + 11213 0001:0006B4D4 11214 0001:0006B4D5 11215 0001:0006B4D6 11221 0001:0006B4D8 + 11222 0001:0006B4E1 11223 0001:0006B4E6 11224 0001:0006B4EC 11225 0001:0006B4FA + 11226 0001:0006B501 11227 0001:0006B509 11229 0001:0006B534 11231 0001:0006B543 + 11238 0001:0006B54C 11239 0001:0006B555 11240 0001:0006B55A 11241 0001:0006B560 + 11242 0001:0006B56C 11243 0001:0006B57A 11244 0001:0006B587 11245 0001:0006B58E + 11246 0001:0006B597 11247 0001:0006B5A5 11248 0001:0006B5AD 11249 0001:0006B5C8 + 11251 0001:0006B5D0 11252 0001:0006B5DC 11253 0001:0006B5F8 11254 0001:0006B608 + 11257 0001:0006B627 11260 0001:0006B640 11262 0001:0006B653 11271 0001:0006B65C + 11272 0001:0006B67B 11273 0001:0006B681 11274 0001:0006B695 11275 0001:0006B6AB + 11276 0001:0006B6B1 11279 0001:0006B6BF 11280 0001:0006B6C5 11281 0001:0006B6CD + 11283 0001:0006B6D2 11284 0001:0006B6DD 11285 0001:0006B6EF 11286 0001:0006B6F6 + 11287 0001:0006B714 11289 0001:0006B720 11290 0001:0006B72E 11291 0001:0006B740 + 11292 0001:0006B747 11293 0001:0006B765 11294 0001:0006B76B 11297 0001:0006B799 + 11299 0001:0006B7CF 11307 0001:0006B7D4 11308 0001:0006B7F3 11309 0001:0006B807 + 11310 0001:0006B81D 11311 0001:0006B823 11312 0001:0006B829 11315 0001:0006B837 + 11316 0001:0006B83D 11317 0001:0006B845 11319 0001:0006B84A 11320 0001:0006B85C + 11321 0001:0006B863 11322 0001:0006B881 11323 0001:0006B887 11325 0001:0006B8B5 + 11327 0001:0006B8EB 11333 0001:0006B8F0 11334 0001:0006B915 11335 0001:0006B92B + 11336 0001:0006B93D 11337 0001:0006B945 11338 0001:0006B94B 11339 0001:0006B951 + 11337 0001:0006B96A 11341 0001:0006B970 11342 0001:0006B976 11343 0001:0006B97D + 11344 0001:0006B998 11345 0001:0006B9A6 11347 0001:0006B9C0 11348 0001:0006B9CB + 11349 0001:0006B9D3 11351 0001:0006B9DD 11352 0001:0006BA15 11358 0001:0006BA1C + 11359 0001:0006BA41 11360 0001:0006BA57 11361 0001:0006BA69 11362 0001:0006BA71 + 11363 0001:0006BA77 11364 0001:0006BA7D 11362 0001:0006BA96 11366 0001:0006BA9C + 11367 0001:0006BAA2 11368 0001:0006BAA9 11369 0001:0006BAC4 11370 0001:0006BAD2 + 11372 0001:0006BAEC 11373 0001:0006BAF7 11374 0001:0006BAFF 11376 0001:0006BB2E + 11383 0001:0006BB38 11384 0001:0006BB53 11385 0001:0006BB60 11386 0001:0006BB72 + 11387 0001:0006BB8C 11388 0001:0006BBA6 11389 0001:0006BBBE 11390 0001:0006BBD3 + 11391 0001:0006BBE2 11392 0001:0006BBEC 11393 0001:0006BBF9 11394 0001:0006BC06 + 11395 0001:0006BC10 11396 0001:0006BC1A 11397 0001:0006BC24 11398 0001:0006BC2E + 11399 0001:0006BC38 11400 0001:0006BC4C 11401 0001:0006BC5B 11402 0001:0006BC66 + 11403 0001:0006BC78 11404 0001:0006BCA4 11407 0001:0006BCAC 11408 0001:0006BCBD + 11409 0001:0006BCCB 11410 0001:0006BCD9 11411 0001:0006BCE7 11412 0001:0006BCF5 + 11413 0001:0006BD03 11414 0001:0006BD1F 11417 0001:0006BD24 11418 0001:0006BD2B + 11419 0001:0006BD33 11420 0001:0006BD3D 11427 0001:0006BD40 11428 0001:0006BD4C + 11430 0001:0006BD55 11431 0001:0006BD64 11433 0001:0006BD74 11434 0001:0006BD7F + 11437 0001:0006BD8F 11439 0001:0006BDBD 11441 0001:0006BDC4 11446 0001:0006BDE4 + 11447 0001:0006BDED 11448 0001:0006BDF8 11449 0001:0006BE00 11450 0001:0006BE16 + 11451 0001:0006BE28 11454 0001:0006BE42 11455 0001:0006BE63 11457 0001:0006BE73 + 11458 0001:0006BE7E 11459 0001:0006BE94 11460 0001:0006BE9F 11461 0001:0006BEAD + 11462 0001:0006BEC4 11463 0001:0006BED2 11465 0001:0006BEEA 11468 0001:0006BEFD + 11469 0001:0006BF08 11474 0001:0006BF0C 11475 0001:0006BF15 11476 0001:0006BF26 + 11477 0001:0006BF3B 11478 0001:0006BF46 11479 0001:0006BF53 11480 0001:0006BF5E + 11481 0001:0006BF74 11482 0001:0006BF82 11483 0001:0006BF99 11485 0001:0006BFB8 + 11487 0001:0006BFCB 11488 0001:0006BFD3 11491 0001:0006BFD8 11492 0001:0006BFE4 + 11493 0001:0006BFEF 11496 0001:0006BFF4 11497 0001:0006C000 11498 0001:0006C014 + 11501 0001:0006C018 11504 0001:0006C024 11505 0001:0006C02E 11507 0001:0006C06A + 11508 0001:0006C075 11511 0001:0006C07C 11512 0001:0006C088 11513 0001:0006C09C + 11516 0001:0006C0A0 11517 0001:0006C0AC 11518 0001:0006C0C5 11523 0001:0006C0CC + 11524 0001:0006C0D8 11525 0001:0006C0F1 11526 0001:0006C0F9 11527 0001:0006C11A + 11528 0001:0006C136 11533 0001:0006C13C 11534 0001:0006C148 11535 0001:0006C16C + 11536 0001:0006C172 11537 0001:0006C18B 11542 0001:0006C190 11543 0001:0006C199 + 11544 0001:0006C1B2 11545 0001:0006C1BE 11550 0001:0006C1C4 11551 0001:0006C1CD + 11552 0001:0006C1E6 11553 0001:0006C1EF 11558 0001:0006C1F4 11559 0001:0006C217 + 11560 0001:0006C225 11561 0001:0006C230 11562 0001:0006C244 11563 0001:0006C272 + 11568 0001:0006C278 11569 0001:0006C284 11570 0001:0006C29A 11571 0001:0006C2BD + 11572 0001:0006C2C8 11577 0001:0006C2CC 11578 0001:0006C2DB 11579 0001:0006C2E3 + 11580 0001:0006C2EE 11581 0001:0006C302 11582 0001:0006C30C 11583 0001:0006C31E + 11584 0001:0006C332 11587 0001:0006C338 11588 0001:0006C344 11590 0001:0006C352 + 11591 0001:0006C35E 11593 0001:0006C366 11596 0001:0006C36C 11597 0001:0006C378 + 11599 0001:0006C386 11600 0001:0006C392 11602 0001:0006C3B2 11612 0001:0006C3B8 + 11613 0001:0006C3C4 11614 0001:0006C3DD 11615 0001:0006C3E6 11616 0001:0006C3FF + 11617 0001:0006C416 11625 0001:0006C41C 11626 0001:0006C425 11627 0001:0006C437 + 11630 0001:0006C43C 11631 0001:0006C448 11632 0001:0006C457 11635 0001:0006C45C + 11636 0001:0006C468 11637 0001:0006C473 11638 0001:0006C494 11641 0001:0006C498 + 11642 0001:0006C4A4 11643 0001:0006C4B5 11648 0001:0006C4BC 11649 0001:0006C4C8 + 11650 0001:0006C4CE 11651 0001:0006C4D4 11652 0001:0006C4ED 11659 0001:0006C4F4 + 11660 0001:0006C502 11661 0001:0006C511 11663 0001:0006C519 11664 0001:0006C527 + 11665 0001:0006C52F 11666 0001:0006C53A 11667 0001:0006C540 11668 0001:0006C553 + 11669 0001:0006C566 11671 0001:0006C577 11672 0001:0006C58C 11675 0001:0006C5A3 + 11676 0001:0006C5B7 11677 0001:0006C5CB 11678 0001:0006C5DF 11680 0001:0006C5F3 + 11681 0001:0006C5FD 11682 0001:0006C607 11683 0001:0006C60C 11684 0001:0006C617 + 11686 0001:0006C61E 11687 0001:0006C62C 11688 0001:0006C643 11690 0001:0006C651 + 11691 0001:0006C65B 11692 0001:0006C661 11693 0001:0006C67D 11694 0001:0006C693 + 11695 0001:0006C6A1 11697 0001:0006C6B6 11698 0001:0006C6CD 11701 0001:0006C6E2 + 11709 0001:0006C6E8 11710 0001:0006C6F4 11712 0001:0006C70C 11713 0001:0006C730 + 11715 0001:0006C756 11716 0001:0006C75F 11718 0001:0006C769 11719 0001:0006C770 + 11720 0001:0006C77E 11722 0001:0006C796 11725 0001:0006C7A5 11730 0001:0006C7AC + 11731 0001:0006C7B8 11732 0001:0006C7C3 11734 0001:0006C7CC 11735 0001:0006C7D6 + 11736 0001:0006C7DF 11737 0001:0006C7EA 11740 0001:0006C812 11742 0001:0006C82B + 11745 0001:0006C842 11748 0001:0006C848 11750 0001:0006C855 11751 0001:0006C874 + 11752 0001:0006C882 11754 0001:0006C898 11755 0001:0006C8A1 11757 0001:0006C8C5 + 11758 0001:0006C8D1 11760 0001:0006C8F2 11763 0001:0006C8F8 11764 0001:0006C908 + 11765 0001:0006C90C 11766 0001:0006C939 11769 0001:0006C940 11770 0001:0006C950 + 11771 0001:0006C954 11772 0001:0006C981 11775 0001:0006C988 11776 0001:0006C990 + 11777 0001:0006C9AF 11780 0001:0006C9B4 11781 0001:0006C9C1 11782 0001:0006C9E3 + 11789 0001:0006C9E8 11792 0001:0006C9F7 11793 0001:0006C9FD 11795 0001:0006CA06 + 11796 0001:0006CA0B 11797 0001:0006CA15 11798 0001:0006CA1F 11799 0001:0006CA2A + 11800 0001:0006CA4B 11825 0001:0006CA54 11826 0001:0006CA6F 11827 0001:0006CA7C + 11828 0001:0006CA8D 11829 0001:0006CA9E 11830 0001:0006CABB 11831 0001:0006CAC5 + 11832 0001:0006CACF 11833 0001:0006CADB 11834 0001:0006CAE7 11835 0001:0006CAF3 + 11836 0001:0006CB00 11837 0001:0006CB0A 11838 0001:0006CB14 11839 0001:0006CB1E + 11840 0001:0006CB4D 11843 0001:0006CB58 11844 0001:0006CB64 11845 0001:0006CB6E + 11848 0001:0006CB79 11849 0001:0006CB80 11850 0001:0006CB95 11851 0001:0006CB9C + 11852 0001:0006CBAF 11853 0001:0006CBC2 11854 0001:0006CBD8 11856 0001:0006CBEB + 11857 0001:0006CBFB 11859 0001:0006CC0D 11865 0001:0006CC24 11866 0001:0006CC2D + 11867 0001:0006CC36 11868 0001:0006CC3E 11870 0001:0006CC4A 11871 0001:0006CC5B + 11873 0001:0006CC7F 11874 0001:0006CC8A 11875 0001:0006CCB9 11876 0001:0006CCE0 + 11877 0001:0006CCF9 11878 0001:0006CD05 11879 0001:0006CD1E 11882 0001:0006CD24 + 11883 0001:0006CD31 11884 0001:0006CD3C 11886 0001:0006CD46 11887 0001:0006CD59 + 11888 0001:0006CD69 11890 0001:0006CD8A 11892 0001:0006CD9B 11897 0001:0006CDA0 + 11898 0001:0006CDAC 11899 0001:0006CDB7 11900 0001:0006CDC2 11901 0001:0006CDD6 + 11904 0001:0006CDDC 11905 0001:0006CDE9 11906 0001:0006CDF4 11908 0001:0006CDFE + 11909 0001:0006CE21 11910 0001:0006CE42 11912 0001:0006CE53 11915 0001:0006CE58 + 11916 0001:0006CE6A 11917 0001:0006CE78 11919 0001:0006CE86 11920 0001:0006CE98 + 11926 0001:0006CEA0 11927 0001:0006CEAA 11928 0001:0006CEAE 11930 0001:0006CEB2 + 11932 0001:0006CEF8 11933 0001:0006CEFE 11934 0001:0006CF0B 11935 0001:0006CF11 + 11936 0001:0006CF1E 11938 0001:0006CF22 11939 0001:0006CF2F 11940 0001:0006CF44 + 11941 0001:0006CF51 11942 0001:0006CF78 11945 0001:0006CF80 11946 0001:0006CF8C + 11947 0001:0006CF98 11949 0001:0006CFA4 11950 0001:0006CFAE 11953 0001:0006CFB4 + 11955 0001:0006CFC0 11957 0001:0006CFCF 11960 0001:0006D001 11963 0001:0006D008 + 11964 0001:0006D015 11965 0001:0006D037 11972 0001:0006D03C 11973 0001:0006D048 + 11974 0001:0006D04C 11976 0001:0006D052 11977 0001:0006D061 11974 0001:0006D06C + 11979 0001:0006D072 11980 0001:0006D079 11982 0001:0006D080 11983 0001:0006D09F + 11984 0001:0006D0A9 11985 0001:0006D0C8 11986 0001:0006D0F8 11987 0001:0006D111 + 11988 0001:0006D153 11984 0001:0006D156 11990 0001:0006D15F 11992 0001:0006D16B + 11993 0001:0006D177 11994 0001:0006D18E 11997 0001:0006D199 12003 0001:0006D22B + 12005 0001:0006D237 12006 0001:0006D242 12008 0001:0006D260 12009 0001:0006D26C + 12010 0001:0006D27E 12012 0001:0006D2B8 12018 0001:0006D2DC 12020 0001:0006D2E8 + 12021 0001:0006D2F1 12022 0001:0006D2FA 12023 0001:0006D318 12024 0001:0006D321 + 12025 0001:0006D32A 12026 0001:0006D333 12027 0001:0006D33C 12028 0001:0006D34A + 12029 0001:0006D358 12033 0001:0006D35C 12034 0001:0006D36B 12035 0001:0006D379 + 12036 0001:0006D38D 12038 0001:0006D399 12039 0001:0006D3B0 12041 0001:0006D3BB + 12044 0001:0006D3C0 12045 0001:0006D3C9 12047 0001:0006D3D5 12048 0001:0006D3F0 + 12050 0001:0006D400 12051 0001:0006D412 12054 0001:0006D418 12055 0001:0006D425 + 12057 0001:0006D435 12058 0001:0006D443 12059 0001:0006D44F 12061 0001:0006D47E + 12064 0001:0006D484 12065 0001:0006D491 12067 0001:0006D4A1 12068 0001:0006D4AF + 12069 0001:0006D4BB 12071 0001:0006D4EA 12076 0001:0006D4F0 12077 0001:0006D4FC + 12079 0001:0006D50A 12080 0001:0006D516 12082 0001:0006D522 12083 0001:0006D53B + 12084 0001:0006D541 12087 0001:0006D55A 12090 0001:0006D560 12091 0001:0006D580 + 12093 0001:0006D594 12094 0001:0006D59D 12095 0001:0006D5BF 12096 0001:0006D5CD + 12097 0001:0006D5E2 12098 0001:0006D5FA 12099 0001:0006D61D 12100 0001:0006D629 + 12102 0001:0006D66D 12105 0001:0006D674 12106 0001:0006D681 12108 0001:0006D68F + 12109 0001:0006D69B 12110 0001:0006D6B4 12111 0001:0006D6D9 12112 0001:0006D6E5 + 12113 0001:0006D6FC 12115 0001:0006D704 12118 0001:0006D714 12119 0001:0006D720 + 12121 0001:0006D72E 12122 0001:0006D73A 12123 0001:0006D746 12124 0001:0006D75D + 12126 0001:0006D765 12129 0001:0006D76C 12130 0001:0006D778 12132 0001:0006D786 + 12133 0001:0006D792 12134 0001:0006D79E 12135 0001:0006D7B5 12137 0001:0006D7BD + 12140 0001:0006D7C4 12141 0001:0006D7D0 12143 0001:0006D7DE 12144 0001:0006D7EA + 12145 0001:0006D7F6 12146 0001:0006D80D 12148 0001:0006D815 12151 0001:0006D81C + 12152 0001:0006D828 12154 0001:0006D836 12155 0001:0006D842 12156 0001:0006D84E + 12157 0001:0006D865 12159 0001:0006D86D 12303 0001:0006D874 12304 0001:0006D88F + 12305 0001:0006D89D 12306 0001:0006D8AA 12307 0001:0006D8B4 12308 0001:0006D8BB + 12311 0001:0006D8C5 12312 0001:0006D8CC 12313 0001:0006D8D1 12314 0001:0006D8DA + 12316 0001:0006D8E3 12317 0001:0006D8F4 12318 0001:0006D92E 12323 0001:0006D934 + 12324 0001:0006D945 12325 0001:0006D94E 12326 0001:0006D962 12327 0001:0006D981 + 12328 0001:0006D98F 12329 0001:0006D9A5 12332 0001:0006D9AC 12333 0001:0006D9B9 + 12334 0001:0006D9C4 12336 0001:0006D9ED 12339 0001:0006DA08 12342 0001:0006DA14 + 12343 0001:0006DA1C 12344 0001:0006DA2E 12346 0001:0006DA36 12349 0001:0006DA3C + 12352 0001:0006DA48 12353 0001:0006DA50 12354 0001:0006DA5E 12356 0001:0006DA66 + 12364 0001:0006DA6C 12365 0001:0006DA72 12366 0001:0006DA83 12368 0001:0006DAC1 + 12369 0001:0006DAE4 12370 0001:0006DAF6 12371 0001:0006DB13 12372 0001:0006DB21 + 12374 0001:0006DB3F 12375 0001:0006DB47 12377 0001:0006DB61 12381 0001:0006DB70 + 12382 0001:0006DB79 12383 0001:0006DB94 12382 0001:0006DBAB 12384 0001:0006DBB0 + 12385 0001:0006DBC9 12386 0001:0006DBD0 12392 0001:0006DBF8 12393 0001:0006DC17 + 12394 0001:0006DC22 12395 0001:0006DC44 12396 0001:0006DC5F 12395 0001:0006DC7C + 12397 0001:0006DC81 12399 0001:0006DCC9 12402 0001:0006DCD0 12403 0001:0006DCDC + 12405 0001:0006DCEC 12406 0001:0006DCFA 12408 0001:0006DD02 12411 0001:0006DD08 + 12412 0001:0006DD11 12413 0001:0006DD1A 12414 0001:0006DD3F 12415 0001:0006DD4B + 12418 0001:0006DD50 12419 0001:0006DD59 12420 0001:0006DD67 12423 0001:0006DD6C + 12424 0001:0006DD78 12426 0001:0006DD83 12427 0001:0006DD9F 12428 0001:0006DDBC + 12429 0001:0006DDC5 12431 0001:0006DDCD 12434 0001:0006DDD4 12435 0001:0006DDE0 + 12437 0001:0006DDF7 12438 0001:0006DE00 12439 0001:0006DE0A 12441 0001:0006DE1D + 12444 0001:0006DE24 12445 0001:0006DE31 12447 0001:0006DE3C 12448 0001:0006DE45 + 12449 0001:0006DE54 12450 0001:0006DE68 12452 0001:0006DE70 12455 0001:0006DE78 + 12456 0001:0006DE84 12458 0001:0006DE8F 12459 0001:0006DE98 12461 0001:0006DEA0 + 12464 0001:0006DEA4 12465 0001:0006DEB0 12467 0001:0006DEBB 12468 0001:0006DEC4 + 12470 0001:0006DECE 12473 0001:0006DED4 12474 0001:0006DEE0 12476 0001:0006DEEB + 12477 0001:0006DEF4 12479 0001:0006DEFE 12484 0001:0006DF04 12485 0001:0006DF10 + 12487 0001:0006DF22 12488 0001:0006DF28 12489 0001:0006DF36 12490 0001:0006DF44 + 12491 0001:0006DF52 12492 0001:0006DF60 12493 0001:0006DF6E 12494 0001:0006DF7C + 12496 0001:0006DF90 12497 0001:0006DF9B 12500 0001:0006DFA0 12501 0001:0006DFAC + 12502 0001:0006DFBA 12503 0001:0006DFCD 12508 0001:0006DFD4 12509 0001:0006DFEF + 12510 0001:0006DFFF 12511 0001:0006E023 12514 0001:0006E028 12515 0001:0006E034 + 12516 0001:0006E045 12524 0001:0006E04C 12525 0001:0006E055 12526 0001:0006E060 + 12527 0001:0006E06B 12530 0001:0006E070 12531 0001:0006E079 12532 0001:0006E085 + 12535 0001:0006E08C 12536 0001:0006E095 12537 0001:0006E0A1 12540 0001:0006E0A8 + 12541 0001:0006E0B4 12542 0001:0006E0BA 12543 0001:0006E0D3 12544 0001:0006E0E0 + 12550 0001:0006E0E4 12551 0001:0006E0ED 12552 0001:0006E102 12553 0001:0006E10A + 12554 0001:0006E118 12555 0001:0006E129 12554 0001:0006E141 12557 0001:0006E147 + 12561 0001:0006E15F 12562 0001:0006E166 12563 0001:0006E16B 12565 0001:0006E17C + 12566 0001:0006E194 12567 0001:0006E1A5 12557 0001:0006E1A8 12568 0001:0006E1AD + 12570 0001:0006E1C7 12572 0001:0006E1D7 12577 0001:0006E1DC 12578 0001:0006E1F7 + 12579 0001:0006E204 12580 0001:0006E20E 12581 0001:0006E234 12584 0001:0006E238 + 12585 0001:0006E244 12586 0001:0006E252 12595 0001:0006E258 12596 0001:0006E264 + 12597 0001:0006E272 12598 0001:0006E27C 12613 0001:0006E2A4 12614 0001:0006E2C5 + 12615 0001:0006E2D4 12616 0001:0006E2F3 12617 0001:0006E30B 12616 0001:0006E32B + 12618 0001:0006E330 12619 0001:0006E34A 12620 0001:0006E375 12633 0001:0006E37C + 12634 0001:0006E388 12635 0001:0006E399 12683 0001:0006E4B4 12684 0001:0006E4CF + 12685 0001:0006E4D9 12686 0001:0006E4E2 12687 0001:0006E50F 12690 0001:0006E514 + 12691 0001:0006E525 12692 0001:0006E530 12693 0001:0006E54C 12696 0001:0006E550 + 12697 0001:0006E55C 12698 0001:0006E56A 12699 0001:0006E578 12700 0001:0006E587 + 12703 0001:0006E58C 12704 0001:0006E59B 12705 0001:0006E5AC 12706 0001:0006E5BA + 12707 0001:0006E5C9 12710 0001:0006E5D0 12711 0001:0006E5D7 12712 0001:0006E5DF + 12713 0001:0006E5EA 12716 0001:0006E5F0 12717 0001:0006E5FC 12718 0001:0006E607 + 12719 0001:0006E615 12720 0001:0006E620 12723 0001:0006E624 12724 0001:0006E62D + 12725 0001:0006E641 12730 0001:0006E648 12731 0001:0006E654 12732 0001:0006E662 + 12735 0001:0006E692 12736 0001:0006E69D 12741 0001:0006E6A4 12742 0001:0006E6B3 + 12743 0001:0006E6C1 12744 0001:0006E6D2 12745 0001:0006E6FE 12748 0001:0006E704 + 12749 0001:0006E713 12750 0001:0006E721 12751 0001:0006E72D 12754 0001:0006E734 + 12755 0001:0006E740 12756 0001:0006E75F 12757 0001:0006E76A 12760 0001:0006E770 + 12761 0001:0006E77C 12762 0001:0006E78D 12765 0001:0006E794 12766 0001:0006E7A0 + 12767 0001:0006E7B4 12770 0001:0006E7B8 12771 0001:0006E7C7 12772 0001:0006E7D8 + 12777 0001:0006E7DC 12778 0001:0006E7F7 12779 0001:0006E800 12780 0001:0006E815 + 12781 0001:0006E81F 12782 0001:0006E844 12785 0001:0006E848 12786 0001:0006E859 + 12787 0001:0006E860 12788 0001:0006E874 12789 0001:0006E885 12790 0001:0006E8AD + 12791 0001:0006E8B8 12792 0001:0006E8D4 12795 0001:0006E8D8 12796 0001:0006E8E1 + 12797 0001:0006E8F0 12800 0001:0006E8F4 12801 0001:0006E8FB 12802 0001:0006E91F + 12805 0001:0006E924 12806 0001:0006E92D 12807 0001:0006E940 12810 0001:0006E944 + 12811 0001:0006E950 12812 0001:0006E96E 12815 0001:0006E974 12816 0001:0006E97D + 12817 0001:0006E989 12818 0001:0006E9A1 12820 0001:0006E9C0 12821 0001:0006E9CC + 12826 0001:0006E9D0 12827 0001:0006E9DC 12829 0001:0006E9E9 12830 0001:0006E9F2 + 12831 0001:0006E9FE 12832 0001:0006EA16 12834 0001:0006EA30 12857 0001:0006EA34 + 12858 0001:0006EA3B 12859 0001:0006EA52 12862 0001:0006EA58 12863 0001:0006EA64 + 12865 0001:0006EA78 12866 0001:0006EA86 12867 0001:0006EA98 12868 0001:0006EAB3 + 12871 0001:0006EAF0 12872 0001:0006EAFD 12874 0001:0006EB1E 12877 0001:0006EB24 + 12878 0001:0006EB30 12880 0001:0006EB3B 12881 0001:0006EB44 12882 0001:0006EB5A + 12884 0001:0006EB67 12900 0001:0006EB6C 12901 0001:0006EB78 12902 0001:0006EB9B + 12903 0001:0006EBA4 12904 0001:0006EBAD 12905 0001:0006EBB6 12906 0001:0006EBBF + 12908 0001:0006EBC8 12910 0001:0006EBCD 12911 0001:0006EBF1 12917 0001:0006EBF8 + 12918 0001:0006EC07 12919 0001:0006EC2A 12920 0001:0006EC33 12921 0001:0006EC3C + 12922 0001:0006EC45 12923 0001:0006EC4E 12925 0001:0006EC57 12927 0001:0006EC5C + 12928 0001:0006EC6A 12929 0001:0006EC6F 12930 0001:0006EC8D 12936 0001:0006EC94 + 12937 0001:0006ECA3 12938 0001:0006ECA7 12939 0001:0006ECBD 12941 0001:0006ECCC + 12942 0001:0006ECD0 12943 0001:0006ECD9 12947 0001:0006ECEF 12948 0001:0006ECF6 + 12949 0001:0006ECFD 12950 0001:0006ED08 12952 0001:0006ED0D 12955 0001:0006ED22 + 12957 0001:0006ED31 12958 0001:0006ED35 12959 0001:0006ED3E 12960 0001:0006ED54 + 12963 0001:0006ED80 12965 0001:0006ED8B 12966 0001:0006ED8F 12967 0001:0006ED98 + 12968 0001:0006EDB0 12969 0001:0006EDB5 12970 0001:0006EDC7 12974 0001:0006EDEE + 12975 0001:0006EE06 12976 0001:0006EE27 12981 0001:0006EE2C 12982 0001:0006EE38 + 12984 0001:0006EE43 12985 0001:0006EE4C 12989 0001:0006EE5E 12990 0001:0006EE65 + 12991 0001:0006EE6B 12992 0001:0006EE76 12994 0001:0006EE7B 12995 0001:0006EE8B + 12998 0001:0006EEAC 13001 0001:0006EEB0 13002 0001:0006EEBC 13003 0001:0006EED2 + 13005 0001:0006EEE3 13006 0001:0006EEF1 13007 0001:0006EEFF 13008 0001:0006EF0F + 13009 0001:0006EF1D 13010 0001:0006EF30 13011 0001:0006EF43 13012 0001:0006EF51 + 13014 0001:0006EF65 13015 0001:0006EF70 13018 0001:0006EF74 13019 0001:0006EF80 + 13020 0001:0006EFAD 13023 0001:0006EFB4 13024 0001:0006EFC0 13025 0001:0006EFC6 + 13026 0001:0006EFD4 13029 0001:0006EFD8 13030 0001:0006EFE1 13031 0001:0006EFF3 + 13032 0001:0006EFFE 13033 0001:0006F012 13054 0001:0006F018 13055 0001:0006F027 + 13056 0001:0006F04E 13059 0001:0006F054 13060 0001:0006F060 13061 0001:0006F074 + 13066 0001:0006F078 13069 0001:0006F087 13071 0001:0006F09A 13072 0001:0006F0AB + 13076 0001:0006F0BD 13077 0001:0006F0C4 13078 0001:0006F0CB 13079 0001:0006F0D6 + 13081 0001:0006F0DD 13084 0001:0006F0ED 13117 0001:0006F0F4 13118 0001:0006F10F + 13119 0001:0006F119 13120 0001:0006F13D 13123 0001:0006F144 13124 0001:0006F155 + 13125 0001:0006F15D 13126 0001:0006F179 13129 0001:0006F180 13130 0001:0006F189 + 13131 0001:0006F19C 13134 0001:0006F1A0 13135 0001:0006F1AC 13136 0001:0006F1BF + 13139 0001:0006F1C4 13140 0001:0006F1D3 13141 0001:0006F1D9 13143 0001:0006F1EC + 13144 0001:0006F1F2 13145 0001:0006F1F8 13146 0001:0006F203 13147 0001:0006F22A + 13150 0001:0006F230 13151 0001:0006F239 13152 0001:0006F25A 13153 0001:0006F262 + 13156 0001:0006F268 13157 0001:0006F271 13158 0001:0006F282 13163 0001:0006F288 + 13164 0001:0006F294 13165 0001:0006F299 13167 0001:0006F2A8 13169 0001:0006F2B7 + 13172 0001:0006F2C6 13173 0001:0006F2CB 13174 0001:0006F2D1 13176 0001:0006F2D6 + 13182 0001:0006F2E9 13183 0001:0006F2F0 13184 0001:0006F2F6 13186 0001:0006F2FB + 13189 0001:0006F318 13194 0001:0006F31C 13197 0001:0006F328 13198 0001:0006F32F + 13200 0001:0006F335 13201 0001:0006F34E 13204 0001:0006F354 13205 0001:0006F360 + 13206 0001:0006F375 13214 0001:0006F37C 13215 0001:0006F383 13216 0001:0006F39F + 13219 0001:0006F3A4 13220 0001:0006F3AB 13221 0001:0006F3BE 13222 0001:0006F3C4 + 13227 0001:0006F3C8 13228 0001:0006F3D4 13230 0001:0006F3DE 13232 0001:0006F3E7 + 13233 0001:0006F3F9 13235 0001:0006F403 13237 0001:0006F424 13238 0001:0006F43B + 13240 0001:0006F444 13241 0001:0006F450 13242 0001:0006F45E 13244 0001:0006F466 + 13235 0001:0006F469 13245 0001:0006F46E 13246 0001:0006F482 13247 0001:0006F4A8 + 13249 0001:0006F4C5 13251 0001:0006F4D2 13252 0001:0006F4E9 13254 0001:0006F50A + 13255 0001:0006F521 13257 0001:0006F52A 13258 0001:0006F538 13260 0001:0006F540 + 13252 0001:0006F543 13261 0001:0006F548 13262 0001:0006F54F 13263 0001:0006F55D + 13264 0001:0006F571 13266 0001:0006F589 13268 0001:0006F598 13269 0001:0006F5B6 + 13271 0001:0006F5CE 13274 0001:0006F5D4 13275 0001:0006F5DB 13276 0001:0006F5E1 + 13277 0001:0006F5F4 13283 0001:0006F5F8 13284 0001:0006F604 13286 0001:0006F616 + 13287 0001:0006F61E 13288 0001:0006F624 13290 0001:0006F660 13291 0001:0006F66B + 13299 0001:0006F670 13300 0001:0006F677 13301 0001:0006F683 13302 0001:0006F689 + 13303 0001:0006F69C 13304 0001:0006F6B5 13307 0001:0006F6BB 13308 0001:0006F6BF + 13310 0001:0006F6DA 13311 0001:0006F6FF 13313 0001:0006F705 13308 0001:0006F708 + 13314 0001:0006F710 13316 0001:0006F718 13317 0001:0006F725 13318 0001:0006F730 + 13319 0001:0006F758 13328 0001:0006F770 13329 0001:0006F792 13330 0001:0006F79A + 13331 0001:0006F7AA 13332 0001:0006F7B5 13333 0001:0006F7C3 13334 0001:0006F7D7 + 13335 0001:0006F7E0 13336 0001:0006F7E5 13338 0001:0006F7FF 13340 0001:0006F80A + 13341 0001:0006F823 13342 0001:0006F832 13343 0001:0006F845 13344 0001:0006F858 + 13345 0001:0006F866 13346 0001:0006F86F 13347 0001:0006F879 13348 0001:0006F87E + 13350 0001:0006F894 13351 0001:0006F8AD 13352 0001:0006F8B6 13353 0001:0006F8BD + 13354 0001:0006F8C4 13348 0001:0006F8C7 13356 0001:0006F8CC 13358 0001:0006F8DC + 13336 0001:0006F8DF 13360 0001:0006F8E8 13362 0001:0006F8F3 13363 0001:0006F8F9 + 13364 0001:0006F911 13365 0001:0006F91F 13367 0001:0006F93A 13368 0001:0006F94B + 13369 0001:0006F94F 13365 0001:0006F952 13369 0001:0006F957 13363 0001:0006F95A + 13372 0001:0006F96C 13374 0001:0006F9A1 13385 0001:0006F9A8 13386 0001:0006F9B1 + 13387 0001:0006F9BC 13388 0001:0006F9CF 13390 0001:0006F9D4 13391 0001:0006F9F7 + 13392 0001:0006F9FE 13394 0001:0006FA1A 13395 0001:0006FA32 13397 0001:0006FA55 + 13398 0001:0006FA7C 13399 0001:0006FA80 13395 0001:0006FA83 13400 0001:0006FA88 + 13401 0001:0006FA91 13392 0001:0006FA94 13402 0001:0006FA99 13403 0001:0006FAA4 + 13404 0001:0006FAB2 13405 0001:0006FABA 13406 0001:0006FAC8 13407 0001:0006FAD1 + 13408 0001:0006FAD6 13410 0001:0006FAF2 13412 0001:0006FB00 13413 0001:0006FB16 + 13414 0001:0006FB21 13415 0001:0006FB2D 13416 0001:0006FB39 13417 0001:0006FB45 + 13418 0001:0006FB56 13419 0001:0006FB5F 13420 0001:0006FB6A 13421 0001:0006FB6F + 13423 0001:0006FB8A 13424 0001:0006FBAB 13425 0001:0006FBB4 13426 0001:0006FBBB + 13427 0001:0006FBC2 13421 0001:0006FBC5 13429 0001:0006FBCA 13431 0001:0006FBDA + 13408 0001:0006FBDD 13433 0001:0006FBE6 13434 0001:0006FBEC 13436 0001:0006FC04 + 13437 0001:0006FC12 13439 0001:0006FC2D 13440 0001:0006FC3E 13441 0001:0006FC42 + 13437 0001:0006FC45 13442 0001:0006FC4A 13434 0001:0006FC4D 13443 0001:0006FC52 + 13445 0001:0006FC6D 13447 0001:0006FCA2 13450 0001:0006FCA8 13451 0001:0006FCB4 + 13452 0001:0006FCC4 13456 0001:0006FCC8 13459 0001:0006FCD7 13460 0001:0006FCE0 + 13461 0001:0006FCE9 13462 0001:0006FCF1 13463 0001:0006FCFB 13465 0001:0006FD04 + 13470 0001:0006FD0C 13471 0001:0006FD27 13472 0001:0006FD31 13473 0001:0006FD4E + 13474 0001:0006FD57 13475 0001:0006FD61 13476 0001:0006FD6B 13477 0001:0006FD90 + 13480 0001:0006FD94 13481 0001:0006FDA0 13483 0001:0006FDAB 13484 0001:0006FDB4 + 13486 0001:0006FDBF 13489 0001:0006FDC4 13490 0001:0006FDD0 13492 0001:0006FDDB + 13493 0001:0006FDE4 13495 0001:0006FDEF 13498 0001:0006FDF4 13499 0001:0006FE00 + 13501 0001:0006FE0B 13502 0001:0006FE14 13504 0001:0006FE1F 13510 0001:0006FE24 + 13512 0001:0006FE29 13513 0001:0006FE3B 13514 0001:0006FE6C 13515 0001:0006FE8F + 13518 0001:0006FE98 13519 0001:0006FEB3 13520 0001:0006FEC0 13521 0001:0006FEDA + 13522 0001:0006FEE7 13523 0001:0006FEF4 13524 0001:0006FEFE 13525 0001:0006FF0B + 13526 0001:0006FF15 13527 0001:0006FF1F 13528 0001:0006FF29 13529 0001:0006FF33 + 13530 0001:0006FF3D 13531 0001:0006FF52 13532 0001:0006FF63 13533 0001:0006FF70 + 13534 0001:0006FF88 13535 0001:0006FF9C 13536 0001:0006FFB0 13537 0001:0006FFC8 + 13538 0001:0006FFE6 13539 0001:0006FFF0 13540 0001:0006FFFA 13541 0001:00070005 + 13542 0001:00070021 13543 0001:00070038 13544 0001:0007004F 13545 0001:00070064 + 13546 0001:0007007A 13547 0001:0007008F 13548 0001:000700A5 13549 0001:000700BA + 13550 0001:000700EB 13553 0001:000700F8 13554 0001:00070109 13555 0001:00070120 + 13556 0001:0007012E 13557 0001:0007013C 13558 0001:0007014A 13559 0001:00070158 + 13560 0001:00070166 13561 0001:00070174 13562 0001:00070182 13563 0001:00070190 + 13564 0001:0007019E 13565 0001:000701AC 13566 0001:000701B8 13567 0001:000701D3 + 13568 0001:000701E1 13569 0001:000701EF 13570 0001:000701FD 13571 0001:0007020B + 13572 0001:00070219 13573 0001:00070224 13574 0001:00070240 13590 0001:00070244 + 13591 0001:00070250 13592 0001:0007025A 13593 0001:00070265 13596 0001:00070275 + 13605 0001:0007033C 13606 0001:00070352 13607 0001:00070368 13609 0001:0007038A + 13610 0001:00070394 13612 0001:0007039E 13614 0001:000703A5 13621 0001:000703BC + 13622 0001:000703C0 13623 0001:000703D3 13624 0001:000703E4 13625 0001:00070404 + 13626 0001:00070412 13627 0001:0007041A 13629 0001:0007043B 13631 0001:0007044B + 13632 0001:0007045E 13633 0001:0007046C 13635 0001:00070470 13636 0001:00070477 + 13637 0001:0007047F 13638 0001:00070487 13639 0001:00070495 13640 0001:000704A6 + 13641 0001:000704B7 13643 0001:000704C7 13644 0001:000704D5 13645 0001:000704DF + 13646 0001:000704ED 13647 0001:000704FB 13648 0001:0007050C 13649 0001:0007051C + 13650 0001:00070527 13651 0001:0007054A 13652 0001:0007055E 13653 0001:00070565 + 13655 0001:00070580 13656 0001:0007058E 13659 0001:000705A0 13660 0001:000705AE + 13661 0001:000705CC 13662 0001:000705E6 13663 0001:00070604 13664 0001:00070621 + 13665 0001:0007063F 13666 0001:0007065C 13667 0001:00070664 13670 0001:00070668 + 13671 0001:0007066F 13672 0001:0007067B 13674 0001:00070692 13675 0001:000706A4 + 13676 0001:000706C7 13677 0001:000706D8 13678 0001:000706EA 13679 0001:000706F6 + 13680 0001:000706FE 13681 0001:00070706 13684 0001:0007070C 13685 0001:0007071B + 13686 0001:0007073A 13691 0001:00070740 13692 0001:0007074C 13694 0001:00070758 + 13695 0001:00070764 13697 0001:00070771 13698 0001:00070776 13699 0001:00070793 + 13700 0001:000707B3 13702 0001:000707D1 13706 0001:000707D8 13707 0001:000707E7 + 13708 0001:000707F5 13710 0001:000707FB 13711 0001:00070813 13712 0001:0007082B + 13714 0001:00070843 13722 0001:0007086C 13723 0001:00070886 13724 0001:000708AE + 13725 0001:000708D4 13726 0001:000708E5 13727 0001:000708F3 13728 0001:00070914 + 13727 0001:00070933 13729 0001:00070938 13731 0001:0007096D 13732 0001:0007097E + 13734 0001:000709B6 13736 0001:000709BC 13737 0001:000709CB 13740 0001:000709D9 + 13742 0001:000709F5 13745 0001:00070A0A 13747 0001:00070A13 13748 0001:00070A1D + 13752 0001:00070A2A 13753 0001:00070A5D 13754 0001:00070A68 13755 0001:00070A73 + 13758 0001:00070A7D 13761 0001:00070ABF 13763 0001:00070AD3 13766 0001:00070ADC + 13767 0001:00070AEB 13770 0001:00070AF9 13772 0001:00070B33 13773 0001:00070B4F + 13775 0001:00070B6B 13780 0001:00070B84 13781 0001:00070B8F 13784 0001:00070B99 + 13787 0001:00070BDB 13789 0001:00070BEF 13792 0001:00070BF8 13793 0001:00070C07 + 13794 0001:00070C1A 13800 0001:00070C20 13801 0001:00070C29 13803 0001:00070C39 + 13804 0001:00070C3E 13806 0001:00070C4A 13807 0001:00070C56 13809 0001:00070C60 + 13810 0001:00070C67 13811 0001:00070C7A 13812 0001:00070C8A 13813 0001:00070C9A + 13814 0001:00070CAA 13815 0001:00070CBD 13816 0001:00070CCD 13817 0001:00070CE0 + 13818 0001:00070CEC 13819 0001:00070CF2 13820 0001:00070D0A 13821 0001:00070D11 + 13822 0001:00070D1D 13823 0001:00070D24 13824 0001:00070D30 13825 0001:00070D37 + 13826 0001:00070D47 13827 0001:00070D4D 13829 0001:00070D58 13835 0001:00070D64 + 13836 0001:00070D6E 13838 0001:00070D8C 13840 0001:00070D98 13841 0001:00070DAE + 13844 0001:00070DC9 13845 0001:00070DF5 13836 0001:00070DF8 13846 0001:00070DFD + 13847 0001:00070E0B 13848 0001:00070E16 13854 0001:00070E1C 13855 0001:00070E26 + 13856 0001:00070E49 13857 0001:00070E5B 13859 0001:00070E79 13860 0001:00070E92 + 13861 0001:00070EA8 13857 0001:00070EAB 13862 0001:00070EB0 13863 0001:00070EC2 + 13868 0001:00070EC8 13869 0001:00070ED5 13871 0001:00070EE7 13872 0001:00070EF3 + 13873 0001:00070EFB 13874 0001:00070F07 13876 0001:00070F11 13877 0001:00070F2F + 13878 0001:00070F6D 13876 0001:00070F70 13879 0001:00070F75 13882 0001:00070F7C + 13883 0001:00070F88 13885 0001:00070F96 13886 0001:00070FA2 13888 0001:00070FAA + 13891 0001:00070FB0 13892 0001:00070FBC 13894 0001:00070FCA 13895 0001:00070FD6 + 13897 0001:00070FDE 13900 0001:00070FE4 13901 0001:00070FF0 13903 0001:00070FFE + 13904 0001:0007100A 13906 0001:00071012 13909 0001:00071018 13910 0001:00071024 + 13912 0001:00071032 13913 0001:00071040 13914 0001:0007104C 13916 0001:00071054 + 13919 0001:00071058 13920 0001:00071064 13922 0001:00071072 13923 0001:0007107E + 13925 0001:00071086 13928 0001:0007108C 13929 0001:00071098 13931 0001:000710A6 + 13932 0001:000710B2 13934 0001:000710BA 13937 0001:000710C0 13938 0001:000710CC + 13940 0001:000710DA 13941 0001:000710E6 13943 0001:000710EE 13946 0001:000710F4 + 13947 0001:00071100 13949 0001:0007110E 13950 0001:0007111A 13952 0001:00071122 + 13955 0001:00071128 13956 0001:00071134 13958 0001:00071142 13959 0001:0007114E + 13961 0001:00071156 13964 0001:0007115C 13965 0001:00071168 13967 0001:00071176 + 13968 0001:00071182 13970 0001:0007118A 13973 0001:00071190 13974 0001:0007119C + 13976 0001:000711A2 13977 0001:000711AE 13980 0001:000711C4 13981 0001:000711E1 + 13984 0001:000711E8 13985 0001:000711F4 13987 0001:00071202 13988 0001:0007120E + 13990 0001:00071216 13993 0001:0007121C 13994 0001:00071228 13996 0001:00071236 + 13997 0001:00071242 13999 0001:0007124A 14002 0001:00071250 14003 0001:0007125C + 14004 0001:00071279 14007 0001:00071280 14008 0001:0007128C 14009 0001:000712A6 + 14010 0001:000712C0 14013 0001:000712C4 14014 0001:000712D0 14016 0001:000712DE + 14017 0001:000712EA 14019 0001:00071306 14022 0001:0007130C 14023 0001:00071318 + 14024 0001:00071323 14025 0001:0007133D 14028 0001:00071344 14029 0001:00071350 + 14030 0001:00071364 14031 0001:0007136F 14040 0001:00071374 14041 0001:00071395 + 14042 0001:000713A0 14043 0001:000713C7 14044 0001:000713D0 14046 0001:000713FF + 14047 0001:00071411 14049 0001:0007141D 14050 0001:0007142E 14051 0001:0007143C + 14052 0001:0007144A 14053 0001:00071461 14054 0001:0007146D 14057 0001:00071480 + 14059 0001:0007148F 14061 0001:00071498 14062 0001:000714A9 14063 0001:000714C6 + 14067 0001:000714EA 14068 0001:00071509 14069 0001:0007152E 14071 0001:00071549 + 14072 0001:00071556 14073 0001:0007157B 14075 0001:0007158A 14076 0001:000715A4 + 14077 0001:000715BC 14082 0001:000715F5 14085 0001:00071610 14086 0001:00071619 + 14087 0001:0007162A 14090 0001:00071630 14091 0001:00071639 14092 0001:0007164A + 14095 0001:00071650 14096 0001:0007165C 14097 0001:00071667 14099 0001:00071673 + 14100 0001:00071684 14101 0001:00071690 14103 0001:000716A3 14106 0001:000716A8 + 14107 0001:000716B4 14109 0001:000716C2 14110 0001:000716CE 14112 0001:000716D6 + 14115 0001:000716DC 14116 0001:000716E8 14118 0001:000716F6 14119 0001:00071702 + 14121 0001:0007170A 14124 0001:00071710 14125 0001:0007171C 14127 0001:00071728 + 14128 0001:00071736 14129 0001:00071744 14131 0001:00071752 14139 0001:00071758 + 14140 0001:00071764 14142 0001:00071776 14143 0001:00071782 14145 0001:0007178E + 14146 0001:000717A1 14147 0001:000717A5 14148 0001:000717B9 14149 0001:000717CD + 14150 0001:000717D5 14153 0001:000717E2 14154 0001:000717F1 14155 0001:000717FD + 14159 0001:00071807 14162 0001:0007180C 14164 0001:00071818 14166 0001:0007182E + 14167 0001:0007183D 14168 0001:00071857 14170 0001:00071872 14171 0001:0007187D + 14183 0001:00071884 14184 0001:0007188D 14185 0001:00071894 14186 0001:000718A0 + 14187 0001:000718B3 14190 0001:000718B8 14191 0001:000718C8 14193 0001:000718D5 + 14194 0001:000718EA 14196 0001:000718F0 14197 0001:000718F7 14202 0001:000718FC + 14203 0001:0007190C 14204 0001:00071913 14206 0001:00071954 14209 0001:0007195C + 14210 0001:0007196C 14212 0001:00071979 14213 0001:00071992 14215 0001:00071998 + 14216 0001:0007199F 14220 0001:000719A4 14221 0001:000719B4 14223 0001:000719C1 + 14224 0001:000719E2 14226 0001:000719E8 14227 0001:000719EF 14232 0001:000719F8 + 14233 0001:00071A02 14234 0001:00071A0A 14235 0001:00071A17 14236 0001:00071A2C + 14237 0001:00071A45 14240 0001:00071A4C 14241 0001:00071A55 14242 0001:00071A6A + 14250 0001:00071A70 14251 0001:00071A79 14252 0001:00071A81 14253 0001:00071A87 + 14254 0001:00071A8B 14255 0001:00071A91 14256 0001:00071A95 14257 0001:00071A9B + 14258 0001:00071A9F 14259 0001:00071AA5 14260 0001:00071AA9 14261 0001:00071AAF + 14262 0001:00071AB6 14264 0001:00071AC0 14266 0001:00071AEB 14267 0001:00071AF1 + 14270 0001:00071AFC 14272 0001:00071B0C 14273 0001:00071B12 14274 0001:00071B1C + 14276 0001:00071B26 14277 0001:00071B33 14278 0001:00071B42 14279 0001:00071B51 + 14280 0001:00071B62 14281 0001:00071B6E 14282 0001:00071B7B 14283 0001:00071B83 + 14284 0001:00071B97 14285 0001:00071B9D 14286 0001:00071BAC 14287 0001:00071BB2 + 14288 0001:00071BC1 14289 0001:00071BD8 14292 0001:00071BE6 14295 0001:00071BF4 + 14297 0001:00071C28 14300 0001:00071C30 14301 0001:00071C39 14302 0001:00071C4C + 14321 0001:00071C50 14322 0001:00071C59 14323 0001:00071C5F 14324 0001:00071C65 + 14325 0001:00071C6B 14326 0001:00071C71 14327 0001:00071C77 14328 0001:00071C7D + 14329 0001:00071C83 14331 0001:00071C89 14332 0001:00071C90 14335 0001:00071C94 + 14336 0001:00071C9D 14337 0001:00071CA5 14338 0001:00071CAB 14339 0001:00071CAF + 14340 0001:00071CB5 14341 0001:00071CB9 14342 0001:00071CBF 14343 0001:00071CC3 + 14344 0001:00071CC9 14345 0001:00071CCD 14346 0001:00071CD3 14347 0001:00071CDA + 14349 0001:00071CE4 14351 0001:00071D0E 14353 0001:00071DCF 14354 0001:00071DE1 + 14356 0001:00071DED 14357 0001:00071E06 14358 0001:00071E31 14359 0001:00071E4E + 14363 0001:00071E79 14364 0001:00071E89 14365 0001:00071E92 14366 0001:00071EA0 + 14367 0001:00071EAE 14369 0001:00071EB6 14371 0001:00071EC3 14372 0001:00071ECE + 14375 0001:00071EF1 14377 0001:00071F08 14378 0001:00071F16 14379 0001:00071F2A + 14380 0001:00071F3E 14381 0001:00071F55 14383 0001:00071F75 14385 0001:00071F8D + 14387 0001:00071F93 14388 0001:00071F9D 14391 0001:00071FA7 14392 0001:00071FCD + 14393 0001:00071FD7 14394 0001:00071FEA 14395 0001:00071FF1 14396 0001:00072004 + 14397 0001:0007200B 14398 0001:00072022 14401 0001:0007202E 14402 0001:00072045 + 14404 0001:0007205A 14405 0001:00072071 14407 0001:00072086 14408 0001:0007209D + 14412 0001:000720B2 14415 0001:000720BD 14416 0001:000720D9 14417 0001:000720EB + 14420 0001:000720F7 14423 0001:0007211B 14424 0001:00072131 14425 0001:00072140 + 14426 0001:0007214B 14429 0001:00072156 14431 0001:00072166 14432 0001:00072174 + 14433 0001:00072188 14434 0001:0007219C 14435 0001:000721B3 14436 0001:000721CC + 14437 0001:000721E5 14438 0001:000721EF 14439 0001:000721F5 14443 0001:00072228 + 14445 0001:0007224F 14447 0001:00072255 14448 0001:0007225C 14450 0001:0007226B + 14452 0001:0007227B 14453 0001:00072285 14454 0001:00072299 14455 0001:000722AD + 14457 0001:000722B6 14458 0001:000722D0 14459 0001:000722EC 14461 0001:00072310 + 14463 0001:00072320 14464 0001:00072335 14465 0001:00072354 14470 0001:00072368 + 14472 0001:00072380 14474 0001:00072386 14475 0001:00072399 14476 0001:000723A0 + 14477 0001:000723B3 14478 0001:000723BA 14479 0001:000723D1 14482 0001:000723DD + 14483 0001:000723F0 14484 0001:000723F7 14485 0001:0007240E 14488 0001:0007241A + 14490 0001:00072426 14491 0001:0007242C 14495 0001:0007245F 14498 0001:00072488 + 14500 0001:00072494 14501 0001:0007249A 14505 0001:000724CD 14508 0001:000724F3 + 14510 0001:000724FF 14511 0001:00072505 14515 0001:00072535 14520 0001:00072566 + 14523 0001:0007257C 14525 0001:00072593 14527 0001:000725AD 14528 0001:000725C8 + 14527 0001:000725EA 14531 0001:000725F5 14532 0001:00072609 14534 0001:00072615 + 14535 0001:0007261D 14536 0001:00072626 14538 0001:00072640 14539 0001:00072649 + 14540 0001:00072659 14541 0001:00072688 14542 0001:00072691 14544 0001:0007269D + 14546 0001:000726A6 14547 0001:000726B1 14548 0001:000726BD 14550 0001:000726C9 + 14551 0001:000726DB 14552 0001:000726E5 14556 0001:000726ED 14558 0001:0007270C + 14559 0001:0007271E 14560 0001:00072734 14563 0001:0007273D 14564 0001:00072749 + 14569 0001:0007275A 14570 0001:00072763 14572 0001:0007277F 14574 0001:00072788 + 14575 0001:00072798 14576 0001:0007279D 14577 0001:000727A5 14578 0001:000727B1 + 14579 0001:000727B5 14580 0001:000727C4 14582 0001:000727CF 14583 0001:000727D8 + 14584 0001:000727E8 14587 0001:000727F2 14588 0001:00072801 14589 0001:00072817 + 14590 0001:0007281D 14591 0001:00072823 14592 0001:00072829 14596 0001:0007282D + 14600 0001:00072873 14601 0001:0007287C 14606 0001:000728B4 14607 0001:000728C8 + 14608 0001:000728E5 14610 0001:000728F2 14611 0001:00072908 14612 0001:00072922 + 14616 0001:00072942 14617 0001:0007294B 14618 0001:00072965 14620 0001:0007297C + 14622 0001:000729A0 14624 0001:000729CA 14625 0001:000729D3 14627 0001:00072A12 + 14629 0001:00072A1B 14630 0001:00072A32 14631 0001:00072A47 14633 0001:00072A5D + 14635 0001:00072A6F 14636 0001:00072A88 14638 0001:00072A9A 14640 0001:00072AB1 + 14642 0001:00072ACF 14645 0001:00072ADF 14646 0001:00072AEC 14648 0001:00072B12 + 14650 0001:00072B1E 14652 0001:00072B50 14657 0001:00072B58 14658 0001:00072B67 + 14659 0001:00072B73 14660 0001:00072B91 14659 0001:00072BD0 14661 0001:00072BD5 + 14662 0001:00072BE3 14665 0001:00072BE8 14666 0001:00072BF5 14667 0001:00072C17 + 14670 0001:00072C1C 14671 0001:00072C32 14672 0001:00072C58 14675 0001:00072C60 + 14676 0001:00072C6D 14677 0001:00072C8F 14680 0001:00072C94 14681 0001:00072CB9 + 14683 0001:00072CCA 14684 0001:00072CD5 14686 0001:00072CFD 14691 0001:00072D04 + 14692 0001:00072D14 14693 0001:00072D18 14694 0001:00072D28 14695 0001:00072D2E + 14696 0001:00072D34 14700 0001:00072D38 14701 0001:00072D45 14702 0001:00072D65 + 14707 0001:00072D6C 14708 0001:00072D7C 14709 0001:00072D8C 14710 0001:00072D92 + 14711 0001:00072D98 14715 0001:00072D9C 14716 0001:00072DA9 14717 0001:00072DC2 + 14720 0001:00072DC8 14721 0001:00072DD5 14723 0001:00072DE4 14724 0001:00072DF1 + 14725 0001:00072E06 14726 0001:00072E0D 14728 0001:00072E15 14731 0001:00072E1C + 14732 0001:00072E29 14733 0001:00072E2D 14734 0001:00072E56 14740 0001:00072E5C + 14743 0001:00072E7C 14744 0001:00072E8A 14745 0001:00072E98 14746 0001:00072EBE + 14748 0001:00072EEC 14759 0001:00072EF4 14760 0001:00072EFD 14761 0001:00072F0B + 14762 0001:00072F19 14763 0001:00072F21 14766 0001:00072F28 14767 0001:00072F34 + 14770 0001:00072F68 14772 0001:00072F77 14773 0001:00072F8B 14776 0001:00072F98 + 14778 0001:00072FB7 14779 0001:00072FC2 14786 0001:00072FCC 14787 0001:00072FD8 + 14788 0001:00072FE3 14789 0001:00072FEE 14790 0001:00072FF7 14791 0001:00073011 + 14792 0001:0007301D 14793 0001:00073039 14794 0001:0007303E 14795 0001:0007304B + 14796 0001:00073051 14797 0001:00073062 14799 0001:00073068 14800 0001:00073085 + 14801 0001:0007308B 14803 0001:00073097 14804 0001:000730A2 14805 0001:000730AF + 14808 0001:000730C6 14812 0001:000730CC 14813 0001:000730DB 14814 0001:000730ED + 14815 0001:000730FB 14816 0001:00073106 14822 0001:0007310C 14823 0001:00073118 + 14824 0001:00073123 14825 0001:0007312C 14826 0001:00073143 14829 0001:00073178 + 14830 0001:00073183 14831 0001:00073194 14832 0001:0007319E 14833 0001:000731A9 + 14837 0001:000731B9 14842 0001:000731C4 14844 0001:000731D4 14845 0001:000731E1 + 14847 0001:000731FF 14848 0001:0007320A 14849 0001:00073210 14850 0001:00073234 + 14852 0001:00073253 14853 0001:00073270 14854 0001:00073272 14849 0001:00073275 + 14858 0001:0007327A 14864 0001:00073280 14865 0001:0007328F 14866 0001:000732A0 + 14868 0001:000732A6 14869 0001:000732B1 14871 0001:000732C7 14872 0001:000732D2 + 14873 0001:000732DA 14874 0001:000732E5 14875 0001:000732EB 14876 0001:000732FA + 14877 0001:0007330A 14878 0001:00073315 14881 0001:0007331D 14884 0001:00073324 + 14885 0001:00073330 14886 0001:00073341 14889 0001:00073348 14890 0001:00073354 + 14891 0001:00073365 14894 0001:0007336C 14895 0001:0007337B 14896 0001:0007337F + 14898 0001:0007338B 14899 0001:00073399 14901 0001:000733B8 14904 0001:000733BC + 14905 0001:000733C5 14906 0001:000733D1 14907 0001:000733F0 14908 0001:000733F7 + 14911 0001:000733FC 14912 0001:00073408 14914 0001:00073416 14915 0001:00073422 + 14917 0001:0007344F 14919 0001:00073457 14922 0001:0007345C 14923 0001:00073465 + 14924 0001:00073474 14925 0001:00073486 14926 0001:0007348E 14929 0001:00073494 + 14930 0001:000734A0 14931 0001:000734B0 14936 0001:000734B4 14937 0001:000734BD + 14938 0001:000734C2 14940 0001:000734CF 14941 0001:000734DF 14943 0001:000734FC + 14951 0001:00073500 14952 0001:0007350F 14953 0001:00073522 14956 0001:00073528 + 14957 0001:00073534 14959 0001:00073546 14960 0001:00073552 14961 0001:00073569 + 14962 0001:00073575 14964 0001:00073581 14965 0001:00073598 14966 0001:000735A9 + 14968 0001:000735C5 14969 0001:000735D1 14971 0001:000735D9 14974 0001:000735E0 + 14975 0001:000735EC 14977 0001:000735FE 14978 0001:0007360A 14979 0001:00073621 + 14980 0001:0007362D 14982 0001:00073639 14983 0001:00073650 14984 0001:00073661 + 14986 0001:00073680 14987 0001:0007368F 14989 0001:00073697 14992 0001:0007369C + 14993 0001:000736A8 14995 0001:000736BA 14996 0001:000736C6 14997 0001:000736DD + 14998 0001:000736E9 14999 0001:000736FD 15001 0001:00073709 15002 0001:00073720 + 15003 0001:00073731 15004 0001:0007374E 15008 0001:00073764 15009 0001:00073773 + 15011 0001:0007377F 15012 0001:00073789 15015 0001:00073793 15017 0001:0007379B + 15020 0001:000737A0 15021 0001:000737AC 15022 0001:000737C3 15108 0001:000737C8 + 15109 0001:000737D1 15110 0001:000737E9 15115 0001:000737F4 15116 0001:00073800 + 15118 0001:00073817 15119 0001:00073822 15120 0001:0007383D 15122 0001:00073843 + 15123 0001:00073852 15124 0001:00073868 15119 0001:0007386B 15126 0001:00073870 + 15129 0001:00073878 15130 0001:00073881 15131 0001:00073896 15132 0001:0007389C + 15133 0001:000738AB 15136 0001:000738B4 15137 0001:000738C0 15138 0001:000738CC + 15140 0001:000738E3 15141 0001:000738EE 15143 0001:00073903 15146 0001:00073908 + 15147 0001:00073911 15148 0001:00073929 15151 0001:00073934 15152 0001:00073940 + 15153 0001:0007394C 15155 0001:00073963 15156 0001:0007396E 15158 0001:00073983 + 15161 0001:00073988 15162 0001:00073995 15163 0001:000739B7 15169 0001:000739BC + 15170 0001:000739CB 15171 0001:000739D0 15173 0001:000739E0 15174 0001:000739E5 + 15175 0001:00073A0A 15176 0001:00073A13 15177 0001:00073A1C 15178 0001:00073A25 + 15179 0001:00073A2E 15181 0001:00073A33 15182 0001:00073A46 15183 0001:00073A4D + 15184 0001:00073A57 15185 0001:00073A61 15186 0001:00073A6B 15187 0001:00073A75 + 15188 0001:00073A8B 15190 0001:00073AA8 15200 0001:00073AB0 15203 0001:00073AC5 + 15204 0001:00073ACC 15205 0001:00073AD8 15207 0001:00073AE7 15208 0001:00073AFD + 15209 0001:00073B19 15210 0001:00073B21 15217 0001:00073B28 15218 0001:00073B37 + 15219 0001:00073B3C 15221 0001:00073B48 15222 0001:00073B62 15223 0001:00073B75 + 15225 0001:00073B92 15231 0001:00073B98 15232 0001:00073BA4 15233 0001:00073BBD + 15243 0001:00073BC4 15244 0001:00073BCD 15245 0001:00073BE5 15246 0001:00073C16 + 15255 0001:00073C1C 15256 0001:00073C29 15257 0001:00073C39 15259 0001:00073C4D + 15260 0001:00073C54 15261 0001:00073C5D 15262 0001:00073C6B 15263 0001:00073C74 + 15264 0001:00073C80 15266 0001:00073CA6 15267 0001:00073CAB 15268 0001:00073CB4 + 15270 0001:00073CC6 15271 0001:00073CCA 15273 0001:00073CD3 15274 0001:00073CD7 + 15275 0001:00073CE0 15279 0001:00073D0B 15280 0001:00073D31 15281 0001:00073D3D + 15282 0001:00073D55 15283 0001:00073D6D 15286 0001:00073D96 15293 0001:00073D9C + 15294 0001:00073DA8 15295 0001:00073DB3 15296 0001:00073DC2 15297 0001:00073DCC + 15298 0001:00073DD9 15299 0001:00073DE4 15301 0001:00073DF9 15303 0001:00073E05 + 15305 0001:00073E11 15306 0001:00073E2A 15308 0001:00073E41 15309 0001:00073E4E + 15314 0001:00073E53 15316 0001:00073E5F 15317 0001:00073E68 15318 0001:00073E81 + 15320 0001:00073E8D 15321 0001:00073EAA 15323 0001:00073EB9 15325 0001:00073EDB + 15328 0001:00073EFC 15329 0001:00073F15 15330 0001:00073F2C 15332 0001:00073F39 + 15339 0001:00073F40 15341 0001:00073F49 15342 0001:00073F58 15343 0001:00073F66 + 15344 0001:00073F71 15346 0001:00073F8F 15347 0001:00073FA3 15348 0001:00073FAC + 15350 0001:00073FB9 15351 0001:00073FC4 15344 0001:00073FC7 15352 0001:00073FCC + 15354 0001:00073FD9 15355 0001:00073FE7 15357 0001:00073FF5 15358 0001:00073FFE + 15360 0001:00074008 15361 0001:00074012 15363 0001:0007401E 15364 0001:0007402C + 15365 0001:00074032 15366 0001:00074038 15367 0001:00074043 15361 0001:00074046 + 15371 0001:0007404C 15372 0001:00074056 15374 0001:00074062 15375 0001:00074070 + 15376 0001:00074076 15377 0001:0007407C 15379 0001:00074089 15380 0001:00074094 + 15382 0001:0007409F 15372 0001:000740A2 15383 0001:000740A8 15385 0001:000740CD + 15389 0001:000740F0 15391 0001:00074100 15394 0001:00074104 15395 0001:00074110 + 15397 0001:00074131 15398 0001:00074139 15399 0001:00074144 15414 0001:00074148 + 15415 0001:00074155 15417 0001:00074165 15419 0001:0007416E 15420 0001:00074179 + 15421 0001:00074188 15422 0001:00074196 15423 0001:000741A4 15424 0001:000741B8 + 15425 0001:000741CC 15426 0001:000741E3 15427 0001:00074202 15429 0001:0007423B + 15430 0001:0007424B 15431 0001:00074259 15434 0001:00074271 15436 0001:0007427B + 15441 0001:00074280 15442 0001:0007428C 15443 0001:00074296 15447 0001:0007429C + 15449 0001:000742AB 15451 0001:000742B5 15452 0001:000742BB 15453 0001:000742E3 + 15454 0001:000742E9 15457 0001:0007432B 15463 0001:00074384 15464 0001:0007438A + 15465 0001:0007439B 15466 0001:000743A1 15468 0001:000743C6 15471 0001:000743F9 + 15474 0001:00074400 15475 0001:00074410 15476 0001:00074414 15477 0001:00074440 + 15478 0001:0007446D 15482 0001:00074474 15483 0001:00074485 15484 0001:00074489 + 15485 0001:000744BA 15486 0001:000744EC 15490 0001:000744F4 15491 0001:00074504 + 15492 0001:00074508 15493 0001:0007451B 15494 0001:0007453D 15495 0001:0007454A + 15496 0001:00074573 15500 0001:0007457C 15501 0001:00074594 15502 0001:000745A2 + 15505 0001:000745CF 15506 0001:000745E0 15508 0001:000745FE 15512 0001:00074608 + 15513 0001:00074618 15514 0001:0007463B 15515 0001:00074658 15521 0001:00074660 + 15522 0001:00074681 15524 0001:0007468D 15525 0001:0007469A 15527 0001:000746BC + 15528 0001:000746DB 15529 0001:000746E8 15530 0001:000746FB 15531 0001:0007470E + 15532 0001:00074729 15533 0001:00074737 15534 0001:0007474D 15536 0001:0007476C + 15537 0001:00074779 15538 0001:00074798 15540 0001:000747C3 15525 0001:000747C6 + 15542 0001:000747F1 15545 0001:000747F8 15546 0001:00074804 15547 0001:0007480F + 15548 0001:00074828 15549 0001:00074830 15552 0001:00074834 15553 0001:00074840 + 15554 0001:0007484C 15555 0001:00074854 15564 0001:00074858 15565 0001:0007487A + 15568 0001:0007488B 15569 0001:000748A8 15571 0001:000748B2 15572 0001:000748C0 + 15573 0001:000748D1 15574 0001:000748DE 15575 0001:000748F8 15576 0001:00074912 + 15578 0001:0007491B 15579 0001:0007492B 15580 0001:0007493C 15581 0001:0007494F + 15582 0001:00074962 15583 0001:00074973 15588 0001:0007497D 15589 0001:000749A5 + 15592 0001:000749AC 15593 0001:000749BC 15594 0001:000749E2 15597 0001:000749E8 + 15598 0001:000749F4 15599 0001:00074A01 15600 0001:00074A11 15603 0001:00074A18 + 15604 0001:00074A21 15605 0001:00074A34 15608 0001:00074A38 15609 0001:00074A41 + 15611 0001:00074A4D 15612 0001:00074A64 15614 0001:00074A6A 15617 0001:00074A70 + 15618 0001:00074A81 15622 0001:00074A88 15623 0001:00074A97 15624 0001:00074AB5 + 15625 0001:00074ACB 15630 0001:00074AD4 15631 0001:00074AE0 15633 0001:00074AFE + 15634 0001:00074B12 15635 0001:00074B1D 15631 0001:00074B20 15636 0001:00074B25 + 15637 0001:00074B2D 15640 0001:00074B34 15641 0001:00074B40 15642 0001:00074B49 + 15643 0001:00074B54 15644 0001:00074B6F 15645 0001:00074BA8 15646 0001:00074BB3 + 15651 0001:00074BB8 15652 0001:00074BC1 15653 0001:00074BDF 15652 0001:00074BFF + 15654 0001:00074C04 15659 0001:00074C08 15660 0001:00074C15 15661 0001:00074C33 + 15662 0001:00074C52 15660 0001:00074C8A 15663 0001:00074C8F 15668 0001:00074C94 + 15669 0001:00074C9E 15670 0001:00074CAC 15671 0001:00074CBA 15672 0001:00074CD1 + 15673 0001:00074CF0 15671 0001:00074D12 15675 0001:00074D25 15677 0001:00074D3B + 15680 0001:00074D40 15681 0001:00074D49 15682 0001:00074D5D 15687 0001:00074D64 + 15688 0001:00074D6D 15689 0001:00074D8B 15688 0001:00074DAB 15690 0001:00074DB0 + 15693 0001:00074DB4 15694 0001:00074DBB 15695 0001:00074DC9 15696 0001:00074DD7 + 15698 0001:00074DF2 15700 0001:00074E08 15703 0001:00074E0C 15704 0001:00074E15 + 15705 0001:00074E20 15709 0001:00074E24 15710 0001:00074E33 15711 0001:00074E41 + 15714 0001:00074E53 15715 0001:00074E65 15716 0001:00074E76 15717 0001:00074E8A + 15719 0001:00074E9E 15725 0001:00074EA4 15726 0001:00074EB0 15728 0001:00074EBE + 15729 0001:00074ED1 15730 0001:00074EDC 15731 0001:00074EEF 15732 0001:00074EF7 + 15735 0001:00074F0B 15736 0001:00074F16 15751 0001:00074F48 15752 0001:00074F63 + 15753 0001:00074F70 15754 0001:00074F82 15755 0001:00074F8F 15756 0001:00074F9C + 15757 0001:00074FA6 15758 0001:00074FB0 15759 0001:00074FBC 15760 0001:00074FE1 + 15767 0001:00074FEC 15768 0001:00074FFB 15769 0001:00075005 15773 0001:00075010 + 15774 0001:0007501C 15775 0001:0007502A 15778 0001:0007503A 15780 0001:00075079 + 15784 0001:00075080 15785 0001:0007508C 15787 0001:000750D6 15790 0001:000750FC + 15791 0001:00075103 15792 0001:0007510D 15793 0001:00075117 15794 0001:0007511F + 15795 0001:00075127 15800 0001:0007512C 15801 0001:00075135 15802 0001:00075141 + 15803 0001:0007514D 15804 0001:00075157 15805 0001:0007515F 15806 0001:0007516B + 15807 0001:00075177 15810 0001:0007517C 15811 0001:00075183 15814 0001:0007518C + 15815 0001:00075196 15817 0001:000751A2 15818 0001:000751AC 15821 0001:000751B6 + 15824 0001:000751BC 15825 0001:000751C8 15826 0001:000751D1 15827 0001:000751DA + 15828 0001:000751E7 15829 0001:000751F2 15832 0001:000751F8 15834 0001:00075204 + 15835 0001:0007520D 15837 0001:00075219 15838 0001:00075224 15845 0001:00075228 + 15846 0001:00075234 15849 0001:00075241 15850 0001:00075256 15851 0001:00075264 + 15852 0001:00075276 15855 0001:00075288 15856 0001:000752A5 15857 0001:000752B3 + 15858 0001:000752C3 15859 0001:000752D8 15860 0001:000752F1 15861 0001:00075304 + 15864 0001:0007531A 15867 0001:00075334 15868 0001:0007533F 15871 0001:00075344 + 15872 0001:00075350 15873 0001:0007535B 15878 0001:00075360 15879 0001:0007536C + 15880 0001:00075377 15881 0001:00075389 15882 0001:000753A9 15883 0001:000753B5 + 15885 0001:000753EF 15886 0001:00075401 15887 0001:0007540F 15888 0001:00075423 + 15891 0001:00075428 15892 0001:00075434 15893 0001:0007543F 15894 0001:00075448 + 15895 0001:00075450 15898 0001:00075454 15899 0001:00075460 15900 0001:0007546B + 15901 0001:0007547E 15903 0001:0007548B 15904 0001:00075497 15906 0001:000754A4 + 15908 0001:000754AD 15911 0001:000754B4 15912 0001:000754BC 15913 0001:000754DB + 15916 0001:000754E0 15917 0001:000754E8 15918 0001:00075507 15921 0001:0007550C + 15922 0001:00075514 15923 0001:00075533 15926 0001:00075538 15927 0001:00075540 + 15928 0001:0007555F 15929 0001:00075569 15932 0001:00075570 15933 0001:00075577 + 15934 0001:0007557F 15935 0001:00075595 15938 0001:00075598 15941 0001:000755A4 + 15942 0001:000755B5 15943 0001:000755C4 15944 0001:000755D3 15945 0001:000755E7 + 15947 0001:000755F6 15950 0001:000755FC 15953 0001:00075608 15954 0001:0007561A + 15955 0001:00075629 15956 0001:00075638 15957 0001:0007564B 15959 0001:0007565A + 15962 0001:00075660 15963 0001:00075669 15964 0001:0007567F 15965 0001:00075699 + 15966 0001:000756AF 15967 0001:000756BA 15973 0001:000756C0 15974 0001:000756C9 + 15975 0001:000756EB 15976 0001:00075705 15977 0001:0007571F 15978 0001:0007572E + 15987 0001:00075734 15989 0001:0007573A 15990 0001:00075749 15994 0001:00075768 + 15995 0001:00075776 15996 0001:00075785 15997 0001:000757AB 15999 0001:000757D1 + 16005 0001:000757DC 16006 0001:000757E6 16007 0001:000757F0 16008 0001:000757FE + 16009 0001:00075812 16010 0001:00075828 16011 0001:0007583C 16012 0001:00075852 + 16013 0001:00075866 16015 0001:00075889 16017 0001:00075899 16020 0001:000758A0 + 16021 0001:000758AC 16023 0001:000758B5 16027 0001:000758C7 16029 0001:000758D5 + 16030 0001:000758DB 16032 0001:00075903 16035 0001:0007590B 16038 0001:00075910 + 16039 0001:0007591C 16041 0001:0007592A 16042 0001:00075936 16044 0001:0007593E + 16047 0001:00075944 16048 0001:00075950 16050 0001:0007595E 16052 0001:00075985 + 16053 0001:00075991 16054 0001:0007599E 16055 0001:000759A9 16056 0001:000759B6 + 16057 0001:000759C1 16059 0001:000759DB 16064 0001:000759E0 16065 0001:00075A13 + 16067 0001:00075A2C 16068 0001:00075A37 16069 0001:00075A45 16070 0001:00075A55 + 16071 0001:00075A5F 16072 0001:00075A6A 16073 0001:00075A77 16074 0001:00075A82 + 16076 0001:00075AB1 16077 0001:00075ABC 16080 0001:00075AF1 16083 0001:00075AF8 + 16084 0001:00075B05 16085 0001:00075B13 16087 0001:00075B19 16088 0001:00075B2A + 16090 0001:00075B41 16091 0001:00075B52 16094 0001:00075B58 16095 0001:00075B64 + 16097 0001:00075B72 16098 0001:00075B7E 16100 0001:00075B8F 16103 0001:00075B94 + 16104 0001:00075BA0 16106 0001:00075BAE 16107 0001:00075BBA 16108 0001:00075BD0 + 16109 0001:00075BDA 16110 0001:00075BE7 16112 0001:00075C07 16129 0001:00075C0C + 16130 0001:00075C2E 16132 0001:00075C41 16133 0001:00075C51 16135 0001:00075C84 + 16136 0001:00075C8E 16137 0001:00075C9B 16138 0001:00075CA6 16140 0001:00075CDD + 16143 0001:00075CE4 16144 0001:00075CF1 16146 0001:00075D01 16147 0001:00075D0F + 16149 0001:00075D18 16150 0001:00075D20 16153 0001:00075D2C 16156 0001:00075D30 + 16157 0001:00075D3D 16159 0001:00075D4D 16160 0001:00075D5B 16162 0001:00075D6C + 16165 0001:00075D70 16166 0001:00075D7C 16168 0001:00075D8A 16169 0001:00075D96 + 16171 0001:00075D9E 16174 0001:00075DA4 16175 0001:00075DB0 16177 0001:00075DBE + 16178 0001:00075DCA 16180 0001:00075DD2 16183 0001:00075DD8 16184 0001:00075DDF + 16185 0001:00075DE9 16186 0001:00075E0C 16191 0001:00075E10 16192 0001:00075E19 + 16193 0001:00075E2D 16195 0001:00075E35 16196 0001:00075E4C 16198 0001:00075E72 + 16199 0001:00075E89 16201 0001:00075E8F 16202 0001:00075E97 16203 0001:00075EA3 + 16204 0001:00075EB7 16206 0001:00075EC5 16209 0001:00075ECC 16210 0001:00075ED5 + 16211 0001:00075EE9 16212 0001:00075F06 16213 0001:00075F11 16214 0001:00075F1C + 16217 0001:00075F20 16218 0001:00075F31 16219 0001:00075F39 16220 0001:00075F41 + 16222 0001:00075F4B 16223 0001:00075F58 16224 0001:00075F7B 16225 0001:00075F85 + 16228 0001:00075F8C 16229 0001:00075F93 16231 0001:00075F9C 16232 0001:00075FA6 + 16234 0001:00075FB2 16237 0001:00075FB8 16238 0001:00075FC5 16239 0001:00075FCD + 16240 0001:00075FF2 16243 0001:00075FF8 16245 0001:00075FFF 16246 0001:00076030 + 16247 0001:0007603A 16248 0001:00076043 16249 0001:0007604E 16252 0001:00076054 + 16253 0001:00076063 16255 0001:0007606F 16256 0001:00076073 16257 0001:00076081 + 16259 0001:00076091 16260 0001:00076098 16265 0001:0007609C 16266 0001:000760B7 + 16267 0001:000760C4 16268 0001:000760CF 16270 0001:000760DD 16271 0001:000760E9 + 16272 0001:000760F6 16273 0001:00076103 16274 0001:00076110 16275 0001:00076135 + 16279 0001:00076144 16280 0001:00076153 16281 0001:00076171 16282 0001:00076185 + 16283 0001:0007619B 16286 0001:000761A4 16287 0001:000761B3 16288 0001:000761C5 + 16289 0001:000761DD 16290 0001:00076211 16294 0001:00076218 16295 0001:00076227 + 16296 0001:0007623D 16298 0001:00076269 16299 0001:0007627F 16302 0001:00076288 + 16303 0001:0007628F 16304 0001:00076297 16308 0001:0007629C 16309 0001:000762AB + 16310 0001:000762B9 16312 0001:000762BF 16313 0001:000762CD 16314 0001:000762D9 + 16315 0001:000762E7 16317 0001:000762F1 16320 0001:000762F8 16321 0001:00076304 + 16322 0001:0007630F 16323 0001:0007631A 16325 0001:00076341 16326 0001:00076352 + 16327 0001:00076363 16329 0001:00076371 16336 0001:00076378 16337 0001:00076387 + 16342 0001:000763E4 16343 0001:000763EF 16344 0001:0007640E 16346 0001:00076414 + 16347 0001:00076418 16351 0001:00076432 16352 0001:00076455 16354 0001:0007645B + 16357 0001:00076485 16358 0001:000764A0 16360 0001:000764CC 16361 0001:000764E2 + 16362 0001:000764FE 16364 0001:00076507 16365 0001:0007651E 16367 0001:00076535 + 16369 0001:00076547 16370 0001:0007654D 16371 0001:0007655C 16373 0001:0007656F + 16374 0001:00076580 16375 0001:0007658E 16378 0001:000765A0 16380 0001:000765B3 + 16381 0001:000765C9 16390 0001:000765D0 16391 0001:000765D9 16393 0001:000765E9 + 16395 0001:00076635 16397 0001:00076641 16399 0001:0007664D 16400 0001:00076671 + 16401 0001:00076687 16402 0001:0007668C 16405 0001:000766A4 16406 0001:000766C7 + 16407 0001:000766DD 16411 0001:000766F3 16412 0001:00076703 16414 0001:0007670F + 16415 0001:00076735 16417 0001:00076743 16418 0001:00076752 16421 0001:00076771 + 16424 0001:00076787 16426 0001:00076794 16427 0001:000767A3 16429 0001:000767AF + 16430 0001:000767BC 16431 0001:000767C9 16432 0001:000767D9 16433 0001:000767E6 + 16435 0001:00076809 16437 0001:00076839 16438 0001:00076853 16440 0001:00076861 + 16441 0001:00076870 16444 0001:00076899 16446 0001:000768B5 16457 0001:000768BC + 16458 0001:000768C5 16459 0001:000768C9 16460 0001:000768D5 16461 0001:000768E1 + 16463 0001:000768EB 16464 0001:000768F3 16465 0001:0007691D 16466 0001:00076925 + 16467 0001:00076937 16468 0001:0007693F 16469 0001:00076953 16470 0001:00076967 + 16471 0001:0007697E 16474 0001:00076984 16475 0001:00076990 16477 0001:0007699E + 16478 0001:000769AA 16479 0001:000769B5 16482 0001:000769DC 16483 0001:000769ED + 16484 0001:000769FE 16487 0001:00076A0C 16490 0001:00076A10 16491 0001:00076A1C + 16492 0001:00076A2C 16493 0001:00076A3B 16494 0001:00076A44 16495 0001:00076A53 + 16496 0001:00076A74 16497 0001:00076A84 16498 0001:00076A94 16513 0001:00076A98 + 16514 0001:00076AA5 16516 0001:00076AC2 16517 0001:00076ACE 16519 0001:00076ADA + 16520 0001:00076AF9 16522 0001:00076B1C 16524 0001:00076B31 16525 0001:00076B3C + 16527 0001:00076B54 16530 0001:00076B5C 16531 0001:00076B68 16532 0001:00076B74 + 16533 0001:00076B9D 16536 0001:00076BA4 16537 0001:00076BB0 16538 0001:00076BDA + 16543 0001:00076BE0 16544 0001:00076BEC 16546 0001:00076BFA 16547 0001:00076C06 + 16549 0001:00076C12 16550 0001:00076C4E 16553 0001:00076C5C 16556 0001:00076C60 + 16557 0001:00076C6C 16559 0001:00076C7A 16560 0001:00076C86 16562 0001:00076C97 + 16565 0001:00076C9C 16566 0001:00076CA8 16568 0001:00076CB6 16569 0001:00076CC2 + 16571 0001:00076CCD 16574 0001:00076CD4 16575 0001:00076CE0 16577 0001:00076CEE + 16578 0001:00076CFA 16580 0001:00076D06 16581 0001:00076D11 16582 0001:00076D32 + 16585 0001:00076D5E 16588 0001:00076D64 16589 0001:00076D70 16591 0001:00076D7E + 16592 0001:00076D8A 16593 0001:00076D96 16595 0001:00076DB9 16598 0001:00076DC0 + 16599 0001:00076DCC 16601 0001:00076DDA 16602 0001:00076DEA 16603 0001:00076DF6 + 16604 0001:00076E02 16606 0001:00076E25 16609 0001:00076E2C 16611 0001:00076E38 + 16613 0001:00076E42 16614 0001:00076E50 16615 0001:00076E5B 16616 0001:00076E6D + 16617 0001:00076E7B 16618 0001:00076E89 16619 0001:00076E97 16620 0001:00076EAA + 16621 0001:00076EB8 16623 0001:00076EC6 16624 0001:00076ED2 16627 0001:00076ED8 + 16628 0001:00076EE5 16630 0001:00076EF7 16631 0001:00076F03 16632 0001:00076F0B + 16634 0001:00076F28 16636 0001:00076F3A 16637 0001:00076F4B 16638 0001:00076F5C + 16642 0001:00076F6C 16643 0001:00076F7B 16645 0001:00076F88 16646 0001:00076F94 + 16648 0001:00076FA4 16649 0001:00076FAF 16650 0001:00076FBD 16652 0001:00076FD5 + 16655 0001:00076FE7 16658 0001:00076FEC 16659 0001:00076FF8 16661 0001:00077006 + 16662 0001:00077012 16663 0001:0007701E 16665 0001:00077029 16668 0001:00077030 + 16669 0001:00077037 16670 0001:00077040 16673 0001:00077044 16674 0001:0007704B + 16675 0001:00077054 16678 0001:00077058 16679 0001:00077061 16680 0001:0007706D + 16682 0001:00077089 16683 0001:00077093 16686 0001:00077098 16687 0001:000770A1 + 16688 0001:000770B7 16691 0001:000770BC 16692 0001:000770C3 16702 0001:000770E9 + 16705 0001:000770EC 16706 0001:000770F3 16707 0001:00077117 16710 0001:0007711C + 16711 0001:00077126 16714 0001:00077187 16717 0001:0007718C 16718 0001:00077195 + 16719 0001:000771B9 16722 0001:000771C0 16723 0001:000771C9 16724 0001:000771ED + 16727 0001:000771F4 16728 0001:00077203 16729 0001:00077211 16732 0001:00077223 + 16733 0001:00077235 16734 0001:00077243 16735 0001:00077255 16737 0001:00077266 + 16740 0001:0007726C 16741 0001:00077275 16742 0001:00077280 16745 0001:00077284 + 16746 0001:00077290 16747 0001:0007729B 16750 0001:000772AD 16751 0001:000772BE + 16753 0001:000772CF 16758 0001:000772D4 16759 0001:000772E1 16761 0001:000772EC + 16763 0001:00077307 16764 0001:00077316 16765 0001:00077321 16766 0001:0007732D + 16768 0001:00077352 16773 0001:00077358 16774 0001:00077373 16775 0001:00077380 + 16777 0001:0007738C 16778 0001:00077399 16779 0001:000773A6 16780 0001:000773B0 + 16781 0001:000773BE 16782 0001:000773CB 16783 0001:000773D8 16784 0001:000773E2 + 16785 0001:000773EC 16786 0001:000773F6 16787 0001:00077400 16788 0001:00077415 + 16789 0001:0007742A 16790 0001:0007743B 16791 0001:00077450 16792 0001:00077466 + 16793 0001:0007747B 16794 0001:00077491 16795 0001:000774A6 16796 0001:000774BC + 16797 0001:000774D1 16799 0001:000774DD 16800 0001:000774EA 16801 0001:000774F7 + 16802 0001:0007750C 16804 0001:00077532 16807 0001:00077541 16808 0001:0007756F + 16813 0001:0007757C 16814 0001:0007758D 16815 0001:0007759B 16816 0001:000775A9 + 16817 0001:000775B7 16818 0001:000775C5 16819 0001:000775E1 16820 0001:00077601 + 16818 0001:0007761D 16821 0001:00077622 16822 0001:00077630 16823 0001:0007763E + 16824 0001:0007765A 16834 0001:00077660 16835 0001:0007766C 16836 0001:0007767F + 16837 0001:0007768A 16840 0001:0007769A 16845 0001:00077703 16846 0001:0007770F + 16847 0001:00077719 16849 0001:00077720 16857 0001:00077734 16858 0001:0007773D + 16861 0001:00077745 16863 0001:00077751 16864 0001:00077768 16866 0001:00077774 + 16867 0001:00077780 16869 0001:00077786 16871 0001:0007778A 16874 0001:0007779D + 16875 0001:000777A8 16876 0001:000777B2 16878 0001:000777B8 16879 0001:000777C2 + 16881 0001:000777C8 16882 0001:000777D8 16883 0001:000777E9 16885 0001:000777FC + 16886 0001:00077809 16889 0001:00077814 16890 0001:0007781C 16891 0001:00077824 + 16917 0001:00077828 16918 0001:00077837 16919 0001:0007783F 16920 0001:0007784D + 16921 0001:00077855 16922 0001:00077869 16923 0001:00077881 16925 0001:0007788D + 16926 0001:0007789C 16928 0001:000778AD 16930 0001:000778B9 16931 0001:000778C8 + 16933 0001:000778D9 16935 0001:000778E5 16936 0001:000778F4 16940 0001:00077905 + 16941 0001:0007790A 16943 0001:0007790F 16948 0001:0007792C 16949 0001:00077939 + 16950 0001:00077946 16951 0001:00077963 16952 0001:0007796F 16954 0001:00077988 + 16957 0001:00077998 16958 0001:000779C9 16959 0001:000779D1 16960 0001:000779D9 + 16961 0001:000779F3 16969 0001:000779F8 16970 0001:00077A05 16973 0001:00077A2E + 16975 0001:00077A4A 16976 0001:00077A50 16977 0001:00077A6D 16978 0001:00077A7B + 16981 0001:00077A8D 16983 0001:00077AA7 16984 0001:00077AB2 16986 0001:00077AC2 + 16987 0001:00077AD8 16991 0001:00077AFC 16993 0001:00077B14 16996 0001:00077B39 + 17001 0001:00077B40 17002 0001:00077B4C 17003 0001:00077B61 17004 0001:00077B69 + 17005 0001:00077B77 17007 0001:00077BAE 17009 0001:00077BBE 17016 0001:00077BC4 + 17017 0001:00077BD3 17019 0001:00077BE3 17021 0001:00077BEF 17022 0001:00077C03 + 17023 0001:00077C0E 17027 0001:00077C20 17028 0001:00077C2C 17032 0001:00077C38 + 17029 0001:00077C3B 17033 0001:00077C5F 17035 0001:00077C65 17036 0001:00077C7C + 17037 0001:00077C87 17039 0001:00077C89 17041 0001:00077CA1 17042 0001:00077CAC + 17046 0001:00077CB7 17049 0001:00077CBC 17050 0001:00077CC8 17052 0001:00077CD6 + 17053 0001:00077CE2 17054 0001:00077CF0 17055 0001:00077CF8 17057 0001:00077D00 + 17060 0001:00077D04 17061 0001:00077D10 17063 0001:00077D1E 17064 0001:00077D2A + 17065 0001:00077D38 17066 0001:00077D40 17068 0001:00077D48 17073 0001:00077D4C + 17074 0001:00077D58 17075 0001:00077D76 17077 0001:00077D7F 17078 0001:00077D93 + 17079 0001:00077D99 17082 0001:00077DB6 17083 0001:00077DD1 17084 0001:00077DE5 + 17089 0001:00077DFB 17090 0001:00077E0F 17092 0001:00077E1A 17093 0001:00077E26 + 17095 0001:00077E32 17096 0001:00077E3D 17097 0001:00077E45 17102 0001:00077E4C + 17103 0001:00077E58 17104 0001:00077E6C 17106 0001:00077E76 17107 0001:00077E93 + 17108 0001:00077EA7 17109 0001:00077EBF 17110 0001:00077ED1 17111 0001:00077ED9 + 17112 0001:00077EE5 17114 0001:00077EF1 17115 0001:00077EFC 17117 0001:00077F04 + 17127 0001:00077F08 17128 0001:00077F38 17129 0001:00077F4C 17132 0001:00077F62 + 17133 0001:00077F71 17135 0001:00077F80 17136 0001:00077F89 17140 0001:00077F91 + 17141 0001:00077F9D 17143 0001:00077FA6 17144 0001:00077FB2 17148 0001:00077FB8 + 17149 0001:00077FCC 17150 0001:00077FE4 17152 0001:00077FE8 17153 0001:00077FF3 + 17154 0001:00078003 17155 0001:00078009 17157 0001:00078015 17158 0001:0007802C + 17163 0001:00078039 17164 0001:00078046 17166 0001:00078054 17167 0001:00078064 + 17170 0001:0007807F 17174 0001:00078088 17175 0001:00078097 17176 0001:0007809F + 17177 0001:000780A8 17178 0001:000780AF 17179 0001:000780C1 17180 0001:000780C9 + 17181 0001:000780CF 17183 0001:000780D6 17184 0001:00078119 17192 0001:0007812C + 17193 0001:0007815C 17194 0001:00078170 17195 0001:0007817F 17196 0001:00078186 + 17199 0001:0007819C 17201 0001:000781A3 17203 0001:000781B2 17207 0001:000781BA + 17208 0001:000781BE 17209 0001:000781CA 17210 0001:000781D3 17211 0001:000781DF + 17215 0001:000781E5 17216 0001:000781F0 17217 0001:00078204 17218 0001:00078214 + 17220 0001:00078224 17221 0001:0007822F 17222 0001:00078235 17224 0001:00078241 + 17225 0001:00078258 17230 0001:00078265 17231 0001:00078272 17233 0001:00078280 + 17235 0001:00078290 17236 0001:00078299 17237 0001:000782A4 17241 0001:000782AA + 17242 0001:000782AF 17259 0001:000782B6 17261 0001:000782BD 17262 0001:000782C5 + 17263 0001:000782D0 17264 0001:000782D7 17265 0001:000782DD 17266 0001:000782E2 + 17268 0001:000782E7 17269 0001:0007832A 17274 0001:00078340 17275 0001:0007834C + 17277 0001:00078369 17278 0001:00078371 17279 0001:0007837F 17280 0001:00078392 + 17281 0001:000783AB 17282 0001:000783B9 17286 0001:0007840C 17289 0001:00078435 + 17293 0001:00078445 17294 0001:0007844C 17299 0001:00078450 17300 0001:0007845C + 17301 0001:00078479 17302 0001:00078481 17303 0001:0007848F 17304 0001:00078497 + 17305 0001:000784AA 17306 0001:000784C3 17307 0001:000784D1 17308 0001:000784DE + 17310 0001:000784F4 17312 0001:00078515 17315 0001:0007853E 17317 0001:0007854E + 17327 0001:00078554 17328 0001:0007855D 17329 0001:00078565 17330 0001:00078573 + 17331 0001:0007857B 17332 0001:0007858E 17333 0001:000785A7 17334 0001:000785B5 + 17335 0001:000785C0 17337 0001:000785DC 17338 0001:000785E4 17340 0001:000785FA + 17341 0001:0007860E 17335 0001:00078611 17343 0001:00078623 17346 0001:0007864C + 17348 0001:0007865C 17349 0001:00078666 17354 0001:0007866C 17355 0001:00078678 + 17358 0001:00078690 17359 0001:0007869B 17361 0001:000786C7 17366 0001:000786CC + 17367 0001:000786D5 17368 0001:000786F1 17369 0001:00078711 17367 0001:0007871F + 17370 0001:00078724 17373 0001:00078728 17374 0001:00078735 17376 0001:00078743 + 17377 0001:0007874F 17378 0001:00078758 17379 0001:00078760 17381 0001:0007876C + 17384 0001:00078774 17385 0001:00078780 17386 0001:00078797 17389 0001:0007879C + 17390 0001:000787A5 17391 0001:000787B7 17399 0001:000787BC 17400 0001:000787C8 + 17402 0001:000787D6 17403 0001:000787E2 17405 0001:000787EA 17408 0001:000787F0 + 17409 0001:000787FC 17411 0001:0007880A 17412 0001:00078816 17414 0001:0007881E + 17417 0001:00078824 17418 0001:00078830 17420 0001:0007883E 17421 0001:0007884A + 17423 0001:00078852 17424 0001:0007885C 17427 0001:00078860 17428 0001:0007886D + 17430 0001:0007887B 17431 0001:00078887 17433 0001:0007889C 17437 0001:000788A4 + 17438 0001:000788B3 17439 0001:000788C1 17441 0001:000788C7 17442 0001:000788DF + 17443 0001:000788F7 17444 0001:0007890F 17446 0001:00078927 17459 0001:0007892C + 17460 0001:00078935 17461 0001:00078944 17462 0001:00078952 17463 0001:0007896B + 17464 0001:00078979 17465 0001:00078999 17467 0001:000789A4 17468 0001:000789B4 + 17470 0001:000789BF 17471 0001:000789D7 17472 0001:00078A05 17470 0001:00078A08 + 17473 0001:00078A0D 17475 0001:00078A25 17477 0001:00078A38 17479 0001:00078A3C + 17480 0001:00078A48 17481 0001:00078A4E 17483 0001:00078A5D 17484 0001:00078A6C + 17485 0001:00078A7A 17486 0001:00078A8B 17488 0001:00078AA3 17490 0001:00078AB3 + 17492 0001:00078ABF 17493 0001:00078AC4 17494 0001:00078ACA 17500 0001:00078AE7 + 17501 0001:00078AEC 17502 0001:00078AF8 17503 0001:00078AFD 17504 0001:00078B03 + 17506 0001:00078B0E 17507 0001:00078B21 17509 0001:00078B3C 17510 0001:00078B48 + 17513 0001:00078B4C 17514 0001:00078B53 17516 0001:00078B5F 17517 0001:00078B83 + 17518 0001:00078BA7 17521 0001:00078BCE 17522 0001:00078BEB 17525 0001:00078BF0 + 17526 0001:00078BFC 17527 0001:00078C1E 17530 0001:00078C24 17531 0001:00078C30 + 17532 0001:00078C4F 17533 0001:00078C57 17536 0001:00078C5C 17537 0001:00078C68 + 17538 0001:00078C8B 17539 0001:00078C97 17541 0001:00078CA3 17542 0001:00078CBA + 17545 0001:00078CCD 17546 0001:00078CD7 17547 0001:00078CDF 17550 0001:00078CE4 + 17551 0001:00078CF0 17552 0001:00078D12 17555 0001:00078D18 17556 0001:00078D24 + 17557 0001:00078D43 17558 0001:00078D4B 17561 0001:00078D50 17562 0001:00078D5C + 17563 0001:00078D7F 17564 0001:00078D8B 17566 0001:00078D97 17567 0001:00078DAE + 17570 0001:00078DC1 17571 0001:00078DCB 17572 0001:00078DD3 17575 0001:00078DD8 + 17576 0001:00078DE4 17577 0001:00078E06 17580 0001:00078E0C 17581 0001:00078E18 + 17582 0001:00078E37 17583 0001:00078E3F 17586 0001:00078E44 17587 0001:00078E50 + 17588 0001:00078E73 17589 0001:00078E7F 17591 0001:00078E8B 17592 0001:00078EA2 + 17595 0001:00078EB5 17596 0001:00078EBF 17597 0001:00078EC7 17600 0001:00078ECC + 17601 0001:00078ED8 17603 0001:00078EE6 17604 0001:00078EF2 17606 0001:00078EFA + 17611 0001:00078F00 17612 0001:00078F0F 17613 0001:00078F21 17615 0001:00078F2A + 17617 0001:00078F36 17619 0001:00078F3E 17620 0001:00078F48 17621 0001:00078F54 + 17622 0001:00078F65 17621 0001:00078F78 17624 0001:00078F7E 17625 0001:00078F8A + 17626 0001:00078F9B 17627 0001:00078FA7 17628 0001:00078FB7 17630 0001:00078FC8 + 17632 0001:00078FF3 17633 0001:00079005 17634 0001:00079013 17635 0001:0007901D + 17636 0001:00079027 17637 0001:00079032 17639 0001:00079067 17640 0001:0007906F + 17642 0001:00079079 17630 0001:0007907C 17644 0001:00079085 17645 0001:000790A6 + 17644 0001:000790CF 17646 0001:000790D4 17649 0001:000790E0 17650 0001:000790E7 + 17652 0001:0007910D 17653 0001:00079127 17655 0001:0007912F 17658 0001:0007913C + 17659 0001:00079149 17660 0001:00079154 17661 0001:00079178 17668 0001:00079180 + 17669 0001:0007918D 17671 0001:0007919D 17672 0001:000791B1 17675 0001:000791CA + 17677 0001:000791E1 17678 0001:000791F5 17679 0001:00079215 17682 0001:00079224 + 17684 0001:00079230 17687 0001:0007923C 17688 0001:00079247 17694 0001:0007924C + 17695 0001:00079258 17696 0001:00079268 17697 0001:000792A5 17699 0001:000792BD + 17700 0001:000792CB 17701 0001:000792F3 17697 0001:000792F6 17702 0001:000792FB + 17707 0001:00079304 17708 0001:0007930D 17710 0001:00079315 17711 0001:0007932D + 17710 0001:00079343 17712 0001:00079348 17713 0001:00079350 17714 0001:00079358 + 17715 0001:00079362 17718 0001:00079368 17719 0001:0007936F 17720 0001:00079378 + 17723 0001:0007937C 17724 0001:00079383 17725 0001:0007938C 17728 0001:00079390 + 17729 0001:00079398 17731 0001:000793AD 17732 0001:000793BE 17734 0001:000793D3 + 17737 0001:000793D8 17738 0001:000793E1 17739 0001:000793F8 17745 0001:000793FC + 17746 0001:0007940B 17748 0001:00079420 17749 0001:00079426 17752 0001:0007942B + 17753 0001:00079430 17754 0001:00079443 17755 0001:00079448 17756 0001:0007944D + 17757 0001:00079452 17760 0001:0007945E 17762 0001:0007946A 17763 0001:0007947E + 17766 0001:000794AE 17768 0001:000794C4 17769 0001:000794D8 17770 0001:000794DE + 17772 0001:000794E4 17776 0001:000794ED 17777 0001:000794F3 17758 0001:000794F6 + 17780 0001:00079511 17781 0001:00079522 17782 0001:00079543 17780 0001:00079546 + 17785 0001:0007954B 17786 0001:00079574 17787 0001:0007957D 17792 0001:00079584 + 17793 0001:00079593 17794 0001:000795A8 17797 0001:000795B4 17798 0001:000795BF + 17799 0001:000795D3 17800 0001:000795E4 17801 0001:000795F8 17802 0001:00079600 + 17803 0001:0007960E 17804 0001:00079620 17806 0001:00079641 17809 0001:00079654 + 17816 0001:0007965C 17817 0001:00079668 17818 0001:0007967C 17819 0001:00079686 + 17820 0001:000796A5 17821 0001:000796A9 17823 0001:000796AF 17824 0001:000796C3 + 17826 0001:000796D3 17828 0001:000796EB 17829 0001:000796FD 17831 0001:00079703 + 17832 0001:0007971D 17834 0001:0007972D 17836 0001:00079733 17837 0001:00079739 + 17838 0001:00079744 17839 0001:0007974C 17842 0001:00079758 17843 0001:00079763 + 17846 0001:00079768 17847 0001:00079777 17848 0001:00079783 17849 0001:00079789 + 17850 0001:00079795 17851 0001:000797A7 17852 0001:000797B2 17855 0001:000797B8 + 17858 0001:000797C7 17861 0001:000797CC 17862 0001:000797D8 17863 0001:000797E4 + 17864 0001:000797F1 17865 0001:000797FC 17868 0001:00079800 17869 0001:0007980C + 17870 0001:00079818 17871 0001:00079822 17876 0001:00079828 17877 0001:00079834 + 17879 0001:00079861 17882 0001:00079868 17883 0001:00079874 17884 0001:00079888 + 17887 0001:0007988C 17888 0001:00079898 17890 0001:000798B8 17893 0001:000798BC + 17894 0001:000798C8 17896 0001:000798F0 17901 0001:000798F4 17902 0001:00079900 + 17903 0001:0007990B 17905 0001:00079914 17906 0001:0007991D 17907 0001:00079926 + 17909 0001:00079934 17914 0001:00079938 17916 0001:00079944 17917 0001:0007994F + 17919 0001:00079955 17920 0001:00079960 17923 0001:00079962 17924 0001:0007996D + 17931 0001:00079974 17933 0001:00079980 17935 0001:000799AD 17936 0001:000799BF + 17937 0001:000799D2 17938 0001:000799E5 17939 0001:00079A05 17940 0001:00079A0E + 17941 0001:00079A2E 17942 0001:00079A41 17944 0001:00079A4E 17945 0001:00079A52 + 17946 0001:00079A5B 17947 0001:00079A64 17948 0001:00079A6F 17951 0001:00079A87 + 17952 0001:00079A92 17959 0001:00079A98 17961 0001:00079AA4 17964 0001:00079AD9 + 17965 0001:00079AE4 17967 0001:00079AFB 17968 0001:00079B06 17983 0001:00079B0C + 17984 0001:00079B18 17985 0001:00079B1F 17986 0001:00079B26 17987 0001:00079B35 + 17988 0001:00079B3A 17990 0001:00079B5D 17991 0001:00079B74 17993 0001:00079B8D + 17994 0001:00079BB4 17995 0001:00079BBD 17996 0001:00079BD0 17998 0001:00079BDE + 17999 0001:00079BE2 18007 0001:00079C0B 18008 0001:00079C14 18010 0001:00079C3B + 18011 0001:00079C4B 18013 0001:00079C66 18014 0001:00079C7B 18015 0001:00079C85 + 18019 0001:00079C8F 18020 0001:00079C9B 18021 0001:00079CA5 18023 0001:00079CAD + 18024 0001:00079CB3 18028 0001:00079CBB 18029 0001:00079CC7 18030 0001:00079CD1 + 18031 0001:00079CD9 18032 0001:00079CEB 18033 0001:00079CF5 18035 0001:00079CFD + 18037 0001:00079D03 18038 0001:00079D12 18041 0001:00079D23 18043 0001:00079D2C + 17988 0001:00079D2F 18045 0001:00079D38 18046 0001:00079D55 18053 0001:00079D5C + 18054 0001:00079D65 18055 0001:00079D6C 18056 0001:00079D7B 18059 0001:00079D85 + 18060 0001:00079D9C 18061 0001:00079DAE 18062 0001:00079DBE 18064 0001:00079DD7 + 18067 0001:00079E0E 18068 0001:00079E12 18069 0001:00079E21 18070 0001:00079E44 + 18071 0001:00079E5B 18074 0001:00079E7C 18076 0001:00079E8E 18077 0001:00079E92 + 18078 0001:00079E98 18079 0001:00079EA7 18080 0001:00079EB7 18082 0001:00079EBA + 18083 0001:00079EBC 18068 0001:00079EBF 18084 0001:00079EC9 18086 0001:00079ED3 + 18087 0001:00079EE3 18088 0001:00079F06 18089 0001:00079F1D 18091 0001:00079F2F + 18093 0001:00079F41 18094 0001:00079F45 18095 0001:00079F4B 18096 0001:00079F5A + 18097 0001:00079F6A 18099 0001:00079F6D 18100 0001:00079F6F 18086 0001:00079F72 + 18101 0001:00079F7C 18102 0001:00079F82 18106 0001:00079F8D 18108 0001:00079F96 + 18057 0001:00079F99 18110 0001:00079FB4 18115 0001:00079FB8 18116 0001:00079FC4 + 18117 0001:00079FD2 18118 0001:00079FDE 18119 0001:00079FE3 18120 0001:00079FEF + 18121 0001:00079FFF 18122 0001:0007A00E 18125 0001:0007A023 18126 0001:0007A02F + 18127 0001:0007A03F 18128 0001:0007A04F 18129 0001:0007A05F 18131 0001:0007A069 + 18133 0001:0007A079 18134 0001:0007A089 18136 0001:0007A08B 18138 0001:0007A099 + 18140 0001:0007A0A3 18141 0001:0007A0AF 18123 0001:0007A0BF 18146 0001:0007A0CE + 18152 0001:0007A0D4 18153 0001:0007A0E0 18154 0001:0007A0E5 18155 0001:0007A0EA + 18156 0001:0007A0F2 18157 0001:0007A102 18158 0001:0007A111 18159 0001:0007A119 + 18161 0001:0007A121 18162 0001:0007A131 18163 0001:0007A141 18164 0001:0007A149 + 18167 0001:0007A151 18169 0001:0007A159 18170 0001:0007A166 18172 0001:0007A168 + 18159 0001:0007A16E 18175 0001:0007A176 18176 0001:0007A186 18177 0001:0007A196 + 18179 0001:0007A19C 18180 0001:0007A1AB 18181 0001:0007A1AF 18183 0001:0007A1BF + 18184 0001:0007A1CB 18186 0001:0007A1DE 18187 0001:0007A1E3 18188 0001:0007A1EE + 18190 0001:0007A1F9 18191 0001:0007A205 18193 0001:0007A211 18194 0001:0007A21D + 18196 0001:0007A22A 18199 0001:0007A242 18200 0001:0007A24B 18202 0001:0007A25D + 18203 0001:0007A27B 18205 0001:0007A28B 18206 0001:0007A29A 18207 0001:0007A2A8 + 18208 0001:0007A2BC 18209 0001:0007A2C2 18211 0001:0007A2D1 18213 0001:0007A2DE + 18214 0001:0007A2EB 18218 0001:0007A30A 18219 0001:0007A320 18220 0001:0007A340 + 18218 0001:0007A366 18221 0001:0007A36B 18225 0001:0007A377 18227 0001:0007A38C + 18232 0001:0007A39C 18233 0001:0007A3A9 18235 0001:0007A3BB 18236 0001:0007A3CA + 18237 0001:0007A3D5 18238 0001:0007A3E4 18242 0001:0007A3F2 18245 0001:0007A3F8 + 18246 0001:0007A407 18247 0001:0007A41B 18250 0001:0007A420 18251 0001:0007A42C + 18253 0001:0007A437 18254 0001:0007A440 18256 0001:0007A450 18257 0001:0007A45E + 18260 0001:0007A464 18262 0001:0007A470 18264 0001:0007A485 18265 0001:0007A4A4 + 18266 0001:0007A4AE 18271 0001:0007A4B4 18272 0001:0007A4C1 18274 0001:0007A4E9 + 18275 0001:0007A4FB 18281 0001:0007A501 18283 0001:0007A531 18285 0001:0007A542 + 18286 0001:0007A54E 18287 0001:0007A558 18290 0001:0007A55A 18291 0001:0007A565 + 18294 0001:0007A56C 18295 0001:0007A578 18296 0001:0007A583 18297 0001:0007A58E + 18300 0001:0007A594 18301 0001:0007A5A0 18302 0001:0007A5AB 18303 0001:0007A5B3 + 18306 0001:0007A5B8 18307 0001:0007A5C4 18309 0001:0007A5CF 18310 0001:0007A5E3 + 18313 0001:0007A5E8 18314 0001:0007A5F5 18315 0001:0007A600 18316 0001:0007A60A + 18317 0001:0007A616 18320 0001:0007A61C 18321 0001:0007A628 18322 0001:0007A633 + 18323 0001:0007A63B 18326 0001:0007A640 18327 0001:0007A64C 18328 0001:0007A654 + 18329 0001:0007A65E 18330 0001:0007A676 18331 0001:0007A684 18332 0001:0007A68E + 18341 0001:0007A694 18343 0001:0007A6A2 18345 0001:0007A71C 18348 0001:0007A725 + 18350 0001:0007A747 18351 0001:0007A750 18352 0001:0007A75A 18355 0001:0007A76B + 18356 0001:0007A774 18357 0001:0007A782 18358 0001:0007A790 18359 0001:0007A798 + 18361 0001:0007A7A5 18362 0001:0007A7B0 18365 0001:0007A7D3 18367 0001:0007A7EA + 18368 0001:0007A7F8 18369 0001:0007A80C 18370 0001:0007A820 18371 0001:0007A837 + 18372 0001:0007A84A 18374 0001:0007A850 18375 0001:0007A85A 18377 0001:0007A869 + 18378 0001:0007A883 18380 0001:0007A8AC 18383 0001:0007A8C4 18384 0001:0007A8EA + 18385 0001:0007A8F1 18386 0001:0007A904 18387 0001:0007A90B 18388 0001:0007A922 + 18391 0001:0007A92E 18392 0001:0007A945 18394 0001:0007A95A 18395 0001:0007A971 + 18397 0001:0007A986 18398 0001:0007A99D 18402 0001:0007A9B2 18403 0001:0007A9C3 + 18404 0001:0007A9D3 18408 0001:0007A9FA 18411 0001:0007AA1E 18412 0001:0007AA34 + 18413 0001:0007AA43 18414 0001:0007AA4E 18417 0001:0007AA59 18418 0001:0007AA67 + 18419 0001:0007AA7B 18420 0001:0007AA8F 18421 0001:0007AAA6 18422 0001:0007AABF + 18423 0001:0007AAD8 18424 0001:0007AAE2 18425 0001:0007AAEA 18427 0001:0007AB08 + 18428 0001:0007AB0E 18429 0001:0007AB18 18430 0001:0007AB1E 18431 0001:0007AB28 + 18432 0001:0007AB2E 18433 0001:0007AB38 18434 0001:0007AB3E 18435 0001:0007AB48 + 18436 0001:0007AB4E 18437 0001:0007AB58 18438 0001:0007AB72 18439 0001:0007AB8E + 18441 0001:0007AB94 18442 0001:0007AB9B 18443 0001:0007ABAA 18445 0001:0007ABBA + 18446 0001:0007ABC4 18447 0001:0007ABD8 18448 0001:0007ABEC 18450 0001:0007AC0D + 18452 0001:0007AC1D 18453 0001:0007AC2F 18454 0001:0007AC4E 18457 0001:0007AC55 + 18458 0001:0007AC68 18460 0001:0007AC7C 18464 0001:0007AC94 18465 0001:0007AC9A + 18468 0001:0007ACB7 18469 0001:0007ACBD 18472 0001:0007ACDA 18473 0001:0007ACE0 + 18478 0001:0007AD08 18481 0001:0007AD1E 18483 0001:0007AD27 18484 0001:0007AD41 + 18492 0001:0007AD72 18494 0001:0007AD93 18495 0001:0007ADA8 18496 0001:0007ADB2 + 18497 0001:0007ADC9 18501 0001:0007ADD7 18503 0001:0007ADF9 18505 0001:0007AE02 + 18506 0001:0007AE12 18509 0001:0007AE2E 18511 0001:0007AE5F 18512 0001:0007AE79 + 18516 0001:0007AE93 18517 0001:0007AE9D 18518 0001:0007AEA8 18519 0001:0007AEC7 + 18520 0001:0007AED7 18524 0001:0007AEE6 18526 0001:0007AEF2 18527 0001:0007AEFA + 18529 0001:0007AF06 18530 0001:0007AF13 18531 0001:0007AF25 18535 0001:0007AF31 + 18536 0001:0007AF3D 18537 0001:0007AF45 18541 0001:0007AF66 18542 0001:0007AF70 + 18543 0001:0007AF7A 18544 0001:0007AF82 18547 0001:0007AF8C 18555 0001:0007AF98 + 18556 0001:0007AFA1 18557 0001:0007AFBB 18558 0001:0007AFC9 18560 0001:0007AFE0 + 18561 0001:0007AFFB 18563 0001:0007B001 18564 0001:0007B016 18565 0001:0007B020 + 18566 0001:0007B026 18567 0001:0007B032 18568 0001:0007B04B 18570 0001:0007B066 + 18571 0001:0007B077 18558 0001:0007B07A 18572 0001:0007B083 18573 0001:0007B08B + 18585 0001:0007B090 18586 0001:0007B09A 18588 0001:0007B0B0 18589 0001:0007B0BB + 18590 0001:0007B0D5 18593 0001:0007B0DF 18594 0001:0007B0E7 18595 0001:0007B10D + 18597 0001:0007B146 18602 0001:0007B14C 18603 0001:0007B155 18606 0001:0007B164 + 18607 0001:0007B172 18608 0001:0007B180 18609 0001:0007B187 18611 0001:0007B192 + 18612 0001:0007B1B5 18614 0001:0007B1BC 18615 0001:0007B1C8 18617 0001:0007B1D5 + 18621 0001:0007B1F7 18624 0001:0007B205 18625 0001:0007B212 18628 0001:0007B222 + 18632 0001:0007B232 18634 0001:0007B244 18635 0001:0007B24F 18638 0001:0007B269 + 18639 0001:0007B299 18640 0001:0007B2A3 18642 0001:0007B2B0 18643 0001:0007B2D6 + 18646 0001:0007B2DB 18657 0001:0007B2ED 18658 0001:0007B305 18662 0001:0007B30F + 18665 0001:0007B341 18667 0001:0007B34C 18668 0001:0007B358 18670 0001:0007B363 + 18674 0001:0007B38F 18675 0001:0007B39D 18679 0001:0007B3B4 18680 0001:0007B3B9 + 18682 0001:0007B3E1 18685 0001:0007B3EC 18686 0001:0007B3F5 18694 0001:0007B408 + 18695 0001:0007B413 18698 0001:0007B418 18699 0001:0007B424 18704 0001:0007B428 + 18705 0001:0007B448 18706 0001:0007B464 18708 0001:0007B484 18709 0001:0007B498 + 18711 0001:0007B4C8 18705 0001:0007B4CB 18712 0001:0007B4D0 18713 0001:0007B4F5 + 18719 0001:0007B4FC 18720 0001:0007B50B 18722 0001:0007B511 18723 0001:0007B517 + 18724 0001:0007B53F 18725 0001:0007B545 18728 0001:0007B584 18732 0001:0007B58A + 18733 0001:0007B590 18734 0001:0007B5A1 18735 0001:0007B5A7 18737 0001:0007B5CC + 18739 0001:0007B5D3 18742 0001:0007B5D8 18743 0001:0007B5E8 18744 0001:0007B5EC + 18745 0001:0007B618 18746 0001:0007B645 18750 0001:0007B64C 18751 0001:0007B65D + 18752 0001:0007B661 18753 0001:0007B692 18754 0001:0007B6C8 18757 0001:0007B6D0 + 18758 0001:0007B6DC 18759 0001:0007B6E6 18787 0001:0007B6EC 18788 0001:0007B6F5 + 18789 0001:0007B6FD 18791 0001:0007B707 18792 0001:0007B70F 18793 0001:0007B715 + 18794 0001:0007B720 18796 0001:0007B726 18797 0001:0007B72F 18799 0001:0007B736 + 18800 0001:0007B739 18801 0001:0007B747 18802 0001:0007B768 18805 0001:0007B772 + 18806 0001:0007B778 18808 0001:0007B781 18809 0001:0007B784 18810 0001:0007B792 + 18811 0001:0007B7B3 18813 0001:0007B7BB 18814 0001:0007B7C3 18816 0001:0007B7C8 + 18817 0001:0007B7CF 18819 0001:0007B7D8 18820 0001:0007B7E5 18822 0001:0007B7EB + 18823 0001:0007B7F7 18824 0001:0007B800 18825 0001:0007B80C 18826 0001:0007B815 + 18829 0001:0007B81F 18830 0001:0007B839 18831 0001:0007B843 18833 0001:0007B84D + 18834 0001:0007B852 18836 0001:0007B85B 18837 0001:0007B862 18839 0001:0007B876 + 18842 0001:0007B8A5 18844 0001:0007B8BF 18845 0001:0007B8CC 18846 0001:0007B8DA + 18849 0001:0007B8DF 18850 0001:0007B8E6 18851 0001:0007B8EA 18852 0001:0007B8FD + 18853 0001:0007B903 18855 0001:0007B91C 18856 0001:0007B926 18859 0001:0007B946 + 18861 0001:0007B953 18862 0001:0007B961 18865 0001:0007B966 18866 0001:0007B96F + 18867 0001:0007B980 18868 0001:0007B989 18869 0001:0007B995 18871 0001:0007B9A2 + 18872 0001:0007B9B9 18873 0001:0007B9C7 18874 0001:0007B9ED 18876 0001:0007B9FB + 18877 0001:0007BA00 18878 0001:0007BA06 18882 0001:0007BA22 18883 0001:0007BA31 + 18885 0001:0007BA47 18886 0001:0007BA54 18890 0001:0007BA66 18893 0001:0007BA7E + 18896 0001:0007BAB2 18897 0001:0007BAB9 18898 0001:0007BAC5 18899 0001:0007BAD6 + 18903 0001:0007BAEA 18906 0001:0007BAF4 18907 0001:0007BAF7 18908 0001:0007BAFE + 18909 0001:0007BB08 18910 0001:0007BB11 18912 0001:0007BB2B 18915 0001:0007BB30 + 18916 0001:0007BB33 18917 0001:0007BB47 18918 0001:0007BB4E 18919 0001:0007BB55 + 18920 0001:0007BB5C 18921 0001:0007BB66 18922 0001:0007BB6D 18930 0001:0007BB70 + 18931 0001:0007BB75 18933 0001:0007BB7F 18934 0001:0007BB8B 18935 0001:0007BB9B + 18936 0001:0007BBA7 18937 0001:0007BBAE 18940 0001:0007BBF3 18942 0001:0007BC02 + 18943 0001:0007BC1F 18946 0001:0007BC28 18947 0001:0007BC2B 18948 0001:0007BC34 + 18950 0001:0007BC4E 18953 0001:0007BC50 18954 0001:0007BC53 18955 0001:0007BC67 + 18956 0001:0007BC6E 18957 0001:0007BC75 18963 0001:0007BC78 18964 0001:0007BC81 + 18967 0001:0007BCC7 18969 0001:0007BCE1 18970 0001:0007BCF8 18971 0001:0007BD0C + 18972 0001:0007BD1F 18967 0001:0007BD22 18973 0001:0007BD28 18974 0001:0007BD36 + 18975 0001:0007BD41 18976 0001:0007BD4C 18978 0001:0007BD57 18988 0001:0007BD5C + 18989 0001:0007BD6A 18990 0001:0007BD6E 18991 0001:0007BD78 18992 0001:0007BD82 + 18993 0001:0007BD90 18994 0001:0007BD9C 18995 0001:0007BDB3 18997 0001:0007BDC3 + 18998 0001:0007BDD1 18999 0001:0007BDD9 19000 0001:0007BDF1 19001 0001:0007BE02 + 19002 0001:0007BE08 19003 0001:0007BE1C 19004 0001:0007BE36 19005 0001:0007BE43 + 19006 0001:0007BE54 19007 0001:0007BE5A 19008 0001:0007BE6E 19009 0001:0007BE80 + 19011 0001:0007BE97 19012 0001:0007BEAB 19013 0001:0007BEBC 19014 0001:0007BED2 + 19009 0001:0007BED5 19017 0001:0007BEDD 19018 0001:0007BEE7 19019 0001:0007BEF1 + 19020 0001:0007BF00 19021 0001:0007BF21 19023 0001:0007BF27 19024 0001:0007BF34 + 19025 0001:0007BF3C 19027 0001:0007BF41 19028 0001:0007BF53 19029 0001:0007BF61 + 19030 0001:0007BF83 19031 0001:0007BF9E 19032 0001:0007BFA8 19034 0001:0007BFE4 + 19035 0001:0007BFED 19036 0001:0007BFF9 19037 0001:0007C001 19039 0001:0007C022 + 19041 0001:0007C035 19042 0001:0007C041 19043 0001:0007C04A 19044 0001:0007C063 + 19046 0001:0007C074 19048 0001:0007C096 19055 0001:0007C09C 19056 0001:0007C0A2 + 19057 0001:0007C0A6 19058 0001:0007C0C5 19061 0001:0007C105 19062 0001:0007C109 + 19063 0001:0007C10B 19057 0001:0007C10E 19064 0001:0007C116 19068 0001:0007C11C + 19071 0001:0007C129 19073 0001:0007C174 19076 0001:0007C1A3 19077 0001:0007C1AD + 19078 0001:0007C1B4 19079 0001:0007C1C6 19081 0001:0007C1D6 19082 0001:0007C1E5 + 19086 0001:0007C1EF 19091 0001:0007C1F4 19092 0001:0007C200 19093 0001:0007C20A + 19094 0001:0007C224 19096 0001:0007C250 19099 0001:0007C254 19100 0001:0007C261 + 19101 0001:0007C275 19102 0001:0007C27D 19103 0001:0007C287 19104 0001:0007C28C + 19106 0001:0007C292 19107 0001:0007C2AB 19110 0001:0007C2BC 19111 0001:0007C2CD + 19112 0001:0007C2D3 19113 0001:0007C2DD 19116 0001:0007C2E4 19117 0001:0007C2EB + 19119 0001:0007C2F7 19120 0001:0007C2FC 19121 0001:0007C306 19123 0001:0007C317 + 19124 0001:0007C321 19125 0001:0007C32B 19126 0001:0007C33D 19129 0001:0007C340 + 19131 0001:0007C34D 19133 0001:0007C359 19135 0001:0007C35F 19136 0001:0007C36E + 19139 0001:0007C377 19140 0001:0007C37B 19143 0001:0007C380 19144 0001:0007C38F + 19145 0001:0007C39D 19147 0001:0007C3A7 19148 0001:0007C3B3 19149 0001:0007C3C3 + 19150 0001:0007C3CD 19153 0001:0007C3E6 19155 0001:0007C3FA 19156 0001:0007C409 + 19159 0001:0007C410 19160 0001:0007C41C 19162 0001:0007C434 19163 0001:0007C450 + 19164 0001:0007C459 19166 0001:0007C461 19167 0001:0007C46D 19170 0001:0007C474 + 19171 0001:0007C480 19173 0001:0007C48E 19174 0001:0007C49A 19176 0001:0007C4A2 + 19185 0001:0007C4A8 19186 0001:0007C4CB 19188 0001:0007C4DF 19189 0001:0007C4EE + 19191 0001:0007C4F4 19192 0001:0007C4F9 19194 0001:0007C52A 19195 0001:0007C532 + 19199 0001:0007C546 19200 0001:0007C55D 19203 0001:0007C56E 19204 0001:0007C578 + 19206 0001:0007C58F 19207 0001:0007C59E 19209 0001:0007C5AD 19210 0001:0007C5B8 + 19211 0001:0007C5D2 19212 0001:0007C5E3 19213 0001:0007C5FD 19214 0001:0007C60D + 19215 0001:0007C619 19217 0001:0007C637 19218 0001:0007C641 19219 0001:0007C64F + 19220 0001:0007C65E 19221 0001:0007C675 19222 0001:0007C683 19225 0001:0007C6AC + 19228 0001:0007C6B4 19229 0001:0007C6C1 19230 0001:0007C6C5 19231 0001:0007C6D2 + 19232 0001:0007C6EE 19235 0001:0007C6F4 19236 0001:0007C701 19237 0001:0007C705 + 19238 0001:0007C712 19239 0001:0007C72E 19244 0001:0007C734 19245 0001:0007C740 + 19246 0001:0007C747 19247 0001:0007C758 19248 0001:0007C769 19249 0001:0007C786 + 19252 0001:0007C78C 19253 0001:0007C798 19255 0001:0007C7A6 19256 0001:0007C7B2 + 19258 0001:0007C7BA 19614 0001:0007C7C0 19615 0001:0007C7CC 19616 0001:0007C7D7 + 19617 0001:0007C7EB 19620 0001:0007C7F0 19621 0001:0007C7F9 19623 0001:0007C833 + 19626 0001:0007C838 19627 0001:0007C841 19629 0001:0007C87E 19632 0001:0007C884 + 19633 0001:0007C890 19634 0001:0007C8AA 19637 0001:0007C8B0 19638 0001:0007C8BC + 19639 0001:0007C8D6 20896 0001:0007C8DC 20897 0001:0007C8F7 20898 0001:0007C900 + 20899 0001:0007C90A 20900 0001:0007C914 20901 0001:0007C91E 20902 0001:0007C928 + 20903 0001:0007C932 20904 0001:0007C957 20909 0001:0007C95C 20910 0001:0007C97E + 20911 0001:0007C993 20912 0001:0007C9B1 20913 0001:0007C9C9 20914 0001:0007CA1C + 20915 0001:0007CA28 20916 0001:0007CA34 20917 0001:0007CA40 20918 0001:0007CA4C + 20919 0001:0007CA58 20920 0001:0007CA81 20923 0001:0007CA94 20924 0001:0007CAA4 + 20925 0001:0007CACB 20926 0001:0007CAD6 20927 0001:0007CAE1 20928 0001:0007CAEC + 20929 0001:0007CAF7 20930 0001:0007CB02 20932 0001:0007CB0B 20933 0001:0007CB1A + 20934 0001:0007CB3C 20937 0001:0007CB44 20938 0001:0007CB4B 20939 0001:0007CB5B + 20940 0001:0007CB6E 20941 0001:0007CB81 20942 0001:0007CB94 20943 0001:0007CBA7 + 20944 0001:0007CBBA 20949 0001:0007CBC0 20950 0001:0007CBDB 20951 0001:0007CBE5 + 20952 0001:0007CBF2 20953 0001:0007CBFC 20954 0001:0007CC06 20955 0001:0007CC12 + 20956 0001:0007CC2A 20957 0001:0007CC39 20958 0001:0007CC43 20959 0001:0007CC50 + 20960 0001:0007CC78 20963 0001:0007CC80 20964 0001:0007CC91 20965 0001:0007CC9F + 20966 0001:0007CCBB 20979 0001:0007CCC0 20981 0001:0007CCC7 20984 0001:0007CCCC + 20985 0001:0007CCE9 20986 0001:0007CD0E 20987 0001:0007CD5A 20988 0001:0007CD7F + 20989 0001:0007CDED 20992 0001:0007CDF8 20993 0001:0007CDFF 20994 0001:0007CE07 + 20995 0001:0007CE15 20996 0001:0007CE3B 20997 0001:0007CE4C 20998 0001:0007CE5D + 20999 0001:0007CE6E 21000 0001:0007CE7A 21002 0001:0007CEA3 21003 0001:0007CEBA + 21011 0001:0007CEC0 21012 0001:0007CEC9 21015 0001:0007CF16 21018 0001:0007CF1C + 21019 0001:0007CF25 21020 0001:0007CF34 21023 0001:0007CF38 21024 0001:0007CF41 + 21025 0001:0007CF5A 21028 0001:0007CF64 21029 0001:0007CF6D 21030 0001:0007CF86 + 21033 0001:0007CF90 21034 0001:0007CF99 21035 0001:0007CFB1 21038 0001:0007CFB8 + 21039 0001:0007CFC4 21040 0001:0007CFE3 21043 0001:0007CFE8 21044 0001:0007CFF4 + 21045 0001:0007D00B 21046 0001:0007D024 21047 0001:0007D032 21048 0001:0007D055 + 21050 0001:0007D072 21051 0001:0007D089 21053 0001:0007D093 21058 0001:0007D0A0 + 21059 0001:0007D0A9 21060 0001:0007D0B7 21061 0001:0007D0C3 21063 0001:0007D0E2 + 21064 0001:0007D0EE 21065 0001:0007D100 21066 0001:0007D117 21068 0001:0007D12C + 21073 0001:0007D134 21074 0001:0007D13D 21075 0001:0007D152 21077 0001:0007D171 + 21078 0001:0007D17E 21079 0001:0007D197 21081 0001:0007D1B4 21087 0001:0007D1C0 + 21088 0001:0007D1CC 21090 0001:0007D1D8 21092 0001:0007D1DE 21093 0001:0007D1F3 + 21096 0001:0007D200 21097 0001:0007D208 21098 0001:0007D217 21100 0001:0007D22A + 21101 0001:0007D236 21104 0001:0007D23C 21105 0001:0007D25B 21106 0001:0007D280 + 21107 0001:0007D2CC 21109 0001:0007D2DD 21110 0001:0007D2FA 21112 0001:0007D331 + 21115 0001:0007D33C 21116 0001:0007D348 21117 0001:0007D360 21118 0001:0007D377 + 21119 0001:0007D38E 21120 0001:0007D39A 21123 0001:0007D3A0 21124 0001:0007D3BF + 21125 0001:0007D3E4 21126 0001:0007D430 21128 0001:0007D441 21129 0001:0007D45E + 21131 0001:0007D495 21134 0001:0007D4A0 21135 0001:0007D4AC 21136 0001:0007D4C7 + 21137 0001:0007D4DA 21138 0001:0007D4E6 21141 0001:0007D4EC 21142 0001:0007D4F8 + 21144 0001:0007D506 21145 0001:0007D512 21146 0001:0007D538 21147 0001:0007D549 + 21149 0001:0007D551 21156 0001:0007D558 21157 0001:0007D562 21158 0001:0007D567 + 21159 0001:0007D575 21160 0001:0007D583 21161 0001:0007D597 21162 0001:0007D5AB + 21164 0001:0007D5B7 21165 0001:0007D5D9 21166 0001:0007D5FB 21167 0001:0007D5FF + 21169 0001:0007D611 21171 0001:0007D61D 21172 0001:0007D63F 21173 0001:0007D661 + 21174 0001:0007D665 21176 0001:0007D677 21177 0001:0007D683 21178 0001:0007D698 + 21179 0001:0007D6AF 21184 0001:0007D6B8 21185 0001:0007D6C1 21186 0001:0007D6CD + 21188 0001:0007D6DD 21189 0001:0007D6EB 21190 0001:0007D6F9 21191 0001:0007D705 + 21192 0001:0007D719 21193 0001:0007D730 21194 0001:0007D745 21196 0001:0007D75A + 21199 0001:0007D760 21200 0001:0007D76C 21202 0001:0007D77A 21203 0001:0007D786 + 21205 0001:0007D799 21208 0001:0007D7A0 21209 0001:0007D7AC 21211 0001:0007D7BA + 21212 0001:0007D7C6 21214 0001:0007D7D9 21217 0001:0007D7E0 21218 0001:0007D7EC + 21220 0001:0007D7FA 21221 0001:0007D806 21223 0001:0007D816 21228 0001:0007D81C + 21229 0001:0007D825 21230 0001:0007D843 21235 0001:0007D848 21236 0001:0007D863 + 21237 0001:0007D872 21238 0001:0007D87F 21239 0001:0007D88C 21240 0001:0007D8B4 + 21243 0001:0007D8B8 21244 0001:0007D8C4 21245 0001:0007D8CF 21246 0001:0007D8EC + 21253 0001:0007D8F0 21254 0001:0007D8FD 21256 0001:0007D906 21258 0001:0007D928 + 21260 0001:0007D931 21261 0001:0007D947 21263 0001:0007D958 21264 0001:0007D961 + 21266 0001:0007D97B 21267 0001:0007D988 21268 0001:0007D992 21269 0001:0007D9AB + 21270 0001:0007D9AF 21264 0001:0007D9B2 21275 0001:0007D9B9 21276 0001:0007D9C5 + 21277 0001:0007D9D1 21278 0001:0007D9E3 21280 0001:0007D9EF 21281 0001:0007D9FB + 21282 0001:0007DA07 21287 0001:0007DA19 21288 0001:0007DA24 21295 0001:0007DA2C + 21296 0001:0007DA3B 21298 0001:0007DA47 21301 0001:0007DA57 21302 0001:0007DA60 + 21304 0001:0007DA69 21305 0001:0007DA7B 21307 0001:0007DA8D 21308 0001:0007DAA3 + 21311 0001:0007DAAC 21312 0001:0007DAB8 21313 0001:0007DAC3 21316 0001:0007DAD3 + 21317 0001:0007DAE4 21320 0001:0007DAF6 21323 0001:0007DB0C 21324 0001:0007DB15 + 21325 0001:0007DB23 21328 0001:0007DB28 21329 0001:0007DB37 21330 0001:0007DB3B + 21331 0001:0007DB47 21332 0001:0007DB64 21335 0001:0007DB68 21336 0001:0007DB7C + 21337 0001:0007DB80 21338 0001:0007DB8C 21339 0001:0007DBA8 21342 0001:0007DBB0 + 21343 0001:0007DBBF 21344 0001:0007DBC3 21345 0001:0007DBCF 21346 0001:0007DBF4 + 21351 0001:0007DBF8 21352 0001:0007DC07 21354 0001:0007DC13 21355 0001:0007DC17 + 21358 0001:0007DC2A 21359 0001:0007DC35 21362 0001:0007DC42 21363 0001:0007DC49 + 21944 0001:0007DC50 21945 0001:0007DC5C 21947 0001:0007DC6E 21948 0001:0007DC7A + 21949 0001:0007DC86 21950 0001:0007DC92 21951 0001:0007DC9E 21954 0001:0007DCB1 + 21955 0001:0007DCBC 21958 0001:0007DCC0 21959 0001:0007DCCC 21960 0001:0007DCD7 + 21961 0001:0007DCEC 21963 0001:0007DD04 21964 0001:0007DD0F 21967 0001:0007DD14 + 21968 0001:0007DD20 21969 0001:0007DD2B 21970 0001:0007DD40 21972 0001:0007DD58 + 21973 0001:0007DD63 21976 0001:0007DD68 21977 0001:0007DD74 21978 0001:0007DD7F + 21979 0001:0007DD94 21982 0001:0007DD98 21983 0001:0007DDA4 21984 0001:0007DDBB + 21985 0001:0007DDC4 21986 0001:0007DDCF 21987 0001:0007DDE4 21990 0001:0007DDE8 + 21991 0001:0007DDF4 21992 0001:0007DDFF 21993 0001:0007DE0D 21996 0001:0007DE14 + 21997 0001:0007DE20 21998 0001:0007DE29 21999 0001:0007DE3E 22002 0001:0007DE44 + 22003 0001:0007DE50 22004 0001:0007DE59 22005 0001:0007DE6E 22010 0001:0007DE74 + 22011 0001:0007DE7D 22012 0001:0007DE8B 22017 0001:0007DE90 22018 0001:0007DE9F + 22019 0001:0007DEAA 22020 0001:0007DEB5 22021 0001:0007DEC0 22022 0001:0007DECB + 22023 0001:0007DED6 22024 0001:0007DEDF 22025 0001:0007DEEA 22026 0001:0007DEFF + 22029 0001:0007DF08 22030 0001:0007DF14 22031 0001:0007DF25 22036 0001:0007DF2C + 22037 0001:0007DF38 22038 0001:0007DF46 22039 0001:0007DF5F 22038 0001:0007DF6D + 22040 0001:0007DF75 22044 0001:0007DF7C 22045 0001:0007DF8B 22049 0001:0007DF98 + 22050 0001:0007DFA2 22051 0001:0007DFAC 22052 0001:0007DFB6 22053 0001:0007DFC0 + 22054 0001:0007DFC8 22057 0001:0007DFD5 22058 0001:0007DFE3 22060 0001:0007E006 + 22066 0001:0007E00C 22067 0001:0007E018 22068 0001:0007E027 22069 0001:0007E02D + 22070 0001:0007E032 22071 0001:0007E05C 22073 0001:0007E06A 22075 0001:0007E071 + 22076 0001:0007E07F 22077 0001:0007E08A 22078 0001:0007E098 22079 0001:0007E0A1 + 22080 0001:0007E0AA 22081 0001:0007E0B3 22082 0001:0007E0BC 22084 0001:0007E0C5 + 22085 0001:0007E0CB 22087 0001:0007E0ED 22088 0001:0007E10D 22109 0001:0007E114 + 22119 0001:0007E200 22120 0001:0007E21B 22121 0001:0007E225 22122 0001:0007E232 + 22123 0001:0007E249 22124 0001:0007E265 22125 0001:0007E274 22126 0001:0007E289 + 22127 0001:0007E29E 22128 0001:0007E2B4 22129 0001:0007E2BE 22130 0001:0007E2CD + 22132 0001:0007E2D6 22133 0001:0007E2DD 22134 0001:0007E2EA 22135 0001:0007E2F0 + 22138 0001:0007E303 22139 0001:0007E30C 22141 0001:0007E318 22142 0001:0007E33A + 22145 0001:0007E360 22146 0001:0007E371 22147 0001:0007E37F 22148 0001:0007E38C + 22149 0001:0007E398 22150 0001:0007E3A3 22151 0001:0007E3B1 22152 0001:0007E3BE + 22153 0001:0007E3CB 22154 0001:0007E3D0 22155 0001:0007E3EC 22158 0001:0007E3F0 + 22160 0001:0007E3FD 22161 0001:0007E410 22162 0001:0007E431 22164 0001:0007E452 + 22166 0001:0007E45D 22172 0001:0007E464 22173 0001:0007E470 22174 0001:0007E47A + 22175 0001:0007E485 22178 0001:0007E495 22180 0001:0007E4C7 22181 0001:0007E4D1 + 22183 0001:0007E4E3 22186 0001:0007E4F8 22187 0001:0007E504 22188 0001:0007E510 + 22189 0001:0007E527 22190 0001:0007E533 22192 0001:0007E53F 22193 0001:0007E556 + 22194 0001:0007E567 22195 0001:0007E573 22199 0001:0007E599 22201 0001:0007E5A5 + 22202 0001:0007E5B6 22205 0001:0007E5BE 22208 0001:0007E5C4 22209 0001:0007E5D0 + 22210 0001:0007E5DC 22211 0001:0007E5F4 22214 0001:0007E5F8 22215 0001:0007E604 + 22217 0001:0007E613 22218 0001:0007E629 22220 0001:0007E642 22222 0001:0007E64D + 22226 0001:0007E654 22227 0001:0007E663 22228 0001:0007E671 22229 0001:0007E685 + 22230 0001:0007E68F 22247 0001:0007E694 22248 0001:0007E6A0 22249 0001:0007E6AB + 22250 0001:0007E6C1 22251 0001:0007E6C9 22256 0001:0007E6D0 22257 0001:0007E6DC + 22258 0001:0007E6E7 22260 0001:0007E6FD 22261 0001:0007E708 22262 0001:0007E714 + 22263 0001:0007E729 22264 0001:0007E735 22266 0001:0007E74A 22271 0001:0007E750 + 22272 0001:0007E75C 22275 0001:0007E78B 22276 0001:0007E796 22277 0001:0007E7A3 + 22279 0001:0007E7A5 22280 0001:0007E7B0 22282 0001:0007E7BC 22283 0001:0007E7C7 + 22284 0001:0007E7DB 22286 0001:0007E7E5 22289 0001:0007E7EC 22290 0001:0007E7F9 + 22291 0001:0007E81A 22299 0001:0007E820 22300 0001:0007E83C 22301 0001:0007E844 + 22302 0001:0007E85D 22303 0001:0007E86F 22304 0001:0007E889 22305 0001:0007E8A4 + 22307 0001:0007E8B5 22308 0001:0007E8D0 22310 0001:0007E8DA 22312 0001:0007E8E6 + 22313 0001:0007E8F2 22314 0001:0007E90C 22315 0001:0007E927 22317 0001:0007E935 + 22318 0001:0007E941 22319 0001:0007E95B 22322 0001:0007E976 22323 0001:0007E98C + 22324 0001:0007E9A4 22326 0001:0007E9B4 22327 0001:0007E9C2 22328 0001:0007E9CC + 22329 0001:0007E9DA 22330 0001:0007E9F1 22331 0001:0007EA0F 22330 0001:0007EA23 + 22332 0001:0007EA28 22333 0001:0007EA35 22335 0001:0007EA50 22336 0001:0007EA5E + 22339 0001:0007EA70 22340 0001:0007EA7C 22341 0001:0007EAA0 22343 0001:0007EAB1 + 22344 0001:0007EABE 22346 0001:0007EAE0 22348 0001:0007EAEC 22349 0001:0007EB06 + 22351 0001:0007EB0C 22352 0001:0007EB32 22353 0001:0007EB4D 22356 0001:0007EB72 + 22359 0001:0007EB88 22360 0001:0007EB91 22361 0001:0007EBA5 22364 0001:0007EBAC + 22365 0001:0007EBB5 22366 0001:0007EBC0 22381 0001:0007EBC4 22382 0001:0007EBCD + 22383 0001:0007EBD8 22393 0001:0007EBDC 22394 0001:0007EBE8 22395 0001:0007EBED + 22396 0001:0007EBF9 22398 0001:0007EC05 22399 0001:0007EC09 22400 0001:0007EC1F + 22398 0001:0007EC31 22401 0001:0007EC37 22403 0001:0007EC50 22412 0001:0007EC54 + 22413 0001:0007EC63 22414 0001:0007EC71 22417 0001:0007EC83 22418 0001:0007EC95 + 22419 0001:0007ECA6 22420 0001:0007ECBA 22422 0001:0007ECCE 22425 0001:0007ECD4 + 22426 0001:0007ECE0 22427 0001:0007ECEB 22428 0001:0007ED10 22429 0001:0007ED18 + 22446 0001:0007ED24 22447 0001:0007ED2D 22448 0001:0007ED37 22451 0001:0007ED3C + 22452 0001:0007ED43 22454 0001:0007ED61 22455 0001:0007ED7C 22457 0001:0007ED93 + 22458 0001:0007ED9B 22463 0001:0007EDA0 22464 0001:0007EDA9 22465 0001:0007EDAD + 22467 0001:0007EDB9 22468 0001:0007EDC1 22471 0001:0007EDF7 22477 0001:0007EDFC + 22478 0001:0007EE18 22480 0001:0007EE38 22482 0001:0007EE5D 22483 0001:0007EE6D + 22486 0001:0007EE7D 22487 0001:0007EE82 22488 0001:0007EE8E 22489 0001:0007EE92 + 22490 0001:0007EE9E 22491 0001:0007EEA2 22492 0001:0007EEAE 22493 0001:0007EEB2 + 22494 0001:0007EEBE 22495 0001:0007EEC2 22496 0001:0007EECE 22497 0001:0007EED2 + 22498 0001:0007EEDE 22499 0001:0007EEE2 22500 0001:0007EEEE 22501 0001:0007EEF2 + 22505 0001:0007EF01 22507 0001:0007EF3F 22522 0001:0007EF58 22523 0001:0007EF64 + 22524 0001:0007EF7B 22527 0001:0007EF80 22528 0001:0007EF87 22529 0001:0007EF9C + 22534 0001:0007EFA4 22535 0001:0007EFB0 22537 0001:0007EFBE 22538 0001:0007EFC9 + 22540 0001:0007EFD7 22544 0001:0007EFDC 22545 0001:0007EFEB 22547 0001:0007EFF9 + 22548 0001:0007F004 22549 0001:0007F00F 22551 0001:0007F01D 22557 0001:0007F024 + 22558 0001:0007F02B 22559 0001:0007F036 22560 0001:0007F044 22561 0001:0007F04F + 22562 0001:0007F05E 22564 0001:0007F076 22566 0001:0007F089 22569 0001:0007F08C + 22570 0001:0007F0A7 22571 0001:0007F0B1 22572 0001:0007F0F3 22575 0001:0007F0F8 + 22576 0001:0007F109 22577 0001:0007F114 22578 0001:0007F130 22581 0001:0007F134 + 22582 0001:0007F140 22583 0001:0007F14E 22589 0001:0007F154 22590 0001:0007F177 + 22591 0001:0007F190 22592 0001:0007F1B6 22594 0001:0007F1CC 22595 0001:0007F1E0 + 22596 0001:0007F206 22598 0001:0007F21C 22599 0001:0007F230 22601 0001:0007F256 + 22603 0001:0007F26C 22604 0001:0007F280 22606 0001:0007F2A6 22607 0001:0007F2D9 + 22610 0001:0007F2E0 22611 0001:0007F2EF 22612 0001:0007F308 22615 0001:0007F30C + 22616 0001:0007F315 22617 0001:0007F326 22620 0001:0007F32C 22621 0001:0007F335 + 22622 0001:0007F346 22625 0001:0007F34C 22626 0001:0007F358 22627 0001:0007F36F + 22632 0001:0007F374 22633 0001:0007F380 22634 0001:0007F387 22635 0001:0007F3A2 + 22637 0001:0007F3BF 22638 0001:0007F3C5 22639 0001:0007F3C7 22634 0001:0007F3CA + 22640 0001:0007F3D2 22643 0001:0007F3D8 22644 0001:0007F3E4 22645 0001:0007F3F5 + 22650 0001:0007F3FC 22651 0001:0007F40B 22652 0001:0007F41C 22653 0001:0007F427 + 22656 0001:0007F42C 22657 0001:0007F43B 22658 0001:0007F451 22661 0001:0007F458 + 22662 0001:0007F468 22663 0001:0007F476 22668 0001:0007F47C 22669 0001:0007F48B + 22670 0001:0007F49C 22671 0001:0007F4A7 22679 0001:0007F4AC 22680 0001:0007F4B8 + 22682 0001:0007F4C7 22683 0001:0007F4E5 22684 0001:0007F4EB 22686 0001:0007F4F6 + 22707 0001:0007F4FC 22708 0001:0007F505 22709 0001:0007F510 22712 0001:0007F514 + 22713 0001:0007F51D 22714 0001:0007F528 22719 0001:0007F52C 22720 0001:0007F538 + 22721 0001:0007F54F 22724 0001:0007F554 22725 0001:0007F560 22726 0001:0007F577 + 22729 0001:0007F57C 22730 0001:0007F588 22731 0001:0007F59F 22734 0001:0007F5A4 + 22735 0001:0007F5B0 22736 0001:0007F5C7 22739 0001:0007F5CC 22740 0001:0007F5D3 + 22741 0001:0007F5E8 22745 0001:0007F5F0 22746 0001:0007F5F7 22747 0001:0007F60C + 22751 0001:0007F614 22752 0001:0007F61B 22753 0001:0007F630 22757 0001:0007F638 + 22758 0001:0007F63F 22759 0001:0007F654 22768 0001:0007F65C 22769 0001:0007F681 + 22771 0001:0007F695 22772 0001:0007F6A2 22773 0001:0007F6AD 22775 0001:0007F6D5 + 22778 0001:0007F6DC 22779 0001:0007F6E8 22781 0001:0007F6FC 22782 0001:0007F70C + 22783 0001:0007F71A 22785 0001:0007F728 22788 0001:0007F72C 22789 0001:0007F738 + 22790 0001:0007F747 22791 0001:0007F75B 22792 0001:0007F769 22798 0001:0007F770 + 22799 0001:0007F795 22800 0001:0007F7A9 22801 0001:0007F7E6 22804 0001:0007F7EC + 22805 0001:0007F7F8 22806 0001:0007F80C 22808 0001:0007F838 22815 0001:0007F83C + 22816 0001:0007F84D 22817 0001:0007F862 22818 0001:0007F874 22819 0001:0007F880 + 22820 0001:0007F888 22823 0001:0007F890 22824 0001:0007F8AB 22825 0001:0007F8B5 + 22826 0001:0007F8D9 22829 0001:0007F8E0 22830 0001:0007F8E9 22831 0001:0007F8FA + 22834 0001:0007F900 22835 0001:0007F90F 22836 0001:0007F928 22847 0001:0007F92C + 22848 0001:0007F948 22849 0001:0007F94D 22852 0001:0007F95A 22853 0001:0007F976 + 22854 0001:0007F983 22855 0001:0007F998 22856 0001:0007F9AE 22857 0001:0007F9C2 + 22858 0001:0007F9C5 22850 0001:0007F9CB 22860 0001:0007F9E2 22861 0001:0007F9E8 + 22862 0001:0007F9F0 22863 0001:0007F9F8 22865 0001:0007F9FF 22866 0001:0007FA2E + 22869 0001:0007FA34 22870 0001:0007FA38 22871 0001:0007FA40 22872 0001:0007FA48 + 22877 0001:0007FA50 22878 0001:0007FA56 22879 0001:0007FA61 22880 0001:0007FA6A + 22881 0001:0007FA75 22884 0001:0007FA7C 22885 0001:0007FA84 22887 0001:0007FA8E + 22892 0001:0007FA94 22893 0001:0007FAC1 22894 0001:0007FB0A 22889 0001:0007FB0C + 22891 0001:0007FB16 + +Line numbers for Themes(Themes.pas) segment .text + + 488 0001:0007FD40 489 0001:0007FD44 490 0001:0007FD4D 491 0001:0007FD5C + 492 0001:0007FD67 496 0001:0007FD6C 497 0001:0007FD84 498 0001:0007FD8F + 499 0001:0007FDA2 500 0001:0007FDC5 504 0001:0007FDCC 505 0001:0007FDDD + 506 0001:0007FDE5 507 0001:0007FDEA 508 0001:0007FE06 511 0001:0007FE0C + 512 0001:0007FE18 513 0001:0007FE30 514 0001:0007FE54 515 0001:0007FE66 + 518 0001:0007FE6C 519 0001:0007FE75 520 0001:0007FE9C 523 0001:0007FEA0 + 524 0001:0007FEA8 525 0001:0007FEB2 526 0001:0007FEBE 531 0001:0007FEC4 + 532 0001:0007FECD 533 0001:0007FED1 535 0001:0007FEE0 536 0001:0007FEF6 + 537 0001:0007FF04 532 0001:0007FF07 538 0001:0007FF0D 541 0001:0007FF14 + 542 0001:0007FF1B 543 0001:0007FF23 544 0001:0007FF2A 557 0001:0007FF30 + 558 0001:0007FF50 560 0001:0007FF79 564 0001:0007FF84 565 0001:0007FF9A + 567 0001:0007FFCB 571 0001:0007FFD4 572 0001:0007FFEA 574 0001:00080013 + 578 0001:0008001C 579 0001:00080032 581 0001:0008005F 587 0001:00080068 + 588 0001:00080077 590 0001:00080083 591 0001:00080089 594 0001:000800B9 + 595 0001:000800BD 596 0001:000800C3 597 0001:000800D8 601 0001:000800E0 + 602 0001:00080100 604 0001:0008013F 609 0001:00080148 610 0001:00080157 + 613 0001:0008015D 616 0001:00080187 617 0001:00080191 621 0001:0008019A + 622 0001:000801A4 626 0001:000801AD 627 0001:000801B7 631 0001:000801C0 + 632 0001:000801CA 636 0001:000801D3 637 0001:000801DD 640 0001:000801E6 + 641 0001:000801EE 643 0001:000801F3 645 0001:00080202 692 0001:00080208 + 693 0001:00080217 696 0001:0008021D 699 0001:0008022A 700 0001:00080234 + 704 0001:0008023D 705 0001:00080247 708 0001:00080250 709 0001:00080258 + 711 0001:0008025D 713 0001:0008026C 1203 0001:00080270 1204 0001:0008027F + 1207 0001:00080285 1210 0001:00080296 1211 0001:000802A0 1215 0001:000802A9 + 1216 0001:000802B3 1220 0001:000802BC 1221 0001:000802C6 1224 0001:000802CF + 1225 0001:000802D7 1227 0001:000802DC 1229 0001:000802EB 1234 0001:000802F0 + 1235 0001:000802FF 1238 0001:00080305 1241 0001:00080378 1242 0001:00080382 + 1246 0001:0008038E 1247 0001:00080398 1251 0001:000803A4 1252 0001:000803AE + 1256 0001:000803BA 1257 0001:000803C4 1261 0001:000803CD 1262 0001:000803D7 + 1266 0001:000803E0 1267 0001:000803EA 1271 0001:000803F3 1272 0001:000803FD + 1276 0001:00080406 1277 0001:00080410 1281 0001:00080419 1282 0001:00080423 + 1286 0001:0008042C 1287 0001:00080436 1290 0001:0008043F 1291 0001:00080447 + 1293 0001:0008044C 1295 0001:0008045B 1352 0001:00080460 1353 0001:0008046F + 1356 0001:00080475 1359 0001:000804AA 1360 0001:000804B4 1364 0001:000804BD + 1365 0001:000804C7 1369 0001:000804D0 1370 0001:000804DA 1374 0001:000804E3 + 1375 0001:000804ED 1379 0001:000804F6 1380 0001:00080500 1384 0001:00080509 + 1385 0001:00080513 1388 0001:0008051C 1389 0001:00080524 1391 0001:00080529 + 1393 0001:00080538 1563 0001:0008053C 1564 0001:0008054B 1567 0001:00080551 + 1570 0001:0008066D 1571 0001:00080677 1575 0001:00080683 1576 0001:0008068D + 1580 0001:00080699 1581 0001:000806A3 1585 0001:000806AF 1586 0001:000806B9 + 1590 0001:000806C5 1591 0001:000806CF 1595 0001:000806DB 1596 0001:000806E5 + 1600 0001:000806F1 1601 0001:000806FB 1605 0001:00080707 1606 0001:00080711 + 1610 0001:0008071D 1611 0001:00080727 1615 0001:00080733 1616 0001:0008073D + 1620 0001:00080749 1621 0001:00080753 1625 0001:0008075F 1626 0001:00080769 + 1630 0001:00080775 1631 0001:0008077F 1635 0001:0008078B 1636 0001:00080795 + 1640 0001:000807A1 1641 0001:000807AB 1645 0001:000807B7 1646 0001:000807C1 + 1650 0001:000807CD 1651 0001:000807D7 1655 0001:000807E3 1656 0001:000807ED + 1660 0001:000807F9 1661 0001:00080803 1665 0001:0008080F 1666 0001:00080819 + 1670 0001:00080825 1671 0001:0008082F 1675 0001:0008083B 1676 0001:00080845 + 1680 0001:00080851 1681 0001:0008085B 1685 0001:00080867 1686 0001:00080871 + 1690 0001:0008087D 1691 0001:00080887 1695 0001:00080893 1696 0001:0008089D + 1700 0001:000808A9 1701 0001:000808B3 1705 0001:000808BF 1706 0001:000808C9 + 1710 0001:000808D5 1711 0001:000808DF 1715 0001:000808EB 1716 0001:000808F5 + 1720 0001:00080901 1721 0001:0008090B 1725 0001:00080914 1726 0001:0008091E + 1730 0001:00080927 1731 0001:00080931 1735 0001:0008093A 1736 0001:00080944 + 1740 0001:0008094D 1741 0001:00080957 1745 0001:00080960 1746 0001:0008096A + 1750 0001:00080973 1751 0001:0008097D 1754 0001:00080986 1755 0001:0008098E + 1757 0001:00080993 1759 0001:000809A2 1776 0001:000809A8 1779 0001:000809B9 + 1780 0001:000809CC 1782 0001:000809D6 1783 0001:000809E8 1784 0001:000809FD + 1785 0001:00080A0E 1786 0001:00080A1C 1787 0001:00080A26 1789 0001:00080A2C + 1790 0001:00080A3F 1792 0001:00080A4B 1793 0001:00080A55 1794 0001:00080A5F + 1795 0001:00080A6C 1797 0001:00080A92 1800 0001:00080AA7 1802 0001:00080ACC + 1803 0001:00080AD9 1805 0001:00080AFA 1809 0001:00080B14 1812 0001:00080B1C + 1813 0001:00080B23 1814 0001:00080B2C 1815 0001:00080B34 1816 0001:00080B3F + 1820 0001:00080B44 1821 0001:00080B86 1818 0001:00080B88 1819 0001:00080B92 + +Line numbers for StdCtrls(StdCtrls.pas) segment .text + + 1237 0001:00087A54 1238 0001:00087A5D 1239 0001:00087A61 1240 0001:00087A67 + 1239 0001:00087A79 1241 0001:00087A7F 1242 0001:00087A86 1297 0001:00087DA4 + 1298 0001:00087DBF 1299 0001:00087DCC 1301 0001:00087DD8 1302 0001:00087DE5 + 1303 0001:00087E0D 1306 0001:00087E18 1307 0001:00087E24 1308 0001:00087E2F + 1309 0001:00087E43 1310 0001:00087E5C 1311 0001:00087E69 1312 0001:00087E82 + 1315 0001:00087E94 1316 0001:00087EA0 1317 0001:00087EAB 1319 0001:00087EB2 + 1331 0001:00087EB8 1332 0001:00087EDA 1334 0001:00087EE6 1336 0001:00087EF4 + 1338 0001:00087F06 1340 0001:00087F1B 1341 0001:00087F55 1342 0001:00087F69 + 1343 0001:00087F79 1345 0001:00087F88 1348 0001:00087FA2 1350 0001:00087FB3 + 1351 0001:00087FBE 1352 0001:00087FCE 1354 0001:00087FEC 1355 0001:00087FF8 + 1357 0001:00087FFE 1358 0001:00088002 1359 0001:00088012 1361 0001:0008802F + 1362 0001:0008803F 1363 0001:00088054 1367 0001:00088092 1368 0001:000880A2 + 1369 0001:000880C5 1371 0001:000880D1 1372 0001:000880D4 1373 0001:000880D7 + 1374 0001:000880E7 1375 0001:000880F2 1376 0001:000880FF 1378 0001:00088111 + 1379 0001:00088121 1380 0001:0008812C 1382 0001:00088141 1383 0001:00088151 + 1385 0001:00088169 1386 0001:000881B6 1387 0001:000881C6 1388 0001:00088215 + 1389 0001:00088226 1393 0001:000882B7 1396 0001:000882CC 1398 0001:000882EC + 1400 0001:0008831A 1401 0001:00088322 1403 0001:0008832E 1404 0001:00088356 + 1407 0001:0008835C 1408 0001:00088368 1409 0001:00088370 1410 0001:00088378 + 1413 0001:0008837C 1414 0001:00088388 1415 0001:00088393 1416 0001:0008839B + 1417 0001:000883A3 1420 0001:000883A8 1421 0001:000883B4 1422 0001:000883BF + 1423 0001:000883C7 1428 0001:000883CC 1429 0001:000883E7 1430 0001:000883F4 + 1431 0001:00088406 1432 0001:00088413 1433 0001:00088420 1434 0001:0008842A + 1438 0001:00088434 1439 0001:00088442 1441 0001:00088458 1442 0001:00088485 + 1445 0001:00088494 1446 0001:000884A0 1447 0001:000884AB 1452 0001:000884B0 + 1453 0001:000884D3 1454 0001:000884E1 1455 0001:0008850A 1456 0001:00088517 + 1457 0001:0008852A 1458 0001:00088538 1459 0001:0008854C 1461 0001:0008855C + 1462 0001:00088569 1463 0001:0008857F 1464 0001:000885AD 1465 0001:000885BA + 1466 0001:000885D0 1469 0001:00088600 1470 0001:0008864B 1479 0001:0008865C + 1480 0001:00088667 1482 0001:00088673 1484 0001:0008867F 1485 0001:00088690 + 1486 0001:0008869D 1488 0001:000886B3 1489 0001:000886C0 1491 0001:000886CB + 1493 0001:000886F9 1495 0001:00088705 1496 0001:0008870F 1497 0001:00088727 + 1498 0001:0008874A 1500 0001:00088766 1502 0001:00088778 1505 0001:00088780 + 1506 0001:00088788 1507 0001:00088790 1508 0001:0008879C 1518 0001:000887A0 + 1519 0001:000887AB 1521 0001:000887C8 1522 0001:000887D3 1523 0001:000887DD + 1524 0001:000887EE 1525 0001:00088817 1526 0001:00088827 1527 0001:00088832 + 1528 0001:0008883B 1529 0001:00088847 1530 0001:0008885F 1531 0001:00088871 + 1533 0001:0008888D 1536 0001:00088894 1537 0001:000888A0 1539 0001:000888AE + 1540 0001:000888BA 1542 0001:000888C2 1545 0001:000888C8 1546 0001:000888D5 + 1548 0001:000888E3 1549 0001:000888EF 1551 0001:000888FB 1554 0001:00088900 + 1555 0001:00088909 1556 0001:0008891B 1559 0001:00088920 1560 0001:0008892C + 1561 0001:00088938 1562 0001:00088949 1565 0001:00088950 1566 0001:0008895C + 1568 0001:0008896A 1569 0001:00088976 1571 0001:0008897E 1574 0001:00088984 + 1575 0001:00088990 1577 0001:0008899D 1578 0001:000889A3 1580 0001:000889B8 + 1581 0001:000889C9 1583 0001:000889D1 1584 0001:000889DB 1587 0001:000889E4 + 1588 0001:000889F0 1590 0001:000889FE 1591 0001:00088A0A 1593 0001:00088A12 + 1596 0001:00088A18 1597 0001:00088A25 1599 0001:00088A33 1600 0001:00088A3F + 1601 0001:00088A4B 1603 0001:00088A53 1607 0001:00088A58 1608 0001:00088A67 + 1609 0001:00088A75 1610 0001:00088A89 1611 0001:00088A94 1614 0001:00088A98 + 1615 0001:00088AA5 1616 0001:00088AAD 1617 0001:00088AB9 1620 0001:00088AC0 + 1621 0001:00088ACD 1622 0001:00088AD8 1623 0001:00088AE4 1626 0001:00088AEC + 1627 0001:00088B0C 1629 0001:00088B4E 1630 0001:00088B5A 1632 0001:00088B6A + 1633 0001:00088B75 1635 0001:00088B9C 1638 0001:00088BA4 1639 0001:00088BB1 + 1640 0001:00088BBC 1641 0001:00088BC9 1642 0001:00088BDB 1645 0001:00088BE0 + 1646 0001:00088BED 1647 0001:00088BF8 1648 0001:00088C05 1649 0001:00088C17 + 1656 0001:00088C1C 1657 0001:00088C37 1658 0001:00088C44 1659 0001:00088C4E + 1660 0001:00088C5C 1661 0001:00088C68 1662 0001:00088C75 1663 0001:00088C82 + 1664 0001:00088C8C 1665 0001:00088C96 1666 0001:00088CA0 1667 0001:00088CAA + 1668 0001:00088CB4 1669 0001:00088CBE 1670 0001:00088CE1 1673 0001:00088CF0 + 1674 0001:00088CFC 1675 0001:00088D15 1678 0001:00088D1C 1679 0001:00088D28 + 1681 0001:00088D36 1682 0001:00088D42 1684 0001:00088D4A 1687 0001:00088D50 + 1688 0001:00088D5C 1690 0001:00088D6A 1691 0001:00088D76 1692 0001:00088D7E + 1694 0001:00088D86 1697 0001:00088D8C 1698 0001:00088D98 1700 0001:00088DA6 + 1701 0001:00088DB2 1703 0001:00088DBA 1706 0001:00088DC0 1707 0001:00088DCC + 1709 0001:00088DDA 1710 0001:00088DE6 1712 0001:00088DEE 1715 0001:00088DF4 + 1716 0001:00088E00 1718 0001:00088E0E 1719 0001:00088E1A 1721 0001:00088E34 + 1724 0001:00088E38 1725 0001:00088E44 1727 0001:00088E52 1728 0001:00088E5E + 1730 0001:00088E66 1733 0001:00088E6C 1734 0001:00088E75 1735 0001:00088E81 + 1736 0001:00088EAD 1745 0001:00088EB4 1746 0001:00088EC0 1747 0001:00088ECC + 1748 0001:00088EE9 1749 0001:00088EF5 1752 0001:00088EFC 1753 0001:00088F1B + 1755 0001:00088F29 1756 0001:00088F35 1758 0001:00088F41 1759 0001:00088F61 + 1762 0001:00088F9B 1765 0001:00088FA0 1766 0001:00088FAC 1768 0001:00088FBA + 1769 0001:00088FC6 1770 0001:00088FD2 1772 0001:00088FED 1775 0001:00088FF4 + 1776 0001:00088FFD 1777 0001:00089019 1780 0001:00089020 1781 0001:0008902C + 1782 0001:00089047 1787 0001:0008904C 1788 0001:00089055 1789 0001:00089070 + 1790 0001:0008907C 1795 0001:00089080 1796 0001:0008908C 1797 0001:000890A7 + 1798 0001:000890B0 1799 0001:000890CB 1800 0001:000890E2 1803 0001:000890E8 + 1804 0001:000890EF 1805 0001:00089102 1813 0001:0008910C 1814 0001:00089113 + 1815 0001:0008912A 1818 0001:00089130 1819 0001:00089137 1820 0001:0008914E + 1838 0001:00089154 1839 0001:0008915B 1840 0001:00089172 1846 0001:00089178 + 1847 0001:00089187 1848 0001:00089195 1849 0001:000891A3 1850 0001:000891B4 + 1851 0001:000891C2 1852 0001:000891D7 1853 0001:000891E6 1855 0001:00089204 + 1857 0001:00089217 1868 0001:0008921C 1869 0001:00089228 1870 0001:00089236 + 1871 0001:00089244 1872 0001:00089251 1874 0001:00089257 1875 0001:00089268 + 1876 0001:00089276 1877 0001:0008928B 1879 0001:000892AD 1882 0001:000892BD + 1885 0001:000892C4 1886 0001:000892D0 1887 0001:000892EE 1896 0001:000892F4 + 1897 0001:00089300 1898 0001:0008930B 1901 0001:0008931B 1905 0001:00089398 + 1907 0001:000893BA 1908 0001:000893C4 1911 0001:000893CE 1916 0001:000893DC + 1917 0001:000893ED 1921 0001:0008940B 1922 0001:0008941D 1923 0001:00089427 + 1924 0001:00089435 1925 0001:00089441 1928 0001:0008945B 1929 0001:00089466 + 1932 0001:0008946C 1933 0001:00089473 1934 0001:0008947D 1935 0001:0008948B + 1937 0001:000894A0 1939 0001:000894B2 1940 0001:000894C6 1941 0001:000894D7 + 1942 0001:000894E3 1943 0001:00089503 1944 0001:0008950B 1947 0001:00089510 + 1948 0001:00089517 1949 0001:00089528 1950 0001:00089530 1953 0001:00089534 + 1954 0001:0008953B 1956 0001:00089553 1957 0001:00089564 1959 0001:0008956F + 1960 0001:00089582 1968 0001:0008958C 1969 0001:00089595 1970 0001:0008959F + 1971 0001:000895AC 1972 0001:000895C4 1973 0001:000895D1 1974 0001:000895DE + 1975 0001:000895E9 1977 0001:000895F3 1978 0001:0008960F 1981 0001:0008961E + 1982 0001:00089624 1983 0001:00089632 1985 0001:0008964E 1986 0001:0008965C + 1989 0001:00089660 1990 0001:00089668 1991 0001:00089670 1992 0001:0008968F + 1995 0001:00089694 1996 0001:000896A0 1998 0001:000896AA 2000 0001:000896C4 + 2002 0001:000896CC 2003 0001:000896D7 2006 0001:000896DC 2007 0001:000896E8 + 2008 0001:000896F3 2010 0001:00089711 2011 0001:00089728 2014 0001:0008972C + 2015 0001:00089738 2017 0001:0008974E 2018 0001:00089756 2020 0001:0008975E + 2021 0001:00089769 2024 0001:00089770 2025 0001:0008977C 2026 0001:00089787 + 2027 0001:000897A2 2028 0001:000897AA 2031 0001:000897B0 2032 0001:000897BD + 2033 0001:000897E0 2036 0001:000897E8 2037 0001:000897F4 2038 0001:0008981D + 2039 0001:00089825 2040 0001:00089830 2043 0001:00089834 2044 0001:00089841 + 2045 0001:0008984C 2046 0001:0008986C 2047 0001:00089878 2050 0001:00089880 + 2051 0001:0008988C 2052 0001:00089897 2053 0001:000898A2 2058 0001:000898A8 + 2059 0001:000898B1 2060 0001:000898B6 2062 0001:000898D1 2063 0001:000898EE + 2064 0001:00089928 2066 0001:0008992E 2071 0001:00089934 2072 0001:0008994A + 2073 0001:00089955 2075 0001:00089986 2080 0001:0008998C 2081 0001:0008999B + 2082 0001:000899BA 2085 0001:000899C0 2086 0001:000899FA 2088 0001:00089A1B + 2094 0001:00089A20 2095 0001:00089A43 2097 0001:00089A4D 2098 0001:00089A6C + 2100 0001:00089A84 2101 0001:00089AA4 2102 0001:00089AAA 2103 0001:00089AC9 + 2104 0001:00089ACF 2105 0001:00089AD5 2107 0001:00089AE5 2108 0001:00089B03 + 2110 0001:00089B41 2117 0001:00089B58 2118 0001:00089B64 2119 0001:00089B83 + 2121 0001:00089B8D 2122 0001:00089BAD 2124 0001:00089BD5 2125 0001:00089BF3 + 2127 0001:00089C11 2130 0001:00089C18 2131 0001:00089C1F 2132 0001:00089C2D + 2135 0001:00089C30 2136 0001:00089C3C 2138 0001:00089C4B 2139 0001:00089C69 + 2141 0001:00089C6F 2142 0001:00089C83 2145 0001:00089C8E 2148 0001:00089C94 + 2149 0001:00089CA0 2150 0001:00089CAE 2155 0001:00089CB4 2156 0001:00089CD3 + 2157 0001:00089CE0 2159 0001:00089D14 2160 0001:00089D31 2161 0001:00089D52 + 2163 0001:00089D93 2168 0001:00089D98 2169 0001:00089DB3 2170 0001:00089DC0 + 2171 0001:00089DCD 2172 0001:00089DDA 2173 0001:00089DE4 2174 0001:00089DEE + 2175 0001:00089DF8 2176 0001:00089E0D 2177 0001:00089E1C 2178 0001:00089E44 + 2181 0001:00089E48 2182 0001:00089E59 2183 0001:00089E67 2184 0001:00089E83 + 2193 0001:00089E88 2194 0001:00089E95 2195 0001:00089EA0 2200 0001:00089EFD + 2203 0001:00089F04 2206 0001:00089F10 2210 0001:00089F3A 2213 0001:00089F97 + 2214 0001:00089FA3 2217 0001:00089FBD 2219 0001:0008A015 2221 0001:0008A02E + 2224 0001:0008A038 2225 0001:0008A044 2226 0001:0008A066 2227 0001:0008A087 + 2228 0001:0008A0A3 2233 0001:0008A0A8 2234 0001:0008A0B4 2235 0001:0008A0D8 + 2236 0001:0008A0F3 2239 0001:0008A0F8 2240 0001:0008A101 2241 0001:0008A110 + 2244 0001:0008A114 2245 0001:0008A11B 2246 0001:0008A123 2247 0001:0008A12D + 2250 0001:0008A130 2251 0001:0008A13C 2253 0001:0008A14A 2254 0001:0008A156 + 2256 0001:0008A15E 2259 0001:0008A164 2260 0001:0008A170 2261 0001:0008A181 + 2264 0001:0008A188 2265 0001:0008A194 2267 0001:0008A1A2 2268 0001:0008A1AE + 2270 0001:0008A1B6 2273 0001:0008A1BC 2274 0001:0008A1C8 2276 0001:0008A1D6 + 2277 0001:0008A1E2 2279 0001:0008A1EA 2282 0001:0008A1F0 2283 0001:0008A1FC + 2284 0001:0008A207 2285 0001:0008A21C 2286 0001:0008A223 2287 0001:0008A22F + 2288 0001:0008A236 2291 0001:0008A23C 2292 0001:0008A248 2293 0001:0008A253 + 2296 0001:0008A258 2297 0001:0008A264 2298 0001:0008A26F 2299 0001:0008A289 + 2304 0001:0008A290 2305 0001:0008A299 2306 0001:0008A2B9 2309 0001:0008A2C0 + 2310 0001:0008A2DF 2311 0001:0008A2FE 2312 0001:0008A304 2313 0001:0008A33F + 2316 0001:0008A344 2317 0001:0008A353 2318 0001:0008A371 2323 0001:0008A378 + 2324 0001:0008A387 2325 0001:0008A3A6 2327 0001:0008A3AC 2328 0001:0008A3B7 + 2331 0001:0008A3DE 2332 0001:0008A3E8 2337 0001:0008A3EC 2338 0001:0008A408 + 2339 0001:0008A416 2340 0001:0008A430 2341 0001:0008A43E 2342 0001:0008A469 + 2345 0001:0008A470 2346 0001:0008A47C 2347 0001:0008A498 2350 0001:0008A49C + 2351 0001:0008A4A8 2352 0001:0008A4CF 2355 0001:0008A4D4 2356 0001:0008A4E0 + 2357 0001:0008A4FE 2358 0001:0008A50F 2363 0001:0008A514 2364 0001:0008A533 + 2365 0001:0008A557 2366 0001:0008A55D 2367 0001:0008A59E 2370 0001:0008A5A4 + 2371 0001:0008A5C7 2373 0001:0008A5EE 2374 0001:0008A62C 2382 0001:0008A634 + 2383 0001:0008A64F 2384 0001:0008A65C 2385 0001:0008A666 2386 0001:0008A674 + 2387 0001:0008A680 2388 0001:0008A68D 2389 0001:0008A69A 2390 0001:0008A6A4 + 2391 0001:0008A6AE 2392 0001:0008A6C3 2393 0001:0008A6D4 2395 0001:0008A6E1 + 2396 0001:0008A6F8 2402 0001:0008A70F 2403 0001:0008A71C 2404 0001:0008A729 + 2405 0001:0008A751 2408 0001:0008A760 2409 0001:0008A771 2410 0001:0008A77D + 2412 0001:0008A788 2413 0001:0008A796 2419 0001:0008A7A4 2420 0001:0008A7B2 + 2421 0001:0008A7CE 2424 0001:0008A7D4 2425 0001:0008A7DB 2426 0001:0008A7E8 + 2427 0001:0008A7F6 2428 0001:0008A803 2431 0001:0008A80C 2432 0001:0008A813 + 2438 0001:0008A81B 2439 0001:0008A826 2440 0001:0008A831 2441 0001:0008A83C + 2444 0001:0008A840 2445 0001:0008A847 2446 0001:0008A861 2449 0001:0008A864 + 2450 0001:0008A86D 2451 0001:0008A890 2456 0001:0008A894 2457 0001:0008A8A0 + 2458 0001:0008A8BB 2459 0001:0008A8C6 2460 0001:0008A8DA 2463 0001:0008A8E0 + 2464 0001:0008A8E9 2465 0001:0008A8F2 2467 0001:0008A900 2468 0001:0008A91D + 2471 0001:0008A924 2472 0001:0008A930 2473 0001:0008A939 2475 0001:0008A947 + 2476 0001:0008A957 2477 0001:0008A970 2506 0001:0008A974 2508 0001:0008A980 + 2509 0001:0008A99B 2510 0001:0008A9A4 2512 0001:0008A9C7 2515 0001:0008A9CC + 2516 0001:0008A9D8 2517 0001:0008A9E3 2519 0001:0008A9F1 2520 0001:0008A9FD + 2522 0001:0008AA22 2525 0001:0008AA28 2526 0001:0008AA34 2528 0001:0008AA3A + 2529 0001:0008AA46 2531 0001:0008AA4E 2534 0001:0008AA54 2535 0001:0008AA60 + 2536 0001:0008AA6B 2537 0001:0008AA74 2538 0001:0008AA89 2541 0001:0008AA90 + 2542 0001:0008AA9C 2543 0001:0008AAA7 2546 0001:0008AAAC 2547 0001:0008AAB8 + 2548 0001:0008AAC3 2551 0001:0008AAC8 2552 0001:0008AAD4 2553 0001:0008AADF + 2556 0001:0008AAE4 2557 0001:0008AAF0 2558 0001:0008AAFB 2559 0001:0008AB0E + 2562 0001:0008AB14 2563 0001:0008AB20 2564 0001:0008AB3C 2567 0001:0008AB40 + 2568 0001:0008AB4C 2569 0001:0008AB5E 2570 0001:0008AB69 2573 0001:0008AB70 + 2574 0001:0008AB7C 2575 0001:0008AB87 2576 0001:0008ABA5 2582 0001:0008ABAC + 2583 0001:0008ABB9 2585 0001:0008ABC4 2586 0001:0008ABCF 2588 0001:0008ABD4 + 2590 0001:0008ABEA 2591 0001:0008ABF5 2593 0001:0008AC14 2594 0001:0008AC35 + 2597 0001:0008AC4B 2599 0001:0008AC54 2600 0001:0008AC5D 2601 0001:0008AC77 + 2602 0001:0008AC96 2606 0001:0008ACA5 2607 0001:0008ACAF 2609 0001:0008ACC7 + 2612 0001:0008ACCC 2613 0001:0008ACD9 2614 0001:0008ACFA 2617 0001:0008AD00 + 2618 0001:0008AD0C 2620 0001:0008AD1A 2621 0001:0008AD26 2623 0001:0008AD2E + 2630 0001:0008AD34 2631 0001:0008AD46 2634 0001:0008AD54 2637 0001:0008AE02 + 2638 0001:0008AE0D 2641 0001:0008AE3A 2643 0001:0008AE54 2644 0001:0008AE79 + 2647 0001:0008AE86 2648 0001:0008AEA2 2651 0001:0008AECA 2652 0001:0008AED4 + 2656 0001:0008AEE1 2657 0001:0008AF01 2659 0001:0008AF18 2663 0001:0008AF28 + 2664 0001:0008AF32 2665 0001:0008AF3C 2666 0001:0008AF54 2667 0001:0008AF5F + 2669 0001:0008AF6A 2670 0001:0008AF75 2673 0001:0008AF82 2675 0001:0008AF8E + 2676 0001:0008AF98 2679 0001:0008AFA5 2681 0001:0008AFAE 2682 0001:0008AFB8 + 2686 0001:0008AFC2 2687 0001:0008AFCD 2690 0001:0008AFD7 2691 0001:0008AFFE + 2692 0001:0008B012 2695 0001:0008B02D 2697 0001:0008B041 2700 0001:0008B04C + 2702 0001:0008B058 2706 0001:0008B083 2708 0001:0008B08C 2710 0001:0008B09F + 2711 0001:0008B0B3 2712 0001:0008B0BE 2716 0001:0008B0C3 2720 0001:0008B0E1 + 2722 0001:0008B0F1 2723 0001:0008B0FC 2727 0001:0008B101 2728 0001:0008B11C + 2729 0001:0008B13C 2730 0001:0008B150 2734 0001:0008B152 2735 0001:0008B161 + 2738 0001:0008B181 2739 0001:0008B18B 2743 0001:0008B18D 2744 0001:0008B198 + 2747 0001:0008B1A0 2748 0001:0008B1C1 2750 0001:0008B1FC 2752 0001:0008B20D + 2755 0001:0008B21E 2756 0001:0008B228 2757 0001:0008B234 2758 0001:0008B23F + 2760 0001:0008B24F 2761 0001:0008B263 2766 0001:0008B28F 2767 0001:0008B2B8 + 2768 0001:0008B2C4 2771 0001:0008B2D2 2774 0001:0008B2E0 2775 0001:0008B2EA + 2776 0001:0008B2F4 2780 0001:0008B2FE 2781 0001:0008B308 2782 0001:0008B312 + 2785 0001:0008B337 2788 0001:0008B340 2789 0001:0008B348 2790 0001:0008B350 + 2791 0001:0008B36F 2795 0001:0008B374 2796 0001:0008B39F 2797 0001:0008B3AD + 2800 0001:0008B3DA 2801 0001:0008B3EB 2802 0001:0008B3F1 2804 0001:0008B43D + 2807 0001:0008B448 2808 0001:0008B450 2809 0001:0008B46F 2812 0001:0008B474 + 2813 0001:0008B47B 2814 0001:0008B483 2815 0001:0008B48F 2816 0001:0008B4A3 + 2821 0001:0008B4A8 2822 0001:0008B4B1 2823 0001:0008B4B5 2825 0001:0008B4C1 + 2826 0001:0008B4C9 2828 0001:0008B4F1 2831 0001:0008B4F8 2832 0001:0008B500 + 2833 0001:0008B50D 2834 0001:0008B51F 2837 0001:0008B524 2838 0001:0008B52D + 2839 0001:0008B53A 2841 0001:0008B54E 2842 0001:0008B55A 2845 0001:0008B560 + 2846 0001:0008B567 2847 0001:0008B56F 2848 0001:0008B58E 2849 0001:0008B599 + 2850 0001:0008B5A4 2855 0001:0008B5A8 2856 0001:0008B5B1 2857 0001:0008B5BF + 2858 0001:0008B5D9 2859 0001:0008B5E6 2860 0001:0008B5F0 2863 0001:0008B5FE + 2865 0001:0008B644 2867 0001:0008B656 2869 0001:0008B671 2872 0001:0008B678 + 2873 0001:0008B684 2874 0001:0008B690 2876 0001:0008B6A3 2877 0001:0008B6AF + 2880 0001:0008B6B4 2881 0001:0008B6BB 2882 0001:0008B6C9 2885 0001:0008B6CC + 2886 0001:0008B6EC 2887 0001:0008B6FA 2888 0001:0008B762 2891 0001:0008B768 + 2892 0001:0008B76F 2893 0001:0008B77D 2894 0001:0008B798 2897 0001:0008B79C + 2898 0001:0008B7A5 2899 0001:0008B7B6 2902 0001:0008B7BC 2903 0001:0008B7C8 + 2904 0001:0008B7D4 2907 0001:0008B7D8 2908 0001:0008B7FE 2909 0001:0008B82F + 2914 0001:0008B834 2915 0001:0008B84F 2916 0001:0008B85C 2917 0001:0008B877 + 2918 0001:0008B886 2919 0001:0008B893 2920 0001:0008B89D 2921 0001:0008B8A8 + 2922 0001:0008B8B2 2923 0001:0008B8D7 2926 0001:0008B8DC 2927 0001:0008B8ED + 2928 0001:0008B8FB 2929 0001:0008B909 2930 0001:0008B925 2940 0001:0008B92C + 2941 0001:0008B938 2943 0001:0008B946 2944 0001:0008B952 2946 0001:0008B95A + 2958 0001:0008B960 2959 0001:0008B96C 2961 0001:0008B97A 2962 0001:0008B986 + 2963 0001:0008B98C 2964 0001:0008B9A1 2965 0001:0008B9B2 2967 0001:0008B9BA + 2970 0001:0008B9C4 2971 0001:0008B9CD 2972 0001:0008B9DC 2973 0001:0008B9EA + 2974 0001:0008BA01 2984 0001:0008BA08 2985 0001:0008BA14 2986 0001:0008BA1F + 2987 0001:0008BA2F 2990 0001:0008BA73 2995 0001:0008BA84 2996 0001:0008BA8D + 2997 0001:0008BA95 2998 0001:0008BAA6 3000 0001:0008BAB6 3001 0001:0008BACD + 3002 0001:0008BADB 3003 0001:0008BAE6 3005 0001:0008BAF2 3006 0001:0008BB22 + 3009 0001:0008BB41 3011 0001:0008BB52 3012 0001:0008BB65 3014 0001:0008BB6F + 3016 0001:0008BB7B 3017 0001:0008BB87 3018 0001:0008BBA1 3019 0001:0008BBBC + 3021 0001:0008BBCA 3022 0001:0008BBD6 3023 0001:0008BBF0 3026 0001:0008BC0B + 3027 0001:0008BC21 3028 0001:0008BC39 3031 0001:0008BC40 3032 0001:0008BC47 + 3034 0001:0008BC59 3035 0001:0008BC6D 3036 0001:0008BC82 3038 0001:0008BC99 + 3039 0001:0008BCA1 3042 0001:0008BCA4 3043 0001:0008BCB0 3045 0001:0008BCBC + 3046 0001:0008BCE9 3049 0001:0008BCF5 3050 0001:0008BD00 3055 0001:0008BD04 + 3056 0001:0008BD10 3057 0001:0008BD2E 3058 0001:0008BD3F 3064 0001:0008BD44 + 3065 0001:0008BD5D 3066 0001:0008BD6B 3067 0001:0008BD89 3068 0001:0008BD9B + 3069 0001:0008BDB5 3070 0001:0008BDC3 3071 0001:0008BE06 3080 0001:0008BE0C + 3081 0001:0008BE30 3082 0001:0008BE3B 3083 0001:0008BE4B 3084 0001:0008BE58 + 3087 0001:0008BE75 3088 0001:0008BE8A 3089 0001:0008BE97 3091 0001:0008BEA5 + 3092 0001:0008BEBA 3094 0001:0008BEBF 3095 0001:0008BEDF 3098 0001:0008BEEE + 3099 0001:0008BEFF 3101 0001:0008BF0B 3103 0001:0008BF37 3104 0001:0008BF42 + 3105 0001:0008BF4A 3106 0001:0008BF5C 3107 0001:0008BF71 3108 0001:0008BF88 + 3109 0001:0008BFB6 3110 0001:0008BFDB 3115 0001:0008BFF8 3114 0001:0008C01A + 3116 0001:0008C03C 3118 0001:0008C05E 3119 0001:0008C064 3122 0001:0008C075 + 3123 0001:0008C08D 3124 0001:0008C097 3125 0001:0008C0A8 3127 0001:0008C0E1 + 3129 0001:0008C102 3131 0001:0008C117 3133 0001:0008C13C 3135 0001:0008C164 + 3136 0001:0008C17C 3141 0001:0008C184 3142 0001:0008C193 3144 0001:0008C1EA + 3150 0001:0008C1F0 3151 0001:0008C21A 3153 0001:0008C226 3154 0001:0008C22A + 3155 0001:0008C238 3156 0001:0008C244 3158 0001:0008C249 3159 0001:0008C26A + 3160 0001:0008C272 3161 0001:0008C27C 3162 0001:0008C28E 3163 0001:0008C2AE + 3164 0001:0008C2C5 3165 0001:0008C2DE 3167 0001:0008C2EF 3168 0001:0008C33A + 3172 0001:0008C374 3173 0001:0008C382 3175 0001:0008C392 3177 0001:0008C398 + 3178 0001:0008C3A4 3180 0001:0008C3DD 3183 0001:0008C3E4 3184 0001:0008C3F4 + 3185 0001:0008C41A 3190 0001:0008C420 3191 0001:0008C42D 3193 0001:0008C436 + 3194 0001:0008C441 3195 0001:0008C44A 3196 0001:0008C450 3197 0001:0008C459 + 3198 0001:0008C45E 3199 0001:0008C472 3200 0001:0008C486 3201 0001:0008C49D + 3203 0001:0008C4AC 3204 0001:0008C4C2 3206 0001:0008C4D8 3207 0001:0008C4E1 + 3208 0001:0008C4FF 3209 0001:0008C513 3210 0001:0008C52C 3212 0001:0008C53C + 3215 0001:0008C544 3216 0001:0008C551 3218 0001:0008C55A 3219 0001:0008C569 + 3220 0001:0008C575 3222 0001:0008C58C 3227 0001:0008C594 3228 0001:0008C5A0 + 3231 0001:0008C5CF 3232 0001:0008C5DA 3233 0001:0008C5E7 3235 0001:0008C5E9 + 3236 0001:0008C5F4 3238 0001:0008C600 3239 0001:0008C60B 3240 0001:0008C61F + 3242 0001:0008C629 3245 0001:0008C630 3247 0001:0008C63C 3249 0001:0008C64B + 3251 0001:0008C661 3252 0001:0008C678 3255 0001:0008C67A 3256 0001:0008C685 + 3259 0001:0008C68C 3260 0001:0008C695 3261 0001:0008C6A9 3264 0001:0008C6B0 + 3265 0001:0008C6B9 3266 0001:0008C6C4 3279 0001:0008C6C8 3280 0001:0008C6D4 + 3281 0001:0008C6DF 3282 0001:0008C6EF 3283 0001:0008C6FE 3284 0001:0008C70C + 3287 0001:0008C717 3288 0001:0008C722 3289 0001:0008C733 3290 0001:0008C73E + 3291 0001:0008C74B 3292 0001:0008C756 3294 0001:0008C766 3295 0001:0008C76B + 3296 0001:0008C783 3297 0001:0008C79B 3299 0001:0008C7A1 3300 0001:0008C7AC + 3301 0001:0008C7BD 3302 0001:0008C7C8 3303 0001:0008C7D5 3305 0001:0008C7E0 + 3306 0001:0008C7EB 3308 0001:0008C7F6 3309 0001:0008C809 3310 0001:0008C81B + 3311 0001:0008C82D 3312 0001:0008C83F 3313 0001:0008C84F 3314 0001:0008C861 + 3316 0001:0008C871 3318 0001:0008C8D8 3319 0001:0008C8E8 3320 0001:0008C8F4 + 3322 0001:0008C90F 3326 0001:0008C935 3328 0001:0008C945 3331 0001:0008C94C + 3332 0001:0008C958 3337 0001:0008C95C 3338 0001:0008C968 3339 0001:0008C973 + 3340 0001:0008C987 3343 0001:0008C98C 3344 0001:0008C996 3346 0001:0008C9D4 + 3349 0001:0008C9DC 3350 0001:0008C9E8 3352 0001:0008C9F4 3353 0001:0008CA01 + 3354 0001:0008CA0F 3356 0001:0008CA2D 3359 0001:0008CA42 3364 0001:0008CA48 + 3365 0001:0008CA63 3366 0001:0008CA70 3367 0001:0008CA85 3368 0001:0008CAAA + 3371 0001:0008CAB0 3372 0001:0008CABF 3373 0001:0008CACD 3376 0001:0008CADF + 3377 0001:0008CAF4 3379 0001:0008CB05 3382 0001:0008CB0C 3383 0001:0008CB15 + 3384 0001:0008CB20 3387 0001:0008CB24 3388 0001:0008CB2D 3389 0001:0008CB34 + 3392 0001:0008CB38 3393 0001:0008CB41 3394 0001:0008CB65 3397 0001:0008CB6C + 3398 0001:0008CB78 3401 0001:0008CB7C 3402 0001:0008CB89 3404 0001:0008CBA3 + 3406 0001:0008CBBC 3407 0001:0008CBC6 3408 0001:0008CBD4 3409 0001:0008CBDE + 3412 0001:0008CBF0 3414 0001:0008CBFC 3415 0001:0008CC07 3418 0001:0008CC0C + 3419 0001:0008CC18 3420 0001:0008CC20 3422 0001:0008CC2C 3424 0001:0008CC4A + 3427 0001:0008CC59 3428 0001:0008CC64 3431 0001:0008CC68 3433 0001:0008CC74 + 3434 0001:0008CC82 3436 0001:0008CC8E 3437 0001:0008CC99 3440 0001:0008CCA0 + 3441 0001:0008CCAC 3442 0001:0008CCB7 3443 0001:0008CCC3 3444 0001:0008CCCD + 3447 0001:0008CCD4 3448 0001:0008CCE0 3450 0001:0008CCEE 3451 0001:0008CCFA + 3453 0001:0008CD02 3458 0001:0008CD08 3459 0001:0008CD23 3460 0001:0008CD30 + 3461 0001:0008CD3C 3462 0001:0008CD49 3463 0001:0008CD56 3464 0001:0008CD7B + 3469 0001:0008CD84 3470 0001:0008CD8D 3471 0001:0008CD98 3472 0001:0008CDB0 + 3473 0001:0008CDB8 3476 0001:0008CDBC 3477 0001:0008CDC5 3478 0001:0008CDCC + 3485 0001:0008CDD0 3486 0001:0008CDDC 3488 0001:0008CDE8 3489 0001:0008CDFC + 3490 0001:0008CE17 3492 0001:0008CE31 3497 0001:0008CE38 3498 0001:0008CE44 + 3499 0001:0008CE50 3501 0001:0008CE5C 3502 0001:0008CE67 3503 0001:0008CE6D + 3505 0001:0008CE86 3510 0001:0008CE8C 3511 0001:0008CE98 3512 0001:0008CEA3 + 3513 0001:0008CEB3 3514 0001:0008CECA 3517 0001:0008CED8 3518 0001:0008CEDF + 3519 0001:0008CEE7 3520 0001:0008CEF9 3523 0001:0008CEFC 3524 0001:0008CF09 + 3525 0001:0008CF1F 3528 0001:0008CF24 3530 0001:0008CF31 3534 0001:0008CF82 + 3535 0001:0008CF8E 3537 0001:0008CF9A 3538 0001:0008CFA5 3541 0001:0008CFB0 + 3543 0001:0008CFD0 3545 0001:0008CFFE 3546 0001:0008D00A 3548 0001:0008D016 + 3549 0001:0008D03E 3552 0001:0008D044 3554 0001:0008D050 3555 0001:0008D065 + 3557 0001:0008D07C 3558 0001:0008D08E 3559 0001:0008D0A2 3560 0001:0008D0AD + 3563 0001:0008D0B4 3564 0001:0008D0C0 3565 0001:0008D0CE 3567 0001:0008D0DA + 3568 0001:0008D0E5 3571 0001:0008D0EC 3572 0001:0008D0F8 3573 0001:0008D100 + 3575 0001:0008D10C 3577 0001:0008D12A 3580 0001:0008D139 3581 0001:0008D144 + 3586 0001:0008D148 3587 0001:0008D163 3588 0001:0008D170 3589 0001:0008D17D + 3590 0001:0008D18A 3591 0001:0008D194 3592 0001:0008D1A0 3593 0001:0008D1C5 + 3596 0001:0008D1D0 3597 0001:0008D1DA 3598 0001:0008D1EA 3600 0001:0008D1F0 + 3601 0001:0008D1FC 3603 0001:0008D202 3604 0001:0008D209 3607 0001:0008D210 + 3608 0001:0008D217 3610 0001:0008D22C 3611 0001:0008D251 3612 0001:0008D25E + 3614 0001:0008D268 3617 0001:0008D26C 3618 0001:0008D273 3619 0001:0008D27B + 3620 0001:0008D283 3623 0001:0008D288 3624 0001:0008D291 3625 0001:0008D2A2 + 3628 0001:0008D2A8 3629 0001:0008D2B4 3631 0001:0008D2C2 3632 0001:0008D2CE + 3634 0001:0008D2D6 3637 0001:0008D2DC 3638 0001:0008D2E8 3639 0001:0008D304 + 3642 0001:0008D308 3643 0001:0008D315 3645 0001:0008D323 3646 0001:0008D32F + 3647 0001:0008D33B 3648 0001:0008D35B 3650 0001:0008D373 3656 0001:0008D378 + 3657 0001:0008D385 3658 0001:0008D390 3661 0001:0008D3A0 3663 0001:0008D3D4 + 3665 0001:0008D3DB 3668 0001:0008D3E8 3669 0001:0008D3EF 3670 0001:0008D3F7 + 3671 0001:0008D417 3674 0001:0008D41C 3675 0001:0008D428 3676 0001:0008D433 + 3677 0001:0008D43B 3680 0001:0008D440 3681 0001:0008D44C 3682 0001:0008D454 + 3685 0001:0008D458 3687 0001:0008D478 3689 0001:0008D4A6 3690 0001:0008D4B1 + 3691 0001:0008D4CC 3693 0001:0008D4D8 3694 0001:0008D500 3697 0001:0008D508 + 3698 0001:0008D514 3699 0001:0008D529 3704 0001:0008D530 3705 0001:0008D54B + 3706 0001:0008D558 3707 0001:0008D565 3708 0001:0008D572 3709 0001:0008D57E + 3710 0001:0008D5A3 3713 0001:0008D5AC 3714 0001:0008D5B5 3715 0001:0008D5C4 + 3718 0001:0008D5C8 3719 0001:0008D5D2 3720 0001:0008D5E2 3722 0001:0008D5E8 + 3723 0001:0008D5F4 3725 0001:0008D5FA 3726 0001:0008D601 3729 0001:0008D608 + 3730 0001:0008D614 3732 0001:0008D622 3733 0001:0008D62E 3735 0001:0008D636 + 3743 0001:0008D63C 3744 0001:0008D642 3745 0001:0008D652 3746 0001:0008D65E + 3748 0001:0008D67A 3749 0001:0008D688 3752 0001:0008D6A5 3755 0001:0008D6D9 + 3756 0001:0008D6E8 3758 0001:0008D6F5 3746 0001:0008D6F8 3759 0001:0008D701 + 3761 0001:0008D708 3762 0001:0008D715 3764 0001:0008D723 3765 0001:0008D72F + 3766 0001:0008D73A 3767 0001:0008D746 3768 0001:0008D76A 3770 0001:0008D770 + 3771 0001:0008D777 3772 0001:0008D77F 3775 0001:0008D797 3781 0001:0008D79C + 3782 0001:0008D7A9 3783 0001:0008D7B4 3784 0001:0008D7C4 3787 0001:0008D7F8 + 3790 0001:0008D808 3791 0001:0008D80F 3792 0001:0008D817 3793 0001:0008D837 + 3796 0001:0008D83C 3797 0001:0008D848 3798 0001:0008D850 3801 0001:0008D854 + 3803 0001:0008D874 3805 0001:0008D8A2 3806 0001:0008D8AD 3808 0001:0008D8B9 + 3809 0001:0008D8E1 3812 0001:0008D8E8 3813 0001:0008D8F5 3814 0001:0008D90A + 3815 0001:0008D919 3817 0001:0008D925 3822 0001:0008D92C 3823 0001:0008D935 + 3824 0001:0008D955 3829 0001:0008D95C 3830 0001:0008D97F 3831 0001:0008D991 + 3834 0001:0008D9A7 3835 0001:0008D9C6 3836 0001:0008D9E7 3837 0001:0008D9F2 + 3839 0001:0008D9F8 3840 0001:0008DA20 3843 0001:0008DA48 3846 0001:0008DA50 + 3847 0001:0008DA70 3848 0001:0008DA82 3851 0001:0008DA95 3852 0001:0008DAAA + 3854 0001:0008DAEB 3860 0001:0008DAF0 3861 0001:0008DB01 3862 0001:0008DB12 + 3864 0001:0008DB27 3865 0001:0008DB3B 3866 0001:0008DB46 3867 0001:0008DB56 + 3868 0001:0008DB6B 3869 0001:0008DB7C 3872 0001:0008DB84 3873 0001:0008DB94 + 3874 0001:0008DBAC 3875 0001:0008DBC1 3878 0001:0008DBC8 3879 0001:0008DBE7 + 3880 0001:0008DBEE 3881 0001:0008DC00 3882 0001:0008DC24 3883 0001:0008DC6B + 3886 0001:0008DC70 3887 0001:0008DC93 3888 0001:0008DCA5 3890 0001:0008DCCC + 3891 0001:0008DD0A 3894 0001:0008DD10 3895 0001:0008DD1D 3896 0001:0008DD2F + 3902 0001:0008DD34 3903 0001:0008DD5B 3904 0001:0008DD71 3905 0001:0008DD79 + 3906 0001:0008DD87 3907 0001:0008DD95 3908 0001:0008DDAA 3909 0001:0008DDC6 + 3910 0001:0008DDEC 3911 0001:0008DDFA 3912 0001:0008DE0F 3913 0001:0008DE22 + 3914 0001:0008DE35 3915 0001:0008DE48 3917 0001:0008DE66 3919 0001:0008DE98 + 3922 0001:0008DEA0 3923 0001:0008DEA8 3924 0001:0008DEB7 3927 0001:0008DEBC + 3928 0001:0008DEC8 3929 0001:0008DEE6 3930 0001:0008DEF7 3933 0001:0008DEFC + 3934 0001:0008DF08 3935 0001:0008DF1A 3937 0001:0008DF2D 3938 0001:0008DF54 + 3944 0001:0008DF58 3945 0001:0008DF7C 3946 0001:0008DF92 3947 0001:0008DF9A + 3948 0001:0008DFA7 3949 0001:0008DFB5 3951 0001:0008DFBD 3952 0001:0008DFCB + 3953 0001:0008DFE0 3954 0001:0008DFF4 3955 0001:0008DFFF 3956 0001:0008E00D + 3959 0001:0008E02F 3960 0001:0008E03C 3962 0001:0008E069 3969 0001:0008E070 + 3970 0001:0008E08B 3971 0001:0008E098 3972 0001:0008E0A2 3973 0001:0008E0B0 + 3974 0001:0008E0BC 3975 0001:0008E0C9 3976 0001:0008E0D6 3977 0001:0008E0E0 + 3978 0001:0008E0EA 3979 0001:0008E0F4 3980 0001:0008E109 3981 0001:0008E118 + 3982 0001:0008E12D 3983 0001:0008E13E 3984 0001:0008E14B 3985 0001:0008E155 + 3986 0001:0008E15F 3987 0001:0008E187 3990 0001:0008E194 3991 0001:0008E1A5 + 3992 0001:0008E1B3 3993 0001:0008E1C1 3994 0001:0008E1CF 3995 0001:0008E1EB + 4000 0001:0008E1F0 4001 0001:0008E21B 4002 0001:0008E23C 4003 0001:0008E275 + 4006 0001:0008E27C 4007 0001:0008E288 4008 0001:0008E2A7 4011 0001:0008E2AC + 4012 0001:0008E2BB 4013 0001:0008E2D6 4016 0001:0008E2DC 4017 0001:0008E2E9 + 4018 0001:0008E2FE 4021 0001:0008E304 4022 0001:0008E314 4023 0001:0008E326 + 4026 0001:0008E32C 4027 0001:0008E338 4028 0001:0008E351 4031 0001:0008E358 + 4032 0001:0008E35F 4033 0001:0008E36E 4034 0001:0008E385 4037 0001:0008E388 + 4038 0001:0008E38F 4039 0001:0008E39D 4044 0001:0008E3A0 4045 0001:0008E3A9 + 4046 0001:0008E3B5 4047 0001:0008E3D3 4048 0001:0008E3E0 4046 0001:0008E3E3 + 4049 0001:0008E3EA 4050 0001:0008E3F8 4055 0001:0008E3FC 4056 0001:0008E425 + 4058 0001:0008E435 4059 0001:0008E457 4060 0001:0008E466 4058 0001:0008E4B2 + 4063 0001:0008E4B9 4064 0001:0008E4C7 4065 0001:0008E546 4070 0001:0008E54C + 4071 0001:0008E555 4073 0001:0008E561 4074 0001:0008E578 4075 0001:0008E587 + 4073 0001:0008E59B 4078 0001:0008E5A3 4079 0001:0008E5B1 4080 0001:0008E5CC + 4085 0001:0008E5D0 4086 0001:0008E5D9 4088 0001:0008E5EE 4089 0001:0008E60F + 4090 0001:0008E61C 4092 0001:0008E635 4095 0001:0008E63C 4096 0001:0008E648 + 4097 0001:0008E656 4099 0001:0008E668 4100 0001:0008E674 4103 0001:0008E67E + 4104 0001:0008E68A 4106 0001:0008E69E 4109 0001:0008E6A4 4110 0001:0008E6AD + 4111 0001:0008E6B9 4113 0001:0008E6D5 4114 0001:0008E6F2 4117 0001:0008E6F8 + 4118 0001:0008E701 4119 0001:0008E710 4121 0001:0008E71E 4122 0001:0008E732 + 4125 0001:0008E738 4126 0001:0008E741 4127 0001:0008E75E 4130 0001:0008E764 + 4131 0001:0008E770 4132 0001:0008E780 4133 0001:0008E7A7 4134 0001:0008E7C0 + 4137 0001:0008E7C4 4138 0001:0008E7D0 4140 0001:0008E7DE 4141 0001:0008E7EA + 4143 0001:0008E7F2 4146 0001:0008E7F8 4147 0001:0008E805 4149 0001:0008E813 + 4150 0001:0008E81F 4151 0001:0008E827 4153 0001:0008E833 4158 0001:0008E838 + 4159 0001:0008E841 4160 0001:0008E84D 4162 0001:0008E865 4163 0001:0008E878 + 4165 0001:0008E884 4168 0001:0008E888 4169 0001:0008E894 4171 0001:0008E8A8 + 4172 0001:0008E8B4 4174 0001:0008E8BC 4177 0001:0008E8C0 4178 0001:0008E8CC + 4179 0001:0008E8D7 4181 0001:0008E8E5 4182 0001:0008E8F1 4184 0001:0008E8F9 + 4187 0001:0008E900 4188 0001:0008E90C 4190 0001:0008E91A 4191 0001:0008E926 + 4193 0001:0008E92E 4198 0001:0008E934 4199 0001:0008E940 4200 0001:0008E95C + 4201 0001:0008E962 4202 0001:0008E989 4203 0001:0008E996 4206 0001:0008E99C + 4207 0001:0008E9AB 4209 0001:0008E9B7 4210 0001:0008E9DB 4213 0001:0008EA04 + 4215 0001:0008EA0A 4216 0001:0008EA26 4219 0001:0008EA4F 4220 0001:0008EA66 + 4223 0001:0008EA6C 4224 0001:0008EA78 4225 0001:0008EA87 4227 0001:0008EA95 + 4228 0001:0008EAA1 4230 0001:0008EAA9 4233 0001:0008EAB0 4234 0001:0008EABC + 4236 0001:0008EACA 4238 0001:0008EAD3 4239 0001:0008EAE1 4241 0001:0008EAEB + 4242 0001:0008EAF7 4244 0001:0008EAFF 4247 0001:0008EB04 4248 0001:0008EB0D + 4249 0001:0008EB2A 4254 0001:0008EB30 4255 0001:0008EB50 4257 0001:0008EB5F + 4259 0001:0008EB88 4260 0001:0008EB90 4261 0001:0008EBAC 4262 0001:0008EBC1 + 4265 0001:0008EBD1 4268 0001:0008EBDD 4269 0001:0008EC05 4274 0001:0008EC0C + 4275 0001:0008EC2C 4277 0001:0008EC3B 4279 0001:0008EC64 4280 0001:0008EC6C + 4281 0001:0008EC88 4284 0001:0008EC98 4287 0001:0008ECA4 4288 0001:0008ECCC + 4291 0001:0008ECD4 4292 0001:0008ECE0 4294 0001:0008ECEE 4295 0001:0008ECFA + 4297 0001:0008ED02 4300 0001:0008ED08 4301 0001:0008ED14 4302 0001:0008ED21 + 4303 0001:0008ED3A 4306 0001:0008ED40 4307 0001:0008ED4C 4308 0001:0008ED5B + 4309 0001:0008ED6E 4310 0001:0008ED7A 4312 0001:0008ED84 4313 0001:0008ED95 + 4319 0001:0008ED9C 4320 0001:0008EDB1 4322 0001:0008EDCF 4323 0001:0008EDDA + 4324 0001:0008EDEB 4326 0001:0008EDF3 4327 0001:0008EE07 4328 0001:0008EE1A + 4324 0001:0008EE1D 4330 0001:0008EE25 4332 0001:0008EE2B 4333 0001:0008EE35 + 4338 0001:0008EE3C 4339 0001:0008EE4B 4340 0001:0008EE5C 4341 0001:0008EE6A + 4342 0001:0008EE80 4344 0001:0008EE88 4345 0001:0008EE9D 4346 0001:0008EEB7 + 4347 0001:0008EEC6 4367 0001:0008EECC 4368 0001:0008EED9 4369 0001:0008EEE4 + 4372 0001:0008EEF4 4373 0001:0008EEFC 4374 0001:0008EF10 4380 0001:0008EFC0 + 4382 0001:0008EFE2 4383 0001:0008EFEC 4385 0001:0008EFF6 4387 0001:0008F017 + 4392 0001:0008F024 4393 0001:0008F02D 4394 0001:0008F036 4395 0001:0008F03F + 4396 0001:0008F047 4397 0001:0008F06F 4398 0001:0008F07B 4399 0001:0008F099 + 4400 0001:0008F0A1 4402 0001:0008F0BD 4403 0001:0008F0CC 4404 0001:0008F0DD + 4406 0001:0008F0E9 4407 0001:0008F100 4409 0001:0008F10D 4410 0001:0008F11E + 4411 0001:0008F132 4413 0001:0008F13F 4416 0001:0008F144 4417 0001:0008F14B + 4419 0001:0008F15D 4420 0001:0008F16C 4423 0001:0008F185 4424 0001:0008F19A + 4426 0001:0008F1B1 4427 0001:0008F1C2 4429 0001:0008F1D6 4430 0001:0008F1DE + 4433 0001:0008F1E4 4435 0001:0008F1F0 4438 0001:0008F21B 4440 0001:0008F224 + 4442 0001:0008F233 4443 0001:0008F247 4444 0001:0008F252 4447 0001:0008F254 + 4448 0001:0008F25F 4454 0001:0008F268 4455 0001:0008F274 4456 0001:0008F283 + 4458 0001:0008F298 4460 0001:0008F2A4 4461 0001:0008F2C2 4463 0001:0008F2D7 + 4464 0001:0008F2E4 4468 0001:0008F2E6 4469 0001:0008F2F1 4471 0001:0008F312 + 4472 0001:0008F31F 4475 0001:0008F324 4476 0001:0008F331 4479 0001:0008F344 + 4480 0001:0008F34C 4482 0001:0008F35A 4484 0001:0008F366 4496 0001:0008F36C + 4498 0001:0008F377 4499 0001:0008F37E 4500 0001:0008F384 4501 0001:0008F392 + 4502 0001:0008F399 4503 0001:0008F3A0 4504 0001:0008F3A5 4505 0001:0008F3B1 + 4506 0001:0008F3BF 4509 0001:0008F3CD 4510 0001:0008F3D4 4511 0001:0008F3E2 + 4512 0001:0008F3E8 4513 0001:0008F3EF 4516 0001:0008F3FD 4517 0001:0008F402 + 4518 0001:0008F410 4519 0001:0008F426 4520 0001:0008F432 4521 0001:0008F43E + 4523 0001:0008F44A 4524 0001:0008F450 4525 0001:0008F466 4526 0001:0008F47D + 4527 0001:0008F483 4528 0001:0008F492 4529 0001:0008F498 4530 0001:0008F49E + 4531 0001:0008F4AC 4533 0001:0008F4D4 4534 0001:0008F4E2 4535 0001:0008F4E8 + 4536 0001:0008F4EB 4521 0001:0008F501 4538 0001:0008F50D 4540 0001:0008F514 + 4541 0001:0008F520 4544 0001:0008F529 4545 0001:0008F532 4546 0001:0008F53D + 4549 0001:0008F544 4550 0001:0008F550 4551 0001:0008F55B 4552 0001:0008F563 + 4558 0001:0008F568 4561 0001:0008F571 4562 0001:0008F578 4563 0001:0008F581 + 4564 0001:0008F59A 4565 0001:0008F59F 4567 0001:0008F5A4 4568 0001:0008F5AF + 4569 0001:0008F5B6 4570 0001:0008F5C1 4577 0001:0008F5C8 4578 0001:0008F5F3 + 4580 0001:0008F623 4581 0001:0008F634 4583 0001:0008F648 4584 0001:0008F658 + 4585 0001:0008F668 4587 0001:0008F66E 4588 0001:0008F672 4589 0001:0008F67A + 4590 0001:0008F689 4592 0001:0008F699 4593 0001:0008F6AD 4596 0001:0008F6F8 + 4599 0001:0008F704 4600 0001:0008F714 4601 0001:0008F73A 4606 0001:0008F740 + 4607 0001:0008F74D 4609 0001:0008F756 4610 0001:0008F761 4611 0001:0008F775 + 4612 0001:0008F789 4613 0001:0008F7A0 4615 0001:0008F7AF 4616 0001:0008F7C5 + 4618 0001:0008F7DB 4619 0001:0008F7E4 4620 0001:0008F802 4621 0001:0008F816 + 4622 0001:0008F82F 4624 0001:0008F83F 4627 0001:0008F844 4628 0001:0008F851 + 4630 0001:0008F85A 4631 0001:0008F869 4632 0001:0008F875 4634 0001:0008F88C + 4637 0001:0008F894 4638 0001:0008F8A0 4639 0001:0008F8BE 4640 0001:0008F8C9 + 4645 0001:0008F8D0 4646 0001:0008F8D9 4647 0001:0008F8E5 4648 0001:0008F903 + 4647 0001:0008F913 4649 0001:0008F918 4656 0001:0008F91C 4657 0001:0008F921 + 4658 0001:0008F933 4660 0001:0008F94F 4661 0001:0008F97C 4663 0001:0008F982 + 4665 0001:0008F991 4666 0001:0008F99F 4668 0001:0008F9C5 4669 0001:0008F9D6 + 4671 0001:0008F9E5 4672 0001:0008F9F9 4673 0001:0008FA02 4677 0001:0008FA08 + 4678 0001:0008FA2E 4679 0001:0008FA39 4680 0001:0008FA49 4681 0001:0008FA5E + 4682 0001:0008FA6B 4684 0001:0008FA79 4686 0001:0008FA86 4688 0001:0008FA9B + 4690 0001:0008FAC1 4691 0001:0008FAFA 4695 0001:0008FB05 4700 0001:0008FB24 + 4699 0001:0008FB46 4701 0001:0008FB68 4704 0001:0008FB8A 4705 0001:0008FB9C + 4708 0001:0008FBA5 4709 0001:0008FBB2 4711 0001:0008FBE0 4716 0001:0008FBE8 + 4717 0001:0008FC0A 4720 0001:0008FC19 4721 0001:0008FC35 4722 0001:0008FC41 + 4724 0001:0008FC4F 4727 0001:0008FC85 4728 0001:0008FCDB 4731 0001:0008FCE0 + 4732 0001:0008FCF0 4733 0001:0008FD16 4736 0001:0008FD1C 4737 0001:0008FD29 + 4738 0001:0008FD52 4741 0001:0008FD58 4742 0001:0008FD65 4743 0001:0008FD72 + 4745 0001:0008FD8C 4746 0001:0008FD96 4749 0001:0008FD9C 4750 0001:0008FDA5 + 4751 0001:0008FDC2 4754 0001:0008FDC8 4755 0001:0008FDD4 4756 0001:0008FDE1 + 4757 0001:0008FDFA 4762 0001:0008FE00 4763 0001:0008FE1B 4764 0001:0008FE28 + 4765 0001:0008FE35 4766 0001:0008FE46 4767 0001:0008FE50 4768 0001:0008FE5C + 4769 0001:0008FE66 4770 0001:0008FE71 4771 0001:0008FE7C 4772 0001:0008FE89 + 4773 0001:0008FE95 4774 0001:0008FEA1 4775 0001:0008FEB6 4776 0001:0008FEDB + 4781 0001:0008FEE4 4782 0001:0008FEF1 4783 0001:0008FEFC 4784 0001:0008FF0C + 4785 0001:0008FF23 4786 0001:0008FF2F 4787 0001:0008FF3F 4789 0001:0008FF48 + 4790 0001:0008FF4F 4791 0001:0008FF5B 4793 0001:0008FF6A 4794 0001:0008FF77 + 4800 0001:0008FF88 4803 0001:0008FF91 4804 0001:0008FF9C 4805 0001:0008FFA4 + 4807 0001:0008FFAF 4808 0001:0008FFD5 4809 0001:0008FFDC 4810 0001:0008FFE8 + 4811 0001:0008FFEF 4812 0001:00090005 4813 0001:00090011 4815 0001:0009002F + 4816 0001:00090054 4819 0001:00090058 4820 0001:00090061 4821 0001:00090085 + 4824 0001:0009008C 4825 0001:00090099 4827 0001:000900A7 4828 0001:000900B3 + 4829 0001:000900BC 4830 0001:000900E1 4832 0001:000900E9 4835 0001:000900F0 + 4836 0001:00090114 4837 0001:0009012A 4838 0001:0009014B 4839 0001:00090159 + 4840 0001:00090167 4842 0001:00090183 4843 0001:0009018F 4844 0001:0009019B + 4845 0001:000901A7 4847 0001:000901D3 4849 0001:000901E1 4850 0001:000901ED + 4851 0001:000901F9 4852 0001:00090205 4854 0001:00090223 4855 0001:00090248 + 4856 0001:00090252 4858 0001:0009027B 4861 0001:00090284 4862 0001:00090290 + 4863 0001:000902AE 4868 0001:000902B4 4869 0001:000902C0 4870 0001:000902DC + 4871 0001:000902E8 4872 0001:000902EF 4873 0001:000902F5 4874 0001:000902FC + 4875 0001:00090308 4876 0001:0009031E 4879 0001:00090324 4880 0001:00090330 + 4881 0001:0009034E 4884 0001:00090354 4885 0001:00090360 4886 0001:0009037E + 4889 0001:00090384 4890 0001:0009038C 4891 0001:00090394 4892 0001:000903B3 + 4895 0001:000903B8 4896 0001:000903C8 4897 0001:000903EE 4904 0001:000903F4 + 4907 0001:00090401 4908 0001:0009040D 4910 0001:00090444 4912 0001:0009045F + 4914 0001:0009047A 4916 0001:00090492 4920 0001:000904AA 4921 0001:000904B1 + 4922 0001:000904B8 4923 0001:000904CC 4927 0001:000904D2 4930 0001:000904EF + 4932 0001:000904FD 4934 0001:00090509 4935 0001:00090523 4936 0001:0009053D + 4937 0001:00090543 4938 0001:00090558 4940 0001:00090563 4943 0001:00090568 + 4944 0001:00090574 4945 0001:0009057F 4948 0001:00090584 4949 0001:00090590 + 4950 0001:0009059B 4953 0001:000905A0 4954 0001:000905AC 4956 0001:000905D8 + 4959 0001:000905DC 4960 0001:000905E8 4961 0001:000905F3 4966 0001:000905F8 + 4967 0001:00090613 4968 0001:00090620 4970 0001:0009062C 4971 0001:00090639 + 4972 0001:00090646 4973 0001:00090650 4974 0001:0009065A 4975 0001:0009067D + 4982 0001:00090688 4983 0001:00090695 4984 0001:000906A0 4987 0001:000906B0 + 4989 0001:000906FB 4990 0001:00090711 4992 0001:00090718 4995 0001:00090728 + 4996 0001:00090748 4998 0001:0009078A 4999 0001:00090796 5001 0001:000907A6 + 5002 0001:000907B1 5004 0001:000907D8 5007 0001:000907E0 5008 0001:000907EC + 5009 0001:000907F7 5010 0001:000907FF 5013 0001:00090804 5014 0001:00090810 + 5015 0001:0009081B 5016 0001:00090823 5017 0001:0009082B 5020 0001:00090830 + 5021 0001:00090837 5022 0001:0009083F 5023 0001:00090847 5030 0001:0009084C + 5031 0001:0009086C 5033 0001:00090889 5034 0001:00090893 5035 0001:000908AB + 5036 0001:000908E0 5037 0001:000908ED 5038 0001:000908F8 5042 0001:0009094D + 5046 0001:00090954 5047 0001:00090963 5048 0001:00090971 5049 0001:00090985 + 5050 0001:00090990 5053 0001:00090994 5054 0001:000909A0 5056 0001:000909AE + 5057 0001:000909BA 5059 0001:000909C2 5062 0001:000909C8 5063 0001:000909D4 + 5065 0001:000909E2 5066 0001:000909EE 5068 0001:000909FC 5071 0001:00090A00 + 5072 0001:00090A0C 5074 0001:00090A1A 5075 0001:00090A26 5077 0001:00090A2E + 5080 0001:00090A34 5081 0001:00090A40 5082 0001:00090A4C 5083 0001:00090A5D + 5086 0001:00090A64 5087 0001:00090A70 5089 0001:00090A7E 5090 0001:00090A8A + 5092 0001:00090A92 5096 0001:00090A98 5097 0001:00090AA4 5098 0001:00090AAC + 5100 0001:00090AC4 5101 0001:00090AD2 5103 0001:00090AF0 5106 0001:00090AFF + 5107 0001:00090B0A 5110 0001:00090B10 5111 0001:00090B1C 5113 0001:00090B29 + 5114 0001:00090B2F 5116 0001:00090B44 5117 0001:00090B55 5119 0001:00090B5D + 5122 0001:00090B68 5123 0001:00090B71 5124 0001:00090B83 5126 0001:00090BB8 + 5126 0001:00090BBF + +Line numbers for StdActns(StdActns.pas) segment .text + + 501 0001:00090CB4 502 0001:00090CCF 503 0001:00090CDC 504 0001:00090CFE + 1199 0001:00090D34 1199 0001:00090D3B + +Line numbers for WinHelpViewer(WinHelpViewer.pas) segment .text + + 176 0001:00090D44 197 0001:00090EE8 198 0001:00090F0E 199 0001:00090F16 + 200 0001:00090F25 201 0001:00090F35 202 0001:00090F40 203 0001:00090F46 + 204 0001:00090F4F 206 0001:00090F5C 207 0001:00090F65 208 0001:00090F8A + 209 0001:00090FB7 215 0001:00090FC8 216 0001:00090FCF 217 0001:00090FD7 + 219 0001:00090FE0 220 0001:00090FF1 222 0001:00090FFC 230 0001:00091000 + 231 0001:0009100C 232 0001:0009101A 239 0001:00091020 241 0001:00091040 + 243 0001:00091049 244 0001:00091069 245 0001:0009106F 247 0001:00091078 + 256 0001:0009107F 262 0001:000910A6 270 0001:000910AC 272 0001:000910CE + 273 0001:000910D7 279 0001:000910E9 281 0001:000910F8 284 0001:0009114B + 291 0001:0009115C 292 0001:00091165 293 0001:0009116C 301 0001:00091170 + 302 0001:0009118A 304 0001:00091196 305 0001:0009119D 306 0001:000911B9 + 307 0001:000911BF 310 0001:000911FF 325 0001:00091204 326 0001:00091229 + 327 0001:00091245 328 0001:0009127C 330 0001:00091288 331 0001:00091295 + 333 0001:000912AE 334 0001:000912B5 335 0001:000912C3 339 0001:00091315 + 366 0001:0009135C 367 0001:00091368 368 0001:00091371 373 0001:00091378 + 374 0001:0009137F 375 0001:00091386 376 0001:00091396 379 0001:000913A0 + 380 0001:000913A7 381 0001:000913AF 382 0001:000913B8 383 0001:000913C3 + 384 0001:000913CC 385 0001:000913D6 396 0001:000913DC 398 0001:000913FC + 404 0001:00091400 405 0001:00091409 406 0001:00091449 416 0001:00091450 + 419 0001:00091478 421 0001:000914A6 422 0001:000914B3 424 0001:000914BF + 426 0001:000914F1 427 0001:000914F8 428 0001:0009150E 432 0001:0009155C + 441 0001:00091570 443 0001:00091593 448 0001:00091597 449 0001:000915A0 + 450 0001:000915E1 459 0001:000915E8 460 0001:0009160B 461 0001:00091619 + 463 0001:00091625 465 0001:0009163F 466 0001:00091646 467 0001:0009164F + 472 0001:0009168C 487 0001:00091694 488 0001:000916BD 489 0001:000916C1 + 491 0001:000916D1 498 0001:00091706 500 0001:00091726 501 0001:0009172A + 503 0001:00091730 504 0001:00091737 505 0001:00091751 508 0001:000917A8 + 521 0001:000917B0 522 0001:000917B9 523 0001:000917CE 525 0001:000917E2 + 526 0001:000917EB 528 0001:000917F2 529 0001:00091804 535 0001:00091818 + 536 0001:00091821 537 0001:00091836 539 0001:0009184A 540 0001:00091851 + 542 0001:0009185A 543 0001:0009186C 547 0001:0009187C 549 0001:00091883 + 550 0001:0009188A 551 0001:00091891 552 0001:00091899 554 0001:000918A7 + 560 0001:000918AC 561 0001:000918D1 562 0001:000918D5 563 0001:000918DD + 564 0001:000918EE 566 0001:000918F7 568 0001:0009190D 570 0001:0009193A + 576 0001:00091940 577 0001:00091954 580 0001:0009195B 583 0001:00091964 + 584 0001:00091978 586 0001:00091983 594 0001:0009198C 596 0001:00091995 + 599 0001:00091999 600 0001:000919A1 601 0001:000919A7 607 0001:000919C1 + 610 0001:000919D0 612 0001:000919E7 613 0001:000919EE 621 0001:000919F4 + 629 0001:00091A10 630 0001:00091A18 633 0001:00091A20 634 0001:00091A27 + 635 0001:00091A36 636 0001:00091A43 637 0001:00091A49 644 0001:00091A84 + 649 0001:00091A88 650 0001:00091AA0 651 0001:00091AAA 652 0001:00091AD9 + 655 0001:00091AE0 656 0001:00091AF1 657 0001:00091AF8 658 0001:00091B14 + 665 0001:00091B18 666 0001:00091B3C 667 0001:00091B46 668 0001:00091B50 + 669 0001:00091B8D 660 0001:00091B90 661 0001:00091BAA 662 0001:00091BBB + 664 0001:00091BE9 + +Line numbers for Controls(Controls.pas) segment .text + + 1576 0001:00093E38 1734 0001:00094320 1735 0001:00094327 1736 0001:00094334 + 1737 0001:0009433D 1739 0001:00094343 1751 0001:00094348 1752 0001:0009434C + 1753 0001:0009435A 1755 0001:00094371 1757 0001:00094392 1758 0001:000943A1 + 1759 0001:000943B8 1767 0001:000943CF 1768 0001:000943D2 1769 0001:000943D5 + 1770 0001:000943D8 1771 0001:000943DB 1772 0001:000943E0 1773 0001:000943EA + 1774 0001:000943F0 1777 0001:000943F6 1782 0001:000943FC 1783 0001:00094405 + 1785 0001:00094420 1787 0001:00094438 1788 0001:00094440 1799 0001:00094444 + 1800 0001:0009444D 1801 0001:00094452 1804 0001:00094473 1805 0001:0009448C + 1807 0001:000944A2 1809 0001:000944B0 1814 0001:000944B4 1815 0001:000944C3 + 1816 0001:000944D0 1817 0001:000944F1 1818 0001:000944F9 1873 0001:0009469C + 1874 0001:000946A8 1875 0001:000946C0 1878 0001:000946C4 1879 0001:000946D0 + 1880 0001:000946E8 1885 0001:000946EC 1886 0001:000946F8 1887 0001:00094708 + 1888 0001:0009470E 1889 0001:0009471B 1890 0001:00094730 1895 0001:00094740 + 1896 0001:0009474C 1897 0001:0009475C 1898 0001:00094762 1899 0001:0009476F + 1900 0001:00094784 1905 0001:00094794 1906 0001:000947A0 1907 0001:000947AD + 1908 0001:000947CC 1909 0001:000947E3 1910 0001:000947F6 1918 0001:000947FC + 1919 0001:00094800 1920 0001:0009480D 1921 0001:00094829 1922 0001:00094834 + 1925 0001:00094838 1926 0001:0009483F 1927 0001:00094844 1928 0001:0009484B + 1930 0001:00094851 1932 0001:00094863 1933 0001:0009486C 1934 0001:00094874 + 1936 0001:0009487D 1938 0001:0009488B 1963 0001:000948F8 1964 0001:00094907 + 1965 0001:0009490E 1968 0001:00094914 1969 0001:0009492B 1970 0001:00094931 + 1966 0001:00094936 1972 0001:00094946 1979 0001:0009494C 1980 0001:00094952 + 1981 0001:00094960 1982 0001:00094966 1984 0001:0009496C 1985 0001:00094972 + 1982 0001:0009497E 1987 0001:00094987 1992 0001:0009498C 1993 0001:00094998 + 1994 0001:000949A5 1995 0001:000949AD 1996 0001:000949BA 1997 0001:000949CF + 1998 0001:000949DF 1999 0001:000949EA 2004 0001:000949F0 2005 0001:000949F9 + 2006 0001:00094A0F 2005 0001:00094A27 2007 0001:00094A2C 2008 0001:00094A34 + 2014 0001:00094A38 2015 0001:00094A41 2016 0001:00094A46 2017 0001:00094A4F + 2019 0001:00094A69 2020 0001:00094A71 2023 0001:00094A7F 2024 0001:00094A91 + 2026 0001:00094AA4 2021 0001:00094AB2 2029 0001:00094AC1 2061 0001:00094AC8 + 2062 0001:00094AD4 2063 0001:00094AE0 2064 0001:00094AEC 2065 0001:00094AFE + 2066 0001:00094B10 2067 0001:00094B22 2068 0001:00094B34 2071 0001:00094B38 + 2076 0001:00094B41 2078 0001:00094B52 2079 0001:00094B5E 2082 0001:00094B64 + 2083 0001:00094B73 2086 0001:00094B7C 2087 0001:00094B8B 2088 0001:00094BA9 + 2091 0001:00094BB0 2092 0001:00094BBC 2097 0001:00094BC1 2099 0001:00094BC9 + 2104 0001:00094BD0 2105 0001:00094BDF 2106 0001:00094BED 2109 0001:00094C20 + 2110 0001:00094C2E 2111 0001:00094C3D 2114 0001:00094C47 2116 0001:00094C50 + 2120 0001:00094C59 2123 0001:00094C71 2125 0001:00094C83 2129 0001:00094C92 + 2130 0001:00094C9C 2136 0001:00094CB2 2137 0001:00094CC2 2139 0001:00094CD6 + 2142 0001:00094CE0 2143 0001:00094CE9 2144 0001:00094CF1 2147 0001:00094CF8 + 2148 0001:00094D07 2149 0001:00094D15 2150 0001:00094D1F 2153 0001:00094D28 + 2155 0001:00094D2F 2158 0001:00094D34 2159 0001:00094D3D 2160 0001:00094D48 + 2163 0001:00094D4C 2165 0001:00094D53 2168 0001:00094D58 2169 0001:00094D67 + 2170 0001:00094D75 2172 0001:00094D8F 2174 0001:00094DA3 2180 0001:00094DAC + 2181 0001:00094DB3 2182 0001:00094DBB 2183 0001:00094DC2 2186 0001:00094DC8 + 2187 0001:00094DCF 2188 0001:00094DD7 2189 0001:00094DDE 2202 0001:00094DE4 + 2203 0001:00094DFF 2204 0001:00094E23 2207 0001:00094E28 2208 0001:00094E34 + 2209 0001:00094E3F 2210 0001:00094E51 2211 0001:00094E5D 2214 0001:00094E64 + 2215 0001:00094E74 2216 0001:00094E8D 2219 0001:00094E94 2220 0001:00094EA5 + 2222 0001:00094EAB 2223 0001:00094EBA 2225 0001:00094EBF 2226 0001:00094ED1 + 2231 0001:00094EDC 2232 0001:00094EEB 2233 0001:00094F01 2234 0001:00094F0B + 2237 0001:00094F14 2238 0001:00094F1D 2239 0001:00094F2E 2242 0001:00094F34 + 2243 0001:00094F3B 2244 0001:00094F4A 2245 0001:00094F5A 2248 0001:00094F60 + 2249 0001:00094F67 2250 0001:00094F76 2251 0001:00094F86 2256 0001:00094F8C + 2259 0001:00094F93 2264 0001:00094F98 2265 0001:00094FB3 2266 0001:00094FC0 + 2268 0001:00094FD2 2275 0001:00095006 2278 0001:0009500C 2279 0001:0009501D + 2280 0001:00095028 2281 0001:00095044 2284 0001:00095048 2285 0001:00095056 + 2286 0001:00095061 2288 0001:00095073 2289 0001:0009507F 2290 0001:0009508B + 2291 0001:00095097 2292 0001:000950A7 2293 0001:000950B7 2295 0001:000950C8 + 2303 0001:000950D0 2304 0001:000950E0 2305 0001:000950F9 2312 0001:00095100 + 2313 0001:0009510C 2314 0001:0009512A 2315 0001:00095133 2317 0001:00095138 + 2319 0001:0009514C 2320 0001:00095162 2321 0001:00095180 2322 0001:00095185 + 2323 0001:0009519B 2324 0001:000951B9 2325 0001:000951BE 2326 0001:000951CA + 2327 0001:000951E2 2330 0001:000951E8 2331 0001:000951F0 2332 0001:00095202 + 2335 0001:00095208 2336 0001:00095210 2337 0001:00095222 2340 0001:00095228 + 2341 0001:00095237 2342 0001:00095241 2345 0001:00095248 2346 0001:00095251 + 2347 0001:0009525B 2352 0001:00095260 2355 0001:00095267 2371 0001:0009526C + 2372 0001:00095272 2373 0001:0009527D 2376 0001:00095284 2378 0001:0009528D + 2379 0001:0009529A 2380 0001:000952B0 2382 0001:000952B9 2384 0001:000952C4 + 2385 0001:000952C9 2387 0001:000952D2 2389 0001:000952DC 2390 0001:000952E3 + 2393 0001:000952ED 2395 0001:000952F7 2411 0001:00095300 2412 0001:0009530A + 2414 0001:0009530E 2415 0001:0009531C 2417 0001:00095334 2418 0001:0009533F + 2419 0001:0009534B 2420 0001:0009535D 2422 0001:00095368 2425 0001:00095372 + 2426 0001:0009537A 2427 0001:0009538C 2428 0001:00095397 2431 0001:000953A3 + 2433 0001:000953AF 2434 0001:000953BD 2435 0001:000953CF 2437 0001:000953DC + 2438 0001:000953F1 2440 0001:00095401 2442 0001:00095406 2443 0001:0009540A + 2444 0001:00095419 2446 0001:0009542D 2448 0001:00095437 2449 0001:00095444 + 2451 0001:00095465 2455 0001:000954A2 2456 0001:000954B7 2458 0001:000954BE + 2461 0001:000954C4 2462 0001:000954C8 2463 0001:000954DD 2465 0001:00095505 + 2466 0001:0009550C 2468 0001:00095510 2469 0001:00095522 2470 0001:00095527 + 2473 0001:00095556 2474 0001:00095560 2476 0001:0009557C 2477 0001:0009558C + 2481 0001:000955EA 2482 0001:000955EE 2483 0001:00095608 2484 0001:00095621 + 2486 0001:0009562E 2474 0001:00095631 2487 0001:0009563A 2488 0001:00095645 + 2489 0001:00095652 2490 0001:00095666 2491 0001:0009566E 2496 0001:00095674 + 2497 0001:00095680 2499 0001:00095686 2500 0001:000956A0 2501 0001:000956B0 + 2503 0001:000956B6 2506 0001:000956CB 2509 0001:000956DE 2517 0001:000956E4 + 2518 0001:000956F3 2519 0001:000956F8 2521 0001:000956FE 2522 0001:0009570C + 2523 0001:00095712 2524 0001:00095718 2525 0001:00095725 2527 0001:00095743 + 2534 0001:0009574C 2535 0001:00095755 2536 0001:00095759 2539 0001:0009577A + 2540 0001:00095793 2542 0001:000957AC 2544 0001:000957BD 2547 0001:000957C4 + 2548 0001:000957CD 2549 0001:000957DD 2550 0001:000957E3 2549 0001:000957FB + 2552 0001:00095804 2556 0001:00095808 2557 0001:00095817 2559 0001:0009581D + 2560 0001:0009582A 2563 0001:00095847 2564 0001:00095855 2565 0001:0009585B + 2567 0001:0009586B 2570 0001:00095874 2571 0001:0009587B 2572 0001:0009587F + 2573 0001:0009588A 2575 0001:000958BE 2584 0001:000958C4 2585 0001:000958CA + 2586 0001:000958CF 2587 0001:000958DA 2592 0001:00095936 2595 0001:0009594A + 2596 0001:0009595E 2598 0001:00095964 2599 0001:00095972 2602 0001:00095974 + 2593 0001:0009597D 2604 0001:0009598E 2611 0001:00095994 2612 0001:000959A0 + 2615 0001:000959E2 2616 0001:00095A01 2617 0001:00095A13 2618 0001:00095A30 + 2620 0001:00095A3E 2621 0001:00095A45 2624 0001:00095A4B 2625 0001:00095A56 + 2627 0001:00095A5D 2629 0001:00095A6A 2630 0001:00095A71 2631 0001:00095A7E + 2632 0001:00095A89 2633 0001:00095A94 2634 0001:00095AA7 2635 0001:00095AAE + 2637 0001:00095ABB 2638 0001:00095ACE 2639 0001:00095AD9 2640 0001:00095AFD + 2642 0001:00095B20 2644 0001:00095B29 2646 0001:00095B38 2647 0001:00095B46 + 2648 0001:00095B51 2649 0001:00095B70 2652 0001:00095B87 2653 0001:00095B91 + 2656 0001:00095BA7 2657 0001:00095BBD 2661 0001:00095BCA 2662 0001:00095BD0 + 2664 0001:00095BF5 2665 0001:00095C05 2666 0001:00095C10 2669 0001:00095C34 + 2672 0001:00095C64 2674 0001:00095C6D 2676 0001:00095C8B 2677 0001:00095C9B + 2678 0001:00095CA5 2682 0001:00095CBA 2685 0001:00095CC4 2686 0001:00095CD3 + 2687 0001:00095CDB 2688 0001:00095CE5 2689 0001:00095CEF 2690 0001:00095D06 + 2691 0001:00095D10 2692 0001:00095D1F 2693 0001:00095D27 2695 0001:00095D3D + 2697 0001:00095D46 2698 0001:00095D55 2699 0001:00095D82 2700 0001:00095D8D + 2701 0001:00095D9D 2702 0001:00095DCC 2703 0001:00095DD7 2705 0001:00095DDD + 2706 0001:00095DE4 2708 0001:00095DEE 2712 0001:00095DF7 2713 0001:00095E06 + 2715 0001:00095E0D 2716 0001:00095E1C 2717 0001:00095E25 2718 0001:00095E42 + 2719 0001:00095E53 2720 0001:00095E66 2726 0001:00095E6C 2727 0001:00095E7E + 2728 0001:00095E86 2729 0001:00095E94 2730 0001:00095E99 2731 0001:00095EA0 + 2733 0001:00095EAC 2734 0001:00095EBB 2735 0001:00095ED1 2737 0001:00095EDB + 2738 0001:00095EED 2742 0001:00095EF9 2743 0001:00095F08 2744 0001:00095F1E + 2746 0001:00095F24 2747 0001:00095F36 2751 0001:00095F3D 2752 0001:00095F52 + 2754 0001:00095F6F 2756 0001:00095F90 2757 0001:00095F99 2760 0001:00095FAA + 2761 0001:00095FD6 2764 0001:0009600B 2767 0001:0009601B 2769 0001:00096038 + 2770 0001:0009603F 2772 0001:00096049 2777 0001:00096050 2778 0001:00096055 + 2780 0001:00096062 2781 0001:00096074 2782 0001:00096090 2783 0001:00096096 + 2784 0001:000960A4 2785 0001:000960CC 2793 0001:000960D0 2794 0001:000960DA + 2795 0001:000960DF 2796 0001:000960E3 2797 0001:000960FF 2798 0001:0009610D + 2799 0001:00096117 2800 0001:00096125 2801 0001:0009612E 2802 0001:00096139 + 2803 0001:00096149 2805 0001:00096152 2806 0001:00096165 2807 0001:0009616D + 2809 0001:0009617D 2811 0001:0009619F 2813 0001:000961B2 2814 0001:000961C3 + 2818 0001:00096203 2820 0001:0009620C 2822 0001:0009621B 2823 0001:00096229 + 2825 0001:00096240 2826 0001:0009624A 2830 0001:00096263 2831 0001:00096278 + 2833 0001:00096283 2834 0001:0009628A 2835 0001:00096291 2837 0001:000962A5 + 2838 0001:000962A9 2840 0001:000962AF 2841 0001:000962B3 2842 0001:000962BD + 2843 0001:000962C7 2844 0001:000962CC 2846 0001:000962D1 2850 0001:00096306 + 2851 0001:00096310 2852 0001:00096317 2854 0001:00096320 2855 0001:00096329 + 2857 0001:00096345 2860 0001:00096361 2861 0001:00096368 2863 0001:000963AD + 2864 0001:000963B7 2866 0001:000963C6 2870 0001:000963CC 2871 0001:000963DC + 2872 0001:000963E3 2877 0001:000963E4 2878 0001:000963ED 2879 0001:000963FD + 2880 0001:00096402 2882 0001:00096408 2883 0001:00096413 2884 0001:00096419 + 2880 0001:00096425 2886 0001:0009642E 2892 0001:00096434 2893 0001:00096440 + 2894 0001:00096445 2895 0001:00096450 2897 0001:00096456 2898 0001:0009645C + 2899 0001:0009647D 2901 0001:0009648C 2906 0001:00096490 2907 0001:0009649C + 2908 0001:000964B5 2909 0001:000964C2 2912 0001:000964C8 2913 0001:000964D4 + 2914 0001:000964E1 2916 0001:000964EC 2917 0001:000964F6 2919 0001:000964FD + 2926 0001:00096504 2927 0001:00096513 2928 0001:00096520 2929 0001:00096539 + 2945 0001:00096540 2946 0001:00096546 2947 0001:00096553 2948 0001:00096561 + 2949 0001:00096577 2950 0001:00096585 2951 0001:00096591 2952 0001:0009659F + 2953 0001:000965A7 2955 0001:000965C0 2956 0001:000965D0 2948 0001:000965D3 + 2958 0001:000965E5 2960 0001:000965F7 2965 0001:000965FC 2966 0001:00096602 + 2967 0001:0009660F 2968 0001:0009661D 2969 0001:0009662C 2970 0001:0009663A + 2971 0001:00096646 2972 0001:00096654 2974 0001:00096669 2975 0001:00096679 + 2968 0001:0009667C 2977 0001:0009668F 2979 0001:000966A1 2982 0001:000966A8 + 2983 0001:000966B9 2984 0001:000966C1 2985 0001:000966DD 2988 0001:000966E4 + 2989 0001:000966ED 2991 0001:00096703 2993 0001:0009670C 2994 0001:00096719 + 2995 0001:00096727 2996 0001:00096735 2997 0001:0009674C 2999 0001:00096764 + 3002 0001:00096776 3003 0001:00096784 3005 0001:0009678C 3008 0001:00096790 + 3009 0001:00096797 3011 0001:000967A0 3012 0001:000967AA 3013 0001:000967B7 + 3014 0001:000967CA 3016 0001:000967D2 3019 0001:000967D8 3020 0001:000967E4 + 3022 0001:000967EF 3023 0001:000967F7 3025 0001:00096800 3028 0001:00096804 + 3029 0001:0009680B 3030 0001:00096814 3031 0001:00096823 3033 0001:0009682F + 3034 0001:00096839 3039 0001:0009683C 3040 0001:00096857 3041 0001:00096861 + 3042 0001:00096885 3045 0001:0009688C 3046 0001:00096898 3049 0001:000968AA + 3050 0001:000968B6 3051 0001:000968C2 3052 0001:000968CE 3053 0001:000968DA + 3055 0001:000968E4 3056 0001:000968EF 3060 0001:000968F4 3061 0001:00096903 + 3063 0001:00096920 3065 0001:0009692F 3066 0001:00096938 3067 0001:00096949 + 3068 0001:00096952 3071 0001:0009695F 3073 0001:0009696E 3074 0001:00096977 + 3075 0001:00096988 3076 0001:00096991 3079 0001:0009699B 3081 0001:000969A6 + 3082 0001:000969AF 3083 0001:000969C3 3084 0001:000969CC 3087 0001:000969D6 + 3089 0001:000969E1 3090 0001:000969EA 3091 0001:000969FE 3092 0001:00096A07 + 3095 0001:00096A0F 3098 0001:00096A14 3099 0001:00096A1C 3100 0001:00096A32 + 3105 0001:00096A38 3106 0001:00096A44 3107 0001:00096A58 3110 0001:00096A5C + 3111 0001:00096A7F 3112 0001:00096A83 3114 0001:00096A9C 3117 0001:00096ACF + 3118 0001:00096AD7 3121 0001:00096B4B 3124 0001:00096B60 3125 0001:00096B7C + 3127 0001:00096BDF 3130 0001:00096BE4 3131 0001:00096BEE 3133 0001:00096C29 + 3136 0001:00096C30 3137 0001:00096C39 3139 0001:00096C78 3142 0001:00096C7C + 3143 0001:00096C85 3145 0001:00096CBF 3148 0001:00096CC4 3149 0001:00096CCD + 3151 0001:00096CFC 3154 0001:00096D00 3155 0001:00096D0C 3156 0001:00096D26 + 3159 0001:00096D2C 3160 0001:00096D38 3161 0001:00096D52 3164 0001:00096D58 + 3165 0001:00096D64 3166 0001:00096D83 3169 0001:00096D88 3170 0001:00096D94 + 3171 0001:00096DAE 3174 0001:00096DB4 3175 0001:00096DBB 3176 0001:00096DDF + 3179 0001:00096DE4 3180 0001:00096DED 3184 0001:00096E64 3187 0001:00096E68 + 3188 0001:00096E74 3189 0001:00096E8E 3192 0001:00096E94 3193 0001:00096EA0 + 3194 0001:00096EBA 3197 0001:00096EC0 3198 0001:00096ECC 3199 0001:00096EE7 + 3204 0001:00096EEC 3205 0001:00096F07 3206 0001:00096F14 3207 0001:00096F25 + 3208 0001:00096F31 3209 0001:00096F43 3210 0001:00096F56 3211 0001:00096F62 + 3212 0001:00096F77 3213 0001:00096F8A 3214 0001:00096F94 3215 0001:00096F9B + 3216 0001:00096FA2 3217 0001:00096FA9 3218 0001:00096FB0 3219 0001:00096FBA + 3220 0001:00096FC1 3221 0001:00096FC8 3222 0001:00096FD1 3223 0001:00096FE0 + 3224 0001:00097005 3227 0001:00097014 3228 0001:00097026 3229 0001:00097035 + 3231 0001:00097050 3232 0001:00097069 3233 0001:00097073 3234 0001:00097090 + 3236 0001:0009709D 3237 0001:000970A7 3238 0001:000970B2 3239 0001:000970BA + 3240 0001:000970C5 3241 0001:000970D0 3242 0001:000970DB 3243 0001:000970F7 + 3246 0001:000970FC 3247 0001:00097105 3248 0001:0009710D 3251 0001:00097114 + 3252 0001:0009711D 3253 0001:00097129 3256 0001:00097130 3257 0001:00097139 + 3258 0001:00097141 3261 0001:00097148 3262 0001:00097151 3263 0001:0009715F + 3266 0001:00097164 3267 0001:0009716D 3268 0001:00097179 3271 0001:00097180 + 3272 0001:0009718C 3273 0001:000971A9 3274 0001:000971B4 3281 0001:000971B8 + 3282 0001:000971C5 3283 0001:000971C9 3284 0001:000971D2 3285 0001:000971E1 + 3287 0001:000971E7 3288 0001:000971F5 3289 0001:0009720F 3290 0001:00097224 + 3291 0001:00097233 3292 0001:00097240 3294 0001:00097247 3297 0001:0009724C + 3298 0001:00097255 3299 0001:0009725E 3300 0001:0009726C 3301 0001:00097274 + 3305 0001:00097278 3306 0001:00097284 3308 0001:0009728F 3309 0001:00097298 + 3311 0001:000972A0 3314 0001:000972A4 3315 0001:000972B1 3317 0001:000972B7 + 3318 0001:000972C2 3319 0001:000972CA 3323 0001:000972D6 3324 0001:000972E0 + 3325 0001:000972E9 3326 0001:00097303 3327 0001:00097311 3328 0001:00097324 + 3329 0001:0009733D 3331 0001:00097348 3334 0001:00097350 3335 0001:00097359 + 3336 0001:00097373 3339 0001:00097378 3340 0001:00097384 3341 0001:0009738D + 3344 0001:00097394 3345 0001:0009739B 3346 0001:000973B2 3349 0001:000973B8 + 3350 0001:000973C0 3351 0001:000973DF 3354 0001:000973E4 3355 0001:000973F0 + 3356 0001:000973F8 3357 0001:0009741B 3358 0001:00097426 3359 0001:0009742E + 3361 0001:00097437 3362 0001:00097448 3363 0001:00097459 3364 0001:0009746A + 3365 0001:0009747B 3367 0001:0009748C 3371 0001:00097490 3372 0001:0009749F + 3373 0001:000974AD 3374 0001:000974B3 3375 0001:000974CA 3376 0001:000974E1 + 3381 0001:000974E8 3382 0001:000974F6 3384 0001:00097505 3385 0001:0009750E + 3386 0001:00097517 3387 0001:0009752A 3389 0001:00097555 3391 0001:00097584 + 3393 0001:000975AB 3395 0001:000975B7 3396 0001:000975C3 3399 0001:000975CC + 3400 0001:000975DC 3404 0001:0009761E 3405 0001:0009762E 3406 0001:00097637 + 3407 0001:00097640 3408 0001:00097649 3409 0001:00097652 3410 0001:0009765A + 3411 0001:00097662 3412 0001:00097673 3413 0001:0009767F 3415 0001:00097694 + 3420 0001:0009769C 3421 0001:000976A5 3423 0001:000976BF 3424 0001:000976C8 + 3426 0001:000976D2 3427 0001:000976DD 3428 0001:000976E8 3430 0001:000976ED + 3431 0001:000976F3 3432 0001:000976F9 3433 0001:0009770A 3435 0001:0009771B + 3436 0001:00097737 3437 0001:0009773D 3438 0001:00097743 3439 0001:00097754 + 3441 0001:00097765 3442 0001:00097781 3443 0001:0009778E 3445 0001:0009779A + 3446 0001:000977A3 3448 0001:000977C6 3449 0001:000977D5 3452 0001:000977FA + 3453 0001:0009780C 3456 0001:0009781E 3459 0001:00097828 3460 0001:00097835 + 3461 0001:00097857 3462 0001:00097861 3465 0001:00097868 3466 0001:00097875 + 3467 0001:00097897 3468 0001:000978A1 3471 0001:000978A8 3472 0001:000978B5 + 3473 0001:000978D7 3474 0001:000978E1 3477 0001:000978E8 3478 0001:000978F5 + 3479 0001:00097917 3480 0001:00097921 3485 0001:00097928 3486 0001:0009793F + 3488 0001:0009794D 3489 0001:0009796B 3490 0001:00097982 3492 0001:0009799A + 3494 0001:000979AB 3495 0001:000979B4 3496 0001:000979C2 3497 0001:000979C8 + 3498 0001:000979DA 3500 0001:000979E8 3501 0001:000979F4 3503 0001:000979FA + 3504 0001:00097A06 3507 0001:00097A20 3508 0001:00097A2B 3511 0001:00097A4D + 3513 0001:00097A5E 3516 0001:00097A64 3518 0001:00097A73 3519 0001:00097A95 + 3520 0001:00097AA0 3521 0001:00097AAD 3522 0001:00097AB8 3523 0001:00097ACE + 3526 0001:00097AD4 3527 0001:00097AE0 3528 0001:00097AF3 3529 0001:00097AFF + 3532 0001:00097B04 3533 0001:00097B10 3534 0001:00097B23 3535 0001:00097B33 + 3538 0001:00097B38 3539 0001:00097B45 3540 0001:00097B62 3543 0001:00097B68 + 3544 0001:00097B74 3545 0001:00097B7F 3546 0001:00097B8B 3547 0001:00097B9D + 3548 0001:00097BAF 3551 0001:00097BB4 3552 0001:00097BC1 3553 0001:00097BF0 + 3556 0001:00097BF8 3557 0001:00097C04 3558 0001:00097C0B 3559 0001:00097C13 + 3560 0001:00097C1F 3561 0001:00097C2B 3564 0001:00097C30 3565 0001:00097C39 + 3566 0001:00097C4D 3569 0001:00097C54 3570 0001:00097C60 3571 0001:00097C80 + 3574 0001:00097C84 3575 0001:00097C8D 3576 0001:00097CA1 3579 0001:00097CA8 + 3580 0001:00097CB4 3581 0001:00097CD2 3584 0001:00097CD8 3585 0001:00097CF7 + 3586 0001:00097D00 3587 0001:00097D34 3588 0001:00097D42 3589 0001:00097D4D + 3590 0001:00097D76 3595 0001:00097D7C 3596 0001:00097D8B 3597 0001:00097D96 + 3598 0001:00097DA3 3599 0001:00097DB2 3604 0001:00097DB8 3605 0001:00097DC7 + 3606 0001:00097DD2 3607 0001:00097DDF 3608 0001:00097DEE 3613 0001:00097DF4 + 3614 0001:00097E00 3615 0001:00097E06 3617 0001:00097E0C 3618 0001:00097E1E + 3619 0001:00097E29 3615 0001:00097E32 3621 0001:00097E38 3626 0001:00097E3C + 3627 0001:00097E4B 3632 0001:00097E79 3633 0001:00097E7F 3634 0001:00097E85 + 3636 0001:00097E8B 3638 0001:00097EA5 3641 0001:00097EB4 3642 0001:00097EBB + 3643 0001:00097ECE 3649 0001:00097ED4 3650 0001:00097EE4 3652 0001:00097EF0 + 3653 0001:00097EF9 3654 0001:00097F07 3655 0001:00097F0F 3656 0001:00097F15 + 3657 0001:00097F2E 3658 0001:00097F37 3659 0001:00097F3D 3660 0001:00097F56 + 3661 0001:00097F5F 3662 0001:00097F6E 3663 0001:00097F74 3664 0001:00097F96 + 3665 0001:00097FAF 3666 0001:00097FB8 3667 0001:00097FC7 3668 0001:00097FCD + 3669 0001:00097FEF 3670 0001:00098008 3671 0001:00098011 3672 0001:0009802A + 3673 0001:0009803D 3674 0001:0009805D 3675 0001:00098070 3676 0001:00098090 + 3677 0001:0009809F 3679 0001:000980C5 3680 0001:000980D4 3683 0001:000980EC + 3684 0001:000980F9 3686 0001:00098104 3687 0001:0009810D 3689 0001:0009811F + 3694 0001:00098124 3695 0001:00098143 3699 0001:000981A3 3700 0001:000981AE + 3701 0001:000981DC 3706 0001:000981E0 3707 0001:000981F3 3708 0001:000981FE + 3710 0001:0009822F 3713 0001:00098238 3714 0001:00098244 3716 0001:0009824F + 3717 0001:00098257 3718 0001:0009826E 3719 0001:00098277 3720 0001:00098285 + 3722 0001:0009828B 3723 0001:00098296 3726 0001:0009829E 3729 0001:000982A4 + 3730 0001:000982B1 3732 0001:000982BC 3733 0001:000982C8 3734 0001:000982D1 + 3735 0001:000982E5 3737 0001:000982F1 3740 0001:000982F8 3741 0001:00098304 + 3743 0001:0009830F 3744 0001:00098318 3746 0001:00098329 3749 0001:00098330 + 3750 0001:00098339 3751 0001:00098350 3754 0001:00098354 3755 0001:00098363 + 3756 0001:0009837D 3759 0001:00098384 3760 0001:0009838D 3761 0001:000983A7 + 3762 0001:000983B3 3765 0001:000983B8 3766 0001:000983C1 3767 0001:000983DB + 3768 0001:000983E7 3783 0001:000983EC 3784 0001:000983F8 3785 0001:00098401 + 3787 0001:00098407 3788 0001:00098412 3790 0001:0009841D 3793 0001:00098424 + 3794 0001:00098430 3795 0001:00098443 3796 0001:00098454 3801 0001:00098458 + 3802 0001:00098464 3803 0001:0009846F 3804 0001:0009847C 3805 0001:00098493 + 3808 0001:00098498 3809 0001:000984B7 3810 0001:000984FE 3813 0001:00098504 + 3814 0001:00098510 3816 0001:0009851B 3817 0001:00098524 3818 0001:0009852B + 3820 0001:0009853C 3823 0001:00098540 3824 0001:0009854C 3825 0001:00098553 + 3826 0001:0009855A 3828 0001:00098570 3829 0001:0009857A 3831 0001:0009858E + 3832 0001:0009859F 3835 0001:000985A4 3836 0001:000985B0 3837 0001:000985BE + 3840 0001:000985C4 3841 0001:000985CD 3842 0001:000985EB 3845 0001:000985F0 + 3846 0001:000985F9 3847 0001:0009860A 3850 0001:00098610 3851 0001:00098619 + 3852 0001:00098627 3855 0001:0009862C 3856 0001:00098638 3858 0001:00098643 + 3859 0001:0009864C 3860 0001:0009865E 3862 0001:0009866F 3874 0001:00098674 + 3875 0001:00098680 3877 0001:0009868E 3878 0001:0009869A 3879 0001:000986A4 + 3881 0001:000986B5 3884 0001:000986BC 3885 0001:000986C8 3887 0001:000986D6 + 3888 0001:000986E2 3889 0001:000986F4 3891 0001:00098705 3894 0001:0009870C + 3895 0001:00098718 3897 0001:00098723 3898 0001:0009872C 3899 0001:00098733 + 3901 0001:00098744 3904 0001:00098748 3905 0001:00098751 3906 0001:0009875F + 3909 0001:00098764 3910 0001:00098770 3912 0001:0009877B 3913 0001:00098784 + 3914 0001:00098796 3916 0001:000987A7 3919 0001:000987AC 3920 0001:000987B8 + 3922 0001:000987C3 3923 0001:000987CC 3924 0001:000987DE 3926 0001:000987EF + 3929 0001:000987F4 3930 0001:00098801 3932 0001:0009880E 3933 0001:00098819 + 3935 0001:0009882A 3938 0001:00098830 3939 0001:00098839 3940 0001:00098848 + 3943 0001:0009884C 3944 0001:00098858 3945 0001:00098865 3946 0001:0009887C + 3949 0001:00098880 3950 0001:00098888 3951 0001:00098896 3954 0001:0009889C + 3955 0001:000988A4 3956 0001:000988B2 3962 0001:000988B8 3963 0001:000988C5 + 3965 0001:000988D2 3966 0001:000988E9 3968 0001:000988F3 3969 0001:00098905 + 3970 0001:00098910 3971 0001:0009891F 3973 0001:00098927 3974 0001:0009893B + 3975 0001:00098952 3976 0001:00098962 3977 0001:0009896D 3978 0001:00098976 + 3982 0001:00098984 3985 0001:0009898C 3986 0001:00098998 3987 0001:000989A1 + 3988 0001:000989A7 3989 0001:000989C1 3990 0001:000989CB 3993 0001:000989D0 + 3994 0001:000989EF 3995 0001:000989F8 3996 0001:00098A2C 3997 0001:00098A3D + 3998 0001:00098A56 3999 0001:00098A91 4011 0001:00098A98 4012 0001:00098A9E + 4013 0001:00098AA2 4014 0001:00098AB4 4015 0001:00098AC5 4017 0001:00098ACB + 4018 0001:00098ACE 4020 0001:00098ADC 4022 0001:00098AEE 4023 0001:00098B0D + 4015 0001:00098B21 4026 0001:00098B27 4027 0001:00098B2E 4029 0001:00098B34 + 4030 0001:00098B43 4034 0001:00098B73 4035 0001:00098B7E 4038 0001:00098BBB + 4041 0001:00098BC0 4042 0001:00098BC7 4043 0001:00098BDF 4048 0001:00098BE4 + 4049 0001:00098BF1 4050 0001:00098BFC 4051 0001:00098C1B 4053 0001:00098C3B + 4056 0001:00098C40 4057 0001:00098C47 4058 0001:00098C51 4061 0001:00098C54 + 4062 0001:00098C5B 4063 0001:00098C75 4064 0001:00098C87 4065 0001:00098C91 + 4068 0001:00098C94 4069 0001:00098C9B 4070 0001:00098CB2 4073 0001:00098CB8 + 4074 0001:00098CBF 4075 0001:00098CCA 4080 0001:00098CD0 4081 0001:00098CD9 + 4084 0001:00098D1C 4086 0001:00098D29 4087 0001:00098D3D 4088 0001:00098D4B + 4089 0001:00098D7C 4091 0001:00098D9A 4095 0001:00098DB7 4096 0001:00098DBF + 4098 0001:00098DCA 4101 0001:00098DD0 4102 0001:00098DD9 4103 0001:00098DE0 + 4106 0001:00098DE4 4107 0001:00098DED 4108 0001:00098E0D 4111 0001:00098E14 + 4112 0001:00098E1D 4113 0001:00098E3D 4116 0001:00098E44 4117 0001:00098E4D + 4118 0001:00098E6D 4121 0001:00098E74 4122 0001:00098E7D 4124 0001:00098E9F + 4127 0001:00098EA4 4128 0001:00098EAB 4129 0001:00098EC3 4134 0001:00098EC8 + 4135 0001:00098ED7 4136 0001:00098EF5 4137 0001:00098F0C 4138 0001:00098F14 + 4140 0001:00098F26 4141 0001:00098F2D 4143 0001:00098F36 4144 0001:00098F3F + 4145 0001:00098F59 4148 0001:00098F71 4149 0001:00098F77 4151 0001:00098F82 + 4152 0001:00098F8B 4154 0001:00098F99 4157 0001:00098FA0 4158 0001:00098FAC + 4160 0001:00098FC2 4161 0001:00098FD5 4164 0001:00098FDC 4165 0001:00098FE3 + 4168 0001:00098FE8 4169 0001:00098FF1 4170 0001:00099000 4174 0001:00099004 + 4175 0001:00099014 4176 0001:0009901A 4178 0001:00099027 4179 0001:0009902D + 4181 0001:00099052 4184 0001:0009905C 4185 0001:0009906C 4186 0001:00099096 + 4189 0001:000990A0 4190 0001:000990AD 4191 0001:000990CF 4194 0001:000990D4 + 4195 0001:000990E4 4196 0001:0009910E 4202 0001:00099118 4205 0001:00099125 + 4207 0001:00099141 4208 0001:0009914F 4210 0001:0009915D 4211 0001:00099172 + 4212 0001:00099187 4214 0001:00099190 4215 0001:0009919D 4216 0001:000991AB + 4217 0001:000991B9 4220 0001:000991C8 4223 0001:000991D8 4224 0001:000991F0 + 4226 0001:0009920E 4230 0001:00099239 4233 0001:00099240 4234 0001:00099250 + 4235 0001:0009925F 4238 0001:00099268 4239 0001:00099278 4240 0001:000992A2 + 4243 0001:000992AC 4244 0001:000992B9 4245 0001:000992DB 4251 0001:000992E0 + 4252 0001:000992FA 4253 0001:000992FE 4254 0001:0009930B 4255 0001:0009932C + 4257 0001:00099336 4260 0001:00099344 4261 0001:00099352 4262 0001:0009936C + 4264 0001:00099372 4265 0001:00099387 4268 0001:0009939E 4258 0001:000993B3 + 4271 0001:000993CD 4274 0001:000993D8 4275 0001:000993EE 4276 0001:000993F2 + 4277 0001:000993FF 4278 0001:0009941F 4281 0001:00099428 4282 0001:0009943E + 4283 0001:00099442 4284 0001:0009944F 4285 0001:0009946F 4295 0001:00099478 + 4298 0001:00099489 4299 0001:00099494 4300 0001:000994A9 4302 0001:000994B6 + 4303 0001:000994BE 4304 0001:000994D1 4305 0001:000994DF 4308 0001:000994F7 + 4309 0001:0009951E 4310 0001:00099548 4311 0001:0009956F 4313 0001:00099593 + 4315 0001:000995AD 4317 0001:000995C2 4320 0001:000995C8 4321 0001:000995D5 + 4322 0001:000995E6 4325 0001:000995EC 4326 0001:000995F9 4327 0001:0009960A + 4333 0001:00099610 4334 0001:0009961D 4336 0001:00099626 4337 0001:0009962F + 4338 0001:00099640 4339 0001:0009964F 4340 0001:00099663 4341 0001:00099673 + 4344 0001:00099684 4345 0001:00099688 4347 0001:0009968E 4351 0001:000996B4 + 4352 0001:000996D5 4356 0001:000996E2 4357 0001:00099703 4361 0001:00099719 + 4369 0001:00099720 4370 0001:00099732 4372 0001:00099742 4375 0001:00099772 + 4376 0001:0009978C 4379 0001:000997AA 4380 0001:000997CA 4382 0001:000997F0 + 4383 0001:0009981C 4387 0001:0009982F 4388 0001:00099837 4389 0001:00099868 + 4391 0001:00099872 4392 0001:00099884 4393 0001:00099892 4394 0001:0009989E + 4395 0001:000998B1 4396 0001:000998B6 4397 0001:000998C1 4398 0001:000998C7 + 4401 0001:000998D8 4402 0001:000998E1 4403 0001:000998EA 4404 0001:000998F3 + 4406 0001:00099900 4407 0001:00099916 4409 0001:00099939 4413 0001:0009994C + 4418 0001:00099958 4419 0001:0009996C 4420 0001:0009999C 4422 0001:000999A2 + 4423 0001:000999B0 4424 0001:000999B6 4426 0001:000999EA 4428 0001:000999FF + 4454 0001:00099A08 4455 0001:00099A15 4456 0001:00099A21 4459 0001:00099A28 + 4460 0001:00099A37 4461 0001:00099A3E 4464 0001:00099A44 4465 0001:00099A54 + 4466 0001:00099A58 4467 0001:00099A85 4472 0001:00099A8C 4473 0001:00099A9C + 4475 0001:00099AA5 4476 0001:00099AAD 4477 0001:00099AB5 4478 0001:00099AC6 + 4479 0001:00099AD6 4480 0001:00099ADE 4481 0001:00099AE8 4483 0001:00099AF2 + 4484 0001:00099AF9 4487 0001:00099B00 4488 0001:00099B10 4489 0001:00099B21 + 4490 0001:00099B38 4494 0001:00099B40 4495 0001:00099B50 4497 0001:00099B7E + 4500 0001:00099B88 4501 0001:00099B94 4502 0001:00099B9D 4503 0001:00099BB9 + 4506 0001:00099BC0 4507 0001:00099BCC 4510 0001:00099C0D 4515 0001:00099C14 + 4516 0001:00099C24 4517 0001:00099C30 4519 0001:00099C3E 4520 0001:00099C43 + 4521 0001:00099C4F 4523 0001:00099C5D 4524 0001:00099C62 4525 0001:00099C6E + 4527 0001:00099C7C 4528 0001:00099C81 4529 0001:00099C8D 4531 0001:00099C9B + 4533 0001:00099CA0 4534 0001:00099CB6 4535 0001:00099CC6 4536 0001:00099CD0 + 4537 0001:00099CE0 4538 0001:00099CE8 4539 0001:00099CF8 4540 0001:00099D02 + 4541 0001:00099D12 4542 0001:00099D1A 4547 0001:00099D20 4548 0001:00099D30 + 4549 0001:00099D36 4550 0001:00099D3C 4551 0001:00099D42 4552 0001:00099D47 + 4553 0001:00099D59 4554 0001:00099D62 4557 0001:00099D6C 4558 0001:00099D73 + 4560 0001:00099D7F 4561 0001:00099D8E 4563 0001:00099DA0 4565 0001:00099DAC + 4567 0001:00099DC9 4568 0001:00099DDA 4570 0001:00099DF8 4572 0001:00099E07 + 4575 0001:00099E0C 4576 0001:00099E18 4577 0001:00099E23 4578 0001:00099E2F + 4579 0001:00099E40 4580 0001:00099E52 4581 0001:00099E5A 4584 0001:00099E60 + 4585 0001:00099E67 4592 0001:00099E6C 4593 0001:00099E7D 4595 0001:00099E86 + 4596 0001:00099E91 4599 0001:00099EBF 4601 0001:00099ED5 4602 0001:00099EE0 + 4604 0001:00099F08 4606 0001:00099F26 4607 0001:00099F2F 4609 0001:00099F45 + 4611 0001:00099F4B 4612 0001:00099F62 4615 0001:00099F79 4617 0001:00099F82 + 4618 0001:00099F8E 4620 0001:00099F93 4623 0001:00099FA0 4626 0001:00099FAD + 4629 0001:00099FD7 4632 0001:00099FE3 4633 0001:00099FEB 4634 0001:00099FF9 + 4635 0001:0009A004 4637 0001:0009A00D 4638 0001:0009A01C 4642 0001:0009A01E + 4643 0001:0009A029 4645 0001:0009A043 4646 0001:0009A04E 4651 0001:0009A054 + 4653 0001:0009A060 4656 0001:0009A075 4657 0001:0009A091 4660 0001:0009A0B3 + 4663 0001:0009A0D9 4664 0001:0009A0E7 4665 0001:0009A0F2 4666 0001:0009A0FB + 4669 0001:0009A115 4672 0001:0009A120 4673 0001:0009A12C 4674 0001:0009A13A + 4677 0001:0009A140 4678 0001:0009A14C 4679 0001:0009A15A 4684 0001:0009A160 + 4685 0001:0009A164 4686 0001:0009A170 4687 0001:0009A18B 4688 0001:0009A19A + 4689 0001:0009A1A0 4692 0001:0009A1AD 4693 0001:0009A1D5 4696 0001:0009A1F0 + 4700 0001:0009A1F8 4701 0001:0009A227 4702 0001:0009A23B 4703 0001:0009A24D + 4704 0001:0009A25D 4705 0001:0009A26A 4706 0001:0009A27C 4709 0001:0009A280 + 4710 0001:0009A288 4711 0001:0009A2A7 4715 0001:0009A2AC 4716 0001:0009A2BC + 4717 0001:0009A2EA 4721 0001:0009A2F4 4722 0001:0009A304 4724 0001:0009A30D + 4725 0001:0009A325 4726 0001:0009A330 4728 0001:0009A35A 4729 0001:0009A38A + 4732 0001:0009A394 4733 0001:0009A3A0 4734 0001:0009A3AB 4735 0001:0009A3B6 + 4736 0001:0009A3C9 4737 0001:0009A3DA 4738 0001:0009A3ED 4741 0001:0009A3F8 + 4742 0001:0009A404 4743 0001:0009A40F 4744 0001:0009A41A 4747 0001:0009A420 + 4748 0001:0009A42D 4749 0001:0009A438 4750 0001:0009A443 4751 0001:0009A456 + 4752 0001:0009A46B 4753 0001:0009A47E 4756 0001:0009A488 4757 0001:0009A491 + 4758 0001:0009A49D 4763 0001:0009A4A4 4764 0001:0009A4B3 4765 0001:0009A4B7 + 4766 0001:0009A4BF 4767 0001:0009A4C7 4769 0001:0009A4D9 4770 0001:0009A4DF + 4771 0001:0009A4E5 4773 0001:0009A52B 4775 0001:0009A531 4776 0001:0009A539 + 4779 0001:0009A544 4782 0001:0009A548 4783 0001:0009A554 4784 0001:0009A55F + 4785 0001:0009A572 4788 0001:0009A57C 4789 0001:0009A588 4790 0001:0009A593 + 4791 0001:0009A5A6 4794 0001:0009A5B0 4795 0001:0009A5BC 4796 0001:0009A5C7 + 4797 0001:0009A5DA 4800 0001:0009A5E4 4801 0001:0009A5F0 4802 0001:0009A5FB + 4803 0001:0009A60E 4806 0001:0009A618 4807 0001:0009A628 4808 0001:0009A652 + 4811 0001:0009A65C 4812 0001:0009A669 4813 0001:0009A674 4815 0001:0009A67D + 4816 0001:0009A695 4817 0001:0009A6A0 4819 0001:0009A6C3 4820 0001:0009A6EC + 4824 0001:0009A6F4 4825 0001:0009A704 4826 0001:0009A732 4829 0001:0009A73C + 4830 0001:0009A74C 4831 0001:0009A755 4832 0001:0009A782 4835 0001:0009A788 + 4836 0001:0009A795 4837 0001:0009A7A0 4838 0001:0009A7B3 4840 0001:0009A7BC + 4841 0001:0009A7C4 4843 0001:0009A7FC 4844 0001:0009A809 4847 0001:0009A810 + 4848 0001:0009A81C 4849 0001:0009A827 4850 0001:0009A834 4853 0001:0009A838 + 4854 0001:0009A844 4855 0001:0009A84F 4856 0001:0009A85C 4859 0001:0009A860 + 4860 0001:0009A86D 4862 0001:0009A878 4863 0001:0009A881 4865 0001:0009A890 + 4866 0001:0009A8A2 4867 0001:0009A8B1 4868 0001:0009A8C5 4871 0001:0009A8CC + 4872 0001:0009A8D8 4873 0001:0009A8E3 4875 0001:0009A8EF 4876 0001:0009A8F9 + 4880 0001:0009A915 4881 0001:0009A91D 4884 0001:0009A924 4885 0001:0009A930 + 4887 0001:0009A93B 4889 0001:0009A958 4891 0001:0009A961 4892 0001:0009A978 + 4893 0001:0009A986 4894 0001:0009A99D 4895 0001:0009A9A9 4896 0001:0009A9C0 + 4897 0001:0009A9CE 4898 0001:0009A9E5 4900 0001:0009A9F1 4901 0001:0009A9FA + 4902 0001:0009AA03 4904 0001:0009AA33 4906 0001:0009AA3B 4909 0001:0009AA48 + 4910 0001:0009AA54 4912 0001:0009AA66 4913 0001:0009AA88 4916 0001:0009AA8C + 4917 0001:0009AA98 4918 0001:0009AAA0 4921 0001:0009AAA4 4922 0001:0009AAB0 + 4923 0001:0009AAB8 4926 0001:0009AABC 4927 0001:0009AAC8 4928 0001:0009AAD0 + 4931 0001:0009AAD4 4932 0001:0009AAE0 4934 0001:0009AAE9 4935 0001:0009AAF2 + 4936 0001:0009AB02 4937 0001:0009AB13 4939 0001:0009AB1A 4942 0001:0009AB20 + 4943 0001:0009AB2C 4945 0001:0009AB35 4946 0001:0009AB4F 4948 0001:0009AB56 + 4951 0001:0009AB5C 4954 0001:0009AB69 4955 0001:0009AB71 4956 0001:0009ABA0 + 4957 0001:0009ABAC 4958 0001:0009ABB5 4961 0001:0009ABD8 4964 0001:0009ABE0 + 4965 0001:0009ABEC 4966 0001:0009AC08 4969 0001:0009AC0C 4970 0001:0009AC18 + 4972 0001:0009AC24 4973 0001:0009AC38 4975 0001:0009AC42 4978 0001:0009AC48 + 4979 0001:0009AC54 4981 0001:0009AC5D 4982 0001:0009AC66 4983 0001:0009AC76 + 4984 0001:0009AC87 4986 0001:0009AC8E 4989 0001:0009AC94 4990 0001:0009ACA0 + 4992 0001:0009ACA9 4993 0001:0009ACBE 4995 0001:0009ACC5 4998 0001:0009ACCC + 4999 0001:0009ACD8 5000 0001:0009ACE2 5003 0001:0009ACE8 5004 0001:0009ACF4 + 5005 0001:0009ACFD 5006 0001:0009AD13 5009 0001:0009AD18 5010 0001:0009AD24 + 5011 0001:0009AD2D 5012 0001:0009AD43 5015 0001:0009AD48 5016 0001:0009AD54 + 5017 0001:0009AD5C 5020 0001:0009AD60 5021 0001:0009AD75 5022 0001:0009AD7A + 5025 0001:0009AD9C 5028 0001:0009ADB4 5029 0001:0009ADBF 5030 0001:0009ADCA + 5031 0001:0009ADD8 5034 0001:0009ADE9 5043 0001:0009ADF0 5044 0001:0009ADF7 + 5045 0001:0009AE25 5046 0001:0009AE34 5050 0001:0009AEB9 5052 0001:0009AEC0 + 5053 0001:0009AECC 5054 0001:0009AEE1 5057 0001:0009AEEA 5058 0001:0009AEFE + 5060 0001:0009AF04 5061 0001:0009AF10 5064 0001:0009AF21 5067 0001:0009AF28 + 5068 0001:0009AF4E 5071 0001:0009AF64 5072 0001:0009AF96 5073 0001:0009AFA4 + 5074 0001:0009AFB6 5075 0001:0009AFC4 5076 0001:0009AFD6 5077 0001:0009AFE9 + 5078 0001:0009AFF8 5079 0001:0009B009 5080 0001:0009B01C 5082 0001:0009B056 + 5085 0001:0009B05C 5086 0001:0009B069 5087 0001:0009B087 5090 0001:0009B08C + 5091 0001:0009B095 5092 0001:0009B0A0 5095 0001:0009B0A4 5096 0001:0009B0AD + 5097 0001:0009B0D1 5100 0001:0009B0D8 5101 0001:0009B0E1 5102 0001:0009B105 + 5105 0001:0009B10C 5106 0001:0009B115 5107 0001:0009B139 5110 0001:0009B140 + 5111 0001:0009B149 5112 0001:0009B16D 5115 0001:0009B174 5116 0001:0009B17D + 5117 0001:0009B1A1 5120 0001:0009B1A8 5121 0001:0009B1B1 5122 0001:0009B1D5 + 5125 0001:0009B1DC 5126 0001:0009B1E4 5127 0001:0009B1EC 5128 0001:0009B210 + 5129 0001:0009B218 5132 0001:0009B21C 5133 0001:0009B23B 5136 0001:0009B24D + 5137 0001:0009B25F 5138 0001:0009B270 5139 0001:0009B286 5140 0001:0009B294 + 5142 0001:0009B2AD 5143 0001:0009B2D5 5150 0001:0009B2DC 5151 0001:0009B2E8 + 5152 0001:0009B2ED 5153 0001:0009B2FE 5152 0001:0009B31E 5154 0001:0009B326 + 5158 0001:0009B32C 5159 0001:0009B33E 5160 0001:0009B342 5161 0001:0009B34B + 5163 0001:0009B354 5164 0001:0009B363 5165 0001:0009B374 5166 0001:0009B380 + 5170 0001:0009B38E 5171 0001:0009B394 5172 0001:0009B39A 5173 0001:0009B3A0 + 5174 0001:0009B3A6 5175 0001:0009B3E0 5176 0001:0009B3E6 5177 0001:0009B3EC + 5178 0001:0009B3F2 5181 0001:0009B3F9 5184 0001:0009B400 5185 0001:0009B409 + 5186 0001:0009B43D 5189 0001:0009B444 5190 0001:0009B44D 5191 0001:0009B45C + 5194 0001:0009B460 5195 0001:0009B468 5196 0001:0009B496 5199 0001:0009B49C + 5200 0001:0009B4A9 5202 0001:0009B4AF 5203 0001:0009B4BF 5204 0001:0009B4CA + 5205 0001:0009B4D0 5206 0001:0009B4D9 5207 0001:0009B4DD 5208 0001:0009B4EB + 5211 0001:0009B4F0 5212 0001:0009B4F9 5213 0001:0009B505 5215 0001:0009B50E + 5216 0001:0009B516 5219 0001:0009B51C 5220 0001:0009B523 5221 0001:0009B537 + 5224 0001:0009B53C 5225 0001:0009B548 5227 0001:0009B569 5228 0001:0009B573 + 5235 0001:0009B578 5236 0001:0009B586 5237 0001:0009B593 5239 0001:0009B59C + 5240 0001:0009B5A7 5243 0001:0009B5AC 5244 0001:0009B5BA 5245 0001:0009B5C6 + 5248 0001:0009B5D4 5249 0001:0009B5E2 5251 0001:0009B600 5252 0001:0009B60B + 5256 0001:0009B610 5257 0001:0009B614 5258 0001:0009B626 5259 0001:0009B631 + 5261 0001:0009B63B 5262 0001:0009B64A 5264 0001:0009B659 5265 0001:0009B663 + 5266 0001:0009B66C 5267 0001:0009B678 5268 0001:0009B692 5269 0001:0009B6A0 + 5272 0001:0009B6AA 5273 0001:0009B6B3 5274 0001:0009B6BE 5277 0001:0009B6C4 + 5278 0001:0009B6DA 5279 0001:0009B700 5282 0001:0009B708 5283 0001:0009B714 + 5284 0001:0009B722 5289 0001:0009B728 5290 0001:0009B74E 5291 0001:0009B754 + 5292 0001:0009B75D 5293 0001:0009B763 5294 0001:0009B797 5295 0001:0009B7A7 + 5296 0001:0009B7B2 5297 0001:0009B7BE 5298 0001:0009B7C7 5300 0001:0009B7CD + 5302 0001:0009B7D6 5303 0001:0009B7E1 5305 0001:0009B7ED 5308 0001:0009B7F5 + 5298 0001:0009B7FE 5310 0001:0009B804 5311 0001:0009B80A 5312 0001:0009B860 + 5345 0001:0009B868 5346 0001:0009B874 5347 0001:0009B87F 5348 0001:0009B893 + 5351 0001:0009B898 5353 0001:0009B8A1 5354 0001:0009B8AF 5357 0001:0009B8B4 + 5358 0001:0009B8C0 5359 0001:0009B8CB 5366 0001:0009B8D0 5367 0001:0009B8FF + 5372 0001:0009B90C 5374 0001:0009B923 5375 0001:0009B938 5376 0001:0009B94C + 5377 0001:0009B956 5378 0001:0009B963 5379 0001:0009B96D 5380 0001:0009B978 + 5382 0001:0009B987 5383 0001:0009B9A6 5384 0001:0009B9B0 5385 0001:0009B9BF + 5386 0001:0009B9C9 5387 0001:0009B9D3 5388 0001:0009B9E0 5389 0001:0009BA22 + 5413 0001:0009BA2C 5414 0001:0009BA3D 5415 0001:0009BA45 5417 0001:0009BA51 + 5418 0001:0009BA5B 5420 0001:0009BA65 5421 0001:0009BA72 5422 0001:0009BA80 + 5423 0001:0009BA93 5424 0001:0009BAAA 5425 0001:0009BAB5 5427 0001:0009BABB + 5428 0001:0009BACA 5429 0001:0009BAD5 5430 0001:0009BADF 5425 0001:0009BAEA + 5432 0001:0009BAF0 5437 0001:0009BAFE 5439 0001:0009BB18 5440 0001:0009BB34 + 5447 0001:0009BB38 5448 0001:0009BB41 5450 0001:0009BB51 5451 0001:0009BB60 + 5452 0001:0009BB6E 5453 0001:0009BB7D 5454 0001:0009BB88 5456 0001:0009BB9B + 5457 0001:0009BBAF 5458 0001:0009BBBB 5459 0001:0009BBD7 5454 0001:0009BBDA + 5460 0001:0009BBDF 5462 0001:0009BBF2 5463 0001:0009BC00 5464 0001:0009BC12 + 5460 0001:0009BC15 5466 0001:0009BC27 5469 0001:0009BC37 5472 0001:0009BC3C + 5473 0001:0009BC48 5474 0001:0009BC50 5475 0001:0009BC5E 5477 0001:0009BC76 + 5479 0001:0009BC86 5480 0001:0009BC8E 5481 0001:0009BCA8 5482 0001:0009BCB0 + 5485 0001:0009BCB4 5487 0001:0009BCC0 5494 0001:0009BCC4 5495 0001:0009BCD4 + 5496 0001:0009BCD8 5497 0001:0009BD09 5498 0001:0009BD1B 5499 0001:0009BD3B + 5500 0001:0009BD4D 5501 0001:0009BD6D 5503 0001:0009BD87 5509 0001:0009BD8C + 5512 0001:0009BDA4 5515 0001:0009BDC1 5517 0001:0009BDE1 5518 0001:0009BDEA + 5519 0001:0009BDF3 5520 0001:0009BDFC 5521 0001:0009BE05 5522 0001:0009BE14 + 5524 0001:0009BE30 5525 0001:0009BE4A 5526 0001:0009BE53 5528 0001:0009BE5C + 5531 0001:0009BE78 5532 0001:0009BE94 5534 0001:0009BE9D 5536 0001:0009BEC9 + 5537 0001:0009BED2 5539 0001:0009BEDB 5542 0001:0009BEF7 5543 0001:0009BF13 + 5545 0001:0009BF1C 5547 0001:0009BF48 5548 0001:0009BF4F 5549 0001:0009BF5D + 5551 0001:0009BF83 5554 0001:0009BF92 5557 0001:0009BF9C 5558 0001:0009BFB0 + 5559 0001:0009BFC3 5560 0001:0009BFCC 5561 0001:0009BFE1 5562 0001:0009BFF3 + 5563 0001:0009BFFC 5564 0001:0009C007 5565 0001:0009C013 5567 0001:0009C044 + 5570 0001:0009C052 5571 0001:0009C05E 5574 0001:0009C06C 5577 0001:0009C079 + 5578 0001:0009C085 5582 0001:0009C093 5583 0001:0009C09C 5584 0001:0009C0A5 + 5589 0001:0009C0D0 5590 0001:0009C0D7 5591 0001:0009C0E5 5593 0001:0009C10B + 5596 0001:0009C11A 5598 0001:0009C134 5599 0001:0009C161 5600 0001:0009C175 + 5601 0001:0009C189 5602 0001:0009C19C 5605 0001:0009C1B0 5606 0001:0009C1C2 + 5609 0001:0009C1D4 5629 0001:0009C1DC 5630 0001:0009C1E5 5631 0001:0009C1F0 + 5635 0001:0009C231 5636 0001:0009C242 5638 0001:0009C261 5639 0001:0009C272 + 5645 0001:0009C2B7 5646 0001:0009C2C2 5648 0001:0009C2C9 5647 0001:0009C2CC + 5649 0001:0009C2FE 5651 0001:0009C30F 5636 0001:0009C312 5652 0001:0009C31B + 5654 0001:0009C334 5655 0001:0009C33D 5656 0001:0009C343 5657 0001:0009C349 + 5658 0001:0009C367 5652 0001:0009C36A 5659 0001:0009C36F 5664 0001:0009C378 + 5665 0001:0009C37E 5666 0001:0009C382 5667 0001:0009C396 5668 0001:0009C3C3 + 5666 0001:0009C3C6 5669 0001:0009C3CC 5670 0001:0009C3D3 5672 0001:0009C3DC + 5673 0001:0009C3EC 5674 0001:0009C410 5677 0001:0009C420 5679 0001:0009C42F + 5680 0001:0009C43D 5681 0001:0009C44C 5682 0001:0009C45A 5683 0001:0009C463 + 5684 0001:0009C46C 5685 0001:0009C475 5686 0001:0009C47E 5687 0001:0009C487 + 5688 0001:0009C490 5689 0001:0009C499 5691 0001:0009C4B2 5695 0001:0009C4C2 + 5696 0001:0009C4DA 5701 0001:0009C4E0 5702 0001:0009C4ED 5703 0001:0009C502 + 5704 0001:0009C50F 5707 0001:0009C519 5708 0001:0009C521 5709 0001:0009C52F + 5710 0001:0009C53A 5712 0001:0009C558 5713 0001:0009C560 5716 0001:0009C570 + 5719 0001:0009C578 5720 0001:0009C57F 5721 0001:0009C589 5724 0001:0009C58C + 5725 0001:0009C593 5726 0001:0009C59D 5728 0001:0009C5AA 5730 0001:0009C5BB + 5733 0001:0009C5C0 5734 0001:0009C5C7 5735 0001:0009C5D1 5742 0001:0009C5D4 + 5743 0001:0009C5DD 5744 0001:0009C5EC 5745 0001:0009C5FA 5746 0001:0009C605 + 5747 0001:0009C62B 5749 0001:0009C639 5750 0001:0009C64E 5751 0001:0009C665 + 5746 0001:0009C668 5753 0001:0009C66D 5754 0001:0009C683 5753 0001:0009C69F + 5756 0001:0009C6B1 5758 0001:0009C6C1 5764 0001:0009C6C8 5765 0001:0009C6D5 + 5766 0001:0009C6E5 5767 0001:0009C6F4 5768 0001:0009C6FC 5770 0001:0009C70A + 5771 0001:0009C730 5770 0001:0009C754 5773 0001:0009C759 5778 0001:0009C774 + 5779 0001:0009C786 5780 0001:0009C78F 5782 0001:0009C79B 5783 0001:0009C7A5 + 5776 0001:0009C7B4 5785 0001:0009C7BD 5786 0001:0009C7C5 5788 0001:0009C7D5 + 5789 0001:0009C7DB 5790 0001:0009C7F3 5791 0001:0009C80D 5789 0001:0009C826 + 5792 0001:0009C82B 5795 0001:0009C830 5796 0001:0009C83E 5797 0001:0009C855 + 5798 0001:0009C860 5803 0001:0009C864 5804 0001:0009C870 5805 0001:0009C87B + 5806 0001:0009C88F 5809 0001:0009C894 5810 0001:0009C8A0 5812 0001:0009C8A6 + 5814 0001:0009C8B8 5815 0001:0009C8C8 5817 0001:0009C8DA 5818 0001:0009C8EA + 5820 0001:0009C8F3 5823 0001:0009C8F8 5824 0001:0009C904 5826 0001:0009C916 + 5827 0001:0009C926 5829 0001:0009C938 5830 0001:0009C948 5831 0001:0009C950 + 5834 0001:0009C954 5835 0001:0009C961 5836 0001:0009C970 5837 0001:0009C982 + 5838 0001:0009C98D 5840 0001:0009C99A 5841 0001:0009C9AB 5842 0001:0009C9BC + 5843 0001:0009C9CD 5844 0001:0009C9DE 5846 0001:0009C9F0 5847 0001:0009CA01 + 5849 0001:0009CA0B 5850 0001:0009CA1F 5852 0001:0009CA2A 5853 0001:0009CA3C + 5856 0001:0009CA44 5857 0001:0009CA50 5858 0001:0009CA62 5861 0001:0009CA74 + 5862 0001:0009CA7E 5865 0001:0009CA88 5866 0001:0009CA94 5867 0001:0009CAA4 + 5868 0001:0009CAAF 5869 0001:0009CAC1 5870 0001:0009CAC9 5875 0001:0009CAD0 + 5876 0001:0009CADC 5877 0001:0009CAFE 5878 0001:0009CB06 5879 0001:0009CB1C + 5880 0001:0009CB36 5883 0001:0009CB3C 5884 0001:0009CB45 5885 0001:0009CB4A + 5886 0001:0009CB65 5887 0001:0009CB83 5892 0001:0009CB88 5893 0001:0009CB95 + 5895 0001:0009CBAD 5896 0001:0009CBC3 5897 0001:0009CBCC 5893 0001:0009CBCF + 5898 0001:0009CBD4 5903 0001:0009CBDC 5904 0001:0009CBE9 5905 0001:0009CBF0 + 5906 0001:0009CBF5 5907 0001:0009CBFA 5908 0001:0009CBFF 5909 0001:0009CC0A + 5918 0001:0009CC10 5919 0001:0009CC1F 5922 0001:0009CC29 5923 0001:0009CC32 + 5926 0001:0009CC7E 5927 0001:0009CC95 5928 0001:0009CC9E 5930 0001:0009CCB2 + 5933 0001:0009CCB8 5934 0001:0009CCC5 5935 0001:0009CCD1 5936 0001:0009CCDA + 5937 0001:0009CCE6 5938 0001:0009CCEF 5939 0001:0009CCFF 5940 0001:0009CD0F + 5941 0001:0009CD1A 5942 0001:0009CD2A 5943 0001:0009CD30 5946 0001:0009CD38 + 5947 0001:0009CD5A 5950 0001:0009CD69 5951 0001:0009CD74 5952 0001:0009CD7E + 5953 0001:0009CD8C 5955 0001:0009CD95 5956 0001:0009CD9F 5958 0001:0009CDA9 + 5959 0001:0009CDBE 5960 0001:0009CDC8 5961 0001:0009CDDE 5962 0001:0009CDEA + 5963 0001:0009CDF6 5964 0001:0009CE02 5965 0001:0009CE0E 5966 0001:0009CE17 + 5967 0001:0009CE2A 5968 0001:0009CE39 5969 0001:0009CE43 5970 0001:0009CE4E + 5971 0001:0009CE60 5972 0001:0009CE68 5973 0001:0009CE74 5975 0001:0009CEBD + 5982 0001:0009CEC4 5983 0001:0009CEE7 5986 0001:0009CEF8 5987 0001:0009CF0B + 5989 0001:0009CF35 5991 0001:0009CF45 5992 0001:0009CF88 5993 0001:0009CF94 + 5994 0001:0009CFB1 5996 0001:0009CFC4 5998 0001:0009CFD7 5999 0001:0009CFDE + 6000 0001:0009CFE4 6002 0001:0009CFF7 6003 0001:0009CFFF 6004 0001:0009D010 + 6005 0001:0009D01C 6006 0001:0009D021 6008 0001:0009D04E 6010 0001:0009D069 + 6011 0001:0009D074 6012 0001:0009D07C 6013 0001:0009D084 6014 0001:0009D0A0 + 6015 0001:0009D0D5 6018 0001:0009D0DC 6019 0001:0009D0E8 6022 0001:0009D141 + 6025 0001:0009D148 6026 0001:0009D154 6027 0001:0009D15C 6028 0001:0009D16D + 6029 0001:0009D17E 6030 0001:0009D188 6031 0001:0009D190 6034 0001:0009D194 + 6035 0001:0009D1A0 6036 0001:0009D1C0 6037 0001:0009D1C8 6038 0001:0009D1D9 + 6039 0001:0009D1EA 6040 0001:0009D1F2 6045 0001:0009D1F8 6046 0001:0009D204 + 6047 0001:0009D22A 6052 0001:0009D230 6053 0001:0009D236 6054 0001:0009D23A + 6057 0001:0009D272 6058 0001:0009D281 6059 0001:0009D2A0 6060 0001:0009D2B7 + 6061 0001:0009D2CE 6058 0001:0009D2D1 6062 0001:0009D2D6 6063 0001:0009D2E5 + 6064 0001:0009D304 6065 0001:0009D31B 6066 0001:0009D332 6063 0001:0009D335 + 6068 0001:0009D33A 6069 0001:0009D341 6071 0001:0009D34C 6072 0001:0009D359 + 6073 0001:0009D364 6075 0001:0009D38C 6080 0001:0009D3A8 6081 0001:0009D3B1 + 6082 0001:0009D3BC 6084 0001:0009D3D4 6085 0001:0009D3E3 6087 0001:0009D3FE + 6088 0001:0009D403 6089 0001:0009D40E 6092 0001:0009D418 6093 0001:0009D41F + 6094 0001:0009D428 6095 0001:0009D436 6096 0001:0009D449 6098 0001:0009D45B + 6100 0001:0009D46C 6101 0001:0009D477 6106 0001:0009D47C 6107 0001:0009D488 + 6109 0001:0009D4B2 6110 0001:0009D4CC 6111 0001:0009D4D2 6107 0001:0009D4D5 + 6112 0001:0009D4DA 6113 0001:0009D4E2 6118 0001:0009D4E8 6119 0001:0009D4F1 + 6121 0001:0009D501 6122 0001:0009D50C 6123 0001:0009D527 6124 0001:0009D542 + 6125 0001:0009D54B 6127 0001:0009D573 6128 0001:0009D58B 6127 0001:0009D59E + 6130 0001:0009D5A3 6133 0001:0009D5A8 6135 0001:0009D5B7 6136 0001:0009D5BE + 6141 0001:0009D5C4 6143 0001:0009D5DF 6148 0001:0009D5E8 6149 0001:0009D5F1 + 6151 0001:0009D5FD 6152 0001:0009D609 6153 0001:0009D625 6152 0001:0009D63E + 6154 0001:0009D643 6156 0001:0009D64E 6159 0001:0009D654 6160 0001:0009D65B + 6161 0001:0009D678 6166 0001:0009D67C 6167 0001:0009D689 6168 0001:0009D698 + 6169 0001:0009D6A0 6170 0001:0009D6A8 6171 0001:0009D6C9 6177 0001:0009D6D0 + 6178 0001:0009D6DC 6181 0001:0009D709 6183 0001:0009D70F 6184 0001:0009D726 + 6185 0001:0009D732 6186 0001:0009D74E 6185 0001:0009D767 6188 0001:0009D76C + 6189 0001:0009D778 6191 0001:0009D786 6192 0001:0009D792 6193 0001:0009D7A0 + 6195 0001:0009D7C0 6196 0001:0009D7CE 6199 0001:0009D7D8 6204 0001:0009D7E0 + 6205 0001:0009D7E9 6208 0001:0009D7F1 6209 0001:0009D7FA 6206 0001:0009D806 + 6211 0001:0009D80F 6212 0001:0009D835 6215 0001:0009D83C 6216 0001:0009D848 + 6218 0001:0009D867 6220 0001:0009D885 6221 0001:0009D891 6222 0001:0009D8A4 + 6223 0001:0009D8B8 6226 0001:0009D8D8 6227 0001:0009D8E0 6229 0001:0009D8EC + 6231 0001:0009D8F4 6234 0001:0009D8F8 6235 0001:0009D907 6236 0001:0009D915 + 6237 0001:0009D923 6239 0001:0009D93C 6240 0001:0009D941 6243 0001:0009D95D + 6245 0001:0009D971 6254 0001:0009D978 6257 0001:0009D982 6258 0001:0009D9B6 + 6263 0001:0009DA38 6264 0001:0009DA3E 6266 0001:0009DA4A 6267 0001:0009DA50 + 6268 0001:0009DA5F 6269 0001:0009DA64 6271 0001:0009DA76 6272 0001:0009DA8B + 6273 0001:0009DAA7 6271 0001:0009DAAA 6274 0001:0009DAB0 6276 0001:0009DAC2 + 6277 0001:0009DAD7 6278 0001:0009DAF3 6276 0001:0009DAF6 6279 0001:0009DAFC + 6280 0001:0009DB05 6286 0001:0009DB0C 6287 0001:0009DB19 6289 0001:0009DB2C + 6290 0001:0009DB42 6292 0001:0009DB4C 6295 0001:0009DB53 6296 0001:0009DB73 + 6297 0001:0009DB77 6299 0001:0009DB7D 6300 0001:0009DB8D 6301 0001:0009DB9D + 6302 0001:0009DBBF 6304 0001:0009DBC6 6309 0001:0009DBCC 6310 0001:0009DBD9 + 6313 0001:0009DC1E 6314 0001:0009DC29 6317 0001:0009DC4E 6320 0001:0009DC60 + 6321 0001:0009DC6B 6323 0001:0009DCAB 6324 0001:0009DCB5 6327 0001:0009DCBA + 6331 0001:0009DCCD 6332 0001:0009DCE6 6333 0001:0009DD08 6336 0001:0009DD0A + 6338 0001:0009DD18 6340 0001:0009DD41 6342 0001:0009DD54 6343 0001:0009DD5F + 6346 0001:0009DD64 6347 0001:0009DD70 6351 0001:0009DD80 6353 0001:0009DD91 + 6354 0001:0009DDB4 6356 0001:0009DDC1 6358 0001:0009DDDF 6361 0001:0009DE0F + 6362 0001:0009DE2A 6363 0001:0009DE4A 6366 0001:0009DE60 6367 0001:0009DE6D + 6369 0001:0009DE78 6371 0001:0009DEAB 6372 0001:0009DEB3 6376 0001:0009DECF + 6377 0001:0009DEDA 6382 0001:0009DEE0 6383 0001:0009DEEC 6384 0001:0009DEF0 + 6385 0001:0009DEFB 6388 0001:0009DF01 6389 0001:0009DF27 6391 0001:0009DF2E + 6398 0001:0009DF34 6399 0001:0009DF40 6400 0001:0009DF49 6401 0001:0009DF64 + 6402 0001:0009DF72 6404 0001:0009DF91 6405 0001:0009DF9D 6406 0001:0009DFA4 + 6407 0001:0009DFC4 6408 0001:0009DFD8 6412 0001:0009DFFC 6413 0001:0009E030 + 6414 0001:0009E036 6406 0001:0009E039 6415 0001:0009E03E 6416 0001:0009E052 + 6418 0001:0009E05F 6420 0001:0009E079 6422 0001:0009E09C 6427 0001:0009E0A0 + 6428 0001:0009E0AC 6429 0001:0009E0B3 6430 0001:0009E0B9 6431 0001:0009E0BE + 6432 0001:0009E0C3 6433 0001:0009E0CE 6439 0001:0009E0D4 6440 0001:0009E0E3 + 6441 0001:0009E107 6442 0001:0009E118 6444 0001:0009E128 6445 0001:0009E12D + 6447 0001:0009E133 6448 0001:0009E147 6450 0001:0009E152 6451 0001:0009E161 + 6453 0001:0009E16D 6454 0001:0009E181 6458 0001:0009E1E3 6459 0001:0009E1EC + 6460 0001:0009E1F5 6461 0001:0009E201 6462 0001:0009E215 6463 0001:0009E230 + 6464 0001:0009E242 6465 0001:0009E24F 6467 0001:0009E258 6451 0001:0009E25B + 6470 0001:0009E267 6471 0001:0009E277 6472 0001:0009E297 6473 0001:0009E2AB + 6477 0001:0009E2EB 6478 0001:0009E2FE 6480 0001:0009E33F 6481 0001:0009E348 + 6482 0001:0009E35B 6484 0001:0009E39C 6485 0001:0009E3A5 6471 0001:0009E3A8 + 6486 0001:0009E3B1 6502 0001:0009E3B8 6503 0001:0009E3C7 6504 0001:0009E3D0 + 6505 0001:0009E3DC 6506 0001:0009E3EA 6507 0001:0009E405 6508 0001:0009E40A + 6509 0001:0009E40F 6511 0001:0009E424 6512 0001:0009E42B 6514 0001:0009E434 + 6516 0001:0009E44B 6517 0001:0009E452 6519 0001:0009E459 6521 0001:0009E45F + 6522 0001:0009E47A 6523 0001:0009E48F 6524 0001:0009E49D 6526 0001:0009E4B8 + 6527 0001:0009E4CA 6528 0001:0009E4DC 6529 0001:0009E4E8 6530 0001:0009E504 + 6531 0001:0009E518 6529 0001:0009E53C 6532 0001:0009E541 6533 0001:0009E54E + 6534 0001:0009E557 6541 0001:0009E560 6542 0001:0009E56C 6544 0001:0009E581 + 6545 0001:0009E596 6547 0001:0009E5A6 6551 0001:0009E5B6 6552 0001:0009E5C0 + 6553 0001:0009E5EA 6554 0001:0009E5F5 6555 0001:0009E5FF 6556 0001:0009E60F + 6557 0001:0009E61D 6558 0001:0009E632 6559 0001:0009E646 6560 0001:0009E64F + 6561 0001:0009E65A 6562 0001:0009E662 6563 0001:0009E69A 6565 0001:0009E6B9 + 6566 0001:0009E6C6 6567 0001:0009E6CF 6570 0001:0009E6E0 6573 0001:0009E6E4 + 6574 0001:0009E6F0 6575 0001:0009E70D 6578 0001:0009E714 6579 0001:0009E720 + 6580 0001:0009E73F 6583 0001:0009E744 6584 0001:0009E750 6585 0001:0009E755 + 6586 0001:0009E766 6589 0001:0009E76C 6590 0001:0009E778 6591 0001:0009E792 + 6594 0001:0009E798 6595 0001:0009E7A4 6596 0001:0009E7B5 6599 0001:0009E7BC + 6600 0001:0009E7C8 6601 0001:0009E7D9 6604 0001:0009E7E0 6605 0001:0009E7EC + 6606 0001:0009E809 6609 0001:0009E810 6610 0001:0009E81C 6611 0001:0009E839 + 6614 0001:0009E840 6615 0001:0009E84C 6616 0001:0009E86C 6619 0001:0009E870 + 6620 0001:0009E87C 6621 0001:0009E89C 6624 0001:0009E8A0 6625 0001:0009E8AC + 6626 0001:0009E8CC 6629 0001:0009E8D0 6630 0001:0009E8DC 6631 0001:0009E8FC + 6634 0001:0009E900 6635 0001:0009E90C 6636 0001:0009E914 6639 0001:0009E932 + 6644 0001:0009E952 6646 0001:0009E96C 6649 0001:0009E996 6650 0001:0009E9A0 + 6655 0001:0009E9A4 6656 0001:0009E9B0 6658 0001:0009E9E3 6660 0001:0009EA0B + 6662 0001:0009EA33 6663 0001:0009EA41 6664 0001:0009EA49 6665 0001:0009EA52 + 6666 0001:0009EA5A 6667 0001:0009EA65 6669 0001:0009EA7F 6670 0001:0009EA87 + 6673 0001:0009EA8C 6674 0001:0009EA98 6675 0001:0009EAB1 6676 0001:0009EABA + 6677 0001:0009EADB 6678 0001:0009EAE2 6679 0001:0009EAED 6682 0001:0009EAFC + 6683 0001:0009EB09 6684 0001:0009EB11 6685 0001:0009EB1C 6686 0001:0009EB24 + 6687 0001:0009EB39 6690 0001:0009EB40 6691 0001:0009EB4C 6692 0001:0009EB57 + 6693 0001:0009EB5F 6700 0001:0009EB64 6702 0001:0009EB71 6703 0001:0009EB86 + 6706 0001:0009EBA1 6707 0001:0009EBB0 6709 0001:0009EBB7 6710 0001:0009EBC0 + 6711 0001:0009EBE0 6712 0001:0009EBE6 6713 0001:0009EBEF 6715 0001:0009EBF7 + 6716 0001:0009EC02 6717 0001:0009EC09 6718 0001:0009EC12 6720 0001:0009EC1A + 6722 0001:0009EC25 6724 0001:0009EC2C 6725 0001:0009EC42 6726 0001:0009EC4C + 6730 0001:0009EC4E 6733 0001:0009EC81 6734 0001:0009EC8D 6737 0001:0009EC8F + 6738 0001:0009EC9A 6741 0001:0009ECA0 6742 0001:0009ECAC 6743 0001:0009ECB7 + 6744 0001:0009ECBF 6747 0001:0009ECC4 6748 0001:0009ECD0 6749 0001:0009ECDB + 6750 0001:0009ECE3 6753 0001:0009ECE8 6754 0001:0009ECF4 6755 0001:0009ECFE + 6756 0001:0009ED09 6759 0001:0009ED10 6760 0001:0009ED1C 6761 0001:0009ED26 + 6762 0001:0009ED31 6819 0001:0009ED38 6820 0001:0009ED54 6821 0001:0009ED63 + 6823 0001:0009ED73 6825 0001:0009EDAC 6826 0001:0009EDB9 6828 0001:0009EDC5 + 6829 0001:0009EDE2 6830 0001:0009EDE8 6832 0001:0009EDFF 6835 0001:0009EE0A + 6836 0001:0009EE3D 6839 0001:0009EE44 6840 0001:0009EE60 6841 0001:0009EE6B + 6843 0001:0009EE77 6844 0001:0009EE9B 6846 0001:0009EEAD 6847 0001:0009EEE5 + 6850 0001:0009EEEC 6851 0001:0009EEFB 6852 0001:0009EF06 6855 0001:0009EF0C + 6857 0001:0009EF18 6860 0001:0009EF1C 6861 0001:0009EF24 6862 0001:0009EF43 + 6865 0001:0009EF48 6866 0001:0009EF50 6867 0001:0009EF6F 6870 0001:0009EF74 + 6871 0001:0009EF84 6873 0001:0009EFB3 6874 0001:0009EFD0 6878 0001:0009EFD8 + 6879 0001:0009EFE8 6880 0001:0009EFF5 6881 0001:0009F01A 6885 0001:0009F024 + 6886 0001:0009F034 6887 0001:0009F043 6888 0001:0009F061 6891 0001:0009F068 + 6892 0001:0009F078 6893 0001:0009F07C 6894 0001:0009F0A6 6895 0001:0009F0D0 + 6899 0001:0009F0D8 6900 0001:0009F0E7 6901 0001:0009F105 6904 0001:0009F10C + 6905 0001:0009F115 6906 0001:0009F132 6907 0001:0009F13A 6910 0001:0009F140 + 6911 0001:0009F14C 6912 0001:0009F16E 6913 0001:0009F176 6919 0001:0009F17C + 6920 0001:0009F196 6921 0001:0009F1A8 6922 0001:0009F1B5 6923 0001:0009F1C2 + 6924 0001:0009F1E3 6929 0001:0009F1EC 6930 0001:0009F1F5 6931 0001:0009F200 + 6932 0001:0009F206 6933 0001:0009F212 6932 0001:0009F22F 6934 0001:0009F238 + 6937 0001:0009F23C 6939 0001:0009F243 6942 0001:0009F248 6943 0001:0009F254 + 6944 0001:0009F278 6945 0001:0009F298 6946 0001:0009F2A9 6947 0001:0009F2CC + 6950 0001:0009F2D0 6951 0001:0009F2F0 6953 0001:0009F302 6954 0001:0009F30E + 6956 0001:0009F317 6957 0001:0009F322 6959 0001:0009F328 6960 0001:0009F336 + 6961 0001:0009F341 6964 0001:0009F350 6965 0001:0009F371 6969 0001:0009F3AD + 6975 0001:0009F3B4 6977 0001:0009F3C3 6980 0001:0009F3D0 6981 0001:0009F3E0 + 6982 0001:0009F3F6 6983 0001:0009F3FE 6984 0001:0009F40C 6985 0001:0009F424 + 6986 0001:0009F43C 6989 0001:0009F473 6991 0001:0009F483 6992 0001:0009F48E + 6993 0001:0009F49C 6995 0001:0009F4A6 6998 0001:0009F4B0 7001 0001:0009F4BC + 7002 0001:0009F4C4 7003 0001:0009F4DC 7005 0001:0009F4F0 7010 0001:0009F4F4 + 7011 0001:0009F502 7013 0001:0009F518 7014 0001:0009F521 7015 0001:0009F52F + 7017 0001:0009F553 7021 0001:0009F569 7022 0001:0009F574 7025 0001:0009F57C + 7026 0001:0009F58C 7027 0001:0009F5B2 7033 0001:0009F5B8 7034 0001:0009F5C5 + 7035 0001:0009F5C9 7036 0001:0009F5D4 7040 0001:0009F5FD 7041 0001:0009F60B + 7043 0001:0009F614 7044 0001:0009F629 7047 0001:0009F633 7048 0001:0009F63A + 7051 0001:0009F640 7052 0001:0009F64C 7053 0001:0009F666 7054 0001:0009F675 + 7057 0001:0009F67C 7058 0001:0009F688 7059 0001:0009F6A2 7060 0001:0009F6B1 + 7063 0001:0009F6B8 7064 0001:0009F6C8 7065 0001:0009F6EE 7071 0001:0009F6F4 + 7072 0001:0009F701 7073 0001:0009F705 7074 0001:0009F710 7078 0001:0009F739 + 7079 0001:0009F747 7081 0001:0009F750 7082 0001:0009F765 7085 0001:0009F76F + 7086 0001:0009F776 7089 0001:0009F77C 7090 0001:0009F788 7091 0001:0009F7A2 + 7094 0001:0009F7A8 7095 0001:0009F7B4 7096 0001:0009F7CE 7099 0001:0009F7D4 + 7100 0001:0009F7E1 7101 0001:0009F803 7107 0001:0009F808 7108 0001:0009F815 + 7109 0001:0009F819 7110 0001:0009F824 7112 0001:0009F84D 7115 0001:0009F856 + 7116 0001:0009F85F 7117 0001:0009F86E 7118 0001:0009F87A 7120 0001:0009F883 + 7121 0001:0009F88A 7124 0001:0009F890 7125 0001:0009F89C 7126 0001:0009F8B6 + 7136 0001:0009F8BC 7137 0001:0009F8C5 7138 0001:0009F8C9 7139 0001:0009F8D9 + 7141 0001:0009F8F5 7142 0001:0009F903 7144 0001:0009F918 7149 0001:0009F968 + 7150 0001:0009F96C 7153 0001:0009F96E 7139 0001:0009F971 7154 0001:0009F97D + 7156 0001:0009F984 7159 0001:0009F990 7163 0001:0009F9E1 7164 0001:0009F9EC + 7169 0001:0009FA09 7172 0001:0009FA29 7173 0001:0009FA34 7176 0001:0009FA38 + 7177 0001:0009FA44 7178 0001:0009FA61 7181 0001:0009FA68 7183 0001:0009FA74 + 7184 0001:0009FA9A 7185 0001:0009FAA5 7188 0001:0009FAAC 7189 0001:0009FAB8 + 7190 0001:0009FAD5 7193 0001:0009FADC 7194 0001:0009FAE8 7195 0001:0009FAF3 + 7196 0001:0009FB0A 7197 0001:0009FB21 7200 0001:0009FB28 7201 0001:0009FB34 + 7202 0001:0009FB3F 7203 0001:0009FB4A 7204 0001:0009FB54 7207 0001:0009FB58 + 7209 0001:0009FB64 7210 0001:0009FB76 7212 0001:0009FB82 7213 0001:0009FB8D + 7218 0001:0009FB94 7219 0001:0009FBA1 7220 0001:0009FBAF 7221 0001:0009FBB8 + 7223 0001:0009FBC9 7224 0001:0009FBD1 7225 0001:0009FBEE 7221 0001:0009FBF1 + 7226 0001:0009FBFA 7229 0001:0009FC00 7230 0001:0009FC0D 7231 0001:0009FC15 + 7232 0001:0009FC2C 7235 0001:0009FC34 7236 0001:0009FC41 7237 0001:0009FC58 + 7240 0001:0009FC60 7241 0001:0009FC6C 7242 0001:0009FC77 7243 0001:0009FC83 + 7246 0001:0009FC88 7247 0001:0009FC94 7248 0001:0009FC9F 7249 0001:0009FCBB + 7250 0001:0009FCC7 7253 0001:0009FCCC 7254 0001:0009FCD9 7255 0001:0009FCE4 + 7257 0001:0009FCF0 7258 0001:0009FCFD 7261 0001:0009FD16 7262 0001:0009FD23 + 7263 0001:0009FD3A 7264 0001:0009FD46 7267 0001:0009FD4C 7268 0001:0009FD59 + 7269 0001:0009FD65 7272 0001:0009FD6C 7273 0001:0009FD78 7274 0001:0009FD92 + 7277 0001:0009FD98 7278 0001:0009FDA5 7279 0001:0009FDBD 7282 0001:0009FDC4 + 7283 0001:0009FDD1 7284 0001:0009FDE9 7287 0001:0009FDF0 7288 0001:0009FDFC + 7289 0001:0009FE07 7292 0001:0009FE0C 7293 0001:0009FE18 7294 0001:0009FE23 + 7297 0001:0009FE28 7298 0001:0009FE34 7299 0001:0009FE3F 7302 0001:0009FE44 + 7303 0001:0009FE50 7304 0001:0009FE6C 7305 0001:0009FE7E 7306 0001:0009FE86 + 7313 0001:0009FE8C 7314 0001:0009FE98 7315 0001:0009FEC4 7318 0001:0009FEC8 + 7319 0001:0009FED4 7320 0001:0009FEF3 7321 0001:0009FF08 7322 0001:0009FF24 + 7325 0001:0009FF28 7326 0001:0009FF34 7327 0001:0009FF3F 7328 0001:0009FF53 + 7329 0001:0009FF5F 7332 0001:0009FF64 7333 0001:0009FF70 7334 0001:0009FF7B + 7335 0001:0009FFA3 7336 0001:0009FFAF 7341 0001:0009FFB4 7342 0001:0009FFC0 + 7344 0001:0009FFC9 7345 0001:0009FFD2 7346 0001:0009FFE1 7348 0001:0009FFFA + 7351 0001:000A0000 7352 0001:000A000C 7353 0001:000A0017 7356 0001:000A0023 + 7357 0001:000A003D 7358 0001:000A0046 7360 0001:000A004E 7363 0001:000A0054 + 7364 0001:000A0060 7365 0001:000A0091 7366 0001:000A0099 7367 0001:000A00A5 + 7370 0001:000A00AC 7371 0001:000A00B8 7373 0001:000A00C4 7374 0001:000A00CD + 7375 0001:000A00E1 7376 0001:000A00F5 7378 0001:000A00FF 7381 0001:000A0104 + 7382 0001:000A0110 7383 0001:000A011B 7386 0001:000A0120 7387 0001:000A012C + 7388 0001:000A0137 7391 0001:000A013C 7392 0001:000A0148 7393 0001:000A0153 + 7396 0001:000A0158 7397 0001:000A0164 7398 0001:000A016F 7401 0001:000A0174 + 7402 0001:000A0180 7403 0001:000A0189 7405 0001:000A0199 7408 0001:000A01B2 + 7409 0001:000A01D7 7412 0001:000A01E9 7415 0001:000A01F0 7416 0001:000A01FD + 7417 0001:000A0215 7420 0001:000A021C 7421 0001:000A0228 7422 0001:000A0233 + 7423 0001:000A023E 7430 0001:000A0244 7431 0001:000A0251 7432 0001:000A0255 + 7434 0001:000A025E 7435 0001:000A0264 7437 0001:000A026A 7438 0001:000A0279 + 7440 0001:000A029B 7435 0001:000A02A4 7442 0001:000A02AA 7443 0001:000A02B5 + 7446 0001:000A02CE 7447 0001:000A02E9 7448 0001:000A02F0 7453 0001:000A02F8 + 7456 0001:000A0304 7457 0001:000A030E 7458 0001:000A031D 7459 0001:000A0330 + 7461 0001:000A033D 7462 0001:000A035D 7463 0001:000A0362 7465 0001:000A0390 + 7467 0001:000A0399 7469 0001:000A03A2 7471 0001:000A03A9 7477 0001:000A0403 + 7479 0001:000A040B 7482 0001:000A0410 7483 0001:000A041C 7485 0001:000A0425 + 7488 0001:000A0451 7490 0001:000A046D 7493 0001:000A0474 7494 0001:000A0480 + 7497 0001:000A0489 7498 0001:000A0493 7501 0001:000A04CC 7503 0001:000A04D4 + 7506 0001:000A04D8 7509 0001:000A04E4 7510 0001:000A04EE 7511 0001:000A04FD + 7513 0001:000A0506 7514 0001:000A0522 7517 0001:000A0546 7519 0001:000A054E + 7522 0001:000A0554 7523 0001:000A0560 7525 0001:000A0569 7526 0001:000A0573 + 7528 0001:000A0599 7533 0001:000A05A0 7534 0001:000A05B1 7537 0001:000A05E1 + 7538 0001:000A0600 7542 0001:000A0625 7543 0001:000A062E 7544 0001:000A0637 + 7545 0001:000A0640 7546 0001:000A0649 7548 0001:000A0655 7549 0001:000A065C + 7550 0001:000A066F 7551 0001:000A0684 7554 0001:000A0697 7555 0001:000A069F + 7557 0001:000A06AB 7562 0001:000A06B4 7563 0001:000A06C4 7564 0001:000A06FE + 7567 0001:000A0704 7568 0001:000A0713 7569 0001:000A071B 7570 0001:000A0729 + 7571 0001:000A0737 7574 0001:000A0754 7575 0001:000A0774 7577 0001:000A0794 + 7579 0001:000A07AF 7581 0001:000A07BF 7604 0001:000A07C4 7605 0001:000A07D3 + 7606 0001:000A07FB 7607 0001:000A081C 7609 0001:000A0838 7610 0001:000A0846 + 7612 0001:000A0864 7613 0001:000A086D 7615 0001:000A0878 7616 0001:000A087E + 7619 0001:000A08B3 7607 0001:000A08B6 7620 0001:000A08BF 7621 0001:000A08C7 + 7624 0001:000A08CC 7625 0001:000A08D8 7626 0001:000A08F2 7632 0001:000A08F8 + 7633 0001:000A0904 7635 0001:000A0911 7636 0001:000A0920 7637 0001:000A0932 + 7638 0001:000A0949 7640 0001:000A094F 7641 0001:000A0961 7642 0001:000A096C + 7643 0001:000A097B 7645 0001:000A0983 7646 0001:000A0997 7649 0001:000A09AE + 7651 0001:000A09BE 7652 0001:000A09CD 7653 0001:000A09E9 7654 0001:000A09F1 + 7655 0001:000A0A10 7656 0001:000A0A18 7658 0001:000A0A34 7661 0001:000A0A51 + 7668 0001:000A0A58 7669 0001:000A0A64 7671 0001:000A0A6D 7672 0001:000A0A8D + 7673 0001:000A0A92 7674 0001:000A0AB3 7676 0001:000A0AC3 7677 0001:000A0ACF + 7679 0001:000A0AF6 7682 0001:000A0AFC 7683 0001:000A0B08 7684 0001:000A0B11 + 7686 0001:000A0B28 7687 0001:000A0B39 7688 0001:000A0B56 7689 0001:000A0B67 + 7692 0001:000A0B6C 7693 0001:000A0B75 7694 0001:000A0B7E 7696 0001:000A0B8E + 7697 0001:000A0B9D 7702 0001:000A0BA4 7703 0001:000A0BAD 7705 0001:000A0BB5 + 7704 0001:000A0BBE 7706 0001:000A0BC7 7707 0001:000A0BD3 7708 0001:000A0BE7 + 7711 0001:000A0BEC 7712 0001:000A0BF3 7713 0001:000A0C04 7718 0001:000A0C08 + 7719 0001:000A0C14 7721 0001:000A0C24 7722 0001:000A0C44 7724 0001:000A0C4D + 7726 0001:000A0C6F 7727 0001:000A0C7D 7728 0001:000A0C95 7729 0001:000A0CA6 + 7727 0001:000A0CB9 7732 0001:000A0CBE 7735 0001:000A0CC4 7736 0001:000A0CCB + 7737 0001:000A0CE6 7740 0001:000A0CEC 7741 0001:000A0CF3 7742 0001:000A0CFB + 7743 0001:000A0D06 7748 0001:000A0D0C 7749 0001:000A0D15 7750 0001:000A0D20 + 7751 0001:000A0D2D 7752 0001:000A0D45 7758 0001:000A0D4C 7759 0001:000A0D55 + 7760 0001:000A0D59 7761 0001:000A0D64 7763 0001:000A0D6A 7764 0001:000A0D70 + 7766 0001:000A0D78 7767 0001:000A0D8D 7764 0001:000A0D96 7769 0001:000A0D9E + 7771 0001:000A0DA5 7776 0001:000A0DAC 7777 0001:000A0DB5 7778 0001:000A0DC0 + 7779 0001:000A0DC6 7780 0001:000A0DD3 7781 0001:000A0DDF 7783 0001:000A0DEF + 7784 0001:000A0DF7 7787 0001:000A0DFC 7788 0001:000A0E05 7789 0001:000A0E2D + 7792 0001:000A0E34 7793 0001:000A0E3B 7795 0001:000A0E47 7796 0001:000A0E5B + 7798 0001:000A0E66 7801 0001:000A0E6C 7802 0001:000A0E75 7803 0001:000A0E7D + 7804 0001:000A0E8C 7809 0001:000A0E90 7810 0001:000A0E9C 7811 0001:000A0EB3 + 7812 0001:000A0ECF 7813 0001:000A0EDD 7816 0001:000A0EFC 7817 0001:000A0F14 + 7818 0001:000A0F2E 7819 0001:000A0F54 7820 0001:000A0F7A 7811 0001:000A0F7D + 7821 0001:000A0F86 7824 0001:000A0F8C 7825 0001:000A0F98 7826 0001:000A0F9F + 7827 0001:000A0FA7 7828 0001:000A0FB9 7831 0001:000A0FC0 7832 0001:000A0FCC + 7833 0001:000A0FDE 7836 0001:000A0FE4 7837 0001:000A0FEC 7840 0001:000A1001 + 7841 0001:000A1025 7843 0001:000A1031 7846 0001:000A1038 7847 0001:000A1044 + 7849 0001:000A1052 7850 0001:000A105E 7852 0001:000A106F 7855 0001:000A1074 + 7856 0001:000A1080 7858 0001:000A108E 7859 0001:000A109A 7860 0001:000A10A4 + 7862 0001:000A10B5 7884 0001:000A10BC 7885 0001:000A10C5 7886 0001:000A10D6 + 7889 0001:000A10DC 7890 0001:000A10E8 7892 0001:000A10F6 7893 0001:000A1102 + 7894 0001:000A1114 7896 0001:000A1125 7899 0001:000A112C 7900 0001:000A1135 + 7901 0001:000A113E 7903 0001:000A1158 7904 0001:000A1162 7909 0001:000A1168 + 7910 0001:000A1175 7911 0001:000A1183 7913 0001:000A1189 7914 0001:000A119B + 7915 0001:000A11A8 7916 0001:000A11BA 7918 0001:000A11C3 7919 0001:000A11D7 + 7922 0001:000A11EF 7925 0001:000A11F4 7926 0001:000A1201 7927 0001:000A120A + 7928 0001:000A1219 7929 0001:000A1225 7934 0001:000A122C 7935 0001:000A1238 + 7937 0001:000A1246 7938 0001:000A1252 7940 0001:000A125E 7941 0001:000A1277 + 7942 0001:000A1284 7944 0001:000A1299 7946 0001:000A12AA 7949 0001:000A12B0 + 7950 0001:000A12D0 7952 0001:000A12DE 7953 0001:000A12EA 7954 0001:000A12FB + 7956 0001:000A1337 7959 0001:000A133C 7960 0001:000A1345 7961 0001:000A1356 + 7968 0001:000A135C 7969 0001:000A1367 7971 0001:000A137A 7972 0001:000A1381 + 7973 0001:000A1394 7975 0001:000A13A0 7976 0001:000A13B3 7978 0001:000A13CB + 7979 0001:000A13DF 7981 0001:000A13E5 7982 0001:000A13F2 7985 0001:000A13FF + 7986 0001:000A1408 7987 0001:000A1411 7988 0001:000A141D 7989 0001:000A1429 + 7990 0001:000A1431 7996 0001:000A1438 7997 0001:000A1445 7998 0001:000A1451 + 8000 0001:000A146D 8001 0001:000A1481 8002 0001:000A148C 8003 0001:000A149B + 7998 0001:000A149E 8004 0001:000A14A3 8011 0001:000A14A8 8012 0001:000A14B8 + 8013 0001:000A14BD 8014 0001:000A14CC 8015 0001:000A14DA 8016 0001:000A14E9 + 8018 0001:000A14F6 8019 0001:000A1504 8020 0001:000A150A 8021 0001:000A1521 + 8023 0001:000A1527 8025 0001:000A152D 8026 0001:000A1530 8029 0001:000A1542 + 8030 0001:000A1551 8032 0001:000A1554 8033 0001:000A1562 8036 0001:000A1595 + 8037 0001:000A159B 8040 0001:000A15BA 8042 0001:000A15CD 8046 0001:000A15D4 + 8047 0001:000A15E3 8049 0001:000A15FE 8050 0001:000A160F 8056 0001:000A1618 + 8057 0001:000A1621 8058 0001:000A162C 8060 0001:000A1632 8061 0001:000A1645 + 8062 0001:000A164B 8063 0001:000A165E 8065 0001:000A166F 8071 0001:000A1674 + 8072 0001:000A1680 8074 0001:000A1698 8075 0001:000A16A6 8076 0001:000A16BA + 8072 0001:000A16BD 8077 0001:000A16C2 8080 0001:000A16C8 8081 0001:000A16D7 + 8082 0001:000A16E9 8083 0001:000A16F6 8084 0001:000A1708 8085 0001:000A1713 + 8089 0001:000A1718 8090 0001:000A1727 8091 0001:000A173B 8110 0001:000A1740 + 8113 0001:000A1750 8114 0001:000A175C 8116 0001:000A176C 8117 0001:000A1773 + 8118 0001:000A177F 8120 0001:000A178F 8121 0001:000A1796 8122 0001:000A17A2 + 8124 0001:000A17B2 8125 0001:000A17B9 8126 0001:000A17C5 8128 0001:000A17D5 + 8130 0001:000A17DC 8132 0001:000A17F2 8134 0001:000A17FC 8135 0001:000A180B + 8137 0001:000A182B 8138 0001:000A1836 8139 0001:000A1844 8140 0001:000A1855 + 8141 0001:000A1866 8142 0001:000A1877 8143 0001:000A1888 8144 0001:000A1899 + 8145 0001:000A18A9 8146 0001:000A18B9 8147 0001:000A18C9 8149 0001:000A18D9 + 8150 0001:000A18E7 8151 0001:000A18EC 8152 0001:000A18F1 8153 0001:000A18F6 + 8154 0001:000A18FB 8155 0001:000A1900 8156 0001:000A1905 8157 0001:000A190A + 8158 0001:000A190F 8160 0001:000A192B 8162 0001:000A1939 8165 0001:000A195C + 8168 0001:000A1974 8169 0001:000A1988 8170 0001:000A198E 8172 0001:000A1994 + 8174 0001:000A19AA 8176 0001:000A19AE 8177 0001:000A19B4 8178 0001:000A19C6 + 8179 0001:000A19CC 8182 0001:000A19E0 8184 0001:000A19E6 8187 0001:000A19EA + 8188 0001:000A19FE 8189 0001:000A1A04 8191 0001:000A1A0A 8193 0001:000A1A20 + 8195 0001:000A1A24 8196 0001:000A1A2A 8197 0001:000A1A3C 8198 0001:000A1A42 + 8201 0001:000A1A56 8203 0001:000A1A5C 8207 0001:000A1A60 8210 0001:000A1A6C + 8212 0001:000A1A7C 8213 0001:000A1A84 8214 0001:000A1A8E 8216 0001:000A1A96 + 8218 0001:000A1AA6 8219 0001:000A1AAE 8220 0001:000A1AB8 8225 0001:000A1AC2 + 8226 0001:000A1ACB 8231 0001:000A1AD4 8234 0001:000A1AE0 8236 0001:000A1AF0 + 8237 0001:000A1AF8 8238 0001:000A1B02 8240 0001:000A1B0A 8242 0001:000A1B1A + 8243 0001:000A1B22 8244 0001:000A1B2C 8249 0001:000A1B36 8250 0001:000A1B3F + 8254 0001:000A1B48 8158 0001:000A1B4B 8255 0001:000A1B54 8256 0001:000A1B67 + 8257 0001:000A1B72 8258 0001:000A1B8D 8259 0001:000A1B98 8260 0001:000A1BAB + 8261 0001:000A1BB6 8262 0001:000A1BD1 8264 0001:000A1BE9 8265 0001:000A1BF9 + 8266 0001:000A1C09 8267 0001:000A1C19 8269 0001:000A1C31 8273 0001:000A1C40 + 8274 0001:000A1C4F 8275 0001:000A1C65 8276 0001:000A1C7B 8279 0001:000A1C84 + 8280 0001:000A1C93 8281 0001:000A1CA1 8283 0001:000A1CB3 8284 0001:000A1CC5 + 8285 0001:000A1CD3 8288 0001:000A1CD8 8289 0001:000A1CE1 8290 0001:000A1CEC + 8294 0001:000A1CF0 8295 0001:000A1CFC 8296 0001:000A1D07 8297 0001:000A1D2A + 8303 0001:000A1D30 8304 0001:000A1D41 8306 0001:000A1D45 8309 0001:000A1D7B + 8311 0001:000A1D89 8312 0001:000A1D94 8313 0001:000A1DA2 8314 0001:000A1DAA + 8315 0001:000A1DB8 8316 0001:000A1DD4 8317 0001:000A1DE2 8320 0001:000A1DFD + 8321 0001:000A1E0D 8322 0001:000A1E18 8323 0001:000A1E1D 8324 0001:000A1E27 + 8325 0001:000A1E32 8326 0001:000A1E37 8327 0001:000A1E62 8315 0001:000A1E65 + 8329 0001:000A1E7B 8330 0001:000A1E83 8332 0001:000A1E93 8333 0001:000A1EA3 + 8335 0001:000A1EAD 8336 0001:000A1EC6 8339 0001:000A1EDD 8340 0001:000A1EE4 + 8341 0001:000A1EEE 8343 0001:000A1EF8 8344 0001:000A1F11 8347 0001:000A1F28 + 8349 0001:000A1F32 8352 0001:000A1F38 8353 0001:000A1F47 8355 0001:000A1F53 + 8357 0001:000A1F61 8358 0001:000A1F6D 8361 0001:000A1F80 8363 0001:000A1F8E + 8364 0001:000A1F9A 8367 0001:000A1FAB 8370 0001:000A1FB0 8371 0001:000A1FBC + 8373 0001:000A1FCA 8374 0001:000A1FD6 8376 0001:000A1FE7 8379 0001:000A1FEC + 8380 0001:000A1FF8 8382 0001:000A2006 8383 0001:000A2012 8385 0001:000A2023 + 8388 0001:000A2028 8389 0001:000A2034 8391 0001:000A2042 8392 0001:000A204E + 8394 0001:000A205F 8399 0001:000A2064 8400 0001:000A2070 8401 0001:000A207B + 8403 0001:000A2084 8404 0001:000A20A5 8406 0001:000A20B5 8407 0001:000A20BA + 8408 0001:000A20D2 8409 0001:000A20EA 8411 0001:000A20F0 8412 0001:000A2104 + 8413 0001:000A2119 8414 0001:000A212E 8418 0001:000A2143 8431 0001:000A2148 + 8433 0001:000A2156 8435 0001:000A2172 8436 0001:000A2183 8437 0001:000A2191 + 8438 0001:000A21A3 8439 0001:000A21B5 8440 0001:000A21CB 8441 0001:000A21E0 + 8443 0001:000A21F9 8444 0001:000A2203 8445 0001:000A2220 8446 0001:000A222A + 8448 0001:000A223A 8449 0001:000A223F 8450 0001:000A2257 8453 0001:000A226F + 8454 0001:000A2282 8455 0001:000A2294 8456 0001:000A22A6 8457 0001:000A22B8 + 8458 0001:000A22CC 8459 0001:000A22DE 8461 0001:000A22F2 8464 0001:000A2354 + 8465 0001:000A236D 8467 0001:000A2377 8468 0001:000A238C 8470 0001:000A23B5 + 8474 0001:000A23CF 8476 0001:000A23DA 8477 0001:000A23F1 8478 0001:000A2400 + 8497 0001:000A2408 8498 0001:000A2414 8499 0001:000A241D 8500 0001:000A244B + 8501 0001:000A2451 8503 0001:000A246D 8504 0001:000A2476 8505 0001:000A2481 + 8510 0001:000A2488 8511 0001:000A2495 8512 0001:000A24A0 8513 0001:000A24A6 + 8515 0001:000A24BF 8517 0001:000A24DF 8519 0001:000A24FD 8522 0001:000A2504 + 8524 0001:000A2510 8525 0001:000A2519 8526 0001:000A252B 8528 0001:000A2538 + 8530 0001:000A2545 8531 0001:000A2550 8534 0001:000A2554 8535 0001:000A255D + 8536 0001:000A256D 8539 0001:000A2574 8540 0001:000A2580 8542 0001:000A258D + 8543 0001:000A2593 8545 0001:000A25A6 8546 0001:000A25B9 8548 0001:000A25C1 + 8553 0001:000A25CC 8554 0001:000A25E7 8555 0001:000A25F4 8556 0001:000A2609 + 8557 0001:000A2635 8560 0001:000A263C 8561 0001:000A264D 8562 0001:000A265E + 8563 0001:000A266C 8564 0001:000A2688 8567 0001:000A268C 8568 0001:000A2698 + 8570 0001:000A26A5 8571 0001:000A26B3 8572 0001:000A26C1 8573 0001:000A26D5 + 8574 0001:000A26E3 8576 0001:000A26FB 8579 0001:000A2720 8582 0001:000A2736 + 8585 0001:000A273C 8586 0001:000A2743 8591 0001:000A2748 8592 0001:000A2763 + 8593 0001:000A2770 8594 0001:000A277D 8595 0001:000A2798 8596 0001:000A27C6 + 8599 0001:000A27CC 8600 0001:000A27D8 8603 0001:000A27E3 8604 0001:000A27ED + 8605 0001:000A27F7 8606 0001:000A2800 8608 0001:000A280A 8609 0001:000A281D + 8610 0001:000A2827 8611 0001:000A283A 8613 0001:000A2848 8616 0001:000A284C + 8617 0001:000A2858 8618 0001:000A2862 8623 0001:000A2868 8624 0001:000A2874 + 8625 0001:000A2885 8626 0001:000A2893 8628 0001:000A28AE 8630 0001:000A28C8 + 8635 0001:000A28CC 8636 0001:000A28E8 8637 0001:000A28F3 8638 0001:000A28F7 + 8639 0001:000A28FB 8640 0001:000A291C 8642 0001:000A2975 8645 0001:000A297C + 8646 0001:000A2988 8652 0001:000A2A0C 8655 0001:000A2A10 8656 0001:000A2A17 + 8657 0001:000A2A1F 8660 0001:000A2A24 8661 0001:000A2A46 8663 0001:000A2A51 + 8664 0001:000A2A5D 8665 0001:000A2A86 8666 0001:000A2AD1 8677 0001:000A2AD8 + 8678 0001:000A2AEF 8679 0001:000A2AF9 8680 0001:000A2B07 8681 0001:000A2B12 + 8682 0001:000A2B16 8683 0001:000A2B21 8684 0001:000A2B3A 8685 0001:000A2B4F + 8686 0001:000A2B68 8687 0001:000A2B7D 8688 0001:000A2B9D 8689 0001:000A2BBD + 8691 0001:000A2BE5 8694 0001:000A2C18 8695 0001:000A2C2A 8697 0001:000A2C30 + 8698 0001:000A2C42 8699 0001:000A2C48 8701 0001:000A2C4E 8702 0001:000A2C63 + 8704 0001:000A2C69 8705 0001:000A2C6D 8708 0001:000A2C90 8709 0001:000A2CA2 + 8710 0001:000A2CB2 8712 0001:000A2CC7 8713 0001:000A2CD5 8715 0001:000A2CE7 + 8718 0001:000A2CF0 8719 0001:000A2D08 8720 0001:000A2D19 8723 0001:000A2D24 + 8724 0001:000A2D33 8725 0001:000A2D45 8727 0001:000A2D76 8728 0001:000A2D7D + 8729 0001:000A2D84 8735 0001:000A2D8C 8736 0001:000A2D98 8737 0001:000A2DB2 + 8738 0001:000A2DC0 8741 0001:000A2DD3 8742 0001:000A2DE2 8744 0001:000A2DFC + 8747 0001:000A2E00 8748 0001:000A2E0C 8749 0001:000A2E1E 8750 0001:000A2E2F + 8758 0001:000A2E34 8759 0001:000A2E43 8760 0001:000A2E49 8761 0001:000A2E4F + 8762 0001:000A2E5C 8763 0001:000A2E69 8764 0001:000A2E74 8765 0001:000A2E80 + 8768 0001:000A2E88 8769 0001:000A2E8F 8770 0001:000A2E97 8771 0001:000A2EA2 + 8777 0001:000A2EA8 8778 0001:000A2EB1 8780 0001:000A2EBF 8782 0001:000A2EE5 + 8783 0001:000A2EF3 8784 0001:000A2F10 8785 0001:000A2F2D 8786 0001:000A2F3C + 8787 0001:000A2F47 8789 0001:000A2F67 8792 0001:000A2F78 8795 0001:000A2F7C + 8796 0001:000A2F8B 8798 0001:000A2F97 8799 0001:000A2FA0 8800 0001:000A2FA9 + 8801 0001:000A2FB2 8802 0001:000A2FCC 8803 0001:000A2FD0 8805 0001:000A2FDB + 8806 0001:000A2FE2 8809 0001:000A2FE8 8810 0001:000A2FF5 8812 0001:000A3002 + 8813 0001:000A300D 8815 0001:000A301E 8818 0001:000A3024 8819 0001:000A3030 + 8820 0001:000A303B 8821 0001:000A3050 8822 0001:000A305B 8825 0001:000A3060 + 8826 0001:000A306F 8827 0001:000A3073 8829 0001:000A307F 8830 0001:000A30A3 + 8831 0001:000A30AB 8832 0001:000A30C0 8834 0001:000A30D0 8837 0001:000A30D8 + 8838 0001:000A30E7 8839 0001:000A30EB 8841 0001:000A3102 8842 0001:000A310A + 8843 0001:000A3113 8844 0001:000A3128 8846 0001:000A3148 8849 0001:000A3150 + 8850 0001:000A3157 8852 0001:000A316C 8853 0001:000A3178 8855 0001:000A3180 + 8858 0001:000A3184 8859 0001:000A3193 8860 0001:000A319F 8861 0001:000A31B4 + 8863 0001:000A31CC 8864 0001:000A31D3 8867 0001:000A31D8 8868 0001:000A31DF + 8869 0001:000A31F2 8872 0001:000A31F8 8873 0001:000A31FF 8874 0001:000A3212 + 8877 0001:000A3218 8878 0001:000A3221 8880 0001:000A3236 8881 0001:000A323E + 8882 0001:000A324C 8883 0001:000A3253 8884 0001:000A325E 8886 0001:000A3267 + 8887 0001:000A326E 8892 0001:000A3274 8893 0001:000A328F 8894 0001:000A329C + 8895 0001:000A32B1 8896 0001:000A32DD 8899 0001:000A32E4 8900 0001:000A32F5 + 8901 0001:000A3303 8902 0001:000A331F 8905 0001:000A3324 8906 0001:000A3330 + 8907 0001:000A3339 8908 0001:000A3344 8909 0001:000A334D 8912 0001:000A3354 + 8913 0001:000A3360 8914 0001:000A336E 8915 0001:000A337C 8916 0001:000A338D + 8917 0001:000A339B 8918 0001:000A33A9 8920 0001:000A33C1 8923 0001:000A33E6 + 8925 0001:000A33FC 8928 0001:000A3400 8929 0001:000A3407 8934 0001:000A340C + 8935 0001:000A3415 8937 0001:000A341D 8936 0001:000A3426 8938 0001:000A343B + 8941 0001:000A3440 8942 0001:000A3449 8945 0001:000A3481 8948 0001:000A3488 + 8949 0001:000A34A3 8950 0001:000A34C7 8955 0001:000A34CC 8956 0001:000A34D5 + 8957 0001:000A34DA 8958 0001:000A34E3 8960 0001:000A34E9 8961 0001:000A34F2 + 8958 0001:000A34F5 8963 0001:000A34FE 8968 0001:000A3504 8969 0001:000A350D + 8970 0001:000A3512 8971 0001:000A351D 8973 0001:000A3523 8974 0001:000A352E + 8971 0001:000A3531 8976 0001:000A353A 8981 0001:000A3540 8982 0001:000A3549 + 8983 0001:000A3552 8986 0001:000A3560 8987 0001:000A3564 8988 0001:000A356F + 8990 0001:000A3575 8991 0001:000A3581 8988 0001:000A358A 8993 0001:000A3590 + 8995 0001:000A3597 9000 0001:000A359C 9001 0001:000A35A5 9002 0001:000A35BB + 9003 0001:000A35C4 9004 0001:000A35DF 9005 0001:000A35FA 9006 0001:000A3610 + 9011 0001:000A3614 9012 0001:000A361D 9013 0001:000A3633 9014 0001:000A363C + 9015 0001:000A3657 9016 0001:000A3672 9017 0001:000A3688 9023 0001:000A368C + 9024 0001:000A3698 9027 0001:000A36A0 9030 0001:000A36B7 9031 0001:000A36C5 + 9034 0001:000A36C7 9025 0001:000A36D0 9036 0001:000A36DE 9037 0001:000A36EF + 9038 0001:000A3703 9039 0001:000A370E 9040 0001:000A3716 9042 0001:000A371E + 9044 0001:000A3726 9050 0001:000A372C 9051 0001:000A3739 9054 0001:000A3772 + 9055 0001:000A3783 9056 0001:000A3797 9057 0001:000A379D 9059 0001:000A37AB + 9062 0001:000A37B6 9065 0001:000A37BE 9067 0001:000A37CC 9068 0001:000A37E3 + 9071 0001:000A37E5 9063 0001:000A37EE 9073 0001:000A37FC 9074 0001:000A380D + 9076 0001:000A381B 9078 0001:000A382F 9085 0001:000A3834 9086 0001:000A383D + 9087 0001:000A385A 9088 0001:000A3865 9089 0001:000A3875 9090 0001:000A3887 + 9092 0001:000A3899 9094 0001:000A389E 9095 0001:000A38B3 9097 0001:000A38B9 + 9098 0001:000A38C2 9100 0001:000A38CF 9101 0001:000A38E4 9102 0001:000A38EC + 9095 0001:000A38F7 9104 0001:000A38FD 9107 0001:000A3904 9108 0001:000A3910 + 9109 0001:000A3918 9111 0001:000A3921 9112 0001:000A392D 9113 0001:000A3944 + 9115 0001:000A3955 9120 0001:000A395C 9121 0001:000A3969 9122 0001:000A396E + 9124 0001:000A3977 9125 0001:000A398C 9126 0001:000A3994 9128 0001:000A399A + 9129 0001:000A39A3 9130 0001:000A39B1 9132 0001:000A39D0 9136 0001:000A39E3 + 9143 0001:000A39E8 9144 0001:000A39EE 9145 0001:000A39F2 9146 0001:000A39FE + 9148 0001:000A3A04 9150 0001:000A3A10 9151 0001:000A3A14 9153 0001:000A3A16 + 9146 0001:000A3A1F 9155 0001:000A3A28 9160 0001:000A3A2C 9161 0001:000A3A36 + 9163 0001:000A3A63 9164 0001:000A3A78 9165 0001:000A3A88 9166 0001:000A3A98 + 9168 0001:000A3AA3 9169 0001:000A3AAF 9171 0001:000A3ABD 9173 0001:000A3AC9 + 9179 0001:000A3B43 9180 0001:000A3B4F 9182 0001:000A3B5D 9184 0001:000A3B69 + 9185 0001:000A3B95 9186 0001:000A3BA8 9188 0001:000A3BB6 9191 0001:000A3BBC + 9192 0001:000A3BC5 9194 0001:000A3BDD 9196 0001:000A3BEA 9197 0001:000A3BF6 + 9200 0001:000A3BFC 9201 0001:000A3C08 9202 0001:000A3C11 9207 0001:000A3C18 + 9209 0001:000A3C21 9211 0001:000A3C2C 9210 0001:000A3C35 9212 0001:000A3C41 + 9216 0001:000A3C48 9217 0001:000A3C54 9218 0001:000A3C5F 9219 0001:000A3C68 + 9221 0001:000A3C6E 9223 0001:000A3C7A 9224 0001:000A3C87 9226 0001:000A3C92 + 9219 0001:000A3C9B 9228 0001:000A3CA1 9233 0001:000A3CA8 9234 0001:000A3CB2 + 9235 0001:000A3CBB 9238 0001:000A3CC1 9241 0001:000A3CED 9242 0001:000A3CF5 + 9244 0001:000A3D0F 9245 0001:000A3D17 9235 0001:000A3D20 9247 0001:000A3D26 + 9250 0001:000A3D2C 9251 0001:000A3D35 9252 0001:000A3D46 9255 0001:000A3D4C + 9256 0001:000A3D55 9258 0001:000A3D60 9257 0001:000A3D69 9259 0001:000A3D7E + 9262 0001:000A3D84 9263 0001:000A3D8D 9264 0001:000A3D9E 9274 0001:000A3DA4 + 9275 0001:000A3DC0 9276 0001:000A3DCA 9277 0001:000A3DD4 9278 0001:000A3DDD + 9279 0001:000A3DE7 9280 0001:000A3DF1 9281 0001:000A3E0F 9282 0001:000A3E24 + 9283 0001:000A3E36 9285 0001:000A3E4F 9286 0001:000A3E57 9287 0001:000A3E65 + 9288 0001:000A3E7D 9287 0001:000A3E99 9289 0001:000A3E9E 9291 0001:000A3EB6 + 9293 0001:000A3EC6 9295 0001:000A3ECF 9296 0001:000A3EE4 9298 0001:000A3F12 + 9301 0001:000A3F18 9302 0001:000A3F29 9304 0001:000A3F32 9305 0001:000A3F47 + 9307 0001:000A3F52 9308 0001:000A3F60 9309 0001:000A3F6B 9310 0001:000A3F87 + 9313 0001:000A3F8C 9316 0001:000A3F9B 9317 0001:000A3FA9 9318 0001:000A3FB1 + 9319 0001:000A3FB8 9322 0001:000A3FBC 9323 0001:000A3FC3 9324 0001:000A3FC9 + 9327 0001:000A3FCC 9328 0001:000A3FD3 9329 0001:000A3FD9 9331 0001:000A3FE2 + 9332 0001:000A3FEA 9334 0001:000A3FF2 9341 0001:000A3FF8 9342 0001:000A3FFF + 9343 0001:000A400D 9346 0001:000A4019 9347 0001:000A402B 9349 0001:000A403B + 9350 0001:000A404D 9352 0001:000A405D 9354 0001:000A4060 9355 0001:000A406C + 9356 0001:000A4071 9357 0001:000A408D 9358 0001:000A4096 9363 0001:000A409C + 9364 0001:000A40A4 9366 0001:000A40B2 9368 0001:000A40CB 9369 0001:000A40E4 + 9371 0001:000A40E8 9372 0001:000A40F4 9373 0001:000A4103 9374 0001:000A410D + 9379 0001:000A4114 9380 0001:000A4125 9381 0001:000A4133 9382 0001:000A4139 + 9384 0001:000A414A 9386 0001:000A4198 9391 0001:000A41A0 9392 0001:000A41AF + 9393 0001:000A41C0 9394 0001:000A41D1 9395 0001:000A41D9 9408 0001:000A41E0 + 9409 0001:000A41F2 9410 0001:000A41FF 9412 0001:000A4208 9413 0001:000A4214 + 9415 0001:000A4224 9418 0001:000A4234 9419 0001:000A4242 9420 0001:000A4253 + 9421 0001:000A425C 9422 0001:000A4265 9424 0001:000A4271 9425 0001:000A4282 + 9427 0001:000A4293 9428 0001:000A42B3 9429 0001:000A42C0 9430 0001:000A42CB + 9431 0001:000A42DD 9432 0001:000A42E9 9433 0001:000A42F5 9437 0001:000A4303 + 9438 0001:000A4312 9439 0001:000A4320 9440 0001:000A4331 9441 0001:000A433F + 9442 0001:000A434D 9446 0001:000A435F 9447 0001:000A436B 9450 0001:000A4378 + 9451 0001:000A4398 9455 0001:000A43B3 9456 0001:000A43D3 9460 0001:000A43EC + 9461 0001:000A43FE 9462 0001:000A4407 9463 0001:000A441B 9464 0001:000A4427 + 9465 0001:000A442D 9468 0001:000A4433 9472 0001:000A4457 9475 0001:000A4475 + 9476 0001:000A4480 9482 0001:000A448C 9483 0001:000A449B 9484 0001:000A44AD + 9485 0001:000A44B6 9488 0001:000A44C0 9489 0001:000A44CE 9490 0001:000A44DF + 9491 0001:000A44E8 9492 0001:000A44F7 9494 0001:000A44FD 9495 0001:000A4509 + 9496 0001:000A4515 9497 0001:000A4521 9498 0001:000A452D 9499 0001:000A4536 + 9500 0001:000A453F 9503 0001:000A455B 9504 0001:000A4564 9505 0001:000A4570 + 9506 0001:000A457C 9507 0001:000A4588 9508 0001:000A4591 9509 0001:000A459A + 9510 0001:000A45B1 9511 0001:000A45C9 9512 0001:000A45E0 9514 0001:000A45FC + 9519 0001:000A4614 9520 0001:000A4626 9521 0001:000A4632 9522 0001:000A463E + 9523 0001:000A4647 9524 0001:000A4653 9525 0001:000A465F 9526 0001:000A4668 + 9527 0001:000A4674 9528 0001:000A4682 9529 0001:000A468E 9530 0001:000A4697 + 9531 0001:000A46A0 9534 0001:000A46A6 9535 0001:000A46AF 9536 0001:000A46B7 + 9537 0001:000A46C0 9541 0001:000A46CB 9542 0001:000A46D4 9543 0001:000A46DD + 9544 0001:000A46E5 9548 0001:000A46EE 9549 0001:000A46F6 9550 0001:000A46FE + 9551 0001:000A4711 9555 0001:000A4718 9556 0001:000A4727 9559 0001:000A472D + 9560 0001:000A4739 9562 0001:000A4741 9561 0001:000A474A 9564 0001:000A4753 + 9567 0001:000A4759 9568 0001:000A4765 9569 0001:000A476E 9570 0001:000A477A + 9571 0001:000A4783 9572 0001:000A478F 9576 0001:000A479A 9577 0001:000A47A3 + 9578 0001:000A47AF 9579 0001:000A47B8 9580 0001:000A47C4 9581 0001:000A47CD + 9582 0001:000A47D9 9583 0001:000A47E7 9586 0001:000A47F3 9587 0001:000A47FE + 9588 0001:000A4809 9597 0001:000A4810 9599 0001:000A4819 9603 0001:000A4854 + 9604 0001:000A4860 9607 0001:000A486E 9611 0001:000A48A7 9612 0001:000A48B3 + 9615 0001:000A48C1 9617 0001:000A48CE 9618 0001:000A48DE 9619 0001:000A48EE + 9621 0001:000A48FE 9624 0001:000A495C 9625 0001:000A4965 9626 0001:000A496E + 9627 0001:000A4998 9631 0001:000A49A9 9634 0001:000A49F7 9635 0001:000A4A00 + 9636 0001:000A4A27 9641 0001:000A4A33 9642 0001:000A4A48 9643 0001:000A4A5A + 9644 0001:000A4A6F 9645 0001:000A4A81 9651 0001:000A4A88 9652 0001:000A4A91 + 9654 0001:000A4AAC 9658 0001:000A4AC0 9660 0001:000A4AE7 9661 0001:000A4B06 + 9663 0001:000A4B24 9652 0001:000A4B27 9664 0001:000A4B31 9665 0001:000A4B39 + 9669 0001:000A4B40 9670 0001:000A4B4F 9671 0001:000A4B54 9672 0001:000A4B5B + 9673 0001:000A4B68 9675 0001:000A4B7F 9676 0001:000A4B8D 9678 0001:000A4B9E + 9679 0001:000A4BB3 9680 0001:000A4BC5 9681 0001:000A4BCE 9691 0001:000A4BD4 + 9692 0001:000A4BDE 9693 0001:000A4BE6 9694 0001:000A4BF9 9696 0001:000A4BFF + 9697 0001:000A4C0A 9699 0001:000A4C1D 9706 0001:000A4C24 9707 0001:000A4C45 + 9708 0001:000A4C53 9709 0001:000A4C5B 9711 0001:000A4C69 9713 0001:000A4C79 + 9714 0001:000A4C89 9716 0001:000A4C9C 9717 0001:000A4CA6 9719 0001:000A4CAC + 9720 0001:000A4CC1 9722 0001:000A4CC7 9723 0001:000A4CD1 9726 0001:000A4CE3 + 9714 0001:000A4CE6 9728 0001:000A4CEB 9729 0001:000A4CFE 9730 0001:000A4D03 + 9736 0001:000A4D08 9737 0001:000A4D18 9738 0001:000A4D27 9739 0001:000A4D39 + 9740 0001:000A4D4C 9741 0001:000A4D5F 9742 0001:000A4D69 9743 0001:000A4D6F + 9746 0001:000A4D7E 9747 0001:000A4D86 9750 0001:000A4D88 9751 0001:000A4D9C + 9753 0001:000A4DA4 9754 0001:000A4DAD 9755 0001:000A4DB6 9757 0001:000A4DC4 + 9759 0001:000A4DCC 9760 0001:000A4DD5 9762 0001:000A4DE0 9764 0001:000A4DE8 + 9765 0001:000A4DEE 9766 0001:000A4E13 9767 0001:000A4E1C 9768 0001:000A4E25 + 9770 0001:000A4E31 9771 0001:000A4E37 9732 0001:000A4E3D 9774 0001:000A4E4F + 9776 0001:000A4E7C 9782 0001:000A4E84 9783 0001:000A4E90 9785 0001:000A4ED7 + 9788 0001:000A4EDC 9791 0001:000A4EEB 9792 0001:000A4EFE 9793 0001:000A4F0F + 9794 0001:000A4F20 9795 0001:000A4F31 9796 0001:000A4F44 9797 0001:000A4F55 + 9799 0001:000A4F67 9801 0001:000A4F70 9803 0001:000A4F7F 9805 0001:000A4F8D + 9806 0001:000A4FA1 9807 0001:000A4FCF 9811 0001:000A4FFF 9812 0001:000A501A + 9813 0001:000A504B 9815 0001:000A507C 9823 0001:000A5084 9824 0001:000A5091 + 9825 0001:000A50A0 9826 0001:000A50AE 9827 0001:000A50BC 9828 0001:000A50C4 + 9829 0001:000A50D2 9830 0001:000A50DD 9831 0001:000A50EB 9833 0001:000A510A + 9834 0001:000A511B 9836 0001:000A5139 9837 0001:000A5144 9838 0001:000A5151 + 9839 0001:000A5161 9840 0001:000A5171 9841 0001:000A5184 9842 0001:000A5197 + 9844 0001:000A51A9 9831 0001:000A51AC 9846 0001:000A51C2 9849 0001:000A51E1 + 9852 0001:000A51FE 9854 0001:000A520E 9861 0001:000A5214 9862 0001:000A5225 + 9865 0001:000A5233 9868 0001:000A524F 9870 0001:000A5281 9872 0001:000A528B + 9873 0001:000A52A3 9874 0001:000A52BB 9875 0001:000A52D2 9876 0001:000A52EA + 9882 0001:000A5302 9883 0001:000A530B 9884 0001:000A5314 9885 0001:000A531D + 9886 0001:000A5326 9887 0001:000A532F 9888 0001:000A5341 9889 0001:000A5349 + 9890 0001:000A5359 9891 0001:000A5364 9892 0001:000A536C 9894 0001:000A5372 + 9896 0001:000A5394 9897 0001:000A53AD 9902 0001:000A53B8 9904 0001:000A53BF + 9905 0001:000A53C8 9907 0001:000A53D8 9908 0001:000A53E1 9910 0001:000A53F1 + 9911 0001:000A53F9 9913 0001:000A53FC 9914 0001:000A5408 9916 0001:000A540E + 9918 0001:000A5424 9919 0001:000A542D 9920 0001:000A543E 9921 0001:000A5447 + 9922 0001:000A5456 9923 0001:000A545F 9925 0001:000A546E 9926 0001:000A5481 + 9927 0001:000A5489 9932 0001:000A5490 9933 0001:000A549C 9934 0001:000A54AA + 9936 0001:000A54B0 9937 0001:000A54BB 9939 0001:000A54C5 9940 0001:000A54D0 + 9942 0001:000A54DA 9944 0001:000A54E5 9950 0001:000A54EC 9951 0001:000A5514 + 9952 0001:000A551A 9953 0001:000A5555 9954 0001:000A555E 9955 0001:000A5599 + 9956 0001:000A55A7 9958 0001:000A55AD 9959 0001:000A55B8 9961 0001:000A55C7 + 9964 0001:000A55D1 9965 0001:000A55E5 9966 0001:000A55EE 9969 0001:000A55FB + 9972 0001:000A5609 9973 0001:000A5615 9974 0001:000A561D 9975 0001:000A5625 + 9976 0001:000A563A 9980 0001:000A5644 9981 0001:000A564E 9982 0001:000A565D + 9983 0001:000A5668 9985 0001:000A5670 9990 0001:000A568C 9993 0001:000A569A + 9994 0001:000A56A8 9995 0001:000A56B9 9996 0001:000A56C4 9997 0001:000A56CD + 9998 0001:000A56D5 9999 0001:000A56DD 10000 0001:000A56E5 10005 0001:000A56F2 + 10006 0001:000A5704 10007 0001:000A5710 10009 0001:000A5724 10010 0001:000A5736 + 10011 0001:000A573F 10013 0001:000A574E 10014 0001:000A5757 10015 0001:000A5766 + 10016 0001:000A576F 10017 0001:000A577E 10018 0001:000A5787 10019 0001:000A5793 + 10020 0001:000A57AA 10021 0001:000A57B5 10027 0001:000A57C2 10031 0001:000A57CB + 10032 0001:000A57DA 10033 0001:000A57E5 10038 0001:000A57F2 10039 0001:000A5801 + 10040 0001:000A580A 10041 0001:000A5819 10042 0001:000A582E 10044 0001:000A5839 + 10046 0001:000A5850 10047 0001:000A587A 10052 0001:000A5880 10053 0001:000A588E + 10056 0001:000A58BE 10057 0001:000A58CC 10058 0001:000A58DD 10060 0001:000A58FE + 10061 0001:000A590B 10064 0001:000A591E 10065 0001:000A592F 10069 0001:000A593D + 10070 0001:000A594E 10073 0001:000A595A 10075 0001:000A5969 10076 0001:000A5973 + 10080 0001:000A598F 10083 0001:000A5998 10084 0001:000A59A4 10085 0001:000A59AA + 10086 0001:000A59C1 10088 0001:000A59E4 10095 0001:000A59E8 10096 0001:000A5A08 + 10097 0001:000A5A13 10098 0001:000A5A26 10099 0001:000A5A5A 10102 0001:000A5A60 + 10105 0001:000A5A80 10106 0001:000A5A93 10107 0001:000A5AA9 10108 0001:000A5ABF + 10111 0001:000A5AD7 10112 0001:000A5AE0 10114 0001:000A5AF4 10115 0001:000A5AFD + 10116 0001:000A5B2D 10122 0001:000A5B34 10124 0001:000A5B54 10126 0001:000A5B67 + 10127 0001:000A5B76 10128 0001:000A5B84 10130 0001:000A5B9F 10131 0001:000A5BB0 + 10132 0001:000A5BC2 10133 0001:000A5BD0 10128 0001:000A5BD3 10135 0001:000A5BD8 + 10136 0001:000A5BE3 10137 0001:000A5BF3 10139 0001:000A5C33 10142 0001:000A5C43 + 10144 0001:000A5C56 10145 0001:000A5C65 10146 0001:000A5C94 10151 0001:000A5C9C + 10152 0001:000A5CA3 10154 0001:000A5CAD 10156 0001:000A5CD3 10157 0001:000A5CE4 + 10159 0001:000A5CF7 10161 0001:000A5D0F 10162 0001:000A5D21 10164 0001:000A5D33 + 10166 0001:000A5D38 10167 0001:000A5D44 10168 0001:000A5D56 10170 0001:000A5D60 + 10171 0001:000A5D6B 10174 0001:000A5D70 10175 0001:000A5D7C 10176 0001:000A5D8D + 10179 0001:000A5D94 10180 0001:000A5DA0 10182 0001:000A5DC2 10183 0001:000A5DDA + 10186 0001:000A5DE0 10187 0001:000A5DF5 10188 0001:000A5DFE 10189 0001:000A5E15 + 10190 0001:000A5E26 10192 0001:000A5E3F 10193 0001:000A5E4E 10194 0001:000A5E56 + 10197 0001:000A5E5C 10198 0001:000A5E63 10199 0001:000A5E6F 10200 0001:000A5E77 + 10201 0001:000A5E8A 10202 0001:000A5E99 10203 0001:000A5EB9 10204 0001:000A5ED7 + 10205 0001:000A5EE8 10206 0001:000A5F02 10207 0001:000A5F0A 10210 0001:000A5F10 + 10211 0001:000A5F17 10212 0001:000A5F2F 10213 0001:000A5F42 10216 0001:000A5F48 + 10217 0001:000A5F54 10218 0001:000A5F65 10224 0001:000A5F6C 10225 0001:000A5F75 + 10229 0001:000A5F82 10231 0001:000A5F91 10232 0001:000A5FA4 10233 0001:000A5FBC + 10234 0001:000A5FD2 10237 0001:000A5FE0 10238 0001:000A5FF8 10239 0001:000A600B + 10240 0001:000A6017 10243 0001:000A602D 10244 0001:000A6048 10246 0001:000A606F + 10248 0001:000A607F 10255 0001:000A6084 10256 0001:000A608C 10260 0001:000A60E5 + 10261 0001:000A6100 10262 0001:000A6119 10263 0001:000A6132 10265 0001:000A6138 + 10266 0001:000A6145 10267 0001:000A614E 10269 0001:000A615E 10270 0001:000A6175 + 10271 0001:000A6185 10272 0001:000A618E 10280 0001:000A6194 10281 0001:000A61A0 + 10282 0001:000A61A4 10284 0001:000A61AA 10285 0001:000A61B5 10286 0001:000A61C0 + 10288 0001:000A61D8 10289 0001:000A61DE 10291 0001:000A61F6 10292 0001:000A61FC + 10293 0001:000A620E 10295 0001:000A6215 10298 0001:000A621C 10299 0001:000A6223 + 10300 0001:000A622F 10302 0001:000A6247 10304 0001:000A624F 10305 0001:000A6267 + 10307 0001:000A6277 10308 0001:000A6283 10309 0001:000A6296 10310 0001:000A62B3 + 10316 0001:000A62B8 10317 0001:000A62C2 10319 0001:000A62EA 10320 0001:000A62FA + 10321 0001:000A6311 10324 0001:000A631A 10325 0001:000A631E 10326 0001:000A6336 + 10327 0001:000A6342 10329 0001:000A634D 10331 0001:000A636C 10335 0001:000A6375 + 10337 0001:000A638D 10338 0001:000A63A5 10341 0001:000A63B4 10343 0001:000A63C0 + 10345 0001:000A63D8 10349 0001:000A63DE 10350 0001:000A63F6 10354 0001:000A6403 + 10355 0001:000A6409 10356 0001:000A6414 10357 0001:000A6431 10363 0001:000A6438 + 10364 0001:000A6448 10365 0001:000A6456 10367 0001:000A645C 10368 0001:000A6462 + 10370 0001:000A646E 10371 0001:000A6478 10374 0001:000A6485 10376 0001:000A648B + 10377 0001:000A64B0 10378 0001:000A64B6 10380 0001:000A64C1 10381 0001:000A64C6 + 10383 0001:000A64E4 10391 0001:000A64EC 10392 0001:000A64F2 10393 0001:000A64FE + 10395 0001:000A6510 10396 0001:000A6529 10397 0001:000A6543 10398 0001:000A655D + 10401 0001:000A6579 10402 0001:000A6592 10403 0001:000A65AC 10404 0001:000A65C6 + 10406 0001:000A65E0 10417 0001:000A65E4 10418 0001:000A6606 10421 0001:000A6653 + 10422 0001:000A6665 10424 0001:000A6681 10426 0001:000A668E 10427 0001:000A6696 + 10428 0001:000A66B3 10429 0001:000A66BA 10433 0001:000A66C7 10435 0001:000A66E6 + 10437 0001:000A66F0 10439 0001:000A6707 10440 0001:000A670C 10445 0001:000A6722 + 10446 0001:000A6730 10447 0001:000A6741 10449 0001:000A674B 10450 0001:000A6751 + 10451 0001:000A6764 10453 0001:000A676E 10456 0001:000A67A8 10457 0001:000A67B6 + 10459 0001:000A67D9 10460 0001:000A67E9 10465 0001:000A67EE 10467 0001:000A67F7 + 10468 0001:000A6805 10469 0001:000A6816 10471 0001:000A682A 10472 0001:000A683F + 10474 0001:000A684F 10478 0001:000A6861 10481 0001:000A686E 10482 0001:000A6877 + 10484 0001:000A6894 10487 0001:000A68CC 10488 0001:000A68DD 10490 0001:000A68F1 + 10491 0001:000A6915 10492 0001:000A691F 10499 0001:000A6924 10500 0001:000A6930 + 10502 0001:000A693D 10503 0001:000A6954 10504 0001:000A695A 10505 0001:000A696D + 10507 0001:000A6988 10508 0001:000A6993 10509 0001:000A69A0 10510 0001:000A69B0 + 10511 0001:000A69C0 10512 0001:000A69D3 10513 0001:000A69E6 10514 0001:000A6A02 + 10517 0001:000A6A12 10520 0001:000A6A14 10521 0001:000A6A1E 10522 0001:000A6A47 + 10527 0001:000A6A50 10528 0001:000A6A68 10529 0001:000A6A72 10530 0001:000A6A79 + 10533 0001:000A6A83 10538 0001:000A6ACB 10539 0001:000A6AF0 10542 0001:000A6AF4 + 10543 0001:000A6B05 10544 0001:000A6B0F 10545 0001:000A6B2B 10548 0001:000A6B30 + 10549 0001:000A6B39 10550 0001:000A6B44 10553 0001:000A6B48 10554 0001:000A6B54 + 10555 0001:000A6B62 10563 0001:000A6B68 10564 0001:000A6B6F 10565 0001:000A6B86 + 10568 0001:000A6B8C 10569 0001:000A6B93 10570 0001:000A6BAA 10571 0001:000A6BB3 + 10572 0001:000A6BC5 10577 0001:000A6BC8 10578 0001:000A6BD1 10580 0001:000A6BF9 + 10581 0001:000A6C09 10584 0001:000A6C10 10585 0001:000A6C1C 10587 0001:000A6C29 + 10588 0001:000A6C36 10590 0001:000A6C3F 10593 0001:000A6C44 10594 0001:000A6C50 + 10595 0001:000A6C67 10598 0001:000A6C6C 10599 0001:000A6C78 10602 0001:000A6C87 + 10603 0001:000A6C8F 10604 0001:000A6CA2 10607 0001:000A6CAC 10609 0001:000A6CB5 + 10610 0001:000A6CBE 10612 0001:000A6CD2 10615 0001:000A6CEF 10645 0001:000A6CF4 + 10646 0001:000A6CFA 10647 0001:000A6D09 10648 0001:000A6D16 10649 0001:000A6D24 + 10651 0001:000A6D2D 10653 0001:000A6D3A 10660 0001:000A6D4D 10662 0001:000A6D5A + 10663 0001:000A6D69 10666 0001:000A6D76 10667 0001:000A6D8B 10668 0001:000A6DA0 + 10669 0001:000A6DB5 10670 0001:000A6DCA 10671 0001:000A6DDF 10672 0001:000A6DF4 + 10673 0001:000A6E09 10674 0001:000A6E1E 10675 0001:000A6E33 10692 0001:000A6E55 + 10694 0001:000A6E66 10697 0001:000A6F60 10698 0001:000A6F6C 10699 0001:000A6F75 + 10701 0001:000A6F8C 10702 0001:000A6F93 10718 0001:000A6F98 10719 0001:000A6FA4 + 10721 0001:000A6FBD 10723 0001:000A6FC3 10724 0001:000A6FCD 10727 0001:000A6FD2 + 10729 0001:000A6FDC 10731 0001:000A6FE9 10732 0001:000A6FF6 10734 0001:000A7000 + 10736 0001:000A7012 10737 0001:000A701F 10738 0001:000A702D 10740 0001:000A703B + 10741 0001:000A7047 10742 0001:000A7059 10745 0001:000A7070 10746 0001:000A7082 + 10747 0001:000A7090 10829 0001:000A7094 10830 0001:000A709D 10831 0001:000A70A6 + 10833 0001:000A70B5 10834 0001:000A70BC 10897 0001:000A70C0 10898 0001:000A70CC + 10899 0001:000A70D5 10900 0001:000A70E1 10901 0001:000A70EA 10902 0001:000A70F4 + 10903 0001:000A70FB 10904 0001:000A7105 10905 0001:000A7111 10906 0001:000A711B + 10907 0001:000A7127 10908 0001:000A7131 10909 0001:000A7145 10914 0001:000A7148 + 10915 0001:000A7164 10916 0001:000A7190 10917 0001:000A71A6 10918 0001:000A71E1 + 10919 0001:000A71F7 10920 0001:000A720C 10921 0001:000A721D 10922 0001:000A7222 + 10923 0001:000A7233 10924 0001:000A7249 10925 0001:000A725F 10926 0001:000A726D + 10927 0001:000A7281 10928 0001:000A728E 10929 0001:000A7294 10930 0001:000A72CC + 10936 0001:000A7318 10937 0001:000A7324 10938 0001:000A7332 10939 0001:000A733D + 10951 0001:000A7344 10952 0001:000A7367 10954 0001:000A73AA 10941 0001:000A73AC + 10942 0001:000A73C6 10943 0001:000A73DB 10944 0001:000A73E0 10945 0001:000A73EA + 10946 0001:000A73F4 10947 0001:000A7404 10948 0001:000A7414 10950 0001:000A7439 + +Line numbers for ActnList(ActnList.pas) segment .text + + 292 0001:000A79B0 293 0001:000A79C1 294 0001:000A79D8 295 0001:000A79F4 + 298 0001:000A79F8 299 0001:000A7A01 300 0001:000A7A0A 301 0001:000A7A20 + 302 0001:000A7A2A 305 0001:000A7A30 306 0001:000A7A39 307 0001:000A7A40 + 310 0001:000A7A44 311 0001:000A7A4D 312 0001:000A7A56 313 0001:000A7A61 + 314 0001:000A7A6F 317 0001:000A7A74 318 0001:000A7A7D 319 0001:000A7A86 + 320 0001:000A7A8C 321 0001:000A7A9A 324 0001:000A7AA0 325 0001:000A7AAC + 326 0001:000A7AB7 327 0001:000A7ACC 328 0001:000A7ADA 333 0001:000A7AE0 + 334 0001:000A7AEC 335 0001:000A7AF7 337 0001:000A7AFD 338 0001:000A7B0C + 339 0001:000A7B17 340 0001:000A7B26 342 0001:000A7B2E 343 0001:000A7B3F + 346 0001:000A7B53 349 0001:000A7B58 350 0001:000A7B64 352 0001:000A7B74 + 353 0001:000A7B82 354 0001:000A7B8B 356 0001:000A7B96 359 0001:000A7B9C + 360 0001:000A7BA8 362 0001:000A7BB3 363 0001:000A7BCA 365 0001:000A7BDB + 368 0001:000A7BE0 369 0001:000A7BEC 370 0001:000A7C07 371 0001:000A7C12 + 374 0001:000A7C18 375 0001:000A7C22 378 0001:000A7C7E 381 0001:000A7C84 + 382 0001:000A7C8E 385 0001:000A7CEA 390 0001:000A7CF0 391 0001:000A7D0B + 392 0001:000A7D18 393 0001:000A7D2A 394 0001:000A7D3C 395 0001:000A7D4F + 396 0001:000A7D71 399 0001:000A7D78 400 0001:000A7D89 401 0001:000A7D96 + 402 0001:000A7DB2 403 0001:000A7DBD 404 0001:000A7DD9 410 0001:000A7DE0 + 411 0001:000A7DEC 413 0001:000A7E05 414 0001:000A7E17 415 0001:000A7E2B + 411 0001:000A7E2E 416 0001:000A7E33 419 0001:000A7E3C 420 0001:000A7E4B + 421 0001:000A7E5D 422 0001:000A7E73 425 0001:000A7E78 426 0001:000A7E84 + 427 0001:000A7E98 430 0001:000A7E9C 431 0001:000A7EA5 432 0001:000A7EB4 + 440 0001:000A7EB8 441 0001:000A7EC4 442 0001:000A7EDE 443 0001:000A7EE7 + 445 0001:000A7EF0 446 0001:000A7F01 448 0001:000A7F0F 451 0001:000A7F14 + 452 0001:000A7F20 453 0001:000A7F33 457 0001:000A7F38 458 0001:000A7F47 + 459 0001:000A7F55 460 0001:000A7F5B 461 0001:000A7F66 462 0001:000A7F72 + 463 0001:000A7F84 464 0001:000A7F8F 467 0001:000A7F94 468 0001:000A7FA0 + 469 0001:000A7FAE 470 0001:000A7FB7 471 0001:000A7FC2 474 0001:000A7FC8 + 475 0001:000A7FD4 476 0001:000A7FE6 477 0001:000A7FEE 482 0001:000A7FF4 + 483 0001:000A7FFE 484 0001:000A8014 485 0001:000A802D 484 0001:000A8044 + 486 0001:000A8049 488 0001:000A8052 489 0001:000A8076 491 0001:000A8087 + 499 0001:000A808C 500 0001:000A8098 501 0001:000A80A6 502 0001:000A80B9 + 503 0001:000A80C4 505 0001:000A80DD 506 0001:000A80EF 507 0001:000A8101 + 510 0001:000A8131 511 0001:000A813C 513 0001:000A813E 503 0001:000A8141 + 514 0001:000A8146 515 0001:000A814D 518 0001:000A8154 519 0001:000A8161 + 520 0001:000A8165 521 0001:000A8181 524 0001:000A8188 525 0001:000A8195 + 526 0001:000A8199 527 0001:000A81B5 570 0001:000A81BC 571 0001:000A81C5 + 572 0001:000A81DC 575 0001:000A81E0 576 0001:000A81E9 577 0001:000A8200 + 580 0001:000A8204 581 0001:000A820D 582 0001:000A8224 585 0001:000A8228 + 586 0001:000A8231 587 0001:000A8248 590 0001:000A824C 591 0001:000A8255 + 592 0001:000A826C 595 0001:000A8270 596 0001:000A8279 597 0001:000A8290 + 600 0001:000A8294 601 0001:000A829D 602 0001:000A82B4 605 0001:000A82B8 + 606 0001:000A82C1 607 0001:000A82D8 610 0001:000A82DC 611 0001:000A82E5 + 612 0001:000A82FC 615 0001:000A8300 616 0001:000A8309 617 0001:000A8320 + 620 0001:000A8324 621 0001:000A8330 624 0001:000A8334 625 0001:000A8340 + 628 0001:000A8344 629 0001:000A8350 632 0001:000A8354 633 0001:000A8360 + 636 0001:000A8364 637 0001:000A8370 640 0001:000A8374 641 0001:000A8380 + 644 0001:000A8384 645 0001:000A8390 648 0001:000A8394 649 0001:000A83A0 + 652 0001:000A83A4 653 0001:000A83B0 656 0001:000A83B4 657 0001:000A83C0 + 661 0001:000A83C4 662 0001:000A83D1 665 0001:000A83D8 666 0001:000A83E4 + 671 0001:000A83E8 672 0001:000A8403 673 0001:000A8410 674 0001:000A8417 + 675 0001:000A8424 676 0001:000A842E 677 0001:000A8454 680 0001:000A8458 + 681 0001:000A8469 682 0001:000A8477 683 0001:000A8485 684 0001:000A8491 + 685 0001:000A849E 686 0001:000A84BA 689 0001:000A84C0 690 0001:000A84CC + 693 0001:000A84E2 694 0001:000A84F0 695 0001:000A84FE 696 0001:000A850C + 697 0001:000A851A 698 0001:000A8528 699 0001:000A8539 700 0001:000A854B + 701 0001:000A855C 702 0001:000A856D 703 0001:000A857F 704 0001:000A8593 + 705 0001:000A859E 725 0001:000A85A4 726 0001:000A85B0 728 0001:000A85C0 + 730 0001:000A85D9 731 0001:000A85F6 732 0001:000A85FC 733 0001:000A8607 + 728 0001:000A860A 734 0001:000A860F 735 0001:000A861D 737 0001:000A8625 + 744 0001:000A862C 745 0001:000A8638 746 0001:000A8645 747 0001:000A864C + 748 0001:000A865A 750 0001:000A8669 752 0001:000A8682 753 0001:000A869F + 754 0001:000A86A5 755 0001:000A86B0 750 0001:000A86B3 756 0001:000A86B8 + 757 0001:000A86C1 758 0001:000A86D3 760 0001:000A86EE 761 0001:000A86FF + 764 0001:000A8727 765 0001:000A8731 758 0001:000A8734 766 0001:000A8739 + 769 0001:000A874E 771 0001:000A875D 777 0001:000A8764 778 0001:000A8770 + 780 0001:000A877F 781 0001:000A8788 783 0001:000A8794 784 0001:000A879D + 787 0001:000A879F 788 0001:000A87AB 789 0001:000A87AF 791 0001:000A87C8 + 792 0001:000A87E5 793 0001:000A87EB 794 0001:000A87F6 789 0001:000A87F9 + 795 0001:000A87FE 796 0001:000A8807 798 0001:000A880F 835 0001:000A8814 + 836 0001:000A8820 838 0001:000A8830 839 0001:000A8849 840 0001:000A8866 + 838 0001:000A887F 841 0001:000A8884 842 0001:000A8892 844 0001:000A889A + 850 0001:000A88A0 851 0001:000A88AC 853 0001:000A88B7 855 0001:000A88D0 + 856 0001:000A88ED 857 0001:000A88F3 858 0001:000A88FE 853 0001:000A8901 + 859 0001:000A8906 860 0001:000A890F 862 0001:000A8917 868 0001:000A891C + 869 0001:000A8928 871 0001:000A8938 873 0001:000A8951 874 0001:000A896E + 875 0001:000A8974 876 0001:000A897F 871 0001:000A8982 877 0001:000A8987 + 878 0001:000A8995 880 0001:000A899D 886 0001:000A89A4 887 0001:000A89B0 + 889 0001:000A89BE 891 0001:000A89D7 892 0001:000A89F4 893 0001:000A89FA + 894 0001:000A8A05 889 0001:000A8A08 895 0001:000A8A0D 896 0001:000A8A19 + 898 0001:000A8A21 904 0001:000A8A28 905 0001:000A8A35 907 0001:000A8A45 + 909 0001:000A8A5E 910 0001:000A8A7B 911 0001:000A8A81 912 0001:000A8A8D + 907 0001:000A8A90 913 0001:000A8A95 914 0001:000A8AA3 916 0001:000A8AAB + 922 0001:000A8AB0 923 0001:000A8ABC 925 0001:000A8ACA 927 0001:000A8AE3 + 928 0001:000A8B00 929 0001:000A8B06 930 0001:000A8B1C 925 0001:000A8B1F + 931 0001:000A8B24 932 0001:000A8B30 934 0001:000A8B38 939 0001:000A8B3C + 940 0001:000A8B48 942 0001:000A8B79 944 0001:000A8B84 945 0001:000A8BA1 + 948 0001:000A8BA8 949 0001:000A8BB5 950 0001:000A8BB9 951 0001:000A8BDE + 954 0001:000A8BE4 955 0001:000A8BED 956 0001:000A8BF1 957 0001:000A8C06 + 958 0001:000A8C0E 959 0001:000A8C23 960 0001:000A8C3E 961 0001:000A8C4F + 962 0001:000A8C70 965 0001:000A8C74 966 0001:000A8C7D 967 0001:000A8C89 + 968 0001:000A8C9E 969 0001:000A8CAD 972 0001:000A8CB4 973 0001:000A8CC0 + 974 0001:000A8CCC 975 0001:000A8CE1 976 0001:000A8CF2 979 0001:000A8CF8 + 980 0001:000A8D01 981 0001:000A8D2B 984 0001:000A8D30 985 0001:000A8D3A + 986 0001:000A8D4C 991 0001:000A8D54 992 0001:000A8D61 993 0001:000A8D6F + 994 0001:000A8D88 1012 0001:000A8D90 1013 0001:000A8D9D 1014 0001:000A8DA4 + 1015 0001:000A8DBC 1017 0001:000A8DCD 1018 0001:000A8DD3 1019 0001:000A8DD5 + 1014 0001:000A8DD8 1020 0001:000A8DE0 1022 0001:000A8E14 1023 0001:000A8E20 + 1024 0001:000A8E30 1026 0001:000A8E40 + +Line numbers for ImgList(ImgList.pas) segment .text + + 179 0001:000A9020 180 0001:000A9029 181 0001:000A9034 182 0001:000A9043 + 183 0001:000A904C 185 0001:000A9056 188 0001:000A905C 189 0001:000A9065 + 190 0001:000A9076 191 0001:000A907F 193 0001:000A9088 195 0001:000A9091 + 198 0001:000A9098 199 0001:000A90B3 200 0001:000A90C0 201 0001:000A90CA + 202 0001:000A90D4 203 0001:000A90F7 206 0001:000A90FC 207 0001:000A9117 + 208 0001:000A9123 209 0001:000A912C 210 0001:000A9135 211 0001:000A9158 + 214 0001:000A9160 216 0001:000A9173 215 0001:000A9188 217 0001:000A9194 + 218 0001:000A919F 219 0001:000A91A7 220 0001:000A91B2 221 0001:000A91BA + 222 0001:000A91CE 223 0001:000A91EA 228 0001:000A91F0 229 0001:000A920C + 230 0001:000A921E 231 0001:000A923C 232 0001:000A925D 233 0001:000A9267 + 234 0001:000A926E 235 0001:000A9278 236 0001:000A927F 237 0001:000A9289 + 238 0001:000A9293 239 0001:000A92A5 240 0001:000A92CA 243 0001:000A92D0 + 244 0001:000A92D9 245 0001:000A92E7 248 0001:000A92EC 249 0001:000A92F3 + 250 0001:000A9304 255 0001:000A9308 256 0001:000A9311 257 0001:000A931B + 258 0001:000A9329 260 0001:000A9332 261 0001:000A9353 262 0001:000A9365 + 265 0001:000A93A4 267 0001:000A93B7 269 0001:000A93C0 270 0001:000A93CB + 272 0001:000A93D3 277 0001:000A93D8 278 0001:000A93E4 279 0001:000A93ED + 280 0001:000A93F6 281 0001:000A9407 282 0001:000A9410 283 0001:000A9419 + 284 0001:000A9421 287 0001:000A9428 288 0001:000A9435 290 0001:000A9440 + 291 0001:000A9449 292 0001:000A946F 293 0001:000A9477 294 0001:000A947F + 296 0001:000A948B 299 0001:000A9490 300 0001:000A949D 302 0001:000A94A8 + 303 0001:000A94B1 304 0001:000A94D7 305 0001:000A94DF 306 0001:000A94E7 + 308 0001:000A94F3 311 0001:000A94F8 312 0001:000A9505 313 0001:000A950D + 315 0001:000A9513 316 0001:000A951E 317 0001:000A9527 319 0001:000A9533 + 322 0001:000A9538 323 0001:000A9544 324 0001:000A954A 325 0001:000A9552 + 326 0001:000A9563 329 0001:000A9568 330 0001:000A9571 331 0001:000A9579 + 332 0001:000A9585 335 0001:000A958C 336 0001:000A959B 337 0001:000A95A6 + 338 0001:000A95AC 339 0001:000A95B8 342 0001:000A95C5 343 0001:000A95D0 + 344 0001:000A95DA 346 0001:000A95E7 347 0001:000A95F8 350 0001:000A95FC + 351 0001:000A9604 352 0001:000A9619 353 0001:000A9627 354 0001:000A962F + 355 0001:000A963B 360 0001:000A9640 361 0001:000A965C 363 0001:000A9697 + 364 0001:000A96C4 365 0001:000A96FB 394 0001:000A9700 395 0001:000A9710 + 396 0001:000A971F 397 0001:000A972D 398 0001:000A973C 399 0001:000A974A + 400 0001:000A9752 403 0001:000A978C 406 0001:000A97A9 408 0001:000A97B9 + 409 0001:000A97C8 414 0001:000A97D0 415 0001:000A97E0 416 0001:000A97EF + 417 0001:000A97FD 419 0001:000A9814 420 0001:000A9823 421 0001:000A9831 + 422 0001:000A983C 423 0001:000A9847 424 0001:000A984F 427 0001:000A988D + 430 0001:000A989D 432 0001:000A98CC 434 0001:000A98DC 435 0001:000A98EB + 450 0001:000A98F0 451 0001:000A98FF 452 0001:000A992D 455 0001:000A9933 + 456 0001:000A9941 457 0001:000A994F 459 0001:000A996E 475 0001:000A9974 + 476 0001:000A997D 477 0001:000A999C 478 0001:000A99A4 504 0001:000A99A8 + 505 0001:000A99CF 507 0001:000A99DF 508 0001:000A99EA 509 0001:000A99FB + 510 0001:000A9A05 511 0001:000A9A13 512 0001:000A9A22 515 0001:000A9A30 + 516 0001:000A9A3E 518 0001:000A9A4C 519 0001:000A9A5B 522 0001:000A9A69 + 523 0001:000A9A73 524 0001:000A9A81 526 0001:000A9A8F 527 0001:000A9AB5 + 528 0001:000A9ADB 529 0001:000A9B03 531 0001:000A9B31 534 0001:000A9B4E + 537 0001:000A9B6B 539 0001:000A9B7E 541 0001:000A9B9F 542 0001:000A9BCD + 557 0001:000A9BD8 558 0001:000A9BF8 559 0001:000A9C26 560 0001:000A9C44 + 561 0001:000A9C6D 564 0001:000A9C74 565 0001:000A9C7B 566 0001:000A9C86 + 569 0001:000A9C8C 570 0001:000A9C99 571 0001:000A9CBC 572 0001:000A9CC5 + 573 0001:000A9CD1 576 0001:000A9CD8 577 0001:000A9CE1 578 0001:000A9D05 + 579 0001:000A9D11 588 0001:000A9D18 589 0001:000A9D27 591 0001:000A9D37 + 592 0001:000A9D3D 596 0001:000A9D87 598 0001:000A9D90 599 0001:000A9DA2 + 601 0001:000A9DAB 602 0001:000A9DB5 603 0001:000A9DC3 607 0001:000A9DD1 + 608 0001:000A9DE9 609 0001:000A9E18 611 0001:000A9E49 612 0001:000A9E6B + 614 0001:000A9E7E 615 0001:000A9E8E 616 0001:000A9E99 617 0001:000A9EA7 + 618 0001:000A9EB2 620 0001:000A9EE0 621 0001:000A9EF0 622 0001:000A9EFB + 623 0001:000A9F09 624 0001:000A9F14 627 0001:000A9F40 631 0001:000A9F48 + 632 0001:000A9F57 633 0001:000A9F7F 637 0001:000A9F88 638 0001:000A9F98 + 639 0001:000A9FA4 641 0001:000A9FD7 664 0001:000A9FE0 665 0001:000A9FEF + 666 0001:000A9FFB 667 0001:000AA01F 668 0001:000AA026 675 0001:000AA02C + 676 0001:000AA03B 677 0001:000AA055 678 0001:000AA05D 679 0001:000AA06B + 680 0001:000AA07A 683 0001:000AA088 684 0001:000AA096 686 0001:000AA0A4 + 687 0001:000AA0B3 690 0001:000AA0C1 691 0001:000AA0CB 692 0001:000AA0D9 + 694 0001:000AA0E7 695 0001:000AA104 697 0001:000AA112 699 0001:000AA11D + 700 0001:000AA128 702 0001:000AA144 704 0001:000AA14F 705 0001:000AA15A + 707 0001:000AA176 708 0001:000AA184 694 0001:000AA187 710 0001:000AA19D + 713 0001:000AA1BA 716 0001:000AA1D7 718 0001:000AA1E7 883 0001:000AA1EC + 884 0001:000AA1F8 885 0001:000AA213 890 0001:000AA218 891 0001:000AA224 + 892 0001:000AA237 894 0001:000AA24D 895 0001:000AA255 896 0001:000AA25B + 897 0001:000AA267 898 0001:000AA273 899 0001:000AA281 900 0001:000AA28D + 901 0001:000AA29F 902 0001:000AA2B5 903 0001:000AA2D1 904 0001:000AA2EE + 905 0001:000AA2FA 907 0001:000AA307 908 0001:000AA312 913 0001:000AA318 + 914 0001:000AA324 916 0001:000AA33A 917 0001:000AA340 918 0001:000AA34C + 919 0001:000AA358 920 0001:000AA366 921 0001:000AA372 924 0001:000AA37E + 925 0001:000AA386 926 0001:000AA398 927 0001:000AA3AE 928 0001:000AA3CA + 929 0001:000AA3E7 932 0001:000AA3F4 933 0001:000AA3FF 936 0001:000AA404 + 937 0001:000AA423 939 0001:000AA429 940 0001:000AA449 941 0001:000AA487 + 944 0001:000AA48C 945 0001:000AA499 947 0001:000AA4A4 948 0001:000AA4AD + 950 0001:000AA4B9 953 0001:000AA4C0 954 0001:000AA4CC 955 0001:000AA4D8 + 1044 0001:000AA4DC 1045 0001:000AA4E7 1046 0001:000AA4EE 1047 0001:000AA4F7 + 1048 0001:000AA500 1049 0001:000AA519 1048 0001:000AA533 1050 0001:000AA538 + 1051 0001:000AA54E 1056 0001:000AA554 1057 0001:000AA560 1058 0001:000AA569 + 1059 0001:000AA582 1061 0001:000AA595 1062 0001:000AA59D 1063 0001:000AA5AB + 1064 0001:000AA5AD 1058 0001:000AA5B0 1065 0001:000AA5B5 1068 0001:000AA5BC + 1069 0001:000AA5C8 1070 0001:000AA5D1 1071 0001:000AA5E8 1076 0001:000AA5EC + 1077 0001:000AA5F8 1078 0001:000AA63F 1082 0001:000AA644 1083 0001:000AA651 + 1085 0001:000AA66D 1086 0001:000AA671 1088 0001:000AA676 1090 0001:000AA68E + 1091 0001:000AA692 1093 0001:000AA697 1094 0001:000AA6A6 1095 0001:000AA6B4 + 1096 0001:000AA6BF 1097 0001:000AA6CE 1098 0001:000AA6DC 1099 0001:000AA6E7 + 1101 0001:000AA704 1104 0001:000AA721 1106 0001:000AA734 1111 0001:000AA73C + 1112 0001:000AA740 1113 0001:000AA74C 1116 0001:000AA787 1117 0001:000AA79B + 1119 0001:000AA7A0 1120 0001:000AA7AD 1121 0001:000AA7B8 1122 0001:000AA7E2 + 1129 0001:000AA7F8 1130 0001:000AA804 1131 0001:000AA814 1132 0001:000AA824 + 1133 0001:000AA833 1134 0001:000AA841 1135 0001:000AA84C 1136 0001:000AA857 + 1137 0001:000AA868 1138 0001:000AA877 1139 0001:000AA885 1140 0001:000AA890 + 1141 0001:000AA89F 1142 0001:000AA8AD 1143 0001:000AA8BB 1144 0001:000AA8CA + 1145 0001:000AA8D4 1146 0001:000AA8E2 1147 0001:000AA8F0 1148 0001:000AA90A + 1149 0001:000AA912 1150 0001:000AA920 1152 0001:000AA945 1153 0001:000AA94F + 1155 0001:000AA974 1156 0001:000AA97E 1158 0001:000AA9C6 1160 0001:000AAA0E + 1161 0001:000AAA1C 1162 0001:000AAA1F 1153 0001:000AAA22 1163 0001:000AAA2B + 1150 0001:000AAA2E 1165 0001:000AAA44 1166 0001:000AAA4C 1167 0001:000AAA54 + 1170 0001:000AAA71 1173 0001:000AAA8E 1175 0001:000AAA9E 1183 0001:000AAAA4 + 1185 0001:000AAAB1 1186 0001:000AAAC5 1187 0001:000AAAD3 1189 0001:000AAAFA + 1193 0001:000AAB0A 1197 0001:000AAB1A 1198 0001:000AAB1E 1199 0001:000AAB2D + 1200 0001:000AAB3B 1201 0001:000AAB47 1204 0001:000AAB52 1205 0001:000AAB5E + 1209 0001:000AAB77 1210 0001:000AAB83 1214 0001:000AAB96 1217 0001:000AAB9C + 1218 0001:000AABA8 1223 0001:000AABBD 1225 0001:000AABC3 1226 0001:000AABCF + 1227 0001:000AABE3 1228 0001:000AABF1 1230 0001:000AAC18 1235 0001:000AAC35 + 1239 0001:000AAC45 1240 0001:000AAC51 1242 0001:000AAC68 1249 0001:000AAC70 + 1250 0001:000AAC7D 1251 0001:000AAC85 1252 0001:000AAC90 1253 0001:000AACA0 + 1254 0001:000AACB0 1255 0001:000AACB8 1256 0001:000AACC3 1257 0001:000AACD1 + 1258 0001:000AACE5 1260 0001:000AACF2 1261 0001:000AACFD 1275 0001:000AAD04 + 1276 0001:000AAD10 1278 0001:000AAD19 1279 0001:000AAD28 1281 0001:000AAD34 + 1282 0001:000AAD41 1283 0001:000AAD47 1287 0001:000AAD5A 1288 0001:000AAD6E + 1291 0001:000AAD7C 1293 0001:000AAD85 1294 0001:000AADA5 1296 0001:000AADBE + 1297 0001:000AADDB 1299 0001:000AADFF 1301 0001:000AAE0F 1375 0001:000AAE50 + 1376 0001:000AAE57 1377 0001:000AAE5D 1380 0001:000AAE60 1381 0001:000AAE68 + 1382 0001:000AAE77 1384 0001:000AAE80 1385 0001:000AAE87 1387 0001:000AAE93 + 1392 0001:000AAE98 1393 0001:000AAEA9 1394 0001:000AAEC0 1395 0001:000AAEDC + 1398 0001:000AAEE0 1399 0001:000AAEE8 1400 0001:000AAF01 1402 0001:000AAF38 + 1402 0001:000AAF3F + +Line numbers for Menus(Menus.pas) segment .text + + 439 0001:000ABE70 440 0001:000ABE79 441 0001:000ABE7E 442 0001:000ABE89 + 444 0001:000ABE8F 445 0001:000ABEA1 447 0001:000ABEB0 452 0001:000ABEB4 + 453 0001:000ABEB7 454 0001:000ABEBB 456 0001:000ABEC0 457 0001:000ABEC7 + 458 0001:000ABEE3 463 0001:000ABEE8 464 0001:000ABEF5 465 0001:000ABEFB + 466 0001:000ABF01 467 0001:000ABF09 468 0001:000ABF15 469 0001:000ABF21 + 470 0001:000ABF31 496 0001:000ABF38 497 0001:000ABF48 498 0001:000ABF50 + 499 0001:000ABF63 501 0001:000ABF69 502 0001:000ABF7E 504 0001:000ABF91 + 509 0001:000ABF98 510 0001:000ABFBB 512 0001:000AC035 513 0001:000AC04F + 514 0001:000AC062 516 0001:000AC075 518 0001:000AC092 519 0001:000AC0AC + 520 0001:000AC0C1 521 0001:000AC0D6 522 0001:000AC0EB 524 0001:000AC10D + 526 0001:000AC119 528 0001:000AC11F 529 0001:000AC127 530 0001:000AC13E + 531 0001:000AC155 532 0001:000AC16C 534 0001:000AC17C 535 0001:000AC1A6 + 546 0001:000AC1B8 547 0001:000AC1C5 548 0001:000AC1C9 551 0001:000AC208 + 552 0001:000AC20C 554 0001:000AC226 559 0001:000AC22C 560 0001:000AC250 + 561 0001:000AC256 564 0001:000AC25C 565 0001:000AC278 566 0001:000AC293 + 567 0001:000AC2AF 562 0001:000AC2C9 570 0001:000AC2CB 571 0001:000AC2D1 + 572 0001:000AC2D7 574 0001:000AC2F2 575 0001:000AC2FE 576 0001:000AC300 + 571 0001:000AC304 577 0001:000AC335 585 0001:000AC348 586 0001:000AC34C + 587 0001:000AC35A 588 0001:000AC36E 602 0001:000AC374 603 0001:000AC383 + 604 0001:000AC389 607 0001:000AC38F 608 0001:000AC39F 610 0001:000AC3AD + 611 0001:000AC3B0 612 0001:000AC3B3 613 0001:000AC3B5 614 0001:000AC3B8 + 615 0001:000AC3BB 617 0001:000AC3BE 605 0001:000AC3C3 619 0001:000AC3DB + 621 0001:000AC3E0 622 0001:000AC3EF 623 0001:000AC3F4 624 0001:000AC3F9 + 625 0001:000AC3FE 626 0001:000AC403 627 0001:000AC414 628 0001:000AC425 + 631 0001:000AC42E 632 0001:000AC432 633 0001:000AC436 634 0001:000AC44F + 635 0001:000AC468 638 0001:000AC485 639 0001:000AC48B 641 0001:000AC4A0 + 642 0001:000AC4C0 629 0001:000AC4DE 644 0001:000AC4FC 649 0001:000AC500 + 650 0001:000AC50C 651 0001:000AC520 654 0001:000AC524 655 0001:000AC52D + 656 0001:000AC557 659 0001:000AC55C 660 0001:000AC565 662 0001:000AC5A3 + 665 0001:000AC5A8 666 0001:000AC5B1 668 0001:000AC5E8 671 0001:000AC5EC + 672 0001:000AC5F5 674 0001:000AC62C 677 0001:000AC630 678 0001:000AC639 + 680 0001:000AC670 683 0001:000AC674 684 0001:000AC67D 686 0001:000AC6B9 + 689 0001:000AC6C0 690 0001:000AC6C9 692 0001:000AC70F 695 0001:000AC714 + 696 0001:000AC71D 698 0001:000AC757 701 0001:000AC75C 702 0001:000AC765 + 704 0001:000AC7A1 707 0001:000AC7A8 708 0001:000AC7B1 710 0001:000AC7EB + 713 0001:000AC7F0 714 0001:000AC7F9 716 0001:000AC828 719 0001:000AC82C + 720 0001:000AC838 721 0001:000AC853 724 0001:000AC858 725 0001:000AC864 + 726 0001:000AC87E 729 0001:000AC884 730 0001:000AC890 731 0001:000AC8AA + 734 0001:000AC8B0 735 0001:000AC8BC 736 0001:000AC8D6 739 0001:000AC8DC + 740 0001:000AC8E8 741 0001:000AC900 744 0001:000AC904 745 0001:000AC910 + 746 0001:000AC92D 749 0001:000AC934 750 0001:000AC940 751 0001:000AC95A + 754 0001:000AC960 755 0001:000AC96D 756 0001:000AC988 759 0001:000AC98C + 760 0001:000AC998 761 0001:000AC9B2 764 0001:000AC9B8 765 0001:000AC9BF + 766 0001:000AC9E3 771 0001:000AC9E8 772 0001:000ACA03 773 0001:000ACA10 + 774 0001:000ACA17 775 0001:000ACA1E 776 0001:000ACA25 777 0001:000ACA2C + 778 0001:000ACA38 779 0001:000ACA42 780 0001:000ACA54 781 0001:000ACA82 + 784 0001:000ACA88 785 0001:000ACA99 786 0001:000ACAA6 788 0001:000ACAAF + 789 0001:000ACABD 791 0001:000ACAC7 792 0001:000ACAE2 794 0001:000ACAEB + 795 0001:000ACAF5 797 0001:000ACB01 798 0001:000ACB0C 799 0001:000ACB17 + 800 0001:000ACB22 801 0001:000ACB3F 802 0001:000ACB53 803 0001:000ACB6F + 827 0001:000ACB74 828 0001:000ACB9A 830 0001:000ACBA7 831 0001:000ACBB5 + 832 0001:000ACBC1 833 0001:000ACBCE 835 0001:000ACC05 836 0001:000ACC2C + 838 0001:000ACC40 839 0001:000ACC47 841 0001:000ACC4E 843 0001:000ACC59 + 846 0001:000ACC95 849 0001:000ACCEB 851 0001:000ACD18 852 0001:000ACD22 + 853 0001:000ACD27 854 0001:000ACD2C 855 0001:000ACD31 856 0001:000ACD3C + 857 0001:000ACD48 858 0001:000ACD53 862 0001:000ACD69 864 0001:000ACDBA + 865 0001:000ACDC6 868 0001:000ACDEF 871 0001:000ACE34 878 0001:000ACE54 + 879 0001:000ACE5D 880 0001:000ACE74 881 0001:000ACE7B 883 0001:000ACE80 + 884 0001:000ACE89 887 0001:000ACEA7 888 0001:000ACEB1 892 0001:000ACEBB + 893 0001:000ACEDC 894 0001:000ACEEF 897 0001:000ACEF4 898 0001:000ACF13 + 899 0001:000ACF4D 902 0001:000ACF54 903 0001:000ACF60 904 0001:000ACF6F + 906 0001:000ACF7A 907 0001:000ACF83 908 0001:000ACF8E 909 0001:000ACF97 + 911 0001:000ACFA0 912 0001:000ACFAC 914 0001:000ACFBA 916 0001:000ACFC2 + 919 0001:000ACFC8 920 0001:000ACFD0 921 0001:000ACFD8 922 0001:000ACFFC + 923 0001:000AD00D 929 0001:000AD014 930 0001:000AD01D 931 0001:000AD02A + 932 0001:000AD033 935 0001:000AD03F 936 0001:000AD048 939 0001:000AD058 + 940 0001:000AD069 941 0001:000AD071 943 0001:000AD077 945 0001:000AD093 + 946 0001:000AD0AB 948 0001:000AD0AF 941 0001:000AD0B2 950 0001:000AD0B8 + 952 0001:000AD0BE 955 0001:000AD0EE 956 0001:000AD0FA 959 0001:000AD104 + 960 0001:000AD10C 964 0001:000AD116 969 0001:000AD11C 970 0001:000AD12B + 971 0001:000AD143 973 0001:000AD14B 977 0001:000AD16A 970 0001:000AD191 + 978 0001:000AD196 981 0001:000AD19C 982 0001:000AD1A5 984 0001:000AD1AE + 985 0001:000AD1C3 987 0001:000AD1D0 988 0001:000AD1DB 989 0001:000AD1EE + 991 0001:000AD1F6 992 0001:000AD202 995 0001:000AD208 996 0001:000AD215 + 997 0001:000AD220 998 0001:000AD23C 1006 0001:000AD25C 1007 0001:000AD281 + 1008 0001:000AD28C 1010 0001:000AD29E 1011 0001:000AD2A4 1012 0001:000AD2B2 + 1013 0001:000AD2BD 1014 0001:000AD2C9 1016 0001:000AD2D0 1017 0001:000AD2DB + 1018 0001:000AD2F8 1021 0001:000AD305 1023 0001:000AD314 1025 0001:000AD31E + 1026 0001:000AD32A 1027 0001:000AD32E 1032 0001:000AD349 1033 0001:000AD356 + 1034 0001:000AD35F 1035 0001:000AD37D 1037 0001:000AD38A 1039 0001:000AD390 + 1040 0001:000AD39D 1041 0001:000AD3AD 1042 0001:000AD3D5 1044 0001:000AD3E2 + 1045 0001:000AD402 1046 0001:000AD414 1048 0001:000AD424 1051 0001:000AD469 + 1054 0001:000AD490 1055 0001:000AD4A8 1056 0001:000AD4B5 1057 0001:000AD4D2 + 1079 0001:000AD4DC 1082 0001:000AD4F1 1084 0001:000AD4FA 1086 0001:000AD50C + 1087 0001:000AD51F 1089 0001:000AD534 1090 0001:000AD53D 1094 0001:000AD550 + 1095 0001:000AD562 1096 0001:000AD573 1097 0001:000AD57C 1098 0001:000AD585 + 1099 0001:000AD59A 1101 0001:000AD5AB 1102 0001:000AD5B2 1103 0001:000AD5BF + 1104 0001:000AD5CC 1106 0001:000AD5E1 1107 0001:000AD5F2 1108 0001:000AD5FA + 1109 0001:000AD604 1113 0001:000AD610 1116 0001:000AD671 1118 0001:000AD6A0 + 1120 0001:000AD6A7 1122 0001:000AD6B0 1123 0001:000AD6C5 1129 0001:000AD6DC + 1130 0001:000AD6EB 1134 0001:000AD6FA 1136 0001:000AD717 1137 0001:000AD71D + 1138 0001:000AD723 1139 0001:000AD737 1141 0001:000AD740 1142 0001:000AD754 + 1143 0001:000AD773 1147 0001:000AD786 1148 0001:000AD799 1150 0001:000AD7AA + 1151 0001:000AD7BE 1152 0001:000AD7C4 1155 0001:000AD7CA 1157 0001:000AD7D7 + 1158 0001:000AD7F9 1163 0001:000AD830 1164 0001:000AD842 1165 0001:000AD850 + 1166 0001:000AD85D 1167 0001:000AD876 1168 0001:000AD888 1169 0001:000AD89B + 1171 0001:000AD8FD 1173 0001:000AD91E 1179 0001:000AD931 1181 0001:000AD941 + 1184 0001:000AD95F 1185 0001:000AD98F 1187 0001:000AD9A9 1190 0001:000AD9C7 + 1191 0001:000AD9F7 1193 0001:000ADA11 1194 0001:000ADA2B 1197 0001:000ADA3B + 1199 0001:000ADA47 1200 0001:000ADA4D 1205 0001:000ADA55 1207 0001:000ADA67 + 1208 0001:000ADA7C 1212 0001:000ADA93 1213 0001:000ADA9F 1215 0001:000ADAAB + 1220 0001:000ADAB2 1221 0001:000ADAB8 1222 0001:000ADABE 1223 0001:000ADAC5 + 1226 0001:000ADACC 1227 0001:000ADAEA 1228 0001:000ADAF3 1230 0001:000ADB1F + 1232 0001:000ADB28 1233 0001:000ADB3E 1234 0001:000ADB50 1235 0001:000ADB63 + 1237 0001:000ADB74 1239 0001:000ADB8F 1240 0001:000ADB98 1241 0001:000ADBB6 + 1242 0001:000ADBBF 1243 0001:000ADBDB 1244 0001:000ADBE4 1247 0001:000ADBF4 + 1248 0001:000ADC06 1249 0001:000ADC13 1250 0001:000ADC1A 1252 0001:000ADC20 + 1253 0001:000ADC3C 1254 0001:000ADC4E 1256 0001:000ADC58 1257 0001:000ADC68 + 1258 0001:000ADC71 1259 0001:000ADC85 1260 0001:000ADCBE 1261 0001:000ADCEE + 1262 0001:000ADD12 1264 0001:000ADD22 1265 0001:000ADD51 1267 0001:000ADD67 + 1268 0001:000ADD73 1269 0001:000ADD82 1273 0001:000ADDD5 1278 0001:000ADDEC + 1281 0001:000ADE01 1283 0001:000ADE0A 1285 0001:000ADE1C 1286 0001:000ADE2F + 1288 0001:000ADE44 1289 0001:000ADE4D 1293 0001:000ADE60 1294 0001:000ADE7E + 1295 0001:000ADE8F 1296 0001:000ADE98 1297 0001:000ADEA1 1298 0001:000ADEB6 + 1300 0001:000ADEC7 1301 0001:000ADECE 1302 0001:000ADEDB 1303 0001:000ADEE8 + 1305 0001:000ADEFD 1306 0001:000ADF0E 1307 0001:000ADF1D 1308 0001:000ADF25 + 1312 0001:000ADF31 1315 0001:000ADF92 1317 0001:000ADFC1 1319 0001:000ADFC8 + 1321 0001:000ADFD1 1322 0001:000ADFE6 1328 0001:000ADFFD 1329 0001:000AE00C + 1333 0001:000AE01B 1335 0001:000AE02B 1336 0001:000AE031 1337 0001:000AE037 + 1338 0001:000AE04B 1340 0001:000AE054 1341 0001:000AE068 1342 0001:000AE087 + 1346 0001:000AE09A 1347 0001:000AE0AD 1349 0001:000AE0BE 1350 0001:000AE0D2 + 1351 0001:000AE0D8 1354 0001:000AE0DE 1356 0001:000AE0EB 1357 0001:000AE10D + 1362 0001:000AE144 1363 0001:000AE156 1364 0001:000AE164 1365 0001:000AE171 + 1366 0001:000AE18A 1367 0001:000AE19C 1368 0001:000AE1AF 1370 0001:000AE211 + 1372 0001:000AE232 1378 0001:000AE245 1380 0001:000AE255 1383 0001:000AE273 + 1384 0001:000AE2A5 1386 0001:000AE2C1 1389 0001:000AE2DF 1390 0001:000AE30F + 1392 0001:000AE329 1393 0001:000AE343 1396 0001:000AE353 1398 0001:000AE35F + 1399 0001:000AE365 1404 0001:000AE36D 1406 0001:000AE37F 1407 0001:000AE394 + 1411 0001:000AE3AB 1412 0001:000AE3B7 1414 0001:000AE3C3 1419 0001:000AE3CA + 1420 0001:000AE3D0 1421 0001:000AE3D6 1422 0001:000AE3DD 1425 0001:000AE3E4 + 1426 0001:000AE40B 1428 0001:000AE437 1430 0001:000AE440 1431 0001:000AE456 + 1432 0001:000AE468 1433 0001:000AE47B 1435 0001:000AE48C 1437 0001:000AE4A7 + 1438 0001:000AE4B0 1439 0001:000AE4CE 1440 0001:000AE4D7 1441 0001:000AE4F3 + 1442 0001:000AE4FC 1444 0001:000AE50C 1445 0001:000AE51E 1446 0001:000AE52B + 1447 0001:000AE532 1448 0001:000AE538 1449 0001:000AE554 1450 0001:000AE566 + 1452 0001:000AE570 1453 0001:000AE580 1454 0001:000AE589 1455 0001:000AE59D + 1457 0001:000AE5D6 1458 0001:000AE5E2 1459 0001:000AE5EE 1460 0001:000AE61E + 1461 0001:000AE639 1462 0001:000AE649 1463 0001:000AE678 1465 0001:000AE68E + 1466 0001:000AE6A0 1467 0001:000AE6AA 1468 0001:000AE6C4 1471 0001:000AE705 + 1473 0001:000AE71C 1474 0001:000AE734 1475 0001:000AE73F 1476 0001:000AE74A + 1477 0001:000AE754 1479 0001:000AE77B 1480 0001:000AE798 1481 0001:000AE7B5 + 1484 0001:000AE7E4 1485 0001:000AE7F6 1486 0001:000AE803 1488 0001:000AE823 + 1489 0001:000AE835 1491 0001:000AE83E 1492 0001:000AE845 1498 0001:000AE850 + 1499 0001:000AE859 1500 0001:000AE85E 1502 0001:000AE869 1501 0001:000AE872 + 1503 0001:000AE881 1504 0001:000AE887 1507 0001:000AE892 1508 0001:000AE89D + 1509 0001:000AE8A3 1511 0001:000AE8AF 1529 0001:000AE8B4 1530 0001:000AE8BD + 1531 0001:000AE8C7 1533 0001:000AE8DD 1534 0001:000AE8EB 1536 0001:000AE8F9 + 1538 0001:000AE900 1539 0001:000AE927 1541 0001:000AE942 1542 0001:000AE946 + 1544 0001:000AE94F 1545 0001:000AE953 1546 0001:000AE95E 1547 0001:000AE969 + 1549 0001:000AE97B 1550 0001:000AE984 1551 0001:000AE98D 1553 0001:000AE993 + 1555 0001:000AE9A8 1556 0001:000AE9B3 1557 0001:000AE9B9 1558 0001:000AE9C4 + 1560 0001:000AE9CA 1562 0001:000AE9E2 1563 0001:000AE9EB 1564 0001:000AE9F1 + 1565 0001:000AE9FA 1569 0001:000AEA00 1570 0001:000AEA09 1572 0001:000AEA0D + 1573 0001:000AEA19 1574 0001:000AEA1F 1575 0001:000AEA25 1576 0001:000AEA2B + 1577 0001:000AEA3A 1578 0001:000AEA40 1579 0001:000AEA46 1580 0001:000AEA58 + 1582 0001:000AEA63 1583 0001:000AEA67 1584 0001:000AEA71 1585 0001:000AEA93 + 1586 0001:000AEAA1 1588 0001:000AEAC4 1589 0001:000AEADC 1590 0001:000AEAEA + 1591 0001:000AEB39 1594 0001:000AEB50 1595 0001:000AEB59 1596 0001:000AEB60 + 1599 0001:000AEB64 1600 0001:000AEB70 1602 0001:000AEB7B 1603 0001:000AEB84 + 1605 0001:000AEB8E 1608 0001:000AEB94 1609 0001:000AEBA0 1611 0001:000AEBB0 + 1612 0001:000AEBBE 1614 0001:000AEBC8 1620 0001:000AEBCC 1621 0001:000AEBD5 + 1622 0001:000AEBDE 1624 0001:000AEBF9 1625 0001:000AEC0A 1626 0001:000AEC29 + 1627 0001:000AEC33 1622 0001:000AEC36 1628 0001:000AEC3B 1631 0001:000AEC40 + 1632 0001:000AEC4C 1634 0001:000AEC57 1635 0001:000AEC60 1636 0001:000AEC72 + 1637 0001:000AEC9B 1638 0001:000AECAA 1640 0001:000AECB2 1643 0001:000AECB8 + 1644 0001:000AECC4 1646 0001:000AECD3 1647 0001:000AECDC 1649 0001:000AED07 + 1652 0001:000AED13 1653 0001:000AED25 1654 0001:000AED4E 1657 0001:000AED58 + 1660 0001:000AED5C 1661 0001:000AED68 1663 0001:000AED73 1664 0001:000AED9A + 1665 0001:000AEDA3 1666 0001:000AEDB5 1668 0001:000AEDBD 1671 0001:000AEDC4 + 1672 0001:000AEDCD 1673 0001:000AEDD6 1674 0001:000AEDE4 1675 0001:000AEDEC + 1678 0001:000AEDF0 1679 0001:000AEDF9 1680 0001:000AEE04 1683 0001:000AEE08 + 1684 0001:000AEE11 1685 0001:000AEE21 1686 0001:000AEE30 1689 0001:000AEE34 + 1690 0001:000AEE40 1691 0001:000AEE53 1692 0001:000AEE67 1695 0001:000AEE6C + 1696 0001:000AEE79 1698 0001:000AEE86 1699 0001:000AEE91 1701 0001:000AEE9B + 1704 0001:000AEEA0 1705 0001:000AEEAC 1707 0001:000AEEB7 1708 0001:000AEEC0 + 1710 0001:000AEECA 1713 0001:000AEED0 1714 0001:000AEEDC 1716 0001:000AEEE7 + 1717 0001:000AEEF0 1719 0001:000AEEFA 1722 0001:000AEF00 1723 0001:000AEF09 + 1724 0001:000AEF10 1725 0001:000AEF2D 1731 0001:000AEF34 1732 0001:000AEF40 + 1734 0001:000AEF49 1735 0001:000AEF57 1736 0001:000AEF62 1737 0001:000AEF71 + 1739 0001:000AEF7E 1740 0001:000AEF87 1741 0001:000AEF92 1744 0001:000AEFA0 + 1749 0001:000AEFA4 1750 0001:000AEFB0 1751 0001:000AEFE3 1754 0001:000AEFEC + 1755 0001:000AEFFB 1756 0001:000AF011 1761 0001:000AF018 1762 0001:000AF024 + 1764 0001:000AF02F 1765 0001:000AF03E 1766 0001:000AF059 1765 0001:000AF082 + 1767 0001:000AF087 1768 0001:000AF090 1770 0001:000AF09A 1773 0001:000AF0A0 + 1774 0001:000AF0A7 1775 0001:000AF0BB 1778 0001:000AF0C0 1779 0001:000AF0CF + 1780 0001:000AF0E2 1781 0001:000AF0FD 1782 0001:000AF112 1783 0001:000AF12C + 1784 0001:000AF146 1785 0001:000AF157 1786 0001:000AF168 1787 0001:000AF171 + 1788 0001:000AF187 1789 0001:000AF198 1790 0001:000AF1AC 1795 0001:000AF1B0 + 1796 0001:000AF1BC 1797 0001:000AF1E2 1798 0001:000AF1F3 1799 0001:000AF201 + 1800 0001:000AF209 1801 0001:000AF21A 1802 0001:000AF22B 1803 0001:000AF240 + 1806 0001:000AF244 1807 0001:000AF24C 1809 0001:000AF259 1811 0001:000AF292 + 1815 0001:000AF2A3 1816 0001:000AF2D2 1817 0001:000AF2E6 1818 0001:000AF2F8 + 1819 0001:000AF308 1820 0001:000AF315 1822 0001:000AF327 1825 0001:000AF32C + 1826 0001:000AF338 1827 0001:000AF33F 1828 0001:000AF35C 1831 0001:000AF360 + 1832 0001:000AF36C 1833 0001:000AF381 1838 0001:000AF388 1839 0001:000AF394 + 1840 0001:000AF3A2 1841 0001:000AF3B2 1842 0001:000AF3BD 1847 0001:000AF3C4 + 1848 0001:000AF3D1 1849 0001:000AF3EF 1850 0001:000AF3F6 1851 0001:000AF3FC + 1852 0001:000AF422 1855 0001:000AF428 1856 0001:000AF437 1857 0001:000AF457 + 1858 0001:000AF475 1859 0001:000AF495 1862 0001:000AF49C 1863 0001:000AF4A5 + 1864 0001:000AF4C0 1865 0001:000AF4CD 1866 0001:000AF4D9 1869 0001:000AF4E0 + 1870 0001:000AF4ED 1872 0001:000AF4F3 1873 0001:000AF4FE 1877 0001:000AF508 + 1878 0001:000AF511 1879 0001:000AF52B 1880 0001:000AF539 1881 0001:000AF54C + 1882 0001:000AF565 1884 0001:000AF570 1887 0001:000AF578 1888 0001:000AF584 + 1889 0001:000AF59F 1890 0001:000AF5AD 1891 0001:000AF5B7 1896 0001:000AF5BC + 1897 0001:000AF5C5 1898 0001:000AF5DD 1897 0001:000AF5F0 1899 0001:000AF5F5 + 1902 0001:000AF5FC 1903 0001:000AF605 1904 0001:000AF61A 1905 0001:000AF628 + 1906 0001:000AF634 1909 0001:000AF638 1910 0001:000AF644 1911 0001:000AF65B + 1912 0001:000AF661 1913 0001:000AF673 1914 0001:000AF683 1915 0001:000AF695 + 1916 0001:000AF6A0 1921 0001:000AF6A4 1922 0001:000AF6AD 1923 0001:000AF6B5 + 1924 0001:000AF6C7 1925 0001:000AF6D3 1928 0001:000AF6D8 1929 0001:000AF6E4 + 1931 0001:000AF6EF 1932 0001:000AF6F8 1933 0001:000AF70A 1934 0001:000AF712 + 1936 0001:000AF71C 1939 0001:000AF720 1940 0001:000AF72F 1943 0001:000AF745 + 1944 0001:000AF757 1945 0001:000AF769 1946 0001:000AF778 1947 0001:000AF786 + 1948 0001:000AF795 1949 0001:000AF7A3 1950 0001:000AF7B2 1951 0001:000AF7C0 + 1952 0001:000AF7CF 1953 0001:000AF7DB 1954 0001:000AF7EA 1955 0001:000AF7FB + 1956 0001:000AF813 1957 0001:000AF821 1958 0001:000AF830 1959 0001:000AF841 + 1960 0001:000AF851 1961 0001:000AF863 1962 0001:000AF872 1963 0001:000AF883 + 1964 0001:000AF896 1966 0001:000AF8AE 1969 0001:000AF8B4 1970 0001:000AF8C1 + 1971 0001:000AF8DF 1974 0001:000AF8E4 1975 0001:000AF8ED 1976 0001:000AF911 + 1979 0001:000AF918 1980 0001:000AF921 1981 0001:000AF945 1984 0001:000AF94C + 1985 0001:000AF955 1986 0001:000AF979 1989 0001:000AF980 1990 0001:000AF989 + 1991 0001:000AF9AD 1994 0001:000AF9B4 1995 0001:000AF9BD 1996 0001:000AF9E1 + 1999 0001:000AF9E8 2000 0001:000AF9F1 2001 0001:000AFA15 2004 0001:000AFA1C + 2005 0001:000AFA25 2006 0001:000AFA49 2009 0001:000AFA50 2010 0001:000AFA59 + 2011 0001:000AFA7D 2014 0001:000AFA84 2015 0001:000AFA8D 2016 0001:000AFAB1 + 2019 0001:000AFAB8 2020 0001:000AFAC4 2023 0001:000AFAD6 2024 0001:000AFAE4 + 2025 0001:000AFAF2 2026 0001:000AFB00 2027 0001:000AFB0E 2028 0001:000AFB1C + 2029 0001:000AFB2A 2031 0001:000AFB43 2032 0001:000AFB4E 2036 0001:000AFB54 + 2037 0001:000AFB63 2038 0001:000AFB71 2039 0001:000AFB77 2040 0001:000AFB84 + 2041 0001:000AFB90 2042 0001:000AFB9B 2043 0001:000AFBA7 2044 0001:000AFBB2 + 2045 0001:000AFBBC 2048 0001:000AFBC0 2049 0001:000AFBCC 2050 0001:000AFBE6 + 2051 0001:000AFBEF 2053 0001:000AFBF8 2054 0001:000AFC09 2056 0001:000AFC17 + 2057 0001:000AFC1F 2060 0001:000AFC24 2061 0001:000AFC30 2062 0001:000AFC43 + 2067 0001:000AFC48 2068 0001:000AFC51 2069 0001:000AFC55 2070 0001:000AFC68 + 2071 0001:000AFC7B 2073 0001:000AFC80 2074 0001:000AFC87 2075 0001:000AFC9A + 2088 0001:000AFCA0 2089 0001:000AFCA9 2090 0001:000AFCBA 2089 0001:000AFCCD + 2091 0001:000AFCD3 2101 0001:000AFCD8 2102 0001:000AFCE1 2103 0001:000AFCF2 + 2104 0001:000AFCFA 2105 0001:000AFD00 2106 0001:000AFD16 2110 0001:000AFD1C + 2111 0001:000AFD23 2112 0001:000AFD34 2113 0001:000AFD45 2114 0001:000AFD60 + 2113 0001:000AFD8F 2115 0001:000AFD94 2116 0001:000AFDA5 2121 0001:000AFDAC + 2122 0001:000AFDD2 2123 0001:000AFDD6 2124 0001:000AFDEE 2126 0001:000AFE0A + 2127 0001:000AFE0E 2128 0001:000AFE10 2123 0001:000AFE13 2129 0001:000AFE18 + 2131 0001:000AFE22 2132 0001:000AFE54 2135 0001:000AFE9F 2137 0001:000AFEC5 + 2138 0001:000AFECB 2139 0001:000AFEFD 2140 0001:000AFF34 2141 0001:000AFF6C + 2142 0001:000AFF70 2145 0001:000AFF93 2146 0001:000AFFA1 2147 0001:000AFFA6 + 2148 0001:000AFFAB 2149 0001:000AFFB0 2150 0001:000AFFB5 2151 0001:000AFFBA + 2152 0001:000AFFC8 2153 0001:000AFFD7 2154 0001:000AFFE6 2155 0001:000AFFF5 + 2156 0001:000B0004 2157 0001:000B0020 2161 0001:000B0068 2162 0001:000B0089 + 2163 0001:000B008F 2164 0001:000B00B5 2167 0001:000B00D5 2168 0001:000B0103 + 2170 0001:000B0127 2156 0001:000B012A 2171 0001:000B0133 2172 0001:000B013E + 2174 0001:000B015A 2175 0001:000B0165 2176 0001:000B0170 2177 0001:000B0178 + 2179 0001:000B018D 2180 0001:000B019B 2183 0001:000B01A7 2184 0001:000B01C1 + 2187 0001:000B01C6 2188 0001:000B01E5 2190 0001:000B01F3 2191 0001:000B01FE + 2193 0001:000B0210 2194 0001:000B0220 2195 0001:000B0238 2196 0001:000B0243 + 2199 0001:000B0245 2181 0001:000B0248 2201 0001:000B0259 2177 0001:000B025C + 2202 0001:000B0266 2203 0001:000B0273 2204 0001:000B027A 2205 0001:000B0286 + 2207 0001:000B029E 2208 0001:000B02B6 2210 0001:000B02CC 2205 0001:000B02CF + 2212 0001:000B02D4 2172 0001:000B02D7 2213 0001:000B02E0 2214 0001:000B02E6 + 2215 0001:000B02ED 2216 0001:000B02FB 2218 0001:000B0317 2219 0001:000B0325 + 2222 0001:000B0347 2224 0001:000B0358 2225 0001:000B0382 2228 0001:000B0399 + 2229 0001:000B03AF 2216 0001:000B03B2 2231 0001:000B03C8 2232 0001:000B03D0 + 2233 0001:000B03D8 2234 0001:000B03E0 2237 0001:000B0432 2247 0001:000B0450 + 2248 0001:000B045C 2250 0001:000B0467 2251 0001:000B0470 2253 0001:000B047A + 2256 0001:000B0480 2257 0001:000B0489 2258 0001:000B04A0 2340 0001:000B04B0 + 2341 0001:000B04BC 2342 0001:000B04C0 2345 0001:000B04E3 2346 0001:000B04E8 + 2347 0001:000B04ED 2348 0001:000B0506 2349 0001:000B0517 2351 0001:000B052B + 2352 0001:000B053A 2356 0001:000B0540 2357 0001:000B0546 2358 0001:000B0548 + 2347 0001:000B054B 2359 0001:000B0550 2360 0001:000B056D 2362 0001:000B0581 + 2364 0001:000B0590 2365 0001:000B0597 2367 0001:000B059B 2369 0001:000B05AB + 2371 0001:000B05BC 2373 0001:000B05CB 2374 0001:000B05D2 2376 0001:000B05D6 + 2377 0001:000B05DB 2378 0001:000B05E1 2359 0001:000B05E4 2379 0001:000B05E9 + 2380 0001:000B0600 2381 0001:000B0611 2383 0001:000B0625 2384 0001:000B0634 + 2387 0001:000B0638 2379 0001:000B063B 2389 0001:000B0643 2392 0001:000B0648 + 2393 0001:000B0654 2395 0001:000B065F 2396 0001:000B0668 2398 0001:000B0672 + 2410 0001:000B0678 2411 0001:000B0681 2412 0001:000B068A 2414 0001:000B0699 + 2415 0001:000B06B0 2416 0001:000B06C1 2421 0001:000B06C8 2422 0001:000B06D1 + 2423 0001:000B06DA 2425 0001:000B06E9 2426 0001:000B0700 2427 0001:000B0711 + 2432 0001:000B0718 2433 0001:000B0733 2434 0001:000B0748 2435 0001:000B0762 + 2436 0001:000B076E 2437 0001:000B0780 2438 0001:000B0793 2439 0001:000B079A + 2440 0001:000B07A7 2441 0001:000B07B1 2442 0001:000B07BB 2443 0001:000B07DE + 2446 0001:000B07E4 2447 0001:000B07F5 2448 0001:000B0800 2449 0001:000B080B + 2450 0001:000B0827 2453 0001:000B082C 2454 0001:000B0839 2455 0001:000B0851 + 2458 0001:000B0858 2459 0001:000B0861 2460 0001:000B0872 2463 0001:000B0878 + 2464 0001:000B0888 2465 0001:000B089D 2470 0001:000B08A4 2471 0001:000B08AD + 2472 0001:000B08B1 2473 0001:000B08C4 2474 0001:000B08D7 2476 0001:000B08DC + 2477 0001:000B08E3 2478 0001:000B08FC 2487 0001:000B0900 2488 0001:000B0909 + 2489 0001:000B090D 2493 0001:000B0958 2494 0001:000B0961 2495 0001:000B0965 + 2498 0001:000B0967 2499 0001:000B097F 2501 0001:000B0998 2502 0001:000B099C + 2503 0001:000B099E 2498 0001:000B09A1 2504 0001:000B09A9 2506 0001:000B09B0 + 2507 0001:000B09BF 2508 0001:000B09C4 2509 0001:000B09DD 2510 0001:000B09E6 + 2516 0001:000B09EC 2517 0001:000B09FB 2518 0001:000B0A00 2519 0001:000B0A04 + 2520 0001:000B0A0E 2522 0001:000B0A33 2525 0001:000B0A40 2527 0001:000B0A53 + 2526 0001:000B0A5C 2528 0001:000B0A6B 2530 0001:000B0A7D 2535 0001:000B0A84 + 2536 0001:000B0A91 2537 0001:000B0A95 2538 0001:000B0AA6 2540 0001:000B0AAC + 2541 0001:000B0AB4 2543 0001:000B0ABB 2549 0001:000B0AC0 2550 0001:000B0ACC + 2551 0001:000B0AD0 2552 0001:000B0AE0 2554 0001:000B0AEA 2555 0001:000B0AF3 + 2556 0001:000B0AFB 2557 0001:000B0B03 2558 0001:000B0B10 2559 0001:000B0B20 + 2560 0001:000B0B26 2561 0001:000B0B2E 2562 0001:000B0B3B 2563 0001:000B0B48 + 2566 0001:000B0B7E 2567 0001:000B0B8C 2569 0001:000B0B92 2570 0001:000B0BAD + 2571 0001:000B0BBB 2574 0001:000B0BC0 2575 0001:000B0BC9 2576 0001:000B0BE7 + 2594 0001:000B0BEC 2595 0001:000B0BF8 2598 0001:000B0C00 2599 0001:000B0C09 + 2596 0001:000B0C0C 2601 0001:000B0C1B 2606 0001:000B0C20 2607 0001:000B0C2F + 2608 0001:000B0C33 2610 0001:000B0C3E 2611 0001:000B0C58 2612 0001:000B0C6B + 2616 0001:000B0C75 2618 0001:000B0C91 2619 0001:000B0CAB 2621 0001:000B0CB4 + 2622 0001:000B0CB8 2625 0001:000B0CBD 2626 0001:000B0CD5 2628 0001:000B0CF2 + 2630 0001:000B0CFC 2631 0001:000B0D0B 2632 0001:000B0D19 2633 0001:000B0D2F + 2634 0001:000B0D39 2636 0001:000B0D62 2638 0001:000B0D75 2640 0001:000B0D8E + 2641 0001:000B0D95 2643 0001:000B0D9C 2648 0001:000B0DA8 2651 0001:000B0DAC + 2652 0001:000B0DB7 2653 0001:000B0DC2 2654 0001:000B0DD4 2655 0001:000B0DE6 + 2660 0001:000B0DF5 2661 0001:000B0DFE 2662 0001:000B0E0B 2664 0001:000B0E19 + 2665 0001:000B0E1D 2666 0001:000B0E2E 2668 0001:000B0E34 2669 0001:000B0E41 + 2670 0001:000B0E4F 2672 0001:000B0E6B 2675 0001:000B0E7D 2677 0001:000B0E96 + 2679 0001:000B0EA8 2681 0001:000B0EC0 2684 0001:000B0EC4 2685 0001:000B0ECD + 2686 0001:000B0EDB 2693 0001:000B0EE0 2694 0001:000B0EEC 2695 0001:000B0F08 + 2696 0001:000B0F13 2697 0001:000B0F1A 2698 0001:000B0F21 2699 0001:000B0F2A + 2700 0001:000B0F31 2702 0001:000B0F46 2705 0001:000B0F61 2707 0001:000B0F80 + 2708 0001:000B0F87 2709 0001:000B0F9C 2711 0001:000B0FA8 2722 0001:000B0FAC + 2723 0001:000B0FB5 2724 0001:000B0FC1 2725 0001:000B0FCC 2726 0001:000B0FD5 + 2729 0001:000B0FDF 2730 0001:000B1003 2731 0001:000B100E 2732 0001:000B1024 + 2734 0001:000B102A 2735 0001:000B1030 2736 0001:000B1033 2738 0001:000B1039 + 2740 0001:000B103F 2741 0001:000B1045 2742 0001:000B1048 2744 0001:000B104E + 2746 0001:000B1054 2747 0001:000B105A 2748 0001:000B105D 2750 0001:000B1063 + 2751 0001:000B1069 2752 0001:000B106C 2753 0001:000B1072 2727 0001:000B1075 + 2755 0001:000B1089 2757 0001:000B1090 2758 0001:000B109F 2759 0001:000B10A6 + 2760 0001:000B10AD 2761 0001:000B10CB 2763 0001:000B10F4 2764 0001:000B10FB + 2766 0001:000B111A 2769 0001:000B1120 2770 0001:000B112C 2772 0001:000B1137 + 2773 0001:000B1140 2775 0001:000B1148 2781 0001:000B114C 2782 0001:000B1155 + 2783 0001:000B1160 2784 0001:000B1169 2785 0001:000B1172 2786 0001:000B1180 + 2787 0001:000B1189 2789 0001:000B1195 2791 0001:000B11AC 2792 0001:000B11B7 + 2794 0001:000B11C8 2797 0001:000B11CC 2798 0001:000B11D8 2799 0001:000B11E1 + 2803 0001:000B11E9 2804 0001:000B11FA 2805 0001:000B1203 2807 0001:000B120D + 2808 0001:000B1215 2811 0001:000B121C 2812 0001:000B122C 2813 0001:000B1249 + 2816 0001:000B1250 2817 0001:000B1258 2818 0001:000B1260 2819 0001:000B126C + 2822 0001:000B1270 2823 0001:000B1280 2824 0001:000B12A7 2827 0001:000B12B8 + 2828 0001:000B12C4 2829 0001:000B12D7 2832 0001:000B12DC 2833 0001:000B12E8 + 2834 0001:000B1302 2835 0001:000B130B 2837 0001:000B1314 2838 0001:000B1325 + 2840 0001:000B1333 2841 0001:000B133B 2845 0001:000B1340 2846 0001:000B134F + 2847 0001:000B135D 2848 0001:000B1378 2851 0001:000B137C 2852 0001:000B1385 + 2853 0001:000B13A5 2864 0001:000B13AC 2865 0001:000B13BC 2866 0001:000B13C1 + 2868 0001:000B13C7 2869 0001:000B13D7 2873 0001:000B13EC 2874 0001:000B13FC + 2875 0001:000B1402 2877 0001:000B1415 2878 0001:000B141B 2879 0001:000B1430 + 2880 0001:000B1437 2885 0001:000B1440 2886 0001:000B146A 2888 0001:000B1470 + 2889 0001:000B1480 2893 0001:000B1495 2894 0001:000B14A8 2895 0001:000B14BB + 2899 0001:000B14C9 2900 0001:000B14D8 2903 0001:000B1523 2904 0001:000B154C + 2906 0001:000B1554 2909 0001:000B1560 2910 0001:000B1568 2911 0001:000B156F + 2912 0001:000B1576 2913 0001:000B157D 2914 0001:000B158C 2916 0001:000B15A3 + 2917 0001:000B15BC 2919 0001:000B15DB 2923 0001:000B15E1 2924 0001:000B15EE + 2926 0001:000B15F0 2928 0001:000B15F6 2929 0001:000B15FC 2932 0001:000B1608 + 2933 0001:000B1612 2934 0001:000B1618 2935 0001:000B1620 2936 0001:000B1626 + 2938 0001:000B162C 2914 0001:000B162F 2940 0001:000B1638 2942 0001:000B163E + 2943 0001:000B1648 2947 0001:000B164D 2948 0001:000B1657 2950 0001:000B166E + 2951 0001:000B1687 2953 0001:000B16A6 2955 0001:000B16AC 2956 0001:000B16B6 + 2958 0001:000B16BB 2960 0001:000B16C1 2961 0001:000B16C7 2964 0001:000B16D3 + 2965 0001:000B16DD 2966 0001:000B16E3 2967 0001:000B16EB 2968 0001:000B16F1 + 2970 0001:000B16F7 2948 0001:000B16FA 2972 0001:000B1703 2973 0001:000B170C + 2974 0001:000B1720 2976 0001:000B1729 2977 0001:000B172F 2978 0001:000B1735 + 2981 0001:000B1747 2989 0001:000B174C 2990 0001:000B175B 2992 0001:000B176B + 2993 0001:000B1770 2994 0001:000B1785 2996 0001:000B178B 2997 0001:000B179B + 3001 0001:000B17AD 3002 0001:000B17BD 3003 0001:000B17C3 3005 0001:000B17D3 + 3007 0001:000B17D9 3008 0001:000B17DF 3009 0001:000B17F0 3012 0001:000B17FD + 3015 0001:000B1804 3016 0001:000B1823 3019 0001:000B182C 3020 0001:000B1838 + 3022 0001:000B1843 3023 0001:000B184C 3024 0001:000B1853 3026 0001:000B185B + 3029 0001:000B1860 3030 0001:000B186C 3032 0001:000B1877 3033 0001:000B1880 + 3035 0001:000B1888 3040 0001:000B188C 3041 0001:000B1895 3043 0001:000B189E + 3044 0001:000B18AC 3046 0001:000B18B2 3047 0001:000B18C0 3050 0001:000B18C7 + 3053 0001:000B18CC 3054 0001:000B18D8 3056 0001:000B18E1 3057 0001:000B18FA + 3059 0001:000B1901 3062 0001:000B1908 3063 0001:000B1911 3064 0001:000B1927 + 3067 0001:000B192C 3068 0001:000B1938 3069 0001:000B194C 3072 0001:000B1950 + 3073 0001:000B1959 3074 0001:000B196F 3077 0001:000B1974 3078 0001:000B1980 + 3079 0001:000B1994 3084 0001:000B1998 3085 0001:000B19A4 3087 0001:000B19AF + 3088 0001:000B19B8 3089 0001:000B19C1 3091 0001:000B19D6 3096 0001:000B19DC + 3097 0001:000B19EB 3099 0001:000B19F4 3100 0001:000B19FF 3101 0001:000B1A05 + 3102 0001:000B1A1A 3103 0001:000B1A20 3105 0001:000B1A2C 3106 0001:000B1A3E + 3109 0001:000B1A44 3110 0001:000B1A50 3111 0001:000B1A56 3112 0001:000B1A69 + 3113 0001:000B1A76 3116 0001:000B1A7C 3117 0001:000B1A88 3118 0001:000B1A9F + 3119 0001:000B1AAC 3122 0001:000B1AB0 3123 0001:000B1AB8 3124 0001:000B1AC6 + 3125 0001:000B1ACF 3126 0001:000B1AE4 3129 0001:000B1AE8 3130 0001:000B1AF1 + 3131 0001:000B1AFA 3132 0001:000B1B05 3133 0001:000B1B13 3205 0001:000B1B18 + 3206 0001:000B1B21 3208 0001:000B1B36 3210 0001:000B1B4D 3211 0001:000B1B5D + 3213 0001:000B1B71 3206 0001:000B1B74 3214 0001:000B1B79 3215 0001:000B1B80 + 3217 0001:000B1B84 3218 0001:000B1B93 3219 0001:000B1B9E 3220 0001:000B1BA4 + 3221 0001:000B1BC9 3222 0001:000B1BE2 3225 0001:000B1BE8 3226 0001:000B1BF4 + 3227 0001:000B1BFD 3228 0001:000B1C05 3233 0001:000B1C0C 3234 0001:000B1C1B + 3235 0001:000B1C29 3237 0001:000B1C43 3239 0001:000B1C57 3250 0001:000B1C60 + 3251 0001:000B1C80 3253 0001:000B1CC8 3254 0001:000B1CE2 3253 0001:000B1D04 + 3256 0001:000B1D0E 3258 0001:000B1D28 3256 0001:000B1D49 3262 0001:000B1D53 + 3263 0001:000B1D57 3264 0001:000B1D64 3266 0001:000B1D7E 3268 0001:000B1D84 + 3269 0001:000B1D8D 3270 0001:000B1DA6 3273 0001:000B1DAF 3274 0001:000B1DB9 + 3275 0001:000B1DD2 3277 0001:000B1DD8 3278 0001:000B1DF5 3280 0001:000B1DFA + 3264 0001:000B1DFD 3281 0001:000B1E06 3284 0001:000B1E19 3286 0001:000B1E22 + 3288 0001:000B1E3C 3289 0001:000B1E54 3291 0001:000B1E67 3292 0001:000B1E82 + 3294 0001:000B1E8C 3295 0001:000B1EA7 3296 0001:000B1EAD 3297 0001:000B1EC8 + 3298 0001:000B1ED9 3299 0001:000B1EDF 3300 0001:000B1EF2 3301 0001:000B1F05 + 3303 0001:000B1F1E 3304 0001:000B1F2D 3306 0001:000B1F32 3286 0001:000B1F35 + 3309 0001:000B1F43 3311 0001:000B1F4C 3313 0001:000B1F66 3314 0001:000B1F81 + 3316 0001:000B1F8B 3317 0001:000B1F9A 3319 0001:000B1FA8 3320 0001:000B1FB7 + 3321 0001:000B1FC5 3322 0001:000B1FD3 3323 0001:000B1FE8 3325 0001:000B200E + 3326 0001:000B2018 3329 0001:000B203D 3333 0001:000B204D 3311 0001:000B2050 + 3336 0001:000B205E 3338 0001:000B2067 3340 0001:000B2081 3341 0001:000B209C + 3343 0001:000B20A6 3344 0001:000B20B5 3345 0001:000B20C3 3346 0001:000B20D2 + 3348 0001:000B20E0 3349 0001:000B20EC 3350 0001:000B20FA 3351 0001:000B2105 + 3352 0001:000B211A 3355 0001:000B213F 3356 0001:000B2149 3359 0001:000B216B + 3362 0001:000B2188 3366 0001:000B21A0 3338 0001:000B21A3 3369 0001:000B21AE + 3370 0001:000B21C4 3371 0001:000B21D2 3374 0001:000B21F6 3375 0001:000B2201 + 3376 0001:000B2203 3369 0001:000B2206 3378 0001:000B220B 3379 0001:000B224E + 3382 0001:000B2254 3384 0001:000B2260 3389 0001:000B227D 3390 0001:000B2288 + 3393 0001:000B228C 3394 0001:000B2298 3396 0001:000B22A3 3401 0001:000B22B7 + 3406 0001:000B22BC 3407 0001:000B22D7 3408 0001:000B22E4 3409 0001:000B22EE + 3410 0001:000B22F8 3411 0001:000B2312 3412 0001:000B2322 3413 0001:000B2329 + 3414 0001:000B2351 3417 0001:000B2358 3418 0001:000B2369 3419 0001:000B2376 + 3420 0001:000B2392 3423 0001:000B2398 3424 0001:000B23A5 3425 0001:000B23BB + 3428 0001:000B23C0 3429 0001:000B23C9 3430 0001:000B23D8 3433 0001:000B23DC + 3434 0001:000B23E8 3435 0001:000B23F4 3440 0001:000B23F8 3441 0001:000B2401 + 3442 0001:000B240C 3446 0001:000B2415 3447 0001:000B2423 3449 0001:000B2429 + 3450 0001:000B2437 3454 0001:000B2440 3455 0001:000B2452 3458 0001:000B2459 + 3463 0001:000B2460 3464 0001:000B246A 3465 0001:000B246E 3466 0001:000B2479 + 3470 0001:000B2482 3471 0001:000B2490 3472 0001:000B2496 3474 0001:000B24A7 + 3477 0001:000B24B8 3478 0001:000B24C6 3488 0001:000B24CC 3489 0001:000B24DB + 3490 0001:000B24F8 3491 0001:000B2500 3492 0001:000B250B 3493 0001:000B2518 + 3494 0001:000B2525 3495 0001:000B2530 3496 0001:000B2538 3498 0001:000B2579 + 3499 0001:000B25A3 3506 0001:000B25A8 3507 0001:000B25B4 3508 0001:000B25CD + 3509 0001:000B25E2 3507 0001:000B25F7 3510 0001:000B25FC 3594 0001:000B2600 + 3597 0001:000B2618 3599 0001:000B263F 3600 0001:000B2659 3602 0001:000B2671 + 3603 0001:000B2681 3605 0001:000B2693 3607 0001:000B269F 3608 0001:000B26AF + 3612 0001:000B26C1 3613 0001:000B26D1 3615 0001:000B26E1 3617 0001:000B26F8 + 3622 0001:000B2704 3623 0001:000B2710 3624 0001:000B271B 3627 0001:000B2727 + 3628 0001:000B2743 3629 0001:000B2748 3630 0001:000B2757 3633 0001:000B2798 + 3635 0001:000B27AB 3636 0001:000B27BB 3625 0001:000B27BE 3638 0001:000B27D1 + 3643 0001:000B27D8 3644 0001:000B27E4 3645 0001:000B27EC 3646 0001:000B27F3 + 3647 0001:000B27FE 3649 0001:000B2806 3650 0001:000B2820 3651 0001:000B2825 + 3654 0001:000B283B 3655 0001:000B283E 3656 0001:000B284B 3658 0001:000B285D + 3647 0001:000B2860 3660 0001:000B2868 3663 0001:000B286C 3664 0001:000B288E + 3665 0001:000B28D9 3678 0001:000B2974 3679 0001:000B2997 3680 0001:000B29A1 + 3682 0001:000B29DF 3667 0001:000B29E4 3668 0001:000B29F7 3669 0001:000B2A01 + 3670 0001:000B2A0B 3671 0001:000B2A1B 3672 0001:000B2A2B 3673 0001:000B2A35 + 3674 0001:000B2A46 3675 0001:000B2A57 3677 0001:000B2A68 + +Line numbers for Forms(Forms.pas) segment .text + + 1289 0001:000B5CC8 1290 0001:000B5CCC 1291 0001:000B5CD7 1294 0001:000B5CDC + 1295 0001:000B5CE3 1296 0001:000B5CEB 1307 0001:000B5CF0 1308 0001:000B5CFC + 1310 0001:000B5D02 1311 0001:000B5D10 1312 0001:000B5D16 1313 0001:000B5D1C + 1315 0001:000B5D23 1316 0001:000B5D25 1317 0001:000B5D2B 1320 0001:000B5D32 + 1321 0001:000B5D41 1324 0001:000B5D56 1345 0001:000B5D5C 1346 0001:000B5D77 + 1347 0001:000B5D83 1348 0001:000B5D8D 1350 0001:000B5D97 1355 0001:000B5D98 + 1356 0001:000B5D9E 1359 0001:000B5DC3 1360 0001:000B5DD0 1361 0001:000B5DDA + 1362 0001:000B5DE3 1363 0001:000B5DEB 1365 0001:000B5DF6 1366 0001:000B5E00 + 1372 0001:000B5E08 1373 0001:000B5E14 1374 0001:000B5E19 1375 0001:000B5E21 + 1376 0001:000B5E29 1377 0001:000B5E31 1378 0001:000B5E38 1379 0001:000B5E46 + 1380 0001:000B5E54 1381 0001:000B5E66 1383 0001:000B5E7D 1384 0001:000B5E87 + 1387 0001:000B5E9E 1388 0001:000B5EA6 1390 0001:000B5EB9 1395 0001:000B5EC0 + 1396 0001:000B5EC9 1398 0001:000B5ECF 1399 0001:000B5ED5 1400 0001:000B5EF3 + 1401 0001:000B5EFB 1396 0001:000B5F08 1403 0001:000B5F0E 1406 0001:000B5F14 + 1407 0001:000B5F18 1409 0001:000B5F4A 1411 0001:000B5F59 1414 0001:000B5F6C + 1416 0001:000B5F7D 1417 0001:000B5F87 1420 0001:000B5F8C 1421 0001:000B5F95 + 1422 0001:000B5F9D 1423 0001:000B5FA4 1424 0001:000B5FAB 1425 0001:000B5FBD + 1426 0001:000B5FC6 1427 0001:000B5FD0 1428 0001:000B5FDB 1433 0001:000B5FE0 + 1434 0001:000B5FED 1435 0001:000B5FF5 1436 0001:000B6007 1437 0001:000B6016 + 1449 0001:000B601C 1450 0001:000B6020 1451 0001:000B6027 1453 0001:000B6031 + 1454 0001:000B6036 1456 0001:000B6040 1461 0001:000B6048 1462 0001:000B604E + 1463 0001:000B6056 1464 0001:000B605A 1465 0001:000B606E 1466 0001:000B6077 + 1471 0001:000B607C 1472 0001:000B6085 1474 0001:000B609F 1475 0001:000B60AF + 1477 0001:000B60CA 1472 0001:000B60CD 1478 0001:000B60D2 1480 0001:000B60EC + 1481 0001:000B60FC 1482 0001:000B610E 1478 0001:000B6111 1483 0001:000B6116 + 1484 0001:000B611E 1513 0001:000B6124 1518 0001:000B6128 1520 0001:000B6139 + 1525 0001:000B6140 1530 0001:000B6147 1532 0001:000B614F 1535 0001:000B6154 + 1540 0001:000B6158 1542 0001:000B6169 1545 0001:000B6170 1550 0001:000B6177 + 1552 0001:000B617F 1559 0001:000B6184 1560 0001:000B618C 1561 0001:000B6194 + 1562 0001:000B619E 1563 0001:000B61A8 1564 0001:000B61B2 1565 0001:000B61BC + 1566 0001:000B61C6 1567 0001:000B61D9 1578 0001:000B61E0 1579 0001:000B61E9 + 1580 0001:000B61F1 1581 0001:000B6201 1582 0001:000B6211 1587 0001:000B621E + 1592 0001:000B6228 1593 0001:000B6231 1594 0001:000B6239 1595 0001:000B6246 + 1596 0001:000B6253 1597 0001:000B6260 1598 0001:000B626D 1599 0001:000B627A + 1600 0001:000B628A 1607 0001:000B6294 1608 0001:000B629D 1609 0001:000B62A9 + 1610 0001:000B62BA 1613 0001:000B62C0 1614 0001:000B62E3 1615 0001:000B6331 + 1620 0001:000B6338 1621 0001:000B6343 1622 0001:000B6355 1623 0001:000B6367 + 1624 0001:000B636F 1625 0001:000B6377 1628 0001:000B637C 1629 0001:000B6398 + 1630 0001:000B63A3 1631 0001:000B63A9 1632 0001:000B63FD 1638 0001:000B6404 + 1639 0001:000B641F 1640 0001:000B6429 1641 0001:000B6432 1642 0001:000B643B + 1643 0001:000B6444 1644 0001:000B645B 1645 0001:000B6462 1646 0001:000B646C + 1647 0001:000B6476 1648 0001:000B6480 1649 0001:000B648A 1650 0001:000B6491 + 1651 0001:000B64B3 1654 0001:000B64BC 1655 0001:000B64C5 1656 0001:000B64D3 + 1659 0001:000B64D8 1660 0001:000B64E4 1662 0001:000B64F6 1663 0001:000B6504 + 1664 0001:000B6512 1665 0001:000B6520 1666 0001:000B652E 1668 0001:000B6530 + 1669 0001:000B653B 1672 0001:000B6540 1673 0001:000B6547 1674 0001:000B6550 + 1675 0001:000B655C 1676 0001:000B656B 1678 0001:000B6577 1679 0001:000B6585 + 1687 0001:000B6588 1688 0001:000B658F 1689 0001:000B6598 1691 0001:000B65AC + 1692 0001:000B65CA 1693 0001:000B65F2 1695 0001:000B65FE 1698 0001:000B660C + 1699 0001:000B6613 1700 0001:000B661C 1702 0001:000B662A 1703 0001:000B6648 + 1704 0001:000B6670 1706 0001:000B667C 1708 0001:000B6688 1709 0001:000B6691 + 1711 0001:000B66A4 1713 0001:000B66B6 1714 0001:000B66BB 1715 0001:000B66C0 + 1716 0001:000B66DB 1717 0001:000B66E4 1718 0001:000B66FB 1715 0001:000B6713 + 1719 0001:000B6718 1721 0001:000B6731 1723 0001:000B673B 1728 0001:000B6740 + 1729 0001:000B6749 1730 0001:000B6750 1731 0001:000B6760 1733 0001:000B678D + 1742 0001:000B6794 1743 0001:000B679E 1744 0001:000B67A5 1745 0001:000B67B3 + 1746 0001:000B67D3 1749 0001:000B67D8 1750 0001:000B67E6 1751 0001:000B67EB + 1752 0001:000B67F4 1753 0001:000B680F 1754 0001:000B682A 1755 0001:000B6845 + 1756 0001:000B685F 1758 0001:000B6864 1759 0001:000B6874 1761 0001:000B6895 + 1762 0001:000B689E 1763 0001:000B68BF 1764 0001:000B68E3 1773 0001:000B68E8 + 1774 0001:000B68F1 1775 0001:000B690A 1786 0001:000B6910 1787 0001:000B6916 + 1788 0001:000B691D 1789 0001:000B6924 1790 0001:000B6929 1791 0001:000B693C + 1792 0001:000B6949 1793 0001:000B696D 1794 0001:000B6976 1796 0001:000B697C + 1799 0001:000B6988 1801 0001:000B69A6 1804 0001:000B69BB 1805 0001:000B69CE + 1806 0001:000B69E1 1810 0001:000B69EC 1811 0001:000B69F6 1812 0001:000B6A08 + 1813 0001:000B6A1A 1816 0001:000B6A25 1817 0001:000B6A2A 1818 0001:000B6A2F + 1820 0001:000B6A34 1821 0001:000B6A39 1823 0001:000B6A43 1824 0001:000B6A4B + 1825 0001:000B6A54 1826 0001:000B6A6E 1827 0001:000B6A74 1828 0001:000B6A8F + 1829 0001:000B6AA2 1830 0001:000B6AB5 1831 0001:000B6AC8 1833 0001:000B6AD9 + 1834 0001:000B6AE7 1821 0001:000B6AEA 1836 0001:000B6AF4 1838 0001:000B6AFE + 1839 0001:000B6B1C 1840 0001:000B6B32 1841 0001:000B6B48 1842 0001:000B6B5E + 1847 0001:000B6B74 1848 0001:000B6BAB 1849 0001:000B6BC7 1850 0001:000B6BE3 + 1851 0001:000B6C04 1853 0001:000B6C25 1854 0001:000B6C31 1855 0001:000B6C44 + 1857 0001:000B6C55 1858 0001:000B6C5E 1859 0001:000B6C6A 1860 0001:000B6C7D + 1861 0001:000B6C8E 1862 0001:000B6C9A 1866 0001:000B6CA8 1873 0001:000B6CAC + 1874 0001:000B6CB8 1876 0001:000B6CC3 1877 0001:000B6CC9 1878 0001:000B6CCF + 1879 0001:000B6CEA 1880 0001:000B6CF3 1881 0001:000B6CFA 1882 0001:000B6D05 + 1883 0001:000B6D0B 1885 0001:000B6D13 1888 0001:000B6D18 1889 0001:000B6D24 + 1891 0001:000B6D2F 1892 0001:000B6D38 1893 0001:000B6D3F 1894 0001:000B6D46 + 1896 0001:000B6D51 1899 0001:000B6D58 1900 0001:000B6D64 1902 0001:000B6D6F + 1903 0001:000B6D78 1905 0001:000B6D8B 1912 0001:000B6D90 1913 0001:000B6D9C + 1914 0001:000B6DA8 1917 0001:000B6DB6 1918 0001:000B6DCC 1919 0001:000B6DD7 + 1920 0001:000B6DE0 1921 0001:000B6DE8 1922 0001:000B6DEE 1924 0001:000B6DF9 + 1925 0001:000B6E02 1926 0001:000B6E0B 1927 0001:000B6E14 1928 0001:000B6E29 + 1929 0001:000B6E3C 1931 0001:000B6E48 1932 0001:000B6E56 1935 0001:000B6E76 + 1936 0001:000B6E98 1938 0001:000B6EBB 1945 0001:000B6EC0 1946 0001:000B6ECC + 1948 0001:000B6ED7 1949 0001:000B6EDD 1950 0001:000B6EE3 1951 0001:000B6EFE + 1952 0001:000B6F07 1953 0001:000B6F0E 1954 0001:000B6F19 1955 0001:000B6F1F + 1957 0001:000B6F27 1960 0001:000B6F2C 1961 0001:000B6F38 1963 0001:000B6F43 + 1964 0001:000B6F4C 1965 0001:000B6F53 1967 0001:000B6F5E 1970 0001:000B6F64 + 1971 0001:000B6F70 1973 0001:000B6F7B 1974 0001:000B6F84 1975 0001:000B6F8B + 1977 0001:000B6F96 1980 0001:000B6F9C 1981 0001:000B6FA8 1982 0001:000B6FB1 + 1983 0001:000B6FC2 1984 0001:000B6FCD 1987 0001:000B6FD4 1988 0001:000B6FE0 + 1989 0001:000B6FED 1990 0001:000B6FF4 1991 0001:000B6FFF 1994 0001:000B7004 + 1995 0001:000B700D 1996 0001:000B7021 1999 0001:000B7028 2000 0001:000B7034 + 2001 0001:000B703D 2002 0001:000B7048 2023 0001:000B704C 2024 0001:000B7053 + 2025 0001:000B7096 2026 0001:000B70A2 2027 0001:000B70D7 2028 0001:000B70E3 + 2029 0001:000B7118 2030 0001:000B7124 2031 0001:000B7159 2033 0001:000B7193 + 2035 0001:000B7198 2036 0001:000B71A7 2037 0001:000B71AF 2038 0001:000B71B5 + 2039 0001:000B71C4 2041 0001:000B71CD 2042 0001:000B71E9 2044 0001:000B71FA + 2045 0001:000B7201 2046 0001:000B7208 2047 0001:000B720D 2048 0001:000B7216 + 2049 0001:000B7221 2050 0001:000B7226 2051 0001:000B7238 2052 0001:000B7241 + 2053 0001:000B724A 2054 0001:000B7257 2055 0001:000B725E 2056 0001:000B727E + 2057 0001:000B728C 2058 0001:000B72AA 2059 0001:000B72CA 2064 0001:000B72D0 + 2065 0001:000B72EB 2066 0001:000B72F8 2067 0001:000B730A 2068 0001:000B7324 + 2069 0001:000B733E 2070 0001:000B7363 2073 0001:000B736C 2074 0001:000B737D + 2075 0001:000B738B 2076 0001:000B7399 2077 0001:000B73B5 2080 0001:000B73BC + 2081 0001:000B73C8 2082 0001:000B73D3 2084 0001:000B73DA 2087 0001:000B73E0 + 2088 0001:000B73E7 2092 0001:000B73EF 2094 0001:000B740D 2095 0001:000B741B + 2096 0001:000B7423 2099 0001:000B7428 2100 0001:000B7437 2101 0001:000B743F + 2102 0001:000B744D 2105 0001:000B7454 2106 0001:000B745D 2107 0001:000B748A + 2115 0001:000B7490 2116 0001:000B7499 2117 0001:000B74A8 2118 0001:000B74B6 + 2119 0001:000B74C1 2120 0001:000B74CD 2121 0001:000B74ED 2123 0001:000B74F3 + 2124 0001:000B74FC 2128 0001:000B7506 2130 0001:000B752C 2131 0001:000B7541 + 2132 0001:000B7558 2128 0001:000B755B 2135 0001:000B7560 2136 0001:000B7576 + 2135 0001:000B7592 2138 0001:000B7597 2139 0001:000B759D 2141 0001:000B75B8 + 2143 0001:000B75C8 2146 0001:000B75CC 2147 0001:000B75D3 2149 0001:000B75DF + 2150 0001:000B75ED 2152 0001:000B75FB 2155 0001:000B7600 2156 0001:000B760C + 2158 0001:000B761A 2159 0001:000B7626 2161 0001:000B7636 2162 0001:000B7646 + 2165 0001:000B7656 2168 0001:000B765C 2169 0001:000B7668 2170 0001:000B7679 + 2173 0001:000B7680 2174 0001:000B768C 2175 0001:000B769D 2178 0001:000B76A4 + 2179 0001:000B76AB 2180 0001:000B76CB 2181 0001:000B76D9 2182 0001:000B76E3 + 2184 0001:000B76F5 2185 0001:000B7707 2187 0001:000B771B 2189 0001:000B772D + 2190 0001:000B773F 2194 0001:000B7753 2195 0001:000B7765 2198 0001:000B7784 + 2200 0001:000B7796 2203 0001:000B779C 2204 0001:000B77A8 2206 0001:000B77C0 + 2207 0001:000B77CB 2227 0001:000B77D0 2228 0001:000B77DC 2229 0001:000B77E6 + 2230 0001:000B77F1 2231 0001:000B7801 2232 0001:000B7811 2233 0001:000B7821 + 2234 0001:000B7831 2235 0001:000B7859 2236 0001:000B7881 2237 0001:000B7887 + 2238 0001:000B78A6 2240 0001:000B78B3 2241 0001:000B78C5 2242 0001:000B78D3 + 2244 0001:000B78FA 2245 0001:000B7900 2246 0001:000B791F 2248 0001:000B792C + 2249 0001:000B793E 2250 0001:000B794C 2252 0001:000B7973 2255 0001:000B7978 + 2256 0001:000B7987 2258 0001:000B7993 2260 0001:000B799C 2261 0001:000B79A9 + 2263 0001:000B79B6 2264 0001:000B79C6 2265 0001:000B79D6 2267 0001:000B79E2 + 2268 0001:000B7A15 2271 0001:000B7A48 2272 0001:000B7A55 2273 0001:000B7A62 + 2276 0001:000B7A68 2277 0001:000B7A77 2278 0001:000B7A85 2279 0001:000B7A93 + 2282 0001:000B7A98 2284 0001:000B7AA4 2289 0001:000B7AA8 2290 0001:000B7AB4 + 2291 0001:000B7ABD 2292 0001:000B7ACB 2293 0001:000B7AD6 2294 0001:000B7ADA + 2295 0001:000B7AEC 2296 0001:000B7AF2 2297 0001:000B7AF8 2299 0001:000B7AFC + 2301 0001:000B7B17 2303 0001:000B7B28 2304 0001:000B7B32 2305 0001:000B7B40 + 2307 0001:000B7B55 2309 0001:000B7B67 2310 0001:000B7B85 2311 0001:000B7B8D + 2314 0001:000B7B94 2315 0001:000B7BA0 2316 0001:000B7BB8 2317 0001:000B7BCB + 2318 0001:000B7BD6 2321 0001:000B7BDC 2322 0001:000B7BE8 2323 0001:000B7C00 + 2324 0001:000B7C13 2325 0001:000B7C1E 2328 0001:000B7C24 2329 0001:000B7C32 + 2332 0001:000B7C9A 2333 0001:000B7CA5 2338 0001:000B7CAC 2339 0001:000B7CB8 + 2340 0001:000B7CC1 2342 0001:000B7CCF 2343 0001:000B7CEB 2345 0001:000B7D03 + 2347 0001:000B7D14 2349 0001:000B7D20 2350 0001:000B7D2E 2352 0001:000B7D36 + 2357 0001:000B7D3C 2358 0001:000B7D57 2359 0001:000B7D64 2361 0001:000B7D70 + 2362 0001:000B7D7D 2363 0001:000B7D8A 2364 0001:000B7DAF 2369 0001:000B7DB8 + 2370 0001:000B7DC4 2373 0001:000B7DCF 2374 0001:000B7DE6 2376 0001:000B7E08 + 2377 0001:000B7E12 2380 0001:000B7E1C 2383 0001:000B7E20 2384 0001:000B7E2C + 2386 0001:000B7E3A 2387 0001:000B7E46 2389 0001:000B7E4E 2392 0001:000B7E54 + 2393 0001:000B7E60 2394 0001:000B7E6B 2397 0001:000B7E70 2398 0001:000B7E7C + 2399 0001:000B7E9A 2400 0001:000B7EA5 2405 0001:000B7EAC 2406 0001:000B7EE1 + 2407 0001:000B7EEE 2409 0001:000B7EFA 2411 0001:000B7F13 2412 0001:000B7F25 + 2416 0001:000B7F71 2417 0001:000B7F7E 2419 0001:000B7FC6 2422 0001:000B7FD0 + 2423 0001:000B7FDC 2424 0001:000B7FE7 2425 0001:000B7FF0 2426 0001:000B7FFE + 2432 0001:000B8004 2433 0001:000B8011 2434 0001:000B8022 2435 0001:000B802A + 2437 0001:000B8042 2438 0001:000B8050 2439 0001:000B8069 2435 0001:000B806C + 2440 0001:000B8071 2445 0001:000B8078 2446 0001:000B8084 2447 0001:000B808F + 2449 0001:000B8095 2450 0001:000B80B6 2452 0001:000B80C7 2457 0001:000B80CC + 2458 0001:000B80D8 2459 0001:000B80E3 2460 0001:000B80F5 2461 0001:000B8106 + 2465 0001:000B810C 2466 0001:000B811B 2467 0001:000B8129 2469 0001:000B8134 + 2470 0001:000B8146 2472 0001:000B8153 2473 0001:000B8165 2475 0001:000B8170 + 2483 0001:000B8174 2484 0001:000B817D 2486 0001:000B8198 2487 0001:000B81A9 + 2488 0001:000B81BB 2489 0001:000B81C6 2490 0001:000B81D6 2492 0001:000B81E4 + 2484 0001:000B81E7 2493 0001:000B81EC 2495 0001:000B81F0 2496 0001:000B81FC + 2497 0001:000B820E 2498 0001:000B8223 2499 0001:000B822B 2500 0001:000B8236 + 2501 0001:000B8248 2553 0001:000B824C 2554 0001:000B8281 2555 0001:000B828D + 2556 0001:000B829B 2557 0001:000B82AD 2559 0001:000B82CE 2560 0001:000B82D8 + 2561 0001:000B82E6 2562 0001:000B82F8 2564 0001:000B834F 2566 0001:000B8361 + 2569 0001:000B8385 2571 0001:000B83D4 2574 0001:000B83DC 2575 0001:000B83E4 + 2576 0001:000B83FB 2578 0001:000B8407 2579 0001:000B8413 2581 0001:000B841D + 2584 0001:000B8424 2585 0001:000B843F 2586 0001:000B844C 2588 0001:000B8458 + 2589 0001:000B8462 2590 0001:000B846C 2591 0001:000B8479 2592 0001:000B8486 + 2593 0001:000B849B 2594 0001:000B84B6 2595 0001:000B84D1 2596 0001:000B84E7 + 2597 0001:000B84FC 2598 0001:000B850D 2599 0001:000B851C 2600 0001:000B8526 + 2601 0001:000B8530 2602 0001:000B853A 2603 0001:000B8544 2604 0001:000B8555 + 2605 0001:000B855F 2606 0001:000B8570 2607 0001:000B857A 2608 0001:000B8585 + 2609 0001:000B858F 2610 0001:000B8599 2611 0001:000B85A3 2612 0001:000B85AD + 2613 0001:000B85BA 2614 0001:000B85E2 2617 0001:000B85F0 2618 0001:000B85F7 + 2619 0001:000B8603 2620 0001:000B860B 2621 0001:000B861B 2622 0001:000B8625 + 2623 0001:000B863F 2624 0001:000B8653 2625 0001:000B866A 2628 0001:000B8670 + 2629 0001:000B8681 2630 0001:000B8696 2631 0001:000B86A4 2632 0001:000B86BB + 2633 0001:000B86C5 2634 0001:000B86DC 2635 0001:000B86E9 2636 0001:000B86F7 + 2637 0001:000B8705 2638 0001:000B8712 2640 0001:000B872D 2642 0001:000B874F + 2645 0001:000B8754 2646 0001:000B875E 2647 0001:000B876B 2648 0001:000B8779 + 2650 0001:000B879A 2651 0001:000B87AA 2653 0001:000B87B4 2654 0001:000B87CA + 2657 0001:000B87D0 2658 0001:000B87DA 2659 0001:000B87E7 2660 0001:000B87F5 + 2662 0001:000B8816 2664 0001:000B8828 2669 0001:000B8830 2670 0001:000B883A + 2671 0001:000B8842 2673 0001:000B884E 2674 0001:000B885A 2675 0001:000B8865 + 2677 0001:000B8880 2681 0001:000B8888 2682 0001:000B8898 2683 0001:000B88A6 + 2686 0001:000B88B8 2688 0001:000B88CA 2689 0001:000B88EB 2691 0001:000B8901 + 2693 0001:000B8943 2697 0001:000B8950 2698 0001:000B896E 2701 0001:000B8981 + 2702 0001:000B8999 2703 0001:000B89B1 2707 0001:000B89C9 2708 0001:000B89D5 + 2709 0001:000B89E9 2715 0001:000B89F0 2716 0001:000B89FC 2717 0001:000B8A04 + 2718 0001:000B8A12 2719 0001:000B8A1D 2720 0001:000B8A28 2721 0001:000B8A33 + 2722 0001:000B8A37 2723 0001:000B8A47 2724 0001:000B8A52 2726 0001:000B8A72 + 2727 0001:000B8A92 2728 0001:000B8AC3 2729 0001:000B8AD4 2730 0001:000B8ADF + 2732 0001:000B8AF1 2733 0001:000B8AF5 2734 0001:000B8B09 2735 0001:000B8B1D + 2736 0001:000B8B29 2737 0001:000B8B4F 2738 0001:000B8B5B 2739 0001:000B8B81 + 2741 0001:000B8B8D 2742 0001:000B8BB3 2746 0001:000B8BD9 2747 0001:000B8BF6 + 2748 0001:000B8C13 2749 0001:000B8C22 2752 0001:000B8C28 2753 0001:000B8C3A + 2755 0001:000B8C4C 2757 0001:000B8C6A 2759 0001:000B8C7A 2762 0001:000B8C84 + 2763 0001:000B8C91 2764 0001:000B8C9C 2765 0001:000B8CBF 2766 0001:000B8CE7 + 2767 0001:000B8D03 2770 0001:000B8D50 2771 0001:000B8D5C 2772 0001:000B8D68 + 2773 0001:000B8D72 2776 0001:000B8D78 2777 0001:000B8D84 2778 0001:000B8D95 + 2781 0001:000B8D9C 2782 0001:000B8DA8 2783 0001:000B8DBA 2786 0001:000B8DC0 + 2787 0001:000B8DCC 2788 0001:000B8DDE 2791 0001:000B8DE4 2792 0001:000B8DED + 2793 0001:000B8E05 2796 0001:000B8E18 2798 0001:000B8E1F 2803 0001:000B8E24 + 2804 0001:000B8E33 2805 0001:000B8E41 2806 0001:000B8E4F 2808 0001:000B8E5B + 2809 0001:000B8E66 2810 0001:000B8E86 2812 0001:000B8EA1 2813 0001:000B8EC7 + 2816 0001:000B8ECC 2817 0001:000B8ED8 2819 0001:000B8EE2 2820 0001:000B8EFA + 2822 0001:000B8F1A 2823 0001:000B8F34 2826 0001:000B8F38 2827 0001:000B8F41 + 2828 0001:000B8F51 2831 0001:000B8F58 2832 0001:000B8F61 2834 0001:000B8F97 + 2837 0001:000B8F9C 2838 0001:000B8FA5 2840 0001:000B8FDF 2843 0001:000B8FE4 + 2844 0001:000B8FF1 2845 0001:000B9013 2848 0001:000B9018 2849 0001:000B9020 + 2850 0001:000B903F 2853 0001:000B9044 2854 0001:000B904C 2855 0001:000B906B + 2858 0001:000B9070 2859 0001:000B907C 2861 0001:000B9092 2862 0001:000B90A3 + 2864 0001:000B90E0 2868 0001:000B9114 2869 0001:000B911F 2875 0001:000B9124 + 2876 0001:000B9131 2877 0001:000B9142 2878 0001:000B914A 2880 0001:000B9162 + 2881 0001:000B9170 2882 0001:000B9189 2878 0001:000B918C 2883 0001:000B9191 + 2886 0001:000B9198 2887 0001:000B91A2 2888 0001:000B91D0 2893 0001:000B91D8 + 2894 0001:000B91E8 2895 0001:000B91FA 2898 0001:000B920A 2899 0001:000B9215 + 2900 0001:000B921C 2901 0001:000B9234 2903 0001:000B924C 2904 0001:000B924F + 2906 0001:000B9257 2907 0001:000B9262 2909 0001:000B9264 2900 0001:000B9267 + 2911 0001:000B926C 2914 0001:000B9274 2915 0001:000B9280 2917 0001:000B928B + 2919 0001:000B9296 2920 0001:000B929F 2922 0001:000B92B0 2925 0001:000B92B4 + 2926 0001:000B92C0 2928 0001:000B92C9 2929 0001:000B92D5 2930 0001:000B92EE + 2931 0001:000B92F9 2934 0001:000B9304 2935 0001:000B9310 2937 0001:000B9319 + 2938 0001:000B9325 2939 0001:000B933E 2940 0001:000B9349 2943 0001:000B9354 + 2944 0001:000B9360 2945 0001:000B936C 2946 0001:000B9372 2947 0001:000B937E + 2950 0001:000B938A 2951 0001:000B93A3 2953 0001:000B93AE 2956 0001:000B93B4 + 2957 0001:000B93D0 2958 0001:000B93E5 2959 0001:000B9423 2962 0001:000B9428 + 2963 0001:000B9437 2964 0001:000B943E 2967 0001:000B9444 2968 0001:000B9450 + 2970 0001:000B9463 2971 0001:000B9474 2972 0001:000B947F 2974 0001:000B9490 + 2978 0001:000B9494 2979 0001:000B94A4 2980 0001:000B94B6 2981 0001:000B94C2 + 2982 0001:000B94DA 2994 0001:000B94E4 2996 0001:000B94F2 2999 0001:000B9536 + 3000 0001:000B9543 3002 0001:000B955C 3003 0001:000B9561 3005 0001:000B956D + 3007 0001:000B958B 3008 0001:000B95A5 3009 0001:000B95B6 3011 0001:000B95C0 + 3012 0001:000B95C9 3017 0001:000B95CE 3019 0001:000B95EF 3021 0001:000B9610 + 3023 0001:000B962E 3025 0001:000B9648 3026 0001:000B9658 3028 0001:000B9682 + 3031 0001:000B9697 3032 0001:000B96A0 3034 0001:000B96BC 3035 0001:000B96D5 + 3037 0001:000B96DF 3038 0001:000B96EE 3040 0001:000B96FC 3041 0001:000B970B + 3042 0001:000B9719 3043 0001:000B9727 3044 0001:000B973A 3047 0001:000B9760 + 3048 0001:000B976A 3051 0001:000B978F 3057 0001:000B979F 3058 0001:000B97A8 + 3060 0001:000B97C4 3061 0001:000B97DD 3063 0001:000B97E7 3064 0001:000B97F8 + 3065 0001:000B9806 3066 0001:000B9815 3068 0001:000B9823 3069 0001:000B982F + 3070 0001:000B983D 3071 0001:000B9848 3072 0001:000B985B 3075 0001:000B9880 + 3076 0001:000B988A 3079 0001:000B98AC 3082 0001:000B98C9 3087 0001:000B98E3 + 3089 0001:000B98F0 3090 0001:000B9901 3091 0001:000B9912 3092 0001:000B9923 + 3093 0001:000B9934 3094 0001:000B9945 3097 0001:000B9956 3098 0001:000B9961 + 3103 0001:000B9970 3104 0001:000B9973 3106 0001:000B99B8 3111 0001:000B99BC + 3112 0001:000B99C2 3113 0001:000B99DD 3115 0001:000B99F4 3116 0001:000B99F8 + 3117 0001:000B99FA 3112 0001:000B99FD 3118 0001:000B9A02 3119 0001:000B9A09 + 3125 0001:000B9A10 3127 0001:000B9A1C 3130 0001:000B9A41 3131 0001:000B9A48 + 3135 0001:000B9A64 3137 0001:000B9A8E 3139 0001:000B9AA6 3140 0001:000B9AB9 + 3142 0001:000B9AD8 3146 0001:000B9AE7 3147 0001:000B9AEE 3148 0001:000B9AFE + 3153 0001:000B9B2E 3154 0001:000B9B37 3155 0001:000B9B3D 3156 0001:000B9B56 + 3157 0001:000B9B64 3159 0001:000B9B6A 3160 0001:000B9B7D 3161 0001:000B9B97 + 3163 0001:000B9BAC 3165 0001:000B9BC4 3166 0001:000B9BCA 3170 0001:000B9BE5 + 3172 0001:000B9BEC 3177 0001:000B9BF0 3178 0001:000B9BFF 3179 0001:000B9C0D + 3182 0001:000B9C19 3184 0001:000B9C52 3185 0001:000B9C5E 3186 0001:000B9C75 + 3188 0001:000B9C88 3194 0001:000B9C8C 3195 0001:000B9C98 3197 0001:000B9CA3 + 3199 0001:000B9CAF 3201 0001:000B9CD1 3202 0001:000B9CDC 3206 0001:000B9CF0 + 3207 0001:000B9D08 3208 0001:000B9D22 3206 0001:000B9D35 3209 0001:000B9D3A + 3212 0001:000B9D40 3214 0001:000B9D4C 3215 0001:000B9D58 3216 0001:000B9D62 + 3217 0001:000B9D70 3220 0001:000B9D79 3221 0001:000B9D82 3223 0001:000B9D94 + 3224 0001:000B9DA5 3227 0001:000B9DBC 3229 0001:000B9DCE 3237 0001:000B9DD4 + 3238 0001:000B9DE0 3240 0001:000B9DEE 3241 0001:000B9DFA 3243 0001:000B9E0B + 3246 0001:000B9E10 3247 0001:000B9E1C 3249 0001:000B9E2A 3250 0001:000B9E36 + 3251 0001:000B9E55 3253 0001:000B9E66 3258 0001:000B9E6C 3259 0001:000B9E83 + 3260 0001:000B9E8C 3261 0001:000B9E98 3262 0001:000B9EA6 3263 0001:000B9EC8 + 3264 0001:000B9ED0 3267 0001:000B9ED8 3268 0001:000B9EE7 3270 0001:000B9F07 + 3271 0001:000B9F0D 3273 0001:000B9F21 3274 0001:000B9F33 3276 0001:000B9F3D + 3277 0001:000B9F4B 3280 0001:000B9F50 3281 0001:000B9F59 3282 0001:000B9F5E + 3283 0001:000B9F76 3285 0001:000B9F99 3290 0001:000B9FA0 3291 0001:000B9FA9 + 3292 0001:000B9FAE 3293 0001:000B9FC6 3294 0001:000B9FE0 3293 0001:000B9FFC + 3295 0001:000BA004 3300 0001:000BA008 3301 0001:000BA014 3302 0001:000BA02C + 3304 0001:000BA046 3305 0001:000BA056 3307 0001:000BA062 3308 0001:000BA065 + 3310 0001:000BA06B 3302 0001:000BA06E 3311 0001:000BA073 3312 0001:000BA07B + 3318 0001:000BA080 3319 0001:000BA086 3320 0001:000BA08C 3321 0001:000BA09B + 3322 0001:000BA0A4 3323 0001:000BA0B0 3324 0001:000BA0BB 3325 0001:000BA0C2 + 3331 0001:000BA0C8 3332 0001:000BA0D1 3333 0001:000BA0D6 3334 0001:000BA0ED + 3335 0001:000BA107 3337 0001:000BA11C 3338 0001:000BA12C 3339 0001:000BA131 + 3334 0001:000BA134 3342 0001:000BA139 3343 0001:000BA153 3342 0001:000BA16B + 3344 0001:000BA170 3345 0001:000BA17D 3346 0001:000BA199 3347 0001:000BA1B3 + 3349 0001:000BA1C8 3350 0001:000BA1D8 3351 0001:000BA1DA 3346 0001:000BA1DD + 3352 0001:000BA1E5 3355 0001:000BA1EC 3356 0001:000BA1F5 3357 0001:000BA204 + 3360 0001:000BA208 3361 0001:000BA214 3362 0001:000BA225 3365 0001:000BA22C + 3366 0001:000BA235 3367 0001:000BA243 3370 0001:000BA248 3371 0001:000BA251 + 3372 0001:000BA27B 3377 0001:000BA280 3378 0001:000BA28C 3380 0001:000BA29E + 3381 0001:000BA2B0 3382 0001:000BA2BA 3383 0001:000BA2CB 3384 0001:000BA2D7 + 3385 0001:000BA2E3 3386 0001:000BA2FB 3387 0001:000BA30D 3388 0001:000BA31E + 3390 0001:000BA32E 3396 0001:000BA334 3397 0001:000BA33D 3399 0001:000BA35D + 3400 0001:000BA362 3401 0001:000BA37F 3402 0001:000BA384 3403 0001:000BA3A1 + 3404 0001:000BA3B6 3405 0001:000BA3D2 3407 0001:000BA3E6 3410 0001:000BA3EC + 3411 0001:000BA3F8 3412 0001:000BA404 3414 0001:000BA40A 3415 0001:000BA415 + 3417 0001:000BA41F 3420 0001:000BA424 3421 0001:000BA430 3423 0001:000BA43E + 3424 0001:000BA44A 3425 0001:000BA45B 3427 0001:000BA463 3432 0001:000BA468 + 3433 0001:000BA488 3434 0001:000BA492 3435 0001:000BA4AC 3436 0001:000BA4D6 + 3434 0001:000BA50D 3437 0001:000BA512 3438 0001:000BA52E 3440 0001:000BA546 + 3441 0001:000BA54B 3442 0001:000BA557 3443 0001:000BA568 3446 0001:000BA58B + 3449 0001:000BA5AF 3451 0001:000BA5BF 3452 0001:000BA5E1 3453 0001:000BA5FE + 3456 0001:000BA612 3457 0001:000BA61E 3459 0001:000BA63C 3460 0001:000BA658 + 3461 0001:000BA66E 3462 0001:000BA693 3465 0001:000BA698 3466 0001:000BA6A1 + 3467 0001:000BA6AD 3468 0001:000BA6C1 3471 0001:000BA6C8 3472 0001:000BA6D4 + 3474 0001:000BA702 3475 0001:000BA70E 3478 0001:000BA714 3479 0001:000BA720 + 3481 0001:000BA72E 3482 0001:000BA73A 3484 0001:000BA74B 3487 0001:000BA750 + 3488 0001:000BA759 3489 0001:000BA76A 3492 0001:000BA770 3493 0001:000BA77C + 3495 0001:000BA789 3496 0001:000BA794 3498 0001:000BA7AB 3501 0001:000BA7B0 + 3502 0001:000BA7BC 3503 0001:000BA7C7 3504 0001:000BA7EA 3507 0001:000BA7F0 + 3508 0001:000BA7F9 3509 0001:000BA800 3510 0001:000BA816 3513 0001:000BA81C + 3514 0001:000BA828 3515 0001:000BA833 3517 0001:000BA83F 3519 0001:000BA85E + 3520 0001:000BA87C 3523 0001:000BA880 3524 0001:000BA88C 3525 0001:000BA897 + 3526 0001:000BA8B7 3529 0001:000BA8BC 3530 0001:000BA8C8 3531 0001:000BA8D0 + 3532 0001:000BA8E1 3538 0001:000BA8E8 3539 0001:000BA8F4 3541 0001:000BA902 + 3542 0001:000BA90E 3543 0001:000BA923 3545 0001:000BA93E 3552 0001:000BA944 + 3553 0001:000BA94E 3555 0001:000BA96D 3556 0001:000BA972 3557 0001:000BA97E + 3558 0001:000BA993 3559 0001:000BA9AA 3560 0001:000BA9BF 3561 0001:000BA9CB + 3562 0001:000BA9DD 3563 0001:000BA9EB 3564 0001:000BAA09 3565 0001:000BAA22 + 3566 0001:000BAA2E 3567 0001:000BAA4C 3569 0001:000BAA65 3570 0001:000BAA75 + 3574 0001:000BAB01 3576 0001:000BAB11 3582 0001:000BAB9D 3583 0001:000BABCE + 3584 0001:000BAC03 3585 0001:000BAC34 3586 0001:000BAC65 3587 0001:000BAC9A + 3588 0001:000BACCB 3590 0001:000BACEA 3566 0001:000BACED 3590 0001:000BACF6 + 3563 0001:000BACF9 3592 0001:000BAD02 3598 0001:000BAD08 3599 0001:000BAD14 + 3600 0001:000BAD1F 3603 0001:000BAD2A 3605 0001:000BAD3F 3606 0001:000BAD4D + 3608 0001:000BAD57 3609 0001:000BAD61 3610 0001:000BAD73 3614 0001:000BAD82 + 3616 0001:000BAD90 3617 0001:000BAD9A 3619 0001:000BADA4 3620 0001:000BADB0 + 3621 0001:000BADBC 3622 0001:000BADD3 3623 0001:000BADD7 3626 0001:000BAE04 + 3627 0001:000BAE19 3628 0001:000BAE23 3631 0001:000BAE30 3634 0001:000BAE3F + 3635 0001:000BAE49 3637 0001:000BAE5A 3638 0001:000BAE64 3643 0001:000BAE70 + 3644 0001:000BAE86 3645 0001:000BAE90 3646 0001:000BAE9E 3647 0001:000BAEA8 + 3648 0001:000BAEBE 3649 0001:000BAEC9 3653 0001:000BAED3 3655 0001:000BAEDC + 3656 0001:000BAEE6 3657 0001:000BAEF4 3659 0001:000BAEFF 3661 0001:000BAF06 + 3663 0001:000BAF18 3664 0001:000BAF28 3666 0001:000BAF38 3667 0001:000BAF50 + 3668 0001:000BAF68 3669 0001:000BAF72 3670 0001:000BAF82 3671 0001:000BAF92 + 3672 0001:000BAF9B 3673 0001:000BAFA5 3676 0001:000BAFBC 3681 0001:000BAFCC + 3682 0001:000BAFD5 3683 0001:000BAFDD 3684 0001:000BAFE7 3685 0001:000BAFF3 + 3686 0001:000BB013 3687 0001:000BB02A 3688 0001:000BB037 3693 0001:000BB051 + 3694 0001:000BB058 3695 0001:000BB05D 3697 0001:000BB07A 3706 0001:000BB0C4 + 3708 0001:000BB0DB 3709 0001:000BB0F5 3712 0001:000BB112 3715 0001:000BB12C + 3721 0001:000BB13C 3722 0001:000BB163 3724 0001:000BB180 3726 0001:000BB19C + 3729 0001:000BB1C3 3730 0001:000BB1CC 3731 0001:000BB1D4 3732 0001:000BB1DC + 3733 0001:000BB1E5 3734 0001:000BB1EE 3735 0001:000BB1F7 3736 0001:000BB200 + 3737 0001:000BB209 3739 0001:000BB212 3741 0001:000BB23A 3744 0001:000BB246 + 3745 0001:000BB258 3746 0001:000BB262 3747 0001:000BB270 3749 0001:000BB27A + 3750 0001:000BB2A2 3753 0001:000BB2A8 3754 0001:000BB2AF 3755 0001:000BB2BB + 3757 0001:000BB2E1 3758 0001:000BB2E9 3759 0001:000BB2F4 3762 0001:000BB2F8 + 3763 0001:000BB304 3765 0001:000BB310 3766 0001:000BB318 3767 0001:000BB342 + 3769 0001:000BB376 3770 0001:000BB381 3773 0001:000BB388 3774 0001:000BB3A8 + 3776 0001:000BB3BA 3779 0001:000BB3EE 3780 0001:000BB40F 3781 0001:000BB41B + 3783 0001:000BB424 3784 0001:000BB438 3787 0001:000BB461 3790 0001:000BB468 + 3791 0001:000BB477 3792 0001:000BB492 3793 0001:000BB4A1 3794 0001:000BB4C0 + 3799 0001:000BB4C4 3800 0001:000BB4D0 3801 0001:000BB4DC 3802 0001:000BB4E7 + 3803 0001:000BB4F8 3809 0001:000BB4FC 3810 0001:000BB508 3811 0001:000BB50C + 3812 0001:000BB512 3813 0001:000BB51E 3814 0001:000BB526 3815 0001:000BB534 + 3816 0001:000BB53F 3817 0001:000BB54A 3818 0001:000BB555 3819 0001:000BB565 + 3820 0001:000BB577 3822 0001:000BB589 3823 0001:000BB594 3824 0001:000BB5A4 + 3826 0001:000BB5B8 3827 0001:000BB5C2 3829 0001:000BB5CF 3830 0001:000BB5E4 + 3831 0001:000BB5F2 3833 0001:000BB5FF 3835 0001:000BB60A 3836 0001:000BB61A + 3837 0001:000BB624 3839 0001:000BB63E 3840 0001:000BB649 3842 0001:000BB668 + 3843 0001:000BB680 3848 0001:000BB694 3849 0001:000BB6A5 3850 0001:000BB6BA + 3845 0001:000BB6D4 3854 0001:000BB6F7 3856 0001:000BB6FF 3855 0001:000BB708 + 3857 0001:000BB719 3858 0001:000BB725 3852 0001:000BB744 3860 0001:000BB752 + 3861 0001:000BB75B 3863 0001:000BB761 3864 0001:000BB773 3865 0001:000BB781 + 3861 0001:000BB78A 3867 0001:000BB790 3868 0001:000BB7A3 3869 0001:000BB7BD + 3872 0001:000BB7E1 3874 0001:000BB800 3875 0001:000BB80A 3877 0001:000BB811 + 3880 0001:000BB81C 3881 0001:000BB823 3886 0001:000BB828 3887 0001:000BB832 + 3888 0001:000BB84A 3889 0001:000BB858 3890 0001:000BB85E 3891 0001:000BB86C + 3892 0001:000BB87F 3893 0001:000BB890 3896 0001:000BB898 3897 0001:000BB8A4 + 3898 0001:000BB8B0 3899 0001:000BB8BC 3900 0001:000BB8D6 3902 0001:000BB8DC + 3903 0001:000BB8F1 3904 0001:000BB90B 3905 0001:000BB915 3907 0001:000BB91D + 3910 0001:000BB924 3911 0001:000BB930 3912 0001:000BB948 3913 0001:000BB961 + 3914 0001:000BB979 3915 0001:000BB989 3920 0001:000BB990 3921 0001:000BB99C + 3927 0001:000BB9FE 3928 0001:000BBA03 3929 0001:000BBA33 3930 0001:000BBA3F + 3931 0001:000BBA50 3933 0001:000BBA6E 3936 0001:000BBA74 3937 0001:000BBA83 + 3940 0001:000BBA8B 3939 0001:000BBA94 3941 0001:000BBAAF 3942 0001:000BBABD + 3943 0001:000BBAD3 3946 0001:000BBAD8 3947 0001:000BBAE0 3948 0001:000BBAF6 + 3949 0001:000BBB15 3952 0001:000BBB1C 3953 0001:000BBB24 3954 0001:000BBB3A + 3955 0001:000BBB59 3958 0001:000BBB60 3959 0001:000BBB68 3960 0001:000BBB87 + 3963 0001:000BBB8C 3964 0001:000BBB95 3965 0001:000BBBA6 3966 0001:000BBBBC + 3969 0001:000BBBC0 3970 0001:000BBBCD 3971 0001:000BBBDB 3972 0001:000BBBE9 + 3973 0001:000BBBFA 3974 0001:000BBC08 3976 0001:000BBC3D 3979 0001:000BBC62 + 3981 0001:000BBC78 3987 0001:000BBC80 3988 0001:000BBC8D 3989 0001:000BBC91 + 3990 0001:000BBC9C 3991 0001:000BBCA2 3992 0001:000BBCB4 3994 0001:000BBCCC + 3995 0001:000BBCD4 3996 0001:000BBCE2 3997 0001:000BBCEA 3998 0001:000BBCFF + 3992 0001:000BBD02 3999 0001:000BBD07 4000 0001:000BBD0F 4001 0001:000BBD20 + 4007 0001:000BBD28 4008 0001:000BBD34 4010 0001:000BBD46 4011 0001:000BBD5A + 4012 0001:000BBD65 4016 0001:000BBD7D 4017 0001:000BBD92 4018 0001:000BBDA8 + 4020 0001:000BBDBA 4023 0001:000BBDC4 4024 0001:000BBDD0 4025 0001:000BBDDC + 4026 0001:000BBDF1 4027 0001:000BBE22 4028 0001:000BBE2D 4031 0001:000BBE34 + 4032 0001:000BBE40 4034 0001:000BBE5F 4035 0001:000BBE68 4037 0001:000BBE73 + 4040 0001:000BBE78 4041 0001:000BBE84 4042 0001:000BBE92 4049 0001:000BBE98 + 4050 0001:000BBE9C 4054 0001:000BBED5 4055 0001:000BBEEB 4059 0001:000BBEFA + 4060 0001:000BBF0A 4061 0001:000BBF1A 4062 0001:000BBF2A 4063 0001:000BBF3A + 4064 0001:000BBF4A 4065 0001:000BBF5A 4070 0001:000BBF6C 4071 0001:000BBF7B + 4072 0001:000BBF8B 4073 0001:000BBF9A 4076 0001:000BBFAA 4078 0001:000BBFB0 + 4079 0001:000BBFBC 4080 0001:000BBFC7 4081 0001:000BBFD8 4082 0001:000BBFE8 + 4085 0001:000BBFEC 4086 0001:000BBFF8 4091 0001:000BC02C 4092 0001:000BC046 + 4094 0001:000BC067 4097 0001:000BC08D 4098 0001:000BC098 4101 0001:000BC09C + 4102 0001:000BC0A8 4103 0001:000BC0C9 4105 0001:000BC0E1 4106 0001:000BC0F1 + 4108 0001:000BC101 4109 0001:000BC10C 4112 0001:000BC110 4114 0001:000BC11C + 4115 0001:000BC14A 4116 0001:000BC155 4119 0001:000BC15C 4120 0001:000BC168 + 4121 0001:000BC188 4124 0001:000BC18C 4125 0001:000BC198 4127 0001:000BC1A4 + 4128 0001:000BC1B5 4131 0001:000BC1BE 4134 0001:000BC1CB 4135 0001:000BC1D6 + 4142 0001:000BC1DC 4143 0001:000BC1FB 4146 0001:000BC20B 4147 0001:000BC210 + 4149 0001:000BC225 4150 0001:000BC229 4151 0001:000BC233 4153 0001:000BC23C + 4154 0001:000BC240 4156 0001:000BC253 4158 0001:000BC26A 4159 0001:000BC270 + 4160 0001:000BC28D 4162 0001:000BC2B6 4165 0001:000BC2BC 4166 0001:000BC2C8 + 4167 0001:000BC2DD 4168 0001:000BC2F0 4171 0001:000BC2F4 4172 0001:000BC301 + 4173 0001:000BC30A 4174 0001:000BC316 4175 0001:000BC31C 4176 0001:000BC328 + 4177 0001:000BC342 4180 0001:000BC348 4181 0001:000BC354 4182 0001:000BC35C + 4185 0001:000BC360 4186 0001:000BC36C 4187 0001:000BC393 4192 0001:000BC398 + 4193 0001:000BC3A4 4194 0001:000BC3AC 4196 0001:000BC3DC 4198 0001:000BC3E5 + 4199 0001:000BC3EF 4200 0001:000BC40A 4202 0001:000BC414 4205 0001:000BC418 + 4208 0001:000BC425 4209 0001:000BC444 4210 0001:000BC453 4212 0001:000BC483 + 4213 0001:000BC48E 4215 0001:000BC4C4 4217 0001:000BC4D0 4223 0001:000BC4D8 + 4225 0001:000BC4E4 4228 0001:000BC4F7 4229 0001:000BC515 4230 0001:000BC533 + 4231 0001:000BC53D 4234 0001:000BC54A 4236 0001:000BC556 4237 0001:000BC576 + 4240 0001:000BC582 4242 0001:000BC58D 4247 0001:000BC594 4248 0001:000BC5A1 + 4249 0001:000BC5AC 4251 0001:000BC5B8 4252 0001:000BC5CA 4253 0001:000BC5D5 + 4254 0001:000BC5E9 4256 0001:000BC5FC 4259 0001:000BC604 4261 0001:000BC610 + 4262 0001:000BC61A 4263 0001:000BC628 4264 0001:000BC648 4267 0001:000BC64C + 4268 0001:000BC658 4269 0001:000BC662 4270 0001:000BC66D 4275 0001:000BC674 + 4276 0001:000BC67D 4277 0001:000BC682 4278 0001:000BC688 4279 0001:000BC6A1 + 4280 0001:000BC6A7 4281 0001:000BC6C3 4284 0001:000BC6C8 4285 0001:000BC6D1 + 4286 0001:000BC6D5 4287 0001:000BC6ED 4288 0001:000BC6F3 4289 0001:000BC70B + 4290 0001:000BC712 4293 0001:000BC718 4294 0001:000BC727 4296 0001:000BC733 + 4297 0001:000BC739 4300 0001:000BC749 4301 0001:000BC74F 4303 0001:000BC760 + 4311 0001:000BC768 4312 0001:000BC787 4316 0001:000BC794 4318 0001:000BC79D + 4320 0001:000BC7A6 4322 0001:000BC7B6 4321 0001:000BC7BF 4323 0001:000BC7D3 + 4324 0001:000BC7DD 4325 0001:000BC7F1 4329 0001:000BC818 4330 0001:000BC81C + 4331 0001:000BC82F 4332 0001:000BC835 4333 0001:000BC845 4336 0001:000BC86A + 4338 0001:000BC87C 4339 0001:000BC88E 4342 0001:000BC8A2 4343 0001:000BC8A8 + 4344 0001:000BC8B7 4345 0001:000BC8BD 4348 0001:000BC8E7 4351 0001:000BC8EC + 4352 0001:000BC8F9 4353 0001:000BC916 4355 0001:000BC928 4357 0001:000BC931 + 4358 0001:000BC945 4360 0001:000BC95A 4362 0001:000BC963 4363 0001:000BC977 + 4365 0001:000BC98C 4368 0001:000BC9AE 4369 0001:000BC9B9 4375 0001:000BC9C0 + 4376 0001:000BC9CF 4377 0001:000BC9ED 4378 0001:000BC9F8 4380 0001:000BC9FC + 4381 0001:000BCA08 4382 0001:000BCA34 4384 0001:000BCA4D 4385 0001:000BCA70 + 4386 0001:000BCA93 4387 0001:000BCAA9 4389 0001:000BCABF 4390 0001:000BCACA + 4393 0001:000BCAD0 4394 0001:000BCADD 4395 0001:000BCAE6 4396 0001:000BCAF4 + 4397 0001:000BCAFE 4400 0001:000BCB04 4401 0001:000BCB11 4402 0001:000BCB1A + 4403 0001:000BCB28 4404 0001:000BCB32 4407 0001:000BCB38 4408 0001:000BCB44 + 4410 0001:000BCB54 4412 0001:000BCB6F 4414 0001:000BCB7B 4415 0001:000BCB9B + 4416 0001:000BCBA5 4420 0001:000BCBA7 4422 0001:000BCBB3 4424 0001:000BCBE9 + 4426 0001:000BCBF3 4429 0001:000BCBF5 4430 0001:000BCC00 4440 0001:000BCC04 + 4441 0001:000BCC26 4442 0001:000BCC3B 4443 0001:000BCC5C 4444 0001:000BCC66 + 4445 0001:000BCC70 4446 0001:000BCC7E 4447 0001:000BCC8B 4449 0001:000BCC9B + 4450 0001:000BCCA9 4452 0001:000BCCC4 4454 0001:000BCCD6 4457 0001:000BCD02 + 4459 0001:000BCD0E 4460 0001:000BCD2B 4463 0001:000BCD4A 4464 0001:000BCD64 + 4466 0001:000BCD7E 4467 0001:000BCD89 4468 0001:000BCD94 4469 0001:000BCDB3 + 4471 0001:000BCDCD 4473 0001:000BCDE0 4474 0001:000BCDEB 4475 0001:000BCE0C + 4476 0001:000BCE15 4478 0001:000BCE1B 4479 0001:000BCE37 4482 0001:000BCE55 + 4483 0001:000BCE6F 4485 0001:000BCE89 4486 0001:000BCE94 4487 0001:000BCE9F + 4488 0001:000BCEBE 4490 0001:000BCED8 4492 0001:000BCEE8 4494 0001:000BCEF4 + 4495 0001:000BCF11 4498 0001:000BCF30 4499 0001:000BCF4A 4501 0001:000BCF64 + 4502 0001:000BCF6F 4503 0001:000BCF7A 4505 0001:000BCF99 4506 0001:000BCFA3 + 4509 0001:000BCFB3 4511 0001:000BCFBF 4512 0001:000BCFE3 4516 0001:000BCFF5 + 4517 0001:000BD015 4519 0001:000BD03E 4521 0001:000BD046 4525 0001:000BD068 + 4528 0001:000BD08D 4529 0001:000BD09B 4531 0001:000BD0B6 4533 0001:000BD0C8 + 4534 0001:000BD0D5 4535 0001:000BD0DF 4536 0001:000BD0EB 4537 0001:000BD0F8 + 4538 0001:000BD104 4542 0001:000BD123 4543 0001:000BD128 4544 0001:000BD14D + 4545 0001:000BD15D 4548 0001:000BD163 4549 0001:000BD180 4551 0001:000BD18B + 4555 0001:000BD1A8 4557 0001:000BD1D7 4560 0001:000BD1E0 4561 0001:000BD1EC + 4562 0001:000BD208 4565 0001:000BD20C 4566 0001:000BD218 4567 0001:000BD220 + 4570 0001:000BD224 4571 0001:000BD230 4572 0001:000BD23B 4574 0001:000BD263 + 4575 0001:000BD280 4578 0001:000BD284 4579 0001:000BD290 4580 0001:000BD29B + 4585 0001:000BD2A0 4586 0001:000BD2AC 4587 0001:000BD2B5 4588 0001:000BD2BE + 4591 0001:000BD2D1 4592 0001:000BD2E0 4593 0001:000BD2EE 4595 0001:000BD309 + 4598 0001:000BD319 4601 0001:000BD320 4602 0001:000BD32D 4603 0001:000BD340 + 4605 0001:000BD34C 4606 0001:000BD354 4611 0001:000BD35C 4612 0001:000BD366 + 4613 0001:000BD372 4615 0001:000BD384 4617 0001:000BD397 4618 0001:000BD3A3 + 4619 0001:000BD3AF 4620 0001:000BD3B5 4622 0001:000BD3BB 4623 0001:000BD3BF + 4624 0001:000BD3CE 4625 0001:000BD3D4 4626 0001:000BD3ED 4627 0001:000BD3FD + 4628 0001:000BD40F 4630 0001:000BD417 4635 0001:000BD41C 4636 0001:000BD426 + 4638 0001:000BD432 4639 0001:000BD436 4640 0001:000BD44E 4639 0001:000BD468 + 4642 0001:000BD46D 4643 0001:000BD471 4644 0001:000BD496 4649 0001:000BD49C + 4650 0001:000BD4A8 4651 0001:000BD4B6 4652 0001:000BD4BA 4654 0001:000BD4C9 + 4655 0001:000BD4CD 4657 0001:000BD4DC 4658 0001:000BD4E9 4659 0001:000BD4F6 + 4662 0001:000BD50D 4663 0001:000BD518 4665 0001:000BD52A 4766 0001:000BD534 + 4767 0001:000BD53B 4768 0001:000BD545 4771 0001:000BD548 4772 0001:000BD54F + 4773 0001:000BD559 4774 0001:000BD561 4777 0001:000BD564 4778 0001:000BD580 + 4780 0001:000BD58C 4781 0001:000BD5A1 4782 0001:000BD5C2 4784 0001:000BD5E7 + 4787 0001:000BD5EC 4788 0001:000BD5F3 4789 0001:000BD60A 4798 0001:000BD610 + 4799 0001:000BD62D 4800 0001:000BD632 4802 0001:000BD65F 4803 0001:000BD680 + 4804 0001:000BD69A 4805 0001:000BD69F 4806 0001:000BD6A9 4807 0001:000BD6B7 + 4808 0001:000BD6C1 4809 0001:000BD6C9 4810 0001:000BD6D1 4811 0001:000BD6E8 + 4812 0001:000BD6F3 4813 0001:000BD700 4814 0001:000BD70C 4815 0001:000BD717 + 4816 0001:000BD721 4817 0001:000BD72F 4818 0001:000BD737 4819 0001:000BD745 + 4820 0001:000BD75C 4822 0001:000BD767 4823 0001:000BD771 4824 0001:000BD78E + 4825 0001:000BD7A2 4826 0001:000BD7AE 4827 0001:000BD7BA 4828 0001:000BD7D1 + 4830 0001:000BD7F6 4833 0001:000BD813 4834 0001:000BD820 4835 0001:000BD830 + 4836 0001:000BD83C 4837 0001:000BD844 4839 0001:000BD852 4840 0001:000BD868 + 4841 0001:000BD87F 4842 0001:000BD889 4843 0001:000BD898 4844 0001:000BD8A0 + 4847 0001:000BD8C2 4849 0001:000BD8F4 4859 0001:000BD8FC 4860 0001:000BD905 + 4861 0001:000BD911 4863 0001:000BD929 4864 0001:000BD937 4865 0001:000BD949 + 4866 0001:000BD951 4867 0001:000BD963 4868 0001:000BD970 4861 0001:000BD973 + 4869 0001:000BD978 4871 0001:000BD97C 4872 0001:000BD985 4874 0001:000BD99A + 4876 0001:000BD9A2 4877 0001:000BD9AE 4878 0001:000BD9CF 4879 0001:000BD9E6 + 4877 0001:000BD9FA 4881 0001:000BD9FF 4882 0001:000BDA09 4902 0001:000BDA10 + 4903 0001:000BDA17 4904 0001:000BDA20 4906 0001:000BDA30 4907 0001:000BDA38 + 4910 0001:000BDA3C 4911 0001:000BDA49 4912 0001:000BDA54 4913 0001:000BDA5D + 4914 0001:000BDA69 4919 0001:000BDA70 4920 0001:000BDA7A 4922 0001:000BDAA5 + 4928 0001:000BDAAC 4929 0001:000BDAB5 4930 0001:000BDAC1 4932 0001:000BDAD9 + 4933 0001:000BDAE7 4936 0001:000BDB24 4937 0001:000BDB28 4939 0001:000BDB2A + 4930 0001:000BDB2D 4940 0001:000BDB32 4941 0001:000BDB39 4943 0001:000BDB40 + 4944 0001:000BDB4C 4946 0001:000BDB61 4948 0001:000BDB91 4949 0001:000BDB9B + 4954 0001:000BDBA0 4955 0001:000BDBAA 4957 0001:000BDBD5 4963 0001:000BDBDC + 4964 0001:000BDBE5 4965 0001:000BDBF1 4967 0001:000BDC09 4968 0001:000BDC17 + 4971 0001:000BDC54 4972 0001:000BDC58 4974 0001:000BDC5A 4965 0001:000BDC5D + 4975 0001:000BDC62 4976 0001:000BDC69 4978 0001:000BDC70 4979 0001:000BDC7C + 4981 0001:000BDC91 4983 0001:000BDCC1 4984 0001:000BDCCB 4991 0001:000BDCD0 + 4992 0001:000BDCD6 4993 0001:000BDCE5 4994 0001:000BDD04 4996 0001:000BDD27 + 4997 0001:000BDD2B 4998 0001:000BDD2D 4993 0001:000BDD30 4999 0001:000BDD35 + 5000 0001:000BDD3C 5002 0001:000BDD40 5003 0001:000BDD4E 5004 0001:000BDD52 + 5005 0001:000BDD74 5007 0001:000BDDC5 5010 0001:000BDDCC 5012 0001:000BDDD0 + 5013 0001:000BDDF6 5015 0001:000BDE0C 5016 0001:000BDE14 5019 0001:000BDE1C + 5022 0001:000BDE28 5023 0001:000BDE34 5025 0001:000BDE5C 5027 0001:000BDE67 + 5030 0001:000BDE6C 5031 0001:000BDE75 5032 0001:000BDE82 5033 0001:000BDE89 + 5041 0001:000BDE90 5042 0001:000BDE99 5045 0001:000BDEC3 5046 0001:000BDED6 + 5048 0001:000BDEEE 5049 0001:000BDEF4 5050 0001:000BDF0D 5055 0001:000BDF55 + 5056 0001:000BDF6E 5059 0001:000BDF85 5062 0001:000BDF8C 5063 0001:000BDF98 + 5065 0001:000BDFA6 5066 0001:000BDFB2 5068 0001:000BDFBA 5071 0001:000BDFC0 + 5072 0001:000BDFCC 5074 0001:000BDFDA 5075 0001:000BDFE6 5077 0001:000BDFEE + 5080 0001:000BDFF4 5081 0001:000BE000 5083 0001:000BE00E 5084 0001:000BE01A + 5086 0001:000BE022 5089 0001:000BE028 5090 0001:000BE034 5092 0001:000BE042 + 5093 0001:000BE04E 5095 0001:000BE056 5098 0001:000BE05C 5099 0001:000BE068 + 5100 0001:000BE07A 5101 0001:000BE092 5102 0001:000BE09C 5161 0001:000BE0A0 + 5162 0001:000BE0BC 5163 0001:000BE0CE 5164 0001:000BE0D8 5165 0001:000BE0E2 + 5166 0001:000BE0EC 5167 0001:000BE111 5173 0001:000BE118 5174 0001:000BE13B + 5179 0001:000BE146 5180 0001:000BE15B 5182 0001:000BE177 5183 0001:000BE18D + 5185 0001:000BE19F 5186 0001:000BE1AB 5187 0001:000BE1AD 5182 0001:000BE1B0 + 5189 0001:000BE1B5 5191 0001:000BE1C0 5192 0001:000BE1CE 5193 0001:000BE1D8 + 5194 0001:000BE1E1 5195 0001:000BE208 5198 0001:000BE210 5199 0001:000BE21C + 5200 0001:000BE227 5201 0001:000BE23B 5206 0001:000BE240 5208 0001:000BE24A + 5209 0001:000BE262 5208 0001:000BE28C 5210 0001:000BE291 5211 0001:000BE299 + 5215 0001:000BE2A0 5216 0001:000BE2B9 5217 0001:000BE2C9 5220 0001:000BE2D4 + 5221 0001:000BE2E0 5222 0001:000BE2EB 5223 0001:000BE2FD 5224 0001:000BE307 + 5227 0001:000BE30C 5228 0001:000BE318 5234 0001:000BE35C 5235 0001:000BE376 + 5237 0001:000BE397 5240 0001:000BE3B9 5241 0001:000BE3C4 5244 0001:000BE3C8 + 5245 0001:000BE3D5 5246 0001:000BE3E0 5248 0001:000BE3E9 5249 0001:000BE3FF + 5250 0001:000BE410 5252 0001:000BE433 5258 0001:000BE438 5259 0001:000BE457 + 5260 0001:000BE462 5261 0001:000BE47A 5264 0001:000BE490 5265 0001:000BE4A8 + 5267 0001:000BE4C7 5268 0001:000BE4DD 5270 0001:000BE4EF 5271 0001:000BE4FB + 5272 0001:000BE4FD 5267 0001:000BE500 5273 0001:000BE505 5276 0001:000BE52D + 5279 0001:000BE534 5280 0001:000BE540 5281 0001:000BE54B 5282 0001:000BE558 + 5287 0001:000BE55C 5288 0001:000BE568 5289 0001:000BE573 5290 0001:000BE57C + 5291 0001:000BE594 5290 0001:000BE5AD 5292 0001:000BE5B2 5297 0001:000BE5B8 + 5298 0001:000BE5C1 5299 0001:000BE5D5 5302 0001:000BE5DC 5303 0001:000BE5E5 + 5304 0001:000BE5F0 5305 0001:000BE5FC 5308 0001:000BE600 5309 0001:000BE609 + 5310 0001:000BE61D 5313 0001:000BE624 5314 0001:000BE62D 5315 0001:000BE638 + 5316 0001:000BE644 5321 0001:000BE648 5322 0001:000BE656 5323 0001:000BE65D + 5324 0001:000BE671 5325 0001:000BE67D 5330 0001:000BE684 5331 0001:000BE692 + 5332 0001:000BE699 5333 0001:000BE6AD 5334 0001:000BE6B9 5372 0001:000BE6C0 + 5373 0001:000BE6DB 5374 0001:000BE6E8 5375 0001:000BE6F9 5376 0001:000BE70A + 5377 0001:000BE712 5378 0001:000BE71F 5379 0001:000BE731 5380 0001:000BE743 + 5381 0001:000BE755 5382 0001:000BE767 5383 0001:000BE779 5384 0001:000BE783 + 5385 0001:000BE794 5386 0001:000BE79F 5387 0001:000BE7B9 5388 0001:000BE7CE + 5389 0001:000BE7E3 5390 0001:000BE7F8 5391 0001:000BE800 5392 0001:000BE816 + 5393 0001:000BE82C 5394 0001:000BE85D 5399 0001:000BE864 5400 0001:000BE875 + 5401 0001:000BE883 5402 0001:000BE891 5403 0001:000BE89F 5404 0001:000BE8AA + 5405 0001:000BE8B5 5406 0001:000BE8C0 5407 0001:000BE8CB 5408 0001:000BE8D6 + 5409 0001:000BE8E1 5410 0001:000BE8EA 5411 0001:000BE903 5410 0001:000BE919 + 5412 0001:000BE91E 5413 0001:000BE929 5414 0001:000BE931 5415 0001:000BE93D + 5416 0001:000BE949 5417 0001:000BE965 5420 0001:000BE96C 5421 0001:000BE975 + 5422 0001:000BE986 5425 0001:000BE98C 5426 0001:000BE995 5427 0001:000BE9A6 + 5430 0001:000BE9AC 5431 0001:000BE9B5 5432 0001:000BE9C6 5435 0001:000BE9CC + 5436 0001:000BE9D5 5437 0001:000BE9E6 5440 0001:000BE9EC 5441 0001:000BE9F5 + 5442 0001:000BEA06 5445 0001:000BEA0C 5446 0001:000BEA15 5447 0001:000BEA26 + 5450 0001:000BEA2C 5451 0001:000BEA38 5452 0001:000BEA4C 5455 0001:000BEA50 + 5456 0001:000BEA59 5457 0001:000BEA65 5459 0001:000BEA75 5460 0001:000BEA84 + 5463 0001:000BEA88 5464 0001:000BEA94 5465 0001:000BEAA8 5468 0001:000BEAAC + 5469 0001:000BEAB5 5470 0001:000BEAC4 5473 0001:000BEAC8 5474 0001:000BEAD4 + 5475 0001:000BEAE8 5478 0001:000BEAEC 5479 0001:000BEAF5 5480 0001:000BEB04 + 5483 0001:000BEB08 5484 0001:000BEB10 5486 0001:000BEB1E 5487 0001:000BEB2A + 5489 0001:000BEB49 5491 0001:000BEB57 5492 0001:000BEB63 5494 0001:000BEB82 + 5497 0001:000BEB88 5498 0001:000BEB94 5499 0001:000BEBA2 5501 0001:000BEBB4 + 5502 0001:000BEBC2 5504 0001:000BEBCC 5507 0001:000BEBD0 5508 0001:000BEBDC + 5509 0001:000BEBEA 5510 0001:000BEBF8 5511 0001:000BEC02 5512 0001:000BEC1C + 5513 0001:000BEC2C 5516 0001:000BEC30 5517 0001:000BEC3C 5518 0001:000BEC4A + 5521 0001:000BEC50 5522 0001:000BEC5C 5523 0001:000BEC6A 5572 0001:000BEC70 + 5573 0001:000BEC79 5574 0001:000BEC8B 5576 0001:000BEC92 5583 0001:000BECA4 + 5584 0001:000BECAE 5585 0001:000BECB3 5587 0001:000BECD4 5574 0001:000BECD7 + 5588 0001:000BECDD 5594 0001:000BECE4 5595 0001:000BECED 5596 0001:000BECF6 + 5598 0001:000BECFC 5600 0001:000BED20 5601 0001:000BED2C 5602 0001:000BED34 + 5603 0001:000BED41 5596 0001:000BED47 5605 0001:000BED4D 5606 0001:000BED5C + 5607 0001:000BED67 5608 0001:000BED73 5613 0001:000BED78 5614 0001:000BED84 + 5615 0001:000BED8D 5618 0001:000BED94 5619 0001:000BED9A 5616 0001:000BEDA2 + 5621 0001:000BEDB3 5623 0001:000BEDB9 5624 0001:000BEDC5 5625 0001:000BEDE2 + 5627 0001:000BEDEF 5632 0001:000BEDF4 5633 0001:000BEE00 5634 0001:000BEE05 + 5635 0001:000BEE1D 5637 0001:000BEE30 5638 0001:000BEE3E 5639 0001:000BEE40 + 5634 0001:000BEE43 5640 0001:000BEE4B 5645 0001:000BEE50 5646 0001:000BEE5F + 5647 0001:000BEE6C 5648 0001:000BEE77 5649 0001:000BEE80 5650 0001:000BEE89 + 5651 0001:000BEE92 5663 0001:000BEE98 5664 0001:000BEEBB 5666 0001:000BEEC8 + 5668 0001:000BEEDA 5669 0001:000BEEE5 5671 0001:000BEEF6 5673 0001:000BEF0D + 5675 0001:000BEF24 5678 0001:000BEF71 5679 0001:000BEF7F 5680 0001:000BEF86 + 5683 0001:000BEFA7 5684 0001:000BEFD8 5685 0001:000BEFEA 5688 0001:000BF00D + 5691 0001:000BF01E 5671 0001:000BF021 5692 0001:000BF02A 5693 0001:000BF034 + 5695 0001:000BF041 5696 0001:000BF06D 5699 0001:000BF0B8 5700 0001:000BF0C4 + 5701 0001:000BF0CC 5702 0001:000BF0DA 5705 0001:000BF0E0 5706 0001:000BF0EC + 5707 0001:000BF0FA 5709 0001:000BF11F 5710 0001:000BF12B 5712 0001:000BF137 + 5715 0001:000BF13C 5716 0001:000BF148 5717 0001:000BF15C 5720 0001:000BF160 + 5721 0001:000BF169 5722 0001:000BF178 5727 0001:000BF17C 5728 0001:000BF188 + 5729 0001:000BF18D 5731 0001:000BF193 5732 0001:000BF19E 5733 0001:000BF1B7 + 5735 0001:000BF1D4 5742 0001:000BF1D8 5743 0001:000BF1E6 5745 0001:000BF1F7 + 5746 0001:000BF202 5750 0001:000BF209 5751 0001:000BF212 5752 0001:000BF220 + 5755 0001:000BF23C 5756 0001:000BF258 5757 0001:000BF275 5760 0001:000BF277 + 5762 0001:000BF289 5763 0001:000BF28F 5766 0001:000BF294 5767 0001:000BF2A3 + 5768 0001:000BF2A9 5769 0001:000BF2AF 5771 0001:000BF2C3 5772 0001:000BF2CE + 5774 0001:000BF2D4 5775 0001:000BF2DF 5777 0001:000BF2F3 5799 0001:000BF2F8 + 5800 0001:000BF304 5801 0001:000BF308 5802 0001:000BF31F 5803 0001:000BF32D + 5804 0001:000BF342 5805 0001:000BF355 5807 0001:000BF370 5808 0001:000BF387 + 5809 0001:000BF391 5811 0001:000BF3A7 5812 0001:000BF3C3 5815 0001:000BF3E1 + 5816 0001:000BF3F4 5818 0001:000BF40B 5819 0001:000BF41E 5821 0001:000BF43E + 5823 0001:000BF45C 5826 0001:000BF460 5827 0001:000BF467 5828 0001:000BF471 + 5831 0001:000BF474 5832 0001:000BF47B 5833 0001:000BF485 5834 0001:000BF4A6 + 5837 0001:000BF4AC 5838 0001:000BF4B3 5839 0001:000BF4BD 5846 0001:000BF4C0 + 5847 0001:000BF4CF 5848 0001:000BF4D3 5849 0001:000BF4E8 5850 0001:000BF4FA + 5851 0001:000BF51A 5852 0001:000BF52C 5854 0001:000BF54D 5859 0001:000BF554 + 5862 0001:000BF561 5863 0001:000BF575 5864 0001:000BF584 5865 0001:000BF58D + 5866 0001:000BF5A2 5867 0001:000BF5B0 5868 0001:000BF5B9 5870 0001:000BF5CB + 5871 0001:000BF5D4 5872 0001:000BF5DD 5876 0001:000BF5ED 5877 0001:000BF5F8 + 5879 0001:000BF604 5880 0001:000BF619 5883 0001:000BF627 5884 0001:000BF633 + 5886 0001:000BF641 5889 0001:000BF64E 5890 0001:000BF65A 5894 0001:000BF666 + 5895 0001:000BF67F 5897 0001:000BF68B 5898 0001:000BF691 5901 0001:000BF697 + 5903 0001:000BF6B1 5904 0001:000BF6DE 5905 0001:000BF6F2 5906 0001:000BF706 + 5907 0001:000BF719 5910 0001:000BF72D 5911 0001:000BF73F 5914 0001:000BF751 + 5920 0001:000BF758 5921 0001:000BF761 5922 0001:000BF76C 5926 0001:000BF7B6 + 5927 0001:000BF7C7 5929 0001:000BF7E6 5930 0001:000BF7F7 5934 0001:000BF82D + 5935 0001:000BF838 5937 0001:000BF83F 5936 0001:000BF842 5938 0001:000BF874 + 5940 0001:000BF885 5927 0001:000BF888 5941 0001:000BF891 5942 0001:000BF8AA + 5941 0001:000BF8C8 5943 0001:000BF8CD 5948 0001:000BF8D4 5949 0001:000BF8DA + 5950 0001:000BF8DE 5951 0001:000BF8F2 5952 0001:000BF903 5953 0001:000BF933 + 5950 0001:000BF936 5954 0001:000BF93C 5955 0001:000BF943 5957 0001:000BF948 + 5958 0001:000BF957 5960 0001:000BF962 5961 0001:000BF971 5962 0001:000BF97F + 5963 0001:000BF988 5964 0001:000BF991 5965 0001:000BF99A 5966 0001:000BF9A3 + 5968 0001:000BF9B9 5971 0001:000BF9C9 5976 0001:000BF9D0 5977 0001:000BF9DC + 5978 0001:000BF9E9 5981 0001:000BF9F6 5982 0001:000BF9FE 5983 0001:000BFA0C + 5984 0001:000BFA1B 5986 0001:000BFA36 5987 0001:000BFA41 5990 0001:000BFA51 + 6015 0001:000BFA58 6016 0001:000BFA5F 6017 0001:000BFA6A 6022 0001:000BFA70 + 6023 0001:000BFA7C 6024 0001:000BFA82 6025 0001:000BFA8E 6028 0001:000BFA99 + 6029 0001:000BFAAA 6023 0001:000BFAAC 6031 0001:000BFAB2 6032 0001:000BFABA + 6035 0001:000BFAC0 6036 0001:000BFAC9 6037 0001:000BFAD1 6038 0001:000BFAEC + 6039 0001:000BFB03 6042 0001:000BFB08 6043 0001:000BFB0E 6044 0001:000BFB17 + 6045 0001:000BFB25 6047 0001:000BFB3E 6049 0001:000BFB53 6060 0001:000BFB5C + 6061 0001:000BFB62 6064 0001:000BFB6E 6066 0001:000BFB82 6067 0001:000BFB8B + 6068 0001:000BFB97 6062 0001:000BFBA1 6071 0001:000BFBB5 6078 0001:000BFBBC + 6079 0001:000BFBC0 6080 0001:000BFBDA 6081 0001:000BFBF9 6086 0001:000BFC00 + 6087 0001:000BFC04 6089 0001:000BFC12 6090 0001:000BFC1B 6091 0001:000BFC35 + 6092 0001:000BFC3E 6093 0001:000BFC50 6094 0001:000BFC59 6096 0001:000BFC77 + 6100 0001:000BFC7C 6101 0001:000BFC90 6102 0001:000BFC97 6104 0001:000BFCA0 + 6105 0001:000BFCAB 6106 0001:000BFCB8 6107 0001:000BFCC5 6108 0001:000BFCD0 + 6110 0001:000BFCD7 6115 0001:000BFCD8 6116 0001:000BFCDE 6117 0001:000BFCE5 + 6118 0001:000BFCF8 6119 0001:000BFD02 6120 0001:000BFD09 6125 0001:000BFD10 + 6126 0001:000BFD19 6127 0001:000BFD20 6128 0001:000BFD2A 6129 0001:000BFD39 + 6134 0001:000BFD40 6135 0001:000BFD4C 6136 0001:000BFD54 6137 0001:000BFD61 + 6138 0001:000BFD6E 6139 0001:000BFD7B 6147 0001:000BFD80 6148 0001:000BFD89 + 6149 0001:000BFD94 6150 0001:000BFDA0 6158 0001:000BFDA4 6159 0001:000BFDB0 + 6160 0001:000BFDBF 6168 0001:000BFDC4 6169 0001:000BFDCD 6170 0001:000BFDD8 + 6171 0001:000BFDE4 6179 0001:000BFDE8 6180 0001:000BFDF7 6182 0001:000BFE25 + 6217 0001:000BFE3C 6218 0001:000BFE5A 6219 0001:000BFE67 6220 0001:000BFE73 + 6221 0001:000BFE84 6222 0001:000BFE90 6223 0001:000BFEA1 6224 0001:000BFEA8 + 6225 0001:000BFEBD 6226 0001:000BFED2 6227 0001:000BFEDA 6228 0001:000BFEE5 + 6229 0001:000BFEEF 6230 0001:000BFEF9 6231 0001:000BFF00 6232 0001:000BFF0B + 6233 0001:000BFF15 6234 0001:000BFF1F 6235 0001:000BFF29 6236 0001:000BFF33 + 6238 0001:000BFF48 6240 0001:000BFF6A 6241 0001:000BFF80 6242 0001:000BFF99 + 6243 0001:000BFFAC 6244 0001:000BFFBC 6245 0001:000BFFD1 6246 0001:000BFFE1 + 6247 0001:000BFFED 6248 0001:000BFFFA 6249 0001:000C0012 6250 0001:000C0024 + 6251 0001:000C002B 6252 0001:000C0032 6253 0001:000C0039 6254 0001:000C0043 + 6255 0001:000C004E 6256 0001:000C0056 6257 0001:000C0079 6265 0001:000C008C + 6266 0001:000C009D 6267 0001:000C00A5 6268 0001:000C00B2 6269 0001:000C00BE + 6270 0001:000C00CA 6271 0001:000C00D7 6272 0001:000C00E3 6273 0001:000C00EF + 6274 0001:000C00FB 6275 0001:000C010A 6276 0001:000C0114 6277 0001:000C011C + 6278 0001:000C0126 6279 0001:000C0134 6280 0001:000C0145 6282 0001:000C015A + 6283 0001:000C0179 6285 0001:000C0185 6290 0001:000C0199 6292 0001:000C01AD + 6293 0001:000C01BB 6294 0001:000C01C9 6295 0001:000C01E5 6301 0001:000C01EC + 6302 0001:000C0208 6314 0001:000C0226 6316 0001:000C023A 6317 0001:000C0244 + 6319 0001:000C025D 6320 0001:000C0267 6321 0001:000C0276 6323 0001:000C0297 + 6329 0001:000C02F2 6330 0001:000C02FF 6331 0001:000C0309 6332 0001:000C031E + 6334 0001:000C0328 6335 0001:000C0344 6337 0001:000C035B 6338 0001:000C036C + 6339 0001:000C037C 6340 0001:000C038C 6342 0001:000C03C3 6345 0001:000C03C8 + 6346 0001:000C03D4 6347 0001:000C03E7 6348 0001:000C03FA 6349 0001:000C0411 + 6351 0001:000C041E 6352 0001:000C0428 6354 0001:000C0432 6355 0001:000C0449 + 6356 0001:000C045C 6357 0001:000C0466 6367 0001:000C046C 6368 0001:000C0470 + 6369 0001:000C0477 6370 0001:000C048D 6373 0001:000C04C2 6376 0001:000C04D7 + 6377 0001:000C04DF 6379 0001:000C04E7 6385 0001:000C04EC 6386 0001:000C04F8 + 6388 0001:000C0507 6390 0001:000C0517 6391 0001:000C0520 6392 0001:000C0526 + 6393 0001:000C0534 6395 0001:000C0543 6396 0001:000C0551 6397 0001:000C0560 + 6398 0001:000C0567 6399 0001:000C057C 6400 0001:000C05A4 6398 0001:000C05A7 + 6403 0001:000C05AD 6405 0001:000C05B6 6408 0001:000C05BC 6409 0001:000C05C4 + 6410 0001:000C05CD 6411 0001:000C05E6 6412 0001:000C05F8 6415 0001:000C05FC + 6416 0001:000C0604 6417 0001:000C060D 6418 0001:000C0626 6419 0001:000C0638 + 6422 0001:000C063C 6423 0001:000C0643 6424 0001:000C064D 6427 0001:000C0650 + 6428 0001:000C0657 6429 0001:000C0661 6434 0001:000C0664 6435 0001:000C066D + 6437 0001:000C0684 6438 0001:000C068D 6440 0001:000C0699 6441 0001:000C06AE + 6442 0001:000C06D4 6440 0001:000C06D7 6443 0001:000C06DD 6446 0001:000C06EB + 6454 0001:000C06F0 6455 0001:000C06F9 6456 0001:000C0719 6459 0001:000C0720 + 6460 0001:000C0729 6461 0001:000C0749 6470 0001:000C0750 6471 0001:000C075C + 6472 0001:000C0760 6475 0001:000C0775 6477 0001:000C077E 6478 0001:000C0788 + 6480 0001:000C078D 6481 0001:000C0796 6483 0001:000C07A0 6485 0001:000C07AD + 6488 0001:000C07BA 6491 0001:000C07C0 6492 0001:000C07E0 6493 0001:000C07ED + 6495 0001:000C083B 6508 0001:000C0840 6509 0001:000C0843 6511 0001:000C0878 + 6517 0001:000C087C 6520 0001:000C0882 6521 0001:000C0898 6522 0001:000C08B1 + 6524 0001:000C08C4 6526 0001:000C08C8 6527 0001:000C08D7 6528 0001:000C08E5 + 6529 0001:000C08ED 6530 0001:000C0909 6529 0001:000C0938 6531 0001:000C093D + 6533 0001:000C0948 6535 0001:000C0A9C 6536 0001:000C0AB7 6537 0001:000C0AC4 + 6539 0001:000C0AD1 6542 0001:000C0ADD 6544 0001:000C0AFA 6547 0001:000C0B22 + 6548 0001:000C0B2B 6551 0001:000C0B37 6554 0001:000C0B4A 6555 0001:000C0B5F + 6559 0001:000C0B6B 6560 0001:000C0B72 6561 0001:000C0B85 6563 0001:000C0B8E + 6564 0001:000C0B96 6568 0001:000C0BB0 6569 0001:000C0BB8 6573 0001:000C0BD2 + 6575 0001:000C0BDB 6576 0001:000C0BE3 6578 0001:000C0BEF 6579 0001:000C0BFD + 6581 0001:000C0C08 6584 0001:000C0C14 6585 0001:000C0C1B 6586 0001:000C0C27 + 6587 0001:000C0C3B 6590 0001:000C0C48 6591 0001:000C0C78 6593 0001:000C0C94 + 6595 0001:000C0CB6 6598 0001:000C0CC6 6600 0001:000C0CDE 6602 0001:000C0CEA + 6603 0001:000C0CF2 6604 0001:000C0D09 6605 0001:000C0D13 6610 0001:000C0D2F + 6611 0001:000C0D3A 6615 0001:000C0D4A 6617 0001:000C0D57 6619 0001:000C0D78 + 6621 0001:000C0D9A 6622 0001:000C0DA7 6623 0001:000C0DB0 6626 0001:000C0DEC + 6627 0001:000C0DF3 6628 0001:000C0DFB 6629 0001:000C0E09 6630 0001:000C0E23 + 6631 0001:000C0E2C 6632 0001:000C0E33 6635 0001:000C0E42 6637 0001:000C0E6A + 6639 0001:000C0E92 6641 0001:000C0EB7 6642 0001:000C0EC1 6645 0001:000C0ED9 + 6647 0001:000C0EF3 6648 0001:000C0EFC 6649 0001:000C0F14 6651 0001:000C0F2C + 6652 0001:000C0F35 6654 0001:000C0F46 6657 0001:000C0F57 6658 0001:000C0F69 + 6659 0001:000C0F74 6663 0001:000C0F7D 6664 0001:000C0F87 6667 0001:000C0F90 + 6668 0001:000C0F9E 6670 0001:000C0FAA 6672 0001:000C0FB3 6675 0001:000C0FC9 + 6677 0001:000C0FD9 6680 0001:000C100C 6681 0001:000C1015 6682 0001:000C1026 + 6683 0001:000C103E 6686 0001:000C1044 6687 0001:000C104C 6689 0001:000C1060 + 6690 0001:000C1068 6691 0001:000C1074 6695 0001:000C10A7 6696 0001:000C10E1 + 6698 0001:000C10FB 6699 0001:000C110B 6701 0001:000C112A 6704 0001:000C1130 + 6705 0001:000C1138 6707 0001:000C114C 6708 0001:000C1158 6710 0001:000C118B + 6711 0001:000C11A5 6712 0001:000C11B5 6714 0001:000C11EF 6717 0001:000C1213 + 6718 0001:000C1220 6720 0001:000C122B 6721 0001:000C1233 6722 0001:000C123E + 6723 0001:000C1251 6725 0001:000C1270 6730 0001:000C1274 6731 0001:000C127D + 6733 0001:000C1286 6734 0001:000C1295 6736 0001:000C12C0 6738 0001:000C12C9 + 6743 0001:000C12D0 6744 0001:000C12DF 6745 0001:000C12EB 6747 0001:000C1315 + 6748 0001:000C1326 6769 0001:000C132C 6770 0001:000C134B 6772 0001:000C1357 + 6774 0001:000C137B 6775 0001:000C1390 6779 0001:000C139F 6780 0001:000C13CC + 6793 0001:000C13D0 6794 0001:000C13DC 6795 0001:000C13E0 6796 0001:000C13EC + 6797 0001:000C140B 6800 0001:000C1410 6801 0001:000C141C 6802 0001:000C1420 + 6804 0001:000C1454 6805 0001:000C1476 6810 0001:000C147C 6811 0001:000C1488 + 6813 0001:000C148C 6815 0001:000C14AC 6816 0001:000C14B4 6818 0001:000C14BE + 6819 0001:000C14C6 6820 0001:000C14E0 6827 0001:000C14F0 6826 0001:000C14FC + 6828 0001:000C150E 6830 0001:000C151C 6831 0001:000C1543 6833 0001:000C1549 + 6835 0001:000C155C 6836 0001:000C1583 6839 0001:000C158A 6842 0001:000C1590 + 6843 0001:000C159C 6844 0001:000C15A0 6845 0001:000C15C4 6846 0001:000C15CF + 6849 0001:000C15D4 6850 0001:000C15E2 6851 0001:000C15E6 6852 0001:000C1608 + 6854 0001:000C164E 6859 0001:000C1654 6860 0001:000C1661 6861 0001:000C1665 + 6863 0001:000C167E 6864 0001:000C1682 6866 0001:000C168B 6867 0001:000C168F + 6868 0001:000C16B1 6871 0001:000C16F3 6872 0001:000C16FC 6876 0001:000C1707 + 6878 0001:000C1714 6883 0001:000C171C 6884 0001:000C1725 6885 0001:000C1734 + 6890 0001:000C1738 6891 0001:000C1741 6892 0001:000C175B 6897 0001:000C1760 + 6898 0001:000C1769 6900 0001:000C1775 6901 0001:000C177E 6904 0001:000C1797 + 6905 0001:000C17A5 6906 0001:000C17B2 6907 0001:000C17C0 6909 0001:000C17D1 + 6915 0001:000C17D8 6916 0001:000C17E1 6918 0001:000C17ED 6919 0001:000C17FA + 6921 0001:000C1813 6923 0001:000C182F 6924 0001:000C1843 6927 0001:000C1858 + 6928 0001:000C1865 6929 0001:000C1876 6931 0001:000C1878 6921 0001:000C187B + 6932 0001:000C1880 6935 0001:000C1888 6936 0001:000C1890 6937 0001:000C18A4 + 6942 0001:000C18A8 6943 0001:000C18BA 6944 0001:000C18C3 6945 0001:000C18CB + 6946 0001:000C18D9 6948 0001:000C18F6 6949 0001:000C18FD 6951 0001:000C1907 + 6953 0001:000C1922 6954 0001:000C192A 6956 0001:000C1933 6959 0001:000C193C + 6960 0001:000C1946 6961 0001:000C1950 6962 0001:000C195E 6963 0001:000C1968 + 6965 0001:000C1975 6966 0001:000C1986 6967 0001:000C1995 6969 0001:000C19A2 + 6970 0001:000C19AB 6971 0001:000C19BA 6972 0001:000C19C4 6974 0001:000C19D1 + 6975 0001:000C19DF 6977 0001:000C19F6 6979 0001:000C1A06 6982 0001:000C1A1F + 6984 0001:000C1A31 6987 0001:000C1A38 6988 0001:000C1A3F 6989 0001:000C1A4F + 6992 0001:000C1A54 6993 0001:000C1A61 6994 0001:000C1A7B 6996 0001:000C1A8F + 6997 0001:000C1AA3 6998 0001:000C1AB0 7000 0001:000C1ACB 7002 0001:000C1ADC + 7003 0001:000C1AED 7013 0001:000C1AF4 7014 0001:000C1B03 7015 0001:000C1B0B + 7016 0001:000C1B1D 7017 0001:000C1B32 7019 0001:000C1B3A 7020 0001:000C1B41 + 7021 0001:000C1B52 7022 0001:000C1B62 7027 0001:000C1B98 7028 0001:000C1BA2 + 7029 0001:000C1BAA 7030 0001:000C1BBD 7031 0001:000C1BCB 7033 0001:000C1BF3 + 7034 0001:000C1BFB 7038 0001:000C1C31 7039 0001:000C1C39 7040 0001:000C1C42 + 7042 0001:000C1C55 7047 0001:000C1C5C 7048 0001:000C1C84 7049 0001:000C1C92 + 7050 0001:000C1CCC 7051 0001:000C1D23 7058 0001:000C1D38 7059 0001:000C1D49 + 7060 0001:000C1D4D 7061 0001:000C1D51 7064 0001:000C1D5C 7065 0001:000C1D6F + 7066 0001:000C1D8E 7067 0001:000C1D9B 7069 0001:000C1DB8 7071 0001:000C1DBE + 7072 0001:000C1DCB 7073 0001:000C1DEE 7076 0001:000C1DF2 7077 0001:000C1E06 + 7079 0001:000C1E24 7080 0001:000C1E2F 7081 0001:000C1E3F 7084 0001:000C1E64 + 7086 0001:000C1E6D 7087 0001:000C1E76 7088 0001:000C1E8D 7090 0001:000C1EBB + 7091 0001:000C1EC7 7092 0001:000C1EE4 7095 0001:000C1EEC 7096 0001:000C1F0C + 7097 0001:000C1F10 7098 0001:000C1F1C 7099 0001:000C1F3A 7100 0001:000C1F5E + 7103 0001:000C1F64 7104 0001:000C1F84 7105 0001:000C1F88 7106 0001:000C1F94 + 7107 0001:000C1FB2 7108 0001:000C1FD6 7111 0001:000C1FDC 7112 0001:000C1FEB + 7113 0001:000C2000 7124 0001:000C2004 7125 0001:000C2010 7126 0001:000C201A + 7129 0001:000C2020 7130 0001:000C202C 7132 0001:000C203A 7133 0001:000C2046 + 7135 0001:000C2052 7136 0001:000C2068 7139 0001:000C207E 7140 0001:000C208C + 7143 0001:000C2097 7158 0001:000C209C 7159 0001:000C20A5 7160 0001:000C20BF + 7161 0001:000C20CF 7163 0001:000C20FF 7159 0001:000C210D 7164 0001:000C2112 + 7170 0001:000C2118 7171 0001:000C2121 7172 0001:000C212A 7173 0001:000C2137 + 7174 0001:000C213F 7176 0001:000C214A 7178 0001:000C216A 7179 0001:000C217E + 7180 0001:000C2187 7182 0001:000C21A7 7184 0001:000C21BE 7190 0001:000C21C4 + 7191 0001:000C21E9 7192 0001:000C21F4 7193 0001:000C2209 7194 0001:000C2211 + 7195 0001:000C2234 7196 0001:000C2238 7197 0001:000C2246 7198 0001:000C2268 + 7200 0001:000C2285 7203 0001:000C2295 7208 0001:000C22AF 7209 0001:000C22B3 + 7210 0001:000C22E0 7215 0001:000C22E8 7216 0001:000C22F5 7217 0001:000C2331 + 7220 0001:000C2338 7221 0001:000C2344 7223 0001:000C234E 7224 0001:000C236A + 7227 0001:000C2383 7228 0001:000C23A3 7229 0001:000C23AF 7232 0001:000C23B4 + 7233 0001:000C23C2 7235 0001:000C23D6 7236 0001:000C23E4 7237 0001:000C23F1 + 7240 0001:000C2405 7242 0001:000C2417 7243 0001:000C2422 7244 0001:000C2430 + 7246 0001:000C2449 7250 0001:000C2459 7262 0001:000C2460 7264 0001:000C2467 + 7266 0001:000C248E 7267 0001:000C24B5 7269 0001:000C24BD 7274 0001:000C24C0 + 7275 0001:000C24C9 7277 0001:000C24D6 7279 0001:000C24F0 7280 0001:000C2500 + 7283 0001:000C253D 7284 0001:000C2546 7286 0001:000C2548 7277 0001:000C254B + 7287 0001:000C2550 7289 0001:000C2559 7292 0001:000C2560 7293 0001:000C2569 + 7294 0001:000C256D 7295 0001:000C2576 7297 0001:000C2586 7298 0001:000C2596 + 7303 0001:000C259C 7304 0001:000C25AB 7305 0001:000C25B3 7306 0001:000C25CF + 7307 0001:000C25DB 7308 0001:000C25F0 7311 0001:000C25F4 7312 0001:000C25FB + 7314 0001:000C2608 7315 0001:000C261A 7317 0001:000C2626 7325 0001:000C262C + 7326 0001:000C263B 7327 0001:000C2669 7328 0001:000C267B 7331 0001:000C2688 + 7334 0001:000C26C9 7335 0001:000C26D2 7336 0001:000C26D8 7337 0001:000C26E6 + 7338 0001:000C26EF 7340 0001:000C2705 7342 0001:000C2711 7343 0001:000C271A + 7344 0001:000C2723 7345 0001:000C272C 7349 0001:000C2739 7350 0001:000C2741 + 7351 0001:000C274A 7352 0001:000C2753 7356 0001:000C2760 7361 0001:000C2764 + 7362 0001:000C276D 7363 0001:000C2775 7365 0001:000C2784 7368 0001:000C278E + 7369 0001:000C2797 7372 0001:000C27A2 7375 0001:000C27A8 7376 0001:000C27AF + 7378 0001:000C27E5 7379 0001:000C27FB 7382 0001:000C2800 7383 0001:000C2807 + 7385 0001:000C2810 7386 0001:000C2818 7387 0001:000C2820 7388 0001:000C2827 + 7389 0001:000C282C 7391 0001:000C2834 7413 0001:000C2838 7414 0001:000C283B + 7415 0001:000C283C 7416 0001:000C283E 7417 0001:000C2840 7418 0001:000C2842 + 7419 0001:000C2843 7420 0001:000C2845 7421 0001:000C2847 7422 0001:000C2849 + 7424 0001:000C284C 7426 0001:000C2852 7427 0001:000C2860 7428 0001:000C2877 + 7429 0001:000C2885 7430 0001:000C2893 7431 0001:000C28A1 7432 0001:000C28AF + 7433 0001:000C28B8 7437 0001:000C28DF 7439 0001:000C28E5 7440 0001:000C2907 + 7441 0001:000C2913 7444 0001:000C291F 7447 0001:000C2934 7448 0001:000C294C + 7450 0001:000C2961 7452 0001:000C296B 7455 0001:000C297E 7458 0001:000C29A1 + 7459 0001:000C29B0 7461 0001:000C29CA 7464 0001:000C29D0 7465 0001:000C29D7 + 7466 0001:000C29E5 7468 0001:000C2A0A 7469 0001:000C2A1B 7471 0001:000C2A35 + 7478 0001:000C2A38 7479 0001:000C2A54 7480 0001:000C2A59 7481 0001:000C2A5F + 7484 0001:000C2A6B 7486 0001:000C2A73 7485 0001:000C2A7E 7487 0001:000C2A8F + 7488 0001:000C2AA0 7489 0001:000C2ABD 7490 0001:000C2AC5 7491 0001:000C2ACB + 7492 0001:000C2AD6 7482 0001:000C2AE1 7494 0001:000C2B09 7496 0001:000C2B10 + 7497 0001:000C2B50 7498 0001:000C2B57 7501 0001:000C2B9C 7502 0001:000C2BA5 + 7503 0001:000C2BB1 7504 0001:000C2BBB 7505 0001:000C2BC8 7506 0001:000C2BD1 + 7507 0001:000C2BEF 7508 0001:000C2BFD 7509 0001:000C2C02 7510 0001:000C2C07 + 7511 0001:000C2C13 7512 0001:000C2C26 7514 0001:000C2C4A 7515 0001:000C2C60 + 7517 0001:000C2C77 7518 0001:000C2C9D 7519 0001:000C2CCD 7520 0001:000C2CD2 + 7521 0001:000C2CDB 7522 0001:000C2CE3 7523 0001:000C2CE8 7524 0001:000C2D04 + 7525 0001:000C2D17 7526 0001:000C2D30 7527 0001:000C2D4B 7529 0001:000C2D62 + 7531 0001:000C2D6C 7533 0001:000C2D83 7535 0001:000C2DA2 7536 0001:000C2DB3 + 7539 0001:000C2DC9 7540 0001:000C2DD9 7541 0001:000C2DDF 7547 0001:000C2DE5 + 7548 0001:000C2E0E 7551 0001:000C2E37 7552 0001:000C2E48 7553 0001:000C2E63 + 7554 0001:000C2E68 7555 0001:000C2E6E 7556 0001:000C2E7D 7557 0001:000C2E8A + 7560 0001:000C2E8C 7561 0001:000C2E92 7562 0001:000C2EA1 7563 0001:000C2EDC + 7568 0001:000C2EE4 7569 0001:000C2EF0 7570 0001:000C2EFB 7571 0001:000C2F0D + 7573 0001:000C2F20 7574 0001:000C2F2E 7577 0001:000C2F34 7578 0001:000C2F3D + 7579 0001:000C2F49 7581 0001:000C2F63 7582 0001:000C2F72 7585 0001:000C2F78 + 7586 0001:000C2F84 7587 0001:000C2F90 7588 0001:000C2FA7 7589 0001:000C2FB3 + 7594 0001:000C2FB8 7595 0001:000C2FC7 7596 0001:000C2FD2 7600 0001:000C3020 + 7602 0001:000C304A 7603 0001:000C3060 7606 0001:000C3064 7607 0001:000C3071 + 7608 0001:000C3075 7609 0001:000C309A 7612 0001:000C30A0 7613 0001:000C30AD + 7614 0001:000C30B1 7615 0001:000C30D6 7622 0001:000C30DC 7623 0001:000C30E0 + 7624 0001:000C30ED 7625 0001:000C30F3 7626 0001:000C3106 7629 0001:000C3134 + 7630 0001:000C3140 7631 0001:000C3152 7634 0001:000C3158 7635 0001:000C315F + 7636 0001:000C3170 7639 0001:000C3174 7640 0001:000C317B 7641 0001:000C3187 + 7649 0001:000C319C 7650 0001:000C31C3 7651 0001:000C31D7 7653 0001:000C31F6 + 7643 0001:000C31F8 7644 0001:000C320B 7645 0001:000C3210 7646 0001:000C321F + 7648 0001:000C3229 + +Line numbers for CheckLst(CheckLst.pas) segment .text + + 169 0001:000D753C 170 0001:000D7540 171 0001:000D754F 172 0001:000D755D + 173 0001:000D7573 174 0001:000D758A 176 0001:000D75AC 178 0001:000D75BC + 181 0001:000D75C0 182 0001:000D75CC 183 0001:000D75E1 186 0001:000D75E8 + 187 0001:000D75F1 188 0001:000D75FD 191 0001:000D7604 192 0001:000D760D + 193 0001:000D761B 198 0001:000D7620 199 0001:000D762C 200 0001:000D7642 + 203 0001:000D7648 204 0001:000D7651 205 0001:000D765F 208 0001:000D7664 + 209 0001:000D766D 210 0001:000D7674 215 0001:000D7678 216 0001:000D7693 + 217 0001:000D76A0 218 0001:000D76AA 219 0001:000D76B7 220 0001:000D76DF + 223 0001:000D76E4 224 0001:000D76F5 225 0001:000D7703 226 0001:000D771F + 233 0001:000D7724 234 0001:000D772D 235 0001:000D7735 237 0001:000D7741 + 239 0001:000D775D 240 0001:000D776B 241 0001:000D777F 242 0001:000D778D + 243 0001:000D779B 237 0001:000D779E 244 0001:000D77A3 246 0001:000D77B0 + 247 0001:000D77B8 252 0001:000D77BC 253 0001:000D77C5 255 0001:000D77D7 + 256 0001:000D77EC 257 0001:000D780A 256 0001:000D783C 259 0001:000D7841 + 260 0001:000D7849 263 0001:000D7850 264 0001:000D785C 266 0001:000D7867 + 267 0001:000D7870 268 0001:000D7877 271 0001:000D787C 272 0001:000D7885 + 273 0001:000D7893 276 0001:000D7898 277 0001:000D78A4 278 0001:000D78AF + 279 0001:000D78B7 282 0001:000D78BC 283 0001:000D78C3 285 0001:000D78DB + 286 0001:000D78EF 287 0001:000D790B 289 0001:000D7924 298 0001:000D7934 + 299 0001:000D794B 300 0001:000D7956 302 0001:000D796D 303 0001:000D7977 + 304 0001:000D799B 306 0001:000D79AA 308 0001:000D79BA 309 0001:000D79C0 + 313 0001:000D79CB 314 0001:000D79D1 316 0001:000D79DA 320 0001:000D79F8 + 321 0001:000D7A12 323 0001:000D7A2C 324 0001:000D7A32 327 0001:000D7A48 + 330 0001:000D7A61 331 0001:000D7A76 332 0001:000D7A87 333 0001:000D7A95 + 335 0001:000D7AB5 339 0001:000D7AD2 340 0001:000D7AE5 343 0001:000D7AF0 + 344 0001:000D7AFD 345 0001:000D7B0F 346 0001:000D7B18 347 0001:000D7B2A + 348 0001:000D7B3A 350 0001:000D7B4A 351 0001:000D7B58 352 0001:000D7B63 + 363 0001:000D7B68 364 0001:000D7B7F 365 0001:000D7B84 366 0001:000D7B9D + 367 0001:000D7BB6 368 0001:000D7BC2 369 0001:000D7BCE 371 0001:000D7BDA + 374 0001:000D7BE6 375 0001:000D7BF6 377 0001:000D7C08 379 0001:000D7C2C + 380 0001:000D7C3E 383 0001:000D7C47 385 0001:000D7C59 387 0001:000D7C62 + 388 0001:000D7C68 390 0001:000D7C79 392 0001:000D7C8A 393 0001:000D7C90 + 395 0001:000D7CA1 397 0001:000D7CB2 398 0001:000D7CB8 400 0001:000D7CC9 + 402 0001:000D7CD8 406 0001:000D7CF7 408 0001:000D7D00 410 0001:000D7D09 + 412 0001:000D7D10 414 0001:000D7D17 415 0001:000D7D1D 416 0001:000D7D24 + 419 0001:000D7D3C 421 0001:000D7D4C 422 0001:000D7D5E 424 0001:000D7D67 + 425 0001:000D7D75 426 0001:000D7D83 427 0001:000D7D91 428 0001:000D7D9E + 429 0001:000D7DAE 431 0001:000D7DC8 432 0001:000D7DD6 433 0001:000D7DE4 + 436 0001:000D7DF2 439 0001:000D7DFC 440 0001:000D7E0B 442 0001:000D7E1B + 443 0001:000D7E2E 445 0001:000D7E39 457 0001:000D7E40 458 0001:000D7E4F + 460 0001:000D7E5F 461 0001:000D7E70 463 0001:000D7E7B 468 0001:000D7E80 + 469 0001:000D7E8D 471 0001:000D7E9C 472 0001:000D7EAA 473 0001:000D7EBA + 475 0001:000D7ECA 476 0001:000D7EDA 477 0001:000D7EFD 479 0001:000D7F0B + 482 0001:000D7F10 483 0001:000D7F1C 484 0001:000D7F2B 486 0001:000D7F40 + 487 0001:000D7F47 490 0001:000D7F4C 491 0001:000D7F58 492 0001:000D7F67 + 494 0001:000D7F7C 495 0001:000D7F83 498 0001:000D7F88 499 0001:000D7F94 + 500 0001:000D7FA3 502 0001:000D7FB6 503 0001:000D7FC6 506 0001:000D7FCC + 507 0001:000D7FD8 508 0001:000D7FE0 509 0001:000D7FF5 510 0001:000D8000 + 516 0001:000D8004 517 0001:000D8015 518 0001:000D802B 520 0001:000D8035 + 521 0001:000D8053 522 0001:000D806C 524 0001:000D807C 525 0001:000D809C + 529 0001:000D80A9 530 0001:000D80C7 531 0001:000D80DA 534 0001:000D80E5 + 539 0001:000D80F0 540 0001:000D80FD 542 0001:000D8125 543 0001:000D8133 + 545 0001:000D8142 546 0001:000D815A 547 0001:000D8160 549 0001:000D8164 + 550 0001:000D8172 552 0001:000D817E 555 0001:000D8184 556 0001:000D818C + 557 0001:000D81AB 560 0001:000D81B0 561 0001:000D81BC 562 0001:000D81C1 + 563 0001:000D81D0 564 0001:000D81E4 567 0001:000D81E8 568 0001:000D81F4 + 569 0001:000D8202 570 0001:000D8208 571 0001:000D8219 574 0001:000D8220 + 575 0001:000D822C 576 0001:000D823A 577 0001:000D8240 578 0001:000D8267 + 579 0001:000D827F 580 0001:000D8287 583 0001:000D828C 584 0001:000D8298 + 585 0001:000D82A9 588 0001:000D82B0 589 0001:000D82BF 590 0001:000D82CD + 593 0001:000D82D4 594 0001:000D82E0 595 0001:000D82EF 596 0001:000D8300 + 599 0001:000D8304 600 0001:000D8310 601 0001:000D8324 606 0001:000D8328 + 607 0001:000D8337 609 0001:000D834C 610 0001:000D835A 612 0001:000D8363 + 617 0001:000D8368 618 0001:000D8371 619 0001:000D838F 620 0001:000D839E + 618 0001:000D83B1 621 0001:000D83B6 622 0001:000D83BE 625 0001:000D83C4 + 626 0001:000D83D0 627 0001:000D83DF 628 0001:000D83EF 629 0001:000D83FA + 632 0001:000D8400 633 0001:000D840C 635 0001:000D841A 636 0001:000D8426 + 638 0001:000D842E 643 0001:000D8434 644 0001:000D8440 645 0001:000D845E + 644 0001:000D8471 646 0001:000D8476 647 0001:000D8481 650 0001:000D8488 + 651 0001:000D8494 652 0001:000D84A3 654 0001:000D84B6 655 0001:000D84BD + 667 0001:000D84C4 668 0001:000D84D0 670 0001:000D84DE 671 0001:000D84EA + 673 0001:000D84F2 676 0001:000D84F8 677 0001:000D8504 679 0001:000D8512 + 680 0001:000D851E 682 0001:000D8526 684 0001:000D855C 685 0001:000D8568 + 687 0001:000D856D + +Line numbers for MaskUtils(MaskUtils.pas) segment .text + + 73 0001:000DEE04 74 0001:000DEE10 75 0001:000DEE14 76 0001:000DEE18 + 77 0001:000DEE25 78 0001:000DEE32 79 0001:000DEE3F 81 0001:000DEE48 + 82 0001:000DEE57 84 0001:000DEE60 88 0001:000DEEA8 90 0001:000DEEB1 + 93 0001:000DEED9 95 0001:000DEEE2 100 0001:000DEF36 102 0001:000DEF3C + 103 0001:000DEF47 105 0001:000DEF4D 107 0001:000DEF60 109 0001:000DEF66 + 111 0001:000DEF7D 113 0001:000DEF83 114 0001:000DEF96 115 0001:000DEF9D + 122 0001:000DEFA4 123 0001:000DEFB0 124 0001:000DEFB8 126 0001:000DEFCE + 127 0001:000DEFDB 128 0001:000DEFE1 129 0001:000DEFE7 131 0001:000DEFF5 + 132 0001:000DEFF9 133 0001:000DF00C 135 0001:000DF012 137 0001:000DF020 + 138 0001:000DF024 140 0001:000DF028 124 0001:000DF02B 141 0001:000DF030 + 142 0001:000DF03F 143 0001:000DF046 146 0001:000DF050 147 0001:000DF057 + 148 0001:000DF05D 149 0001:000DF068 150 0001:000DF074 152 0001:000DF081 + 161 0001:000DF084 162 0001:000DF0BC 163 0001:000DF0C7 165 0001:000DF0D7 + 169 0001:000DF0E1 170 0001:000DF0E8 172 0001:000DF102 174 0001:000DF110 + 176 0001:000DF118 179 0001:000DF17F 181 0001:000DF184 183 0001:000DF18D + 184 0001:000DF19C 185 0001:000DF1B5 187 0001:000DF1B8 170 0001:000DF1BB + 193 0001:000DF1C9 194 0001:000DF1D6 196 0001:000DF1F2 197 0001:000DF200 + 198 0001:000DF20E 200 0001:000DF216 204 0001:000DF27E 206 0001:000DF287 + 207 0001:000DF28D 209 0001:000DF2AA 211 0001:000DF2AD 194 0001:000DF2B0 + 213 0001:000DF2DB 219 0001:000DF2E4 220 0001:000DF2ED 221 0001:000DF2F1 + 223 0001:000DF302 224 0001:000DF309 225 0001:000DF310 226 0001:000DF31B + 228 0001:000DF321 230 0001:000DF330 231 0001:000DF336 233 0001:000DF33E + 235 0001:000DF344 236 0001:000DF347 226 0001:000DF35D 239 0001:000DF363 + 240 0001:000DF369 241 0001:000DF36F 242 0001:000DF382 244 0001:000DF39C + 247 0001:000DF3A0 248 0001:000DF3A9 249 0001:000DF3B1 251 0001:000DF3BE + 256 0001:000DF3D5 261 0001:000DF407 265 0001:000DF41C 289 0001:000DF420 + 290 0001:000DF443 291 0001:000DF44B 293 0001:000DF45C 294 0001:000DF46A + 295 0001:000DF477 296 0001:000DF497 291 0001:000DF49A 297 0001:000DF4BC + 300 0001:000DF4C4 301 0001:000DF4E3 302 0001:000DF51C 314 0001:000DF520 + 315 0001:000DF52C 316 0001:000DF541 318 0001:000DF549 319 0001:000DF550 + 322 0001:000DF552 323 0001:000DF557 324 0001:000DF55D 326 0001:000DF573 + 327 0001:000DF576 329 0001:000DF585 330 0001:000DF588 333 0001:000DF58E + 324 0001:000DF591 334 0001:000DF599 340 0001:000DF5A0 341 0001:000DF5AC + 342 0001:000DF5B0 343 0001:000DF5BE 345 0001:000DF5C4 346 0001:000DF5D2 + 348 0001:000DF5E1 356 0001:000DF5E8 357 0001:000DF61A 360 0001:000DF629 + 361 0001:000DF639 362 0001:000DF640 363 0001:000DF646 364 0001:000DF64D + 365 0001:000DF661 366 0001:000DF67A 365 0001:000DF696 367 0001:000DF69B + 369 0001:000DF6C8 371 0001:000DF6D7 372 0001:000DF6E7 373 0001:000DF6ED + 376 0001:000DF730 380 0001:000DF773 381 0001:000DF7A0 391 0001:000DF7A8 + 392 0001:000DF7D1 394 0001:000DF7D6 395 0001:000DF7E1 397 0001:000DF7FB + 398 0001:000DF809 400 0001:000DF815 401 0001:000DF823 402 0001:000DF831 + 404 0001:000DF84C 406 0001:000DF869 407 0001:000DF86F 409 0001:000DF871 + 402 0001:000DF874 411 0001:000DF879 412 0001:000DF888 413 0001:000DF8AF + 415 0001:000DF8E1 417 0001:000DF8E7 395 0001:000DF8EA 420 0001:000DF8F3 + 421 0001:000DF908 422 0001:000DF917 426 0001:000DF94E 428 0001:000DF966 + 430 0001:000DF975 431 0001:000DF985 433 0001:000DF997 426 0001:000DF99A + 434 0001:000DF9C1 444 0001:000DF9F8 444 0001:000DF9FF + +Line numbers for Mask(Mask.pas) segment .text + + 165 0001:000E0520 166 0001:000E053B 167 0001:000E0548 168 0001:000E0557 + 169 0001:000E0582 172 0001:000E058C 173 0001:000E059B 174 0001:000E05B5 + 176 0001:000E05DC 178 0001:000E05EE 179 0001:000E05FF 180 0001:000E0613 + 181 0001:000E061B 183 0001:000E0620 185 0001:000E0632 186 0001:000E063A + 188 0001:000E063C 190 0001:000E064E 191 0001:000E065F 192 0001:000E0667 + 194 0001:000E0669 197 0001:000E0681 198 0001:000E0690 199 0001:000E069E + 200 0001:000E06A6 202 0001:000E06A8 204 0001:000E06B0 207 0001:000E06B4 + 208 0001:000E06C3 209 0001:000E06DD 211 0001:000E06F2 212 0001:000E070A + 214 0001:000E0712 217 0001:000E0718 218 0001:000E0724 219 0001:000E072F + 221 0001:000E0754 222 0001:000E075F 224 0001:000E0765 227 0001:000E076C + 228 0001:000E0778 229 0001:000E0783 230 0001:000E0793 235 0001:000E0798 + 236 0001:000E07A4 237 0001:000E07AF 239 0001:000E07BB 240 0001:000E07C9 + 241 0001:000E07D5 242 0001:000E07EF 243 0001:000E07FB 245 0001:000E0803 + 248 0001:000E0808 249 0001:000E0814 250 0001:000E081F 251 0001:000E082B + 252 0001:000E0833 255 0001:000E0838 256 0001:000E0857 258 0001:000E086F + 259 0001:000E0881 261 0001:000E08A6 264 0001:000E08AC 265 0001:000E08B8 + 266 0001:000E08C3 269 0001:000E08C8 270 0001:000E08E4 271 0001:000E091A + 274 0001:000E0920 275 0001:000E0942 276 0001:000E094E 279 0001:000E095B + 280 0001:000E0974 281 0001:000E0980 283 0001:000E09C0 289 0001:000E09C4 + 290 0001:000E09EA 291 0001:000E09F6 294 0001:000E0A06 295 0001:000E0A11 + 296 0001:000E0A1D 298 0001:000E0A48 299 0001:000E0A64 303 0001:000E0A97 + 304 0001:000E0AAE 306 0001:000E0AE3 309 0001:000E0AE8 310 0001:000E0AF4 + 311 0001:000E0B00 314 0001:000E0B0D 315 0001:000E0B15 317 0001:000E0B21 + 324 0001:000E0B28 325 0001:000E0B4A 326 0001:000E0B62 329 0001:000E0B72 + 330 0001:000E0B7C 331 0001:000E0B89 333 0001:000E0B93 334 0001:000E0BA1 + 335 0001:000E0BAC 336 0001:000E0BC1 337 0001:000E0BCC 338 0001:000E0BE1 + 339 0001:000E0BEC 341 0001:000E0C19 344 0001:000E0C20 345 0001:000E0C29 + 346 0001:000E0C3A 359 0001:000E0C40 360 0001:000E0C5E 361 0001:000E0C77 + 362 0001:000E0C87 363 0001:000E0CA8 364 0001:000E0CB9 365 0001:000E0CCA + 366 0001:000E0CE6 367 0001:000E0D13 372 0001:000E0D18 373 0001:000E0D25 + 375 0001:000E0D3C 377 0001:000E0D54 378 0001:000E0D5E 379 0001:000E0D78 + 380 0001:000E0D83 381 0001:000E0D8D 382 0001:000E0DA3 383 0001:000E0DAD + 384 0001:000E0DC5 385 0001:000E0DD6 387 0001:000E0DFE 389 0001:000E0E09 + 392 0001:000E0E10 393 0001:000E0E19 394 0001:000E0E28 397 0001:000E0E2C + 398 0001:000E0E38 399 0001:000E0E44 401 0001:000E0E51 402 0001:000E0E62 + 405 0001:000E0E68 406 0001:000E0E77 407 0001:000E0E92 410 0001:000E0E98 + 411 0001:000E0EA7 412 0001:000E0EC2 422 0001:000E0EC8 423 0001:000E0F06 + 424 0001:000E0F2F 425 0001:000E0F35 427 0001:000E0F45 428 0001:000E0F4B + 429 0001:000E0F50 430 0001:000E0F57 431 0001:000E0FA0 432 0001:000E0FA3 + 434 0001:000E0FB1 435 0001:000E0FBD 438 0001:000E0FC3 440 0001:000E0FD1 + 442 0001:000E0FDD 443 0001:000E0FE9 444 0001:000E0FEE 443 0001:000E0FFC + 445 0001:000E1005 446 0001:000E100C 447 0001:000E102B 448 0001:000E1037 + 449 0001:000E1041 450 0001:000E104F 451 0001:000E107C 453 0001:000E10B6 + 455 0001:000E10C8 457 0001:000E10D4 461 0001:000E10E2 462 0001:000E10E8 + 463 0001:000E10ED 464 0001:000E110B 465 0001:000E1127 467 0001:000E115A + 472 0001:000E1160 473 0001:000E1169 474 0001:000E1175 476 0001:000E1181 + 477 0001:000E118F 478 0001:000E1197 480 0001:000E11A2 483 0001:000E11A8 + 484 0001:000E11AF 485 0001:000E11B9 488 0001:000E11BC 489 0001:000E11C5 + 490 0001:000E11CC 493 0001:000E11D0 494 0001:000E11D7 496 0001:000E11E3 + 497 0001:000E11F4 499 0001:000E11FE 506 0001:000E1204 507 0001:000E1223 + 508 0001:000E1227 510 0001:000E1233 511 0001:000E123E 513 0001:000E1243 + 514 0001:000E1266 515 0001:000E1276 517 0001:000E1282 518 0001:000E128D + 521 0001:000E1292 522 0001:000E12A0 524 0001:000E12A9 525 0001:000E12B5 + 526 0001:000E12C3 529 0001:000E12CE 530 0001:000E12E3 531 0001:000E1305 + 532 0001:000E130B 533 0001:000E1314 534 0001:000E1325 536 0001:000E132F + 538 0001:000E1344 539 0001:000E1381 542 0001:000E1394 543 0001:000E13A1 + 544 0001:000E13BF 545 0001:000E13CD 547 0001:000E13FA 552 0001:000E1400 + 553 0001:000E1427 554 0001:000E1431 555 0001:000E143F 557 0001:000E1449 + 559 0001:000E1450 560 0001:000E1459 562 0001:000E1462 563 0001:000E1470 + 565 0001:000E1479 569 0001:000E14A8 570 0001:000E14B1 573 0001:000E14CA + 574 0001:000E14DA 576 0001:000E14E3 581 0001:000E1503 583 0001:000E1510 + 585 0001:000E153F 586 0001:000E1546 588 0001:000E1556 589 0001:000E1566 + 591 0001:000E156B 592 0001:000E1579 593 0001:000E1582 595 0001:000E1595 + 596 0001:000E159C 599 0001:000E15A9 600 0001:000E15B1 602 0001:000E15BE + 603 0001:000E15E2 605 0001:000E15F4 608 0001:000E1626 613 0001:000E162C + 614 0001:000E163B 615 0001:000E1644 616 0001:000E1652 617 0001:000E1667 + 618 0001:000E166D 619 0001:000E1678 625 0001:000E167C 626 0001:000E1688 + 627 0001:000E168E 628 0001:000E1691 629 0001:000E169F 630 0001:000E16AA + 647 0001:000E16B0 648 0001:000E16BC 650 0001:000E16C4 649 0001:000E16C7 + 651 0001:000E16ED 654 0001:000E16F4 655 0001:000E1700 657 0001:000E1708 + 656 0001:000E170B 658 0001:000E1726 659 0001:000E172C 660 0001:000E173D + 665 0001:000E1744 666 0001:000E1754 667 0001:000E1762 669 0001:000E1769 + 671 0001:000E176F 672 0001:000E1786 673 0001:000E178D 674 0001:000E179A + 677 0001:000E17A4 678 0001:000E17AE 682 0001:000E17BB 684 0001:000E17C1 + 685 0001:000E17D8 686 0001:000E17DF 687 0001:000E17F3 690 0001:000E17FD + 691 0001:000E180E 693 0001:000E1820 700 0001:000E1824 701 0001:000E1844 + 702 0001:000E1854 703 0001:000E1862 705 0001:000E1872 706 0001:000E1878 + 707 0001:000E1883 708 0001:000E1891 711 0001:000E189D 713 0001:000E18AA + 714 0001:000E18B5 715 0001:000E18CA 716 0001:000E18E0 717 0001:000E18FE + 719 0001:000E1907 720 0001:000E1915 723 0001:000E1922 724 0001:000E1930 + 726 0001:000E1959 729 0001:000E1960 730 0001:000E197F 732 0001:000E1994 + 734 0001:000E19A0 735 0001:000E19BB 737 0001:000E19C6 738 0001:000E19D0 + 741 0001:000E19DA 742 0001:000E1A02 748 0001:000E1A08 749 0001:000E1A27 + 750 0001:000E1A32 751 0001:000E1A4D 753 0001:000E1A59 754 0001:000E1A67 + 755 0001:000E1A75 756 0001:000E1A7D 758 0001:000E1AA5 761 0001:000E1AAC + 762 0001:000E1AB8 763 0001:000E1AC3 764 0001:000E1AE5 765 0001:000E1AEF + 768 0001:000E1AF4 769 0001:000E1B00 771 0001:000E1B15 772 0001:000E1B20 + 774 0001:000E1B28 775 0001:000E1B33 781 0001:000E1B38 782 0001:000E1B55 + 783 0001:000E1B60 785 0001:000E1B78 787 0001:000E1B8D 789 0001:000E1B96 + 790 0001:000E1BA0 792 0001:000E1BAB 793 0001:000E1BB6 796 0001:000E1BDE + 799 0001:000E1BE4 800 0001:000E1BED 801 0001:000E1BF4 802 0001:000E1C21 + 805 0001:000E1C28 806 0001:000E1C37 807 0001:000E1C3D 809 0001:000E1C56 + 810 0001:000E1C74 819 0001:000E1C7C 820 0001:000E1CA2 821 0001:000E1CA9 + 822 0001:000E1CB4 824 0001:000E1CD4 826 0001:000E1CE8 827 0001:000E1CF0 + 829 0001:000E1D38 830 0001:000E1D44 822 0001:000E1D47 832 0001:000E1D4C + 833 0001:000E1D62 835 0001:000E1D68 836 0001:000E1D6F 838 0001:000E1D87 + 839 0001:000E1D9E 842 0001:000E1DA1 836 0001:000E1DA4 843 0001:000E1DA9 + 844 0001:000E1DAF 847 0001:000E1DD2 848 0001:000E1DDF 850 0001:000E1DF0 + 851 0001:000E1E09 853 0001:000E1E1E 848 0001:000E1E21 855 0001:000E1E26 + 857 0001:000E1E32 858 0001:000E1E3F 860 0001:000E1E50 861 0001:000E1E67 + 862 0001:000E1E77 863 0001:000E1E7F 858 0001:000E1E82 865 0001:000E1EA9 + 872 0001:000E1EB0 873 0001:000E1EBF 874 0001:000E1EC3 876 0001:000E1ED3 + 877 0001:000E1ED7 878 0001:000E1EEB 880 0001:000E1EF1 881 0001:000E1F05 + 882 0001:000E1F0D 883 0001:000E1F1E 885 0001:000E1F2D 886 0001:000E1F3E + 888 0001:000E1F44 889 0001:000E1F58 890 0001:000E1F63 895 0001:000E1F65 + 896 0001:000E1F6B 897 0001:000E1F75 906 0001:000E1F7C 907 0001:000E1F83 + 908 0001:000E1FA3 913 0001:000E1FA8 914 0001:000E1FC8 915 0001:000E1FE2 + 919 0001:000E209F 921 0001:000E20A4 922 0001:000E20D3 923 0001:000E20D7 + 924 0001:000E20EB 925 0001:000E20F3 928 0001:000E2112 929 0001:000E2126 + 932 0001:000E2184 933 0001:000E2198 937 0001:000E21A1 939 0001:000E21D9 + 943 0001:000E21E2 945 0001:000E2207 946 0001:000E220B 948 0001:000E2210 + 950 0001:000E2223 951 0001:000E2230 952 0001:000E223F 953 0001:000E2245 + 954 0001:000E225D 955 0001:000E2263 956 0001:000E2279 961 0001:000E2288 + 963 0001:000E229D 964 0001:000E22B1 965 0001:000E22B5 967 0001:000E22BA + 968 0001:000E22C7 969 0001:000E22D6 971 0001:000E22E6 972 0001:000E22F0 + 974 0001:000E22F5 976 0001:000E2304 977 0001:000E2308 980 0001:000E233D + 982 0001:000E2343 983 0001:000E2349 984 0001:000E2361 985 0001:000E2367 + 986 0001:000E237D 990 0001:000E23B4 996 0001:000E23C8 997 0001:000E23D7 + 998 0001:000E23DB 999 0001:000E23E2 1001 0001:000E2402 1003 0001:000E2416 + 1004 0001:000E2422 1005 0001:000E2427 1007 0001:000E2433 1010 0001:000E2468 + 1011 0001:000E246C 1012 0001:000E2475 1014 0001:000E2477 1016 0001:000E247A + 999 0001:000E247D 1017 0001:000E2485 1025 0001:000E248C 1026 0001:000E249B + 1027 0001:000E249F 1029 0001:000E24A9 1030 0001:000E24B0 1031 0001:000E24B9 + 1032 0001:000E24CD 1033 0001:000E24D3 1035 0001:000E24F1 1036 0001:000E2505 + 1037 0001:000E250D 1038 0001:000E2512 1040 0001:000E251B 1041 0001:000E2533 + 1043 0001:000E2536 1044 0001:000E253E 1033 0001:000E2541 1045 0001:000E2549 + 1054 0001:000E2550 1055 0001:000E258B 1056 0001:000E2591 1058 0001:000E259B + 1059 0001:000E25A2 1060 0001:000E25AD 1061 0001:000E25C1 1062 0001:000E25CB + 1065 0001:000E25D6 1066 0001:000E25EA 1068 0001:000E25FB 1069 0001:000E2608 + 1071 0001:000E261A 1072 0001:000E262D 1073 0001:000E2644 1077 0001:000E2650 + 1080 0001:000E2667 1081 0001:000E2679 1083 0001:000E268C 1084 0001:000E268F + 1088 0001:000E2694 1090 0001:000E26E3 1092 0001:000E26E6 1093 0001:000E26F7 + 1094 0001:000E2704 1063 0001:000E2707 1097 0001:000E271E 1099 0001:000E2738 + 1101 0001:000E2754 1102 0001:000E2770 1104 0001:000E2773 1110 0001:000E27D5 + 1111 0001:000E27DB 1112 0001:000E27F3 1113 0001:000E27F6 1116 0001:000E2839 + 1117 0001:000E2870 1123 0001:000E2878 1124 0001:000E2887 1127 0001:000E2890 + 1128 0001:000E2893 1129 0001:000E28A7 1131 0001:000E28AF 1132 0001:000E28C2 + 1133 0001:000E28C8 1134 0001:000E28D3 1135 0001:000E28DB 1136 0001:000E28E1 + 1125 0001:000E28E3 1139 0001:000E28F9 1141 0001:000E2930 1141 0001:000E2937 + +Line numbers for Grids(grids.pas) segment .text + + 778 0001:000E3FBC 779 0001:000E3FC3 780 0001:000E3FD7 783 0001:000E3FDC + 786 0001:000E3FF5 787 0001:000E3FFD 788 0001:000E400D 789 0001:000E4016 + 790 0001:000E4027 791 0001:000E4030 792 0001:000E4041 793 0001:000E404A + 795 0001:000E405B 798 0001:000E4064 799 0001:000E4073 801 0001:000E40AA + 811 0001:000E40B0 812 0001:000E40BF 814 0001:000E40F6 817 0001:000E40FC + 820 0001:000E4108 821 0001:000E414F 823 0001:000E4168 826 0001:000E416C + 827 0001:000E417B 829 0001:000E417F 831 0001:000E4193 833 0001:000E41BD + 834 0001:000E41E4 835 0001:000E41EB 837 0001:000E41F4 838 0001:000E4205 + 839 0001:000E4214 842 0001:000E4229 843 0001:000E4237 847 0001:000E424B + 848 0001:000E425C 852 0001:000E42A0 853 0001:000E42A9 857 0001:000E42F0 + 858 0001:000E42F9 862 0001:000E4340 863 0001:000E4349 867 0001:000E4390 + 869 0001:000E4399 877 0001:000E43A0 878 0001:000E43C9 880 0001:000E43D3 + 881 0001:000E43E2 882 0001:000E43EC 883 0001:000E440F 884 0001:000E4418 + 885 0001:000E4435 886 0001:000E4453 887 0001:000E4459 888 0001:000E4462 + 889 0001:000E4470 891 0001:000E4478 892 0001:000E447F 894 0001:000E4487 + 895 0001:000E4495 892 0001:000E4498 897 0001:000E44A0 900 0001:000E44CD + 906 0001:000E44D4 907 0001:000E44E3 908 0001:000E44E8 909 0001:000E44FA + 910 0001:000E450F 915 0001:000E4514 916 0001:000E4524 918 0001:000E452C + 919 0001:000E453A 920 0001:000E4542 922 0001:000E456B 923 0001:000E4573 + 925 0001:000E4598 927 0001:000E45A6 932 0001:000E45AC 933 0001:000E45B8 + 934 0001:000E45BC 936 0001:000E45C2 938 0001:000E45C8 939 0001:000E45DC + 938 0001:000E45F3 940 0001:000E45F8 943 0001:000E45FE 944 0001:000E4609 + 959 0001:000E4610 979 0001:000E4618 980 0001:000E4633 981 0001:000E4640 + 982 0001:000E464A 983 0001:000E4654 984 0001:000E465E 985 0001:000E4668 + 986 0001:000E468D 989 0001:000E4694 990 0001:000E46A0 991 0001:000E46AB + 992 0001:000E46B2 995 0001:000E46B8 996 0001:000E46C4 997 0001:000E46D0 + 1000 0001:000E46D4 1002 0001:000E46E0 1005 0001:000E46E4 1006 0001:000E46F0 + 1007 0001:000E46FB 1008 0001:000E470D 1009 0001:000E4714 1012 0001:000E4718 + 1013 0001:000E4724 1014 0001:000E4733 1015 0001:000E473E 1018 0001:000E4744 + 1019 0001:000E4750 1020 0001:000E475F 1021 0001:000E476A 1024 0001:000E4770 + 1025 0001:000E477C 1026 0001:000E478B 1027 0001:000E4796 1030 0001:000E479C + 1031 0001:000E47A4 1032 0001:000E47B6 1036 0001:000E47BC 1037 0001:000E47D5 + 1038 0001:000E47F7 1041 0001:000E4800 1042 0001:000E480A 1043 0001:000E4822 + 1048 0001:000E4828 1049 0001:000E482C 1050 0001:000E484D 1051 0001:000E4858 + 1056 0001:000E485C 1057 0001:000E4862 1058 0001:000E4880 1059 0001:000E48A6 + 1062 0001:000E48AC 1063 0001:000E48B0 1064 0001:000E48CC 1067 0001:000E48D0 + 1068 0001:000E48D4 1069 0001:000E48E4 1072 0001:000E48E8 1073 0001:000E48EF + 1074 0001:000E4910 1079 0001:000E4914 1080 0001:000E491A 1081 0001:000E4923 + 1082 0001:000E494F 1085 0001:000E4954 1086 0001:000E495B 1087 0001:000E4968 + 1089 0001:000E49AD 1092 0001:000E49B4 1093 0001:000E49BA 1094 0001:000E49C7 + 1096 0001:000E49FD 1098 0001:000E4A04 1099 0001:000E4A14 1100 0001:000E4A8B + 1102 0001:000E4A97 1103 0001:000E4AAD 1104 0001:000E4AE2 1105 0001:000E4B17 + 1106 0001:000E4B4C 1107 0001:000E4B81 1110 0001:000E4BAB 1111 0001:000E4BB2 + 1113 0001:000E4BBB 1114 0001:000E4BC3 1117 0001:000E4BC5 1119 0001:000E4BD4 + 1120 0001:000E4BDF 1122 0001:000E4BE8 1124 0001:000E4C06 1126 0001:000E4C0F + 1127 0001:000E4C16 1129 0001:000E4C24 1134 0001:000E4C34 1135 0001:000E4C41 + 1136 0001:000E4C56 1138 0001:000E4C7C 1139 0001:000E4C82 1141 0001:000E4C89 + 1142 0001:000E4CBE 1145 0001:000E4CC6 1146 0001:000E4CE1 1147 0001:000E4CF4 + 1148 0001:000E4CFE 1149 0001:000E4D06 1152 0001:000E4D0E 1154 0001:000E4D2A + 1155 0001:000E4D3D 1158 0001:000E4D44 1159 0001:000E4D54 1160 0001:000E4D6C + 1163 0001:000E4D74 1164 0001:000E4D81 1167 0001:000E4D94 1168 0001:000E4DC8 + 1172 0001:000E4DCA 1173 0001:000E4DE3 1174 0001:000E4DEC 1177 0001:000E4DF7 + 1178 0001:000E4E02 1181 0001:000E4E08 1182 0001:000E4E0F 1183 0001:000E4E29 + 1188 0001:000E4E2C 1189 0001:000E4E35 1190 0001:000E4E45 1191 0001:000E4E57 + 1192 0001:000E4E69 1193 0001:000E4E8C 1194 0001:000E4EA4 1195 0001:000E4EBE + 1198 0001:000E4EC4 1199 0001:000E4ECC 1201 0001:000E4EEA 1202 0001:000E4EF2 + 1204 0001:000E4F0F 1206 0001:000E4F33 1218 0001:000E4F38 1219 0001:000E4F48 + 1222 0001:000E4F62 1223 0001:000E4F6D 1224 0001:000E4F8E 1225 0001:000E4F96 + 1228 0001:000E4FCE 1229 0001:000E4FD9 1230 0001:000E4FE7 1231 0001:000E4FFD + 1233 0001:000E500B 1238 0001:000E5010 1239 0001:000E5019 1240 0001:000E503C + 1241 0001:000E5055 1242 0001:000E506C 1245 0001:000E5070 1246 0001:000E507C + 1247 0001:000E5089 1255 0001:000E5090 1256 0001:000E509C 1257 0001:000E50A9 + 1266 0001:000E50B0 1267 0001:000E50CB 1268 0001:000E50D5 1269 0001:000E5114 + 1270 0001:000E5153 1271 0001:000E5191 1278 0001:000E5198 1279 0001:000E51B4 + 1280 0001:000E51C1 1281 0001:000E51CB 1283 0001:000E51D9 1284 0001:000E51E5 + 1285 0001:000E51EF 1286 0001:000E51FC 1287 0001:000E5209 1288 0001:000E5216 + 1289 0001:000E5223 1290 0001:000E5230 1292 0001:000E5241 1293 0001:000E5252 + 1294 0001:000E525F 1295 0001:000E5269 1296 0001:000E5273 1297 0001:000E5280 + 1298 0001:000E528D 1299 0001:000E5297 1300 0001:000E52A1 1301 0001:000E52AB + 1302 0001:000E52B8 1303 0001:000E52C2 1304 0001:000E52CC 1306 0001:000E5309 + 1307 0001:000E532C 1310 0001:000E5344 1311 0001:000E5355 1312 0001:000E5363 + 1313 0001:000E5371 1314 0001:000E537F 1315 0001:000E538D 1316 0001:000E53A9 + 1332 0001:000E53B0 1333 0001:000E53D3 1334 0001:000E53E1 1335 0001:000E5401 + 1337 0001:000E5412 1338 0001:000E5417 1339 0001:000E5435 1338 0001:000E5446 + 1342 0001:000E544D 1343 0001:000E5459 1344 0001:000E5461 1345 0001:000E5479 + 1346 0001:000E5481 1347 0001:000E548E 1348 0001:000E54B7 1349 0001:000E54E2 + 1351 0001:000E54EC 1352 0001:000E54FC 1353 0001:000E5506 1354 0001:000E551B + 1355 0001:000E5527 1356 0001:000E5533 1357 0001:000E553F 1358 0001:000E554C + 1359 0001:000E5558 1360 0001:000E5565 1361 0001:000E556A 1362 0001:000E556F + 1363 0001:000E5575 1364 0001:000E557E 1366 0001:000E5584 1367 0001:000E55AC + 1368 0001:000E55B2 1372 0001:000E55D2 1373 0001:000E55FA 1374 0001:000E5600 + 1376 0001:000E561E 1377 0001:000E562E 1379 0001:000E563B 1380 0001:000E5659 + 1382 0001:000E5667 1383 0001:000E5679 1384 0001:000E5695 1385 0001:000E56A7 + 1390 0001:000E56B0 1391 0001:000E56BF 1392 0001:000E56C5 1393 0001:000E56CB + 1394 0001:000E56D1 1395 0001:000E56D7 1396 0001:000E56E7 1399 0001:000E56F0 + 1400 0001:000E56F7 1401 0001:000E56FF 1402 0001:000E5713 1405 0001:000E5718 + 1406 0001:000E5727 1407 0001:000E5741 1410 0001:000E5748 1411 0001:000E5754 + 1412 0001:000E575B 1415 0001:000E5760 1416 0001:000E5770 1417 0001:000E5777 + 1420 0001:000E577C 1421 0001:000E5785 1422 0001:000E5794 1425 0001:000E5798 + 1426 0001:000E57A1 1429 0001:000E5803 1435 0001:000E5810 1436 0001:000E5819 + 1437 0001:000E581D 1438 0001:000E5828 1440 0001:000E582E 1441 0001:000E583C + 1445 0001:000E5842 1448 0001:000E584C 1449 0001:000E585A 1451 0001:000E5860 + 1446 0001:000E586C 1454 0001:000E5882 1457 0001:000E5888 1458 0001:000E5897 + 1459 0001:000E589F 1462 0001:000E58A8 1463 0001:000E58B7 1464 0001:000E58BF + 1467 0001:000E58C8 1468 0001:000E58D7 1471 0001:000E58E0 1472 0001:000E58E9 + 1473 0001:000E58F1 1476 0001:000E58F8 1477 0001:000E5907 1478 0001:000E590E + 1481 0001:000E5914 1482 0001:000E591B 1483 0001:000E5925 1484 0001:000E592D + 1487 0001:000E5930 1488 0001:000E5937 1489 0001:000E5941 1490 0001:000E5949 + 1493 0001:000E594C 1494 0001:000E5958 1495 0001:000E5960 1496 0001:000E596C + 1497 0001:000E598D 1500 0001:000E5994 1501 0001:000E599B 1502 0001:000E59A8 + 1503 0001:000E59B5 1504 0001:000E59BD 1509 0001:000E59C0 1512 0001:000E59CC + 1513 0001:000E59D4 1514 0001:000E5A0A 1516 0001:000E5A12 1521 0001:000E5A18 + 1524 0001:000E5A24 1525 0001:000E5A2C 1526 0001:000E5A62 1528 0001:000E5A6A + 1533 0001:000E5A70 1536 0001:000E5A7C 1537 0001:000E5A84 1538 0001:000E5ABA + 1540 0001:000E5AC2 1545 0001:000E5AC8 1548 0001:000E5AD4 1549 0001:000E5ADC + 1550 0001:000E5B12 1552 0001:000E5B1A 1557 0001:000E5B20 1558 0001:000E5B24 + 1559 0001:000E5B30 1561 0001:000E5B57 1562 0001:000E5B6B 1565 0001:000E5B70 + 1566 0001:000E5B74 1567 0001:000E5B80 1569 0001:000E5BA7 1570 0001:000E5BBB + 1573 0001:000E5BC0 1574 0001:000E5BCD 1575 0001:000E5BD8 1578 0001:000E5BE4 + 1579 0001:000E5C0C 1581 0001:000E5C34 1586 0001:000E5C64 1587 0001:000E5C74 + 1588 0001:000E5C80 1590 0001:000E5C8C 1591 0001:000E5CA1 1593 0001:000E5CB6 + 1594 0001:000E5CCE 1595 0001:000E5CE6 1596 0001:000E5CFE 1597 0001:000E5D03 + 1598 0001:000E5D0E 1600 0001:000E5D16 1601 0001:000E5D1C 1605 0001:000E5D24 + 1606 0001:000E5D2A 1608 0001:000E5D30 1609 0001:000E5D3B 1610 0001:000E5D4D + 1611 0001:000E5D59 1612 0001:000E5D65 1613 0001:000E5D6D 1616 0001:000E5D74 + 1617 0001:000E5D83 1620 0001:000E5D88 1621 0001:000E5D98 1622 0001:000E5DA4 + 1623 0001:000E5DB9 1624 0001:000E5DD1 1625 0001:000E5DE9 1626 0001:000E5E01 + 1627 0001:000E5E13 1628 0001:000E5E1F 1629 0001:000E5E2B 1630 0001:000E5E33 + 1633 0001:000E5E38 1634 0001:000E5E47 1639 0001:000E5E4C 1640 0001:000E5E5B + 1641 0001:000E5E66 1642 0001:000E5E7C 1643 0001:000E5E90 1644 0001:000E5EA2 + 1648 0001:000E5EA8 1649 0001:000E5EB7 1650 0001:000E5ECD 1653 0001:000E5ED4 + 1654 0001:000E5EE3 1655 0001:000E5EEA 1658 0001:000E5EF0 1659 0001:000E5EFF + 1667 0001:000E5F04 1668 0001:000E5F14 1669 0001:000E5F20 1671 0001:000E5F26 + 1672 0001:000E5F31 1674 0001:000E5F56 1675 0001:000E5F61 1678 0001:000E5F68 + 1679 0001:000E5F71 1680 0001:000E5FB8 1684 0001:000E5FBC 1685 0001:000E5FBE + 1686 0001:000E5FBF 1687 0001:000E5FC1 1688 0001:000E5FC3 1689 0001:000E5FC5 + 1690 0001:000E5FC6 1697 0001:000E5FC8 1698 0001:000E5FC9 1699 0001:000E5FCB + 1700 0001:000E5FCE 1701 0001:000E5FD1 1702 0001:000E5FD6 1704 0001:000E5FD8 + 1705 0001:000E5FDE 1706 0001:000E5FDF 1707 0001:000E5FE4 1708 0001:000E5FE6 + 1710 0001:000E5FEB 1711 0001:000E5FED 1712 0001:000E5FEF 1713 0001:000E5FF0 + 1714 0001:000E5FF2 1715 0001:000E5FF5 1716 0001:000E5FF6 1717 0001:000E5FF7 + 1731 0001:000E5FF8 1732 0001:000E5FF9 1733 0001:000E5FFC 1734 0001:000E5FFF + 1735 0001:000E6001 1736 0001:000E6003 1737 0001:000E6005 1738 0001:000E6007 + 1740 0001:000E600B 1741 0001:000E600C 1774 0001:000E6010 1775 0001:000E6021 + 1777 0001:000E6033 1779 0001:000E603F 1780 0001:000E6059 1781 0001:000E605F + 1783 0001:000E6072 1784 0001:000E6083 1786 0001:000E6091 1787 0001:000E6096 + 1788 0001:000E60A4 1789 0001:000E60A9 1791 0001:000E60D4 1792 0001:000E60E0 + 1795 0001:000E6106 1796 0001:000E6125 1797 0001:000E6137 1798 0001:000E614C + 1799 0001:000E6163 1800 0001:000E6172 1802 0001:000E6177 1803 0001:000E6186 + 1804 0001:000E6198 1805 0001:000E619C 1806 0001:000E61AB 1807 0001:000E61BD + 1811 0001:000E61C1 1812 0001:000E61C4 1813 0001:000E61D8 1814 0001:000E61E9 + 1815 0001:000E61EF 1817 0001:000E620E 1820 0001:000E623D 1822 0001:000E6248 + 1823 0001:000E6257 1824 0001:000E6272 1826 0001:000E6278 1827 0001:000E6291 + 1831 0001:000E62A9 1832 0001:000E62BF 1834 0001:000E62D8 1843 0001:000E62E0 + 1844 0001:000E62F2 1845 0001:000E62F8 1848 0001:000E6303 1849 0001:000E6309 + 1850 0001:000E630F 1853 0001:000E6328 1854 0001:000E633C 1856 0001:000E636B + 1857 0001:000E6371 1858 0001:000E637F 1859 0001:000E63A7 1860 0001:000E63AB + 1861 0001:000E63C0 1862 0001:000E63C4 1865 0001:000E63F8 1866 0001:000E6417 + 1868 0001:000E6426 1869 0001:000E6437 1873 0001:000E6463 1874 0001:000E6473 + 1877 0001:000E6485 1878 0001:000E6493 1880 0001:000E649E 1881 0001:000E64BA + 1884 0001:000E6502 1885 0001:000E650C 1886 0001:000E6518 1887 0001:000E6523 + 1888 0001:000E652F 1889 0001:000E6538 1890 0001:000E655F 1893 0001:000E6586 + 1899 0001:000E65E2 1900 0001:000E65F5 1903 0001:000E6612 1904 0001:000E661C + 1905 0001:000E6622 1906 0001:000E6628 1911 0001:000E6643 1912 0001:000E664F + 1851 0001:000E6652 1914 0001:000E666F 1915 0001:000E667B 1846 0001:000E667E + 1917 0001:000E669B 1919 0001:000E66B0 1920 0001:000E66BE 1922 0001:000E66D8 + 1923 0001:000E66EC 1926 0001:000E66F7 1930 0001:000E6707 1931 0001:000E6711 + 1933 0001:000E6749 1934 0001:000E6759 1935 0001:000E6767 1937 0001:000E6777 + 1938 0001:000E6793 1940 0001:000E67EF 1943 0001:000E6853 1946 0001:000E68B8 + 1950 0001:000E6927 1951 0001:000E692F 1955 0001:000E6937 1956 0001:000E6942 + 1957 0001:000E694A 1958 0001:000E6952 1960 0001:000E695E 1961 0001:000E6968 + 1963 0001:000E6972 1965 0001:000E697E 1966 0001:000E6985 1968 0001:000E698C + 1970 0001:000E69B3 1972 0001:000E69EB 1974 0001:000E6A1B 1977 0001:000E6A59 + 1980 0001:000E6A9A 1981 0001:000E6ABE 1982 0001:000E6ACE 1985 0001:000E6AE4 + 1986 0001:000E6AF4 1987 0001:000E6B00 1988 0001:000E6B0C 1993 0001:000E6B27 + 1995 0001:000E6B2F 1996 0001:000E6B46 1998 0001:000E6B72 2000 0001:000E6B7A + 2001 0001:000E6B91 2005 0001:000E6BBD 2006 0001:000E6BD7 2015 0001:000E6BE8 + 2018 0001:000E6BF5 2020 0001:000E6C00 2021 0001:000E6C05 2022 0001:000E6C0F + 2026 0001:000E6C16 2027 0001:000E6C1F 2028 0001:000E6C29 2030 0001:000E6C32 + 2031 0001:000E6C39 2033 0001:000E6C4A 2034 0001:000E6C5E 2036 0001:000E6C66 + 2037 0001:000E6C6C 2039 0001:000E6C6E 2031 0001:000E6C71 2041 0001:000E6C79 + 2047 0001:000E6C80 2048 0001:000E6C8D 2051 0001:000E6C9E 2053 0001:000E6CA9 + 2054 0001:000E6CAE 2055 0001:000E6CB8 2059 0001:000E6CC8 2060 0001:000E6CD1 + 2061 0001:000E6CDB 2063 0001:000E6CE4 2064 0001:000E6CEB 2066 0001:000E6CFC + 2067 0001:000E6D10 2069 0001:000E6D18 2070 0001:000E6D1E 2072 0001:000E6D20 + 2064 0001:000E6D23 2074 0001:000E6D2B 2076 0001:000E6D30 2077 0001:000E6D40 + 2078 0001:000E6D50 2080 0001:000E6D64 2081 0001:000E6D76 2082 0001:000E6D8C + 2085 0001:000E6D94 2086 0001:000E6DA0 2087 0001:000E6DBE 2095 0001:000E6DC4 + 2098 0001:000E6DD1 2099 0001:000E6DDA 2100 0001:000E6DE6 2101 0001:000E6DF2 + 2102 0001:000E6DFE 2104 0001:000E6E16 2105 0001:000E6E2D 2107 0001:000E6E40 + 2108 0001:000E6E4C 2110 0001:000E6E4E 2111 0001:000E6E57 2112 0001:000E6E63 + 2102 0001:000E6E66 2114 0001:000E6E6B 2116 0001:000E6E70 2117 0001:000E6E7F + 2118 0001:000E6E8A 2119 0001:000E6E97 2120 0001:000E6EA7 2128 0001:000E6EB0 + 2131 0001:000E6EC0 2132 0001:000E6EDD 2134 0001:000E6EE6 2136 0001:000E6EF7 + 2137 0001:000E6EFF 2138 0001:000E6F12 2137 0001:000E6F29 2140 0001:000E6F2E + 2141 0001:000E6F37 2142 0001:000E6F40 2143 0001:000E6F49 2145 0001:000E6F58 + 2147 0001:000E6F64 2148 0001:000E6F70 2150 0001:000E6FA7 2152 0001:000E6FE1 + 2162 0001:000E6FF0 2163 0001:000E6FFD 2166 0001:000E7003 2167 0001:000E7011 + 2169 0001:000E7025 2170 0001:000E7034 2172 0001:000E703A 2173 0001:000E7040 + 2174 0001:000E7048 2176 0001:000E7053 2177 0001:000E706B 2178 0001:000E7071 + 2180 0001:000E7073 2182 0001:000E7079 2167 0001:000E707C 2184 0001:000E7084 + 2186 0001:000E708C 2187 0001:000E709B 2188 0001:000E70AF 2189 0001:000E70C8 + 2199 0001:000E70D0 2200 0001:000E70E1 2201 0001:000E70FA 2204 0001:000E710B + 2205 0001:000E7114 2206 0001:000E711C 2207 0001:000E7121 2209 0001:000E7127 + 2210 0001:000E712E 2212 0001:000E713B 2214 0001:000E7153 2215 0001:000E7162 + 2216 0001:000E716D 2218 0001:000E7186 2219 0001:000E7191 2220 0001:000E719C + 2221 0001:000E71AA 2222 0001:000E71B5 2224 0001:000E71B7 2225 0001:000E71BF + 2212 0001:000E71C2 2226 0001:000E71C7 2229 0001:000E71EE 2230 0001:000E71F9 + 2231 0001:000E7207 2232 0001:000E7218 2235 0001:000E7227 2238 0001:000E7230 + 2240 0001:000E7235 2241 0001:000E7248 2243 0001:000E725D 2244 0001:000E727E + 2247 0001:000E7284 2249 0001:000E7289 2250 0001:000E729C 2252 0001:000E72B1 + 2253 0001:000E72D2 2258 0001:000E72D8 2259 0001:000E72E7 2260 0001:000E72ED + 2261 0001:000E72F6 2262 0001:000E7304 2263 0001:000E730D 2264 0001:000E731F + 2267 0001:000E7336 2268 0001:000E7344 2269 0001:000E7352 2271 0001:000E7363 + 2272 0001:000E736E 2274 0001:000E737F 2276 0001:000E7390 2277 0001:000E739B + 2280 0001:000E73AD 2286 0001:000E73BC 2287 0001:000E73C8 2289 0001:000E73D2 + 2290 0001:000E73E4 2291 0001:000E73F4 2292 0001:000E740A 2293 0001:000E7428 + 2294 0001:000E7450 2298 0001:000E7483 2299 0001:000E748F 2300 0001:000E74A1 + 2301 0001:000E74B7 2302 0001:000E74D5 2303 0001:000E74FD 2305 0001:000E752B + 2316 0001:000E7530 2317 0001:000E753F 2319 0001:000E7553 2320 0001:000E7570 + 2321 0001:000E757C 2322 0001:000E7588 2323 0001:000E759F 2329 0001:000E75A4 + 2330 0001:000E75AB 2331 0001:000E75BA 2332 0001:000E75E2 2333 0001:000E75F1 + 2334 0001:000E7612 2335 0001:000E7621 2336 0001:000E7649 2337 0001:000E7661 + 2338 0001:000E768B 2339 0001:000E76B5 2340 0001:000E76D7 2341 0001:000E76EC + 2342 0001:000E770E 2343 0001:000E771C 2346 0001:000E7753 2347 0001:000E7760 + 2349 0001:000E776F 2350 0001:000E777D 2351 0001:000E7792 2353 0001:000E77A8 + 2354 0001:000E77B3 2355 0001:000E77CE 2357 0001:000E77D4 2358 0001:000E77E6 + 2359 0001:000E77F2 2360 0001:000E77FD 2361 0001:000E7809 2362 0001:000E7815 + 2363 0001:000E7821 2364 0001:000E782D 2365 0001:000E7848 2366 0001:000E7863 + 2367 0001:000E7871 2370 0001:000E7887 2371 0001:000E7893 2372 0001:000E789F + 2373 0001:000E78A6 2374 0001:000E78AE 2376 0001:000E78B8 2384 0001:000E78C0 + 2385 0001:000E78CC 2386 0001:000E78DC 2389 0001:000E78E7 2392 0001:000E7921 + 2393 0001:000E7936 2394 0001:000E7948 2395 0001:000E7953 2396 0001:000E7973 + 2397 0001:000E7989 2398 0001:000E79AB 2399 0001:000E79C2 2402 0001:000E79CD + 2407 0001:000E79D4 2408 0001:000E79E1 2409 0001:000E79F0 2410 0001:000E79FE + 2412 0001:000E7A0A 2413 0001:000E7A18 2414 0001:000E7A25 2415 0001:000E7A32 + 2416 0001:000E7A42 2417 0001:000E7A50 2419 0001:000E7A5C 2421 0001:000E7A6C + 2422 0001:000E7A83 2426 0001:000E7AA2 2427 0001:000E7AB5 2432 0001:000E7ACE + 2433 0001:000E7AE1 2436 0001:000E7B05 2440 0001:000E7B25 2442 0001:000E7B35 + 2449 0001:000E7B3C 2450 0001:000E7B46 2451 0001:000E7B55 2452 0001:000E7B63 + 2454 0001:000E7B6F 2455 0001:000E7B7D 2456 0001:000E7B8B 2457 0001:000E7B98 + 2458 0001:000E7BA5 2459 0001:000E7BB5 2461 0001:000E7BC1 2462 0001:000E7BD8 + 2463 0001:000E7BEC 2464 0001:000E7BF4 2465 0001:000E7BFA 2466 0001:000E7C07 + 2470 0001:000E7C21 2471 0001:000E7C38 2472 0001:000E7C4C 2473 0001:000E7C5C + 2475 0001:000E7C64 2477 0001:000E7C6C 2478 0001:000E7C7C 2480 0001:000E7C84 + 2481 0001:000E7C8A 2482 0001:000E7C97 2485 0001:000E7CB9 2489 0001:000E7CDF + 2491 0001:000E7CEF 2494 0001:000E7CF4 2495 0001:000E7D04 2496 0001:000E7D18 + 2497 0001:000E7D20 2498 0001:000E7D2C 2506 0001:000E7D34 2509 0001:000E7D41 + 2510 0001:000E7D46 2511 0001:000E7D51 2514 0001:000E7D58 2515 0001:000E7D63 + 2516 0001:000E7D6C 2518 0001:000E7D75 2520 0001:000E7D87 2521 0001:000E7D9B + 2523 0001:000E7DA6 2524 0001:000E7DAB 2526 0001:000E7DAD 2518 0001:000E7DB0 + 2528 0001:000E7DB8 2533 0001:000E7DC0 2534 0001:000E7DD0 2537 0001:000E7DD4 + 2538 0001:000E7DEA 2540 0001:000E7DF5 2541 0001:000E7E07 2544 0001:000E7E0C + 2545 0001:000E7E15 2547 0001:000E7E20 2548 0001:000E7E29 2549 0001:000E7E38 + 2550 0001:000E7E4C 2553 0001:000E7E4F 2554 0001:000E7E64 2555 0001:000E7E79 + 2556 0001:000E7E81 2558 0001:000E7E99 2559 0001:000E7EAA 2560 0001:000E7EB7 + 2561 0001:000E7EC2 2563 0001:000E7ED5 2564 0001:000E7EDC 2569 0001:000E7EE4 + 2570 0001:000E7EFB 2571 0001:000E7F0A 2573 0001:000E7F22 2576 0001:000E7F2D + 2577 0001:000E7F3A 2579 0001:000E7F47 2582 0001:000E7F66 2586 0001:000E7F84 + 2588 0001:000E7FA6 2589 0001:000E7FAE 2590 0001:000E7FC1 2592 0001:000E7FD2 + 2595 0001:000E7FDC 2596 0001:000E7FE3 2597 0001:000E7FF5 2598 0001:000E8007 + 2599 0001:000E8025 2600 0001:000E8043 2601 0001:000E8062 2606 0001:000E8068 + 2607 0001:000E8077 2608 0001:000E807D 2609 0001:000E8083 2610 0001:000E8089 + 2611 0001:000E808F 2612 0001:000E809A 2639 0001:000E80A0 2640 0001:000E80A7 + 2641 0001:000E80AF 2646 0001:000E80B4 2647 0001:000E80C8 2648 0001:000E80D4 + 2649 0001:000E80E4 2650 0001:000E80F8 2660 0001:000E8100 2661 0001:000E8104 + 2662 0001:000E811E 2663 0001:000E8130 2666 0001:000E8134 2667 0001:000E8138 + 2668 0001:000E814C 2669 0001:000E8158 2674 0001:000E815C 2675 0001:000E8162 + 2676 0001:000E8183 2677 0001:000E818C 2678 0001:000E81A0 2679 0001:000E81B2 + 2680 0001:000E81C2 2685 0001:000E81C8 2686 0001:000E81CE 2688 0001:000E81DC + 2689 0001:000E81E5 2690 0001:000E81F9 2691 0001:000E820B 2692 0001:000E821B + 2695 0001:000E8220 2696 0001:000E822E 2697 0001:000E8234 2699 0001:000E826A + 2701 0001:000E8275 2703 0001:000E8280 2705 0001:000E8295 2707 0001:000E82AA + 2709 0001:000E82C6 2710 0001:000E82DF 2712 0001:000E8319 2715 0001:000E8353 + 2717 0001:000E8362 2719 0001:000E8372 2727 0001:000E8378 2728 0001:000E8385 + 2729 0001:000E8394 2730 0001:000E83A8 2731 0001:000E83BC 2732 0001:000E83EF + 2733 0001:000E8413 2734 0001:000E8434 2735 0001:000E8442 2738 0001:000E8450 + 2740 0001:000E8465 2741 0001:000E8478 2743 0001:000E8480 2745 0001:000E8492 + 2746 0001:000E8499 2748 0001:000E84A2 2749 0001:000E84A8 2750 0001:000E84AF + 2751 0001:000E84BA 2752 0001:000E84C3 2754 0001:000E84D4 2755 0001:000E84E3 + 2756 0001:000E84F2 2757 0001:000E8505 2758 0001:000E8514 2759 0001:000E8523 + 2760 0001:000E8531 2761 0001:000E853F 2763 0001:000E854A 2767 0001:000E855C + 2768 0001:000E856F 2769 0001:000E8585 2771 0001:000E858E 2772 0001:000E8595 + 2773 0001:000E85C3 2774 0001:000E85CE 2775 0001:000E85D9 2777 0001:000E85EB + 2778 0001:000E85F8 2780 0001:000E85FD 2781 0001:000E860A 2782 0001:000E8617 + 2783 0001:000E863E 2784 0001:000E8653 2786 0001:000E8659 2787 0001:000E8662 + 2788 0001:000E8672 2792 0001:000E86A4 2793 0001:000E86AD 2794 0001:000E86BF + 2796 0001:000E86EF 2797 0001:000E870D 2798 0001:000E872B 2799 0001:000E8747 + 2800 0001:000E8755 2805 0001:000E875C 2806 0001:000E876B 2809 0001:000E877F + 2810 0001:000E8785 2811 0001:000E878B 2813 0001:000E8793 2814 0001:000E8799 + 2816 0001:000E879F 2817 0001:000E87B3 2818 0001:000E87BB 2819 0001:000E87C2 + 2821 0001:000E87C7 2826 0001:000E87D0 2827 0001:000E87DC 2829 0001:000E87F9 + 2830 0001:000E8804 2831 0001:000E881B 2832 0001:000E883A 2833 0001:000E8845 + 2835 0001:000E8852 2836 0001:000E8869 2843 0001:000E8878 2844 0001:000E889B + 2845 0001:000E88C3 2846 0001:000E88D8 2848 0001:000E88F1 2849 0001:000E88FC + 2850 0001:000E8911 2851 0001:000E891D 2852 0001:000E8929 2853 0001:000E893D + 2855 0001:000E894F 2856 0001:000E896D 2858 0001:000E898C 2859 0001:000E89AA + 2860 0001:000E89C1 2861 0001:000E89CC 2862 0001:000E89DA 2864 0001:000E8A10 + 2869 0001:000E8A18 2870 0001:000E8A27 2871 0001:000E8A43 2872 0001:000E8A4E + 2873 0001:000E8A63 2874 0001:000E8A6F 2875 0001:000E8A7B 2876 0001:000E8A86 + 2879 0001:000E8A8C 2880 0001:000E8A9B 2881 0001:000E8AA3 2884 0001:000E8AAC + 2885 0001:000E8ABB 2886 0001:000E8AC3 2893 0001:000E8ACC 2894 0001:000E8AD8 + 2895 0001:000E8AE4 2896 0001:000E8AF4 2897 0001:000E8B0F 2898 0001:000E8B1D + 2899 0001:000E8B22 2898 0001:000E8B3F 2900 0001:000E8B45 2907 0001:000E8B4C + 2910 0001:000E8B5C 2911 0001:000E8B63 2912 0001:000E8B6F 2914 0001:000E8B73 + 2917 0001:000E8B7D 2918 0001:000E8B8D 2921 0001:000E8BAD 2922 0001:000E8BDD + 2924 0001:000E8BE0 2926 0001:000E8C09 2929 0001:000E8C0F 2930 0001:000E8C2D + 2936 0001:000E8C56 2937 0001:000E8C74 2939 0001:000E8C98 2940 0001:000E8CB6 + 2942 0001:000E8CDA 2944 0001:000E8CFC 2947 0001:000E8D22 2948 0001:000E8D2E + 2949 0001:000E8D44 2954 0001:000E8D4C 2955 0001:000E8D5B 2956 0001:000E8D66 + 2957 0001:000E8D78 2966 0001:000E8D7C 2967 0001:000E8D8C 2970 0001:000E8D90 + 2972 0001:000E8D98 2973 0001:000E8D9E 2977 0001:000E8DA6 2978 0001:000E8DAC + 2980 0001:000E8DB2 2981 0001:000E8DB9 2983 0001:000E8DCB 2984 0001:000E8DE1 + 2987 0001:000E8DF4 2988 0001:000E8DFF 2990 0001:000E8E01 2981 0001:000E8E04 + 2991 0001:000E8E09 2993 0001:000E8E16 2994 0001:000E8E1D 2999 0001:000E8E24 + 3000 0001:000E8E31 3001 0001:000E8E39 3002 0001:000E8E44 3004 0001:000E8E85 + 3005 0001:000E8E97 3006 0001:000E8EA3 3015 0001:000E8EA8 3016 0001:000E8EB6 + 3017 0001:000E8ED0 3018 0001:000E8EEC 3019 0001:000E8EFE 3020 0001:000E8F19 + 3021 0001:000E8F35 3023 0001:000E8F3C 3024 0001:000E8F45 3025 0001:000E8F65 + 3026 0001:000E8F70 3027 0001:000E8F7D 3028 0001:000E8F8A 3029 0001:000E8FA8 + 3030 0001:000E8FBD 3032 0001:000E8FC9 3033 0001:000E8FD7 3034 0001:000E8FE5 + 3035 0001:000E9002 3037 0001:000E901C 3040 0001:000E9030 3042 0001:000E9062 + 3043 0001:000E9071 3045 0001:000E90A5 3055 0001:000E90AC 3056 0001:000E90AF + 3058 0001:000E90B8 3059 0001:000E90C6 3061 0001:000E90CD 3066 0001:000E90D0 + 3067 0001:000E90DA 3068 0001:000E90DE 3072 0001:000E9119 3073 0001:000E9137 + 3075 0001:000E9144 3078 0001:000E9148 3079 0001:000E914E 3080 0001:000E916C + 3081 0001:000E917F 3082 0001:000E9192 3083 0001:000E91BC 3087 0001:000E91C0 + 3088 0001:000E91CF 3089 0001:000E91D9 3090 0001:000E91E3 3092 0001:000E9201 + 3093 0001:000E921D 3095 0001:000E9229 3096 0001:000E9233 3098 0001:000E923D + 3103 0001:000E9244 3104 0001:000E9249 3105 0001:000E925B 3107 0001:000E926A + 3108 0001:000E9289 3109 0001:000E9294 3112 0001:000E92B1 3113 0001:000E92E2 + 3116 0001:000E92E8 3117 0001:000E92EB 3118 0001:000E92F7 3119 0001:000E9328 + 3121 0001:000E932C 3122 0001:000E9335 3125 0001:000E9365 3126 0001:000E9370 + 3128 0001:000E937B 3129 0001:000E9388 3130 0001:000E9392 3131 0001:000E93A1 + 3133 0001:000E93AB 3135 0001:000E93C0 3136 0001:000E93CC 3137 0001:000E93D6 + 3138 0001:000E93DA 3140 0001:000E93E8 3141 0001:000E93EF 3142 0001:000E93FA + 3143 0001:000E9401 3145 0001:000E940E 3146 0001:000E9419 3149 0001:000E942D + 3151 0001:000E9441 3152 0001:000E9449 3153 0001:000E9465 3154 0001:000E9470 + 3157 0001:000E9474 3158 0001:000E947D 3159 0001:000E9492 3162 0001:000E9498 + 3163 0001:000E94A4 3166 0001:000E94AF 3167 0001:000E94B9 3168 0001:000E94D2 + 3169 0001:000E94ED 3170 0001:000E94F7 3171 0001:000E9503 3173 0001:000E9519 + 3174 0001:000E9523 3177 0001:000E952F 3179 0001:000E9539 3190 0001:000E9540 + 3191 0001:000E9543 3192 0001:000E9554 3193 0001:000E956C 3194 0001:000E957F + 3195 0001:000E9597 3196 0001:000E95AA 3199 0001:000E95AC 3202 0001:000E95BB + 3203 0001:000E95CF 3204 0001:000E95E1 3205 0001:000E95F7 3207 0001:000E960B + 3209 0001:000E9614 3210 0001:000E9627 3211 0001:000E9635 3212 0001:000E963C + 3213 0001:000E965D 3214 0001:000E966D 3216 0001:000E9679 3217 0001:000E9683 + 3218 0001:000E969B 3219 0001:000E96B0 3220 0001:000E96B7 3221 0001:000E96C1 + 3222 0001:000E96FA 3223 0001:000E9702 3225 0001:000E970A 3227 0001:000E971A + 3228 0001:000E9729 3231 0001:000E973A 3233 0001:000E974A 3234 0001:000E9759 + 3236 0001:000E976A 3237 0001:000E977B 3240 0001:000E9786 3241 0001:000E9795 + 3242 0001:000E97A1 3246 0001:000E97B8 3247 0001:000E97C8 3248 0001:000E97D5 + 3252 0001:000E97EC 3253 0001:000E9849 3254 0001:000E9851 3256 0001:000E9859 + 3257 0001:000E9865 3258 0001:000E9873 3260 0001:000E9884 3261 0001:000E9890 + 3262 0001:000E989E 3265 0001:000E98AF 3266 0001:000E98B5 3270 0001:000E98C0 + 3271 0001:000E98C6 3274 0001:000E98D1 3275 0001:000E98DD 3276 0001:000E98EE + 3278 0001:000E9902 3279 0001:000E990E 3280 0001:000E9920 3282 0001:000E9935 + 3284 0001:000E993F 3286 0001:000E9945 3287 0001:000E994B 3289 0001:000E995C + 3290 0001:000E996C 3291 0001:000E996F 3293 0001:000E998A 3297 0001:000E9994 + 3298 0001:000E999A 3300 0001:000E99AB 3301 0001:000E99BA 3302 0001:000E99BD + 3305 0001:000E99D7 3306 0001:000E9A00 3308 0001:000E9A0A 3309 0001:000E9A1A + 3310 0001:000E9A2A 3311 0001:000E9A5A 3312 0001:000E9A84 3313 0001:000E9AA0 + 3314 0001:000E9AAE 3315 0001:000E9AE3 3316 0001:000E9B02 3317 0001:000E9B1D + 3318 0001:000E9B2E 3321 0001:000E9B38 3322 0001:000E9B44 3323 0001:000E9B4F + 3325 0001:000E9B63 3326 0001:000E9B6F 3327 0001:000E9B79 3328 0001:000E9B81 + 3330 0001:000E9B87 3338 0001:000E9B8C 3339 0001:000E9B9E 3340 0001:000E9BA2 + 3341 0001:000E9BAA 3344 0001:000E9BCF 3345 0001:000E9BDA 3347 0001:000E9BE6 + 3348 0001:000E9BF0 3351 0001:000E9BF5 3352 0001:000E9C01 3353 0001:000E9C12 + 3355 0001:000E9C1C 3357 0001:000E9C27 3359 0001:000E9C60 3361 0001:000E9C6C + 3362 0001:000E9C88 3363 0001:000E9CA2 3364 0001:000E9CAD 3366 0001:000E9CB2 + 3367 0001:000E9CC8 3369 0001:000E9CEC 3371 0001:000E9CF8 3372 0001:000E9D14 + 3375 0001:000E9D1E 3376 0001:000E9D30 3378 0001:000E9D38 3382 0001:000E9D49 + 3383 0001:000E9D53 3384 0001:000E9D67 3385 0001:000E9D6D 3387 0001:000E9D7D + 3390 0001:000E9D94 3393 0001:000E9DD2 3394 0001:000E9DDE 3395 0001:000E9DF0 + 3397 0001:000E9E28 3398 0001:000E9E32 3399 0001:000E9E3D 3400 0001:000E9E45 + 3401 0001:000E9E49 3404 0001:000E9E62 3407 0001:000E9EA0 3408 0001:000E9EAC + 3409 0001:000E9EBE 3411 0001:000E9EF2 3412 0001:000E9EFC 3413 0001:000E9F07 + 3414 0001:000E9F0F 3415 0001:000E9F13 3419 0001:000E9F27 3420 0001:000E9F35 + 3422 0001:000E9F5A 3424 0001:000E9F6D 3430 0001:000E9F78 3431 0001:000E9F87 + 3432 0001:000E9F92 3435 0001:000E9FB0 3436 0001:000E9FC6 3439 0001:000EA004 + 3441 0001:000EA01E 3442 0001:000EA03E 3444 0001:000EA04E 3446 0001:000EA07A + 3451 0001:000EA0A6 3452 0001:000EA0B1 3453 0001:000EA0BD 3454 0001:000EA0D4 + 3455 0001:000EA0E9 3458 0001:000EA0F4 3459 0001:000EA106 3470 0001:000EA10C + 3473 0001:000EA116 3474 0001:000EA11F 3475 0001:000EA13D 3474 0001:000EA154 + 3476 0001:000EA159 3478 0001:000EA16E 3480 0001:000EA174 3481 0001:000EA184 + 3482 0001:000EA192 3485 0001:000EA1B7 3486 0001:000EA1CD 3487 0001:000EA1DD + 3488 0001:000EA1E5 3492 0001:000EA1F6 3493 0001:000EA201 3494 0001:000EA20C + 3495 0001:000EA228 3496 0001:000EA242 3498 0001:000EA24E 3499 0001:000EA25B + 3501 0001:000EA265 3502 0001:000EA279 3507 0001:000EA286 3508 0001:000EA293 + 3510 0001:000EA29D 3511 0001:000EA2B1 3517 0001:000EA2BE 3518 0001:000EA2C6 + 3519 0001:000EA2D6 3522 0001:000EA31E 3523 0001:000EA338 3525 0001:000EA340 + 3529 0001:000EA34D 3530 0001:000EA355 3531 0001:000EA365 3534 0001:000EA3AD + 3535 0001:000EA3C7 3537 0001:000EA3CF 3540 0001:000EA3D9 3542 0001:000EA3E1 + 3544 0001:000EA404 3546 0001:000EA416 3551 0001:000EA420 3552 0001:000EA430 + 3553 0001:000EA446 3554 0001:000EA454 3558 0001:000EA4A7 3559 0001:000EA4AF + 3561 0001:000EA4BA 3563 0001:000EA4CB 3564 0001:000EA4DC 3565 0001:000EA4E7 + 3567 0001:000EA4F2 3569 0001:000EA4FD 3571 0001:000EA508 3574 0001:000EA52B + 3575 0001:000EA53F 3576 0001:000EA54A 3578 0001:000EA555 3580 0001:000EA560 + 3581 0001:000EA572 3583 0001:000EA5CA 3584 0001:000EA5D6 3586 0001:000EA5DE + 3589 0001:000EA5E8 3590 0001:000EA5F4 3591 0001:000EA60E 3593 0001:000EA61C + 3594 0001:000EA632 3597 0001:000EA638 3598 0001:000EA644 3599 0001:000EA65E + 3601 0001:000EA66C 3602 0001:000EA682 3621 0001:000EA688 3622 0001:000EA694 + 3623 0001:000EA6AD 3626 0001:000EA6B4 3627 0001:000EA6C0 3628 0001:000EA6D2 + 3629 0001:000EA6E8 3634 0001:000EA6EC 3635 0001:000EA6F5 3636 0001:000EA700 + 3637 0001:000EA713 3642 0001:000EA718 3643 0001:000EA721 3644 0001:000EA72C + 3645 0001:000EA73F 3648 0001:000EA744 3649 0001:000EA750 3651 0001:000EA75E + 3652 0001:000EA76A 3654 0001:000EA772 3657 0001:000EA778 3658 0001:000EA784 + 3659 0001:000EA7A8 3662 0001:000EA7AC 3663 0001:000EA7B8 3665 0001:000EA7C6 + 3666 0001:000EA7D3 3667 0001:000EA7ED 3668 0001:000EA801 3670 0001:000EA80D + 3671 0001:000EA820 3674 0001:000EA828 3677 0001:000EA82C 3678 0001:000EA850 + 3679 0001:000EA85C 3680 0001:000EA87B 3681 0001:000EA89E 3683 0001:000EA8B3 + 3684 0001:000EA8D2 3685 0001:000EA8E5 3687 0001:000EA90E 3690 0001:000EA914 + 3691 0001:000EA921 3692 0001:000EA93E 3693 0001:000EA94A 3694 0001:000EA956 + 3695 0001:000EA95E 3698 0001:000EA964 3699 0001:000EA971 3700 0001:000EA98E + 3701 0001:000EA99A 3702 0001:000EA9A6 3703 0001:000EA9AE 3706 0001:000EA9B4 + 3707 0001:000EA9C0 3709 0001:000EA9CE 3710 0001:000EA9DA 3712 0001:000EA9E2 + 3715 0001:000EA9E8 3716 0001:000EAA0A 3718 0001:000EAA18 3719 0001:000EAA33 + 3720 0001:000EAA56 3721 0001:000EAA62 3722 0001:000EAA6A 3724 0001:000EAA94 + 3727 0001:000EAA98 3728 0001:000EAABA 3730 0001:000EAAC8 3731 0001:000EAAE3 + 3732 0001:000EAB06 3733 0001:000EAB12 3734 0001:000EAB1A 3736 0001:000EAB44 + 3739 0001:000EAB48 3740 0001:000EAB54 3741 0001:000EAB5A 3744 0001:000EAB64 + 3745 0001:000EAB6C 3747 0001:000EAB86 3750 0001:000EAB8C 3751 0001:000EAB98 + 3753 0001:000EABA6 3754 0001:000EABB2 3756 0001:000EABBA 3764 0001:000EABC0 + 3765 0001:000EABCD 3767 0001:000EABDD 3768 0001:000EABE3 3769 0001:000EABE9 + 3770 0001:000EABF7 3771 0001:000EAC03 3772 0001:000EAC09 3773 0001:000EAC13 + 3774 0001:000EAC1B 3775 0001:000EAC3F 3777 0001:000EAC47 3780 0001:000EAC4C + 3781 0001:000EAC58 3782 0001:000EAC7C 3785 0001:000EAC80 3786 0001:000EAC8C + 3788 0001:000EAC9A 3789 0001:000EACA7 3790 0001:000EACC1 3792 0001:000EACD5 + 3795 0001:000EACDC 3796 0001:000EAD00 3797 0001:000EAD0C 3798 0001:000EAD2B + 3799 0001:000EAD4E 3801 0001:000EAD63 3802 0001:000EAD82 3803 0001:000EAD95 + 3805 0001:000EADBE 3808 0001:000EADC4 3809 0001:000EADD0 3811 0001:000EADDE + 3812 0001:000EADEA 3814 0001:000EADF2 3819 0001:000EADF8 3820 0001:000EAE0C + 3821 0001:000EAE17 3822 0001:000EAE2C 3823 0001:000EAE41 3824 0001:000EAE4C + 3835 0001:000EAE54 3836 0001:000EAE60 3837 0001:000EAE82 3840 0001:000EAE88 + 3841 0001:000EAE8F 3842 0001:000EAE9B 3843 0001:000EAEA9 3845 0001:000EAEBE + 3846 0001:000EAECB 3847 0001:000EAED8 3849 0001:000EAEEE 3854 0001:000EAEF4 + 3855 0001:000EAEF7 3856 0001:000EAF0F 3857 0001:000EAF27 3858 0001:000EAF3B + 3859 0001:000EAF5E 3860 0001:000EAF6B 3861 0001:000EAF7C 3863 0001:000EAF80 + 3864 0001:000EAF89 3866 0001:000EAF9C 3868 0001:000EAFA8 3869 0001:000EAFBC + 3870 0001:000EAFCD 3871 0001:000EAFDE 3875 0001:000EAFE7 3877 0001:000EB00F + 3878 0001:000EB017 3881 0001:000EB01E 3883 0001:000EB05C 3886 0001:000EB060 + 3887 0001:000EB07D 3888 0001:000EB095 3889 0001:000EB0E5 3892 0001:000EB0EC + 3893 0001:000EB0F8 3894 0001:000EB114 3896 0001:000EB124 3897 0001:000EB12F + 3900 0001:000EB134 3903 0001:000EB140 3904 0001:000EB162 3905 0001:000EB16F + 3908 0001:000EB177 3911 0001:000EB17C 3912 0001:000EB188 3913 0001:000EB192 + 3914 0001:000EB19E 3915 0001:000EB1B1 3916 0001:000EB1C7 3919 0001:000EB1CC + 3920 0001:000EB1D8 3921 0001:000EB1E3 3922 0001:000EB1F9 3923 0001:000EB21B + 3924 0001:000EB223 3927 0001:000EB228 3928 0001:000EB234 3929 0001:000EB23F + 3930 0001:000EB25F 3933 0001:000EB264 3934 0001:000EB270 3935 0001:000EB27B + 3936 0001:000EB2AC 3945 0001:000EB2B0 3946 0001:000EB2BD 3949 0001:000EB2C2 + 3951 0001:000EB2D0 3953 0001:000EB2DC 3954 0001:000EB2E7 3956 0001:000EB31A + 3957 0001:000EB326 3958 0001:000EB32C 3959 0001:000EB342 3960 0001:000EB348 + 3963 0001:000EB35C 3964 0001:000EB36D 3965 0001:000EB378 3968 0001:000EB380 + 3969 0001:000EB38C 3970 0001:000EB397 3972 0001:000EB3B9 3973 0001:000EB3CF + 3975 0001:000EB3D7 3978 0001:000EB3DC 3979 0001:000EB3E9 3980 0001:000EB3F4 + 3981 0001:000EB3FC 3982 0001:000EB414 3985 0001:000EB41C 3986 0001:000EB428 + 3987 0001:000EB446 3990 0001:000EB44C 3991 0001:000EB458 3992 0001:000EB473 + 3997 0001:000EB478 3998 0001:000EB481 3999 0001:000EB48F 4001 0001:000EB4A7 + 4004 0001:000EB4B9 4005 0001:000EB4C4 4009 0001:000EB4D1 4010 0001:000EB4D9 + 4014 0001:000EB4F6 4016 0001:000EB508 4019 0001:000EB50C 4020 0001:000EB518 + 4021 0001:000EB523 4022 0001:000EB52B 4025 0001:000EB530 4026 0001:000EB53C + 4027 0001:000EB559 4028 0001:000EB564 4029 0001:000EB56C 4032 0001:000EB570 + 4033 0001:000EB57C 4034 0001:000EB59C 4035 0001:000EB5A7 4038 0001:000EB5AC + 4039 0001:000EB5B8 4040 0001:000EB5C3 4041 0001:000EB5CB 4044 0001:000EB5D0 + 4045 0001:000EB5DC 4046 0001:000EB5FC 4049 0001:000EB600 4050 0001:000EB60C + 4051 0001:000EB617 4052 0001:000EB636 4057 0001:000EB63C 4058 0001:000EB648 + 4059 0001:000EB65D 4060 0001:000EB66A 4061 0001:000EB677 4062 0001:000EB694 + 4063 0001:000EB6AB 4064 0001:000EB6C8 4065 0001:000EB6DF 4066 0001:000EB6FB + 4067 0001:000EB706 4077 0001:000EB70C 4078 0001:000EB71C 4079 0001:000EB733 + 4080 0001:000EB73C 4081 0001:000EB75F 4082 0001:000EB76D 4085 0001:000EB775 + 4086 0001:000EB78E 4088 0001:000EB7A7 4090 0001:000EB7CE 4093 0001:000EB7F2 + 4095 0001:000EB802 4096 0001:000EB813 4100 0001:000EB821 4101 0001:000EB82F + 4102 0001:000EB840 4103 0001:000EB84E 4105 0001:000EB85A 4106 0001:000EB868 + 4107 0001:000EB874 4111 0001:000EB88D 4114 0001:000EB898 4115 0001:000EB89F + 4116 0001:000EB8A7 4117 0001:000EB8AF 4120 0001:000EB8B4 4121 0001:000EB8BB + 4122 0001:000EB8C3 4123 0001:000EB8CB 4126 0001:000EB8D0 4127 0001:000EB8DC + 4128 0001:000EB8F1 4129 0001:000EB903 4132 0001:000EB908 4133 0001:000EB914 + 4134 0001:000EB929 4135 0001:000EB93B 4140 0001:000EB940 4141 0001:000EB949 + 4144 0001:000EB967 4145 0001:000EB972 4146 0001:000EB984 4148 0001:000EB992 + 4151 0001:000EB998 4152 0001:000EB9AD 4153 0001:000EB9BE 4155 0001:000EB9C4 + 4156 0001:000EB9EB 4158 0001:000EB9F2 4161 0001:000EB9F8 4162 0001:000EBA0D + 4163 0001:000EBA1E 4165 0001:000EBA24 4166 0001:000EBA4A 4168 0001:000EBA51 + 4172 0001:000EBA58 4173 0001:000EBA67 4174 0001:000EBA6E 4178 0001:000EBA74 + 4179 0001:000EBA83 4180 0001:000EBA8A 4183 0001:000EBA90 4184 0001:000EBA9F + 4185 0001:000EBAA6 4188 0001:000EBAAC 4189 0001:000EBABB 4190 0001:000EBAC2 + 4193 0001:000EBAC8 4194 0001:000EBAD7 4195 0001:000EBADE 4198 0001:000EBAE4 + 4199 0001:000EBAF3 4200 0001:000EBAFA 4203 0001:000EBB00 4204 0001:000EBB0C + 4205 0001:000EBB17 4206 0001:000EBB2B 4211 0001:000EBB30 4212 0001:000EBB3F + 4213 0001:000EBB51 4218 0001:000EBB58 4219 0001:000EBB67 4220 0001:000EBB79 + 4221 0001:000EBB81 4222 0001:000EBB89 4225 0001:000EBB90 4226 0001:000EBBA0 + 4227 0001:000EBBC6 4230 0001:000EBBCC 4231 0001:000EBBDC 4232 0001:000EBBE4 + 4233 0001:000EBC0E 4236 0001:000EBC18 4237 0001:000EBC28 4238 0001:000EBC30 + 4239 0001:000EBC5A 4242 0001:000EBC64 4243 0001:000EBC74 4244 0001:000EBC9A + 4247 0001:000EBCA0 4248 0001:000EBCB0 4249 0001:000EBCB4 4250 0001:000EBCE1 + 4253 0001:000EBCE8 4254 0001:000EBCF8 4255 0001:000EBD22 4261 0001:000EBD2C + 4262 0001:000EBD48 4264 0001:000EBD59 4266 0001:000EBD69 4267 0001:000EBD77 + 4268 0001:000EBD85 4269 0001:000EBD8B 4270 0001:000EBD91 4271 0001:000EBD97 + 4273 0001:000EBDA1 4274 0001:000EBDC2 4276 0001:000EBDDC 4279 0001:000EBDE8 + 4280 0001:000EBDF0 4281 0001:000EBDF8 4282 0001:000EBE17 4294 0001:000EBE3C + 4295 0001:000EBE48 4296 0001:000EBE5B 4297 0001:000EBE63 4298 0001:000EBE74 + 4301 0001:000EBE78 4302 0001:000EBE7F 4303 0001:000EBE8D 4422 0001:000EC054 + 4423 0001:000EC064 4424 0001:000EC06A 4425 0001:000EC07B 4426 0001:000EC09F + 4427 0001:000EC0AC 4435 0001:000EC0B0 4436 0001:000EC0BD 4437 0001:000EC0C8 + 4438 0001:000EC0D4 4439 0001:000EC0E2 4440 0001:000EC0EB 4443 0001:000EC0F0 + 4444 0001:000EC10B 4445 0001:000EC113 4446 0001:000EC11C 4447 0001:000EC126 + 4448 0001:000EC13A 4449 0001:000EC14D 4450 0001:000EC160 4451 0001:000EC185 + 4457 0001:000EC18C 4459 0001:000EC19D 4460 0001:000EC1A2 4462 0001:000EC1B2 + 4463 0001:000EC1C1 4464 0001:000EC1D6 4461 0001:000EC1D9 4468 0001:000EC1E5 + 4469 0001:000EC1EE 4470 0001:000EC213 4476 0001:000EC218 4480 0001:000EC224 + 4481 0001:000EC22F 4483 0001:000EC23A 4484 0001:000EC249 4485 0001:000EC255 + 4487 0001:000EC25C 4488 0001:000EC26B 4489 0001:000EC271 4492 0001:000EC281 + 4493 0001:000EC296 4494 0001:000EC29F 4496 0001:000EC2AB 4504 0001:000EC2B0 + 4506 0001:000EC2BC 4507 0001:000EC2CC 4508 0001:000EC2D9 4510 0001:000EC2F4 + 4515 0001:000EC2FD 4516 0001:000EC306 4517 0001:000EC313 4518 0001:000EC319 + 4519 0001:000EC32C 4521 0001:000EC339 4522 0001:000EC33F 4523 0001:000EC34F + 4524 0001:000EC35A 4525 0001:000EC363 4526 0001:000EC369 4527 0001:000EC376 + 4530 0001:000EC37C 4531 0001:000EC38B 4533 0001:000EC3A0 4534 0001:000EC3B0 + 4535 0001:000EC3B6 4537 0001:000EC3BE 4546 0001:000EC3C4 4554 0001:000EC3D0 + 4555 0001:000EC3D5 4557 0001:000EC3DA 4558 0001:000EC3DD 4561 0001:000EC3E2 + 4562 0001:000EC3F1 4563 0001:000EC3F7 4564 0001:000EC3FC 4566 0001:000EC40D + 4567 0001:000EC415 4570 0001:000EC41B 4571 0001:000EC41E 4572 0001:000EC421 + 4573 0001:000EC424 4574 0001:000EC427 4575 0001:000EC428 4577 0001:000EC42B + 4578 0001:000EC42F 4579 0001:000EC432 4565 0001:000EC435 4582 0001:000EC447 + 4560 0001:000EC44A 4584 0001:000EC45F 4591 0001:000EC464 4592 0001:000EC470 + 4593 0001:000EC47E 4596 0001:000EC487 4597 0001:000EC48C 4599 0001:000EC49E + 4601 0001:000EC4A4 4602 0001:000EC4AD 4603 0001:000EC4B4 4604 0001:000EC4C1 + 4605 0001:000EC4CA 4610 0001:000EC4D0 4611 0001:000EC4EB 4612 0001:000EC511 + 4615 0001:000EC518 4616 0001:000EC529 4617 0001:000EC54D 4620 0001:000EC554 + 4621 0001:000EC55B 4622 0001:000EC568 4623 0001:000EC576 4624 0001:000EC57E + 4629 0001:000EC584 4630 0001:000EC590 4631 0001:000EC5A1 4632 0001:000EC5B6 + 4631 0001:000EC5D8 4633 0001:000EC5DD 4634 0001:000EC5F0 4635 0001:000EC5F6 + 4640 0001:000EC5FC 4641 0001:000EC60B 4642 0001:000EC619 4643 0001:000EC631 + 4644 0001:000EC63F 4651 0001:000EC644 4652 0001:000EC647 4653 0001:000EC64C + 4656 0001:000EC650 4657 0001:000EC66F 4658 0001:000EC692 4659 0001:000EC6C3 + 4664 0001:000EC6C8 4665 0001:000EC6EB 4666 0001:000EC70E 4667 0001:000EC717 + 4669 0001:000EC71F 4670 0001:000EC73E 4667 0001:000EC741 4672 0001:000EC749 + 4673 0001:000EC75A 4674 0001:000EC76E 4675 0001:000EC791 4680 0001:000EC798 + 4681 0001:000EC7A7 4683 0001:000EC7AF 4684 0001:000EC7BD 4685 0001:000EC7C8 + 4687 0001:000EC7D6 4690 0001:000EC7DC 4691 0001:000EC7E8 4692 0001:000EC7F1 + 4693 0001:000EC806 4696 0001:000EC80C 4697 0001:000EC82F 4698 0001:000EC852 + 4699 0001:000EC863 4700 0001:000EC890 4705 0001:000EC898 4706 0001:000EC8B3 + 4707 0001:000EC8BD 4708 0001:000EC8ED 4711 0001:000EC8F4 4712 0001:000EC905 + 4713 0001:000EC90E 4714 0001:000EC916 4716 0001:000EC931 4721 0001:000EC938 + 4723 0001:000EC958 4724 0001:000EC963 4725 0001:000EC969 4726 0001:000EC98D + 4724 0001:000EC990 4729 0001:000EC9B3 4736 0001:000EC9B8 4737 0001:000EC9C4 + 4738 0001:000EC9CA 4739 0001:000EC9D2 4742 0001:000EC9D8 4745 0001:000EC9E4 + 4746 0001:000EC9F2 4748 0001:000ECA03 4749 0001:000ECA0B 4751 0001:000ECA10 + 4754 0001:000ECA1C 4755 0001:000ECA21 4756 0001:000ECA31 4757 0001:000ECA3C + 4759 0001:000ECA4C 4762 0001:000ECA50 4763 0001:000ECA5D 4764 0001:000ECA7E + 4769 0001:000ECA94 4770 0001:000ECAA3 4771 0001:000ECAB4 4772 0001:000ECAD2 + 4775 0001:000ECAD8 4776 0001:000ECAE1 4777 0001:000ECAF0 4782 0001:000ECAF4 + 4783 0001:000ECB00 4784 0001:000ECB11 4785 0001:000ECB29 4791 0001:000ECB30 + 4792 0001:000ECB3F 4793 0001:000ECB50 4794 0001:000ECB65 4795 0001:000ECB71 + 4797 0001:000ECB83 4798 0001:000ECB9E 4799 0001:000ECBAC 4800 0001:000ECBB4 + 4805 0001:000ECBB8 4806 0001:000ECBC7 4807 0001:000ECBD8 4808 0001:000ECBDE + 4809 0001:000ECBE8 4810 0001:000ECBEE 4811 0001:000ECC08 4812 0001:000ECC10 + 4815 0001:000ECC14 4816 0001:000ECC1C 4817 0001:000ECC32 4822 0001:000ECC38 + 4823 0001:000ECC44 4824 0001:000ECC55 4825 0001:000ECC63 4826 0001:000ECC71 + 4827 0001:000ECC79 4830 0001:000ECC80 4831 0001:000ECC8F 4832 0001:000ECCA0 + 4835 0001:000ECCA4 4836 0001:000ECCB3 4837 0001:000ECCCD 4838 0001:000ECCD5 + 4843 0001:000ECCDC 4844 0001:000ECCE8 4845 0001:000ECCF0 4846 0001:000ECCF8 + 4848 0001:000ECCFC 4849 0001:000ECD03 4850 0001:000ECD13 4851 0001:000ECD1E + 4852 0001:000ECD26 4861 0001:000ECD2C 4862 0001:000ECD47 4863 0001:000ECD51 + 4864 0001:000ECD5A 4865 0001:000ECD7E 4870 0001:000ECD84 4871 0001:000ECDA4 + 4873 0001:000ECDBA 4874 0001:000ECDC2 4875 0001:000ECDCE 4876 0001:000ECDE7 + 4877 0001:000ECDF5 4879 0001:000ECE07 4880 0001:000ECE23 4881 0001:000ECE3B + 4877 0001:000ECE3E 4883 0001:000ECE50 4887 0001:000ECE60 4888 0001:000ECE88 + 4891 0001:000ECE90 4892 0001:000ECE9F 4894 0001:000ECEA8 4895 0001:000ECEBC + 4897 0001:000ECEC5 4898 0001:000ECECD 4901 0001:000ECEDB 4902 0001:000ECEE9 + 4904 0001:000ECEF1 4910 0001:000ECEF8 4911 0001:000ECF18 4912 0001:000ECF30 + 4914 0001:000ECF44 4915 0001:000ECF4A 4917 0001:000ECF5C 4918 0001:000ECF6A + 4919 0001:000ECF70 4920 0001:000ECF72 4911 0001:000ECF75 4921 0001:000ECF7A + 4922 0001:000ECFA1 4930 0001:000ECFB4 4931 0001:000ECFC1 4932 0001:000ECFD1 + 4933 0001:000ECFE1 4934 0001:000ECFE9 4936 0001:000ECFF0 4937 0001:000ECFFA + 4939 0001:000ED003 4940 0001:000ED01E 4942 0001:000ED036 4943 0001:000ED03F + 4945 0001:000ED050 4946 0001:000ED05D 4947 0001:000ED06A 4943 0001:000ED06D + 4948 0001:000ED073 4951 0001:000ED078 4952 0001:000ED097 4953 0001:000ED0C9 + 4958 0001:000ED0D0 4959 0001:000ED0DF 4960 0001:000ED0F1 4961 0001:000ED116 + 4964 0001:000ED11C 4966 0001:000ED125 4967 0001:000ED135 4968 0001:000ED14F + 4969 0001:000ED161 4974 0001:000ED168 4975 0001:000ED174 4976 0001:000ED186 + 4977 0001:000ED1AA 4980 0001:000ED1B0 4981 0001:000ED1D3 4982 0001:000ED205 + 4987 0001:000ED20C 4988 0001:000ED21B 4989 0001:000ED22D 4990 0001:000ED242 + 4995 0001:000ED248 4996 0001:000ED257 4997 0001:000ED269 4998 0001:000ED27E + 5001 0001:000ED284 5002 0001:000ED290 5003 0001:000ED29E 5008 0001:000ED2A4 + 5009 0001:000ED2BF 5010 0001:000ED2CC 5011 0001:000ED2EF 5015 0001:000ED2F4 + 5016 0001:000ED300 5017 0001:000ED308 5018 0001:000ED310 5020 0001:000ED314 + 5021 0001:000ED325 5023 0001:000ED331 5024 0001:000ED344 5026 0001:000ED352 + 5028 0001:000ED35E 5029 0001:000ED371 5031 0001:000ED37F 5033 0001:000ED38B + 5034 0001:000ED39E 5036 0001:000ED3AC 5037 0001:000ED3C8 5042 0001:000ED3CC + 5043 0001:000ED3D9 5044 0001:000ED3ED 5045 0001:000ED3F5 5047 0001:000ED3FC + 5048 0001:000ED40B 5049 0001:000ED41E 5050 0001:000ED426 5051 0001:000ED434 + 5054 0001:000ED438 5055 0001:000ED447 5056 0001:000ED45B 5057 0001:000ED463 + 5058 0001:000ED471 5061 0001:000ED478 5062 0001:000ED488 5063 0001:000ED49A + 5064 0001:000ED4C4 5067 0001:000ED4CC 5068 0001:000ED4EF 5069 0001:000ED4F7 + 5070 0001:000ED505 5072 0001:000ED543 5074 0001:000ED553 5075 0001:000ED582 + 5079 0001:000ED58C 5080 0001:000ED5BB 5081 0001:000ED5C7 5082 0001:000ED5FB + 5083 0001:000ED62E 5086 0001:000ED638 5087 0001:000ED63F 5088 0001:000ED648 + 5091 0001:000ED64C 5092 0001:000ED653 5093 0001:000ED65C 5098 0001:000ED660 + 5099 0001:000ED669 5101 0001:000ED675 5102 0001:000ED68E 5104 0001:000ED6A6 + 5105 0001:000ED6BF 5106 0001:000ED6E3 5107 0001:000ED707 5110 0001:000ED70C + 5111 0001:000ED718 5112 0001:000ED724 5114 0001:000ED736 5115 0001:000ED73E + 5117 0001:000ED748 5120 0001:000ED74C 5121 0001:000ED75B 5122 0001:000ED777 + 5123 0001:000ED781 5124 0001:000ED7B1 5131 0001:000ED7B8 5132 0001:000ED7C7 + 5133 0001:000ED7E5 5134 0001:000ED7F5 5136 0001:000ED7FB 5137 0001:000ED813 + 5138 0001:000ED829 5140 0001:000ED83C 5145 0001:000ED840 5146 0001:000ED84C + 5147 0001:000ED860 5149 0001:000ED866 5150 0001:000ED87F 5151 0001:000ED891 + 5153 0001:000ED8A8 5158 0001:000ED8AC 5159 0001:000ED8BC 5160 0001:000ED8D0 + 5161 0001:000ED8EE 5171 0001:000ED8F8 5172 0001:000ED907 5173 0001:000ED91B + 5174 0001:000ED939 5177 0001:000ED940 5178 0001:000ED94C 5179 0001:000ED95F + 5182 0001:000ED964 5183 0001:000ED974 5184 0001:000ED98A 5185 0001:000ED997 + 5186 0001:000ED9A4 5187 0001:000ED9B2 5195 0001:000ED9BC 5196 0001:000ED9CC + 5197 0001:000ED9E2 5198 0001:000ED9EF 5199 0001:000ED9FC 5200 0001:000EDA0A + 5203 0001:000EDA14 5204 0001:000EDA23 5205 0001:000EDA38 5728 0001:000EDA6C + 5728 0001:000EDA73 + +Line numbers for StdVCL(StdVCL.pas) segment .text + + 272 0001:000EDAA4 272 0001:000EDAAB + +Line numbers for ComObj(ComObj.pas) segment .text + + 129 0001:000EDC78 200 0001:000EDDA4 209 0001:000EDF08 255 0001:000EE060 + 306 0001:000EE220 441 0001:000EE4F8 442 0001:000EE521 443 0001:000EE528 + 444 0001:000EE52E 446 0001:000EE549 447 0001:000EE556 448 0001:000EE574 + 449 0001:000EE592 451 0001:000EE5A4 452 0001:000EE5C4 453 0001:000EE5D4 + 454 0001:000EE5EF 456 0001:000EE5F8 457 0001:000EE612 459 0001:000EE64D + 530 0001:000EE664 531 0001:000EE67C 532 0001:000EE686 533 0001:000EE6B3 + 536 0001:000EE6B8 537 0001:000EE6C9 538 0001:000EE6D4 539 0001:000EE6F0 + 542 0001:000EE6F4 543 0001:000EE700 544 0001:000EE70B 545 0001:000EE719 + 546 0001:000EE725 548 0001:000EE73B 550 0001:000EE74E 556 0001:000EE754 + 557 0001:000EE760 558 0001:000EE76B 559 0001:000EE779 560 0001:000EE782 + 562 0001:000EE788 563 0001:000EE791 564 0001:000EE7A5 560 0001:000EE7AB + 567 0001:000EE7BE 569 0001:000EE7D1 572 0001:000EE7D8 573 0001:000EE7E7 + 574 0001:000EE7F2 575 0001:000EE800 576 0001:000EE809 578 0001:000EE80F + 579 0001:000EE821 576 0001:000EE82A 581 0001:000EE830 583 0001:000EE875 + 585 0001:000EE88B 605 0001:000EE890 606 0001:000EE89C 607 0001:000EE8A7 + 608 0001:000EE8B5 609 0001:000EE8BA 610 0001:000EE8C3 612 0001:000EE8C9 + 614 0001:000EE8D1 615 0001:000EE8F1 617 0001:000EE8F8 618 0001:000EE8FE + 610 0001:000EE907 621 0001:000EE91A 623 0001:000EE92D 628 0001:000EE934 + 629 0001:000EE94C 630 0001:000EE953 631 0001:000EE990 641 0001:000EE994 + 642 0001:000EE9AF 643 0001:000EE9B9 644 0001:000EE9C2 645 0001:000EE9CB + 646 0001:000EE9E3 647 0001:000EE9EA 648 0001:000EEA0B 651 0001:000EEA14 + 652 0001:000EEA25 654 0001:000EEA2E 655 0001:000EEA40 656 0001:000EEA4F + 658 0001:000EEA78 666 0001:000EEA7C 667 0001:000EEA83 675 0001:000EEA88 + 676 0001:000EEAB3 677 0001:000EEAB8 679 0001:000EEAC5 680 0001:000EEAD7 + 681 0001:000EEAE5 682 0001:000EEAEA 687 0001:000EEB96 688 0001:000EEB9C + 690 0001:000EEC8B 696 0001:000EEC90 697 0001:000EEC94 698 0001:000EECB7 + 701 0001:000EECBC 702 0001:000EECC0 703 0001:000EECD2 706 0001:000EECD8 + 709 0001:000EECDC 710 0001:000EECEB 711 0001:000EECFE 716 0001:000EED04 + 717 0001:000EED08 718 0001:000EED11 719 0001:000EED29 720 0001:000EED40 + 723 0001:000EED48 724 0001:000EED4C 725 0001:000EED55 726 0001:000EED66 + 727 0001:000EED75 730 0001:000EED7C 731 0001:000EED80 732 0001:000EED89 + 733 0001:000EED9A 734 0001:000EEDA9 739 0001:000EEDB0 740 0001:000EEDB4 + 741 0001:000EEDC5 742 0001:000EEDCC 743 0001:000EEDD6 751 0001:000EEDDC + 752 0001:000EEDF9 753 0001:000EEE17 754 0001:000EEE20 755 0001:000EEE29 + 756 0001:000EEE38 757 0001:000EEE42 758 0001:000EEE4F 759 0001:000EEE58 + 760 0001:000EEE61 761 0001:000EEE70 762 0001:000EEE7E 763 0001:000EEE8C + 764 0001:000EEE95 765 0001:000EEEA4 766 0001:000EEEAB 767 0001:000EEEB4 + 768 0001:000EEED9 771 0001:000EEEF4 772 0001:000EEF05 773 0001:000EEF1A + 774 0001:000EEF35 777 0001:000EEF3C 778 0001:000EEF48 779 0001:000EEF62 + 782 0001:000EEF68 783 0001:000EEF87 784 0001:000EEF90 785 0001:000EEFBB + 786 0001:000EEFE0 793 0001:000EEFF0 794 0001:000EEFF7 795 0001:000EF000 + 797 0001:000EF049 805 0001:000EF090 806 0001:000EF0B3 807 0001:000EF0C0 + 808 0001:000EF0CE 809 0001:000EF0D8 810 0001:000EF103 812 0001:000EF10D + 813 0001:000EF132 814 0001:000EF140 815 0001:000EF151 816 0001:000EF167 + 817 0001:000EF179 818 0001:000EF18C 819 0001:000EF1AC 821 0001:000EF1B6 + 822 0001:000EF1CB 823 0001:000EF1ED 827 0001:000EF21E 829 0001:000EF224 + 830 0001:000EF24B 831 0001:000EF268 833 0001:000EF275 834 0001:000EF282 + 836 0001:000EF2C1 839 0001:000EF328 840 0001:000EF334 841 0001:000EF34D + 842 0001:000EF355 845 0001:000EF35C 846 0001:000EF365 847 0001:000EF36C + 850 0001:000EF370 851 0001:000EF392 852 0001:000EF3E3 857 0001:000EF3E8 + 858 0001:000EF3EC 859 0001:000EF40F 862 0001:000EF414 863 0001:000EF418 + 864 0001:000EF42B 867 0001:000EF430 868 0001:000EF434 869 0001:000EF447 + 875 0001:000EF44C 876 0001:000EF450 877 0001:000EF46F 880 0001:000EF474 + 881 0001:000EF478 883 0001:000EF491 884 0001:000EF4A5 889 0001:000EF4AC + 890 0001:000EF4C8 891 0001:000EF4CD 894 0001:000EF4DB 895 0001:000EF4E4 + 896 0001:000EF514 899 0001:000EF548 901 0001:000EF574 904 0001:000EF580 + 906 0001:000EF58F 908 0001:000EF59B 909 0001:000EF5A2 911 0001:000EF5A4 + 912 0001:000EF5B2 913 0001:000EF5BA 920 0001:000EF5C0 922 0001:000EF5E2 + 924 0001:000EF5E9 925 0001:000EF5F0 928 0001:000EF5F5 930 0001:000EF5FC + 934 0001:000EF638 935 0001:000EF63F 938 0001:000EF644 940 0001:000EF65C + 941 0001:000EF663 943 0001:000EF668 944 0001:000EF676 946 0001:000EF696 + 947 0001:000EF6B7 949 0001:000EF6BF 950 0001:000EF6F2 951 0001:000EF702 + 954 0001:000EF736 955 0001:000EF73D 957 0001:000EF749 958 0001:000EF75D + 959 0001:000EF791 964 0001:000EF7BC 965 0001:000EF7CB 966 0001:000EF7DC + 967 0001:000EF7E4 976 0001:000EF7EC 977 0001:000EF830 978 0001:000EF858 + 979 0001:000EF890 981 0001:000EF8AF 983 0001:000EF94B 993 0001:000EF954 + 994 0001:000EF963 995 0001:000EF978 996 0001:000EF982 997 0001:000EF992 + 999 0001:000EF9A5 1000 0001:000EF9BE 1002 0001:000EF9C9 1003 0001:000EF9E2 + 1004 0001:000EFA00 1006 0001:000EFA02 997 0001:000EFA05 1007 0001:000EFA0A + 1008 0001:000EFA12 1015 0001:000EFA18 1016 0001:000EFA3B 1017 0001:000EFA59 + 1019 0001:000EFA63 1020 0001:000EFA6E 1021 0001:000EFA7C 1022 0001:000EFA8E + 1023 0001:000EFA9C 1025 0001:000EFAF2 1027 0001:000EFB2E 1031 0001:000EFB43 + 1032 0001:000EFB60 1033 0001:000EFB7D 1035 0001:000EFBC7 1055 0001:000EFC14 + 1056 0001:000EFC20 1059 0001:000EFC24 1060 0001:000EFC2B 1061 0001:000EFC42 + 1062 0001:000EFC4A 1068 0001:000EFC50 1070 0001:000EFC54 1076 0001:000EFC75 + 1080 0001:000EFC7C 1081 0001:000EFC80 1082 0001:000EFC87 1084 0001:000EFC8D + 1085 0001:000EFC94 1087 0001:000EFC96 1088 0001:000EFCA7 1089 0001:000EFCAF + 1092 0001:000EFCB4 1093 0001:000EFCB8 1094 0001:000EFCC1 1095 0001:000EFCC9 + 1101 0001:000EFCD0 1102 0001:000EFCD4 1103 0001:000EFCE0 1106 0001:000EFD1E + 1115 0001:000EFD24 1116 0001:000EFD5E 1117 0001:000EFD7B 1118 0001:000EFD99 + 1119 0001:000EFDA2 1120 0001:000EFDDA 1121 0001:000EFDEF 1122 0001:000EFE02 + 1123 0001:000EFE12 1124 0001:000EFE1B 1125 0001:000EFE53 1126 0001:000EFE65 + 1128 0001:000EFE89 1130 0001:000EFE92 1131 0001:000EFEA7 1132 0001:000EFEB6 + 1134 0001:000EFF09 1137 0001:000EFF14 1138 0001:000EFF28 1139 0001:000EFF3C + 1144 0001:000EFF44 1145 0001:000EFF5F 1146 0001:000EFF69 1147 0001:000EFF87 + 1148 0001:000EFFB5 1154 0001:000EFFBC 1156 0001:000EFFC0 1161 0001:000EFFDE + 1165 0001:000EFFE4 1166 0001:000EFFE8 1167 0001:000EFFEF 1169 0001:000EFFF5 + 1170 0001:000EFFFC 1172 0001:000EFFFE 1173 0001:000F000C 1174 0001:000F0014 + 1177 0001:000F001C 1178 0001:000F0020 1179 0001:000F0029 1180 0001:000F0031 + 1187 0001:000F0038 1188 0001:000F003C 1189 0001:000F0048 1192 0001:000F0080 + 1195 0001:000F0088 1196 0001:000F008C 1197 0001:000F00A0 1198 0001:000F00A7 + 1199 0001:000F00B1 1204 0001:000F00B8 1205 0001:000F00C7 1206 0001:000F00E2 + 1227 0001:000F00E8 1228 0001:000F00F4 1229 0001:000F00FF 1232 0001:000F010E + 1233 0001:000F0125 1230 0001:000F0132 1235 0001:000F014D 1243 0001:000F0154 + 1244 0001:000F0186 1245 0001:000F0191 1247 0001:000F0197 1248 0001:000F01A2 + 1250 0001:000F01CF 1251 0001:000F01E0 1252 0001:000F0226 1258 0001:000F0230 + 1259 0001:000F025F 1260 0001:000F027F 1261 0001:000F028D 1262 0001:000F02D3 + 1268 0001:000F02DC 1269 0001:000F02E3 1270 0001:000F02FC 1275 0001:000F0300 + 1276 0001:000F0307 1277 0001:000F031B 1282 0001:000F0320 1283 0001:000F033F + 1284 0001:000F037E 1291 0001:000F0384 1292 0001:000F0390 1293 0001:000F03A2 + 1294 0001:000F03AD 1295 0001:000F03B6 1300 0001:000F03BC 1301 0001:000F03DB + 1302 0001:000F041A 1309 0001:000F0420 1310 0001:000F042C 1311 0001:000F043E + 1312 0001:000F0449 1313 0001:000F0452 1321 0001:000F0458 1322 0001:000F0467 + 1325 0001:000F0494 1327 0001:000F049A 1329 0001:000F04C6 1331 0001:000F04CF + 1332 0001:000F04EC 1337 0001:000F04F8 1338 0001:000F0504 1339 0001:000F0516 + 1362 0001:000F051C 1363 0001:000F0528 1365 0001:000F0548 1378 0001:000F055C + 1379 0001:000F0592 1380 0001:000F059B 1381 0001:000F05B2 1382 0001:000F05C1 + 1383 0001:000F05CC 1384 0001:000F05D8 1385 0001:000F05DE 1386 0001:000F05E6 + 1389 0001:000F05EB 1391 0001:000F05F7 1392 0001:000F05FE 1394 0001:000F063B + 1395 0001:000F0644 1397 0001:000F064D 1398 0001:000F0654 1399 0001:000F0673 + 1400 0001:000F067B 1401 0001:000F06B6 1406 0001:000F06D0 1407 0001:000F06DC + 1408 0001:000F06E7 1410 0001:000F0707 1477 0001:000F071C 1478 0001:000F0742 + 1479 0001:000F0749 1480 0001:000F0768 1481 0001:000F0787 1482 0001:000F07BD + 1491 0001:000F07D4 1492 0001:000F07FA 1493 0001:000F0802 1494 0001:000F0821 + 1495 0001:000F0840 1496 0001:000F0884 1501 0001:000F089C 1502 0001:000F08A0 + 1503 0001:000F08AD 1505 0001:000F08B3 1506 0001:000F08C6 1507 0001:000F08D9 + 1508 0001:000F08EC 1509 0001:000F08FF 1510 0001:000F0912 1512 0001:000F0925 + 1520 0001:000F09B8 1521 0001:000F09DB 1522 0001:000F09E0 1524 0001:000F09F4 + 1525 0001:000F0A06 1526 0001:000F0A18 1527 0001:000F0A2A 1529 0001:000F0A37 + 1531 0001:000F0AB6 1555 0001:000F0ABC 1556 0001:000F0AEA 1557 0001:000F0AEF + 1558 0001:000F0AFD 1559 0001:000F0B07 1560 0001:000F0B24 1562 0001:000F0B2E + 1563 0001:000F0B34 1564 0001:000F0B43 1566 0001:000F0B48 1567 0001:000F0B4C + 1568 0001:000F0B60 1569 0001:000F0B6F 1571 0001:000F0B75 1572 0001:000F0B7E + 1576 0001:000F0B8D 1578 0001:000F0B93 1579 0001:000F0BA0 1581 0001:000F0BA6 + 1582 0001:000F0BB7 1583 0001:000F0BC2 1584 0001:000F0BCB 1588 0001:000F0BD6 + 1589 0001:000F0BE5 1590 0001:000F0BED 1591 0001:000F0BF6 1593 0001:000F0C01 + 1596 0001:000F0C09 1598 0001:000F0C0F 1600 0001:000F0C21 1602 0001:000F0C37 + 1603 0001:000F0C44 1606 0001:000F0C54 1608 0001:000F0C5E 1610 0001:000F0C68 + 1612 0001:000F0C75 1613 0001:000F0C85 1614 0001:000F0C8D 1615 0001:000F0C96 + 1617 0001:000F0CA1 1621 0001:000F0CA6 1622 0001:000F0CAC 1623 0001:000F0CB6 + 1624 0001:000F0CC2 1625 0001:000F0CCE 1626 0001:000F0CDA 1632 0001:000F0CE0 + 1633 0001:000F0CE8 1634 0001:000F0CF3 1636 0001:000F0CFF 1637 0001:000F0D03 + 1640 0001:000F0D0E 1642 0001:000F0D12 1643 0001:000F0D15 1645 0001:000F0D21 + 1646 0001:000F0D2A 1647 0001:000F0D33 1648 0001:000F0D39 1649 0001:000F0D43 + 1650 0001:000F0D4B 1651 0001:000F0D54 1653 0001:000F0D5A 1654 0001:000F0D6A + 1655 0001:000F0D71 1656 0001:000F0D7A 1657 0001:000F0D7E 1659 0001:000F0D83 + 1660 0001:000F0D95 1661 0001:000F0D9C 1663 0001:000F0DC7 1664 0001:000F0DD8 + 1665 0001:000F0DDE 1667 0001:000F0DE4 1668 0001:000F0DE7 1669 0001:000F0DF4 + 1665 0001:000F0E0F 1672 0001:000F0E22 1673 0001:000F0E28 1675 0001:000F0E2E + 1676 0001:000F0E31 1673 0001:000F0E41 1679 0001:000F0E72 1687 0001:000F0E78 + 1688 0001:000F0E7E 1689 0001:000F0EA8 1701 0001:000F0EAC 1702 0001:000F0EBB + 1703 0001:000F0EC1 1705 0001:000F0EC6 1706 0001:000F0EC9 1707 0001:000F0ECC + 1708 0001:000F0ECD 1709 0001:000F0ED0 1710 0001:000F0ED2 1711 0001:000F0ED5 + 1714 0001:000F0ED7 1715 0001:000F0EE2 1717 0001:000F0EFB 1718 0001:000F0EFE + 1719 0001:000F0F00 1720 0001:000F0F03 1721 0001:000F0F06 1722 0001:000F0F08 + 1723 0001:000F0F0B 1725 0001:000F0F0D 1726 0001:000F0F2C 1727 0001:000F0F45 + 1728 0001:000F0F52 1729 0001:000F0F59 1730 0001:000F0F5C 1731 0001:000F0F68 + 1733 0001:000F0F8C 1735 0001:000F0FA6 1737 0001:000F0FA9 1745 0001:000F0FB0 + 1746 0001:000F0FB3 1747 0001:000F0FCA 1752 0001:000F0FCC 1753 0001:000F0FD5 + 1754 0001:000F0FF5 1755 0001:000F0FFE 1756 0001:000F1009 1757 0001:000F1013 + 1758 0001:000F1020 1759 0001:000F1027 1761 0001:000F104D 1762 0001:000F105B + 1763 0001:000F1074 1771 0001:000F1078 1772 0001:000F10A1 1775 0001:000F10AA + 1777 0001:000F10FC 1778 0001:000F1102 1780 0001:000F1112 1781 0001:000F1129 + 1782 0001:000F112F 1784 0001:000F113C 1785 0001:000F1166 1790 0001:000F1170 + 1791 0001:000F117C 1792 0001:000F118D 1795 0001:000F1194 1796 0001:000F119B + 1797 0001:000F11AA 1816 0001:000F11B0 1817 0001:000F11B6 1818 0001:000F11B7 + 1819 0001:000F11B8 1820 0001:000F11B9 1821 0001:000F11BC 1822 0001:000F11BE + 1823 0001:000F11C0 1824 0001:000F11C4 1825 0001:000F11C7 1826 0001:000F11C9 + 1827 0001:000F11CB 1828 0001:000F11CE 1829 0001:000F11D1 1830 0001:000F11D4 + 1831 0001:000F11D6 1832 0001:000F11D8 1833 0001:000F11DA 1834 0001:000F11DC + 1835 0001:000F11DE 1836 0001:000F11E0 1837 0001:000F11E2 1838 0001:000F11E4 + 1839 0001:000F11E7 1840 0001:000F11E9 1841 0001:000F11EA 1842 0001:000F11EB + 1843 0001:000F11EE 1844 0001:000F11F0 1845 0001:000F11F3 1846 0001:000F11F6 + 1847 0001:000F11F9 1848 0001:000F11FB 1849 0001:000F11FE 1850 0001:000F1200 + 1851 0001:000F1202 1852 0001:000F1207 1853 0001:000F1208 1854 0001:000F120A + 1855 0001:000F120B 1856 0001:000F120C 1857 0001:000F120F 1858 0001:000F1210 + 1859 0001:000F1211 1860 0001:000F1213 1861 0001:000F1216 1862 0001:000F1219 + 1863 0001:000F121D 1864 0001:000F1220 1865 0001:000F1222 1866 0001:000F1224 + 1867 0001:000F1227 1868 0001:000F122B 1869 0001:000F122C 1870 0001:000F122E + 1871 0001:000F1231 1872 0001:000F1234 1873 0001:000F1236 1874 0001:000F1238 + 1875 0001:000F123B 1876 0001:000F123F 1877 0001:000F1241 1878 0001:000F1245 + 1879 0001:000F1247 1880 0001:000F124C 1881 0001:000F124F 1882 0001:000F1250 + 1883 0001:000F1253 1884 0001:000F1254 1885 0001:000F1255 1886 0001:000F1256 + 1887 0001:000F125B 1888 0001:000F125C 1889 0001:000F125D 1890 0001:000F1260 + 1891 0001:000F1263 1892 0001:000F1264 1893 0001:000F1265 1894 0001:000F1266 + 1895 0001:000F126B 1896 0001:000F126E 1897 0001:000F1271 1898 0001:000F1272 + 1899 0001:000F1274 1900 0001:000F1277 1901 0001:000F1279 1902 0001:000F127B + 1903 0001:000F127E 1904 0001:000F1280 1905 0001:000F1281 1906 0001:000F1284 + 1907 0001:000F1289 1908 0001:000F128B 1909 0001:000F128C 1910 0001:000F128D + 1911 0001:000F128E 1915 0001:000F1294 1916 0001:000F1297 1917 0001:000F1298 + 1918 0001:000F129B 1919 0001:000F129D 1920 0001:000F129E 1921 0001:000F129F + 1922 0001:000F12A0 1923 0001:000F12A1 1924 0001:000F12A3 1925 0001:000F12A4 + 1926 0001:000F12A7 1927 0001:000F12A8 1928 0001:000F12A9 1929 0001:000F12AB + 1930 0001:000F12AE 1931 0001:000F12AF 1932 0001:000F12B2 1933 0001:000F12B7 + 1934 0001:000F12BB 1935 0001:000F12BE 1938 0001:000F12C5 1939 0001:000F12C9 + 1940 0001:000F12CD 1941 0001:000F12D1 1942 0001:000F12D5 1943 0001:000F12D9 + 1944 0001:000F12DD 1945 0001:000F12E1 1946 0001:000F12E5 1947 0001:000F12E9 + 1948 0001:000F12ED 1949 0001:000F12F1 1950 0001:000F12F5 1951 0001:000F12F9 + 1952 0001:000F12FD 1953 0001:000F1301 1954 0001:000F1305 1957 0001:000F1309 + 1958 0001:000F130D 1962 0001:000F130F 1963 0001:000F1313 1966 0001:000F1315 + 1967 0001:000F1319 1970 0001:000F131B 1971 0001:000F131D 1972 0001:000F131F + 1973 0001:000F1321 1974 0001:000F1322 1975 0001:000F1327 1976 0001:000F132B + 1977 0001:000F132D 1981 0001:000F132F 1982 0001:000F1331 1983 0001:000F1333 + 1984 0001:000F1335 1985 0001:000F1336 1986 0001:000F1338 1987 0001:000F133B + 1988 0001:000F133F 1989 0001:000F1341 1992 0001:000F1343 1993 0001:000F1345 + 1994 0001:000F134A 1995 0001:000F134D 1996 0001:000F134F 1997 0001:000F1353 + 1998 0001:000F1356 1999 0001:000F135A 2000 0001:000F135D 2001 0001:000F1361 + 2002 0001:000F1364 2008 0001:000F1366 2015 0001:000F136A 2016 0001:000F136D + 2017 0001:000F136E 2076 0001:000F1370 2077 0001:000F1374 2078 0001:000F137D + 2079 0001:000F138E 2080 0001:000F1399 2083 0001:000F139C 2084 0001:000F139F + 2085 0001:000F13AE 2087 0001:000F13C0 2088 0001:000F13D8 2093 0001:000F1404 + 2094 0001:000F1415 2113 0001:000F1418 2114 0001:000F1431 2115 0001:000F1438 + 2116 0001:000F1442 2117 0001:000F144B 2118 0001:000F1454 2119 0001:000F145D + 2122 0001:000F1495 2097 0001:000F1498 2099 0001:000F14A4 2100 0001:000F14A9 + 2101 0001:000F14B6 2103 0001:000F14C1 2105 0001:000F14CE 2107 0001:000F14D8 + 2108 0001:000F14E4 2112 0001:000F14EF + +Line numbers for Accessibility_TLB(Accessibility_TLB.pas) segment .text + + 286 0001:000F1560 286 0001:000F1567 + +Line numbers for uAccessAPI(uAccessAPI.pas) segment .text + + 115 0001:000F1568 116 0001:000F156E 118 0001:000F1577 119 0001:000F1592 + 122 0001:000F159C 123 0001:000F15A3 126 0001:000F15A8 127 0001:000F15AE + 129 0001:000F15B7 130 0001:000F15D2 133 0001:000F15DC 134 0001:000F15E3 + 137 0001:000F15E8 138 0001:000F1608 140 0001:000F1611 143 0001:000F1628 + 144 0001:000F164C 161 0001:000F1650 162 0001:000F1672 164 0001:000F1692 + 147 0001:000F1694 148 0001:000F169D 149 0001:000F16AC 151 0001:000F16B5 + 152 0001:000F16CA 156 0001:000F16E1 157 0001:000F16E8 160 0001:000F16EF + +Line numbers for ORCtrls(ORCtrls.pas) segment .text + + 1086 0001:000F59C0 1089 0001:000F59C1 1090 0001:000F59C4 1092 0001:000F59CD + 1093 0001:000F59CE 1096 0001:000F59D8 1097 0001:000F59E3 1105 0001:000F59E8 + 1106 0001:000F59F1 1107 0001:000F59FB 1108 0001:000F5A09 1109 0001:000F5A16 + 1110 0001:000F5A24 1111 0001:000F5A38 1113 0001:000F5A62 1116 0001:000F5A84 + 1118 0001:000F5A9A 1126 0001:000F5AE4 1127 0001:000F5AEC 1128 0001:000F5AF5 + 1129 0001:000F5AFE 1130 0001:000F5B05 1131 0001:000F5B08 1132 0001:000F5B0F + 1133 0001:000F5B19 1138 0001:000F5B20 1139 0001:000F5B22 1140 0001:000F5B2A + 1145 0001:000F5B2C 1146 0001:000F5B2E 1147 0001:000F5B36 1154 0001:000F5B38 + 1155 0001:000F5B46 1156 0001:000F5B4B 1157 0001:000F5B54 1160 0001:000F5B5F + 1161 0001:000F5B60 1162 0001:000F5B63 1158 0001:000F5B6C 1164 0001:000F5B75 + 1165 0001:000F5B80 1166 0001:000F5B9D 1173 0001:000F5BA8 1174 0001:000F5BD3 + 1175 0001:000F5BD8 1176 0001:000F5BE4 1179 0001:000F5BF2 1180 0001:000F5BF3 + 1181 0001:000F5BF6 1177 0001:000F5C02 1183 0001:000F5C0B 1184 0001:000F5C18 + 1185 0001:000F5C1D 1186 0001:000F5C47 1187 0001:000F5CAA 1193 0001:000F5CB4 + 1194 0001:000F5CCE 1195 0001:000F5CD5 1196 0001:000F5D06 1197 0001:000F5D43 + 1204 0001:000F5D58 1205 0001:000F5D80 1207 0001:000F5D91 1209 0001:000F5DA2 + 1210 0001:000F5DC3 1213 0001:000F5DE1 1214 0001:000F5DEC 1216 0001:000F5DFC + 1217 0001:000F5E11 1219 0001:000F5E1F 1220 0001:000F5E21 1222 0001:000F5E26 + 1223 0001:000F5E5C 1227 0001:000F5E70 1228 0001:000F5E7A 1229 0001:000F5E7C + 1230 0001:000F5E9A 1236 0001:000F5EA0 1237 0001:000F5EA7 1238 0001:000F5EB8 + 1239 0001:000F5ECC 1245 0001:000F5ED4 1246 0001:000F5EF6 1247 0001:000F5EFC + 1251 0001:000F5F00 1252 0001:000F5F06 1253 0001:000F5F22 1257 0001:000F5F24 + 1258 0001:000F5F36 1259 0001:000F5F3F 1260 0001:000F5F6F 1264 0001:000F5F74 + 1265 0001:000F5F7F 1266 0001:000F5F8A 1267 0001:000F5F96 1268 0001:000F5FA8 + 1272 0001:000F5FAC 1273 0001:000F5FAF 1274 0001:000F5FB6 1275 0001:000F5FBD + 1276 0001:000F5FCD 1277 0001:000F5FD1 1285 0001:000F5FD4 1286 0001:000F5FF2 + 1287 0001:000F5FFC 1289 0001:000F6002 1290 0001:000F6011 1291 0001:000F6025 + 1295 0001:000F605B 1297 0001:000F60A5 1301 0001:000F60AC 1302 0001:000F60AF + 1306 0001:000F60B8 1307 0001:000F60CD 1308 0001:000F60D4 1309 0001:000F60E3 + 1311 0001:000F60EA 1317 0001:000F60EC 1318 0001:000F60F5 1319 0001:000F6101 + 1320 0001:000F610B 1322 0001:000F6110 1323 0001:000F611C 1327 0001:000F6123 + 1328 0001:000F613B 1329 0001:000F6148 1330 0001:000F6160 1332 0001:000F6164 + 1334 0001:000F6169 1335 0001:000F616D 1338 0001:000F6184 1339 0001:000F618B + 1341 0001:000F618D 1332 0001:000F618E 1342 0001:000F6193 1349 0001:000F619C + 1350 0001:000F61C2 1351 0001:000F61D3 1352 0001:000F61E7 1354 0001:000F61F0 + 1355 0001:000F6203 1358 0001:000F6218 1359 0001:000F6232 1361 0001:000F6245 + 1362 0001:000F6273 1364 0001:000F62AE 1366 0001:000F62B5 1369 0001:000F62FA + 1370 0001:000F6309 1371 0001:000F6310 1372 0001:000F6315 1373 0001:000F631B + 1375 0001:000F632A 1376 0001:000F632D 1378 0001:000F6330 1379 0001:000F6334 + 1381 0001:000F6339 1382 0001:000F633B 1384 0001:000F634E 1386 0001:000F635C + 1387 0001:000F6363 1390 0001:000F6369 1392 0001:000F636B 1393 0001:000F6372 + 1394 0001:000F638E 1396 0001:000F63B4 1397 0001:000F63EA 1402 0001:000F6418 + 1403 0001:000F642B 1404 0001:000F6431 1405 0001:000F6437 1406 0001:000F643D + 1407 0001:000F644F 1408 0001:000F6472 1409 0001:000F647C 1430 0001:000F65E8 + 1431 0001:000F65FF 1433 0001:000F660E 1434 0001:000F6621 1436 0001:000F6649 + 1437 0001:000F666F 1443 0001:000F6674 1444 0001:000F6676 1446 0001:000F667D + 1447 0001:000F6683 1448 0001:000F6688 1444 0001:000F668B 1449 0001:000F668F + 1454 0001:000F6694 1455 0001:000F6697 1456 0001:000F669E 1457 0001:000F66A8 + 1458 0001:000F66B6 1461 0001:000F66B8 1462 0001:000F66BB 1463 0001:000F66C2 + 1464 0001:000F66CC 1465 0001:000F66DA 1472 0001:000F66DC 1473 0001:000F66FB + 1474 0001:000F6701 1475 0001:000F6705 1476 0001:000F671E 1477 0001:000F6724 + 1478 0001:000F6751 1483 0001:000F6758 1484 0001:000F675C 1485 0001:000F6763 + 1486 0001:000F676B 1487 0001:000F676E 1488 0001:000F6772 1489 0001:000F677A + 1490 0001:000F677D 1493 0001:000F6780 1494 0001:000F6798 1495 0001:000F67A7 + 1496 0001:000F67AA 1497 0001:000F67B6 1498 0001:000F67D1 1503 0001:000F67D8 + 1504 0001:000F67DF 1505 0001:000F67E6 1506 0001:000F67F0 1507 0001:000F67F3 + 1508 0001:000F67F7 1509 0001:000F6801 1510 0001:000F6804 1513 0001:000F6808 + 1514 0001:000F6813 1515 0001:000F681B 1516 0001:000F6832 1519 0001:000F6838 + 1520 0001:000F6841 1521 0001:000F6848 1522 0001:000F6854 1525 0001:000F6858 + 1526 0001:000F685B 1527 0001:000F6862 1528 0001:000F686A 1531 0001:000F686C + 1532 0001:000F6872 1533 0001:000F6879 1534 0001:000F6883 1537 0001:000F6888 + 1538 0001:000F688E 1539 0001:000F6895 1540 0001:000F689F 1545 0001:000F68A4 + 1546 0001:000F68C7 1547 0001:000F68CE 1548 0001:000F68DB 1549 0001:000F68E1 + 1550 0001:000F68E5 1551 0001:000F68FE 1552 0001:000F6921 1558 0001:000F6928 + 1559 0001:000F694B 1560 0001:000F6958 1561 0001:000F695E 1562 0001:000F6962 + 1563 0001:000F697B 1564 0001:000F699E 1567 0001:000F69A8 1568 0001:000F69AC + 1569 0001:000F69B4 1573 0001:000F69B8 1574 0001:000F69BC 1576 0001:000F69C5 + 1577 0001:000F69CD 1586 0001:000F69D0 1587 0001:000F69F3 1588 0001:000F69FD + 1589 0001:000F6A03 1590 0001:000F6A19 1591 0001:000F6A20 1592 0001:000F6A36 + 1593 0001:000F6A45 1594 0001:000F6A53 1595 0001:000F6A5D 1596 0001:000F6A73 + 1597 0001:000F6A9E 1598 0001:000F6AC9 1599 0001:000F6AD5 1601 0001:000F6ADF + 1602 0001:000F6AEE 1603 0001:000F6AFA 1604 0001:000F6B3E 1605 0001:000F6B4A + 1607 0001:000F6B9A 1608 0001:000F6BB3 1609 0001:000F6BC0 1610 0001:000F6BD1 + 1612 0001:000F6BF6 1616 0001:000F6C05 1617 0001:000F6C37 1621 0001:000F6C69 + 1601 0001:000F6C6A 1622 0001:000F6C73 1623 0001:000F6C7F 1624 0001:000F6C8E + 1627 0001:000F6CBA 1630 0001:000F6CF9 1636 0001:000F6E10 1637 0001:000F6E22 + 1638 0001:000F6E2B 1639 0001:000F6E30 1640 0001:000F6E3A 1641 0001:000F6E44 + 1642 0001:000F6E4B 1643 0001:000F6E55 1644 0001:000F6E5C 1645 0001:000F6E63 + 1646 0001:000F6E6A 1647 0001:000F6E71 1648 0001:000F6E78 1649 0001:000F6E7F + 1650 0001:000F6E89 1651 0001:000F6E93 1652 0001:000F6E9C 1653 0001:000F6EA3 + 1654 0001:000F6EB3 1655 0001:000F6EBA 1656 0001:000F6EC1 1657 0001:000F6EC8 + 1658 0001:000F6ECF 1659 0001:000F6ED6 1660 0001:000F6EF5 1664 0001:000F6F04 + 1665 0001:000F6F0F 1666 0001:000F6F1A 1667 0001:000F6F2D 1668 0001:000F6F34 + 1669 0001:000F6F39 1670 0001:000F6F50 1674 0001:000F6F54 1675 0001:000F6F57 + 1676 0001:000F6F5E 1677 0001:000F6F65 1685 0001:000F6F68 1686 0001:000F6F6C + 1687 0001:000F6F73 1688 0001:000F6F75 1690 0001:000F6F7F 1691 0001:000F6F82 + 1693 0001:000F6F86 1694 0001:000F6F8D 1696 0001:000F6F97 1697 0001:000F6F9A + 1699 0001:000F6F9F 1700 0001:000F6FA6 1701 0001:000F6FB6 1705 0001:000F6FBC + 1706 0001:000F6FBF 1707 0001:000F6FC6 1708 0001:000F6FE1 1709 0001:000F6FE8 + 1714 0001:000F6FEC 1715 0001:000F6FEF 1716 0001:000F6FF6 1717 0001:000F6FFD + 1718 0001:000F7004 1724 0001:000F7008 1725 0001:000F7035 1727 0001:000F703F + 1728 0001:000F7046 1729 0001:000F7051 1728 0001:000F7092 1730 0001:000F7095 + 1734 0001:000F70AB 1736 0001:000F70F0 1742 0001:000F70F8 1743 0001:000F7119 + 1744 0001:000F711D 1746 0001:000F712F 1747 0001:000F713D 1748 0001:000F7142 + 1749 0001:000F714E 1748 0001:000F7173 1750 0001:000F7176 1751 0001:000F7182 + 1752 0001:000F718C 1754 0001:000F71C1 1761 0001:000F71C8 1762 0001:000F71D8 + 1763 0001:000F71DF 1764 0001:000F71E6 1765 0001:000F71FC 1766 0001:000F7203 + 1768 0001:000F7207 1770 0001:000F7211 1784 0001:000F721C 1785 0001:000F7222 + 1786 0001:000F722B 1788 0001:000F7234 1789 0001:000F7237 1790 0001:000F723B + 1792 0001:000F7243 1794 0001:000F7248 1800 0001:000F724C 1801 0001:000F7252 + 1803 0001:000F725B 1804 0001:000F7262 1805 0001:000F727A 1806 0001:000F7281 + 1807 0001:000F7285 1808 0001:000F728B 1809 0001:000F728E 1810 0001:000F72B9 + 1812 0001:000F72C5 1813 0001:000F72CE 1820 0001:000F72D4 1821 0001:000F72EE + 1822 0001:000F72F7 1824 0001:000F7306 1825 0001:000F730D 1826 0001:000F7325 + 1827 0001:000F732C 1829 0001:000F7330 1830 0001:000F7337 1831 0001:000F7348 + 1832 0001:000F735A 1833 0001:000F7365 1837 0001:000F736E 1838 0001:000F7378 + 1841 0001:000F739A 1847 0001:000F73A0 1848 0001:000F73BA 1849 0001:000F73C3 + 1851 0001:000F73D2 1852 0001:000F73D9 1853 0001:000F73F1 1854 0001:000F73F5 + 1856 0001:000F7413 1857 0001:000F7418 1859 0001:000F743C 1866 0001:000F7444 + 1867 0001:000F744B 1869 0001:000F7458 1871 0001:000F7461 1873 0001:000F7473 + 1874 0001:000F747C 1875 0001:000F7491 1878 0001:000F7496 1879 0001:000F74A8 + 1881 0001:000F74AA 1882 0001:000F74AF 1883 0001:000F74B3 1885 0001:000F74C1 + 1886 0001:000F74C8 1887 0001:000F74D1 1889 0001:000F74D8 1890 0001:000F74E2 + 1892 0001:000F74E8 1893 0001:000F74EF 1894 0001:000F7506 1896 0001:000F750F + 1898 0001:000F751E 1899 0001:000F7527 1905 0001:000F752C 1906 0001:000F7534 + 1908 0001:000F7541 1910 0001:000F754A 1912 0001:000F7553 1913 0001:000F755A + 1917 0001:000F7562 1919 0001:000F756D 1920 0001:000F7583 1922 0001:000F758C + 1925 0001:000F7592 1926 0001:000F75A4 1928 0001:000F75A6 1929 0001:000F75AB + 1930 0001:000F75AF 1932 0001:000F75BD 1933 0001:000F75C4 1934 0001:000F75CD + 1935 0001:000F75D4 1936 0001:000F75DE 1938 0001:000F75E4 1939 0001:000F75EB + 1940 0001:000F7602 1942 0001:000F760B 1944 0001:000F761A 1945 0001:000F7623 + 1951 0001:000F7628 1954 0001:000F762E 1955 0001:000F7635 1956 0001:000F764D + 1957 0001:000F7654 1959 0001:000F7658 1960 0001:000F766A 1961 0001:000F7670 + 1964 0001:000F767B 1965 0001:000F7682 1966 0001:000F768B 1967 0001:000F7692 + 1968 0001:000F769C 1975 0001:000F76A0 1976 0001:000F76A8 1978 0001:000F76B1 + 1979 0001:000F76C1 1981 0001:000F76CB 1982 0001:000F76D2 1983 0001:000F76E7 + 1984 0001:000F76EE 1985 0001:000F76F9 1979 0001:000F76FA 1986 0001:000F76FD + 1989 0001:000F770D 1990 0001:000F7716 1991 0001:000F771E 1992 0001:000F7727 + 1996 0001:000F772C 1997 0001:000F772F 1998 0001:000F7736 1999 0001:000F7740 + 2003 0001:000F7744 2004 0001:000F7747 2005 0001:000F774E 2006 0001:000F7766 + 2007 0001:000F776D 2014 0001:000F7770 2016 0001:000F7776 2018 0001:000F77D9 + 2020 0001:000F77E6 2022 0001:000F77F1 2023 0001:000F7805 2025 0001:000F7826 + 2033 0001:000F783A 2034 0001:000F7843 2036 0001:000F7874 2038 0001:000F78A2 + 2039 0001:000F78B7 2040 0001:000F78CC 2041 0001:000F78DA 2042 0001:000F78E8 + 2043 0001:000F78F8 2044 0001:000F7908 2046 0001:000F7911 2047 0001:000F7916 + 2057 0001:000F791C 2058 0001:000F7926 2060 0001:000F7933 2061 0001:000F793A + 2062 0001:000F7945 2064 0001:000F795D 2066 0001:000F7984 2067 0001:000F7991 + 2068 0001:000F79AD 2069 0001:000F79BA 2074 0001:000F79C1 2075 0001:000F79DF + 2077 0001:000F7A0A 2079 0001:000F7A13 2081 0001:000F7A52 2082 0001:000F7A5B + 2084 0001:000F7A84 2087 0001:000F7A92 2088 0001:000F7ABE 2089 0001:000F7AC7 + 2091 0001:000F7AEA 2095 0001:000F7AF8 2097 0001:000F7B01 2098 0001:000F7B0F + 2099 0001:000F7B17 2100 0001:000F7B22 2101 0001:000F7B27 2103 0001:000F7B4E + 2104 0001:000F7B61 2108 0001:000F7B79 2109 0001:000F7B82 2114 0001:000F7B8C + 2115 0001:000F7B92 2116 0001:000F7BBA 2117 0001:000F7BC1 2118 0001:000F7BCA + 2126 0001:000F7BD0 2127 0001:000F7BDA 2129 0001:000F7BF0 2130 0001:000F7BF9 + 2132 0001:000F7C10 2134 0001:000F7C37 2135 0001:000F7C44 2138 0001:000F7C59 + 2139 0001:000F7C5C 2141 0001:000F7C68 2142 0001:000F7C71 2149 0001:000F7C78 + 2150 0001:000F7C81 2152 0001:000F7C8E 2156 0001:000F7C9E 2157 0001:000F7CC7 + 2159 0001:000F7D0D 2161 0001:000F7D16 2163 0001:000F7D55 2164 0001:000F7D5E + 2166 0001:000F7D87 2169 0001:000F7D92 2170 0001:000F7DBE 2171 0001:000F7DC7 + 2173 0001:000F7DEA 2177 0001:000F7DF3 2178 0001:000F7DFC 2183 0001:000F7E04 + 2184 0001:000F7E0A 2185 0001:000F7E14 2186 0001:000F7E25 2187 0001:000F7E2E + 2191 0001:000F7E34 2192 0001:000F7E37 2193 0001:000F7E3E 2194 0001:000F7E4E + 2199 0001:000F7E50 2200 0001:000F7E56 2201 0001:000F7E5F 2202 0001:000F7E78 + 2203 0001:000F7E88 2209 0001:000F7E8C 2210 0001:000F7E8F 2211 0001:000F7E96 + 2212 0001:000F7EA7 2218 0001:000F7EAC 2219 0001:000F7EB2 2220 0001:000F7EB9 + 2221 0001:000F7EC0 2222 0001:000F7EC6 2223 0001:000F7EE2 2224 0001:000F7EFC + 2227 0001:000F7F08 2228 0001:000F7F0B 2229 0001:000F7F12 2230 0001:000F7F1C + 2234 0001:000F7F20 2235 0001:000F7F23 2237 0001:000F7F35 2238 0001:000F7F45 + 2240 0001:000F7F5D 2250 0001:000F7F60 2251 0001:000F7F65 2255 0001:000F7F68 + 2256 0001:000F7F6B 2257 0001:000F7F75 2258 0001:000F7F7C 2259 0001:000F7F83 + 2266 0001:000F7F88 2267 0001:000F7F8D 2269 0001:000F7F96 2270 0001:000F7FA6 + 2272 0001:000F7FB0 2273 0001:000F7FB7 2274 0001:000F7FCC 2275 0001:000F7FD3 + 2276 0001:000F7FD7 2277 0001:000F7FE2 2270 0001:000F7FE3 2278 0001:000F7FE6 + 2281 0001:000F7FED 2289 0001:000F7FF4 2290 0001:000F7FFD 2291 0001:000F8026 + 2292 0001:000F802F 2293 0001:000F8036 2294 0001:000F804B 2295 0001:000F8054 + 2297 0001:000F8058 2299 0001:000F8061 2300 0001:000F8071 2301 0001:000F8077 + 2302 0001:000F807D 2307 0001:000F8083 2308 0001:000F8089 2310 0001:000F808F + 2313 0001:000F8093 2314 0001:000F80A0 2315 0001:000F80B4 2316 0001:000F80BE + 2317 0001:000F80CE 2318 0001:000F80D8 2319 0001:000F80DD 2322 0001:000F80E4 + 2323 0001:000F80EA 2324 0001:000F80F3 2325 0001:000F810B 2332 0001:000F8110 + 2333 0001:000F8125 2334 0001:000F812F 2335 0001:000F813E 2337 0001:000F8159 + 2338 0001:000F8162 2340 0001:000F8166 2341 0001:000F816F 2343 0001:000F817A + 2346 0001:000F8188 2356 0001:000F8190 2357 0001:000F81A3 2358 0001:000F81B0 + 2362 0001:000F81D1 2363 0001:000F81EE 2364 0001:000F81F4 2366 0001:000F81FA + 2368 0001:000F8223 2369 0001:000F822D 2370 0001:000F8234 2371 0001:000F823E + 2374 0001:000F8243 2376 0001:000F8259 2377 0001:000F8264 2378 0001:000F8281 + 2380 0001:000F828D 2382 0001:000F82BA 2383 0001:000F82E6 2384 0001:000F82FA + 2387 0001:000F8302 2388 0001:000F830C 2391 0001:000F8316 2397 0001:000F8320 + 2398 0001:000F8343 2400 0001:000F8355 2401 0001:000F835E 2403 0001:000F836E + 2404 0001:000F837F 2406 0001:000F8394 2407 0001:000F83BD 2410 0001:000F83C4 + 2411 0001:000F83CA 2412 0001:000F83D7 2413 0001:000F83DE 2414 0001:000F83E7 + 2418 0001:000F83EC 2419 0001:000F83F5 2420 0001:000F83F8 2421 0001:000F83FC + 2422 0001:000F8401 2434 0001:000F8404 2435 0001:000F842D 2436 0001:000F8437 + 2437 0001:000F8450 2440 0001:000F8478 2441 0001:000F8486 2443 0001:000F849A + 2444 0001:000F84A9 2445 0001:000F84B8 2447 0001:000F84BE 2448 0001:000F84C2 + 2449 0001:000F84CB 2450 0001:000F84D2 2451 0001:000F84E7 2453 0001:000F84F0 + 2455 0001:000F84FD 2457 0001:000F8501 2460 0001:000F850C 2461 0001:000F8515 + 2463 0001:000F8520 2467 0001:000F852B 2468 0001:000F8534 2470 0001:000F853F + 2474 0001:000F854A 2475 0001:000F8553 2477 0001:000F855E 2483 0001:000F8569 + 2484 0001:000F8572 2486 0001:000F857D 2488 0001:000F8586 2489 0001:000F8594 + 2490 0001:000F859A 2491 0001:000F859E 2492 0001:000F85B6 2495 0001:000F85CA + 2496 0001:000F85D3 2498 0001:000F85EA 2499 0001:000F85F6 2501 0001:000F8612 + 2503 0001:000F8621 2504 0001:000F862D 2505 0001:000F863A 2506 0001:000F8645 + 2507 0001:000F8650 2501 0001:000F8651 2508 0001:000F8654 2510 0001:000F8690 + 2512 0001:000F869F 2513 0001:000F86AB 2514 0001:000F86B8 2515 0001:000F86C3 + 2516 0001:000F86CE 2510 0001:000F86CF 2519 0001:000F86D4 2522 0001:000F871C + 2525 0001:000F8728 2526 0001:000F872F 2528 0001:000F8738 2530 0001:000F8742 + 2531 0001:000F8743 2532 0001:000F8757 2533 0001:000F8760 2536 0001:000F8776 + 2537 0001:000F8793 2547 0001:000F8798 2548 0001:000F87A3 2550 0001:000F87B0 + 2552 0001:000F87C0 2553 0001:000F87D6 2554 0001:000F87E2 2555 0001:000F87F0 + 2558 0001:000F8812 2559 0001:000F881D 2560 0001:000F8823 2561 0001:000F882A + 2563 0001:000F882E 2564 0001:000F8848 2565 0001:000F8864 2566 0001:000F8872 + 2568 0001:000F887E 2570 0001:000F8888 2571 0001:000F889E 2572 0001:000F88B5 + 2574 0001:000F88C3 2578 0001:000F88CE 2579 0001:000F88D6 2581 0001:000F88D9 + 2576 0001:000F88DA 2586 0001:000F8902 2587 0001:000F8910 2588 0001:000F8937 + 2589 0001:000F893D 2590 0001:000F8949 2595 0001:000F896A 2596 0001:000F8979 + 2597 0001:000F8988 2598 0001:000F899F 2605 0001:000F89B7 2606 0001:000F89C0 + 2607 0001:000F89D5 2617 0001:000F89DC 2619 0001:000F89E7 2622 0001:000F8A14 + 2624 0001:000F8A2B 2625 0001:000F8A48 2627 0001:000F8A51 2628 0001:000F8A5A + 2631 0001:000F8A65 2632 0001:000F8A79 2633 0001:000F8A7A 2629 0001:000F8A7B + 2637 0001:000F8A92 2638 0001:000F8A95 2640 0001:000F8AC2 2641 0001:000F8AE0 + 2645 0001:000F8AE8 2646 0001:000F8B0A 2647 0001:000F8B1F 2648 0001:000F8B5B + 2649 0001:000F8B91 2653 0001:000F8B98 2654 0001:000F8BB8 2655 0001:000F8BC5 + 2656 0001:000F8C0B 2657 0001:000F8C41 2663 0001:000F8C48 2664 0001:000F8C51 + 2665 0001:000F8C58 2666 0001:000F8C6E 2668 0001:000F8C81 2669 0001:000F8C8D + 2670 0001:000F8C90 2671 0001:000F8C92 2665 0001:000F8C93 2672 0001:000F8C99 + 2679 0001:000F8CA4 2680 0001:000F8CC5 2681 0001:000F8CC9 2682 0001:000F8CD0 + 2683 0001:000F8CEF 2685 0001:000F8D24 2686 0001:000F8D30 2687 0001:000F8D33 + 2688 0001:000F8D37 2689 0001:000F8D39 2683 0001:000F8D3A 2690 0001:000F8D3D + 2692 0001:000F8D4C 2693 0001:000F8D56 2695 0001:000F8D86 2699 0001:000F8D90 + 2700 0001:000F8DAC 2701 0001:000F8E22 2707 0001:000F8E2C 2708 0001:000F8E50 + 2709 0001:000F8E57 2710 0001:000F8E6E 2712 0001:000F8EA3 2713 0001:000F8EAF + 2714 0001:000F8EB2 2715 0001:000F8EB4 2709 0001:000F8EB5 2716 0001:000F8EDF + 2738 0001:000F8EE8 2739 0001:000F8F14 2740 0001:000F8F28 2741 0001:000F8F3E + 2742 0001:000F8F45 2743 0001:000F8F5C 2744 0001:000F8F63 2745 0001:000F8F67 + 2746 0001:000F8F8E 2778 0001:000F8FBC 2779 0001:000F8FC2 2780 0001:000F8FCB + 2782 0001:000F8FE0 2783 0001:000F8FF2 2790 0001:000F8FF8 2791 0001:000F9007 + 2792 0001:000F901B 2793 0001:000F9029 2795 0001:000F9045 2792 0001:000F905E + 2796 0001:000F9061 2798 0001:000F906A 2802 0001:000F908B 2804 0001:000F90AA + 2805 0001:000F90B1 2806 0001:000F90CA 2807 0001:000F90D1 2811 0001:000F9110 + 2813 0001:000F9118 2814 0001:000F911E 2816 0001:000F9123 2823 0001:000F9124 + 2824 0001:000F9130 2825 0001:000F913E 2826 0001:000F914D 2828 0001:000F9156 + 2829 0001:000F9168 2830 0001:000F9174 2832 0001:000F918B 2833 0001:000F919C + 2834 0001:000F91AC 2830 0001:000F91B0 2838 0001:000F91B5 2839 0001:000F91C7 + 2840 0001:000F91D3 2843 0001:000F91E6 2844 0001:000F91F2 2845 0001:000F9208 + 2840 0001:000F920C 2847 0001:000F920F 2848 0001:000F9218 2849 0001:000F922B + 2850 0001:000F9232 2856 0001:000F9240 2857 0001:000F9244 2859 0001:000F924C + 2860 0001:000F9259 2861 0001:000F926F 2862 0001:000F9277 2864 0001:000F927B + 2868 0001:000F9286 2869 0001:000F928F 2870 0001:000F929F 2871 0001:000F92A8 + 2872 0001:000F92B1 2875 0001:000F92BA 2878 0001:000F9300 2879 0001:000F9320 + 2881 0001:000F9330 2882 0001:000F933E 2883 0001:000F934D 2884 0001:000F9356 + 2886 0001:000F935F 2887 0001:000F9368 2890 0001:000F938E 2894 0001:000F9394 + 2895 0001:000F939A 2899 0001:000F939C 2900 0001:000F93AA 2901 0001:000F93B1 + 2902 0001:000F93BE 2903 0001:000F93C5 2904 0001:000F93CA 2909 0001:000F93CC + 2910 0001:000F93D2 2911 0001:000F93D7 2915 0001:000F93D8 2916 0001:000F93DE + 2917 0001:000F93F0 2921 0001:000F93F4 2922 0001:000F93F7 2923 0001:000F940A + 2924 0001:000F9411 2935 0001:000F9414 2936 0001:000F9433 2937 0001:000F9437 + 2938 0001:000F943C 2939 0001:000F9441 2940 0001:000F944F 2941 0001:000F945D + 2942 0001:000F9469 2943 0001:000F9471 2944 0001:000F947D 2945 0001:000F948C + 2946 0001:000F949B 2947 0001:000F94A5 2948 0001:000F94AF 2950 0001:000F94CB + 2951 0001:000F94E6 2952 0001:000F94F0 2948 0001:000F94F3 2953 0001:000F94F6 + 2954 0001:000F9508 2955 0001:000F9515 2956 0001:000F951F 2958 0001:000F9532 + 2959 0001:000F953F 2961 0001:000F9543 2962 0001:000F9566 2964 0001:000F9572 + 2956 0001:000F9575 2966 0001:000F9585 2967 0001:000F958D 2968 0001:000F9595 + 2969 0001:000F95A3 2971 0001:000F95D4 2975 0001:000F95DC 2976 0001:000F95DF + 2978 0001:000F95E7 2979 0001:000F95EC 2982 0001:000F95F5 2983 0001:000F95FC + 2984 0001:000F9605 2987 0001:000F960E 2993 0001:000F9610 2994 0001:000F9616 + 2995 0001:000F962B 2996 0001:000F962F 2997 0001:000F9636 2998 0001:000F9640 + 2999 0001:000F9643 3000 0001:000F964A 3001 0001:000F965E 3002 0001:000F9669 + 3006 0001:000F9670 3007 0001:000F9675 3008 0001:000F967C 3009 0001:000F9693 + 3010 0001:000F96A9 3011 0001:000F96B2 3012 0001:000F96BF 3013 0001:000F96D2 + 3014 0001:000F96D9 3015 0001:000F96EF 3016 0001:000F96F9 3017 0001:000F9705 + 3018 0001:000F9712 3022 0001:000F971C 3023 0001:000F971F 3024 0001:000F9726 + 3025 0001:000F9731 3026 0001:000F9739 3034 0001:000F973C 3035 0001:000F9761 + 3040 0001:000F9770 3043 0001:000F97CB 3044 0001:000F97E4 3045 0001:000F9805 + 3046 0001:000F9809 3047 0001:000F981B 3048 0001:000F9830 3050 0001:000F9843 + 3051 0001:000F9855 3052 0001:000F986A 3053 0001:000F98B0 3055 0001:000F98F0 + 3056 0001:000F9905 3057 0001:000F994A 3060 0001:000F99B6 3066 0001:000F99C0 + 3067 0001:000F99E7 3069 0001:000F99F4 3071 0001:000F99FD 3072 0001:000F9A09 + 3073 0001:000F9A0E 3075 0001:000F9A37 3076 0001:000F9A40 3078 0001:000F9A56 + 3079 0001:000F9AAE 3080 0001:000F9ABA 3081 0001:000F9AD8 3083 0001:000F9B0E + 3086 0001:000F9B20 3087 0001:000F9B24 3089 0001:000F9B2D 3090 0001:000F9B44 + 3092 0001:000F9B5B 3098 0001:000F9BC4 3099 0001:000F9BC8 3100 0001:000F9BDB + 3101 0001:000F9BFB 3102 0001:000F9C0E 3103 0001:000F9C15 3114 0001:000F9C18 + 3115 0001:000F9C24 3117 0001:000F9C3C 3116 0001:000F9C7E 3118 0001:000F9C83 + 3119 0001:000F9CB3 3121 0001:000F9CDB 3123 0001:000F9CE0 3124 0001:000F9D0D + 3125 0001:000F9D17 3126 0001:000F9D21 3127 0001:000F9D2B 3128 0001:000F9D34 + 3129 0001:000F9D48 3130 0001:000F9D63 3131 0001:000F9D7C 3133 0001:000F9DB1 + 3134 0001:000F9DB8 3136 0001:000F9DC7 3137 0001:000F9DD4 3139 0001:000F9DDE + 3141 0001:000F9DED 3142 0001:000F9E16 3144 0001:000F9E31 3146 0001:000F9E3D + 3147 0001:000F9E4A 3148 0001:000F9E4F 3150 0001:000F9E7F 3151 0001:000F9E8B + 3152 0001:000F9EA1 3153 0001:000F9EB7 3154 0001:000F9EB9 3156 0001:000F9ED8 + 3157 0001:000F9EDA 3158 0001:000F9EDC 3154 0001:000F9EDD 3159 0001:000F9EE0 + 3160 0001:000F9EF8 3161 0001:000F9F2E 3162 0001:000F9F7A 3163 0001:000F9F8E + 3164 0001:000F9F98 3165 0001:000F9FC2 3171 0001:000F9FD4 3172 0001:000F9FED + 3173 0001:000F9FF2 3174 0001:000FA005 3175 0001:000FA01D 3177 0001:000FA021 + 3176 0001:000FA022 3178 0001:000FA069 3186 0001:000FA070 3187 0001:000FA093 + 3188 0001:000FA09D 3189 0001:000FA0AA 3191 0001:000FA0AF 3192 0001:000FA0CC + 3193 0001:000FA0DC 3194 0001:000FA0E7 3195 0001:000FA0F6 3197 0001:000FA118 + 3200 0001:000FA12A 3202 0001:000FA137 3203 0001:000FA13C 3204 0001:000FA150 + 3205 0001:000FA160 3206 0001:000FA170 3207 0001:000FA182 3212 0001:000FA192 + 3213 0001:000FA194 3215 0001:000FA19A 3216 0001:000FA1B9 3217 0001:000FA1C7 + 3219 0001:000FA1DC 3220 0001:000FA1EF 3225 0001:000FA1F3 3226 0001:000FA213 + 3228 0001:000FA21C 3229 0001:000FA224 3232 0001:000FA226 3234 0001:000FA22A + 3235 0001:000FA233 3237 0001:000FA24B 3238 0001:000FA24E 3241 0001:000FA257 + 3242 0001:000FA25F 3246 0001:000FA271 3248 0001:000FA28D 3249 0001:000FA2AD + 3252 0001:000FA2C9 3253 0001:000FA2E8 3254 0001:000FA2F6 3257 0001:000FA31F + 3258 0001:000FA33F 3261 0001:000FA35D 3262 0001:000FA37C 3263 0001:000FA38A + 3267 0001:000FA3B3 3268 0001:000FA3E3 3274 0001:000FA3EC 3275 0001:000FA40F + 3276 0001:000FA412 3278 0001:000FA421 3280 0001:000FA42A 3281 0001:000FA448 + 3284 0001:000FA459 3286 0001:000FA47E 3288 0001:000FA4B5 3289 0001:000FA4B8 + 3291 0001:000FA4BA 3284 0001:000FA4BD 3292 0001:000FA4C2 3294 0001:000FA4C6 + 3295 0001:000FA4EA 3299 0001:000FA519 3307 0001:000FA520 3308 0001:000FA545 + 3309 0001:000FA548 3311 0001:000FA558 3313 0001:000FA561 3314 0001:000FA580 + 3316 0001:000FA588 3319 0001:000FA593 3321 0001:000FA5B3 3323 0001:000FA5EB + 3324 0001:000FA5ED 3326 0001:000FA5EF 3319 0001:000FA5F0 3327 0001:000FA5F5 + 3329 0001:000FA636 3330 0001:000FA641 3332 0001:000FA64A 3333 0001:000FA657 + 3334 0001:000FA65D 3336 0001:000FA687 3337 0001:000FA690 3339 0001:000FA6A6 + 3340 0001:000FA6FE 3342 0001:000FA70A 3344 0001:000FA70E 3345 0001:000FA733 + 3346 0001:000FA740 3347 0001:000FA74D 3351 0001:000FA757 3352 0001:000FA763 + 3353 0001:000FA769 3354 0001:000FA777 3355 0001:000FA7C0 3358 0001:000FA7D4 + 3359 0001:000FA7D7 3361 0001:000FA7DF 3362 0001:000FA7E5 3364 0001:000FA7E9 + 3365 0001:000FA7F4 3366 0001:000FA7FD 3367 0001:000FA806 3369 0001:000FA812 + 3371 0001:000FA819 3375 0001:000FA81C 3377 0001:000FA824 3378 0001:000FA82A + 3380 0001:000FA82F 3386 0001:000FA830 3387 0001:000FA836 3388 0001:000FA838 + 3389 0001:000FA83C 3390 0001:000FA843 3391 0001:000FA858 3392 0001:000FA85F + 3393 0001:000FA863 3395 0001:000FA86C 3396 0001:000FA86E 3403 0001:000FA874 + 3404 0001:000FA880 3405 0001:000FA887 3406 0001:000FA89C 3407 0001:000FA8A3 + 3409 0001:000FA8B2 3410 0001:000FA8B6 3412 0001:000FA8BC 3413 0001:000FA8C0 + 3414 0001:000FA8CB 3415 0001:000FA8DF 3416 0001:000FA8E9 3418 0001:000FA8F9 + 3424 0001:000FA900 3425 0001:000FA906 3426 0001:000FA90D 3427 0001:000FA922 + 3428 0001:000FA929 3429 0001:000FA92D 3431 0001:000FA933 3432 0001:000FA935 + 3440 0001:000FA938 3441 0001:000FA944 3442 0001:000FA94B 3443 0001:000FA960 + 3444 0001:000FA967 3446 0001:000FA970 3447 0001:000FA973 3448 0001:000FA97E + 3449 0001:000FA992 3450 0001:000FA99C 3452 0001:000FA9AC 3456 0001:000FA9B4 + 3457 0001:000FA9BA 3460 0001:000FA9BC 3461 0001:000FA9C2 3462 0001:000FA9CB + 3463 0001:000FA9D8 3469 0001:000FA9DC 3470 0001:000FA9FC 3471 0001:000FAA03 + 3473 0001:000FAA0C 3474 0001:000FAA27 3473 0001:000FAA4B 3476 0001:000FAA6B + 3482 0001:000FAA74 3483 0001:000FAA95 3484 0001:000FAAAB 3483 0001:000FAAD5 + 3485 0001:000FAAF5 3488 0001:000FAAFC 3489 0001:000FAAFF 3490 0001:000FAB08 + 3491 0001:000FAB26 3492 0001:000FAB2C 3495 0001:000FAB30 3496 0001:000FAB36 + 3497 0001:000FAB3F 3498 0001:000FAB5D 3499 0001:000FAB6A 3502 0001:000FAB70 + 3503 0001:000FAB73 3504 0001:000FAB7F 3505 0001:000FAB86 3508 0001:000FAB88 + 3509 0001:000FAB8F 3510 0001:000FAB98 3511 0001:000FABAE 3512 0001:000FABB7 + 3513 0001:000FABC4 3514 0001:000FABD1 3515 0001:000FABDE 3516 0001:000FABE8 + 3518 0001:000FABF7 3519 0001:000FAC05 3521 0001:000FAC10 3522 0001:000FAC1D + 3525 0001:000FAC24 3526 0001:000FAC2A 3527 0001:000FAC37 3530 0001:000FAC3C + 3531 0001:000FAC63 3532 0001:000FAC72 3534 0001:000FAC9F 3535 0001:000FACD2 + 3538 0001:000FAD04 3539 0001:000FAD0A 3540 0001:000FAD19 3542 0001:000FAD2D + 3543 0001:000FAD36 3551 0001:000FAD3C 3552 0001:000FAD42 3553 0001:000FAD6D + 3560 0001:000FAD70 3561 0001:000FAD82 3562 0001:000FAD8B 3563 0001:000FAD94 + 3564 0001:000FAD9D 3565 0001:000FADA6 3566 0001:000FADAF 3567 0001:000FADB8 + 3568 0001:000FADC1 3569 0001:000FADDF 3573 0001:000FADE4 3574 0001:000FADEA + 3575 0001:000FADF3 3577 0001:000FADF9 3578 0001:000FAE09 3579 0001:000FAE0D + 3580 0001:000FAE14 3582 0001:000FAE1C 3588 0001:000FAE20 3589 0001:000FAE29 + 3590 0001:000FAE2E 3592 0001:000FAE37 3593 0001:000FAE48 3595 0001:000FAE60 + 3598 0001:000FAE9C 3599 0001:000FAEA8 3601 0001:000FAEAA 3592 0001:000FAEAB + 3603 0001:000FAEB1 3609 0001:000FAEB8 3610 0001:000FAEBB 3611 0001:000FAEC4 + 3612 0001:000FAECF 3613 0001:000FAED8 3614 0001:000FAEE3 3621 0001:000FAEE8 + 3622 0001:000FAEED 3623 0001:000FAEF4 3625 0001:000FAEFD 3626 0001:000FAF08 + 3628 0001:000FAF0C 3629 0001:000FAF16 3630 0001:000FAF1F 3631 0001:000FAF28 + 3632 0001:000FAF35 3633 0001:000FAF40 3634 0001:000FAF49 3635 0001:000FAF55 + 3638 0001:000FAF62 3646 0001:000FAF68 3647 0001:000FAF6C 3648 0001:000FAF7A + 3650 0001:000FAF8D 3652 0001:000FAF9A 3653 0001:000FAFAA 3654 0001:000FAFB3 + 3655 0001:000FAFBF 3656 0001:000FAFCB 3657 0001:000FAFD2 3658 0001:000FAFDB + 3659 0001:000FAFE7 3660 0001:000FAFF7 3661 0001:000FB007 3662 0001:000FB010 + 3663 0001:000FB01C 3664 0001:000FB028 3665 0001:000FB02F 3666 0001:000FB038 + 3667 0001:000FB044 3668 0001:000FB054 3669 0001:000FB05B 3673 0001:000FB069 + 3675 0001:000FB072 3676 0001:000FB081 3677 0001:000FB099 3675 0001:000FB0A8 + 3678 0001:000FB0AD 3679 0001:000FB0B4 3681 0001:000FB0BF 3685 0001:000FB0E0 + 3686 0001:000FB0E3 3687 0001:000FB103 3695 0001:000FB13C 3696 0001:000FB13F + 3697 0001:000FB146 3698 0001:000FB154 3701 0001:000FB158 3702 0001:000FB160 + 3703 0001:000FB169 3705 0001:000FB179 3709 0001:000FB1B3 3710 0001:000FB1C0 + 3713 0001:000FB1C5 3716 0001:000FB1CC 3717 0001:000FB1D0 3718 0001:000FB1D7 + 3720 0001:000FB1E7 3722 0001:000FB1FF 3723 0001:000FB20C 3724 0001:000FB219 + 3727 0001:000FB21E 3733 0001:000FB224 3734 0001:000FB23B 3735 0001:000FB244 + 3736 0001:000FB250 3737 0001:000FB25C 3738 0001:000FB267 3739 0001:000FB271 + 3740 0001:000FB278 3741 0001:000FB282 3742 0001:000FB298 3743 0001:000FB2A1 + 3744 0001:000FB2AE 3745 0001:000FB2C4 3746 0001:000FB2D4 3747 0001:000FB2E4 + 3748 0001:000FB2F4 3749 0001:000FB304 3750 0001:000FB30B 3751 0001:000FB31C + 3752 0001:000FB32D 3753 0001:000FB343 3754 0001:000FB34C 3755 0001:000FB362 + 3756 0001:000FB372 3757 0001:000FB382 3758 0001:000FB392 3759 0001:000FB399 + 3760 0001:000FB3BC 3763 0001:000FB3C4 3764 0001:000FB3CA 3765 0001:000FB3D7 + 3766 0001:000FB3E2 3767 0001:000FB3EB 3771 0001:000FB3F0 3772 0001:000FB3F3 + 3773 0001:000FB3FA 3774 0001:000FB401 3778 0001:000FB404 3779 0001:000FB407 + 3780 0001:000FB40E 3781 0001:000FB417 3785 0001:000FB41C 3786 0001:000FB41F + 3787 0001:000FB426 3788 0001:000FB42D 3791 0001:000FB430 3792 0001:000FB436 + 3793 0001:000FB43F 3795 0001:000FB448 3796 0001:000FB44F 3797 0001:000FB46E + 3799 0001:000FB486 3803 0001:000FB48C 3804 0001:000FB496 3806 0001:000FB499 + 3807 0001:000FB49F 3816 0001:000FB4A0 3817 0001:000FB4A9 3818 0001:000FB4B2 + 3819 0001:000FB4C1 3821 0001:000FB4CA 3822 0001:000FB4CC 3823 0001:000FB4D3 + 3827 0001:000FB4DD 3828 0001:000FB4E2 3829 0001:000FB4E9 3831 0001:000FB4F1 + 3832 0001:000FB505 3833 0001:000FB520 3834 0001:000FB52A 3835 0001:000FB550 + 3837 0001:000FB559 3838 0001:000FB563 3842 0001:000FB597 3845 0001:000FB5B7 + 3846 0001:000FB5BE 3851 0001:000FB5C8 3852 0001:000FB5CE 3854 0001:000FB5D2 + 3855 0001:000FB5D9 3856 0001:000FB5E9 3858 0001:000FB5F0 3863 0001:000FB5F8 + 3864 0001:000FB5FE 3865 0001:000FB614 3866 0001:000FB622 3872 0001:000FB628 + 3884 0001:000FB62B 3885 0001:000FB632 3886 0001:000FB648 3889 0001:000FB64C + 3890 0001:000FB64F 3891 0001:000FB65D 3892 0001:000FB673 3896 0001:000FB678 + 3897 0001:000FB67B 3898 0001:000FB684 3900 0001:000FB68D 3901 0001:000FB694 + 3903 0001:000FB6B3 3904 0001:000FB6BA 3908 0001:000FB6BC 3909 0001:000FB6BF + 3910 0001:000FB6C6 3911 0001:000FB6D1 3916 0001:000FB6D4 3917 0001:000FB6DD + 3918 0001:000FB6E4 3919 0001:000FB6FC 3920 0001:000FB701 3927 0001:000FB704 + 3928 0001:000FB723 3929 0001:000FB72A 3930 0001:000FB763 3931 0001:000FB790 + 3932 0001:000FB79E 3933 0001:000FB7A1 3934 0001:000FB7B1 3935 0001:000FB7C1 + 3936 0001:000FB7E2 3937 0001:000FB7F2 3938 0001:000FB7FB 3939 0001:000FB80D + 3941 0001:000FB82C 3942 0001:000FB833 3943 0001:000FB841 3944 0001:000FB851 + 3945 0001:000FB86B 3946 0001:000FB87A 3947 0001:000FB8B0 3948 0001:000FB8B7 + 3950 0001:000FB8BC 3951 0001:000FB8C3 3953 0001:000FB8C8 3954 0001:000FB8E2 + 3955 0001:000FB8F0 3956 0001:000FB903 3959 0001:000FB93B 3960 0001:000FB94A + 3962 0001:000FB966 3963 0001:000FB974 3965 0001:000FB98C 3966 0001:000FB993 + 3967 0001:000FB9A2 3968 0001:000FBA0C 4001 0001:000FBA14 4002 0001:000FBA2F + 4004 0001:000FBA44 4005 0001:000FBA4B 4006 0001:000FBA65 4007 0001:000FBA89 + 4008 0001:000FBAA5 4011 0001:000FBAAC 4012 0001:000FBABB 4013 0001:000FBAEA + 4015 0001:000FBAF8 4016 0001:000FBB10 4017 0001:000FBB1F 4018 0001:000FBB61 + 4022 0001:000FBB68 4023 0001:000FBB69 4024 0001:000FBB83 4031 0001:000FBB88 + 4033 0001:000FBBAC 4034 0001:000FBBD1 4035 0001:000FBBD8 4036 0001:000FBBF6 + 4038 0001:000FBC12 4040 0001:000FBC2D 4042 0001:000FBC42 4044 0001:000FBC52 + 4046 0001:000FBC5B 4047 0001:000FBC85 4048 0001:000FBCA6 4049 0001:000FBCAE + 4051 0001:000FBCB3 4052 0001:000FBCC0 4056 0001:000FBCD5 4058 0001:000FBCEA + 4060 0001:000FBD0E 4061 0001:000FBD25 4062 0001:000FBD2C 4064 0001:000FBD3D + 4065 0001:000FBD65 4067 0001:000FBD81 4070 0001:000FBD88 4071 0001:000FBDB6 + 4073 0001:000FBDC0 4074 0001:000FBDC7 4075 0001:000FBDD5 4076 0001:000FBDE5 + 4077 0001:000FBDFA 4078 0001:000FBE09 4080 0001:000FBE2C 4081 0001:000FBE3A + 4082 0001:000FBE48 4083 0001:000FBE58 4085 0001:000FBE5F 4087 0001:000FBE7E + 4088 0001:000FBEA4 4090 0001:000FBEBD 4092 0001:000FBED5 4093 0001:000FBEE6 + 4096 0001:000FBEF7 4097 0001:000FBF40 4101 0001:000FBF4C 4103 0001:000FBF4D + 4105 0001:000FBF6D 4106 0001:000FBF70 4108 0001:000FBF72 4109 0001:000FBF8C + 4113 0001:000FBF90 4114 0001:000FBF99 4116 0001:000FBFA0 4117 0001:000FBFCE + 4118 0001:000FBFEC 4119 0001:000FBFF3 4123 0001:000FBFFC 4124 0001:000FC000 + 4125 0001:000FC01A 4130 0001:000FC020 4131 0001:000FC039 4132 0001:000FC08E + 4137 0001:000FC098 4138 0001:000FC0A2 4148 0001:000FC0A4 4149 0001:000FC0C5 + 4150 0001:000FC0DE 4151 0001:000FC0E6 4153 0001:000FC0EE 4154 0001:000FC106 + 4155 0001:000FC115 4156 0001:000FC129 4157 0001:000FC144 4159 0001:000FC169 + 4161 0001:000FC18A 4162 0001:000FC193 4163 0001:000FC19C 4164 0001:000FC19F + 4165 0001:000FC1B8 4167 0001:000FC1C7 4168 0001:000FC1D2 4170 0001:000FC1EE + 4171 0001:000FC1FB 4172 0001:000FC206 4173 0001:000FC21B 4176 0001:000FC237 + 4177 0001:000FC24F 4178 0001:000FC25C 4179 0001:000FC266 4180 0001:000FC271 + 4182 0001:000FC2A4 4184 0001:000FC2D4 4190 0001:000FC2DC 4191 0001:000FC2E2 + 4192 0001:000FC2FD 4193 0001:000FC309 4195 0001:000FC312 4196 0001:000FC329 + 4197 0001:000FC332 4200 0001:000FC339 4201 0001:000FC347 4202 0001:000FC34D + 4203 0001:000FC356 4205 0001:000FC35F 4206 0001:000FC364 4207 0001:000FC37F + 4211 0001:000FC384 4212 0001:000FC39C 4213 0001:000FC3A3 4214 0001:000FC3AE + 4215 0001:000FC3CA 4216 0001:000FC3D1 4217 0001:000FC422 4221 0001:000FC428 + 4222 0001:000FC444 4224 0001:000FC44A 4227 0001:000FC456 4228 0001:000FC470 + 4229 0001:000FC47A 4230 0001:000FC489 4233 0001:000FC4AB 4236 0001:000FC505 + 4239 0001:000FC50C 4240 0001:000FC513 4241 0001:000FC526 4242 0001:000FC531 + 4245 0001:000FC538 4246 0001:000FC53C 4247 0001:000FC549 4248 0001:000FC554 + 4251 0001:000FC558 4252 0001:000FC55F 4253 0001:000FC572 4254 0001:000FC57D + 4260 0001:000FC584 4261 0001:000FC588 4263 0001:000FC594 4264 0001:000FC59C + 4266 0001:000FC5A0 4267 0001:000FC5AF 4268 0001:000FC5BE 4269 0001:000FC5C6 + 4270 0001:000FC5CE 4271 0001:000FC5DC 4272 0001:000FC5E3 4273 0001:000FC5FA + 4276 0001:000FC60C 4277 0001:000FC620 4278 0001:000FC630 4279 0001:000FC63C + 4280 0001:000FC64D 4281 0001:000FC65D 4282 0001:000FC66A 4283 0001:000FC693 + 4284 0001:000FC6A9 4285 0001:000FC6B9 4286 0001:000FC6C0 4287 0001:000FC6CD + 4288 0001:000FC6D8 4290 0001:000FC6DE 4291 0001:000FC6F4 4292 0001:000FC6FD + 4293 0001:000FC709 4294 0001:000FC714 4297 0001:000FC731 4299 0001:000FC73E + 4301 0001:000FC74F 4303 0001:000FC756 4309 0001:000FC760 4310 0001:000FC763 + 4312 0001:000FC77C 4313 0001:000FC783 4314 0001:000FC79C 4316 0001:000FC7A7 + 4318 0001:000FC7BE 4322 0001:000FC7C0 4323 0001:000FC7C3 4325 0001:000FC7CC + 4326 0001:000FC7DE 4328 0001:000FC7E5 4340 0001:000FC7E8 4341 0001:000FC7EB + 4342 0001:000FC7F9 4343 0001:000FC807 4347 0001:000FC80C 4348 0001:000FC817 + 4352 0001:000FC818 4353 0001:000FC823 4356 0001:000FC824 4357 0001:000FC844 + 4358 0001:000FC86F 4372 0001:000FC874 4373 0001:000FC87F 4377 0001:000FC880 + 4378 0001:000FC88C 4382 0001:000FC890 4383 0001:000FC899 4387 0001:000FC89C + 4388 0001:000FC8A8 4391 0001:000FC8AC 4392 0001:000FC8B5 4393 0001:000FC8C4 + 4397 0001:000FC8C8 4398 0001:000FC8D3 4406 0001:000FC8D4 4407 0001:000FC8DA + 4408 0001:000FC8E7 4411 0001:000FC8EC 4412 0001:000FC8EF 4413 0001:000FC908 + 4417 0001:000FC90C 4418 0001:000FC91A 4422 0001:000FC91C 4423 0001:000FC928 + 4427 0001:000FC92C 4428 0001:000FC938 4432 0001:000FC93C 4433 0001:000FC948 + 4437 0001:000FC94C 4438 0001:000FC958 4441 0001:000FC95C 4442 0001:000FC962 + 4443 0001:000FC96F 4457 0001:000FC974 4458 0001:000FC982 4467 0001:000FC984 + 4468 0001:000FC990 4472 0001:000FC994 4473 0001:000FC9A0 4477 0001:000FC9A4 + 4478 0001:000FC9B0 4481 0001:000FC9B4 4482 0001:000FC9BA 4483 0001:000FC9CD + 4487 0001:000FC9D0 4488 0001:000FC9DB 4491 0001:000FC9DC 4492 0001:000FC9FC + 4493 0001:000FCA27 4496 0001:000FCA2C 4497 0001:000FCA32 4498 0001:000FCA3F + 4502 0001:000FCA44 4503 0001:000FCA50 4506 0001:000FCA54 4507 0001:000FCA5A + 4508 0001:000FCA67 4512 0001:000FCA6C 4513 0001:000FCA77 4517 0001:000FCA78 + 4518 0001:000FCA84 4521 0001:000FCA88 4522 0001:000FCA8E 4523 0001:000FCA9D + 4524 0001:000FCAAA 4525 0001:000FCAB7 4529 0001:000FCABC 4530 0001:000FCAC7 + 4534 0001:000FCAC8 4535 0001:000FCAD3 4539 0001:000FCAD4 4540 0001:000FCAE0 + 4544 0001:000FCAE4 4545 0001:000FCAF0 4549 0001:000FCAF4 4550 0001:000FCAFF + 4554 0001:000FCB00 4555 0001:000FCB0B 4559 0001:000FCB0C 4560 0001:000FCB17 + 4568 0001:000FCB18 4569 0001:000FCB1B 4570 0001:000FCB29 4573 0001:000FCB2C + 4574 0001:000FCB2F 4575 0001:000FCB3D 4579 0001:000FCB40 4580 0001:000FCB4B + 4584 0001:000FCB4C 4585 0001:000FCB57 4589 0001:000FCB58 4590 0001:000FCB63 + 4594 0001:000FCB64 4595 0001:000FCB6F 4599 0001:000FCB70 4600 0001:000FCB7B + 4603 0001:000FCB7C 4604 0001:000FCB7F 4605 0001:000FCB8A 4609 0001:000FCB8C + 4610 0001:000FCB98 4619 0001:000FCB9C 4620 0001:000FCBA8 4624 0001:000FCBAC + 4625 0001:000FCBB8 4628 0001:000FCBBC 4629 0001:000FCBDB 4631 0001:000FCBF0 + 4632 0001:000FCBF7 4633 0001:000FCC04 4634 0001:000FCC09 4635 0001:000FCC19 + 4636 0001:000FCC27 4638 0001:000FCC2F 4639 0001:000FCC39 4640 0001:000FCC43 + 4641 0001:000FCC5A 4642 0001:000FCC79 4643 0001:000FCC89 4644 0001:000FCCA3 + 4645 0001:000FCCAD 4646 0001:000FCCBD 4647 0001:000FCCD0 4648 0001:000FCCE7 + 4649 0001:000FCCF0 4653 0001:000FCD08 4654 0001:000FCD19 4655 0001:000FCD33 + 4656 0001:000FCD43 4657 0001:000FCD51 4660 0001:000FCD69 4662 0001:000FCD81 + 4664 0001:000FCDA6 4677 0001:000FCDB0 4678 0001:000FCDBC 4682 0001:000FCDC0 + 4683 0001:000FCDCB 4689 0001:000FCDCC 4690 0001:000FCDD6 4692 0001:000FCDE0 + 4693 0001:000FCDE7 4694 0001:000FCDEB 4696 0001:000FCDF2 4697 0001:000FCE07 + 4699 0001:000FCE0D 4700 0001:000FCE1A 4702 0001:000FCE23 4703 0001:000FCE2A + 4706 0001:000FCE30 4707 0001:000FCE36 4708 0001:000FCE43 4712 0001:000FCE48 + 4713 0001:000FCE53 4717 0001:000FCE54 4719 0001:000FCE5C 4720 0001:000FCE64 + 4721 0001:000FCE73 4723 0001:000FCE80 4727 0001:000FCE84 4729 0001:000FCE8C + 4730 0001:000FCE92 4731 0001:000FCE96 4733 0001:000FCE9D 4736 0001:000FCEA0 + 4737 0001:000FCEB6 4738 0001:000FCEC8 4739 0001:000FCF00 4742 0001:000FCF08 + 4743 0001:000FCF0B 4745 0001:000FCF13 4746 0001:000FCF19 4748 0001:000FCF1D + 4749 0001:000FCF26 4752 0001:000FCF35 4753 0001:000FCF42 4755 0001:000FCF49 + 4759 0001:000FCF4C 4760 0001:000FCF63 4763 0001:000FCF64 4764 0001:000FCF67 + 4765 0001:000FCF7F 4769 0001:000FCF84 4770 0001:000FCF89 4773 0001:000FCF8C + 4774 0001:000FCF93 4776 0001:000FCF9E 4777 0001:000FCFA7 4778 0001:000FCFB1 + 4780 0001:000FCFCE 4786 0001:000FCFD4 4787 0001:000FCFF7 4789 0001:000FD00A + 4790 0001:000FD011 4791 0001:000FD016 4793 0001:000FD02D 4795 0001:000FD03E + 4796 0001:000FD041 4797 0001:000FD046 4798 0001:000FD052 4800 0001:000FD06C + 4791 0001:000FD06D 4801 0001:000FD072 4802 0001:000FD07C 4805 0001:000FD094 + 4806 0001:000FD0BD 4809 0001:000FD0D0 4810 0001:000FD0E6 4812 0001:000FD0F5 + 4813 0001:000FD0FC 4814 0001:000FD117 4815 0001:000FD127 4817 0001:000FD14B + 4820 0001:000FD150 4821 0001:000FD153 4822 0001:000FD15A 4823 0001:000FD16D + 4824 0001:000FD17B 4833 0001:000FD180 4834 0001:000FD18B 4837 0001:000FD18C + 4838 0001:000FD192 4839 0001:000FD19F 4842 0001:000FD1A4 4843 0001:000FD1C4 + 4844 0001:000FD1D2 4845 0001:000FD1F7 4849 0001:000FD1FC 4850 0001:000FD208 + 4854 0001:000FD20C 4855 0001:000FD218 4859 0001:000FD21C 4860 0001:000FD228 + 4864 0001:000FD22C 4865 0001:000FD238 4871 0001:000FD23C 4872 0001:000FD24B + 4873 0001:000FD2AE 4882 0001:000FD2B4 4883 0001:000FD2C3 4885 0001:000FD2DA + 4886 0001:000FD2E3 4887 0001:000FD2E8 4883 0001:000FD2E9 4888 0001:000FD2EC + 4889 0001:000FD2F7 4890 0001:000FD311 4897 0001:000FD318 4898 0001:000FD326 + 4899 0001:000FD330 4900 0001:000FD33A 4901 0001:000FD34A 4903 0001:000FD367 + 4904 0001:000FD376 4906 0001:000FD3D2 4909 0001:000FD3E1 4910 0001:000FD3F2 + 4911 0001:000FD3FC 4901 0001:000FD400 4912 0001:000FD407 4916 0001:000FD410 + 4917 0001:000FD413 4918 0001:000FD41A 4919 0001:000FD420 4920 0001:000FD432 + 4921 0001:000FD43B 4928 0001:000FD440 4929 0001:000FD44F 4930 0001:000FD45B + 4931 0001:000FD467 4933 0001:000FD486 4934 0001:000FD495 4936 0001:000FD4A9 + 4937 0001:000FD4B4 4939 0001:000FD4B6 4940 0001:000FD4D8 4942 0001:000FD50C + 4944 0001:000FD554 4945 0001:000FD565 4946 0001:000FD571 4931 0001:000FD575 + 4947 0001:000FD57F 4953 0001:000FD588 4954 0001:000FD58C 4955 0001:000FD593 + 4956 0001:000FD599 4957 0001:000FD59E 4958 0001:000FD5A9 4964 0001:000FD5AC + 4965 0001:000FD5BE 4966 0001:000FD5C7 4967 0001:000FD5D3 4968 0001:000FD5DD + 4969 0001:000FD5FE 4973 0001:000FD608 4974 0001:000FD60B 4975 0001:000FD612 + 4976 0001:000FD619 4980 0001:000FD61C 4981 0001:000FD61F 4982 0001:000FD626 + 4983 0001:000FD62D 4991 0001:000FD630 4992 0001:000FD637 4994 0001:000FD63D + 4995 0001:000FD646 4996 0001:000FD653 4997 0001:000FD65C 4998 0001:000FD660 + 4999 0001:000FD66D 5000 0001:000FD678 5001 0001:000FD685 5003 0001:000FD68D + 5005 0001:000FD6B3 5011 0001:000FD6BC 5012 0001:000FD6D8 5013 0001:000FD6E2 + 5014 0001:000FD6F0 5015 0001:000FD70E 5016 0001:000FD753 5023 0001:000FD75C + 5024 0001:000FD763 5026 0001:000FD769 5028 0001:000FD774 5029 0001:000FD77F + 5030 0001:000FD789 5032 0001:000FD79F 5033 0001:000FD7A9 5034 0001:000FD7B2 + 5035 0001:000FD7BB 5036 0001:000FD7C5 5037 0001:000FD7C9 5038 0001:000FD7D6 + 5040 0001:000FD7E1 5045 0001:000FD7E8 5046 0001:000FD7F3 5050 0001:000FD7F4 + 5051 0001:000FD7FA 5053 0001:000FD805 5054 0001:000FD809 5055 0001:000FD818 + 5056 0001:000FD823 5058 0001:000FD82A 5063 0001:000FD834 5064 0001:000FD83A + 5065 0001:000FD83F 5070 0001:000FD840 5071 0001:000FD846 5072 0001:000FD84B + 5077 0001:000FD84C 5079 0001:000FD854 5080 0001:000FD85A 5082 0001:000FD85F + 5111 0001:000FD860 5112 0001:000FD872 5113 0001:000FD87B 5114 0001:000FD882 + 5115 0001:000FD889 5116 0001:000FD8A7 5123 0001:000FD8AC 5124 0001:000FD8B2 + 5125 0001:000FD8BB 5128 0001:000FD8EE 5132 0001:000FD8F4 5134 0001:000FD8FC + 5135 0001:000FD902 5137 0001:000FD907 5141 0001:000FD908 5143 0001:000FD910 + 5144 0001:000FD916 5146 0001:000FD91B 5150 0001:000FD91C 5152 0001:000FD924 + 5153 0001:000FD92A 5155 0001:000FD92F 5164 0001:000FD930 5165 0001:000FD939 + 5166 0001:000FD940 5167 0001:000FD94B 5168 0001:000FD953 5170 0001:000FD963 + 5172 0001:000FD977 5173 0001:000FD989 5174 0001:000FD98E 5175 0001:000FD996 + 5177 0001:000FD9B2 5194 0001:000FD9BC 5195 0001:000FD9BF 5196 0001:000FD9D1 + 5199 0001:000FD9D4 5200 0001:000FD9D7 5201 0001:000FD9E9 5204 0001:000FD9EC + 5205 0001:000FD9F2 5206 0001:000FD9FC 5213 0001:000FDA00 5214 0001:000FDA06 + 5215 0001:000FDA0F 5218 0001:000FDA11 5219 0001:000FDA18 5220 0001:000FDA1F + 5221 0001:000FDA28 5223 0001:000FDA2E 5224 0001:000FDA3C 5227 0001:000FDA44 + 5228 0001:000FDA4E 5230 0001:000FDA57 5231 0001:000FDA68 5232 0001:000FDA70 + 5234 0001:000FDA79 5237 0001:000FDA80 5238 0001:000FDA9C 5240 0001:000FDAA8 + 5241 0001:000FDAB2 5242 0001:000FDABB 5243 0001:000FDACE 5245 0001:000FDAEC + 5246 0001:000FDB22 5250 0001:000FDB2C 5251 0001:000FDB33 5254 0001:000FDB34 + 5255 0001:000FDB50 5256 0001:000FDB59 5257 0001:000FDB6D 5258 0001:000FDB71 + 5260 0001:000FDB78 5261 0001:000FDB8B 5263 0001:000FDBBB 5266 0001:000FDBC4 + 5267 0001:000FDBEB 5268 0001:000FDBF7 5271 0001:000FDC24 5273 0001:000FDC54 + 5276 0001:000FDC88 5277 0001:000FDC8E 5278 0001:000FDC9A 5280 0001:000FDCAB + 5281 0001:000FDCB4 5287 0001:000FDCB8 5288 0001:000FDCF3 5289 0001:000FDCF8 + 5291 0001:000FDD0B 5293 0001:000FDD4C 5294 0001:000FDD4E 5296 0001:000FDD6A + 5289 0001:000FDD6B 5297 0001:000FDD6E 5298 0001:000FDD73 5299 0001:000FDD80 + 5300 0001:000FDD8C 5302 0001:000FDDA8 5303 0001:000FDE2B 5308 0001:000FDE64 + 5309 0001:000FDE7F 5310 0001:000FDE89 5312 0001:000FDE92 5313 0001:000FDE9C + 5314 0001:000FDEAD 5315 0001:000FDEC1 5317 0001:000FDEE1 5318 0001:000FDF0E + 5327 0001:000FDF14 5328 0001:000FDF1C 5329 0001:000FDF20 5333 0001:000FDF2A + 5336 0001:000FDF38 5338 0001:000FDF3B 5339 0001:000FDF46 5341 0001:000FDF56 + 5342 0001:000FDF67 5344 0001:000FDF6D 5345 0001:000FDF74 5351 0001:000FDF7D + 5352 0001:000FDF8C 5355 0001:000FDF94 5356 0001:000FDFA6 5357 0001:000FDFAF + 5358 0001:000FDFCD 5361 0001:000FDFD0 5362 0001:000FDFD4 5363 0001:000FDFE8 + 5364 0001:000FDFF2 5365 0001:000FE004 5369 0001:000FE008 5370 0001:000FE02B + 5371 0001:000FE061 5379 0001:000FE068 5380 0001:000FE097 5381 0001:000FE09B + 5383 0001:000FE0A7 5384 0001:000FE0A9 5385 0001:000FE0AE 5387 0001:000FE0C4 + 5388 0001:000FE0DF 5390 0001:000FE100 5391 0001:000FE103 5393 0001:000FE105 + 5385 0001:000FE108 5394 0001:000FE133 5400 0001:000FE13C 5401 0001:000FE163 + 5402 0001:000FE16B 5404 0001:000FE184 5406 0001:000FE19F 5408 0001:000FE1AB + 5409 0001:000FE1B3 5410 0001:000FE1CF 5413 0001:000FE1FE 5402 0001:000FE1FF + 5414 0001:000FE224 5430 0001:000FE230 5431 0001:000FE259 5432 0001:000FE267 + 5433 0001:000FE275 5434 0001:000FE280 5435 0001:000FE28B 5436 0001:000FE293 + 5437 0001:000FE29E 5439 0001:000FE2A9 5440 0001:000FE2C7 5441 0001:000FE2D6 + 5442 0001:000FE2EA 5443 0001:000FE2FD 5444 0001:000FE301 5445 0001:000FE308 + 5446 0001:000FE31C 5447 0001:000FE322 5448 0001:000FE32D 5450 0001:000FE345 + 5452 0001:000FE37D 5455 0001:000FE388 5456 0001:000FE38B 5457 0001:000FE39A + 5460 0001:000FE39C 5461 0001:000FE39F 5462 0001:000FE3AE 5468 0001:000FE3B0 + 5469 0001:000FE3CE 5471 0001:000FE3E0 5472 0001:000FE3FA 5473 0001:000FE415 + 5471 0001:000FE43C 5475 0001:000FE45C 5479 0001:000FE464 5481 0001:000FE46C + 5482 0001:000FE472 5484 0001:000FE477 5487 0001:000FE478 5488 0001:000FE47E + 5489 0001:000FE484 5490 0001:000FE49F 5494 0001:000FE4A4 5496 0001:000FE4AC + 5497 0001:000FE4B2 5499 0001:000FE4B7 5502 0001:000FE4B8 5503 0001:000FE4BE + 5504 0001:000FE4C4 5505 0001:000FE4DF 5515 0001:000FE4E4 5516 0001:000FE508 + 5518 0001:000FE50C 5519 0001:000FE521 5520 0001:000FE538 5523 0001:000FE574 + 5524 0001:000FE59E 5527 0001:000FE5A8 5528 0001:000FE5CF 5529 0001:000FE5DE + 5532 0001:000FE60B 5534 0001:000FE63E 5537 0001:000FE670 5538 0001:000FE676 + 5539 0001:000FE685 5541 0001:000FE699 5542 0001:000FE6A2 5546 0001:000FE6A8 + 5547 0001:000FE6AE 5548 0001:000FE6B3 5553 0001:000FE6B4 5554 0001:000FE6CB + 5555 0001:000FE6D4 5556 0001:000FE6DB 5557 0001:000FE6E2 5558 0001:000FE6E9 + 5559 0001:000FE6F0 5560 0001:000FE6F7 5561 0001:000FE6FE 5562 0001:000FE70F + 5563 0001:000FE732 5566 0001:000FE738 5567 0001:000FE743 5568 0001:000FE74B + 5569 0001:000FE762 5572 0001:000FE768 5573 0001:000FE76E 5574 0001:000FE77D + 5575 0001:000FE782 5577 0001:000FE786 5578 0001:000FE78E 5580 0001:000FE798 + 5581 0001:000FE7A1 5585 0001:000FE7A4 5586 0001:000FE7AA 5587 0001:000FE7AF + 5589 0001:000FE7BA 5590 0001:000FE7C1 5591 0001:000FE7CD 5593 0001:000FE7DC + 5594 0001:000FE7FB 5600 0001:000FE85B 5601 0001:000FE870 5602 0001:000FE8A7 + 5609 0001:000FE8C0 5610 0001:000FE8E7 5612 0001:000FE8ED 5613 0001:000FE8F4 + 5614 0001:000FE8FB 5615 0001:000FE902 5616 0001:000FE909 5617 0001:000FE910 + 5621 0001:000FE91C 5622 0001:000FE91E 5624 0001:000FE929 5625 0001:000FE938 + 5626 0001:000FE947 5627 0001:000FE966 5628 0001:000FE98C 5629 0001:000FE991 + 5630 0001:000FE996 5631 0001:000FE99B 5632 0001:000FE9A0 5633 0001:000FE9A5 + 5635 0001:000FE9A8 5636 0001:000FE9A9 5637 0001:000FE9BD 5639 0001:000FE9E9 + 5642 0001:000FE9FC 5643 0001:000FEA00 5644 0001:000FEA14 5645 0001:000FEA26 + 5648 0001:000FEA2C 5649 0001:000FEA35 5650 0001:000FEA40 5651 0001:000FEA53 + 5655 0001:000FEA58 5657 0001:000FEA5D 5658 0001:000FEA60 5660 0001:000FEA67 + 5664 0001:000FEA68 5666 0001:000FEA6D 5667 0001:000FEA70 5669 0001:000FEA77 + 5673 0001:000FEA78 5675 0001:000FEA7D 5676 0001:000FEA80 5678 0001:000FEA87 + 5682 0001:000FEA88 5684 0001:000FEA8D 5685 0001:000FEA90 5687 0001:000FEA97 + 5691 0001:000FEA98 5693 0001:000FEA9D 5694 0001:000FEAA0 5696 0001:000FEAA7 + 5700 0001:000FEAA8 5702 0001:000FEAAD 5703 0001:000FEAB0 5705 0001:000FEAB7 + 5710 0001:000FEAB8 5711 0001:000FEACA 5712 0001:000FEAD3 5713 0001:000FEAE7 + 5714 0001:000FEAEE 5715 0001:000FEB0C 5725 0001:000FEB10 5726 0001:000FEB13 + 5727 0001:000FEB1E 5728 0001:000FEB25 5729 0001:000FEB37 5732 0001:000FEB3C + 5733 0001:000FEB47 5734 0001:000FEB5B 5735 0001:000FEB66 5736 0001:000FEB7D + 5740 0001:000FEB80 5741 0001:000FEB86 5742 0001:000FEB93 5746 0001:000FEB98 + 5747 0001:000FEBA1 5751 0001:000FEBA4 5752 0001:000FEBAF 5756 0001:000FEBB0 + 5757 0001:000FEBBB 5761 0001:000FEBBC 5763 0001:000FEBC5 5765 0001:000FEBD8 + 5766 0001:000FEBF3 5767 0001:000FEBFC 5772 0001:000FEC04 5773 0001:000FEC17 + 5774 0001:000FEC20 5775 0001:000FEC3B 5778 0001:000FEC42 5781 0001:000FEC44 + 5782 0001:000FEC47 5783 0001:000FEC4E 5784 0001:000FEC5A 5787 0001:000FEC5C + 5788 0001:000FEC5F 5789 0001:000FEC66 5790 0001:000FEC6D 5793 0001:000FEC70 + 5794 0001:000FEC73 5795 0001:000FEC7A 5796 0001:000FEC81 5799 0001:000FEC84 + 5800 0001:000FEC87 5801 0001:000FEC97 5805 0001:000FEC9C 5807 0001:000FEC9F + 5808 0001:000FECA5 5810 0001:000FECAB 5821 0001:000FECAC 5822 0001:000FECEF + 5823 0001:000FECF6 5824 0001:000FECFC 5825 0001:000FED03 5827 0001:000FED0D + 5829 0001:000FED1A 5831 0001:000FED23 5832 0001:000FED34 5833 0001:000FED42 + 5834 0001:000FED58 5836 0001:000FED61 5837 0001:000FED68 5839 0001:000FED72 + 5841 0001:000FED84 5842 0001:000FED99 5843 0001:000FEDA1 5844 0001:000FEDA9 + 5849 0001:000FEDB1 5850 0001:000FEDC6 5851 0001:000FEDCE 5852 0001:000FEDD6 + 5855 0001:000FEDDC 5856 0001:000FEDEF 5858 0001:000FEDF6 5860 0001:000FEE00 + 5861 0001:000FEE04 5863 0001:000FEE16 5865 0001:000FEE22 5866 0001:000FEE2E + 5868 0001:000FEE37 5872 0001:000FEE40 5873 0001:000FEE58 5874 0001:000FEE61 + 5877 0001:000FEE6A 5878 0001:000FEE7F 5879 0001:000FEE85 5880 0001:000FEE8B + 5888 0001:000FEE91 5890 0001:000FEE9D 5891 0001:000FEEA9 5893 0001:000FEEAF + 5897 0001:000FEEB5 5898 0001:000FEECA 5899 0001:000FEED0 5902 0001:000FEED6 + 5903 0001:000FEEE2 5905 0001:000FEEE8 5910 0001:000FEEEC 5914 0001:000FEEFB + 5915 0001:000FEF0C 5916 0001:000FEF1C 5918 0001:000FEF22 5919 0001:000FEF2C + 5921 0001:000FEF39 5922 0001:000FEF45 5924 0001:000FEF4D 5926 0001:000FEF5C + 5927 0001:000FEF69 5929 0001:000FEF71 5931 0001:000FEF81 5933 0001:000FEF89 + 5934 0001:000FEF95 5936 0001:000FEFAF 5937 0001:000FEFB8 5938 0001:000FEFBF + 5939 0001:000FEFC9 5940 0001:000FEFCC 5941 0001:000FEFD9 5943 0001:000FF01F + 5944 0001:000FF042 5945 0001:000FF049 5949 0001:000FF059 5951 0001:000FF071 + 5952 0001:000FF073 5953 0001:000FF089 5954 0001:000FF098 5956 0001:000FF09D + 5959 0001:000FF09E 5960 0001:000FF0F8 5954 0001:000FF0FE 5962 0001:000FF103 + 5963 0001:000FF10B 5964 0001:000FF122 5965 0001:000FF130 5966 0001:000FF13C + 5967 0001:000FF159 5968 0001:000FF15F 5972 0001:000FF185 5976 0001:000FF1BF + 5986 0001:000FF1E0 5987 0001:000FF210 5989 0001:000FF21D 5990 0001:000FF23E + 5991 0001:000FF24C 5992 0001:000FF260 5993 0001:000FF26E 5995 0001:000FF27A + 5996 0001:000FF28B 5997 0001:000FF298 5998 0001:000FF2A5 5999 0001:000FF2B0 + 6001 0001:000FF2BD 6002 0001:000FF2CA 6004 0001:000FF2D8 6006 0001:000FF2ED + 6010 0001:000FF330 6011 0001:000FF33C 6012 0001:000FF34A 6014 0001:000FF356 + 6015 0001:000FF363 6016 0001:000FF373 6017 0001:000FF3B1 6019 0001:000FF3BE + 6020 0001:000FF3CE 6022 0001:000FF419 6025 0001:000FF42F 6026 0001:000FF440 + 6029 0001:000FF44D 6031 0001:000FF456 6032 0001:000FF463 6034 0001:000FF46F + 6036 0001:000FF485 6039 0001:000FF48F 6040 0001:000FF49F 6041 0001:000FF4AF + 6042 0001:000FF4BA 6045 0001:000FF4C7 6046 0001:000FF4D3 6048 0001:000FF4EC + 6049 0001:000FF4F1 6050 0001:000FF4FD 6052 0001:000FF505 6054 0001:000FF525 + 6057 0001:000FF544 6060 0001:000FF569 6061 0001:000FF56F 6064 0001:000FF5A1 + 6068 0001:000FF5A8 6070 0001:000FF5B0 6071 0001:000FF5B6 6073 0001:000FF5C4 + 6077 0001:000FF5C8 6078 0001:000FF5D9 6081 0001:000FF5DC 6082 0001:000FF5DF + 6083 0001:000FF5E6 6084 0001:000FF5F5 6085 0001:000FF5FC 6093 0001:000FF600 + 6094 0001:000FF60C 6096 0001:000FF614 6098 0001:000FF62B 6099 0001:000FF639 + 6101 0001:000FF64D 6102 0001:000FF653 6104 0001:000FF665 6106 0001:000FF67E + 6107 0001:000FF68A 6109 0001:000FF68E 6111 0001:000FF6AA 6112 0001:000FF6B1 + 6114 0001:000FF6BF 6118 0001:000FF6C3 6102 0001:000FF6C4 6119 0001:000FF6C7 + 6120 0001:000FF6D5 6123 0001:000FF6E1 6124 0001:000FF6E8 6125 0001:000FF6EF + 6128 0001:000FF6F8 6129 0001:000FF6FB 6131 0001:000FF703 6132 0001:000FF709 + 6133 0001:000FF710 6135 0001:000FF717 6138 0001:000FF71C 6139 0001:000FF71F + 6141 0001:000FF727 6142 0001:000FF72D 6143 0001:000FF734 6145 0001:000FF73B + 6156 0001:000FF740 6157 0001:000FF74B 6159 0001:000FF779 6160 0001:000FF783 + 6161 0001:000FF78D 6162 0001:000FF79B 6163 0001:000FF7B3 6164 0001:000FF7C1 + 6166 0001:000FF7EC 6169 0001:000FF80E 6171 0001:000FF821 6178 0001:000FF867 + 6179 0001:000FF871 6181 0001:000FF87D 6182 0001:000FF881 6185 0001:000FF891 + 6186 0001:000FF89F 6187 0001:000FF8AE 6190 0001:000FF8BF 6193 0001:000FF8D0 + 6194 0001:000FF8D6 6195 0001:000FF8DF 6198 0001:000FF8E4 6199 0001:000FF8FD + 6201 0001:000FF913 6202 0001:000FF91C 6203 0001:000FF923 6205 0001:000FF947 + 6209 0001:000FF94C 6210 0001:000FF952 6211 0001:000FF957 6214 0001:000FF958 + 6215 0001:000FF95B 6216 0001:000FF961 6217 0001:000FF971 6218 0001:000FF97A + 6219 0001:000FF981 6226 0001:000FF984 6227 0001:000FF989 6229 0001:000FF999 + 6231 0001:000FF9AA 6233 0001:000FF9C3 6234 0001:000FF9CD 6235 0001:000FF9DF + 6237 0001:000FF9EB 6229 0001:000FF9EC 6239 0001:000FF9EF 6242 0001:000FF9F4 + 6243 0001:000FF9F7 6244 0001:000FF9FE 6245 0001:000FFA05 6249 0001:000FFA08 + 6250 0001:000FFA0E 6251 0001:000FFA13 6254 0001:000FFA14 6255 0001:000FFA1A + 6257 0001:000FFA24 6258 0001:000FFA28 6259 0001:000FFA2F 6260 0001:000FFA37 + 6262 0001:000FFA3B 6263 0001:000FFA42 6266 0001:000FFA49 6275 0001:000FFA4C + 6276 0001:000FFA5A 6277 0001:000FFA60 6278 0001:000FFA78 6280 0001:000FFA8A + 6282 0001:000FFA9C 6283 0001:000FFAA2 6285 0001:000FFAA6 6286 0001:000FFABB + 6287 0001:000FFABF 6288 0001:000FFAD5 6280 0001:000FFAD6 6290 0001:000FFAD9 + 6292 0001:000FFAE0 6293 0001:000FFAE7 6294 0001:000FFAF4 6295 0001:000FFAFD + 6299 0001:000FFB00 6300 0001:000FFB09 6301 0001:000FFB14 6302 0001:000FFB21 + 6303 0001:000FFB29 6307 0001:000FFB30 6308 0001:000FFB36 6309 0001:000FFB3B + 6312 0001:000FFB3C 6318 0001:000FFB42 6319 0001:000FFB50 6321 0001:000FFB5A + 6322 0001:000FFB5F 6332 0001:000FFB64 6417 0001:000FFB68 6418 0001:000FFB73 + 6419 0001:000FFB7D 6420 0001:000FFB82 6421 0001:000FFB99 6428 0001:000FFB9C + 6429 0001:000FFBA5 6430 0001:000FFBAD 6432 0001:000FFBBD 6433 0001:000FFBC9 + 6434 0001:000FFBDE 6435 0001:000FFBEF 6436 0001:000FFBFD 6437 0001:000FFC0E + 6438 0001:000FFC19 6439 0001:000FFC26 6441 0001:000FFC44 6444 0001:000FFC5E + 6448 0001:000FFC64 6449 0001:000FFC67 6451 0001:000FFC7B 6453 0001:000FFC86 + 6458 0001:000FFC88 6459 0001:000FFC8B 6460 0001:000FFC92 6461 0001:000FFCB9 + 6464 0001:000FFCBC 6465 0001:000FFCCE 6466 0001:000FFCD7 6467 0001:000FFD15 + 6470 0001:000FFD18 6471 0001:000FFD23 6472 0001:000FFD2F 6474 0001:000FFD3E + 6475 0001:000FFD47 6476 0001:000FFD50 6477 0001:000FFD5B 6478 0001:000FFD66 + 6480 0001:000FFD77 6483 0001:000FFD7C 6488 0001:000FFD84 6489 0001:000FFD87 + 6490 0001:000FFD8E 6491 0001:000FFD97 6492 0001:000FFDA1 6495 0001:000FFDA4 + 6496 0001:000FFDAB 6497 0001:000FFDB5 6499 0001:000FFDBE 6500 0001:000FFDC7 + 6511 0001:000FFDCC 6512 0001:000FFDD3 6513 0001:000FFDDC 6514 0001:000FFDF2 + 6515 0001:000FFDFB 6516 0001:000FFE08 6517 0001:000FFE15 6518 0001:000FFE22 + 6519 0001:000FFE30 6521 0001:000FFE3B 6522 0001:000FFE48 6525 0001:000FFE4C + 6526 0001:000FFE52 6527 0001:000FFE61 6529 0001:000FFE75 6530 0001:000FFE7E + 6535 0001:000FFE84 6536 0001:000FFEA4 6539 0001:000FFEAD 6541 0001:000FFEB6 + 6542 0001:000FFED4 6543 0001:000FFEDC 6544 0001:000FFEE8 6545 0001:000FFEED + 6547 0001:000FFEFA 6548 0001:000FFF18 6550 0001:000FFF3B 6557 0001:000FFF44 + 6558 0001:000FFF52 6560 0001:000FFF62 6562 0001:000FFF78 6564 0001:000FFF9A + 6566 0001:000FFFB4 6568 0001:000FFFC6 6569 0001:000FFFD4 6570 0001:000FFFE2 + 6571 0001:000FFFFB 6572 0001:00100013 6571 0001:00100020 6573 0001:00100023 + 6575 0001:00100047 6580 0001:0010005D 6581 0001:00100068 6586 0001:00100070 + 6587 0001:00100077 6588 0001:00100081 6590 0001:0010008A 6591 0001:00100093 + 6594 0001:00100098 6595 0001:0010009F 6596 0001:001000A8 6597 0001:001000BE + 6598 0001:001000C7 6599 0001:001000D4 6600 0001:001000E1 6601 0001:001000EE + 6602 0001:001000FC 6604 0001:00100107 6605 0001:00100114 6610 0001:00100118 + 6611 0001:0010011F 6612 0001:00100129 6614 0001:00100132 6615 0001:0010013B + 6618 0001:00100140 6619 0001:00100147 6620 0001:00100150 6621 0001:00100166 + 6622 0001:0010016F 6623 0001:0010017C 6624 0001:00100189 6625 0001:00100196 + 6626 0001:001001A4 6628 0001:001001AF 6629 0001:001001BC 6634 0001:001001C0 + 6635 0001:001001C7 6636 0001:001001D1 6638 0001:001001DA 6639 0001:001001E3 + 6642 0001:001001E8 6643 0001:001001EF 6644 0001:001001F8 6645 0001:0010020E + 6646 0001:00100217 6647 0001:00100224 6648 0001:00100231 6649 0001:0010023E + 6650 0001:0010024C 6652 0001:00100257 6653 0001:00100264 6658 0001:00100268 + 6659 0001:0010028F 6660 0001:0010029E 6662 0001:001002C7 6663 0001:001002FA + 6666 0001:0010032C 6667 0001:00100332 6668 0001:00100341 6670 0001:00100355 + 6671 0001:0010035E 6676 0001:00100364 6677 0001:0010036A 6678 0001:00100373 + 6681 0001:00100378 6682 0001:0010037F 6683 0001:00100388 6684 0001:0010039E + 6685 0001:001003A7 6686 0001:001003B4 6687 0001:001003C1 6688 0001:001003CE + 6689 0001:001003DC 6691 0001:001003E7 6692 0001:001003F4 6693 0001:001003FD + 6698 0001:00100404 6699 0001:0010040B 6700 0001:00100415 6702 0001:0010041E + 6703 0001:00100427 6706 0001:0010042C 6707 0001:00100433 6708 0001:0010043C + 6709 0001:00100452 6710 0001:0010045B 6711 0001:00100468 6712 0001:00100475 + 6713 0001:00100482 6714 0001:00100490 6716 0001:0010049B 6717 0001:001004A8 + 6724 0001:001004AC 6725 0001:001004B4 6726 0001:001004BB 6728 0001:001004E2 + 6729 0001:001004EB 6730 0001:001004F9 6731 0001:0010050A 6733 0001:00100517 + 6738 0001:00100520 6741 0001:00100528 6742 0001:0010052A 6744 0001:00100548 + 6748 0001:0010054C 6749 0001:0010055A 6750 0001:00100579 6751 0001:00100589 + 6754 0001:00100594 6755 0001:0010059E 6757 0001:001005AA 6759 0001:001005D2 + 6761 0001:001005FA 6764 0001:00100608 6765 0001:0010062F 6766 0001:0010063E + 6768 0001:00100667 6769 0001:0010069A 6772 0001:001006CC 6773 0001:001006D2 + 6774 0001:001006E1 6776 0001:001006F5 6777 0001:001006FE 6781 0001:00100704 + 6784 0001:00100731 6786 0001:00100734 6787 0001:00100736 6791 0001:00100738 + 6792 0001:0010073D 6793 0001:00100748 6794 0001:0010074D 6796 0001:00100759 + 6797 0001:0010075F 6801 0001:00100760 6802 0001:00100766 6808 0001:00100768 + 6809 0001:00100796 6810 0001:00100799 6818 0001:001007A2 6819 0001:001007A7 + 6820 0001:001007BD 6821 0001:001007F5 6819 0001:001007F9 6822 0001:001007FC + 6823 0001:00100802 6825 0001:00100809 6826 0001:00100812 6827 0001:0010084C + 6832 0001:00100854 6833 0001:0010087B 6834 0001:00100885 6835 0001:001008A0 + 6836 0001:001008C9 6846 0001:001008D0 6848 0001:00100918 6838 0001:0010091C + 6840 0001:00100925 6841 0001:0010092C 6842 0001:00100941 6844 0001:00100952 + +Line numbers for ORFn(ORFn.pas) segment .text + + 194 0001:00100AAC 195 0001:00100AB2 196 0001:00100AC6 197 0001:00100ADE + 198 0001:00100AFF 199 0001:00100B1B 200 0001:00100B30 207 0001:00100B3C + 208 0001:00100B59 209 0001:00100B8B 210 0001:00100BCD 211 0001:00100BF0 + 212 0001:00100C22 215 0001:00100C8D 218 0001:00100CF6 219 0001:00100D25 + 225 0001:00100D7C 226 0001:00100D85 227 0001:00100D94 228 0001:00100DAD + 240 0001:00100DB4 241 0001:00100DBA 242 0001:00100DBF 244 0001:00100DCA + 245 0001:00100DDF 246 0001:00100DE2 247 0001:00100DFA 249 0001:00100E00 + 250 0001:00100E2C 251 0001:00100E34 252 0001:00100E46 253 0001:00100E75 + 254 0001:00100E9D 255 0001:00100EC0 256 0001:00100EE3 257 0001:00100F06 + 258 0001:00100F29 260 0001:00100F51 262 0001:00100FA7 265 0001:00100FBB + 266 0001:00100FD6 263 0001:00100FE8 268 0001:00100FFD 270 0001:00101029 + 271 0001:0010103B 272 0001:00101063 274 0001:00101097 275 0001:001010A9 + 276 0001:001010C7 278 0001:001010F1 279 0001:0010110D 280 0001:00101135 + 281 0001:00101169 282 0001:0010119B 284 0001:001011D0 285 0001:001011E2 + 286 0001:00101200 288 0001:0010122A 289 0001:0010123C 290 0001:0010125A + 292 0001:00101284 293 0001:0010129A 294 0001:001012D5 297 0001:001012F6 + 298 0001:00101317 259 0001:00101329 301 0001:0010136E 306 0001:00101394 + 307 0001:001013A3 308 0001:001013AE 310 0001:001013BA 311 0001:001013C6 + 313 0001:001013D7 318 0001:001013DC 319 0001:001013FB 320 0001:001013FF + 321 0001:0010140C 322 0001:0010142C 323 0001:00101442 324 0001:0010145B + 325 0001:0010147F 328 0001:00101484 329 0001:0010148D 330 0001:00101499 + 331 0001:001014C0 339 0001:001014C4 340 0001:001014F5 342 0001:00101511 + 343 0001:0010151F 344 0001:00101531 346 0001:0010153D 347 0001:00101557 + 348 0001:00101563 350 0001:0010156E 351 0001:00101580 352 0001:0010158E + 340 0001:00101591 353 0001:001015C4 359 0001:001015CC 360 0001:001015D8 + 361 0001:001015DE 362 0001:001015EF 366 0001:001015F4 367 0001:00101600 + 368 0001:00101606 369 0001:00101617 372 0001:0010161C 373 0001:00101625 + 374 0001:0010163B 375 0001:00101652 381 0001:00101658 382 0001:00101664 + 383 0001:00101687 389 0001:0010168C 390 0001:00101695 391 0001:00101699 + 393 0001:001016C5 394 0001:001016C9 395 0001:001016CB 391 0001:001016CE + 396 0001:001016D6 402 0001:001016DC 403 0001:001016E5 404 0001:001016E9 + 406 0001:0010170F 407 0001:00101713 408 0001:00101715 404 0001:00101718 + 409 0001:00101720 413 0001:00101724 414 0001:00101743 416 0001:00101748 + 417 0001:0010177B 414 0001:0010177E 418 0001:001017A1 423 0001:001017AC + 424 0001:001017BB 425 0001:001017C1 426 0001:001017D4 427 0001:001017FE + 425 0001:00101801 428 0001:00101809 438 0001:00101810 439 0001:0010182F + 440 0001:00101836 441 0001:00101843 443 0001:00101853 444 0001:00101866 + 445 0001:0010187D 446 0001:00101886 447 0001:0010188E 448 0001:00101896 + 449 0001:001018B9 455 0001:001018C0 456 0001:001018E0 457 0001:001018E7 + 458 0001:001018FF 459 0001:00101923 460 0001:0010195C 458 0001:0010195F + 460 0001:00101964 457 0001:00101967 461 0001:00101991 466 0001:00101998 + 467 0001:001019C4 468 0001:001019CC 469 0001:001019E6 470 0001:00101A32 + 471 0001:00101A57 470 0001:00101A6A 472 0001:00101A71 473 0001:00101A93 + 474 0001:00101AA5 475 0001:00101AB7 476 0001:00101AD7 468 0001:00101ADA + 477 0001:00101AE3 478 0001:00101B50 507 0001:00101B70 508 0001:00101B96 + 509 0001:00101BBF 510 0001:00101BED 511 0001:00101C37 517 0001:00101C3C + 518 0001:00101C62 519 0001:00101C8F 520 0001:00101CC1 521 0001:00101D10 + 526 0001:00101D14 527 0001:00101D40 528 0001:00101D48 529 0001:00101D4F + 530 0001:00101D8C 531 0001:00101D8F 532 0001:00101DB6 533 0001:00101DF0 + 534 0001:00101DF3 535 0001:00101E46 540 0001:00101E58 541 0001:00101E83 + 542 0001:00101E8A 543 0001:00101EC7 544 0001:00101ECA 545 0001:00101EF1 + 546 0001:00101F36 547 0001:00101F39 548 0001:00101F7E 553 0001:00101F90 + 554 0001:00101FBB 555 0001:00101FC2 556 0001:00101FFF 557 0001:00102002 + 558 0001:00102029 559 0001:0010206E 560 0001:00102071 561 0001:001020B6 + 566 0001:001020C8 567 0001:001020D2 568 0001:00102112 573 0001:00102118 + 574 0001:00102125 575 0001:00102130 576 0001:0010214C 578 0001:00102174 + 579 0001:00102193 580 0001:001021BB 575 0001:001021DB 582 0001:001021E4 + 583 0001:001021EF 588 0001:001021F4 589 0001:00102214 590 0001:0010227D + 596 0001:00102284 597 0001:001022AD 599 0001:001022C5 600 0001:001022D3 + 601 0001:001022F0 602 0001:00102302 603 0001:00102310 597 0001:00102313 + 604 0001:00102342 611 0001:00102348 612 0001:00102357 613 0001:0010235E + 614 0001:00102369 617 0001:00102379 618 0001:0010237C 619 0001:00102383 + 615 0001:00102391 621 0001:0010239F 622 0001:001023B0 623 0001:001023D3 + 629 0001:001023DC 630 0001:00102402 631 0001:0010240A 632 0001:00102458 + 633 0001:001024A1 640 0001:001024A8 641 0001:001024F5 642 0001:001024FA + 643 0001:001024FF 645 0001:0010250B 646 0001:00102511 649 0001:00102553 + 651 0001:00102593 652 0001:00102599 643 0001:0010259C 656 0001:001025DA + 662 0001:001025E8 663 0001:00102613 666 0001:0010261D 667 0001:00102631 + 668 0001:0010263C 664 0001:00102654 670 0001:00102685 675 0001:0010268C + 676 0001:00102699 677 0001:001026B5 678 0001:001026BA 680 0001:001026CA + 681 0001:001026CD 682 0001:001026E6 678 0001:001026E9 683 0001:001026EF + 690 0001:001026F4 691 0001:0010271D 692 0001:00102724 693 0001:00102731 + 696 0001:00102741 697 0001:00102744 698 0001:0010274B 694 0001:00102759 + 700 0001:00102767 701 0001:00102778 702 0001:00102780 703 0001:001027AB + 704 0001:00102810 711 0001:00102818 712 0001:00102854 713 0001:00102866 + 712 0001:00102899 714 0001:001028C3 719 0001:001028D0 720 0001:001028FC + 721 0001:00102914 720 0001:00102974 722 0001:00102979 723 0001:00102984 + 724 0001:0010299C 723 0001:001029F5 725 0001:00102A1C 731 0001:00102A24 + 732 0001:00102A43 733 0001:00102A48 734 0001:00102A4F 735 0001:00102A5A + 736 0001:00102A69 738 0001:00102A71 740 0001:00102A90 741 0001:00102A93 + 744 0001:00102A9B 736 0001:00102A9E 746 0001:00102AC6 767 0001:00102B28 + 768 0001:00102B53 769 0001:00102B82 770 0001:00102B98 771 0001:00102BAA + 773 0001:00102BBF 774 0001:00102BD1 776 0001:00102BEC 777 0001:00102BFE + 779 0001:00102C18 780 0001:00102C2A 782 0001:00102C45 786 0001:00102C57 + 787 0001:00102C6D 789 0001:00102C79 790 0001:00102C87 795 0001:00102C93 + 797 0001:00102CEB 798 0001:00102D1E 801 0001:00102DDC 802 0001:00102DE9 + 803 0001:00102DED 804 0001:00102DF1 805 0001:00102DF6 806 0001:00102E00 + 807 0001:00102E0A 808 0001:00102E19 809 0001:00102E27 810 0001:00102E32 + 811 0001:00102E3E 813 0001:00102E56 815 0001:00102E66 816 0001:00102E76 + 817 0001:00102E86 823 0001:00102E8C 824 0001:00102E98 825 0001:00102EA3 + 828 0001:00102EAC 829 0001:00102ECE 831 0001:00102ED3 826 0001:00102EE3 + 833 0001:00102EF2 840 0001:00102EF8 841 0001:00102F21 842 0001:00102F30 + 843 0001:00102F3E 845 0001:00102F5C 847 0001:00102F7D 850 0001:00102F8F + 853 0001:00102F97 854 0001:00102FAD 855 0001:00102FB9 856 0001:00102FD8 + 848 0001:00102FE8 858 0001:00102FF5 860 0001:0010300E 861 0001:00103029 + 843 0001:0010302C 862 0001:00103035 863 0001:0010303F 865 0001:00103059 + 867 0001:00103093 915 0001:00103098 916 0001:001030A8 917 0001:001030D8 + 928 0001:001030DC 929 0001:001030FB 930 0001:001030FE 931 0001:0010310B + 934 0001:00103134 935 0001:00103139 936 0001:00103159 937 0001:00103179 + 938 0001:00103199 939 0001:0010319F 940 0001:001031AD 942 0001:001031CC + 944 0001:001031E5 945 0001:001031F7 947 0001:0010322E 950 0001:00103234 + 951 0001:00103238 952 0001:00103243 955 0001:00103248 956 0001:0010324C + 957 0001:00103259 958 0001:0010326B 959 0001:00103276 963 0001:0010327C + 964 0001:00103280 965 0001:00103290 971 0001:00103294 972 0001:0010329D + 974 0001:001032B2 975 0001:001032C2 978 0001:0010330C 980 0001:00103315 + 981 0001:0010332E 984 0001:00103338 985 0001:0010333C 986 0001:0010334C + 991 0001:00103350 992 0001:00103354 993 0001:00103369 996 0001:0010336C + 997 0001:00103373 998 0001:00103382 1001 0001:00103388 1002 0001:0010338F + 1003 0001:0010339E 1004 0001:001033AB 1009 0001:001033B0 1010 0001:001033B9 + 1011 0001:001033EC 1014 0001:001033F0 1015 0001:001033FF 1017 0001:0010342E + 1020 0001:00103438 1021 0001:00103447 1023 0001:0010348A 1030 0001:00103494 + 1031 0001:001034A3 1032 0001:001034B2 1033 0001:001034BF 1034 0001:001034CA + 1035 0001:001034E1 1036 0001:001034F8 1042 0001:00103514 1043 0001:00103523 + 1044 0001:00103541 1043 0001:0010357B 1045 0001:00103580 1050 0001:00103584 + 1051 0001:00103593 1052 0001:001035A0 1053 0001:001035BE 1052 0001:001035FC + 1054 0001:00103601 1057 0001:00103608 1058 0001:00103617 1059 0001:0010363C + 1062 0001:00103640 1063 0001:0010364F 1064 0001:0010366E 1067 0001:00103674 + 1068 0001:00103683 1069 0001:001036A2 1077 0001:001036A8 1078 0001:001036B7 + 1079 0001:001036C0 1080 0001:001036CC 1081 0001:001036D4 1097 0001:001036E2 + 1098 0001:001036EB 1099 0001:001036F4 1100 0001:001036FA 1101 0001:00103700 + 1103 0001:00103712 1104 0001:00103729 1106 0001:00103740 1107 0001:0010375C + 1109 0001:0010376A 1111 0001:00103780 1112 0001:00103790 1114 0001:001037B3 + 1115 0001:001037CE 1116 0001:001037D7 1118 0001:001037FA 1119 0001:00103815 + 1120 0001:00103825 1122 0001:00103848 1123 0001:00103863 1124 0001:0010386C + 1126 0001:0010388F 1129 0001:001038AA 1130 0001:001038CE 1131 0001:001038DC + 1132 0001:001038EE 1133 0001:001038FC 1134 0001:0010390E 1135 0001:0010391C + 1136 0001:0010392E 1137 0001:0010393C 1138 0001:0010394E 1139 0001:0010395C + 1140 0001:0010396E 1141 0001:0010397C 1144 0001:001039AD 1145 0001:001039BF + 1146 0001:001039D1 1147 0001:001039F0 1149 0001:00103A18 1106 0001:00103A1B + 1151 0001:00103A31 1153 0001:00103A41 1158 0001:00103A50 1160 0001:00103A60 + 1161 0001:00103A82 1162 0001:00103AA0 1163 0001:00103ABF 1164 0001:00103ADA + 1165 0001:00103AFC 1166 0001:00103B1A 1167 0001:00103B39 1168 0001:00103B54 + 1169 0001:00103B73 1170 0001:00103B8E 1171 0001:00103BAD 1172 0001:00103BC8 + 1173 0001:00103BE0 1174 0001:00103C04 1172 0001:00103C29 1176 0001:00103C2E + 1184 0001:00103C34 1185 0001:00103C44 1186 0001:00103C60 1187 0001:00103C6E + 1189 0001:00103C84 1190 0001:00103CA1 1191 0001:00103CAA 1192 0001:00103CBF + 1193 0001:00103CCD 1194 0001:00103CDB 1195 0001:00103CE3 1196 0001:00103CFB + 1197 0001:00103D13 1198 0001:00103D21 1202 0001:00103D31 1203 0001:00103D43 + 1206 0001:00103D53 1207 0001:00103D75 1209 0001:00103D8A 1210 0001:00103D9C + 1211 0001:00103DAA 1185 0001:00103DAD 1212 0001:00103DB6 1217 0001:00103DBC + 1218 0001:00103DC5 1221 0001:00103DD4 1223 0001:00103DDF 1224 0001:00103DF4 + 1227 0001:00103DFD 1229 0001:00103E08 1230 0001:00103E1D 1233 0001:00103E26 + 1234 0001:00103E31 1236 0001:00103E3A 1238 0001:00103E45 1239 0001:00103E58 + 1241 0001:00103E61 1243 0001:00103E6B 1244 0001:00103E7F 1246 0001:00103E87 + 1247 0001:00103E92 1248 0001:00103E9B 1253 0001:00103EA0 1255 0001:00103EA9 + 1256 0001:00103ECF 1257 0001:00103EF5 1258 0001:00103F23 1259 0001:00103F51 + 1260 0001:00103F5C 1261 0001:00103F64 1262 0001:00103F6F 1265 0001:00103F84 + 1267 0001:00103F9B 1272 0001:00103FA0 1274 0001:00103FA9 1275 0001:00103FCF + 1276 0001:00103FF5 1277 0001:00104023 1278 0001:00104051 1279 0001:0010405C + 1280 0001:00104064 1281 0001:0010406F 1282 0001:00104084 1285 0001:00104099 + 1287 0001:001040B0 1297 0001:001040B4 1298 0001:001040D3 1300 0001:001040E9 + 1301 0001:001040F3 1302 0001:00104101 1303 0001:0010410C 1304 0001:00104131 + 1305 0001:00104147 1307 0001:0010418B 1312 0001:00104194 1313 0001:0010419B + 1314 0001:001041BB 1315 0001:001041E0 1318 0001:001041E4 1319 0001:001041F3 + 1320 0001:001041F9 1321 0001:0010420F 1329 0001:00104214 1330 0001:00104220 + 1331 0001:0010422A 1332 0001:0010423A 1333 0001:00104259 1334 0001:0010425F + 1335 0001:0010426C 1336 0001:0010427A 1344 0001:00104280 1345 0001:0010428C + 1346 0001:00104296 1347 0001:001042A6 1348 0001:001042C5 1349 0001:001042CB + 1350 0001:001042D8 1351 0001:001042E6 1358 0001:001042EC 1366 0001:00104311 + 1367 0001:00104316 1368 0001:0010431B 1369 0001:00104331 1384 0001:0010439B + 1385 0001:001043A1 1386 0001:001043B6 1387 0001:001043C4 1390 0001:00104400 + 1391 0001:00104406 1392 0001:00104418 1395 0001:00104449 1406 0001:00104450 + 1407 0001:00104473 1408 0001:0010447D 1409 0001:0010448D 1410 0001:0010449B + 1411 0001:001044A6 1412 0001:001044AB 1414 0001:001044B1 1415 0001:001044C5 + 1416 0001:001044E4 1418 0001:001044EC 1419 0001:001044F2 1420 0001:00104502 + 1424 0001:0010450E 1425 0001:00104514 1426 0001:00104525 1428 0001:0010452F + 1430 0001:00104546 1431 0001:00104553 1433 0001:00104586 1436 0001:0010458C + 1437 0001:00104598 1439 0001:001045BF 1441 0001:001045CA 1442 0001:001045DA + 1449 0001:001045E0 1452 0001:00104602 1454 0001:00104626 1455 0001:00104629 + 1456 0001:00104673 1457 0001:001046A9 1458 0001:001046BB 1459 0001:001046C9 + 1461 0001:001046D1 1462 0001:001046F2 1463 0001:00104709 1464 0001:00104723 + 1465 0001:00104778 1466 0001:00104785 1467 0001:00104790 1468 0001:0010479A + 1470 0001:001047C7 1477 0001:001047E4 1478 0001:001047E9 1480 0001:001047F2 + 1481 0001:001047F9 1482 0001:00104813 1484 0001:0010481F 1486 0001:00104829 + 1487 0001:00104834 1496 0001:00104838 1497 0001:00104847 1498 0001:00104855 + 1499 0001:0010485A 1500 0001:0010488C 1501 0001:00104890 1502 0001:001048AD + 1503 0001:001048B3 1504 0001:001048BC 1505 0001:001048C3 1506 0001:001048F1 + 1513 0001:001048F8 1516 0001:00104907 1517 0001:00104915 1519 0001:0010491B + 1520 0001:00104931 1522 0001:00104947 1523 0001:00104958 1524 0001:0010496E + 1525 0001:00104983 1526 0001:00104998 1527 0001:0010499F 1529 0001:001049BD + 1530 0001:001049D4 1531 0001:001049E9 1532 0001:001049FD 1527 0001:00104A00 + 1534 0001:00104A05 1563 0001:00104A0C 1564 0001:00104A18 1565 0001:00104A20 + 1567 0001:00104A2A 1569 0001:00104A34 1571 0001:00104A46 1572 0001:00104A4C + 1573 0001:00104A5B 1574 0001:00104A6A 1572 0001:00104A7D 1577 0001:00104A85 + 1579 0001:00104A97 1580 0001:00104A9D 1581 0001:00104AAE 1582 0001:00104ABD + 1580 0001:00104AD0 1585 0001:00104AD6 1586 0001:00104ADE 1588 0001:00104AE5 + 1696 0001:00104AEC 1697 0001:00104B0C 1699 0001:00104B24 1700 0001:00104B28 + 1702 0001:00104B3C 1704 0001:00104B52 1705 0001:00104B56 1707 0001:00104B58 + 1700 0001:00104B5B 1708 0001:00104B60 1709 0001:00104B66 1710 0001:00104B78 + 1697 0001:00104B7B 1711 0001:00104B80 1714 0001:00104B8C 1715 0001:00104B90 + 1716 0001:00104BBA 1719 0001:00104BC0 1720 0001:00104BC4 1721 0001:00104BEE + 1730 0001:00104BF4 1731 0001:00104C17 1733 0001:00104C62 1724 0001:00104C64 + 1725 0001:00104C6D 1726 0001:00104C7E 1727 0001:00104C8D 1729 0001:00104C9C + +Line numbers for ORSystem(ORSystem.pas) segment .text + + 72 0001:00104CB8 73 0001:00104CC7 74 0001:00104CD7 75 0001:00104CEF + 77 0001:00104CF5 78 0001:00104CFE 79 0001:00104D09 81 0001:00104D15 + 91 0001:00104D1C 92 0001:00104D52 94 0001:00104D56 96 0001:00104D68 + 99 0001:00104D9F 101 0001:00104DB1 102 0001:00104DC5 103 0001:00104DD6 + 104 0001:00104DFB 105 0001:00104E08 106 0001:00104E19 108 0001:00104E29 + 109 0001:00104E36 111 0001:00104E5C 112 0001:00104E69 113 0001:00104E75 + 114 0001:00104E8B 116 0001:00104E97 117 0001:00104EA2 119 0001:00104EAD + 122 0001:00104F1A 129 0001:00104FD4 130 0001:00104FFF 131 0001:00105007 + 132 0001:0010501C 134 0001:00105026 135 0001:00105031 136 0001:0010504B + 137 0001:00105061 142 0001:00105103 152 0001:00105118 153 0001:00105127 + 154 0001:0010512F 155 0001:00105144 157 0001:0010514A 158 0001:00105155 + 159 0001:00105163 160 0001:0010517D 161 0001:00105197 163 0001:001051B2 + 166 0001:001051C2 171 0001:001051C8 172 0001:001051ED 176 0001:0010526D + 180 0001:001052ED 181 0001:0010531B 274 0001:00105320 275 0001:0010533F + 276 0001:00105347 277 0001:00105356 278 0001:00105379 279 0001:001053A7 + 286 0001:001053AC 287 0001:001053CB 288 0001:001053D3 289 0001:001053E2 + 290 0001:00105405 291 0001:00105446 302 0001:0010544C 303 0001:00105471 + 304 0001:00105476 306 0001:00105489 307 0001:0010549F 308 0001:001054BD + 310 0001:001054D5 311 0001:001054DB 313 0001:001054DD 304 0001:001054E0 + 314 0001:00105512 320 0001:00105518 321 0001:0010553B 322 0001:00105543 + 324 0001:0010555A 325 0001:00105570 326 0001:00105591 328 0001:001055A9 + 329 0001:001055EF 331 0001:001055F1 322 0001:001055F4 332 0001:00105627 + 337 0001:00105638 338 0001:00105657 339 0001:0010567B 340 0001:001056DD + 361 0001:001056FC 362 0001:00105708 363 0001:00105710 364 0001:0010571F + 365 0001:0010572D 366 0001:0010573A 367 0001:0010575A 368 0001:00105768 + 370 0001:0010577D 372 0001:0010578D 377 0001:001057B0 378 0001:001057B9 + 379 0001:001057BD 380 0001:001057CC 381 0001:001057DA 382 0001:001057E7 + 383 0001:00105807 384 0001:00105815 386 0001:0010582A 388 0001:0010583D + 451 0001:00105860 452 0001:0010586F 453 0001:00105877 454 0001:00105886 + 455 0001:00105894 456 0001:001058A1 457 0001:001058C1 458 0001:001058CF + 460 0001:001058F9 462 0001:00105906 464 0001:0010591B 466 0001:0010592E + 516 0001:00105938 517 0001:00105941 518 0001:00105950 519 0001:00105957 + 521 0001:0010597B 526 0001:00105980 528 0001:00105999 529 0001:0010599D + 530 0001:001059BA 531 0001:001059D3 533 0001:001059FA 534 0001:001059FE + 536 0001:00105A4B 553 0001:00105AC0 553 0001:00105AC7 + +Line numbers for uConst(uConst.pas) segment .text + + 390 0001:00105D74 391 0001:00105D7D 393 0001:00105D89 + +Line numbers for OleConst(OleConst.pas) segment .text + + 36 0001:00105DE4 36 0001:00105DEB + +Line numbers for OleServer(OleServer.pas) segment .text + + 48 0001:00105E94 109 0001:00105F9C 118 0001:0010613C 119 0001:00106157 + 120 0001:00106160 121 0001:00106185 125 0001:0010618C 126 0001:00106190 + 128 0001:001061A2 129 0001:001061A7 131 0001:001061A9 133 0001:001061C3 + 134 0001:001061D3 135 0001:001061D8 137 0001:001061DA 138 0001:001061E4 + 141 0001:001061FC 142 0001:00106200 143 0001:00106215 144 0001:0010621B + 145 0001:00106227 148 0001:0010622C 149 0001:00106230 150 0001:00106245 + 151 0001:0010624B 152 0001:00106257 156 0001:0010625C 157 0001:00106260 + 158 0001:00106267 159 0001:0010626F 162 0001:00106274 163 0001:00106278 + 164 0001:0010627F 165 0001:00106289 169 0001:00106290 170 0001:00106294 + 171 0001:0010629E 183 0001:001062A4 184 0001:001062BE 185 0001:001062C4 + 188 0001:001062E1 190 0001:001062F1 192 0001:001062FA 194 0001:0010630B + 195 0001:0010631B 197 0001:00106337 192 0001:0010633A 199 0001:00106341 + 201 0001:00106352 202 0001:00106362 203 0001:00106378 199 0001:0010637B + 206 0001:00106380 207 0001:00106389 209 0001:0010639A 211 0001:001063A3 + 213 0001:001063B8 214 0001:001063C8 216 0001:001063D8 218 0001:001063F4 + 211 0001:001063F7 220 0001:001063FE 222 0001:0010640F 223 0001:0010641F + 225 0001:0010642F 226 0001:00106445 220 0001:00106448 229 0001:0010644D + 232 0001:00106465 233 0001:00106490 236 0001:00106498 237 0001:001064A1 + 238 0001:001064A9 239 0001:001064B2 240 0001:001064B8 241 0001:001064BF + 245 0001:001064C4 246 0001:001064DF 248 0001:001064EC 252 0001:001064F4 + 254 0001:001064FD 255 0001:0010652D 258 0001:00106534 260 0001:00106545 + 262 0001:0010654D 263 0001:00106558 265 0001:00106573 266 0001:0010657C + 267 0001:00106598 270 0001:0010659C 271 0001:001065A3 274 0001:001065AB + 275 0001:001065B4 276 0001:001065C0 277 0001:001065C8 280 0001:001065CC + 282 0001:001065DB 288 0001:001065E0 289 0001:0010660B 291 0001:0010662E + 295 0001:00106641 296 0001:0010665B 298 0001:0010666B 300 0001:001066BE + 305 0001:001066DA 306 0001:001066FA 310 0001:0010670A 312 0001:0010675B + 315 0001:00106760 316 0001:0010676C 317 0001:00106791 320 0001:00106798 + 321 0001:001067A4 322 0001:001067BB 325 0001:001067C0 327 0001:001067C9 + 328 0001:001067D2 330 0001:001067D8 331 0001:001067E4 334 0001:001067E8 + 336 0001:001067F4 337 0001:001067FD 340 0001:00106804 343 0001:0010680D + 344 0001:00106819 346 0001:0010681F 347 0001:0010682B 350 0001:00106830 + 351 0001:0010683C 352 0001:00106845 356 0001:0010684C 357 0001:00106850 + 358 0001:00106862 360 0001:00106869 361 0001:00106873 364 0001:00106878 + 365 0001:0010687C 366 0001:00106882 367 0001:0010688E 370 0001:00106894 + 371 0001:00106898 372 0001:0010689E 373 0001:001068AA 375 0001:001068E0 + 376 0001:001068EC 377 0001:001068FC + +Line numbers for AxCtrls(axctrls.pas) segment .text + + 598 0001:00106980 619 0001:00106A4C 639 0001:00106B6C 813 0001:00106D84 + 814 0001:00106D8A 815 0001:00106D92 816 0001:00106DAD 817 0001:00106DB8 + 818 0001:00106DC2 970 0001:00106DC8 971 0001:00106DD4 972 0001:00106DDD + 973 0001:00106E00 974 0001:00106E13 977 0001:00106E28 978 0001:00106E34 + 979 0001:00106E3D 980 0001:00106E60 981 0001:00106E73 984 0001:00106E88 + 985 0001:00106EA7 986 0001:00106EDA 989 0001:00106EE0 990 0001:00106F07 + 991 0001:00106F42 994 0001:00106F48 995 0001:00106F67 996 0001:00106F9A + 3541 0001:00106FA0 3542 0001:00106FB8 3543 0001:00106FC2 3544 0001:00107000 + 3547 0001:00107004 3548 0001:00107015 3549 0001:0010701D 3550 0001:00107039 + 3553 0001:00107040 3554 0001:00107047 3555 0001:00107058 3558 0001:0010705C + 3559 0001:0010707E 3560 0001:0010708F 3561 0001:00107095 3562 0001:001070AF + 3563 0001:001070DA 3566 0001:001070F0 3567 0001:001070F7 3568 0001:0010710D + 3569 0001:00107118 3574 0001:0010712C 3575 0001:00107147 3576 0001:00107151 + 3577 0001:00107175 3582 0001:0010717C 3583 0001:00107183 3584 0001:00107191 + 3585 0001:0010719C 3587 0001:001071B0 3589 0001:001071C0 3592 0001:001071C8 + 3593 0001:001071CC 3594 0001:001071D4 3599 0001:001071DC 3600 0001:001071F7 + 3601 0001:00107201 3602 0001:00107225 3613 0001:0010722C 3614 0001:0010724E + 3615 0001:0010725B 3616 0001:0010726E 3617 0001:00107278 3618 0001:0010728A + 3620 0001:00107297 3621 0001:0010729F 3622 0001:001072AC 3623 0001:001072B6 + 3624 0001:001072C3 3625 0001:001072CD 3626 0001:001072DA 3627 0001:001072E4 + 3628 0001:001072F1 3629 0001:001072FB 3631 0001:00107308 3632 0001:00107317 + 3633 0001:0010731E 3634 0001:0010732C 3635 0001:0010733A 3636 0001:00107350 + 3637 0001:00107368 3638 0001:00107373 3639 0001:0010737E 3641 0001:00107399 + 3642 0001:001073A0 3644 0001:001073DD 3647 0001:001073FC 3648 0001:00107417 + 3649 0001:00107424 3650 0001:00107431 3651 0001:00107438 3652 0001:00107446 + 3654 0001:00107459 3655 0001:0010747F 3656 0001:001074A6 3657 0001:001074C4 + 3658 0001:001074E2 3659 0001:00107500 3660 0001:0010751E 3663 0001:00107545 + 3665 0001:00107581 3674 0001:0010759C 3675 0001:001075C1 3677 0001:001075CE + 3680 0001:001075E7 3681 0001:001075EE 3682 0001:001075F9 3683 0001:00107614 + 3684 0001:00107631 3685 0001:00107645 3686 0001:0010765C 3687 0001:00107673 + 3689 0001:0010768A 3690 0001:001076A6 3692 0001:001076B1 3693 0001:001076F1 + 3696 0001:0010771C 3697 0001:0010773B 3698 0001:00107756 3699 0001:0010777B + 3704 0001:00107790 3705 0001:001077AB 3706 0001:001077B5 3707 0001:001077D9 + 3712 0001:001077E0 3713 0001:001077E9 3714 0001:001077F0 3715 0001:001077FF + 3716 0001:0010780D 3717 0001:00107823 3719 0001:0010783E 3720 0001:00107845 + 3722 0001:00107855 3732 0001:0010786C 3733 0001:00107878 3735 0001:00107885 + 3738 0001:00107889 3739 0001:00107890 3741 0001:001078A8 3742 0001:001078AF + 3743 0001:001078BE 3744 0001:001078CC 3745 0001:001078DD 3746 0001:001078E8 + 3747 0001:001078F3 3749 0001:00107904 3752 0001:00107914 3754 0001:0010792C + 3755 0001:00107933 3759 0001:0010794B 3760 0001:00107952 3762 0001:0010796E + 3763 0001:0010797D 3764 0001:0010798B 3765 0001:001079A0 3766 0001:001079B5 + 3767 0001:001079C9 3768 0001:001079D7 3770 0001:001079FA 3772 0001:00107A0A + 3773 0001:00107A15 3775 0001:00107A26 3779 0001:00107A36 3782 0001:00107A49 + 3783 0001:00107A6B 3785 0001:00107A78 3786 0001:00107A8B 3789 0001:00107AB0 + 3790 0001:00107ABC 3791 0001:00107AC7 3792 0001:00107ACF 3797 0001:00107AD4 + 3798 0001:00107AE0 3799 0001:00107AF2 3801 0001:00107B05 3802 0001:00107B10 + 3805 0001:00107B14 3807 0001:00107B20 3816 0001:00107B24 3817 0001:00107B33 + 3818 0001:00107B40 3819 0001:00107B48 3820 0001:00107B56 3821 0001:00107B61 + 3822 0001:00107B6C 3823 0001:00107B70 3825 0001:00107B76 3826 0001:00107B88 + 3827 0001:00107B91 3829 0001:00107B95 3830 0001:00107BA5 3832 0001:00107BAC + 3833 0001:00107BBC 3836 0001:00107BCF 3838 0001:00107C2E 3839 0001:00107C34 + 3841 0001:00107C50 3843 0001:00107C60 3848 0001:00107C64 3849 0001:00107C6D + 3850 0001:00107C9D 3855 0001:00107CA4 3856 0001:00107CB6 3857 0001:00107CC0 + 3858 0001:00107CCB 3859 0001:00107CD9 3860 0001:00107CE2 3861 0001:00107CF1 + 3862 0001:00107CFC 3865 0001:00107D04 3866 0001:00107D0D 3867 0001:00107D35 + 3870 0001:00107D3C 3871 0001:00107D45 3872 0001:00107D4A 3873 0001:00107D66 + 3876 0001:00107D6C 3877 0001:00107D75 3878 0001:00107D7A 3879 0001:00107D96 + 3884 0001:00107D9C 3885 0001:00107DA5 3886 0001:00107DAA 3888 0001:00107DB3 + 3889 0001:00107DC3 3891 0001:00107DCC 3896 0001:00107DD0 3897 0001:00107DD9 + 3898 0001:00107DDD 3900 0001:00107DE6 3901 0001:00107DF6 3903 0001:00107E01 + 3906 0001:00107E08 3907 0001:00107E11 3908 0001:00107E37 3911 0001:00107E3C + 3912 0001:00107E43 3913 0001:00107E57 3916 0001:00107E5C 3917 0001:00107E7B + 3918 0001:00107EAD 3921 0001:00107EB4 3922 0001:00107EC0 3923 0001:00107EDE + 3926 0001:00107EE4 3927 0001:00107F03 3928 0001:00107F35 3931 0001:00107F3C + 3933 0001:00107F48 3936 0001:00107F4C 3937 0001:00107F58 3939 0001:00107F90 + 3942 0001:00107FA4 3943 0001:00107FC3 3944 0001:0010801C 3948 0001:00108030 + 3949 0001:00108054 3950 0001:00108086 3954 0001:00108090 3955 0001:001080B3 + 3956 0001:001080E5 4133 0001:001080EC 4134 0001:001080EF 4136 0001:001080F8 + 4138 0001:0010810C 4140 0001:00108115 4141 0001:0010812A 4142 0001:0010813F + 4143 0001:00108154 4145 0001:00108169 4161 0001:001081E0 4162 0001:001081EF + 4163 0001:001081F8 4165 0001:0010820F 4166 0001:00108219 4170 0001:00108220 + 4171 0001:0010822F 4172 0001:00108238 4174 0001:00108253 4175 0001:0010825D + 4179 0001:00108264 4180 0001:00108289 4181 0001:00108292 4183 0001:001082B1 + 4184 0001:001082D8 4191 0001:001082E0 4192 0001:00108302 4193 0001:00108313 + 4195 0001:0010833C 4186 0001:00108340 4187 0001:0010834C 4188 0001:00108360 + 4190 0001:00108365 + +Line numbers for OleCtrls(OleCtrls.pas) segment .text + + 46 0001:00108368 332 0001:00108464 386 0001:00108BBC 387 0001:00108BDB + 388 0001:00108BE6 389 0001:00108C0E 392 0001:00108C14 393 0001:00108C36 + 394 0001:00108C81 397 0001:00108C98 398 0001:00108CA4 399 0001:00108CAC + 400 0001:00108CBA 401 0001:00108CC2 406 0001:00108CC8 407 0001:00108CE3 + 408 0001:00108D07 413 0001:00108D0C 414 0001:00108D10 416 0001:00108D22 + 417 0001:00108D27 419 0001:00108D29 421 0001:00108D46 422 0001:00108D56 + 423 0001:00108D5B 425 0001:00108D5D 426 0001:00108D67 429 0001:00108D7C + 430 0001:00108D80 431 0001:00108D92 434 0001:00108D98 435 0001:00108D9C + 436 0001:00108DAE 441 0001:00108DB4 442 0001:00108DB8 443 0001:00108DBF + 444 0001:00108DC7 448 0001:00108DCC 449 0001:00108DD0 450 0001:00108DD7 + 451 0001:00108DE1 455 0001:00108DE8 456 0001:00108DEC 457 0001:00108DF6 + 462 0001:00108DFC 463 0001:00108E01 464 0001:00108E13 465 0001:00108E29 + 466 0001:00108E3D 467 0001:00108E45 570 0001:00108E4C 571 0001:00108E67 + 572 0001:00108E74 573 0001:00108E7B 574 0001:00108E86 575 0001:00108E92 + 577 0001:00108EA1 578 0001:00108EB6 579 0001:00108ED0 580 0001:00108EEC + 579 0001:00108F0E 582 0001:00108F13 584 0001:00108F26 585 0001:00108F3B + 586 0001:00108F55 588 0001:00108F71 589 0001:00108F90 590 0001:00108FAE + 586 0001:00108FB1 592 0001:00108FB6 593 0001:00108FCE 594 0001:00108FD6 + 595 0001:00108FEA 596 0001:00109009 597 0001:00109018 599 0001:00109033 + 600 0001:00109054 601 0001:0010907A 602 0001:00109086 603 0001:00109090 + 604 0001:0010909C 605 0001:001090AA 606 0001:001090B6 608 0001:001090CB + 609 0001:001090F4 616 0001:00109110 617 0001:00109119 619 0001:00109121 + 620 0001:00109139 619 0001:0010914E 621 0001:00109153 622 0001:0010915D + 624 0001:00109164 626 0001:00109168 627 0001:00109179 628 0001:00109183 + 629 0001:001091A0 630 0001:001091A8 631 0001:001091B0 632 0001:001091BD + 633 0001:001091DA 634 0001:001091E7 635 0001:001091F5 636 0001:00109204 + 637 0001:00109213 638 0001:0010921F 639 0001:00109236 640 0001:00109252 + 652 0001:00109258 653 0001:0010927A 654 0001:0010928A 655 0001:00109298 + 656 0001:001092A6 658 0001:001092D0 660 0001:001092DC 661 0001:001092E8 + 662 0001:00109309 664 0001:0010932B 665 0001:0010934A 666 0001:00109362 + 668 0001:0010936A 669 0001:00109390 670 0001:001093B6 671 0001:001093D7 + 673 0001:00109400 675 0001:00109433 676 0001:00109442 677 0001:00109453 + 678 0001:00109462 679 0001:00109473 680 0001:00109482 681 0001:00109493 + 682 0001:001094A2 683 0001:001094B3 684 0001:001094C4 686 0001:001094DC + 687 0001:001094E4 689 0001:00109513 798 0001:0010955C 799 0001:0010956B + 800 0001:00109574 801 0001:001095AE 802 0001:001095B6 804 0001:001095BC + 805 0001:001095D7 808 0001:001095F3 810 0001:00109619 811 0001:0010962D + 814 0001:0010966C 817 0001:001096DD 822 0001:00109704 823 0001:00109723 + 824 0001:0010972B 825 0001:0010973D 826 0001:0010974E 827 0001:0010975C + 828 0001:0010977B 830 0001:001097A4 831 0001:001097AC 834 0001:001097D3 + 837 0001:001097DC 838 0001:001097E5 839 0001:001097ED 842 0001:001097FD + 843 0001:00109837 844 0001:00109843 845 0001:0010985A 846 0001:00109862 + 847 0001:0010987D 849 0001:0010988F 850 0001:00109897 853 0001:0010989C + 854 0001:001098AB 855 0001:001098B9 858 0001:001098C5 859 0001:001098DB + 860 0001:001098E4 862 0001:001098F0 863 0001:00109922 866 0001:0010992C + 868 0001:00109946 869 0001:0010994B 879 0001:00109954 880 0001:00109960 + 881 0001:00109972 882 0001:00109981 883 0001:00109988 886 0001:0010998C + 887 0001:0010999B 888 0001:001099A9 889 0001:001099B4 891 0001:001099FB + 892 0001:001099FE 893 0001:00109A10 895 0001:00109A1A 906 0001:00109A38 + 907 0001:00109A3F 908 0001:00109A62 909 0001:00109A7E 910 0001:00109A8B + 911 0001:00109A98 912 0001:00109AA5 917 0001:00109AB8 918 0001:00109AC1 + 919 0001:00109ACD 921 0001:00109AD6 922 0001:00109AEF 921 0001:00109B05 + 923 0001:00109B0A 924 0001:00109B15 926 0001:00109B1D 929 0001:00109B24 + 930 0001:00109B2B 932 0001:00109B37 933 0001:00109B46 935 0001:00109B51 + 938 0001:00109B54 939 0001:00109B5B 941 0001:00109B67 942 0001:00109B82 + 943 0001:00109B9F 945 0001:00109BAD 946 0001:00109BB5 1021 0001:00109BB8 + 1022 0001:00109BB9 1023 0001:00109BBA 1024 0001:00109BBB 1025 0001:00109BBC + 1026 0001:00109BBE 1027 0001:00109BC4 1028 0001:00109BC7 1029 0001:00109BCA + 1030 0001:00109BCC 1031 0001:00109BCE 1032 0001:00109BD1 1033 0001:00109BD3 + 1034 0001:00109BD4 1035 0001:00109BD6 1036 0001:00109BD8 1037 0001:00109BDA + 1038 0001:00109BDC 1039 0001:00109BDE 1040 0001:00109BDF 1041 0001:00109BE6 + 1042 0001:00109BE8 1043 0001:00109BEB 1044 0001:00109BED 1045 0001:00109BEF + 1046 0001:00109BF1 1047 0001:00109BF6 1048 0001:00109BFB 1049 0001:00109BFE + 1050 0001:00109C01 1051 0001:00109C03 1052 0001:00109C04 1053 0001:00109C08 + 1054 0001:00109C0B 1055 0001:00109C0C 1056 0001:00109C0E 1057 0001:00109C11 + 1058 0001:00109C12 1059 0001:00109C13 1060 0001:00109C14 1152 0001:00109C18 + 1153 0001:00109C27 1154 0001:00109C35 1155 0001:00109C40 1160 0001:00109C44 + 1161 0001:00109C50 1162 0001:00109C5E 1163 0001:00109C67 1176 0001:00109C6C + 1177 0001:00109C75 1178 0001:00109C7A 1179 0001:00109C85 1180 0001:00109C8B + 1181 0001:00109CA9 1183 0001:00109CB7 1184 0001:00109CC4 1185 0001:00109CDA + 1209 0001:00109CE0 1210 0001:00109CEC 1211 0001:00109CFA 1212 0001:00109D06 + 1258 0001:00109D0C 1259 0001:00109D18 1260 0001:00109D29 1263 0001:00109D30 + 1264 0001:00109D4F 1265 0001:00109D57 1266 0001:00109D95 1275 0001:00109DAC + 1276 0001:00109DBB 1277 0001:00109DC3 1278 0001:00109DD1 1334 0001:00109DD8 + 1335 0001:00109E03 1336 0001:00109E0B 1337 0001:00109E13 1339 0001:00109E42 + 1340 0001:00109E76 1364 0001:00109E7C 1365 0001:00109EA5 1366 0001:00109EDB + 1369 0001:00109EE0 1370 0001:00109EEF 1371 0001:00109EFD 1376 0001:00109F04 + 1377 0001:00109F13 1378 0001:00109F1B 1379 0001:00109F29 1380 0001:00109F31 + 1390 0001:00109F38 1391 0001:00109F41 1393 0001:00109F61 1394 0001:00109F66 + 1395 0001:00109F79 1396 0001:00109F96 1397 0001:00109FA2 1398 0001:00109FBC + 1399 0001:00109FC6 1400 0001:00109FDC 1402 0001:00109FF1 1406 0001:00109FF8 + 1407 0001:00109FF9 1408 0001:00109FFA 1409 0001:00109FFB 1410 0001:00109FFD + 1411 0001:00109FFF 1412 0001:0010A002 1413 0001:0010A004 1414 0001:0010A006 + 1415 0001:0010A008 1416 0001:0010A00B 1417 0001:0010A00D 1418 0001:0010A00F + 1419 0001:0010A011 1420 0001:0010A013 1421 0001:0010A015 1422 0001:0010A017 + 1423 0001:0010A01A 1424 0001:0010A01C 1425 0001:0010A01E 1426 0001:0010A021 + 1427 0001:0010A024 1428 0001:0010A027 1429 0001:0010A028 1430 0001:0010A02A + 1431 0001:0010A02D 1432 0001:0010A030 1433 0001:0010A032 1434 0001:0010A034 + 1435 0001:0010A035 1436 0001:0010A036 1437 0001:0010A037 1455 0001:0010A038 + 1456 0001:0010A04D 1457 0001:0010A05E 1459 0001:0010A06E 1460 0001:0010A073 + 1461 0001:0010A081 1462 0001:0010A08A 1463 0001:0010A093 1464 0001:0010A09C + 1466 0001:0010A0A6 1467 0001:0010A0B9 1468 0001:0010A0C2 1470 0001:0010A0C7 + 1471 0001:0010A0CB 1472 0001:0010A0D8 1474 0001:0010A0E5 1475 0001:0010A0EB + 1477 0001:0010A0F8 1478 0001:0010A0FF 1480 0001:0010A105 1481 0001:0010A117 + 1482 0001:0010A123 1485 0001:0010A12E 1486 0001:0010A13E 1487 0001:0010A146 + 1490 0001:0010A151 1493 0001:0010A156 1496 0001:0010A169 1497 0001:0010A16F + 1501 0001:0010A17D 1502 0001:0010A183 1503 0001:0010A18F 1507 0001:0010A19D + 1508 0001:0010A1A3 1511 0001:0010A1AE 1512 0001:0010A1B4 1513 0001:0010A1BA + 1515 0001:0010A1C5 1518 0001:0010A1D1 1519 0001:0010A1D5 1520 0001:0010A1D8 + 1522 0001:0010A1E7 1523 0001:0010A1F2 1524 0001:0010A1F8 1526 0001:0010A1FE + 1527 0001:0010A201 1528 0001:0010A20E 1524 0001:0010A229 1531 0001:0010A23E + 1533 0001:0010A252 1534 0001:0010A258 1536 0001:0010A25E 1537 0001:0010A261 + 1534 0001:0010A270 1540 0001:0010A276 1545 0001:0010A280 1546 0001:0010A292 + 1547 0001:0010A2A4 1550 0001:0010A2B7 1551 0001:0010A2C5 1553 0001:0010A2D2 + 1555 0001:0010A2E0 1556 0001:0010A2E1 1557 0001:0010A2E2 1558 0001:0010A2E5 + 1559 0001:0010A2E8 1560 0001:0010A2EA 1561 0001:0010A2EC 1562 0001:0010A2EE + 1563 0001:0010A2F0 1564 0001:0010A2F3 1565 0001:0010A2F5 1566 0001:0010A2F7 + 1567 0001:0010A2FA 1568 0001:0010A2FC 1569 0001:0010A300 1570 0001:0010A302 + 1571 0001:0010A304 1572 0001:0010A306 1573 0001:0010A308 1574 0001:0010A30A + 1575 0001:0010A30C 1576 0001:0010A311 1577 0001:0010A313 1578 0001:0010A316 + 1579 0001:0010A318 1580 0001:0010A31D 1581 0001:0010A31F 1582 0001:0010A320 + 1583 0001:0010A322 1584 0001:0010A326 1585 0001:0010A328 1586 0001:0010A32B + 1587 0001:0010A32E 1588 0001:0010A32F 1589 0001:0010A331 1590 0001:0010A334 + 1591 0001:0010A337 1592 0001:0010A33A 1593 0001:0010A33B 1596 0001:0010A34B + 1599 0001:0010A35F 1611 0001:0010A368 1612 0001:0010A374 1721 0001:0010A378 + 1722 0001:0010A384 1723 0001:0010A388 1724 0001:0010A395 1725 0001:0010A3BC + 1726 0001:0010A3C2 1727 0001:0010A3D3 1732 0001:0010A3D8 1733 0001:0010A3E4 + 1734 0001:0010A402 1735 0001:0010A41E 1737 0001:0010A434 1738 0001:0010A43D + 1739 0001:0010A45A 1740 0001:0010A45C 1734 0001:0010A45F 1741 0001:0010A464 + 1746 0001:0010A468 1747 0001:0010A477 1748 0001:0010A47F 1749 0001:0010A48D + 1750 0001:0010A4A5 1751 0001:0010A4B6 1752 0001:0010A4C8 1753 0001:0010A4D6 + 1755 0001:0010A4F7 1758 0001:0010A51D 1760 0001:0010A52A 1763 0001:0010A534 + 1764 0001:0010A543 1765 0001:0010A56B 1770 0001:0010A5CC 1771 0001:0010A5D5 + 1773 0001:0010A5DE 1774 0001:0010A5F4 1782 0001:0010A5FC 1783 0001:0010A60B + 1784 0001:0010A619 1821 0001:0010A620 1822 0001:0010A62F 1823 0001:0010A635 + 1824 0001:0010A63B 1825 0001:0010A649 1830 0001:0010A650 1831 0001:0010A65F + 1832 0001:0010A665 1833 0001:0010A66B 1834 0001:0010A679 1849 0001:0010A680 + 1850 0001:0010A6A2 1851 0001:0010A6B0 1852 0001:0010A6BB 1854 0001:0010A6C7 + 1855 0001:0010A6DB 1857 0001:0010A6EA 1858 0001:0010A6F9 1859 0001:0010A702 + 1860 0001:0010A709 1863 0001:0010A757 1868 0001:0010A75C 1869 0001:0010A76C + 1870 0001:0010A772 1871 0001:0010A779 1872 0001:0010A781 1873 0001:0010A787 + 1874 0001:0010A795 1935 0001:0010A79C 1936 0001:0010A7AB 1937 0001:0010A7B9 + 1943 0001:0010A7C0 1944 0001:0010A7E2 1945 0001:0010A7ED 1947 0001:0010A7F7 + 1948 0001:0010A805 1950 0001:0010A82F 1952 0001:0010A83B 1953 0001:0010A847 + 1954 0001:0010A868 1955 0001:0010A874 1957 0001:0010A8A2 1964 0001:0010A8AC + 1965 0001:0010A8CF 1966 0001:0010A8DF 1967 0001:0010A8E9 1968 0001:0010A8F7 + 1969 0001:0010A913 1971 0001:0010A92A 1972 0001:0010A93E 1973 0001:0010A949 + 1974 0001:0010A954 1975 0001:0010A962 1968 0001:0010A965 1977 0001:0010A977 + 1979 0001:0010A9A6 2012 0001:0010A9AC 2013 0001:0010A9D7 2014 0001:0010A9DF + 2015 0001:0010A9E5 2016 0001:0010A9ED 2017 0001:0010A9F4 2018 0001:0010A9FB + 2019 0001:0010AA04 2020 0001:0010AA0D 2021 0001:0010AA14 2023 0001:0010AA43 + 2024 0001:0010AA77 2052 0001:0010AA7C 2053 0001:0010AA8B 2054 0001:0010AA91 + 2055 0001:0010AA9C 2056 0001:0010AAAA 2058 0001:0010AAC5 2060 0001:0010AAD6 + 2065 0001:0010AADC 2066 0001:0010AAE8 2067 0001:0010AAF3 2068 0001:0010AAF9 + 2070 0001:0010AAFF 2072 0001:0010AB19 2073 0001:0010AB30 2075 0001:0010AB3E + 2076 0001:0010AB57 2079 0001:0010AB5C 2080 0001:0010AB85 2081 0001:0010ABBB + 2086 0001:0010ABC0 2087 0001:0010ABCF 2088 0001:0010ABD5 2089 0001:0010ABE1 + 2091 0001:0010ABEE 2092 0001:0010ABF3 2093 0001:0010AC01 2165 0001:0010AC08 + 2166 0001:0010AC1A 2167 0001:0010AC22 2168 0001:0010AC30 2170 0001:0010AC68 + 2172 0001:0010AC79 2174 0001:0010AC8A 2176 0001:0010AC97 2177 0001:0010ACA6 + 2178 0001:0010ACB1 2179 0001:0010ACC0 2180 0001:0010ACDD 2182 0001:0010ACF8 + 2183 0001:0010AD05 2186 0001:0010AD17 2188 0001:0010AD24 2189 0001:0010AD2F + 2190 0001:0010AD3E 2191 0001:0010AD4B 2194 0001:0010AD5B 2196 0001:0010AD68 + 2197 0001:0010AD79 2198 0001:0010AD8A 2199 0001:0010AD96 2200 0001:0010ADAB + 2201 0001:0010ADB9 2202 0001:0010ADC4 2204 0001:0010ADD4 2206 0001:0010ADF0 + 2208 0001:0010AE08 2213 0001:0010AE31 2215 0001:0010AE45 2220 0001:0010AE4C + 2221 0001:0010AE58 2225 0001:0010AE7A 2226 0001:0010AE85 2227 0001:0010AE92 + 2228 0001:0010AE9B 2229 0001:0010AEA4 2230 0001:0010AEAC 2231 0001:0010AEB3 + 2232 0001:0010AEBA 2234 0001:0010AED1 2235 0001:0010AEDB 2238 0001:0010AEE0 + 2240 0001:0010AEF1 2242 0001:0010AF06 2243 0001:0010AF1A 2246 0001:0010AF30 + 2247 0001:0010AF45 2249 0001:0010AF59 2250 0001:0010AF64 2256 0001:0010AF68 + 2257 0001:0010AF77 2258 0001:0010AF85 2259 0001:0010AF93 2260 0001:0010AFA1 + 2261 0001:0010AFAF 2262 0001:0010AFC1 2263 0001:0010AFCF 2265 0001:0010AFF8 + 2268 0001:0010B01C 2271 0001:0010B04D 2272 0001:0010B050 2273 0001:0010B062 + 2275 0001:0010B06C 2278 0001:0010B074 2279 0001:0010B080 2280 0001:0010B08C + 2281 0001:0010B099 2282 0001:0010B0A4 2288 0001:0010B0A8 2289 0001:0010B0B4 + 2291 0001:0010B0C0 2292 0001:0010B0C9 2294 0001:0010B0E4 2296 0001:0010B108 + 2298 0001:0010B125 2299 0001:0010B130 2305 0001:0010B134 2306 0001:0010B140 + 2307 0001:0010B14B 2308 0001:0010B150 2309 0001:0010B168 2311 0001:0010B17A + 2312 0001:0010B190 2314 0001:0010B1A8 2317 0001:0010B1AC 2318 0001:0010B1B8 + 2319 0001:0010B1C3 2322 0001:0010B1EA 2323 0001:0010B1F4 2324 0001:0010B202 + 2326 0001:0010B222 2329 0001:0010B234 2332 0001:0010B238 2333 0001:0010B244 + 2334 0001:0010B24F 2337 0001:0010B276 2338 0001:0010B280 2339 0001:0010B28E + 2341 0001:0010B2B4 2344 0001:0010B2C6 2347 0001:0010B2CC 2348 0001:0010B2EB + 2349 0001:0010B2F6 2352 0001:0010B329 2353 0001:0010B333 2354 0001:0010B341 + 2355 0001:0010B350 2356 0001:0010B366 2357 0001:0010B375 2359 0001:0010B3A0 + 2362 0001:0010B3CF 2369 0001:0010B3D4 2370 0001:0010B3E1 2372 0001:0010B3F5 + 2373 0001:0010B3FC 2375 0001:0010B41A 2376 0001:0010B429 2377 0001:0010B434 + 2378 0001:0010B43B 2379 0001:0010B444 2380 0001:0010B44D 2382 0001:0010B467 + 2383 0001:0010B47A 2384 0001:0010B484 2388 0001:0010B486 2389 0001:0010B491 + 2394 0001:0010B498 2395 0001:0010B4A4 2396 0001:0010B4AF 2397 0001:0010B4C3 + 2399 0001:0010B4FD 2404 0001:0010B504 2405 0001:0010B510 2406 0001:0010B51B + 2408 0001:0010B52F 2409 0001:0010B54A 2411 0001:0010B569 2416 0001:0010B570 + 2417 0001:0010B574 2418 0001:0010B597 2421 0001:0010B59C 2422 0001:0010B5A0 + 2423 0001:0010B5A9 2424 0001:0010B5B8 2427 0001:0010B5C0 2428 0001:0010B5C4 + 2429 0001:0010B5CD 2430 0001:0010B5DC 2435 0001:0010B5E4 2436 0001:0010B5E8 + 2437 0001:0010B5F0 2441 0001:0010B5F8 2442 0001:0010B607 2443 0001:0010B611 + 2446 0001:0010B618 2447 0001:0010B627 2448 0001:0010B631 2451 0001:0010B638 + 2452 0001:0010B63C 2453 0001:0010B644 2454 0001:0010B64C 2457 0001:0010B654 + 2458 0001:0010B658 2459 0001:0010B660 2465 0001:0010B668 2466 0001:0010B66F + 2467 0001:0010B687 2468 0001:0010B691 2469 0001:0010B6AD 2470 0001:0010B6C9 + 2472 0001:0010B6E1 2473 0001:0010B6EE 2475 0001:0010B6FB 2476 0001:0010B71D + 2481 0001:0010B724 2482 0001:0010B728 2483 0001:0010B732 2486 0001:0010B738 + 2487 0001:0010B73C 2488 0001:0010B746 2491 0001:0010B74C 2492 0001:0010B75B + 2493 0001:0010B765 2497 0001:0010B76C 2498 0001:0010B772 2500 0001:0010B778 + 2501 0001:0010B79F 2504 0001:0010B7CA 2505 0001:0010B7EB 2507 0001:0010B80E + 2508 0001:0010B816 2512 0001:0010B820 2513 0001:0010B824 2514 0001:0010B82E + 2517 0001:0010B834 2518 0001:0010B838 2519 0001:0010B842 2522 0001:0010B848 + 2523 0001:0010B84C 2524 0001:0010B856 2529 0001:0010B85C 2530 0001:0010B860 + 2531 0001:0010B868 2536 0001:0010B870 2537 0001:0010B874 2538 0001:0010B879 + 2539 0001:0010B886 2540 0001:0010B898 2543 0001:0010B8A0 2544 0001:0010B8A4 + 2545 0001:0010B8AC 2548 0001:0010B8B4 2549 0001:0010B8B8 2550 0001:0010B8D9 + 2551 0001:0010B8FA 2552 0001:0010B902 2555 0001:0010B928 2556 0001:0010B92C + 2557 0001:0010B936 2558 0001:0010B93E 2563 0001:0010B944 2564 0001:0010B962 + 2565 0001:0010B977 2566 0001:0010B97F 2567 0001:0010B996 2570 0001:0010B9AD + 2571 0001:0010B9B5 2572 0001:0010B9C3 2573 0001:0010B9CB 2575 0001:0010B9D3 + 2576 0001:0010B9DB 2579 0001:0010B9E4 2580 0001:0010B9E8 2581 0001:0010B9F2 + 2584 0001:0010B9F8 2585 0001:0010B9FC 2586 0001:0010BA0B 2587 0001:0010BA15 + 2588 0001:0010BA1D 2591 0001:0010BA24 2592 0001:0010BA28 2593 0001:0010BA35 + 2594 0001:0010BA42 2595 0001:0010BA4A 2598 0001:0010BA50 2599 0001:0010BA54 + 2600 0001:0010BA5E 2603 0001:0010BA64 2604 0001:0010BA68 2605 0001:0010BA77 + 2606 0001:0010BA7F 2609 0001:0010BA84 2610 0001:0010BA8A 2611 0001:0010BAB8 + 2612 0001:0010BAC0 2617 0001:0010BAC8 2618 0001:0010BACC 2619 0001:0010BAD6 + 2622 0001:0010BADC 2623 0001:0010BAE0 2624 0001:0010BAEA 2627 0001:0010BAF0 + 2628 0001:0010BAF4 2629 0001:0010BAFE 2633 0001:0010BB04 2634 0001:0010BB08 + 2635 0001:0010BB10 2640 0001:0010BB18 2641 0001:0010BB1C 2642 0001:0010BB29 + 2643 0001:0010BB31 2649 0001:0010BB38 2650 0001:0010BB3E 2651 0001:0010BB49 + 2652 0001:0010BB4F 2653 0001:0010BB78 2654 0001:0010BB80 2660 0001:0010BB88 + 2661 0001:0010BB8E 2662 0001:0010BB99 2663 0001:0010BB9E 2665 0001:0010BBA4 + 2666 0001:0010BBAF 2669 0001:0010BBCD 2672 0001:0010BBD4 2674 0001:0010BBDA + 2673 0001:0010BBEA 2675 0001:0010BBF7 2676 0001:0010BBFF 2679 0001:0010BC04 + 2680 0001:0010BC08 2681 0001:0010BC10 2684 0001:0010BC18 2685 0001:0010BC1C + 2686 0001:0010BC24 2690 0001:0010BC2C 2691 0001:0010BC30 2692 0001:0010BC3A + 2697 0001:0010BC40 2698 0001:0010BC44 2699 0001:0010BC4B 2700 0001:0010BC53 + 2704 0001:0010BC58 2705 0001:0010BC5C 2706 0001:0010BC63 2707 0001:0010BC6D + 2711 0001:0010BC74 2712 0001:0010BC78 2713 0001:0010BC82 2720 0001:0010BC88 + 2721 0001:0010BCA5 2723 0001:0010BCB9 2724 0001:0010BCBE 2726 0001:0010BD12 + 2728 0001:0010BD27 2731 0001:0010BD45 2732 0001:0010BD57 2734 0001:0010BD65 + 2735 0001:0010BD6E 2738 0001:0010BD89 2740 0001:0010BDA1 2742 0001:0010BDB4 + 2744 0001:0010BDC0 2746 0001:0010BDD7 2748 0001:0010BDEB 2750 0001:0010BDF7 + 2752 0001:0010BE03 2754 0001:0010BE0F 2756 0001:0010BE1B 2759 0001:0010BE24 + 2760 0001:0010BE56 2765 0001:0010BE5C 2766 0001:0010BE77 2767 0001:0010BE85 + 2769 0001:0010BEA6 2771 0001:0010BEB6 2772 0001:0010BEC0 2773 0001:0010BECE + 2775 0001:0010BEF2 2779 0001:0010BF04 2781 0001:0010BF14 2782 0001:0010BF1E + 2783 0001:0010BF2C 2785 0001:0010BF55 2789 0001:0010BF67 2791 0001:0010BF77 + 2792 0001:0010BF81 2793 0001:0010BF8F 2795 0001:0010BFBA 2799 0001:0010BFCC + 2801 0001:0010BFD8 2802 0001:0010BFE2 2803 0001:0010BFF0 2805 0001:0010C017 + 2812 0001:0010C049 2813 0001:0010C06E 2816 0001:0010C078 2817 0001:0010C07C + 2818 0001:0010C084 2824 0001:0010C08C 2825 0001:0010C090 2826 0001:0010C098 + 2830 0001:0010C0A0 2831 0001:0010C0A4 2832 0001:0010C0AC 2834 0001:0010C0F0 + 2835 0001:0010C10A 2836 0001:0010C11A 2837 0001:0010C13F + +Line numbers for VERGENCECONTEXTORLib_TLB(VERGENCECONTEXTORLib_TLB.pas) segment .text + + 1116 0001:0010C564 1117 0001:0010C56F 1118 0001:0010C57D 1123 0001:0010C580 + 1124 0001:0010C598 1125 0001:0010C5EE 1127 0001:0010C604 1128 0001:0010C60B + 1129 0001:0010C61E 1132 0001:0010C624 1133 0001:0010C62A 1134 0001:0010C631 + 1135 0001:0010C63E 1138 0001:0010C644 1139 0001:0010C65D 1140 0001:0010C69A + 1144 0001:0010C6A0 1145 0001:0010C6BC 1146 0001:0010C6FC 1149 0001:0010C704 + 1150 0001:0010C71A 1151 0001:0010C74F 1154 0001:0010C754 1155 0001:0010C76A + 1156 0001:0010C79F 1164 0001:0010C7A4 1165 0001:0010C7BA 1166 0001:0010C7EF + 1170 0001:0010C7F4 1171 0001:0010C816 1172 0001:0010C856 1175 0001:0010C860 + 1176 0001:0010C879 1177 0001:0010C8AF 1180 0001:0010C8B4 1181 0001:0010C8CA + 1182 0001:0010C903 1312 0001:0010C918 1313 0001:0010C92E 1314 0001:0010C967 + 1749 0001:0010C9AC 1749 0001:0010C9B3 + +Line numbers for MFunStr(MFunStr.pas) segment .text + + 33 0001:0010C9C0 34 0001:0010CA03 35 0001:0010CA0B 36 0001:0010CA1E + 37 0001:0010CA31 38 0001:0010CA3E 39 0001:0010CA42 41 0001:0010CA62 + 42 0001:0010CA80 35 0001:0010CA81 43 0001:0010CA84 44 0001:0010CAB1 + 54 0001:0010CABC 56 0001:0010CAFA 57 0001:0010CAFF 59 0001:0010CB0A + 60 0001:0010CB0E 61 0001:0010CB11 63 0001:0010CB19 64 0001:0010CB26 + 65 0001:0010CB41 67 0001:0010CB50 68 0001:0010CB5B 69 0001:0010CB66 + 71 0001:0010CB6A 72 0001:0010CB89 76 0001:0010CBAD 77 0001:0010CBB8 + 81 0001:0010CBC2 83 0001:0010CBE6 84 0001:0010CBEC 85 0001:0010CBF4 + 86 0001:0010CBF5 87 0001:0010CBFD 88 0001:0010CC37 89 0001:0010CC7C + 89 0001:0010CC83 + +Line numbers for Hash(Hash.pas) segment .text + + 55 0001:0010D4A4 56 0001:0010D4CB 57 0001:0010D4D0 59 0001:0010D4DC + 60 0001:0010D4E8 62 0001:0010D4EC 66 0001:0010D553 81 0001:0010D5A4 + 81 0001:0010D5AB + +Line numbers for Xwbut1(XWBut1.pas) segment .text + + 175 0001:0010D5AC 176 0001:0010D5DD 177 0001:0010D619 205 0001:0010D624 + 206 0001:0010D655 207 0001:0010D65C 208 0001:0010D66B 209 0001:0010D679 + 210 0001:0010D683 212 0001:0010D692 213 0001:0010D69F 216 0001:0010D6B4 + 218 0001:0010D6E6 225 0001:0010D6F0 226 0001:0010D725 227 0001:0010D734 + 228 0001:0010D742 229 0001:0010D74C 231 0001:0010D75D 232 0001:0010D76B + 235 0001:0010D780 237 0001:0010D7BA 243 0001:0010D7C4 244 0001:0010D7F1 + 245 0001:0010D800 246 0001:0010D80E 247 0001:0010D818 249 0001:0010D829 + 250 0001:0010D834 253 0001:0010D849 255 0001:0010D87B 261 0001:0010D880 + 262 0001:0010D8B9 263 0001:0010D8C7 265 0001:0010D8CC 266 0001:0010D8DD + 268 0001:0010D911 301 0001:0010D91C 302 0001:0010D941 303 0001:0010D948 + 304 0001:0010D957 305 0001:0010D966 306 0001:0010D974 307 0001:0010D97E + 309 0001:0010D98D 310 0001:0010D998 313 0001:0010D9AF 314 0001:0010D9B7 + 316 0001:0010D9E4 318 0001:0010DA1C 318 0001:0010DA23 + +Line numbers for WinSock(WinSock.pas) segment .text + + 1055 0001:0010DA24 1056 0001:0010DA2D 1057 0001:0010DA3D 1109 0001:0010DA44 + 1110 0001:0010DA4C 1111 0001:0010DA54 1112 0001:0010DA5C 1114 0001:0010DA64 + 1117 0001:0010DA6C 1118 0001:0010DA74 1119 0001:0010DA7C 1121 0001:0010DA84 + 1123 0001:0010DA8C 1124 0001:0010DA94 1127 0001:0010DA9C 1129 0001:0010DAA4 + 1131 0001:0010DAAC 1133 0001:0010DAB4 1134 0001:0010DABC 1139 0001:0010DAC4 + 1144 0001:0010DACC 1150 0001:0010DAD4 1151 0001:0010DADC 1152 0001:0010DAE4 + 1154 0001:0010DAEC 1155 0001:0010DAF4 1156 0001:0010DAFC 1157 0001:0010DB04 + 1164 0001:0010DB3C 1164 0001:0010DB43 + +Line numbers for fDebugInfo(fDebugInfo.pas) segment .text + + 35 0001:0010DD20 35 0001:0010DD27 + +Line numbers for Rpcberr(RpcbErr.pas) segment .text + + 186 0001:0010DD58 186 0001:0010DD5F + +Line numbers for Wsockc(wsockc.pas) segment .text + + 234 0001:0010DDE4 235 0001:0010DE18 237 0001:0010DE22 238 0001:0010DE2C + 239 0001:0010DE36 241 0001:0010DE3A 242 0001:0010DE81 244 0001:0010DE88 + 245 0001:0010DEA2 246 0001:0010DEFD 259 0001:0010DFB8 260 0001:0010DFDE + 262 0001:0010DFE8 264 0001:0010DFF0 265 0001:0010E025 268 0001:0010E02C + 269 0001:0010E065 376 0001:0010E0F0 377 0001:0010E12E 378 0001:0010E14A + 379 0001:0010E15D 380 0001:0010E1BE 388 0001:0010E1D4 389 0001:0010E1FC + 390 0001:0010E20B 391 0001:0010E212 392 0001:0010E219 393 0001:0010E222 + 394 0001:0010E22F 395 0001:0010E23D 397 0001:0010E273 399 0001:0010E275 + 401 0001:0010E27E 403 0001:0010E297 406 0001:0010E2CA 407 0001:0010E2DD + 410 0001:0010E2E6 414 0001:0010E2F2 416 0001:0010E309 417 0001:0010E314 + 418 0001:0010E336 421 0001:0010E4A0 422 0001:0010E4AA 423 0001:0010E4B1 + 424 0001:0010E4BA 425 0001:0010E4C8 428 0001:0010E4EB 429 0001:0010E4F6 + 433 0001:0010E506 439 0001:0010E50C 440 0001:0010E54E 441 0001:0010E57B + 442 0001:0010E5BD 454 0001:0010E5D0 455 0001:0010E60A 456 0001:0010E617 + 457 0001:0010E621 458 0001:0010E62C 460 0001:0010E63B 463 0001:0010E64F + 465 0001:0010E689 466 0001:0010E699 467 0001:0010E6A8 468 0001:0010E6B8 + 470 0001:0010E6C7 471 0001:0010E6D4 472 0001:0010E6FF 474 0001:0010E706 + 479 0001:0010E712 480 0001:0010E718 482 0001:0010E743 483 0001:0010E749 + 485 0001:0010E774 486 0001:0010E77A 488 0001:0010E787 490 0001:0010E796 + 491 0001:0010E79A 493 0001:0010E7A9 494 0001:0010E7B6 495 0001:0010E7BA + 498 0001:0010E7CA 499 0001:0010E7D0 500 0001:0010E7DD 501 0001:0010E7F1 + 502 0001:0010E801 503 0001:0010E841 504 0001:0010E845 496 0001:0010E864 + 506 0001:0010E86E 507 0001:0010E874 508 0001:0010E88C 510 0001:0010E899 + 512 0001:0010E89F 516 0001:0010E8CA 458 0001:0010E8CB 517 0001:0010E8D4 + 518 0001:0010E8E3 520 0001:0010E8F0 524 0001:0010E944 525 0001:0010E98E + 615 0001:0010EABC 617 0001:0010EAF3 618 0001:0010EAFD 619 0001:0010EB0D + 620 0001:0010EB1A 621 0001:0010EB27 622 0001:0010EB72 623 0001:0010EB7A + 624 0001:0010EB9E 625 0001:0010EBA9 626 0001:0010EBE6 631 0001:0010EBF0 + 632 0001:0010EC18 633 0001:0010EC1E 634 0001:0010EC2B 635 0001:0010EC35 + 636 0001:0010EC3F 637 0001:0010EC9E 647 0001:0010ECB4 648 0001:0010ECB8 + 649 0001:0010ECC1 651 0001:0010ECD5 652 0001:0010ECE4 653 0001:0010ECE6 + 654 0001:0010ECEF 655 0001:0010ED0B 666 0001:0010ED1C 669 0001:0010ED5B + 670 0001:0010ED68 671 0001:0010ED6E 672 0001:0010ED75 673 0001:0010ED7F + 674 0001:0010ED86 675 0001:0010ED93 676 0001:0010ED9F 677 0001:0010EDB5 + 679 0001:0010EDBB 678 0001:0010EDD1 681 0001:0010EDDB 682 0001:0010EDE3 + 684 0001:0010EDEA 688 0001:0010EDF0 689 0001:0010EDF5 698 0001:0010EDF9 + 699 0001:0010EE0A 701 0001:0010EE1C 702 0001:0010EE2C 703 0001:0010EE39 + 707 0001:0010EE46 708 0001:0010EE4D 709 0001:0010EE59 710 0001:0010EE5C + 713 0001:0010EE60 714 0001:0010EE80 715 0001:0010EE83 722 0001:0010EE92 + 723 0001:0010EE98 724 0001:0010EEA6 725 0001:0010EEA9 726 0001:0010EEB0 + 729 0001:0010EEB2 730 0001:0010EECE 731 0001:0010EEEA 735 0001:0010EEF2 + 737 0001:0010EF04 738 0001:0010EF08 740 0001:0010EF0F 744 0001:0010EF26 + 745 0001:0010EF2A 747 0001:0010EF3F 750 0001:0010EF41 752 0001:0010EF45 + 753 0001:0010EF48 755 0001:0010EF59 756 0001:0010EF68 758 0001:0010EF6A + 759 0001:0010EF71 760 0001:0010EF85 761 0001:0010EF8D 762 0001:0010EF98 + 763 0001:0010EFAA 764 0001:0010EFB0 765 0001:0010EFC2 766 0001:0010EFC6 + 768 0001:0010EFDA 705 0001:0010EFEA 772 0001:0010EFFA 774 0001:0010F000 + 775 0001:0010F008 776 0001:0010F025 781 0001:0010F032 783 0001:0010F03A + 784 0001:0010F046 785 0001:0010F04E 787 0001:0010F05E 789 0001:0010F0A0 + 796 0001:0010F12C 797 0001:0010F160 798 0001:0010F168 799 0001:0010F185 + 801 0001:0010F189 802 0001:0010F18B 803 0001:0010F18F 805 0001:0010F19F + 806 0001:0010F1B0 808 0001:0010F1CB 811 0001:0010F1E4 812 0001:0010F1F3 + 813 0001:0010F200 814 0001:0010F20D 815 0001:0010F211 816 0001:0010F24B + 833 0001:0010F278 839 0001:0010F2B0 840 0001:0010F2BE 842 0001:0010F2C4 + 843 0001:0010F2C8 844 0001:0010F2CE 845 0001:0010F2DE 846 0001:0010F2EB + 847 0001:0010F2F8 849 0001:0010F305 850 0001:0010F31B 851 0001:0010F31F + 855 0001:0010F32D 856 0001:0010F334 857 0001:0010F348 860 0001:0010F356 + 861 0001:0010F36C 862 0001:0010F370 863 0001:0010F37E 864 0001:0010F38C + 865 0001:0010F390 866 0001:0010F39E 867 0001:0010F3AB 868 0001:0010F3C0 + 871 0001:0010F3CA 873 0001:0010F3DD 874 0001:0010F3E9 877 0001:0010F3FB + 879 0001:0010F401 885 0001:0010F405 886 0001:0010F411 890 0001:0010F420 + 891 0001:0010F42D 893 0001:0010F442 894 0001:0010F44B 897 0001:0010F45C + 898 0001:0010F469 899 0001:0010F46E 901 0001:0010F47C 902 0001:0010F492 + 903 0001:0010F495 904 0001:0010F4A3 953 0001:0010F4AD 977 0001:0010F556 + 978 0001:0010F57C 979 0001:0010F586 980 0001:0010F58D 982 0001:0010F59C + 983 0001:0010F5A2 985 0001:0010F5A8 987 0001:0010F5C5 988 0001:0010F5C8 + 990 0001:0010F5D6 991 0001:0010F5DE 992 0001:0010F5E3 993 0001:0010F5E8 + 995 0001:0010F5EA 996 0001:0010F5F5 997 0001:0010F5F9 1034 0001:0010F60A + 1035 0001:0010F610 1036 0001:0010F61E 1039 0001:0010F654 1055 0001:0010F7C8 + 1056 0001:0010F7FD 1062 0001:0010F80C 1063 0001:0010F81A 1065 0001:0010F820 + 1066 0001:0010F824 1067 0001:0010F82A 1068 0001:0010F83A 1069 0001:0010F847 + 1070 0001:0010F854 1072 0001:0010F861 1073 0001:0010F87A 1074 0001:0010F87E + 1078 0001:0010F88D 1079 0001:0010F894 1080 0001:0010F8A8 1083 0001:0010F8B7 + 1084 0001:0010F8D0 1085 0001:0010F8D4 1086 0001:0010F8E3 1087 0001:0010F8F1 + 1088 0001:0010F8F5 1089 0001:0010F904 1090 0001:0010F911 1091 0001:0010F926 + 1094 0001:0010F930 1096 0001:0010F943 1097 0001:0010F94F 1100 0001:0010F961 + 1102 0001:0010F967 1108 0001:0010F96B 1109 0001:0010F977 1113 0001:0010F986 + 1114 0001:0010F993 1116 0001:0010F9A8 1117 0001:0010F9B1 1120 0001:0010F9C2 + 1121 0001:0010F9D2 1122 0001:0010F9DA 1124 0001:0010F9E9 1125 0001:0010FA05 + 1126 0001:0010FA08 1129 0001:0010FA17 1130 0001:0010FA1E 1131 0001:0010FA3C + 1132 0001:0010FA3F 1133 0001:0010FA4E 1136 0001:0010FA63 1137 0001:0010FA71 + 1138 0001:0010FA77 1140 0001:0010FA86 1141 0001:0010FA8F 1142 0001:0010FA98 + 1144 0001:0010FAB2 1145 0001:0010FAB5 1147 0001:0010FAC4 1148 0001:0010FACB + 1150 0001:0010FAE7 1151 0001:0010FAEA 1152 0001:0010FAF9 1154 0001:0010FB09 + 1155 0001:0010FB1C 1156 0001:0010FB1F 1160 0001:0010FB2E 1161 0001:0010FB3E + 1162 0001:0010FB4B 1163 0001:0010FB61 1164 0001:0010FB6B 1165 0001:0010FB87 + 1166 0001:0010FB9E 1167 0001:0010FBBE 1168 0001:0010FBE1 1169 0001:0010FC11 + 1177 0001:0010FC22 1179 0001:0010FC2C 1180 0001:0010FC32 1181 0001:0010FC40 + 1184 0001:0010FC77 1185 0001:0010FC95 1186 0001:0010FCA3 1187 0001:0010FCB8 + 1188 0001:0010FCC4 1190 0001:0010FCE0 1197 0001:0010FCF4 1198 0001:0010FD1E + 1199 0001:0010FD28 1200 0001:0010FD2F 1202 0001:0010FD3E 1203 0001:0010FD44 + 1205 0001:0010FD4A 1207 0001:0010FD6D 1208 0001:0010FD70 1210 0001:0010FD7F + 1211 0001:0010FD8A 1212 0001:0010FD8F 1213 0001:0010FD94 1215 0001:0010FD99 + 1216 0001:0010FDA6 1217 0001:0010FDAA 1219 0001:0010FDBC 1220 0001:0010FDC2 + 1222 0001:0010FDC8 1224 0001:0010FDEB 1225 0001:0010FDEE 1226 0001:0010FDFD + 1227 0001:0010FE10 1228 0001:0010FE14 1231 0001:0010FE23 1232 0001:0010FE2A + 1233 0001:0010FE43 1235 0001:0010FE4B 1238 0001:0010FE5A 1239 0001:0010FE60 + 1241 0001:0010FE66 1243 0001:0010FE87 1244 0001:0010FE8A 1246 0001:0010FE99 + 1248 0001:0010FEAA 1250 0001:0010FEAE 1254 0001:0010FEBD 1255 0001:0010FEC3 + 1256 0001:0010FED1 1259 0001:0010FF07 1271 0001:00110128 1272 0001:00110157 + 1273 0001:00110161 1274 0001:0011016F 1276 0001:00110173 1277 0001:00110175 + 1278 0001:00110179 1279 0001:00110189 1281 0001:0011018D 1282 0001:00110195 + 1283 0001:001101A3 1286 0001:001101A8 1289 0001:001101DB 1290 0001:001101EC + 1292 0001:0011022D 1293 0001:0011024E 1295 0001:00110253 1297 0001:00110262 + 1298 0001:0011026D 1299 0001:00110275 1300 0001:0011027B 1302 0001:00110281 + 1304 0001:0011029A 1305 0001:001102A0 1307 0001:001102AE 1310 0001:001102B7 + 1311 0001:001102BF 1312 0001:001102C9 1313 0001:001102CD 1314 0001:001102DB + 1315 0001:001102DF 1316 0001:001102ED 1317 0001:00110323 1343 0001:001103BC + 1344 0001:001103CC 1345 0001:001103D8 1346 0001:001103DB 1347 0001:001103EA + 1349 0001:001103EF 1350 0001:001103F6 1352 0001:00110403 1353 0001:00110406 + 1354 0001:00110415 1355 0001:00110419 1356 0001:00110423 1357 0001:00110426 + 1358 0001:00110432 1359 0001:00110437 1360 0001:00110446 1361 0001:0011044A + 1362 0001:00110455 1363 0001:0011045C 1364 0001:00110463 1367 0001:0011047C + 1368 0001:0011048E 1370 0001:00110497 1371 0001:001104B5 1379 0001:001104B8 + 1380 0001:001104E6 1381 0001:001104F4 1382 0001:001104F6 1383 0001:001104FC + 1389 0001:00110500 1391 0001:00110509 1393 0001:00110512 1394 0001:00110524 + 1395 0001:00110539 1398 0001:0011053E 1399 0001:00110542 1400 0001:00110549 + 1401 0001:0011055D 1403 0001:00110571 1404 0001:001107C6 1405 0001:001107D8 + 1406 0001:001107EA 1407 0001:001107FC 1408 0001:0011080E 1409 0001:00110820 + 1410 0001:00110832 1411 0001:00110844 1412 0001:00110856 1413 0001:00110868 + 1414 0001:0011087A 1415 0001:0011088C 1416 0001:0011089E 1417 0001:001108B0 + 1418 0001:001108C2 1419 0001:001108D4 1420 0001:001108E6 1421 0001:001108F8 + 1422 0001:0011090A 1423 0001:0011091C 1424 0001:0011092E 1425 0001:00110940 + 1426 0001:00110952 1427 0001:00110964 1428 0001:00110976 1429 0001:00110988 + 1430 0001:0011099A 1431 0001:001109AC 1432 0001:001109BE 1433 0001:001109D0 + 1434 0001:001109E2 1435 0001:001109F4 1436 0001:00110A06 1437 0001:00110A18 + 1438 0001:00110A2A 1439 0001:00110A3C 1440 0001:00110A4E 1441 0001:00110A60 + 1442 0001:00110A72 1443 0001:00110A84 1444 0001:00110A96 1445 0001:00110AA8 + 1446 0001:00110ABA 1447 0001:00110ACC 1448 0001:00110ADE 1449 0001:00110AF0 + 1450 0001:00110B02 1451 0001:00110B14 1452 0001:00110B26 1454 0001:00110B38 + 1455 0001:00110B4A 1456 0001:00110B5C 1457 0001:00110B6E 1458 0001:00110B80 + 1459 0001:00110B92 1460 0001:00110BA4 1461 0001:00110BB6 1463 0001:00110BC8 + 1464 0001:00110BD7 1465 0001:00110BE6 1466 0001:00110BF5 1468 0001:00110C04 + 1469 0001:00110C13 1470 0001:00110C22 1471 0001:00110C31 1472 0001:00110C40 + 1474 0001:00110C4A 1475 0001:00110C71 1476 0001:00110C82 1477 0001:00110C8D + 1478 0001:00110C90 1479 0001:00110C9B 1480 0001:00110CC4 1493 0001:0011151C + 1494 0001:00111556 1495 0001:00111565 1496 0001:0011156D 1497 0001:00111575 + 1498 0001:0011157D 1499 0001:0011157F 1500 0001:00111589 1501 0001:00111594 + 1502 0001:001115A7 1503 0001:001115BC 1508 0001:001115C9 1509 0001:001115CF + 1511 0001:001115FE 1512 0001:00111604 1514 0001:00111633 1515 0001:0011163D + 1516 0001:0011164A 1517 0001:00111679 1518 0001:0011168A 1520 0001:001116A5 + 1522 0001:001116B5 1523 0001:001116D9 1524 0001:00111727 1521 0001:00111746 + 1526 0001:00111750 1527 0001:0011175D 1530 0001:00111762 1501 0001:00111765 + 1532 0001:0011176C 1533 0001:00111787 1535 0001:00111789 1536 0001:00111791 + 1538 0001:00111799 1539 0001:001117B0 1542 0001:001117E5 1543 0001:001117ED + 1545 0001:001117FB 1549 0001:00111807 1552 0001:00111813 1553 0001:00111822 + 1552 0001:0011183D 1554 0001:00111840 1556 0001:0011186E 1559 0001:0011187A + 1562 0001:001118A8 1563 0001:001118B3 1564 0001:001118D1 1565 0001:001118DC + 1566 0001:001118E7 1567 0001:001118F2 1569 0001:001118FD 1572 0001:00111909 + 1573 0001:00111918 1572 0001:00111934 1576 0001:00111937 1578 0001:0011193F + 1580 0001:0011198F 1582 0001:00111A44 1582 0001:00111A4B + +Line numbers for fRPCBErrMsg(fRPCBErrMsg.pas) segment .text + + 40 0001:00111BF4 41 0001:00111C11 42 0001:00111C2A 43 0001:00111C43 + 44 0001:00111C50 45 0001:00111C77 48 0001:00111C7C 49 0001:00111C7F + 50 0001:00111C98 51 0001:00111CB1 52 0001:00111CBE 53 0001:00111CC8 + 55 0001:00111CFC 55 0001:00111D03 + +Line numbers for CCOW_const(CCOW_const.pas) segment .text + + 23 0001:00111D34 23 0001:00111D3B + +Line numbers for SelDiv(SelDiv.pas) segment .text + + 73 0001:00111F58 74 0001:00111F88 76 0001:00111F8C 78 0001:00111F92 + 79 0001:00111FA4 80 0001:00111FAF 83 0001:00111FB3 84 0001:00111FC6 + 85 0001:00111FCE 88 0001:00111FEE 90 0001:00111FFB 92 0001:00112008 + 93 0001:00112019 94 0001:0011202C 95 0001:0011203A 96 0001:00112053 + 97 0001:0011205F 98 0001:0011206F 100 0001:00112086 104 0001:00112098 + 106 0001:001120A1 107 0001:001120A5 108 0001:001120D7 111 0001:00112124 + 116 0001:00112158 117 0001:00112178 120 0001:0011217C 122 0001:00112187 + 123 0001:0011219A 124 0001:001121A2 125 0001:001121C2 128 0001:001121D2 + 130 0001:001121DB 131 0001:001121DF 133 0001:001121E4 135 0001:001121F1 + 136 0001:00112202 137 0001:0011220E 138 0001:0011221C 139 0001:00112235 + 140 0001:00112241 141 0001:00112251 143 0001:00112268 146 0001:0011227A + 148 0001:00112283 149 0001:00112287 151 0001:001122B9 153 0001:001122DB + 154 0001:00112313 157 0001:00112364 158 0001:00112382 161 0001:00112386 + 162 0001:00112396 163 0001:0011239D 164 0001:001123BA 165 0001:001123C3 + 167 0001:001123C9 168 0001:001123D7 169 0001:001123E0 172 0001:00112404 + 178 0001:00112420 179 0001:00112449 181 0001:0011244B 182 0001:00112463 + 183 0001:00112474 184 0001:00112486 185 0001:0011248D 186 0001:001124B0 + 188 0001:001124E4 191 0001:00112528 192 0001:0011252B 193 0001:00112539 + 196 0001:0011254E 197 0001:00112556 200 0001:00112558 201 0001:0011256F + 202 0001:00112580 205 0001:0011258C 206 0001:001125B9 208 0001:001125DD + 212 0001:0011260C 213 0001:00112611 217 0001:00112614 220 0001:0011261E + 227 0001:001126E0 228 0001:001126FE 229 0001:00112706 230 0001:00112710 + 233 0001:0011271A 234 0001:00112729 236 0001:0011277C 237 0001:00112790 + 238 0001:001127C5 231 0001:001127C6 240 0001:001127D2 241 0001:001127DF + 242 0001:00112827 244 0001:00112890 244 0001:00112897 + +Line numbers for XWBRich20(XWBRich20.pas) segment .text + + 324 0001:00113758 325 0001:00113770 326 0001:00113779 327 0001:0011377C + 328 0001:00113799 331 0001:001137A0 332 0001:001137A3 333 0001:001137B1 + 334 0001:001137B7 361 0001:001137BC 362 0001:001137C2 363 0001:001137CB + 364 0001:001137D7 366 0001:001137F6 371 0001:001137FC 372 0001:00113803 + 373 0001:00113810 374 0001:00113812 375 0001:0011381E 376 0001:00113833 + 381 0001:00113838 382 0001:0011383B 383 0001:00113842 384 0001:00113846 + 389 0001:0011384C 390 0001:00113855 393 0001:0011385E 394 0001:00113866 + 396 0001:0011386A 397 0001:00113873 426 0001:0011387C 427 0001:0011387F + 429 0001:00113886 430 0001:0011388D 431 0001:00113894 432 0001:00113898 + 437 0001:0011389C 438 0001:001138A5 441 0001:001138AE 442 0001:001138B6 + 443 0001:001138BE 444 0001:001138C8 446 0001:001138D3 447 0001:001138DC + 452 0001:001138E4 453 0001:001138EA 454 0001:001138F1 455 0001:00113901 + 460 0001:00113908 461 0001:0011392A 464 0001:00113934 465 0001:0011393B + 467 0001:0011394B 468 0001:00113972 473 0001:00113978 474 0001:0011397D + 475 0001:00113983 478 0001:0011398A 479 0001:00113999 480 0001:001139A4 + 481 0001:001139AF 483 0001:001139BC 488 0001:001139C8 489 0001:001139D1 + 492 0001:001139DC 493 0001:001139E4 494 0001:001139EF 495 0001:001139FA + 496 0001:00113A05 499 0001:00113A10 500 0001:00113A1B 505 0001:00113A20 + 506 0001:00113A23 507 0001:00113A2A 508 0001:00113A36 513 0001:00113A3C + 514 0001:00113A45 517 0001:00113A4E 518 0001:00113A56 520 0001:00113A62 + 521 0001:00113A6B 536 0001:00113A74 537 0001:00113A77 538 0001:00113A7E + 539 0001:00113A90 540 0001:00113A94 541 0001:00113A98 543 0001:00113A9C + 545 0001:00113A9E 550 0001:00113AA4 551 0001:00113AAD 554 0001:00113AB6 + 555 0001:00113AC0 556 0001:00113AC7 558 0001:00113ACE 561 0001:00113AD3 + 562 0001:00113ADC 565 0001:00113AE4 566 0001:00113B00 568 0001:00113B11 + 569 0001:00113B1D 570 0001:00113B31 571 0001:00113B41 572 0001:00113B51 + 573 0001:00113B61 575 0001:00113B73 577 0001:00113B84 578 0001:00113B96 + 579 0001:00113BAA 580 0001:00113BBA 581 0001:00113BCA 583 0001:00113BDC + 584 0001:00113C07 587 0001:00113C10 588 0001:00113C2C 590 0001:00113C3D + 591 0001:00113C4F 592 0001:00113C63 593 0001:00113C73 594 0001:00113C83 + 595 0001:00113C93 597 0001:00113CA5 599 0001:00113CB6 600 0001:00113CC8 + 601 0001:00113CDC 602 0001:00113CEC 603 0001:00113CFC 605 0001:00113D0E + 606 0001:00113D39 611 0001:00113D40 612 0001:00113D55 613 0001:00113D5E + 614 0001:00113D78 617 0001:00113D7C 618 0001:00113D7F 619 0001:00113D8D + 620 0001:00113D93 623 0001:00113D98 624 0001:00113D9E 625 0001:00113DA7 + 626 0001:00113DB3 627 0001:00113DC9 630 0001:00113DCC 631 0001:00113DD3 + 632 0001:00113DDB 634 0001:00113DE7 635 0001:00113DF7 636 0001:00113E01 + 637 0001:00113E09 638 0001:00113E0F 639 0001:00113E15 641 0001:00113E2B + 646 0001:00113E30 647 0001:00113E36 648 0001:00113E3D 649 0001:00113E43 + 654 0001:00113E4C 655 0001:00113E58 658 0001:00113E61 659 0001:00113E69 + 661 0001:00113E73 662 0001:00113E7C 667 0001:00113E88 668 0001:00113E8E + 669 0001:00113E95 670 0001:00113E99 675 0001:00113EA0 676 0001:00113EAC + 677 0001:00113EB4 678 0001:00113ECE 680 0001:00113ED7 683 0001:00113EE0 + 684 0001:00113EE8 686 0001:00113EF1 687 0001:00113EFA 692 0001:00113F04 + 693 0001:00113F0A 694 0001:00113F11 695 0001:00113F1D 700 0001:00113F24 + 701 0001:00113F30 704 0001:00113F39 705 0001:00113F41 707 0001:00113F4D + 708 0001:00113F56 713 0001:00113F60 714 0001:00113F66 715 0001:00113F6D + 716 0001:00113F79 721 0001:00113F80 722 0001:00113F8C 725 0001:00113F95 + 726 0001:00113F9D 728 0001:00113FA9 729 0001:00113FB2 734 0001:00113FBC + 735 0001:00113FC2 736 0001:00113FC9 737 0001:00113FD5 742 0001:00113FDC + 743 0001:00113FE8 746 0001:00113FF1 747 0001:00113FF9 749 0001:00114005 + 750 0001:0011400E 755 0001:00114018 756 0001:00114021 757 0001:00114028 + 758 0001:00114038 763 0001:00114040 764 0001:0011404F 767 0001:00114058 + 768 0001:00114068 769 0001:00114070 770 0001:00114080 772 0001:00114089 + 798 0001:00114094 799 0001:0011409C 801 0001:001140AD 802 0001:001140BF + 803 0001:001140CF 804 0001:001140DF 805 0001:001140EF 806 0001:001140FF + 807 0001:00114101 806 0001:00114118 809 0001:0011411F 810 0001:00114128 + 815 0001:00114130 816 0001:00114134 817 0001:0011413F 820 0001:00114144 + 821 0001:00114148 822 0001:00114153 862 0001:00114264 863 0001:0011426F + 864 0001:00114277 865 0001:0011428E 870 0001:00114294 871 0001:0011429D + 872 0001:001142B5 873 0001:001142C3 874 0001:001142D1 876 0001:001142E6 + 878 0001:00114306 881 0001:0011430C 882 0001:00114310 883 0001:00114329 + 884 0001:0011435C 885 0001:0011435F 891 0001:00114364 892 0001:00114374 + 893 0001:0011437B 894 0001:00114392 895 0001:001143A3 896 0001:001143AD + 901 0001:001143B8 902 0001:001143C5 904 0001:001143C9 905 0001:001143E4 + 907 0001:001143E7 909 0001:00114408 910 0001:00114420 913 0001:0011443D + 921 0001:00114444 922 0001:0011446A 924 0001:00114472 925 0001:0011448D + 927 0001:00114498 929 0001:001144B4 930 0001:001144BC 931 0001:001144D5 + 932 0001:001144D9 933 0001:001144DC 936 0001:001144E1 937 0001:001144E7 + 939 0001:00114500 940 0001:00114527 946 0001:0011456A 953 0001:00114588 + 954 0001:00114592 955 0001:0011459A 956 0001:001145B5 958 0001:001145B8 + 959 0001:001145D5 960 0001:001145D8 962 0001:001145F9 963 0001:00114611 + 965 0001:0011462C 968 0001:00114634 969 0001:00114637 970 0001:00114642 + 973 0001:00114644 974 0001:0011464B 975 0001:00114657 976 0001:00114670 + 977 0001:00114674 978 0001:0011467C 980 0001:0011468D 985 0001:00114694 + 986 0001:00114696 988 0001:00114699 989 0001:0011469D 991 0001:001146BA + 992 0001:001146D5 994 0001:001146EA 997 0001:001146F0 998 0001:001146FA + 999 0001:00114704 1000 0001:00114712 1002 0001:00114729 1004 0001:0011473B + 1008 0001:00114740 1009 0001:00114741 1010 0001:00114742 1011 0001:00114744 + 1012 0001:00114746 1013 0001:00114748 1014 0001:00114749 1015 0001:0011474A + 1016 0001:0011474C 1017 0001:0011474E 1018 0001:00114750 1019 0001:00114752 + 1020 0001:00114753 1021 0001:00114755 1022 0001:00114757 1023 0001:00114759 + 1024 0001:0011475A 1025 0001:0011475B 1026 0001:0011475D 1027 0001:0011475F + 1028 0001:00114761 1029 0001:00114766 1030 0001:00114768 1031 0001:0011476A + 1032 0001:0011476B 1033 0001:0011476E 1034 0001:00114770 1035 0001:00114771 + 1036 0001:00114772 1042 0001:00114774 1043 0001:0011477A 1044 0001:0011477C + 1045 0001:0011477F 1046 0001:0011478D 1047 0001:00114794 1048 0001:00114799 + 1050 0001:001147BE 1052 0001:001147CA 1059 0001:001147D4 1060 0001:001147E3 + 1061 0001:001147E8 1062 0001:001147EE 1063 0001:001147F9 1064 0001:00114807 + 1065 0001:0011480E 1066 0001:00114812 1067 0001:0011481A 1068 0001:00114828 + 1069 0001:00114830 1070 0001:00114845 1072 0001:0011484A 1073 0001:00114853 + 1074 0001:00114869 1075 0001:00114876 1078 0001:00114892 1081 0001:001148AB + 1083 0001:001148BE 1092 0001:001148C8 1093 0001:001148E9 1094 0001:001148EC + 1095 0001:001148FB 1096 0001:00114911 1097 0001:00114917 1100 0001:00114925 + 1101 0001:0011492B 1102 0001:00114933 1104 0001:00114938 1106 0001:00114941 + 1107 0001:00114951 1108 0001:00114956 1110 0001:00114971 1112 0001:0011497C + 1113 0001:00114988 1114 0001:00114998 1115 0001:0011499D 1116 0001:001149B8 + 1117 0001:001149BE 1121 0001:001149EC 1123 0001:00114A22 1131 0001:00114A2C + 1132 0001:00114A4B 1133 0001:00114A5A 1134 0001:00114A70 1135 0001:00114A73 + 1136 0001:00114A79 1139 0001:00114A87 1140 0001:00114A8D 1141 0001:00114A95 + 1143 0001:00114A9A 1144 0001:00114AAA 1145 0001:00114AAF 1146 0001:00114ACA + 1147 0001:00114AD0 1149 0001:00114AFE 1151 0001:00114B34 1157 0001:00114B3C + 1158 0001:00114B5B 1159 0001:00114B70 1160 0001:00114B82 1161 0001:00114B88 + 1162 0001:00114B8C 1163 0001:00114B8E 1161 0001:00114B9E 1165 0001:00114BA2 + 1166 0001:00114BA6 1167 0001:00114BAB 1168 0001:00114BC3 1169 0001:00114BD1 + 1171 0001:00114BEA 1172 0001:00114BF5 1173 0001:00114BFD 1175 0001:00114C07 + 1176 0001:00114C3C 1182 0001:00114C44 1183 0001:00114C63 1184 0001:00114C78 + 1185 0001:00114C8A 1186 0001:00114C90 1187 0001:00114C94 1188 0001:00114C96 + 1186 0001:00114CA6 1190 0001:00114CAA 1191 0001:00114CAE 1192 0001:00114CB3 + 1193 0001:00114CCB 1194 0001:00114CD9 1196 0001:00114CF2 1197 0001:00114CFD + 1198 0001:00114D05 1200 0001:00114D31 1207 0001:00114D38 1208 0001:00114D4F + 1209 0001:00114D58 1210 0001:00114D6E 1211 0001:00114D84 1212 0001:00114D98 + 1213 0001:00114DAC 1214 0001:00114DAF 1215 0001:00114DB8 1216 0001:00114DC4 + 1217 0001:00114DD0 1218 0001:00114DD9 1219 0001:00114DE0 1220 0001:00114DE7 + 1221 0001:00114DEE 1223 0001:00114DF7 1224 0001:00114E00 1225 0001:00114E0E + 1226 0001:00114E19 1227 0001:00114E21 1228 0001:00114E2D 1229 0001:00114E56 + 1232 0001:00114E5C 1233 0001:00114E67 1234 0001:00114E72 1235 0001:00114E7D + 1236 0001:00114E88 1237 0001:00114E93 1238 0001:00114E9E 1239 0001:00114EB5 + 1242 0001:00114EB8 1243 0001:00114EBB 1244 0001:00114EC2 1245 0001:00114ECB + 1255 0001:00114ED0 1256 0001:00114ED6 1258 0001:00114EDF 1259 0001:00114EEE + 1262 0001:00114EFE 1265 0001:00114F07 1269 0001:00114F15 1271 0001:00114F39 + 1273 0001:00114F3D 1279 0001:00114F5C 1280 0001:00114F65 1282 0001:00114F70 + 1283 0001:00114F78 1284 0001:00114F8E 1285 0001:00114FA0 1289 0001:00114FBA + 1291 0001:00114FDA 1292 0001:00114FFB 1294 0001:0011500B 1295 0001:00115016 + 1296 0001:0011502C 1297 0001:00115037 1298 0001:00115045 1299 0001:0011505C + 1300 0001:0011506A 1302 0001:00115082 1306 0001:00115095 1307 0001:001150A0 + 1312 0001:001150A4 1313 0001:001150AD 1314 0001:001150BE 1315 0001:001150D3 + 1316 0001:001150DE 1317 0001:001150EB 1318 0001:001150F6 1319 0001:0011510C + 1320 0001:0011511A 1321 0001:00115131 1323 0001:00115150 1326 0001:00115163 + 1327 0001:0011516B 1331 0001:00115170 1332 0001:00115175 1336 0001:00115178 + 1337 0001:00115186 1340 0001:00115188 1343 0001:00115191 1344 0001:0011519B + 1346 0001:001151D1 1347 0001:001151DA 1351 0001:001151E0 1352 0001:001151EE + 1355 0001:001151F0 1356 0001:001151F6 1357 0001:0011520B 1362 0001:00115210 + 1363 0001:00115219 1364 0001:00115230 1365 0001:00115236 1366 0001:00115250 + 1367 0001:00115268 1372 0001:00115270 1373 0001:00115276 1374 0001:0011528D + 1375 0001:00115294 1380 0001:00115298 1381 0001:0011529E 1382 0001:001152B5 + 1383 0001:001152B8 1388 0001:001152BC 1389 0001:001152D8 1390 0001:001152E5 + 1391 0001:001152EF 1392 0001:001152FD 1393 0001:00115328 1398 0001:00115330 + 1399 0001:00115336 1400 0001:0011534A 1401 0001:00115366 1402 0001:0011536E + 1407 0001:00115374 1408 0001:00115380 1409 0001:00115387 1410 0001:00115390 + 1411 0001:0011539D 1412 0001:001153A5 1413 0001:001153B3 1414 0001:001153C0 + 1418 0001:001153CC 1420 0001:001153D4 1421 0001:001153DA 1423 0001:001153DF + 1426 0001:001153E0 1427 0001:001153E3 1429 0001:001153EB 1430 0001:001153F1 + 1432 0001:0011540E 1436 0001:00115410 1438 0001:00115418 1439 0001:0011541E + 1441 0001:00115423 1451 0001:00115424 1452 0001:0011542D 1453 0001:00115444 + 1454 0001:0011544B 1455 0001:00115462 1456 0001:00115478 1465 0001:00115480 + 1466 0001:00115489 1470 0001:0011548C 1471 0001:00115495 1474 0001:00115498 + 1475 0001:0011549B 1476 0001:001154A2 1477 0001:001154BF 1480 0001:001154C4 + 1481 0001:001154C7 1482 0001:001154D2 1487 0001:001154D4 1488 0001:001154DA + 1489 0001:001154DD 1490 0001:001154E1 1491 0001:001154F8 1498 0001:001154FC + 1499 0001:0011550A 1500 0001:00115519 1502 0001:00115520 1503 0001:0011552A + 1504 0001:00115531 1505 0001:0011553D 1506 0001:00115540 1507 0001:00115551 + 1508 0001:00115562 1510 0001:00115574 1511 0001:00115587 1514 0001:0011559C + 1515 0001:001155AF 1516 0001:001155C2 1517 0001:001155D5 1519 0001:001155E8 + 1520 0001:001155F4 1521 0001:00115600 1522 0001:00115602 1523 0001:0011560C + 1525 0001:00115613 1526 0001:00115621 1527 0001:00115638 1529 0001:00115646 + 1530 0001:00115654 1531 0001:00115657 1532 0001:00115672 1533 0001:00115682 + 1534 0001:0011568B 1536 0001:0011569F 1537 0001:001156B6 1540 0001:001156CB + 1548 0001:001156D4 1549 0001:001156E1 1551 0001:001156F8 1552 0001:0011571C + 1554 0001:00115744 1555 0001:0011574D 1557 0001:00115756 1558 0001:0011575D + 1559 0001:0011576B 1561 0001:00115781 1564 0001:00115790 1569 0001:00115798 + 1570 0001:001157A1 1571 0001:001157AA 1573 0001:001157B0 1574 0001:001157B7 + 1575 0001:001157BD 1576 0001:001157C8 1579 0001:001157F1 1581 0001:0011580A + 1584 0001:00115821 1590 0001:00115828 1592 0001:00115842 1593 0001:00115889 + 1594 0001:00115899 1597 0001:001158AB 1599 0001:001158CC 1600 0001:001158D1 + 1605 0001:001158EA 1606 0001:00115901 1609 0001:0011590D 1611 0001:00115928 + 1615 0001:00115973 1618 0001:00115984 1619 0001:00115986 1620 0001:0011598A + 1621 0001:001159AF 1624 0001:001159B4 1625 0001:001159B6 1626 0001:001159BA + 1627 0001:001159DF 1630 0001:001159E4 1631 0001:001159E5 1632 0001:001159FF + 1635 0001:00115A04 1636 0001:00115A05 1637 0001:00115A21 1677 0001:00115A74 + 1677 0001:00115A7B + +Line numbers for frmSignonMessage(frmSignonMessage.pas) segment .text + + 41 0001:00115C6C 42 0001:00115C8E 46 0001:00115C90 47 0001:00115C95 + 49 0001:00115CC8 49 0001:00115CCF + +Line numbers for fSgnonDlg(fSgnonDlg.pas) segment .text + + 36 0001:00115EB4 36 0001:00115EBB + +Line numbers for AddServer(AddServer.pas) segment .text + + 40 0001:001160E4 40 0001:001160EB + +Line numbers for RpcNet(rpcnet.pas) segment .text + + 152 0001:0011627C 153 0001:00116285 154 0001:0011628A 155 0001:0011629A + 157 0001:001162A6 159 0001:001162B7 160 0001:001162C2 163 0001:001162C7 + 165 0001:001162CA 166 0001:001162D3 169 0001:001162E0 171 0001:001162E1 + 173 0001:001162EB 174 0001:001162EE 175 0001:001162F3 177 0001:001162FB + 187 0001:00116300 189 0001:00116310 191 0001:00116318 192 0001:00116326 + 194 0001:0011632C 195 0001:00116330 196 0001:00116336 198 0001:00116346 + 201 0001:00116355 203 0001:0011635A 204 0001:00116369 205 0001:0011636C + 208 0001:00116371 210 0001:0011637A 211 0001:00116382 212 0001:00116391 + 213 0001:00116394 216 0001:00116399 218 0001:001163A3 219 0001:001163A8 + 220 0001:001163AA 221 0001:001163B0 222 0001:001163BE 223 0001:001163C3 + 226 0001:001163C8 227 0001:001163D8 229 0001:001163E6 230 0001:001163ED + 231 0001:001163F4 232 0001:001163FE 235 0001:0011641C 237 0001:00116425 + 236 0001:00116431 241 0001:00116455 242 0001:00116464 243 0001:0011646A + 248 0001:0011647D 249 0001:00116488 250 0001:00116498 251 0001:0011649A + 252 0001:001164A0 254 0001:001164B0 283 0001:001164F8 285 0001:001164F9 + 287 0001:00116505 289 0001:0011650C 292 0001:00116520 301 0001:00116524 + 302 0001:00116543 305 0001:00116548 308 0001:00116555 310 0001:0011655E + 312 0001:0011656E 313 0001:00116575 315 0001:0011657E 316 0001:0011658E + 319 0001:00116593 320 0001:001165A1 322 0001:001165A5 323 0001:001165BD + 326 0001:001165C2 328 0001:001165D0 329 0001:001165D6 330 0001:001165E1 + 332 0001:001165E6 333 0001:001165F6 334 0001:00116600 335 0001:00116623 + 338 0001:0011662D 339 0001:00116637 341 0001:00116660 344 0001:00116697 + 435 0001:00116714 435 0001:0011671B + +Line numbers for Rpcconf1(RpcConf1.pas) segment .text + + 73 0001:001169D4 74 0001:001169F4 75 0001:001169F6 77 0001:00116A09 + 78 0001:00116A10 80 0001:00116A1D 81 0001:00116A1F 83 0001:00116A21 + 75 0001:00116A22 84 0001:00116A44 90 0001:00116A4C 91 0001:00116A6F + 92 0001:00116A79 94 0001:00116A85 95 0001:00116A92 96 0001:00116AA2 + 97 0001:00116AAC 98 0001:00116ABB 99 0001:00116AC5 100 0001:00116ACD + 103 0001:00116AD6 104 0001:00116AE0 105 0001:00116B07 111 0001:00116B10 + 113 0001:00116B2D 114 0001:00116B3D 115 0001:00116B72 116 0001:00116B83 + 117 0001:00116BB8 120 0001:00116BC5 121 0001:00116C02 124 0001:00116C18 + 125 0001:00116C2E 126 0001:00116C37 127 0001:00116C4D 129 0001:00116C7C + 130 0001:00116CAB 133 0001:00116CFC 134 0001:00116CFF 135 0001:00116D0D + 136 0001:00116D1A 137 0001:00116D25 138 0001:00116D3A 147 0001:00116D3C + 148 0001:00116D62 149 0001:00116D7B 153 0001:00116D85 154 0001:00116D94 + 155 0001:00116DA6 156 0001:00116DB9 157 0001:00116DC1 158 0001:00116DD3 + 160 0001:00116DE5 161 0001:00116DF2 162 0001:00116E09 163 0001:00116E1C + 158 0001:00116E1D 165 0001:00116E20 167 0001:00116E2A 169 0001:00116E3D + 170 0001:00116E53 174 0001:00116E68 177 0001:00116E7F 178 0001:00116E99 + 177 0001:00116EC8 180 0001:00116ECB 181 0001:00116EE0 182 0001:00116F1A + 183 0001:00116F5A 186 0001:00116F94 187 0001:00116FB4 191 0001:00116FC3 + 192 0001:00116FFD 195 0001:00117037 197 0001:00117040 198 0001:0011704E + 200 0001:0011705C 202 0001:00117062 203 0001:0011706A 204 0001:00117074 + 206 0001:001170A2 209 0001:001170FC 210 0001:00117116 211 0001:00117120 + 212 0001:00117153 213 0001:0011716E 214 0001:001171A2 217 0001:001171B4 + 218 0001:001171CC 219 0001:001171D6 220 0001:001171F1 221 0001:0011720C + 222 0001:00117238 225 0001:00117240 226 0001:00117244 227 0001:00117258 + 228 0001:0011725F 229 0001:00117274 234 0001:00117278 241 0001:0011727C + 242 0001:0011729A 243 0001:001172AB 245 0001:001172BF 246 0001:001172D0 + 247 0001:001172E1 248 0001:001172F2 249 0001:0011730A 250 0001:0011731E + 251 0001:0011732C 252 0001:00117346 253 0001:0011735A 255 0001:00117376 + 256 0001:00117399 257 0001:001173A9 253 0001:001173AA 260 0001:001173AF + 262 0001:001173B8 263 0001:001173EA 265 0001:0011746C 265 0001:00117473 + +Line numbers for VCEdit(VCEdit.pas) segment .text + + 140 0001:001177B8 141 0001:001177CA 142 0001:001177D3 143 0001:001177EE + 146 0001:001177F4 147 0001:001177FF 148 0001:00117816 152 0001:0011781C + 153 0001:0011783D 154 0001:00117848 155 0001:0011784C 156 0001:00117855 + 157 0001:00117878 163 0001:00117880 164 0001:00117891 165 0001:00117895 + 166 0001:001178A3 169 0001:001178B9 170 0001:001178C4 172 0001:001178CD + 173 0001:001178DF 174 0001:001178EE 177 0001:00117901 178 0001:00117908 + 179 0001:00117915 180 0001:00117922 181 0001:00117926 183 0001:0011792C + 185 0001:0011794E 187 0001:00117950 188 0001:00117963 189 0001:00117973 + 190 0001:00117985 191 0001:0011798E 194 0001:0011799B 199 0001:001179A4 + 200 0001:001179C8 202 0001:00117A0C 207 0001:00117A48 208 0001:00117A6A + 210 0001:00117A70 212 0001:00117A9B 213 0001:00117AA7 214 0001:00117AB4 + 215 0001:00117AC1 218 0001:00117AD4 220 0001:00117AFF 221 0001:00117B02 + 223 0001:00117B0D 224 0001:00117B1A 225 0001:00117B27 226 0001:00117B33 + 230 0001:00117B46 231 0001:00117B53 232 0001:00117B5F 236 0001:00117B72 + 238 0001:00117B78 239 0001:00117B8A 240 0001:00117B9E 243 0001:00117C3A + 244 0001:00117C42 246 0001:00117C64 247 0001:00117C6E 251 0001:00117C7A + 252 0001:00117C8B 254 0001:00117CAD 255 0001:00117CB6 256 0001:00117CC3 + 257 0001:00117CD0 261 0001:00117D4C 264 0001:00117E44 265 0001:00117E5A + 267 0001:00117E60 269 0001:00117E66 271 0001:00117E69 272 0001:00117E79 + 273 0001:00117E80 274 0001:00117E8F 275 0001:00117EAA 277 0001:00117EBA + 278 0001:00117EC0 281 0001:00117ED0 283 0001:00117EF5 286 0001:00117F70 + 287 0001:00117F73 289 0001:00117F82 290 0001:00117F8D 292 0001:00117F9A + 295 0001:00117F9C 296 0001:00117FB6 299 0001:00118025 301 0001:0011805C + 301 0001:00118063 + +Line numbers for Sgnoncnf(SgnonCnf.pas) segment .text + + 167 0001:00118454 168 0001:0011845F 173 0001:00118460 184 0001:00118464 + 187 0001:00118488 188 0001:00118495 189 0001:001184A1 190 0001:001184AD + 191 0001:001184B6 194 0001:001184C2 195 0001:001184E9 196 0001:001184F2 + 199 0001:001184FF 200 0001:00118526 201 0001:0011852F 204 0001:0011853C + 205 0001:0011855C 208 0001:00118583 209 0001:0011859D 211 0001:001185A3 + 212 0001:001185AD 213 0001:001185D5 217 0001:00118604 218 0001:0011861E + 220 0001:00118624 221 0001:00118635 225 0001:00118644 226 0001:0011865E + 228 0001:00118664 229 0001:0011866E 231 0001:001186A4 235 0001:00118760 + 236 0001:00118767 237 0001:0011876E 238 0001:00118774 239 0001:00118780 + 240 0001:00118786 241 0001:00118792 242 0001:00118798 243 0001:001187A4 + 244 0001:001187AA 245 0001:001187B6 250 0001:001187EC 253 0001:001187F0 + 254 0001:0011880E 255 0001:00118814 256 0001:00118825 257 0001:0011882E + 258 0001:0011883F 259 0001:00118848 260 0001:00118859 261 0001:00118862 + 262 0001:00118873 263 0001:0011889B 267 0001:001188E4 268 0001:001188EF + 273 0001:001188F0 274 0001:0011890C 275 0001:00118914 276 0001:0011891D + 277 0001:00118936 278 0001:00118944 279 0001:0011895A 280 0001:00118968 + 285 0001:00118997 286 0001:001189A9 287 0001:001189E3 289 0001:00118A1D + 290 0001:00118A31 291 0001:00118A3F 293 0001:00118A53 294 0001:00118A5F + 295 0001:00118A6E 297 0001:00118A73 299 0001:00118A7D 300 0001:00118A82 + 302 0001:00118A89 304 0001:00118A99 305 0001:00118AA3 307 0001:00118AE5 + 318 0001:00118B38 319 0001:00118B3D 320 0001:00118B44 322 0001:00118B5C + 324 0001:00118B72 325 0001:00118B7F 326 0001:00118B8C 329 0001:00118B95 + 330 0001:00118BA1 331 0001:00118BAA 332 0001:00118BB6 333 0001:00118BCA + 334 0001:00118BDB 338 0001:00118BE9 339 0001:00118BF4 340 0001:00118BFA + 348 0001:00118C00 349 0001:00118C24 350 0001:00118C33 351 0001:00118C3B + 352 0001:00118C49 353 0001:00118C61 354 0001:00118C75 355 0001:00118C89 + 356 0001:00118C99 357 0001:00118CAF 360 0001:00118CBF 361 0001:00118CCC + 362 0001:00118CD9 366 0001:00118CE9 367 0001:00118D04 368 0001:00118D27 + 369 0001:00118D46 370 0001:00118D65 371 0001:00118D71 372 0001:00118D7A + 373 0001:00118D86 374 0001:00118D9A 375 0001:00118DAB 377 0001:00118DB7 + 378 0001:00118DEC 379 0001:00118E07 381 0001:00118E1D 382 0001:00118E25 + 384 0001:00118E65 387 0001:00118EA8 388 0001:00118EAB 393 0001:00118EC9 + 394 0001:00118EDD 395 0001:00118EF1 396 0001:00118F05 397 0001:00118F19 + 398 0001:00118F2D 399 0001:00118F41 400 0001:00118F50 402 0001:00118F5F + 404 0001:00118F6F 406 0001:00118F76 412 0001:00119078 413 0001:001190A0 + 414 0001:001190B1 416 0001:001190C5 417 0001:001190C9 419 0001:001190D8 + 420 0001:0011912A 422 0001:00119137 423 0001:0011913D 425 0001:0011914C + 426 0001:0011919F 428 0001:001191AC 430 0001:001191B8 431 0001:001191BF + 432 0001:001191C9 434 0001:001191EE 437 0001:00119202 439 0001:0011920E + 440 0001:00119217 441 0001:00119227 443 0001:0011924C 446 0001:00119260 + 448 0001:0011926F 449 0001:00119279 450 0001:0011928E 452 0001:001192A8 + 455 0001:001192BC 457 0001:001192CB 458 0001:001192D5 459 0001:001192EA + 461 0001:00119304 464 0001:00119318 466 0001:00119327 467 0001:00119331 + 468 0001:00119346 470 0001:00119360 473 0001:00119374 475 0001:00119383 + 476 0001:0011938D 477 0001:001193A2 479 0001:001193BC 482 0001:001193D0 + 483 0001:001193F9 486 0001:001194B4 487 0001:001194C6 488 0001:001194CF + 489 0001:001194D8 490 0001:001194E9 491 0001:001194F2 493 0001:0011951A + 496 0001:00119520 498 0001:0011953A 499 0001:0011954F 500 0001:00119572 + 501 0001:00119591 502 0001:001195B0 503 0001:001195CB 504 0001:001195DA + 505 0001:001195E9 506 0001:001195F8 507 0001:00119624 510 0001:00119628 + 511 0001:0011962B 512 0001:00119630 513 0001:00119635 514 0001:0011963C + 515 0001:00119644 516 0001:0011964C 517 0001:00119654 518 0001:0011965C + 519 0001:00119663 520 0001:00119670 521 0001:0011967D 522 0001:0011968B + 525 0001:001196A8 526 0001:001196BA 527 0001:001196C3 528 0001:001196E9 + 531 0001:001196EC 532 0001:001196F7 533 0001:001196FF 534 0001:00119716 + 537 0001:0011971C 538 0001:00119737 539 0001:00119741 541 0001:0011974F + 542 0001:00119774 544 0001:001197BB 547 0001:001197D0 548 0001:001197EB + 549 0001:001197F5 551 0001:00119803 552 0001:00119828 554 0001:0011986F + 557 0001:00119884 558 0001:0011989F 559 0001:001198A9 560 0001:001198CE + 561 0001:0011991C 564 0001:00119924 565 0001:0011992A 566 0001:00119934 + 567 0001:00119938 569 0001:0011994C 570 0001:0011995A 573 0001:00119964 + 574 0001:0011997D 575 0001:00119983 576 0001:00119999 577 0001:001199AB + 578 0001:001199B1 579 0001:001199B7 580 0001:001199C1 581 0001:001199CB + 582 0001:001199D1 583 0001:001199DB 584 0001:001199E5 585 0001:001199EF + 586 0001:001199F5 587 0001:00119A18 590 0001:00119A20 591 0001:00119A3D + 592 0001:00119A40 593 0001:00119A73 594 0001:00119AB8 598 0001:00119AC0 + 599 0001:00119AC3 600 0001:00119ACB 602 0001:00119B10 602 0001:00119B17 + +Line numbers for Loginfrm(Loginfrm.pas) segment .text + + 102 0001:00119EBC 103 0001:00119EC1 106 0001:00119EC4 107 0001:00119EE7 + 108 0001:00119EEB 112 0001:00119EFD 115 0001:00119F0B 116 0001:00119F1D + 119 0001:00119F33 120 0001:00119F3D 122 0001:00119F4C 123 0001:00119F71 + 124 0001:00119F99 125 0001:00119FC1 126 0001:00119FE9 127 0001:00119FF0 + 128 0001:0011A002 129 0001:0011A026 131 0001:0011A02C 132 0001:0011A030 + 133 0001:0011A03C 134 0001:0011A044 136 0001:0011A056 137 0001:0011A07E + 138 0001:0011A0A2 141 0001:0011A0D3 161 0001:0011A0FC 162 0001:0011A120 + 163 0001:0011A12A 165 0001:0011A138 166 0001:0011A14C 167 0001:0011A19C + 169 0001:0011A1A0 170 0001:0011A1B3 173 0001:0011A1BD 175 0001:0011A1E4 + 176 0001:0011A204 180 0001:0011A211 183 0001:0011A238 184 0001:0011A24D + 185 0001:0011A259 186 0001:0011A265 192 0001:0011A272 194 0001:0011A296 + 195 0001:0011A2A6 196 0001:0011A2B6 197 0001:0011A2D6 203 0001:0011A2EC + 206 0001:0011A2F8 207 0001:0011A30D 208 0001:0011A315 210 0001:0011A32E + 212 0001:0011A359 213 0001:0011A370 215 0001:0011A37E 216 0001:0011A3A9 + 215 0001:0011A3DB 217 0001:0011A3DE 218 0001:0011A3EA 221 0001:0011A406 + 225 0001:0011A41A 229 0001:0011A431 231 0001:0011A478 234 0001:0011A4EC + 235 0001:0011A4EF 236 0001:0011A504 237 0001:0011A50B 242 0001:0011A538 + 243 0001:0011A554 245 0001:0011A561 246 0001:0011A575 248 0001:0011A589 + 250 0001:0011A5B1 251 0001:0011A5C6 253 0001:0011A5DC 254 0001:0011A5F2 + 256 0001:0011A643 261 0001:0011A6DC 262 0001:0011A700 263 0001:0011A71B + 265 0001:0011A723 268 0001:0011A770 271 0001:0011A77A 272 0001:0011A78D + 273 0001:0011A7A8 274 0001:0011A7BB 275 0001:0011A7D6 276 0001:0011A7E9 + 277 0001:0011A801 278 0001:0011A814 279 0001:0011A82C 280 0001:0011A83F + 282 0001:0011A857 286 0001:0011A86D 288 0001:0011A877 289 0001:0011A886 + 290 0001:0011A894 291 0001:0011A8AB 292 0001:0011A8BA 293 0001:0011A8C3 + 294 0001:0011A8CC 295 0001:0011A8D8 296 0001:0011A8EB 297 0001:0011A8FD + 298 0001:0011A906 299 0001:0011A917 300 0001:0011A934 301 0001:0011A951 + 304 0001:0011A95F 305 0001:0011A967 307 0001:0011A97D 308 0001:0011A991 + 311 0001:0011A9AA 312 0001:0011A9B8 313 0001:0011A9C2 314 0001:0011A9F0 + 316 0001:0011AA2D 317 0001:0011AA41 321 0001:0011AA5A 322 0001:0011AA70 + 324 0001:0011AA7F 325 0001:0011AA8D 326 0001:0011AABB 328 0001:0011AAF8 + 332 0001:0011AB07 333 0001:0011AB15 335 0001:0011AB2D 337 0001:0011AB40 + 340 0001:0011AB65 342 0001:0011AB75 343 0001:0011ABA1 350 0001:0011AC28 + 351 0001:0011AC44 353 0001:0011AC4C 354 0001:0011AC56 355 0001:0011AC60 + 356 0001:0011AC6F 357 0001:0011AC7D 358 0001:0011AC89 360 0001:0011AC9E + 361 0001:0011ACA6 364 0001:0011ACB8 366 0001:0011ACC1 367 0001:0011ACD8 + 368 0001:0011ACE6 369 0001:0011ACF3 370 0001:0011AD0C 371 0001:0011AD23 + 372 0001:0011AD2F 374 0001:0011AD47 377 0001:0011AD57 378 0001:0011AD7C + 381 0001:0011ADB8 382 0001:0011ADD8 383 0001:0011AE03 384 0001:0011AE38 + 387 0001:0011AE54 388 0001:0011AE7F 389 0001:0011AEB4 391 0001:0011AED0 + 392 0001:0011AF07 395 0001:0011AF78 396 0001:0011AF95 397 0001:0011AFD6 + 402 0001:0011AFE4 403 0001:0011B000 404 0001:0011B011 405 0001:0011B01F + 406 0001:0011B02B 408 0001:0011B054 410 0001:0011B084 412 0001:0011B0BC + 412 0001:0011B0C3 + +Line numbers for RpcSLogin(RpcSlogin.pas) segment .text + + 46 0001:0011B0C4 47 0001:0011B0E4 50 0001:0011B0F2 51 0001:0011B135 + 52 0001:0011B146 53 0001:0011B154 54 0001:0011B15B 56 0001:0011B17A + 57 0001:0011B198 61 0001:0011B1A1 62 0001:0011B1A5 63 0001:0011B1D9 + 64 0001:0011B20A 68 0001:0011B23A 70 0001:0011B269 74 0001:0011B2E0 + 75 0001:0011B2FD 76 0001:0011B2FF 79 0001:0011B30D 80 0001:0011B32B + 81 0001:0011B33C 82 0001:0011B34C 83 0001:0011B353 85 0001:0011B36F + 86 0001:0011B38D 88 0001:0011B394 89 0001:0011B3C8 90 0001:0011B3F9 + 93 0001:0011B429 95 0001:0011B457 99 0001:0011B4C4 100 0001:0011B4C6 + 109 0001:0011B4C8 110 0001:0011B4E4 112 0001:0011B4E8 114 0001:0011B4F6 + 115 0001:0011B506 116 0001:0011B50D 117 0001:0011B517 118 0001:0011B51F + 120 0001:0011B52F 121 0001:0011B553 122 0001:0011B575 124 0001:0011B57F + 125 0001:0011B58F 127 0001:0011B5B1 128 0001:0011B5B5 129 0001:0011B5BC + 131 0001:0011B5C9 132 0001:0011B5D5 133 0001:0011B5E4 134 0001:0011B5F0 + 135 0001:0011B5FF 136 0001:0011B60B 137 0001:0011B61A 140 0001:0011B635 + 141 0001:0011B649 143 0001:0011B655 144 0001:0011B659 146 0001:0011B663 + 147 0001:0011B669 148 0001:0011B678 149 0001:0011B67E 152 0001:0011B693 + 153 0001:0011B697 155 0001:0011B6A3 156 0001:0011B6A9 158 0001:0011B6B3 + 159 0001:0011B6B9 162 0001:0011B6CF 164 0001:0011B700 167 0001:0011B748 + 168 0001:0011B76B 171 0001:0011B779 172 0001:0011B78A 173 0001:0011B791 + 174 0001:0011B7A4 176 0001:0011B7AA 177 0001:0011B7C4 178 0001:0011B7E1 + 179 0001:0011B7FE 180 0001:0011B81B 181 0001:0011B838 182 0001:0011B855 + 183 0001:0011B872 184 0001:0011B88F 185 0001:0011B89F 187 0001:0011B8BF + 190 0001:0011B8D6 192 0001:0011B8FD 293 0001:0011B948 293 0001:0011B94F + +Line numbers for Trpcb(TRPCB.pas) segment .text + + 363 0001:0011C26C 364 0001:0011C27E 365 0001:0011C287 366 0001:0011C2AD + 371 0001:0011C2B0 372 0001:0011C2BB 373 0001:0011C2C2 374 0001:0011C2CA + 375 0001:0011C2CF 376 0001:0011C2E6 389 0001:0011C2EC 390 0001:0011C313 + 391 0001:0011C31B 392 0001:0011C330 393 0001:0011C340 394 0001:0011C34E + 395 0001:0011C363 396 0001:0011C372 397 0001:0011C398 398 0001:0011C3B9 + 394 0001:0011C3BA 400 0001:0011C3CC 404 0001:0011C3D3 405 0001:0011C3E3 + 406 0001:0011C3F5 405 0001:0011C41D 408 0001:0011C442 416 0001:0011C44C + 417 0001:0011C452 418 0001:0011C464 419 0001:0011C473 420 0001:0011C47F + 417 0001:0011C480 421 0001:0011C483 422 0001:0011C48B 428 0001:0011C490 + 429 0001:0011C493 430 0001:0011C4A7 436 0001:0011C4AC 437 0001:0011C4B2 + 438 0001:0011C4CD 439 0001:0011C4D4 445 0001:0011C4D8 446 0001:0011C4DF + 447 0001:0011C503 448 0001:0011C50A 459 0001:0011C510 460 0001:0011C53E + 461 0001:0011C54C 465 0001:0011C585 466 0001:0011C5A3 467 0001:0011C5CA + 468 0001:0011C5D8 469 0001:0011C5E0 470 0001:0011C5E6 471 0001:0011C608 + 474 0001:0011C60C 475 0001:0011C61E 476 0001:0011C645 480 0001:0011C67A + 481 0001:0011C67F 484 0001:0011C698 485 0001:0011C6C4 503 0001:0011C758 + 504 0001:0011C786 505 0001:0011C793 506 0001:0011C798 507 0001:0011C7A6 + 508 0001:0011C7B1 511 0001:0011C7C0 512 0001:0011C7F7 533 0001:0011C800 + 534 0001:0011C813 535 0001:0011C81A 536 0001:0011C81E 537 0001:0011C82F + 539 0001:0011C83A 540 0001:0011C846 541 0001:0011C84C 542 0001:0011C862 + 543 0001:0011C872 544 0001:0011C87E 546 0001:0011C88C 555 0001:0011C898 + 556 0001:0011C8A0 563 0001:0011C8A4 564 0001:0011C8AD 565 0001:0011C8B4 + 566 0001:0011C8C7 567 0001:0011C8D3 574 0001:0011C8D8 575 0001:0011C8EF + 576 0001:0011C8F8 577 0001:0011C90B 579 0001:0011C930 582 0001:0011C948 + 583 0001:0011C953 584 0001:0011C95B 585 0001:0011C960 586 0001:0011C977 + 591 0001:0011C97C 592 0001:0011C98E 593 0001:0011C997 594 0001:0011C9BD + 599 0001:0011C9C0 600 0001:0011C9CB 601 0001:0011C9D2 602 0001:0011C9DA + 603 0001:0011C9DF 604 0001:0011C9F6 612 0001:0011C9FC 613 0001:0011CA04 + 614 0001:0011CA0B 615 0001:0011CA1A 616 0001:0011CA2C 617 0001:0011CA4B + 618 0001:0011CA65 620 0001:0011CA84 615 0001:0011CA85 620 0001:0011CA88 + 628 0001:0011CA90 629 0001:0011CA96 630 0001:0011CA9D 631 0001:0011CAA8 + 632 0001:0011CAB4 633 0001:0011CAB8 634 0001:0011CAC0 635 0001:0011CAC5 + 637 0001:0011CACC 630 0001:0011CACD 638 0001:0011CAD0 640 0001:0011CAD8 + 646 0001:0011CAE0 647 0001:0011CAEA 648 0001:0011CAF9 653 0001:0011CAFC + 654 0001:0011CB02 656 0001:0011CB0C 655 0001:0011CB13 657 0001:0011CB1B + 659 0001:0011CB29 660 0001:0011CB43 662 0001:0011CB51 663 0001:0011CB5B + 679 0001:0011CB60 680 0001:0011CB8E 684 0001:0011CB97 686 0001:0011CBA5 + 688 0001:0011CBD0 690 0001:0011CBFB 691 0001:0011CC02 692 0001:0011CC16 + 693 0001:0011CC28 694 0001:0011CC58 695 0001:0011CC6C 697 0001:0011CC97 + 698 0001:0011CCA0 699 0001:0011CCAB 701 0001:0011CCB1 702 0001:0011CCBA + 703 0001:0011CCD0 705 0001:0011CCDE 706 0001:0011CCF2 707 0001:0011CCF9 + 708 0001:0011CD0B 709 0001:0011CD12 711 0001:0011CD24 712 0001:0011CD28 + 713 0001:0011CD6F 718 0001:0011CE24 719 0001:0011CE2F 720 0001:0011CE38 + 721 0001:0011CE43 722 0001:0011CE4E 723 0001:0011CE56 724 0001:0011CE61 + 725 0001:0011CE69 726 0001:0011CE74 727 0001:0011CE7C 728 0001:0011CE87 + 729 0001:0011CE8F 730 0001:0011CE9A 731 0001:0011CEA2 732 0001:0011CEB9 + 745 0001:0011CEBC 746 0001:0011CEE9 747 0001:0011CEED 748 0001:0011CEF7 + 749 0001:0011CEFC 750 0001:0011CF0A 751 0001:0011CF1C 758 0001:0011CF2E + 759 0001:0011CF38 760 0001:0011CF4A 761 0001:0011CF5B 762 0001:0011CF6D + 763 0001:0011CF7F 764 0001:0011CF94 765 0001:0011CFA8 766 0001:0011CFD0 + 767 0001:0011CFDE 768 0001:0011CFE9 770 0001:0011CFF8 771 0001:0011CFFC + 775 0001:0011D00E 776 0001:0011D012 779 0001:0011D03A 781 0001:0011D03C + 782 0001:0011D049 784 0001:0011D05A 787 0001:0011D060 790 0001:0011D06A + 791 0001:0011D076 794 0001:0011D099 795 0001:0011D0A4 797 0001:0011D0E1 + 803 0001:0011D130 804 0001:0011D135 811 0001:0011D138 812 0001:0011D13F + 813 0001:0011D14E 814 0001:0011D15C 815 0001:0011D16E 816 0001:0011D178 + 818 0001:0011D193 819 0001:0011D19B 821 0001:0011D1AB 828 0001:0011D1B0 + 829 0001:0011D1B4 830 0001:0011D1BB 831 0001:0011D1C4 832 0001:0011D1CB + 839 0001:0011D1D0 840 0001:0011D1D4 841 0001:0011D1DB 842 0001:0011D1E4 + 843 0001:0011D1EB 850 0001:0011D1F0 851 0001:0011D213 852 0001:0011D220 + 853 0001:0011D230 854 0001:0011D24C 855 0001:0011D263 856 0001:0011D274 + 857 0001:0011D27E 858 0001:0011D28C 861 0001:0011D29C 862 0001:0011D2B4 + 863 0001:0011D2BA 865 0001:0011D2D8 866 0001:0011D2E6 868 0001:0011D2FB + 869 0001:0011D308 870 0001:0011D315 871 0001:0011D322 873 0001:0011D340 + 874 0001:0011D352 875 0001:0011D35B 877 0001:0011D39C 878 0001:0011D3A4 + 879 0001:0011D3B4 880 0001:0011D3BC 884 0001:0011D3C8 885 0001:0011D3D0 + 887 0001:0011D3E0 888 0001:0011D3EA 890 0001:0011D412 891 0001:0011D414 + 892 0001:0011D41D 893 0001:0011D434 894 0001:0011D43F 895 0001:0011D449 + 896 0001:0011D453 897 0001:0011D463 898 0001:0011D472 899 0001:0011D498 + 900 0001:0011D4A5 901 0001:0011D4B9 902 0001:0011D4C5 907 0001:0011D4D1 + 909 0001:0011D4D5 910 0001:0011D4DF 911 0001:0011D4EF 913 0001:0011D4FF + 914 0001:0011D516 919 0001:0011D543 924 0001:0011D734 925 0001:0011D73A + 926 0001:0011D749 927 0001:0011D74F 932 0001:0011D754 933 0001:0011D75A + 934 0001:0011D75E 936 0001:0011D769 937 0001:0011D76F 942 0001:0011D774 + 943 0001:0011D777 944 0001:0011D782 950 0001:0011D784 951 0001:0011D78C + 952 0001:0011D794 954 0001:0011D79C 955 0001:0011D7A8 960 0001:0011D7AC + 962 0001:0011D7C3 963 0001:0011D7E0 965 0001:0011D7E9 966 0001:0011D7F6 + 978 0001:0011D800 979 0001:0011D825 980 0001:0011D832 981 0001:0011D83C + 982 0001:0011D841 983 0001:0011D846 985 0001:0011D84A 986 0001:0011D857 + 988 0001:0011D864 989 0001:0011D872 991 0001:0011D881 992 0001:0011D888 + 1000 0001:0011D88C 1001 0001:0011D89A 1009 0001:0011D8F9 1011 0001:0011D905 + 1012 0001:0011D922 1013 0001:0011D92A 1016 0001:0011D958 1019 0001:0011D95A + 1020 0001:0011D96C 1021 0001:0011D97A 1022 0001:0011D983 1023 0001:0011D991 + 1024 0001:0011D997 1025 0001:0011D99F 1029 0001:0011D9AC 1031 0001:0011D9CE + 1032 0001:0011D9D8 1037 0001:0011D9EE 1038 0001:0011D9F6 1039 0001:0011D9FB + 1040 0001:0011DA03 1041 0001:0011DA08 1043 0001:0011DA26 1044 0001:0011DA29 + 1045 0001:0011DA39 1046 0001:0011DA4F 1048 0001:0011DA59 1049 0001:0011DA6C + 1050 0001:0011DA7B 1051 0001:0011DAA4 1053 0001:0011DAB1 1054 0001:0011DAC3 + 1056 0001:0011DACC 1058 0001:0011DAD8 1059 0001:0011DADF 1062 0001:0011DAE9 + 1065 0001:0011DB15 1094 0001:0011DB5C 1095 0001:0011DB7A 1096 0001:0011DB87 + 1097 0001:0011DB95 1098 0001:0011DBA6 1099 0001:0011DBB2 1100 0001:0011DBBB + 1101 0001:0011DBCC 1102 0001:0011DBD8 1104 0001:0011DBF0 1106 0001:0011DC0D + 1108 0001:0011DC57 1109 0001:0011DC9A 1120 0001:0011DCCC 1121 0001:0011DCE9 + 1122 0001:0011DCEB 1124 0001:0011DCF4 1127 0001:0011DD0C 1128 0001:0011DD2F + 1129 0001:0011DD3D 1130 0001:0011DD47 1133 0001:0011DD4E 1134 0001:0011DD57 + 1135 0001:0011DD6F 1136 0001:0011DD7D 1137 0001:0011DD87 1140 0001:0011DDAD + 1148 0001:0011DDB4 1155 0001:0011DDBA 1170 0001:0011DDBC 1173 0001:0011DDEF + 1174 0001:0011DE00 1175 0001:0011DE11 1176 0001:0011DE22 1177 0001:0011DE33 + 1178 0001:0011DE3F 1179 0001:0011DE4B 1180 0001:0011DE57 1181 0001:0011DE61 + 1182 0001:0011DE6B 1183 0001:0011DE77 1186 0001:0011DE83 1188 0001:0011DE87 + 1190 0001:0011DE94 1191 0001:0011DEC4 1192 0001:0011DEFB 1193 0001:0011DF0B + 1196 0001:0011DF15 1198 0001:0011DF25 1199 0001:0011DF36 1201 0001:0011DF51 + 1202 0001:0011DF59 1203 0001:0011DF76 1204 0001:0011DF92 1207 0001:0011DFA0 + 1208 0001:0011DFA7 1209 0001:0011DFB9 1210 0001:0011DFC1 1224 0001:0011DFCA + 1226 0001:0011DFE5 1227 0001:0011DFF4 1228 0001:0011E001 1232 0001:0011E007 + 1233 0001:0011E00F 1235 0001:0011E015 1236 0001:0011E01D 1238 0001:0011E02B + 1241 0001:0011E02F 1244 0001:0011E042 1246 0001:0011E055 1253 0001:0011E061 + 1255 0001:0011E075 1256 0001:0011E07C 1259 0001:0011E095 1260 0001:0011E0A1 + 1261 0001:0011E0AD 1262 0001:0011E0B8 1264 0001:0011E0C2 1265 0001:0011E0D8 + 1268 0001:0011E0F1 1273 0001:0011E0F9 1274 0001:0011E104 1275 0001:0011E10F + 1276 0001:0011E120 1277 0001:0011E128 1278 0001:0011E150 1279 0001:0011E165 + 1280 0001:0011E170 1281 0001:0011E17C 1284 0001:0011E188 1285 0001:0011E18C + 1287 0001:0011E1D8 1294 0001:0011E210 1295 0001:0011E22C 1298 0001:0011E233 + 1299 0001:0011E243 1300 0001:0011E251 1301 0001:0011E258 1302 0001:0011E267 + 1303 0001:0011E287 1305 0001:0011E2DC 1306 0001:0011E2DE 1309 0001:0011E31D + 1319 0001:0011E378 1320 0001:0011E37A 1345 0001:0011E37C 1347 0001:0011E39E + 1355 0001:0011E3AD 1356 0001:0011E3B4 1357 0001:0011E3BB 1365 0001:0011E3BF + 1370 0001:0011E3E3 1373 0001:0011E3E7 1374 0001:0011E3F2 1375 0001:0011E3FB + 1376 0001:0011E404 1378 0001:0011E408 1379 0001:0011E437 1389 0001:0011E43C + 1390 0001:0011E443 1393 0001:0011E44A 1394 0001:0011E45C 1395 0001:0011E463 + 1397 0001:0011E472 1409 0001:0011E488 1410 0001:0011E4B0 1411 0001:0011E4BC + 1412 0001:0011E4CD 1413 0001:0011E4DE 1414 0001:0011E4EF 1415 0001:0011E500 + 1416 0001:0011E511 1417 0001:0011E51B 1418 0001:0011E52C 1419 0001:0011E53A + 1420 0001:0011E548 1421 0001:0011E56E 1424 0001:0011E570 1425 0001:0011E57D + 1427 0001:0011E594 1431 0001:0011E5AD 1432 0001:0011E5B8 1433 0001:0011E5C9 + 1434 0001:0011E5D1 1435 0001:0011E5F9 1438 0001:0011E638 1442 0001:0011E654 + 1443 0001:0011E65A 1452 0001:0011E65C 1453 0001:0011E662 1459 0001:0011E664 + 1460 0001:0011E676 1461 0001:0011E67F 1462 0001:0011E6A5 1465 0001:0011E6A8 + 1466 0001:0011E6B3 1467 0001:0011E6BB 1468 0001:0011E6C0 1469 0001:0011E6D7 + 1472 0001:0011E6DC 1473 0001:0011E6DD 1474 0001:0011E6F0 1475 0001:0011E702 + 1478 0001:0011E704 1479 0001:0011E70A 1480 0001:0011E714 1483 0001:0011E718 + 1484 0001:0011E71E 1485 0001:0011E728 1488 0001:0011E72C 1489 0001:0011E732 + 1490 0001:0011E73C 1493 0001:0011E740 1494 0001:0011E746 1495 0001:0011E750 + 1498 0001:0011E754 1499 0001:0011E75A 1500 0001:0011E764 1504 0001:0011E768 + 1505 0001:0011E76B 1509 0001:0011E76C 1510 0001:0011E76F 1518 0001:0011E770 + 1519 0001:0011E773 1522 0001:0011E774 1523 0001:0011E77A 1524 0001:0011E784 + 1529 0001:0011E788 1530 0001:0011E78E 1531 0001:0011E798 1534 0001:0011E79C + 1535 0001:0011E7A2 1536 0001:0011E7AC 1539 0001:0011E7B0 1540 0001:0011E7B6 + 1541 0001:0011E7C0 1544 0001:0011E7C4 1545 0001:0011E7CA 1546 0001:0011E7D4 + 1549 0001:0011E7D8 1550 0001:0011E7DE 1551 0001:0011E7E8 1554 0001:0011E7EC + 1555 0001:0011E7F2 1556 0001:0011E7FC 1559 0001:0011E800 1560 0001:0011E806 + 1561 0001:0011E810 1564 0001:0011E814 1565 0001:0011E81A 1566 0001:0011E824 + 1578 0001:0011E828 1579 0001:0011E82E 1581 0001:0011E834 1582 0001:0011E83B + 1583 0001:0011E84C 1585 0001:0011E855 1586 0001:0011E862 1588 0001:0011E86B + 1589 0001:0011E878 1591 0001:0011E881 1592 0001:0011E885 1593 0001:0011E88A + 1594 0001:0011E89F 1596 0001:0011E8A5 1597 0001:0011E8B6 1598 0001:0011E8BD + 1600 0001:0011E8C2 1616 0001:0011E8D9 1618 0001:0011E938 1618 0001:0011E93F + +Line numbers for CCOWRPCBroker(ccowrpcbroker.pas) segment .text + + 111 0001:0011EABC 112 0001:0011EAE1 113 0001:0011EAEE 114 0001:0011EAFE + 115 0001:0011EB1A 116 0001:0011EB31 117 0001:0011EB42 118 0001:0011EB4C + 119 0001:0011EB5A 122 0001:0011EB6A 123 0001:0011EB82 124 0001:0011EB88 + 126 0001:0011EBA6 127 0001:0011EBB4 129 0001:0011EBC9 130 0001:0011EBD6 + 131 0001:0011EBE3 132 0001:0011EBF0 134 0001:0011EC0E 135 0001:0011EC20 + 136 0001:0011EC29 138 0001:0011EC6A 139 0001:0011EC72 141 0001:0011EC7A + 144 0001:0011EC9C 145 0001:0011ECB7 147 0001:0011ECC9 148 0001:0011ECD7 + 149 0001:0011ECEE 150 0001:0011ED24 151 0001:0011ED4D 152 0001:0011ED5F + 153 0001:0011ED72 154 0001:0011ED84 155 0001:0011ED9D 156 0001:0011EDAC + 157 0001:0011EDB6 158 0001:0011EDC8 159 0001:0011EDE1 160 0001:0011EDE9 + 162 0001:0011EDFD 163 0001:0011EE07 168 0001:0011EE14 169 0001:0011EE24 + 173 0001:0011EE30 174 0001:0011EE38 176 0001:0011EE48 177 0001:0011EE52 + 179 0001:0011EE7A 180 0001:0011EE7C 181 0001:0011EE85 182 0001:0011EE9C + 183 0001:0011EEA7 184 0001:0011EEB1 185 0001:0011EEBB 186 0001:0011EECB + 187 0001:0011EEDA 188 0001:0011EF00 189 0001:0011EF0D 190 0001:0011EF21 + 191 0001:0011EF2D 196 0001:0011EF39 198 0001:0011EF3D 199 0001:0011EF47 + 200 0001:0011EF57 202 0001:0011EF67 203 0001:0011EF7E 208 0001:0011EFC8 + 212 0001:0011F294 213 0001:0011F29A 220 0001:0011F29C 221 0001:0011F2BE + 222 0001:0011F2C2 223 0001:0011F2CF 224 0001:0011F2DD 226 0001:0011F2EB + 227 0001:0011F2F5 228 0001:0011F323 230 0001:0011F329 231 0001:0011F34C + 233 0001:0011F352 236 0001:0011F35B 238 0001:0011F36C 239 0001:0011F3B4 + 254 0001:0011F3E0 257 0001:0011F415 258 0001:0011F426 259 0001:0011F437 + 260 0001:0011F448 261 0001:0011F459 262 0001:0011F465 263 0001:0011F471 + 264 0001:0011F47D 265 0001:0011F487 266 0001:0011F491 267 0001:0011F49D + 270 0001:0011F4A9 272 0001:0011F4AD 274 0001:0011F4BA 275 0001:0011F4EA + 276 0001:0011F521 277 0001:0011F531 281 0001:0011F53B 283 0001:0011F553 + 284 0001:0011F574 286 0001:0011F582 287 0001:0011F58C 288 0001:0011F59C + 293 0001:0011F5B0 294 0001:0011F5BC 296 0001:0011F5C8 297 0001:0011F5D3 + 299 0001:0011F5D9 300 0001:0011F5E3 305 0001:0011F5F3 307 0001:0011F603 + 308 0001:0011F614 310 0001:0011F62F 311 0001:0011F637 312 0001:0011F654 + 313 0001:0011F670 316 0001:0011F67E 317 0001:0011F685 318 0001:0011F697 + 319 0001:0011F69F 322 0001:0011F6A8 324 0001:0011F6C3 325 0001:0011F6D2 + 326 0001:0011F6DF 330 0001:0011F6E5 331 0001:0011F6ED 333 0001:0011F6F3 + 334 0001:0011F6FB 336 0001:0011F709 339 0001:0011F70D 342 0001:0011F720 + 344 0001:0011F733 351 0001:0011F73F 353 0001:0011F753 354 0001:0011F75A + 357 0001:0011F773 358 0001:0011F785 359 0001:0011F791 360 0001:0011F79C + 363 0001:0011F7A6 366 0001:0011F7BF 371 0001:0011F7C7 372 0001:0011F7D2 + 373 0001:0011F7DD 374 0001:0011F7EE 375 0001:0011F7F6 376 0001:0011F81E + 377 0001:0011F833 378 0001:0011F83E 379 0001:0011F84A 382 0001:0011F856 + 383 0001:0011F85A 385 0001:0011F8A6 394 0001:0011F8DC 395 0001:0011F8FD + 396 0001:0011F905 399 0001:0011F913 400 0001:0011F925 401 0001:0011F92C + 402 0001:0011F93C 403 0001:0011F95C 404 0001:0011F96F 405 0001:0011F976 + 406 0001:0011F993 409 0001:0011F9C2 411 0001:0011F9F1 421 0001:0011FA24 + 422 0001:0011FA6F 424 0001:0011FA77 426 0001:0011FA85 428 0001:0011FA8C + 429 0001:0011FA99 430 0001:0011FAA6 431 0001:0011FAB3 432 0001:0011FAD0 + 433 0001:0011FAED 434 0001:0011FAFF 435 0001:0011FB0C 436 0001:0011FB19 + 437 0001:0011FB36 438 0001:0011FB53 439 0001:0011FB65 440 0001:0011FB72 + 441 0001:0011FB7F 442 0001:0011FB9C 443 0001:0011FBB9 445 0001:0011FBCB + 446 0001:0011FBD8 447 0001:0011FBE5 448 0001:0011FC02 449 0001:0011FC1F + 451 0001:0011FC31 452 0001:0011FC3E 453 0001:0011FC4B 454 0001:0011FC68 + 455 0001:0011FC85 457 0001:0011FC97 460 0001:0011FCB1 462 0001:0011FD18 + 470 0001:0011FDBC 471 0001:0011FDE6 472 0001:0011FDED 473 0001:0011FDFA + 474 0001:0011FE02 475 0001:0011FE10 477 0001:0011FE1A 478 0001:0011FE48 + 480 0001:0011FE4E 481 0001:0011FE6F 482 0001:0011FE74 484 0001:0011FE7B + 485 0001:0011FE8B 486 0001:0011FE9B 487 0001:0011FEAB 488 0001:0011FEDB + 489 0001:0011FEE1 490 0001:0011FF06 491 0001:0011FF36 492 0001:0011FF3C + 493 0001:0011FF61 494 0001:0011FF91 495 0001:0011FF97 497 0001:0011FFC9 + 498 0001:0012003E 529 0001:001200CC 530 0001:001200F8 531 0001:001200FA + 533 0001:00120109 534 0001:00120111 536 0001:00120113 537 0001:00120143 + 538 0001:00120149 540 0001:0012016B 541 0001:0012019B 542 0001:001201A1 + 544 0001:001201EB 545 0001:0012021B 546 0001:00120221 548 0001:0012026B + 549 0001:0012029B 550 0001:001202A1 552 0001:001202EB 553 0001:00120321 + 554 0001:00120327 556 0001:00120386 557 0001:0012038C 559 0001:0012045C + 561 0001:0012054C 561 0001:00120553 + +Line numbers for ORNet(ORNet.pas) segment .text + + 67 0001:00120554 70 0001:0012055D 77 0001:00120576 78 0001:00120582 + 79 0001:00120594 80 0001:001205A0 81 0001:001205AC 84 0001:001205B8 + 90 0001:001205BC 91 0001:001205DE 93 0001:001205F1 94 0001:001205F8 + 96 0001:0012065B 105 0001:00120664 106 0001:0012069F 107 0001:001206B1 + 108 0001:001206D3 111 0001:001206D8 112 0001:001206E4 113 0001:0012070E + 115 0001:0012071E 116 0001:00120734 117 0001:0012078D 118 0001:001207C1 + 119 0001:001207EA 120 0001:001207EF 122 0001:0012080E 125 0001:0012082F + 126 0001:00120844 127 0001:00120862 129 0001:0012089F 131 0001:001208B4 + 132 0001:001208C1 134 0001:001208E3 135 0001:00120907 138 0001:00120913 + 139 0001:00120947 140 0001:0012094C 141 0001:0012095D 142 0001:00120978 + 143 0001:0012099B 145 0001:001209B0 146 0001:001209BD 148 0001:001209DB + 149 0001:001209FF 152 0001:00120A08 153 0001:00120A3E 155 0001:00120A54 + 113 0001:00120A58 157 0001:00120A61 158 0001:00120A98 163 0001:00120B4C + 164 0001:00120B6A 165 0001:00120B7A 168 0001:00120B7E 169 0001:00120B8D + 170 0001:00120B91 172 0001:00120BA0 173 0001:00120BC4 175 0001:00120BD6 + 177 0001:00120BFF 181 0001:00120C04 182 0001:00120C24 189 0001:00120C28 + 190 0001:00120C68 191 0001:00120CA0 192 0001:00120CCB 194 0001:00120CD9 + 195 0001:00120CE5 197 0001:00120CEA 199 0001:00120CFA 200 0001:00120D09 + 201 0001:00120D11 203 0001:00120D1D 204 0001:00120D2C 205 0001:00120D51 + 206 0001:00120D63 207 0001:00120D87 208 0001:00120D94 209 0001:00120DA1 + 211 0001:00120DC3 213 0001:00120DE8 214 0001:00120DF7 216 0001:00120E06 + 217 0001:00120E15 220 0001:00120E22 221 0001:00120E5D 223 0001:00120E79 + 225 0001:00120E9E 226 0001:00120EBD 227 0001:00120EDD 228 0001:00120F0B + 223 0001:00120F0C 230 0001:00120F0F 209 0001:00120F10 232 0001:00120F19 + 233 0001:00120F27 237 0001:00120F4C 239 0001:00120F4E 241 0001:00120F57 + 242 0001:00120F67 244 0001:00120F86 260 0001:00120F8B 263 0001:00120FAA + 264 0001:00120FB7 265 0001:00120FC4 266 0001:00120FD7 267 0001:00120FE4 + 268 0001:00120FF4 269 0001:0012105E 273 0001:00121200 274 0001:0012120A + 275 0001:0012120F 279 0001:00121210 280 0001:0012121F 283 0001:00121224 + 284 0001:0012123E 285 0001:0012124D 286 0001:00121258 288 0001:00121264 + 292 0001:00121270 293 0001:00121274 294 0001:00121279 295 0001:00121287 + 297 0001:0012128B 298 0001:00121294 299 0001:001212A0 301 0001:001212AE + 310 0001:001212B4 311 0001:001212D8 312 0001:001212DA 313 0001:001212DE + 314 0001:001212E6 315 0001:001212EE 317 0001:00121302 318 0001:0012132A + 319 0001:00121355 320 0001:0012137D 321 0001:001213B8 322 0001:001213F3 + 315 0001:001213F4 323 0001:001213FB 325 0001:00121407 326 0001:00121412 + 329 0001:0012141B 330 0001:00121429 331 0001:00121443 332 0001:0012144D + 333 0001:0012145C 337 0001:00121486 338 0001:001214A0 341 0001:001214CB + 353 0001:00121540 354 0001:0012154A 355 0001:00121555 356 0001:00121565 + 357 0001:00121570 358 0001:00121575 359 0001:00121583 365 0001:00121588 + 366 0001:0012159C 367 0001:001215A7 368 0001:001215B7 369 0001:001215C4 + 370 0001:001215C9 371 0001:001215FA 372 0001:00121608 378 0001:00121614 + 379 0001:00121622 380 0001:0012163C 381 0001:00121647 382 0001:00121657 + 383 0001:00121664 384 0001:00121669 385 0001:0012167B 386 0001:00121689 + 437 0001:001216B0 438 0001:001216B8 442 0001:001216BC 443 0001:001216C5 + 447 0001:001216C8 448 0001:001216CD 451 0001:001216D0 452 0001:001216D6 + 453 0001:001216FA 465 0001:00121700 466 0001:0012170A 471 0001:00121716 + 473 0001:00121729 474 0001:0012172F 479 0001:00121733 482 0001:00121738 + 487 0001:00121748 507 0001:0012176C 509 0001:0012178D 510 0001:0012179B + 507 0001:001217A4 512 0001:001217AC 514 0001:001217E6 499 0001:001217EC + 500 0001:00121806 501 0001:0012180D 502 0001:0012181C 503 0001:0012182D + 504 0001:00121837 506 0001:00121853 + +Line numbers for ORClasses(ORClasses.pas) segment .text + + 79 0001:00121900 117 0001:00121A2C 171 0001:00121B80 172 0001:00121BA6 + 173 0001:00121BAF 174 0001:00121BC0 175 0001:00121BEA 176 0001:00121BEE + 177 0001:00121C56 192 0001:00121C5C 193 0001:00121C60 194 0001:00121C69 + 195 0001:00121C7C 201 0001:00121C80 202 0001:00121C84 204 0001:00121C8D + 205 0001:00121C94 206 0001:00121C98 209 0001:00121C9E 210 0001:00121CB7 + 211 0001:00121CC3 212 0001:00121CD1 215 0001:00121CDD 220 0001:00121CE0 + 221 0001:00121CF2 222 0001:00121CFB 223 0001:00121D0A 224 0001:00121D30 + 227 0001:00121D34 228 0001:00121D3F 229 0001:00121D49 230 0001:00121D53 + 231 0001:00121D6A 237 0001:00121D70 238 0001:00121D7A 240 0001:00121D8A + 241 0001:00121D96 243 0001:00121D9A 242 0001:00121D9B 244 0001:00121DC1 + 247 0001:00121DCE 248 0001:00121DD3 254 0001:00121DDC 255 0001:00121DE5 + 257 0001:00121DFD 258 0001:00121E09 259 0001:00121E14 261 0001:00121E1F + 267 0001:00121E28 268 0001:00121E2F 269 0001:00121E3E 271 0001:00121E42 + 272 0001:00121E4C 274 0001:00121E56 294 0001:00121E5C 295 0001:00121E6A + 297 0001:00121E78 299 0001:00121E86 300 0001:00121E90 304 0001:00121E9D + 305 0001:00121EAA 306 0001:00121EB7 308 0001:00121EC7 295 0001:00121EC8 + 309 0001:00121ECB 319 0001:00121ED4 320 0001:00121EDA 329 0001:00121EDC + 330 0001:00121EE3 332 0001:00121EF6 333 0001:00121F00 335 0001:00121F0A + 341 0001:00121F10 342 0001:00121F15 343 0001:00121F17 345 0001:00121F24 + 347 0001:00121F28 346 0001:00121F29 348 0001:00121F4D 351 0001:00121F5A + 352 0001:00121F5F 358 0001:00121F64 359 0001:00121F68 360 0001:00121F71 + 362 0001:00121F75 363 0001:00121F7F 365 0001:00121F89 386 0001:00121F8C + 387 0001:00121FA4 388 0001:00121FA7 389 0001:00121FB1 390 0001:00121FD7 + 393 0001:00121FE0 394 0001:00121FEB 395 0001:00121FF5 396 0001:0012200C + 400 0001:00122010 401 0001:00122013 405 0001:00122014 407 0001:0012201A + 408 0001:0012201D 410 0001:0012202F 413 0001:00122030 414 0001:00122036 + 415 0001:0012204E 416 0001:00122057 419 0001:0012205C 420 0001:0012205F + 421 0001:00122077 422 0001:00122081 425 0001:00122084 426 0001:0012208A + 427 0001:00122090 428 0001:0012209F 429 0001:001220AD 432 0001:001220B4 + 433 0001:001220BA 434 0001:001220C0 435 0001:001220CF 436 0001:001220D9 + 439 0001:001220DC 440 0001:001220DF 441 0001:001220E6 442 0001:001220F3 + 446 0001:001220F8 447 0001:001220FF 448 0001:00122106 452 0001:00122108 + 453 0001:00122111 457 0001:00122114 458 0001:0012211F 461 0001:00122120 + 462 0001:00122123 463 0001:0012212F 469 0001:00122134 470 0001:0012213B + 471 0001:0012213F 472 0001:00122146 473 0001:00122150 474 0001:00122156 + 475 0001:00122160 480 0001:00122164 481 0001:0012216F 482 0001:00122177 + 483 0001:0012218E 489 0001:00122194 495 0001:0012219D 497 0001:001221A6 + 498 0001:001221B5 499 0001:001221C3 500 0001:001221E0 502 0001:001221F5 + 505 0001:0012220C 506 0001:00122214 511 0001:00122218 512 0001:00122247 + 513 0001:0012224A 516 0001:0012224D 514 0001:0012224E 517 0001:00122288 + 518 0001:001222C6 526 0001:001222D0 527 0001:001222E0 529 0001:001222E3 + 530 0001:001222E4 531 0001:001222F3 533 0001:00122311 534 0001:00122313 + 535 0001:00122317 536 0001:0012232B 539 0001:00122334 540 0001:00122335 + 541 0001:00122345 545 0001:00122348 546 0001:0012234C 547 0001:0012235A + 550 0001:00122360 551 0001:00122366 552 0001:0012236C 553 0001:0012238D + 554 0001:00122397 560 0001:0012239C 561 0001:001223A2 563 0001:001223B3 + 565 0001:001223C0 566 0001:001223CE 568 0001:001223D9 561 0001:001223DA + 569 0001:001223DD 573 0001:001223E4 574 0001:001223E8 575 0001:001223F6 + 591 0001:001223FC 592 0001:00122424 593 0001:00122429 594 0001:0012242D + 596 0001:00122443 597 0001:00122446 598 0001:0012244F 600 0001:00122459 + 601 0001:0012245F 603 0001:0012248B 604 0001:0012248F 606 0001:00122491 + 594 0001:00122499 607 0001:001224C3 610 0001:001224CC 611 0001:001224CD + 612 0001:001224DD 619 0001:001224E0 620 0001:00122500 623 0001:00122507 + 624 0001:0012250D 626 0001:00122538 627 0001:00122563 628 0001:00122567 + 630 0001:00122572 621 0001:00122573 632 0001:001225A0 636 0001:001225A8 + 637 0001:001225D7 638 0001:001225DA 641 0001:001225DD 639 0001:001225DE + 642 0001:0012261A 643 0001:00122658 653 0001:00122664 655 0001:00122685 + 656 0001:00122688 657 0001:0012268B 659 0001:001226A3 660 0001:001226DB + 661 0001:00122711 663 0001:00122715 664 0001:00122724 665 0001:00122725 + 667 0001:00122726 668 0001:0012272E 669 0001:00122742 670 0001:00122745 + 671 0001:00122770 673 0001:00122778 674 0001:00122798 676 0001:001227AC + 677 0001:001227B7 678 0001:001227CB 680 0001:001227D6 688 0001:001227E4 + 689 0001:00122807 690 0001:00122813 691 0001:00122825 692 0001:0012284E + 696 0001:00122858 697 0001:0012285C 698 0001:00122867 759 0001:0012286C + 761 0001:001228A6 756 0001:001228A8 758 0001:001228AF + +Line numbers for uTIU(uTIU.pas) segment .text + + 108 0001:00122A98 109 0001:00122ABF 110 0001:00122ACA 113 0001:00122B5F + 118 0001:00122B7C 119 0001:00122BA7 120 0001:00122BB2 121 0001:00122BCF + 123 0001:00122C76 124 0001:00122C9A 126 0001:00122CAF 128 0001:00122D73 + 134 0001:00122DA4 135 0001:00122DB6 136 0001:00122DBF 137 0001:00122DE5 + 141 0001:00122DE8 142 0001:00122DF3 143 0001:00122DFB 144 0001:00122E12 + 165 0001:00122E48 165 0001:00122E4F + +Line numbers for fAutoSz(fAutoSz.pas) segment .text + + 46 0001:0012303C 47 0001:00123054 50 0001:00123057 51 0001:00123066 + 52 0001:00123075 53 0001:00123084 55 0001:001230A6 65 0001:001230B0 + 66 0001:001230B9 67 0001:001230C0 68 0001:001230D2 69 0001:001230DF + 70 0001:001230E9 71 0001:001230F4 73 0001:0012311D 74 0001:00123128 + 75 0001:00123139 76 0001:0012314C 71 0001:0012314D 77 0001:00123150 + 78 0001:0012315B 79 0001:00123165 81 0001:0012318E 82 0001:001231AE + 83 0001:001231BB 79 0001:001231BC 84 0001:001231BF 91 0001:001231C8 + 93 0001:001231D1 94 0001:001231DE 95 0001:001231F6 96 0001:0012320F + 98 0001:0012322C 100 0001:00123239 102 0001:00123274 103 0001:0012328B + 105 0001:001232A5 106 0001:001232ED 96 0001:001232EE 107 0001:001232F5 + 114 0001:00123300 116 0001:00123306 118 0001:0012331D 119 0001:00123326 + 120 0001:0012332B 116 0001:0012332C 121 0001:0012332F 122 0001:0012333A + 124 0001:00123370 124 0001:00123377 + +Line numbers for Tabs(tabs.pas) segment .text + + 1443 0001:001233A8 1443 0001:001233AF + +Line numbers for AppEvnts(appevnts.pas) segment .text + + 156 0001:001237F8 157 0001:00123813 158 0001:00123820 159 0001:00123829 + 160 0001:00123851 164 0001:00123858 165 0001:00123868 166 0001:00123881 + 170 0001:00123888 171 0001:00123898 172 0001:001238B1 175 0001:001238B8 + 176 0001:001238C5 177 0001:001238DB 180 0001:001238E0 181 0001:001238ED + 182 0001:00123903 186 0001:00123908 187 0001:00123918 188 0001:00123934 + 189 0001:00123943 193 0001:00123948 194 0001:00123959 195 0001:00123963 + 196 0001:0012397C 197 0001:00123983 200 0001:0012398C 201 0001:0012399A + 202 0001:001239A4 204 0001:001239B2 205 0001:001239C4 206 0001:001239D2 + 207 0001:001239E4 209 0001:001239FD 211 0001:00123A0D 214 0001:00123A14 + 215 0001:00123A24 216 0001:00123A3D 219 0001:00123A44 220 0001:00123A54 + 221 0001:00123A6D 224 0001:00123A74 225 0001:00123A81 226 0001:00123A97 + 229 0001:00123A9C 230 0001:00123AA9 231 0001:00123AC8 235 0001:00123AD0 + 236 0001:00123AE0 237 0001:00123B02 241 0001:00123B08 242 0001:00123B18 + 243 0001:00123B3E 247 0001:00123B48 248 0001:00123B58 249 0001:00123B82 + 252 0001:00123B8C 253 0001:00123B99 254 0001:00123BB8 257 0001:00123BC0 + 258 0001:00123BCD 259 0001:00123BEC 274 0001:00123BF4 275 0001:00123C00 + 276 0001:00123C11 277 0001:00123C1F 280 0001:00123C24 281 0001:00123C2B + 282 0001:00123C31 297 0001:00123C34 298 0001:00123C4F 299 0001:00123C5C + 302 0001:00123C70 303 0001:00123C8A 304 0001:00123CA4 305 0001:00123CBE + 306 0001:00123CD8 307 0001:00123CF2 308 0001:00123D0C 309 0001:00123D26 + 310 0001:00123D40 311 0001:00123D5A 312 0001:00123D74 313 0001:00123D8E + 314 0001:00123DA8 315 0001:00123DC2 316 0001:00123DDC 317 0001:00123DF6 + 319 0001:00123E2B 322 0001:00123E30 323 0001:00123E41 326 0001:00123E48 + 327 0001:00123E5D 328 0001:00123E72 329 0001:00123E87 330 0001:00123E9C + 331 0001:00123EB1 332 0001:00123EC6 333 0001:00123EDB 334 0001:00123EF0 + 335 0001:00123F05 336 0001:00123F1A 337 0001:00123F2F 338 0001:00123F44 + 339 0001:00123F59 340 0001:00123F6E 341 0001:00123F83 343 0001:00123F98 + 344 0001:00123FA3 345 0001:00123FBF 350 0001:00123FC4 351 0001:00123FD3 + 352 0001:00123FDB 353 0001:00123FE9 355 0001:00123FFA 356 0001:00124010 + 357 0001:00124019 353 0001:0012401C 359 0001:0012402F 361 0001:0012403F + 366 0001:00124044 367 0001:00124053 368 0001:0012405B 369 0001:00124069 + 371 0001:0012407A 372 0001:00124090 373 0001:00124099 369 0001:0012409C + 375 0001:001240AF 377 0001:001240BF 382 0001:001240C4 383 0001:001240D0 + 384 0001:001240D8 385 0001:001240E6 387 0001:001240F7 388 0001:0012410A + 389 0001:00124113 385 0001:00124116 391 0001:00124129 393 0001:00124139 + 398 0001:00124140 399 0001:0012414C 400 0001:00124154 401 0001:00124162 + 403 0001:00124173 404 0001:00124186 405 0001:0012418F 401 0001:00124192 + 407 0001:001241A5 409 0001:001241B5 415 0001:001241BC 416 0001:001241CB + 417 0001:001241D3 418 0001:001241D7 419 0001:001241E5 421 0001:001241F6 + 423 0001:00124208 424 0001:0012420C 425 0001:00124222 427 0001:0012422B + 419 0001:0012422E 429 0001:00124241 430 0001:00124247 431 0001:00124259 + 432 0001:00124268 434 0001:00124278 439 0001:0012427C 440 0001:0012428C + 441 0001:00124294 442 0001:001242A2 443 0001:001242A6 445 0001:001242B7 + 446 0001:001242E5 447 0001:001242EE 443 0001:001242F1 449 0001:00124304 + 451 0001:00124317 456 0001:00124320 457 0001:0012432C 458 0001:00124334 + 459 0001:00124342 461 0001:00124353 462 0001:00124366 463 0001:0012436F + 459 0001:00124372 465 0001:00124385 467 0001:00124395 472 0001:0012439C + 473 0001:001243AB 474 0001:001243B3 475 0001:001243C1 477 0001:001243D2 + 478 0001:001243E8 479 0001:001243F1 475 0001:001243F4 481 0001:00124407 + 483 0001:00124417 488 0001:0012441C 489 0001:0012442B 490 0001:00124433 + 491 0001:00124441 493 0001:00124452 494 0001:00124468 495 0001:00124471 + 491 0001:00124474 497 0001:00124487 499 0001:00124497 504 0001:0012449C + 505 0001:001244A8 506 0001:001244B0 507 0001:001244BE 509 0001:001244CF + 510 0001:001244E2 511 0001:001244EB 507 0001:001244EE 513 0001:00124501 + 515 0001:00124511 520 0001:00124518 521 0001:00124524 522 0001:0012452C + 523 0001:0012453A 525 0001:0012454B 526 0001:0012455E 527 0001:00124567 + 523 0001:0012456A 529 0001:0012457D 531 0001:0012458D 536 0001:00124594 + 537 0001:001245A3 538 0001:001245AB 539 0001:001245B9 541 0001:001245CA + 542 0001:001245E0 543 0001:001245E9 539 0001:001245EC 545 0001:001245FF + 547 0001:0012460F 553 0001:00124614 554 0001:00124623 555 0001:0012462B + 556 0001:00124639 558 0001:0012464A 559 0001:00124664 560 0001:0012466D + 556 0001:00124670 562 0001:00124683 564 0001:00124693 570 0001:0012469C + 571 0001:001246AB 572 0001:001246B3 573 0001:001246C1 575 0001:001246D2 + 576 0001:001246F0 577 0001:001246F9 573 0001:001246FC 579 0001:0012470F + 581 0001:0012471F 584 0001:00124728 585 0001:0012472F 587 0001:00124738 + 588 0001:0012473E 589 0001:00124745 592 0001:00124776 593 0001:00124787 + 594 0001:00124798 597 0001:001247A0 600 0001:001247A4 601 0001:001247B0 + 602 0001:001247C4 605 0001:001247C8 606 0001:001247D1 607 0001:001247E0 + 612 0001:001247E4 613 0001:001247F0 614 0001:001247F8 615 0001:00124806 + 617 0001:00124817 618 0001:0012482A 619 0001:00124833 615 0001:00124836 + 621 0001:00124849 623 0001:00124859 628 0001:00124860 629 0001:0012486C + 630 0001:00124874 631 0001:00124882 633 0001:00124893 634 0001:001248A6 + 635 0001:001248AF 631 0001:001248B2 637 0001:001248C5 639 0001:001248D5 + 641 0001:0012490C 642 0001:00124918 643 0001:00124928 644 0001:00124941 + +Line numbers for fPtSelMsg(fPtSelMsg.pas) segment .text + + 45 0001:00124B5C 46 0001:00124B65 48 0001:00124B6A 49 0001:00124B71 + 51 0001:00124B75 52 0001:00124B84 53 0001:00124B9A 54 0001:00124BA1 + 55 0001:00124BBD 56 0001:00124BCF 57 0001:00124BDD 61 0001:00124BEE + 62 0001:00124BFC 64 0001:00124C0B 65 0001:00124C12 69 0001:00124C18 + 71 0001:00124C21 72 0001:00124C2B 74 0001:00124C32 77 0001:00124C34 + 78 0001:00124C4D 79 0001:00124C53 80 0001:00124C5D 81 0001:00124C8D + 82 0001:00124CB6 86 0001:00124D04 87 0001:00124D09 91 0001:00124D0C + 92 0001:00124D0F 95 0001:00124D10 96 0001:00124D13 97 0001:00124D25 + 98 0001:00124D44 99 0001:00124D5B 100 0001:00124D7A 101 0001:00124D91 + 102 0001:00124D98 106 0001:00124D9C 107 0001:00124DA1 108 0001:00124DA8 + 111 0001:00124DAC 112 0001:00124DB4 113 0001:00124DC1 114 0001:00124DD0 + 117 0001:00124DF4 118 0001:00124DFE 119 0001:00124E0C 121 0001:00124E24 + 124 0001:00124E36 128 0001:00124E3C 130 0001:00124E45 131 0001:00124E65 + 132 0001:00124E85 134 0001:00124E8C 137 0001:00124E90 138 0001:00124E93 + 139 0001:00124E9D 140 0001:00124EA9 141 0001:00124EB0 143 0001:00124EE4 + 143 0001:00124EEB + +Line numbers for ORDtTmCal(ORDtTmCal.pas) segment .text + + 25 0001:00125F20 26 0001:00125F4F 27 0001:00125F5E 29 0001:00125F64 + 30 0001:00125F7E 32 0001:00125FBF 33 0001:00125FD9 35 0001:00125FE7 + 38 0001:00126055 41 0001:0012607C 42 0001:00126086 43 0001:00126092 + 44 0001:00126098 45 0001:001260BC 46 0001:001260C2 47 0001:001260E6 + 55 0001:0012611C 55 0001:00126123 + +Line numbers for ORDtTm(ORDtTm.pas) segment .text + + 227 0001:00126D60 228 0001:00126D64 229 0001:00126D68 230 0001:00126D89 + 233 0001:00126D8C 234 0001:00126DA5 235 0001:00126DAE 236 0001:00126DDB + 237 0001:00126E10 240 0001:00126E30 241 0001:00126E36 242 0001:00126E3F + 243 0001:00126E56 244 0001:00126E62 247 0001:00126E68 248 0001:00126E6E + 249 0001:00126E90 250 0001:00126EA8 261 0001:00126EB0 262 0001:00126ECC + 263 0001:00126ED5 264 0001:00126F0F 265 0001:00126F37 272 0001:00126F58 + 273 0001:00126F7A 274 0001:00126F9D 275 0001:00126FC0 276 0001:00126FD5 + 277 0001:00126FF0 278 0001:00127008 279 0001:00127034 280 0001:0012707B + 285 0001:001270C0 286 0001:001270CC 288 0001:001270D4 289 0001:001270E7 + 290 0001:001270F1 291 0001:001270FC 294 0001:00127100 295 0001:0012711F + 296 0001:00127152 297 0001:00127179 301 0001:00127198 302 0001:001271A7 + 303 0001:001271B7 307 0001:001271C0 308 0001:001271CF 309 0001:001271DF + 312 0001:001271E8 313 0001:001271F4 314 0001:00127202 317 0001:00127208 + 318 0001:00127214 319 0001:00127222 323 0001:00127228 324 0001:00127237 + 325 0001:00127247 329 0001:00127250 330 0001:0012725F 331 0001:0012726F + 334 0001:00127278 335 0001:00127284 336 0001:0012729E 337 0001:001272B2 + 338 0001:001272C6 339 0001:001272D6 342 0001:001272DC 343 0001:001272E8 + 345 0001:001272F4 346 0001:00127308 348 0001:0012731C 349 0001:00127326 + 352 0001:0012732C 353 0001:00127338 354 0001:00127360 355 0001:0012736B + 361 0001:00127370 362 0001:0012738F 373 0001:001273A4 375 0001:001273B8 + 376 0001:001273CF 381 0001:001273D9 383 0001:00127414 384 0001:0012743B + 387 0001:00127454 388 0001:00127473 390 0001:0012748D 391 0001:001274B7 + 392 0001:001274DE 395 0001:001274F4 397 0001:00127500 398 0001:00127513 + 403 0001:00127528 404 0001:00127547 406 0001:00127570 407 0001:00127581 + 409 0001:00127586 411 0001:001275A7 412 0001:001275C3 413 0001:0012760C + 414 0001:00127616 416 0001:00127627 417 0001:0012765E 420 0001:001276FC + 421 0001:00127708 422 0001:00127715 427 0001:0012771C 428 0001:00127737 + 429 0001:00127744 430 0001:0012774D 431 0001:0012775B 432 0001:00127782 + 439 0001:00127788 440 0001:001277A5 441 0001:001277BC 444 0001:001277CA + 445 0001:001277EA 447 0001:00127800 448 0001:00127827 449 0001:0012783A + 451 0001:00127847 452 0001:00127857 453 0001:00127867 454 0001:00127877 + 455 0001:00127887 456 0001:00127897 457 0001:001278C0 458 0001:001278E9 + 459 0001:00127903 461 0001:00127924 462 0001:00127934 464 0001:0012793E + 465 0001:00127959 466 0001:0012799C 467 0001:001279A8 468 0001:001279BA + 472 0001:001279E6 474 0001:00127A2B 477 0001:00127A50 478 0001:00127A59 + 479 0001:00127A6E 482 0001:00127A74 483 0001:00127A80 484 0001:00127A89 + 486 0001:00127A92 487 0001:00127A99 489 0001:00127AAB 492 0001:00127AB0 + 493 0001:00127AB7 494 0001:00127AD7 497 0001:00127AE0 498 0001:00127AEC + 499 0001:00127AF5 500 0001:00127B05 506 0001:00127B0C 507 0001:00127B18 + 508 0001:00127B23 509 0001:00127B37 515 0001:00127B3C 516 0001:00127B57 + 517 0001:00127B64 518 0001:00127B7C 519 0001:00127B8D 520 0001:00127BA0 + 521 0001:00127BB3 522 0001:00127BCF 523 0001:00127BDF 524 0001:00127BFD + 525 0001:00127C0D 526 0001:00127C3A 532 0001:00127C74 533 0001:00127C81 + 534 0001:00127C8C 536 0001:00127C98 537 0001:00127CA4 539 0001:00127CAB + 540 0001:00127CB2 542 0001:00127CF1 543 0001:00127CF9 549 0001:00127D00 + 550 0001:00127D0C 552 0001:00127D1E 553 0001:00127D2A 554 0001:00127D42 + 556 0001:00127D48 557 0001:00127D5C 558 0001:00127D67 562 0001:00127D73 + 563 0001:00127D86 564 0001:00127D94 567 0001:00127D9E 573 0001:00127DC4 + 574 0001:00127DE6 575 0001:00127DFD 577 0001:00127E14 578 0001:00127E2B + 580 0001:00127E61 581 0001:00127E72 582 0001:00127E89 583 0001:00127E9A + 585 0001:00127EA6 586 0001:00127EB8 587 0001:00127EC0 589 0001:00127EDC + 590 0001:00127EE4 591 0001:00127EF9 592 0001:00127F26 595 0001:00127F3C + 596 0001:00127F43 597 0001:00127F4B 598 0001:00127F55 601 0001:00127F58 + 602 0001:00127F68 603 0001:00127F76 604 0001:00127F7F 605 0001:00127F91 + 607 0001:00127F99 610 0001:00127FA0 611 0001:00127FBF 612 0001:00127FC7 + 613 0001:00127FF5 614 0001:0012802F 617 0001:00128034 618 0001:00128053 + 619 0001:0012805B 620 0001:00128079 621 0001:001280AD 623 0001:001280C4 + 624 0001:001280E1 626 0001:00128142 629 0001:00128158 630 0001:00128164 + 631 0001:00128170 633 0001:0012817C 634 0001:00128186 635 0001:0012819E + 637 0001:001281C5 638 0001:001281CD 641 0001:00128204 642 0001:0012820B + 643 0001:00128220 644 0001:00128228 647 0001:00128230 648 0001:0012823C + 649 0001:00128248 651 0001:00128254 652 0001:0012827B 654 0001:00128285 + 660 0001:001282BC 661 0001:001282C5 662 0001:001282DE 663 0001:001282EA + 664 0001:001282FC 665 0001:00128301 666 0001:00128306 667 0001:0012831F + 670 0001:00128324 671 0001:0012833E 673 0001:00128356 674 0001:00128384 + 675 0001:001283AD 677 0001:001283FA 680 0001:00128434 681 0001:00128456 + 682 0001:0012845E 684 0001:00128479 685 0001:00128496 686 0001:001284B7 + 687 0001:001284E9 689 0001:0012853D 694 0001:00128598 695 0001:001285B7 + 696 0001:001285C2 697 0001:001285D8 698 0001:0012861B 701 0001:00128620 + 702 0001:0012862C 703 0001:00128638 704 0001:00128650 705 0001:00128660 + 706 0001:00128670 707 0001:00128680 708 0001:00128690 709 0001:001286A4 + 711 0001:001286B2 712 0001:001286C3 715 0001:001286C8 716 0001:001286D4 + 717 0001:001286E5 720 0001:001286EC 721 0001:001286F5 722 0001:00128732 + 728 0001:00128738 729 0001:00128744 730 0001:00128750 733 0001:00128757 + 734 0001:00128764 736 0001:0012877C 759 0001:00128908 760 0001:00128914 + 762 0001:00128922 763 0001:0012892E 764 0001:00128934 766 0001:00128940 + 768 0001:0012894A 773 0001:00128950 774 0001:0012896B 775 0001:00128978 + 776 0001:0012898C 777 0001:00128996 778 0001:001289A0 779 0001:001289AA + 780 0001:001289B4 781 0001:001289E5 784 0001:001289F0 785 0001:00128A01 + 786 0001:00128A10 787 0001:00128A1F 788 0001:00128A2E 789 0001:00128A3D + 790 0001:00128A4C 791 0001:00128A68 794 0001:00128A6C 795 0001:00128A75 + 796 0001:00128A93 802 0001:00128AA8 803 0001:00128AC7 804 0001:00128ACC + 806 0001:00128ADC 809 0001:00128AF9 810 0001:00128B11 812 0001:00128B2C + 807 0001:00128B5F 815 0001:00128B7A 814 0001:00128BA5 816 0001:00128BBE + 817 0001:00128BC4 818 0001:00128BDF 819 0001:00128BEE 821 0001:00128C1A + 827 0001:00128C38 828 0001:00128C58 829 0001:00128C5D 831 0001:00128C6D + 832 0001:00128C81 833 0001:00128C9A 835 0001:00128CA1 836 0001:00128CAD + 838 0001:00128CCF 839 0001:00128CEF 841 0001:00128CF5 842 0001:00128D27 + 843 0001:00128D2F 845 0001:00128D35 833 0001:00128D38 846 0001:00128D42 + 847 0001:00128D48 849 0001:00128D6C 855 0001:00128D80 856 0001:00128D89 + 858 0001:00128D99 859 0001:00128DA3 860 0001:00128DB1 861 0001:00128DC3 + 862 0001:00128DD1 863 0001:00128DE9 864 0001:00128DF5 865 0001:00128DF9 + 866 0001:00128DFE 868 0001:00128E0E 870 0001:00128E1E 871 0001:00128E36 + 872 0001:00128E47 873 0001:00128E57 874 0001:00128E67 875 0001:00128E77 + 876 0001:00128E8A 878 0001:00128EA6 879 0001:00128EBA 880 0001:00128ED1 + 881 0001:00128EDE 882 0001:00128EEF 883 0001:00128F00 884 0001:00128F17 + 886 0001:00128F20 888 0001:00128F30 890 0001:00128F3C 891 0001:00128F54 + 892 0001:00128F65 893 0001:00128F75 894 0001:00128F85 895 0001:00128FA1 + 897 0001:00128FB4 898 0001:00128FC8 899 0001:00128FDF 900 0001:00128FEC + 901 0001:00128FFD 902 0001:0012900E 903 0001:0012901F 904 0001:00129036 + 907 0001:00129041 911 0001:00129052 912 0001:00129061 914 0001:00129070 + 916 0001:00129080 917 0001:00129098 918 0001:001290A9 919 0001:001290B9 + 920 0001:001290CC 921 0001:001290E8 923 0001:00129104 924 0001:00129118 + 925 0001:0012912F 926 0001:0012913A 927 0001:0012914B 928 0001:0012915C + 929 0001:0012916D 930 0001:00129173 932 0001:0012917F 933 0001:00129197 + 934 0001:001291A8 935 0001:001291B8 936 0001:001291CA 937 0001:001291DC + 939 0001:001291F8 940 0001:00129208 941 0001:00129218 942 0001:00129229 + 943 0001:0012923A 944 0001:00129252 945 0001:00129264 947 0001:00129274 + 949 0001:00129280 950 0001:00129298 951 0001:001292A9 952 0001:001292B9 + 953 0001:001292D7 955 0001:001292F3 956 0001:00129302 957 0001:00129310 + 958 0001:00129321 959 0001:00129332 960 0001:00129343 963 0001:0012934E + 964 0001:0012935D 965 0001:0012936B 966 0001:00129376 967 0001:0012937E + 968 0001:00129388 970 0001:0012939D 973 0001:001293C6 976 0001:001293D8 + 979 0001:0012942C 980 0001:00129438 981 0001:0012944D 982 0001:00129452 + 983 0001:0012946E 984 0001:00129473 986 0001:00129481 987 0001:0012948D + 989 0001:00129499 990 0001:001294B8 991 0001:001294C2 993 0001:001294D9 + 995 0001:001294E1 998 0001:001294E8 999 0001:001294F4 1001 0001:00129502 + 1002 0001:0012950E 1004 0001:00129516 1007 0001:0012951C 1008 0001:00129528 + 1009 0001:0012953A 1010 0001:0012953E 1012 0001:0012954C 1013 0001:00129558 + 1014 0001:00129569 1016 0001:00129571 1019 0001:00129578 1020 0001:00129584 + 1022 0001:00129592 1023 0001:0012959E 1025 0001:001295A4 1026 0001:001295AE + 1027 0001:001295B9 1029 0001:001295C4 1031 0001:001295CC 1034 0001:001295D0 + 1035 0001:001295DC 1036 0001:001295F1 1037 0001:001295F6 1038 0001:00129602 + 1039 0001:00129607 1041 0001:00129615 1042 0001:00129621 1043 0001:0012962D + 1044 0001:00129644 1045 0001:0012964C 1047 0001:00129654 1050 0001:00129658 + 1051 0001:00129664 1053 0001:00129672 1054 0001:0012967E 1056 0001:00129686 + 1059 0001:0012968C 1060 0001:001296AB 1062 0001:001296BD 1063 0001:001296C9 + 1064 0001:001296E7 1065 0001:001296F2 1067 0001:00129722 1068 0001:0012972C + 1069 0001:0012973A 1071 0001:00129746 1072 0001:00129759 1076 0001:0012976D + 1077 0001:0012978F 1080 0001:001297B4 1083 0001:001297C6 1084 0001:001297D2 + 1085 0001:001297DC 1086 0001:001297E4 1088 0001:00129809 1091 0001:00129820 + 1092 0001:0012982C 1093 0001:00129843 1094 0001:0012984F 1095 0001:0012985A + 1096 0001:00129862 1097 0001:0012986A 1100 0001:00129870 1101 0001:0012987C + 1102 0001:00129893 1103 0001:0012989F 1104 0001:001298AA 1105 0001:001298B4 + 1106 0001:001298BC 1107 0001:001298C4 1110 0001:001298C8 1111 0001:001298E7 + 1112 0001:001298F7 1113 0001:00129901 1114 0001:0012990F 1115 0001:00129933 + 1116 0001:00129951 1117 0001:0012995C 1118 0001:00129968 1120 0001:0012997C + 1121 0001:00129994 1122 0001:001299A0 1123 0001:001299AA 1124 0001:001299B2 + 1126 0001:001299C7 1128 0001:001299F6 1134 0001:001299FC 1135 0001:00129A05 + 1137 0001:00129A25 1138 0001:00129A40 1139 0001:00129A4C 1140 0001:00129A56 + 1142 0001:00129A7A 1143 0001:00129AA6 1144 0001:00129AC0 1145 0001:00129ACE + 1148 0001:00129AD9 1151 0001:00129AE0 1152 0001:00129AE7 1153 0001:00129AEF + 1154 0001:00129AFB 1155 0001:00129B03 1158 0001:00129B08 1159 0001:00129B0F + 1160 0001:00129B1B 1161 0001:00129B23 1162 0001:00129B2B 1170 0001:00129B30 + 1171 0001:00129B3C 1172 0001:00129B4E 1173 0001:00129B5C 1174 0001:00129B68 + 1175 0001:00129B74 1176 0001:00129B80 1177 0001:00129B9A 1178 0001:00129BB3 + 1180 0001:00129BC4 1182 0001:00129BED 1183 0001:00129BFA 1186 0001:00129C07 + 1187 0001:00129C13 1188 0001:00129C20 1189 0001:00129C2C 1190 0001:00129C39 + 1191 0001:00129C50 1192 0001:00129C5A 1193 0001:00129C64 1195 0001:00129C70 + 1196 0001:00129C7B 1197 0001:00129C86 1198 0001:00129C91 1202 0001:00129CAA + 1203 0001:00129CB5 1204 0001:00129CC0 1207 0001:00129CD8 1209 0001:00129CE8 + 1216 0001:00129CEC 1217 0001:00129D0F 1218 0001:00129D1F 1219 0001:00129D29 + 1220 0001:00129D37 1222 0001:00129D4B 1223 0001:00129D65 1224 0001:00129D72 + 1225 0001:00129D84 1228 0001:00129D8C 1229 0001:00129D99 1230 0001:00129DB7 + 1231 0001:00129DC2 1232 0001:00129DCE 1234 0001:00129DE3 1235 0001:00129E05 + 1236 0001:00129E11 1237 0001:00129E1B 1238 0001:00129E23 1240 0001:00129E38 + 1242 0001:00129E67 1245 0001:00129E80 1246 0001:00129EA6 1248 0001:00129ED1 + 1249 0001:00129EFC 1250 0001:00129F02 1251 0001:00129F18 1253 0001:00129F4D + 1256 0001:00129F70 1257 0001:00129F79 1258 0001:00129F88 1260 0001:00129F92 + 1261 0001:00129FC8 1267 0001:00129FCC 1268 0001:00129FE8 1270 0001:00129FF6 + 1271 0001:0012A000 1275 0001:0012A00F 1276 0001:0012A01A 1278 0001:0012A032 + 1279 0001:0012A040 1280 0001:0012A04E 1281 0001:0012A05C 1282 0001:0012A06A + 1283 0001:0012A07B 1284 0001:0012A086 1285 0001:0012A090 1287 0001:0012A0B8 + 1309 0001:0012A0C4 1310 0001:0012A0CC 1311 0001:0012A0D9 1312 0001:0012A0EB + 1315 0001:0012A0F0 1316 0001:0012A0FC 1317 0001:0012A104 1320 0001:0012A108 + 1321 0001:0012A114 1322 0001:0012A11F 1323 0001:0012A127 1329 0001:0012A12C + 1330 0001:0012A14C 1331 0001:0012A154 1332 0001:0012A16B 1334 0001:0012A199 + 1335 0001:0012A1A5 1337 0001:0012A1B4 1338 0001:0012A1C1 1339 0001:0012A1E6 + 1341 0001:0012A1F5 1342 0001:0012A21A 1344 0001:0012A22C 1345 0001:0012A23C + 1347 0001:0012A26C 1357 0001:0012A2E8 1358 0001:0012A2F4 1360 0001:0012A302 + 1361 0001:0012A30E 1363 0001:0012A316 1365 0001:0012A34C 1366 0001:0012A355 + 1368 0001:0012A363 + +Line numbers for ORDtTmRng(ORDtTmRng.pas) segment .text + + 51 0001:0012A7FC 52 0001:0012A80E 53 0001:0012A817 54 0001:0012A824 + 55 0001:0012A831 56 0001:0012A83E 57 0001:0012A862 62 0001:0012A8C8 + 63 0001:0012A8E6 64 0001:0012A8FD 67 0001:0012A90B 68 0001:0012A91C + 69 0001:0012A92D 71 0001:0012A93B 72 0001:0012A94F 74 0001:0012A971 + 75 0001:0012A97F 76 0001:0012A993 78 0001:0012A9B5 79 0001:0012AA2C + 80 0001:0012AA3C 82 0001:0012AA46 83 0001:0012AA62 84 0001:0012AA7E + 85 0001:0012AA90 86 0001:0012AAA2 87 0001:0012AABE 91 0001:0012AAE7 + 93 0001:0012AB36 96 0001:0012AB40 97 0001:0012AB43 98 0001:0012AB48 + 100 0001:0012AB4C 101 0001:0012AB50 102 0001:0012AB66 103 0001:0012AB7C + 105 0001:0012AB98 108 0001:0012ABC8 109 0001:0012ABCB 110 0001:0012ABD0 + 112 0001:0012ABD4 113 0001:0012ABF0 115 0001:0012ABF9 118 0001:0012AC28 + 119 0001:0012AC3E 120 0001:0012AC4A 121 0001:0012AC83 124 0001:0012AC8C + 125 0001:0012ACA2 126 0001:0012ACAE 127 0001:0012ACE7 130 0001:0012ACF0 + 131 0001:0012ACF6 132 0001:0012AD00 133 0001:0012AD08 136 0001:0012AD0C + 137 0001:0012AD12 138 0001:0012AD1C 139 0001:0012AD24 147 0001:0012AD28 + 148 0001:0012AD3E 149 0001:0012AD4C 151 0001:0012AD52 152 0001:0012AD6F + 154 0001:0012AD71 155 0001:0012AD7F 157 0001:0012AD85 158 0001:0012ADA2 + 160 0001:0012ADA4 161 0001:0012ADCB 165 0001:0012ADF4 166 0001:0012ADFE + 176 0001:0012AE00 177 0001:0012AE04 178 0001:0012AE1A 179 0001:0012AE23 + 180 0001:0012AE3F 181 0001:0012AE4C 182 0001:0012AE62 183 0001:0012AE6B + 184 0001:0012AE87 185 0001:0012AE96 186 0001:0012AE9D 189 0001:0012AEA0 + 190 0001:0012AEA3 191 0001:0012AEAE 192 0001:0012AEB9 194 0001:0012AEEC + 194 0001:0012AEF3 + +Line numbers for uConsults(Consults\uConsults.pas) segment .text + + 157 0001:0012C1E0 158 0001:0012C1F2 159 0001:0012C1FB 160 0001:0012C221 + 164 0001:0012C224 165 0001:0012C22F 166 0001:0012C237 167 0001:0012C24E + 171 0001:0012C254 172 0001:0012C266 173 0001:0012C26F 174 0001:0012C295 + 178 0001:0012C298 179 0001:0012C2A3 180 0001:0012C2AB 181 0001:0012C2C2 + 206 0001:0012C2C8 207 0001:0012C2F3 208 0001:0012C2FE 209 0001:0012C32B + 210 0001:0012C348 211 0001:0012C3A2 212 0001:0012C3BB 213 0001:0012C3D4 + 214 0001:0012C3EA 215 0001:0012C400 219 0001:0012C416 220 0001:0012C44E + 222 0001:0012C462 225 0001:0012C5C8 226 0001:0012C5F4 231 0001:0012C6C8 + 232 0001:0012C6EF 233 0001:0012C6FA 234 0001:0012C76E 235 0001:0012C79A + 240 0001:0012C7AC 241 0001:0012C7D8 242 0001:0012C7E3 243 0001:0012C807 + 246 0001:0012C82A 248 0001:0012C8B7 249 0001:0012C902 251 0001:0012C95B + 252 0001:0012C987 260 0001:0012C9E0 261 0001:0012CA0D 262 0001:0012CA1B + 264 0001:0012CA31 266 0001:0012CA63 267 0001:0012CA82 269 0001:0012CA93 + 270 0001:0012CAB2 271 0001:0012CAD1 272 0001:0012CADD 273 0001:0012CAE2 + 274 0001:0012CB12 275 0001:0012CB24 276 0001:0012CB3D 280 0001:0012CB52 + 281 0001:0012CB68 282 0001:0012CB72 285 0001:0012CB86 262 0001:0012CB87 + 286 0001:0012CB90 287 0001:0012CBCD 295 0001:0012CBF0 296 0001:0012CC25 + 297 0001:0012CC34 298 0001:0012CC43 299 0001:0012CC51 302 0001:0012CC5B + 304 0001:0012CC95 305 0001:0012CCCC 307 0001:0012CCD6 309 0001:0012CCEC + 310 0001:0012CCF9 311 0001:0012CD0C 312 0001:0012CD19 313 0001:0012CD37 + 314 0001:0012CD4A 315 0001:0012CD5D 316 0001:0012CD70 318 0001:0012CD87 + 319 0001:0012CD94 321 0001:0012CDA7 323 0001:0012CDBE 324 0001:0012CDCB + 326 0001:0012CDDE 328 0001:0012CE06 329 0001:0012CE27 330 0001:0012CE48 + 331 0001:0012CE69 332 0001:0012CE8A 333 0001:0012CEA8 334 0001:0012CEC6 + 335 0001:0012CEE4 336 0001:0012CF02 337 0001:0012CF0F 338 0001:0012CF3A + 341 0001:0012CF5C 342 0001:0012CF7D 343 0001:0012CFB3 346 0001:0012CFCE + 347 0001:0012CFEF 348 0001:0012D025 351 0001:0012D03E 352 0001:0012D049 + 307 0001:0012D04A 353 0001:0012D051 354 0001:0012D062 355 0001:0012D06F + 356 0001:0012D0AD 357 0001:0012D0B8 358 0001:0012D0C0 359 0001:0012D0D6 + 358 0001:0012D18F 362 0001:0012D1A3 363 0001:0012D1AB 365 0001:0012D1F5 + 374 0001:0012D3BC 375 0001:0012D415 376 0001:0012D423 378 0001:0012D439 + 379 0001:0012D458 381 0001:0012D469 382 0001:0012D488 383 0001:0012D49F + 384 0001:0012D4AB 385 0001:0012D4B0 386 0001:0012D4E0 387 0001:0012D4F2 + 388 0001:0012D50B 392 0001:0012D520 393 0001:0012D536 394 0001:0012D540 + 395 0001:0012D54A 396 0001:0012D550 399 0001:0012D562 376 0001:0012D563 + 400 0001:0012D56C 401 0001:0012D5B7 404 0001:0012D5CC 407 0001:0012D608 + 409 0001:0012D62E 410 0001:0012D637 411 0001:0012D640 412 0001:0012D666 + 414 0001:0012D68C 415 0001:0012D6AF 416 0001:0012D6F0 417 0001:0012D731 + 422 0001:0012D772 423 0001:0012D78B 425 0001:0012D7AB 426 0001:0012D7B7 + 431 0001:0012D7C8 432 0001:0012D7E5 433 0001:0012D83F 434 0001:0012D84D + 435 0001:0012D85B 436 0001:0012D869 437 0001:0012D877 441 0001:0012D885 + 442 0001:0012D8A7 444 0001:0012D8B5 446 0001:0012D8C1 449 0001:0012D8CB + 451 0001:0012D905 453 0001:0012D9D8 453 0001:0012D9DF + +Line numbers for mVisitRelated(Encounter\mVisitRelated.pas) segment .text + + 69 0001:0012DC78 70 0001:0012DC7B 71 0001:0012DC90 73 0001:0012DC94 + 75 0001:0012DC9B 76 0001:0012DD0D 77 0001:0012DD34 78 0001:0012DD5B + 79 0001:0012DD82 80 0001:0012DDA9 81 0001:0012DDD0 82 0001:0012DDF7 + 83 0001:0012DE1E 84 0001:0012DE45 85 0001:0012DE6C 86 0001:0012DE90 + 87 0001:0012DEB0 88 0001:0012DED0 89 0001:0012DEF0 91 0001:0012DF0E + 93 0001:0012DF20 94 0001:0012DF2B 95 0001:0012DF36 97 0001:0012DF41 + 98 0001:0012DF4C 99 0001:0012DF57 103 0001:0012DF64 104 0001:0012DF7E + 105 0001:0012DF98 106 0001:0012DFB2 108 0001:0012DFCC 109 0001:0012DFE6 + 110 0001:0012E000 111 0001:0012E01A 113 0001:0012E050 114 0001:0012E060 + 116 0001:0012E070 119 0001:0012E074 120 0001:0012E086 122 0001:0012E08F + 123 0001:0012E09F 131 0001:0012E0C6 134 0001:0012E0CC 135 0001:0012E0D3 + 136 0001:0012E0D6 137 0001:0012E0F4 138 0001:0012E111 141 0001:0012E118 + 142 0001:0012E11E 143 0001:0012E13A 144 0001:0012E156 145 0001:0012E172 + 146 0001:0012E18E 147 0001:0012E1AA 148 0001:0012E1C6 149 0001:0012E1E2 + 153 0001:0012E1E8 154 0001:0012E1F4 155 0001:0012E209 156 0001:0012E21E + 157 0001:0012E236 158 0001:0012E24E 159 0001:0012E266 160 0001:0012E27E + 161 0001:0012E296 164 0001:0012E2A0 165 0001:0012E2B2 166 0001:0012E2BF + 168 0001:0012E2C5 169 0001:0012E2DB 170 0001:0012E2F2 171 0001:0012E309 + 172 0001:0012E320 173 0001:0012E337 174 0001:0012E34E 176 0001:0012E365 + 179 0001:0012E36C 180 0001:0012E372 181 0001:0012E389 182 0001:0012E3A0 + 183 0001:0012E3B7 184 0001:0012E3CE 185 0001:0012E3E5 186 0001:0012E3FC + 187 0001:0012E413 191 0001:0012E418 192 0001:0012E421 193 0001:0012E435 + 194 0001:0012E449 195 0001:0012E460 196 0001:0012E477 197 0001:0012E48E + 198 0001:0012E4A5 199 0001:0012E4BC 203 0001:0012E4C4 204 0001:0012E4D1 + 205 0001:0012E4DA 206 0001:0012E4E3 209 0001:0012E4EC 210 0001:0012E4F8 + 211 0001:0012E503 213 0001:0012E513 214 0001:0012E51F 217 0001:0012E52D + 218 0001:0012E539 221 0001:0012E547 222 0001:0012E553 225 0001:0012E55F + 226 0001:0012E568 228 0001:0012E5A0 228 0001:0012E5A7 + +Line numbers for fPCEBaseGrid(Encounter\fPCEBaseGrid.pas) segment .text + + 46 0001:0012E7CC 47 0001:0012E7CF 48 0001:0012E7D6 49 0001:0012E7E8 + 50 0001:0012E7F9 51 0001:0012E803 52 0001:0012E80C 59 0001:0012E810 + 60 0001:0012E838 62 0001:0012E848 63 0001:0012E84F 64 0001:0012E859 + 65 0001:0012E867 67 0001:0012E871 68 0001:0012E879 69 0001:0012E87B + 71 0001:0012E89B 72 0001:0012E89F 73 0001:0012E8AC 74 0001:0012E8D0 + 75 0001:0012E8E8 76 0001:0012E8ED 69 0001:0012E8EE 77 0001:0012E8F1 + 81 0001:0012E907 82 0001:0012E918 83 0001:0012E91D 85 0001:0012E93D + 86 0001:0012E974 87 0001:0012E97A 88 0001:0012E99A 89 0001:0012E99F + 90 0001:0012E9A5 83 0001:0012E9A6 92 0001:0012E9A9 93 0001:0012E9AB + 94 0001:0012E9CB 93 0001:0012E9E5 95 0001:0012E9E8 97 0001:0012EA28 + 100 0001:0012EA5C 106 0001:0012EA70 107 0001:0012EA77 112 0001:0012EA78 + 113 0001:0012EA7F 121 0001:0012EA80 122 0001:0012EAAA 124 0001:0012EAC2 + 125 0001:0012EAED 127 0001:0012EB11 128 0001:0012EB27 130 0001:0012EB4C + 131 0001:0012EB75 132 0001:0012EB79 133 0001:0012EB7B 128 0001:0012EB81 + 134 0001:0012EB84 125 0001:0012EB87 135 0001:0012EB8C 136 0001:0012EB8E + 137 0001:0012EB9C 139 0001:0012EBC2 140 0001:0012EBDD 141 0001:0012EBF6 + 142 0001:0012EC14 143 0001:0012EC18 144 0001:0012EC1A 145 0001:0012EC1E + 146 0001:0012EC20 137 0001:0012EC26 147 0001:0012EC2B 148 0001:0012EC49 + 147 0001:0012EC51 149 0001:0012EC56 150 0001:0012EC5E 151 0001:0012EC7D + 150 0001:0012ECA2 152 0001:0012ECA7 153 0001:0012ECB9 155 0001:0012ECD4 + 156 0001:0012ECDB 157 0001:0012ECE9 159 0001:0012ECF0 161 0001:0012ED23 + 167 0001:0012ED38 168 0001:0012ED3E 169 0001:0012ED41 171 0001:0012ED53 + 172 0001:0012ED6D 174 0001:0012ED7E 175 0001:0012ED80 176 0001:0012ED82 + 171 0001:0012ED83 178 0001:0012ED88 184 0001:0012ED90 185 0001:0012ED98 + 186 0001:0012EDB2 185 0001:0012EDC5 187 0001:0012EDC8 188 0001:0012EDD2 + 194 0001:0012EDD8 195 0001:0012EDDD 197 0001:0012EDEF 198 0001:0012EE09 + 197 0001:0012EE19 200 0001:0012EE1C 201 0001:0012EE26 205 0001:0012EE2C + 211 0001:0012EE30 212 0001:0012EE4A 213 0001:0012EE64 212 0001:0012EEAA + 214 0001:0012EECF 219 0001:0012EED8 220 0001:0012EEF0 221 0001:0012EEFB + 222 0001:0012EF15 221 0001:0012EF45 223 0001:0012EF65 225 0001:0012EF9C + 225 0001:0012EFA3 + +Line numbers for UBAConst(BA\UBAConst.pas) segment .text + + 59 0001:0012EFD4 59 0001:0012EFDB + +Line numbers for rVitals(Vitals\rVitals.pas) segment .text + + 48 0001:0012EFDC 49 0001:0012EFFB 50 0001:0012F006 51 0001:0012F01F + 52 0001:0012F051 55 0001:0012F070 56 0001:0012F0AB 57 0001:0012F0AF + 58 0001:0012F0DF 59 0001:0012F105 60 0001:0012F136 72 0001:0012F16C + 73 0001:0012F191 74 0001:0012F1AA 75 0001:0012F1D0 77 0001:0012F1E2 + 79 0001:0012F2AB 84 0001:0012F310 85 0001:0012F336 86 0001:0012F341 + 87 0001:0012F34C 88 0001:0012F372 89 0001:0012F3A9 94 0001:0012F3C8 + 95 0001:0012F3EA 96 0001:0012F3F5 97 0001:0012F407 98 0001:0012F42D + 99 0001:0012F464 149 0001:0012F484 151 0001:0012F4BE 146 0001:0012F4C0 + 148 0001:0012F4C7 + +Line numbers for mVitBase(Vitals\mVitBase.pas) segment .text + + 58 0001:0012F4F8 58 0001:0012F4FF + +Line numbers for mVitMetric(Vitals\mVitMetric.pas) segment .text + + 54 0001:0012F530 54 0001:0012F537 + +Line numbers for fVitalsDate(Vitals\fVitalsDate.pas) segment .text + + 36 0001:0012F734 37 0001:0012F744 41 0001:0012F754 42 0001:0012F759 + 44 0001:0012F78C 44 0001:0012F793 + +Line numbers for uVitals(Vitals\uVitals.pas) segment .text + + 187 0001:0012FA5C 188 0001:0012FA5E 190 0001:0012FA67 191 0001:0012FA7B + 192 0001:0012FA7F 193 0001:0012FA81 195 0001:0012FA88 198 0001:0012FA9C + 199 0001:0012FAA2 201 0001:0012FAAE 203 0001:0012FABC 205 0001:0012FAC8 + 206 0001:0012FAEB 209 0001:0012FB4C 210 0001:0012FB4F 211 0001:0012FB5A + 212 0001:0012FB6A 213 0001:0012FB7A 214 0001:0012FB8A 215 0001:0012FB9A + 216 0001:0012FBAA 217 0001:0012FBBA 218 0001:0012FBCA 219 0001:0012FBDA + 220 0001:0012FBEA 221 0001:0012FBFA 222 0001:0012FC0A 223 0001:0012FC1A + 226 0001:0012FCFC 227 0001:0012FD1D 228 0001:0012FD36 230 0001:0012FD48 + 232 0001:0012FD5A 233 0001:0012FDA6 236 0001:0012FDB7 238 0001:0012FDC9 + 240 0001:0012FDDB 241 0001:0012FE1D 244 0001:0012FE2B 246 0001:0012FE39 + 254 0001:0012FE4B 255 0001:0012FE8D 258 0001:0012FEC3 261 0001:0012FF44 + 262 0001:0012FF85 263 0001:0012FF8C 264 0001:0012FF99 266 0001:0012FF9F + 267 0001:0012FFB1 269 0001:00130026 275 0001:0013004C 276 0001:00130052 + 277 0001:00130066 278 0001:00130077 279 0001:0013008B 280 0001:0013009A + 293 0001:001300A0 294 0001:001300D2 295 0001:001300F1 296 0001:001300F7 + 297 0001:00130127 299 0001:0013012C 302 0001:001301AF 303 0001:001301B7 + 304 0001:001301C9 306 0001:001301D1 307 0001:001301EC 308 0001:0013020E + 309 0001:00130229 310 0001:00130237 311 0001:00130246 312 0001:00130254 + 313 0001:00130262 314 0001:00130271 315 0001:00130280 317 0001:001302CA + 326 0001:00130304 327 0001:00130331 329 0001:00130334 331 0001:00130343 + 333 0001:00130347 334 0001:00130351 337 0001:00130356 341 0001:00130360 + 342 0001:0013036B 343 0001:0013036F 346 0001:00130372 348 0001:00130376 + 349 0001:00130380 350 0001:00130384 353 0001:00130389 355 0001:00130391 + 356 0001:0013039B 358 0001:001303A3 360 0001:001303A5 361 0001:001303AA + 364 0001:001303B0 365 0001:001303B4 367 0001:001303B8 368 0001:001303BE + 370 0001:001303C4 371 0001:001303DE 375 0001:001303E2 377 0001:001303E7 + 378 0001:001303F3 380 0001:001303F7 381 0001:001303FD 382 0001:0013043C + 388 0001:00130454 389 0001:00130456 390 0001:0013045A 392 0001:0013045E + 393 0001:00130463 394 0001:00130466 396 0001:00130470 398 0001:00130474 + 399 0001:00130475 401 0001:0013047A 402 0001:0013047C 405 0001:0013047E + 394 0001:00130480 406 0001:00130487 416 0001:0013048C 417 0001:001304C2 + 418 0001:001304C6 419 0001:001304CE 420 0001:001304D6 423 0001:001304DE + 425 0001:001304F1 426 0001:001304F8 427 0001:00130501 423 0001:00130502 + 429 0001:00130505 431 0001:0013050F 434 0001:00130516 435 0001:0013052A + 436 0001:0013053F 432 0001:00130540 441 0001:0013054C 442 0001:00130560 + 443 0001:00130575 438 0001:00130576 445 0001:00130596 446 0001:0013059E + 447 0001:001305A4 448 0001:001305B9 449 0001:001305BF 450 0001:001305CE + 456 0001:001305E2 458 0001:001305F5 459 0001:001305FC 460 0001:00130609 + 461 0001:00130621 462 0001:00130626 456 0001:00130627 464 0001:00130661 + 481 0001:0013066C 482 0001:00130698 483 0001:001306B6 485 0001:001306C2 + 487 0001:001306D2 488 0001:001306F5 489 0001:00130709 490 0001:00130716 + 493 0001:0013075F 483 0001:00130766 494 0001:00130799 500 0001:001307F4 + 501 0001:00130828 502 0001:00130832 504 0001:00130843 505 0001:00130851 + 508 0001:0013087F 510 0001:00130889 512 0001:00130893 514 0001:001308A5 + 515 0001:001308BB 518 0001:001308D7 520 0001:001308E6 521 0001:001308F3 + 522 0001:00130900 523 0001:00130921 527 0001:00130957 528 0001:00130964 + 529 0001:00130971 530 0001:00130992 536 0001:001309C8 538 0001:001309D7 + 539 0001:001309E4 540 0001:00130A05 544 0001:00130A3B 545 0001:00130A48 + 546 0001:00130A69 552 0001:00130A9F 554 0001:00130AAE 555 0001:00130ABB + 556 0001:00130ADC 560 0001:00130B0F 561 0001:00130B1C 562 0001:00130B3D + 568 0001:00130BA0 616 0001:00130C68 617 0001:00130C8E 620 0001:00130C97 + 622 0001:00130C9D 623 0001:00130C9F 626 0001:00130CA5 632 0001:00130CFF + 634 0001:00130D07 635 0001:00130D1E 636 0001:00130D2C 637 0001:00130D42 + 638 0001:00130D53 639 0001:00130D61 641 0001:00130D82 645 0001:00130D92 + 618 0001:00130D96 647 0001:00130DDE 652 0001:00130F04 653 0001:00130F09 + 654 0001:00130F0B 655 0001:00130F34 723 0001:00130F38 725 0001:00130FC6 + 720 0001:00130FC8 722 0001:00130FCF + +Line numbers for rMeds(rMeds.pas) segment .text + + 44 0001:00139DEC 45 0001:00139DF5 47 0001:00139DFB 48 0001:00139E11 + 47 0001:00139E33 49 0001:00139E38 53 0001:00139E40 56 0001:00139E44 + 57 0001:00139E68 58 0001:00139EA0 59 0001:00139ED8 62 0001:00139EF4 + 63 0001:00139F13 64 0001:00139F40 65 0001:00139F70 73 0001:00139F8C + 74 0001:00139FA8 75 0001:00139FAD 76 0001:00139FEA 77 0001:0013A04C + 82 0001:0013A104 85 0001:0013A12F 86 0001:0013A150 87 0001:0013A171 + 88 0001:0013A18A 89 0001:0013A1AC 90 0001:0013A1D8 91 0001:0013A1F9 + 93 0001:0013A263 95 0001:0013A26C 96 0001:0013A273 97 0001:0013A29C + 98 0001:0013A2A5 99 0001:0013A2BB 100 0001:0013A2E4 101 0001:0013A2EC + 102 0001:0013A30E 105 0001:0013A364 113 0001:0013A3B0 114 0001:0013A3D2 + 115 0001:0013A3D8 116 0001:0013A3DE 117 0001:0013A3EC 118 0001:0013A3FA + 119 0001:0013A408 120 0001:0013A416 121 0001:0013A431 122 0001:0013A44C + 123 0001:0013A45D 124 0001:0013A46E 125 0001:0013A488 126 0001:0013A4A2 + 127 0001:0013A4B9 128 0001:0013A4D0 129 0001:0013A4FA 137 0001:0013A500 + 139 0001:0013A538 140 0001:0013A546 141 0001:0013A557 142 0001:0013A566 + 143 0001:0013A575 144 0001:0013A57D 145 0001:0013A585 146 0001:0013A58D + 147 0001:0013A5AD 150 0001:0013A5B7 151 0001:0013A5CE 152 0001:0013A5E2 + 153 0001:0013A5F7 156 0001:0013A604 157 0001:0013A639 158 0001:0013A69A + 154 0001:0013A6AE 160 0001:0013A6F0 161 0001:0013A6FF 162 0001:0013A70D + 163 0001:0013A710 164 0001:0013A719 166 0001:0013A722 167 0001:0013A754 + 170 0001:0013A761 171 0001:0013A76A 173 0001:0013A777 148 0001:0013A782 + 175 0001:0013A79C 176 0001:0013A7A9 177 0001:0013A7B6 178 0001:0013A7C5 + 179 0001:0013A7DB 178 0001:0013A7F3 180 0001:0013A7F8 181 0001:0013A805 + 182 0001:0013A812 183 0001:0013A820 184 0001:0013A85D 188 0001:0013A8A0 + 189 0001:0013A8A9 190 0001:0013A8CD 194 0001:0013A8EC 195 0001:0013A8F5 + 196 0001:0013A911 200 0001:0013A930 201 0001:0013A95A 202 0001:0013A9D5 + 205 0001:0013A9F4 206 0001:0013AA18 207 0001:0013AA6E 210 0001:0013AA98 + 211 0001:0013AAB4 212 0001:0013AB16 214 0001:0013AB70 214 0001:0013AB77 + +Line numbers for MSXML_TLB(MSXML_TLB.pas) segment .text + + 2252 0001:0013AC40 2253 0001:0013AC56 2254 0001:0013AC8F 3546 0001:0013ACD4 + 3546 0001:0013ACDB + +Line numbers for uDCSumm(uDCSumm.pas) segment .text + + 72 0001:0013AE28 73 0001:0013AE53 74 0001:0013AE5E 75 0001:0013AEAA + 76 0001:0013AECE 78 0001:0013AEE3 82 0001:0013B01E 88 0001:0013B088 + 89 0001:0013B09A 90 0001:0013B0A3 91 0001:0013B0C9 95 0001:0013B0CC + 96 0001:0013B0D7 97 0001:0013B0DF 98 0001:0013B0F6 100 0001:0013B12C + 100 0001:0013B133 + +Line numbers for rTemplates(Templates\rTemplates.pas) segment .text + + 61 0001:0013B134 62 0001:0013B137 63 0001:0013B157 66 0001:0013B17C + 67 0001:0013B1A4 68 0001:0013B1B2 70 0001:0013B201 71 0001:0013B227 + 74 0001:0013B25C 75 0001:0013B27B 76 0001:0013B290 78 0001:0013B2A4 + 79 0001:0013B2DA 82 0001:0013B30C 83 0001:0013B32B 84 0001:0013B340 + 86 0001:0013B354 87 0001:0013B38A 93 0001:0013B3BC 96 0001:0013B3D9 + 97 0001:0013B3E7 98 0001:0013B401 99 0001:0013B419 100 0001:0013B440 + 101 0001:0013B45B 102 0001:0013B48E 103 0001:0013B4A9 104 0001:0013B4BB + 103 0001:0013B50A 105 0001:0013B50D 106 0001:0013B512 107 0001:0013B526 + 108 0001:0013B53B 110 0001:0013B56F 128 0001:0013B59C 131 0001:0013B5E9 + 132 0001:0013B5F7 133 0001:0013B623 134 0001:0013B63B 135 0001:0013B65A + 136 0001:0013B675 138 0001:0013B68C 139 0001:0013B6AE 140 0001:0013B6B2 + 141 0001:0013B71B 136 0001:0013B71C 142 0001:0013B725 143 0001:0013B72A + 145 0001:0013B773 148 0001:0013B788 149 0001:0013B7AB 150 0001:0013B7D8 + 156 0001:0013B804 159 0001:0013B831 160 0001:0013B83F 161 0001:0013B85B + 162 0001:0013B873 163 0001:0013B892 164 0001:0013B8AD 165 0001:0013B8BF + 164 0001:0013B901 166 0001:0013B904 168 0001:0013B933 174 0001:0013B954 + 175 0001:0013B971 179 0001:0013B981 180 0001:0013B98F 181 0001:0013B9A6 + 182 0001:0013B9BE 183 0001:0013B9D0 182 0001:0013BA0F 184 0001:0013BA12 + 187 0001:0013BA39 191 0001:0013BA54 192 0001:0013BA63 196 0001:0013BA84 + 197 0001:0013BA93 203 0001:0013BABC 206 0001:0013BAD9 207 0001:0013BAE7 + 208 0001:0013BB03 209 0001:0013BB1B 210 0001:0013BB2D 209 0001:0013BB86 + 211 0001:0013BB89 213 0001:0013BBB0 216 0001:0013BBF0 217 0001:0013BC15 + 218 0001:0013BC87 221 0001:0013BCB0 222 0001:0013BCB9 223 0001:0013BCDB + 224 0001:0013BCE8 227 0001:0013BD14 228 0001:0013BD36 229 0001:0013BD4F + 230 0001:0013BD80 233 0001:0013BDA4 234 0001:0013BDBA 235 0001:0013BDBE + 236 0001:0013BDDF 237 0001:0013BE09 240 0001:0013BE34 241 0001:0013BE54 + 242 0001:0013BE83 245 0001:0013BE88 246 0001:0013BE8B 247 0001:0013BEA6 + 250 0001:0013BED0 251 0001:0013BEEF 252 0001:0013BF25 258 0001:0013BF54 + 259 0001:0013BF58 260 0001:0013BF68 261 0001:0013BF77 262 0001:0013BF85 + 263 0001:0013BF9A 264 0001:0013BFA9 265 0001:0013BFB1 267 0001:0013BFD3 + 269 0001:0013BFE3 270 0001:0013BFF0 274 0001:0013C014 275 0001:0013C039 + 276 0001:0013C087 279 0001:0013C0B0 280 0001:0013C0CC 281 0001:0013C117 + 284 0001:0013C144 285 0001:0013C14A 286 0001:0013C160 289 0001:0013C180 + 290 0001:0013C189 291 0001:0013C1A3 294 0001:0013C1C8 295 0001:0013C1D1 + 296 0001:0013C1F3 297 0001:0013C200 302 0001:0013C228 303 0001:0013C231 + 304 0001:0013C253 305 0001:0013C260 308 0001:0013C280 309 0001:0013C286 + 310 0001:0013C29C 311 0001:0013C2A9 314 0001:0013C2C8 315 0001:0013C2CE + 316 0001:0013C2E4 317 0001:0013C2F1 320 0001:0013C318 321 0001:0013C32C + 323 0001:0013C335 324 0001:0013C33C 326 0001:0013C364 327 0001:0013C389 + 330 0001:0013C3B8 331 0001:0013C3C1 332 0001:0013C3D0 335 0001:0013C3EC + 336 0001:0013C408 337 0001:0013C453 340 0001:0013C47C 341 0001:0013C482 + 342 0001:0013C498 345 0001:0013C4B8 346 0001:0013C4BE 347 0001:0013C4D4 + 353 0001:0013C4F4 356 0001:0013C52A 357 0001:0013C538 358 0001:0013C564 + 359 0001:0013C57C 360 0001:0013C58E 359 0001:0013C5D9 361 0001:0013C5DC + 363 0001:0013C5E1 364 0001:0013C61D 368 0001:0013C624 369 0001:0013C62E + 377 0001:0013C64C 378 0001:0013C652 379 0001:0013C66A 380 0001:0013C67E + 383 0001:0013C69C 384 0001:0013C6BB 385 0001:0013C710 390 0001:0013C748 + 393 0001:0013C765 394 0001:0013C773 395 0001:0013C78C 396 0001:0013C7A4 + 397 0001:0013C7B6 396 0001:0013C802 398 0001:0013C805 400 0001:0013C80A + 401 0001:0013C841 409 0001:0013C868 411 0001:0013C86A 412 0001:0013C878 + 413 0001:0013C891 415 0001:0013C8A9 417 0001:0013C8C0 418 0001:0013C8E3 + 421 0001:0013C8E7 422 0001:0013C8EC 423 0001:0013C8F3 424 0001:0013C909 + 425 0001:0013C925 426 0001:0013C95F 427 0001:0013C962 428 0001:0013C968 + 429 0001:0013C96F 430 0001:0013C974 431 0001:0013C99C 432 0001:0013C9A0 + 434 0001:0013C9A2 437 0001:0013C9A7 438 0001:0013C9E4 423 0001:0013C9E5 + 439 0001:0013C9EE 440 0001:0013C9F4 441 0001:0013C9F9 444 0001:0013CA25 + 445 0001:0013CA4C 448 0001:0013CA84 449 0001:0013CA8B 450 0001:0013CA8D + 451 0001:0013CAA5 452 0001:0013CAB9 453 0001:0013CAC3 454 0001:0013CAC7 + 456 0001:0013CB28 456 0001:0013CB2F + +Line numbers for mTemplateFieldButton(Templates\mTemplateFieldButton.pas) segment .text + + 50 0001:0013CD48 51 0001:0013CD68 53 0001:0013CD75 54 0001:0013CD7C + 55 0001:0013CD89 57 0001:0013CD9C 58 0001:0013CDA6 59 0001:0013CDB5 + 61 0001:0013CDCB 63 0001:0013CDE8 64 0001:0013CDEB 66 0001:0013CDED + 59 0001:0013CDEE 67 0001:0013CDF3 68 0001:0013CDF6 69 0001:0013CE06 + 70 0001:0013CE0B 71 0001:0013CE26 72 0001:0013CE30 74 0001:0013CE3E + 76 0001:0013CE72 80 0001:0013CE7C 81 0001:0013CE7F 83 0001:0013CE88 + 84 0001:0013CE8F 86 0001:0013CE9C 90 0001:0013CEA0 91 0001:0013CEAB + 95 0001:0013CEAC 96 0001:0013CEB7 99 0001:0013CEB8 100 0001:0013CECA + 101 0001:0013CED3 102 0001:0013CEE5 103 0001:0013CEF5 104 0001:0013CF05 + 105 0001:0013CF2B 109 0001:0013CF30 110 0001:0013CF33 111 0001:0013CF39 + 112 0001:0013CF4B 116 0001:0013CF54 117 0001:0013CF57 118 0001:0013CF69 + 121 0001:0013CF74 122 0001:0013CF7A 123 0001:0013CF87 127 0001:0013CF8C + 128 0001:0013CF97 133 0001:0013CF98 134 0001:0013CF9F 136 0001:0013CFAE + 137 0001:0013CFD2 139 0001:0013CFE5 142 0001:0013CFEC 143 0001:0013CFF7 + 144 0001:0013D002 145 0001:0013D019 147 0001:0013D04C 147 0001:0013D053 + +Line numbers for uTemplateFields(Templates\uTemplateFields.pas) segment .text + + 299 0001:0013D810 300 0001:0013D828 301 0001:0013D82E 302 0001:0013D83A + 304 0001:0013D8A0 310 0001:0013D8B4 311 0001:0013D8E2 312 0001:0013D8E4 + 313 0001:0013D8EA 314 0001:0013D8F3 315 0001:0013D904 316 0001:0013D913 + 318 0001:0013D917 319 0001:0013D92F 322 0001:0013D940 323 0001:0013D972 + 329 0001:0013D978 330 0001:0013D997 332 0001:0013D9A4 334 0001:0013D9B8 + 335 0001:0013D9D4 337 0001:0013D9D8 338 0001:0013D9E4 340 0001:0013D9F4 + 341 0001:0013DA07 343 0001:0013DA18 344 0001:0013DA26 346 0001:0013DA32 + 332 0001:0013DA33 347 0001:0013DA38 348 0001:0013DA46 350 0001:0013DA6A + 356 0001:0013DA74 357 0001:0013DA8F 360 0001:0013DA93 361 0001:0013DA94 + 363 0001:0013DAB5 364 0001:0013DAB8 366 0001:0013DAE4 367 0001:0013DAF8 + 358 0001:0013DAFB 371 0001:0013DB28 378 0001:0013DB4C 379 0001:0013DB6B + 381 0001:0013DB7D 382 0001:0013DB8A 383 0001:0013DB92 384 0001:0013DB9F + 379 0001:0013DBA0 385 0001:0013DBC0 397 0001:0013DBC8 398 0001:0013DBED + 399 0001:0013DBF7 400 0001:0013DBFE 403 0001:0013DC03 405 0001:0013DC12 + 406 0001:0013DC16 408 0001:0013DC3A 410 0001:0013DC3C 412 0001:0013DC40 + 413 0001:0013DC64 414 0001:0013DC6A 416 0001:0013DC73 419 0001:0013DC7D + 420 0001:0013DC85 422 0001:0013DC87 423 0001:0013DC97 425 0001:0013DC9C + 426 0001:0013DCBD 430 0001:0013DCCE 431 0001:0013DCE2 432 0001:0013DCEF + 430 0001:0013DD02 433 0001:0013DD07 434 0001:0013DD0C 435 0001:0013DD29 + 438 0001:0013DD38 440 0001:0013DD40 441 0001:0013DD4A 443 0001:0013DD6B + 444 0001:0013DD79 445 0001:0013DD7D 446 0001:0013DD89 447 0001:0013DDB7 + 449 0001:0013DE14 450 0001:0013DE35 452 0001:0013DE45 453 0001:0013DE54 + 454 0001:0013DE62 455 0001:0013DE6C 456 0001:0013DE73 458 0001:0013DE8A + 459 0001:0013DE8F 460 0001:0013DE9B 461 0001:0013DEBE 456 0001:0013DEC1 + 463 0001:0013DED1 466 0001:0013DF03 480 0001:0013DF18 481 0001:0013DF2B + 483 0001:0013DF34 484 0001:0013DF5F 485 0001:0013DF76 487 0001:0013DFA4 + 489 0001:0013DFA8 490 0001:0013DFDD 491 0001:0013DFE6 492 0001:0013DFF7 + 493 0001:0013E002 495 0001:0013E00D 496 0001:0013E01D 498 0001:0013E027 + 499 0001:0013E02C 501 0001:0013E052 502 0001:0013E077 503 0001:0013E08A + 505 0001:0013E09D 506 0001:0013E0C3 507 0001:0013E0CB 509 0001:0013E0CF + 510 0001:0013E0DA 511 0001:0013E0E0 512 0001:0013E0F0 513 0001:0013E100 + 517 0001:0013E10F 518 0001:0013E11F 520 0001:0013E12F 522 0001:0013E139 + 523 0001:0013E13D 525 0001:0013E155 526 0001:0013E163 528 0001:0013E167 + 529 0001:0013E16D 531 0001:0013E17A 532 0001:0013E182 533 0001:0013E19E + 534 0001:0013E1A8 535 0001:0013E1B5 536 0001:0013E1D3 538 0001:0013E1DA + 539 0001:0013E1E0 523 0001:0013E1E1 540 0001:0013E1E8 542 0001:0013E1FA + 543 0001:0013E214 547 0001:0013E21B 548 0001:0013E225 549 0001:0013E22B + 550 0001:0013E277 560 0001:0013E2A8 561 0001:0013E2CE 562 0001:0013E2D7 + 563 0001:0013E2E8 564 0001:0013E2F2 566 0001:0013E2F6 567 0001:0013E305 + 569 0001:0013E30D 570 0001:0013E312 572 0001:0013E337 573 0001:0013E358 + 575 0001:0013E367 576 0001:0013E389 578 0001:0013E38D 579 0001:0013E392 + 580 0001:0013E39A 581 0001:0013E3AB 582 0001:0013E3B7 586 0001:0013E3CA + 587 0001:0013E3D9 589 0001:0013E3DB 591 0001:0013E3FC 592 0001:0013E400 + 594 0001:0013E415 595 0001:0013E423 597 0001:0013E427 598 0001:0013E43F + 599 0001:0013E44B 601 0001:0013E44F 602 0001:0013E455 592 0001:0013E456 + 603 0001:0013E45B 605 0001:0013E467 606 0001:0013E485 607 0001:0013E4AF + 611 0001:0013E4B3 612 0001:0013E4F3 615 0001:0013E524 616 0001:0013E542 + 617 0001:0013E573 624 0001:0013E588 625 0001:0013E5AD 626 0001:0013E5B2 + 627 0001:0013E5BB 628 0001:0013E5CC 629 0001:0013E5CF 631 0001:0013E5DF + 633 0001:0013E5E5 635 0001:0013E5FE 636 0001:0013E600 641 0001:0013E602 + 643 0001:0013E61B 644 0001:0013E61D 647 0001:0013E61F 629 0001:0013E620 + 648 0001:0013E623 650 0001:0013E627 651 0001:0013E62D 653 0001:0013E639 + 654 0001:0013E643 655 0001:0013E64D 658 0001:0013E660 659 0001:0013E68F + 669 0001:0013E698 670 0001:0013E6B0 671 0001:0013E6B8 672 0001:0013E6C7 + 674 0001:0013E6D9 675 0001:0013E6E6 677 0001:0013E6F5 678 0001:0013E706 + 680 0001:0013E715 682 0001:0013E71E 684 0001:0013E72E 687 0001:0013E759 + 688 0001:0013E766 690 0001:0013E768 682 0001:0013E769 692 0001:0013E76C + 693 0001:0013E781 694 0001:0013E78E 695 0001:0013E795 696 0001:0013E799 + 697 0001:0013E7C0 706 0001:0013E8C0 707 0001:0013E8E2 708 0001:0013E8EA + 710 0001:0013E8F7 711 0001:0013E8FC 712 0001:0013E90A 714 0001:0013E91A + 715 0001:0013E928 717 0001:0013E92E 718 0001:0013E938 720 0001:0013E93E + 722 0001:0013E944 723 0001:0013E953 724 0001:0013E960 726 0001:0013E96A + 729 0001:0013E992 712 0001:0013E993 731 0001:0013E9A3 733 0001:0013E9A9 + 734 0001:0013E9B4 738 0001:0013E9E6 745 0001:0013EA48 746 0001:0013EA4A + 748 0001:0013EA53 750 0001:0013EA61 751 0001:0013EA6F 753 0001:0013EA79 + 754 0001:0013EA7F 755 0001:0013EA87 757 0001:0013EA8E 748 0001:0013EA8F + 759 0001:0013EA94 765 0001:0013EA98 766 0001:0013EA9B 767 0001:0013EA9D + 769 0001:0013EAA6 771 0001:0013EAB6 773 0001:0013EAC8 774 0001:0013EACA + 776 0001:0013EACC 769 0001:0013EACD 778 0001:0013EAD2 788 0001:0013EAD8 + 789 0001:0013EB0D 790 0001:0013EB15 791 0001:0013EB1A 792 0001:0013EB29 + 793 0001:0013EB37 794 0001:0013EB46 795 0001:0013EB54 796 0001:0013EB5E + 798 0001:0013EB7A 800 0001:0013EB88 801 0001:0013EB97 803 0001:0013EB9F + 804 0001:0013EBA7 805 0001:0013EBC8 807 0001:0013EBCC 808 0001:0013EBD2 + 809 0001:0013EBD9 810 0001:0013EBEA 814 0001:0013EBF9 815 0001:0013EC08 + 817 0001:0013EC0B 819 0001:0013EC15 821 0001:0013EC1B 822 0001:0013EC25 + 824 0001:0013EC29 825 0001:0013EC2F 826 0001:0013EC54 829 0001:0013EC5E + 832 0001:0013EC7A 833 0001:0013EC85 834 0001:0013EC9A 837 0001:0013ECA5 + 838 0001:0013ECAD 796 0001:0013ECB0 840 0001:0013ECC6 842 0001:0013ECD6 + 844 0001:0013ECE0 845 0001:0013ECEC 846 0001:0013ECFB 848 0001:0013ED01 + 849 0001:0013ED07 852 0001:0013ED16 854 0001:0013ED40 855 0001:0013ED4C + 856 0001:0013ED56 858 0001:0013ED80 860 0001:0013ED8C 861 0001:0013ED98 + 862 0001:0013EDA2 863 0001:0013EDAF 865 0001:0013EDBA 867 0001:0013EDC6 + 868 0001:0013EDD5 872 0001:0013EDF1 874 0001:0013EE30 881 0001:0013EFA4 + 882 0001:0013EFCE 883 0001:0013EFD2 884 0001:0013EFE1 885 0001:0013EFEF + 886 0001:0013EFFB 888 0001:0013F00B 889 0001:0013F01A 892 0001:0013F023 + 893 0001:0013F02A 894 0001:0013F034 895 0001:0013F03A 896 0001:0013F047 + 898 0001:0013F06C 901 0001:0013F099 903 0001:0013F0D6 910 0001:0013F154 + 911 0001:0013F172 913 0001:0013F17B 914 0001:0013F19B 915 0001:0013F1B1 + 916 0001:0013F1BB 917 0001:0013F1C5 918 0001:0013F1DC 920 0001:0013F1E6 + 921 0001:0013F223 927 0001:0013F22C 928 0001:0013F24A 929 0001:0013F24E + 930 0001:0013F255 932 0001:0013F26B 933 0001:0013F26E 934 0001:0013F270 + 929 0001:0013F274 935 0001:0013F299 941 0001:0013F2A0 942 0001:0013F2BE + 943 0001:0013F2C2 944 0001:0013F2C9 946 0001:0013F2DF 947 0001:0013F2E2 + 948 0001:0013F2E4 943 0001:0013F2E8 949 0001:0013F30D 958 0001:0013F314 + 959 0001:0013F33A 961 0001:0013F351 962 0001:0013F35E 963 0001:0013F391 + 965 0001:0013F3A0 966 0001:0013F3AD 967 0001:0013F3CA 969 0001:0013F3CF + 970 0001:0013F3EC 973 0001:0013F409 974 0001:0013F424 975 0001:0013F437 + 976 0001:0013F444 959 0001:0013F445 977 0001:0013F47D 986 0001:0013F49C + 987 0001:0013F4D4 988 0001:0013F4D9 990 0001:0013F4E1 991 0001:0013F4EC + 992 0001:0013F505 994 0001:0013F51D 995 0001:0013F533 996 0001:0013F560 + 997 0001:0013F58D 998 0001:0013F5C2 999 0001:0013F5F1 1000 0001:0013F61E + 1001 0001:0013F64B 1002 0001:0013F67A 1003 0001:0013F67F 1005 0001:0013F69B + 1006 0001:0013F6A8 1007 0001:0013F6BB 1008 0001:0013F6D9 1009 0001:0013F6E8 + 1011 0001:0013F702 1012 0001:0013F711 1014 0001:0013F71E 1016 0001:0013F72D + 1017 0001:0013F730 1018 0001:0013F748 1019 0001:0013F750 1021 0001:0013F75B + 1003 0001:0013F75E 1022 0001:0013F767 1023 0001:0013F79C 1024 0001:0013F7D1 + 1025 0001:0013F800 1026 0001:0013F835 1027 0001:0013F870 1028 0001:0013F8AB + 1029 0001:0013F8E6 1030 0001:0013F921 1031 0001:0013F95A 1032 0001:0013F95E + 1035 0001:0013F962 1037 0001:0013F968 1038 0001:0013F96E 1039 0001:0013F98E + 1040 0001:0013F99B 1042 0001:0013F99F 1043 0001:0013F9A8 1044 0001:0013F9B9 + 1045 0001:0013FA10 1048 0001:0013FA70 1049 0001:0013FA76 1050 0001:0013FAB7 + 1055 0001:0013FAC4 1057 0001:0013FAD1 1059 0001:0013FAE4 1060 0001:0013FAEA + 1062 0001:0013FAF6 1064 0001:0013FB03 1066 0001:0013FB0D 1089 0001:0013FB10 + 1090 0001:0013FB13 1091 0001:0013FB1C 1092 0001:0013FB35 1093 0001:0013FB3B + 1096 0001:0013FB40 1097 0001:0013FB43 1098 0001:0013FB4C 1099 0001:0013FB65 + 1100 0001:0013FB6B 1106 0001:0013FB70 1107 0001:0013FB8A 1109 0001:0013FBA2 + 1110 0001:0013FBB2 1111 0001:0013FBB6 1113 0001:0013FC2F 1115 0001:0013FC40 + 1116 0001:0013FC6E 1118 0001:0013FC88 1119 0001:0013FC8F 1120 0001:0013FC96 + 1122 0001:0013FC9B 1125 0001:0013FCE1 1126 0001:0013FCF1 1127 0001:0013FCFE + 1128 0001:0013FD07 1129 0001:0013FD17 1130 0001:0013FD37 1131 0001:0013FD41 + 1133 0001:0013FD4C 1134 0001:0013FD59 1135 0001:0013FD66 1136 0001:0013FD6C + 1137 0001:0013FD7F 1142 0001:0013FD87 1143 0001:0013FD97 1144 0001:0013FDA4 + 1145 0001:0013FDAD 1146 0001:0013FDB7 1147 0001:0013FDC0 1148 0001:0013FDCA + 1150 0001:0013FDD5 1152 0001:0013FDDE 1153 0001:0013FDFA 1154 0001:0013FE12 + 1155 0001:0013FE18 1157 0001:0013FE2B 1159 0001:0013FE3B 1160 0001:0013FE58 + 1164 0001:0013FE66 1165 0001:0013FE7C 1167 0001:0013FE90 1172 0001:0013FE98 + 1173 0001:0013FEA8 1175 0001:0013FEB5 1176 0001:0013FED1 1177 0001:0013FEE9 + 1178 0001:0013FEF9 1179 0001:0013FF19 1180 0001:0013FF1F 1181 0001:0013FF32 + 1186 0001:0013FF3A 1187 0001:0013FF3E 1188 0001:0013FF44 1189 0001:0013FF53 + 1191 0001:0013FF61 1192 0001:0013FF7A 1194 0001:0013FF91 1195 0001:0013FFA1 + 1196 0001:0013FFAE 1197 0001:0013FFC5 1198 0001:0013FFCE 1201 0001:0013FFD5 + 1203 0001:0013FFDE 1204 0001:0013FFEB 1206 0001:0013FFF4 1207 0001:0014001E + 1208 0001:0014002A 1209 0001:00140030 1210 0001:00140045 1211 0001:00140055 + 1212 0001:00140068 1213 0001:0014006D 1214 0001:00140080 1215 0001:0014008D + 1216 0001:00140096 1192 0001:00140097 1218 0001:001400AD 1224 0001:001400BD + 1225 0001:001400C6 1227 0001:001400D7 1228 0001:001400DF 1230 0001:001400EF + 1231 0001:001400FF 1232 0001:0014010C 1233 0001:00140112 1234 0001:00140123 + 1235 0001:00140134 1236 0001:00140145 1237 0001:00140152 1238 0001:0014015B + 1239 0001:0014016E 1243 0001:00140176 1244 0001:00140186 1245 0001:00140193 + 1246 0001:00140199 1247 0001:001401AA 1248 0001:001401BB 1249 0001:001401C4 + 1250 0001:001401D1 1251 0001:001401DA 1253 0001:001401E1 1254 0001:001401E6 + 1255 0001:001401FC 1256 0001:0014020F 1262 0001:00140217 1263 0001:00140227 + 1264 0001:00140234 1265 0001:0014023D 1266 0001:00140243 1267 0001:00140253 + 1268 0001:0014025C 1269 0001:00140265 1270 0001:00140275 1271 0001:00140289 + 1272 0001:00140292 1273 0001:0014029B 1274 0001:001402A2 1275 0001:001402B3 + 1276 0001:001402BD 1277 0001:001402C7 1278 0001:001402D6 1279 0001:001402E5 + 1280 0001:001402F4 1281 0001:001402FA 1282 0001:00140304 1283 0001:0014030E + 1284 0001:00140318 1285 0001:0014032F 1286 0001:00140335 1287 0001:00140348 + 1288 0001:00140352 1289 0001:00140362 1294 0001:0014036A 1295 0001:00140380 + 1297 0001:00140392 1298 0001:001403A2 1299 0001:001403AF 1300 0001:001403B8 + 1301 0001:001403C4 1303 0001:001403CD 1304 0001:001403D6 1306 0001:001403F0 + 1310 0001:001403FF 1311 0001:0014040D 1312 0001:00140438 1313 0001:00140450 + 1315 0001:0014045A 1316 0001:0014046B 1317 0001:00140478 1318 0001:0014047E + 1323 0001:00140486 1324 0001:00140496 1325 0001:001404A3 1326 0001:001404A9 + 1327 0001:001404AF 1328 0001:001404B4 1329 0001:001404B9 1330 0001:001404CC + 1331 0001:001404D2 1332 0001:001404D7 1334 0001:001404DE 1335 0001:001404E3 + 1336 0001:001404E8 1337 0001:001404FB 1338 0001:00140504 1339 0001:0014050D + 1340 0001:0014051E 1341 0001:00140531 1344 0001:00140534 1346 0001:0014053A + 1347 0001:0014053F 1348 0001:00140555 1351 0001:00140589 1354 0001:001405AC + 1355 0001:001405C3 1357 0001:001405DD 1358 0001:001405E8 1359 0001:001405EB + 1360 0001:001405F1 1363 0001:00140615 1364 0001:00140617 1365 0001:0014063E + 1368 0001:00140690 1369 0001:00140696 1370 0001:001406AD 1371 0001:001406B7 + 1374 0001:001406BC 1375 0001:001406C2 1377 0001:001406D9 1378 0001:001406E3 + 1380 0001:001406E7 1383 0001:001406EC 1384 0001:001406F2 1386 0001:0014070A + 1387 0001:0014070D 1389 0001:00140712 1390 0001:00140718 1391 0001:0014071F + 1392 0001:0014072B 1395 0001:00140730 1396 0001:0014073B 1398 0001:0014074A + 1400 0001:00140755 1401 0001:00140761 1402 0001:00140764 1405 0001:0014076D + 1407 0001:00140772 1408 0001:00140779 1410 0001:00140782 1411 0001:00140787 + 1412 0001:0014078E 1413 0001:00140794 1416 0001:0014079D 1417 0001:001407A8 + 1419 0001:001407AC 1428 0001:001407C0 1429 0001:001407C6 1430 0001:001407D6 + 1431 0001:001407D9 1434 0001:001407DC 1435 0001:001407E2 1436 0001:001407F9 + 1437 0001:00140803 1440 0001:00140808 1441 0001:0014080E 1442 0001:00140825 + 1443 0001:0014082F 1446 0001:00140834 1447 0001:0014083A 1448 0001:00140851 + 1449 0001:0014085B 1452 0001:00140860 1453 0001:00140866 1454 0001:00140876 + 1455 0001:00140879 1458 0001:0014087C 1459 0001:00140882 1460 0001:00140899 + 1461 0001:001408A3 1471 0001:001408A8 1472 0001:001408CE 1474 0001:001408DD + 1475 0001:001408EA 1477 0001:001408EF 1478 0001:001408F7 1479 0001:00140907 + 1481 0001:00140913 1482 0001:00140922 1483 0001:00140930 1484 0001:0014093F + 1485 0001:0014094D 1486 0001:0014095B 1488 0001:00140968 1489 0001:00140975 + 1490 0001:00140990 1491 0001:001409C9 1492 0001:001409FA 1493 0001:00140A20 + 1494 0001:00140A3B 1495 0001:00140A56 1496 0001:00140A5D 1498 0001:00140A69 + 1499 0001:00140A74 1500 0001:00140A87 1502 0001:00140AA1 1503 0001:00140AA4 + 1504 0001:00140AA6 1499 0001:00140AA7 1506 0001:00140AAC 1507 0001:00140AD3 + 1508 0001:00140B04 1509 0001:00140B35 1510 0001:00140B5B 1511 0001:00140B81 + 1512 0001:00140BAD 1513 0001:00140BDF 1514 0001:00140C11 1515 0001:00140C43 + 1516 0001:00140C49 1518 0001:00140C58 1520 0001:00140C97 1521 0001:00140C9D + 1523 0001:00140CAC 1525 0001:00140CCD 1527 0001:00140CDD 1528 0001:00140CE3 + 1531 0001:00140CF2 1532 0001:00140CFD 1533 0001:00140D10 1532 0001:00140D63 + 1536 0001:00140D68 1538 0001:00140D78 1539 0001:00140D7E 1542 0001:00140D8D + 1543 0001:00140D98 1544 0001:00140DAB 1543 0001:00140DFE 1548 0001:00140E03 + 1549 0001:00140E11 1550 0001:00140E3C 1552 0001:00140E4C 1553 0001:00140E52 + 1555 0001:00140E73 1556 0001:00140E7B 1557 0001:00140E7F 1558 0001:00140E83 + 1561 0001:00140E89 1563 0001:00140EA9 1566 0001:00140EC6 1569 0001:00140F15 + 1572 0001:001410DC 1573 0001:001410E2 1574 0001:001410E8 1575 0001:001410F3 + 1576 0001:001410FE 1577 0001:00141109 1578 0001:00141114 1579 0001:0014111F + 1580 0001:00141125 1581 0001:00141130 1582 0001:00141136 1583 0001:0014113C + 1584 0001:00141142 1585 0001:00141148 1586 0001:0014114E 1587 0001:00141154 + 1588 0001:0014115A 1589 0001:00141160 1590 0001:00141166 1591 0001:0014116C + 1592 0001:00141177 1599 0001:0014117C 1600 0001:0014119C 1601 0001:001411A2 + 1604 0001:001411AD 1605 0001:001411B4 1608 0001:001411BC 1609 0001:001411C3 + 1610 0001:001411D2 1611 0001:001411E0 1612 0001:001411F6 1614 0001:0014120D + 1615 0001:00141223 1616 0001:00141228 1617 0001:0014122B 1612 0001:0014122E + 1619 0001:0014123E 1623 0001:0014124E 1624 0001:00141254 1625 0001:00141280 + 1628 0001:00141288 1629 0001:00141293 1630 0001:0014129F 1631 0001:001412B6 + 1634 0001:001412BC 1635 0001:001412C2 1636 0001:001412D2 1637 0001:001412D5 + 1640 0001:001412D8 1641 0001:001412DB 1642 0001:001412EA 1645 0001:001412EC + 1646 0001:001412F2 1647 0001:00141302 1648 0001:00141305 1651 0001:00141308 + 1652 0001:0014130E 1653 0001:0014131E 1654 0001:00141321 1657 0001:00141324 + 1658 0001:0014132A 1659 0001:0014133A 1660 0001:0014133D 1663 0001:00141340 + 1664 0001:00141346 1665 0001:00141356 1666 0001:00141359 1669 0001:0014135C + 1670 0001:00141362 1671 0001:00141372 1672 0001:00141375 1675 0001:00141378 + 1676 0001:0014137E 1677 0001:0014138E 1678 0001:00141391 1681 0001:00141394 + 1682 0001:0014139A 1683 0001:001413AA 1684 0001:001413AD 1687 0001:001413B0 + 1688 0001:001413B6 1689 0001:001413CD 1690 0001:001413D7 1694 0001:001413DC + 1695 0001:001413E9 1697 0001:001413EC 1698 0001:001413EF 1701 0001:001413F0 + 1702 0001:001413F6 1703 0001:00141406 1704 0001:00141409 1715 0001:0014140C + 1716 0001:0014140E 1717 0001:00141410 1718 0001:0014141F 1719 0001:00141423 + 1720 0001:0014142F 1721 0001:00141433 1722 0001:0014143A 1730 0001:00141440 + 1731 0001:00141488 1732 0001:00141493 1733 0001:0014149E 1734 0001:001414AD + 1735 0001:001414BC 1736 0001:001414CD 1737 0001:001414DA 1738 0001:001414E5 + 1739 0001:001414F0 1740 0001:00141505 1739 0001:00141530 1741 0001:00141535 + 1742 0001:00141539 1743 0001:00141550 1744 0001:0014155A 1745 0001:00141564 + 1746 0001:0014156E 1747 0001:0014157C 1750 0001:00141586 1751 0001:00141594 + 1752 0001:001415A3 1754 0001:001415AB 1756 0001:001415D0 1757 0001:001415F1 + 1760 0001:00141602 1761 0001:00141607 1762 0001:00141627 1764 0001:0014162F + 1765 0001:00141634 1766 0001:0014163C 1767 0001:0014164D 1768 0001:0014165A + 1769 0001:0014166B 1771 0001:00141675 1772 0001:00141697 1773 0001:001416A3 + 1774 0001:001416CC 1775 0001:001416DD 1779 0001:00141701 1780 0001:0014170F + 1785 0001:00141714 1786 0001:00141723 1787 0001:00141731 1790 0001:00141734 + 1748 0001:00141737 1792 0001:0014179D 1795 0001:001417E8 1796 0001:001417F3 + 1797 0001:001417FA 1798 0001:00141802 1799 0001:00141809 1800 0001:00141813 + 1801 0001:00141819 1803 0001:00141820 1804 0001:00141828 1805 0001:00141830 + 1806 0001:00141838 1807 0001:0014184F 1810 0001:00141854 1811 0001:00141855 + 1812 0001:00141862 1813 0001:0014186C 1827 0001:00141870 1828 0001:00141897 + 1829 0001:0014189E 1831 0001:001418AB 1832 0001:001418BE 1833 0001:001418C6 + 1834 0001:001418D3 1835 0001:001418E1 1836 0001:001418F3 1837 0001:00141912 + 1838 0001:00141926 1840 0001:0014192F 1841 0001:00141943 1844 0001:00141963 + 1847 0001:00141998 1850 0001:001419A0 1851 0001:001419D5 1852 0001:001419DD + 1853 0001:001419E1 1854 0001:001419E8 1856 0001:00141A06 1857 0001:00141A16 + 1859 0001:00141A2A 1860 0001:00141A30 1861 0001:00141A34 1863 0001:00141A3A + 1864 0001:00141A4A 1865 0001:00141A50 1867 0001:00141A83 1869 0001:00141A88 + 1871 0001:00141A9D 1872 0001:00141AAC 1873 0001:00141AB6 1874 0001:00141AC3 + 1875 0001:00141AD6 1876 0001:00141ADF 1878 0001:00141AF2 1880 0001:00141B05 + 1881 0001:00141B13 1882 0001:00141B3E 1883 0001:00141B56 1886 0001:00141B66 + 1890 0001:00141B75 1894 0001:00141B84 1895 0001:00141B95 1897 0001:00141BA4 + 1898 0001:00141BB5 1899 0001:00141BBF 1900 0001:00141BD9 1901 0001:00141BE3 + 1904 0001:00141BF3 1905 0001:00141C04 1907 0001:00141C43 1908 0001:00141C54 + 1910 0001:00141C63 1912 0001:00141C78 1913 0001:00141C84 1916 0001:00141C97 + 1918 0001:00141CB6 1920 0001:00141CBC 1921 0001:00141CC4 1922 0001:00141CD4 + 1926 0001:00141CF5 1927 0001:00141CFD 1928 0001:00141D0D 1930 0001:00141D43 + 1916 0001:00141D46 1931 0001:00141D4F 1935 0001:00141D59 1937 0001:00141D6E + 1938 0001:00141D72 1940 0001:00141D86 1942 0001:00141D8E 1943 0001:00141D94 + 1945 0001:00141DA6 1947 0001:00141DB6 1948 0001:00141DD8 1949 0001:00141DDE + 1951 0001:00141DF1 1955 0001:00141E0E 1957 0001:00141E1F 1958 0001:00141E29 + 1959 0001:00141E43 1960 0001:00141E49 1963 0001:00141E56 1965 0001:00141E67 + 1966 0001:00141E7E 1968 0001:00141E97 1969 0001:00141EB1 1970 0001:00141EB3 + 1965 0001:00141EB6 1973 0001:00141EBB 1974 0001:00141EC1 1854 0001:00141EC4 + 1975 0001:00141ECB 1976 0001:00141ED7 1977 0001:00141F40 1988 0001:00141F88 + 1989 0001:00141FAF 1990 0001:00141FB7 1991 0001:00141FC6 1992 0001:00141FD4 + 1993 0001:00141FE3 1994 0001:00141FF1 1996 0001:0014200F 1997 0001:0014201D + 1999 0001:00142021 2000 0001:00142024 2002 0001:00142032 2003 0001:00142077 + 2006 0001:00142081 1994 0001:00142084 2007 0001:00142087 2009 0001:0014209F + 2012 0001:001420BC 2014 0001:001420EE 2031 0001:00142100 2032 0001:0014211E + 2033 0001:0014212E 2034 0001:0014213E 2035 0001:00142147 2036 0001:00142151 + 2037 0001:0014215E 2038 0001:0014216B 2039 0001:00142191 2042 0001:00142198 + 2043 0001:0014219B 2044 0001:001421A9 2045 0001:001421B5 2046 0001:001421BF + 2047 0001:001421CB 2048 0001:001421D7 2050 0001:001421DC 2051 0001:00142210 + 2052 0001:00142216 2054 0001:00142232 2055 0001:00142236 2057 0001:0014223F + 2058 0001:00142247 2059 0001:0014224E 2060 0001:00142255 2063 0001:0014225A + 2064 0001:0014226D 2065 0001:00142273 2066 0001:00142277 2068 0001:00142296 + 2069 0001:001422A7 2071 0001:001422CC 2072 0001:001422D8 2073 0001:001422DF + 2074 0001:001422F1 2076 0001:001422F9 2080 0001:00142308 2081 0001:00142322 + 2082 0001:00142324 2084 0001:00142330 2085 0001:0014233A 2088 0001:00142347 + 2089 0001:0014234C 2093 0001:00142358 2095 0001:00142361 2096 0001:0014237E + 2097 0001:00142385 2098 0001:00142399 2101 0001:0014239B 2102 0001:0014239C + 2103 0001:001423A0 2105 0001:001423A4 2107 0001:001423AA 2108 0001:001423C7 + 2109 0001:001423CE 2112 0001:001423E4 2078 0001:001423EB 2119 0001:001423FA + 2120 0001:0014240A 2122 0001:00142412 2123 0001:00142422 2124 0001:00142428 + 2126 0001:0014245A 2127 0001:0014245C 2129 0001:00142462 2130 0001:0014248D + 2131 0001:00142493 2132 0001:001424A0 2134 0001:001424A7 2135 0001:001424AA + 2136 0001:001424B4 2137 0001:001424BE 2138 0001:001424C7 2139 0001:001424CF + 2140 0001:001424D3 2142 0001:00142518 2145 0001:0014251E 2066 0001:00142521 + 2146 0001:0014252A 2147 0001:00142531 2148 0001:00142543 2150 0001:00142554 + 2151 0001:0014255D 2152 0001:0014256B 2153 0001:001425A5 2156 0001:001425D0 + 2157 0001:001425D6 2158 0001:001425E5 2165 0001:001425E8 2166 0001:001425ED + 2168 0001:001425F4 2169 0001:00142603 2171 0001:0014261C 2172 0001:00142628 + 2173 0001:00142632 2174 0001:00142636 2175 0001:0014263D 2168 0001:0014263E + 2177 0001:00142643 2184 0001:00142648 2185 0001:0014264B 2186 0001:0014264E + 2188 0001:00142652 2189 0001:00142656 2190 0001:0014265D 2193 0001:00142676 + 2194 0001:00142687 2202 0001:0014268C 2203 0001:001426BF 2204 0001:001426C6 + 2205 0001:001426D4 2206 0001:001426D8 2207 0001:001426DD 2209 0001:001426F6 + 2210 0001:00142705 2212 0001:00142719 2213 0001:0014271D 2214 0001:0014272E + 2216 0001:0014273D 2217 0001:0014274E 2219 0001:0014275D 2220 0001:0014276E + 2222 0001:0014277D 2223 0001:0014278E 2225 0001:001427A1 2226 0001:001427B2 + 2228 0001:001427E0 2229 0001:001427F1 2231 0001:00142800 2233 0001:00142811 + 2234 0001:00142815 2235 0001:0014281B 2236 0001:0014282C 2238 0001:00142841 + 2239 0001:0014286B 2240 0001:00142877 2236 0001:0014287A 2243 0001:00142884 + 2244 0001:00142895 2246 0001:001428A1 2248 0001:001428B2 2249 0001:001428C9 + 2251 0001:001428E2 2252 0001:001428FD 2253 0001:001428FF 2248 0001:00142902 + 2256 0001:00142907 2257 0001:0014290D 2207 0001:0014290E 2259 0001:00142922 + 2261 0001:00142966 2268 0001:0014297C 2269 0001:0014299D 2270 0001:001429AA + 2271 0001:001429B9 2272 0001:001429C7 2273 0001:001429D1 2274 0001:001429E3 + 2273 0001:00142A3D 2276 0001:00142A4D 2278 0001:00142A7F 2281 0001:00142A88 + 2282 0001:00142A8E 2283 0001:00142A98 2284 0001:00142AA1 2289 0001:00142AA4 + 2290 0001:00142AAF 2291 0001:00142AB9 2292 0001:00142AC7 2293 0001:00142ADE + 2306 0001:00142AE4 2307 0001:00142AEE 2308 0001:00142AF6 2310 0001:00142B0A + 2311 0001:00142B16 2312 0001:00142B2B 2313 0001:00142B3C 2314 0001:00142B4A + 2315 0001:00142B5B 2316 0001:00142B66 2317 0001:00142B73 2319 0001:00142B91 + 2322 0001:00142BAB 2325 0001:00142BB0 2326 0001:00142BB3 2327 0001:00142BB7 + 2328 0001:00142BC1 2333 0001:00142BC4 2334 0001:00142BDA 2335 0001:00142C0D + 2338 0001:00142C14 2339 0001:00142C35 2340 0001:00142C43 2341 0001:00142C53 + 2342 0001:00142C61 2343 0001:00142C6E 2344 0001:00142C87 2345 0001:00142C92 + 2346 0001:00142C9B 2347 0001:00142CA6 2348 0001:00142CCE 2355 0001:00142CD8 + 2356 0001:00142D04 2357 0001:00142D13 2358 0001:00142D15 2360 0001:00142D19 + 2361 0001:00142D3D 2363 0001:00142D41 2364 0001:00142D50 2365 0001:00142D55 + 2368 0001:00142D7A 2358 0001:00142D7C 2370 0001:00142D80 2371 0001:00142DB5 + 2376 0001:00142DD8 2377 0001:00142DFD 2379 0001:00142E5D 2373 0001:00142E60 + 2375 0001:00142E67 + +Line numbers for uReports(uReports.pas) segment .text + + 98 0001:00143028 99 0001:0014303A 100 0001:00143060 103 0001:00143064 + 104 0001:0014306F 105 0001:00143082 109 0001:00143088 110 0001:001430CC + 111 0001:001430EA 112 0001:001430F5 113 0001:00143113 114 0001:00143131 + 115 0001:0014314F 116 0001:0014316D 117 0001:00143178 118 0001:00143182 + 119 0001:001431B6 124 0001:001431C0 126 0001:001431EB 127 0001:001431FD + 129 0001:001431FF 130 0001:00143252 131 0001:00143270 132 0001:0014328E + 133 0001:001432AC 134 0001:001432CA 135 0001:001432E8 136 0001:00143311 + 137 0001:0014332F 138 0001:00143358 139 0001:00143376 140 0001:00143394 + 141 0001:001433B2 143 0001:001433D0 144 0001:001433F6 147 0001:00143408 + 148 0001:0014341A 149 0001:00143429 150 0001:00143445 153 0001:00143448 + 155 0001:00143453 156 0001:0014345B 157 0001:00143472 162 0001:00143478 + 163 0001:001434AE 164 0001:001434BC 165 0001:001434D1 166 0001:001434DB + 167 0001:0014350E 172 0001:00143518 173 0001:0014351E 174 0001:00143521 + 175 0001:0014352C 174 0001:0014353B 176 0001:0014353E 177 0001:00143546 + 178 0001:0014354B 184 0001:00143550 185 0001:00143578 186 0001:00143587 + 187 0001:0014358B 188 0001:0014359F 189 0001:001435AD 190 0001:001435B4 + 193 0001:001435B8 196 0001:001435EA 197 0001:0014361F 198 0001:0014362D + 200 0001:00143660 206 0001:00143684 207 0001:001436AF 208 0001:001436C2 + 209 0001:001436D5 210 0001:001436D7 212 0001:001436E7 213 0001:001436FA + 214 0001:00143735 215 0001:00143762 216 0001:00143775 217 0001:001437B0 + 218 0001:001437DD 220 0001:001437F7 221 0001:00143816 222 0001:00143835 + 223 0001:00143857 224 0001:001438A9 231 0001:001438C0 232 0001:001438ED + 233 0001:001438F9 234 0001:00143937 235 0001:00143941 234 0001:00143989 + 236 0001:0014398E 237 0001:00143998 238 0001:001439B3 240 0001:001439C5 + 241 0001:001439EB 243 0001:00143A11 245 0001:00143A23 246 0001:00143A59 + 248 0001:00143A7F 249 0001:00143AC0 254 0001:00143B08 255 0001:00143B2A + 256 0001:00143B2F 257 0001:00143B3B 258 0001:00143B48 259 0001:00143B53 + 260 0001:00143B80 265 0001:00143B88 266 0001:00143BAD 267 0001:00143BBF + 269 0001:00143BC1 270 0001:00143BDE 271 0001:00143BFC 272 0001:00143C1A + 273 0001:00143C38 275 0001:00143C3F 276 0001:00143C65 292 0001:00143C9C + 292 0001:00143CA3 + +Line numbers for SHDocVw(SHDocVw.pas) segment .text + + 2000 0001:00144AF0 2001 0001:00144AF7 2002 0001:00144B05 2003 0001:00144B15 + 2008 0001:00144B18 2009 0001:00144B30 2010 0001:00144B86 2012 0001:00144B9C + 2013 0001:00144BA3 2014 0001:00144BB6 2017 0001:00144BBC 2018 0001:00144BC8 + 2019 0001:00144BD0 2020 0001:00144BE1 2063 0001:00144BE8 2064 0001:00144C07 + 2065 0001:00144C59 3554 0001:00144C90 3554 0001:00144C97 + +Line numbers for rECS(rECS.pas) segment .text + + 40 0001:00144D2C 41 0001:00144D3E 42 0001:00144D46 43 0001:00144D4E + 44 0001:00144D56 45 0001:00144D5E 46 0001:00144D66 47 0001:00144D6E + 48 0001:00144D89 63 0001:00144D8C 64 0001:00144DAB 65 0001:00144DD9 + 66 0001:00144E15 71 0001:00144E40 72 0001:00144E5C 73 0001:00144E78 + 74 0001:00144E9F 77 0001:00144EBC 78 0001:00144EE3 79 0001:00144F2C + 85 0001:00144F4C 86 0001:00144F78 87 0001:00144F80 88 0001:00144F88 + 90 0001:00144F99 91 0001:00144FB8 93 0001:00144FD7 95 0001:00144FE8 + 96 0001:00144FFB 97 0001:00145016 98 0001:00145032 100 0001:00145040 + 101 0001:0014505F 102 0001:001450AD 107 0001:001450CC 110 0001:001450EC + 111 0001:001450F5 112 0001:0014510B 113 0001:0014511E 114 0001:0014513D + 115 0001:0014515C 116 0001:0014517B 117 0001:001451A2 118 0001:001451C1 + 119 0001:001451E0 120 0001:001451FF 121 0001:0014521E 123 0001:00145223 + 124 0001:0014524F 129 0001:001452F0 130 0001:0014530E 133 0001:00145323 + 134 0001:0014532C 135 0001:0014533F 136 0001:00145352 137 0001:00145371 + 138 0001:00145390 139 0001:001453AF 140 0001:001453D6 141 0001:001453F5 + 142 0001:00145414 143 0001:00145433 144 0001:00145452 146 0001:00145474 + 148 0001:00145544 148 0001:0014554B + +Line numbers for fReportsPrint(fReportsPrint.pas) segment .text + + 74 0001:00145860 75 0001:0014588A 76 0001:001458A1 77 0001:001458AF + 80 0001:001458B7 81 0001:001458C7 82 0001:001458D7 83 0001:001458F6 + 84 0001:00145912 86 0001:0014591B 88 0001:0014592E 89 0001:0014593E + 91 0001:0014594E 93 0001:0014595B 94 0001:0014597F 97 0001:00145992 + 99 0001:0014599B 101 0001:001459BE 103 0001:001459CB 106 0001:001459E3 + 108 0001:00145A1D 117 0001:00145AB0 118 0001:00145AD3 119 0001:00145AE2 + 121 0001:00145AEA 122 0001:00145AF2 124 0001:00145AF9 126 0001:00145B19 + 128 0001:00145B89 129 0001:00145BBE 130 0001:00145BEF 132 0001:00145C16 + 133 0001:00145C3B 134 0001:00145C59 135 0001:00145C74 137 0001:00145C81 + 140 0001:00145C87 142 0001:00145C92 124 0001:00145C95 143 0001:00145C9E + 145 0001:00145CAA 146 0001:00145CC1 150 0001:00145CDA 151 0001:00145D06 + 153 0001:00145D33 154 0001:00145D3B 155 0001:00145D3F 156 0001:00145D5D + 157 0001:00145D6D 159 0001:00145D88 160 0001:00145DBC 161 0001:00145DD2 + 163 0001:00145DDD 165 0001:00145DF6 166 0001:00145E12 167 0001:00145E5C + 169 0001:00145E94 172 0001:00145F56 173 0001:00145F72 175 0001:00145F8E + 176 0001:00145FEF 177 0001:00146016 178 0001:00146021 173 0001:00146024 + 181 0001:0014602D 163 0001:0014602E 183 0001:00146035 184 0001:0014604C + 185 0001:0014604F 187 0001:00146055 189 0001:0014605A 191 0001:00146073 + 193 0001:0014608C 194 0001:001460A8 195 0001:001460FE 197 0001:0014613C + 200 0001:00146204 201 0001:00146208 203 0001:00146224 204 0001:0014624C + 205 0001:0014624F 208 0001:00146267 209 0001:001462A8 210 0001:001462AB + 212 0001:001462B1 214 0001:001462B6 216 0001:001462CF 205 0001:001462D2 + 219 0001:001462D7 191 0001:001462D8 220 0001:001462DF 223 0001:001462E5 + 225 0001:001462FE 150 0001:00146301 226 0001:0014630A 227 0001:00146344 + 232 0001:0014642C 233 0001:0014645A 234 0001:0014645E 235 0001:00146461 + 236 0001:00146471 237 0001:0014647C 238 0001:00146482 239 0001:001464BA + 242 0001:001464C4 243 0001:001464E0 245 0001:001464EC 247 0001:00146558 + 250 0001:0014657C 252 0001:00146580 255 0001:00146596 256 0001:0014659F + 257 0001:001465A8 259 0001:001465B4 262 0001:001465B8 264 0001:001465D4 + 266 0001:001465E4 267 0001:0014661C 268 0001:00146654 270 0001:0014667D + 283 0001:00146684 285 0001:001466A6 286 0001:001466AE 287 0001:001466B6 + 288 0001:001466BE 289 0001:001466CD 290 0001:001466D7 293 0001:001466F0 + 294 0001:00146717 296 0001:0014672E 297 0001:0014673B 299 0001:00146746 + 300 0001:00146765 302 0001:00146784 304 0001:001467AB 305 0001:001467BC + 307 0001:001467C1 309 0001:00146800 311 0001:0014681C 313 0001:00146833 + 316 0001:00146889 317 0001:001468B0 319 0001:001468DC 320 0001:001468F9 + 321 0001:00146909 322 0001:00146935 324 0001:00146975 325 0001:0014698C + 326 0001:001469A3 327 0001:001469BE 316 0001:001469BF 331 0001:001469CD + 332 0001:001469F4 334 0001:00146A20 335 0001:00146A3D 336 0001:00146A4D + 337 0001:00146A7F 339 0001:00146AD3 340 0001:00146AEA 341 0001:00146B01 + 342 0001:00146B1C 331 0001:00146B1D 346 0001:00146B2B 348 0001:00146B58 + 349 0001:00146B66 350 0001:00146B6E 351 0001:00146B96 352 0001:00146BAA + 353 0001:00146BB1 354 0001:00146BDE 355 0001:00146BF5 359 0001:00146C19 + 361 0001:00146C6D 362 0001:00146C84 363 0001:00146C9B 368 0001:00146CBF + 370 0001:00146CEC 371 0001:00146CFA 372 0001:00146D02 373 0001:00146D2A + 374 0001:00146D3E 375 0001:00146D45 376 0001:00146D72 377 0001:00146D89 + 381 0001:00146DAD 383 0001:00146E01 384 0001:00146E18 385 0001:00146E2F + 390 0001:00146E53 391 0001:00146E7A 393 0001:00146EA6 394 0001:00146EC3 + 395 0001:00146ED3 396 0001:00146F0B 398 0001:00146F4B 399 0001:00146F62 + 400 0001:00146F79 401 0001:00146F94 390 0001:00146F95 405 0001:00146FA3 + 406 0001:00146FCA 408 0001:00146FF6 409 0001:00147013 410 0001:00147023 + 411 0001:0014705B 413 0001:0014709B 414 0001:001470B2 415 0001:001470C9 + 416 0001:001470E4 405 0001:001470E5 422 0001:001470F3 424 0001:0014711B + 425 0001:00147125 427 0001:0014712A 428 0001:00147141 430 0001:00147181 + 431 0001:00147198 432 0001:001471AF 438 0001:001471D3 440 0001:001471EA + 443 0001:00147240 444 0001:00147267 446 0001:00147293 447 0001:001472B0 + 448 0001:001472C0 449 0001:001472F8 451 0001:0014735F 452 0001:0014738E + 453 0001:001473A9 443 0001:001473AA 457 0001:001473B8 458 0001:001473DF + 460 0001:0014740B 461 0001:00147428 462 0001:00147438 463 0001:00147470 + 465 0001:001474D7 466 0001:00147506 467 0001:00147521 457 0001:00147522 + 471 0001:00147530 473 0001:0014755D 474 0001:00147564 475 0001:0014756C + 476 0001:00147580 477 0001:001475B8 478 0001:001475E7 482 0001:0014760B + 483 0001:00147643 485 0001:0014768F 486 0001:001476BE 491 0001:001476E2 + 493 0001:0014770F 494 0001:00147716 495 0001:0014771E 496 0001:00147732 + 497 0001:0014776A 498 0001:00147799 502 0001:001477BD 503 0001:001477F5 + 505 0001:00147841 506 0001:00147870 511 0001:00147894 512 0001:001478BB + 514 0001:001478E7 515 0001:00147904 516 0001:00147914 517 0001:0014794C + 519 0001:0014799E 520 0001:001479CD 521 0001:001479E8 511 0001:001479E9 + 525 0001:001479F7 526 0001:00147A1E 528 0001:00147A4A 529 0001:00147A67 + 530 0001:00147A77 531 0001:00147AAF 533 0001:00147B16 534 0001:00147B45 + 535 0001:00147B60 525 0001:00147B61 541 0001:00147B6F 542 0001:00147BA7 + 543 0001:00147BBE 545 0001:00147BE6 546 0001:00147BFA 547 0001:00147C4A + 551 0001:00147C5B 553 0001:00147CA7 554 0001:00147CD6 558 0001:00147CF1 + 559 0001:00147D49 560 0001:00147D7D 561 0001:00147D85 562 0001:00147F7F + 567 0001:001480C0 568 0001:001480C5 572 0001:001480C8 574 0001:001480D1 + 575 0001:001480E8 578 0001:001480F0 579 0001:001480F6 580 0001:00148101 + 581 0001:0014810A 583 0001:00148140 583 0001:00148147 + +Line numbers for fReportsAdhocSubItem1(fReportsAdhocSubItem1.pas) segment .text + + 71 0001:001485C8 72 0001:001485CC 73 0001:001485D0 74 0001:001485E9 + 75 0001:001485F7 76 0001:00148601 77 0001:0014860E 78 0001:0014861C + 80 0001:0014862D 82 0001:00148642 85 0001:00148648 86 0001:0014864B + 87 0001:00148656 88 0001:00148664 89 0001:0014866B 94 0001:00148670 + 95 0001:00148693 96 0001:0014869E 97 0001:001486A5 98 0001:001486BC + 99 0001:001486D0 100 0001:001486E7 101 0001:001486FB 102 0001:0014870B + 103 0001:00148718 104 0001:00148728 105 0001:00148732 107 0001:00148751 + 108 0001:00148761 110 0001:00148797 112 0001:001487DD 113 0001:001487F8 + 114 0001:0014883A 112 0001:00148876 115 0001:001488B6 118 0001:00148918 + 119 0001:0014891E 120 0001:0014892E 121 0001:00148937 122 0001:00148944 + 128 0001:0014894C 129 0001:00148957 131 0001:00148966 132 0001:00148982 + 133 0001:00148993 134 0001:001489AD 136 0001:001489B9 140 0001:001489C4 + 141 0001:001489D7 142 0001:00148A02 143 0001:00148A07 144 0001:00148A16 + 146 0001:00148A27 147 0001:00148A2E 149 0001:00148A3D 151 0001:00148A49 + 152 0001:00148A50 154 0001:00148A5F 155 0001:00148A6C 158 0001:00148A78 + 159 0001:00148A7D 160 0001:00148A83 161 0001:00148A8C 162 0001:00148AAA + 164 0001:00148AB9 165 0001:00148AE6 166 0001:00148AF3 171 0001:00148AF8 + 172 0001:00148AFC 173 0001:00148B02 176 0001:00148B2C 177 0001:00148B38 + 178 0001:00148B4B 180 0001:00148B57 185 0001:00148B5C 186 0001:00148B60 + 187 0001:00148B66 189 0001:00148B74 190 0001:00148B80 191 0001:00148B93 + 193 0001:00148B9F 198 0001:00148BA4 199 0001:00148BA9 201 0001:00148BBC + 202 0001:00148BCF 204 0001:00148BD4 207 0001:00148BEC 209 0001:00148BF2 + 210 0001:00148C06 209 0001:00148C15 211 0001:00148C1A 212 0001:00148C2E + 211 0001:00148C3D 214 0001:00148C42 215 0001:00148C4D 216 0001:00148C5A + 218 0001:00148C67 224 0001:00148CF8 225 0001:00148D16 226 0001:00148D18 + 228 0001:00148D2E 229 0001:00148D41 232 0001:00148D46 233 0001:00148D63 + 234 0001:00148D77 232 0001:00148D7D 235 0001:00148D80 237 0001:00148D84 + 238 0001:00148D97 240 0001:00148D9C 242 0001:00148DA5 243 0001:00148DB9 + 244 0001:00148E1A 242 0001:00148E29 245 0001:00148E2E 246 0001:00148E46 + 247 0001:00148E4D 249 0001:00148E5C 250 0001:00148E6C 253 0001:00148E9E + 259 0001:00148F18 260 0001:00148F3C 261 0001:00148F4B 262 0001:00148F53 + 263 0001:00148F70 262 0001:00148F94 264 0001:00148F97 265 0001:00148FAB + 266 0001:00148FED 264 0001:00148FFC 267 0001:00149001 268 0001:00149013 + 269 0001:00149026 270 0001:00149075 267 0001:00149076 271 0001:00149079 + 272 0001:00149083 273 0001:00149094 274 0001:0014909C 275 0001:001490C6 + 281 0001:001490DC 282 0001:001490FF 286 0001:0014911A 287 0001:00149132 + 289 0001:00149137 291 0001:00149146 292 0001:00149159 294 0001:0014915E + 296 0001:00149175 297 0001:00149183 299 0001:001491C1 300 0001:001491CC + 302 0001:001491E3 303 0001:00149205 305 0001:0014920C 300 0001:0014920F + 307 0001:00149216 308 0001:0014924C 310 0001:00149253 314 0001:0014925C + 315 0001:0014928E 317 0001:00149295 318 0001:001492B3 321 0001:001492E4 + 323 0001:001492F8 324 0001:00149305 326 0001:00149312 327 0001:00149342 + 331 0001:00149448 332 0001:00149466 333 0001:0014946C 334 0001:00149472 + 336 0001:0014949E 337 0001:001494BF 338 0001:001494C8 340 0001:001494EF + 344 0001:001494F8 345 0001:00149501 346 0001:0014951F 349 0001:00149528 + 351 0001:0014952B 352 0001:0014953F 355 0001:00149544 357 0001:00149547 + 358 0001:0014955B 360 0001:00149590 360 0001:00149597 + +Line numbers for fReportsAdhocComponent1(fReportsAdhocComponent1.pas) segment .text + + 129 0001:00149D5C 130 0001:00149D60 131 0001:00149D64 132 0001:00149D7D + 133 0001:00149D8B 134 0001:00149D95 135 0001:00149DA2 136 0001:00149DB0 + 138 0001:00149DC1 140 0001:00149DD6 144 0001:00149DDC 145 0001:00149DDF + 146 0001:00149DE6 147 0001:00149DED 148 0001:00149DF7 149 0001:00149DFE + 150 0001:00149E08 151 0001:00149E19 152 0001:00149E31 153 0001:00149E45 + 154 0001:00149E5C 155 0001:00149E70 156 0001:00149E87 157 0001:00149E9B + 158 0001:00149EB3 159 0001:00149EC7 162 0001:00149ECC 164 0001:00149ECF + 165 0001:00149EE9 166 0001:00149F03 167 0001:00149F1D 168 0001:00149F30 + 172 0001:00149F34 173 0001:00149F39 178 0001:00149F3C 179 0001:00149F60 + 180 0001:00149F6A 182 0001:00149F73 184 0001:00149F87 192 0001:00149FA2 + 193 0001:0014A053 194 0001:0014A071 196 0001:0014A0B4 203 0001:0014A17D + 193 0001:0014A180 204 0001:0014A189 184 0001:0014A18A 207 0001:0014A193 + 209 0001:0014A1A3 210 0001:0014A1B7 213 0001:0014A1C1 216 0001:0014A1FB + 221 0001:0014A248 222 0001:0014A24C 223 0001:0014A251 224 0001:0014A263 + 225 0001:0014A267 226 0001:0014A279 227 0001:0014A280 228 0001:0014A292 + 229 0001:0014A297 230 0001:0014A29E 231 0001:0014A2A8 234 0001:0014A2AC + 235 0001:0014A2AF 236 0001:0014A2BC 237 0001:0014A2C9 238 0001:0014A2D6 + 239 0001:0014A2E3 240 0001:0014A2F0 241 0001:0014A2FD 242 0001:0014A30A + 243 0001:0014A317 244 0001:0014A324 245 0001:0014A331 246 0001:0014A33E + 247 0001:0014A34B 248 0001:0014A358 249 0001:0014A365 250 0001:0014A375 + 251 0001:0014A385 252 0001:0014A392 259 0001:0014A394 260 0001:0014A3B6 + 261 0001:0014A3BD 262 0001:0014A3C3 263 0001:0014A3E6 264 0001:0014A3F4 + 265 0001:0014A411 267 0001:0014A41C 268 0001:0014A448 270 0001:0014A456 + 271 0001:0014A463 272 0001:0014A470 275 0001:0014A47D 276 0001:0014A484 + 278 0001:0014A48A 280 0001:0014A4C4 281 0001:0014A4EA 282 0001:0014A4F7 + 284 0001:0014A504 286 0001:0014A53E 288 0001:0014A564 289 0001:0014A571 + 291 0001:0014A57E 293 0001:0014A5B8 295 0001:0014A5DE 296 0001:0014A5EB + 298 0001:0014A5F8 300 0001:0014A632 301 0001:0014A63F 302 0001:0014A64C + 303 0001:0014A673 305 0001:0014A685 307 0001:0014A695 309 0001:0014A6CF + 310 0001:0014A6DC 311 0001:0014A6E9 312 0001:0014A6F6 314 0001:0014A71C + 316 0001:0014A756 317 0001:0014A763 318 0001:0014A770 319 0001:0014A797 + 321 0001:0014A7A9 323 0001:0014A7B9 325 0001:0014A7D8 326 0001:0014A7E6 + 327 0001:0014A7FF 328 0001:0014A83D 326 0001:0014A877 329 0001:0014A87C + 331 0001:0014A890 332 0001:0014A89D 333 0001:0014A8AA 335 0001:0014A8E1 + 341 0001:0014A8F4 342 0001:0014A911 343 0001:0014A918 344 0001:0014A925 + 345 0001:0014A932 346 0001:0014A93F 347 0001:0014A944 348 0001:0014A952 + 350 0001:0014A965 351 0001:0014A978 354 0001:0014A97D 355 0001:0014A997 + 356 0001:0014A9A8 354 0001:0014A9B0 357 0001:0014A9B3 359 0001:0014A9B9 + 360 0001:0014A9CC 362 0001:0014A9D1 364 0001:0014A9DA 365 0001:0014A9EC + 366 0001:0014AA2A 364 0001:0014AA37 367 0001:0014AA3C 368 0001:0014AA56 + 370 0001:0014AA66 371 0001:0014AA73 374 0001:0014AAA2 380 0001:0014AB1C + 381 0001:0014AB21 382 0001:0014AB28 383 0001:0014AB35 384 0001:0014AB42 + 385 0001:0014AB4F 386 0001:0014AB5D 388 0001:0014AB70 389 0001:0014AB83 + 391 0001:0014AB88 394 0001:0014ABA0 396 0001:0014ABA6 397 0001:0014ABB8 + 396 0001:0014ABC5 398 0001:0014ABCA 399 0001:0014ABDE 398 0001:0014ABED + 401 0001:0014ABF2 402 0001:0014ABFF 404 0001:0014AC0C 408 0001:0014ACA4 + 409 0001:0014ACA7 410 0001:0014ACAC 411 0001:0014ACB2 415 0001:0014ACB8 + 416 0001:0014ACBB 417 0001:0014ACC0 418 0001:0014ACC6 426 0001:0014ACCC + 427 0001:0014ACEE 429 0001:0014ACFD 430 0001:0014AD10 432 0001:0014AD15 + 433 0001:0014AD23 434 0001:0014AD2A 435 0001:0014AD3D 436 0001:0014AD43 + 437 0001:0014AD4E 438 0001:0014AD55 440 0001:0014AD5B 441 0001:0014AD93 + 442 0001:0014ADCB 443 0001:0014AE03 444 0001:0014AE46 445 0001:0014AE7E + 446 0001:0014AEB6 447 0001:0014AEEE 448 0001:0014AF26 450 0001:0014AF30 + 453 0001:0014AF36 454 0001:0014AF6B 455 0001:0014AF84 456 0001:0014AF91 + 458 0001:0014AF9E 459 0001:0014AFAD 460 0001:0014AFBC 461 0001:0014AFDD + 463 0001:0014AFED 464 0001:0014B01A 465 0001:0014B046 466 0001:0014B073 + 468 0001:0014B085 469 0001:0014B092 470 0001:0014B09F 471 0001:0014B0AC + 472 0001:0014B0CD 474 0001:0014B0DD 475 0001:0014B0EB 476 0001:0014B0FE + 477 0001:0014B119 478 0001:0014B16A 476 0001:0014B16D 481 0001:0014B175 + 483 0001:0014B182 484 0001:0014B190 485 0001:0014B1AD 486 0001:0014B1FE + 484 0001:0014B247 487 0001:0014B24E 489 0001:0014B261 494 0001:0014B276 + 498 0001:0014B289 500 0001:0014B28F 502 0001:0014B2D1 503 0001:0014B315 + 504 0001:0014B322 506 0001:0014B32F 508 0001:0014B371 509 0001:0014B3B5 + 510 0001:0014B3C2 512 0001:0014B3CF 514 0001:0014B411 515 0001:0014B455 + 516 0001:0014B462 518 0001:0014B46F 520 0001:0014B4B1 521 0001:0014B4BE + 522 0001:0014B4CB 523 0001:0014B510 525 0001:0014B520 527 0001:0014B566 + 528 0001:0014B573 529 0001:0014B580 530 0001:0014B58D 531 0001:0014B5D2 + 532 0001:0014B5E2 533 0001:0014B627 534 0001:0014B637 535 0001:0014B67C + 536 0001:0014B68C 537 0001:0014B6D1 538 0001:0014B6E1 539 0001:0014B726 + 541 0001:0014B736 543 0001:0014B778 544 0001:0014B785 545 0001:0014B792 + 546 0001:0014B7D7 549 0001:0014B7E7 550 0001:0014B7EF 551 0001:0014B81C + 556 0001:0014B93C 557 0001:0014B942 558 0001:0014B951 559 0001:0014B957 + 561 0001:0014B965 562 0001:0014B971 563 0001:0014B984 565 0001:0014B990 + 570 0001:0014B998 571 0001:0014B99E 572 0001:0014B9AD 573 0001:0014B9B3 + 576 0001:0014B9DD 577 0001:0014B9E9 578 0001:0014B9FC 580 0001:0014BA08 + 584 0001:0014BA10 585 0001:0014BA23 587 0001:0014BA4E 588 0001:0014BA53 + 589 0001:0014BA62 591 0001:0014BA73 592 0001:0014BA7A 594 0001:0014BA89 + 596 0001:0014BA95 597 0001:0014BA9C 599 0001:0014BAAB 600 0001:0014BAB8 + 606 0001:0014BAC4 607 0001:0014BACF 609 0001:0014BADE 610 0001:0014BAFA + 611 0001:0014BB0B 612 0001:0014BB25 614 0001:0014BB31 617 0001:0014BB3C + 618 0001:0014BB42 619 0001:0014BB52 620 0001:0014BB5B 621 0001:0014BB68 + 624 0001:0014BB70 625 0001:0014BB75 626 0001:0014BB7B 627 0001:0014BB84 + 628 0001:0014BBA2 630 0001:0014BBB1 631 0001:0014BBDE 632 0001:0014BBEB + 637 0001:0014BBF0 638 0001:0014BC0F 640 0001:0014BC1C 641 0001:0014BC2C + 642 0001:0014BC3C 643 0001:0014BC4D 644 0001:0014BC65 645 0001:0014BCA3 + 643 0001:0014BCE0 646 0001:0014BCE3 648 0001:0014BCFA 649 0001:0014BD0A + 650 0001:0014BD1A 653 0001:0014BD4C 658 0001:0014BD54 659 0001:0014BD6C + 660 0001:0014BD86 661 0001:0014BDA2 662 0001:0014BDCF 659 0001:0014BDD0 + 663 0001:0014BDF0 669 0001:0014BDF8 670 0001:0014BE10 671 0001:0014BE2A + 672 0001:0014BE46 673 0001:0014BE73 670 0001:0014BE74 674 0001:0014BE94 + 679 0001:0014BE9C 680 0001:0014BEB6 681 0001:0014BED3 682 0001:0014BEE3 + 683 0001:0014BEFD 684 0001:0014BF19 685 0001:0014BF46 682 0001:0014BF47 + 686 0001:0014BF6C 692 0001:0014BF94 693 0001:0014BF99 694 0001:0014BFB3 + 695 0001:0014BFCF 696 0001:0014BFE1 698 0001:0014C002 693 0001:0014C022 + 699 0001:0014C025 705 0001:0014C044 706 0001:0014C049 707 0001:0014C063 + 708 0001:0014C07F 709 0001:0014C091 711 0001:0014C0B2 706 0001:0014C0D2 + 712 0001:0014C0D5 717 0001:0014C0F4 718 0001:0014C10C 719 0001:0014C126 + 720 0001:0014C142 718 0001:0014C170 721 0001:0014C190 725 0001:0014C198 + 730 0001:0014C1B3 731 0001:0014C1B9 732 0001:0014C1BF 734 0001:0014C1EB + 735 0001:0014C20C 737 0001:0014C237 744 0001:0014C240 745 0001:0014C263 + 746 0001:0014C271 748 0001:0014C27F 749 0001:0014C286 751 0001:0014C29C + 752 0001:0014C2A8 753 0001:0014C2F1 754 0001:0014C2FD 749 0001:0014C2FE + 756 0001:0014C308 758 0001:0014C316 759 0001:0014C31D 761 0001:0014C333 + 762 0001:0014C33F 763 0001:0014C388 764 0001:0014C394 759 0001:0014C395 + 766 0001:0014C39F 768 0001:0014C3AD 769 0001:0014C3B4 771 0001:0014C3C6 + 772 0001:0014C3D2 773 0001:0014C41B 774 0001:0014C427 769 0001:0014C428 + 776 0001:0014C42D 777 0001:0014C437 778 0001:0014C468 781 0001:0014C488 + 783 0001:0014C48B 784 0001:0014C496 785 0001:0014C4A1 786 0001:0014C4B4 + 787 0001:0014C4C2 790 0001:0014C4C4 792 0001:0014C4C7 793 0001:0014C4D0 + 794 0001:0014C4DB 795 0001:0014C4EE 796 0001:0014C4FC 799 0001:0014C500 + 801 0001:0014C503 802 0001:0014C50E 803 0001:0014C519 804 0001:0014C52C + 805 0001:0014C53A 808 0001:0014C53C 810 0001:0014C53F 811 0001:0014C553 + 814 0001:0014C558 816 0001:0014C55B 817 0001:0014C56F 819 0001:0014C5B0 + 819 0001:0014C5B7 + +Line numbers for MSHTML(MSHTML.pas) segment .text + + 26988 0001:0014C650 26988 0001:0014C657 + +Line numbers for DateUtils(DateUtils.pas) segment .text + + 465 0001:0014D144 466 0001:0014D152 467 0001:0014D18C 748 0001:0014D190 + 749 0001:0014D196 750 0001:0014D1B9 910 0001:0014D1C0 911 0001:0014D1C4 + 912 0001:0014D1E0 925 0001:0014D1E8 926 0001:0014D1EE 927 0001:0014D210 + 930 0001:0014D218 931 0001:0014D21E 932 0001:0014D240 936 0001:0014D248 + 937 0001:0014D24E 938 0001:0014D259 940 0001:0014D265 941 0001:0014D272 + 959 0001:0014D278 960 0001:0014D27E 961 0001:0014D296 974 0001:0014D29C + 975 0001:0014D2A2 976 0001:0014D2C0 979 0001:0014D2CC 980 0001:0014D2D2 + 981 0001:0014D2F0 998 0001:0014D2FC 999 0001:0014D305 1000 0001:0014D312 + 1016 0001:0014D318 1017 0001:0014D31E 1018 0001:0014D339 1523 0001:0014D374 + 1523 0001:0014D37B + +Line numbers for uGraphs(uGraphs.pas) segment .text + + 180 0001:0014E814 181 0001:0014E83A 184 0001:0014E848 185 0001:0014E866 + 186 0001:0014E886 187 0001:0014E8A9 188 0001:0014E8CC 189 0001:0014E8EF + 190 0001:0014E8F6 191 0001:0014E919 192 0001:0014E92E 193 0001:0014E943 + 194 0001:0014E958 195 0001:0014E96D 196 0001:0014E982 197 0001:0014E997 + 198 0001:0014E9AC 199 0001:0014E9C1 200 0001:0014E9D6 201 0001:0014E9EB + 202 0001:0014EA00 203 0001:0014EA15 204 0001:0014EA2A 205 0001:0014EA32 + 206 0001:0014EA40 207 0001:0014EA4E 208 0001:0014EA5C 210 0001:0014EA70 + 211 0001:0014EA94 213 0001:0014EB68 213 0001:0014EB6F + +Line numbers for rGraphs(rGraphs.pas) segment .text + + 43 0001:0014EB70 44 0001:0014EB8A 45 0001:0014EB94 47 0001:0014EBC0 + 48 0001:0014EBE6 51 0001:0014EC10 52 0001:0014EC19 53 0001:0014EC23 + 54 0001:0014EC3D 55 0001:0014EC44 60 0001:0014EC68 61 0001:0014EC73 + 62 0001:0014EC7A 63 0001:0014EC89 64 0001:0014EC97 65 0001:0014ECA1 + 66 0001:0014ECAD 68 0001:0014ECC4 70 0001:0014ECD4 93 0001:0014ECDC + 94 0001:0014ED06 95 0001:0014ED28 96 0001:0014ED32 97 0001:0014ED81 + 98 0001:0014ED88 99 0001:0014EDBE 105 0001:0014EDF8 106 0001:0014EE17 + 107 0001:0014EE37 108 0001:0014EE41 109 0001:0014EE8D 110 0001:0014EE94 + 111 0001:0014EEC0 114 0001:0014EEF8 115 0001:0014EEFE 116 0001:0014EF08 + 117 0001:0014EF1E 118 0001:0014EF25 119 0001:0014EF37 120 0001:0014EF44 + 125 0001:0014EF64 126 0001:0014EF80 127 0001:0014EFA0 128 0001:0014EFAA + 129 0001:0014EFCD 130 0001:0014EFD4 131 0001:0014EFE6 132 0001:0014F012 + 135 0001:0014F048 136 0001:0014F06A 137 0001:0014F074 138 0001:0014F097 + 139 0001:0014F09E 140 0001:0014F0B0 141 0001:0014F0DC 144 0001:0014F0FC + 145 0001:0014F11C 146 0001:0014F126 147 0001:0014F13F 148 0001:0014F146 + 149 0001:0014F158 150 0001:0014F184 155 0001:0014F1A4 156 0001:0014F1C0 + 157 0001:0014F1E0 158 0001:0014F1EA 159 0001:0014F20D 160 0001:0014F214 + 161 0001:0014F240 164 0001:0014F274 165 0001:0014F2A1 166 0001:0014F2AB + 167 0001:0014F2D8 168 0001:0014F2DF 169 0001:0014F310 172 0001:0014F334 + 173 0001:0014F354 174 0001:0014F35E 175 0001:0014F377 176 0001:0014F37E + 177 0001:0014F3AA 180 0001:0014F3CC 181 0001:0014F3CF 182 0001:0014F3D9 + 183 0001:0014F3F1 184 0001:0014F3F8 185 0001:0014F405 188 0001:0014F420 + 189 0001:0014F44A 190 0001:0014F454 191 0001:0014F47A 192 0001:0014F4A3 + 195 0001:0014F4C0 196 0001:0014F4C3 197 0001:0014F4CD 198 0001:0014F4E5 + 199 0001:0014F4EC 200 0001:0014F4F9 203 0001:0014F514 204 0001:0014F51A + 205 0001:0014F524 206 0001:0014F53A 207 0001:0014F541 210 0001:0014F560 + 211 0001:0014F58D 212 0001:0014F597 213 0001:0014F5C4 214 0001:0014F5CB + 215 0001:0014F5EF 216 0001:0014F620 219 0001:0014F650 220 0001:0014F67D + 221 0001:0014F687 222 0001:0014F6B4 223 0001:0014F6DD 226 0001:0014F700 + 227 0001:0014F72A 228 0001:0014F734 229 0001:0014F75A 230 0001:0014F783 + 234 0001:0014F7A4 235 0001:0014F7AE 236 0001:0014F7BD 237 0001:0014F7C4 + 238 0001:0014F7D1 241 0001:0014F7F0 242 0001:0014F7FC 243 0001:0014F806 + 244 0001:0014F831 245 0001:0014F838 246 0001:0014F84A 247 0001:0014F857 + 250 0001:0014F878 251 0001:0014F89A 252 0001:0014F8A4 253 0001:0014F8E9 + 254 0001:0014F8F0 255 0001:0014F91C 259 0001:0014F940 267 0001:0014F941 + 269 0001:0014F974 269 0001:0014F97B + +Line numbers for fGraphSettings(fGraphSettings.pas) segment .text + + 99 0001:0014FFC4 100 0001:0014FFEC 101 0001:0014FFFB 102 0001:00150008 + 104 0001:00150013 105 0001:0015001D 106 0001:00150025 108 0001:0015002A + 109 0001:00150047 110 0001:00150060 111 0001:0015006B 112 0001:00150091 + 113 0001:001500A4 114 0001:001500B2 115 0001:001500C5 117 0001:001500D7 + 118 0001:001500E3 119 0001:00150101 120 0001:00150114 121 0001:00150120 + 115 0001:00150121 122 0001:00150126 123 0001:00150130 124 0001:0015013E + 126 0001:00150140 127 0001:00150150 128 0001:0015015C 129 0001:00150184 + 130 0001:0015018E 124 0001:0015018F 131 0001:00150197 132 0001:0015019E + 133 0001:001501B4 134 0001:001501BB 135 0001:001501C3 136 0001:001501F9 + 146 0001:00150258 147 0001:00150285 148 0001:0015028B 149 0001:00150293 + 150 0001:001502A2 151 0001:001502B9 154 0001:001502C7 155 0001:001502D4 + 156 0001:001502F1 157 0001:00150308 158 0001:0015032E 159 0001:00150344 + 160 0001:0015035A 161 0001:00150362 162 0001:00150376 164 0001:00150389 + 165 0001:00150396 166 0001:001503B4 167 0001:001503C7 168 0001:001503D4 + 162 0001:001503D5 169 0001:001503DA 171 0001:001503E9 172 0001:001503F0 + 173 0001:00150404 175 0001:00150417 176 0001:00150424 177 0001:00150437 + 178 0001:0015044A 179 0001:00150454 180 0001:00150483 173 0001:00150484 + 181 0001:00150489 182 0001:00150495 184 0001:001504B2 185 0001:001504C5 + 186 0001:001504D8 188 0001:001504EF 189 0001:001504FD 190 0001:00150510 + 191 0001:00150523 193 0001:00150530 194 0001:0015053F 195 0001:00150551 + 197 0001:00150553 186 0001:00150556 198 0001:00150559 182 0001:0015055A + 202 0001:00150563 203 0001:0015056E 204 0001:00150587 205 0001:001505A0 + 206 0001:001505B9 207 0001:001505D2 208 0001:001505EB 209 0001:00150604 + 210 0001:0015061D 211 0001:00150636 212 0001:0015064F 213 0001:00150668 + 214 0001:00150681 215 0001:0015069A 216 0001:001506B3 217 0001:001506C8 + 218 0001:001506DD 219 0001:001506F6 220 0001:00150700 221 0001:00150706 + 222 0001:0015071B 223 0001:00150730 224 0001:00150745 225 0001:00150762 + 226 0001:00150774 227 0001:0015077D 228 0001:00150791 229 0001:001507A1 + 231 0001:001507C0 232 0001:001507EC 233 0001:0015080F 229 0001:00150810 + 235 0001:00150815 236 0001:0015081E 237 0001:00150865 238 0001:0015086E + 239 0001:001508B5 240 0001:001508BE 241 0001:00150911 243 0001:0015091C + 244 0001:0015092C 245 0001:00150939 246 0001:00150949 247 0001:00150959 + 248 0001:00150969 251 0001:0015097E 253 0001:00150987 254 0001:00150997 + 255 0001:001509A4 257 0001:001509B6 258 0001:001509C6 259 0001:001509CF + 260 0001:001509DB 264 0001:00150A04 265 0001:00150A14 266 0001:00150A24 + 267 0001:00150A34 270 0001:00150A44 271 0001:00150A4C 272 0001:00150A57 + 273 0001:00150A6A 275 0001:00150A76 276 0001:00150A84 277 0001:00150A97 + 279 0001:00150AA3 281 0001:00150AC0 282 0001:00150AC4 283 0001:00150AD2 + 284 0001:00150AD6 285 0001:00150B08 286 0001:00150B3A 288 0001:00150B55 + 289 0001:00150B63 290 0001:00150B76 292 0001:00150B83 293 0001:00150B87 + 294 0001:00150B95 296 0001:00150BC8 297 0001:00150BF9 299 0001:00150BFB + 286 0001:00150BFE 300 0001:00150C05 301 0001:00150C0B 302 0001:00150C3E + 279 0001:00150C3F 306 0001:00150C48 307 0001:00150C5F 308 0001:00150C76 + 309 0001:00150C8D 310 0001:00150C97 311 0001:00150CA2 312 0001:00150CAB + 314 0001:00150CC5 315 0001:00150CF7 316 0001:00150D03 317 0001:00150D17 + 318 0001:00150D34 319 0001:00150D51 320 0001:00150D6E 321 0001:00150D8B + 322 0001:00150DA8 323 0001:00150DC5 324 0001:00150DE2 325 0001:00150DFF + 326 0001:00150E19 327 0001:00150E33 328 0001:00150E4D 329 0001:00150E67 + 330 0001:00150E7F 312 0001:00150E80 331 0001:00150E89 336 0001:00150EB3 + 337 0001:00150EBB 339 0001:00150EFD 346 0001:0015103C 347 0001:0015106B + 348 0001:00151073 349 0001:00151082 351 0001:00151094 352 0001:001510A1 + 354 0001:001510C1 355 0001:001510E1 357 0001:001510E3 349 0001:001510E4 + 358 0001:001510E7 360 0001:001510EF 362 0001:00151101 363 0001:0015110E + 365 0001:00151139 366 0001:00151159 368 0001:0015115B 360 0001:0015115C + 370 0001:00151191 375 0001:00151198 376 0001:001511B4 377 0001:001511C6 + 378 0001:001511DE 379 0001:001511F6 380 0001:00151216 379 0001:00151257 + 381 0001:0015127C 386 0001:00151284 387 0001:0015128C 388 0001:001512A4 + 387 0001:001512BB 389 0001:001512BE 392 0001:001512C4 393 0001:001512DA + 394 0001:001512E7 395 0001:00151304 396 0001:00151328 402 0001:0015132C + 403 0001:00151352 404 0001:0015135A 405 0001:00151362 406 0001:0015137E + 408 0001:0015138F 409 0001:001513CE 410 0001:001513DB 405 0001:001513DC + 411 0001:001513E1 412 0001:001513EE 413 0001:001513F6 415 0001:00151412 + 416 0001:0015141A 417 0001:00151454 418 0001:0015145F 413 0001:00151460 + 419 0001:00151465 420 0001:0015148E 421 0001:0015149B 422 0001:001514C1 + 423 0001:001514E7 424 0001:001514F4 425 0001:0015151A 426 0001:0015154E + 427 0001:0015159D 433 0001:001515BC 434 0001:001515DE 435 0001:001515E8 + 437 0001:001515F8 438 0001:0015160C 439 0001:0015161F 440 0001:00151632 + 441 0001:0015165F 442 0001:0015168C 443 0001:001516B9 444 0001:001516E6 + 445 0001:001516FD 446 0001:00151714 447 0001:0015172B 449 0001:0015174B + 450 0001:00151775 451 0001:00151793 447 0001:00151796 452 0001:00151799 + 453 0001:001517B9 452 0001:001517CC 454 0001:001517CF 456 0001:001517D4 + 457 0001:001517E5 458 0001:001517F5 459 0001:00151819 461 0001:00151854 + 462 0001:0015187E 463 0001:0015189A 465 0001:001518BD 466 0001:001518CC + 467 0001:001518CE 462 0001:001518CF 468 0001:001518D4 469 0001:001518D6 + 458 0001:001518D9 470 0001:001518E0 454 0001:001518E3 471 0001:0015191F + 476 0001:00151928 477 0001:00151942 479 0001:00151948 480 0001:0015197B + 481 0001:00151992 482 0001:001519A1 483 0001:001519B1 484 0001:001519C0 + 485 0001:001519D0 486 0001:001519DF 487 0001:001519ED 488 0001:00151A04 + 489 0001:00151A13 491 0001:00151A43 497 0001:00151A7C 498 0001:00151AAC + 500 0001:00151ACA 501 0001:00151AF6 503 0001:00151B03 504 0001:00151B16 + 506 0001:00151B18 498 0001:00151B19 507 0001:00151B46 512 0001:00151B50 + 513 0001:00151B6B 514 0001:00151B73 515 0001:00151B82 516 0001:00151B8A + 517 0001:00151B97 518 0001:00151BB1 520 0001:00151BC9 521 0001:00151BD3 + 523 0001:00151BD5 524 0001:00151BDF 526 0001:00151BE7 527 0001:00151BF4 + 529 0001:00151C07 531 0001:00151C0F 532 0001:00151C1C 534 0001:00151C51 + 538 0001:00151D4C 539 0001:00151D62 540 0001:00151D70 541 0001:00151DB9 + 546 0001:00151DC0 547 0001:00151DE2 548 0001:00151DEF 549 0001:00151DF6 + 551 0001:00151E12 552 0001:00151E17 553 0001:00151E42 554 0001:00151E5E + 556 0001:00151E76 558 0001:00151E92 559 0001:00151E97 560 0001:00151EC2 + 561 0001:00151EDE 563 0001:00151EF6 564 0001:00151F60 567 0001:00151FB0 + 568 0001:00151FD2 569 0001:00151FD8 571 0001:00151FE8 572 0001:00152007 + 574 0001:00152017 576 0001:0015205B 577 0001:00152081 578 0001:0015209A + 579 0001:001520B9 581 0001:00152113 586 0001:00152128 588 0001:0015212D + 589 0001:0015213B 591 0001:0015213C 593 0001:00152148 594 0001:0015214B + 596 0001:00152150 600 0001:00152154 601 0001:0015216A 602 0001:00152178 + 603 0001:001521C1 607 0001:001521C8 608 0001:001521DE 609 0001:001521EC + 610 0001:00152235 615 0001:0015223C 616 0001:0015225E 617 0001:0015226B + 618 0001:00152272 620 0001:0015228E 621 0001:00152293 622 0001:001522BE + 623 0001:001522DA 625 0001:001522F2 626 0001:0015230E 628 0001:00152326 + 629 0001:0015232B 630 0001:00152356 631 0001:00152372 633 0001:0015238A + 634 0001:00152395 635 0001:00152409 640 0001:00152464 641 0001:00152486 + 642 0001:00152493 643 0001:0015249A 645 0001:001524B6 646 0001:001524BB + 647 0001:001524E6 648 0001:00152502 650 0001:0015251A 651 0001:00152536 + 653 0001:0015254E 654 0001:00152553 655 0001:0015257E 656 0001:0015259A + 658 0001:001525B2 659 0001:001525BD 660 0001:00152631 663 0001:0015268C + 664 0001:001526AF 665 0001:001526B5 667 0001:001526C5 668 0001:001526E4 + 670 0001:001526F4 672 0001:0015273C 673 0001:00152762 674 0001:0015277B + 675 0001:0015279A 677 0001:001527A7 679 0001:001527DB 680 0001:001527EF + 682 0001:00152859 685 0001:0015286C 686 0001:0015288F 687 0001:00152895 + 689 0001:001528A5 690 0001:001528C4 692 0001:001528D4 694 0001:0015291C + 695 0001:00152942 696 0001:0015295B 697 0001:0015297A 699 0001:00152987 + 701 0001:001529BB 702 0001:001529CF 704 0001:00152A39 708 0001:00152A4C + 709 0001:00152A52 710 0001:00152A67 712 0001:00152A6C 713 0001:00152A7C + 715 0001:00152A7F 717 0001:00152A8B 718 0001:00152A8E 719 0001:00152A93 + 721 0001:00152A96 722 0001:00152AAB 726 0001:00152AC8 727 0001:00152ACE + 728 0001:00152AE3 730 0001:00152AE8 731 0001:00152AF8 733 0001:00152AFB + 735 0001:00152B07 736 0001:00152B0A 737 0001:00152B0F 739 0001:00152B12 + 740 0001:00152B27 743 0001:00152B44 744 0001:00152B5A 745 0001:00152B73 + 746 0001:00152B81 747 0001:00152B91 748 0001:00152BBC 753 0001:00152BE8 + 754 0001:00152BED 755 0001:00152C07 754 0001:00152C18 756 0001:00152C1B + 757 0001:00152C30 758 0001:00152C45 759 0001:00152C5A 760 0001:00152C6F + 761 0001:00152C84 762 0001:00152C99 763 0001:00152CAE 764 0001:00152CC3 + 765 0001:00152CD8 766 0001:00152CED 767 0001:00152D02 768 0001:00152D17 + 769 0001:00152D2C 770 0001:00152D41 771 0001:00152D56 772 0001:00152D6B + 773 0001:00152D80 774 0001:00152D95 775 0001:00152DAA 776 0001:00152DBF + 777 0001:00152DD4 778 0001:00152DE9 779 0001:00152DFE 780 0001:00152E13 + 781 0001:00152E28 782 0001:00152E3D 783 0001:00152E52 784 0001:00152E67 + 788 0001:00153658 790 0001:0015365E 791 0001:00153663 792 0001:00153668 + 796 0001:00153673 797 0001:00153678 802 0001:001536D4 803 0001:001536E5 + 805 0001:00153718 805 0001:0015371F + +Line numbers for fGraphProfiles(fGraphProfiles.pas) segment .text + + 121 0001:00153D94 122 0001:00153DBB 123 0001:00153DCA 124 0001:00153DD7 + 126 0001:00153DE2 127 0001:00153DEC 128 0001:00153DF4 130 0001:00153DF9 + 131 0001:00153E16 132 0001:00153E2F 133 0001:00153E3A 134 0001:00153E60 + 135 0001:00153E73 136 0001:00153E81 137 0001:00153E94 139 0001:00153EA6 + 140 0001:00153EB2 141 0001:00153ED0 142 0001:00153EE3 143 0001:00153EEF + 137 0001:00153EF0 144 0001:00153EF5 145 0001:00153EFF 146 0001:00153F03 + 147 0001:00153F07 148 0001:00153F14 149 0001:00153F1B 150 0001:00153F23 + 152 0001:00153F51 153 0001:00153F58 154 0001:00153F9C 165 0001:00153FF0 + 166 0001:00154022 167 0001:00154039 170 0001:00154047 171 0001:0015405C + 172 0001:00154072 174 0001:0015407D 175 0001:0015408D 179 0001:0015409C + 180 0001:001540AC 182 0001:001540B9 183 0001:001540C5 184 0001:001540EF + 185 0001:001540F7 186 0001:00154102 187 0001:00154112 188 0001:00154119 + 190 0001:00154122 191 0001:00154138 192 0001:0015415C 193 0001:00154180 + 194 0001:001541A4 195 0001:001541B1 196 0001:001541B9 197 0001:001541C5 + 199 0001:001541DC 200 0001:00154201 201 0001:00154226 202 0001:00154246 + 197 0001:00154247 203 0001:0015424A 204 0001:0015424F 205 0001:0015425C + 208 0001:00154279 209 0001:0015428C 210 0001:00154298 212 0001:001542AF + 213 0001:001542EC 210 0001:001542ED 214 0001:001542F0 219 0001:00154311 + 221 0001:00154358 224 0001:00154438 225 0001:0015443B 226 0001:00154442 + 227 0001:0015444D 230 0001:00154450 231 0001:00154453 232 0001:0015446E + 233 0001:0015447E 234 0001:0015448C 237 0001:00154490 238 0001:00154493 + 239 0001:001544A3 240 0001:001544B3 241 0001:001544C4 242 0001:001544D1 + 243 0001:001544DA 244 0001:001544E3 245 0001:001544F4 251 0001:001544F8 + 252 0001:0015451A 254 0001:0015452C 255 0001:00154536 257 0001:0015453B + 258 0001:0015453D 259 0001:00154545 260 0001:00154568 261 0001:0015457B + 262 0001:0015458E 263 0001:0015459D 264 0001:001545AA 266 0001:001545C2 + 267 0001:001545CD 271 0001:001545D1 272 0001:001545DB 274 0001:001545E0 + 276 0001:001545E8 280 0001:0015461E 281 0001:00154636 282 0001:00154643 + 285 0001:00154670 289 0001:00154675 292 0001:001546AB 293 0001:001546C3 + 294 0001:001546D0 299 0001:001546FD 300 0001:00154706 301 0001:00154716 + 302 0001:00154726 303 0001:00154737 304 0001:00154744 305 0001:0015474D + 306 0001:00154756 307 0001:00154763 308 0001:00154792 316 0001:001548B8 + 317 0001:001548DB 319 0001:001548ED 320 0001:001548F7 322 0001:001548FC + 323 0001:00154900 324 0001:00154908 325 0001:0015492B 326 0001:0015493E + 327 0001:00154951 328 0001:00154960 329 0001:0015496D 331 0001:00154985 + 332 0001:00154990 336 0001:00154996 338 0001:001549A0 339 0001:001549A9 + 340 0001:001549B2 342 0001:001549B8 343 0001:001549C5 348 0001:001549E1 + 349 0001:001549EE 351 0001:00154A08 352 0001:00154A16 353 0001:00154A1E + 354 0001:00154A28 355 0001:00154A30 356 0001:00154A46 358 0001:00154A6F + 359 0001:00154A80 361 0001:00154AA7 363 0001:00154AB7 364 0001:00154AD3 + 366 0001:00154AD9 367 0001:00154B07 368 0001:00154B1F 369 0001:00154B38 + 370 0001:00154B45 374 0001:00154B54 375 0001:00154B82 376 0001:00154B9A + 377 0001:00154BB3 378 0001:00154BC0 381 0001:00154BCD 382 0001:00154BD9 + 383 0001:00154BEC 384 0001:00154BF5 385 0001:00154C06 386 0001:00154C16 + 387 0001:00154C23 388 0001:00154C2A 389 0001:00154C35 391 0001:00154C4D + 392 0001:00154C62 393 0001:00154C75 394 0001:00154C88 396 0001:00154CAD + 397 0001:00154CB0 399 0001:00154CB2 389 0001:00154CB3 400 0001:00154CB8 + 401 0001:00154CBE 402 0001:00154CCF 403 0001:00154CFA 406 0001:00154E9C + 407 0001:00154E9F 408 0001:00154EB3 409 0001:00154EC0 410 0001:00154EC7 + 413 0001:00154ECC 414 0001:00154ECF 415 0001:00154EE1 416 0001:00154F01 + 417 0001:00154F08 420 0001:00154F0C 421 0001:00154F0F 422 0001:00154F1D + 423 0001:00154F26 424 0001:00154F2D 427 0001:00154F30 428 0001:00154F33 + 429 0001:00154F3C 430 0001:00154F43 433 0001:00154F48 434 0001:00154F4C + 435 0001:00154F67 436 0001:00154F7A 437 0001:00154F96 438 0001:00154FA7 + 440 0001:00154FB8 441 0001:00154FC5 443 0001:00154FD2 451 0001:00154FD8 + 452 0001:00154FFE 453 0001:0015500B 454 0001:00155022 455 0001:0015502A + 457 0001:0015503B 458 0001:0015505E 459 0001:00155071 460 0001:00155084 + 462 0001:0015508F 464 0001:00155095 465 0001:001550A2 470 0001:001550B1 + 471 0001:001550BE 474 0001:001550CB 475 0001:001550D9 476 0001:001550E1 + 477 0001:001550EB 479 0001:00155105 480 0001:0015510F 482 0001:00155114 + 483 0001:0015511C 484 0001:0015513E 486 0001:00155164 487 0001:0015517B + 489 0001:0015519F 490 0001:001551AB 491 0001:001551C7 492 0001:001551D6 + 493 0001:001551DE 494 0001:001551E6 495 0001:001551ED 496 0001:001551F6 + 498 0001:00155212 499 0001:00155237 500 0001:0015525C 501 0001:0015527C + 502 0001:0015527F 503 0001:0015528E 505 0001:0015529A 506 0001:001552B0 + 508 0001:001552B8 496 0001:001552B9 509 0001:001552C2 511 0001:001552CE + 512 0001:001552E4 514 0001:001552EC 516 0001:001552F2 517 0001:001552FF + 518 0001:0015530F 522 0001:0015531E 523 0001:0015532B 524 0001:0015533B + 526 0001:00155348 527 0001:00155354 528 0001:00155367 529 0001:00155370 + 530 0001:00155381 531 0001:00155391 532 0001:0015539E 533 0001:001553A5 + 534 0001:001553BB 536 0001:001553D3 537 0001:001553E8 538 0001:001553FB + 539 0001:0015540E 541 0001:00155433 542 0001:00155436 544 0001:00155438 + 534 0001:00155439 545 0001:0015543E 546 0001:00155446 547 0001:0015544C + 548 0001:0015545D 549 0001:00155495 554 0001:001556E0 555 0001:001556FB + 557 0001:0015570C 558 0001:00155719 559 0001:00155726 561 0001:0015572B + 562 0001:0015574E 564 0001:001557AC 565 0001:001557E6 570 0001:00155804 + 571 0001:0015581A 573 0001:00155822 574 0001:0015582F 578 0001:0015583E + 580 0001:0015584A 581 0001:0015585E 582 0001:00155877 583 0001:00155895 + 585 0001:001558A2 586 0001:001558AF 588 0001:001558BC 589 0001:001558E2 + 596 0001:001558F8 597 0001:0015591D 599 0001:0015592E 601 0001:0015593A + 602 0001:00155942 603 0001:0015594C 607 0001:00155954 608 0001:0015595C + 609 0001:00155969 612 0001:0015596F 613 0001:00155984 615 0001:00155993 + 616 0001:001559A5 617 0001:001559C0 618 0001:001559DF 619 0001:00155A1D + 620 0001:00155A30 621 0001:00155A3A 622 0001:00155A5C 624 0001:00155A64 + 626 0001:00155A85 627 0001:00155A97 628 0001:00155AB6 629 0001:00155AF4 + 630 0001:00155B04 624 0001:00155B07 633 0001:00155B12 634 0001:00155B22 + 635 0001:00155B3A 637 0001:00155B4C 638 0001:00155B61 640 0001:00155B70 + 641 0001:00155B7F 642 0001:00155B96 643 0001:00155BB9 644 0001:00155BD7 + 645 0001:00155BF2 646 0001:00155C10 647 0001:00155C44 649 0001:00155CCB + 650 0001:00155CFF 652 0001:00155D81 653 0001:00155DA0 654 0001:00155DDE + 655 0001:00155DF1 656 0001:00155DFB 657 0001:00155E1D 659 0001:00155E25 + 661 0001:00155E45 662 0001:00155E56 663 0001:00155E7B 664 0001:00155EC5 + 665 0001:00155ED5 659 0001:00155ED8 668 0001:00155EE3 669 0001:00155EF3 + 670 0001:00155F05 673 0001:00155F0F 674 0001:00155F18 675 0001:00155F51 + 678 0001:00155FC0 679 0001:00155FC6 680 0001:00155FD7 681 0001:00156014 + 682 0001:00156025 683 0001:00156061 685 0001:0015606D 686 0001:00156089 + 690 0001:001560A9 691 0001:001560CA 693 0001:001560E4 699 0001:001560E8 + 700 0001:00156104 701 0001:00156115 702 0001:0015614B 703 0001:00156187 + 706 0001:00156190 707 0001:00156195 708 0001:001561B5 709 0001:001561DE + 710 0001:001561F6 712 0001:00156236 713 0001:00156267 714 0001:0015629B + 715 0001:001562C8 716 0001:001562D8 721 0001:00156308 722 0001:0015631F + 723 0001:00156331 724 0001:00156354 725 0001:00156374 726 0001:0015637E + 727 0001:001563A4 733 0001:001563AC 734 0001:001563D7 735 0001:001563FD + 736 0001:00156410 737 0001:00156422 739 0001:00156471 740 0001:00156477 + 741 0001:00156492 743 0001:001564F8 744 0001:00156506 745 0001:00156508 + 740 0001:00156509 746 0001:0015653D 752 0001:001565A8 753 0001:001565CB + 754 0001:001565DC 755 0001:001565E9 756 0001:001565F0 757 0001:00156605 + 758 0001:00156628 760 0001:00156637 761 0001:00156648 762 0001:00156655 + 764 0001:0015665A 765 0001:0015666D 766 0001:0015667C 768 0001:00156697 + 769 0001:001566A6 771 0001:001566C1 773 0001:001566D0 776 0001:001566EB + 778 0001:001566FA 779 0001:00156702 780 0001:0015670F 781 0001:00156757 + 782 0001:00156764 783 0001:00156776 785 0001:0015679C 786 0001:001567BF + 788 0001:001567FA 789 0001:00156810 790 0001:00156858 791 0001:00156863 + 785 0001:00156866 793 0001:00156872 795 0001:00156898 796 0001:001568BB + 798 0001:001568F6 799 0001:0015690C 800 0001:00156954 801 0001:0015695F + 795 0001:00156962 804 0001:00156969 805 0001:00156976 806 0001:0015697D + 807 0001:00156992 808 0001:001569B5 810 0001:001569C4 811 0001:001569D2 + 813 0001:001569D7 814 0001:001569EA 815 0001:001569F9 817 0001:00156A15 + 818 0001:00156A24 820 0001:00156A40 822 0001:00156A4F 825 0001:00156A6B + 827 0001:00156A79 828 0001:00156A81 829 0001:00156A8E 830 0001:00156AD6 + 831 0001:00156AE3 832 0001:00156AF5 834 0001:00156B08 835 0001:00156B15 + 836 0001:00156B38 838 0001:00156B73 839 0001:00156B89 840 0001:00156BD1 + 841 0001:00156BDC 835 0001:00156BDF 843 0001:00156BEB 845 0001:00156BFE + 846 0001:00156C0B 847 0001:00156C2E 849 0001:00156C69 850 0001:00156C7F + 851 0001:00156CC7 852 0001:00156CD2 846 0001:00156CD5 854 0001:00156CE1 + 855 0001:00156CF0 857 0001:00156D14 858 0001:00156D2B 859 0001:00156D4B + 861 0001:00156D56 855 0001:00156D59 861 0001:00156D61 863 0001:00156D8A + 864 0001:00156DD3 866 0001:00156DF7 867 0001:00156E0E 868 0001:00156E48 + 869 0001:00156E53 864 0001:00156E56 871 0001:00156E5E 873 0001:00156E8D + 874 0001:00156EE2 876 0001:00156F06 877 0001:00156F1D 878 0001:00156F57 + 879 0001:00156F62 874 0001:00156F65 881 0001:00156F6D 882 0001:00156F7C + 884 0001:00156F9C 885 0001:00156FB3 886 0001:00156FEA 887 0001:00156FF5 + 882 0001:00156FF8 888 0001:00156FFB 890 0001:0015703A 893 0001:001571C0 + 894 0001:001571C4 896 0001:001571D0 897 0001:001571DE 898 0001:001571EB + 902 0001:001571FA 903 0001:0015720D 904 0001:0015721C 906 0001:00157229 + 912 0001:0015722C 913 0001:0015725C 914 0001:001572A7 915 0001:001572BA + 916 0001:001572CD 918 0001:001572DC 919 0001:001572E7 921 0001:001572F4 + 922 0001:0015730A 923 0001:0015731F 925 0001:00157345 926 0001:00157352 + 927 0001:0015735F 928 0001:00157375 929 0001:0015738A 930 0001:00157397 + 931 0001:001573A4 932 0001:001573BA 933 0001:001573CF 934 0001:001573DC + 935 0001:001573E9 936 0001:001573FF 941 0001:00157414 942 0001:00157421 + 943 0001:0015742E 944 0001:00157444 946 0001:00157483 953 0001:00157598 + 954 0001:001575DD 956 0001:001575E3 958 0001:001575FB 959 0001:0015761F + 960 0001:00157643 962 0001:00157652 963 0001:0015765D 965 0001:0015766A + 967 0001:00157684 968 0001:0015768A 971 0001:0015768F 973 0001:001576AB + 974 0001:001576B1 977 0001:001576B6 979 0001:001576C5 980 0001:001576E5 + 982 0001:0015771A 983 0001:00157720 987 0001:00157722 988 0001:0015773E + 989 0001:0015774C 955 0001:0015774D 990 0001:00157780 997 0001:00157798 + 998 0001:001577CC 999 0001:001577DA 1001 0001:001577E2 1002 0001:00157804 + 1005 0001:00157841 1007 0001:00157867 1009 0001:00157873 1010 0001:00157887 + 1011 0001:001578A0 1012 0001:001578BE 1014 0001:001578CB 1015 0001:001578EE + 1016 0001:0015790C 1017 0001:00157914 1018 0001:0015791F 1019 0001:0015792C + 1021 0001:00157933 1022 0001:00157944 1023 0001:0015794E 1024 0001:00157961 + 1025 0001:00157974 1026 0001:0015798C 1027 0001:00157994 1029 0001:001579B8 + 1030 0001:001579EF 1032 0001:001579FC 1033 0001:00157A26 1034 0001:00157A3E + 1035 0001:00157A49 1037 0001:00157A4B 1027 0001:00157A4E 1038 0001:00157A55 + 1019 0001:00157A58 1042 0001:00157A67 1043 0001:00157A9F 1045 0001:00157ABA + 1046 0001:00157AC8 1047 0001:00157AEA 1048 0001:00157B3B 1043 0001:00157B3E + 1049 0001:00157B45 1050 0001:00157B88 1051 0001:00157B95 1052 0001:00157BA7 + 1054 0001:00157BAC 1056 0001:00157BD4 1057 0001:00157C1E 1060 0001:00157C4C + 1062 0001:00157C78 1063 0001:00157C89 1064 0001:00157CB6 1065 0001:00157CDF + 1069 0001:00157D17 1070 0001:00157D61 1072 0001:00157DB0 1073 0001:00157DD0 + 1072 0001:00157DFB 1074 0001:00157DFE 1075 0001:00157E22 1076 0001:00157E2A + 1077 0001:00157E35 1078 0001:00157E42 1080 0001:00157E49 1081 0001:00157E5A + 1082 0001:00157E64 1083 0001:00157E77 1084 0001:00157E8A 1085 0001:00157EA2 + 1086 0001:00157EAA 1088 0001:00157EBD 1089 0001:00157EE0 1091 0001:00157F22 + 1092 0001:00157F51 1093 0001:00157F53 1088 0001:00157F56 1094 0001:00157F59 + 1095 0001:00157F7B 1098 0001:00157F8B 1100 0001:00157F9E 1101 0001:00157FA2 + 1103 0001:00157FC6 1104 0001:00158009 1106 0001:00158016 1107 0001:00158046 + 1108 0001:0015805E 1109 0001:00158069 1110 0001:0015806D 1112 0001:0015806F + 1101 0001:00158072 1113 0001:00158079 1114 0001:00158083 1116 0001:001580A7 + 1117 0001:001580EA 1119 0001:001580F7 1120 0001:00158127 1121 0001:0015813F + 1122 0001:0015814A 1124 0001:0015814C 1114 0001:0015814F 1126 0001:00158156 + 1078 0001:00158159 1127 0001:00158193 1133 0001:00158290 1134 0001:001582B4 + 1136 0001:001582BD 1137 0001:001582C6 1138 0001:001582DE 1139 0001:001582EC + 1140 0001:00158308 1142 0001:00158323 1143 0001:00158335 1144 0001:00158353 + 1145 0001:00158366 1146 0001:00158378 1140 0001:0015837B 1148 0001:0015837E + 1149 0001:00158396 1150 0001:001583A4 1151 0001:001583AD 1152 0001:001583D2 + 1154 0001:001583EA 1155 0001:001583FB 1156 0001:0015841E 1155 0001:00158466 + 1158 0001:00158469 1159 0001:0015848E 1161 0001:001584A6 1162 0001:001584B7 + 1163 0001:001584DA 1162 0001:00158522 1166 0001:00158547 1172 0001:001585E4 + 1173 0001:00158618 1174 0001:0015861C 1175 0001:00158632 1177 0001:0015864D + 1178 0001:00158665 1179 0001:00158678 1180 0001:00158697 1182 0001:001586B4 + 1183 0001:001586B8 1185 0001:001586BA 1175 0001:001586BB 1186 0001:001586ED + 1191 0001:001586F4 1192 0001:001586F9 1193 0001:00158713 1192 0001:00158724 + 1194 0001:00158727 1195 0001:0015873C 1196 0001:00158751 1197 0001:00158766 + 1198 0001:0015877B 1199 0001:00158790 1200 0001:001587A5 1201 0001:001587BA + 1202 0001:001587CF 1203 0001:001587E4 1204 0001:001587F9 1205 0001:0015880E + 1206 0001:00158823 1207 0001:00158838 1208 0001:0015884D 1209 0001:00158862 + 1210 0001:00158877 1211 0001:0015888C 1212 0001:001588A1 1213 0001:001588B6 + 1214 0001:001588CB 1215 0001:001588E0 1219 0001:0015907C 1221 0001:00159082 + 1222 0001:00159087 1223 0001:0015908C 1227 0001:00159097 1228 0001:0015909C + 1233 0001:001590F8 1234 0001:00159109 1236 0001:0015913C 1236 0001:00159143 + +Line numbers for uFormMonitor(uFormMonitor.pas) segment .text + + 95 0001:001591F8 96 0001:001591FC 97 0001:00159209 98 0001:00159217 + 99 0001:0015921D 102 0001:00159224 103 0001:00159232 105 0001:00159236 + 109 0001:00159245 110 0001:0015924B 112 0001:0015925C 118 0001:0015928C + 119 0001:00159296 121 0001:0015929A 123 0001:0015929E 124 0001:001592A8 + 125 0001:001592B2 129 0001:001592BB 130 0001:001592CC 133 0001:001592D6 + 138 0001:001592D8 139 0001:001592DF 140 0001:001592F0 142 0001:001592F4 + 143 0001:001592F7 147 0001:00159312 148 0001:00159315 150 0001:0015932E + 151 0001:0015933E 157 0001:00159344 158 0001:0015934A 159 0001:0015934D + 161 0001:00159360 162 0001:0015936F 164 0001:00159374 165 0001:00159376 + 167 0001:00159378 159 0001:00159379 168 0001:0015937E 173 0001:00159384 + 174 0001:00159385 175 0001:0015938C 176 0001:00159390 178 0001:00159394 + 179 0001:001593A3 185 0001:001593A8 186 0001:001593B2 187 0001:001593BB + 189 0001:001593C2 191 0001:001593C6 192 0001:001593D4 193 0001:001593D7 + 194 0001:001593DF 196 0001:001593EE 197 0001:001593FA 200 0001:001593FF + 202 0001:00159403 203 0001:0015940A 206 0001:00159419 209 0001:00159420 + 210 0001:00159423 211 0001:0015942D 212 0001:00159431 213 0001:00159445 + 218 0001:00159448 219 0001:0015944B 220 0001:00159452 221 0001:00159458 + 222 0001:0015945F 223 0001:00159466 226 0001:00159468 227 0001:0015946B + 228 0001:00159472 229 0001:00159478 230 0001:0015947F 233 0001:00159484 + 234 0001:00159487 235 0001:0015948E 236 0001:00159494 237 0001:0015949B + 238 0001:001594A2 241 0001:001594A4 242 0001:001594A7 243 0001:001594AC + 244 0001:001594B0 245 0001:001594D6 248 0001:001594D8 249 0001:001594DB + 250 0001:001594E0 251 0001:001594E4 252 0001:00159508 255 0001:0015950C + 256 0001:00159513 257 0001:00159527 258 0001:00159536 259 0001:00159539 + 269 0001:00159540 270 0001:0015954C 271 0001:00159559 272 0001:00159569 + 273 0001:00159570 274 0001:0015957E 275 0001:00159589 276 0001:00159594 + 277 0001:0015959F 278 0001:001595AA 280 0001:001595B5 281 0001:001595C7 + 283 0001:001595DF 284 0001:001595EF 286 0001:0015960E 287 0001:0015961F + 289 0001:0015962B 291 0001:00159650 292 0001:00159667 294 0001:0015967D + 296 0001:00159691 298 0001:00159693 284 0001:00159696 299 0001:0015969D + 281 0001:0015969E 300 0001:001596A7 301 0001:001596B6 300 0001:001596CE + 302 0001:001596D3 303 0001:001596E2 302 0001:001596FA 305 0001:001596FF + 307 0001:00159709 309 0001:00159717 310 0001:0015971E 311 0001:00159723 + 312 0001:00159727 313 0001:00159733 314 0001:00159737 315 0001:00159768 + 317 0001:00159770 320 0001:0015977F 321 0001:00159794 323 0001:001597A1 + 324 0001:001597AC 326 0001:001597B0 328 0001:001597BF 329 0001:001597CB + 336 0001:001597D6 338 0001:001597DC 339 0001:001597E5 340 0001:001597EE + 341 0001:001597FD 346 0001:00159812 348 0001:00159828 350 0001:00159837 + 353 0001:00159840 354 0001:00159846 356 0001:00159866 358 0001:00159872 + 360 0001:0015987C 361 0001:00159893 364 0001:00159898 365 0001:0015989C + 366 0001:001598A6 367 0001:001598AA 368 0001:001598C3 369 0001:001598CC + 370 0001:001598DA 371 0001:001598E7 372 0001:001598EB 374 0001:001598F0 + 375 0001:001598FF 376 0001:0015990E 377 0001:0015991D 378 0001:0015992C + 379 0001:00159930 380 0001:00159934 381 0001:0015994D 382 0001:00159964 + 383 0001:0015997D 384 0001:00159994 385 0001:001599AD 386 0001:001599C4 + 387 0001:001599DC 390 0001:001599E0 391 0001:001599E3 392 0001:001599ED + 393 0001:001599F1 395 0001:001599F8 396 0001:001599FE 398 0001:00159A03 + 399 0001:00159A1C 400 0001:00159A35 402 0001:00159A4E 403 0001:00159A56 + 404 0001:00159A5E 405 0001:00159A66 406 0001:00159A6E 407 0001:00159A78 + 408 0001:00159A80 411 0001:00159A84 412 0001:00159A8A 415 0001:00159A97 + 416 0001:00159AAC 418 0001:00159AB7 421 0001:00159ABC 422 0001:00159AC2 + 425 0001:00159ACF 426 0001:00159AE4 428 0001:00159AEF 433 0001:00159AF4 + 434 0001:00159AFA 435 0001:00159B02 436 0001:00159B06 438 0001:00159B0B + 439 0001:00159B0E 440 0001:00159B17 443 0001:00159B1C 444 0001:00159B1F + 445 0001:00159B2C 448 0001:00159B30 449 0001:00159B33 450 0001:00159B40 + 453 0001:00159B44 454 0001:00159B47 455 0001:00159B56 456 0001:00159B59 + 460 0001:00159B60 461 0001:00159B72 471 0001:00159B74 472 0001:00159B7A + 473 0001:00159B7C 474 0001:00159B98 476 0001:00159BAE 477 0001:00159BC5 + 474 0001:00159BC6 478 0001:00159BC9 479 0001:00159BCD 482 0001:00159BD4 + 483 0001:00159BDC 484 0001:00159BDF 486 0001:00159BEA 487 0001:00159BF0 + 488 0001:00159BF9 490 0001:00159C01 491 0001:00159C0A 493 0001:00159C0E + 500 0001:00159C14 501 0001:00159C1B 502 0001:00159C28 503 0001:00159C2C + 505 0001:00159C35 506 0001:00159C37 508 0001:00159C5B 510 0001:00159C76 + 511 0001:00159C87 513 0001:00159C92 515 0001:00159CB0 516 0001:00159CB3 + 517 0001:00159CBC 520 0001:00159CBE 508 0001:00159CC1 521 0001:00159CC4 + 522 0001:00159CC9 523 0001:00159CD0 524 0001:00159CDB 525 0001:00159CE2 + 526 0001:00159CE9 527 0001:00159CFB 529 0001:00159D04 531 0001:00159D0C + 535 0001:00159D14 536 0001:00159D17 537 0001:00159D1D 539 0001:00159D28 + 540 0001:00159D2C 541 0001:00159D31 543 0001:00159D3B 546 0001:00159D40 + 547 0001:00159D41 550 0001:00159D7E 557 0001:00159D80 558 0001:00159D86 + 560 0001:00159D9C 561 0001:00159DAC 563 0001:00159DC2 564 0001:00159DC4 + 566 0001:00159DC6 558 0001:00159DC7 567 0001:00159DCA 568 0001:00159DCC + 573 0001:00159DD4 574 0001:00159DD8 575 0001:00159DDB 577 0001:00159DE1 + 578 0001:00159DEB 579 0001:00159DEF 580 0001:00159DF3 582 0001:00159DF6 + 583 0001:00159DFC 584 0001:00159E06 585 0001:00159E0C 586 0001:00159E10 + 587 0001:00159E1F 588 0001:00159E26 589 0001:00159E2A 596 0001:00159E30 + 596 0001:00159E5C 591 0001:00159E60 592 0001:00159E69 594 0001:00159E6E + +Line numbers for fGraphs(fGraphs.pas) segment .text + + 388 0001:0015B1F4 389 0001:0015B217 390 0001:0015B22F 391 0001:0015B236 + 392 0001:0015B23D 393 0001:0015B244 394 0001:0015B24B 395 0001:0015B252 + 396 0001:0015B259 397 0001:0015B260 398 0001:0015B267 399 0001:0015B26E + 400 0001:0015B275 401 0001:0015B27C 402 0001:0015B28B 403 0001:0015B298 + 404 0001:0015B2A3 406 0001:0015B2AE 407 0001:0015B2BC 408 0001:0015B2C6 + 409 0001:0015B2D3 410 0001:0015B2DB 411 0001:0015B2E2 413 0001:0015B2E7 + 414 0001:0015B304 415 0001:0015B338 416 0001:0015B351 417 0001:0015B35C + 418 0001:0015B382 419 0001:0015B39A 420 0001:0015B3AD 421 0001:0015B3BF + 422 0001:0015B3D1 423 0001:0015B3E3 424 0001:0015B3F5 425 0001:0015B403 + 426 0001:0015B411 427 0001:0015B41F 428 0001:0015B433 429 0001:0015B441 + 430 0001:0015B455 431 0001:0015B465 432 0001:0015B46F 433 0001:0015B479 + 434 0001:0015B483 435 0001:0015B496 436 0001:0015B4A5 437 0001:0015B4BD + 438 0001:0015B4CD 439 0001:0015B4EA 441 0001:0015B506 442 0001:0015B51C + 443 0001:0015B53A 444 0001:0015B54D 445 0001:0015B563 439 0001:0015B564 + 446 0001:0015B569 447 0001:0015B577 449 0001:0015B579 450 0001:0015B589 + 451 0001:0015B595 452 0001:0015B5BF 453 0001:0015B5CD 454 0001:0015B5DB + 447 0001:0015B5DC 455 0001:0015B5E4 456 0001:0015B5F1 457 0001:0015B5FE + 458 0001:0015B614 459 0001:0015B62A 460 0001:0015B640 461 0001:0015B656 + 462 0001:0015B65D 463 0001:0015B66D 464 0001:0015B67D 465 0001:0015B693 + 466 0001:0015B69A 467 0001:0015B6D1 474 0001:0015B76C 475 0001:0015B78E + 476 0001:0015B79D 477 0001:0015B7AA 478 0001:0015B7C7 479 0001:0015B7FB + 480 0001:0015B814 481 0001:0015B81F 482 0001:0015B845 483 0001:0015B858 + 484 0001:0015B866 486 0001:0015B868 487 0001:0015B878 488 0001:0015B884 + 489 0001:0015B8AE 490 0001:0015B8BC 484 0001:0015B8BD 491 0001:0015B8C5 + 492 0001:0015B8FC 498 0001:0015B91C 499 0001:0015B93F 500 0001:0015B946 + 501 0001:0015B94D 502 0001:0015B960 504 0001:0015B971 505 0001:0015B986 + 507 0001:0015B995 508 0001:0015B9A8 509 0001:0015B9BB 511 0001:0015B9C7 + 512 0001:0015B9E3 514 0001:0015BA19 515 0001:0015BA26 516 0001:0015BA28 + 511 0001:0015BA29 518 0001:0015BA2E 520 0001:0015BA3E 521 0001:0015BA4E + 522 0001:0015BA57 523 0001:0015BA73 525 0001:0015BAA9 526 0001:0015BAB6 + 527 0001:0015BAB8 522 0001:0015BAB9 531 0001:0015BABE 532 0001:0015BACC + 534 0001:0015BAD7 535 0001:0015BAE0 536 0001:0015BAEE 538 0001:0015BAF9 + 539 0001:0015BB02 541 0001:0015BB0E 542 0001:0015BB13 543 0001:0015BB1C + 544 0001:0015BB2A 546 0001:0015BB35 547 0001:0015BB3E 548 0001:0015BB4C + 550 0001:0015BB57 552 0001:0015BB8F 585 0001:0015BB98 590 0001:0015BB9C + 591 0001:0015BBBA 593 0001:0015BBC3 594 0001:0015BBD1 595 0001:0015BBDB + 596 0001:0015BBE8 597 0001:0015BC0A 599 0001:0015BC1F 600 0001:0015BC3F + 599 0001:0015BC84 602 0001:0015BC87 603 0001:0015BCA9 605 0001:0015BCBE + 606 0001:0015BCD1 607 0001:0015BCF1 606 0001:0015BD36 609 0001:0015BD39 + 610 0001:0015BD4E 612 0001:0015BD66 613 0001:0015BDA5 617 0001:0015BE80 + 618 0001:0015BE90 619 0001:0015BEA1 622 0001:0015BEA4 623 0001:0015BEA8 + 624 0001:0015BEB6 625 0001:0015BEBD 626 0001:0015BEC4 627 0001:0015BECD + 629 0001:0015BED9 630 0001:0015BEE0 632 0001:0015BEE9 633 0001:0015BEF0 + 634 0001:0015BEF7 639 0001:0015BF00 640 0001:0015BF10 641 0001:0015BF19 + 643 0001:0015BF22 644 0001:0015BF29 645 0001:0015BF30 648 0001:0015BF37 + 649 0001:0015BF46 650 0001:0015BF61 651 0001:0015BF6A 652 0001:0015BF73 + 654 0001:0015BF88 655 0001:0015BF95 660 0001:0015BFA2 662 0001:0015BFB0 + 665 0001:0015BFB4 666 0001:0015BFB7 667 0001:0015BFBE 668 0001:0015BFCB + 669 0001:0015BFD2 670 0001:0015BFE0 677 0001:0015BFE4 678 0001:0015C007 + 679 0001:0015C016 680 0001:0015C023 682 0001:0015C039 683 0001:0015C046 + 684 0001:0015C059 685 0001:0015C06C 687 0001:0015C07B 688 0001:0015C09A + 689 0001:0015C0BA 690 0001:0015C0DA 691 0001:0015C0FA 693 0001:0015C10A + 695 0001:0015C119 696 0001:0015C128 699 0001:0015C137 700 0001:0015C145 + 701 0001:0015C156 702 0001:0015C167 705 0001:0015C181 707 0001:0015C190 + 709 0001:0015C198 710 0001:0015C1A8 713 0001:0015C1B8 715 0001:0015C1C7 + 717 0001:0015C1CF 718 0001:0015C1E2 719 0001:0015C1ED 722 0001:0015C202 + 724 0001:0015C215 725 0001:0015C230 726 0001:0015C251 727 0001:0015C272 + 729 0001:0015C29C 731 0001:0015C2AF 732 0001:0015C2CA 733 0001:0015C2EB + 734 0001:0015C30C 739 0001:0015C336 741 0001:0015C345 743 0001:0015C34D + 744 0001:0015C35D 747 0001:0015C36D 749 0001:0015C37C 751 0001:0015C384 + 752 0001:0015C394 755 0001:0015C3AA 757 0001:0015C3BD 758 0001:0015C3D8 + 759 0001:0015C3F9 760 0001:0015C41A 762 0001:0015C444 764 0001:0015C453 + 765 0001:0015C46E 766 0001:0015C48F 767 0001:0015C4B0 771 0001:0015C4D1 + 680 0001:0015C4D2 772 0001:0015C4D9 773 0001:0015C510 779 0001:0015C5C0 + 780 0001:0015C5E0 781 0001:0015C5EF 783 0001:0015C5FC 784 0001:0015C609 + 785 0001:0015C614 786 0001:0015C61F 787 0001:0015C62A 788 0001:0015C635 + 789 0001:0015C63E 791 0001:0015C65B 792 0001:0015C696 793 0001:0015C6A3 + 794 0001:0015C6B4 795 0001:0015C6D7 796 0001:0015C6E4 797 0001:0015C6F6 + 799 0001:0015C709 800 0001:0015C716 801 0001:0015C739 802 0001:0015C746 + 803 0001:0015C760 804 0001:0015C77D 805 0001:0015C79A 806 0001:0015C7B7 + 807 0001:0015C7F2 808 0001:0015C7FF 809 0001:0015C819 810 0001:0015C836 + 811 0001:0015C853 812 0001:0015C870 816 0001:0015C8B0 817 0001:0015C8BD + 818 0001:0015C8CE 819 0001:0015C8F1 820 0001:0015C8FE 821 0001:0015C910 + 823 0001:0015C923 824 0001:0015C930 825 0001:0015C953 826 0001:0015C960 + 827 0001:0015C97A 828 0001:0015C997 829 0001:0015C9B4 830 0001:0015C9D1 + 831 0001:0015CA0C 832 0001:0015CA19 833 0001:0015CA33 834 0001:0015CA50 + 835 0001:0015CA6D 836 0001:0015CA8A 838 0001:0015CAC5 839 0001:0015CACD + 840 0001:0015CB04 844 0001:0015CBDC 845 0001:0015CBE1 858 0001:0015CBE4 + 859 0001:0015CC07 860 0001:0015CC0B 861 0001:0015CC17 862 0001:0015CC1A + 864 0001:0015CC20 865 0001:0015CC26 866 0001:0015CC2C 867 0001:0015CC32 + 868 0001:0015CC38 869 0001:0015CC3E 871 0001:0015CC6E 872 0001:0015CC7D + 873 0001:0015CC8B 874 0001:0015CCB0 875 0001:0015CCBA 876 0001:0015CCDE + 877 0001:0015CCEA 878 0001:0015CD08 879 0001:0015CD1F 880 0001:0015CD31 + 882 0001:0015CD37 883 0001:0015CD47 885 0001:0015CD57 886 0001:0015CD6B + 887 0001:0015CD72 888 0001:0015CD79 890 0001:0015CD93 891 0001:0015CDA3 + 893 0001:0015CDC8 894 0001:0015CDED 895 0001:0015CE10 896 0001:0015CE35 + 898 0001:0015CE39 899 0001:0015CE3F 900 0001:0015CE6E 902 0001:0015CE90 + 903 0001:0015CEB2 888 0001:0015CEB3 904 0001:0015CEBC 905 0001:0015CEC2 + 906 0001:0015CEC8 907 0001:0015CED0 908 0001:0015CED6 909 0001:0015CEDE + 910 0001:0015CEE4 911 0001:0015CEEC 912 0001:0015CEF2 913 0001:0015CEFA + 914 0001:0015CF00 915 0001:0015CF08 916 0001:0015CF0C 918 0001:0015CF12 + 920 0001:0015CF1B 921 0001:0015CF22 923 0001:0015CF34 924 0001:0015CF42 + 926 0001:0015CF4F 928 0001:0015CF61 929 0001:0015CF6F 931 0001:0015CFAB + 934 0001:0015D014 935 0001:0015D017 937 0001:0015D029 938 0001:0015D044 + 942 0001:0015D04F 943 0001:0015D05D 944 0001:0015D066 946 0001:0015D076 + 948 0001:0015D091 949 0001:0015D09A 950 0001:0015D0BF 956 0001:0015D0C4 + 957 0001:0015D0E7 958 0001:0015D0F8 959 0001:0015D109 960 0001:0015D116 + 962 0001:0015D123 964 0001:0015D13A 965 0001:0015D15A 966 0001:0015D167 + 967 0001:0015D187 968 0001:0015D1B0 962 0001:0015D1B1 969 0001:0015D1B6 + 970 0001:0015D1D3 971 0001:0015D1E0 972 0001:0015D1ED 974 0001:0015D1F6 + 975 0001:0015D210 977 0001:0015D217 979 0001:0015D220 980 0001:0015D23A + 982 0001:0015D241 983 0001:0015D247 985 0001:0015D24D 986 0001:0015D268 + 987 0001:0015D283 988 0001:0015D28A 990 0001:0015D2C0 997 0001:0015D2C8 + 998 0001:0015D2EB 999 0001:0015D300 1000 0001:0015D315 1001 0001:0015D326 + 1002 0001:0015D337 1003 0001:0015D344 1004 0001:0015D351 1007 0001:0015D378 + 1008 0001:0015D388 1009 0001:0015D3A0 1010 0001:0015D3B0 1011 0001:0015D3C8 + 1012 0001:0015D3D8 1013 0001:0015D3F0 1014 0001:0015D400 1015 0001:0015D418 + 1016 0001:0015D428 1017 0001:0015D440 1019 0001:0015D464 1020 0001:0015D499 + 1021 0001:0015D4AC 1022 0001:0015D4BF 1023 0001:0015D4D2 1024 0001:0015D4E5 + 1025 0001:0015D4F8 1027 0001:0015D50A 1028 0001:0015D54C 1030 0001:0015D562 + 1031 0001:0015D56F 1032 0001:0015D599 1035 0001:0015D5CC 1017 0001:0015D5CF + 1037 0001:0015D5DB 1039 0001:0015D5FA 1041 0001:0015D61A 1042 0001:0015D644 + 1044 0001:0015D652 1046 0001:0015D668 1039 0001:0015D66B 1048 0001:0015D66E + 1049 0001:0015D68B 1050 0001:0015D698 1051 0001:0015D6A5 1052 0001:0015D6A7 + 1054 0001:0015D6B0 1055 0001:0015D6CA 1057 0001:0015D6D1 1059 0001:0015D6DA + 1060 0001:0015D6F4 1062 0001:0015D6FB 1063 0001:0015D701 1065 0001:0015D707 + 1066 0001:0015D70A 1067 0001:0015D727 1068 0001:0015D744 1069 0001:0015D74B + 1071 0001:0015D752 1073 0001:0015D764 1074 0001:0015D785 1075 0001:0015D794 + 1076 0001:0015D7B7 1077 0001:0015D7D4 1078 0001:0015D7F1 1080 0001:0015D7F8 + 1082 0001:0015D80A 1083 0001:0015D82B 1084 0001:0015D83A 1085 0001:0015D85D + 1086 0001:0015D87A 1087 0001:0015D897 1089 0001:0015D8C0 1095 0001:0015D92C + 1096 0001:0015D95A 1097 0001:0015D989 1099 0001:0015D996 1101 0001:0015D9BB + 1102 0001:0015D9D2 1103 0001:0015D9F0 1104 0001:0015DA10 1105 0001:0015DA92 + 1103 0001:0015DAC5 1106 0001:0015DACE 1107 0001:0015DAE1 1109 0001:0015DB01 + 1110 0001:0015DB2A 1111 0001:0015DB4A 1112 0001:0015DB64 1113 0001:0015DB96 + 1107 0001:0015DB97 1114 0001:0015DBA0 1099 0001:0015DBA3 1115 0001:0015DBE3 + 1122 0001:0015DBF8 1123 0001:0015DC3B 1124 0001:0015DC4E 1125 0001:0015DC63 + 1126 0001:0015DC83 1127 0001:0015DC96 1130 0001:0015DCA6 1131 0001:0015DCB0 + 1132 0001:0015DCBB 1133 0001:0015DCC5 1134 0001:0015DCD0 1135 0001:0015DCDE + 1136 0001:0015DCE9 1138 0001:0015DD27 1145 0001:0015DD50 1146 0001:0015DD86 + 1147 0001:0015DD8A 1148 0001:0015DD9A 1149 0001:0015DDBC 1151 0001:0015DDF7 + 1152 0001:0015DE3B 1153 0001:0015DE49 1154 0001:0015DE54 1156 0001:0015DE5F + 1157 0001:0015DE63 1159 0001:0015DE65 1148 0001:0015DE66 1160 0001:0015DE9A + 1166 0001:0015DEB4 1167 0001:0015DEE9 1168 0001:0015DEF1 1169 0001:0015DEFD + 1171 0001:0015DF15 1172 0001:0015DF28 1174 0001:0015DF48 1175 0001:0015DF6E + 1177 0001:0015DF70 1169 0001:0015DF71 1178 0001:0015DF74 1180 0001:0015DF80 + 1181 0001:0015DF8C 1183 0001:0015DFA4 1184 0001:0015DFB7 1186 0001:0015DFE2 + 1187 0001:0015E008 1189 0001:0015E00A 1181 0001:0015E00B 1191 0001:0015E040 + 1197 0001:0015E048 1198 0001:0015E084 1199 0001:0015E08C 1200 0001:0015E0A2 + 1201 0001:0015E0B8 1202 0001:0015E0C1 1204 0001:0015E0D9 1205 0001:0015E0F7 + 1208 0001:0015E137 1209 0001:0015E14A 1211 0001:0015E14C 1202 0001:0015E14D + 1212 0001:0015E17F 1218 0001:0015E188 1219 0001:0015E1A7 1220 0001:0015E1B3 + 1221 0001:0015E1B9 1222 0001:0015E1C3 1223 0001:0015E1DB 1224 0001:0015E1EC + 1225 0001:0015E1FD 1221 0001:0015E21D 1226 0001:0015E222 1227 0001:0015E229 + 1228 0001:0015E23A 1229 0001:0015E245 1230 0001:0015E250 1231 0001:0015E25B + 1232 0001:0015E266 1233 0001:0015E271 1234 0001:0015E27C 1235 0001:0015E28A + 1236 0001:0015E295 1237 0001:0015E2A0 1238 0001:0015E2AB 1239 0001:0015E2B6 + 1240 0001:0015E2C1 1241 0001:0015E2CF 1242 0001:0015E2DD 1243 0001:0015E2FF + 1245 0001:0015E31F 1246 0001:0015E353 1247 0001:0015E361 1248 0001:0015E386 + 1249 0001:0015E39C 1250 0001:0015E3BA 1251 0001:0015E3CD 1252 0001:0015E3E3 + 1243 0001:0015E3E4 1253 0001:0015E3ED 1254 0001:0015E408 1255 0001:0015E42A + 1256 0001:0015E435 1257 0001:0015E43C 1258 0001:0015E472 1264 0001:0015E47C + 1265 0001:0015E4A9 1266 0001:0015E4AD 1268 0001:0015E4C5 1269 0001:0015E4EB + 1271 0001:0015E4F8 1272 0001:0015E4FC 1274 0001:0015E4FE 1266 0001:0015E4FF + 1275 0001:0015E52F 1281 0001:0015E538 1282 0001:0015E562 1283 0001:0015E566 + 1285 0001:0015E57C 1286 0001:0015E59F 1287 0001:0015E5C2 1289 0001:0015E5CF + 1290 0001:0015E5E2 1292 0001:0015E5E4 1283 0001:0015E5E5 1293 0001:0015E624 + 1298 0001:0015E638 1299 0001:0015E654 1300 0001:0015E66F 1302 0001:0015E675 + 1303 0001:0015E691 1305 0001:0015E6A4 1306 0001:0015E6CA 1308 0001:0015E6F0 + 1309 0001:0015E704 1311 0001:0015E73B 1318 0001:0015E758 1319 0001:0015E796 + 1320 0001:0015E7AD 1321 0001:0015E7B1 1323 0001:0015E7C9 1324 0001:0015E7EF + 1326 0001:0015E7FC 1327 0001:0015E800 1329 0001:0015E802 1321 0001:0015E803 + 1330 0001:0015E806 1332 0001:0015E80C 1333 0001:0015E81A 1334 0001:0015E84B + 1336 0001:0015E8A2 1342 0001:0015E8C4 1343 0001:0015E8FE 1344 0001:0015E915 + 1346 0001:0015E92B 1347 0001:0015E94E 1349 0001:0015E95B 1350 0001:0015E968 + 1351 0001:0015E998 1353 0001:0015E99A 1344 0001:0015E99B 1354 0001:0015E9CF + 1363 0001:0015E9F0 1364 0001:0015EA14 1365 0001:0015EA1B 1366 0001:0015EA32 + 1368 0001:0015EA41 1369 0001:0015EA47 1370 0001:0015EA50 1371 0001:0015EA59 + 1372 0001:0015EA62 1373 0001:0015EA68 1374 0001:0015EA71 1378 0001:0015EA7C + 1379 0001:0015EA82 1380 0001:0015EA8B 1381 0001:0015EA94 1382 0001:0015EA9D + 1383 0001:0015EAA3 1384 0001:0015EAAC 1386 0001:0015EAB5 1388 0001:0015EAC6 + 1390 0001:0015EACF 1392 0001:0015EAD8 1391 0001:0015EAE6 1393 0001:0015EAF1 + 1395 0001:0015EAF6 1396 0001:0015EAFD 1398 0001:0015EB09 1397 0001:0015EB17 + 1399 0001:0015EB22 1400 0001:0015EB35 1401 0001:0015EB40 1403 0001:0015EB71 + 1404 0001:0015EB9B 1406 0001:0015EBA0 1407 0001:0015EBAD 1408 0001:0015EBBA + 1411 0001:0015EBC2 1412 0001:0015EBD3 1413 0001:0015EBE2 1416 0001:0015EBF7 + 1418 0001:0015EC0A 1419 0001:0015EC11 1420 0001:0015EC2F 1423 0001:0015EC79 + 1424 0001:0015EC89 1425 0001:0015EC99 1428 0001:0015ECA8 1429 0001:0015ECB5 + 1431 0001:0015ECC1 1432 0001:0015ECD1 1433 0001:0015ECE1 1436 0001:0015ECEE + 1437 0001:0015ECF7 1438 0001:0015ED04 1439 0001:0015ED18 1440 0001:0015ED25 + 1441 0001:0015ED4F 1444 0001:0015EE20 1445 0001:0015EE23 1446 0001:0015EE33 + 1447 0001:0015EE3F 1449 0001:0015EE48 1450 0001:0015EE61 1451 0001:0015EE6D + 1453 0001:0015EE74 1454 0001:0015EE82 1457 0001:0015EE94 1458 0001:0015EE97 + 1459 0001:0015EEA7 1460 0001:0015EEB3 1462 0001:0015EEBC 1463 0001:0015EED5 + 1464 0001:0015EEE1 1466 0001:0015EEE8 1467 0001:0015EEF6 1473 0001:0015EF0C + 1474 0001:0015EF16 1476 0001:0015EF28 1477 0001:0015EF34 1479 0001:0015EF47 + 1480 0001:0015EF50 1481 0001:0015EF5B 1482 0001:0015EF74 1484 0001:0015EF8D + 1474 0001:0015EF8E 1485 0001:0015EF91 1488 0001:0015EF98 1489 0001:0015EF9C + 1491 0001:0015EFA2 1492 0001:0015EFB4 1493 0001:0015EFC9 1494 0001:0015EFE0 + 1495 0001:0015EFEB 1496 0001:0015F002 1497 0001:0015F017 1498 0001:0015F02E + 1499 0001:0015F041 1500 0001:0015F064 1501 0001:0015F077 1503 0001:0015F09A + 1504 0001:0015F0A7 1505 0001:0015F0B4 1514 0001:0015F0BC 1515 0001:0015F0E3 + 1516 0001:0015F0F9 1518 0001:0015F109 1519 0001:0015F111 1520 0001:0015F136 + 1521 0001:0015F159 1522 0001:0015F182 1524 0001:0015F1AB 1525 0001:0015F1CB + 1526 0001:0015F1E5 1527 0001:0015F1FC 1529 0001:0015F211 1530 0001:0015F221 + 1531 0001:0015F244 1527 0001:0015F245 1532 0001:0015F248 1533 0001:0015F261 + 1535 0001:0015F276 1536 0001:0015F286 1537 0001:0015F2A9 1533 0001:0015F2AA + 1538 0001:0015F2AD 1539 0001:0015F2C6 1541 0001:0015F2EA 1542 0001:0015F326 + 1543 0001:0015F33A 1544 0001:0015F347 1545 0001:0015F34E 1547 0001:0015F38B + 1555 0001:0015F3A0 1556 0001:0015F3AB 1557 0001:0015F3C0 1558 0001:0015F3C7 + 1559 0001:0015F3D4 1560 0001:0015F3E5 1562 0001:0015F3F5 1563 0001:0015F3FE + 1564 0001:0015F422 1565 0001:0015F444 1566 0001:0015F46C 1568 0001:0015F494 + 1569 0001:0015F4B5 1570 0001:0015F4D0 1571 0001:0015F4ED 1573 0001:0015F502 + 1574 0001:0015F511 1575 0001:0015F537 1571 0001:0015F538 1576 0001:0015F53B + 1577 0001:0015F558 1579 0001:0015F56D 1580 0001:0015F57C 1581 0001:0015F5A2 + 1577 0001:0015F5A3 1582 0001:0015F5A6 1583 0001:0015F5C3 1585 0001:0015F5CC + 1586 0001:0015F5D3 1587 0001:0015F5E0 1588 0001:0015F5F0 1589 0001:0015F5FD + 1591 0001:0015F60A 1596 0001:0015F614 1597 0001:0015F636 1599 0001:0015F63F + 1600 0001:0015F648 1601 0001:0015F659 1602 0001:0015F66A 1603 0001:0015F677 + 1604 0001:0015F684 1605 0001:0015F696 1606 0001:0015F6A9 1607 0001:0015F6B5 + 1608 0001:0015F6BE 1609 0001:0015F6C7 1611 0001:0015F6CB 1612 0001:0015F6DF + 1613 0001:0015F6EB 1614 0001:0015F6FF 1615 0001:0015F70B 1616 0001:0015F71F + 1619 0001:0015F728 1621 0001:0015F72B 1623 0001:0015F73A 1624 0001:0015F742 + 1625 0001:0015F76B 1626 0001:0015F781 1630 0001:0015F793 1631 0001:0015F7C0 + 1640 0001:0015F7FC 1641 0001:0015F830 1642 0001:0015F837 1644 0001:0015F860 + 1643 0001:0015F86F 1645 0001:0015F87B 1646 0001:0015F885 1648 0001:0015F891 + 1649 0001:0015F8A7 1653 0001:0015F8BF 1654 0001:0015F8D3 1656 0001:0015F8E7 + 1657 0001:0015F90A 1658 0001:0015F92C 1660 0001:0015F94F 1661 0001:0015F96F + 1662 0001:0015F98D 1663 0001:0015F9AB 1664 0001:0015F9B8 1666 0001:0015F9E4 + 1667 0001:0015F9EC 1669 0001:0015FA08 1670 0001:0015FA1E 1672 0001:0015FA60 + 1667 0001:0015FA61 1673 0001:0015FA66 1674 0001:0015FA79 1675 0001:0015FA8C + 1676 0001:0015FAA5 1677 0001:0015FABB 1681 0001:0015FAD0 1683 0001:0015FAF0 + 1685 0001:0015FB41 1688 0001:0015FB51 1689 0001:0015FB5B 1690 0001:0015FB64 + 1691 0001:0015FB70 1692 0001:0015FB79 1693 0001:0015FB82 1694 0001:0015FB89 + 1695 0001:0015FB96 1696 0001:0015FBA6 1697 0001:0015FBB6 1698 0001:0015FBC3 + 1699 0001:0015FBD0 1700 0001:0015FBDD 1702 0001:0015FBED 1703 0001:0015FBFF + 1704 0001:0015FC14 1706 0001:0015FC26 1707 0001:0015FC47 1710 0001:0015FC7F + 1711 0001:0015FC90 1713 0001:0015FC96 1714 0001:0015FCA3 1716 0001:0015FCCF + 1717 0001:0015FCDC 1718 0001:0015FCF2 1719 0001:0015FCFB 1720 0001:0015FD04 + 1721 0001:0015FD14 1722 0001:0015FD24 1723 0001:0015FD34 1724 0001:0015FD44 + 1725 0001:0015FD54 1726 0001:0015FD64 1727 0001:0015FD70 1729 0001:0015FD82 + 1731 0001:0015FD90 1732 0001:0015FD9D 1733 0001:0015FDAA 1734 0001:0015FDE9 + 1735 0001:0015FE08 1736 0001:0015FE21 1737 0001:0015FE3A 1738 0001:0015FE53 + 1739 0001:0015FE69 1740 0001:0015FE7F 1741 0001:0015FE95 1742 0001:0015FEAB + 1743 0001:0015FEC1 1745 0001:0015FED5 1657 0001:0015FED8 1746 0001:0015FEE1 + 1748 0001:0015FEF0 1749 0001:0015FEFD 1750 0001:0015FF0D 1751 0001:0015FF1A + 1755 0001:0015FF29 1756 0001:0015FF36 1757 0001:0015FF46 1758 0001:0015FF53 + 1762 0001:0015FF60 1763 0001:0015FF75 1765 0001:0015FF81 1766 0001:0015FF83 + 1767 0001:0015FF87 1768 0001:0015FF8C 1769 0001:0015FFA4 1772 0001:0015FFA6 + 1773 0001:0015FFB9 1772 0001:0015FFCB 1775 0001:0015FFD0 1778 0001:0015FFF9 + 1779 0001:0016000C 1781 0001:00160019 1782 0001:00160020 1783 0001:00160038 + 1784 0001:00160050 1785 0001:00160059 1786 0001:00160077 1787 0001:001600BB + 1798 0001:00160130 1799 0001:00160164 1800 0001:00160182 1801 0001:00160186 + 1802 0001:0016018A 1803 0001:0016018E 1804 0001:00160195 1805 0001:001601BC + 1807 0001:001601C8 1808 0001:001601DE 1812 0001:001601F6 1813 0001:0016020A + 1815 0001:0016021E 1816 0001:00160240 1818 0001:00160263 1819 0001:00160283 + 1820 0001:001602A1 1821 0001:001602BF 1823 0001:001602CD 1825 0001:001602DC + 1826 0001:001602F1 1829 0001:001602F6 1830 0001:00160302 1831 0001:00160338 + 1832 0001:0016033D 1833 0001:00160342 1834 0001:00160347 1835 0001:0016034C + 1836 0001:00160351 1837 0001:00160356 1838 0001:0016035B 1839 0001:00160360 + 1841 0001:00160363 1843 0001:00160366 1844 0001:0016036A 1847 0001:00160370 + 1848 0001:00160374 1815 0001:00160377 1849 0001:00160380 1850 0001:0016038F + 1852 0001:001603A1 1853 0001:001603B1 1855 0001:001603C4 1854 0001:001603D3 + 1856 0001:001603DF 1859 0001:001603EF 1860 0001:001603F9 1861 0001:00160402 + 1862 0001:0016040E 1863 0001:00160415 1864 0001:0016041E 1865 0001:0016042E + 1866 0001:0016043B 1867 0001:0016044B 1868 0001:0016045B 1869 0001:00160468 + 1870 0001:00160475 1871 0001:00160482 1872 0001:00160495 1873 0001:001604A2 + 1874 0001:001604B8 1875 0001:001604C1 1876 0001:001604CA 1877 0001:001604DA + 1878 0001:001604EA 1879 0001:001604FA 1880 0001:0016050A 1881 0001:0016051A + 1882 0001:0016052A 1883 0001:00160536 1885 0001:00160548 1886 0001:00160556 + 1888 0001:0016055F 1889 0001:00160569 1890 0001:0016058A 1891 0001:00160599 + 1894 0001:001605C8 1896 0001:001605F5 1897 0001:00160610 1899 0001:0016061B + 1901 0001:00160625 1902 0001:0016063E 1903 0001:00160660 1905 0001:00160683 + 1906 0001:001606A3 1907 0001:001606B6 1908 0001:001606C9 1909 0001:001606FF + 1910 0001:0016070B 1911 0001:0016071A 1913 0001:00160749 1914 0001:00160776 + 1902 0001:00160779 1915 0001:00160782 1917 0001:00160791 1918 0001:0016079E + 1919 0001:001607AE 1920 0001:001607BB 1924 0001:001607CD 1925 0001:001607DA + 1926 0001:001607EA 1927 0001:001607F7 1930 0001:00160809 1932 0001:00160813 + 1933 0001:00160818 1934 0001:0016083A 1936 0001:0016085D 1937 0001:0016087D + 1938 0001:00160890 1939 0001:001608A3 1941 0001:001608CF 1942 0001:001608D7 + 1944 0001:001608F8 1945 0001:0016090F 1947 0001:00160951 1942 0001:00160954 + 1948 0001:00160959 1949 0001:0016096C 1950 0001:0016097F 1951 0001:00160998 + 1952 0001:001609AE 1956 0001:001609C3 1958 0001:001609E3 1960 0001:00160A34 + 1961 0001:00160A4E 1933 0001:00160A51 1962 0001:00160A5A 1964 0001:00160A69 + 1965 0001:00160A76 1966 0001:00160A86 1967 0001:00160A93 1971 0001:00160AA2 + 1972 0001:00160AAF 1973 0001:00160ABF 1974 0001:00160ACC 1978 0001:00160AD9 + 1979 0001:00160AE5 1980 0001:00160AF8 1983 0001:00160B06 1985 0001:00160B10 + 1986 0001:00160B33 1987 0001:00160B38 1988 0001:00160B5A 1990 0001:00160B79 + 1991 0001:00160B99 1992 0001:00160BAC 1994 0001:00160BBB 1995 0001:00160BC2 + 1997 0001:00160BC4 1998 0001:00160BD3 1999 0001:00160BD6 2001 0001:00160BDC + 1987 0001:00160BDF 2002 0001:00160BE8 2003 0001:00160BF0 2004 0001:00160C12 + 2006 0001:00160C35 2007 0001:00160C55 2008 0001:00160C68 2009 0001:00160C7B + 2011 0001:00160CA7 2012 0001:00160CAF 2014 0001:00160CD0 2015 0001:00160CE7 + 2017 0001:00160D35 2012 0001:00160D38 2018 0001:00160D3D 2019 0001:00160D50 + 2020 0001:00160D63 2021 0001:00160D7C 2022 0001:00160D98 2026 0001:00160DAD + 2028 0001:00160DCD 2030 0001:00160E1E 2031 0001:00160E2A 2033 0001:00160E2F + 2034 0001:00160E3B 2036 0001:00160E50 2037 0001:00160E61 2038 0001:00160E67 + 2040 0001:00160E76 2041 0001:00160E81 2043 0001:00160E9D 2044 0001:00160EAC + 2046 0001:00160EDB 2047 0001:00160F08 2003 0001:00160F0B 2048 0001:00160F14 + 2050 0001:00160F23 2051 0001:00160F30 2052 0001:00160F3D 2053 0001:00160F58 + 2054 0001:00160F65 2058 0001:00160F74 2059 0001:00160F81 2060 0001:00160F8E + 2061 0001:00160FA9 2062 0001:00160FB6 2066 0001:00160FC3 2067 0001:00160FCF + 2068 0001:00160FE2 2071 0001:00160FEB 2074 0001:0016101E 2075 0001:00161031 + 2076 0001:0016103E 2077 0001:0016105F 2078 0001:00161080 2079 0001:001610A1 + 2081 0001:001610C2 2082 0001:001610C9 2083 0001:001610E1 2084 0001:001610F9 + 2085 0001:00161102 2086 0001:00161120 2087 0001:00161167 2092 0001:001611D4 + 2093 0001:001611DA 2094 0001:001611ED 2095 0001:00161200 2096 0001:0016120A + 2098 0001:0016121C 2099 0001:00161229 2100 0001:00161247 2101 0001:00161265 + 2102 0001:00161283 2103 0001:001612A1 2106 0001:001612AF 2107 0001:001612BA + 2111 0001:001612E0 2112 0001:0016130C 2113 0001:00161319 2115 0001:00161326 + 2116 0001:00161365 2117 0001:0016137E 2118 0001:00161397 2119 0001:001613B0 + 2120 0001:001613C6 2121 0001:001613DC 2122 0001:001613F2 2123 0001:00161408 + 2124 0001:0016141E 2126 0001:00161457 2130 0001:00161460 2131 0001:00161472 + 2133 0001:00161476 2134 0001:0016147F 2135 0001:0016148B 2136 0001:00161495 + 2137 0001:0016149E 2139 0001:001614AC 2141 0001:001614B2 2142 0001:001614BB + 2143 0001:001614C7 2144 0001:001614D0 2145 0001:001614D9 2146 0001:001614E9 + 2148 0001:00161501 2150 0001:00161507 2151 0001:00161510 2152 0001:00161519 + 2153 0001:00161530 2154 0001:00161536 2155 0001:0016154B 2156 0001:00161554 + 2157 0001:0016155D 2158 0001:00161569 2160 0001:0016157F 2167 0001:00161598 + 2168 0001:001615C2 2169 0001:001615CA 2170 0001:001615CC 2171 0001:001615DE + 2173 0001:001615F1 2174 0001:0016160B 2177 0001:0016160F 2170 0001:00161615 + 2178 0001:00161618 2179 0001:0016165D 2183 0001:00161678 2184 0001:001616E1 + 2185 0001:001616E7 2186 0001:001616ED 2187 0001:001616F3 2188 0001:001616F9 + 2189 0001:001616FF 2190 0001:00161705 2191 0001:0016170B 2192 0001:00161711 + 2193 0001:00161717 2194 0001:0016171D 2195 0001:00161723 2196 0001:00161729 + 2197 0001:0016172F 2198 0001:00161735 2199 0001:00161738 2200 0001:0016173E + 2201 0001:00161744 2202 0001:0016174A 2204 0001:00161750 2206 0001:00161755 + 2215 0001:00161758 2216 0001:0016177C 2217 0001:00161783 2218 0001:001617AB + 2219 0001:001617B9 2220 0001:001617C6 2221 0001:001617CF 2222 0001:001617D5 + 2224 0001:001617E3 2225 0001:001617EF 2227 0001:001617FA 2228 0001:0016180B + 2229 0001:00161829 2230 0001:0016183A 2231 0001:00161851 2232 0001:00161862 + 2233 0001:00161868 2234 0001:0016186E 2235 0001:00161889 2237 0001:001618A5 + 2238 0001:001618C3 2239 0001:001618DA 2234 0001:001618DD 2240 0001:001618E2 + 2242 0001:001618E6 2243 0001:001618F3 2247 0001:00161901 2248 0001:0016190F + 2249 0001:0016191C 2250 0001:0016192A 2251 0001:00161930 2252 0001:0016194F + 2254 0001:0016196F 2255 0001:0016198D 2256 0001:001619A5 2258 0001:001619C1 + 2259 0001:001619E4 2261 0001:00161A09 2262 0001:00161A28 2264 0001:00161A2A + 2256 0001:00161A2B 2265 0001:00161A30 2251 0001:00161A33 2266 0001:00161A3C + 2268 0001:00161A45 2270 0001:00161A4B 2271 0001:00161A59 2275 0001:00161A67 + 2276 0001:00161A75 2277 0001:00161A82 2278 0001:00161A90 2279 0001:00161A99 + 2280 0001:00161ABB 2282 0001:00161AD7 2283 0001:00161AFA 2285 0001:00161B1E + 2286 0001:00161B3D 2288 0001:00161B3F 2280 0001:00161B40 2288 0001:00161B45 + 2279 0001:00161B48 2289 0001:00161B51 2291 0001:00161B5A 2292 0001:00161B6B + 2293 0001:00161B9E 2300 0001:00161BA8 2301 0001:00161BC9 2302 0001:00161BD0 + 2303 0001:00161BF8 2304 0001:00161C01 2305 0001:00161C07 2307 0001:00161C15 + 2308 0001:00161C21 2310 0001:00161C2C 2311 0001:00161C32 2313 0001:00161C3C + 2314 0001:00161C46 2316 0001:00161C4F 2317 0001:00161C55 2319 0001:00161C5F + 2320 0001:00161C69 2322 0001:00161C72 2323 0001:00161C82 2324 0001:00161C92 + 2325 0001:00161CA9 2326 0001:00161CBA 2327 0001:00161CC3 2328 0001:00161CE0 + 2330 0001:00161CFF 2331 0001:00161D1F 2332 0001:00161D34 2333 0001:00161D48 + 2327 0001:00161D4B 2334 0001:00161D4E 2335 0001:00161D57 2336 0001:00161D74 + 2338 0001:00161D93 2339 0001:00161DB3 2340 0001:00161DC8 2341 0001:00161DDC + 2335 0001:00161DDF 2342 0001:00161DE2 2343 0001:00161DF0 2344 0001:00161DFE + 2345 0001:00161E07 2347 0001:00161E24 2348 0001:00161E38 2349 0001:00161E4B + 2350 0001:00161E69 2352 0001:00161E7B 2353 0001:00161E8B 2345 0001:00161E8E + 2354 0001:00161E91 2355 0001:00161E9A 2356 0001:00161EA3 2357 0001:00161EB4 + 2358 0001:00161EDF 2364 0001:00161F04 2366 0001:00161F2E 2368 0001:00161F46 + 2369 0001:00161F65 2370 0001:00161F87 2371 0001:00161FA3 2365 0001:00161FA4 + 2372 0001:00161FC9 2376 0001:00161FD0 2377 0001:00161FDF 2378 0001:00161FE4 + 2382 0001:00161FE8 2383 0001:00161FF7 2384 0001:00161FFC 2388 0001:00162000 + 2389 0001:0016200F 2390 0001:00162014 2393 0001:00162018 2394 0001:0016201E + 2396 0001:00162024 2397 0001:00162031 2398 0001:00162038 2399 0001:0016204A + 2401 0001:00162053 2402 0001:0016206D 2404 0001:00162074 2406 0001:0016207D + 2407 0001:00162097 2409 0001:0016209E 2411 0001:001620A5 2412 0001:001620BF + 2413 0001:001620DA 2414 0001:001620E1 2417 0001:001620E8 2420 0001:001620F0 + 2421 0001:001620F3 2423 0001:001620F9 2424 0001:00162102 2426 0001:0016210A + 2428 0001:00162111 2429 0001:00162126 2430 0001:0016213B 2433 0001:00162140 + 2434 0001:00162144 2436 0001:0016214A 2437 0001:00162152 2438 0001:0016215F + 2440 0001:0016216E 2443 0001:00162174 2444 0001:00162178 2446 0001:0016217E + 2447 0001:00162186 2448 0001:00162193 2450 0001:001621A2 2454 0001:001621A8 + 2455 0001:001621B7 2456 0001:001621BC 2459 0001:001621C0 2460 0001:001621C4 + 2461 0001:001621E3 2462 0001:001621EC 2465 0001:001621F0 2466 0001:001621F4 + 2467 0001:001621FA 2468 0001:00162205 2470 0001:0016220B 2471 0001:0016221C + 2473 0001:00162227 2475 0001:0016222D 2476 0001:0016223E 2478 0001:00162249 + 2482 0001:0016224C 2484 0001:00162252 2485 0001:0016225B 2487 0001:00162263 + 2488 0001:00162268 2492 0001:0016226C 2493 0001:00162272 2494 0001:0016227B + 2495 0001:00162280 2499 0001:00162284 2500 0001:00162293 2501 0001:00162298 + 2506 0001:0016229C 2509 0001:001622A7 2510 0001:001622B7 2511 0001:001622C3 + 2512 0001:001622D2 2513 0001:001622E6 2514 0001:001622FA 2515 0001:00162303 + 2516 0001:00162317 2518 0001:00162323 2519 0001:0016232F 2520 0001:0016233F + 2521 0001:0016234F 2525 0001:00162361 2526 0001:0016236D 2527 0001:0016237D + 2528 0001:0016238D 2530 0001:0016239D 2532 0001:001623B2 2533 0001:001623CA + 2535 0001:001623E1 2536 0001:001623F5 2538 0001:0016240C 2539 0001:00162424 + 2541 0001:0016243C 2542 0001:00162451 2544 0001:00162469 2545 0001:00162481 + 2547 0001:00162495 2549 0001:001624A6 2550 0001:001624BE 2552 0001:001624D2 + 2554 0001:001624E3 2555 0001:001624FB 2557 0001:00162513 2558 0001:00162528 + 2560 0001:00162540 2530 0001:00162541 2562 0001:00162548 2569 0001:00162550 + 2570 0001:00162559 2571 0001:00162565 2572 0001:0016256D 2574 0001:00162582 + 2575 0001:00162591 2576 0001:001625A7 2572 0001:001625A8 2577 0001:001625AB + 2579 0001:001625C0 2580 0001:001625CF 2581 0001:001625E5 2577 0001:001625E6 + 2582 0001:001625E9 2583 0001:001625F5 2584 0001:00162602 2585 0001:0016260E + 2586 0001:0016261B 2588 0001:0016262B 2589 0001:0016263A 2590 0001:0016264F + 2591 0001:0016265E 2592 0001:0016266D 2593 0001:0016267C 2594 0001:0016268B + 2595 0001:0016269A 2596 0001:001626A9 2597 0001:001626BE 2598 0001:001626CD + 2599 0001:001626DC 2600 0001:001626EB 2601 0001:001626FA 2605 0001:0016270E + 2606 0001:0016271C 2607 0001:00162732 2608 0001:00162740 2609 0001:0016274E + 2610 0001:0016275C 2611 0001:0016276A 2612 0001:00162778 2613 0001:00162786 + 2614 0001:0016279C 2615 0001:001627AA 2616 0001:001627B8 2617 0001:001627C6 + 2618 0001:001627D4 2620 0001:001627E2 2621 0001:001627F6 2622 0001:0016280A + 2623 0001:0016281E 2624 0001:00162832 2625 0001:00162846 2626 0001:0016285A + 2627 0001:0016286E 2628 0001:00162882 2629 0001:00162896 2630 0001:001628AE + 2631 0001:001628C2 2632 0001:001628D6 2633 0001:001628EA 2639 0001:001628F4 + 2640 0001:00162922 2641 0001:0016292F 2642 0001:00162936 2643 0001:0016293F + 2644 0001:00162945 2645 0001:0016294B 2646 0001:00162958 2648 0001:00162969 + 2649 0001:00162989 2653 0001:001629AC 2654 0001:001629BC 2656 0001:001629D4 + 2657 0001:001629DF 2659 0001:001629E9 2660 0001:001629FA 2661 0001:00162A0D + 2662 0001:00162A3F 2663 0001:00162A5F 2664 0001:00162A8A 2665 0001:00162AC8 + 2666 0001:00162AE6 2667 0001:00162AF9 2671 0001:00162B2B 2672 0001:00162B38 + 2673 0001:00162B44 2675 0001:00162B6E 2676 0001:00162B96 2678 0001:00162BD4 + 2679 0001:00162BDE 2680 0001:00162BEF 2681 0001:00162BFC 2682 0001:00162C1A + 2684 0001:00162C38 2685 0001:00162C61 2693 0001:00162D48 2694 0001:00162D95 + 2695 0001:00162DA5 2696 0001:00162DB3 2697 0001:00162DC2 2698 0001:00162DDC + 2699 0001:00162DFA 2700 0001:00162E05 2702 0001:00162E44 2703 0001:00162E54 + 2704 0001:00162E6C 2705 0001:00162E84 2706 0001:00162E9E 2708 0001:00162EC1 + 2709 0001:00162EDA 2711 0001:00162EFE 2713 0001:00162F21 2714 0001:00162F4C + 2715 0001:00162F5F 2716 0001:00162F97 2717 0001:00162FCB 2718 0001:00162FFC + 2719 0001:0016300F 2720 0001:00163047 2721 0001:0016307B 2723 0001:00163099 + 2729 0001:0016314D 2734 0001:0016316D 2735 0001:0016319E 2737 0001:001631BC + 2738 0001:001631FA 2740 0001:0016320F 2741 0001:00163222 2746 0001:001632CE + 2750 0001:001632E9 2706 0001:001632EA 2753 0001:001632F3 2754 0001:001632FD + 2756 0001:00163310 2757 0001:00163318 2758 0001:00163324 2760 0001:0016336E + 2761 0001:00163390 2763 0001:001633C4 2764 0001:001633CF 2754 0001:001633D0 + 2765 0001:001633D9 2766 0001:001633E0 2767 0001:001633EA 2768 0001:001633F5 + 2771 0001:00163449 2772 0001:0016347A 2773 0001:00163486 2774 0001:00163495 + 2775 0001:001634A3 2776 0001:001634D2 2777 0001:001634E0 2778 0001:001634EE + 2779 0001:001634FC 2781 0001:00163508 2782 0001:0016350F 2783 0001:00163517 + 2784 0001:00163564 2793 0001:001636F4 2794 0001:0016371A 2795 0001:0016372A + 2796 0001:00163732 2799 0001:00163741 2800 0001:0016376D 2803 0001:001637CD + 2805 0001:001637D7 2806 0001:001637DB 2808 0001:001637F1 2810 0001:00163803 + 2811 0001:0016381E 2812 0001:00163831 2814 0001:00163844 2815 0001:0016385F + 2818 0001:0016386A 2819 0001:0016386E 2820 0001:00163882 2821 0001:00163891 + 2822 0001:0016389B 2824 0001:001638A5 2826 0001:001638C6 2827 0001:001638E3 + 2828 0001:001638F6 2829 0001:00163909 2830 0001:0016392B 2832 0001:0016393B + 2833 0001:0016395D 2835 0001:00163988 2836 0001:001639AC 2837 0001:001639DA + 2838 0001:00163A0C 2839 0001:00163A2A 2841 0001:00163A35 2824 0001:00163A38 + 2843 0001:00163A3F 2806 0001:00163A40 2844 0001:00163A49 2846 0001:00163A55 + 2847 0001:00163A64 2848 0001:00163A73 2850 0001:00163A82 2851 0001:00163A8A + 2852 0001:00163A94 2853 0001:00163AD1 2861 0001:00163C54 2862 0001:00163C77 + 2863 0001:00163C7E 2864 0001:00163C8C 2865 0001:00163C99 2866 0001:00163CA7 + 2867 0001:00163CB4 2869 0001:00163CC0 2870 0001:00163CC9 2871 0001:00163CCF + 2872 0001:00163CDC 2876 0001:00163CEB 2877 0001:00163CF4 2878 0001:00163CFA + 2879 0001:00163D07 2881 0001:00163D14 2882 0001:00163D27 2885 0001:00163D5B + 2886 0001:00163D7D 2888 0001:00163DA0 2889 0001:00163DC0 2890 0001:00163DD5 + 2892 0001:00163DF0 2893 0001:00163E0D 2894 0001:00163E2F 2895 0001:00163E49 + 2890 0001:00163E4C 2896 0001:00163E51 2897 0001:00163E6E 2885 0001:00163E71 + 2898 0001:00163E7A 2899 0001:00163E80 2901 0001:00163E8E 2902 0001:00163E9A + 2904 0001:00163EA5 2905 0001:00163EAC 2906 0001:00163EB6 2910 0001:00163EC5 + 2911 0001:00163EE3 2912 0001:00163EED 2914 0001:00163F08 2915 0001:00163F25 + 2916 0001:00163F47 2917 0001:00163F61 2912 0001:00163F64 2918 0001:00163F69 + 2919 0001:00163F86 2920 0001:00163F8C 2922 0001:00163F9A 2923 0001:00163FA6 + 2925 0001:00163FB1 2926 0001:00163FB8 2927 0001:00163FC2 2929 0001:00163FCC + 2930 0001:00164008 2937 0001:0016404C 2938 0001:00164079 2939 0001:00164082 + 2941 0001:0016408A 2942 0001:0016409F 2944 0001:001640B9 2945 0001:001640D5 + 2946 0001:001640DA 2947 0001:001640FA 2948 0001:001640FC 2940 0001:001640FD + 2949 0001:00164100 2951 0001:0016410C 2952 0001:00164122 2953 0001:0016414F + 2954 0001:0016416B 2956 0001:00164181 2957 0001:00164196 2959 0001:001641B0 + 2960 0001:001641CC 2961 0001:001641D1 2962 0001:001641F1 2963 0001:001641F3 + 2955 0001:001641F4 2965 0001:00164219 2969 0001:00164230 2970 0001:0016423E + 2971 0001:00164245 2972 0001:00164252 2973 0001:00164259 2974 0001:00164264 + 2975 0001:00164274 2976 0001:0016427F 2977 0001:001642B1 2978 0001:001642E1 + 2979 0001:001642EE 2980 0001:00164313 2981 0001:00164336 2982 0001:0016435F + 2984 0001:0016436B 2985 0001:0016437B 2989 0001:0016438D 2990 0001:0016439D + 2992 0001:001643AD 2993 0001:001643B3 2994 0001:001643BA 2997 0001:00164464 + 2998 0001:0016447D 2999 0001:00164494 3000 0001:001644C8 3002 0001:001644DB + 3003 0001:00164505 3006 0001:00164514 3007 0001:00164524 3009 0001:00164531 + 3010 0001:0016455B 3013 0001:0016456A 3014 0001:0016457A 3016 0001:00164587 + 3017 0001:00164597 3021 0001:001645CE 3022 0001:001645DB 3023 0001:001645E8 + 3025 0001:001645F5 3026 0001:0016462A 3027 0001:0016463E 3028 0001:00164652 + 3031 0001:00164666 3032 0001:0016466F 3034 0001:0016467E 3035 0001:001646AD + 3044 0001:00164724 3045 0001:00164746 3047 0001:00164756 3048 0001:00164774 + 3049 0001:0016477E 3051 0001:001647A3 3053 0001:001647BA 3054 0001:001647DE + 3058 0001:00164809 3059 0001:0016481D 3061 0001:00164835 3062 0001:00164853 + 3063 0001:00164891 3064 0001:001648CF 3065 0001:001648ED 3066 0001:00164900 + 3067 0001:0016492D 3070 0001:00164932 3074 0001:00164941 3075 0001:00164956 + 3076 0001:0016496B 3077 0001:0016497A 3078 0001:0016498A 3080 0001:001649A9 + 3082 0001:001649CA 3083 0001:001649ED 3084 0001:001649FB 3087 0001:00164A06 + 3078 0001:00164A07 3088 0001:00164A0C 3090 0001:00164A27 3092 0001:00164A48 + 3093 0001:00164A6B 3094 0001:00164A79 3096 0001:00164A84 3088 0001:00164A85 + 3097 0001:00164A88 3098 0001:00164A94 3099 0001:00164AAA 3101 0001:00164AB2 + 3102 0001:00164AE8 3110 0001:00164AFC 3111 0001:00164B22 3112 0001:00164B26 + 3113 0001:00164B35 3115 0001:00164B4B 3116 0001:00164B58 3117 0001:00164B6B + 3118 0001:00164B7A 3119 0001:00164B7E 3121 0001:00164B8D 3122 0001:00164BA0 + 3123 0001:00164BBE 3126 0001:00164BDB 3127 0001:00164BE6 3113 0001:00164BE7 + 3128 0001:00164BEE 3129 0001:00164BF4 3131 0001:00164C39 3132 0001:00164C4A + 3133 0001:00164C74 3140 0001:00164CB4 3141 0001:00164CE1 3142 0001:00164CEF + 3143 0001:00164D08 3144 0001:00164D21 3145 0001:00164D30 3146 0001:00164D3F + 3147 0001:00164D5B 3148 0001:00164D70 3149 0001:00164D90 3150 0001:00164DC9 + 3151 0001:00164DEB 3152 0001:00164E39 3153 0001:00164E6F 3162 0001:00164ED0 + 3163 0001:00164EF4 3164 0001:00164F02 3166 0001:00164F29 3168 0001:00164F44 + 3169 0001:00164F54 3170 0001:00164F61 3171 0001:00164F72 3174 0001:00164FE0 + 3175 0001:00164FEF 3176 0001:00165005 3177 0001:0016500D 3178 0001:0016501F + 3177 0001:00165045 3179 0001:00165048 3180 0001:00165062 3181 0001:00165077 + 3182 0001:0016509F 3183 0001:001650CB 3184 0001:0016510E 3185 0001:0016516C + 3186 0001:0016519F 3187 0001:001651CF 3188 0001:001651E6 3189 0001:00165218 + 3190 0001:0016525B 3191 0001:0016529E 3192 0001:001652EC 3193 0001:00165337 + 3194 0001:00165369 3195 0001:00165397 3196 0001:001653C9 3197 0001:00165417 + 3198 0001:00165462 3199 0001:00165494 3200 0001:001654C2 3202 0001:001654DE + 3203 0001:001654F0 3205 0001:00165507 3206 0001:00165519 3207 0001:00165547 + 3209 0001:001655AB 3200 0001:001655AC 3210 0001:001655B3 3212 0001:001655E2 + 3213 0001:001655F0 3214 0001:0016561E 3216 0001:00165682 3217 0001:001656B0 + 3218 0001:00165719 3220 0001:00165735 3221 0001:00165747 3223 0001:0016575E + 3224 0001:00165770 3225 0001:0016579E 3227 0001:00165802 3218 0001:00165803 + 3228 0001:0016580A 3231 0001:00165852 3232 0001:00165860 3233 0001:0016588E + 3235 0001:001658F2 3236 0001:00165920 3237 0001:0016594E 3238 0001:00165963 + 3239 0001:00165978 3240 0001:0016598B 3241 0001:00165993 3242 0001:0016599B + 3243 0001:00165A09 3249 0001:00165C34 3250 0001:00165C74 3253 0001:00165C90 + 3254 0001:00165C9C 3255 0001:00165CD1 3256 0001:00165CDD 3257 0001:00165D03 + 3258 0001:00165D41 3259 0001:00165D8A 3260 0001:00165DC5 3261 0001:00165DCF + 3262 0001:00165DE8 3264 0001:00165E37 3265 0001:00165E43 3266 0001:00165E78 + 3267 0001:00165EAD 3269 0001:00165EE8 3276 0001:00166024 3277 0001:00166051 + 3278 0001:00166062 3279 0001:00166082 3280 0001:0016608B 3281 0001:001660A5 + 3283 0001:001660E9 3284 0001:001660FC 3285 0001:0016610F 3288 0001:0016616D + 3289 0001:00166199 3290 0001:001661C5 3291 0001:001661E1 3292 0001:0016620D + 3293 0001:00166229 3294 0001:00166255 3295 0001:00166279 3297 0001:001662A5 + 3299 0001:001662C2 3300 0001:001662EE 3301 0001:00166312 3302 0001:00166337 + 3303 0001:00166378 3304 0001:0016639D 3306 0001:001663DB 3308 0001:00166402 + 3280 0001:00166403 3309 0001:0016643B 3314 0001:001664B8 3316 0001:001664E1 + 3317 0001:001664F1 3318 0001:00166514 3319 0001:0016655F 3320 0001:001665AE + 3321 0001:00166636 3322 0001:0016666F 3327 0001:001666B8 3328 0001:001666E2 + 3329 0001:001666E9 3330 0001:00166725 3331 0001:0016673D 3332 0001:00166755 + 3334 0001:00166761 3335 0001:0016677D 3337 0001:001667B3 3338 0001:001667EC + 3339 0001:001667EE 3334 0001:001667EF 3340 0001:00166821 3345 0001:00166860 + 3346 0001:0016688B 3347 0001:0016688F 3348 0001:001668AD 3350 0001:001668E6 + 3351 0001:00166920 3352 0001:00166922 3347 0001:00166923 3353 0001:00166953 + 3359 0001:0016695C 3360 0001:0016698C 3361 0001:00166990 3362 0001:00166992 + 3363 0001:00166994 3366 0001:001669A2 3367 0001:001669B8 3369 0001:001669D8 + 3370 0001:001669DC 3371 0001:001669EB 3373 0001:001669EF 3364 0001:001669F0 + 3375 0001:001669F4 3377 0001:001669FA 3378 0001:00166A1C 3380 0001:00166A69 + 3385 0001:00166A70 3386 0001:00166AA3 3387 0001:00166ABA 3388 0001:00166AD8 + 3389 0001:00166AE0 3390 0001:00166AFE 3392 0001:00166B37 3393 0001:00166B73 + 3394 0001:00166B75 3389 0001:00166B76 3395 0001:00166BA3 3398 0001:00166BCC + 3399 0001:00166BCF 3400 0001:00166BE9 3401 0001:00166BFD 3402 0001:00166C17 + 3405 0001:00166C1C 3406 0001:00166C1F 3407 0001:00166C39 3408 0001:00166C4D + 3409 0001:00166C67 3416 0001:00166C6C 3417 0001:00166C8E 3418 0001:00166CA8 + 3419 0001:00166CBB 3420 0001:00166CCE 3421 0001:00166CD6 3423 0001:00166D0B + 3425 0001:00166D11 3426 0001:00166D20 3427 0001:00166D30 3429 0001:00166D40 + 3433 0001:00166DB7 3434 0001:00166DCB 3437 0001:00166DE8 3439 0001:00166DF8 + 3441 0001:00166E08 3444 0001:00166E16 3445 0001:00166E1F 3446 0001:00166E2A + 3447 0001:00166E30 3449 0001:00166E64 3451 0001:00166E78 3452 0001:00166E9F + 3453 0001:00166EB2 3454 0001:00166EC5 3455 0001:00166EEA 3456 0001:00166EF7 + 3457 0001:00166F03 3458 0001:00166F0F 3460 0001:00166F3C 3461 0001:00166F4E + 3462 0001:00166F70 3467 0001:00166F81 3468 0001:00166F93 3471 0001:00166FA4 + 3472 0001:00166FBE 3475 0001:00166FCF 3476 0001:00166FE9 3479 0001:00166FFA + 3480 0001:00167014 3483 0001:00167025 3484 0001:0016703F 3487 0001:00167050 + 3488 0001:0016706A 3491 0001:0016707B 3492 0001:00167095 3495 0001:001670A6 + 3496 0001:001670B4 3500 0001:001670C5 3501 0001:001670EC 3502 0001:001670FF + 3503 0001:00167112 3504 0001:00167144 3505 0001:00167150 3506 0001:0016715C + 3508 0001:00167181 3509 0001:00167193 3510 0001:001671B5 3514 0001:001671C1 + 3515 0001:001671DA 3516 0001:001671ED 3517 0001:00167200 3518 0001:0016720C + 3519 0001:00167218 3520 0001:0016722F 3521 0001:00167246 3522 0001:00167291 + 3525 0001:001672F8 3526 0001:001672FE 3528 0001:0016730F 3529 0001:00167333 + 3532 0001:00167346 3533 0001:00167351 3536 0001:00167364 3537 0001:0016736A + 3538 0001:00167386 3539 0001:00167393 3540 0001:001673A7 3544 0001:001673B8 + 3545 0001:001673DA 3546 0001:001673EF 3548 0001:001673F8 3549 0001:00167401 + 3551 0001:00167419 3556 0001:00167454 3557 0001:0016745D 3559 0001:00167472 + 3562 0001:001674CD 3566 0001:001674D8 3567 0001:001674E1 3568 0001:001674F0 + 3570 0001:00167500 3571 0001:00167507 3572 0001:00167514 3573 0001:00167526 + 3577 0001:0016752C 3578 0001:0016754E 3579 0001:00167563 3581 0001:0016756C + 3582 0001:00167575 3584 0001:0016758D 3589 0001:001675C8 3590 0001:001675D1 + 3592 0001:001675E6 3595 0001:00167641 3599 0001:0016764C 3600 0001:00167655 + 3601 0001:00167664 3603 0001:00167674 3604 0001:0016767B 3605 0001:00167688 + 3606 0001:0016769A 3614 0001:001676A0 3615 0001:001676C3 3616 0001:001676CB + 3617 0001:001676EB 3619 0001:00167710 3620 0001:00167732 3621 0001:0016773D + 3623 0001:0016775F 3624 0001:00167785 3625 0001:00167791 3626 0001:001677C0 + 3628 0001:001677C8 3629 0001:001677D4 3630 0001:0016781A 3616 0001:0016781B + 3631 0001:00167824 3632 0001:00167835 3633 0001:00167839 3634 0001:00167846 + 3636 0001:00167852 3638 0001:0016788B 3639 0001:00167895 3640 0001:0016789C + 3641 0001:001678AF 3643 0001:001678BB 3644 0001:001678CF 3645 0001:001678E4 + 3647 0001:00167900 3648 0001:00167916 3649 0001:0016792D 3650 0001:00167944 + 3645 0001:00167945 3651 0001:0016794A 3652 0001:00167968 3653 0001:00167974 + 3654 0001:00167992 3655 0001:0016799E 3656 0001:001679D4 3661 0001:00167A54 + 3662 0001:00167A74 3664 0001:00167A7D 3666 0001:00167AA3 3668 0001:00167ABF + 3669 0001:00167ADD 3671 0001:00167B1C 3672 0001:00167B22 3674 0001:00167B24 + 3666 0001:00167B25 3676 0001:00167B2A 3678 0001:00167B33 3680 0001:00167B45 + 3681 0001:00167B55 3683 0001:00167B5E 3684 0001:00167B69 3685 0001:00167B7A + 3686 0001:00167B82 3687 0001:00167B8F 3690 0001:00167B98 3692 0001:00167BA1 + 3694 0001:00167BBF 3696 0001:00167BDB 3698 0001:00167C1A 3699 0001:00167C20 + 3701 0001:00167C22 3694 0001:00167C23 3703 0001:00167C28 3705 0001:00167C31 + 3706 0001:00167C3C 3707 0001:00167C4D 3708 0001:00167C55 3709 0001:00167C62 + 3712 0001:00167C8D 3716 0001:00167C94 3717 0001:00167CB6 3718 0001:00167CCF + 3719 0001:00167CD6 3720 0001:00167CE6 3721 0001:00167CEF 3723 0001:00167CF3 + 3724 0001:00167CFE 3726 0001:00167D08 3727 0001:00167D19 3728 0001:00167D27 + 3730 0001:00167D35 3731 0001:00167D43 3733 0001:00167D56 3735 0001:00167D76 + 3736 0001:00167D9F 3738 0001:00167DCE 3740 0001:00167DEE 3741 0001:00167E17 + 3743 0001:00167E40 3745 0001:00167E4F 3746 0001:00167E5D 3748 0001:00167E73 + 3750 0001:00167E82 3751 0001:00167E90 3753 0001:00167EA4 3754 0001:00167EB5 + 3755 0001:00167EBF 3757 0001:00167EDB 3758 0001:00167EEC 3759 0001:00167EF3 + 3761 0001:00167F02 3762 0001:00167F1D 3763 0001:00167F24 3764 0001:00167F2D + 3765 0001:00167F36 3766 0001:00167F3D 3767 0001:00167F68 3775 0001:00167FA0 + 3776 0001:00167FDD 3777 0001:00167FF3 3779 0001:00168030 3780 0001:00168051 + 3782 0001:00168073 3783 0001:00168075 3784 0001:00168086 3785 0001:001680B6 + 3786 0001:001680D6 3787 0001:001680F6 3788 0001:001680FA 3789 0001:0016810B + 3790 0001:00168131 3791 0001:00168133 3793 0001:0016813B 3794 0001:0016813F + 3795 0001:00168141 3796 0001:00168143 3799 0001:00168151 3800 0001:00168167 + 3802 0001:0016818D 3803 0001:00168191 3805 0001:00168195 3797 0001:00168196 + 3807 0001:0016819A 3809 0001:001681A4 3810 0001:001681BB 3811 0001:001681D7 + 3812 0001:001681F9 3814 0001:0016820D 3817 0001:0016823E 3780 0001:00168241 + 3818 0001:00168289 3823 0001:001682BC 3824 0001:001682DA 3825 0001:001682E1 + 3826 0001:001682E7 3828 0001:001682FE 3829 0001:0016830B 3830 0001:00168319 + 3831 0001:00168323 3832 0001:00168343 3831 0001:00168384 3833 0001:00168387 + 3837 0001:00168397 3838 0001:001683A5 3839 0001:001683C5 3838 0001:00168409 + 3840 0001:0016840C 3842 0001:0016845E 3847 0001:00168494 3848 0001:001684B2 + 3849 0001:001684B9 3850 0001:001684BF 3852 0001:001684D6 3853 0001:001684E3 + 3854 0001:001684F1 3855 0001:001684FB 3856 0001:0016851B 3855 0001:0016855C + 3857 0001:0016855F 3861 0001:0016856F 3862 0001:0016857D 3863 0001:0016859D + 3862 0001:001685E1 3864 0001:001685E4 3866 0001:00168636 3872 0001:00168670 + 3873 0001:00168678 3875 0001:00168687 3876 0001:0016869C 3878 0001:001686B7 + 3879 0001:001686D1 3880 0001:001686DF 3875 0001:001686E0 3882 0001:001686E3 + 3889 0001:001686E8 3890 0001:00168712 3892 0001:00168734 3893 0001:00168754 + 3894 0001:00168774 3896 0001:0016878C 3897 0001:001687BF 3899 0001:001687CC + 3900 0001:001687E9 3903 0001:001687EB 3894 0001:001687EC 3903 0001:001687EF + 3890 0001:001687F2 3904 0001:0016882A 3910 0001:00168834 3911 0001:00168863 + 3912 0001:00168870 3913 0001:00168877 3914 0001:00168885 3916 0001:00168890 + 3917 0001:00168899 3918 0001:001688A4 3920 0001:001688B3 3921 0001:001688C1 + 3925 0001:001688D7 3926 0001:001688E5 3928 0001:001688F9 3929 0001:00168903 + 3931 0001:00168908 3933 0001:00168912 3934 0001:0016891B 3935 0001:00168929 + 3936 0001:00168932 3938 0001:00168937 3939 0001:00168942 3940 0001:00168946 + 3941 0001:0016895D 3942 0001:0016899B 3943 0001:001689A8 3944 0001:001689C5 + 3945 0001:001689CB 3946 0001:001689D4 3948 0001:001689E7 3949 0001:001689F6 + 3950 0001:001689FF 3951 0001:00168A19 3952 0001:00168A26 3953 0001:00168A40 + 3954 0001:00168A5D 3955 0001:00168A7A 3959 0001:00168A86 3960 0001:00168A95 + 3961 0001:00168A9E 3962 0001:00168AB8 3963 0001:00168AC5 3964 0001:00168ADF + 3965 0001:00168AFC 3966 0001:00168B19 3968 0001:00168B20 3969 0001:00168B2B + 3970 0001:00168B35 3971 0001:00168B69 3975 0001:00168B90 3976 0001:00168BA6 + 3980 0001:00168BB4 3981 0001:00168BCA 3986 0001:00168BDC 3987 0001:00168C10 + 3988 0001:00168C23 3989 0001:00168C4C 3990 0001:00168C58 3991 0001:00168C67 + 3993 0001:00168C7D 3994 0001:00168CB3 4002 0001:00168CC4 4003 0001:00168D01 + 4004 0001:00168D10 4005 0001:00168D2D 4006 0001:00168D4C 4004 0001:00168D4D + 4007 0001:00168D57 4009 0001:00168D74 4010 0001:00168D7C 4011 0001:00168D9B + 4012 0001:00168DA6 4013 0001:00168DC4 4014 0001:00168DD7 4015 0001:00168DF7 + 4017 0001:00168DFC 4018 0001:00168E0C 4019 0001:00168E16 4020 0001:00168E29 + 4021 0001:00168E3C 4022 0001:00168E54 4024 0001:00168E6F 4025 0001:00168E7D + 4027 0001:00168E8A 4028 0001:00168E95 4031 0001:00168E9A 4033 0001:00168EA9 + 4035 0001:00168EC9 4036 0001:00168ED4 4041 0001:00168ED9 4043 0001:00168EE6 + 4044 0001:00168EF1 4047 0001:00168EF6 4049 0001:00168F12 4050 0001:00168F1D + 4052 0001:00168F22 4053 0001:00168F58 4054 0001:00168F95 4056 0001:00168FE8 + 4057 0001:00168FF3 4059 0001:00168FF5 4015 0001:00168FF6 4060 0001:00169002 + 4061 0001:00169022 4007 0001:00169023 4062 0001:0016905B 4071 0001:00169098 + 4072 0001:001690CA 4073 0001:001690D5 4074 0001:001690EA 4075 0001:001690F9 + 4076 0001:00169108 4077 0001:00169117 4078 0001:0016911F 4080 0001:00169124 + 4081 0001:00169134 4082 0001:00169140 4083 0001:00169151 4085 0001:00169160 + 4086 0001:0016916B 4078 0001:0016916C 4087 0001:00169174 4089 0001:0016918A + 4090 0001:00169197 4096 0001:001691DB 4097 0001:001691FD 4098 0001:0016921B + 4087 0001:0016921C 4099 0001:00169223 4100 0001:0016922F 4101 0001:00169241 + 4103 0001:00169255 4104 0001:00169262 4105 0001:00169275 4106 0001:00169288 + 4107 0001:001692A8 4101 0001:001692A9 4108 0001:001692AC 4109 0001:001692EE + 4115 0001:00169348 4116 0001:00169373 4117 0001:00169385 4118 0001:00169397 + 4119 0001:001693A6 4120 0001:001693D3 4121 0001:001693E2 4122 0001:0016940D + 4124 0001:00169413 4125 0001:00169434 4124 0001:00169458 4126 0001:0016945D + 4128 0001:0016946E 4129 0001:00169474 4130 0001:00169491 4131 0001:0016949E + 4133 0001:001694AB 4134 0001:001694B6 4135 0001:001694C5 4136 0001:001694D4 + 4137 0001:001694E3 4138 0001:001694F2 4141 0001:00169501 4142 0001:0016952C + 4144 0001:00169531 4145 0001:00169541 4146 0001:0016954B 4147 0001:0016955E + 4148 0001:00169571 4149 0001:00169580 4150 0001:0016958F 4152 0001:0016959E + 4153 0001:001695AD 4155 0001:001695BC 4156 0001:001695CB 4158 0001:001695DC + 4159 0001:001695EB 4160 0001:001695F8 4142 0001:001695F9 4161 0001:00169634 + 4164 0001:00169718 4165 0001:0016973B 4167 0001:00169749 4168 0001:00169758 + 4170 0001:0016975B 4172 0001:00169769 4173 0001:00169778 4175 0001:00169798 + 4180 0001:001697AC 4181 0001:001697D1 4182 0001:001697D6 4184 0001:001697EE + 4185 0001:0016981A 4186 0001:0016981D 4182 0001:0016981E 4187 0001:00169821 + 4188 0001:00169832 4190 0001:0016984A 4191 0001:00169876 4193 0001:00169892 + 4188 0001:00169893 4195 0001:00169898 4196 0001:001698A6 4197 0001:001698B0 + 4198 0001:001698BE 4200 0001:001698C6 4201 0001:001698D4 4202 0001:001698E1 + 4203 0001:001698EF 4204 0001:0016991C 4214 0001:00169924 4215 0001:00169969 + 4216 0001:0016996D 4217 0001:0016998D 4218 0001:001699D1 4219 0001:001699FA + 4221 0001:00169A1A 4222 0001:00169A30 4223 0001:00169A72 4225 0001:00169A7E + 4226 0001:00169A89 4228 0001:00169AA2 4229 0001:00169AAF 4230 0001:00169AC8 + 4232 0001:00169AD4 4233 0001:00169AD8 4234 0001:00169AE3 4236 0001:00169AFC + 4237 0001:00169B09 4238 0001:00169B1F 4240 0001:00169B2B 4241 0001:00169B36 + 4243 0001:00169B4C 4244 0001:00169B59 4247 0001:00169B6F 4248 0001:00169B7A + 4250 0001:00169B8E 4219 0001:00169B8F 4251 0001:00169B98 4252 0001:00169B9E + 4255 0001:00169BC0 4256 0001:00169BD1 4257 0001:00169BE4 4259 0001:00169BF4 + 4260 0001:00169C04 4261 0001:00169C3F 4262 0001:00169C5B 4264 0001:00169C93 + 4265 0001:00169CA9 4266 0001:00169CBC 4267 0001:00169CBE 4261 0001:00169CBF + 4268 0001:00169CC4 4269 0001:00169CE0 4270 0001:00169D18 4268 0001:00169D2C + 4271 0001:00169D31 4273 0001:00169D4D 4275 0001:00169D59 4276 0001:00169D69 + 4277 0001:00169DA4 4279 0001:00169DC0 4281 0001:00169DCC 4282 0001:00169DDC + 4283 0001:00169E17 4285 0001:00169E33 4287 0001:00169E3F 4288 0001:00169E4F + 4289 0001:00169E5F 4291 0001:00169E7B 4292 0001:00169E80 4293 0001:00169E8D + 4295 0001:00169EA9 4296 0001:00169ECC 4297 0001:00169EE4 4299 0001:00169EF1 + 4300 0001:00169EF4 4301 0001:00169F07 4303 0001:00169F09 4293 0001:00169F0A + 4304 0001:00169F0F 4305 0001:00169F1E 4307 0001:00169F3E 4308 0001:00169F94 + 4311 0001:0016A007 4312 0001:0016A00D 4313 0001:0016A01E 4314 0001:0016A05E + 4315 0001:0016A06C 4316 0001:0016A079 4317 0001:0016A086 4318 0001:0016A095 + 4319 0001:0016A0BF 4320 0001:0016A0D2 4322 0001:0016A101 4305 0001:0016A102 + 4323 0001:0016A10B 4324 0001:0016A118 4325 0001:0016A11D 4326 0001:0016A12A + 4328 0001:0016A146 4329 0001:0016A169 4330 0001:0016A181 4332 0001:0016A18E + 4333 0001:0016A191 4334 0001:0016A1A4 4336 0001:0016A1A6 4326 0001:0016A1A7 + 4337 0001:0016A1AC 4339 0001:0016A1CC 4340 0001:0016A1E3 4341 0001:0016A223 + 4342 0001:0016A231 4343 0001:0016A23E 4344 0001:0016A24B 4345 0001:0016A25A + 4346 0001:0016A284 4347 0001:0016A297 4348 0001:0016A2C6 4337 0001:0016A2C7 + 4349 0001:0016A2D0 4351 0001:0016A324 4358 0001:0016A3D8 4359 0001:0016A415 + 4360 0001:0016A42D 4362 0001:0016A43B 4363 0001:0016A450 4365 0001:0016A462 + 4366 0001:0016A47A 4367 0001:0016A49A 4369 0001:0016A4D6 4370 0001:0016A4EC + 4371 0001:0016A50A 4372 0001:0016A528 4373 0001:0016A546 4374 0001:0016A587 + 4375 0001:0016A5C8 4376 0001:0016A5CA 4366 0001:0016A5CB 4377 0001:0016A610 + 4386 0001:0016A638 4387 0001:0016A666 4388 0001:0016A66D 4389 0001:0016A670 + 4390 0001:0016A685 4391 0001:0016A69A 4392 0001:0016A6AD 4393 0001:0016A6C0 + 4394 0001:0016A6D3 4395 0001:0016A6E3 4396 0001:0016A6F3 4397 0001:0016A703 + 4398 0001:0016A706 4399 0001:0016A710 4400 0001:0016A723 4402 0001:0016A748 + 4403 0001:0016A768 4404 0001:0016A788 4406 0001:0016A794 4408 0001:0016A7BD + 4409 0001:0016A7D8 4410 0001:0016A7E7 4412 0001:0016A7EF 4413 0001:0016A805 + 4414 0001:0016A820 4415 0001:0016A83B 4417 0001:0016A856 4420 0001:0016A85F + 4421 0001:0016A888 4427 0001:0016A920 4428 0001:0016A94A 4429 0001:0016A951 + 4431 0001:0016A97B 4432 0001:0016A999 4434 0001:0016A99E 4435 0001:0016A9AE + 4436 0001:0016A9B4 4437 0001:0016A9B8 4438 0001:0016A9C5 4439 0001:0016A9CB + 4440 0001:0016A9D6 4432 0001:0016A9D7 4442 0001:0016AA09 4449 0001:0016AA1C + 4450 0001:0016AA5B 4451 0001:0016AA6C 4452 0001:0016AA74 4454 0001:0016AA95 + 4455 0001:0016AAA9 4456 0001:0016AAC9 4457 0001:0016AAE1 4458 0001:0016AAF8 + 4459 0001:0016AB0B 4460 0001:0016AB1F 4452 0001:0016AB22 4461 0001:0016AB29 + 4462 0001:0016AB46 4463 0001:0016AB58 4464 0001:0016AB6B 4465 0001:0016AB7E + 4466 0001:0016AB91 4467 0001:0016ABA5 4468 0001:0016ABE8 4474 0001:0016ABF4 + 4475 0001:0016AC19 4476 0001:0016AC1F 4477 0001:0016AC2C 4478 0001:0016AC31 + 4481 0001:0016AC3F 4482 0001:0016AC4C 4484 0001:0016AC5C 4486 0001:0016AC72 + 4487 0001:0016AC7E 4488 0001:0016AC96 4489 0001:0016ACA3 4490 0001:0016ACCB + 4491 0001:0016ACDC 4492 0001:0016ACE9 4493 0001:0016AD07 4497 0001:0016AD2A + 4498 0001:0016AD3A 4503 0001:0016AD4F 4505 0001:0016AD65 4506 0001:0016AD71 + 4507 0001:0016AD89 4508 0001:0016AD96 4509 0001:0016ADBE 4510 0001:0016ADCF + 4511 0001:0016ADDC 4512 0001:0016ADFA 4516 0001:0016AE1A 4517 0001:0016AE2A + 4521 0001:0016AE5C 4528 0001:0016AF94 4529 0001:0016AFBA 4530 0001:0016AFC2 + 4531 0001:0016AFD1 4532 0001:0016AFE3 4534 0001:0016B005 4535 0001:0016B01E + 4537 0001:0016B046 4538 0001:0016B059 4539 0001:0016B078 4540 0001:0016B0CC + 4542 0001:0016B0D9 4543 0001:0016B0EC 4546 0001:0016B0EE 4532 0001:0016B0EF + 4547 0001:0016B118 4550 0001:0016B140 4551 0001:0016B146 4552 0001:0016B15A + 4553 0001:0016B163 4554 0001:0016B16C 4557 0001:0016B170 4558 0001:0016B173 + 4559 0001:0016B17A 4560 0001:0016B18B 4561 0001:0016B192 4562 0001:0016B19F + 4563 0001:0016B1A8 4570 0001:0016B1AC 4571 0001:0016B1DB 4572 0001:0016B1E5 + 4573 0001:0016B209 4574 0001:0016B210 4576 0001:0016B223 4578 0001:0016B22E + 4579 0001:0016B238 4580 0001:0016B23F 4582 0001:0016B262 4583 0001:0016B27C + 4585 0001:0016B29C 4586 0001:0016B29F 4588 0001:0016B2A7 4589 0001:0016B2C4 + 4592 0001:0016B2C6 4580 0001:0016B2C9 4593 0001:0016B2CC 4594 0001:0016B2DA + 4597 0001:0016B301 4605 0001:0016B334 4606 0001:0016B352 4607 0001:0016B359 + 4609 0001:0016B365 4610 0001:0016B36B 4611 0001:0016B371 4615 0001:0016B380 + 4616 0001:0016B386 4617 0001:0016B38C 4619 0001:0016B399 4620 0001:0016B3A3 + 4621 0001:0016B3AC 4622 0001:0016B3BE 4625 0001:0016B3EE 4626 0001:0016B404 + 4628 0001:0016B41F 4629 0001:0016B438 4625 0001:0016B439 4630 0001:0016B43E + 4631 0001:0016B44A 4635 0001:0016B458 4636 0001:0016B472 4637 0001:0016B478 + 4638 0001:0016B492 4639 0001:0016B49E 4641 0001:0016B4AA 4642 0001:0016B4B7 + 4643 0001:0016B4EF 4646 0001:0016B538 4647 0001:0016B53C 4649 0001:0016B542 + 4650 0001:0016B555 4652 0001:0016B56E 4657 0001:0016B574 4658 0001:0016B57C + 4661 0001:0016B589 4662 0001:0016B59D 4664 0001:0016B5A8 4665 0001:0016B5AA + 4666 0001:0016B5B5 4667 0001:0016B5B9 4668 0001:0016B5C5 4671 0001:0016B5C7 + 4672 0001:0016B5D8 4671 0001:0016B5E9 4674 0001:0016B5EC 4677 0001:0016B5F4 + 4678 0001:0016B5F7 4679 0001:0016B604 4680 0001:0016B611 4681 0001:0016B61E + 4686 0001:0016B620 4687 0001:0016B62B 4688 0001:0016B630 4689 0001:0016B635 + 4690 0001:0016B63C 4691 0001:0016B644 4692 0001:0016B64C 4693 0001:0016B654 + 4695 0001:0016B669 4696 0001:0016B676 4697 0001:0016B67A 4698 0001:0016B68C + 4699 0001:0016B690 4700 0001:0016B6A2 4701 0001:0016B6A7 4702 0001:0016B6B9 + 4703 0001:0016B6BF 4704 0001:0016B6D1 4705 0001:0016B6D7 4706 0001:0016B6E9 + 4707 0001:0016B6EF 4709 0001:0016B701 4711 0001:0016B713 4713 0001:0016B724 + 4714 0001:0016B731 4715 0001:0016B735 4716 0001:0016B741 4717 0001:0016B745 + 4718 0001:0016B751 4719 0001:0016B756 4720 0001:0016B762 4721 0001:0016B768 + 4723 0001:0016B774 4725 0001:0016B780 4727 0001:0016B795 4728 0001:0016B7A2 + 4729 0001:0016B7A6 4730 0001:0016B7B5 4731 0001:0016B7B9 4732 0001:0016B7C8 + 4733 0001:0016B7CD 4734 0001:0016B7DC 4735 0001:0016B7E2 4736 0001:0016B7F1 + 4737 0001:0016B7F7 4738 0001:0016B806 4739 0001:0016B80C 4741 0001:0016B81B + 4743 0001:0016B828 4746 0001:0016B830 4747 0001:0016B859 4748 0001:0016B8A5 + 4749 0001:0016B8F1 4750 0001:0016B91D 4753 0001:0016B95C 4754 0001:0016B966 + 4756 0001:0016B97E 4757 0001:0016B98C 4758 0001:0016B9A0 4759 0001:0016B9B1 + 4760 0001:0016B9BC 4761 0001:0016B9CD 4762 0001:0016B9DE 4763 0001:0016B9EF + 4765 0001:0016BA00 4768 0001:0016BA0C 4769 0001:0016BA41 4770 0001:0016BA48 + 4771 0001:0016BA55 4772 0001:0016BA76 4773 0001:0016BA97 4775 0001:0016BAA2 + 4776 0001:0016BAC0 4780 0001:0016BAE0 4781 0001:0016BAFE 4783 0001:0016BB1C + 4785 0001:0016BB26 4786 0001:0016BB33 4787 0001:0016BB4E 4788 0001:0016BB69 + 4790 0001:0016BB74 4791 0001:0016BB92 4795 0001:0016BBB2 4796 0001:0016BBD0 + 4799 0001:0016BC10 4802 0001:0016BC1C 4803 0001:0016BC22 4804 0001:0016BC36 + 4805 0001:0016BC4A 4807 0001:0016BC4E 4808 0001:0016BC5B 4812 0001:0016BC6B + 4813 0001:0016BC78 4814 0001:0016BC85 4816 0001:0016BC90 4823 0001:0016BC94 + 4824 0001:0016BC99 4825 0001:0016BCAB 4826 0001:0016BCB8 4827 0001:0016BCC3 + 4838 0001:0016BCCC 4839 0001:0016BD0D 4840 0001:0016BD1B 4841 0001:0016BD30 + 4842 0001:0016BD4A 4843 0001:0016BD61 4844 0001:0016BD67 4845 0001:0016BD87 + 4846 0001:0016BD89 4847 0001:0016BD9A 4848 0001:0016BDAF 4849 0001:0016BDC4 + 4850 0001:0016BDD9 4851 0001:0016BDEE 4852 0001:0016BE03 4853 0001:0016BE18 + 4854 0001:0016BE3C 4855 0001:0016BE4F 4856 0001:0016BE62 4857 0001:0016BE7A + 4858 0001:0016BE92 4859 0001:0016BE9F 4860 0001:0016BEAC 4861 0001:0016BEB9 + 4864 0001:0016BEC6 4865 0001:0016BEDD 4866 0001:0016BEE7 4867 0001:0016BF0A + 4868 0001:0016BF25 4869 0001:0016BF52 4870 0001:0016BF5F 4871 0001:0016BF6B + 4872 0001:0016BF79 4873 0001:0016BF86 4874 0001:0016BF93 4875 0001:0016BF9E + 4876 0001:0016BFA7 4877 0001:0016BFBD 4878 0001:0016BFCA 4880 0001:0016BFDD + 4883 0001:0016BFE9 4884 0001:0016BFF7 4885 0001:0016C007 4886 0001:0016C01A + 4887 0001:0016C034 4888 0001:0016C041 4889 0001:0016C054 4890 0001:0016C067 + 4891 0001:0016C07A 4892 0001:0016C087 4893 0001:0016C098 4894 0001:0016C0AB + 4898 0001:0016C0B8 4899 0001:0016C0C6 4900 0001:0016C0D6 4901 0001:0016C0E9 + 4902 0001:0016C103 4903 0001:0016C110 4904 0001:0016C123 4905 0001:0016C136 + 4906 0001:0016C149 4907 0001:0016C156 4908 0001:0016C167 4909 0001:0016C17A + 4914 0001:0016C189 4915 0001:0016C196 4917 0001:0016C1A3 4918 0001:0016C1AB + 4919 0001:0016C1BA 4921 0001:0016C1DD 4922 0001:0016C1F6 4923 0001:0016C239 + 4925 0001:0016C249 4926 0001:0016C265 4927 0001:0016C294 4928 0001:0016C2B0 + 4929 0001:0016C2DA 4931 0001:0016C2ED 4932 0001:0016C300 4933 0001:0016C313 + 4934 0001:0016C326 4935 0001:0016C33E 4936 0001:0016C34C 4937 0001:0016C369 + 4938 0001:0016C381 4939 0001:0016C38F 4940 0001:0016C3B0 4941 0001:0016C3C8 + 4943 0001:0016C3D6 4944 0001:0016C3F7 4946 0001:0016C404 4950 0001:0016C41A + 4951 0001:0016C432 4953 0001:0016C444 4955 0001:0016C475 4956 0001:0016C493 + 4957 0001:0016C4B0 4958 0001:0016C4CA 4961 0001:0016C4DD 4963 0001:0016C4E2 + 4964 0001:0016C4F4 4965 0001:0016C511 4966 0001:0016C52B 4967 0001:0016C539 + 4971 0001:0016C54C 4972 0001:0016C569 4973 0001:0016C574 4974 0001:0016C580 + 4979 0001:0016C592 4980 0001:0016C595 4985 0001:0016C5FE 4919 0001:0016C5FF + 4986 0001:0016C60B 4990 0001:0016C62E 4991 0001:0016C63B 4992 0001:0016C649 + 4993 0001:0016C65C 4994 0001:0016C66F 4995 0001:0016C682 4996 0001:0016C6A9 + 4997 0001:0016C6B6 4998 0001:0016C6DA 4999 0001:0016C6ED 5000 0001:0016C6FE + 5001 0001:0016C70E 5002 0001:0016C721 5003 0001:0016C737 5005 0001:0016C74A + 5006 0001:0016C762 5008 0001:0016C774 5009 0001:0016C7AD 5010 0001:0016C7E8 + 5013 0001:0016C7F8 5017 0001:0016C81B 5018 0001:0016C828 5019 0001:0016C836 + 5020 0001:0016C849 5021 0001:0016C85C 5022 0001:0016C86F 5023 0001:0016C896 + 5024 0001:0016C8A3 5025 0001:0016C8C7 5026 0001:0016C8DA 5027 0001:0016C8EB + 5028 0001:0016C8FB 5029 0001:0016C90E 5030 0001:0016C924 5032 0001:0016C937 + 5033 0001:0016C94F 5035 0001:0016C961 5036 0001:0016C99A 5037 0001:0016C9D5 + 5040 0001:0016C9E5 5041 0001:0016C9F3 5043 0001:0016C9FF 5045 0001:0016CA1D + 5046 0001:0016CA22 5049 0001:0016CA43 5050 0001:0016CA50 5051 0001:0016CA5E + 5052 0001:0016CA71 5053 0001:0016CA84 5054 0001:0016CA97 5055 0001:0016CABE + 5056 0001:0016CACB 5057 0001:0016CAD8 5058 0001:0016CAEB 5059 0001:0016CAFF + 5060 0001:0016CB0F 5064 0001:0016CB1C 5065 0001:0016CB29 5066 0001:0016CB37 + 5067 0001:0016CB4A 5068 0001:0016CB5D 5069 0001:0016CB70 5070 0001:0016CB97 + 5071 0001:0016CBA4 5072 0001:0016CBB4 5073 0001:0016CBC4 5074 0001:0016CBD2 + 5075 0001:0016CBEC 5076 0001:0016CBFD 5077 0001:0016CC10 5079 0001:0016CC1D + 5081 0001:0016CC43 5082 0001:0016CCA1 5084 0001:0016CCB3 5085 0001:0016CD03 + 5087 0001:0016CD11 5088 0001:0016CD27 5089 0001:0016CD50 5092 0001:0016CD52 + 5079 0001:0016CD53 5093 0001:0016CD5F 5094 0001:0016CD85 5096 0001:0016CDE3 + 5097 0001:0016CE33 5099 0001:0016CE41 5100 0001:0016CE57 5101 0001:0016CE76 + 5103 0001:0016CE86 5093 0001:0016CE87 5104 0001:0016CE93 5106 0001:0016CEA1 + 5107 0001:0016CEBE 5110 0001:0016CEC8 5112 0001:0016CEDB 5115 0001:0016CEEB + 5116 0001:0016CEF8 5117 0001:0016CF06 5118 0001:0016CF19 5119 0001:0016CF2C + 5120 0001:0016CF3F 5121 0001:0016CF66 5122 0001:0016CF73 5123 0001:0016CF80 + 5124 0001:0016CF93 5125 0001:0016CFA7 5126 0001:0016CFB7 5128 0001:0016CFC4 + 5129 0001:0016CFDA 5130 0001:0016D018 5132 0001:0016D059 5136 0001:0016D05D + 5138 0001:0016D06F 5141 0001:0016D07F 5142 0001:0016D08C 5143 0001:0016D09A + 5144 0001:0016D0AD 5145 0001:0016D0C0 5146 0001:0016D0D3 5147 0001:0016D0FA + 5148 0001:0016D107 5149 0001:0016D114 5150 0001:0016D127 5151 0001:0016D13B + 5152 0001:0016D14B 5154 0001:0016D158 5155 0001:0016D16C 5156 0001:0016D182 + 5157 0001:0016D1AA 5159 0001:0016D1D2 5160 0001:0016D1DC 5162 0001:0016D241 + 5171 0001:0016D31C 5172 0001:0016D365 5173 0001:0016D36A 5176 0001:0016D37B + 5177 0001:0016D385 5178 0001:0016D3A2 5179 0001:0016D3C0 5180 0001:0016D3CD + 5181 0001:0016D3DB 5182 0001:0016D3EB 5183 0001:0016D3FB 5184 0001:0016D409 + 5185 0001:0016D416 5186 0001:0016D420 5187 0001:0016D429 5188 0001:0016D441 + 5189 0001:0016D44E 5190 0001:0016D457 5192 0001:0016D476 5193 0001:0016D4AA + 5195 0001:0016D4BA 5196 0001:0016D4D2 5197 0001:0016D511 5199 0001:0016D51F + 5200 0001:0016D528 5202 0001:0016D55E 5204 0001:0016D57B 5190 0001:0016D57E + 5205 0001:0016D587 5206 0001:0016D591 5208 0001:0016D5DE 5219 0001:0016D5EC + 5220 0001:0016D635 5221 0001:0016D63A 5222 0001:0016D64B 5225 0001:0016D65D + 5226 0001:0016D667 5227 0001:0016D672 5228 0001:0016D682 5229 0001:0016D692 + 5230 0001:0016D6A2 5231 0001:0016D6AC 5232 0001:0016D6B6 5233 0001:0016D6C6 + 5234 0001:0016D6E7 5235 0001:0016D6F8 5236 0001:0016D708 5240 0001:0016D712 + 5241 0001:0016D71C 5242 0001:0016D739 5243 0001:0016D746 5244 0001:0016D751 + 5245 0001:0016D75F 5246 0001:0016D769 5247 0001:0016D787 5248 0001:0016D793 + 5249 0001:0016D79D 5250 0001:0016D7A7 5251 0001:0016D7B0 5252 0001:0016D7C8 + 5253 0001:0016D7D5 5254 0001:0016D7E3 5255 0001:0016D7EC 5257 0001:0016D80E + 5258 0001:0016D842 5260 0001:0016D852 5261 0001:0016D86A 5262 0001:0016D88C + 5263 0001:0016D8B6 5265 0001:0016D904 5266 0001:0016D914 5267 0001:0016D924 + 5268 0001:0016D931 5269 0001:0016D93E 5271 0001:0016D945 5272 0001:0016D953 + 5273 0001:0016D970 5274 0001:0016D989 5276 0001:0016D993 5277 0001:0016D9A6 + 5278 0001:0016D9C6 5280 0001:0016D9D2 5281 0001:0016D9DF 5282 0001:0016D9FF + 5286 0001:0016DA1F 5255 0001:0016DA22 5287 0001:0016DA2B 5288 0001:0016DA35 + 5290 0001:0016DA8F 5300 0001:0016DAEC 5301 0001:0016DB3E 5302 0001:0016DB40 + 5303 0001:0016DB52 5306 0001:0016DB63 5307 0001:0016DB6C 5308 0001:0016DB76 + 5309 0001:0016DB83 5310 0001:0016DB90 5311 0001:0016DB9D 5312 0001:0016DBA6 + 5313 0001:0016DBAF 5314 0001:0016DBBC 5315 0001:0016DBDA 5316 0001:0016DBEA + 5317 0001:0016DBF7 5321 0001:0016DC00 5322 0001:0016DC0B 5323 0001:0016DC29 + 5324 0001:0016DC36 5325 0001:0016DC57 5326 0001:0016DC79 5327 0001:0016DC91 + 5328 0001:0016DCB3 5329 0001:0016DCC8 5330 0001:0016DCEA 5332 0001:0016DCFF + 5333 0001:0016DD12 5334 0001:0016DD1C 5335 0001:0016DD26 5336 0001:0016DD3C + 5337 0001:0016DD4C 5338 0001:0016DD5C 5339 0001:0016DD89 5340 0001:0016DD98 + 5341 0001:0016DDA3 5342 0001:0016DDAE 5343 0001:0016DDB2 5344 0001:0016DDBB + 5346 0001:0016DDDA 5347 0001:0016DE0E 5348 0001:0016DE42 5350 0001:0016DE62 + 5351 0001:0016DE7B 5352 0001:0016DE9B 5354 0001:0016DEA5 5355 0001:0016DEB5 + 5356 0001:0016DED4 5357 0001:0016DEE3 5358 0001:0016DEFF 5360 0001:0016DF0B + 5361 0001:0016DF18 5362 0001:0016DF37 5366 0001:0016DF56 5344 0001:0016DF59 + 5367 0001:0016DF62 5368 0001:0016DF6F 5370 0001:0016DFD1 5381 0001:0016E010 + 5382 0001:0016E05F 5383 0001:0016E061 5384 0001:0016E073 5387 0001:0016E084 + 5388 0001:0016E08D 5389 0001:0016E097 5390 0001:0016E0A4 5391 0001:0016E0B1 + 5392 0001:0016E0BE 5393 0001:0016E0C7 5394 0001:0016E0D0 5395 0001:0016E0DD + 5396 0001:0016E0FB 5397 0001:0016E10B 5398 0001:0016E115 5402 0001:0016E11E + 5403 0001:0016E129 5404 0001:0016E147 5405 0001:0016E154 5406 0001:0016E175 + 5407 0001:0016E197 5408 0001:0016E1AC 5409 0001:0016E1CE 5411 0001:0016E1E3 + 5412 0001:0016E206 5413 0001:0016E210 5414 0001:0016E21A 5415 0001:0016E230 + 5416 0001:0016E240 5417 0001:0016E250 5418 0001:0016E266 5419 0001:0016E26F + 5421 0001:0016E291 5422 0001:0016E2C5 5423 0001:0016E2F9 5425 0001:0016E319 + 5426 0001:0016E332 5427 0001:0016E34E 5429 0001:0016E358 5430 0001:0016E368 + 5431 0001:0016E387 5433 0001:0016E393 5434 0001:0016E3A0 5435 0001:0016E3BF + 5439 0001:0016E3DE 5419 0001:0016E3E1 5440 0001:0016E3EA 5441 0001:0016E3F7 + 5443 0001:0016E459 5452 0001:0016E480 5453 0001:0016E4CC 5454 0001:0016E4CE + 5457 0001:0016E4DF 5458 0001:0016E4E9 5459 0001:0016E506 5460 0001:0016E510 + 5461 0001:0016E52E 5462 0001:0016E53A 5463 0001:0016E544 5464 0001:0016E54D + 5465 0001:0016E562 5466 0001:0016E570 5467 0001:0016E57D 5468 0001:0016E586 + 5470 0001:0016E5A8 5471 0001:0016E5DC 5472 0001:0016E610 5474 0001:0016E628 + 5475 0001:0016E641 5476 0001:0016E662 5477 0001:0016E67E 5479 0001:0016E68E + 5468 0001:0016E691 5480 0001:0016E69A 5481 0001:0016E6AF 5482 0001:0016E6B9 + 5484 0001:0016E70B 5493 0001:0016E718 5494 0001:0016E757 5495 0001:0016E759 + 5498 0001:0016E76A 5499 0001:0016E774 5500 0001:0016E791 5501 0001:0016E79B + 5502 0001:0016E7A7 5503 0001:0016E7B3 5504 0001:0016E7C1 5505 0001:0016E7CE + 5506 0001:0016E7D8 5507 0001:0016E7F6 5508 0001:0016E803 5509 0001:0016E813 + 5510 0001:0016E823 5511 0001:0016E830 5512 0001:0016E83A 5513 0001:0016E843 + 5514 0001:0016E858 5515 0001:0016E866 5516 0001:0016E873 5517 0001:0016E87C + 5519 0001:0016E89E 5520 0001:0016E8D2 5521 0001:0016E906 5523 0001:0016E926 + 5524 0001:0016E93F 5525 0001:0016E97E 5526 0001:0016E98C 5527 0001:0016E9C2 + 5529 0001:0016E9E6 5517 0001:0016E9E9 5530 0001:0016E9F2 5531 0001:0016E9FC + 5533 0001:0016EA4E 5542 0001:0016EA5C 5543 0001:0016EA9C 5544 0001:0016EA9E + 5547 0001:0016EAAF 5548 0001:0016EAB9 5549 0001:0016EAD6 5550 0001:0016EAE0 + 5551 0001:0016EAEC 5552 0001:0016EAF8 5553 0001:0016EB06 5554 0001:0016EB13 + 5555 0001:0016EB1D 5556 0001:0016EB3B 5557 0001:0016EB48 5558 0001:0016EB58 + 5559 0001:0016EB68 5560 0001:0016EB75 5561 0001:0016EB7F 5562 0001:0016EB88 + 5563 0001:0016EB9D 5564 0001:0016EBAB 5565 0001:0016EBB8 5566 0001:0016EBC1 + 5568 0001:0016EBE3 5569 0001:0016EC17 5570 0001:0016EC4B 5572 0001:0016EC6B + 5573 0001:0016EC84 5574 0001:0016ECC3 5575 0001:0016ECD1 5576 0001:0016ED07 + 5578 0001:0016ED2B 5566 0001:0016ED2E 5579 0001:0016ED37 5580 0001:0016ED58 + 5581 0001:0016ED72 5582 0001:0016ED87 5583 0001:0016ED91 5585 0001:0016EDE3 + 5594 0001:0016EDF4 5595 0001:0016EE34 5596 0001:0016EE36 5599 0001:0016EE48 + 5600 0001:0016EE53 5601 0001:0016EE71 5602 0001:0016EE7E 5603 0001:0016EE9F + 5604 0001:0016EEB6 5605 0001:0016EEC0 5606 0001:0016EECA 5607 0001:0016EEE0 + 5608 0001:0016EEF0 5609 0001:0016EF00 5610 0001:0016EF09 5612 0001:0016EF26 + 5613 0001:0016EF59 5614 0001:0016EF8C 5616 0001:0016EFAC 5617 0001:0016EFC5 + 5618 0001:0016F003 5619 0001:0016F011 5620 0001:0016F046 5622 0001:0016F063 + 5610 0001:0016F064 5623 0001:0016F06D 5624 0001:0016F07A 5626 0001:0016F0CF + 5635 0001:0016F0DC 5636 0001:0016F118 5637 0001:0016F11D 5638 0001:0016F128 + 5640 0001:0016F133 5643 0001:0016F13C 5644 0001:0016F147 5645 0001:0016F151 + 5646 0001:0016F16F 5647 0001:0016F17C 5649 0001:0016F19D 5650 0001:0016F1A7 + 5651 0001:0016F1B7 5652 0001:0016F1C1 5653 0001:0016F1CA 5655 0001:0016F1E7 + 5656 0001:0016F21A 5657 0001:0016F24D 5659 0001:0016F26D 5660 0001:0016F286 + 5661 0001:0016F2C4 5662 0001:0016F2D2 5663 0001:0016F307 5665 0001:0016F329 + 5653 0001:0016F32A 5666 0001:0016F333 5667 0001:0016F340 5669 0001:0016F395 + 5673 0001:0016F3A4 5674 0001:0016F3AC 5675 0001:0016F3C7 5683 0001:0016F3C8 + 5684 0001:0016F3F5 5685 0001:0016F3FC 5686 0001:0016F40E 5688 0001:0016F41C + 5689 0001:0016F41F 5690 0001:0016F437 5691 0001:0016F439 5685 0001:0016F43A + 5692 0001:0016F43D 5693 0001:0016F453 5694 0001:0016F466 5696 0001:0016F481 + 5697 0001:0016F484 5699 0001:0016F491 5700 0001:0016F499 5702 0001:0016F4A8 + 5703 0001:0016F4C4 5707 0001:0016F4DF 5708 0001:0016F4E6 5709 0001:0016F4F3 + 5710 0001:0016F4F8 5711 0001:0016F52A 5712 0001:0016F533 5713 0001:0016F53A + 5714 0001:0016F543 5715 0001:0016F548 5717 0001:0016F56D 5719 0001:0016F573 + 5720 0001:0016F583 5722 0001:0016F588 5723 0001:0016F59B 5725 0001:0016F5AE + 5726 0001:0016F5B9 5728 0001:0016F5E4 5730 0001:0016F5F3 5731 0001:0016F608 + 5732 0001:0016F627 5733 0001:0016F639 5734 0001:0016F64B 5736 0001:0016F65D + 5738 0001:0016F66C 5739 0001:0016F681 5740 0001:0016F6A0 5741 0001:0016F6B2 + 5742 0001:0016F6C1 5744 0001:0016F6D0 5746 0001:0016F6DF 5747 0001:0016F6F0 + 5748 0001:0016F70B 5749 0001:0016F71D 5750 0001:0016F72C 5752 0001:0016F739 + 5753 0001:0016F747 5755 0001:0016F74D 5756 0001:0016F76D 5758 0001:0016F772 + 5759 0001:0016F79F 5760 0001:0016F7CF 5761 0001:0016F7F9 5762 0001:0016F815 + 5764 0001:0016F826 5765 0001:0016F848 5769 0001:0016F869 5770 0001:0016F877 + 5772 0001:0016F883 5774 0001:0016F88E 5776 0001:0016F8CC 5781 0001:0016F90C + 5782 0001:0016F91F 5784 0001:0016F932 5785 0001:0016F93A 5787 0001:0016F94D + 5788 0001:0016F95E 5790 0001:0016F97E 5791 0001:0016F98F 5793 0001:0016F9AC + 5795 0001:0016F9DE 5796 0001:0016F9FC 5799 0001:0016FA1D 5801 0001:0016FA3B + 5803 0001:0016FA4E 5804 0001:0016FA61 5807 0001:0016FA77 5808 0001:0016FA9C + 5810 0001:0016FABE 5811 0001:0016FAD7 5813 0001:0016FB01 5814 0001:0016FB14 + 5815 0001:0016FB39 5816 0001:0016FB9F 5818 0001:0016FBAC 5819 0001:0016FBD0 + 5822 0001:0016FBD2 5808 0001:0016FBD3 5825 0001:0016FBDC 5827 0001:0016FBEB + 5828 0001:0016FBFA 5830 0001:0016FC18 5832 0001:0016FC31 5834 0001:0016FC8E + 5841 0001:0016FDCC 5843 0001:0016FDF2 5844 0001:0016FDFB 5845 0001:0016FE04 + 5846 0001:0016FE17 5847 0001:0016FE26 5848 0001:0016FE29 5849 0001:0016FE30 + 5850 0001:0016FE3D 5852 0001:0016FE43 5853 0001:0016FE5E 5855 0001:0016FE6B + 5856 0001:0016FE80 5858 0001:0016FECA 5859 0001:0016FEE3 5860 0001:0016FEE8 + 5861 0001:0016FF02 5863 0001:0016FF08 5852 0001:0016FF0B 5864 0001:0016FF14 + 5866 0001:0016FF17 5867 0001:0016FF1E 5868 0001:0016FF2E 5870 0001:0016FF3D + 5872 0001:0016FF43 5873 0001:0016FF50 5874 0001:0016FF57 5878 0001:0016FF69 + 5879 0001:0016FF76 5880 0001:0016FF7D 5883 0001:0016FFB5 5890 0001:0016FFE4 + 5891 0001:00170016 5893 0001:0017001F 5894 0001:00170022 5895 0001:0017003A + 5897 0001:00170045 5898 0001:0017004E 5899 0001:00170064 5900 0001:00170069 + 5894 0001:0017006C 5901 0001:00170071 5903 0001:0017007A 5904 0001:00170087 + 5905 0001:0017008E 5906 0001:00170095 5908 0001:0017009A 5910 0001:001700BA + 5911 0001:001700C3 5912 0001:001700CA 5913 0001:001700E0 5914 0001:00170109 + 5915 0001:00170132 5916 0001:0017013B 5917 0001:00170141 5918 0001:00170160 + 5921 0001:00170173 5923 0001:001701D4 5924 0001:001701F8 5925 0001:00170212 + 5926 0001:00170216 5927 0001:00170230 5928 0001:0017024A 5929 0001:0017025D + 5931 0001:00170266 5933 0001:00170281 5934 0001:0017028B 5935 0001:00170295 + 5936 0001:001702A2 5939 0001:001702D8 5943 0001:0017031C 5944 0001:00170326 + 5945 0001:0017032D 5948 0001:00170330 5949 0001:00170333 5950 0001:00170344 + 5952 0001:00170350 5953 0001:00170359 5957 0001:00170365 5958 0001:0017036E + 5960 0001:00170378 5963 0001:0017037C 5965 0001:0017037F 5967 0001:00170388 + 5968 0001:00170395 5972 0001:001703A4 5973 0001:001703B1 5974 0001:001703C8 + 5976 0001:001703D1 5981 0001:001703D4 5984 0001:001703DB 5985 0001:001703E5 + 5986 0001:001703E9 5987 0001:001703F1 5989 0001:001703F5 5990 0001:00170400 + 5992 0001:00170404 5993 0001:00170412 5994 0001:00170429 5995 0001:00170439 + 5999 0001:0017045B 6000 0001:00170475 6001 0001:00170495 6002 0001:001704AF + 6005 0001:001704CF 6008 0001:001704D4 6009 0001:001704D8 6010 0001:001704DF + 6012 0001:001704E5 6013 0001:001704FD 6014 0001:00170517 6016 0001:0017051E + 6022 0001:00170524 6023 0001:00170547 6024 0001:00170568 6025 0001:00170587 + 6026 0001:001705A6 6027 0001:001705B9 6028 0001:001705F6 6031 0001:001705FC + 6032 0001:00170618 6033 0001:00170628 6034 0001:00170638 6035 0001:00170672 + 6036 0001:001706BC 6037 0001:001706C9 6038 0001:00170710 6044 0001:00170770 + 6045 0001:00170779 6047 0001:0017078E 6048 0001:0017079E 6049 0001:001707C1 + 6045 0001:001707C2 6050 0001:001707C5 6051 0001:001707DE 6053 0001:001707F3 + 6054 0001:00170803 6055 0001:00170826 6051 0001:00170827 6056 0001:0017082A + 6057 0001:00170843 6067 0001:0017084C 6068 0001:0017086F 6069 0001:0017088A + 6070 0001:00170898 6072 0001:001708BF 6074 0001:001708DA 6075 0001:001708E8 + 6076 0001:001708F5 6077 0001:00170903 6080 0001:00170968 6081 0001:00170977 + 6082 0001:0017098C 6083 0001:00170994 6084 0001:001709AB 6083 0001:001709D4 + 6085 0001:001709D7 6086 0001:001709F1 6087 0001:00170A06 6088 0001:00170A2E + 6089 0001:00170A60 6090 0001:00170AA3 6091 0001:00170B01 6092 0001:00170B34 + 6093 0001:00170B64 6094 0001:00170B7B 6095 0001:00170BAD 6096 0001:00170BF0 + 6097 0001:00170C33 6098 0001:00170C81 6099 0001:00170CCC 6100 0001:00170CFE + 6101 0001:00170D2C 6102 0001:00170D5E 6103 0001:00170D8C 6105 0001:00170DAA + 6106 0001:00170DBA 6108 0001:00170DD1 6109 0001:00170DE3 6110 0001:00170E11 + 6112 0001:00170E75 6103 0001:00170E78 6113 0001:00170E7F 6115 0001:00170EA8 + 6116 0001:00170EB3 6117 0001:00170EE1 6119 0001:00170F45 6120 0001:00170F73 + 6121 0001:00170FDC 6123 0001:00170FFA 6124 0001:0017100A 6126 0001:00171021 + 6127 0001:00171033 6128 0001:00171061 6130 0001:001710C5 6121 0001:001710C8 + 6131 0001:001710CF 6134 0001:0017110E 6135 0001:00171119 6136 0001:00171147 + 6138 0001:001711AB 6139 0001:001711DD 6140 0001:001711EB 6141 0001:001711F7 + 6142 0001:001711FD 6143 0001:00171206 6144 0001:00171219 6145 0001:0017122E + 6146 0001:0017123E 6147 0001:0017124A 6148 0001:00171254 6151 0001:00171258 + 6152 0001:00171262 6153 0001:0017126E 6154 0001:0017126F 6149 0001:00171274 + 6156 0001:001712CB 6157 0001:001712E0 6158 0001:001712F5 6159 0001:00171308 + 6160 0001:00171310 6161 0001:00171318 6162 0001:00171324 6163 0001:0017132A + 6164 0001:00171333 6165 0001:001713A1 6169 0001:00171600 6170 0001:00171606 + 6172 0001:00171621 6173 0001:0017162D 6174 0001:00171636 6176 0001:0017163D + 6180 0001:00171644 6181 0001:0017164A 6183 0001:00171665 6184 0001:00171671 + 6185 0001:0017167A 6187 0001:00171681 6191 0001:00171688 6192 0001:0017168B + 6193 0001:001716A3 6194 0001:001716AA 6201 0001:001716B0 6202 0001:001716D8 + 6203 0001:001716E0 6204 0001:001716E5 6205 0001:001716FD 6204 0001:0017171C + 6206 0001:0017171F 6207 0001:0017177A 6212 0001:00171790 6213 0001:001717B4 + 6214 0001:001717B9 6215 0001:001717BE 6216 0001:001717C9 6217 0001:001717DA + 6219 0001:001717F2 6220 0001:0017180E 6221 0001:0017182E 6222 0001:0017184E + 6216 0001:0017184F 6223 0001:00171852 6225 0001:001718CB 6226 0001:001718F5 + 6229 0001:00171930 6230 0001:00171933 6231 0001:0017194C 6233 0001:0017195E + 6234 0001:0017196E 6238 0001:00171970 6239 0001:0017197F 6240 0001:00171984 + 6246 0001:00171988 6247 0001:00171995 6251 0001:00171998 6252 0001:001719A5 + 6256 0001:001719A8 6257 0001:001719B5 6261 0001:001719B8 6262 0001:001719C5 + 6268 0001:001719C8 6269 0001:001719CD 6272 0001:001719D0 6273 0001:001719D4 + 6275 0001:001719DA 6276 0001:001719ED 6277 0001:00171A00 6278 0001:00171A13 + 6279 0001:00171A26 6281 0001:00171A39 6283 0001:00171A3F 6284 0001:00171A52 + 6285 0001:00171A65 6286 0001:00171A78 6287 0001:00171A8B 6289 0001:00171A9E + 6292 0001:00171AA4 6293 0001:00171AA7 6294 0001:00171AB9 6295 0001:00171ACE + 6296 0001:00171AED 6299 0001:00171AF0 6300 0001:00171AF3 6301 0001:00171B05 + 6302 0001:00171B11 6304 0001:00171B21 6305 0001:00171B32 6308 0001:00171B34 + 6309 0001:00171B37 6310 0001:00171B49 6311 0001:00171B5A 6314 0001:00171B5C + 6315 0001:00171B5F 6316 0001:00171B71 6317 0001:00171B86 6318 0001:00171BA5 + 6319 0001:00171BB7 6320 0001:00171BC8 6322 0001:00171BFC 6323 0001:00171C05 + 6324 0001:00171C0C + +Line numbers for fReports(fReports.pas) segment .text + + 204 0001:00172518 205 0001:0017251B 206 0001:00172522 207 0001:0017252F + 208 0001:0017253D 209 0001:0017254E 210 0001:0017255B 211 0001:0017256C + 212 0001:0017257D 213 0001:00172587 214 0001:00172591 215 0001:001725A2 + 216 0001:001725AF 217 0001:001725BC 220 0001:001725CE 221 0001:001725D8 + 222 0001:001725E2 223 0001:001725F1 224 0001:00172600 225 0001:00172616 + 229 0001:0017261D 232 0001:0017263C 233 0001:00172645 235 0001:00172652 + 236 0001:00172665 239 0001:00172673 240 0001:00172684 241 0001:0017268E + 242 0001:0017269E 243 0001:001726AA 244 0001:001726BC 245 0001:001726D1 + 246 0001:001726E3 247 0001:001726F5 248 0001:00172703 249 0001:0017270D + 250 0001:00172717 251 0001:00172721 252 0001:00172730 253 0001:0017273F + 254 0001:00172755 255 0001:0017275E 256 0001:0017277E 259 0001:00172795 + 261 0001:001727A6 262 0001:001727AD 263 0001:001727B7 266 0001:001727C0 + 269 0001:001727CF 271 0001:001727E4 273 0001:00172810 276 0001:00172819 + 277 0001:00172827 280 0001:00172831 281 0001:00172847 282 0001:00172850 + 286 0001:0017285F 288 0001:00172882 289 0001:0017288B 290 0001:00172892 + 295 0001:0017289E 296 0001:001728AC 297 0001:001728B6 298 0001:001728C5 + 299 0001:001728D4 300 0001:001728EA 301 0001:0017290A 302 0001:00172913 + 303 0001:0017291D 305 0001:00172924 310 0001:00172944 311 0001:00172961 + 313 0001:00172969 314 0001:00172984 315 0001:00172998 316 0001:001729A7 + 318 0001:001729B9 319 0001:001729C9 320 0001:001729D6 321 0001:001729E3 + 322 0001:001729F0 324 0001:00172A00 325 0001:00172A07 326 0001:00172A20 + 327 0001:00172A33 328 0001:00172A46 331 0001:00172ACA 333 0001:00172AE6 + 334 0001:00172B07 336 0001:00172B10 337 0001:00172B1D 341 0001:00172B2C + 342 0001:00172B39 343 0001:00172B46 344 0001:00172B53 346 0001:00172B95 + 351 0001:00172BD0 352 0001:00172BD8 353 0001:00172BE3 354 0001:00172BF3 + 356 0001:00172C16 357 0001:00172C22 359 0001:00172C29 361 0001:00172C3B + 362 0001:00172C50 363 0001:00172C5F 365 0001:00172C74 366 0001:00172C82 + 367 0001:00172C98 368 0001:00172CB0 361 0001:00172CB1 369 0001:00172CB4 + 370 0001:00172CC1 373 0001:00172CC5 376 0001:00172D44 377 0001:00172D5E + 379 0001:00172D6F 380 0001:00172D80 382 0001:00172D85 384 0001:00172DB7 + 386 0001:00172DCB 387 0001:00172DDC 389 0001:00172DE1 391 0001:00172DF2 + 392 0001:00172E03 395 0001:00172E08 398 0001:00172E22 400 0001:00172E4E + 401 0001:00172E5F 405 0001:00172E64 406 0001:00172E79 409 0001:00172E7B + 411 0001:00172E84 413 0001:00172E96 416 0001:00172EA9 419 0001:00172ECF + 420 0001:00172F15 425 0001:001730C0 426 0001:001730D8 427 0001:001730DF + 428 0001:001730F3 429 0001:00173100 430 0001:00173114 431 0001:0017311B + 432 0001:00173122 433 0001:0017312C 434 0001:0017313C 435 0001:00173145 + 444 0001:001731A0 445 0001:001731A9 446 0001:001731B6 448 0001:001731C1 + 449 0001:001731CE 450 0001:001731DB 451 0001:001731E5 452 0001:001731EF + 454 0001:001731F6 456 0001:00173212 457 0001:00173220 458 0001:00173231 + 459 0001:0017323E 460 0001:0017324F 461 0001:00173260 462 0001:00173271 + 463 0001:0017327E 464 0001:0017328B 465 0001:00173298 466 0001:001732A5 + 467 0001:001732B6 468 0001:001732C3 469 0001:001732D1 470 0001:001732DB + 471 0001:001732E5 472 0001:001732FA 471 0001:00173311 473 0001:00173314 + 474 0001:00173331 475 0001:00173338 476 0001:0017333E 478 0001:0017334D + 481 0001:00173367 482 0001:0017337C 484 0001:0017338B 485 0001:00173399 + 486 0001:001733AA 487 0001:001733B7 488 0001:001733C8 489 0001:001733D9 + 490 0001:001733E6 491 0001:001733F3 492 0001:001733F9 494 0001:00173408 + 497 0001:00173424 499 0001:00173448 506 0001:00173548 507 0001:00173580 + 508 0001:0017358D 509 0001:00173594 511 0001:001735B9 512 0001:001735D5 + 513 0001:001735EC 515 0001:0017360C 516 0001:00173657 518 0001:0017366E + 509 0001:0017366F 519 0001:00173676 520 0001:001736AC 528 0001:001736C0 + 529 0001:001736E2 530 0001:001736F3 531 0001:00173701 532 0001:0017370B + 533 0001:0017371B 534 0001:0017372C 535 0001:00173739 536 0001:0017374A + 537 0001:0017375B 538 0001:00173765 539 0001:00173772 540 0001:0017377F + 541 0001:00173789 542 0001:0017378D 543 0001:00173791 544 0001:00173796 + 545 0001:0017379B 546 0001:0017379D 548 0001:001737BB 549 0001:001737CB + 551 0001:001737F8 553 0001:001737FE 554 0001:00173801 558 0001:0017380A + 559 0001:0017380D 561 0001:00173811 563 0001:00173816 565 0001:00173847 + 566 0001:0017384D 568 0001:0017389C 570 0001:001738A2 571 0001:001738EC + 572 0001:001738F0 576 0001:001738F8 577 0001:00173941 578 0001:00173944 + 582 0001:0017394D 584 0001:00173953 585 0001:00173987 589 0001:0017398C + 590 0001:00173992 592 0001:001739C9 594 0001:001739FE 546 0001:00173A01 + 595 0001:00173A0A 596 0001:00173A2F 598 0001:00173A6C 599 0001:00173A7B + 600 0001:00173A90 599 0001:00173AF7 601 0001:00173AFC 595 0001:00173AFF + 602 0001:00173B08 603 0001:00173B1D 604 0001:00173B37 606 0001:00173B6A + 609 0001:00173BCC 610 0001:00173BD2 611 0001:00173BDB 612 0001:00173BEB + 621 0001:00173BF0 622 0001:00173C16 623 0001:00173C1E 624 0001:00173C23 + 625 0001:00173C25 628 0001:00173C3B 630 0001:00173C60 632 0001:00173C6C + 633 0001:00173C79 635 0001:00173C95 637 0001:00173CC9 638 0001:00173CD9 + 639 0001:00173CFA 640 0001:00173D17 642 0001:00173D2F 643 0001:00173D58 + 640 0001:00173D59 644 0001:00173D5E 633 0001:00173D61 645 0001:00173D6A + 647 0001:00173D76 648 0001:00173D85 649 0001:00173D99 652 0001:00173DB8 + 658 0001:00173DD1 660 0001:00173DF6 661 0001:00173E05 662 0001:00173E0A + 663 0001:00173E0F 664 0001:00173E16 665 0001:00173E1E 667 0001:00173E2A + 669 0001:00173E46 670 0001:00173E54 671 0001:00173E74 673 0001:00173E7C + 675 0001:00173E8B 676 0001:00173E92 678 0001:00173E97 680 0001:00173EA0 + 682 0001:00173EB0 684 0001:00173EBA 685 0001:00173ECA 686 0001:00173EEB + 687 0001:00173F08 691 0001:00173F46 692 0001:00173F53 693 0001:00173F8B + 694 0001:00173F98 695 0001:00173FAB 696 0001:00173FCB 700 0001:00173FDE + 701 0001:00173FFF 698 0001:00174017 703 0001:00174028 707 0001:00174035 + 710 0001:00174040 711 0001:001740B0 713 0001:001740B8 714 0001:001740BD + 715 0001:001740C0 718 0001:001740C8 720 0001:001740D1 721 0001:001740D9 + 722 0001:001740EC 723 0001:00174103 724 0001:00174124 728 0001:00174137 + 729 0001:00174158 726 0001:00174170 731 0001:00174181 735 0001:00174191 + 737 0001:0017419C 739 0001:001741A1 741 0001:001741B1 743 0001:001741BB + 744 0001:001741CB 745 0001:001741F1 746 0001:00174214 750 0001:00174261 + 751 0001:0017426E 752 0001:001742AC 753 0001:001742B9 755 0001:001742C4 + 756 0001:00174334 758 0001:0017433C 759 0001:0017433F 760 0001:00174342 + 761 0001:0017434A 762 0001:0017434F 764 0001:00174371 765 0001:001743AD + 766 0001:001743CE 761 0001:001743CF 767 0001:001743D8 768 0001:001743E3 + 769 0001:001743E9 771 0001:001743F1 772 0001:001743FB 769 0001:001743FE + 774 0001:00174406 667 0001:00174409 775 0001:00174412 777 0001:00174422 + 779 0001:0017442C 780 0001:0017443C 781 0001:00174462 782 0001:00174485 + 786 0001:001744D2 787 0001:001744DF 788 0001:0017451D 789 0001:0017452A + 791 0001:00174535 792 0001:001745A5 795 0001:001745AD 797 0001:001745B5 + 799 0001:001745D3 800 0001:001745E4 801 0001:001745FE 802 0001:00174630 + 804 0001:0017464E 800 0001:0017466B 806 0001:00174672 807 0001:00174686 + 809 0001:001746A4 810 0001:001746B5 811 0001:001746CF 812 0001:001746FE + 814 0001:0017471C 810 0001:00174739 816 0001:00174740 819 0001:00174754 + 820 0001:0017475A 821 0001:0017476F 822 0001:001747AB 829 0001:001748D4 + 831 0001:001748F7 833 0001:00174900 834 0001:0017490D 836 0001:0017491A + 837 0001:0017493F 838 0001:00174956 839 0001:0017496D 840 0001:0017499B + 841 0001:001749A5 842 0001:001749AF 843 0001:001749C0 844 0001:001749CD + 845 0001:001749D7 847 0001:001749E8 848 0001:001749FB 849 0001:00174A08 + 850 0001:00174A18 851 0001:00174A23 852 0001:00174A30 856 0001:00174A3F + 857 0001:00174A51 858 0001:00174A5E 859 0001:00174A6B 860 0001:00174A78 + 861 0001:00174A83 863 0001:00174A93 864 0001:00174A9D 865 0001:00174AA7 + 866 0001:00174ABC 865 0001:00174AD3 867 0001:00174AD6 868 0001:00174ADD + 869 0001:00174AEC 871 0001:00174B11 872 0001:00174B4C 874 0001:00174B7A + 875 0001:00174B80 877 0001:00174B8B 878 0001:00174B9C 880 0001:00174BA1 + 882 0001:00174BC1 883 0001:00174C15 886 0001:00174C7F 887 0001:00174CCB + 888 0001:00174CDC 890 0001:00174CE1 892 0001:00174D32 893 0001:00174D82 + 897 0001:00174DC1 898 0001:00174DD2 899 0001:00174DE3 901 0001:00174E12 + 903 0001:00174E63 904 0001:00174EB3 908 0001:00174EEF 909 0001:00174F00 + 910 0001:00174F11 914 0001:00174F16 915 0001:00174FAA 918 0001:00175002 + 919 0001:0017504E 920 0001:0017505F 922 0001:00175064 923 0001:001750A0 + 924 0001:001750B0 925 0001:001750BF 926 0001:001750D6 928 0001:001750F1 + 929 0001:00175110 931 0001:00175120 934 0001:00175136 935 0001:00175147 + 936 0001:00175158 937 0001:00175169 938 0001:00175175 939 0001:00175193 + 940 0001:00175200 942 0001:0017522B 943 0001:0017523A 944 0001:0017529F + 948 0001:001752B1 949 0001:001752CF 950 0001:001752D6 951 0001:001752E3 + 952 0001:00175348 954 0001:00175355 955 0001:00175364 959 0001:00175380 + 960 0001:00175390 966 0001:001753A9 967 0001:001753BA 968 0001:001753CB + 969 0001:001753D7 970 0001:001753E8 972 0001:00175406 973 0001:00175414 + 975 0001:00175481 977 0001:001754AC 978 0001:001754BB 979 0001:00175520 + 983 0001:00175532 984 0001:00175550 985 0001:00175557 986 0001:00175564 + 988 0001:00175577 989 0001:001755DC 991 0001:001755E9 992 0001:001755F8 + 995 0001:00175614 1001 0001:00175629 1002 0001:00175637 1003 0001:001756A4 + 1005 0001:001756D4 1006 0001:001756E8 1007 0001:001756FA 1008 0001:0017570E + 1009 0001:00175720 1010 0001:00175732 1012 0001:00175746 1013 0001:0017575E + 1015 0001:00175772 1017 0001:00175784 1018 0001:001757B6 1020 0001:001757C8 + 1021 0001:0017582D 1022 0001:0017583B 1025 0001:0017584B 1026 0001:00175859 + 1027 0001:00175860 1028 0001:00175878 1029 0001:0017588B 1031 0001:001758A6 + 1032 0001:001758B7 1034 0001:001758E8 1035 0001:0017590E 1037 0001:00175B87 + 1042 0001:00175EE4 1044 0001:00175EE9 1046 0001:00175EEF 1047 0001:00175EF9 + 1048 0001:00175F05 1049 0001:00175F11 1050 0001:00175F2D 1052 0001:00175F69 + 1054 0001:00175F84 1060 0001:00175F88 1062 0001:00175FA7 1063 0001:00175FA9 + 1065 0001:00175FB5 1066 0001:00175FD2 1065 0001:00175FF6 1067 0001:00175FF9 + 1068 0001:00176004 1069 0001:00176011 1071 0001:0017601E 1072 0001:0017603D + 1074 0001:00176081 1075 0001:001760BF 1081 0001:001760C8 1083 0001:001760E2 + 1084 0001:001760F8 1085 0001:00176105 1086 0001:00176112 1087 0001:00176131 + 1088 0001:00176147 1090 0001:0017615D 1091 0001:00176162 1092 0001:00176197 + 1093 0001:001761B3 1095 0001:001761EE 1096 0001:00176209 1098 0001:00176232 + 1101 0001:0017623C 1103 0001:0017623F 1104 0001:00176248 1105 0001:0017624F + 1106 0001:0017625C 1107 0001:00176269 1108 0001:00176276 1110 0001:00176283 + 1113 0001:00176288 1115 0001:0017628C 1117 0001:001762A9 1118 0001:001762B3 + 1120 0001:001762C3 1121 0001:001762D5 1123 0001:001762E4 1124 0001:001762F1 + 1125 0001:001762FD 1126 0001:0017630A 1127 0001:0017631C 1129 0001:0017632B + 1130 0001:00176338 1132 0001:00176376 1134 0001:00176386 1135 0001:00176393 + 1138 0001:00176398 1139 0001:0017639B 1140 0001:001763A2 1141 0001:001763AC + 1142 0001:001763BE 1143 0001:001763C5 1144 0001:001763D6 1145 0001:001763E7 + 1146 0001:001763F8 1147 0001:00176409 1148 0001:0017641A 1149 0001:0017642B + 1150 0001:0017643E 1151 0001:0017644A 1152 0001:0017645E 1153 0001:00176465 + 1154 0001:0017646C 1162 0001:00176470 1163 0001:00176493 1164 0001:00176497 + 1166 0001:0017649D 1167 0001:001764B7 1169 0001:001764F0 1170 0001:001764F4 + 1171 0001:001764F6 1166 0001:001764F9 1174 0001:001764FC 1176 0001:00176506 + 1179 0001:0017653F 1180 0001:0017655C 1182 0001:001765BD 1183 0001:001765E6 + 1187 0001:00176608 1188 0001:00176625 1190 0001:00176686 1191 0001:001766AF + 1195 0001:001766D1 1196 0001:001766EE 1198 0001:00176762 1199 0001:00176787 + 1201 0001:001767A6 1203 0001:001767D1 1205 0001:001767E4 1206 0001:001767ED + 1208 0001:0017680D 1209 0001:00176824 1211 0001:00176841 1212 0001:0017685E + 1214 0001:00176860 1206 0001:00176863 1215 0001:00176866 1217 0001:0017689C + 1223 0001:001768BC 1224 0001:001768E9 1226 0001:001768EF 1227 0001:001768F7 + 1228 0001:00176906 1229 0001:00176920 1230 0001:00176934 1232 0001:00176969 + 1233 0001:0017697F 1234 0001:00176987 1235 0001:0017698F 1237 0001:001769A4 + 1239 0001:001769B9 1241 0001:001769D8 1242 0001:001769FB 1244 0001:00176A19 + 1245 0001:00176A34 1246 0001:00176A43 1248 0001:00176A52 1250 0001:00176A6C + 1252 0001:00176A8F 1253 0001:00176AB0 1254 0001:00176AD1 1255 0001:00176AE4 + 1256 0001:00176AF7 1258 0001:00176B19 1259 0001:00176B38 1260 0001:00176B5B + 1262 0001:00176B72 1264 0001:00176B7F 1266 0001:00176B97 1268 0001:00176BAF + 1271 0001:00176BC5 1273 0001:00176BCF 1274 0001:00176C0C 1279 0001:00176CB4 + 1281 0001:00176CC5 1288 0001:00176D0B 1291 0001:00176D10 1298 0001:00176D14 + 1300 0001:00176D37 1302 0001:00176D41 1303 0001:00176D53 1305 0001:00176D66 + 1307 0001:00176D7F 1308 0001:00176D93 1309 0001:00176DA7 1310 0001:00176DBB + 1311 0001:00176DE7 1313 0001:00176E0D 1314 0001:00176E29 1315 0001:00176E58 + 1317 0001:00176E67 1319 0001:00176E7E 1320 0001:00176EA8 1322 0001:00176ECE + 1323 0001:00176EDF 1324 0001:00176EF6 1326 0001:00176F1B 1327 0001:00176F25 + 1328 0001:00176F3C 1329 0001:00176F41 1331 0001:00176F53 1333 0001:00176F71 + 1334 0001:00176F78 1336 0001:00176F91 1338 0001:00176FC2 1339 0001:00176FC9 + 1341 0001:00176FE2 1342 0001:00176FEC 1348 0001:00176FFF 1349 0001:00177005 + 1351 0001:0017700E 1352 0001:0017701F 1353 0001:00177035 1354 0001:0017704E + 1355 0001:00177055 1358 0001:0017706E 1361 0001:00177099 1363 0001:001770AC + 1302 0001:001770AD 1364 0001:001770B6 1366 0001:001770C9 1367 0001:001770CB + 1369 0001:001770D9 1371 0001:001770EE 1372 0001:001770F3 1374 0001:001770F5 + 1367 0001:001770F6 1375 0001:001770FB 1377 0001:001770FF 1378 0001:0017710F + 1380 0001:00177116 1381 0001:00177118 1382 0001:00177126 1384 0001:00177135 + 1385 0001:0017713A 1386 0001:0017713C 1381 0001:0017713D 1387 0001:00177142 + 1389 0001:00177146 1390 0001:00177156 1391 0001:0017715D 1395 0001:001771A3 + 1402 0001:0017728C 1404 0001:001772AE 1405 0001:001772D7 1406 0001:001772E8 + 1407 0001:001772F8 1408 0001:00177302 1409 0001:0017732D 1411 0001:00177358 + 1412 0001:00177369 1414 0001:00177378 1415 0001:00177397 1416 0001:001773B6 + 1418 0001:001773C9 1420 0001:00177410 1421 0001:0017741E 1422 0001:00177422 + 1423 0001:00177451 1424 0001:00177457 1427 0001:00177492 1428 0001:001774D4 + 1429 0001:00177518 1430 0001:0017751C 1422 0001:0017751F 1433 0001:0017752A + 1434 0001:0017754C 1435 0001:00177564 1437 0001:00177577 1439 0001:00177599 + 1441 0001:001775D0 1442 0001:001775F2 1443 0001:00177629 1444 0001:00177646 + 1447 0001:00177662 1449 0001:00177674 1451 0001:001776A9 1452 0001:001776B7 + 1453 0001:001776BB 1454 0001:001776D8 1455 0001:001776DE 1458 0001:00177704 + 1459 0001:00177734 1460 0001:00177766 1461 0001:0017776A 1453 0001:0017776D + 1464 0001:00177778 1465 0001:00177792 1467 0001:001777A5 1468 0001:001777B5 + 1469 0001:001777CD 1472 0001:001777E2 1473 0001:001777F9 1475 0001:00177814 + 1476 0001:00177825 1478 0001:00177857 1479 0001:0017787E 1481 0001:0017788E + 1483 0001:001778CE 1491 0001:00177A64 1492 0001:00177AB9 1493 0001:00177AC1 + 1494 0001:00177AC9 1495 0001:00177AD1 1496 0001:00177AD9 1497 0001:00177AE1 + 1499 0001:00177AEA 1500 0001:00177AFD 1502 0001:00177B0E 1504 0001:00177B13 + 1506 0001:00177B26 1508 0001:00177B3D 1509 0001:00177B4E 1511 0001:00177B53 + 1512 0001:00177B97 1513 0001:00177BA4 1514 0001:00177BD7 1516 0001:00177BE4 + 1518 0001:00177BF5 1519 0001:00177C10 1520 0001:00177C55 1522 0001:00177C5D + 1524 0001:00177C72 1525 0001:00177CA8 1526 0001:00177CEC 1527 0001:00177D00 + 1528 0001:00177D1F 1529 0001:00177D3E 1531 0001:00177D49 1532 0001:00177D55 + 1533 0001:00177D61 1535 0001:00177D6D 1536 0001:00177D80 1538 0001:00177D93 + 1539 0001:00177DBF 1540 0001:00177DEB 1542 0001:00177E07 1544 0001:00177E3E + 1545 0001:00177E4E 1547 0001:00177E65 1549 0001:00177E78 1550 0001:00177E86 + 1552 0001:00177EBD 1553 0001:00177ED3 1554 0001:00177EEC 1555 0001:00177F03 + 1557 0001:00177F08 1559 0001:00177F45 1560 0001:00177F5B 1561 0001:00177F74 + 1562 0001:00177F8B 1564 0001:00177F90 1568 0001:0017804D 1569 0001:00178055 + 1570 0001:00178069 1572 0001:0017807E 1573 0001:0017809A 1575 0001:001780A7 + 1576 0001:001780C3 1578 0001:001780C5 1570 0001:001780C6 1579 0001:001780CB + 1580 0001:001780DA 1582 0001:001780E7 1583 0001:00178108 1584 0001:0017811A + 1585 0001:00178131 1586 0001:0017814B 1587 0001:00178162 1588 0001:0017818D + 1592 0001:001781A7 1594 0001:001781BC 1595 0001:001781ED 1596 0001:00178203 + 1597 0001:0017821C 1598 0001:00178253 1600 0001:00178291 1601 0001:001782A7 + 1605 0001:001782C5 1606 0001:001782D9 1607 0001:001782EA 1608 0001:00178300 + 1609 0001:00178319 1610 0001:00178330 1611 0001:00178357 1613 0001:0017836B + 1617 0001:00178377 1618 0001:001783AE 1620 0001:001783C7 1621 0001:001783DD + 1625 0001:001783FB 1626 0001:00178424 1627 0001:0017843A 1628 0001:00178453 + 1629 0001:00178463 1634 0001:00178494 1540 0001:00178495 1635 0001:001784DD + 1641 0001:001787E8 1643 0001:00178805 1645 0001:00178817 1646 0001:0017881F + 1647 0001:0017883A 1646 0001:0017886D 1648 0001:00178870 1649 0001:00178892 + 1650 0001:001788C7 1652 0001:001788D1 1653 0001:001788D6 1654 0001:001788E2 + 1655 0001:001788EC 1656 0001:001788F6 1657 0001:00178900 1658 0001:0017890A + 1659 0001:00178914 1660 0001:0017891E 1661 0001:00178928 1662 0001:00178932 + 1663 0001:00178967 1668 0001:00178988 1670 0001:0017898D 1672 0001:00178996 + 1673 0001:001789A3 1675 0001:001789B0 1676 0001:001789CC 1677 0001:001789D9 + 1678 0001:001789F5 1682 0001:001789FC 1684 0001:001789FF 1685 0001:00178A04 + 1686 0001:00178A0A 1693 0001:00178A10 1695 0001:00178A34 1696 0001:00178A41 + 1697 0001:00178A56 1698 0001:00178A73 1699 0001:00178A96 1700 0001:00178AB5 + 1701 0001:00178AD7 1702 0001:00178AEC 1704 0001:00178B3D 1708 0001:00178B60 + 1710 0001:00178B63 1711 0001:00178B68 1712 0001:00178B6E 1721 0001:00178B74 + 1723 0001:00178BAE 1724 0001:00178BBD 1725 0001:00178BCB 1727 0001:00178BDE + 1728 0001:00178BFB 1729 0001:00178C05 1731 0001:00178C12 1732 0001:00178C25 + 1734 0001:00178C47 1737 0001:00178C9F 1738 0001:00178CCD 1742 0001:00178D0D + 1743 0001:00178D31 1747 0001:00178D70 1749 0001:00178DB2 1759 0001:00178DF8 + 1761 0001:00178E1E 1762 0001:00178E33 1763 0001:00178E49 1764 0001:00178E50 + 1765 0001:00178E5A 1766 0001:00178E73 1767 0001:00178E8C 1768 0001:00178EA5 + 1769 0001:00178EBE 1770 0001:00178ED6 1771 0001:00178EEF 1772 0001:00178F08 + 1773 0001:00178F21 1774 0001:00178F3A 1775 0001:00178F53 1776 0001:00178F6E + 1777 0001:00178F87 1778 0001:00178FA0 1779 0001:00178FB3 1780 0001:00178FC6 + 1781 0001:00178FD9 1782 0001:00178FEC 1783 0001:00178FF4 1785 0001:00179006 + 1786 0001:0017900E 1787 0001:0017902A 1786 0001:00179063 1788 0001:00179068 + 1789 0001:00179090 1790 0001:001790D1 1792 0001:001790DB 1794 0001:0017910D + 1795 0001:0017911A 1796 0001:00179179 1797 0001:00179186 1798 0001:00179193 + 1800 0001:0017919B 1801 0001:001791AE 1802 0001:001791BB 1803 0001:001791C8 + 1804 0001:001791D5 1805 0001:001791E2 1806 0001:001791EF 1807 0001:001791FC + 1808 0001:0017924F 1809 0001:00179263 1810 0001:00179273 1811 0001:00179283 + 1812 0001:00179290 1813 0001:0017929D 1814 0001:001792AA 1815 0001:001792B7 + 1816 0001:001792C4 1817 0001:001792D1 1818 0001:001792DE 1819 0001:001792EB + 1820 0001:00179309 1821 0001:0017931A 1823 0001:0017932E 1824 0001:0017933B + 1825 0001:00179348 1827 0001:00179365 1828 0001:0017936C 1829 0001:00179376 + 1830 0001:00179386 1831 0001:00179397 1832 0001:001793A8 1833 0001:001793B5 + 1834 0001:001793BC 1835 0001:001793CD 1836 0001:001793D4 1837 0001:001793E1 + 1838 0001:001793F2 1839 0001:00179403 1840 0001:00179414 1841 0001:0017941E + 1842 0001:00179427 1844 0001:00179438 1845 0001:00179445 1846 0001:00179452 + 1847 0001:00179465 1848 0001:00179472 1849 0001:00179482 1850 0001:0017948D + 1851 0001:0017949A 1854 0001:001794AC 1856 0001:001794C1 1858 0001:001794CA + 1859 0001:001794D6 1860 0001:001794E4 1861 0001:001794F1 1862 0001:0017950F + 1864 0001:00179528 1865 0001:0017953B 1866 0001:00179576 1867 0001:001795A6 + 1869 0001:001795E3 1870 0001:001795EF 1873 0001:00179603 1875 0001:00179641 + 1876 0001:0017968C 1879 0001:001796D0 1880 0001:001796DF 1881 0001:00179726 + 1882 0001:00179732 1862 0001:00179733 1883 0001:0017973C 1884 0001:0017974A + 1886 0001:0017975A 1887 0001:00179767 1888 0001:00179774 1889 0001:00179786 + 1890 0001:00179793 1891 0001:001797A0 1892 0001:001797AD 1893 0001:001797BA + 1894 0001:001797C5 1898 0001:001797D7 1899 0001:001797E4 1900 0001:001797F1 + 1901 0001:00179803 1902 0001:00179810 1903 0001:0017981D 1904 0001:0017982A + 1905 0001:00179837 1906 0001:00179842 1908 0001:00179852 1909 0001:0017985C + 1910 0001:00179868 1911 0001:00179872 1912 0001:0017987F 1913 0001:0017988C + 1914 0001:00179899 1915 0001:001798A7 1916 0001:001798BF 1915 0001:001798D6 + 1917 0001:001798DB 1919 0001:001798E4 1920 0001:001798F1 1922 0001:001798FE + 1923 0001:0017990E 1925 0001:00179926 1926 0001:00179930 1927 0001:00179939 + 1929 0001:00179940 1930 0001:0017994F 1932 0001:0017995E 1934 0001:0017996D + 1935 0001:0017997A 1939 0001:0017998C 1940 0001:0017999B 1943 0001:001799FB + 1944 0001:00179A0C 1946 0001:00179A3B 1949 0001:00179A4A 1950 0001:00179A5B + 1952 0001:00179A6B 1953 0001:00179A75 1955 0001:00179A88 1956 0001:00179A9F + 1957 0001:00179AB6 1953 0001:00179AB9 1958 0001:00179ABE 1959 0001:00179AC8 + 1960 0001:00179AF3 1961 0001:00179AF8 1962 0001:00179B05 1965 0001:00179B19 + 1966 0001:00179B27 1967 0001:00179B37 1969 0001:00179B52 1970 0001:00179B63 + 1972 0001:00179B94 1973 0001:00179BBA 1976 0001:00179BCA 1980 0001:00179BE3 + 1981 0001:00179BF0 1982 0001:00179BFD 1983 0001:00179C30 1984 0001:00179C52 + 1985 0001:00179C61 1986 0001:00179C75 1987 0001:00179C8F 1988 0001:00179CA6 + 1989 0001:00179CB4 1990 0001:00179CC8 1995 0001:00179CD4 1996 0001:00179CE1 + 2001 0001:00179CF3 2002 0001:00179D03 2004 0001:00179D36 2005 0001:00179D87 + 2006 0001:00179D98 2007 0001:00179DA9 2010 0001:00179DB4 2012 0001:00179DF7 + 2013 0001:00179E07 2014 0001:00179E14 2018 0001:00179E26 2019 0001:00179E33 + 2020 0001:00179E40 2021 0001:00179E4A 2022 0001:00179E52 2023 0001:00179E81 + 2025 0001:00179E8A 2026 0001:00179E96 2027 0001:00179EA4 2028 0001:00179EB1 + 2029 0001:00179EC3 2030 0001:00179EC8 2031 0001:00179ECD 2033 0001:00179EE6 + 2034 0001:00179EF7 2035 0001:00179F49 2037 0001:00179F5A 2038 0001:00179F74 + 2037 0001:00179FB1 2040 0001:00179FB6 2041 0001:00179FF3 2043 0001:0017A007 + 2045 0001:0017A019 2046 0001:0017A03F 2047 0001:0017A045 2048 0001:0017A062 + 2031 0001:0017A063 2049 0001:0017A06C 2050 0001:0017A081 2051 0001:0017A09B + 2052 0001:0017A0A8 2053 0001:0017A0C5 2054 0001:0017A0D2 2055 0001:0017A0DF + 2056 0001:0017A0EC 2057 0001:0017A11E 2058 0001:0017A12C 2059 0001:0017A13C + 2061 0001:0017A152 2062 0001:0017A171 2063 0001:0017A17F 2064 0001:0017A18E + 2065 0001:0017A19B 2066 0001:0017A1AF 2067 0001:0017A1C6 2069 0001:0017A1E5 + 2070 0001:0017A204 2075 0001:0017A219 2076 0001:0017A229 2077 0001:0017A236 + 2078 0001:0017A243 2079 0001:0017A24D 2081 0001:0017A256 2082 0001:0017A262 + 2083 0001:0017A270 2084 0001:0017A27D 2086 0001:0017A296 2087 0001:0017A2A7 + 2088 0001:0017A2F9 2089 0001:0017A306 2090 0001:0017A320 2089 0001:0017A35D + 2091 0001:0017A362 2084 0001:0017A363 2092 0001:0017A36C 2093 0001:0017A39E + 2094 0001:0017A3AC 2096 0001:0017A3BC 2097 0001:0017A3DB 2098 0001:0017A3E9 + 2099 0001:0017A3F8 2100 0001:0017A405 2101 0001:0017A419 2102 0001:0017A430 + 2104 0001:0017A44F 2105 0001:0017A46E 2110 0001:0017A483 2111 0001:0017A4A2 + 2112 0001:0017A4AF 2113 0001:0017A4BC 2114 0001:0017A4EF 2115 0001:0017A4FE + 2116 0001:0017A50F 2117 0001:0017A520 2118 0001:0017A52C 2119 0001:0017A53D + 2121 0001:0017A566 2123 0001:0017A579 2124 0001:0017A589 2125 0001:0017A5A8 + 2127 0001:0017A5B2 2128 0001:0017A5C1 2130 0001:0017A5E6 2131 0001:0017A643 + 2135 0001:0017A651 2136 0001:0017A673 2137 0001:0017A682 2139 0001:0017A6A7 + 2141 0001:0017A704 2142 0001:0017A714 2143 0001:0017A721 2147 0001:0017A733 + 2148 0001:0017A742 2150 0001:0017A764 2151 0001:0017A77E 2157 0001:0017A790 + 2158 0001:0017A7AE 2159 0001:0017A7C2 2160 0001:0017A7C9 2161 0001:0017A7D6 + 2162 0001:0017A7E3 2163 0001:0017A805 2164 0001:0017A81F 2165 0001:0017A82C + 2168 0001:0017A83D 2169 0001:0017A84B 2171 0001:0017A85B 2172 0001:0017A86F + 2174 0001:0017A882 2175 0001:0017A892 2177 0001:0017A8C5 2178 0001:0017A916 + 2181 0001:0017A921 2183 0001:0017A964 2184 0001:0017A974 2185 0001:0017A981 + 2189 0001:0017A990 2191 0001:0017A99D 2192 0001:0017A9AC 2196 0001:0017A9C5 + 2197 0001:0017A9D5 2201 0001:0017A9E9 2205 0001:0017A9F5 2206 0001:0017AA14 + 2207 0001:0017AA21 2208 0001:0017AA2E 2209 0001:0017AA61 2210 0001:0017AA70 + 2211 0001:0017AA84 2212 0001:0017AA90 2213 0001:0017AAA1 2214 0001:0017AAB2 + 2215 0001:0017AAC3 2217 0001:0017AAEC 2219 0001:0017AAFF 2220 0001:0017AB0F + 2221 0001:0017AB2E 2223 0001:0017AB38 2224 0001:0017AB47 2226 0001:0017AB6C + 2227 0001:0017ABC9 2231 0001:0017ABD7 2232 0001:0017ABF9 2233 0001:0017AC08 + 2235 0001:0017AC2F 2237 0001:0017AC8E 2238 0001:0017AC9E 2239 0001:0017ACAB + 2243 0001:0017ACBD 2244 0001:0017ACDF 2246 0001:0017ACF2 2247 0001:0017AD0C + 2253 0001:0017AD1E 2254 0001:0017AD3C 2255 0001:0017AD43 2256 0001:0017AD50 + 2257 0001:0017AD5D 2258 0001:0017AD7F 2259 0001:0017AD99 2260 0001:0017ADA6 + 2263 0001:0017ADB7 2264 0001:0017ADC5 2266 0001:0017ADD5 2267 0001:0017ADE9 + 2270 0001:0017ADFC 2271 0001:0017AE0C 2273 0001:0017AE3F 2274 0001:0017AE92 + 2277 0001:0017AE9D 2279 0001:0017AEE0 2280 0001:0017AEF0 2281 0001:0017AEFD + 2285 0001:0017AF0C 2288 0001:0017AF19 2292 0001:0017AF25 2293 0001:0017AF32 + 2294 0001:0017AF3F 2295 0001:0017AF49 2297 0001:0017AF52 2298 0001:0017AF5E + 2299 0001:0017AF6C 2300 0001:0017AF79 2302 0001:0017AF92 2303 0001:0017AFA3 + 2304 0001:0017AFF5 2305 0001:0017B002 2306 0001:0017B01C 2305 0001:0017B059 + 2307 0001:0017B05E 2300 0001:0017B05F 2308 0001:0017B068 2309 0001:0017B09A + 2310 0001:0017B0A8 2312 0001:0017B0B8 2313 0001:0017B0C6 2314 0001:0017B0D5 + 2315 0001:0017B0E2 2316 0001:0017B0F6 2318 0001:0017B111 2319 0001:0017B130 + 2321 0001:0017B140 2325 0001:0017B174 2326 0001:0017B181 2327 0001:0017B18E + 2328 0001:0017B198 2330 0001:0017B1A4 2331 0001:0017B1B0 2332 0001:0017B1C1 + 2333 0001:0017B1D1 2335 0001:0017B1EA 2336 0001:0017B1FE 2337 0001:0017B250 + 2338 0001:0017B25D 2339 0001:0017B277 2338 0001:0017B2B4 2340 0001:0017B2B9 + 2333 0001:0017B2BA 2341 0001:0017B2C3 2342 0001:0017B2F5 2343 0001:0017B306 + 2345 0001:0017B316 2346 0001:0017B324 2347 0001:0017B333 2348 0001:0017B340 + 2349 0001:0017B354 2350 0001:0017B36B 2351 0001:0017B38A 2355 0001:0017B3BE + 2356 0001:0017B3C5 2357 0001:0017B3D2 2358 0001:0017B3DF 2359 0001:0017B412 + 2360 0001:0017B434 2361 0001:0017B443 2362 0001:0017B457 2363 0001:0017B471 + 2364 0001:0017B48A 2365 0001:0017B497 2368 0001:0017B4A8 2369 0001:0017B4B6 + 2371 0001:0017B4C6 2372 0001:0017B4DA 2374 0001:0017B4E1 2377 0001:0017B503 + 2378 0001:0017B512 2379 0001:0017B521 2381 0001:0017B530 2383 0001:0017B539 + 2384 0001:0017B553 2385 0001:0017B563 2387 0001:0017B57E 2388 0001:0017B58E + 2390 0001:0017B59E 2392 0001:0017B5A7 2393 0001:0017B5B4 2394 0001:0017B5C1 + 2395 0001:0017B5CC 2399 0001:0017B5DE 2402 0001:0017B5E7 2403 0001:0017B603 + 2404 0001:0017B623 2405 0001:0017B62D 2408 0001:0017B637 2409 0001:0017B73A + 2417 0001:0017BB38 2419 0001:0017BB60 2420 0001:0017BB82 2421 0001:0017BBA5 + 2422 0001:0017BBAF 2423 0001:0017BBBB 2424 0001:0017BBF1 2425 0001:0017BBF9 + 2426 0001:0017BC01 2427 0001:0017BC38 2428 0001:0017BC71 2430 0001:0017BC79 + 2431 0001:0017BC85 2433 0001:0017BC8D 2434 0001:0017BC98 2435 0001:0017BCA0 + 2436 0001:0017BCAB 2438 0001:0017BCB9 2439 0001:0017BCC0 2440 0001:0017BCC8 + 2441 0001:0017BCD2 2442 0001:0017BCD8 2443 0001:0017BCE0 2444 0001:0017BCF0 + 2445 0001:0017BCF9 2447 0001:0017BD08 2448 0001:0017BD15 2449 0001:0017BD3B + 2450 0001:0017BD43 2451 0001:0017BD62 2452 0001:0017BD77 2453 0001:0017BD99 + 2454 0001:0017BDCC 2456 0001:0017BDE1 2457 0001:0017BE03 2458 0001:0017BE0B + 2459 0001:0017BE2A 2460 0001:0017BE3F 2461 0001:0017BE61 2463 0001:0017BE94 + 2465 0001:0017BEAD 2466 0001:0017BED0 2467 0001:0017BED8 2468 0001:0017BEF7 + 2469 0001:0017BF0C 2470 0001:0017BF2E 2472 0001:0017BF61 2473 0001:0017BF74 + 2474 0001:0017BFA5 2485 0001:0017C00C 2487 0001:0017C02A 2488 0001:0017C033 + 2491 0001:0017C051 2492 0001:0017C058 2495 0001:0017C06F 2496 0001:0017C093 + 2498 0001:0017C0A8 2499 0001:0017C0B5 2500 0001:0017C0D9 2502 0001:0017C0EE + 2503 0001:0017C0FB 2508 0001:0017C10D 2509 0001:0017C131 2511 0001:0017C146 + 2512 0001:0017C153 2513 0001:0017C177 2515 0001:0017C18C 2516 0001:0017C199 + 2517 0001:0017C1A4 2518 0001:0017C1AF 2519 0001:0017C1BC 2521 0001:0017C1C6 + 2522 0001:0017C1D3 2524 0001:0017C1DB 2529 0001:0017C1E2 2530 0001:0017C205 + 2532 0001:0017C21A 2533 0001:0017C227 2534 0001:0017C24A 2536 0001:0017C25F + 2537 0001:0017C26C 2538 0001:0017C278 2539 0001:0017C284 2540 0001:0017C28F + 2542 0001:0017C296 2543 0001:0017C2A1 2545 0001:0017C2A6 2548 0001:0017C2AA + 2551 0001:0017C2D0 2552 0001:0017C2F8 2553 0001:0017C306 2554 0001:0017C310 + 2555 0001:0017C31F 2557 0001:0017C324 2559 0001:0017C33A 2560 0001:0017C344 + 2562 0001:0017C353 2563 0001:0017C358 2565 0001:0017C37B 2566 0001:0017C385 + 2569 0001:0017C394 2570 0001:0017C39F 2580 0001:0017C3A8 2582 0001:0017C3D1 + 2583 0001:0017C3DB 2584 0001:0017C3EA 2585 0001:0017C3F4 2586 0001:0017C3F8 + 2588 0001:0017C401 2589 0001:0017C411 2596 0001:0017C472 2604 0001:0017C49A + 2606 0001:0017C4AF 2607 0001:0017C4C0 2609 0001:0017C4CD 2610 0001:0017C4D4 + 2611 0001:0017C4F8 2612 0001:0017C532 2614 0001:0017C56F 2616 0001:0017C590 + 2617 0001:0017C5B0 2618 0001:0017C5D6 2619 0001:0017C5E8 2620 0001:0017C60E + 2623 0001:0017C620 2624 0001:0017C630 2625 0001:0017C64B 2610 0001:0017C64E + 2626 0001:0017C655 2630 0001:0017C65E 2631 0001:0017C667 2633 0001:0017C674 + 2634 0001:0017C689 2635 0001:0017C69F 2636 0001:0017C6C2 2637 0001:0017C6E5 + 2638 0001:0017C70E 2639 0001:0017C727 2638 0001:0017C74E 2640 0001:0017C751 + 2641 0001:0017C761 2643 0001:0017C7A3 2647 0001:0017C7C5 2648 0001:0017C7D6 + 2649 0001:0017C7E7 2650 0001:0017C7FC 2651 0001:0017C812 2652 0001:0017C827 + 2653 0001:0017C842 2654 0001:0017C85F 2653 0001:0017C886 2658 0001:0017C88E + 2660 0001:0017C8A1 2661 0001:0017C8B2 2663 0001:0017C8B9 2664 0001:0017C8C1 + 2666 0001:0017C8E2 2667 0001:0017C8E9 2668 0001:0017C90A 2670 0001:0017C95C + 2671 0001:0017C97A 2672 0001:0017C99B 2673 0001:0017C9E6 2674 0001:0017CA1F + 2677 0001:0017CA66 2678 0001:0017CA6A 2679 0001:0017CA90 2680 0001:0017CAAD + 2681 0001:0017CAC5 2680 0001:0017CAFA 2682 0001:0017CAFF 2671 0001:0017CB02 + 2683 0001:0017CB0B 2685 0001:0017CB11 2686 0001:0017CB38 2688 0001:0017CB4E + 2667 0001:0017CB51 2690 0001:0017CB58 2691 0001:0017CB60 2692 0001:0017CB64 + 2693 0001:0017CB82 2694 0001:0017CBCD 2695 0001:0017CC0C 2698 0001:0017CC53 + 2699 0001:0017CC57 2700 0001:0017CC7D 2701 0001:0017CC9A 2702 0001:0017CCB2 + 2701 0001:0017CCF3 2703 0001:0017CCF8 2692 0001:0017CCFB 2704 0001:0017CD02 + 2706 0001:0017CD08 2707 0001:0017CD35 2709 0001:0017CD4B 2710 0001:0017CD60 + 2711 0001:0017CD84 2713 0001:0017CDF6 2714 0001:0017CE06 2715 0001:0017CE59 + 2717 0001:0017CE69 2718 0001:0017CE81 2720 0001:0017CE9C 2721 0001:0017CEB1 + 2722 0001:0017CEC5 2726 0001:0017CF37 2727 0001:0017CF48 2728 0001:0017CF59 + 2729 0001:0017CF6E 2730 0001:0017CF84 2731 0001:0017CF99 2732 0001:0017CFC8 + 2733 0001:0017CFE5 2732 0001:0017D012 2737 0001:0017D01A 2738 0001:0017D02B + 2739 0001:0017D03C 2740 0001:0017D051 2741 0001:0017D067 2742 0001:0017D07C + 2743 0001:0017D0AB 2744 0001:0017D0C4 2743 0001:0017D0F1 2745 0001:0017D0F4 + 2748 0001:0017D117 2749 0001:0017D12F 2751 0001:0017D142 2752 0001:0017D17C + 2756 0001:0017D35C 2758 0001:0017D35F 2759 0001:0017D36C 2763 0001:0017D370 + 2765 0001:0017D373 2766 0001:0017D380 2772 0001:0017D384 2773 0001:0017D38C + 2781 0001:0017D390 2783 0001:0017D3B5 2784 0001:0017D3BA 2785 0001:0017D3C2 + 2786 0001:0017D3EA 2788 0001:0017D413 2789 0001:0017D42D 2790 0001:0017D435 + 2792 0001:0017D455 2793 0001:0017D47E 2794 0001:0017D4A7 2790 0001:0017D4A8 + 2795 0001:0017D4AB 2796 0001:0017D4D0 2797 0001:0017D4EB 2798 0001:0017D4F7 + 2799 0001:0017D511 2800 0001:0017D51C 2785 0001:0017D51F 2801 0001:0017D528 + 2802 0001:0017D532 2803 0001:0017D56C 2808 0001:0017D58C 2809 0001:0017D597 + 2814 0001:0017D598 2815 0001:0017D5A0 2819 0001:0017D5A4 2821 0001:0017D5B1 + 2822 0001:0017D5BC 2823 0001:0017D5C5 2824 0001:0017D5D0 2825 0001:0017D5D9 + 2830 0001:0017D5E0 2832 0001:0017D5E5 2833 0001:0017D600 2832 0001:0017D620 + 2834 0001:0017D623 2839 0001:0017D628 2840 0001:0017D633 2845 0001:0017D634 + 2847 0001:0017D63A 2850 0001:0017D64E 2851 0001:0017D653 2854 0001:0017D658 + 2857 0001:0017D660 2858 0001:0017D663 2860 0001:0017D677 2861 0001:0017D684 + 2862 0001:0017D691 2864 0001:0017D6AE 2868 0001:0017D6B0 2870 0001:0017D6BD + 2872 0001:0017D6C3 2874 0001:0017D6C9 2875 0001:0017D6EE 2877 0001:0017D6F5 + 2879 0001:0017D6FB 2880 0001:0017D720 2883 0001:0017D725 2884 0001:0017D72B + 2885 0001:0017D750 2887 0001:0017D755 2893 0001:0017D75C 2894 0001:0017D783 + 2895 0001:0017D78D 2896 0001:0017D797 2897 0001:0017D79F 2899 0001:0017D7A4 + 2900 0001:0017D7C0 2903 0001:0017D7C9 2905 0001:0017D7DE 2908 0001:0017D7FF + 2909 0001:0017D81A 2911 0001:0017D856 2915 0001:0017D860 2917 0001:0017D863 + 2918 0001:0017D870 2922 0001:0017D874 2924 0001:0017D877 2925 0001:0017D884 + 2931 0001:0017D888 2933 0001:0017D88E 2934 0001:0017D897 2935 0001:0017D89F + 2936 0001:0017D8A5 2937 0001:0017D8B2 2939 0001:0017D8BB 2940 0001:0017D8CC + 2941 0001:0017D8E8 2942 0001:0017D8FA 2944 0001:0017D90F 2945 0001:0017D921 + 2948 0001:0017D933 2949 0001:0017D942 2950 0001:0017D954 2952 0001:0017D966 + 2953 0001:0017D977 2954 0001:0017D987 2956 0001:0017D99D 2963 0001:0017DACC + 2965 0001:0017DAF4 2966 0001:0017DB09 2967 0001:0017DB10 2968 0001:0017DB19 + 2969 0001:0017DB26 2970 0001:0017DB33 2971 0001:0017DB57 2973 0001:0017DB79 + 2974 0001:0017DB96 2976 0001:0017DBA8 2978 0001:0017DBBA 2979 0001:0017DBCC + 2980 0001:0017DBDE 2981 0001:0017DBE7 2983 0001:0017DBF7 2985 0001:0017DBFE + 2986 0001:0017DC0B 2988 0001:0017DC1E 2989 0001:0017DC2E 2990 0001:0017DC35 + 2991 0001:0017DC3E 2992 0001:0017DC5F 2993 0001:0017DC93 2994 0001:0017DCB6 + 2995 0001:0017DCC0 2996 0001:0017DCD1 2997 0001:0017DCFA 2998 0001:0017DD13 + 2997 0001:0017DD3A 2999 0001:0017DD3D 3000 0001:0017DD4D 3001 0001:0017DD6E + 3003 0001:0017DDBE 3005 0001:0017DDDD 3007 0001:0017DDEF 3008 0001:0017DE00 + 3009 0001:0017DE10 3011 0001:0017DE48 3015 0001:0017DFA0 3017 0001:0017DFA6 + 3020 0001:0017DFBA 3021 0001:0017DFBF 3025 0001:0017DFC4 3028 0001:0017DFCC + 3030 0001:0017DFCF 3031 0001:0017DFE1 3032 0001:0017E004 3035 0001:0017E008 + 3037 0001:0017E00B 3039 0001:0017E01D 3040 0001:0017E02D 3042 0001:0017E050 + 3045 0001:0017E054 3047 0001:0017E057 3049 0001:0017E069 3050 0001:0017E079 + 3052 0001:0017E09C 3055 0001:0017E0A0 3057 0001:0017E0A3 3059 0001:0017E0AC + 3060 0001:0017E0CC 3061 0001:0017E0D8 3062 0001:0017E0FA 3065 0001:0017E11A + 3070 0001:0017E11C 3071 0001:0017E12C 3073 0001:0017E1D8 3073 0001:0017E1DF + +Line numbers for rReports(rReports.pas) segment .text + + 106 0001:0017E1E0 109 0001:0017E213 110 0001:0017E216 111 0001:0017E247 + 119 0001:0017E24A 120 0001:0017E250 122 0001:0017E27A 123 0001:0017E297 + 112 0001:0017E298 126 0001:0017E2EC 129 0001:0017E304 130 0001:0017E307 + 131 0001:0017E31F 132 0001:0017E330 133 0001:0017E341 134 0001:0017E352 + 135 0001:0017E363 136 0001:0017E374 137 0001:0017E385 140 0001:0017E3F4 + 141 0001:0017E3F7 142 0001:0017E40F 143 0001:0017E420 144 0001:0017E431 + 147 0001:0017E470 148 0001:0017E473 149 0001:0017E48B 150 0001:0017E49C + 151 0001:0017E4AD 156 0001:0017E4E8 157 0001:0017E505 158 0001:0017E50E + 161 0001:0017E515 162 0001:0017E51F 164 0001:0017E524 165 0001:0017E58D + 170 0001:0017E594 171 0001:0017E5B1 172 0001:0017E5BF 173 0001:0017E628 + 176 0001:0017E630 177 0001:0017E633 178 0001:0017E641 179 0001:0017E64E + 182 0001:0017E650 183 0001:0017E653 184 0001:0017E661 185 0001:0017E66B + 186 0001:0017E678 190 0001:0017E67C 191 0001:0017E69C 193 0001:0017E6AB + 195 0001:0017E6CF 198 0001:0017E6E0 199 0001:0017E702 200 0001:0017E71B + 201 0001:0017E74C 204 0001:0017E774 205 0001:0017E793 206 0001:0017E7C9 + 212 0001:0017E7E8 213 0001:0017E80C 216 0001:0017E82C 217 0001:0017E849 + 219 0001:0017E869 220 0001:0017E880 221 0001:0017E8B6 227 0001:0017E9C2 + 228 0001:0017E9D9 217 0001:0017E9DA 229 0001:0017E9E1 231 0001:0017EA20 + 237 0001:0017EAA8 238 0001:0017EACC 241 0001:0017EAEC 243 0001:0017EB0C + 244 0001:0017EB23 246 0001:0017EB42 248 0001:0017EBB1 249 0001:0017EC37 + 250 0001:0017EC4E 241 0001:0017EC4F 251 0001:0017EC56 253 0001:0017EC9A + 259 0001:0017ECFC 260 0001:0017ED1C 263 0001:0017ED3C 265 0001:0017ED5C + 266 0001:0017ED73 267 0001:0017EDD1 268 0001:0017EDE8 263 0001:0017EDE9 + 269 0001:0017EDF0 271 0001:0017EE2F 279 0001:0017EE68 280 0001:0017EE8C + 283 0001:0017EEAC 285 0001:0017EECC 286 0001:0017EEE3 287 0001:0017EF2B + 289 0001:0017EFCD 290 0001:0017F013 291 0001:0017F02A 283 0001:0017F02B + 292 0001:0017F032 294 0001:0017F076 300 0001:0017F0FC 301 0001:0017F14E + 302 0001:0017F156 303 0001:0017F15E 304 0001:0017F166 305 0001:0017F16E + 306 0001:0017F176 308 0001:0017F18A 309 0001:0017F1A8 310 0001:0017F1C6 + 312 0001:0017F1D1 313 0001:0017F1DD 314 0001:0017F1E9 316 0001:0017F1F5 + 317 0001:0017F207 319 0001:0017F21A 321 0001:0017F22A 322 0001:0017F23C + 323 0001:0017F24F 324 0001:0017F261 326 0001:0017F27C 327 0001:0017F2A5 + 328 0001:0017F2CE 329 0001:0017F2E6 331 0001:0017F2F6 332 0001:0017F36D + 336 0001:0017F383 337 0001:0017F38F 339 0001:0017F3D7 342 0001:0017F458 + 343 0001:0017F45B 344 0001:0017F473 350 0001:0017F498 351 0001:0017F4FB + 352 0001:0017F518 353 0001:0017F524 354 0001:0017F562 356 0001:0017F60B + 357 0001:0017F663 363 0001:0017F6A8 364 0001:0017F70B 365 0001:0017F728 + 366 0001:0017F734 367 0001:0017F772 369 0001:0017F81B 370 0001:0017F873 + 383 0001:0017F8B8 384 0001:0017F8BE 385 0001:0017F8DA 388 0001:0017F8F8 + 389 0001:0017F8FE 390 0001:0017F91A 393 0001:0017F938 394 0001:0017F93E + 395 0001:0017F95A 398 0001:0017F978 399 0001:0017F9A2 400 0001:0017FA05 + 411 0001:0017FA2C 412 0001:0017FA79 413 0001:0017FA81 414 0001:0017FA89 + 415 0001:0017FA91 416 0001:0017FA99 417 0001:0017FAA1 418 0001:0017FAAF + 420 0001:0017FABF 421 0001:0017FADD 422 0001:0017FAFB 423 0001:0017FB0D + 425 0001:0017FB20 427 0001:0017FB30 428 0001:0017FB42 429 0001:0017FB55 + 430 0001:0017FB67 432 0001:0017FB82 433 0001:0017FBAB 434 0001:0017FBD4 + 436 0001:0017FBE4 437 0001:0017FBEC 439 0001:0017FBFE 440 0001:0017FC1A + 442 0001:0017FC27 444 0001:0017FC65 446 0001:0017FC67 437 0001:0017FC68 + 447 0001:0017FC6B 449 0001:0017FC76 451 0001:0017FC98 452 0001:0017FCB0 + 454 0001:0017FCBF 455 0001:0017FD05 459 0001:0017FD5B 461 0001:0017FE23 + 463 0001:0017FE7D 464 0001:0017FE84 465 0001:0017FEEC 476 0001:0017FF5C + 477 0001:0017FFA9 478 0001:0017FFB1 479 0001:0017FFB9 480 0001:0017FFC1 + 481 0001:0017FFC9 482 0001:0017FFD1 483 0001:0017FFDF 485 0001:0017FFEF + 486 0001:0018000D 487 0001:0018002B 488 0001:0018003D 490 0001:00180050 + 492 0001:00180060 493 0001:00180072 494 0001:00180085 495 0001:00180097 + 497 0001:001800B2 498 0001:001800DB 499 0001:00180104 501 0001:00180114 + 502 0001:0018011C 504 0001:0018012E 505 0001:0018014A 507 0001:00180157 + 509 0001:00180195 511 0001:00180197 502 0001:00180198 512 0001:0018019B + 514 0001:001801A6 516 0001:001801C8 517 0001:001801E0 519 0001:001801EB + 520 0001:00180218 524 0001:0018022A 526 0001:001802C1 528 0001:001802CE + 529 0001:001802D5 530 0001:00180322 546 0001:0018038C 547 0001:001803C8 + 548 0001:001803D7 549 0001:001803DF 551 0001:00180401 552 0001:0018041F + 554 0001:0018042C 564 0001:00180439 563 0001:00180450 566 0001:001804AA + 565 0001:001804B7 568 0001:001804F9 573 0001:0018050B 574 0001:00180522 + 575 0001:00180539 576 0001:00180549 577 0001:00180580 578 0001:00180597 + 579 0001:0018059D 580 0001:001805A7 582 0001:001805C6 584 0001:001805E4 + 585 0001:001805EE 586 0001:001805F4 588 0001:00180603 590 0001:0018061B + 591 0001:00180641 592 0001:00180644 588 0001:00180647 597 0001:0018064E + 598 0001:00180677 600 0001:0018067A 580 0001:0018067D 601 0001:00180686 + 612 0001:00180692 613 0001:001806A0 614 0001:001806D2 616 0001:00180700 + 617 0001:0018074C 623 0001:00180788 626 0001:001807B5 627 0001:001807C1 + 628 0001:001807F6 629 0001:00180802 630 0001:00180828 631 0001:00180866 + 632 0001:001808AF 633 0001:001808EA 634 0001:001808F4 635 0001:0018090D + 636 0001:0018095C 637 0001:00180968 639 0001:00180996 651 0001:00180A34 + 652 0001:00180A64 653 0001:00180A69 654 0001:00180A78 655 0001:00180A83 + 656 0001:00180A92 657 0001:00180AA0 658 0001:00180AA8 659 0001:00180AC6 + 661 0001:00180ACE 662 0001:00180AE3 663 0001:00180AF8 664 0001:00180B06 + 665 0001:00180B33 666 0001:00180B4A 667 0001:00180B4D 668 0001:00180B55 + 669 0001:00180B63 671 0001:00180B7A 672 0001:00180B9D 673 0001:00180BA0 + 669 0001:00180BA3 674 0001:00180BA6 676 0001:00180BAE 678 0001:00180C0C + 682 0001:00180C29 683 0001:00180C33 684 0001:00180C3B 686 0001:00180C7D + 689 0001:00180C98 690 0001:00180CB7 691 0001:00180CED 695 0001:00180D18 + 696 0001:00180D3D 697 0001:00180D67 698 0001:00180D79 699 0001:00180DA5 + 702 0001:00180DCC 703 0001:00180DEE 704 0001:00180E07 705 0001:00180E38 + 708 0001:00180E60 709 0001:00180E82 710 0001:00180E9B 711 0001:00180EAD + 712 0001:00180EDE 715 0001:00180F00 716 0001:00180F09 717 0001:00180F35 + 718 0001:00180F49 721 0001:00180F70 722 0001:00180F76 723 0001:00180F8E + 724 0001:00180FA2 727 0001:00180FC8 728 0001:00180FCE 729 0001:00180FE6 + 730 0001:00180FFA 733 0001:00181018 734 0001:0018101E 735 0001:00181036 + 736 0001:0018104A 739 0001:00181068 740 0001:0018108A 741 0001:001810A3 + 742 0001:001810B5 743 0001:001810E6 746 0001:00181110 747 0001:00181132 + 748 0001:0018114B 749 0001:0018117E 752 0001:001811A4 753 0001:001811BE + 754 0001:001811D6 755 0001:001811EC 757 0001:0018120F 758 0001:00181230 + 762 0001:00181250 763 0001:0018126C 764 0001:001812AC 767 0001:001812CC + 768 0001:001812F4 769 0001:0018130D 770 0001:00181322 771 0001:0018133B + 772 0001:0018136F 773 0001:00181388 774 0001:001813C1 777 0001:001813FC + 778 0001:00181426 779 0001:0018146E 787 0001:00181490 788 0001:001814A7 + 789 0001:001814B9 790 0001:001814C4 791 0001:001814CF 792 0001:001814DD + 793 0001:001814F9 804 0001:0018154B 805 0001:00181553 807 0001:00181563 + 813 0001:0018156C 814 0001:0018158F 815 0001:00181599 816 0001:001815A3 + 817 0001:001815AD 819 0001:001815CC 809 0001:001815D0 812 0001:001815D7 + +Line numbers for fRptBox(fRptBox.pas) segment .text + + 46 0001:00181890 47 0001:001818C6 48 0001:001818DD 51 0001:001818EB + 52 0001:001818F0 53 0001:0018190E 55 0001:00181926 56 0001:00181941 + 57 0001:0018195C 58 0001:0018196B 59 0001:0018199B 60 0001:0018199E + 52 0001:0018199F 63 0001:001819A6 64 0001:001819AD 66 0001:001819BF + 67 0001:001819E3 68 0001:001819EB 64 0001:001819EC 69 0001:001819EF + 70 0001:00181A00 71 0001:00181A0A 72 0001:00181A32 73 0001:00181A40 + 74 0001:00181A64 75 0001:00181A84 76 0001:00181A8F 77 0001:00181A99 + 78 0001:00181AA4 79 0001:00181AAC 80 0001:00181AB7 82 0001:00181ABF + 85 0001:00181ACF 86 0001:00181AF2 89 0001:00181B10 90 0001:00181B2A + 92 0001:00181B35 93 0001:00181B56 90 0001:00181B57 96 0001:00181B5A + 97 0001:00181B71 98 0001:00181B9F 99 0001:00181BAA 102 0001:00181BCC + 103 0001:00181BD6 105 0001:00181C32 111 0001:00181C3C 112 0001:00181C61 + 113 0001:00181C70 114 0001:00181C7E 116 0001:00181C96 118 0001:00181CC3 + 121 0001:00181CCC 122 0001:00181CEF 123 0001:00181CFD 124 0001:00181D06 + 125 0001:00181D2C 140 0001:00181D34 143 0001:00181D67 144 0001:00181D78 + 145 0001:00181D86 146 0001:00181D94 148 0001:00181DA4 149 0001:00181DB3 + 150 0001:00181DBE 151 0001:00181DCF 152 0001:00181DDD 153 0001:00181DEF + 154 0001:00181DF4 157 0001:00181DF9 158 0001:00181E03 159 0001:00181E0D + 160 0001:00181E1D 161 0001:00181E2F 164 0001:00181E5C 166 0001:00181E68 + 167 0001:00181E73 168 0001:00181E7D 169 0001:00181E89 171 0001:00181EA4 + 167 0001:00181EA5 172 0001:00181EA8 173 0001:00181EAB 174 0001:00181EB8 + 175 0001:00181EC5 176 0001:00181EDF 177 0001:00181EED 180 0001:00181EFA + 181 0001:00181EFD 182 0001:00181F23 185 0001:00181F30 186 0001:00181F42 + 189 0001:00181F63 190 0001:00181F6B 194 0001:00181F88 195 0001:00181F96 + 197 0001:00181FD0 202 0001:00182024 205 0001:00182028 206 0001:0018203E + 207 0001:00182063 208 0001:0018208B 212 0001:001820A8 213 0001:001820AD + 217 0001:001820B0 218 0001:001820B9 219 0001:001820BC 222 0001:001820C0 + 223 0001:001820C3 224 0001:001820D5 226 0001:00182108 226 0001:0018210F + +Line numbers for fTimeout(fTimeout.pas) segment .text + + 36 0001:00182328 37 0001:0018232E 38 0001:00182345 39 0001:00182353 + 40 0001:0018235B 41 0001:00182366 43 0001:00182381 45 0001:00182394 + 48 0001:00182398 50 0001:001823AF 51 0001:001823B6 52 0001:001823C6 + 53 0001:001823FB 58 0001:00182400 59 0001:00182407 60 0001:0018240C + 63 0001:00182410 65 0001:00182426 67 0001:00182438 68 0001:0018243F + 69 0001:0018244C 70 0001:0018245C 72 0001:00182469 73 0001:0018246F + 74 0001:0018248B 76 0001:00182494 77 0001:001824A1 79 0001:001824C5 + 81 0001:001824FC 81 0001:00182503 + +Line numbers for uInit(uInit.pas) segment .text + + 61 0001:001825C0 62 0001:001825DD 63 0001:001825FA 64 0001:00182613 + 65 0001:00182647 66 0001:00182684 67 0001:001826B8 68 0001:001826F5 + 69 0001:00182729 70 0001:00182766 71 0001:0018279A 72 0001:001827D7 + 73 0001:00182801 74 0001:00182860 80 0001:00182908 81 0001:0018290F + 82 0001:00182921 83 0001:00182938 87 0001:00182940 88 0001:0018294B + 89 0001:0018295F 90 0001:00182969 91 0001:0018297D 95 0001:00182984 + 96 0001:0018298D 98 0001:00182996 101 0001:001829AC 102 0001:001829BB + 103 0001:001829C9 104 0001:001829D7 105 0001:001829E0 106 0001:001829F9 + 107 0001:00182A12 108 0001:00182A18 109 0001:00182A24 112 0001:00182A2D + 116 0001:00182A34 120 0001:00182A3D 121 0001:00182A48 122 0001:00182A52 + 125 0001:00182A5E 129 0001:00182A60 130 0001:00182A65 134 0001:00182A68 + 138 0001:00182A71 139 0001:00182A7D 141 0001:00182A88 142 0001:00182A96 + 143 0001:00182AA4 146 0001:00182AAD 147 0001:00182AB7 149 0001:00182ABE + 155 0001:00182AC0 156 0001:00182AC3 157 0001:00182ACC 158 0001:00182AD6 + 159 0001:00182ADF 163 0001:00182AE4 164 0001:00182AE7 165 0001:00182AF0 + 166 0001:00182AF7 168 0001:00182B17 169 0001:00182B21 171 0001:00182B2A + 174 0001:00182B39 175 0001:00182B42 180 0001:00182B44 182 0001:00182B77 + 177 0001:00182B7C 179 0001:00182B83 + +Line numbers for fTemplateDialog(Templates\fTemplateDialog.pas) segment .text + + 90 0001:00182E50 91 0001:00182E76 92 0001:00182E81 93 0001:00182E89 + 94 0001:00182E98 95 0001:00182EA6 96 0001:00182EC0 98 0001:00182ECB + 99 0001:00182EDF 100 0001:00182F06 101 0001:00182F1C 95 0001:00182F1D + 102 0001:00182F20 103 0001:00182F2B 105 0001:00182F41 106 0001:00182F45 + 107 0001:00182F74 109 0001:00182F7A 110 0001:00182FA1 111 0001:00182FA5 + 113 0001:00182FAF 114 0001:00182FD2 115 0001:00182FEF 116 0001:0018300D + 117 0001:00183058 119 0001:001830A1 103 0001:001830A2 121 0001:001830B6 + 123 0001:001830F5 140 0001:001830FC 141 0001:00183113 143 0001:00183122 + 145 0001:00183126 146 0001:00183139 147 0001:00183142 151 0001:0018316B + 152 0001:0018317D 153 0001:00183188 154 0001:0018319B 157 0001:001831C4 + 164 0001:001831E4 165 0001:001831FF 166 0001:00183211 168 0001:00183223 + 169 0001:0018322F 171 0001:00183241 173 0001:00183244 175 0001:00183248 + 176 0001:0018325B 179 0001:00183284 180 0001:00183290 182 0001:0018329D + 183 0001:001832AF 184 0001:001832E3 186 0001:001832F8 187 0001:0018332C + 188 0001:00183330 189 0001:00183334 190 0001:0018334D 191 0001:0018335B + 192 0001:0018336A 193 0001:00183374 194 0001:0018337B 195 0001:00183388 + 196 0001:00183390 197 0001:0018339E 198 0001:001833AD 199 0001:001833B8 + 200 0001:001833D5 201 0001:001833E2 202 0001:001833E7 204 0001:001833F6 + 205 0001:00183405 207 0001:0018340E 208 0001:0018341D 210 0001:00183421 + 211 0001:00183437 215 0001:00183443 216 0001:0018344B 218 0001:0018344D + 219 0001:00183458 221 0001:001834A4 222 0001:001834AA 223 0001:001834C7 + 224 0001:001834D5 226 0001:001834E1 227 0001:001834E5 228 0001:001834F6 + 229 0001:001834FE 231 0001:00183510 233 0001:0018351E 234 0001:00183530 + 236 0001:00183542 238 0001:0018354C 239 0001:00183559 240 0001:00183567 + 242 0001:00183573 244 0001:00183590 245 0001:0018359D 247 0001:001835B3 + 248 0001:001835BB 249 0001:001835BF 252 0001:001835C5 256 0001:001835CB + 257 0001:001835D3 258 0001:001835D7 260 0001:001835DB 263 0001:001835F5 + 266 0001:0018360A 268 0001:00183614 269 0001:00183626 270 0001:00183635 + 268 0001:00183636 271 0001:00183639 274 0001:00183649 275 0001:0018364F + 277 0001:0018368F 280 0001:0018374C 283 0001:00183773 285 0001:0018378B + 286 0001:001837D4 289 0001:001837E2 281 0001:001837E9 291 0001:00183825 + 297 0001:00183860 298 0001:00183882 299 0001:00183891 300 0001:0018389F + 301 0001:001838A9 302 0001:001838B5 304 0001:001838D7 306 0001:00183904 + 312 0001:0018390C 313 0001:00183914 315 0001:00183929 316 0001:00183945 + 317 0001:0018395C 313 0001:0018395D 318 0001:00183960 322 0001:00183968 + 323 0001:0018396F 327 0001:00183970 328 0001:00183977 333 0001:00183978 + 334 0001:0018399D 335 0001:001839A5 337 0001:001839A9 338 0001:001839AC + 340 0001:001839B0 341 0001:001839C0 342 0001:001839C6 344 0001:001839D9 + 347 0001:00183A34 366 0001:00183A3C 367 0001:00183A65 368 0001:00183A6A + 370 0001:00183A70 372 0001:00183A85 373 0001:00183A9E 375 0001:00183AAB + 376 0001:00183ABB 378 0001:00183ABD 370 0001:00183ABE 380 0001:00183AE9 + 403 0001:00183AF0 404 0001:00183AF6 406 0001:00183B07 407 0001:00183B13 + 409 0001:00183B27 411 0001:00183B2C 412 0001:00183B5A 413 0001:00183B71 + 414 0001:00183B8E 415 0001:00183BAC 416 0001:00183BBF 417 0001:00183BD2 + 419 0001:00183BE5 420 0001:00183BE7 421 0001:00183BE9 422 0001:00183BEF + 424 0001:00183C08 425 0001:00183C0C 426 0001:00183C12 427 0001:00183C1F + 428 0001:00183C2B 429 0001:00183C38 430 0001:00183C3E 433 0001:00183C42 + 435 0001:00183C46 437 0001:00183C8D 439 0001:00183C91 442 0001:00183C9F + 444 0001:00183CA2 446 0001:00183CA6 448 0001:00183CAE 449 0001:00183CC8 + 450 0001:00183CD3 451 0001:00183CE6 452 0001:00183CEA 453 0001:00183CFA + 455 0001:00183D01 457 0001:00183D06 458 0001:00183D28 459 0001:00183D53 + 460 0001:00183D6B 461 0001:00183D8D 463 0001:00183D91 465 0001:00183DB6 + 466 0001:00183DC8 469 0001:00183DCB 461 0001:00183DCD 471 0001:00183DD1 + 473 0001:00183DE0 474 0001:00183DF9 475 0001:00183E0A 477 0001:00183E0F + 479 0001:00183E17 480 0001:00183E4F 481 0001:00183E6A 482 0001:00183E7D + 483 0001:00183E81 484 0001:00183E8C 486 0001:00183E94 488 0001:00183ECA + 489 0001:00183ED9 491 0001:00183EDD 492 0001:00183EDE 494 0001:00183EE3 + 495 0001:00183EEA 496 0001:00183EF9 497 0001:00183EFD 499 0001:00183F04 + 501 0001:00183F05 502 0001:00183F09 505 0001:00183F2C 506 0001:00183F42 + 507 0001:00183F4B 508 0001:00183F58 511 0001:00183F6D 513 0001:00183F7F + 514 0001:00183F9A 515 0001:00183FA1 517 0001:00183FB0 518 0001:00183FB9 + 519 0001:00183FBC 520 0001:00183FC7 521 0001:00183FDF 523 0001:00183FEC + 524 0001:00183FFE 527 0001:00184005 528 0001:00184016 530 0001:00184026 + 531 0001:0018403B 533 0001:00184050 534 0001:0018405D 539 0001:00184069 + 540 0001:00184072 541 0001:0018407B 542 0001:0018409C 543 0001:001840AE + 545 0001:001840DD 546 0001:001840EA 547 0001:00184106 550 0001:00184110 + 552 0001:00184116 553 0001:0018413C 554 0001:00184143 556 0001:00184154 + 557 0001:00184165 559 0001:00184172 561 0001:00184183 562 0001:001841AB + 563 0001:001841B4 564 0001:001841BD 565 0001:001841D0 567 0001:001841DE + 568 0001:001841F5 570 0001:00184251 571 0001:0018425D 572 0001:00184266 + 574 0001:00184277 575 0001:00184289 576 0001:00184296 579 0001:001842A7 + 580 0001:001842E2 583 0001:00184378 584 0001:0018437B 585 0001:0018438F + 588 0001:00184394 589 0001:00184397 591 0001:001843AB 594 0001:001843B0 + 595 0001:001843C9 597 0001:001843F1 598 0001:001843F8 600 0001:0018441C + 607 0001:00184430 608 0001:0018443C 609 0001:0018444C 610 0001:00184456 + 611 0001:00184464 612 0001:0018446F 613 0001:00184482 614 0001:00184490 + 615 0001:001844AA 616 0001:001844BC 615 0001:001844CB 618 0001:001844DB + 620 0001:001844ED 624 0001:001844F4 626 0001:001844FD 627 0001:00184504 + 629 0001:00184509 632 0001:0018450C 633 0001:0018450F 634 0001:00184521 + 635 0001:00184533 636 0001:00184545 637 0001:00184564 638 0001:0018457B + 639 0001:00184582 640 0001:001845A1 641 0001:001845A8 642 0001:001845AF + 649 0001:001845B4 651 0001:001845BC 652 0001:001845C3 653 0001:001845CD + 654 0001:001845DC 657 0001:001845E4 659 0001:001845E7 660 0001:001845F2 + 661 0001:001845FD 662 0001:00184608 663 0001:00184613 666 0001:00184618 + 667 0001:0018462F 669 0001:00184668 677 0001:00184670 678 0001:00184699 + 679 0001:0018469F 681 0001:001846AC 682 0001:001846B3 683 0001:001846C1 + 685 0001:001846DB 686 0001:001846DD 688 0001:00184712 690 0001:00184716 + 691 0001:0018473B 692 0001:0018473D 694 0001:00184745 695 0001:00184766 + 696 0001:00184783 697 0001:001847A1 698 0001:001847C0 700 0001:001847C6 + 702 0001:001847CE 703 0001:001847D8 705 0001:001847DA 683 0001:001847DB + 707 0001:00184813 711 0001:00184858 712 0001:0018485F 718 0001:00184860 + 719 0001:00184867 720 0001:00184876 721 0001:00184884 722 0001:00184892 + 723 0001:0018489C 725 0001:001848B8 727 0001:001848C8 733 0001:001848E4 + 734 0001:001848E7 735 0001:001848F5 736 0001:001848F9 737 0001:00184906 + 742 0001:00184908 743 0001:00184928 744 0001:0018492D 752 0001:00184930 + 753 0001:00184941 754 0001:00184946 755 0001:0018494B 757 0001:0018497C + 757 0001:00184983 + +Line numbers for fTemplateView(Templates\fTemplateView.pas) segment .text + + 51 0001:00184C64 52 0001:00184C85 53 0001:00184C8A 54 0001:00184CA0 + 55 0001:00184CA7 56 0001:00184CBA 57 0001:00184CD3 58 0001:00184CE8 + 59 0001:00184CFD 60 0001:00184D1F 61 0001:00184D3A 64 0001:00184D43 + 65 0001:00184D59 66 0001:00184D68 67 0001:00184D6F 68 0001:00184D7B + 70 0001:00184DD2 74 0001:00184DF0 75 0001:00184DF5 79 0001:00184DF8 + 80 0001:00184DFB 81 0001:00184E05 82 0001:00184E08 85 0001:00184E0C + 86 0001:00184E0F 87 0001:00184E21 89 0001:00184E2C 90 0001:00184E35 + 91 0001:00184E4B 92 0001:00184E5E 96 0001:00184E60 97 0001:00184E67 + 100 0001:00184E68 101 0001:00184E6B 102 0001:00184E89 103 0001:00184EAA + 107 0001:00184EAC 108 0001:00184EB7 112 0001:00184EB8 113 0001:00184EC3 + 116 0001:00184EC4 117 0001:00184EDA 118 0001:00184F1C 121 0001:00184F38 + 122 0001:00184F3B 123 0001:00184F4D 127 0001:00184F50 128 0001:00184F5A + 130 0001:00184F8C 130 0001:00184F93 + +Line numbers for MenuBar(MenuBar.pas) segment .text + + 46 0001:0018513C 47 0001:0018514E 48 0001:00185157 49 0001:00185160 + 50 0001:00185169 51 0001:00185176 53 0001:00185195 56 0001:001851A0 + 57 0001:001851A3 63 0001:001851A8 64 0001:001851B3 65 0001:001851C1 + 66 0001:001851C5 67 0001:001851D4 66 0001:001851E3 68 0001:001851E8 + 69 0001:001851F0 70 0001:001851F8 72 0001:0018521B 73 0001:0018522C + 74 0001:0018523A 75 0001:00185244 76 0001:0018524E 77 0001:00185258 + 79 0001:00185287 80 0001:0018528F 82 0001:00185299 70 0001:0018529A + 84 0001:001852A1 85 0001:001852B9 84 0001:001852DA 86 0001:001852DD + 88 0001:00185314 88 0001:0018531B + +Line numbers for fTemplateObjects(Templates\fTemplateObjects.pas) segment .text + + 38 0001:00185588 39 0001:0018558B 41 0001:00185592 42 0001:001855B3 + 43 0001:001855CD 44 0001:001855E7 45 0001:001855F2 46 0001:00185600 + 50 0001:00185604 51 0001:00185609 57 0001:0018560C 58 0001:00185628 + 60 0001:0018564E 61 0001:00185661 62 0001:001856BD 63 0001:001856DC + 65 0001:0018570C 69 0001:00185720 70 0001:00185725 74 0001:00185728 + 75 0001:0018572D 80 0001:00185730 81 0001:00185733 85 0001:00185734 + 86 0001:0018573A 87 0001:0018573F 91 0001:00185740 92 0001:0018575A + 95 0001:0018575C 96 0001:0018575F 97 0001:0018576A 98 0001:00185775 + 99 0001:00185783 100 0001:0018578F 101 0001:001857AA 103 0001:001857DC + 103 0001:001857E3 + +Line numbers for uSpell(uSpell.pas) segment .text + + 49 0001:001857E4 50 0001:001857E8 51 0001:001857FA 63 0001:00185800 + 64 0001:0018581C 65 0001:0018585F 68 0001:00185888 69 0001:0018588C + 70 0001:00185893 71 0001:001858A3 74 0001:001858A8 75 0001:001858AF + 76 0001:001858B7 77 0001:001858C3 86 0001:001858C8 87 0001:00185902 + 88 0001:0018590A 89 0001:00185915 91 0001:0018592F 93 0001:0018594C + 94 0001:00185969 95 0001:00185993 97 0001:001859F8 98 0001:00185A01 + 100 0001:00185A1A 101 0001:00185A26 102 0001:00185A37 105 0001:00185A39 + 89 0001:00185A3C 106 0001:00185A72 113 0001:00185A88 121 0001:00185AA1 + 123 0001:00185AAA 124 0001:00185ACC 126 0001:00185AD3 128 0001:00185AFB + 140 0001:00185B30 141 0001:00185B57 142 0001:00185B63 143 0001:00185B74 + 144 0001:00185B85 145 0001:00185B89 146 0001:00185B8D 147 0001:00185B95 + 148 0001:00185B9D 149 0001:00185BA7 150 0001:00185BB5 151 0001:00185BC3 + 152 0001:00185BCD 153 0001:00185BDB 154 0001:00185BEB 156 0001:00185C17 + 157 0001:00185C25 158 0001:00185C30 159 0001:00185C3F 160 0001:00185C4E + 162 0001:00185C56 163 0001:00185C87 166 0001:00185CA3 167 0001:00185CAD + 168 0001:00185CBB 170 0001:00185CF0 171 0001:00185D06 172 0001:00185D1F + 173 0001:00185D70 174 0001:00185DBC 175 0001:00185E08 176 0001:00185E54 + 178 0001:00185E68 179 0001:00185E97 181 0001:00185EC8 183 0001:00185F03 + 184 0001:00185F07 185 0001:00185F1C 187 0001:00185F2E 189 0001:00185F8F + 190 0001:00185F9F 191 0001:00185FEB 193 0001:00186037 195 0001:0018604A + 196 0001:00186094 199 0001:001860F6 200 0001:00186140 203 0001:0018619D + 204 0001:001861A3 206 0001:00186202 208 0001:00186217 209 0001:00186225 + 210 0001:00186273 211 0001:00186282 212 0001:001862E1 214 0001:0018633E + 215 0001:00186354 218 0001:00186376 219 0001:00186380 222 0001:001863AD + 224 0001:001863B0 225 0001:001863BE 229 0001:001863C7 230 0001:001863D5 + 231 0001:001863E1 233 0001:001863EB 235 0001:001863FB 236 0001:00186403 + 238 0001:00186419 239 0001:00186426 240 0001:00186442 241 0001:00186455 + 236 0001:00186458 242 0001:0018645D 244 0001:00186471 245 0001:0018647E + 247 0001:001864B8 248 0001:001864C3 249 0001:001864D2 250 0001:001864E1 + 252 0001:001864E9 256 0001:00186525 257 0001:00186530 258 0001:0018653F + 259 0001:0018654E 261 0001:00186556 266 0001:001865B7 267 0001:001865C2 + 268 0001:001865D1 269 0001:001865E0 271 0001:001865E8 272 0001:001865FB + 274 0001:0018665F 275 0001:00186678 276 0001:00186744 279 0001:00186B04 + 280 0001:00186B0B 281 0001:00186B11 282 0001:00186B1B 285 0001:00186B20 + 286 0001:00186B27 287 0001:00186B2D 288 0001:00186B37 291 0001:00186B78 + 291 0001:00186B7F + +Line numbers for fTemplateAutoGen(Templates\fTemplateAutoGen.pas) segment .text + + 50 0001:00186E00 51 0001:00186E2A 52 0001:00186E31 53 0001:00186E38 + 54 0001:00186E3E 55 0001:00186E55 56 0001:00186E63 59 0001:00186E6B + 60 0001:00186E76 62 0001:00186E86 64 0001:00186E9D 66 0001:00186ECB + 67 0001:00186EFC 71 0001:00186F32 73 0001:00186F35 75 0001:00186F4C + 76 0001:00186F67 82 0001:00186FC0 84 0001:0018701A 91 0001:00187030 + 92 0001:0018704D 93 0001:00187059 94 0001:00187063 95 0001:0018706B + 97 0001:0018706F 98 0001:0018707C 99 0001:00187089 101 0001:00187092 + 102 0001:0018709F 104 0001:001870A6 107 0001:001870B9 109 0001:001870C0 + 110 0001:001870CD 111 0001:001870DA 113 0001:001870E7 114 0001:001870EB + 115 0001:001870F8 117 0001:0018710A 118 0001:0018710E 119 0001:00187128 + 120 0001:00187160 118 0001:00187189 122 0001:0018718E 123 0001:00187194 + 124 0001:001871AF 126 0001:001871B6 128 0001:001871E6 132 0001:001871F0 + 133 0001:001871F9 134 0001:00187210 137 0001:00187218 138 0001:0018721B + 139 0001:0018722A 140 0001:00187234 143 0001:00187238 144 0001:0018723B + 145 0001:0018724A 146 0001:00187254 151 0001:00187258 152 0001:00187265 + 154 0001:00187298 154 0001:0018729F + +Line numbers for fTemplateFields(Templates\fTemplateFields.pas) segment .text + + 49 0001:0018755C 50 0001:0018755F 51 0001:0018756A 52 0001:00187578 + 55 0001:0018757C 56 0001:0018757F 57 0001:0018758C 58 0001:0018759C + 60 0001:001875A3 61 0001:001875C4 62 0001:001875DE 69 0001:001875E0 + 70 0001:001875E7 71 0001:001875F3 72 0001:001875FC 73 0001:00187609 + 79 0001:00187610 80 0001:0018762B 82 0001:00187659 83 0001:00187670 + 85 0001:00187680 86 0001:00187685 89 0001:001876DD 90 0001:001876F2 + 91 0001:00187712 93 0001:00187742 96 0001:00187764 97 0001:00187767 + 98 0001:00187776 99 0001:0018777D 103 0001:00187780 104 0001:00187785 + 109 0001:00187788 110 0001:0018778B 114 0001:0018778C 115 0001:00187792 + 116 0001:00187797 120 0001:00187798 121 0001:001877B2 125 0001:001877B4 + 126 0001:001877B9 133 0001:001877BC 134 0001:001877D8 136 0001:001877EE + 137 0001:001877F8 138 0001:00187806 139 0001:00187839 140 0001:00187853 + 142 0001:0018787D 145 0001:001878B1 148 0001:001878F8 149 0001:001878FB + 150 0001:00187916 152 0001:00187948 152 0001:0018794F + +Line numbers for fTemplateFieldEditor(Templates\fTemplateFieldEditor.pas) segment .text + + 200 0001:001884F8 201 0001:001884FE 202 0001:00188515 203 0001:00188523 + 204 0001:0018852E 206 0001:00188547 208 0001:0018855A 223 0001:00188560 + 224 0001:00188563 225 0001:00188569 226 0001:0018857A 227 0001:00188588 + 228 0001:00188596 230 0001:001885A4 232 0001:001885A6 233 0001:001885AA + 234 0001:001885B0 237 0001:001885B4 238 0001:001885BD 240 0001:001885C3 + 241 0001:001885D0 242 0001:001885D9 244 0001:001885E5 246 0001:001885EC + 247 0001:00188610 249 0001:00188620 250 0001:0018862A 251 0001:00188638 + 252 0001:0018863D 253 0001:00188642 254 0001:00188651 256 0001:00188658 + 257 0001:00188671 261 0001:00188684 262 0001:00188688 264 0001:0018868C + 265 0001:0018869D 266 0001:001886AE 267 0001:001886BF 268 0001:001886D0 + 269 0001:001886E1 270 0001:001886F2 272 0001:00188703 273 0001:00188714 + 274 0001:00188725 275 0001:00188736 277 0001:0018873E 278 0001:00188758 + 279 0001:00188774 280 0001:0018878E 281 0001:001887AB 285 0001:001887CD + 286 0001:001887DD 287 0001:001887EE 288 0001:001887FE 289 0001:00188811 + 292 0001:00188822 293 0001:00188842 294 0001:00188852 295 0001:00188856 + 297 0001:00188879 299 0001:0018888C 300 0001:0018889A 301 0001:001888A8 + 302 0001:001888C6 303 0001:001888D6 304 0001:001888DA 306 0001:001888F9 + 308 0001:0018890C 309 0001:0018892C 310 0001:0018893C 311 0001:00188940 + 313 0001:0018895F 315 0001:00188972 316 0001:00188983 318 0001:00188998 + 319 0001:001889AB 320 0001:001889BD 321 0001:001889CF 322 0001:001889E1 + 326 0001:001889F5 327 0001:00188A07 328 0001:00188A19 329 0001:00188A29 + 330 0001:00188A3B 333 0001:00188A4E 334 0001:00188A5F 335 0001:00188A70 + 336 0001:00188A81 337 0001:00188A92 339 0001:00188AA3 340 0001:00188AB4 + 341 0001:00188AC9 343 0001:00188ACE 345 0001:00188AD4 346 0001:00188AEB + 347 0001:00188B06 348 0001:00188B1D 349 0001:00188B38 350 0001:00188B3E + 354 0001:00188B4C 355 0001:00188B5C 356 0001:00188B6C 357 0001:00188B7C + 360 0001:00188B8C 362 0001:00188B92 363 0001:00188BA2 366 0001:00188BCF + 367 0001:00188BE0 368 0001:00188BF1 369 0001:00188C02 370 0001:00188C13 + 372 0001:00188C19 373 0001:00188C30 377 0001:00188C4D 378 0001:00188C5D + 381 0001:00188C6D 382 0001:00188C8E 383 0001:00188C9E 384 0001:00188CAE + 385 0001:00188CBE 387 0001:00188CC2 388 0001:00188CD9 392 0001:00188CF6 + 393 0001:00188D06 396 0001:00188D16 397 0001:00188D31 398 0001:00188D41 + 399 0001:00188D56 401 0001:00188D5A 402 0001:00188D7D 403 0001:00188D98 + 404 0001:00188DB3 407 0001:00188DCE 408 0001:00188DE9 409 0001:00188DF9 + 410 0001:00188E0E 412 0001:00188E12 413 0001:00188E2C 416 0001:00188E5B + 417 0001:00188E79 418 0001:00188E89 420 0001:00188E9E 421 0001:00188EB9 + 422 0001:00188EC9 423 0001:00188EDE 424 0001:00188EE2 426 0001:00188EFC + 427 0001:00188F20 428 0001:00188F30 429 0001:00188F40 430 0001:00188F50 + 432 0001:00188F54 433 0001:00188F63 435 0001:00188F72 438 0001:00188F81 + 439 0001:00188F89 440 0001:00188F9C 441 0001:00188FA0 443 0001:00188FC2 + 445 0001:00188FE0 448 0001:00188FF6 449 0001:00188FFF 450 0001:00189008 + 451 0001:00189011 452 0001:0018901B 454 0001:00189033 457 0001:00189067 + 464 0001:001890D0 465 0001:001890F8 467 0001:0018910E 468 0001:00189113 + 469 0001:00189118 470 0001:0018911C 471 0001:00189126 472 0001:00189134 + 473 0001:00189157 474 0001:0018915E 476 0001:00189194 477 0001:00189198 + 479 0001:001891B6 480 0001:001891E2 481 0001:001891E7 482 0001:001891EA + 483 0001:0018921F 484 0001:00189222 477 0001:00189223 485 0001:00189226 + 486 0001:0018922C 487 0001:00189232 489 0001:00189239 491 0001:00189257 + 493 0001:00189269 495 0001:00189271 496 0001:00189283 498 0001:001892BE + 500 0001:001892F2 508 0001:001892FC 509 0001:0018931F 510 0001:0018932E + 511 0001:0018933C 512 0001:00189350 514 0001:0018936D 515 0001:001893A5 + 516 0001:001893A9 517 0001:001893B3 512 0001:001893B6 518 0001:001893B9 + 519 0001:001893C3 521 0001:001893E1 523 0001:00189413 530 0001:0018941C + 531 0001:00189422 532 0001:00189434 533 0001:0018943B 534 0001:00189448 + 535 0001:00189458 536 0001:0018945F 538 0001:00189466 539 0001:0018948A + 540 0001:0018949E 541 0001:001894B8 542 0001:001894CF 543 0001:001894E6 + 544 0001:00189502 545 0001:00189517 546 0001:00189524 547 0001:0018952A + 548 0001:00189530 550 0001:0018953C 552 0001:00189546 544 0001:00189547 + 553 0001:0018954A 556 0001:00189550 557 0001:0018956B 558 0001:00189580 + 560 0001:001895AE 561 0001:001895B7 562 0001:001895E3 568 0001:001895E8 + 569 0001:00189608 571 0001:00189628 573 0001:0018964A 580 0001:00189685 + 581 0001:0018968B 584 0001:001896A0 585 0001:001896AA 586 0001:001896B8 + 588 0001:001896DF 593 0001:001896F1 594 0001:001896F5 596 0001:001896FB + 597 0001:0018971D 598 0001:00189737 599 0001:00189741 602 0001:0018976E + 605 0001:00189958 606 0001:0018995F 608 0001:0018997B 610 0001:0018998D + 611 0001:00189997 612 0001:001899A5 614 0001:001899C2 617 0001:001899D4 + 619 0001:001899F2 620 0001:001899FA 621 0001:00189A02 628 0001:00189A08 + 629 0001:00189A21 630 0001:00189A32 632 0001:00189A62 633 0001:00189A73 + 634 0001:00189A8C 635 0001:00189AA1 637 0001:00189AAD 638 0001:00189ABB + 640 0001:00189AEF 641 0001:00189B02 642 0001:00189B06 643 0001:00189B19 + 645 0001:00189B1B 647 0001:00189B1F 648 0001:00189B2D 649 0001:00189B3F + 652 0001:00189B6E 655 0001:00189B74 656 0001:00189B8E 658 0001:00189BB5 + 659 0001:00189BCF 661 0001:00189BFC 664 0001:00189C04 665 0001:00189C1A + 667 0001:00189C3B 668 0001:00189C57 670 0001:00189C7D 673 0001:00189C84 + 674 0001:00189C9A 676 0001:00189CAC 677 0001:00189CC8 679 0001:00189CF9 + 682 0001:00189D00 683 0001:00189D03 685 0001:00189D15 686 0001:00189D30 + 687 0001:00189D47 690 0001:00189D4E 693 0001:00189D50 694 0001:00189D68 + 695 0001:00189D7F 697 0001:00189D8C 698 0001:00189D93 700 0001:00189DA2 + 701 0001:00189DBA 703 0001:00189DD2 704 0001:00189DDC 705 0001:00189DE9 + 706 0001:00189E1D 707 0001:00189E31 708 0001:00189E3A 709 0001:00189E43 + 712 0001:00189E53 713 0001:00189E77 717 0001:00189EE4 718 0001:00189EE9 + 723 0001:00189EEC 724 0001:00189F03 725 0001:00189F0A 726 0001:00189F15 + 727 0001:00189F1F 729 0001:00189F2C 730 0001:00189F34 731 0001:00189F42 + 732 0001:00189F4F 733 0001:00189F79 740 0001:00189F80 741 0001:00189F86 + 743 0001:00189F8F 744 0001:00189FA2 745 0001:00189FA8 747 0001:00189FAD + 748 0001:00189FB3 750 0001:00189FBC 756 0001:00189FF0 757 0001:0018A00D + 758 0001:0018A025 757 0001:0018A054 759 0001:0018A057 760 0001:0018A065 + 761 0001:0018A08C 769 0001:0018A094 770 0001:0018A0B1 771 0001:0018A0CB + 770 0001:0018A0FA 772 0001:0018A0FD 773 0001:0018A108 774 0001:0018A10A + 775 0001:0018A112 777 0001:0018A118 779 0001:0018A148 780 0001:0018A14E + 782 0001:0018A155 784 0001:0018A157 785 0001:0018A160 786 0001:0018A193 + 789 0001:0018A1F4 790 0001:0018A20A 792 0001:0018A231 793 0001:0018A253 + 795 0001:0018A279 798 0001:0018A280 799 0001:0018A283 800 0001:0018A29A + 804 0001:0018A29C 805 0001:0018A2B2 806 0001:0018A2B7 812 0001:0018A2B8 + 813 0001:0018A2BC 815 0001:0018A2C6 817 0001:0018A2DE 819 0001:0018A2E8 + 822 0001:0018A2EC 823 0001:0018A2F7 824 0001:0018A2FB 826 0001:0018A309 + 829 0001:0018A378 830 0001:0018A37F 832 0001:0018A38C 833 0001:0018A395 + 834 0001:0018A3A3 836 0001:0018A3BA 839 0001:0018A3CD 843 0001:0018A3D0 + 844 0001:0018A3D6 845 0001:0018A3DB 855 0001:0018A3DC 856 0001:0018A3F8 + 858 0001:0018A406 859 0001:0018A40D 861 0001:0018A415 862 0001:0018A41C + 863 0001:0018A428 866 0001:0018A432 869 0001:0018A43F 871 0001:0018A443 + 878 0001:0018A47D 879 0001:0018A484 880 0001:0018A48A 882 0001:0018A49A + 884 0001:0018A4A2 886 0001:0018A4C4 888 0001:0018A4D3 889 0001:0018A4E0 + 890 0001:0018A4EE 891 0001:0018A501 893 0001:0018A526 894 0001:0018A53C + 899 0001:0018A551 900 0001:0018A57D 903 0001:0018A58B 904 0001:0018A596 + 905 0001:0018A59F 906 0001:0018A5A6 907 0001:0018A5B3 910 0001:0018A5DC + 916 0001:0018A87C 917 0001:0018A893 919 0001:0018A8B7 922 0001:0018A8D5 + 923 0001:0018A8F2 925 0001:0018A925 931 0001:0018A938 932 0001:0018A952 + 934 0001:0018A95F 935 0001:0018A96E 936 0001:0018A97C 937 0001:0018A9A7 + 939 0001:0018A9D7 942 0001:0018AA09 945 0001:0018AA50 946 0001:0018AA54 + 947 0001:0018AA69 948 0001:0018AA81 949 0001:0018AA99 950 0001:0018AAB1 + 951 0001:0018AAD2 952 0001:0018AAEA 956 0001:0018AAF0 957 0001:0018AAF5 + 960 0001:0018AAF8 961 0001:0018AAFB 963 0001:0018AB0D 964 0001:0018AB28 + 966 0001:0018AB43 970 0001:0018AB48 971 0001:0018AB5C 975 0001:0018AB60 + 976 0001:0018AB6B 977 0001:0018AB74 978 0001:0018AB7E 981 0001:0018AB85 + 984 0001:0018AB88 985 0001:0018AB8B 986 0001:0018AB91 987 0001:0018AB9E + 988 0001:0018ABAB 992 0001:0018ABB0 993 0001:0018ABBD 994 0001:0018ABC6 + 995 0001:0018ABC9 996 0001:0018ABEF 997 0001:0018ABF2 1005 0001:0018ABFC + 1006 0001:0018AC1A 1007 0001:0018AC23 1009 0001:0018AC2B 1010 0001:0018AC3A + 1011 0001:0018AC45 1012 0001:0018AC70 1013 0001:0018AC74 1015 0001:0018AC87 + 1016 0001:0018AC99 1017 0001:0018ACA7 1018 0001:0018ACCC 1019 0001:0018ACF5 + 1020 0001:0018AD1C 1021 0001:0018AD1E 1022 0001:0018AD24 1024 0001:0018AD42 + 1026 0001:0018AD52 1027 0001:0018AD54 1031 0001:0018AD63 1032 0001:0018AD65 + 1033 0001:0018AD69 1034 0001:0018AD6D 1035 0001:0018AD7A 1036 0001:0018AD87 + 1037 0001:0018AD94 1038 0001:0018ADA1 1039 0001:0018ADAE 1042 0001:0018ADBB + 1043 0001:0018ADC8 1045 0001:0018ADD5 1047 0001:0018ADE0 1048 0001:0018ADF2 + 1052 0001:0018AE06 1053 0001:0018AE13 1055 0001:0018AE3D 1058 0001:0018AE44 + 1059 0001:0018AE48 1060 0001:0018AE66 1062 0001:0018AE6B 1063 0001:0018AE6D + 1070 0001:0018AE70 1071 0001:0018AE75 1072 0001:0018AE79 1073 0001:0018AE87 + 1080 0001:0018AE88 1081 0001:0018AE8D 1082 0001:0018AE91 1083 0001:0018AE96 + 1090 0001:0018AE98 1091 0001:0018AE9D 1092 0001:0018AEA1 1093 0001:0018AEA6 + 1099 0001:0018AEA8 1100 0001:0018AEBC 1101 0001:0018AEC3 1102 0001:0018AEC7 + 1103 0001:0018AEFB 1110 0001:0018AF00 1111 0001:0018AF05 1112 0001:0018AF09 + 1113 0001:0018AF0E 1119 0001:0018AF10 1120 0001:0018AF11 1121 0001:0018AF18 + 1122 0001:0018AF2D 1123 0001:0018AF34 1129 0001:0018AF38 1130 0001:0018AF39 + 1131 0001:0018AF40 1132 0001:0018AF55 1133 0001:0018AF5C 1136 0001:0018AF60 + 1137 0001:0018AF63 1139 0001:0018AF75 1140 0001:0018AF90 1142 0001:0018AFA7 + 1145 0001:0018AFAC 1146 0001:0018AFB2 1147 0001:0018AFBB 1149 0001:0018AFC4 + 1151 0001:0018AFD4 1152 0001:0018AFE6 1153 0001:0018AFF0 1155 0001:0018AFFE + 1158 0001:0018B010 1160 0001:0018B022 1164 0001:0018B028 1165 0001:0018B031 + 1166 0001:0018B046 1167 0001:0018B053 1173 0001:0018B05C 1174 0001:0018B060 + 1175 0001:0018B071 1177 0001:0018B099 1178 0001:0018B0B2 1179 0001:0018B0C7 + 1181 0001:0018B0D3 1182 0001:0018B0E1 1183 0001:0018B0F3 1186 0001:0018B100 + 1192 0001:0018B104 1193 0001:0018B11B 1194 0001:0018B12C 1196 0001:0018B156 + 1197 0001:0018B17A 1198 0001:0018B197 1199 0001:0018B1A5 1200 0001:0018B1B7 + 1201 0001:0018B1C4 1202 0001:0018B1D6 1204 0001:0018B200 1210 0001:0018B208 + 1211 0001:0018B20C 1212 0001:0018B21D 1214 0001:0018B243 1215 0001:0018B25C + 1216 0001:0018B271 1217 0001:0018B27F 1218 0001:0018B291 1219 0001:0018B29E + 1220 0001:0018B2B0 1222 0001:0018B2BD 1228 0001:0018B2C0 1229 0001:0018B2C4 + 1230 0001:0018B2D5 1232 0001:0018B2FB 1233 0001:0018B314 1234 0001:0018B329 + 1235 0001:0018B337 1236 0001:0018B349 1237 0001:0018B356 1238 0001:0018B368 + 1240 0001:0018B375 1243 0001:0018B378 1244 0001:0018B37B 1245 0001:0018B38C + 1247 0001:0018B3AA 1248 0001:0018B3C3 1250 0001:0018B3D8 1253 0001:0018B3DC + 1254 0001:0018B3F2 1256 0001:0018B410 1257 0001:0018B42C 1259 0001:0018B45D + 1262 0001:0018B464 1263 0001:0018B467 1264 0001:0018B478 1266 0001:0018B48A + 1267 0001:0018B4A3 1269 0001:0018B4B8 1272 0001:0018B4BC 1273 0001:0018B4BF + 1274 0001:0018B4D0 1276 0001:0018B4E2 1277 0001:0018B4FB 1279 0001:0018B510 + 1282 0001:0018B514 1283 0001:0018B52A 1284 0001:0018B54B 1285 0001:0018B58A + 1288 0001:0018B590 1289 0001:0018B5A6 1291 0001:0018B5C4 1292 0001:0018B5D3 + 1294 0001:0018B5EE 1295 0001:0018B5FB 1298 0001:0018B641 1301 0001:0018B648 + 1302 0001:0018B64B 1304 0001:0018B65D 1305 0001:0018B678 1306 0001:0018B68F + 1308 0001:0018B696 1311 0001:0018B698 1312 0001:0018B69B 1313 0001:0018B6AB + 1314 0001:0018B6BB 1321 0001:0018B6C0 1322 0001:0018B6CA 1323 0001:0018B6D3 + 1328 0001:0018B702 1329 0001:0018B70E 1331 0001:0018B717 1337 0001:0018B720 + 1338 0001:0018B73C 1340 0001:0018B748 1341 0001:0018B759 1342 0001:0018B783 + 1344 0001:0018B7CF 1350 0001:0018B7F4 1351 0001:0018B7F8 1352 0001:0018B801 + 1354 0001:0018B809 1356 0001:0018B81C 1357 0001:0018B825 1359 0001:0018B83B + 1361 0001:0018B844 1362 0001:0018B857 1364 0001:0018B864 1365 0001:0018B866 + 1367 0001:0018B870 1368 0001:0018B87A 1370 0001:0018B87E 1372 0001:0018B888 + 1373 0001:0018B892 1375 0001:0018B894 1377 0001:0018B8A6 1380 0001:0018B8B0 + 1384 0001:0018B8B4 1385 0001:0018B8BD 1386 0001:0018B8CF 1390 0001:0018B8D0 + 1391 0001:0018B8DD 1393 0001:0018B8E3 1395 0001:0018B8E9 1396 0001:0018B90E + 1398 0001:0018B915 1400 0001:0018B91B 1401 0001:0018B940 1404 0001:0018B945 + 1405 0001:0018B94B 1406 0001:0018B970 1408 0001:0018B975 1410 0001:0018B9AC + 1410 0001:0018B9B3 + +Line numbers for XMLUtils(XMLUtils.pas) segment .text + + 27 0001:0018BA40 28 0001:0018BA64 29 0001:0018BA6E 31 0001:0018BA7C + 32 0001:0018BA89 34 0001:0018BA91 35 0001:0018BA9D 37 0001:0018BAA1 + 38 0001:0018BACC 40 0001:0018BADB 41 0001:0018BADF 42 0001:0018BAED + 29 0001:0018BAF3 43 0001:0018BB1A 51 0001:0018BB24 52 0001:0018BB5E + 53 0001:0018BB65 54 0001:0018BB7C 56 0001:0018BB82 57 0001:0018BB97 + 59 0001:0018BBA1 60 0001:0018BBB9 62 0001:0018BBF0 63 0001:0018BBFA + 65 0001:0018BBFC 57 0001:0018BBFD 67 0001:0018BC45 75 0001:0018BC4C + 76 0001:0018BC88 77 0001:0018BC8F 78 0001:0018BCA6 79 0001:0018BCB4 + 81 0001:0018BCBE 82 0001:0018BCD3 84 0001:0018BCDD 85 0001:0018BCF5 + 87 0001:0018BD26 88 0001:0018BD47 90 0001:0018BD49 82 0001:0018BD4A + 93 0001:0018BD5A 94 0001:0018BD62 96 0001:0018BDBC 104 0001:0018BDC4 + 105 0001:0018BDEF 106 0001:0018BDF6 107 0001:0018BE0D 108 0001:0018BE1B + 110 0001:0018BE25 111 0001:0018BE3A 113 0001:0018BE48 114 0001:0018BE60 + 116 0001:0018BE93 117 0001:0018BE98 118 0001:0018BEA4 120 0001:0018BEDC + 111 0001:0018BEDD 123 0001:0018BEF1 124 0001:0018BEF9 126 0001:0018BF4B + 128 0001:0018BFC8 128 0001:0018BFCF + +Line numbers for mImgText(mImgText.pas) segment .text + + 22 0001:0018C17C 22 0001:0018C183 + +Line numbers for fIconLegend(fIconLegend.pas) segment .text + + 118 0001:0018C8CC 119 0001:0018C8CF 120 0001:0018C8DD 121 0001:0018C8E7 + 123 0001:0018C8F0 124 0001:0018C909 126 0001:0018C92C 127 0001:0018C938 + 128 0001:0018C949 129 0001:0018C953 133 0001:0018C958 134 0001:0018C95D + 138 0001:0018C960 139 0001:0018C987 140 0001:0018C999 141 0001:0018C9AB + 142 0001:0018C9BD 143 0001:0018C9CF 145 0001:0018C9E0 150 0001:0018C9E4 + 152 0001:0018C9E7 156 0001:0018C9E8 157 0001:0018C9F1 158 0001:0018C9F9 + 159 0001:0018CA00 162 0001:0018CA04 163 0001:0018CA07 164 0001:0018CA14 + 165 0001:0018CA2E 166 0001:0018CA38 167 0001:0018CA47 168 0001:0018CA51 + 169 0001:0018CA58 170 0001:0018CA79 172 0001:0018CA9A 173 0001:0018CAAA + 175 0001:0018CABA 180 0001:0018CABC 181 0001:0018CAC2 182 0001:0018CAD3 + 183 0001:0018CAEB 184 0001:0018CAFA 188 0001:0018CB0C 189 0001:0018CB15 + 190 0001:0018CB2C 191 0001:0018CB35 181 0001:0018CB36 192 0001:0018CB39 + 196 0001:0018CB40 198 0001:0018CB4A 199 0001:0018CB50 200 0001:0018CB56 + 201 0001:0018CB76 202 0001:0018CB8D 206 0001:0018CB92 208 0001:0018CBCC + 208 0001:0018CBD3 + +Line numbers for fDeviceSelect(fDeviceSelect.pas) segment .text + + 55 0001:0018CEA8 56 0001:0018CECF 57 0001:0018CEE6 58 0001:0018CEF4 + 61 0001:0018CEFC 62 0001:0018CF05 64 0001:0018CF0E 66 0001:0018CF2D + 67 0001:0018CF3D 70 0001:0018CF4D 72 0001:0018CF5A 73 0001:0018CF6D + 74 0001:0018CF92 76 0001:0018CF9C 78 0001:0018CFA9 80 0001:0018CFB8 + 81 0001:0018CFDC 84 0001:0018CFEF 86 0001:0018D001 88 0001:0018D005 + 89 0001:0018D029 94 0001:0018D03C 96 0001:0018D04C 100 0001:0018D05F + 101 0001:0018D06C 103 0001:0018D07C 104 0001:0018D087 108 0001:0018D0A2 + 110 0001:0018D0DC 113 0001:0018D190 115 0001:0018D1AC 117 0001:0018D1BC + 118 0001:0018D1F4 120 0001:0018D24E 123 0001:0018D258 125 0001:0018D27A + 127 0001:0018D2A1 128 0001:0018D2B2 130 0001:0018D2B4 131 0001:0018D2DE + 132 0001:0018D324 133 0001:0018D368 136 0001:0018D3D8 138 0001:0018D3DB + 139 0001:0018D3E5 140 0001:0018D3EC 144 0001:0018D3F0 146 0001:0018D3F9 + 147 0001:0018D410 151 0001:0018D418 153 0001:0018D41D 159 0001:0018D420 + 160 0001:0018D425 162 0001:0018D464 162 0001:0018D46B + +Line numbers for rReminders(rReminders.pas) segment .text + + 58 0001:0018D46C 59 0001:0018D46F 60 0001:0018D4A5 63 0001:0018D4D4 + 64 0001:0018D4DA 65 0001:0018D510 66 0001:0018D524 72 0001:0018D554 + 75 0001:0018D571 76 0001:0018D57F 77 0001:0018D599 78 0001:0018D5B1 + 79 0001:0018D5D8 80 0001:0018D5F3 81 0001:0018D605 80 0001:0018D65A + 82 0001:0018D65D 84 0001:0018D684 90 0001:0018D6AC 91 0001:0018D6CE + 92 0001:0018D6DD 93 0001:0018D6EB 94 0001:0018D6F6 95 0001:0018D6FE + 96 0001:0018D714 98 0001:0018D72C 100 0001:0018D743 102 0001:0018D770 + 105 0001:0018D778 106 0001:0018D77B 107 0001:0018D791 110 0001:0018D7B8 + 111 0001:0018D7BB 112 0001:0018D7D1 115 0001:0018D7FC 116 0001:0018D81B + 117 0001:0018D828 119 0001:0018D843 120 0001:0018D86E 123 0001:0018D894 + 124 0001:0018D89A 125 0001:0018D8A3 127 0001:0018D8D1 128 0001:0018D8FD + 129 0001:0018D90A 132 0001:0018D954 133 0001:0018D957 134 0001:0018D96D + 135 0001:0018D97A 138 0001:0018D9A4 139 0001:0018D9A7 140 0001:0018D9BD + 141 0001:0018D9CA 144 0001:0018D9F4 145 0001:0018DA16 146 0001:0018DA1A + 148 0001:0018DA49 149 0001:0018DA76 150 0001:0018DAA2 153 0001:0018DAF0 + 154 0001:0018DB1D 155 0001:0018DB4A 156 0001:0018DB7B 162 0001:0018DBA0 + 163 0001:0018DBBF 166 0001:0018DBCF 167 0001:0018DBDD 168 0001:0018DBF9 + 169 0001:0018DC11 170 0001:0018DC23 169 0001:0018DC54 171 0001:0018DC57 + 172 0001:0018DC5C 174 0001:0018DC8E 177 0001:0018DCB0 178 0001:0018DCC4 + 179 0001:0018DCD3 180 0001:0018DD33 183 0001:0018DD68 184 0001:0018DD6E + 185 0001:0018DD92 188 0001:0018DDC0 189 0001:0018DDE0 190 0001:0018DDF9 + 191 0001:0018DE25 199 0001:0018DE4C 202 0001:0018DE76 203 0001:0018DE84 + 204 0001:0018DEA4 205 0001:0018DEBC 206 0001:0018DEE7 207 0001:0018DF02 + 208 0001:0018DF31 209 0001:0018DF57 210 0001:0018DF80 211 0001:0018DFB7 + 212 0001:0018DFB9 213 0001:0018DFC1 215 0001:0018DFCC 216 0001:0018DFE2 + 217 0001:0018DFF4 218 0001:0018DFF5 219 0001:0018E040 220 0001:0018E046 + 221 0001:0018E04B 222 0001:0018E052 224 0001:0018E077 225 0001:0018E08F + 227 0001:0018E0B1 229 0001:0018E0B6 230 0001:0018E0DE 231 0001:0018E0EA + 233 0001:0018E0F6 235 0001:0018E11E 222 0001:0018E121 237 0001:0018E14A + 245 0001:0018E1FC 248 0001:0018E222 249 0001:0018E22B 250 0001:0018E243 + 251 0001:0018E256 252 0001:0018E27D 253 0001:0018E29B 254 0001:0018E2CE + 255 0001:0018E2FD 256 0001:0018E2FF 257 0001:0018E307 259 0001:0018E311 + 260 0001:0018E327 261 0001:0018E339 262 0001:0018E33A 263 0001:0018E37D + 264 0001:0018E383 266 0001:0018E3AA 269 0001:0018E428 270 0001:0018E42B + 272 0001:0018E430 276 0001:0018E448 284 0001:0018E470 285 0001:0018E4AD + 286 0001:0018E4F8 288 0001:0018E51D 290 0001:0018E542 292 0001:0018E565 + 293 0001:0018E56D 294 0001:0018E57F 295 0001:0018E58C 297 0001:0018E598 + 298 0001:0018E5AD 299 0001:0018E5DA 295 0001:0018E5DB 301 0001:0018E5E0 + 302 0001:0018E5F2 303 0001:0018E604 304 0001:0018E61A 305 0001:0018E62D + 306 0001:0018E640 308 0001:0018E66D 310 0001:0018E68B 311 0001:0018E6C9 + 314 0001:0018E73C 315 0001:0018E789 316 0001:0018E817 319 0001:0018E83C + 320 0001:0018E852 321 0001:0018E88D 324 0001:0018E8B0 325 0001:0018E8B6 + 326 0001:0018E8CC 330 0001:0018E8EC 332 0001:0018E909 333 0001:0018E912 + 334 0001:0018E923 335 0001:0018E938 337 0001:0018E951 338 0001:0018E956 + 341 0001:0018E97C 342 0001:0018E990 344 0001:0018E999 345 0001:0018E9BF + 348 0001:0018E9CA 349 0001:0018E9EF 352 0001:0018EA24 353 0001:0018EA38 + 355 0001:0018EA41 356 0001:0018EA67 359 0001:0018EA72 360 0001:0018EA97 + 364 0001:0018EAD0 366 0001:0018EAD9 367 0001:0018EAE3 370 0001:0018EAEE + 371 0001:0018EAF3 374 0001:0018EB14 375 0001:0018EB3F 376 0001:0018EB65 + 377 0001:0018EB96 383 0001:0018EBB4 386 0001:0018EBEC 387 0001:0018EBFA + 388 0001:0018EC12 389 0001:0018EC2A 390 0001:0018EC49 391 0001:0018EC64 + 392 0001:0018EC86 393 0001:0018ECA1 394 0001:0018ECB3 393 0001:0018ECF5 + 395 0001:0018ECF8 397 0001:0018ED2C 400 0001:0018ED44 401 0001:0018ED47 + 402 0001:0018ED5D 403 0001:0018ED6A 407 0001:0018ED90 408 0001:0018ED9F + 409 0001:0018EDAC 413 0001:0018EDD8 414 0001:0018EE14 415 0001:0018EE4B + 417 0001:0018EE71 418 0001:0018EE7D 420 0001:0018EE82 422 0001:0018EEA8 + 423 0001:0018EEB4 425 0001:0018EEB6 427 0001:0018EEDC 428 0001:0018EF05 + 430 0001:0018EF34 435 0001:0018EF9C 437 0001:0018EFD4 432 0001:0018EFD8 + 434 0001:0018EFDF + +Line numbers for fOCAccept(Orders\fOCAccept.pas) segment .text + + 31 0001:0018F1AC 32 0001:0018F1CE 33 0001:0018F1D2 35 0001:0018F1E2 + 36 0001:0018F1F9 37 0001:0018F207 38 0001:0018F20F 40 0001:0018F221 + 41 0001:0018F258 42 0001:0018F26E 38 0001:0018F26F 43 0001:0018F272 + 44 0001:0018F285 45 0001:0018F298 47 0001:0018F2B7 50 0001:0018F2EC + 52 0001:0018F324 52 0001:0018F32B + +Line numbers for uODBase(Orders\uODBase.pas) segment .text + + 42 0001:0018F32C 43 0001:0018F330 44 0001:0018F332 46 0001:0018F342 + 47 0001:0018F344 49 0001:0018F352 53 0001:0018F358 54 0001:0018F362 + 60 0001:0018F364 61 0001:0018F369 65 0001:0018F36C 66 0001:0018F371 + 70 0001:0018F374 71 0001:0018F379 75 0001:0018F37C 76 0001:0018F381 + 80 0001:0018F384 81 0001:0018F389 89 0001:0018F38C 90 0001:0018F38F + 91 0001:0018F39C 95 0001:0018F3A0 96 0001:0018F3A5 99 0001:0018F3A8 + 100 0001:0018F3AB 101 0001:0018F3B2 102 0001:0018F3D9 105 0001:0018F3DC + 108 0001:0018F3E7 109 0001:0018F3F8 106 0001:0018F3F9 111 0001:0018F408 + 117 0001:0018F40C 118 0001:0018F427 119 0001:0018F459 120 0001:0018F45E + 119 0001:0018F493 121 0001:0018F498 122 0001:0018F4C7 136 0001:0018F4D0 + 137 0001:0018F4FB 138 0001:0018F50A 139 0001:0018F518 140 0001:0018F51D + 142 0001:0018F545 143 0001:0018F553 144 0001:0018F560 146 0001:0018F589 + 149 0001:0018F599 151 0001:0018F5A9 152 0001:0018F5AF 153 0001:0018F5B7 + 156 0001:0018F5BE 158 0001:0018F5DF 159 0001:0018F602 160 0001:0018F60C + 162 0001:0018F611 161 0001:0018F612 163 0001:0018F63C 165 0001:0018F645 + 166 0001:0018F64D 167 0001:0018F65A 166 0001:0018F683 170 0001:0018F688 + 171 0001:0018F696 172 0001:0018F698 173 0001:0018F6B2 175 0001:0018F6BC + 176 0001:0018F6CB 178 0001:0018F6CF 179 0001:0018F6DB 181 0001:0018F6E8 + 184 0001:0018F6EE 154 0001:0018F6EF 188 0001:0018F70C 190 0001:0018F73E + 200 0001:0018F820 201 0001:0018F843 203 0001:0018F86C 192 0001:0018F870 + 193 0001:0018F88A 194 0001:0018F891 195 0001:0018F898 196 0001:0018F8A2 + 197 0001:0018F8B3 199 0001:0018F8D9 + +Line numbers for fODMessage(Orders\fODMessage.pas) segment .text + + 61 0001:0018F90C 61 0001:0018F913 + +Line numbers for CPRSChart_TLB(CPRSChart_TLB.pas) segment .text + + 433 0001:0018F9B4 433 0001:0018F9BB + +Line numbers for rEventHooks(rEventHooks.pas) segment .text + + 16 0001:0018F9BC 17 0001:0018F9D2 18 0001:0018FA0D 21 0001:0018FA2C + 22 0001:0018FA35 23 0001:0018FA4F 27 0001:0018FA6C 28 0001:0018FA7B + 29 0001:0018FA88 32 0001:0018FAA4 33 0001:0018FAAD 34 0001:0018FAC7 + 36 0001:0018FB14 36 0001:0018FB1B + +Line numbers for uEventHooks(uEventHooks.pas) segment .text + + 73 0001:0018FB60 89 0001:0018FD94 114 0001:0018FF80 115 0001:0018FF89 + 116 0001:0018FF9A 124 0001:0018FF9C 125 0001:0018FFC1 126 0001:0018FFD2 + 127 0001:0018FFE3 128 0001:00190002 129 0001:00190013 130 0001:0019004C + 141 0001:00190064 142 0001:00190093 143 0001:00190098 144 0001:001900A2 + 145 0001:001900B0 146 0001:001900B7 147 0001:001900BB 148 0001:001900C5 + 149 0001:001900C9 150 0001:001900CE 151 0001:001900D2 154 0001:00190109 + 156 0001:00190119 157 0001:0019012F 158 0001:0019013F 159 0001:0019014F + 160 0001:00190164 161 0001:00190175 162 0001:00190183 163 0001:001901AF + 164 0001:001901C8 165 0001:001901D7 166 0001:001901E6 167 0001:001901FB + 168 0001:00190200 169 0001:00190215 171 0001:00190248 172 0001:00190261 + 173 0001:00190270 174 0001:0019027F 175 0001:00190294 176 0001:001902A9 + 181 0001:001902B9 182 0001:001902CB 186 0001:001902E0 188 0001:00190329 + 191 0001:00190354 192 0001:0019036B 193 0001:00190396 196 0001:001903A0 + 197 0001:001903B8 198 0001:001903D9 201 0001:001903E0 202 0001:001903F8 + 203 0001:00190419 206 0001:00190420 207 0001:00190443 208 0001:0019046D + 212 0001:00190474 213 0001:0019049B 214 0001:001904ED 217 0001:001904F8 + 218 0001:00190513 219 0001:0019052D 220 0001:00190533 221 0001:0019053B + 222 0001:00190543 224 0001:0019055D 227 0001:00190564 228 0001:00190587 + 229 0001:001905A6 232 0001:001905B0 233 0001:001905D3 234 0001:001905F2 + 237 0001:001905FC 238 0001:00190614 239 0001:00190638 242 0001:00190640 + 243 0001:00190658 244 0001:00190687 247 0001:00190690 248 0001:001906A7 + 249 0001:001906CD 252 0001:001906D4 253 0001:001906F6 254 0001:00190720 + 257 0001:00190728 258 0001:00190740 259 0001:0019075F 262 0001:00190768 + 263 0001:00190780 264 0001:0019079F 267 0001:001907A8 268 0001:001907C0 + 269 0001:001907EA 273 0001:001907F4 274 0001:00190810 275 0001:00190864 + 279 0001:00190870 280 0001:0019088B 281 0001:0019089A 282 0001:001908AA + 283 0001:001908BA 284 0001:001908CA 286 0001:001908EC 289 0001:001908F4 + 290 0001:0019090C 291 0001:0019092B 294 0001:00190934 295 0001:0019094C + 296 0001:0019096B 299 0001:00190974 300 0001:0019098C 301 0001:00190997 + 302 0001:001909BD 305 0001:001909C4 306 0001:001909C7 307 0001:001909CF + 308 0001:001909E5 309 0001:001909F5 310 0001:00190A05 311 0001:00190A0D + 312 0001:00190A18 315 0001:00190A1C 316 0001:00190A27 317 0001:00190A2F + 318 0001:00190A37 319 0001:00190A4E 327 0001:00190A54 328 0001:00190A7D + 329 0001:00190A9C 330 0001:00190AAD 331 0001:00190B29 334 0001:00190B4C + 335 0001:00190B6F 336 0001:00190B8E 339 0001:00190B98 340 0001:00190BAF + 341 0001:00190BD2 344 0001:00190BDC 345 0001:00190C00 346 0001:00190C36 + 349 0001:00190C40 350 0001:00190C62 351 0001:00190C89 354 0001:00190C90 + 355 0001:00190CB4 356 0001:00190CF5 359 0001:00190D14 360 0001:00190D36 + 361 0001:00190D5D 364 0001:00190D64 365 0001:00190D86 366 0001:00190DAD + 369 0001:00190DB4 370 0001:00190DD8 371 0001:00190E14 374 0001:00190E1C + 375 0001:00190E3E 376 0001:00190E65 381 0001:00190E6C 382 0001:00190E7E + 383 0001:00190E87 384 0001:00190EA4 385 0001:00190ED8 388 0001:00190EDC + 389 0001:00190EE7 390 0001:00190EEF 391 0001:00190EF7 392 0001:00190EFE + 393 0001:00190F03 394 0001:00190F1A 398 0001:00190F20 399 0001:00190F29 + 403 0001:00190F2C 404 0001:00190F35 415 0001:00190F38 416 0001:00190F63 + 417 0001:00190F67 418 0001:00190F79 419 0001:00190F95 420 0001:00190FA7 + 421 0001:00190FB9 423 0001:00190FC3 424 0001:00190FD1 425 0001:00190FDC + 426 0001:00190FEA 427 0001:00190FF5 429 0001:00190FFF 430 0001:0019100D + 431 0001:00191024 433 0001:0019102E 434 0001:00191040 435 0001:0019104C + 436 0001:0019105A 437 0001:00191065 438 0001:0019106C 441 0001:001910D8 + 442 0001:001910E4 446 0001:001910F3 448 0001:0019111C 452 0001:00191140 + 455 0001:0019116E 457 0001:00191195 459 0001:0019119B 460 0001:001911A4 + 461 0001:001911B6 462 0001:001911C8 463 0001:001911D6 466 0001:00191220 + 470 0001:001912DC 471 0001:001912E6 491 0001:001912E8 492 0001:0019131F + 493 0001:00191323 494 0001:00191338 497 0001:0019133C 498 0001:0019133E + 499 0001:00191353 502 0001:00191357 503 0001:00191365 504 0001:0019138C + 506 0001:00191396 507 0001:001913C3 509 0001:001913CD 511 0001:001913D5 + 512 0001:001913E1 514 0001:001913E9 515 0001:001913F8 517 0001:00191400 + 518 0001:00191412 519 0001:00191420 520 0001:00191423 522 0001:00191445 + 529 0001:0019145A 530 0001:00191476 536 0001:001914B6 537 0001:001914BB + 538 0001:00191514 545 0001:00191588 546 0001:0019159F 547 0001:001915A7 + 549 0001:001915BC 550 0001:001915C1 551 0001:001915C9 552 0001:001915D1 + 554 0001:00191631 561 0001:00191650 562 0001:00191677 563 0001:00191679 + 564 0001:00191683 566 0001:00191698 567 0001:0019169D 568 0001:001916A5 + 570 0001:001916AD 572 0001:00191712 580 0001:00191730 581 0001:00191750 + 583 0001:00191754 584 0001:0019175E 586 0001:00191773 587 0001:00191778 + 588 0001:00191785 589 0001:00191792 591 0001:001917AE 592 0001:001917B9 + 596 0001:001917EE 599 0001:00191804 600 0001:0019181A 601 0001:0019182E + 603 0001:00191851 604 0001:00191872 608 0001:00191878 609 0001:0019187D + 614 0001:00191880 616 0001:001918B3 611 0001:001918B8 613 0001:001918BF + +Line numbers for rODDiet(Orders\rODDiet.pas) segment .text + + 64 0001:00191914 65 0001:0019191A 66 0001:00191930 67 0001:00191946 + 70 0001:00191960 71 0001:00191993 74 0001:001919C0 76 0001:001919D5 + 77 0001:00191A07 78 0001:00191A39 80 0001:00191A6B 82 0001:00191A7B + 83 0001:00191AB0 85 0001:00191AEB 87 0001:00191B01 88 0001:00191B2A + 89 0001:00191B54 90 0001:00191B7E 91 0001:00191BB3 92 0001:00191BE8 + 93 0001:00191C1B 94 0001:00191C4E 96 0001:00191C81 97 0001:00191C95 + 98 0001:00191CA7 100 0001:00191CCE 101 0001:00191CD5 102 0001:00191CE7 + 104 0001:00191D33 107 0001:00191D84 108 0001:00191D8A 109 0001:00191DAA + 110 0001:00191DBE 117 0001:00191DD8 118 0001:00191DDE 119 0001:00191DF6 + 120 0001:00191E0A 123 0001:00191E28 124 0001:00191E37 125 0001:00191E3F + 126 0001:00191E52 127 0001:00191E7D 133 0001:00191EA0 134 0001:00191EA9 + 135 0001:00191ECB 136 0001:00191ED8 139 0001:00191EF8 140 0001:00191EFB + 141 0001:00191F13 142 0001:00191F20 145 0001:00191F3C 146 0001:00191F4B + 147 0001:00191FA8 148 0001:00191FAF 151 0001:00191FD0 152 0001:00191FD6 + 153 0001:00191FF2 156 0001:00192010 157 0001:00192016 158 0001:0019203A + 161 0001:00192058 162 0001:0019205E 163 0001:00192076 164 0001:0019208A + 167 0001:001920A8 168 0001:001920B1 169 0001:001920D4 170 0001:001920E8 + 173 0001:00192108 174 0001:00192124 175 0001:0019214D 176 0001:00192188 + 179 0001:001921A8 181 0001:001921BC 185 0001:001921C5 186 0001:001921E7 + 188 0001:001921EE 189 0001:00192213 194 0001:00192230 196 0001:00192239 + 197 0001:00192248 199 0001:0019224F 200 0001:00192254 203 0001:00192268 + 204 0001:0019228A 205 0001:001922B7 206 0001:001922CB 207 0001:001922EF + 210 0001:00192314 211 0001:00192339 212 0001:0019238A 214 0001:001923E8 + 214 0001:001923EF + +Line numbers for fODDietLT(Orders\fODDietLT.pas) segment .text + + 62 0001:00192674 63 0001:00192697 64 0001:001926A3 65 0001:001926B7 + 66 0001:0019270A 67 0001:00192728 68 0001:00192746 69 0001:0019277B + 91 0001:001927AC 92 0001:001927CA 93 0001:001927CE 94 0001:001927D6 + 95 0001:001927DB 97 0001:001927FC 98 0001:00192815 99 0001:0019282F + 100 0001:00192831 94 0001:00192832 101 0001:00192837 102 0001:00192863 + 104 0001:00192878 106 0001:001928B2 107 0001:001928B5 108 0001:001928BD + 110 0001:001928C1 111 0001:001928CC 112 0001:001928DE 113 0001:001928FD + 114 0001:00192909 115 0001:00192925 116 0001:0019293D 117 0001:0019293F + 118 0001:00192951 120 0001:0019295C 122 0001:00192966 123 0001:001929CC + 124 0001:001929CE 125 0001:00192A34 126 0001:00192A36 127 0001:00192AA8 + 128 0001:00192AAA 137 0001:00192AB7 138 0001:00192ABA 139 0001:00192AD6 + 140 0001:00192B4C 141 0001:00192B53 142 0001:00192BC5 143 0001:00192BC9 + 144 0001:00192C3B 146 0001:00192C3D 150 0001:00192C45 151 0001:00192C55 + 152 0001:00192C6C 153 0001:00192C83 155 0001:00192C98 156 0001:00192CAE + 159 0001:00192CB8 160 0001:00192CCF 161 0001:00192CDD 164 0001:00192CE5 + 165 0001:00192CF1 166 0001:00192D40 167 0001:00192D8F 168 0001:00192DDE + 169 0001:00192E0B 170 0001:00192E38 171 0001:00192E65 172 0001:00192E7D + 173 0001:00192E8E 174 0001:00192EAA 175 0001:00192EB6 176 0001:00192EC2 + 179 0001:00192ECC 180 0001:00192ED7 182 0001:00192EE7 183 0001:00192F19 + 184 0001:00192F4B 185 0001:00192F7D 186 0001:00192F7F 190 0001:00192FA0 + 192 0001:00193010 198 0001:001930B0 199 0001:001930B7 202 0001:001930B8 + 204 0001:001930BB 205 0001:001930C4 207 0001:001930FA 208 0001:0019310B + 210 0001:0019310D 211 0001:00193114 212 0001:0019311B 217 0001:00193168 + 218 0001:0019316D 220 0001:001931A0 220 0001:001931A7 + +Line numbers for uComServ(uComServ.pas) segment .text + + 89 0001:00193248 90 0001:00193251 92 0001:00193271 95 0001:0019327C + 96 0001:00193294 97 0001:001932D5 100 0001:001932DC 101 0001:001932F5 + 102 0001:00193337 108 0001:0019333C 109 0001:00193361 110 0001:0019336B + 111 0001:00193380 112 0001:001933D2 122 0001:001933D8 123 0001:001933F6 + 124 0001:00193402 126 0001:00193406 127 0001:00193416 129 0001:0019341A + 130 0001:00193439 131 0001:0019343C 132 0001:00193452 135 0001:00193494 + 140 0001:001934C0 141 0001:001934E7 142 0001:00193501 143 0001:00193530 + 194 0001:00193538 195 0001:00193550 196 0001:00193552 198 0001:00193571 + 202 0001:001935ED 210 0001:001935F4 211 0001:00193600 213 0001:00193624 + 214 0001:00193636 215 0001:0019363E 216 0001:00193646 217 0001:00193662 + 218 0001:00193668 219 0001:00193676 220 0001:0019367C 221 0001:0019368A + 222 0001:0019368E 223 0001:001936A9 226 0001:001936FC 227 0001:00193707 + 228 0001:00193724 231 0001:00193728 232 0001:0019372C 234 0001:00193730 + 235 0001:0019373B 237 0001:00193751 241 0001:0019375C 242 0001:00193767 + 245 0001:0019377D 246 0001:0019378A 248 0001:00193793 249 0001:00193797 + 251 0001:001937A0 255 0001:001937A4 256 0001:001937A8 258 0001:001937B2 + 259 0001:001937BB 263 0001:001937BC 264 0001:001937C3 268 0001:001937C4 + 269 0001:001937CB 272 0001:001937CC 273 0001:001937CF 274 0001:001937D5 + 275 0001:001937DF 278 0001:001937E4 279 0001:001937EA 280 0001:001937F4 + 283 0001:001937F8 284 0001:001937FB 285 0001:00193802 288 0001:00193804 + 289 0001:00193807 290 0001:0019380D 291 0001:0019381B 292 0001:00193827 + 295 0001:0019385C 296 0001:00193862 297 0001:00193868 299 0001:00193875 + 300 0001:0019387B 302 0001:00193887 303 0001:0019388E 312 0001:00193894 + 313 0001:0019389A 314 0001:001938A1 315 0001:001938AB 321 0001:001938B0 + 322 0001:001938B5 324 0001:001938BB 325 0001:001938C3 326 0001:001938D1 + 328 0001:001938F0 331 0001:00193911 336 0001:00193918 337 0001:00193930 + 341 0001:00193936 342 0001:00193949 344 0001:0019397E 347 0001:00193984 + 348 0001:0019399D 349 0001:001939A3 350 0001:001939A7 351 0001:001939BC + 352 0001:001939C4 353 0001:001939C7 354 0001:001939F6 362 0001:001939FC + 363 0001:00193A0B 365 0001:00193A38 366 0001:00193A42 367 0001:00193A4D + 368 0001:00193A56 372 0001:00193A58 373 0001:00193A5B 376 0001:00193A5C + 377 0001:00193A62 378 0001:00193A6C 395 0001:00193A70 396 0001:00193A7A + 397 0001:00193A88 402 0001:00193ABD 404 0001:00193ACD 406 0001:00193AE0 + 407 0001:00193AF1 408 0001:00193B07 422 0001:00193B10 423 0001:00193B29 + 424 0001:00193B33 425 0001:00193B3A 428 0001:00193B5A 409 0001:00193B5C + 411 0001:00193B65 412 0001:00193B79 413 0001:00193B8A 415 0001:00193B93 + 416 0001:00193B9F 417 0001:00193BAA 421 0001:00193BB4 + +Line numbers for uAccessibleStringGrid(uAccessibleStringGrid.pas) segment .text + + 55 0001:00193BD0 70 0001:00193EB4 71 0001:00193EEF 72 0001:00193F02 + 74 0001:00193F09 75 0001:00193F0F 76 0001:00193F15 77 0001:00193F2E + 78 0001:00193F44 79 0001:00193F50 81 0001:00193F65 84 0001:00193F81 + 85 0001:00193FB1 89 0001:00193FBC 90 0001:00194000 91 0001:00194013 + 93 0001:0019401D 95 0001:00194034 97 0001:00194047 99 0001:0019405B + 106 0001:0019407C 109 0001:0019408C 112 0001:001940C3 114 0001:001940D3 + 117 0001:00194112 120 0001:00194144 122 0001:00194176 126 0001:001941BF + 128 0001:001941CD 129 0001:0019421E 132 0001:00194263 136 0001:0019426C + 137 0001:00194296 138 0001:0019429E 139 0001:001942C4 142 0001:001942CC + 143 0001:001942E7 144 0001:001942EE 146 0001:0019430D 147 0001:00194325 + 151 0001:0019432C 152 0001:0019435B 153 0001:00194363 154 0001:00194373 + 155 0001:001943CF 159 0001:001943D8 160 0001:00194407 161 0001:0019440F + 162 0001:0019441F 163 0001:0019447B 166 0001:00194484 167 0001:001944B9 + 168 0001:001944CF 170 0001:001944F3 171 0001:00194522 175 0001:0019452C + 176 0001:0019455B 177 0001:00194563 178 0001:00194573 179 0001:001945CF + 183 0001:001945D8 184 0001:0019460C 185 0001:00194610 186 0001:00194620 + 187 0001:00194682 191 0001:0019468C 192 0001:001946BB 193 0001:001946C3 + 194 0001:001946D3 195 0001:0019472F 203 0001:00194738 204 0001:00194770 + 206 0001:00194787 209 0001:0019479D 211 0001:001947A8 212 0001:001947C0 + 213 0001:001947E2 215 0001:001947F5 216 0001:0019480D 217 0001:0019482F + 219 0001:00194842 221 0001:00194889 224 0001:001948B3 227 0001:001948C2 + 229 0001:001948F8 232 0001:0019495C 233 0001:00194983 234 0001:0019498B + 235 0001:0019499B 236 0001:001949E3 240 0001:001949EC 241 0001:00194A23 + 243 0001:00194A37 245 0001:00194A48 247 0001:00194A59 249 0001:00194A84 + 252 0001:00194A8C 254 0001:00194AC1 255 0001:00194AC8 257 0001:00194AE9 + 258 0001:00194B18 262 0001:00194B24 263 0001:00194B67 265 0001:00194B71 + 266 0001:00194B80 268 0001:00194B97 269 0001:00194BAB 272 0001:00194BE0 + 274 0001:00194C0F 275 0001:00194C3F 276 0001:00194C4F 280 0001:00194C7F + 282 0001:00194CB0 285 0001:00194CE8 286 0001:00194D29 292 0001:00194D40 + 293 0001:00194D73 295 0001:00194D8A 298 0001:00194D97 300 0001:00194D9E + 301 0001:00194DB6 302 0001:00194DD3 303 0001:00194DDF 306 0001:00194E06 + 309 0001:00194E15 311 0001:00194E46 314 0001:00194E80 315 0001:00194EA4 + 316 0001:00194EB4 317 0001:00194F07 324 0001:00194F10 325 0001:00194F33 + 327 0001:00194F3D 330 0001:00194F54 331 0001:00194F59 332 0001:00194F5E + 333 0001:00194F6C 334 0001:00194F74 336 0001:00194F7C 337 0001:00194F87 + 341 0001:00194F91 342 0001:00194FAB 343 0001:00194FB9 344 0001:00194FC1 + 346 0001:00194FC9 347 0001:00194FD4 351 0001:00194FE1 352 0001:00194FE8 + 353 0001:00194FEF 354 0001:00194FF6 358 0001:00195019 362 0001:00195024 + 363 0001:00195048 364 0001:00195058 365 0001:001950AF 369 0001:001950B8 + 370 0001:001950DC 371 0001:001950EC 372 0001:00195143 378 0001:0019514C + 379 0001:00195174 382 0001:00195182 384 0001:00195189 385 0001:001951A1 + 389 0001:001951E2 392 0001:001951EC 393 0001:00195222 394 0001:00195230 + 395 0001:00195234 396 0001:0019524D 398 0001:00195251 399 0001:0019527D + 402 0001:00195284 403 0001:0019529E 404 0001:001952AB 405 0001:001952C0 + 407 0001:001952C4 408 0001:001952EB 412 0001:001952F4 413 0001:001952FD + 414 0001:0019530E 416 0001:00195313 417 0001:0019531E 422 0001:00195324 + 423 0001:0019532D 424 0001:00195336 432 0001:00195338 433 0001:0019534F + 435 0001:00195358 436 0001:00195366 437 0001:00195377 438 0001:0019537A + 440 0001:001953A1 442 0001:001953D8 443 0001:001953E7 445 0001:001953F5 + 448 0001:00195428 450 0001:00195434 + +Line numbers for fODDiet(Orders\fODDiet.pas) segment .text + + 314 0001:00196100 315 0001:00196122 316 0001:0019612D 317 0001:00196137 + 318 0001:00196148 320 0001:00196154 321 0001:00196164 323 0001:00196176 + 325 0001:0019617F 326 0001:0019618F 330 0001:001961A1 331 0001:001961B2 + 332 0001:001961BC 335 0001:001961C1 336 0001:001961CE 337 0001:001961DB + 338 0001:001961E7 339 0001:00196203 340 0001:00196210 341 0001:00196222 + 343 0001:00196243 344 0001:00196256 348 0001:00196265 349 0001:00196272 + 350 0001:00196288 352 0001:00196294 353 0001:001962B0 354 0001:001962CC + 355 0001:001962E8 356 0001:001962F2 359 0001:00196308 361 0001:00196314 + 362 0001:00196330 363 0001:0019634C 364 0001:00196368 365 0001:00196372 + 368 0001:00196386 369 0001:001963BE 372 0001:0019652C 373 0001:00196538 + 374 0001:0019654B 375 0001:00196553 376 0001:0019655D 377 0001:00196568 + 380 0001:0019656C 381 0001:00196579 382 0001:00196584 384 0001:00196590 + 385 0001:001965BD 386 0001:001965DF 387 0001:00196601 388 0001:00196649 + 389 0001:0019666C 390 0001:001966A0 392 0001:001966E3 395 0001:00196724 + 396 0001:0019672B 399 0001:00196733 400 0001:0019674A 403 0001:00196750 + 404 0001:00196773 405 0001:00196783 406 0001:00196791 407 0001:001967BC + 409 0001:0019681C 411 0001:00196828 412 0001:00196839 413 0001:00196841 + 415 0001:00196846 416 0001:00196856 417 0001:00196866 418 0001:0019687D + 419 0001:00196888 422 0001:0019689F 424 0001:001968AB 425 0001:001968BC + 426 0001:001968C4 428 0001:001968C9 429 0001:001968E0 430 0001:001968EB + 433 0001:00196902 435 0001:00196921 436 0001:00196929 438 0001:0019692E + 439 0001:00196945 440 0001:00196950 443 0001:00196967 445 0001:00196986 + 446 0001:0019698E 448 0001:00196993 449 0001:001969AA 450 0001:001969B5 + 453 0001:001969CC 454 0001:001969E3 455 0001:001969EE 458 0001:00196A05 + 460 0001:00196A24 461 0001:00196A2C 463 0001:00196A31 464 0001:00196A48 + 465 0001:00196A53 468 0001:00196A6A 470 0001:00196A76 471 0001:00196A87 + 472 0001:00196A8F 474 0001:00196A94 475 0001:00196A9E 476 0001:00196AAE + 477 0001:00196ABE 478 0001:00196AD5 479 0001:00196AE0 483 0001:00196AF7 + 485 0001:00196B03 486 0001:00196B14 487 0001:00196B1C 489 0001:00196B1E + 490 0001:00196B2E 491 0001:00196B3E 492 0001:00196B55 493 0001:00196B60 + 494 0001:00196B6E 497 0001:00196B7F 498 0001:00196BB6 506 0001:00196C5C + 507 0001:00196C63 508 0001:00196C8A 509 0001:00196C9E 515 0001:00196CB0 + 516 0001:00196CD2 517 0001:00196CD6 518 0001:00196CFC 519 0001:00196D0A + 520 0001:00196D1F 521 0001:00196D75 522 0001:00196D96 523 0001:00196DB7 + 524 0001:00196E02 531 0001:00196E30 532 0001:00196E4C 533 0001:00196E50 + 534 0001:00196E76 535 0001:00196E84 536 0001:00196E93 537 0001:00196EB3 + 538 0001:00196ECD 539 0001:00196EEF 540 0001:00196F28 542 0001:00196F40 + 544 0001:00196F64 546 0001:00196F82 547 0001:00196FA4 548 0001:00196FC2 + 550 0001:00196FCE 551 0001:00196FD9 552 0001:00196FF1 553 0001:0019702A + 556 0001:00197036 558 0001:00197054 559 0001:00197059 560 0001:0019709A + 561 0001:001970B2 562 0001:001970B7 564 0001:001970F5 565 0001:00197140 + 566 0001:00197180 567 0001:001971B5 568 0001:001971E9 562 0001:001971EC + 569 0001:001971F5 570 0001:0019720A 571 0001:00197216 573 0001:00197234 + 575 0001:00197252 576 0001:00197270 577 0001:0019728E 578 0001:001972B9 + 579 0001:001972F5 581 0001:00197305 582 0001:00197322 583 0001:00197340 + 584 0001:0019736B 585 0001:0019739F 587 0001:001973DB 588 0001:0019740A + 590 0001:00197421 592 0001:0019743B 594 0001:0019745C 596 0001:00197476 + 597 0001:0019749F 598 0001:001974AB 600 0001:001974C9 602 0001:001974E7 + 603 0001:00197505 604 0001:00197527 605 0001:0019753E 607 0001:00197553 + 608 0001:00197571 610 0001:0019757D 611 0001:00197588 612 0001:001975A0 + 613 0001:001975D9 615 0001:001975E5 616 0001:00197615 618 0001:00197646 + 619 0001:00197676 621 0001:001976A7 622 0001:001976CA 625 0001:00197722 + 630 0001:00197DE0 632 0001:00197E0B 634 0001:00197E35 635 0001:00197E3B + 637 0001:00197E40 638 0001:00197E4A 640 0001:00197E6B 642 0001:00197E89 + 644 0001:00197ECA 647 0001:00197ED5 648 0001:00197EE5 649 0001:00197EF9 + 654 0001:00197F0C 656 0001:00197F43 657 0001:00197F4E 660 0001:00197F5E + 661 0001:00197F6E 662 0001:00197F82 666 0001:00197F90 667 0001:00197FD7 + 680 0001:00198084 683 0001:001980A8 685 0001:001980B4 686 0001:001980BF + 688 0001:001980C4 689 0001:001980CE 690 0001:001980E4 691 0001:001980EE + 693 0001:0019810C 694 0001:00198116 695 0001:0019811E 697 0001:00198144 + 698 0001:00198153 699 0001:00198161 700 0001:0019816C 702 0001:001981E0 + 704 0001:001981EF 707 0001:0019827B 708 0001:00198288 709 0001:001982A1 + 708 0001:001982DA 712 0001:001982EC 715 0001:001982FC 717 0001:00198302 + 720 0001:00198332 721 0001:0019833C 722 0001:00198347 725 0001:0019834C + 726 0001:00198357 727 0001:0019836A 728 0001:0019837E 729 0001:00198397 + 730 0001:001983A5 731 0001:001983B5 732 0001:001983C5 733 0001:001983D5 + 735 0001:001983DD 737 0001:001983FB 739 0001:00198407 741 0001:0019841A + 742 0001:00198424 743 0001:0019843B 744 0001:0019844C 747 0001:00198451 + 749 0001:0019846B 750 0001:00198486 751 0001:00198496 752 0001:001984B1 + 753 0001:001984BB 754 0001:001984C9 755 0001:001984E3 756 0001:001984ED + 757 0001:00198500 758 0001:00198514 760 0001:00198532 761 0001:00198545 + 763 0001:00198557 764 0001:0019856A 766 0001:0019857D 768 0001:0019858B + 769 0001:0019859B 771 0001:001985A3 773 0001:001985C1 775 0001:001985CD + 777 0001:001985E0 778 0001:001985EA 779 0001:00198601 780 0001:00198612 + 783 0001:00198617 785 0001:00198633 787 0001:00198653 788 0001:00198666 + 789 0001:00198672 790 0001:00198684 791 0001:0019868E 793 0001:00198693 + 794 0001:001986AE 795 0001:001986C9 796 0001:001986E1 797 0001:001986F9 + 798 0001:00198711 799 0001:00198729 800 0001:00198741 801 0001:00198759 + 802 0001:00198763 803 0001:0019876D 804 0001:00198780 805 0001:00198794 + 807 0001:0019879C 809 0001:001987BA 810 0001:001987C4 811 0001:001987CE + 812 0001:001987E1 813 0001:001987F5 814 0001:0019881F 815 0001:00198838 + 816 0001:00198850 818 0001:00198858 820 0001:00198876 822 0001:00198882 + 824 0001:00198895 825 0001:0019889F 826 0001:001988B6 827 0001:001988C7 + 830 0001:001988CC 832 0001:001988E6 833 0001:00198901 834 0001:00198911 + 835 0001:0019892C 836 0001:00198936 837 0001:00198940 838 0001:00198953 + 839 0001:00198967 841 0001:0019896F 843 0001:0019898D 844 0001:00198995 + 845 0001:001989B5 847 0001:001989C2 848 0001:001989CC 849 0001:001989EE + 850 0001:001989FD 851 0001:00198A11 852 0001:00198A25 854 0001:00198A3A + 855 0001:00198A44 856 0001:00198A4C 858 0001:00198A67 859 0001:00198A77 + 860 0001:00198A87 861 0001:00198A9A 862 0001:00198AAA 863 0001:00198ABA + 864 0001:00198ACA 865 0001:00198ADA 866 0001:00198AF0 867 0001:00198AFB + 869 0001:00198B0A 871 0001:00198B1F 872 0001:00198B29 873 0001:00198B31 + 874 0001:00198B4A 875 0001:00198B58 876 0001:00198B73 878 0001:00198B89 + 879 0001:00198B99 880 0001:00198BA9 881 0001:00198BBC 882 0001:00198BCB + 883 0001:00198BD6 886 0001:00198BE0 887 0001:00198BEA 888 0001:00198C20 + 893 0001:00198FA8 894 0001:00198FC3 896 0001:00198FFD 897 0001:0019900D + 898 0001:0019901D 899 0001:0019902D 902 0001:0019903F 903 0001:0019904F + 904 0001:0019905F 906 0001:00199091 911 0001:001990A4 912 0001:001990C1 + 914 0001:001990CD 917 0001:00199123 918 0001:00199130 920 0001:00199156 + 921 0001:00199166 923 0001:00199178 926 0001:001991B2 929 0001:00199214 + 930 0001:0019921B 931 0001:0019922C 932 0001:0019923F 933 0001:0019924F + 934 0001:0019925F 935 0001:0019926F 936 0001:0019927F 937 0001:0019928F + 938 0001:0019929F 945 0001:001992B0 946 0001:001992D2 947 0001:001992DC + 948 0001:001992E4 950 0001:001992F0 951 0001:00199302 953 0001:0019930C + 954 0001:0019931F 956 0001:00199329 957 0001:0019933E 959 0001:00199360 + 960 0001:00199382 961 0001:00199393 962 0001:0019939D 964 0001:001993A2 + 966 0001:001993B8 951 0001:001993CB 968 0001:001993D5 969 0001:001993ED + 970 0001:00199405 971 0001:0019941D 973 0001:00199435 974 0001:0019943D + 975 0001:00199445 976 0001:0019944F 977 0001:00199484 981 0001:00199508 + 983 0001:00199517 984 0001:00199532 993 0001:00199538 994 0001:0019953F + 995 0001:0019954E 996 0001:0019955C 998 0001:00199560 1000 0001:00199584 + 1002 0001:001995B1 1003 0001:001995E5 1004 0001:001995ED 1005 0001:001995FE + 1007 0001:00199603 1009 0001:00199633 1010 0001:0019963B 1012 0001:00199650 + 1013 0001:0019967F 1014 0001:001996AA 1015 0001:001996D9 1017 0001:00199704 + 1018 0001:00199722 1019 0001:00199726 1020 0001:00199777 1021 0001:00199789 + 1022 0001:0019979F 1024 0001:001997C1 1025 0001:001997E3 1026 0001:001997F4 + 1028 0001:001997F9 1029 0001:0019981A 1030 0001:00199862 1028 0001:001998A5 + 1031 0001:001998AE 1033 0001:001998CB 1034 0001:001998E1 1035 0001:001998E9 + 1036 0001:001998F1 1037 0001:00199921 1040 0001:0019992C 1041 0001:0019998F + 1044 0001:00199AC0 1046 0001:00199AE0 1047 0001:00199B29 1048 0001:00199B59 + 1051 0001:00199B60 1053 0001:00199B6C 1054 0001:00199BA0 1055 0001:00199BAB + 1057 0001:00199BC8 1058 0001:00199BD8 1059 0001:00199BE8 1060 0001:00199BF8 + 1062 0001:00199C08 1067 0001:00199C0C 1069 0001:00199C30 1070 0001:00199C40 + 1071 0001:00199C56 1072 0001:00199C98 1073 0001:00199CDA 1074 0001:00199D03 + 1073 0001:00199D71 1075 0001:00199D76 1076 0001:00199DB8 1077 0001:00199E0E + 1078 0001:00199E29 1079 0001:00199E4D 1081 0001:00199E6F 1083 0001:00199EAA + 1085 0001:00199EE2 1086 0001:00199EF8 1087 0001:00199F73 1092 0001:0019A040 + 1093 0001:0019A047 1094 0001:0019A04F 1095 0001:0019A062 1096 0001:0019A072 + 1097 0001:0019A082 1104 0001:0019A088 1105 0001:0019A091 1106 0001:0019A09B + 1107 0001:0019A0A3 1109 0001:0019A0AF 1110 0001:0019A0C1 1112 0001:0019A0CB + 1113 0001:0019A0DE 1115 0001:0019A0E8 1116 0001:0019A0F7 1117 0001:0019A10A + 1118 0001:0019A11B 1120 0001:0019A127 1121 0001:0019A151 1122 0001:0019A169 + 1123 0001:0019A184 1124 0001:0019A197 1125 0001:0019A1BB 1126 0001:0019A1CE + 1127 0001:0019A1F2 1130 0001:0019A204 1110 0001:0019A217 1132 0001:0019A221 + 1133 0001:0019A236 1134 0001:0019A260 1136 0001:0019A26C 1137 0001:0019A284 + 1139 0001:0019A29C 1141 0001:0019A2B4 1142 0001:0019A2BE 1143 0001:0019A2C9 + 1148 0001:0019A348 1149 0001:0019A351 1151 0001:0019A376 1152 0001:0019A388 + 1153 0001:0019A398 1149 0001:0019A39B 1154 0001:0019A3A0 1155 0001:0019A3B3 + 1160 0001:0019A3B8 1163 0001:0019A3DD 1165 0001:0019A40A 1166 0001:0019A43E + 1167 0001:0019A446 1168 0001:0019A457 1170 0001:0019A45C 1171 0001:0019A47F + 1172 0001:0019A48E 1173 0001:0019A4A2 1174 0001:0019A4EA 1175 0001:0019A4FB + 1177 0001:0019A507 1178 0001:0019A531 1179 0001:0019A549 1180 0001:0019A564 + 1181 0001:0019A580 1182 0001:0019A592 1184 0001:0019A59F 1185 0001:0019A5B8 + 1186 0001:0019A605 1189 0001:0019A61C 1191 0001:0019A63C 1192 0001:0019A685 + 1193 0001:0019A6B5 1197 0001:0019A6BC 1199 0001:0019A6EB 1200 0001:0019A6F9 + 1201 0001:0019A6FF 1203 0001:0019A710 1204 0001:0019A727 1205 0001:0019A73B + 1207 0001:0019A78C 1215 0001:0019A798 1218 0001:0019A7A2 1219 0001:0019A7C3 + 1221 0001:0019A804 1222 0001:0019A80C 1223 0001:0019A814 1225 0001:0019A81F + 1227 0001:0019A824 1229 0001:0019A84A 1230 0001:0019A85A 1231 0001:0019A867 + 1233 0001:0019A86D 1234 0001:0019A8AF 1235 0001:0019A8C4 1237 0001:0019A8D4 + 1239 0001:0019A8DA 1240 0001:0019A903 1241 0001:0019A918 1243 0001:0019A94A + 1246 0001:0019A954 1247 0001:0019A963 1248 0001:0019A96F 1249 0001:0019A97B + 1254 0001:0019A980 1255 0001:0019A989 1256 0001:0019A9A9 1258 0001:0019A9CC + 1259 0001:0019A9D8 1260 0001:0019A9E4 1261 0001:0019AA09 1263 0001:0019AA2E + 1269 0001:0019AA34 1270 0001:0019AA5F 1272 0001:0019AA6B 1273 0001:0019AA7C + 1274 0001:0019AA91 1275 0001:0019AA96 1276 0001:0019AAB8 1277 0001:0019AADE + 1279 0001:0019AAEA 1280 0001:0019AB17 1282 0001:0019AB53 1284 0001:0019AB95 + 1287 0001:0019ABA8 1288 0001:0019ABB4 1289 0001:0019ABB9 1290 0001:0019ABD1 + 1291 0001:0019ABE9 1292 0001:0019AC01 1293 0001:0019AC1A 1296 0001:0019AC54 + 1298 0001:0019AC60 1299 0001:0019AC7C 1302 0001:0019AC80 1304 0001:0019AC8F + 1305 0001:0019AC9B 1306 0001:0019ACAF 1307 0001:0019ACC4 1309 0001:0019ACDA + 1311 0001:0019ACEC 1312 0001:0019ACF4 1314 0001:0019AD0E 1317 0001:0019AD14 + 1319 0001:0019AD33 1321 0001:0019AD3F 1322 0001:0019AD48 1324 0001:0019AD8E + 1325 0001:0019ADB6 1328 0001:0019ADBC 1330 0001:0019ADDB 1332 0001:0019ADE7 + 1333 0001:0019AE2D 1334 0001:0019AE4B 1335 0001:0019AE55 1337 0001:0019AE5D + 1338 0001:0019AE68 1339 0001:0019AE8D 1342 0001:0019AE94 1344 0001:0019AEA0 + 1345 0001:0019AEAE 1348 0001:0019AEB4 1350 0001:0019AEDA 1351 0001:0019AEF2 + 1352 0001:0019AF2B 1353 0001:0019AF54 1354 0001:0019AF85 1355 0001:0019AFC6 + 1356 0001:0019B01C 1357 0001:0019B06B 1358 0001:0019B09E 1359 0001:0019B0B3 + 1361 0001:0019B0CE 1363 0001:0019B0DA 1364 0001:0019B0E2 1366 0001:0019B11E + 1369 0001:0019B128 1371 0001:0019B147 1373 0001:0019B153 1374 0001:0019B15C + 1376 0001:0019B1A2 1377 0001:0019B1CA 1380 0001:0019B1D0 1382 0001:0019B1EF + 1384 0001:0019B1FB 1385 0001:0019B241 1386 0001:0019B25F 1387 0001:0019B269 + 1389 0001:0019B271 1390 0001:0019B27C 1391 0001:0019B2A1 1396 0001:0019B2A8 + 1398 0001:0019B2B4 1400 0001:0019B2C0 1401 0001:0019B2D0 1402 0001:0019B2FF + 1403 0001:0019B340 1404 0001:0019B357 1406 0001:0019B369 1407 0001:0019B374 + 1414 0001:0019B378 1416 0001:0019B39C 1417 0001:0019B3AC 1418 0001:0019B3C2 + 1420 0001:0019B3EB 1421 0001:0019B3FB 1422 0001:0019B405 1423 0001:0019B40E + 1424 0001:0019B43E 1425 0001:0019B461 1426 0001:0019B4BB 1427 0001:0019B4DB + 1428 0001:0019B522 1418 0001:0019B525 1429 0001:0019B52E 1430 0001:0019B54B + 1431 0001:0019B581 1432 0001:0019B59C 1433 0001:0019B5C0 1434 0001:0019B5E2 + 1436 0001:0019B5F2 1437 0001:0019B631 1439 0001:0019B67F 1440 0001:0019B6F8 + 1445 0001:0019B798 1446 0001:0019B79F 1447 0001:0019B7B2 1448 0001:0019B7C2 + 1449 0001:0019B7D2 1450 0001:0019B7E2 1451 0001:0019B7F2 1452 0001:0019B802 + 1453 0001:0019B812 1454 0001:0019B822 1455 0001:0019B832 1456 0001:0019B842 + 1457 0001:0019B852 1458 0001:0019B862 1459 0001:0019B875 1460 0001:0019B888 + 1461 0001:0019B89B 1462 0001:0019B8AE 1463 0001:0019B8C1 1464 0001:0019B8D4 + 1465 0001:0019B8E7 1466 0001:0019B8FA 1471 0001:0019B900 1472 0001:0019B921 + 1473 0001:0019B92B 1474 0001:0019B933 1476 0001:0019B93F 1477 0001:0019B954 + 1479 0001:0019B95A 1480 0001:0019B97C 1481 0001:0019B9A1 1483 0001:0019B9C6 + 1484 0001:0019B9E3 1485 0001:0019B9F8 1487 0001:0019BA02 1488 0001:0019BA36 + 1489 0001:0019BA6A 1490 0001:0019BA9E 1491 0001:0019BAD2 1492 0001:0019BB06 + 1494 0001:0019BB3A 1495 0001:0019BB46 1498 0001:0019BB60 1499 0001:0019BB78 + 1501 0001:0019BB90 1502 0001:0019BB9B 1503 0001:0019BBB0 1505 0001:0019BBBA + 1506 0001:0019BBE0 1507 0001:0019BC06 1508 0001:0019BC2C 1509 0001:0019BC52 + 1510 0001:0019BC78 1511 0001:0019BC9E 1513 0001:0019BCC4 1514 0001:0019BCD9 + 1516 0001:0019BD03 1517 0001:0019BD0D 1518 0001:0019BD3A 1521 0001:0019BE24 + 1522 0001:0019BE30 1523 0001:0019BE38 1524 0001:0019BE5E 1525 0001:0019BE84 + 1526 0001:0019BEAA 1527 0001:0019BED0 1528 0001:0019BEF6 1529 0001:0019BF1C + 1532 0001:0019BF20 1533 0001:0019BF2C 1534 0001:0019BF34 1535 0001:0019BF59 + 1536 0001:0019BF7E 1537 0001:0019BFA3 1538 0001:0019BFC8 1539 0001:0019BFED + 1540 0001:0019C012 1541 0001:0019C037 1544 0001:0019C090 1545 0001:0019C099 + 1546 0001:0019C09D 1547 0001:0019C0B6 1548 0001:0019C0CF 1549 0001:0019C0EB + 1559 0001:0019C0F0 1560 0001:0019C0FF 1561 0001:0019C10A 1562 0001:0019C118 + 1563 0001:0019C123 1564 0001:0019C142 1565 0001:0019C14F 1569 0001:0019C154 + 1570 0001:0019C172 1571 0001:0019C176 1572 0001:0019C1A2 1573 0001:0019C1CE + 1574 0001:0019C1FA 1575 0001:0019C226 1576 0001:0019C252 1577 0001:0019C27E + 1578 0001:0019C2B7 1581 0001:0019C2BC 1583 0001:0019C2DB 1584 0001:0019C2E5 + 1586 0001:0019C300 1587 0001:0019C30C 1590 0001:0019C31B 1591 0001:0019C327 + 1594 0001:0019C336 1595 0001:0019C342 1599 0001:0019C351 1600 0001:0019C35A + 1603 0001:0019C362 1605 0001:0019C36E 1607 0001:0019C374 1608 0001:0019C37E + 1610 0001:0019C38E 1612 0001:0019C3A2 1613 0001:0019C3AC 1614 0001:0019C3BA + 1617 0001:0019C3CF 1619 0001:0019C3E9 1620 0001:0019C3F3 1621 0001:0019C421 + 1625 0001:0019C44C 1626 0001:0019C458 1627 0001:0019C469 1628 0001:0019C47A + 1629 0001:0019C48B 1630 0001:0019C49C 1631 0001:0019C4AD 1632 0001:0019C4BE + 1633 0001:0019C4CF 1634 0001:0019C4E0 1637 0001:0019C4E4 1639 0001:0019C503 + 1640 0001:0019C547 1643 0001:0019C54C 1645 0001:0019C56B 1646 0001:0019C577 + 1648 0001:0019C59B 1649 0001:0019C5C3 1652 0001:0019C5C8 1654 0001:0019C5E6 + 1655 0001:0019C5FE 1656 0001:0019C64C 1657 0001:0019C658 1658 0001:0019C684 + 1661 0001:0019C688 1663 0001:0019C6A7 1664 0001:0019C6EC 1665 0001:0019C6F8 + 1666 0001:0019C702 1667 0001:0019C72A 1672 0001:0019C730 1674 0001:0019C754 + 1675 0001:0019C764 1676 0001:0019C77A 1677 0001:0019C795 1678 0001:0019C7B9 + 1679 0001:0019C7DD 1681 0001:0019C7FF 1682 0001:0019C80A 1684 0001:0019C816 + 1685 0001:0019C836 1686 0001:0019C842 1687 0001:0019C867 1689 0001:0019C88A + 1691 0001:0019C896 1692 0001:0019C8D5 1694 0001:0019C8F8 1695 0001:0019C951 + 1696 0001:0019C9AA 1697 0001:0019C9B5 1698 0001:0019C9E1 1699 0001:0019C9F6 + 1700 0001:0019CA1A 1701 0001:0019CA3C 1702 0001:0019CAA0 1707 0001:0019CBC8 + 1708 0001:0019CBCF 1709 0001:0019CBE3 1710 0001:0019CBF3 1713 0001:0019CBF8 + 1714 0001:0019CBFF 1715 0001:0019CC09 1716 0001:0019CC11 1717 0001:0019CC2F + 1718 0001:0019CC4D 1719 0001:0019CC57 1720 0001:0019CC62 1723 0001:0019CC8C + 1725 0001:0019CCAF 1726 0001:0019CCBF 1727 0001:0019CCD5 1728 0001:0019CCFC + 1729 0001:0019CD1E 1730 0001:0019CD6C 1731 0001:0019CD89 1732 0001:0019CDBF + 1733 0001:0019CE23 1738 0001:0019CE80 1739 0001:0019CE87 1740 0001:0019CE97 + 1741 0001:0019CEA7 1744 0001:0019CEAC 1745 0001:0019CEB3 1746 0001:0019CEBD + 1747 0001:0019CEC5 1749 0001:0019CEE3 1750 0001:0019CF01 1751 0001:0019CF0B + 1752 0001:0019CF16 1755 0001:0019CF40 1757 0001:0019CF63 1758 0001:0019CF73 + 1759 0001:0019CF90 1760 0001:0019CFC6 1762 0001:0019CFD6 1763 0001:0019D015 + 1765 0001:0019D063 1766 0001:0019D0CF 1781 0001:0019D0F8 1783 0001:0019D11C + 1785 0001:0019D134 1786 0001:0019D147 1787 0001:0019D151 1789 0001:0019D156 + 1791 0001:0019D183 1792 0001:0019D1B7 1793 0001:0019D1BF 1794 0001:0019D1D0 + 1796 0001:0019D1D5 1798 0001:0019D205 1799 0001:0019D20D 1800 0001:0019D223 + 1802 0001:0019D245 1803 0001:0019D267 1804 0001:0019D278 1806 0001:0019D27D + 1807 0001:0019D290 1809 0001:0019D2A6 1811 0001:0019D2AE 1812 0001:0019D2B6 + 1813 0001:0019D2E6 1815 0001:0019D2F1 1816 0001:0019D2FC 1817 0001:0019D35F + 1820 0001:0019D438 1822 0001:0019D458 1823 0001:0019D4A1 1824 0001:0019D4D1 + 1827 0001:0019D4D8 1828 0001:0019D4DF 1829 0001:0019D4F0 1830 0001:0019D501 + 1831 0001:0019D514 1832 0001:0019D524 1833 0001:0019D537 1834 0001:0019D54A + 1835 0001:0019D55D 1836 0001:0019D570 1837 0001:0019D583 1838 0001:0019D596 + 1839 0001:0019D5A9 1840 0001:0019D5B9 1841 0001:0019D5C9 1842 0001:0019D5D9 + 1844 0001:0019D5EA 1845 0001:0019D5FA 1846 0001:0019D60A 1847 0001:0019D61A + 1848 0001:0019D62A 1849 0001:0019D63A 1850 0001:0019D64A 1852 0001:0019D65D + 1854 0001:0019D66E 1855 0001:0019D681 1856 0001:0019D694 1857 0001:0019D6A4 + 1858 0001:0019D6B4 1859 0001:0019D6C4 1860 0001:0019D6D4 1862 0001:0019D6E4 + 1868 0001:0019D728 1869 0001:0019D74A 1870 0001:0019D754 1871 0001:0019D75C + 1873 0001:0019D768 1874 0001:0019D77D 1876 0001:0019D787 1877 0001:0019D79C + 1879 0001:0019D7BE 1880 0001:0019D7E0 1881 0001:0019D7F1 1882 0001:0019D7FB + 1884 0001:0019D800 1885 0001:0019D818 1887 0001:0019D82E 1888 0001:0019D846 + 1889 0001:0019D85B 1891 0001:0019D861 1892 0001:0019D883 1893 0001:0019D8A8 + 1895 0001:0019D8CD 1896 0001:0019D8E5 1897 0001:0019D8FD 1898 0001:0019D908 + 1899 0001:0019D91D 1901 0001:0019D927 1902 0001:0019D94D 1903 0001:0019D973 + 1904 0001:0019D999 1905 0001:0019D9BF 1906 0001:0019D9E5 1907 0001:0019DA0B + 1909 0001:0019DA31 1911 0001:0019DA49 1912 0001:0019DA51 1913 0001:0019DA59 + 1914 0001:0019DA63 1915 0001:0019DA98 1918 0001:0019DBB8 1920 0001:0019DBD7 + 1921 0001:0019DC1B 1924 0001:0019DC20 1926 0001:0019DC3F 1927 0001:0019DC4B + 1928 0001:0019DC57 1930 0001:0019DC7B 1931 0001:0019DCA3 1937 0001:0019DCA8 + 1938 0001:0019DCB1 1939 0001:0019DCC0 1940 0001:0019DCD1 1941 0001:0019DCDA + 1948 0001:0019DCE0 1949 0001:0019DD02 1950 0001:0019DD11 1951 0001:0019DD20 + 1953 0001:0019DD2C 1954 0001:0019DD54 1955 0001:0019DD61 1956 0001:0019DD6C + 1957 0001:0019DD99 1962 0001:0019DDA4 1964 0001:0019DDC3 1966 0001:0019DDDC + 1967 0001:0019DDEB 1969 0001:0019DDF0 1970 0001:0019DE3E 1973 0001:0019DE6B + 1974 0001:0019DEA0 1976 0001:0019DEDB 1981 0001:0019DEE4 1983 0001:0019DF06 + 1984 0001:0019DF16 1986 0001:0019DF2F 1987 0001:0019DF3E 1989 0001:0019DF43 + 1990 0001:0019DF88 1993 0001:0019DFB5 1994 0001:0019DFEA 1996 0001:0019DFFB + 1997 0001:0019E02B 2003 0001:0019E034 2005 0001:0019E059 2006 0001:0019E069 + 2008 0001:0019E07F 2009 0001:0019E09C 2010 0001:0019E106 2011 0001:0019E121 + 2012 0001:0019E145 2013 0001:0019E169 2015 0001:0019E18B 2016 0001:0019E1CD + 2017 0001:0019E20F 2019 0001:0019E220 2020 0001:0019E22B 2021 0001:0019E244 + 2023 0001:0019E264 2024 0001:0019E2A6 2030 0001:0019E2FC 2031 0001:0019E312 + 2032 0001:0019E388 2035 0001:0019E498 2037 0001:0019E4A4 2038 0001:0019E4AF + 2043 0001:0019E4B4 2044 0001:0019E4D9 2046 0001:0019E4E5 2048 0001:0019E503 + 2049 0001:0019E523 2050 0001:0019E53E 2046 0001:0019E541 2053 0001:0019E546 + 2054 0001:0019E557 2055 0001:0019E582 2056 0001:0019E5AD 2057 0001:0019E5D8 + 2058 0001:0019E603 2059 0001:0019E62E 2060 0001:0019E659 2061 0001:0019E6A1 + 2064 0001:0019E6FC 2065 0001:0019E708 2066 0001:0019E710 2067 0001:0019E735 + 2068 0001:0019E75A 2069 0001:0019E77F 2070 0001:0019E7A4 2071 0001:0019E7C9 + 2072 0001:0019E7EE 2073 0001:0019E813 2076 0001:0019E86C 2078 0001:0019E878 + 2079 0001:0019E8AC 2080 0001:0019E8B7 2082 0001:0019E8D4 2083 0001:0019E8E4 + 2085 0001:0019E8F4 2086 0001:0019E904 2088 0001:0019E914 2091 0001:0019E918 + 2092 0001:0019E924 2093 0001:0019E93F 2094 0001:0019E958 2095 0001:0019E971 + 2097 0001:0019E98A 2099 0001:0019E997 2102 0001:0019E9A8 2104 0001:0019E9C3 + 2106 0001:0019E9FD 2107 0001:0019EA0D 2108 0001:0019EA1D 2109 0001:0019EA2D + 2112 0001:0019EA3F 2113 0001:0019EA4F 2114 0001:0019EA5F 2116 0001:0019EA91 + 2122 0001:0019EAA4 2123 0001:0019EAC1 2125 0001:0019EACD 2128 0001:0019EB23 + 2129 0001:0019EB30 2131 0001:0019EB56 2132 0001:0019EB66 2134 0001:0019EB78 + 2137 0001:0019EBB2 2148 0001:0019EC14 2150 0001:0019EC44 2151 0001:0019EC48 + 2154 0001:0019EC66 2156 0001:0019EC78 2157 0001:0019EC87 2158 0001:0019EC98 + 2159 0001:0019ECB8 2162 0001:0019ECC0 2163 0001:0019ECDB 2165 0001:0019ED15 + 2166 0001:0019ED30 2170 0001:0019ED48 2173 0001:0019ED66 2175 0001:0019ED78 + 2176 0001:0019ED87 2177 0001:0019ED98 2178 0001:0019EDB8 2181 0001:0019EDC0 + 2182 0001:0019EDDB 2184 0001:0019EE1D 2185 0001:0019EE38 2186 0001:0019EE53 + 2187 0001:0019EE5F 2190 0001:0019EE80 2191 0001:0019EE8B 2193 0001:0019EE95 + 2194 0001:0019EEA4 2195 0001:0019EEB6 2197 0001:0019EEC3 2199 0001:0019EECF + 2200 0001:0019EEFB 2201 0001:0019EF04 2205 0001:0019EF0B 2207 0001:0019EF10 + 2208 0001:0019EF36 2210 0001:0019EF58 2211 0001:0019EF69 2213 0001:0019EFA1 + 2217 0001:0019F050 2219 0001:0019F05F 2220 0001:0019F068 2221 0001:0019F06E + 2222 0001:0019F098 2223 0001:0019F0B2 2227 0001:0019F0BA 2231 0001:0019F0C0 + 2233 0001:0019F0CF 2234 0001:0019F0E3 2242 0001:0019F0EC 2243 0001:0019F11A + 2244 0001:0019F124 2245 0001:0019F131 2247 0001:0019F13F 2248 0001:0019F175 + 2251 0001:0019F17B 2252 0001:0019F1AF 2254 0001:0019F320 2254 0001:0019F327 + +Line numbers for fODMisc(Orders\fODMisc.pas) segment .text + + 48 0001:0019F578 49 0001:0019F57B 50 0001:0019F582 51 0001:0019F58E + 52 0001:0019F598 53 0001:0019F5A8 55 0001:0019F5B2 56 0001:0019F5BC + 57 0001:0019F5C3 60 0001:0019F634 61 0001:0019F637 62 0001:0019F63E + 63 0001:0019F64B 64 0001:0019F658 67 0001:0019F65C 68 0001:0019F662 + 69 0001:0019F66B 71 0001:0019F67E 72 0001:0019F685 73 0001:0019F699 + 74 0001:0019F6AD 75 0001:0019F6C1 76 0001:0019F6D5 77 0001:0019F6DC + 78 0001:0019F6E5 80 0001:0019F6F5 87 0001:0019F73C 88 0001:0019F742 + 89 0001:0019F769 90 0001:0019F77C 92 0001:0019F78C 93 0001:0019F7AF + 94 0001:0019F7D4 95 0001:0019F7E2 96 0001:0019F7FA 98 0001:0019F800 + 99 0001:0019F80A 100 0001:0019F822 101 0001:0019F856 103 0001:0019F887 + 107 0001:0019F940 109 0001:0019F949 110 0001:0019F965 113 0001:0019F97C + 115 0001:0019F99D 116 0001:0019F9AA 117 0001:0019F9B5 118 0001:0019FA0C + 119 0001:0019FA59 120 0001:0019FAA6 121 0001:0019FAF3 122 0001:0019FB51 + 124 0001:0019FBCC 124 0001:0019FBD3 + +Line numbers for fODGen(Orders\fODGen.pas) segment .text + + 80 0001:0019FE3C 81 0001:0019FE5D 82 0001:0019FE64 83 0001:0019FE6B + 84 0001:0019FE74 85 0001:0019FE7B 87 0001:0019FE85 88 0001:0019FEAD + 89 0001:0019FEE9 91 0001:0019FEF0 92 0001:0019FEFC 93 0001:0019FF04 + 94 0001:0019FF17 95 0001:0019FF38 96 0001:0019FF59 97 0001:0019FF6C + 98 0001:0019FF8D 99 0001:0019FFAE 100 0001:0019FFC0 101 0001:0019FFF4 + 107 0001:001A0038 108 0001:001A0048 109 0001:001A006B 111 0001:001A0088 + 114 0001:001A0095 115 0001:001A00A1 116 0001:001A0100 117 0001:001A0107 + 118 0001:001A010E 119 0001:001A0115 120 0001:001A011C 121 0001:001A0123 + 122 0001:001A012A 123 0001:001A0131 124 0001:001A0138 126 0001:001A013D + 128 0001:001A0144 109 0001:001A0145 129 0001:001A014C 130 0001:001A0157 + 131 0001:001A0162 132 0001:001A0170 138 0001:001A0178 139 0001:001A01A0 + 140 0001:001A01A9 141 0001:001A01B3 142 0001:001A01C1 143 0001:001A01CB + 144 0001:001A01D9 145 0001:001A01E7 146 0001:001A01EE 147 0001:001A0218 + 156 0001:001A0244 157 0001:001A026F 158 0001:001A027A 160 0001:001A0294 + 162 0001:001A029B 163 0001:001A02C2 165 0001:001A02F2 167 0001:001A0315 + 168 0001:001A0323 169 0001:001A0329 170 0001:001A0331 171 0001:001A0345 + 173 0001:001A0349 174 0001:001A0354 176 0001:001A0372 178 0001:001A0376 + 179 0001:001A0384 180 0001:001A0391 181 0001:001A0397 182 0001:001A039E + 183 0001:001A03BA 184 0001:001A03C5 185 0001:001A03E3 188 0001:001A03F3 + 189 0001:001A0409 191 0001:001A040F 192 0001:001A0421 194 0001:001A0425 + 195 0001:001A0430 198 0001:001A043B 163 0001:001A043E 199 0001:001A0447 + 201 0001:001A044E 202 0001:001A0457 203 0001:001A04A6 208 0001:001A04C0 + 209 0001:001A04CA 211 0001:001A04D2 212 0001:001A04F2 215 0001:001A050C + 216 0001:001A052C 218 0001:001A053D 219 0001:001A0546 221 0001:001A0556 + 223 0001:001A0567 224 0001:001A0570 226 0001:001A057D 227 0001:001A0584 + 211 0001:001A0585 228 0001:001A058C 229 0001:001A05A3 240 0001:001A05AC + 241 0001:001A05B2 242 0001:001A05D9 243 0001:001A05EC 245 0001:001A05FC + 246 0001:001A0630 247 0001:001A063B 249 0001:001A065E 252 0001:001A066B + 253 0001:001A069E 255 0001:001A06A4 256 0001:001A06BC 257 0001:001A06CA + 259 0001:001A06E4 261 0001:001A06F5 262 0001:001A0700 264 0001:001A0733 + 266 0001:001A073D 267 0001:001A0755 269 0001:001A0765 270 0001:001A078C + 274 0001:001A07BF 247 0001:001A07C2 275 0001:001A07C9 277 0001:001A07D2 + 278 0001:001A07E5 279 0001:001A07FF 280 0001:001A0812 281 0001:001A082C + 283 0001:001A0888 290 0001:001A0930 291 0001:001A094E 292 0001:001A0959 + 293 0001:001A0964 294 0001:001A096E 295 0001:001A0976 296 0001:001A099B + 295 0001:001A09C6 297 0001:001A09CB 298 0001:001A09DA 300 0001:001A09FD + 301 0001:001A0A0A 303 0001:001A0A13 305 0001:001A0A3F 307 0001:001A0A5F + 310 0001:001A0A8B 311 0001:001A0A99 312 0001:001A0AA4 313 0001:001A0AAA + 314 0001:001A0AB0 315 0001:001A0AC0 316 0001:001A0B1C 317 0001:001A0B29 + 318 0001:001A0B36 319 0001:001A0B43 320 0001:001A0B50 321 0001:001A0B5D + 322 0001:001A0B6A 323 0001:001A0B77 324 0001:001A0B84 326 0001:001A0B8F + 327 0001:001A0B9C 328 0001:001A0BB2 298 0001:001A0BB5 329 0001:001A0BDB + 334 0001:001A0BF4 337 0001:001A0BFE 338 0001:001A0C11 339 0001:001A0C1E + 340 0001:001A0C47 341 0001:001A0C61 342 0001:001A0C8B 343 0001:001A0C96 + 344 0001:001A0CA6 345 0001:001A0CB1 346 0001:001A0CC7 347 0001:001A0CDA + 348 0001:001A0CE5 350 0001:001A0CFD 353 0001:001A0D1C 356 0001:001A0D3F + 357 0001:001A0D52 358 0001:001A0D5F 361 0001:001A0D9A 362 0001:001A0DC4 + 363 0001:001A0DD2 364 0001:001A0DE5 365 0001:001A0DF3 366 0001:001A0E0C + 367 0001:001A0E1F 368 0001:001A0E2B 370 0001:001A0E60 375 0001:001A0E68 + 378 0001:001A0E72 379 0001:001A0E85 380 0001:001A0E92 381 0001:001A0EBD + 382 0001:001A0ECA 383 0001:001A0ED5 384 0001:001A0EF2 385 0001:001A0EFD + 386 0001:001A0F13 387 0001:001A0F26 388 0001:001A0F31 390 0001:001A0F49 + 397 0001:001A0F5C 400 0001:001A0F81 401 0001:001A0F94 402 0001:001A0FA1 + 403 0001:001A0FAB 404 0001:001A0FB5 405 0001:001A0FC2 406 0001:001A0FED + 408 0001:001A0FFB 409 0001:001A100E 410 0001:001A1026 411 0001:001A1064 + 412 0001:001A1075 413 0001:001A1085 415 0001:001A1093 416 0001:001A10A6 + 417 0001:001A10BF 418 0001:001A10D2 419 0001:001A10DE 421 0001:001A1118 + 426 0001:001A1138 429 0001:001A1142 430 0001:001A1155 431 0001:001A1162 + 432 0001:001A116C 433 0001:001A1176 434 0001:001A1183 435 0001:001A11AE + 436 0001:001A11C1 437 0001:001A11D4 439 0001:001A11DF 440 0001:001A11EF + 441 0001:001A1205 442 0001:001A1218 443 0001:001A1223 445 0001:001A123B + 454 0001:001A126C 457 0001:001A1298 458 0001:001A12A6 459 0001:001A12BD + 460 0001:001A12E8 461 0001:001A1306 462 0001:001A1327 463 0001:001A1353 + 464 0001:001A1370 465 0001:001A1383 466 0001:001A1390 467 0001:001A139A + 468 0001:001A13A4 469 0001:001A13B1 471 0001:001A13BB 473 0001:001A13EE + 475 0001:001A141C 476 0001:001A142B 477 0001:001A145A 478 0001:001A1468 + 480 0001:001A1478 482 0001:001A1487 483 0001:001A148E 484 0001:001A14A6 + 486 0001:001A14D7 487 0001:001A14DD 488 0001:001A14DF 483 0001:001A14E2 + 489 0001:001A14E7 490 0001:001A14ED 492 0001:001A14FA 494 0001:001A14FD + 495 0001:001A150B 498 0001:001A1516 499 0001:001A1529 500 0001:001A1537 + 502 0001:001A1549 503 0001:001A155C 504 0001:001A1587 505 0001:001A1595 + 506 0001:001A15A3 507 0001:001A15BC 508 0001:001A15CF 510 0001:001A15E9 + 511 0001:001A15F7 512 0001:001A15FC 513 0001:001A1627 515 0001:001A1631 + 516 0001:001A163D 518 0001:001A1684 524 0001:001A16FC 526 0001:001A171C + 527 0001:001A1734 528 0001:001A1747 529 0001:001A175A 530 0001:001A1778 + 531 0001:001A17B8 536 0001:001A17C4 539 0001:001A17CE 540 0001:001A17E1 + 541 0001:001A17EE 544 0001:001A182C 545 0001:001A1837 546 0001:001A1847 + 547 0001:001A1852 548 0001:001A1868 549 0001:001A1872 550 0001:001A1885 + 551 0001:001A1890 553 0001:001A18AD 556 0001:001A18B4 557 0001:001A18BA + 558 0001:001A18C5 559 0001:001A18D0 562 0001:001A18D4 565 0001:001A18DE + 566 0001:001A18F1 567 0001:001A18FE 568 0001:001A1909 569 0001:001A1913 + 570 0001:001A193A 571 0001:001A1944 573 0001:001A194E 578 0001:001A1954 + 580 0001:001A1976 581 0001:001A1983 583 0001:001A19B0 584 0001:001A1A0C + 586 0001:001A1A4E 587 0001:001A1A84 588 0001:001A1AA4 589 0001:001A1ADA + 590 0001:001A1B1B 591 0001:001A1B51 592 0001:001A1B8F 593 0001:001A1BB8 + 595 0001:001A1BF4 581 0001:001A1BF7 596 0001:001A1BFE 597 0001:001A1CA6 + 599 0001:001A1CF0 599 0001:001A1CF7 + +Line numbers for fODMedFA(Orders\fODMedFA.pas) segment .text + + 47 0001:001A1F28 48 0001:001A1F54 49 0001:001A1F58 50 0001:001A1F5C + 51 0001:001A1F63 52 0001:001A1F6B 53 0001:001A1F7A 54 0001:001A1F88 + 55 0001:001A1F96 57 0001:001A1FA6 58 0001:001A1FBD 59 0001:001A1FCB + 62 0001:001A1FD3 63 0001:001A1FE9 64 0001:001A1FF4 66 0001:001A200A + 67 0001:001A202F 68 0001:001A2054 69 0001:001A2077 73 0001:001A20A8 + 76 0001:001A20B8 78 0001:001A20D6 80 0001:001A2108 83 0001:001A21E0 + 85 0001:001A21E3 86 0001:001A21EE 89 0001:001A21F0 91 0001:001A21F3 + 92 0001:001A2211 95 0001:001A2214 97 0001:001A222B 98 0001:001A2267 + 99 0001:001A228B 104 0001:001A2290 105 0001:001A2295 107 0001:001A22C8 + 107 0001:001A22CF + +Line numbers for fODMedIn(Orders\fODMedIn.pas) segment .text + + 85 0001:001A262C 86 0001:001A264B 87 0001:001A2656 88 0001:001A2660 + 89 0001:001A2668 91 0001:001A2674 92 0001:001A2683 93 0001:001A268B + 95 0001:001A268D 96 0001:001A269A 97 0001:001A26A4 98 0001:001A26B7 + 99 0001:001A26C1 100 0001:001A26D6 101 0001:001A26FE 104 0001:001A278C + 105 0001:001A2795 106 0001:001A279D 107 0001:001A27A8 108 0001:001A27B5 + 109 0001:001A27C2 110 0001:001A27D4 112 0001:001A27E0 113 0001:001A27F6 + 115 0001:001A2804 116 0001:001A281A 118 0001:001A2830 119 0001:001A283A + 120 0001:001A284A 121 0001:001A285A 122 0001:001A286A 123 0001:001A287B + 124 0001:001A2882 127 0001:001A28E4 128 0001:001A28F3 129 0001:001A2901 + 131 0001:001A2921 132 0001:001A292B 133 0001:001A2943 134 0001:001A294B + 135 0001:001A2953 137 0001:001A295B 138 0001:001A2973 139 0001:001A298B + 140 0001:001A29A3 141 0001:001A29BB 142 0001:001A29D3 144 0001:001A29EB + 145 0001:001A2A00 146 0001:001A2A10 147 0001:001A2A1A 149 0001:001A2A25 + 150 0001:001A2A3F 159 0001:001A2ABC 160 0001:001A2AC3 161 0001:001A2AEA + 162 0001:001A2AFE 164 0001:001A2B10 165 0001:001A2B33 166 0001:001A2B3E + 167 0001:001A2B67 168 0001:001A2B90 169 0001:001A2BBE 170 0001:001A2BE7 + 172 0001:001A2C16 173 0001:001A2C35 174 0001:001A2C44 175 0001:001A2C52 + 177 0001:001A2C72 178 0001:001A2C9B 180 0001:001A2CC2 181 0001:001A2CDA + 183 0001:001A2CE4 184 0001:001A2D0C 185 0001:001A2D48 186 0001:001A2D9C + 187 0001:001A2DC0 188 0001:001A2E04 189 0001:001A2E2C 191 0001:001A2E68 + 193 0001:001A2E7A 194 0001:001A2EB4 195 0001:001A2EC0 196 0001:001A2EE3 + 197 0001:001A2F40 202 0001:001A32EC 203 0001:001A32F3 204 0001:001A3301 + 205 0001:001A330F 206 0001:001A331D 207 0001:001A332B 208 0001:001A3339 + 209 0001:001A3347 212 0001:001A334C 213 0001:001A3367 215 0001:001A3373 + 216 0001:001A3385 218 0001:001A339D 219 0001:001A33B9 221 0001:001A33C7 + 222 0001:001A340B 223 0001:001A341B 225 0001:001A344D 228 0001:001A3468 + 229 0001:001A3489 231 0001:001A3495 232 0001:001A34B6 233 0001:001A34D3 + 234 0001:001A34E9 235 0001:001A3510 236 0001:001A3526 237 0001:001A353C + 240 0001:001A3563 241 0001:001A359A 243 0001:001A35DF 248 0001:001A3640 + 250 0001:001A364F 251 0001:001A366F 255 0001:001A3688 257 0001:001A36AB + 259 0001:001A36B7 260 0001:001A3701 261 0001:001A370B 262 0001:001A3721 + 263 0001:001A3729 265 0001:001A3750 266 0001:001A377E 268 0001:001A379C + 270 0001:001A37BA 272 0001:001A37D3 273 0001:001A37EB 274 0001:001A3803 + 275 0001:001A381B 276 0001:001A3833 277 0001:001A384B 278 0001:001A3863 + 280 0001:001A387B 281 0001:001A3885 282 0001:001A3890 284 0001:001A38AC + 285 0001:001A3910 293 0001:001A398C 294 0001:001A39B2 296 0001:001A3A0E + 297 0001:001A3A2B 299 0001:001A3A31 301 0001:001A3A52 302 0001:001A3A63 + 303 0001:001A3A77 305 0001:001A3A82 308 0001:001A3AC5 313 0001:001A3AD8 + 315 0001:001A3AFA 317 0001:001A3B06 318 0001:001A3B2F 320 0001:001A3B45 + 321 0001:001A3B55 323 0001:001A3B7E 325 0001:001A3BB4 328 0001:001A3BB8 + 330 0001:001A3BD7 332 0001:001A3BE3 333 0001:001A3C0C 334 0001:001A3C3D + 336 0001:001A3C6B 341 0001:001A3C70 343 0001:001A3C94 344 0001:001A3CA4 + 345 0001:001A3CC6 346 0001:001A3D2C 347 0001:001A3D48 348 0001:001A3D6A + 349 0001:001A3DCE 350 0001:001A3E27 351 0001:001A3E3E 352 0001:001A3EAA + 353 0001:001A3EEC 354 0001:001A3F57 355 0001:001A3FC1 356 0001:001A3FFF + 357 0001:001A40CA 359 0001:001A4188 359 0001:001A418F + +Line numbers for fODMedComplex(Orders\fODMedComplex.pas) segment .text + + 94 0001:001A45B4 95 0001:001A45D8 96 0001:001A45EF 97 0001:001A45FD + 100 0001:001A4605 101 0001:001A462D 102 0001:001A4666 103 0001:001A467B + 104 0001:001A4699 105 0001:001A46AE 108 0001:001A46C3 109 0001:001A46E2 + 110 0001:001A46E7 111 0001:001A46F7 113 0001:001A46FF 116 0001:001A4788 + 117 0001:001A4799 118 0001:001A47AD 119 0001:001A47D9 120 0001:001A4818 + 121 0001:001A4843 122 0001:001A4855 123 0001:001A486E 124 0001:001A48B1 + 125 0001:001A48C1 111 0001:001A48C2 129 0001:001A48CA 130 0001:001A48DA + 132 0001:001A48ED 133 0001:001A48FB 134 0001:001A4909 135 0001:001A4917 + 136 0001:001A4925 137 0001:001A4933 139 0001:001A4949 141 0001:001A496C + 142 0001:001A49A8 143 0001:001A49C7 144 0001:001A4A03 145 0001:001A4A3F + 146 0001:001A4A7B 148 0001:001A4AB7 137 0001:001A4AB8 151 0001:001A4ACC + 153 0001:001A4B09 161 0001:001A4BF4 162 0001:001A4C22 163 0001:001A4C29 + 164 0001:001A4C44 165 0001:001A4C4A 166 0001:001A4C9D 167 0001:001A4CC4 + 168 0001:001A4CEB 169 0001:001A4D12 170 0001:001A4D39 171 0001:001A4D60 + 172 0001:001A4D87 173 0001:001A4DAB 174 0001:001A4DCF 175 0001:001A4DF3 + 177 0001:001A4E37 182 0001:001A4E40 185 0001:001A4E5E 186 0001:001A4E60 + 189 0001:001A4E69 190 0001:001A4EA2 187 0001:001A4EA3 192 0001:001A4EB8 + 194 0001:001A4EBE 195 0001:001A4EC8 196 0001:001A4ED4 197 0001:001A4EE0 + 200 0001:001A4F04 201 0001:001A4F0D 204 0001:001A4F3F 209 0001:001A4F48 + 211 0001:001A4F4C 213 0001:001A4F52 214 0001:001A4F60 215 0001:001A4F71 + 216 0001:001A4F84 217 0001:001A4F97 218 0001:001A4FAA 220 0001:001A4FBD + 221 0001:001A4FC7 229 0001:001A5014 231 0001:001A501D 232 0001:001A5036 + 233 0001:001A5042 235 0001:001A5059 236 0001:001A5069 238 0001:001A5077 + 241 0001:001A5080 243 0001:001A5086 244 0001:001A50A6 245 0001:001A50CA + 249 0001:001A50D0 251 0001:001A50D7 252 0001:001A50E8 253 0001:001A5108 + 254 0001:001A5128 256 0001:001A5146 257 0001:001A5150 262 0001:001A5158 + 264 0001:001A5185 266 0001:001A51EF 273 0001:001A51F8 276 0001:001A5203 + 277 0001:001A5224 279 0001:001A525D 280 0001:001A5264 281 0001:001A526B + 283 0001:001A5275 285 0001:001A527C 287 0001:001A52AB 289 0001:001A52B5 + 292 0001:001A52EE 294 0001:001A52FE 297 0001:001A531E 299 0001:001A5341 + 300 0001:001A5380 301 0001:001A53B0 304 0001:001A53E0 305 0001:001A5405 + 306 0001:001A5414 308 0001:001A5429 309 0001:001A5439 311 0001:001A5453 + 312 0001:001A5463 313 0001:001A5470 314 0001:001A5474 315 0001:001A5493 + 319 0001:001A54BD 320 0001:001A54E2 321 0001:001A551E 322 0001:001A552D + 323 0001:001A5534 324 0001:001A5541 328 0001:001A5568 329 0001:001A5577 + 330 0001:001A557E 331 0001:001A558B 332 0001:001A558F 333 0001:001A55AE + 337 0001:001A55D5 338 0001:001A55E4 339 0001:001A55EB 340 0001:001A55FC + 341 0001:001A5600 342 0001:001A561C 345 0001:001A5663 349 0001:001A5678 + 350 0001:001A5695 351 0001:001A56A6 352 0001:001A56C1 353 0001:001A56DC + 355 0001:001A56F7 356 0001:001A5710 359 0001:001A5745 364 0001:001A574C + 367 0001:001A5750 369 0001:001A576F 370 0001:001A577D 375 0001:001A5780 + 377 0001:001A579E 379 0001:001A57A7 381 0001:001A57CC 382 0001:001A57DC + 383 0001:001A57EC 384 0001:001A57FC 385 0001:001A580C 388 0001:001A5811 + 390 0001:001A5887 391 0001:001A5894 392 0001:001A58D3 397 0001:001A58F4 + 399 0001:001A58FB 400 0001:001A591C 401 0001:001A592E 405 0001:001A5934 + 406 0001:001A5942 415 0001:001A5944 417 0001:001A5966 418 0001:001A5976 + 419 0001:001A59A2 420 0001:001A59B0 421 0001:001A59CA 422 0001:001A59EC + 420 0001:001A5A88 423 0001:001A5ADC 426 0001:001A5AF0 428 0001:001A5AF3 + 429 0001:001A5AFC 430 0001:001A5B09 431 0001:001A5B0E 436 0001:001A5B10 + 438 0001:001A5B27 439 0001:001A5B4E 440 0001:001A5B5B 441 0001:001A5B7D + 448 0001:001A5B84 449 0001:001A5B92 454 0001:001A5B94 456 0001:001A5BAC + 457 0001:001A5BBA 458 0001:001A5BD3 459 0001:001A5BF9 460 0001:001A5C16 + 461 0001:001A5C23 462 0001:001A5C4D 465 0001:001A5C70 467 0001:001A5C86 + 468 0001:001A5CCD 476 0001:001A5CE0 478 0001:001A5CFE 479 0001:001A5D0F + 481 0001:001A5D18 482 0001:001A5D27 483 0001:001A5D4A 484 0001:001A5D67 + 485 0001:001A5D84 487 0001:001A5D92 488 0001:001A5DBE 489 0001:001A5DD0 + 490 0001:001A5DE6 491 0001:001A5DFC 492 0001:001A5E12 493 0001:001A5E1E + 495 0001:001A5E55 500 0001:001A5E68 502 0001:001A5E6D 503 0001:001A5E7B + 506 0001:001A5E94 507 0001:001A5EBD 508 0001:001A5ECB 510 0001:001A5EDD + 518 0001:001A5EE4 519 0001:001A5EEA 520 0001:001A5F11 521 0001:001A5F24 + 523 0001:001A5F34 524 0001:001A5F5A 525 0001:001A5F62 527 0001:001A5F82 + 529 0001:001A5FA4 530 0001:001A5FE4 531 0001:001A601D 532 0001:001A6056 + 534 0001:001A6094 535 0001:001A60B4 536 0001:001A60C3 537 0001:001A60EE + 540 0001:001A6133 525 0001:001A6134 541 0001:001A616A 546 0001:001A6258 + 548 0001:001A626E 549 0001:001A627C 550 0001:001A6286 551 0001:001A62A4 + 552 0001:001A62CB 557 0001:001A62E0 558 0001:001A62E5 562 0001:001A6318 + 562 0001:001A631F + +Line numbers for fODMedOut(Orders\fODMedOut.pas) segment .text + + 117 0001:001A67E8 118 0001:001A67FE 119 0001:001A6805 120 0001:001A680C + 121 0001:001A6814 123 0001:001A6820 124 0001:001A682F 125 0001:001A6836 + 127 0001:001A6838 128 0001:001A6844 129 0001:001A684E 130 0001:001A685E + 131 0001:001A6868 132 0001:001A687A 133 0001:001A6884 134 0001:001A689A + 135 0001:001A68C4 138 0001:001A695C 139 0001:001A6960 140 0001:001A6967 + 141 0001:001A696F 142 0001:001A697A 143 0001:001A6985 144 0001:001A6991 + 146 0001:001A6997 147 0001:001A69A9 149 0001:001A69B4 150 0001:001A69C6 + 152 0001:001A69D8 154 0001:001A69EA 155 0001:001A69F1 156 0001:001A69FB + 157 0001:001A6A08 158 0001:001A6A15 159 0001:001A6A22 160 0001:001A6A2F + 161 0001:001A6A36 162 0001:001A6A3D 167 0001:001A6AB8 168 0001:001A6ADD + 169 0001:001A6AE9 170 0001:001A6B08 172 0001:001A6B21 173 0001:001A6B28 + 174 0001:001A6B3C 175 0001:001A6B43 176 0001:001A6B4A 178 0001:001A6B51 + 179 0001:001A6B65 180 0001:001A6B6C 181 0001:001A6B80 182 0001:001A6B94 + 183 0001:001A6BB9 184 0001:001A6BCD 185 0001:001A6BE1 187 0001:001A6BF5 + 189 0001:001A6C13 190 0001:001A6C1E 191 0001:001A6C28 192 0001:001A6C35 + 193 0001:001A6C42 194 0001:001A6C5E 197 0001:001A6C6C 198 0001:001A6C7D + 199 0001:001A6C8A 200 0001:001A6C91 202 0001:001A6C9A 203 0001:001A6CE4 + 211 0001:001A6D6C 212 0001:001A6D72 213 0001:001A6D99 214 0001:001A6DAC + 216 0001:001A6DBC 217 0001:001A6DE1 218 0001:001A6DEB 220 0001:001A6E11 + 222 0001:001A6E21 223 0001:001A6E47 224 0001:001A6E72 225 0001:001A6EA0 + 226 0001:001A6EAC 228 0001:001A6ED5 229 0001:001A6EF1 230 0001:001A6F00 + 231 0001:001A6F0E 233 0001:001A6F2B 235 0001:001A6F51 236 0001:001A6F84 + 237 0001:001A6FB0 238 0001:001A6FD4 240 0001:001A6FF4 241 0001:001A700A + 243 0001:001A7013 244 0001:001A703A 245 0001:001A7075 246 0001:001A70C7 + 247 0001:001A70EA 248 0001:001A712C 249 0001:001A7159 251 0001:001A71A5 + 253 0001:001A71B5 255 0001:001A71D7 259 0001:001A725C 264 0001:001A7630 + 265 0001:001A7633 266 0001:001A763E 267 0001:001A7649 268 0001:001A7656 + 269 0001:001A7661 270 0001:001A766C 271 0001:001A7677 272 0001:001A7687 + 273 0001:001A7696 274 0001:001A76A1 275 0001:001A76AC 278 0001:001A76BC + 279 0001:001A76D7 281 0001:001A76DD 282 0001:001A76E9 283 0001:001A7714 + 284 0001:001A7753 285 0001:001A7760 287 0001:001A778F 290 0001:001A77AC + 291 0001:001A77CE 293 0001:001A77D4 294 0001:001A77F0 295 0001:001A7809 + 296 0001:001A781B 297 0001:001A783C 298 0001:001A7859 299 0001:001A787D + 300 0001:001A788F 301 0001:001A7896 302 0001:001A78A8 303 0001:001A78C9 + 304 0001:001A78FB 306 0001:001A794E 311 0001:001A79D0 313 0001:001A79D9 + 314 0001:001A79F5 318 0001:001A7A0C 320 0001:001A7A31 322 0001:001A7A37 + 323 0001:001A7A7A 324 0001:001A7A81 325 0001:001A7A90 326 0001:001A7A97 + 328 0001:001A7ABD 329 0001:001A7AE7 331 0001:001A7AFF 333 0001:001A7B1B + 335 0001:001A7B2B 336 0001:001A7B3F 337 0001:001A7B53 338 0001:001A7B5A + 339 0001:001A7B6E 340 0001:001A7B82 341 0001:001A7BA7 342 0001:001A7BBB + 343 0001:001A7BCF 345 0001:001A7BE3 346 0001:001A7BEA 347 0001:001A7BF3 + 349 0001:001A7C08 350 0001:001A7C6F 358 0001:001A7CE8 359 0001:001A7D06 + 361 0001:001A7D53 362 0001:001A7D6F 364 0001:001A7D75 366 0001:001A7D93 + 367 0001:001A7DA1 368 0001:001A7DB2 370 0001:001A7DBB 373 0001:001A7DCC + 374 0001:001A7E02 377 0001:001A7E18 378 0001:001A7E36 380 0001:001A7E84 + 381 0001:001A7EC8 383 0001:001A7EF1 384 0001:001A7F09 387 0001:001A7F4D + 392 0001:001A7F54 394 0001:001A7F6F 395 0001:001A7F76 397 0001:001A7F7C + 398 0001:001A7FA0 400 0001:001A7FB5 401 0001:001A7FD4 403 0001:001A7FF9 + 405 0001:001A8030 408 0001:001A8044 410 0001:001A805B 411 0001:001A8062 + 413 0001:001A8068 414 0001:001A808C 415 0001:001A80BA 417 0001:001A80E4 + 424 0001:001A80EC 425 0001:001A80F0 426 0001:001A810C 430 0001:001A8122 + 431 0001:001A813C 432 0001:001A8148 433 0001:001A814E 434 0001:001A815B + 435 0001:001A8174 436 0001:001A818B 437 0001:001A81A9 440 0001:001A81B9 + 442 0001:001A81C6 444 0001:001A81E0 449 0001:001A81F4 451 0001:001A81FB + 452 0001:001A821C 453 0001:001A822E 457 0001:001A8234 458 0001:001A8242 + 461 0001:001A8244 462 0001:001A8247 463 0001:001A8254 464 0001:001A8261 + 465 0001:001A826E 466 0001:001A827B 467 0001:001A8288 468 0001:001A8295 + 469 0001:001A82A2 470 0001:001A82AF 471 0001:001A82BF 474 0001:001A82DC + 475 0001:001A82F2 476 0001:001A82FF 477 0001:001A830C 478 0001:001A8319 + 479 0001:001A8326 480 0001:001A8333 481 0001:001A836A 482 0001:001A8377 + 483 0001:001A8384 484 0001:001A83B1 490 0001:001A83D0 491 0001:001A83F2 + 493 0001:001A8412 495 0001:001A8420 496 0001:001A843F 497 0001:001A8466 + 498 0001:001A847E 499 0001:001A84AB 500 0001:001A84C3 503 0001:001A84CF + 504 0001:001A84E3 505 0001:001A84FA 506 0001:001A851E 507 0001:001A8535 + 508 0001:001A8562 509 0001:001A8579 512 0001:001A8585 513 0001:001A8593 + 514 0001:001A85A7 516 0001:001A85AF 517 0001:001A85C5 518 0001:001A85F3 + 519 0001:001A8621 520 0001:001A864F 521 0001:001A8671 522 0001:001A86A4 + 523 0001:001A86B8 514 0001:001A86CC 525 0001:001A86D4 528 0001:001A86DB + 529 0001:001A8719 532 0001:001A8790 534 0001:001A8793 536 0001:001A87A8 + 537 0001:001A87B9 539 0001:001A87BB 540 0001:001A87D7 545 0001:001A8810 + 547 0001:001A8827 548 0001:001A8878 556 0001:001A8880 557 0001:001A8883 + 559 0001:001A889F 560 0001:001A88B2 561 0001:001A88BF 562 0001:001A88CF + 565 0001:001A88FE 566 0001:001A8911 567 0001:001A891E 568 0001:001A892E + 570 0001:001A893C 573 0001:001A8940 575 0001:001A8956 576 0001:001A8985 + 583 0001:001A898C 584 0001:001A8993 589 0001:001A8994 591 0001:001A89B6 + 592 0001:001A89C0 593 0001:001A89CD 594 0001:001A89E6 595 0001:001A8A01 + 596 0001:001A8A5F 597 0001:001A8A78 598 0001:001A8A93 599 0001:001A8AF1 + 600 0001:001A8B0A 602 0001:001A8B1A 603 0001:001A8B51 604 0001:001A8B8E + 605 0001:001A8B9E 606 0001:001A8BFC 607 0001:001A8C2D 609 0001:001A8C64 + 610 0001:001A8C9B 611 0001:001A8CD8 612 0001:001A8D2C 613 0001:001A8D80 + 614 0001:001A8DB4 615 0001:001A8E13 616 0001:001A8F26 618 0001:001A902C + 618 0001:001A9033 + +Line numbers for fODText(Orders\fODText.pas) segment .text + + 43 0001:001A9248 44 0001:001A924B 45 0001:001A9252 46 0001:001A925E + 47 0001:001A9268 50 0001:001A9278 51 0001:001A9282 52 0001:001A9289 + 55 0001:001A92E4 56 0001:001A92E7 57 0001:001A92EE 58 0001:001A92FB + 61 0001:001A9300 62 0001:001A9306 63 0001:001A930F 65 0001:001A9322 + 66 0001:001A9336 67 0001:001A934A 69 0001:001A9361 70 0001:001A9371 + 81 0001:001A93B0 82 0001:001A93B6 83 0001:001A93DD 84 0001:001A93F0 + 86 0001:001A9400 87 0001:001A9430 88 0001:001A943A 89 0001:001A943E + 91 0001:001A9478 92 0001:001A947C 93 0001:001A947E 89 0001:001A947F + 94 0001:001A9482 95 0001:001A9494 96 0001:001A94B0 97 0001:001A94C8 + 98 0001:001A94D0 99 0001:001A94EC 100 0001:001A9504 101 0001:001A950C + 102 0001:001A9526 103 0001:001A9540 110 0001:001A9587 113 0001:001A9618 + 115 0001:001A9637 116 0001:001A9644 117 0001:001A967D 118 0001:001A96CA + 119 0001:001A9717 120 0001:001A975D 122 0001:001A97D4 122 0001:001A97DB + +Line numbers for DBConsts(DBConsts.pas) segment .text + + 135 0001:001A982C 135 0001:001A9833 + +Line numbers for SqlTimSt(SqlTimSt.pas) segment .text + + 167 0001:001A9AB4 168 0001:001A9ABD 175 0001:001A9B0D 180 0001:001A9B14 + 181 0001:001A9B1D 182 0001:001A9B2E 188 0001:001A9B34 191 0001:001A9B42 + 192 0001:001A9B56 189 0001:001A9B6A 194 0001:001A9B7E 200 0001:001A9B84 + 201 0001:001A9B90 204 0001:001A9B9D 205 0001:001A9BB1 206 0001:001A9BB7 + 208 0001:001A9BC4 209 0001:001A9BCF 210 0001:001A9BDA 202 0001:001A9BE5 + 212 0001:001A9BFB 218 0001:001A9C00 221 0001:001A9C0E 222 0001:001A9C22 + 223 0001:001A9C36 219 0001:001A9C41 225 0001:001A9C56 231 0001:001A9C5C + 234 0001:001A9C6A 235 0001:001A9C7E 236 0001:001A9C92 232 0001:001A9C9D + 238 0001:001A9CB2 244 0001:001A9CB8 247 0001:001A9CC6 248 0001:001A9CDA + 249 0001:001A9CEE 245 0001:001A9CF9 251 0001:001A9D0E 254 0001:001A9D14 + 255 0001:001A9D20 257 0001:001A9D26 258 0001:001A9D31 259 0001:001A9D3C + 260 0001:001A9D47 261 0001:001A9D52 264 0001:001A9D5F 265 0001:001A9D6A + 266 0001:001A9D75 267 0001:001A9D80 268 0001:001A9D8B 270 0001:001A9D96 + 273 0001:001A9D9C 274 0001:001A9DA5 275 0001:001A9DC1 278 0001:001A9DC8 + 279 0001:001A9DD4 280 0001:001A9DE2 281 0001:001A9DF0 282 0001:001A9DFE + 283 0001:001A9E0C 284 0001:001A9E1A 285 0001:001A9E28 286 0001:001A9E34 + 287 0001:001A9E3E 290 0001:001A9E44 291 0001:001A9E50 293 0001:001A9E5C + 294 0001:001A9E6A 295 0001:001A9E78 296 0001:001A9E86 297 0001:001A9E94 + 298 0001:001A9EA2 299 0001:001A9EB0 300 0001:001A9EBC 302 0001:001A9EC6 + 307 0001:001A9ECC 308 0001:001A9ED8 309 0001:001A9EEB 310 0001:001A9EF1 + 311 0001:001A9F04 312 0001:001A9F0A 313 0001:001A9F1D 314 0001:001A9F23 + 315 0001:001A9F36 316 0001:001A9F3C 317 0001:001A9F4F 318 0001:001A9F55 + 319 0001:001A9F68 320 0001:001A9F6E 321 0001:001A9F81 322 0001:001A9F87 + 323 0001:001A9F96 324 0001:001A9F9C 326 0001:001A9FA2 327 0001:001A9FA8 + 329 0001:001A9FAE 330 0001:001A9FB5 333 0001:001A9FBC 334 0001:001A9FC8 + 335 0001:001A9FD8 338 0001:001A9FDC 339 0001:001A9FE5 340 0001:001A9FF7 + 343 0001:001A9FFC 344 0001:001AA00A 345 0001:001AA022 348 0001:001AA028 + 349 0001:001AA033 350 0001:001AA04E 367 0001:001AA058 368 0001:001AA072 + 369 0001:001AA07C 370 0001:001AA0B2 375 0001:001AA0BC 376 0001:001AA0D9 + 377 0001:001AA0E4 378 0001:001AA0EE 379 0001:001AA116 382 0001:001AA11C + 383 0001:001AA137 384 0001:001AA13F 385 0001:001AA149 386 0001:001AA177 + 389 0001:001AA17C 390 0001:001AA197 391 0001:001AA1C2 394 0001:001AA1C8 + 396 0001:001AA1D5 397 0001:001AA1E0 400 0001:001AA1E4 401 0001:001AA1F0 + 402 0001:001AA1F9 405 0001:001AA200 407 0001:001AA20D 408 0001:001AA218 + 411 0001:001AA21C 413 0001:001AA229 414 0001:001AA234 417 0001:001AA238 + 419 0001:001AA245 420 0001:001AA250 423 0001:001AA254 425 0001:001AA261 + 426 0001:001AA26C 429 0001:001AA270 430 0001:001AA27D 431 0001:001AA288 + 436 0001:001AA28C 437 0001:001AA298 438 0001:001AA2A0 439 0001:001AA2AB + 445 0001:001AA2B0 446 0001:001AA2D3 447 0001:001AA2DE 448 0001:001AA2EC + 449 0001:001AA2FA 450 0001:001AA309 453 0001:001AA32E 454 0001:001AA339 + 455 0001:001AA347 456 0001:001AA357 458 0001:001AA37C 461 0001:001AA38F + 463 0001:001AA3A9 465 0001:001AA3D9 471 0001:001AA3E0 472 0001:001AA409 + 473 0001:001AA41C 475 0001:001AA42E 477 0001:001AA45A 479 0001:001AA478 + 480 0001:001AA483 481 0001:001AA491 482 0001:001AA497 483 0001:001AA4A6 + 485 0001:001AA4C6 489 0001:001AA4D9 490 0001:001AA516 493 0001:001AA520 + 494 0001:001AA52F 495 0001:001AA544 499 0001:001AA554 500 0001:001AA561 + 502 0001:001AA579 505 0001:001AA580 506 0001:001AA58C 507 0001:001AA598 + 510 0001:001AA59C 511 0001:001AA5AB 513 0001:001AA5B7 515 0001:001AA5CA + 517 0001:001AA5DD 519 0001:001AA5E5 522 0001:001AA5EC 523 0001:001AA5FB + 524 0001:001AA611 591 0001:001AA618 592 0001:001AA62F 593 0001:001AA63B + 594 0001:001AA64C 597 0001:001AA654 598 0001:001AA65D 600 0001:001AA6A0 + 602 0001:001AA6A6 603 0001:001AA6AD 608 0001:001AA6B4 609 0001:001AA6C2 + 610 0001:001AA6D0 612 0001:001AA6D6 613 0001:001AA6F0 615 0001:001AA6FB + 616 0001:001AA701 617 0001:001AA712 620 0001:001AA718 621 0001:001AA737 + 622 0001:001AA746 623 0001:001AA784 628 0001:001AA788 631 0001:001AA791 + 632 0001:001AA7AB 633 0001:001AA7B5 634 0001:001AA7D6 636 0001:001AA7E0 + 639 0001:001AA7E8 640 0001:001AA7F1 641 0001:001AA7FD 644 0001:001AA807 + 645 0001:001AA824 646 0001:001AA832 648 0001:001AA85D 650 0001:001AA889 + 661 0001:001AA894 662 0001:001AA8AE 665 0001:001AA8E9 666 0001:001AA905 + 669 0001:001AA947 670 0001:001AA968 671 0001:001AA985 673 0001:001AA9A3 + 675 0001:001AA9E6 680 0001:001AA9EC 681 0001:001AAA24 677 0001:001AAA28 + 678 0001:001AAA34 679 0001:001AAA45 + +Line numbers for FMTBcd(FMTBcd.pas) segment .text + + 184 0001:001AACF8 185 0001:001AAD17 186 0001:001AAD63 189 0001:001AAD68 + 190 0001:001AAD6F 191 0001:001AAD83 194 0001:001AAD88 195 0001:001AAD8F + 196 0001:001AADA3 203 0001:001AADA8 204 0001:001AADB6 205 0001:001AADC7 + 206 0001:001AADD9 209 0001:001AADE0 210 0001:001AADEC 211 0001:001AADFA + 216 0001:001AAE00 217 0001:001AAE0E 218 0001:001AAE1F 219 0001:001AAE31 + 222 0001:001AAE38 223 0001:001AAE44 224 0001:001AAE52 229 0001:001AAE58 + 230 0001:001AAE66 231 0001:001AAE7A 232 0001:001AAE8C 237 0001:001AAE94 + 238 0001:001AAEA2 239 0001:001AAEB6 240 0001:001AAEC8 243 0001:001AAED0 + 244 0001:001AAEDC 245 0001:001AAEF4 248 0001:001AAEF8 249 0001:001AAF04 + 250 0001:001AAF12 253 0001:001AAF18 254 0001:001AAF34 255 0001:001AAF6E + 258 0001:001AAF74 259 0001:001AAF90 260 0001:001AAFC9 263 0001:001AAFD0 + 264 0001:001AAFD9 265 0001:001AAFE9 268 0001:001AAFF0 269 0001:001AAFF9 + 270 0001:001AB00A 273 0001:001AB010 274 0001:001AB01E 275 0001:001AB03B + 278 0001:001AB044 279 0001:001AB062 280 0001:001AB0AE 283 0001:001AB0B8 + 284 0001:001AB0D9 285 0001:001AB11E 288 0001:001AB124 289 0001:001AB131 + 290 0001:001AB13D 293 0001:001AB144 294 0001:001AB14B 295 0001:001AB166 + 298 0001:001AB16C 299 0001:001AB187 300 0001:001AB191 301 0001:001AB1BF + 311 0001:001AB1C4 312 0001:001AB1F7 313 0001:001AB214 314 0001:001AB22C + 315 0001:001AB241 316 0001:001AB28B 329 0001:001AB294 330 0001:001AB2C3 + 331 0001:001AB2CE 332 0001:001AB2E6 333 0001:001AB2FB 334 0001:001AB340 + 337 0001:001AB348 338 0001:001AB363 339 0001:001AB38E 344 0001:001AB394 + 345 0001:001AB3A0 346 0001:001AB3A8 347 0001:001AB3B3 353 0001:001AB3B8 + 354 0001:001AB3DB 355 0001:001AB3E6 356 0001:001AB3F4 357 0001:001AB402 + 358 0001:001AB411 361 0001:001AB43A 362 0001:001AB445 363 0001:001AB453 + 364 0001:001AB463 366 0001:001AB48E 369 0001:001AB4A1 371 0001:001AB4BB + 373 0001:001AB4EB 379 0001:001AB4F0 380 0001:001AB519 381 0001:001AB52C + 383 0001:001AB53E 385 0001:001AB56A 387 0001:001AB588 388 0001:001AB593 + 389 0001:001AB5A1 390 0001:001AB5A7 391 0001:001AB5B9 393 0001:001AB5D9 + 397 0001:001AB5EC 398 0001:001AB629 401 0001:001AB630 402 0001:001AB63F + 403 0001:001AB654 407 0001:001AB664 408 0001:001AB671 410 0001:001AB689 + 413 0001:001AB690 414 0001:001AB69F 416 0001:001AB6B1 418 0001:001AB6C4 + 420 0001:001AB6D7 422 0001:001AB6EA 424 0001:001AB6FD 426 0001:001AB705 + 429 0001:001AB70C 430 0001:001AB718 431 0001:001AB724 434 0001:001AB728 + 435 0001:001AB737 436 0001:001AB74D 484 0001:001AB754 485 0001:001AB773 + 486 0001:001AB781 487 0001:001AB787 488 0001:001AB7BC 513 0001:001AB7C0 + 514 0001:001AB7DC 515 0001:001AB813 535 0001:001AB818 536 0001:001AB83F + 537 0001:001AB849 538 0001:001AB863 539 0001:001AB878 540 0001:001AB880 + 542 0001:001AB8A2 543 0001:001AB8B4 544 0001:001AB8BB 545 0001:001AB8C3 + 548 0001:001AB8D0 549 0001:001AB8DA 550 0001:001AB8E0 551 0001:001AB8E4 + 552 0001:001AB8E7 553 0001:001AB8F1 546 0001:001AB8FC 555 0001:001AB915 + 557 0001:001AB91D 558 0001:001AB923 560 0001:001AB94B 562 0001:001AB962 + 563 0001:001AB98F 566 0001:001AB9A0 567 0001:001AB9AC 569 0001:001AB9B9 + 568 0001:001AB9D9 570 0001:001AB9F0 573 0001:001AB9F4 574 0001:001ABA24 + 575 0001:001ABA3A 576 0001:001ABA50 577 0001:001ABA59 578 0001:001ABA6F + 580 0001:001ABA78 581 0001:001ABAB3 587 0001:001ABAB8 588 0001:001ABAFA + 589 0001:001ABB04 590 0001:001ABB0B 592 0001:001ABB19 593 0001:001ABB24 + 594 0001:001ABB2F 595 0001:001ABB37 598 0001:001ABB41 599 0001:001ABB4C + 600 0001:001ABB57 601 0001:001ABB5F 604 0001:001ABB67 605 0001:001ABB82 + 606 0001:001ABB9D 607 0001:001ABBA9 610 0001:001ABBB7 612 0001:001ABBBD + 613 0001:001ABBEC 614 0001:001ABBF9 616 0001:001ABBFE 618 0001:001ABC04 + 619 0001:001ABC33 620 0001:001ABC40 623 0001:001ABC74 628 0001:001ABC80 + 629 0001:001ABC8F 630 0001:001ABCA4 632 0001:001ABCAA 633 0001:001ABCBB + 636 0001:001ABCC3 637 0001:001ABCD1 639 0001:001ABCD7 640 0001:001ABCEC + 645 0001:001ABD00 646 0001:001ABD0F 647 0001:001ABD24 649 0001:001ABD2A + 650 0001:001ABD3B 653 0001:001ABD43 654 0001:001ABD51 656 0001:001ABD57 + 665 0001:001ABD60 666 0001:001ABD83 668 0001:001ABD98 669 0001:001ABDA3 + 671 0001:001ABDA8 673 0001:001ABDBD 674 0001:001ABDC8 676 0001:001ABDCD + 677 0001:001ABDD1 678 0001:001ABDDC 679 0001:001ABDE7 680 0001:001ABDF2 + 681 0001:001ABDFD 682 0001:001ABE0B 683 0001:001ABE13 685 0001:001ABE24 + 686 0001:001ABE2D 687 0001:001ABE36 688 0001:001ABE50 689 0001:001ABE6A + 690 0001:001ABE7C 691 0001:001ABE8C 683 0001:001ABE8F 692 0001:001ABE94 + 693 0001:001ABE9A 694 0001:001ABEC9 703 0001:001ABEE8 704 0001:001ABF11 + 706 0001:001ABF20 707 0001:001ABF2B 708 0001:001ABF36 711 0001:001ABF40 + 712 0001:001ABF4B 713 0001:001ABF56 715 0001:001ABF63 717 0001:001ABF6F + 719 0001:001ABF92 721 0001:001ABFB0 722 0001:001ABFBF 723 0001:001ABFCF + 724 0001:001ABFDE 726 0001:001ABFF0 727 0001:001ABFFB 729 0001:001AC000 + 730 0001:001AC004 731 0001:001AC00F 732 0001:001AC01A 733 0001:001AC025 + 734 0001:001AC030 735 0001:001AC03E 736 0001:001AC046 738 0001:001AC057 + 739 0001:001AC060 740 0001:001AC069 741 0001:001AC083 742 0001:001AC09D + 743 0001:001AC0AF 744 0001:001AC0BF 736 0001:001AC0C2 745 0001:001AC0C7 + 746 0001:001AC0FE 755 0001:001AC11C 756 0001:001AC154 757 0001:001AC15E + 758 0001:001AC18E 759 0001:001AC199 760 0001:001AC1A0 761 0001:001AC1A5 + 763 0001:001AC1B1 764 0001:001AC1CE 765 0001:001AC1D4 766 0001:001AC1DF + 761 0001:001AC1E2 767 0001:001AC1E8 768 0001:001AC1F7 770 0001:001AC204 + 771 0001:001AC214 772 0001:001AC21A 773 0001:001AC260 774 0001:001AC266 + 775 0001:001AC2B4 776 0001:001AC2BA 778 0001:001AC323 784 0001:001AC32C + 785 0001:001AC332 786 0001:001AC33E 787 0001:001AC350 788 0001:001AC35D + 790 0001:001AC370 791 0001:001AC371 792 0001:001AC372 793 0001:001AC373 + 794 0001:001AC374 795 0001:001AC376 796 0001:001AC379 797 0001:001AC37C + 798 0001:001AC380 799 0001:001AC384 800 0001:001AC388 801 0001:001AC38A + 802 0001:001AC38C 803 0001:001AC38F 804 0001:001AC391 805 0001:001AC394 + 806 0001:001AC397 807 0001:001AC39B 808 0001:001AC39D 809 0001:001AC39F + 810 0001:001AC3A2 811 0001:001AC3A4 812 0001:001AC3A7 813 0001:001AC3AB + 814 0001:001AC3AD 815 0001:001AC3B0 816 0001:001AC3B2 817 0001:001AC3B3 + 818 0001:001AC3B4 819 0001:001AC3B5 821 0001:001AC3B6 822 0001:001AC3C0 + 823 0001:001AC3E0 835 0001:001AC3E8 836 0001:001AC413 837 0001:001AC41D + 838 0001:001AC44D 839 0001:001AC458 840 0001:001AC463 841 0001:001AC46E + 842 0001:001AC476 844 0001:001AC486 845 0001:001AC48C 847 0001:001AC4BF + 848 0001:001AC4E6 849 0001:001AC4FF 850 0001:001AC50C 842 0001:001AC50F + 851 0001:001AC519 853 0001:001AC526 852 0001:001AC546 854 0001:001AC550 + 856 0001:001AC55D 857 0001:001AC56D 858 0001:001AC573 859 0001:001AC5B9 + 860 0001:001AC5BF 861 0001:001AC60D 862 0001:001AC613 863 0001:001AC645 + 865 0001:001AC6A3 871 0001:001AC6B8 872 0001:001AC6BC 874 0001:001AC6C6 + 875 0001:001AC6C7 876 0001:001AC6C8 877 0001:001AC6C9 878 0001:001AC6CA + 879 0001:001AC6CB 880 0001:001AC6CE 881 0001:001AC6D2 882 0001:001AC6D4 + 883 0001:001AC6D6 884 0001:001AC6D9 885 0001:001AC6DB 886 0001:001AC6DD + 887 0001:001AC6DF 888 0001:001AC6E2 889 0001:001AC6E5 890 0001:001AC6E7 + 891 0001:001AC6E9 892 0001:001AC6EB 893 0001:001AC6ED 894 0001:001AC6EF + 895 0001:001AC6F2 896 0001:001AC6F4 897 0001:001AC6F7 898 0001:001AC6F9 + 899 0001:001AC6FC 900 0001:001AC6FE 901 0001:001AC700 902 0001:001AC702 + 903 0001:001AC705 904 0001:001AC707 905 0001:001AC70A 906 0001:001AC70C + 907 0001:001AC70F 908 0001:001AC711 909 0001:001AC713 910 0001:001AC717 + 911 0001:001AC718 912 0001:001AC719 913 0001:001AC71A 914 0001:001AC71B + 916 0001:001AC71F 922 0001:001AC724 923 0001:001AC72D 924 0001:001AC731 + 925 0001:001AC747 927 0001:001AC759 928 0001:001AC75D 929 0001:001AC75F + 924 0001:001AC762 930 0001:001AC76A 933 0001:001AC770 934 0001:001AC77F + 935 0001:001AC797 936 0001:001AC7A6 937 0001:001AC7C3 939 0001:001AC7D3 + 940 0001:001AC7E1 943 0001:001AC7F4 944 0001:001AC81D 945 0001:001AC828 + 948 0001:001AC837 949 0001:001AC855 946 0001:001AC87B 951 0001:001AC8AE + 956 0001:001AC8C4 957 0001:001AC8F7 958 0001:001AC901 960 0001:001AC90E + 959 0001:001AC92E 961 0001:001AC938 962 0001:001AC93F 963 0001:001AC956 + 964 0001:001AC95D 967 0001:001AC9B9 968 0001:001AC9CD 969 0001:001AC9F9 + 971 0001:001ACA0D 974 0001:001ACA92 982 0001:001ACAA8 983 0001:001ACAD4 + 984 0001:001ACADE 985 0001:001ACAF8 987 0001:001ACB03 988 0001:001ACB10 + 989 0001:001ACB15 991 0001:001ACB24 994 0001:001ACB42 995 0001:001ACB52 + 996 0001:001ACB6E 992 0001:001ACB72 999 0001:001ACB81 1002 0001:001ACBB0 + 1003 0001:001ACBBD 1005 0001:001ACBCA 1006 0001:001ACC0B 1009 0001:001ACC2D + 1010 0001:001ACC3A 1011 0001:001ACC45 1012 0001:001ACC52 1013 0001:001ACC6B + 1014 0001:001ACC7A 1015 0001:001ACC87 1018 0001:001ACC91 1019 0001:001ACCB1 + 1016 0001:001ACCC1 1021 0001:001ACCE5 1023 0001:001ACD38 1028 0001:001ACD64 + 1030 0001:001ACD97 1032 0001:001ACDD0 1033 0001:001ACDF9 1034 0001:001ACE24 + 1035 0001:001ACE4F 1036 0001:001ACE78 1037 0001:001ACE83 1038 0001:001ACE9E + 1039 0001:001ACEA4 1040 0001:001ACEE0 1043 0001:001ACEF4 1044 0001:001ACF17 + 1046 0001:001ACF2F 1047 0001:001ACF44 1049 0001:001ACF56 1051 0001:001ACF6D + 1052 0001:001ACF7C 1053 0001:001ACF89 1054 0001:001ACF98 1055 0001:001ACFAA + 1056 0001:001ACFB9 1058 0001:001ACFC8 1059 0001:001ACFF3 1063 0001:001AD028 + 1064 0001:001AD02A 1065 0001:001AD02D 1066 0001:001AD02F 1067 0001:001AD031 + 1068 0001:001AD034 1069 0001:001AD035 1071 0001:001AD037 1075 0001:001AD038 + 1076 0001:001AD03A 1077 0001:001AD03D 1078 0001:001AD03F 1079 0001:001AD041 + 1080 0001:001AD044 1081 0001:001AD045 1083 0001:001AD047 1087 0001:001AD048 + 1088 0001:001AD04B 1089 0001:001AD04D 1090 0001:001AD04E 1091 0001:001AD051 + 1092 0001:001AD052 1093 0001:001AD055 1096 0001:001AD057 1100 0001:001AD058 + 1101 0001:001AD05A 1102 0001:001AD05C 1103 0001:001AD05E 1104 0001:001AD061 + 1105 0001:001AD063 1106 0001:001AD065 1107 0001:001AD067 1108 0001:001AD069 + 1109 0001:001AD06A 1110 0001:001AD06C 1111 0001:001AD06F 1112 0001:001AD072 + 1113 0001:001AD075 1114 0001:001AD077 1115 0001:001AD079 1116 0001:001AD07A + 1117 0001:001AD07D 1119 0001:001AD07F 1123 0001:001AD080 1124 0001:001AD083 + 1125 0001:001AD085 1126 0001:001AD087 1127 0001:001AD088 1128 0001:001AD08B + 1130 0001:001AD08D 1133 0001:001AD090 1135 0001:001AD093 1136 0001:001AD094 + 1137 0001:001AD095 1138 0001:001AD096 1139 0001:001AD097 1140 0001:001AD098 + 1141 0001:001AD09B 1142 0001:001AD09E 1143 0001:001AD0A1 1144 0001:001AD0A4 + 1145 0001:001AD0A7 1146 0001:001AD0A9 1147 0001:001AD0AC 1148 0001:001AD0AE + 1149 0001:001AD0B1 1150 0001:001AD0B4 1152 0001:001AD0B7 1153 0001:001AD0BA + 1154 0001:001AD0C0 1155 0001:001AD0C1 1156 0001:001AD0C3 1157 0001:001AD0C5 + 1158 0001:001AD0C7 1159 0001:001AD0CA 1160 0001:001AD0CD 1161 0001:001AD0D0 + 1162 0001:001AD0D2 1163 0001:001AD0D5 1164 0001:001AD0D8 1165 0001:001AD0DA + 1166 0001:001AD0DC 1167 0001:001AD0DF 1168 0001:001AD0E1 1169 0001:001AD0E4 + 1170 0001:001AD0E7 1171 0001:001AD0E9 1172 0001:001AD0EE 1173 0001:001AD0F1 + 1174 0001:001AD0F4 1175 0001:001AD0F6 1176 0001:001AD0F9 1177 0001:001AD0FE + 1178 0001:001AD100 1179 0001:001AD103 1180 0001:001AD108 1181 0001:001AD10B + 1182 0001:001AD10D 1183 0001:001AD10F 1184 0001:001AD114 1186 0001:001AD116 + 1187 0001:001AD119 1188 0001:001AD11C 1189 0001:001AD11E 1190 0001:001AD121 + 1191 0001:001AD124 1192 0001:001AD126 1193 0001:001AD128 1194 0001:001AD129 + 1195 0001:001AD12C 1196 0001:001AD12E 1197 0001:001AD12F 1198 0001:001AD131 + 1199 0001:001AD134 1200 0001:001AD136 1201 0001:001AD137 1202 0001:001AD139 + 1203 0001:001AD13C 1204 0001:001AD13F 1205 0001:001AD141 1207 0001:001AD143 + 1208 0001:001AD146 1209 0001:001AD149 1210 0001:001AD14C 1211 0001:001AD14E + 1212 0001:001AD150 1213 0001:001AD152 1214 0001:001AD155 1215 0001:001AD15A + 1216 0001:001AD15D 1217 0001:001AD160 1218 0001:001AD162 1219 0001:001AD165 + 1220 0001:001AD16A 1221 0001:001AD16B 1222 0001:001AD16C 1223 0001:001AD16D + 1224 0001:001AD16E 1225 0001:001AD16F 1230 0001:001AD174 1231 0001:001AD178 + 1234 0001:001AD182 1235 0001:001AD183 1236 0001:001AD184 1237 0001:001AD185 + 1238 0001:001AD188 1239 0001:001AD18B 1240 0001:001AD18D 1241 0001:001AD191 + 1242 0001:001AD193 1243 0001:001AD194 1244 0001:001AD195 1245 0001:001AD198 + 1246 0001:001AD19A 1247 0001:001AD19C 1248 0001:001AD19F 1249 0001:001AD1A1 + 1250 0001:001AD1A4 1251 0001:001AD1A6 1252 0001:001AD1A8 1253 0001:001AD1AA + 1254 0001:001AD1AB 1255 0001:001AD1AD 1256 0001:001AD1AF 1257 0001:001AD1B2 + 1258 0001:001AD1B4 1259 0001:001AD1B6 1260 0001:001AD1B7 1261 0001:001AD1B8 + 1262 0001:001AD1B9 1264 0001:001AD1BA 1270 0001:001AD1C0 1271 0001:001AD1CB + 1272 0001:001AD1D5 1273 0001:001AD1DB 1276 0001:001AD1E1 1278 0001:001AD20C + 1279 0001:001AD210 1281 0001:001AD212 1274 0001:001AD215 1283 0001:001AD220 + 1294 0001:001AD248 1295 0001:001AD267 1296 0001:001AD271 1298 0001:001AD282 + 1299 0001:001AD286 1301 0001:001AD28B 1303 0001:001AD2A0 1304 0001:001AD2A4 + 1305 0001:001AD2AA 1306 0001:001AD2B1 1307 0001:001AD2BA 1308 0001:001AD2C9 + 1310 0001:001AD2CE 1311 0001:001AD2D2 1312 0001:001AD2D6 1314 0001:001AD2F0 + 1318 0001:001AD2FD 1319 0001:001AD300 1316 0001:001AD30B 1323 0001:001AD326 + 1326 0001:001AD33A 1327 0001:001AD340 1324 0001:001AD343 1331 0001:001AD356 + 1333 0001:001AD35E 1334 0001:001AD362 1336 0001:001AD36D 1337 0001:001AD37D + 1340 0001:001AD380 1341 0001:001AD389 1342 0001:001AD398 1344 0001:001AD3A0 + 1345 0001:001AD3A3 1347 0001:001AD3AE 1348 0001:001AD3BA 1350 0001:001AD3C1 + 1351 0001:001AD3CF 1353 0001:001AD3D7 1354 0001:001AD3DF 1358 0001:001AD3E1 + 1359 0001:001AD3E8 1361 0001:001AD3FC 1362 0001:001AD402 1365 0001:001AD409 + 1367 0001:001AD410 1368 0001:001AD419 1369 0001:001AD41F 1371 0001:001AD42F + 1374 0001:001AD43D 1375 0001:001AD445 1376 0001:001AD44B 1378 0001:001AD454 + 1380 0001:001AD47B 1383 0001:001AD48C 1384 0001:001AD490 1385 0001:001AD491 + 1386 0001:001AD492 1387 0001:001AD495 1388 0001:001AD499 1389 0001:001AD49A + 1390 0001:001AD49E 1391 0001:001AD4A0 1392 0001:001AD4A1 1393 0001:001AD4A3 + 1394 0001:001AD4A5 1395 0001:001AD4A9 1396 0001:001AD4AD 1397 0001:001AD4AF + 1398 0001:001AD4B3 1399 0001:001AD4B5 1400 0001:001AD4B8 1401 0001:001AD4BA + 1402 0001:001AD4BC 1403 0001:001AD4C0 1404 0001:001AD4C4 1405 0001:001AD4C5 + 1406 0001:001AD4CA 1411 0001:001AD4D0 1413 0001:001AD4D4 1414 0001:001AD4D5 + 1415 0001:001AD4D6 1416 0001:001AD4D7 1417 0001:001AD4D8 1418 0001:001AD4D9 + 1419 0001:001AD4DF 1420 0001:001AD4E3 1421 0001:001AD4E5 1422 0001:001AD4E8 + 1423 0001:001AD4EB 1424 0001:001AD4EE 1425 0001:001AD4F2 1426 0001:001AD4F4 + 1427 0001:001AD4F7 1428 0001:001AD4FA 1429 0001:001AD4FD 1430 0001:001AD501 + 1431 0001:001AD505 1432 0001:001AD507 1433 0001:001AD50D 1434 0001:001AD50F + 1435 0001:001AD513 1436 0001:001AD515 1437 0001:001AD519 1438 0001:001AD51D + 1439 0001:001AD51F 1440 0001:001AD524 1441 0001:001AD526 1442 0001:001AD528 + 1443 0001:001AD52E 1444 0001:001AD530 1445 0001:001AD532 1446 0001:001AD534 + 1447 0001:001AD536 1448 0001:001AD539 1449 0001:001AD53B 1450 0001:001AD53D + 1451 0001:001AD542 1452 0001:001AD544 1453 0001:001AD548 1454 0001:001AD54C + 1455 0001:001AD54E 1456 0001:001AD550 1457 0001:001AD552 1458 0001:001AD555 + 1459 0001:001AD558 1460 0001:001AD55A 1461 0001:001AD55F 1462 0001:001AD562 + 1463 0001:001AD564 1464 0001:001AD566 1465 0001:001AD569 1466 0001:001AD56C + 1467 0001:001AD56F 1468 0001:001AD573 1469 0001:001AD575 1470 0001:001AD577 + 1471 0001:001AD579 1472 0001:001AD57B 1473 0001:001AD57C 1474 0001:001AD57D + 1475 0001:001AD57E 1476 0001:001AD57F 1478 0001:001AD580 1483 0001:001AD588 + 1485 0001:001AD58C 1486 0001:001AD58D 1487 0001:001AD58E 1488 0001:001AD58F + 1489 0001:001AD590 1490 0001:001AD591 1491 0001:001AD595 1492 0001:001AD597 + 1493 0001:001AD59A 1494 0001:001AD59D 1495 0001:001AD5A0 1496 0001:001AD5A6 + 1497 0001:001AD5AA 1498 0001:001AD5AC 1499 0001:001AD5AF 1500 0001:001AD5B2 + 1501 0001:001AD5B5 1502 0001:001AD5B9 1503 0001:001AD5BD 1504 0001:001AD5BF + 1505 0001:001AD5C5 1506 0001:001AD5C7 1507 0001:001AD5CB 1508 0001:001AD5CD + 1509 0001:001AD5D1 1510 0001:001AD5D5 1511 0001:001AD5D7 1512 0001:001AD5DC + 1513 0001:001AD5DE 1514 0001:001AD5E0 1515 0001:001AD5E6 1516 0001:001AD5E8 + 1517 0001:001AD5EA 1518 0001:001AD5EC 1519 0001:001AD5EE 1520 0001:001AD5F1 + 1521 0001:001AD5F3 1522 0001:001AD5F5 1523 0001:001AD5FA 1524 0001:001AD5FC + 1525 0001:001AD600 1526 0001:001AD604 1527 0001:001AD606 1528 0001:001AD608 + 1529 0001:001AD60A 1530 0001:001AD60D 1531 0001:001AD610 1532 0001:001AD612 + 1533 0001:001AD617 1534 0001:001AD61A 1535 0001:001AD61C 1536 0001:001AD61E + 1537 0001:001AD621 1538 0001:001AD624 1539 0001:001AD627 1540 0001:001AD62B + 1541 0001:001AD62D 1542 0001:001AD62F 1543 0001:001AD631 1544 0001:001AD633 + 1545 0001:001AD634 1546 0001:001AD635 1547 0001:001AD636 1548 0001:001AD637 + 1550 0001:001AD638 1554 0001:001AD640 1555 0001:001AD644 1556 0001:001AD645 + 1557 0001:001AD646 1558 0001:001AD647 1559 0001:001AD648 1560 0001:001AD64C + 1561 0001:001AD650 1562 0001:001AD653 1563 0001:001AD656 1564 0001:001AD65D + 1565 0001:001AD65E 1566 0001:001AD662 1567 0001:001AD664 1568 0001:001AD665 + 1569 0001:001AD667 1570 0001:001AD668 1571 0001:001AD66A 1572 0001:001AD66C + 1573 0001:001AD670 1574 0001:001AD674 1575 0001:001AD678 1576 0001:001AD67A + 1577 0001:001AD67E 1578 0001:001AD682 1579 0001:001AD684 1580 0001:001AD686 + 1581 0001:001AD688 1582 0001:001AD68B 1583 0001:001AD68D 1584 0001:001AD690 + 1585 0001:001AD692 1586 0001:001AD694 1587 0001:001AD698 1588 0001:001AD69A + 1589 0001:001AD69C 1590 0001:001AD69E 1591 0001:001AD6A1 1592 0001:001AD6A4 + 1593 0001:001AD6A6 1594 0001:001AD6A8 1595 0001:001AD6AF 1596 0001:001AD6B1 + 1597 0001:001AD6B8 1598 0001:001AD6BA 1599 0001:001AD6BE 1600 0001:001AD6C0 + 1601 0001:001AD6C2 1602 0001:001AD6C3 1603 0001:001AD6C7 1604 0001:001AD6CA + 1605 0001:001AD6CC 1606 0001:001AD6D0 1607 0001:001AD6D2 1608 0001:001AD6D9 + 1609 0001:001AD6DA 1610 0001:001AD6DB 1611 0001:001AD6DC 1612 0001:001AD6E0 + 1615 0001:001AD6E8 1616 0001:001AD6EF 1617 0001:001AD6F5 1619 0001:001AD6FF + 1620 0001:001AD70C 1628 0001:001AD710 1629 0001:001AD71F 1630 0001:001AD724 + 1631 0001:001AD72A 1634 0001:001AD736 1635 0001:001AD73E 1636 0001:001AD757 + 1637 0001:001AD75D 1638 0001:001AD762 1639 0001:001AD765 1632 0001:001AD769 + 1641 0001:001AD773 1649 0001:001AD778 1650 0001:001AD78A 1651 0001:001AD78E + 1652 0001:001AD7AD 1655 0001:001AD7C5 1656 0001:001AD7D0 1657 0001:001AD7E1 + 1658 0001:001AD7E9 1659 0001:001AD7F2 1660 0001:001AD7FB 1661 0001:001AD804 + 1662 0001:001AD813 1663 0001:001AD835 1667 0001:001AD83B 1669 0001:001AD867 + 1670 0001:001AD876 1674 0001:001AD887 1675 0001:001AD890 1676 0001:001AD89C + 1677 0001:001AD8AE 1678 0001:001AD8BA 1677 0001:001AD8C7 1679 0001:001AD8D0 + 1684 0001:001AD8D8 1685 0001:001AD8E1 1686 0001:001AD8EA 1689 0001:001AD8F5 + 1690 0001:001AD8F9 1687 0001:001AD8FC 1692 0001:001AD90D 1698 0001:001AD914 + 1699 0001:001AD925 1701 0001:001AD930 1702 0001:001AD943 1704 0001:001AD948 + 1705 0001:001AD952 1706 0001:001AD95E 1707 0001:001AD967 1708 0001:001AD976 + 1711 0001:001AD981 1712 0001:001AD987 1709 0001:001AD98A 1714 0001:001AD99D + 1715 0001:001AD9B8 1716 0001:001AD9C5 1717 0001:001AD9D3 1729 0001:001AD9DC + 1730 0001:001AD9F5 1731 0001:001ADA06 1733 0001:001ADA12 1734 0001:001ADA18 + 1735 0001:001ADA21 1736 0001:001ADA27 1737 0001:001ADA30 1740 0001:001ADA3E + 1741 0001:001ADA47 1742 0001:001ADA52 1743 0001:001ADA5D 1742 0001:001ADA6A + 1744 0001:001ADA70 1746 0001:001ADA78 1747 0001:001ADA89 1748 0001:001ADAA5 + 1749 0001:001ADAC1 1751 0001:001ADACD 1752 0001:001ADAE8 1753 0001:001ADAFC + 1754 0001:001ADB10 1755 0001:001ADB2E 1757 0001:001ADB4C 1758 0001:001ADB5F + 1764 0001:001ADB82 1761 0001:001ADB87 1765 0001:001ADBCE 1766 0001:001ADBE2 + 1767 0001:001ADBF6 1775 0001:001ADC00 1776 0001:001ADC0C 1778 0001:001ADC21 + 1779 0001:001ADC2A 1781 0001:001ADC36 1784 0001:001ADC42 1785 0001:001ADC4D + 1786 0001:001ADC56 1787 0001:001ADC5F 1788 0001:001ADC82 1789 0001:001ADCA5 + 1791 0001:001ADCAD 1792 0001:001ADCB5 1794 0001:001ADCBE 1797 0001:001ADCC7 + 1798 0001:001ADCDB 1799 0001:001ADCE1 1800 0001:001ADCE7 1802 0001:001ADD03 + 1804 0001:001ADD0F 1809 0001:001ADD14 1810 0001:001ADD25 1811 0001:001ADD36 + 1812 0001:001ADD41 1813 0001:001ADD4F 1819 0001:001ADD58 1820 0001:001ADD8D + 1821 0001:001ADD92 1823 0001:001ADD9F 1824 0001:001ADDA2 1826 0001:001ADDBE + 1828 0001:001ADDCB 1829 0001:001ADDCE 1831 0001:001ADDEA 1832 0001:001ADDF8 + 1833 0001:001ADE14 1834 0001:001ADE27 1835 0001:001ADE61 1838 0001:001ADE68 + 1839 0001:001ADE8E 1840 0001:001ADED6 1857 0001:001ADEDC 1858 0001:001ADF17 + 1859 0001:001ADF2C 1860 0001:001ADF41 1861 0001:001ADF46 1862 0001:001ADF51 + 1863 0001:001ADF5B 1865 0001:001ADF68 1866 0001:001ADF6B 1868 0001:001ADF87 + 1870 0001:001ADF94 1871 0001:001ADF97 1873 0001:001ADFB3 1874 0001:001ADFD1 + 1875 0001:001ADFED 1876 0001:001AE000 1877 0001:001AE047 1880 0001:001AE05C + 1881 0001:001AE082 1882 0001:001AE0CA 1901 0001:001AE0D0 1902 0001:001AE0DF + 1903 0001:001AE0F3 1904 0001:001AE0FC 1905 0001:001AE105 1906 0001:001AE110 + 1907 0001:001AE11B 1908 0001:001AE123 1909 0001:001AE13A 1911 0001:001AE145 + 1912 0001:001AE153 1913 0001:001AE159 1914 0001:001AE15F 1915 0001:001AE168 + 1916 0001:001AE177 1917 0001:001AE17F 1920 0001:001AE19A 1921 0001:001AE1AE + 1922 0001:001AE1C2 1923 0001:001AE1CA 1924 0001:001AE1E5 1926 0001:001AE1ED + 1927 0001:001AE203 1929 0001:001AE216 1930 0001:001AE231 1933 0001:001AE249 + 1934 0001:001AE25F 1937 0001:001AE270 1948 0001:001AE274 1949 0001:001AE27B + 1950 0001:001AE286 1951 0001:001AE28C 1952 0001:001AE292 1954 0001:001AE298 + 1955 0001:001AE29F 1958 0001:001AE2CB 1959 0001:001AE2E0 1961 0001:001AE2F0 + 1962 0001:001AE2FF 1963 0001:001AE30E 1964 0001:001AE314 1966 0001:001AE318 + 1967 0001:001AE328 1968 0001:001AE337 1969 0001:001AE345 1970 0001:001AE34F + 1971 0001:001AE355 1972 0001:001AE35A 1973 0001:001AE35F 1976 0001:001AE366 + 1977 0001:001AE37A 1978 0001:001AE383 1979 0001:001AE395 1974 0001:001AE398 + 1983 0001:001AE3A3 1985 0001:001AE3B0 1986 0001:001AE3B3 1981 0001:001AE3BD + 1990 0001:001AE3D2 1991 0001:001AE3E1 1992 0001:001AE3E4 1993 0001:001AE3EE + 1995 0001:001AE409 1997 0001:001AE420 1998 0001:001AE437 1999 0001:001AE44F + 2007 0001:001AE470 2008 0001:001AE48F 2009 0001:001AE49F 2012 0001:001AE4B9 + 2013 0001:001AE4C4 2014 0001:001AE4CD 2016 0001:001AE4D6 2018 0001:001AE4DF + 2020 0001:001AE4F6 2021 0001:001AE4FF 2023 0001:001AE52A 2024 0001:001AE539 + 2026 0001:001AE596 2034 0001:001AE5D0 2035 0001:001AE5D9 2036 0001:001AE5EE + 2081 0001:001AE5F4 2082 0001:001AE5FA 2083 0001:001AE5FB 2084 0001:001AE5FC + 2085 0001:001AE5FD 2086 0001:001AE5FF 2095 0001:001AE601 2096 0001:001AE603 + 2097 0001:001AE606 2098 0001:001AE609 2099 0001:001AE60B 2100 0001:001AE60D + 2104 0001:001AE610 2106 0001:001AE617 2107 0001:001AE61A 2108 0001:001AE61C + 2109 0001:001AE61D 2110 0001:001AE622 2111 0001:001AE623 2112 0001:001AE625 + 2113 0001:001AE628 2114 0001:001AE62B 2115 0001:001AE62D 2116 0001:001AE62F + 2117 0001:001AE631 2118 0001:001AE633 2119 0001:001AE636 2120 0001:001AE63A + 2121 0001:001AE63F 2122 0001:001AE641 2123 0001:001AE643 2124 0001:001AE645 + 2125 0001:001AE647 2126 0001:001AE649 2127 0001:001AE64B 2128 0001:001AE64C + 2129 0001:001AE64E 2130 0001:001AE64F 2131 0001:001AE651 2132 0001:001AE655 + 2133 0001:001AE656 2134 0001:001AE658 2135 0001:001AE65A 2136 0001:001AE65C + 2137 0001:001AE65E 2138 0001:001AE660 2139 0001:001AE661 2140 0001:001AE663 + 2141 0001:001AE668 2142 0001:001AE66B 2143 0001:001AE66D 2144 0001:001AE671 + 2145 0001:001AE672 2146 0001:001AE674 2147 0001:001AE676 2148 0001:001AE677 + 2149 0001:001AE678 2150 0001:001AE679 2160 0001:001AE680 2161 0001:001AE686 + 2162 0001:001AE687 2163 0001:001AE688 2174 0001:001AE689 2176 0001:001AE68B + 2177 0001:001AE68D 2178 0001:001AE68F 2179 0001:001AE691 2180 0001:001AE694 + 2181 0001:001AE696 2182 0001:001AE698 2183 0001:001AE69B 2184 0001:001AE69D + 2185 0001:001AE6A1 2186 0001:001AE6A3 2187 0001:001AE6A6 2188 0001:001AE6A9 + 2189 0001:001AE6AE 2190 0001:001AE6AF 2191 0001:001AE6B1 2192 0001:001AE6B3 + 2193 0001:001AE6B7 2194 0001:001AE6B9 2195 0001:001AE6BB 2196 0001:001AE6BC + 2197 0001:001AE6BE 2198 0001:001AE6C0 2199 0001:001AE6C2 2200 0001:001AE6C4 + 2201 0001:001AE6C7 2202 0001:001AE6CA 2203 0001:001AE6CB 2204 0001:001AE6CD + 2205 0001:001AE6CF 2206 0001:001AE6D5 2207 0001:001AE6D9 2208 0001:001AE6DC + 2209 0001:001AE6DF 2210 0001:001AE6E1 2211 0001:001AE6E4 2212 0001:001AE6E6 + 2213 0001:001AE6E8 2214 0001:001AE6EA 2215 0001:001AE6ED 2216 0001:001AE6F0 + 2217 0001:001AE6F2 2218 0001:001AE6F7 2219 0001:001AE6FB 2220 0001:001AE701 + 2221 0001:001AE703 2222 0001:001AE706 2223 0001:001AE708 2224 0001:001AE70A + 2225 0001:001AE70D 2226 0001:001AE710 2228 0001:001AE711 2229 0001:001AE712 + 2230 0001:001AE713 2231 0001:001AE714 2672 0001:001AE718 2673 0001:001AE750 + 2669 0001:001AE754 2670 0001:001AE760 2671 0001:001AE771 + +Line numbers for DB(DB.pas) segment .text + + 10968 0001:001AEA40 10973 0001:001AEB8C 10974 0001:001AEB95 10975 0001:001AEBA1 + 10978 0001:001AEBA8 10979 0001:001AEBB4 10980 0001:001AEBC2 10983 0001:001AEBC8 + 10985 0001:001AEBCF 10988 0001:001AEBD4 10989 0001:001AEBE0 10990 0001:001AEBE9 + 10993 0001:001AEBF0 10994 0001:001AEBFC 10995 0001:001AEC0A 10997 0001:001AEC6C + 10998 0001:001AEC86 10999 0001:001AECAA 11000 0001:001AECD4 + +Line numbers for VDBConsts(VDBConsts.pas) segment .text + + 45 0001:001AED80 45 0001:001AED87 + +Line numbers for DBLogDlg(DBLogDlg.pas) segment .text + + 54 0001:001AEFCC 55 0001:001AEFF2 56 0001:001AF009 57 0001:001AF017 + 58 0001:001AF028 59 0001:001AF03B 60 0001:001AF03F 61 0001:001AF058 + 63 0001:001AF066 64 0001:001AF082 65 0001:001AF09E 68 0001:001AF0AF + 70 0001:001AF0E4 74 0001:001AF0EC 75 0001:001AF112 76 0001:001AF129 + 77 0001:001AF137 78 0001:001AF148 79 0001:001AF15B 80 0001:001AF15F + 81 0001:001AF165 83 0001:001AF177 84 0001:001AF190 86 0001:001AF19E + 87 0001:001AF1BA 88 0001:001AF1D6 91 0001:001AF1E7 93 0001:001AF21C + 96 0001:001AF224 97 0001:001AF249 98 0001:001AF260 99 0001:001AF26E + 100 0001:001AF286 101 0001:001AF296 102 0001:001AF2A6 103 0001:001AF2B6 + 104 0001:001AF2DC 105 0001:001AF302 106 0001:001AF328 107 0001:001AF342 + 108 0001:001AF355 109 0001:001AF359 110 0001:001AF372 112 0001:001AF380 + 113 0001:001AF39C 114 0001:001AF3B8 117 0001:001AF3C9 119 0001:001AF406 + 122 0001:001AF40C 123 0001:001AF418 124 0001:001AF442 125 0001:001AF46F + 128 0001:001AF474 129 0001:001AF47B 130 0001:001AF48B 132 0001:001AF4C0 + 133 0001:001AF4CC 134 0001:001AF4D6 135 0001:001AF4E1 136 0001:001AF4EB + 137 0001:001AF4F6 138 0001:001AF500 144 0001:001AF50B 145 0001:001AF516 + +Line numbers for DBPWDlg(DBPWDlg.pas) segment .text + + 44 0001:001AF7A0 45 0001:001AF7A9 46 0001:001AF7C0 47 0001:001AF7CE + 48 0001:001AF7DE 50 0001:001AF7FB 52 0001:001AF80E 57 0001:001AF814 + 58 0001:001AF833 59 0001:001AF84C 60 0001:001AF85D 61 0001:001AF86E + 62 0001:001AF8B1 65 0001:001AF8B8 66 0001:001AF8D7 67 0001:001AF8F9 + 68 0001:001AF903 69 0001:001AF914 70 0001:001AF942 73 0001:001AF948 + 74 0001:001AF967 75 0001:001AF989 76 0001:001AF99A 77 0001:001AF9C8 + 80 0001:001AF9CC 81 0001:001AF9D8 82 0001:001AF9E6 83 0001:001AF9F7 + 86 0001:001AF9FC 87 0001:001AFA1B 88 0001:001AFA5A 94 0001:001AFA60 + 96 0001:001AFA97 90 0001:001AFA9C 91 0001:001AFAA8 93 0001:001AFAB3 + +Line numbers for DBCtrls(dbctrls.pas) segment .text + + 5813 0001:001AFAB8 5818 0001:001AFBEC 5819 0001:001AFBF5 5820 0001:001AFC12 + 5821 0001:001AFC18 5822 0001:001AFC1E 5824 0001:001AFC24 5826 0001:001AFC2B + 5829 0001:001AFC30 5830 0001:001AFC3C 5831 0001:001AFC4B 5834 0001:001AFC50 + 5835 0001:001AFC57 5836 0001:001AFC63 5839 0001:001AFC68 5840 0001:001AFC74 + 5841 0001:001AFC83 5842 0001:001AFC93 5843 0001:001AFCA5 5845 0001:001AFCB5 + 5848 0001:001AFCBC 5849 0001:001AFCC8 5850 0001:001AFCD7 5857 0001:001AFD58 + 5858 0001:001AFD7B 5860 0001:001AFD9A 5852 0001:001AFD9C 5853 0001:001AFDB2 + 5854 0001:001AFDD6 5856 0001:001AFDED + +Line numbers for DBCommon(DBCommon.pas) segment .text + + 2000 0001:001AFE40 2000 0001:001AFE47 + +Line numbers for MidConst(MidConst.pas) segment .text + + 118 0001:001AFE78 118 0001:001AFE7F + +Line numbers for DSIntf(DSIntf.pas) segment .text + + 1268 0001:001AFE80 1273 0001:001AFEAD 1274 0001:001AFECC 1264 0001:001AFED0 + 1265 0001:001AFEDC 1266 0001:001AFEE6 + +Line numbers for DataBkr(DataBkr.pas) segment .text + + 452 0001:001AFF50 452 0001:001AFF57 + +Line numbers for Provider(Provider.pas) segment .text + + 4137 0001:001B0088 4137 0001:001B008F + +Line numbers for DBClient(DBClient.pas) segment .text + + 5031 0001:001B00C0 5031 0001:001B00C7 + +Line numbers for fGAF(Encounter\fGAF.pas) segment .text + + 54 0001:001B03C4 55 0001:001B03C9 56 0001:001B03ED 58 0001:001B03F1 + 59 0001:001B0422 66 0001:001B042C 67 0001:001B044F 68 0001:001B0459 + 70 0001:001B049D 72 0001:001B04C1 73 0001:001B04D9 75 0001:001B0575 + 70 0001:001B0578 77 0001:001B057F 78 0001:001B0593 80 0001:001B059C + 81 0001:001B05D3 85 0001:001B0618 87 0001:001B0621 88 0001:001B0638 + 96 0001:001B0640 97 0001:001B0663 98 0001:001B0672 99 0001:001B067D + 100 0001:001B0690 102 0001:001B06A1 104 0001:001B06CC 105 0001:001B06D2 + 106 0001:001B06DF 107 0001:001B06EC 108 0001:001B06FE 110 0001:001B070E + 111 0001:001B071D 112 0001:001B073A 113 0001:001B074B 115 0001:001B0772 + 116 0001:001B0780 121 0001:001B0791 122 0001:001B079B 124 0001:001B07AA + 125 0001:001B07C4 127 0001:001B07CD 128 0001:001B0806 134 0001:001B08A4 + 136 0001:001B08BF 137 0001:001B08E4 138 0001:001B0900 139 0001:001B0902 + 140 0001:001B0909 141 0001:001B0921 142 0001:001B0972 148 0001:001B0978 + 153 0001:001B097C 154 0001:001B0983 157 0001:001B0984 158 0001:001B098A + 159 0001:001B0997 162 0001:001B099C 163 0001:001B09A8 164 0001:001B09B8 + 165 0001:001B09C6 166 0001:001B09D4 167 0001:001B09E7 169 0001:001B09FF + 170 0001:001B0A03 171 0001:001B0A0A 173 0001:001B0A1A 176 0001:001B0A24 + 178 0001:001B0A3A 180 0001:001B0A43 181 0001:001B0A4A 182 0001:001B0A51 + 183 0001:001B0A6E 185 0001:001B0A94 188 0001:001B0A98 189 0001:001B0A9E + 190 0001:001B0AA7 191 0001:001B0AB0 194 0001:001B0AB4 196 0001:001B0AC9 + 197 0001:001B0B09 200 0001:001B0B10 201 0001:001B0B26 202 0001:001B0B2D + 203 0001:001B0B3D 204 0001:001B0B86 206 0001:001B0BC8 206 0001:001B0BCF + +Line numbers for fPCEProvider(Encounter\fPCEProvider.pas) segment .text + + 54 0001:001B0E3C 55 0001:001B0E5D 56 0001:001B0E69 57 0001:001B0E73 + 59 0001:001B0E83 60 0001:001B0E9A 63 0001:001B0EA8 64 0001:001B0EB1 + 66 0001:001B0EB3 67 0001:001B0ED3 68 0001:001B0EF2 64 0001:001B0EF3 + 69 0001:001B0EF8 71 0001:001B0F22 72 0001:001B0F2C 76 0001:001B0F37 + 77 0001:001B0F41 78 0001:001B0F4B 79 0001:001B0F54 81 0001:001B0F82 + 82 0001:001B0F8C 83 0001:001B0F96 86 0001:001B0F9F 88 0001:001B0FA4 + 91 0001:001B0FEA 93 0001:001B0FED 94 0001:001B0FFD 96 0001:001B1001 + 97 0001:001B101A 102 0001:001B105F 104 0001:001B106F 107 0001:001B107E + 108 0001:001B10A4 114 0001:001B10AC 115 0001:001B10C9 116 0001:001B10D5 + 118 0001:001B10ED 120 0001:001B113D 126 0001:001B1148 127 0001:001B1161 + 129 0001:001B1182 130 0001:001B11A9 132 0001:001B11AF 133 0001:001B11E2 + 136 0001:001B1212 139 0001:001B1234 140 0001:001B1237 141 0001:001B123E + 142 0001:001B124E 145 0001:001B1250 146 0001:001B1266 147 0001:001B127C + 148 0001:001B1289 149 0001:001B1296 150 0001:001B12A6 151 0001:001B12B6 + 152 0001:001B12C6 153 0001:001B12D6 154 0001:001B12E6 155 0001:001B1302 + 156 0001:001B1334 162 0001:001B1394 163 0001:001B13AD 165 0001:001B13B1 + 169 0001:001B13BF 171 0001:001B13DA 172 0001:001B13E4 176 0001:001B13E9 + 177 0001:001B1411 179 0001:001B1436 181 0001:001B1454 182 0001:001B1462 + 184 0001:001B147E 185 0001:001B14AD 187 0001:001B1544 187 0001:001B154B + +Line numbers for rODMeds(Orders\rODMeds.pas) segment .text + + 40 0001:001B154C 41 0001:001B1569 42 0001:001B1573 43 0001:001B15D9 + 46 0001:001B1604 47 0001:001B1623 48 0001:001B1689 51 0001:001B16B4 + 52 0001:001B16DA 53 0001:001B16F0 54 0001:001B1726 55 0001:001B177E + 60 0001:001B179C 61 0001:001B17BF 62 0001:001B17F1 64 0001:001B180B + 66 0001:001B186B 71 0001:001B1888 72 0001:001B18B5 73 0001:001B18B8 + 75 0001:001B18C2 76 0001:001B18E3 77 0001:001B192F 79 0001:001B1961 + 80 0001:001B19A0 81 0001:001B19F1 84 0001:001B1A18 85 0001:001B1A37 + 86 0001:001B1A78 89 0001:001B1A98 90 0001:001B1ABE 91 0001:001B1AD4 + 92 0001:001B1B0A 93 0001:001B1B62 98 0001:001B1B80 99 0001:001B1BA1 + 100 0001:001B1BCC 101 0001:001B1BE8 100 0001:001B1C0B 102 0001:001B1C2B + 122 0001:001B1C48 123 0001:001B1C4E 124 0001:001B1C58 125 0001:001B1C7C + 126 0001:001B1C90 131 0001:001B1CB0 132 0001:001B1CBC 133 0001:001B1CC8 + 134 0001:001B1CF4 135 0001:001B1D08 141 0001:001B1D28 142 0001:001B1D53 + 143 0001:001B1D99 144 0001:001B1DB6 145 0001:001B1DD7 146 0001:001B1E1F + 157 0001:001B1E40 159 0001:001B1E49 160 0001:001B1E61 161 0001:001B1E75 + 162 0001:001B1E8A 163 0001:001B1E96 166 0001:001B1EC4 167 0001:001B1EE6 + 169 0001:001B1F68 172 0001:001B1F8C 173 0001:001B1FAE 175 0001:001B2029 + 183 0001:001B204C 184 0001:001B206E 185 0001:001B20D5 188 0001:001B20F8 + 189 0001:001B211A 190 0001:001B218B 193 0001:001B21AC 194 0001:001B21CE + 195 0001:001B222A 199 0001:001B2258 200 0001:001B225B 201 0001:001B229B + 202 0001:001B22A8 206 0001:001B22C4 207 0001:001B22C7 208 0001:001B2307 + 209 0001:001B2314 216 0001:001B2330 217 0001:001B233A 218 0001:001B2348 + 219 0001:001B2352 220 0001:001B2362 221 0001:001B23A7 222 0001:001B23B4 + 225 0001:001B23D4 226 0001:001B23DD 227 0001:001B23F7 230 0001:001B2414 + 231 0001:001B2431 232 0001:001B2433 233 0001:001B245C 234 0001:001B247D + 237 0001:001B24AC 238 0001:001B24D3 239 0001:001B251C 241 0001:001B256C + 241 0001:001B2573 + +Line numbers for fODMedOIFA(Orders\fODMedOIFA.pas) segment .text + + 48 0001:001B27DC 49 0001:001B2801 50 0001:001B2810 51 0001:001B281E + 52 0001:001B282A 54 0001:001B283A 55 0001:001B2851 56 0001:001B285F + 59 0001:001B2867 60 0001:001B287D 61 0001:001B2888 63 0001:001B289A + 64 0001:001B28BF 68 0001:001B28EF 71 0001:001B28FF 73 0001:001B2921 + 75 0001:001B2953 82 0001:001B2A08 83 0001:001B2A2D 84 0001:001B2A3C + 85 0001:001B2A4A 86 0001:001B2A5A 88 0001:001B2A6A 89 0001:001B2A81 + 90 0001:001B2A8F 93 0001:001B2A97 94 0001:001B2AAD 95 0001:001B2AB8 + 97 0001:001B2ACA 98 0001:001B2AEF 102 0001:001B2B1F 106 0001:001B2B3C + 108 0001:001B2B6E 111 0001:001B2B78 113 0001:001B2B7B 114 0001:001B2B86 + 117 0001:001B2B88 119 0001:001B2B8B 120 0001:001B2BA9 123 0001:001B2BAC + 125 0001:001B2BC3 126 0001:001B2BFF 127 0001:001B2C23 132 0001:001B2C28 + 133 0001:001B2C2D 138 0001:001B2C30 139 0001:001B2C35 145 0001:001B2C38 + 146 0001:001B2C3D 148 0001:001B2C70 148 0001:001B2C77 + +Line numbers for Vawrgrid(Vawrgrid.pas) segment .text + + 167 0001:001B2CA8 167 0001:001B2CAF + +Line numbers for uProbs(uProbs.pas) segment .text + + 266 0001:001B2FC8 267 0001:001B2FCE 268 0001:001B2FE5 271 0001:001B2FF4 + 272 0001:001B3019 273 0001:001B3037 274 0001:001B3077 278 0001:001B307C + 280 0001:001B30BA 281 0001:001B30D8 282 0001:001B30F6 283 0001:001B3114 + 284 0001:001B3132 285 0001:001B3150 286 0001:001B316E 287 0001:001B318C + 288 0001:001B31CD 291 0001:001B31D4 292 0001:001B31DF 293 0001:001B31F6 + 296 0001:001B31FC 297 0001:001B3217 298 0001:001B322D 299 0001:001B3247 + 301 0001:001B3253 303 0001:001B32AC 306 0001:001B32CC 307 0001:001B32D2 + 308 0001:001B32ED 311 0001:001B3304 312 0001:001B331A 313 0001:001B3356 + 319 0001:001B3368 320 0001:001B33A2 321 0001:001B33B8 322 0001:001B33EE + 323 0001:001B3419 324 0001:001B3439 325 0001:001B3461 326 0001:001B3489 + 327 0001:001B34B1 328 0001:001B34D6 329 0001:001B34F3 330 0001:001B3518 + 331 0001:001B353B 320 0001:001B353C 332 0001:001B3580 335 0001:001B3594 + 336 0001:001B35C1 337 0001:001B360B 341 0001:001B3620 342 0001:001B363A + 343 0001:001B36B3 350 0001:001B36D8 351 0001:001B3710 352 0001:001B3714 + 353 0001:001B371C 354 0001:001B3720 355 0001:001B3724 356 0001:001B3728 + 357 0001:001B372C 358 0001:001B3739 359 0001:001B3746 360 0001:001B374E + 361 0001:001B375B 362 0001:001B376A 363 0001:001B3779 365 0001:001B3788 + 366 0001:001B37A7 367 0001:001B37C1 369 0001:001B37C7 370 0001:001B37E4 + 372 0001:001B37F2 373 0001:001B3814 375 0001:001B3836 376 0001:001B3858 + 377 0001:001B387A 378 0001:001B3894 379 0001:001B38AE 380 0001:001B38C8 + 381 0001:001B38E2 382 0001:001B38FC 383 0001:001B3915 384 0001:001B392F + 385 0001:001B393A 386 0001:001B3972 388 0001:001B3978 391 0001:001B397D + 392 0001:001B398D 393 0001:001B398E 395 0001:001B399F 397 0001:001B39A5 + 399 0001:001B39AB 402 0001:001B39B0 403 0001:001B39C0 404 0001:001B39C1 + 406 0001:001B39D2 408 0001:001B3A13 411 0001:001B3A68 412 0001:001B3A73 + 413 0001:001B3A7B 414 0001:001B3A83 415 0001:001B3A9A 419 0001:001B3AA0 + 420 0001:001B3AB2 421 0001:001B3AC1 422 0001:001B3AD0 423 0001:001B3AF6 + 426 0001:001B3AFC 427 0001:001B3B07 428 0001:001B3B0F 429 0001:001B3B17 + 430 0001:001B3B1F 431 0001:001B3B36 437 0001:001B3B3C 438 0001:001B3B74 + 439 0001:001B3B83 440 0001:001B3B92 441 0001:001B3BA1 442 0001:001B3BB4 + 441 0001:001B3BFF 443 0001:001B3C04 444 0001:001B3C13 445 0001:001B3C26 + 444 0001:001B3C71 446 0001:001B3C76 449 0001:001B3C7D 450 0001:001B3C91 + 451 0001:001B3CA5 452 0001:001B3CB9 453 0001:001B3CCD 454 0001:001B3CE1 + 455 0001:001B3CF5 456 0001:001B3D09 457 0001:001B3D1D 458 0001:001B3D31 + 459 0001:001B3D45 460 0001:001B3D59 461 0001:001B3D6D 462 0001:001B3D81 + 463 0001:001B3D95 464 0001:001B3DA9 465 0001:001B3DBD 466 0001:001B3DD1 + 467 0001:001B3DE5 468 0001:001B3DF9 469 0001:001B3E0D 470 0001:001B3E21 + 471 0001:001B3E35 472 0001:001B3E77 475 0001:001B414C 476 0001:001B4157 + 477 0001:001B415F 478 0001:001B4167 479 0001:001B416F 480 0001:001B4177 + 481 0001:001B417F 482 0001:001B4187 483 0001:001B418F 484 0001:001B4197 + 485 0001:001B419F 486 0001:001B41A7 487 0001:001B41AF 488 0001:001B41B7 + 489 0001:001B41BF 490 0001:001B41C7 491 0001:001B41CF 492 0001:001B41D7 + 493 0001:001B41DF 494 0001:001B41E7 495 0001:001B41EF 496 0001:001B41F7 + 497 0001:001B41FF 498 0001:001B4207 499 0001:001B420F 500 0001:001B4217 + 501 0001:001B421F 502 0001:001B4227 503 0001:001B4231 504 0001:001B4239 + 505 0001:001B4250 510 0001:001B4254 511 0001:001B4259 513 0001:001B4260 + 514 0001:001B426A 513 0001:001B4279 516 0001:001B427C 519 0001:001B4280 + 520 0001:001B4283 521 0001:001B4292 522 0001:001B42A1 523 0001:001B42B0 + 524 0001:001B42BF 525 0001:001B42CE 526 0001:001B42DD 527 0001:001B42EC + 528 0001:001B42FB 529 0001:001B430A 530 0001:001B4319 531 0001:001B4328 + 532 0001:001B4337 533 0001:001B4346 534 0001:001B4355 535 0001:001B4364 + 536 0001:001B4373 537 0001:001B4382 538 0001:001B4391 539 0001:001B43A0 + 540 0001:001B43AF 541 0001:001B43BE 542 0001:001B43CD 543 0001:001B43DC + 553 0001:001B43E0 554 0001:001B4411 555 0001:001B4413 556 0001:001B4420 + 557 0001:001B4434 558 0001:001B4476 559 0001:001B4484 560 0001:001B4507 + 562 0001:001B451C 563 0001:001B4558 565 0001:001B455B 566 0001:001B455C + 567 0001:001B45A0 568 0001:001B45D4 570 0001:001B45FD 571 0001:001B460A + 572 0001:001B4615 573 0001:001B4620 574 0001:001B463E 576 0001:001B465C + 577 0001:001B4674 578 0001:001B4692 580 0001:001B46B0 581 0001:001B46EA + 589 0001:001B4700 590 0001:001B4722 591 0001:001B4729 592 0001:001B472D + 594 0001:001B4744 596 0001:001B478E 598 0001:001B4794 600 0001:001B4798 + 601 0001:001B47BC 603 0001:001B47DE 604 0001:001B47E2 608 0001:001B4802 + 609 0001:001B4806 614 0001:001B4810 615 0001:001B4834 616 0001:001B4845 + 617 0001:001B484F 618 0001:001B4877 621 0001:001B487A 592 0001:001B487B + 622 0001:001B48B3 626 0001:001B48E0 627 0001:001B48E6 632 0001:001B48E8 + 633 0001:001B4910 634 0001:001B496F 635 0001:001B4979 636 0001:001B49C6 + 652 0001:001B4A08 653 0001:001B4A0E 654 0001:001B4A1B 657 0001:001B4A20 + 658 0001:001B4A40 659 0001:001B4A6A 666 0001:001B4A70 668 0001:001B4A9D + 670 0001:001B4AA3 671 0001:001B4AAB 675 0001:001B4AB5 676 0001:001B4AC1 + 678 0001:001B4ACF 679 0001:001B4ADC 683 0001:001B4AE6 684 0001:001B4B16 + 687 0001:001B4B5E 726 0001:001B4B88 727 0001:001B4B8E 728 0001:001B4B9B + 731 0001:001B4BA0 732 0001:001B4BC0 733 0001:001B4BEA 742 0001:001B4BF0 + 743 0001:001B4BF3 744 0001:001B4C06 747 0001:001B4C14 748 0001:001B4C1A + 749 0001:001B4C27 752 0001:001B4C2C 753 0001:001B4C54 755 0001:001B4C8A + 756 0001:001B4C9A 758 0001:001B4CAF 760 0001:001B4CE5 761 0001:001B4CF5 + 763 0001:001B4D07 765 0001:001B4D2E 766 0001:001B4D3E 768 0001:001B4D70 + 771 0001:001B4DEC 772 0001:001B4DEF 774 0001:001B4DF4 775 0001:001B4E04 + 779 0001:001B4E16 780 0001:001B4E26 782 0001:001B4E36 785 0001:001B4E68 + 786 0001:001B4E6B 787 0001:001B4E7E 790 0001:001B4E8C 791 0001:001B4E8F + 793 0001:001B4E94 794 0001:001B4EA4 798 0001:001B4EB6 799 0001:001B4EC6 + 801 0001:001B4ED6 804 0001:001B4F08 805 0001:001B4F0B 806 0001:001B4F1E + 809 0001:001B4F2C 810 0001:001B4F2F 812 0001:001B4F34 813 0001:001B4F44 + 817 0001:001B4F56 818 0001:001B4F66 820 0001:001B4F76 823 0001:001B4FA8 + 824 0001:001B4FAB 825 0001:001B4FBE 828 0001:001B4FCC 829 0001:001B4FCF + 831 0001:001B4FD4 832 0001:001B4FE4 836 0001:001B4FF6 837 0001:001B5006 + 839 0001:001B5016 842 0001:001B5048 843 0001:001B504B 844 0001:001B505E + 847 0001:001B506C 848 0001:001B506F 850 0001:001B5074 851 0001:001B5084 + 855 0001:001B5096 856 0001:001B50A6 858 0001:001B50B6 861 0001:001B50E8 + 862 0001:001B50EB 863 0001:001B50FE 866 0001:001B510C 867 0001:001B510F + 869 0001:001B5114 870 0001:001B5124 874 0001:001B5136 875 0001:001B5146 + 877 0001:001B5156 880 0001:001B5188 881 0001:001B518E 882 0001:001B519B + 885 0001:001B51A0 886 0001:001B51C5 888 0001:001B51F9 889 0001:001B5209 + 893 0001:001B521B 894 0001:001B522B 896 0001:001B525D 899 0001:001B52A0 + 900 0001:001B52A6 901 0001:001B52B3 904 0001:001B52B8 905 0001:001B52DD + 907 0001:001B5311 908 0001:001B5321 912 0001:001B5333 913 0001:001B5343 + 915 0001:001B5375 931 0001:001B53B4 932 0001:001B53BA 933 0001:001B53C7 + 936 0001:001B53CC 937 0001:001B53EC 938 0001:001B5416 954 0001:001B541C + 955 0001:001B5422 956 0001:001B542F 959 0001:001B5434 960 0001:001B5454 + 961 0001:001B547E 990 0001:001B5484 991 0001:001B54A6 992 0001:001B54AE + 994 0001:001B54C5 995 0001:001B54D2 996 0001:001B54E3 999 0001:001B54F7 + 1000 0001:001B5506 1002 0001:001B551D 1004 0001:001B553A 1005 0001:001B5567 + 992 0001:001B5568 1006 0001:001B5571 1008 0001:001B55A4 1010 0001:001B55BB + 1011 0001:001B55C8 1012 0001:001B55DF 1013 0001:001B560C 1014 0001:001B5639 + 1008 0001:001B563A 1015 0001:001B5643 1016 0001:001B5677 1026 0001:001B56F0 + 1027 0001:001B570E 1028 0001:001B5716 1030 0001:001B572D 1031 0001:001B573A + 1034 0001:001B5765 1035 0001:001B577A 1037 0001:001B57B1 1028 0001:001B57B2 + 1038 0001:001B57BB 1039 0001:001B57E0 1040 0001:001B5814 1063 0001:001B58C0 + 1064 0001:001B58EA 1065 0001:001B5900 1066 0001:001B590A 1067 0001:001B5910 + 1068 0001:001B594B 1069 0001:001B5957 1070 0001:001B5965 1072 0001:001B5973 + 1073 0001:001B59AF 1078 0001:001B59E8 1079 0001:001B5A0A 1080 0001:001B5A0F + 1081 0001:001B5A1B 1082 0001:001B5A28 1083 0001:001B5A33 1084 0001:001B5A60 + 1093 0001:001B5A68 1094 0001:001B5A8D 1096 0001:001B5A91 1102 0001:001B5AA9 + 1103 0001:001B5ACF 1105 0001:001B5AD5 1107 0001:001B5AF1 1109 0001:001B5AFD + 1110 0001:001B5B0A 1113 0001:001B5B0E 1095 0001:001B5B0F 1114 0001:001B5B37 + 1121 0001:001B5B5C 1122 0001:001B5B81 1124 0001:001B5B85 1129 0001:001B5B9D + 1130 0001:001B5BC3 1132 0001:001B5BDE 1133 0001:001B5BEB 1135 0001:001B5BF1 + 1136 0001:001B5C06 1137 0001:001B5C11 1123 0001:001B5C12 1139 0001:001B5C3A + 1144 0001:001B5C6C 1145 0001:001B5C91 1146 0001:001B5CF4 1151 0001:001B5CFC + 1152 0001:001B5D1E 1153 0001:001B5D48 1154 0001:001B5D72 1155 0001:001B5D7F + 1156 0001:001B5DAD 1166 0001:001B5E00 1167 0001:001B5E18 1168 0001:001B5E29 + 1169 0001:001B5E3B 1171 0001:001B5E5B 1174 0001:001B5E6C 1178 0001:001B5E7D + 1180 0001:001B5E9D 1183 0001:001B5EAE 1188 0001:001B5EBF 1189 0001:001B5ED2 + 1190 0001:001B5F01 1195 0001:001B5F14 1196 0001:001B5F37 1198 0001:001B5F55 + 1200 0001:001B5F87 1201 0001:001B5F94 1204 0001:001B5FA8 1206 0001:001B5FD0 + 1208 0001:001B5FF0 1212 0001:001B5FF7 1214 0001:001B6022 1218 0001:001B6029 + 1220 0001:001B6054 1224 0001:001B605B 1226 0001:001B608C 1227 0001:001B60A3 + 1226 0001:001B60C6 1230 0001:001B60C9 1232 0001:001B60E9 1233 0001:001B6100 + 1232 0001:001B6123 1238 0001:001B6148 1242 0001:001B615C 1243 0001:001B615E + 1252 0001:001B6160 1253 0001:001B616D 1254 0001:001B6176 1255 0001:001B617F + 1256 0001:001B618D 1257 0001:001B619A 1258 0001:001B61A5 1259 0001:001B61AC + 1260 0001:001B61B3 1261 0001:001B61BB 1310 0001:001B61FC 1311 0001:001B6223 + 1312 0001:001B622B 1313 0001:001B623E 1314 0001:001B624C 1316 0001:001B625B + 1312 0001:001B627B 1317 0001:001B627E 1318 0001:001B62AA 1320 0001:001B6304 + 1320 0001:001B630B + +Line numbers for rProbs(rProbs.pas) segment .text + + 41 0001:001B630C 42 0001:001B6339 43 0001:001B6370 44 0001:001B63A1 + 53 0001:001B63C0 54 0001:001B63C3 55 0001:001B63D9 56 0001:001B63EB + 57 0001:001B63F8 60 0001:001B641C 61 0001:001B643C 62 0001:001B6455 + 63 0001:001B6481 66 0001:001B64A4 67 0001:001B64DA 68 0001:001B6514 + 69 0001:001B6545 72 0001:001B6564 73 0001:001B658F 74 0001:001B65BF + 75 0001:001B65F0 79 0001:001B6614 80 0001:001B664A 81 0001:001B668E + 82 0001:001B66BF 85 0001:001B66E4 86 0001:001B66EA 87 0001:001B6700 + 88 0001:001B670D 91 0001:001B672C 92 0001:001B6732 93 0001:001B674B + 94 0001:001B6758 117 0001:001B677C 118 0001:001B679E 119 0001:001B67DB + 120 0001:001B6807 123 0001:001B6834 124 0001:001B6856 125 0001:001B6879 + 126 0001:001B68A5 135 0001:001B68C8 136 0001:001B68FD 137 0001:001B6934 + 138 0001:001B696D 141 0001:001B6994 142 0001:001B69B4 143 0001:001B69CD + 144 0001:001B69F9 147 0001:001B6A18 148 0001:001B6A1B 149 0001:001B6A31 + 150 0001:001B6A43 151 0001:001B6A50 154 0001:001B6A74 155 0001:001B6A80 + 156 0001:001B6AB8 157 0001:001B6ACA 158 0001:001B6AD7 161 0001:001B6AFC + 162 0001:001B6AFF 163 0001:001B6B15 164 0001:001B6B22 167 0001:001B6B40 + 168 0001:001B6B60 169 0001:001B6B79 170 0001:001B6BA5 173 0001:001B6BC4 + 174 0001:001B6BCA 175 0001:001B6BED 176 0001:001B6BFA 179 0001:001B6C20 + 180 0001:001B6C40 181 0001:001B6C59 182 0001:001B6C85 185 0001:001B6CAC + 186 0001:001B6CCC 187 0001:001B6CE5 188 0001:001B6D11 191 0001:001B6D38 + 192 0001:001B6D57 193 0001:001B6D8D 196 0001:001B6DAC 197 0001:001B6DD9 + 198 0001:001B6E10 199 0001:001B6E48 201 0001:001B6E9C 201 0001:001B6EA3 + +Line numbers for fProbflt(fProbFlt.pas) segment .text + + 75 0001:001B72F8 76 0001:001B7304 77 0001:001B731B 80 0001:001B7329 + 81 0001:001B7336 82 0001:001B7341 83 0001:001B734C 84 0001:001B7359 + 85 0001:001B7375 86 0001:001B7391 87 0001:001B73A0 88 0001:001B73AB + 89 0001:001B73B9 90 0001:001B73C9 93 0001:001B73E7 95 0001:001B73F7 + 98 0001:001B7400 99 0001:001B7401 101 0001:001B7407 102 0001:001B7426 + 104 0001:001B7437 107 0001:001B743C 108 0001:001B7456 109 0001:001B747A + 110 0001:001B7489 111 0001:001B74AD 113 0001:001B74BF 114 0001:001B74CD + 115 0001:001B74D6 116 0001:001B74E4 118 0001:001B74FA 119 0001:001B7507 + 123 0001:001B7516 124 0001:001B753E 126 0001:001B7566 127 0001:001B75AD + 132 0001:001B75D0 133 0001:001B75EE 134 0001:001B7600 135 0001:001B760E + 136 0001:001B7638 137 0001:001B766E 138 0001:001B767E 139 0001:001B76B2 + 144 0001:001B76BC 145 0001:001B76C0 147 0001:001B76D8 148 0001:001B76FD + 150 0001:001B7710 151 0001:001B7720 152 0001:001B7740 154 0001:001B7764 + 155 0001:001B776B 158 0001:001B7770 159 0001:001B7773 160 0001:001B7781 + 161 0001:001B7788 166 0001:001B778C 167 0001:001B7791 168 0001:001B77A8 + 169 0001:001B77BD 170 0001:001B77E2 171 0001:001B77F2 172 0001:001B7802 + 178 0001:001B7808 179 0001:001B7829 180 0001:001B7838 181 0001:001B7846 + 182 0001:001B7851 183 0001:001B785F 184 0001:001B786C 185 0001:001B7879 + 186 0001:001B7889 187 0001:001B7899 189 0001:001B78B5 190 0001:001B78BC + 191 0001:001B78D1 192 0001:001B78EC 193 0001:001B78F7 194 0001:001B7904 + 196 0001:001B7926 197 0001:001B7949 198 0001:001B7952 194 0001:001B7955 + 201 0001:001B795D 202 0001:001B7964 203 0001:001B7979 204 0001:001B7994 + 205 0001:001B799F 206 0001:001B79AC 208 0001:001B79CA 209 0001:001B79ED + 210 0001:001B79F6 206 0001:001B79F9 212 0001:001B79FE 214 0001:001B7A05 + 216 0001:001B7A19 218 0001:001B7A4B 222 0001:001B7A54 223 0001:001B7A59 + 227 0001:001B7A5C 228 0001:001B7A61 232 0001:001B7A64 233 0001:001B7A71 + 237 0001:001B7A74 238 0001:001B7A81 242 0001:001B7A84 243 0001:001B7A8B + 244 0001:001B7A90 253 0001:001B7A94 254 0001:001B7AB6 255 0001:001B7AC5 + 256 0001:001B7AD3 257 0001:001B7ADA 259 0001:001B7AF4 260 0001:001B7AFC + 263 0001:001B7B0B 264 0001:001B7B26 265 0001:001B7B30 267 0001:001B7B4F + 269 0001:001B7B7C 271 0001:001B7B90 272 0001:001B7BB1 273 0001:001B7BC0 + 274 0001:001B7BCE 275 0001:001B7BDD 277 0001:001B7C1F 278 0001:001B7C27 + 279 0001:001B7C34 280 0001:001B7C48 281 0001:001B7C55 285 0001:001B7C69 + 286 0001:001B7C71 287 0001:001B7C94 288 0001:001B7CC6 290 0001:001B7CD8 + 291 0001:001B7CF0 292 0001:001B7D16 294 0001:001B7D3C 298 0001:001B7D60 + 299 0001:001B7D7B 300 0001:001B7D96 301 0001:001B7DA0 303 0001:001B7DB5 + 305 0001:001B7DE7 342 0001:001B7E20 347 0001:001B7E24 348 0001:001B7E29 + 351 0001:001B7E2C 352 0001:001B7E2F 353 0001:001B7E3E 354 0001:001B7E4E + 355 0001:001B7E5E 356 0001:001B7E6E 357 0001:001B7E7E 358 0001:001B7E8C + 359 0001:001B7E93 362 0001:001B7F0C 363 0001:001B7F0F 364 0001:001B7F1E + 365 0001:001B7F2E 366 0001:001B7F3E 367 0001:001B7F4E 368 0001:001B7F5E + 369 0001:001B7F6C 370 0001:001B7F73 373 0001:001B7FF0 374 0001:001B7FF3 + 375 0001:001B7FFE 376 0001:001B800C 377 0001:001B801B 378 0001:001B802A + 379 0001:001B803A 380 0001:001B804A 381 0001:001B805A 382 0001:001B806A + 383 0001:001B807A 384 0001:001B8087 385 0001:001B8097 386 0001:001B80A4 + 390 0001:001B80EC 391 0001:001B80F5 392 0001:001B810C 393 0001:001B8124 + 397 0001:001B813C 398 0001:001B8145 399 0001:001B815A 400 0001:001B8173 + 401 0001:001B818E 403 0001:001B8195 408 0001:001B819C 409 0001:001B81C0 + 410 0001:001B81CE 412 0001:001B81E9 413 0001:001B81F6 414 0001:001B8218 + 415 0001:001B8254 416 0001:001B82AD 422 0001:001B82D8 423 0001:001B82FE + 424 0001:001B8315 425 0001:001B834D 426 0001:001B8385 428 0001:001B838D + 429 0001:001B8394 430 0001:001B83B3 431 0001:001B83EA 429 0001:001B842B + 432 0001:001B8430 433 0001:001B8465 448 0001:001B8488 450 0001:001B84BC + 450 0001:001B84C3 + +Line numbers for fProbLex(fProbLex.pas) segment .text + + 53 0001:001B8754 54 0001:001B8757 56 0001:001B8761 57 0001:001B8768 + 65 0001:001B876C 66 0001:001B878E 68 0001:001B87D0 70 0001:001B87FA + 72 0001:001B8847 74 0001:001B8880 76 0001:001B88BA 78 0001:001B8915 + 82 0001:001B8959 83 0001:001B8976 84 0001:001B8989 85 0001:001B8998 + 86 0001:001B89B0 87 0001:001B89C3 89 0001:001B89D0 91 0001:001B89E9 + 92 0001:001B8A0E 93 0001:001B8A66 96 0001:001B8BA8 97 0001:001B8BAB + 98 0001:001B8BB5 99 0001:001B8BBC 102 0001:001B8BC0 103 0001:001B8BC3 + 104 0001:001B8BCD 105 0001:001B8BDE 107 0001:001B8BE5 108 0001:001B8C0F + 111 0001:001B8C14 112 0001:001B8C1A 114 0001:001B8C1F 115 0001:001B8C26 + 119 0001:001B8C2C 120 0001:001B8C39 122 0001:001B8C49 133 0001:001B8C4C + 134 0001:001B8C76 135 0001:001B8C8A 136 0001:001B8C94 138 0001:001B8CAD + 139 0001:001B8CBC 140 0001:001B8CCF 141 0001:001B8CE2 142 0001:001B8CF5 + 143 0001:001B8D28 146 0001:001B8D4B 147 0001:001B8D5A 148 0001:001B8D5E + 150 0001:001B8D7F 151 0001:001B8D8A 152 0001:001B8DAA 153 0001:001B8DC3 + 136 0001:001B8DC4 154 0001:001B8DCD 156 0001:001B8DD6 157 0001:001B8E03 + 158 0001:001B8E31 162 0001:001B8E49 163 0001:001B8E63 165 0001:001B8E7A + 166 0001:001B8EBD 168 0001:001B8F00 169 0001:001B8F21 171 0001:001B8F38 + 172 0001:001B8F4B 174 0001:001B8F50 175 0001:001B8F5F 176 0001:001B8F6D + 178 0001:001B8F84 179 0001:001B8F97 181 0001:001B8FA5 182 0001:001B8FC1 + 184 0001:001B8FDB 186 0001:001B8FE5 188 0001:001B9000 190 0001:001B9010 + 191 0001:001B9026 192 0001:001B9033 193 0001:001B904D 194 0001:001B9064 + 195 0001:001B906E 196 0001:001B9074 198 0001:001B9089 199 0001:001B909B + 201 0001:001B90CE 205 0001:001B90E3 208 0001:001B912C 210 0001:001B9180 + 214 0001:001B9268 215 0001:001B926D 219 0001:001B9270 220 0001:001B927E + 222 0001:001B92B0 222 0001:001B92B7 + +Line numbers for fOMAction(Orders\fOMAction.pas) segment .text + + 41 0001:001B9448 42 0001:001B944F 43 0001:001B945E 44 0001:001B9476 + 45 0001:001B9491 46 0001:001B949A 50 0001:001B94A0 51 0001:001B94A7 + 53 0001:001B94D8 53 0001:001B94DF + +Line numbers for rODAllergy(Orders\rODAllergy.pas) segment .text + + 85 0001:001B9570 86 0001:001B9576 87 0001:001B958E 88 0001:001B95A1 + 91 0001:001B95C0 92 0001:001B95DF 93 0001:001B95F8 94 0001:001B9628 + 97 0001:001B964C 98 0001:001B9658 99 0001:001B967E 100 0001:001B9691 + 103 0001:001B96B4 104 0001:001B96C0 105 0001:001B96DD 112 0001:001B96F8 + 113 0001:001B972D 114 0001:001B973C 115 0001:001B974A 116 0001:001B976F + 120 0001:001B97B8 121 0001:001B97BF 122 0001:001B97C8 123 0001:001B97EC + 124 0001:001B9810 125 0001:001B9834 126 0001:001B9846 127 0001:001B9859 + 128 0001:001B986B 129 0001:001B987B 130 0001:001B98AC 131 0001:001B98D3 + 132 0001:001B98F5 133 0001:001B9904 134 0001:001B9914 135 0001:001B9923 + 136 0001:001B9933 137 0001:001B9942 145 0001:001B9952 146 0001:001B9962 + 147 0001:001B998E 148 0001:001B99B9 149 0001:001B99E4 150 0001:001B99F3 + 151 0001:001B9A14 152 0001:001B9A23 155 0001:001B9A33 156 0001:001B9A74 + 160 0001:001B9A85 161 0001:001B9A8F 163 0001:001B9AB0 165 0001:001B9AFE + 170 0001:001B9C60 173 0001:001B9CA4 174 0001:001B9CB2 175 0001:001B9CCD + 176 0001:001B9CE5 177 0001:001B9D1A 178 0001:001B9D35 179 0001:001B9D5F + 180 0001:001B9D7A 182 0001:001B9D94 183 0001:001B9D9A 184 0001:001B9DB6 + 185 0001:001B9DBF 186 0001:001B9DD5 187 0001:001B9DDE 188 0001:001B9DF4 + 189 0001:001B9DFD 190 0001:001B9E13 191 0001:001B9E29 192 0001:001B9E56 + 193 0001:001B9E64 194 0001:001B9E8F 196 0001:001B9EA2 197 0001:001B9ECE + 198 0001:001B9EED 197 0001:001B9F5D 206 0001:001B9F62 208 0001:001B9F6C + 209 0001:001B9F88 210 0001:001B9FAF 211 0001:001B9FDA 213 0001:001B9FEA + 214 0001:001BA013 215 0001:001BA02B 214 0001:001BA07D 218 0001:001BA082 + 220 0001:001BA092 221 0001:001BA0BB 222 0001:001BA0D3 221 0001:001BA125 + 224 0001:001BA12A 226 0001:001BA13A 227 0001:001BA163 228 0001:001BA17B + 227 0001:001BA1CD 230 0001:001BA1D2 231 0001:001BA1DE 232 0001:001BA1F1 + 233 0001:001BA1FF 234 0001:001BA22A 235 0001:001BA236 236 0001:001BA249 + 238 0001:001BA259 239 0001:001BA282 240 0001:001BA29A 239 0001:001BA2EC + 243 0001:001BA2F1 244 0001:001BA2F6 246 0001:001BA343 249 0001:001BA534 + 252 0001:001BA540 253 0001:001BA54E 254 0001:001BA569 255 0001:001BA581 + 256 0001:001BA5A2 257 0001:001BA5BD 258 0001:001BA5E7 259 0001:001BA602 + 260 0001:001BA61C 261 0001:001BA631 262 0001:001BA636 264 0001:001BA64D + 269 0001:001BA698 272 0001:001BA6CE 273 0001:001BA6DC 274 0001:001BA6F8 + 275 0001:001BA710 276 0001:001BA73D 277 0001:001BA758 278 0001:001BA782 + 279 0001:001BA79D 280 0001:001BA7BF 282 0001:001BA7E9 283 0001:001BA7F0 + 284 0001:001BA808 283 0001:001BA845 285 0001:001BA84A 287 0001:001BA87D + 288 0001:001BA882 290 0001:001BA8C3 295 0001:001BA908 297 0001:001BA90C + 299 0001:001BA915 300 0001:001BA924 302 0001:001BA92B 303 0001:001BA936 + 308 0001:001BA950 310 0001:001BA96A 312 0001:001BA977 313 0001:001BA993 + 314 0001:001BA9BB 315 0001:001BA9E3 316 0001:001BAA0B 318 0001:001BAA12 + 319 0001:001BAA47 322 0001:001BAA84 323 0001:001BAA88 324 0001:001BAA93 + 327 0001:001BAA98 328 0001:001BAA9C 329 0001:001BAAAA 332 0001:001BAAB0 + 333 0001:001BAAB4 334 0001:001BAAC2 350 0001:001BAAC8 353 0001:001BAAEA + 355 0001:001BAAF7 356 0001:001BAB13 357 0001:001BAB3B 358 0001:001BAB75 + 360 0001:001BAB7C 361 0001:001BAB84 363 0001:001BABBF 365 0001:001BAC80 + 365 0001:001BAC87 + +Line numbers for fARTFreeTextMsg(fARTFreeTextMsg.pas) segment .text + + 45 0001:001BAEA8 46 0001:001BAEB2 47 0001:001BAEC9 48 0001:001BAEDA + 51 0001:001BAEE8 52 0001:001BAEF3 53 0001:001BAEFF 54 0001:001BAF12 + 55 0001:001BAF1A 56 0001:001BAF2B 57 0001:001BAF36 58 0001:001BAF41 + 61 0001:001BAF5B 62 0001:001BAF65 64 0001:001BAF75 67 0001:001BB100 + 69 0001:001BB103 70 0001:001BB119 71 0001:001BB120 72 0001:001BB127 + 74 0001:001BB15C 74 0001:001BB163 + +Line numbers for fAllgyFind(fAllgyFind.pas) segment .text + + 91 0001:001BB488 92 0001:001BB492 93 0001:001BB4A9 94 0001:001BB4B7 + 95 0001:001BB4BF 96 0001:001BB4CF 97 0001:001BB4DA 99 0001:001BB4F7 + 101 0001:001BB507 104 0001:001BB50C 106 0001:001BB50F 107 0001:001BB51A + 108 0001:001BB527 111 0001:001BB52C 113 0001:001BB52F 114 0001:001BB53C + 115 0001:001BB549 116 0001:001BB556 123 0001:001BB558 125 0001:001BB57A + 127 0001:001BB595 128 0001:001BB5A8 130 0001:001BB5AD 131 0001:001BB5B7 + 132 0001:001BB5BE 133 0001:001BB5CD 134 0001:001BB5DB 135 0001:001BB5F0 + 136 0001:001BB61B 137 0001:001BB622 138 0001:001BB639 137 0001:001BB672 + 139 0001:001BB675 141 0001:001BB685 142 0001:001BB692 143 0001:001BB6A0 + 144 0001:001BB6AB 145 0001:001BB6B8 146 0001:001BB6C5 147 0001:001BB6D5 + 151 0001:001BB6E3 152 0001:001BB720 153 0001:001BB72D 154 0001:001BB76B + 155 0001:001BB77C 156 0001:001BB78F 157 0001:001BB798 158 0001:001BB7A1 + 160 0001:001BB7AC 161 0001:001BB7EC 162 0001:001BB7F5 163 0001:001BB801 + 164 0001:001BB80A 168 0001:001BB813 169 0001:001BB834 171 0001:001BB840 + 173 0001:001BB848 174 0001:001BB851 175 0001:001BB859 177 0001:001BB864 + 178 0001:001BB8A4 179 0001:001BB8B0 181 0001:001BB8B9 182 0001:001BB8C2 + 183 0001:001BB8CB 188 0001:001BB8D4 189 0001:001BB8E0 171 0001:001BB901 + 192 0001:001BB909 193 0001:001BB916 194 0001:001BB924 195 0001:001BB931 + 196 0001:001BB93E 199 0001:001BB95B 200 0001:001BB963 202 0001:001BB9C1 + 209 0001:001BBB74 211 0001:001BBB95 213 0001:001BBBAA 214 0001:001BBBBC + 216 0001:001BBBC9 219 0001:001BBC0E 220 0001:001BBC1B 222 0001:001BBC20 + 227 0001:001BBC82 228 0001:001BBC8F 231 0001:001BBCE6 232 0001:001BBCF5 + 233 0001:001BBD03 234 0001:001BBD07 235 0001:001BBD12 237 0001:001BBD18 + 238 0001:001BBD28 239 0001:001BBD39 241 0001:001BBD43 242 0001:001BBD6D + 243 0001:001BBD8F 244 0001:001BBDA4 245 0001:001BBDC6 247 0001:001BBDDB + 249 0001:001BBE0C 251 0001:001BBE1C 255 0001:001BBE29 256 0001:001BBE39 + 257 0001:001BBE4A 260 0001:001BBE4F 263 0001:001BBE5C 266 0001:001BBE8C + 267 0001:001BBE99 272 0001:001BBE9E 273 0001:001BBEBC 274 0001:001BBED5 + 275 0001:001BBEFE 276 0001:001BBF16 278 0001:001BBF75 281 0001:001BC3F8 + 283 0001:001BC3FB 284 0001:001BC406 285 0001:001BC40D 288 0001:001BC410 + 290 0001:001BC414 292 0001:001BC41A 293 0001:001BC434 294 0001:001BC44E + 295 0001:001BC468 296 0001:001BC482 297 0001:001BC49C 299 0001:001BC4B3 + 307 0001:001BC4B8 308 0001:001BC4E5 309 0001:001BC4F9 311 0001:001BC50F + 312 0001:001BC513 313 0001:001BC532 315 0001:001BC543 316 0001:001BC562 + 317 0001:001BC581 318 0001:001BC5B1 320 0001:001BC5B7 322 0001:001BC5C3 + 323 0001:001BC5CE 325 0001:001BC5D4 326 0001:001BC611 323 0001:001BC61F + 330 0001:001BC627 332 0001:001BC631 336 0001:001BC637 337 0001:001BC654 + 338 0001:001BC66B 341 0001:001BC682 309 0001:001BC683 342 0001:001BC68C + 343 0001:001BC6CF 348 0001:001BC6E4 349 0001:001BC6EB 351 0001:001BC71C + 351 0001:001BC723 + +Line numbers for rOptions(Options\rOptions.pas) segment .text + + 83 0001:001BC724 84 0001:001BC727 85 0001:001BC73F 86 0001:001BC751 + 87 0001:001BC75E 90 0001:001BC77C 91 0001:001BC77F 92 0001:001BC797 + 93 0001:001BC7A9 94 0001:001BC7B6 97 0001:001BC7D4 98 0001:001BC7DA + 99 0001:001BC7F6 102 0001:001BC814 103 0001:001BC830 104 0001:001BC873 + 109 0001:001BC890 110 0001:001BC8AE 111 0001:001BC8CB 112 0001:001BC8EE + 113 0001:001BC935 116 0001:001BC964 117 0001:001BC983 118 0001:001BC9B9 + 122 0001:001BC9D8 123 0001:001BC9DB 124 0001:001BC9F3 127 0001:001BCA10 + 128 0001:001BCA13 129 0001:001BCA29 132 0001:001BCA44 133 0001:001BCA47 + 134 0001:001BCA5D 137 0001:001BCA78 138 0001:001BCA97 139 0001:001BCACD + 144 0001:001BCAEC 145 0001:001BCAEF 146 0001:001BCB07 147 0001:001BCB19 + 148 0001:001BCB26 151 0001:001BCB44 152 0001:001BCB4A 153 0001:001BCB66 + 156 0001:001BCB84 157 0001:001BCBA3 158 0001:001BCBD9 161 0001:001BCBF8 + 162 0001:001BCC01 163 0001:001BCC23 164 0001:001BCC35 165 0001:001BCC42 + 168 0001:001BCC60 169 0001:001BCC66 170 0001:001BCC82 173 0001:001BCCA0 + 174 0001:001BCCA6 175 0001:001BCCBF 180 0001:001BCCE0 181 0001:001BCCFA + 182 0001:001BCD16 183 0001:001BCD29 184 0001:001BCD4A 187 0001:001BCD74 + 188 0001:001BCD77 189 0001:001BCD8D 192 0001:001BCDA8 193 0001:001BCDAB + 194 0001:001BCDC3 195 0001:001BCDD5 196 0001:001BCDE2 199 0001:001BCE00 + 205 0001:001BCE0C 207 0001:001BCE37 208 0001:001BCE44 211 0001:001BCE6C + 212 0001:001BCE6F 214 0001:001BCE85 215 0001:001BCE92 218 0001:001BCEB0 + 219 0001:001BCECC 220 0001:001BCF12 223 0001:001BCF30 224 0001:001BCF33 + 225 0001:001BCF60 232 0001:001BCF7C 233 0001:001BCF9A 234 0001:001BCFB6 + 235 0001:001BCFD5 236 0001:001BD01E 241 0001:001BD03C 242 0001:001BD05A + 243 0001:001BD076 244 0001:001BD097 245 0001:001BD0E2 250 0001:001BD100 + 251 0001:001BD120 252 0001:001BD13C 253 0001:001BD14F 254 0001:001BD162 + 255 0001:001BD181 256 0001:001BD1CF 261 0001:001BD1F4 262 0001:001BD214 + 263 0001:001BD230 264 0001:001BD243 265 0001:001BD256 266 0001:001BD275 + 267 0001:001BD2C3 272 0001:001BD2E8 273 0001:001BD310 274 0001:001BD318 + 275 0001:001BD33A 276 0001:001BD35C 277 0001:001BD37E 278 0001:001BD3A1 + 279 0001:001BD3DC 317 0001:001BD410 318 0001:001BD416 319 0001:001BD42E + 320 0001:001BD440 321 0001:001BD454 324 0001:001BD470 325 0001:001BD473 + 326 0001:001BD489 331 0001:001BD4A4 332 0001:001BD4BE 333 0001:001BD508 + 338 0001:001BD528 339 0001:001BD548 340 0001:001BD564 341 0001:001BD577 + 342 0001:001BD58A 343 0001:001BD5A9 344 0001:001BD5F7 349 0001:001BD618 + 350 0001:001BD643 351 0001:001BD65F 352 0001:001BD67E 353 0001:001BD69D + 354 0001:001BD6BC 355 0001:001BD6DE 356 0001:001BD700 357 0001:001BD722 + 358 0001:001BD76E 363 0001:001BD790 364 0001:001BD7B8 365 0001:001BD7D4 + 366 0001:001BD7F3 367 0001:001BD812 368 0001:001BD831 369 0001:001BD87D + 374 0001:001BD8A0 375 0001:001BD8CB 376 0001:001BD8D3 377 0001:001BD8F5 + 378 0001:001BD917 379 0001:001BD939 380 0001:001BD95C 381 0001:001BD97F + 382 0001:001BD9A2 383 0001:001BD9C5 384 0001:001BD9E8 385 0001:001BDA0B + 386 0001:001BDA46 391 0001:001BDA74 392 0001:001BDA9F 393 0001:001BDAA7 + 394 0001:001BDAC9 395 0001:001BDAEC 396 0001:001BDB0E 397 0001:001BDB31 + 398 0001:001BDB54 399 0001:001BDB77 400 0001:001BDBB2 405 0001:001BDBE0 + 406 0001:001BDBE6 407 0001:001BDBFE 408 0001:001BDC10 409 0001:001BDC24 + 412 0001:001BDC40 413 0001:001BDC46 414 0001:001BDC5E 415 0001:001BDC70 + 416 0001:001BDC84 419 0001:001BDCA0 420 0001:001BDCA6 421 0001:001BDCBE + 422 0001:001BDCD0 423 0001:001BDCE4 426 0001:001BDD00 427 0001:001BDD06 + 428 0001:001BDD1E 429 0001:001BDD30 430 0001:001BDD44 433 0001:001BDD60 + 434 0001:001BDD7F 435 0001:001BDDB5 438 0001:001BDDD4 439 0001:001BDDFB + 440 0001:001BDE15 441 0001:001BDE4E 444 0001:001BDE6C 445 0001:001BDE6F + 446 0001:001BDE93 449 0001:001BDEB0 450 0001:001BDEB6 451 0001:001BDECE + 452 0001:001BDEE0 453 0001:001BDEF4 456 0001:001BDF10 457 0001:001BDF13 + 458 0001:001BDF29 461 0001:001BDF44 462 0001:001BDF47 463 0001:001BDF5D + 468 0001:001BDF78 469 0001:001BDF7B 470 0001:001BDF93 471 0001:001BDFA5 + 472 0001:001BDFB2 475 0001:001BDFD0 476 0001:001BDFD3 477 0001:001BDFE9 + 485 0001:001BE004 486 0001:001BE02A 487 0001:001BE046 489 0001:001BE056 + 490 0001:001BE069 491 0001:001BE07B 492 0001:001BE08E 493 0001:001BE0A0 + 494 0001:001BE0AC 495 0001:001BE0B8 496 0001:001BE104 499 0001:001BE124 + 500 0001:001BE13D 501 0001:001BE176 504 0001:001BE194 505 0001:001BE1AD + 506 0001:001BE1E6 509 0001:001BE204 510 0001:001BE228 511 0001:001BE267 + 514 0001:001BE280 515 0001:001BE2AF 516 0001:001BE2FB 522 0001:001BE318 + 523 0001:001BE33E 524 0001:001BE35A 526 0001:001BE366 527 0001:001BE373 + 529 0001:001BE378 530 0001:001BE38B 531 0001:001BE39D 532 0001:001BE3B0 + 533 0001:001BE3C2 534 0001:001BE3CE 535 0001:001BE3DA 536 0001:001BE426 + 542 0001:001BE45C 543 0001:001BE487 544 0001:001BE4A3 545 0001:001BE4B6 + 546 0001:001BE4D0 547 0001:001BE4E2 548 0001:001BE4F5 549 0001:001BE50F + 550 0001:001BE521 551 0001:001BE52A 552 0001:001BE536 553 0001:001BE54E + 554 0001:001BE55A 555 0001:001BE5A1 558 0001:001BE5CC 559 0001:001BE5F0 + 560 0001:001BE62F 565 0001:001BE64C 566 0001:001BE66D 567 0001:001BE671 + 569 0001:001BE68F 570 0001:001BE6AB 571 0001:001BE6BE 572 0001:001BE6D1 + 573 0001:001BE6DD 574 0001:001BE70B 579 0001:001BE74C 580 0001:001BE77B + 581 0001:001BE783 582 0001:001BE79B 583 0001:001BE7A6 584 0001:001BE7E1 + 587 0001:001BE810 588 0001:001BE82C 589 0001:001BE86F 591 0001:001BE8BC + 591 0001:001BE8C3 + +Line numbers for fVisit(fVisit.pas) segment .text + + 261 0001:001BE8F4 261 0001:001BE8FB + +Line numbers for mCoPayDesc(mCoPayDesc.pas) segment .text + + 55 0001:001BEC18 56 0001:001BEC35 57 0001:001BEC3E 58 0001:001BEC4F + 59 0001:001BEC64 60 0001:001BEC79 61 0001:001BEC8E 62 0001:001BECA3 + 63 0001:001BECB8 64 0001:001BECCD 65 0001:001BECE2 66 0001:001BECF7 + 67 0001:001BED0C 68 0001:001BED21 69 0001:001BED36 70 0001:001BED4B + 71 0001:001BED60 73 0001:001BED8E 75 0001:001BEDC4 75 0001:001BEDCB + +Line numbers for XuDigSigSC_TLB(XuDigSigSC_TLB.pas) segment .text + + 141 0001:001BEE24 142 0001:001BEE3A 143 0001:001BEE73 150 0001:001BEEB8 + 150 0001:001BEEBF + +Line numbers for fConsult513Prt(Consults\fConsult513Prt.pas) segment .text + + 64 0001:001BF21C 65 0001:001BF246 66 0001:001BF25D 67 0001:001BF26B + 70 0001:001BF273 71 0001:001BF284 72 0001:001BF28D 73 0001:001BF2AC + 74 0001:001BF2C8 76 0001:001BF2D1 78 0001:001BF2E4 79 0001:001BF2F4 + 81 0001:001BF304 83 0001:001BF311 84 0001:001BF335 87 0001:001BF348 + 89 0001:001BF351 91 0001:001BF374 93 0001:001BF381 96 0001:001BF399 + 98 0001:001BF3D3 101 0001:001BF464 103 0001:001BF468 106 0001:001BF47E + 107 0001:001BF487 108 0001:001BF490 110 0001:001BF49C 113 0001:001BF4A0 + 114 0001:001BF4C2 116 0001:001BF4CE 117 0001:001BF522 119 0001:001BF5B5 + 123 0001:001BF5FC 125 0001:001BF605 126 0001:001BF61C 129 0001:001BF624 + 131 0001:001BF640 133 0001:001BF650 134 0001:001BF688 135 0001:001BF6C0 + 137 0001:001BF6E9 142 0001:001BF6F0 143 0001:001BF6F5 148 0001:001BF6F8 + 149 0001:001BF6FD 157 0001:001BF700 159 0001:001BF722 160 0001:001BF72A + 161 0001:001BF732 163 0001:001BF759 164 0001:001BF76A 166 0001:001BF76F + 167 0001:001BF79D 169 0001:001BF7D8 171 0001:001BF7F1 172 0001:001BF80C + 173 0001:001BF82D 178 0001:001BF851 179 0001:001BF87D 180 0001:001BF892 + 181 0001:001BF8BB 183 0001:001BF8D6 184 0001:001BF91C 185 0001:001BF950 + 186 0001:001BF9E4 191 0001:001BFAA4 192 0001:001BFAA9 195 0001:001BFAAC + 196 0001:001BFAB2 197 0001:001BFABD 198 0001:001BFAC6 200 0001:001BFAFC + 200 0001:001BFB03 + +Line numbers for fNoteST(fNoteST.pas) segment .text + + 54 0001:001BFD80 55 0001:001BFDA2 56 0001:001BFDB9 59 0001:001BFDC7 + 60 0001:001BFDD7 61 0001:001BFDE4 62 0001:001BFDEF 63 0001:001BFDFA + 66 0001:001BFE07 67 0001:001BFE11 68 0001:001BFE19 69 0001:001BFE2A + 70 0001:001BFE32 71 0001:001BFE3D 74 0001:001BFE54 75 0001:001BFE5F + 79 0001:001BFE7D 81 0001:001BFEAA 85 0001:001BFEB4 86 0001:001BFEBB + 87 0001:001BFEC0 90 0001:001BFEC4 91 0001:001BFEDC 93 0001:001BFEF0 + 94 0001:001BFF03 96 0001:001BFF05 97 0001:001BFF0C 98 0001:001BFF28 + 99 0001:001BFF51 103 0001:001BFFA8 104 0001:001BFFAD 108 0001:001BFFB0 + 109 0001:001BFFB5 112 0001:001BFFB8 113 0001:001BFFBB 114 0001:001BFFC2 + 115 0001:001BFFD6 117 0001:001C0008 117 0001:001C000F + +Line numbers for fNoteBA(fNoteBA.pas) segment .text + + 53 0001:001C0278 54 0001:001C02B4 55 0001:001C02CB 58 0001:001C02D9 + 59 0001:001C02E6 60 0001:001C02F1 61 0001:001C02FC 62 0001:001C0309 + 63 0001:001C0325 64 0001:001C0341 65 0001:001C034B 66 0001:001C0357 + 67 0001:001C0360 69 0001:001C0370 70 0001:001C038F 74 0001:001C039E + 75 0001:001C03AF 77 0001:001C03C3 78 0001:001C03CF 79 0001:001C03F3 + 82 0001:001C03FE 83 0001:001C0409 84 0001:001C041E 85 0001:001C042F + 89 0001:001C0448 91 0001:001C0483 95 0001:001C048C 96 0001:001C0495 + 97 0001:001C04AC 101 0001:001C04B4 102 0001:001C04B9 105 0001:001C04BC + 106 0001:001C04D3 108 0001:001C04E8 109 0001:001C04FB 111 0001:001C04FD + 112 0001:001C0504 113 0001:001C051B 114 0001:001C0542 115 0001:001C0558 + 116 0001:001C057C 118 0001:001C0604 118 0001:001C060B + +Line numbers for fNoteBD(fNoteBD.pas) segment .text + + 58 0001:001C08C8 59 0001:001C0904 60 0001:001C091B 63 0001:001C0929 + 64 0001:001C0936 65 0001:001C0941 66 0001:001C094C 67 0001:001C0959 + 68 0001:001C0975 69 0001:001C0991 70 0001:001C099B 71 0001:001C09AC + 72 0001:001C09BD 73 0001:001C09E7 74 0001:001C09F3 75 0001:001C0A13 + 78 0001:001C0A1E 79 0001:001C0A29 80 0001:001C0A3A 81 0001:001C0A4F + 82 0001:001C0A60 83 0001:001C0A75 87 0001:001C0A8E 89 0001:001C0AC9 + 94 0001:001C0AE0 95 0001:001C0B00 96 0001:001C0B14 98 0001:001C0B30 + 100 0001:001C0B38 101 0001:001C0B4C 103 0001:001C0B68 105 0001:001C0B70 + 107 0001:001C0B7B 108 0001:001C0B82 109 0001:001C0B9E 110 0001:001C0BB0 + 111 0001:001C0BCC 112 0001:001C0BDE 116 0001:001C0BF6 117 0001:001C0C09 + 119 0001:001C0C0B 120 0001:001C0C34 124 0001:001C0C98 125 0001:001C0C9D + 130 0001:001C0CA0 131 0001:001C0CAC 136 0001:001C0CB0 137 0001:001C0CBC + 139 0001:001C0CF0 139 0001:001C0CF7 + +Line numbers for fSignItem(fSignItem.pas) segment .text + + 37 0001:001C0F0C 38 0001:001C0F16 39 0001:001C0F2D 40 0001:001C0F3B + 43 0001:001C0F43 44 0001:001C0F50 45 0001:001C0F5A 46 0001:001C0F6A + 47 0001:001C0F75 50 0001:001C0F93 52 0001:001C0FA3 55 0001:001C0FAC + 56 0001:001C0FC6 58 0001:001C0FE0 59 0001:001C0FF1 60 0001:001C0FFF + 61 0001:001C100A 63 0001:001C100C 64 0001:001C1033 65 0001:001C1067 + 68 0001:001C10E4 69 0001:001C10E7 70 0001:001C10F2 71 0001:001C10F9 + 73 0001:001C112C 73 0001:001C1133 + +Line numbers for fNoteCslt(fNoteCslt.pas) segment .text + + 88 0001:001C1164 88 0001:001C116B + +Line numbers for fNotePrt(fNotePrt.pas) segment .text + + 62 0001:001C14AC 63 0001:001C14CF 64 0001:001C14E6 65 0001:001C14F4 + 69 0001:001C14FC 81 0001:001C1507 82 0001:001C151A 86 0001:001C152F + 87 0001:001C153F 90 0001:001C1552 91 0001:001C1562 92 0001:001C15A2 + 93 0001:001C15AB 95 0001:001C15CA 97 0001:001C15E6 99 0001:001C15EF + 101 0001:001C1602 102 0001:001C1612 104 0001:001C1622 106 0001:001C162F + 107 0001:001C1653 110 0001:001C1666 113 0001:001C166F 114 0001:001C1692 + 122 0001:001C169F 125 0001:001C16B7 127 0001:001C16E9 130 0001:001C178C + 132 0001:001C1790 135 0001:001C17A6 136 0001:001C17AF 137 0001:001C17B8 + 139 0001:001C17C4 142 0001:001C17C8 143 0001:001C17EA 145 0001:001C17F6 + 146 0001:001C184A 148 0001:001C18DD 152 0001:001C1924 154 0001:001C192D + 155 0001:001C1944 158 0001:001C194C 160 0001:001C1968 162 0001:001C1978 + 163 0001:001C19B0 164 0001:001C19E8 166 0001:001C1A11 171 0001:001C1A18 + 172 0001:001C1A1D 177 0001:001C1A20 178 0001:001C1A25 186 0001:001C1A28 + 188 0001:001C1A4A 189 0001:001C1A52 191 0001:001C1A5A 193 0001:001C1A81 + 194 0001:001C1A92 197 0001:001C1A97 198 0001:001C1AA9 199 0001:001C1AAD + 202 0001:001C1AAF 204 0001:001C1AEA 206 0001:001C1AFD 207 0001:001C1B1D + 208 0001:001C1B3E 213 0001:001C1B5B 214 0001:001C1B87 216 0001:001C1B9B + 217 0001:001C1BA7 220 0001:001C1BB6 221 0001:001C1BC8 223 0001:001C1BFC + 224 0001:001C1C2A 225 0001:001C1CBB 230 0001:001C1D64 231 0001:001C1D69 + 233 0001:001C1D9C 233 0001:001C1DA3 + +Line numbers for uSurgery(uSurgery.pas) segment .text + + 40 0001:001C1E1C 41 0001:001C1E2E 42 0001:001C1E37 43 0001:001C1E5D + 47 0001:001C1E60 48 0001:001C1E6B 49 0001:001C1E73 50 0001:001C1E8A + 58 0001:001C1E90 59 0001:001C1EB9 60 0001:001C1EC4 62 0001:001C1F6C + 63 0001:001C1F98 68 0001:001C1FE0 69 0001:001C200C 70 0001:001C2017 + 72 0001:001C20D5 73 0001:001C2101 114 0001:001C217C 114 0001:001C2183 + +Line numbers for rSurgery(rSurgery.pas) segment .text + + 62 0001:001C21CC 65 0001:001C21E6 67 0001:001C21EF 68 0001:001C2220 + 70 0001:001C2227 72 0001:001C224C 80 0001:001C227C 81 0001:001C22B0 + 83 0001:001C22B5 84 0001:001C22C8 85 0001:001C22CF 88 0001:001C22D3 + 89 0001:001C22F8 90 0001:001C2323 91 0001:001C233C 92 0001:001C234A + 93 0001:001C2366 94 0001:001C2380 95 0001:001C238D 96 0001:001C23AF + 97 0001:001C23FE 124 0001:001C2470 125 0001:001C2490 126 0001:001C24B4 + 127 0001:001C24C3 129 0001:001C24D4 130 0001:001C24E0 132 0001:001C2509 + 138 0001:001C2570 140 0001:001C2595 142 0001:001C25BF 143 0001:001C25EB + 146 0001:001C261C 147 0001:001C2639 148 0001:001C263B 149 0001:001C2644 + 150 0001:001C2648 151 0001:001C2691 161 0001:001C26C4 162 0001:001C26E9 + 163 0001:001C2713 164 0001:001C273D 167 0001:001C2782 169 0001:001C2798 + 170 0001:001C27B1 171 0001:001C27C3 175 0001:001C27D9 176 0001:001C27E0 + 179 0001:001C280E 184 0001:001C2848 185 0001:001C284E 188 0001:001C286E + 190 0001:001C2884 191 0001:001C289D 192 0001:001C28AF 193 0001:001C28CC + 197 0001:001C28E2 198 0001:001C28E9 201 0001:001C28F5 206 0001:001C2948 + 207 0001:001C294E 208 0001:001C2966 209 0001:001C297A 213 0001:001C299C + 214 0001:001C29A2 215 0001:001C29BA 216 0001:001C29CE 236 0001:001C29F4 + 237 0001:001C2A30 240 0001:001C2A54 241 0001:001C2A58 242 0001:001C2A76 + 243 0001:001C2A82 244 0001:001C2AA0 245 0001:001C2AAC 246 0001:001C2ACA + 247 0001:001C2AE8 248 0001:001C2B08 250 0001:001C2B2E 251 0001:001C2B76 + 256 0001:001C2BA8 259 0001:001C2BE3 260 0001:001C2BF6 261 0001:001C2C09 + 262 0001:001C2C1C 263 0001:001C2C2F 264 0001:001C2C4D 266 0001:001C2C76 + 267 0001:001C2CC7 281 0001:001C2CF0 282 0001:001C2CF6 283 0001:001C2D0E + 284 0001:001C2D22 306 0001:001C2D40 307 0001:001C2D5C 308 0001:001C2DA7 + 313 0001:001C2DDC 315 0001:001C2E1D 310 0001:001C2E20 312 0001:001C2E27 + +Line numbers for uAccessibleListBox(uAccessibleListBox.pas) segment .text + + 53 0001:001C2E28 63 0001:001C3108 64 0001:001C313F 65 0001:001C3152 + 66 0001:001C3162 67 0001:001C31BA 71 0001:001C31C4 72 0001:001C3203 + 73 0001:001C3216 74 0001:001C3226 75 0001:001C328E 78 0001:001C3298 + 79 0001:001C32C7 80 0001:001C32CF 81 0001:001C32DF 82 0001:001C333B + 85 0001:001C3344 86 0001:001C3365 87 0001:001C3369 88 0001:001C3379 + 89 0001:001C33BE 93 0001:001C33C8 94 0001:001C33F7 95 0001:001C33FF + 96 0001:001C340F 97 0001:001C346B 101 0001:001C3474 102 0001:001C34A3 + 103 0001:001C34AB 104 0001:001C34BB 105 0001:001C3517 108 0001:001C3520 + 109 0001:001C3557 110 0001:001C356A 111 0001:001C357A 112 0001:001C35CA + 115 0001:001C35D4 116 0001:001C3603 117 0001:001C360B 118 0001:001C361B + 119 0001:001C3677 123 0001:001C3680 124 0001:001C36B4 125 0001:001C36B8 + 126 0001:001C36C8 127 0001:001C372A 131 0001:001C3734 132 0001:001C3763 + 133 0001:001C376B 134 0001:001C377B 135 0001:001C37D7 142 0001:001C37E0 + 143 0001:001C3818 145 0001:001C382A 146 0001:001C3832 148 0001:001C383D + 149 0001:001C386C 150 0001:001C3878 151 0001:001C387C 153 0001:001C388C + 154 0001:001C3894 157 0001:001C38AF 158 0001:001C38BF 159 0001:001C3943 + 162 0001:001C394C 163 0001:001C3973 164 0001:001C397B 165 0001:001C398B + 166 0001:001C39D3 169 0001:001C39DC 170 0001:001C3A1B 171 0001:001C3A2E + 172 0001:001C3A3E 173 0001:001C3AA2 176 0001:001C3AAC 177 0001:001C3AE3 + 178 0001:001C3AF6 179 0001:001C3B06 180 0001:001C3B56 183 0001:001C3B60 + 184 0001:001C3B9F 185 0001:001C3BB2 186 0001:001C3BC2 187 0001:001C3C26 + 190 0001:001C3C30 191 0001:001C3C5F 192 0001:001C3C67 193 0001:001C3C77 + 194 0001:001C3CD3 197 0001:001C3CDC 198 0001:001C3D00 199 0001:001C3D10 + 200 0001:001C3D63 204 0001:001C3D6C 205 0001:001C3D90 206 0001:001C3DA0 + 207 0001:001C3E03 211 0001:001C3E0C 212 0001:001C3E30 213 0001:001C3E40 + 214 0001:001C3E97 218 0001:001C3EA0 219 0001:001C3EC4 220 0001:001C3ED4 + 221 0001:001C3F2B 225 0001:001C3F34 226 0001:001C3F58 227 0001:001C3F68 + 228 0001:001C3FBF 231 0001:001C3FC8 232 0001:001C3FE2 233 0001:001C3FEF + 234 0001:001C4004 236 0001:001C4008 237 0001:001C402F 240 0001:001C4038 + 241 0001:001C406E 242 0001:001C407C 243 0001:001C4080 244 0001:001C4099 + 246 0001:001C409D 247 0001:001C40C9 254 0001:001C40D0 255 0001:001C40E7 + 257 0001:001C40F0 258 0001:001C40FE 259 0001:001C410F 261 0001:001C4139 + 265 0001:001C4140 266 0001:001C4149 267 0001:001C4152 290 0001:001C4184 + 291 0001:001C4193 293 0001:001C41A1 296 0001:001C41D4 298 0001:001C41E0 + +Line numbers for fNoteProps(fNoteProps.pas) segment .text + + 212 0001:001C4890 213 0001:001C48C3 214 0001:001C48DA 215 0001:001C48EB + 216 0001:001C48F9 220 0001:001C4901 221 0001:001C4925 222 0001:001C492E + 223 0001:001C4937 224 0001:001C4947 225 0001:001C4960 227 0001:001C496C + 228 0001:001C4973 230 0001:001C497F 232 0001:001C49A2 233 0001:001C49AF + 234 0001:001C49BF 236 0001:001C49CF 237 0001:001C49DC 238 0001:001C49EF + 239 0001:001C4A03 240 0001:001C4A1B 241 0001:001C4A36 242 0001:001C4A4D + 246 0001:001C4A69 247 0001:001C4A7D 248 0001:001C4A91 252 0001:001C4AC8 + 253 0001:001C4AD5 254 0001:001C4AE8 255 0001:001C4AF8 256 0001:001C4B0C + 257 0001:001C4B36 260 0001:001C4B58 261 0001:001C4B65 263 0001:001C4B6E + 265 0001:001C4B73 266 0001:001C4B83 267 0001:001C4B97 268 0001:001C4BC1 + 270 0001:001C4BD5 271 0001:001C4C01 273 0001:001C4C17 274 0001:001C4C2A + 281 0001:001C4C40 282 0001:001C4C4D 283 0001:001C4C8F 284 0001:001C4CA3 + 286 0001:001C4CCD 287 0001:001C4CDE 288 0001:001C4CE8 289 0001:001C4D08 + 290 0001:001C4D23 291 0001:001C4D40 292 0001:001C4D4A 294 0001:001C4D61 + 295 0001:001C4D70 296 0001:001C4D88 297 0001:001C4D9B 298 0001:001C4DA9 + 299 0001:001C4DC1 300 0001:001C4DD4 302 0001:001C4DDE 303 0001:001C4DE6 + 305 0001:001C4E01 306 0001:001C4E0B 307 0001:001C4E15 310 0001:001C4E21 + 311 0001:001C4E2B 312 0001:001C4E35 316 0001:001C4E41 318 0001:001C4E73 + 319 0001:001C4E88 323 0001:001C4E9D 325 0001:001C4EA9 326 0001:001C4EBC + 327 0001:001C4ECC 329 0001:001C4EDF 330 0001:001C4F01 331 0001:001C4F0B + 332 0001:001C4F16 333 0001:001C4F20 336 0001:001C4F29 337 0001:001C4F35 + 339 0001:001C4F3D 340 0001:001C4F50 341 0001:001C4F5E 343 0001:001C4F7B + 345 0001:001C4F96 347 0001:001C4FA0 349 0001:001C4FAC 350 0001:001C4FC2 + 352 0001:001C4FDD 353 0001:001C4FE4 354 0001:001C4FF9 355 0001:001C5010 + 356 0001:001C5051 358 0001:001C5060 359 0001:001C5070 362 0001:001C50B1 + 363 0001:001C50C3 366 0001:001C50D6 367 0001:001C50E7 369 0001:001C50F2 + 371 0001:001C5102 372 0001:001C5111 373 0001:001C5129 375 0001:001C5132 + 376 0001:001C5142 378 0001:001C515F 380 0001:001C5187 389 0001:001C519A + 391 0001:001C51A9 392 0001:001C51BD 393 0001:001C51CD 395 0001:001C51FE + 397 0001:001C520D 398 0001:001C5221 399 0001:001C5231 401 0001:001C525F + 403 0001:001C526E 404 0001:001C5298 411 0001:001C52D9 412 0001:001C52EC + 414 0001:001C533E 421 0001:001C550C 433 0001:001C5510 439 0001:001C5514 + 440 0001:001C551A 442 0001:001C5523 445 0001:001C554D 446 0001:001C5562 + 447 0001:001C559B 449 0001:001C55D7 450 0001:001C55EB 452 0001:001C55F3 + 454 0001:001C5603 456 0001:001C5615 457 0001:001C562D 459 0001:001C563E + 460 0001:001C5661 461 0001:001C5672 465 0001:001C56A1 466 0001:001C56B5 + 467 0001:001C56C0 470 0001:001C56CE 480 0001:001C56D4 481 0001:001C56F3 + 482 0001:001C5708 483 0001:001C5713 484 0001:001C5720 486 0001:001C5728 + 487 0001:001C5736 488 0001:001C5755 489 0001:001C5765 490 0001:001C577D + 492 0001:001C578A 493 0001:001C579F 494 0001:001C57D2 492 0001:001C57F7 + 495 0001:001C57FC 499 0001:001C580E 500 0001:001C581E 502 0001:001C5834 + 503 0001:001C584E 504 0001:001C585F 506 0001:001C589E 510 0001:001C5958 + 511 0001:001C595E 512 0001:001C596B 513 0001:001C5976 515 0001:001C597A + 516 0001:001C5999 518 0001:001C59BD 524 0001:001C59C0 525 0001:001C59C9 + 527 0001:001C59E1 528 0001:001C59EA 530 0001:001C5A09 532 0001:001C5A28 + 533 0001:001C5A47 535 0001:001C5A64 539 0001:001C5A6C 540 0001:001C5A74 + 554 0001:001C5A78 555 0001:001C5A7E 556 0001:001C5A84 557 0001:001C5ABA + 559 0001:001C5ACB 560 0001:001C5AE3 563 0001:001C5AED 567 0001:001C5AFD + 568 0001:001C5B01 569 0001:001C5B13 574 0001:001C5B40 577 0001:001C5B5A + 578 0001:001C5B72 579 0001:001C5B79 580 0001:001C5B85 581 0001:001C5B9E + 584 0001:001C5BB7 585 0001:001C5BC0 586 0001:001C5BD1 589 0001:001C5D4C + 590 0001:001C5D4F 591 0001:001C5D79 595 0001:001C5D7C 596 0001:001C5D83 + 602 0001:001C5D84 603 0001:001C5D8D 604 0001:001C5DAB 608 0001:001C5DB4 + 609 0001:001C5DC8 612 0001:001C5DCC 613 0001:001C5DCF 614 0001:001C5DD8 + 615 0001:001C5DEF 618 0001:001C5DF4 619 0001:001C5DF7 620 0001:001C5E1B + 625 0001:001C5E20 626 0001:001C5E3B 628 0001:001C5E62 629 0001:001C5E6C + 630 0001:001C5E80 631 0001:001C5E8B 633 0001:001C5E8D 634 0001:001C5EA4 + 635 0001:001C5F04 642 0001:001C5F0C 643 0001:001C5F2E 644 0001:001C5F3C + 664 0001:001C5F48 665 0001:001C5F51 666 0001:001C5F59 667 0001:001C5F6E + 668 0001:001C5F7B 670 0001:001C5F85 672 0001:001C5F92 673 0001:001C5FC0 + 678 0001:001C6017 679 0001:001C604A 683 0001:001C6097 685 0001:001C60A1 + 687 0001:001C60AA 688 0001:001C60C5 692 0001:001C60E2 693 0001:001C6100 + 694 0001:001C6112 695 0001:001C6130 696 0001:001C613F 698 0001:001C614B + 699 0001:001C615D 700 0001:001C616C 701 0001:001C618B 705 0001:001C6198 + 706 0001:001C61BA 707 0001:001C61D6 708 0001:001C620E 710 0001:001C621E + 712 0001:001C623C 713 0001:001C628E 715 0001:001C62AC 716 0001:001C62CD + 718 0001:001C62E9 720 0001:001C62F6 722 0001:001C6303 723 0001:001C6327 + 724 0001:001C6338 725 0001:001C6359 726 0001:001C6396 730 0001:001C63AD + 731 0001:001C63BE 733 0001:001C63D4 734 0001:001C63F2 735 0001:001C642C + 739 0001:001C643E 741 0001:001C645C 744 0001:001C6466 745 0001:001C6484 + 746 0001:001C64BD 750 0001:001C69DC 752 0001:001C69E6 764 0001:001C69E8 + 768 0001:001C69EC 769 0001:001C69F8 770 0001:001C6A1C 773 0001:001C6A24 + 774 0001:001C6A2A 775 0001:001C6A37 776 0001:001C6A44 777 0001:001C6A51 + 778 0001:001C6A5E 782 0001:001C6A64 783 0001:001C6A69 789 0001:001C6A6C + 790 0001:001C6A6F 791 0001:001C6A7B 792 0001:001C6A81 793 0001:001C6A8A + 795 0001:001C6A96 796 0001:001C6AA0 797 0001:001C6AC2 799 0001:001C6AD2 + 804 0001:001C6B00 805 0001:001C6B04 806 0001:001C6B33 807 0001:001C6B56 + 808 0001:001C6B79 809 0001:001C6B90 810 0001:001C6BB3 813 0001:001C6BB8 + 814 0001:001C6BBB 815 0001:001C6BCC 816 0001:001C6BDE 819 0001:001C6BE0 + 820 0001:001C6BE3 821 0001:001C6C03 823 0001:001C6C13 824 0001:001C6C2E + 825 0001:001C6C37 826 0001:001C6C49 827 0001:001C6C6B 828 0001:001C6C81 + 830 0001:001C6C93 831 0001:001C6CA3 833 0001:001C6CB4 834 0001:001C6CC5 + 837 0001:001C6CD6 841 0001:001C6D5C 842 0001:001C6D72 847 0001:001C6D74 + 848 0001:001C6D86 849 0001:001C6D8F 850 0001:001C6DB5 853 0001:001C6DB8 + 854 0001:001C6DC3 855 0001:001C6DCB 856 0001:001C6DE2 859 0001:001C6DE8 + 860 0001:001C6E0A 861 0001:001C6E47 864 0001:001C6E50 865 0001:001C6E6B + 866 0001:001C6EB9 869 0001:001C6EC0 870 0001:001C6EE2 871 0001:001C6F08 + 872 0001:001C6F3A 875 0001:001C6F60 876 0001:001C6F7E 877 0001:001C6F80 + 878 0001:001C6FA7 879 0001:001C6FCD 885 0001:001C6FD4 886 0001:001C6FFB + 887 0001:001C7006 890 0001:001C7020 891 0001:001C7030 892 0001:001C703C + 893 0001:001C706A 894 0001:001C7098 895 0001:001C70C6 896 0001:001C70D4 + 898 0001:001C70E3 899 0001:001C70F0 887 0001:001C70F1 900 0001:001C711C + 904 0001:001C7184 905 0001:001C718F 910 0001:001C7190 911 0001:001C71B0 + 912 0001:001C71D0 913 0001:001C71DF 914 0001:001C71ED 915 0001:001C7202 + 918 0001:001C72B7 920 0001:001C7304 923 0001:001C7334 924 0001:001C7337 + 925 0001:001C735D 927 0001:001C7390 927 0001:001C7397 + +Line numbers for fAddlSigners(fAddlSigners.pas) segment .text + + 92 0001:001C775C 93 0001:001C7788 94 0001:001C779F 97 0001:001C77AD + 98 0001:001C77B9 99 0001:001C77C5 100 0001:001C77CE 101 0001:001C77E3 + 102 0001:001C77F4 103 0001:001C7818 105 0001:001C7824 106 0001:001C7834 + 108 0001:001C784E 109 0001:001C785B 110 0001:001C7866 111 0001:001C7871 + 112 0001:001C787E 113 0001:001C789A 114 0001:001C78B6 116 0001:001C78D5 + 117 0001:001C7938 119 0001:001C7966 120 0001:001C7989 123 0001:001C799B + 124 0001:001C79BF 114 0001:001C79C0 126 0001:001C79C9 128 0001:001C79D5 + 129 0001:001C79E8 130 0001:001C79FB 131 0001:001C7A0E 132 0001:001C7A1E + 134 0001:001C7A2E 135 0001:001C7A3A 136 0001:001C7A4A 137 0001:001C7A54 + 140 0001:001C7A5F 141 0001:001C7A73 142 0001:001C7A86 143 0001:001C7A9E + 147 0001:001C7AB9 149 0001:001C7AEB 153 0001:001C7B3C 154 0001:001C7B45 + 155 0001:001C7B58 159 0001:001C7B60 160 0001:001C7B65 165 0001:001C7B68 + 166 0001:001C7B84 167 0001:001C7B8B 169 0001:001C7BB7 170 0001:001C7BCA + 172 0001:001C7BCF 173 0001:001C7BDE 174 0001:001C7BE5 175 0001:001C7BFC + 177 0001:001C7C17 178 0001:001C7C61 175 0001:001C7C62 179 0001:001C7C67 + 180 0001:001C7C90 185 0001:001C7CE0 186 0001:001C7D02 187 0001:001C7D14 + 189 0001:001C7D3E 190 0001:001C7D51 192 0001:001C7D56 193 0001:001C7D70 + 195 0001:001C7DBC 196 0001:001C7DCF 197 0001:001C7DD1 192 0001:001C7DD4 + 198 0001:001C7DD7 199 0001:001C7E09 200 0001:001C7E88 205 0001:001C7F38 + 206 0001:001C7F56 208 0001:001C7F5F 209 0001:001C7F70 210 0001:001C7F88 + 212 0001:001C7F99 213 0001:001C7FBE 214 0001:001C8002 215 0001:001C8019 + 216 0001:001C8027 209 0001:001C8028 218 0001:001C8053 223 0001:001C806C + 224 0001:001C808D 225 0001:001C80B2 226 0001:001C80CE 227 0001:001C80DD + 228 0001:001C8106 230 0001:001C810B 231 0001:001C811D 233 0001:001C81AC + 236 0001:001C8280 237 0001:001C8283 238 0001:001C8295 239 0001:001C82A7 + 240 0001:001C82B9 241 0001:001C82CB 244 0001:001C82D0 245 0001:001C82D3 + 246 0001:001C82DE 247 0001:001C82E9 250 0001:001C82EC 251 0001:001C82EF + 252 0001:001C8309 256 0001:001C830C 257 0001:001C830F 258 0001:001C831C + 261 0001:001C8320 262 0001:001C8339 263 0001:001C833B 265 0001:001C834A + 266 0001:001C834C 268 0001:001C8351 270 0001:001C8360 271 0001:001C8373 + 273 0001:001C8378 275 0001:001C838D 277 0001:001C83C3 278 0001:001C83EF + 281 0001:001C83F1 283 0001:001C8413 284 0001:001C8441 287 0001:001C8443 + 288 0001:001C8469 292 0001:001C8500 293 0001:001C850C 294 0001:001C851F + 295 0001:001C853A 296 0001:001C8555 298 0001:001C8568 301 0001:001C8570 + 302 0001:001C8584 303 0001:001C85C1 307 0001:001C85C8 308 0001:001C85E1 + 309 0001:001C8611 310 0001:001C861D 312 0001:001C8655 314 0001:001C8748 + 314 0001:001C874F + +Line numbers for fNoteDR(fNoteDR.pas) segment .text + + 38 0001:001C896C 39 0001:001C8976 41 0001:001C8981 42 0001:001C8988 + 44 0001:001C898D 45 0001:001C8999 46 0001:001C89B0 47 0001:001C89BE + 48 0001:001C89C6 49 0001:001C89D1 51 0001:001C89DD 52 0001:001C89FE + 55 0001:001C8A2C 57 0001:001C8A3C 62 0001:001C8A6C 63 0001:001C8A73 + 66 0001:001C8A74 68 0001:001C8A77 70 0001:001C8A9B 71 0001:001C8AAC + 73 0001:001C8AAE 74 0001:001C8AB5 75 0001:001C8ABC 80 0001:001C8B14 + 81 0001:001C8B19 83 0001:001C8B4C 83 0001:001C8B53 + +Line numbers for fConsultBS(Consults\fConsultBS.pas) segment .text + + 61 0001:001C8E0C 62 0001:001C8E5A 63 0001:001C8E71 66 0001:001C8E7F + 67 0001:001C8E8C 68 0001:001C8E97 69 0001:001C8EA2 70 0001:001C8EAF + 71 0001:001C8ECB 72 0001:001C8EE7 74 0001:001C8EF1 75 0001:001C8F01 + 76 0001:001C8F0F 77 0001:001C8F21 79 0001:001C8F65 76 0001:001C8F89 + 80 0001:001C8F8E 81 0001:001C8FA5 82 0001:001C8FAE 84 0001:001C8FC4 + 85 0001:001C9004 86 0001:001C901A 87 0001:001C9030 82 0001:001C9031 + 88 0001:001C9036 89 0001:001C9042 90 0001:001C9058 91 0001:001C9063 + 93 0001:001C9071 94 0001:001C9082 96 0001:001C908D 99 0001:001C9098 + 100 0001:001C90A6 101 0001:001C90BA 102 0001:001C90CE 103 0001:001C90DD + 104 0001:001C90EC 108 0001:001C9101 110 0001:001C914C 114 0001:001C9160 + 115 0001:001C9165 118 0001:001C9168 119 0001:001C9180 121 0001:001C91A0 + 122 0001:001C91B3 124 0001:001C91B8 125 0001:001C91BF 126 0001:001C91E2 + 127 0001:001C9205 128 0001:001C921B 129 0001:001C9240 130 0001:001C9269 + 134 0001:001C92BC 135 0001:001C92D3 136 0001:001C92DC 137 0001:001C92F4 + 139 0001:001C9344 144 0001:001C934C 145 0001:001C936F 146 0001:001C9376 + 148 0001:001C9394 150 0001:001C93DF 152 0001:001C93F5 154 0001:001C93F7 + 146 0001:001C93F8 155 0001:001C93FB 156 0001:001C9402 157 0001:001C944A + 163 0001:001C9454 165 0001:001C9496 159 0001:001C9498 160 0001:001C94B2 + 162 0001:001C94D8 + +Line numbers for fConsultBD(Consults\fConsultBD.pas) segment .text + + 55 0001:001C97A4 56 0001:001C97E6 57 0001:001C97FD 60 0001:001C980B + 61 0001:001C9818 62 0001:001C9823 63 0001:001C982E 64 0001:001C983B + 65 0001:001C9857 66 0001:001C9873 67 0001:001C987D 68 0001:001C9890 + 69 0001:001C989B 70 0001:001C98A6 71 0001:001C98AC 72 0001:001C98BD + 73 0001:001C98C3 74 0001:001C98D4 75 0001:001C98FE 78 0001:001C9909 + 79 0001:001C9914 80 0001:001C9925 81 0001:001C9936 82 0001:001C9942 + 86 0001:001C9954 88 0001:001C999F 93 0001:001C99B8 94 0001:001C99DD + 95 0001:001C99F7 96 0001:001C9A11 98 0001:001C9A38 99 0001:001C9A3F + 100 0001:001C9A5B 101 0001:001C9A77 102 0001:001C9A8D 105 0001:001C9A96 + 106 0001:001C9AA9 108 0001:001C9ACB 112 0001:001C9B30 113 0001:001C9B35 + 118 0001:001C9B38 119 0001:001C9B44 124 0001:001C9B48 125 0001:001C9B54 + 127 0001:001C9B88 127 0001:001C9B8F + +Line numbers for fConsultBSt(Consults\fConsultBSt.pas) segment .text + + 51 0001:001C9DFC 52 0001:001C9E3E 53 0001:001C9E55 56 0001:001C9E63 + 57 0001:001C9E70 58 0001:001C9E7B 59 0001:001C9E86 60 0001:001C9E93 + 61 0001:001C9EAF 62 0001:001C9ECB 63 0001:001C9ED5 64 0001:001C9EE8 + 65 0001:001C9F04 66 0001:001C9F0F 68 0001:001C9F21 71 0001:001C9F28 + 72 0001:001C9F43 73 0001:001C9F54 69 0001:001C9F55 76 0001:001C9F6B + 79 0001:001C9F76 80 0001:001C9F81 81 0001:001C9F92 82 0001:001C9FA3 + 83 0001:001C9FAF 87 0001:001C9FC1 89 0001:001CA00C 93 0001:001CA014 + 94 0001:001CA019 99 0001:001CA01C 100 0001:001CA03F 102 0001:001CA051 + 103 0001:001CA064 105 0001:001CA069 106 0001:001CA070 108 0001:001CA0A7 + 109 0001:001CA0DB 111 0001:001CA120 112 0001:001CA153 113 0001:001CA17E + 106 0001:001CA17F 114 0001:001CA188 115 0001:001CA1AD 116 0001:001CA1D2 + 117 0001:001CA1E8 118 0001:001CA211 120 0001:001CA2AC 120 0001:001CA2B3 + +Line numbers for fConsultsView(Consults\fConsultsView.pas) segment .text + + 71 0001:001CA638 72 0001:001CA682 73 0001:001CA699 76 0001:001CA6A7 + 77 0001:001CA6B4 78 0001:001CA6BF 79 0001:001CA6CA 80 0001:001CA6D7 + 81 0001:001CA6F3 82 0001:001CA70F 83 0001:001CA719 85 0001:001CA72C + 86 0001:001CA73C 87 0001:001CA74A 88 0001:001CA75C 90 0001:001CA7A0 + 87 0001:001CA7C4 91 0001:001CA7C9 92 0001:001CA7E0 93 0001:001CA7E9 + 95 0001:001CA7FF 96 0001:001CA83F 97 0001:001CA855 98 0001:001CA86B + 93 0001:001CA86C 99 0001:001CA871 100 0001:001CA87C 102 0001:001CA88A + 103 0001:001CA89B 105 0001:001CA8A6 106 0001:001CA8C2 107 0001:001CA8CD + 109 0001:001CA8DC 112 0001:001CA8E3 113 0001:001CA8FD 114 0001:001CA90D + 110 0001:001CA90E 117 0001:001CA924 118 0001:001CA92F 119 0001:001CA93A + 120 0001:001CA940 121 0001:001CA951 122 0001:001CA957 123 0001:001CA968 + 124 0001:001CA992 125 0001:001CA9A3 129 0001:001CA9AE 130 0001:001CA9BC + 131 0001:001CA9D0 132 0001:001CA9E4 133 0001:001CA9F3 134 0001:001CAA07 + 135 0001:001CAA1B 136 0001:001CAA2A 137 0001:001CAA3E 138 0001:001CAA52 + 139 0001:001CAA66 144 0001:001CAA7B 146 0001:001CAAD3 152 0001:001CAAF8 + 153 0001:001CAB1B 154 0001:001CAB2F 156 0001:001CAB4B 158 0001:001CAB53 + 159 0001:001CAB67 161 0001:001CAB83 163 0001:001CAB8B 165 0001:001CAB96 + 166 0001:001CABAC 167 0001:001CABC8 171 0001:001CABE6 172 0001:001CABF9 + 175 0001:001CABFE 177 0001:001CAC0D 178 0001:001CAC30 179 0001:001CAC53 + 182 0001:001CAC7A 184 0001:001CAC85 186 0001:001CAC9B 188 0001:001CACD2 + 189 0001:001CAD06 191 0001:001CAD4B 192 0001:001CAD7E 193 0001:001CADA9 + 186 0001:001CADAA 194 0001:001CADB3 195 0001:001CADD8 198 0001:001CADFF + 200 0001:001CAE0A 201 0001:001CAE31 203 0001:001CAE55 205 0001:001CAE60 + 206 0001:001CAE67 207 0001:001CAEB3 211 0001:001CAF30 212 0001:001CAF35 + 216 0001:001CAF38 217 0001:001CAF4F 218 0001:001CAF58 219 0001:001CAF70 + 221 0001:001CAFC0 226 0001:001CAFC8 227 0001:001CAFEB 228 0001:001CAFF2 + 230 0001:001CB010 232 0001:001CB05B 234 0001:001CB071 236 0001:001CB073 + 228 0001:001CB074 237 0001:001CB077 238 0001:001CB07E 239 0001:001CB0C6 + 244 0001:001CB0D0 245 0001:001CB0D3 247 0001:001CB0D9 248 0001:001CB0EF + 247 0001:001CB0FB 249 0001:001CB0FE 251 0001:001CB10B 257 0001:001CB110 + 259 0001:001CB152 253 0001:001CB154 254 0001:001CB16E 256 0001:001CB194 + +Line numbers for fConsultAlertTo(Consults\fConsultAlertTo.pas) segment .text + + 54 0001:001CB464 55 0001:001CB46E 56 0001:001CB485 57 0001:001CB493 + 60 0001:001CB49B 61 0001:001CB4A4 62 0001:001CB4AE 66 0001:001CB4BE + 69 0001:001CB4C9 70 0001:001CB4DA 74 0001:001CB4F2 76 0001:001CB502 + 80 0001:001CB508 81 0001:001CB511 82 0001:001CB52F 86 0001:001CB538 + 87 0001:001CB53D 92 0001:001CB540 93 0001:001CB55C 95 0001:001CB570 + 96 0001:001CB583 97 0001:001CB58A 99 0001:001CB58C 100 0001:001CB593 + 101 0001:001CB5B2 100 0001:001CB5FC 102 0001:001CB5FF 103 0001:001CB628 + 113 0001:001CB688 114 0001:001CB68B 121 0001:001CB69C 122 0001:001CB6BC + 126 0001:001CB6C0 127 0001:001CB6C3 128 0001:001CB6D0 131 0001:001CB6D4 + 132 0001:001CB6F1 133 0001:001CB6FF 134 0001:001CB729 135 0001:001CB788 + 137 0001:001CB7C0 137 0001:001CB7C7 + +Line numbers for fConsultAct(Consults\fConsultAct.pas) segment .text + + 110 0001:001CBC0C 111 0001:001CBC33 112 0001:001CBC37 113 0001:001CBC50 + 114 0001:001CBC5E 118 0001:001CBC68 119 0001:001CBC9B 120 0001:001CBCC0 + 121 0001:001CBCCC 122 0001:001CBCD7 123 0001:001CBCE2 124 0001:001CBD0B + 125 0001:001CBD19 126 0001:001CBD43 127 0001:001CBD56 128 0001:001CBD60 + 130 0001:001CBD67 131 0001:001CBDAE 132 0001:001CBDDC 133 0001:001CBDE8 + 134 0001:001CBDF4 135 0001:001CBE00 136 0001:001CBE0C 137 0001:001CBE18 + 140 0001:001CBE22 141 0001:001CBE2F 144 0001:001CBE4A 146 0001:001CBE84 + 154 0001:001CBE8C 155 0001:001CBEB5 156 0001:001CBEC2 157 0001:001CBEE2 + 158 0001:001CBEEF 159 0001:001CBEFD 161 0001:001CBF07 162 0001:001CBF21 + 164 0001:001CBF34 165 0001:001CBF90 166 0001:001CBFA1 169 0001:001CBFB0 + 170 0001:001CBFCE 172 0001:001CBFE2 173 0001:001CBFF5 174 0001:001CBFF7 + 176 0001:001CBFFC 178 0001:001CC033 179 0001:001CC046 180 0001:001CC048 + 184 0001:001CC04D 185 0001:001CC05E 186 0001:001CC077 188 0001:001CC0EC + 185 0001:001CC110 189 0001:001CC119 191 0001:001CC123 192 0001:001CC13B + 193 0001:001CC141 195 0001:001CC157 196 0001:001CC183 197 0001:001CC197 + 198 0001:001CC1AD 199 0001:001CC1C3 193 0001:001CC1C4 201 0001:001CC1C9 + 203 0001:001CC1D6 204 0001:001CC1F7 205 0001:001CC208 206 0001:001CC215 + 208 0001:001CC21B 209 0001:001CC234 210 0001:001CC23F 211 0001:001CC251 + 213 0001:001CC25B 214 0001:001CC271 213 0001:001CC28D 215 0001:001CC292 + 218 0001:001CC29B 221 0001:001CC2AC 222 0001:001CC2BC 223 0001:001CC2D8 + 224 0001:001CC2EE 225 0001:001CC2FE 226 0001:001CC316 227 0001:001CC323 + 228 0001:001CC330 229 0001:001CC35E 232 0001:001CC470 233 0001:001CC473 + 235 0001:001CC480 236 0001:001CC48D 237 0001:001CC4AD 238 0001:001CC4BA + 239 0001:001CC4C7 242 0001:001CC4CE 243 0001:001CC4DB 244 0001:001CC4E8 + 245 0001:001CC4F5 246 0001:001CC503 247 0001:001CC510 250 0001:001CC514 + 251 0001:001CC52A 253 0001:001CC537 254 0001:001CC544 255 0001:001CC564 + 256 0001:001CC571 257 0001:001CC57E 260 0001:001CC585 261 0001:001CC592 + 262 0001:001CC59F 263 0001:001CC5AF 264 0001:001CC5CB 265 0001:001CC5E1 + 266 0001:001CC5F1 267 0001:001CC609 268 0001:001CC616 269 0001:001CC624 + 270 0001:001CC64E 273 0001:001CC670 274 0001:001CC686 275 0001:001CC68D + 277 0001:001CC69A 278 0001:001CC6A7 284 0001:001CC6B4 285 0001:001CC6C4 + 286 0001:001CC6E0 287 0001:001CC6F6 288 0001:001CC706 290 0001:001CC71E + 291 0001:001CC72B 294 0001:001CC739 295 0001:001CC763 298 0001:001CC784 + 299 0001:001CC787 300 0001:001CC78E 302 0001:001CC79B 303 0001:001CC7A8 + 304 0001:001CC7B5 307 0001:001CC7BC 308 0001:001CC7C9 309 0001:001CC7D6 + 310 0001:001CC7E3 311 0001:001CC7F1 312 0001:001CC7FE 317 0001:001CC800 + 318 0001:001CC81D 319 0001:001CC82A 321 0001:001CC830 322 0001:001CC87A + 324 0001:001CC883 325 0001:001CC88F 328 0001:001CC8B2 330 0001:001CC91E + 333 0001:001CC940 334 0001:001CC943 336 0001:001CC950 337 0001:001CC95D + 338 0001:001CC96A 339 0001:001CC977 340 0001:001CC984 341 0001:001CC9A4 + 342 0001:001CC9BA 343 0001:001CC9CA 344 0001:001CC9E2 345 0001:001CC9EF + 348 0001:001CC9F4 349 0001:001CCA0A 351 0001:001CCA17 352 0001:001CCA24 + 353 0001:001CCA44 354 0001:001CCA54 355 0001:001CCA70 356 0001:001CCA86 + 357 0001:001CCA96 358 0001:001CCAAE 359 0001:001CCABB 360 0001:001CCAC8 + 361 0001:001CCAD5 362 0001:001CCAE3 363 0001:001CCB0D 369 0001:001CCB28 + 371 0001:001CCB31 372 0001:001CCB4F 376 0001:001CCB58 378 0001:001CCB61 + 379 0001:001CCB7F 383 0001:001CCB88 384 0001:001CCB8F 385 0001:001CCB94 + 390 0001:001CCB98 391 0001:001CCBBA 392 0001:001CCBC9 393 0001:001CCBD7 + 397 0001:001CCC07 398 0001:001CCC1A 401 0001:001CCC24 404 0001:001CCC49 + 405 0001:001CCC5C 408 0001:001CCC66 414 0001:001CCC9B 415 0001:001CCCAE + 418 0001:001CCCB8 420 0001:001CCCC8 423 0001:001CCD1B 424 0001:001CCD2E + 426 0001:001CCD38 428 0001:001CCD6A 429 0001:001CCD7D 431 0001:001CCD87 + 433 0001:001CCD9F 434 0001:001CCDB2 436 0001:001CCDBC 439 0001:001CCE46 + 440 0001:001CCE59 444 0001:001CCE63 446 0001:001CCE7E 447 0001:001CCEA1 + 449 0001:001CCEB5 450 0001:001CCEC8 451 0001:001CCED9 453 0001:001CCEE3 + 455 0001:001CCEF6 456 0001:001CCF09 457 0001:001CCF1A 461 0001:001CCF24 + 463 0001:001CCF33 464 0001:001CCF50 465 0001:001CCF6D 466 0001:001CCF84 + 467 0001:001CCF97 468 0001:001CCFCF 469 0001:001CCFE2 470 0001:001CCFFA + 473 0001:001CD018 474 0001:001CD025 478 0001:001CD03A 479 0001:001CD045 + 482 0001:001CD052 484 0001:001CD097 486 0001:001CD0D3 488 0001:001CD123 + 490 0001:001CD15F 492 0001:001CD19B 494 0001:001CD1FA 496 0001:001CD23B + 498 0001:001CD283 500 0001:001CD2D8 502 0001:001CD2E8 504 0001:001CD314 + 505 0001:001CD365 508 0001:001CD371 511 0001:001CD37D 513 0001:001CD394 + 515 0001:001CD3A4 516 0001:001CD3E8 519 0001:001CD6A4 520 0001:001CD6A7 + 521 0001:001CD6D1 525 0001:001CD6D4 526 0001:001CD6ED 527 0001:001CD6FF + 531 0001:001CD72D 532 0001:001CD760 533 0001:001CD78F 539 0001:001CD798 + 544 0001:001CD79C 545 0001:001CD7BF 547 0001:001CD7CC 548 0001:001CD7D3 + 550 0001:001CD7EF 552 0001:001CD837 554 0001:001CD84D 556 0001:001CD84F + 548 0001:001CD850 557 0001:001CD855 558 0001:001CD85C 561 0001:001CD88C + 562 0001:001CD8D2 572 0001:001CD8DC 573 0001:001CD8F2 576 0001:001CD904 + 577 0001:001CD90D 579 0001:001CD91C 583 0001:001CD92B 584 0001:001CD934 + 586 0001:001CD943 589 0001:001CD950 590 0001:001CD97B 596 0001:001CDAC8 + 599 0001:001CDB10 592 0001:001CDB14 593 0001:001CDB2E 595 0001:001CDB54 + +Line numbers for fPreReq(Consults\fPreReq.pas) segment .text + + 45 0001:001CDDF4 46 0001:001CDE1E 47 0001:001CDE35 50 0001:001CDE43 + 51 0001:001CDE52 53 0001:001CDE64 54 0001:001CDE88 55 0001:001CDE90 + 51 0001:001CDE91 56 0001:001CDE94 57 0001:001CDEAE 59 0001:001CDEE4 + 60 0001:001CDEF0 61 0001:001CDEFE 62 0001:001CDF22 63 0001:001CDF42 + 64 0001:001CDF4D 65 0001:001CDF57 66 0001:001CDF62 67 0001:001CDF6A + 68 0001:001CDF75 69 0001:001CDF8C 71 0001:001CDF94 72 0001:001CDF9C + 73 0001:001CDFCA 74 0001:001CDFD5 77 0001:001CDFF7 78 0001:001CE001 + 80 0001:001CE033 85 0001:001CE03C 86 0001:001CE05E 87 0001:001CE06B + 88 0001:001CE079 89 0001:001CE084 91 0001:001CE099 93 0001:001CE0C9 + 98 0001:001CE0D0 102 0001:001CE0D4 103 0001:001CE0DB 104 0001:001CE0E0 + 108 0001:001CE0E4 109 0001:001CE0EB 110 0001:001CE0F0 122 0001:001CE0F4 + 123 0001:001CE118 124 0001:001CE120 125 0001:001CE128 127 0001:001CE13E + 128 0001:001CE14D 129 0001:001CE163 130 0001:001CE175 131 0001:001CE183 + 132 0001:001CE195 133 0001:001CE19A 136 0001:001CE19F 137 0001:001CE1A9 + 138 0001:001CE1B4 139 0001:001CE1C4 140 0001:001CE1D6 143 0001:001CE203 + 145 0001:001CE20F 146 0001:001CE21A 147 0001:001CE224 148 0001:001CE23C + 150 0001:001CE263 146 0001:001CE264 151 0001:001CE267 152 0001:001CE26A + 153 0001:001CE277 154 0001:001CE284 155 0001:001CE29E 156 0001:001CE2B8 + 159 0001:001CE2C7 160 0001:001CE2CA 161 0001:001CE2F0 164 0001:001CE2FD + 165 0001:001CE31B 168 0001:001CE347 169 0001:001CE34F 172 0001:001CE35F + 173 0001:001CE372 174 0001:001CE3BF 177 0001:001CE428 178 0001:001CE42B + 180 0001:001CE43D 185 0001:001CE440 186 0001:001CE443 187 0001:001CE457 + 188 0001:001CE471 193 0001:001CE474 194 0001:001CE479 198 0001:001CE47C + 199 0001:001CE481 201 0001:001CE4B4 201 0001:001CE4BB + +Line numbers for uAccessibleRichEdit(uAccessibleRichEdit.pas) segment .text + + 55 0001:001CE4BC 66 0001:001CE79C 67 0001:001CE7D3 68 0001:001CE7E6 + 69 0001:001CE7F6 70 0001:001CE84E 74 0001:001CE858 75 0001:001CE897 + 76 0001:001CE8AA 77 0001:001CE8BA 78 0001:001CE922 82 0001:001CE92C + 83 0001:001CE95B 84 0001:001CE963 85 0001:001CE973 86 0001:001CE9CF + 89 0001:001CE9D8 90 0001:001CE9F9 91 0001:001CE9FD 92 0001:001CEA0D + 93 0001:001CEA52 97 0001:001CEA5C 98 0001:001CEA8B 99 0001:001CEA93 + 100 0001:001CEAA3 101 0001:001CEAFF 105 0001:001CEB08 106 0001:001CEB37 + 107 0001:001CEB3F 108 0001:001CEB4F 109 0001:001CEBAB 112 0001:001CEBB4 + 113 0001:001CEBEB 114 0001:001CEBFE 115 0001:001CEC0E 116 0001:001CEC5E + 120 0001:001CEC68 121 0001:001CEC97 122 0001:001CEC9F 123 0001:001CECAF + 124 0001:001CED0B 128 0001:001CED14 129 0001:001CED48 130 0001:001CED4C + 131 0001:001CED5C 132 0001:001CEDBE 136 0001:001CEDC8 137 0001:001CEDF7 + 138 0001:001CEDFF 139 0001:001CEE0F 140 0001:001CEE6B 144 0001:001CEE74 + 145 0001:001CEEA3 146 0001:001CEEAB 148 0001:001CEEB9 149 0001:001CEEC0 + 151 0001:001CEED0 152 0001:001CEEE0 153 0001:001CEF3C 156 0001:001CEF48 + 157 0001:001CEF6F 158 0001:001CEF77 159 0001:001CEF87 160 0001:001CEFCF + 164 0001:001CEFD8 165 0001:001CF00F 166 0001:001CF01D 168 0001:001CF02E + 169 0001:001CF059 172 0001:001CF060 173 0001:001CF097 174 0001:001CF0AA + 175 0001:001CF0BA 176 0001:001CF10A 180 0001:001CF114 181 0001:001CF153 + 182 0001:001CF166 183 0001:001CF176 184 0001:001CF1DA 188 0001:001CF1E4 + 191 0001:001CF213 192 0001:001CF21B 193 0001:001CF22B 194 0001:001CF287 + 197 0001:001CF290 198 0001:001CF2B4 199 0001:001CF2C4 200 0001:001CF317 + 204 0001:001CF320 205 0001:001CF344 206 0001:001CF354 207 0001:001CF3B7 + 211 0001:001CF3C0 212 0001:001CF3E4 213 0001:001CF3F4 214 0001:001CF44B + 218 0001:001CF454 219 0001:001CF478 220 0001:001CF488 221 0001:001CF4DF + 225 0001:001CF4E8 226 0001:001CF50C 227 0001:001CF51C 228 0001:001CF573 + 231 0001:001CF57C 232 0001:001CF5B2 233 0001:001CF5C0 234 0001:001CF5C4 + 235 0001:001CF5DD 237 0001:001CF5E1 238 0001:001CF60D 241 0001:001CF614 + 242 0001:001CF62E 243 0001:001CF63B 244 0001:001CF650 246 0001:001CF654 + 247 0001:001CF67B 251 0001:001CF684 252 0001:001CF68D 253 0001:001CF69E + 255 0001:001CF6A3 256 0001:001CF6AE 261 0001:001CF6B4 262 0001:001CF6BD + 263 0001:001CF6C6 271 0001:001CF6C8 272 0001:001CF6DF 274 0001:001CF6E8 + 275 0001:001CF6F6 276 0001:001CF707 277 0001:001CF70A 279 0001:001CF731 + 281 0001:001CF768 282 0001:001CF777 284 0001:001CF785 287 0001:001CF7B8 + 289 0001:001CF7C4 + +Line numbers for fODProc(Consults\fODProc.pas) segment .text + + 112 0001:001CFD90 113 0001:001CFD96 114 0001:001CFDAA 115 0001:001CFDB1 + 116 0001:001CFDBA 117 0001:001CFDC8 118 0001:001CFDD8 119 0001:001CFDDF + 120 0001:001CFDF0 121 0001:001CFDFC 122 0001:001CFE06 123 0001:001CFE16 + 124 0001:001CFE20 125 0001:001CFE32 126 0001:001CFE3C 127 0001:001CFE43 + 128 0001:001CFE50 129 0001:001CFE5D 130 0001:001CFE6A 131 0001:001CFE77 + 132 0001:001CFE81 135 0001:001CFF10 136 0001:001CFF14 137 0001:001CFF1B + 138 0001:001CFF22 139 0001:001CFF2D 141 0001:001CFF33 142 0001:001CFF45 + 143 0001:001CFF50 145 0001:001CFF5B 146 0001:001CFF6B 147 0001:001CFF7C + 148 0001:001CFF92 149 0001:001CFFA2 150 0001:001CFFB4 154 0001:001CFFC8 + 155 0001:001CFFD8 156 0001:001CFFE9 157 0001:001CFFFF 158 0001:001D000F + 159 0001:001D0021 162 0001:001D0033 163 0001:001D0041 164 0001:001D004F + 165 0001:001D005D 166 0001:001D006A 169 0001:001D007D 170 0001:001D008A + 171 0001:001D0091 173 0001:001D009C 174 0001:001D00A3 176 0001:001D00A6 + 177 0001:001D00AD 178 0001:001D00B4 183 0001:001D016C 184 0001:001D0192 + 185 0001:001D019E 186 0001:001D01A5 188 0001:001D01BE 189 0001:001D01D2 + 190 0001:001D01E5 191 0001:001D0208 192 0001:001D020F 193 0001:001D0223 + 194 0001:001D0234 195 0001:001D0246 197 0001:001D0258 198 0001:001D0268 + 199 0001:001D027C 200 0001:001D0290 201 0001:001D02A4 202 0001:001D02B1 + 204 0001:001D02C4 205 0001:001D02D8 206 0001:001D02DE 207 0001:001D0304 + 208 0001:001D0318 209 0001:001D0327 210 0001:001D033B 211 0001:001D0349 + 213 0001:001D0357 214 0001:001D0364 218 0001:001D0379 219 0001:001D0386 + 221 0001:001D0399 223 0001:001D03B0 224 0001:001D03B7 226 0001:001D03B9 + 227 0001:001D03C0 228 0001:001D03CD 229 0001:001D03E1 230 0001:001D03EA + 231 0001:001D03F1 232 0001:001D040E 234 0001:001D0439 239 0001:001D04C4 + 240 0001:001D04CA 241 0001:001D04F1 242 0001:001D0504 244 0001:001D0514 + 245 0001:001D0538 246 0001:001D0542 247 0001:001D0563 248 0001:001D0584 + 249 0001:001D05B7 250 0001:001D05D1 251 0001:001D05DD 252 0001:001D05FE + 254 0001:001D0629 255 0001:001D063A 257 0001:001D0648 259 0001:001D0689 + 263 0001:001D0854 265 0001:001D085D 266 0001:001D0874 270 0001:001D087C + 272 0001:001D0885 273 0001:001D089C 276 0001:001D08A4 278 0001:001D08A8 + 280 0001:001D08AE 281 0001:001D08C0 282 0001:001D08D2 283 0001:001D08E3 + 284 0001:001D08F9 286 0001:001D0909 287 0001:001D0912 290 0001:001D0968 + 292 0001:001D096C 294 0001:001D0972 295 0001:001D0984 296 0001:001D0996 + 297 0001:001D09A7 298 0001:001D09BD 300 0001:001D09CD 301 0001:001D09D6 + 307 0001:001D0A2C 309 0001:001D0A4E 310 0001:001D0A74 312 0001:001D0A7A + 314 0001:001D0A97 315 0001:001D0AB0 317 0001:001D0AB4 318 0001:001D0AE5 + 321 0001:001D0B2E 322 0001:001D0B38 324 0001:001D0B6C 328 0001:001D0B85 + 329 0001:001D0BDE 330 0001:001D0BF7 331 0001:001D0C30 332 0001:001D0C9B + 333 0001:001D0D04 334 0001:001D0D87 335 0001:001D0DF0 336 0001:001D0E21 + 337 0001:001D0E3A 338 0001:001D0E6B 340 0001:001D0E84 341 0001:001D0F93 + 344 0001:001D1050 346 0001:001D1074 348 0001:001D107A 349 0001:001D1088 + 350 0001:001D10CB 351 0001:001D10D2 352 0001:001D10E1 353 0001:001D10E8 + 355 0001:001D110E 356 0001:001D1138 357 0001:001D1150 359 0001:001D1168 + 361 0001:001D116E 362 0001:001D1175 363 0001:001D1192 364 0001:001D11A0 + 365 0001:001D11AF 367 0001:001D11BD 368 0001:001D11C6 372 0001:001D1204 + 373 0001:001D1208 375 0001:001D121B 376 0001:001D1229 377 0001:001D1233 + 381 0001:001D1238 383 0001:001D1248 384 0001:001D125C 385 0001:001D1263 + 387 0001:001D1269 388 0001:001D1286 389 0001:001D1294 390 0001:001D12A0 + 391 0001:001D12AE 393 0001:001D12B7 395 0001:001D12C2 396 0001:001D12C9 + 398 0001:001D12CE 399 0001:001D12E2 400 0001:001D133A 401 0001:001D134A + 402 0001:001D135E 403 0001:001D1372 404 0001:001D1386 407 0001:001D139A + 408 0001:001D13A6 409 0001:001D13B3 410 0001:001D13C7 411 0001:001D13D4 + 412 0001:001D13E7 414 0001:001D13F5 415 0001:001D1402 419 0001:001D1417 + 420 0001:001D1424 422 0001:001D1437 426 0001:001D1443 428 0001:001D1464 + 430 0001:001D1472 431 0001:001D147F 435 0001:001D1494 436 0001:001D14A1 + 438 0001:001D14B4 440 0001:001D14BF 441 0001:001D14C6 443 0001:001D14CB + 444 0001:001D1526 447 0001:001D152F 448 0001:001D1536 449 0001:001D1559 + 450 0001:001D15F6 455 0001:001D16C8 457 0001:001D16CF 458 0001:001D16DE + 459 0001:001D16EC 460 0001:001D1700 461 0001:001D170D 462 0001:001D1721 + 464 0001:001D1737 466 0001:001D1747 469 0001:001D174C 470 0001:001D1766 + 472 0001:001D1783 473 0001:001D1790 474 0001:001D17A3 475 0001:001D17B0 + 479 0001:001D17C2 480 0001:001D17CF 481 0001:001D17E2 482 0001:001D17EF + 485 0001:001D17FF 487 0001:001D181C 488 0001:001D1829 489 0001:001D1836 + 490 0001:001D1849 491 0001:001D1856 492 0001:001D1863 494 0001:001D1875 + 496 0001:001D187C 497 0001:001D18BA 503 0001:001D18FC 505 0001:001D191D + 506 0001:001D192E 507 0001:001D1938 508 0001:001D1955 509 0001:001D1973 + 510 0001:001D1982 511 0001:001D1991 512 0001:001D199E 513 0001:001D19B2 + 514 0001:001D19DC 515 0001:001D1A02 522 0001:001D1A34 523 0001:001D1A4D + 524 0001:001D1A5A 525 0001:001D1A67 526 0001:001D1A74 527 0001:001D1A84 + 528 0001:001D1A97 529 0001:001D1AA4 530 0001:001D1AB4 532 0001:001D1ACD + 536 0001:001D1B0A 537 0001:001D1B24 538 0001:001D1B35 540 0001:001D1B47 + 541 0001:001D1B57 543 0001:001D1B68 544 0001:001D1B75 545 0001:001D1B82 + 546 0001:001D1B8F 547 0001:001D1B9F 548 0001:001D1BB2 551 0001:001D1BC4 + 553 0001:001D1BD8 554 0001:001D1BE5 555 0001:001D1BF2 556 0001:001D1BFF + 557 0001:001D1C0F 558 0001:001D1C22 561 0001:001D1C31 562 0001:001D1C3E + 563 0001:001D1C4B 564 0001:001D1C58 565 0001:001D1C68 566 0001:001D1C7B + 567 0001:001D1C88 570 0001:001D1CBF 576 0001:001D1D84 577 0001:001D1D8B + 580 0001:001D1D8C 582 0001:001D1D8F 583 0001:001D1D99 584 0001:001D1DA3 + 585 0001:001D1DB0 586 0001:001D1DB9 589 0001:001D1DBC 591 0001:001D1DD2 + 592 0001:001D1DE3 593 0001:001D1DFE 594 0001:001D1E24 597 0001:001D1E34 + 599 0001:001D1E3A 600 0001:001D1E56 601 0001:001D1E6B 602 0001:001D1E73 + 604 0001:001D1E7D 605 0001:001D1E97 606 0001:001D1EAB 610 0001:001D1EDF + 611 0001:001D1EEC 612 0001:001D1EF9 614 0001:001D1F06 615 0001:001D1F13 + 620 0001:001D1F18 621 0001:001D1F23 626 0001:001D1F24 627 0001:001D1F2F + 630 0001:001D1F30 632 0001:001D1F46 633 0001:001D1F7E 638 0001:001D1F84 + 639 0001:001D1F99 640 0001:001D1FA0 647 0001:001D1FA4 648 0001:001D1FA7 + 649 0001:001D1FBD 650 0001:001D1FD6 651 0001:001D1FE9 652 0001:001D1FFF + 655 0001:001D2020 656 0001:001D2023 657 0001:001D2039 658 0001:001D2052 + 659 0001:001D2065 660 0001:001D207B 662 0001:001D20AC 663 0001:001D20D1 + 664 0001:001D2121 665 0001:001D2177 666 0001:001D2185 667 0001:001D21C9 + 668 0001:001D21DC 669 0001:001D21E5 670 0001:001D21ED 672 0001:001D21F6 + 673 0001:001D21FF 675 0001:001D2208 677 0001:001D2254 684 0001:001D225C + 685 0001:001D227A 686 0001:001D227E 687 0001:001D2285 688 0001:001D2294 + 689 0001:001D22A2 690 0001:001D22A8 692 0001:001D22C5 693 0001:001D2301 + 695 0001:001D230D 697 0001:001D233F 698 0001:001D234D 699 0001:001D2351 + 702 0001:001D235A 706 0001:001D236B 708 0001:001D23A0 716 0001:001D23CC + 717 0001:001D23F2 718 0001:001D23F4 719 0001:001D23FC 720 0001:001D240B + 721 0001:001D2419 722 0001:001D245A 723 0001:001D2465 724 0001:001D2470 + 725 0001:001D247D 726 0001:001D2488 727 0001:001D2494 729 0001:001D2522 + 730 0001:001D2544 732 0001:001D255C 734 0001:001D259E 738 0001:001D25C8 + 740 0001:001D25D5 742 0001:001D25DE 743 0001:001D25E4 744 0001:001D260B + 745 0001:001D2611 746 0001:001D2636 748 0001:001D263D 749 0001:001D2643 + 750 0001:001D2668 752 0001:001D266D 757 0001:001D2674 760 0001:001D2690 + 761 0001:001D26A3 762 0001:001D26B4 763 0001:001D26C7 765 0001:001D26D1 + 766 0001:001D26E1 769 0001:001D26F0 770 0001:001D2701 772 0001:001D2716 + 773 0001:001D2729 774 0001:001D2733 777 0001:001D273D 778 0001:001D274E + 780 0001:001D27B3 783 0001:001D2928 784 0001:001D292B 785 0001:001D2932 + 786 0001:001D2942 789 0001:001D2944 790 0001:001D294A 791 0001:001D2953 + 792 0001:001D295C 795 0001:001D2960 796 0001:001D2963 797 0001:001D297B + 798 0001:001D2993 802 0001:001D2998 806 0001:001D29A2 807 0001:001D29C7 + 808 0001:001D29CB 809 0001:001D29D0 814 0001:001D29E0 815 0001:001D29E9 + 816 0001:001D29EC 819 0001:001D29F0 820 0001:001D29F3 821 0001:001D29FA + 823 0001:001D2A14 827 0001:001D2A18 828 0001:001D2A1D 829 0001:001D2A31 + 831 0001:001D2A80 831 0001:001D2A87 + +Line numbers for fCsltNote(Consults\fCsltNote.pas) segment .text + + 41 0001:001D2C9C 42 0001:001D2CC6 43 0001:001D2CDD 46 0001:001D2CEB + 47 0001:001D2CF8 48 0001:001D2D03 49 0001:001D2D0E 50 0001:001D2D1B + 51 0001:001D2D37 52 0001:001D2D53 53 0001:001D2D5D 54 0001:001D2D6E + 57 0001:001D2D80 59 0001:001D2D8A 60 0001:001D2D9D 61 0001:001D2DBF + 62 0001:001D2DD5 65 0001:001D2E90 61 0001:001D2EF6 66 0001:001D2EFF + 67 0001:001D2F0F 70 0001:001D2F35 72 0001:001D2F46 73 0001:001D2F59 + 74 0001:001D2F7B 75 0001:001D2F91 79 0001:001D30D1 74 0001:001D3155 + 80 0001:001D315E 81 0001:001D3191 82 0001:001D31A9 84 0001:001D31B9 + 89 0001:001D31D0 90 0001:001D31E3 91 0001:001D320B 92 0001:001D3221 + 95 0001:001D3344 91 0001:001D33C8 96 0001:001D33D1 97 0001:001D3404 + 98 0001:001D341C 100 0001:001D3429 118 0001:001D343B 121 0001:001D345E + 123 0001:001D34D3 126 0001:001D35E0 127 0001:001D35E3 128 0001:001D35F3 + 129 0001:001D35FA 132 0001:001D3608 133 0001:001D3621 135 0001:001D3627 + 137 0001:001D3638 138 0001:001D364B 139 0001:001D3652 140 0001:001D3662 + 142 0001:001D3664 143 0001:001D366B 144 0001:001D36A3 146 0001:001D36CC + 148 0001:001D375C 148 0001:001D3763 + +Line numbers for fOrderVw(Orders\fOrderVw.pas) segment .text + + 75 0001:001D3AFC 76 0001:001D3B18 77 0001:001D3B2F 78 0001:001D3B3D + 81 0001:001D3B45 82 0001:001D3B53 83 0001:001D3B61 84 0001:001D3B6F + 85 0001:001D3B7D 86 0001:001D3B94 87 0001:001D3BAB 88 0001:001D3BB3 + 89 0001:001D3BBE 91 0001:001D3BCF 92 0001:001D3BD4 93 0001:001D3BE2 + 94 0001:001D3BF0 95 0001:001D3BFE 96 0001:001D3C0C 97 0001:001D3C23 + 98 0001:001D3C3A 99 0001:001D3C44 100 0001:001D3C4B 101 0001:001D3C69 + 102 0001:001D3C6F 103 0001:001D3C76 105 0001:001D3C82 108 0001:001D3C95 + 110 0001:001D3CC2 113 0001:001D3CC8 115 0001:001D3CCE 116 0001:001D3CD5 + 117 0001:001D3CE6 118 0001:001D3CF7 119 0001:001D3D05 120 0001:001D3D0F + 122 0001:001D3D1D 123 0001:001D3D27 125 0001:001D3D42 126 0001:001D3D4C + 127 0001:001D3D53 128 0001:001D3D5D 130 0001:001D3D6C 137 0001:001D3D7C + 138 0001:001D3D97 139 0001:001D3DA9 141 0001:001D3E0B 142 0001:001D3E13 + 143 0001:001D3E2E 144 0001:001D3E3E 145 0001:001D3E51 146 0001:001D3E9F + 151 0001:001D3EFC 152 0001:001D3F02 154 0001:001D3F33 155 0001:001D3F43 + 156 0001:001D3F53 157 0001:001D3F6A 158 0001:001D3F6C 152 0001:001D3F6D + 160 0001:001D3F70 162 0001:001D3FA1 163 0001:001D3FB1 164 0001:001D3FC1 + 165 0001:001D3FD8 166 0001:001D3FDA 160 0001:001D3FDB 168 0001:001D3FDE + 170 0001:001D4000 171 0001:001D4017 172 0001:001D402E 173 0001:001D403E + 175 0001:001D4047 176 0001:001D404E 177 0001:001D4062 178 0001:001D4076 + 186 0001:001D4080 187 0001:001D40AD 189 0001:001D40C5 190 0001:001D40E7 + 192 0001:001D40F8 193 0001:001D411A 194 0001:001D4127 195 0001:001D4149 + 196 0001:001D417C 197 0001:001D419A 199 0001:001D41AD 187 0001:001D41AE + 200 0001:001D41E4 208 0001:001D41F8 209 0001:001D4225 211 0001:001D423D + 212 0001:001D425F 214 0001:001D4270 215 0001:001D4292 216 0001:001D429F + 217 0001:001D42C1 218 0001:001D42F4 219 0001:001D4312 221 0001:001D4325 + 209 0001:001D4326 222 0001:001D435C 227 0001:001D4370 229 0001:001D4374 + 230 0001:001D4381 232 0001:001D4385 233 0001:001D438E 234 0001:001D439C + 236 0001:001D43A3 239 0001:001D43A8 241 0001:001D43AB 242 0001:001D43C6 + 243 0001:001D43E1 244 0001:001D43FC 245 0001:001D4417 247 0001:001D4429 + 248 0001:001D4439 249 0001:001D4449 252 0001:001D4471 253 0001:001D4480 + 254 0001:001D448F 255 0001:001D449F 257 0001:001D44AF 258 0001:001D44B6 + 263 0001:001D44C8 264 0001:001D44CD 267 0001:001D44D0 269 0001:001D44D3 + 271 0001:001D4503 272 0001:001D4514 274 0001:001D4516 276 0001:001D4528 + 277 0001:001D453A 280 0001:001D454E 281 0001:001D455C 283 0001:001D456A + 284 0001:001D4571 285 0001:001D4585 286 0001:001D4599 287 0001:001D45A0 + 292 0001:001D4618 293 0001:001D461D 298 0001:001D4620 300 0001:001D4639 + 301 0001:001D4646 303 0001:001D464E 304 0001:001D4657 305 0001:001D4665 + 307 0001:001D466E 308 0001:001D467E 310 0001:001D4687 312 0001:001D46AC + 314 0001:001D46E4 316 0001:001D470D 319 0001:001D4714 321 0001:001D4717 + 322 0001:001D4724 323 0001:001D4731 325 0001:001D4764 325 0001:001D476B + +Line numbers for fLkUpLocation(fLkUpLocation.pas) segment .text + + 40 0001:001D49A4 41 0001:001D49C3 42 0001:001D49C9 43 0001:001D49E0 + 44 0001:001D49EE 45 0001:001D49F6 46 0001:001D4A07 47 0001:001D4A12 + 48 0001:001D4A16 49 0001:001D4A1D 51 0001:001D4A29 52 0001:001D4A39 + 55 0001:001D4A61 57 0001:001D4A8E 62 0001:001D4A98 63 0001:001D4A9F + 64 0001:001D4AAC 68 0001:001D4AB0 70 0001:001D4AB9 71 0001:001D4ACA + 72 0001:001D4AE3 73 0001:001D4AFC 76 0001:001D4B13 81 0001:001D4B1C + 82 0001:001D4B23 83 0001:001D4B28 88 0001:001D4B2C 89 0001:001D4B31 + 91 0001:001D4B64 91 0001:001D4B6B + +Line numbers for fOrdersDC(Orders\fOrdersDC.pas) segment .text + + 52 0001:001D4DDC 53 0001:001D4E02 54 0001:001D4E06 55 0001:001D4E0C + 56 0001:001D4E10 57 0001:001D4E14 58 0001:001D4E23 59 0001:001D4E2D + 60 0001:001D4E44 61 0001:001D4E52 62 0001:001D4E5A 63 0001:001D4E5E + 65 0001:001D4E6E 66 0001:001D4E7A 67 0001:001D4E91 68 0001:001D4EA1 + 63 0001:001D4EA4 69 0001:001D4EA7 71 0001:001D4EAD 72 0001:001D4EBD + 75 0001:001D4ECF 76 0001:001D4EDF 78 0001:001D4EEF 79 0001:001D4EFA + 81 0001:001D4F0A 82 0001:001D4F36 83 0001:001D4F3F 84 0001:001D4F44 + 86 0001:001D4F58 87 0001:001D4F64 88 0001:001D4F6F 89 0001:001D4F92 + 90 0001:001D4FA5 92 0001:001D4FBA 93 0001:001D4FDC 96 0001:001D4FEE + 97 0001:001D5002 98 0001:001D5017 99 0001:001D5029 101 0001:001D5039 + 104 0001:001D5043 105 0001:001D5053 107 0001:001D505D 109 0001:001D5065 + 110 0001:001D5082 84 0001:001D5085 111 0001:001D508C 112 0001:001D50A4 + 113 0001:001D50E6 114 0001:001D50EA 116 0001:001D50F4 118 0001:001D510F + 120 0001:001D512C 121 0001:001D514D 122 0001:001D516E 123 0001:001D5179 + 125 0001:001D51B6 126 0001:001D51BA 129 0001:001D51C9 116 0001:001D51CC + 130 0001:001D51D3 132 0001:001D51D9 133 0001:001D51E5 134 0001:001D51FC + 135 0001:001D520A 138 0001:001D5210 140 0001:001D5216 142 0001:001D524B + 144 0001:001D528D 149 0001:001D52D0 151 0001:001D52D4 152 0001:001D52DB + 153 0001:001D52ED 160 0001:001D52FE 166 0001:001D5304 168 0001:001D5308 + 170 0001:001D5329 171 0001:001D533A 173 0001:001D533D 174 0001:001D5344 + 175 0001:001D5355 176 0001:001D535C 181 0001:001D53B8 182 0001:001D53BD + 189 0001:001D53C0 191 0001:001D53EA 192 0001:001D53F2 193 0001:001D53FE + 195 0001:001D5404 196 0001:001D5412 197 0001:001D5425 198 0001:001D5436 + 199 0001:001D5448 201 0001:001D5457 202 0001:001D5467 205 0001:001D54B0 + 211 0001:001D54BC 213 0001:001D54DC 215 0001:001D54F2 216 0001:001D5503 + 218 0001:001D5532 224 0001:001D553C 225 0001:001D555E 226 0001:001D5563 + 227 0001:001D5568 228 0001:001D556D 229 0001:001D557C 230 0001:001D55B2 + 232 0001:001D55E8 232 0001:001D55EF + +Line numbers for fODChangeEvtDisp(Orders\fODChangeEvtDisp.pas) segment .text + + 41 0001:001D584C 42 0001:001D5871 43 0001:001D5887 44 0001:001D5895 + 45 0001:001D58A3 47 0001:001D58B1 48 0001:001D58BB 49 0001:001D58CF + 45 0001:001D58D0 50 0001:001D58D3 51 0001:001D58DD 52 0001:001D5902 + 59 0001:001D590C 61 0001:001D5936 62 0001:001D593E 63 0001:001D594A + 65 0001:001D5950 66 0001:001D595E 67 0001:001D5971 68 0001:001D5982 + 69 0001:001D5994 71 0001:001D59A3 72 0001:001D59B3 75 0001:001D59FC + 83 0001:001D5A08 85 0001:001D5A2C 86 0001:001D5A36 88 0001:001D5A4C + 89 0001:001D5A5D 90 0001:001D5A6A 92 0001:001D5A9B 93 0001:001D5AA9 + 95 0001:001D5AD1 100 0001:001D5ADC 101 0001:001D5AE3 102 0001:001D5AE8 + 107 0001:001D5AEC 108 0001:001D5AF3 109 0001:001D5AF8 111 0001:001D5B2C + 111 0001:001D5B33 + +Line numbers for fOrdersCV(Orders\fOrdersCV.pas) segment .text + + 74 0001:001D5DBC 75 0001:001D5DFD 76 0001:001D5E08 77 0001:001D5E16 + 78 0001:001D5E24 79 0001:001D5E3B 80 0001:001D5E49 81 0001:001D5E89 + 87 0001:001D5E90 88 0001:001D5EB7 89 0001:001D5EBC 91 0001:001D5EE1 + 92 0001:001D5F10 94 0001:001D5F1F 95 0001:001D5F5B 97 0001:001D5F5D + 89 0001:001D5F5E 99 0001:001D5F8E 100 0001:001D5F98 101 0001:001D5FD3 + 102 0001:001D5FD7 103 0001:001D5FDB 104 0001:001D5FDF 105 0001:001D5FE4 + 106 0001:001D5FEC 107 0001:001D5FF1 108 0001:001D5FF9 109 0001:001D5FFE + 110 0001:001D600D 112 0001:001D6011 113 0001:001D601E 114 0001:001D6034 + 115 0001:001D603B 116 0001:001D606E 117 0001:001D607D 119 0001:001D6092 + 120 0001:001D609F 121 0001:001D60A6 122 0001:001D60AD 123 0001:001D60BA + 125 0001:001D6100 126 0001:001D6144 127 0001:001D6160 128 0001:001D6168 + 129 0001:001D6174 130 0001:001D617F 132 0001:001D618B 133 0001:001D619B + 134 0001:001D61A6 136 0001:001D61C9 137 0001:001D61D0 138 0001:001D61DA + 140 0001:001D61E7 142 0001:001D620E 143 0001:001D621D 145 0001:001D6230 + 146 0001:001D623D 147 0001:001D6248 143 0001:001D624B 148 0001:001D624E + 149 0001:001D626B 150 0001:001D6294 151 0001:001D62BC 153 0001:001D62EF + 154 0001:001D6315 156 0001:001D631B 157 0001:001D633F 158 0001:001D6369 + 160 0001:001D6378 161 0001:001D637E 162 0001:001D6383 163 0001:001D638E + 164 0001:001D6398 165 0001:001D639C 168 0001:001D63A1 169 0001:001D63AC + 170 0001:001D63D0 171 0001:001D63D5 173 0001:001D63EB 174 0001:001D63EF + 176 0001:001D63F8 177 0001:001D6406 180 0001:001D6413 182 0001:001D6426 + 183 0001:001D643A 185 0001:001D6449 186 0001:001D6460 187 0001:001D646E + 188 0001:001D6472 190 0001:001D6477 192 0001:001D64A5 193 0001:001D64C4 + 194 0001:001D64D8 195 0001:001D64EE 197 0001:001D6517 198 0001:001D651B + 201 0001:001D6528 202 0001:001D6533 203 0001:001D6556 204 0001:001D6560 + 205 0001:001D657D 208 0001:001D6590 209 0001:001D65A5 210 0001:001D65B4 + 212 0001:001D65C7 213 0001:001D65D4 214 0001:001D65DF 210 0001:001D65E2 + 215 0001:001D65E5 216 0001:001D65EF 217 0001:001D65FB 218 0001:001D6602 + 219 0001:001D660E 220 0001:001D6625 222 0001:001D6633 224 0001:001D6639 + 225 0001:001D66A8 233 0001:001D67DC 235 0001:001D67FA 236 0001:001D680B + 238 0001:001D6818 240 0001:001D682D 241 0001:001D6840 243 0001:001D684D + 245 0001:001D686D 247 0001:001D68B7 248 0001:001D68CD 249 0001:001D68E3 + 250 0001:001D68FE 251 0001:001D690B 252 0001:001D692C 253 0001:001D6939 + 254 0001:001D6949 256 0001:001D694B 243 0001:001D694C 257 0001:001D6955 + 258 0001:001D6964 260 0001:001D699B 263 0001:001D6A18 265 0001:001D6A1B + 266 0001:001D6A23 267 0001:001D6A2B 268 0001:001D6A36 269 0001:001D6A41 + 270 0001:001D6A48 272 0001:001D6A50 283 0001:001D6A54 285 0001:001D6A77 + 286 0001:001D6A92 287 0001:001D6A9B 289 0001:001D6ABD 290 0001:001D6ACA + 292 0001:001D6AD9 294 0001:001D6B19 295 0001:001D6B26 299 0001:001D6B38 + 300 0001:001D6B45 302 0001:001D6B55 304 0001:001D6B68 305 0001:001D6B98 + 306 0001:001D6BC8 309 0001:001D6BFA 310 0001:001D6C02 311 0001:001D6C0A + 313 0001:001D6C12 314 0001:001D6C20 316 0001:001D6C4F 318 0001:001D6CA1 + 321 0001:001D6CAF 323 0001:001D6CC2 325 0001:001D6CE2 327 0001:001D6D1C + 328 0001:001D6D35 330 0001:001D6D37 323 0001:001D6D3A 331 0001:001D6D3D + 334 0001:001D6D4F 335 0001:001D6D5C 339 0001:001D6D9B 347 0001:001D6E3C + 349 0001:001D6E3F 351 0001:001D6E4E 352 0001:001D6E5F 354 0001:001D6E61 + 355 0001:001D6E68 356 0001:001D6E6F 360 0001:001D6EBC 361 0001:001D6EC1 + 363 0001:001D6EC4 365 0001:001D6EC7 366 0001:001D6ED5 367 0001:001D6EDE + 371 0001:001D6EE0 373 0001:001D6EE3 374 0001:001D6EE8 375 0001:001D6EEB + 382 0001:001D6EF0 383 0001:001D6F1C 385 0001:001D6F32 386 0001:001D6F54 + 388 0001:001D6F58 389 0001:001D6F6F 393 0001:001D6F9D 394 0001:001D6FA8 + 395 0001:001D6FAE 396 0001:001D6FCE 398 0001:001D6FFC 383 0001:001D6FFD + 399 0001:001D7006 401 0001:001D7013 403 0001:001D7029 404 0001:001D7042 + 407 0001:001D708C 412 0001:001D7094 413 0001:001D70BB 414 0001:001D70C2 + 415 0001:001D70CE 417 0001:001D70EF 419 0001:001D712B 420 0001:001D7142 + 422 0001:001D7144 415 0001:001D7145 423 0001:001D716A 430 0001:001D7174 + 431 0001:001D7192 432 0001:001D71A0 433 0001:001D71A7 435 0001:001D71BD + 437 0001:001D71EA 438 0001:001D721A 440 0001:001D7248 433 0001:001D7249 + 441 0001:001D727C 443 0001:001D72B4 443 0001:001D72BB + +Line numbers for fOrdersHold(Orders\fOrdersHold.pas) segment .text + + 35 0001:001D74C0 36 0001:001D74DE 37 0001:001D74E2 38 0001:001D74EC + 39 0001:001D7503 40 0001:001D7511 41 0001:001D7519 42 0001:001D7524 + 41 0001:001D7545 43 0001:001D7548 44 0001:001D7553 46 0001:001D755F + 48 0001:001D756A 49 0001:001D757E 50 0001:001D758C 51 0001:001D75A5 + 52 0001:001D75CB 46 0001:001D75CC 53 0001:001D75CF 55 0001:001D75D5 + 57 0001:001D7602 59 0001:001D7632 64 0001:001D7648 65 0001:001D764F + 70 0001:001D7650 71 0001:001D7657 72 0001:001D765C 77 0001:001D7660 + 78 0001:001D7665 80 0001:001D7698 80 0001:001D769F + +Line numbers for fOrdersUnhold(Orders\fOrdersUnhold.pas) segment .text + + 35 0001:001D78A8 36 0001:001D78C6 37 0001:001D78CA 38 0001:001D78D4 + 39 0001:001D78EB 40 0001:001D78F9 41 0001:001D7901 42 0001:001D790C + 41 0001:001D792D 43 0001:001D7930 44 0001:001D793B 46 0001:001D7947 + 48 0001:001D7952 49 0001:001D7966 50 0001:001D7974 46 0001:001D7975 + 51 0001:001D7978 53 0001:001D797E 55 0001:001D79AB 57 0001:001D79DB + 62 0001:001D79E4 63 0001:001D79EB 68 0001:001D79EC 69 0001:001D79F3 + 70 0001:001D79F8 75 0001:001D79FC 76 0001:001D7A01 78 0001:001D7A34 + 78 0001:001D7A3B + +Line numbers for fOrdersAlert(Orders\fOrdersAlert.pas) segment .text + + 45 0001:001D7CA8 46 0001:001D7CB3 47 0001:001D7CB7 48 0001:001D7CC4 + 50 0001:001D7CD0 51 0001:001D7CDD 52 0001:001D7CEF 53 0001:001D7D06 + 54 0001:001D7D14 56 0001:001D7D1C 57 0001:001D7D2A 56 0001:001D7D4C + 58 0001:001D7D4F 59 0001:001D7D5A 61 0001:001D7D66 62 0001:001D7D93 + 65 0001:001D7DA4 66 0001:001D7DAC 68 0001:001D7DDB 71 0001:001D7DE4 + 73 0001:001D7DE7 74 0001:001D7DEE 75 0001:001D7DFF 76 0001:001D7E16 + 79 0001:001D7E18 81 0001:001D7E1B 82 0001:001D7E29 83 0001:001D7E30 + 84 0001:001D7E37 89 0001:001D7E3C 90 0001:001D7E41 94 0001:001D7E44 + 95 0001:001D7E4D 96 0001:001D7E64 99 0001:001D7E6C 100 0001:001D7E80 + 101 0001:001D7E86 103 0001:001D7EA0 104 0001:001D7EB4 105 0001:001D7EBE + 109 0001:001D7EC9 111 0001:001D7EF9 113 0001:001D7F3C 113 0001:001D7F43 + +Line numbers for fOrderFlag(Orders\fOrderFlag.pas) segment .text + + 41 0001:001D81BC 42 0001:001D81D8 43 0001:001D81DC 44 0001:001D81F3 + 45 0001:001D8201 49 0001:001D8209 50 0001:001D8221 51 0001:001D822C + 53 0001:001D8238 54 0001:001D825F 58 0001:001D8270 59 0001:001D8278 + 61 0001:001D82B4 66 0001:001D82BC 67 0001:001D82C3 69 0001:001D82D0 + 75 0001:001D82D4 77 0001:001D82EA 79 0001:001D82FE 80 0001:001D830F + 82 0001:001D8311 83 0001:001D831F 84 0001:001D8326 85 0001:001D834A + 90 0001:001D839C 91 0001:001D83A1 94 0001:001D83A4 95 0001:001D83B8 + 96 0001:001D83BE 98 0001:001D83D8 99 0001:001D83EC 100 0001:001D83F6 + 104 0001:001D8401 106 0001:001D8431 110 0001:001D8438 111 0001:001D8441 + 112 0001:001D8458 114 0001:001D8490 114 0001:001D8497 + +Line numbers for fOrderUnflag(Orders\fOrderUnflag.pas) segment .text + + 33 0001:001D86C4 34 0001:001D86E0 35 0001:001D86E4 36 0001:001D86FB + 37 0001:001D8709 40 0001:001D8711 41 0001:001D8729 42 0001:001D8740 + 43 0001:001D874B 45 0001:001D8757 46 0001:001D8772 50 0001:001D8783 + 52 0001:001D87B3 57 0001:001D87B8 58 0001:001D87BF 63 0001:001D87C0 + 64 0001:001D87C7 65 0001:001D87CC 70 0001:001D87D0 71 0001:001D87D5 + 74 0001:001D8808 74 0001:001D880F + +Line numbers for UBAMessages(BA\UBAMessages.pas) segment .text + + 43 0001:001D8840 43 0001:001D8847 + +Line numbers for fOrdersPrint(Orders\fOrdersPrint.pas) segment .text + + 74 0001:001D8C34 75 0001:001D8C41 76 0001:001D8C58 77 0001:001D8C66 + 78 0001:001D8C74 81 0001:001D8C7C 82 0001:001D8C88 83 0001:001D8C92 + 84 0001:001D8C9B 86 0001:001D8C9F 87 0001:001D8CB2 89 0001:001D8CC5 + 90 0001:001D8CD3 91 0001:001D8CE0 92 0001:001D8CF4 93 0001:001D8D04 + 96 0001:001D8D1F 97 0001:001D8D2D 99 0001:001D8D3D 102 0001:001D8D8C + 105 0001:001D8DC8 106 0001:001D8DEA 107 0001:001D8E0C 108 0001:001D8E2E + 109 0001:001D8E50 113 0001:001D8F2C 115 0001:001D8F93 129 0001:001D8FA8 + 130 0001:001D8FC7 132 0001:001D8FFB 133 0001:001D900C 134 0001:001D9015 + 135 0001:001D901F 137 0001:001D9025 138 0001:001D9034 139 0001:001D9041 + 140 0001:001D904D 141 0001:001D9066 142 0001:001D9073 146 0001:001D9081 + 147 0001:001D908A 149 0001:001D9093 152 0001:001D90A2 153 0001:001D90AB + 154 0001:001D90B4 155 0001:001D90BE 156 0001:001D90D3 159 0001:001D90DF + 160 0001:001D90E8 161 0001:001D90F1 162 0001:001D90FB 163 0001:001D9101 + 166 0001:001D9112 167 0001:001D911B 169 0001:001D9124 172 0001:001D9130 + 173 0001:001D9139 174 0001:001D9142 175 0001:001D914C 178 0001:001D9173 + 183 0001:001D9180 184 0001:001D9196 185 0001:001D91AF 187 0001:001D91BB + 188 0001:001D91C5 190 0001:001D91F1 195 0001:001D91F8 196 0001:001D920E + 197 0001:001D9227 199 0001:001D9233 200 0001:001D923D 202 0001:001D9269 + 207 0001:001D9270 208 0001:001D9286 209 0001:001D929F 211 0001:001D92AB + 212 0001:001D92B5 214 0001:001D92E1 219 0001:001D92E8 220 0001:001D92FE + 221 0001:001D9317 223 0001:001D9323 224 0001:001D932D 226 0001:001D9359 + 232 0001:001D9360 233 0001:001D9380 234 0001:001D93B5 235 0001:001D93EA + 236 0001:001D941F 237 0001:001D9454 241 0001:001D952F 243 0001:001D9541 + 244 0001:001D9548 248 0001:001D955B 249 0001:001D9562 251 0001:001D95D2 + 255 0001:001D965C 256 0001:001D967C 259 0001:001D969A 261 0001:001D96A7 + 262 0001:001D96CC 264 0001:001D96DE 266 0001:001D96EF 268 0001:001D96FC + 269 0001:001D9721 271 0001:001D9733 273 0001:001D9744 275 0001:001D9751 + 276 0001:001D9776 278 0001:001D9788 280 0001:001D9799 282 0001:001D97A6 + 283 0001:001D97CB 285 0001:001D97DD 287 0001:001D97EE 293 0001:001D98C9 + 294 0001:001D98E2 295 0001:001D9952 298 0001:001D9970 299 0001:001D9973 + 300 0001:001D999F 303 0001:001D99A4 304 0001:001D99A7 305 0001:001D99D3 + 308 0001:001D99D8 309 0001:001D99DB 310 0001:001D9A07 313 0001:001D9A0C + 314 0001:001D9A0F 315 0001:001D9A3B 319 0001:001D9A40 320 0001:001D9A4D + 324 0001:001D9A50 325 0001:001D9A53 327 0001:001D9A59 328 0001:001D9A5E + 330 0001:001D9A63 332 0001:001D9AA8 332 0001:001D9AAF + +Line numbers for uSignItems(uSignItems.pas) segment .text + + 138 0001:001D9C80 139 0001:001D9C83 145 0001:001D9C84 146 0001:001D9C8E + 148 0001:001D9C9C 149 0001:001D9CA8 151 0001:001D9CC1 152 0001:001D9CC3 + 154 0001:001D9CC5 146 0001:001D9CC6 155 0001:001D9CC9 156 0001:001D9CCB + 164 0001:001D9CD4 165 0001:001D9CE4 167 0001:001D9CE6 168 0001:001D9D05 + 169 0001:001D9D24 170 0001:001D9D2F 171 0001:001D9D38 172 0001:001D9D40 + 173 0001:001D9D4B 165 0001:001D9D4C 174 0001:001D9D51 182 0001:001D9D5C + 183 0001:001D9D74 184 0001:001D9D90 186 0001:001D9DB3 187 0001:001D9DE1 + 189 0001:001D9DF2 184 0001:001D9DF3 190 0001:001D9DFB 191 0001:001D9E17 + 193 0001:001D9E38 194 0001:001D9E66 195 0001:001D9E77 191 0001:001D9E78 + 196 0001:001D9E90 199 0001:001D9EC0 200 0001:001D9EC3 202 0001:001D9ECC + 203 0001:001D9ED3 204 0001:001D9EE1 206 0001:001D9F01 209 0001:001D9F10 + 210 0001:001D9F15 214 0001:001D9F18 215 0001:001D9F20 227 0001:001D9F24 + 228 0001:001D9F44 230 0001:001D9F49 231 0001:001D9F5C 232 0001:001D9F60 + 233 0001:001D9F6D 234 0001:001D9F8B 237 0001:001D9FB9 240 0001:001D9FC4 + 241 0001:001D9FC7 242 0001:001D9FCF 243 0001:001D9FD7 246 0001:001D9FDC + 247 0001:001D9FEE 248 0001:001D9FF7 249 0001:001DA00D 250 0001:001DA016 + 251 0001:001DA025 252 0001:001DA034 254 0001:001DA05F 257 0001:001DA094 + 258 0001:001DA09F 259 0001:001DA0A7 260 0001:001DA0AF 261 0001:001DA0C6 + 280 0001:001DA0CC 281 0001:001DA0D1 282 0001:001DA0E3 281 0001:001DA0F8 + 283 0001:001DA0FB 286 0001:001DA10C 287 0001:001DA118 288 0001:001DA120 + 290 0001:001DA124 291 0001:001DA132 295 0001:001DA138 296 0001:001DA13E + 297 0001:001DA140 298 0001:001DA143 301 0001:001DA148 302 0001:001DA14B + 304 0001:001DA14F 305 0001:001DA156 309 0001:001DA15B 310 0001:001DA15C + 311 0001:001DA167 313 0001:001DA173 351 0001:001DA178 352 0001:001DA17F + 353 0001:001DA193 354 0001:001DA19C 355 0001:001DA1A8 356 0001:001DA1B4 + 357 0001:001DA1BD 358 0001:001DA1C4 359 0001:001DA1DA 360 0001:001DA1F0 + 361 0001:001DA206 362 0001:001DA218 364 0001:001DA21C 365 0001:001DA243 + 366 0001:001DA247 367 0001:001DA252 368 0001:001DA259 370 0001:001DA267 + 371 0001:001DA275 372 0001:001DA27A 374 0001:001DA288 376 0001:001DA2A7 + 377 0001:001DA2B8 378 0001:001DA2DE 379 0001:001DA2E8 380 0001:001DA2F6 + 381 0001:001DA300 385 0001:001DA354 386 0001:001DA35A 387 0001:001DA375 + 388 0001:001DA378 391 0001:001DA3CB 374 0001:001DA3CE 393 0001:001DA3D7 + 395 0001:001DA3E1 396 0001:001DA3EB 398 0001:001DA3F2 399 0001:001DA3F7 + 401 0001:001DA41D 403 0001:001DA435 405 0001:001DA43F 406 0001:001DA469 + 408 0001:001DA48D 409 0001:001DA4A0 411 0001:001DA4B7 413 0001:001DA4C1 + 414 0001:001DA4D9 415 0001:001DA4DE 418 0001:001DA4EC 420 0001:001DA4FC + 422 0001:001DA506 424 0001:001DA519 426 0001:001DA520 428 0001:001DA52C + 430 0001:001DA53F 431 0001:001DA54E 433 0001:001DA554 434 0001:001DA563 + 436 0001:001DA569 438 0001:001DA56D 439 0001:001DA587 442 0001:001DA589 + 424 0001:001DA58D 445 0001:001DA592 446 0001:001DA593 448 0001:001DA59D + 453 0001:001DA5B4 455 0001:001DA5C2 456 0001:001DA5E7 460 0001:001DA604 + 462 0001:001DA614 463 0001:001DA640 466 0001:001DA65D 468 0001:001DA66D + 469 0001:001DA699 470 0001:001DA69F 473 0001:001DA6B6 475 0001:001DA6C6 + 477 0001:001DA6F6 478 0001:001DA6FC 481 0001:001DA713 487 0001:001DA720 + 399 0001:001DA723 490 0001:001DA72C 492 0001:001DA734 493 0001:001DA739 + 492 0001:001DA73D 495 0001:001DA741 497 0001:001DA760 499 0001:001DA771 + 501 0001:001DA7C9 503 0001:001DA7ED 504 0001:001DA81C 506 0001:001DA829 + 507 0001:001DA82E 509 0001:001DA845 510 0001:001DA848 511 0001:001DA84E + 512 0001:001DA85C 506 0001:001DA85E 515 0001:001DA863 517 0001:001DA871 + 495 0001:001DA874 520 0001:001DA87D 522 0001:001DA887 523 0001:001DA890 + 527 0001:001DA89A 529 0001:001DA8A7 530 0001:001DA8AB 532 0001:001DA8AF + 533 0001:001DA8B8 534 0001:001DA8C1 535 0001:001DA8CC 536 0001:001DA8E1 + 538 0001:001DA8E6 540 0001:001DA8ED 541 0001:001DA8FF 542 0001:001DA904 + 543 0001:001DA907 538 0001:001DA90A 545 0001:001DA90E 546 0001:001DA912 + 547 0001:001DA92B 548 0001:001DA92E 550 0001:001DA93E 552 0001:001DA940 + 553 0001:001DA953 554 0001:001DA95B 550 0001:001DA95C 556 0001:001DA961 + 558 0001:001DA96E 559 0001:001DA975 560 0001:001DA986 561 0001:001DA990 + 562 0001:001DA99A 563 0001:001DA9A4 564 0001:001DA9B0 565 0001:001DA9C3 + 566 0001:001DA9EA 567 0001:001DA9FD 568 0001:001DAA04 569 0001:001DAA0D + 570 0001:001DAA1D 571 0001:001DAA2E 574 0001:001DAA3B 576 0001:001DAA44 + 577 0001:001DAA46 578 0001:001DAA52 579 0001:001DAA63 580 0001:001DAA6D + 581 0001:001DAA77 582 0001:001DAA81 583 0001:001DAA93 584 0001:001DAAA6 + 585 0001:001DAAC5 586 0001:001DAAD8 587 0001:001DAAE4 588 0001:001DAAED + 589 0001:001DAB08 591 0001:001DAB17 592 0001:001DAB28 593 0001:001DAB35 + 574 0001:001DAB39 595 0001:001DAB43 596 0001:001DAB60 597 0001:001DAB78 + 599 0001:001DAB8A 600 0001:001DAB98 601 0001:001DABA0 602 0001:001DABB3 + 603 0001:001DABBE 604 0001:001DABD6 605 0001:001DABDF 606 0001:001DABF5 + 608 0001:001DAC00 610 0001:001DAC1F 612 0001:001DAC30 614 0001:001DAC5C + 616 0001:001DAC83 618 0001:001DAC8D 620 0001:001DACA0 622 0001:001DACAE + 623 0001:001DACB6 624 0001:001DACC0 626 0001:001DACC4 627 0001:001DACCD + 629 0001:001DACD1 630 0001:001DACD7 631 0001:001DACD9 626 0001:001DACDD + 633 0001:001DACE3 635 0001:001DACED 636 0001:001DACF9 637 0001:001DAD0C + 638 0001:001DAD23 639 0001:001DAD48 640 0001:001DAD51 643 0001:001DAD67 + 644 0001:001DAD75 645 0001:001DAD7D 647 0001:001DAD84 649 0001:001DAD9A + 651 0001:001DADA3 652 0001:001DADCD 658 0001:001DADEE 660 0001:001DADF9 + 661 0001:001DADFD 662 0001:001DAE09 666 0001:001DAE20 667 0001:001DAE2D + 668 0001:001DAE38 669 0001:001DAE43 674 0001:001DAE4C 620 0001:001DAE55 + 680 0001:001DAE5F 608 0001:001DAE62 683 0001:001DAE78 688 0001:001DAEA1 + 693 0001:001DAECB 694 0001:001DAEE9 697 0001:001DAF4D 708 0001:001DAFF4 + 709 0001:001DB01B 710 0001:001DB025 711 0001:001DB02B 713 0001:001DB03C + 714 0001:001DB044 715 0001:001DB046 714 0001:001DB052 716 0001:001DB057 + 717 0001:001DB059 719 0001:001DB073 720 0001:001DB080 722 0001:001DB09F + 723 0001:001DB0A0 724 0001:001DB0AB 725 0001:001DB0B6 727 0001:001DB0C2 + 717 0001:001DB0C5 730 0001:001DB0CF 732 0001:001DB0DA 733 0001:001DB0E3 + 734 0001:001DB0F2 736 0001:001DB10C 737 0001:001DB119 739 0001:001DB133 + 740 0001:001DB145 742 0001:001DB157 734 0001:001DB15A 746 0001:001DB164 + 747 0001:001DB167 748 0001:001DB174 750 0001:001DB17F 751 0001:001DB189 + 752 0001:001DB19D 754 0001:001DB1A7 755 0001:001DB1B0 756 0001:001DB1D1 + 757 0001:001DB1DF 758 0001:001DB1F6 759 0001:001DB20D 761 0001:001DB222 + 762 0001:001DB236 763 0001:001DB240 767 0001:001DB277 772 0001:001DB280 + 773 0001:001DB282 774 0001:001DB284 775 0001:001DB290 780 0001:001DB29D + 781 0001:001DB2BE 783 0001:001DB2CA 788 0001:001DB2D0 789 0001:001DB2D1 + 790 0001:001DB2D3 791 0001:001DB2DF 792 0001:001DB2EC 803 0001:001DB2F0 + 804 0001:001DB326 805 0001:001DB33B 807 0001:001DB37A 808 0001:001DB37E + 809 0001:001DB384 810 0001:001DB387 812 0001:001DB393 814 0001:001DB39E + 817 0001:001DB3AF 818 0001:001DB3B6 821 0001:001DB3CC 822 0001:001DB3DD + 823 0001:001DB3F0 826 0001:001DB430 828 0001:001DB436 829 0001:001DB44C + 830 0001:001DB460 833 0001:001DB474 834 0001:001DB489 837 0001:001DB48F + 838 0001:001DB4A0 840 0001:001DB4B3 842 0001:001DB4C0 844 0001:001DB4D5 + 845 0001:001DB4DC 847 0001:001DB4E9 838 0001:001DB4EC 850 0001:001DB4EF + 852 0001:001DB4F5 854 0001:001DB4F9 856 0001:001DB506 857 0001:001DB51C + 859 0001:001DB534 852 0001:001DB537 862 0001:001DB55F 866 0001:001DB568 + 867 0001:001DB571 868 0001:001DB57C 870 0001:001DB586 871 0001:001DB58E + 872 0001:001DB5A3 873 0001:001DB5AB 875 0001:001DB5B0 883 0001:001DB5B4 + 884 0001:001DB5DB 885 0001:001DB5E5 887 0001:001DB5F3 889 0001:001DB60C + 890 0001:001DB619 891 0001:001DB629 892 0001:001DB631 894 0001:001DB63C + 885 0001:001DB63D 895 0001:001DB640 896 0001:001DB65E 897 0001:001DB662 + 898 0001:001DB6B1 905 0001:001DB6B8 907 0001:001DB6DC 909 0001:001DB6E6 + 910 0001:001DB6F0 913 0001:001DB6FE 914 0001:001DB712 919 0001:001DB71E + 920 0001:001DB722 922 0001:001DB73B 923 0001:001DB74B 924 0001:001DB76B + 926 0001:001DB799 928 0001:001DB7CB 929 0001:001DB7CF 932 0001:001DB7D1 + 933 0001:001DB7DB 935 0001:001DB839 920 0001:001DB83A 936 0001:001DB866 + 944 0001:001DB87C 945 0001:001DB89F 947 0001:001DB8AE 948 0001:001DB8BC + 950 0001:001DB8D5 951 0001:001DB8E5 952 0001:001DB905 954 0001:001DB92F + 955 0001:001DB978 957 0001:001DB98F 948 0001:001DB990 959 0001:001DB997 + 962 0001:001DB9AC 964 0001:001DB9BC 967 0001:001DB9C0 968 0001:001DB9F2 + 970 0001:001DBA01 965 0001:001DBA02 972 0001:001DBA11 973 0001:001DBA46 + 993 0001:001DBA68 994 0001:001DBA89 995 0001:001DBA98 996 0001:001DBAA0 + 997 0001:001DBAAA 999 0001:001DBAC1 1000 0001:001DBAEA 1001 0001:001DBAF6 + 997 0001:001DBAF9 1002 0001:001DBB1E 1012 0001:001DBB24 1013 0001:001DBB48 + 1015 0001:001DBB54 1017 0001:001DBB56 1018 0001:001DBB72 1019 0001:001DBB8F + 1020 0001:001DBB9A 1022 0001:001DBBA7 1024 0001:001DBBAB 1025 0001:001DBBB7 + 1026 0001:001DBBC7 1027 0001:001DBBE4 1028 0001:001DBBFF 1030 0001:001DBC12 + 1015 0001:001DBC13 1032 0001:001DBC39 1038 0001:001DBC58 1039 0001:001DBC62 + 1041 0001:001DBC70 1042 0001:001DBC7C 1044 0001:001DBC95 1045 0001:001DBC97 + 1047 0001:001DBC99 1039 0001:001DBC9A 1048 0001:001DBC9D 1049 0001:001DBC9F + 1056 0001:001DBCA8 1057 0001:001DBCC8 1058 0001:001DBCD6 1059 0001:001DBCD9 + 1060 0001:001DBCE1 1062 0001:001DBCF7 1063 0001:001DBD23 1065 0001:001DBD28 + 1066 0001:001DBD4C 1067 0001:001DBD60 1069 0001:001DBD6B 1060 0001:001DBD6C + 1074 0001:001DBD8A 1077 0001:001DBDB6 1087 0001:001DBDC0 1089 0001:001DBE21 + 1081 0001:001DBE24 1082 0001:001DBE3E 1083 0001:001DBE48 1084 0001:001DBE5D + 1086 0001:001DBE83 + +Line numbers for fClinicWardMeds(fClinicWardMeds.pas) segment .text + + 62 0001:001DC098 64 0001:001DC0AE 65 0001:001DC0B4 66 0001:001DC0D0 + 67 0001:001DC0DF 68 0001:001DC0E6 69 0001:001DC0EC 70 0001:001DC115 + 74 0001:001DC128 75 0001:001DC14A 76 0001:001DC150 77 0001:001DC15D + 78 0001:001DC16E 79 0001:001DC178 80 0001:001DC187 81 0001:001DC18E + 83 0001:001DC199 84 0001:001DC1B1 86 0001:001DC1BC 87 0001:001DC1CF + 88 0001:001DC1F6 102 0001:001DC20C 104 0001:001DC20F 106 0001:001DC228 + 107 0001:001DC246 108 0001:001DC250 109 0001:001DC260 111 0001:001DC280 + 112 0001:001DC2A3 117 0001:001DC2B4 118 0001:001DC2BE 119 0001:001DC2C8 + 124 0001:001DC2CC 125 0001:001DC2D6 126 0001:001DC2E0 131 0001:001DC2E4 + 134 0001:001DC312 135 0001:001DC324 137 0001:001DC336 140 0001:001DC345 + 141 0001:001DC368 142 0001:001DC38B 146 0001:001DC39F 147 0001:001DC3C2 + 148 0001:001DC3D4 150 0001:001DC3E3 151 0001:001DC3FB 152 0001:001DC413 + 153 0001:001DC43F 154 0001:001DC46B 155 0001:001DC49B 156 0001:001DC4A4 + 157 0001:001DC4AE 159 0001:001DC4C5 160 0001:001DC4CF 162 0001:001DC50D + 167 0001:001DC64C 168 0001:001DC672 169 0001:001DC67C 171 0001:001DC68E + 172 0001:001DC6D1 173 0001:001DC6DE 169 0001:001DC6DF 174 0001:001DC6E2 + 175 0001:001DC70C 178 0001:001DC720 181 0001:001DC726 182 0001:001DC752 + 185 0001:001DC770 186 0001:001DC795 187 0001:001DC7E6 190 0001:001DC874 + 190 0001:001DC87B + +Line numbers for fOrdersSign(Orders\fOrdersSign.pas) segment .text + + 130 0001:001DCD14 131 0001:001DCD1A 132 0001:001DCD1C 134 0001:001DCD27 + 136 0001:001DCD29 137 0001:001DCD37 138 0001:001DCD57 139 0001:001DCD6D + 137 0001:001DCD6F 144 0001:001DCD8D 148 0001:001DCD97 150 0001:001DCD99 + 156 0001:001DCDA0 157 0001:001DCDC0 159 0001:001DCDCA 161 0001:001DCDFC + 171 0001:001DCE00 172 0001:001DCE30 173 0001:001DCE38 174 0001:001DCE46 + 175 0001:001DCE4D 177 0001:001DCE5B 179 0001:001DCE69 180 0001:001DCE77 + 182 0001:001DCE8B 183 0001:001DCEAB 185 0001:001DCEB8 186 0001:001DCED8 + 188 0001:001DCEDA 180 0001:001DCEDB 193 0001:001DCEFC 197 0001:001DCF38 + 216 0001:001DCF40 217 0001:001DCF4F 218 0001:001DCF57 219 0001:001DCF62 + 220 0001:001DCF73 222 0001:001DCF8F 223 0001:001DCF9A 224 0001:001DCF9C + 219 0001:001DCF9D 225 0001:001DCFA0 230 0001:001DCFA8 231 0001:001DCFAE + 232 0001:001DCFB0 233 0001:001DCFBB 235 0001:001DCFCC 236 0001:001DCFE1 + 233 0001:001DCFE2 237 0001:001DCFE7 242 0001:001DCFEC 243 0001:001DD008 + 245 0001:001DD00C 247 0001:001DD01D 248 0001:001DD055 245 0001:001DD056 + 249 0001:001DD079 251 0001:001DD08C 252 0001:001DD0B0 253 0001:001DD0B4 + 254 0001:001DD0B8 255 0001:001DD0BD 256 0001:001DD0CA 258 0001:001DD0D4 + 259 0001:001DD0E5 261 0001:001DD0EF 262 0001:001DD108 263 0001:001DD116 + 264 0001:001DD120 265 0001:001DD12A 267 0001:001DD144 268 0001:001DD151 + 269 0001:001DD16E 278 0001:001DD181 279 0001:001DD18B 281 0001:001DD198 + 283 0001:001DD1AC 284 0001:001DD1C6 285 0001:001DD1DA 265 0001:001DD1DD + 287 0001:001DD1E6 288 0001:001DD200 293 0001:001DD217 294 0001:001DD221 + 297 0001:001DD233 298 0001:001DD244 299 0001:001DD258 300 0001:001DD26D + 301 0001:001DD282 304 0001:001DD297 306 0001:001DD2C0 307 0001:001DD2CE + 308 0001:001DD2E8 309 0001:001DD2F8 310 0001:001DD324 314 0001:001DD343 + 319 0001:001DD34C 321 0001:001DD357 322 0001:001DD369 325 0001:001DD37B + 328 0001:001DD385 331 0001:001DD397 332 0001:001DD3A4 334 0001:001DD3B6 + 335 0001:001DD3BA 336 0001:001DD3C9 337 0001:001DD3D7 339 0001:001DD3FF + 340 0001:001DD401 342 0001:001DD43F 343 0001:001DD449 344 0001:001DD45F + 345 0001:001DD46A 346 0001:001DD485 348 0001:001DD490 349 0001:001DD4C2 + 351 0001:001DD4C4 352 0001:001DD4D7 353 0001:001DD4EA 354 0001:001DD4FD + 355 0001:001DD505 356 0001:001DD513 357 0001:001DD523 358 0001:001DD535 + 359 0001:001DD554 360 0001:001DD573 361 0001:001DD592 362 0001:001DD5B1 + 364 0001:001DD5D1 365 0001:001DD5F5 366 0001:001DD619 370 0001:001DD648 + 371 0001:001DD6CC 374 0001:001DD6E9 376 0001:001DD6EB 377 0001:001DD726 + 380 0001:001DD72D 386 0001:001DD736 387 0001:001DD73E 388 0001:001DD75D + 389 0001:001DD782 391 0001:001DD7AF 392 0001:001DD7BA 393 0001:001DD7FC + 399 0001:001DD81B 401 0001:001DD85E 407 0001:001DD8AA 408 0001:001DD8CF + 409 0001:001DD8FD 411 0001:001DD918 412 0001:001DD923 416 0001:001DD965 + 337 0001:001DD968 417 0001:001DD971 418 0001:001DD97B 422 0001:001DD98B + 424 0001:001DD99F 425 0001:001DD9B9 427 0001:001DD9F1 428 0001:001DDA35 + 430 0001:001DDA6B 431 0001:001DDA74 434 0001:001DDA7E 435 0001:001DDA88 + 439 0001:001DDA9B 441 0001:001DDAC7 443 0001:001DDB09 444 0001:001DDB54 + 447 0001:001DDBB3 448 0001:001DDBF1 449 0001:001DDC41 439 0001:001DDC44 + 450 0001:001DDC4D 451 0001:001DDC54 453 0001:001DDC68 455 0001:001DDCA5 + 456 0001:001DDCAF 458 0001:001DDCB1 459 0001:001DDCE5 460 0001:001DDCF4 + 451 0001:001DDCF5 461 0001:001DDCFE 463 0001:001DDD18 467 0001:001DDD35 + 468 0001:001DDD3F 470 0001:001DDD78 471 0001:001DDE1F 474 0001:001DE130 + 476 0001:001DE133 477 0001:001DE13D 478 0001:001DE144 479 0001:001DE154 + 480 0001:001DE162 481 0001:001DE172 482 0001:001DE180 486 0001:001DE191 + 488 0001:001DE19F 489 0001:001DE1AF 490 0001:001DE1C6 491 0001:001DE1D3 + 492 0001:001DE1EA 493 0001:001DE1FE 494 0001:001DE20E 495 0001:001DE21B + 499 0001:001DE224 500 0001:001DE234 504 0001:001DE244 509 0001:001DE248 + 510 0001:001DE24B 512 0001:001DE24D 514 0001:001DE25D 516 0001:001DE273 + 517 0001:001DE285 519 0001:001DE287 512 0001:001DE288 520 0001:001DE28D + 531 0001:001DE294 534 0001:001DE2AF 536 0001:001DE2D1 537 0001:001DE2E2 + 540 0001:001DE2E7 542 0001:001DE309 543 0001:001DE31A 544 0001:001DE328 + 545 0001:001DE333 549 0001:001DE338 551 0001:001DE342 553 0001:001DE350 + 555 0001:001DE359 556 0001:001DE36A 561 0001:001DE36C 563 0001:001DE37A + 564 0001:001DE38B 567 0001:001DE38D 568 0001:001DE399 570 0001:001DE3C9 + 571 0001:001DE3D0 572 0001:001DE409 577 0001:001DE634 578 0001:001DE639 + 583 0001:001DE63C 584 0001:001DE64D 585 0001:001DE65E 586 0001:001DE668 + 598 0001:001DE66C 600 0001:001DE6A6 601 0001:001DE6AE 604 0001:001DE6BA + 606 0001:001DE6C8 608 0001:001DE6CE 610 0001:001DE6E2 611 0001:001DE6F0 + 612 0001:001DE703 613 0001:001DE714 614 0001:001DE725 615 0001:001DE746 + 617 0001:001DE74A 618 0001:001DE75B 620 0001:001DE76C 625 0001:001DE77D + 627 0001:001DE787 628 0001:001DE7B9 632 0001:001DE7D0 634 0001:001DE7FC + 636 0001:001DE80A 638 0001:001DE818 640 0001:001DE837 642 0001:001DE847 + 643 0001:001DE856 644 0001:001DE861 646 0001:001DE877 647 0001:001DE895 + 648 0001:001DE8CA 651 0001:001DE8DA 652 0001:001DE8ED 658 0001:001DE917 + 660 0001:001DE927 661 0001:001DE93A 672 0001:001DE969 673 0001:001DE971 + 674 0001:001DE97D 676 0001:001DE983 678 0001:001DE997 679 0001:001DE9A5 + 680 0001:001DE9B8 681 0001:001DE9CA 682 0001:001DE9DC 683 0001:001DE9FD + 688 0001:001DEA68 695 0001:001DEA78 697 0001:001DEA9F 698 0001:001DEAA6 + 700 0001:001DEABC 701 0001:001DEAC9 702 0001:001DEAD7 703 0001:001DEAF8 + 704 0001:001DEB0F 708 0001:001DEB1D 711 0001:001DEB4D 718 0001:001DEB58 + 719 0001:001DEB7A 720 0001:001DEB9B 722 0001:001DEBC1 724 0001:001DEBD8 + 725 0001:001DEBED 727 0001:001DEC0E 719 0001:001DEC0F 728 0001:001DEC2F + 730 0001:001DEC38 731 0001:001DEC40 733 0001:001DEC49 735 0001:001DEC6C + 736 0001:001DEC97 738 0001:001DECCF 740 0001:001DECFA 742 0001:001DED06 + 743 0001:001DED1E 747 0001:001DED38 748 0001:001DED50 750 0001:001DED68 + 756 0001:001DED6C 757 0001:001DED70 759 0001:001DED72 760 0001:001DED78 + 761 0001:001DED8D 763 0001:001DED9A 764 0001:001DED9C 765 0001:001DED9E + 760 0001:001DED9F 766 0001:001DEDA4 777 0001:001DEDAC 779 0001:001DEDD2 + 780 0001:001DEDF2 782 0001:001DEDFA 784 0001:001DEE06 786 0001:001DEE12 + 789 0001:001DEE20 791 0001:001DEE43 793 0001:001DEE53 794 0001:001DEE61 + 795 0001:001DEE6F 797 0001:001DEE8F 799 0001:001DEEA2 800 0001:001DEEAC + 804 0001:001DEEC0 805 0001:001DEEED 806 0001:001DEF1A 807 0001:001DEF47 + 810 0001:001DEF74 814 0001:001DEFE4 795 0001:001DEFE8 818 0001:001DF00D + 824 0001:001DF019 827 0001:001DF04D 828 0001:001DF053 833 0001:001DF072 + 834 0001:001DF082 835 0001:001DF08C 837 0001:001DF0C2 840 0001:001DF0F4 + 844 0001:001DF10B 845 0001:001DF118 846 0001:001DF122 847 0001:001DF12C + 848 0001:001DF138 850 0001:001DF14B 853 0001:001DF159 854 0001:001DF163 + 856 0001:001DF177 857 0001:001DF181 859 0001:001DF191 861 0001:001DF197 + 862 0001:001DF1A7 863 0001:001DF1B7 864 0001:001DF1C7 865 0001:001DF1D7 + 866 0001:001DF1E7 867 0001:001DF1F7 868 0001:001DF207 869 0001:001DF214 + 870 0001:001DF221 871 0001:001DF22E 872 0001:001DF23B 873 0001:001DF248 + 874 0001:001DF255 878 0001:001DF262 879 0001:001DF26F 882 0001:001DF276 + 884 0001:001DF28B 885 0001:001DF29A 886 0001:001DF2A7 888 0001:001DF2B4 + 890 0001:001DF2D8 891 0001:001DF2E5 892 0001:001DF2F2 895 0001:001DF303 + 897 0001:001DF33D 898 0001:001DF34A 902 0001:001DF374 913 0001:001DF478 + 916 0001:001DF4A9 917 0001:001DF4AD 919 0001:001DF4B1 920 0001:001DF4C7 + 921 0001:001DF4DD 923 0001:001DF4F3 925 0001:001DF501 927 0001:001DF526 + 929 0001:001DF541 930 0001:001DF565 932 0001:001DF574 934 0001:001DF59C + 937 0001:001DF5DC 938 0001:001DF5E8 939 0001:001DF5F2 940 0001:001DF5FC + 943 0001:001DF608 945 0001:001DF612 946 0001:001DF626 947 0001:001DF630 + 950 0001:001DF63F 958 0001:001DF64C 925 0001:001DF64D 960 0001:001DF671 + 961 0001:001DF673 964 0001:001DF6B3 966 0001:001DF6BC 968 0001:001DF6C1 + 969 0001:001DF6CB 972 0001:001DF6D0 973 0001:001DF6D6 975 0001:001DF6DA + 976 0001:001DF6E7 979 0001:001DF6EB 980 0001:001DF6F8 982 0001:001DF6FC + 985 0001:001DF710 990 0001:001DF72A 991 0001:001DF730 995 0001:001DF74A + 996 0001:001DF754 997 0001:001DF75E 1000 0001:001DF776 1002 0001:001DF786 + 1003 0001:001DF792 1006 0001:001DF79C 1007 0001:001DF7D7 1011 0001:001DF8E0 + 1012 0001:001DF8E5 1022 0001:001DF8E8 1023 0001:001DF906 1024 0001:001DF914 + 1026 0001:001DF922 1028 0001:001DF92F 1030 0001:001DF936 1032 0001:001DF93A + 1033 0001:001DF944 1036 0001:001DF951 1037 0001:001DF976 1039 0001:001DF998 + 1040 0001:001DF9A7 1041 0001:001DF9AC 1043 0001:001DF9C2 1045 0001:001DF9C8 + 1046 0001:001DF9D0 1049 0001:001DF9DD 1052 0001:001DFA02 1053 0001:001DFA13 + 1054 0001:001DFA1D 1055 0001:001DFA2D 1056 0001:001DFA3F 1059 0001:001DFA51 + 1062 0001:001DFA5F 1063 0001:001DFA69 1064 0001:001DFA73 1068 0001:001DFA7D + 1069 0001:001DFA90 1070 0001:001DFAAD 1071 0001:001DFAAF 1036 0001:001DFAB0 + 1076 0001:001DFAD4 1077 0001:001DFADE 1083 0001:001DFB05 1092 0001:001DFBE8 + 1093 0001:001DFBF1 1095 0001:001DFBFF 1096 0001:001DFC08 1098 0001:001DFC19 + 1099 0001:001DFC27 1101 0001:001DFC44 1103 0001:001DFC66 1105 0001:001DFC8B + 1109 0001:001DFCA1 1112 0001:001DFCB3 1114 0001:001DFCC1 1115 0001:001DFCCB + 1116 0001:001DFCD5 1120 0001:001DFCDA 1123 0001:001DFCE8 1124 0001:001DFCF6 + 1125 0001:001DFD07 1126 0001:001DFD18 1127 0001:001DFD29 1130 0001:001DFD3A + 1132 0001:001DFD48 1133 0001:001DFD58 1136 0001:001DFD65 1099 0001:001DFD66 + 1140 0001:001DFD8A 1141 0001:001DFD94 1144 0001:001DFD9E 1155 0001:001DFDA9 + 1164 0001:001DFE68 1165 0001:001DFE77 1167 0001:001DFE8E 1169 0001:001DFE9C + 1170 0001:001DFEAA 1173 0001:001DFEB3 1175 0001:001DFECC 1176 0001:001DFED9 + 1180 0001:001DFEE8 1185 0001:001DFEF5 1186 0001:001DFF19 1188 0001:001DFF3D + 1189 0001:001DFF43 1190 0001:001DFF49 1191 0001:001DFF5A 1196 0001:001DFF86 + 1197 0001:001DFF90 1201 0001:001DFF9A 1211 0001:001DFFE0 1212 0001:001DFFE7 + 1215 0001:001DFFF6 1218 0001:001E0004 1219 0001:001E0018 1221 0001:001E0027 + 1223 0001:001E0034 1225 0001:001E0054 1227 0001:001E006A 1230 0001:001E0080 + 1232 0001:001E0084 1233 0001:001E0091 1234 0001:001E009E 1237 0001:001E00A3 + 1239 0001:001E00A7 1240 0001:001E00AF 1242 0001:001E00BA 1244 0001:001E00C6 + 1245 0001:001E00D3 1249 0001:001E00E2 1250 0001:001E00EF 1255 0001:001E00FE + 1256 0001:001E010B 1257 0001:001E0118 1260 0001:001E011A 1223 0001:001E011B + 1262 0001:001E0124 1264 0001:001E0132 1269 0001:001E0138 1271 0001:001E0142 + 1273 0001:001E014B 1274 0001:001E0155 1277 0001:001E015C 1278 0001:001E01D0 + 1279 0001:001E01FC 1280 0001:001E0228 1281 0001:001E0254 1282 0001:001E0280 + 1283 0001:001E02AC 1284 0001:001E02D5 1286 0001:001E02FA 1288 0001:001E0300 + 1289 0001:001E031B 1288 0001:001E032B 1290 0001:001E032E 1291 0001:001E033D + 1295 0001:001E034B 1304 0001:001E0354 1305 0001:001E0365 1306 0001:001E0373 + 1308 0001:001E037C 1309 0001:001E0386 1315 0001:001E03A8 1319 0001:001E03B2 + 1320 0001:001E03C0 1321 0001:001E03D7 1322 0001:001E03E6 1323 0001:001E03F7 + 1324 0001:001E03FA 1325 0001:001E03FD 1326 0001:001E0423 1327 0001:001E0426 + 1328 0001:001E0429 1329 0001:001E042C 1331 0001:001E042F 1333 0001:001E043C + 1336 0001:001E0445 1337 0001:001E0452 1338 0001:001E045F 1339 0001:001E046C + 1340 0001:001E0479 1341 0001:001E0486 1342 0001:001E0493 1344 0001:001E04A0 + 1345 0001:001E04AD 1346 0001:001E04BA 1347 0001:001E04C7 1348 0001:001E04D4 + 1349 0001:001E04E1 1350 0001:001E04EE 1351 0001:001E04FB 1352 0001:001E0508 + 1353 0001:001E0515 1354 0001:001E0522 1359 0001:001E0534 1362 0001:001E053D + 1363 0001:001E054A 1364 0001:001E0557 1365 0001:001E0564 1366 0001:001E0571 + 1367 0001:001E057E 1368 0001:001E058B 1370 0001:001E0598 1371 0001:001E05A5 + 1372 0001:001E05B2 1373 0001:001E05BF 1374 0001:001E05CC 1375 0001:001E05D9 + 1376 0001:001E05E6 1377 0001:001E05F3 1378 0001:001E0600 1379 0001:001E060D + 1380 0001:001E061A 1384 0001:001E0627 1385 0001:001E063C 1390 0001:001E065E + 1393 0001:001E0668 1396 0001:001E0670 1397 0001:001E0676 1398 0001:001E0684 + 1400 0001:001E068D 1401 0001:001E0697 1402 0001:001E069E 1408 0001:001E06C5 + 1411 0001:001E06CF 1414 0001:001E06D8 1415 0001:001E06DC 1417 0001:001E06E9 + 1420 0001:001E06EF 1421 0001:001E06FC 1422 0001:001E0709 1423 0001:001E0716 + 1424 0001:001E0723 1425 0001:001E0730 1426 0001:001E073D 1428 0001:001E074A + 1429 0001:001E0757 1430 0001:001E0764 1431 0001:001E0771 1432 0001:001E077E + 1433 0001:001E078B 1434 0001:001E0798 1435 0001:001E07A5 1436 0001:001E07B2 + 1437 0001:001E07BF 1438 0001:001E07CC 1439 0001:001E07D9 1444 0001:001E07EB + 1447 0001:001E07F1 1448 0001:001E07FE 1449 0001:001E080B 1450 0001:001E0818 + 1451 0001:001E0825 1452 0001:001E0832 1453 0001:001E083F 1455 0001:001E084C + 1456 0001:001E0859 1457 0001:001E0866 1458 0001:001E0873 1459 0001:001E0880 + 1460 0001:001E088D 1461 0001:001E089A 1462 0001:001E08A7 1463 0001:001E08B4 + 1464 0001:001E08C1 1465 0001:001E08CE 1466 0001:001E08DB 1470 0001:001E08E8 + 1473 0001:001E08F0 1474 0001:001E08F3 1475 0001:001E090E 1478 0001:001E0914 + 1479 0001:001E0917 1480 0001:001E0932 1485 0001:001E0938 1491 0001:001E0950 + 1492 0001:001E096A 1493 0001:001E098B 1495 0001:001E09AB 1496 0001:001E09D6 + 1497 0001:001E09EC 1499 0001:001E0A24 1500 0001:001E0A5A 1492 0001:001E0A5B + 1501 0001:001E0A62 1502 0001:001E0A79 1504 0001:001E0ABB 1508 0001:001E0AF0 + 1509 0001:001E0AF3 1510 0001:001E0AF9 1511 0001:001E0AFE 1517 0001:001E0B04 + 1519 0001:001E0B08 1520 0001:001E0B18 1521 0001:001E0B22 1522 0001:001E0B29 + 1524 0001:001E0BA8 1524 0001:001E0BAF + +Line numbers for fOrdersRelease(Orders\fOrdersRelease.pas) segment .text + + 66 0001:001E0E7C 67 0001:001E0E8B 68 0001:001E0E93 69 0001:001E0EA4 + 71 0001:001E0EC0 72 0001:001E0ECB 73 0001:001E0ECD 68 0001:001E0ECE + 74 0001:001E0ED1 79 0001:001E0ED8 80 0001:001E0EDE 81 0001:001E0EE0 + 83 0001:001E0EF1 84 0001:001E0F06 81 0001:001E0F07 85 0001:001E0F0C + 88 0001:001E0F14 89 0001:001E0F38 90 0001:001E0F3C 91 0001:001E0F41 + 92 0001:001E0F4E 93 0001:001E0F65 94 0001:001E0F73 95 0001:001E0F7B + 96 0001:001E0F87 97 0001:001E0F95 96 0001:001E0FB7 98 0001:001E0FBA + 99 0001:001E0FD5 100 0001:001E0FE0 102 0001:001E0FF0 103 0001:001E0FF4 + 104 0001:001E1003 106 0001:001E1011 108 0001:001E101F 109 0001:001E102B + 110 0001:001E1082 106 0001:001E1083 111 0001:001E1086 112 0001:001E1090 + 114 0001:001E10AD 116 0001:001E10C1 117 0001:001E10DB 119 0001:001E1100 + 120 0001:001E1144 122 0001:001E1174 123 0001:001E117D 128 0001:001E1187 + 130 0001:001E11AD 132 0001:001E11E2 133 0001:001E121A 135 0001:001E1266 + 136 0001:001E1297 137 0001:001E12D4 128 0001:001E12D5 138 0001:001E12DC + 139 0001:001E12E3 143 0001:001E1304 149 0001:001E1314 151 0001:001E131D + 153 0001:001E132D 154 0001:001E1339 161 0001:001E1352 162 0001:001E135A + 164 0001:001E13AB 167 0001:001E1484 169 0001:001E1487 170 0001:001E148E + 171 0001:001E1499 173 0001:001E14B8 174 0001:001E14BF 177 0001:001E14D1 + 178 0001:001E14D8 180 0001:001E14E8 181 0001:001E14EF 188 0001:001E14F4 + 191 0001:001E1511 192 0001:001E152C 193 0001:001E1547 194 0001:001E154E + 195 0001:001E1555 197 0001:001E1561 198 0001:001E1568 200 0001:001E156F + 202 0001:001E157F 203 0001:001E1589 204 0001:001E1591 206 0001:001E15B1 + 207 0001:001E15BE 208 0001:001E15E0 210 0001:001E15EC 211 0001:001E15FB + 212 0001:001E1622 214 0001:001E1624 204 0001:001E1627 215 0001:001E162A + 216 0001:001E1631 218 0001:001E163D 220 0001:001E1649 221 0001:001E1667 + 223 0001:001E1670 224 0001:001E1677 225 0001:001E16A8 230 0001:001E17A4 + 231 0001:001E17A9 239 0001:001E17AC 241 0001:001E17D8 243 0001:001E17DE + 244 0001:001E17E8 245 0001:001E17EC 246 0001:001E17FA 247 0001:001E180D + 248 0001:001E181D 249 0001:001E182F 250 0001:001E1841 252 0001:001E1851 + 253 0001:001E1872 254 0001:001E189E 255 0001:001E18AE 258 0001:001E18D7 + 265 0001:001E18E0 267 0001:001E1903 269 0001:001E191B 270 0001:001E1927 + 271 0001:001E1935 272 0001:001E1955 274 0001:001E196F 276 0001:001E19A5 + 281 0001:001E19B0 282 0001:001E19BB 284 0001:001E19EC 284 0001:001E19F3 + +Line numbers for fOrdersOnChart(Orders\fOrdersOnChart.pas) segment .text + + 53 0001:001E1C64 54 0001:001E1C73 55 0001:001E1C7B 56 0001:001E1C8C + 58 0001:001E1CA8 59 0001:001E1CB3 60 0001:001E1CB5 55 0001:001E1CB6 + 61 0001:001E1CB9 63 0001:001E1CC0 64 0001:001E1CE3 65 0001:001E1CE7 + 66 0001:001E1CEC 67 0001:001E1CF9 68 0001:001E1D10 69 0001:001E1D1E + 70 0001:001E1D26 71 0001:001E1D34 70 0001:001E1D56 72 0001:001E1D59 + 73 0001:001E1D64 75 0001:001E1D74 76 0001:001E1D78 77 0001:001E1D87 + 78 0001:001E1D95 79 0001:001E1DAF 78 0001:001E1DE9 80 0001:001E1DEC + 81 0001:001E1DF6 83 0001:001E1E0C 85 0001:001E1E20 86 0001:001E1E3A + 88 0001:001E1E5F 89 0001:001E1EA3 91 0001:001E1ED3 92 0001:001E1EDC + 94 0001:001E1EE6 96 0001:001E1F0C 98 0001:001E1F41 99 0001:001E1F79 + 102 0001:001E1FC5 94 0001:001E1FC6 103 0001:001E1FCD 104 0001:001E1FD4 + 108 0001:001E1FEE 112 0001:001E200B 113 0001:001E2013 115 0001:001E2064 + 120 0001:001E2130 121 0001:001E2137 126 0001:001E2138 127 0001:001E213F + 128 0001:001E2144 133 0001:001E2148 134 0001:001E214D 141 0001:001E2150 + 143 0001:001E2173 145 0001:001E218B 146 0001:001E2197 147 0001:001E21A5 + 148 0001:001E21C5 150 0001:001E21DF 152 0001:001E2215 160 0001:001E2220 + 162 0001:001E224C 164 0001:001E2252 165 0001:001E225C 166 0001:001E2260 + 167 0001:001E226E 168 0001:001E2281 169 0001:001E2291 170 0001:001E22A3 + 171 0001:001E22B5 173 0001:001E22C5 174 0001:001E22E6 175 0001:001E2312 + 176 0001:001E2322 179 0001:001E234B 184 0001:001E2354 185 0001:001E235F + 187 0001:001E2390 187 0001:001E2397 + +Line numbers for fOrdersEvntRelease(Orders\fOrdersEvntRelease.pas) segment .text + + 79 0001:001E27EC 80 0001:001E27F3 81 0001:001E280A 82 0001:001E2812 + 85 0001:001E2820 86 0001:001E282E 87 0001:001E2839 89 0001:001E2849 + 90 0001:001E2857 91 0001:001E2865 92 0001:001E2873 93 0001:001E287D + 94 0001:001E2884 95 0001:001E2897 96 0001:001E28AC 99 0001:001E28D3 + 100 0001:001E28D9 101 0001:001E28E0 102 0001:001E28EA 105 0001:001E28F3 + 108 0001:001E2906 109 0001:001E2914 110 0001:001E291C 112 0001:001E292E + 119 0001:001E2934 120 0001:001E2954 121 0001:001E2979 122 0001:001E2985 + 124 0001:001E2997 125 0001:001E29A4 126 0001:001E29AF 127 0001:001E29B6 + 128 0001:001E29BE 129 0001:001E29C9 130 0001:001E29D1 131 0001:001E29D9 + 132 0001:001E29E7 133 0001:001E29EE 134 0001:001E2A00 135 0001:001E2A0A + 136 0001:001E2A1A 137 0001:001E2A36 138 0001:001E2A43 141 0001:001E2A8C + 142 0001:001E2A99 144 0001:001E2ADF 146 0001:001E2B11 147 0001:001E2B2F + 148 0001:001E2B43 149 0001:001E2B5A 150 0001:001E2B72 151 0001:001E2BC1 + 155 0001:001E2CD8 156 0001:001E2CDD 160 0001:001E2CE0 161 0001:001E2CEB + 165 0001:001E2CEC 167 0001:001E2D19 169 0001:001E2D83 176 0001:001E2D8C + 177 0001:001E2DB2 178 0001:001E2DCB 180 0001:001E2DD5 181 0001:001E2E0F + 182 0001:001E2E20 183 0001:001E2E31 184 0001:001E2E3F 185 0001:001E2E64 + 187 0001:001E2E68 188 0001:001E2E8E 190 0001:001E2EAF 191 0001:001E2EBA + 194 0001:001E2F44 199 0001:001E2F7C 200 0001:001E2F9E 202 0001:001E2FAD + 203 0001:001E2FB7 204 0001:001E2FBE 208 0001:001E2FC3 210 0001:001E2FE6 + 211 0001:001E2FED 213 0001:001E2FF2 215 0001:001E2FFF 216 0001:001E3039 + 217 0001:001E304A 218 0001:001E305B 219 0001:001E3069 220 0001:001E308E + 222 0001:001E3092 223 0001:001E30B8 225 0001:001E30D9 226 0001:001E30E4 + 228 0001:001E314C 229 0001:001E3153 232 0001:001E315C 233 0001:001E3163 + 236 0001:001E318C 242 0001:001E320C 243 0001:001E3236 245 0001:001E324A + 246 0001:001E327A 247 0001:001E328B 248 0001:001E329C 249 0001:001E32AA + 250 0001:001E32CF 252 0001:001E32D3 253 0001:001E32F9 255 0001:001E331A + 256 0001:001E3325 258 0001:001E338D 260 0001:001E33C0 264 0001:001E3404 + 265 0001:001E3413 266 0001:001E341A 269 0001:001E341C 270 0001:001E3420 + 271 0001:001E343B 272 0001:001E345E 277 0001:001E3464 278 0001:001E348A + 279 0001:001E3496 280 0001:001E34AA 282 0001:001E34BD 283 0001:001E34CB + 280 0001:001E34CC 283 0001:001E34CF 279 0001:001E34D0 284 0001:001E34D5 + 285 0001:001E34ED 286 0001:001E34F0 287 0001:001E3502 288 0001:001E3512 + 289 0001:001E3523 291 0001:001E3527 292 0001:001E353A 293 0001:001E3554 + 296 0001:001E3569 298 0001:001E3589 299 0001:001E3606 300 0001:001E3661 + 296 0001:001E3662 302 0001:001E368D 305 0001:001E36D8 307 0001:001E36F4 + 309 0001:001E3732 310 0001:001E3742 311 0001:001E374D 313 0001:001E375A + 314 0001:001E3795 315 0001:001E37A8 316 0001:001E37C4 317 0001:001E3802 + 321 0001:001E3820 323 0001:001E3823 324 0001:001E3829 325 0001:001E3830 + 328 0001:001E3834 330 0001:001E384A 331 0001:001E3866 332 0001:001E3890 + 336 0001:001E3894 338 0001:001E3897 339 0001:001E389D 340 0001:001E38A4 + 345 0001:001E38A8 346 0001:001E38B3 350 0001:001E38B4 352 0001:001E38CA + 353 0001:001E38DE 354 0001:001E3902 355 0001:001E3928 359 0001:001E392C + 361 0001:001E392F 362 0001:001E3934 363 0001:001E3937 366 0001:001E393C + 367 0001:001E3942 368 0001:001E3952 369 0001:001E395B 371 0001:001E3990 + 371 0001:001E3997 + +Line numbers for fOrdersComplete(Orders\fOrdersComplete.pas) segment .text + + 37 0001:001E3BDC 38 0001:001E3BE7 39 0001:001E3BEB 40 0001:001E3BF8 + 41 0001:001E3C0F 42 0001:001E3C1D 43 0001:001E3C25 44 0001:001E3C33 + 43 0001:001E3C55 45 0001:001E3C58 46 0001:001E3C63 49 0001:001E3C6F + 50 0001:001E3C99 53 0001:001E3CAA 54 0001:001E3CB2 56 0001:001E3CE1 + 61 0001:001E3CE8 62 0001:001E3CEF 70 0001:001E3CF0 72 0001:001E3D0A + 74 0001:001E3D24 75 0001:001E3D35 77 0001:001E3D37 79 0001:001E3D51 + 80 0001:001E3D62 81 0001:001E3D70 82 0001:001E3D7B 84 0001:001E3D7D + 85 0001:001E3DA4 86 0001:001E3DAB 87 0001:001E3DE4 92 0001:001E3ECC + 93 0001:001E3ED1 95 0001:001E3F04 95 0001:001E3F0B + +Line numbers for fOrdersVerify(Orders\fOrdersVerify.pas) segment .text + + 47 0001:001E41B0 48 0001:001E41BE 49 0001:001E41C2 50 0001:001E41CF + 51 0001:001E41E6 52 0001:001E41F4 53 0001:001E41FC 55 0001:001E4200 + 56 0001:001E4213 58 0001:001E4220 59 0001:001E422E 58 0001:001E4250 + 60 0001:001E4253 61 0001:001E425E 63 0001:001E426A 65 0001:001E4278 + 66 0001:001E427C 67 0001:001E4296 68 0001:001E42AE 63 0001:001E42AF + 69 0001:001E42B2 72 0001:001E42C3 73 0001:001E42CB 75 0001:001E42FA + 80 0001:001E4358 81 0001:001E435F 89 0001:001E4360 91 0001:001E437A + 93 0001:001E4394 94 0001:001E43A5 96 0001:001E43A7 98 0001:001E43C1 + 99 0001:001E43D2 100 0001:001E43E0 101 0001:001E43EB 103 0001:001E43ED + 104 0001:001E4414 105 0001:001E441B 106 0001:001E4454 111 0001:001E4538 + 112 0001:001E453D 121 0001:001E4540 123 0001:001E4563 125 0001:001E457B + 126 0001:001E4587 127 0001:001E4595 128 0001:001E45B5 130 0001:001E45CF + 132 0001:001E4605 140 0001:001E4610 142 0001:001E463C 144 0001:001E4642 + 145 0001:001E464C 146 0001:001E4650 147 0001:001E465E 148 0001:001E4671 + 149 0001:001E4681 150 0001:001E4693 151 0001:001E46A5 153 0001:001E46B5 + 154 0001:001E46D6 155 0001:001E4702 156 0001:001E4712 159 0001:001E473B + 164 0001:001E4744 165 0001:001E474F 167 0001:001E4780 167 0001:001E4787 + +Line numbers for fOrderComment(Orders\fOrderComment.pas) segment .text + + 38 0001:001E49BC 39 0001:001E49D8 40 0001:001E49DC 41 0001:001E49F3 + 42 0001:001E4A01 45 0001:001E4A09 46 0001:001E4A21 47 0001:001E4A38 + 48 0001:001E4A43 50 0001:001E4A4F 51 0001:001E4A69 52 0001:001E4A84 + 56 0001:001E4A95 58 0001:001E4AC5 63 0001:001E4AEC 64 0001:001E4AF3 + 69 0001:001E4AF4 70 0001:001E4AFB 71 0001:001E4B00 76 0001:001E4B04 + 77 0001:001E4B09 81 0001:001E4B0C 83 0001:001E4B19 85 0001:001E4B1F + 87 0001:001E4B25 88 0001:001E4B4A 90 0001:001E4B51 92 0001:001E4B57 + 93 0001:001E4B7C 96 0001:001E4B81 97 0001:001E4B87 98 0001:001E4BAC + 100 0001:001E4BB1 102 0001:001E4BE8 102 0001:001E4BEF + +Line numbers for fRename(fRename.pas) segment .text + + 31 0001:001E4DE8 32 0001:001E4E07 33 0001:001E4E0B 34 0001:001E4E22 + 35 0001:001E4E30 38 0001:001E4E38 39 0001:001E4E48 40 0001:001E4E58 + 41 0001:001E4E66 42 0001:001E4E71 44 0001:001E4E7D 45 0001:001E4E98 + 49 0001:001E4EA9 51 0001:001E4ED9 56 0001:001E4EE0 57 0001:001E4EE7 + 62 0001:001E4EE8 63 0001:001E4EEF 64 0001:001E4EF4 69 0001:001E4EF8 + 70 0001:001E4EFD 72 0001:001E4F30 72 0001:001E4F37 + +Line numbers for fOrderSaveQuick(Orders\fOrderSaveQuick.pas) segment .text + + 65 0001:001E52B8 66 0001:001E52D5 67 0001:001E52D9 68 0001:001E52F0 + 69 0001:001E52FE 72 0001:001E5306 73 0001:001E530F 74 0001:001E5317 + 75 0001:001E5321 76 0001:001E5346 77 0001:001E5367 78 0001:001E5389 + 79 0001:001E539F 80 0001:001E53AF 81 0001:001E53C2 83 0001:001E53CB + 84 0001:001E53D9 86 0001:001E53E5 87 0001:001E53F0 89 0001:001E53FC + 91 0001:001E5400 95 0001:001E5422 97 0001:001E545F 107 0001:001E54B4 + 108 0001:001E54D6 109 0001:001E54DA 110 0001:001E54E4 111 0001:001E54E8 + 113 0001:001E54F7 114 0001:001E5508 116 0001:001E550D 117 0001:001E5524 + 118 0001:001E5532 121 0001:001E553A 123 0001:001E5556 124 0001:001E5560 + 126 0001:001E5564 127 0001:001E5570 129 0001:001E5581 130 0001:001E558B + 131 0001:001E55B0 132 0001:001E55D1 133 0001:001E55F3 134 0001:001E55FE + 135 0001:001E5619 136 0001:001E562A 138 0001:001E5633 139 0001:001E5640 + 141 0001:001E5656 142 0001:001E5665 143 0001:001E5671 144 0001:001E5696 + 145 0001:001E56A9 147 0001:001E56B5 148 0001:001E56C0 150 0001:001E56D0 + 152 0001:001E56D4 154 0001:001E56F2 155 0001:001E56F9 156 0001:001E571C + 155 0001:001E5734 157 0001:001E5737 160 0001:001E578C 161 0001:001E5799 + 163 0001:001E57B6 165 0001:001E57CC 168 0001:001E57E9 170 0001:001E585D + 175 0001:001E5974 177 0001:001E5992 178 0001:001E59AD 179 0001:001E59B4 + 180 0001:001E59D3 179 0001:001E59EA 181 0001:001E59ED 182 0001:001E5A5C + 187 0001:001E5A70 189 0001:001E5A73 191 0001:001E5A79 192 0001:001E5A86 + 193 0001:001E5A93 194 0001:001E5AAD 196 0001:001E5AB9 201 0001:001E5AC0 + 203 0001:001E5AC3 205 0001:001E5AC9 206 0001:001E5AE8 207 0001:001E5AF5 + 208 0001:001E5B0F 210 0001:001E5B1B 215 0001:001E5B20 217 0001:001E5B3A + 219 0001:001E5B40 220 0001:001E5B52 221 0001:001E5B80 222 0001:001E5B91 + 224 0001:001E5C16 227 0001:001E5C44 229 0001:001E5C5A 231 0001:001E5C60 + 232 0001:001E5C6E 234 0001:001E5C7F 235 0001:001E5C90 237 0001:001E5C92 + 238 0001:001E5CCE 240 0001:001E5D08 245 0001:001E5DB4 246 0001:001E5DBB + 249 0001:001E5DBC 251 0001:001E5DD2 253 0001:001E5DF5 254 0001:001E5E06 + 256 0001:001E5E08 257 0001:001E5E0F 258 0001:001E5E33 263 0001:001E5EA0 + 264 0001:001E5EA5 269 0001:001E5EA8 270 0001:001E5EB1 275 0001:001E5EB4 + 276 0001:001E5EBD 278 0001:001E5EF0 278 0001:001E5EF7 + +Line numbers for fDateRange(fDateRange.pas) segment .text + + 43 0001:001E6140 44 0001:001E6169 45 0001:001E616D 46 0001:001E6184 + 47 0001:001E6192 50 0001:001E619A 51 0001:001E61B6 52 0001:001E61C4 + 53 0001:001E61DB 54 0001:001E61F2 55 0001:001E6209 56 0001:001E6219 + 57 0001:001E6229 58 0001:001E6234 60 0001:001E6240 61 0001:001E625B + 62 0001:001E6276 66 0001:001E6287 68 0001:001E62BC 73 0001:001E62C8 + 74 0001:001E62CF 83 0001:001E62D0 85 0001:001E62EC 86 0001:001E62F4 + 87 0001:001E6302 88 0001:001E6328 90 0001:001E632E 91 0001:001E6338 + 92 0001:001E635E 93 0001:001E6392 95 0001:001E639F 97 0001:001E63AB + 98 0001:001E63BA 108 0001:001E63BC 109 0001:001E63C3 110 0001:001E63F4 + 115 0001:001E64B8 116 0001:001E64BD 118 0001:001E64F0 118 0001:001E64F7 + +Line numbers for fRenewOutMed(fRenewOutMed.pas) segment .text + + 42 0001:001E6760 43 0001:001E6787 44 0001:001E678B 45 0001:001E67A2 + 46 0001:001E67B0 47 0001:001E67B8 48 0001:001E67D3 49 0001:001E67EE + 50 0001:001E67FE 51 0001:001E6809 53 0001:001E6815 54 0001:001E6819 + 55 0001:001E6836 58 0001:001E685E 60 0001:001E689E 63 0001:001E68A8 + 65 0001:001E68A9 66 0001:001E68B0 68 0001:001E68BC 69 0001:001E68C8 + 70 0001:001E68D4 72 0001:001E68E0 77 0001:001E6920 79 0001:001E6936 + 80 0001:001E694F 82 0001:001E6958 83 0001:001E6969 85 0001:001E696B + 86 0001:001E6972 87 0001:001E6996 92 0001:001E69DC 93 0001:001E69E1 + 95 0001:001E6A14 95 0001:001E6A1B + +Line numbers for fOrdersRenew(Orders\fOrdersRenew.pas) segment .text + + 60 0001:001E6CE4 61 0001:001E6CE7 62 0001:001E6CFF 63 0001:001E6D0D + 64 0001:001E6D1B 65 0001:001E6D29 67 0001:001E6D30 90 0001:001E6D94 + 91 0001:001E6D9E 92 0001:001E6DA0 93 0001:001E6DD7 94 0001:001E6DDB + 95 0001:001E6DDF 97 0001:001E6DE7 99 0001:001E6DF6 100 0001:001E6E05 + 101 0001:001E6E14 103 0001:001E6E2B 104 0001:001E6E39 105 0001:001E6E47 + 106 0001:001E6E4F 108 0001:001E6E57 109 0001:001E6E60 111 0001:001E6E72 + 112 0001:001E6E7D 114 0001:001E6E88 116 0001:001E6E98 118 0001:001E6EA3 + 120 0001:001E6EB2 121 0001:001E6ED1 123 0001:001E6EDB 126 0001:001E6EF7 + 127 0001:001E6F11 109 0001:001E6F12 129 0001:001E6F1B 130 0001:001E6F29 + 132 0001:001E6F35 134 0001:001E6F41 135 0001:001E6F54 137 0001:001E6F78 + 138 0001:001E6F89 140 0001:001E6FA3 141 0001:001E6FAB 132 0001:001E6FAE + 143 0001:001E6FB4 144 0001:001E6FC0 146 0001:001E6FDA 147 0001:001E6FE7 + 148 0001:001E6FF5 149 0001:001E6FFF 150 0001:001E7018 151 0001:001E701E + 153 0001:001E7026 154 0001:001E702C 156 0001:001E7062 157 0001:001E706B + 160 0001:001E7090 161 0001:001E70A9 144 0001:001E70AC 163 0001:001E70B5 + 164 0001:001E70C4 166 0001:001E70CE 168 0001:001E70D9 170 0001:001E70E9 + 171 0001:001E70F5 173 0001:001E7108 174 0001:001E7110 175 0001:001E711D + 178 0001:001E7128 179 0001:001E7135 181 0001:001E713A 182 0001:001E7145 + 183 0001:001E7154 184 0001:001E7161 186 0001:001E716E 188 0001:001E7183 + 189 0001:001E718D 190 0001:001E7198 191 0001:001E719F 194 0001:001E71BA + 196 0001:001E71BC 198 0001:001E71CE 199 0001:001E71DF 202 0001:001E71E4 + 204 0001:001E71F0 205 0001:001E71F9 206 0001:001E7228 207 0001:001E722A + 210 0001:001E7239 213 0001:001E723F 215 0001:001E724B 216 0001:001E724F + 218 0001:001E7270 220 0001:001E7286 221 0001:001E7296 226 0001:001E72B5 + 227 0001:001E72B9 229 0001:001E72D7 231 0001:001E72EA 232 0001:001E72FA + 234 0001:001E7317 171 0001:001E731A 236 0001:001E7324 241 0001:001E732A + 242 0001:001E7333 243 0001:001E7346 242 0001:001E735B 246 0001:001E736D + 248 0001:001E737B 250 0001:001E7390 251 0001:001E739C 252 0001:001E73A2 + 253 0001:001E73A9 254 0001:001E73B1 248 0001:001E73B4 255 0001:001E73B9 + 257 0001:001E7408 260 0001:001E755C 262 0001:001E755F 263 0001:001E7571 + 264 0001:001E7578 273 0001:001E757C 275 0001:001E759C 276 0001:001E75AA + 278 0001:001E75AE 279 0001:001E75B4 280 0001:001E75D6 281 0001:001E75E7 + 282 0001:001E75F8 283 0001:001E7606 285 0001:001E7637 293 0001:001E766C + 295 0001:001E7696 296 0001:001E76A9 298 0001:001E76B1 299 0001:001E76B7 + 300 0001:001E76C0 301 0001:001E76E4 302 0001:001E76EC 303 0001:001E7704 + 304 0001:001E771F 306 0001:001E7757 311 0001:001E778C 313 0001:001E7790 + 315 0001:001E7796 316 0001:001E77A8 317 0001:001E77C5 318 0001:001E77D8 + 319 0001:001E77EA 320 0001:001E77FC 322 0001:001E780C 323 0001:001E781D + 324 0001:001E782C 326 0001:001E7839 334 0001:001E7894 336 0001:001E78B6 + 338 0001:001E78BC 339 0001:001E78CE 340 0001:001E78E7 341 0001:001E78ED + 343 0001:001E7907 345 0001:001E7922 346 0001:001E7938 347 0001:001E7943 + 348 0001:001E7952 349 0001:001E7968 350 0001:001E7973 351 0001:001E798B + 352 0001:001E798F 354 0001:001E79DD 355 0001:001E79EB 356 0001:001E7A01 + 357 0001:001E7A0C 358 0001:001E7A19 359 0001:001E7A1D 361 0001:001E7A7B + 362 0001:001E7AA3 363 0001:001E7AB0 364 0001:001E7AB4 366 0001:001E7B0D + 367 0001:001E7B23 369 0001:001E7B30 373 0001:001E7B54 374 0001:001E7B81 + 379 0001:001E7C54 380 0001:001E7C5B 381 0001:001E7C60 386 0001:001E7C64 + 387 0001:001E7C69 393 0001:001E7C6C 394 0001:001E7C8E 395 0001:001E7C93 + 396 0001:001E7C98 397 0001:001E7C9D 398 0001:001E7CBA 399 0001:001E7CF6 + 406 0001:001E7D00 407 0001:001E7D1C 408 0001:001E7D2A 409 0001:001E7D34 + 410 0001:001E7D47 411 0001:001E7D51 412 0001:001E7D5F 413 0001:001E7D8C + 419 0001:001E7D94 420 0001:001E7D99 425 0001:001E7D9C 426 0001:001E7DA1 + 431 0001:001E7DA4 432 0001:001E7DB2 435 0001:001E7DE4 435 0001:001E7DEB + +Line numbers for fODReleaseEvent(Orders\fODReleaseEvent.pas) segment .text + + 66 0001:001E80A4 67 0001:001E80B3 68 0001:001E80BB 69 0001:001E80CC + 71 0001:001E80E8 72 0001:001E80F3 73 0001:001E80F5 68 0001:001E80F6 + 74 0001:001E80F9 76 0001:001E8100 77 0001:001E8124 78 0001:001E813A + 79 0001:001E8148 80 0001:001E817B 81 0001:001E818A 83 0001:001E819F + 84 0001:001E81AC 85 0001:001E81B3 86 0001:001E81C0 90 0001:001E820E + 91 0001:001E821B 94 0001:001E8266 96 0001:001E829D 98 0001:001E82B9 + 100 0001:001E82CC 101 0001:001E82D7 102 0001:001E82EC 103 0001:001E82FA + 98 0001:001E82FD 104 0001:001E8300 105 0001:001E830A 107 0001:001E8317 + 108 0001:001E8326 110 0001:001E8346 111 0001:001E8358 112 0001:001E8377 + 108 0001:001E837A 113 0001:001E837D 114 0001:001E8387 115 0001:001E838F + 116 0001:001E8397 118 0001:001E83C2 120 0001:001E83F8 121 0001:001E8431 + 123 0001:001E847E 116 0001:001E8481 124 0001:001E8488 126 0001:001E8494 + 128 0001:001E84B4 130 0001:001E84C1 131 0001:001E84CC 132 0001:001E84DD + 134 0001:001E84E4 126 0001:001E84E7 135 0001:001E84EA 136 0001:001E84F1 + 137 0001:001E84F9 138 0001:001E8525 140 0001:001E852E 141 0001:001E853A + 143 0001:001E8546 144 0001:001E854D 146 0001:001E8551 149 0001:001E856E + 160 0001:001E85AE 164 0001:001E8760 165 0001:001E8765 168 0001:001E8768 + 170 0001:001E876B 171 0001:001E8772 172 0001:001E877C 173 0001:001E8783 + 174 0001:001E8793 175 0001:001E879E 176 0001:001E87AC 177 0001:001E87BC + 178 0001:001E87CA 184 0001:001E87CC 185 0001:001E87D2 186 0001:001E87D4 + 188 0001:001E87EF 190 0001:001E8800 191 0001:001E8802 193 0001:001E8804 + 186 0001:001E8805 194 0001:001E8808 196 0001:001E880C 197 0001:001E8816 + 199 0001:001E8818 200 0001:001E881F 201 0001:001E8826 206 0001:001E885C + 207 0001:001E886D 208 0001:001E887E 215 0001:001E8880 217 0001:001E88A8 + 218 0001:001E88B2 220 0001:001E88CB 221 0001:001E88EC 222 0001:001E88F9 + 223 0001:001E8919 224 0001:001E8927 226 0001:001E8957 233 0001:001E8960 + 235 0001:001E898D 236 0001:001E8995 237 0001:001E89A1 239 0001:001E89A7 + 240 0001:001E89B5 241 0001:001E89C8 242 0001:001E89D9 243 0001:001E89EB + 245 0001:001E89FA 246 0001:001E8A1A 249 0001:001E8A6B 255 0001:001E8A74 + 257 0001:001E8A95 258 0001:001E8AB5 260 0001:001E8AB9 262 0001:001E8AC5 + 263 0001:001E8AD1 264 0001:001E8B05 265 0001:001E8B0B 269 0001:001E8B2A + 270 0001:001E8B3A 271 0001:001E8B44 273 0001:001E8B72 275 0001:001E8BAC + 275 0001:001E8BB3 + +Line numbers for fODAuto(Orders\fODAuto.pas) segment .text + + 30 0001:001E8D50 32 0001:001E8D55 42 0001:001E8D58 43 0001:001E8D7D + 44 0001:001E8D87 45 0001:001E8D8F 46 0001:001E8D9F 47 0001:001E8DB8 + 48 0001:001E8DC5 49 0001:001E8DD4 51 0001:001E8DE8 52 0001:001E8E11 + 53 0001:001E8E1D 54 0001:001E8E4D 55 0001:001E8E7D 57 0001:001E8E7F + 58 0001:001E8E83 60 0001:001E8E9A 62 0001:001E8EA7 63 0001:001E8EAD + 66 0001:001E8ED0 67 0001:001E8EDF 68 0001:001E8EED 69 0001:001E8F11 + 70 0001:001E8F19 72 0001:001E8F4F 76 0001:001E8F8E 81 0001:001E8FE8 + 82 0001:001E9018 83 0001:001E9023 84 0001:001E902A 85 0001:001E9034 + 86 0001:001E904C 87 0001:001E905A 88 0001:001E9068 89 0001:001E909A + 91 0001:001E90F8 91 0001:001E90FF + +Line numbers for fOMVerify(Orders\fOMVerify.pas) segment .text + + 44 0001:001E9334 45 0001:001E935C 46 0001:001E9360 48 0001:001E937A + 50 0001:001E9380 52 0001:001E9392 54 0001:001E93CB 55 0001:001E93D8 + 56 0001:001E93DC 58 0001:001E93DE 50 0001:001E93DF 59 0001:001E93E2 + 46 0001:001E93E5 60 0001:001E940F 62 0001:001E9418 63 0001:001E9428 + 64 0001:001E9436 65 0001:001E9442 66 0001:001E944E 67 0001:001E945A + 68 0001:001E9466 69 0001:001E9472 70 0001:001E9489 71 0001:001E9497 + 72 0001:001E949F 74 0001:001E94A3 75 0001:001E94B2 77 0001:001E94C6 + 78 0001:001E94D0 79 0001:001E94D4 84 0001:001E94F5 85 0001:001E9530 + 86 0001:001E9538 87 0001:001E9545 88 0001:001E9565 89 0001:001E9570 + 92 0001:001E958B 94 0001:001E959B 100 0001:001E95FC 101 0001:001E9606 + 106 0001:001E9608 107 0001:001E9612 108 0001:001E9617 113 0001:001E9618 + 114 0001:001E9620 115 0001:001E9625 120 0001:001E9628 121 0001:001E9632 + 122 0001:001E9637 128 0001:001E9638 129 0001:001E963D 133 0001:001E9640 + 135 0001:001E964D 137 0001:001E9653 139 0001:001E9659 140 0001:001E967E + 142 0001:001E9685 144 0001:001E968B 145 0001:001E96B0 148 0001:001E96B5 + 149 0001:001E96BB 150 0001:001E96E0 152 0001:001E96E5 154 0001:001E971C + 154 0001:001E9723 + +Line numbers for fOMNavA(Orders\fOMNavA.pas) segment .text + + 112 0001:001E9AF8 113 0001:001E9AFD 115 0001:001E9B03 117 0001:001E9B22 + 118 0001:001E9B2F 119 0001:001E9B3C 115 0001:001E9B3D 119 0001:001E9B40 + 115 0001:001E9B41 120 0001:001E9B46 121 0001:001E9B52 122 0001:001E9B5E + 124 0001:001E9B6B 131 0001:001E9B74 132 0001:001E9B7E 133 0001:001E9B80 + 136 0001:001E9B84 137 0001:001E9B8F 138 0001:001E9B99 134 0001:001E9B9A + 140 0001:001E9BA9 142 0001:001E9BAD 143 0001:001E9BBB 144 0001:001E9BC1 + 145 0001:001E9BD0 146 0001:001E9BDA 147 0001:001E9BE7 149 0001:001E9BEB + 157 0001:001E9BF4 158 0001:001E9BFD 159 0001:001E9C04 160 0001:001E9C13 + 161 0001:001E9C1B 162 0001:001E9C29 163 0001:001E9C37 164 0001:001E9C45 + 165 0001:001E9C6B 167 0001:001E9C86 168 0001:001E9C94 170 0001:001E9C9A + 171 0001:001E9CB1 173 0001:001E9CBF 174 0001:001E9CCF 177 0001:001E9CDD + 165 0001:001E9CE0 178 0001:001E9CE3 179 0001:001E9CF8 180 0001:001E9D15 + 186 0001:001E9D1C 187 0001:001E9D2A 188 0001:001E9D38 189 0001:001E9D50 + 190 0001:001E9D55 191 0001:001E9D5B 192 0001:001E9D61 193 0001:001E9D66 + 194 0001:001E9D73 195 0001:001E9D79 196 0001:001E9D80 197 0001:001E9D87 + 198 0001:001E9D92 199 0001:001E9D9B 206 0001:001E9DA4 207 0001:001E9DA8 + 208 0001:001E9DBB 209 0001:001E9DCD 210 0001:001E9DE6 211 0001:001E9E14 + 212 0001:001E9E1F 217 0001:001E9E44 218 0001:001E9E48 219 0001:001E9E59 + 220 0001:001E9E5C 221 0001:001E9E6B 222 0001:001E9E72 223 0001:001E9E79 + 224 0001:001E9E83 229 0001:001E9E88 230 0001:001E9E8C 231 0001:001E9E9D + 232 0001:001E9EA0 233 0001:001E9EAF 234 0001:001E9EB6 235 0001:001E9EBD + 236 0001:001E9EC8 241 0001:001E9ECC 242 0001:001E9ED1 243 0001:001E9EDE + 244 0001:001E9EF1 245 0001:001E9F00 246 0001:001E9F13 247 0001:001E9F2B + 248 0001:001E9F43 249 0001:001E9F4C 250 0001:001E9F53 252 0001:001E9F5F + 253 0001:001E9F6E 254 0001:001E9F7D 255 0001:001E9F84 257 0001:001E9F8B + 262 0001:001E9F90 263 0001:001E9F94 264 0001:001E9F9E 265 0001:001E9FA8 + 266 0001:001E9FB3 267 0001:001E9FC5 268 0001:001E9FD7 269 0001:001E9FE9 + 270 0001:001E9FFD 271 0001:001EA00F 272 0001:001EA017 273 0001:001EA01E + 274 0001:001EA02E 277 0001:001EA048 278 0001:001EA04B 279 0001:001EA052 + 281 0001:001EA062 285 0001:001EA064 286 0001:001EA067 287 0001:001EA070 + 288 0001:001EA07A 295 0001:001EA07C 296 0001:001EA085 297 0001:001EA095 + 298 0001:001EA09C 300 0001:001EA0B6 301 0001:001EA0C6 303 0001:001EA0D4 + 304 0001:001EA0DE 305 0001:001EA0E3 301 0001:001EA0E4 306 0001:001EA0E7 + 307 0001:001EA0EF 308 0001:001EA0F7 309 0001:001EA0FE 298 0001:001EA101 + 310 0001:001EA107 312 0001:001EA112 314 0001:001EA11D 315 0001:001EA128 + 316 0001:001EA133 317 0001:001EA138 319 0001:001EA165 320 0001:001EA180 + 325 0001:001EA188 330 0001:001EA18C 333 0001:001EA196 334 0001:001EA1A5 + 335 0001:001EA1BD 336 0001:001EA1D5 337 0001:001EA1DE 338 0001:001EA1E5 + 331 0001:001EA1F4 340 0001:001EA200 341 0001:001EA207 342 0001:001EA20F + 343 0001:001EA212 346 0001:001EA218 347 0001:001EA24B 348 0001:001EA282 + 360 0001:001EA28C 363 0001:001EA2BF 365 0001:001EA2D8 366 0001:001EA2EC + 367 0001:001EA2FF 369 0001:001EA303 370 0001:001EA311 371 0001:001EA31E + 373 0001:001EA324 374 0001:001EA33B 375 0001:001EA348 377 0001:001EA360 + 378 0001:001EA366 380 0001:001EA37E 381 0001:001EA38C 384 0001:001EA3AF + 385 0001:001EA3C8 386 0001:001EA3D2 387 0001:001EA3DD 388 0001:001EA3E3 + 389 0001:001EA3EC 390 0001:001EA3F2 391 0001:001EA3F9 392 0001:001EA3FF + 393 0001:001EA402 394 0001:001EA408 395 0001:001EA41D 397 0001:001EA446 + 398 0001:001EA473 399 0001:001EA47D 400 0001:001EA497 402 0001:001EA4A1 + 403 0001:001EA4AE 404 0001:001EA4D3 405 0001:001EA4E1 406 0001:001EA4EE + 407 0001:001EA4FB 408 0001:001EA520 409 0001:001EA52D 412 0001:001EA564 + 417 0001:001EA588 418 0001:001EA58B 419 0001:001EA58F 420 0001:001EA59A + 421 0001:001EA5A1 422 0001:001EA5AE 430 0001:001EA5B0 431 0001:001EA5CE + 432 0001:001EA5D8 433 0001:001EA5E8 434 0001:001EA5FB 435 0001:001EA60A + 436 0001:001EA618 438 0001:001EA62C 439 0001:001EA63E 441 0001:001EA642 + 442 0001:001EA678 444 0001:001EA683 436 0001:001EA684 445 0001:001EA687 + 447 0001:001EA6BA 448 0001:001EA6C8 450 0001:001EA702 454 0001:001EA718 + 456 0001:001EA722 458 0001:001EA73B 460 0001:001EA745 463 0001:001EA781 + 464 0001:001EA788 465 0001:001EA790 466 0001:001EA7A2 467 0001:001EA7AD + 471 0001:001EA7B5 472 0001:001EA7CE 473 0001:001EA7E2 475 0001:001EA7EC + 476 0001:001EA7F0 477 0001:001EA7F6 478 0001:001EA801 479 0001:001EA80A + 480 0001:001EA812 482 0001:001EA817 484 0001:001EA821 487 0001:001EA84E + 488 0001:001EA855 489 0001:001EA85D 490 0001:001EA86F 491 0001:001EA87A + 495 0001:001EA882 497 0001:001EA888 498 0001:001EA891 500 0001:001EA896 + 502 0001:001EA89C 503 0001:001EA8A5 505 0001:001EA8AA 509 0001:001EA8B4 + 510 0001:001EA8B7 512 0001:001EA8BD 514 0001:001EA8D4 520 0001:001EA8D8 + 522 0001:001EA8E2 524 0001:001EA8E8 525 0001:001EA8F3 527 0001:001EA8F8 + 529 0001:001EA902 532 0001:001EA92F 533 0001:001EA936 534 0001:001EA93E + 535 0001:001EA950 536 0001:001EA95B 540 0001:001EA963 542 0001:001EA969 + 543 0001:001EA97E 545 0001:001EA9AC 546 0001:001EA9B3 548 0001:001EA9C6 + 549 0001:001EA9DE 552 0001:001EA9EC 558 0001:001EA9F8 559 0001:001EAA01 + 560 0001:001EAA1A 561 0001:001EAA30 563 0001:001EAA5E 564 0001:001EAA67 + 565 0001:001EAA70 566 0001:001EAA7E 568 0001:001EAA8C 572 0001:001EAA94 + 573 0001:001EAA9E 574 0001:001EAAA6 576 0001:001EAAAF 577 0001:001EAABA + 580 0001:001EAABF 583 0001:001EAAC6 585 0001:001EAAD9 587 0001:001EAAE2 + 588 0001:001EAAE9 589 0001:001EAAF6 591 0001:001EAAFF 593 0001:001EAB0C + 594 0001:001EAB13 595 0001:001EAB1B 597 0001:001EAB25 600 0001:001EAB52 + 601 0001:001EAB59 602 0001:001EAB61 603 0001:001EAB73 604 0001:001EAB7E + 607 0001:001EAB86 610 0001:001EAB90 611 0001:001EAB93 612 0001:001EAB9A + 613 0001:001EABA4 614 0001:001EABAE 619 0001:001EABB0 620 0001:001EABC7 + 621 0001:001EABC9 622 0001:001EABD3 624 0001:001EABDF 625 0001:001EABE1 + 627 0001:001EAC0F 632 0001:001EAC2C 633 0001:001EAC4E 634 0001:001EAC56 + 636 0001:001EAC9A 637 0001:001EACD9 640 0001:001EACFD 642 0001:001EAD0F + 645 0001:001EAD22 646 0001:001EAD25 647 0001:001EAD4D 649 0001:001EAD55 + 650 0001:001EAD6E 652 0001:001EAD7A 653 0001:001EAD83 654 0001:001EAD8A + 655 0001:001EAD91 656 0001:001EAD9C 657 0001:001EADA2 661 0001:001EADCF + 662 0001:001EADF0 665 0001:001EADFC 666 0001:001EAE05 667 0001:001EAE26 + 669 0001:001EAE31 671 0001:001EAE76 677 0001:001EAEEC 678 0001:001EAEF8 + 679 0001:001EAEFC 680 0001:001EAF29 681 0001:001EAF49 682 0001:001EAF50 + 688 0001:001EAF58 689 0001:001EAF64 691 0001:001EAF6D 692 0001:001EAF88 + 695 0001:001EAFBC 699 0001:001EAFC4 700 0001:001EAFC7 701 0001:001EAFCE + 704 0001:001EAFD4 705 0001:001EAFD8 706 0001:001EAFFE 707 0001:001EB009 + 710 0001:001EB00C 711 0001:001EB00F 712 0001:001EB016 713 0001:001EB02A + 715 0001:001EB05C 715 0001:001EB063 + +Line numbers for fOCSession(Orders\fOCSession.pas) segment .text + + 60 0001:001EB384 61 0001:001EB399 62 0001:001EB3A3 63 0001:001EB3B2 + 64 0001:001EB3D8 67 0001:001EB3DC 68 0001:001EB3E7 69 0001:001EB3F7 + 70 0001:001EB3FF 71 0001:001EB416 78 0001:001EB41C 79 0001:001EB43D + 80 0001:001EB44C 81 0001:001EB45A 83 0001:001EB468 84 0001:001EB473 + 85 0001:001EB48E 81 0001:001EB48F 86 0001:001EB494 87 0001:001EB49C + 89 0001:001EB4A5 90 0001:001EB4B0 92 0001:001EB4CF 93 0001:001EB4E3 + 95 0001:001EB4EC 87 0001:001EB4ED 97 0001:001EB4FF 99 0001:001EB531 + 110 0001:001EB544 111 0001:001EB567 112 0001:001EB576 113 0001:001EB584 + 114 0001:001EB58E 115 0001:001EB599 116 0001:001EB5A0 118 0001:001EB5B0 + 119 0001:001EB5C7 120 0001:001EB5D5 121 0001:001EB5DD 122 0001:001EB5EE + 123 0001:001EB5F6 125 0001:001EB60E 126 0001:001EB62F 128 0001:001EB63C + 129 0001:001EB64D 130 0001:001EB659 132 0001:001EB664 123 0001:001EB667 + 133 0001:001EB66C 135 0001:001EB688 136 0001:001EB697 137 0001:001EB6A2 + 138 0001:001EB6AD 139 0001:001EB6C4 141 0001:001EB6F1 142 0001:001EB71E + 143 0001:001EB756 138 0001:001EB757 146 0001:001EB760 147 0001:001EB777 + 133 0001:001EB77A 148 0001:001EB783 149 0001:001EB78F 150 0001:001EB79B + 151 0001:001EB7A3 152 0001:001EB7AA 153 0001:001EB7BE 155 0001:001EB7D6 + 156 0001:001EB808 160 0001:001EB825 162 0001:001EB86C 168 0001:001EB89C + 169 0001:001EB8BE 170 0001:001EB8C8 172 0001:001EB8E0 173 0001:001EB8F0 + 174 0001:001EB905 173 0001:001EB942 175 0001:001EB945 170 0001:001EB948 + 176 0001:001EB94D 177 0001:001EB964 179 0001:001EB99D 187 0001:001EB9B0 + 190 0001:001EB9D1 192 0001:001EB9D7 193 0001:001EB9E8 194 0001:001EB9F8 + 195 0001:001EBA05 196 0001:001EBA09 197 0001:001EBA3E 199 0001:001EBA41 + 201 0001:001EBA5C 202 0001:001EBA69 203 0001:001EBA6D 204 0001:001EBA91 + 205 0001:001EBABD 206 0001:001EBAC0 199 0001:001EBAC3 208 0001:001EBAC8 + 209 0001:001EBAD3 210 0001:001EBB0C 218 0001:001EBB14 221 0001:001EBB45 + 223 0001:001EBB4E 224 0001:001EBB5C 225 0001:001EBB6A 226 0001:001EBB77 + 227 0001:001EBBA9 228 0001:001EBBAD 229 0001:001EBBB0 231 0001:001EBBC7 + 232 0001:001EBBE7 234 0001:001EBBF1 236 0001:001EBC20 237 0001:001EBC37 + 238 0001:001EBC4D 240 0001:001EBC66 242 0001:001EBC7C 243 0001:001EBCAB + 244 0001:001EBCAE 229 0001:001EBCAF 247 0001:001EBCE2 254 0001:001EBCFC + 256 0001:001EBD1B 258 0001:001EBD4F 259 0001:001EBD5F 260 0001:001EBD6D + 262 0001:001EBD7D 263 0001:001EBD90 262 0001:001EBDCE 264 0001:001EBDD3 + 265 0001:001EBDE6 264 0001:001EBE24 266 0001:001EBE29 267 0001:001EBE31 + 268 0001:001EBE3E 270 0001:001EBE52 256 0001:001EBE55 271 0001:001EBE5F + 272 0001:001EBE9B 275 0001:001EBEA4 277 0001:001EBEBE 280 0001:001EBEFC + 281 0001:001EBF0D 283 0001:001EBF0F 284 0001:001EBF19 285 0001:001EBF35 + 286 0001:001EBF3C 287 0001:001EBF65 293 0001:001EBFF8 294 0001:001EBFFD + 299 0001:001EC000 300 0001:001EC005 306 0001:001EC008 307 0001:001EC00D + 311 0001:001EC010 314 0001:001EC013 315 0001:001EC020 317 0001:001EC054 + 317 0001:001EC05B + +Line numbers for fMedCopy(fMedCopy.pas) segment .text + + 73 0001:001EC3EC 74 0001:001EC411 75 0001:001EC41D 77 0001:001EC43E + 79 0001:001EC47A 80 0001:001EC491 82 0001:001EC493 75 0001:001EC494 + 83 0001:001EC4B9 88 0001:001EC4C0 89 0001:001EC501 90 0001:001EC50C + 91 0001:001EC51A 92 0001:001EC528 93 0001:001EC53F 94 0001:001EC54D + 95 0001:001EC58D 97 0001:001EC594 98 0001:001EC5C3 100 0001:001EC5C8 + 101 0001:001EC5CC 102 0001:001EC5CF 103 0001:001EC5D4 104 0001:001EC5DC + 106 0001:001EC5E1 107 0001:001EC5E5 108 0001:001EC5FE 109 0001:001EC60C + 111 0001:001EC61E 112 0001:001EC633 114 0001:001EC645 115 0001:001EC64F + 116 0001:001EC674 117 0001:001EC680 119 0001:001EC692 120 0001:001EC69F + 121 0001:001EC6AC 124 0001:001EC6FA 125 0001:001EC707 127 0001:001EC74D + 129 0001:001EC77F 130 0001:001EC790 131 0001:001EC7A0 132 0001:001EC7AF + 133 0001:001EC7DA 134 0001:001EC805 136 0001:001EC80A 137 0001:001EC81C + 139 0001:001EC842 140 0001:001EC84F 142 0001:001EC874 143 0001:001EC890 + 144 0001:001EC89A 145 0001:001EC8A2 146 0001:001EC8BB 148 0001:001EC8C4 + 150 0001:001EC8F1 151 0001:001EC92A 152 0001:001EC94C 153 0001:001EC96E + 155 0001:001EC99B 156 0001:001EC9B9 158 0001:001EC9C1 159 0001:001EC9F3 + 160 0001:001EC9F8 161 0001:001ECA0F 163 0001:001ECA1C 164 0001:001ECA24 + 165 0001:001ECA2A 167 0001:001ECA40 168 0001:001ECA46 170 0001:001ECA4F + 171 0001:001ECA5D 174 0001:001ECA6D 176 0001:001ECA80 177 0001:001ECA96 + 179 0001:001ECAA4 180 0001:001ECABB 181 0001:001ECAC9 182 0001:001ECACD + 184 0001:001ECAD7 186 0001:001ECAFF 187 0001:001ECB05 188 0001:001ECB24 + 189 0001:001ECB3B 190 0001:001ECB4F 192 0001:001ECB73 193 0001:001ECB7B + 194 0001:001ECB7F 198 0001:001ECB8E 199 0001:001ECB96 200 0001:001ECBA3 + 203 0001:001ECBA7 205 0001:001ECBBF 206 0001:001ECBCD 207 0001:001ECBDB + 209 0001:001ECBE9 212 0001:001ECBFA 213 0001:001ECC0A 215 0001:001ECC41 + 218 0001:001ECDBC 220 0001:001ECDBF 221 0001:001ECDC6 222 0001:001ECDCD + 223 0001:001ECDD5 224 0001:001ECDE5 225 0001:001ECDF2 226 0001:001ECDFF + 228 0001:001ECE11 229 0001:001ECE1D 231 0001:001ECE38 233 0001:001ECE4B + 238 0001:001ECE50 240 0001:001ECE6F 241 0001:001ECE78 243 0001:001ECEA2 + 244 0001:001ECEB3 246 0001:001ECEB8 248 0001:001ECEE9 249 0001:001ECEF1 + 250 0001:001ECEF8 251 0001:001ECF00 253 0001:001ECF10 255 0001:001ECF41 + 256 0001:001ECF48 257 0001:001ECF50 259 0001:001ECF62 260 0001:001ECF69 + 261 0001:001ECF92 266 0001:001ED004 267 0001:001ED009 274 0001:001ED00C + 276 0001:001ED024 277 0001:001ED060 278 0001:001ED06B 280 0001:001ED084 + 281 0001:001ED08E 284 0001:001ED0A0 285 0001:001ED0B3 287 0001:001ED0E2 + 290 0001:001ED1CC 292 0001:001ED1CF 293 0001:001ED1DC 294 0001:001ED1EF + 297 0001:001ED1F4 299 0001:001ED1F7 300 0001:001ED202 301 0001:001ED218 + 305 0001:001ED21C 306 0001:001ED229 309 0001:001ED22C 310 0001:001ED24A + 311 0001:001ED279 312 0001:001ED2AA 315 0001:001ED2B0 316 0001:001ED2B3 + 317 0001:001ED2BE 319 0001:001ED2CD 320 0001:001ED2D4 323 0001:001ED2DB + 327 0001:001ED2E0 328 0001:001ED2E3 329 0001:001ED2E9 330 0001:001ED2F0 + 332 0001:001ED324 332 0001:001ED32B + +Line numbers for fOrdersCopy(Orders\fOrdersCopy.pas) segment .text + + 64 0001:001ED6B8 65 0001:001ED6DD 66 0001:001ED6E9 68 0001:001ED70A + 70 0001:001ED746 71 0001:001ED75D 73 0001:001ED75F 66 0001:001ED760 + 74 0001:001ED785 79 0001:001ED78C 80 0001:001ED7CD 81 0001:001ED7D8 + 82 0001:001ED7E6 83 0001:001ED7F4 84 0001:001ED80B 85 0001:001ED819 + 86 0001:001ED859 92 0001:001ED860 93 0001:001ED887 94 0001:001ED88C + 96 0001:001ED8B1 97 0001:001ED8E0 99 0001:001ED8EF 100 0001:001ED92B + 102 0001:001ED92D 94 0001:001ED92E 103 0001:001ED95E 105 0001:001ED968 + 106 0001:001ED9A2 107 0001:001ED9A6 108 0001:001ED9AA 109 0001:001ED9AF + 110 0001:001ED9B7 111 0001:001ED9BC 112 0001:001ED9C4 113 0001:001ED9C9 + 114 0001:001ED9D8 116 0001:001ED9DC 117 0001:001ED9F5 118 0001:001EDA03 + 119 0001:001EDA0D 120 0001:001EDA32 121 0001:001EDA3E 123 0001:001EDA50 + 125 0001:001EDA5D 126 0001:001EDA6A 129 0001:001EDAB3 130 0001:001EDAC0 + 132 0001:001EDB06 134 0001:001EDB38 135 0001:001EDB45 137 0001:001EDB6A + 138 0001:001EDB81 139 0001:001EDB8F 141 0001:001EDB93 143 0001:001EDBC0 + 144 0001:001EDBF9 145 0001:001EDC1C 146 0001:001EDC3E 148 0001:001EDC6B + 149 0001:001EDC8B 151 0001:001EDC91 152 0001:001EDCC3 153 0001:001EDCC8 + 154 0001:001EDCDF 156 0001:001EDCEC 157 0001:001EDCF4 158 0001:001EDD18 + 160 0001:001EDD27 161 0001:001EDD2D 162 0001:001EDD2F 163 0001:001EDD3A + 164 0001:001EDD3D 165 0001:001EDD41 167 0001:001EDD4B 168 0001:001EDD4E + 170 0001:001EDD64 171 0001:001EDD67 173 0001:001EDD70 174 0001:001EDD7E + 177 0001:001EDD8B 179 0001:001EDD9E 180 0001:001EDDB1 182 0001:001EDDC0 + 183 0001:001EDDD7 184 0001:001EDDE5 185 0001:001EDDE9 187 0001:001EDDF3 + 189 0001:001EDE1B 190 0001:001EDE1E 191 0001:001EDE3D 192 0001:001EDE51 + 193 0001:001EDE67 195 0001:001EDE8A 196 0001:001EDE92 197 0001:001EDE96 + 201 0001:001EDEA5 202 0001:001EDEAD 203 0001:001EDEBA 205 0001:001EDEBE + 206 0001:001EDEC3 207 0001:001EDECE 209 0001:001EDEE0 210 0001:001EDEE6 + 211 0001:001EDEE9 212 0001:001EDEED 214 0001:001EDEF4 216 0001:001EDF0C + 217 0001:001EDF1A 218 0001:001EDF28 220 0001:001EDF36 223 0001:001EDF47 + 224 0001:001EDF57 226 0001:001EDFA9 229 0001:001EE09C 231 0001:001EE09F + 232 0001:001EE0AF 233 0001:001EE0B6 235 0001:001EE0C3 236 0001:001EE0D0 + 238 0001:001EE0E4 240 0001:001EE0F6 241 0001:001EE102 243 0001:001EE11D + 245 0001:001EE130 248 0001:001EE134 250 0001:001EE137 252 0001:001EE161 + 253 0001:001EE172 255 0001:001EE174 257 0001:001EE186 258 0001:001EE18E + 259 0001:001EE1A5 261 0001:001EE1B3 262 0001:001EE1BA 263 0001:001EE1C1 + 268 0001:001EE20C 269 0001:001EE211 272 0001:001EE214 274 0001:001EE22C + 275 0001:001EE23E 276 0001:001EE24E 277 0001:001EE25E 278 0001:001EE271 + 279 0001:001EE27E 280 0001:001EE2BA 281 0001:001EE2E7 284 0001:001EE2EC + 286 0001:001EE2EF 287 0001:001EE301 288 0001:001EE311 289 0001:001EE321 + 290 0001:001EE32E 291 0001:001EE341 295 0001:001EE344 297 0001:001EE347 + 298 0001:001EE354 299 0001:001EE359 300 0001:001EE36F 304 0001:001EE374 + 305 0001:001EE381 309 0001:001EE384 311 0001:001EE3A2 312 0001:001EE3D1 + 313 0001:001EE402 316 0001:001EE408 317 0001:001EE40B 318 0001:001EE416 + 320 0001:001EE425 321 0001:001EE42C 324 0001:001EE433 328 0001:001EE438 + 329 0001:001EE43B 330 0001:001EE441 331 0001:001EE448 333 0001:001EE47C + 333 0001:001EE483 + +Line numbers for mEvntDelay(mEvntDelay.pas) segment .text + + 64 0001:001EE6EC 65 0001:001EE6FE 66 0001:001EE707 67 0001:001EE70E + 68 0001:001EE715 69 0001:001EE71C 70 0001:001EE723 71 0001:001EE72B + 72 0001:001EE74A 83 0001:001EE750 85 0001:001EE773 86 0001:001EE783 + 87 0001:001EE790 88 0001:001EE794 90 0001:001EE798 91 0001:001EE7A5 + 93 0001:001EE7BF 94 0001:001EE7D3 96 0001:001EE7EA 97 0001:001EE7FB + 99 0001:001EE808 100 0001:001EE812 101 0001:001EE837 102 0001:001EE842 + 104 0001:001EE846 106 0001:001EE859 108 0001:001EE874 110 0001:001EE8B9 + 111 0001:001EE8CE 113 0001:001EE8D0 106 0001:001EE8D1 115 0001:001EE8D6 + 117 0001:001EE8E6 118 0001:001EE8ED 119 0001:001EE902 120 0001:001EE91C + 121 0001:001EE936 122 0001:001EE946 123 0001:001EE964 124 0001:001EE96C + 127 0001:001EE973 129 0001:001EE992 131 0001:001EE9AD 133 0001:001EE9F2 + 134 0001:001EEA07 136 0001:001EEA09 129 0001:001EEA0A 138 0001:001EEA0F + 140 0001:001EEA1F 141 0001:001EEA34 142 0001:001EEA4E 143 0001:001EEA6A + 144 0001:001EEA7A 145 0001:001EEA98 147 0001:001EEACA 151 0001:001EEB4C + 152 0001:001EEB53 153 0001:001EEB5B 154 0001:001EEB63 155 0001:001EEB6A + 156 0001:001EEB71 157 0001:001EEB78 162 0001:001EEB7C 163 0001:001EEB98 + 164 0001:001EEBAE 165 0001:001EEBB5 166 0001:001EEBEB 168 0001:001EEC11 + 171 0001:001EEC62 172 0001:001EEC69 173 0001:001EEC80 176 0001:001EECB0 + 182 0001:001EED30 183 0001:001EED4F 184 0001:001EED6C 186 0001:001EED7F + 187 0001:001EED98 188 0001:001EEDA8 190 0001:001EEDC6 191 0001:001EEDE1 + 192 0001:001EEDF9 194 0001:001EEE0C 195 0001:001EEE1C 196 0001:001EEE29 + 197 0001:001EEE53 198 0001:001EEE6B 199 0001:001EEE8F 201 0001:001EEE91 + 188 0001:001EEE92 203 0001:001EEEDD 210 0001:001EEEE4 212 0001:001EEF07 + 214 0001:001EEF19 215 0001:001EEF4F 216 0001:001EEF85 219 0001:001EEF98 + 220 0001:001EEFA0 221 0001:001EEFA8 223 0001:001EEFAF 225 0001:001EEFBE + 226 0001:001EEFCB 227 0001:001EEFDB 228 0001:001EEFEB 230 0001:001EF00E + 231 0001:001EF01B 232 0001:001EF02D 234 0001:001EF065 235 0001:001EF06D + 237 0001:001EF08A 238 0001:001EF093 239 0001:001EF09A 241 0001:001EF0BC + 243 0001:001EF0F8 244 0001:001EF10F 246 0001:001EF11B 239 0001:001EF11C + 247 0001:001EF121 249 0001:001EF128 252 0001:001EF164 255 0001:001EF1BA + 256 0001:001EF1C1 257 0001:001EF1D8 260 0001:001EF1EB 261 0001:001EF204 + 262 0001:001EF21F 263 0001:001EF238 264 0001:001EF253 265 0001:001EF26C + 268 0001:001EF287 269 0001:001EF2DC 272 0001:001EF4D4 273 0001:001EF4EB + 274 0001:001EF532 278 0001:001EF538 279 0001:001EF552 281 0001:001EF57B + 282 0001:001EF5B0 283 0001:001EF5CD 284 0001:001EF5EB 286 0001:001EF60A + 287 0001:001EF61E 288 0001:001EF648 290 0001:001EF67E 297 0001:001EF688 + 298 0001:001EF6A1 300 0001:001EF6B9 301 0001:001EF6C4 303 0001:001EF6CB + 305 0001:001EF6D1 306 0001:001EF6DF 307 0001:001EF6EF 308 0001:001EF713 + 309 0001:001EF721 311 0001:001EF753 313 0001:001EF78C 313 0001:001EF793 + +Line numbers for fOrdersTS(Orders\fOrdersTS.pas) segment .text + + 76 0001:001EFB34 77 0001:001EFB63 78 0001:001EFB7C 79 0001:001EFBB3 + 80 0001:001EFBEF 82 0001:001EFBF9 83 0001:001EFC07 84 0001:001EFC12 + 85 0001:001EFC24 86 0001:001EFC32 87 0001:001EFC3C 88 0001:001EFC50 + 90 0001:001EFC6A 91 0001:001EFC77 92 0001:001EFC84 95 0001:001EFCCD + 96 0001:001EFCDA 98 0001:001EFD20 100 0001:001EFD52 101 0001:001EFD68 + 102 0001:001EFD6A 103 0001:001EFD7B 105 0001:001EFD82 106 0001:001EFD88 + 109 0001:001EFD9F 110 0001:001EFDB1 111 0001:001EFDC6 113 0001:001EFDDB + 114 0001:001EFDF0 115 0001:001EFDFD 117 0001:001EFE0B 118 0001:001EFE10 + 119 0001:001EFE18 120 0001:001EFE1D 121 0001:001EFE25 122 0001:001EFE35 + 124 0001:001EFE43 126 0001:001EFE70 127 0001:001EFEA9 128 0001:001EFECB + 129 0001:001EFEED 130 0001:001EFEFC 132 0001:001EFF29 133 0001:001EFF47 + 134 0001:001EFF4C 136 0001:001EFF54 137 0001:001EFF86 138 0001:001EFF8B + 139 0001:001EFFA2 141 0001:001EFFAF 142 0001:001EFFB7 143 0001:001EFFC1 + 144 0001:001EFFD2 145 0001:001EFFE4 146 0001:001F0003 147 0001:001F0023 + 148 0001:001F0042 149 0001:001F006F 152 0001:001F008A 153 0001:001F0094 + 154 0001:001F00A0 155 0001:001F00AF 157 0001:001F00EC 160 0001:001F01CC + 162 0001:001F01CF 163 0001:001F01DC 164 0001:001F01E9 165 0001:001F01F0 + 166 0001:001F01F7 167 0001:001F01FE 168 0001:001F0205 169 0001:001F0210 + 172 0001:001F0214 174 0001:001F0217 176 0001:001F0223 177 0001:001F0234 + 179 0001:001F0236 181 0001:001F0260 182 0001:001F0271 184 0001:001F0273 + 186 0001:001F0294 187 0001:001F029F 189 0001:001F02AE 190 0001:001F02B5 + 191 0001:001F02BC 194 0001:001F02BE 195 0001:001F02C5 196 0001:001F02CC + 197 0001:001F02D3 202 0001:001F0350 203 0001:001F0357 204 0001:001F035C + 207 0001:001F0360 209 0001:001F0363 210 0001:001F0370 211 0001:001F037B + 212 0001:001F0388 215 0001:001F038C 217 0001:001F038F 218 0001:001F039C + 221 0001:001F03B2 222 0001:001F03B9 223 0001:001F03C0 227 0001:001F03C9 + 228 0001:001F03DF 229 0001:001F03E6 230 0001:001F03F6 232 0001:001F0406 + 235 0001:001F046C 237 0001:001F046F 238 0001:001F047A 239 0001:001F0481 + 240 0001:001F0497 243 0001:001F049C 244 0001:001F049F 245 0001:001F04A6 + 247 0001:001F04B2 248 0001:001F04C3 250 0001:001F04C5 252 0001:001F04EF + 253 0001:001F0500 255 0001:001F0502 256 0001:001F0509 257 0001:001F0510 + 258 0001:001F0517 261 0001:001F0594 263 0001:001F05B2 264 0001:001F05E1 + 265 0001:001F0612 269 0001:001F0618 271 0001:001F061B 272 0001:001F0620 + 273 0001:001F0623 276 0001:001F0628 278 0001:001F062B 279 0001:001F0636 + 281 0001:001F0645 282 0001:001F064C 285 0001:001F0653 289 0001:001F0658 + 291 0001:001F065B 292 0001:001F0661 293 0001:001F0668 295 0001:001F069C + 295 0001:001F06A3 + +Line numbers for fEffectDate(fEffectDate.pas) segment .text + + 33 0001:001F08C8 34 0001:001F08D1 35 0001:001F08D5 36 0001:001F08EC + 37 0001:001F08FA 38 0001:001F0902 39 0001:001F0922 40 0001:001F092D + 42 0001:001F0939 43 0001:001F094A 46 0001:001F095B 48 0001:001F096E + 53 0001:001F0978 54 0001:001F097F 59 0001:001F0980 60 0001:001F0987 + 61 0001:001F098C 66 0001:001F0990 67 0001:001F0995 69 0001:001F09C8 + 69 0001:001F09CF + +Line numbers for fODActive(Orders\fODActive.pas) segment .text + + 58 0001:001F0C88 59 0001:001F0CC3 60 0001:001F0CD9 61 0001:001F0CE0 + 62 0001:001F0CF4 63 0001:001F0CFC 64 0001:001F0D03 65 0001:001F0D19 + 66 0001:001F0D32 67 0001:001F0D69 68 0001:001F0D70 69 0001:001F0D84 + 71 0001:001F0D8D 72 0001:001F0DC7 84 0001:001F0DF0 85 0001:001F0DFB + 86 0001:001F0DFF 87 0001:001F0E07 88 0001:001F0E13 89 0001:001F0E22 + 90 0001:001F0E30 91 0001:001F0E34 92 0001:001F0E58 91 0001:001F0E82 + 93 0001:001F0E85 94 0001:001F0EAF 95 0001:001F0ED4 96 0001:001F0EEE + 97 0001:001F0F07 99 0001:001F0F21 100 0001:001F0F39 101 0001:001F0F49 + 103 0001:001F0F76 104 0001:001F0F7E 106 0001:001F0F8E 107 0001:001F0F96 + 111 0001:001F100C 112 0001:001F1011 115 0001:001F1014 116 0001:001F1017 + 117 0001:001F1029 118 0001:001F103B 119 0001:001F1046 126 0001:001F1048 + 127 0001:001F1068 128 0001:001F1081 130 0001:001F1097 131 0001:001F10A2 + 132 0001:001F10AD 134 0001:001F10BB 135 0001:001F10D9 137 0001:001F10FC + 138 0001:001F110C 141 0001:001F110E 143 0001:001F112D 145 0001:001F113D + 128 0001:001F113E 146 0001:001F1147 147 0001:001F1164 148 0001:001F1178 + 150 0001:001F1195 151 0001:001F11A1 152 0001:001F11BA 148 0001:001F11BB + 153 0001:001F11EF 156 0001:001F11F8 157 0001:001F11FB 158 0001:001F1206 + 159 0001:001F1211 160 0001:001F121F 161 0001:001F1230 169 0001:001F1234 + 171 0001:001F1257 172 0001:001F125C 174 0001:001F1276 175 0001:001F1286 + 177 0001:001F128E 179 0001:001F129E 180 0001:001F12A9 183 0001:001F12BA + 184 0001:001F12CA 185 0001:001F1301 186 0001:001F131D 187 0001:001F132D + 188 0001:001F1364 189 0001:001F138D 190 0001:001F139C 193 0001:001F13A7 + 194 0001:001F13CE 204 0001:001F141C 206 0001:001F1451 208 0001:001F145A + 209 0001:001F1466 210 0001:001F1474 211 0001:001F1487 212 0001:001F1499 + 213 0001:001F14AB 214 0001:001F14B0 216 0001:001F14B2 217 0001:001F14CB + 218 0001:001F14DC 219 0001:001F14EC 214 0001:001F14ED 220 0001:001F14F2 + 222 0001:001F1506 223 0001:001F1516 225 0001:001F1520 226 0001:001F1536 + 227 0001:001F1558 228 0001:001F1569 230 0001:001F156D 231 0001:001F1578 + 233 0001:001F15A2 234 0001:001F15B2 236 0001:001F15BB 237 0001:001F15CB + 238 0001:001F1602 239 0001:001F161E 240 0001:001F162E 241 0001:001F1665 + 243 0001:001F168E 244 0001:001F169E 245 0001:001F16A8 247 0001:001F16D6 + 248 0001:001F1702 249 0001:001F1713 250 0001:001F1717 223 0001:001F1718 + 253 0001:001F1750 260 0001:001F17A0 261 0001:001F17A9 262 0001:001F17B8 + 264 0001:001F17C0 265 0001:001F17CB 266 0001:001F17D4 267 0001:001F17E4 + 262 0001:001F17E5 268 0001:001F17E8 269 0001:001F17FD 270 0001:001F1805 + 274 0001:001F180C 276 0001:001F180F 277 0001:001F181B 278 0001:001F1822 + 279 0001:001F182E 280 0001:001F1839 286 0001:001F183C 287 0001:001F1844 + 289 0001:001F184A 290 0001:001F1856 291 0001:001F1861 292 0001:001F186B + 294 0001:001F1885 295 0001:001F1895 297 0001:001F18B1 298 0001:001F18C1 + 292 0001:001F18C4 299 0001:001F18CA 300 0001:001F18D5 302 0001:001F18E1 + 308 0001:001F18E8 309 0001:001F190A 310 0001:001F190F 311 0001:001F1914 + 312 0001:001F1919 313 0001:001F1936 314 0001:001F1972 316 0001:001F19AC + 316 0001:001F19B3 + +Line numbers for fODChild(Orders\fODChild.pas) segment .text + + 39 0001:001F1C0C 40 0001:001F1C39 41 0001:001F1C4A 42 0001:001F1C58 + 43 0001:001F1C66 44 0001:001F1C6E 45 0001:001F1C7A 47 0001:001F1C8B + 48 0001:001F1C9D 47 0001:001F1CC2 50 0001:001F1CC5 52 0001:001F1CCB + 53 0001:001F1CDB 56 0001:001F1CEE 57 0001:001F1CF9 60 0001:001F1D2A + 63 0001:001F1D40 65 0001:001F1D78 69 0001:001F1D8C 70 0001:001F1D93 + 78 0001:001F1D94 80 0001:001F1DC0 82 0001:001F1DC6 83 0001:001F1DD0 + 84 0001:001F1DD4 85 0001:001F1DE2 86 0001:001F1DF5 87 0001:001F1E05 + 88 0001:001F1E17 89 0001:001F1E29 91 0001:001F1E39 92 0001:001F1E5D + 93 0001:001F1E89 94 0001:001F1E99 97 0001:001F1EC2 105 0001:001F1ECC + 107 0001:001F1EEF 108 0001:001F1EF1 109 0001:001F1EFE 111 0001:001F1F18 + 112 0001:001F1F25 113 0001:001F1F2A 114 0001:001F1F2E 115 0001:001F1F33 + 116 0001:001F1F38 117 0001:001F1F5C 118 0001:001F1F73 119 0001:001F1F81 + 120 0001:001F1F8E 122 0001:001F1F98 123 0001:001F1FC2 127 0001:001F1FCC + 128 0001:001F1FD3 129 0001:001F1FD8 133 0001:001F1FDC 134 0001:001F1FE3 + 135 0001:001F1FE8 137 0001:001F201C 137 0001:001F2023 + +Line numbers for fODValidateAction(Orders\fODValidateAction.pas) segment .text + + 51 0001:001F2334 52 0001:001F236A 53 0001:001F2381 54 0001:001F238D + 56 0001:001F239C 57 0001:001F23A9 58 0001:001F23BC 60 0001:001F23CF + 62 0001:001F23DE 63 0001:001F23EB 64 0001:001F23FE 66 0001:001F2411 + 68 0001:001F2423 69 0001:001F2492 66 0001:001F2493 70 0001:001F2496 + 72 0001:001F24A8 73 0001:001F24CC 70 0001:001F24CD 74 0001:001F24D0 + 76 0001:001F24DC 77 0001:001F24EC 78 0001:001F24FC 80 0001:001F2516 + 81 0001:001F251B 82 0001:001F2526 83 0001:001F255E 93 0001:001F26D8 + 95 0001:001F2713 97 0001:001F271C 98 0001:001F2728 99 0001:001F2736 + 100 0001:001F2749 101 0001:001F275B 102 0001:001F276D 103 0001:001F2772 + 105 0001:001F2774 106 0001:001F278D 107 0001:001F279E 108 0001:001F27AE + 103 0001:001F27AF 109 0001:001F27B4 111 0001:001F27C8 112 0001:001F27FF + 113 0001:001F2826 115 0001:001F2828 116 0001:001F283E 117 0001:001F2860 + 118 0001:001F2870 119 0001:001F2874 120 0001:001F287F 121 0001:001F2884 + 122 0001:001F288F 123 0001:001F28BB 124 0001:001F28CB 125 0001:001F28CF + 113 0001:001F28D0 128 0001:001F2908 136 0001:001F2914 138 0001:001F2940 + 139 0001:001F294D 140 0001:001F2952 142 0001:001F2972 143 0001:001F29A6 + 145 0001:001F29CA 146 0001:001F29D8 147 0001:001F29F4 148 0001:001F2A03 + 151 0001:001F2A37 152 0001:001F2A45 153 0001:001F2A64 154 0001:001F2A73 + 156 0001:001F2AA5 157 0001:001F2AB0 158 0001:001F2ABD 160 0001:001F2AC7 + 161 0001:001F2AFB 165 0001:001F2B04 166 0001:001F2B09 169 0001:001F2B0C + 170 0001:001F2B0F 171 0001:001F2B21 175 0001:001F2B24 177 0001:001F2B27 + 178 0001:001F2B33 179 0001:001F2B3A 180 0001:001F2B46 181 0001:001F2B51 + 186 0001:001F2B54 187 0001:001F2B74 189 0001:001F2B7D 190 0001:001F2B8A + 191 0001:001F2B95 192 0001:001F2BA0 193 0001:001F2BB6 192 0001:001F2C26 + 194 0001:001F2C2B 195 0001:001F2C36 197 0001:001F2C65 205 0001:001F2C78 + 207 0001:001F2C9B 208 0001:001F2CA8 209 0001:001F2CAD 211 0001:001F2CCD + 212 0001:001F2CF4 213 0001:001F2D02 214 0001:001F2D1E 215 0001:001F2D2D + 217 0001:001F2D61 218 0001:001F2D6E 220 0001:001F2D78 221 0001:001F2DA2 + 230 0001:001F2DAC 232 0001:001F2DDA 234 0001:001F2DE0 235 0001:001F2DEC + 236 0001:001F2DFA 237 0001:001F2E0D 238 0001:001F2E1E 239 0001:001F2E30 + 240 0001:001F2E42 242 0001:001F2E52 243 0001:001F2E79 244 0001:001F2EA5 + 245 0001:001F2EB6 248 0001:001F2EDF 251 0001:001F2EE8 252 0001:001F2EEB + 253 0001:001F2EF7 254 0001:001F2F11 256 0001:001F2F44 256 0001:001F2F4B + +Line numbers for fOrdersRefill(Orders\fOrdersRefill.pas) segment .text + + 45 0001:001F31F4 46 0001:001F3213 47 0001:001F3217 48 0001:001F3224 + 49 0001:001F323B 50 0001:001F3249 51 0001:001F3251 52 0001:001F3274 + 53 0001:001F3297 54 0001:001F32A5 53 0001:001F32C7 55 0001:001F32CA + 56 0001:001F32D5 58 0001:001F32E5 59 0001:001F32EF 61 0001:001F32FD + 62 0001:001F3309 63 0001:001F3314 64 0001:001F3325 65 0001:001F3335 + 66 0001:001F335C 59 0001:001F335D 67 0001:001F3360 68 0001:001F3364 + 71 0001:001F3378 72 0001:001F339C 74 0001:001F33CC 77 0001:001F3400 + 79 0001:001F3416 80 0001:001F341D 81 0001:001F3433 82 0001:001F3445 + 84 0001:001F3457 85 0001:001F3469 88 0001:001F347B 89 0001:001F348B + 91 0001:001F34B8 97 0001:001F34E0 99 0001:001F34E3 101 0001:001F3519 + 102 0001:001F352A 104 0001:001F352C 105 0001:001F3533 106 0001:001F3557 + 107 0001:001F357B 108 0001:001F358B 109 0001:001F3592 114 0001:001F360C + 115 0001:001F3611 120 0001:001F3614 121 0001:001F3619 125 0001:001F361C + 126 0001:001F3621 128 0001:001F3654 128 0001:001F365B + +Line numbers for fActivateDeactivate(fActivateDeactivate.pas) segment .text + + 182 0001:001F368C 182 0001:001F3693 + +Line numbers for fMeds(fMeds.pas) segment .text + + 264 0001:001F4198 265 0001:001F419F 266 0001:001F41A7 267 0001:001F41AF + 268 0001:001F41C0 269 0001:001F41D1 270 0001:001F41E2 271 0001:001F41F0 + 272 0001:001F41FE 273 0001:001F420C 274 0001:001F421A 275 0001:001F4228 + 276 0001:001F4236 277 0001:001F4244 279 0001:001F424B 286 0001:001F4250 + 287 0001:001F4257 289 0001:001F425F 291 0001:001F4274 293 0001:001F428D + 294 0001:001F429D 295 0001:001F42AD 296 0001:001F42BD 297 0001:001F42CD + 302 0001:001F42DD 303 0001:001F42F6 305 0001:001F4306 307 0001:001F4317 + 308 0001:001F4327 309 0001:001F4337 311 0001:001F4347 312 0001:001F435E + 313 0001:001F436E 315 0001:001F4385 316 0001:001F439C 318 0001:001F43AC + 319 0001:001F43C3 321 0001:001F43D3 322 0001:001F43EE 323 0001:001F4409 + 324 0001:001F4424 329 0001:001F4444 330 0001:001F4454 332 0001:001F4464 + 333 0001:001F447B 334 0001:001F4492 336 0001:001F44A2 337 0001:001F44B9 + 339 0001:001F44C9 340 0001:001F44E0 342 0001:001F44F0 343 0001:001F450B + 344 0001:001F4526 345 0001:001F4541 347 0001:001F455C 349 0001:001F4564 + 352 0001:001F4568 354 0001:001F4574 355 0001:001F4583 384 0001:001F4588 + 385 0001:001F45AA 386 0001:001F45B1 387 0001:001F45D2 386 0001:001F4612 + 388 0001:001F4617 389 0001:001F461D 390 0001:001F463E 389 0001:001F4693 + 391 0001:001F46BD 393 0001:001F46C4 394 0001:001F46F0 395 0001:001F46F5 + 398 0001:001F46FF 399 0001:001F471C 400 0001:001F4739 401 0001:001F4755 + 403 0001:001F4786 405 0001:001F47CD 408 0001:001F47D7 409 0001:001F47E6 + 410 0001:001F47F7 411 0001:001F4808 412 0001:001F481D 413 0001:001F482A + 415 0001:001F4838 416 0001:001F4868 420 0001:001F4893 422 0001:001F48A1 + 423 0001:001F48D1 427 0001:001F48F9 429 0001:001F4907 430 0001:001F4937 + 434 0001:001F495D 438 0001:001F49A4 440 0001:001F49AE 441 0001:001F49BE + 443 0001:001F49C4 445 0001:001F4A26 448 0001:001F4A9C 450 0001:001F4AA6 + 453 0001:001F4ACB 455 0001:001F4AE6 456 0001:001F4B09 457 0001:001F4B20 + 453 0001:001F4B23 459 0001:001F4B2E 462 0001:001F4B57 463 0001:001F4B7A + 464 0001:001F4B96 465 0001:001F4BA4 466 0001:001F4BB2 467 0001:001F4BC0 + 468 0001:001F4BCE 469 0001:001F4BDA 470 0001:001F4BF2 469 0001:001F4C4E + 471 0001:001F4C53 472 0001:001F4C5A 473 0001:001F4C70 472 0001:001F4CAF + 474 0001:001F4CB4 476 0001:001F4CDB 482 0001:001F4D5D 483 0001:001F4D6C + 484 0001:001F4D82 485 0001:001F4DA9 487 0001:001F4DBB 489 0001:001F4DCE + 491 0001:001F4DEA 495 0001:001F4E1C 497 0001:001F4E33 498 0001:001F4EAD + 501 0001:001F4EAF 489 0001:001F4EB2 502 0001:001F4EBB 485 0001:001F4EBE + 504 0001:001F4EC8 505 0001:001F4ED0 510 0001:001F4EDA 511 0001:001F4EE8 + 514 0001:001F4F1D 517 0001:001F4FA4 518 0001:001F4FB0 519 0001:001F4FBB + 520 0001:001F4FC6 521 0001:001F4FD3 522 0001:001F4FDB 532 0001:001F4FE0 + 533 0001:001F5000 534 0001:001F500B 535 0001:001F5018 536 0001:001F502D + 537 0001:001F5042 538 0001:001F5057 539 0001:001F506C 540 0001:001F5081 + 541 0001:001F5096 542 0001:001F50A9 543 0001:001F50BC 544 0001:001F50CF + 545 0001:001F50E2 546 0001:001F50F5 547 0001:001F5108 548 0001:001F511B + 549 0001:001F5130 550 0001:001F5145 551 0001:001F515A 552 0001:001F5164 + 553 0001:001F5171 560 0001:001F5186 561 0001:001F518A 563 0001:001F5197 + 564 0001:001F51A6 566 0001:001F51C1 568 0001:001F51D9 569 0001:001F51E7 + 571 0001:001F51FD 572 0001:001F5201 574 0001:001F5203 566 0001:001F5206 + 576 0001:001F520B 578 0001:001F5211 579 0001:001F522E 584 0001:001F524F + 586 0001:001F526E 587 0001:001F5291 589 0001:001F529F 591 0001:001F52BE + 592 0001:001F52E1 594 0001:001F52EF 596 0001:001F530E 597 0001:001F5331 + 600 0001:001F535C 603 0001:001F53F8 605 0001:001F5404 606 0001:001F540C + 607 0001:001F541A 608 0001:001F5428 609 0001:001F5436 610 0001:001F5444 + 611 0001:001F5452 612 0001:001F5460 613 0001:001F546E 614 0001:001F547C + 615 0001:001F548A 616 0001:001F5498 617 0001:001F54A6 627 0001:001F54AC + 629 0001:001F54E1 630 0001:001F54F0 631 0001:001F54FE 632 0001:001F5503 + 633 0001:001F5513 634 0001:001F5523 635 0001:001F5540 636 0001:001F555D + 637 0001:001F556A 638 0001:001F5574 640 0001:001F55B1 641 0001:001F55D2 + 643 0001:001F55D8 645 0001:001F55EA 646 0001:001F560B 648 0001:001F5611 + 649 0001:001F561B 650 0001:001F5635 651 0001:001F563F 653 0001:001F5651 + 655 0001:001F565C 657 0001:001F5674 659 0001:001F569E 660 0001:001F56A4 + 662 0001:001F56A6 655 0001:001F56A9 663 0001:001F56AE 664 0001:001F56B4 + 666 0001:001F56BF 667 0001:001F56D8 668 0001:001F56E8 669 0001:001F56EF + 638 0001:001F56F2 670 0001:001F56FB 671 0001:001F5705 672 0001:001F570D + 674 0001:001F5725 676 0001:001F5764 683 0001:001F5848 685 0001:001F586E + 686 0001:001F587E 687 0001:001F5888 688 0001:001F58A5 689 0001:001F58C2 + 690 0001:001F58CF 691 0001:001F58D9 693 0001:001F590E 694 0001:001F592F + 695 0001:001F5935 696 0001:001F5947 691 0001:001F594A 697 0001:001F594F + 698 0001:001F5959 699 0001:001F5961 700 0001:001F5996 708 0001:001F5A90 + 709 0001:001F5ABC 710 0001:001F5ACD 711 0001:001F5ADE 712 0001:001F5AEF + 713 0001:001F5AF9 714 0001:001F5B19 715 0001:001F5B27 716 0001:001F5B35 + 717 0001:001F5B43 719 0001:001F5B69 720 0001:001F5B77 721 0001:001F5BA6 + 722 0001:001F5BD8 717 0001:001F5BDB 724 0001:001F5BE0 726 0001:001F5C06 + 727 0001:001F5C14 728 0001:001F5C43 729 0001:001F5C75 724 0001:001F5C78 + 731 0001:001F5C7D 733 0001:001F5CA3 734 0001:001F5CB1 735 0001:001F5CE0 + 736 0001:001F5D12 731 0001:001F5D15 738 0001:001F5D1A 739 0001:001F5D43 + 745 0001:001F5D80 746 0001:001F5DA9 747 0001:001F5DD3 748 0001:001F5DE6 + 749 0001:001F5DEE 751 0001:001F5DFE 752 0001:001F5E21 753 0001:001F5E42 + 754 0001:001F5E63 755 0001:001F5E81 756 0001:001F5E9F 757 0001:001F5EBD + 758 0001:001F5EDB 760 0001:001F5F08 766 0001:001F5FB4 767 0001:001F5FDA + 768 0001:001F6004 770 0001:001F6012 771 0001:001F6036 772 0001:001F6065 + 774 0001:001F606B 776 0001:001F6074 777 0001:001F6092 780 0001:001F60AB + 781 0001:001F60CB 784 0001:001F6107 787 0001:001F612C 788 0001:001F613B + 789 0001:001F6143 790 0001:001F614B 791 0001:001F616D 792 0001:001F6198 + 793 0001:001F61A8 794 0001:001F61BC 795 0001:001F61D4 798 0001:001F61E4 + 799 0001:001F61ED 800 0001:001F61FD 802 0001:001F6215 805 0001:001F6223 + 813 0001:001F627C 814 0001:001F62A5 815 0001:001F62AD 816 0001:001F62C3 + 817 0001:001F62D1 819 0001:001F62EF 820 0001:001F6305 821 0001:001F6311 + 822 0001:001F634C 817 0001:001F634F 823 0001:001F6354 824 0001:001F6396 + 827 0001:001F63C4 828 0001:001F63D0 829 0001:001F63E1 830 0001:001F63EF + 831 0001:001F63FD 834 0001:001F640B 836 0001:001F6413 839 0001:001F6418 + 840 0001:001F6424 841 0001:001F6435 842 0001:001F6443 843 0001:001F6451 + 845 0001:001F645F 847 0001:001F6467 850 0001:001F646C 851 0001:001F6478 + 852 0001:001F6489 853 0001:001F6497 854 0001:001F64A5 856 0001:001F64B3 + 858 0001:001F64BB 869 0001:001F64C0 871 0001:001F64EC 872 0001:001F64F4 + 873 0001:001F6502 874 0001:001F6510 876 0001:001F6538 877 0001:001F6546 + 879 0001:001F6550 880 0001:001F655E 881 0001:001F6577 882 0001:001F6596 + 883 0001:001F65C0 884 0001:001F65E3 885 0001:001F65F5 886 0001:001F65FB + 887 0001:001F6619 889 0001:001F6625 890 0001:001F663E 891 0001:001F6644 + 893 0001:001F6662 894 0001:001F6672 897 0001:001F667F 898 0001:001F66B1 + 910 0001:001F66BC 912 0001:001F66FA 913 0001:001F6708 914 0001:001F6716 + 915 0001:001F6729 917 0001:001F6751 918 0001:001F675F 920 0001:001F6769 + 921 0001:001F6793 923 0001:001F67A3 925 0001:001F67BA 927 0001:001F67C0 + 928 0001:001F67D6 930 0001:001F67EC 932 0001:001F6802 933 0001:001F682E + 934 0001:001F6844 935 0001:001F6863 937 0001:001F6884 938 0001:001F6889 + 940 0001:001F68AB 941 0001:001F68C1 943 0001:001F68D1 944 0001:001F68DF + 945 0001:001F68E8 950 0001:001F6905 952 0001:001F6937 953 0001:001F6940 + 954 0001:001F6946 958 0001:001F6977 959 0001:001F6995 960 0001:001F69AC + 938 0001:001F69AF 963 0001:001F69E7 966 0001:001F69F4 968 0001:001F6A00 + 969 0001:001F6A14 972 0001:001F6A18 974 0001:001F6A24 975 0001:001F6A2F + 980 0001:001F6A34 983 0001:001F6A40 984 0001:001F6A4C 985 0001:001F6A76 + 984 0001:001F6A86 986 0001:001F6A8B 987 0001:001F6AB5 986 0001:001F6AC5 + 988 0001:001F6ACA 993 0001:001F6AD0 996 0001:001F6ADC 997 0001:001F6AE8 + 998 0001:001F6B12 997 0001:001F6B22 999 0001:001F6B27 1000 0001:001F6B51 + 999 0001:001F6B61 1001 0001:001F6B66 1004 0001:001F6B6C 1006 0001:001F6B7B + 1007 0001:001F6B88 1009 0001:001F6B94 1010 0001:001F6BA8 1012 0001:001F6BBC + 1013 0001:001F6BC9 1014 0001:001F6BD7 1015 0001:001F6BDF 1018 0001:001F6BE4 + 1020 0001:001F6BF3 1021 0001:001F6C00 1023 0001:001F6C0C 1024 0001:001F6C20 + 1027 0001:001F6C34 1028 0001:001F6C41 1029 0001:001F6C4F 1030 0001:001F6C57 + 1035 0001:001F6C5C 1037 0001:001F6C68 1038 0001:001F6C78 1040 0001:001F6C8D + 1041 0001:001F6CA0 1043 0001:001F6CB2 1045 0001:001F6CC7 1046 0001:001F6CDA + 1050 0001:001F6CEC 1051 0001:001F6CFF 1053 0001:001F6D0F 1062 0001:001F6D74 + 1064 0001:001F6D80 1065 0001:001F6D84 1066 0001:001F6D94 1067 0001:001F6D9E + 1068 0001:001F6DAD 1069 0001:001F6DBB 1070 0001:001F6DC5 1072 0001:001F6DE0 + 1074 0001:001F6DFA 1075 0001:001F6E0A 1077 0001:001F6E19 1078 0001:001F6E21 + 1080 0001:001F6E2F 1081 0001:001F6E35 1084 0001:001F6E51 1085 0001:001F6E5B + 1086 0001:001F6E63 1088 0001:001F6E70 1096 0001:001F6F2C 1098 0001:001F6F38 + 1099 0001:001F6F48 1100 0001:001F6F52 1101 0001:001F6F61 1102 0001:001F6F74 + 1103 0001:001F6F82 1104 0001:001F6F8C 1106 0001:001F6FA7 1107 0001:001F6FC1 + 1108 0001:001F6FD1 1110 0001:001F6FDD 1111 0001:001F6FE5 1112 0001:001F6FED + 1116 0001:001F7008 1117 0001:001F7013 1118 0001:001F701D 1119 0001:001F7025 + 1121 0001:001F7032 1130 0001:001F70EC 1132 0001:001F70F8 1133 0001:001F7108 + 1134 0001:001F7112 1135 0001:001F7121 1136 0001:001F712F 1137 0001:001F7139 + 1138 0001:001F7152 1140 0001:001F7179 1141 0001:001F7193 1142 0001:001F71A3 + 1144 0001:001F71B9 1145 0001:001F71CA 1146 0001:001F71DE 1147 0001:001F7202 + 1148 0001:001F7215 1149 0001:001F7237 1150 0001:001F7242 1152 0001:001F724F + 1154 0001:001F725B 1155 0001:001F7263 1156 0001:001F726B 1160 0001:001F7286 + 1161 0001:001F7291 1162 0001:001F729B 1163 0001:001F72A3 1165 0001:001F72B0 + 1176 0001:001F7380 1178 0001:001F73A8 1179 0001:001F73B5 1180 0001:001F73C5 + 1181 0001:001F73CF 1182 0001:001F73D3 1183 0001:001F73D8 1184 0001:001F73E0 + 1185 0001:001F73E5 1186 0001:001F73F4 1187 0001:001F7403 1188 0001:001F7411 + 1189 0001:001F741B 1190 0001:001F7434 1191 0001:001F744E 1192 0001:001F745E + 1193 0001:001F7492 1194 0001:001F74B2 1195 0001:001F74BD 1196 0001:001F74CB + 1198 0001:001F74E3 1199 0001:001F74EB 1201 0001:001F751E 1219 0001:001F75F4 + 1221 0001:001F764A 1222 0001:001F7652 1223 0001:001F765A 1224 0001:001F7667 + 1225 0001:001F766F 1227 0001:001F767B 1228 0001:001F7683 1230 0001:001F7690 + 1231 0001:001F769C 1232 0001:001F76A6 1233 0001:001F76AD 1234 0001:001F76B2 + 1235 0001:001F76BA 1236 0001:001F76BF 1237 0001:001F76C7 1238 0001:001F76CC + 1239 0001:001F76DE 1240 0001:001F76E2 1241 0001:001F76F6 1242 0001:001F76FA + 1243 0001:001F770A 1244 0001:001F771D 1245 0001:001F7727 1246 0001:001F772B + 1248 0001:001F7744 1249 0001:001F775B 1251 0001:001F776F 1252 0001:001F7773 + 1254 0001:001F7789 1255 0001:001F7796 1256 0001:001F779E 1257 0001:001F77AB + 1259 0001:001F77B9 1260 0001:001F77D0 1262 0001:001F77D8 1264 0001:001F77E6 + 1266 0001:001F77F9 1267 0001:001F77FD 1269 0001:001F7805 1272 0001:001F780F + 1273 0001:001F781C 1274 0001:001F782B 1275 0001:001F783A 1276 0001:001F7848 + 1279 0001:001F785A 1280 0001:001F788E 1282 0001:001F78B2 1283 0001:001F78B6 + 1285 0001:001F78D3 1286 0001:001F78E7 1287 0001:001F78EF 1288 0001:001F78F5 + 1289 0001:001F7900 1291 0001:001F791A 1292 0001:001F7921 1293 0001:001F7926 + 1294 0001:001F792E 1295 0001:001F7933 1296 0001:001F7945 1297 0001:001F7949 + 1298 0001:001F794D 1299 0001:001F7962 1300 0001:001F796C 1301 0001:001F7974 + 1302 0001:001F797E 1303 0001:001F7992 1305 0001:001F799C 1307 0001:001F79AB + 1308 0001:001F79AF 1311 0001:001F79B9 1312 0001:001F79BD 1314 0001:001F79C5 + 1316 0001:001F79CB 1317 0001:001F79E4 1318 0001:001F79E8 1319 0001:001F79F2 + 1322 0001:001F79FC 1323 0001:001F7A15 1325 0001:001F7A19 1326 0001:001F7A23 + 1327 0001:001F7A2B 1328 0001:001F7A5B 1329 0001:001F7A73 1330 0001:001F7A87 + 1332 0001:001F7AB1 1334 0001:001F7ABD 1335 0001:001F7AC5 1336 0001:001F7AD4 + 1337 0001:001F7AE5 1338 0001:001F7AF1 1339 0001:001F7B0A 1340 0001:001F7B21 + 1345 0001:001F7B30 1346 0001:001F7B3E 1347 0001:001F7B48 1348 0001:001F7B50 + 1349 0001:001F7B5A 1350 0001:001F7B62 1351 0001:001F7B6C 1352 0001:001F7B74 + 1354 0001:001F7B95 1355 0001:001F7BA0 1356 0001:001F7BAA 1357 0001:001F7BB2 + 1358 0001:001F7BBA 1360 0001:001F7C12 1368 0001:001F7CDC 1370 0001:001F7D18 + 1371 0001:001F7D1C 1372 0001:001F7D21 1373 0001:001F7D26 1374 0001:001F7D2E + 1375 0001:001F7D3C 1376 0001:001F7D53 1377 0001:001F7D62 1378 0001:001F7D70 + 1379 0001:001F7D80 1380 0001:001F7D8E 1381 0001:001F7DA5 1382 0001:001F7DB4 + 1384 0001:001F7DC2 1385 0001:001F7DCA 1386 0001:001F7E2D 1387 0001:001F7E52 + 1388 0001:001F7E79 1389 0001:001F7E9E 1390 0001:001F7EC3 1392 0001:001F7F0C + 1399 0001:001F7F40 1401 0001:001F7F4C 1402 0001:001F7F5C 1403 0001:001F7F66 + 1404 0001:001F7F75 1405 0001:001F7F88 1406 0001:001F7F96 1407 0001:001F7FA0 + 1409 0001:001F7FBB 1410 0001:001F7FD5 1411 0001:001F7FE5 1413 0001:001F7FF1 + 1414 0001:001F7FF9 1418 0001:001F8014 1419 0001:001F801F 1420 0001:001F8029 + 1421 0001:001F8031 1423 0001:001F803E 1429 0001:001F80F8 1430 0001:001F8104 + 1431 0001:001F8109 1432 0001:001F812C 1433 0001:001F814F 1434 0001:001F8170 + 1435 0001:001F8188 1445 0001:001F81A8 1446 0001:001F81D3 1447 0001:001F81E2 + 1448 0001:001F81F0 1450 0001:001F8225 1452 0001:001F828B 1453 0001:001F8298 + 1455 0001:001F82AD 1456 0001:001F82F5 1457 0001:001F8301 1458 0001:001F8321 + 1459 0001:001F8342 1460 0001:001F8350 1462 0001:001F8368 1463 0001:001F83A4 + 1464 0001:001F83B1 1466 0001:001F83B6 1467 0001:001F83BE 1468 0001:001F83DC + 1469 0001:001F83E9 1471 0001:001F83F5 1473 0001:001F840A 1474 0001:001F8419 + 1475 0001:001F8427 1476 0001:001F8435 1479 0001:001F8449 1481 0001:001F8455 + 1482 0001:001F8481 1483 0001:001F84A4 1485 0001:001F84B1 1486 0001:001F84DC + 1448 0001:001F84DF 1487 0001:001F8517 1497 0001:001F85C4 1498 0001:001F8601 + 1499 0001:001F860F 1500 0001:001F861E 1501 0001:001F8626 1502 0001:001F8648 + 1504 0001:001F865B 1505 0001:001F86A3 1506 0001:001F86AF 1507 0001:001F86CF + 1508 0001:001F86F0 1509 0001:001F86FB 1511 0001:001F870A 1513 0001:001F8719 + 1514 0001:001F8736 1516 0001:001F8754 1517 0001:001F8761 1521 0001:001F8763 + 1522 0001:001F877A 1523 0001:001F8780 1524 0001:001F879F 1526 0001:001F87B0 + 1527 0001:001F87BB 1529 0001:001F87C9 1501 0001:001F87CC 1530 0001:001F87D5 + 1531 0001:001F8814 1534 0001:001F8890 1535 0001:001F889F 1536 0001:001F88A7 + 1539 0001:001F88AC 1541 0001:001F88B8 1542 0001:001F88C2 1545 0001:001F88C8 + 1547 0001:001F88D4 1548 0001:001F88DE 1553 0001:001F88E4 1555 0001:001F88F0 + 1556 0001:001F88FC 1557 0001:001F8926 1556 0001:001F8936 1558 0001:001F893B + 1559 0001:001F8965 1558 0001:001F8975 1560 0001:001F897A 1563 0001:001F8980 + 1565 0001:001F898C 1566 0001:001F8997 1569 0001:001F899C 1571 0001:001F89A8 + 1572 0001:001F89BC 1575 0001:001F89C0 1577 0001:001F89CF 1578 0001:001F89DC + 1580 0001:001F89E8 1581 0001:001F89FC 1583 0001:001F8A10 1584 0001:001F8A1D + 1585 0001:001F8A2B 1586 0001:001F8A33 1605 0001:001F8A38 1607 0001:001F8A44 + 1610 0001:001F8A51 1612 0001:001F8A5E 1613 0001:001F8A71 1614 0001:001F8A86 + 1615 0001:001F8AA8 1617 0001:001F8ACF 1618 0001:001F8AE2 1622 0001:001F8AF3 + 1627 0001:001F8AFC 1628 0001:001F8B14 1629 0001:001F8B1F 1630 0001:001F8B45 + 1633 0001:001F8B4C 1635 0001:001F8B58 1637 0001:001F8B64 1638 0001:001F8B93 + 1640 0001:001F8B9B 1643 0001:001F8BA0 1645 0001:001F8BAC 1647 0001:001F8BB8 + 1648 0001:001F8BE7 1650 0001:001F8BEF 1653 0001:001F8BF4 1655 0001:001F8C00 + 1657 0001:001F8C0C 1658 0001:001F8C3B 1660 0001:001F8C43 1663 0001:001F8C48 + 1665 0001:001F8C54 1666 0001:001F8C61 1669 0001:001F8C68 1671 0001:001F8C77 + 1672 0001:001F8C84 1675 0001:001F8C8C 1677 0001:001F8C98 1678 0001:001F8CAB + 1681 0001:001F8CB0 1683 0001:001F8CBC 1684 0001:001F8CCF 1693 0001:001F8CD4 + 1698 0001:001F8CFA 1699 0001:001F8CFE 1701 0001:001F8D0B 1702 0001:001F8D1A + 1704 0001:001F8D35 1706 0001:001F8D4D 1707 0001:001F8D5B 1709 0001:001F8D71 + 1710 0001:001F8D75 1712 0001:001F8D77 1704 0001:001F8D7A 1714 0001:001F8D7F + 1716 0001:001F8D89 1717 0001:001F8DA6 1718 0001:001F8DC7 1719 0001:001F8DD6 + 1720 0001:001F8DE5 1721 0001:001F8E27 1725 0001:001F8E7E 1741 0001:001F8EF4 + 1742 0001:001F8F21 1743 0001:001F8F25 1744 0001:001F8F37 1746 0001:001F8F45 + 1748 0001:001F8F58 1749 0001:001F8F7A 1750 0001:001F8F94 1751 0001:001F8FC6 + 1752 0001:001F8FDA 1754 0001:001F9014 1761 0001:001F9174 1762 0001:001F9180 + 1764 0001:001F9185 1765 0001:001F91A2 1766 0001:001F91C6 1765 0001:001F91E6 + 1768 0001:001F91EB 1769 0001:001F9208 1770 0001:001F922C 1769 0001:001F924C + 1772 0001:001F9251 1773 0001:001F926E 1774 0001:001F9292 1773 0001:001F92B2 + 1775 0001:001F92BA 1782 0001:001F9300 1783 0001:001F930C 1784 0001:001F9329 + 1785 0001:001F934D 1784 0001:001F9374 1787 0001:001F9379 1788 0001:001F9396 + 1789 0001:001F93BA 1788 0001:001F93E1 1791 0001:001F93E6 1792 0001:001F9403 + 1793 0001:001F9427 1792 0001:001F944E 1794 0001:001F9453 1797 0001:001F9498 + 1799 0001:001F94A7 1800 0001:001F94B2 1803 0001:001F94B8 1805 0001:001F94C7 + 1806 0001:001F94D2 1809 0001:001F94D8 1811 0001:001F94E7 1812 0001:001F94F2 + 1819 0001:001F94F8 1821 0001:001F9507 1822 0001:001F9515 1824 0001:001F952D + 1825 0001:001F9532 1826 0001:001F9556 1825 0001:001F9566 1827 0001:001F956B + 1829 0001:001F9573 1830 0001:001F9597 1829 0001:001F95C0 1831 0001:001F95C5 + 1835 0001:001F95D3 1837 0001:001F95F2 1838 0001:001F9615 1841 0001:001F9623 + 1842 0001:001F963E 1843 0001:001F9659 1850 0001:001F9660 1852 0001:001F966F + 1853 0001:001F967D 1855 0001:001F9695 1856 0001:001F969A 1857 0001:001F96BE + 1856 0001:001F96CE 1858 0001:001F96D3 1860 0001:001F96DB 1861 0001:001F96FF + 1860 0001:001F9728 1862 0001:001F972D 1866 0001:001F973B 1868 0001:001F975A + 1869 0001:001F977D 1872 0001:001F978B 1873 0001:001F97A6 1874 0001:001F97C1 + 1881 0001:001F97C8 1883 0001:001F97D7 1884 0001:001F97E5 1886 0001:001F97FD + 1887 0001:001F9802 1888 0001:001F9826 1887 0001:001F9836 1889 0001:001F983B + 1891 0001:001F9843 1892 0001:001F9867 1891 0001:001F9890 1893 0001:001F9895 + 1897 0001:001F98A3 1899 0001:001F98C2 1900 0001:001F98E5 1903 0001:001F98F3 + 1904 0001:001F990E 1905 0001:001F9929 1910 0001:001F9930 1911 0001:001F9939 + 1912 0001:001F9957 1913 0001:001F996C 1911 0001:001F9985 1914 0001:001F998A + 1915 0001:001F9998 1925 0001:001F999C 1926 0001:001F99BB 1927 0001:001F99BF + 1928 0001:001F99CE 1929 0001:001F99DB 1930 0001:001F99E9 1932 0001:001F9A13 + 1933 0001:001F9A21 1934 0001:001F9A3F 1935 0001:001F9A4A 1930 0001:001F9A4D + 1936 0001:001F9A52 1938 0001:001F9A58 1939 0001:001F9A63 1941 0001:001F9A6B + 1943 0001:001F9A71 1944 0001:001F9A86 1946 0001:001F9ABA 1968 0001:001F9B50 + 1970 0001:001F9B5C 1971 0001:001F9B6B 1974 0001:001F9B70 1976 0001:001F9B92 + 1977 0001:001F9BB4 1978 0001:001F9BD6 1979 0001:001F9BF8 1980 0001:001F9C3F + 1981 0001:001F9C86 1982 0001:001F9CA8 1983 0001:001F9CCA 1984 0001:001F9CEC + 1985 0001:001F9D30 1990 0001:001F9D40 1991 0001:001F9D4C 1992 0001:001F9D5E + 1993 0001:001F9D68 1994 0001:001F9D79 1995 0001:001F9D81 1997 0001:001F9D8A + 1999 0001:001F9D96 2000 0001:001F9DAE 2001 0001:001F9DC9 2002 0001:001F9DE4 + 2004 0001:001F9DFF 2005 0001:001F9E28 2007 0001:001F9E39 2009 0001:001F9E45 + 2010 0001:001F9E5D 2011 0001:001F9E78 2012 0001:001F9E93 2013 0001:001F9EAE + 2015 0001:001F9EC9 2016 0001:001F9EF2 2017 0001:001F9F03 2019 0001:001F9F0F + 2020 0001:001F9F27 2021 0001:001F9F42 2022 0001:001F9F5D 2023 0001:001F9F78 + 2024 0001:001F9F93 2026 0001:001F9FAE 2027 0001:001F9FD7 2028 0001:001F9FE8 + 2032 0001:001F9FEC 2035 0001:001F9FFB 2036 0001:001FA006 2040 0001:001FA00C + 2043 0001:001FA01B 2044 0001:001FA026 2048 0001:001FA02C 2051 0001:001FA03B + 2052 0001:001FA046 2054 0001:001FA088 2054 0001:001FA08F + +Line numbers for fEditProc(Consults\fEditProc.pas) segment .text + + 121 0001:001FA6E8 122 0001:001FA709 123 0001:001FA70D 124 0001:001FA715 + 125 0001:001FA726 126 0001:001FA737 127 0001:001FA748 128 0001:001FA765 + 129 0001:001FA76F 132 0001:001FA77F 133 0001:001FA790 134 0001:001FA7A1 + 135 0001:001FA7B2 137 0001:001FA7C3 138 0001:001FA7CD 139 0001:001FA7E6 + 140 0001:001FA7F7 141 0001:001FA805 144 0001:001FA80F 145 0001:001FA81B + 146 0001:001FA825 147 0001:001FA832 150 0001:001FA84D 151 0001:001FA857 + 152 0001:001FA861 153 0001:001FA86B 154 0001:001FA875 155 0001:001FA87F + 156 0001:001FA889 157 0001:001FA893 158 0001:001FA89D 159 0001:001FA8A7 + 161 0001:001FA8DF 166 0001:001FA908 167 0001:001FA926 168 0001:001FA92D + 169 0001:001FA93E 170 0001:001FA94F 171 0001:001FA95A 172 0001:001FA96B + 173 0001:001FA97E 175 0001:001FA98C 177 0001:001FA9E0 179 0001:001FA9ED + 180 0001:001FA9F6 181 0001:001FAA07 182 0001:001FAA1D 184 0001:001FAA36 + 185 0001:001FAA44 186 0001:001FAA57 187 0001:001FAA60 188 0001:001FAA71 + 189 0001:001FAA83 193 0001:001FAA95 194 0001:001FAAA2 196 0001:001FAAB4 + 198 0001:001FAAC4 199 0001:001FAAD5 200 0001:001FAAF6 199 0001:001FAB35 + 201 0001:001FAB38 202 0001:001FAB49 203 0001:001FAB59 205 0001:001FAB62 + 206 0001:001FAB75 208 0001:001FAB7C 209 0001:001FAB93 210 0001:001FABAD + 211 0001:001FABC7 212 0001:001FABD5 213 0001:001FABDC 214 0001:001FABE3 + 215 0001:001FAC0C 220 0001:001FACA4 221 0001:001FACAA 222 0001:001FACD1 + 223 0001:001FACE4 225 0001:001FACF4 226 0001:001FAD17 227 0001:001FAD38 + 228 0001:001FAD59 229 0001:001FAD7A 230 0001:001FAD9B 231 0001:001FADCE + 233 0001:001FADF9 234 0001:001FAE0A 236 0001:001FAE18 238 0001:001FAE24 + 239 0001:001FAE36 240 0001:001FAE72 244 0001:001FB0A4 246 0001:001FB0AD + 247 0001:001FB0C4 251 0001:001FB0CC 253 0001:001FB0D5 254 0001:001FB0EC + 257 0001:001FB0F4 259 0001:001FB0F7 260 0001:001FB108 261 0001:001FB11E + 262 0001:001FB12E 263 0001:001FB14A 264 0001:001FB166 265 0001:001FB16F + 268 0001:001FB1C4 270 0001:001FB1C7 271 0001:001FB1D8 272 0001:001FB1EE + 273 0001:001FB1FE 274 0001:001FB21A 275 0001:001FB236 276 0001:001FB23F + 279 0001:001FB294 280 0001:001FB2B6 283 0001:001FB2C3 284 0001:001FB2E6 + 286 0001:001FB320 287 0001:001FB357 291 0001:001FB370 292 0001:001FB37A + 295 0001:001FB384 296 0001:001FB39F 298 0001:001FB3BB 299 0001:001FB3C7 + 303 0001:001FB3E0 304 0001:001FB3E7 307 0001:001FB3F1 308 0001:001FB418 + 309 0001:001FB43F 311 0001:001FB458 313 0001:001FB462 314 0001:001FB485 + 316 0001:001FB4C1 317 0001:001FB4FA 321 0001:001FB513 322 0001:001FB51A + 326 0001:001FB524 327 0001:001FB555 329 0001:001FB588 330 0001:001FB5A5 + 334 0001:001FB5C4 335 0001:001FB5CE 338 0001:001FB5D8 339 0001:001FB5DE + 341 0001:001FB5F3 343 0001:001FB60A 344 0001:001FB61D 348 0001:001FB63C + 349 0001:001FB650 354 0001:001FB65C 356 0001:001FB672 357 0001:001FB686 + 361 0001:001FB692 362 0001:001FB6A6 366 0001:001FB6B0 367 0001:001FB6B6 + 369 0001:001FB6D6 370 0001:001FB6F6 372 0001:001FB715 374 0001:001FB71F + 375 0001:001FB731 377 0001:001FB743 379 0001:001FB74D 380 0001:001FB756 + 384 0001:001FB770 385 0001:001FB77A 386 0001:001FB781 387 0001:001FB78A + 389 0001:001FB79B 392 0001:001FB7A5 393 0001:001FB7BA 394 0001:001FB7CF + 396 0001:001FB7DB 398 0001:001FB7EB 399 0001:001FB7F1 400 0001:001FB7FC + 402 0001:001FB80E 404 0001:001FB890 410 0001:001FB8A4 411 0001:001FB8AA + 412 0001:001FB8B3 413 0001:001FB8CB 414 0001:001FB8D9 423 0001:001FB918 + 424 0001:001FB933 425 0001:001FB935 426 0001:001FB93F 428 0001:001FB94B + 429 0001:001FB96A 431 0001:001FB96C 432 0001:001FB9A8 433 0001:001FB9DD + 436 0001:001FBA64 438 0001:001FBA85 440 0001:001FBA8B 441 0001:001FBA99 + 442 0001:001FBADC 444 0001:001FBAE2 445 0001:001FBAE9 446 0001:001FBB06 + 448 0001:001FBB15 449 0001:001FBB1E 450 0001:001FBB2A 455 0001:001FBB43 + 456 0001:001FBB56 457 0001:001FBB64 458 0001:001FBB6B 462 0001:001FBB6D + 463 0001:001FBB8A 464 0001:001FBBC8 469 0001:001FBC20 471 0001:001FBC27 + 472 0001:001FBC36 473 0001:001FBC44 474 0001:001FBC58 475 0001:001FBC65 + 476 0001:001FBC79 478 0001:001FBC8F 480 0001:001FBC9F 483 0001:001FBCA4 + 484 0001:001FBCBA 486 0001:001FBCC5 487 0001:001FBCE8 489 0001:001FBD0C + 494 0001:001FBD1C 495 0001:001FBD23 496 0001:001FBD28 499 0001:001FBD2C + 500 0001:001FBD32 501 0001:001FBD4C 503 0001:001FBD57 504 0001:001FBD64 + 505 0001:001FBD6F 507 0001:001FBD7C 508 0001:001FBD89 512 0001:001FBD8C + 513 0001:001FBD9D 517 0001:001FBDC0 518 0001:001FBDD1 526 0001:001FBDEC + 528 0001:001FBE0D 529 0001:001FBE1E 530 0001:001FBE28 531 0001:001FBE45 + 532 0001:001FBE63 533 0001:001FBE72 534 0001:001FBE81 535 0001:001FBE8E + 536 0001:001FBEA2 537 0001:001FBECC 538 0001:001FBEF2 545 0001:001FBF24 + 546 0001:001FBF3D 547 0001:001FBF4A 548 0001:001FBF57 549 0001:001FBF64 + 550 0001:001FBF74 551 0001:001FBF87 552 0001:001FBF94 553 0001:001FBFA4 + 555 0001:001FBFBD 559 0001:001FBFFA 560 0001:001FC014 561 0001:001FC025 + 563 0001:001FC037 564 0001:001FC047 566 0001:001FC058 567 0001:001FC065 + 568 0001:001FC072 569 0001:001FC07F 570 0001:001FC08F 571 0001:001FC0A2 + 574 0001:001FC0B4 576 0001:001FC0C8 577 0001:001FC0D5 578 0001:001FC0E2 + 579 0001:001FC0EF 580 0001:001FC0FF 581 0001:001FC112 584 0001:001FC121 + 585 0001:001FC12E 586 0001:001FC13B 587 0001:001FC148 588 0001:001FC158 + 589 0001:001FC16B 590 0001:001FC178 593 0001:001FC1AF 596 0001:001FC274 + 598 0001:001FC277 599 0001:001FC281 600 0001:001FC28B 601 0001:001FC292 + 602 0001:001FC29F 603 0001:001FC2A8 606 0001:001FC2AC 608 0001:001FC2B2 + 609 0001:001FC2CE 610 0001:001FC2E3 611 0001:001FC2EB 613 0001:001FC2F5 + 614 0001:001FC30F 615 0001:001FC323 619 0001:001FC357 620 0001:001FC364 + 621 0001:001FC371 623 0001:001FC37E 624 0001:001FC38B 629 0001:001FC390 + 630 0001:001FC39B 635 0001:001FC39C 636 0001:001FC3A7 639 0001:001FC3A8 + 641 0001:001FC3BE 642 0001:001FC3F6 646 0001:001FC3FC 648 0001:001FC41D + 649 0001:001FC428 654 0001:001FC42C 655 0001:001FC439 657 0001:001FC442 + 658 0001:001FC448 659 0001:001FC46F 660 0001:001FC475 662 0001:001FC49A + 663 0001:001FC4A0 664 0001:001FC4C5 666 0001:001FC4CA 670 0001:001FC4D4 + 673 0001:001FC4DE 674 0001:001FC503 675 0001:001FC507 676 0001:001FC50C + 680 0001:001FC51C 681 0001:001FC525 682 0001:001FC528 684 0001:001FC58C + 684 0001:001FC593 + +Line numbers for fEditConsult(Consults\fEditConsult.pas) segment .text + + 122 0001:001FCBA8 123 0001:001FCBC9 124 0001:001FCBCD 125 0001:001FCBD5 + 126 0001:001FCBE6 127 0001:001FCBF7 128 0001:001FCC08 129 0001:001FCC25 + 130 0001:001FCC2F 133 0001:001FCC3F 134 0001:001FCC50 135 0001:001FCC61 + 136 0001:001FCC72 138 0001:001FCC83 139 0001:001FCC8D 140 0001:001FCCA6 + 141 0001:001FCCB7 142 0001:001FCCC8 145 0001:001FCCD6 146 0001:001FCCE0 + 147 0001:001FCCEC 148 0001:001FCCF6 149 0001:001FCD03 152 0001:001FCD1E + 153 0001:001FCD28 154 0001:001FCD32 155 0001:001FCD3C 156 0001:001FCD46 + 157 0001:001FCD50 158 0001:001FCD5A 159 0001:001FCD64 160 0001:001FCD6E + 161 0001:001FCD78 162 0001:001FCD82 164 0001:001FCDBA 169 0001:001FCDE4 + 170 0001:001FCE08 171 0001:001FCE12 172 0001:001FCE23 173 0001:001FCE30 + 174 0001:001FCE44 175 0001:001FCE4D 176 0001:001FCE5E 177 0001:001FCE73 + 181 0001:001FCE88 182 0001:001FCE95 184 0001:001FCEAA 186 0001:001FCEBD + 187 0001:001FCEC7 188 0001:001FCEDD 190 0001:001FCEE9 191 0001:001FCEFD + 192 0001:001FCF2D 190 0001:001FCF4E 193 0001:001FCF51 195 0001:001FCF69 + 196 0001:001FCF7D 197 0001:001FCF9B 196 0001:001FCFD8 198 0001:001FCFDB + 199 0001:001FCFEF 200 0001:001FCFFF 202 0001:001FD008 203 0001:001FD01B + 205 0001:001FD022 206 0001:001FD03C 207 0001:001FD04D 208 0001:001FD06A + 209 0001:001FD087 210 0001:001FD09B 211 0001:001FD0B1 213 0001:001FD0CD + 214 0001:001FD0DE 215 0001:001FD0E6 216 0001:001FD0F0 217 0001:001FD119 + 222 0001:001FD1C4 223 0001:001FD1CA 224 0001:001FD1F1 225 0001:001FD204 + 227 0001:001FD214 229 0001:001FD239 230 0001:001FD25A 231 0001:001FD27B + 232 0001:001FD2AE 233 0001:001FD2CF 235 0001:001FD2D5 236 0001:001FD31A + 238 0001:001FD383 240 0001:001FD38F 242 0001:001FD3BA 243 0001:001FD3CB + 245 0001:001FD3D9 247 0001:001FD3E5 248 0001:001FD3F7 249 0001:001FD440 + 253 0001:001FD6DC 255 0001:001FD6E5 256 0001:001FD6FC 259 0001:001FD704 + 261 0001:001FD707 262 0001:001FD718 263 0001:001FD729 264 0001:001FD73A + 265 0001:001FD750 266 0001:001FD760 267 0001:001FD77C 268 0001:001FD798 + 269 0001:001FD7A1 272 0001:001FD7F4 274 0001:001FD7F7 275 0001:001FD808 + 276 0001:001FD819 277 0001:001FD82A 278 0001:001FD840 279 0001:001FD850 + 280 0001:001FD86C 281 0001:001FD888 282 0001:001FD891 286 0001:001FD8E4 + 287 0001:001FD907 290 0001:001FD914 291 0001:001FD92F 293 0001:001FD94B + 294 0001:001FD957 298 0001:001FD970 299 0001:001FD977 302 0001:001FD981 + 303 0001:001FD9A8 304 0001:001FD9CF 306 0001:001FD9E8 308 0001:001FD9F2 + 309 0001:001FDA15 311 0001:001FDA51 312 0001:001FDA8A 316 0001:001FDAA3 + 317 0001:001FDAAA 320 0001:001FDAB4 321 0001:001FDADB 323 0001:001FDB08 + 324 0001:001FDB25 328 0001:001FDB44 329 0001:001FDB4E 332 0001:001FDB58 + 333 0001:001FDB5E 335 0001:001FDB73 337 0001:001FDB8A 338 0001:001FDB9D + 342 0001:001FDBBC 343 0001:001FDBD0 348 0001:001FDBDC 350 0001:001FDBF2 + 351 0001:001FDC06 355 0001:001FDC12 356 0001:001FDC26 360 0001:001FDC30 + 361 0001:001FDC36 363 0001:001FDC56 364 0001:001FDC76 366 0001:001FDC95 + 368 0001:001FDC9F 369 0001:001FDCB1 371 0001:001FDCC3 373 0001:001FDCCD + 374 0001:001FDCD6 378 0001:001FDCF0 379 0001:001FDCFA 380 0001:001FDD01 + 381 0001:001FDD0A 383 0001:001FDD1B 386 0001:001FDD25 387 0001:001FDD3A + 388 0001:001FDD4F 390 0001:001FDD5B 392 0001:001FDD6B 393 0001:001FDD71 + 394 0001:001FDD7C 396 0001:001FDD8E 398 0001:001FDE10 404 0001:001FDE24 + 405 0001:001FDE2A 406 0001:001FDE33 407 0001:001FDE4B 408 0001:001FDE59 + 417 0001:001FDE98 420 0001:001FDEB0 422 0001:001FDEBA 424 0001:001FDEC3 + 425 0001:001FDEE1 426 0001:001FDEEE 431 0001:001FDEFA 433 0001:001FDF05 + 434 0001:001FDF28 436 0001:001FDF51 441 0001:001FDF70 443 0001:001FDF77 + 444 0001:001FDF86 445 0001:001FDF94 446 0001:001FDFA8 447 0001:001FDFB5 + 448 0001:001FDFC9 450 0001:001FDFDF 452 0001:001FDFEF 457 0001:001FDFF4 + 458 0001:001FDFFB 459 0001:001FE000 468 0001:001FE004 469 0001:001FE01F + 470 0001:001FE021 471 0001:001FE02B 473 0001:001FE037 474 0001:001FE056 + 476 0001:001FE058 477 0001:001FE094 478 0001:001FE0C9 482 0001:001FE150 + 483 0001:001FE156 484 0001:001FE170 486 0001:001FE17B 487 0001:001FE188 + 488 0001:001FE193 490 0001:001FE1A0 491 0001:001FE1AD 495 0001:001FE1B0 + 496 0001:001FE1C1 500 0001:001FE1E4 501 0001:001FE1F5 507 0001:001FE210 + 510 0001:001FE231 512 0001:001FE242 513 0001:001FE253 514 0001:001FE25D + 515 0001:001FE27A 516 0001:001FE298 517 0001:001FE2A7 518 0001:001FE2B6 + 519 0001:001FE2C3 520 0001:001FE2D7 522 0001:001FE301 524 0001:001FE312 + 525 0001:001FE338 532 0001:001FE368 533 0001:001FE389 534 0001:001FE396 + 535 0001:001FE3A3 536 0001:001FE3B0 537 0001:001FE3C0 538 0001:001FE3D3 + 539 0001:001FE3E0 540 0001:001FE3F0 541 0001:001FE409 545 0001:001FE449 + 546 0001:001FE463 547 0001:001FE474 549 0001:001FE486 550 0001:001FE496 + 552 0001:001FE4A7 553 0001:001FE4B4 554 0001:001FE4C1 555 0001:001FE4CE + 556 0001:001FE4DE 557 0001:001FE4F1 560 0001:001FE503 562 0001:001FE517 + 563 0001:001FE524 564 0001:001FE531 565 0001:001FE53E 566 0001:001FE54E + 567 0001:001FE561 570 0001:001FE570 571 0001:001FE57D 572 0001:001FE58A + 573 0001:001FE597 574 0001:001FE5A7 575 0001:001FE5BA 576 0001:001FE5C7 + 579 0001:001FE60C 582 0001:001FE6E0 584 0001:001FE6E3 585 0001:001FE6ED + 586 0001:001FE6F7 587 0001:001FE6FE 588 0001:001FE70B 589 0001:001FE714 + 592 0001:001FE718 594 0001:001FE71E 595 0001:001FE73A 596 0001:001FE74F + 597 0001:001FE757 599 0001:001FE761 600 0001:001FE77B 601 0001:001FE78F + 605 0001:001FE7C3 606 0001:001FE7D0 607 0001:001FE7DD 609 0001:001FE7EA + 610 0001:001FE7F7 615 0001:001FE7FC 616 0001:001FE807 621 0001:001FE808 + 622 0001:001FE813 625 0001:001FE814 627 0001:001FE82A 628 0001:001FE862 + 633 0001:001FE868 635 0001:001FE889 636 0001:001FE894 640 0001:001FE898 + 641 0001:001FE8A5 643 0001:001FE8AE 644 0001:001FE8B4 645 0001:001FE8DB + 646 0001:001FE8E1 647 0001:001FE906 649 0001:001FE90D 650 0001:001FE913 + 651 0001:001FE938 653 0001:001FE93D 657 0001:001FE944 660 0001:001FE94E + 661 0001:001FE973 662 0001:001FE977 663 0001:001FE97C 667 0001:001FE98C + 668 0001:001FE995 669 0001:001FE998 671 0001:001FE9FC 671 0001:001FEA03 + +Line numbers for fNotesBP(fNotesBP.pas) segment .text + + 37 0001:001FEC1C 38 0001:001FEC25 39 0001:001FEC3C 40 0001:001FEC4A + 43 0001:001FEC52 44 0001:001FEC5B 45 0001:001FEC66 48 0001:001FEC85 + 50 0001:001FEC98 55 0001:001FECA0 56 0001:001FECB2 61 0001:001FECD8 + 62 0001:001FECDD 66 0001:001FECE0 68 0001:001FECE6 69 0001:001FECEC + 70 0001:001FECF1 71 0001:001FECFE 73 0001:001FED05 75 0001:001FED3C + 75 0001:001FED43 + +Line numbers for fRemCoverPreview(fRemCoverPreview.pas) segment .text + + 31 0001:001FEF4C 32 0001:001FEF56 33 0001:001FEF5D 38 0001:001FEF60 + 39 0001:001FEF6B 41 0001:001FEF73 42 0001:001FEF82 43 0001:001FEF91 + 52 0001:001FEF94 53 0001:001FEFBC 55 0001:001FEFCD 56 0001:001FEFD4 + 60 0001:001FEFDD 61 0001:001FEFE4 64 0001:001FEFEB 65 0001:001FEFEF + 67 0001:001FEFF9 69 0001:001FF003 70 0001:001FF011 74 0001:001FF021 + 75 0001:001FF034 78 0001:001FF047 79 0001:001FF054 80 0001:001FF059 + 65 0001:001FF05C 81 0001:001FF061 82 0001:001FF06D 83 0001:001FF091 + 85 0001:001FF0CC 85 0001:001FF0D3 + +Line numbers for fRemCoverSheet(fRemCoverSheet.pas) segment .text + + 227 0001:001FF998 228 0001:001FF99F 229 0001:001FF9B6 230 0001:001FF9C4 + 231 0001:001FF9CE 232 0001:001FF9D9 233 0001:001FF9E5 235 0001:001FF9F7 + 237 0001:001FFA07 252 0001:001FFA40 253 0001:001FFA66 254 0001:001FFA73 + 255 0001:001FFA7D 256 0001:001FFA8A 257 0001:001FFA94 259 0001:001FFA9E + 260 0001:001FFAA6 262 0001:001FFAC3 263 0001:001FFAD8 264 0001:001FFAED + 265 0001:001FFB02 266 0001:001FFB17 267 0001:001FFB2C 268 0001:001FFB41 + 269 0001:001FFB56 270 0001:001FFB6B 271 0001:001FFB82 272 0001:001FFB90 + 274 0001:001FFBAD 275 0001:001FFBC0 276 0001:001FFBD3 277 0001:001FFBF3 + 278 0001:001FFBFB 279 0001:001FFC0E 280 0001:001FFC21 281 0001:001FFC30 + 282 0001:001FFC34 284 0001:001FFC45 285 0001:001FFC4D 287 0001:001FFC53 + 288 0001:001FFC59 289 0001:001FFC66 291 0001:001FFC71 292 0001:001FFC77 + 293 0001:001FFC91 294 0001:001FFCD7 295 0001:001FFCEA 272 0001:001FFCEB + 297 0001:001FFCF4 298 0001:001FFD00 299 0001:001FFD1D 300 0001:001FFD32 + 301 0001:001FFD45 302 0001:001FFD60 303 0001:001FFD64 305 0001:001FFD9F + 306 0001:001FFDAA 307 0001:001FFDC5 308 0001:001FFDC9 310 0001:001FFE04 + 311 0001:001FFE17 312 0001:001FFE2F 313 0001:001FFE4C 314 0001:001FFE5F + 315 0001:001FFE6F 316 0001:001FFE7A 318 0001:001FFE80 319 0001:001FFE90 + 320 0001:001FFE99 324 0001:001FFEAE 325 0001:001FFEBE 326 0001:001FFEC7 + 327 0001:001FFEE4 328 0001:001FFEFE 329 0001:001FFF28 330 0001:001FFF42 + 331 0001:001FFF52 332 0001:001FFF5F 334 0001:001FFF72 335 0001:001FFF8B + 336 0001:001FFF9E 337 0001:001FFFA4 339 0001:001FFFB7 340 0001:001FFFCB + 341 0001:001FFFD9 343 0001:001FFFF6 344 0001:00200011 345 0001:0020002F + 347 0001:00200067 348 0001:0020006C 351 0001:0020008A 352 0001:0020008C + 353 0001:00200096 354 0001:002000A0 341 0001:002000A1 356 0001:002000B7 + 359 0001:002000D3 360 0001:002000DD 361 0001:002000E5 362 0001:0020011C + 366 0001:002001AC 367 0001:002001B5 368 0001:002001C8 372 0001:002001D0 + 373 0001:002001D9 374 0001:002001F2 378 0001:002001F8 379 0001:00200201 + 380 0001:00200218 384 0001:00200220 385 0001:00200229 386 0001:00200240 + 389 0001:00200248 390 0001:0020024B 391 0001:00200256 392 0001:00200261 + 393 0001:0020026C 394 0001:00200277 395 0001:00200282 396 0001:0020028D + 397 0001:00200298 398 0001:002002A3 399 0001:002002AE 400 0001:002002B9 + 401 0001:002002C4 404 0001:002002C8 405 0001:002002CE 407 0001:002002E4 + 408 0001:002002F6 410 0001:00200314 419 0001:0020031C 420 0001:00200348 + 421 0001:0020038D 423 0001:00200395 425 0001:002003A8 426 0001:002003AA + 428 0001:002003AF 429 0001:002003B7 430 0001:002003C5 431 0001:002003D9 + 433 0001:002003E8 435 0001:00200402 437 0001:0020040D 439 0001:00200417 + 440 0001:00200426 441 0001:00200434 442 0001:0020044B 443 0001:0020045D + 444 0001:00200465 446 0001:002004B6 447 0001:002004BE 451 0001:002004C8 + 453 0001:002004CC 454 0001:002004DC 456 0001:002004E8 457 0001:002004F7 + 461 0001:00200509 462 0001:0020050E 464 0001:0020051A 465 0001:00200531 + 464 0001:0020056B 467 0001:0020056E 468 0001:002005A2 474 0001:002005B8 + 475 0001:002005D4 477 0001:002005F4 478 0001:00200608 479 0001:00200616 + 480 0001:0020062A 481 0001:0020063C 482 0001:0020064E 483 0001:00200668 + 484 0001:00200682 485 0001:0020069C 486 0001:002006A9 489 0001:002006BE + 491 0001:002006C1 492 0001:002006DB 493 0001:002006DF 494 0001:00200720 + 496 0001:00200724 498 0001:0020074E 501 0001:0020078C 507 0001:002007A0 + 508 0001:002007C1 509 0001:002007D3 510 0001:002007E5 511 0001:00200801 + 512 0001:00200817 513 0001:0020082D 514 0001:0020083F 515 0001:0020084E + 517 0001:00200861 518 0001:00200870 520 0001:00200883 521 0001:00200892 + 522 0001:002008A3 523 0001:002008B2 525 0001:002008C2 526 0001:002008D1 + 528 0001:002008DE 529 0001:002008EA 530 0001:002008F2 531 0001:002008FD + 532 0001:00200907 533 0001:00200911 534 0001:0020091B 535 0001:00200925 + 536 0001:00200930 537 0001:0020095D 541 0001:00200994 542 0001:002009B7 + 543 0001:002009C3 544 0001:002009DC 545 0001:002009FF 546 0001:00200A1D + 547 0001:00200A5C 555 0001:00200A68 556 0001:00200A88 557 0001:00200AA8 + 558 0001:00200AAC 559 0001:00200AF2 560 0001:00200B33 562 0001:00200B48 + 563 0001:00200B51 564 0001:00200B81 565 0001:00200B9D 566 0001:00200BB9 + 567 0001:00200BD5 568 0001:00200BF1 569 0001:00200C0D 571 0001:00200C14 + 574 0001:00200C1C 575 0001:00200C1F 576 0001:00200C30 577 0001:00200C3C + 578 0001:00200C4B 579 0001:00200C54 582 0001:00200C58 583 0001:00200C5B + 584 0001:00200C6C 585 0001:00200C78 586 0001:00200C87 587 0001:00200C90 + 590 0001:00200C94 591 0001:00200C9B 592 0001:00200CAA 593 0001:00200CB6 + 594 0001:00200CBF 595 0001:00200CC8 598 0001:00200CCC 599 0001:00200CCF + 600 0001:00200CE0 601 0001:00200CEC 602 0001:00200CFB 603 0001:00200D04 + 609 0001:00200D08 610 0001:00200D25 611 0001:00200D3C 612 0001:00200D4F + 613 0001:00200D67 615 0001:00200D6B 616 0001:00200D9A 618 0001:00200DA2 + 619 0001:00200DA8 620 0001:00200DC7 623 0001:00200DD7 624 0001:00200DEF + 626 0001:00200DF3 627 0001:00200E22 629 0001:00200E2A 630 0001:00200E30 + 631 0001:00200E4F 634 0001:00200E5F 635 0001:00200E67 636 0001:00200E75 + 637 0001:00200E81 638 0001:00200E90 639 0001:00200EBB 642 0001:00200EDC + 643 0001:00200EDF 645 0001:00200EE8 646 0001:00200EEF 648 0001:00200F01 + 649 0001:00200F13 651 0001:00200F22 653 0001:00200F32 655 0001:00200F3A + 662 0001:00200F3C 663 0001:00200F58 664 0001:00200F5A 666 0001:00200F6C + 667 0001:00200F78 669 0001:00200F7C 670 0001:00200F87 672 0001:00200F98 + 673 0001:00200FCE 674 0001:00200FEC 675 0001:00201007 676 0001:00201022 + 677 0001:0020103D 678 0001:0020105D 680 0001:00201074 681 0001:00201089 + 683 0001:00201098 684 0001:002010A5 686 0001:002010FE 687 0001:0020113C + 688 0001:00201144 692 0001:00201151 693 0001:0020115B 694 0001:00201172 + 695 0001:00201182 696 0001:00201196 697 0001:002011A4 699 0001:002011C5 + 703 0001:00201203 711 0001:0020126C 712 0001:0020128B 713 0001:0020129F + 714 0001:002012AD 715 0001:002012C1 717 0001:002012CE 718 0001:002012ED + 720 0001:002012F1 722 0001:00201307 723 0001:0020131E 724 0001:00201339 + 720 0001:0020133C 728 0001:0020134C 730 0001:00201368 731 0001:0020138D + 739 0001:00201394 740 0001:002013B8 741 0001:002013D3 742 0001:002013FA + 744 0001:0020140B 745 0001:00201432 747 0001:00201443 748 0001:00201457 + 749 0001:00201468 751 0001:00201479 752 0001:00201483 753 0001:00201491 + 754 0001:002014A2 755 0001:002014A8 757 0001:002014E2 759 0001:00201501 + 762 0001:00201513 763 0001:00201524 764 0001:00201535 765 0001:0020155B + 766 0001:00201561 767 0001:0020157A 768 0001:00201581 769 0001:00201588 + 771 0001:00201592 773 0001:002015B5 774 0001:002015E5 775 0001:002015EA + 776 0001:002015ED 777 0001:002015F2 778 0001:002015F5 771 0001:002015F8 + 779 0001:002015FB 782 0001:00201624 783 0001:00201626 784 0001:00201645 + 785 0001:00201686 794 0001:0020168C 795 0001:002016B5 797 0001:002016D0 + 798 0001:002016D8 799 0001:00201711 801 0001:0020171B 803 0001:00201737 + 804 0001:0020174F 805 0001:00201767 807 0001:0020179A 808 0001:0020179F + 811 0001:002017B9 812 0001:002017BB 813 0001:002017C4 814 0001:002017CD + 801 0001:002017D0 817 0001:002017D9 818 0001:002017E2 820 0001:002017EA + 821 0001:00201819 829 0001:00201848 830 0001:00201877 831 0001:0020188B + 833 0001:00201895 834 0001:002018A4 835 0001:002018B2 836 0001:002018C3 + 838 0001:002018D9 839 0001:002018FB 840 0001:0020190A 842 0001:00201913 + 843 0001:0020191A 844 0001:00201971 845 0001:0020199E 846 0001:002019A4 + 847 0001:002019D6 848 0001:002019E1 836 0001:002019E2 849 0001:002019EB + 851 0001:00201A0E 852 0001:00201A16 856 0001:00201A22 857 0001:00201A6B + 864 0001:00201A8C 865 0001:00201AA8 866 0001:00201AF6 868 0001:00201AFA + 869 0001:00201B0A 870 0001:00201B2E 871 0001:00201B3E 872 0001:00201B4B + 874 0001:00201B74 877 0001:00201B7C 878 0001:00201B92 879 0001:00201BA4 + 881 0001:00201BAD 882 0001:00201BB7 884 0001:00201BC6 885 0001:00201BF5 + 886 0001:00201C04 887 0001:00201C28 894 0001:00201C2C 895 0001:00201C30 + 896 0001:00201C3B 898 0001:00201C42 899 0001:00201C47 900 0001:00201C50 + 901 0001:00201C59 905 0001:00201C5C 906 0001:00201C61 910 0001:00201C64 + 911 0001:00201C67 912 0001:00201C6C 919 0001:00201C70 920 0001:00201C8E + 922 0001:00201C96 923 0001:00201CC6 926 0001:00201CDA 927 0001:00201D01 + 935 0001:00201D08 936 0001:00201D31 937 0001:00201D50 939 0001:00201D58 + 940 0001:00201D71 942 0001:00201D7B 943 0001:00201D88 944 0001:00201D9B + 945 0001:00201DD2 946 0001:00201DDF 947 0001:00201DE6 950 0001:00201E27 + 954 0001:00201E30 955 0001:00201E3A 959 0001:00201E48 960 0001:00201E52 + 964 0001:00201E60 965 0001:00201E6A 970 0001:00201E78 971 0001:00201E83 + 973 0001:00201E94 974 0001:00201E9A 975 0001:00201EA9 983 0001:00201EAC + 984 0001:00201EB7 986 0001:00201EC8 987 0001:00201ECE 988 0001:00201EDD + 997 0001:00201EE0 998 0001:00201F0E 999 0001:00201F1B 1001 0001:00201F32 + 1002 0001:00201F36 1003 0001:00201F3A 1007 0001:00201F40 1008 0001:00201F44 + 1009 0001:00201F48 1013 0001:00201F4E 1014 0001:00201F52 1015 0001:00201F56 + 1019 0001:00201F5C 1020 0001:00201F60 1021 0001:00201F64 1024 0001:00201F68 + 1025 0001:00201F6C 1027 0001:00201F76 1029 0001:00201F8F 1030 0001:00201F9D + 1034 0001:00201FB0 1035 0001:00201FCE 1039 0001:00201FEE 1040 0001:00202001 + 1044 0001:00202016 1045 0001:00202029 1049 0001:0020203C 1050 0001:00202049 + 1051 0001:0020204E 1025 0001:0020204F 1052 0001:00202058 1053 0001:00202064 + 1054 0001:00202088 1063 0001:00202094 1064 0001:002020C2 1066 0001:002020D3 + 1067 0001:002020D7 1071 0001:002020DD 1072 0001:002020E1 1075 0001:002020E5 + 1076 0001:002020E9 1078 0001:002020F3 1080 0001:002020FD 1081 0001:0020210B + 1085 0001:0020211B 1086 0001:00202139 1089 0001:00202157 1090 0001:00202164 + 1091 0001:00202169 1076 0001:0020216A 1092 0001:0020216F 1093 0001:0020217B + 1094 0001:0020219F 1101 0001:002021A8 1102 0001:002021C2 1104 0001:002021D5 + 1106 0001:002021DE 1107 0001:002021E8 1109 0001:002021F7 1111 0001:0020220F + 1112 0001:00202231 1113 0001:0020223E 1114 0001:00202256 1115 0001:00202262 + 1116 0001:00202279 1117 0001:00202288 1120 0001:002022B1 1127 0001:002022B8 + 1128 0001:002022D2 1130 0001:002022E5 1132 0001:002022EE 1133 0001:002022F8 + 1135 0001:00202307 1137 0001:00202333 1138 0001:00202355 1139 0001:00202362 + 1140 0001:0020237A 1141 0001:00202386 1142 0001:0020239D 1143 0001:002023AC + 1146 0001:002023D5 1154 0001:002023DC 1155 0001:00202403 1156 0001:00202422 + 1158 0001:00202426 1159 0001:00202435 1161 0001:0020243B 1162 0001:00202448 + 1164 0001:00202468 1165 0001:0020247B 1166 0001:00202488 1167 0001:0020248F + 1171 0001:002024BE 1180 0001:002024C8 1181 0001:002024E8 1183 0001:002024FB + 1184 0001:00202519 1186 0001:0020252C 1187 0001:00202536 1189 0001:0020253B + 1190 0001:00202550 1193 0001:0020255A 1194 0001:0020255C 1196 0001:0020257D + 1197 0001:002025A8 1198 0001:002025AC 1199 0001:002025AE 1194 0001:002025B1 + 1200 0001:002025B6 1201 0001:002025B9 1203 0001:002025C1 1204 0001:002025C8 + 1207 0001:002025E7 1209 0001:002025EF 1210 0001:0020260E 1211 0001:0020261E + 1213 0001:00202626 1214 0001:00202662 1215 0001:00202669 1216 0001:00202670 + 1217 0001:00202691 1219 0001:002026C2 1220 0001:002026DF 1221 0001:002026E1 + 1216 0001:002026E4 1225 0001:00202713 1231 0001:00202760 1232 0001:0020278D + 1233 0001:00202791 1234 0001:002027AF 1236 0001:002027E0 1237 0001:002027E4 + 1238 0001:002027E6 1233 0001:002027E7 1239 0001:00202812 1244 0001:0020281C + 1245 0001:00202839 1246 0001:0020284B 1248 0001:00202866 1249 0001:00202869 + 1250 0001:00202876 1251 0001:00202886 1254 0001:002028B1 1261 0001:002028BC + 1262 0001:002028C2 1264 0001:002028D5 1265 0001:002028F4 1267 0001:002028FC + 1268 0001:00202914 1269 0001:00202926 1271 0001:0020292E 1272 0001:00202937 + 1273 0001:0020293E 1274 0001:00202945 1276 0001:0020295A 1277 0001:0020295E + 1278 0001:0020295F 1279 0001:0020297A 1281 0001:00202996 1282 0001:002029B2 + 1283 0001:002029B4 1278 0001:002029B5 1288 0001:002029B8 1291 0001:002029C0 + 1292 0001:002029C4 1293 0001:002029D3 1294 0001:002029E2 1297 0001:002029E8 + 1298 0001:002029EB 1299 0001:002029F4 1300 0001:00202A01 1304 0001:00202A04 + 1305 0001:00202A0B 1315 0001:00202A0C 1316 0001:00202A32 1317 0001:00202A36 + 1320 0001:00202A3D 1321 0001:00202A41 1323 0001:00202A8B 1324 0001:00202A9E + 1326 0001:00202AA8 1327 0001:00202AAC 1328 0001:00202AD5 1330 0001:00202ADC + 1332 0001:00202AF3 1333 0001:00202AF6 1335 0001:00202AF8 1328 0001:00202AFC + 1336 0001:00202B01 1338 0001:00202B0B 1339 0001:00202B47 1340 0001:00202B5B + 1341 0001:00202B63 1343 0001:00202B72 1345 0001:00202B8C 1347 0001:00202B97 + 1348 0001:00202BAA 1347 0001:00202BDA 1349 0001:00202BDF 1350 0001:00202BED + 1351 0001:00202BF5 1352 0001:00202BF9 1353 0001:00202C03 1357 0001:00202C07 + 1358 0001:00202C0D 1360 0001:00202C1F 1318 0001:00202C20 1362 0001:00202C36 + 1363 0001:00202C3E 1364 0001:00202C75 1367 0001:00202C88 1368 0001:00202C8C + 1369 0001:00202C9B 1370 0001:00202CAA 1379 0001:00202CB0 1380 0001:00202CD4 + 1382 0001:00202CFA 1383 0001:00202D04 1384 0001:00202D12 1385 0001:00202D3F + 1386 0001:00202D5D 1387 0001:00202D7B 1388 0001:00202D99 1389 0001:00202DB7 + 1390 0001:00202DC3 1391 0001:00202DCC 1392 0001:00202DEB 1394 0001:00202E07 + 1395 0001:00202E37 1396 0001:00202E4B 1397 0001:00202E5F 1398 0001:00202E73 + 1399 0001:00202E87 1400 0001:00202E9B 1402 0001:00202EAD 1404 0001:00202EB2 + 1405 0001:00202EC3 1406 0001:00202ED4 1408 0001:00202EEB 1410 0001:00202EF5 + 1412 0001:00202F00 1413 0001:00202F1E 1415 0001:00202F51 1416 0001:00202F70 + 1417 0001:00202F72 1412 0001:00202F73 1419 0001:00202F76 1421 0001:00202F98 + 1424 0001:00202FFE 1425 0001:0020301D 1427 0001:0020301F 1419 0001:00203020 + 1429 0001:00203034 1432 0001:00203068 1435 0001:00203070 1436 0001:00203097 + 1437 0001:002030DF 1453 0001:002030E4 1454 0001:00203113 1455 0001:0020311C + 1456 0001:00203125 1458 0001:0020312D 1459 0001:00203137 1460 0001:0020315B + 1463 0001:00203171 1465 0001:0020319F 1466 0001:002031B1 1467 0001:002031B7 + 1468 0001:00203219 1469 0001:0020322E 1472 0001:0020323B 1456 0001:00203244 + 1474 0001:0020326E 1476 0001:00203284 1477 0001:002032A7 1478 0001:002032BE + 1479 0001:002032CC 1480 0001:002032D8 1481 0001:002032E4 1482 0001:002032F8 + 1483 0001:00203306 1484 0001:00203313 1485 0001:0020331D 1486 0001:0020332F + 1487 0001:0020333E 1488 0001:0020334C 1489 0001:0020335B 1490 0001:00203369 + 1491 0001:00203371 1493 0001:00203394 1494 0001:002033BA 1496 0001:002033C7 + 1497 0001:002033D2 1498 0001:002033DA 1500 0001:002033E5 1501 0001:0020340B + 1502 0001:00203431 1503 0001:00203444 1505 0001:00203453 1506 0001:0020348E + 1510 0001:0020349D 1512 0001:002034A5 1513 0001:002034C8 1514 0001:0020353A + 1515 0001:00203578 1516 0001:00203587 1517 0001:002035A1 1520 0001:002035AE + 1522 0001:002035EC 1523 0001:002035F9 1524 0001:0020360D 1527 0001:0020361A + 1491 0001:0020361B 1528 0001:00203624 1529 0001:0020362F 1530 0001:0020363B + 1531 0001:00203647 1533 0001:00203659 1534 0001:00203661 1535 0001:0020366C + 1536 0001:00203674 1537 0001:0020367E 1538 0001:0020368C 1540 0001:002036A3 + 1541 0001:002036C3 1543 0001:002036F9 1544 0001:0020370F 1546 0001:00203717 + 1548 0001:00203737 1549 0001:0020373C 1550 0001:0020378D 1553 0001:00203791 + 1544 0001:0020379A 1557 0001:002037A4 1558 0001:002037B9 1559 0001:002037D1 + 1538 0001:002037D2 1561 0001:002037E8 1564 0001:00203807 1567 0001:00203817 + 1568 0001:00203826 1570 0001:0020383D 1572 0001:00203853 1573 0001:00203860 + 1574 0001:0020387D 1575 0001:002038A1 1577 0001:002038C5 1568 0001:002038C6 + 1579 0001:002038DC 1582 0001:002038F9 1584 0001:00203915 1586 0001:0020392D + 1588 0001:0020397F 1592 0001:002039E8 1593 0001:002039F1 1594 0001:00203A06 + 1595 0001:00203A15 1599 0001:00203A1C 1600 0001:00203A26 1601 0001:00203A29 + 1605 0001:00203A2C 1606 0001:00203A2F 1607 0001:00203A3E 1608 0001:00203A47 + 1616 0001:00203A4C 1617 0001:00203A89 1618 0001:00203A96 1620 0001:00203AAC + 1621 0001:00203AE1 1622 0001:00203AFB 1623 0001:00203B01 1624 0001:00203B4D + 1618 0001:00203B4E 1625 0001:00203B88 1627 0001:00203C00 1627 0001:00203C07 + +Line numbers for uaccessibleTreeView(uAccessibleTreeView.pas) segment .text + + 51 0001:00203C08 61 0001:00203EE8 62 0001:00203F1F 63 0001:00203F32 + 64 0001:00203F42 65 0001:00203F9A 69 0001:00203FA4 70 0001:00203FE3 + 71 0001:00203FF6 72 0001:00204006 73 0001:0020406E 76 0001:00204078 + 77 0001:002040A7 78 0001:002040AF 79 0001:002040BF 80 0001:0020411B + 83 0001:00204124 84 0001:00204145 85 0001:00204149 86 0001:00204159 + 87 0001:0020419E 91 0001:002041A8 92 0001:002041D7 93 0001:002041DF + 94 0001:002041EF 95 0001:0020424B 99 0001:00204254 100 0001:00204283 + 101 0001:0020428B 102 0001:0020429B 103 0001:002042F7 106 0001:00204300 + 107 0001:00204337 108 0001:0020434A 109 0001:0020435A 110 0001:002043AA + 113 0001:002043B4 114 0001:002043E3 115 0001:002043EB 116 0001:002043FB + 117 0001:00204457 121 0001:00204460 122 0001:00204494 123 0001:00204498 + 124 0001:002044A8 125 0001:0020450A 129 0001:00204514 130 0001:00204543 + 131 0001:0020454B 132 0001:0020455B 133 0001:002045B7 138 0001:002045C0 + 139 0001:002045F3 141 0001:00204601 143 0001:00204608 144 0001:0020462A + 147 0001:0020465B 149 0001:0020466A 150 0001:0020467A 151 0001:002046DE + 154 0001:00204700 155 0001:00204727 156 0001:0020472F 157 0001:0020473F + 158 0001:00204787 161 0001:00204790 162 0001:002047CF 163 0001:002047E2 + 164 0001:002047F2 165 0001:00204856 168 0001:00204860 169 0001:00204897 + 170 0001:002048AA 171 0001:002048BA 172 0001:0020490A 175 0001:00204914 + 176 0001:00204953 177 0001:00204966 178 0001:00204976 179 0001:002049DA + 182 0001:002049E4 183 0001:00204A13 184 0001:00204A1B 185 0001:00204A2B + 186 0001:00204A87 189 0001:00204A90 190 0001:00204AB4 191 0001:00204AC4 + 192 0001:00204B17 196 0001:00204B20 197 0001:00204B44 198 0001:00204B54 + 199 0001:00204BB7 203 0001:00204BC0 204 0001:00204BE4 205 0001:00204BF4 + 206 0001:00204C4B 210 0001:00204C54 211 0001:00204C78 212 0001:00204C88 + 213 0001:00204CDF 217 0001:00204CE8 218 0001:00204D0C 219 0001:00204D1C + 220 0001:00204D73 223 0001:00204D7C 224 0001:00204D96 225 0001:00204DA3 + 226 0001:00204DB8 228 0001:00204DBC 229 0001:00204DE3 232 0001:00204DEC + 233 0001:00204E22 234 0001:00204E30 235 0001:00204E34 236 0001:00204E4D + 238 0001:00204E51 239 0001:00204E7D 246 0001:00204E84 247 0001:00204E9B + 249 0001:00204EA4 250 0001:00204EB2 251 0001:00204EC3 252 0001:00204EC6 + 254 0001:00204EED 258 0001:00204EF4 259 0001:00204EFD 260 0001:00204F06 + 262 0001:00204F38 263 0001:00204F47 265 0001:00204F55 268 0001:00204F88 + 271 0001:00204F94 + +Line numbers for uAccessibleTreeNode(uAccessibleTreeNode.pas) segment .text + + 51 0001:00204F9C 61 0001:0020527C 62 0001:002052B3 63 0001:002052C6 + 64 0001:002052D6 65 0001:0020532E 69 0001:00205338 70 0001:00205377 + 71 0001:0020538A 72 0001:0020539A 73 0001:00205402 76 0001:0020540C + 77 0001:0020543B 78 0001:00205443 79 0001:00205453 80 0001:002054AF + 83 0001:002054B8 84 0001:002054D9 85 0001:002054DD 86 0001:002054ED + 87 0001:00205532 91 0001:0020553C 92 0001:0020556B 93 0001:00205573 + 94 0001:00205583 95 0001:002055DF 99 0001:002055E8 100 0001:00205617 + 101 0001:0020561F 102 0001:0020562F 103 0001:0020568B 106 0001:00205694 + 107 0001:002056CB 108 0001:002056DE 109 0001:002056EE 110 0001:0020573E + 113 0001:00205748 114 0001:00205777 115 0001:0020577F 116 0001:0020578F + 117 0001:002057EB 121 0001:002057F4 122 0001:00205828 123 0001:0020582C + 124 0001:0020583C 125 0001:0020589E 129 0001:002058A8 130 0001:002058D7 + 131 0001:002058DF 132 0001:002058EF 133 0001:0020594B 136 0001:00205954 + 137 0001:00205983 139 0001:00205991 140 0001:00205999 141 0001:002059A0 + 143 0001:002059AD 144 0001:002059BD 145 0001:00205A19 148 0001:00205A24 + 149 0001:00205A4B 150 0001:00205A53 151 0001:00205A63 152 0001:00205AAB + 155 0001:00205AB4 156 0001:00205AF3 157 0001:00205B06 158 0001:00205B16 + 159 0001:00205B7A 162 0001:00205B84 163 0001:00205BBB 164 0001:00205BCE + 165 0001:00205BDE 166 0001:00205C2E 169 0001:00205C38 170 0001:00205C77 + 171 0001:00205C8A 172 0001:00205C9A 173 0001:00205CFE 176 0001:00205D08 + 177 0001:00205D37 178 0001:00205D3F 179 0001:00205D4F 180 0001:00205DAB + 183 0001:00205DB4 184 0001:00205DD8 185 0001:00205DE8 186 0001:00205E3B + 190 0001:00205E44 191 0001:00205E68 192 0001:00205E78 193 0001:00205EDB + 197 0001:00205EE4 198 0001:00205F08 199 0001:00205F18 200 0001:00205F6F + 204 0001:00205F78 205 0001:00205F9C 206 0001:00205FAC 207 0001:00206003 + 211 0001:0020600C 212 0001:00206030 213 0001:00206040 214 0001:00206097 + 217 0001:002060A0 218 0001:002060BA 219 0001:002060C7 220 0001:002060DC + 222 0001:002060E0 223 0001:00206107 226 0001:00206110 227 0001:00206146 + 228 0001:00206154 229 0001:00206158 230 0001:00206171 232 0001:00206175 + 233 0001:002061A1 240 0001:002061A8 241 0001:002061BF 243 0001:002061C8 + 244 0001:002061D6 245 0001:002061E7 246 0001:002061EA 248 0001:00206211 + 252 0001:00206218 253 0001:00206221 254 0001:0020622A 256 0001:0020625C + 257 0001:0020626B 259 0001:00206279 262 0001:002062AC 265 0001:002062B8 + +Line numbers for fReminderTree(fReminderTree.pas) segment .text + + 107 0001:00206730 108 0001:0020673A 109 0001:0020673F 110 0001:00206748 + 111 0001:00206761 112 0001:0020676B 117 0001:0020676C 118 0001:0020676F + 121 0001:00206770 122 0001:00206787 123 0001:002067A1 124 0001:002067AD + 125 0001:002067CA 127 0001:002067E0 128 0001:002067F4 129 0001:002067FE + 130 0001:00206805 131 0001:00206810 133 0001:0020681B 134 0001:00206838 + 135 0001:00206846 137 0001:00206871 138 0001:0020689E 144 0001:002068B4 + 145 0001:002068BB 147 0001:002068CB 148 0001:002068D5 149 0001:002068E3 + 151 0001:002068E7 153 0001:002068F9 154 0001:0020691C 157 0001:00206930 + 161 0001:00206946 162 0001:0020695B 164 0001:0020696D 167 0001:002069B0 + 170 0001:002069C2 179 0001:002069C8 180 0001:002069D1 181 0001:002069D9 + 183 0001:002069E2 184 0001:002069F2 185 0001:002069FA 187 0001:002069FF + 188 0001:00206A0B 189 0001:00206A19 190 0001:00206A23 191 0001:00206A36 + 192 0001:00206A44 193 0001:00206A52 194 0001:00206A60 195 0001:00206A71 + 196 0001:00206A7B 197 0001:00206A85 198 0001:00206A8F 200 0001:00206AA7 + 201 0001:00206AB1 202 0001:00206ABF 204 0001:00206AD5 205 0001:00206ADE + 207 0001:00206B00 209 0001:00206B2D 212 0001:00206B55 214 0001:00206B69 + 226 0001:00206BC4 227 0001:00206BC8 228 0001:00206BCA 231 0001:00206BD5 + 232 0001:00206BDE 229 0001:00206BE7 234 0001:00206BF1 236 0001:00206BF4 + 237 0001:00206C21 239 0001:00206C31 241 0001:00206C35 242 0001:00206C3E + 243 0001:00206C48 244 0001:00206C52 248 0001:00206C6C 249 0001:00206C82 + 250 0001:00206C89 251 0001:00206C8D 253 0001:00206C8F 254 0001:00206C92 + 256 0001:00206C9A 257 0001:00206CA9 258 0001:00206CB7 261 0001:00206CD1 + 262 0001:00206CDD 263 0001:00206CE1 264 0001:00206CEB 259 0001:00206CF4 + 266 0001:00206D04 268 0001:00206D0E 269 0001:00206D10 272 0001:00206D18 + 274 0001:00206D27 275 0001:00206D32 277 0001:00206D9F 278 0001:00206DAD + 280 0001:00206DAE 270 0001:00206DB7 283 0001:00206DCB 285 0001:00206DEE + 289 0001:00206E20 292 0001:00206E34 293 0001:00206E3B 295 0001:00206E81 + 296 0001:00206E85 298 0001:00206EAF 300 0001:00206ED9 303 0001:00206EE0 + 304 0001:00206EE7 305 0001:00206EF3 306 0001:00206EFD 307 0001:00206F0B + 308 0001:00206F15 310 0001:00206F2D 312 0001:00206F3F 316 0001:00206F44 + 317 0001:00206F4B 318 0001:00206F57 319 0001:00206F61 320 0001:00206F6F + 321 0001:00206F79 323 0001:00206F91 325 0001:00206FA3 331 0001:00206FA8 + 332 0001:00206FB1 333 0001:00206FCF 334 0001:00206FE7 336 0001:00206FF1 + 337 0001:00206FF3 338 0001:00207004 339 0001:00207030 340 0001:0020703C + 341 0001:00207050 342 0001:0020705E 343 0001:00207084 344 0001:0020709C + 345 0001:002070A3 347 0001:002070C0 349 0001:002070DC 350 0001:00207103 + 358 0001:00207108 359 0001:0020713C 360 0001:00207145 362 0001:0020714B + 364 0001:00207163 365 0001:00207176 369 0001:00207191 370 0001:002071A4 + 373 0001:002071BD 374 0001:002071CF 375 0001:002071F8 376 0001:0020720C + 377 0001:00207210 378 0001:0020723E 379 0001:00207247 380 0001:00207270 + 381 0001:0020729E 382 0001:002072A7 383 0001:002072D0 384 0001:00207328 + 387 0001:00207334 388 0001:00207337 389 0001:00207340 390 0001:0020734E + 394 0001:00207350 395 0001:0020735E 398 0001:00207360 399 0001:00207361 + 400 0001:0020736A 401 0001:00207382 402 0001:00207389 405 0001:0020738C + 406 0001:0020738D 407 0001:00207396 408 0001:002073AE 409 0001:002073B5 + 418 0001:002073B8 419 0001:002073C6 420 0001:002073C9 422 0001:002073CB + 424 0001:002073E5 425 0001:002073E7 427 0001:002073E9 420 0001:002073EA + 428 0001:002073EF 430 0001:002073F7 431 0001:00207408 432 0001:00207413 + 434 0001:00207429 436 0001:00207432 437 0001:0020743C 438 0001:00207450 + 439 0001:0020745E 440 0001:00207474 442 0001:00207478 443 0001:00207481 + 444 0001:0020748B 445 0001:00207496 446 0001:0020749F 440 0001:002074A8 + 449 0001:002074B9 450 0001:002074CD 452 0001:002074DF 453 0001:002074E9 + 455 0001:002074FA 464 0001:00207504 465 0001:00207525 467 0001:00207535 + 468 0001:00207544 469 0001:00207552 470 0001:0020755C 472 0001:00207560 + 473 0001:00207579 470 0001:00207582 475 0001:00207586 476 0001:00207591 + 477 0001:00207594 479 0001:002075B0 480 0001:002075B9 482 0001:002075C8 + 483 0001:002075E0 484 0001:002075EA 485 0001:002075F0 487 0001:002075FD + 488 0001:00207608 489 0001:0020760A 490 0001:00207613 491 0001:0020761D + 477 0001:00207620 493 0001:00207632 496 0001:0020765F 501 0001:00207668 + 502 0001:00207692 503 0001:002076E3 505 0001:002076EC 506 0001:00207712 + 507 0001:00207734 508 0001:00207748 509 0001:00207783 510 0001:002077BE + 512 0001:00207809 516 0001:0020781C 517 0001:00207823 523 0001:00207824 + 524 0001:00207840 525 0001:00207850 527 0001:00207854 528 0001:00207876 + 530 0001:0020789B 533 0001:002078BB 535 0001:002078C2 536 0001:002078ED + 540 0001:00207900 541 0001:00207903 542 0001:0020790A 545 0001:00207910 + 546 0001:0020791A 547 0001:00207926 548 0001:00207930 549 0001:0020793E + 550 0001:00207948 552 0001:0020795F 554 0001:00207971 576 0001:00207978 + 577 0001:00207992 578 0001:0020799F 580 0001:002079A3 581 0001:002079B6 + 582 0001:002079DB 584 0001:00207A22 592 0001:00207A34 593 0001:00207A50 + 594 0001:00207A5D 595 0001:00207A61 597 0001:00207A76 598 0001:00207A7E + 599 0001:00207A82 601 0001:00207AAA 602 0001:00207AAC 603 0001:00207AB9 + 604 0001:00207AD5 605 0001:00207AEA 606 0001:00207B0D 607 0001:00207B46 + 608 0001:00207B4A 610 0001:00207B91 611 0001:00207B93 612 0001:00207BA0 + 613 0001:00207BCB 617 0001:00207BF8 618 0001:00207BFD 622 0001:00207C00 + 623 0001:00207C05 626 0001:00207C08 627 0001:00207C1E 628 0001:00207C2E + 629 0001:00207C35 631 0001:00207C52 632 0001:00207C5D 633 0001:00207C65 + 634 0001:00207C6D 635 0001:00207C75 636 0001:00207C9A 639 0001:00207CA0 + 640 0001:00207CA3 641 0001:00207CAF 642 0001:00207CB4 643 0001:00207CBB + 647 0001:00207CC0 648 0001:00207CC5 652 0001:00207CC8 653 0001:00207CCF + 657 0001:00207CD0 658 0001:00207CDC 663 0001:00207CE0 664 0001:00207CE4 + 665 0001:00207CFE 666 0001:00207D18 667 0001:00207D32 668 0001:00207D39 + 669 0001:00207D42 670 0001:00207D5F 671 0001:00207D71 672 0001:00207D83 + 674 0001:00207D95 676 0001:00207DBB 679 0001:00207DE1 680 0001:00207DF8 + 681 0001:00207E01 684 0001:00207E04 685 0001:00207E0D 686 0001:00207E27 + 687 0001:00207E41 688 0001:00207E5B 689 0001:00207E75 695 0001:00207E7C + 696 0001:00207E97 697 0001:00207EAF 698 0001:00207EC3 699 0001:00207EED + 700 0001:00207EFB 701 0001:00207F09 702 0001:00207F17 704 0001:00207F45 + 707 0001:00207FAC 708 0001:00207FAF 709 0001:00207FC8 712 0001:00207FCC + 713 0001:00207FCF 714 0001:00207FE8 718 0001:00207FEC 719 0001:00207FF1 + 721 0001:00208024 721 0001:0020802B + +Line numbers for fConsMedRslt(Consults\fConsMedRslt.pas) segment .text + + 69 0001:002083A4 70 0001:002083C9 71 0001:002083E0 74 0001:002083EE + 75 0001:002083F8 76 0001:00208409 77 0001:0020841D 78 0001:00208428 + 79 0001:00208440 80 0001:0020845B 82 0001:00208463 84 0001:00208471 + 85 0001:0020848D 87 0001:0020849F 89 0001:002084AD 90 0001:002084C9 + 92 0001:002084D9 93 0001:002084F0 95 0001:002084FD 96 0001:00208507 + 97 0001:00208513 100 0001:00208536 102 0001:00208566 105 0001:0020858C + 106 0001:0020858F 107 0001:002085A1 108 0001:002085A8 109 0001:002085AF + 112 0001:002085B4 113 0001:002085CF 114 0001:002085E1 116 0001:002085F2 + 117 0001:00208605 118 0001:0020860C 120 0001:0020860E 121 0001:00208615 + 123 0001:0020861B 124 0001:00208634 125 0001:00208643 126 0001:00208654 + 128 0001:00208667 129 0001:0020868B 136 0001:002086E0 138 0001:00208702 + 139 0001:00208717 140 0001:002087AD 141 0001:002087CA 143 0001:002087D7 + 144 0001:0020880C 145 0001:00208824 146 0001:0020883A 147 0001:0020884D + 149 0001:002088B9 152 0001:0020890C 153 0001:0020890F 154 0001:00208919 + 155 0001:00208925 156 0001:0020892D 157 0001:00208940 158 0001:00208958 + 162 0001:0020895C 163 0001:0020895F 164 0001:00208970 165 0001:00208996 + 169 0001:00208998 171 0001:002089A1 172 0001:002089BF 175 0001:002089C8 + 176 0001:002089CB 177 0001:002089D2 178 0001:002089DF 188 0001:002089E4 + 190 0001:00208A1B 191 0001:00208A2A 192 0001:00208A38 194 0001:00208A4B + 195 0001:00208A68 196 0001:00208A72 197 0001:00208A85 198 0001:00208AB2 + 200 0001:00208AD3 203 0001:00208B2B 204 0001:00208B59 205 0001:00208B97 + 208 0001:00208BF0 210 0001:00208C32 212 0001:00208CDC 212 0001:00208CE3 + +Line numbers for fNoteIDParents(fNoteIDParents.pas) segment .text + + 39 0001:00208F10 40 0001:00208F36 41 0001:00208F4D 42 0001:00208F5C + 43 0001:00208F6A 44 0001:00208F72 46 0001:00208F8E 47 0001:00208FA1 + 50 0001:00208FA9 51 0001:00208FC4 53 0001:00209020 44 0001:00209021 + 54 0001:00209028 55 0001:00209037 56 0001:0020903F 57 0001:00209055 + 58 0001:00209060 60 0001:0020907E 61 0001:00209086 63 0001:002090C0 + 66 0001:002090D4 68 0001:002090D7 69 0001:002090E2 72 0001:002090E4 + 74 0001:002090E7 75 0001:002090F2 76 0001:002090F9 83 0001:002090FC + 85 0001:0020911D 86 0001:00209125 87 0001:0020914D 88 0001:00209158 + 90 0001:0020915E 91 0001:0020916D 93 0001:0020916F 94 0001:0020918B + 95 0001:002091C7 97 0001:00209218 97 0001:0020921F + +Line numbers for fNoteCPFields(fNoteCPFields.pas) segment .text + + 55 0001:002094A4 56 0001:002094C0 57 0001:002094D7 59 0001:002094E5 + 60 0001:002094ED 61 0001:002094F6 62 0001:00209501 63 0001:00209515 + 64 0001:00209528 65 0001:0020953B 66 0001:00209546 68 0001:00209552 + 69 0001:00209569 70 0001:00209574 73 0001:00209595 75 0001:002095BA + 78 0001:002095C4 80 0001:002095C7 81 0001:002095CE 82 0001:002095E3 + 83 0001:002095FB 88 0001:00209600 90 0001:00209616 91 0001:00209620 + 95 0001:0020963E 96 0001:00209645 98 0001:0020966C 101 0001:00209690 + 102 0001:00209699 103 0001:002096D3 105 0001:002096E0 106 0001:00209703 + 107 0001:00209714 108 0001:00209734 109 0001:00209770 113 0001:00209787 + 114 0001:00209798 116 0001:002097AE 117 0001:002097CB 118 0001:00209804 + 121 0001:00209816 126 0001:00209974 128 0001:0020998A 129 0001:00209994 + 130 0001:0020999A 131 0001:002099AD 132 0001:002099B4 133 0001:002099D8 + 137 0001:00209AA8 138 0001:00209AB1 139 0001:00209ACF 141 0001:00209B08 + 141 0001:00209B0F + +Line numbers for fConsults(Consults\fConsults.pas) segment .text + + 549 0001:0020B5F0 550 0001:0020B5F7 551 0001:0020B602 552 0001:0020B60E + 553 0001:0020B618 555 0001:0020B62C 557 0001:0020B64B 558 0001:0020B657 + 561 0001:0020B65D 563 0001:0020B66B 564 0001:0020B672 565 0001:0020B680 + 569 0001:0020B691 570 0001:0020B69A 572 0001:0020B6B9 573 0001:0020B6C8 + 575 0001:0020B6D6 576 0001:0020B6E2 579 0001:0020B6E8 580 0001:0020B6FD + 583 0001:0020B706 584 0001:0020B710 586 0001:0020B724 588 0001:0020B743 + 589 0001:0020B74F 592 0001:0020B755 594 0001:0020B763 595 0001:0020B76A + 596 0001:0020B778 600 0001:0020B789 604 0001:0020B884 605 0001:0020B887 + 606 0001:0020B88E 607 0001:0020B895 608 0001:0020B8A3 609 0001:0020B8B1 + 610 0001:0020B8BF 611 0001:0020B8C6 612 0001:0020B8D7 613 0001:0020B8E2 + 614 0001:0020B8F3 615 0001:0020B904 616 0001:0020B915 617 0001:0020B926 + 618 0001:0020B937 619 0001:0020B93E 620 0001:0020B94C 621 0001:0020B95A + 622 0001:0020B964 623 0001:0020B96E 624 0001:0020B979 629 0001:0020B97C + 630 0001:0020B9B4 632 0001:0020B9BD 633 0001:0020B9C7 635 0001:0020B9D1 + 636 0001:0020B9E5 637 0001:0020B9EC 638 0001:0020B9F6 639 0001:0020BA03 + 640 0001:0020BA10 641 0001:0020BA1D 642 0001:0020BA28 645 0001:0020BA35 + 646 0001:0020BA43 647 0001:0020BA51 648 0001:0020BA5F 649 0001:0020BA6D + 650 0001:0020BA76 651 0001:0020BA84 652 0001:0020BA87 654 0001:0020BAB3 + 658 0001:0020BABC 659 0001:0020BADC 660 0001:0020BAE3 661 0001:0020BAF5 + 662 0001:0020BB09 663 0001:0020BB16 664 0001:0020BB2A 665 0001:0020BB3E + 666 0001:0020BB45 668 0001:0020BB54 669 0001:0020BB70 670 0001:0020BB87 + 671 0001:0020BB99 672 0001:0020BBAD 673 0001:0020BBC1 674 0001:0020BBDA + 676 0001:0020BBEA 677 0001:0020BBF7 678 0001:0020BBFE 679 0001:0020BC05 + 680 0001:0020BC2A 682 0001:0020BC3E 684 0001:0020BC4B 685 0001:0020BC59 + 687 0001:0020BC64 689 0001:0020BC73 692 0001:0020BC9D 696 0001:0020BCA4 + 697 0001:0020BCAA 698 0001:0020BCB3 699 0001:0020BCC3 700 0001:0020BCD3 + 701 0001:0020BCE3 702 0001:0020BCF2 704 0001:0020BD02 710 0001:0020BD08 + 711 0001:0020BD14 716 0001:0020BD18 718 0001:0020BD1C 720 0001:0020BD22 + 721 0001:0020BD26 722 0001:0020BD2B 723 0001:0020BD33 724 0001:0020BD3B + 725 0001:0020BD49 726 0001:0020BD51 727 0001:0020BD5F 728 0001:0020BD67 + 729 0001:0020BD6F 730 0001:0020BD74 732 0001:0020BD7C 733 0001:0020BD84 + 734 0001:0020BD89 735 0001:0020BD91 736 0001:0020BD95 737 0001:0020BD9A + 740 0001:0020BDA2 741 0001:0020BDAF 742 0001:0020BDBD 744 0001:0020BDCA + 746 0001:0020BDD4 747 0001:0020BDDE 748 0001:0020BDEA 749 0001:0020BDF3 + 750 0001:0020BDFA 764 0001:0020BE00 765 0001:0020BE3B 766 0001:0020BE3F + 767 0001:0020BE44 768 0001:0020BE52 769 0001:0020BE5A 770 0001:0020BE6A + 771 0001:0020BE7A 772 0001:0020BE8E 774 0001:0020BE97 776 0001:0020BE9D + 777 0001:0020BEA4 778 0001:0020BEAC 779 0001:0020BEBF 783 0001:0020BECE + 784 0001:0020BED4 785 0001:0020BEDC 786 0001:0020BEEF 788 0001:0020BEFC + 790 0001:0020BF11 791 0001:0020BF16 793 0001:0020BF1E 794 0001:0020BF27 + 795 0001:0020BF3A 796 0001:0020BF4D 797 0001:0020BF5A 798 0001:0020BF74 + 799 0001:0020BF87 800 0001:0020BF8D 802 0001:0020BF92 803 0001:0020BF97 + 804 0001:0020BFEE 805 0001:0020BFFF 809 0001:0020C00C 810 0001:0020C024 + 812 0001:0020C049 814 0001:0020C04B 815 0001:0020C078 818 0001:0020C080 + 819 0001:0020C08C 820 0001:0020C0A6 821 0001:0020C0BB 823 0001:0020C0CE + 824 0001:0020C0DF 825 0001:0020C0EA 826 0001:0020C0FE 828 0001:0020C108 + 830 0001:0020C12A 831 0001:0020C131 832 0001:0020C145 833 0001:0020C158 + 834 0001:0020C166 835 0001:0020C17A 836 0001:0020C18E 838 0001:0020C195 + 840 0001:0020C19E 845 0001:0020C27C 846 0001:0020C294 847 0001:0020C29B + 848 0001:0020C2AF 850 0001:0020C2B9 851 0001:0020C2F2 852 0001:0020C2FE + 853 0001:0020C30A 854 0001:0020C33F 855 0001:0020C34B 859 0001:0020C35C + 861 0001:0020C38D 862 0001:0020C399 863 0001:0020C3A2 864 0001:0020C3D7 + 865 0001:0020C3E3 867 0001:0020C3EF 868 0001:0020C3FB 869 0001:0020C405 + 870 0001:0020C415 871 0001:0020C429 873 0001:0020C430 874 0001:0020C472 + 875 0001:0020C485 876 0001:0020C48F 877 0001:0020C49E 878 0001:0020C4A4 + 879 0001:0020C4B3 880 0001:0020C4C4 881 0001:0020C4CE 882 0001:0020C4D9 + 883 0001:0020C4E4 884 0001:0020C4F7 889 0001:0020C525 891 0001:0020C540 + 892 0001:0020C546 893 0001:0020C555 896 0001:0020C557 898 0001:0020C55B + 899 0001:0020C563 900 0001:0020C573 902 0001:0020C583 904 0001:0020C598 + 906 0001:0020C59E 907 0001:0020C5C3 908 0001:0020C5FE 909 0001:0020C615 + 911 0001:0020C61D 912 0001:0020C623 914 0001:0020C699 927 0001:0020C7BC + 928 0001:0020C7EC 929 0001:0020C7F9 930 0001:0020C800 931 0001:0020C80D + 932 0001:0020C81A 934 0001:0020C820 935 0001:0020C826 936 0001:0020C83B + 937 0001:0020C87C 938 0001:0020C885 939 0001:0020C898 940 0001:0020C8AB + 941 0001:0020C8BE 943 0001:0020C8E0 944 0001:0020C8FE 945 0001:0020C91E + 947 0001:0020C93C 952 0001:0020C94A 953 0001:0020C955 955 0001:0020C978 + 957 0001:0020C97C 958 0001:0020C98B 959 0001:0020C99B 961 0001:0020C9A5 + 962 0001:0020C9BC 963 0001:0020C9D2 964 0001:0020C9E0 965 0001:0020CA08 + 966 0001:0020CA1F 967 0001:0020CA33 968 0001:0020CA3E 969 0001:0020CA52 + 971 0001:0020CA5C 973 0001:0020CA62 977 0001:0020CB10 979 0001:0020CB25 + 980 0001:0020CB2C 981 0001:0020CB3D 983 0001:0020CB6B 984 0001:0020CB77 + 985 0001:0020CB80 986 0001:0020CBAC 987 0001:0020CBB6 988 0001:0020CBC2 + 989 0001:0020CBCE 990 0001:0020CBDB 991 0001:0020CBEC 993 0001:0020CBF3 + 994 0001:0020CC28 995 0001:0020CC38 996 0001:0020CC41 997 0001:0020CC4F + 998 0001:0020CC58 999 0001:0020CC61 1000 0001:0020CC74 1004 0001:0020CC84 + 1006 0001:0020CC9B 1007 0001:0020CCAA 1008 0001:0020CCAE 1009 0001:0020CCBB + 1012 0001:0020CCC8 1013 0001:0020CCD5 1014 0001:0020CD0C 1028 0001:0020CDE8 + 1029 0001:0020CE0A 1030 0001:0020CE12 1031 0001:0020CE32 1032 0001:0020CE36 + 1033 0001:0020CE3B 1034 0001:0020CE49 1035 0001:0020CE64 1036 0001:0020CEB2 + 1037 0001:0020CECF 1038 0001:0020CEEC 1039 0001:0020CEF6 1041 0001:0020CF06 + 1042 0001:0020CF13 1043 0001:0020CF5F 1044 0001:0020CFAB 1045 0001:0020CFD8 + 1047 0001:0020CFEA 1048 0001:0020CFF1 1049 0001:0020D005 1050 0001:0020D023 + 1052 0001:0020D027 1054 0001:0020D058 1057 0001:0020D066 1058 0001:0020D06D + 1059 0001:0020D096 1060 0001:0020D09F 1061 0001:0020D0CE 1062 0001:0020D0D8 + 1063 0001:0020D105 1065 0001:0020D113 1066 0001:0020D11F 1067 0001:0020D129 + 1068 0001:0020D139 1069 0001:0020D14D 1071 0001:0020D154 1072 0001:0020D1A1 + 1073 0001:0020D1C1 1074 0001:0020D1D4 1075 0001:0020D1EB 1076 0001:0020D1FA + 1079 0001:0020D229 1080 0001:0020D23E 1081 0001:0020D24A 1082 0001:0020D25F + 1084 0001:0020D277 1085 0001:0020D28C 1086 0001:0020D298 1093 0001:0020D2AD + 1095 0001:0020D2D3 1096 0001:0020D2D9 1097 0001:0020D2E8 1099 0001:0020D2F9 + 1100 0001:0020D313 1101 0001:0020D31E 1102 0001:0020D329 1103 0001:0020D33C + 1105 0001:0020D35A 1107 0001:0020D364 1108 0001:0020D390 1109 0001:0020D3C5 + 1110 0001:0020D3DC 1112 0001:0020D3E4 1113 0001:0020D3EA 1115 0001:0020D449 + 1126 0001:0020D4F4 1128 0001:0020D50A 1130 0001:0020D53F 1132 0001:0020D561 + 1133 0001:0020D56F 1135 0001:0020D580 1136 0001:0020D58E 1137 0001:0020D597 + 1142 0001:0020D59C 1143 0001:0020D5D8 1145 0001:0020D5F8 1147 0001:0020D5FC + 1148 0001:0020D62F 1149 0001:0020D635 1150 0001:0020D639 1153 0001:0020D668 + 1155 0001:0020D674 1156 0001:0020D683 1157 0001:0020D694 1158 0001:0020D6A8 + 1159 0001:0020D6CF 1161 0001:0020D6DB 1162 0001:0020D6E5 1164 0001:0020D6F4 + 1167 0001:0020D727 1168 0001:0020D741 1169 0001:0020D75D 1170 0001:0020D764 + 1171 0001:0020D793 1172 0001:0020D79A 1173 0001:0020D7B5 1178 0001:0020D804 + 1179 0001:0020D80E 1180 0001:0020D819 1181 0001:0020D81F 1184 0001:0020D82E + 1185 0001:0020D838 1188 0001:0020D83D 1189 0001:0020D855 1190 0001:0020D876 + 1191 0001:0020D889 1192 0001:0020D899 1193 0001:0020D8A7 1195 0001:0020D8DE + 1198 0001:0020D8F6 1200 0001:0020D8FC 1202 0001:0020D918 1203 0001:0020D923 + 1205 0001:0020D92E 1206 0001:0020D939 1207 0001:0020D93F 1210 0001:0020D94B + 1211 0001:0020D957 1213 0001:0020D9DA 1217 0001:0020DC60 1218 0001:0020DC69 + 1219 0001:0020DC6E 1226 0001:0020DC70 1228 0001:0020DC73 1229 0001:0020DC7E + 1230 0001:0020DC89 1231 0001:0020DC97 1232 0001:0020DCA2 1233 0001:0020DCB0 + 1244 0001:0020DCB4 1246 0001:0020DCD3 1247 0001:0020DCE3 1248 0001:0020DCF1 + 1249 0001:0020DCF8 1252 0001:0020DD11 1253 0001:0020DD43 1254 0001:0020DD53 + 1255 0001:0020DD60 1257 0001:0020DD65 1258 0001:0020DD72 1259 0001:0020DD7F + 1260 0001:0020DD8A 1261 0001:0020DD9A 1262 0001:0020DDA4 1263 0001:0020DDB1 + 1264 0001:0020DDBE 1265 0001:0020DDCE 1267 0001:0020DDD9 1269 0001:0020DDEC + 1270 0001:0020DE02 1271 0001:0020DE12 1275 0001:0020DE38 1276 0001:0020DE62 + 1277 0001:0020DE83 1278 0001:0020DEA1 1279 0001:0020DEAC 1280 0001:0020DEBC + 1281 0001:0020DEC3 1282 0001:0020DED4 1283 0001:0020DEDF 1284 0001:0020DEF0 + 1286 0001:0020DF16 1288 0001:0020DF1C 1290 0001:0020DF2D 1291 0001:0020DF50 + 1293 0001:0020DF65 1294 0001:0020DF70 1296 0001:0020DF81 1297 0001:0020DFA4 + 1300 0001:0020DFB9 1302 0001:0020DFBF 1303 0001:0020DFC6 1304 0001:0020DFDC + 1305 0001:0020E01C 1306 0001:0020E025 1307 0001:0020E044 1308 0001:0020E04F + 1313 0001:0020E080 1314 0001:0020E0A1 1315 0001:0020E0AB 1316 0001:0020E0C0 + 1318 0001:0020E0C9 1319 0001:0020E0DA 1320 0001:0020E0E1 1323 0001:0020E0EC + 1324 0001:0020E0F3 1325 0001:0020E0FA 1326 0001:0020E101 1327 0001:0020E10F + 1328 0001:0020E11F 1329 0001:0020E12D 1330 0001:0020E182 1336 0001:0020E2C8 + 1338 0001:0020E301 1339 0001:0020E305 1340 0001:0020E30A 1341 0001:0020E312 + 1342 0001:0020E317 1343 0001:0020E31C 1345 0001:0020E32C 1346 0001:0020E339 + 1347 0001:0020E39C 1348 0001:0020E3BD 1349 0001:0020E3E3 1350 0001:0020E407 + 1351 0001:0020E42B 1353 0001:0020E474 1359 0001:0020E4B8 1361 0001:0020E4EE + 1362 0001:0020E4F2 1363 0001:0020E4F7 1364 0001:0020E4FF 1365 0001:0020E504 + 1367 0001:0020E509 1369 0001:0020E519 1370 0001:0020E526 1371 0001:0020E556 + 1372 0001:0020E57C 1373 0001:0020E5A0 1374 0001:0020E5C4 1376 0001:0020E60D + 1382 0001:0020E650 1383 0001:0020E657 1388 0001:0020E658 1389 0001:0020E65F + 1395 0001:0020E660 1397 0001:0020E669 1398 0001:0020E687 1404 0001:0020E690 + 1405 0001:0020E697 1415 0001:0020E698 1418 0001:0020E6B6 1420 0001:0020E6BF + 1421 0001:0020E6C9 1423 0001:0020E6D3 1424 0001:0020E6D5 1426 0001:0020E6EA + 1427 0001:0020E6F2 1428 0001:0020E723 1429 0001:0020E742 1430 0001:0020E761 + 1432 0001:0020E780 1433 0001:0020E79A 1435 0001:0020E7B0 1438 0001:0020E7B4 + 1440 0001:0020E7BA 1442 0001:0020E7DC 1443 0001:0020E7E6 1444 0001:0020E7E8 + 1448 0001:0020E7FA 1449 0001:0020E804 1450 0001:0020E806 1453 0001:0020E816 + 1454 0001:0020E832 1456 0001:0020E836 1457 0001:0020E840 1458 0001:0020E84D + 1459 0001:0020E86E 1460 0001:0020E875 1462 0001:0020E87C 1463 0001:0020E8AF + 1474 0001:0020E920 1476 0001:0020E94D 1477 0001:0020E966 1479 0001:0020E96F + 1480 0001:0020E982 1482 0001:0020E98E 1483 0001:0020E9A1 1485 0001:0020E9A6 + 1486 0001:0020E9B2 1490 0001:0020E9BE 1491 0001:0020E9C7 1493 0001:0020E9DB + 1494 0001:0020EA05 1496 0001:0020EA0F 1497 0001:0020EA46 1498 0001:0020EA59 + 1499 0001:0020EA73 1501 0001:0020EA79 1502 0001:0020EA88 1504 0001:0020EA8D + 1506 0001:0020EA9B 1509 0001:0020EAAA 1511 0001:0020EABA 1512 0001:0020EAD0 + 1514 0001:0020EADC 1516 0001:0020EAEC 1517 0001:0020EAFF 1519 0001:0020EB04 + 1520 0001:0020EB0B 1521 0001:0020EB0D 1523 0001:0020EB1E 1526 0001:0020EB2D + 1528 0001:0020EB3D 1529 0001:0020EB53 1531 0001:0020EB5F 1533 0001:0020EB6F + 1534 0001:0020EB82 1536 0001:0020EB84 1537 0001:0020EB8B 1538 0001:0020EB8D + 1540 0001:0020EB9B 1541 0001:0020EBCA 1551 0001:0020ED14 1554 0001:0020ED18 + 1555 0001:0020ED25 1560 0001:0020ED35 1562 0001:0020ED45 1563 0001:0020ED5B + 1565 0001:0020ED67 1567 0001:0020ED77 1568 0001:0020ED8A 1570 0001:0020ED8D + 1571 0001:0020ED9A 1577 0001:0020EE0C 1579 0001:0020EE32 1588 0001:0020EE4B + 1591 0001:0020EE6B 1593 0001:0020EE81 1594 0001:0020EE92 1596 0001:0020EE94 + 1599 0001:0020EEA4 1600 0001:0020EEBE 1602 0001:0020EEC4 1603 0001:0020EED3 + 1605 0001:0020EED5 1608 0001:0020EEEE 1609 0001:0020EEFF 1611 0001:0020EF01 + 1612 0001:0020EF08 1613 0001:0020EF32 1620 0001:0020F040 1621 0001:0020F061 + 1622 0001:0020F07A 1623 0001:0020F093 1625 0001:0020F09C 1626 0001:0020F0A6 + 1627 0001:0020F0B0 1628 0001:0020F0DC 1629 0001:0020F0E5 1631 0001:0020F111 + 1633 0001:0020F12D 1634 0001:0020F154 1635 0001:0020F17B 1636 0001:0020F18A + 1638 0001:0020F18F 1642 0001:0020F1FA 1643 0001:0020F212 1644 0001:0020F22F + 1646 0001:0020F23E 1647 0001:0020F254 1648 0001:0020F27B 1652 0001:0020F29E + 1653 0001:0020F2C5 1654 0001:0020F2EC 1656 0001:0020F33F 1667 0001:0020F414 + 1669 0001:0020F444 1670 0001:0020F45D 1671 0001:0020F477 1673 0001:0020F492 + 1674 0001:0020F4A1 1676 0001:0020F4A6 1678 0001:0020F4BA 1679 0001:0020F4CD + 1681 0001:0020F4D2 1683 0001:0020F504 1685 0001:0020F518 1686 0001:0020F525 + 1689 0001:0020F534 1690 0001:0020F541 1692 0001:0020F54E 1693 0001:0020F566 + 1695 0001:0020F56C 1696 0001:0020F57B 1698 0001:0020F57D 1699 0001:0020F591 + 1700 0001:0020F625 1710 0001:0020F7F8 1712 0001:0020F839 1713 0001:0020F852 + 1714 0001:0020F86C 1715 0001:0020F886 1716 0001:0020F899 1718 0001:0020F8AC + 1721 0001:0020F905 1722 0001:0020F921 1723 0001:0020F935 1724 0001:0020F946 + 1725 0001:0020F95F 1726 0001:0020F96C 1728 0001:0020F9A3 1729 0001:0020F9AD + 1731 0001:0020F9B7 1732 0001:0020F9C1 1740 0001:0020F9C8 1741 0001:0020F9CC + 1742 0001:0020F9D6 1744 0001:0020F9F5 1745 0001:0020F9FF 1746 0001:0020FA0B + 1747 0001:0020FA39 1748 0001:0020FA5B 1749 0001:0020FA6F 1751 0001:0020FA7C + 1753 0001:0020FA86 1754 0001:0020FA8E 1756 0001:0020FA95 1757 0001:0020FAA2 + 1758 0001:0020FAB9 1759 0001:0020FAC6 1765 0001:0020FAE1 1766 0001:0020FAEE + 1767 0001:0020FAF9 1768 0001:0020FB06 1769 0001:0020FB11 1770 0001:0020FB1E + 1771 0001:0020FB23 1772 0001:0020FB2C 1773 0001:0020FB38 1774 0001:0020FB45 + 1775 0001:0020FB52 1776 0001:0020FB59 1777 0001:0020FB66 1778 0001:0020FB73 + 1779 0001:0020FBA9 1783 0001:0020FBB2 1790 0001:0020FBC1 1791 0001:0020FC29 + 1798 0001:0020FDB8 1800 0001:0020FDDD 1803 0001:0020FDF3 1806 0001:0020FE03 + 1807 0001:0020FE1D 1809 0001:0020FE23 1810 0001:0020FE32 1812 0001:0020FE34 + 1813 0001:0020FE5E 1822 0001:0020FE9C 1824 0001:0020FEBE 1826 0001:0020FECB + 1827 0001:0020FEF7 1828 0001:0020FF05 1829 0001:0020FF1E 1830 0001:0020FF28 + 1833 0001:0020FF4C 1834 0001:0020FF59 1835 0001:0020FF64 1836 0001:0020FF71 + 1837 0001:0020FF7E 1838 0001:0020FF8F 1840 0001:0020FF95 1841 0001:0020FF9C + 1842 0001:0020FFC2 1843 0001:0020FFD9 1844 0001:0020FFEB 1845 0001:00210013 + 1846 0001:0021001D 1847 0001:0021002A 1848 0001:00210031 1849 0001:0021003A + 1853 0001:00210045 1854 0001:0021004C 1855 0001:00210073 1856 0001:0021007C + 1858 0001:002100A3 1861 0001:002100B0 1862 0001:002100C3 1863 0001:002100D3 + 1864 0001:0021012C 1879 0001:00210174 1889 0001:002101B2 1890 0001:002101CB + 1891 0001:002101E4 1892 0001:002101F2 1894 0001:0021020A 1895 0001:00210214 + 1897 0001:0021022D 1899 0001:00210230 1900 0001:00210249 1902 0001:0021025C + 1904 0001:00210277 1905 0001:00210286 1907 0001:0021028B 1909 0001:0021029F + 1910 0001:002102B2 1912 0001:002102B7 1914 0001:002102E9 1916 0001:002102FD + 1917 0001:0021030A 1920 0001:00210319 1921 0001:00210326 1923 0001:00210333 + 1925 0001:0021034F 1926 0001:00210353 1927 0001:0021036B 1929 0001:00210375 + 1930 0001:0021038F 1931 0001:002103A3 1933 0001:002103AE 1934 0001:002103BE + 1935 0001:002103C7 1937 0001:002103D0 1939 0001:002103E4 1942 0001:00210428 + 1944 0001:00210432 1945 0001:00210477 1947 0001:00210487 1948 0001:0021049F + 1949 0001:002104B5 1950 0001:002104E5 1951 0001:0021051E 1953 0001:00210528 + 1954 0001:00210535 1955 0001:00210540 1956 0001:0021054D 1957 0001:0021055A + 1958 0001:0021056B 1960 0001:00210571 1961 0001:00210578 1962 0001:0021059E + 1963 0001:002105B5 1964 0001:002105C7 1965 0001:002105F5 1966 0001:002105FF + 1967 0001:0021060C 1968 0001:00210613 1973 0001:00210621 1974 0001:00210628 + 1979 0001:00210651 1982 0001:00210662 1985 0001:002106A0 1986 0001:002106AF + 1987 0001:002106C7 1989 0001:002106E7 1991 0001:002106F0 1993 0001:002106FA + 1994 0001:0021070F 1996 0001:0021073D 1997 0001:00210749 1998 0001:00210752 + 2000 0001:00210784 2001 0001:0021078E 2002 0001:002107A0 2005 0001:002107B7 + 2007 0001:002107BD 2008 0001:002107E1 2010 0001:002108A7 2027 0001:00210B24 + 2028 0001:00210B75 2029 0001:00210B7C 2030 0001:00210B87 2031 0001:00210B8F + 2032 0001:00210B99 2034 0001:00210BAC 2035 0001:00210BCC 2037 0001:00210C08 + 2038 0001:00210C0B 2039 0001:00210C0D 2035 0001:00210C0E 2040 0001:00210C13 + 2042 0001:00210C24 2043 0001:00210C2E 2044 0001:00210C38 2046 0001:00210C41 + 2047 0001:00210C48 2049 0001:00210C4D 2052 0001:00210C60 2054 0001:00210C70 + 2056 0001:00210C7B 2057 0001:00210C88 2060 0001:00210C97 2061 0001:00210CA4 + 2063 0001:00210CB1 2064 0001:00210CBE 2066 0001:00210CC4 2067 0001:00210CD3 + 2069 0001:00210CD7 2071 0001:00210CEA 2072 0001:00210CF9 2074 0001:00210CFD + 2076 0001:00210D08 2077 0001:00210D1B 2079 0001:00210D1F 2081 0001:00210D45 + 2082 0001:00210D49 2083 0001:00210D4B 2085 0001:00210D53 2086 0001:00210D6C + 2088 0001:00210D74 2089 0001:00210D76 2090 0001:00210D82 2091 0001:00210D96 + 2093 0001:00210DA5 2094 0001:00210DB5 2095 0001:00210DBE 2098 0001:00210DC9 + 2099 0001:00210DD3 2101 0001:00210DD9 2102 0001:00210DE6 2107 0001:00210DFB + 2108 0001:00210E09 2109 0001:00210E13 2110 0001:00210E3F 2111 0001:00210E50 + 2113 0001:00210E56 2114 0001:00210E82 2115 0001:00210E89 2116 0001:00210EAF + 2117 0001:00210EC6 2118 0001:00210ED8 2119 0001:00210F00 2120 0001:00210F0A + 2121 0001:00210F17 2122 0001:00210F1E 2123 0001:00210F27 2127 0001:00210F35 + 2128 0001:00210F3C 2129 0001:00210F68 2130 0001:00210F8F 2131 0001:00210F98 + 2133 0001:00210FC9 2134 0001:00211016 2137 0001:00211208 2139 0001:0021120B + 2140 0001:00211218 2141 0001:00211224 2142 0001:00211231 2143 0001:00211241 + 2144 0001:00211248 2152 0001:0021124C 2154 0001:00211271 2155 0001:0021128A + 2156 0001:002112A3 2158 0001:002112AC 2159 0001:002112B6 2161 0001:002112C0 + 2162 0001:00211304 2163 0001:00211320 2164 0001:00211329 2165 0001:00211330 + 2166 0001:0021133D 2167 0001:0021134A 2168 0001:00211357 2169 0001:0021138D + 2170 0001:00211393 2172 0001:002113AB 2174 0001:002113F2 2176 0001:0021141F + 2177 0001:00211430 2179 0001:00211436 2180 0001:0021143D 2181 0001:00211463 + 2182 0001:0021147A 2183 0001:0021148C 2184 0001:002114B4 2185 0001:002114BE + 2186 0001:002114CB 2187 0001:002114D2 2188 0001:002114DB 2199 0001:002114E6 + 2200 0001:002114ED 2201 0001:00211514 2204 0001:0021151D 2206 0001:0021153D + 2207 0001:0021154A 2208 0001:00211557 2209 0001:0021159B 2212 0001:002115B8 + 2215 0001:002115D6 2217 0001:00211607 2218 0001:00211619 2219 0001:00211629 + 2222 0001:00211635 2224 0001:00211642 2225 0001:00211654 2226 0001:0021167F + 2227 0001:00211690 2231 0001:002116A0 2233 0001:002116AD 2234 0001:002116BF + 2235 0001:002116E0 2236 0001:002116F1 2240 0001:00211701 2242 0001:0021170E + 2243 0001:00211720 2245 0001:00211782 2246 0001:00211793 2247 0001:002117A4 + 2251 0001:002117B4 2253 0001:002117C1 2254 0001:002117D3 2255 0001:002117FE + 2256 0001:0021180F 2257 0001:00211820 2258 0001:00211831 2259 0001:00211842 + 2260 0001:00211853 2264 0001:0021185E 2265 0001:0021187A 2266 0001:002118C0 + 2272 0001:0021196C 2274 0001:0021197A 2275 0001:00211988 2277 0001:0021199A + 2278 0001:002119A7 2282 0001:002119AC 2283 0001:002119C4 2292 0001:002119CD + 2293 0001:002119F3 2295 0001:00211A0E 2298 0001:00211A2E 2308 0001:00211A58 + 2309 0001:00211A85 2314 0001:00211AAA 2317 0001:00211AD3 2321 0001:00211AF8 + 2326 0001:00211B22 2329 0001:00211B42 2334 0001:00211B6E 2335 0001:00211B7B + 2336 0001:00211B88 2337 0001:00211B95 2338 0001:00211BA2 2339 0001:00211BAF + 2357 0001:00211C91 2359 0001:00211CA5 2364 0001:00211CB0 2365 0001:00211CCE + 2374 0001:00211D19 2382 0001:00211D7C 2389 0001:00211DDF 2393 0001:00211E26 + 2398 0001:00211E6A 2400 0001:00211E96 2406 0001:00211EF5 2412 0001:00211F54 + 2423 0001:00212008 2434 0001:002120BC 2440 0001:0021211B 2444 0001:00212168 + 2448 0001:002121B5 2450 0001:002121F9 2453 0001:0021223D 2455 0001:00212266 + 2456 0001:00212273 2457 0001:00212280 2460 0001:0021228D 2462 0001:002122A1 + 2464 0001:002122B5 2466 0001:002122C9 2468 0001:002122DD 2470 0001:002122F1 + 2472 0001:00212305 2474 0001:00212319 2475 0001:0021234A 2485 0001:00212350 + 2486 0001:0021237E 2487 0001:002123B1 2488 0001:002123C2 2492 0001:002123E4 + 2493 0001:002123FD 2494 0001:00212417 2495 0001:00212426 2496 0001:00212434 + 2497 0001:00212442 2499 0001:0021246B 2501 0001:0021247B 2502 0001:00212495 + 2503 0001:002124CD 2504 0001:002124E2 2506 0001:002124FD 2508 0001:00212506 + 2509 0001:0021250F 2511 0001:00212517 2512 0001:0021251D 2516 0001:00212527 + 2517 0001:0021252D 2519 0001:00212535 2520 0001:00212541 2521 0001:00212553 + 2522 0001:00212563 2523 0001:00212573 2525 0001:00212597 2531 0001:002125AC + 2533 0001:002125BC 2534 0001:002125C8 2535 0001:002125D4 2536 0001:002125E4 + 2537 0001:002125F4 2538 0001:00212611 2539 0001:00212621 2542 0001:00212642 + 2543 0001:0021265F 2545 0001:00212669 2548 0001:00212673 2549 0001:002126C0 + 2550 0001:002126E0 2551 0001:002126F9 2552 0001:00212713 2553 0001:00212722 + 2554 0001:00212730 2555 0001:0021274E 2557 0001:00212777 2559 0001:00212787 + 2560 0001:002127A8 2561 0001:002127BD 2563 0001:002127D8 2566 0001:002127E1 + 2568 0001:002127EB 2569 0001:002127FE 2570 0001:0021281C 2571 0001:00212866 + 2574 0001:002128DC 2575 0001:002128E2 2576 0001:002128EF 2577 0001:002128FC + 2578 0001:00212900 2579 0001:00212917 2580 0001:00212922 2583 0001:00212928 + 2584 0001:0021295F 2585 0001:00212968 2586 0001:00212978 2587 0001:00212997 + 2588 0001:002129B6 2589 0001:002129D5 2590 0001:002129F4 2591 0001:00212A13 + 2592 0001:00212A32 2593 0001:00212A51 2594 0001:00212A70 2595 0001:00212AB1 + 2601 0001:00212B24 2603 0001:00212B47 2604 0001:00212B60 2605 0001:00212B66 + 2607 0001:00212B78 2608 0001:00212B85 2609 0001:00212B92 2610 0001:00212B9F + 2611 0001:00212BAA 2612 0001:00212BB7 2613 0001:00212BC4 2614 0001:00212BD1 + 2618 0001:00212BDB 2619 0001:00212BE5 2621 0001:00212BEE 2622 0001:00212BFB + 2624 0001:00212C08 2625 0001:00212C44 2626 0001:00212C65 2627 0001:00212C72 + 2628 0001:00212C7F 2629 0001:00212C84 2630 0001:00212C8F 2631 0001:00212C9C + 2633 0001:00212CF1 2634 0001:00212D25 2635 0001:00212DBB 2639 0001:00212DDD + 2640 0001:00212DF7 2641 0001:00212E04 2642 0001:00212E11 2644 0001:00212E60 + 2646 0001:00212E70 2648 0001:00212ED9 2649 0001:00212EEF 2651 0001:00212EF6 + 2652 0001:00212F01 2653 0001:00212F0F 2654 0001:00212F1D 2655 0001:00212F24 + 2656 0001:00212FE5 2659 0001:00213058 2661 0001:0021305E 2662 0001:0021307A + 2663 0001:0021308F 2664 0001:00213097 2666 0001:002130A5 2667 0001:002130BF + 2668 0001:002130D3 2670 0001:00213105 2671 0001:00213130 2675 0001:0021314D + 2676 0001:0021315A 2677 0001:00213167 2678 0001:00213174 2680 0001:00213181 + 2682 0001:00213191 2683 0001:0021319E 2684 0001:002131AB 2685 0001:002131B8 + 2686 0001:002131D3 2687 0001:00213206 2690 0001:0021323C 2691 0001:00213249 + 2692 0001:00213256 2693 0001:00213263 2694 0001:00213270 2695 0001:0021327D + 2697 0001:0021328A 2702 0001:00213290 2703 0001:0021329B 2708 0001:0021329C + 2709 0001:002132A7 2712 0001:002132A8 2714 0001:002132BE 2716 0001:002132F6 + 2721 0001:002132FC 2722 0001:00213311 2723 0001:00213318 2726 0001:0021331C + 2728 0001:00213324 2729 0001:00213341 2731 0001:00213347 2732 0001:00213376 + 2733 0001:0021337F 2734 0001:00213389 2736 0001:00213390 2740 0001:0021339C + 2741 0001:002133B9 2746 0001:002133BC 2747 0001:002133D9 2752 0001:002133DC + 2753 0001:002133F9 2756 0001:002133FC 2758 0001:00213404 2759 0001:00213421 + 2761 0001:00213427 2762 0001:00213456 2763 0001:0021345F 2764 0001:00213468 + 2765 0001:00213472 2767 0001:00213479 2770 0001:00213484 2772 0001:0021348B + 2773 0001:00213495 2774 0001:002134A5 2775 0001:002134B3 2777 0001:002134CE + 2778 0001:002134D8 2779 0001:002134E2 2781 0001:002134FA 2784 0001:00213500 + 2786 0001:00213507 2787 0001:00213511 2788 0001:00213521 2789 0001:0021352F + 2791 0001:0021354A 2792 0001:00213554 2793 0001:0021355E 2795 0001:00213576 + 2800 0001:0021357C 2801 0001:00213599 2802 0001:002135A0 2805 0001:002135C1 + 2806 0001:002135CB 2808 0001:002135D5 2809 0001:002135DB 2811 0001:00213619 + 2812 0001:0021363B 2814 0001:00213682 2820 0001:00213734 2822 0001:00213756 + 2824 0001:0021375F 2826 0001:0021377A 2828 0001:0021378C 2829 0001:002137CA + 2831 0001:002137F4 2832 0001:00213811 2835 0001:00213832 2824 0001:00213833 + 2837 0001:0021385C 2842 0001:00213910 2844 0001:00213914 2845 0001:00213929 + 2847 0001:00213932 2848 0001:0021393B 2850 0001:00213941 2851 0001:00213952 + 2852 0001:00213970 2853 0001:00213980 2854 0001:00213987 2859 0001:0021398C + 2861 0001:002139A9 2862 0001:002139C2 2864 0001:002139CB 2865 0001:002139D5 + 2867 0001:002139DF 2868 0001:002139F0 2869 0001:002139F6 2872 0001:00213A3B + 2873 0001:00213A5D 2875 0001:00213A87 2876 0001:00213AAB 2881 0001:00213B60 + 2883 0001:00213B77 2884 0001:00213B87 2885 0001:00213BC7 2886 0001:00213C0A + 2890 0001:00213C10 2891 0001:00213C19 2892 0001:00213C22 2893 0001:00213C2E + 2894 0001:00213C35 2896 0001:00213C3A 2901 0001:00213C3C 2903 0001:00213C40 + 2904 0001:00213C55 2906 0001:00213C5E 2907 0001:00213C67 2909 0001:00213C6D + 2910 0001:00213C77 2925 0001:00213C7C 2926 0001:00213C93 2927 0001:00213C9A + 2928 0001:00213CA4 2929 0001:00213CB6 2930 0001:00213CC8 2931 0001:00213CDA + 2932 0001:00213CE4 2933 0001:00213CEF 2934 0001:00213D03 2936 0001:00213D0E + 2937 0001:00213D2D 2938 0001:00213D53 2939 0001:00213D5F 2940 0001:00213D6F + 2941 0001:00213D7F 2942 0001:00213D8E 2943 0001:00213DA3 2944 0001:00213DB8 + 2945 0001:00213DCD 2946 0001:00213DDF 2947 0001:00213DF1 2949 0001:00213DF7 + 2950 0001:00213DFF 2951 0001:00213E03 2953 0001:00213E1B 2954 0001:00213E2D + 2955 0001:00213E5A 2960 0001:00213E64 2962 0001:00213E68 2963 0001:00213E7D + 2965 0001:00213E86 2966 0001:00213E8F 2968 0001:00213E95 2970 0001:00213EAB + 2978 0001:00213EB0 2979 0001:00213EE0 2980 0001:00213EEB 2982 0001:00213F04 + 2983 0001:00213F0B 2986 0001:00213F26 2987 0001:00213F3D 2989 0001:00213F4C + 2990 0001:00213F5A 2992 0001:00213F60 2993 0001:00213F6D 2998 0001:00213FA3 + 3009 0001:00213FAC 3011 0001:00213FDD 3012 0001:00213FF6 3013 0001:0021400F + 3014 0001:00214028 3016 0001:0021403E 3017 0001:00214048 3018 0001:00214052 + 3019 0001:00214068 3021 0001:0021408F 3022 0001:002140A2 3023 0001:002140BC + 3024 0001:002140BF 3026 0001:002140C9 3029 0001:00214102 3031 0001:00214109 + 3033 0001:0021410B 3034 0001:0021411E 3037 0001:0021412C 3038 0001:0021413B + 3041 0001:00214140 3043 0001:00214146 3044 0001:0021415E 3045 0001:0021416D + 3046 0001:002141A7 3050 0001:002141D0 3051 0001:002141E1 3052 0001:00214201 + 3053 0001:00214216 3054 0001:00214234 3056 0001:0021423A 3057 0001:0021424C + 3058 0001:0021425F 3061 0001:00214275 3063 0001:0021427E 3064 0001:00214290 + 3066 0001:00214300 3071 0001:00214384 3072 0001:0021438B 3081 0001:0021438C + 3082 0001:002143B4 3084 0001:002143BD 3085 0001:002143C7 3087 0001:002143D1 + 3088 0001:002143D8 3089 0001:002143DD 3090 0001:002143E4 3091 0001:002143FC + 3092 0001:00214414 3093 0001:0021441E 3094 0001:0021442B 3095 0001:00214438 + 3096 0001:00214445 3097 0001:00214450 3098 0001:0021445D 3100 0001:0021446B + 3102 0001:002144C0 3103 0001:002144FC 3105 0001:0021452B 3106 0001:00214537 + 3107 0001:0021458B 3108 0001:00214597 3109 0001:002145C2 3110 0001:002145E9 + 3112 0001:00214614 3113 0001:0021462A 3114 0001:00214634 3115 0001:0021463A + 3116 0001:0021464D 3117 0001:00214654 3118 0001:00214665 3119 0001:00214676 + 3120 0001:00214691 3122 0001:00214695 3123 0001:002146B8 3126 0001:002146C6 + 3127 0001:002146CD 3128 0001:002146DA 3129 0001:002146FD 3130 0001:00214707 + 3131 0001:00214714 3132 0001:0021474E 3133 0001:0021475F 3134 0001:00214766 + 3135 0001:0021477C 3138 0001:002147AB 3139 0001:00214804 3141 0001:00214855 + 3143 0001:00214861 3145 0001:002148B2 3147 0001:002148BE 3149 0001:002148C3 + 3150 0001:002148CE 3152 0001:002148DE 3154 0001:002148F2 3155 0001:002148FC + 3156 0001:00214903 3157 0001:00214914 3158 0001:00214922 3159 0001:0021492D + 3160 0001:0021493E 3161 0001:00214951 3162 0001:0021495E 3163 0001:00214986 + 3164 0001:00214992 3165 0001:0021499B 3166 0001:002149A6 3167 0001:002149C5 + 3168 0001:002149CF 3169 0001:002149E1 3170 0001:00214A21 3171 0001:00214A32 + 3175 0001:00214A3B 3176 0001:00214A42 3177 0001:00214A70 3179 0001:00214A77 + 3181 0001:00214A8F 3182 0001:00214ABC 3184 0001:00214AC5 3185 0001:00214AF0 + 3186 0001:00214AF9 3187 0001:00214B02 3188 0001:00214B0B 3189 0001:00214B14 + 3191 0001:00214B1D 3194 0001:00214B24 3195 0001:00214B7F 3196 0001:00214BDA + 3197 0001:00214C0E 3204 0001:00214CC4 3206 0001:00214CE3 3207 0001:00214CFC + 3208 0001:00214D15 3209 0001:00214D28 3211 0001:00214D4A 3212 0001:00214D6C + 3214 0001:00214D71 3215 0001:00214D7C 3217 0001:00214D98 3218 0001:00214DB2 + 3220 0001:00214DB6 3221 0001:00214DBD 3222 0001:00214DE9 3228 0001:00214E29 + 3231 0001:00214E58 3232 0001:00214E5B 3234 0001:00214E68 3235 0001:00214E75 + 3236 0001:00214E82 3239 0001:00214E8F 3246 0001:00214E94 3247 0001:00214E9D + 3249 0001:00214EA2 3254 0001:00214EA4 3255 0001:00214EAB 3258 0001:00214EAC + 3260 0001:00214EAF 3262 0001:00214EC7 3263 0001:00214ED2 3264 0001:00214EE2 + 3265 0001:00214EF2 3267 0001:00214F09 3270 0001:00214F60 3272 0001:00214F63 + 3273 0001:00214F73 3274 0001:00214F83 3275 0001:00214F90 3278 0001:00214FAC + 3280 0001:00214FC2 3281 0001:00214FFE 3286 0001:00215004 3287 0001:0021500F + 3292 0001:00215010 3293 0001:0021501B 3296 0001:0021501C 3298 0001:0021501F + 3299 0001:00215028 3302 0001:00215045 3303 0001:00215063 3304 0001:0021506A + 3307 0001:0021506C 3309 0001:0021506F 3310 0001:00215086 3311 0001:0021509D + 3312 0001:002150B4 3313 0001:002150CB 3314 0001:002150DD 3319 0001:002150E0 + 3320 0001:002150EB 3325 0001:002150EC 3326 0001:002150F7 3331 0001:002150F8 + 3333 0001:00215113 3335 0001:00215119 3337 0001:0021512B 3338 0001:00215135 + 3340 0001:0021513F 3342 0001:0021518F 3343 0001:002151B1 3346 0001:002151F9 + 3351 0001:002152A8 3352 0001:002152AF 3388 0001:002152B0 3389 0001:002152B3 + 3390 0001:002152C3 3391 0001:002152CE 3392 0001:002152D9 3393 0001:002152E4 + 3395 0001:002152EF 3399 0001:002152F4 3400 0001:002152F9 3404 0001:002152FC + 3405 0001:00215304 3406 0001:00215308 3407 0001:0021530D 3408 0001:00215317 + 3409 0001:00215323 3413 0001:00215324 3416 0001:0021533E 3417 0001:00215340 + 3418 0001:00215358 3420 0001:0021536E 3421 0001:0021537F 3422 0001:00215381 + 3423 0001:0021538C 3432 0001:0021538E 3433 0001:00215397 3434 0001:002153A8 + 3435 0001:002153D6 3442 0001:00215444 3443 0001:00215460 3444 0001:00215462 + 3445 0001:00215464 3447 0001:00215487 3448 0001:00215498 3449 0001:0021549A + 3451 0001:0021549F 3453 0001:002154C9 3455 0001:002154DD 3456 0001:002154F0 + 3458 0001:0021550F 3461 0001:0021551A 3463 0001:0021551E 3464 0001:0021552C + 3466 0001:00215532 3468 0001:00215534 3470 0001:00215538 3471 0001:00215543 + 3473 0001:0021554E 3476 0001:0021555D 3477 0001:00215590 3482 0001:00215620 + 3489 0001:00215639 3490 0001:00215647 3491 0001:0021564B 3492 0001:00215663 + 3493 0001:0021566E 3494 0001:00215696 3500 0001:002156A0 3501 0001:002156BA + 3502 0001:002156BC 3504 0001:002156E7 3505 0001:002156E9 3507 0001:002156EB + 3508 0001:002156F6 3510 0001:00215715 3511 0001:00215761 3519 0001:0021576C + 3520 0001:00215791 3521 0001:002157AA 3522 0001:002157C3 3523 0001:002157C5 + 3525 0001:002157D2 3527 0001:002157E6 3528 0001:00215824 3531 0001:00215836 + 3532 0001:00215874 3535 0001:00215886 3536 0001:002158C4 3540 0001:002158D3 + 3541 0001:00215911 3544 0001:0021591E 3547 0001:00215936 3548 0001:00215940 + 3551 0001:0021594A 3552 0001:00215976 3553 0001:0021597F 3557 0001:002159EF + 3563 0001:00215BBC 3564 0001:00215BBF 3565 0001:00215BC1 3567 0001:00215BC7 + 3568 0001:00215BCF 3569 0001:00215BE1 3570 0001:00215BF1 3572 0001:00215BFA + 3576 0001:00215C10 3578 0001:00215C24 3580 0001:00215C2B 3583 0001:00215C51 + 3584 0001:00215C5E 3587 0001:00215C89 3590 0001:00215C94 3591 0001:00215CDD + 3592 0001:00215CDF 3595 0001:00215CEC 3597 0001:00215CFC 3598 0001:00215CFE + 3600 0001:00215D0A 3602 0001:00215D31 3603 0001:00215D33 3605 0001:00215D4B + 3607 0001:00215D5D 3609 0001:00215D71 3610 0001:00215D73 3614 0001:00215DB3 + 3621 0001:00215E7C 3622 0001:00215EAC 3623 0001:00215EAE 3624 0001:00215EB8 + 3625 0001:00215EBC 3626 0001:00215EC6 3627 0001:00215ECC 3628 0001:00215EE0 + 3629 0001:00215EEE 3630 0001:00215F2C 3636 0001:00215F38 3637 0001:00215F5B + 3638 0001:00215F61 3641 0001:00215F7E 3642 0001:00215FAB 3661 0001:00215FB0 + 3662 0001:00215FC6 3664 0001:00215FCF 3665 0001:00215FDC 3667 0001:00216001 + 3668 0001:0021602C 3672 0001:0021605C 3673 0001:0021605F 3675 0001:00216063 + 3676 0001:00216070 3677 0001:0021607D 3680 0001:00216099 3681 0001:002160A6 + 3682 0001:002160B3 3684 0001:002160CD 3690 0001:002160D0 3691 0001:002160DA + 3696 0001:002160DC 3697 0001:002160F9 3699 0001:00216119 3701 0001:00216123 + 3702 0001:00216133 3703 0001:00216141 3705 0001:00216180 3707 0001:00216198 + 3708 0001:002161A2 3710 0001:002161A9 3711 0001:002161AF 3713 0001:002161FC + 3720 0001:002163EC 3722 0001:00216410 3723 0001:00216417 3724 0001:00216432 + 3725 0001:0021643B 3726 0001:00216444 3729 0001:00216465 3730 0001:00216485 + 3731 0001:00216489 3733 0001:002164B0 3734 0001:002164B7 3736 0001:002164C4 + 3737 0001:002164EF 3738 0001:0021652D 3739 0001:00216557 3740 0001:00216581 + 3741 0001:002165A8 3742 0001:002165B9 3743 0001:002165E0 3744 0001:00216617 + 3745 0001:00216625 3746 0001:00216634 3747 0001:00216657 3748 0001:00216664 + 3750 0001:00216672 3751 0001:002166AC 3752 0001:002166DD 3753 0001:0021670C + 3754 0001:00216725 3755 0001:00216746 3756 0001:0021676E 3757 0001:0021678E + 3758 0001:002167A1 3759 0001:002167BA 3760 0001:002167FB 3764 0001:00216806 + 3767 0001:0021681D 3768 0001:0021682E 3773 0001:00216839 3774 0001:00216858 + 3778 0001:0021686C 3779 0001:0021690C 3783 0001:00216A8C 3785 0001:00216A8F + 3786 0001:00216AAD 3787 0001:00216AC7 3788 0001:00216ADF 3792 0001:00216AE4 + 3795 0001:00216AEA 3796 0001:00216AEC 3797 0001:00216AF5 3798 0001:00216AFE + 3799 0001:00216B08 3800 0001:00216B12 3801 0001:00216B1B 3802 0001:00216B24 + 3804 0001:00216B2D 3807 0001:00216B30 3808 0001:00216B33 3809 0001:00216B3C + 3811 0001:00216B40 3812 0001:00216B57 3815 0001:00216B5C 3817 0001:00216B62 + 3818 0001:00216B81 3819 0001:00216B8A 3828 0001:00216B90 3829 0001:00216BA3 + 3830 0001:00216BE7 3831 0001:00216C04 3832 0001:00216C2E 3834 0001:00216C44 + 3836 0001:00216C66 3837 0001:00216C96 3838 0001:00216CA5 3839 0001:00216CB3 + 3840 0001:00216CCB 3841 0001:00216CDC 3844 0001:00216D10 3845 0001:00216D3C + 3847 0001:00216D4C 3850 0001:00216D5F 3851 0001:00216D94 3853 0001:00216DAD + 3858 0001:00216DB6 3859 0001:00216DC1 3862 0001:00216DD4 3863 0001:00216DD8 + 3864 0001:00216DFC 3868 0001:00216E1D 3870 0001:00216E5F 3875 0001:00216F4C + 3876 0001:00216F53 3877 0001:00216F5D 3889 0001:00216F60 3891 0001:00216F8E + 3893 0001:00216F94 3894 0001:00216FA5 3895 0001:00216FBA 3896 0001:00216FC3 + 3897 0001:00216FD4 3898 0001:00216FE1 3899 0001:00216FEE 3900 0001:00216FFB + 3902 0001:0021700A 3903 0001:00217043 3905 0001:00217052 3907 0001:00217061 + 3908 0001:0021709A 3910 0001:002170A7 3911 0001:002170B4 3913 0001:002170D0 + 3915 0001:002170DD 3916 0001:002170EC 3917 0001:0021711E 3918 0001:0021712D + 3919 0001:00217157 3920 0001:0021715E 3922 0001:0021716A 3923 0001:002171A0 + 3926 0001:002171AB 3929 0001:002171BC 3930 0001:002171C9 3931 0001:002171D6 + 3932 0001:002171E3 3933 0001:002171FB 3934 0001:00217206 3935 0001:00217233 + 3940 0001:0021735C 3941 0001:00217366 3946 0001:00217378 3947 0001:00217382 + 3952 0001:00217394 3953 0001:00217399 3958 0001:0021739C 3961 0001:002173C6 + 3962 0001:002173CD 3963 0001:002173DB 3965 0001:002173ED 3967 0001:0021741B + 3968 0001:0021743F 3963 0001:00217440 3969 0001:00217445 3970 0001:00217460 + 3971 0001:0021747C 3972 0001:0021748A 3974 0001:002174B3 3979 0001:002174C8 + 3980 0001:002174E9 3983 0001:002174F6 3984 0001:00217502 3986 0001:00217508 + 3987 0001:00217517 3989 0001:00217524 3990 0001:00217542 3991 0001:00217556 + 3992 0001:00217570 3994 0001:00217593 3995 0001:002175A0 3996 0001:002175B4 + 3999 0001:002175C6 4001 0001:002175E9 4002 0001:002175F6 4004 0001:0021760A + 4005 0001:00217623 4006 0001:0021763C 4008 0001:0021764D 4009 0001:0021765A + 4010 0001:00217665 4011 0001:00217672 4012 0001:0021767D 4013 0001:0021768A + 4014 0001:0021768F 4015 0001:00217698 4016 0001:002176A4 4017 0001:002176B1 + 4018 0001:002176BE 4019 0001:002176CB 4020 0001:002176D8 4021 0001:002176E5 + 4022 0001:002176F2 4023 0001:00217713 4025 0001:00217718 4026 0001:0021772A + 4028 0001:0021775E 4029 0001:0021776C 4030 0001:0021778D 4031 0001:00217796 + 4034 0001:002177E7 4037 0001:002177F0 4040 0001:002177F3 4041 0001:00217807 + 4042 0001:00217811 4043 0001:00217825 4045 0001:0021782F 4050 0001:00217834 + 4053 0001:00217853 4056 0001:002178A3 4059 0001:002178C7 4060 0001:002178F4 + 4063 0001:00217923 4064 0001:00217929 4067 0001:0021794A 4070 0001:0021798F + 4073 0001:002179AC 4076 0001:002179CB 4079 0001:00217A1B 4082 0001:00217A3F + 4083 0001:00217A6C 4086 0001:00217A9B 4087 0001:00217AA1 4090 0001:00217AC2 + 4093 0001:00217B07 4095 0001:00217B24 4098 0001:00217B28 4099 0001:00217B2F + 4101 0001:00217B40 4102 0001:00217B49 4104 0001:00217B5B 4106 0001:00217B6B + 4107 0001:00217B7F 4108 0001:00217B89 4109 0001:00217B9D 4111 0001:00217BA7 + 4116 0001:00217BB8 4117 0001:00217BBF 4118 0001:00217BC5 4119 0001:00217BCE + 4120 0001:00217BE1 4121 0001:00217BED 4122 0001:00217BF8 4123 0001:00217C0D + 4126 0001:00217C20 4127 0001:00217C2A 4128 0001:00217C3A 4129 0001:00217C44 + 4130 0001:00217C4A 4137 0001:00217C50 4138 0001:00217C5F 4140 0001:00217C68 + 4141 0001:00217C6D 4143 0001:00217C6F 4144 0001:00217C7E 4146 0001:00217C87 + 4147 0001:00217C91 4149 0001:00217C97 4150 0001:00217CAA 4151 0001:00217CBB + 4152 0001:00217CD1 4161 0001:00217CDC 4162 0001:00217CF8 4166 0001:00217D2E + 4167 0001:00217D33 4169 0001:00217D35 4171 0001:00217D3E 4172 0001:00217D48 + 4174 0001:00217D4E 4176 0001:00217D6A 4177 0001:00217D79 4179 0001:00217D9B + 4182 0001:00217DC0 4184 0001:00217DC6 4185 0001:00217DE2 4186 0001:00217DF4 + 4189 0001:00217DF8 4191 0001:00217E11 4192 0001:00217E2D 4194 0001:00217E3C + 4195 0001:00217E45 4196 0001:00217E4C 4198 0001:00217E5C 4199 0001:00217E69 + 4200 0001:00217E8A 4201 0001:00217EB5 4204 0001:00217EBC 4206 0001:00217EC2 + 4207 0001:00217EDE 4209 0001:00217EED 4210 0001:00217EF8 4212 0001:00217F15 + 4215 0001:00217F18 4217 0001:00217F1E 4218 0001:00217F3A 4220 0001:00217F49 + 4221 0001:00217F54 4223 0001:00217F71 4226 0001:00217F74 4227 0001:00217F7D + 4228 0001:00217F80 4229 0001:00217F8D 4230 0001:00217F9A 4231 0001:00217FA7 + 4232 0001:00217FB4 4233 0001:00217FC1 4234 0001:00217FCE 4235 0001:00217FD3 + 4237 0001:00217FE3 4238 0001:00217FF0 4242 0001:00217FF4 4244 0001:0021800A + 4245 0001:00218019 4247 0001:0021802C 4248 0001:00218039 4249 0001:0021805A + 4251 0001:00218085 4259 0001:0021808C 4260 0001:002180AA 4261 0001:002180B9 + 4263 0001:002180C7 4264 0001:002180D5 4265 0001:002180DC 4266 0001:002180EF + 4267 0001:00218103 4268 0001:00218116 4269 0001:00218124 4270 0001:00218138 + 4271 0001:0021814C 4272 0001:00218160 4273 0001:0021816E 4274 0001:00218182 + 4275 0001:00218196 4276 0001:002181A7 4277 0001:002181B8 4278 0001:002181C6 + 4279 0001:002181D6 4280 0001:002181FD 4282 0001:00218206 4283 0001:00218236 + 4284 0001:00218255 4285 0001:0021826F 4287 0001:00218285 4289 0001:0021828E + 4290 0001:00218295 4291 0001:002182A0 4292 0001:002182AD 4293 0001:002182C1 + 4295 0001:002182D2 4296 0001:002182DD 4297 0001:002182E4 4300 0001:0021831C + 4301 0001:0021832F 4303 0001:0021835C 4306 0001:00218364 4309 0001:0021836D + 4310 0001:00218374 4311 0001:0021837F 4312 0001:00218391 4313 0001:002183A8 + 4314 0001:002183B3 4316 0001:002183BA 4319 0001:002183CC 4323 0001:002183CF + 4324 0001:002183D9 4325 0001:002183E3 4326 0001:002183ED 4328 0001:002183F7 + 4331 0001:002183FC 4335 0001:002183FF 4336 0001:00218409 4337 0001:00218413 + 4338 0001:0021841D 4340 0001:00218427 4343 0001:0021842C 4345 0001:00218443 + 4347 0001:00218449 4348 0001:00218458 4350 0001:00218467 4351 0001:00218474 + 4352 0001:00218495 4353 0001:002184A3 4354 0001:002184AE 4355 0001:002184BF + 4358 0001:002184D1 4360 0001:00218500 4365 0001:00218508 4367 0001:00218525 + 4368 0001:00218532 4370 0001:00218538 4371 0001:00218547 4373 0001:0021855A + 4374 0001:00218567 4375 0001:00218574 4376 0001:00218588 4380 0001:0021859E + 4381 0001:002185B2 4383 0001:002185C6 4384 0001:002185DF 4385 0001:002185F8 + 4386 0001:00218605 4387 0001:00218612 4388 0001:0021861F 4390 0001:00218632 + 4391 0001:0021863F 4392 0001:0021864A 4393 0001:00218657 4394 0001:00218662 + 4395 0001:0021866F 4396 0001:00218674 4397 0001:0021867D 4398 0001:00218689 + 4399 0001:00218696 4400 0001:002186A3 4401 0001:002186B0 4402 0001:002186BD + 4403 0001:002186C8 4404 0001:002186D9 4405 0001:002186E7 4406 0001:002186F4 + 4407 0001:00218701 4408 0001:00218722 4410 0001:00218727 4411 0001:00218739 + 4413 0001:0021875A 4414 0001:00218768 4415 0001:00218789 4417 0001:00218792 + 4420 0001:002187DE 4425 0001:002187E4 4427 0001:002187EA 4428 0001:00218810 + 4429 0001:0021881D 4430 0001:0021882A 4435 0001:00218830 4436 0001:00218839 + 4444 0001:0021883C 4445 0001:0021885C 4446 0001:00218875 4447 0001:0021888E + 4449 0001:00218897 4450 0001:002188A1 4451 0001:002188AB 4452 0001:002188D7 + 4453 0001:002188E0 4455 0001:0021890C 4456 0001:0021891B 4457 0001:00218928 + 4458 0001:00218936 4459 0001:0021893C 4460 0001:00218968 4461 0001:002189B0 + 4470 0001:002189B8 4471 0001:002189E2 4472 0001:002189F2 4473 0001:002189FA + 4474 0001:00218A0B 4475 0001:00218A28 4476 0001:00218A39 4477 0001:00218A44 + 4479 0001:00218A4A 4480 0001:00218A59 4484 0001:00218A5E 4485 0001:00218A66 + 4489 0001:00218ACA 4491 0001:00218AD7 4493 0001:00218AE6 4495 0001:00218AFB + 4497 0001:00218B11 4498 0001:00218B27 4499 0001:00218B4E 4502 0001:00218B78 + 4506 0001:00218B8C 4507 0001:00218BB3 4508 0001:00218BDA 4509 0001:00218BE9 + 4514 0001:00218BEE 4516 0001:00218C04 4517 0001:00218C1A 4518 0001:00218C41 + 4521 0001:00218C64 4523 0001:00218C95 4527 0001:00218D84 4529 0001:00218D8A + 4530 0001:00218DAF 4536 0001:00218DB4 4537 0001:00218DD1 4538 0001:00218DD5 + 4539 0001:00218DDD 4540 0001:00218DEC 4541 0001:00218DFA 4542 0001:00218E0B + 4543 0001:00218E1D 4545 0001:00218E61 4546 0001:00218E65 4547 0001:00218E67 + 4542 0001:00218E68 4549 0001:00218E78 4551 0001:00218EAD 4555 0001:00218EB4 + 4557 0001:00218EC1 4559 0001:00218EC7 4561 0001:00218ECD 4562 0001:00218EF2 + 4564 0001:00218EF9 4566 0001:00218EFF 4567 0001:00218F24 4570 0001:00218F29 + 4571 0001:00218F2F 4572 0001:00218F54 4574 0001:00218F59 4578 0001:00218F60 + 4580 0001:00218F69 4581 0001:00218F75 4582 0001:00218F98 4583 0001:00218FB9 + 4587 0001:00218FC0 4588 0001:00218FCA 4593 0001:00218FCC 4594 0001:00218FD6 + 4598 0001:00218FD8 4600 0001:00218FDB 4601 0001:00218FF4 4605 0001:00218FF8 + 4607 0001:00218FFB 4608 0001:00219014 4615 0001:00219018 4617 0001:00219036 + 4618 0001:0021904F 4619 0001:00219068 4621 0001:00219071 4622 0001:0021907B + 4623 0001:00219085 4624 0001:0021908C 4626 0001:002190B3 4627 0001:002190C2 + 4628 0001:002190DD 4629 0001:002190E3 4630 0001:00219139 4665 0001:00219140 + 4667 0001:00219146 4669 0001:00219170 4676 0001:002191E2 4678 0001:002191FD + 4679 0001:0021920B 4682 0001:00219210 4684 0001:00219217 4686 0001:00219241 + 4687 0001:0021925B 4689 0001:0021927B 4696 0001:002192EF 4698 0001:00219306 + 4699 0001:00219314 4702 0001:0021931C 4704 0001:00219323 4706 0001:0021934D + 4712 0001:00219389 4713 0001:0021939C 4715 0001:002193AC 4718 0001:002193BC + 4719 0001:002193CA 4721 0001:002193EC 4722 0001:002193FA 4725 0001:00219400 + 4726 0001:00219407 4727 0001:00219413 4729 0001:00219439 4733 0001:00219477 + 4735 0001:0021948E 4736 0001:0021949C 4741 0001:002194A4 4742 0001:002194CA + 4743 0001:002194EE 4744 0001:00219512 4745 0001:00219536 4750 0001:00219538 + 4752 0001:00219555 4753 0001:0021957A 4754 0001:00219597 4755 0001:002195B7 + 4756 0001:002195CF 4757 0001:002195EF 4758 0001:00219607 4759 0001:00219627 + 4762 0001:0021963F 4763 0001:0021965E 4766 0001:00219665 4767 0001:0021966B + 4769 0001:0021967C 4770 0001:00219694 4771 0001:002196BF 4772 0001:002196DA + 4767 0001:002196DB 4775 0001:002196FB 4778 0001:0021971C 4779 0001:00219722 + 4780 0001:00219730 4781 0001:00219739 4784 0001:0021973C 4785 0001:00219742 + 4786 0001:00219750 4787 0001:00219759 4790 0001:0021975C 4791 0001:00219762 + 4792 0001:00219770 4793 0001:00219779 4797 0001:0021977C 4799 0001:00219782 + 4800 0001:0021978E 4805 0001:00219794 4806 0001:002197A0 4809 0001:002197A4 + 4811 0001:002197C3 4812 0001:002197DD 4813 0001:002197F7 4814 0001:00219811 + 4815 0001:00219850 4816 0001:0021988F 4817 0001:002198A9 4818 0001:002198C3 + 4819 0001:002198DD 4820 0001:00219919 4827 0001:0021992C 4828 0001:0021994F + 4830 0001:002199D3 4822 0001:002199D8 4823 0001:002199F2 4824 0001:00219A03 + 4826 0001:00219A29 + +Line numbers for fTIUView(fTIUView.pas) segment .text + + 88 0001:00219E80 89 0001:00219ED2 90 0001:00219EE9 93 0001:00219EF7 + 94 0001:00219F04 95 0001:00219F0F 96 0001:00219F1A 97 0001:00219F27 + 98 0001:00219F43 99 0001:00219F5F 100 0001:00219F69 101 0001:00219F73 + 102 0001:00219F89 103 0001:00219F9A 104 0001:00219FAB 105 0001:00219FD5 + 106 0001:00219FE0 107 0001:00219FE9 108 0001:00219FEF 110 0001:00219FFB + 112 0001:0021A007 113 0001:0021A013 114 0001:0021A01C 116 0001:0021A02C + 117 0001:0021A04B 118 0001:0021A063 122 0001:0021A07A 123 0001:0021A08B + 124 0001:0021A09F 126 0001:0021A0B5 127 0001:0021A0BC 129 0001:0021A0DF + 130 0001:0021A0EF 131 0001:0021A119 132 0001:0021A12A 134 0001:0021A130 + 135 0001:0021A15A 137 0001:0021A184 139 0001:0021A198 140 0001:0021A1BA + 141 0001:0021A1DC 142 0001:0021A1ED 143 0001:0021A1FE 145 0001:0021A209 + 149 0001:0021A225 150 0001:0021A230 151 0001:0021A241 152 0001:0021A256 + 153 0001:0021A267 154 0001:0021A27C 155 0001:0021A28D 156 0001:0021A2A2 + 157 0001:0021A2AE 158 0001:0021A2BA 159 0001:0021A2CB 160 0001:0021A2D7 + 161 0001:0021A2E8 162 0001:0021A2F4 163 0001:0021A305 164 0001:0021A316 + 165 0001:0021A322 170 0001:0021A334 172 0001:0021A395 177 0001:0021A3BC + 178 0001:0021A3DC 180 0001:0021A3F8 181 0001:0021A40C 183 0001:0021A428 + 185 0001:0021A430 186 0001:0021A444 188 0001:0021A460 190 0001:0021A468 + 192 0001:0021A473 193 0001:0021A48F 194 0001:0021A4A1 195 0001:0021A4BD + 199 0001:0021A4D1 200 0001:0021A4E4 203 0001:0021A4E9 204 0001:0021A500 + 206 0001:0021A524 207 0001:0021A537 210 0001:0021A53C 211 0001:0021A558 + 212 0001:0021A571 213 0001:0021A587 215 0001:0021A59D 216 0001:0021A5B9 + 217 0001:0021A5DD 218 0001:0021A5F2 219 0001:0021A604 220 0001:0021A616 + 221 0001:0021A628 222 0001:0021A63A 224 0001:0021A65E 225 0001:0021A669 + 227 0001:0021A674 228 0001:0021A67D 230 0001:0021A684 231 0001:0021A6A6 + 232 0001:0021A6BA 233 0001:0021A6D8 234 0001:0021A6FF 236 0001:0021A71D + 237 0001:0021A728 238 0001:0021A72F 239 0001:0021A788 243 0001:0021A884 + 244 0001:0021A88B 245 0001:0021A890 250 0001:0021A894 251 0001:0021A8B6 + 252 0001:0021A8E8 253 0001:0021A8F5 254 0001:0021A902 255 0001:0021A90F + 256 0001:0021A91C 258 0001:0021A920 259 0001:0021A92D 263 0001:0021A93C + 264 0001:0021A94D 265 0001:0021A95E 267 0001:0021A97E 268 0001:0021A9AF + 270 0001:0021A9C1 271 0001:0021A9D1 272 0001:0021A9ED 274 0001:0021AA55 + 275 0001:0021AA63 276 0001:0021AA70 277 0001:0021AA7D 278 0001:0021AA87 + 280 0001:0021AAA7 281 0001:0021AAB4 282 0001:0021AAC1 286 0001:0021AAD0 + 287 0001:0021AADD 288 0001:0021AAF4 289 0001:0021AB01 290 0001:0021AB0E + 291 0001:0021AB1B 293 0001:0021AB8C 298 0001:0021ABC0 299 0001:0021ABC9 + 300 0001:0021ABE0 303 0001:0021ABE8 304 0001:0021ABEB 305 0001:0021ABF9 + 306 0001:0021AC07 307 0001:0021AC17 308 0001:0021AC27 309 0001:0021AC34 + 310 0001:0021AC44 311 0001:0021AC54 313 0001:0021AC88 313 0001:0021AC8F + +Line numbers for fPCEEdit(Encounter\fPCEEdit.pas) segment .text + + 50 0001:0021AE80 51 0001:0021AEA1 52 0001:0021AEA5 54 0001:0021AEB5 + 55 0001:0021AEBB 58 0001:0021AEC7 59 0001:0021AEDA 63 0001:0021AEE6 + 64 0001:0021AEEC 66 0001:0021AEF8 67 0001:0021AF21 70 0001:0021AF2D + 71 0001:0021AF44 72 0001:0021AF52 74 0001:0021AF62 75 0001:0021AF6F + 79 0001:0021AF7E 81 0001:0021AFC4 83 0001:0021AFD1 84 0001:0021AFE2 + 85 0001:0021AFF3 87 0001:0021B055 89 0001:0021B070 92 0001:0021B080 + 94 0001:0021B08A 96 0001:0021B09A 97 0001:0021B0A4 99 0001:0021B0B0 + 101 0001:0021B0C0 102 0001:0021B0D3 104 0001:0021B0D8 105 0001:0021B0E1 + 106 0001:0021B0F2 107 0001:0021B0FE 109 0001:0021B10C 110 0001:0021B11A + 112 0001:0021B129 113 0001:0021B136 114 0001:0021B157 116 0001:0021B159 + 117 0001:0021B16E 118 0001:0021B17A 119 0001:0021B183 120 0001:0021B194 + 123 0001:0021B1A6 125 0001:0021B1AC 126 0001:0021B1B6 128 0001:0021B1EC + 132 0001:0021B410 134 0001:0021B427 135 0001:0021B433 137 0001:0021B43F + 138 0001:0021B454 143 0001:0021B458 144 0001:0021B47D 145 0001:0021B489 + 147 0001:0021B4B2 140 0001:0021B4B4 142 0001:0021B4BB + +Line numbers for fNoteSTStop(fNoteSTStop.pas) segment .text + + 31 0001:0021B69C 32 0001:0021B6A4 36 0001:0021B6A8 37 0001:0021B6B2 + 39 0001:0021B6E4 39 0001:0021B6EB + +Line numbers for rDCSumm(rDCSumm.pas) segment .text + + 65 0001:0021B6EC 66 0001:0021B70C 67 0001:0021B719 68 0001:0021B747 + 69 0001:0021B760 70 0001:0021B771 71 0001:0021B790 72 0001:0021B7AA + 73 0001:0021B7D0 74 0001:0021B81D 78 0001:0021B86C 80 0001:0021B875 + 81 0001:0021B87F 82 0001:0021B886 84 0001:0021B88B 89 0001:0021B88C + 90 0001:0021B89A 91 0001:0021B8A2 95 0001:0021B8A4 96 0001:0021B8A7 + 97 0001:0021B8B5 98 0001:0021B8C5 102 0001:0021B8C8 103 0001:0021B8CB + 104 0001:0021B8D9 105 0001:0021B8E8 107 0001:0021B8F9 108 0001:0021B905 + 110 0001:0021B911 116 0001:0021B974 117 0001:0021B980 118 0001:0021B984 + 120 0001:0021B9BE 122 0001:0021B9F0 123 0001:0021B9FD 131 0001:0021BA24 + 132 0001:0021BA49 135 0001:0021BA57 136 0001:0021BA7B 137 0001:0021BA9F + 138 0001:0021BAC0 139 0001:0021BAE8 140 0001:0021BB0A 141 0001:0021BB1C + 142 0001:0021BB43 143 0001:0021BB67 145 0001:0021BBB0 149 0001:0021BBEC + 151 0001:0021BBF5 152 0001:0021BBFF 153 0001:0021BC06 155 0001:0021BC0B + 159 0001:0021BC0C 160 0001:0021BC1A 161 0001:0021BC22 162 0001:0021BC2B + 176 0001:0021BC2C 177 0001:0021BC54 179 0001:0021BC58 180 0001:0021BC5B + 181 0001:0021BC63 183 0001:0021BC65 184 0001:0021BC89 185 0001:0021BCAE + 186 0001:0021BCF6 225 0001:0021BD28 226 0001:0021BD38 227 0001:0021BD44 + 229 0001:0021BD4C 230 0001:0021BDC6 232 0001:0021BDDA 243 0001:0021BE08 + 244 0001:0021BE30 245 0001:0021BE38 246 0001:0021BE54 248 0001:0021BE8B + 249 0001:0021BEC1 250 0001:0021BEC3 245 0001:0021BEC4 251 0001:0021BEEC + 256 0001:0021BEF4 257 0001:0021BF15 258 0001:0021BF1D 259 0001:0021BF39 + 261 0001:0021BF70 262 0001:0021BF9A 263 0001:0021BF9C 258 0001:0021BF9D + 264 0001:0021BFC2 269 0001:0021BFCC 270 0001:0021BFEB 271 0001:0021BFF0 + 272 0001:0021C00C 274 0001:0021C043 275 0001:0021C07A 276 0001:0021C07C + 271 0001:0021C07D 277 0001:0021C0A5 282 0001:0021C0AC 283 0001:0021C0D4 + 284 0001:0021C0E2 285 0001:0021C0FE 287 0001:0021C135 288 0001:0021C171 + 289 0001:0021C173 284 0001:0021C174 290 0001:0021C19F 293 0001:0021C1A8 + 294 0001:0021C1CD 295 0001:0021C1F2 298 0001:0021C200 299 0001:0021C20C + 300 0001:0021C224 301 0001:0021C232 302 0001:0021C240 303 0001:0021C258 + 304 0001:0021C26E 305 0001:0021C27E 306 0001:0021C296 307 0001:0021C2A6 + 308 0001:0021C2BE 309 0001:0021C2CC 310 0001:0021C2DC 311 0001:0021C2F4 + 312 0001:0021C304 313 0001:0021C31C 314 0001:0021C329 315 0001:0021C341 + 318 0001:0021C353 319 0001:0021C3A1 322 0001:0021C3C3 323 0001:0021C3DE + 327 0001:0021C418 332 0001:0021C534 333 0001:0021C54F 335 0001:0021C567 + 336 0001:0021C583 334 0001:0021C5C8 337 0001:0021C5CB 338 0001:0021C5FC + 356 0001:0021C624 367 0001:0021C64C 368 0001:0021C670 369 0001:0021C695 + 370 0001:0021C6DD 379 0001:0021C708 382 0001:0021C72D 383 0001:0021C73B + 384 0001:0021C753 385 0001:0021C76B 386 0001:0021C792 387 0001:0021C7AD + 388 0001:0021C7DB 389 0001:0021C7F6 390 0001:0021C815 391 0001:0021C830 + 392 0001:0021C84F 393 0001:0021C86A 394 0001:0021C889 395 0001:0021C8A4 + 397 0001:0021C8BD 398 0001:0021C8DF 399 0001:0021C8EF 400 0001:0021C90D + 401 0001:0021C92F 402 0001:0021C951 403 0001:0021C973 405 0001:0021C983 + 406 0001:0021C9A1 410 0001:0021C9B5 411 0001:0021C9C4 413 0001:0021C9D6 + 414 0001:0021C9F4 415 0001:0021CA12 420 0001:0021CA36 421 0001:0021CA51 + 422 0001:0021CA73 423 0001:0021CA8E 424 0001:0021CAB2 425 0001:0021CAB7 + 426 0001:0021CAF0 428 0001:0021CB28 430 0001:0021CB3A 431 0001:0021CB51 + 433 0001:0021CB57 434 0001:0021CB5E 437 0001:0021CB8E 447 0001:0021CC6C + 450 0001:0021CC97 451 0001:0021CCA5 452 0001:0021CCC3 453 0001:0021CCDB + 454 0001:0021CD06 455 0001:0021CD21 457 0001:0021CD3A 458 0001:0021CD4A + 459 0001:0021CD68 460 0001:0021CD8A 461 0001:0021CDAC 463 0001:0021CDBC + 464 0001:0021CDDA 468 0001:0021CDEE 469 0001:0021CDFD 475 0001:0021CE0F + 476 0001:0021CE2A 477 0001:0021CE4E 478 0001:0021CE53 479 0001:0021CE8C + 481 0001:0021CEC4 483 0001:0021CED6 484 0001:0021CEED 486 0001:0021CEF3 + 487 0001:0021CEFA 490 0001:0021CF2A 500 0001:0021CFC4 504 0001:0021CFF0 + 505 0001:0021CFFE 506 0001:0021D016 507 0001:0021D02E 508 0001:0021D05A + 509 0001:0021D075 511 0001:0021D08E 513 0001:0021D094 516 0001:0021D0AE + 517 0001:0021D0D5 518 0001:0021D0F3 519 0001:0021D111 520 0001:0021D133 + 522 0001:0021D143 523 0001:0021D161 527 0001:0021D175 528 0001:0021D184 + 533 0001:0021D196 534 0001:0021D19B 535 0001:0021D1D4 538 0001:0021D20C + 541 0001:0021D214 542 0001:0021D247 546 0001:0021D249 547 0001:0021D25F + 549 0001:0021D265 550 0001:0021D26C 552 0001:0021D29C 555 0001:0021D35C + 556 0001:0021D37B 557 0001:0021D391 558 0001:0021D3D5 561 0001:0021D3FC + 562 0001:0021D421 563 0001:0021D444 564 0001:0021D477 568 0001:0021D498 + 569 0001:0021D4C0 570 0001:0021D4C4 572 0001:0021D505 573 0001:0021D57F + 579 0001:0021D5B8 580 0001:0021D5E1 581 0001:0021D5E3 582 0001:0021D5E7 + 584 0001:0021D620 585 0001:0021D663 586 0001:0021D672 587 0001:0021D676 + 588 0001:0021D67A 589 0001:0021D67E 591 0001:0021D6B1 605 0001:0021D6DC + 606 0001:0021D6FE 609 0001:0021D716 610 0001:0021D71F 611 0001:0021D736 + 612 0001:0021D749 613 0001:0021D76F 614 0001:0021D785 616 0001:0021D799 + 617 0001:0021D7B7 619 0001:0021D7BB 620 0001:0021D7D9 624 0001:0021D7ED + 625 0001:0021D7FC 628 0001:0021D80E 630 0001:0021D835 636 0001:0021D89C + 637 0001:0021D8CA 640 0001:0021D8EE 641 0001:0021D8F2 642 0001:0021D910 + 643 0001:0021D92E 644 0001:0021D94C 645 0001:0021D975 646 0001:0021D99A + 647 0001:0021D9BA 648 0001:0021D9DF 649 0001:0021DA03 650 0001:0021DA2E + 651 0001:0021DA59 652 0001:0021DA7D 653 0001:0021DAA1 654 0001:0021DAC5 + 656 0001:0021DACF 657 0001:0021DB1A 662 0001:0021DB50 665 0001:0021DB94 + 666 0001:0021DBA7 667 0001:0021DBBA 668 0001:0021DBCD 669 0001:0021DBDD + 671 0001:0021DC00 672 0001:0021DC11 673 0001:0021DC2F 674 0001:0021DC58 + 675 0001:0021DC6B 676 0001:0021DC94 677 0001:0021DCBD 678 0001:0021DCD0 + 679 0001:0021DCE3 681 0001:0021DCF6 682 0001:0021DD47 688 0001:0021DD74 + 689 0001:0021DDA0 691 0001:0021DDC8 684 0001:0021DDCC 687 0001:0021DDD3 + +Line numbers for fDCSummProps(fDCSummProps.pas) segment .text + + 122 0001:0021E318 123 0001:0021E344 124 0001:0021E35B 125 0001:0021E36C + 126 0001:0021E37A 130 0001:0021E382 131 0001:0021E38E 132 0001:0021E39A + 133 0001:0021E3AA 135 0001:0021E3B9 136 0001:0021E3CA 138 0001:0021E3E4 + 139 0001:0021E40A 141 0001:0021E410 142 0001:0021E420 145 0001:0021E436 + 146 0001:0021E471 147 0001:0021E48A 148 0001:0021E4A1 149 0001:0021E4B7 + 150 0001:0021E4C8 151 0001:0021E4EC 152 0001:0021E507 153 0001:0021E51A + 155 0001:0021E526 156 0001:0021E53B 158 0001:0021E54C 159 0001:0021E55D + 160 0001:0021E581 161 0001:0021E595 162 0001:0021E5A9 163 0001:0021E5B5 + 164 0001:0021E5C1 165 0001:0021E5DC 166 0001:0021E5EF 168 0001:0021E5FA + 170 0001:0021E606 171 0001:0021E619 172 0001:0021E62C 173 0001:0021E63C + 175 0001:0021E64F 176 0001:0021E65F 178 0001:0021E669 180 0001:0021E675 + 181 0001:0021E687 183 0001:0021E69C 184 0001:0021E6B8 185 0001:0021E6CA + 186 0001:0021E6DE 187 0001:0021E71C 188 0001:0021E730 189 0001:0021E76E + 191 0001:0021E78E 192 0001:0021E7A2 195 0001:0021E7E0 196 0001:0021E7F2 + 198 0001:0021E800 199 0001:0021E814 201 0001:0021E824 202 0001:0021E836 + 203 0001:0021E85D 204 0001:0021E874 205 0001:0021E880 206 0001:0021E891 + 208 0001:0021E8CB 209 0001:0021E8D7 211 0001:0021E8E4 212 0001:0021E8F1 + 213 0001:0021E8FC 214 0001:0021E917 218 0001:0021E92A 225 0001:0021E93F + 226 0001:0021E949 228 0001:0021E993 234 0001:0021E9E8 236 0001:0021E9ED + 248 0001:0021E9F0 254 0001:0021E9F4 264 0001:0021E9F7 265 0001:0021EA04 + 266 0001:0021EA18 272 0001:0021EA1C 273 0001:0021EA3B 275 0001:0021EA41 + 276 0001:0021EA58 278 0001:0021EA6C 280 0001:0021EA87 281 0001:0021EA98 + 282 0001:0021EADF 283 0001:0021EB0D 284 0001:0021EB19 285 0001:0021EB28 + 286 0001:0021EB37 288 0001:0021EB44 289 0001:0021EB55 278 0001:0021EB56 + 292 0001:0021EB61 294 0001:0021EB9B 300 0001:0021EC38 301 0001:0021EC41 + 302 0001:0021EC5E 306 0001:0021EC64 307 0001:0021EC6C 310 0001:0021EC70 + 311 0001:0021EC74 312 0001:0021EC7A 313 0001:0021ECB0 315 0001:0021ECC1 + 316 0001:0021ECD9 317 0001:0021ECE3 319 0001:0021ECE6 320 0001:0021ECED + 322 0001:0021ED02 323 0001:0021ED1E 324 0001:0021ED2B 326 0001:0021ED38 + 327 0001:0021ED49 330 0001:0021ED4C 331 0001:0021ED4F 332 0001:0021ED79 + 338 0001:0021ED7C 339 0001:0021ED85 340 0001:0021EDA3 344 0001:0021EDAC + 346 0001:0021EDB5 347 0001:0021EDD3 351 0001:0021EDDC 352 0001:0021EDF0 + 355 0001:0021EDF4 356 0001:0021EDF7 357 0001:0021EDFE 358 0001:0021EE15 + 361 0001:0021EE18 362 0001:0021EE1B 363 0001:0021EE3F 367 0001:0021EE44 + 368 0001:0021EE5F 369 0001:0021EE7F 370 0001:0021EE96 371 0001:0021EEF6 + 378 0001:0021EEFC 379 0001:0021EF1D 380 0001:0021EF2B 381 0001:0021EF37 + 382 0001:0021EF3E 383 0001:0021EF46 384 0001:0021EF5B 385 0001:0021EF6A + 386 0001:0021EF8A 387 0001:0021EFA2 388 0001:0021EFC4 389 0001:0021EFE0 + 390 0001:0021F018 392 0001:0021F042 394 0001:0021F07D 395 0001:0021F09B + 396 0001:0021F0AB 398 0001:0021F0B1 399 0001:0021F0BF 400 0001:0021F0D1 + 402 0001:0021F0F7 403 0001:0021F112 404 0001:0021F158 406 0001:0021F181 + 407 0001:0021F189 408 0001:0021F19A 413 0001:0021F1B0 414 0001:0021F1CB + 415 0001:0021F1EC 416 0001:0021F20F 417 0001:0021F22E 419 0001:0021F23D + 423 0001:0021F263 425 0001:0021F281 426 0001:0021F2BA 430 0001:0021F510 + 431 0001:0021F51A 432 0001:0021F51F 444 0001:0021F520 451 0001:0021F524 + 452 0001:0021F58D 453 0001:0021F5A3 454 0001:0021F5C6 457 0001:0021F5F2 + 459 0001:0021F60E 460 0001:0021F620 461 0001:0021F649 462 0001:0021F658 + 464 0001:0021F65E 465 0001:0021F66D 466 0001:0021F67E 468 0001:0021F683 + 469 0001:0021F694 470 0001:0021F6A1 471 0001:0021F6B2 472 0001:0021F6C3 + 473 0001:0021F6DD 474 0001:0021F6EB 475 0001:0021F70C 476 0001:0021F724 + 477 0001:0021F734 478 0001:0021F742 479 0001:0021F763 483 0001:0021F77F + 484 0001:0021F7D1 486 0001:0021F7FA 487 0001:0021F802 488 0001:0021F813 + 492 0001:0021F829 494 0001:0021F855 495 0001:0021F8A7 497 0001:0021F8CC + 498 0001:0021F8D4 499 0001:0021F8E6 504 0001:0021F8F9 509 0001:0021F94D + 513 0001:0021FAA4 514 0001:0021FAAB 519 0001:0021FAAC 520 0001:0021FAB1 + 522 0001:0021FAE4 522 0001:0021FAEB + +Line numbers for fDCSumm(fDCSumm.pas) segment .text + + 393 0001:00220F14 394 0001:00220F1B 395 0001:00220F26 396 0001:00220F32 + 397 0001:00220F3C 399 0001:00220F50 401 0001:00220F6F 402 0001:00220F7B + 405 0001:00220F81 407 0001:00220F8F 408 0001:00220F96 409 0001:00220FA4 + 413 0001:00220FB5 414 0001:00220FBE 416 0001:00220FDD 417 0001:00220FEC + 419 0001:00220FFA 420 0001:00221006 423 0001:0022100C 424 0001:00221021 + 427 0001:0022102A 428 0001:00221034 430 0001:00221048 432 0001:00221067 + 433 0001:00221073 436 0001:00221079 438 0001:00221087 439 0001:0022108E + 440 0001:0022109C 444 0001:002210AD 451 0001:002211C4 453 0001:002211E2 + 454 0001:002211FB 455 0001:00221214 457 0001:0022121D 458 0001:00221227 + 459 0001:00221231 460 0001:00221238 462 0001:0022125F 463 0001:0022126E + 464 0001:00221289 465 0001:0022128F 466 0001:002212E5 470 0001:002212EC + 471 0001:002212EF 472 0001:002212F6 473 0001:002212FD 474 0001:00221304 + 475 0001:00221315 476 0001:00221320 477 0001:00221331 478 0001:00221342 + 479 0001:00221349 480 0001:00221357 481 0001:00221365 482 0001:00221373 + 483 0001:0022137D 484 0001:00221387 485 0001:00221391 489 0001:00221394 + 490 0001:002213B4 491 0001:002213BB 492 0001:002213CD 493 0001:002213E1 + 494 0001:002213EE 495 0001:00221402 496 0001:00221416 498 0001:00221425 + 499 0001:0022142C 500 0001:00221448 501 0001:0022145F 502 0001:00221471 + 503 0001:00221485 504 0001:00221499 505 0001:002214B2 508 0001:002214C2 + 510 0001:002214D6 512 0001:002214E3 513 0001:002214F1 515 0001:002214FC + 517 0001:0022150B 519 0001:00221535 524 0001:0022153C 525 0001:00221557 + 527 0001:0022155D 530 0001:0022156F 531 0001:00221579 533 0001:00221583 + 535 0001:002215D3 536 0001:002215F5 539 0001:0022163D 545 0001:002216FC + 546 0001:00221719 548 0001:0022171F 550 0001:0022173A 552 0001:0022174B + 553 0001:00221788 555 0001:002217CA 556 0001:002217EC 559 0001:00221812 + 548 0001:00221813 561 0001:0022183E 565 0001:00221900 566 0001:00221906 + 567 0001:0022190F 568 0001:0022191F 569 0001:0022192F 570 0001:0022193F + 571 0001:0022194E 573 0001:0022195E 579 0001:00221964 580 0001:00221970 + 586 0001:00221974 588 0001:00221978 590 0001:0022197E 591 0001:00221983 + 592 0001:00221988 593 0001:0022198C 594 0001:00221994 595 0001:0022199C + 596 0001:002219A4 597 0001:002219AC 598 0001:002219BA 599 0001:002219C2 + 600 0001:002219D0 601 0001:002219D8 602 0001:002219E6 603 0001:002219EE + 604 0001:002219FC 605 0001:00221A04 606 0001:00221A0C 607 0001:00221A14 + 608 0001:00221A19 609 0001:00221A21 610 0001:00221A26 612 0001:00221A2E + 615 0001:00221A36 616 0001:00221A44 618 0001:00221A51 620 0001:00221A5B + 621 0001:00221A65 622 0001:00221A6C 625 0001:00221A70 626 0001:00221A76 + 627 0001:00221A83 628 0001:00221A90 629 0001:00221A94 630 0001:00221AAB + 631 0001:00221AB6 640 0001:00221ABC 641 0001:00221AEA 642 0001:00221AFB + 646 0001:00221B1D 647 0001:00221B36 648 0001:00221B50 649 0001:00221B5F + 650 0001:00221B6D 651 0001:00221B7B 653 0001:00221BA4 655 0001:00221BB4 + 656 0001:00221BCE 657 0001:00221C06 658 0001:00221C1B 660 0001:00221C36 + 661 0001:00221C4E 662 0001:00221C5E 666 0001:00221C80 668 0001:00221C90 + 669 0001:00221C9C 670 0001:00221CAC 672 0001:00221CC9 673 0001:00221CE6 + 675 0001:00221CF0 678 0001:00221CFA 679 0001:00221D47 680 0001:00221D67 + 681 0001:00221D80 682 0001:00221D9A 683 0001:00221DA9 684 0001:00221DB7 + 685 0001:00221DD5 687 0001:00221DFE 689 0001:00221E0E 690 0001:00221E2F + 691 0001:00221E44 693 0001:00221E5F 696 0001:00221E68 698 0001:00221E72 + 699 0001:00221E85 700 0001:00221ED3 714 0001:00221F44 715 0001:00221F7F + 716 0001:00221F83 717 0001:00221F88 718 0001:00221F96 719 0001:00221F9E + 720 0001:00221FA8 721 0001:00221FBC 723 0001:00221FC5 724 0001:00221FCA + 725 0001:00221FD1 726 0001:00221FD8 727 0001:00221FEB 729 0001:00221FFF + 730 0001:00222003 732 0001:0022200B 733 0001:00222014 734 0001:00222027 + 735 0001:0022203A 736 0001:00222040 738 0001:00222048 741 0001:00222050 + 742 0001:00222068 743 0001:00222089 744 0001:0022208B 746 0001:00222093 + 748 0001:0022209D 749 0001:002220B1 750 0001:002220D5 752 0001:002220EA + 753 0001:00222102 755 0001:00222115 756 0001:0022213D 758 0001:00222140 + 759 0001:0022219A 762 0001:002221A4 763 0001:002221AF 767 0001:002221BF + 768 0001:002221CA 769 0001:002221D4 774 0001:002221DE 775 0001:002221EA + 776 0001:00222204 777 0001:00222219 779 0001:0022222C 780 0001:0022223D + 781 0001:00222248 782 0001:0022225C 786 0001:00222266 788 0001:0022226F + 794 0001:0022237D 795 0001:00222395 796 0001:0022239C 797 0001:002223B0 + 799 0001:002223BA 800 0001:002223F3 801 0001:002223FF 802 0001:0022240B + 803 0001:0022243A 804 0001:00222446 808 0001:00222457 810 0001:00222488 + 811 0001:00222494 812 0001:0022249D 813 0001:002224CC 814 0001:002224D8 + 816 0001:002224E4 817 0001:002224EE 818 0001:002224FE 819 0001:00222512 + 820 0001:00222519 821 0001:0022254F 822 0001:00222562 823 0001:0022256C + 824 0001:00222572 825 0001:00222581 826 0001:00222592 827 0001:0022259C + 828 0001:002225A7 829 0001:002225B2 830 0001:002225C5 833 0001:002225D8 + 834 0001:002225E7 838 0001:002225E9 840 0001:00222602 842 0001:00222608 + 843 0001:00222627 844 0001:0022265C 845 0001:00222673 847 0001:0022267B + 848 0001:00222681 850 0001:002226D4 863 0001:00222840 864 0001:00222871 + 865 0001:00222878 866 0001:0022287F 868 0001:00222885 869 0001:0022288C + 870 0001:002228A0 871 0001:002228E1 872 0001:0022291C 873 0001:00222925 + 874 0001:00222938 875 0001:0022294B 878 0001:00222959 879 0001:00222964 + 880 0001:0022297F 881 0001:00222983 883 0001:0022298D 885 0001:00222993 + 886 0001:002229A4 887 0001:002229B7 888 0001:002229C2 889 0001:002229E7 + 890 0001:002229F8 891 0001:00222A2B 893 0001:00222A42 894 0001:00222A56 + 895 0001:00222A61 896 0001:00222A75 898 0001:00222A7F 900 0001:00222A85 + 906 0001:00222B98 907 0001:00222BAD 908 0001:00222BB4 909 0001:00222BC5 + 911 0001:00222BF3 912 0001:00222BFF 913 0001:00222C08 914 0001:00222C34 + 915 0001:00222C3E 916 0001:00222C4A 917 0001:00222C56 918 0001:00222C63 + 919 0001:00222C74 920 0001:00222C7B 921 0001:00222CB0 922 0001:00222CC0 + 923 0001:00222CC9 924 0001:00222CD2 925 0001:00222CDB 926 0001:00222CEE + 929 0001:00222CFE 930 0001:00222D0D 933 0001:00222D11 934 0001:00222D4E + 941 0001:00222E54 942 0001:00222E79 943 0001:00222E88 944 0001:00222EA4 + 945 0001:00222EBB 946 0001:00222F02 947 0001:00222F21 948 0001:00222F3D + 949 0001:00222F44 951 0001:00222F51 952 0001:00222F5B 953 0001:00222F9F + 954 0001:00222FE3 955 0001:0022300D 958 0001:0022301D 959 0001:00223024 + 960 0001:00223035 961 0001:00223050 963 0001:00223054 965 0001:00223082 + 968 0001:00223090 969 0001:00223097 970 0001:002230BA 971 0001:002230C3 + 972 0001:002230EF 973 0001:002230F9 974 0001:00223123 976 0001:00223131 + 977 0001:0022313D 978 0001:00223147 979 0001:00223154 980 0001:00223165 + 982 0001:0022316C 983 0001:002231B3 984 0001:002231D0 985 0001:002231E0 + 986 0001:002231E9 987 0001:002231F2 988 0001:00223205 989 0001:0022324A + 993 0001:002232EC 994 0001:00223313 995 0001:00223319 997 0001:002233B9 + 1004 0001:002233E0 1005 0001:00223413 1006 0001:00223419 1008 0001:0022344C + 1009 0001:00223466 1010 0001:00223482 1011 0001:00223489 1012 0001:002234B8 + 1013 0001:002234BF 1014 0001:002234DA 1019 0001:00223529 1020 0001:00223533 + 1021 0001:0022353E 1022 0001:00223544 1025 0001:00223553 1026 0001:0022355D + 1029 0001:00223562 1031 0001:0022356B 1033 0001:00223583 1034 0001:00223594 + 1035 0001:002235A5 1037 0001:002235AA 1038 0001:002235BA 1039 0001:002235CF + 1040 0001:002235F4 1042 0001:002235FE 1044 0001:00223623 1046 0001:0022362F + 1047 0001:00223647 1050 0001:00223653 1053 0001:0022365D 1054 0001:0022366D + 1055 0001:0022367B 1057 0001:002236B2 1059 0001:002236CA 1061 0001:002236D5 + 1063 0001:002236E6 1064 0001:00223704 1067 0001:0022370F 1069 0001:0022372B + 1070 0001:00223736 1072 0001:00223741 1073 0001:0022374C 1074 0001:00223752 + 1077 0001:0022375E 1078 0001:0022376A 1080 0001:002237DD 1085 0001:00223B7C + 1086 0001:00223B85 1087 0001:00223B8A 1093 0001:00223B8C 1095 0001:00223B8F + 1096 0001:00223B9A 1097 0001:00223BA8 1102 0001:00223BAC 1104 0001:00223BC3 + 1105 0001:00223BD3 1106 0001:00223C13 1107 0001:00223C56 1113 0001:00223C5C + 1115 0001:00223C7F 1116 0001:00223C96 1118 0001:00223CA8 1119 0001:00223CB5 + 1120 0001:00223CC2 1121 0001:00223CCF 1122 0001:00223CDC 1125 0001:00223CEE + 1126 0001:00223CF8 1127 0001:00223D08 1128 0001:00223D15 1129 0001:00223D22 + 1130 0001:00223D56 1131 0001:00223D72 1133 0001:00223D93 1134 0001:00223DAD + 1135 0001:00223DBD 1136 0001:00223DCA 1137 0001:00223DD7 1138 0001:00223DE4 + 1139 0001:00223DF1 1140 0001:00223DFF 1142 0001:00223E06 1143 0001:00223E0D + 1144 0001:00223E18 1145 0001:00223E26 1146 0001:00223E34 1147 0001:00223EBE + 1153 0001:00223F18 1154 0001:00223F1F 1157 0001:00223F20 1159 0001:00223F23 + 1160 0001:00223F30 1161 0001:00223F3C 1162 0001:00223F49 1163 0001:00223F59 + 1164 0001:00223F60 1170 0001:00223F64 1178 0001:00223F68 1179 0001:00223F6F + 1189 0001:00223F70 1191 0001:00223FB1 1193 0001:00223FBA 1194 0001:00223FC4 + 1196 0001:00223FCE 1197 0001:00223FEA 1198 0001:00223FF4 1199 0001:00224001 + 1200 0001:0022401E 1201 0001:00224033 1202 0001:0022403A 1204 0001:0022406B + 1205 0001:0022407D 1206 0001:002240B2 1207 0001:002240CD 1208 0001:002240D8 + 1211 0001:002240E4 1212 0001:002240F6 1213 0001:00224106 1214 0001:00224121 + 1217 0001:0022412D 1218 0001:0022413F 1219 0001:0022414F 1220 0001:0022416A + 1223 0001:00224176 1224 0001:00224188 1225 0001:00224198 1226 0001:002241B3 + 1229 0001:002241BF 1230 0001:002241D5 1232 0001:002241DF 1233 0001:002241F1 + 1234 0001:0022420F 1235 0001:0022422A 1236 0001:0022423C 1237 0001:00224245 + 1241 0001:00224251 1242 0001:00224267 1244 0001:00224271 1245 0001:00224283 + 1247 0001:002242DA 1248 0001:002242E8 1249 0001:002242F6 1250 0001:00224308 + 1251 0001:0022431A 1252 0001:00224323 1253 0001:00224344 1257 0001:00224350 + 1259 0001:00224361 1262 0001:0022437B 1266 0001:00224388 1267 0001:00224399 + 1268 0001:002243AA 1269 0001:002243C2 1270 0001:002243DA 1271 0001:002243EB + 1272 0001:00224403 1273 0001:0022440E 1275 0001:00224419 1276 0001:0022442A + 1277 0001:00224435 1278 0001:00224446 1279 0001:00224451 1280 0001:00224462 + 1281 0001:00224473 1282 0001:0022447E 1286 0001:00224485 1287 0001:002244A9 + 1288 0001:002244D0 1289 0001:002244F2 1290 0001:00224552 1299 0001:0022464C + 1300 0001:00224671 1301 0001:00224673 1303 0001:00224680 1305 0001:00224697 + 1306 0001:002246D5 1309 0001:002246E7 1310 0001:00224725 1313 0001:00224737 + 1314 0001:00224775 1318 0001:00224784 1319 0001:002247C2 1323 0001:002247CF + 1326 0001:002247E7 1327 0001:002247F1 1330 0001:00224826 1336 0001:00224A08 + 1338 0001:00224A0B 1353 0001:00224A1B 1354 0001:00224A26 1362 0001:00224A28 + 1364 0001:00224A40 1365 0001:00224A4D 1367 0001:00224A61 1369 0001:00224A92 + 1371 0001:00224AA2 1372 0001:00224AB8 1374 0001:00224AC4 1376 0001:00224AD4 + 1377 0001:00224AE7 1379 0001:00224AE9 1380 0001:00224B11 1387 0001:00224B88 + 1389 0001:00224BB4 1390 0001:00224BC3 1391 0001:00224BDC 1393 0001:00224BF0 + 1394 0001:00224C1C 1396 0001:00224C32 1397 0001:00224C43 1399 0001:00224C45 + 1400 0001:00224C5F 1402 0001:00224C65 1403 0001:00224C74 1405 0001:00224C76 + 1408 0001:00224C8F 1409 0001:00224CA0 1411 0001:00224CA2 1412 0001:00224CAE + 1413 0001:00224CE8 1420 0001:00224DFC 1421 0001:00224E1E 1422 0001:00224E37 + 1423 0001:00224E50 1425 0001:00224E59 1426 0001:00224E63 1427 0001:00224E6D + 1428 0001:00224E74 1430 0001:00224E9B 1432 0001:00224EB7 1433 0001:00224EDE + 1434 0001:00224F05 1435 0001:00224F14 1437 0001:00224F19 1441 0001:00224F84 + 1442 0001:00224F9C 1443 0001:00224FB9 1445 0001:00224FC8 1446 0001:00224FCF + 1447 0001:00224FF6 1451 0001:00225019 1452 0001:00225040 1453 0001:00225067 + 1455 0001:002250B5 1466 0001:00225188 1468 0001:002251B7 1469 0001:002251C6 + 1470 0001:002251E0 1472 0001:002251F4 1473 0001:00225207 1475 0001:0022520C + 1477 0001:0022523E 1479 0001:00225252 1480 0001:0022525F 1483 0001:0022526E + 1484 0001:0022527B 1486 0001:00225288 1487 0001:002252A0 1489 0001:002252A6 + 1490 0001:002252B5 1492 0001:002252B7 1493 0001:002252CB 1494 0001:0022535F + 1497 0001:00225500 1498 0001:0022552F 1500 0001:0022553F 1501 0001:00225550 + 1502 0001:0022556F 1503 0001:0022558E 1504 0001:002255AD 1505 0001:002255CC + 1506 0001:002255EB 1507 0001:0022560A 1508 0001:00225629 1509 0001:00225648 + 1510 0001:00225689 1520 0001:002256FC 1522 0001:0022573B 1523 0001:0022574A + 1524 0001:00225764 1525 0001:0022577E 1526 0001:00225791 1528 0001:002257A4 + 1531 0001:002257FD 1533 0001:00225819 1534 0001:0022582D 1535 0001:0022583E + 1536 0001:00225857 1537 0001:00225864 1539 0001:0022589B 1540 0001:002258A5 + 1542 0001:002258AF 1543 0001:002258B9 1551 0001:002258C0 1552 0001:002258C4 + 1553 0001:002258CE 1554 0001:002258DD 1555 0001:0022590B 1556 0001:0022592D + 1558 0001:00225941 1560 0001:0022594B 1561 0001:00225953 1563 0001:0022595A + 1567 0001:00225961 1568 0001:0022596E 1569 0001:0022597B 1570 0001:00225980 + 1571 0001:00225989 1572 0001:00225995 1573 0001:002259A2 1574 0001:002259AF + 1575 0001:002259C3 1578 0001:002259DC 1579 0001:00225A37 1586 0001:00225BD8 + 1588 0001:00225C04 1589 0001:00225C13 1590 0001:00225C2D 1591 0001:00225C46 + 1593 0001:00225C56 1594 0001:00225C82 1595 0001:00225C9C 1597 0001:00225CA2 + 1598 0001:00225CB1 1600 0001:00225CB3 1601 0001:00225CEF 1608 0001:00225D30 + 1610 0001:00225D4B 1612 0001:00225D58 1613 0001:00225D84 1614 0001:00225D92 + 1615 0001:00225D9C 1618 0001:00225DB4 1619 0001:00225DBB 1622 0001:00225DE4 + 1623 0001:00225E19 1638 0001:00225E78 1640 0001:00225EB6 1649 0001:00225EC5 + 1650 0001:00225EDE 1651 0001:00225EEC 1653 0001:00225F04 1654 0001:00225F0E + 1656 0001:00225F27 1658 0001:00225F2A 1659 0001:00225F43 1661 0001:00225F56 + 1663 0001:00225F6A 1664 0001:00225F7D 1666 0001:00225F82 1668 0001:00225FB4 + 1670 0001:00225FC8 1671 0001:00225FD5 1674 0001:00225FE4 1675 0001:00225FF1 + 1677 0001:00225FFE 1679 0001:0022601A 1680 0001:0022601E 1681 0001:00226036 + 1683 0001:00226040 1684 0001:0022605A 1685 0001:0022606E 1687 0001:00226079 + 1688 0001:00226089 1689 0001:00226092 1691 0001:0022609B 1693 0001:002260AF + 1696 0001:002260F3 1698 0001:002260FD 1699 0001:00226142 1701 0001:00226152 + 1702 0001:0022616A 1703 0001:00226180 1704 0001:002261B0 1705 0001:002261DD + 1706 0001:002261E3 1707 0001:002261EE 1710 0001:002261FF 1713 0001:00226237 + 1714 0001:00226246 1716 0001:0022625E 1718 0001:00226265 1720 0001:0022626F + 1721 0001:00226284 1723 0001:002262B2 1724 0001:002262BE 1725 0001:002262C7 + 1726 0001:002262F9 1727 0001:00226305 1728 0001:00226317 1731 0001:0022632E + 1733 0001:00226334 1734 0001:00226358 1736 0001:00226402 1750 0001:00226654 + 1751 0001:00226699 1752 0001:002266A0 1753 0001:002266AC 1754 0001:002266B6 + 1755 0001:002266D6 1757 0001:00226712 1758 0001:00226715 1759 0001:00226717 + 1755 0001:00226718 1760 0001:0022671B 1762 0001:0022672C 1763 0001:00226736 + 1764 0001:00226740 1766 0001:00226749 1767 0001:00226750 1769 0001:00226755 + 1772 0001:00226769 1774 0001:00226779 1776 0001:00226785 1777 0001:00226792 + 1780 0001:002267A1 1781 0001:002267AE 1783 0001:002267BB 1784 0001:002267C9 + 1786 0001:002267CF 1787 0001:002267DE 1789 0001:002267E2 1791 0001:002267EE + 1792 0001:00226801 1794 0001:00226805 1796 0001:0022682C 1797 0001:00226830 + 1798 0001:00226832 1800 0001:0022683A 1801 0001:00226853 1803 0001:0022685B + 1804 0001:0022685D 1805 0001:0022686A 1806 0001:0022687E 1808 0001:0022688D + 1809 0001:0022689D 1810 0001:002268A6 1813 0001:002268B1 1814 0001:002268BB + 1816 0001:002268C1 1817 0001:002268CF 1822 0001:002268E4 1824 0001:00226907 + 1825 0001:0022690E 1827 0001:00226975 1830 0001:00226B34 1832 0001:00226B3A + 1833 0001:00226B56 1834 0001:00226B6B 1835 0001:00226B73 1837 0001:00226B81 + 1838 0001:00226B9B 1839 0001:00226BAF 1841 0001:00226BE1 1842 0001:00226C0C + 1845 0001:00226C29 1846 0001:00226C36 1847 0001:00226C43 1848 0001:00226C50 + 1850 0001:00226C5D 1852 0001:00226C6D 1853 0001:00226C7A 1854 0001:00226C87 + 1855 0001:00226C94 1856 0001:00226CAF 1857 0001:00226CE2 1860 0001:00226D18 + 1861 0001:00226D25 1862 0001:00226D32 1863 0001:00226D3F 1864 0001:00226D4C + 1865 0001:00226D59 1867 0001:00226D66 1872 0001:00226D6C 1873 0001:00226D77 + 1878 0001:00226D78 1879 0001:00226D83 1882 0001:00226D84 1884 0001:00226D9A + 1886 0001:00226DD2 1891 0001:00226DD8 1892 0001:00226DED 1893 0001:00226DF4 + 1896 0001:00226DF8 1898 0001:00226E00 1899 0001:00226E1D 1901 0001:00226E23 + 1902 0001:00226E52 1903 0001:00226E5B 1904 0001:00226E65 1906 0001:00226E6C + 1910 0001:00226E78 1911 0001:00226E95 1914 0001:00226E98 1916 0001:00226EA0 + 1917 0001:00226EBD 1919 0001:00226EC3 1920 0001:00226EF2 1921 0001:00226EFB + 1922 0001:00226F04 1923 0001:00226F0E 1925 0001:00226F15 1930 0001:00226F20 + 1931 0001:00226F3D 1936 0001:00226F40 1937 0001:00226F5D 1940 0001:00226F60 + 1942 0001:00226F67 1943 0001:00226F71 1944 0001:00226F81 1945 0001:00226F8F + 1947 0001:00226FAA 1948 0001:00226FB4 1949 0001:00226FBE 1951 0001:00226FD6 + 1954 0001:00226FDC 1956 0001:00226FE3 1957 0001:00226FED 1958 0001:00226FFD + 1959 0001:0022700B 1961 0001:00227026 1962 0001:00227030 1963 0001:0022703A + 1965 0001:00227052 1968 0001:00227058 1969 0001:0022705B 1970 0001:00227062 + 1971 0001:0022706C 1972 0001:0022707E 1973 0001:00227090 1974 0001:002270A2 + 1975 0001:002270AE 1976 0001:002270B8 1977 0001:002270CC 1978 0001:002270D7 + 1979 0001:002270E2 1980 0001:00227108 1981 0001:00227114 1982 0001:00227124 + 1983 0001:00227134 1984 0001:00227143 1985 0001:00227158 1986 0001:0022716D + 1987 0001:00227182 1988 0001:00227197 1989 0001:002271A9 1990 0001:002271BB + 1991 0001:002271CB 1994 0001:002271D4 1996 0001:002271D7 1997 0001:002271F7 + 1998 0001:00227208 2000 0001:00227214 2001 0001:0022721E 2002 0001:0022722E + 2003 0001:0022724C 2004 0001:0022725A 2005 0001:00227261 2006 0001:00227271 + 2009 0001:00227281 2010 0001:0022728A 2011 0001:002272A4 2019 0001:002272D8 + 2020 0001:00227308 2021 0001:00227313 2023 0001:0022732C 2024 0001:00227333 + 2027 0001:0022734E 2028 0001:00227365 2030 0001:00227374 2031 0001:00227382 + 2033 0001:00227388 2034 0001:00227395 2039 0001:002273CB 2050 0001:002273D4 + 2052 0001:00227412 2053 0001:00227421 2055 0001:00227437 2056 0001:00227441 + 2057 0001:0022744B 2058 0001:00227452 2060 0001:00227479 2061 0001:0022748B + 2062 0001:002274A5 2063 0001:002274A8 2065 0001:002274B0 2068 0001:002274E9 + 2070 0001:002274EE 2072 0001:002274F0 2073 0001:002274FF 2076 0001:0022750A + 2077 0001:00227519 2088 0001:0022751E 2089 0001:00227531 2090 0001:00227586 + 2091 0001:00227594 2092 0001:002275D6 2095 0001:00227602 2096 0001:00227610 + 2097 0001:00227630 2098 0001:00227645 2099 0001:00227663 2101 0001:00227669 + 2102 0001:0022767B 2103 0001:0022768E 2106 0001:002276A4 2108 0001:002276E5 + 2113 0001:0022776C 2114 0001:00227773 2122 0001:00227774 2123 0001:00227797 + 2125 0001:002277A0 2126 0001:002277AA 2128 0001:002277B4 2129 0001:002277D1 + 2130 0001:002277EE 2131 0001:002277F8 2132 0001:00227805 2133 0001:00227810 + 2135 0001:0022781F 2137 0001:00227840 2138 0001:00227851 2140 0001:00227856 + 2141 0001:0022785D 2142 0001:0022786E 2143 0001:0022787C 2144 0001:00227887 + 2145 0001:00227898 2146 0001:002278AB 2147 0001:002278B7 2148 0001:002278D9 + 2149 0001:002278E5 2150 0001:002278EE 2151 0001:002278F8 2152 0001:00227911 + 2153 0001:0022791D 2154 0001:0022792F 2155 0001:0022793C 2156 0001:0022794D + 2157 0001:00227954 2158 0001:0022796A 2161 0001:00227976 2162 0001:002279C9 + 2163 0001:00227A46 2168 0001:00227B90 2169 0001:00227BAB 2171 0001:00227BB4 + 2172 0001:00227BBE 2174 0001:00227BC8 2175 0001:00227BD2 2176 0001:00227BDF + 2177 0001:00227BEA 2179 0001:00227BF7 2180 0001:00227C05 2181 0001:00227C13 + 2182 0001:00227C25 2183 0001:00227C37 2184 0001:00227C45 2185 0001:00227C57 + 2186 0001:00227C60 2187 0001:00227C69 2188 0001:00227C77 2189 0001:00227C85 + 2190 0001:00227C8E 2191 0001:00227C97 2192 0001:00227CA5 2193 0001:00227CB3 + 2194 0001:00227CBC 2195 0001:00227CBF 2199 0001:00227CCA 2200 0001:00227CD1 + 2202 0001:00227CEF 2213 0001:00227CF4 2215 0001:00227CF7 2216 0001:00227D00 + 2218 0001:00227D18 2219 0001:00227D25 2221 0001:00227D27 2223 0001:00227D3F + 2224 0001:00227D4A 2227 0001:00227D61 2232 0001:00227F1C 2233 0001:00227F27 + 2236 0001:00227F28 2238 0001:00227F3E 2239 0001:00227F7A 2242 0001:00227F80 + 2244 0001:00227F83 2245 0001:00227FA4 2246 0001:00227FB8 2247 0001:00227FCC + 2248 0001:00227FE0 2249 0001:00227FF4 2254 0001:00227FF8 2255 0001:00228003 + 2258 0001:00228004 2260 0001:00228008 2261 0001:00228015 2262 0001:00228026 + 2263 0001:00228034 2264 0001:0022803F 2265 0001:00228055 2268 0001:00228058 + 2270 0001:0022805B 2271 0001:0022806A 2272 0001:0022808B 2275 0001:00228090 + 2277 0001:00228093 2278 0001:002280A2 2279 0001:002280C3 2284 0001:002280C8 + 2285 0001:002280D3 2290 0001:002280D4 2291 0001:002280DF 2294 0001:002280E0 + 2296 0001:002280E3 2297 0001:002280FA 2298 0001:00228111 2299 0001:00228128 + 2300 0001:0022813F 2301 0001:00228151 2306 0001:00228154 2307 0001:0022815F + 2312 0001:00228160 2313 0001:0022816B 2316 0001:0022816C 2317 0001:0022816F + 2318 0001:0022817F 2319 0001:0022818A 2320 0001:00228195 2322 0001:002281A0 + 2326 0001:002281A4 2327 0001:002281A9 2331 0001:002281AC 2332 0001:002281B2 + 2349 0001:002281B4 2350 0001:002281BA 2351 0001:002281BC 2353 0001:002281C2 + 2354 0001:002281CA 2355 0001:002281DC 2356 0001:002281EC 2358 0001:002281F4 + 2361 0001:0022821A 2362 0001:00228224 2363 0001:00228232 2365 0001:00228241 + 2366 0001:0022824E 2369 0001:0022827B 2378 0001:00228288 2379 0001:0022829E + 2381 0001:002282A7 2382 0001:002282B4 2384 0001:002282D9 2385 0001:00228304 + 2391 0001:00228334 2392 0001:0022834A 2393 0001:0022834C 2394 0001:00228372 + 2395 0001:00228380 2397 0001:00228386 2398 0001:00228388 2400 0001:002283BB + 2405 0001:002283E4 2406 0001:00228401 2408 0001:00228421 2410 0001:0022842B + 2411 0001:0022843B 2412 0001:00228449 2414 0001:00228488 2416 0001:002284A0 + 2417 0001:002284AA 2419 0001:002284B1 2420 0001:002284B7 2422 0001:00228504 + 2427 0001:002286F4 2428 0001:002286FE 2432 0001:00228700 2433 0001:0022872D + 2434 0001:00228736 2437 0001:0022883F 2445 0001:00228874 2447 0001:00228896 + 2448 0001:002288AE 2449 0001:002288B7 2451 0001:002288BB 2452 0001:002288C3 + 2455 0001:002288D6 2456 0001:002288D8 2458 0001:002288E0 2459 0001:0022890B + 2460 0001:00228949 2461 0001:00228973 2462 0001:0022899D 2463 0001:002289C4 + 2464 0001:002289D5 2465 0001:00228A0E 2466 0001:00228A1C 2467 0001:00228A45 + 2468 0001:00228A53 2469 0001:00228A62 2470 0001:00228A85 2471 0001:00228A92 + 2473 0001:00228AA0 2474 0001:00228ADA 2475 0001:00228B0B 2476 0001:00228B3A + 2477 0001:00228B53 2478 0001:00228B74 2479 0001:00228B9C 2480 0001:00228BBC + 2481 0001:00228BCF 2482 0001:00228BE8 2483 0001:00228C29 2484 0001:00228CBE + 2487 0001:00228D6C 2489 0001:00228D72 2490 0001:00228D7D 2491 0001:00228D9C + 2492 0001:00228DA5 2501 0001:00228DA8 2502 0001:00228DBB 2503 0001:00228DFF + 2504 0001:00228E1C 2505 0001:00228E46 2507 0001:00228E5C 2509 0001:00228E7E + 2510 0001:00228E8E 2511 0001:00228EBE 2512 0001:00228ECD 2513 0001:00228EDB + 2514 0001:00228EF3 2515 0001:00228F04 2518 0001:00228F38 2519 0001:00228F64 + 2521 0001:00228F74 2524 0001:00228F87 2525 0001:00228FBC 2527 0001:00228FD5 + 2532 0001:00228FDE 2533 0001:00228FE9 2536 0001:00228FFC 2537 0001:00229000 + 2538 0001:00229024 2542 0001:00229045 2544 0001:00229087 2549 0001:00229174 + 2550 0001:0022917B 2551 0001:00229185 2556 0001:00229188 2557 0001:0022918D + 2565 0001:00229190 2566 0001:002291B0 2567 0001:002291BF 2568 0001:002291CD + 2569 0001:002291DB 2570 0001:002291E2 2571 0001:002291F5 2572 0001:00229208 + 2573 0001:0022921C 2574 0001:0022922F 2575 0001:0022923D 2576 0001:00229251 + 2577 0001:00229265 2578 0001:00229279 2579 0001:0022928A 2580 0001:00229298 + 2581 0001:002292A8 2582 0001:002292CA 2583 0001:002292F1 2585 0001:002292FA + 2587 0001:00229314 2588 0001:00229333 2590 0001:0022933F 2591 0001:0022935F + 2593 0001:00229379 2594 0001:00229381 2596 0001:0022938F 2598 0001:002293A9 + 2599 0001:002293C8 2601 0001:002293D4 2602 0001:002293F4 2604 0001:0022940E + 2605 0001:00229416 2607 0001:00229424 2608 0001:00229451 2609 0001:00229478 + 2611 0001:00229492 2613 0001:0022949B 2614 0001:002294A2 2615 0001:002294B6 + 2616 0001:002294CD 2617 0001:002294D9 2618 0001:002294FB 2620 0001:0022950A + 2622 0001:00229522 2623 0001:0022952F 2625 0001:00229537 2626 0001:00229540 + 2627 0001:00229549 2623 0001:00229552 2632 0001:0022955B 2633 0001:0022957D + 2634 0001:0022958A 2635 0001:002295B3 2636 0001:002295B7 2637 0001:002295E0 + 2638 0001:002295E4 2639 0001:00229606 2641 0001:0022960A 2642 0001:00229615 + 2644 0001:00229627 2648 0001:00229630 2649 0001:00229641 2651 0001:0022964A + 2652 0001:00229653 2653 0001:0022965F 2654 0001:00229678 2656 0001:00229684 + 2657 0001:002296AA 2661 0001:002296C3 2662 0001:002296E7 2666 0001:00229713 + 2667 0001:00229727 2668 0001:0022972E 2669 0001:0022974B 2672 0001:00229777 + 2673 0001:0022978A 2674 0001:0022979D 2676 0001:002297DC 2679 0001:002297F4 + 2682 0001:002297FD 2683 0001:00229804 2684 0001:0022980F 2685 0001:00229821 + 2686 0001:0022983A 2687 0001:00229845 2689 0001:0022984C 2696 0001:0022985C + 2697 0001:00229882 2700 0001:0022988F 2701 0001:0022989B 2703 0001:002298A1 + 2704 0001:002298AF 2705 0001:002298BE 2707 0001:002298CB 2708 0001:002298E9 + 2709 0001:00229907 2710 0001:00229921 2712 0001:00229944 2713 0001:00229951 + 2714 0001:00229965 2717 0001:00229977 2719 0001:0022999A 2720 0001:002299A7 + 2722 0001:002299BB 2723 0001:002299CB 2724 0001:002299DB 2725 0001:002299F4 + 2726 0001:00229A0D 2727 0001:00229A1F 2729 0001:00229A32 2730 0001:00229A3F + 2731 0001:00229A50 2732 0001:00229A6F 2734 0001:00229A75 2735 0001:00229A91 + 2737 0001:00229AAB 2738 0001:00229ABF 2739 0001:00229ACE 2740 0001:00229ADD + 2742 0001:00229AEA 2744 0001:00229B31 2745 0001:00229B49 2748 0001:00229B61 + 2749 0001:00229B6E 2750 0001:00229B8A 2751 0001:00229B9C 2752 0001:00229BBD + 2753 0001:00229BD4 2755 0001:00229BF8 2756 0001:00229BFF 2757 0001:00229C29 + 2759 0001:00229C2F 2760 0001:00229C49 2759 0001:00229C62 2761 0001:00229C65 + 2762 0001:00229C70 2763 0001:00229C80 2764 0001:00229C89 2766 0001:00229CA6 + 2767 0001:00229CC1 2768 0001:00229CD4 2769 0001:00229CDB 2770 0001:00229CF2 + 2772 0001:00229D09 2773 0001:00229D10 2774 0001:00229D16 2776 0001:00229D25 + 2777 0001:00229D3B 2781 0001:00229D51 2782 0001:00229D5A 2783 0001:00229D6B + 2784 0001:00229D79 2786 0001:00229D82 2787 0001:00229D8F 2796 0001:00229DA1 + 2798 0001:00229DC2 2799 0001:00229DD0 2800 0001:00229DDD 2801 0001:00229DFE + 2802 0001:00229E07 2804 0001:00229E21 2805 0001:00229E3B 2806 0001:00229E4B + 2808 0001:00229EB9 2811 0001:00229F2C 2814 0001:00229F2F 2815 0001:00229F43 + 2816 0001:00229F4D 2817 0001:00229F61 2819 0001:00229F6B 2824 0001:00229F70 + 2827 0001:00229F8F 2830 0001:00229FDF 2833 0001:0022A003 2834 0001:0022A030 + 2837 0001:0022A05F 2838 0001:0022A065 2841 0001:0022A086 2844 0001:0022A0CB + 2847 0001:0022A0E8 2850 0001:0022A107 2853 0001:0022A157 2856 0001:0022A17B + 2857 0001:0022A1A8 2860 0001:0022A1D7 2861 0001:0022A1DD 2864 0001:0022A1FE + 2867 0001:0022A243 2869 0001:0022A260 2872 0001:0022A264 2873 0001:0022A26B + 2875 0001:0022A27C 2876 0001:0022A285 2878 0001:0022A297 2880 0001:0022A2A7 + 2881 0001:0022A2BB 2882 0001:0022A2C5 2883 0001:0022A2D9 2885 0001:0022A2E3 + 2897 0001:0022A2F4 2902 0001:0022A2F8 2903 0001:0022A2FF 2904 0001:0022A305 + 2905 0001:0022A30E 2906 0001:0022A321 2907 0001:0022A32D 2908 0001:0022A338 + 2909 0001:0022A34D 2912 0001:0022A360 2913 0001:0022A36A 2914 0001:0022A37A + 2915 0001:0022A384 2916 0001:0022A38A 2923 0001:0022A390 2924 0001:0022A39F + 2926 0001:0022A3A8 2927 0001:0022A3AD 2929 0001:0022A3AF 2930 0001:0022A3BE + 2932 0001:0022A3C7 2933 0001:0022A3D1 2935 0001:0022A3D7 2936 0001:0022A3EA + 2937 0001:0022A3FB 2938 0001:0022A411 2947 0001:0022A41C 2948 0001:0022A438 + 2952 0001:0022A46E 2953 0001:0022A473 2955 0001:0022A475 2957 0001:0022A47E + 2958 0001:0022A488 2960 0001:0022A48E 2962 0001:0022A4AA 2963 0001:0022A4B9 + 2965 0001:0022A4DB 2970 0001:0022A500 2971 0001:0022A510 2972 0001:0022A52F + 2973 0001:0022A537 2975 0001:0022A545 2976 0001:0022A54C 2977 0001:0022A567 + 2976 0001:0022A583 2978 0001:0022A586 2979 0001:0022A5B7 2980 0001:0022A5DD + 2981 0001:0022A5E3 2982 0001:0022A60C 2983 0001:0022A61E 2984 0001:0022A630 + 2985 0001:0022A642 2986 0001:0022A654 2988 0001:0022A666 2990 0001:0022A676 + 2991 0001:0022A681 2993 0001:0022A694 2998 0001:0022A6D8 2999 0001:0022A6F8 + 3000 0001:0022A701 3002 0001:0022A716 3003 0001:0022A71D 3005 0001:0022A74C + 3006 0001:0022A779 3010 0001:0022A784 3011 0001:0022A79D 3014 0001:0022A7AC + 3015 0001:0022A7B6 3016 0001:0022A7D4 3017 0001:0022A7DD 3019 0001:0022A814 + 3022 0001:0022A850 3024 0001:0022A851 3026 0001:0022A857 3028 0001:0022A860 + 3029 0001:0022A886 3033 0001:0022A89F 3034 0001:0022A8C3 3037 0001:0022A8EF + 3040 0001:0022A8F4 3041 0001:0022A8FD 3042 0001:0022A900 3043 0001:0022A90D + 3044 0001:0022A91A 3045 0001:0022A927 3046 0001:0022A934 3047 0001:0022A941 + 3048 0001:0022A94E 3049 0001:0022A953 3051 0001:0022A963 3052 0001:0022A970 + 3057 0001:0022A974 3058 0001:0022A97D 3066 0001:0022A980 3068 0001:0022A99F + 3069 0001:0022A9AC 3070 0001:0022A9C5 3071 0001:0022A9DE 3073 0001:0022A9E7 + 3074 0001:0022A9F1 3075 0001:0022A9FB 3076 0001:0022AA02 3078 0001:0022AA29 + 3079 0001:0022AA38 3080 0001:0022AA45 3081 0001:0022AA53 3082 0001:0022AA59 + 3083 0001:0022AA85 3084 0001:0022AAC5 3093 0001:0022AACC 3094 0001:0022AAF6 + 3095 0001:0022AB06 3096 0001:0022AB0E 3097 0001:0022AB1F 3098 0001:0022AB3C + 3099 0001:0022AB4D 3100 0001:0022AB58 3102 0001:0022AB5E 3103 0001:0022AB6D + 3107 0001:0022AB72 3108 0001:0022AB7A 3112 0001:0022ABDE 3114 0001:0022ABEB + 3116 0001:0022ABFA 3118 0001:0022AC0F 3120 0001:0022AC25 3121 0001:0022AC2C + 3122 0001:0022AC53 3125 0001:0022AC7D 3129 0001:0022AC91 3130 0001:0022ACB8 + 3131 0001:0022ACDF 3132 0001:0022ACEE 3137 0001:0022ACF0 3139 0001:0022AD06 + 3140 0001:0022AD0D 3141 0001:0022AD34 3144 0001:0022AD57 3146 0001:0022AD88 + 3155 0001:0022AE78 3157 0001:0022AEB6 3159 0001:0022AEBC 3160 0001:0022AED7 + 3161 0001:0022AF02 3163 0001:0022AF0F 3164 0001:0022AF51 3166 0001:0022AF8C + 3169 0001:0022AFDE 3170 0001:0022B018 3171 0001:0022B04A 3173 0001:0022B05C + 3174 0001:0022B069 3175 0001:0022B09B 3176 0001:0022B0AE 3179 0001:0022B0C9 + 3180 0001:0022B0D6 3181 0001:0022B108 3182 0001:0022B11B 3184 0001:0022B133 + 3185 0001:0022B170 3187 0001:0022B195 3190 0001:0022B1A2 3191 0001:0022B1E4 + 3195 0001:0022B2C8 3197 0001:0022B2D5 3199 0001:0022B2DB 3201 0001:0022B2E1 + 3202 0001:0022B306 3204 0001:0022B30D 3206 0001:0022B313 3207 0001:0022B338 + 3210 0001:0022B33D 3211 0001:0022B343 3212 0001:0022B368 3214 0001:0022B36D + 3218 0001:0022B374 3220 0001:0022B37D 3221 0001:0022B389 3222 0001:0022B3AC + 3223 0001:0022B3CD 3227 0001:0022B3D4 3228 0001:0022B3DE 3232 0001:0022B3E0 + 3233 0001:0022B3EA 3236 0001:0022B3EC 3238 0001:0022B3EF 3239 0001:0022B408 + 3242 0001:0022B40C 3243 0001:0022B40F 3245 0001:0022B428 3251 0001:0022B42C + 3252 0001:0022B42F 3254 0001:0022B448 3255 0001:0022B45B 3258 0001:0022B45F + 3259 0001:0022B461 3264 0001:0022B4B4 3265 0001:0022B4C0 3268 0001:0022B4C4 + 3270 0001:0022B4E3 3271 0001:0022B4FD 3272 0001:0022B517 3273 0001:0022B531 + 3274 0001:0022B570 3275 0001:0022B5AF 3276 0001:0022B5C9 3277 0001:0022B5E3 + 3278 0001:0022B5FD 3279 0001:0022B639 3286 0001:0022B64C 3287 0001:0022B66F + 3289 0001:0022B69E 3281 0001:0022B6A0 3282 0001:0022B6BA 3283 0001:0022B6CB + 3285 0001:0022B6F1 + +Line numbers for fPrintList(fPrintList.pas) segment .text + + 38 0001:0022B910 40 0001:0022B913 41 0001:0022B91E 44 0001:0022B920 + 46 0001:0022B923 47 0001:0022B92E 48 0001:0022B935 51 0001:0022B938 + 53 0001:0022B952 54 0001:0022B964 55 0001:0022B974 56 0001:0022B984 + 58 0001:0022B992 59 0001:0022B9AE 60 0001:0022B9D2 69 0001:0022B9D8 + 70 0001:0022BA05 71 0001:0022BA0D 72 0001:0022BA24 73 0001:0022BA2E + 74 0001:0022BA3D 75 0001:0022BA4B 76 0001:0022BA53 78 0001:0022BA6B + 79 0001:0022BA7E 82 0001:0022BA86 83 0001:0022BAA1 84 0001:0022BAB0 + 85 0001:0022BABD 87 0001:0022BACB 76 0001:0022BACC 89 0001:0022BACF + 91 0001:0022BADF 94 0001:0022BAF6 95 0001:0022BB05 96 0001:0022BB0D + 98 0001:0022BB1F 99 0001:0022BB2C 100 0001:0022BB44 96 0001:0022BB45 + 101 0001:0022BB48 105 0001:0022BB60 106 0001:0022BB6F 107 0001:0022BB77 + 109 0001:0022BB89 110 0001:0022BB96 111 0001:0022BBAE 107 0001:0022BBAF + 112 0001:0022BBB2 116 0001:0022BBC7 117 0001:0022BBD6 118 0001:0022BBDE + 120 0001:0022BBF0 121 0001:0022BBFD 122 0001:0022BC15 118 0001:0022BC16 + 123 0001:0022BC19 127 0001:0022BC2C 128 0001:0022BC42 129 0001:0022BC4D + 131 0001:0022BC6B 132 0001:0022BC73 134 0001:0022BCAD 136 0001:0022BD68 + 136 0001:0022BD6F + +Line numbers for fSurgeryView(fSurgeryView.pas) segment .text + + 59 0001:0022C074 60 0001:0022C0B7 61 0001:0022C0CE 64 0001:0022C0DC + 65 0001:0022C0E9 66 0001:0022C0F4 67 0001:0022C0FF 68 0001:0022C10C + 69 0001:0022C128 70 0001:0022C144 71 0001:0022C14E 72 0001:0022C164 + 73 0001:0022C175 74 0001:0022C186 75 0001:0022C1B0 76 0001:0022C1B7 + 78 0001:0022C1D4 79 0001:0022C1E4 80 0001:0022C208 81 0001:0022C218 + 82 0001:0022C229 86 0001:0022C245 87 0001:0022C250 88 0001:0022C261 + 89 0001:0022C272 90 0001:0022C287 91 0001:0022C298 92 0001:0022C2AD + 93 0001:0022C2B9 94 0001:0022C2CA 95 0001:0022C2D6 100 0001:0022C2E8 + 102 0001:0022C336 107 0001:0022C350 108 0001:0022C371 109 0001:0022C385 + 111 0001:0022C3A1 113 0001:0022C3A9 114 0001:0022C3BD 116 0001:0022C3D9 + 118 0001:0022C3E1 120 0001:0022C3EC 121 0001:0022C408 122 0001:0022C41A + 123 0001:0022C436 127 0001:0022C44A 128 0001:0022C45D 131 0001:0022C462 + 132 0001:0022C478 133 0001:0022C496 134 0001:0022C4BD 136 0001:0022C4DB + 137 0001:0022C4E6 138 0001:0022C4ED 139 0001:0022C529 143 0001:0022C58C + 144 0001:0022C593 145 0001:0022C598 148 0001:0022C59C 149 0001:0022C59F + 150 0001:0022C5AD 151 0001:0022C5BA 153 0001:0022C5EC 153 0001:0022C5F3 + +Line numbers for uCaseTree(uCaseTree.pas) segment .text + + 76 0001:0022C6A4 77 0001:0022C6D8 78 0001:0022C6E7 79 0001:0022C6F6 + 81 0001:0022C704 84 0001:0022C70E 86 0001:0022C748 87 0001:0022C76D + 89 0001:0022C777 91 0001:0022C78D 92 0001:0022C79A 94 0001:0022C7B7 + 95 0001:0022C7D0 96 0001:0022C7E4 97 0001:0022C7FD 98 0001:0022C811 + 99 0001:0022C83D 101 0001:0022C851 102 0001:0022C864 104 0001:0022C894 + 105 0001:0022C8A7 107 0001:0022C8AD 108 0001:0022C8BA 111 0001:0022C8C9 + 112 0001:0022C8E5 113 0001:0022C8FD 114 0001:0022C91E 115 0001:0022C954 + 118 0001:0022C976 119 0001:0022C989 120 0001:0022C99C 121 0001:0022C9B4 + 122 0001:0022C9D5 123 0001:0022CA0B 126 0001:0022CA2D 127 0001:0022CA53 + 128 0001:0022CA66 129 0001:0022CA7E 130 0001:0022CA9F 131 0001:0022CAD5 + 134 0001:0022CAF7 136 0001:0022CB13 137 0001:0022CB3B 139 0001:0022CB4A + 140 0001:0022CB57 141 0001:0022CB7E 142 0001:0022CBAF 146 0001:0022CBC8 + 147 0001:0022CBD3 89 0001:0022CBD4 148 0001:0022CBDB 149 0001:0022CBEC + 150 0001:0022CBF9 151 0001:0022CC3C 152 0001:0022CC47 153 0001:0022CC66 + 154 0001:0022CC7C 153 0001:0022CD48 158 0001:0022CD5C 159 0001:0022CD64 + 161 0001:0022CDAE 171 0001:0022CF48 172 0001:0022CF91 174 0001:0022CFA7 + 175 0001:0022CFAC 176 0001:0022CFCB 178 0001:0022CFDC 179 0001:0022CFFB + 180 0001:0022D029 181 0001:0022D04A 182 0001:0022D06F 184 0001:0022D088 + 185 0001:0022D0A5 186 0001:0022D0D8 187 0001:0022D0EA 188 0001:0022D103 + 192 0001:0022D118 193 0001:0022D134 194 0001:0022D14C 195 0001:0022D169 + 196 0001:0022D174 199 0001:0022D18F 172 0001:0022D190 200 0001:0022D1D9 + 220 0001:0022D1F0 221 0001:0022D228 223 0001:0022D22D 224 0001:0022D23C + 225 0001:0022D245 226 0001:0022D268 227 0001:0022D279 229 0001:0022D27F + 231 0001:0022D285 232 0001:0022D28B 234 0001:0022D29C 237 0001:0022D2AD + 239 0001:0022D2BE 241 0001:0022D2D1 242 0001:0022D2DD 243 0001:0022D2E9 + 245 0001:0022D2F3 246 0001:0022D2F9 247 0001:0022D313 248 0001:0022D324 + 249 0001:0022D335 250 0001:0022D346 252 0001:0022D354 255 0001:0022D362 + 256 0001:0022D36F 257 0001:0022D375 260 0001:0022D383 261 0001:0022D389 + 263 0001:0022D397 266 0001:0022D3A5 267 0001:0022D3AF 268 0001:0022D3BB + 271 0001:0022D3C7 272 0001:0022D3D1 273 0001:0022D3D8 274 0001:0022D3EF + 276 0001:0022D3F3 277 0001:0022D3FC 280 0001:0022D42C 283 0001:0022D508 + 284 0001:0022D50B 286 0001:0022D50E 287 0001:0022D517 290 0001:0022D525 + 291 0001:0022D52C 292 0001:0022D53A 293 0001:0022D53E 294 0001:0022D54C + 295 0001:0022D54F 305 0001:0022D55B 310 0001:0022D592 313 0001:0022D5A3 + 316 0001:0022D5A8 317 0001:0022D5A9 319 0001:0022D5AB 320 0001:0022D5B2 + 321 0001:0022D5BA 322 0001:0022D5C2 323 0001:0022D5CA 324 0001:0022D5D2 + 325 0001:0022D5DA 326 0001:0022D5E2 327 0001:0022D5EA 328 0001:0022D5F2 + 329 0001:0022D5FA 330 0001:0022D602 331 0001:0022D60A 332 0001:0022D612 + 333 0001:0022D61A 334 0001:0022D622 335 0001:0022D62A 336 0001:0022D632 + 338 0001:0022D63A 343 0001:0022D63C 345 0001:0022D641 347 0001:0022D656 + 349 0001:0022D669 350 0001:0022D67E 351 0001:0022D699 353 0001:0022D6AD + 344 0001:0022D6AE 354 0001:0022D6B1 357 0001:0022D6B8 358 0001:0022D6BB + 360 0001:0022D6C2 361 0001:0022D6C7 362 0001:0022D6D5 364 0001:0022D6DE + 365 0001:0022D6E8 370 0001:0022D6EC 372 0001:0022D701 373 0001:0022D714 + 375 0001:0022D72C 376 0001:0022D742 377 0001:0022D754 371 0001:0022D755 + 378 0001:0022D76F 384 0001:0022D774 385 0001:0022D79E 386 0001:0022D7B0 + 388 0001:0022D7B2 391 0001:0022D7CF 392 0001:0022D7EC 393 0001:0022D80A + 394 0001:0022D828 395 0001:0022D846 396 0001:0022D86C 397 0001:0022D88A + 398 0001:0022D8A8 399 0001:0022D8C8 407 0001:0022D8E3 408 0001:0022D901 + 409 0001:0022D91F 410 0001:0022D93D 411 0001:0022D977 412 0001:0022D995 + 413 0001:0022D9B3 414 0001:0022D9D1 415 0001:0022D9EF 416 0001:0022DA0D + 417 0001:0022DA3D 418 0001:0022DA5D 419 0001:0022DA7B 420 0001:0022DA99 + 421 0001:0022DAB7 424 0001:0022DACD 425 0001:0022DAF3 428 0001:0022DB4C + 428 0001:0022DB53 + +Line numbers for fSurgery(fSurgery.pas) segment .text + + 355 0001:0022EE38 356 0001:0022EE3F 357 0001:0022EE4A 358 0001:0022EE56 + 359 0001:0022EE60 361 0001:0022EE74 363 0001:0022EE93 364 0001:0022EE9F + 367 0001:0022EEA5 369 0001:0022EEB3 370 0001:0022EEBA 371 0001:0022EEC8 + 375 0001:0022EED9 376 0001:0022EEE2 378 0001:0022EF01 379 0001:0022EF10 + 381 0001:0022EF1E 382 0001:0022EF2A 385 0001:0022EF30 386 0001:0022EF45 + 389 0001:0022EF4E 390 0001:0022EF58 392 0001:0022EF6C 394 0001:0022EF8B + 395 0001:0022EF97 398 0001:0022EF9D 400 0001:0022EFAB 401 0001:0022EFB2 + 402 0001:0022EFC0 406 0001:0022EFD1 410 0001:0022F0D0 411 0001:0022F0D3 + 412 0001:0022F0DA 413 0001:0022F0E1 414 0001:0022F0E8 415 0001:0022F0F9 + 416 0001:0022F104 417 0001:0022F115 418 0001:0022F126 419 0001:0022F134 + 420 0001:0022F13B 421 0001:0022F149 422 0001:0022F153 423 0001:0022F15D + 424 0001:0022F167 428 0001:0022F16C 429 0001:0022F18C 430 0001:0022F193 + 431 0001:0022F1A5 432 0001:0022F1B9 433 0001:0022F1C6 434 0001:0022F1DA + 436 0001:0022F1E9 437 0001:0022F205 438 0001:0022F21C 439 0001:0022F22E + 440 0001:0022F242 441 0001:0022F256 442 0001:0022F26F 445 0001:0022F27F + 447 0001:0022F293 449 0001:0022F2A0 450 0001:0022F2AE 452 0001:0022F2B9 + 454 0001:0022F2C8 456 0001:0022F2F2 461 0001:0022F2F8 462 0001:0022F301 + 463 0001:0022F308 464 0001:0022F312 465 0001:0022F324 466 0001:0022F336 + 467 0001:0022F348 468 0001:0022F352 469 0001:0022F366 470 0001:0022F371 + 471 0001:0022F37C 472 0001:0022F39F 473 0001:0022F3A8 474 0001:0022F3B5 + 475 0001:0022F3C3 476 0001:0022F3D0 477 0001:0022F3DC 478 0001:0022F3F1 + 479 0001:0022F406 480 0001:0022F418 481 0001:0022F42A 482 0001:0022F43A + 486 0001:0022F444 488 0001:0022F447 489 0001:0022F452 490 0001:0022F460 + 495 0001:0022F464 497 0001:0022F47B 498 0001:0022F48B 499 0001:0022F4CB + 500 0001:0022F50E 505 0001:0022F514 507 0001:0022F54C 509 0001:0022F555 + 510 0001:0022F55F 512 0001:0022F569 513 0001:0022F57D 514 0001:0022F587 + 515 0001:0022F594 518 0001:0022F59F 519 0001:0022F5A2 520 0001:0022F5B0 + 521 0001:0022F5BE 522 0001:0022F5CC 523 0001:0022F5DE 524 0001:0022F5F0 + 525 0001:0022F5F9 526 0001:0022F607 527 0001:0022F615 528 0001:0022F61E + 530 0001:0022F64A 533 0001:0022F654 534 0001:0022F657 535 0001:0022F667 + 536 0001:0022F672 537 0001:0022F67D 539 0001:0022F688 543 0001:0022F68C + 544 0001:0022F691 549 0001:0022F694 552 0001:0022F6BF 553 0001:0022F6C6 + 554 0001:0022F6D4 556 0001:0022F6E6 557 0001:0022F70C 558 0001:0022F731 + 554 0001:0022F732 559 0001:0022F735 560 0001:0022F74C 561 0001:0022F75A + 563 0001:0022F783 568 0001:0022F798 569 0001:0022F7B3 571 0001:0022F7B9 + 573 0001:0022F7CB 574 0001:0022F7D5 576 0001:0022F7DF 578 0001:0022F82F + 579 0001:0022F851 582 0001:0022F899 588 0001:0022F950 589 0001:0022F95C + 593 0001:0022F960 594 0001:0022F966 595 0001:0022F96F 596 0001:0022F980 + 597 0001:0022F994 598 0001:0022F9A4 599 0001:0022F9B4 600 0001:0022F9C4 + 601 0001:0022F9D3 603 0001:0022F9E3 612 0001:0022F9E8 615 0001:0022FA1A + 617 0001:0022FA23 618 0001:0022FA2D 620 0001:0022FA37 621 0001:0022FA53 + 622 0001:0022FA60 623 0001:0022FA67 624 0001:0022FA6F 625 0001:0022FA79 + 628 0001:0022FA94 629 0001:0022FACA 631 0001:0022FAD6 633 0001:0022FAE0 + 634 0001:0022FB11 635 0001:0022FB39 637 0001:0022FB4D 638 0001:0022FB5F + 640 0001:0022FB70 641 0001:0022FB8B 644 0001:0022FB97 646 0001:0022FBA8 + 650 0001:0022FBC2 651 0001:0022FBD3 652 0001:0022FBE4 653 0001:0022FBF5 + 654 0001:0022FC0D 655 0001:0022FC25 656 0001:0022FC47 658 0001:0022FC64 + 659 0001:0022FC75 660 0001:0022FC80 661 0001:0022FC91 662 0001:0022FC9C + 666 0001:0022FCA3 667 0001:0022FCC1 668 0001:0022FCDD 669 0001:0022FD24 + 672 0001:0022FD64 674 0001:0022FD6C 675 0001:0022FD89 677 0001:0022FD8F + 678 0001:0022FDBE 679 0001:0022FDC7 680 0001:0022FDD1 682 0001:0022FDD8 + 686 0001:0022FDE4 687 0001:0022FE01 693 0001:0022FE04 695 0001:0022FE08 + 697 0001:0022FE0E 698 0001:0022FE12 699 0001:0022FE17 700 0001:0022FE1F + 701 0001:0022FE27 702 0001:0022FE35 703 0001:0022FE3D 704 0001:0022FE4B + 705 0001:0022FE53 706 0001:0022FE5B 707 0001:0022FE60 708 0001:0022FE68 + 709 0001:0022FE70 710 0001:0022FE75 711 0001:0022FE7D 712 0001:0022FE81 + 714 0001:0022FE86 717 0001:0022FE8E 718 0001:0022FE9B 719 0001:0022FEA9 + 721 0001:0022FEB6 723 0001:0022FEC0 724 0001:0022FECA 725 0001:0022FED1 + 728 0001:0022FED4 729 0001:0022FEDA 730 0001:0022FEE7 731 0001:0022FEF4 + 732 0001:0022FEF8 733 0001:0022FF0F 734 0001:0022FF1A 745 0001:0022FF20 + 746 0001:0022FF4F 747 0001:0022FF60 749 0001:0022FF76 750 0001:0022FF80 + 752 0001:0022FF91 756 0001:0022FFAA 757 0001:0022FFC3 758 0001:0022FFDD + 759 0001:0022FFEC 760 0001:0022FFFA 761 0001:00230008 763 0001:00230031 + 765 0001:00230041 766 0001:0023004B 767 0001:00230083 768 0001:00230098 + 770 0001:002300B3 772 0001:002300BC 773 0001:002300C5 775 0001:002300CC + 776 0001:002300D1 780 0001:002300D9 781 0001:002300DE 783 0001:002300E4 + 787 0001:002300F8 788 0001:00230102 789 0001:0023011A 790 0001:0023012A + 791 0001:00230139 793 0001:00230143 796 0001:0023014D 797 0001:0023019A + 798 0001:002301AC 799 0001:002301C5 800 0001:002301DF 801 0001:002301EE + 802 0001:002301FC 803 0001:0023020F 805 0001:00230238 807 0001:00230248 + 808 0001:00230269 809 0001:0023027E 811 0001:00230299 814 0001:002302A2 + 816 0001:002302DC 822 0001:00230354 823 0001:00230381 824 0001:0023039B + 827 0001:002304A4 833 0001:002304D8 834 0001:002304DB 835 0001:002304DD + 837 0001:002304E3 838 0001:002304EC 839 0001:002304FE 840 0001:0023050E + 842 0001:00230515 845 0001:0023053B 846 0001:00230545 849 0001:00230570 + 858 0001:00230578 859 0001:0023058E 861 0001:00230597 862 0001:002305A4 + 864 0001:002305C9 865 0001:002305F4 869 0001:00230624 870 0001:00230627 + 872 0001:0023062B 873 0001:00230638 874 0001:00230645 877 0001:00230661 + 878 0001:0023066E 879 0001:0023067B 881 0001:00230695 897 0001:00230698 + 898 0001:002306D2 899 0001:002306E8 901 0001:002306FF 902 0001:00230710 + 904 0001:00230715 905 0001:00230719 906 0001:0023071E 907 0001:0023072C + 908 0001:00230734 909 0001:00230748 911 0001:00230751 912 0001:00230757 + 913 0001:0023075F 914 0001:00230772 915 0001:0023077B 916 0001:0023078E + 917 0001:002307A1 918 0001:002307AE 919 0001:002307C8 920 0001:002307DB + 921 0001:002307DF 923 0001:002307E4 927 0001:002307E9 928 0001:0023081C + 929 0001:00230834 930 0001:00230854 931 0001:00230856 934 0001:0023085E + 935 0001:0023086A 936 0001:00230884 937 0001:00230899 939 0001:002308AC + 940 0001:002308BD 941 0001:002308C8 942 0001:002308DC 946 0001:002308E6 + 948 0001:002308EF 953 0001:00230999 954 0001:002309B1 955 0001:002309B8 + 967 0001:002309CC 969 0001:002309FD 970 0001:00230A09 971 0001:00230A15 + 972 0001:00230A44 973 0001:00230A50 975 0001:00230A5C 976 0001:00230A68 + 977 0001:00230A72 978 0001:00230A82 979 0001:00230A96 980 0001:00230A9D + 981 0001:00230AD3 982 0001:00230AE6 983 0001:00230AF0 984 0001:00230AFF + 985 0001:00230B05 986 0001:00230B14 987 0001:00230B25 988 0001:00230B2F + 989 0001:00230B3A 990 0001:00230B45 991 0001:00230B58 995 0001:00230B86 + 996 0001:00230B95 999 0001:00230B97 1001 0001:00230BB0 1003 0001:00230BB6 + 1004 0001:00230BD5 1005 0001:00230C0A 1006 0001:00230C21 1008 0001:00230C29 + 1009 0001:00230C2F 1011 0001:00230C7A 1023 0001:00230DCC 1024 0001:00230DFC + 1025 0001:00230E03 1027 0001:00230E09 1028 0001:00230E0F 1029 0001:00230E24 + 1030 0001:00230E65 1031 0001:00230EA0 1032 0001:00230EA9 1033 0001:00230EBC + 1034 0001:00230ECF 1035 0001:00230EDD 1036 0001:00230EF0 1038 0001:00230F12 + 1039 0001:00230F30 1040 0001:00230F50 1047 0001:00230F6E 1048 0001:00230F79 + 1049 0001:00230F96 1050 0001:00230F9A 1052 0001:00230FA4 1053 0001:00230FBB + 1054 0001:00230FD1 1055 0001:00230FDF 1056 0001:00231007 1057 0001:0023101E + 1058 0001:00231032 1059 0001:0023103D 1060 0001:00231051 1062 0001:0023105B + 1064 0001:00231061 1070 0001:0023110D 1071 0001:00231122 1072 0001:00231129 + 1073 0001:0023113A 1075 0001:00231168 1076 0001:00231174 1077 0001:00231180 + 1078 0001:002311AC 1080 0001:002311B6 1081 0001:002311C2 1082 0001:002311CE + 1083 0001:002311DB 1084 0001:002311EC 1085 0001:002311F3 1086 0001:00231228 + 1087 0001:00231238 1088 0001:00231241 1089 0001:0023124F 1090 0001:00231258 + 1091 0001:00231261 1092 0001:00231274 1096 0001:00231284 1097 0001:00231293 + 1100 0001:00231297 1101 0001:002312D4 1108 0001:002313AC 1109 0001:002313CF + 1110 0001:002313D6 1111 0001:002313ED 1112 0001:00231434 1113 0001:0023144C + 1114 0001:00231463 1115 0001:0023146A 1117 0001:00231477 1118 0001:00231481 + 1119 0001:002314C5 1120 0001:00231509 1121 0001:00231533 1124 0001:00231543 + 1125 0001:0023154A 1127 0001:0023155B 1128 0001:00231576 1130 0001:0023157A + 1132 0001:002315A8 1135 0001:002315B6 1136 0001:002315BD 1137 0001:002315E0 + 1138 0001:002315EC 1139 0001:00231618 1140 0001:00231622 1141 0001:0023164C + 1143 0001:0023165A 1144 0001:00231666 1145 0001:00231670 1146 0001:0023167D + 1147 0001:0023168E 1149 0001:00231695 1150 0001:002316DC 1151 0001:002316F9 + 1152 0001:00231709 1153 0001:0023171A 1154 0001:00231728 1155 0001:00231731 + 1156 0001:0023173A 1157 0001:0023174D 1158 0001:00231792 1165 0001:00231830 + 1166 0001:00231863 1167 0001:00231869 1169 0001:0023189C 1170 0001:002318B6 + 1171 0001:002318D2 1172 0001:002318D9 1173 0001:00231908 1174 0001:0023190F + 1175 0001:0023192A 1180 0001:00231979 1181 0001:00231983 1182 0001:0023198E + 1183 0001:00231994 1186 0001:002319A3 1187 0001:002319AD 1190 0001:002319B2 + 1191 0001:002319CA 1192 0001:002319EB 1193 0001:002319FE 1194 0001:00231A0E + 1195 0001:00231A1C 1197 0001:00231A53 1200 0001:00231A6B 1202 0001:00231A71 + 1204 0001:00231A8D 1205 0001:00231A98 1207 0001:00231AA3 1208 0001:00231AAE + 1209 0001:00231AB4 1212 0001:00231AC0 1213 0001:00231ACC 1215 0001:00231B4A + 1220 0001:00231D98 1221 0001:00231DA1 1222 0001:00231DA6 1230 0001:00231DA8 + 1231 0001:00231DAF 1240 0001:00231DB0 1242 0001:00231DD7 1243 0001:00231DE4 + 1245 0001:00231DED 1246 0001:00231DEF 1247 0001:00231DFC 1249 0001:00231E15 + 1250 0001:00231E24 1252 0001:00231E2A 1253 0001:00231E3A 1256 0001:00231E40 + 1260 0001:00231E4B 1261 0001:00231E57 1263 0001:00231E59 1264 0001:00231E66 + 1265 0001:00231E7A 1266 0001:00231EA4 1271 0001:00231EBC 1273 0001:00231EC2 + 1274 0001:00231EE1 1275 0001:00231EEA 1284 0001:00231EF0 1285 0001:00231F03 + 1286 0001:00231F47 1287 0001:00231F64 1288 0001:00231F8E 1290 0001:00231FA4 + 1292 0001:00231FC6 1293 0001:00231FF6 1294 0001:00232005 1295 0001:00232013 + 1296 0001:0023202B 1297 0001:0023203C 1300 0001:00232070 1302 0001:00232080 + 1303 0001:002320AC 1306 0001:002320BF 1307 0001:002320F4 1309 0001:0023210D + 1314 0001:00232116 1315 0001:00232121 1318 0001:00232134 1319 0001:00232138 + 1320 0001:0023215C 1324 0001:0023217D 1326 0001:002321BF 1335 0001:002322AC + 1337 0001:002322CF 1338 0001:002322D8 1339 0001:00232303 1340 0001:00232323 + 1341 0001:00232325 1343 0001:0023232D 1344 0001:00232358 1345 0001:00232396 + 1346 0001:002323C0 1347 0001:002323EA 1348 0001:00232411 1349 0001:00232422 + 1350 0001:00232449 1351 0001:00232480 1352 0001:0023248E 1353 0001:0023249D + 1354 0001:002324C0 1355 0001:002324CD 1357 0001:002324DB 1358 0001:00232515 + 1359 0001:00232546 1360 0001:00232575 1361 0001:0023258E 1362 0001:002325AF + 1363 0001:002325D7 1364 0001:002325F7 1365 0001:0023260A 1366 0001:00232623 + 1367 0001:00232664 1368 0001:002326F9 1373 0001:002327F0 1374 0001:002327F7 + 1378 0001:002327F8 1380 0001:002327FB 1381 0001:00232819 1382 0001:00232833 + 1383 0001:0023284B 1388 0001:00232850 1389 0001:0023286D 1391 0001:0023288D + 1393 0001:00232897 1394 0001:002328A7 1395 0001:002328B5 1397 0001:002328F4 + 1399 0001:0023290C 1400 0001:00232916 1402 0001:0023291D 1403 0001:00232923 + 1405 0001:00232970 1410 0001:00232B60 1411 0001:00232B6A 1420 0001:00232B6C + 1421 0001:00232B91 1422 0001:00232B93 1424 0001:00232BA0 1426 0001:00232BB0 + 1427 0001:00232BEE 1430 0001:00232C00 1431 0001:00232C3E 1435 0001:00232C4D + 1436 0001:00232C8B 1439 0001:00232C98 1442 0001:00232CB0 1443 0001:00232CBA + 1446 0001:00232CEF 1452 0001:00232E4C 1454 0001:00232E4F 1457 0001:00232E5F + 1459 0001:00232E6F 1460 0001:00232E85 1462 0001:00232E91 1464 0001:00232EA1 + 1465 0001:00232EB4 1467 0001:00232EB6 1468 0001:00232EC1 1476 0001:00232F30 + 1478 0001:00232F5C 1479 0001:00232F7C 1480 0001:00232F95 1482 0001:00232FA9 + 1483 0001:00232FD5 1485 0001:00232FEB 1486 0001:00232FFC 1488 0001:00232FFE + 1489 0001:00233018 1491 0001:0023301E 1492 0001:0023302D 1494 0001:0023302F + 1496 0001:00233048 1497 0001:00233059 1499 0001:0023305B 1500 0001:00233095 + 1511 0001:002331A8 1513 0001:002331D7 1514 0001:002331F0 1515 0001:0023320A + 1517 0001:0023321E 1518 0001:00233231 1520 0001:00233236 1522 0001:00233268 + 1524 0001:0023327C 1525 0001:00233289 1528 0001:00233298 1529 0001:002332A5 + 1531 0001:002332B2 1532 0001:002332CA 1534 0001:002332D0 1535 0001:002332DF + 1537 0001:002332E1 1538 0001:00233375 1541 0001:00233514 1542 0001:00233543 + 1544 0001:00233553 1545 0001:00233564 1546 0001:00233583 1547 0001:002335A2 + 1548 0001:002335C1 1549 0001:002335E0 1550 0001:002335FF 1551 0001:0023361E + 1552 0001:0023363D 1553 0001:0023365C 1554 0001:0023369D 1563 0001:00233710 + 1565 0001:00233750 1566 0001:00233769 1567 0001:00233783 1568 0001:0023379D + 1569 0001:002337B0 1571 0001:002337C3 1574 0001:0023381C 1575 0001:00233824 + 1576 0001:00233839 1578 0001:0023383F 1579 0001:0023384E 1582 0001:00233853 + 1583 0001:00233867 1584 0001:00233878 1585 0001:00233891 1586 0001:0023389E + 1588 0001:002338D5 1589 0001:002338DF 1591 0001:002338E9 1592 0001:002338F3 + 1594 0001:002338FA 1595 0001:002338FE 1596 0001:00233908 1597 0001:00233917 + 1598 0001:00233945 1599 0001:00233967 1601 0001:0023397B 1603 0001:00233981 + 1604 0001:00233989 1605 0001:00233990 1606 0001:00233997 1607 0001:002339A4 + 1608 0001:002339B1 1609 0001:002339B6 1610 0001:002339BF 1611 0001:002339D7 + 1614 0001:002339E2 1615 0001:00233A3D 1622 0001:00233BF8 1624 0001:00233C24 + 1625 0001:00233C3E 1626 0001:00233C57 1628 0001:00233C67 1629 0001:00233C93 + 1630 0001:00233CAD 1632 0001:00233CB3 1633 0001:00233CC2 1635 0001:00233CC4 + 1636 0001:00233CFE 1643 0001:00233D3C 1645 0001:00233D57 1647 0001:00233D64 + 1648 0001:00233D90 1649 0001:00233D9E 1650 0001:00233DA8 1653 0001:00233DC0 + 1654 0001:00233DC7 1657 0001:00233DF0 1658 0001:00233E25 1673 0001:00233E7C + 1683 0001:00233EBB 1684 0001:00233ED4 1685 0001:00233EE2 1687 0001:00233EFA + 1688 0001:00233F04 1690 0001:00233F1D 1692 0001:00233F20 1693 0001:00233F39 + 1695 0001:00233F4C 1697 0001:00233F60 1698 0001:00233F73 1700 0001:00233F78 + 1702 0001:00233FAA 1704 0001:00233FBE 1705 0001:00233FCB 1708 0001:00233FDA + 1709 0001:00233FE7 1712 0001:00233FF4 1713 0001:00233FF8 1714 0001:00234010 + 1716 0001:0023401A 1717 0001:00234034 1718 0001:00234048 1720 0001:00234053 + 1721 0001:00234063 1722 0001:0023406C 1724 0001:00234075 1727 0001:0023407F + 1728 0001:002340C4 1730 0001:002340D4 1731 0001:002340EC 1732 0001:00234102 + 1733 0001:00234132 1734 0001:0023415F 1736 0001:00234165 1737 0001:00234180 + 1739 0001:0023418B 1743 0001:0023419C 1744 0001:002341AB 1745 0001:002341C3 + 1747 0001:002341CA 1749 0001:002341D4 1750 0001:002341E9 1752 0001:00234217 + 1753 0001:00234223 1754 0001:0023422F 1755 0001:0023425B 1756 0001:00234267 + 1757 0001:00234274 1760 0001:0023428B 1762 0001:00234291 1763 0001:002342B5 + 1765 0001:00234349 1779 0001:00234554 1780 0001:00234599 1781 0001:002345A0 + 1782 0001:002345AC 1783 0001:002345B6 1784 0001:002345D6 1786 0001:00234612 + 1787 0001:00234615 1788 0001:00234617 1784 0001:00234618 1789 0001:0023461B + 1791 0001:0023462C 1792 0001:00234636 1793 0001:00234640 1795 0001:00234649 + 1796 0001:00234650 1798 0001:00234655 1801 0001:00234669 1803 0001:00234679 + 1805 0001:00234685 1806 0001:00234692 1809 0001:002346A1 1810 0001:002346AE + 1812 0001:002346BB 1813 0001:002346C9 1815 0001:002346CF 1816 0001:002346DE + 1818 0001:002346E2 1820 0001:002346EE 1821 0001:00234701 1823 0001:00234705 + 1825 0001:0023472C 1826 0001:00234730 1827 0001:00234732 1829 0001:0023473A + 1830 0001:00234753 1832 0001:0023475B 1833 0001:0023475D 1834 0001:0023476A + 1835 0001:0023477E 1837 0001:0023478D 1838 0001:0023479D 1839 0001:002347A6 + 1842 0001:002347B1 1843 0001:002347BB 1846 0001:002347C1 1847 0001:002347CF + 1852 0001:002347E4 1854 0001:00234807 1855 0001:0023480E 1857 0001:00234875 + 1860 0001:00234A34 1862 0001:00234A3A 1863 0001:00234A56 1864 0001:00234A6B + 1865 0001:00234A73 1867 0001:00234A81 1868 0001:00234A9B 1869 0001:00234AAF + 1871 0001:00234AE1 1872 0001:00234B0C 1875 0001:00234B29 1876 0001:00234B36 + 1877 0001:00234B43 1878 0001:00234B50 1880 0001:00234B5D 1882 0001:00234B6D + 1883 0001:00234B7A 1884 0001:00234B87 1885 0001:00234B94 1886 0001:00234BAF + 1887 0001:00234BE2 1890 0001:00234C18 1891 0001:00234C25 1892 0001:00234C32 + 1893 0001:00234C3F 1894 0001:00234C4C 1895 0001:00234C59 1897 0001:00234C66 + 1902 0001:00234C6C 1903 0001:00234C77 1908 0001:00234C78 1909 0001:00234C83 + 1912 0001:00234C84 1914 0001:00234C9A 1916 0001:00234CD2 1921 0001:00234CD8 + 1922 0001:00234CED 1923 0001:00234CF4 1928 0001:00234CF8 1929 0001:00234CFF + 1930 0001:00234D09 1933 0001:00234D0C 1935 0001:00234D14 1936 0001:00234D31 + 1938 0001:00234D37 1939 0001:00234D66 1940 0001:00234D6F 1941 0001:00234D78 + 1942 0001:00234D82 1944 0001:00234D89 1949 0001:00234D94 1950 0001:00234DB1 + 1955 0001:00234DB4 1956 0001:00234DD1 1959 0001:00234DD4 1961 0001:00234DDB + 1962 0001:00234DE5 1963 0001:00234DF5 1964 0001:00234E03 1966 0001:00234E1E + 1967 0001:00234E28 1968 0001:00234E32 1970 0001:00234E4A 1973 0001:00234E50 + 1975 0001:00234E57 1976 0001:00234E61 1977 0001:00234E71 1978 0001:00234E7F + 1980 0001:00234E9A 1981 0001:00234EA4 1982 0001:00234EAE 1984 0001:00234EC6 + 1989 0001:00234ECC 1991 0001:00234EE5 1993 0001:00234EEB 1994 0001:00234EFA + 1998 0001:00234F1A 1999 0001:00234F2B 2001 0001:00234F3B 2002 0001:00234F4D + 2003 0001:00234F57 2004 0001:00234F64 2005 0001:00234F71 2006 0001:00234F81 + 2007 0001:00234FB1 2008 0001:00234FBF 2009 0001:00234FC6 2010 0001:00234FD6 + 2013 0001:00234FE6 2016 0001:00234FF8 2017 0001:00235034 2025 0001:00235074 + 2026 0001:002350A4 2027 0001:002350AF 2029 0001:002350C8 2030 0001:002350CF + 2033 0001:002350EA 2034 0001:00235101 2036 0001:00235110 2037 0001:0023511E + 2039 0001:00235124 2040 0001:00235131 2045 0001:00235167 2056 0001:00235170 + 2058 0001:002351B1 2059 0001:002351CA 2060 0001:002351E3 2062 0001:002351F9 + 2063 0001:00235203 2064 0001:0023520D 2065 0001:00235214 2067 0001:0023523B + 2068 0001:0023524D 2069 0001:00235267 2070 0001:0023526A 2072 0001:00235272 + 2075 0001:002352AB 2077 0001:002352B0 2079 0001:002352B2 2080 0001:002352C1 + 2083 0001:002352CC 2084 0001:002352DB 2087 0001:002352E0 2088 0001:002352F3 + 2089 0001:00235335 2092 0001:00235361 2093 0001:0023536F 2094 0001:0023538F + 2095 0001:002353A4 2096 0001:002353C2 2098 0001:002353C8 2099 0001:002353DA + 2100 0001:002353ED 2103 0001:00235403 2105 0001:0023540C 2106 0001:0023545E + 2111 0001:002354E4 2112 0001:002354EB 2121 0001:002354EC 2122 0001:00235514 + 2124 0001:0023551D 2125 0001:00235527 2127 0001:00235531 2128 0001:00235549 + 2129 0001:00235565 2130 0001:0023556F 2131 0001:0023557C 2134 0001:00235587 + 2135 0001:00235591 2137 0001:002355B2 2138 0001:002355C3 2140 0001:002355C8 + 2141 0001:002355D7 2142 0001:002355E5 2143 0001:002355F0 2144 0001:002355F7 + 2145 0001:00235608 2146 0001:00235616 2147 0001:00235621 2148 0001:00235632 + 2149 0001:00235659 2150 0001:0023567A 2151 0001:0023568D 2162 0001:002356CC + 2163 0001:002356DD 2164 0001:002356E4 2165 0001:002356FA 2168 0001:00235701 + 2169 0001:0023574A 2171 0001:002357A0 2173 0001:002357EA 2176 0001:00235908 + 2178 0001:0023591E 2180 0001:00235936 2181 0001:00235941 2182 0001:00235958 + 2183 0001:00235968 2185 0001:002359A1 2190 0001:002359FC 2191 0001:00235A07 + 2194 0001:00235A08 2196 0001:00235A1E 2197 0001:00235A5A 2200 0001:00235A60 + 2202 0001:00235A63 2203 0001:00235A84 2204 0001:00235A98 2205 0001:00235AAC + 2206 0001:00235AC0 2207 0001:00235AD4 2212 0001:00235AD8 2213 0001:00235AE3 + 2216 0001:00235AE4 2218 0001:00235AE8 2219 0001:00235AF5 2220 0001:00235B03 + 2221 0001:00235B0E 2222 0001:00235B24 2225 0001:00235B28 2227 0001:00235B2B + 2228 0001:00235B3A 2229 0001:00235B5B 2232 0001:00235B60 2234 0001:00235B63 + 2235 0001:00235B72 2236 0001:00235B93 2241 0001:00235B98 2242 0001:00235BA3 + 2247 0001:00235BA4 2248 0001:00235BAF 2253 0001:00235BB0 2254 0001:00235BBB + 2259 0001:00235BBC 2260 0001:00235BC7 2263 0001:00235BC8 2265 0001:00235BCB + 2266 0001:00235BE2 2267 0001:00235BF9 2268 0001:00235C10 2269 0001:00235C27 + 2270 0001:00235C39 2274 0001:00235C3C 2275 0001:00235C44 2276 0001:00235C48 + 2277 0001:00235C4D 2278 0001:00235C57 2279 0001:00235C63 2308 0001:00235C64 + 2309 0001:00235C69 2313 0001:00235C6C 2314 0001:00235C6F 2315 0001:00235C7E + 2316 0001:00235C92 2317 0001:00235CA0 2320 0001:00235CA4 2321 0001:00235CAA + 2322 0001:00235CB0 2324 0001:00235CBD 2325 0001:00235CCA 2327 0001:00235CCE + 2334 0001:00235CE7 2339 0001:00235CFE 2340 0001:00235D0A 2344 0001:00235D1E + 2345 0001:00235D2B 2350 0001:00235D38 2351 0001:00235D44 2353 0001:00235D58 + 2354 0001:00235D6F 2355 0001:00235D87 2356 0001:00235D9B 2361 0001:00235DA0 + 2362 0001:00235DA9 2370 0001:00235DAC 2371 0001:00235DD0 2374 0001:00235DDD + 2376 0001:00235DE9 2378 0001:00235DEF 2379 0001:00235DFE 2380 0001:00235E17 + 2381 0001:00235E30 2382 0001:00235E40 2383 0001:00235E4E 2385 0001:00235E62 + 2386 0001:00235E74 2387 0001:00235E82 2388 0001:00235E8C 2389 0001:00235E9C + 2390 0001:00235EA9 2392 0001:00235EB6 2393 0001:00235EC7 2394 0001:00235ED0 + 2396 0001:00235ED4 2397 0001:00235EED 2399 0001:00235F0E 2400 0001:00235F3E + 2404 0001:00235F51 2405 0001:00235F72 2407 0001:00235F7B 2408 0001:00235F89 + 2409 0001:00235F90 2413 0001:00235FAF 2414 0001:00235FBC 2415 0001:00235FDD + 2416 0001:00235FEA 2418 0001:00235FF7 2419 0001:00236000 2420 0001:00236018 + 2421 0001:00236021 2423 0001:0023602F 2424 0001:00236039 2425 0001:00236045 + 2426 0001:0023604C 2427 0001:00236057 2428 0001:00236065 2429 0001:00236073 + 2430 0001:0023608D 2432 0001:002360DC 2436 0001:00236134 2439 0001:0023613A + 2440 0001:0023614E 2441 0001:00236158 2442 0001:0023616C 2444 0001:00236176 + 2445 0001:00236190 2449 0001:00236194 2452 0001:00236197 2453 0001:002361AB + 2454 0001:002361B5 2455 0001:002361C9 2457 0001:002361D3 2463 0001:002361D8 + 2464 0001:002361F6 2465 0001:00236205 2466 0001:00236213 2467 0001:00236221 + 2468 0001:00236228 2469 0001:0023623B 2470 0001:0023624F 2471 0001:0023625D + 2472 0001:00236271 2473 0001:00236285 2474 0001:00236298 2475 0001:002362A9 + 2476 0001:002362B7 2477 0001:002362C7 2478 0001:002362EE 2479 0001:002362F8 + 2481 0001:00236301 2482 0001:0023631D 2483 0001:0023633B 2485 0001:00236355 + 2486 0001:0023635D 2487 0001:0023636B 2489 0001:00236374 2490 0001:0023637B + 2491 0001:0023638F 2492 0001:0023639B 2493 0001:002363BD 2495 0001:002363C8 + 2497 0001:002363D1 2498 0001:002363DE 2500 0001:002363E2 2501 0001:002363EB + 2502 0001:002363F4 2498 0001:002363FD 2507 0001:00236403 2508 0001:0023642C + 2511 0001:00236440 2512 0001:00236451 2513 0001:00236464 2514 0001:00236478 + 2515 0001:0023647F 2516 0001:002364A4 2517 0001:002364C6 2518 0001:002364E3 + 2521 0001:0023650F 2522 0001:00236522 2524 0001:00236564 2533 0001:0023656C + 2535 0001:002365AA 2537 0001:002365B0 2538 0001:002365CB 2539 0001:002365F6 + 2541 0001:00236603 2542 0001:00236645 2544 0001:00236680 2547 0001:002366C0 + 2548 0001:002366FA 2549 0001:00236712 2550 0001:00236721 2552 0001:00236730 + 2554 0001:00236755 2557 0001:00236762 2558 0001:002367A4 2562 0001:0023681C + 2564 0001:0023683E 2565 0001:00236855 2567 0001:00236867 2568 0001:00236874 + 2569 0001:00236881 2570 0001:0023688E 2571 0001:0023689B 2575 0001:002368AD + 2576 0001:002368B7 2577 0001:002368C7 2578 0001:002368D4 2580 0001:002368E1 + 2581 0001:00236915 2582 0001:00236936 2583 0001:00236950 2584 0001:0023695D + 2585 0001:0023696A 2586 0001:00236977 2587 0001:00236984 2588 0001:00236992 + 2590 0001:00236999 2591 0001:002369A3 2592 0001:002369AF 2593 0001:002369B6 + 2594 0001:002369C1 2595 0001:002369CF 2596 0001:002369DD 2597 0001:00236A62 + 2600 0001:00236AB8 2602 0001:00236ABE 2603 0001:00236ACB 2604 0001:00236AD8 + 2605 0001:00236AE5 2606 0001:00236AF2 2607 0001:00236AFF 2608 0001:00236B0C + 2609 0001:00236B19 2610 0001:00236B26 2611 0001:00236B33 2612 0001:00236B40 + 2613 0001:00236B4D 2614 0001:00236B5A 2615 0001:00236B67 2616 0001:00236B74 + 2617 0001:00236B81 2618 0001:00236B8E 2619 0001:00236B9B 2620 0001:00236BA8 + 2621 0001:00236BB5 2622 0001:00236BC2 2623 0001:00236BEB 2624 0001:00236C14 + 2625 0001:00236C25 2626 0001:00236C39 2630 0001:00236C3C 2632 0001:00236C49 + 2634 0001:00236C4F 2636 0001:00236C55 2637 0001:00236C7A 2639 0001:00236C81 + 2641 0001:00236C87 2642 0001:00236CAC 2645 0001:00236CB1 2646 0001:00236CB7 + 2647 0001:00236CDC 2649 0001:00236CE1 2653 0001:00236CE8 2655 0001:00236CF1 + 2656 0001:00236CFD 2657 0001:00236D20 2658 0001:00236D41 2662 0001:00236D48 + 2663 0001:00236D52 2667 0001:00236D54 2668 0001:00236D5E 2671 0001:00236D60 + 2673 0001:00236D63 2674 0001:00236D7C 2677 0001:00236D80 2678 0001:00236D83 + 2680 0001:00236D9C 2685 0001:00236DA0 2686 0001:00236DAC 2689 0001:00236DB0 + 2691 0001:00236DCF 2692 0001:00236DE9 2693 0001:00236E03 2694 0001:00236E1D + 2695 0001:00236E5C 2696 0001:00236E9B 2697 0001:00236EB5 2698 0001:00236ECF + 2699 0001:00236EE9 2700 0001:00236F25 2707 0001:00236F38 2708 0001:00236F5B + 2710 0001:00236F8A 2702 0001:00236F8C 2703 0001:00236FA6 2704 0001:00236FB7 + 2706 0001:00236FDD + +Line numbers for fReview(fReview.pas) segment .text + + 167 0001:0023755C 168 0001:0023757C 170 0001:00237586 172 0001:002375B8 + 209 0001:002375BC 210 0001:002375EC 211 0001:002375F4 212 0001:00237602 + 213 0001:00237609 215 0001:00237617 217 0001:00237621 219 0001:00237635 + 220 0001:00237655 222 0001:00237662 223 0001:00237682 225 0001:00237684 + 217 0001:00237685 227 0001:002376BD 236 0001:002376C4 237 0001:002376C7 + 238 0001:002376C9 240 0001:002376D4 241 0001:002376D6 242 0001:002376F8 + 243 0001:0023770E 241 0001:00237710 245 0001:00237713 247 0001:00237715 + 253 0001:0023771C 254 0001:00237728 255 0001:0023772C 256 0001:0023773D + 257 0001:00237756 258 0001:00237764 259 0001:0023777B 260 0001:00237789 + 262 0001:00237793 264 0001:002377A4 265 0001:002377B0 266 0001:002377BA + 267 0001:002377DA 266 0001:002377E6 268 0001:002377E9 269 0001:002377F9 + 274 0001:00237802 276 0001:00237829 277 0001:00237835 278 0001:0023783F + 279 0001:0023784C 282 0001:0023785A 284 0001:0023786D 285 0001:00237885 + 287 0001:0023788F 289 0001:00237899 291 0001:002378AB 292 0001:002378B8 + 298 0001:002378D3 299 0001:002378E2 301 0001:002378F7 306 0001:00237900 + 307 0001:00237916 308 0001:0023791D 309 0001:00237924 310 0001:0023792E + 311 0001:00237968 312 0001:00237978 313 0001:00237986 314 0001:00237996 + 316 0001:002379A4 318 0001:002379B2 319 0001:002379C2 320 0001:002379D9 + 321 0001:002379E6 322 0001:002379FD 323 0001:00237A11 324 0001:00237A21 + 325 0001:00237A2E 328 0001:00237A54 332 0001:00237A94 333 0001:00237AB4 + 334 0001:00237AE7 338 0001:00237AEC 339 0001:00237AF3 342 0001:00237B0B + 344 0001:00237B15 347 0001:00237B22 348 0001:00237B28 350 0001:00237B37 + 354 0001:00237B49 355 0001:00237B58 356 0001:00237B69 357 0001:00237B7A + 361 0001:00237B89 363 0001:00237B8F 364 0001:00237BA5 367 0001:00237BB6 + 371 0001:00237BD0 372 0001:00237BD6 373 0001:00237BE2 374 0001:00237BF2 + 375 0001:00237C02 377 0001:00237C12 382 0001:00237C18 383 0001:00237C1B + 384 0001:00237C1D 386 0001:00237C3A 389 0001:00237C50 393 0001:00237C6C + 394 0001:00237C8A 396 0001:00237C8C 384 0001:00237C8D 397 0001:00237C92 + 406 0001:00237C98 407 0001:00237CBE 408 0001:00237CCF 409 0001:00237CD9 + 410 0001:00237CE1 411 0001:00237CEF 413 0001:00237CF9 415 0001:00237D03 + 417 0001:00237D17 419 0001:00237D3A 420 0001:00237D69 422 0001:00237D86 + 423 0001:00237D9A 424 0001:00237DC5 420 0001:00237DC8 425 0001:00237DCD + 426 0001:00237DD9 417 0001:00237DDC 430 0001:00237DE5 432 0001:00237DF5 + 433 0001:00237E01 435 0001:00237E1E 436 0001:00237E32 437 0001:00237E3E + 438 0001:00237E47 433 0001:00237E4A 439 0001:00237E4F 440 0001:00237E55 + 442 0001:00237E61 445 0001:00237E6B 448 0001:00237E7F 450 0001:00237EA2 + 452 0001:00237ED0 454 0001:00237EFF 456 0001:00237F09 457 0001:00237F18 + 460 0001:00237F29 462 0001:00237F46 463 0001:00237F5A 465 0001:00237F7C + 466 0001:00237F87 468 0001:00237F9A 460 0001:00237F9D 469 0001:00237FA2 + 470 0001:00237FAE 471 0001:00237FC3 448 0001:00237FC6 474 0001:00237FCF + 475 0001:00237FE7 476 0001:00237FF3 477 0001:00237FFF 478 0001:0023800B + 479 0001:00238031 483 0001:0023803B 485 0001:00238045 487 0001:00238059 + 489 0001:00238066 492 0001:0023807F 493 0001:0023808C 494 0001:00238099 + 495 0001:002380A6 498 0001:002380BF 499 0001:002380CC 502 0001:002380E2 + 503 0001:002380EF 506 0001:002380FC 507 0001:00238110 508 0001:00238119 + 510 0001:00238129 511 0001:00238139 513 0001:00238142 514 0001:0023815E + 515 0001:00238170 517 0001:00238180 518 0001:002381AE 519 0001:002381BE + 523 0001:002381DB 524 0001:002381FF 526 0001:00238211 530 0001:00238221 + 532 0001:0023822B 533 0001:0023823D 537 0001:0023825B 539 0001:00238275 + 541 0001:00238282 543 0001:0023829E 545 0001:002382A7 546 0001:002382AE + 551 0001:002382C3 553 0001:002382D0 555 0001:002382EC 557 0001:002382F5 + 558 0001:002382FC 561 0001:0023833B 566 0001:00238470 567 0001:00238477 + 571 0001:00238478 572 0001:0023847F 578 0001:00238480 579 0001:00238484 + 580 0001:00238486 582 0001:002384AE 583 0001:002384B0 584 0001:002384B2 + 580 0001:002384B3 585 0001:002384B8 592 0001:002384C0 593 0001:002384C8 + 594 0001:002384CC 595 0001:002384E0 598 0001:002384E4 599 0001:002384F3 + 600 0001:00238501 602 0001:00238516 603 0001:00238527 604 0001:00238532 + 600 0001:00238533 605 0001:00238536 607 0001:0023854E 611 0001:0023855E + 612 0001:00238565 623 0001:0023856C 624 0001:00238591 626 0001:002385B6 + 627 0001:002385D1 628 0001:002385E2 630 0001:002385FA 631 0001:00238610 + 633 0001:00238631 624 0001:00238632 634 0001:00238652 636 0001:0023865C + 637 0001:00238665 639 0001:0023866E 640 0001:00238687 642 0001:00238695 + 644 0001:00238699 647 0001:002386B6 648 0001:002386E1 649 0001:002386ED + 653 0001:0023870A 655 0001:00238722 670 0001:00238728 673 0001:0023876B + 674 0001:00238773 676 0001:0023877F 678 0001:0023878D 680 0001:00238791 + 682 0001:0023879A 683 0001:002387AB 684 0001:002387B0 686 0001:002387C3 + 688 0001:002387D1 690 0001:002387E4 692 0001:0023880F 693 0001:00238821 + 695 0001:0023883E 701 0001:00238858 703 0001:00238862 704 0001:00238895 + 708 0001:002388AD 710 0001:002388D9 713 0001:002388E7 714 0001:002388FA + 715 0001:0023890F 717 0001:00238924 718 0001:0023893B 720 0001:00238955 + 721 0001:0023895E 722 0001:00238966 723 0001:00238973 726 0001:0023897B + 728 0001:002389A3 731 0001:002389BD 732 0001:002389D9 734 0001:002389E8 + 737 0001:00238A09 738 0001:00238A17 740 0001:00238A27 741 0001:00238A36 + 742 0001:00238A41 743 0001:00238A57 744 0001:00238A75 746 0001:00238AAA + 749 0001:00238ABA 750 0001:00238ACD 756 0001:00238AF5 758 0001:00238B01 + 759 0001:00238B14 762 0001:00238B3F 726 0001:00238B42 770 0001:00238B50 + 772 0001:00238B59 773 0001:00238B6A 775 0001:00238B6F 777 0001:00238B7D + 779 0001:00238B90 781 0001:00238BBB 782 0001:00238BCD 784 0001:00238BE7 + 786 0001:00238BF9 787 0001:00238C0C 788 0001:00238C1D 789 0001:00238C2F + 794 0001:00238CA2 797 0001:00238CBC 798 0001:00238CBF 799 0001:00238CCF + 801 0001:00238CE1 802 0001:00238CEE 803 0001:00238CFB 804 0001:00238D08 + 805 0001:00238D27 806 0001:00238D39 809 0001:00238D4B 810 0001:00238D58 + 811 0001:00238D65 812 0001:00238D72 813 0001:00238D82 814 0001:00238D92 + 816 0001:00238DA2 819 0001:00238DA4 820 0001:00238DBA 821 0001:00238DC6 + 824 0001:00238DD8 826 0001:00238E04 829 0001:00238E4C 854 0001:00238E80 + 855 0001:00238E9B 856 0001:00238E9F 858 0001:00238EB4 859 0001:00238EEC + 860 0001:00238F24 861 0001:00238F2A 856 0001:00238F2B 862 0001:00238F53 + 868 0001:00238F74 869 0001:00238F90 871 0001:00238F94 873 0001:00238FAD + 874 0001:00238FD0 875 0001:00238FDD 878 0001:00239024 879 0001:00239028 + 881 0001:0023902A 871 0001:0023902B 882 0001:00239057 885 0001:0023906C + 886 0001:00239090 887 0001:00239098 888 0001:0023909C 889 0001:002390A1 + 891 0001:002390AB 892 0001:002390B5 894 0001:002390C1 896 0001:002390D4 + 898 0001:002390E5 900 0001:00239109 901 0001:0023911A 902 0001:0023912B + 903 0001:00239139 905 0001:0023913E 908 0001:00239160 911 0001:00239174 + 912 0001:00239183 913 0001:00239187 914 0001:0023918B 915 0001:00239199 + 916 0001:0023919D 919 0001:002391BB 920 0001:002391BF 921 0001:002391C3 + 922 0001:002391C7 924 0001:002391D7 925 0001:002391F6 926 0001:00239220 + 927 0001:00239226 928 0001:0023922A 929 0001:0023925A 930 0001:00239275 + 931 0001:00239290 932 0001:002392AB 933 0001:002392AF 935 0001:002392BE + 936 0001:002392C2 937 0001:002392C6 940 0001:002392CA 942 0001:002392D4 + 943 0001:002392DE 944 0001:002392E6 946 0001:0023930E 947 0001:00239328 + 949 0001:00239337 950 0001:00239359 952 0001:00239365 953 0001:0023937A + 954 0001:002393A4 957 0001:002393A6 944 0001:002393A9 958 0001:002393B2 + 959 0001:002393B9 962 0001:002393CF 963 0001:002393DF 965 0001:002393F4 + 966 0001:00239412 967 0001:00239422 971 0001:0023942C 973 0001:00239454 + 974 0001:00239465 976 0001:00239495 977 0001:002394EC 978 0001:002394FA + 979 0001:00239530 981 0001:00239566 982 0001:0023958A 984 0001:002395C6 + 971 0001:002395C9 989 0001:002395D7 990 0001:002395DB 992 0001:00239609 + 993 0001:0023960D 994 0001:00239621 996 0001:00239638 997 0001:00239654 + 999 0001:00239664 1000 0001:00239668 1001 0001:0023966C 1004 0001:002396A3 + 1005 0001:002396A7 1006 0001:002396B5 1007 0001:002396D5 1008 0001:002396E5 + 1009 0001:0023971D 1013 0001:0023973C 1017 0001:00239745 1020 0001:00239774 + 1021 0001:0023977E 1022 0001:0023978C 1023 0001:002397AA 1025 0001:002397B5 + 1026 0001:002397E5 1028 0001:002397E9 1029 0001:002397FC 1030 0001:0023980F + 1031 0001:00239822 1032 0001:0023982C 1033 0001:0023983A 1034 0001:0023984A + 1035 0001:0023985C 1036 0001:00239881 1037 0001:002398A6 1038 0001:002398CB + 1039 0001:002398F0 1041 0001:0023991A 1042 0001:00239944 1043 0001:0023996E + 1047 0001:0023999D 1048 0001:00239A19 1051 0001:00239A38 1053 0001:00239A3A + 1054 0001:00239A6D 1057 0001:00239A76 1061 0001:00239A80 1062 0001:00239A88 + 1063 0001:00239AA7 1064 0001:00239AB1 1069 0001:00239B07 1071 0001:00239B1F + 1076 0001:00239B63 1080 0001:00239BD4 1081 0001:00239BDE 1082 0001:00239C1E + 1083 0001:00239C22 1085 0001:00239C28 1087 0001:00239C37 1088 0001:00239C3B + 1091 0001:00239C41 1092 0001:00239C45 1095 0001:00239C4B 1096 0001:00239C4F + 1100 0001:00239C53 1104 0001:00239C75 1105 0001:00239CFB 1106 0001:00239D6F + 1107 0001:00239E0C 1110 0001:00239E7B 990 0001:00239E7E 1113 0001:00239E87 + 1114 0001:00239E91 1115 0001:00239EA1 1118 0001:00239EAD 1120 0001:00239EC7 + 1122 0001:00239ED2 1124 0001:00239EE0 1125 0001:00239F06 1128 0001:00239F0C + 1129 0001:00239F16 1131 0001:00239F29 1132 0001:00239F3A 1136 0001:00239F44 + 1139 0001:00239F4A 1142 0001:00239F4E 1144 0001:00239F58 1146 0001:00239F7E + 1148 0001:00239F87 1149 0001:00239F98 1158 0001:00239FA2 1160 0001:00239FD2 + 1161 0001:00239FDA 1162 0001:00239FE4 1166 0001:00239FF4 1168 0001:0023A058 + 1169 0001:0023A072 1171 0001:0023A097 1172 0001:0023A0DB 1174 0001:0023A111 + 1175 0001:0023A11A 1179 0001:0023A124 1180 0001:0023A12A 1181 0001:0023A134 + 1183 0001:0023A13F 1185 0001:0023A15B 1187 0001:0023A19D 1188 0001:0023A1E1 + 1191 0001:0023A24F 1192 0001:0023A28D 1193 0001:0023A2DD 1183 0001:0023A2E0 + 1194 0001:0023A2E9 1196 0001:0023A308 1198 0001:0023A31C 1200 0001:0023A359 + 1201 0001:0023A363 1203 0001:0023A365 1204 0001:0023A399 1205 0001:0023A3A8 + 1196 0001:0023A3A9 1206 0001:0023A3B2 1208 0001:0023A3C0 1209 0001:0023A3C7 + 1211 0001:0023A3D6 1212 0001:0023A3F4 1213 0001:0023A430 1214 0001:0023A43F + 1215 0001:0023A44E 1216 0001:0023A45D 1220 0001:0023A488 1222 0001:0023A498 + 1227 0001:0023A4A2 1229 0001:0023A4CA 1230 0001:0023A4DB 1231 0001:0023A4E5 + 1232 0001:0023A50C 1233 0001:0023A51A 1234 0001:0023A534 1235 0001:0023A54D + 1236 0001:0023A55B 1237 0001:0023A575 1238 0001:0023A58B 1239 0001:0023A599 + 1240 0001:0023A5B0 1241 0001:0023A5C6 1243 0001:0023A5D0 1244 0001:0023A5DE + 1245 0001:0023A5F5 1248 0001:0023A609 1227 0001:0023A60C 1249 0001:0023A615 + 1252 0001:0023A629 1254 0001:0023A646 1255 0001:0023A658 1256 0001:0023A669 + 1258 0001:0023A66F 1259 0001:0023A67D 1260 0001:0023A683 1262 0001:0023A694 + 1252 0001:0023A697 1263 0001:0023A69D 1264 0001:0023A6A2 1265 0001:0023A6AC + 1266 0001:0023A7A5 1272 0001:0023AE48 1273 0001:0023AE4A 1275 0001:0023AE50 + 1276 0001:0023AE5F 1278 0001:0023AE64 1279 0001:0023AE76 1282 0001:0023AE85 + 1288 0001:0023AE88 1289 0001:0023AE8D 1296 0001:0023AE90 1298 0001:0023AEB8 + 1299 0001:0023AEBF 1301 0001:0023AED8 1302 0001:0023AEE5 1303 0001:0023AEF3 + 1304 0001:0023AF14 1305 0001:0023AF34 1309 0001:0023AF42 1312 0001:0023AF72 + 1316 0001:0023AF7C 1317 0001:0023AF8D 1318 0001:0023AF9E 1332 0001:0023AFA0 + 1334 0001:0023AFC6 1335 0001:0023AFE6 1337 0001:0023AFEE 1339 0001:0023AFFA + 1342 0001:0023B006 1344 0001:0023B014 1347 0001:0023B028 1348 0001:0023B031 + 1349 0001:0023B04D 1351 0001:0023B070 1353 0001:0023B080 1354 0001:0023B08E + 1355 0001:0023B09C 1357 0001:0023B0BC 1359 0001:0023B0CF 1360 0001:0023B0D9 + 1364 0001:0023B0ED 1365 0001:0023B11A 1366 0001:0023B147 1367 0001:0023B174 + 1370 0001:0023B1A1 1374 0001:0023B211 1355 0001:0023B215 1378 0001:0023B23A + 1383 0001:0023B246 1387 0001:0023B27A 1388 0001:0023B280 1393 0001:0023B29F + 1394 0001:0023B2AF 1395 0001:0023B2B9 1397 0001:0023B2EF 1410 0001:0023B320 + 1412 0001:0023B348 1413 0001:0023B356 1419 0001:0023B364 1420 0001:0023B373 + 1421 0001:0023B381 1422 0001:0023B38D 1424 0001:0023B399 1425 0001:0023B39D + 1427 0001:0023B3A1 1429 0001:0023B3AF 1431 0001:0023B3D6 1434 0001:0023B3F3 + 1435 0001:0023B40B 1437 0001:0023B40F 1438 0001:0023B423 1441 0001:0023B428 + 1443 0001:0023B44B 1444 0001:0023B472 1445 0001:0023B47D 1446 0001:0023B498 + 1450 0001:0023B4CC 1451 0001:0023B4D8 1452 0001:0023B4E2 1454 0001:0023B4EC + 1455 0001:0023B4F8 1457 0001:0023B502 1458 0001:0023B516 1459 0001:0023B520 + 1462 0001:0023B52F 1466 0001:0023B53C 1429 0001:0023B53D 1471 0001:0023B562 + 1475 0001:0023B56C 1477 0001:0023B575 1479 0001:0023B57A 1480 0001:0023B584 + 1483 0001:0023B58E 1484 0001:0023B594 1486 0001:0023B598 1487 0001:0023B5A5 + 1490 0001:0023B5A9 1491 0001:0023B5B6 1493 0001:0023B5BA 1495 0001:0023B5CE + 1501 0001:0023B5E3 1502 0001:0023B5E9 1504 0001:0023B603 1505 0001:0023B60D + 1508 0001:0023B617 1509 0001:0023B631 1510 0001:0023B640 1515 0001:0023B64C + 1517 0001:0023B65C 1518 0001:0023B668 1521 0001:0023B672 1522 0001:0023B681 + 1525 0001:0023B69F 1527 0001:0023B6DF 1538 0001:0023B7C0 1539 0001:0023B7CB + 1542 0001:0023B7DA 1544 0001:0023B7E8 1545 0001:0023B7FC 1547 0001:0023B80B + 1549 0001:0023B818 1550 0001:0023B826 1552 0001:0023B846 1554 0001:0023B85C + 1557 0001:0023B873 1559 0001:0023B879 1560 0001:0023B886 1561 0001:0023B893 + 1562 0001:0023B8A0 1563 0001:0023B8AD 1566 0001:0023B8BA 1568 0001:0023B8C0 + 1569 0001:0023B8C8 1571 0001:0023B8D6 1573 0001:0023B8E2 1574 0001:0023B8EF + 1578 0001:0023B8FE 1579 0001:0023B90B 1584 0001:0023B91A 1585 0001:0023B927 + 1586 0001:0023B934 1589 0001:0023B936 1550 0001:0023B937 1594 0001:0023B95B + 1599 0001:0023B965 1600 0001:0023B973 1604 0001:0023B97C 1605 0001:0023B981 + 1616 0001:0023B984 1617 0001:0023B995 1619 0001:0023B9AC 1621 0001:0023B9BA + 1624 0001:0023B9C4 1626 0001:0023B9DF 1627 0001:0023B9EC 1631 0001:0023B9FB + 1637 0001:0023BA08 1639 0001:0023BA0E 1640 0001:0023BA29 1643 0001:0023BA3A + 1645 0001:0023BA4D 1647 0001:0023BA51 1648 0001:0023BA60 1649 0001:0023BA6D + 1650 0001:0023BA7A 1652 0001:0023BA7C 1639 0001:0023BA7D 1654 0001:0023BA80 + 1655 0001:0023BAA4 1657 0001:0023BAC9 1658 0001:0023BACF 1659 0001:0023BAD5 + 1660 0001:0023BAE6 1663 0001:0023BAF7 1673 0001:0023BB00 1674 0001:0023BB1E + 1675 0001:0023BB2C 1677 0001:0023BB3A 1679 0001:0023BB47 1681 0001:0023BB4E + 1683 0001:0023BB52 1684 0001:0023BB5C 1688 0001:0023BB69 1689 0001:0023BB8D + 1691 0001:0023BBAF 1692 0001:0023BBBE 1693 0001:0023BBC3 1696 0001:0023BBD9 + 1698 0001:0023BBDF 1699 0001:0023BBED 1702 0001:0023BBFA 1705 0001:0023BC1F + 1706 0001:0023BC30 1707 0001:0023BC3A 1708 0001:0023BC4A 1709 0001:0023BC5C + 1712 0001:0023BC6E 1714 0001:0023BC7C 1716 0001:0023BC86 1717 0001:0023BC90 + 1721 0001:0023BC9A 1722 0001:0023BCAD 1723 0001:0023BCCA 1724 0001:0023BCCC + 1688 0001:0023BCCD 1730 0001:0023BCF1 1733 0001:0023BD18 1743 0001:0023BDC8 + 1744 0001:0023BDD1 1746 0001:0023BDDF 1747 0001:0023BDE8 1749 0001:0023BDF9 + 1750 0001:0023BE07 1752 0001:0023BE23 1754 0001:0023BE45 1757 0001:0023BE58 + 1760 0001:0023BE60 1762 0001:0023BE7A 1764 0001:0023BE9F 1768 0001:0023BEB5 + 1771 0001:0023BEC7 1773 0001:0023BED5 1774 0001:0023BEDF 1775 0001:0023BEE9 + 1779 0001:0023BEEE 1782 0001:0023BEFC 1783 0001:0023BF0A 1784 0001:0023BF1B + 1785 0001:0023BF2C 1786 0001:0023BF3D 1789 0001:0023BF4E 1791 0001:0023BF5C + 1792 0001:0023BF6C 1798 0001:0023BF79 1750 0001:0023BF7A 1803 0001:0023BF9E + 1809 0001:0023BFA8 1811 0001:0023BFB3 1817 0001:0023C01C 1818 0001:0023C023 + 1819 0001:0023C032 1821 0001:0023C03A 1822 0001:0023C048 1824 0001:0023C068 + 1825 0001:0023C07E 1826 0001:0023C0A1 1822 0001:0023C0A2 1831 0001:0023C0C0 + 1835 0001:0023C0CA 1836 0001:0023C0D2 1844 0001:0023C0D8 1845 0001:0023C0DE + 1847 0001:0023C0E3 1849 0001:0023C0FE 1850 0001:0023C111 1851 0001:0023C115 + 1852 0001:0023C118 1847 0001:0023C119 1854 0001:0023C11C 1855 0001:0023C11F + 1860 0001:0023C124 1862 0001:0023C13A 1863 0001:0023C147 1864 0001:0023C151 + 1867 0001:0023C15B 1868 0001:0023C165 1871 0001:0023C17A 1874 0001:0023C181 + 1875 0001:0023C188 1877 0001:0023C197 1879 0001:0023C19E 1880 0001:0023C1AD + 1881 0001:0023C1BA 1882 0001:0023C1C7 1884 0001:0023C1D9 1886 0001:0023C200 + 1887 0001:0023C20D 1888 0001:0023C21A 1891 0001:0023C22E 1893 0001:0023C26B + 1894 0001:0023C278 1898 0001:0023C287 1901 0001:0023C2B3 1906 0001:0023C2C4 + 1907 0001:0023C2CE 1909 0001:0023C2E6 1910 0001:0023C3A9 1911 0001:0023C3D5 + 1912 0001:0023C401 1913 0001:0023C42D 1914 0001:0023C459 1915 0001:0023C485 + 1916 0001:0023C4B1 1918 0001:0023C4DA 1920 0001:0023C4E0 1921 0001:0023C4FB + 1920 0001:0023C50B 1922 0001:0023C50E 1923 0001:0023C520 1926 0001:0023C530 + 1928 0001:0023C539 1929 0001:0023C543 1934 0001:0023C54A 1937 0001:0023C554 + 1939 0001:0023C55B 1941 0001:0023C561 1943 0001:0023C574 1944 0001:0023C591 + 1948 0001:0023C5A4 1957 0001:0023C5AC 1958 0001:0023C5BA 1960 0001:0023C5C3 + 1961 0001:0023C5CD 1964 0001:0023C5D4 1965 0001:0023C5EB 1966 0001:0023C5FA + 1967 0001:0023C60C 1968 0001:0023C610 1969 0001:0023C614 1970 0001:0023C63C + 1971 0001:0023C640 1972 0001:0023C644 1973 0001:0023C648 1975 0001:0023C64C + 1977 0001:0023C659 1980 0001:0023C65F 1981 0001:0023C66C 1982 0001:0023C679 + 1983 0001:0023C686 1984 0001:0023C693 1985 0001:0023C6A0 1986 0001:0023C6AD + 1988 0001:0023C6BA 1989 0001:0023C6C7 1990 0001:0023C6D4 1991 0001:0023C6E1 + 1992 0001:0023C6EE 1993 0001:0023C6FB 1994 0001:0023C708 1995 0001:0023C715 + 1996 0001:0023C722 1997 0001:0023C72F 1998 0001:0023C73C 2003 0001:0023C74E + 2006 0001:0023C754 2007 0001:0023C761 2008 0001:0023C76E 2009 0001:0023C77B + 2010 0001:0023C788 2011 0001:0023C795 2012 0001:0023C7A2 2014 0001:0023C7AF + 2015 0001:0023C7BC 2016 0001:0023C7C9 2017 0001:0023C7D6 2018 0001:0023C7E3 + 2019 0001:0023C7F0 2020 0001:0023C7FD 2021 0001:0023C80A 2022 0001:0023C817 + 2023 0001:0023C824 2024 0001:0023C831 2028 0001:0023C83E 2029 0001:0023C854 + 2030 0001:0023C85B 2035 0001:0023C864 2037 0001:0023C867 2039 0001:0023C870 + 2040 0001:0023C87A 2042 0001:0023C881 2045 0001:0023C888 2046 0001:0023C88B + 2048 0001:0023C894 2049 0001:0023C89E 2050 0001:0023C8A5 2052 0001:0023C8B1 + 2055 0001:0023C8B8 2056 0001:0023C8BC 2058 0001:0023C8C9 2061 0001:0023C8CF + 2062 0001:0023C8DC 2063 0001:0023C8E9 2064 0001:0023C8F6 2065 0001:0023C903 + 2066 0001:0023C910 2067 0001:0023C91D 2069 0001:0023C92A 2070 0001:0023C937 + 2071 0001:0023C944 2072 0001:0023C951 2073 0001:0023C95E 2074 0001:0023C96B + 2075 0001:0023C978 2076 0001:0023C985 2077 0001:0023C992 2078 0001:0023C99F + 2079 0001:0023C9AC 2080 0001:0023C9B9 2085 0001:0023C9CB 2088 0001:0023C9D1 + 2089 0001:0023C9DE 2090 0001:0023C9EB 2091 0001:0023C9F8 2092 0001:0023CA05 + 2093 0001:0023CA12 2094 0001:0023CA1F 2096 0001:0023CA2C 2097 0001:0023CA39 + 2098 0001:0023CA46 2099 0001:0023CA53 2100 0001:0023CA60 2101 0001:0023CA6D + 2102 0001:0023CA7A 2103 0001:0023CA87 2104 0001:0023CA94 2105 0001:0023CAA1 + 2106 0001:0023CAAE 2107 0001:0023CABB 2110 0001:0023CAC8 2113 0001:0023CAD0 + 2115 0001:0023CAD3 2117 0001:0023CADC 2118 0001:0023CAE6 2120 0001:0023CAED + 2122 0001:0023CAF3 2123 0001:0023CB00 2124 0001:0023CB0D 2125 0001:0023CB1A + 2126 0001:0023CB27 2127 0001:0023CB34 2128 0001:0023CB41 2134 0001:0023CB4E + 2136 0001:0023CB57 2138 0001:0023CB67 2139 0001:0023CB73 2144 0001:0023CB7F + 2147 0001:0023CB84 2148 0001:0023CB87 2149 0001:0023CBA2 2152 0001:0023CBA8 + 2153 0001:0023CBAB 2154 0001:0023CBC6 2159 0001:0023CBCC 2161 0001:0023CBE4 + 2162 0001:0023CBFE 2163 0001:0023CC1F 2165 0001:0023CC3F 2166 0001:0023CC6A + 2167 0001:0023CC80 2169 0001:0023CCB8 2170 0001:0023CCEE 2162 0001:0023CCEF + 2171 0001:0023CCF6 2172 0001:0023CD0D 2173 0001:0023CD4F 2177 0001:0023CD84 + 2178 0001:0023CD87 2179 0001:0023CD8D 2180 0001:0023CD92 2186 0001:0023CD98 + 2188 0001:0023CD9C 2189 0001:0023CDAC 2190 0001:0023CDB6 2191 0001:0023CDBD + 2193 0001:0023CE2C 2193 0001:0023CE33 + +Line numbers for fEncnt(fEncnt.pas) segment .text + + 113 0001:0023D320 114 0001:0023D32F 118 0001:0023D330 119 0001:0023D33F + 128 0001:0023D340 129 0001:0023D359 130 0001:0023D35E 131 0001:0023D38B + 132 0001:0023D3A2 133 0001:0023D3B0 134 0001:0023D3B2 137 0001:0023D3BA + 138 0001:0023D3CF 139 0001:0023D3E4 141 0001:0023D3F0 142 0001:0023D400 + 143 0001:0023D410 144 0001:0023D420 145 0001:0023D42D 150 0001:0023D440 + 151 0001:0023D460 153 0001:0023D47D 154 0001:0023D488 156 0001:0023D498 + 157 0001:0023D49A 160 0001:0023D52A 161 0001:0023D535 163 0001:0023D53D + 164 0001:0023D564 165 0001:0023D579 166 0001:0023D594 167 0001:0023D5A9 + 172 0001:0023D5CB 174 0001:0023D5FD 181 0001:0023D630 183 0001:0023D657 + 184 0001:0023D66B 185 0001:0023D676 186 0001:0023D68E 187 0001:0023D6A2 + 188 0001:0023D6AF 189 0001:0023D6BA 190 0001:0023D6C5 191 0001:0023D6D2 + 192 0001:0023D6D8 194 0001:0023D6F5 195 0001:0023D702 196 0001:0023D708 + 198 0001:0023D725 199 0001:0023D732 200 0001:0023D762 201 0001:0023D77C + 202 0001:0023D796 203 0001:0023D7A8 204 0001:0023D7C2 205 0001:0023D7C9 + 207 0001:0023D7DE 208 0001:0023D7FB 209 0001:0023D815 211 0001:0023D851 + 212 0001:0023D85D 213 0001:0023D864 214 0001:0023D875 215 0001:0023D87E + 217 0001:0023D892 218 0001:0023D8A3 220 0001:0023D8AC 224 0001:0023D8C1 + 225 0001:0023D8E0 226 0001:0023D8F7 228 0001:0023D8FE 229 0001:0023D91F + 230 0001:0023D94C 231 0001:0023D9A1 235 0001:0023DB88 237 0001:0023DB95 + 238 0001:0023DB9E 240 0001:0023DBB6 242 0001:0023DBCC 245 0001:0023DBD4 + 247 0001:0023DBD7 248 0001:0023DBF7 250 0001:0023DC1F 251 0001:0023DC52 + 253 0001:0023DC5F 255 0001:0023DC87 256 0001:0023DCA2 258 0001:0023DCAF + 260 0001:0023DCC7 262 0001:0023DCE0 264 0001:0023DCEE 266 0001:0023DCF7 + 267 0001:0023DD08 268 0001:0023DD1B 272 0001:0023DD26 273 0001:0023DD37 + 275 0001:0023DD58 276 0001:0023DD5F 277 0001:0023DD97 278 0001:0023DD9E + 280 0001:0023DDAD 282 0001:0023DDB1 283 0001:0023DDC1 287 0001:0023DDD0 + 294 0001:0023DDDD 298 0001:0023DDF0 300 0001:0023DDF9 301 0001:0023DE10 + 304 0001:0023DE18 305 0001:0023DE35 306 0001:0023DE4C 307 0001:0023DE63 + 309 0001:0023DE76 310 0001:0023DE8E 311 0001:0023DEA4 314 0001:0023DEDA + 316 0001:0023DF07 317 0001:0023DF49 318 0001:0023DF59 320 0001:0023DFBB + 323 0001:0023E004 325 0001:0023E01F 327 0001:0023E025 328 0001:0023E032 + 329 0001:0023E053 330 0001:0023E065 331 0001:0023E06C 333 0001:0023E072 + 334 0001:0023E08F 337 0001:0023E10C 340 0001:0023E13C 344 0001:0023E157 + 345 0001:0023E164 347 0001:0023E16A 348 0001:0023E177 349 0001:0023E198 + 350 0001:0023E1AA 351 0001:0023E1B1 353 0001:0023E212 356 0001:0023E224 + 358 0001:0023E23F 360 0001:0023E262 361 0001:0023E26F 362 0001:0023E290 + 363 0001:0023E2A2 364 0001:0023E2A9 366 0001:0023E2AF 367 0001:0023E2CC + 370 0001:0023E349 377 0001:0023E378 379 0001:0023E397 380 0001:0023E39F + 381 0001:0023E3B5 382 0001:0023E3E2 383 0001:0023E422 385 0001:0023E428 + 386 0001:0023E437 390 0001:0023E43C 391 0001:0023E460 392 0001:0023E48F + 393 0001:0023E49A 395 0001:0023E4B2 396 0001:0023E4DB 397 0001:0023E4E2 + 398 0001:0023E50E 403 0001:0023E650 404 0001:0023E655 408 0001:0023E658 + 409 0001:0023E65D 437 0001:0023E660 438 0001:0023E669 439 0001:0023E66F + 440 0001:0023E677 441 0001:0023E67E 442 0001:0023E688 443 0001:0023E697 + 448 0001:0023E6A0 451 0001:0023E6A4 452 0001:0023E6A7 453 0001:0023E6B9 + 455 0001:0023E6C2 456 0001:0023E6DF 457 0001:0023E6EF 462 0001:0023E6F4 + 463 0001:0023E714 466 0001:0023E718 468 0001:0023E73B 470 0001:0023E741 + 471 0001:0023E77F 472 0001:0023E7BB 473 0001:0023E7DF 474 0001:0023E7E6 + 475 0001:0023E7ED 477 0001:0023E828 481 0001:0023E830 483 0001:0023E852 + 485 0001:0023E858 486 0001:0023E890 487 0001:0023E8CC 488 0001:0023E903 + 489 0001:0023E90A 490 0001:0023E937 492 0001:0023E93D 493 0001:0023E95A + 496 0001:0023EA0C 499 0001:0023EA3C 501 0001:0023EA3F 503 0001:0023EA4B + 504 0001:0023EA5D 508 0001:0023EA77 509 0001:0023EA8B 512 0001:0023EA9F + 513 0001:0023EAB9 515 0001:0023EAD1 516 0001:0023EAE9 518 0001:0023EAFD + 521 0001:0023EB00 523 0001:0023EB03 525 0001:0023EB0F 526 0001:0023EB21 + 530 0001:0023EB3B 531 0001:0023EB4F 534 0001:0023EB63 535 0001:0023EB7D + 536 0001:0023EB95 538 0001:0023EBAD 540 0001:0023EBEC 540 0001:0023EBF3 + +Line numbers for fvit(fvit.pas) segment .text + + 173 0001:0023F1D8 175 0001:0023F1DE 178 0001:0023F1EF 180 0001:0023F1F4 + 182 0001:0023F1F7 185 0001:0023F20C 186 0001:0023F21C 191 0001:0023F225 + 194 0001:0023F228 195 0001:0023F246 196 0001:0023F25D 197 0001:0023F274 + 198 0001:0023F28B 199 0001:0023F2A2 200 0001:0023F2B9 201 0001:0023F2D0 + 202 0001:0023F2E7 203 0001:0023F2FE 204 0001:0023F315 205 0001:0023F32C + 206 0001:0023F343 207 0001:0023F35A 208 0001:0023F371 209 0001:0023F388 + 210 0001:0023F39F 211 0001:0023F3B6 214 0001:0023F3CD 215 0001:0023F3D4 + 216 0001:0023F3E2 217 0001:0023F3F0 218 0001:0023F413 219 0001:0023F436 + 221 0001:0023F466 224 0001:0023F475 226 0001:0023F49F 227 0001:0023F4B2 + 228 0001:0023F4DC 235 0001:0023F500 236 0001:0023F522 239 0001:0023F536 + 241 0001:0023F54F 243 0001:0023F580 244 0001:0023F5B0 247 0001:0023F5FC + 249 0001:0023F62D 250 0001:0023F65D 253 0001:0023F6A9 255 0001:0023F6DA + 256 0001:0023F70A 259 0001:0023F756 261 0001:0023F787 262 0001:0023F7B7 + 265 0001:0023F803 267 0001:0023F838 268 0001:0023F86E 271 0001:0023F8CC + 273 0001:0023F90D 274 0001:0023F949 277 0001:0023F9A7 279 0001:0023F9E8 + 280 0001:0023FA24 284 0001:0023FA82 238 0001:0023FA83 286 0001:0023FAB1 + 291 0001:0023FB20 292 0001:0023FB39 293 0001:0023FB51 294 0001:0023FB7B + 303 0001:0023FB80 304 0001:0023FBA1 308 0001:0023FCE8 311 0001:0023FCF0 + 313 0001:0023FCF3 314 0001:0023FD02 315 0001:0023FD0F 324 0001:0023FD14 + 325 0001:0023FD35 327 0001:0023FD42 328 0001:0023FD49 329 0001:0023FD57 + 331 0001:0023FD69 332 0001:0023FD6D 335 0001:0023FD8A 338 0001:0023FD8E + 340 0001:0023FD99 341 0001:0023FDBA 343 0001:0023FDC9 344 0001:0023FDCD + 345 0001:0023FDE2 348 0001:0023FE0A 336 0001:0023FE0B 350 0001:0023FE31 + 333 0001:0023FE49 352 0001:0023FE5F 354 0001:0023FE65 358 0001:0023FE87 + 360 0001:0023FEB8 366 0001:0023FEC0 367 0001:0023FECB 372 0001:0023FECC + 373 0001:0023FED7 376 0001:0023FED8 378 0001:0023FEDB 379 0001:0023FEF1 + 380 0001:0023FEFF 383 0001:0023FF14 385 0001:0023FF18 387 0001:0023FF26 + 388 0001:0023FF3C 390 0001:0023FF4A 393 0001:0023FF60 395 0001:0023FF63 + 396 0001:0023FF79 397 0001:0023FF87 400 0001:0023FF9C 402 0001:0023FF9F + 403 0001:0023FFB5 404 0001:0023FFC3 407 0001:0023FFD8 409 0001:0023FFEF + 411 0001:0023FFFD 412 0001:0024001B 414 0001:00240046 417 0001:0024004C + 419 0001:00240050 421 0001:0024005E 422 0001:00240074 424 0001:00240082 + 428 0001:00240098 431 0001:0024009B 432 0001:002400AC 433 0001:002400BD + 434 0001:002400C4 441 0001:002400C8 443 0001:002400CD 444 0001:002400D7 + 445 0001:002400E1 452 0001:002400E4 453 0001:002400E9 458 0001:002400EC + 461 0001:00240102 464 0001:00240109 465 0001:00240116 467 0001:00240125 + 468 0001:0024012D 470 0001:0024012F 471 0001:00240153 474 0001:00240168 + 477 0001:00240177 478 0001:00240185 480 0001:002401A0 481 0001:002401B0 + 483 0001:002401C8 487 0001:002401D0 489 0001:002401E3 490 0001:00240224 + 493 0001:00240244 495 0001:00240247 496 0001:0024024E 499 0001:0024025C + 505 0001:00240260 506 0001:0024026B 509 0001:0024026C 510 0001:00240270 + 514 0001:00240283 517 0001:0024029C 518 0001:002402AA 519 0001:002402C3 + 520 0001:002402CB 521 0001:002402E4 522 0001:002402EC 524 0001:00240305 + 527 0001:00240316 530 0001:0024031C 531 0001:00240320 533 0001:0024032E + 534 0001:00240344 536 0001:00240352 539 0001:00240368 540 0001:0024037F + 542 0001:0024038D 543 0001:002403AB 545 0001:002403D6 548 0001:002403DC + 549 0001:002403E0 551 0001:002403EE 552 0001:00240404 554 0001:00240412 + 556 0001:00240458 556 0001:0024045F + +Line numbers for uOrPtf(uOrPtf.pas) segment .text + + 31 0001:00240460 32 0001:0024046C 33 0001:00240473 34 0001:00240476 + 35 0001:0024048C 37 0001:002404A2 38 0001:002404B6 40 0001:002404B9 + 43 0001:002404D8 44 0001:002404FD 45 0001:00240516 46 0001:0024053D + 47 0001:00240578 66 0001:002405A8 67 0001:002405B4 68 0001:002405D6 + 69 0001:002405EC 70 0001:00240600 73 0001:00240620 74 0001:00240639 + 75 0001:00240672 77 0001:002406BC 77 0001:002406C3 + +Line numbers for fPatientFlagMulti(fPatientFlagMulti.pas) segment .text + + 76 0001:00240A08 77 0001:00240A0F 78 0001:00240A20 79 0001:00240A2E + 80 0001:00240A36 83 0001:00240A40 84 0001:00240A49 85 0001:00240A64 + 86 0001:00240A77 87 0001:00240A7F 90 0001:00240A97 92 0001:00240AA7 + 97 0001:00240AAC 98 0001:00240AC8 100 0001:00240ADA 101 0001:00240AE8 + 102 0001:00240B15 103 0001:00240B20 104 0001:00240B33 105 0001:00240B43 + 107 0001:00240B6F 111 0001:00240B78 112 0001:00240B7B 113 0001:00240B81 + 114 0001:00240B86 120 0001:00240B8C 122 0001:00240B8F 123 0001:00240B96 + 124 0001:00240B98 125 0001:00240BB2 126 0001:00240BC2 127 0001:00240BCB + 128 0001:00240BD8 129 0001:00240BDF 134 0001:00240BE4 135 0001:00240BEC + 140 0001:00240BF0 141 0001:00240BF5 146 0001:00240BF8 147 0001:00240C1A + 148 0001:00240C23 149 0001:00240C35 150 0001:00240C51 151 0001:00240C7E + 152 0001:00240CB6 153 0001:00240CD7 154 0001:00240D10 155 0001:00240D2B + 156 0001:00240D3C 158 0001:00240D42 159 0001:00240D4D 161 0001:00240D82 + 166 0001:00240DCC 167 0001:00240DDE 168 0001:00240DE7 169 0001:00240E0D + 172 0001:00240E10 173 0001:00240E1B 174 0001:00240E23 175 0001:00240E3A + 178 0001:00240E40 179 0001:00240E62 180 0001:00240E9F 185 0001:00240EA8 + 186 0001:00240ECA 187 0001:00240EFB 188 0001:00240F2D 194 0001:00240F58 + 195 0001:00240F7F 196 0001:00240F8A 199 0001:00240FA4 200 0001:00240FB4 + 201 0001:00240FC0 202 0001:00240FEE 203 0001:0024101C 204 0001:0024104A + 196 0001:0024104B 205 0001:00241076 209 0001:002410B4 210 0001:002410BF + 213 0001:002410C0 214 0001:002410DA 216 0001:002410EB 217 0001:00241126 + 219 0001:0024117B 223 0001:0024119C 224 0001:0024119F 225 0001:002411AB + 226 0001:002411B0 228 0001:002411E4 228 0001:002411EB + +Line numbers for fPtCWAD(fPtCWAD.pas) segment .text + + 45 0001:0024143C 46 0001:00241440 47 0001:00241457 48 0001:00241465 + 49 0001:0024146D 51 0001:00241485 53 0001:00241495 59 0001:00241498 + 61 0001:002414B0 62 0001:002414BA 63 0001:002414CA 64 0001:002414D4 + 65 0001:002414E4 66 0001:002414FE 65 0001:0024152D 67 0001:00241532 + 68 0001:00241556 71 0001:002415B8 73 0001:002415CC 74 0001:002415D2 + 80 0001:002415E7 82 0001:00241632 85 0001:00241638 87 0001:0024165A + 88 0001:00241660 90 0001:00241683 91 0001:002416C3 93 0001:0024175A + 97 0001:0024177C 99 0001:0024177F 101 0001:00241785 102 0001:0024178A + 104 0001:0024178F 109 0001:00241794 110 0001:00241799 112 0001:002417CC + 112 0001:002417D3 + +Line numbers for fARTAllgy(fARTAllgy.pas) segment .text + + 169 0001:00241FA8 170 0001:00241FC0 171 0001:00241FC8 172 0001:00241FEA + 174 0001:00242010 175 0001:00242023 176 0001:0024206A 180 0001:002420E0 + 181 0001:002420E9 187 0001:002420EC 188 0001:00242110 189 0001:00242116 + 190 0001:00242129 191 0001:0024212F 192 0001:00242133 193 0001:0024214A + 194 0001:0024215A 196 0001:00242168 197 0001:00242170 198 0001:0024217A + 199 0001:00242181 201 0001:0024218A 202 0001:00242197 203 0001:002421A2 + 204 0001:002421B0 205 0001:002421BA 206 0001:002421E4 207 0001:002421EE + 209 0001:002421FB 211 0001:00242204 212 0001:00242211 213 0001:0024221C + 214 0001:0024222A 215 0001:00242234 216 0001:0024225E 217 0001:00242268 + 219 0001:00242275 221 0001:00242282 222 0001:0024228F 223 0001:0024229C + 224 0001:002422B4 226 0001:002422DC 227 0001:002422EF 228 0001:002422F7 + 230 0001:00242301 232 0001:00242307 233 0001:00242318 234 0001:0024232E + 238 0001:0024235A 239 0001:0024235E 240 0001:00242366 242 0001:00242370 + 243 0001:0024238A 244 0001:00242391 246 0001:002423A2 247 0001:002423A9 + 249 0001:002423B2 250 0001:002423B6 251 0001:002423BE 253 0001:002423C5 + 254 0001:002423D0 256 0001:002423E9 257 0001:002423F0 258 0001:002423F7 + 259 0001:002423FE 260 0001:00242405 262 0001:0024245B 265 0001:0024252C + 267 0001:00242535 268 0001:0024253C 269 0001:00242543 270 0001:00242554 + 271 0001:00242565 272 0001:00242576 275 0001:00242584 276 0001:00242593 + 277 0001:002425A2 278 0001:002425B1 279 0001:002425C0 280 0001:002425CF + 281 0001:002425E1 283 0001:002425F0 284 0001:00242601 285 0001:0024260B + 286 0001:00242612 287 0001:00242623 288 0001:0024262D 289 0001:00242649 + 290 0001:00242654 291 0001:00242661 292 0001:00242676 293 0001:0024268E + 294 0001:0024269F 295 0001:002426A9 296 0001:002426B0 298 0001:002426B9 + 301 0001:002426C0 307 0001:00242714 308 0001:00242736 317 0001:0024273D + 318 0001:00242744 319 0001:00242754 320 0001:00242762 321 0001:0024277E + 322 0001:0024279A 323 0001:002427B6 324 0001:002427CB 325 0001:002427DB + 326 0001:002427E8 327 0001:002427F6 328 0001:00242804 329 0001:00242812 + 330 0001:00242848 331 0001:0024287E 332 0001:002428A1 333 0001:002428C4 + 334 0001:002428E7 335 0001:002428FC 336 0001:00242912 337 0001:00242939 + 338 0001:00242968 340 0001:00242972 342 0001:00242984 343 0001:002429DD + 346 0001:002429EC 347 0001:002429F9 352 0001:00242A08 353 0001:00242A15 + 355 0001:00242A22 357 0001:00242A49 358 0001:00242A55 359 0001:00242A61 + 360 0001:00242A76 362 0001:00242A98 365 0001:00242AAA 367 0001:00242AB0 + 368 0001:00242ABE 369 0001:00242AD1 373 0001:00242AF4 374 0001:00242AFB + 375 0001:00242B02 377 0001:00242B04 379 0001:00242B1B 380 0001:00242B22 + 381 0001:00242B29 382 0001:00242B58 385 0001:00242D40 386 0001:00242D68 + 387 0001:00242D75 389 0001:00242D7B 390 0001:00242D8E 392 0001:00242D93 + 394 0001:00242DA0 395 0001:00242DA7 396 0001:00242DBB 397 0001:00242DC8 + 398 0001:00242DD8 399 0001:00242DFF 400 0001:00242E0F 401 0001:00242E18 + 402 0001:00242E39 403 0001:00242E5A 404 0001:00242E6D 405 0001:00242E7E + 406 0001:00242E8C 408 0001:00242E9D 409 0001:00242EB8 410 0001:00242ED3 + 411 0001:00242EEC 412 0001:00242F17 413 0001:00242F26 415 0001:00242F38 + 416 0001:00242F46 417 0001:00242F5D 418 0001:00242F7A 419 0001:00242F9E + 420 0001:00242FBB 421 0001:00242FC4 422 0001:00242FCD 423 0001:00242FD4 + 425 0001:00242FDF 427 0001:00242FE8 428 0001:00242FEF 429 0001:00242FF8 + 430 0001:00243001 432 0001:0024302A 439 0001:00243088 440 0001:0024308E + 441 0001:002430B5 442 0001:002430C8 444 0001:002430D8 445 0001:002430FD + 446 0001:00243105 447 0001:00243118 449 0001:0024312E 450 0001:00243150 + 451 0001:002431A3 452 0001:002431AF 454 0001:002431C2 455 0001:002431E2 + 456 0001:00243214 457 0001:00243220 458 0001:00243243 460 0001:0024324F + 461 0001:00243282 462 0001:00243288 463 0001:002432C6 465 0001:002432D4 + 467 0001:00243349 470 0001:00243384 472 0001:0024339E 473 0001:002433C3 + 475 0001:002433D1 476 0001:002433EC 480 0001:00243400 481 0001:0024340C + 484 0001:0024341D 485 0001:0024342C 487 0001:00243446 488 0001:0024346B + 491 0001:0024348D 492 0001:00243499 495 0001:002434AA 497 0001:002434C8 + 498 0001:002434ED 500 0001:002434FB 501 0001:00243516 505 0001:0024352A + 506 0001:00243536 511 0001:00243549 512 0001:00243555 515 0001:002435F1 + 519 0001:00243958 521 0001:00243961 522 0001:00243978 526 0001:00243980 + 528 0001:00243989 529 0001:002439A0 532 0001:002439A8 534 0001:002439AB + 535 0001:002439B2 536 0001:002439C0 538 0001:002439D8 539 0001:002439E5 + 540 0001:002439F2 541 0001:002439FF 542 0001:00243A0C 543 0001:00243A19 + 546 0001:00243A32 547 0001:00243A3F 548 0001:00243A4C 549 0001:00243A59 + 550 0001:00243A66 553 0001:00243A73 554 0001:00243A7A 555 0001:00243A83 + 562 0001:00243A88 564 0001:00243AAA 565 0001:00243AB7 568 0001:00243AC0 + 569 0001:00243AD9 571 0001:00243AEB 573 0001:00243B06 574 0001:00243B19 + 576 0001:00243B30 578 0001:00243B3C 580 0001:00243B4B 581 0001:00243B5E + 583 0001:00243B6B 584 0001:00243B7D 585 0001:00243B96 589 0001:00243BC0 + 590 0001:00243BDA 592 0001:00243C2D 593 0001:00243C74 594 0001:00243C85 + 595 0001:00243CA3 596 0001:00243D13 597 0001:00243D19 598 0001:00243D3C + 599 0001:00243DB1 600 0001:00243DB7 601 0001:00243DEA 602 0001:00243E6B + 603 0001:00243E71 605 0001:00243E86 606 0001:00243E99 608 0001:00243EB6 + 609 0001:00243EC0 610 0001:00243ED9 609 0001:00243EFF 611 0001:00243F02 + 612 0001:00243F0B 613 0001:00243F27 612 0001:00243F50 614 0001:00243F53 + 616 0001:00243F62 617 0001:00243F75 618 0001:00243F7B 620 0001:00243F90 + 621 0001:00243FA3 624 0001:00243FC0 625 0001:00243FCA 626 0001:00243FDC + 627 0001:00244001 628 0001:0024400B 629 0001:0024401D 630 0001:00244042 + 631 0001:00244048 633 0001:00244053 634 0001:00244057 636 0001:00244068 + 640 0001:00244077 641 0001:0024407D 642 0001:002440C2 644 0001:002440E1 + 645 0001:002440EB 646 0001:002440F1 647 0001:002440FC 650 0001:002441B7 + 653 0001:0024422C 655 0001:0024424A 657 0001:00244250 659 0001:00244264 + 661 0001:00244297 662 0001:002442CB 665 0001:002442FD 667 0001:00244304 + 669 0001:0024430B 670 0001:00244336 675 0001:0024434C 677 0001:00244353 + 678 0001:00244362 679 0001:00244370 680 0001:00244384 681 0001:00244391 + 682 0001:002443A5 684 0001:002443BB 686 0001:002443CB 691 0001:002443D0 + 693 0001:002443EA 694 0001:002443FF 695 0001:00244421 696 0001:00244433 + 698 0001:00244439 699 0001:00244447 700 0001:0024445A 704 0001:0024447D + 705 0001:00244484 707 0001:00244486 708 0001:002444B5 711 0001:002444C8 + 713 0001:002444EB 714 0001:002444FE 715 0001:00244505 716 0001:0024452F + 718 0001:00244535 719 0001:00244567 721 0001:0024458A 722 0001:00244591 + 723 0001:002445D4 726 0001:002445DC 727 0001:002445EE 728 0001:002445F6 + 729 0001:002445FE 730 0001:00244606 731 0001:0024460E 732 0001:00244616 + 733 0001:00244621 734 0001:00244629 735 0001:00244631 736 0001:00244639 + 737 0001:00244641 738 0001:00244649 739 0001:00244651 740 0001:0024465C + 741 0001:00244664 742 0001:0024466E 743 0001:00244678 744 0001:00244682 + 745 0001:0024468B 748 0001:00244690 750 0001:00244694 751 0001:0024469B + 752 0001:002446B1 753 0001:002446BD 754 0001:002446C4 755 0001:002446CD + 758 0001:002446D0 762 0001:002446D6 763 0001:002446E3 764 0001:002446F4 + 766 0001:00244708 767 0001:00244715 768 0001:00244722 769 0001:0024472F + 770 0001:0024473C 771 0001:00244749 772 0001:00244756 773 0001:00244763 + 774 0001:00244770 775 0001:0024477D 776 0001:0024478A 777 0001:00244797 + 778 0001:002447A4 779 0001:002447B1 780 0001:002447BE 781 0001:002447CB + 782 0001:002447D8 783 0001:002447E5 784 0001:002447F2 785 0001:002447FF + 793 0001:00244804 794 0001:0024481F 796 0001:0024482E 797 0001:00244837 + 799 0001:0024484F 800 0001:00244856 801 0001:0024485D 803 0001:00244862 + 804 0001:0024486F 805 0001:00244898 806 0001:0024489C 809 0001:002448D0 + 810 0001:002448EE 812 0001:002448FA 814 0001:00244923 819 0001:002449F4 + 820 0001:00244A0A 821 0001:00244A0C 822 0001:00244A14 824 0001:00244A20 + 825 0001:00244A3F 827 0001:00244A65 832 0001:00244AE0 834 0001:00244AF3 + 835 0001:00244B3D 841 0001:00244B80 843 0001:00244B9C 844 0001:00244BA3 + 846 0001:00244BA9 847 0001:00244BCE 848 0001:00244BDB 850 0001:00244BE4 + 852 0001:00244C0F 853 0001:00244C21 854 0001:00244C35 857 0001:00244C42 + 858 0001:00244C5A 859 0001:00244C68 861 0001:00244C91 862 0001:00244C98 + 863 0001:00244CC7 868 0001:00244CDC 869 0001:00244CED 875 0001:00244CF0 + 877 0001:00244D12 878 0001:00244D19 880 0001:00244D1F 881 0001:00244D44 + 882 0001:00244D7E 883 0001:00244D8C 885 0001:00244D9F 886 0001:00244DB6 + 887 0001:00244DC9 888 0001:00244DE5 891 0001:00244DFB 892 0001:00244E16 + 894 0001:00244E84 897 0001:00244E9F 898 0001:00244EA6 899 0001:00244EE2 + 907 0001:00244F68 909 0001:00244F8A 910 0001:00244FDA 912 0001:00245032 + 914 0001:00245046 915 0001:00245059 917 0001:0024505E 918 0001:00245065 + 920 0001:00245077 921 0001:0024507D 922 0001:002450B1 924 0001:00245134 + 925 0001:002451D0 927 0001:002451D6 928 0001:002451E5 937 0001:00245214 + 938 0001:0024521B 939 0001:002452D5 943 0001:00245334 945 0001:00245337 + 946 0001:00245344 951 0001:00245348 952 0001:0024534F 953 0001:00245354 + 960 0001:00245358 961 0001:00245369 968 0001:0024538C 969 0001:0024539D + 972 0001:002453C4 974 0001:002453C8 976 0001:002453CE 977 0001:002453E7 + 980 0001:002453FF 984 0001:00245404 986 0001:0024540D 987 0001:00245424 + 992 0001:0024542C 993 0001:00245468 994 0001:00245475 995 0001:00245488 + 997 0001:00245491 998 0001:00245498 1000 0001:0024549D 1003 0001:002454A4 + 1004 0001:002454B5 1005 0001:002454CA 1007 0001:002454CE 1008 0001:002454E3 + 1009 0001:002454FB 1010 0001:0024550E 1014 0001:00245527 1015 0001:00245535 + 1016 0001:00245546 1017 0001:00245559 1019 0001:0024556A 1020 0001:00245577 + 1021 0001:00245584 1022 0001:00245591 1023 0001:0024559E 1025 0001:002455AB + 1026 0001:002455B2 1027 0001:002455E5 1036 0001:002455EC 1037 0001:00245604 + 1038 0001:00245615 1039 0001:00245629 1040 0001:00245636 1041 0001:0024563D + 1042 0001:00245651 1044 0001:0024565E 1045 0001:00245693 1047 0001:0024569C + 1048 0001:002456A9 1049 0001:002456B9 1050 0001:002456C6 1051 0001:002456D6 + 1055 0001:002456E5 1056 0001:002456F2 1057 0001:00245702 1058 0001:0024570F + 1059 0001:0024571F 1062 0001:0024572C 1063 0001:00245733 1064 0001:00245762 + 1071 0001:002457E4 1072 0001:002457EB 1073 0001:002457F2 1074 0001:002457F9 + 1075 0001:0024580A 1076 0001:0024580D 1082 0001:00245810 1083 0001:00245817 + 1099 0001:00245818 1100 0001:0024582B 1102 0001:00245AA0 1102 0001:00245AA7 + +Line numbers for fAllgyBox(fAllgyBox.pas) segment .text + + 50 0001:00245D00 51 0001:00245D39 52 0001:00245D50 55 0001:00245D5E + 56 0001:00245D63 57 0001:00245D81 59 0001:00245D99 60 0001:00245DB4 + 61 0001:00245DCF 62 0001:00245DDE 63 0001:00245E0E 64 0001:00245E11 + 56 0001:00245E12 65 0001:00245E19 66 0001:00245E20 68 0001:00245E32 + 69 0001:00245E56 70 0001:00245E5E 66 0001:00245E5F 71 0001:00245E62 + 72 0001:00245E6C 73 0001:00245E94 74 0001:00245EA2 75 0001:00245EC6 + 76 0001:00245EE6 77 0001:00245EF1 78 0001:00245EFB 79 0001:00245F06 + 80 0001:00245F0E 81 0001:00245F19 82 0001:00245F21 83 0001:00245F3B + 84 0001:00245F46 83 0001:00245F68 85 0001:00245F6B 86 0001:00245F82 + 87 0001:00245FB0 88 0001:00245FBB 89 0001:00245FCE 90 0001:00245FDF + 91 0001:00245FEF 92 0001:00246007 95 0001:0024602E 96 0001:00246038 + 98 0001:0024609C 101 0001:002460A4 102 0001:002460CE 103 0001:002460DF + 106 0001:002460ED 107 0001:002460FB 108 0001:00246124 111 0001:0024613E + 113 0001:00246175 118 0001:00246180 120 0001:00246183 121 0001:0024618C + 122 0001:00246197 123 0001:0024619B 126 0001:002461A4 127 0001:002461B0 + 129 0001:002461B7 134 0001:002461BC 136 0001:002461BF 137 0001:002461C8 + 138 0001:002461D7 139 0001:002461E2 140 0001:002461EB 145 0001:002461F0 + 147 0001:002461F3 148 0001:002461FC 149 0001:00246207 151 0001:0024620B + 152 0001:00246217 154 0001:00246220 155 0001:00246229 158 0001:0024622C + 159 0001:0024622F 160 0001:0024623D 161 0001:0024625B 163 0001:00246290 + 163 0001:00246297 + +Line numbers for fProbCmt(fProbCmt.pas) segment .text + + 40 0001:00246494 41 0001:0024649A 42 0001:002464B3 43 0001:002464C1 + 46 0001:002464CB 47 0001:002464D8 50 0001:002464F8 52 0001:0024650A + 55 0001:00246510 56 0001:00246537 57 0001:00246550 60 0001:0024655E + 61 0001:00246584 62 0001:00246591 65 0001:002465B1 67 0001:002465E5 + 71 0001:002465EC 72 0001:002465EF 73 0001:002465FF 76 0001:00246618 + 77 0001:00246632 79 0001:0024664A 81 0001:00246669 82 0001:0024667C + 83 0001:00246687 87 0001:00246691 88 0001:002466D8 93 0001:002466E4 + 94 0001:002466EF 96 0001:00246729 98 0001:002467E0 98 0001:002467E7 + +Line numbers for fProbEdt(fProbEdt.pas) segment .text + + 141 0001:00246D94 142 0001:00246D9C 145 0001:00246DA0 146 0001:00246DB8 + 148 0001:00246DC3 149 0001:00246DED 153 0001:00246DF6 156 0001:00246E17 + 157 0001:00246E1E 161 0001:00246E20 162 0001:00246E4A 163 0001:00246E51 + 166 0001:00246E7A 171 0001:00246EB8 172 0001:00246ED2 173 0001:00246EDA + 175 0001:00246EF9 176 0001:00246F23 178 0001:00246F4C 183 0001:00246F54 + 184 0001:00246F6F 185 0001:00246F85 186 0001:00246FB3 188 0001:00246FD2 + 189 0001:0024700C 191 0001:00247035 198 0001:00247060 199 0001:00247083 + 200 0001:00247091 203 0001:002470D9 204 0001:002470FC 206 0001:0024710D + 207 0001:0024711F 208 0001:00247133 204 0001:00247134 209 0001:00247137 + 210 0001:00247145 211 0001:00247150 212 0001:00247161 211 0001:00247176 + 216 0001:0024717B 217 0001:00247189 219 0001:00247194 220 0001:002471A8 + 221 0001:002471BC 222 0001:002471D0 223 0001:002471E4 224 0001:002471F3 + 225 0001:00247201 226 0001:0024720B 227 0001:00247220 228 0001:00247224 + 231 0001:00247239 232 0001:0024725D 235 0001:0024726D 236 0001:0024727A + 237 0001:00247287 238 0001:00247294 239 0001:002472A1 240 0001:002472AE + 241 0001:002472BB 242 0001:002472C8 243 0001:002472D5 244 0001:002472E2 + 245 0001:002472EF 246 0001:002472FC 247 0001:00247309 248 0001:00247316 + 249 0001:00247323 251 0001:0024733C 252 0001:00247358 253 0001:00247374 + 255 0001:002473CD 259 0001:002473F1 261 0001:002473FA 263 0001:0024741E + 266 0001:0024744C 267 0001:0024745C 269 0001:00247468 270 0001:0024748C + 271 0001:00247493 273 0001:0024749D 274 0001:002474B4 275 0001:002474C9 + 276 0001:0024750F 278 0001:0024755D 279 0001:0024757A 281 0001:00247598 + 282 0001:002475A8 284 0001:002475B5 285 0001:002475D3 286 0001:002475E2 + 287 0001:00247600 289 0001:00247612 290 0001:00247622 291 0001:00247637 + 292 0001:0024764C 293 0001:00247669 294 0001:00247686 295 0001:002476A3 + 296 0001:002476B0 299 0001:002476D3 301 0001:002476FB 302 0001:00247729 + 306 0001:00247747 307 0001:0024775C 309 0001:0024778D 310 0001:002477A2 + 311 0001:002477B7 312 0001:002477CC 313 0001:002477E1 314 0001:002477F6 + 315 0001:00247827 316 0001:00247858 317 0001:00247889 318 0001:002478BA + 320 0001:002478EB 321 0001:00247903 322 0001:00247937 324 0001:00247956 + 326 0001:00247982 328 0001:0024798F 329 0001:0024799C 330 0001:002479A9 + 331 0001:002479B9 335 0001:002479CB 336 0001:002479D8 337 0001:002479E5 + 338 0001:002479F5 339 0001:00247A12 344 0001:00247A2F 346 0001:00247A75 + 347 0001:00247A82 348 0001:00247A8F 349 0001:00247A9F 350 0001:00247AB7 + 352 0001:00247AD4 354 0001:00247B16 355 0001:00247B23 356 0001:00247B30 + 357 0001:00247B40 358 0001:00247B58 362 0001:00247B72 364 0001:00247B7F + 365 0001:00247B8C 366 0001:00247B99 367 0001:00247BA9 371 0001:00247BB8 + 372 0001:00247BC5 373 0001:00247BD2 374 0001:00247BE2 378 0001:00247BEF + 380 0001:00247C11 381 0001:00247C3D 383 0001:00247C4A 384 0001:00247C57 + 385 0001:00247C64 386 0001:00247C71 390 0001:00247C8E 391 0001:00247C9B + 392 0001:00247CA8 393 0001:00247CB5 397 0001:00247CC5 399 0001:00247CCE + 400 0001:00247CE8 402 0001:00247CFA 404 0001:00247D0C 416 0001:00247D3F + 418 0001:00247D65 420 0001:00247DC8 425 0001:00247F04 427 0001:00247F1E + 428 0001:00247F33 426 0001:00247F8B 429 0001:00247FB0 435 0001:00247FC4 + 436 0001:00247FD5 437 0001:00247FE4 439 0001:00247FF2 442 0001:00247FFC + 443 0001:0024800B 444 0001:0024801A 445 0001:00248027 446 0001:00248034 + 447 0001:00248043 448 0001:00248052 449 0001:00248061 450 0001:00248070 + 452 0001:00248091 454 0001:002480A1 456 0001:002480B1 470 0001:002480B8 + 471 0001:002480E1 472 0001:002480EF 474 0001:0024810C 475 0001:0024811F + 477 0001:00248124 478 0001:0024813A 480 0001:0024814F 481 0001:00248162 + 483 0001:00248167 484 0001:00248176 485 0001:00248185 486 0001:00248193 + 488 0001:002481A3 489 0001:002481B5 491 0001:002481C3 492 0001:002481CF + 493 0001:002481DF 494 0001:002481ED 495 0001:002481F0 496 0001:002481FC + 497 0001:0024820C 498 0001:0024821A 499 0001:0024821D 500 0001:00248229 + 501 0001:00248241 502 0001:00248259 503 0001:00248271 504 0001:00248285 + 506 0001:002482B3 507 0001:002482CB 508 0001:002482E2 509 0001:00248308 + 510 0001:0024832E 511 0001:00248354 512 0001:0024837A 513 0001:002483A0 + 515 0001:002483AE 516 0001:002483C0 519 0001:002483CF 520 0001:002483FD + 522 0001:0024840B 523 0001:00248418 526 0001:00248427 527 0001:00248455 + 529 0001:00248463 530 0001:00248470 533 0001:0024847F 534 0001:002484AD + 535 0001:002484BF 536 0001:002484CC 539 0001:00248518 540 0001:00248520 + 542 0001:0024853A 545 0001:00248576 549 0001:002485D0 550 0001:002485D8 + 551 0001:002485E3 552 0001:00248600 553 0001:0024861F 556 0001:0024864F + 558 0001:00248659 559 0001:00248667 560 0001:00248672 561 0001:0024868A + 563 0001:002486AA 564 0001:002486B2 565 0001:002486C5 569 0001:002486CC + 571 0001:002486E0 573 0001:002486FD 574 0001:00248713 577 0001:00248736 + 568 0001:00248737 578 0001:0024873C 581 0001:00248745 584 0001:00248765 + 586 0001:002487C1 591 0001:002489A0 592 0001:002489C0 593 0001:002489DA + 595 0001:00248A01 596 0001:00248A22 599 0001:00248A40 600 0001:00248A89 + 602 0001:00248AD2 592 0001:00248AD3 603 0001:00248AFC 608 0001:00248B14 + 610 0001:00248B32 611 0001:00248B37 613 0001:00248B47 614 0001:00248B49 + 618 0001:00248B66 619 0001:00248BB8 621 0001:00248BEF 614 0001:00248BF0 + 622 0001:00248C1B 625 0001:00248C34 626 0001:00248C38 627 0001:00248C5E + 628 0001:00248C83 629 0001:00248C8A 632 0001:00248CA0 633 0001:00248CA3 + 634 0001:00248CA8 636 0001:00248CC4 637 0001:00248CDE 640 0001:00248CE0 + 641 0001:00248CF6 643 0001:00248D05 644 0001:00248D27 648 0001:00248D36 + 649 0001:00248D43 651 0001:00248D50 652 0001:00248D74 655 0001:00248D78 + 656 0001:00248D7B 657 0001:00248D95 660 0001:00248D98 661 0001:00248D9B + 662 0001:00248DB5 665 0001:00248DB8 666 0001:00248DBB 667 0001:00248DC0 + 669 0001:00248DDC 670 0001:00248DF6 681 0001:00248DF8 682 0001:00248E12 + 684 0001:00248E15 690 0001:00248E17 692 0001:00248E18 693 0001:00248E4F + 694 0001:00248E5E 695 0001:00248E77 697 0001:00248EE5 699 0001:00248F25 + 700 0001:00248F7B 701 0001:00248FC0 702 0001:00248FFE 703 0001:00249048 + 704 0001:00249085 705 0001:002490F1 706 0001:00249156 707 0001:002491DE + 708 0001:00249266 709 0001:002492EE 710 0001:00249345 711 0001:00249394 + 712 0001:002493E3 713 0001:00249433 714 0001:0024948F 715 0001:002494EB + 716 0001:00249547 717 0001:002495A3 718 0001:00249617 727 0001:00249790 + 728 0001:002497B4 732 0001:0024980B 733 0001:002498CC 734 0001:002498EE + 735 0001:002498F2 737 0001:00249906 738 0001:0024991F 740 0001:0024992E + 741 0001:00249938 744 0001:0024993D 746 0001:00249951 747 0001:0024996A + 749 0001:00249979 750 0001:00249983 753 0001:00249988 755 0001:0024999C + 756 0001:002499B5 758 0001:002499C4 759 0001:002499CE 761 0001:002499D3 + 763 0001:002499FA 764 0001:00249A0D 767 0001:00249A12 769 0001:00249A31 + 771 0001:00249A5F 772 0001:00249A92 774 0001:00249AA1 775 0001:00249AC3 + 778 0001:00249AC5 767 0001:00249AC6 779 0001:00249ACF 780 0001:00249B0D + 784 0001:00249BB8 785 0001:00249BBF 788 0001:00249BC0 789 0001:00249BCB + 790 0001:00249BD7 791 0001:00249BE0 792 0001:00249BEB 793 0001:00249BFE + 795 0001:00249C17 796 0001:00249C3C 797 0001:00249C53 804 0001:00249C58 + 805 0001:00249C75 806 0001:00249C8E 808 0001:00249C98 809 0001:00249CA7 + 810 0001:00249CB5 811 0001:00249CD2 813 0001:00249CDE 814 0001:00249CF7 + 815 0001:00249CF9 814 0001:00249D0D 816 0001:00249D12 817 0001:00249D25 + 816 0001:00249D47 820 0001:00249D59 823 0001:00249D93 829 0001:00249D9C + 830 0001:00249DB6 831 0001:00249DCF 832 0001:00249DDE 833 0001:00249DEC + 834 0001:00249E00 836 0001:00249E2D 838 0001:00249E5F 841 0001:00249E70 + 842 0001:00249E75 843 0001:00249E7C 845 0001:00249E8D 847 0001:00249E95 + 848 0001:00249EAF 855 0001:00249EB4 856 0001:00249EC9 857 0001:00249EDB + 858 0001:00249EE6 859 0001:00249EED 860 0001:00249EF4 861 0001:00249F12 + 864 0001:00249F18 865 0001:00249F1F 869 0001:00249F28 870 0001:00249F3C + 872 0001:00249F53 873 0001:00249F65 874 0001:00249F6C 875 0001:00249F71 + 877 0001:00249F76 880 0001:00249F7C 881 0001:00249F7F 883 0001:00249F86 + 884 0001:00249F8F 885 0001:00249F98 886 0001:00249FA5 887 0001:00249FAE + 888 0001:00249FB5 892 0001:00249FBC 893 0001:00249FC3 894 0001:00249FC8 + 898 0001:00249FCC 899 0001:00249FD1 907 0001:00249FD4 908 0001:00249FD9 + 910 0001:00249FEA 911 0001:0024A002 912 0001:0024A018 908 0001:0024A019 + 913 0001:0024A01C 914 0001:0024A026 919 0001:0024A02C 925 0001:0024A030 + 926 0001:0024A032 930 0001:0024A034 931 0001:0024A038 932 0001:0024A041 + 933 0001:0024A066 941 0001:0024A06C 942 0001:0024A08D 944 0001:0024A09A + 945 0001:0024A0B1 946 0001:0024A0BF 948 0001:0024A0D7 953 0001:0024A0E7 + 954 0001:0024A109 955 0001:0024A117 961 0001:0024A141 962 0001:0024A14F + 963 0001:0024A15F 972 0001:0024A1B7 973 0001:0024A207 974 0001:0024A257 + 977 0001:0024A28C 980 0001:0024A296 981 0001:0024A2AF 983 0001:0024A305 + 985 0001:0024A360 989 0001:0024A47C 990 0001:0024A485 991 0001:0024A49C + 995 0001:0024A4A4 996 0001:0024A4AD 997 0001:0024A4C4 1001 0001:0024A4CC + 1002 0001:0024A4D5 1003 0001:0024A4EE 1005 0001:0024A524 1005 0001:0024A52B + +Line numbers for fProbs(fProbs.pas) segment .text + + 223 0001:0024AFFC 224 0001:0024B008 229 0001:0024B016 230 0001:0024B023 + 232 0001:0024B042 233 0001:0024B04F 236 0001:0024B055 238 0001:0024B066 + 239 0001:0024B070 240 0001:0024B07C 244 0001:0024B08B 245 0001:0024B098 + 250 0001:0024B0A9 253 0001:0024B0F8 254 0001:0024B114 255 0001:0024B11C + 256 0001:0024B124 257 0001:0024B134 258 0001:0024B156 259 0001:0024B17D + 262 0001:0024B184 263 0001:0024B18B 264 0001:0024B193 265 0001:0024B1A8 + 266 0001:0024B1BC 267 0001:0024B1D0 268 0001:0024B1E4 270 0001:0024B1F0 + 271 0001:0024B1FA 273 0001:0024B204 274 0001:0024B212 277 0001:0024B21B + 278 0001:0024B223 279 0001:0024B231 280 0001:0024B23F 282 0001:0024B247 + 285 0001:0024B24C 287 0001:0024B258 288 0001:0024B267 294 0001:0024B26C + 295 0001:0024B278 296 0001:0024B287 297 0001:0024B295 299 0001:0024B2AD + 301 0001:0024B2BD 312 0001:0024B2C4 313 0001:0024B2E8 315 0001:0024B2F2 + 316 0001:0024B305 318 0001:0024B30A 319 0001:0024B313 321 0001:0024B31D + 324 0001:0024B3B7 326 0001:0024B3CD 327 0001:0024B3E0 329 0001:0024B3E5 + 330 0001:0024B3F2 331 0001:0024B3FC 332 0001:0024B40B 333 0001:0024B423 + 334 0001:0024B43F 335 0001:0024B44D 337 0001:0024B460 338 0001:0024B46E + 339 0001:0024B47C 340 0001:0024B48A 341 0001:0024B49A 343 0001:0024B4AB + 344 0001:0024B4BB 345 0001:0024B4CB 346 0001:0024B4DB 347 0001:0024B4EB + 348 0001:0024B4FC 349 0001:0024B507 350 0001:0024B517 351 0001:0024B527 + 352 0001:0024B537 353 0001:0024B547 354 0001:0024B557 355 0001:0024B567 + 356 0001:0024B575 357 0001:0024B5AA 358 0001:0024B5BA 359 0001:0024B5C8 + 360 0001:0024B5E2 361 0001:0024B620 365 0001:0024B630 366 0001:0024B640 + 367 0001:0024B650 368 0001:0024B660 369 0001:0024B670 370 0001:0024B67E + 371 0001:0024B68E 372 0001:0024B69E 373 0001:0024B6AE 374 0001:0024B6BE + 375 0001:0024B6CE 376 0001:0024B6DC 377 0001:0024B6EC 382 0001:0024B70E + 383 0001:0024B73A 387 0001:0024B74F 388 0001:0024B757 392 0001:0024B778 + 397 0001:0024B788 400 0001:0024B79E 401 0001:0024B7B1 403 0001:0024B7B6 + 404 0001:0024B802 408 0001:0024B81A 409 0001:0024B827 410 0001:0024B83F + 411 0001:0024B85B 414 0001:0024B860 416 0001:0024B879 417 0001:0024B88D + 418 0001:0024B8B1 420 0001:0024B8C4 423 0001:0024B937 425 0001:0024B93A + 426 0001:0024B954 428 0001:0024B95C 430 0001:0024B972 431 0001:0024B981 + 432 0001:0024B990 434 0001:0024B998 438 0001:0024B9A5 439 0001:0024B9B6 + 442 0001:0024B9CC 443 0001:0024B9DF 445 0001:0024B9E4 446 0001:0024BA3C + 450 0001:0024BA54 451 0001:0024BA61 452 0001:0024BA79 453 0001:0024BA9B + 456 0001:0024BAA0 458 0001:0024BAB9 459 0001:0024BACD 460 0001:0024BAFB + 462 0001:0024BB8F 463 0001:0024BBBD 466 0001:0024BC44 468 0001:0024BC55 + 470 0001:0024BC58 471 0001:0024BC72 472 0001:0024BC7A 473 0001:0024BC8A + 477 0001:0024BC9F 479 0001:0024BCAB 480 0001:0024BCBA 482 0001:0024BCD2 + 483 0001:0024BD1B 488 0001:0024BDC0 491 0001:0024BDD6 492 0001:0024BDE9 + 494 0001:0024BDEE 495 0001:0024BE03 498 0001:0024BE1B 499 0001:0024BE28 + 500 0001:0024BE40 501 0001:0024BE62 506 0001:0024BE71 507 0001:0024BE82 + 510 0001:0024BE98 511 0001:0024BEAB 513 0001:0024BEB0 514 0001:0024BEC5 + 517 0001:0024BEDD 518 0001:0024BEEA 519 0001:0024BF02 520 0001:0024BF24 + 525 0001:0024BF33 526 0001:0024BF44 529 0001:0024BF5A 530 0001:0024BF6D + 532 0001:0024BF72 533 0001:0024BF87 536 0001:0024BF9F 537 0001:0024BFAC + 538 0001:0024BFC4 539 0001:0024BFE6 544 0001:0024BFF3 546 0001:0024C009 + 547 0001:0024C01C 549 0001:0024C021 550 0001:0024C036 553 0001:0024C04E + 554 0001:0024C05B 555 0001:0024C073 556 0001:0024C095 557 0001:0024C0A4 + 558 0001:0024C0DB 559 0001:0024C101 561 0001:0024C10D 562 0001:0024C134 + 563 0001:0024C13C 565 0001:0024C141 566 0001:0024C153 567 0001:0024C161 + 568 0001:0024C16F 570 0001:0024C185 571 0001:0024C198 573 0001:0024C1A2 + 575 0001:0024C1AB 576 0001:0024C1BF 578 0001:0024C1C9 579 0001:0024C1D1 + 581 0001:0024C21D 582 0001:0024C241 583 0001:0024C249 584 0001:0024C263 + 585 0001:0024C295 588 0001:0024C2BB 589 0001:0024C2C3 595 0001:0024C2D3 + 596 0001:0024C2E2 597 0001:0024C2F0 598 0001:0024C304 599 0001:0024C313 + 600 0001:0024C32C 602 0001:0024C341 607 0001:0024C351 608 0001:0024C360 + 609 0001:0024C36E 610 0001:0024C382 611 0001:0024C391 612 0001:0024C3AA + 614 0001:0024C3BF 619 0001:0024C3CF 620 0001:0024C3DE 621 0001:0024C3EC + 622 0001:0024C400 623 0001:0024C40F 624 0001:0024C428 626 0001:0024C43D + 631 0001:0024C44D 632 0001:0024C45C 633 0001:0024C46A 634 0001:0024C47E + 635 0001:0024C48D 636 0001:0024C4A6 638 0001:0024C4BB 643 0001:0024C4CB + 644 0001:0024C4DF 645 0001:0024C51E 646 0001:0024C53F 647 0001:0024C549 + 648 0001:0024C559 649 0001:0024C569 651 0001:0024C5AC 652 0001:0024C5BB + 653 0001:0024C5C9 654 0001:0024C5F4 656 0001:0024C61A 659 0001:0024C62A + 661 0001:0024C668 663 0001:0024C684 664 0001:0024C697 665 0001:0024C6D7 + 667 0001:0024C703 668 0001:0024C70B 669 0001:0024C72B 668 0001:0024C767 + 671 0001:0024C76C 672 0001:0024C77A 673 0001:0024C7AB 674 0001:0024C7B9 + 678 0001:0024C7CB 679 0001:0024C7D9 680 0001:0024C7EC 681 0001:0024C7FA + 683 0001:0024C80A 661 0001:0024C80D 684 0001:0024C816 685 0001:0024C81E + 687 0001:0024C849 690 0001:0024C8A8 693 0001:0024CEFC 694 0001:0024CF08 + 695 0001:0024CF1E 696 0001:0024CF36 697 0001:0024CF3E 698 0001:0024CF4C + 703 0001:0024CF5C 709 0001:0024CF68 714 0001:0024CF6C 715 0001:0024CF8D + 716 0001:0024CFA7 717 0001:0024CFC5 718 0001:0024CFFC 721 0001:0024D05D + 722 0001:0024D099 725 0001:0024D0D8 726 0001:0024D0E4 727 0001:0024D0F5 + 730 0001:0024D0FC 731 0001:0024D108 732 0001:0024D11E 733 0001:0024D136 + 734 0001:0024D13E 735 0001:0024D14C 738 0001:0024D15C 739 0001:0024D16B + 740 0001:0024D17E 745 0001:0024D184 746 0001:0024D190 747 0001:0024D19D + 748 0001:0024D1B4 749 0001:0024D1C2 751 0001:0024D1DA 753 0001:0024D1EA + 756 0001:0024D1F0 757 0001:0024D1FC 758 0001:0024D20A 759 0001:0024D212 + 760 0001:0024D222 761 0001:0024D232 762 0001:0024D242 763 0001:0024D250 + 764 0001:0024D26B 765 0001:0024D281 766 0001:0024D299 767 0001:0024D2AF + 768 0001:0024D2C4 769 0001:0024D2DA 770 0001:0024D2EF 771 0001:0024D305 + 774 0001:0024D31A 775 0001:0024D32E 777 0001:0024D341 778 0001:0024D351 + 785 0001:0024D400 790 0001:0024D422 792 0001:0024D430 793 0001:0024D449 + 796 0001:0024D485 797 0001:0024D49C 798 0001:0024D4C3 799 0001:0024D4E5 + 800 0001:0024D516 802 0001:0024D586 798 0001:0024D59F 804 0001:0024D5A8 + 807 0001:0024D5D0 809 0001:0024D5F8 810 0001:0024D611 811 0001:0024D628 + 812 0001:0024D64F 813 0001:0024D671 816 0001:0024D6C9 818 0001:0024D733 + 819 0001:0024D74B 820 0001:0024D77E 821 0001:0024D794 812 0001:0024D797 + 826 0001:0024D7A5 827 0001:0024D7BE 828 0001:0024D7D5 829 0001:0024D7FC + 830 0001:0024D81E 833 0001:0024D876 835 0001:0024D8E0 836 0001:0024D8F8 + 837 0001:0024D931 838 0001:0024D947 829 0001:0024D94A 840 0001:0024D978 + 845 0001:0024D9B0 846 0001:0024D9D1 847 0001:0024DA1B 849 0001:0024DA34 + 851 0001:0024DA39 852 0001:0024DA77 854 0001:0024DA8A 856 0001:0024DA8F + 857 0001:0024DAAD 858 0001:0024DAC2 859 0001:0024DAD7 860 0001:0024DAEC + 862 0001:0024DAFF 863 0001:0024DB5C 864 0001:0024DBC2 868 0001:0024DC6C + 869 0001:0024DC78 870 0001:0024DC82 871 0001:0024DC93 878 0001:0024DC98 + 879 0001:0024DCC2 880 0001:0024DCCC 882 0001:0024DCD9 883 0001:0024DD12 + 885 0001:0024DD23 881 0001:0024DD49 887 0001:0024DD4F 888 0001:0024DD54 + 889 0001:0024DD59 890 0001:0024DD5E 892 0001:0024DD70 894 0001:0024DD81 + 896 0001:0024DD8E 897 0001:0024DDAF 898 0001:0024DDE2 902 0001:0024DE04 + 903 0001:0024DE22 907 0001:0024DE42 911 0001:0024DE4A 912 0001:0024DE68 + 913 0001:0024DE86 889 0001:0024DE89 914 0001:0024DE93 915 0001:0024DEB1 + 917 0001:0024DF06 920 0001:0024DF1C 921 0001:0024DF3E 922 0001:0024DF48 + 923 0001:0024DF6C 924 0001:0024DF7B 925 0001:0024DF9F 927 0001:0024DFAC + 928 0001:0024DFB4 929 0001:0024DFBC 931 0001:0024DFE6 934 0001:0024E014 + 935 0001:0024E020 936 0001:0024E02B 937 0001:0024E040 938 0001:0024E055 + 939 0001:0024E06A 940 0001:0024E077 941 0001:0024E08C 942 0001:0024E0A8 + 947 0001:0024E0AC 948 0001:0024E0D0 950 0001:0024E0EC 951 0001:0024E103 + 952 0001:0024E11B 953 0001:0024E137 955 0001:0024E145 956 0001:0024E16C + 957 0001:0024E188 958 0001:0024E1B8 956 0001:0024E1FF 959 0001:0024E204 + 960 0001:0024E22B 961 0001:0024E247 962 0001:0024E277 960 0001:0024E2BE + 964 0001:0024E2C3 965 0001:0024E2E8 966 0001:0024E2F5 967 0001:0024E308 + 968 0001:0024E335 971 0001:0024E3BC 972 0001:0024E3C8 973 0001:0024E3E1 + 974 0001:0024E3F8 979 0001:0024E3FC 980 0001:0024E406 981 0001:0024E42A + 983 0001:0024E439 984 0001:0024E449 985 0001:0024E456 980 0001:0024E459 + 986 0001:0024E45E 987 0001:0024E46F 988 0001:0024E47D 989 0001:0024E48B + 1003 0001:0024E490 1004 0001:0024E49A 1005 0001:0024E49F 1006 0001:0024E4AB + 1008 0001:0024E4B3 1009 0001:0024E4C1 1010 0001:0024E4C4 1006 0001:0024E4C7 + 1012 0001:0024E4CF 1014 0001:0024E4D4 1015 0001:0024E500 1016 0001:0024E50F + 1017 0001:0024E519 1018 0001:0024E52D 1019 0001:0024E53B 1020 0001:0024E543 + 1021 0001:0024E548 1023 0001:0024E552 1024 0001:0024E565 1025 0001:0024E56D + 1029 0001:0024E57C 1030 0001:0024E582 1031 0001:0024E58C 1033 0001:0024E5B3 + 1034 0001:0024E5B9 1036 0001:0024E5C8 1037 0001:0024E5D5 1038 0001:0024E5EA + 1039 0001:0024E5F9 1040 0001:0024E60C 1041 0001:0024E61F 1042 0001:0024E62C + 1044 0001:0024E636 1046 0001:0024E65F 1047 0001:0024E672 1048 0001:0024E685 + 1049 0001:0024E68D 1050 0001:0024E695 1051 0001:0024E69D 1053 0001:0024E6A7 + 1055 0001:0024E6C3 1056 0001:0024E6D3 1057 0001:0024E6E6 1058 0001:0024E6EE + 1059 0001:0024E6F6 1060 0001:0024E704 1062 0001:0024E757 1063 0001:0024E764 + 1065 0001:0024E78B 1067 0001:0024E7BA 1069 0001:0024E7C9 1070 0001:0024E7D6 + 1071 0001:0024E814 1072 0001:0024E81C 1073 0001:0024E858 1075 0001:0024E87A + 1076 0001:0024E89F 1077 0001:0024E8D3 1080 0001:0024E8EC 1081 0001:0024E912 + 1083 0001:0024E92C 1084 0001:0024E944 1083 0001:0024E972 1085 0001:0024E977 + 1087 0001:0024E9B5 1088 0001:0024E9EC 1089 0001:0024EA29 1090 0001:0024EA7F + 1091 0001:0024EAD5 1093 0001:0024EB2B 1094 0001:0024EB57 1095 0001:0024EB83 + 1096 0001:0024EBC8 1097 0001:0024EBF4 1098 0001:0024EC39 1099 0001:0024EC7E + 1100 0001:0024ECAA 1101 0001:0024ECD6 1102 0001:0024ED02 1103 0001:0024ED16 + 1053 0001:0024ED19 1104 0001:0024ED22 1105 0001:0024ED2A 1106 0001:0024ED30 + 1108 0001:0024ED3A 1109 0001:0024ED42 1110 0001:0024ED4A 1111 0001:0024ED52 + 1112 0001:0024ED66 1114 0001:0024ED85 1115 0001:0024EDA9 1116 0001:0024EDEB + 1114 0001:0024EE02 1117 0001:0024EE07 1120 0001:0024EE14 1121 0001:0024EE28 + 1122 0001:0024EE54 1124 0001:0024EE5E 1125 0001:0024EE66 1126 0001:0024EE71 + 1130 0001:0024EEC0 1131 0001:0024EF16 1134 0001:0024EF2D 1136 0001:0024EF6F + 1139 0001:0024F1B8 1140 0001:0024F1C4 1141 0001:0024F1D5 1142 0001:0024F1DD + 1143 0001:0024F203 1145 0001:0024F20F 1146 0001:0024F227 1147 0001:0024F237 + 1148 0001:0024F247 1150 0001:0024F249 1151 0001:0024F25F 1152 0001:0024F272 + 1153 0001:0024F280 1158 0001:0024F2A8 1159 0001:0024F2C7 1160 0001:0024F2D4 + 1161 0001:0024F2E9 1162 0001:0024F2F1 1163 0001:0024F309 1166 0001:0024F31B + 1167 0001:0024F34E 1173 0001:0024F354 1174 0001:0024F35D 1175 0001:0024F36F + 1176 0001:0024F37E 1177 0001:0024F38C 1178 0001:0024F3A0 1179 0001:0024F3AA + 1180 0001:0024F3CB 1181 0001:0024F3D3 1182 0001:0024F3EB 1183 0001:0024F3F3 + 1184 0001:0024F40C 1185 0001:0024F420 1186 0001:0024F428 1187 0001:0024F439 + 1189 0001:0024F444 1191 0001:0024F455 1192 0001:0024F465 1193 0001:0024F475 + 1194 0001:0024F485 1195 0001:0024F495 1196 0001:0024F4A5 1197 0001:0024F4C0 + 1198 0001:0024F4DC 1199 0001:0024F4EC 1201 0001:0024F4FC 1203 0001:0024F509 + 1204 0001:0024F519 1207 0001:0024F536 1208 0001:0024F53E 1210 0001:0024F54D + 1219 0001:0024F588 1220 0001:0024F5C4 1221 0001:0024F5C8 1222 0001:0024F5E1 + 1224 0001:0024F606 1226 0001:0024F63C 1229 0001:0024F662 1231 0001:0024F6B0 + 1233 0001:0024F6EE 1234 0001:0024F712 1236 0001:0024F71D 1237 0001:0024F72C + 1238 0001:0024F73A 1239 0001:0024F758 1238 0001:0024F7BE 1240 0001:0024F7C3 + 1242 0001:0024F80F 1244 0001:0024F81F 1246 0001:0024F829 1247 0001:0024F84E + 1248 0001:0024F854 1250 0001:0024F881 1252 0001:0024F8A5 1254 0001:0024F8D2 + 1255 0001:0024F8DD 1256 0001:0024F8EB 1257 0001:0024F8F8 1259 0001:0024F8FA + 1250 0001:0024F8FD 1260 0001:0024F902 1262 0001:0024F90F 1264 0001:0024F922 + 1266 0001:0024F93A 1269 0001:0024F993 1276 0001:0024FA14 1277 0001:0024FA32 + 1278 0001:0024FA3F 1282 0001:0024FA7F 1284 0001:0024FA89 1285 0001:0024FA99 + 1287 0001:0024FAA8 1289 0001:0024FABF 1290 0001:0024FAF4 1291 0001:0024FB04 + 1292 0001:0024FB14 1294 0001:0024FB26 1296 0001:0024FB3A 1297 0001:0024FB63 + 1298 0001:0024FB6D 1299 0001:0024FB7D 1302 0001:0024FB8D 1305 0001:0024FBA8 + 1306 0001:0024FBB8 1307 0001:0024FBC8 1310 0001:0024FBCD 1312 0001:0024FBDB + 1313 0001:0024FBFD 1314 0001:0024FC10 1315 0001:0024FC32 1316 0001:0024FC42 + 1317 0001:0024FC50 1318 0001:0024FC6A 1319 0001:0024FC86 1320 0001:0024FCA2 + 1321 0001:0024FCB5 1322 0001:0024FCC1 1323 0001:0024FCCD 1324 0001:0024FCDF + 1325 0001:0024FCE9 1328 0001:0024FD04 1331 0001:0024FD46 1337 0001:0024FED4 + 1338 0001:0024FEF7 1339 0001:0024FF28 1341 0001:0024FF40 1342 0001:0024FF4A + 1343 0001:0024FF5A 1344 0001:0024FF6A 1345 0001:0024FF97 1346 0001:0024FFA6 + 1347 0001:0024FFB5 1349 0001:0024FFC2 1350 0001:0024FFE4 1351 0001:0024FFF5 + 1352 0001:00250017 1353 0001:00250027 1354 0001:00250035 1355 0001:0025004F + 1356 0001:0025006B 1357 0001:00250087 1358 0001:0025009A 1359 0001:002500A6 + 1360 0001:002500B4 1361 0001:00250150 1362 0001:00250157 1363 0001:00250161 + 1367 0001:0025017C 1368 0001:002501A9 1369 0001:002501B8 1370 0001:002501C7 + 1372 0001:002501D4 1376 0001:00250239 1385 0001:00250360 1386 0001:00250394 + 1387 0001:002503A3 1388 0001:002503B1 1390 0001:002503C4 1391 0001:002503EA + 1392 0001:00250401 1393 0001:00250413 1394 0001:00250461 1395 0001:00250469 + 1397 0001:00250479 1399 0001:0025048A 1400 0001:0025049B 1401 0001:002504AC + 1404 0001:002504C9 1406 0001:002504E3 1407 0001:002504F6 1409 0001:00250500 + 1410 0001:00250511 1411 0001:00250522 1415 0001:0025053B 1416 0001:00250546 + 1417 0001:0025055E 1418 0001:0025057A 1421 0001:002505C9 1423 0001:002505CF + 1424 0001:002505E5 1427 0001:00250600 1428 0001:00250614 1431 0001:0025062A + 1433 0001:00250630 1434 0001:00250643 1435 0001:0025066C 1439 0001:0025068D + 1441 0001:002506A2 1443 0001:002506C0 1444 0001:002506D7 1447 0001:002506FB + 1439 0001:002506FE 1448 0001:00250704 1449 0001:0025070C 1450 0001:00250718 + 1452 0001:00250763 1466 0001:002508B8 1467 0001:002508DE 1468 0001:002508ED + 1469 0001:0025091E 1470 0001:00250944 1471 0001:00250956 1472 0001:00250964 + 1474 0001:0025097A 1476 0001:00250992 1477 0001:0025099F 1480 0001:002509AB + 1484 0001:002509B5 1485 0001:002509C7 1486 0001:002509E3 1489 0001:00250A13 + 1490 0001:00250A22 1494 0001:00250A37 1496 0001:00250A4C 1498 0001:00250A6A + 1499 0001:00250A81 1502 0001:00250AA5 1494 0001:00250AA8 1503 0001:00250AAE + 1504 0001:00250AB6 1506 0001:00250AEB 1509 0001:00250C24 1510 0001:00250C2B + 1511 0001:00250C3B 1512 0001:00250C4B 1513 0001:00250C5B 1514 0001:00250C6B + 1515 0001:00250C7B 1516 0001:00250C8B 1517 0001:00250C9B 1518 0001:00250CAB + 1519 0001:00250CBB 1520 0001:00250CCB 1521 0001:00250CDB 1522 0001:00250CEB + 1523 0001:00250CFB 1524 0001:00250D0B 1530 0001:00250D10 1531 0001:00250D31 + 1533 0001:00250D49 1534 0001:00250D59 1535 0001:00250D69 1536 0001:00250D79 + 1537 0001:00250D89 1538 0001:00250D99 1539 0001:00250DA9 1540 0001:00250DB9 + 1541 0001:00250DC9 1542 0001:00250DD9 1543 0001:00250DE9 1544 0001:00250DEE + 1545 0001:00250DF3 1547 0001:00250E18 1548 0001:00250E73 1549 0001:00250E76 + 1550 0001:00250ED1 1551 0001:00250ED4 1545 0001:00250ED7 1552 0001:00250EE0 + 1554 0001:00250F14 1556 0001:00250F48 1557 0001:00250F5D 1561 0001:00250F77 + 1562 0001:00250F87 1563 0001:00250F97 1564 0001:00250FAF 1565 0001:00250FC7 + 1566 0001:00250FD7 1567 0001:00250FE7 1568 0001:00250FFF 1569 0001:00251017 + 1570 0001:00251027 1571 0001:00251037 1574 0001:002510BB 1577 0001:0025113F + 1578 0001:002511A4 1582 0001:00251209 1584 0001:00251223 1585 0001:00251233 + 1586 0001:00251243 1587 0001:00251253 1588 0001:00251263 1589 0001:00251273 + 1590 0001:00251283 1591 0001:00251293 1592 0001:002512A3 1593 0001:002512B3 + 1595 0001:002512E5 1598 0001:00251310 1601 0001:0025131C 1602 0001:0025132A + 1603 0001:00251338 1604 0001:00251346 1607 0001:00251354 1608 0001:0025135C + 1611 0001:00251360 1613 0001:0025136C 1614 0001:0025138C 1615 0001:00251398 + 1616 0001:002513A4 1617 0001:002513B0 1620 0001:002513BA 1621 0001:002513C5 + 1622 0001:002513D0 1626 0001:002513D4 1627 0001:002513D8 1628 0001:002513DC + 1630 0001:002513FC 1631 0001:0025140B 1633 0001:00251417 1635 0001:00251437 + 1636 0001:00251447 1637 0001:0025145A 1639 0001:00251461 1642 0001:002514EC + 1643 0001:002514F8 1644 0001:00251500 1645 0001:0025150E 1646 0001:0025151C + 1648 0001:0025152A 1651 0001:00251530 1653 0001:00251552 1655 0001:0025155C + 1656 0001:0025156F 1658 0001:00251574 1662 0001:0025158C 1663 0001:002515A4 + 1665 0001:002515CF 1667 0001:0025161D 1670 0001:002516CC 1672 0001:002516D8 + 1674 0001:002516E2 1675 0001:002516F5 1677 0001:002516F7 1679 0001:00251701 + 1680 0001:0025170F 1682 0001:00251718 1684 0001:00251722 1685 0001:00251730 + 1687 0001:00251739 1688 0001:00251741 1689 0001:00251749 1695 0001:002517B0 + 1697 0001:002517D5 1699 0001:002517DF 1700 0001:002517F2 1702 0001:002517F7 + 1703 0001:00251814 1704 0001:0025184A 1705 0001:0025186F 1707 0001:0025187B + 1709 0001:00251897 1710 0001:002518AA 1711 0001:002518DE 1713 0001:002518F8 + 1714 0001:00251900 1715 0001:00251920 1714 0001:00251956 1717 0001:0025195B + 1718 0001:00251969 1719 0001:00251994 1723 0001:002519A4 1724 0001:002519B2 + 1725 0001:002519C5 1727 0001:002519D3 1707 0001:002519D6 1729 0001:002519DF + 1730 0001:00251A16 1733 0001:00251AA8 1734 0001:00251AC4 1735 0001:00251ACC + 1737 0001:00251AD6 1738 0001:00251AE9 1740 0001:00251AEB 1741 0001:00251AF5 + 1742 0001:00251B2C 1747 0001:00251BA8 1748 0001:00251BB4 1749 0001:00251BB9 + 1750 0001:00251BC2 1751 0001:00251BCD 1753 0001:00251BD9 1755 0001:00251BE7 + 1756 0001:00251C15 1757 0001:00251C43 1759 0001:00251C5B 1760 0001:00251C64 + 1762 0001:00251C79 1763 0001:00251C82 1764 0001:00251C93 1765 0001:00251C9E + 1770 0001:00251CA4 1771 0001:00251CC5 1772 0001:00251CD8 1773 0001:00251CE9 + 1774 0001:00251CF7 1775 0001:00251D19 1776 0001:00251D40 1777 0001:00251D5C + 1778 0001:00251D89 1780 0001:00251DC4 1781 0001:00251DEF 1774 0001:00251DF2 + 1782 0001:00251DFB 1783 0001:00251E09 1784 0001:00251E3E 1792 0001:00251E50 + 1794 0001:00251E76 1795 0001:00251E7E 1797 0001:00251EA1 1798 0001:00251EAF + 1799 0001:00251EEA 1800 0001:00251F0F 1801 0001:00251F30 1802 0001:00251F4E + 1803 0001:00251F5E 1805 0001:00251F6B 1806 0001:00251F98 1812 0001:00251FA0 + 1814 0001:00251FD2 1816 0001:00251FF5 1817 0001:00252014 1818 0001:00252038 + 1817 0001:00252085 1820 0001:002520AC 1825 0001:002520B8 1826 0001:002520E9 + 1827 0001:002520F1 1828 0001:002520FD 1829 0001:0025211F 1830 0001:00252136 + 1831 0001:00252159 1828 0001:002521A1 1832 0001:002521D4 1835 0001:002521F4 + 1836 0001:00252217 1837 0001:0025221D 1839 0001:00252227 1840 0001:00252273 + 1844 0001:00252278 1846 0001:00252287 1854 0001:00252295 1878 0001:0025229C + 1880 0001:002522A8 1882 0001:002522D1 1885 0001:00252310 1887 0001:0025232F + 1888 0001:00252340 1891 0001:00252344 1893 0001:00252350 1895 0001:0025237D + 1897 0001:00252397 1898 0001:002523A6 1900 0001:002523CA 1903 0001:002523EE + 1907 0001:0025242D 1908 0001:0025243C 1910 0001:0025245D 1913 0001:0025247C + 1914 0001:0025248D 1917 0001:00252494 1919 0001:002524A0 1921 0001:002524CD + 1923 0001:002524F7 1925 0001:0025250E 1927 0001:00252538 1929 0001:0025255B + 1930 0001:0025256C 1933 0001:00252570 1934 0001:0025257D 1936 0001:0025258F + 1938 0001:002525B8 1940 0001:002525E2 1942 0001:00252601 1943 0001:00252612 + 1946 0001:00252618 1948 0001:00252624 1949 0001:0025264C 1952 0001:00252650 + 1954 0001:0025265C 1955 0001:00252684 1956 0001:002526A4 1960 0001:002526A8 + 1962 0001:002526B7 1963 0001:002526C6 1966 0001:002526CC 1967 0001:002526D3 + 1968 0001:002526E1 1969 0001:002526EF 1970 0001:002526FF 1971 0001:0025270F + 1974 0001:00252714 1976 0001:00252720 1977 0001:0025272F 1980 0001:00252734 + 1982 0001:00252756 1983 0001:00252778 1984 0001:0025279A 1985 0001:002527BC + 1986 0001:00252803 1987 0001:0025284A 1988 0001:0025286C 1989 0001:0025288E + 1990 0001:002528B0 1991 0001:002528F4 1996 0001:00252904 1997 0001:00252910 + 1998 0001:00252922 1999 0001:0025292C 2000 0001:0025293D 2002 0001:00252949 + 2003 0001:0025297D 2004 0001:002529AA 2005 0001:002529C7 2006 0001:002529E4 + 2007 0001:00252A18 2008 0001:00252A4E 2009 0001:00252A84 2011 0001:00252AB8 + 2012 0001:00252AE1 2013 0001:00252AF2 2017 0001:00252AFC 2020 0001:00252B0B + 2021 0001:00252B16 2028 0001:00252B1C 2030 0001:00252B2B 2031 0001:00252B36 + 2033 0001:00252B4E 2034 0001:00252B53 2035 0001:00252B77 2034 0001:00252B87 + 2036 0001:00252B8C 2038 0001:00252B94 2039 0001:00252BB8 2038 0001:00252BE1 + 2040 0001:00252BE6 2043 0001:00252BF4 2048 0001:00252BFC 2049 0001:00252C05 + 2050 0001:00252C0A 2051 0001:00252C2E 2050 0001:00252C4E 2052 0001:00252C56 + 2056 0001:00252C5C 2058 0001:00252C6B 2059 0001:00252C73 2064 0001:00252C7C + 2065 0001:00252C85 2066 0001:00252C8A 2065 0001:00252CB1 2067 0001:00252CB7 + 2070 0001:00252CBC 2072 0001:00252CC8 2073 0001:00252CD3 2075 0001:00252D08 + 2075 0001:00252D0F + +Line numbers for fODConsult(Consults\fODConsult.pas) segment .text + + 156 0001:00253448 157 0001:00253454 158 0001:00253468 159 0001:00253472 + 160 0001:0025347D 162 0001:00253487 163 0001:00253497 167 0001:002534A9 + 168 0001:002534B9 170 0001:002534C9 171 0001:002534DA 172 0001:002534EB + 173 0001:002534FC 174 0001:00253506 175 0001:0025350D 176 0001:0025351A + 177 0001:00253524 178 0001:00253535 179 0001:00253542 180 0001:0025354C + 181 0001:0025355F 182 0001:00253569 183 0001:0025357A 184 0001:0025358E + 185 0001:0025359E 186 0001:002535AF 188 0001:002535BA 189 0001:002535C9 + 190 0001:002535D3 193 0001:002535DA 196 0001:0025364C 197 0001:00253655 + 198 0001:0025365D 199 0001:00253667 200 0001:00253674 201 0001:0025367E + 203 0001:0025368A 204 0001:0025369F 206 0001:002536AF 207 0001:002536C2 + 208 0001:002536D6 209 0001:002536EF 210 0001:00253702 211 0001:00253718 + 215 0001:00253730 216 0001:00253743 217 0001:00253757 218 0001:00253770 + 219 0001:00253783 220 0001:00253799 223 0001:002537AF 224 0001:002537B9 + 225 0001:002537CA 226 0001:002537DB 227 0001:002537EB 228 0001:00253801 + 229 0001:00253827 230 0001:00253837 231 0001:00253847 232 0001:00253858 + 233 0001:00253860 234 0001:0025386A 235 0001:00253871 247 0001:0025394C + 248 0001:00253978 249 0001:00253986 250 0001:0025398E 251 0001:0025399D + 252 0001:002539AB 254 0001:002539CB 255 0001:002539D5 256 0001:002539EA + 257 0001:002539F8 259 0001:00253A07 260 0001:00253A18 261 0001:00253A22 + 262 0001:00253A2A 264 0001:00253A34 265 0001:00253A71 266 0001:00253A82 + 267 0001:00253A97 268 0001:00253AAB 269 0001:00253ABD 271 0001:00253AD2 + 272 0001:00253AE5 273 0001:00253AFD 274 0001:00253B15 275 0001:00253B2D + 276 0001:00253B3D 277 0001:00253B53 278 0001:00253B63 279 0001:00253B73 + 281 0001:00253B8C 282 0001:00253B94 284 0001:00253B9E 285 0001:00253BA6 + 286 0001:00253BB7 287 0001:00253BCF 288 0001:00253BDA 289 0001:00253BE4 + 293 0001:00253BF4 294 0001:00253C17 295 0001:00253C2D 296 0001:00253C3B + 297 0001:00253C4A 298 0001:00253C65 300 0001:00253C71 301 0001:00253C8F + 300 0001:00253CDE 302 0001:00253CE3 303 0001:00253D01 304 0001:00253D0B + 305 0001:00253D29 306 0001:00253D33 308 0001:00253D4A 310 0001:00253D64 + 311 0001:00253D78 312 0001:00253D8B 314 0001:00253D9E 315 0001:00253DA8 + 316 0001:00253DC4 319 0001:00253E3A 315 0001:00253E62 320 0001:00253E6B + 321 0001:00253E7B 322 0001:00253E85 324 0001:00253E9B 326 0001:00253EE3 + 329 0001:00253F38 332 0001:00253F4B 333 0001:00253F5C 335 0001:00253F78 + 337 0001:00253F84 338 0001:00253F8C 340 0001:00253F93 342 0001:00253FD2 + 343 0001:00253FE3 346 0001:00254001 348 0001:00254043 353 0001:00254214 + 354 0001:0025421B 355 0001:00254242 356 0001:00254256 358 0001:00254268 + 359 0001:0025428C 360 0001:00254297 361 0001:002542C0 362 0001:002542E4 + 363 0001:0025431A 364 0001:00254332 367 0001:00254343 368 0001:00254398 + 370 0001:00254421 372 0001:0025442D 374 0001:0025445B 375 0001:0025446C + 377 0001:0025447A 379 0001:002544CB 383 0001:002546E0 385 0001:002546EF + 386 0001:0025470A 389 0001:00254710 391 0001:0025471C 393 0001:00254728 + 394 0001:0025473E 395 0001:00254754 396 0001:00254768 397 0001:00254781 + 399 0001:00254794 400 0001:0025479F 403 0001:002547F4 405 0001:00254800 + 407 0001:0025480C 408 0001:00254822 409 0001:00254838 410 0001:0025484C + 411 0001:00254865 413 0001:00254878 414 0001:00254883 421 0001:002548D8 + 424 0001:00254901 425 0001:00254922 427 0001:0025493A 428 0001:0025495B + 429 0001:00254969 430 0001:0025498A 431 0001:00254995 425 0001:00254998 + 433 0001:002549C7 439 0001:002549E8 441 0001:00254A13 442 0001:00254A23 + 444 0001:00254A69 445 0001:00254A73 447 0001:00254A7F 449 0001:00254A95 + 451 0001:00254ADD 455 0001:00254B32 456 0001:00254B51 457 0001:00254B5E + 458 0001:00254B6F 459 0001:00254B79 463 0001:00254B7E 468 0001:00254B89 + 469 0001:00254B93 470 0001:00254BA3 472 0001:00254BE4 473 0001:00254C00 + 474 0001:00254C11 475 0001:00254C22 476 0001:00254C2F 477 0001:00254C39 + 478 0001:00254C49 479 0001:00254C53 480 0001:00254C72 481 0001:00254C7F + 483 0001:00254C84 484 0001:00254C94 485 0001:00254CA5 486 0001:00254CEF + 487 0001:00254CF9 488 0001:00254D01 489 0001:00254D0F 490 0001:00254D19 + 492 0001:00254D44 493 0001:00254D4E 494 0001:00254D55 495 0001:00254D8F + 496 0001:00254DB2 498 0001:00254DDC 500 0001:00254E13 501 0001:00254E2E + 503 0001:00254E30 496 0001:00254E33 504 0001:00254E38 506 0001:00254E4E + 508 0001:00254E9C 511 0001:00254EFD 514 0001:00254F10 515 0001:00254F21 + 516 0001:00254F42 517 0001:00254F52 518 0001:00254F68 519 0001:00254F78 + 520 0001:00254F88 523 0001:00254F92 525 0001:00254FAB 526 0001:00254FCE + 528 0001:00254FF8 530 0001:0025502F 531 0001:0025504A 533 0001:0025504C + 526 0001:0025504F 534 0001:00255054 536 0001:0025506A 538 0001:002550B8 + 541 0001:00255119 544 0001:0025512C 545 0001:0025513D 546 0001:00255147 + 548 0001:00255153 549 0001:0025515B 551 0001:00255160 552 0001:00255178 + 553 0001:002551D6 554 0001:002551E9 555 0001:00255201 556 0001:00255219 + 557 0001:00255231 558 0001:00255249 559 0001:00255288 560 0001:002552D3 + 561 0001:002552E0 562 0001:002552F1 566 0001:00255300 568 0001:0025531C + 570 0001:00255328 571 0001:00255330 573 0001:00255335 574 0001:00255380 + 577 0001:0025538A 578 0001:00255392 579 0001:002553D2 580 0001:002553F1 + 582 0001:00255414 583 0001:0025550D 589 0001:002555D0 591 0001:002555F4 + 592 0001:00255620 594 0001:0025562C 596 0001:0025568B 597 0001:002556A6 + 599 0001:002556AC 600 0001:002556DF 603 0001:00255728 604 0001:00255733 + 606 0001:00255783 608 0001:0025579F 609 0001:002557E3 610 0001:00255860 + 611 0001:002558D5 612 0001:00255964 614 0001:002559D9 615 0001:00255A0D + 616 0001:00255A29 617 0001:00255A5D 619 0001:00255A79 620 0001:00255B79 + 623 0001:00255C30 625 0001:00255C56 627 0001:00255C62 629 0001:00255C78 + 630 0001:00255C97 633 0001:00255D02 638 0001:00255D08 639 0001:00255D24 + 640 0001:00255D34 642 0001:00255D4B 643 0001:00255D57 646 0001:00255DA6 + 651 0001:00255DD8 652 0001:00255DFA 653 0001:00255E05 654 0001:00255E17 + 656 0001:00255E2F 658 0001:00255E43 659 0001:00255E55 660 0001:00255E66 + 662 0001:00255E76 663 0001:00255E8A 665 0001:00255E96 668 0001:00255EB4 + 672 0001:00255EBE 673 0001:00255EC7 675 0001:00255ED4 677 0001:00255EDD + 681 0001:00255F1E 686 0001:00255F30 688 0001:00255F3C 689 0001:00255F4B + 690 0001:00255F59 691 0001:00255F70 692 0001:00255F7D 693 0001:00255F94 + 695 0001:00255FAC 697 0001:00255FBC 702 0001:00255FC0 703 0001:00255FE5 + 705 0001:00255FF1 706 0001:00255FF6 708 0001:00256000 709 0001:00256011 + 711 0001:0025601D 713 0001:0025604D 714 0001:00256069 715 0001:0025607A + 716 0001:00256087 718 0001:0025608C 720 0001:002560C9 721 0001:002560E5 + 722 0001:002560F6 723 0001:00256103 724 0001:00256122 725 0001:0025612F + 727 0001:00256134 728 0001:0025614F 730 0001:0025617A 731 0001:00256184 + 732 0001:002561B2 733 0001:002561B9 734 0001:002561DC 744 0001:00256202 + 745 0001:00256223 746 0001:0025622D 747 0001:0025623D 748 0001:0025624D + 749 0001:0025625D 750 0001:00256267 752 0001:00256280 753 0001:0025628A + 755 0001:00256296 756 0001:0025629E 758 0001:002562A3 759 0001:002562BB + 760 0001:00256319 761 0001:0025632C 762 0001:00256344 763 0001:0025635C + 764 0001:00256374 767 0001:0025638C 768 0001:00256399 769 0001:002563AA + 773 0001:002563B9 775 0001:002563DD 776 0001:002563E7 778 0001:002563F3 + 779 0001:002563FB 781 0001:00256400 782 0001:0025644B 783 0001:00256455 + 789 0001:00256461 790 0001:0025646B 792 0001:00256477 793 0001:0025647F + 795 0001:00256484 796 0001:002564C7 797 0001:002564D1 800 0001:002564DB + 801 0001:002564EB 802 0001:002564F3 803 0001:00256533 804 0001:00256552 + 806 0001:00256575 807 0001:00256642 810 0001:00256704 811 0001:00256710 + 812 0001:0025671A 813 0001:00256724 814 0001:0025672E 815 0001:00256739 + 820 0001:00256740 822 0001:00256764 823 0001:0025676E 824 0001:0025678B + 826 0001:0025679E 827 0001:002567AF 829 0001:002567DD 831 0001:0025682C + 832 0001:00256847 833 0001:00256889 835 0001:0025688B 827 0001:0025688E + 837 0001:00256897 838 0001:002568D6 841 0001:002568E8 842 0001:00256902 + 844 0001:00256920 845 0001:00256930 846 0001:00256946 847 0001:00256956 + 851 0001:0025696B 852 0001:0025697B 853 0001:00256991 854 0001:002569A1 + 857 0001:002569B4 859 0001:002569D6 860 0001:002569E0 862 0001:002569F2 + 863 0001:00256A02 864 0001:00256A12 865 0001:00256A28 866 0001:00256A38 + 867 0001:00256A48 869 0001:00256A5D 871 0001:00256A65 872 0001:00256AA4 + 876 0001:00256AE4 878 0001:00256AF3 879 0001:00256AFD 880 0001:00256B0D + 881 0001:00256B17 882 0001:00256B1D 889 0001:00256B24 891 0001:00256B47 + 892 0001:00256B51 893 0001:00256B68 894 0001:00256B6E 895 0001:00256B7B + 896 0001:00256B8D 898 0001:00256B95 899 0001:00256B9E 900 0001:00256BC3 + 902 0001:00256BF0 908 0001:00256C04 911 0001:00256C24 913 0001:00256C35 + 914 0001:00256C46 915 0001:00256C50 916 0001:00256C70 917 0001:00256C90 + 918 0001:00256CA3 919 0001:00256CB7 920 0001:00256CCA 921 0001:00256CE2 + 923 0001:00256D16 924 0001:00256D47 933 0001:00256D74 934 0001:00256D94 + 935 0001:00256D9E 937 0001:00256DB0 938 0001:00256DC0 939 0001:00256DD0 + 940 0001:00256DE0 941 0001:00256DF3 942 0001:00256E09 943 0001:00256E19 + 944 0001:00256E2C 945 0001:00256E48 949 0001:00256E8B 950 0001:00256EA5 + 952 0001:00256EB6 953 0001:00256EC9 956 0001:00256EEF 957 0001:00256F02 + 959 0001:00256F13 960 0001:00256F23 961 0001:00256F33 962 0001:00256F43 + 963 0001:00256F56 964 0001:00256F6C 967 0001:00256F81 969 0001:00256F95 + 970 0001:00256FA5 971 0001:00256FB5 972 0001:00256FC5 973 0001:00256FD8 + 974 0001:00256FEE 977 0001:00257003 979 0001:0025700D 980 0001:0025701D + 984 0001:00257037 985 0001:00257047 987 0001:0025705F 988 0001:0025706F + 989 0001:0025707F 990 0001:00257092 991 0001:002570A8 994 0001:002570E8 + 998 0001:0025720C 1000 0001:00257218 1001 0001:00257222 1002 0001:0025722C + 1003 0001:0025723C 1004 0001:00257247 1007 0001:0025724C 1009 0001:0025726B + 1011 0001:0025727C 1012 0001:0025729A 1014 0001:002572AA 1015 0001:002572D2 + 1022 0001:002572E4 1023 0001:002572E7 1024 0001:002572FD 1025 0001:00257316 + 1026 0001:00257329 1027 0001:0025733F 1030 0001:00257360 1031 0001:00257363 + 1032 0001:00257379 1033 0001:00257392 1034 0001:002573A5 1035 0001:002573BB + 1037 0001:002573EC 1038 0001:0025740F 1039 0001:00257460 1040 0001:0025749F + 1041 0001:002574AD 1042 0001:002574F4 1043 0001:00257507 1044 0001:00257510 + 1045 0001:0025751B 1047 0001:00257524 1048 0001:0025752D 1050 0001:00257536 + 1052 0001:002575A0 1059 0001:002575B4 1060 0001:002575D5 1061 0001:002575D9 + 1062 0001:002575E3 1063 0001:002575F2 1064 0001:00257600 1065 0001:0025760C + 1067 0001:0025762A 1068 0001:0025766C 1070 0001:00257678 1072 0001:002576AC + 1073 0001:002576BD 1074 0001:002576C1 1076 0001:002576CD 1080 0001:002576DE + 1082 0001:0025772E 1085 0001:00257768 1087 0001:0025778C 1088 0001:002577AD + 1089 0001:0025780D 1090 0001:0025783E 1093 0001:0025784F 1094 0001:00257872 + 1095 0001:002578D1 1098 0001:002578D8 1100 0001:002578E4 1101 0001:00257904 + 1102 0001:00257920 1103 0001:0025792B 1105 0001:00257937 1106 0001:0025795B + 1107 0001:00257975 1111 0001:002579AF 1112 0001:002579BF 1113 0001:002579CF + 1115 0001:002579DF 1116 0001:002579EF 1119 0001:002579F4 1121 0001:00257A00 + 1122 0001:00257A0E 1125 0001:00257A14 1127 0001:00257A20 1128 0001:00257A2E + 1131 0001:00257A34 1133 0001:00257A53 1134 0001:00257A8E 1137 0001:00257A94 + 1139 0001:00257AA0 1140 0001:00257AB5 1141 0001:00257AC3 1150 0001:00257AC8 + 1151 0001:00257B02 1152 0001:00257B06 1153 0001:00257B0E 1154 0001:00257B1D + 1155 0001:00257B2B 1156 0001:00257B49 1157 0001:00257B54 1158 0001:00257B5F + 1159 0001:00257B6C 1160 0001:00257B77 1161 0001:00257B86 1162 0001:00257BDB + 1163 0001:00257C00 1165 0001:00257C18 1167 0001:00257C62 1170 0001:00257C98 + 1172 0001:00257CA4 1173 0001:00257CB9 1176 0001:00257CC0 1178 0001:00257CCC + 1179 0001:00257CE1 1183 0001:00257CE8 1185 0001:00257CF7 1188 0001:00257D09 + 1189 0001:00257D11 1190 0001:00257D1B 1193 0001:00257D38 1195 0001:00257D42 + 1199 0001:00257D48 1201 0001:00257D57 1202 0001:00257D61 1205 0001:00257D68 + 1206 0001:00257D74 1207 0001:00257D8B 1208 0001:00257DB0 1211 0001:00257DB4 + 1212 0001:00257DC0 1213 0001:00257DCB 1214 0001:00257DD6 1218 0001:00257DDC + 1220 0001:00257DEB 1222 0001:00257DF7 1223 0001:00257DFD 1224 0001:00257E25 + 1225 0001:00257E2B 1226 0001:00257E51 1228 0001:00257E5B 1229 0001:00257E64 + 1230 0001:00257E8A 1232 0001:00257E92 1238 0001:00257E98 1241 0001:00257EBA + 1242 0001:00257ECF 1243 0001:00257EE5 1244 0001:00257EFA 1245 0001:00257F10 + 1247 0001:00257F1F 1248 0001:00257F32 1251 0001:00257F44 1252 0001:00257F55 + 1254 0001:00257F6A 1255 0001:00257F7D 1256 0001:00257F87 1259 0001:00257F91 + 1260 0001:00257FA5 1261 0001:00257FAE 1264 0001:00257FF2 1265 0001:00257FFC + 1266 0001:0025800F 1271 0001:00258041 1275 0001:002581B4 1279 0001:002581C3 + 1280 0001:002581EE 1281 0001:002581FA 1282 0001:00258202 1285 0001:00258210 + 1287 0001:0025821F 1288 0001:0025822B 1289 0001:00258231 1293 0001:00258238 + 1297 0001:00258247 1298 0001:00258251 1299 0001:00258263 1301 0001:0025826F + 1302 0001:00258277 1306 0001:00258280 1308 0001:0025828F 1309 0001:00258299 + 1316 0001:002582A0 1318 0001:002582C4 1319 0001:002582D3 1320 0001:002582DB + 1321 0001:002582E8 1322 0001:002582F5 1323 0001:00258301 1324 0001:00258321 + 1325 0001:0025832B 1327 0001:00258338 1328 0001:00258369 1329 0001:0025838B + 1331 0001:002583A2 1332 0001:002583AE 1336 0001:00258401 1337 0001:00258413 + 1340 0001:00258431 1342 0001:00258442 1343 0001:00258464 1344 0001:00258486 + 1348 0001:002584BA 1349 0001:0025851A 1352 0001:00258584 1353 0001:00258590 + 1354 0001:0025859B 1355 0001:002585B1 1361 0001:002585B8 1362 0001:002585E5 + 1363 0001:002585F4 1364 0001:002585FC 1365 0001:00258604 1366 0001:00258614 + 1367 0001:0025861F 1368 0001:0025862A 1369 0001:0025868F 1376 0001:002586AC + 1378 0001:002586D8 1379 0001:002586E7 1380 0001:002586EF 1381 0001:002586FE + 1382 0001:00258706 1384 0001:00258716 1385 0001:00258721 1386 0001:0025872C + 1387 0001:0025874C 1388 0001:0025876C 1389 0001:0025879A 1391 0001:002587A1 + 1392 0001:002587AD 1393 0001:002587FD 1394 0001:00258823 1395 0001:0025888F + 1396 0001:002588B5 1397 0001:00258921 1398 0001:00258947 1400 0001:00258A06 + 1403 0001:00258A58 1404 0001:00258A67 1405 0001:00258A75 1406 0001:00258A89 + 1408 0001:00258AF0 1408 0001:00258AF7 + +Line numbers for rODRad(Orders\rODRad.pas) segment .text + + 25 0001:00258AF8 26 0001:00258B04 27 0001:00258B2F 28 0001:00258B3C + 33 0001:00258B5C 34 0001:00258B68 35 0001:00258B93 36 0001:00258BA0 + 42 0001:00258BC4 43 0001:00258BE6 44 0001:00258BFC 45 0001:00258C18 + 44 0001:00258C48 46 0001:00258C4B 47 0001:00258C7B 50 0001:00258CAC + 51 0001:00258CCB 52 0001:00258D2B 55 0001:00258D4C 56 0001:00258D4F + 57 0001:00258D67 58 0001:00258D74 61 0001:00258D94 62 0001:00258D97 + 63 0001:00258DAF 64 0001:00258DBC 67 0001:00258DDC 68 0001:00258DFC + 69 0001:00258E15 70 0001:00258E41 73 0001:00258E60 74 0001:00258E69 + 75 0001:00258E83 77 0001:00258ED4 77 0001:00258EDB + +Line numbers for fODRadApproval(Orders\fODRadApproval.pas) segment .text + + 39 0001:00259104 40 0001:00259110 41 0001:00259127 44 0001:00259135 + 45 0001:00259142 46 0001:0025914D 47 0001:00259158 48 0001:00259165 + 49 0001:00259181 50 0001:0025919D 51 0001:002591A7 52 0001:002591C2 + 53 0001:002591CD 56 0001:002591EA 58 0001:002591FA 62 0001:00259200 + 63 0001:00259205 66 0001:00259208 67 0001:0025921F 69 0001:00259234 + 70 0001:00259247 71 0001:0025924E 73 0001:00259250 74 0001:00259257 + 75 0001:00259282 76 0001:002592A6 78 0001:00259328 78 0001:0025932F + +Line numbers for fODRadConShRes(Orders\fODRadConShRes.pas) segment .text + + 42 0001:00259568 43 0001:00259590 44 0001:002595A7 47 0001:002595B5 + 48 0001:002595C2 49 0001:002595CD 50 0001:002595D8 51 0001:002595E5 + 52 0001:00259601 53 0001:0025961D 54 0001:00259627 56 0001:0025963E + 57 0001:0025965D 59 0001:0025966C 60 0001:0025967C 61 0001:00259685 + 62 0001:002596A1 63 0001:002596A8 68 0001:002596B5 70 0001:002596C9 + 72 0001:002596CE 73 0001:002596DE 74 0001:002596EC 75 0001:002596FC + 76 0001:00259707 78 0001:00259728 81 0001:00259745 83 0001:0025977F + 86 0001:00259794 87 0001:00259797 88 0001:0025979E 89 0001:002597A9 + 90 0001:002597B0 93 0001:002597B4 94 0001:002597CF 96 0001:002597E4 + 98 0001:002597F5 99 0001:00259808 100 0001:0025980F 101 0001:0025981A + 103 0001:0025981F 104 0001:00259826 108 0001:00259850 110 0001:00259886 + 111 0001:00259899 112 0001:002598A0 113 0001:002598AB 115 0001:002598AD + 116 0001:002598B4 118 0001:002598D0 119 0001:00259901 121 0001:002599B0 + 121 0001:002599B7 + +Line numbers for fODRad(Orders\fODRad.pas) segment .text + + 123 0001:00259FC8 124 0001:00259FF2 125 0001:00259FFC 127 0001:0025A016 + 128 0001:0025A028 129 0001:0025A02F 130 0001:0025A036 131 0001:0025A03D + 133 0001:0025A046 134 0001:0025A05B 135 0001:0025A079 134 0001:0025A0BD + 136 0001:0025A0C2 138 0001:0025A0C8 139 0001:0025A0D2 142 0001:0025A0DF + 143 0001:0025A0E9 144 0001:0025A10C 145 0001:0025A131 146 0001:0025A13B + 147 0001:0025A14F 148 0001:0025A156 149 0001:0025A15D 150 0001:0025A171 + 151 0001:0025A185 152 0001:0025A199 153 0001:0025A1AD 154 0001:0025A1C1 + 155 0001:0025A1D5 156 0001:0025A1E9 157 0001:0025A1FD 158 0001:0025A210 + 160 0001:0025A214 161 0001:0025A220 163 0001:0025A230 165 0001:0025A24A + 166 0001:0025A25D 167 0001:0025A287 169 0001:0025A2E9 170 0001:0025A2FC + 171 0001:0025A300 173 0001:0025A30C 174 0001:0025A326 177 0001:0025A330 + 179 0001:0025A367 180 0001:0025A37A 181 0001:0025A37E 183 0001:0025A38A + 184 0001:0025A397 188 0001:0025A3A1 189 0001:0025A3B4 190 0001:0025A3BC + 192 0001:0025A3C8 193 0001:0025A3D5 194 0001:0025A3E6 196 0001:0025A3F8 + 197 0001:0025A409 199 0001:0025A41B 200 0001:0025A42C 203 0001:0025A43C + 204 0001:0025A443 205 0001:0025A44A 206 0001:0025A46D 207 0001:0025A476 + 209 0001:0025A4D3 215 0001:0025A5F0 216 0001:0025A611 218 0001:0025A625 + 219 0001:0025A632 220 0001:0025A63F 221 0001:0025A649 222 0001:0025A653 + 223 0001:0025A65D 224 0001:0025A664 225 0001:0025A66E 226 0001:0025A675 + 227 0001:0025A682 228 0001:0025A69B 229 0001:0025A6C0 231 0001:0025A6CC + 232 0001:0025A6E2 233 0001:0025A708 234 0001:0025A71E 235 0001:0025A73B + 234 0001:0025A76B 236 0001:0025A76E 238 0001:0025A793 239 0001:0025A7A6 + 240 0001:0025A7BC 241 0001:0025A7D2 242 0001:0025A7E8 243 0001:0025A7FD + 244 0001:0025A80B 245 0001:0025A817 246 0001:0025A82D 247 0001:0025A842 + 248 0001:0025A850 249 0001:0025A85C 250 0001:0025A872 251 0001:0025A888 + 253 0001:0025A8A0 254 0001:0025A8B1 255 0001:0025A8C1 256 0001:0025A8D1 + 258 0001:0025A8EC 260 0001:0025A910 262 0001:0025A92B 263 0001:0025A93A + 264 0001:0025A948 265 0001:0025A95F 266 0001:0025A96E 268 0001:0025A992 + 270 0001:0025A9A2 271 0001:0025A9B3 272 0001:0025A9C3 273 0001:0025A9D3 + 277 0001:0025A9EE 278 0001:0025A9FE 279 0001:0025AA0E 280 0001:0025AA1E + 283 0001:0025AA39 285 0001:0025AA59 286 0001:0025AA70 288 0001:0025AA82 + 289 0001:0025AA93 290 0001:0025AAA3 291 0001:0025AAB3 293 0001:0025AAC9 + 294 0001:0025AAEB 296 0001:0025AB01 297 0001:0025AB12 298 0001:0025AB1D + 299 0001:0025AB27 300 0001:0025AB37 301 0001:0025AB6D 306 0001:0025ACA8 + 308 0001:0025ACCA 309 0001:0025ACD7 310 0001:0025ACE2 311 0001:0025ACE8 + 312 0001:0025AD3B 314 0001:0025AD54 315 0001:0025AD70 316 0001:0025ADA3 + 317 0001:0025ADBC 318 0001:0025AE1F 319 0001:0025AE88 320 0001:0025AF09 + 321 0001:0025AF8A 322 0001:0025AFBF 323 0001:0025AFE3 324 0001:0025B016 + 325 0001:0025B049 326 0001:0025B07E 327 0001:0025B09D 328 0001:0025B0EF + 329 0001:0025B12E 330 0001:0025B153 329 0001:0025B1D1 331 0001:0025B1DA + 332 0001:0025B22D 333 0001:0025B280 334 0001:0025B2A1 335 0001:0025B2DE + 336 0001:0025B328 337 0001:0025B459 345 0001:0025B5DC 346 0001:0025B5E2 + 347 0001:0025B609 348 0001:0025B61C 351 0001:0025B62C 352 0001:0025B646 + 353 0001:0025B64D 354 0001:0025B657 355 0001:0025B66D 357 0001:0025B67A + 358 0001:0025B689 359 0001:0025B6C6 362 0001:0025B70C 363 0001:0025B760 + 365 0001:0025B884 366 0001:0025B8AB 367 0001:0025B8B6 369 0001:0025B8BF + 372 0001:0025B8FB 373 0001:0025B941 375 0001:0025B98E 376 0001:0025B9A0 + 378 0001:0025B9B7 382 0001:0025BA01 384 0001:0025BA0A 385 0001:0025BA0C + 386 0001:0025BA25 387 0001:0025BA27 388 0001:0025BA56 389 0001:0025BA95 + 390 0001:0025BAD6 392 0001:0025BB2F 393 0001:0025BB33 395 0001:0025BB41 + 397 0001:0025BB9A 398 0001:0025BB9E 401 0001:0025BBAA 403 0001:0025BBD9 + 404 0001:0025BBFD 407 0001:0025BC0E 408 0001:0025BC10 410 0001:0025BC3A + 411 0001:0025BC6B 412 0001:0025BCA1 413 0001:0025BCA6 408 0001:0025BCA7 + 414 0001:0025BCAA 417 0001:0025BCBB 418 0001:0025BCC4 420 0001:0025BCEC + 421 0001:0025BCF5 423 0001:0025BDDA 428 0001:0025BFC8 430 0001:0025BFD1 + 431 0001:0025BFEE 438 0001:0025BFF4 439 0001:0025C01E 441 0001:0025C049 + 442 0001:0025C04D 443 0001:0025C06A 445 0001:0025C070 446 0001:0025C080 + 447 0001:0025C09C 446 0001:0025C0C2 448 0001:0025C0C7 450 0001:0025C0CD + 451 0001:0025C0DC 454 0001:0025C0F9 455 0001:0025C11B 456 0001:0025C12B + 457 0001:0025C15F 460 0001:0025C18C 461 0001:0025C1AC 462 0001:0025C1B2 + 465 0001:0025C1D6 466 0001:0025C213 467 0001:0025C224 468 0001:0025C232 + 469 0001:0025C23E 470 0001:0025C256 471 0001:0025C26F 473 0001:0025C2B4 + 474 0001:0025C2E0 479 0001:0025C318 481 0001:0025C33D 483 0001:0025C343 + 485 0001:0025C36E 486 0001:0025C386 487 0001:0025C38F 489 0001:0025C396 + 490 0001:0025C39D 491 0001:0025C3A1 492 0001:0025C3AC 493 0001:0025C3B7 + 495 0001:0025C3C2 496 0001:0025C3C9 497 0001:0025C3EF 499 0001:0025C3F5 + 502 0001:0025C41B 505 0001:0025C433 507 0001:0025C443 508 0001:0025C44A + 509 0001:0025C45E 510 0001:0025C465 511 0001:0025C479 512 0001:0025C48D + 513 0001:0025C4A1 514 0001:0025C4B5 515 0001:0025C4C9 516 0001:0025C4DD + 517 0001:0025C4F1 518 0001:0025C505 519 0001:0025C519 520 0001:0025C52C + 522 0001:0025C530 523 0001:0025C53C 525 0001:0025C54C 527 0001:0025C566 + 529 0001:0025C56D 530 0001:0025C58A 531 0001:0025C5EE 537 0001:0025C6B0 + 538 0001:0025C6C8 539 0001:0025C6CD 540 0001:0025C6E1 542 0001:0025C6E5 + 543 0001:0025C712 544 0001:0025C721 545 0001:0025C731 546 0001:0025C732 + 540 0001:0025C746 548 0001:0025C767 553 0001:0025C7B4 555 0001:0025C7D6 + 556 0001:0025C7EF 557 0001:0025C808 558 0001:0025C810 559 0001:0025C81A + 560 0001:0025C824 562 0001:0025C82A 564 0001:0025C85A 565 0001:0025C88E + 566 0001:0025C89D 567 0001:0025C8B2 568 0001:0025C8DC 569 0001:0025C8EB + 570 0001:0025C918 573 0001:0025C925 574 0001:0025C983 577 0001:0025C9F8 + 578 0001:0025CA13 579 0001:0025CA1A 580 0001:0025CA21 581 0001:0025CA35 + 582 0001:0025CA3C 583 0001:0025CA45 584 0001:0025CA5D 585 0001:0025CA7E + 586 0001:0025CA8A 587 0001:0025CA94 588 0001:0025CA9F 589 0001:0025CAA8 + 590 0001:0025CAAF 591 0001:0025CABF 592 0001:0025CAC9 593 0001:0025CAE1 + 594 0001:0025CAEB 595 0001:0025CB0E 596 0001:0025CB1B 597 0001:0025CB28 + 598 0001:0025CB35 599 0001:0025CB42 600 0001:0025CB4F 601 0001:0025CB5C + 602 0001:0025CB69 603 0001:0025CB76 605 0001:0025CB83 606 0001:0025CB90 + 607 0001:0025CB9D 608 0001:0025CBAC 609 0001:0025CBB3 610 0001:0025CBE7 + 618 0001:0025CC58 619 0001:0025CC5F 624 0001:0025CC60 626 0001:0025CC67 + 627 0001:0025CC76 628 0001:0025CC84 629 0001:0025CC98 630 0001:0025CCA5 + 631 0001:0025CCB9 633 0001:0025CCCF 635 0001:0025CCDF 638 0001:0025CCE4 + 639 0001:0025CCE7 640 0001:0025CCEE 641 0001:0025CD06 642 0001:0025CD27 + 646 0001:0025CD2C 648 0001:0025CD2F 649 0001:0025CD3C 652 0001:0025CD40 + 654 0001:0025CD56 655 0001:0025CD7E 656 0001:0025CDA4 660 0001:0025CDA8 + 661 0001:0025CDD1 662 0001:0025CDE1 670 0001:0025CDE4 671 0001:0025CDEB + 673 0001:0025CDF8 674 0001:0025CDFA 675 0001:0025CE10 676 0001:0025CE26 + 677 0001:0025CE3A 679 0001:0025CE3E 680 0001:0025CE53 683 0001:0025CE55 + 684 0001:0025CE5E 690 0001:0025CEE0 692 0001:0025CF04 693 0001:0025CF13 + 694 0001:0025CF2A 695 0001:0025CF45 694 0001:0025CF69 696 0001:0025CF6C + 697 0001:0025CF77 699 0001:0025CF89 700 0001:0025CFAE 701 0001:0025CFDF + 697 0001:0025CFE0 702 0001:0025CFE3 703 0001:0025CFEF 704 0001:0025D006 + 703 0001:0025D06F 705 0001:0025D094 711 0001:0025D0B0 712 0001:0025D0B5 + 715 0001:0025D0B8 716 0001:0025D0BB 717 0001:0025D0C2 718 0001:0025D0D6 + 719 0001:0025D0E6 722 0001:0025D0E8 725 0001:0025D0EC 726 0001:0025D0F5 + 727 0001:0025D100 728 0001:0025D113 729 0001:0025D121 732 0001:0025D124 + 735 0001:0025D128 736 0001:0025D131 737 0001:0025D13C 738 0001:0025D14F + 739 0001:0025D15D 742 0001:0025D160 743 0001:0025D163 744 0001:0025D19F + 749 0001:0025D1A4 750 0001:0025D1A9 753 0001:0025D1AC 754 0001:0025D1C5 + 755 0001:0025D1D2 756 0001:0025D1D9 757 0001:0025D1E2 758 0001:0025D1E9 + 759 0001:0025D208 760 0001:0025D24B 761 0001:0025D255 762 0001:0025D279 + 763 0001:0025D280 764 0001:0025D2AC 767 0001:0025D2B4 768 0001:0025D2B8 + 770 0001:0025D2C1 771 0001:0025D2C8 772 0001:0025D2CE 774 0001:0025D301 + 777 0001:0025D30E 779 0001:0025D378 779 0001:0025D37F + +Line numbers for rODLab(Orders\rODLab.pas) segment .text + + 37 0001:0025D380 38 0001:0025D390 41 0001:0025D3AC 42 0001:0025D3D1 + 43 0001:0025D41F 46 0001:0025D440 47 0001:0025D465 48 0001:0025D4A4 + 51 0001:0025D4C0 52 0001:0025D4E5 53 0001:0025D524 56 0001:0025D544 + 57 0001:0025D569 58 0001:0025D5A8 62 0001:0025D5C8 63 0001:0025D5CB + 64 0001:0025D5EF 65 0001:0025D5FC 68 0001:0025D618 69 0001:0025D63A + 70 0001:0025D672 73 0001:0025D690 74 0001:0025D693 75 0001:0025D6AE + 78 0001:0025D6D0 79 0001:0025D6D9 80 0001:0025D6FB 81 0001:0025D708 + 84 0001:0025D72C 85 0001:0025D72F 86 0001:0025D74A 94 0001:0025D76C + 95 0001:0025D78B 96 0001:0025D7D8 99 0001:0025D7FC 100 0001:0025D818 + 101 0001:0025D874 104 0001:0025D89C 105 0001:0025D8BB 106 0001:0025D908 + 109 0001:0025D938 110 0001:0025D93B 111 0001:0025D953 112 0001:0025D960 + 115 0001:0025D984 116 0001:0025D9A1 117 0001:0025D9B9 118 0001:0025DA14 + 121 0001:0025DA38 122 0001:0025DA41 123 0001:0025DA61 124 0001:0025DA77 + 127 0001:0025DA9C 128 0001:0025DA9F 129 0001:0025DAB5 130 0001:0025DAC2 + 133 0001:0025DAE4 134 0001:0025DAED 135 0001:0025DB07 138 0001:0025DB2C + 139 0001:0025DB32 140 0001:0025DB4E 146 0001:0025DB70 147 0001:0025DB94 + 150 0001:0025DBBE 151 0001:0025DBD2 152 0001:0025DC13 154 0001:0025DC29 + 155 0001:0025DC60 156 0001:0025DCDF 152 0001:0025DCE0 158 0001:0025DD13 + 160 0001:0025DDD8 160 0001:0025DDDF + +Line numbers for fODLabOthCollSamp(Orders\fODLabOthCollSamp.pas) segment .text + + 40 0001:0025E01C 41 0001:0025E042 42 0001:0025E059 45 0001:0025E067 + 46 0001:0025E074 47 0001:0025E07F 48 0001:0025E08A 49 0001:0025E097 + 50 0001:0025E0B3 51 0001:0025E0CF 53 0001:0025E0E9 54 0001:0025E10C + 55 0001:0025E135 56 0001:0025E14C 51 0001:0025E14D 57 0001:0025E150 + 58 0001:0025E15B 61 0001:0025E179 63 0001:0025E1AB 66 0001:0025E1D8 + 67 0001:0025E1DB 68 0001:0025E1EB 69 0001:0025E1F2 72 0001:0025E200 + 73 0001:0025E217 75 0001:0025E22C 76 0001:0025E23F 78 0001:0025E241 + 79 0001:0025E25A 81 0001:0025E287 82 0001:0025E297 83 0001:0025E2BB + 87 0001:0025E324 88 0001:0025E32B 90 0001:0025E35C 90 0001:0025E363 + +Line numbers for fODLabOthSpec(Orders\fODLabOthSpec.pas) segment .text + + 41 0001:0025E5A8 42 0001:0025E5B4 43 0001:0025E5CB 46 0001:0025E5D9 + 47 0001:0025E5E6 48 0001:0025E5F1 49 0001:0025E5FC 50 0001:0025E609 + 51 0001:0025E625 52 0001:0025E641 56 0001:0025E64A 58 0001:0025E651 + 59 0001:0025E65C 62 0001:0025E679 64 0001:0025E689 67 0001:0025E690 + 68 0001:0025E693 69 0001:0025E6A3 70 0001:0025E6AA 73 0001:0025E6B8 + 74 0001:0025E6CF 76 0001:0025E6E4 77 0001:0025E6F7 79 0001:0025E6F9 + 80 0001:0025E712 82 0001:0025E73F 83 0001:0025E74F 84 0001:0025E773 + 88 0001:0025E7CC 89 0001:0025E7D3 93 0001:0025E7D4 95 0001:0025E7DD + 96 0001:0025E7F4 98 0001:0025E82C 98 0001:0025E833 + +Line numbers for fODLabImmedColl(Orders\fODLabImmedColl.pas) segment .text + + 46 0001:0025EAA4 47 0001:0025EAC6 48 0001:0025EADD 49 0001:0025EAEB + 52 0001:0025EAF3 53 0001:0025EB03 54 0001:0025EB0E 57 0001:0025EB2B + 59 0001:0025EB58 62 0001:0025EB60 63 0001:0025EB63 64 0001:0025EB73 + 65 0001:0025EB7A 70 0001:0025EB88 71 0001:0025EBA3 73 0001:0025EBB9 + 74 0001:0025EBCC 76 0001:0025EBD1 78 0001:0025EBEB 79 0001:0025EC05 + 80 0001:0025EC27 83 0001:0025EC45 84 0001:0025EC74 88 0001:0025EC76 + 89 0001:0025EC86 90 0001:0025ECC4 94 0001:0025ED68 95 0001:0025ED6B + 96 0001:0025ED83 97 0001:0025ED92 99 0001:0025EDA5 100 0001:0025EDBC + 101 0001:0025EDC9 105 0001:0025EDCC 106 0001:0025EDCF 108 0001:0025EDD5 + 109 0001:0025EDDA 111 0001:0025EDE5 113 0001:0025EE1C 113 0001:0025EE23 + +Line numbers for fLabCollTimes(fLabCollTimes.pas) segment .text + + 41 0001:0025F0C4 42 0001:0025F0CD 43 0001:0025F0E4 46 0001:0025F0F2 + 47 0001:0025F118 48 0001:0025F147 49 0001:0025F154 50 0001:0025F15F + 53 0001:0025F17C 55 0001:0025F18C 58 0001:0025F194 59 0001:0025F198 + 61 0001:0025F19E 62 0001:0025F1A8 63 0001:0025F1D1 65 0001:0025F1DD + 68 0001:0025F1E0 69 0001:0025F203 71 0001:0025F21C 72 0001:0025F228 + 73 0001:0025F26F 76 0001:0025F278 77 0001:0025F2B0 80 0001:0025F2C4 + 81 0001:0025F2C7 82 0001:0025F2D2 83 0001:0025F2D9 86 0001:0025F2DC + 87 0001:0025F2DF 88 0001:0025F308 89 0001:0025F316 93 0001:0025F318 + 94 0001:0025F31D 98 0001:0025F320 99 0001:0025F327 100 0001:0025F344 + 101 0001:0025F367 102 0001:0025F38A 103 0001:0025F3AD 105 0001:0025F3CE + 107 0001:0025F40C 107 0001:0025F413 + +Line numbers for fODLab(Orders\fODLab.pas) segment .text + + 209 0001:0025FE14 210 0001:0025FE39 211 0001:0025FE4D 212 0001:0025FE54 + 213 0001:0025FE5D 214 0001:0025FE6C 215 0001:0025FE7A 216 0001:0025FE84 + 217 0001:0025FE8E 218 0001:0025FE98 219 0001:0025FEA2 220 0001:0025FEAC + 221 0001:0025FEB6 222 0001:0025FEC1 223 0001:0025FECC 224 0001:0025FED7 + 225 0001:0025FEE1 226 0001:0025FEED 227 0001:0025FEF5 228 0001:0025FEFD + 229 0001:0025FF13 230 0001:0025FF1A 231 0001:0025FF24 232 0001:0025FF2F + 233 0001:0025FF3C 234 0001:0025FF4E 235 0001:0025FF6B 236 0001:0025FF7B + 237 0001:0025FF85 239 0001:0025FF93 240 0001:0025FFB8 241 0001:0025FFE3 + 242 0001:0025FFED 244 0001:00260002 246 0001:0026001F 247 0001:0026003A + 248 0001:00260048 249 0001:00260052 251 0001:00260058 252 0001:0026006A + 253 0001:00260087 254 0001:00260090 255 0001:002600A3 256 0001:002600AE + 258 0001:002600C0 259 0001:002600D0 260 0001:002600F3 261 0001:002600FD + 262 0001:0026010F 263 0001:0026012F 264 0001:0026013C 265 0001:0026014E + 267 0001:00260154 268 0001:00260178 270 0001:0026019C 271 0001:002601A9 + 273 0001:002601B6 274 0001:002601C0 276 0001:002601C9 277 0001:002601DA + 279 0001:002601E4 280 0001:002601FD 281 0001:00260220 282 0001:00260229 + 283 0001:00260236 285 0001:00260243 286 0001:00260250 287 0001:0026025D + 288 0001:0026026A 289 0001:00260277 290 0001:00260284 291 0001:00260291 + 293 0001:002602A5 295 0001:002602DF 298 0001:00260408 299 0001:00260421 + 300 0001:00260428 301 0001:0026042F 303 0001:00260438 304 0001:00260444 + 306 0001:0026044B 308 0001:00260451 309 0001:00260461 311 0001:00260497 + 312 0001:002604A4 313 0001:002604AB 314 0001:002604BC 315 0001:002604C9 + 316 0001:002604D7 317 0001:002604DE 318 0001:00260507 324 0001:00260528 + 325 0001:00260550 326 0001:00260559 327 0001:00260560 329 0001:00260569 + 330 0001:0026057A 332 0001:00260595 334 0001:002605AD 335 0001:002605CD + 337 0001:002605D6 339 0001:002605F0 340 0001:00260605 341 0001:0026060E + 342 0001:0026061B 343 0001:00260622 344 0001:00260637 345 0001:0026064C + 346 0001:00260660 348 0001:00260673 349 0001:0026067E 351 0001:0026068A + 352 0001:00260694 353 0001:002606BF 356 0001:002606C9 357 0001:002606D2 + 358 0001:002606DF 359 0001:002606F3 361 0001:0026070E 362 0001:00260719 + 364 0001:00260729 365 0001:00260732 366 0001:0026075A 367 0001:00260785 + 371 0001:00260791 372 0001:002607AB 373 0001:002607C8 374 0001:002607FD + 375 0001:00260812 377 0001:00260827 378 0001:00260837 379 0001:0026084A + 380 0001:00260872 382 0001:0026087F 383 0001:0026089C 384 0001:002608A1 + 385 0001:002608B5 387 0001:002608B9 388 0001:002608C9 389 0001:002608CA + 385 0001:002608DE 391 0001:002608E2 392 0001:002608E8 394 0001:002608F3 + 395 0001:0026090C 397 0001:0026092F 398 0001:00260938 399 0001:0026093F + 401 0001:00260972 411 0001:00260A28 412 0001:00260A60 413 0001:00260A6F + 414 0001:00260A7D 417 0001:00260A87 418 0001:00260A90 419 0001:00260A9D + 420 0001:00260ACE 421 0001:00260AFF 422 0001:00260B1D 423 0001:00260B40 + 424 0001:00260B50 425 0001:00260B6C 426 0001:00260B88 427 0001:00260BA1 + 428 0001:00260BAB 429 0001:00260BBF 430 0001:00260BCE 431 0001:00260BF7 + 432 0001:00260C09 434 0001:00260C25 435 0001:00260C2C 436 0001:00260C4A + 437 0001:00260C7D 441 0001:00260C85 442 0001:00260C98 443 0001:00260CA8 + 445 0001:00260CBA 447 0001:00260CC6 448 0001:00260CD8 449 0001:00260CEC + 450 0001:00260CFB 451 0001:00260D03 452 0001:00260D15 453 0001:00260D22 + 454 0001:00260D39 457 0001:00260D6B 458 0001:00260D7A 459 0001:00260D88 + 460 0001:00260DA1 462 0001:00260DC2 465 0001:00260DD2 466 0001:00260DEF + 469 0001:00260E0B 471 0001:00260E1B 472 0001:00260E60 477 0001:00260F60 + 478 0001:00260F71 479 0001:00260F78 480 0001:00260F8B 482 0001:00260F98 + 483 0001:00260FA0 484 0001:00260FA7 479 0001:00260FA8 485 0001:00260FAB + 486 0001:00260FB3 487 0001:00260FBB 488 0001:00260FC3 489 0001:00260FCB + 490 0001:00260FD3 491 0001:00260FED 496 0001:00260FF4 497 0001:00260FFB + 498 0001:00261002 499 0001:00261019 501 0001:0026101E 502 0001:00261021 + 503 0001:00261023 498 0001:00261024 504 0001:0026102A 510 0001:00261030 + 511 0001:00261052 512 0001:00261061 513 0001:00261070 514 0001:0026107E + 515 0001:00261086 516 0001:00261093 517 0001:002610A3 518 0001:002610B5 + 517 0001:002610EF 520 0001:002610FF 521 0001:00261107 523 0001:00261139 + 532 0001:00261154 533 0001:00261181 534 0001:00261184 535 0001:0026119F + 536 0001:002611AB 537 0001:002611C7 538 0001:002611EE 539 0001:002611EF + 540 0001:002611FE 542 0001:00261216 545 0001:00261225 546 0001:00261268 + 547 0001:00261295 548 0001:002612C2 549 0001:002612F1 550 0001:0026131E + 551 0001:0026134B 552 0001:0026137A 553 0001:002613A9 554 0001:002613B8 + 555 0001:002613E5 556 0001:002613F7 557 0001:0026140B 558 0001:00261419 + 559 0001:00261421 561 0001:0026142D 563 0001:0026143E 564 0001:00261452 + 565 0001:0026148F 566 0001:00261490 567 0001:002614D5 572 0001:00261508 + 573 0001:0026150C 574 0001:00261511 575 0001:00261519 576 0001:00261524 + 577 0001:0026152A 578 0001:0026153E 579 0001:0026154B 580 0001:0026155A + 582 0001:00261570 583 0001:00261576 585 0001:00261587 589 0001:002615A0 + 590 0001:002615A3 591 0001:002615A8 594 0001:002615AC 595 0001:002615B2 + 596 0001:002615BE 599 0001:002615C4 600 0001:002615CA 601 0001:002615D6 + 605 0001:002615DC 606 0001:002615E4 611 0001:002615E8 612 0001:002615ED + 613 0001:002615EF 614 0001:002615FB 615 0001:0026160F 622 0001:00261614 + 623 0001:00261639 624 0001:00261641 626 0001:00261668 627 0001:0026168B + 628 0001:002616B4 629 0001:002616C5 630 0001:002616DA 624 0001:002616DB + 631 0001:002616E2 638 0001:002616FF 639 0001:00261712 641 0001:00261760 + 648 0001:002617C0 649 0001:002617E2 650 0001:002617E9 652 0001:002617F8 + 653 0001:0026180C 654 0001:0026181A 655 0001:0026182A 656 0001:0026183E + 657 0001:0026184B 658 0001:0026185D 659 0001:00261864 661 0001:00261875 + 665 0001:00261893 666 0001:0026189F 668 0001:002618B3 669 0001:002618E4 + 671 0001:002618ED 672 0001:00261901 674 0001:0026190E 675 0001:0026192E + 678 0001:0026193B 679 0001:00261984 684 0001:002619D4 685 0001:002619F1 + 687 0001:002619FF 688 0001:00261A09 690 0001:00261A17 691 0001:00261A25 + 692 0001:00261A37 693 0001:00261A45 695 0001:00261A57 697 0001:00261A60 + 699 0001:00261A82 700 0001:00261A90 702 0001:00261AA6 705 0001:00261ABB + 707 0001:00261AD1 709 0001:00261ADA 711 0001:00261AFE 712 0001:00261B0C + 714 0001:00261B22 717 0001:00261B37 719 0001:00261B4D 721 0001:00261B56 + 723 0001:00261B78 724 0001:00261B86 726 0001:00261B99 729 0001:00261BAB + 731 0001:00261BBE 733 0001:00261BC9 734 0001:00261BD7 736 0001:00261BE9 + 739 0001:00261BF7 741 0001:00261C07 742 0001:00261C4F 747 0001:00261CA4 + 750 0001:00261CD7 751 0001:00261CDF 752 0001:00261CF4 755 0001:00261D2C + 751 0001:00261D4E 756 0001:00261D51 757 0001:00261D68 759 0001:00261D78 + 760 0001:00261D88 762 0001:00261DC0 767 0001:00261DD4 768 0001:00261DDB + 769 0001:00261DE2 770 0001:00261DEE 771 0001:00261E09 776 0001:00261E10 + 777 0001:00261E37 778 0001:00261E3F 779 0001:00261E5B 780 0001:00261E72 + 781 0001:00261E8C 783 0001:00261ECC 784 0001:00261EEC 785 0001:00261EEE + 781 0001:00261EEF 786 0001:00261F16 791 0001:00261F20 792 0001:00261F47 + 793 0001:00261F4F 795 0001:00261F68 796 0001:00261F98 797 0001:00261FB8 + 798 0001:00261FBA 793 0001:00261FBB 799 0001:00261FE0 803 0001:00261FE8 + 804 0001:00261FED 809 0001:00261FF0 810 0001:00261FF5 811 0001:00261FF7 + 812 0001:00262003 813 0001:0026201A 814 0001:00262024 818 0001:00262028 + 819 0001:0026202D 822 0001:00262030 823 0001:00262033 824 0001:00262040 + 832 0001:00262044 834 0001:0026206C 835 0001:00262082 836 0001:00262099 + 837 0001:0026209D 838 0001:002620A8 841 0001:002620B3 842 0001:002620E5 + 843 0001:00262121 844 0001:0026213A 845 0001:00262176 846 0001:0026218F + 847 0001:002621C9 848 0001:0026220D 850 0001:00262234 851 0001:0026227B + 854 0001:00262293 856 0001:002622CD 857 0001:002622D3 859 0001:00262304 + 860 0001:0026239B 862 0001:00262422 864 0001:00262442 865 0001:00262492 + 870 0001:002624C8 871 0001:002624CE 873 0001:002624E4 874 0001:00262534 + 878 0001:00262567 879 0001:00262580 882 0001:0026258B 883 0001:002625BE + 884 0001:0026260C 886 0001:0026265A 887 0001:0026267D 888 0001:002627E4 + 893 0001:002628BC 894 0001:002628C2 895 0001:002628E9 896 0001:002628FC + 929 0001:0026290C 930 0001:00262931 932 0001:0026293B 934 0001:00262962 + 935 0001:0026296B 937 0001:002629AA 938 0001:002629B6 941 0001:002629C4 + 942 0001:002629EB 943 0001:002629FC 945 0001:00262A30 946 0001:00262A5C + 948 0001:00262A90 949 0001:00262AB3 950 0001:00262AC4 951 0001:00262AF3 + 952 0001:00262B04 954 0001:00262B13 955 0001:00262B56 956 0001:00262B6B + 957 0001:00262B75 959 0001:00262B84 960 0001:00262B97 961 0001:00262BA0 + 962 0001:00262BBD 965 0001:00262BFC 967 0001:00262C06 968 0001:00262C3C + 970 0001:00262C6F 972 0001:00262C77 973 0001:00262CB1 979 0001:00262CE4 + 981 0001:00262D25 982 0001:00262D47 983 0001:00262D61 984 0001:00262D89 + 987 0001:00262DAC 989 0001:00262DB2 993 0001:00262DD5 995 0001:00262E14 + 1000 0001:00262E59 1006 0001:00262EB3 1007 0001:00262EB9 1008 0001:00262EC4 + 1009 0001:00262ED2 1011 0001:00262EEE 1012 0001:00262EF7 1013 0001:00262F04 + 1016 0001:00262F21 1017 0001:00262F27 1018 0001:00262F32 1019 0001:00262F40 + 1021 0001:00262F5C 1022 0001:00262F7E 1023 0001:00262F8B 1026 0001:00262FA8 + 1027 0001:00262FCF 1029 0001:00262FF6 1031 0001:00263003 1033 0001:00263016 + 1036 0001:0026302C 1038 0001:0026307E 1043 0001:0026308F 1044 0001:002630B6 + 1047 0001:002630C4 1049 0001:00263108 1057 0001:0026311A 1059 0001:0026312F + 1060 0001:00263131 1062 0001:002631A4 1063 0001:002631AE 1065 0001:002631BD + 1067 0001:002631D0 1069 0001:002631D4 1070 0001:002631DE 1072 0001:002631F6 + 1074 0001:00263214 1075 0001:0026324E 1077 0001:00263270 1078 0001:002632BC + 1079 0001:002632D2 1080 0001:002632EC 1082 0001:00263326 1084 0001:00263418 + 1085 0001:00263423 1086 0001:0026342D 1087 0001:00263452 1088 0001:00263463 + 1089 0001:00263469 1090 0001:0026347A 1092 0001:00263492 1093 0001:002634A8 + 1094 0001:002634B5 1096 0001:002634C3 1097 0001:002634D0 1099 0001:002634DD + 1100 0001:002634F8 1101 0001:002634FA 1102 0001:00263509 1104 0001:00263512 + 1111 0001:00263591 1112 0001:002635B2 1117 0001:002635D4 1118 0001:00263600 + 1119 0001:0026364C 1121 0001:0026365D 1122 0001:00263671 1124 0001:002636A3 + 1128 0001:0026389C 1132 0001:00263E20 1133 0001:00263E29 1134 0001:00263E45 + 1137 0001:00263E5C 1139 0001:00263E7C 1140 0001:00263ED6 1141 0001:00263F01 + 1142 0001:00263F0E 1143 0001:00263F1C 1144 0001:00263F72 1151 0001:00263F78 + 1152 0001:00263F9E 1154 0001:00263FA4 1155 0001:00263FFA 1156 0001:00264012 + 1157 0001:0026402A 1158 0001:00264031 1159 0001:00264036 1160 0001:00264041 + 1161 0001:00264071 1163 0001:00264077 1164 0001:00264095 1165 0001:002640C7 + 1166 0001:002640DB 1167 0001:00264149 1169 0001:00264167 1173 0001:002641A3 + 1174 0001:002641B6 1175 0001:002641C6 1176 0001:002641CF 1177 0001:002641DF + 1178 0001:00264217 1180 0001:00264227 1181 0001:00264231 1182 0001:00264238 + 1183 0001:0026424C 1184 0001:00264260 1185 0001:00264274 1186 0001:00264288 + 1188 0001:002642A0 1189 0001:002642AE 1191 0001:002642BA 1192 0001:002642C4 + 1193 0001:002642FB 1196 0001:00264307 1197 0001:00264310 1198 0001:00264321 + 1199 0001:0026435A 1200 0001:00264363 1201 0001:00264370 1202 0001:002643A8 + 1203 0001:002643BC 1204 0001:002643D0 1206 0001:002643EF 1207 0001:002643FC + 1209 0001:00264410 1210 0001:00264424 1212 0001:00264441 1213 0001:0026444E + 1215 0001:0026445D 1216 0001:00264466 1217 0001:0026449A 1218 0001:002644CE + 1221 0001:002644D9 1222 0001:002644E2 1223 0001:002644F3 1224 0001:0026452C + 1225 0001:00264540 1226 0001:00264545 1227 0001:0026455A 1229 0001:00264560 + 1230 0001:00264573 1231 0001:00264574 1227 0001:00264589 1233 0001:0026458F + 1234 0001:00264595 1236 0001:002645A0 1237 0001:002645B9 1239 0001:002645DC + 1241 0001:002645E5 1243 0001:002645F3 1244 0001:00264600 1249 0001:00264612 + 1251 0001:00264636 1252 0001:0026463E 1253 0001:00264654 1252 0001:00264683 + 1254 0001:00264688 1255 0001:002646A1 1257 0001:002646AB 1258 0001:002646B8 + 1260 0001:002646C5 1262 0001:002646D3 1263 0001:002646E0 1266 0001:002646EF + 1267 0001:002646FC 1269 0001:00264709 1271 0001:00264717 1272 0001:00264724 + 1275 0001:00264733 1276 0001:00264740 1278 0001:0026474D 1279 0001:0026475B + 1281 0001:00264779 1282 0001:00264780 1283 0001:00264788 1284 0001:002647A0 + 1283 0001:002647D1 1285 0001:002647D6 1286 0001:002647EA 1287 0001:00264811 + 1288 0001:00264827 1287 0001:00264856 1289 0001:0026485B 1290 0001:00264874 + 1292 0001:0026487E 1293 0001:00264885 1294 0001:0026488C 1295 0001:00264994 + 1301 0001:00264A98 1302 0001:00264AC0 1305 0001:00264AE2 1306 0001:00264AF6 + 1307 0001:00264B03 1308 0001:00264B10 1309 0001:00264B39 1311 0001:00264B44 + 1312 0001:00264B51 1315 0001:00264B60 1316 0001:00264B6D 1318 0001:00264B7A + 1319 0001:00264B85 1321 0001:00264BA0 1322 0001:00264BA7 1324 0001:00264BCF + 1325 0001:00264BD7 1326 0001:00264BF1 1325 0001:00264C1D 1327 0001:00264C20 + 1328 0001:00264C39 1331 0001:00264C43 1332 0001:00264C81 1335 0001:00264C94 + 1336 0001:00264CAF 1337 0001:00264CB8 1339 0001:00264CDE 1340 0001:00264D0C + 1343 0001:00264D14 1344 0001:00264D31 1345 0001:00264D3A 1346 0001:00264D59 + 1347 0001:00264D75 1348 0001:00264D82 1350 0001:00264DA8 1351 0001:00264DDB + 1359 0001:00264DF8 1360 0001:00264E19 1361 0001:00264E26 1363 0001:00264E52 + 1364 0001:00264E5C 1367 0001:00264E7A 1368 0001:00264EBB 1376 0001:00264EDC + 1377 0001:00264EF9 1378 0001:00264F20 1379 0001:00264F26 1381 0001:00264F71 + 1382 0001:00264F7E 1383 0001:00264FB7 1385 0001:00264FCE 1386 0001:00264FDE + 1387 0001:00264FEB 1391 0001:00264FFA 1392 0001:00265007 1393 0001:00265014 + 1394 0001:00265021 1396 0001:0026502E 1397 0001:00265059 1400 0001:002650C4 + 1401 0001:002650E5 1402 0001:0026512A 1404 0001:00265169 1405 0001:0026517C + 1406 0001:0026518A 1408 0001:0026518C 1409 0001:002651AF 1410 0001:002651DB + 1411 0001:0026522C 1417 0001:00265294 1418 0001:002652C1 1419 0001:002652C9 + 1420 0001:002652DC 1421 0001:002652EF 1423 0001:00265302 1424 0001:0026530F + 1425 0001:0026531C 1426 0001:00265329 1427 0001:00265336 1428 0001:00265343 + 1429 0001:00265350 1431 0001:0026535D 1432 0001:0026537B 1434 0001:00265399 + 1435 0001:002653CF 1438 0001:002653F1 1440 0001:002653FB 1441 0001:00265416 + 1443 0001:00265434 1444 0001:0026546A 1447 0001:00265489 1448 0001:00265492 + 1450 0001:002654A8 1452 0001:002654BD 1454 0001:002654D0 1455 0001:002654DD + 1456 0001:002654EA 1457 0001:002654F7 1458 0001:00265504 1459 0001:00265511 + 1460 0001:0026551E 1462 0001:0026552B 1463 0001:00265549 1465 0001:00265567 + 1466 0001:0026559D 1469 0001:002655BF 1471 0001:002655C9 1472 0001:002655E4 + 1474 0001:00265602 1475 0001:00265638 1478 0001:00265657 1479 0001:00265660 + 1481 0001:00265676 1483 0001:0026568B 1485 0001:0026569E 1486 0001:002656AB + 1487 0001:002656B8 1488 0001:002656C5 1489 0001:002656D2 1490 0001:002656DF + 1491 0001:002656EC 1492 0001:00265702 1493 0001:00265716 1494 0001:0026573F + 1495 0001:00265748 1496 0001:0026575E 1497 0001:00265773 1498 0001:0026579D + 1499 0001:002657A6 1501 0001:002657BC 1503 0001:002657CE 1505 0001:002657E1 + 1506 0001:002657EE 1507 0001:002657FB 1508 0001:00265808 1509 0001:00265815 + 1510 0001:00265822 1511 0001:0026582F 1512 0001:00265838 1513 0001:00265840 + 1514 0001:00265849 1515 0001:0026585A 1516 0001:00265860 1517 0001:0026586E + 1518 0001:00265877 1520 0001:00265885 1522 0001:00265890 1523 0001:002658A1 + 1527 0001:002658C4 1528 0001:002658DB 1531 0001:002659BA 1534 0001:00265A50 + 1535 0001:00265A53 1536 0001:00265A5A 1537 0001:00265A69 1538 0001:00265A7D + 1541 0001:00265A80 1542 0001:00265A86 1543 0001:00265A8D 1544 0001:00265A98 + 1545 0001:00265AA5 1546 0001:00265AD1 1547 0001:00265ADF 1548 0001:00265AED + 1549 0001:00265AFB 1551 0001:00265B09 1552 0001:00265B14 1553 0001:00265B22 + 1554 0001:00265B2D 1556 0001:00265B3B 1557 0001:00265B49 1559 0001:00265B57 + 1561 0001:00265B62 1564 0001:00265B68 1566 0001:00265B82 1568 0001:00265B9F + 1570 0001:00265BB9 1571 0001:00265BC6 1572 0001:00265BE8 1575 0001:00265C15 + 1576 0001:00265C22 1577 0001:00265C5D 1580 0001:00265C84 1582 0001:00265C9E + 1584 0001:00265CBB 1586 0001:00265CD5 1587 0001:00265CE2 1588 0001:00265D04 + 1591 0001:00265D31 1592 0001:00265D3E 1593 0001:00265D79 1596 0001:00265DB0 + 1598 0001:00265DC6 1601 0001:00265DDB 1602 0001:00265DE8 1604 0001:00265E03 + 1605 0001:00265E29 1608 0001:00265E30 1610 0001:00265E4C 1611 0001:00265E69 + 1612 0001:00265E6F 1614 0001:00265E7C 1615 0001:00265E89 1616 0001:00265EAB + 1617 0001:00265EF1 1620 0001:00265F0E 1621 0001:00265F1B 1622 0001:00265F4E + 1625 0001:00265F9C 1627 0001:00265FB7 1628 0001:00265FCC 1629 0001:00265FD2 + 1630 0001:00265FE8 1632 0001:0026601A 1633 0001:00266026 1634 0001:0026602D + 1635 0001:00266063 1638 0001:00266094 1640 0001:002660AF 1641 0001:002660C4 + 1642 0001:002660CA 1643 0001:002660E0 1645 0001:00266112 1646 0001:0026611E + 1647 0001:00266125 1648 0001:0026615B 1651 0001:0026618C 1652 0001:002661A6 + 1655 0001:002661AF 1656 0001:002661BC 1657 0001:002661DE 1660 0001:00266253 + 1664 0001:0026629C 1665 0001:002662B1 1666 0001:002662B6 1669 0001:002662B8 + 1670 0001:002662BB 1671 0001:002662C6 1672 0001:002662D3 1673 0001:002662E0 + 1674 0001:002662ED 1675 0001:002662FA 1676 0001:00266307 1677 0001:00266314 + 1678 0001:00266321 1680 0001:0026632E 1683 0001:00266330 1685 0001:00266334 + 1686 0001:00266341 1687 0001:00266347 1688 0001:00266370 1690 0001:00266385 + 1691 0001:0026638F 1692 0001:00266399 1693 0001:002663A7 1696 0001:002663B7 + 1697 0001:002663C7 1698 0001:002663D0 1701 0001:002663D4 1703 0001:002663D8 + 1704 0001:002663E5 1706 0001:002663EB 1707 0001:00266407 1708 0001:00266414 + 1710 0001:00266425 1711 0001:0026642F 1712 0001:00266439 1713 0001:00266443 + 1716 0001:00266453 1718 0001:00266463 1719 0001:0026646C 1726 0001:002664A8 + 1727 0001:002664D5 1728 0001:002664DC 1729 0001:002664F2 1730 0001:00266509 + 1735 0001:002665C3 1737 0001:002665CF 1738 0001:002665F7 1739 0001:00266634 + 1749 0001:00266688 1751 0001:002666A9 1752 0001:002666CE 1753 0001:002666D5 + 1754 0001:002666E2 1755 0001:0026671D 1757 0001:0026672F 1758 0001:00266749 + 1759 0001:00266753 1761 0001:00266760 1762 0001:00266775 1764 0001:00266779 + 1765 0001:00266787 1766 0001:00266794 1767 0001:002667A1 1771 0001:002667B3 + 1772 0001:002667DF 1773 0001:002667E9 1778 0001:00266803 1779 0001:0026682A + 1780 0001:00266846 1781 0001:00266851 1782 0001:0026685E 1783 0001:0026686B + 1785 0001:00266878 1786 0001:00266886 1787 0001:0026688D 1790 0001:002668D8 + 1793 0001:00266958 1795 0001:0026695C 1796 0001:00266965 1798 0001:0026696B + 1799 0001:00266987 1800 0001:00266994 1802 0001:002669A5 1803 0001:002669AF + 1806 0001:002669B9 1807 0001:002669C2 1812 0001:002669C8 1815 0001:002669E6 + 1816 0001:00266A0C 1817 0001:00266A2F 1818 0001:00266A42 1819 0001:00266A62 + 1820 0001:00266A7B 1822 0001:00266A8D 1823 0001:00266A9D 1824 0001:00266ABA + 1825 0001:00266AC8 1827 0001:00266AF7 1832 0001:00266B0C 1834 0001:00266B2A + 1837 0001:00266B37 1838 0001:00266B40 1839 0001:00266B59 1840 0001:00266B6C + 1841 0001:00266B8C 1842 0001:00266BA5 1844 0001:00266BB7 1845 0001:00266BC7 + 1846 0001:00266BD7 1847 0001:00266BF4 1849 0001:00266C24 1852 0001:00266C38 + 1854 0001:00266C3C 1855 0001:00266C45 1856 0001:00266C4B 1857 0001:00266C67 + 1858 0001:00266C74 1860 0001:00266C89 1861 0001:00266C93 1863 0001:00266CA1 + 1864 0001:00266CAA 1869 0001:00266CB0 1871 0001:00266CC8 1872 0001:00266CEB + 1874 0001:00266CFA 1875 0001:00266D08 1879 0001:00266D24 1880 0001:00266D32 + 1882 0001:00266D65 1885 0001:00266D78 1886 0001:00266D94 1887 0001:00266DB0 + 1888 0001:00266DCC 1889 0001:00266DE8 1890 0001:00266E04 1891 0001:00266E20 + 1892 0001:00266E5E 1898 0001:00266EC4 1899 0001:00266EDE 1900 0001:00266EEB + 1901 0001:00266EF9 1902 0001:00266F04 1903 0001:00266F11 1904 0001:00266F1E + 1907 0001:00266F2B 1908 0001:00266F3E 1909 0001:00266F51 1911 0001:00266F59 + 1913 0001:00266F6C 1915 0001:00266F7A 1916 0001:00266F8A 1920 0001:00266F9B + 1921 0001:00266FAB 1922 0001:00266FB7 1923 0001:00266FCD 1925 0001:00266FD5 + 1926 0001:00266FF3 1927 0001:00267002 1933 0001:00267012 1934 0001:00267020 + 1935 0001:0026702A 1937 0001:0026702E 1938 0001:0026703A 1940 0001:0026704A + 1943 0001:00267064 1944 0001:00267073 1946 0001:00267081 1947 0001:00267091 + 1951 0001:0026709F 1952 0001:002670AC 1956 0001:002670C0 1958 0001:002670EA + 1960 0001:00267160 1962 0001:00267163 1963 0001:00267177 1966 0001:0026717C + 1968 0001:0026717F 1969 0001:00267193 1974 0001:00267198 1975 0001:002671B0 + 1977 0001:0026726C 1977 0001:00267273 + +Line numbers for fODBBank(Orders\fODBBank.pas) segment .text + + 241 0001:00267C74 242 0001:00267C97 243 0001:00267C9E 244 0001:00267CA5 + 245 0001:00267CB4 246 0001:00267CC3 247 0001:00267CD4 248 0001:00267CE5 + 249 0001:00267CF6 250 0001:00267D07 251 0001:00267D18 252 0001:00267D29 + 253 0001:00267D30 254 0001:00267D37 255 0001:00267D44 256 0001:00267D51 + 257 0001:00267D5B 258 0001:00267D68 259 0001:00267D73 260 0001:00267D81 + 261 0001:00267D8B 262 0001:00267D95 263 0001:00267D9F 264 0001:00267DA9 + 265 0001:00267DB3 266 0001:00267DBD 267 0001:00267DC4 268 0001:00267DCB + 269 0001:00267DD2 270 0001:00267DDD 271 0001:00267DE8 272 0001:00267DF3 + 273 0001:00267DFD 274 0001:00267E09 275 0001:00267E11 276 0001:00267E19 + 277 0001:00267E2F 278 0001:00267E36 279 0001:00267E40 280 0001:00267E4D + 281 0001:00267E5A 282 0001:00267E67 283 0001:00267E79 284 0001:00267E96 + 285 0001:00267EA6 286 0001:00267EB0 288 0001:00267EBE 289 0001:00267EE3 + 290 0001:00267F0E 291 0001:00267F18 293 0001:00267F2D 295 0001:00267F4A + 296 0001:00267F65 297 0001:00267F73 298 0001:00267F7D 300 0001:00267F83 + 301 0001:00267F93 302 0001:00267FB0 303 0001:00267FB9 304 0001:00267FCC + 305 0001:00267FD7 307 0001:00267FE9 308 0001:00267FF9 309 0001:0026801C + 310 0001:00268026 311 0001:00268036 313 0001:00268043 314 0001:0026804E + 315 0001:00268056 316 0001:0026805E 317 0001:00268071 316 0001:00268093 + 318 0001:00268098 319 0001:002680A2 320 0001:002680B0 321 0001:002680BB + 322 0001:002680D9 323 0001:002680E1 324 0001:002680F1 325 0001:002680FF + 326 0001:00268107 327 0001:00268117 328 0001:0026812A 327 0001:0026814C + 329 0001:00268151 330 0001:00268159 331 0001:0026816C 332 0001:00268179 + 333 0001:00268194 334 0001:002681A7 335 0001:002681B4 337 0001:002681E7 + 338 0001:002681F4 339 0001:00268201 340 0001:0026820E 341 0001:0026821E + 342 0001:00268235 343 0001:0026824F 344 0001:0026825C 345 0001:00268269 + 346 0001:00268276 347 0001:00268283 348 0001:00268290 349 0001:0026829D + 350 0001:002682AA 353 0001:002682BE 354 0001:002682C6 356 0001:0026830D + 359 0001:00268410 360 0001:00268413 361 0001:0026841A 362 0001:00268421 + 364 0001:0026842A 365 0001:00268436 367 0001:0026843D 368 0001:00268444 + 369 0001:00268455 370 0001:00268466 371 0001:00268474 372 0001:0026847B + 373 0001:00268482 379 0001:00268484 380 0001:0026848A 381 0001:00268493 + 382 0001:0026849A 384 0001:002684A3 385 0001:002684B4 387 0001:002684CF + 389 0001:002684E6 390 0001:002684F8 391 0001:00268501 392 0001:0026850A + 393 0001:00268511 394 0001:0026851E 395 0001:00268523 396 0001:00268535 + 398 0001:00268539 399 0001:0026854B 400 0001:0026854C 396 0001:0026855E + 402 0001:00268562 404 0001:00268569 412 0001:00268590 413 0001:002685C8 + 414 0001:002685D7 415 0001:002685E5 418 0001:002685EF 419 0001:002685F8 + 420 0001:00268605 421 0001:00268636 422 0001:00268667 423 0001:00268698 + 424 0001:002686B6 425 0001:002686D9 426 0001:002686E9 427 0001:00268705 + 428 0001:00268721 429 0001:0026873A 430 0001:00268744 431 0001:00268758 + 432 0001:00268767 433 0001:00268790 434 0001:002687A2 435 0001:002687B6 + 436 0001:002687C5 437 0001:002687CD 438 0001:002687DF 439 0001:002687EC + 440 0001:00268803 443 0001:00268835 444 0001:00268844 445 0001:00268852 + 446 0001:0026886B 448 0001:0026888C 451 0001:0026889C 452 0001:002688B9 + 455 0001:002688D5 457 0001:002688E5 458 0001:0026892A 463 0001:00268A00 + 464 0001:00268A11 465 0001:00268A18 466 0001:00268A2B 468 0001:00268A38 + 469 0001:00268A40 470 0001:00268A47 465 0001:00268A48 471 0001:00268A4B + 472 0001:00268A53 473 0001:00268A5B 474 0001:00268A63 475 0001:00268A6B + 476 0001:00268A85 481 0001:00268A8C 482 0001:00268A93 483 0001:00268A9A + 484 0001:00268AB1 486 0001:00268AB6 487 0001:00268AB9 488 0001:00268ABB + 483 0001:00268ABC 489 0001:00268AC2 495 0001:00268AC8 496 0001:00268AEA + 497 0001:00268AF9 498 0001:00268B08 499 0001:00268B16 500 0001:00268B1E + 501 0001:00268B2B 502 0001:00268B3B 503 0001:00268B4D 502 0001:00268B87 + 505 0001:00268B97 506 0001:00268B9F 508 0001:00268BD1 517 0001:00268BEC + 518 0001:00268C19 519 0001:00268C1C 520 0001:00268C37 521 0001:00268C43 + 522 0001:00268C5F 523 0001:00268C86 524 0001:00268C87 525 0001:00268C96 + 527 0001:00268CAE 530 0001:00268CBD 531 0001:00268D00 532 0001:00268D2D + 533 0001:00268D5A 534 0001:00268D89 535 0001:00268DB6 536 0001:00268DE3 + 537 0001:00268E12 538 0001:00268E41 539 0001:00268E50 540 0001:00268E7D + 541 0001:00268E8F 542 0001:00268EA3 543 0001:00268EB1 544 0001:00268EB9 + 546 0001:00268EC5 548 0001:00268ED6 549 0001:00268EEA 550 0001:00268F27 + 551 0001:00268F28 552 0001:00268F6D 557 0001:00268FA0 558 0001:00268FA4 + 559 0001:00268FA9 560 0001:00268FB1 561 0001:00268FBC 562 0001:00268FC2 + 563 0001:00268FD6 564 0001:00268FE3 565 0001:00268FF2 567 0001:00269008 + 568 0001:0026900E 570 0001:0026901F 579 0001:00269038 580 0001:0026903E + 581 0001:0026904A 591 0001:00269050 592 0001:00269055 593 0001:00269057 + 594 0001:00269063 595 0001:00269077 687 0001:0026907C 688 0001:00269081 + 701 0001:00269084 702 0001:00269087 703 0001:00269094 707 0001:00269098 + 708 0001:002690A6 712 0001:002690BC 713 0001:002690CA 717 0001:002690E0 + 718 0001:002690EE 722 0001:00269104 723 0001:00269112 727 0001:00269128 + 728 0001:00269136 732 0001:00269150 733 0001:0026915E 737 0001:00269174 + 738 0001:00269182 742 0001:00269194 743 0001:002691A2 747 0001:002691B4 + 748 0001:002691C2 756 0001:002691D4 757 0001:00269210 758 0001:00269214 + 759 0001:00269218 760 0001:00269220 761 0001:00269227 762 0001:00269236 + 764 0001:00269248 766 0001:0026925F 768 0001:00269263 762 0001:00269264 + 769 0001:00269269 771 0001:0026926F 772 0001:00269273 774 0001:00269278 + 775 0001:0026927F 776 0001:0026928F 777 0001:002692A6 778 0001:002692AD + 779 0001:002692BC 780 0001:002692CE 781 0001:002692E1 782 0001:002692E9 + 784 0001:00269301 786 0001:00269317 787 0001:00269383 789 0001:00269389 + 790 0001:0026938D 792 0001:0026938F 794 0001:002693B7 795 0001:002693BB + 797 0001:002693BD 784 0001:002693BE 798 0001:00269401 803 0001:0026943C + 804 0001:00269442 805 0001:00269469 806 0001:0026947C 812 0001:0026948C + 813 0001:00269493 814 0001:0026949B 815 0001:002694A8 816 0001:002694B4 + 817 0001:002694BD 818 0001:002694C9 823 0001:0026953C 824 0001:00269542 + 825 0001:00269569 826 0001:0026957C 869 0001:0026958C 871 0001:002695B2 + 872 0001:002695BA 874 0001:002695C3 875 0001:002695D0 877 0001:002695D5 + 878 0001:002695E9 880 0001:0026962A 881 0001:00269637 882 0001:0026963C + 877 0001:0026963D 883 0001:00269640 885 0001:0026964D 887 0001:00269677 + 888 0001:00269680 890 0001:002696C2 891 0001:002696CE 893 0001:002696DF + 894 0001:002696EC 895 0001:00269716 896 0001:00269727 898 0001:0026975E + 899 0001:0026978D 901 0001:002697C4 902 0001:002697E7 903 0001:002697F8 + 904 0001:00269827 905 0001:00269838 907 0001:00269848 908 0001:0026988E + 909 0001:002698A3 910 0001:002698B0 912 0001:002698C2 913 0001:002698D5 + 914 0001:002698DE 915 0001:002698FB 918 0001:0026993A 920 0001:00269947 + 921 0001:00269983 923 0001:002699B9 925 0001:002699C1 926 0001:002699FE + 932 0001:00269A36 934 0001:00269A7A 935 0001:00269AA2 936 0001:00269ABF + 937 0001:00269AE7 940 0001:00269B0A 942 0001:00269B13 946 0001:00269B36 + 948 0001:00269B75 953 0001:00269BBA 959 0001:00269C14 960 0001:00269C3E + 962 0001:00269C4B 964 0001:00269C61 967 0001:00269C77 969 0001:00269CC9 + 974 0001:00269CDA 975 0001:00269D05 978 0001:00269D16 980 0001:00269D62 + 985 0001:00269D79 987 0001:00269D86 989 0001:00269D8F 991 0001:00269DB0 + 992 0001:00269DDE 994 0001:00269E07 995 0001:00269E37 996 0001:00269E60 + 997 0001:00269EAF 999 0001:0026A00F 1009 0001:0026A4FC 1010 0001:0026A512 + 1011 0001:0026A514 1012 0001:0026A51C 1014 0001:0026A528 1015 0001:0026A547 + 1016 0001:0026A549 1018 0001:0026A56D 1025 0001:0026A60C 1026 0001:0026A639 + 1027 0001:0026A640 1028 0001:0026A656 1029 0001:0026A66D 1034 0001:0026A727 + 1036 0001:0026A733 1037 0001:0026A75B 1038 0001:0026A798 1086 0001:0026A7EC + 1087 0001:0026A819 1088 0001:0026A821 1089 0001:0026A834 1090 0001:0026A847 + 1092 0001:0026A85A 1093 0001:0026A867 1094 0001:0026A874 1095 0001:0026A881 + 1096 0001:0026A88E 1097 0001:0026A89B 1098 0001:0026A8A8 1100 0001:0026A8B5 + 1101 0001:0026A8D3 1103 0001:0026A8F1 1104 0001:0026A927 1107 0001:0026A949 + 1109 0001:0026A953 1110 0001:0026A96E 1112 0001:0026A98C 1113 0001:0026A9C2 + 1116 0001:0026A9E1 1117 0001:0026A9EA 1119 0001:0026AA00 1121 0001:0026AA15 + 1123 0001:0026AA28 1124 0001:0026AA35 1125 0001:0026AA42 1126 0001:0026AA4F + 1127 0001:0026AA5C 1128 0001:0026AA69 1129 0001:0026AA76 1131 0001:0026AA83 + 1132 0001:0026AAA1 1134 0001:0026AABF 1135 0001:0026AAF5 1138 0001:0026AB17 + 1140 0001:0026AB21 1141 0001:0026AB3C 1143 0001:0026AB5A 1144 0001:0026AB90 + 1147 0001:0026ABAF 1148 0001:0026ABB8 1150 0001:0026ABCE 1152 0001:0026ABE3 + 1154 0001:0026ABF6 1155 0001:0026AC03 1156 0001:0026AC10 1157 0001:0026AC1D + 1158 0001:0026AC2A 1159 0001:0026AC37 1160 0001:0026AC44 1161 0001:0026AC5A + 1162 0001:0026AC6E 1163 0001:0026AC97 1164 0001:0026ACA0 1165 0001:0026ACB6 + 1166 0001:0026ACCB 1167 0001:0026ACF5 1168 0001:0026ACFE 1170 0001:0026AD14 + 1172 0001:0026AD26 1174 0001:0026AD39 1175 0001:0026AD46 1176 0001:0026AD53 + 1177 0001:0026AD60 1178 0001:0026AD6D 1179 0001:0026AD7A 1180 0001:0026AD87 + 1181 0001:0026AD90 1182 0001:0026AD98 1183 0001:0026ADA1 1184 0001:0026ADB2 + 1185 0001:0026ADB8 1186 0001:0026ADC6 1187 0001:0026ADCF 1189 0001:0026ADDD + 1191 0001:0026ADE8 1192 0001:0026ADF9 1196 0001:0026AE1C 1197 0001:0026AE33 + 1200 0001:0026AF12 1205 0001:0026AFA8 1206 0001:0026AFC5 1208 0001:0026AFD3 + 1209 0001:0026AFDD 1211 0001:0026AFEB 1212 0001:0026AFF9 1213 0001:0026B00B + 1214 0001:0026B019 1216 0001:0026B02B 1218 0001:0026B034 1220 0001:0026B056 + 1221 0001:0026B064 1223 0001:0026B07A 1226 0001:0026B08F 1228 0001:0026B0A5 + 1230 0001:0026B0AE 1232 0001:0026B0D2 1233 0001:0026B0E0 1235 0001:0026B0F6 + 1238 0001:0026B10B 1240 0001:0026B121 1242 0001:0026B12A 1244 0001:0026B14C + 1245 0001:0026B15A 1247 0001:0026B16D 1250 0001:0026B17F 1252 0001:0026B192 + 1254 0001:0026B19D 1255 0001:0026B1AB 1257 0001:0026B1BD 1260 0001:0026B1CB + 1262 0001:0026B1DB 1263 0001:0026B223 1266 0001:0026B278 1267 0001:0026B294 + 1268 0001:0026B2B0 1269 0001:0026B2CC 1270 0001:0026B2E8 1271 0001:0026B304 + 1272 0001:0026B320 1273 0001:0026B35E 1279 0001:0026B3C4 1280 0001:0026B3EB + 1281 0001:0026B3F3 1282 0001:0026B3FB 1283 0001:0026B405 1285 0001:0026B411 + 1286 0001:0026B469 1287 0001:0026B47D 1289 0001:0026B4C4 1290 0001:0026B4CE + 1291 0001:0026B4D3 1286 0001:0026B4D4 1292 0001:0026B4D7 1293 0001:0026B4F8 + 1294 0001:0026B519 1295 0001:0026B523 1296 0001:0026B52B 1297 0001:0026B539 + 1298 0001:0026B570 1300 0001:0026B579 1301 0001:0026B59A 1302 0001:0026B5CD + 1303 0001:0026B5E4 1304 0001:0026B654 1306 0001:0026B675 1335 0001:0026B6B5 + 1342 0001:0026B6C7 1344 0001:0026B6EB 1345 0001:0026B6F3 1346 0001:0026B708 + 1345 0001:0026B737 1347 0001:0026B73A 1348 0001:0026B759 1351 0001:0026B764 + 1352 0001:0026B772 1354 0001:0026B794 1355 0001:0026B79C 1356 0001:0026B7A4 + 1357 0001:0026B7BB 1356 0001:0026B7EC 1358 0001:0026B7EF 1359 0001:0026B803 + 1360 0001:0026B82A 1361 0001:0026B83F 1360 0001:0026B86E 1362 0001:0026B871 + 1363 0001:0026B890 1365 0001:0026B89B 1366 0001:0026B8A2 1367 0001:0026B99B + 1373 0001:0026B9F4 1374 0001:0026BA1B 1375 0001:0026BA23 1376 0001:0026BA2B + 1377 0001:0026BA35 1379 0001:0026BA41 1380 0001:0026BA99 1381 0001:0026BAAD + 1383 0001:0026BAF4 1384 0001:0026BAFE 1385 0001:0026BB03 1380 0001:0026BB04 + 1386 0001:0026BB07 1387 0001:0026BB28 1388 0001:0026BB49 1389 0001:0026BB53 + 1390 0001:0026BB5B 1391 0001:0026BB69 1392 0001:0026BBA0 1394 0001:0026BBA9 + 1395 0001:0026BBCA 1396 0001:0026BBFD 1397 0001:0026BC14 1398 0001:0026BC84 + 1400 0001:0026BCA5 1446 0001:0026BCE5 1447 0001:0026BCF3 1449 0001:0026BD15 + 1450 0001:0026BD1D 1451 0001:0026BD25 1452 0001:0026BD3C 1451 0001:0026BD6D + 1453 0001:0026BD70 1454 0001:0026BD84 1455 0001:0026BDAB 1456 0001:0026BDC0 + 1455 0001:0026BDEF 1457 0001:0026BDF2 1458 0001:0026BE11 1460 0001:0026BE1C + 1461 0001:0026BE23 1462 0001:0026BF1C 1466 0001:0026BF78 1467 0001:0026BF85 + 1470 0001:0026BF88 1471 0001:0026BF8B 1472 0001:0026BF98 1473 0001:0026BFA5 + 1474 0001:0026BFB2 1477 0001:0026BFBF 1478 0001:0026BFCC 1479 0001:0026BFD9 + 1480 0001:0026BFE6 1481 0001:0026BFF3 1482 0001:0026C000 1483 0001:0026C00D + 1484 0001:0026C01A 1485 0001:0026C027 1486 0001:0026C035 1487 0001:0026C045 + 1490 0001:0026C054 1491 0001:0026C06A 1492 0001:0026C077 1493 0001:0026C084 + 1494 0001:0026C091 1497 0001:0026C09E 1499 0001:0026C0BB 1500 0001:0026C0C8 + 1502 0001:0026C0D5 1503 0001:0026C0E2 1504 0001:0026C0EF 1505 0001:0026C0FC + 1506 0001:0026C109 1507 0001:0026C116 1508 0001:0026C123 1509 0001:0026C130 + 1510 0001:0026C15A 1513 0001:0026C170 1514 0001:0026C173 1515 0001:0026C180 + 1516 0001:0026C18D 1517 0001:0026C19A 1518 0001:0026C1A8 1519 0001:0026C1B5 + 1520 0001:0026C1C2 1521 0001:0026C1CF 1524 0001:0026C1D4 1525 0001:0026C1D7 + 1526 0001:0026C1E4 1527 0001:0026C1F1 1528 0001:0026C1FE 1529 0001:0026C20B + 1530 0001:0026C218 1531 0001:0026C225 1532 0001:0026C232 1533 0001:0026C23F + 1534 0001:0026C24C 1535 0001:0026C259 1536 0001:0026C266 1537 0001:0026C273 + 1540 0001:0026C278 1541 0001:0026C27B 1542 0001:0026C282 1543 0001:0026C28F + 1548 0001:0026C294 1549 0001:0026C2AE 1550 0001:0026C2BB 1551 0001:0026C2C9 + 1552 0001:0026C2D4 1553 0001:0026C2E1 1554 0001:0026C2EE 1557 0001:0026C2FB + 1558 0001:0026C30E 1559 0001:0026C321 1561 0001:0026C329 1563 0001:0026C33C + 1565 0001:0026C34A 1566 0001:0026C35A 1570 0001:0026C36B 1571 0001:0026C37B + 1572 0001:0026C387 1573 0001:0026C39D 1575 0001:0026C3A5 1576 0001:0026C3C3 + 1577 0001:0026C3D2 1583 0001:0026C3E2 1584 0001:0026C3F0 1585 0001:0026C3FA + 1587 0001:0026C3FE 1588 0001:0026C40A 1590 0001:0026C41A 1593 0001:0026C434 + 1594 0001:0026C443 1596 0001:0026C451 1597 0001:0026C461 1601 0001:0026C46F + 1602 0001:0026C47C 1606 0001:0026C490 1608 0001:0026C4BA 1611 0001:0026C530 + 1613 0001:0026C550 1614 0001:0026C5AA 1615 0001:0026C5D5 1616 0001:0026C5E2 + 1617 0001:0026C5F0 1618 0001:0026C646 1621 0001:0026C64C 1623 0001:0026C66C + 1624 0001:0026C6C6 1625 0001:0026C6F1 1626 0001:0026C6FE 1627 0001:0026C70C + 1628 0001:0026C762 1632 0001:0026C768 1633 0001:0026C771 1634 0001:0026C78E + 1638 0001:0026C794 1639 0001:0026C79D 1640 0001:0026C7BA 1645 0001:0026C7C0 + 1647 0001:0026C7D8 1648 0001:0026C7FB 1650 0001:0026C80A 1651 0001:0026C818 + 1655 0001:0026C834 1656 0001:0026C842 1658 0001:0026C875 1661 0001:0026C888 + 1663 0001:0026C88B 1665 0001:0026C8A9 1666 0001:0026C8B6 1667 0001:0026C8C3 + 1668 0001:0026C8D0 1669 0001:0026C8DD 1672 0001:0026C8F2 1673 0001:0026C90B + 1674 0001:0026C912 1675 0001:0026C91F 1676 0001:0026C92C 1677 0001:0026C939 + 1678 0001:0026C946 1681 0001:0026C958 1682 0001:0026C96D 1683 0001:0026C97A + 1684 0001:0026C987 1685 0001:0026C994 1686 0001:0026C9A1 1689 0001:0026C9B1 + 1692 0001:0026C9B4 1693 0001:0026C9D4 1694 0001:0026CA19 1696 0001:0026CA58 + 1697 0001:0026CA6B 1698 0001:0026CA79 1700 0001:0026CA7B 1701 0001:0026CAD6 + 1706 0001:0026CB3C 1709 0001:0026CB5B 1710 0001:0026CB63 1711 0001:0026CB77 + 1710 0001:0026CB98 1713 0001:0026CBB8 1718 0001:0026CBC0 1721 0001:0026CBDD + 1722 0001:0026CBE5 1723 0001:0026CBF9 1726 0001:0026CC3D 1722 0001:0026CC5E + 1728 0001:0026CC83 1738 0001:0026CC9C 1739 0001:0026CCC3 1740 0001:0026CCD3 + 1741 0001:0026CCE2 1742 0001:0026CCF1 1743 0001:0026CD00 1744 0001:0026CD0E + 1745 0001:0026CD16 1746 0001:0026CD1E 1747 0001:0026CD26 1748 0001:0026CD2E + 1749 0001:0026CD36 1750 0001:0026CD43 1751 0001:0026CD4B 1752 0001:0026CD52 + 1753 0001:0026CD5A 1754 0001:0026CD6B 1755 0001:0026CD84 1756 0001:0026CD8C + 1757 0001:0026CD9D 1758 0001:0026CDB6 1759 0001:0026CDCC 1761 0001:0026CE14 + 1762 0001:0026CE68 1763 0001:0026CEBC 1765 0001:0026CF01 1766 0001:0026CF08 + 1768 0001:0026CF11 1769 0001:0026CF1E 1770 0001:0026CF67 1771 0001:0026CF71 + 1772 0001:0026CFDF 1773 0001:0026CFE9 1774 0001:0026D033 1776 0001:0026D07F + 1777 0001:0026D08F 1780 0001:0026D09F 1781 0001:0026D0AF 1782 0001:0026D0BF + 1783 0001:0026D0CF 1784 0001:0026D0DF 1785 0001:0026D0EF 1787 0001:0026D100 + 1789 0001:0026D145 1791 0001:0026D17D 1792 0001:0026D185 1793 0001:0026D196 + 1795 0001:0026D1B2 1798 0001:0026D267 1799 0001:0026D29E 1803 0001:0026D2CD + 1804 0001:0026D2D9 1811 0001:0026D376 1813 0001:0026D382 1815 0001:0026D388 + 1816 0001:0026D3B7 1820 0001:0026D3C1 1793 0001:0026D3C4 1822 0001:0026D3CD + 1824 0001:0026D3EF 1825 0001:0026D3F9 1827 0001:0026D421 1829 0001:0026D45B + 1830 0001:0026D462 1831 0001:0026D486 1832 0001:0026D496 1833 0001:0026D4A6 + 1835 0001:0026D4A8 1825 0001:0026D4AB 1837 0001:0026D4B4 1838 0001:0026D4BC + 1839 0001:0026D4CD 1841 0001:0026D4E9 1843 0001:0026D529 1844 0001:0026D56E + 1846 0001:0026D570 1839 0001:0026D573 1847 0001:0026D57C 1848 0001:0026D583 + 1850 0001:0026D58C 1851 0001:0026D599 1852 0001:0026D5E2 1853 0001:0026D604 + 1854 0001:0026D672 1855 0001:0026D67C 1857 0001:0026D6C6 1858 0001:0026D6D6 + 1861 0001:0026D6E6 1862 0001:0026D6F6 1863 0001:0026D706 1864 0001:0026D716 + 1865 0001:0026D726 1866 0001:0026D736 1868 0001:0026D747 1869 0001:0026D74F + 1870 0001:0026D75D 1871 0001:0026D764 1872 0001:0026D7C1 1873 0001:0026D7CE + 1875 0001:0026D7EC 1876 0001:0026D80E 1877 0001:0026D81E 1879 0001:0026D846 + 1883 0001:0026D8AB 1884 0001:0026D907 1885 0001:0026D97C 1886 0001:0026D9D8 + 1887 0001:0026DA4F 1889 0001:0026DAC0 1890 0001:0026DAC3 1891 0001:0026DACB + 1892 0001:0026DAD0 1893 0001:0026DAD5 1894 0001:0026DAE6 1896 0001:0026DAFD + 1898 0001:0026DB40 1899 0001:0026DB54 1901 0001:0026DB71 1903 0001:0026DBDB + 1904 0001:0026DBE0 1906 0001:0026DBE2 1907 0001:0026DBE9 1899 0001:0026DBEC + 1908 0001:0026DBEF 1910 0001:0026DBF5 1911 0001:0026DC2E 1914 0001:0026DC35 + 1894 0001:0026DC36 1915 0001:0026DC3F 1917 0001:0026DC49 1918 0001:0026DC5A + 1919 0001:0026DC62 1920 0001:0026DC7A 1921 0001:0026DC8B 1922 0001:0026DCB6 + 1923 0001:0026DCC0 1925 0001:0026DCDA 1873 0001:0026DCDD 1926 0001:0026DCE6 + 1928 0001:0026DCF3 1929 0001:0026DD78 1931 0001:0026DDB2 1932 0001:0026DE14 + 1934 0001:0026DE34 1935 0001:0026DEB6 1936 0001:0026DF27 1938 0001:0026DF64 + 1939 0001:0026DF6D 1941 0001:0026DF9E 1942 0001:0026E038 1944 0001:0026E0C1 + 1946 0001:0026E0E1 1947 0001:0026E135 1952 0001:0026E16E 1953 0001:0026E17A + 1955 0001:0026E191 1956 0001:0026E1E7 1960 0001:0026E21E 1961 0001:0026E23A + 1965 0001:0026E247 1967 0001:0026E254 1968 0001:0026E2D6 1969 0001:0026E347 + 1971 0001:0026E3CC 1972 0001:0026E43D 1973 0001:0026E4AE 1975 0001:0026E4E5 + 1976 0001:0026E50D 1977 0001:0026E514 1978 0001:0026E526 1980 0001:0026E53F + 1981 0001:0026E5C1 1982 0001:0026E5C4 1978 0001:0026E5C5 1983 0001:0026E5CE + 1984 0001:0026E5E1 1986 0001:0026E5F5 1987 0001:0026E5FD 1988 0001:0026E605 + 1990 0001:0026E615 1991 0001:0026E61D 1993 0001:0026E626 1994 0001:0026E639 + 1995 0001:0026E649 1996 0001:0026E65A 2030 0001:0026E665 2031 0001:0026E675 + 2032 0001:0026E688 2033 0001:0026EA47 2037 0001:0026ECAC 2038 0001:0026ECB1 + 2039 0001:0026ECBB 2040 0001:0026ECC5 2041 0001:0026ECCF 2042 0001:0026ECD9 + 2043 0001:0026ECE3 2044 0001:0026ECED 2051 0001:0026ECF0 2053 0001:0026ED12 + 2054 0001:0026ED21 2055 0001:0026ED28 2056 0001:0026ED30 2057 0001:0026ED38 + 2058 0001:0026ED48 2059 0001:0026ED61 2060 0001:0026ED69 2061 0001:0026EDAB + 2063 0001:0026EDB1 2065 0001:0026EDC8 2066 0001:0026EDED 2067 0001:0026EE04 + 2069 0001:0026EE59 2071 0001:0026EE89 2072 0001:0026EE93 2073 0001:0026EEA3 + 2075 0001:0026EEB0 2076 0001:0026EEBD 2077 0001:0026EED5 2078 0001:0026EED7 + 2066 0001:0026EEDA 2079 0001:0026EEE4 2063 0001:0026EEE5 2081 0001:0026EEEE + 2082 0001:0026EEF9 2084 0001:0026EF12 2085 0001:0026EF30 2086 0001:0026EF3F + 2088 0001:0026EF61 2092 0001:0026EFB7 2093 0001:0026F004 2094 0001:0026F064 + 2095 0001:0026F0B1 2097 0001:0026F113 2098 0001:0026F116 2082 0001:0026F117 + 2099 0001:0026F120 2100 0001:0026F18C 2102 0001:0026F1C6 2103 0001:0026F1CC + 2105 0001:0026F1FD 2106 0001:0026F294 2108 0001:0026F31B 2110 0001:0026F33B + 2111 0001:0026F38B 2116 0001:0026F3C1 2117 0001:0026F3C7 2119 0001:0026F3DD + 2120 0001:0026F42D 2124 0001:0026F460 2125 0001:0026F479 2128 0001:0026F484 + 2130 0001:0026F4B7 2131 0001:0026F516 2133 0001:0026F534 2134 0001:0026F5AA + 2136 0001:0026F60F 2137 0001:0026F674 2138 0001:0026F6D9 2139 0001:0026F70A + 2140 0001:0026F72C 2141 0001:0026F733 2142 0001:0026F745 2144 0001:0026F763 + 2145 0001:0026F7E5 2146 0001:0026F7E8 2142 0001:0026F7EB 2147 0001:0026F7F4 + 2149 0001:0026F801 2150 0001:0026F808 2151 0001:0026F815 2153 0001:0026F822 + 2154 0001:0026F9ED 2157 0001:0026FB1C 2159 0001:0026FB1F 2160 0001:0026FB2D + 2161 0001:0026FB37 2162 0001:0026FB41 2163 0001:0026FB4B 2164 0001:0026FB52 + 2165 0001:0026FB5F 2166 0001:0026FB6C 2167 0001:0026FB76 2176 0001:0026FB78 + 2177 0001:0026FB9D 2179 0001:0026FBA6 2180 0001:0026FBBB 2182 0001:0026FBBD + 2183 0001:0026FBC1 2185 0001:0026FBCF 2186 0001:0026FBE3 2188 0001:0026FC14 + 2189 0001:0026FC18 2190 0001:0026FC1A 2185 0001:0026FC1B 2192 0001:0026FC1E + 2193 0001:0026FC24 2194 0001:0026FC2E 2195 0001:0026FC5B 2198 0001:0026FD44 + 2200 0001:0026FD5E 2201 0001:0026FD6C 2202 0001:0026FDFE 2205 0001:0026FE18 + 2207 0001:0026FE1B 2209 0001:0026FE29 2210 0001:0026FE5C 2212 0001:0026FE7B + 2215 0001:0026FEBC 2217 0001:0026FEDC 2219 0001:0026FEFA 2220 0001:0026FF3E + 2222 0001:0026FF5B 2223 0001:0026FF68 2227 0001:0026FF77 2228 0001:0026FF84 + 2229 0001:0026FF91 2230 0001:0026FF9E 2231 0001:0026FFAC 2234 0001:0027001C + 2237 0001:00270054 2239 0001:0027006C 2240 0001:0027007A 2241 0001:002700D5 + 2244 0001:002700EC 2246 0001:00270109 2247 0001:0027010B 2248 0001:00270119 + 2249 0001:00270133 2250 0001:002701A9 2253 0001:002701C0 2255 0001:002701DA + 2256 0001:002701E8 2257 0001:00270202 2258 0001:0027025D 2261 0001:00270274 + 2263 0001:0027028E 2264 0001:0027029C 2265 0001:002702B6 2266 0001:00270311 + 2269 0001:00270328 2271 0001:00270349 2273 0001:0027035B 2275 0001:00270389 + 2276 0001:0027038F 2278 0001:002703B4 2279 0001:00270427 2281 0001:002704A2 + 2283 0001:002704C2 2284 0001:00270512 2289 0001:00270548 2290 0001:0027054E + 2292 0001:00270564 2293 0001:002705B4 2297 0001:002705E7 2298 0001:00270600 + 2302 0001:002706BF 2304 0001:00270788 2304 0001:0027078F + +Line numbers for fOtherSchedule(Orders\fOtherSchedule.pas) segment .text + + 85 0001:00270C2C 86 0001:00270C4A 87 0001:00270C4E 88 0001:00270C5C + 89 0001:00270C72 90 0001:00270C79 91 0001:00270C80 93 0001:00270C8D + 94 0001:00270CA5 97 0001:00270CB8 99 0001:00270CE7 106 0001:00270D24 + 107 0001:00270D3B 108 0001:00270D42 109 0001:00270D49 110 0001:00270D6D + 111 0001:00270D72 110 0001:00270D7F 112 0001:00270D84 113 0001:00270D96 + 114 0001:00270DA1 115 0001:00270DAB 116 0001:00270DB6 117 0001:00270DC3 + 118 0001:00270DF4 122 0001:00270E48 123 0001:00270E52 126 0001:00270E54 + 127 0001:00270E57 130 0001:00270ED5 131 0001:00270EDF 133 0001:00270EE1 + 135 0001:00270EF0 136 0001:00270EFA 138 0001:00270EFC 139 0001:00270F06 + 145 0001:00270F60 146 0001:00270F80 148 0001:00270F8D 149 0001:00270F9B + 150 0001:00270FAB 152 0001:00270FD1 154 0001:00270FEF 155 0001:00270FF9 + 159 0001:00271008 160 0001:00271010 161 0001:00271018 163 0001:0027102E + 164 0001:0027104F 165 0001:00271077 161 0001:00271078 166 0001:0027107D + 168 0001:00271082 170 0001:00271092 171 0001:002710A9 173 0001:002710C5 + 166 0001:002710C6 174 0001:002710CB 176 0001:002710D7 177 0001:002710E3 + 178 0001:00271100 179 0001:0027110C 181 0001:0027111C 182 0001:0027112A + 183 0001:00271172 189 0001:002711C8 190 0001:002711E8 191 0001:002711F0 + 192 0001:002711F8 193 0001:00271200 194 0001:00271219 195 0001:0027123C + 197 0001:00271252 198 0001:00271273 199 0001:0027129B 195 0001:0027129C + 200 0001:002712A1 202 0001:002712A6 204 0001:002712B6 205 0001:002712CD + 207 0001:002712E9 200 0001:002712EA 208 0001:002712EF 210 0001:002712FB + 211 0001:00271307 213 0001:00271324 215 0001:00271334 216 0001:00271342 + 217 0001:0027135C 218 0001:002713A4 221 0001:002713D8 222 0001:002713DB + 223 0001:002713E2 224 0001:002713EB 225 0001:002713F2 226 0001:002713F9 + 229 0001:002713FC 230 0001:002713FF 231 0001:00271406 232 0001:0027140F + 233 0001:00271416 234 0001:0027141D 237 0001:00271420 238 0001:00271423 + 239 0001:0027142A 240 0001:00271433 241 0001:0027143A 242 0001:00271441 + 245 0001:00271444 246 0001:00271447 247 0001:0027144E 248 0001:00271457 + 249 0001:0027145E 250 0001:00271465 253 0001:00271468 254 0001:0027146B + 255 0001:00271472 256 0001:0027147B 257 0001:00271482 258 0001:00271489 + 261 0001:0027148C 262 0001:0027148F 263 0001:00271496 264 0001:0027149F + 265 0001:002714A6 266 0001:002714AD 269 0001:002714B0 270 0001:002714B3 + 271 0001:002714BA 272 0001:002714C3 273 0001:002714CA 274 0001:002714D1 + 279 0001:002714D4 280 0001:002714F6 281 0001:0027150C 282 0001:0027152C + 283 0001:00271558 284 0001:0027156E 285 0001:00271589 287 0001:0027159B + 288 0001:002715BB 290 0001:002715D1 291 0001:002715E4 292 0001:0027160F + 294 0001:00271621 296 0001:0027164B 297 0001:0027166B 298 0001:00271687 + 299 0001:00271695 300 0001:002716BE 305 0001:002716E8 306 0001:002716EC + 307 0001:002716FC 308 0001:0027170C 309 0001:0027171C 310 0001:0027172C + 311 0001:0027173C 312 0001:0027174C 313 0001:0027175C 314 0001:0027176D + 315 0001:0027177E 316 0001:00271783 315 0001:00271790 317 0001:00271795 + 318 0001:002717A0 319 0001:002717AB 320 0001:002717B8 326 0001:002717BC + 327 0001:002717D9 328 0001:002717E0 330 0001:002717F2 331 0001:00271812 + 332 0001:0027183E 333 0001:00271849 335 0001:00271864 337 0001:00271876 + 338 0001:00271896 340 0001:002718AC 341 0001:002718BF 342 0001:002718EA + 343 0001:00271908 344 0001:0027190D 345 0001:0027191A 346 0001:00271928 + 347 0001:0027192F 348 0001:00271958 354 0001:00271984 355 0001:002719A6 + 356 0001:002719AE 357 0001:002719C6 358 0001:002719E2 357 0001:00271A05 + 359 0001:00271A08 360 0001:00271A38 364 0001:00271A58 365 0001:00271A62 + 367 0001:00271A70 368 0001:00271A75 370 0001:00271A8A 372 0001:00271A95 + 385 0001:00271A9C 386 0001:00271ABE 389 0001:00271AD1 390 0001:00271AE8 + 391 0001:00271B0A 393 0001:00271B29 395 0001:00271B81 396 0001:00271B97 + 397 0001:00271BA5 399 0001:00271BD0 401 0001:00271C28 402 0001:00271C3E + 403 0001:00271C4C 405 0001:00271C77 407 0001:00271CCF 408 0001:00271CE5 + 409 0001:00271CF3 411 0001:00271D1E 413 0001:00271D76 414 0001:00271D8C + 415 0001:00271D9A 417 0001:00271DC5 419 0001:00271E1D 420 0001:00271E33 + 421 0001:00271E41 423 0001:00271E6C 425 0001:00271EC4 426 0001:00271EDA + 427 0001:00271EE8 429 0001:00271F13 431 0001:00271F6B 432 0001:00271F81 + 433 0001:00271F8F 435 0001:00271FB7 436 0001:00271FC0 386 0001:00271FC1 + 437 0001:00271FEC 439 0001:002720A8 441 0001:002720CE 442 0001:002720D6 + 443 0001:002720DE 445 0001:002720FA 446 0001:00272106 447 0001:00272117 + 449 0001:0027211C 450 0001:0027212C 451 0001:0027213A 453 0001:0027215B + 454 0001:00272189 457 0001:002721B9 458 0001:002721E7 459 0001:002721E9 + 460 0001:0027220C 462 0001:00272227 463 0001:00272234 464 0001:00272239 + 463 0001:00272248 465 0001:0027224D 466 0001:0027225F 468 0001:0027226F + 469 0001:0027227B 470 0001:0027228D 471 0001:0027229F 472 0001:002722B1 + 473 0001:002722C3 474 0001:002722D5 475 0001:002722E7 476 0001:002722F9 + 479 0001:00272302 480 0001:0027238D 483 0001:002723A0 485 0001:002723A3 + 486 0001:002723C4 489 0001:002723C8 491 0001:002723CB 492 0001:002723D2 + 493 0001:002723DB 494 0001:002723E2 495 0001:002723E9 500 0001:002723EC + 501 0001:0027241C 502 0001:00272426 504 0001:0027242B 505 0001:00272432 + 507 0001:00272437 508 0001:0027246B 509 0001:0027247C 510 0001:002724B0 + 511 0001:002724C1 512 0001:002724F5 513 0001:00272506 514 0001:0027253A + 515 0001:0027254B 516 0001:0027257F 517 0001:00272590 518 0001:002725C4 + 519 0001:002725D2 520 0001:00272606 522 0001:00272614 523 0001:0027263D + 527 0001:00272714 529 0001:0027271A 530 0001:00272721 532 0001:00272733 + 533 0001:0027273A 537 0001:00272740 539 0001:00272746 541 0001:0027274C + 542 0001:00272753 544 0001:00272765 546 0001:0027276C 549 0001:00272774 + 551 0001:00272777 552 0001:00272787 553 0001:00272797 554 0001:002727A7 + 555 0001:002727B7 556 0001:002727C7 557 0001:002727D7 558 0001:002727E7 + 560 0001:0027281C 560 0001:00272823 + +Line numbers for fODMeds(Orders\fODMeds.pas) segment .text + + 438 0001:002736C0 439 0001:002736E2 440 0001:002736F6 441 0001:00273700 + 442 0001:0027370B 443 0001:0027371B 444 0001:00273725 445 0001:0027372F + 446 0001:00273737 448 0001:00273743 449 0001:00273752 450 0001:0027375A + 452 0001:0027375F 453 0001:00273778 454 0001:00273791 455 0001:002737AA + 456 0001:002737CA 457 0001:002737D4 458 0001:002737DE 459 0001:002737E8 + 460 0001:002737F2 461 0001:00273813 462 0001:0027381D 463 0001:00273831 + 464 0001:0027383B 465 0001:00273863 466 0001:00273878 467 0001:0027388D + 468 0001:002738A2 469 0001:002738AC 470 0001:002738D0 471 0001:002738F4 + 472 0001:00273918 473 0001:0027392B 474 0001:00273943 477 0001:0027394D + 478 0001:0027396A 479 0001:00273971 480 0001:0027398F 481 0001:002739AB + 482 0001:002739DA 483 0001:002739EC 484 0001:002739F7 486 0001:00273A03 + 490 0001:00273A13 492 0001:00273A1F 493 0001:00273A2E 494 0001:00273A40 + 495 0001:00273A52 496 0001:00273A64 497 0001:00273A76 498 0001:00273A88 + 499 0001:00273A9C 500 0001:00273AB0 501 0001:00273AC4 502 0001:00273AD8 + 504 0001:00273AEC 507 0001:00273AFF 509 0001:00273B0E 510 0001:00273B1F + 511 0001:00273B35 512 0001:00273B50 513 0001:00273B7A 514 0001:00273B87 + 516 0001:00273BAB 517 0001:00273BB5 519 0001:00273BC2 520 0001:00273BD5 + 521 0001:00273BEC 522 0001:00273C01 523 0001:00273C0E 524 0001:00273C1B + 525 0001:00273C30 526 0001:00273C43 528 0001:00273C49 529 0001:00273C60 + 530 0001:00273C7B 533 0001:00273C8F 534 0001:00273CA8 535 0001:00273CAF + 536 0001:00273CC2 539 0001:00273CD4 540 0001:00273CED 541 0001:00273D16 + 542 0001:00273D3F 543 0001:00273D49 544 0001:00273D53 545 0001:00273D5D + 546 0001:00273D67 547 0001:00273D71 548 0001:00273DA0 551 0001:00273F84 + 553 0001:00273F90 554 0001:00273F9E 556 0001:00273FAC 557 0001:00273FBA + 558 0001:00273FC8 559 0001:00273FD6 560 0001:00273FE9 561 0001:00273FFD + 562 0001:00274008 566 0001:0027400C 567 0001:00274028 568 0001:00274030 + 569 0001:00274054 570 0001:0027405E 571 0001:00274066 572 0001:00274076 + 573 0001:00274084 574 0001:00274094 575 0001:002740A4 576 0001:002740B5 + 577 0001:002740BF 578 0001:002740C9 579 0001:002740DA 580 0001:002740E7 + 581 0001:002740F1 582 0001:00274118 588 0001:0027411C 589 0001:00274147 + 590 0001:00274155 591 0001:00274173 593 0001:00274184 594 0001:002741B4 + 596 0001:002741C5 598 0001:002741CB 599 0001:002741D5 603 0001:002741E1 + 604 0001:002741EB 606 0001:002741F5 607 0001:00274220 608 0001:00274243 + 610 0001:00274257 611 0001:00274261 612 0001:00274293 613 0001:0027429B + 614 0001:002742A3 615 0001:002742AB 616 0001:002742C6 617 0001:002742D6 + 619 0001:002742F5 621 0001:00274303 623 0001:00274322 625 0001:00274345 + 626 0001:00274364 628 0001:00274370 637 0001:0027437B 621 0001:0027437E + 640 0001:00274383 641 0001:00274399 642 0001:002743A3 645 0001:002743AD + 647 0001:002743D7 648 0001:00274407 649 0001:00274412 650 0001:00274422 + 651 0001:0027442D 652 0001:00274433 653 0001:00274445 654 0001:00274455 + 655 0001:00274468 656 0001:00274473 658 0001:00274484 659 0001:0027448F + 660 0001:0027449B 661 0001:002744DA 668 0001:00274558 669 0001:0027455F + 670 0001:00274586 671 0001:0027459A 681 0001:002745AC 684 0001:002745D2 + 686 0001:002745ED 687 0001:00274616 689 0001:00274625 691 0001:00274637 + 692 0001:00274645 695 0001:00274654 696 0001:0027467D 698 0001:0027468E + 700 0001:002746D1 709 0001:0027474C 710 0001:00274770 711 0001:00274787 + 712 0001:0027479E 713 0001:002747A9 714 0001:002747D5 715 0001:0027480E + 716 0001:0027481D 718 0001:0027482D 719 0001:00274858 721 0001:00274862 + 722 0001:00274882 723 0001:002748B6 724 0001:002748F7 725 0001:00274913 + 726 0001:00274944 727 0001:00274964 729 0001:0027498B 731 0001:002749C2 + 733 0001:00274BD8 734 0001:00274BFC 735 0001:00274C07 736 0001:00274C12 + 737 0001:00274C2D 738 0001:00274C4F 739 0001:00274C67 741 0001:00274C71 + 743 0001:00274C8F 745 0001:00274CB5 746 0001:00274CC1 747 0001:00274CD3 + 749 0001:00274CE4 751 0001:00274D0B 752 0001:00274D17 755 0001:00274D28 + 756 0001:00274D72 757 0001:00274D93 739 0001:00274DAC 760 0001:00274DB6 + 762 0001:00274DCB 764 0001:00274DEA 766 0001:00274E3A 767 0001:00274E46 + 769 0001:00274E4B 762 0001:00274E4E 771 0001:00274E53 773 0001:00274E63 + 774 0001:00274E91 775 0001:00274ECE 776 0001:00274F00 777 0001:00274F0C + 778 0001:00274F40 780 0001:00274F4C 781 0001:00274F79 782 0001:00274F98 + 784 0001:00274FA4 785 0001:00274FB0 787 0001:00274FB2 788 0001:00274FE9 + 791 0001:0027505A 794 0001:002752B8 795 0001:002752C4 796 0001:002752EE + 799 0001:002752F4 800 0001:002752FB 801 0001:00275308 802 0001:0027531D + 803 0001:00275350 804 0001:00275376 805 0001:00275386 806 0001:00275396 + 807 0001:002753A6 808 0001:002753B6 809 0001:002753C6 810 0001:002753D6 + 811 0001:002753E6 812 0001:002753F6 813 0001:00275406 814 0001:00275416 + 815 0001:00275426 816 0001:00275436 817 0001:00275446 818 0001:00275456 + 819 0001:00275466 820 0001:00275476 825 0001:00275488 826 0001:00275491 + 827 0001:0027549E 828 0001:002754B3 829 0001:002754CD 830 0001:002754E7 + 831 0001:002754F7 832 0001:00275507 833 0001:00275517 834 0001:00275527 + 835 0001:00275537 836 0001:00275547 837 0001:00275557 838 0001:00275567 + 839 0001:00275577 840 0001:00275587 841 0001:00275597 842 0001:002755A7 + 843 0001:002755B7 844 0001:002755C7 845 0001:002755D7 846 0001:002755E7 + 847 0001:002755F9 848 0001:00275606 849 0001:00275610 850 0001:00275626 + 851 0001:0027563A 858 0001:0027565C 859 0001:00275668 860 0001:00275673 + 862 0001:0027567F 863 0001:00275687 865 0001:0027568F 871 0001:00275694 + 872 0001:0027569D 873 0001:002756A5 874 0001:002756C2 876 0001:002756D2 + 877 0001:002756F2 881 0001:002756F8 882 0001:002756FF 884 0001:0027570B + 885 0001:0027571E 887 0001:00275728 892 0001:0027572C 893 0001:00275755 + 894 0001:0027575C 895 0001:00275766 897 0001:00275788 898 0001:002757A8 + 899 0001:00275801 895 0001:00275804 900 0001:00275832 907 0001:00275838 + 908 0001:0027585B 910 0001:00275876 911 0001:00275891 913 0001:0027589B + 914 0001:002758A9 915 0001:002758B3 917 0001:002758C0 919 0001:002758CD + 920 0001:002758D7 921 0001:002758E8 922 0001:002758FC 923 0001:00275922 + 924 0001:00275933 925 0001:0027594D 928 0001:00275974 932 0001:0027597C + 933 0001:0027598B 934 0001:002759AE 937 0001:002759B4 938 0001:002759C0 + 939 0001:002759CC 940 0001:002759D6 946 0001:002759DC 947 0001:002759E9 + 948 0001:002759F8 949 0001:00275A0A 950 0001:00275A19 951 0001:00275A3A + 952 0001:00275A46 953 0001:00275A63 954 0001:00275A6F 961 0001:00275A74 + 962 0001:00275A97 963 0001:00275AA1 964 0001:00275AA5 965 0001:00275AAF + 967 0001:00275AE5 968 0001:00275AED 969 0001:00275B22 970 0001:00275B30 + 971 0001:00275B44 972 0001:00275B8A 974 0001:00275B90 975 0001:00275BB7 + 977 0001:00275BC9 979 0001:00275BD3 980 0001:00275BE1 981 0001:00275C08 + 982 0001:00275C26 983 0001:00275C3F 985 0001:00275C51 988 0001:00275C71 + 990 0001:00275C7B 992 0001:00275C85 993 0001:00275CAC 994 0001:00275CCA + 995 0001:00275CE3 996 0001:00275CF3 998 0001:00275D05 999 0001:00275D49 + 1003 0001:00275D4F 1004 0001:00275D5F 1005 0001:00275D6F 1006 0001:00275D81 + 1008 0001:00275D92 1009 0001:00275D9E 1010 0001:00275DA2 1018 0001:00275DAC + 1020 0001:00275DB2 1021 0001:00275DE7 1023 0001:00275DF8 1024 0001:00275E13 + 1027 0001:00275E30 1028 0001:00275E41 1030 0001:00275E6D 1031 0001:00275E77 + 1032 0001:00275E89 1033 0001:00275E9A 1034 0001:00275EAC 1035 0001:00275EBD + 1037 0001:00275EC3 1038 0001:00275ED7 1040 0001:00275EEB 1041 0001:00275F39 + 1044 0001:00275F40 1045 0001:00275F4C 1046 0001:00275F54 1047 0001:00275F84 + 1052 0001:00275F88 1054 0001:00275F94 1055 0001:00275FA0 1057 0001:00275FB1 + 1058 0001:00275FCF 1059 0001:00276003 1062 0001:00276015 1065 0001:00276030 + 1067 0001:0027603C 1068 0001:0027604C 1070 0001:0027605C 1071 0001:00276073 + 1074 0001:00276078 1075 0001:00276084 1076 0001:0027608F 1080 0001:00276094 + 1081 0001:002760A3 1082 0001:002760A9 1086 0001:002760B0 1105 0001:002760BF + 1108 0001:002760C8 1109 0001:002760D4 1110 0001:00276109 1117 0001:00276110 + 1119 0001:0027611F 1121 0001:0027613F 1125 0001:0027618E 1126 0001:0027619C + 1127 0001:002761A9 1130 0001:002761B6 1132 0001:002761DF 1134 0001:00276208 + 1136 0001:00276236 1137 0001:0027624E 1138 0001:00276266 1139 0001:00276280 + 1140 0001:0027629A 1145 0001:002762A0 1146 0001:002762C9 1147 0001:002762FB + 1148 0001:00276317 1149 0001:0027633B 1150 0001:00276359 1151 0001:002763AA + 1155 0001:002763B0 1156 0001:002763BF 1157 0001:002763CD 1164 0001:002763D4 + 1168 0001:002763FD 1169 0001:00276418 1170 0001:00276436 1174 0001:00276487 + 1178 0001:0027648C 1180 0001:0027649B 1190 0001:002764A4 1192 0001:002764C8 + 1193 0001:002764D0 1195 0001:002764E1 1197 0001:002764F4 1198 0001:002764FE + 1199 0001:00276506 1201 0001:00276534 1202 0001:0027653C 1203 0001:00276546 + 1204 0001:00276550 1205 0001:0027656F 1206 0001:002765A1 1207 0001:002765B5 + 1210 0001:002765C1 1211 0001:002765D1 1212 0001:002765D9 1214 0001:002765DE + 1217 0001:002765FC 1218 0001:0027660C 1219 0001:0027661D 1220 0001:0027662B + 1221 0001:0027663C 1223 0001:00276641 1226 0001:00276650 1227 0001:00276660 + 1228 0001:00276671 1230 0001:00276676 1231 0001:0027667E 1232 0001:00276686 + 1233 0001:002766A3 1234 0001:002766B4 1235 0001:002766BC 1236 0001:002766F0 + 1238 0001:00276706 1240 0001:00276734 1241 0001:00276748 1242 0001:00276761 + 1243 0001:00276770 1244 0001:00276778 1245 0001:0027678C 1248 0001:00276798 + 1249 0001:002767A8 1250 0001:002767B0 1252 0001:002767B5 1255 0001:002767D3 + 1256 0001:002767E3 1257 0001:002767F4 1258 0001:00276802 1259 0001:00276813 + 1261 0001:00276818 1263 0001:00276829 1264 0001:0027683D 1266 0001:00276847 + 1268 0001:00276858 1269 0001:00276867 1271 0001:00276878 1272 0001:00276880 + 1277 0001:0027688A 1278 0001:0027689A 1280 0001:002768A1 1281 0001:002768B1 + 1283 0001:002768B3 1284 0001:002768BD 1285 0001:002768C7 1287 0001:002768D4 + 1288 0001:002768DC 1289 0001:0027691D 1294 0001:002769AC 1295 0001:002769C8 + 1297 0001:002769D6 1298 0001:00276A12 1299 0001:00276A26 1300 0001:00276A36 + 1301 0001:00276A4A 1302 0001:00276A5A 1303 0001:00276A81 1304 0001:00276A92 + 1305 0001:00276AA2 1306 0001:00276AB5 1307 0001:00276AC9 1308 0001:00276AD9 + 1309 0001:00276AE9 1310 0001:00276AFC 1311 0001:00276B0C 1312 0001:00276B1F + 1313 0001:00276B32 1314 0001:00276B42 1315 0001:00276B55 1316 0001:00276B65 + 1317 0001:00276B75 1318 0001:00276B85 1319 0001:00276B95 1320 0001:00276BA5 + 1321 0001:00276BB2 1322 0001:00276BBF 1323 0001:00276BCC 1324 0001:00276BD9 + 1325 0001:00276BEB 1326 0001:00276BFC 1327 0001:00276C07 1328 0001:00276C11 + 1329 0001:00276C3B 1334 0001:00276C6C 1335 0001:00276C75 1336 0001:00276CB1 + 1337 0001:00276CC6 1338 0001:00276CDB 1339 0001:00276CF0 1340 0001:00276D05 + 1341 0001:00276D1A 1342 0001:00276D2F 1343 0001:00276D44 1344 0001:00276D59 + 1345 0001:00276D71 1346 0001:00276D86 1347 0001:00276D9B 1348 0001:00276DB0 + 1349 0001:00276DC1 1350 0001:00276DD1 1351 0001:00276DE2 1352 0001:00276DF2 + 1353 0001:00276E03 1354 0001:00276E13 1355 0001:00276E23 1356 0001:00276E31 + 1357 0001:00276E41 1358 0001:00276E4F 1359 0001:00276E5F 1360 0001:00276E72 + 1361 0001:00276E8C 1362 0001:00276E9F 1363 0001:00276EAC 1364 0001:00276EB9 + 1365 0001:00276EC6 1366 0001:00276ED3 1367 0001:00276EE0 1368 0001:00276EED + 1376 0001:00276FC8 1378 0001:00276FE9 1379 0001:00276FF9 1380 0001:00277007 + 1381 0001:00277015 1382 0001:00277023 1383 0001:00277031 1384 0001:00277035 + 1385 0001:00277039 1386 0001:00277046 1389 0001:00277052 1391 0001:00277083 + 1392 0001:00277099 1393 0001:002770AF 1394 0001:002770C5 1395 0001:002770EC + 1396 0001:002770F7 1397 0001:00277107 1399 0001:0027710D 1400 0001:0027711E + 1402 0001:0027712F 1404 0001:00277150 1405 0001:00277195 1407 0001:002771BF + 1408 0001:002771E0 1409 0001:00277201 1410 0001:00277222 1411 0001:00277239 + 1413 0001:0027724B 1414 0001:0027726F 1417 0001:00277281 1418 0001:00277294 + 1421 0001:002772A4 1423 0001:002772B4 1425 0001:002772C0 1427 0001:0027730D + 1429 0001:00277317 1430 0001:0027733D 1431 0001:00277364 1432 0001:0027738B + 1433 0001:002773B1 1434 0001:002773CB 1437 0001:002773F7 1438 0001:00277401 + 1439 0001:00277427 1440 0001:00277447 1441 0001:00277466 1442 0001:00277486 + 1443 0001:002774C0 1444 0001:002774D6 1446 0001:002774F5 1447 0001:0027753B + 1448 0001:0027753F 1444 0001:00277542 1450 0001:00277547 1451 0001:00277567 + 1452 0001:002775B4 1453 0001:002775D5 1456 0001:002775EB 1457 0001:00277603 + 1458 0001:00277617 1459 0001:00277634 1460 0001:00277644 1461 0001:00277657 + 1462 0001:00277667 1463 0001:00277677 1465 0001:00277683 1466 0001:002776B8 + 1468 0001:002776C2 1469 0001:002776CC 1472 0001:002776E4 1473 0001:002776F4 + 1474 0001:00277707 1475 0001:00277717 1476 0001:00277727 1478 0001:00277733 + 1479 0001:00277768 1483 0001:00277772 1484 0001:00277791 1486 0001:002777D6 + 1493 0001:00277924 1495 0001:00277946 1497 0001:00277952 1499 0001:00277977 + 1500 0001:002779A1 1501 0001:002779B9 1503 0001:002779C3 1504 0001:002779E2 + 1505 0001:002779EE 1506 0001:00277A39 1507 0001:00277A4D 1508 0001:00277A67 + 1509 0001:00277A81 1510 0001:00277A8D 1511 0001:00277AE3 1512 0001:00277AFD + 1513 0001:00277B1A 1514 0001:00277B39 1516 0001:00277B5C 1517 0001:00277B6D + 1519 0001:00277B7E 1520 0001:00277B8F 1521 0001:00277BB1 1522 0001:00277BBD + 1523 0001:00277BFB 1524 0001:00277C15 1525 0001:00277C45 1526 0001:00277C73 + 1527 0001:00277CA5 1528 0001:00277CD7 1529 0001:00277D09 1530 0001:00277D11 + 1531 0001:00277D2B 1501 0001:00277D44 1535 0001:00277D53 1537 0001:00277D5F + 1538 0001:00277D85 1539 0001:00277D96 1542 0001:00277DA9 1543 0001:00277DCA + 1544 0001:00277DE2 1545 0001:00277E03 1547 0001:00277E26 1548 0001:00277E37 + 1550 0001:00277E48 1551 0001:00277E74 1552 0001:00277E7E 1553 0001:00277E9F + 1555 0001:00277EC0 1556 0001:00277F0B 1558 0001:00277F3B 1560 0001:00277F41 + 1561 0001:00277F5D 1563 0001:00277F68 1564 0001:00277F74 1565 0001:00277FA7 + 1567 0001:00277FB7 1568 0001:00277FCF 1569 0001:00277FE7 1571 0001:00277FF3 + 1572 0001:0027800B 1575 0001:0027801B 1576 0001:00278033 1577 0001:0027806C + 1580 0001:0027809D 1582 0001:002780C5 1583 0001:002780F3 1585 0001:00278122 + 1586 0001:0027813A 1587 0001:00278152 1588 0001:00278183 1589 0001:0027819E + 1590 0001:002781B2 1592 0001:002781BE 1594 0001:002781D3 1595 0001:002781F6 + 1598 0001:00278201 1599 0001:00278215 1601 0001:0027825C 1602 0001:0027827F + 1604 0001:0027828A 1605 0001:002782BB 1606 0001:002782D6 1609 0001:00278300 + 1611 0001:0027830C 1612 0001:00278322 1614 0001:002783A6 1617 0001:00278548 + 1618 0001:00278562 1619 0001:0027858E 1620 0001:00278596 1621 0001:002785A6 + 1622 0001:002785B6 1623 0001:002785C6 1624 0001:002785D6 1625 0001:002785FF + 1627 0001:0027861F 1629 0001:00278632 1631 0001:00278642 1632 0001:0027865C + 1633 0001:00278670 1634 0001:0027867E 1635 0001:0027868E 1636 0001:0027869E + 1637 0001:002786AE 1638 0001:002786C8 1639 0001:002786E2 1640 0001:00278700 + 1641 0001:00278710 1642 0001:0027872A 1643 0001:00278740 1644 0001:00278753 + 1645 0001:00278763 1646 0001:00278771 1647 0001:00278782 1649 0001:002787B1 + 1652 0001:002787D8 1653 0001:002787DF 1654 0001:002787EF 1655 0001:002787FF + 1656 0001:0027880F 1657 0001:0027881F 1658 0001:00278848 1659 0001:0027885B + 1660 0001:0027886B 1661 0001:0027887B 1662 0001:00278895 1663 0001:002788A9 + 1664 0001:002788B9 1665 0001:002788C9 1666 0001:002788D9 1667 0001:002788F3 + 1668 0001:0027890D 1669 0001:0027892C 1670 0001:0027893C 1671 0001:00278956 + 1672 0001:0027896C 1673 0001:0027897F 1674 0001:0027898F 1675 0001:002789BC + 1676 0001:002789CF 1681 0001:00278A08 1697 0001:00278A0F 1698 0001:00278A22 + 1699 0001:00278A32 1700 0001:00278A42 1701 0001:00278A52 1702 0001:00278A62 + 1703 0001:00278A72 1704 0001:00278A82 1705 0001:00278A92 1706 0001:00278AA2 + 1707 0001:00278AB2 1708 0001:00278AC3 1716 0001:00278AC8 1717 0001:00278AFD + 1719 0001:00278B12 1720 0001:00278B20 1721 0001:00278B37 1722 0001:00278B49 + 1724 0001:00278B72 1727 0001:00278B8F 1728 0001:00278B9A 1729 0001:00278BA5 + 1730 0001:00278BB0 1731 0001:00278BB5 1733 0001:00278BD7 1734 0001:00278BEB + 1736 0001:00278C0D 1737 0001:00278C32 1739 0001:00278C62 1740 0001:00278C65 + 1731 0001:00278C68 1742 0001:00278CA0 1746 0001:00278CB4 1747 0001:00278CBB + 1748 0001:00278CD1 1749 0001:00278CEC 1750 0001:00278D07 1751 0001:00278D22 + 1752 0001:00278D32 1753 0001:00278D42 1754 0001:00278D52 1755 0001:00278D62 + 1756 0001:00278D72 1757 0001:00278D82 1758 0001:00278D92 1759 0001:00278DA2 + 1760 0001:00278DB2 1761 0001:00278DBF 1762 0001:00278DCA 1778 0001:00278DDB + 1783 0001:00278DE0 1784 0001:00278E03 1785 0001:00278E0A 1787 0001:00278E16 + 1788 0001:00278E21 1789 0001:00278E3F 1791 0001:00278E73 1792 0001:00278E79 + 1793 0001:00278E7B 1788 0001:00278E7E 1794 0001:00278E83 1798 0001:00278E96 + 1800 0001:00278EC3 1803 0001:00278EC8 1804 0001:00278ED4 1805 0001:00278EE7 + 1806 0001:00278EFA 1807 0001:00278F0D 1808 0001:00278F28 1809 0001:00278F3D + 1810 0001:00278F52 1813 0001:00278F65 1818 0001:00278F6C 1819 0001:00278F8E + 1842 0001:00278F9F 1843 0001:00278FB2 1844 0001:00278FC3 1846 0001:00278FD9 + 1848 0001:00278FE3 1852 0001:00278FF8 1854 0001:0027900D 1855 0001:00279039 + 1856 0001:0027904C 1857 0001:0027905D 1858 0001:0027906E 1859 0001:00279085 + 1860 0001:00279096 1861 0001:002790A7 1863 0001:002790A9 1864 0001:002790C0 + 1865 0001:002790D1 1868 0001:00279104 1876 0001:00279114 1878 0001:00279138 + 1884 0001:0027913D 1887 0001:002791C3 1888 0001:002791D0 1890 0001:002791F6 + 1891 0001:0027921C 1892 0001:00279232 1895 0001:00279239 1897 0001:00279257 + 1899 0001:00279265 1900 0001:00279277 1901 0001:0027927F 1902 0001:0027928D + 1903 0001:002792B6 1904 0001:002792D4 1905 0001:002792E4 1906 0001:002792F2 + 1912 0001:00279302 1913 0001:00279314 1914 0001:0027931E 1915 0001:00279326 + 1916 0001:0027932E 1917 0001:00279389 1918 0001:00279399 1919 0001:002793BA + 1920 0001:002793F7 1921 0001:00279413 1922 0001:00279434 1923 0001:00279471 + 1924 0001:0027948D 1925 0001:002794AE 1926 0001:002794EB 1927 0001:00279507 + 1928 0001:00279528 1931 0001:00279562 1937 0001:00279604 1939 0001:00279623 + 1940 0001:00279632 1941 0001:00279640 1942 0001:0027965C 1944 0001:00279678 + 1947 0001:002796A5 1955 0001:002796CC 1956 0001:002796EB 1957 0001:002796FD + 1958 0001:0027970C 1959 0001:0027971D 1960 0001:00279735 1962 0001:00279746 + 1963 0001:0027974E 1964 0001:0027975D 1965 0001:0027976E 1967 0001:00279793 + 1973 0001:00279798 1975 0001:002797BD 1977 0001:002797C9 1979 0001:002797D8 + 1980 0001:002797E6 1983 0001:002797F6 1984 0001:00279800 1985 0001:00279821 + 1987 0001:00279827 1989 0001:00279833 1991 0001:00279849 1993 0001:00279856 + 1994 0001:0027985E 1996 0001:0027987F 1997 0001:002798C4 2000 0001:002798F0 + 2001 0001:00279915 2003 0001:00279928 2004 0001:00279934 2005 0001:00279961 + 2006 0001:00279971 2007 0001:0027997D 2008 0001:002799C5 2009 0001:002799FA + 2012 0001:00279A44 2014 0001:00279A50 2015 0001:00279A5A 2018 0001:00279A60 + 2020 0001:00279A7F 2021 0001:00279A9B 2022 0001:00279AAC 2024 0001:00279AC0 + 2025 0001:00279ACE 2026 0001:00279ADE 2028 0001:00279AE3 2030 0001:00279AF7 + 2032 0001:00279B06 2033 0001:00279B14 2036 0001:00279B26 2038 0001:00279B4E + 2040 0001:00279B5D 2041 0001:00279B6B 2045 0001:00279B98 2050 0001:00279B9C + 2052 0001:00279BC2 2053 0001:00279BCE 2055 0001:00279BD9 2056 0001:00279C16 + 2057 0001:00279C33 2059 0001:00279C4E 2060 0001:00279C78 2061 0001:00279CAD + 2064 0001:00279CE8 2065 0001:00279D0A 2066 0001:00279D2C 2069 0001:00279D5F + 2077 0001:00279D64 2079 0001:00279D89 2081 0001:00279DB9 2082 0001:00279DC4 + 2084 0001:00279DDA 2085 0001:00279DF1 2086 0001:00279E0B 2089 0001:00279E1C + 2090 0001:00279E50 2096 0001:00279E64 2098 0001:00279E89 2100 0001:00279EB9 + 2101 0001:00279EC4 2103 0001:00279EDA 2104 0001:00279EF1 2105 0001:00279F0B + 2111 0001:00279F1C 2112 0001:00279F26 2113 0001:00279F5A 2118 0001:00279F70 + 2119 0001:00279F7C 2121 0001:00279F82 2122 0001:00279F95 2123 0001:00279FA5 + 2124 0001:00279FB5 2128 0001:00279FCA 2129 0001:00279FDA 2130 0001:0027A018 + 2131 0001:0027A039 2132 0001:0027A049 2133 0001:0027A059 2135 0001:0027A069 + 2140 0001:0027A070 2144 0001:0027A08E 2146 0001:0027A097 2148 0001:0027A0A5 + 2149 0001:0027A0D9 2152 0001:0027A0E5 2153 0001:0027A0ED 2154 0001:0027A0FD + 2157 0001:0027A107 2158 0001:0027A118 2159 0001:0027A123 2160 0001:0027A158 + 2165 0001:0027A15C 2167 0001:0027A17B 2168 0001:0027A187 2169 0001:0027A193 + 2172 0001:0027A1A9 2173 0001:0027A1D9 2174 0001:0027A200 2177 0001:0027A210 + 2179 0001:0027A22F 2180 0001:0027A23B 2181 0001:0027A247 2183 0001:0027A25D + 2184 0001:0027A28D 2185 0001:0027A2B4 2188 0001:0027A2C4 2190 0001:0027A2E3 + 2191 0001:0027A302 2192 0001:0027A332 2195 0001:0027A338 2197 0001:0027A344 + 2198 0001:0027A354 2206 0001:0027A358 2207 0001:0027A37B 2210 0001:0027A399 + 2211 0001:0027A3B3 2212 0001:0027A3C9 2213 0001:0027A3DD 2214 0001:0027A3E8 + 2215 0001:0027A3FC 2216 0001:0027A438 2217 0001:0027A458 2222 0001:0027A46C + 2224 0001:0027A47C 2225 0001:0027A490 2227 0001:0027A4B3 2228 0001:0027A4D1 + 2229 0001:0027A50F 2230 0001:0027A52B 2233 0001:0027A538 2237 0001:0027A56B + 2239 0001:0027A593 2240 0001:0027A5B7 2242 0001:0027A5C3 2243 0001:0027A5D7 + 2247 0001:0027A5E4 2248 0001:0027A5FE 2249 0001:0027A614 2250 0001:0027A628 + 2252 0001:0027A633 2253 0001:0027A647 2254 0001:0027A683 2255 0001:0027A6A3 + 2257 0001:0027A6B7 2259 0001:0027A6C7 2260 0001:0027A6DB 2262 0001:0027A6FE + 2263 0001:0027A71C 2264 0001:0027A75A 2265 0001:0027A776 2268 0001:0027A783 + 2269 0001:0027A797 2270 0001:0027A7B3 2271 0001:0027A7E9 2272 0001:0027A7EF + 2273 0001:0027A828 2274 0001:0027A833 2237 0001:0027A836 2277 0001:0027A86E + 2283 0001:0027A8BC 2284 0001:0027A8DF 2287 0001:0027A8FD 2288 0001:0027A911 + 2289 0001:0027A91C 2290 0001:0027A930 2291 0001:0027A94A 2292 0001:0027A95E + 2296 0001:0027A983 2298 0001:0027A9AB 2299 0001:0027A9CF 2300 0001:0027A9DB + 2301 0001:0027A9F1 2302 0001:0027AA05 2303 0001:0027AA10 2304 0001:0027AA24 + 2305 0001:0027AA3E 2306 0001:0027AA52 2307 0001:0027AA66 2308 0001:0027AA82 + 2309 0001:0027AAAA 2310 0001:0027AAB0 2311 0001:0027AAE9 2312 0001:0027AAF4 + 2296 0001:0027AAF7 2315 0001:0027AB2F 2322 0001:0027AB50 2323 0001:0027AB7B + 2324 0001:0027AB82 2325 0001:0027ABA0 2327 0001:0027ABDC 2328 0001:0027ABE2 + 2329 0001:0027ABE4 2324 0001:0027ABE7 2330 0001:0027ABEC 2331 0001:0027AC25 + 2332 0001:0027AC4C 2333 0001:0027AC73 2334 0001:0027AC85 2335 0001:0027ACC0 + 2336 0001:0027ACC8 2337 0001:0027ACD6 2338 0001:0027ACE9 2339 0001:0027ACF5 + 2340 0001:0027AD1F 2341 0001:0027AD2C 2344 0001:0027ADB7 2346 0001:0027AE02 + 2347 0001:0027AE49 2352 0001:0027AE7C 2353 0001:0027AEA2 2354 0001:0027AEAA + 2355 0001:0027AEB1 2357 0001:0027AECF 2358 0001:0027AF0B 2355 0001:0027AF0E + 2359 0001:0027AF13 2360 0001:0027AF4F 2366 0001:0027AF54 2367 0001:0027AF7F + 2371 0001:0027AFBF 2373 0001:0027AFD5 2374 0001:0027AFDD 2375 0001:0027B01D + 2376 0001:0027B050 2377 0001:0027B06E 2379 0001:0027B08C 2381 0001:0027B0CC + 2382 0001:0027B0F3 2384 0001:0027B0F5 2377 0001:0027B0F8 2385 0001:0027B0FD + 2387 0001:0027B153 2393 0001:0027B164 2394 0001:0027B190 2395 0001:0027B198 + 2396 0001:0027B1B5 2398 0001:0027B1D3 2400 0001:0027B213 2401 0001:0027B23A + 2403 0001:0027B23C 2396 0001:0027B23F 2404 0001:0027B26E 2419 0001:0027B284 + 2420 0001:0027B2A6 2421 0001:0027B2AD 2422 0001:0027B2C8 2421 0001:0027B304 + 2423 0001:0027B309 2425 0001:0027B34A 2426 0001:0027B380 2427 0001:0027B38D + 2429 0001:0027B3EB 2434 0001:0027B400 2435 0001:0027B420 2436 0001:0027B427 + 2437 0001:0027B442 2436 0001:0027B47E 2438 0001:0027B483 2439 0001:0027B4B9 + 2441 0001:0027B4C0 2442 0001:0027B4EB 2443 0001:0027B4F3 2445 0001:0027B503 + 2446 0001:0027B507 2448 0001:0027B51F 2449 0001:0027B540 2450 0001:0027B54A + 2451 0001:0027B55D 2452 0001:0027B572 2453 0001:0027B578 2446 0001:0027B57B + 2454 0001:0027B580 2458 0001:0027B597 2459 0001:0027B5A6 2460 0001:0027B5B4 + 2461 0001:0027B5C6 2462 0001:0027B60F 2463 0001:0027B613 2465 0001:0027B635 + 2466 0001:0027B65C 2467 0001:0027B660 2468 0001:0027B6A5 2469 0001:0027B6D2 + 2470 0001:0027B716 2472 0001:0027B732 2473 0001:0027B759 2474 0001:0027B76B + 2476 0001:0027B771 2479 0001:0027B795 2480 0001:0027B7C0 2481 0001:0027B7DA + 2482 0001:0027B7E6 2483 0001:0027B812 2484 0001:0027B829 2486 0001:0027B82D + 2488 0001:0027B833 2489 0001:0027B849 2488 0001:0027B860 2490 0001:0027B865 + 2492 0001:0027B880 2493 0001:0027B893 2495 0001:0027B8A6 2497 0001:0027B8AC + 2498 0001:0027B8B6 2500 0001:0027B8B8 2470 0001:0027B8BB 2501 0001:0027B8C4 + 2463 0001:0027B8C7 2502 0001:0027B8D0 2504 0001:0027B8E0 2506 0001:0027B911 + 2507 0001:0027B923 2509 0001:0027B93F 2511 0001:0027B98A 2512 0001:0027B9B1 + 2514 0001:0027B9F6 2507 0001:0027B9F9 2518 0001:0027BA0F 2521 0001:0027BA51 + 2528 0001:0027BA6C 2530 0001:0027BA90 2531 0001:0027BA9D 2532 0001:0027BAAD + 2533 0001:0027BAC0 2534 0001:0027BAC8 2535 0001:0027BAD0 2536 0001:0027BAD8 + 2537 0001:0027BAE2 2538 0001:0027BAF0 2539 0001:0027BB35 2540 0001:0027BB44 + 2543 0001:0027BB62 2546 0001:0027BB99 2547 0001:0027BBAA 2548 0001:0027BBBD + 2549 0001:0027BBD5 2550 0001:0027BBEE 2551 0001:0027BBF9 2552 0001:0027BC17 + 2554 0001:0027BC27 2556 0001:0027BC4B 2557 0001:0027BC6D 2558 0001:0027BC7A + 2562 0001:0027BCA7 2563 0001:0027BCDB 2564 0001:0027BD0D 2565 0001:0027BD3F + 2567 0001:0027BD53 2568 0001:0027BD79 2570 0001:0027BD99 2572 0001:0027BDA5 + 2573 0001:0027BDB9 2575 0001:0027BDE5 2576 0001:0027BDF9 2577 0001:0027BE19 + 2578 0001:0027BE39 2579 0001:0027BE6F 2580 0001:0027BE8D 2585 0001:0027BEC6 + 2587 0001:0027BEEE 2588 0001:0027BF2E 2589 0001:0027BF61 2590 0001:0027BF67 + 2591 0001:0027BFBF 2592 0001:0027BFCA 2585 0001:0027BFCD 2593 0001:0027BFD6 + 2594 0001:0027BFF4 2596 0001:0027C004 2597 0001:0027C01A 2598 0001:0027C042 + 2600 0001:0027C062 2602 0001:0027C06E 2603 0001:0027C084 2605 0001:0027C0B0 + 2607 0001:0027C0D4 2608 0001:0027C0D9 2609 0001:0027C0FD 2608 0001:0027C12C + 2610 0001:0027C131 2612 0001:0027C159 2613 0001:0027C183 2614 0001:0027C1B5 + 2615 0001:0027C1E5 2616 0001:0027C1F9 2617 0001:0027C219 2618 0001:0027C23F + 2619 0001:0027C279 2620 0001:0027C295 2621 0001:0027C2C7 2623 0001:0027C2D3 + 2624 0001:0027C2E3 2626 0001:0027C2F6 2628 0001:0027C300 2629 0001:0027C343 + 2630 0001:0027C357 2631 0001:0027C386 2632 0001:0027C3B5 2633 0001:0027C3E4 + 2634 0001:0027C3EC 2635 0001:0027C3FC 2636 0001:0027C41A 2610 0001:0027C41D + 2639 0001:0027C426 2640 0001:0027C42E 2641 0001:0027C466 2642 0001:0027C4A1 + 2644 0001:0027C4B1 2645 0001:0027C505 2646 0001:0027C510 2649 0001:0027C536 + 2650 0001:0027C56A 2651 0001:0027C59E 2652 0001:0027C5D2 2653 0001:0027C604 + 2654 0001:0027C636 2655 0001:0027C66B 2656 0001:0027C673 2658 0001:0027C69F + 2659 0001:0027C709 2671 0001:0027C8B8 2672 0001:0027C8E4 2673 0001:0027C8EC + 2674 0001:0027C90E 2675 0001:0027C91A 2676 0001:0027C989 2677 0001:0027C9B5 + 2678 0001:0027C9E1 2679 0001:0027CA0D 2680 0001:0027CA39 2681 0001:0027CA65 + 2682 0001:0027CA91 2683 0001:0027CABD 2684 0001:0027CAE6 2685 0001:0027CB0F + 2686 0001:0027CB38 2688 0001:0027CB6E 2691 0001:0027CB78 2692 0001:0027CB84 + 2693 0001:0027CB8F 2736 0001:0027CB94 2737 0001:0027CBC8 2739 0001:0027CBCD + 2740 0001:0027CBD1 2741 0001:0027CBF5 2742 0001:0027CC35 2740 0001:0027CC3C + 2743 0001:0027CC41 2745 0001:0027CC4B 2746 0001:0027CC50 2747 0001:0027CC78 + 2749 0001:0027CC9C 2750 0001:0027CCB0 2751 0001:0027CCB5 2752 0001:0027CCE8 + 2753 0001:0027CD1B 2754 0001:0027CD4E 2755 0001:0027CD7E 2756 0001:0027CDAB + 2757 0001:0027CDB1 2746 0001:0027CDB4 2758 0001:0027CDBD 2759 0001:0027CDCA + 2760 0001:0027CDE9 2761 0001:0027CE21 2773 0001:0027CE80 2775 0001:0027CE8C + 2777 0001:0027CE98 2778 0001:0027CEAA 2779 0001:0027CEB4 2780 0001:0027CED3 + 2781 0001:0027CEF2 2782 0001:0027CF11 2783 0001:0027CF30 2785 0001:0027CF4F + 2787 0001:0027CF67 2788 0001:0027CF7E 2789 0001:0027CF8E 2790 0001:0027CF92 + 2792 0001:0027CF9D 2793 0001:0027CFA2 2794 0001:0027CFD5 2795 0001:0027CFE3 + 2796 0001:0027CFF1 2797 0001:0027CFFF 2798 0001:0027D00D 2801 0001:0027D019 + 2803 0001:0027D02B 2804 0001:0027D046 2805 0001:0027D05A 2807 0001:0027D084 + 2811 0001:0027D08C 2817 0001:0027D0CC 2819 0001:0027D0DB 2820 0001:0027D0F7 + 2821 0001:0027D103 2823 0001:0027D11B 2824 0001:0027D12E 2826 0001:0027D13F + 2827 0001:0027D151 2828 0001:0027D15B 2831 0001:0027D164 2833 0001:0027D173 + 2834 0001:0027D1AA 2835 0001:0027D1BC 2836 0001:0027D1C6 2840 0001:0027D1CC + 2842 0001:0027D1DB 2843 0001:0027D1EF 2844 0001:0027D219 2845 0001:0027D243 + 2847 0001:0027D26B 2848 0001:0027D278 2852 0001:0027D280 2854 0001:0027D2B2 + 2856 0001:0027D327 2859 0001:0027D330 2861 0001:0027D33C 2862 0001:0027D346 + 2863 0001:0027D34E 2864 0001:0027D356 2873 0001:0027D35C 2876 0001:0027D366 + 2877 0001:0027D387 2879 0001:0027D3C8 2880 0001:0027D3D4 2881 0001:0027D3DC + 2882 0001:0027D3E4 2884 0001:0027D3EF 2889 0001:0027D3F4 2890 0001:0027D417 + 2891 0001:0027D422 2892 0001:0027D440 2891 0001:0027D46F 2893 0001:0027D474 + 2894 0001:0027D4A8 2896 0001:0027D4B0 2898 0001:0027D4DB 2901 0001:0027D4EB + 2902 0001:0027D4F1 2903 0001:0027D4F5 2905 0001:0027D4FF 2909 0001:0027D52F + 2912 0001:0027D55A 2915 0001:0027D585 2917 0001:0027D58B 2920 0001:0027D5CB + 2933 0001:0027D600 2934 0001:0027D640 2935 0001:0027D650 2936 0001:0027D65D + 2940 0001:0027D687 2941 0001:0027D6C7 2942 0001:0027D6D7 2943 0001:0027D6E4 + 2947 0001:0027D70E 2948 0001:0027D72A 2949 0001:0027D757 2950 0001:0027D761 + 2951 0001:0027D799 2952 0001:0027D7AC 2954 0001:0027D7BD 2955 0001:0027D7CE + 2957 0001:0027D7E0 2958 0001:0027D817 2961 0001:0027D82A 2963 0001:0027D836 + 2964 0001:0027D847 2966 0001:0027D85A 2978 0001:0027D86B 2979 0001:0027D875 + 2980 0001:0027D884 2982 0001:0027D894 2983 0001:0027D8A1 2987 0001:0027D8CB + 2988 0001:0027D8DF 2989 0001:0027D8E9 2990 0001:0027D90D 2991 0001:0027D92B + 2993 0001:0027D955 2994 0001:0027D968 2996 0001:0027D97B 2997 0001:0027D98C + 2998 0001:0027D996 2999 0001:0027D9A0 3000 0001:0027D9AF 3001 0001:0027D9BF + 3002 0001:0027D9D0 3003 0001:0027D9DC 3004 0001:0027D9ED 3007 0001:0027DA17 + 3009 0001:0027DA2B 3010 0001:0027DA3C 3011 0001:0027DA5E 3012 0001:0027DA6D + 3013 0001:0027DA79 3014 0001:0027DA89 3017 0001:0027DADA 3021 0001:0027DB18 + 3022 0001:0027DB37 3023 0001:0027DB4E 3024 0001:0027DB6F 3025 0001:0027DB90 + 3027 0001:0027DBB1 3028 0001:0027DBD0 3031 0001:0027DC08 3034 0001:0027DC0C + 3037 0001:0027DC18 3038 0001:0027DC59 3039 0001:0027DC64 3040 0001:0027DC6F + 3043 0001:0027DC74 3045 0001:0027DC93 3047 0001:0027DCB1 3048 0001:0027DCE5 + 3050 0001:0027DD0C 3056 0001:0027DD10 3058 0001:0027DD34 3060 0001:0027DD40 + 3062 0001:0027DD4F 3063 0001:0027DD5D 3067 0001:0027DD6D 3068 0001:0027DDCF + 3069 0001:0027DDF2 3070 0001:0027DDFC 3071 0001:0027DE26 3073 0001:0027DE2C + 3075 0001:0027DE38 3076 0001:0027DE4E 3078 0001:0027DE58 3080 0001:0027DE65 + 3081 0001:0027DE6D 3082 0001:0027DE79 3083 0001:0027DEA6 3084 0001:0027DEE0 + 3087 0001:0027DF20 3089 0001:0027DF2C 3090 0001:0027DF37 3091 0001:0027DF47 + 3092 0001:0027DF55 3093 0001:0027DF5F 3094 0001:0027DF67 3095 0001:0027DF6F + 3097 0001:0027DF90 3098 0001:0027DFAA 3099 0001:0027DFC8 3101 0001:0027DFDB + 3102 0001:0027DFED 3104 0001:0027E000 3105 0001:0027E011 3108 0001:0027E018 + 3112 0001:0027E037 3114 0001:0027E055 3115 0001:0027E089 3117 0001:0027E0B1 + 3122 0001:0027E0B8 3124 0001:0027E0DE 3125 0001:0027E140 3126 0001:0027E163 + 3127 0001:0027E198 3130 0001:0027E1AC 3135 0001:0027E1CE 3137 0001:0027E1F0 + 3138 0001:0027E201 3140 0001:0027E206 3141 0001:0027E211 3142 0001:0027E221 + 3143 0001:0027E22F 3144 0001:0027E237 3145 0001:0027E23F 3147 0001:0027E260 + 3148 0001:0027E27A 3149 0001:0027E298 3151 0001:0027E2AB 3152 0001:0027E2BD + 3154 0001:0027E2D0 3155 0001:0027E303 3158 0001:0027E308 3160 0001:0027E314 + 3161 0001:0027E325 3162 0001:0027E330 3163 0001:0027E33B 3169 0001:0027E340 + 3173 0001:0027E364 3175 0001:0027E374 3177 0001:0027E3A4 3178 0001:0027E3AF + 3180 0001:0027E3C5 3181 0001:0027E3DC 3182 0001:0027E3F6 3189 0001:0027E407 + 3190 0001:0027E41E 3191 0001:0027E45E 3192 0001:0027E469 3193 0001:0027E48C + 3194 0001:0027E49D 3196 0001:0027E4D6 3201 0001:0027E4F8 3207 0001:0027E51E + 3208 0001:0027E535 3209 0001:0027E575 3213 0001:0027E580 3214 0001:0027E5A3 + 3215 0001:0027E5AE 3216 0001:0027E5E2 3221 0001:0027E5F4 3223 0001:0027E613 + 3224 0001:0027E637 3225 0001:0027E644 3226 0001:0027E66A 3227 0001:0027E69E + 3230 0001:0027E6BC 3232 0001:0027E6C8 3234 0001:0027E6D8 3235 0001:0027E6E3 + 3236 0001:0027E6F3 3237 0001:0027E701 3238 0001:0027E70B 3239 0001:0027E713 + 3240 0001:0027E71B 3242 0001:0027E73C 3243 0001:0027E756 3244 0001:0027E774 + 3246 0001:0027E787 3247 0001:0027E799 3249 0001:0027E7AC 3250 0001:0027E7BD + 3253 0001:0027E7C4 3255 0001:0027E7D0 3256 0001:0027E7E1 3257 0001:0027E7EC + 3258 0001:0027E7F7 3264 0001:0027E7FC 3266 0001:0027E821 3267 0001:0027E831 + 3269 0001:0027E870 3270 0001:0027E88F 3272 0001:0027E89E 3274 0001:0027E8A8 + 3275 0001:0027E8B2 3277 0001:0027E8BE 3278 0001:0027E8D4 3280 0001:0027E8F4 + 3281 0001:0027E8F9 3282 0001:0027E90C 3283 0001:0027E91C 3284 0001:0027E92C + 3285 0001:0027E93C 3286 0001:0027E94D 3294 0001:0027E95D 3297 0001:0027E9CA + 3298 0001:0027E9F7 3301 0001:0027EA14 3303 0001:0027EA7C 3306 0001:0027EA92 + 3307 0001:0027EAB3 3308 0001:0027EAC8 3309 0001:0027EAD8 3310 0001:0027EAF9 + 3313 0001:0027EB0D 3315 0001:0027EB32 3318 0001:0027EB66 3319 0001:0027EB71 + 3320 0001:0027EBDF 3323 0001:0027ED00 3325 0001:0027ED0C 3326 0001:0027ED1C + 3327 0001:0027ED2A 3328 0001:0027ED34 3329 0001:0027ED3C 3330 0001:0027ED44 + 3332 0001:0027ED65 3333 0001:0027ED7F 3334 0001:0027ED9D 3336 0001:0027EDB0 + 3337 0001:0027EDC2 3339 0001:0027EDD5 3340 0001:0027EDE6 3345 0001:0027EDEC + 3348 0001:0027EE0C 3349 0001:0027EE2A 3350 0001:0027EE3E 3364 0001:0027EE7D + 3369 0001:0027EE84 3371 0001:0027EEA4 3375 0001:0027EEC5 3378 0001:0027EF1D + 3379 0001:0027EF2E 3381 0001:0027EF36 3382 0001:0027EF47 3383 0001:0027EF69 + 3384 0001:0027EF97 3385 0001:0027EFD4 3388 0001:0027F0AC 3390 0001:0027F0CE + 3391 0001:0027F10D 3395 0001:0027F121 3396 0001:0027F144 3398 0001:0027F162 + 3399 0001:0027F172 3400 0001:0027F180 3401 0001:0027F188 3402 0001:0027F190 + 3404 0001:0027F1B1 3405 0001:0027F1CB 3406 0001:0027F1E9 3408 0001:0027F1FC + 3409 0001:0027F20E 3411 0001:0027F221 3412 0001:0027F257 3418 0001:0027F25C + 3420 0001:0027F27E 3421 0001:0027F28F 3423 0001:0027F29B 3424 0001:0027F2AB + 3425 0001:0027F2CB 3426 0001:0027F2EB 3428 0001:0027F2FD 3429 0001:0027F33D + 3430 0001:0027F353 3431 0001:0027F36D 3432 0001:0027F387 3433 0001:0027F394 + 3435 0001:0027F3AC 3436 0001:0027F3D8 3441 0001:0027F3DC 3443 0001:0027F3E8 + 3444 0001:0027F3F9 3447 0001:0027F41D 3448 0001:0027F45E 3449 0001:0027F470 + 3451 0001:0027F486 3452 0001:0027F490 3453 0001:0027F49B 3465 0001:0027F4A0 + 3466 0001:0027F4CB 3467 0001:0027F4D3 3469 0001:0027F4DD 3470 0001:0027F573 + 3471 0001:0027F57F 3472 0001:0027F5C8 3473 0001:0027F5E3 3474 0001:0027F5EF + 3475 0001:0027F640 3476 0001:0027F65B 3477 0001:0027F667 3478 0001:0027F6A9 + 3479 0001:0027F6B5 3480 0001:0027F70A 3481 0001:0027F716 3482 0001:0027F758 + 3483 0001:0027F764 3484 0001:0027F7A6 3485 0001:0027F7B2 3486 0001:0027F80D + 3487 0001:0027F819 3489 0001:0027F8EB 3490 0001:0027F8F7 3491 0001:0027F93F + 3492 0001:0027F94B 3493 0001:0027F98F 3494 0001:0027F99F 3495 0001:0027F9AB + 3496 0001:0027F9F3 3497 0001:0027F9FF 3499 0001:0027FA47 3500 0001:0027FA7A + 3501 0001:0027FA9F 3502 0001:0027FAF2 3505 0001:0027FB19 3507 0001:0027FB25 + 3523 0001:0027FB64 3525 0001:0027FB8F 3526 0001:0027FBB1 3527 0001:0027FBFF + 3528 0001:0027FC1F 3530 0001:0027FC2F 3531 0001:0027FC62 3532 0001:0027FCB1 + 3533 0001:0027FCD3 3535 0001:0027FD26 3536 0001:0027FD48 3537 0001:0027FD84 + 3541 0001:0027FD99 3542 0001:0027FDA5 3543 0001:0027FDED 3545 0001:0027FDF9 + 3546 0001:0027FE38 3547 0001:0027FE7E 3548 0001:0027FE86 3549 0001:0027FEA7 + 3554 0001:0027FEB9 3555 0001:0027FEDB 3556 0001:0027FEED 3557 0001:0027FEFD + 3558 0001:0027FF49 3559 0001:0027FF55 3560 0001:0027FFE8 3562 0001:0028002B + 3563 0001:00280049 3564 0001:00280061 3566 0001:002800A4 3567 0001:002800EB + 3568 0001:00280103 3569 0001:00280148 3570 0001:00280158 3571 0001:00280170 + 3572 0001:002801BF 3574 0001:0028020A 3575 0001:00280250 3577 0001:0028028E + 3578 0001:002802D9 3580 0001:00280324 3581 0001:0028036A 3582 0001:0028039F + 3583 0001:002803D8 3584 0001:0028042B 3599 0001:00280452 3600 0001:00280498 + 3601 0001:002804E6 3602 0001:0028051B 3604 0001:00280546 3605 0001:00280568 + 3606 0001:002805B6 3607 0001:002805D6 3609 0001:002805E6 3610 0001:0028061F + 3611 0001:0028066E 3612 0001:00280690 3614 0001:002806E3 3615 0001:00280705 + 3616 0001:00280741 3619 0001:00280756 3620 0001:0028079E 3621 0001:002807CD + 3624 0001:002807FA 3626 0001:00280804 3627 0001:00280873 3630 0001:0028089A + 3631 0001:002808C2 3633 0001:00280937 3635 0001:0028095E 3636 0001:00280974 + 3637 0001:0028099B 3638 0001:002809C2 3639 0001:002809E9 3640 0001:002809F6 + 3641 0001:00280A1D 3642 0001:00280A33 3643 0001:00280A49 3645 0001:00280A5C + 3647 0001:00280A95 3648 0001:00280AD8 3649 0001:00280B15 3650 0001:00280B39 + 3651 0001:00280B4C 3654 0001:00280BD2 3659 0001:00280D00 3660 0001:00280D29 + 3661 0001:00280D9F 3663 0001:00280DBE 3664 0001:00280DD8 3667 0001:00280E1B + 3668 0001:00280E35 3670 0001:00280E4D 3671 0001:00280E6C 3672 0001:00280E8B + 3673 0001:00280EA7 3674 0001:00280EC3 3675 0001:00280EDF 3676 0001:00280EFB + 3678 0001:00280F37 3684 0001:00280FDC 3685 0001:00281007 3689 0001:002810AB + 3690 0001:002810BE 3691 0001:002810D1 3693 0001:002810DD 3694 0001:002810F0 + 3695 0001:00281127 3696 0001:00281145 3698 0001:0028115D 3703 0001:0028118B + 3704 0001:002811AF 3707 0001:002811C3 3708 0001:002811DA 3709 0001:002811FF + 3710 0001:0028123F 3712 0001:00281264 3715 0001:002812DE 3730 0001:002812EC + 3731 0001:00281324 3732 0001:0028132C 3735 0001:0028135B 3736 0001:00281366 + 3738 0001:0028136C 3739 0001:00281378 3740 0001:00281382 3741 0001:0028139E + 3742 0001:002813A6 3746 0001:002813B2 3748 0001:002813CE 3754 0001:0028142E + 3756 0001:00281450 3758 0001:00281455 3759 0001:002814AB 3760 0001:002814D3 + 3761 0001:002814FC 3763 0001:00281528 3764 0001:00281540 3766 0001:00281556 + 3767 0001:00281569 3769 0001:00281584 3771 0001:002815AC 3772 0001:002815B6 + 3774 0001:002815BB 3775 0001:002815D7 3776 0001:002815E5 3777 0001:00281609 + 3779 0001:00281627 3780 0001:0028164A 3781 0001:0028165D 3782 0001:00281671 + 3785 0001:0028169B 3786 0001:002816BA 3789 0001:002816E9 3790 0001:00281707 + 3791 0001:0028170F 3793 0001:00281737 3794 0001:00281741 3796 0001:00281746 + 3797 0001:00281762 3798 0001:00281770 3799 0001:00281794 3801 0001:002817B2 + 3802 0001:002817D5 3803 0001:002817E5 3804 0001:002817F5 3807 0001:0028181A + 3808 0001:0028185C 3813 0001:00281868 3814 0001:0028188A 3815 0001:002818AA + 3817 0001:002818C3 3818 0001:002818D3 3819 0001:00281901 3821 0001:00281933 + 3822 0001:00281943 3823 0001:0028196F 3830 0001:00281974 3831 0001:00281998 + 3832 0001:002819A8 3833 0001:002819B3 3835 0001:002819C4 3836 0001:002819D4 + 3837 0001:002819EA 3839 0001:002819FB 3840 0001:00281A11 3842 0001:00281A26 + 3843 0001:00281A3C 3845 0001:00281A42 3846 0001:00281A4A 3848 0001:00281A56 + 3850 0001:00281A60 3852 0001:00281A88 3854 0001:00281AFE 3855 0001:00281B0A + 3857 0001:00281B12 3850 0001:00281B15 3859 0001:00281B1E 3861 0001:00281B43 + 3862 0001:00281B4F 3864 0001:00281B57 3866 0001:00281B73 3867 0001:00281B7F + 3869 0001:00281B9E 3871 0001:00281BC6 3873 0001:00281BDB 3875 0001:00281C03 + 3877 0001:00281C8E 3878 0001:00281C9A 3880 0001:00281C9C 3873 0001:00281C9F + 3882 0001:00281CA8 3883 0001:00281D02 3884 0001:00281D0E 3886 0001:00281D2F + 3888 0001:00281D41 3889 0001:00281D4E 3890 0001:00281D79 3891 0001:00281D85 + 3892 0001:00281DB2 3893 0001:00281DDF 3896 0001:00281DFD 3898 0001:00281E45 + 3900 0001:00281E54 3901 0001:00281E64 3904 0001:00281E8D 3905 0001:00281E9E + 3907 0001:00281EC7 3908 0001:00281F23 3911 0001:00281FE8 3912 0001:0028200E + 3913 0001:0028201A 3915 0001:00282045 3916 0001:0028207D 3918 0001:002820AC + 3919 0001:002820D5 3920 0001:002820F3 3922 0001:00282122 3925 0001:00282128 + 3926 0001:00282134 3927 0001:00282144 3928 0001:0028214A 3929 0001:0028215C + 3930 0001:00282167 3943 0001:0028216C 3945 0001:00282190 3946 0001:002821A0 + 3947 0001:002821AB 3948 0001:002821B7 3949 0001:002821C1 3951 0001:002821C5 + 3952 0001:002821CD 3953 0001:002821D5 3954 0001:002821DD 3955 0001:002821E1 + 3956 0001:002821F9 3958 0001:00282203 3959 0001:00282217 3960 0001:0028222F + 3961 0001:0028225E 3962 0001:00282262 3963 0001:0028227A 3964 0001:0028228E + 3965 0001:0028229E 3966 0001:002822B6 3967 0001:002822CA 3969 0001:002822D6 + 3970 0001:002822ED 3973 0001:0028230F 3974 0001:0028232C 3975 0001:00282340 + 3976 0001:00282358 3977 0001:0028236C 3978 0001:00282384 3979 0001:00282398 + 3980 0001:002823B0 3981 0001:002823C4 3982 0001:002823DC 3956 0001:002823F5 + 3985 0001:002823FF 3987 0001:00282408 3986 0001:0028240B 3988 0001:00282428 + 3989 0001:00282448 3991 0001:0028245E 3992 0001:00282467 3994 0001:002824A5 + 3995 0001:002824CE 3989 0001:002824D1 3996 0001:002824D6 3997 0001:002824E1 + 3998 0001:00282509 3999 0001:0028252C 4001 0001:0028253C 4002 0001:00282547 + 4004 0001:00282558 4005 0001:0028257C 4006 0001:0028258B 4008 0001:0028259B + 4009 0001:002825B9 4013 0001:00282633 4015 0001:00282657 4016 0001:00282662 + 4018 0001:00282675 4020 0001:0028269D 4022 0001:0028270D 4023 0001:00282711 + 4025 0001:00282713 4018 0001:00282716 4026 0001:0028271B 4028 0001:00282721 + 4029 0001:00282731 4034 0001:00282743 4035 0001:00282753 4037 0001:00282777 + 4039 0001:002827A7 4041 0001:002827B7 4042 0001:002827C2 4043 0001:002827E4 + 4045 0001:00282806 4046 0001:0028280C 4047 0001:00282818 4050 0001:0028282D + 4051 0001:0028284B 4052 0001:00282869 4053 0001:0028288A 4056 0001:00282898 + 4057 0001:002828A8 4058 0001:002828B8 4059 0001:002828C8 4060 0001:002828D8 + 4061 0001:002828E8 4062 0001:002828FD 4063 0001:00282909 4064 0001:00282946 + 4065 0001:00282975 4066 0001:002829AA 4067 0001:002829D2 4068 0001:002829F5 + 4069 0001:00282A36 4070 0001:00282A42 4071 0001:00282A59 4072 0001:00282ACE + 4077 0001:00282B30 4078 0001:00282B58 4080 0001:00282B84 4081 0001:00282B8F + 4084 0001:00282B94 4086 0001:00282BA9 4088 0001:00282BC8 4091 0001:00282C18 + 4092 0001:00282C29 4095 0001:00282C2B 4086 0001:00282C2E 4097 0001:00282C33 + 4098 0001:00282C4B 4099 0001:00282C61 4101 0001:00282C75 4102 0001:00282C7F + 4103 0001:00282C90 4109 0001:00282CBD 4112 0001:00282DB4 4114 0001:00282DC0 + 4115 0001:00282DCB 4129 0001:00282DD0 4131 0001:00282DF1 4133 0001:00282E1F + 4134 0001:00282E30 4135 0001:00282E41 4137 0001:00282E51 4139 0001:00282EC4 + 4140 0001:00282ED7 4144 0001:00282EDC 4146 0001:00282F11 4147 0001:00282F24 + 4151 0001:00282F29 4152 0001:00282F4D 4154 0001:00282F73 4158 0001:00282FAE + 4159 0001:00282FC1 4162 0001:00282FC3 4163 0001:00282FFD 4171 0001:002832C8 + 4172 0001:002832EB 4173 0001:002832F3 4174 0001:00283300 4175 0001:00283315 + 4176 0001:00283336 4177 0001:0028334C 4179 0001:0028335D 4181 0001:00283370 + 4182 0001:00283380 4185 0001:00283392 4187 0001:002833CA 4189 0001:002833E2 + 4191 0001:002833F3 4192 0001:00283401 4195 0001:0028340D 4197 0001:00283462 + 4205 0001:002834A0 4206 0001:002834C3 4208 0001:002834E5 4210 0001:0028350F + 4212 0001:00283561 4214 0001:0028358C 4215 0001:002835A7 4217 0001:002835AD + 4219 0001:002835E0 4220 0001:002835F9 4225 0001:0028360C 4228 0001:00283625 + 4230 0001:00283627 4206 0001:0028362A 4231 0001:0028365D 4236 0001:002836D8 + 4238 0001:002836E4 4239 0001:002836EB 4240 0001:002836F6 4245 0001:002836FC + 4247 0001:00283709 4248 0001:00283727 4249 0001:0028373B 4255 0001:00283740 + 4258 0001:00283763 4260 0001:00283778 4261 0001:00283788 4262 0001:002837A9 + 4263 0001:002837B3 4267 0001:002837DE 4269 0001:00283806 4270 0001:00283832 + 4273 0001:0028383D 4274 0001:0028384C 4276 0001:00283857 4277 0001:0028388C + 4281 0001:002838B8 4283 0001:002838C7 4287 0001:002838E9 4288 0001:00283911 + 4292 0001:0028391B 4293 0001:00283926 4297 0001:00283930 4298 0001:0028393B + 4302 0001:00283945 4304 0001:0028394B 4305 0001:0028395C 4307 0001:00283966 + 4309 0001:0028396C 4310 0001:0028397D 4314 0001:00283985 4317 0001:0028398C + 4319 0001:00283998 4320 0001:002839A3 4321 0001:002839AE 4326 0001:002839B4 + 4327 0001:002839C0 4328 0001:002839DE 4329 0001:002839E2 4330 0001:002839EE + 4332 0001:002839FA 4333 0001:002839FE 4334 0001:00283A16 4335 0001:00283A30 + 4336 0001:00283A49 4337 0001:00283A4D 4338 0001:00283A4F 4333 0001:00283A52 + 4340 0001:00283A5A 4345 0001:00283A60 4346 0001:00283A6C 4347 0001:00283A8A + 4348 0001:00283A8E 4349 0001:00283A9A 4351 0001:00283AA6 4352 0001:00283AAA + 4353 0001:00283AC2 4354 0001:00283ADC 4355 0001:00283AF5 4356 0001:00283AF9 + 4357 0001:00283AFB 4352 0001:00283AFE 4359 0001:00283B06 4362 0001:00283B0C + 4363 0001:00283B13 4364 0001:00283B1F 4365 0001:00283B2F 4367 0001:00283B3A + 4370 0001:00283B40 4371 0001:00283B47 4372 0001:00283B53 4373 0001:00283B63 + 4375 0001:00283B6E 4378 0001:00283B74 4379 0001:00283B83 4381 0001:00283B9F + 4382 0001:00283BC7 4384 0001:00283BCF 4385 0001:00283BEB 4386 0001:00283BF1 + 4390 0001:00283BF8 4392 0001:00283C07 4395 0001:00283C2A 4396 0001:00283C65 + 4397 0001:00283C6D 4399 0001:00283C7E 4402 0001:00283C84 4404 0001:00283C90 + 4405 0001:00283C9B 4406 0001:00283CA6 4409 0001:00283CAC 4411 0001:00283CB8 + 4412 0001:00283CC3 4413 0001:00283CCE 4416 0001:00283CD4 4418 0001:00283CE0 + 4419 0001:00283CEB 4420 0001:00283CF6 4423 0001:00283CFC 4424 0001:00283D08 + 4425 0001:00283D13 4426 0001:00283D1B 4427 0001:00283D23 4431 0001:00283D28 + 4433 0001:00283D37 4435 0001:00283D49 4436 0001:00283D5A 4438 0001:00283D62 + 4441 0001:00283D68 4443 0001:00283D74 4444 0001:00283D7E 4445 0001:00283D8F + 4450 0001:00283DD0 4451 0001:00283DDC 4452 0001:00283DE7 4453 0001:00283E10 + 4454 0001:00283E37 4455 0001:00283E42 4456 0001:00283E4D 4457 0001:00283E5C + 4458 0001:00283E85 4465 0001:00283E8C 4467 0001:00283EB8 4469 0001:00283EBE + 4470 0001:00283EE7 4471 0001:00283F0C 4473 0001:00283F12 4474 0001:00283F3B + 4475 0001:00283F51 4477 0001:00283F74 4478 0001:00283F84 4479 0001:00283FC9 + 4483 0001:00283FD8 4485 0001:00283FE7 4486 0001:00283FF1 4487 0001:00284002 + 4494 0001:00284044 4495 0001:0028407D 4496 0001:00284085 4497 0001:0028408D + 4498 0001:0028409B 4500 0001:002840A9 4501 0001:002840C9 4502 0001:002840FE + 4503 0001:0028410C 4504 0001:00284119 4505 0001:00284135 4506 0001:00284142 + 4507 0001:00284150 4508 0001:0028415D 4509 0001:00284179 4510 0001:00284186 + 4511 0001:00284194 4512 0001:002841A1 4513 0001:002841A7 4514 0001:002841B4 + 4515 0001:002841BA 4516 0001:002841C7 4517 0001:002841CD 4518 0001:002841DA + 4519 0001:002841E0 4520 0001:002841ED 4521 0001:002841F3 4522 0001:00284200 + 4523 0001:00284206 4524 0001:00284213 4525 0001:00284219 4526 0001:00284226 + 4527 0001:0028422C 4528 0001:00284239 4529 0001:0028423F 4530 0001:0028424C + 4531 0001:00284252 4532 0001:0028425F 4534 0001:0028426B 4535 0001:00284276 + 4537 0001:00284286 4538 0001:00284294 4539 0001:0028429C 4542 0001:002842C2 + 4544 0001:00284306 4549 0001:00284460 4550 0001:0028447F 4551 0001:00284487 + 4553 0001:00284493 4554 0001:002844A4 4556 0001:002844B4 4557 0001:002844DC + 4563 0001:002844E0 4564 0001:002844E9 4565 0001:002844ED 4566 0001:002844F1 + 4567 0001:002844FA 4568 0001:00284510 4569 0001:0028452C 4570 0001:00284557 + 4571 0001:0028455E 4575 0001:00284564 4577 0001:00284573 4581 0001:002845F0 + 4582 0001:0028460E 4583 0001:0028461E 4587 0001:00284624 4588 0001:00284630 + 4590 0001:00284640 4591 0001:00284650 4592 0001:00284660 4593 0001:00284687 + 4594 0001:0028469B 4595 0001:002846B9 4597 0001:002846C9 4598 0001:002846F2 + 4602 0001:002846FE 4603 0001:0028470E 4604 0001:0028471E 4606 0001:0028472A + 4607 0001:00284753 4610 0001:0028475D 4614 0001:00284764 4615 0001:00284773 + 4616 0001:0028477D 4617 0001:0028478B 4622 0001:00284790 4623 0001:002847AF + 4624 0001:002847B7 4626 0001:002847C3 4627 0001:002847D4 4629 0001:002847E4 + 4630 0001:0028480C 4633 0001:00284810 4635 0001:0028481C 4640 0001:00284834 + 4642 0001:00284846 4643 0001:00284859 4645 0001:00284864 4647 0001:00284875 + 4648 0001:00284888 4651 0001:00284893 4654 0001:00284930 4656 0001:0028494F + 4657 0001:0028497B 4658 0001:002849A3 4661 0001:002849B8 4663 0001:002849D7 + 4664 0001:00284A0F 4665 0001:00284A43 4668 0001:00284A58 4669 0001:00284A64 + 4670 0001:00284A6E 4671 0001:00284A79 4674 0001:00284A80 4676 0001:00284AA2 + 4677 0001:00284AC4 4678 0001:00284AD5 4679 0001:00284B08 4684 0001:00284B0C + 4690 0001:00284B30 4691 0001:00284B47 4693 0001:00284B73 4695 0001:00284B7F + 4696 0001:00284B9B 4697 0001:00284BA1 4699 0001:00284BAC 4701 0001:00284BDB + 4702 0001:00284BE5 4706 0001:00284BFD 4707 0001:00284C07 4708 0001:00284C17 + 4709 0001:00284C22 4711 0001:00284C61 4732 0001:00284D04 4733 0001:00284D32 + 4734 0001:00284D37 4735 0001:00284D3B 4736 0001:00284D45 4737 0001:00284D63 + 4738 0001:00284DB6 4736 0001:00284DBC 4739 0001:00284DC1 4740 0001:00284DF6 + 4743 0001:00284DFC 4745 0001:00284E05 4746 0001:00284E09 4747 0001:00284E2A + 4748 0001:00284E31 4753 0001:00284E38 4754 0001:00284E63 4755 0001:00284E6A + 4757 0001:00284E88 4759 0001:00284EA3 4760 0001:00284EA9 4762 0001:00284EAB + 4755 0001:00284EAE 4763 0001:00284EDB 4767 0001:00284EE0 4771 0001:00284EEC + 4772 0001:00284EFD 4776 0001:00284F04 4779 0001:00284F13 4780 0001:00284F24 + 4781 0001:00284F2F 4785 0001:00284F38 4788 0001:00284F47 4789 0001:00284F58 + 4790 0001:00284F63 4793 0001:00284F6C 4795 0001:00284F78 4796 0001:00284F86 + 4799 0001:00284F8C 4801 0001:00284F98 4802 0001:00284FA6 4805 0001:00284FAC + 4807 0001:00284FB8 4808 0001:00284FC6 4811 0001:00284FCC 4812 0001:00284FEF + 4814 0001:00284FF9 4816 0001:0028500B 4817 0001:0028503E 4818 0001:0028504F + 4820 0001:00285065 4822 0001:00285076 4823 0001:00285087 4826 0001:0028509D + 4827 0001:002850CA 4830 0001:002850D0 4833 0001:002850DD 4834 0001:002850FB + 4836 0001:0028513C 4836 0001:00285143 + +Line numbers for IdException(IdException.pas) segment .text + + 109 0001:00285264 110 0001:0028527F 111 0001:0028528C 112 0001:002852B0 + 114 0001:002852E8 114 0001:002852EF + +Line numbers for IdResourceStrings(IdResourceStrings.pas) segment .text + + 653 0001:00285488 653 0001:0028548F + +Line numbers for IdWinSock2(IdWinsock2.pas) segment .text + + 2516 0001:00285508 2517 0001:0028553A 2518 0001:00285548 2519 0001:00285551 + 2521 0001:00285557 2525 0001:00285566 2526 0001:0028557F 2528 0001:002855E4 + 2534 0001:002855F8 2535 0001:002855FC 2536 0001:0028560B 2538 0001:00285611 + 2539 0001:0028561A 2541 0001:0028561F 2552 0001:00285624 2552 0001:00285630 + 2553 0001:00285634 2553 0001:00285640 2554 0001:00285644 2554 0001:00285650 + 2555 0001:00285654 2555 0001:00285660 2556 0001:00285664 2556 0001:00285670 + 2557 0001:00285674 2557 0001:00285680 2558 0001:00285684 2558 0001:00285690 + 2559 0001:00285694 2559 0001:002856A0 2560 0001:002856A4 2560 0001:002856B0 + 2561 0001:002856B4 2561 0001:002856C0 2562 0001:002856C4 2562 0001:002856D0 + 2563 0001:002856D4 2563 0001:002856E0 2564 0001:002856E4 2564 0001:002856F0 + 2565 0001:002856F4 2565 0001:00285700 2566 0001:00285704 2566 0001:00285710 + 2567 0001:00285714 2567 0001:00285720 2568 0001:00285724 2568 0001:00285730 + 2569 0001:00285734 2569 0001:00285740 2570 0001:00285744 2570 0001:00285750 + 2571 0001:00285754 2571 0001:00285760 2572 0001:00285764 2572 0001:00285770 + 2573 0001:00285774 2573 0001:00285780 2574 0001:00285784 2574 0001:00285790 + 2575 0001:00285794 2575 0001:002857A0 2576 0001:002857A4 2576 0001:002857B0 + 2577 0001:002857B4 2577 0001:002857C0 2578 0001:002857C4 2578 0001:002857D0 + 2579 0001:002857D4 2579 0001:002857E0 2580 0001:002857E4 2580 0001:002857F0 + 2581 0001:002857F4 2581 0001:00285800 2582 0001:00285804 2582 0001:00285810 + 2583 0001:00285814 2583 0001:00285820 2584 0001:00285824 2584 0001:00285830 + 2585 0001:00285834 2585 0001:00285840 2586 0001:00285844 2586 0001:00285850 + 2587 0001:00285854 2587 0001:00285860 2588 0001:00285864 2588 0001:00285870 + 2589 0001:00285874 2589 0001:00285880 2590 0001:00285884 2590 0001:00285890 + 2591 0001:00285894 2591 0001:002858A0 2592 0001:002858A4 2592 0001:002858B0 + 2593 0001:002858B4 2593 0001:002858C0 2594 0001:002858C4 2594 0001:002858D0 + 2595 0001:002858D4 2595 0001:002858E0 2596 0001:002858E4 2596 0001:002858F0 + 2597 0001:002858F4 2597 0001:00285900 2598 0001:00285904 2598 0001:00285910 + 2599 0001:00285914 2599 0001:00285920 2600 0001:00285924 2600 0001:00285930 + 2601 0001:00285934 2601 0001:00285940 2602 0001:00285944 2602 0001:00285950 + 2603 0001:00285954 2603 0001:00285960 2604 0001:00285964 2604 0001:00285970 + 2605 0001:00285974 2605 0001:00285980 2606 0001:00285984 2606 0001:00285990 + 2607 0001:00285994 2607 0001:002859A0 2608 0001:002859A4 2608 0001:002859B0 + 2609 0001:002859B4 2609 0001:002859C0 2610 0001:002859C4 2610 0001:002859D0 + 2611 0001:002859D4 2611 0001:002859E0 2612 0001:002859E4 2612 0001:002859F0 + 2613 0001:002859F4 2613 0001:00285A00 2614 0001:00285A04 2614 0001:00285A10 + 2615 0001:00285A14 2615 0001:00285A20 2616 0001:00285A24 2616 0001:00285A30 + 2617 0001:00285A34 2617 0001:00285A40 2618 0001:00285A44 2618 0001:00285A50 + 2619 0001:00285A54 2619 0001:00285A60 2620 0001:00285A64 2620 0001:00285A70 + 2621 0001:00285A74 2621 0001:00285A80 2622 0001:00285A84 2622 0001:00285A90 + 2623 0001:00285A94 2623 0001:00285AA0 2624 0001:00285AA4 2624 0001:00285AB0 + 2625 0001:00285AB4 2625 0001:00285AC0 2626 0001:00285AC4 2626 0001:00285AD0 + 2627 0001:00285AD4 2627 0001:00285AE0 2628 0001:00285AE4 2628 0001:00285AF0 + 2629 0001:00285AF4 2629 0001:00285B00 2630 0001:00285B04 2630 0001:00285B10 + 2631 0001:00285B14 2631 0001:00285B20 2632 0001:00285B24 2632 0001:00285B30 + 2633 0001:00285B34 2633 0001:00285B40 2634 0001:00285B44 2634 0001:00285B50 + 2635 0001:00285B54 2635 0001:00285B60 2636 0001:00285B64 2636 0001:00285B70 + 2637 0001:00285B74 2637 0001:00285B80 2638 0001:00285B84 2638 0001:00285B90 + 2639 0001:00285B94 2639 0001:00285BA0 2640 0001:00285BA4 2640 0001:00285BB0 + 2641 0001:00285BB4 2641 0001:00285BC0 2642 0001:00285BC4 2642 0001:00285BD0 + 2643 0001:00285BD4 2643 0001:00285BE0 2644 0001:00285BE4 2644 0001:00285BF0 + 2645 0001:00285BF4 2645 0001:00285C00 2646 0001:00285C04 2646 0001:00285C10 + 2647 0001:00285C14 2647 0001:00285C20 2648 0001:00285C24 2648 0001:00285C30 + 2649 0001:00285C34 2649 0001:00285C40 2650 0001:00285C44 2650 0001:00285C50 + 2651 0001:00285C54 2651 0001:00285C60 2652 0001:00285C64 2652 0001:00285C70 + 2653 0001:00285C74 2653 0001:00285C80 2654 0001:00285C84 2654 0001:00285C90 + 2655 0001:00285C94 2655 0001:00285CA0 2656 0001:00285CA4 2656 0001:00285CB0 + 2657 0001:00285CB4 2657 0001:00285CC0 2658 0001:00285CC4 2658 0001:00285CD0 + 2659 0001:00285CD4 2659 0001:00285CE0 2660 0001:00285CE4 2660 0001:00285CF0 + 2662 0001:00285CF4 2662 0001:00285D00 2663 0001:00285D04 2663 0001:00285D10 + 2664 0001:00285D14 2664 0001:00285D20 2802 0001:002863B4 2803 0001:002863D3 + 2805 0001:002863E3 2807 0001:002863EC 2809 0001:00286430 2810 0001:00286445 + 2812 0001:00286475 2816 0001:0028647C 2817 0001:00286482 2818 0001:00286489 + 2819 0001:0028648E 2820 0001:0028649E 2818 0001:002864AE 2821 0001:002864B4 + 2825 0001:002864B8 2826 0001:002864D4 2828 0001:002864E1 2829 0001:002864F0 + 2831 0001:002864F9 2833 0001:0028653F 2834 0001:00286554 2839 0001:00286568 + 2841 0001:00286592 2941 0001:002865C4 2942 0001:002865F7 2938 0001:002865FC + 2939 0001:00286608 2940 0001:0028660D + +Line numbers for IdStackConsts(IdStackConsts.pas) segment .text + + 196 0001:00286640 196 0001:00286647 + +Line numbers for IdStack(IdStack.pas) segment .text + + 134 0001:002868CC 135 0001:002868D8 136 0001:002868EE 142 0001:002868F4 + 143 0001:00286903 144 0001:00286907 145 0001:0028690D 146 0001:0028691B + 147 0001:0028692D 148 0001:0028693E 149 0001:00286942 151 0001:00286944 + 146 0001:00286947 152 0001:0028694C 154 0001:0028695D 166 0001:00286964 + 177 0001:00286984 205 0001:002869C7 208 0001:002869CC 211 0001:002869FF + 231 0001:00286A04 232 0001:00286A2A 233 0001:00286A32 234 0001:00286B46 + 235 0001:00286B58 236 0001:00286B6A 237 0001:00286B7C 238 0001:00286B8E + 239 0001:00286BA0 241 0001:00286BB2 242 0001:00286BC4 243 0001:00286BD6 + 244 0001:00286BE8 245 0001:00286BFA 246 0001:00286C0C 247 0001:00286C1E + 248 0001:00286C30 249 0001:00286C42 250 0001:00286C54 251 0001:00286C66 + 252 0001:00286C78 253 0001:00286C8A 254 0001:00286C9C 255 0001:00286CAE + 256 0001:00286CC0 257 0001:00286CD2 258 0001:00286CE4 259 0001:00286CF6 + 260 0001:00286D08 261 0001:00286D1A 262 0001:00286D2C 263 0001:00286D3E + 264 0001:00286D50 265 0001:00286D5F 266 0001:00286D6E 267 0001:00286D7D + 268 0001:00286D8C 269 0001:00286D9B 270 0001:00286DAA 271 0001:00286DB9 + 272 0001:00286DC8 274 0001:00286DD5 275 0001:00286E3B 295 0001:00286E40 + 296 0001:00286E51 297 0001:00286E5C 298 0001:00286E78 301 0001:00286E7C + 302 0001:00286E9F 303 0001:00286ED0 313 0001:00286F08 313 0001:00286F0F + +Line numbers for IdStackWindows(IdStackWindows.pas) segment .text + + 93 0001:00287064 94 0001:00287095 95 0001:0028709F 97 0001:002870A8 + 98 0001:002870BC 100 0001:002870E3 102 0001:00287125 105 0001:0028712C + 107 0001:0028713D 108 0001:00287159 112 0001:00287160 113 0001:00287189 + 117 0001:0028720E 124 0001:00287220 125 0001:00287243 126 0001:0028724A + 127 0001:00287262 128 0001:0028727B 129 0001:002872B1 136 0001:002872B8 + 137 0001:002872C7 138 0001:002872CF 139 0001:002872DB 141 0001:002872E2 + 143 0001:002872F6 144 0001:00287308 145 0001:00287321 148 0001:00287328 + 149 0001:00287334 150 0001:00287347 157 0001:0028734C 158 0001:0028735B + 159 0001:00287363 160 0001:00287377 161 0001:00287389 162 0001:002873A2 + 169 0001:002873A8 170 0001:002873B8 171 0001:002873CD 172 0001:002873D3 + 174 0001:002873E0 175 0001:002873EB 176 0001:002873F3 177 0001:002873FC + 178 0001:00287405 179 0001:0028740E 181 0001:0028741C 187 0001:00287424 + 188 0001:00287433 189 0001:00287448 190 0001:0028745C 191 0001:00287462 + 193 0001:0028746F 195 0001:0028747C 200 0001:00287480 201 0001:0028748C + 202 0001:00287499 203 0001:002874B8 204 0001:002874CC 208 0001:002874D0 + 209 0001:002874DF 210 0001:002874F6 214 0001:002874FC 215 0001:0028750B + 216 0001:0028752A 224 0001:00287530 225 0001:00287553 226 0001:0028755A + 227 0001:0028757E 228 0001:00287597 229 0001:002875CD 239 0001:002875D4 + 240 0001:002875E0 241 0001:002875E6 242 0001:002875EE 243 0001:002875FB + 244 0001:00287610 245 0001:00287622 243 0001:00287625 247 0001:0028762A + 252 0001:00287630 253 0001:0028764F 254 0001:00287655 255 0001:0028765E + 257 0001:0028767F 258 0001:00287695 259 0001:002876AA 257 0001:002876AD + 260 0001:002876B2 262 0001:002876DA 264 0001:002876E0 265 0001:002876F2 + 266 0001:00287704 267 0001:00287716 268 0001:00287728 269 0001:00287738 + 270 0001:00287748 271 0001:00287758 272 0001:0028775E 274 0001:00287785 + 275 0001:00287793 276 0001:002877A7 278 0001:002877CE 279 0001:002877DE + 280 0001:002877EE 281 0001:00287801 285 0001:00287808 286 0001:00287817 + 287 0001:00287836 294 0001:0028783C 295 0001:0028784B 298 0001:0028785A + 299 0001:00287860 300 0001:00287874 302 0001:00287886 303 0001:002878AB + 307 0001:002878B4 308 0001:002878C3 309 0001:002878E6 312 0001:002878EC + 313 0001:002878F5 315 0001:002878FE 317 0001:00287910 318 0001:00287917 + 319 0001:00287923 322 0001:00287928 323 0001:00287931 324 0001:00287940 + 327 0001:00287944 328 0001:00287953 329 0001:0028796E 332 0001:00287974 + 333 0001:00287981 334 0001:00287997 337 0001:0028799C 338 0001:002879A9 + 339 0001:002879BF 345 0001:002879C4 346 0001:002879E6 347 0001:002879FD + 349 0001:00287A03 353 0001:00287A1C 354 0001:00287A2A 356 0001:00287A50 + 359 0001:00287AA6 367 0001:00287AD8 368 0001:00287B00 369 0001:00287B0F + 370 0001:00287B1D 371 0001:00287B2B 372 0001:00287B4B 374 0001:00287B51 + 375 0001:00287B69 376 0001:00287B6E 379 0001:00287B84 380 0001:00287BA0 + 377 0001:00287BA3 384 0001:00287BBE 386 0001:00287BFE 389 0001:00287C08 + 390 0001:00287C14 391 0001:00287C27 394 0001:00287C2C 395 0001:00287C38 + 396 0001:00287C4B 406 0001:00287C50 407 0001:00287C70 408 0001:00287C7B + 409 0001:00287C9B 411 0001:00287CA1 415 0001:00287CAE 416 0001:00287CB7 + 419 0001:00287CBE 420 0001:00287CE0 417 0001:00287CE3 423 0001:00287D11 + 426 0001:00287D18 427 0001:00287D25 428 0001:00287D37 435 0001:00287D3C + 436 0001:00287D5E 437 0001:00287D63 438 0001:00287D86 439 0001:00287D94 + 440 0001:00287DB3 442 0001:00287DCE 443 0001:00287DFF 446 0001:00287E04 + 448 0001:00287E35 449 0001:00287E57 450 0001:00287E7A 451 0001:00287E9D + 453 0001:00287EEA 456 0001:00287EFC 457 0001:00287F0B 458 0001:00287F22 + 465 0001:00287F28 466 0001:00287F4B 467 0001:00287F52 468 0001:00287F71 + 469 0001:00287F7A 470 0001:00287F93 471 0001:00287FC6 478 0001:00287FD0 + 479 0001:00287FF3 480 0001:00287FFA 481 0001:00288019 482 0001:00288022 + 483 0001:0028803B 484 0001:0028806E 487 0001:00288078 488 0001:00288087 + 489 0001:002880AA 494 0001:002880B0 495 0001:002880CF 496 0001:002880D8 + 498 0001:002880F9 499 0001:00288109 500 0001:0028812C 503 0001:00288130 + 504 0001:00288139 505 0001:00288145 508 0001:0028814C 509 0001:0028816B + 510 0001:0028817C 512 0001:0028818B 514 0001:002881CC 519 0001:002881D0 + 520 0001:002881DC 521 0001:002881F2 522 0001:00288201 523 0001:00288207 + 524 0001:0028821E 525 0001:0028822D 527 0001:0028822F 520 0001:00288232 + 528 0001:00288237 531 0001:0028823C 532 0001:00288262 533 0001:0028826C + 535 0001:0028827B 536 0001:00288289 538 0001:0028828B 539 0001:002882F1 + 548 0001:002882F8 549 0001:0028831A 551 0001:00288338 541 0001:0028833C + 542 0001:00288348 544 0001:00288355 545 0001:0028835F 547 0001:0028836A + +Line numbers for IdURI(IdURI.pas) segment .text + + 317 0001:0028839C 317 0001:002883A3 + +Line numbers for IdGlobal(IdGlobal.pas) segment .text + + 463 0001:002884D0 471 0001:002884DC 479 0001:002884E7 686 0001:002885D0 + 687 0001:002885EC 688 0001:002885F9 689 0001:00288617 690 0001:00288622 + 691 0001:0028864C 1045 0001:00288650 1046 0001:00288676 1048 0001:00288685 + 1051 0001:00288697 1053 0001:002886C0 1054 0001:002886C6 1055 0001:002886D3 + 1056 0001:002886D9 1059 0001:002886E3 1060 0001:002886FA 1062 0001:00288700 + 1065 0001:00288742 1072 0001:00288758 1073 0001:00288767 1074 0001:00288771 + 1076 0001:00288780 1078 0001:00288792 1080 0001:002887A3 1081 0001:002887A9 + 1082 0001:002887B6 1083 0001:002887BC 1087 0001:002887C6 1088 0001:002887DD + 1090 0001:002887E3 1094 0001:00288805 1096 0001:00288817 1121 0001:0028882C + 1123 0001:00288833 1124 0001:00288843 1816 0001:00288848 1817 0001:00288854 + 1818 0001:00288865 2235 0001:0028886C 2236 0001:00288926 2214 0001:00288928 + 2219 0001:00288948 2220 0001:0028895D 2223 0001:0028896A 2224 0001:0028897D + 2226 0001:00288989 2229 0001:00288993 2230 0001:002889AD 2231 0001:002889BC + 2232 0001:002889D6 2234 0001:00288A02 + +Line numbers for fODMedIV(Orders\fODMedIV.pas) segment .text + + 131 0001:0028907C 132 0001:00289095 133 0001:002890A9 134 0001:002890B2 + 135 0001:002890B9 136 0001:002890C1 138 0001:002890CD 139 0001:002890DC + 140 0001:002890E3 142 0001:002890E5 143 0001:002890F3 144 0001:002890FF + 145 0001:00289109 146 0001:00289119 147 0001:00289123 148 0001:00289135 + 149 0001:0028913F 150 0001:0028916C 155 0001:00289208 156 0001:00289212 + 157 0001:00289222 158 0001:0028924A 159 0001:00289254 160 0001:00289268 + 163 0001:00289270 164 0001:00289275 165 0001:0028927C 167 0001:00289282 + 168 0001:002892AB 169 0001:002892D4 171 0001:00289307 172 0001:00289326 + 181 0001:0028934C 182 0001:00289352 184 0001:00289359 186 0001:0028936D + 187 0001:0028937D 188 0001:0028938B 184 0001:0028938C 189 0001:0028938F + 191 0001:0028939F 193 0001:002893A5 194 0001:002893B7 195 0001:002893C2 + 197 0001:002893D4 198 0001:002893E4 199 0001:002893ED 200 0001:002893FA + 201 0001:00289407 202 0001:00289414 203 0001:0028941B 212 0001:00289448 + 213 0001:0028944E 214 0001:00289475 215 0001:00289488 217 0001:00289498 + 218 0001:002894BF 219 0001:002894CA 221 0001:002894D3 222 0001:002894D7 + 223 0001:002894E5 222 0001:002894FB 224 0001:002894FE 225 0001:00289510 + 227 0001:00289522 228 0001:00289574 229 0001:0028959D 230 0001:002895CA + 231 0001:002895F3 225 0001:002895F4 233 0001:002895FB 235 0001:00289626 + 236 0001:00289642 237 0001:0028964A 239 0001:002896B3 247 0001:002897C8 + 248 0001:002897EB 249 0001:002897F5 251 0001:00289801 252 0001:00289812 + 253 0001:00289823 255 0001:0028982B 256 0001:0028983C 258 0001:00289844 + 259 0001:00289858 260 0001:00289866 261 0001:00289873 263 0001:0028987F + 265 0001:0028988D 266 0001:0028989E 267 0001:002898AE 271 0001:002898B3 + 273 0001:002898C8 274 0001:002898D9 275 0001:002898E9 278 0001:002898EE + 279 0001:002898F9 280 0001:002898FD 281 0001:0028991D 282 0001:0028993B + 283 0001:00289961 285 0001:0028996A 286 0001:0028998C 287 0001:0028999D + 288 0001:002899B1 289 0001:002899B7 290 0001:002899D9 293 0001:002899F0 + 294 0001:00289A01 295 0001:00289A23 253 0001:00289A34 297 0001:00289A3C + 298 0001:00289A4D 300 0001:00289A55 301 0001:00289A66 303 0001:00289A6E + 304 0001:00289A82 305 0001:00289A90 306 0001:00289A9D 308 0001:00289AA9 + 310 0001:00289AB7 311 0001:00289AC8 312 0001:00289AD8 316 0001:00289ADD + 318 0001:00289AF2 319 0001:00289B03 320 0001:00289B13 323 0001:00289B18 + 324 0001:00289B23 325 0001:00289B27 326 0001:00289B47 327 0001:00289B65 + 328 0001:00289B8B 330 0001:00289B94 331 0001:00289BB6 332 0001:00289BC7 + 333 0001:00289BDB 334 0001:00289BE1 335 0001:00289C03 338 0001:00289C1A + 339 0001:00289C2B 340 0001:00289C4D 341 0001:00289C5E 342 0001:00289C80 + 298 0001:00289C91 344 0001:00289C99 345 0001:00289CB1 346 0001:00289CFD + 347 0001:00289D49 348 0001:00289D61 350 0001:00289D79 351 0001:00289D8A + 353 0001:00289D8E 354 0001:00289D9F 355 0001:00289DA3 358 0001:00289DAE + 359 0001:00289DB8 360 0001:00289DFA 363 0001:00289F18 364 0001:00289F1E + 365 0001:00289F27 366 0001:00289F3B 371 0001:00289F40 373 0001:00289F43 + 375 0001:00289F57 376 0001:00289F64 379 0001:00289F73 380 0001:00289F80 + 383 0001:00289F8D 384 0001:00289F99 385 0001:00289FA2 386 0001:00289FAE + 387 0001:00289FB7 395 0001:00289FBC 397 0001:00289FDB 398 0001:00289FE0 + 399 0001:00289FFA 400 0001:0028A038 406 0001:0028A06C 408 0001:0028A091 + 410 0001:0028A0BB 411 0001:0028A0E9 412 0001:0028A0F0 413 0001:0028A0FE + 415 0001:0028A103 416 0001:0028A123 417 0001:0028A130 419 0001:0028A139 + 421 0001:0028A14F 422 0001:0028A160 423 0001:0028A16D 427 0001:0028A172 + 429 0001:0028A18C 430 0001:0028A19D 431 0001:0028A1AA 435 0001:0028A1AF + 436 0001:0028A1C4 437 0001:0028A1D3 438 0001:0028A1E4 439 0001:0028A222 + 440 0001:0028A229 441 0001:0028A24C 442 0001:0028A26D 443 0001:0028A296 + 444 0001:0028A2A4 446 0001:0028A2AA 447 0001:0028A2CC 448 0001:0028A2E0 + 449 0001:0028A2F7 450 0001:0028A31C 451 0001:0028A336 452 0001:0028A344 + 453 0001:0028A37D 455 0001:0028A386 456 0001:0028A399 459 0001:0028A3A2 + 460 0001:0028A3AE 461 0001:0028A3B5 462 0001:0028A406 465 0001:0028A474 + 467 0001:0028A477 468 0001:0028A499 476 0001:0028A49C 478 0001:0028A4BB + 479 0001:0028A4C0 480 0001:0028A4DA 481 0001:0028A518 487 0001:0028A54C + 489 0001:0028A56C 490 0001:0028A58C 491 0001:0028A599 493 0001:0028A5A2 + 495 0001:0028A5B8 496 0001:0028A5C9 497 0001:0028A5D6 501 0001:0028A5DB + 503 0001:0028A5F5 504 0001:0028A606 505 0001:0028A613 508 0001:0028A618 + 509 0001:0028A62D 510 0001:0028A63C 511 0001:0028A64D 512 0001:0028A68B + 513 0001:0028A692 514 0001:0028A69A 515 0001:0028A6BB 516 0001:0028A6C6 + 517 0001:0028A6D4 519 0001:0028A6DA 520 0001:0028A6FC 521 0001:0028A710 + 522 0001:0028A727 523 0001:0028A741 524 0001:0028A74F 526 0001:0028A75B + 527 0001:0028A767 528 0001:0028A76E 529 0001:0028A79A 532 0001:0028A7FC + 534 0001:0028A7FF 535 0001:0028A821 546 0001:0028A824 549 0001:0028A82F + 550 0001:0028A858 552 0001:0028A891 553 0001:0028A898 554 0001:0028A89F + 555 0001:0028A8A9 556 0001:0028A8BA 558 0001:0028A8C3 560 0001:0028A8CC + 561 0001:0028A8EE 562 0001:0028A907 564 0001:0028A924 566 0001:0028A95C + 567 0001:0028A974 568 0001:0028A9C9 569 0001:0028A9EB 572 0001:0028A9F4 + 574 0001:0028AA2C 575 0001:0028AA44 576 0001:0028AA99 577 0001:0028AABB + 580 0001:0028AAC4 582 0001:0028AADB 583 0001:0028AB0A 584 0001:0028AB2C + 586 0001:0028AB57 589 0001:0028AB60 591 0001:0028AB81 593 0001:0028AB87 + 594 0001:0028AB8E 596 0001:0028ABC8 597 0001:0028ABEF 600 0001:0028ABF8 + 602 0001:0028AC10 604 0001:0028AC16 605 0001:0028AC53 606 0001:0028AC5A + 608 0001:0028AC7E 611 0001:0028AC84 613 0001:0028ACA5 615 0001:0028ACAB + 616 0001:0028ACB2 618 0001:0028ACEC 619 0001:0028AD13 622 0001:0028AD1C + 624 0001:0028AD34 626 0001:0028AD3A 627 0001:0028AD77 628 0001:0028AD7E + 630 0001:0028ADA2 635 0001:0028ADA8 637 0001:0028ADB2 639 0001:0028ADB8 + 640 0001:0028ADC2 641 0001:0028ADE5 642 0001:0028AE12 643 0001:0028AE25 + 645 0001:0028AE33 646 0001:0028AE3D 660 0001:0028AE44 661 0001:0028AE49 + 662 0001:0028AE4B 663 0001:0028AE74 665 0001:0028AE78 667 0001:0028AE9B + 669 0001:0028AEA8 670 0001:0028AEBF 672 0001:0028AEC3 673 0001:0028AECE + 676 0001:0028AED9 677 0001:0028AEE4 678 0001:0028AEF2 680 0001:0028AF13 + 681 0001:0028AF21 684 0001:0028AF29 686 0001:0028AF33 687 0001:0028AF5F + 688 0001:0028AFBF 690 0001:0028AFC2 692 0001:0028AFCC 693 0001:0028AFF8 + 694 0001:0028B058 695 0001:0028B0B8 698 0001:0028B0BB 678 0001:0028B0BC + 699 0001:0028B0C5 700 0001:0028B0D3 701 0001:0028B0DB 702 0001:0028B0E3 + 704 0001:0028B101 706 0001:0028B13B 707 0001:0028B16F 709 0001:0028B1A8 + 711 0001:0028B1E2 712 0001:0028B21B 715 0001:0028B25C 716 0001:0028B264 + 720 0001:0028B26C 721 0001:0028B285 722 0001:0028B2F4 723 0001:0028B351 + 724 0001:0028B390 725 0001:0028B3EE 726 0001:0028B417 727 0001:0028B456 + 728 0001:0028B478 729 0001:0028B490 730 0001:0028B541 734 0001:0028B6A4 + 736 0001:0028B6CE 737 0001:0028B6D6 738 0001:0028B6DC 740 0001:0028B6EB + 741 0001:0028B6FC 742 0001:0028B70A 744 0001:0028B756 747 0001:0028B760 + 748 0001:0028B766 749 0001:0028B76F 750 0001:0028B778 753 0001:0028B77C + 754 0001:0028B77F 755 0001:0028B79D 756 0001:0028B7BA 760 0001:0028B7BC + 762 0001:0028B7C6 765 0001:0028B7D2 766 0001:0028B802 767 0001:0028B807 + 769 0001:0028B814 774 0001:0028B81C 775 0001:0028B821 779 0001:0028B824 + 781 0001:0028B827 782 0001:0028B82C 787 0001:0028B830 789 0001:0028B83A + 790 0001:0028B848 791 0001:0028B865 792 0001:0028B877 797 0001:0028B880 + 799 0001:0028B899 806 0001:0028B8A4 807 0001:0028B8B2 808 0001:0028B8BB + 809 0001:0028B8E1 814 0001:0028B8E8 815 0001:0028B8F1 816 0001:0028B8F6 + 821 0001:0028B8F8 822 0001:0028B906 827 0001:0028B908 828 0001:0028B92F + 829 0001:0028B937 830 0001:0028B93F 831 0001:0028B947 833 0001:0028B969 + 834 0001:0028B97C 836 0001:0028B98F 838 0001:0028B9B1 839 0001:0028B9C4 + 840 0001:0028B9DB 842 0001:0028B9FC 844 0001:0028BA16 845 0001:0028BA2D + 846 0001:0028BA4E 847 0001:0028BA6C 848 0001:0028BA8A 850 0001:0028BAA6 + 852 0001:0028BABE 853 0001:0028BACC 854 0001:0028BAF1 855 0001:0028BAFE + 858 0001:0028BB2E 865 0001:0028BB90 867 0001:0028BBB7 869 0001:0028BBC7 + 870 0001:0028BBE2 872 0001:0028BC10 873 0001:0028BC1D 874 0001:0028BC2A + 875 0001:0028BC9C 876 0001:0028BCCE 878 0001:0028BCE1 879 0001:0028BD0E + 880 0001:0028BD49 881 0001:0028BD59 882 0001:0028BD6A 885 0001:0028BD6F + 888 0001:0028BDD1 890 0001:0028BDDB 891 0001:0028BDEB 892 0001:0028BDFC + 894 0001:0028BE01 896 0001:0028BE40 897 0001:0028BE4E 899 0001:0028BE7A + 901 0001:0028BE87 903 0001:0028BE95 904 0001:0028BE9F 905 0001:0028BEAF + 906 0001:0028BEC0 909 0001:0028BEC5 910 0001:0028BED3 912 0001:0028BF14 + 913 0001:0028BF1E 914 0001:0028BF2E 915 0001:0028BF3F 918 0001:0028BF58 + 920 0001:0028BF6D 921 0001:0028BFBC 928 0001:0028C1A8 931 0001:0028C1CA + 932 0001:0028C1D7 933 0001:0028C1D9 934 0001:0028C1FC 936 0001:0028C21B + 937 0001:0028C23C 938 0001:0028C25D 939 0001:0028C26C 941 0001:0028C27D + 942 0001:0028C29A 944 0001:0028C2BD 945 0001:0028C300 944 0001:0028C303 + 946 0001:0028C306 948 0001:0028C30B 949 0001:0028C31A 950 0001:0028C327 + 952 0001:0028C364 954 0001:0028C44C 954 0001:0028C453 + +Line numbers for fODVitals(Orders\fODVitals.pas) segment .text + + 66 0001:0028C7EC 67 0001:0028C7F2 68 0001:0028C806 69 0001:0028C80F + 70 0001:0028C81B 71 0001:0028C825 73 0001:0028C835 74 0001:0028C83F + 75 0001:0028C851 76 0001:0028C85B 77 0001:0028C862 80 0001:0028C8C8 + 81 0001:0028C8CC 82 0001:0028C8D3 83 0001:0028C8E0 85 0001:0028C8E6 + 86 0001:0028C8F8 88 0001:0028C90A 89 0001:0028C917 92 0001:0028C948 + 93 0001:0028C94E 94 0001:0028C957 96 0001:0028C96E 97 0001:0028C975 + 98 0001:0028C989 99 0001:0028C99D 100 0001:0028C9B1 101 0001:0028C9C5 + 102 0001:0028C9D9 103 0001:0028C9E0 105 0001:0028C9E9 112 0001:0028CA44 + 113 0001:0028CA4A 114 0001:0028CA71 115 0001:0028CA84 117 0001:0028CA94 + 118 0001:0028CAB6 119 0001:0028CAC0 120 0001:0028CAE5 121 0001:0028CAF3 + 122 0001:0028CB0B 123 0001:0028CB19 124 0001:0028CB31 125 0001:0028CB6D + 127 0001:0028CB9E 130 0001:0028CC4C 132 0001:0028CC6E 133 0001:0028CC7B + 134 0001:0028CC86 135 0001:0028CCDD 136 0001:0028CD2A 137 0001:0028CD77 + 138 0001:0028CDC4 139 0001:0028CE11 140 0001:0028CE74 145 0001:0028CED4 + 146 0001:0028CED9 147 0001:0028CEED 149 0001:0028CF20 149 0001:0028CF27 + +Line numbers for fOMSet(Orders\fOMSet.pas) segment .text + + 61 0001:0028D1B8 62 0001:0028D1EB 63 0001:0028D222 74 0001:0028D22C + 75 0001:0028D25A 76 0001:0028D26F 78 0001:0028D286 79 0001:0028D294 + 80 0001:0028D2C1 81 0001:0028D2F1 82 0001:0028D31C 84 0001:0028D347 + 86 0001:0028D354 87 0001:0028D35A 89 0001:0028D360 90 0001:0028D376 + 95 0001:0028D3C4 96 0001:0028D3CE 97 0001:0028D3D6 99 0001:0028D3D8 + 100 0001:0028D413 101 0001:0028D416 76 0001:0028D417 102 0001:0028D420 + 103 0001:0028D428 104 0001:0028D452 112 0001:0028D4F4 113 0001:0028D4F8 + 114 0001:0028D51C 115 0001:0028D527 117 0001:0028D52C 118 0001:0028D54C + 120 0001:0028D556 121 0001:0028D566 123 0001:0028D570 126 0001:0028D59D + 127 0001:0028D5A7 128 0001:0028D5B2 129 0001:0028D5C7 130 0001:0028D5D4 + 133 0001:0028D5DF 135 0001:0028D5E8 137 0001:0028D604 138 0001:0028D60C + 140 0001:0028D611 141 0001:0028D628 142 0001:0028D641 143 0001:0028D684 + 145 0001:0028D6AE 146 0001:0028D6E8 147 0001:0028D70B 149 0001:0028D717 + 151 0001:0028D74B 152 0001:0028D785 153 0001:0028D7A8 155 0001:0028D7B4 + 156 0001:0028D7E2 159 0001:0028D7F0 160 0001:0028D82A 162 0001:0028D84D + 165 0001:0028D859 166 0001:0028D871 168 0001:0028D8A2 169 0001:0028D8DC + 170 0001:0028D8FC 174 0001:0028D905 175 0001:0028D92F 179 0001:0028D936 + 180 0001:0028D962 183 0001:0028D9B4 186 0001:0028D9BA 187 0001:0028D9CD + 188 0001:0028DA03 189 0001:0028DA0C 190 0001:0028DA13 197 0001:0028DA18 + 198 0001:0028DA1E 199 0001:0028DA21 200 0001:0028DA30 201 0001:0028DA45 + 202 0001:0028DA51 204 0001:0028DA65 205 0001:0028DA6F 206 0001:0028DAB6 + 208 0001:0028DACA 215 0001:0028DAE4 218 0001:0028DAF6 219 0001:0028DAF7 + 213 0001:0028DB07 222 0001:0028DB1F 223 0001:0028DB34 227 0001:0028DB3C + 228 0001:0028DB44 229 0001:0028DB4B 230 0001:0028DB52 231 0001:0028DB5B + 232 0001:0028DB62 233 0001:0028DB69 238 0001:0028DB6C 239 0001:0028DB6F + 240 0001:0028DBA0 241 0001:0028DBA5 245 0001:0028DBAC 246 0001:0028DBB3 + 247 0001:0028DBBC 248 0001:0028DBC1 249 0001:0028DBE7 250 0001:0028DC00 + 257 0001:0028DC60 259 0001:0028DC6A 260 0001:0028DC71 261 0001:0028DC83 + 263 0001:0028DC9C 264 0001:0028DCBE 266 0001:0028DCE3 267 0001:0028DCF8 + 268 0001:0028DD10 269 0001:0028DD29 264 0001:0028DD2A 271 0001:0028DD2D + 272 0001:0028DD34 273 0001:0028DD3C 274 0001:0028DD42 278 0001:0028DD48 + 279 0001:0028DD51 281 0001:0028DD59 282 0001:0028DD5E 289 0001:0028DD60 + 290 0001:0028DD92 291 0001:0028DD96 293 0001:0028DDAA 294 0001:0028DDBA + 295 0001:0028DDC9 296 0001:0028DDD6 297 0001:0028DDE5 298 0001:0028DDEB + 299 0001:0028DDF1 301 0001:0028DDFE 302 0001:0028DE10 304 0001:0028DE33 + 305 0001:0028DE37 306 0001:0028DE39 301 0001:0028DE3A 307 0001:0028DE6A + 310 0001:0028DE80 311 0001:0028DE85 312 0001:0028DE87 313 0001:0028DE9D + 314 0001:0028DEA1 316 0001:0028DEEC 316 0001:0028DEF3 + +Line numbers for fOMHTML(Orders\fOMHTML.pas) segment .text + + 84 0001:0028E218 85 0001:0028E230 86 0001:0028E242 87 0001:0028E26F + 90 0001:0028E274 91 0001:0028E285 92 0001:0028E290 93 0001:0028E29B + 94 0001:0028E2B7 112 0001:0028E2BC 113 0001:0028E2C8 114 0001:0028E2E5 + 115 0001:0028E2FA 122 0001:0028E330 123 0001:0028E358 124 0001:0028E366 + 125 0001:0028E37E 126 0001:0028E396 128 0001:0028E3AE 129 0001:0028E3BA + 130 0001:0028E402 126 0001:0028E405 131 0001:0028E40A 132 0001:0028E40F + 133 0001:0028E44E 141 0001:0028E468 142 0001:0028E48E 143 0001:0028E49C + 144 0001:0028E4B4 145 0001:0028E4CC 146 0001:0028E4DB 148 0001:0028E4F7 + 149 0001:0028E4FF 150 0001:0028E55A 151 0001:0028E566 153 0001:0028E5A8 + 155 0001:0028E621 156 0001:0028E639 155 0001:0028E69E 158 0001:0028E6A3 + 146 0001:0028E6A6 159 0001:0028E6AF 160 0001:0028E6B4 161 0001:0028E6BC + 162 0001:0028E6FB 167 0001:0028E768 168 0001:0028E79B 169 0001:0028E7D4 + 174 0001:0028E7DC 175 0001:0028E7E8 176 0001:0028E7EF 177 0001:0028E80B + 179 0001:0028E829 180 0001:0028E82F 181 0001:0028E831 176 0001:0028E834 + 182 0001:0028E83C 189 0001:0028E840 190 0001:0028E86C 191 0001:0028E870 + 192 0001:0028E88D 194 0001:0028E8B6 195 0001:0028E90E 196 0001:0028E934 + 197 0001:0028E944 198 0001:0028E9A6 199 0001:0028E9AA 200 0001:0028E9B0 + 192 0001:0028E9B3 201 0001:0028EA2F 206 0001:0028EA64 207 0001:0028EA6D + 208 0001:0028EA7C 209 0001:0028EA90 210 0001:0028EAAA 223 0001:0028EAB0 + 224 0001:0028EAD1 225 0001:0028EAE1 226 0001:0028EB01 227 0001:0028EB1B + 228 0001:0028EB26 229 0001:0028EB31 231 0001:0028EB4B 232 0001:0028EB68 + 234 0001:0028EB91 235 0001:0028EBE9 236 0001:0028EBF1 237 0001:0028EBF9 + 239 0001:0028EC23 240 0001:0028EC33 242 0001:0028EC5D 244 0001:0028EC79 + 245 0001:0028ECB5 247 0001:0028ECF3 249 0001:0028ED35 251 0001:0028ED65 + 253 0001:0028ED85 254 0001:0028EDED 256 0001:0028EE37 258 0001:0028EE9F + 260 0001:0028EF23 261 0001:0028EF86 264 0001:0028EF91 266 0001:0028EFBD + 267 0001:0028EFCD 269 0001:0028EFF5 271 0001:0028F025 272 0001:0028F035 + 273 0001:0028F05D 274 0001:0028F08B 276 0001:0028F0A4 277 0001:0028F0C1 + 279 0001:0028F0DB 281 0001:0028F0F8 283 0001:0028F124 284 0001:0028F134 + 285 0001:0028F197 287 0001:0028F1A2 288 0001:0028F1BC 289 0001:0028F1D6 + 232 0001:0028F1D9 290 0001:0028F26C 307 0001:0028F480 308 0001:0028F4A6 + 309 0001:0028F4AE 311 0001:0028F4CC 313 0001:0028F500 314 0001:0028F527 + 316 0001:0028F529 309 0001:0028F52C 317 0001:0028F553 319 0001:0028F558 + 320 0001:0028F579 321 0001:0028F593 322 0001:0028F5A6 323 0001:0028F5C3 + 325 0001:0028F5EC 326 0001:0028F644 328 0001:0028F66E 329 0001:0028F67E + 330 0001:0028F6A4 331 0001:0028F6F9 332 0001:0028F71F 333 0001:0028F798 + 334 0001:0028F81C 336 0001:0028F880 338 0001:0028F8AC 339 0001:0028F8BC + 341 0001:0028F8E4 343 0001:0028F914 344 0001:0028F924 345 0001:0028F94C + 346 0001:0028F97A 348 0001:0028F9C4 350 0001:0028F9F0 351 0001:0028FA00 + 353 0001:0028FA64 323 0001:0028FA67 354 0001:0028FB7F 357 0001:0028FC94 + 358 0001:0028FCB6 359 0001:0028FCC2 360 0001:0028FD14 365 0001:0028FD18 + 366 0001:0028FD24 368 0001:0028FD2E 369 0001:0028FD43 370 0001:0028FD58 + 371 0001:0028FD6D 372 0001:0028FD7A 373 0001:0028FD87 376 0001:0028FD8C + 378 0001:0028FD9B 379 0001:0028FDA3 380 0001:0028FDC7 381 0001:0028FDEC + 386 0001:0028FDF0 387 0001:0028FDFC 388 0001:0028FE30 389 0001:0028FE35 + 390 0001:0028FE43 391 0001:0028FE51 392 0001:0028FE5C 400 0001:0028FE60 + 402 0001:0028FE86 403 0001:0028FEA6 404 0001:0028FED1 405 0001:0028FEE1 + 406 0001:0028FEF8 407 0001:0028FF18 408 0001:0028FF32 409 0001:0028FF78 + 423 0001:0028FF90 425 0001:0028FF9F 427 0001:0028FFA7 435 0001:0028FFB0 + 437 0001:0028FFD0 439 0001:0028FFD8 441 0001:0028FFF4 442 0001:00290008 + 444 0001:00290023 445 0001:00290045 442 0001:00290048 446 0001:0029004D + 439 0001:00290050 447 0001:00290055 450 0001:0029006C 451 0001:00290091 + 454 0001:00290098 456 0001:002900A4 457 0001:002900AC 462 0001:002900B0 + 464 0001:002900D3 466 0001:002900E8 467 0001:00290107 468 0001:00290129 + 469 0001:00290148 470 0001:0029016B 472 0001:002901AC 479 0001:002901B4 + 481 0001:002901D7 482 0001:002901DF 484 0001:002901EE 486 0001:0029020A + 487 0001:0029021E 489 0001:00290239 490 0001:00290255 487 0001:00290258 + 491 0001:0029025D 484 0001:00290260 492 0001:00290265 493 0001:00290270 + 494 0001:0029028A 495 0001:002902B4 497 0001:00290308 497 0001:0029030F + +Line numbers for fODMedNVA(Orders\fODMedNVA.pas) segment .text + + 308 0001:00290A2C 309 0001:00290A49 310 0001:00290A5D 312 0001:00290A64 + 313 0001:00290A6D 315 0001:00290A74 317 0001:00290A83 318 0001:00290A8B + 320 0001:00290A97 321 0001:00290A9F 323 0001:00290AAB 324 0001:00290ABA + 325 0001:00290AC1 330 0001:00290AC6 331 0001:00290AD9 332 0001:00290AE5 + 333 0001:00290AF7 334 0001:00290B09 335 0001:00290B1B 337 0001:00290B25 + 338 0001:00290B35 339 0001:00290B4A 340 0001:00290B54 341 0001:00290B67 + 342 0001:00290B6E 343 0001:00290B97 346 0001:00290BA1 347 0001:00290BAD + 348 0001:00290BBA 349 0001:00290BCB 350 0001:00290BDF 351 0001:00290BF1 + 352 0001:00290BFB 353 0001:00290C05 354 0001:00290C17 355 0001:00290C28 + 357 0001:00290C2E 358 0001:00290C42 359 0001:00290C57 362 0001:00290C65 + 363 0001:00290C7B 364 0001:00290C82 365 0001:00290C92 369 0001:00290C9E + 370 0001:00290CB0 371 0001:00290CD4 372 0001:00290CEE 373 0001:00290CF5 + 375 0001:00290CFC 376 0001:00290D10 377 0001:00290D17 378 0001:00290D40 + 381 0001:00290E38 383 0001:00290E3E 384 0001:00290E49 386 0001:00290E54 + 387 0001:00290E5F 388 0001:00290E6A 390 0001:00290E75 391 0001:00290E7E + 392 0001:00290E92 396 0001:00290E98 397 0001:00290EAE 398 0001:00290EB5 + 399 0001:00290ED6 400 0001:00290EDD 401 0001:00290EE4 402 0001:00290EF1 + 403 0001:00290EFC 404 0001:00290F09 405 0001:00290F16 406 0001:00290F23 + 407 0001:00290F2A 408 0001:00290F31 409 0001:00290F3F 410 0001:00290F4A + 411 0001:00290F58 413 0001:00290F89 419 0001:00290F90 420 0001:00290FB0 + 422 0001:00290FBB 423 0001:00290FCE 424 0001:00290FEB 426 0001:00290FFB + 427 0001:00291029 429 0001:00291037 430 0001:0029103C 432 0001:00291045 + 434 0001:0029104C 436 0001:0029105B 437 0001:00291062 438 0001:0029108E + 439 0001:00291095 440 0001:0029109C 441 0001:002910A3 442 0001:002910BA + 443 0001:002910C7 444 0001:002910D0 460 0001:002910D7 461 0001:00291102 + 469 0001:00291140 470 0001:00291146 471 0001:0029116D 472 0001:00291180 + 524 0001:00291190 525 0001:002911B7 527 0001:002911C1 528 0001:002911C9 + 530 0001:002911E3 531 0001:002911EC 532 0001:00291206 533 0001:00291227 + 534 0001:0029123D 544 0001:00291245 547 0001:0029125B 549 0001:00291271 + 550 0001:00291292 551 0001:002912AB 534 0001:002912C5 555 0001:002912EF + 562 0001:002913F8 563 0001:002913FE 564 0001:00291407 566 0001:00291410 + 567 0001:00291417 569 0001:0029141E 575 0001:00291424 576 0001:00291427 + 577 0001:0029142E 578 0001:00291447 580 0001:00291452 581 0001:00291469 + 585 0001:0029146C 586 0001:0029146F 588 0001:00291478 589 0001:0029148A + 591 0001:00291491 598 0001:00291494 599 0001:002914AD 601 0001:002914C5 + 602 0001:002914DA 603 0001:002914E1 604 0001:002914FA 605 0001:00291505 + 606 0001:0029150C 608 0001:00291513 610 0001:00291519 611 0001:00291520 + 612 0001:0029152E 613 0001:0029153E 614 0001:00291562 615 0001:00291570 + 616 0001:00291585 619 0001:002915A9 623 0001:002915B0 624 0001:002915B3 + 625 0001:002915D0 629 0001:002915D4 630 0001:002915DD 631 0001:002915E4 + 637 0001:002915E8 638 0001:002915F2 639 0001:00291600 640 0001:00291610 + 641 0001:0029161E 642 0001:0029163A 643 0001:00291646 644 0001:0029165C + 645 0001:00291668 652 0001:00291670 653 0001:00291693 654 0001:0029169D + 655 0001:002916A1 656 0001:002916AB 658 0001:002916E1 659 0001:002916E9 + 660 0001:0029171E 661 0001:0029172C 662 0001:00291740 663 0001:00291786 + 665 0001:0029178C 666 0001:002917AC 668 0001:002917BE 670 0001:002917C8 + 671 0001:002917D6 672 0001:002917F6 673 0001:0029180F 674 0001:00291828 + 676 0001:0029183A 679 0001:0029185A 681 0001:00291864 683 0001:0029186E + 684 0001:0029188E 685 0001:002918A7 686 0001:002918C0 687 0001:002918D0 + 689 0001:002918E2 690 0001:00291926 694 0001:0029192C 695 0001:0029193C + 696 0001:0029194C 697 0001:0029195E 699 0001:0029196F 700 0001:0029197B + 701 0001:0029197F 702 0001:00291989 704 0001:0029198F 705 0001:002919C4 + 707 0001:002919D5 708 0001:002919F0 711 0001:00291A0D 712 0001:00291A1E + 714 0001:00291A45 715 0001:00291A4F 716 0001:00291A61 717 0001:00291A72 + 718 0001:00291A84 719 0001:00291A95 721 0001:00291A9B 722 0001:00291AAF + 724 0001:00291AC3 725 0001:00291B11 728 0001:00291B18 729 0001:00291B1B + 730 0001:00291B22 731 0001:00291B3F 736 0001:00291B44 738 0001:00291B4A + 739 0001:00291B50 741 0001:00291B5F 742 0001:00291B7A 743 0001:00291BA5 + 745 0001:00291BB5 748 0001:00291BCC 750 0001:00291BCF 751 0001:00291BDC + 753 0001:00291BE9 754 0001:00291BFF 758 0001:00291C04 759 0001:00291C0B + 763 0001:00291C0C 764 0001:00291C0F 765 0001:00291C15 768 0001:00291C1C + 769 0001:00291C1F 770 0001:00291C4E 777 0001:00291C50 779 0001:00291C59 + 781 0001:00291C6D 785 0001:00291CA5 786 0001:00291CB0 787 0001:00291CBA + 790 0001:00291CC4 792 0001:00291CD5 794 0001:00291CE6 796 0001:00291CFE + 797 0001:00291D0D 798 0001:00291D1C 799 0001:00291D2A 800 0001:00291D38 + 805 0001:00291D3C 806 0001:00291D59 807 0001:00291D80 808 0001:00291D99 + 809 0001:00291DB6 810 0001:00291DD3 811 0001:00291E1B 815 0001:00291E24 + 816 0001:00291E27 817 0001:00291E31 827 0001:00291E38 829 0001:00291E53 + 830 0001:00291E5B 831 0001:00291E69 833 0001:00291E79 834 0001:00291E80 + 835 0001:00291E87 837 0001:00291EA8 838 0001:00291EB0 839 0001:00291EB7 + 840 0001:00291EBE 841 0001:00291ED7 842 0001:00291F05 843 0001:00291F0F + 846 0001:00291F1B 847 0001:00291F28 848 0001:00291F30 850 0001:00291F35 + 853 0001:00291F41 854 0001:00291F4E 855 0001:00291F5C 857 0001:00291F61 + 858 0001:00291F68 859 0001:00291F6F 861 0001:00291F7B 863 0001:00291F9C + 864 0001:00291FAA 865 0001:00291FC0 866 0001:00291FC9 867 0001:00291FD1 + 868 0001:00291FE2 870 0001:00291FEE 871 0001:00291FFB 872 0001:00292003 + 881 0001:00292005 883 0001:00292010 884 0001:00292013 886 0001:0029201B + 887 0001:00292022 891 0001:0029202B 892 0001:00292032 894 0001:00292034 + 895 0001:0029203D 896 0001:00292044 898 0001:0029204F 899 0001:00292056 + 900 0001:0029207F 903 0001:0029209C 904 0001:002920B2 905 0001:002920C3 + 906 0001:002920D3 907 0001:002920E1 908 0001:002920EE 909 0001:002920FF + 910 0001:0029210C 911 0001:0029211D 912 0001:0029212A 913 0001:0029214B + 914 0001:00292156 915 0001:0029217E 923 0001:00292184 925 0001:002921A7 + 926 0001:002921B4 927 0001:002921B8 928 0001:002921BC 929 0001:002921C9 + 932 0001:002921D2 934 0001:002921FA 935 0001:0029220D 936 0001:00292220 + 937 0001:00292233 938 0001:00292246 939 0001:00292267 940 0001:00292270 + 941 0001:00292280 943 0001:00292286 944 0001:00292294 946 0001:002922A2 + 949 0001:002922C0 950 0001:002922DE 951 0001:002922FC 952 0001:0029231A + 953 0001:0029232E 955 0001:0029233D 956 0001:0029235B 959 0001:0029236A + 960 0001:0029237A 964 0001:00292387 965 0001:00292391 966 0001:002923B7 + 967 0001:002923D5 968 0001:002923EF 969 0001:0029240D 971 0001:00292421 + 972 0001:0029245F 973 0001:00292463 969 0001:00292464 974 0001:00292467 + 975 0001:00292485 976 0001:002924BD 977 0001:002924D9 979 0001:002924E8 + 981 0001:002924F1 983 0001:002924F8 986 0001:002924FE 988 0001:00292507 + 992 0001:0029250E 996 0001:00292551 1003 0001:00292674 1005 0001:00292697 + 1007 0001:002926A0 1009 0001:002926C5 1010 0001:002926D9 1012 0001:002926E1 + 1013 0001:002926FE 1014 0001:00292707 1016 0001:0029275D 1017 0001:00292771 + 1018 0001:0029277A 1019 0001:002927D0 1020 0001:002927E7 1021 0001:00292804 + 1023 0001:00292821 1024 0001:0029282F 1026 0001:0029283D 1027 0001:0029284B + 1028 0001:0029286A 1029 0001:00292873 1030 0001:002928B1 1031 0001:002928E2 + 1032 0001:00292913 1033 0001:00292944 1034 0001:0029294C 1010 0001:00292960 + 1038 0001:0029296D 1040 0001:00292976 1041 0001:0029299A 1042 0001:002929A7 + 1045 0001:002929B7 1046 0001:002929D7 1047 0001:002929EC 1048 0001:00292A0C + 1050 0001:00292A29 1051 0001:00292A37 1053 0001:00292A45 1054 0001:00292A64 + 1055 0001:00292A7C 1056 0001:00292A91 1057 0001:00292AA6 1058 0001:00292AC6 + 1059 0001:00292AE6 1061 0001:00292AEF 1063 0001:00292B01 1066 0001:00292B1E + 1067 0001:00292B35 1068 0001:00292B46 1070 0001:00292B82 1075 0001:00292B9F + 1077 0001:00292BA8 1078 0001:00292BBD 1080 0001:00292C02 1084 0001:00292D30 + 1085 0001:00292D47 1086 0001:00292D6B 1087 0001:00292D72 1088 0001:00292D7F + 1089 0001:00292D8C 1090 0001:00292D99 1091 0001:00292DA6 1092 0001:00292DB6 + 1093 0001:00292DCA 1094 0001:00292DDB 1095 0001:00292DE6 1096 0001:00292DF3 + 1097 0001:00292E00 1098 0001:00292E0D 1099 0001:00292E25 1100 0001:00292E32 + 1101 0001:00292E45 1102 0001:00292E55 1103 0001:00292E62 1104 0001:00292E6D + 1105 0001:00292E7B 1106 0001:00292EA3 1109 0001:00292EB8 1110 0001:00292EBB + 1111 0001:00292EC8 1112 0001:00292ED5 1113 0001:00292EE2 1114 0001:00292EEF + 1115 0001:00292EFF 1116 0001:00292F13 1117 0001:00292F24 1118 0001:00292F31 + 1119 0001:00292F3E 1120 0001:00292F4B 1121 0001:00292F64 1122 0001:00292F71 + 1123 0001:00292F85 1124 0001:00292F98 1125 0001:00292FA8 1126 0001:00292FB5 + 1127 0001:00292FBC 1130 0001:00292FD4 1131 0001:00292FD7 1132 0001:00292FE7 + 1133 0001:00292FF4 1134 0001:00293001 1135 0001:0029300E 1136 0001:0029301B + 1137 0001:00293028 1138 0001:00293035 1139 0001:00293042 1144 0001:00293044 + 1145 0001:00293066 1146 0001:0029306D 1148 0001:00293076 1149 0001:00293081 + 1150 0001:00293099 1152 0001:002930CC 1153 0001:002930CF 1154 0001:002930D1 + 1149 0001:002930D2 1155 0001:002930D5 1157 0001:00293115 1165 0001:0029311C + 1166 0001:0029314B 1167 0001:00293156 1168 0001:00293160 1169 0001:0029316F + 1170 0001:00293177 1171 0001:00293182 1172 0001:00293196 1174 0001:002931B2 + 1170 0001:002931C0 1175 0001:002931C3 1178 0001:002931D0 1179 0001:002931EE + 1180 0001:0029320C 1181 0001:0029322A 1183 0001:00293248 1185 0001:00293263 + 1186 0001:0029327B 1187 0001:0029328D 1188 0001:0029329F 1183 0001:002932A0 + 1190 0001:002932D2 1196 0001:002932E8 1198 0001:00293318 1199 0001:0029331C + 1201 0001:0029332E 1202 0001:0029333B 1204 0001:00293360 1205 0001:00293364 + 1207 0001:00293366 1199 0001:00293367 1208 0001:00293397 1212 0001:002933A0 + 1213 0001:002933AB 1218 0001:002933AC 1220 0001:002933C7 1221 0001:002933D5 + 1223 0001:002933E9 1224 0001:00293413 1225 0001:00293421 1227 0001:00293430 + 1229 0001:0029343A 1230 0001:0029344A 1233 0001:0029345C 1234 0001:0029346C + 1235 0001:00293480 1238 0001:00293493 1241 0001:002934A5 1242 0001:002934B5 + 1243 0001:002934C2 1245 0001:002934D1 1247 0001:002934DB 1251 0001:002934EA + 1252 0001:002934FD 1253 0001:0029350A 1257 0001:00293539 1262 0001:0029354C + 1264 0001:0029354F 1267 0001:0029355F 1268 0001:00293566 1274 0001:00293571 + 1279 0001:00293574 1281 0001:00293590 1282 0001:0029359F 1283 0001:002935AD + 1284 0001:002935C6 1286 0001:002935E2 1288 0001:0029360F 1296 0001:00293634 + 1297 0001:00293653 1298 0001:00293660 1299 0001:0029366C 1300 0001:0029367A + 1301 0001:0029368E 1303 0001:0029369C 1304 0001:002936A3 1305 0001:002936AF + 1306 0001:002936B7 1308 0001:002936DB 1313 0001:002936E4 1315 0001:00293700 + 1316 0001:00293709 1317 0001:00293729 1319 0001:0029373D 1320 0001:00293742 + 1333 0001:00293750 1334 0001:00293756 1335 0001:00293799 1336 0001:002937C5 + 1341 0001:002937D8 1342 0001:002937DF 1345 0001:002937E0 1347 0001:002937E3 + 1349 0001:002937F1 1350 0001:002937F6 1351 0001:00293803 1353 0001:00293805 + 1355 0001:00293813 1357 0001:0029381F 1358 0001:0029382A 1361 0001:00293839 + 1363 0001:0029384F 1365 0001:0029385B 1366 0001:00293866 1368 0001:00293873 + 1370 0001:0029387C 1375 0001:00293880 1377 0001:0029389E 1378 0001:002938A4 + 1380 0001:002938AE 1381 0001:002938E7 1382 0001:00293901 1384 0001:00293919 + 1385 0001:0029393D 1386 0001:0029396E 1391 0001:002939A8 1398 0001:002939AC + 1399 0001:002939B3 1404 0001:002939B4 1405 0001:002939BB 1409 0001:002939BC + 1416 0001:002939C0 1417 0001:002939DD 1420 0001:002939F1 1421 0001:00293A0A + 1422 0001:00293A1F 1423 0001:00293A32 1424 0001:00293A3C 1425 0001:00293A4F + 1426 0001:00293A85 1427 0001:00293AA4 1428 0001:00293AB7 1429 0001:00293AD6 + 1432 0001:00293B22 1439 0001:00293B34 1440 0001:00293B60 1441 0001:00293B67 + 1442 0001:00293B7D 1444 0001:00293BB2 1445 0001:00293BB5 1446 0001:00293BB7 + 1441 0001:00293BB8 1447 0001:00293BBD 1448 0001:00293BF3 1449 0001:00293C17 + 1450 0001:00293C3B 1451 0001:00293C4A 1452 0001:00293C82 1453 0001:00293C8A + 1454 0001:00293C98 1455 0001:00293CAB 1456 0001:00293CB7 1457 0001:00293CE1 + 1458 0001:00293CEE 1461 0001:00293D76 1463 0001:00293DC1 1464 0001:00293E08 + 1470 0001:00293E40 1471 0001:00293E65 1472 0001:00293E6D 1473 0001:00293E86 + 1475 0001:00293E9E 1477 0001:00293EDD 1478 0001:00293F03 1480 0001:00293F05 + 1473 0001:00293F06 1481 0001:00293F2B 1496 0001:00293F40 1497 0001:00293F63 + 1498 0001:00293F6A 1499 0001:00293F7F 1498 0001:00293FB5 1500 0001:00293FB8 + 1502 0001:00293FF9 1503 0001:0029402F 1504 0001:0029403C 1506 0001:0029409A + 1511 0001:002940B0 1512 0001:002940D2 1513 0001:002940D9 1514 0001:002940EE + 1513 0001:00294124 1515 0001:00294127 1516 0001:0029415D 1518 0001:00294164 + 1519 0001:00294191 1520 0001:00294199 1522 0001:002941A9 1523 0001:002941AB + 1525 0001:002941C3 1526 0001:002941E4 1527 0001:002941EC 1528 0001:002941FF + 1529 0001:00294212 1530 0001:00294216 1523 0001:00294219 1532 0001:0029421E + 1536 0001:00294233 1537 0001:00294242 1538 0001:00294250 1539 0001:00294262 + 1540 0001:002942AB 1541 0001:002942AF 1543 0001:002942D1 1544 0001:002942F8 + 1545 0001:002942FA 1546 0001:00294339 1547 0001:00294366 1548 0001:002943AA + 1550 0001:002943C6 1551 0001:002943ED 1552 0001:002943FF 1554 0001:00294405 + 1557 0001:00294427 1558 0001:00294452 1559 0001:0029446C 1560 0001:00294478 + 1561 0001:002944A4 1562 0001:002944BB 1564 0001:002944BD 1566 0001:002944C3 + 1567 0001:002944D4 1566 0001:002944E9 1568 0001:002944EC 1570 0001:00294506 + 1571 0001:00294519 1573 0001:0029452A 1575 0001:0029452E 1576 0001:00294538 + 1578 0001:0029453A 1548 0001:0029453D 1579 0001:00294546 1541 0001:00294549 + 1580 0001:00294552 1582 0001:00294562 1584 0001:00294593 1585 0001:002945A5 + 1587 0001:002945C1 1589 0001:0029460C 1590 0001:00294633 1592 0001:00294678 + 1585 0001:0029467B 1596 0001:00294691 1599 0001:002946D3 1605 0001:002946F0 + 1607 0001:00294713 1608 0001:0029471D 1609 0001:0029472A 1610 0001:0029473A + 1611 0001:00294742 1612 0001:0029474A 1613 0001:00294752 1614 0001:00294759 + 1615 0001:00294764 1616 0001:002947A0 1617 0001:002947AE 1620 0001:002947C2 + 1623 0001:002947F3 1624 0001:00294801 1625 0001:00294814 1626 0001:0029482C + 1627 0001:00294845 1628 0001:0029484F 1629 0001:00294869 1631 0001:00294872 + 1633 0001:00294893 1634 0001:002948B1 1635 0001:002948BC 1639 0001:002948DF + 1640 0001:0029490F 1641 0001:0029493D 1642 0001:0029496B 1644 0001:0029497E + 1645 0001:002949A0 1647 0001:002949BD 1649 0001:002949C9 1650 0001:002949DC + 1652 0001:00294A05 1653 0001:00294A18 1654 0001:00294A37 1655 0001:00294A56 + 1656 0001:00294A88 1657 0001:00294AA3 1660 0001:00294AD3 1661 0001:00294ADA + 1662 0001:00294B08 1664 0001:00294B39 1665 0001:00294B53 1667 0001:00294B9C + 1668 0001:00294BAF 1671 0001:00294BCD 1673 0001:00294BD6 1676 0001:00294C1B + 1678 0001:00294C43 1679 0001:00294CC0 1713 0001:00294DDC 1715 0001:00294DDF + 1716 0001:00294DE8 1717 0001:00294DEF 1718 0001:00294DF6 1731 0001:00294DF8 + 1732 0001:00294E27 1733 0001:00294E2E 1735 0001:00294E36 1736 0001:00294EFA + 1737 0001:00294F00 1738 0001:00294F43 1739 0001:00294F5C 1740 0001:00294F62 + 1741 0001:00294FAB 1742 0001:00294FC4 1743 0001:00294FCA 1744 0001:00295004 + 1745 0001:0029500A 1746 0001:00295057 1747 0001:0029505D 1748 0001:00295097 + 1749 0001:0029509D 1750 0001:002950D7 1751 0001:002950DD 1752 0001:0029512A + 1753 0001:00295130 1755 0001:002951D4 1756 0001:002951DA 1757 0001:00295214 + 1758 0001:0029521A 1759 0001:00295250 1760 0001:0029525E 1761 0001:00295264 + 1762 0001:0029529E 1763 0001:002952A4 1765 0001:002952DE 1766 0001:002952F6 + 1767 0001:00295314 1768 0001:00295352 1771 0001:00295370 1772 0001:00295379 + 1773 0001:002953AF 1774 0001:002953D8 1775 0001:00295422 1777 0001:00295440 + 1778 0001:00295446 1779 0001:00295486 1781 0001:0029548C 1782 0001:002954C3 + 1783 0001:002954FD 1784 0001:00295502 1785 0001:0029551F 1788 0001:00295530 + 1790 0001:00295542 1792 0001:00295562 1793 0001:00295568 1794 0001:00295584 + 1796 0001:00295596 1797 0001:002955CC 1798 0001:002955D6 1793 0001:002955D9 + 1802 0001:0029560B 1807 0001:002956CC 1808 0001:002956E9 1809 0001:0029575C + 1811 0001:00295777 1812 0001:0029578D 1815 0001:002957D0 1816 0001:002957E6 + 1818 0001:002957FE 1819 0001:00295819 1820 0001:00295831 1821 0001:00295849 + 1822 0001:00295861 1823 0001:00295879 1824 0001:00295891 1826 0001:002958C9 + 1833 0001:00295970 1834 0001:00295994 1835 0001:002959A3 1842 0001:002959AD + 1844 0001:002959BE 1845 0001:002959CD 1846 0001:002959E1 1848 0001:002959F1 + 1849 0001:00295A07 1850 0001:00295A17 1852 0001:00295A33 1854 0001:00295A45 + 1855 0001:00295A52 1856 0001:00295A7A 1857 0001:00295A83 1858 0001:00295AB0 + 1859 0001:00295ADD 1861 0001:00295AFB 1862 0001:00295B09 1864 0001:00295B27 + 1865 0001:00295B73 1868 0001:00295C18 1869 0001:00295C1E 1870 0001:00295C2B + 1871 0001:00295C2F 1872 0001:00295C3F 1873 0001:00295C48 1885 0001:00295C4C + 1887 0001:00295C6E 1888 0001:00295C7B 1889 0001:00295C84 1890 0001:00295C8D + 1892 0001:00295C94 1893 0001:00295C9C 1894 0001:00295CA4 1896 0001:00295CAC + 1897 0001:00295CC0 1899 0001:00295CC8 1901 0001:00295CDA 1902 0001:00295CF2 + 1904 0001:00295D04 1905 0001:00295D1C 1906 0001:00295D2E 1908 0001:00295D3A + 1909 0001:00295D51 1912 0001:00295D73 1913 0001:00295D90 1914 0001:00295DA2 + 1915 0001:00295DBA 1916 0001:00295DCC 1917 0001:00295DE4 1918 0001:00295DF6 + 1919 0001:00295E0E 1920 0001:00295E20 1921 0001:00295E38 1897 0001:00295E4C + 1924 0001:00295E54 1926 0001:00295E5B 1925 0001:00295E5C 1927 0001:00295E78 + 1928 0001:00295E97 1930 0001:00295EA6 1931 0001:00295EAD 1933 0001:00295EEA + 1934 0001:00295F12 1928 0001:00295F13 1935 0001:00295F18 1936 0001:00295F23 + 1937 0001:00295F44 1938 0001:00295F65 1940 0001:00295F72 1941 0001:00295F7D + 1943 0001:00295F8E 1944 0001:00295FB2 1945 0001:00295FBE 1947 0001:00295FC5 + 1948 0001:00295FDF 1950 0001:00296009 1952 0001:00296012 1955 0001:0029601D + 1956 0001:0029602B 1957 0001:00296039 1958 0001:00296047 1959 0001:0029604D + 1960 0001:00296053 1961 0001:00296068 1962 0001:00296095 1963 0001:0029609E + 1964 0001:002960DF 1967 0001:00296128 1968 0001:0029612E 1969 0001:0029613C + 1970 0001:00296145 1977 0001:00296148 1978 0001:00296173 1979 0001:0029617B + 1980 0001:00296188 1981 0001:0029619D 1983 0001:002961AE 1985 0001:002961C1 + 1986 0001:002961D1 1989 0001:002961E3 1990 0001:002961F8 1992 0001:00296218 + 1994 0001:00296238 1996 0001:00296249 1997 0001:00296254 1998 0001:00296256 + 2001 0001:00296260 2003 0001:0029626E 2004 0001:0029627A 2005 0001:00296288 + 2006 0001:00296295 2007 0001:002962B1 2008 0001:002962BE 2009 0001:002962CC + 2010 0001:002962D9 2011 0001:002962F5 2012 0001:00296302 2013 0001:00296310 + 2014 0001:0029631D 2015 0001:0029632B 2016 0001:00296338 2017 0001:00296346 + 2018 0001:00296353 2019 0001:00296361 2020 0001:0029636E 2021 0001:0029637C + 2022 0001:00296389 2023 0001:00296397 2024 0001:002963A4 2025 0001:002963B2 + 2026 0001:002963BF 2027 0001:002963CB 2030 0001:002963FE 2033 0001:00296438 + 2039 0001:00296578 2048 0001:00296595 2050 0001:002965A7 2051 0001:002965B4 + 2052 0001:002965CF 2053 0001:002965D6 2057 0001:002965FD 2059 0001:00296622 + 2060 0001:0029664B 2062 0001:00296655 2065 0001:00296666 2066 0001:00296691 + 2070 0001:002966C0 2072 0001:002966CC 2075 0001:002966DB 2076 0001:00296700 + 2080 0001:00296707 2082 0001:0029670D 2083 0001:0029671A 2085 0001:00296721 + 2087 0001:00296727 2088 0001:00296734 2092 0001:00296739 2095 0001:00296740 + 2097 0001:00296743 2098 0001:0029674C 2099 0001:00296755 2104 0001:00296758 + 2105 0001:00296761 2106 0001:0029677B 2107 0001:0029677F 2108 0001:00296787 + 2110 0001:00296790 2111 0001:00296794 2112 0001:002967A5 2113 0001:002967BD + 2114 0001:002967D3 2115 0001:002967D7 2116 0001:002967D9 2111 0001:002967DA + 2118 0001:002967E0 2123 0001:002967E8 2124 0001:002967F1 2125 0001:0029680B + 2126 0001:0029680F 2127 0001:00296817 2129 0001:00296820 2130 0001:00296824 + 2131 0001:00296835 2132 0001:0029684D 2133 0001:00296863 2134 0001:00296867 + 2135 0001:00296869 2130 0001:0029686A 2137 0001:00296870 2141 0001:00296878 + 2142 0001:00296882 2143 0001:00296889 2145 0001:00296891 2148 0001:00296894 + 2149 0001:00296897 2150 0001:002968A1 2151 0001:002968A8 2153 0001:002968B0 + 2156 0001:002968B4 2158 0001:002968B7 2159 0001:002968C0 2160 0001:002968C9 + 2163 0001:002968CC 2164 0001:002968CF 2165 0001:002968D6 2166 0001:002968DD + 2167 0001:002968E4 2171 0001:002968E8 2173 0001:002968EE 2175 0001:002968FA + 2176 0001:00296908 2178 0001:0029690D 2181 0001:00296914 2182 0001:00296917 + 2183 0001:0029691E 2184 0001:00296938 2189 0001:0029693C 2190 0001:00296959 + 2191 0001:00296970 2192 0001:0029698D 2193 0001:002969D5 2199 0001:002969DC + 2200 0001:002969FE 2201 0001:00296A0C 2202 0001:00296A13 2203 0001:00296A2D + 2206 0001:00296A38 2208 0001:00296A4A 2209 0001:00296A56 2210 0001:00296A75 + 2206 0001:00296A76 2211 0001:00296A7B 2213 0001:00296AAA 2218 0001:00296ACC + 2219 0001:00296AEE 2220 0001:00296AF5 2221 0001:00296AFF 2223 0001:00296B15 + 2224 0001:00296B31 2225 0001:00296B83 2221 0001:00296B84 2226 0001:00296BAE + 2231 0001:00296BB8 2232 0001:00296BBF 2236 0001:00296BC0 2238 0001:00296BC7 + 2242 0001:00296C2E 2243 0001:00296C46 2244 0001:00296C53 2247 0001:00296C5C + 2248 0001:00296C5D 2249 0001:00296C70 2251 0001:00296C75 2252 0001:00296C7A + 2259 0001:00296C7C 2260 0001:00296C86 2261 0001:00296C94 2262 0001:00296C9E + 2263 0001:00296CAE 2264 0001:00296CF3 2265 0001:00296D00 2268 0001:00296D20 + 2269 0001:00296D3F 2270 0001:00296DA2 2275 0001:00296DC4 2276 0001:00296DF4 + 2277 0001:00296DF9 2278 0001:00296DFB 2279 0001:00296E01 2280 0001:00296E19 + 2281 0001:00296E6B 2279 0001:00296E6F 2282 0001:00296E72 2283 0001:00296EA5 + 2286 0001:00296EAC 2287 0001:00296EB2 2289 0001:00296EC1 2290 0001:00296ECE + 2291 0001:00296EDB 2292 0001:00296EFF 2293 0001:00296F10 2294 0001:00296F2A + 2296 0001:00296F33 2297 0001:00296F4D 2301 0001:00296F57 2302 0001:00296F64 + 2303 0001:00296F71 2306 0001:00296F7A 2309 0001:00296F81 2311 0001:00296FC0 + 2311 0001:00296FC7 + +Line numbers for fODChangeUnreleasedRenew(Orders\fODChangeUnreleasedRenew.pas) segment .text + + 53 0001:00297294 54 0001:002972C3 55 0001:002972C5 56 0001:002972DB + 57 0001:0029730A 58 0001:00297337 59 0001:0029734E 60 0001:0029735C + 61 0001:00297365 62 0001:0029736D 64 0001:00297371 65 0001:00297381 + 66 0001:0029738C 67 0001:0029739C 68 0001:002973AF 70 0001:002973C9 + 72 0001:002973CE 73 0001:002973DE 74 0001:002973EE 75 0001:00297401 + 77 0001:00297419 78 0001:00297424 80 0001:00297434 82 0001:00297438 + 83 0001:00297455 84 0001:00297469 86 0001:00297487 88 0001:0029748A + 89 0001:002974A5 93 0001:002974CE 95 0001:00297525 98 0001:00297554 + 100 0001:00297555 101 0001:0029755C 103 0001:00297568 104 0001:00297574 + 105 0001:00297580 107 0001:0029758C 112 0001:002975CC 113 0001:002975D1 + 119 0001:002975D4 121 0001:002975F1 123 0001:002975FD 124 0001:00297616 + 126 0001:00297623 127 0001:00297634 130 0001:00297639 132 0001:00297649 + 133 0001:00297651 134 0001:0029765F 135 0001:00297685 137 0001:0029768B + 138 0001:00297695 139 0001:002976BB 140 0001:002976EF 142 0001:002976FC + 144 0001:00297708 145 0001:00297717 148 0001:00297719 149 0001:00297720 + 150 0001:00297756 152 0001:00297888 152 0001:0029788F + +Line numbers for fODBase(Orders\fODBase.pas) segment .text + + 259 0001:00297D14 260 0001:00297D1B 261 0001:00297D3A 262 0001:00297D5B + 263 0001:00297D7C 264 0001:00297D9D 265 0001:00297DBF 266 0001:00297DE1 + 267 0001:00297E00 268 0001:00297E1F 270 0001:00297E31 271 0001:00297E3F + 273 0001:00297E4B 275 0001:00297E5D 276 0001:00297E68 278 0001:00297E72 + 282 0001:00297E78 283 0001:00297E7F 284 0001:00297E9E 285 0001:00297EBF + 286 0001:00297EE0 287 0001:00297F01 288 0001:00297F23 289 0001:00297F42 + 290 0001:00297F64 292 0001:00297F76 293 0001:00297F80 295 0001:00297F8D + 297 0001:00297F9F 298 0001:00297FA9 300 0001:00297FB7 305 0001:00297FBC + 306 0001:00297FD4 307 0001:00298001 310 0001:00298008 311 0001:00298019 + 312 0001:00298024 313 0001:00298040 319 0001:00298044 320 0001:0029805C + 321 0001:0029806E 322 0001:0029809B 328 0001:002980A0 330 0001:002980B1 + 331 0001:002980E8 332 0001:002980F3 333 0001:002980FB 334 0001:00298106 + 335 0001:00298122 341 0001:00298128 342 0001:00298131 343 0001:00298168 + 344 0001:00298173 351 0001:00298178 352 0001:002981A4 355 0001:002981AE + 357 0001:002981D1 360 0001:002981E0 361 0001:0029821A 362 0001:0029822C + 365 0001:00298234 366 0001:00298285 367 0001:002982D6 369 0001:002982F5 + 370 0001:00298324 372 0001:0029835E 363 0001:00298361 374 0001:00298391 + 353 0001:0029839C 378 0001:002983CF 383 0001:002983D4 384 0001:002983E0 + 385 0001:002983EB 386 0001:002983FC 390 0001:00298400 391 0001:0029840C + 392 0001:00298414 393 0001:00298425 399 0001:0029842C 400 0001:00298438 + 401 0001:0029843D 402 0001:00298446 404 0001:00298474 405 0001:00298482 + 406 0001:00298484 402 0001:00298487 407 0001:0029848C 408 0001:0029849B + 410 0001:002984C9 411 0001:002984D7 412 0001:002984D9 408 0001:002984DC + 413 0001:002984E4 419 0001:002984E8 420 0001:0029850B 421 0001:00298513 + 422 0001:00298521 423 0001:0029852B 424 0001:00298550 425 0001:00298575 + 426 0001:0029859A 427 0001:002985BF 428 0001:002985EA 429 0001:00298615 + 430 0001:0029863F 431 0001:0029866A 433 0001:0029867C 434 0001:00298690 + 436 0001:002986A0 438 0001:002986B2 439 0001:002986C6 440 0001:002986F8 + 443 0001:00298723 449 0001:00298728 450 0001:00298737 451 0001:00298745 + 452 0001:0029874F 453 0001:0029877A 454 0001:002987A1 455 0001:002987C9 + 456 0001:002987F1 457 0001:00298817 465 0001:0029881C 466 0001:00298842 + 468 0001:00298850 470 0001:00298864 471 0001:00298875 473 0001:0029887B + 474 0001:00298889 476 0001:00298891 468 0001:00298894 477 0001:0029889A + 478 0001:0029889F 480 0001:002988BE 481 0001:002988D5 482 0001:002988F1 + 483 0001:00298906 484 0001:00298914 485 0001:0029894B 478 0001:0029894E + 486 0001:00298957 487 0001:00298982 492 0001:0029898C 493 0001:0029899B + 494 0001:002989A3 495 0001:002989B1 496 0001:002989C5 501 0001:002989CC + 502 0001:002989DB 503 0001:002989E3 504 0001:002989F1 505 0001:00298A05 + 513 0001:00298A0C 514 0001:00298A18 515 0001:00298A1E 516 0001:00298A24 + 517 0001:00298A3E 518 0001:00298A58 519 0001:00298A60 522 0001:00298A64 + 523 0001:00298A7C 524 0001:00298A8E 525 0001:00298AA0 526 0001:00298AB2 + 527 0001:00298AB9 528 0001:00298ACB 529 0001:00298AF1 535 0001:00298AF8 + 536 0001:00298B09 537 0001:00298B11 538 0001:00298B1C 539 0001:00298B27 + 540 0001:00298B5E 541 0001:00298B69 542 0001:00298B85 548 0001:00298B8C + 549 0001:00298B95 550 0001:00298BA0 551 0001:00298BAB 554 0001:00298BB3 + 555 0001:00298BEA 556 0001:00298BF5 557 0001:00298C00 563 0001:00298C04 + 564 0001:00298C13 565 0001:00298C1C 567 0001:00298C31 568 0001:00298C3F + 570 0001:00298C4F 571 0001:00298C57 573 0001:00298C65 565 0001:00298C68 + 574 0001:00298C6D 580 0001:00298C74 581 0001:00298C96 582 0001:00298CCD + 583 0001:00298CD8 584 0001:00298CE6 585 0001:00298CF7 586 0001:00298D24 + 592 0001:00298D28 593 0001:00298D47 595 0001:00298D4D 596 0001:00298D5B + 598 0001:00298D5D 599 0001:00298D65 600 0001:00298D76 601 0001:00298DA9 + 602 0001:00298DCF 608 0001:00298DD4 609 0001:00298DF3 610 0001:00298DFB + 611 0001:00298E0C 612 0001:00298E3F 613 0001:00298E65 619 0001:00298E6C + 620 0001:00298E8B 621 0001:00298E93 622 0001:00298EAF 623 0001:00298EB8 + 624 0001:00298EDE 630 0001:00298EE4 631 0001:00298F03 632 0001:00298F0B + 633 0001:00298F1C 634 0001:00298F3F 635 0001:00298F65 642 0001:00298F6C + 643 0001:00298FA1 644 0001:00298FBA 646 0001:00298FD3 647 0001:00299004 + 649 0001:0029902C 650 0001:0029903A 651 0001:00299043 652 0001:0029904B + 653 0001:0029907E 654 0001:002990AB 656 0001:002990DC 658 0001:002990EB + 659 0001:00299121 661 0001:00299140 662 0001:00299159 646 0001:0029915C + 663 0001:00299165 664 0001:002991B5 669 0001:002992A8 670 0001:002992B7 + 671 0001:002992BF 672 0001:002992EC 674 0001:00299307 675 0001:00299315 + 676 0001:00299317 671 0001:0029931A 677 0001:0029931F 682 0001:00299328 + 683 0001:00299337 684 0001:0029933F 685 0001:0029936C 687 0001:00299387 + 688 0001:00299395 689 0001:00299397 684 0001:0029939A 690 0001:0029939F + 695 0001:002993A8 696 0001:002993B4 697 0001:002993B8 698 0001:002993E5 + 697 0001:002993FC 699 0001:00299404 704 0001:00299408 705 0001:00299417 + 706 0001:0029941C 707 0001:00299449 709 0001:00299464 710 0001:00299472 + 711 0001:00299474 706 0001:00299477 712 0001:0029947F 717 0001:00299484 + 718 0001:00299490 719 0001:00299495 720 0001:002994C2 722 0001:002994D2 + 723 0001:002994DB 724 0001:002994DD 719 0001:002994E0 725 0001:002994E8 + 730 0001:002994EC 731 0001:002994F8 732 0001:002994FD 733 0001:0029952A + 732 0001:00299540 734 0001:00299548 739 0001:0029954C 740 0001:0029955B + 741 0001:00299560 742 0001:0029958D 743 0001:002995BF 741 0001:002995CB + 744 0001:002995D3 749 0001:002995D8 750 0001:002995E7 751 0001:002995EC + 752 0001:00299619 754 0001:0029962F 755 0001:0029963D 756 0001:0029963F + 751 0001:00299642 757 0001:0029964A 765 0001:00299650 766 0001:0029967B + 767 0001:00299683 770 0001:00299689 771 0001:0029969F 773 0001:002996B3 + 774 0001:002996E1 776 0001:002996F7 778 0001:0029970B 779 0001:00299739 + 781 0001:0029974F 783 0001:00299767 784 0001:00299796 785 0001:002997D9 + 786 0001:002997EA 787 0001:002997F4 789 0001:00299808 791 0001:0029981C + 792 0001:0029984A 793 0001:0029985B 795 0001:0029988D 796 0001:00299893 + 797 0001:002998B9 798 0001:002998C4 799 0001:002998F0 800 0001:0029990D + 801 0001:00299939 803 0001:00299980 808 0001:002999AC 809 0001:002999B8 + 810 0001:002999BD 811 0001:002999EA 813 0001:002999F5 814 0001:00299A03 + 815 0001:00299A05 810 0001:00299A08 816 0001:00299A10 825 0001:00299A14 + 828 0001:00299A47 829 0001:00299A57 830 0001:00299A69 831 0001:00299A7E + 832 0001:00299A8E 833 0001:00299A9B 834 0001:00299AA9 836 0001:00299AAF + 837 0001:00299AC3 839 0001:00299AC9 841 0001:00299AE6 843 0001:00299AEC + 844 0001:00299B16 826 0001:00299B24 849 0001:00299B56 859 0001:00299B78 + 860 0001:00299B9D 861 0001:00299BA5 863 0001:00299BC8 864 0001:00299BD6 + 865 0001:00299BEB 866 0001:00299BF0 867 0001:00299BF8 868 0001:00299C0B + 870 0001:00299C15 871 0001:00299C18 872 0001:00299C2C 874 0001:00299C49 + 876 0001:00299C53 877 0001:00299C77 880 0001:00299C83 881 0001:00299CAA + 882 0001:00299CBD 883 0001:00299CD6 886 0001:00299CE1 868 0001:00299CF5 + 888 0001:00299CFF 890 0001:00299D09 892 0001:00299D19 894 0001:00299D3E + 895 0001:00299D59 897 0001:00299D5F 898 0001:00299D63 900 0001:00299D72 + 901 0001:00299D86 902 0001:00299DA3 904 0001:00299DBE 905 0001:00299DD4 + 907 0001:00299DE3 908 0001:00299DF7 909 0001:00299E14 912 0001:00299E2F + 913 0001:00299E4D 915 0001:00299E5B 861 0001:00299E5E 916 0001:00299E91 + 923 0001:00299EC0 924 0001:00299ECF 925 0001:00299EE0 927 0001:00299EE6 + 928 0001:00299EF5 929 0001:00299F03 930 0001:00299F14 931 0001:00299F1D + 933 0001:00299F2B 934 0001:00299F39 935 0001:00299F47 944 0001:00299F50 + 945 0001:00299F78 946 0001:00299F87 947 0001:00299F95 949 0001:00299FC6 + 950 0001:00299FF6 951 0001:0029A03D 947 0001:0029A040 952 0001:0029A049 + 954 0001:0029A06F 956 0001:0029A0A9 961 0001:0029A0CC 962 0001:0029A0DB + 963 0001:0029A0EC 965 0001:0029A0F2 966 0001:0029A100 968 0001:0029A108 + 971 0001:0029A10C 972 0001:0029A132 973 0001:0029A141 975 0001:0029A16B + 976 0001:0029A1B4 985 0001:0029A1BC 987 0001:0029A1F6 988 0001:0029A1FB + 989 0001:0029A1FF 991 0001:0029A208 992 0001:0029A211 994 0001:0029A22A + 997 0001:0029A23D 998 0001:0029A246 999 0001:0029A25B 1000 0001:0029A269 + 1001 0001:0029A277 1002 0001:0029A285 1003 0001:0029A28E 1004 0001:0029A294 + 1005 0001:0029A29D 1006 0001:0029A2A6 1007 0001:0029A2B5 1008 0001:0029A2C4 + 1009 0001:0029A2CD 1010 0001:0029A2DB 1011 0001:0029A2E1 1012 0001:0029A2E7 + 1029 0001:0029A2F1 1035 0001:0029A38D 1036 0001:0029A391 1038 0001:0029A39B + 1039 0001:0029A3A3 1041 0001:0029A3AD 1042 0001:0029A3C6 1044 0001:0029A3EE + 1045 0001:0029A3FC 1046 0001:0029A3FE 1041 0001:0029A401 1049 0001:0029A406 + 1050 0001:0029A40F 1052 0001:0029A413 1053 0001:0029A41C 1055 0001:0029A446 + 1056 0001:0029A463 1058 0001:0029A46E 1059 0001:0029A47F 1061 0001:0029A48C + 1062 0001:0029A49C 1068 0001:0029A4F1 1069 0001:0029A502 1071 0001:0029A50F + 1074 0001:0029A52C 1075 0001:0029A54C 1076 0001:0029A567 1077 0001:0029A588 + 1079 0001:0029A5E9 1080 0001:0029A600 1082 0001:0029A61D 1084 0001:0029A63A + 1085 0001:0029A657 1086 0001:0029A66F 1087 0001:0029A690 1089 0001:0029A6F1 + 1091 0001:0029A6FE 1093 0001:0029A728 1095 0001:0029A791 1096 0001:0029A81B + 1098 0001:0029A833 1091 0001:0029A836 1102 0001:0029A83F 1104 0001:0029A849 + 1106 0001:0029A85C 1108 0001:0029A865 1109 0001:0029A86F 1112 0001:0029A8BC + 1127 0001:0029A968 1128 0001:0029A98C 1129 0001:0029A994 1130 0001:0029A9A5 + 1131 0001:0029A9CE 1132 0001:0029A9D9 1133 0001:0029A9E6 1134 0001:0029AA1C + 1135 0001:0029AA52 1137 0001:0029AA5A 1138 0001:0029AA6A 1139 0001:0029AA8E + 1146 0001:0029AA97 1149 0001:0029AAB4 1150 0001:0029AAC1 1151 0001:0029AAFB + 1153 0001:0029AB34 1154 0001:0029AB63 1155 0001:0029AB74 1156 0001:0029AB7E + 1157 0001:0029ABA3 1158 0001:0029ABC8 1159 0001:0029ABED 1160 0001:0029AC12 + 1161 0001:0029AC37 1164 0001:0029AC8D 1165 0001:0029ACBA 1166 0001:0029ACE7 + 1168 0001:0029ACF9 1169 0001:0029AD1A 1166 0001:0029AD61 1171 0001:0029AD6B + 1173 0001:0029AD7D 1174 0001:0029AD9F 1171 0001:0029ADD4 1176 0001:0029ADDE + 1178 0001:0029ADF0 1179 0001:0029AE0E 1178 0001:0029AE43 1180 0001:0029AE48 + 1182 0001:0029AE58 1184 0001:0029AE6A 1185 0001:0029AE84 1186 0001:0029AE92 + 1188 0001:0029AEDA 1191 0001:0029AEF0 1192 0001:0029AF28 1194 0001:0029AF3F + 1195 0001:0029AF48 1196 0001:0029AF56 1197 0001:0029AF5F 1198 0001:0029AF68 + 1199 0001:0029AF77 1200 0001:0029AF95 1202 0001:0029AFC9 1207 0001:0029AFE4 + 1208 0001:0029AFF3 1209 0001:0029B020 1208 0001:0029B041 1210 0001:0029B046 + 1217 0001:0029B04C 1218 0001:0029B055 1219 0001:0029B05F 1222 0001:0029B07B + 1223 0001:0029B0C9 1224 0001:0029B0F8 1219 0001:0029B0FB 1225 0001:0029B104 + 1226 0001:0029B10E 1227 0001:0029B118 1230 0001:0029B11C 1231 0001:0029B128 + 1232 0001:0029B134 1233 0001:0029B143 1238 0001:0029B148 1239 0001:0029B167 + 1240 0001:0029B177 1242 0001:0029B192 1243 0001:0029B19C 1244 0001:0029B1AD + 1245 0001:0029B1B4 1247 0001:0029B1EC 1252 0001:0029B224 1253 0001:0029B22B + 1254 0001:0029B233 1255 0001:0029B241 1256 0001:0029B24B 1257 0001:0029B255 + 1262 0001:0029B258 1263 0001:0029B261 1265 0001:0029B269 1266 0001:0029B27E + 1267 0001:0029B293 1268 0001:0029B299 1271 0001:0029B29F 1272 0001:0029B2B9 + 1274 0001:0029B2BF 1276 0001:0029B2CF 1279 0001:0029B2D4 1280 0001:0029B2E0 + 1282 0001:0029B2E6 1283 0001:0029B2F6 1284 0001:0029B304 1288 0001:0029B316 + 1289 0001:0029B326 1290 0001:0029B334 1292 0001:0029B344 1296 0001:0029B348 + 1297 0001:0029B354 1299 0001:0029B372 1300 0001:0029B385 1302 0001:0029B3A2 + 1303 0001:0029B3B4 1306 0001:0029B3B8 1307 0001:0029B3C4 1308 0001:0029B3D5 + 1311 0001:0029B3DC 1312 0001:0029B3E8 1313 0001:0029B3F4 1316 0001:0029B3F8 + 1317 0001:0029B41E 1318 0001:0029B42A 1319 0001:0029B434 1321 0001:0029B446 + 1322 0001:0029B459 1323 0001:0029B46C 1325 0001:0029B47D 1326 0001:0029B4D9 + 1327 0001:0029B519 1335 0001:0029B550 1336 0001:0029B57B 1337 0001:0029B5B3 + 1338 0001:0029B5EB 1339 0001:0029B623 1340 0001:0029B65B 1341 0001:0029B693 + 1342 0001:0029B6CB 1343 0001:0029B703 1344 0001:0029B738 1345 0001:0029B76D + 1346 0001:0029B7A2 1347 0001:0029B7CC 1350 0001:0029B880 1351 0001:0029B88C + 1352 0001:0029B89C 1365 0001:0029B8A0 1366 0001:0029B8C4 1367 0001:0029B8CC + 1370 0001:0029B8E6 1371 0001:0029B915 1372 0001:0029B921 1373 0001:0029B92F + 1374 0001:0029B93B 1375 0001:0029B956 1377 0001:0029B963 1380 0001:0029B989 + 1382 0001:0029B9A3 1383 0001:0029B9D1 1384 0001:0029B9DE 1385 0001:0029B9FE + 1386 0001:0029BA6B 1391 0001:0029BBE4 1393 0001:0029BC03 1394 0001:0029BC18 + 1395 0001:0029BC22 1396 0001:0029BC2C 1397 0001:0029BC36 1398 0001:0029BC40 + 1399 0001:0029BC4A 1400 0001:0029BC54 1401 0001:0029BC5E 1402 0001:0029BC68 + 1403 0001:0029BC7D 1404 0001:0029BC92 1405 0001:0029BCA7 1406 0001:0029BCB1 + 1411 0001:0029BCBB 1412 0001:0029BCC7 1413 0001:0029BCCF 1415 0001:0029BCDE + 1417 0001:0029BD05 1418 0001:0029BD22 1419 0001:0029BD30 1420 0001:0029BD3E + 1421 0001:0029BD4C 1422 0001:0029BD81 1425 0001:0029BD88 1426 0001:0029BD95 + 1427 0001:0029BDA3 1428 0001:0029BDB1 1430 0001:0029BDBF 1431 0001:0029BDD4 + 1432 0001:0029BDF2 1433 0001:0029BE14 1434 0001:0029BE1F 1438 0001:0029BE24 + 1440 0001:0029BE33 1442 0001:0029BE53 1443 0001:0029BE59 1445 0001:0029BE6A + 1454 0001:0029BE70 1455 0001:0029BE8C 1456 0001:0029BE90 1457 0001:0029BEA1 + 1458 0001:0029BEAE 1459 0001:0029BEBD 1460 0001:0029BECB 1461 0001:0029BED5 + 1462 0001:0029BEF3 1463 0001:0029BF1A 1464 0001:0029BF24 1465 0001:0029BF2B + 1467 0001:0029BF4C 1469 0001:0029BF7C 1481 0001:0029BF9C 1482 0001:0029BFC1 + 1483 0001:0029BFC5 1484 0001:0029BFD3 1486 0001:0029BFDF 1487 0001:0029BFFE + 1488 0001:0029C002 1490 0001:0029C007 1492 0001:0029C013 1493 0001:0029C025 + 1496 0001:0029C032 1497 0001:0029C03A 1499 0001:0029C042 1500 0001:0029C046 + 1502 0001:0029C04B 1504 0001:0029C057 1505 0001:0029C05B 1508 0001:0029C060 + 1509 0001:0029C070 1511 0001:0029C07F 1513 0001:0029C0A3 1515 0001:0029C0B3 + 1516 0001:0029C0CA 1517 0001:0029C0FD 1519 0001:0029C10B 1520 0001:0029C131 + 1522 0001:0029C143 1523 0001:0029C167 1525 0001:0029C174 1527 0001:0029C18D + 1529 0001:0029C19A 1530 0001:0029C1C6 1531 0001:0029C1CF 1532 0001:0029C1D4 + 1533 0001:0029C1E2 1535 0001:0029C213 1537 0001:0029C223 1538 0001:0029C240 + 1540 0001:0029C264 1542 0001:0029C275 1543 0001:0029C2AA 1560 0001:0029C378 + 1561 0001:0029C397 1562 0001:0029C3A1 1563 0001:0029C3A8 1564 0001:0029C3AC + 1565 0001:0029C3B9 1567 0001:0029C3C3 1569 0001:0029C3FF 1570 0001:0029C41C + 1573 0001:0029C423 1575 0001:0029C433 1576 0001:0029C43D 1577 0001:0029C444 + 1578 0001:0029C450 1580 0001:0029C489 1583 0001:0029C496 1584 0001:0029C49E + 1585 0001:0029C4A6 1587 0001:0029C4AA 1589 0001:0029C4B3 1591 0001:0029C4BC + 1592 0001:0029C4C3 1594 0001:0029C4CF 1596 0001:0029C4D5 1597 0001:0029C4DD + 1600 0001:0029C4E5 1601 0001:0029C4F4 1605 0001:0029C4F6 1607 0001:0029C4FF + 1608 0001:0029C506 1610 0001:0029C512 1612 0001:0029C518 1613 0001:0029C520 + 1616 0001:0029C528 1618 0001:0029C537 1622 0001:0029C539 1623 0001:0029C542 + 1624 0001:0029C566 1627 0001:0029C580 1629 0001:0029C58C 1630 0001:0029C594 + 1633 0001:0029C598 1638 0001:0029C5A7 1639 0001:0029C5B1 1640 0001:0029C5B9 + 1641 0001:0029C5C3 1652 0001:0029C5C9 1655 0001:0029C5D0 1658 0001:0029C5F9 + 1659 0001:0029C60A 1660 0001:0029C61A 1661 0001:0029C62F 1662 0001:0029C63F + 1667 0001:0029C64F 1669 0001:0029C66C 1670 0001:0029C6A3 1671 0001:0029C6B2 + 1673 0001:0029C6EF 1687 0001:0029C734 1689 0001:0029C743 1690 0001:0029C74D + 1693 0001:0029C754 1694 0001:0029C77B 1695 0001:0029C7B8 1698 0001:0029C7BC + 1699 0001:0029C7C8 1700 0001:0029C7D4 1704 0001:0029C7DE 1705 0001:0029C7EC + 1707 0001:0029C803 1710 0001:0029C808 1711 0001:0029C814 1712 0001:0029C81F + 1717 0001:0029C824 1718 0001:0029C830 1719 0001:0029C835 1720 0001:0029C862 + 1722 0001:0029C872 1723 0001:0029C87B 1724 0001:0029C87D 1719 0001:0029C880 + 1725 0001:0029C888 1728 0001:0029C88C 1730 0001:0029C898 1731 0001:0029C8A2 + 1735 0001:0029C8A8 1737 0001:0029C8B7 1738 0001:0029C8C3 1739 0001:0029C8CF + 1743 0001:0029C8D8 1745 0001:0029C8E8 1746 0001:0029C8EE 1747 0001:0029C949 + 1755 0001:0029C950 1756 0001:0029C972 1757 0001:0029C976 1759 0001:0029C98E + 1760 0001:0029C99D 1761 0001:0029C9B2 1762 0001:0029C9B6 1763 0001:0029C9CE + 1765 0001:0029C9F4 1766 0001:0029C9F8 1767 0001:0029C9FA 1762 0001:0029C9FD + 1768 0001:0029CA02 1770 0001:0029CA0C 1771 0001:0029CA14 1776 0001:0029CAAA + 1777 0001:0029CAB9 1778 0001:0029CAC4 1780 0001:0029CAD0 1782 0001:0029CAE8 + 1783 0001:0029CB02 1784 0001:0029CB28 1780 0001:0029CB2B 1785 0001:0029CB30 + 1787 0001:0029CB3C 1788 0001:0029CB44 1793 0001:0029CB7A 1796 0001:0029CC0C + 1796 0001:0029CC13 + +Line numbers for uOrders(Orders\uOrders.pas) segment .text + + 170 0001:0029CC14 171 0001:0029CC49 173 0001:0029CC4B 175 0001:0029CC69 + 176 0001:0029CC6E 179 0001:0029CC78 180 0001:0029CC7F 182 0001:0029CC86 + 184 0001:0029CC8D 186 0001:0029CC96 188 0001:0029CCB5 189 0001:0029CCCE + 191 0001:0029CCD3 192 0001:0029CDB4 193 0001:0029CDBB 194 0001:0029CDC2 + 195 0001:0029CDC9 196 0001:0029CDD0 197 0001:0029CDD7 200 0001:0029CDDE + 201 0001:0029CDE4 202 0001:0029CDEC 204 0001:0029CDF3 205 0001:0029CDFA + 206 0001:0029CE01 207 0001:0029CE08 208 0001:0029CE0F 209 0001:0029CE16 + 210 0001:0029CE1D 211 0001:0029CE24 213 0001:0029CE2B 216 0001:0029CE30 + 217 0001:0029CE3C 218 0001:0029CE45 219 0001:0029CE53 220 0001:0029CE5A + 221 0001:0029CE61 222 0001:0029CE8D 226 0001:0029CE98 227 0001:0029CE9A + 228 0001:0029CEAA 230 0001:0029CEB8 231 0001:0029CEC9 233 0001:0029CECB + 237 0001:0029CF74 238 0001:0029CF76 239 0001:0029CF86 241 0001:0029CF94 + 242 0001:0029CFA5 244 0001:0029CFA7 248 0001:0029D050 249 0001:0029D058 + 250 0001:0029D05A 251 0001:0029D082 252 0001:0029D093 256 0001:0029D0D1 + 257 0001:0029D105 258 0001:0029D116 259 0001:0029D125 261 0001:0029D131 + 263 0001:0029D147 264 0001:0029D157 265 0001:0029D16A 267 0001:0029D16C + 269 0001:0029D194 270 0001:0029D1A4 271 0001:0029D1B5 273 0001:0029D1B9 + 276 0001:0029D2BC 277 0001:0029D2C4 278 0001:0029D2C6 279 0001:0029D2EE + 280 0001:0029D2FF 283 0001:0029D335 284 0001:0029D344 286 0001:0029D350 + 288 0001:0029D35E 289 0001:0029D371 291 0001:0029D373 293 0001:0029D39B + 294 0001:0029D3AC 296 0001:0029D3B0 301 0001:0029D4B4 302 0001:0029D4C8 + 304 0001:0029D4D5 305 0001:0029D4DD 307 0001:0029D4E3 308 0001:0029D4E5 + 309 0001:0029D4EC 312 0001:0029D515 313 0001:0029D517 316 0001:0029D545 + 320 0001:0029D574 322 0001:0029D58D 323 0001:0029D592 324 0001:0029D599 + 326 0001:0029D5BD 331 0001:0029D5C0 332 0001:0029D5E5 333 0001:0029D5F0 + 335 0001:0029D5F6 336 0001:0029D5F8 339 0001:0029D621 340 0001:0029D623 + 342 0001:0029D656 345 0001:0029D684 346 0001:0029D6A1 347 0001:0029D6A9 + 348 0001:0029D6EA 355 0001:0029D6F0 356 0001:0029D70F 357 0001:0029D73B + 358 0001:0029D744 359 0001:0029D749 361 0001:0029D757 362 0001:0029D763 + 363 0001:0029D783 365 0001:0029D7B5 366 0001:0029D7BD 359 0001:0029D7BE + 367 0001:0029D7DE 370 0001:0029D7E8 371 0001:0029D81F 373 0001:0029D830 + 375 0001:0029D83A 376 0001:0029D842 377 0001:0029D84A 378 0001:0029D852 + 379 0001:0029D857 382 0001:0029D85C 388 0001:0029D88B 390 0001:0029D89F + 392 0001:0029D8B3 393 0001:0029D8BB 394 0001:0029D8C3 395 0001:0029D8CB + 400 0001:0029D8D5 402 0001:0029D8F6 403 0001:0029D8FE 404 0001:0029D906 + 408 0001:0029D910 409 0001:0029D918 410 0001:0029D920 412 0001:0029D928 + 413 0001:0029D934 416 0001:0029D93D 418 0001:0029D949 419 0001:0029D951 + 420 0001:0029D959 421 0001:0029D961 424 0001:0029D966 426 0001:0029D970 + 427 0001:0029D978 428 0001:0029D980 429 0001:0029D988 432 0001:0029D98D + 434 0001:0029D998 435 0001:0029D9A4 437 0001:0029D9AB 438 0001:0029D9EB + 439 0001:0029DA13 444 0001:0029DA1C 445 0001:0029DA3C 446 0001:0029DA3E + 447 0001:0029DA4D 448 0001:0029DA57 450 0001:0029DA63 451 0001:0029DA71 + 452 0001:0029DA92 453 0001:0029DA9E 454 0001:0029DAAA 455 0001:0029DAB6 + 456 0001:0029DAC0 457 0001:0029DACE 458 0001:0029DAD5 459 0001:0029DADD + 461 0001:0029DAFE 465 0001:0029DBB4 466 0001:0029DBC3 467 0001:0029DBD2 + 468 0001:0029DBE1 469 0001:0029DBF0 470 0001:0029DBFF 471 0001:0029DC0E + 472 0001:0029DC1D 473 0001:0029DC2C 474 0001:0029DC3B 475 0001:0029DC4A + 476 0001:0029DC59 477 0001:0029DC68 478 0001:0029DC77 479 0001:0029DC86 + 480 0001:0029DC95 481 0001:0029DCA4 482 0001:0029DCB3 483 0001:0029DCC2 + 526 0001:0029DDC0 527 0001:0029DDFE 529 0001:0029DE1A 531 0001:0029DE33 + 532 0001:0029DE52 534 0001:0029DE86 535 0001:0029DEA4 536 0001:0029DEB5 + 537 0001:0029DEC4 538 0001:0029DF0F 540 0001:0029DF29 541 0001:0029DF40 + 529 0001:0029DF41 543 0001:0029DF4D 546 0001:0029DF90 548 0001:0029DFAF + 549 0001:0029DFCD 551 0001:0029DFE8 552 0001:0029DFF9 553 0001:0029E008 + 554 0001:0029E043 556 0001:0029E05A 544 0001:0029E05B 558 0001:0029E062 + 527 0001:0029E065 559 0001:0029E0A5 564 0001:0029E110 565 0001:0029E132 + 567 0001:0029E14E 568 0001:0029E15C 569 0001:0029E189 572 0001:0029E1BD + 573 0001:0029E1C2 565 0001:0029E1C5 574 0001:0029E1EC 577 0001:0029E1F4 + 578 0001:0029E22D 579 0001:0029E239 581 0001:0029E248 582 0001:0029E277 + 584 0001:0029E280 585 0001:0029E2C7 586 0001:0029E2CB 587 0001:0029E2DE + 588 0001:0029E2F1 589 0001:0029E2F9 590 0001:0029E308 591 0001:0029E315 + 592 0001:0029E322 593 0001:0029E32F 594 0001:0029E33C 595 0001:0029E349 + 597 0001:0029E34D 598 0001:0029E364 599 0001:0029E36F 601 0001:0029E384 + 602 0001:0029E3A1 604 0001:0029E3AE 605 0001:0029E3B5 607 0001:0029E3BA + 608 0001:0029E3C5 611 0001:0029E3D0 612 0001:0029E3DD 614 0001:0029E3E6 + 615 0001:0029E3F5 616 0001:0029E402 617 0001:0029E411 618 0001:0029E420 + 619 0001:0029E437 621 0001:0029E447 623 0001:0029E469 625 0001:0029E478 + 626 0001:0029E482 627 0001:0029E493 628 0001:0029E4AE 629 0001:0029E4BE + 630 0001:0029E4DA 633 0001:0029E50A 634 0001:0029E514 635 0001:0029E518 + 636 0001:0029E51F 637 0001:0029E527 638 0001:0029E52F 639 0001:0029E537 + 640 0001:0029E53F 643 0001:0029E544 645 0001:0029E553 647 0001:0029E57D + 648 0001:0029E587 651 0001:0029E590 653 0001:0029E59F 655 0001:0029E5C9 + 656 0001:0029E5D3 659 0001:0029E5DC 661 0001:0029E5EB 662 0001:0029E5F9 + 664 0001:0029E624 665 0001:0029E62E 668 0001:0029E637 670 0001:0029E646 + 671 0001:0029E654 673 0001:0029E67F 674 0001:0029E689 677 0001:0029E692 + 679 0001:0029E6A1 680 0001:0029E6AF 682 0001:0029E6DA 683 0001:0029E6E4 + 686 0001:0029E6ED 688 0001:0029E700 690 0001:0029E70B 692 0001:0029E735 + 693 0001:0029E73F 698 0001:0029E748 699 0001:0029E752 700 0001:0029E763 + 701 0001:0029E77E 702 0001:0029E78E 703 0001:0029E7AA 704 0001:0029E7B5 + 709 0001:0029E7F5 710 0001:0029E807 711 0001:0029E81A 712 0001:0029E83E + 714 0001:0029E851 718 0001:0029E85B 719 0001:0029E862 720 0001:0029E86A + 721 0001:0029E872 723 0001:0029E87A 724 0001:0029E8C1 735 0001:0029EF60 + 736 0001:0029EF87 737 0001:0029EF89 738 0001:0029EFAB 740 0001:0029EFB3 + 741 0001:0029EFCB 742 0001:0029EFD4 745 0001:0029EFDC 746 0001:0029EFDE + 748 0001:0029EFE3 749 0001:0029EFEB 753 0001:0029EFF1 754 0001:0029EFFD + 755 0001:0029F00B 757 0001:0029F014 758 0001:0029F023 759 0001:0029F031 + 760 0001:0029F05A 761 0001:0029F05C 766 0001:0029F079 768 0001:0029F09F + 783 0001:0029F0A8 784 0001:0029F0FB 785 0001:0029F0FF 786 0001:0029F103 + 787 0001:0029F107 788 0001:0029F10B 790 0001:0029F10F 792 0001:0029F122 + 794 0001:0029F136 795 0001:0029F15F 796 0001:0029F170 797 0001:0029F19A + 798 0001:0029F1AB 799 0001:0029F1B8 800 0001:0029F1C4 801 0001:0029F20C + 803 0001:0029F22E 805 0001:0029F242 806 0001:0029F271 807 0001:0029F27D + 808 0001:0029F2C5 810 0001:0029F2E7 812 0001:0029F2FB 813 0001:0029F32A + 814 0001:0029F336 815 0001:0029F37E 817 0001:0029F3A0 819 0001:0029F3B5 + 820 0001:0029F3CF 822 0001:0029F3D4 823 0001:0029F3E7 824 0001:0029F3F8 + 825 0001:0029F404 827 0001:0029F408 828 0001:0029F432 830 0001:0029F456 + 831 0001:0029F465 832 0001:0029F46F 833 0001:0029F48F 835 0001:0029F4A8 + 836 0001:0029F4B0 848 0001:0029F4BD 853 0001:0029F4F0 855 0001:0029F4F6 + 858 0001:0029F4FA 859 0001:0029F536 861 0001:0029F556 862 0001:0029F55D + 865 0001:0029F56E 866 0001:0029F579 868 0001:0029F584 869 0001:0029F593 + 870 0001:0029F59D 871 0001:0029F5A4 874 0001:0029F5A9 876 0001:0029F5B4 + 878 0001:0029F5E4 880 0001:0029F60F 881 0001:0029F619 884 0001:0029F620 + 886 0001:0029F62E 889 0001:0029F645 890 0001:0029F65A 891 0001:0029F67F + 892 0001:0029F68C 893 0001:0029F6A1 895 0001:0029F6A9 896 0001:0029F6C9 + 898 0001:0029F6CF 900 0001:0029F707 901 0001:0029F70F 905 0001:0029F719 + 906 0001:0029F71D 907 0001:0029F721 909 0001:0029F729 910 0001:0029F746 + 915 0001:0029F754 916 0001:0029F762 918 0001:0029F770 920 0001:0029F7C2 + 921 0001:0029F7D2 923 0001:0029F7E0 926 0001:0029F7EC 928 0001:0029F80B + 930 0001:0029F826 931 0001:0029F82C 933 0001:0029F83A 935 0001:0029F846 + 936 0001:0029F859 937 0001:0029F876 938 0001:0029F883 939 0001:0029F893 + 941 0001:0029F8A1 942 0001:0029F8BD 943 0001:0029F8D7 946 0001:0029F8ED + 947 0001:0029F902 948 0001:0029F91D 949 0001:0029F92A 950 0001:0029F95A + 951 0001:0029F962 952 0001:0029F96E 953 0001:0029F979 955 0001:0029F98D + 957 0001:0029F9BA 958 0001:0029F9F8 959 0001:0029FA11 960 0001:0029FA19 + 961 0001:0029FA23 967 0001:0029FA28 968 0001:0029FA39 969 0001:0029FA45 + 973 0001:0029FA5A 974 0001:0029FA63 976 0001:0029FA71 977 0001:0029FA7B + 980 0001:0029FA80 982 0001:0029FA90 983 0001:0029FA96 984 0001:0029FAA9 + 985 0001:0029FAAF 988 0001:0029FAC4 990 0001:0029FAD4 991 0001:0029FAED + 994 0001:0029FAFA 996 0001:0029FB10 997 0001:0029FB2C 999 0001:0029FB30 + 1000 0001:0029FB40 1002 0001:0029FB49 1005 0001:0029FB50 1008 0001:0029FB57 + 1010 0001:0029FB61 1012 0001:0029FB79 1013 0001:0029FB85 1014 0001:0029FB91 + 1015 0001:0029FB9E 1019 0001:0029FBB1 1020 0001:0029FBF6 1021 0001:0029FC00 + 1022 0001:0029FC0C 1024 0001:0029FC1C 1025 0001:0029FC29 1026 0001:0029FC37 + 1030 0001:0029FC45 1031 0001:0029FC4F 1037 0001:0029FC55 1038 0001:0029FC67 + 1045 0001:0029FC75 1046 0001:0029FC7E 1052 0001:0029FC8C 1053 0001:0029FC96 + 1058 0001:0029FC9A 1059 0001:0029FCA3 1061 0001:0029FCAA 1062 0001:0029FCC3 + 1064 0001:0029FD2C 1071 0001:0029FFD8 1078 0001:0029FFFA 1079 0001:002A0008 + 1080 0001:002A0016 1081 0001:002A0021 1082 0001:002A002A 1083 0001:002A0037 + 1084 0001:002A004A 1085 0001:002A0072 1093 0001:002A0078 1094 0001:002A00BA + 1095 0001:002A00BE 1096 0001:002A00C9 1097 0001:002A00D3 1098 0001:002A00F5 + 1100 0001:002A00FA 1103 0001:002A010B 1104 0001:002A0146 1105 0001:002A014D + 1106 0001:002A0156 1109 0001:002A0160 1110 0001:002A0169 1111 0001:002A0174 + 1112 0001:002A017F 1113 0001:002A0189 1114 0001:002A0197 1115 0001:002A01A6 + 1116 0001:002A01AD 1117 0001:002A01B8 1118 0001:002A01FE 1125 0001:002A0220 + 1126 0001:002A025D 1127 0001:002A025F 1128 0001:002A026A 1129 0001:002A0274 + 1130 0001:002A0296 1132 0001:002A029F 1135 0001:002A02B3 1136 0001:002A02F8 + 1137 0001:002A0302 1138 0001:002A030E 1141 0001:002A031B 1142 0001:002A032E + 1143 0001:002A0352 1144 0001:002A0381 1156 0001:002A03A4 1157 0001:002A03D1 + 1158 0001:002A03D5 1160 0001:002A03E9 1162 0001:002A0418 1163 0001:002A0424 + 1164 0001:002A0428 1166 0001:002A042A 1158 0001:002A042B 1167 0001:002A045B + 1169 0001:002A0464 1170 0001:002A04AF 1171 0001:002A04B3 1172 0001:002A04C4 + 1173 0001:002A04E6 1174 0001:002A04F5 1175 0001:002A0503 1176 0001:002A0520 + 1177 0001:002A053A 1179 0001:002A0564 1181 0001:002A0571 1180 0001:002A057C + 1183 0001:002A058B 1185 0001:002A05B4 1187 0001:002A060C 1193 0001:002A0634 + 1194 0001:002A066C 1195 0001:002A066E 1197 0001:002A0677 1198 0001:002A068A + 1199 0001:002A0697 1200 0001:002A06A5 1202 0001:002A06A7 1204 0001:002A06AB + 1205 0001:002A06C4 1206 0001:002A0706 1207 0001:002A0710 1209 0001:002A071A + 1210 0001:002A0735 1211 0001:002A0741 1212 0001:002A0770 1216 0001:002A077C + 1218 0001:002A07A9 1219 0001:002A07AC 1220 0001:002A07AE 1223 0001:002A07B0 + 1224 0001:002A07B1 1226 0001:002A07B3 1228 0001:002A07BC 1229 0001:002A07C6 + 1230 0001:002A07D2 1233 0001:002A07DF 1235 0001:002A07E8 1236 0001:002A07F2 + 1237 0001:002A07FE 1239 0001:002A080B 1241 0001:002A0814 1242 0001:002A081E + 1243 0001:002A082A 1246 0001:002A0847 1248 0001:002A0850 1249 0001:002A085A + 1250 0001:002A0866 1252 0001:002A0883 1254 0001:002A088C 1255 0001:002A0896 + 1256 0001:002A08A2 1258 0001:002A08AB 1259 0001:002A08AF 1264 0001:002A0960 + 1265 0001:002A09A5 1267 0001:002A09A7 1268 0001:002A09B4 1271 0001:002A09D1 + 1274 0001:002A09DE 1276 0001:002A09EB 1277 0001:002A09F2 1278 0001:002A09FF + 1280 0001:002A0A06 1282 0001:002A0A21 1284 0001:002A0A31 1285 0001:002A0A57 + 1287 0001:002A0A78 1288 0001:002A0A85 1289 0001:002A0ABF 1290 0001:002A0ACC + 1292 0001:002A0AD9 1293 0001:002A0AFD 1294 0001:002A0B09 1297 0001:002A0B36 + 1298 0001:002A0B40 1299 0001:002A0B81 1304 0001:002A0C78 1305 0001:002A0CB4 + 1307 0001:002A0CB6 1308 0001:002A0CC3 1311 0001:002A0CE0 1314 0001:002A0CED + 1316 0001:002A0CFA 1317 0001:002A0D01 1318 0001:002A0D0E 1320 0001:002A0D15 + 1322 0001:002A0D32 1323 0001:002A0D57 1325 0001:002A0D70 1326 0001:002A0D7D + 1327 0001:002A0DB7 1328 0001:002A0DC4 1332 0001:002A0DD1 1333 0001:002A0DDB + 1334 0001:002A0E17 1338 0001:002A0E20 1339 0001:002A0E2A 1348 0001:002A0E2C + 1349 0001:002A0E68 1351 0001:002A0E71 1352 0001:002A0E7B 1355 0001:002A0E87 + 1356 0001:002A0E90 1357 0001:002A0EA0 1360 0001:002A0EB6 1361 0001:002A0EBB + 1362 0001:002A0ECA 1363 0001:002A0EE1 1364 0001:002A0EED 1365 0001:002A0EF4 + 1367 0001:002A0F13 1368 0001:002A0F20 1370 0001:002A0F26 1371 0001:002A0F34 + 1372 0001:002A0F44 1374 0001:002A0F4A 1375 0001:002A0F58 1377 0001:002A0F66 + 1378 0001:002A0F7F 1379 0001:002A0F9D 1380 0001:002A0FAC 1381 0001:002A0FCE + 1382 0001:002A0FE4 1383 0001:002A1004 1384 0001:002A1010 1385 0001:002A1015 + 1387 0001:002A101D 1388 0001:002A1033 1389 0001:002A1054 1390 0001:002A105F + 1391 0001:002A1092 1392 0001:002A109C 1393 0001:002A10A5 1394 0001:002A10B1 + 1396 0001:002A10BB 1397 0001:002A10D4 1399 0001:002A10E8 1357 0001:002A10E9 + 1400 0001:002A10F2 1401 0001:002A1134 1423 0001:002A1170 1424 0001:002A11B5 + 1425 0001:002A11B9 1426 0001:002A11C9 1428 0001:002A11DF 1430 0001:002A11F9 + 1431 0001:002A11FF 1432 0001:002A1203 1433 0001:002A1212 1434 0001:002A1217 + 1435 0001:002A121F 1438 0001:002A1224 1439 0001:002A1245 1441 0001:002A124D + 1443 0001:002A126B 1444 0001:002A1282 1448 0001:002A12AC 1449 0001:002A12D0 + 1450 0001:002A12E7 1451 0001:002A12FB 1452 0001:002A132F 1454 0001:002A1337 + 1456 0001:002A1346 1457 0001:002A137F 1459 0001:002A1383 1460 0001:002A138F + 1462 0001:002A1399 1463 0001:002A13B3 1465 0001:002A13B9 1466 0001:002A13CB + 1468 0001:002A13DD 1470 0001:002A13E7 1471 0001:002A1400 1473 0001:002A1414 + 1426 0001:002A1415 1475 0001:002A141E 1476 0001:002A145E 1485 0001:002A14D8 + 1488 0001:002A151D 1489 0001:002A1521 1490 0001:002A1531 1491 0001:002A153B + 1493 0001:002A154D 1495 0001:002A1567 1498 0001:002A156D 1499 0001:002A1571 + 1500 0001:002A1580 1501 0001:002A1585 1502 0001:002A158D 1504 0001:002A1592 + 1506 0001:002A159E 1508 0001:002A15BC 1509 0001:002A15D3 1512 0001:002A15FD + 1513 0001:002A160C 1514 0001:002A1649 1517 0001:002A1652 1519 0001:002A1670 + 1520 0001:002A1687 1523 0001:002A16B1 1524 0001:002A16C0 1525 0001:002A16F9 + 1527 0001:002A16FD 1528 0001:002A1709 1529 0001:002A1713 1530 0001:002A172D + 1532 0001:002A1733 1533 0001:002A174C 1535 0001:002A1760 1491 0001:002A1761 + 1536 0001:002A176A 1538 0001:002A17AA 1542 0001:002A1830 1543 0001:002A1837 + 1545 0001:002A1840 1546 0001:002A1845 1548 0001:002A184A 1552 0001:002A184C + 1553 0001:002A1853 1555 0001:002A185C 1556 0001:002A1861 1558 0001:002A1866 + 1562 0001:002A1868 1563 0001:002A186F 1565 0001:002A1878 1566 0001:002A187D + 1568 0001:002A1882 1572 0001:002A1884 1573 0001:002A188B 1575 0001:002A1894 + 1576 0001:002A1899 1578 0001:002A189E 1582 0001:002A18A0 1583 0001:002A18A7 + 1584 0001:002A18B5 1586 0001:002A18BE 1587 0001:002A18C3 1589 0001:002A18C8 + 1594 0001:002A18CC 1595 0001:002A18EA 1596 0001:002A18EC 1598 0001:002A18FE + 1601 0001:002A1956 1602 0001:002A1960 1604 0001:002A196C 1605 0001:002A196E + 1607 0001:002A19C8 1612 0001:002A1A44 1613 0001:002A1A5D 1618 0001:002A1A60 + 1620 0001:002A1A69 1621 0001:002A1A7A 1625 0001:002A1A7B 1627 0001:002A1A89 + 1628 0001:002A1A9A 1630 0001:002A1A9B 1632 0001:002A1AAC 1633 0001:002A1ABF + 1635 0001:002A1AC0 1637 0001:002A1AD0 1642 0001:002A1C58 1644 0001:002A1C61 + 1645 0001:002A1C72 1649 0001:002A1C73 1651 0001:002A1C81 1652 0001:002A1C92 + 1654 0001:002A1C93 1656 0001:002A1CA3 1660 0001:002A1D5C 1661 0001:002A1D70 + 1662 0001:002A1D7C 1663 0001:002A1D90 1664 0001:002A1D9D 1665 0001:002A1DB1 + 1666 0001:002A1DBE 1667 0001:002A1DD2 1668 0001:002A1DDF 1669 0001:002A1DE2 + 1684 0001:002A1DE4 1685 0001:002A1E07 1687 0001:002A1E0B 1688 0001:002A1E24 + 1690 0001:002A1E39 1691 0001:002A1E69 1695 0001:002A1E7A 1696 0001:002A1E88 + 1697 0001:002A1E95 1698 0001:002A1EAA 1700 0001:002A1EB7 1701 0001:002A1EC9 + 1703 0001:002A1EDE 1704 0001:002A1EEA 1706 0001:002A1EF7 1707 0001:002A1F09 + 1708 0001:002A1F0F 1710 0001:002A1F1B 1712 0001:002A1F24 1713 0001:002A1F61 + 1717 0001:002A20A8 1718 0001:002A20B1 1719 0001:002A20C0 1720 0001:002A20C9 + 1721 0001:002A20D3 1725 0001:002A20D4 1726 0001:002A20D8 1727 0001:002A20DA + 1728 0001:002A20E0 1730 0001:002A20E8 1731 0001:002A20EE 1732 0001:002A20F1 + 1738 0001:002A20F4 1739 0001:002A20FB 1740 0001:002A20FF 1741 0001:002A2101 + 1742 0001:002A210B 1743 0001:002A2133 1744 0001:002A2150 1745 0001:002A2186 + 1746 0001:002A218D 1751 0001:002A2194 1752 0001:002A219B 1753 0001:002A219D + 1755 0001:002A21AA 1756 0001:002A21B4 1757 0001:002A21E4 1761 0001:002A21E8 + 1762 0001:002A21F2 1763 0001:002A2222 1764 0001:002A2226 1765 0001:002A2231 + 1767 0001:002A2235 1772 0001:002A223C 1774 0001:002A226E 1775 0001:002A2272 + 1777 0001:002A228B 1778 0001:002A22B0 1780 0001:002A22B9 1782 0001:002A22C9 + 1783 0001:002A22E7 1784 0001:002A2305 1785 0001:002A231E 1786 0001:002A235A + 1787 0001:002A237D 1791 0001:002A2386 1793 0001:002A2397 1794 0001:002A23B5 + 1795 0001:002A23D3 1797 0001:002A240C 1798 0001:002A242F 1804 0001:002A2433 + 1806 0001:002A2459 1807 0001:002A2476 1809 0001:002A247F 1811 0001:002A248B + 1812 0001:002A2497 1813 0001:002A24CB 1814 0001:002A24E6 1818 0001:002A24EC + 1820 0001:002A24F9 1822 0001:002A2513 1823 0001:002A2536 1829 0001:002A2567 + 1831 0001:002A2778 1832 0001:002A2792 1833 0001:002A2799 1834 0001:002A27A0 + 1835 0001:002A27AA 1836 0001:002A27B8 1837 0001:002A27BF 1838 0001:002A27C6 + 1839 0001:002A27CD 1840 0001:002A27D4 1841 0001:002A27DB 1842 0001:002A27E2 + 1843 0001:002A27E9 1844 0001:002A27F0 1845 0001:002A27F7 1847 0001:002A2813 + +Line numbers for rODBase(Orders\rODBase.pas) segment .text + + 153 0001:002A2A48 154 0001:002A2A76 155 0001:002A2A78 156 0001:002A2A7A + 157 0001:002A2A82 158 0001:002A2A8A 159 0001:002A2A91 161 0001:002A2AA6 + 163 0001:002A2ABF 164 0001:002A2AD4 166 0001:002A2AD6 167 0001:002A2AEF + 168 0001:002A2B04 169 0001:002A2B1B 170 0001:002A2B28 172 0001:002A2B2C + 173 0001:002A2B40 175 0001:002A2B55 177 0001:002A2B7C 178 0001:002A2B91 + 180 0001:002A2BA0 181 0001:002A2BE0 183 0001:002A2BFC 184 0001:002A2C18 + 186 0001:002A2C41 188 0001:002A2C5D 189 0001:002A2C79 191 0001:002A2CA2 + 193 0001:002A2CDA 194 0001:002A2CF8 196 0001:002A2D1E 198 0001:002A2D3A + 199 0001:002A2D53 203 0001:002A2D77 159 0001:002A2D78 205 0001:002A2D81 + 207 0001:002A2D9B 209 0001:002A2DA8 210 0001:002A2DD6 212 0001:002A2DE9 + 213 0001:002A2DF8 214 0001:002A2E06 215 0001:002A2E11 216 0001:002A2E1E + 217 0001:002A2E38 218 0001:002A2E49 220 0001:002A2E5B 221 0001:002A2E88 + 222 0001:002A2EA6 218 0001:002A2EA7 224 0001:002A2EB7 227 0001:002A2EC7 + 229 0001:002A2ED8 205 0001:002A2EDB 230 0001:002A2F20 240 0001:002A305C + 241 0001:002A3065 242 0001:002A307F 245 0001:002A309C 246 0001:002A30A2 + 247 0001:002A30BA 248 0001:002A30CE 251 0001:002A30EC 252 0001:002A30EF + 254 0001:002A3113 264 0001:002A3130 267 0001:002A3157 268 0001:002A3160 + 269 0001:002A3177 270 0001:002A318A 271 0001:002A31A3 272 0001:002A31B9 + 273 0001:002A31D6 274 0001:002A31EC 275 0001:002A3216 276 0001:002A3232 + 277 0001:002A3237 278 0001:002A3248 280 0001:002A3288 285 0001:002A32A4 + 286 0001:002A32C0 287 0001:002A330B 290 0001:002A3330 291 0001:002A334C + 292 0001:002A3391 295 0001:002A33AC 296 0001:002A33C8 297 0001:002A340D + 302 0001:002A3428 303 0001:002A3448 306 0001:002A3462 307 0001:002A347F + 308 0001:002A349D 309 0001:002A34BD 311 0001:002A3505 319 0001:002A3524 + 320 0001:002A3549 321 0001:002A355F 323 0001:002A3580 326 0001:002A358E + 327 0001:002A35C3 328 0001:002A35FA 329 0001:002A3630 330 0001:002A3668 + 331 0001:002A3670 332 0001:002A36A5 333 0001:002A36DA 334 0001:002A370F + 335 0001:002A3744 336 0001:002A3781 337 0001:002A37BE 338 0001:002A37F3 + 340 0001:002A3830 341 0001:002A383A 321 0001:002A383B 342 0001:002A3866 + 349 0001:002A3894 350 0001:002A38B7 351 0001:002A38CF 352 0001:002A38D1 + 354 0001:002A38F2 356 0001:002A391E 359 0001:002A392C 360 0001:002A398C + 361 0001:002A39C1 362 0001:002A39FE 363 0001:002A3A3B 364 0001:002A3A70 + 365 0001:002A3AAA 366 0001:002A3ADF 367 0001:002A3B14 368 0001:002A3B49 + 369 0001:002A3B7E 370 0001:002A3BB3 371 0001:002A3BE8 373 0001:002A3BF2 + 375 0001:002A3BFC 376 0001:002A3C28 377 0001:002A3C95 352 0001:002A3C96 + 378 0001:002A3CC4 387 0001:002A3CFC 388 0001:002A3D22 389 0001:002A3D24 + 390 0001:002A3D2A 391 0001:002A3D39 392 0001:002A3D4E 395 0001:002A3D61 + 397 0001:002A3D83 400 0001:002A3D91 401 0001:002A3DD4 402 0001:002A3E01 + 403 0001:002A3E2C 406 0001:002A3E32 407 0001:002A3E73 408 0001:002A3EB4 + 410 0001:002A3ED2 411 0001:002A3EEB 412 0001:002A3F19 414 0001:002A3F26 + 404 0001:002A3F27 416 0001:002A3F55 417 0001:002A3F71 418 0001:002A3F7E + 419 0001:002A3F99 393 0001:002A3FA3 424 0001:002A3FC0 426 0001:002A3FF2 + 429 0001:002A4018 430 0001:002A4024 431 0001:002A403A 432 0001:002A4043 + 438 0001:002A4064 441 0001:002A40B8 442 0001:002A40C1 443 0001:002A40D3 + 444 0001:002A40E6 445 0001:002A4108 446 0001:002A411E 447 0001:002A4152 + 450 0001:002A4168 451 0001:002A4199 452 0001:002A41AF 453 0001:002A41CC + 454 0001:002A41E2 455 0001:002A420C 456 0001:002A4222 457 0001:002A424C + 458 0001:002A4262 459 0001:002A4284 460 0001:002A4290 462 0001:002A42AE + 463 0001:002A42CA 464 0001:002A42D6 465 0001:002A42F8 466 0001:002A4304 + 467 0001:002A4326 468 0001:002A435A 471 0001:002A4371 473 0001:002A43FE + 474 0001:002A444E 468 0001:002A444F 475 0001:002A4458 476 0001:002A446F + 477 0001:002A4491 478 0001:002A449F 479 0001:002A44DB 480 0001:002A4517 + 481 0001:002A452D 482 0001:002A454A 484 0001:002A4550 485 0001:002A4566 + 488 0001:002A45A6 489 0001:002A45BC 491 0001:002A45D6 492 0001:002A45EC + 493 0001:002A4609 494 0001:002A461F 496 0001:002A464F 497 0001:002A4654 + 498 0001:002A4669 499 0001:002A467B 500 0001:002A468A 504 0001:002A4694 + 505 0001:002A46FD 502 0001:002A470C 507 0001:002A4773 508 0001:002A479D + 509 0001:002A47A5 511 0001:002A47E5 514 0001:002A47F6 515 0001:002A4852 + 512 0001:002A4861 518 0001:002A48C8 520 0001:002A491C 541 0001:002A49EC + 542 0001:002A4A09 543 0001:002A4A1F 544 0001:002A4A6D 547 0001:002A4A88 + 548 0001:002A4AA2 549 0001:002A4AE9 561 0001:002A4B08 562 0001:002A4B14 + 563 0001:002A4B3F 564 0001:002A4B4C 567 0001:002A4B6C 570 0001:002A4B94 + 571 0001:002A4B9D 572 0001:002A4BB1 573 0001:002A4BC4 574 0001:002A4BE6 + 575 0001:002A4BFC 577 0001:002A4C1E 578 0001:002A4C23 579 0001:002A4C34 + 581 0001:002A4C47 582 0001:002A4C6B 589 0001:002A4C90 591 0001:002A4CCA + 592 0001:002A4CCD 593 0001:002A4CD1 594 0001:002A4CD5 595 0001:002A4CD9 + 596 0001:002A4CDD 597 0001:002A4CE1 598 0001:002A4CE5 599 0001:002A4CFA + 602 0001:002A4D04 604 0001:002A4D36 605 0001:002A4D68 607 0001:002A4D6D + 609 0001:002A4D70 611 0001:002A4DA2 612 0001:002A4DD4 614 0001:002A4DDA + 616 0001:002A4DDE 618 0001:002A4E10 619 0001:002A4E42 621 0001:002A4E48 + 623 0001:002A4E4C 625 0001:002A4E7E 626 0001:002A4EB0 628 0001:002A4EB6 + 630 0001:002A4EBA 632 0001:002A4EEC 633 0001:002A4F1E 635 0001:002A4F24 + 637 0001:002A4F28 639 0001:002A4F5A 640 0001:002A4F8C 642 0001:002A4F92 + 644 0001:002A4F96 646 0001:002A4FC8 647 0001:002A5006 649 0001:002A500C + 651 0001:002A5010 600 0001:002A5011 653 0001:002A5037 655 0001:002A5185 + 658 0001:002A519D 659 0001:002A51AB 660 0001:002A51C3 661 0001:002A51DB + 662 0001:002A51FF 664 0001:002A5236 671 0001:002A52BC 672 0001:002A52CB + 673 0001:002A5306 674 0001:002A5313 677 0001:002A5334 678 0001:002A5359 + 679 0001:002A5387 680 0001:002A53DF 683 0001:002A540C 685 0001:002A5426 + 687 0001:002A542F 688 0001:002A5460 690 0001:002A5467 691 0001:002A548C + 720 0001:002A54C0 721 0001:002A54DF 722 0001:002A5542 727 0001:002A5560 + 728 0001:002A557E 730 0001:002A5595 731 0001:002A55AF 732 0001:002A55B5 + 733 0001:002A55D5 734 0001:002A55F5 736 0001:002A562C 741 0001:002A5650 + 742 0001:002A566E 744 0001:002A5685 745 0001:002A569F 746 0001:002A56A5 + 747 0001:002A56C5 748 0001:002A56E5 750 0001:002A571C 753 0001:002A5740 + 754 0001:002A575C 755 0001:002A57BB 758 0001:002A57E4 759 0001:002A57EA + 760 0001:002A580E 761 0001:002A5822 766 0001:002A5844 767 0001:002A5868 + 768 0001:002A5882 769 0001:002A589F 770 0001:002A58E6 773 0001:002A590C + 774 0001:002A5928 775 0001:002A5973 778 0001:002A599C 779 0001:002A59B8 + 780 0001:002A5A03 784 0001:002A5A30 785 0001:002A5A33 786 0001:002A5A4A + 787 0001:002A5A57 791 0001:002A5A78 792 0001:002A5A7B 793 0001:002A5A92 + 794 0001:002A5A9F 797 0001:002A5AC0 798 0001:002A5ACC 799 0001:002A5AF2 + 803 0001:002A5B14 804 0001:002A5B17 805 0001:002A5B2E 806 0001:002A5B3B + 810 0001:002A5B5C 811 0001:002A5B62 812 0001:002A5B98 813 0001:002A5BA5 + 817 0001:002A5BC4 818 0001:002A5BCA 819 0001:002A5C00 820 0001:002A5C0D + 824 0001:002A5C2C 825 0001:002A5C32 826 0001:002A5C52 827 0001:002A5C66 + 830 0001:002A5C84 831 0001:002A5CA0 832 0001:002A5CE3 842 0001:002A5D04 + 843 0001:002A5D23 844 0001:002A5D73 848 0001:002A5D94 849 0001:002A5DB3 + 850 0001:002A5E13 854 0001:002A5E3C 855 0001:002A5E3F 856 0001:002A5E57 + 857 0001:002A5E64 864 0001:002A5E80 866 0001:002A5ED5 859 0001:002A5ED8 + 860 0001:002A5EF2 861 0001:002A5EF9 863 0001:002A5F18 + +Line numbers for rConsults(Consults\rConsults.pas) segment .text + + 120 0001:002A5F1C 121 0001:002A5F36 122 0001:002A5F3F 123 0001:002A5F6A + 124 0001:002A5F8F 130 0001:002A5FB8 131 0001:002A5FD8 132 0001:002A5FE5 + 133 0001:002A6014 134 0001:002A602D 135 0001:002A603E 136 0001:002A605D + 137 0001:002A6077 138 0001:002A609D 139 0001:002A60EA 143 0001:002A6138 + 145 0001:002A6141 146 0001:002A614B 147 0001:002A6152 149 0001:002A6157 + 154 0001:002A6158 155 0001:002A6166 156 0001:002A616E 160 0001:002A6170 + 161 0001:002A6173 162 0001:002A6181 163 0001:002A6191 167 0001:002A6194 + 168 0001:002A6197 169 0001:002A61A5 170 0001:002A61B4 172 0001:002A61C5 + 173 0001:002A61D1 175 0001:002A61DD 181 0001:002A6240 185 0001:002A6249 + 187 0001:002A626B 188 0001:002A6278 193 0001:002A62A8 194 0001:002A62C2 + 195 0001:002A62CB 196 0001:002A62F6 197 0001:002A631B 203 0001:002A6344 + 204 0001:002A6364 205 0001:002A6371 206 0001:002A63A0 207 0001:002A63B9 + 208 0001:002A63CA 209 0001:002A63E9 210 0001:002A6403 211 0001:002A6429 + 212 0001:002A6476 216 0001:002A64C4 218 0001:002A64CD 219 0001:002A64D7 + 220 0001:002A64DE 222 0001:002A64E3 227 0001:002A64E4 228 0001:002A64F2 + 229 0001:002A64FA 233 0001:002A64FC 234 0001:002A64FF 235 0001:002A650D + 236 0001:002A651D 240 0001:002A6520 241 0001:002A6523 242 0001:002A6531 + 243 0001:002A6540 245 0001:002A6551 246 0001:002A655D 248 0001:002A6569 + 254 0001:002A65CC 258 0001:002A65D5 260 0001:002A65F7 261 0001:002A6604 + 271 0001:002A6634 272 0001:002A6678 273 0001:002A66A2 274 0001:002A66CC + 277 0001:002A6717 279 0001:002A6757 280 0001:002A6770 282 0001:002A6788 + 284 0001:002A67A4 285 0001:002A67C6 286 0001:002A67DD 282 0001:002A67DE + 287 0001:002A67E1 291 0001:002A67F8 292 0001:002A6800 295 0001:002A683C + 299 0001:002A6884 300 0001:002A688A 301 0001:002A68A2 302 0001:002A68B6 + 306 0001:002A68D4 307 0001:002A68DA 308 0001:002A68F2 309 0001:002A6906 + 323 0001:002A6928 324 0001:002A6950 325 0001:002A695E 326 0001:002A697F + 327 0001:002A6981 328 0001:002A6990 329 0001:002A699E 330 0001:002A69B3 + 331 0001:002A69C0 334 0001:002A69E6 335 0001:002A6A05 336 0001:002A6A25 + 337 0001:002A6A45 338 0001:002A6A65 339 0001:002A6A85 340 0001:002A6AA5 + 341 0001:002A6AC5 342 0001:002A6AE4 343 0001:002A6B02 344 0001:002A6B22 + 345 0001:002A6B42 346 0001:002A6B67 347 0001:002A6B87 348 0001:002A6BA7 + 349 0001:002A6BDF 350 0001:002A6C10 351 0001:002A6C2E 352 0001:002A6C4C + 353 0001:002A6C6C 354 0001:002A6C8A 355 0001:002A6CA8 357 0001:002A6CC8 + 358 0001:002A6CD2 359 0001:002A6CE1 360 0001:002A6CF0 362 0001:002A6D00 + 363 0001:002A6D0F 364 0001:002A6D26 365 0001:002A6D96 367 0001:002A6DB6 + 363 0001:002A6DD5 371 0001:002A6DE0 373 0001:002A6DF9 375 0001:002A6E36 + 381 0001:002A6E78 382 0001:002A6E7B 383 0001:002A6E93 384 0001:002A6EA5 + 385 0001:002A6EB2 389 0001:002A6ED0 390 0001:002A6ED3 391 0001:002A6EE9 + 392 0001:002A6EFB 393 0001:002A6F08 398 0001:002A6F28 399 0001:002A6F47 + 400 0001:002A6F61 401 0001:002A6F88 405 0001:002A6FAC 406 0001:002A6FAF + 407 0001:002A6FC5 408 0001:002A6FD2 411 0001:002A7000 412 0001:002A7003 + 413 0001:002A7019 414 0001:002A7026 417 0001:002A7054 418 0001:002A7074 + 419 0001:002A708D 420 0001:002A70B9 423 0001:002A70E8 424 0001:002A7115 + 425 0001:002A717F 428 0001:002A71AC 429 0001:002A71CE 430 0001:002A7229 + 436 0001:002A7254 437 0001:002A727B 438 0001:002A727F 439 0001:002A72D3 + 440 0001:002A72EF 439 0001:002A7330 441 0001:002A7358 446 0001:002A73A4 + 447 0001:002A73C7 448 0001:002A73E1 449 0001:002A7403 450 0001:002A7429 + 451 0001:002A744F 452 0001:002A74A6 453 0001:002A74C8 454 0001:002A74FA + 459 0001:002A7538 460 0001:002A7547 461 0001:002A7582 462 0001:002A7596 + 466 0001:002A75B8 467 0001:002A75DD 468 0001:002A762C 469 0001:002A765D + 473 0001:002A768C 474 0001:002A769B 475 0001:002A76E2 476 0001:002A76F6 + 480 0001:002A7728 481 0001:002A7737 482 0001:002A777E 483 0001:002A7792 + 487 0001:002A77C4 488 0001:002A77D3 489 0001:002A782C 490 0001:002A7840 + 494 0001:002A7864 495 0001:002A7889 496 0001:002A78CE 497 0001:002A78FF + 501 0001:002A7920 502 0001:002A794D 503 0001:002A79A9 504 0001:002A79E2 + 508 0001:002A7A0C 509 0001:002A7A39 510 0001:002A7A8B 511 0001:002A7AC4 + 516 0001:002A7AE4 517 0001:002A7AE7 518 0001:002A7AFE 519 0001:002A7B0B + 523 0001:002A7B28 524 0001:002A7B2B 525 0001:002A7B42 526 0001:002A7B4F + 529 0001:002A7B6C 531 0001:002A7B75 532 0001:002A7B97 534 0001:002A7BA4 + 538 0001:002A7BC8 539 0001:002A7BCB 540 0001:002A7BE1 541 0001:002A7BF3 + 542 0001:002A7C00 548 0001:002A7C1C 549 0001:002A7C1F 550 0001:002A7C4F + 551 0001:002A7C61 552 0001:002A7C6E 559 0001:002A7C94 560 0001:002A7C97 + 561 0001:002A7CD2 562 0001:002A7CE4 563 0001:002A7CF1 582 0001:002A7D18 + 583 0001:002A7D32 584 0001:002A7D48 586 0001:002A7D5E 587 0001:002A7D75 + 588 0001:002A7D84 589 0001:002A7D97 591 0001:002A7DAE 592 0001:002A7DDA + 597 0001:002A7E08 598 0001:002A7E32 600 0001:002A7E8D 603 0001:002A7EB4 + 604 0001:002A7ED6 605 0001:002A7EF9 606 0001:002A7F25 616 0001:002A7F50 + 617 0001:002A7F68 620 0001:002A7F8C 621 0001:002A7FB4 623 0001:002A8006 + 626 0001:002A8034 627 0001:002A803D 629 0001:002A8054 630 0001:002A806E + 631 0001:002A8074 633 0001:002A8080 636 0001:002A80A4 637 0001:002A80C6 + 638 0001:002A80FD 641 0001:002A8120 642 0001:002A8123 643 0001:002A8139 + 644 0001:002A8146 647 0001:002A816C 648 0001:002A8175 649 0001:002A818F + 655 0001:002A81AC 656 0001:002A81DD 657 0001:002A81EC 658 0001:002A81FA + 661 0001:002A8213 662 0001:002A8217 663 0001:002A821A 664 0001:002A824A + 665 0001:002A8278 666 0001:002A82B4 667 0001:002A82EE 668 0001:002A8328 + 669 0001:002A8364 670 0001:002A839E 671 0001:002A83D8 672 0001:002A8412 + 673 0001:002A8453 674 0001:002A848D 675 0001:002A84C7 676 0001:002A8501 + 677 0001:002A853B 678 0001:002A857D 679 0001:002A858E 680 0001:002A859D + 681 0001:002A85AA 682 0001:002A85BB 683 0001:002A85CA 684 0001:002A85DB + 685 0001:002A85EA 687 0001:002A85F9 689 0001:002A8616 691 0001:002A8659 + 696 0001:002A875C 699 0001:002A879F 700 0001:002A87A8 701 0001:002A87B9 + 702 0001:002A87CC 703 0001:002A87F3 704 0001:002A8809 706 0001:002A881D + 707 0001:002A8824 708 0001:002A884E 709 0001:002A8854 710 0001:002A8874 + 711 0001:002A887B 712 0001:002A88A5 713 0001:002A88B1 714 0001:002A88D7 + 715 0001:002A88E7 716 0001:002A8923 717 0001:002A892F 718 0001:002A8941 + 719 0001:002A8947 720 0001:002A896D 721 0001:002A8979 722 0001:002A899F + 723 0001:002A89AB 724 0001:002A89DE 726 0001:002A89EA 727 0001:002A89FC + 728 0001:002A8A0F 727 0001:002A8A5A 730 0001:002A8A5F 732 0001:002A8A6B + 733 0001:002A8A7D 734 0001:002A8A90 733 0001:002A8ADB 737 0001:002A8AE0 + 738 0001:002A8AE5 741 0001:002A8B25 747 0001:002A8CB8 748 0001:002A8CF4 + 751 0001:002A8D18 752 0001:002A8D1C 753 0001:002A8D3A 754 0001:002A8D58 + 755 0001:002A8D76 756 0001:002A8D94 757 0001:002A8DB2 759 0001:002A8DD8 + 760 0001:002A8E20 765 0001:002A8E50 768 0001:002A8E88 769 0001:002A8E9B + 770 0001:002A8EAE 771 0001:002A8EC1 772 0001:002A8ED4 773 0001:002A8EE7 + 775 0001:002A8F10 776 0001:002A8F5C 779 0001:002A8F84 780 0001:002A8FA6 + 781 0001:002A8FDA 782 0001:002A9006 785 0001:002A9034 786 0001:002A9056 + 787 0001:002A908D 790 0001:002A90B8 791 0001:002A90D8 792 0001:002A9105 + 793 0001:002A9131 797 0001:002A915C 798 0001:002A917E 799 0001:002A91C9 + 802 0001:002A91E8 803 0001:002A920A 804 0001:002A9241 809 0001:002A9268 + 810 0001:002A9295 811 0001:002A92B2 812 0001:002A92D0 813 0001:002A931D + 816 0001:002A933C 817 0001:002A9345 818 0001:002A935F 824 0001:002A9384 + 825 0001:002A93D5 828 0001:002A93F8 829 0001:002A9423 830 0001:002A944E + 831 0001:002A9474 832 0001:002A9499 834 0001:002A94C2 835 0001:002A9513 + 844 0001:002A9540 845 0001:002A956C 847 0001:002A959E 837 0001:002A95A0 + 838 0001:002A95BA 839 0001:002A95C1 840 0001:002A95CB 841 0001:002A95D2 + 843 0001:002A95EE + +Line numbers for uDocTree(uDocTree.pas) segment .text + + 82 0001:002A967C 83 0001:002A96B1 84 0001:002A96C0 85 0001:002A96CF + 86 0001:002A96DD 89 0001:002A96E7 91 0001:002A96F3 92 0001:002A9718 + 94 0001:002A9722 96 0001:002A9738 97 0001:002A9745 98 0001:002A9758 + 99 0001:002A976B 101 0001:002A9782 102 0001:002A978F 104 0001:002A97A2 + 105 0001:002A97B5 107 0001:002A97CC 108 0001:002A97D9 110 0001:002A97EC + 116 0001:002A97FF 118 0001:002A982F 119 0001:002A9855 120 0001:002A988E + 122 0001:002A9894 123 0001:002A98A1 127 0001:002A98C4 128 0001:002A98DC + 129 0001:002A991B 130 0001:002A998E 131 0001:002A99C9 134 0001:002A99D9 + 135 0001:002A99F1 138 0001:002A9A12 139 0001:002A9A48 140 0001:002A9A89 + 143 0001:002A9A99 144 0001:002A9AB7 147 0001:002A9ADE 148 0001:002A9B20 + 149 0001:002A9B61 152 0001:002A9B71 153 0001:002A9B9D 154 0001:002A9BB0 + 155 0001:002A9BCE 158 0001:002A9BF5 159 0001:002A9C37 160 0001:002A9C70 + 173 0001:002A9C7B 174 0001:002A9C86 94 0001:002A9C87 175 0001:002A9C8E + 176 0001:002A9C9F 177 0001:002A9CAF 179 0001:002A9CBD 180 0001:002A9CEF + 182 0001:002A9D21 183 0001:002A9D78 184 0001:002A9D83 185 0001:002A9D8B + 186 0001:002A9D99 187 0001:002A9DAA 188 0001:002A9DC0 187 0001:002A9E8C + 191 0001:002A9EA0 192 0001:002A9EA8 194 0001:002A9EF2 204 0001:002AA034 + 205 0001:002AA07E 207 0001:002AA094 208 0001:002AA099 209 0001:002AA0BE + 211 0001:002AA0CF 212 0001:002AA0F4 213 0001:002AA12E 214 0001:002AA141 + 215 0001:002AA160 216 0001:002AA17F 219 0001:002AA19E 220 0001:002AA1C3 + 221 0001:002AA1F6 222 0001:002AA208 223 0001:002AA221 227 0001:002AA23A + 228 0001:002AA24A 229 0001:002AA268 230 0001:002AA286 232 0001:002AA2A4 + 234 0001:002AA2A6 235 0001:002AA2BE 236 0001:002AA2DB 237 0001:002AA2E9 + 240 0001:002AA308 205 0001:002AA309 241 0001:002AA352 251 0001:002AA368 + 252 0001:002AA37F 255 0001:002AA39F 256 0001:002AA3A8 258 0001:002AA3B7 + 259 0001:002AA3C9 260 0001:002AA3D7 262 0001:002AA3EB 263 0001:002AA40A + 264 0001:002AA41D 265 0001:002AA432 266 0001:002AA45B 270 0001:002AA490 + 272 0001:002AA4AC 273 0001:002AA4F1 275 0001:002AA4F6 276 0001:002AA505 + 277 0001:002AA50E 278 0001:002AA531 279 0001:002AA542 280 0001:002AA548 + 281 0001:002AA559 282 0001:002AA56A 283 0001:002AA57B 284 0001:002AA58A + 285 0001:002AA59B 286 0001:002AA5AC 287 0001:002AA5BD 289 0001:002AA5D0 + 290 0001:002AA5D9 291 0001:002AA5E2 294 0001:002AA5EC 295 0001:002AA622 + 296 0001:002AA65B 297 0001:002AA691 298 0001:002AA6C7 300 0001:002AA6FB + 302 0001:002AA705 304 0001:002AA725 306 0001:002AA737 307 0001:002AA764 + 310 0001:002AA7B3 312 0001:002AA7F2 313 0001:002AA804 318 0001:002AA859 + 319 0001:002AA86A 320 0001:002AA878 322 0001:002AA886 323 0001:002AA890 + 324 0001:002AA89C 327 0001:002AA8A8 328 0001:002AA8B2 329 0001:002AA8BA + 332 0001:002AA8C6 333 0001:002AA8CD 334 0001:002AA8DB 335 0001:002AA8DF + 336 0001:002AA8ED 337 0001:002AA8F0 339 0001:002AA8FC 343 0001:002AA926 + 352 0001:002AA937 353 0001:002AA942 358 0001:002AA948 361 0001:002AA992 + 367 0001:002AAA78 368 0001:002AAAC8 369 0001:002AAAD0 370 0001:002AAAD2 + 371 0001:002AAAF9 373 0001:002AAAFF 376 0001:002AAB1D 377 0001:002AAB42 + 380 0001:002AABD2 382 0001:002AABD9 383 0001:002AABED 385 0001:002AAC3D + 386 0001:002AAC8B 388 0001:002AAC92 389 0001:002AACFE 391 0001:002AAD05 + 392 0001:002AAD34 393 0001:002AAD38 394 0001:002AAD80 398 0001:002AAD84 + 400 0001:002AAD86 401 0001:002AAD94 402 0001:002AADBA 403 0001:002AAE18 + 409 0001:002AAE54 410 0001:002AAEAC 411 0001:002AAEAE 412 0001:002AAEB9 + 414 0001:002AAEC4 415 0001:002AAEEA 417 0001:002AAEFF 419 0001:002AAF0B + 422 0001:002AAF26 423 0001:002AAF87 428 0001:002AAFE0 434 0001:002AB06C + 442 0001:002AB0D4 443 0001:002AB10A 444 0001:002AB120 446 0001:002AB165 + 447 0001:002AB169 448 0001:002AB16D 450 0001:002AB1AE 455 0001:002AB25C + 456 0001:002AB29A 457 0001:002AB29C 458 0001:002AB2A7 459 0001:002AB2AD + 460 0001:002AB2BE 461 0001:002AB2CB 462 0001:002AB2D8 464 0001:002AB2F0 + 466 0001:002AB363 469 0001:002AB378 470 0001:002AB379 472 0001:002AB37B + 473 0001:002AB382 474 0001:002AB38A 475 0001:002AB392 476 0001:002AB39A + 477 0001:002AB3A2 478 0001:002AB3AA 479 0001:002AB3B2 480 0001:002AB3BA + 481 0001:002AB3C2 482 0001:002AB3CA 483 0001:002AB3D2 484 0001:002AB3DA + 485 0001:002AB3E2 487 0001:002AB3EA 492 0001:002AB3EC 494 0001:002AB3F1 + 496 0001:002AB406 498 0001:002AB419 499 0001:002AB42E 500 0001:002AB449 + 502 0001:002AB45D 493 0001:002AB45E 503 0001:002AB461 506 0001:002AB468 + 507 0001:002AB46B 509 0001:002AB472 510 0001:002AB477 511 0001:002AB485 + 513 0001:002AB48E 514 0001:002AB498 519 0001:002AB49C 521 0001:002AB4CF + 522 0001:002AB4E2 524 0001:002AB4F5 525 0001:002AB50B 526 0001:002AB51F + 527 0001:002AB525 528 0001:002AB537 520 0001:002AB538 529 0001:002AB560 + 534 0001:002AB568 535 0001:002AB582 536 0001:002AB58D 540 0001:002AB58F + 541 0001:002AB59B 542 0001:002AB5A8 543 0001:002AB5B2 544 0001:002AB5C1 + 545 0001:002AB5CD 547 0001:002AB5D0 548 0001:002AB5DA 549 0001:002AB5E4 + 550 0001:002AB60C 551 0001:002AB616 552 0001:002AB620 555 0001:002AB64B + 560 0001:002AB654 561 0001:002AB67F 562 0001:002AB691 564 0001:002AB693 + 565 0001:002AB6B0 566 0001:002AB6EA 567 0001:002AB708 568 0001:002AB726 + 569 0001:002AB73C 570 0001:002AB75C 571 0001:002AB77A 572 0001:002AB798 + 573 0001:002AB7B6 574 0001:002AB7DB 575 0001:002AB7F1 576 0001:002AB80F + 577 0001:002AB873 578 0001:002AB891 579 0001:002AB8AF 580 0001:002AB8CD + 582 0001:002AB8F3 583 0001:002AB919 588 0001:002AB958 589 0001:002AB983 + 590 0001:002AB995 591 0001:002AB9E1 593 0001:002AB9E3 594 0001:002ABA00 + 595 0001:002ABA3A 596 0001:002ABA58 597 0001:002ABA76 598 0001:002ABA8C + 599 0001:002ABAAA 600 0001:002ABACA 601 0001:002ABAE8 602 0001:002ABB0D + 603 0001:002ABB23 604 0001:002ABB41 605 0001:002ABBA5 606 0001:002ABBC3 + 607 0001:002ABBE1 608 0001:002ABBFF 609 0001:002ABC1D 611 0001:002ABC43 + 612 0001:002ABC69 617 0001:002ABCC8 618 0001:002ABCF3 619 0001:002ABD05 + 621 0001:002ABD07 622 0001:002ABD24 623 0001:002ABD5E 624 0001:002ABD7C + 625 0001:002ABD9A 626 0001:002ABDB0 627 0001:002ABDCE 628 0001:002ABDEC + 629 0001:002ABE50 630 0001:002ABE6E 631 0001:002ABE90 632 0001:002ABEC0 + 633 0001:002ABEE0 634 0001:002ABEFE 635 0001:002ABF1C 636 0001:002ABF41 + 637 0001:002ABF57 638 0001:002ABF75 640 0001:002ABF9B 641 0001:002ABFC1 + 644 0001:002AC044 644 0001:002AC04B + +Line numbers for fNotes(fNotes.pas) segment .text + + 419 0001:002AD584 420 0001:002AD590 421 0001:002AD59E 422 0001:002AD5AC + 423 0001:002AD5BA 425 0001:002AD5CE 427 0001:002AD5ED 428 0001:002AD5FA + 431 0001:002AD600 433 0001:002AD611 434 0001:002AD61B 435 0001:002AD629 + 439 0001:002AD63A 440 0001:002AD644 442 0001:002AD663 443 0001:002AD670 + 446 0001:002AD676 448 0001:002AD687 449 0001:002AD691 450 0001:002AD69F + 454 0001:002AD6AE 455 0001:002AD6BA 457 0001:002AD6D9 458 0001:002AD6EB + 460 0001:002AD6FD 461 0001:002AD70D 464 0001:002AD713 465 0001:002AD72E + 468 0001:002AD739 469 0001:002AD747 471 0001:002AD75B 473 0001:002AD77A + 474 0001:002AD78A 477 0001:002AD790 479 0001:002AD7A1 480 0001:002AD7AB + 481 0001:002AD7B9 485 0001:002AD7CA 492 0001:002AD910 494 0001:002AD930 + 495 0001:002AD93D 496 0001:002AD959 497 0001:002AD975 499 0001:002AD981 + 500 0001:002AD98C 501 0001:002AD996 502 0001:002AD99E 504 0001:002AD9D0 + 505 0001:002AD9E2 506 0001:002ADA00 507 0001:002ADA06 508 0001:002ADA67 + 512 0001:002ADA6C 513 0001:002ADA73 514 0001:002ADA7B 515 0001:002ADA83 + 516 0001:002ADA8A 517 0001:002ADA9E 518 0001:002ADAAC 519 0001:002ADAC0 + 520 0001:002ADAD4 521 0001:002ADAE8 522 0001:002ADAEF 523 0001:002ADB00 + 524 0001:002ADB11 525 0001:002ADB22 526 0001:002ADB2C 527 0001:002ADB36 + 528 0001:002ADB40 532 0001:002ADB44 533 0001:002ADB65 534 0001:002ADB6D + 535 0001:002ADB82 536 0001:002ADB96 537 0001:002ADBAA 538 0001:002ADBBE + 539 0001:002ADBD2 541 0001:002ADBE2 542 0001:002ADBEA 543 0001:002ADC08 + 544 0001:002ADC24 545 0001:002ADC39 546 0001:002ADC53 547 0001:002ADC6D + 548 0001:002ADC89 551 0001:002ADC9C 553 0001:002ADCB4 555 0001:002ADCC5 + 556 0001:002ADCD6 558 0001:002ADCE2 560 0001:002ADCF5 562 0001:002ADD20 + 567 0001:002ADD24 568 0001:002ADD44 570 0001:002ADD50 573 0001:002ADD66 + 574 0001:002ADD71 576 0001:002ADD7B 578 0001:002ADDCF 579 0001:002ADDF2 + 582 0001:002ADE3B 589 0001:002ADEE8 590 0001:002ADF0E 592 0001:002ADF1A + 594 0001:002ADF3B 596 0001:002ADF4E 597 0001:002ADF8D 599 0001:002ADFBF + 600 0001:002ADFDC 603 0001:002ADFFD 592 0001:002AE000 605 0001:002AE02B + 609 0001:002AE0D8 610 0001:002AE0E4 611 0001:002AE0EF 612 0001:002AE0FF + 613 0001:002AE112 617 0001:002AE118 619 0001:002AE124 620 0001:002AE133 + 626 0001:002AE138 628 0001:002AE141 630 0001:002AE14C 631 0001:002AE153 + 632 0001:002AE15B 633 0001:002AE166 634 0001:002AE171 635 0001:002AE182 + 636 0001:002AE18D 637 0001:002AE19E 638 0001:002AE1A9 639 0001:002AE1B4 + 640 0001:002AE1BC 641 0001:002AE1C7 642 0001:002AE1CF 643 0001:002AE1DA + 644 0001:002AE1E5 645 0001:002AE1EC 647 0001:002AE1F4 648 0001:002AE1FF + 649 0001:002AE20A 652 0001:002AE217 653 0001:002AE227 654 0001:002AE244 + 656 0001:002AE254 658 0001:002AE25E 659 0001:002AE269 660 0001:002AE273 + 663 0001:002AE278 664 0001:002AE284 665 0001:002AE295 666 0001:002AE2A6 + 667 0001:002AE2AC 668 0001:002AE2D2 669 0001:002AE2E0 679 0001:002AE2E4 + 680 0001:002AE312 681 0001:002AE323 685 0001:002AE349 686 0001:002AE362 + 687 0001:002AE37C 688 0001:002AE38B 689 0001:002AE399 690 0001:002AE3A7 + 692 0001:002AE3D0 694 0001:002AE3E0 695 0001:002AE3EA 696 0001:002AE422 + 697 0001:002AE437 698 0001:002AE452 700 0001:002AE465 702 0001:002AE46E + 703 0001:002AE477 705 0001:002AE481 706 0001:002AE489 710 0001:002AE493 + 711 0001:002AE49B 713 0001:002AE4A3 717 0001:002AE4BB 718 0001:002AE4C5 + 719 0001:002AE4DD 720 0001:002AE4EE 721 0001:002AE4FE 723 0001:002AE508 + 726 0001:002AE512 727 0001:002AE55F 728 0001:002AE572 729 0001:002AE58B + 730 0001:002AE5A5 731 0001:002AE5B4 732 0001:002AE5C2 733 0001:002AE5D6 + 735 0001:002AE5FF 737 0001:002AE60F 738 0001:002AE630 739 0001:002AE645 + 740 0001:002AE660 742 0001:002AE673 745 0001:002AE67C 747 0001:002AE6B6 + 753 0001:002AE72C 754 0001:002AE758 755 0001:002AE764 758 0001:002AE875 + 764 0001:002AE8A8 765 0001:002AE8B1 766 0001:002AE8B5 768 0001:002AE8C0 + 769 0001:002AE8CD 770 0001:002AE8E4 771 0001:002AE8F9 772 0001:002AE915 + 773 0001:002AE931 774 0001:002AE95C 776 0001:002AE964 779 0001:002AE995 + 780 0001:002AE9B1 783 0001:002AE9E9 792 0001:002AE9F4 793 0001:002AEA10 + 795 0001:002AEA1C 796 0001:002AEA29 798 0001:002AEA54 799 0001:002AEA82 + 803 0001:002AEAB4 804 0001:002AEAC0 806 0001:002AEAC6 807 0001:002AEAD6 + 808 0001:002AEAE6 811 0001:002AEB11 812 0001:002AEB21 813 0001:002AEB31 + 815 0001:002AEB5A 821 0001:002AEB60 824 0001:002AEB7F 825 0001:002AEB83 + 826 0001:002AEB9E 828 0001:002AEBC8 829 0001:002AEBD9 830 0001:002AEBDD + 832 0001:002AEBDF 833 0001:002AEBEB 834 0001:002AEC01 835 0001:002AEC34 + 842 0001:002AECA0 843 0001:002AECBD 844 0001:002AECC1 845 0001:002AECC6 + 847 0001:002AECDC 848 0001:002AECED 849 0001:002AECF1 851 0001:002AECF6 + 853 0001:002AED20 855 0001:002AED34 856 0001:002AED4A 857 0001:002AED6A + 860 0001:002AED78 862 0001:002AED7E 863 0001:002AED8C 865 0001:002AED92 + 867 0001:002AED96 869 0001:002AED9C 870 0001:002AEDAA 872 0001:002AEDB7 + 875 0001:002AEDEB 880 0001:002AEE78 887 0001:002AEE97 888 0001:002AEEA8 + 889 0001:002AEEAE 890 0001:002AEEC9 891 0001:002AEED7 892 0001:002AEF01 + 895 0001:002AEF08 896 0001:002AEF14 897 0001:002AEF18 898 0001:002AEF24 + 900 0001:002AEF45 901 0001:002AEF49 903 0001:002AEF4B 904 0001:002AEF7A + 916 0001:002AEF94 917 0001:002AEFCE 919 0001:002AEFE2 920 0001:002AEFEE + 921 0001:002AEFF2 922 0001:002AEFF7 923 0001:002AF005 924 0001:002AF00D + 925 0001:002AF021 927 0001:002AF02C 928 0001:002AF035 929 0001:002AF03C + 930 0001:002AF047 931 0001:002AF05D 933 0001:002AF075 934 0001:002AF07D + 936 0001:002AF088 938 0001:002AF097 939 0001:002AF09F 941 0001:002AF0AA + 942 0001:002AF0B6 943 0001:002AF0CD 944 0001:002AF0E3 945 0001:002AF0F3 + 946 0001:002AF110 947 0001:002AF127 948 0001:002AF12D 950 0001:002AF138 + 954 0001:002AF140 955 0001:002AF145 956 0001:002AF167 957 0001:002AF18F + 959 0001:002AF193 960 0001:002AF1CA 963 0001:002AF1D4 964 0001:002AF1E0 + 965 0001:002AF1FA 966 0001:002AF20F 968 0001:002AF222 969 0001:002AF233 + 970 0001:002AF23E 971 0001:002AF252 975 0001:002AF25C 977 0001:002AF267 + 981 0001:002AF31D 982 0001:002AF329 983 0001:002AF389 986 0001:002AF393 + 987 0001:002AF3AB 988 0001:002AF3B2 989 0001:002AF3C6 991 0001:002AF3D0 + 992 0001:002AF40B 993 0001:002AF418 994 0001:002AF425 995 0001:002AF456 + 996 0001:002AF463 1000 0001:002AF475 1002 0001:002AF4B2 1003 0001:002AF4BF + 1004 0001:002AF4C9 1005 0001:002AF4FA 1006 0001:002AF507 1008 0001:002AF514 + 1009 0001:002AF521 1010 0001:002AF52C 1011 0001:002AF53D 1012 0001:002AF551 + 1013 0001:002AF558 1014 0001:002AF59A 1015 0001:002AF5AD 1016 0001:002AF5B7 + 1017 0001:002AF5C6 1018 0001:002AF5CC 1019 0001:002AF5DB 1020 0001:002AF5EC + 1021 0001:002AF5F6 1022 0001:002AF601 1023 0001:002AF60C 1024 0001:002AF61F + 1028 0001:002AF654 1029 0001:002AF68C 1030 0001:002AF69B 1033 0001:002AF69F + 1035 0001:002AF6A5 1036 0001:002AF6AD 1039 0001:002AF6C4 1041 0001:002AF6CE + 1042 0001:002AF6F3 1043 0001:002AF72E 1044 0001:002AF745 1045 0001:002AF750 + 1047 0001:002AF758 1048 0001:002AF75E 1050 0001:002AF779 1051 0001:002AF7D3 + 1063 0001:002AF8D8 1064 0001:002AF907 1065 0001:002AF90F 1067 0001:002AF91A + 1068 0001:002AF923 1069 0001:002AF92A 1070 0001:002AF945 1071 0001:002AF98F + 1072 0001:002AF9D3 1073 0001:002AF9DF 1074 0001:002AF9F5 1075 0001:002AFA0B + 1076 0001:002AFA21 1078 0001:002AFA43 1079 0001:002AFA67 1080 0001:002AFA8D + 1082 0001:002AFAB1 1088 0001:002AFAC5 1089 0001:002AFAD1 1090 0001:002AFAF0 + 1092 0001:002AFAF4 1093 0001:002AFAFA 1094 0001:002AFB05 1095 0001:002AFB31 + 1097 0001:002AFB3B 1098 0001:002AFB55 1099 0001:002AFB6E 1100 0001:002AFB7F + 1101 0001:002AFBA9 1102 0001:002AFBC3 1103 0001:002AFBDD 1104 0001:002AFBE8 + 1105 0001:002AFBFC 1107 0001:002AFC06 1109 0001:002AFC11 1114 0001:002AFCC9 + 1115 0001:002AFCE1 1116 0001:002AFCE8 1117 0001:002AFCFC 1119 0001:002AFD39 + 1120 0001:002AFD46 1121 0001:002AFD50 1122 0001:002AFD81 1124 0001:002AFD8C + 1125 0001:002AFD99 1126 0001:002AFDA6 1127 0001:002AFDB7 1128 0001:002AFDCB + 1129 0001:002AFDD2 1130 0001:002AFE08 1131 0001:002AFE1B 1132 0001:002AFE25 + 1133 0001:002AFE34 1134 0001:002AFE3F 1135 0001:002AFE4A 1136 0001:002AFE69 + 1140 0001:002AFE7C 1141 0001:002AFEB4 1142 0001:002AFEC3 1145 0001:002AFEC7 + 1146 0001:002AFF0D 1153 0001:002AFFF4 1154 0001:002B0016 1155 0001:002B001E + 1156 0001:002B003E 1157 0001:002B0059 1158 0001:002B00A7 1159 0001:002B00C4 + 1160 0001:002B00E1 1161 0001:002B00EB 1163 0001:002B00FB 1164 0001:002B0108 + 1165 0001:002B0154 1166 0001:002B01A0 1167 0001:002B01CD 1170 0001:002B01DF + 1171 0001:002B01E6 1173 0001:002B01FA 1174 0001:002B0219 1176 0001:002B021F + 1178 0001:002B025C 1181 0001:002B026B 1182 0001:002B0273 1183 0001:002B029C + 1184 0001:002B02A6 1185 0001:002B02D7 1186 0001:002B02E2 1187 0001:002B030F + 1189 0001:002B031E 1190 0001:002B032B 1191 0001:002B0339 1192 0001:002B034A + 1193 0001:002B035E 1195 0001:002B0365 1196 0001:002B03B2 1197 0001:002B03D2 + 1198 0001:002B03E5 1199 0001:002B03FC 1200 0001:002B040B 1201 0001:002B0416 + 1202 0001:002B0421 1203 0001:002B0440 1204 0001:002B0488 1211 0001:002B0524 + 1212 0001:002B0556 1213 0001:002B055C 1215 0001:002B058F 1216 0001:002B05A9 + 1217 0001:002B05C5 1218 0001:002B05CC 1219 0001:002B0609 1220 0001:002B0610 + 1221 0001:002B062B 1226 0001:002B067A 1227 0001:002B0684 1228 0001:002B068F + 1229 0001:002B0695 1232 0001:002B06A4 1233 0001:002B06AE 1236 0001:002B06B3 + 1238 0001:002B06CB 1239 0001:002B06EC 1240 0001:002B06FF 1241 0001:002B070F + 1242 0001:002B071D 1244 0001:002B0754 1247 0001:002B076C 1249 0001:002B0772 + 1251 0001:002B078E 1252 0001:002B0799 1254 0001:002B07A4 1255 0001:002B07AF + 1256 0001:002B07B5 1257 0001:002B07BF 1260 0001:002B07CB 1261 0001:002B07D7 + 1263 0001:002B0855 1267 0001:002B0A9C 1268 0001:002B0AA8 1269 0001:002B0AB4 + 1270 0001:002B0ABF 1275 0001:002B0AC4 1276 0001:002B0AD0 1277 0001:002B0ADB + 1278 0001:002B0AE8 1279 0001:002B0AFD 1280 0001:002B0B12 1281 0001:002B0B27 + 1282 0001:002B0B32 1283 0001:002B0B49 1284 0001:002B0B56 1285 0001:002B0B63 + 1286 0001:002B0B8D 1287 0001:002B0B99 1288 0001:002B0BAC 1289 0001:002B0BC0 + 1290 0001:002B0BD3 1291 0001:002B0BE2 1292 0001:002B0BFA 1293 0001:002B0C12 + 1294 0001:002B0C2A 1295 0001:002B0C42 1296 0001:002B0C57 1297 0001:002B0C6C + 1298 0001:002B0C7F 1302 0001:002B0C88 1304 0001:002B0C94 1305 0001:002B0CA2 + 1306 0001:002B0CB3 1311 0001:002B0CB8 1313 0001:002B0CD7 1316 0001:002B0CEA + 1317 0001:002B0CF6 1319 0001:002B0D42 1320 0001:002B0D6C 1321 0001:002B0DB9 + 1327 0001:002B0DC0 1329 0001:002B0DE5 1330 0001:002B0E03 1332 0001:002B0E1D + 1333 0001:002B0E2D 1334 0001:002B0E3D 1335 0001:002B0E4D 1336 0001:002B0E65 + 1338 0001:002B0E77 1339 0001:002B0E87 1340 0001:002B0E97 1343 0001:002B0EA1 + 1344 0001:002B0EAB 1345 0001:002B0EBB 1346 0001:002B0ECB 1347 0001:002B0EDB + 1348 0001:002B0EE0 1352 0001:002B1058 1353 0001:002B107A 1354 0001:002B1098 + 1355 0001:002B10AB 1356 0001:002B10BB 1357 0001:002B10CB 1358 0001:002B10DB + 1359 0001:002B10EB 1360 0001:002B10F9 1362 0001:002B1100 1363 0001:002B110A + 1364 0001:002B1116 1365 0001:002B111E 1366 0001:002B112C 1367 0001:002B113D + 1368 0001:002B114E 1369 0001:002B11D6 1373 0001:002B1270 1375 0001:002B127C + 1376 0001:002B1287 1386 0001:002B128C 1387 0001:002B128F 1389 0001:002B12A2 + 1390 0001:002B12AA 1391 0001:002B12C1 1393 0001:002B12E5 1394 0001:002B12FB + 1396 0001:002B1304 1397 0001:002B1314 1400 0001:002B1320 1404 0001:002B1333 + 1405 0001:002B133F 1407 0001:002B1346 1408 0001:002B135F 1409 0001:002B136A + 1411 0001:002B137C 1413 0001:002B13A4 1414 0001:002B13B4 1417 0001:002B13D0 + 1418 0001:002B13DF 1419 0001:002B13ED 1420 0001:002B13FA 1421 0001:002B1401 + 1423 0001:002B141C 1428 0001:002B142C 1429 0001:002B1433 1430 0001:002B143F + 1431 0001:002B1472 1436 0001:002B1478 1438 0001:002B1484 1439 0001:002B14AC + 1440 0001:002B14B7 1449 0001:002B14BC 1450 0001:002B14CF 1451 0001:002B1513 + 1452 0001:002B1530 1453 0001:002B1541 1454 0001:002B156B 1456 0001:002B1580 + 1458 0001:002B15A3 1459 0001:002B15D3 1460 0001:002B15E2 1461 0001:002B15F0 + 1462 0001:002B1609 1463 0001:002B161A 1466 0001:002B164E 1467 0001:002B167A + 1469 0001:002B168C 1472 0001:002B169F 1473 0001:002B16D4 1474 0001:002B16EB + 1476 0001:002B16F8 1481 0001:002B1701 1482 0001:002B170F 1485 0001:002B1722 + 1487 0001:002B1728 1488 0001:002B1740 1492 0001:002B1761 1494 0001:002B17A3 + 1502 0001:002B188C 1504 0001:002B18B0 1505 0001:002B18CE 1506 0001:002B18DA + 1507 0001:002B18E4 1508 0001:002B18EC 1509 0001:002B1901 1510 0001:002B190E + 1511 0001:002B1923 1512 0001:002B1930 1513 0001:002B193E 1517 0001:002B1991 + 1518 0001:002B19B9 1519 0001:002B19E9 1520 0001:002B19ED 1522 0001:002B19F7 + 1523 0001:002B1A28 1524 0001:002B1A6C 1525 0001:002B1A9E 1526 0001:002B1ADD + 1527 0001:002B1B0A 1528 0001:002B1B21 1529 0001:002B1B48 1530 0001:002B1B85 + 1531 0001:002B1B96 1532 0001:002B1BA8 1533 0001:002B1BD1 1534 0001:002B1BE1 + 1536 0001:002B1BF2 1537 0001:002B1C32 1538 0001:002B1C66 1539 0001:002B1C98 + 1540 0001:002B1CB7 1541 0001:002B1CDB 1542 0001:002B1D06 1543 0001:002B1D29 + 1544 0001:002B1D3F 1545 0001:002B1D5E 1546 0001:002B1DB8 1548 0001:002B1DC3 + 1551 0001:002B1DE0 1553 0001:002B1DFB 1554 0001:002B1E0C 1558 0001:002B1E17 + 1559 0001:002B1E36 1563 0001:002B1E4C 1564 0001:002B1E5C 1565 0001:002B1EFA + 1568 0001:002B1F04 1569 0001:002B1FC4 1572 0001:002B224C 1574 0001:002B2258 + 1575 0001:002B2262 1579 0001:002B2268 1581 0001:002B2274 1582 0001:002B22A1 + 1583 0001:002B22CA 1584 0001:002B22F0 1589 0001:002B22F4 1590 0001:002B2316 + 1592 0001:002B2336 1594 0001:002B2340 1595 0001:002B2350 1596 0001:002B235E + 1598 0001:002B239E 1600 0001:002B23B6 1601 0001:002B23C0 1603 0001:002B23C7 + 1604 0001:002B23CD 1606 0001:002B241A 1609 0001:002B2608 1611 0001:002B2614 + 1612 0001:002B2621 1623 0001:002B2628 1626 0001:002B2675 1628 0001:002B2681 + 1629 0001:002B268C 1631 0001:002B2696 1632 0001:002B26B7 1633 0001:002B26C7 + 1634 0001:002B26D1 1635 0001:002B26F0 1636 0001:002B2708 1637 0001:002B270F + 1639 0001:002B2744 1640 0001:002B2758 1641 0001:002B2790 1642 0001:002B27AD + 1643 0001:002B27BB 1646 0001:002B27C8 1647 0001:002B27DC 1648 0001:002B27EF + 1649 0001:002B280C 1652 0001:002B2819 1653 0001:002B282D 1654 0001:002B2840 + 1655 0001:002B285D 1659 0001:002B286A 1660 0001:002B2871 1661 0001:002B288D + 1664 0001:002B2897 1665 0001:002B28A3 1666 0001:002B28C4 1667 0001:002B28F0 + 1668 0001:002B2900 1674 0001:002B290D 1675 0001:002B2921 1676 0001:002B2934 + 1677 0001:002B2957 1680 0001:002B2964 1681 0001:002B2980 1683 0001:002B298A + 1684 0001:002B299E 1685 0001:002B29C5 1686 0001:002B29E8 1687 0001:002B29FD + 1688 0001:002B2A09 1692 0001:002B2A16 1693 0001:002B2A32 1695 0001:002B2A3C + 1696 0001:002B2A50 1698 0001:002B2AB6 1699 0001:002B2AC6 1700 0001:002B2AD6 + 1701 0001:002B2AEB 1702 0001:002B2B00 1703 0001:002B2B0C 1704 0001:002B2B2F + 1708 0001:002B2B3C 1710 0001:002B2B4E 1713 0001:002B2B6E 1717 0001:002B2B7B + 1718 0001:002B2B8E 1719 0001:002B2BA1 1720 0001:002B2BBC 1721 0001:002B2BD7 + 1722 0001:002B2BEA 1723 0001:002B2C05 1724 0001:002B2C13 1726 0001:002B2C21 + 1727 0001:002B2C34 1728 0001:002B2C42 1729 0001:002B2C55 1730 0001:002B2C63 + 1731 0001:002B2C76 1732 0001:002B2C89 1733 0001:002B2C97 1737 0001:002B2C9F + 1739 0001:002B2CCA 1740 0001:002B2CD6 1741 0001:002B2D27 1742 0001:002B2D30 + 1744 0001:002B2D67 1746 0001:002B2D73 1747 0001:002B2DA0 1748 0001:002B2DC8 + 1749 0001:002B2E6C 1758 0001:002B2FB0 1759 0001:002B2FD5 1760 0001:002B2FDF + 1761 0001:002B2FE3 1762 0001:002B2FF3 1764 0001:002B3003 1765 0001:002B300D + 1767 0001:002B3024 1768 0001:002B3068 1771 0001:002B307A 1772 0001:002B30BE + 1775 0001:002B30D0 1776 0001:002B3114 1780 0001:002B3123 1781 0001:002B3167 + 1784 0001:002B3174 1786 0001:002B3188 1787 0001:002B318C 1791 0001:002B3198 + 1792 0001:002B31A3 1793 0001:002B31B7 1796 0001:002B31C1 1797 0001:002B320C + 1803 0001:002B33D8 1805 0001:002B33E4 1808 0001:002B33F5 1810 0001:002B3405 + 1811 0001:002B341E 1813 0001:002B342A 1815 0001:002B343A 1816 0001:002B344D + 1817 0001:002B3457 1819 0001:002B3459 1820 0001:002B3465 1828 0001:002B34D8 + 1830 0001:002B34F7 1831 0001:002B3508 1833 0001:002B351D 1835 0001:002B355A + 1837 0001:002B356A 1838 0001:002B3583 1840 0001:002B358F 1842 0001:002B359F + 1843 0001:002B35B2 1845 0001:002B35B4 1846 0001:002B35DE 1853 0001:002B3650 + 1855 0001:002B3689 1856 0001:002B36AC 1857 0001:002B36C8 1859 0001:002B36DD + 1860 0001:002B3714 1862 0001:002B3730 1863 0001:002B3741 1865 0001:002B3743 + 1866 0001:002B3760 1868 0001:002B3766 1869 0001:002B3775 1871 0001:002B3777 + 1873 0001:002B379D 1874 0001:002B37AE 1876 0001:002B37B0 1877 0001:002B37EB + 1884 0001:002B38F8 1885 0001:002B391C 1886 0001:002B3938 1887 0001:002B3954 + 1889 0001:002B3960 1890 0001:002B396B 1891 0001:002B3975 1892 0001:002B397D + 1894 0001:002B39AF 1896 0001:002B39CE 1897 0001:002B39F5 1898 0001:002B3A1C + 1899 0001:002B3A2B 1901 0001:002B3A30 1905 0001:002B3AA1 1906 0001:002B3ABC + 1907 0001:002B3ADC 1909 0001:002B3AEB 1910 0001:002B3AF3 1911 0001:002B3B25 + 1915 0001:002B3B4E 1916 0001:002B3B75 1917 0001:002B3B9C 1919 0001:002B3BEA + 1929 0001:002B3CBC 1931 0001:002B3CEE 1932 0001:002B3D0A 1933 0001:002B3D2A + 1935 0001:002B3D41 1936 0001:002B3D54 1938 0001:002B3D59 1940 0001:002B3D8E + 1942 0001:002B3DA5 1943 0001:002B3DB2 1946 0001:002B3DC1 1947 0001:002B3DCE + 1949 0001:002B3DDB 1950 0001:002B3DF6 1952 0001:002B3DFC 1953 0001:002B3E0B + 1955 0001:002B3E0D 1956 0001:002B3E25 1957 0001:002B3EC2 1960 0001:002B4054 + 1961 0001:002B4080 1963 0001:002B4090 1964 0001:002B40A1 1965 0001:002B40C5 + 1966 0001:002B40E9 1967 0001:002B410D 1968 0001:002B4131 1969 0001:002B4155 + 1970 0001:002B4179 1971 0001:002B419D 1972 0001:002B41C1 1973 0001:002B4207 + 1982 0001:002B427C 1984 0001:002B42BC 1985 0001:002B42D8 1986 0001:002B42F5 + 1987 0001:002B430F 1988 0001:002B4325 1990 0001:002B4338 1993 0001:002B439B + 1995 0001:002B43BB 1996 0001:002B43D2 1997 0001:002B43E3 1998 0001:002B43FF + 1999 0001:002B4410 2001 0001:002B4456 2002 0001:002B4461 2004 0001:002B446B + 2005 0001:002B4476 2013 0001:002B4480 2014 0001:002B4484 2015 0001:002B448F + 2016 0001:002B44AF 2017 0001:002B44BA 2018 0001:002B44CB 2019 0001:002B4500 + 2020 0001:002B4523 2021 0001:002B4537 2023 0001:002B4546 2025 0001:002B454C + 2026 0001:002B4554 2028 0001:002B455C 2032 0001:002B4564 2033 0001:002B4574 + 2034 0001:002B4584 2035 0001:002B4589 2036 0001:002B4593 2037 0001:002B45AB + 2040 0001:002B45B7 2041 0001:002B461A 2048 0001:002B47B4 2050 0001:002B47ED + 2051 0001:002B480D 2052 0001:002B4829 2054 0001:002B483A 2055 0001:002B4871 + 2056 0001:002B488E 2058 0001:002B4894 2059 0001:002B48A3 2061 0001:002B48A5 + 2062 0001:002B48E0 2069 0001:002B491C 2071 0001:002B493F 2073 0001:002B494F + 2074 0001:002B4981 2075 0001:002B4991 2076 0001:002B499C 2079 0001:002B49BA + 2080 0001:002B49C2 2083 0001:002B49F6 2084 0001:002B4A2E 2099 0001:002B4A84 + 2109 0001:002B4AC5 2110 0001:002B4AE1 2111 0001:002B4AF1 2113 0001:002B4B0D + 2114 0001:002B4B18 2116 0001:002B4B34 2118 0001:002B4B40 2119 0001:002B4B5F + 2121 0001:002B4B72 2123 0001:002B4B89 2124 0001:002B4B9C 2126 0001:002B4BA1 + 2128 0001:002B4BD6 2130 0001:002B4BED 2131 0001:002B4BFA 2134 0001:002B4C09 + 2135 0001:002B4C16 2137 0001:002B4C23 2139 0001:002B4C43 2140 0001:002B4C47 + 2141 0001:002B4C62 2143 0001:002B4C6C 2144 0001:002B4C89 2145 0001:002B4C9D + 2147 0001:002B4CA8 2148 0001:002B4CB8 2149 0001:002B4CC1 2151 0001:002B4CCC + 2153 0001:002B4CE3 2156 0001:002B4D2B 2158 0001:002B4D35 2159 0001:002B4D85 + 2161 0001:002B4D95 2162 0001:002B4DB0 2163 0001:002B4DCA 2164 0001:002B4DFD + 2165 0001:002B4E33 2167 0001:002B4E39 2168 0001:002B4E54 2170 0001:002B4E61 + 2173 0001:002B4E72 2176 0001:002B4EB3 2177 0001:002B4EC2 2178 0001:002B4EDD + 2180 0001:002B4EF7 2182 0001:002B4EFF 2184 0001:002B4F09 2185 0001:002B4F21 + 2187 0001:002B4F5E 2188 0001:002B4F6B 2189 0001:002B4F75 2190 0001:002B4FAC + 2191 0001:002B4FB7 2192 0001:002B4FCD 2195 0001:002B4FE8 2197 0001:002B4FF4 + 2198 0001:002B5020 2199 0001:002B502C 2201 0001:002B5043 2203 0001:002B50FF + 2217 0001:002B5338 2218 0001:002B537D 2219 0001:002B5384 2220 0001:002B5391 + 2221 0001:002B539B 2222 0001:002B53C1 2224 0001:002B540E 2225 0001:002B5414 + 2226 0001:002B5416 2222 0001:002B5419 2227 0001:002B541E 2229 0001:002B5432 + 2230 0001:002B543D 2231 0001:002B5447 2233 0001:002B5453 2234 0001:002B545D + 2236 0001:002B5462 2239 0001:002B5479 2241 0001:002B5489 2243 0001:002B5495 + 2244 0001:002B54A2 2247 0001:002B54B1 2248 0001:002B54BE 2250 0001:002B54CB + 2251 0001:002B54D9 2253 0001:002B54DF 2254 0001:002B54EE 2256 0001:002B54F4 + 2258 0001:002B5500 2259 0001:002B5513 2261 0001:002B5519 2263 0001:002B5540 + 2264 0001:002B5546 2265 0001:002B554A 2267 0001:002B5554 2268 0001:002B5570 + 2270 0001:002B557A 2271 0001:002B557F 2272 0001:002B558D 2273 0001:002B55A1 + 2275 0001:002B55B2 2276 0001:002B55C2 2277 0001:002B55CB 2280 0001:002B55D8 + 2281 0001:002B55E2 2284 0001:002B55E8 2285 0001:002B55F6 2290 0001:002B560B + 2291 0001:002B561B 2293 0001:002B5641 2294 0001:002B5649 2296 0001:002B56C3 + 2299 0001:002B5870 2301 0001:002B587C 2302 0001:002B589C 2303 0001:002B58B8 + 2304 0001:002B58C3 2306 0001:002B58D3 2307 0001:002B58F7 2308 0001:002B5911 + 2310 0001:002B5949 2311 0001:002B597A 2314 0001:002B599D 2315 0001:002B59AD + 2316 0001:002B59BD 2317 0001:002B59CD 2319 0001:002B59DD 2321 0001:002B59F0 + 2322 0001:002B5A00 2323 0001:002B5A10 2324 0001:002B5A20 2325 0001:002B5A41 + 2326 0001:002B5A77 2329 0001:002B5AAF 2330 0001:002B5ABF 2331 0001:002B5ACF + 2332 0001:002B5ADF 2333 0001:002B5AEF 2334 0001:002B5AFF 2336 0001:002B5B0F + 2339 0001:002B5B14 2341 0001:002B5B20 2342 0001:002B5B2E 2345 0001:002B5B34 + 2347 0001:002B5B40 2348 0001:002B5B4E 2351 0001:002B5B54 2353 0001:002B5B73 + 2354 0001:002B5B91 2356 0001:002B5BBB 2359 0001:002B5BC0 2361 0001:002B5BCC + 2362 0001:002B5BE1 2363 0001:002B5BEF 2366 0001:002B5BF4 2368 0001:002B5C00 + 2369 0001:002B5C0A 2370 0001:002B5C17 2376 0001:002B5C1C 2378 0001:002B5C28 + 2379 0001:002B5C48 2381 0001:002B5C54 2382 0001:002B5C8E 2383 0001:002B5C98 + 2394 0001:002B5CA6 2396 0001:002B5CAE 2399 0001:002B5CB8 2400 0001:002B5CC4 + 2401 0001:002B5CE5 2404 0001:002B5CEC 2406 0001:002B5CF8 2407 0001:002B5D18 + 2409 0001:002B5D24 2410 0001:002B5D5E 2411 0001:002B5D68 2412 0001:002B5D72 + 2413 0001:002B5D80 2415 0001:002B5D88 2418 0001:002B5D90 2420 0001:002B5D9C + 2421 0001:002B5DBD 2424 0001:002B5DC4 2426 0001:002B5DD0 2427 0001:002B5DF1 + 2430 0001:002B5DF8 2432 0001:002B5E04 2433 0001:002B5E0E 2434 0001:002B5E1E + 2435 0001:002B5E2C 2437 0001:002B5E47 2438 0001:002B5E51 2439 0001:002B5E5B + 2441 0001:002B5E73 2444 0001:002B5E78 2446 0001:002B5E84 2447 0001:002B5E8E + 2448 0001:002B5E9E 2449 0001:002B5EAC 2451 0001:002B5EC7 2452 0001:002B5ED1 + 2453 0001:002B5EDB 2455 0001:002B5EF3 2458 0001:002B5EF8 2460 0001:002B5F04 + 2461 0001:002B5F27 2462 0001:002B5F44 2464 0001:002B5F53 2465 0001:002B5F5D + 2466 0001:002B5F6D 2467 0001:002B5F91 2468 0001:002B5F9F 2469 0001:002B5FA6 + 2470 0001:002B5FB9 2473 0001:002B5FCC 2474 0001:002B5FD7 2475 0001:002B5FF4 + 2483 0001:002B6024 2484 0001:002B6055 2485 0001:002B6063 2487 0001:002B6087 + 2488 0001:002B6091 2491 0001:002B60B0 2492 0001:002B60CD 2494 0001:002B60DC + 2495 0001:002B60EA 2497 0001:002B60F0 2498 0001:002B60FD 2503 0001:002B6133 + 2514 0001:002B6138 2516 0001:002B617B 2517 0001:002B6197 2518 0001:002B61B3 + 2520 0001:002B61CF 2521 0001:002B61DA 2522 0001:002B61E4 2523 0001:002B61EC + 2525 0001:002B621E 2526 0001:002B6234 2527 0001:002B6251 2528 0001:002B6257 + 2530 0001:002B6263 2533 0001:002B629C 2535 0001:002B62A3 2537 0001:002B62A5 + 2538 0001:002B62BA 2541 0001:002B62CB 2542 0001:002B62DA 2545 0001:002B62DF + 2546 0001:002B62FF 2547 0001:002B6315 2548 0001:002B635D 2551 0001:002B6390 + 2552 0001:002B63A1 2553 0001:002B63C5 2554 0001:002B63DD 2555 0001:002B63FE + 2557 0001:002B6404 2558 0001:002B6416 2559 0001:002B642C 2562 0001:002B6445 + 2564 0001:002B6450 2565 0001:002B6465 2566 0001:002B64BF 2569 0001:002B6540 + 2571 0001:002B654C 2572 0001:002B6557 2580 0001:002B655C 2581 0001:002B657C + 2583 0001:002B6588 2584 0001:002B6593 2586 0001:002B659D 2587 0001:002B65BD + 2588 0001:002B65DD 2589 0001:002B65E8 2590 0001:002B65F8 2593 0001:002B6606 + 2594 0001:002B6615 2596 0001:002B6636 2597 0001:002B6647 2599 0001:002B664C + 2600 0001:002B6653 2601 0001:002B6667 2602 0001:002B6678 2603 0001:002B6686 + 2604 0001:002B669A 2605 0001:002B66B0 2606 0001:002B66BD 2607 0001:002B66F4 + 2608 0001:002B6701 2609 0001:002B670B 2610 0001:002B6716 2611 0001:002B673A + 2612 0001:002B6745 2613 0001:002B675B 2614 0001:002B676C 2615 0001:002B6780 + 2616 0001:002B6787 2617 0001:002B67A2 2620 0001:002B67AE 2621 0001:002B6801 + 2622 0001:002B687E 2627 0001:002B69C4 2628 0001:002B69F7 2630 0001:002B6A03 + 2631 0001:002B6A0E 2633 0001:002B6A18 2634 0001:002B6A2E 2635 0001:002B6A39 + 2636 0001:002B6A49 2637 0001:002B6A57 2639 0001:002B6A67 2640 0001:002B6A7A + 2641 0001:002B6A8D 2642 0001:002B6AA8 2643 0001:002B6AC3 2644 0001:002B6AD6 + 2645 0001:002B6AF1 2646 0001:002B6AFF 2647 0001:002B6B0D 2648 0001:002B6B20 + 2649 0001:002B6B33 2650 0001:002B6B41 2651 0001:002B6B4F 2652 0001:002B6B62 + 2653 0001:002B6B75 2654 0001:002B6B83 2655 0001:002B6B8A 2659 0001:002B6B97 + 2660 0001:002B6B9E 2662 0001:002B6BCC 2673 0001:002B6BD4 2675 0001:002B6BE0 + 2676 0001:002B6BEC 2678 0001:002B6C04 2679 0001:002B6C15 2681 0001:002B6C17 + 2683 0001:002B6C2F 2684 0001:002B6C3C 2687 0001:002B6C58 2690 0001:002B6E04 + 2692 0001:002B6E10 2693 0001:002B6E21 2696 0001:002B6E28 2698 0001:002B6E47 + 2699 0001:002B6E87 2702 0001:002B6E8C 2704 0001:002B6E98 2705 0001:002B6EBF + 2706 0001:002B6ED9 2707 0001:002B6EF3 2708 0001:002B6F0D 2709 0001:002B6F27 + 2712 0001:002B6F2C 2714 0001:002B6F38 2715 0001:002B6F46 2718 0001:002B6F4C + 2720 0001:002B6F58 2721 0001:002B6F68 2722 0001:002B6F7C 2723 0001:002B6F8D + 2724 0001:002B6F9B 2725 0001:002B6FB9 2728 0001:002B6FC0 2730 0001:002B6FCC + 2731 0001:002B6FDE 2732 0001:002B7005 2735 0001:002B700C 2737 0001:002B7018 + 2738 0001:002B702A 2739 0001:002B7051 2742 0001:002B7058 2744 0001:002B7064 + 2745 0001:002B7072 2748 0001:002B7078 2750 0001:002B7084 2751 0001:002B7092 + 2754 0001:002B7098 2756 0001:002B70A4 2757 0001:002B70B2 2760 0001:002B70B8 + 2762 0001:002B70C4 2763 0001:002B70D2 2766 0001:002B70D8 2768 0001:002B70E4 + 2769 0001:002B70FE 2770 0001:002B7118 2771 0001:002B7132 2772 0001:002B714C + 2773 0001:002B7161 2776 0001:002B7168 2777 0001:002B7174 2778 0001:002B7180 + 2779 0001:002B718C 2780 0001:002B7194 2781 0001:002B719E 2782 0001:002B71AA + 2785 0001:002B71B0 2786 0001:002B71B9 2787 0001:002B71C5 2789 0001:002B71CB + 2790 0001:002B71EC 2793 0001:002B71F0 2794 0001:002B71FC 2795 0001:002B720F + 2796 0001:002B721D 2797 0001:002B722B 2799 0001:002B7239 2802 0001:002B7240 + 2803 0001:002B7249 2804 0001:002B7254 2807 0001:002B7258 2810 0001:002B725F + 2811 0001:002B7269 2812 0001:002B7277 2813 0001:002B7288 2814 0001:002B729A + 2815 0001:002B72AC 2816 0001:002B72BA 2817 0001:002B72CB 2819 0001:002B72DC + 2822 0001:002B72E0 2824 0001:002B72EC 2825 0001:002B72F1 2839 0001:002B72F8 + 2840 0001:002B7319 2841 0001:002B7328 2842 0001:002B7336 2843 0001:002B7344 + 2844 0001:002B734B 2845 0001:002B735E 2846 0001:002B7371 2847 0001:002B7385 + 2848 0001:002B7398 2849 0001:002B73A6 2850 0001:002B73BA 2851 0001:002B73CE + 2852 0001:002B73E2 2853 0001:002B73F3 2854 0001:002B7401 2855 0001:002B7411 + 2856 0001:002B7421 2858 0001:002B742C 2860 0001:002B744D 2861 0001:002B746F + 2863 0001:002B747B 2864 0001:002B74A1 2866 0001:002B74BB 2867 0001:002B74C3 + 2869 0001:002B74D1 2871 0001:002B74F2 2872 0001:002B7514 2874 0001:002B7520 + 2875 0001:002B7546 2877 0001:002B7560 2878 0001:002B7568 2880 0001:002B7576 + 2881 0001:002B75B5 2884 0001:002B75E5 2886 0001:002B75F5 2887 0001:002B75FA + 2888 0001:002B7609 2889 0001:002B761B 2890 0001:002B7631 2891 0001:002B764C + 2892 0001:002B7650 2893 0001:002B76AB 2894 0001:002B76E2 2895 0001:002B7711 + 2896 0001:002B7737 2897 0001:002B774C 2899 0001:002B775D 2900 0001:002B7769 + 2901 0001:002B7775 2902 0001:002B7781 2903 0001:002B778E 2904 0001:002B77C3 + 2906 0001:002B77D7 2907 0001:002B7817 2908 0001:002B782C 2909 0001:002B7838 + 2912 0001:002B7850 2913 0001:002B788B 2914 0001:002B788F 2909 0001:002B7892 + 2915 0001:002B7897 2916 0001:002B789D 2917 0001:002B78B0 2918 0001:002B78C1 + 2919 0001:002B78D4 2921 0001:002B78E2 2923 0001:002B78E5 2890 0001:002B78E8 + 2924 0001:002B78F2 2928 0001:002B78FA 2930 0001:002B7914 2932 0001:002B7920 + 2933 0001:002B7927 2934 0001:002B793B 2935 0001:002B7952 2936 0001:002B795E + 2937 0001:002B7982 2939 0001:002B7992 2941 0001:002B79AA 2942 0001:002B79BB + 2944 0001:002B79C5 2945 0001:002B79CF 2946 0001:002B79DA 2942 0001:002B79E5 + 2951 0001:002B79F0 2952 0001:002B7A13 2953 0001:002B7A23 2954 0001:002B7A53 + 2955 0001:002B7A59 2956 0001:002B7A89 2957 0001:002B7A8F 2958 0001:002B7AB2 + 2960 0001:002B7AB8 2961 0001:002B7AC4 2963 0001:002B7AD8 2967 0001:002B7AE3 + 2968 0001:002B7AF4 2970 0001:002B7B00 2971 0001:002B7B0A 2972 0001:002B7B16 + 2973 0001:002B7B2F 2975 0001:002B7B3B 2976 0001:002B7B67 2980 0001:002B7B83 + 2981 0001:002B7BAD 2985 0001:002B7BDF 2986 0001:002B7BF3 2987 0001:002B7BFA + 2988 0001:002B7C17 2991 0001:002B7C45 2992 0001:002B7C58 2993 0001:002B7C6B + 2995 0001:002B7CC7 2998 0001:002B7D4C 3001 0001:002B7D5B 3002 0001:002B7D62 + 3003 0001:002B7D70 3004 0001:002B7D86 3005 0001:002B7DA3 3006 0001:002B7DB1 + 3008 0001:002B7DB8 3015 0001:002B7DC8 3016 0001:002B7DF4 3019 0001:002B7E01 + 3020 0001:002B7E0D 3022 0001:002B7E19 3023 0001:002B7E2A 3024 0001:002B7E3A + 3026 0001:002B7E47 3027 0001:002B7E69 3028 0001:002B7E83 3029 0001:002B7E9E + 3031 0001:002B7EC5 3032 0001:002B7ED5 3033 0001:002B7EEF 3036 0001:002B7F02 + 3038 0001:002B7F29 3039 0001:002B7F39 3041 0001:002B7F53 3042 0001:002B7F66 + 3043 0001:002B7F79 3044 0001:002B7F96 3045 0001:002B7FB3 3046 0001:002B7FC6 + 3048 0001:002B7FDA 3049 0001:002B7FEA 3050 0001:002B7FFE 3051 0001:002B8027 + 3053 0001:002B8033 3054 0001:002B8051 3056 0001:002B8071 3057 0001:002B8088 + 3058 0001:002B8097 3059 0001:002B80A6 3061 0001:002B80B3 3063 0001:002B80FF + 3066 0001:002B811B 3067 0001:002B8129 3068 0001:002B8146 3069 0001:002B8159 + 3070 0001:002B817B 3071 0001:002B8193 3073 0001:002B81B8 3074 0001:002B81BF + 3075 0001:002B81F2 3077 0001:002B81FE 3078 0001:002B821C 3077 0001:002B8238 + 3079 0001:002B823D 3080 0001:002B824B 3081 0001:002B825B 3082 0001:002B8264 + 3084 0001:002B8284 3085 0001:002B82A2 3086 0001:002B82B5 3087 0001:002B82BD + 3088 0001:002B82D7 3090 0001:002B82F1 3091 0001:002B82F8 3092 0001:002B8304 + 3094 0001:002B8316 3095 0001:002B8330 3099 0001:002B8349 3100 0001:002B8353 + 3101 0001:002B8367 3102 0001:002B8378 3104 0001:002B8382 3105 0001:002B8392 + 3108 0001:002B83A2 3109 0001:002B83A7 3110 0001:002B83B1 3111 0001:002B83C9 + 3115 0001:002B83D8 3117 0001:002B83F9 3118 0001:002B840A 3119 0001:002B841A + 3120 0001:002B843E 3121 0001:002B8449 3123 0001:002B8466 3124 0001:002B8483 + 3125 0001:002B8496 3127 0001:002B8505 3130 0001:002B857C 3133 0001:002B858B + 3134 0001:002B85A0 3135 0001:002B85AF 3136 0001:002B85C4 3138 0001:002B85D3 + 3143 0001:002B85D8 3146 0001:002B85F0 3149 0001:002B8646 3152 0001:002B8671 + 3153 0001:002B86A8 3156 0001:002B86DC 3157 0001:002B86E2 3160 0001:002B870A + 3163 0001:002B8757 3166 0001:002B8774 3169 0001:002B878C 3172 0001:002B87E2 + 3175 0001:002B880D 3176 0001:002B8844 3179 0001:002B8878 3180 0001:002B887E + 3183 0001:002B88A6 3186 0001:002B88F3 3188 0001:002B8910 3191 0001:002B891F + 3192 0001:002B8928 3194 0001:002B893F 3195 0001:002B894B 3197 0001:002B895E + 3199 0001:002B896F 3200 0001:002B8984 3201 0001:002B8993 3202 0001:002B89A8 + 3204 0001:002B89B7 3207 0001:002B89C8 3216 0001:002B89D4 3221 0001:002B89D8 + 3222 0001:002B89E7 3223 0001:002B89ED 3224 0001:002B89FA 3225 0001:002B8A11 + 3226 0001:002B8A22 3227 0001:002B8A33 3228 0001:002B8A49 3231 0001:002B8A5F + 3232 0001:002B8A6D 3233 0001:002B8A80 3234 0001:002B8A90 3235 0001:002B8A96 + 3242 0001:002B8A9C 3243 0001:002B8AAB 3245 0001:002B8AB4 3246 0001:002B8AB9 + 3248 0001:002B8ABB 3249 0001:002B8ACD 3251 0001:002B8AD9 3252 0001:002B8AE4 + 3254 0001:002B8AEA 3255 0001:002B8B02 3256 0001:002B8B19 3257 0001:002B8B34 + 3266 0001:002B8B3C 3267 0001:002B8B5F 3269 0001:002B8B6B 3270 0001:002B8B7E + 3271 0001:002B8B83 3273 0001:002B8B85 3277 0001:002B8BC1 3278 0001:002B8BC6 + 3285 0001:002B8BC8 3287 0001:002B8BE7 3288 0001:002B8BF6 3290 0001:002B8C18 + 3297 0001:002B8C80 3298 0001:002B8C8F 3299 0001:002B8CAF 3300 0001:002B8CBA + 3302 0001:002B8CC8 3303 0001:002B8CCF 3304 0001:002B8CF3 3303 0001:002B8D15 + 3305 0001:002B8D1A 3306 0001:002B8D4D 3307 0001:002B8D75 3308 0001:002B8D7D + 3309 0001:002B8DAA 3310 0001:002B8DBE 3311 0001:002B8DD2 3312 0001:002B8DE6 + 3313 0001:002B8DFA 3315 0001:002B8E0E 3317 0001:002B8E20 3318 0001:002B8E2E + 3320 0001:002B8E41 3325 0001:002B8E84 3326 0001:002B8EAA 3327 0001:002B8EB3 + 3329 0001:002B8ECB 3330 0001:002B8ED4 3332 0001:002B8F08 3333 0001:002B8F38 + 3337 0001:002B8F40 3338 0001:002B8F63 3339 0001:002B8F72 3341 0001:002B8F7E + 3342 0001:002B8F88 3343 0001:002B8FAC 3344 0001:002B8FB7 3346 0001:002B8FF1 + 3349 0001:002B9028 3351 0001:002B9034 3353 0001:002B9040 3355 0001:002B904C + 3356 0001:002B9078 3360 0001:002B9094 3361 0001:002B90BE 3364 0001:002B90F0 + 3367 0001:002B90F4 3368 0001:002B90FB 3369 0001:002B9105 3370 0001:002B9119 + 3371 0001:002B912D 3372 0001:002B9141 3373 0001:002B9155 3374 0001:002B9169 + 3375 0001:002B917D 3376 0001:002B9186 3378 0001:002B9199 3379 0001:002B91A9 + 3382 0001:002B91AC 3383 0001:002B91B8 3385 0001:002B91CC 3386 0001:002B91D8 + 3388 0001:002B91EB 3389 0001:002B91FB 3391 0001:002B9201 3392 0001:002B921B + 3393 0001:002B9230 3397 0001:002B9242 3398 0001:002B925C 3399 0001:002B926C + 3401 0001:002B9287 3402 0001:002B9296 3406 0001:002B92BE 3407 0001:002B92CE + 3408 0001:002B92DE 3409 0001:002B92EE 3411 0001:002B9309 3412 0001:002B9318 + 3414 0001:002B9340 3415 0001:002B9366 3416 0001:002B9384 3417 0001:002B939E + 3420 0001:002B93A4 3422 0001:002B93B0 3423 0001:002B93B9 3431 0001:002B93C0 + 3433 0001:002B93EE 3434 0001:002B93FB 3435 0001:002B9417 3436 0001:002B9433 + 3438 0001:002B943F 3439 0001:002B944A 3440 0001:002B9454 3441 0001:002B945C + 3443 0001:002B948E 3444 0001:002B94A0 3445 0001:002B94B1 3446 0001:002B94C2 + 3447 0001:002B94C8 3448 0001:002B94FF 3449 0001:002B9544 3458 0001:002B9548 + 3459 0001:002B9573 3460 0001:002B9587 3461 0001:002B958F 3462 0001:002B95A3 + 3463 0001:002B95C0 3464 0001:002B95D4 3465 0001:002B95DF 3467 0001:002B95E5 + 3468 0001:002B95F4 3472 0001:002B95F9 3473 0001:002B9601 3477 0001:002B9667 + 3479 0001:002B9677 3481 0001:002B9689 3483 0001:002B96A1 3485 0001:002B96BD + 3486 0001:002B96C5 3487 0001:002B96F7 3490 0001:002B9727 3494 0001:002B973B + 3495 0001:002B9762 3496 0001:002B9789 3497 0001:002B9798 3502 0001:002B979D + 3504 0001:002B97B9 3505 0001:002B97C1 3506 0001:002B97F3 3509 0001:002B981C + 3511 0001:002B985A 3520 0001:002B9948 3522 0001:002B9986 3524 0001:002B998C + 3525 0001:002B99A7 3526 0001:002B99D2 3528 0001:002B99DF 3529 0001:002B9A22 + 3531 0001:002B9A5C 3534 0001:002B9ABB 3535 0001:002B9AF5 3536 0001:002B9B27 + 3538 0001:002B9B39 3539 0001:002B9B46 3540 0001:002B9B78 3541 0001:002B9B8B + 3544 0001:002B9BA8 3545 0001:002B9BB5 3546 0001:002B9BE7 3547 0001:002B9BFA + 3549 0001:002B9C14 3550 0001:002B9C59 3552 0001:002B9C86 3555 0001:002B9C93 + 3556 0001:002B9CD9 3560 0001:002B9DA8 3562 0001:002B9DB7 3563 0001:002B9DE2 + 3564 0001:002B9DEE 3565 0001:002B9DF6 3577 0001:002B9E04 3578 0001:002B9E31 + 3579 0001:002B9E3B 3580 0001:002B9E4B 3581 0001:002B9E55 3582 0001:002B9E72 + 3584 0001:002B9E78 3585 0001:002B9E88 3587 0001:002B9ED0 3589 0001:002B9ED5 + 3591 0001:002B9EFD 3592 0001:002B9F12 3593 0001:002B9F20 3594 0001:002B9F3F + 3595 0001:002B9F6A 3596 0001:002B9F89 3598 0001:002B9FAA 3600 0001:002B9FD1 + 3601 0001:002B9FE0 3602 0001:002B9FEE 3604 0001:002BA006 3607 0001:002BA016 + 3609 0001:002BA050 3613 0001:002BA158 3615 0001:002BA167 3616 0001:002BA176 + 3617 0001:002BA1A2 3618 0001:002BA1CC 3621 0001:002BA1D4 3622 0001:002BA1E0 + 3623 0001:002BA1ED 3626 0001:002BA1F4 3627 0001:002BA200 3628 0001:002BA20D + 3631 0001:002BA214 3633 0001:002BA223 3634 0001:002BA23D 3637 0001:002BA244 + 3638 0001:002BA253 3640 0001:002BA26D 3666 0001:002BA274 3667 0001:002BA280 + 3669 0001:002BA2A9 3673 0001:002BA303 3675 0001:002BA322 3676 0001:002BA333 + 3679 0001:002BA338 3681 0001:002BA344 3683 0001:002BA371 3684 0001:002BA38B + 3686 0001:002BA3AC 3690 0001:002BA406 3692 0001:002BA427 3693 0001:002BA438 + 3696 0001:002BA43C 3698 0001:002BA448 3700 0001:002BA471 3702 0001:002BA49B + 3704 0001:002BA4B2 3705 0001:002BA4C7 3707 0001:002BA4EA 3708 0001:002BA4FB + 3711 0001:002BA500 3712 0001:002BA50D 3713 0001:002BA51F 3715 0001:002BA548 + 3717 0001:002BA572 3719 0001:002BA591 3720 0001:002BA5A2 3723 0001:002BA5A8 + 3725 0001:002BA5B4 3726 0001:002BA5DC 3727 0001:002BA602 3728 0001:002BA628 + 3729 0001:002BA64E 3732 0001:002BA654 3734 0001:002BA660 3735 0001:002BA688 + 3736 0001:002BA6A8 3737 0001:002BA6CE 3738 0001:002BA6EC 3739 0001:002BA712 + 3740 0001:002BA730 3741 0001:002BA756 3742 0001:002BA774 3745 0001:002BA778 + 3746 0001:002BA785 3747 0001:002BA797 3748 0001:002BA7A2 3751 0001:002BA7A8 + 3752 0001:002BA7B6 3753 0001:002BA7C8 3755 0001:002BA7FC 3757 0001:002BA80F + 3758 0001:002BA81A 3761 0001:002BA820 3762 0001:002BA82D 3763 0001:002BA83F + 3764 0001:002BA84A 3768 0001:002BA850 3770 0001:002BA85F 3771 0001:002BA86E + 3774 0001:002BA874 3776 0001:002BA883 3777 0001:002BA88F 3778 0001:002BA895 + 3782 0001:002BA89C 3784 0001:002BA8AC 3786 0001:002BA8BC 3787 0001:002BA8C2 + 3788 0001:002BA8EA 3789 0001:002BA8F0 3790 0001:002BA908 3792 0001:002BA91D + 3793 0001:002BA943 3795 0001:002BA94D 3796 0001:002BA956 3797 0001:002BA97C + 3799 0001:002BA984 3802 0001:002BA98C 3805 0001:002BA998 3806 0001:002BA9A7 + 3807 0001:002BA9B6 3809 0001:002BA9C9 3810 0001:002BA9DE 3813 0001:002BA9E4 + 3816 0001:002BA9F0 3818 0001:002BAA0E 3819 0001:002BAA1F 3822 0001:002BAA24 + 3825 0001:002BAA30 3827 0001:002BAA4E 3828 0001:002BAA5D 3829 0001:002BAA6E + 3832 0001:002BAA74 3834 0001:002BAA80 3835 0001:002BAA8F 3838 0001:002BAA94 + 3840 0001:002BAAB6 3841 0001:002BAAD8 3842 0001:002BAAFA 3843 0001:002BAB1C + 3844 0001:002BAB63 3845 0001:002BABAA 3846 0001:002BABCC 3847 0001:002BABEE + 3848 0001:002BAC10 3849 0001:002BAC54 3856 0001:002BAC64 3857 0001:002BAC90 + 3859 0001:002BACC8 3851 0001:002BACCC 3852 0001:002BACE6 3853 0001:002BACF7 + 3855 0001:002BAD1D + +Line numbers for fRemVisitInfo(fRemVisitInfo.pas) segment .text + + 34 0001:002BAF3C 35 0001:002BAF4C 38 0001:002BAF5C 39 0001:002BAF5F + 40 0001:002BAF66 41 0001:002BAF7D 42 0001:002BAF91 44 0001:002BAFC4 + 44 0001:002BAFCB + +Line numbers for fReminderDialog(fReminderDialog.pas) segment .text + + 132 0001:002BB3A8 133 0001:002BB3BE 135 0001:002BB3D0 136 0001:002BB3DB + 138 0001:002BB3F0 139 0001:002BB41A 143 0001:002BB420 144 0001:002BB423 + 145 0001:002BB42C 146 0001:002BB43D 147 0001:002BB44D 150 0001:002BB454 + 151 0001:002BB457 152 0001:002BB460 153 0001:002BB470 157 0001:002BB474 + 158 0001:002BB47E 162 0001:002BB480 163 0001:002BB482 164 0001:002BB48B + 165 0001:002BB496 173 0001:002BB498 174 0001:002BB4B9 175 0001:002BB4C1 + 177 0001:002BB4CA 178 0001:002BB4D0 180 0001:002BB4DF 181 0001:002BB4ED + 183 0001:002BB4FA 184 0001:002BB4FC 186 0001:002BB502 188 0001:002BB50D + 189 0001:002BB517 192 0001:002BB526 193 0001:002BB52F 195 0001:002BB53D + 196 0001:002BB546 198 0001:002BB554 199 0001:002BB561 203 0001:002BB563 + 205 0001:002BB569 206 0001:002BB57A 209 0001:002BB57F 212 0001:002BB58E + 214 0001:002BB5A4 215 0001:002BB5B5 217 0001:002BB5BA 218 0001:002BB5D3 + 219 0001:002BB5DD 221 0001:002BB5DF 223 0001:002BB5EC 225 0001:002BB5F4 + 226 0001:002BB60B 227 0001:002BB622 228 0001:002BB639 229 0001:002BB650 + 230 0001:002BB667 231 0001:002BB67E 233 0001:002BB695 234 0001:002BB69A + 235 0001:002BB6A0 236 0001:002BB6AF 237 0001:002BB6B3 239 0001:002BB6FE + 245 0001:002BB8C0 246 0001:002BB8CB 248 0001:002BB8CF 249 0001:002BB8DC + 250 0001:002BB8ED 253 0001:002BB902 255 0001:002BB914 259 0001:002BB97C + 260 0001:002BB980 262 0001:002BB988 263 0001:002BB98D 275 0001:002BB990 + 276 0001:002BB993 277 0001:002BB9A4 279 0001:002BB9B4 280 0001:002BB9BB + 284 0001:002BB9C0 285 0001:002BB9C9 286 0001:002BB9D3 289 0001:002BB9D4 + 290 0001:002BB9D5 292 0001:002BB9E8 293 0001:002BBA08 295 0001:002BBA12 + 299 0001:002BBA14 301 0001:002BBA2D 303 0001:002BBA36 304 0001:002BBA42 + 306 0001:002BBA4E 307 0001:002BBA5A 318 0001:002BBA5C 319 0001:002BBA98 + 320 0001:002BBAA2 321 0001:002BBAAD 323 0001:002BBABF 325 0001:002BBAC7 + 326 0001:002BBACB 327 0001:002BBACF 328 0001:002BBADE 329 0001:002BBAEC + 330 0001:002BBB00 332 0001:002BBB16 333 0001:002BBB44 334 0001:002BBB4A + 335 0001:002BBB57 337 0001:002BBB81 340 0001:002BBBA6 342 0001:002BBBB6 + 344 0001:002BBBBC 345 0001:002BBBC6 346 0001:002BBBD2 347 0001:002BBBE0 + 348 0001:002BBBE8 350 0001:002BBBF2 351 0001:002BBBFD 352 0001:002BBC05 + 353 0001:002BBC44 357 0001:002BBD44 358 0001:002BBD47 362 0001:002BBD48 + 363 0001:002BBD4E 364 0001:002BBD57 365 0001:002BBD60 368 0001:002BBD64 + 369 0001:002BBD6C 370 0001:002BBD7E 371 0001:002BBD90 381 0001:002BBDA4 + 382 0001:002BBDAF 383 0001:002BBDC2 384 0001:002BBDCD 387 0001:002BBDD4 + 388 0001:002BBDD7 389 0001:002BBDE0 390 0001:002BBDED 392 0001:002BBDFA + 393 0001:002BBE02 394 0001:002BBE0A 395 0001:002BBE12 396 0001:002BBE1A + 397 0001:002BBE28 399 0001:002BBE36 400 0001:002BBE49 401 0001:002BBE54 + 402 0001:002BBE5D 403 0001:002BBE66 404 0001:002BBE6D 405 0001:002BBE77 + 406 0001:002BBE83 407 0001:002BBE8C 415 0001:002BBE90 416 0001:002BBE97 + 418 0001:002BBEA6 420 0001:002BBEBA 421 0001:002BBED2 422 0001:002BBEE5 + 424 0001:002BBEF3 416 0001:002BBEF4 425 0001:002BBEF9 427 0001:002BBF00 + 428 0001:002BBF07 430 0001:002BBF0B 431 0001:002BBF1B 434 0001:002BBF2E + 435 0001:002BBF3F 448 0001:002BBF44 449 0001:002BBF4B 450 0001:002BBF4D + 452 0001:002BBF5E 455 0001:002BBF63 456 0001:002BBF6C 453 0001:002BBF6F + 459 0001:002BBF79 465 0001:002BBF80 466 0001:002BBF8C 467 0001:002BBF94 + 468 0001:002BBF9C 471 0001:002BBFA0 472 0001:002BBFBA 474 0001:002BBFBE + 469 0001:002BBFC2 476 0001:002BBFD4 477 0001:002BBFDC 479 0001:002BC001 + 480 0001:002BC012 481 0001:002BC01D 483 0001:002BC02A 484 0001:002BC034 + 486 0001:002BC04D 488 0001:002BC068 489 0001:002BC07B 490 0001:002BC09C + 491 0001:002BC0A2 493 0001:002BC0B5 494 0001:002BC0CF 495 0001:002BC0DD + 498 0001:002BC0DF 484 0001:002BC0E0 501 0001:002BC0E7 503 0001:002BC0EC + 504 0001:002BC110 506 0001:002BC120 507 0001:002BC12D 510 0001:002BC143 + 511 0001:002BC14F 512 0001:002BC166 513 0001:002BC172 515 0001:002BC181 + 516 0001:002BC18E 517 0001:002BC1C2 518 0001:002BC1D3 519 0001:002BC1E3 + 520 0001:002BC1F3 521 0001:002BC215 522 0001:002BC22C 523 0001:002BC234 + 525 0001:002BC23E 526 0001:002BC24B 528 0001:002BC24F 529 0001:002BC259 + 530 0001:002BC26E 533 0001:002BC27C 535 0001:002BC292 537 0001:002BC2A7 + 538 0001:002BC2B4 540 0001:002BC2D1 542 0001:002BC2FE 543 0001:002BC313 + 546 0001:002BC315 533 0001:002BC316 549 0001:002BC31D 550 0001:002BC327 + 551 0001:002BC33D 553 0001:002BC36C 557 0001:002BC3C0 558 0001:002BC3C8 + 560 0001:002BC3CF 561 0001:002BC3D5 564 0001:002BC3D8 565 0001:002BC3DB + 566 0001:002BC3EC 567 0001:002BC400 568 0001:002BC40E 569 0001:002BC41A + 572 0001:002BC41C 573 0001:002BC41F 579 0001:002BC433 580 0001:002BC449 + 584 0001:002BC44C 585 0001:002BC451 588 0001:002BC454 590 0001:002BC45A + 591 0001:002BC470 592 0001:002BC479 606 0001:002BC47C 607 0001:002BC4AA + 608 0001:002BC4BD 609 0001:002BC4CB 610 0001:002BC4EB 611 0001:002BC4FC + 612 0001:002BC510 613 0001:002BC537 615 0001:002BC539 616 0001:002BC545 + 618 0001:002BC550 619 0001:002BC560 620 0001:002BC576 621 0001:002BC58C + 622 0001:002BC59F 624 0001:002BC5AE 625 0001:002BC5C2 626 0001:002BC5D8 + 627 0001:002BC5FD 628 0001:002BC610 629 0001:002BC623 631 0001:002BC64A + 632 0001:002BC64D 633 0001:002BC64E 634 0001:002BC66E 636 0001:002BC69A + 637 0001:002BC6BB 638 0001:002BC6CE 639 0001:002BC6F1 640 0001:002BC718 + 641 0001:002BC72B 643 0001:002BC741 645 0001:002BC76D 648 0001:002BC788 + 649 0001:002BC797 650 0001:002BC7A5 651 0001:002BC7B6 652 0001:002BC7BA + 654 0001:002BC80F 655 0001:002BC81B 657 0001:002BC834 658 0001:002BC842 + 659 0001:002BC84C 660 0001:002BC867 661 0001:002BC872 662 0001:002BC885 + 663 0001:002BC893 664 0001:002BC8B3 665 0001:002BC8DA 666 0001:002BC8E0 + 667 0001:002BC901 670 0001:002BC908 671 0001:002BC915 672 0001:002BC91C + 673 0001:002BC91E 674 0001:002BC928 676 0001:002BC936 677 0001:002BC93C + 678 0001:002BC93F 680 0001:002BC945 681 0001:002BC95A 683 0001:002BC970 + 684 0001:002BC98C 685 0001:002BC9A2 689 0001:002BC9AA 690 0001:002BC9BD + 693 0001:002BC9D3 694 0001:002BC9EE 695 0001:002BC9F0 696 0001:002BC9F1 + 697 0001:002BCA17 698 0001:002BCA1B 699 0001:002BCA40 700 0001:002BCA65 + 701 0001:002BCA7B 702 0001:002BCA7F 668 0001:002BCAA6 704 0001:002BCAB6 + 706 0001:002BCAE2 709 0001:002BCB0A 711 0001:002BCB3C 719 0001:002BCB8C + 720 0001:002BCBA8 722 0001:002BCBB6 723 0001:002BCBD0 725 0001:002BCBD8 + 726 0001:002BCBE7 729 0001:002BCC1E 730 0001:002BCC20 732 0001:002BCC24 + 733 0001:002BCC32 734 0001:002BCC50 735 0001:002BCC6C 736 0001:002BCC79 + 740 0001:002BCCA8 743 0001:002BCD00 744 0001:002BCD03 746 0001:002BCD0E + 747 0001:002BCD15 748 0001:002BCD1F 750 0001:002BCD26 758 0001:002BCD28 + 761 0001:002BCD46 762 0001:002BCD4E 764 0001:002BCD66 765 0001:002BCD68 + 769 0001:002BCD93 770 0001:002BCD9B 771 0001:002BCDA0 774 0001:002BCDBA + 776 0001:002BCDCE 777 0001:002BCDEB 779 0001:002BCE18 781 0001:002BCE2F + 782 0001:002BCE62 784 0001:002BCE65 771 0001:002BCE66 785 0001:002BCE6D + 787 0001:002BCE73 788 0001:002BCE79 790 0001:002BCE8B 791 0001:002BCE9B + 793 0001:002BCEBF 796 0001:002BCED8 798 0001:002BCEDA 799 0001:002BCEDE + 800 0001:002BCF0D 808 0001:002BD054 809 0001:002BD076 810 0001:002BD07D + 811 0001:002BD08F 812 0001:002BD0A5 814 0001:002BD0FF 815 0001:002BD11A + 817 0001:002BD122 818 0001:002BD12D 820 0001:002BD156 821 0001:002BD168 + 822 0001:002BD199 823 0001:002BD19F 825 0001:002BD1A7 826 0001:002BD1E2 + 827 0001:002BD1E6 829 0001:002BD1F9 830 0001:002BD21B 832 0001:002BD229 + 815 0001:002BD232 834 0001:002BD267 840 0001:002BD294 841 0001:002BD29F + 842 0001:002BD2A6 843 0001:002BD2B0 844 0001:002BD2BE 845 0001:002BD2BF + 846 0001:002BD2D1 848 0001:002BD2F0 850 0001:002BD307 856 0001:002BD30C + 857 0001:002BD317 858 0001:002BD31E 859 0001:002BD328 860 0001:002BD336 + 861 0001:002BD337 862 0001:002BD33B 864 0001:002BD35A 866 0001:002BD371 + 874 0001:002BD378 875 0001:002BD39E 877 0001:002BD3A4 878 0001:002BD3AB + 880 0001:002BD3AD 881 0001:002BD3B8 882 0001:002BD3C7 883 0001:002BD3D5 + 884 0001:002BD3E9 885 0001:002BD3F8 886 0001:002BD408 887 0001:002BD437 + 890 0001:002BD458 891 0001:002BD46E 892 0001:002BD49F 895 0001:002BD4A4 + 896 0001:002BD4BA 897 0001:002BD4EB 900 0001:002BD4F0 901 0001:002BD508 + 903 0001:002BD51E 904 0001:002BD54E 905 0001:002BD57E 907 0001:002BD5B8 + 910 0001:002BD5C0 911 0001:002BD5E1 913 0001:002BD5F3 914 0001:002BD5FD + 915 0001:002BD615 917 0001:002BD642 965 0001:002BD648 966 0001:002BD665 + 968 0001:002BD671 969 0001:002BD698 971 0001:002BD69E 972 0001:002BD6AC + 973 0001:002BD6C0 974 0001:002BD6D1 977 0001:002BD6E5 978 0001:002BD6F1 + 979 0001:002BD6FF 980 0001:002BD734 981 0001:002BD744 982 0001:002BD75E + 983 0001:002BD795 984 0001:002BD7AA 985 0001:002BD7BF 986 0001:002BD7D4 + 987 0001:002BD7E9 988 0001:002BD7FE 989 0001:002BD813 991 0001:002BD826 + 992 0001:002BD82E 994 0001:002BD848 996 0001:002BD877 1002 0001:002BD880 + 1003 0001:002BD8A5 1005 0001:002BD8AF 1006 0001:002BD8C2 1007 0001:002BD8D5 + 1008 0001:002BD8E8 1009 0001:002BD8FB 1011 0001:002BD901 1012 0001:002BD90C + 1013 0001:002BD914 1017 0001:002BD927 1018 0001:002BD92F 1020 0001:002BD940 + 1022 0001:002BD97C 1024 0001:002BD980 1025 0001:002BD9B7 1026 0001:002BD9BE + 1027 0001:002BD9CE 1028 0001:002BD9D3 1029 0001:002BD9D8 1030 0001:002BD9E3 + 1031 0001:002BD9F1 1032 0001:002BDA00 1033 0001:002BDA0C 1034 0001:002BDA29 + 1035 0001:002BDA37 1036 0001:002BDA46 1037 0001:002BDA54 1040 0001:002BDA59 + 1042 0001:002BDA7A 1044 0001:002BDA86 1045 0001:002BDA92 1046 0001:002BDA9F + 1050 0001:002BDABD 1051 0001:002BDACF 1053 0001:002BDAE4 1054 0001:002BDB08 + 1058 0001:002BDB42 1059 0001:002BDB49 1060 0001:002BDB53 1061 0001:002BDB64 + 1063 0001:002BDB79 1064 0001:002BDB85 1065 0001:002BDB91 1066 0001:002BDBC6 + 1067 0001:002BDBCF 1069 0001:002BDBDC 1071 0001:002BDBDF 1073 0001:002BDC00 + 1074 0001:002BDC0C 1076 0001:002BDC15 1078 0001:002BDC1C 1079 0001:002BDC23 + 1081 0001:002BDC2F 1082 0001:002BDC50 1083 0001:002BDC5F 1087 0001:002BDC6B + 1088 0001:002BDC7A 1089 0001:002BDC88 1090 0001:002BDC9D 1091 0001:002BDCB2 + 1092 0001:002BDCB4 1093 0001:002BDCE1 1095 0001:002BDD12 1096 0001:002BDD42 + 1098 0001:002BDD43 1100 0001:002BDD5B 1101 0001:002BDD6E 1104 0001:002BDD72 + 1105 0001:002BDD8B 1106 0001:002BDD9A 1107 0001:002BDDA6 1108 0001:002BDDC7 + 1109 0001:002BDDD9 1112 0001:002BDDDB 1113 0001:002BDDE7 1116 0001:002BDDFA + 1117 0001:002BDE19 1116 0001:002BDE33 1119 0001:002BDE3B 1121 0001:002BDE4B + 1123 0001:002BDE5B 1124 0001:002BDE63 1126 0001:002BDE69 1127 0001:002BDE82 + 1129 0001:002BDE8D 1130 0001:002BDE9A 1131 0001:002BDEAE 1132 0001:002BDEBA + 1133 0001:002BDED1 1137 0001:002BDEDB 1138 0001:002BDEDF 1139 0001:002BDEEB + 1140 0001:002BDEFA 1141 0001:002BDF06 1144 0001:002BDF0F 1145 0001:002BDF37 + 1147 0001:002BDF40 1150 0001:002BDF61 1152 0001:002BDF6A 1153 0001:002BDF86 + 1154 0001:002BDFA4 1157 0001:002BDFD2 1160 0001:002BDFE2 1162 0001:002BDFEF + 1173 0001:002BDFFA 1175 0001:002BE00A 1177 0001:002BE029 1178 0001:002BE03A + 1179 0001:002BE058 1180 0001:002BE083 1175 0001:002BE086 1182 0001:002BE08E + 1183 0001:002BE09D 1184 0001:002BE0AB 1185 0001:002BE0BA 1186 0001:002BE0C8 + 1187 0001:002BE0CF 1188 0001:002BE0DE 1189 0001:002BE0EC 1190 0001:002BE0FB + 1191 0001:002BE109 1192 0001:002BE118 1193 0001:002BE126 1194 0001:002BE135 + 1195 0001:002BE143 1196 0001:002BE14B 1197 0001:002BE158 1198 0001:002BE165 + 1199 0001:002BE16D 1200 0001:002BE16F 1202 0001:002BE171 1203 0001:002BE179 + 1204 0001:002BE185 1206 0001:002BE19E 1207 0001:002BE1AA 1209 0001:002BE1BA + 1210 0001:002BE1BE 1212 0001:002BE1E9 1213 0001:002BE1F4 1214 0001:002BE1FE + 1215 0001:002BE206 1217 0001:002BE225 1219 0001:002BE22D 1220 0001:002BE254 + 1221 0001:002BE27B 1222 0001:002BE29A 1224 0001:002BE2B8 1226 0001:002BE2BC + 1227 0001:002BE2C3 1229 0001:002BE2CA 1230 0001:002BE2D5 1231 0001:002BE2E0 + 1232 0001:002BE2EE 1233 0001:002BE2FA 1234 0001:002BE2FE 1235 0001:002BE304 + 1236 0001:002BE319 1237 0001:002BE324 1238 0001:002BE332 1239 0001:002BE342 + 1240 0001:002BE34D 1243 0001:002BE350 1246 0001:002BE36E 1248 0001:002BE378 + 1251 0001:002BE3B2 1252 0001:002BE3CD 1255 0001:002BE3F7 1257 0001:002BE403 + 1259 0001:002BE423 1260 0001:002BE430 1264 0001:002BE451 1266 0001:002BE4A2 + 1267 0001:002BE4B3 1268 0001:002BE4C4 1269 0001:002BE4D5 1270 0001:002BE4E6 + 1271 0001:002BE4F7 1272 0001:002BE508 1276 0001:002BE519 1278 0001:002BE526 + 1279 0001:002BE54D 1281 0001:002BE557 1283 0001:002BE567 1284 0001:002BE56D + 1286 0001:002BE575 1288 0001:002BE589 1289 0001:002BE5AC 1290 0001:002BE5C3 + 1293 0001:002BE5D0 1294 0001:002BE634 1295 0001:002BE63E 1296 0001:002BE649 + 1298 0001:002BE64E 1279 0001:002BE654 1301 0001:002BE663 1302 0001:002BE687 + 1305 0001:002BE6AB 1306 0001:002BE6BC 1307 0001:002BE6E0 1312 0001:002BE6F3 + 1313 0001:002BE70F 1314 0001:002BE720 1315 0001:002BE744 1316 0001:002BE776 + 1317 0001:002BE79D 1320 0001:002BE7AB 1215 0001:002BE7AE 1321 0001:002BE7BA + 1323 0001:002BE7BE 1325 0001:002BE7C2 1326 0001:002BE7C9 1327 0001:002BE7D0 + 1333 0001:002BE7D4 1332 0001:002BE7E7 1334 0001:002BE7F8 1335 0001:002BE805 + 1338 0001:002BE81A 1200 0001:002BE81B 1341 0001:002BE831 1344 0001:002BE841 + 1345 0001:002BE85C 1344 0001:002BE87B 1348 0001:002BE890 1351 0001:002BE8A0 + 1353 0001:002BE8BD 1354 0001:002BE8FE 1355 0001:002BE92B 1356 0001:002BE952 + 1358 0001:002BE992 1359 0001:002BE9D1 1360 0001:002BE9DC 1361 0001:002BE9EB + 1365 0001:002BEA00 1368 0001:002BEA10 1370 0001:002BEA20 1371 0001:002BEA28 + 1373 0001:002BEA47 1374 0001:002BEA55 1377 0001:002BEAB1 1379 0001:002BEABB + 1381 0001:002BEAC5 1383 0001:002BEAD7 1384 0001:002BEB1C 1385 0001:002BEB32 + 1386 0001:002BEB4B 1388 0001:002BEB87 1389 0001:002BEBBE 1390 0001:002BEBC6 + 1394 0001:002BEBDF 1398 0001:002BEC58 1371 0001:002BEC5B 1402 0001:002BEC74 + 1405 0001:002BEC84 1407 0001:002BEC94 1408 0001:002BEC9F 1410 0001:002BECBE + 1411 0001:002BECCF 1413 0001:002BED00 1414 0001:002BED48 1415 0001:002BED7B + 1416 0001:002BEDC3 1417 0001:002BEE04 1418 0001:002BEE1F 1420 0001:002BEE30 + 1422 0001:002BEE61 1423 0001:002BEEA9 1424 0001:002BEEDB 1425 0001:002BEF0D + 1426 0001:002BEF40 1427 0001:002BEF72 1428 0001:002BEF8D 1430 0001:002BEF9E + 1408 0001:002BEFA1 1432 0001:002BEFAD 1434 0001:002BEFC5 1437 0001:002BEFD5 + 1438 0001:002BEFE3 1439 0001:002BEFEB 1440 0001:002BEFF2 1443 0001:002BF000 + 1445 0001:002BF010 1446 0001:002BF017 1447 0001:002BF01F 1448 0001:002BF02D + 1449 0001:002BF035 1450 0001:002BF03D 1452 0001:002BF044 1453 0001:002BF046 + 1455 0001:002BF055 1456 0001:002BF06D 1459 0001:002BF071 1460 0001:002BF078 + 1463 0001:002BF082 1464 0001:002BF086 1466 0001:002BF093 1468 0001:002BF0A2 + 1469 0001:002BF11E 1470 0001:002BF161 1471 0001:002BF1AC 1472 0001:002BF1F5 + 1477 0001:002BF23B 1479 0001:002BF256 1480 0001:002BF27F 1481 0001:002BF28D + 1477 0001:002BF290 1482 0001:002BF298 1487 0001:002BF2C1 1491 0001:002BF2DE + 1494 0001:002BF2FB 1495 0001:002BF307 1498 0001:002BF34D 1500 0001:002BF356 + 1501 0001:002BF360 1504 0001:002BF419 1511 0001:002BF658 1512 0001:002BF684 + 1513 0001:002BF694 1518 0001:002BF6A8 1519 0001:002BF6BF 1520 0001:002BF6CD + 1521 0001:002BF6D9 1523 0001:002BF6F2 1524 0001:002BF6FD 1516 0001:002BF71E + 1528 0001:002BF732 1529 0001:002BF73C 1531 0001:002BF746 1533 0001:002BF750 + 1534 0001:002BF75F 1536 0001:002BF770 1538 0001:002BF786 1540 0001:002BF7A6 + 1542 0001:002BF7C2 1536 0001:002BF7C3 1546 0001:002BF7C8 1549 0001:002BF7D3 + 1551 0001:002BF7D9 1552 0001:002BF7EB 1551 0001:002BF80C 1554 0001:002BF80F + 1556 0001:002BF815 1557 0001:002BF81D 1560 0001:002BF862 1565 0001:002BF878 + 1566 0001:002BF87D 1569 0001:002BF880 1570 0001:002BF89B 1572 0001:002BF8A8 + 1574 0001:002BF8F6 1575 0001:002BF90E 1576 0001:002BF924 1578 0001:002BF94D + 1581 0001:002BF974 1582 0001:002BF977 1583 0001:002BF981 1584 0001:002BF98D + 1585 0001:002BF995 1586 0001:002BF99C 1593 0001:002BF9A0 1594 0001:002BF9A9 + 1595 0001:002BF9BA 1597 0001:002BF9C5 1598 0001:002BF9D7 1599 0001:002BF9E8 + 1600 0001:002BF9F6 1601 0001:002BFA0A 1603 0001:002BFA47 1604 0001:002BFA5B + 1605 0001:002BFA66 1607 0001:002BFA72 1608 0001:002BFA84 1609 0001:002BFA91 + 1610 0001:002BFAA3 1612 0001:002BFAE0 1613 0001:002BFAE7 1616 0001:002BFAFD + 1618 0001:002BFB0D 1621 0001:002BFB18 1622 0001:002BFB35 1623 0001:002BFB3C + 1624 0001:002BFB49 1625 0001:002BFB56 1626 0001:002BFB63 1627 0001:002BFB70 + 1629 0001:002BFBB9 1630 0001:002BFBC2 1631 0001:002BFBD3 1632 0001:002BFBDA + 1633 0001:002BFBE3 1634 0001:002BFBEA 1635 0001:002BFC13 1638 0001:002BFC28 + 1639 0001:002BFC2B 1640 0001:002BFC35 1641 0001:002BFC3F 1642 0001:002BFC44 + 1643 0001:002BFC4B 1654 0001:002BFC50 1655 0001:002BFC7A 1656 0001:002BFC7F + 1658 0001:002BFC87 1660 0001:002BFC91 1662 0001:002BFCA2 1663 0001:002BFCA4 + 1664 0001:002BFCB1 1665 0001:002BFCBE 1663 0001:002BFCCD 1668 0001:002BFCD4 + 1670 0001:002BFCE5 1672 0001:002BFCE8 1673 0001:002BFCF8 1674 0001:002BFD22 + 1672 0001:002BFD32 1677 0001:002BFD37 1678 0001:002BFD3E 1680 0001:002BFD6A + 1683 0001:002BFD74 1685 0001:002BFD77 1686 0001:002BFD84 1687 0001:002BFD91 + 1688 0001:002BFD9E 1689 0001:002BFDAB 1694 0001:002BFDB0 1695 0001:002BFDD0 + 1697 0001:002BFDFB 1691 0001:002BFE00 1693 0001:002BFE07 + +Line numbers for fMHTest(fMHTest.pas) segment .text + + 104 0001:002C00F0 105 0001:002C00F4 107 0001:002C0105 108 0001:002C010F + 109 0001:002C011D 110 0001:002C012B 112 0001:002C0144 116 0001:002C015C + 117 0001:002C0168 120 0001:002C016C 121 0001:002C019D 122 0001:002C01A7 + 123 0001:002C01C0 124 0001:002C01CE 125 0001:002C01DB 127 0001:002C01EF + 129 0001:002C01FF 130 0001:002C020B 132 0001:002C020F 133 0001:002C0216 + 134 0001:002C021B 138 0001:002C0227 139 0001:002C0249 140 0001:002C0267 + 142 0001:002C0289 144 0001:002C02BD 153 0001:002C02E0 154 0001:002C0301 + 155 0001:002C0308 156 0001:002C030D 158 0001:002C0321 159 0001:002C033C + 160 0001:002C034B 161 0001:002C034E 162 0001:002C0358 156 0001:002C0359 + 163 0001:002C035C 164 0001:002C036D 165 0001:002C0391 180 0001:002C03A4 + 181 0001:002C03B0 182 0001:002C03BB 183 0001:002C03C0 184 0001:002C03C9 + 186 0001:002C03D3 187 0001:002C03E1 189 0001:002C03E5 190 0001:002C03EC + 192 0001:002C03F1 194 0001:002C03F6 195 0001:002C0405 197 0001:002C040A + 198 0001:002C0420 199 0001:002C0429 200 0001:002C0432 201 0001:002C0447 + 203 0001:002C045B 204 0001:002C0466 206 0001:002C046B 207 0001:002C046E + 208 0001:002C047C 210 0001:002C048A 212 0001:002C04A2 213 0001:002C04A5 + 214 0001:002C04B3 215 0001:002C04B7 217 0001:002C04C8 218 0001:002C04D3 + 222 0001:002C04D5 223 0001:002C04E0 228 0001:002C04E2 229 0001:002C04ED + 184 0001:002C04EF 232 0001:002C04F7 235 0001:002C0550 236 0001:002C0566 + 238 0001:002C056F 240 0001:002C0574 241 0001:002C0580 242 0001:002C05B0 + 244 0001:002C05BC 246 0001:002C05E6 248 0001:002C0604 249 0001:002C0642 + 250 0001:002C0646 251 0001:002C0655 252 0001:002C0663 253 0001:002C0675 + 254 0001:002C069D 255 0001:002C06A7 256 0001:002C06B7 257 0001:002C06C5 + 258 0001:002C06D2 259 0001:002C06D7 260 0001:002C06E2 261 0001:002C06EF + 262 0001:002C06FC 263 0001:002C0700 264 0001:002C0702 265 0001:002C0706 + 268 0001:002C0710 269 0001:002C071D 271 0001:002C072E 272 0001:002C0732 + 274 0001:002C0737 275 0001:002C074A 276 0001:002C075D 277 0001:002C0770 + 278 0001:002C0783 280 0001:002C0794 281 0001:002C079F 282 0001:002C07A5 + 285 0001:002C07AB 287 0001:002C07AF 288 0001:002C07B3 291 0001:002C07B8 + 292 0001:002C07CB 293 0001:002C07D7 295 0001:002C07DB 296 0001:002C07DF + 298 0001:002C07E4 299 0001:002C07E6 300 0001:002C07EA 301 0001:002C0819 + 302 0001:002C081F 303 0001:002C082A 305 0001:002C0833 306 0001:002C0846 + 307 0001:002C084D 309 0001:002C0857 311 0001:002C0866 313 0001:002C0884 + 316 0001:002C0898 318 0001:002C08A7 319 0001:002C08A9 320 0001:002C08B8 + 322 0001:002C08CB 323 0001:002C08D1 326 0001:002C08E4 327 0001:002C08EB + 328 0001:002C0914 332 0001:002C091F 334 0001:002C0932 336 0001:002C0938 + 338 0001:002C093E 339 0001:002C0960 340 0001:002C096A 343 0001:002C0989 + 347 0001:002C0998 348 0001:002C099C 349 0001:002C09C5 353 0001:002C09CB + 266 0001:002C09CC 356 0001:002C09E9 359 0001:002C0A0C 361 0001:002C0A1C + 362 0001:002C0A22 365 0001:002C0A3C 367 0001:002C0A50 369 0001:002C0A62 + 370 0001:002C0A76 371 0001:002C0A7C 373 0001:002C0A87 365 0001:002C0A88 + 375 0001:002C0AD7 378 0001:002C0B7C 379 0001:002C0B7F 380 0001:002C0B86 + 381 0001:002C0B98 382 0001:002C0BAA 383 0001:002C0BBB 384 0001:002C0BCC + 387 0001:002C0BD0 388 0001:002C0BD3 389 0001:002C0BDF 390 0001:002C0BEB + 391 0001:002C0BF8 392 0001:002C0C05 398 0001:002C0C08 399 0001:002C0C27 + 401 0001:002C0C37 402 0001:002C0C41 403 0001:002C0C4F 404 0001:002C0C69 + 405 0001:002C0C7A 407 0001:002C0C8A 409 0001:002C0C9A 410 0001:002C0CB4 + 411 0001:002C0CC0 412 0001:002C0CD0 413 0001:002C0CE0 414 0001:002C0CF0 + 415 0001:002C0D07 416 0001:002C0D17 417 0001:002C0D2E 419 0001:002C0D41 + 422 0001:002C0D52 423 0001:002C0D58 424 0001:002C0D60 425 0001:002C0D8C + 426 0001:002C0D94 427 0001:002C0DA5 428 0001:002C0DAA 429 0001:002C0DBC + 430 0001:002C0DD0 429 0001:002C0DEB 434 0001:002C0DF0 435 0001:002C0DF3 + 438 0001:002C0E32 441 0001:002C0E61 447 0001:002C0E68 448 0001:002C0E8F + 449 0001:002C0EA0 451 0001:002C0EA9 452 0001:002C0EAE 454 0001:002C0EB7 + 455 0001:002C0EBE 456 0001:002C0EC8 455 0001:002C0F25 457 0001:002C0F4A + 465 0001:002C0F60 466 0001:002C0F6A 467 0001:002C0F70 468 0001:002C0F79 + 470 0001:002C0F7D 472 0001:002C0F9B 473 0001:002C0FAF 475 0001:002C0FBD + 477 0001:002C0FCB 478 0001:002C0FD3 480 0001:002C0FD5 473 0001:002C0FD6 + 481 0001:002C0FD9 470 0001:002C0FDD 482 0001:002C0FE7 485 0001:002C0FF0 + 486 0001:002C0FF6 487 0001:002C0FFF 488 0001:002C1005 490 0001:002C100F + 491 0001:002C101C 495 0001:002C102C 496 0001:002C1039 497 0001:002C105B + 499 0001:002C106F 503 0001:002C1074 504 0001:002C107D 506 0001:002C1083 + 507 0001:002C1094 510 0001:002C109B 512 0001:002C10A7 513 0001:002C10B8 + 515 0001:002C10BD 534 0001:002C10C4 535 0001:002C10CD 536 0001:002C10D2 + 538 0001:002C10E6 540 0001:002C1108 541 0001:002C111B 543 0001:002C111D + 536 0001:002C111E 544 0001:002C1124 547 0001:002C112C 548 0001:002C112F + 549 0001:002C1137 550 0001:002C113D 555 0001:002C1140 556 0001:002C1159 + 558 0001:002C1169 559 0001:002C117E 561 0001:002C118B 562 0001:002C11A3 + 563 0001:002C11B3 564 0001:002C11C0 565 0001:002C11CD 566 0001:002C11DA + 567 0001:002C11F0 568 0001:002C1205 569 0001:002C1212 570 0001:002C1226 + 572 0001:002C123A 573 0001:002C1245 574 0001:002C124E 575 0001:002C1257 + 576 0001:002C1286 577 0001:002C128F 578 0001:002C129D 581 0001:002C12A4 + 582 0001:002C12C9 584 0001:002C12D0 585 0001:002C130C 587 0001:002C131F + 586 0001:002C132B 589 0001:002C1337 588 0001:002C1340 590 0001:002C1347 + 591 0001:002C1355 592 0001:002C136A 593 0001:002C1371 594 0001:002C137A + 595 0001:002C138C 596 0001:002C1391 598 0001:002C13A6 599 0001:002C13B4 + 601 0001:002C13BC 602 0001:002C13D0 603 0001:002C13DC 604 0001:002C13E5 + 605 0001:002C13EE 606 0001:002C13F7 607 0001:002C1409 608 0001:002C1413 + 609 0001:002C1435 610 0001:002C145A 611 0001:002C147F 613 0001:002C148C + 614 0001:002C1498 615 0001:002C14A2 616 0001:002C14AD 619 0001:002C14B7 + 620 0001:002C14C6 622 0001:002C14CC 623 0001:002C14E1 624 0001:002C14F4 + 625 0001:002C1503 626 0001:002C150D 628 0001:002C151B 629 0001:002C1528 + 630 0001:002C1533 631 0001:002C1541 632 0001:002C1545 633 0001:002C154B + 635 0001:002C1554 636 0001:002C155B 638 0001:002C1561 639 0001:002C156A + 642 0001:002C1575 644 0001:002C1582 646 0001:002C159C 647 0001:002C15AB + 649 0001:002C15B3 650 0001:002C15C7 651 0001:002C15CD 652 0001:002C15DB + 653 0001:002C15ED 654 0001:002C15FC 655 0001:002C1609 656 0001:002C1612 + 657 0001:002C161B 658 0001:002C1623 659 0001:002C162F 660 0001:002C1642 + 661 0001:002C167B 663 0001:002C1688 664 0001:002C1694 665 0001:002C169E + 666 0001:002C16A7 667 0001:002C16B1 668 0001:002C16B8 669 0001:002C16C8 + 670 0001:002C16D3 644 0001:002C16D6 674 0001:002C16E4 675 0001:002C16F2 + 677 0001:002C16FA 678 0001:002C170E 679 0001:002C171C 680 0001:002C172E + 681 0001:002C173A 682 0001:002C1747 683 0001:002C1749 685 0001:002C175F + 686 0001:002C178E 687 0001:002C179C 688 0001:002C17B7 689 0001:002C17BB + 690 0001:002C17BD 683 0001:002C17C0 691 0001:002C17C5 692 0001:002C17D2 + 693 0001:002C17DC 695 0001:002C17EF 696 0001:002C17FB 697 0001:002C1805 + 699 0001:002C1810 700 0001:002C1823 701 0001:002C1868 704 0001:002C187C + 705 0001:002C188E 706 0001:002C1897 707 0001:002C189B 708 0001:002C18A3 + 709 0001:002C18AB 710 0001:002C18B3 711 0001:002C18C6 712 0001:002C18CB + 713 0001:002C18D7 714 0001:002C18E5 715 0001:002C1909 718 0001:002C1918 + 719 0001:002C1923 720 0001:002C192D 721 0001:002C1944 729 0001:002C1948 + 730 0001:002C1962 733 0001:002C1973 735 0001:002C1981 736 0001:002C198A + 737 0001:002C1996 740 0001:002C19AB 743 0001:002C19BA 745 0001:002C19CB + 746 0001:002C19CD 747 0001:002C19DA 748 0001:002C19EE 750 0001:002C19FD + 752 0001:002C1A2D 755 0001:002C1A40 756 0001:002C1A46 758 0001:002C1A4F + 759 0001:002C1A5F 760 0001:002C1A6D 761 0001:002C1A74 763 0001:002C1A88 + 766 0001:002C1A9E 770 0001:002C1AA4 771 0001:002C1AAD 772 0001:002C1AB2 + 779 0001:002C1AB4 780 0001:002C1AD1 781 0001:002C1ADB 782 0001:002C1AF4 + 784 0001:002C1B12 785 0001:002C1B21 786 0001:002C1B36 788 0001:002C1B42 + 789 0001:002C1B51 792 0001:002C1B5F 793 0001:002C1B70 794 0001:002C1B88 + 796 0001:002C1BE8 803 0001:002C1C40 804 0001:002C1C62 805 0001:002C1C6A + 806 0001:002C1C72 807 0001:002C1C77 808 0001:002C1C7E 809 0001:002C1C8B + 810 0001:002C1C9B 812 0001:002C1CAC 813 0001:002C1CC4 815 0001:002C1CE0 + 816 0001:002C1CE9 817 0001:002C1CEC 818 0001:002C1CF2 819 0001:002C1CFF + 821 0001:002C1D15 810 0001:002C1D16 822 0001:002C1D19 823 0001:002C1D31 + 824 0001:002C1D49 826 0001:002C1D6F 828 0001:002C1D91 829 0001:002C1D9B + 830 0001:002C1DAB 832 0001:002C1DB0 834 0001:002C1DD6 835 0001:002C1DE6 + 836 0001:002C1DF9 837 0001:002C1E09 838 0001:002C1E3E 840 0001:002C1E4D + 841 0001:002C1E57 844 0001:002C1E5C 845 0001:002C1E62 848 0001:002C1E6E + 849 0001:002C1E7C 852 0001:002C1E88 853 0001:002C1E98 855 0001:002C1ECD + 857 0001:002C1ED9 860 0001:002C1F1A 866 0001:002C1FEC 867 0001:002C1FF2 + 869 0001:002C200B 870 0001:002C2027 872 0001:002C2040 874 0001:002C205C + 876 0001:002C206B 877 0001:002C2078 880 0001:002C2093 867 0001:002C2094 + 881 0001:002C209B 883 0001:002C20D0 883 0001:002C20D7 + +Line numbers for fTemplateEditor(Templates\fTemplateEditor.pas) segment .text + + 490 0001:002C3A38 491 0001:002C3A67 493 0001:002C3A75 494 0001:002C3A7D + 495 0001:002C3A85 496 0001:002C3A87 498 0001:002C3A93 499 0001:002C3AA4 + 501 0001:002C3AA8 502 0001:002C3AB8 505 0001:002C3AC6 507 0001:002C3ACA + 508 0001:002C3AE0 511 0001:002C3B01 512 0001:002C3B18 515 0001:002C3B26 + 516 0001:002C3B31 517 0001:002C3B4C 518 0001:002C3B67 519 0001:002C3B82 + 520 0001:002C3BA5 521 0001:002C3BC1 522 0001:002C3BC6 523 0001:002C3BE9 + 524 0001:002C3BED 526 0001:002C3C09 527 0001:002C3C13 529 0001:002C3C17 + 531 0001:002C3C26 532 0001:002C3C39 533 0001:002C3C4A 534 0001:002C3C4E + 536 0001:002C3C60 539 0001:002C3C7F 540 0001:002C3C87 541 0001:002C3C97 + 543 0001:002C3C9D 544 0001:002C3CA8 546 0001:002C3CAE 547 0001:002C3CC2 + 550 0001:002C3CD3 553 0001:002C3CEB 555 0001:002C3D25 566 0001:002C3D40 + 567 0001:002C3D61 569 0001:002C3D7E 570 0001:002C3D95 572 0001:002C3D99 + 573 0001:002C3DB0 575 0001:002C3DB4 576 0001:002C3DB6 578 0001:002C3DBE + 579 0001:002C3DCB 580 0001:002C3DCD 581 0001:002C3DD6 582 0001:002C3DDF + 584 0001:002C3DF0 585 0001:002C3DF9 586 0001:002C3DFF 588 0001:002C3E19 + 589 0001:002C3E1D 591 0001:002C3E21 592 0001:002C3E34 594 0001:002C3E42 + 595 0001:002C3E4A 599 0001:002C3E52 600 0001:002C3E67 602 0001:002C3E6D + 604 0001:002C3E76 605 0001:002C3E8C 609 0001:002C3EB5 610 0001:002C3ED7 + 611 0001:002C3EDF 613 0001:002C3EF4 614 0001:002C3F01 615 0001:002C3F0E + 617 0001:002C3F20 618 0001:002C3F32 619 0001:002C3F44 620 0001:002C3F51 + 622 0001:002C3F59 623 0001:002C3F62 626 0001:002C3F6D 627 0001:002C3F76 + 629 0001:002C3F7F 631 0001:002C3F8C 632 0001:002C3F92 633 0001:002C3F9B + 636 0001:002C3FA4 637 0001:002C3FB2 643 0001:002C3FDF 646 0001:002C4008 + 647 0001:002C400B 649 0001:002C4016 650 0001:002C401B 651 0001:002C402D + 652 0001:002C403C 654 0001:002C4041 657 0001:002C4044 658 0001:002C405B + 660 0001:002C4062 661 0001:002C407C 662 0001:002C409E 663 0001:002C40B8 + 664 0001:002C40D2 665 0001:002C40E9 667 0001:002C410A 668 0001:002C411A + 669 0001:002C4127 671 0001:002C4130 672 0001:002C4146 675 0001:002C4164 + 677 0001:002C416B 678 0001:002C4181 680 0001:002C419D 681 0001:002C41A4 + 683 0001:002C41AB 684 0001:002C41B7 685 0001:002C41C3 686 0001:002C41CF + 687 0001:002C41DB 688 0001:002C41E7 689 0001:002C41F3 690 0001:002C41FF + 691 0001:002C420B 692 0001:002C4217 693 0001:002C4223 694 0001:002C422E + 696 0001:002C4245 697 0001:002C4255 698 0001:002C4262 699 0001:002C426F + 702 0001:002C4276 704 0001:002C427D 706 0001:002C4297 708 0001:002C429C + 709 0001:002C42BC 711 0001:002C42D0 712 0001:002C42E5 713 0001:002C42EC + 715 0001:002C42F3 717 0001:002C42FA 718 0001:002C4307 719 0001:002C4314 + 720 0001:002C4331 722 0001:002C4338 723 0001:002C4348 725 0001:002C4358 + 726 0001:002C4387 729 0001:002C43AC 730 0001:002C43AF 731 0001:002C43C0 + 732 0001:002C43C9 733 0001:002C43D9 734 0001:002C43EA 735 0001:002C43FB + 736 0001:002C440C 737 0001:002C441D 738 0001:002C4431 739 0001:002C4438 + 743 0001:002C443C 745 0001:002C443F 748 0001:002C4444 749 0001:002C4447 + 750 0001:002C445B 756 0001:002C4460 757 0001:002C4465 758 0001:002C4477 + 759 0001:002C4495 761 0001:002C449D 762 0001:002C44A3 764 0001:002C44AA + 768 0001:002C44B0 769 0001:002C44BD 771 0001:002C44EB 772 0001:002C44F9 + 773 0001:002C44FC 777 0001:002C4504 778 0001:002C4511 780 0001:002C453F + 781 0001:002C454D 782 0001:002C4550 786 0001:002C4558 787 0001:002C455B + 788 0001:002C4572 792 0001:002C4574 793 0001:002C4577 794 0001:002C458E + 800 0001:002C4590 801 0001:002C4598 802 0001:002C459A 804 0001:002C459E + 805 0001:002C45A1 806 0001:002C45AC 808 0001:002C45B0 810 0001:002C45BC + 811 0001:002C45CC 814 0001:002C45D0 815 0001:002C45DA 817 0001:002C45FC + 821 0001:002C4610 829 0001:002C4618 830 0001:002C4626 831 0001:002C4630 + 832 0001:002C4635 834 0001:002C4639 835 0001:002C463C 836 0001:002C4641 + 838 0001:002C4645 840 0001:002C4650 841 0001:002C465A 842 0001:002C467A + 845 0001:002C4681 846 0001:002C468B 847 0001:002C469F 850 0001:002C46A8 + 852 0001:002C46AC 853 0001:002C46BC 854 0001:002C46C7 856 0001:002C46D0 + 859 0001:002C46F8 860 0001:002C4703 861 0001:002C4726 863 0001:002C472B + 864 0001:002C472D 865 0001:002C473A 866 0001:002C4747 870 0001:002C4756 + 871 0001:002C4763 872 0001:002C4770 874 0001:002C4780 875 0001:002C479A + 876 0001:002C47A9 878 0001:002C47B9 879 0001:002C47C5 880 0001:002C47D2 + 881 0001:002C47DF 882 0001:002C47EC 883 0001:002C480A 884 0001:002C4817 + 885 0001:002C4824 886 0001:002C4831 887 0001:002C483E 888 0001:002C484B + 889 0001:002C4858 890 0001:002C4865 891 0001:002C4872 892 0001:002C487F + 893 0001:002C488C 894 0001:002C4897 895 0001:002C48A4 896 0001:002C48B4 + 897 0001:002C48B8 899 0001:002C48CA 900 0001:002C48DC 901 0001:002C48E9 + 902 0001:002C48F6 903 0001:002C490B 904 0001:002C4918 905 0001:002C4925 + 906 0001:002C4932 907 0001:002C493F 908 0001:002C4946 909 0001:002C494D + 915 0001:002C4954 916 0001:002C4958 917 0001:002C4961 918 0001:002C496A + 919 0001:002C4976 920 0001:002C497E 921 0001:002C498A 922 0001:002C4992 + 923 0001:002C499C 924 0001:002C49A5 925 0001:002C49B3 927 0001:002C49BF + 928 0001:002C49C6 930 0001:002C49D4 931 0001:002C49E0 932 0001:002C49E7 + 936 0001:002C49EC 937 0001:002C49F1 949 0001:002C49F4 950 0001:002C4A1A + 951 0001:002C4A26 952 0001:002C4A30 953 0001:002C4A3E 955 0001:002C4A46 + 956 0001:002C4A52 958 0001:002C4A54 959 0001:002C4A58 960 0001:002C4A5C + 961 0001:002C4A60 962 0001:002C4A6B 963 0001:002C4A78 964 0001:002C4A8E + 967 0001:002C4AA3 968 0001:002C4AB3 969 0001:002C4AC4 970 0001:002C4AD5 + 971 0001:002C4AE4 972 0001:002C4AF3 973 0001:002C4B02 975 0001:002C4B0A + 976 0001:002C4B18 978 0001:002C4B22 979 0001:002C4B32 981 0001:002C4B3E + 982 0001:002C4B55 983 0001:002C4B68 985 0001:002C4B7D 987 0001:002C4B9F + 988 0001:002C4BD0 989 0001:002C4BDF 990 0001:002C4C0A 985 0001:002C4C0D + 994 0001:002C4C14 995 0001:002C4C24 996 0001:002C4C34 998 0001:002C4C4F + 999 0001:002C4C6A 1000 0001:002C4C95 1003 0001:002C4CB7 1004 0001:002C4CC8 + 1005 0001:002C4CE9 1007 0001:002C4D1E 1008 0001:002C4D38 1009 0001:002C4D43 + 1013 0001:002C4D55 1014 0001:002C4D72 1016 0001:002C4D82 1017 0001:002C4DA3 + 1019 0001:002C4DAE 1020 0001:002C4DB2 1024 0001:002C4DBB 1026 0001:002C4DC9 + 1027 0001:002C4DD2 1029 0001:002C4DD8 1030 0001:002C4DE1 1032 0001:002C4DE7 + 1035 0001:002C4DED 1036 0001:002C4DF3 1038 0001:002C4DF9 1040 0001:002C4DFF + 1041 0001:002C4E05 1043 0001:002C4E09 1044 0001:002C4E2E 1045 0001:002C4E42 + 1046 0001:002C4E4E 1047 0001:002C4E67 1048 0001:002C4E80 1049 0001:002C4E99 + 1050 0001:002C4EB2 1052 0001:002C4EBE 1053 0001:002C4ECC 1054 0001:002C4EE5 + 1055 0001:002C4EEB 1057 0001:002C4F04 1058 0001:002C4F31 1059 0001:002C4F43 + 1062 0001:002C4F60 1063 0001:002C4F70 1064 0001:002C4F80 1066 0001:002C4F91 + 1068 0001:002C4F9D 1069 0001:002C4FAD 1070 0001:002C4FC4 1074 0001:002C4FDA + 1075 0001:002C4FEA 1076 0001:002C4FFB 1078 0001:002C500B 1079 0001:002C501F + 1080 0001:002C502A 1083 0001:002C5040 1084 0001:002C5053 1086 0001:002C5063 + 1089 0001:002C5099 1092 0001:002C50AF 1093 0001:002C50C2 1095 0001:002C50D2 + 1097 0001:002C50F6 1098 0001:002C510A 1102 0001:002C5120 1103 0001:002C5133 + 1104 0001:002C5143 1105 0001:002C5156 1107 0001:002C5166 1110 0001:002C5196 + 1111 0001:002C51AA 1112 0001:002C51BE 1114 0001:002C51D4 1118 0001:002C51ED + 1119 0001:002C5200 1124 0001:002C5212 1125 0001:002C5225 1126 0001:002C5235 + 1127 0001:002C5248 1128 0001:002C5258 1129 0001:002C526B 1131 0001:002C527B + 1132 0001:002C5281 1135 0001:002C529F 1136 0001:002C52B2 1137 0001:002C52C2 + 1138 0001:002C52D2 1139 0001:002C52E0 1141 0001:002C52F0 1147 0001:002C52FC + 1148 0001:002C5300 1149 0001:002C5304 1150 0001:002C5308 1152 0001:002C531B + 1154 0001:002C5321 1155 0001:002C5331 1157 0001:002C5342 1159 0001:002C5348 + 1161 0001:002C535C 1163 0001:002C5366 1164 0001:002C5379 1165 0001:002C538C + 1166 0001:002C539F 1167 0001:002C53B2 1168 0001:002C53C5 1169 0001:002C53D8 + 1170 0001:002C53EB 1171 0001:002C53FE 1172 0001:002C5411 1173 0001:002C5422 + 1174 0001:002C5432 1175 0001:002C5442 1176 0001:002C544D 1177 0001:002C545D + 1179 0001:002C546D 1184 0001:002C54C7 1186 0001:002C54DF 1188 0001:002C5502 + 1190 0001:002C5555 1196 0001:002C5660 1197 0001:002C5663 1198 0001:002C5682 + 1199 0001:002C5693 1200 0001:002C56A5 1202 0001:002C56AC 1203 0001:002C56B1 + 1204 0001:002C56BE 1205 0001:002C56CE 1213 0001:002C56D0 1214 0001:002C56EE + 1216 0001:002C571B 1218 0001:002C5737 1219 0001:002C574E 1220 0001:002C575C + 1222 0001:002C576B 1223 0001:002C5783 1224 0001:002C578C 1225 0001:002C57A3 + 1224 0001:002C57B9 1226 0001:002C57BC 1228 0001:002C57C2 1229 0001:002C57CD + 1234 0001:002C57F5 1242 0001:002C57FC 1243 0001:002C5806 1245 0001:002C5833 + 1247 0001:002C584F 1248 0001:002C5863 1249 0001:002C5871 1251 0001:002C5888 + 1252 0001:002C589F 1253 0001:002C58A8 1255 0001:002C58BA 1256 0001:002C58C4 + 1257 0001:002C58CF 1253 0001:002C58D0 1258 0001:002C58D3 1260 0001:002C58E1 + 1261 0001:002C58EB 1265 0001:002C58F7 1266 0001:002C5901 1268 0001:002C590B + 1269 0001:002C5923 1270 0001:002C592A 1271 0001:002C593D 1275 0001:002C594B + 1283 0001:002C5954 1284 0001:002C595B 1286 0001:002C5988 1288 0001:002C59A4 + 1289 0001:002C59B8 1290 0001:002C59C6 1292 0001:002C59DD 1293 0001:002C59F4 + 1294 0001:002C59FD 1296 0001:002C5A14 1297 0001:002C5A21 1298 0001:002C5A38 + 1299 0001:002C5A4F 1294 0001:002C5A52 1300 0001:002C5A55 1301 0001:002C5A60 + 1305 0001:002C5A6B 1312 0001:002C5A74 1313 0001:002C5A8C 1315 0001:002C5AB9 + 1317 0001:002C5AD5 1318 0001:002C5AEB 1319 0001:002C5AF9 1321 0001:002C5B08 + 1322 0001:002C5B29 1323 0001:002C5B32 1324 0001:002C5B46 1326 0001:002C5B4A + 1327 0001:002C5B55 1332 0001:002C5B7D 1338 0001:002C5B84 1339 0001:002C5B8C + 1340 0001:002C5B90 1341 0001:002C5B9D 1342 0001:002C5BAA 1344 0001:002C5BB4 + 1345 0001:002C5BB8 1347 0001:002C5BBC 1348 0001:002C5BBE 1347 0001:002C5BE1 + 1350 0001:002C5BE6 1352 0001:002C5BEC 1354 0001:002C5BF6 1355 0001:002C5BFD + 1356 0001:002C5C1E 1358 0001:002C5C28 1359 0001:002C5C49 1361 0001:002C5C54 + 1364 0001:002C5C5C 1365 0001:002C5C62 1366 0001:002C5C80 1367 0001:002C5C92 + 1371 0001:002C5C98 1372 0001:002C5C9F 1373 0001:002C5CA9 1374 0001:002C5CB7 + 1376 0001:002C5CD7 1378 0001:002C5CE9 1379 0001:002C5CFA 1385 0001:002C5D00 + 1386 0001:002C5D04 1387 0001:002C5D17 1389 0001:002C5D1B 1390 0001:002C5D43 + 1387 0001:002C5D4C 1392 0001:002C5D50 1393 0001:002C5D68 1394 0001:002C5D6F + 1397 0001:002C5D74 1398 0001:002C5D78 1400 0001:002C5DB0 1401 0001:002C5DC8 + 1402 0001:002C5DCF 1410 0001:002C5DD4 1411 0001:002C5DFA 1412 0001:002C5E06 + 1413 0001:002C5E10 1414 0001:002C5E1E 1415 0001:002C5E2F 1416 0001:002C5E40 + 1417 0001:002C5E44 1418 0001:002C5E48 1420 0001:002C5E4E 1422 0001:002C5E5E + 1423 0001:002C5E6D 1424 0001:002C5E7B 1426 0001:002C5E96 1427 0001:002C5E9A + 1428 0001:002C5EB0 1429 0001:002C5EC1 1432 0001:002C5EDF 1433 0001:002C5EF5 + 1434 0001:002C5EF9 1436 0001:002C5F0B 1438 0001:002C5F25 1439 0001:002C5F29 + 1441 0001:002C5F2B 1434 0001:002C5F2C 1442 0001:002C5F2F 1443 0001:002C5F43 + 1445 0001:002C5F6C 1450 0001:002C5F7C 1451 0001:002C5F8C 1452 0001:002C5FA1 + 1454 0001:002C5FA9 1455 0001:002C5FBA 1456 0001:002C5FCB 1457 0001:002C5FE9 + 1458 0001:002C5FED 1459 0001:002C5FF3 1460 0001:002C6010 1461 0001:002C601B + 1462 0001:002C602C 1463 0001:002C603D 1466 0001:002C6070 1468 0001:002C60A6 + 1471 0001:002C60B0 1472 0001:002C60B3 1473 0001:002C60C0 1474 0001:002C60D0 + 1476 0001:002C60D9 1477 0001:002C60E3 1479 0001:002C60EA 1481 0001:002C60F3 + 1482 0001:002C60FD 1484 0001:002C6104 1485 0001:002C6111 1486 0001:002C6126 + 1487 0001:002C6131 1488 0001:002C6136 1489 0001:002C613B 1490 0001:002C6140 + 1491 0001:002C614C 1501 0001:002C6150 1502 0001:002C6171 1505 0001:002C61A6 + 1506 0001:002C61B1 1507 0001:002C61B7 1508 0001:002C61BF 1509 0001:002C61C5 + 1510 0001:002C61D6 1511 0001:002C61DD 1513 0001:002C61E7 1514 0001:002C61F0 + 1516 0001:002C6203 1517 0001:002C6214 1518 0001:002C6218 1520 0001:002C6220 + 1522 0001:002C6226 1523 0001:002C622A 1524 0001:002C622E 1526 0001:002C623C + 1527 0001:002C624A 1528 0001:002C6250 1529 0001:002C625B 1533 0001:002C6261 + 1534 0001:002C6265 1536 0001:002C626B 1537 0001:002C627C 1539 0001:002C6296 + 1540 0001:002C6297 1543 0001:002C62A0 1546 0001:002C62A4 1518 0001:002C62A6 + 1549 0001:002C62AE 1551 0001:002C62B8 1552 0001:002C62C3 1554 0001:002C62CD + 1555 0001:002C62D6 1556 0001:002C62EA 1561 0001:002C6323 1563 0001:002C6335 + 1564 0001:002C6343 1565 0001:002C6349 1567 0001:002C636A 1568 0001:002C6378 + 1569 0001:002C6381 1571 0001:002C638D 1572 0001:002C639B 1573 0001:002C63AC + 1575 0001:002C63B0 1576 0001:002C63C2 1577 0001:002C63DA 1587 0001:002C63E9 + 1588 0001:002C63F8 1591 0001:002C6422 1601 0001:002C6470 1602 0001:002C6491 + 1605 0001:002C64C6 1606 0001:002C64D1 1607 0001:002C64D7 1608 0001:002C64DF + 1609 0001:002C64E5 1610 0001:002C64F6 1611 0001:002C6504 1612 0001:002C650B + 1614 0001:002C6515 1615 0001:002C651E 1617 0001:002C6531 1618 0001:002C6542 + 1619 0001:002C6546 1621 0001:002C654F 1623 0001:002C6555 1624 0001:002C6559 + 1625 0001:002C655D 1627 0001:002C656B 1628 0001:002C6579 1629 0001:002C657F + 1630 0001:002C658A 1634 0001:002C6590 1635 0001:002C6594 1637 0001:002C659A + 1638 0001:002C65AB 1640 0001:002C65C5 1641 0001:002C65C6 1644 0001:002C65CF + 1647 0001:002C65D4 1619 0001:002C65D7 1650 0001:002C65E0 1652 0001:002C65EA + 1653 0001:002C65F5 1655 0001:002C65FF 1656 0001:002C6608 1657 0001:002C661C + 1662 0001:002C6655 1664 0001:002C6667 1665 0001:002C6675 1666 0001:002C667B + 1668 0001:002C669C 1669 0001:002C66AA 1670 0001:002C66B3 1672 0001:002C66C3 + 1673 0001:002C66D1 1674 0001:002C66E2 1676 0001:002C66E6 1677 0001:002C66F6 + 1679 0001:002C6708 1680 0001:002C671B 1681 0001:002C6733 1691 0001:002C6742 + 1692 0001:002C6751 1695 0001:002C677B 1704 0001:002C67C8 1705 0001:002C67E9 + 1708 0001:002C681E 1709 0001:002C682B 1710 0001:002C6831 1711 0001:002C683A + 1712 0001:002C6840 1713 0001:002C684E 1715 0001:002C6857 1717 0001:002C6872 + 1718 0001:002C6876 1723 0001:002C68A3 1724 0001:002C68A9 1726 0001:002C68AF + 1727 0001:002C68B5 1730 0001:002C68C7 1732 0001:002C68F9 1734 0001:002C690C + 1735 0001:002C6919 1736 0001:002C691F 1738 0001:002C6931 1739 0001:002C693E + 1740 0001:002C6949 1741 0001:002C6951 1742 0001:002C6963 1746 0001:002C699D + 1756 0001:002C6B00 1757 0001:002C6B07 1759 0001:002C6B15 1760 0001:002C6B18 + 1761 0001:002C6B1F 1762 0001:002C6B23 1764 0001:002C6B32 1765 0001:002C6B34 + 1767 0001:002C6B3C 1768 0001:002C6B42 1769 0001:002C6B57 1770 0001:002C6B5C + 1771 0001:002C6B67 1774 0001:002C6B6E 1775 0001:002C6B89 1777 0001:002C6B8E + 1778 0001:002C6BA5 1779 0001:002C6BAD 1780 0001:002C6BC7 1783 0001:002C6BCE + 1784 0001:002C6BD5 1786 0001:002C6BF0 1787 0001:002C6C07 1788 0001:002C6C1E + 1789 0001:002C6C3F 1790 0001:002C6C56 1791 0001:002C6C77 1792 0001:002C6C9E + 1794 0001:002C6CAE 1795 0001:002C6CB2 1797 0001:002C6CC1 1798 0001:002C6CCE + 1800 0001:002C6CD2 1801 0001:002C6CDB 1802 0001:002C6CE4 1805 0001:002C6D0A + 1807 0001:002C6D18 1811 0001:002C6D34 1812 0001:002C6D38 1811 0001:002C6D58 + 1814 0001:002C6D5E 1815 0001:002C6D75 1817 0001:002C6D84 1818 0001:002C6D9B + 1820 0001:002C6DAA 1823 0001:002C6DB9 1824 0001:002C6DC6 1829 0001:002C6DCC + 1830 0001:002C6DD3 1831 0001:002C6DE4 1832 0001:002C6DE9 1834 0001:002C6DF1 + 1835 0001:002C6DF9 1843 0001:002C6E00 1844 0001:002C6E11 1845 0001:002C6E19 + 1846 0001:002C6E1C 1848 0001:002C6E3E 1849 0001:002C6E41 1850 0001:002C6E54 + 1853 0001:002C6E76 1855 0001:002C6E80 1856 0001:002C6E9B 1857 0001:002C6E9F + 1859 0001:002C6EA7 1860 0001:002C6EB4 1864 0001:002C6EC5 1873 0001:002C6ED0 + 1874 0001:002C6EEE 1876 0001:002C6F15 1877 0001:002C6F1B 1879 0001:002C6F24 + 1880 0001:002C6F2A 1884 0001:002C6F31 1885 0001:002C6F3E 1887 0001:002C6F62 + 1889 0001:002C6F83 1890 0001:002C6F86 1892 0001:002C6FA9 1897 0001:002C6FDF + 1898 0001:002C6FF0 1899 0001:002C7003 1901 0001:002C7014 1902 0001:002C7021 + 1903 0001:002C7024 1905 0001:002C703B 1908 0001:002C706E 1910 0001:002C7086 + 1911 0001:002C709E 1912 0001:002C70AF 1914 0001:002C70C1 1915 0001:002C70D1 + 1916 0001:002C70D6 1919 0001:002C70DD 1922 0001:002C70E4 1925 0001:002C70EB + 1926 0001:002C70F0 1927 0001:002C70F6 1928 0001:002C711A 1929 0001:002C712C + 1931 0001:002C713F 1932 0001:002C714B 1934 0001:002C7156 1935 0001:002C716C + 1936 0001:002C717F 1937 0001:002C7197 1943 0001:002C71C1 1954 0001:002C7210 + 1955 0001:002C723C 1956 0001:002C724B 1957 0001:002C7259 1958 0001:002C7268 + 1959 0001:002C7276 1961 0001:002C7285 1962 0001:002C728A 1964 0001:002C7292 + 1966 0001:002C72AE 1967 0001:002C72BB 1969 0001:002C72C9 1970 0001:002C72D8 + 1971 0001:002C7323 1972 0001:002C7330 1974 0001:002C733D 1964 0001:002C7340 + 1976 0001:002C7349 1959 0001:002C734D 1981 0001:002C7356 1983 0001:002C7361 + 1985 0001:002C737D 1986 0001:002C738B 1987 0001:002C7398 1988 0001:002C73A6 + 1990 0001:002C73B0 1991 0001:002C73BD 1992 0001:002C73DB 1994 0001:002C73EE + 1995 0001:002C7400 1997 0001:002C742F 1998 0001:002C7441 2001 0001:002C746E + 1983 0001:002C7471 2003 0001:002C7487 2006 0001:002C74A4 2008 0001:002C74B4 + 2009 0001:002C74BC 2010 0001:002C74D4 2012 0001:002C74F2 2013 0001:002C750F + 2014 0001:002C7544 2017 0001:002C7564 2018 0001:002C7568 2020 0001:002C7577 + 2021 0001:002C7586 2022 0001:002C75A0 2023 0001:002C75B1 2024 0001:002C75C4 + 2025 0001:002C75DF 2027 0001:002C75F6 2030 0001:002C75FC 2031 0001:002C7600 + 2033 0001:002C760F 2034 0001:002C761E 2035 0001:002C7638 2036 0001:002C7649 + 2037 0001:002C765C 2038 0001:002C7677 2040 0001:002C768E 2048 0001:002C7694 + 2049 0001:002C76A2 2051 0001:002C76B2 2052 0001:002C76B9 2053 0001:002C76BC + 2054 0001:002C76CA 2056 0001:002C76CE 2057 0001:002C76D8 2059 0001:002C76DC + 2061 0001:002C76E8 2062 0001:002C76FC 2065 0001:002C7700 2067 0001:002C772A + 2069 0001:002C772C 2071 0001:002C7730 2073 0001:002C774C 2076 0001:002C7760 + 2077 0001:002C7765 2079 0001:002C7769 2074 0001:002C7772 2081 0001:002C7781 + 2082 0001:002C7785 2071 0001:002C7789 2086 0001:002C778E 2087 0001:002C7792 + 2096 0001:002C779C 2097 0001:002C77A7 2098 0001:002C77A9 2100 0001:002C77C4 + 2101 0001:002C77C7 2103 0001:002C77ED 2104 0001:002C77F8 2105 0001:002C77FD + 2107 0001:002C7804 2108 0001:002C780F 2110 0001:002C7813 2111 0001:002C781E + 2112 0001:002C7828 2116 0001:002C7832 2117 0001:002C7834 2119 0001:002C783C + 2120 0001:002C7849 2121 0001:002C784B 2122 0001:002C7863 2123 0001:002C786C + 2124 0001:002C7873 2125 0001:002C787E 2126 0001:002C7889 2128 0001:002C788F + 2129 0001:002C78A0 2130 0001:002C78A4 2132 0001:002C78B7 2133 0001:002C78C2 + 2137 0001:002C78CF 2146 0001:002C78D8 2147 0001:002C78F6 2149 0001:002C7923 + 2150 0001:002C7931 2151 0001:002C7945 2153 0001:002C7960 2155 0001:002C797C + 2156 0001:002C7992 2157 0001:002C7996 2158 0001:002C79A4 2160 0001:002C79BB + 2161 0001:002C79BF 2162 0001:002C79D5 2163 0001:002C79D9 2164 0001:002C79E3 + 2165 0001:002C7A10 2167 0001:002C7A16 2169 0001:002C7A2E 2171 0001:002C7A32 + 2172 0001:002C7A3D 2174 0001:002C7A48 2176 0001:002C7A4E 2177 0001:002C7A5E + 2178 0001:002C7A72 2182 0001:002C7A82 2186 0001:002C7AC1 2189 0001:002C7AC8 + 2194 0001:002C7ACC 2195 0001:002C7AD9 2197 0001:002C7AE6 2198 0001:002C7AF7 + 2199 0001:002C7B00 2200 0001:002C7B10 2201 0001:002C7B21 2202 0001:002C7B32 + 2203 0001:002C7B43 2204 0001:002C7B54 2205 0001:002C7B68 2206 0001:002C7B6F + 2207 0001:002C7B87 2210 0001:002C7B8C 2211 0001:002C7B8F 2212 0001:002C7BA3 + 2213 0001:002C7BAA 2222 0001:002C7BAC 2223 0001:002C7BC8 2224 0001:002C7BCF + 2225 0001:002C7BD8 2226 0001:002C7BDF 2227 0001:002C7BE8 2228 0001:002C7C03 + 2230 0001:002C7C0B 2231 0001:002C7C18 2232 0001:002C7C1E 2236 0001:002C7C4C + 2237 0001:002C7C59 2238 0001:002C7C5F 2240 0001:002C7C8B 2241 0001:002C7C98 + 2242 0001:002C7CC0 2244 0001:002C7CE8 2246 0001:002C7D08 2247 0001:002C7D27 + 2253 0001:002C7D75 2254 0001:002C7D82 2256 0001:002C7D8F 2257 0001:002C7D9C + 2258 0001:002C7DB0 2259 0001:002C7DC8 2260 0001:002C7E02 2263 0001:002C7E78 + 2264 0001:002C7E7C 2266 0001:002C7E8D 2267 0001:002C7EA1 2271 0001:002C7EAF + 2272 0001:002C7EC7 2274 0001:002C7ED2 2280 0001:002C7ED8 2281 0001:002C7EF1 + 2282 0001:002C7EFA 2284 0001:002C7F02 2285 0001:002C7F10 2286 0001:002C7F1D + 2288 0001:002C7F2A 2289 0001:002C7F38 2294 0001:002C7F5A 2295 0001:002C7F68 + 2296 0001:002C7F75 2298 0001:002C7F7E 2299 0001:002C7F8C 2302 0001:002C7FAC + 2303 0001:002C7FD9 2306 0001:002C7FE0 2307 0001:002C7FF9 2308 0001:002C8009 + 2310 0001:002C801B 2311 0001:002C802B 2312 0001:002C806F 2315 0001:002C80B8 + 2316 0001:002C80BC 2317 0001:002C80C5 2320 0001:002C80CE 2321 0001:002C80E3 + 2323 0001:002C80EB 2325 0001:002C80F1 2338 0001:002C80F4 2339 0001:002C8116 + 2341 0001:002C8120 2342 0001:002C812C 2343 0001:002C8138 2344 0001:002C8144 + 2345 0001:002C8158 2346 0001:002C816C 2347 0001:002C8178 2349 0001:002C8188 + 2350 0001:002C8192 2351 0001:002C81A0 2353 0001:002C81C8 2359 0001:002C81DA + 2360 0001:002C81E6 2361 0001:002C81F2 2362 0001:002C81FE 2363 0001:002C8212 + 2364 0001:002C8226 2365 0001:002C8232 2367 0001:002C823E 2368 0001:002C8248 + 2369 0001:002C8256 2371 0001:002C827E 2375 0001:002C8290 2377 0001:002C82A5 + 2378 0001:002C82B1 2380 0001:002C82BD 2381 0001:002C82CD 2382 0001:002C82CF + 2384 0001:002C82D3 2385 0001:002C82DE 2386 0001:002C82E4 2389 0001:002C82FC + 2390 0001:002C8307 2391 0001:002C830D 2392 0001:002C8323 2393 0001:002C8333 + 2394 0001:002C8337 2387 0001:002C8340 2397 0001:002C8348 2399 0001:002C834C + 2400 0001:002C835A 2402 0001:002C8365 2403 0001:002C836E 2404 0001:002C837B + 2408 0001:002C8387 2409 0001:002C838D 2411 0001:002C8397 2412 0001:002C83BC + 2413 0001:002C83C9 2416 0001:002C83EA 2417 0001:002C843C 2420 0001:002C849C + 2421 0001:002C84B4 2423 0001:002C84BA 2424 0001:002C84DA 2428 0001:002C84EB + 2429 0001:002C850B 2431 0001:002C853C 2435 0001:002C8544 2437 0001:002C854C + 2439 0001:002C8554 2440 0001:002C855C 2441 0001:002C8572 2446 0001:002C8583 + 2448 0001:002C858B 2449 0001:002C8593 2450 0001:002C85A9 2453 0001:002C85B9 + 2457 0001:002C85E0 2458 0001:002C85ED 2462 0001:002C85F0 2463 0001:002C85FD + 2467 0001:002C8600 2468 0001:002C860D 2472 0001:002C8610 2473 0001:002C861D + 2476 0001:002C8620 2477 0001:002C8623 2479 0001:002C862E 2481 0001:002C8637 + 2482 0001:002C863E 2485 0001:002C864A 2487 0001:002C865C 2490 0001:002C8660 + 2491 0001:002C8663 2493 0001:002C866C 2494 0001:002C8673 2495 0001:002C867A + 2497 0001:002C8683 2498 0001:002C8691 2500 0001:002C869C 2502 0001:002C86A5 + 2509 0001:002C86A8 2510 0001:002C86C5 2512 0001:002C86D2 2513 0001:002C86DE + 2514 0001:002C86F1 2515 0001:002C86F5 2517 0001:002C8702 2518 0001:002C8709 + 2520 0001:002C871C 2521 0001:002C8720 2522 0001:002C873A 2523 0001:002C8773 + 2521 0001:002C87A1 2526 0001:002C87A6 2527 0001:002C87AC 2528 0001:002C87CC + 2529 0001:002C87D9 2530 0001:002C87E9 2532 0001:002C87FE 2533 0001:002C882A + 2536 0001:002C8834 2537 0001:002C884F 2538 0001:002C8856 2540 0001:002C886F + 2542 0001:002C8892 2543 0001:002C88A3 2544 0001:002C88B9 2548 0001:002C88F1 + 2549 0001:002C88F8 2550 0001:002C88FC 2554 0001:002C8931 2560 0001:002C89BC + 2561 0001:002C89C1 2562 0001:002C89D0 2563 0001:002C89DD 2565 0001:002C89EA + 2566 0001:002C8A11 2567 0001:002C8A15 2568 0001:002C8A2B 2569 0001:002C8A6A + 2570 0001:002C8A78 2571 0001:002C8A86 2572 0001:002C8AA4 2574 0001:002C8AC2 + 2575 0001:002C8AE0 2576 0001:002C8B07 2577 0001:002C8B28 2578 0001:002C8B4C + 2588 0001:002C8B50 2589 0001:002C8B5D 2590 0001:002C8B6A 2592 0001:002C8B6F + 2594 0001:002C8B88 2595 0001:002C8B96 2597 0001:002C8BA3 2590 0001:002C8BAC + 2599 0001:002C8BB1 2601 0001:002C8BD0 2602 0001:002C8BF0 2603 0001:002C8BFF + 2604 0001:002C8C0D 2605 0001:002C8C1A 2606 0001:002C8C27 2608 0001:002C8C35 + 2609 0001:002C8C3A 2611 0001:002C8C56 2612 0001:002C8C63 2613 0001:002C8C70 + 2615 0001:002C8C7E 2616 0001:002C8C8F 2617 0001:002C8C9C 2618 0001:002C8CAA + 2619 0001:002C8CB2 2613 0001:002C8CB3 2620 0001:002C8CB6 2621 0001:002C8CD0 + 2622 0001:002C8CE1 2625 0001:002C8D07 2626 0001:002C8D11 2628 0001:002C8D45 + 2632 0001:002C8E7C 2633 0001:002C8E83 2640 0001:002C8E84 2641 0001:002C8E8A + 2643 0001:002C8E9C 2644 0001:002C8EAF 2645 0001:002C8EB5 2647 0001:002C8EBA + 2649 0001:002C8EC0 2650 0001:002C8EC3 2652 0001:002C8ECE 2653 0001:002C8ED7 + 2655 0001:002C8EDC 2659 0001:002C8EEE 2663 0001:002C8F24 2664 0001:002C8F2F + 2668 0001:002C8F30 2669 0001:002C8F37 2674 0001:002C8F38 2675 0001:002C8F43 + 2681 0001:002C8F44 2682 0001:002C8F60 2683 0001:002C8F8E 2685 0001:002C8FA8 + 2686 0001:002C8FBD 2688 0001:002C8FD7 2690 0001:002C8FDB 2691 0001:002C9019 + 2693 0001:002C9054 2706 0001:002C914C 2707 0001:002C9155 2709 0001:002C9163 + 2710 0001:002C9171 2711 0001:002C9173 2712 0001:002C919D 2714 0001:002C91BD + 2715 0001:002C91D6 2719 0001:002C91DA 2720 0001:002C91EF 2722 0001:002C9204 + 2724 0001:002C9227 2727 0001:002C9229 2729 0001:002C9237 2730 0001:002C924C + 2732 0001:002C9250 2733 0001:002C9265 2734 0001:002C9267 2735 0001:002C9273 + 2739 0001:002C9280 2741 0001:002C92A2 2742 0001:002C92BB 2744 0001:002C92C2 + 2745 0001:002C92C8 2747 0001:002C92D1 2748 0001:002C92E3 2749 0001:002C92F0 + 2750 0001:002C9302 2751 0001:002C930A 2755 0001:002C930E 2757 0001:002C9316 + 2759 0001:002C931E 2760 0001:002C932E 2762 0001:002C9338 2764 0001:002C935D + 2768 0001:002C9361 2769 0001:002C9376 2771 0001:002C937B 2773 0001:002C93A0 + 2778 0001:002C93A2 2780 0001:002C93A6 2781 0001:002C93B4 2782 0001:002C93B7 + 2783 0001:002C93C5 2784 0001:002C93C8 2785 0001:002C93D6 2788 0001:002C93E6 + 2793 0001:002C93F0 2794 0001:002C93F8 2795 0001:002C9400 2796 0001:002C9408 + 2797 0001:002C9415 2801 0001:002C9418 2802 0001:002C941B 2803 0001:002C9428 + 2807 0001:002C942C 2808 0001:002C9437 2811 0001:002C9438 2812 0001:002C943B + 2813 0001:002C946A 2814 0001:002C949C 2818 0001:002C94A0 2819 0001:002C94AB + 2823 0001:002C94AC 2824 0001:002C94B7 2827 0001:002C94B8 2828 0001:002C94CE + 2829 0001:002C9506 2833 0001:002C950C 2834 0001:002C9517 2838 0001:002C9518 + 2839 0001:002C9523 2842 0001:002C9524 2843 0001:002C9527 2844 0001:002C9550 + 2846 0001:002C955F 2847 0001:002C9588 2848 0001:002C9595 2851 0001:002C9598 + 2852 0001:002C959C 2853 0001:002C95A6 2855 0001:002C95B6 2856 0001:002C95BE + 2859 0001:002C95C4 2860 0001:002C95CB 2862 0001:002C95DB 2863 0001:002C95ED + 2864 0001:002C95FF 2865 0001:002C961D 2866 0001:002C9627 2867 0001:002C9635 + 2869 0001:002C9660 2872 0001:002C9672 2873 0001:002C967D 2880 0001:002C9680 + 2881 0001:002C9689 2882 0001:002C96AA 2883 0001:002C96B0 2884 0001:002C96D5 + 2886 0001:002C96DB 2887 0001:002C96E7 2888 0001:002C96F1 2889 0001:002C96FF + 2890 0001:002C9708 2891 0001:002C9711 2892 0001:002C9716 2894 0001:002C9739 + 2897 0001:002C9750 2901 0001:002C9754 2902 0001:002C9768 2906 0001:002C976C + 2908 0001:002C9789 2910 0001:002C978F 2912 0001:002C9797 2913 0001:002C97B2 + 2917 0001:002C97C1 2918 0001:002C97DC 2922 0001:002C97E9 2923 0001:002C97F4 + 2925 0001:002C9804 2926 0001:002C980F 2928 0001:002C981F 2929 0001:002C982A + 2931 0001:002C9838 2932 0001:002C9843 2934 0001:002C9851 2935 0001:002C985C + 2937 0001:002C986C 2938 0001:002C9877 2940 0001:002C9885 2941 0001:002C9890 + 2943 0001:002C989D 2944 0001:002C98A8 2946 0001:002C98B3 2947 0001:002C98BE + 2949 0001:002C98DB 2950 0001:002C98E6 2952 0001:002C98F3 2953 0001:002C98FE + 2955 0001:002C992F 2961 0001:002C9938 2962 0001:002C993D 2964 0001:002C994D + 2965 0001:002C995C 2966 0001:002C9969 2967 0001:002C9976 2968 0001:002C999D + 2969 0001:002C99A1 2970 0001:002C99B7 2971 0001:002C99F6 2972 0001:002C9A04 + 2973 0001:002C9A12 2974 0001:002C9A30 2976 0001:002C9A4E 2977 0001:002C9A6C + 2978 0001:002C9A93 2979 0001:002C9AB4 2980 0001:002C9AD8 2984 0001:002C9AF1 + 2985 0001:002C9AFE 2986 0001:002C9B0B 2987 0001:002C9B18 2988 0001:002C9B25 + 2989 0001:002C9B32 2990 0001:002C9B3F 2991 0001:002C9B4C 2992 0001:002C9B59 + 2993 0001:002C9B66 2994 0001:002C9B73 2995 0001:002C9B80 2997 0001:002C9B8D + 3000 0001:002C9B94 3001 0001:002C9B97 3002 0001:002C9BC6 3003 0001:002C9BF8 + 3006 0001:002C9BFC 3007 0001:002C9BFF 3008 0001:002C9C0E 3009 0001:002C9C28 + 3012 0001:002C9C2C 3013 0001:002C9C2F 3014 0001:002C9C3E 3015 0001:002C9C58 + 3021 0001:002C9C5C 3022 0001:002C9C61 3023 0001:002C9C68 3024 0001:002C9C6E + 3026 0001:002C9C85 3027 0001:002C9C8D 3029 0001:002C9CB7 3030 0001:002C9CDF + 3032 0001:002C9CFF 3033 0001:002C9D1E 3039 0001:002C9D6C 3040 0001:002C9D79 + 3042 0001:002C9D86 3043 0001:002C9D93 3047 0001:002C9DA9 3048 0001:002C9DB6 + 3049 0001:002C9DC3 3050 0001:002C9DD0 3052 0001:002C9DDD 3053 0001:002C9DF5 + 3054 0001:002C9E0D 3055 0001:002C9E1E 3056 0001:002C9E2F 3057 0001:002C9E4E + 3058 0001:002C9E6D 3062 0001:002C9E74 3063 0001:002C9E80 3064 0001:002C9E8B + 3068 0001:002C9E8C 3069 0001:002C9E98 3070 0001:002C9EA3 3074 0001:002C9EA4 + 3075 0001:002C9EB0 3076 0001:002C9EBB 3080 0001:002C9EBC 3081 0001:002C9EC8 + 3082 0001:002C9ED3 3085 0001:002C9ED4 3086 0001:002C9ED7 3087 0001:002C9EFA + 3089 0001:002C9F05 3090 0001:002C9F12 3093 0001:002C9F18 3094 0001:002C9F1B + 3095 0001:002C9F3E 3097 0001:002C9F49 3098 0001:002C9F56 3102 0001:002C9F5C + 3103 0001:002C9F70 3107 0001:002C9F74 3108 0001:002C9F8B 3112 0001:002C9F8C + 3113 0001:002C9F97 3119 0001:002C9F98 3120 0001:002C9F9D 3121 0001:002C9FA3 + 3123 0001:002C9FC2 3124 0001:002C9FD1 3125 0001:002C9FE9 3127 0001:002C9FF6 + 3131 0001:002C9FFC 3132 0001:002C9FFF 3133 0001:002CA00D 3136 0001:002CA014 + 3137 0001:002CA02A 3138 0001:002CA02E 3142 0001:002CA06C 3143 0001:002CA08D + 3152 0001:002CA0B8 3153 0001:002CA0D6 3154 0001:002CA0DF 3156 0001:002CA101 + 3157 0001:002CA10C 3159 0001:002CA110 3160 0001:002CA11F 3161 0001:002CA12B + 3163 0001:002CA134 3164 0001:002CA142 3165 0001:002CA149 3166 0001:002CA153 + 3167 0001:002CA15E 3168 0001:002CA16B 3169 0001:002CA16F 3170 0001:002CA17E + 3172 0001:002CA1A2 3178 0001:002CA1AC 3179 0001:002CA1C4 3180 0001:002CA1D0 + 3181 0001:002CA1D7 3182 0001:002CA1E8 3184 0001:002CA1F4 3185 0001:002CA1FD + 3186 0001:002CA20E 3187 0001:002CA21F 3188 0001:002CA22C 3190 0001:002CA257 + 3197 0001:002CA25C 3198 0001:002CA274 3200 0001:002CA2A1 3202 0001:002CA2B9 + 3203 0001:002CA2CF 3204 0001:002CA2DD 3206 0001:002CA2EC 3207 0001:002CA30A + 3208 0001:002CA313 3210 0001:002CA317 3211 0001:002CA322 3215 0001:002CA32D + 3218 0001:002CA357 3222 0001:002CA360 3223 0001:002CA374 3227 0001:002CA378 + 3228 0001:002CA383 3232 0001:002CA384 3233 0001:002CA38F 3236 0001:002CA390 + 3237 0001:002CA3A6 3238 0001:002CA3DE 3242 0001:002CA3E4 3243 0001:002CA3EF + 3247 0001:002CA3F0 3248 0001:002CA3FB 3252 0001:002CA3FC 3253 0001:002CA407 + 3259 0001:002CA408 3260 0001:002CA40C 3261 0001:002CA41B 3262 0001:002CA442 + 3263 0001:002CA446 3264 0001:002CA45C 3265 0001:002CA47A 3266 0001:002CA498 + 3267 0001:002CA4B6 3268 0001:002CA4DD 3269 0001:002CA4FE 3270 0001:002CA522 + 3273 0001:002CA528 3274 0001:002CA52B 3275 0001:002CA546 3276 0001:002CA561 + 3277 0001:002CA578 3278 0001:002CA581 3282 0001:002CA584 3283 0001:002CA58B + 3287 0001:002CA58C 3288 0001:002CA596 3292 0001:002CA598 3293 0001:002CA5A2 + 3297 0001:002CA5A4 3298 0001:002CA5AE 3302 0001:002CA5B0 3303 0001:002CA5BA + 3309 0001:002CA5BC 3310 0001:002CA5C6 3312 0001:002CA5F3 3314 0001:002CA60F + 3315 0001:002CA623 3316 0001:002CA631 3318 0001:002CA648 3319 0001:002CA674 + 3320 0001:002CA689 3321 0001:002CA69E 3322 0001:002CA6B3 3323 0001:002CA6C8 + 3324 0001:002CA6DD 3325 0001:002CA6F2 3327 0001:002CA705 3331 0001:002CA70E + 3335 0001:002CA714 3336 0001:002CA71E 3339 0001:002CA720 3340 0001:002CA724 + 3341 0001:002CA736 3342 0001:002CA74E 3344 0001:002CA785 3348 0001:002CA788 + 3349 0001:002CA791 3350 0001:002CA79B 3351 0001:002CA7A4 3352 0001:002CA7AE + 3353 0001:002CA7C0 3354 0001:002CA7CA 3357 0001:002CA7CC 3358 0001:002CA7CF + 3360 0001:002CA7D8 3361 0001:002CA7EB 3362 0001:002CA7F8 3363 0001:002CA808 + 3365 0001:002CA81D 3366 0001:002CA827 3370 0001:002CA82C 3371 0001:002CA835 + 3372 0001:002CA83F 3373 0001:002CA848 3374 0001:002CA852 3383 0001:002CA854 + 3384 0001:002CA877 3385 0001:002CA87B 3387 0001:002CA8B3 3388 0001:002CA8E3 + 3390 0001:002CA8F9 3391 0001:002CA908 3392 0001:002CA916 3393 0001:002CA925 + 3394 0001:002CA933 3395 0001:002CA940 3397 0001:002CA966 3398 0001:002CA972 + 3399 0001:002CA97A 3400 0001:002CA98C 3401 0001:002CA99E 3400 0001:002CA9C9 + 3402 0001:002CA9CC 3404 0001:002CA9D7 3405 0001:002CA9E4 3406 0001:002CA9F2 + 3407 0001:002CA9FF 3408 0001:002CAA0D 3409 0001:002CAA20 3410 0001:002CAA4F + 3412 0001:002CAA95 3415 0001:002CAAB4 3416 0001:002CAAE2 3418 0001:002CAAEB + 3419 0001:002CAAF1 3423 0001:002CAB38 3426 0001:002CAB55 3430 0001:002CABBF + 3449 0001:002CACD0 3450 0001:002CACD3 3451 0001:002CACE0 3452 0001:002CACED + 3454 0001:002CACF0 3455 0001:002CAD13 3456 0001:002CAD20 3457 0001:002CAD24 + 3458 0001:002CAD2D 3459 0001:002CAD3A 3460 0001:002CAD47 3461 0001:002CAD5B + 3463 0001:002CAD87 3464 0001:002CADA3 3466 0001:002CADCE 3468 0001:002CADDF + 3469 0001:002CADE4 3470 0001:002CADF2 3471 0001:002CAE00 3473 0001:002CAE1C + 3474 0001:002CAE4A 3476 0001:002CAE5E 3477 0001:002CAE6C 3479 0001:002CAE72 + 3480 0001:002CAE80 3482 0001:002CAEAD 3483 0001:002CAEAF 3487 0001:002CAEBA + 3488 0001:002CAEBC 3490 0001:002CAECE 3491 0001:002CAEE1 3492 0001:002CAEE7 + 3494 0001:002CAF18 3495 0001:002CAF55 3496 0001:002CAF6F 3497 0001:002CAF75 + 3498 0001:002CAF7C 3499 0001:002CAF8A 3500 0001:002CAFB3 3503 0001:002CAFBF + 3504 0001:002CAFC4 3505 0001:002CAFE4 3507 0001:002CAFF4 3508 0001:002CB014 + 3510 0001:002CB024 3511 0001:002CB033 3512 0001:002CB042 3513 0001:002CB050 + 3514 0001:002CB086 3515 0001:002CB08C 3516 0001:002CB090 3517 0001:002CB09C + 3518 0001:002CB0A8 3519 0001:002CB0AE 3520 0001:002CB0B8 3521 0001:002CB0C4 + 3522 0001:002CB0CB 3523 0001:002CB0D3 3525 0001:002CB0E3 3527 0001:002CB0FA + 3528 0001:002CB11B 3530 0001:002CB139 3531 0001:002CB15A 3532 0001:002CB169 + 3533 0001:002CB16F 3534 0001:002CB173 3535 0001:002CB182 3536 0001:002CB190 + 3537 0001:002CB1A4 3540 0001:002CB1B2 3525 0001:002CB1B3 3543 0001:002CB1BC + 3544 0001:002CB1C2 3545 0001:002CB1C9 3547 0001:002CB1DE 3550 0001:002CB1EA + 3551 0001:002CB201 3553 0001:002CB20B 3555 0001:002CB216 3556 0001:002CB220 + 3557 0001:002CB22E 3558 0001:002CB239 3560 0001:002CB255 3562 0001:002CB267 + 3563 0001:002CB273 3564 0001:002CB285 3565 0001:002CB291 3566 0001:002CB2A4 + 3567 0001:002CB2AB 3569 0001:002CB2B1 3570 0001:002CB2BD 3573 0001:002CB2C5 + 3575 0001:002CB2CC 3576 0001:002CB2D0 3579 0001:002CB30A 3580 0001:002CB320 + 3581 0001:002CB35F 3582 0001:002CB3D9 3585 0001:002CB3E6 3579 0001:002CB3E7 + 3586 0001:002CB3F0 3588 0001:002CB3F4 3589 0001:002CB401 3590 0001:002CB414 + 3593 0001:002CB41B 3595 0001:002CB41F 3596 0001:002CB45A 3598 0001:002CB466 + 3594 0001:002CB467 3600 0001:002CB473 3602 0001:002CB483 3603 0001:002CB48C + 3604 0001:002CB496 3605 0001:002CB4A1 3607 0001:002CB4AB 3608 0001:002CB4C1 + 3609 0001:002CB54E 3607 0001:002CB54F 3610 0001:002CB556 3611 0001:002CB561 + 3613 0001:002CB570 3614 0001:002CB596 3615 0001:002CB5B9 3616 0001:002CB5CB + 3617 0001:002CB5DD 3618 0001:002CB5EC 3622 0001:002CB61B 3623 0001:002CB623 + 3628 0001:002CB633 3629 0001:002CB63D 3630 0001:002CB64B 3631 0001:002CB656 + 3633 0001:002CB672 3637 0001:002CB684 3638 0001:002CB68A 3641 0001:002CB6A8 + 3645 0001:002CB6C5 3648 0001:002CB6E2 3650 0001:002CB6E8 3651 0001:002CB6F0 + 3652 0001:002CB6F6 3656 0001:002CB7B7 3663 0001:002CBCB0 3664 0001:002CBCDB + 3665 0001:002CBCEF 3666 0001:002CBD2C 3667 0001:002CBD33 3668 0001:002CBD3A + 3669 0001:002CBD41 3670 0001:002CBD48 3671 0001:002CBD4F 3673 0001:002CBD56 + 3675 0001:002CBD59 3676 0001:002CBD5D 3677 0001:002CBD84 3678 0001:002CBD8A + 3679 0001:002CBDD9 3689 0001:002CBDE4 3690 0001:002CBDF0 3692 0001:002CBE26 + 3693 0001:002CBE39 3695 0001:002CBE41 3697 0001:002CBE61 3698 0001:002CBE78 + 3700 0001:002CBE99 3701 0001:002CBEA3 3702 0001:002CBEB1 3704 0001:002CBED1 + 3706 0001:002CBEE3 3710 0001:002CBEF2 3711 0001:002CBF0A 3712 0001:002CBF1B + 3714 0001:002CBF32 3715 0001:002CBF3F 3717 0001:002CBF55 3719 0001:002CBF5B + 3720 0001:002CBF64 3723 0001:002CBF6A 3724 0001:002CBF73 3725 0001:002CBF7D + 3726 0001:002CBF88 3728 0001:002CBF91 3729 0001:002CBF98 3730 0001:002CBFA3 + 3732 0001:002CBFAC 3733 0001:002CBFB3 3735 0001:002CBFBD 3737 0001:002CBFD4 + 3738 0001:002CBFE1 3739 0001:002CBFF8 3740 0001:002CC00F 3735 0001:002CC012 + 3741 0001:002CC015 3742 0001:002CC023 3743 0001:002CC031 3744 0001:002CC041 + 3750 0001:002CC054 3756 0001:002CC0A0 3757 0001:002CC0B8 3760 0001:002CC0F2 + 3762 0001:002CC10A 3763 0001:002CC11E 3764 0001:002CC12C 3766 0001:002CC13B + 3767 0001:002CC14A 3769 0001:002CC155 3770 0001:002CC180 3774 0001:002CC1A6 + 3778 0001:002CC1AC 3779 0001:002CC1B5 3782 0001:002CC1B8 3783 0001:002CC1BB + 3784 0001:002CC1C4 3785 0001:002CC1CD 3789 0001:002CC1D0 3790 0001:002CC1E0 + 3796 0001:002CC1E4 3797 0001:002CC200 3799 0001:002CC20D 3800 0001:002CC21F + 3801 0001:002CC224 3802 0001:002CC245 3801 0001:002CC281 3803 0001:002CC284 + 3805 0001:002CC2B3 3844 0001:002CC2BC 3845 0001:002CC2C3 3846 0001:002CC2C5 + 3847 0001:002CC2EB 3848 0001:002CC300 3850 0001:002CC304 3851 0001:002CC30D + 3853 0001:002CC317 3855 0001:002CC326 3856 0001:002CC329 3857 0001:002CC33B + 3859 0001:002CC33F 3862 0001:002CC352 3865 0001:002CC356 3866 0001:002CC358 + 3869 0001:002CC35C 3870 0001:002CC362 3871 0001:002CC371 3872 0001:002CC385 + 3875 0001:002CC388 3876 0001:002CC3A5 3877 0001:002CC3B4 3878 0001:002CC3F6 + 3882 0001:002CC43C 3883 0001:002CC446 3886 0001:002CC448 3887 0001:002CC44E + 3889 0001:002CC45D 3893 0001:002CC475 3894 0001:002CC47E 3895 0001:002CC48D + 3897 0001:002CC4A2 3898 0001:002CC4A9 3905 0001:002CC550 3906 0001:002CC56F + 3907 0001:002CC57B 3908 0001:002CC594 3909 0001:002CC5AD 3910 0001:002CC5D1 + 3911 0001:002CC5F5 3912 0001:002CC619 3913 0001:002CC63D 3914 0001:002CC651 + 3915 0001:002CC65F 3916 0001:002CC673 3917 0001:002CC681 3918 0001:002CC686 + 3919 0001:002CC69A 3920 0001:002CC6AE 3921 0001:002CC6B6 3922 0001:002CC6CF + 3923 0001:002CC6F4 3924 0001:002CC719 3925 0001:002CC732 3926 0001:002CC757 + 3928 0001:002CC789 3931 0001:002CC7B2 3933 0001:002CC7CE 3934 0001:002CC7FB + 3937 0001:002CC800 3938 0001:002CC818 3939 0001:002CC81D 3940 0001:002CC827 + 3941 0001:002CC83D 3942 0001:002CC847 3943 0001:002CC876 3944 0001:002CC89A + 3945 0001:002CC8BE 3947 0001:002CC8CB 3948 0001:002CC8D6 3949 0001:002CC8FA + 3950 0001:002CC905 3951 0001:002CC929 3952 0001:002CC934 3954 0001:002CC97A + 3961 0001:002CC9C0 3962 0001:002CC9CA 3963 0001:002CC9D3 3968 0001:002CCA02 + 3969 0001:002CCA0E 3971 0001:002CCA17 3975 0001:002CCA20 3976 0001:002CCA38 + 3980 0001:002CCA3C 3981 0001:002CCA54 3987 0001:002CCA58 3988 0001:002CCA7B + 3989 0001:002CCA88 3990 0001:002CCAAF 3991 0001:002CCAF7 3997 0001:002CCB24 + 3998 0001:002CCB3F 4001 0001:002CCB7F 4002 0001:002CCB8D 4004 0001:002CCB9C + 4005 0001:002CCBAB 4007 0001:002CCBB6 4008 0001:002CCBD5 4011 0001:002CCBFB + 4017 0001:002CCC04 4018 0001:002CCC1B 4021 0001:002CCC53 4022 0001:002CCC61 + 4024 0001:002CCC70 4025 0001:002CCC88 4028 0001:002CCCAE 4034 0001:002CCCB4 + 4035 0001:002CCCB7 4036 0001:002CCCB9 4038 0001:002CCCBD 4040 0001:002CCCCC + 4042 0001:002CCCD5 4044 0001:002CCCDF 4045 0001:002CCCEB 4047 0001:002CCCEF + 4049 0001:002CCCFC 4050 0001:002CCD0A 4051 0001:002CCD0E 4052 0001:002CCD12 + 4056 0001:002CCD16 4059 0001:002CCD21 4060 0001:002CCD23 4063 0001:002CCD2D + 4072 0001:002CCD34 4073 0001:002CCD57 4074 0001:002CCD66 4075 0001:002CCD74 + 4076 0001:002CCD8D 4080 0001:002CCDA3 4081 0001:002CCDB7 4083 0001:002CCDC9 + 4084 0001:002CCDD6 4085 0001:002CCE0F 4086 0001:002CCE1C 4081 0001:002CCE1D + 4089 0001:002CCE20 4091 0001:002CCE3E 4093 0001:002CCE70 4099 0001:002CCE7C + 4100 0001:002CCE9D 4103 0001:002CCEDC 4104 0001:002CCEEA 4106 0001:002CCF01 + 4108 0001:002CCF22 4109 0001:002CCF4C 4111 0001:002CCF54 4113 0001:002CCF96 + 4115 0001:002CCFA4 4116 0001:002CCFDB 4117 0001:002CCFEB 4120 0001:002CD022 + 4121 0001:002CD02B 4124 0001:002CD090 4132 0001:002CD0CC 4133 0001:002CD0E9 + 4134 0001:002CD0EC 4136 0001:002CD101 4137 0001:002CD113 4139 0001:002CD119 + 4140 0001:002CD12A 4143 0001:002CD140 4145 0001:002CD160 4149 0001:002CD168 + 4150 0001:002CD175 4152 0001:002CD17E 4153 0001:002CD184 4154 0001:002CD1AB + 4155 0001:002CD1B1 4156 0001:002CD1D6 4158 0001:002CD1DD 4159 0001:002CD1E3 + 4160 0001:002CD208 4162 0001:002CD20D 4167 0001:002CD214 4168 0001:002CD21D + 4169 0001:002CD220 4173 0001:002CD224 4176 0001:002CD22E 4177 0001:002CD253 + 4178 0001:002CD257 4179 0001:002CD25C 4181 0001:002CD29C 4181 0001:002CD2A3 + +Line numbers for dShared(dShared.pas) segment .text + + 104 0001:002CD41C 105 0001:002CD421 106 0001:002CD424 108 0001:002CD42E + 110 0001:002CD431 111 0001:002CD440 113 0001:002CD461 114 0001:002CD470 + 117 0001:002CD48A 118 0001:002CD493 120 0001:002CD4A1 122 0001:002CD4BC + 123 0001:002CD4C8 124 0001:002CD4CC 128 0001:002CD4CE 130 0001:002CD515 + 132 0001:002CD525 134 0001:002CD52F 136 0001:002CD533 137 0001:002CD536 + 139 0001:002CD538 132 0001:002CD53B 144 0001:002CD53E 155 0001:002CD544 + 156 0001:002CD561 157 0001:002CD582 158 0001:002CD5AC 159 0001:002CD5BF + 160 0001:002CD5CC 161 0001:002CD5F0 163 0001:002CD604 164 0001:002CD618 + 166 0001:002CD630 167 0001:002CD634 168 0001:002CD639 170 0001:002CD63F + 171 0001:002CD649 172 0001:002CD64D 176 0001:002CD659 177 0001:002CD669 + 178 0001:002CD66D 180 0001:002CD676 183 0001:002CD67C 184 0001:002CD684 + 187 0001:002CD68A 188 0001:002CD691 189 0001:002CD695 191 0001:002CD699 + 193 0001:002CD6A3 195 0001:002CD6A9 199 0001:002CD6DF 200 0001:002CD6F5 + 203 0001:002CD6FA 213 0001:002CD71C 214 0001:002CD72E 215 0001:002CD738 + 216 0001:002CD73C 218 0001:002CD753 219 0001:002CD75A 220 0001:002CD75F + 221 0001:002CD765 222 0001:002CD76C 223 0001:002CD77E 224 0001:002CD7A3 + 222 0001:002CD7A4 225 0001:002CD7A7 226 0001:002CD7C3 228 0001:002CD7CA + 250 0001:002CD7EC 251 0001:002CD7F0 252 0001:002CD7F2 255 0001:002CD7F4 + 256 0001:002CD7FC 258 0001:002CD800 253 0001:002CD805 260 0001:002CD80F + 267 0001:002CD814 268 0001:002CD832 269 0001:002CD838 270 0001:002CD83F + 272 0001:002CD851 273 0001:002CD854 275 0001:002CD869 277 0001:002CD87A + 278 0001:002CD880 279 0001:002CD886 281 0001:002CD88F 284 0001:002CD8B6 + 285 0001:002CD8C1 286 0001:002CD8D4 287 0001:002CD8F7 289 0001:002CD903 + 290 0001:002CD909 291 0001:002CD920 292 0001:002CD967 300 0001:002CD9A0 + 301 0001:002CD9C8 302 0001:002CD9CD 304 0001:002CD9D7 305 0001:002CD9F7 + 306 0001:002CDA04 308 0001:002CDA0C 309 0001:002CDA1C 310 0001:002CDA23 + 311 0001:002CDA31 315 0001:002CDA40 316 0001:002CDA5C 318 0001:002CDA61 + 312 0001:002CDA6A 320 0001:002CDA83 322 0001:002CDA8D 323 0001:002CDAA0 + 327 0001:002CDAAF 329 0001:002CDAC5 330 0001:002CDAE0 331 0001:002CDB10 + 333 0001:002CDB20 324 0001:002CDB29 335 0001:002CDB46 337 0001:002CDB55 + 338 0001:002CDB63 339 0001:002CDB73 343 0001:002CDB8B 347 0001:002CDBC7 + 354 0001:002CDBEC 355 0001:002CDC0A 357 0001:002CDC1D 359 0001:002CDC26 + 360 0001:002CDC2D 364 0001:002CDC31 365 0001:002CDC48 366 0001:002CDC6A + 367 0001:002CDC77 369 0001:002CDC80 371 0001:002CDC86 372 0001:002CDCA1 + 371 0001:002CDCBF 375 0001:002CDCC4 379 0001:002CDCF9 380 0001:002CDD11 + 383 0001:002CDD36 385 0001:002CDD64 386 0001:002CDD98 388 0001:002CDDA2 + 389 0001:002CDDA7 390 0001:002CDDB0 391 0001:002CDDBB 392 0001:002CDDC9 + 393 0001:002CDDD7 394 0001:002CDDE2 395 0001:002CDDE8 396 0001:002CDDF3 + 397 0001:002CDDF7 398 0001:002CDDFC 399 0001:002CDE0B 401 0001:002CDE19 + 402 0001:002CDE28 403 0001:002CDE36 404 0001:002CDE40 405 0001:002CDE4C + 406 0001:002CDE52 408 0001:002CDE69 409 0001:002CDE73 410 0001:002CDE7E + 411 0001:002CDE82 413 0001:002CDE99 416 0001:002CDEA5 417 0001:002CDEB4 + 419 0001:002CDEBB 420 0001:002CDEC6 421 0001:002CDEDD 422 0001:002CDEE3 + 423 0001:002CDEED 414 0001:002CDEF6 427 0001:002CDF06 428 0001:002CDF0E + 429 0001:002CDF12 432 0001:002CDF1E 433 0001:002CDF29 435 0001:002CDF40 + 436 0001:002CDF5A 437 0001:002CDF5E 438 0001:002CDF67 433 0001:002CDF6A + 440 0001:002CDF6D 442 0001:002CDF79 443 0001:002CDF85 444 0001:002CDF89 + 447 0001:002CDF93 449 0001:002CDF9D 450 0001:002CDFA9 452 0001:002CDFAD + 453 0001:002CDFB7 458 0001:002CDFCB 462 0001:002CDFE8 466 0001:002CE005 + 469 0001:002CE04A 473 0001:002CE06C 474 0001:002CE06F 475 0001:002CE081 + 476 0001:002CE090 477 0001:002CE09F 478 0001:002CE0AE 481 0001:002CE0B0 + 482 0001:002CE0B3 483 0001:002CE0C0 484 0001:002CE0CA 487 0001:002CE0CC + 488 0001:002CE0D3 489 0001:002CE0EA 490 0001:002CE0F7 491 0001:002CE10C + 497 0001:002CE110 498 0001:002CE113 500 0001:002CE11D 501 0001:002CE122 + 502 0001:002CE126 504 0001:002CE133 510 0001:002CE138 511 0001:002CE13D + 513 0001:002CE146 514 0001:002CE14B 515 0001:002CE15C 514 0001:002CE16F + 517 0001:002CE172 523 0001:002CE178 524 0001:002CE196 526 0001:002CE1AA + 527 0001:002CE1AE 528 0001:002CE1BD 529 0001:002CE1C5 530 0001:002CE1CA + 531 0001:002CE1E7 530 0001:002CE257 532 0001:002CE25C 533 0001:002CE267 + 535 0001:002CE290 541 0001:002CE2A4 542 0001:002CE2A6 543 0001:002CE2A8 + 545 0001:002CE2AC 548 0001:002CE2BB 549 0001:002CE2C4 546 0001:002CE2CD + 552 0001:002CE2D7 562 0001:002CE2DC 563 0001:002CE2F9 564 0001:002CE304 + 565 0001:002CE318 566 0001:002CE345 569 0001:002CE348 570 0001:002CE34B + 571 0001:002CE356 573 0001:002CE365 574 0001:002CE367 576 0001:002CE36C + 577 0001:002CE399 578 0001:002CE39F 579 0001:002CE3A7 580 0001:002CE3B1 + 581 0001:002CE3BB 583 0001:002CE3BF 584 0001:002CE3CF 586 0001:002CE3D9 + 587 0001:002CE3E9 588 0001:002CE3F8 590 0001:002CE3FC 591 0001:002CE408 + 593 0001:002CE40D 594 0001:002CE421 595 0001:002CE430 597 0001:002CE436 + 598 0001:002CE442 600 0001:002CE447 601 0001:002CE454 603 0001:002CE458 + 604 0001:002CE490 606 0001:002CE495 607 0001:002CE49D 608 0001:002CE4A1 + 610 0001:002CE4BB 612 0001:002CE4C0 614 0001:002CE4ED 615 0001:002CE4F1 + 617 0001:002CE516 618 0001:002CE531 620 0001:002CE556 622 0001:002CE558 + 610 0001:002CE559 623 0001:002CE562 624 0001:002CE568 608 0001:002CE569 + 625 0001:002CE572 627 0001:002CE578 628 0001:002CE59C 631 0001:002CE5A0 + 632 0001:002CE5AA 633 0001:002CE5B7 635 0001:002CE5BB 636 0001:002CE5CC + 637 0001:002CE5DD 639 0001:002CE5E3 640 0001:002CE5EF 641 0001:002CE5FE + 644 0001:002CE60D 645 0001:002CE61F 646 0001:002CE65D 653 0001:002CE7EC + 654 0001:002CE81F 655 0001:002CE824 656 0001:002CE832 657 0001:002CE855 + 659 0001:002CE85F 660 0001:002CE86E 663 0001:002CE877 664 0001:002CE87E + 665 0001:002CE888 666 0001:002CE88E 667 0001:002CE89B 669 0001:002CE8C0 + 672 0001:002CE8ED 673 0001:002CE8F3 675 0001:002CE903 676 0001:002CE909 + 677 0001:002CE94F 683 0001:002CE9DC 684 0001:002CE9E1 686 0001:002CE9EB + 687 0001:002CE9F6 686 0001:002CEA09 689 0001:002CEA0C 698 0001:002CEA10 + 699 0001:002CEA27 700 0001:002CEA29 702 0001:002CEA2D 704 0001:002CEA50 + 705 0001:002CEA52 707 0001:002CEA54 700 0001:002CEA5D 709 0001:002CEA80 + 711 0001:002CEA88 712 0001:002CEAB4 714 0001:002CEABE 715 0001:002CEAC3 + 716 0001:002CEAD4 715 0001:002CEAE0 717 0001:002CEAE3 718 0001:002CEAEB + 720 0001:002CEAFB 721 0001:002CEB0B 723 0001:002CEB15 724 0001:002CEB20 + 726 0001:002CEB24 727 0001:002CEB2A 728 0001:002CEB3A 729 0001:002CEB48 + 731 0001:002CEB55 732 0001:002CEB5C 733 0001:002CEB66 737 0001:002CEB70 + 738 0001:002CEB85 739 0001:002CEB8E 740 0001:002CEB92 742 0001:002CEB95 + 746 0001:002CEB9F 748 0001:002CEBA7 750 0001:002CEBE0 753 0001:002CEBF4 + 754 0001:002CEBF8 757 0001:002CEBFC 758 0001:002CEC08 760 0001:002CEC0C + 755 0001:002CEC15 762 0001:002CEC1F 772 0001:002CEC24 773 0001:002CEC50 + 774 0001:002CEC5E 775 0001:002CEC6C 777 0001:002CEC71 778 0001:002CEC81 + 780 0001:002CEC87 781 0001:002CEC88 782 0001:002CEC9E 784 0001:002CECA2 + 785 0001:002CECB6 788 0001:002CECBF 790 0001:002CECD2 792 0001:002CED0A + 802 0001:002CED14 803 0001:002CED3C 808 0001:002CED44 809 0001:002CED52 + 811 0001:002CED6C 813 0001:002CED6E 814 0001:002CED85 815 0001:002CED8F + 816 0001:002CED99 817 0001:002CEDBA 819 0001:002CEDC4 820 0001:002CEDCE + 821 0001:002CEDE6 822 0001:002CEDFF 823 0001:002CEE1A 824 0001:002CEE24 + 825 0001:002CEE41 826 0001:002CEE6B 827 0001:002CEE80 828 0001:002CEE8D + 832 0001:002CEEAD 833 0001:002CEEC4 834 0001:002CEED0 838 0001:002CEF06 + 848 0001:002CEF4C 849 0001:002CEF76 850 0001:002CEF7B 852 0001:002CEF81 + 854 0001:002CEF8F 855 0001:002CEFB2 856 0001:002CEFC6 859 0001:002CEFD3 + 861 0001:002CEFE3 864 0001:002CEFED 866 0001:002CEFFB 867 0001:002CF01E + 868 0001:002CF032 869 0001:002CF03F 871 0001:002CF042 872 0001:002CF04D + 873 0001:002CF05B 876 0001:002CF091 877 0001:002CF0BE 879 0001:002CF174 + 879 0001:002CF17B + +Line numbers for fTemplateImport(Templates\fTemplateImport.pas) segment .text + + 37 0001:002CF378 38 0001:002CF39E 40 0001:002CF3AB 41 0001:002CF3C4 + 44 0001:002CF3CE 45 0001:002CF3F8 46 0001:002CF423 47 0001:002CF435 + 48 0001:002CF43F 51 0001:002CF475 54 0001:002CF47C 55 0001:002CF480 + 57 0001:002CF489 58 0001:002CF49E 60 0001:002CF4A2 61 0001:002CF4B4 + 65 0001:002CF4C2 66 0001:002CF4C6 70 0001:002CF4CC 71 0001:002CF4D5 + 72 0001:002CF4DF 76 0001:002CF4E0 77 0001:002CF4E3 78 0001:002CF4F3 + 79 0001:002CF500 80 0001:002CF50C 82 0001:002CF558 82 0001:002CF55F + +Line numbers for uTemplates(Templates\uTemplates.pas) segment .text + + 399 0001:002CFA18 400 0001:002CFA43 401 0001:002CFA4E 403 0001:002CFA5B + 404 0001:002CFA63 405 0001:002CFA70 406 0001:002CFA82 407 0001:002CFA94 + 408 0001:002CFAA0 410 0001:002CFAB6 411 0001:002CFAC4 413 0001:002CFB11 + 422 0001:002CFB40 423 0001:002CFB4F 424 0001:002CFB5D 426 0001:002CFB63 + 427 0001:002CFB67 429 0001:002CFB6D 430 0001:002CFB8F 433 0001:002CFB95 + 434 0001:002CFBA0 435 0001:002CFBB2 440 0001:002CFBDE 441 0001:002CFBE5 + 447 0001:002CFBEC 448 0001:002CFC08 450 0001:002CFC23 453 0001:002CFC30 + 454 0001:002CFC37 455 0001:002CFC3E 457 0001:002CFC4B 458 0001:002CFC4F + 459 0001:002CFC54 461 0001:002CFC7A 463 0001:002CFCC1 464 0001:002CFCF7 + 465 0001:002CFD06 466 0001:002CFD0D 467 0001:002CFD15 469 0001:002CFD17 + 459 0001:002CFD1A 473 0001:002CFD25 474 0001:002CFD35 475 0001:002CFD44 + 476 0001:002CFD4B 479 0001:002CFD78 487 0001:002CFD80 488 0001:002CFDA8 + 489 0001:002CFDBB 490 0001:002CFDD0 492 0001:002CFDD9 493 0001:002CFDE9 + 495 0001:002CFDF3 496 0001:002CFE05 497 0001:002CFE15 499 0001:002CFE1E + 500 0001:002CFE27 501 0001:002CFE31 502 0001:002CFE3A 503 0001:002CFE44 + 504 0001:002CFE4D 505 0001:002CFE57 506 0001:002CFE60 507 0001:002CFE6A + 508 0001:002CFE73 512 0001:002CFE7D 513 0001:002CFE8D 514 0001:002CFE99 + 515 0001:002CFEA4 516 0001:002CFED2 523 0001:002CFEE4 524 0001:002CFEFE + 526 0001:002CFF0B 527 0001:002CFF15 528 0001:002CFF23 529 0001:002CFF2C + 530 0001:002CFF3D 531 0001:002CFF4C 532 0001:002CFF5A 533 0001:002CFF5F + 534 0001:002CFF74 535 0001:002CFF8C 534 0001:002CFFA7 536 0001:002CFFAC + 538 0001:002CFFC0 541 0001:002CFFDD 544 0001:002D0009 551 0001:002D0038 + 552 0001:002D0058 554 0001:002D0065 556 0001:002D0075 557 0001:002D007F + 558 0001:002D008D 559 0001:002D009C 560 0001:002D00AA 561 0001:002D00B5 + 562 0001:002D00CA 563 0001:002D00E2 562 0001:002D00FE 565 0001:002D0110 + 568 0001:002D012D 571 0001:002D013C 572 0001:002D0143 574 0001:002D014C + 575 0001:002D0165 578 0001:002D018E 584 0001:002D01BC 585 0001:002D01C2 + 587 0001:002D01CB 588 0001:002D01E5 587 0001:002D01FA 589 0001:002D01FF + 590 0001:002D0209 591 0001:002D0210 593 0001:002D0217 594 0001:002D021C + 596 0001:002D0225 597 0001:002D022F 599 0001:002D0236 601 0001:002D023F + 602 0001:002D0249 604 0001:002D0250 605 0001:002D0257 606 0001:002D025E + 607 0001:002D0265 608 0001:002D026C 609 0001:002D0273 615 0001:002D0278 + 616 0001:002D027E 618 0001:002D0287 619 0001:002D02A1 618 0001:002D02B9 + 621 0001:002D02BE 626 0001:002D02C4 627 0001:002D02E0 628 0001:002D02E6 + 630 0001:002D02EF 631 0001:002D0312 634 0001:002D0339 635 0001:002D0354 + 636 0001:002D0372 637 0001:002D0378 639 0001:002D03BB 641 0001:002D03C0 + 642 0001:002D03C7 643 0001:002D03D8 644 0001:002D03E9 645 0001:002D03FA + 646 0001:002D040B 648 0001:002D0412 655 0001:002D0418 656 0001:002D0442 + 657 0001:002D0447 659 0001:002D0451 660 0001:002D045A 661 0001:002D046B + 662 0001:002D0482 664 0001:002D049C 666 0001:002D04B9 667 0001:002D04C9 + 669 0001:002D04CB 662 0001:002D04CE 670 0001:002D04D3 672 0001:002D04D9 + 673 0001:002D04E4 674 0001:002D04EA 677 0001:002D0524 680 0001:002D0528 + 681 0001:002D054D 682 0001:002D0567 684 0001:002D0571 685 0001:002D05A5 + 691 0001:002D05AC 692 0001:002D05D1 693 0001:002D05E3 694 0001:002D05F4 + 695 0001:002D060E 696 0001:002D0625 697 0001:002D063F 699 0001:002D0664 + 705 0001:002D0668 706 0001:002D066E 707 0001:002D0672 709 0001:002D067B + 711 0001:002D0695 713 0001:002D06AB 714 0001:002D06AF 716 0001:002D06B1 + 709 0001:002D06B4 718 0001:002D06BC 721 0001:002D06C0 722 0001:002D06E7 + 723 0001:002D06ED 725 0001:002D0702 726 0001:002D072C 736 0001:002D0730 + 743 0001:002D075C 745 0001:002D0768 746 0001:002D0770 749 0001:002D0775 + 750 0001:002D077E 751 0001:002D078F 752 0001:002D0799 754 0001:002D07A7 + 756 0001:002D07C5 758 0001:002D07CE 760 0001:002D0800 761 0001:002D0818 + 763 0001:002D0826 764 0001:002D0840 763 0001:002D088C 767 0001:002D0893 + 770 0001:002D08A2 771 0001:002D08C3 773 0001:002D08E3 775 0001:002D0900 + 776 0001:002D0909 778 0001:002D091A 781 0001:002D0945 782 0001:002D0962 + 784 0001:002D09A1 785 0001:002D09BE 787 0001:002D09FB 788 0001:002D0A18 + 790 0001:002D0A4D 791 0001:002D0A6A 793 0001:002D0A9F 794 0001:002D0ABC + 796 0001:002D0AF1 797 0001:002D0B0E 799 0001:002D0B49 800 0001:002D0B66 + 802 0001:002D0BA7 803 0001:002D0BC4 805 0001:002D0C05 806 0001:002D0C22 + 808 0001:002D0C63 809 0001:002D0C80 811 0001:002D0CC1 813 0001:002D0CE6 + 814 0001:002D0CFD 816 0001:002D0D0E 819 0001:002D0D42 820 0001:002D0D5F + 822 0001:002D0DA0 824 0001:002D0DC0 825 0001:002D0DCC 827 0001:002D0DDD + 830 0001:002D0E17 832 0001:002D0E3C 833 0001:002D0E48 835 0001:002D0E59 + 838 0001:002D0E82 840 0001:002D0EA7 841 0001:002D0EB3 843 0001:002D0EC4 + 846 0001:002D0EED 848 0001:002D0F12 849 0001:002D0F21 851 0001:002D0F2B + 852 0001:002D0F3C 855 0001:002D0F5F 857 0001:002D0F97 858 0001:002D0FA6 + 859 0001:002D0FB4 860 0001:002D0FD0 862 0001:002D0FDC 863 0001:002D0FF4 + 862 0001:002D104E 866 0001:002D1055 867 0001:002D1062 869 0001:002D107C + 875 0001:002D108C 877 0001:002D109E 878 0001:002D10AF 880 0001:002D10D7 + 881 0001:002D10FF 882 0001:002D1105 884 0001:002D1115 888 0001:002D1124 + 890 0001:002D114E 891 0001:002D1154 892 0001:002D1164 893 0001:002D1172 + 894 0001:002D1182 896 0001:002D118B 897 0001:002D11A6 896 0001:002D11E5 + 900 0001:002D11EA 901 0001:002D11F4 903 0001:002D1203 904 0001:002D120E + 908 0001:002D125C 917 0001:002D144C 918 0001:002D1478 919 0001:002D1487 + 920 0001:002D1495 922 0001:002D14A2 923 0001:002D14AB 924 0001:002D14BC + 925 0001:002D14D6 924 0001:002D14F1 926 0001:002D14F6 927 0001:002D14FA + 928 0001:002D1506 929 0001:002D1515 931 0001:002D1533 932 0001:002D1543 + 933 0001:002D154C 935 0001:002D1578 936 0001:002D1582 937 0001:002D159D + 936 0001:002D15BD 938 0001:002D15C2 939 0001:002D15D3 940 0001:002D15D7 + 942 0001:002D15FD 944 0001:002D1634 946 0001:002D163A 947 0001:002D1647 + 949 0001:002D164B 951 0001:002D16BA 953 0001:002D16BE 940 0001:002D16C1 + 954 0001:002D16CA 955 0001:002D16D0 957 0001:002D16E9 958 0001:002D16F1 + 929 0001:002D16F4 959 0001:002D16FD 961 0001:002D1714 962 0001:002D171E + 964 0001:002D1728 965 0001:002D1734 968 0001:002D174B 969 0001:002D1759 + 971 0001:002D178E 977 0001:002D1824 978 0001:002D182A 980 0001:002D1833 + 981 0001:002D184D 980 0001:002D1864 983 0001:002D1869 989 0001:002D1870 + 990 0001:002D1879 992 0001:002D1885 993 0001:002D188E 994 0001:002D189F + 995 0001:002D18B2 996 0001:002D18B8 998 0001:002D18C8 999 0001:002D18D2 + 1000 0001:002D18DA 1001 0001:002D18F3 1000 0001:002D1909 1002 0001:002D190E + 1005 0001:002D1914 1006 0001:002D1933 1007 0001:002D1937 1008 0001:002D1953 + 1010 0001:002D1959 1011 0001:002D1970 1012 0001:002D1994 1015 0001:002D19B0 + 1016 0001:002D19D4 1017 0001:002D1A1A 1020 0001:002D1A4C 1021 0001:002D1A53 + 1022 0001:002D1A6F 1031 0001:002D1AD8 1032 0001:002D1AFE 1033 0001:002D1B11 + 1035 0001:002D1B88 1038 0001:002D1BB4 1039 0001:002D1BDA 1040 0001:002D1C38 + 1047 0001:002D1C40 1048 0001:002D1C6F 1050 0001:002D1C79 1051 0001:002D1C88 + 1052 0001:002D1C96 1053 0001:002D1CA1 1054 0001:002D1CD2 1055 0001:002D1CEA + 1054 0001:002D1D2E 1056 0001:002D1D33 1058 0001:002D1D71 1060 0001:002D1D81 + 1061 0001:002D1D87 1063 0001:002D1DB6 1089 0001:002D1E08 1090 0001:002D1E2F + 1091 0001:002D1E37 1093 0001:002D1E4D 1094 0001:002D1E5A 1095 0001:002D1E6C + 1096 0001:002D1E82 1091 0001:002D1E85 1097 0001:002D1E8A 1098 0001:002D1EC8 + 1104 0001:002D1ECC 1105 0001:002D1EFA 1106 0001:002D1F00 1108 0001:002D1F0B + 1109 0001:002D1F14 1111 0001:002D1F90 1117 0001:002D1FBC 1118 0001:002D1FD9 + 1119 0001:002D1FE6 1120 0001:002D1FEC 1121 0001:002D1FF9 1122 0001:002D2006 + 1124 0001:002D200C 1125 0001:002D2034 1126 0001:002D203D 1128 0001:002D206E + 1129 0001:002D2074 1130 0001:002D2081 1131 0001:002D208F 1132 0001:002D2095 + 1133 0001:002D20DE 1140 0001:002D2150 1141 0001:002D2170 1142 0001:002D217F + 1143 0001:002D218D 1144 0001:002D219A 1145 0001:002D21A2 1147 0001:002D21BA + 1148 0001:002D21C2 1149 0001:002D21D2 1150 0001:002D2206 1145 0001:002D2209 + 1152 0001:002D221B 1154 0001:002D224D 1156 0001:002D2280 1157 0001:002D22A6 + 1158 0001:002D22AA 1157 0001:002D22BD 1159 0001:002D22C3 1160 0001:002D22CE + 1161 0001:002D22D2 1162 0001:002D22E0 1163 0001:002D22EF 1164 0001:002D22FF + 1165 0001:002D230D 1166 0001:002D231E 1167 0001:002D232C 1168 0001:002D233E + 1169 0001:002D2348 1170 0001:002D2356 1171 0001:002D2367 1172 0001:002D2375 + 1173 0001:002D2383 1174 0001:002D238B 1175 0001:002D2399 1176 0001:002D23DF + 1178 0001:002D240E 1179 0001:002D2414 1181 0001:002D2420 1182 0001:002D242D + 1184 0001:002D2435 1186 0001:002D2442 1187 0001:002D244D 1189 0001:002D2453 + 1190 0001:002D2461 1191 0001:002D2467 1193 0001:002D247C 1195 0001:002D2492 + 1197 0001:002D249E 1198 0001:002D24CA 1199 0001:002D24D6 1201 0001:002D24E5 + 1204 0001:002D24F2 1205 0001:002D24FD 1206 0001:002D2544 1207 0001:002D2569 + 1209 0001:002D258E 1210 0001:002D2596 1211 0001:002D25A5 1212 0001:002D25B3 + 1213 0001:002D25C2 1214 0001:002D25D0 1215 0001:002D25DF 1216 0001:002D25ED + 1218 0001:002D25F2 1220 0001:002D2607 1222 0001:002D2613 1223 0001:002D2617 + 1224 0001:002D261F 1226 0001:002D2624 1227 0001:002D2634 1228 0001:002D263A + 1229 0001:002D2689 1230 0001:002D26A7 1233 0001:002D26C5 1234 0001:002D26CB + 1236 0001:002D26DC 1239 0001:002D26EC 1242 0001:002D26FC 1243 0001:002D2714 + 1245 0001:002D2725 1246 0001:002D275D 1247 0001:002D2761 1248 0001:002D2769 + 1251 0001:002D27D3 1252 0001:002D2843 1253 0001:002D2851 1254 0001:002D2857 + 1255 0001:002D285D 1257 0001:002D2861 1258 0001:002D286D 1259 0001:002D2871 + 1260 0001:002D28EB 1263 0001:002D28FF 1264 0001:002D2920 1267 0001:002D2946 + 1270 0001:002D294F 1271 0001:002D2953 1272 0001:002D295D 1276 0001:002D296F + 1277 0001:002D2973 1278 0001:002D297D 1282 0001:002D298F 1283 0001:002D29FF + 1284 0001:002D2A05 1286 0001:002D2A0B 1287 0001:002D2A16 1288 0001:002D2A1C + 1290 0001:002D2A25 1291 0001:002D2A2B 1292 0001:002D2A32 1296 0001:002D2A3B + 1297 0001:002D2A41 1298 0001:002D2A48 1299 0001:002D2A51 1301 0001:002D2A58 + 1302 0001:002D2A77 1305 0001:002D2A96 1306 0001:002D2A9C 1307 0001:002D2AC6 + 1308 0001:002D2ACC 1309 0001:002D2ADA 1310 0001:002D2AE5 1311 0001:002D2AED + 1316 0001:002D2AFE 1317 0001:002D2B09 1318 0001:002D2B82 1319 0001:002D2BA1 + 1320 0001:002D2BCF 1321 0001:002D2C0D 1322 0001:002D2C4B 1323 0001:002D2C79 + 1328 0001:002D2C89 1329 0001:002D2D16 1331 0001:002D2D20 1332 0001:002D2D2B + 1333 0001:002D2D9B 1334 0001:002D2DA1 1336 0001:002D2DC0 1337 0001:002D2DEE + 1339 0001:002D2E03 1340 0001:002D2E13 1341 0001:002D2ECE 1342 0001:002D2F0A + 1337 0001:002D2F0D 1343 0001:002D2F16 1344 0001:002D2F44 1348 0001:002D2F4F + 1350 0001:002D2F5F 1352 0001:002D2F69 1353 0001:002D2F74 1354 0001:002D2F82 + 1356 0001:002D2F88 1357 0001:002D2F9F 1358 0001:002D2FAE 1361 0001:002D2FBC + 1362 0001:002D2FCA 1364 0001:002D2FFB 1366 0001:002D3003 1218 0001:002D3006 + 1367 0001:002D300F 1369 0001:002D3019 1370 0001:002D3029 1373 0001:002D3062 + 1374 0001:002D307A 1376 0001:002D308B 1378 0001:002D30C3 1380 0001:002D30CD + 1382 0001:002D30DF 1385 0001:002D3139 1387 0001:002D314B 1388 0001:002D3158 + 1390 0001:002D3168 1391 0001:002D3175 1393 0001:002D3191 1394 0001:002D3199 + 1395 0001:002D31B8 1397 0001:002D31C4 1398 0001:002D321B 1400 0001:002D3226 + 1391 0001:002D3229 1401 0001:002D3232 1404 0001:002D323F 1405 0001:002D324C + 1408 0001:002D3262 1411 0001:002D327F 1414 0001:002D329C 1418 0001:002D32C7 + 1419 0001:002D32CA 1422 0001:002D32E7 1423 0001:002D32F6 1424 0001:002D3304 + 1427 0001:002D3321 1430 0001:002D3345 1431 0001:002D334D 1434 0001:002D336A + 1437 0001:002D338F 1439 0001:002D339C 1440 0001:002D33A2 1441 0001:002D3626 + 1444 0001:002D3860 1445 0001:002D3864 1447 0001:002D386B 1453 0001:002D3870 + 1454 0001:002D3876 1456 0001:002D387F 1457 0001:002D3899 1456 0001:002D38AE + 1459 0001:002D38B3 1462 0001:002D38B8 1463 0001:002D38C1 1464 0001:002D38C5 + 1466 0001:002D38CB 1467 0001:002D38D4 1468 0001:002D38E3 1469 0001:002D38EC + 1470 0001:002D38FB 1471 0001:002D3906 1473 0001:002D390C 1474 0001:002D3917 + 1476 0001:002D391E 1487 0001:002D394C 1488 0001:002D397D 1489 0001:002D3996 + 1491 0001:002D39A0 1493 0001:002D39AC 1494 0001:002D39B7 1498 0001:002D39C4 + 1499 0001:002D39D0 1502 0001:002D39EF 1503 0001:002D39FA 1505 0001:002D3A02 + 1507 0001:002D3A08 1508 0001:002D3A15 1514 0001:002D3A22 1515 0001:002D3A2D + 1516 0001:002D3A3A 1517 0001:002D3A42 1519 0001:002D3A77 1529 0001:002D3A80 + 1530 0001:002D3AAB 1531 0001:002D3ABA 1532 0001:002D3AC8 1533 0001:002D3AD5 + 1534 0001:002D3AEF 1536 0001:002D3B12 1538 0001:002D3B47 1547 0001:002D3B50 + 1548 0001:002D3B90 1549 0001:002D3B9A 1550 0001:002D3BA8 1551 0001:002D3BBA + 1552 0001:002D3BDB 1553 0001:002D3C17 1554 0001:002D3C1E 1556 0001:002D3C22 + 1558 0001:002D3C3E 1559 0001:002D3C47 1561 0001:002D3C49 1554 0001:002D3C4C + 1562 0001:002D3C52 1563 0001:002D3C5B 1564 0001:002D3CC6 1565 0001:002D3D08 + 1566 0001:002D3D2F 1567 0001:002D3D5E 1568 0001:002D3D8D 1569 0001:002D3DBC + 1570 0001:002D3DEB 1571 0001:002D3E1A 1572 0001:002D3E49 1573 0001:002D3E78 + 1574 0001:002D3EA7 1575 0001:002D3ED6 1576 0001:002D3F01 1577 0001:002D3F3D + 1578 0001:002D3F5E 1579 0001:002D3F8A 1580 0001:002D3FB3 1581 0001:002D3FDC + 1582 0001:002D3FF2 1583 0001:002D401B 1584 0001:002D4049 1585 0001:002D4077 + 1586 0001:002D4080 1587 0001:002D4089 1588 0001:002D4092 1590 0001:002D4099 + 1592 0001:002D40B0 1594 0001:002D4122 1605 0001:002D4168 1606 0001:002D41A3 + 1607 0001:002D41B0 1608 0001:002D41D4 1609 0001:002D41E7 1610 0001:002D41FE + 1611 0001:002D420C 1613 0001:002D4216 1614 0001:002D422E 1616 0001:002D4245 + 1617 0001:002D4260 1618 0001:002D4282 1620 0001:002D4286 1621 0001:002D42AD + 1622 0001:002D42E9 1618 0001:002D42EC 1623 0001:002D42F2 1614 0001:002D42F5 + 1626 0001:002D4300 1627 0001:002D4305 1628 0001:002D4315 1629 0001:002D431F + 1630 0001:002D432D 1632 0001:002D4337 1634 0001:002D434E 1635 0001:002D4369 + 1636 0001:002D438B 1638 0001:002D438F 1640 0001:002D43BE 1641 0001:002D43D2 + 1642 0001:002D43ED 1645 0001:002D4408 1646 0001:002D4410 1647 0001:002D4427 + 1649 0001:002D4431 1650 0001:002D4449 1652 0001:002D445C 1653 0001:002D4477 + 1654 0001:002D44AA 1655 0001:002D44C5 1650 0001:002D44C8 1660 0001:002D44CD + 1636 0001:002D44D0 1661 0001:002D44DA 1632 0001:002D44DD 1664 0001:002D44F3 + 1667 0001:002D4512 1669 0001:002D4522 1670 0001:002D452A 1671 0001:002D45D8 + 1674 0001:002D4600 1675 0001:002D4611 1676 0001:002D4619 1677 0001:002D4624 + 1678 0001:002D4638 1679 0001:002D4654 1682 0001:002D4658 1683 0001:002D4664 + 1684 0001:002D466C 1685 0001:002D467E 1686 0001:002D468C 1692 0001:002D4690 + 1693 0001:002D469C 1694 0001:002D46A4 1695 0001:002D46B5 1696 0001:002D46C7 + 1697 0001:002D46D5 1700 0001:002D46DC 1701 0001:002D46E5 1703 0001:002D46EE + 1704 0001:002D4700 1705 0001:002D4707 1706 0001:002D4715 1708 0001:002D472A + 1711 0001:002D4739 1712 0001:002D4745 1715 0001:002D474C 1716 0001:002D4755 + 1717 0001:002D475E 1719 0001:002D4770 1720 0001:002D477D 1721 0001:002D4783 + 1724 0001:002D478A 1730 0001:002D4790 1731 0001:002D4799 1733 0001:002D47AB + 1734 0001:002D47AF 1736 0001:002D47C8 1737 0001:002D47DC 1739 0001:002D47E6 + 1740 0001:002D47EE 1741 0001:002D47F4 1734 0001:002D47F7 1744 0001:002D47FE + 1745 0001:002D480A 1766 0001:002D4810 1767 0001:002D482F 1768 0001:002D4837 + 1769 0001:002D4857 1771 0001:002D4867 1773 0001:002D4870 1774 0001:002D487A + 1775 0001:002D4888 1776 0001:002D4893 1777 0001:002D48B6 1779 0001:002D48CA + 1782 0001:002D48D9 1784 0001:002D4904 1793 0001:002D4930 1794 0001:002D4958 + 1795 0001:002D4960 1796 0001:002D4980 1798 0001:002D498D 1799 0001:002D4995 + 1800 0001:002D499D 1802 0001:002D49A6 1803 0001:002D49BA 1802 0001:002D49CA + 1805 0001:002D49CF 1806 0001:002D49D8 1807 0001:002D49DE 1808 0001:002D49EC + 1810 0001:002D4A09 1811 0001:002D4A1A 1813 0001:002D4A31 1814 0001:002D4A37 + 1815 0001:002D4A45 1818 0001:002D4A92 1808 0001:002D4A95 1820 0001:002D4AAB + 1821 0001:002D4AB4 1824 0001:002D4AEC 1830 0001:002D4AFC 1831 0001:002D4B1B + 1832 0001:002D4B26 1833 0001:002D4B46 1834 0001:002D4B51 1835 0001:002D4B8E + 1836 0001:002D4B9E 1837 0001:002D4BEB 1841 0001:002D4BFC 1842 0001:002D4C1E + 1844 0001:002D4C3A 1846 0001:002D4C43 1848 0001:002D4C61 1849 0001:002D4C72 + 1852 0001:002D4C79 1854 0001:002D4C87 1855 0001:002D4CAB 1863 0001:002D4CB0 + 1864 0001:002D4CD2 1865 0001:002D4CDA 1866 0001:002D4CFA 1867 0001:002D4D09 + 1868 0001:002D4D17 1869 0001:002D4D21 1870 0001:002D4D2F 1871 0001:002D4D37 + 1873 0001:002D4D43 1874 0001:002D4D4A 1875 0001:002D4D50 1876 0001:002D4D56 + 1878 0001:002D4D5D 1879 0001:002D4D6B 1881 0001:002D4D8E 1882 0001:002D4D9A + 1884 0001:002D4DAA 1885 0001:002D4DB2 1886 0001:002D4DBE 1887 0001:002D4DEE + 1889 0001:002D4E06 1892 0001:002D4E22 1894 0001:002D4E54 1901 0001:002D4E94 + 1902 0001:002D4E9D 1904 0001:002D4EB0 1905 0001:002D4EBB 1907 0001:002D4EC1 + 1909 0001:002D4ECA 1911 0001:002D4EDF 1912 0001:002D4EF1 1915 0001:002D4EF8 + 1919 0001:002D4F09 1920 0001:002D4F0D 1922 0001:002D4F1F 1923 0001:002D4F27 + 1924 0001:002D4F40 1923 0001:002D4F5A 1926 0001:002D4F5F 1929 0001:002D4F68 + 1930 0001:002D4F88 1932 0001:002D4FA7 1933 0001:002D4FAD 1935 0001:002D4FE8 + 1941 0001:002D4FF0 1942 0001:002D4FFC 1944 0001:002D5009 1945 0001:002D501A + 1947 0001:002D502E 1957 0001:002D5034 1958 0001:002D503E 1959 0001:002D5044 + 1961 0001:002D506B 1962 0001:002D5076 1963 0001:002D5080 1964 0001:002D508E + 1965 0001:002D509E 1966 0001:002D50A6 1967 0001:002D50B5 1968 0001:002D50BC + 1969 0001:002D50C4 1970 0001:002D50DF 1969 0001:002D5101 1971 0001:002D5106 + 1972 0001:002D510E 1974 0001:002D512E 1977 0001:002D5143 1984 0001:002D5158 + 1985 0001:002D5179 1986 0001:002D51DA 1987 0001:002D51E3 1989 0001:002D51F2 + 1990 0001:002D51FF 1991 0001:002D5215 1992 0001:002D5224 1993 0001:002D5233 + 1994 0001:002D5242 1996 0001:002D524F 2005 0001:002D5384 2006 0001:002D53AF + 2007 0001:002D53D3 2008 0001:002D53EC 2009 0001:002D5405 2010 0001:002D5417 + 2011 0001:002D5421 2012 0001:002D542F 2013 0001:002D5445 2015 0001:002D5468 + 2017 0001:002D549F 2023 0001:002D54E0 2024 0001:002D54EC 2025 0001:002D54F4 + 2026 0001:002D54FC 2027 0001:002D5515 2026 0001:002D5540 2028 0001:002D5545 + 2031 0001:002D5558 2032 0001:002D5564 2033 0001:002D557B 2036 0001:002D5580 + 2037 0001:002D5587 2038 0001:002D558F 2039 0001:002D55A7 2040 0001:002D55B7 + 2043 0001:002D55BC 2044 0001:002D55D8 2046 0001:002D55E1 2048 0001:002D55F3 + 2049 0001:002D560C 2052 0001:002D5630 2055 0001:002D5634 2056 0001:002D5640 + 2058 0001:002D5657 2060 0001:002D5660 2062 0001:002D5675 2063 0001:002D5681 + 2066 0001:002D5688 2068 0001:002D5691 2071 0001:002D5698 2072 0001:002D56A4 + 2074 0001:002D56BB 2076 0001:002D56C4 2078 0001:002D56D9 2079 0001:002D56E5 + 2082 0001:002D56EC 2084 0001:002D56F5 2087 0001:002D56FC 2088 0001:002D5708 + 2090 0001:002D571F 2092 0001:002D5728 2094 0001:002D573D 2095 0001:002D5749 + 2098 0001:002D5750 2100 0001:002D5759 2103 0001:002D5760 2104 0001:002D576C + 2106 0001:002D5783 2108 0001:002D578C 2110 0001:002D57A1 2111 0001:002D57AD + 2114 0001:002D57B4 2116 0001:002D57BD 2119 0001:002D57C4 2120 0001:002D57D0 + 2122 0001:002D57EC 2124 0001:002D57F5 2126 0001:002D580A 2127 0001:002D5818 + 2130 0001:002D581F 2132 0001:002D582D 2135 0001:002D5834 2136 0001:002D5840 + 2138 0001:002D5857 2140 0001:002D5860 2142 0001:002D5875 2143 0001:002D5881 + 2146 0001:002D5888 2147 0001:002D5891 2148 0001:002D58A9 2150 0001:002D58B3 + 2153 0001:002D58B8 2154 0001:002D58D7 2156 0001:002D58E0 2157 0001:002D58E7 + 2158 0001:002D58EE 2159 0001:002D58F5 2160 0001:002D58FC 2161 0001:002D5903 + 2162 0001:002D590A 2163 0001:002D5911 2164 0001:002D5918 2165 0001:002D591F + 2166 0001:002D5926 2167 0001:002D592D 2168 0001:002D5934 2169 0001:002D593B + 2170 0001:002D5942 2171 0001:002D5949 2172 0001:002D5950 2173 0001:002D5957 + 2174 0001:002D595E 2175 0001:002D5965 2176 0001:002D596C 2178 0001:002D5972 + 2180 0001:002D597B 2181 0001:002D5994 2184 0001:002D599D 2187 0001:002D59C1 + 2190 0001:002D59C8 2191 0001:002D59E4 2192 0001:002D59F1 2194 0001:002D59FA + 2195 0001:002D5A1D 2196 0001:002D5A3C 2197 0001:002D5A5B 2198 0001:002D5A7A + 2199 0001:002D5A99 2200 0001:002D5AB8 2201 0001:002D5AD7 2202 0001:002D5AF6 + 2203 0001:002D5B15 2204 0001:002D5B34 2205 0001:002D5B53 2206 0001:002D5B72 + 2207 0001:002D5B91 2208 0001:002D5BBA 2209 0001:002D5BE1 2210 0001:002D5C03 + 2211 0001:002D5C2A 2212 0001:002D5C51 2213 0001:002D5C75 2214 0001:002D5C99 + 2216 0001:002D5CE5 2219 0001:002D5CEC 2220 0001:002D5CF8 2222 0001:002D5D14 + 2224 0001:002D5D1D 2226 0001:002D5D3B 2227 0001:002D5D4C 2230 0001:002D5D53 + 2232 0001:002D5D61 2233 0001:002D5D68 2236 0001:002D5D6C 2237 0001:002D5D8B + 2239 0001:002D5D94 2240 0001:002D5D9E 2241 0001:002D5DAC 2242 0001:002D5DB7 + 2244 0001:002D5DE7 2246 0001:002D5DF6 2248 0001:002D5DFD 2249 0001:002D5E28 + 2252 0001:002D5E54 2253 0001:002D5E60 2255 0001:002D5E77 2257 0001:002D5E80 + 2259 0001:002D5E95 2260 0001:002D5EA1 2263 0001:002D5EA8 2265 0001:002D5EB1 + 2268 0001:002D5EB8 2269 0001:002D5EC4 2271 0001:002D5EDB 2273 0001:002D5EE4 + 2275 0001:002D5EF9 2276 0001:002D5F05 2279 0001:002D5F0C 2281 0001:002D5F15 + 2284 0001:002D5F1C 2285 0001:002D5F28 2287 0001:002D5F3F 2289 0001:002D5F48 + 2291 0001:002D5F5D 2292 0001:002D5F69 2295 0001:002D5F70 2297 0001:002D5F79 + 2300 0001:002D5F80 2301 0001:002D5F8C 2303 0001:002D5FA3 2305 0001:002D5FAC + 2307 0001:002D5FC1 2308 0001:002D5FCD 2311 0001:002D5FD4 2313 0001:002D5FDD + 2316 0001:002D5FE4 2317 0001:002D5FF0 2319 0001:002D6007 2321 0001:002D6010 + 2323 0001:002D6025 2324 0001:002D6031 2327 0001:002D6038 2329 0001:002D6041 + 2332 0001:002D6048 2333 0001:002D6054 2335 0001:002D606B 2337 0001:002D6074 + 2339 0001:002D6089 2340 0001:002D6095 2343 0001:002D609C 2345 0001:002D60A5 + 2348 0001:002D60AC 2349 0001:002D60CB 2350 0001:002D60E0 2352 0001:002D60F1 + 2354 0001:002D6102 2355 0001:002D6110 2356 0001:002D6116 2358 0001:002D6124 + 2360 0001:002D6162 2368 0001:002D6180 2369 0001:002D61B8 2370 0001:002D61C5 + 2371 0001:002D61CA 2373 0001:002D61D0 2375 0001:002D61F3 2376 0001:002D61FC + 2377 0001:002D6207 2378 0001:002D6210 2381 0001:002D621B 2383 0001:002D621F + 2385 0001:002D6242 2391 0001:002D632E 2392 0001:002D6334 2393 0001:002D6352 + 2394 0001:002D63A1 2397 0001:002D63C0 2398 0001:002D63C9 2399 0001:002D63D5 + 2400 0001:002D63E2 2403 0001:002D63E8 2404 0001:002D63F1 2405 0001:002D640F + 2412 0001:002D6414 2413 0001:002D6440 2416 0001:002D644F 2417 0001:002D6482 + 2418 0001:002D6486 2420 0001:002D648B 2421 0001:002D648F 2422 0001:002D649C + 2423 0001:002D64E7 2424 0001:002D650B 2425 0001:002D6516 2427 0001:002D6525 + 2428 0001:002D653D 2429 0001:002D6550 2430 0001:002D6579 2431 0001:002D658D + 2432 0001:002D65A1 2433 0001:002D65B5 2434 0001:002D65C9 2435 0001:002D65DD + 2436 0001:002D65F1 2437 0001:002D6605 2438 0001:002D6619 2439 0001:002D662D + 2440 0001:002D664C 2441 0001:002D666B 2442 0001:002D6673 2444 0001:002D6683 + 2445 0001:002D66AE 2447 0001:002D66C7 2448 0001:002D66EA 2449 0001:002D66F0 + 2445 0001:002D66F3 2450 0001:002D66F8 2452 0001:002D6723 2453 0001:002D677F + 2465 0001:002D6918 2466 0001:002D693D 2467 0001:002D6948 2468 0001:002D694C + 2469 0001:002D6950 2471 0001:002D696C 2473 0001:002D69A0 2474 0001:002D69DB + 2475 0001:002D6A16 2477 0001:002D6A21 2478 0001:002D6A32 2480 0001:002D6A38 + 2482 0001:002D6A3E 2483 0001:002D6A49 2485 0001:002D6A4D 2487 0001:002D6A53 + 2488 0001:002D6A9B 2491 0001:002D6AAB 2493 0001:002D6AB0 2495 0001:002D6ABA + 2496 0001:002D6AC0 2469 0001:002D6AC3 2497 0001:002D6ACC 2500 0001:002D6AD2 + 2501 0001:002D6AE5 2502 0001:002D6AEB 2503 0001:002D6AFE 2504 0001:002D6B04 + 2505 0001:002D6B0C 2506 0001:002D6B25 2505 0001:002D6B3E 2508 0001:002D6B72 + 2511 0001:002D6BC4 2512 0001:002D6BE3 2514 0001:002D6C0A 2516 0001:002D6C13 + 2518 0001:002D6C28 2519 0001:002D6C3C 2522 0001:002D6C43 2523 0001:002D6C53 + 2524 0001:002D6C6E 2525 0001:002D6C86 2527 0001:002D6CAD 2530 0001:002D6CB4 + 2531 0001:002D6CC0 2532 0001:002D6CD9 2533 0001:002D6CEA 2534 0001:002D6CF2 + 2542 0001:002D6D04 2543 0001:002D6D21 2545 0001:002D6D51 2546 0001:002D6D65 + 2547 0001:002D6D71 2549 0001:002D6D7D 2550 0001:002D6D8E 2552 0001:002D6DA7 + 2556 0001:002D6DD1 2557 0001:002D6DF5 2560 0001:002D6E3C 2561 0001:002D6E45 + 2562 0001:002D6E6C 2565 0001:002D6E7C 2566 0001:002D6E83 2568 0001:002D6E9B + 2569 0001:002D6EA6 2571 0001:002D6EB0 2574 0001:002D6EB4 2575 0001:002D6EC0 + 2577 0001:002D6ED7 2579 0001:002D6EE0 2581 0001:002D6EF5 2582 0001:002D6F01 + 2585 0001:002D6F08 2587 0001:002D6F11 2590 0001:002D6F18 2591 0001:002D6F21 + 2592 0001:002D6F51 2595 0001:002D6F58 2596 0001:002D6F64 2598 0001:002D6F7E + 2600 0001:002D6F87 2602 0001:002D6F9C 2603 0001:002D6FAB 2606 0001:002D6FB2 + 2607 0001:002D6FBE 2609 0001:002D6FD4 2612 0001:002D6FD8 2613 0001:002D6FE4 + 2615 0001:002D7003 2617 0001:002D700C 2619 0001:002D7021 2620 0001:002D7035 + 2623 0001:002D703C 2625 0001:002D704C 2632 0001:002D7050 2633 0001:002D705F + 2634 0001:002D7065 2636 0001:002D708C 2638 0001:002D7095 2640 0001:002D70AA + 2641 0001:002D70BE 2644 0001:002D70C5 2645 0001:002D70D5 2646 0001:002D70E2 + 2647 0001:002D70EE 2648 0001:002D70F8 2649 0001:002D70FE 2651 0001:002D710C + 2653 0001:002D7112 2654 0001:002D711A 2655 0001:002D7133 2654 0001:002D714D + 2657 0001:002D7152 2660 0001:002D7158 2661 0001:002D7164 2662 0001:002D7171 + 2669 0001:002D7178 2670 0001:002D71A9 2671 0001:002D71B1 2673 0001:002D71C1 + 2674 0001:002D71C9 2675 0001:002D71E6 2676 0001:002D7218 2677 0001:002D7223 + 2679 0001:002D726F 2682 0001:002D7284 2683 0001:002D728D 2684 0001:002D7299 + 2685 0001:002D72B7 2686 0001:002D72BE 2692 0001:002D72C4 2693 0001:002D72CD + 2694 0001:002D72D1 2695 0001:002D72E5 2696 0001:002D72EB 2697 0001:002D72F1 + 2700 0001:002D72F7 2702 0001:002D72FB 2704 0001:002D7319 2705 0001:002D731F + 2707 0001:002D7321 2700 0001:002D7324 2710 0001:002D732D 2713 0001:002D7334 + 2714 0001:002D7340 2715 0001:002D7359 2718 0001:002D7360 2719 0001:002D7382 + 2720 0001:002D738E 2721 0001:002D73C0 2722 0001:002D73F3 2729 0001:002D73F8 + 2730 0001:002D741A 2731 0001:002D7430 2732 0001:002D7438 2733 0001:002D743E + 2735 0001:002D744D 2736 0001:002D7453 2738 0001:002D7462 2739 0001:002D7471 + 2740 0001:002D7477 2741 0001:002D74AA 2751 0001:002D755C 2752 0001:002D757F + 2754 0001:002D758E 2756 0001:002D7593 2757 0001:002D75AE 2759 0001:002D75B8 + 2760 0001:002D75C0 2762 0001:002D75D8 2763 0001:002D75EB 2767 0001:002D75FE + 2768 0001:002D760E 2770 0001:002D7614 2771 0001:002D762B 2772 0001:002D763B + 2774 0001:002D7641 2775 0001:002D7656 2776 0001:002D7668 2777 0001:002D7677 + 2780 0001:002D7684 2783 0001:002D768E 2765 0001:002D7696 2785 0001:002D76A0 + 2788 0001:002D76A5 2789 0001:002D76B0 2790 0001:002D76E4 2795 0001:002D7708 + 2796 0001:002D7772 2797 0001:002D7781 2798 0001:002D778F 2799 0001:002D779C + 2800 0001:002D77C7 2801 0001:002D780C 2802 0001:002D7858 2804 0001:002D7872 + 2805 0001:002D787D 2807 0001:002D78CB 2812 0001:002D7984 2813 0001:002D79EE + 2814 0001:002D79FD 2815 0001:002D7A0B 2816 0001:002D7A18 2817 0001:002D7A43 + 2818 0001:002D7A82 2819 0001:002D7AC8 2821 0001:002D7AE2 2822 0001:002D7AED + 2824 0001:002D7B3B 2835 0001:002D7BF4 2838 0001:002D7C31 2839 0001:002D7C39 + 2840 0001:002D7C47 2842 0001:002D7C63 2843 0001:002D7C91 2845 0001:002D7CA0 + 2846 0001:002D7CAE 2848 0001:002D7CB8 2849 0001:002D7CCB 2850 0001:002D7CD1 + 2851 0001:002D7CF5 2852 0001:002D7D0F 2853 0001:002D7D1F 2854 0001:002D7D2D + 2857 0001:002D7D65 2858 0001:002D7D73 2859 0001:002D7D79 2860 0001:002D7D9D + 2863 0001:002D7DB2 2864 0001:002D7DBA 2868 0001:002D7DD7 2870 0001:002D7E36 + 2873 0001:002D7ED8 2874 0001:002D7EE4 2875 0001:002D7EFD 2880 0001:002D7F04 + 2882 0001:002D7F95 2877 0001:002D7F98 2879 0001:002D7F9F + +Line numbers for fDrawers(fDrawers.pas) segment .text + + 223 0001:002D8874 224 0001:002D888A 237 0001:002D888C 238 0001:002D88A2 + 239 0001:002D88B0 240 0001:002D88BE 242 0001:002D88C0 243 0001:002D88D0 + 244 0001:002D88DD 245 0001:002D88E7 240 0001:002D88E8 247 0001:002D88FA + 249 0001:002D8910 251 0001:002D8918 252 0001:002D8923 254 0001:002D8940 + 255 0001:002D894D 256 0001:002D894F 257 0001:002D8958 259 0001:002D895A + 260 0001:002D896B 262 0001:002D897B 263 0001:002D8982 264 0001:002D898B + 265 0001:002D8995 267 0001:002D89A2 269 0001:002D89C0 270 0001:002D89DF + 271 0001:002D89F0 272 0001:002D8A03 274 0001:002D8A14 275 0001:002D8A1F + 278 0001:002D8A2B 280 0001:002D8A35 257 0001:002D8A36 281 0001:002D8A3F + 282 0001:002D8A48 283 0001:002D8A50 284 0001:002D8A5E 286 0001:002D8A75 + 289 0001:002D8A85 299 0001:002D8A8C 300 0001:002D8A96 302 0001:002D8A9F + 303 0001:002D8AA3 305 0001:002D8AA5 306 0001:002D8AB5 308 0001:002D8ABE + 309 0001:002D8AC2 311 0001:002D8AC4 303 0001:002D8AC5 312 0001:002D8ACA + 313 0001:002D8AD0 315 0001:002D8ADC 319 0001:002D8AE4 321 0001:002D8AED + 322 0001:002D8AF5 323 0001:002D8B01 324 0001:002D8B10 325 0001:002D8B1C + 326 0001:002D8B2B 327 0001:002D8B37 328 0001:002D8B46 329 0001:002D8B52 + 331 0001:002D8B61 332 0001:002D8B67 341 0001:002D8B68 342 0001:002D8B73 + 344 0001:002D8B8F 345 0001:002D8B98 346 0001:002D8B9E 347 0001:002D8BA7 + 349 0001:002D8BA9 350 0001:002D8BBB 351 0001:002D8BD7 352 0001:002D8BE2 + 353 0001:002D8BED 347 0001:002D8BEE 354 0001:002D8BF3 355 0001:002D8BFD + 356 0001:002D8C03 357 0001:002D8C0A 359 0001:002D8C10 360 0001:002D8C1B + 364 0001:002D8C28 365 0001:002D8C33 368 0001:002D8C3E 375 0001:002D8C4C + 376 0001:002D8C58 378 0001:002D8C67 379 0001:002D8C6F 380 0001:002D8C7D + 382 0001:002D8C8A 383 0001:002D8C9B 384 0001:002D8CA5 385 0001:002D8CB6 + 386 0001:002D8CBF 387 0001:002D8CC6 388 0001:002D8CD0 390 0001:002D8CDA + 392 0001:002D8CDE 393 0001:002D8CE7 397 0001:002D8CF3 398 0001:002D8D04 + 400 0001:002D8D1C 401 0001:002D8D26 402 0001:002D8D30 403 0001:002D8D41 + 404 0001:002D8D4A 405 0001:002D8D51 406 0001:002D8D5B 409 0001:002D8D66 + 412 0001:002D8D7D 414 0001:002D8D8D 416 0001:002D8D95 420 0001:002D8D9C + 421 0001:002D8DA3 424 0001:002D8DB5 425 0001:002D8DBD 430 0001:002D8DC7 + 431 0001:002D8DCF 436 0001:002D8DD9 437 0001:002D8DE1 442 0001:002D8DEB + 443 0001:002D8DF3 448 0001:002D8DFD 449 0001:002D8E01 452 0001:002D8E05 + 456 0001:002D8E0C 457 0001:002D8E27 458 0001:002D8E32 459 0001:002D8E3A + 460 0001:002D8E48 461 0001:002D8E54 462 0001:002D8E61 463 0001:002D8E6C + 464 0001:002D8E76 465 0001:002D8E81 466 0001:002D8E8B 467 0001:002D8EA6 + 468 0001:002D8EB9 469 0001:002D8EC1 470 0001:002D8ECC 471 0001:002D8ED7 + 473 0001:002D8EEC 475 0001:002D8F17 482 0001:002D8F20 483 0001:002D8F2F + 484 0001:002D8F38 485 0001:002D8F46 486 0001:002D8F57 487 0001:002D8F65 + 488 0001:002D8F7F 490 0001:002D8F96 492 0001:002D8FA7 493 0001:002D8FAF + 494 0001:002D8FB2 500 0001:002D8FB8 501 0001:002D8FC5 503 0001:002D8FE4 + 504 0001:002D8FF0 505 0001:002D8FF9 506 0001:002D9007 507 0001:002D9009 + 506 0001:002D9024 509 0001:002D9036 511 0001:002D9047 513 0001:002D904F + 516 0001:002D9058 517 0001:002D905B 519 0001:002D906D 520 0001:002D9076 + 521 0001:002D9083 522 0001:002D9092 523 0001:002D909F 525 0001:002D90A6 + 528 0001:002D90A8 529 0001:002D90BE 531 0001:002D90C7 532 0001:002D90CE + 533 0001:002D90EE 535 0001:002D9102 536 0001:002D9128 540 0001:002D912C + 541 0001:002D9133 544 0001:002D9134 545 0001:002D9137 546 0001:002D9141 + 549 0001:002D914C 550 0001:002D9151 552 0001:002D915A 553 0001:002D9165 + 554 0001:002D9172 555 0001:002D9186 556 0001:002D918F 559 0001:002D9198 + 561 0001:002D91A1 565 0001:002D91A4 566 0001:002D91AB 570 0001:002D91AC + 571 0001:002D91B4 573 0001:002D91BC 574 0001:002D91C1 578 0001:002D91C4 + 579 0001:002D91D3 583 0001:002D91D4 584 0001:002D91DA 591 0001:002D91DC + 592 0001:002D91E2 593 0001:002D91F1 594 0001:002D9201 595 0001:002D9205 + 596 0001:002D9207 597 0001:002D920D 608 0001:002D9210 609 0001:002D9235 + 610 0001:002D923D 611 0001:002D924B 612 0001:002D9256 613 0001:002D9258 + 615 0001:002D925A 616 0001:002D926A 618 0001:002D92B5 619 0001:002D92C0 + 620 0001:002D92C9 621 0001:002D92E8 622 0001:002D92EC 623 0001:002D92EE + 613 0001:002D92EF 624 0001:002D92F8 626 0001:002D92FC 628 0001:002D92FE + 629 0001:002D930E 630 0001:002D931A 626 0001:002D931B 632 0001:002D9320 + 634 0001:002D9346 636 0001:002D9356 637 0001:002D9380 643 0001:002D9388 + 644 0001:002D93A6 645 0001:002D93B0 646 0001:002D93BE 648 0001:002D93CB + 649 0001:002D93D2 650 0001:002D93D9 651 0001:002D93FA 652 0001:002D940E + 653 0001:002D9425 654 0001:002D9442 655 0001:002D9471 656 0001:002D94A0 + 657 0001:002D94C1 658 0001:002D94CB 659 0001:002D94E1 660 0001:002D94EE + 661 0001:002D94FB 662 0001:002D950F 663 0001:002D9523 665 0001:002D954E + 669 0001:002D956C 670 0001:002D958A 675 0001:002D958C 676 0001:002D958F + 677 0001:002D95A6 681 0001:002D95A8 685 0001:002D95C5 687 0001:002D9612 + 688 0001:002D964B 692 0001:002D9684 693 0001:002D96A5 695 0001:002D96A9 + 696 0001:002D96BD 698 0001:002D96C6 700 0001:002D96CF 701 0001:002D96D6 + 702 0001:002D96DD 703 0001:002D96E0 706 0001:002D96E6 708 0001:002D96EB + 709 0001:002D96F2 710 0001:002D9711 716 0001:002D971D 718 0001:002D978C + 721 0001:002D97C8 722 0001:002D97CF 724 0001:002D97DB 725 0001:002D97E5 + 726 0001:002D97EF 727 0001:002D97FD 728 0001:002D9809 730 0001:002D981B + 732 0001:002D9838 735 0001:002D984A 739 0001:002D9850 740 0001:002D9857 + 741 0001:002D985C 744 0001:002D9860 745 0001:002D9863 748 0001:002D9875 + 749 0001:002D987C 751 0001:002D98A2 753 0001:002D98A9 757 0001:002D98AC + 758 0001:002D98C9 760 0001:002D98CD 761 0001:002D98E1 763 0001:002D98EA + 765 0001:002D98F3 766 0001:002D98FA 767 0001:002D9901 768 0001:002D9907 + 771 0001:002D990D 772 0001:002D9915 777 0001:002D991C 779 0001:002D998B + 783 0001:002D99C4 784 0001:002D99CD 785 0001:002D99D4 788 0001:002D99E3 + 789 0001:002D99EA 792 0001:002D99EF 796 0001:002D99F8 797 0001:002D99FB + 798 0001:002D9A00 801 0001:002D9A04 802 0001:002D9A05 804 0001:002D9A13 + 806 0001:002D9A17 807 0001:002D9A2F 809 0001:002D9A47 810 0001:002D9A4F + 812 0001:002D9A53 813 0001:002D9A6B 814 0001:002D9A89 815 0001:002D9A9F + 818 0001:002D9AAF 825 0001:002D9AB4 826 0001:002D9AC0 827 0001:002D9ACE + 828 0001:002D9AD9 829 0001:002D9AFC 834 0001:002D9B04 835 0001:002D9B0A + 837 0001:002D9B12 838 0001:002D9B1F 841 0001:002D9B28 842 0001:002D9B32 + 843 0001:002D9B46 848 0001:002D9B4C 849 0001:002D9B56 850 0001:002D9B59 + 852 0001:002D9B61 854 0001:002D9B77 855 0001:002D9B7A 859 0001:002D9B89 + 860 0001:002D9B93 861 0001:002D9BAC 869 0001:002D9BB4 870 0001:002D9BD0 + 871 0001:002D9BD8 873 0001:002D9C0D 874 0001:002D9C1B 875 0001:002D9C22 + 876 0001:002D9C2B 879 0001:002D9C3A 880 0001:002D9C43 882 0001:002D9C55 + 883 0001:002D9C5F 885 0001:002D9C69 886 0001:002D9C86 887 0001:002D9CAF + 888 0001:002D9CBD 889 0001:002D9CCB 890 0001:002D9CE5 891 0001:002D9D01 + 895 0001:002D9D42 903 0001:002D9D60 904 0001:002D9D7D 905 0001:002D9D81 + 906 0001:002D9D83 908 0001:002D9D90 909 0001:002D9D9D 910 0001:002D9DAA + 911 0001:002D9DB0 913 0001:002D9DB6 915 0001:002D9DB9 916 0001:002D9DC8 + 919 0001:002D9DE6 920 0001:002D9E04 921 0001:002D9E16 922 0001:002D9E3E + 923 0001:002D9E4C 927 0001:002D9E8A 928 0001:002D9E97 929 0001:002D9EA4 + 931 0001:002D9EB1 932 0001:002D9EBE 933 0001:002D9ECB 934 0001:002D9EEF + 935 0001:002D9F04 937 0001:002D9F34 938 0001:002D9F52 939 0001:002D9F92 + 946 0001:002D9F9C 947 0001:002D9FB3 949 0001:002D9FC2 951 0001:002D9FE5 + 952 0001:002D9FF3 953 0001:002D9FFA 954 0001:002DA004 955 0001:002DA00F + 958 0001:002DA039 961 0001:002DA05C 962 0001:002DA05F 963 0001:002DA06F + 964 0001:002DA07D 965 0001:002DA08A 968 0001:002DA08C 969 0001:002DA08F + 970 0001:002DA09C 971 0001:002DA0A7 974 0001:002DA0AC 975 0001:002DA0AF + 976 0001:002DA0B4 979 0001:002DA0DB 980 0001:002DA0EC 982 0001:002DA0F3 + 983 0001:002DA104 984 0001:002DA10D 992 0001:002DA110 993 0001:002DA130 + 995 0001:002DA14B 997 0001:002DA157 998 0001:002DA161 999 0001:002DA16B + 1000 0001:002DA179 1001 0001:002DA18F 1003 0001:002DA193 1004 0001:002DA19C + 1001 0001:002DA1A5 1007 0001:002DA1B6 1008 0001:002DA1C0 1011 0001:002DA1D2 + 1012 0001:002DA1EA 1014 0001:002DA1FC 1015 0001:002DA212 1016 0001:002DA214 + 1018 0001:002DA21C 1019 0001:002DA22D 1020 0001:002DA242 1023 0001:002DA25A + 1024 0001:002DA265 1025 0001:002DA27A 1026 0001:002DA290 1027 0001:002DA2B0 + 1028 0001:002DA2B4 1021 0001:002DA2BD 1031 0001:002DA2C5 1033 0001:002DA2C9 + 1034 0001:002DA2D2 1035 0001:002DA2DC 1036 0001:002DA2E6 1037 0001:002DA2F4 + 1039 0001:002DA311 1044 0001:002DA323 1045 0001:002DA32F 1047 0001:002DA339 + 1048 0001:002DA364 1049 0001:002DA36E 1052 0001:002DA38F 1053 0001:002DA3E7 + 1057 0001:002DA448 1059 0001:002DA450 1060 0001:002DA458 1061 0001:002DA46E + 1063 0001:002DA47E 1066 0001:002DA4A4 1067 0001:002DA4BA 1068 0001:002DA4DA + 1069 0001:002DA500 1075 0001:002DA504 1076 0001:002DA50A 1077 0001:002DA517 + 1078 0001:002DA522 1079 0001:002DA52B 1080 0001:002DA545 1084 0001:002DA548 + 1085 0001:002DA555 1089 0001:002DA558 1090 0001:002DA565 1096 0001:002DA568 + 1097 0001:002DA56C 1098 0001:002DA57D 1099 0001:002DA586 1100 0001:002DA593 + 1101 0001:002DA5A0 1102 0001:002DA5AE 1107 0001:002DA5B4 1108 0001:002DA5BB + 1110 0001:002DA5C9 1111 0001:002DA5CF 1115 0001:002DA5D4 1116 0001:002DA5DC + 1118 0001:002DA5DF 1122 0001:002DA5E4 1123 0001:002DA5EF 1127 0001:002DA5F0 + 1128 0001:002DA5FB 1131 0001:002DA5FC 1132 0001:002DA5FF 1133 0001:002DA60D + 1134 0001:002DA614 1135 0001:002DA624 1138 0001:002DA628 1139 0001:002DA63F + 1140 0001:002DA657 1141 0001:002DA686 1142 0001:002DA697 1143 0001:002DA69E + 1144 0001:002DA6A6 1145 0001:002DA6CA 1149 0001:002DA6D0 1150 0001:002DA6E2 + 1153 0001:002DA6E8 1154 0001:002DA6F5 1156 0001:002DA6FB 1158 0001:002DA6FF + 1159 0001:002DA709 1163 0001:002DA715 1165 0001:002DA722 1167 0001:002DA72B + 1168 0001:002DA738 1170 0001:002DA743 1173 0001:002DA74C 1177 0001:002DA758 + 1178 0001:002DA76A 1182 0001:002DA76C 1183 0001:002DA776 1186 0001:002DA778 + 1187 0001:002DA77B 1188 0001:002DA79E 1190 0001:002DA7A9 1191 0001:002DA7B6 + 1194 0001:002DA7BC 1195 0001:002DA7BF 1196 0001:002DA7C8 1197 0001:002DA7E2 + 1200 0001:002DA7E4 1201 0001:002DA7E7 1203 0001:002DA80D 1204 0001:002DA814 + 1207 0001:002DA818 1208 0001:002DA819 1210 0001:002DA823 1211 0001:002DA827 + 1212 0001:002DA83F 1213 0001:002DA847 1215 0001:002DA84B 1216 0001:002DA863 + 1217 0001:002DA879 1220 0001:002DA884 1223 0001:002DA888 1224 0001:002DA88B + 1225 0001:002DA896 1228 0001:002DA89C 1229 0001:002DA89F 1230 0001:002DA8A5 + 1232 0001:002DA8A9 1233 0001:002DA8B8 1237 0001:002DA8C7 1238 0001:002DA8D4 + 1240 0001:002DA8E1 1248 0001:002DA8E4 1249 0001:002DA8E7 1250 0001:002DA8FE + 1252 0001:002DA902 1253 0001:002DA90F 1250 0001:002DA914 1255 0001:002DA918 + 1257 0001:002DA91C 1258 0001:002DA924 1259 0001:002DA92E 1261 0001:002DA93D + 1263 0001:002DA941 1265 0001:002DA95F 1266 0001:002DA971 1267 0001:002DA97B + 1269 0001:002DA985 1270 0001:002DA98C 1271 0001:002DA990 1277 0001:002DA99B + 1279 0001:002DA9A5 1280 0001:002DA9AC 1282 0001:002DA9B5 1285 0001:002DA9BF + 1288 0001:002DA9C4 1289 0001:002DA9CB 1290 0001:002DA9D4 1291 0001:002DA9E2 + 1293 0001:002DA9FA 1294 0001:002DAA08 1298 0001:002DAA2E 1299 0001:002DAA3F + 1301 0001:002DAA4F 1303 0001:002DAA78 1305 0001:002DAA89 1309 0001:002DAA8C + 1310 0001:002DAA95 1312 0001:002DAABD 1313 0001:002DAAD4 1319 0001:002DAADC + 1320 0001:002DAAF8 1322 0001:002DAB00 1324 0001:002DAB15 1325 0001:002DAB17 + 1326 0001:002DAB1D 1329 0001:002DAB41 1330 0001:002DAB89 1331 0001:002DAB98 + 1333 0001:002DABA8 1337 0001:002DABB2 1338 0001:002DABE1 1343 0001:002DABF4 + 1344 0001:002DABFE 1345 0001:002DAC07 1348 0001:002DAC08 1349 0001:002DAC0E + 1350 0001:002DAC17 1351 0001:002DAC29 1352 0001:002DAC3A 1355 0001:002DAC40 + 1356 0001:002DAC43 1357 0001:002DAC4D 1358 0001:002DAC5A 1362 0001:002DAC60 + 1363 0001:002DAC63 1366 0001:002DAC64 1367 0001:002DAC67 1368 0001:002DAC6E + 1369 0001:002DAC75 1372 0001:002DAC78 1373 0001:002DAC90 1374 0001:002DACDE + 1380 0001:002DACE4 1381 0001:002DACFF 1382 0001:002DAD20 1383 0001:002DAD3E + 1384 0001:002DAD4B 1386 0001:002DAD7C 1387 0001:002DADAB 1393 0001:002DADB4 + 1394 0001:002DADD6 1395 0001:002DADDC 1396 0001:002DADEC 1398 0001:002DADFC + 1399 0001:002DAE08 1400 0001:002DAE14 1401 0001:002DAE22 1402 0001:002DAE2C + 1403 0001:002DAE36 1405 0001:002DAE6A 1406 0001:002DAE76 1408 0001:002DAE8A + 1410 0001:002DAEB4 1413 0001:002DAEB8 1414 0001:002DAED0 1415 0001:002DAF1A + 1422 0001:002DAF20 1423 0001:002DAF3B 1425 0001:002DAF4E 1426 0001:002DAF5C + 1427 0001:002DAF6C 1430 0001:002DAF86 1431 0001:002DAF95 1432 0001:002DAFA3 + 1433 0001:002DAFB8 1435 0001:002DAFE2 1439 0001:002DB014 1446 0001:002DB048 + 1447 0001:002DB060 1448 0001:002DB068 1452 0001:002DB0B2 1453 0001:002DB0C0 + 1454 0001:002DB0CA 1455 0001:002DB0E7 1456 0001:002DB0ED 1458 0001:002DB101 + 1459 0001:002DB107 1460 0001:002DB133 1465 0001:002DB178 1466 0001:002DB17B + 1469 0001:002DB1A6 1471 0001:002DB1A8 1472 0001:002DB1B6 1473 0001:002DB1BF + 1474 0001:002DB1D5 1476 0001:002DB1D9 1479 0001:002DB210 1480 0001:002DB222 + 1482 0001:002DB22D 1486 0001:002DB234 1487 0001:002DB23D 1490 0001:002DB240 + 1491 0001:002DB243 1492 0001:002DB252 1494 0001:002DB287 1496 0001:002DB292 + 1497 0001:002DB29B 1500 0001:002DB2A0 1501 0001:002DB2A6 1502 0001:002DB2B3 + 1503 0001:002DB2BA 1504 0001:002DB2C3 1508 0001:002DB2C8 1509 0001:002DB2D1 + 1512 0001:002DB2E0 1513 0001:002DB2F7 1516 0001:002DB2FC 1522 0001:002DB304 + 1523 0001:002DB31F 1524 0001:002DB337 1525 0001:002DB34B 1526 0001:002DB375 + 1527 0001:002DB383 1528 0001:002DB391 1529 0001:002DB39F 1531 0001:002DB3CD + 1535 0001:002DB434 1536 0001:002DB437 1537 0001:002DB450 1541 0001:002DB454 + 1542 0001:002DB457 1543 0001:002DB470 1548 0001:002DB474 1549 0001:002DB477 + 1551 0001:002DB488 1552 0001:002DB497 1557 0001:002DB4D3 1558 0001:002DB4D7 + 1561 0001:002DB4E1 1563 0001:002DB514 1563 0001:002DB51B + +Line numbers for uReminders(uReminders.pas) segment .text + + 652 0001:002DC0AC 653 0001:002DC0C9 654 0001:002DC0D2 656 0001:002DC0F6 + 657 0001:002DC11A 659 0001:002DC147 661 0001:002DC179 667 0001:002DC190 + 668 0001:002DC1AB 670 0001:002DC1B4 671 0001:002DC1C2 672 0001:002DC1C6 + 673 0001:002DC203 674 0001:002DC229 680 0001:002DC24C 681 0001:002DC26D + 682 0001:002DC271 684 0001:002DC279 686 0001:002DC285 687 0001:002DC288 + 689 0001:002DC28A 682 0001:002DC28E 690 0001:002DC2B3 697 0001:002DC2BC + 698 0001:002DC2E6 699 0001:002DC2FE 701 0001:002DC31E 702 0001:002DC32B + 703 0001:002DC32D 698 0001:002DC32E 704 0001:002DC353 727 0001:002DC3C0 + 728 0001:002DC3D3 730 0001:002DC3D6 731 0001:002DC3DB 734 0001:002DC3DC + 735 0001:002DC3F3 736 0001:002DC40E 737 0001:002DC429 738 0001:002DC444 + 739 0001:002DC474 742 0001:002DC47C 743 0001:002DC493 744 0001:002DC4AE + 745 0001:002DC4C9 746 0001:002DC50C 753 0001:002DC514 754 0001:002DC533 + 755 0001:002DC540 757 0001:002DC552 758 0001:002DC561 759 0001:002DC56F + 760 0001:002DC57D 761 0001:002DC588 763 0001:002DC59A 764 0001:002DC5AD + 765 0001:002DC5D4 761 0001:002DC5D5 767 0001:002DC5E5 770 0001:002DC612 + 774 0001:002DC628 776 0001:002DC631 777 0001:002DC638 778 0001:002DC63F + 780 0001:002DC646 784 0001:002DC648 785 0001:002DC664 786 0001:002DC681 + 787 0001:002DC69E 792 0001:002DC6A0 796 0001:002DC6C8 797 0001:002DC6CD + 798 0001:002DC6D1 799 0001:002DC6E0 806 0001:002DC6E4 807 0001:002DC6F9 + 808 0001:002DC70E 809 0001:002DC723 810 0001:002DC734 811 0001:002DC744 + 812 0001:002DC755 813 0001:002DC78D 819 0001:002DC794 820 0001:002DC7AA + 821 0001:002DC7AC 822 0001:002DC7B0 823 0001:002DC7C5 824 0001:002DC7D1 + 825 0001:002DC7D5 826 0001:002DC7EA 827 0001:002DC7F6 828 0001:002DC80D + 829 0001:002DC84C 836 0001:002DC854 837 0001:002DC86B 839 0001:002DC874 + 840 0001:002DC87C 841 0001:002DC886 842 0001:002DC88D 843 0001:002DC8A6 + 841 0001:002DC8B8 845 0001:002DC8BD 846 0001:002DC8E7 853 0001:002DC8F4 + 854 0001:002DC910 856 0001:002DC91A 857 0001:002DC91F 858 0001:002DC92D + 859 0001:002DC935 860 0001:002DC93D 861 0001:002DC944 862 0001:002DC953 + 860 0001:002DC96A 863 0001:002DC96F 865 0001:002DC984 868 0001:002DC9B5 + 875 0001:002DC9BC 876 0001:002DC9E8 877 0001:002DC9EB 879 0001:002DC9F5 + 880 0001:002DCA08 882 0001:002DCA1A 883 0001:002DCA2F 884 0001:002DCA3D + 885 0001:002DCA52 887 0001:002DCA56 888 0001:002DCA63 892 0001:002DCA69 + 893 0001:002DCA8B 894 0001:002DCA9A 895 0001:002DCAA0 897 0001:002DCAC2 + 898 0001:002DCAD7 900 0001:002DCADB 902 0001:002DCAEE 904 0001:002DCB2A + 905 0001:002DCB2E 910 0001:002DCB3D 911 0001:002DCB43 912 0001:002DCB61 + 914 0001:002DCB70 915 0001:002DCB85 916 0001:002DCB89 918 0001:002DCBA2 + 922 0001:002DCBC2 924 0001:002DCC10 931 0001:002DCC48 932 0001:002DCC66 + 933 0001:002DCC6A 934 0001:002DCC7F 935 0001:002DCC8D 937 0001:002DCC9F + 938 0001:002DCCB6 939 0001:002DCCBE 935 0001:002DCCBF 941 0001:002DCCCF + 943 0001:002DCD1C 983 0001:002DCD24 984 0001:002DCD45 985 0001:002DCD54 + 986 0001:002DCD8A 984 0001:002DCD94 987 0001:002DCD99 989 0001:002DCDA8 + 990 0001:002DCDB7 993 0001:002DCDC7 994 0001:002DCDE6 996 0001:002DCDEF + 997 0001:002DCE01 998 0001:002DCE05 999 0001:002DCE0E 1000 0001:002DCE12 + 991 0001:002DCE1D 1002 0001:002DCE28 1004 0001:002DCE34 1005 0001:002DCE3C + 1006 0001:002DCE51 1007 0001:002DCE63 1006 0001:002DCE89 1010 0001:002DCE99 + 1013 0001:002DCECB 1017 0001:002DCED4 1018 0001:002DCEDE 1019 0001:002DCEE5 + 1027 0001:002DCEE8 1028 0001:002DCF08 1030 0001:002DCF2B 1031 0001:002DCF3A + 1032 0001:002DCF3F 1033 0001:002DCF4D 1034 0001:002DCF52 1035 0001:002DCF61 + 1036 0001:002DCF6F 1038 0001:002DCF89 1040 0001:002DCFA5 1041 0001:002DCFBC + 1042 0001:002DCFD2 1044 0001:002DCFD8 1045 0001:002DCFE3 1046 0001:002DCFE9 + 1049 0001:002DCFF8 1050 0001:002DD013 1038 0001:002DD014 1053 0001:002DD017 + 1055 0001:002DD029 1056 0001:002DD049 1057 0001:002DD060 1058 0001:002DD07A + 1053 0001:002DD07B 1060 0001:002DD08B 1062 0001:002DD09B 1063 0001:002DD0A0 + 1065 0001:002DD0B7 1068 0001:002DD0F0 1077 0001:002DD0F8 1078 0001:002DD11E + 1080 0001:002DD126 1081 0001:002DD129 1082 0001:002DD141 1084 0001:002DD179 + 1085 0001:002DD184 1087 0001:002DD18E 1091 0001:002DD195 1093 0001:002DD1A8 + 1094 0001:002DD1DC 1097 0001:002DD1F2 1098 0001:002DD232 1100 0001:002DD239 + 1103 0001:002DD23E 1105 0001:002DD260 1106 0001:002DD289 1107 0001:002DD2A0 + 1109 0001:002DD2A7 1112 0001:002DD2A9 1113 0001:002DD2B2 1114 0001:002DD2BB + 1116 0001:002DD2C0 1117 0001:002DD2C9 1120 0001:002DD2F7 1158 0001:002DD470 + 1159 0001:002DD49E 1160 0001:002DD4A7 1161 0001:002DD4B8 1162 0001:002DD4CD + 1164 0001:002DD4D5 1165 0001:002DD4EB 1166 0001:002DD50D 1167 0001:002DD51C + 1169 0001:002DD525 1170 0001:002DD534 1172 0001:002DD53D 1173 0001:002DD54F + 1174 0001:002DD55A 1176 0001:002DD574 1178 0001:002DD599 1179 0001:002DD5B1 + 1180 0001:002DD5E1 1181 0001:002DD5FA 1183 0001:002DD61A 1184 0001:002DD638 + 1176 0001:002DD63B 1186 0001:002DD642 1188 0001:002DD651 1189 0001:002DD65F + 1190 0001:002DD66D 1191 0001:002DD671 1193 0001:002DD683 1194 0001:002DD6B4 + 1197 0001:002DD6EC 1198 0001:002DD705 1199 0001:002DD741 1202 0001:002DD748 + 1203 0001:002DD761 1204 0001:002DD79D 1212 0001:002DD7A4 1213 0001:002DD7D0 + 1214 0001:002DD7E0 1215 0001:002DD7E9 1216 0001:002DD7FA 1217 0001:002DD80F + 1219 0001:002DD817 1220 0001:002DD81F 1221 0001:002DD82A 1223 0001:002DD844 + 1225 0001:002DD86A 1226 0001:002DD882 1228 0001:002DD8C5 1229 0001:002DD908 + 1231 0001:002DD921 1232 0001:002DD934 1233 0001:002DD941 1234 0001:002DD967 + 1238 0001:002DD97A 1239 0001:002DD989 1240 0001:002DD98D 1241 0001:002DD99C + 1243 0001:002DD9BE 1223 0001:002DD9C1 1245 0001:002DD9CA 1247 0001:002DD9D9 + 1248 0001:002DD9E7 1249 0001:002DD9F5 1250 0001:002DD9F9 1252 0001:002DDA0B + 1253 0001:002DDA49 1260 0001:002DDA80 1261 0001:002DDA9D 1262 0001:002DDAA7 + 1263 0001:002DDAAE 1264 0001:002DDAC3 1265 0001:002DDAC7 1266 0001:002DDAE6 + 1268 0001:002DDAEB 1269 0001:002DDB00 1270 0001:002DDB04 1272 0001:002DDB23 + 1274 0001:002DDB28 1275 0001:002DDB3D 1276 0001:002DDB41 1278 0001:002DDB60 + 1280 0001:002DDB65 1281 0001:002DDB7A 1282 0001:002DDB7E 1284 0001:002DDBB3 + 1290 0001:002DDBBC 1291 0001:002DDBD4 1292 0001:002DDBE4 1293 0001:002DDBE8 + 1294 0001:002DDC42 1300 0001:002DDC54 1301 0001:002DDC6C 1302 0001:002DDC7E + 1303 0001:002DDC82 1304 0001:002DDCCF 1310 0001:002DDCF4 1311 0001:002DDD0C + 1312 0001:002DDD1C 1313 0001:002DDD20 1314 0001:002DDD6F 1320 0001:002DDD90 + 1321 0001:002DDDA8 1322 0001:002DDDBB 1323 0001:002DDDBF 1324 0001:002DDE01 + 1331 0001:002DDE08 1332 0001:002DDE24 1334 0001:002DDE2C 1335 0001:002DDE41 + 1336 0001:002DDE4B 1337 0001:002DDE69 1338 0001:002DDE73 1339 0001:002DDE86 + 1340 0001:002DDEA4 1341 0001:002DDEC2 1342 0001:002DDEE0 1343 0001:002DDEFE + 1344 0001:002DDF0B 1345 0001:002DDF28 1347 0001:002DDF67 1353 0001:002DE038 + 1354 0001:002DE056 1356 0001:002DE065 1357 0001:002DE06A 1360 0001:002DE07D + 1361 0001:002DE09A 1363 0001:002DE0B3 1364 0001:002DE0E7 1365 0001:002DE0EB + 1366 0001:002DE0F7 1367 0001:002DE0FB 1358 0001:002DE104 1369 0001:002DE113 + 1371 0001:002DE125 1374 0001:002DE156 1377 0001:002DE15C 1378 0001:002DE15F + 1379 0001:002DE174 1386 0001:002DE178 1387 0001:002DE17D 1388 0001:002DE184 + 1389 0001:002DE197 1390 0001:002DE1A6 1392 0001:002DE1B5 1393 0001:002DE1C2 + 1394 0001:002DE1C9 1402 0001:002DE1D0 1403 0001:002DE1EB 1405 0001:002DE200 + 1406 0001:002DE205 1407 0001:002DE213 1408 0001:002DE21D 1410 0001:002DE225 + 1411 0001:002DE238 1413 0001:002DE25D 1414 0001:002DE273 1415 0001:002DE284 + 1417 0001:002DE2A7 1418 0001:002DE2BC 1419 0001:002DE2C0 1420 0001:002DE2CC + 1422 0001:002DE2D0 1408 0001:002DE2D9 1424 0001:002DE2E1 1426 0001:002DE2F3 + 1429 0001:002DE324 1433 0001:002DE338 1434 0001:002DE341 1450 0001:002DE344 + 1451 0001:002DE36B 1452 0001:002DE36D 1453 0001:002DE36F 1455 0001:002DE37A + 1457 0001:002DE38D 1458 0001:002DE3A0 1459 0001:002DE3A9 1460 0001:002DE3B2 + 1462 0001:002DE3BE 1461 0001:002DE3CF 1463 0001:002DE3DA 1465 0001:002DE3DC + 1467 0001:002DE3E2 1468 0001:002DE3E6 1469 0001:002DE3FA 1470 0001:002DE400 + 1472 0001:002DE415 1473 0001:002DE41F 1474 0001:002DE422 1475 0001:002DE433 + 1477 0001:002DE43B 1478 0001:002DE480 1479 0001:002DE48F 1480 0001:002DE49E + 1481 0001:002DE4AD 1482 0001:002DE4BC 1485 0001:002DE4CB 1486 0001:002DE4D5 + 1487 0001:002DE4FD 1488 0001:002DE501 1489 0001:002DE508 1490 0001:002DE50F + 1491 0001:002DE516 1492 0001:002DE51D 1494 0001:002DE520 1495 0001:002DE541 + 1496 0001:002DE542 1498 0001:002DE54D 1500 0001:002DE559 1502 0001:002DE561 + 1503 0001:002DE56A 1505 0001:002DE581 1507 0001:002DE58F 1508 0001:002DE593 + 1509 0001:002DE5BC 1518 0001:002DE5C8 1519 0001:002DE5F4 1522 0001:002DE5FE + 1523 0001:002DE60D 1524 0001:002DE61C 1525 0001:002DE62B 1529 0001:002DE63F + 1530 0001:002DE65A 1531 0001:002DE660 1534 0001:002DE696 1535 0001:002DE6C0 + 1536 0001:002DE6F3 1537 0001:002DE705 1540 0001:002DE714 1541 0001:002DE723 + 1543 0001:002DE74F 1549 0001:002DE77C 1550 0001:002DE7A3 1553 0001:002DE7A9 + 1554 0001:002DE7B8 1555 0001:002DE7C7 1556 0001:002DE7E8 1557 0001:002DE7EC + 1558 0001:002DE80A 1559 0001:002DE819 1561 0001:002DE841 1564 0001:002DE854 + 1565 0001:002DE88B 1566 0001:002DE8C0 1567 0001:002DE8C5 1569 0001:002DE8CA + 1571 0001:002DE8D2 1572 0001:002DE8E1 1573 0001:002DE906 1574 0001:002DE90C + 1576 0001:002DE927 1577 0001:002DE93D 1578 0001:002DE94C 1579 0001:002DE961 + 1580 0001:002DE967 1582 0001:002DE982 1584 0001:002DE998 1586 0001:002DE99D + 1587 0001:002DE9AC 1591 0001:002DE9BB 1593 0001:002DE9C1 1594 0001:002DE9D0 + 1595 0001:002DE9D7 1594 0001:002DE9E9 1598 0001:002DE9EE 1599 0001:002DE9FD + 1602 0001:002DEA11 1601 0001:002DEA22 1603 0001:002DEA58 1606 0001:002DEA70 + 1607 0001:002DEA73 1608 0001:002DEAA0 1611 0001:002DEAA4 1612 0001:002DEAA7 + 1613 0001:002DEAD4 1616 0001:002DEAD8 1617 0001:002DEADB 1618 0001:002DEB08 + 1621 0001:002DEB0C 1622 0001:002DEB0F 1623 0001:002DEB3C 1629 0001:002DEB40 + 1630 0001:002DEB43 1631 0001:002DEB4A 1632 0001:002DEB50 1633 0001:002DEB5D + 1639 0001:002DEB60 1640 0001:002DEB63 1641 0001:002DEB6A 1642 0001:002DEB70 + 1643 0001:002DEB7D 1649 0001:002DEB80 1650 0001:002DEB83 1651 0001:002DEB8A + 1652 0001:002DEB90 1653 0001:002DEB9D 1659 0001:002DEBA0 1660 0001:002DEBA3 + 1661 0001:002DEBAA 1662 0001:002DEBB0 1663 0001:002DEBC3 1667 0001:002DEBC8 + 1669 0001:002DEBD1 1671 0001:002DEBDA 1672 0001:002DEBED 1674 0001:002DEBF7 + 1678 0001:002DEBFD 1680 0001:002DEC06 1681 0001:002DEC19 1683 0001:002DEC23 + 1685 0001:002DEC28 1696 0001:002DEC2C 1697 0001:002DEC58 1698 0001:002DEC5A + 1699 0001:002DEC5C 1701 0001:002DEC6C 1703 0001:002DEC90 1704 0001:002DECB5 + 1706 0001:002DECDA 1707 0001:002DECE4 1710 0001:002DECFB 1712 0001:002DED4B + 1714 0001:002DED54 1715 0001:002DED67 1716 0001:002DED7B 1717 0001:002DED87 + 1718 0001:002DED8C 1719 0001:002DED93 1720 0001:002DEDA5 1723 0001:002DEDB6 + 1724 0001:002DEDC7 1725 0001:002DEDD4 1726 0001:002DEDDE 1729 0001:002DEDE0 + 1730 0001:002DEDE4 1731 0001:002DEDED 1732 0001:002DEDFD 1733 0001:002DEE03 + 1735 0001:002DEE2B 1762 0001:002DEE7C 1763 0001:002DEE9F 1765 0001:002DEEB9 + 1767 0001:002DEEC8 1769 0001:002DEED1 1770 0001:002DEEFB 1774 0001:002DEF02 + 1775 0001:002DEF06 1776 0001:002DEF1F 1778 0001:002DEF23 1779 0001:002DEF45 + 1782 0001:002DEF54 1785 0001:002DEF58 1786 0001:002DEF79 1788 0001:002DEFA4 + 1789 0001:002DEFC8 1790 0001:002DEFD2 1791 0001:002DEFE0 1792 0001:002DEFEE + 1793 0001:002DEFF8 1794 0001:002DF005 1795 0001:002DF00C 1796 0001:002DF011 + 1797 0001:002DF026 1798 0001:002DF03B 1799 0001:002DF042 1801 0001:002DF057 + 1803 0001:002DF063 1804 0001:002DF080 1807 0001:002DF09F 1809 0001:002DF0AC + 1811 0001:002DF0B8 1812 0001:002DF0D5 1815 0001:002DF0F4 1817 0001:002DF101 + 1818 0001:002DF114 1820 0001:002DF11C 1821 0001:002DF12A 1823 0001:002DF12E + 1824 0001:002DF137 1825 0001:002DF15E 1826 0001:002DF167 1827 0001:002DF18E + 1828 0001:002DF197 1829 0001:002DF1BE 1830 0001:002DF1C7 1831 0001:002DF1EE + 1832 0001:002DF1F7 1834 0001:002DF21E 1836 0001:002DF23C 1837 0001:002DF25C + 1839 0001:002DF26F 1840 0001:002DF2AE 1841 0001:002DF2CF 1842 0001:002DF2DF + 1843 0001:002DF2EF 1834 0001:002DF2F2 1845 0001:002DF2FB 1847 0001:002DF31A + 1849 0001:002DF338 1850 0001:002DF348 1851 0001:002DF36A 1854 0001:002DF392 + 1855 0001:002DF3A5 1856 0001:002DF3B5 1857 0001:002DF3CB 1858 0001:002DF3CF + 1861 0001:002DF3DC 1862 0001:002DF3F1 1863 0001:002DF3F5 1866 0001:002DF42A + 1867 0001:002DF450 1868 0001:002DF476 1869 0001:002DF499 1870 0001:002DF4BD + 1847 0001:002DF4C0 1878 0001:002DF4C9 1880 0001:002DF4DB 1882 0001:002DF4F9 + 1883 0001:002DF508 1884 0001:002DF521 1885 0001:002DF523 1887 0001:002DF525 + 1888 0001:002DF53A 1890 0001:002DF54A 1892 0001:002DF5B9 1893 0001:002DF5E1 + 1894 0001:002DF609 1895 0001:002DF616 1897 0001:002DF626 1899 0001:002DF62A + 1900 0001:002DF63A 1902 0001:002DF63C 1903 0001:002DF64C 1880 0001:002DF64F + 1906 0001:002DF658 1908 0001:002DF67A 1909 0001:002DF68D 1911 0001:002DF692 + 1912 0001:002DF6A2 1913 0001:002DF6A8 1915 0001:002DF6B2 1916 0001:002DF6C2 + 1917 0001:002DF6CF 1909 0001:002DF6D0 1918 0001:002DF6D5 1919 0001:002DF6F9 + 1920 0001:002DF70C 1921 0001:002DF72A 1922 0001:002DF73B 1906 0001:002DF73E + 1925 0001:002DF754 1928 0001:002DF76A 1929 0001:002DF779 1932 0001:002DF77D + 1933 0001:002DF793 1934 0001:002DF797 1935 0001:002DF7AD 1936 0001:002DF7B1 + 1938 0001:002DF7B8 1940 0001:002DF7C2 1941 0001:002DF7D5 1943 0001:002DF7DB + 1944 0001:002DF7F3 1945 0001:002DF7F7 1948 0001:002DF800 1949 0001:002DF80F + 1952 0001:002DF829 1953 0001:002DF847 1954 0001:002DF853 1956 0001:002DF8B0 + 1962 0001:002DF9F4 1963 0001:002DFA0E 1964 0001:002DFA10 1966 0001:002DFA14 + 1967 0001:002DFA36 1968 0001:002DFA5B 1970 0001:002DFA8E 1974 0001:002DFAA4 + 1975 0001:002DFAAB 1981 0001:002DFAAC 1982 0001:002DFAC7 1983 0001:002DFAD1 + 1984 0001:002DFADD 1986 0001:002DFB19 1987 0001:002DFB2E 1988 0001:002DFB43 + 1989 0001:002DFB58 1990 0001:002DFB66 1991 0001:002DFB70 1992 0001:002DFB79 + 1993 0001:002DFB81 1994 0001:002DFB8B 1995 0001:002DFB95 1996 0001:002DFB9F + 1997 0001:002DFBA9 1998 0001:002DFBB3 1999 0001:002DFBBD 2000 0001:002DFBC7 + 2001 0001:002DFBCE 2003 0001:002DFBE2 2004 0001:002DFBF9 2005 0001:002DFC10 + 2006 0001:002DFC28 2007 0001:002DFC2F 2008 0001:002DFC39 2010 0001:002DFC78 + 2015 0001:002DFC88 2016 0001:002DFC9E 2017 0001:002DFCA6 2018 0001:002DFCB6 + 2019 0001:002DFCBB 2020 0001:002DFCE5 2027 0001:002DFCEC 2028 0001:002DFCEF + 2029 0001:002DFCF4 2030 0001:002DFD02 2032 0001:002DFD04 2033 0001:002DFD1D + 2034 0001:002DFD27 2035 0001:002DFD31 2036 0001:002DFD3B 2037 0001:002DFD45 + 2038 0001:002DFD4F 2040 0001:002DFD59 2041 0001:002DFD60 2042 0001:002DFD65 + 2044 0001:002DFD80 2046 0001:002DFD90 2047 0001:002DFDB4 2051 0001:002DFDB8 + 2052 0001:002DFDC4 2053 0001:002DFDD0 2054 0001:002DFDDC 2055 0001:002DFDE8 + 2056 0001:002DFDF4 2057 0001:002DFE00 2058 0001:002DFE0C 2059 0001:002DFE18 + 2060 0001:002DFE24 2061 0001:002DFE30 2062 0001:002DFE3C 2063 0001:002DFE48 + 2064 0001:002DFE54 2065 0001:002DFE60 2066 0001:002DFE6C 2073 0001:002DFE70 + 2074 0001:002DFE95 2075 0001:002DFE97 2076 0001:002DFEAA 2078 0001:002DFED3 + 2079 0001:002DFEE9 2080 0001:002DFEF9 2082 0001:002DFEFF 2083 0001:002DFF14 + 2084 0001:002DFF22 2086 0001:002DFF50 2089 0001:002DFF6F 2091 0001:002DFFBD + 2103 0001:002DFFD0 2104 0001:002DFFFC 2105 0001:002E0004 2106 0001:002E000C + 2107 0001:002E0017 2108 0001:002E001B 2109 0001:002E0025 2111 0001:002E0037 + 2112 0001:002E0046 2114 0001:002E004A 2115 0001:002E0055 2119 0001:002E005F + 2120 0001:002E0073 2122 0001:002E0084 2124 0001:002E0098 2125 0001:002E00A2 + 2129 0001:002E00AA 2130 0001:002E00B4 2132 0001:002E00BD 2133 0001:002E00C3 + 2134 0001:002E00D2 2136 0001:002E00D7 2137 0001:002E0104 2141 0001:002E0116 + 2142 0001:002E0145 2143 0001:002E0154 2145 0001:002E0164 2147 0001:002E016A + 2148 0001:002E0170 2149 0001:002E0188 2154 0001:002E018E 2155 0001:002E01A7 + 2127 0001:002E01AF 2158 0001:002E01B9 2160 0001:002E01CC 2161 0001:002E01D2 + 2162 0001:002E01EA 2164 0001:002E01EE 2165 0001:002E021A 2169 0001:002E0234 + 2171 0001:002E023D 2172 0001:002E0247 2174 0001:002E024E 2175 0001:002E0253 + 2179 0001:002E0254 2180 0001:002E0258 2181 0001:002E0261 2187 0001:002E0268 + 2188 0001:002E0276 2189 0001:002E0278 2190 0001:002E028C 2189 0001:002E02AB + 2191 0001:002E02B0 2198 0001:002E02B8 2199 0001:002E02CF 2200 0001:002E02DE + 2201 0001:002E02E5 2202 0001:002E02EC 2203 0001:002E02F0 2205 0001:002E02F5 + 2206 0001:002E02F8 2207 0001:002E02FC 2209 0001:002E0301 2210 0001:002E0304 + 2212 0001:002E030E 2213 0001:002E031D 2216 0001:002E032B 2217 0001:002E032E + 2221 0001:002E034C 2222 0001:002E0352 2224 0001:002E0359 2225 0001:002E0363 + 2226 0001:002E0369 2227 0001:002E036D 2229 0001:002E0371 2230 0001:002E037A + 2231 0001:002E037F 2234 0001:002E039F 2235 0001:002E03B8 2247 0001:002E03C4 + 2248 0001:002E03E9 2250 0001:002E03FB 2251 0001:002E0419 2252 0001:002E0431 + 2253 0001:002E043F 2248 0001:002E0440 2254 0001:002E0465 2261 0001:002E046C + 2262 0001:002E0498 2264 0001:002E04B7 2265 0001:002E04DB 2267 0001:002E04DE + 2268 0001:002E04F1 2270 0001:002E04F5 2271 0001:002E0519 2273 0001:002E0543 + 2274 0001:002E054F 2275 0001:002E0560 2276 0001:002E056C 2279 0001:002E0573 + 2280 0001:002E057B 2262 0001:002E057E 2281 0001:002E05B6 2283 0001:002E05C0 + 2284 0001:002E05C6 2285 0001:002E05CA 2286 0001:002E05CF 2287 0001:002E05DD + 2288 0001:002E05EC 2289 0001:002E05FA 2290 0001:002E060B 2291 0001:002E061C + 2292 0001:002E062D 2293 0001:002E0635 2294 0001:002E064B 2295 0001:002E0661 + 2297 0001:002E0684 2300 0001:002E06A1 2302 0001:002E06B1 2308 0001:002E06B8 + 2309 0001:002E06D1 2311 0001:002E06D6 2312 0001:002E06DF 2314 0001:002E0704 + 2315 0001:002E0725 2316 0001:002E0731 2318 0001:002E075F 2327 0001:002E0790 + 2328 0001:002E07B4 2329 0001:002E07C3 2330 0001:002E07D1 2331 0001:002E07D6 + 2333 0001:002E07FE 2336 0001:002E080C 2337 0001:002E0819 2339 0001:002E0842 + 2342 0001:002E0852 2344 0001:002E0862 2345 0001:002E086A 2348 0001:002E0871 + 2350 0001:002E0892 2351 0001:002E08B5 2352 0001:002E08BF 2354 0001:002E08C4 + 2353 0001:002E08C5 2355 0001:002E08EF 2357 0001:002E08F8 2358 0001:002E0900 + 2359 0001:002E090D 2358 0001:002E0936 2362 0001:002E093B 2363 0001:002E0949 + 2364 0001:002E094B 2365 0001:002E0965 2367 0001:002E096F 2368 0001:002E097E + 2370 0001:002E0982 2371 0001:002E098E 2373 0001:002E099B 2376 0001:002E09A1 + 2346 0001:002E09A2 2380 0001:002E09BF 2382 0001:002E09F1 2398 0001:002E0B14 + 2399 0001:002E0B46 2400 0001:002E0B51 2402 0001:002E0B80 2404 0001:002E0B8A + 2406 0001:002E0B91 2407 0001:002E0BA9 2409 0001:002E0BB3 2410 0001:002E0BBC + 2411 0001:002E0BCE 2412 0001:002E0BEB 2415 0001:002E0BFA 2416 0001:002E0C00 + 2417 0001:002E0C19 2418 0001:002E0C37 2419 0001:002E0C55 2420 0001:002E0C65 + 2421 0001:002E0C70 2423 0001:002E0CA7 2425 0001:002E0CAF 2426 0001:002E0CB7 + 2429 0001:002E0CBA 2430 0001:002E0CE1 2432 0001:002E0CE5 2433 0001:002E0CED + 2435 0001:002E0D23 2436 0001:002E0D27 2437 0001:002E0D31 2439 0001:002E0D39 + 2441 0001:002E0D4E 2442 0001:002E0D59 2444 0001:002E0D65 2443 0001:002E0D66 + 2445 0001:002E0D74 2447 0001:002E0D78 2448 0001:002E0D8C 2449 0001:002E0D9C + 2451 0001:002E0DA0 2452 0001:002E0DB2 2453 0001:002E0DB8 2454 0001:002E0DCA + 2458 0001:002E0DD7 2459 0001:002E0DE2 2460 0001:002E0DEB 2463 0001:002E0DF2 + 2464 0001:002E0E46 2467 0001:002E0E74 2468 0001:002E0EA3 2469 0001:002E0EAE + 2470 0001:002E0EEB 2473 0001:002E0EF0 2474 0001:002E0EFB 2475 0001:002E0F05 + 2476 0001:002E0F1C 2487 0001:002E0F20 2488 0001:002E0F26 2490 0001:002E0F31 + 2491 0001:002E0F3D 2492 0001:002E0F41 2495 0001:002E0F4B 2496 0001:002E0F4E + 2502 0001:002E0F54 2503 0001:002E0F5C 2504 0001:002E0F5E 2506 0001:002E0F65 + 2508 0001:002E0F70 2509 0001:002E0F84 2510 0001:002E0F88 2506 0001:002E0F89 + 2512 0001:002E0F8C 2514 0001:002E0F94 2515 0001:002E0FB3 2516 0001:002E0FB5 + 2518 0001:002E0FC3 2520 0001:002E0FDD 2521 0001:002E0FED 2523 0001:002E0FF3 + 2524 0001:002E0FFE 2526 0001:002E1002 2528 0001:002E1009 2530 0001:002E101C + 2531 0001:002E102A 2532 0001:002E104F 2533 0001:002E1051 2534 0001:002E1055 + 2528 0001:002E1058 2537 0001:002E105D 2539 0001:002E1061 2518 0001:002E1064 + 2541 0001:002E108A 2547 0001:002E10A0 2548 0001:002E10BB 2549 0001:002E10C4 + 2550 0001:002E10D5 2551 0001:002E10ED 2552 0001:002E10F1 2553 0001:002E1119 + 2554 0001:002E1127 2556 0001:002E1132 2557 0001:002E115D 2559 0001:002E118D + 2567 0001:002E11A4 2568 0001:002E11CD 2569 0001:002E11D2 2571 0001:002E11D8 + 2572 0001:002E11DD 2574 0001:002E11F4 2575 0001:002E11FF 2577 0001:002E1205 + 2578 0001:002E1218 2579 0001:002E121E 2581 0001:002E1221 2572 0001:002E1224 + 2583 0001:002E1227 2585 0001:002E1233 2587 0001:002E1244 2588 0001:002E124E + 2589 0001:002E1287 2590 0001:002E1293 2593 0001:002E129F 2594 0001:002E12CB + 2601 0001:002E1308 2602 0001:002E132E 2604 0001:002E1338 2605 0001:002E1343 + 2607 0001:002E135A 2608 0001:002E1365 2609 0001:002E136B 2610 0001:002E1373 + 2605 0001:002E1376 2611 0001:002E1379 2612 0001:002E13A7 2614 0001:002E13FB + 2622 0001:002E141C 2623 0001:002E142D 2624 0001:002E1432 2626 0001:002E1439 + 2628 0001:002E144F 2629 0001:002E145C 2630 0001:002E1462 2631 0001:002E1476 + 2626 0001:002E1479 2633 0001:002E147F 2643 0001:002E1488 2644 0001:002E14AF + 2645 0001:002E14B5 2647 0001:002E14C6 2649 0001:002E14D0 2650 0001:002E14D7 + 2651 0001:002E14E6 2652 0001:002E14F1 2653 0001:002E1501 2654 0001:002E151A + 2655 0001:002E152A 2656 0001:002E1534 2657 0001:002E1539 2659 0001:002E1554 + 2661 0001:002E1565 2662 0001:002E1568 2664 0001:002E156D 2665 0001:002E1579 + 2667 0001:002E157F 2668 0001:002E158B 2669 0001:002E1593 2671 0001:002E159B + 2672 0001:002E15AF 2673 0001:002E15C0 2674 0001:002E15CD 2675 0001:002E1601 + 2676 0001:002E160F 2678 0001:002E1619 2657 0001:002E161A 2680 0001:002E1648 + 2684 0001:002E1684 2685 0001:002E1687 2688 0001:002E1688 2689 0001:002E1689 + 2691 0001:002E168F 2692 0001:002E1692 2693 0001:002E169F 2695 0001:002E16A7 + 2698 0001:002E16AC 2699 0001:002E16B2 2700 0001:002E16C2 2703 0001:002E16C8 + 2704 0001:002E16CE 2705 0001:002E16DE 2709 0001:002E16E4 2710 0001:002E16E7 + 2713 0001:002E16E8 2714 0001:002E16E9 2716 0001:002E16EF 2717 0001:002E16F2 + 2718 0001:002E16FF 2720 0001:002E1707 2729 0001:002E170C 2730 0001:002E1731 + 2732 0001:002E174E 2733 0001:002E175D 2734 0001:002E176B 2735 0001:002E177A + 2736 0001:002E1788 2738 0001:002E179D 2739 0001:002E17AC 2741 0001:002E17B2 + 2742 0001:002E17BC 2744 0001:002E17C6 2736 0001:002E17C7 2745 0001:002E17CA + 2746 0001:002E17D1 2747 0001:002E17DF 2749 0001:002E17F7 2751 0001:002E1806 + 2753 0001:002E182E 2756 0001:002E184B 2759 0001:002E1878 2762 0001:002E1880 + 2765 0001:002E1883 2766 0001:002E1894 2767 0001:002E18A1 2768 0001:002E18B2 + 2771 0001:002E18B4 2772 0001:002E18B7 2773 0001:002E18C1 2778 0001:002E18C4 + 2779 0001:002E18F3 2780 0001:002E18FE 2781 0001:002E193B 2784 0001:002E1940 + 2785 0001:002E1946 2786 0001:002E1956 2789 0001:002E195C 2790 0001:002E1975 + 2791 0001:002E19B8 2794 0001:002E19C0 2795 0001:002E19C6 2796 0001:002E19D6 + 2799 0001:002E19DC 2800 0001:002E19E2 2801 0001:002E19F2 2804 0001:002E19F8 + 2805 0001:002E1A0E 2806 0001:002E1A4F 2809 0001:002E1A54 2810 0001:002E1A5A + 2811 0001:002E1A6A 2819 0001:002E1A70 2820 0001:002E1A91 2821 0001:002E1A95 + 2823 0001:002E1A9C 2825 0001:002E1AA8 2826 0001:002E1AAB 2828 0001:002E1AAD + 2821 0001:002E1AB1 2829 0001:002E1AD6 2835 0001:002E1ADC 2836 0001:002E1AFD + 2837 0001:002E1B03 2839 0001:002E1B09 2840 0001:002E1B18 2843 0001:002E1B1E + 2844 0001:002E1B22 2846 0001:002E1B29 2848 0001:002E1B35 2849 0001:002E1B38 + 2851 0001:002E1B3A 2844 0001:002E1B3E 2853 0001:002E1B63 2859 0001:002E1B78 + 2860 0001:002E1B94 2862 0001:002E1B9E 2864 0001:002E1BC2 2867 0001:002E1BDB + 2870 0001:002E1BFB 2871 0001:002E1C0A 2872 0001:002E1C18 2873 0001:002E1C26 + 2874 0001:002E1C34 2876 0001:002E1C4B 2882 0001:002E1C5B 2883 0001:002E1C7F + 2886 0001:002E1C90 2887 0001:002E1CA6 2888 0001:002E1CEA 2891 0001:002E1CFC + 2892 0001:002E1D02 2893 0001:002E1D0D 2895 0001:002E1D20 2896 0001:002E1D27 + 2899 0001:002E1D2C 2900 0001:002E1D42 2901 0001:002E1D80 2906 0001:002E1D84 + 2907 0001:002E1D9A 2908 0001:002E1DAD 2909 0001:002E1DC0 2910 0001:002E1DD3 + 2911 0001:002E1DE6 2912 0001:002E1E07 2915 0001:002E1E30 2916 0001:002E1E46 + 2917 0001:002E1E8A 2920 0001:002E1E9C 2921 0001:002E1EA7 2922 0001:002E1EB1 + 2923 0001:002E1EBB 2924 0001:002E1EC5 2925 0001:002E1ECF 2926 0001:002E1EE6 + 2932 0001:002E1EEC 2933 0001:002E1F02 2934 0001:002E1F15 2935 0001:002E1F28 + 2936 0001:002E1F3B 2937 0001:002E1F5C 2940 0001:002E1F78 2941 0001:002E1F7E + 2942 0001:002E1F89 2944 0001:002E1F9C 2945 0001:002E1FA3 2948 0001:002E1FA8 + 2949 0001:002E1FBE 2950 0001:002E2002 2953 0001:002E2014 2954 0001:002E202A + 2955 0001:002E206E 2958 0001:002E2080 2959 0001:002E2096 2960 0001:002E20D4 + 2968 0001:002E20D8 2969 0001:002E20F9 2970 0001:002E2103 2972 0001:002E2136 + 2973 0001:002E2158 2974 0001:002E2164 2976 0001:002E217B 2977 0001:002E2188 + 2978 0001:002E219B 2979 0001:002E21AE 2980 0001:002E21BB 2974 0001:002E21BE + 2981 0001:002E21C3 2983 0001:002E21D2 2984 0001:002E21FE 3002 0001:002E2238 + 3003 0001:002E225A 3004 0001:002E2264 3005 0001:002E226F 3007 0001:002E229B + 3008 0001:002E229F 3009 0001:002E22A4 3011 0001:002E22A7 3012 0001:002E22CE + 3013 0001:002E232E 3015 0001:002E235F 3017 0001:002E2365 3018 0001:002E236E + 3019 0001:002E2380 3020 0001:002E23B5 3023 0001:002E23C3 3025 0001:002E2423 + 3026 0001:002E244E 3030 0001:002E24B6 3031 0001:002E24BC 3032 0001:002E24CB + 3033 0001:002E24EF 3035 0001:002E252C 3036 0001:002E253E 3040 0001:002E2593 + 3041 0001:002E2599 3042 0001:002E25D8 3043 0001:002E25F9 3045 0001:002E260F + 3046 0001:002E2615 3049 0001:002E261F 3051 0001:002E2691 3053 0001:002E26D3 + 3055 0001:002E26DC 3056 0001:002E26EE 3057 0001:002E26FD 3059 0001:002E270E + 3061 0001:002E276E 3065 0001:002E2776 3067 0001:002E2783 3068 0001:002E2795 + 3069 0001:002E279B 3070 0001:002E27AA 3071 0001:002E27D1 3073 0001:002E27D7 + 3074 0001:002E27DA 3075 0001:002E27F0 3076 0001:002E27F8 3078 0001:002E288B + 3079 0001:002E2891 3080 0001:002E2895 3083 0001:002E289C 3084 0001:002E28AA + 3085 0001:002E28EA 3086 0001:002E28FD 3087 0001:002E2929 3088 0001:002E2949 + 3089 0001:002E2981 3090 0001:002E2994 3091 0001:002E29A5 3093 0001:002E29E7 + 3094 0001:002E29F0 3095 0001:002E2A02 3096 0001:002E2A11 3097 0001:002E2A64 + 3100 0001:002E2A77 3101 0001:002E2A81 3102 0001:002E2A99 3047 0001:002E2A9C + 3105 0001:002E2AD5 3107 0001:002E2AF1 3108 0001:002E2AFF 3109 0001:002E2B0C + 3110 0001:002E2B1C 3111 0001:002E2B29 3112 0001:002E2B2E 3113 0001:002E2B51 + 3114 0001:002E2B68 3115 0001:002E2B78 3114 0001:002E2B8A 3116 0001:002E2B8F + 3118 0001:002E2BAC 3120 0001:002E2BB6 3121 0001:002E2BCD 3120 0001:002E2C0F + 3124 0001:002E2C16 3125 0001:002E2C37 3127 0001:002E2C41 3129 0001:002E2C6D + 3130 0001:002E2C73 3131 0001:002E2C82 3132 0001:002E2CA9 3134 0001:002E2CAF + 3135 0001:002E2CB2 3136 0001:002E2CC8 3139 0001:002E2CCC 3141 0001:002E2D5F + 3142 0001:002E2D65 3143 0001:002E2D69 3147 0001:002E2D70 3149 0001:002E2D7A + 3150 0001:002E2D80 3151 0001:002E2D8F 3152 0001:002E2DB6 3154 0001:002E2DBC + 3155 0001:002E2DBF 3156 0001:002E2DD5 3159 0001:002E2DD9 3161 0001:002E2E6C + 3162 0001:002E2E72 3164 0001:002E2E9D 3165 0001:002E2EA1 3168 0001:002E2ED6 + 3174 0001:002E2EDA 3176 0001:002E2EE2 3178 0001:002E2EE5 3179 0001:002E2F0C + 3181 0001:002E2F14 3182 0001:002E2F4B 3184 0001:002E2F65 3185 0001:002E2F6B + 3186 0001:002E2F7A 3189 0001:002E2F9E 3190 0001:002E2FA4 3191 0001:002E2FC5 + 3193 0001:002E2FCD 3195 0001:002E2FD3 3196 0001:002E2FD7 3198 0001:002E2FDD + 3199 0001:002E2FE3 3200 0001:002E2FE7 3201 0001:002E2FED 3204 0001:002E2FF3 + 3206 0001:002E2FFB 3208 0001:002E2FFE 3209 0001:002E3025 3211 0001:002E3029 + 3212 0001:002E3031 3214 0001:002E3079 3215 0001:002E307D 3217 0001:002E30D7 + 3230 0001:002E317C 3231 0001:002E3188 3233 0001:002E3198 3235 0001:002E31A6 + 3237 0001:002E31BA 3238 0001:002E31CE 3240 0001:002E31DD 3241 0001:002E31EB + 3245 0001:002E3222 3246 0001:002E3229 3247 0001:002E323A 3250 0001:002E3241 + 3253 0001:002E324B 3235 0001:002E324E 3255 0001:002E3255 3256 0001:002E3267 + 3257 0001:002E327D 3256 0001:002E3298 3259 0001:002E329B 3261 0001:002E32B4 + 3262 0001:002E32BF 3264 0001:002E32C8 3265 0001:002E32CB 3267 0001:002E32CF + 3268 0001:002E32D6 3270 0001:002E32E2 3271 0001:002E32EA 3273 0001:002E32FA + 3275 0001:002E3313 3276 0001:002E3321 3277 0001:002E332B 3278 0001:002E3332 + 3273 0001:002E3335 3281 0001:002E333A 3284 0001:002E3348 3286 0001:002E335D + 3288 0001:002E3374 3289 0001:002E3382 3291 0001:002E33A3 3293 0001:002E33B9 + 3294 0001:002E33C6 3295 0001:002E33CD 3296 0001:002E33D5 3298 0001:002E33DC + 3300 0001:002E33EE 3301 0001:002E33FC 3302 0001:002E340E 3298 0001:002E340F + 3304 0001:002E3414 3291 0001:002E3417 3306 0001:002E341C 3286 0001:002E341F + 3309 0001:002E3428 3316 0001:002E3430 3317 0001:002E3435 3318 0001:002E343E + 3319 0001:002E3443 3320 0001:002E3446 3322 0001:002E344A 3324 0001:002E3455 + 3325 0001:002E3457 3329 0001:002E345C 3330 0001:002E3465 3320 0001:002E3468 + 3333 0001:002E346C 3334 0001:002E3475 3337 0001:002E347C 3338 0001:002E349B + 3339 0001:002E34A6 3340 0001:002E34B4 3341 0001:002E34BF 3342 0001:002E34CD + 3344 0001:002E34D3 3345 0001:002E34F3 3348 0001:002E3508 3351 0001:002E352B + 3353 0001:002E3541 3354 0001:002E3556 3355 0001:002E3584 3361 0001:002E3588 + 3362 0001:002E358B 3363 0001:002E3592 3365 0001:002E3599 3366 0001:002E359B + 3368 0001:002E359F 3369 0001:002E35AA 3371 0001:002E35AE 3374 0001:002E35B3 + 3375 0001:002E35B5 3379 0001:002E35B8 3380 0001:002E35BF 3382 0001:002E35C7 + 3383 0001:002E35C9 3386 0001:002E35CC 3387 0001:002E35CF 3389 0001:002E35DC + 3390 0001:002E35ED 3392 0001:002E35F1 3395 0001:002E35FC 3396 0001:002E35FE + 3399 0001:002E3600 3400 0001:002E3603 3401 0001:002E3617 3404 0001:002E361C + 3405 0001:002E361F 3406 0001:002E3633 3438 0001:002E3638 3442 0001:002E3661 + 3443 0001:002E368E 3445 0001:002E3698 3448 0001:002E36B0 3450 0001:002E36B4 + 3451 0001:002E36D7 3452 0001:002E36DD 3454 0001:002E370F 3457 0001:002E3718 + 3462 0001:002E3728 3463 0001:002E375E 3472 0001:002E3774 3473 0001:002E377E + 3474 0001:002E3780 3476 0001:002E3791 3477 0001:002E379E 3478 0001:002E37A5 + 3479 0001:002E37A7 3474 0001:002E37A8 3480 0001:002E37AB 3482 0001:002E37BC + 3483 0001:002E37C9 3484 0001:002E37CE 3485 0001:002E37E6 3480 0001:002E37E7 + 3486 0001:002E37EA 3487 0001:002E37EF 3488 0001:002E3801 3489 0001:002E3815 + 3490 0001:002E3820 3505 0001:002E3828 3506 0001:002E3855 3507 0001:002E3867 + 3508 0001:002E3875 3510 0001:002E387E 3512 0001:002E3884 3513 0001:002E3895 + 3515 0001:002E38A6 3516 0001:002E38B5 3518 0001:002E38D5 3522 0001:002E38E0 + 3523 0001:002E38F7 3525 0001:002E3900 3527 0001:002E3920 3528 0001:002E3937 + 3529 0001:002E396F 3531 0001:002E397A 3532 0001:002E3981 3534 0001:002E3995 + 3536 0001:002E39AB 3538 0001:002E39B7 3539 0001:002E39BE 3541 0001:002E39C0 + 3532 0001:002E39C1 3543 0001:002E39C4 3544 0001:002E39CC 3545 0001:002E39D4 + 3546 0001:002E39DC 3547 0001:002E39E4 3548 0001:002E39EB 3550 0001:002E39F8 + 3551 0001:002E3A09 3552 0001:002E3A11 3553 0001:002E3A19 3554 0001:002E3A21 + 3555 0001:002E3A32 3558 0001:002E3A7B 3559 0001:002E3A93 3560 0001:002E3AA1 + 3561 0001:002E3ABD 3563 0001:002E3AC6 3564 0001:002E3AD6 3565 0001:002E3AF4 + 3569 0001:002E3B02 3570 0001:002E3B1A 3571 0001:002E3B28 3572 0001:002E3B39 + 3574 0001:002E3B42 3575 0001:002E3B51 3579 0001:002E3B62 3580 0001:002E3B6F + 3582 0001:002E3B7E 3583 0001:002E3BB4 3585 0001:002E3BE4 3586 0001:002E3C00 + 3587 0001:002E3C1C 3594 0001:002E3C28 3595 0001:002E3C40 3596 0001:002E3C4E + 3597 0001:002E3C6A 3598 0001:002E3C77 3599 0001:002E3C87 3601 0001:002E3C90 + 3602 0001:002E3CA0 3603 0001:002E3CB3 3604 0001:002E3CD9 3606 0001:002E3CF0 + 3608 0001:002E3CF9 3609 0001:002E3D10 3611 0001:002E3D27 3613 0001:002E3D34 + 3614 0001:002E3D3C 3616 0001:002E3D4C 3617 0001:002E3D53 3619 0001:002E3D69 + 3620 0001:002E3D89 3622 0001:002E3D93 3624 0001:002E3DC9 3625 0001:002E3DCD + 3627 0001:002E3DEE 3629 0001:002E3E25 3630 0001:002E3E3C 3631 0001:002E3E40 + 3633 0001:002E3E42 3625 0001:002E3E45 3634 0001:002E3E4A 3635 0001:002E3E50 + 3638 0001:002E3E5A 3639 0001:002E3E6A 3641 0001:002E3E70 3642 0001:002E3E87 + 3645 0001:002E3E8A 3617 0001:002E3E8B 3647 0001:002E3E92 3649 0001:002E3E98 + 3650 0001:002E3EB1 3655 0001:002E3ECB 3656 0001:002E3ED7 3657 0001:002E3EF3 + 3659 0001:002E3F02 3660 0001:002E3F1E 3661 0001:002E3F27 3663 0001:002E3F61 + 3664 0001:002E3F70 3665 0001:002E3F7D 3666 0001:002E3F99 3667 0001:002E3FA0 + 3672 0001:002E3FBA 3674 0001:002E3FCA 3676 0001:002E3FE8 3677 0001:002E3FF5 + 3678 0001:002E400D 3679 0001:002E401B 3680 0001:002E402B 3681 0001:002E403E + 3682 0001:002E405A 3683 0001:002E406A 3684 0001:002E40A6 3685 0001:002E40E2 + 3686 0001:002E411B 3687 0001:002E4132 3688 0001:002E413F 3689 0001:002E4157 + 3690 0001:002E4165 3691 0001:002E4183 3692 0001:002E419D 3693 0001:002E41C5 + 3694 0001:002E41DE 3695 0001:002E41F4 3696 0001:002E4203 3697 0001:002E4251 + 3699 0001:002E429C 3700 0001:002E42AB 3701 0001:002E42EF 3702 0001:002E4312 + 3703 0001:002E431F 3704 0001:002E432C 3705 0001:002E433C 3706 0001:002E435A + 3707 0001:002E4374 3708 0001:002E4387 3709 0001:002E439D 3710 0001:002E43BB + 3711 0001:002E43D5 3712 0001:002E43E8 3713 0001:002E43FE 3714 0001:002E440E + 3715 0001:002E441B 3716 0001:002E4430 3717 0001:002E446C 3718 0001:002E44A8 + 3719 0001:002E44BB 3720 0001:002E44C8 3721 0001:002E44E4 3722 0001:002E4508 + 3723 0001:002E4516 3724 0001:002E452C 3725 0001:002E457A 3726 0001:002E45C8 + 3728 0001:002E45E3 3729 0001:002E45E5 3730 0001:002E45FC 3732 0001:002E4609 + 3733 0001:002E4622 3734 0001:002E4635 3735 0001:002E4657 3736 0001:002E4681 + 3737 0001:002E4693 3738 0001:002E46A9 3739 0001:002E46F7 3740 0001:002E4745 + 3742 0001:002E4760 3743 0001:002E4762 3744 0001:002E4785 3746 0001:002E4792 + 3747 0001:002E47AB 3748 0001:002E47CD 3749 0001:002E47F7 3750 0001:002E480A + 3751 0001:002E482D 3753 0001:002E483F 3755 0001:002E484B 3760 0001:002E4857 + 3761 0001:002E4864 3762 0001:002E487C 3763 0001:002E488A 3764 0001:002E48A8 + 3765 0001:002E48C2 3766 0001:002E48EA 3767 0001:002E4903 3768 0001:002E4919 + 3769 0001:002E4928 3770 0001:002E4966 3771 0001:002E49B4 3772 0001:002E49C8 + 3773 0001:002E49D7 3774 0001:002E4A1B 3775 0001:002E4A39 3776 0001:002E4A53 + 3777 0001:002E4A71 3778 0001:002E4A8B 3779 0001:002E4A98 3780 0001:002E4AAD + 3781 0001:002E4ABD 3782 0001:002E4AF9 3783 0001:002E4B35 3785 0001:002E4B4A + 3786 0001:002E4B4C 3787 0001:002E4B6F 3789 0001:002E4B7C 3790 0001:002E4B8F + 3791 0001:002E4B9C 3792 0001:002E4BB8 3793 0001:002E4BDE 3794 0001:002E4BEA + 3795 0001:002E4C00 3796 0001:002E4C4E 3797 0001:002E4C9C 3799 0001:002E4CB1 + 3800 0001:002E4CB3 3801 0001:002E4CCA 3803 0001:002E4CD7 3804 0001:002E4CF0 + 3805 0001:002E4D03 3806 0001:002E4D25 3807 0001:002E4D51 3808 0001:002E4D63 + 3809 0001:002E4D79 3810 0001:002E4DC7 3811 0001:002E4E15 3813 0001:002E4E2A + 3814 0001:002E4E2C 3815 0001:002E4E4F 3817 0001:002E4E5C 3818 0001:002E4E75 + 3819 0001:002E4E97 3820 0001:002E4EC3 3821 0001:002E4ED6 3822 0001:002E4EF9 + 3823 0001:002E4F06 3824 0001:002E4F24 3825 0001:002E4F3E 3826 0001:002E4F67 + 3827 0001:002E4F87 3828 0001:002E4FA0 3829 0001:002E4FC2 3830 0001:002E4FD8 + 3831 0001:002E5026 3832 0001:002E5074 3833 0001:002E5092 3835 0001:002E50C4 + 3836 0001:002E50E2 3837 0001:002E50FC 3838 0001:002E510F 3839 0001:002E512A + 3840 0001:002E5140 3841 0001:002E518E 3842 0001:002E51DC 3844 0001:002E51F1 + 3845 0001:002E51F3 3846 0001:002E5216 3848 0001:002E5223 3849 0001:002E5237 + 3850 0001:002E5250 3851 0001:002E5279 3852 0001:002E529A 3853 0001:002E52BC + 3854 0001:002E52C5 3855 0001:002E5305 3857 0001:002E532D 3860 0001:002E5355 + 3861 0001:002E537B 3866 0001:002E538D 3867 0001:002E53A5 3868 0001:002E53B3 + 3869 0001:002E53C0 3870 0001:002E53CE 3871 0001:002E53E0 3874 0001:002E5431 + 3876 0001:002E5447 3878 0001:002E5451 3879 0001:002E546D 3880 0001:002E5474 + 3886 0001:002E5488 3887 0001:002E54A0 3888 0001:002E54AE 3889 0001:002E54E0 + 3890 0001:002E5502 3891 0001:002E5518 3892 0001:002E5525 3893 0001:002E5541 + 3894 0001:002E555D 3895 0001:002E5574 3896 0001:002E5584 3897 0001:002E55A0 + 3902 0001:002E55B4 3904 0001:002E55C1 3905 0001:002E55D9 3906 0001:002E55E7 + 3907 0001:002E5619 3908 0001:002E563B 3909 0001:002E5648 3910 0001:002E5664 + 3911 0001:002E5673 3914 0001:002E5687 3916 0001:002E5694 3917 0001:002E56A5 + 3919 0001:002E56B2 3920 0001:002E56CA 3921 0001:002E56D8 3922 0001:002E56E5 + 3923 0001:002E56F5 3924 0001:002E5711 3925 0001:002E571C 3926 0001:002E5729 + 3927 0001:002E574B 3928 0001:002E5767 3929 0001:002E5774 3930 0001:002E57AB + 3931 0001:002E57E5 3933 0001:002E57F7 3934 0001:002E5803 3939 0001:002E580F + 3940 0001:002E5827 3941 0001:002E5835 3942 0001:002E5853 3943 0001:002E586F + 3944 0001:002E588B 3945 0001:002E58A7 3947 0001:002E58BB 3948 0001:002E58C2 + 3949 0001:002E58E0 3950 0001:002E58F4 3951 0001:002E5916 3952 0001:002E5932 + 3953 0001:002E5954 3954 0001:002E596C 3957 0001:002E5983 3958 0001:002E599F + 3963 0001:002E59BD 3964 0001:002E59D9 3969 0001:002E59F7 3970 0001:002E5A13 + 3974 0001:002E5A2F 3975 0001:002E5A57 3976 0001:002E5A6F 3977 0001:002E5A85 + 3979 0001:002E5AD8 3980 0001:002E5AEB 3982 0001:002E5B00 3984 0001:002E5B0E + 3985 0001:002E5B1A 3988 0001:002E5B21 3989 0001:002E5B43 3990 0001:002E5B59 + 3993 0001:002E5B65 3995 0001:002E5B72 3996 0001:002E5B8A 3997 0001:002E5B98 + 3998 0001:002E5BA5 3999 0001:002E5BB5 4000 0001:002E5BBB 4001 0001:002E5BCA + 4002 0001:002E5BD9 4004 0001:002E5BF0 4005 0001:002E5BFE 4006 0001:002E5C11 + 4008 0001:002E5C30 4010 0001:002E5C5C 4011 0001:002E5CB3 4012 0001:002E5D0D + 4013 0001:002E5D55 4014 0001:002E5D71 4015 0001:002E5D87 4016 0001:002E5DC5 + 4008 0001:002E5DC8 4018 0001:002E5DD1 4006 0001:002E5DD2 4019 0001:002E5DDB + 4020 0001:002E5DEF 4021 0001:002E5E03 4022 0001:002E5E10 4023 0001:002E5E32 + 4024 0001:002E5E4C 4025 0001:002E5E6B 4026 0001:002E5E8D 4027 0001:002E5EA9 + 4028 0001:002E5EB6 4030 0001:002E5EC4 4031 0001:002E5ED0 4033 0001:002E5ED7 + 4034 0001:002E5EDE 4036 0001:002E5EFA 4037 0001:002E5F0C 4041 0001:002E5F23 + 4042 0001:002E5F3A 4043 0001:002E5F41 4044 0001:002E5F4D 4045 0001:002E5F67 + 4046 0001:002E5F79 4050 0001:002E5F90 4052 0001:002E5F9D 4053 0001:002E5FB5 + 4054 0001:002E5FC3 4055 0001:002E5FDF 4056 0001:002E6001 4057 0001:002E6032 + 4058 0001:002E6064 4059 0001:002E6099 4060 0001:002E60D5 4063 0001:002E60E1 + 4065 0001:002E60EE 4066 0001:002E6106 4067 0001:002E6114 4068 0001:002E6136 + 4069 0001:002E614E 4070 0001:002E615C 4071 0001:002E616D 4072 0001:002E617A + 4073 0001:002E6189 4074 0001:002E61C8 4075 0001:002E61FE 4076 0001:002E621A + 4077 0001:002E6236 4079 0001:002E625F 4080 0001:002E6277 4081 0001:002E6285 + 4082 0001:002E6295 4083 0001:002E62B1 4084 0001:002E62ED 4085 0001:002E6301 + 4087 0001:002E6310 4090 0001:002E6319 4094 0001:002E6321 4097 0001:002E6348 + 4098 0001:002E6371 4101 0001:002E637D 4102 0001:002E6395 4103 0001:002E63A3 + 4104 0001:002E63C5 4105 0001:002E63D4 4106 0001:002E6406 4108 0001:002E640F + 4109 0001:002E6440 4111 0001:002E6472 4112 0001:002E648D 4113 0001:002E649F + 4117 0001:002E64B1 4118 0001:002E64BF 4120 0001:002E64CB 4124 0001:002E6500 + 4128 0001:002E650E 4129 0001:002E652F 4132 0001:002E654C 4133 0001:002E6555 + 4135 0001:002E6569 4137 0001:002E657B 4139 0001:002E6588 4140 0001:002E659C + 4141 0001:002E65AE 4145 0001:002E65DE 4147 0001:002E65E7 4148 0001:002E65F8 + 4149 0001:002E6608 4150 0001:002E661A 4151 0001:002E662C 4152 0001:002E663E + 4154 0001:002E664F 4156 0001:002E665C 4157 0001:002E6677 4158 0001:002E6686 + 4159 0001:002E6699 4160 0001:002E66AA 4161 0001:002E66BA 4162 0001:002E66CB + 4164 0001:002E66D8 4165 0001:002E66E9 4167 0001:002E66F6 4168 0001:002E6707 + 4169 0001:002E672A 4170 0001:002E6750 4171 0001:002E6760 4174 0001:002E677D + 4175 0001:002E6797 4176 0001:002E67B1 4177 0001:002E67C1 4178 0001:002E67D6 + 4181 0001:002E67F6 4183 0001:002E6803 4184 0001:002E681A 4185 0001:002E683A + 4186 0001:002E685A 4187 0001:002E6870 4188 0001:002E6885 4192 0001:002E68A8 + 4193 0001:002E68B9 4198 0001:002E68CE 4199 0001:002E68D7 4201 0001:002E68E8 + 4202 0001:002E68F7 3525 0001:002E68FA 4203 0001:002E6903 4205 0001:002E691D + 4207 0001:002E6A80 4209 0001:002E6DC0 4210 0001:002E6E12 4211 0001:002E6E14 + 4212 0001:002E6E19 4213 0001:002E6E24 4215 0001:002E6E2E 4216 0001:002E6E39 + 4215 0001:002E6E4C 4218 0001:002E6E4F 4220 0001:002E6E5F 4222 0001:002E6E6C + 4223 0001:002E6E72 4224 0001:002E6EA6 4225 0001:002E6EB1 4226 0001:002E6EBE + 4228 0001:002E6EDC 4229 0001:002E6EE1 4232 0001:002E6EF9 4237 0001:002E6F09 + 4238 0001:002E6F0F 4239 0001:002E6F21 4240 0001:002E6F2C 4241 0001:002E6F37 + 4242 0001:002E6F44 4243 0001:002E6F4D 4244 0001:002E6F57 4245 0001:002E6F61 + 4246 0001:002E6F72 4247 0001:002E6F83 4248 0001:002E6F9C 4249 0001:002E6FA4 + 4250 0001:002E6FB0 4251 0001:002E6FBA 4252 0001:002E6FC4 4253 0001:002E6FCE + 4254 0001:002E6FDB 4255 0001:002E6FE8 4256 0001:002E6FF2 4257 0001:002E7035 + 4258 0001:002E7043 4259 0001:002E7050 4260 0001:002E705B 4261 0001:002E7064 + 4263 0001:002E706E 4264 0001:002E7084 4265 0001:002E709A 4266 0001:002E70B0 + 4267 0001:002E70C6 4268 0001:002E70DC 4269 0001:002E70EE 4271 0001:002E711D + 4268 0001:002E713B 4274 0001:002E713E 4275 0001:002E7157 4277 0001:002E7161 + 4278 0001:002E717F 4280 0001:002E7194 4283 0001:002E719F 4285 0001:002E71AF + 4286 0001:002E71B4 4288 0001:002E71C4 4289 0001:002E71D6 4290 0001:002E71E1 + 4291 0001:002E7202 4292 0001:002E720F 4293 0001:002E7223 4294 0001:002E722F + 4295 0001:002E724B 4296 0001:002E725D 4297 0001:002E7269 4298 0001:002E7279 + 4299 0001:002E727F 4300 0001:002E7296 4302 0001:002E729F 4306 0001:002E72A8 + 4307 0001:002E72AE 4308 0001:002E72B6 4311 0001:002E72BC 4313 0001:002E72CD + 4314 0001:002E72ED 4315 0001:002E72F1 4316 0001:002E72F3 4311 0001:002E72F4 + 4318 0001:002E72F7 4319 0001:002E7300 4321 0001:002E7313 4323 0001:002E731F + 4324 0001:002E732D 4327 0001:002E733A 4330 0001:002E7342 4332 0001:002E734C + 4334 0001:002E7352 4337 0001:002E7392 4339 0001:002E7397 4340 0001:002E73AE + 4342 0001:002E73F9 4362 0001:002E7410 4363 0001:002E7423 4365 0001:002E742C + 4366 0001:002E7457 4367 0001:002E746E 4369 0001:002E749C 4371 0001:002E74A0 + 4372 0001:002E74CA 4373 0001:002E74D4 4375 0001:002E74DE 4376 0001:002E74EE + 4378 0001:002E74F8 4379 0001:002E74FA 4381 0001:002E7520 4382 0001:002E7544 + 4383 0001:002E7557 4385 0001:002E756A 4386 0001:002E7590 4388 0001:002E7594 + 4389 0001:002E759F 4390 0001:002E75A5 4391 0001:002E75B5 4392 0001:002E75C1 + 4393 0001:002E75CF 4397 0001:002E75DF 4398 0001:002E75EF 4399 0001:002E75FF + 4402 0001:002E7601 4404 0001:002E760F 4405 0001:002E762C 4406 0001:002E7630 + 4407 0001:002E7639 4409 0001:002E766E 4412 0001:002E768E 4416 0001:002E76A9 + 4417 0001:002E76B3 4419 0001:002E76BA 4420 0001:002E76F3 4429 0001:002E7724 + 4430 0001:002E7748 4431 0001:002E775D 4432 0001:002E7767 4433 0001:002E7775 + 4435 0001:002E7785 4436 0001:002E7790 4437 0001:002E7799 4440 0001:002E77A9 + 4441 0001:002E77B7 4444 0001:002E77C3 4445 0001:002E77CC 4451 0001:002E77EB + 4452 0001:002E77F9 4453 0001:002E7803 4456 0001:002E781F 4457 0001:002E782B + 4459 0001:002E7838 4460 0001:002E7848 4461 0001:002E784C 4463 0001:002E7856 + 4465 0001:002E7861 4466 0001:002E7870 4467 0001:002E7876 4468 0001:002E7890 + 4463 0001:002E7891 4470 0001:002E7894 4472 0001:002E78A4 4474 0001:002E78B2 + 4475 0001:002E78C4 4476 0001:002E78D9 4477 0001:002E78F3 4472 0001:002E78F4 + 4480 0001:002E78F7 4482 0001:002E7915 4483 0001:002E7926 4482 0001:002E793C + 4486 0001:002E794C 4487 0001:002E7961 4489 0001:002E7992 4499 0001:002E799C + 4500 0001:002E79C9 4502 0001:002E79CE 4503 0001:002E79D1 4504 0001:002E79D6 + 4505 0001:002E79E3 4507 0001:002E79EB 4509 0001:002E79F5 4510 0001:002E7A00 + 4512 0001:002E7A17 4513 0001:002E7A25 4515 0001:002E7A3A 4516 0001:002E7A44 + 4517 0001:002E7A4E 4519 0001:002E7A74 4520 0001:002E7AB3 4521 0001:002E7AF5 + 4523 0001:002E7B0B 4524 0001:002E7B23 4527 0001:002E7B25 4517 0001:002E7B28 + 4528 0001:002E7B33 4529 0001:002E7B4B 4513 0001:002E7B4C 4532 0001:002E7B55 + 4534 0001:002E7B6C 4535 0001:002E7B7D 4534 0001:002E7B9A 4537 0001:002E7BD1 + 4547 0001:002E7BDC 4548 0001:002E7BE8 4550 0001:002E7BF5 4551 0001:002E7BFC + 4553 0001:002E7C19 4554 0001:002E7C2D 4553 0001:002E7C40 4555 0001:002E7C45 + 4556 0001:002E7C54 4557 0001:002E7C62 4558 0001:002E7C71 4559 0001:002E7C7F + 4561 0001:002E7C93 4563 0001:002E7CA2 4565 0001:002E7CA9 4567 0001:002E7CB7 + 4568 0001:002E7CCB 4569 0001:002E7CD5 4565 0001:002E7CD6 4571 0001:002E7CDB + 4559 0001:002E7CDC 4572 0001:002E7CE1 4574 0001:002E7CF0 4576 0001:002E7D01 + 4578 0001:002E7D13 4579 0001:002E7D17 4580 0001:002E7D24 4582 0001:002E7D3A + 4585 0001:002E7D68 4587 0001:002E7D72 4588 0001:002E7D76 4589 0001:002E7D7F + 4590 0001:002E7D91 4591 0001:002E7D98 4592 0001:002E7D9F 4593 0001:002E7DA8 + 4594 0001:002E7DBA 4595 0001:002E7DD1 4596 0001:002E7DE8 4597 0001:002E7E06 + 4599 0001:002E7E12 4600 0001:002E7E29 4601 0001:002E7E35 4602 0001:002E7E49 + 4604 0001:002E7E5E 4605 0001:002E7E62 4607 0001:002E7E67 4608 0001:002E7E76 + 4610 0001:002E7E82 4580 0001:002E7E83 4612 0001:002E7E8C 4574 0001:002E7E8D + 4615 0001:002E7EA3 4618 0001:002E7EC0 4620 0001:002E7ED0 4622 0001:002E7EE4 + 4623 0001:002E7EF3 4625 0001:002E7F00 4626 0001:002E7F05 4628 0001:002E7F0A + 4620 0001:002E7F0B 4631 0001:002E7F10 4642 0001:002E7F18 4644 0001:002E7F3D + 4646 0001:002E7F51 4648 0001:002E7F6B 4649 0001:002E7F78 4650 0001:002E7F82 + 4651 0001:002E7F8B 4657 0001:002E801C 4658 0001:002E803E 4659 0001:002E8048 + 4660 0001:002E8053 4661 0001:002E8060 4663 0001:002E8082 4666 0001:002E80BA + 4668 0001:002E80E6 4671 0001:002E8118 4672 0001:002E813A 4675 0001:002E8166 + 4678 0001:002E81AC 4680 0001:002E81BF 4682 0001:002E81DA 4683 0001:002E81E0 + 4684 0001:002E8222 4685 0001:002E8233 4687 0001:002E826B 4690 0001:002E827F + 4692 0001:002E8294 4693 0001:002E829A 4694 0001:002E82DC 4695 0001:002E82ED + 4697 0001:002E8325 4699 0001:002E8339 4701 0001:002E8353 4702 0001:002E8367 + 4705 0001:002E837B 4646 0001:002E837E 4707 0001:002E8387 4709 0001:002E83A6 + 4710 0001:002E83AF 4712 0001:002E83BA 4713 0001:002E83BC 4715 0001:002E83D2 + 4717 0001:002E83DD 4718 0001:002E83E3 4719 0001:002E83E4 4713 0001:002E83E7 + 4720 0001:002E83EC 4721 0001:002E83F6 4723 0001:002E8405 4724 0001:002E840D + 4726 0001:002E841C 4727 0001:002E8424 4729 0001:002E842A 4730 0001:002E8434 + 4731 0001:002E843A 4732 0001:002E8445 4733 0001:002E8467 4734 0001:002E8479 + 4737 0001:002E848D 4738 0001:002E84A3 4737 0001:002E84B9 4740 0001:002E84ED + 4746 0001:002E867C 4747 0001:002E867D 4748 0001:002E867F 4751 0001:002E8683 + 4752 0001:002E869A 4749 0001:002E869D 4754 0001:002E86A7 4757 0001:002E86AC + 4759 0001:002E86C2 4762 0001:002E8706 4765 0001:002E8718 4766 0001:002E871C + 4768 0001:002E8723 4769 0001:002E872A 4770 0001:002E8736 4773 0001:002E873B + 4774 0001:002E8742 4777 0001:002E8748 4778 0001:002E875E 4779 0001:002E87A2 + 4782 0001:002E87B4 4783 0001:002E87CA 4784 0001:002E8808 4792 0001:002E880C + 4793 0001:002E882B 4795 0001:002E8849 4796 0001:002E884B 4798 0001:002E884F + 4799 0001:002E885E 4800 0001:002E887F 4802 0001:002E8881 4803 0001:002E8885 + 4804 0001:002E8897 4806 0001:002E889F 4807 0001:002E88A7 4809 0001:002E88BA + 4811 0001:002E88C7 4813 0001:002E88F0 4814 0001:002E88F6 4815 0001:002E8903 + 4818 0001:002E8918 4807 0001:002E891B 4819 0001:002E891E 4820 0001:002E8924 + 4821 0001:002E893A 4824 0001:002E8967 4827 0001:002E897C 4828 0001:002E898E + 4829 0001:002E89B4 4832 0001:002E89B8 4833 0001:002E89D3 4834 0001:002E8A25 + 4842 0001:002E8A44 4843 0001:002E8A68 4844 0001:002E8A73 4845 0001:002E8A81 + 4846 0001:002E8A84 4847 0001:002E8A9A 4848 0001:002E8ABC 4849 0001:002E8AC0 + 4851 0001:002E8AD0 4853 0001:002E8AED 4855 0001:002E8B25 4862 0001:002E8B38 + 4863 0001:002E8B60 4864 0001:002E8B6F 4865 0001:002E8B7D 4867 0001:002E8B92 + 4868 0001:002E8BB2 4870 0001:002E8BB8 4871 0001:002E8BE8 4872 0001:002E8BF3 + 4874 0001:002E8BFB 4865 0001:002E8BFC 4876 0001:002E8C0C 4878 0001:002E8C1C + 4879 0001:002E8C3A 4880 0001:002E8C4B 4879 0001:002E8C61 4881 0001:002E8C86 + 4885 0001:002E8C9C 4888 0001:002E8CA1 4889 0001:002E8CAC 4890 0001:002E8CB3 + 4892 0001:002E8CC7 4893 0001:002E8CD0 4896 0001:002E8CD8 4899 0001:002E8CDC + 4902 0001:002E8CE1 4903 0001:002E8CEC 4904 0001:002E8CF3 4906 0001:002E8D07 + 4907 0001:002E8D10 4910 0001:002E8D18 4914 0001:002E8D1C 4915 0001:002E8D1F + 4917 0001:002E8D24 4918 0001:002E8D29 4920 0001:002E8D2C 4926 0001:002E8D30 + 4927 0001:002E8D41 4932 0001:002E8D44 4933 0001:002E8D4C 4938 0001:002E8D50 + 4939 0001:002E8D66 4940 0001:002E8DAA 4959 0001:002E8DBC 4960 0001:002E8DE9 + 4961 0001:002E8DEC 4962 0001:002E8DF5 4963 0001:002E8E07 4965 0001:002E8E10 + 4967 0001:002E8E20 4968 0001:002E8E3D 4969 0001:002E8E4D 4970 0001:002E8E60 + 4977 0001:002E8ED1 4979 0001:002E8EDE 4981 0001:002E8EE7 4982 0001:002E8EF1 + 4984 0001:002E8EFB 4985 0001:002E8F04 4986 0001:002E8F0E 4988 0001:002E8F1B + 4989 0001:002E8F4D 4990 0001:002E8F56 4991 0001:002E8F7E 4995 0001:002E8FAE + 4998 0001:002E8FB3 5000 0001:002E8FBC 5001 0001:002E8FCA 5003 0001:002E8FEE + 5006 0001:002E8FF3 5008 0001:002E9004 5009 0001:002E9011 5012 0001:002E9037 + 5013 0001:002E9042 5015 0001:002E9046 5016 0001:002E904B 5018 0001:002E9075 + 5021 0001:002E90BE 5033 0001:002E90EC 5034 0001:002E911A 5035 0001:002E9122 + 5036 0001:002E913F 5037 0001:002E914F 5038 0001:002E9162 5039 0001:002E9168 + 5040 0001:002E917B 5041 0001:002E918E 5043 0001:002E91A1 5044 0001:002E91A8 + 5046 0001:002E91D3 5048 0001:002E91E1 5050 0001:002E91FD 5051 0001:002E9213 + 5053 0001:002E921E 5054 0001:002E924D 5056 0001:002E924F 5048 0001:002E9252 + 5059 0001:002E9257 5062 0001:002E9264 5063 0001:002E9268 5065 0001:002E9271 + 5066 0001:002E928A 5067 0001:002E929B 5068 0001:002E92BF 5071 0001:002E92C3 + 5073 0001:002E92D9 5074 0001:002E92DE 5077 0001:002E932E 5079 0001:002E933B + 5080 0001:002E9341 5083 0001:002E934E 5084 0001:002E9374 5085 0001:002E9383 + 5086 0001:002E938E 5091 0001:002E93F0 5093 0001:002E93F9 5094 0001:002E940C + 5095 0001:002E941F 5096 0001:002E9432 5098 0001:002E9445 5100 0001:002E9456 + 5102 0001:002E9460 5104 0001:002E9473 5105 0001:002E9489 5106 0001:002E948F + 5107 0001:002E94A0 5102 0001:002E94A3 5109 0001:002E94A6 5111 0001:002E94BF + 5113 0001:002E94D5 5114 0001:002E94EE 5115 0001:002E9509 5116 0001:002E951A + 5111 0001:002E951D 5120 0001:002E9520 5121 0001:002E952A 5125 0001:002E955F + 5126 0001:002E9564 5128 0001:002E957A 5130 0001:002E9583 5132 0001:002E9599 + 5133 0001:002E95AF 5135 0001:002E95BA 5136 0001:002E95D3 5137 0001:002E95DD + 5139 0001:002E95DF 5130 0001:002E95E2 5142 0001:002E95E5 5144 0001:002E95EF + 5146 0001:002E9631 5147 0001:002E964C 5148 0001:002E9659 5149 0001:002E966D + 5151 0001:002E9673 5153 0001:002E9691 5154 0001:002E969F 5156 0001:002E96A5 + 5158 0001:002E96B7 5159 0001:002E96B9 5163 0001:002E96C0 5164 0001:002E96C5 + 5166 0001:002E96CA 5167 0001:002E96DE 5169 0001:002E96EA 5170 0001:002E970E + 5171 0001:002E9710 5166 0001:002E9713 5175 0001:002E975A 5177 0001:002E97AC + 5178 0001:002E97EC 5179 0001:002E97F1 5181 0001:002E980B 5183 0001:002E9818 + 5185 0001:002E9832 5186 0001:002E9863 5188 0001:002E988E 5183 0001:002E988F + 5191 0001:002E9899 5192 0001:002E98A8 5194 0001:002E98BF 5195 0001:002E98CD + 5196 0001:002E98D2 5198 0001:002E98EC 5200 0001:002E990D 5201 0001:002E994B + 5202 0001:002E998C 5204 0001:002E99A2 5205 0001:002E99D4 5206 0001:002E99FF + 5208 0001:002E9A02 5198 0001:002E9A03 5209 0001:002E9A0C 5196 0001:002E9A0D + 5213 0001:002E9A18 5214 0001:002E9A5D 5222 0001:002E9A70 5223 0001:002E9A86 + 5224 0001:002E9AC2 5230 0001:002E9AC8 5231 0001:002E9AD5 5232 0001:002E9ADC + 5233 0001:002E9AE3 5235 0001:002E9AEA 5237 0001:002E9AFB 5238 0001:002E9B09 + 5239 0001:002E9B1A 5235 0001:002E9B1B 5241 0001:002E9B1E 5242 0001:002E9B28 + 5243 0001:002E9B3F 5246 0001:002E9B44 5247 0001:002E9B5B 5248 0001:002E9B5D + 5249 0001:002E9B63 5250 0001:002E9BA5 5258 0001:002E9BB8 5259 0001:002E9BBE + 5260 0001:002E9BCE 5263 0001:002E9BD4 5264 0001:002E9BDA 5265 0001:002E9BEA + 5270 0001:002E9BF0 5271 0001:002E9C09 5272 0001:002E9C0B 5274 0001:002E9C21 + 5275 0001:002E9C44 5276 0001:002E9C6A 5277 0001:002E9C90 5280 0001:002E9CB8 + 5281 0001:002E9CBE 5282 0001:002E9CCE 5284 0001:002E9CD4 5285 0001:002E9CDB + 5286 0001:002E9CED 5288 0001:002E9CF1 5291 0001:002E9CF4 5292 0001:002E9D00 + 5293 0001:002E9D17 5296 0001:002E9D18 5297 0001:002E9D2E 5298 0001:002E9D72 + 5305 0001:002E9D84 5306 0001:002E9DA2 5307 0001:002E9DB2 5308 0001:002E9DC5 + 5310 0001:002E9DD9 5312 0001:002E9DFD 5313 0001:002E9E01 5315 0001:002E9E12 + 5317 0001:002E9E17 5318 0001:002E9E31 5319 0001:002E9E51 5322 0001:002E9E85 + 5335 0001:002E9EA8 5336 0001:002E9ECE 5337 0001:002E9EDC 5338 0001:002E9EEA + 5339 0001:002E9EF1 5340 0001:002E9EFF 5341 0001:002E9F0A 5342 0001:002E9F15 + 5343 0001:002E9F1F 5344 0001:002E9F23 5346 0001:002E9F6D 5350 0001:002E9F88 + 5353 0001:002E9FA1 5354 0001:002E9FAE 5351 0001:002E9FB2 5356 0001:002E9FCD + 5357 0001:002E9FDF 5358 0001:002E9FF2 5363 0001:002EA004 5364 0001:002EA02E + 5369 0001:002EA03A 5370 0001:002EA04A 5371 0001:002EA05F 5374 0001:002EA06F + 5375 0001:002EA07A 5376 0001:002EA0A4 5377 0001:002EA0B9 5378 0001:002EA0CB + 5384 0001:002EA0DA 5386 0001:002EA0F0 5387 0001:002EA100 5389 0001:002EA112 + 5390 0001:002EA13E 5391 0001:002EA16A 5393 0001:002EA196 5395 0001:002EA1AE + 5397 0001:002EA1E0 5399 0001:002EA217 5393 0001:002EA218 5403 0001:002EA220 + 5404 0001:002EA22E 5412 0001:002EA244 5414 0001:002EA25A 5415 0001:002EA26A + 5417 0001:002EA27C 5419 0001:002EA295 5421 0001:002EA2B0 5422 0001:002EA2DA + 5423 0001:002EA2EB 5425 0001:002EA2F4 5426 0001:002EA304 5429 0001:002EA311 + 5431 0001:002EA32A 5433 0001:002EA345 5435 0001:002EA36F 5437 0001:002EA38C + 5439 0001:002EA3AA 5445 0001:002EA3DD 5446 0001:002EA3EE 5448 0001:002EA40B + 5450 0001:002EA41E 5452 0001:002EA424 5455 0001:002EA449 5456 0001:002EA484 + 5448 0001:002EA485 5457 0001:002EA488 5458 0001:002EA4AA 5460 0001:002EA4BF + 5461 0001:002EA4CF 5462 0001:002EA4F1 5463 0001:002EA4FE 5466 0001:002EA50C + 5468 0001:002EA525 5470 0001:002EA538 5472 0001:002EA53E 5475 0001:002EA563 + 5476 0001:002EA59E 5468 0001:002EA59F 5478 0001:002EA5A2 5480 0001:002EA5BB + 5482 0001:002EA5CE 5484 0001:002EA5D4 5487 0001:002EA5F9 5488 0001:002EA634 + 5480 0001:002EA635 5490 0001:002EA638 5494 0001:002EA64E 5496 0001:002EA68D + 5500 0001:002EA703 5501 0001:002EA737 5502 0001:002EA747 5504 0001:002EA753 + 5505 0001:002EA763 5508 0001:002EA77D 5511 0001:002EA7ED 5512 0001:002EA7FB + 5519 0001:002EA810 5521 0001:002EA83C 5523 0001:002EA845 5524 0001:002EA862 + 5526 0001:002EA869 5527 0001:002EA86C 5528 0001:002EA893 5529 0001:002EA8A7 + 5532 0001:002EA8B8 5534 0001:002EA8BD 5537 0001:002EA8C5 5538 0001:002EA8E6 + 5539 0001:002EA911 5540 0001:002EA91F 5541 0001:002EA94A 5545 0001:002EA95B + 5547 0001:002EA960 5548 0001:002EA976 5551 0001:002EA97C 5552 0001:002EA981 + 5554 0001:002EA997 5556 0001:002EA9A4 5557 0001:002EA9AA 5558 0001:002EA9B8 + 5559 0001:002EA9C6 5561 0001:002EA9DE 5562 0001:002EA9E4 5566 0001:002EA9FD + 5568 0001:002EAA03 5569 0001:002EAA11 5572 0001:002EAA2F 5575 0001:002EAA4B + 5577 0001:002EAA64 5578 0001:002EAA7F 5579 0001:002EAB77 5583 0001:002EAD20 + 5584 0001:002EAD29 5586 0001:002EAD56 5587 0001:002EAD6A 5595 0001:002EAD70 + 5596 0001:002EAD77 5597 0001:002EAD7E 5598 0001:002EAD86 5600 0001:002EAD8D + 5602 0001:002EADA1 5604 0001:002EADA5 5605 0001:002EADA9 5608 0001:002EADB1 + 5609 0001:002EADC4 5610 0001:002EADCE 5611 0001:002EADD8 5614 0001:002EADEA + 5615 0001:002EADEC 5617 0001:002EADF6 5619 0001:002EAE01 5621 0001:002EAE18 + 5622 0001:002EAE1A 5624 0001:002EAE1C 5617 0001:002EAE1D 5628 0001:002EAE22 + 5631 0001:002EAE28 5632 0001:002EAE3E 5633 0001:002EAE44 5635 0001:002EAE49 + 5636 0001:002EAE85 5643 0001:002EAE8C 5644 0001:002EAEA2 5645 0001:002EAEA9 + 5646 0001:002EAEAD 5648 0001:002EAEB1 5649 0001:002EAEB5 5651 0001:002EAEB9 + 5652 0001:002EAEFD 5655 0001:002EAF10 5656 0001:002EAF26 5657 0001:002EAF6A + 5667 0001:002EAF7C 5668 0001:002EAFA3 5669 0001:002EAFAB 5671 0001:002EAFBB + 5672 0001:002EAFC5 5673 0001:002EAFD0 5674 0001:002EB024 5676 0001:002EB034 + 5677 0001:002EB048 5684 0001:002EB058 5689 0001:002EB068 5690 0001:002EB076 + 5692 0001:002EB0A4 5693 0001:002EB0D2 5696 0001:002EB0DF 5697 0001:002EB104 + 5699 0001:002EB113 5700 0001:002EB138 5702 0001:002EB147 5703 0001:002EB154 + 5708 0001:002EB188 5710 0001:002EB195 5715 0001:002EB1A4 5716 0001:002EB1B7 + 5719 0001:002EB1C9 5721 0001:002EB1D7 5722 0001:002EB1EA 5726 0001:002EB1FA + 5731 0001:002EB215 5732 0001:002EB237 5733 0001:002EB259 5734 0001:002EB27B + 5739 0001:002EB298 5741 0001:002EB2A8 5744 0001:002EB2B9 5746 0001:002EB2CC + 5748 0001:002EB2E4 5750 0001:002EB2EC 5751 0001:002EB305 5752 0001:002EB317 + 5756 0001:002EB332 5757 0001:002EB35F 5758 0001:002EB38C 5760 0001:002EB3B9 + 5746 0001:002EB3BA 5764 0001:002EB3C8 5766 0001:002EB3D8 5768 0001:002EB403 + 5770 0001:002EB428 5771 0001:002EB435 5773 0001:002EB448 5775 0001:002EB46D + 5776 0001:002EB47A 5778 0001:002EB48D 5780 0001:002EB4B2 5781 0001:002EB4BF + 5783 0001:002EB4D2 5785 0001:002EB4FB 5786 0001:002EB503 5791 0001:002EB51B + 5792 0001:002EB531 5794 0001:002EB547 5796 0001:002EB553 5798 0001:002EB55F + 5799 0001:002EB56C 5801 0001:002EB57C 5803 0001:002EB588 5804 0001:002EB595 + 5806 0001:002EB5A5 5808 0001:002EB5B5 5809 0001:002EB5C2 5814 0001:002EB5D7 + 5816 0001:002EB5F4 5817 0001:002EB604 5819 0001:002EB631 5821 0001:002EB64E + 5822 0001:002EB65E 5824 0001:002EB68B 5826 0001:002EB6A8 5827 0001:002EB6B8 + 5830 0001:002EB6E5 5792 0001:002EB6E6 5835 0001:002EB6F4 5841 0001:002EB701 + 5842 0001:002EB70C 5843 0001:002EB730 5845 0001:002EB73D 5850 0001:002EB758 + 5852 0001:002EB761 5854 0001:002EB779 5855 0001:002EB783 5857 0001:002EB79A + 5859 0001:002EB7BD 5860 0001:002EB7C5 5861 0001:002EB7D5 5864 0001:002EB809 + 5855 0001:002EB80A 5866 0001:002EB814 5867 0001:002EB823 5869 0001:002EB83A + 5870 0001:002EB848 5871 0001:002EB84D 5873 0001:002EB86A 5875 0001:002EB88E + 5876 0001:002EB8CF 5877 0001:002EB91F 5879 0001:002EB93D 5881 0001:002EB967 + 5882 0001:002EB96F 5883 0001:002EB97F 5885 0001:002EB9BF 5887 0001:002EB9C2 + 5873 0001:002EB9C3 5888 0001:002EB9CC 5871 0001:002EB9CD 5893 0001:002EB9DB + 5895 0001:002EB9E0 5896 0001:002EB9EB 5897 0001:002EB9F7 5900 0001:002EBA38 + 5901 0001:002EBA3D 5903 0001:002EBA4D 5905 0001:002EBA52 5907 0001:002EBA79 + 5919 0001:002EBA84 5920 0001:002EBAA3 5922 0001:002EBB40 5928 0001:002EBD1C + 5929 0001:002EBD3A 5930 0001:002EBD6C 5933 0001:002EBD70 5934 0001:002EBD7A + 5935 0001:002EBD87 5937 0001:002EBD8B 5939 0001:002EBDA5 5942 0001:002EBDE4 + 5945 0001:002EBE0A 5948 0001:002EBE14 5949 0001:002EBE1F 5950 0001:002EBE29 + 5951 0001:002EBE40 5958 0001:002EBE44 5959 0001:002EBE6B 5960 0001:002EBE6F + 5961 0001:002EBE7A 5963 0001:002EBE90 5964 0001:002EBEC4 5965 0001:002EBEFB + 5967 0001:002EBF11 5968 0001:002EBF15 5971 0001:002EBF17 5961 0001:002EBF18 + 5972 0001:002EBF23 5973 0001:002EBF59 5979 0001:002EBF64 5980 0001:002EBF8E + 5981 0001:002EBF92 5982 0001:002EBF99 5985 0001:002EBFA2 5987 0001:002EBFC0 + 5988 0001:002EBFFC 5989 0001:002EC03B 5991 0001:002EC051 5993 0001:002EC055 + 5985 0001:002EC056 5995 0001:002EC091 6006 0001:002EC09C 6007 0001:002EC0C0 + 6008 0001:002EC0E4 6009 0001:002EC0EE 6010 0001:002EC0FB 6012 0001:002EC103 + 6013 0001:002EC105 6015 0001:002EC11A 6017 0001:002EC134 6018 0001:002EC142 + 6019 0001:002EC152 6021 0001:002EC161 6022 0001:002EC17A 6024 0001:002EC18B + 6026 0001:002EC19F 6027 0001:002EC1A4 6029 0001:002EC1BC 6031 0001:002EC1D2 + 6034 0001:002EC208 6036 0001:002EC21B 6037 0001:002EC21D 6040 0001:002EC21F + 6042 0001:002EC222 6027 0001:002EC225 6045 0001:002EC22A 6046 0001:002EC22E + 6015 0001:002EC231 6048 0001:002EC23A 6051 0001:002EC251 6052 0001:002EC27E + 6066 0001:002EC294 6067 0001:002EC2C2 6068 0001:002EC2CD 6069 0001:002EC2E6 + 6070 0001:002EC2F1 6072 0001:002EC2FB 6073 0001:002EC301 6076 0001:002EC313 + 6077 0001:002EC321 6079 0001:002EC33C 6080 0001:002EC349 6085 0001:002EC37F + 6087 0001:002EC38E 6089 0001:002EC398 6090 0001:002EC3A7 6093 0001:002EC3AB + 6095 0001:002EC3D0 6096 0001:002EC3DE 6097 0001:002EC3EC 6100 0001:002EC422 + 6101 0001:002EC433 6103 0001:002EC442 6106 0001:002EC468 6108 0001:002EC4A4 + 6109 0001:002EC4A8 6110 0001:002EC4B5 6112 0001:002EC4BD 6113 0001:002EC4C1 + 6114 0001:002EC4E1 6116 0001:002EC501 6117 0001:002EC514 6119 0001:002EC523 + 6121 0001:002EC53D 6123 0001:002EC543 6124 0001:002EC54B 6128 0001:002EC554 + 6130 0001:002EC563 6131 0001:002EC56A 6136 0001:002EC573 6138 0001:002EC588 + 6139 0001:002EC58D 6141 0001:002EC5A2 6143 0001:002EC5BC 6145 0001:002EC5C2 + 6148 0001:002EC5F7 6149 0001:002EC606 6150 0001:002EC60A 6155 0001:002EC60C + 6158 0001:002EC62C 6159 0001:002EC633 6160 0001:002EC637 6163 0001:002EC639 + 6165 0001:002EC63C 6139 0001:002EC63D 6168 0001:002EC644 6169 0001:002EC64A + 6114 0001:002EC64D 6171 0001:002EC656 6173 0001:002EC67E 6175 0001:002EC69E + 6176 0001:002EC6B1 6177 0001:002EC6CB 6178 0001:002EC6D6 6180 0001:002EC6DD + 6182 0001:002EC6EE 6184 0001:002EC712 6185 0001:002EC724 6180 0001:002EC725 + 6187 0001:002EC728 6173 0001:002EC72B 6190 0001:002EC734 6191 0001:002EC73A + 6192 0001:002EC754 6194 0001:002EC781 6196 0001:002EC7D6 6199 0001:002EC801 + 6206 0001:002EC836 6207 0001:002EC844 6210 0001:002EC89A 6212 0001:002EC8B6 + 6217 0001:002EC8C5 6221 0001:002EC911 6222 0001:002EC91C 6224 0001:002EC92F + 6226 0001:002EC951 6227 0001:002EC961 6230 0001:002EC972 6235 0001:002EC981 + 6238 0001:002EC9CD 6242 0001:002ECA19 6245 0001:002ECA44 6247 0001:002ECA4E + 6248 0001:002ECA65 6250 0001:002ECA8C 6252 0001:002ECA9D 6254 0001:002ECAAC + 6255 0001:002ECAC7 6257 0001:002ECAD0 6258 0001:002ECADB 6259 0001:002ECAE1 + 6261 0001:002ECB02 6268 0001:002ECB47 6272 0001:002ECBC0 6273 0001:002ECBE2 + 6274 0001:002ECBE9 6275 0001:002ECBF7 6277 0001:002ECC0F 6279 0001:002ECC3B + 6290 0001:002ECC40 6291 0001:002ECC62 6292 0001:002ECC6D 6293 0001:002ECC78 + 6295 0001:002ECC96 6296 0001:002ECCA5 6297 0001:002ECCB3 6298 0001:002ECCC7 + 6299 0001:002ECCDA 6300 0001:002ECCDE 6301 0001:002ECCF1 6302 0001:002ECCF5 + 6304 0001:002ECD22 6307 0001:002ECD32 6309 0001:002ECD6F 6310 0001:002ECD73 + 6312 0001:002ECD93 6313 0001:002ECDA6 6314 0001:002ECDAD 6315 0001:002ECDBB + 6317 0001:002ECDC7 6319 0001:002ECDD9 6321 0001:002ECDE7 6322 0001:002ECDFF + 6324 0001:002ECE05 6317 0001:002ECE06 6326 0001:002ECE09 6327 0001:002ECE0F + 6310 0001:002ECE12 6329 0001:002ECE1B 6330 0001:002ECE22 6331 0001:002ECE30 + 6333 0001:002ECE48 6335 0001:002ECE7C 6341 0001:002ECE84 6342 0001:002ECEA0 + 6343 0001:002ECEA9 6345 0001:002ECEB2 6346 0001:002ECEBB 6348 0001:002ECEC0 + 6350 0001:002ECECB 6351 0001:002ECED6 6353 0001:002ECEE7 6354 0001:002ECEF3 + 6358 0001:002ECF01 6359 0001:002ECF06 6361 0001:002ECF27 6362 0001:002ECF2C + 6364 0001:002ECF48 6365 0001:002ECF4D 6367 0001:002ECF5B 6368 0001:002ECF6D + 6370 0001:002ECF7E 6371 0001:002ECFA6 6372 0001:002ECFDD 6375 0001:002ED050 + 6376 0001:002ED068 6377 0001:002ED06A 6378 0001:002ED071 6379 0001:002ED0A4 + 6387 0001:002ED0AC 6388 0001:002ED0C5 6391 0001:002ED0D6 6394 0001:002ED0DE + 6396 0001:002ED0EF 6397 0001:002ED0F1 6401 0001:002ED0F9 6402 0001:002ED0FB + 6404 0001:002ED0FD 6405 0001:002ED107 6407 0001:002ED113 6408 0001:002ED119 + 6409 0001:002ED138 6410 0001:002ED14A 6412 0001:002ED179 6418 0001:002ED190 + 6419 0001:002ED1AA 6420 0001:002ED1B3 6422 0001:002ED1BF 6423 0001:002ED1D9 + 6425 0001:002ED1DE 6426 0001:002ED1ED 6427 0001:002ED1FB 6428 0001:002ED209 + 6430 0001:002ED215 6434 0001:002ED229 6435 0001:002ED24D 6438 0001:002ED278 + 6439 0001:002ED291 6440 0001:002ED2C8 6446 0001:002ED2D0 6447 0001:002ED2F1 + 6449 0001:002ED302 6450 0001:002ED322 6451 0001:002ED342 6447 0001:002ED343 + 6452 0001:002ED346 6453 0001:002ED35F 6454 0001:002ED39A 6460 0001:002ED3EC + 6461 0001:002ED40A 6463 0001:002ED41B 6465 0001:002ED44A 6466 0001:002ED46A + 6468 0001:002ED48A 6461 0001:002ED48B 6469 0001:002ED48E 6470 0001:002ED4A7 + 6471 0001:002ED4F8 6479 0001:002ED55C 6480 0001:002ED582 6481 0001:002ED584 + 6483 0001:002ED5A2 6484 0001:002ED5B0 6485 0001:002ED5BE 6486 0001:002ED5CD + 6488 0001:002ED5DD 6489 0001:002ED5DF 6490 0001:002ED5EA 6491 0001:002ED609 + 6492 0001:002ED61A 6494 0001:002ED62B 6495 0001:002ED648 6496 0001:002ED64E + 6498 0001:002ED66C 6500 0001:002ED68A 6501 0001:002ED69F 6503 0001:002ED6AF + 6505 0001:002ED6B7 6507 0001:002ED6FC 6509 0001:002ED70F 6510 0001:002ED718 + 6511 0001:002ED738 6513 0001:002ED74A 6514 0001:002ED74E 6515 0001:002ED76E + 6516 0001:002ED788 6511 0001:002ED789 6518 0001:002ED78E 6520 0001:002ED79B + 6523 0001:002ED7B3 6524 0001:002ED7BC 6526 0001:002ED7D5 6527 0001:002ED7DE + 6528 0001:002ED7F9 6531 0001:002ED810 6533 0001:002ED88D 6536 0001:002ED90C + 6538 0001:002ED921 6539 0001:002ED961 6547 0001:002ED968 6548 0001:002ED982 + 6550 0001:002ED9B8 6551 0001:002ED9D8 6556 0001:002ED9E0 6557 0001:002ED9EB + 6558 0001:002ED9F5 6559 0001:002ED9FF 6560 0001:002EDA16 6566 0001:002EDA1C + 6567 0001:002EDA24 6570 0001:002EDA39 6571 0001:002EDA4A 6570 0001:002EDA61 + 6573 0001:002EDA64 6574 0001:002EDA6E 6576 0001:002EDA77 6579 0001:002EDA85 + 6580 0001:002EDA89 6581 0001:002EDA95 6582 0001:002EDA9D 6583 0001:002EDAA4 + 6585 0001:002EDAAB 6594 0001:002EDAB0 6595 0001:002EDAE1 6596 0001:002EDAEC + 6599 0001:002EDB14 6601 0001:002EDB1A 6602 0001:002EDB20 6605 0001:002EDB2F + 6606 0001:002EDB3C 6612 0001:002EDBB8 6613 0001:002EDBBB 6614 0001:002EDBC4 + 6616 0001:002EDBD7 6617 0001:002EDBE5 6618 0001:002EDBF4 6620 0001:002EDBF8 + 6621 0001:002EDC07 6622 0001:002EDC15 6623 0001:002EDC27 6624 0001:002EDC35 + 6626 0001:002EDC56 6627 0001:002EDC5E 6630 0001:002EDC68 6631 0001:002EDC76 + 6632 0001:002EDCB1 6639 0001:002EDCE0 6640 0001:002EDD01 6641 0001:002EDD0F + 6642 0001:002EDD1C 6643 0001:002EDD20 6646 0001:002EDD24 6647 0001:002EDD3E + 6649 0001:002EDD64 6659 0001:002EDD6C 6662 0001:002EDD92 6663 0001:002EDDA6 + 6664 0001:002EDDB1 6665 0001:002EDDBC 6667 0001:002EDDCC 6669 0001:002EDDD9 + 6670 0001:002EDDE2 6671 0001:002EDDF4 6673 0001:002EDE0A 6675 0001:002EDE29 + 6676 0001:002EDE39 6677 0001:002EDE6F 6679 0001:002EDEA8 6673 0001:002EDEAB + 6680 0001:002EDEB4 6686 0001:002EDECA 6688 0001:002EDED8 6690 0001:002EDEF3 + 6691 0001:002EDF03 6693 0001:002EDF39 6694 0001:002EDF55 6695 0001:002EDF63 + 6696 0001:002EDF6A 6698 0001:002EDF6F 6688 0001:002EDF72 6701 0001:002EDF7B + 6702 0001:002EDF88 6703 0001:002EDFA1 6702 0001:002EDFB5 6704 0001:002EDFBA + 6705 0001:002EDFC8 6706 0001:002EDFD9 6708 0001:002EDFDF 6709 0001:002EDFED + 6711 0001:002EDFFB 6712 0001:002EE00F 6714 0001:002EE02C 6715 0001:002EE03C + 6718 0001:002EE051 6720 0001:002EE067 6721 0001:002EE077 6722 0001:002EE093 + 6723 0001:002EE0A8 6718 0001:002EE0AB 6725 0001:002EE0AE 6712 0001:002EE0B1 + 6726 0001:002EE0BA 6728 0001:002EE0D3 6729 0001:002EE0E3 6730 0001:002EE0E9 + 6731 0001:002EE0EC 6726 0001:002EE0EF 6732 0001:002EE123 6738 0001:002EE180 + 6739 0001:002EE186 6741 0001:002EE197 6742 0001:002EE1A3 6743 0001:002EE1A7 + 6745 0001:002EE1B1 6751 0001:002EE1B4 6753 0001:002EE287 6747 0001:002EE28C + 6748 0001:002EE2A6 6750 0001:002EE2C0 + +Line numbers for rCover(rCover.pas) segment .text + + 52 0001:002EE320 53 0001:002EE329 54 0001:002EE331 55 0001:002EE33B + 56 0001:002EE346 59 0001:002EE34C 60 0001:002EE35E 61 0001:002EE36D + 62 0001:002EE37C 63 0001:002EE3A2 66 0001:002EE3A8 67 0001:002EE3B3 + 68 0001:002EE3BB 69 0001:002EE3C3 70 0001:002EE3CB 71 0001:002EE3E2 + 74 0001:002EE3E8 75 0001:002EE3EE 76 0001:002EE3F8 79 0001:002EE3FC + 80 0001:002EE402 81 0001:002EE40C 84 0001:002EE410 85 0001:002EE416 + 86 0001:002EE420 89 0001:002EE424 90 0001:002EE451 91 0001:002EE483 + 92 0001:002EE4B4 95 0001:002EE4BC 96 0001:002EE4C2 97 0001:002EE4F9 + 98 0001:002EE506 101 0001:002EE524 102 0001:002EE52A 103 0001:002EE561 + 104 0001:002EE56E 107 0001:002EE58C 108 0001:002EE5AC 109 0001:002EE5DD + 110 0001:002EE604 111 0001:002EE616 112 0001:002EE642 115 0001:002EE68C + 120 0001:002EE6AA 121 0001:002EE6D3 124 0001:002EE6D8 125 0001:002EE6DE + 126 0001:002EE6F6 127 0001:002EE70A 136 0001:002EE750 137 0001:002EE775 + 138 0001:002EE782 140 0001:002EE78F 141 0001:002EE7B4 144 0001:002EE7C3 + 145 0001:002EE7D0 147 0001:002EE7E3 149 0001:002EE7E7 150 0001:002EE856 + 151 0001:002EE85A 153 0001:002EE888 154 0001:002EE88C 155 0001:002EE898 + 156 0001:002EE8CE 158 0001:002EE8DA 160 0001:002EE908 161 0001:002EE90C + 162 0001:002EE918 163 0001:002EE94E 166 0001:002EE95A 167 0001:002EE98A + 168 0001:002EE99E 170 0001:002EE9B1 171 0001:002EE9BD 172 0001:002EEA38 + 174 0001:002EEA44 145 0001:002EEA45 175 0001:002EEA4E 176 0001:002EEA55 + 177 0001:002EEA5C 178 0001:002EEA73 179 0001:002EEAAC 188 0001:002EEB58 + 189 0001:002EEBC3 190 0001:002EEBD6 191 0001:002EEBDE 193 0001:002EEBF1 + 194 0001:002EEBFA 197 0001:002EEC30 198 0001:002EEC50 200 0001:002EEC6D + 201 0001:002EEC82 203 0001:002EEC87 204 0001:002EEC96 205 0001:002EECA4 + 206 0001:002EECAC 208 0001:002EECB8 209 0001:002EECC3 212 0001:002EECE9 + 213 0001:002EED00 214 0001:002EED0F 216 0001:002EED26 217 0001:002EED3B + 218 0001:002EED48 220 0001:002EED71 221 0001:002EED7E 222 0001:002EED91 + 223 0001:002EEDD3 224 0001:002EEDE6 225 0001:002EEDF3 218 0001:002EEDF4 + 226 0001:002EEDFB 227 0001:002EEE09 229 0001:002EEE0F 230 0001:002EEE1E + 232 0001:002EEE35 234 0001:002EEE4A 236 0001:002EEE56 238 0001:002EEE68 + 239 0001:002EEE75 240 0001:002EEE88 241 0001:002EEE95 236 0001:002EEE96 + 243 0001:002EEE99 245 0001:002EEEB1 247 0001:002EEF18 256 0001:002EEFEC + 257 0001:002EF013 258 0001:002EF03E 259 0001:002EF050 260 0001:002EF064 + 262 0001:002EF07A 263 0001:002EF086 264 0001:002EF099 265 0001:002EF0DB + 266 0001:002EF0EE 267 0001:002EF0FA 260 0001:002EF0FB 268 0001:002EF133 + 272 0001:002EF15C 273 0001:002EF162 274 0001:002EF182 275 0001:002EF194 + 276 0001:002EF1A8 279 0001:002EF1C0 280 0001:002EF1C6 283 0001:002EF1E6 + 284 0001:002EF1F8 285 0001:002EF215 287 0001:002EF229 353 0001:002EF258 + 354 0001:002EF277 355 0001:002EF27B 356 0001:002EF297 358 0001:002EF2BB + 359 0001:002EF2BF 360 0001:002EF2C1 355 0001:002EF2C2 361 0001:002EF2E5 + 367 0001:002EF2EC 368 0001:002EF30E 369 0001:002EF319 370 0001:002EF333 + 371 0001:002EF34C 372 0001:002EF373 374 0001:002EF385 375 0001:002EF3AE + 376 0001:002EF3D7 377 0001:002EF3F2 379 0001:002EF41B 381 0001:002EF435 + 382 0001:002EF445 383 0001:002EF458 384 0001:002EF49A 385 0001:002EF4AD + 386 0001:002EF4BD 379 0001:002EF4BE 387 0001:002EF4C7 388 0001:002EF4D6 + 389 0001:002EF4FB 390 0001:002EF538 392 0001:002EF5B8 393 0001:002EF5DD + 396 0001:002EF628 397 0001:002EF637 398 0001:002EF645 399 0001:002EF66F + 400 0001:002EF68B 401 0001:002EF6A7 403 0001:002EF6B5 404 0001:002EF6BD + 405 0001:002EF6D7 407 0001:002EF6E2 408 0001:002EF6F0 409 0001:002EF6FF + 410 0001:002EF71C 411 0001:002EF739 413 0001:002EF763 416 0001:002EF795 + 419 0001:002EF8B0 420 0001:002EF8B3 421 0001:002EF8B7 423 0001:002EF8C5 + 424 0001:002EF8D1 427 0001:002EF908 428 0001:002EF90E 429 0001:002EF92E + 430 0001:002EF942 434 0001:002EF95C 435 0001:002EF97E 437 0001:002EFA08 + 440 0001:002EFA28 441 0001:002EFA4A 442 0001:002EFAA4 444 0001:002EFB08 + 444 0001:002EFB0F + +Line numbers for fCover(fCover.pas) segment .text + + 146 0001:002F0124 147 0001:002F0127 148 0001:002F0134 149 0001:002F0162 + 150 0001:002F016D 151 0001:002F0174 152 0001:002F0182 153 0001:002F0190 + 154 0001:002F019E 155 0001:002F01AC 156 0001:002F01BA 157 0001:002F01C8 + 158 0001:002F01D6 159 0001:002F01E4 160 0001:002F01F1 161 0001:002F01FE + 162 0001:002F020B 163 0001:002F0218 164 0001:002F0225 165 0001:002F0232 + 166 0001:002F023F 167 0001:002F024C 171 0001:002F0250 172 0001:002F0297 + 173 0001:002F029E 175 0001:002F02B3 176 0001:002F02EB 177 0001:002F030C + 181 0001:002F0337 182 0001:002F036A 183 0001:002F0382 185 0001:002F03A6 + 186 0001:002F03E4 220 0001:002F03F0 221 0001:002F03F6 222 0001:002F0400 + 223 0001:002F0406 224 0001:002F0417 225 0001:002F0421 227 0001:002F044C + 228 0001:002F0470 229 0001:002F0478 230 0001:002F047F 231 0001:002F0493 + 232 0001:002F049F 233 0001:002F04B4 235 0001:002F04C4 236 0001:002F04C9 + 238 0001:002F04D2 240 0001:002F04DC 241 0001:002F04E9 245 0001:002F04F9 + 246 0001:002F0501 249 0001:002F050F 251 0001:002F0534 252 0001:002F0543 + 253 0001:002F054B 255 0001:002F0567 256 0001:002F0575 257 0001:002F0588 + 258 0001:002F059B 259 0001:002F05AE 260 0001:002F05C1 261 0001:002F05D4 + 262 0001:002F05E7 263 0001:002F05FA 264 0001:002F0627 265 0001:002F063A + 266 0001:002F064D 267 0001:002F0660 268 0001:002F0673 269 0001:002F0686 + 270 0001:002F0699 271 0001:002F06AC 272 0001:002F06AE 273 0001:002F06B2 + 274 0001:002F06B4 275 0001:002F06C5 276 0001:002F06D8 277 0001:002F06EE + 279 0001:002F070A 280 0001:002F0723 281 0001:002F073C 282 0001:002F0761 + 283 0001:002F0792 284 0001:002F07B7 285 0001:002F07D7 287 0001:002F07EA + 288 0001:002F0818 290 0001:002F0854 291 0001:002F086C 293 0001:002F0897 + 294 0001:002F08A4 295 0001:002F08B4 296 0001:002F08BB 299 0001:002F08D8 + 300 0001:002F08F0 302 0001:002F0903 303 0001:002F0927 304 0001:002F093F + 305 0001:002F0958 307 0001:002F0965 308 0001:002F096F 311 0001:002F097C + 312 0001:002F0984 313 0001:002F09A9 316 0001:002F09B3 317 0001:002F09C2 + 318 0001:002F09D0 319 0001:002F09FA 321 0001:002F0A0F 323 0001:002F0A1F + 326 0001:002F0A32 330 0001:002F0A4C 331 0001:002F0A6B 333 0001:002F0AA7 + 334 0001:002F0ABF 336 0001:002F0AC5 337 0001:002F0ADD 339 0001:002F0AEF + 340 0001:002F0AFC 342 0001:002F0B05 343 0001:002F0B0D 346 0001:002F0B19 + 348 0001:002F0B1F 349 0001:002F0B37 351 0001:002F0B49 352 0001:002F0B56 + 253 0001:002F0B59 353 0001:002F0B62 354 0001:002F0B6A 355 0001:002F0B87 + 356 0001:002F0BA4 358 0001:002F0BAC 360 0001:002F0BBC 361 0001:002F0BD4 + 363 0001:002F0BDD 364 0001:002F0BEB 365 0001:002F0BF1 369 0001:002F0C19 + 371 0001:002F0C1F 372 0001:002F0C3E 376 0001:002F0CA0 381 0001:002F0D14 + 382 0001:002F0D1E 384 0001:002F0D25 386 0001:002F0D34 388 0001:002F0D4C + 389 0001:002F0D5D 392 0001:002F0D7B 383 0001:002F0D7C 393 0001:002F0D81 + 400 0001:002F0D88 404 0001:002F0DAE 405 0001:002F0DE9 407 0001:002F0E3C + 409 0001:002F0E59 410 0001:002F0E66 411 0001:002F0EA3 412 0001:002F0EB6 + 413 0001:002F0EC3 417 0001:002F0F13 419 0001:002F0F30 420 0001:002F0F39 + 422 0001:002F0F91 425 0001:002F0FE1 426 0001:002F1006 427 0001:002F1037 + 429 0001:002F1064 430 0001:002F10B5 433 0001:002F110B 434 0001:002F1186 + 436 0001:002F11DC 437 0001:002F11F9 439 0001:002F1248 440 0001:002F1314 + 442 0001:002F1376 444 0001:002F13A9 445 0001:002F13B7 446 0001:002F13F4 + 447 0001:002F1402 448 0001:002F140D 452 0001:002F141D 453 0001:002F1494 + 457 0001:002F14F1 458 0001:002F14FA 460 0001:002F1501 462 0001:002F16AD + 465 0001:002F17C4 466 0001:002F17C7 467 0001:002F17CE 468 0001:002F17DB + 469 0001:002F1809 470 0001:002F1814 481 0001:002F1818 483 0001:002F1836 + 484 0001:002F1839 485 0001:002F1840 486 0001:002F1847 487 0001:002F184E + 488 0001:002F1855 489 0001:002F185C 491 0001:002F1863 493 0001:002F1875 + 495 0001:002F1890 496 0001:002F18C8 497 0001:002F18CC 498 0001:002F18D1 + 499 0001:002F18D6 500 0001:002F18DB 501 0001:002F18E0 502 0001:002F18E5 + 505 0001:002F18E8 490 0001:002F18E9 506 0001:002F18EE 507 0001:002F18FD + 508 0001:002F190C 509 0001:002F191B 510 0001:002F192A 511 0001:002F1939 + 512 0001:002F1948 513 0001:002F1957 515 0001:002F1964 516 0001:002F1973 + 517 0001:002F1981 518 0001:002F198E 519 0001:002F19C3 520 0001:002F19F5 + 521 0001:002F1A29 522 0001:002F1A5D 523 0001:002F1A91 524 0001:002F1AC5 + 527 0001:002F1AF9 528 0001:002F1B07 530 0001:002F1B0D 531 0001:002F1B1A + 533 0001:002F1B25 536 0001:002F1B56 538 0001:002F1B5E 539 0001:002F1B66 + 542 0001:002F1B7E 547 0001:002F1B8E 548 0001:002F1BC3 549 0001:002F1BF5 + 550 0001:002F1C29 551 0001:002F1C5D 552 0001:002F1C91 553 0001:002F1CC5 + 554 0001:002F1CF9 557 0001:002F1D2D 558 0001:002F1D3B 560 0001:002F1D41 + 561 0001:002F1D4E 564 0001:002F1D59 565 0001:002F1D61 566 0001:002F1D69 + 567 0001:002F1D71 568 0001:002F1D79 569 0001:002F1D81 570 0001:002F1D89 + 571 0001:002F1DAE 576 0001:002F1DE0 577 0001:002F1DE1 581 0001:002F1DE6 + 583 0001:002F1DF8 585 0001:002F1E13 586 0001:002F1E2E 587 0001:002F1E3A + 590 0001:002F1E5B 580 0001:002F1E5C 593 0001:002F1E61 601 0001:002F1E64 + 602 0001:002F1E8A 604 0001:002F1E8C 606 0001:002F1E9B 608 0001:002F1EC2 + 609 0001:002F1ED8 611 0001:002F1EDA 603 0001:002F1EDB 612 0001:002F1EE0 + 614 0001:002F1EE8 618 0001:002F1EF2 620 0001:002F1F0D 622 0001:002F1F40 + 623 0001:002F1F51 624 0001:002F1F87 626 0001:002F1F96 628 0001:002F1FC9 + 629 0001:002F1FDA 630 0001:002F1FEE 632 0001:002F1FFD 634 0001:002F2030 + 635 0001:002F2041 636 0001:002F2055 638 0001:002F2064 618 0001:002F2065 + 640 0001:002F206E 641 0001:002F2077 643 0001:002F208C 644 0001:002F20A6 + 646 0001:002F20EB 653 0001:002F2170 655 0001:002F218E 656 0001:002F2194 + 658 0001:002F2197 660 0001:002F21A9 662 0001:002F21C4 663 0001:002F21D8 + 666 0001:002F21DA 657 0001:002F21DB 667 0001:002F21E0 668 0001:002F21E9 + 670 0001:002F2210 671 0001:002F2272 673 0001:002F2276 674 0001:002F22D4 + 677 0001:002F22FC 680 0001:002F2310 681 0001:002F2314 682 0001:002F231B + 683 0001:002F2325 684 0001:002F2339 685 0001:002F2353 686 0001:002F2371 + 687 0001:002F238F 688 0001:002F23AD 689 0001:002F23CB 690 0001:002F23E9 + 691 0001:002F2407 692 0001:002F2425 693 0001:002F243C 694 0001:002F244F + 699 0001:002F2454 700 0001:002F245F 704 0001:002F2460 706 0001:002F2463 + 707 0001:002F2468 708 0001:002F246E 712 0001:002F2474 714 0001:002F2477 + 715 0001:002F247C 716 0001:002F2482 720 0001:002F2488 722 0001:002F248B + 723 0001:002F2490 724 0001:002F2496 728 0001:002F249C 730 0001:002F249F + 731 0001:002F24A4 732 0001:002F24AA 736 0001:002F24B0 738 0001:002F24B3 + 739 0001:002F24B8 740 0001:002F24BE 744 0001:002F24C4 746 0001:002F24C7 + 747 0001:002F24CC 748 0001:002F24D2 752 0001:002F24D8 754 0001:002F24DB + 755 0001:002F24E0 756 0001:002F24E6 764 0001:002F24EC 766 0001:002F2507 + 767 0001:002F251D 768 0001:002F254F 769 0001:002F2581 772 0001:002F25D4 + 773 0001:002F2603 781 0001:002F262C 783 0001:002F262F 784 0001:002F263A + 785 0001:002F2645 790 0001:002F2648 792 0001:002F264B 793 0001:002F2650 + 794 0001:002F265B 800 0001:002F2660 802 0001:002F2663 803 0001:002F2685 + 808 0001:002F2688 810 0001:002F268B 811 0001:002F26A9 812 0001:002F26B4 + 819 0001:002F26B8 820 0001:002F26DB 821 0001:002F26E9 822 0001:002F26F3 + 823 0001:002F2706 824 0001:002F2719 825 0001:002F272C 826 0001:002F273F + 827 0001:002F2752 828 0001:002F2765 829 0001:002F2778 830 0001:002F27A5 + 831 0001:002F27B8 832 0001:002F27CB 833 0001:002F27DE 834 0001:002F27F1 + 835 0001:002F2804 836 0001:002F2817 837 0001:002F282A 838 0001:002F282C + 839 0001:002F2830 840 0001:002F2832 841 0001:002F2843 842 0001:002F2856 + 843 0001:002F286C 845 0001:002F2888 846 0001:002F28B0 847 0001:002F28E2 + 848 0001:002F290A 849 0001:002F292B 852 0001:002F2967 853 0001:002F298E + 854 0001:002F29AF 855 0001:002F29C8 856 0001:002F29DF 858 0001:002F2A65 + 861 0001:002F2ADC 862 0001:002F2ADF 863 0001:002F2AEE 865 0001:002F2B03 + 868 0001:002F2B08 869 0001:002F2B0B 870 0001:002F2B1E 871 0001:002F2B31 + 872 0001:002F2B49 875 0001:002F2B4C 876 0001:002F2B66 877 0001:002F2B78 + 878 0001:002F2BB0 882 0001:002F2BB8 884 0001:002F2BBB 885 0001:002F2BC1 + 886 0001:002F2BC8 896 0001:002F2BCC 898 0001:002F2BF2 899 0001:002F2BF9 + 901 0001:002F2C00 902 0001:002F2C11 903 0001:002F2C22 904 0001:002F2C37 + 905 0001:002F2C57 907 0001:002F2C77 909 0001:002F2C95 913 0001:002F2C9C + 914 0001:002F2CCB 921 0001:002F2D04 922 0001:002F2D16 927 0001:002F2D2D + 929 0001:002F2D4F 933 0001:002F2D56 934 0001:002F2D88 936 0001:002F2DBF + 937 0001:002F2DDD 944 0001:002F2DF1 945 0001:002F2E03 952 0001:002F2E1A + 953 0001:002F2E27 955 0001:002F2E3F 957 0001:002F2E50 958 0001:002F2E68 + 959 0001:002F2E81 960 0001:002F2EA5 962 0001:002F2EB4 963 0001:002F2ED0 + 964 0001:002F2EE9 965 0001:002F2F0C 967 0001:002F2F1B 970 0001:002F2F2D + 972 0001:002F2F43 973 0001:002F2F5B 974 0001:002F2F73 975 0001:002F2F90 + 976 0001:002F2F9F 977 0001:002F2FAE 980 0001:002F2FC0 982 0001:002F2FD6 + 983 0001:002F2FEE 984 0001:002F3009 985 0001:002F3026 986 0001:002F3035 + 988 0001:002F3044 992 0001:002F3073 997 0001:002F3104 999 0001:002F3163 + 994 0001:002F3168 996 0001:002F3195 + +Line numbers for fVitals(fVitals.pas) segment .text + + 144 0001:002F3744 145 0001:002F374B 146 0001:002F3762 147 0001:002F3770 + 150 0001:002F3778 151 0001:002F37A5 153 0001:002F37B8 154 0001:002F37BD + 155 0001:002F37CD 159 0001:002F37E5 161 0001:002F37F5 164 0001:002F37FC + 165 0001:002F37FF 166 0001:002F3806 167 0001:002F3813 169 0001:002F3833 + 170 0001:002F385C 177 0001:002F3878 184 0001:002F38A2 185 0001:002F38AF + 186 0001:002F38BC 187 0001:002F38DC 189 0001:002F38F2 191 0001:002F3900 + 192 0001:002F391A 193 0001:002F3922 201 0001:002F3A0A 204 0001:002F3A39 + 205 0001:002F3A66 206 0001:002F3A6A 207 0001:002F3A77 208 0001:002F3A81 + 209 0001:002F3AC9 267 0001:002F3BD8 268 0001:002F3BFD 269 0001:002F3C28 + 270 0001:002F3C53 271 0001:002F3C7B 272 0001:002F3C86 274 0001:002F3C8F + 275 0001:002F3CAF 276 0001:002F3CD0 277 0001:002F3CDD 278 0001:002F3CE7 + 279 0001:002F3CF4 280 0001:002F3D0D 281 0001:002F3D1E 280 0001:002F3D2E + 281 0001:002F3D31 279 0001:002F3D34 282 0001:002F3D39 284 0001:002F3D3F + 285 0001:002F3D53 286 0001:002F3D69 285 0001:002F3D7B 288 0001:002F3D80 + 290 0001:002F3D92 291 0001:002F3DE2 288 0001:002F3DE3 292 0001:002F3DE8 + 294 0001:002F3DFE 295 0001:002F3E28 296 0001:002F3E53 297 0001:002F3E85 + 292 0001:002F3E86 299 0001:002F3EB1 302 0001:002F3EE4 303 0001:002F3EF3 + 304 0001:002F3F3C 305 0001:002F3F49 308 0001:002F3F70 309 0001:002F3F7C + 310 0001:002F3FC7 311 0001:002F3FD4 318 0001:002F3FF8 319 0001:002F401A + 321 0001:002F404B 323 0001:002F4051 325 0001:002F405C 329 0001:002F40A9 + 332 0001:002F40BA 333 0001:002F40DC 335 0001:002F40F5 336 0001:002F4103 + 337 0001:002F4114 338 0001:002F411A 340 0001:002F412B 343 0001:002F4143 + 345 0001:002F4154 346 0001:002F4189 347 0001:002F4199 348 0001:002F41A6 + 349 0001:002F41B6 350 0001:002F41BF 351 0001:002F41D2 352 0001:002F41E2 + 353 0001:002F41F1 355 0001:002F4202 356 0001:002F4229 358 0001:002F4249 + 359 0001:002F4258 362 0001:002F429F 365 0001:002F42DC 366 0001:002F42DF + 367 0001:002F42F1 368 0001:002F4302 369 0001:002F4337 370 0001:002F4347 + 371 0001:002F4360 372 0001:002F4370 375 0001:002F4374 376 0001:002F4377 + 377 0001:002F4381 378 0001:002F4391 383 0001:002F4394 385 0001:002F43BD + 386 0001:002F43CD 387 0001:002F43F0 388 0001:002F443B 389 0001:002F448A + 390 0001:002F4512 391 0001:002F454B 394 0001:002F4594 395 0001:002F4598 + 397 0001:002F459E 398 0001:002F45B6 400 0001:002F45CA 408 0001:002F45D0 + 409 0001:002F45F4 410 0001:002F45F6 411 0001:002F4605 412 0001:002F4614 + 415 0001:002F463E 416 0001:002F4651 417 0001:002F4664 419 0001:002F4670 + 420 0001:002F467F 421 0001:002F468C 425 0001:002F469F 426 0001:002F46AE + 429 0001:002F46DC 436 0001:002F46F0 439 0001:002F4724 440 0001:002F4729 + 441 0001:002F473C 442 0001:002F475B 443 0001:002F4791 444 0001:002F47C7 + 445 0001:002F47FD 446 0001:002F4803 449 0001:002F4815 450 0001:002F4822 + 451 0001:002F484C 453 0001:002F4856 454 0001:002F486A 456 0001:002F48A3 + 457 0001:002F48B1 458 0001:002F48B3 453 0001:002F48B6 459 0001:002F48BE + 460 0001:002F48CC 461 0001:002F48E6 462 0001:002F4901 463 0001:002F4918 + 464 0001:002F493F 465 0001:002F494D 466 0001:002F495A 468 0001:002F496D + 469 0001:002F497A 470 0001:002F4998 472 0001:002F49D5 473 0001:002F49E2 + 474 0001:002F4A00 475 0001:002F4A1E 476 0001:002F4A44 477 0001:002F4A57 + 478 0001:002F4A6A 479 0001:002F4A7D 481 0001:002F4A9D 482 0001:002F4AA8 + 483 0001:002F4AB4 484 0001:002F4AC0 485 0001:002F4B30 486 0001:002F4B51 + 487 0001:002F4B72 488 0001:002F4B75 490 0001:002F4B81 491 0001:002F4B8D + 492 0001:002F4BAE 495 0001:002F4BBB 469 0001:002F4BBE 496 0001:002F4BCA + 497 0001:002F4BDA 501 0001:002F4BEF 502 0001:002F4C0D 504 0001:002F4C4A + 505 0001:002F4C57 506 0001:002F4C64 507 0001:002F4C8A 509 0001:002F4C9A + 510 0001:002F4CA5 511 0001:002F4CB1 512 0001:002F4D21 513 0001:002F4D42 + 515 0001:002F4D45 501 0001:002F4D48 516 0001:002F4D54 518 0001:002F4D88 + 519 0001:002F4DBD 521 0001:002F4DF2 523 0001:002F4E10 524 0001:002F4E28 + 525 0001:002F4E34 526 0001:002F4E3F 527 0001:002F4E52 528 0001:002F4E69 + 532 0001:002F4E82 534 0001:002F4E95 536 0001:002F4EE5 541 0001:002F4F38 + 542 0001:002F4F65 543 0001:002F4F8E 544 0001:002F4FB8 545 0001:002F4FE3 + 546 0001:002F5032 550 0001:002F503C 551 0001:002F5053 552 0001:002F5065 + 554 0001:002F5076 555 0001:002F509D 557 0001:002F50BD 558 0001:002F50CC + 561 0001:002F50FB 564 0001:002F5104 565 0001:002F5108 566 0001:002F5122 + 567 0001:002F5139 569 0001:002F514B 570 0001:002F515A 572 0001:002F517A + 575 0001:002F5180 576 0001:002F5183 577 0001:002F519E 580 0001:002F51A0 + 581 0001:002F51A4 582 0001:002F51C2 583 0001:002F51E6 584 0001:002F520A + 588 0001:002F5210 589 0001:002F5217 595 0001:002F5218 596 0001:002F521B + 597 0001:002F522F 598 0001:002F5243 599 0001:002F5257 600 0001:002F526B + 603 0001:002F5270 604 0001:002F5276 605 0001:002F528B 609 0001:002F529F + 611 0001:002F52AF 612 0001:002F52BC 614 0001:002F52C8 616 0001:002F52E8 + 617 0001:002F52FB 620 0001:002F52FE 623 0001:002F5310 624 0001:002F5320 + 625 0001:002F532E 626 0001:002F5346 628 0001:002F5355 630 0001:002F536B + 632 0001:002F537F 636 0001:002F53F8 637 0001:002F540B 640 0001:002F540C + 641 0001:002F5410 642 0001:002F542F 643 0001:002F5438 646 0001:002F543C + 647 0001:002F5440 648 0001:002F545F 649 0001:002F5468 652 0001:002F546C + 653 0001:002F5470 654 0001:002F548F 655 0001:002F5498 658 0001:002F549C + 659 0001:002F549F 660 0001:002F54AE 664 0001:002F54B0 665 0001:002F54BB + 672 0001:002F54BC 674 0001:002F54DE 675 0001:002F54EE 677 0001:002F54FE + 678 0001:002F5517 679 0001:002F5530 680 0001:002F553F 681 0001:002F554E + 682 0001:002F556A 683 0001:002F557F 684 0001:002F55BA 688 0001:002F562F + 689 0001:002F5644 690 0001:002F565F 691 0001:002F566E 692 0001:002F567C + 693 0001:002F56A7 694 0001:002F56BC 696 0001:002F56C8 697 0001:002F56F0 + 699 0001:002F574C 702 0001:002F575C 703 0001:002F576A 704 0001:002F5793 + 709 0001:002F587C 710 0001:002F5899 711 0001:002F58A9 712 0001:002F58C1 + 713 0001:002F5900 714 0001:002F590A 715 0001:002F5936 719 0001:002F5988 + 720 0001:002F598E 721 0001:002F599E 722 0001:002F59A9 726 0001:002F59B0 + 727 0001:002F59B9 728 0001:002F59CE 730 0001:002F59E5 731 0001:002F5A0D + 732 0001:002F5A18 733 0001:002F5A26 736 0001:002F5A8C 737 0001:002F5A8F + 738 0001:002F5AAA 739 0001:002F5AC5 740 0001:002F5AE0 741 0001:002F5B0F + 743 0001:002F5B1E 744 0001:002F5B35 748 0001:002F5B44 749 0001:002F5B54 + 751 0001:002F5B61 756 0001:002F5B78 757 0001:002F5B93 760 0001:002F5BE9 + 761 0001:002F5C28 768 0001:002F5C3C 769 0001:002F5C6B 770 0001:002F5C8D + 771 0001:002F5CB9 772 0001:002F5CD7 773 0001:002F5CE3 774 0001:002F5CF7 + 775 0001:002F5D23 777 0001:002F5D44 778 0001:002F5D62 779 0001:002F5D6E + 783 0001:002F5D8D 784 0001:002F5DAB 785 0001:002F5DB7 787 0001:002F5DCE + 788 0001:002F5DDC 789 0001:002F5DED 791 0001:002F5DF8 792 0001:002F5E03 + 793 0001:002F5E10 795 0001:002F5E1E 796 0001:002F5E75 800 0001:002F5E90 + 801 0001:002F5E93 803 0001:002F5E99 804 0001:002F5E9E 806 0001:002F5EA3 + 808 0001:002F5ED8 808 0001:002F5EDF + +Line numbers for fEncVitals(Encounter\fEncVitals.pas) segment .text + + 136 0001:002F6524 137 0001:002F6542 138 0001:002F6544 141 0001:002F65D0 + 142 0001:002F65FE 145 0001:002F6604 146 0001:002F6623 147 0001:002F663A + 148 0001:002F6651 149 0001:002F6668 150 0001:002F667F 151 0001:002F6696 + 152 0001:002F66AD 153 0001:002F66C4 154 0001:002F66DB 155 0001:002F66F2 + 156 0001:002F6709 157 0001:002F6720 158 0001:002F6737 159 0001:002F674E + 160 0001:002F6765 161 0001:002F677C 162 0001:002F6793 167 0001:002F67AA + 169 0001:002F67B1 170 0001:002F67BF 171 0001:002F67CD 172 0001:002F67F0 + 173 0001:002F6813 175 0001:002F6843 178 0001:002F6852 179 0001:002F6869 + 180 0001:002F689A 181 0001:002F68B1 182 0001:002F68F0 188 0001:002F6914 + 189 0001:002F6937 191 0001:002F694F 192 0001:002F6958 194 0001:002F696E + 196 0001:002F69A0 197 0001:002F69E0 200 0001:002F6A2C 202 0001:002F6A5A + 203 0001:002F6A8A 206 0001:002F6AD6 208 0001:002F6B04 209 0001:002F6B34 + 212 0001:002F6B80 214 0001:002F6BAE 215 0001:002F6BDE 218 0001:002F6C2A + 220 0001:002F6C62 221 0001:002F6CB4 224 0001:002F6D12 226 0001:002F6D50 + 227 0001:002F6DA2 231 0001:002F6E00 233 0001:002F6E3E 234 0001:002F6E7A + 237 0001:002F6ED8 192 0001:002F6ED9 238 0001:002F6F07 242 0001:002F6F78 + 243 0001:002F6F7C 246 0001:002F6F90 249 0001:002F6FBF 250 0001:002F6FCE + 251 0001:002F6FE7 252 0001:002F6FF6 253 0001:002F700F 254 0001:002F701E + 256 0001:002F7037 259 0001:002F7058 263 0001:002F705C 264 0001:002F7075 + 265 0001:002F708D 266 0001:002F70B7 272 0001:002F70BC 273 0001:002F70DD + 274 0001:002F70EC 275 0001:002F70FA 276 0001:002F7102 280 0001:002F7245 + 283 0001:002F724C 285 0001:002F724F 286 0001:002F725E 287 0001:002F7265 + 296 0001:002F7268 297 0001:002F7287 299 0001:002F7294 300 0001:002F729B + 301 0001:002F72A9 303 0001:002F72BD 304 0001:002F72C1 307 0001:002F72D0 + 310 0001:002F72D4 312 0001:002F72DF 313 0001:002F7300 315 0001:002F730F + 316 0001:002F7313 317 0001:002F731C 320 0001:002F7336 308 0001:002F7337 + 322 0001:002F735D 305 0001:002F7375 324 0001:002F738B 326 0001:002F7391 + 330 0001:002F73A7 332 0001:002F73D8 338 0001:002F73E0 339 0001:002F73E5 + 344 0001:002F73E8 345 0001:002F73ED 348 0001:002F73F0 350 0001:002F73F3 + 351 0001:002F7409 352 0001:002F7416 355 0001:002F7428 357 0001:002F742C + 359 0001:002F743D 360 0001:002F7453 362 0001:002F7460 365 0001:002F7474 + 367 0001:002F7477 368 0001:002F748D 369 0001:002F749A 372 0001:002F74AC + 374 0001:002F74AF 375 0001:002F74C5 376 0001:002F74D2 379 0001:002F74E4 + 381 0001:002F74FB 383 0001:002F750C 384 0001:002F752A 386 0001:002F7554 + 389 0001:002F755C 391 0001:002F7560 393 0001:002F7571 394 0001:002F7587 + 396 0001:002F7594 400 0001:002F75A8 402 0001:002F75AB 403 0001:002F75B2 + 405 0001:002F75C2 406 0001:002F75D4 408 0001:002F75E6 414 0001:002F75F8 + 416 0001:002F75FE 417 0001:002F7609 420 0001:002F7614 422 0001:002F7621 + 423 0001:002F762A 429 0001:002F7630 432 0001:002F763F 433 0001:002F764D + 435 0001:002F7666 436 0001:002F7676 438 0001:002F768E 444 0001:002F7698 + 445 0001:002F76B5 448 0001:002F76BE 449 0001:002F76CB 450 0001:002F76EB + 451 0001:002F7701 452 0001:002F770B 454 0001:002F773A 457 0001:002F7741 + 458 0001:002F776C 463 0001:002F77E4 465 0001:002F77F6 466 0001:002F77FD + 470 0001:002F7802 477 0001:002F7804 478 0001:002F7809 481 0001:002F780C + 482 0001:002F780F 484 0001:002F7816 485 0001:002F782A 486 0001:002F783E + 487 0001:002F7852 488 0001:002F7866 491 0001:002F7868 493 0001:002F786C + 495 0001:002F787D 496 0001:002F7893 498 0001:002F78A0 501 0001:002F78B4 + 503 0001:002F78CB 505 0001:002F78DC 506 0001:002F78FA 508 0001:002F7924 + 511 0001:002F792C 513 0001:002F7930 515 0001:002F7941 516 0001:002F7957 + 518 0001:002F7964 521 0001:002F7978 522 0001:002F797F 523 0001:002F7989 + 524 0001:002F7997 526 0001:002F79AE 528 0001:002F79C0 531 0001:002F79C4 + 532 0001:002F79DD 533 0001:002F79DF 535 0001:002F7A0C 537 0001:002F7A57 + 538 0001:002F7A5B 541 0001:002F7A75 542 0001:002F7A8E 543 0001:002F7A92 + 546 0001:002F7ABD 549 0001:002F7BB4 550 0001:002F7BB7 551 0001:002F7BC4 + 552 0001:002F7BD1 553 0001:002F7BDE 554 0001:002F7BEB 555 0001:002F7BF8 + 556 0001:002F7C05 557 0001:002F7C12 561 0001:002F7C14 565 0001:002F7C20 + 567 0001:002F7C30 569 0001:002F7C36 570 0001:002F7C3B 571 0001:002F7C48 + 574 0001:002F7C57 575 0001:002F7C6C 580 0001:002F7C75 589 0001:002F7C7C + 590 0001:002F7CA7 591 0001:002F7CB6 592 0001:002F7CC4 593 0001:002F7CD4 + 594 0001:002F7CE8 595 0001:002F7CFC 596 0001:002F7D16 598 0001:002F7D2D + 599 0001:002F7D44 600 0001:002F7D5D 601 0001:002F7D67 596 0001:002F7D6A + 602 0001:002F7D6D 604 0001:002F7D83 605 0001:002F7D9A 606 0001:002F7DB4 + 607 0001:002F7DCB 608 0001:002F7DD4 609 0001:002F7DE1 602 0001:002F7DE4 + 610 0001:002F7DE7 611 0001:002F7DF7 612 0001:002F7DFF 613 0001:002F7E28 + 619 0001:002F7E30 621 0001:002F7E4E 622 0001:002F7E5C 623 0001:002F7E69 + 624 0001:002F7E83 626 0001:002F7E8B 638 0001:002F7F30 639 0001:002F7F5D + 640 0001:002F7F61 641 0001:002F7F9F 648 0001:002F8014 649 0001:002F802E + 650 0001:002F803C 651 0001:002F8049 652 0001:002F8063 654 0001:002F8067 + 655 0001:002F8075 656 0001:002F8091 657 0001:002F8095 660 0001:002F80A0 + 661 0001:002F80CD 662 0001:002F80D1 663 0001:002F8101 666 0001:002F8194 + 666 0001:002F819B + +Line numbers for fExam(Encounter\fExam.pas) segment .text + + 37 0001:002F8394 38 0001:002F83B1 40 0001:002F83D0 41 0001:002F83EA + 42 0001:002F83FB 40 0001:002F8429 43 0001:002F842C 45 0001:002F845B + 48 0001:002F8464 49 0001:002F8467 50 0001:002F846E 51 0001:002F847E + 52 0001:002F8489 53 0001:002F8494 54 0001:002F84A4 55 0001:002F84AF + 59 0001:002F84D0 60 0001:002F84E3 70 0001:002F84F0 71 0001:002F850F + 72 0001:002F8517 74 0001:002F8527 75 0001:002F852F 76 0001:002F853D + 77 0001:002F8553 78 0001:002F8563 79 0001:002F8573 81 0001:002F857B + 82 0001:002F857D 83 0001:002F8581 84 0001:002F858E 86 0001:002F85AB + 88 0001:002F85BF 89 0001:002F85D7 91 0001:002F85DB 92 0001:002F85DD + 96 0001:002F85ED 97 0001:002F85F3 100 0001:002F8605 84 0001:002F8606 + 101 0001:002F8609 102 0001:002F860F 104 0001:002F8622 108 0001:002F8634 + 111 0001:002F8651 114 0001:002F867E 116 0001:002F86C4 116 0001:002F86CB + +Line numbers for fHealthFactor(Encounter\fHealthFactor.pas) segment .text + + 38 0001:002F88DC 39 0001:002F88F9 41 0001:002F8918 42 0001:002F8932 + 43 0001:002F8943 41 0001:002F8971 44 0001:002F8974 46 0001:002F89A3 + 49 0001:002F89AC 50 0001:002F89AF 51 0001:002F89B6 52 0001:002F89C6 + 53 0001:002F89D1 54 0001:002F89DC 55 0001:002F89EC 56 0001:002F89F7 + 60 0001:002F8A20 61 0001:002F8A33 71 0001:002F8A40 72 0001:002F8A5F + 73 0001:002F8A67 75 0001:002F8A77 76 0001:002F8A7F 77 0001:002F8A8D + 78 0001:002F8AA3 79 0001:002F8AB3 80 0001:002F8AC3 82 0001:002F8ACB + 83 0001:002F8ACD 84 0001:002F8AD1 85 0001:002F8ADE 87 0001:002F8AFB + 89 0001:002F8B0F 90 0001:002F8B27 92 0001:002F8B2B 93 0001:002F8B2D + 97 0001:002F8B3D 98 0001:002F8B43 101 0001:002F8B55 85 0001:002F8B56 + 102 0001:002F8B59 103 0001:002F8B5F 105 0001:002F8B72 109 0001:002F8B84 + 112 0001:002F8BA1 115 0001:002F8BCE 117 0001:002F8C14 117 0001:002F8C1B + +Line numbers for fPatientEd(Encounter\fPatientEd.pas) segment .text + + 44 0001:002F8E2C 45 0001:002F8E49 47 0001:002F8E68 48 0001:002F8E82 + 49 0001:002F8E93 47 0001:002F8EC1 50 0001:002F8EC4 52 0001:002F8EF3 + 55 0001:002F8EFC 56 0001:002F8EFF 57 0001:002F8F06 58 0001:002F8F16 + 59 0001:002F8F21 60 0001:002F8F2C 61 0001:002F8F3C 62 0001:002F8F47 + 66 0001:002F8F6C 67 0001:002F8F7F 77 0001:002F8F8C 78 0001:002F8FAB + 79 0001:002F8FB3 81 0001:002F8FC3 82 0001:002F8FCB 83 0001:002F8FD9 + 84 0001:002F8FEF 85 0001:002F8FFF 86 0001:002F900F 88 0001:002F9017 + 89 0001:002F9019 90 0001:002F901D 91 0001:002F902A 93 0001:002F9047 + 95 0001:002F905B 96 0001:002F9073 98 0001:002F9077 99 0001:002F9079 + 103 0001:002F9089 104 0001:002F908F 107 0001:002F90A1 91 0001:002F90A2 + 108 0001:002F90A5 109 0001:002F90AB 111 0001:002F90BE 115 0001:002F90D0 + 118 0001:002F90ED 121 0001:002F911A 123 0001:002F9160 123 0001:002F9167 + +Line numbers for fSkinTest(Encounter\fSkinTest.pas) segment .text + + 49 0001:002F9448 50 0001:002F9465 52 0001:002F9484 53 0001:002F949E + 54 0001:002F94AF 52 0001:002F94DD 55 0001:002F94E0 57 0001:002F950F + 70 0001:002F9518 71 0001:002F9536 73 0001:002F9541 74 0001:002F955C + 75 0001:002F9576 76 0001:002F9587 74 0001:002F95A0 77 0001:002F95A3 + 79 0001:002F95CA 83 0001:002F95D4 104 0001:002F95D8 147 0001:002F95DC + 148 0001:002F95DF 149 0001:002F95E6 150 0001:002F95F6 151 0001:002F9601 + 152 0001:002F960C 153 0001:002F961C 154 0001:002F9627 157 0001:002F964C + 158 0001:002F964F 159 0001:002F9662 162 0001:002F9675 173 0001:002F9690 + 174 0001:002F96B5 175 0001:002F96BD 177 0001:002F96CD 178 0001:002F96D5 + 179 0001:002F96E3 180 0001:002F96F9 181 0001:002F9709 182 0001:002F9719 + 183 0001:002F9729 184 0001:002F9739 185 0001:002F9749 187 0001:002F9751 + 188 0001:002F9755 189 0001:002F9759 190 0001:002F975D 191 0001:002F976A + 192 0001:002F976F 194 0001:002F978C 196 0001:002F97A0 197 0001:002F97B7 + 199 0001:002F97BD 200 0001:002F97C1 201 0001:002F97CC 205 0001:002F97D4 + 206 0001:002F97DA 207 0001:002F97E9 208 0001:002F97EF 211 0001:002F97F9 + 192 0001:002F97FA 212 0001:002F97FD 213 0001:002F9803 215 0001:002F9816 + 216 0001:002F9826 218 0001:002F982C 219 0001:002F983E 220 0001:002F985A + 224 0001:002F9883 225 0001:002F9893 230 0001:002F98A5 231 0001:002F98B5 + 234 0001:002F98D2 237 0001:002F990F 241 0001:002F9924 243 0001:002F992A + 244 0001:002F993A 245 0001:002F9943 247 0001:002F9978 247 0001:002F997F + +Line numbers for fImmunization(Encounter\fImmunization.pas) segment .text + + 45 0001:002F9C00 46 0001:002F9C1D 48 0001:002F9C3C 49 0001:002F9C56 + 50 0001:002F9C67 48 0001:002F9C95 51 0001:002F9C98 53 0001:002F9CC7 + 59 0001:002F9CD0 60 0001:002F9CED 62 0001:002F9D0C 63 0001:002F9D26 + 64 0001:002F9D37 62 0001:002F9D65 65 0001:002F9D68 67 0001:002F9D97 + 73 0001:002F9DA0 74 0001:002F9DA5 76 0001:002F9DB0 77 0001:002F9DCA + 78 0001:002F9DDB 76 0001:002F9E03 79 0001:002F9E06 81 0001:002F9E10 + 84 0001:002F9E14 85 0001:002F9E17 86 0001:002F9E1E 87 0001:002F9E2E + 88 0001:002F9E39 89 0001:002F9E44 90 0001:002F9E54 91 0001:002F9E5F + 92 0001:002F9E6A 95 0001:002F9E90 96 0001:002F9E93 97 0001:002F9E9A + 98 0001:002F9EAD 99 0001:002F9EC0 100 0001:002F9ED3 101 0001:002F9EE6 + 111 0001:002F9F00 112 0001:002F9F22 113 0001:002F9F2A 115 0001:002F9F3A + 116 0001:002F9F42 117 0001:002F9F50 118 0001:002F9F66 119 0001:002F9F76 + 120 0001:002F9F86 121 0001:002F9F96 122 0001:002F9FA6 123 0001:002F9FB6 + 125 0001:002F9FBE 126 0001:002F9FC2 127 0001:002F9FC6 128 0001:002F9FCA + 129 0001:002F9FCE 130 0001:002F9FD2 131 0001:002F9FDF 132 0001:002F9FEC + 134 0001:002FA00D 136 0001:002FA021 137 0001:002FA038 139 0001:002FA03E + 140 0001:002FA042 141 0001:002FA048 142 0001:002FA053 146 0001:002FA060 + 147 0001:002FA066 148 0001:002FA075 149 0001:002FA07B 150 0001:002FA08A + 151 0001:002FA090 154 0001:002FA09A 132 0001:002FA09B 155 0001:002FA0A2 + 156 0001:002FA0A8 158 0001:002FA0BB 159 0001:002FA0CB 160 0001:002FA0D1 + 162 0001:002FA0E4 163 0001:002FA0F4 164 0001:002FA0FA 166 0001:002FA110 + 170 0001:002FA122 171 0001:002FA132 172 0001:002FA142 175 0001:002FA162 + 178 0001:002FA194 180 0001:002FA1D8 180 0001:002FA1DF + +Line numbers for fProcedure(Encounter\fProcedure.pas) segment .text + + 70 0001:002FA564 71 0001:002FA569 73 0001:002FA574 74 0001:002FA58E + 75 0001:002FA59F 73 0001:002FA5C7 76 0001:002FA5CA 78 0001:002FA5D4 + 83 0001:002FA5D8 85 0001:002FA5DD 87 0001:002FA5E8 88 0001:002FA602 + 89 0001:002FA613 87 0001:002FA63B 90 0001:002FA63E 92 0001:002FA648 + 95 0001:002FA64C 96 0001:002FA662 97 0001:002FA669 98 0001:002FA679 + 99 0001:002FA684 100 0001:002FA6A1 101 0001:002FA6AC 102 0001:002FA6BC + 103 0001:002FA6C6 104 0001:002FA6EF 108 0001:002FA714 110 0001:002FA727 + 122 0001:002FA734 123 0001:002FA75C 124 0001:002FA764 126 0001:002FA774 + 127 0001:002FA77C 128 0001:002FA78A 129 0001:002FA7A0 130 0001:002FA7B0 + 131 0001:002FA7C0 132 0001:002FA7D0 133 0001:002FA7E0 134 0001:002FA7F0 + 136 0001:002FA7F8 137 0001:002FA7FA 138 0001:002FA7FE 139 0001:002FA802 + 140 0001:002FA810 141 0001:002FA817 143 0001:002FA834 145 0001:002FA848 + 146 0001:002FA85F 148 0001:002FA863 149 0001:002FA865 150 0001:002FA86B + 154 0001:002FA879 155 0001:002FA87F 156 0001:002FA889 157 0001:002FA88F + 160 0001:002FA8A3 141 0001:002FA8A4 161 0001:002FA8A7 163 0001:002FA8AD + 164 0001:002FA8BF 165 0001:002FA8DB 169 0001:002FA904 170 0001:002FA916 + 172 0001:002FA926 173 0001:002FA92C 175 0001:002FA95A 180 0001:002FA98A + 181 0001:002FA99A 185 0001:002FA9B8 188 0001:002FA9FA 195 0001:002FAA04 + 196 0001:002FAA1E 197 0001:002FAA25 198 0001:002FAA47 199 0001:002FAA4E + 200 0001:002FAA6B 201 0001:002FAA73 203 0001:002FAA78 204 0001:002FAA8B + 205 0001:002FAAA0 206 0001:002FAAA4 208 0001:002FAAA9 201 0001:002FAAAC + 210 0001:002FAAAF 211 0001:002FAADF 214 0001:002FAAF4 216 0001:002FAAFA + 217 0001:002FAB17 218 0001:002FAB1E 219 0001:002FAB2A 222 0001:002FAB30 + 223 0001:002FAB33 224 0001:002FAB3A 225 0001:002FAB41 226 0001:002FAB4B + 227 0001:002FAB52 230 0001:002FAB54 231 0001:002FAB57 232 0001:002FAB5E + 233 0001:002FAB65 234 0001:002FAB6C 237 0001:002FAB70 238 0001:002FAB73 + 239 0001:002FAB7A 240 0001:002FAB81 241 0001:002FAB88 256 0001:002FAB8C + 257 0001:002FABAF 258 0001:002FABBE 259 0001:002FABC6 260 0001:002FABCE + 262 0001:002FABD6 264 0001:002FABF4 266 0001:002FAC09 267 0001:002FAC1E + 268 0001:002FAC39 269 0001:002FAC3F 271 0001:002FAC4F 272 0001:002FAC5C + 273 0001:002FAC62 274 0001:002FAC7C 277 0001:002FAC8A 262 0001:002FAC8B + 278 0001:002FAC92 280 0001:002FACB2 281 0001:002FACF8 282 0001:002FAD2E + 285 0001:002FAD39 286 0001:002FAD46 287 0001:002FAD5B 288 0001:002FAD68 + 289 0001:002FAD84 290 0001:002FAD95 291 0001:002FADA5 293 0001:002FADBB + 294 0001:002FADCB 297 0001:002FADDA 298 0001:002FADDC 300 0001:002FADEA + 301 0001:002FADFF 302 0001:002FAE0C 303 0001:002FAE42 311 0001:002FAED0 + 312 0001:002FAEF3 313 0001:002FAEFD 314 0001:002FAF17 315 0001:002FAF21 + 316 0001:002FAF2F 317 0001:002FAF34 318 0001:002FAF41 320 0001:002FAF5F + 322 0001:002FAF73 323 0001:002FAF76 324 0001:002FAF96 326 0001:002FAFA0 + 318 0001:002FAFA1 327 0001:002FAFA6 329 0001:002FAFC1 330 0001:002FAFFA + 332 0001:002FB001 334 0001:002FB023 335 0001:002FB025 337 0001:002FB02F + 338 0001:002FB074 340 0001:002FB079 341 0001:002FB086 343 0001:002FB08A + 344 0001:002FB08D 346 0001:002FB0A2 347 0001:002FB0A6 348 0001:002FB0AE + 350 0001:002FB0B2 351 0001:002FB0B8 353 0001:002FB0BA 354 0001:002FB0CC + 332 0001:002FB0CD 355 0001:002FB0D6 357 0001:002FB0E2 358 0001:002FB103 + 361 0001:002FB11B 363 0001:002FB13E 365 0001:002FB17F 374 0001:002FB194 + 375 0001:002FB1BD 376 0001:002FB1D5 378 0001:002FB1E1 379 0001:002FB1F8 + 381 0001:002FB1FD 383 0001:002FB20D 384 0001:002FB215 385 0001:002FB223 + 386 0001:002FB227 387 0001:002FB23A 388 0001:002FB275 390 0001:002FB296 + 392 0001:002FB2AE 393 0001:002FB2C5 394 0001:002FB2F5 396 0001:002FB2FB + 398 0001:002FB301 399 0001:002FB316 404 0001:002FB31C 406 0001:002FB322 + 407 0001:002FB32D 411 0001:002FB331 388 0001:002FB332 413 0001:002FB346 + 415 0001:002FB356 416 0001:002FB35C 418 0001:002FB391 421 0001:002FB3A4 + 422 0001:002FB3A7 423 0001:002FB3AE 424 0001:002FB3B5 430 0001:002FB3B8 + 431 0001:002FB3E3 432 0001:002FB3F3 433 0001:002FB3FD 434 0001:002FB40B + 435 0001:002FB416 436 0001:002FB41E 439 0001:002FB46A 440 0001:002FB483 + 441 0001:002FB496 443 0001:002FB4B8 444 0001:002FB4D0 446 0001:002FB4E7 + 450 0001:002FB558 456 0001:002FB576 457 0001:002FB5BD 458 0001:002FB5C8 + 461 0001:002FB5CF 441 0001:002FB5D0 464 0001:002FB5E6 466 0001:002FB61A + 469 0001:002FB630 470 0001:002FB633 471 0001:002FB63A 472 0001:002FB641 + 473 0001:002FB648 476 0001:002FB64C 477 0001:002FB64F 478 0001:002FB656 + 479 0001:002FB65D 480 0001:002FB664 484 0001:002FB668 486 0001:002FB685 + 487 0001:002FB692 489 0001:002FB6AA 491 0001:002FB6FB 494 0001:002FB704 + 495 0001:002FB708 496 0001:002FB70A 498 0001:002FB715 499 0001:002FB728 + 501 0001:002FB72C 507 0001:002FB7A4 511 0001:002FB7AA 516 0001:002FB7AE + 518 0001:002FB7C8 519 0001:002FB7DC 520 0001:002FB7E2 522 0001:002FB7EE + 523 0001:002FB7F2 524 0001:002FB802 526 0001:002FB804 516 0001:002FB805 + 528 0001:002FB80B 533 0001:002FB810 534 0001:002FB81C 535 0001:002FB82C + 536 0001:002FB846 535 0001:002FB85D 537 0001:002FB860 539 0001:002FB898 + 539 0001:002FB89F + +Line numbers for fPCEOther(Encounter\fPCEOther.pas) segment .text + + 39 0001:002FBAC8 40 0001:002FBAD2 41 0001:002FBAE9 42 0001:002FBAF7 + 43 0001:002FBAFF 44 0001:002FBB09 45 0001:002FBB14 47 0001:002FBB31 + 49 0001:002FBB41 52 0001:002FBB48 53 0001:002FBB61 54 0001:002FBB67 + 55 0001:002FBB7B 56 0001:002FBB89 57 0001:002FBB97 59 0001:002FBBA5 + 62 0001:002FBBB1 63 0001:002FBBC9 64 0001:002FBC03 68 0001:002FBC7C + 70 0001:002FBC93 72 0001:002FBC99 73 0001:002FBCA3 75 0001:002FBCCE + 77 0001:002FBCF2 80 0001:002FBCF8 82 0001:002FBCFB 83 0001:002FBD06 + 87 0001:002FBD08 89 0001:002FBD0B 90 0001:002FBD16 91 0001:002FBD1D + 96 0001:002FBD20 97 0001:002FBD25 100 0001:002FBD28 102 0001:002FBD2B + 103 0001:002FBD46 105 0001:002FBD78 105 0001:002FBD7F + +Line numbers for fHFSearch(Encounter\fHFSearch.pas) segment .text + + 46 0001:002FC010 47 0001:002FC017 48 0001:002FC02E 49 0001:002FC03C + 50 0001:002FC044 51 0001:002FC04F 53 0001:002FC06C 55 0001:002FC07C + 63 0001:002FC080 65 0001:002FC0A0 67 0001:002FC0B0 68 0001:002FC0BA + 69 0001:002FC0C8 70 0001:002FC0E9 71 0001:002FC0FB 74 0001:002FC110 + 75 0001:002FC12C 77 0001:002FC13E 79 0001:002FC150 78 0001:002FC159 + 82 0001:002FC166 83 0001:002FC168 84 0001:002FC17E 86 0001:002FC186 + 88 0001:002FC1AA 90 0001:002FC1AE 89 0001:002FC1B7 91 0001:002FC1C2 + 92 0001:002FC1D5 93 0001:002FC1E3 94 0001:002FC1E7 95 0001:002FC1F5 + 96 0001:002FC205 98 0001:002FC219 102 0001:002FC234 84 0001:002FC23D + 105 0001:002FC245 107 0001:002FC25A 110 0001:002FC299 120 0001:002FC2A0 + 122 0001:002FC2C4 123 0001:002FC2D3 124 0001:002FC2E1 125 0001:002FC2F8 + 127 0001:002FC30B 128 0001:002FC33A 129 0001:002FC373 125 0001:002FC374 + 130 0001:002FC379 132 0001:002FC38C 134 0001:002FC3BB 136 0001:002FC3D5 + 137 0001:002FC3EC 140 0001:002FC3F8 130 0001:002FC3F9 141 0001:002FC3FE + 143 0001:002FC415 145 0001:002FC448 146 0001:002FC468 147 0001:002FC47E + 149 0001:002FC482 151 0001:002FC4A2 147 0001:002FC4AB 153 0001:002FC4AF + 155 0001:002FC4F3 141 0001:002FC4F4 158 0001:002FC50A 160 0001:002FC544 + 163 0001:002FC564 165 0001:002FC57B 166 0001:002FC589 167 0001:002FC5B4 + 168 0001:002FC5DB 173 0001:002FC5E0 174 0001:002FC5E5 178 0001:002FC5E8 + 180 0001:002FC5FE 182 0001:002FC620 183 0001:002FC62B 185 0001:002FC639 + 188 0001:002FC662 191 0001:002FC674 193 0001:002FC693 195 0001:002FC6A3 + 196 0001:002FC6AD 197 0001:002FC6BB 198 0001:002FC6BF 200 0001:002FC6E5 + 201 0001:002FC6F6 202 0001:002FC717 204 0001:002FC72C 207 0001:002FC75B + 213 0001:002FC760 214 0001:002FC779 215 0001:002FC786 218 0001:002FC78C + 217 0001:002FC795 219 0001:002FC7A0 222 0001:002FC7C0 223 0001:002FC7D0 + 224 0001:002FC811 226 0001:002FC85C 226 0001:002FC863 + +Line numbers for fPCEBaseMain(Encounter\fPCEBaseMain.pas) segment .text + + 84 0001:002FCC34 86 0001:002FCC37 87 0001:002FCC3E 88 0001:002FCC5C + 89 0001:002FCC63 93 0001:002FCC68 99 0001:002FCC6C 100 0001:002FCC8B + 101 0001:002FCC9A 102 0001:002FCCA2 103 0001:002FCCB0 104 0001:002FCCB8 + 105 0001:002FCCD0 108 0001:002FCCED 109 0001:002FCD17 110 0001:002FCD38 + 105 0001:002FCD39 111 0001:002FCD3C 112 0001:002FCD52 113 0001:002FCD5A + 115 0001:002FCD6F 116 0001:002FCD77 118 0001:002FCD87 119 0001:002FCDAF + 130 0001:002FCDB8 132 0001:002FCDD7 133 0001:002FCDDE 134 0001:002FCDEE + 135 0001:002FCDF3 137 0001:002FCE02 138 0001:002FCE07 140 0001:002FCE11 + 141 0001:002FCE1A 142 0001:002FCE28 144 0001:002FCE32 145 0001:002FCE80 + 146 0001:002FCE8E 147 0001:002FCEB7 148 0001:002FCEC4 149 0001:002FCED3 + 151 0001:002FCEDD 152 0001:002FCF07 154 0001:002FCF0E 155 0001:002FCF3A + 158 0001:002FCF4C 160 0001:002FCF62 162 0001:002FCF6B 163 0001:002FCF72 + 164 0001:002FCF7B 166 0001:002FCFC6 170 0001:002FCFCC 171 0001:002FCFD3 + 174 0001:002FCFD4 176 0001:002FCFD7 177 0001:002FCFE4 178 0001:002FCFEB + 186 0001:002FCFF0 188 0001:002FD010 189 0001:002FD01A 190 0001:002FD028 + 192 0001:002FD05F 193 0001:002FD06A 194 0001:002FD081 196 0001:002FD092 + 197 0001:002FD0B5 198 0001:002FD10A 196 0001:002FD120 200 0001:002FD125 + 201 0001:002FD12C 202 0001:002FD141 190 0001:002FD142 203 0001:002FD14B + 205 0001:002FD160 207 0001:002FD19C 213 0001:002FD1B0 214 0001:002FD1B8 + 215 0001:002FD1DE 216 0001:002FD202 218 0001:002FD212 219 0001:002FD21A + 220 0001:002FD228 221 0001:002FD230 222 0001:002FD245 223 0001:002FD255 + 224 0001:002FD265 225 0001:002FD269 227 0001:002FD299 229 0001:002FD2B6 + 232 0001:002FD2C6 240 0001:002FD2CC 246 0001:002FD2D0 247 0001:002FD2D8 + 253 0001:002FD2DC 254 0001:002FD2E1 255 0001:002FD2E8 256 0001:002FD318 + 259 0001:002FD31C 260 0001:002FD325 261 0001:002FD332 262 0001:002FD345 + 263 0001:002FD355 264 0001:002FD362 265 0001:002FD369 267 0001:002FD373 + 271 0001:002FD37C 272 0001:002FD382 276 0001:002FD384 277 0001:002FD38D + 278 0001:002FD393 282 0001:002FD394 283 0001:002FD39E 297 0001:002FD3A0 + 298 0001:002FD3BF 299 0001:002FD3C9 300 0001:002FD3D7 301 0001:002FD3F7 + 302 0001:002FD402 304 0001:002FD422 305 0001:002FD43A 307 0001:002FD44B + 308 0001:002FD463 309 0001:002FD480 321 0001:002FD4BA 322 0001:002FD4CC + 308 0001:002FD4CD 324 0001:002FD4D0 302 0001:002FD4D3 326 0001:002FD4EA + 328 0001:002FD51E 334 0001:002FD534 336 0001:002FD53D 337 0001:002FD545 + 338 0001:002FD553 339 0001:002FD570 338 0001:002FD583 341 0001:002FD593 + 343 0001:002FD5A3 344 0001:002FD5AE 348 0001:002FD5B4 349 0001:002FD5BD + 351 0001:002FD5C5 352 0001:002FD5CA 356 0001:002FD5CC 360 0001:002FD5CF + 363 0001:002FD5D4 364 0001:002FD5ED 365 0001:002FD5F4 366 0001:002FD61A + 367 0001:002FD66A 377 0001:002FD670 379 0001:002FD696 380 0001:002FD6B6 + 381 0001:002FD6BA 382 0001:002FD6C5 384 0001:002FD6EC 385 0001:002FD732 + 386 0001:002FD78B 387 0001:002FD78F 389 0001:002FD7AA 390 0001:002FD7C1 + 392 0001:002FD7EE 393 0001:002FD7F2 394 0001:002FD807 395 0001:002FD80E + 397 0001:002FD823 387 0001:002FD824 398 0001:002FD829 400 0001:002FD84C + 401 0001:002FD86A 402 0001:002FD87B 403 0001:002FD8A4 404 0001:002FD8B2 + 405 0001:002FD8C4 406 0001:002FD8CE 407 0001:002FD8FC 409 0001:002FD900 + 382 0001:002FD903 410 0001:002FD90C 411 0001:002FD912 412 0001:002FD91A + 413 0001:002FD954 416 0001:002FD968 417 0001:002FD97E 418 0001:002FD9B3 + 421 0001:002FD9B8 423 0001:002FD9BE 424 0001:002FD9DB 425 0001:002FD9E2 + 426 0001:002FD9EE 434 0001:002FD9F4 435 0001:002FDA14 436 0001:002FDA34 + 437 0001:002FDA3E 438 0001:002FDA4C 439 0001:002FDA4E 440 0001:002FDA55 + 442 0001:002FDA72 444 0001:002FDA86 445 0001:002FDA8F 446 0001:002FDA90 + 448 0001:002FDA95 440 0001:002FDA96 449 0001:002FDA99 450 0001:002FDAA0 + 452 0001:002FDAA7 453 0001:002FDABF 455 0001:002FDAD7 456 0001:002FDAEF + 458 0001:002FDB0C 460 0001:002FDB46 461 0001:002FDB49 463 0001:002FDB4B + 456 0001:002FDB4C 466 0001:002FDB4F 468 0001:002FDB70 470 0001:002FDBA4 + 477 0001:002FDBB8 478 0001:002FDBD7 479 0001:002FDBF7 480 0001:002FDC01 + 481 0001:002FDC0F 482 0001:002FDC22 483 0001:002FDC26 485 0001:002FDC78 + 486 0001:002FDC85 488 0001:002FDCA2 489 0001:002FDCB9 490 0001:002FDCF7 + 486 0001:002FDCF8 492 0001:002FDD08 494 0001:002FDD3C 498 0001:002FDD64 + 500 0001:002FDD7D 502 0001:002FDDA8 503 0001:002FDDC8 505 0001:002FDE00 + 505 0001:002FDE07 + +Line numbers for fDiagnoses(Encounter\fDiagnoses.pas) segment .text + + 58 0001:002FE0D0 59 0001:002FE0D8 61 0001:002FE0E1 62 0001:002FE0E3 + 63 0001:002FE0F9 64 0001:002FE10D 62 0001:002FE110 66 0001:002FE113 + 68 0001:002FE127 69 0001:002FE131 70 0001:002FE143 73 0001:002FE14E + 80 0001:002FE154 82 0001:002FE15D 83 0001:002FE169 85 0001:002FE188 + 86 0001:002FE196 87 0001:002FE1A0 83 0001:002FE1A1 88 0001:002FE1A4 + 89 0001:002FE1AF 97 0001:002FE1B8 99 0001:002FE1BD 101 0001:002FE1CC + 102 0001:002FE1E6 103 0001:002FE1F7 104 0001:002FE247 101 0001:002FE248 + 105 0001:002FE24B 107 0001:002FE255 110 0001:002FE278 111 0001:002FE27B + 112 0001:002FE282 113 0001:002FE292 114 0001:002FE29D 115 0001:002FE2A8 + 116 0001:002FE2B8 117 0001:002FE2C2 118 0001:002FE2CE 121 0001:002FE2F0 + 122 0001:002FE2F3 123 0001:002FE2FA 124 0001:002FE301 127 0001:002FE304 + 128 0001:002FE30A 129 0001:002FE313 130 0001:002FE327 132 0001:002FE342 + 133 0001:002FE35A 141 0001:002FE384 142 0001:002FE390 143 0001:002FE398 + 145 0001:002FE3A8 146 0001:002FE3B0 147 0001:002FE3BE 148 0001:002FE3E1 + 149 0001:002FE3F7 150 0001:002FE3FC 151 0001:002FE400 152 0001:002FE41D + 153 0001:002FE455 151 0001:002FE459 154 0001:002FE45C 155 0001:002FE47E + 156 0001:002FE48E 157 0001:002FE49E 159 0001:002FE4A6 160 0001:002FE4A8 + 162 0001:002FE4C5 163 0001:002FE4F4 164 0001:002FE4F5 160 0001:002FE4F6 + 165 0001:002FE4F9 166 0001:002FE4FD 168 0001:002FE512 169 0001:002FE527 + 171 0001:002FE539 174 0001:002FE54E 176 0001:002FE56E 179 0001:002FE57E + 182 0001:002FE5A4 183 0001:002FE5A8 184 0001:002FE5AF 185 0001:002FE5D4 + 186 0001:002FE5DF 187 0001:002FE5F0 188 0001:002FE5F7 192 0001:002FE5FC + 193 0001:002FE61D 194 0001:002FE626 196 0001:002FE66E 197 0001:002FE681 + 198 0001:002FE690 200 0001:002FE692 201 0001:002FE69E 202 0001:002FE6C7 + 205 0001:002FE810 206 0001:002FE813 207 0001:002FE81A 208 0001:002FE824 + 209 0001:002FE82B 213 0001:002FE830 215 0001:002FE835 222 0001:002FE838 + 224 0001:002FE854 225 0001:002FE860 227 0001:002FE880 228 0001:002FE891 + 229 0001:002FE89C 230 0001:002FE8A7 231 0001:002FE8B7 232 0001:002FE8C8 + 233 0001:002FE8EF 225 0001:002FE8F0 234 0001:002FE91D 239 0001:002FE954 + 241 0001:002FE98B 242 0001:002FE9BA 244 0001:002FE9E0 245 0001:002FEA0D + 247 0001:002FEA33 248 0001:002FEA60 250 0001:002FEA83 251 0001:002FEAB0 + 253 0001:002FEAD3 255 0001:002FEAF4 257 0001:002FEB5A 259 0001:002FEC2C + 259 0001:002FEC33 + +Line numbers for fVisitType(Encounter\fVisitType.pas) segment .text + + 87 0001:002FF0C8 90 0001:002FF0E9 91 0001:002FF0FA 92 0001:002FF0FC + 93 0001:002FF121 95 0001:002FF15B 96 0001:002FF168 97 0001:002FF173 + 98 0001:002FF175 99 0001:002FF177 92 0001:002FF17A 100 0001:002FF17F + 101 0001:002FF1AE 103 0001:002FF211 104 0001:002FF225 105 0001:002FF22F + 106 0001:002FF23D 107 0001:002FF250 109 0001:002FF26B 111 0001:002FF27D + 100 0001:002FF280 113 0001:002FF2AB 118 0001:002FF2C0 120 0001:002FF2E3 + 121 0001:002FF306 123 0001:002FF32D 125 0001:002FF39E 126 0001:002FF3A8 + 127 0001:002FF3B6 128 0001:002FF3C9 130 0001:002FF3EA 133 0001:002FF3FC + 121 0001:002FF3FF 134 0001:002FF408 135 0001:002FF435 143 0001:002FF448 + 158 0001:002FF44C 159 0001:002FF47B 160 0001:002FF489 162 0001:002FF49F + 163 0001:002FF4B0 164 0001:002FF4D6 165 0001:002FF4DC 166 0001:002FF4E9 + 167 0001:002FF4FC 160 0001:002FF4FD 168 0001:002FF500 169 0001:002FF53A + 175 0001:002FF564 176 0001:002FF583 177 0001:002FF58A 178 0001:002FF59A + 179 0001:002FF5A4 180 0001:002FF5AD 181 0001:002FF5C1 183 0001:002FF5D1 + 184 0001:002FF5E5 186 0001:002FF5F1 187 0001:002FF606 190 0001:002FF61B + 191 0001:002FF63A 195 0001:002FF64D 196 0001:002FF66C 198 0001:002FF67D + 199 0001:002FF684 200 0001:002FF6BF 244 0001:002FF6D8 245 0001:002FF6DC + 246 0001:002FF6EF 247 0001:002FF6FC 248 0001:002FF709 249 0001:002FF72A + 252 0001:002FF730 254 0001:002FF748 255 0001:002FF781 256 0001:002FF788 + 257 0001:002FF7C2 263 0001:002FF7C8 265 0001:002FF7E3 266 0001:002FF7F4 + 267 0001:002FF81C 268 0001:002FF820 269 0001:002FF82E 270 0001:002FF85A + 277 0001:002FF860 279 0001:002FF87C 280 0001:002FF88D 281 0001:002FF89E + 282 0001:002FF8BB 283 0001:002FF8BF 284 0001:002FF8CD 285 0001:002FF8D4 + 286 0001:002FF902 291 0001:002FF908 292 0001:002FF90D 297 0001:002FF910 + 298 0001:002FF915 302 0001:002FF918 304 0001:002FF935 305 0001:002FF942 + 307 0001:002FF95A 309 0001:002FF9AB 314 0001:002FF9B4 315 0001:002FF9B9 + 320 0001:002FF9BC 321 0001:002FF9C1 327 0001:002FF9C4 328 0001:002FF9E0 + 329 0001:002FF9E9 332 0001:002FF9F5 333 0001:002FF9FC 334 0001:002FFA1E + 335 0001:002FFA42 336 0001:002FFA53 337 0001:002FFA6B 338 0001:002FFA88 + 339 0001:002FFA90 341 0001:002FFA95 342 0001:002FFAA8 343 0001:002FFABD + 344 0001:002FFAC1 346 0001:002FFAC6 339 0001:002FFAC9 348 0001:002FFACC + 350 0001:002FFAFC 357 0001:002FFB10 359 0001:002FFB36 360 0001:002FFB56 + 361 0001:002FFB7D 363 0001:002FFB93 364 0001:002FFB9D 365 0001:002FFBAB + 366 0001:002FFBBA 368 0001:002FFBDA 370 0001:002FFBEC 360 0001:002FFBEF + 371 0001:002FFBF4 373 0001:002FFC18 374 0001:002FFC4F 375 0001:002FFC8D + 378 0001:002FFD00 382 0001:002FFD11 385 0001:002FFD4C 398 0001:002FFD7C + 399 0001:002FFD9E 400 0001:002FFDA6 401 0001:002FFDAE 402 0001:002FFDB6 + 404 0001:002FFDD6 405 0001:002FFE1C 406 0001:002FFE52 409 0001:002FFE5D + 410 0001:002FFE6A 411 0001:002FFE70 412 0001:002FFE7D 413 0001:002FFE99 + 414 0001:002FFEB5 415 0001:002FFEC6 416 0001:002FFED6 418 0001:002FFEEC + 419 0001:002FFEFC 422 0001:002FFF0B 423 0001:002FFF0D 425 0001:002FFF1B + 426 0001:002FFF30 427 0001:002FFF3D 428 0001:002FFF6E 436 0001:002FFFC0 + 437 0001:002FFFE4 438 0001:002FFFFE 439 0001:00300008 440 0001:00300016 + 441 0001:0030001B 442 0001:00300028 444 0001:00300035 445 0001:00300038 + 447 0001:0030004B 449 0001:00300066 450 0001:0030009F 451 0001:003000BD + 453 0001:003000C4 455 0001:003000E6 456 0001:003000E8 458 0001:003000F2 + 459 0001:00300137 461 0001:0030013C 462 0001:00300149 464 0001:0030014D + 465 0001:00300150 467 0001:00300165 468 0001:00300169 469 0001:00300171 + 471 0001:00300175 472 0001:0030017B 474 0001:0030017D 475 0001:0030018F + 453 0001:00300190 477 0001:003001A6 479 0001:003001E7 482 0001:003001FC + 484 0001:00300202 485 0001:0030021F 486 0001:00300226 487 0001:0030022F + 490 0001:00300234 492 0001:0030023A 493 0001:00300257 494 0001:0030025E + 495 0001:00300267 502 0001:0030026C 503 0001:0030028F 504 0001:003002A4 + 505 0001:003002B4 506 0001:003002EC 507 0001:00300322 509 0001:00300326 + 511 0001:0030032C 516 0001:00300349 518 0001:0030034F 521 0001:00300390 + 526 0001:003003A4 527 0001:003003A9 535 0001:003003AC 535 0001:003003D8 + 529 0001:003003DC 532 0001:003003E3 + +Line numbers for fPCEBase(Encounter\fPCEBase.pas) segment .text + + 84 0001:00300608 85 0001:00300614 86 0001:0030061F 87 0001:0030062A + 119 0001:00300630 120 0001:00300638 121 0001:00300640 122 0001:0030064A + 123 0001:00300654 124 0001:00300662 125 0001:0030066C 126 0001:00300674 + 127 0001:00300691 161 0001:0030069C 162 0001:003006A3 165 0001:003006AB + 166 0001:003006B4 167 0001:003006BD 168 0001:003006D3 169 0001:003006EB + 170 0001:003006F8 193 0001:003006FC 194 0001:00300708 195 0001:00300716 + 256 0001:0030071C 257 0001:00300728 258 0001:00300740 257 0001:00300773 + 259 0001:00300778 260 0001:00300783 270 0001:00300788 272 0001:00300794 + 273 0001:003007A2 274 0001:003007B0 275 0001:003007BC 285 0001:003007C0 + 286 0001:003007CC 287 0001:003007DA 288 0001:003007E6 299 0001:003007EC + 301 0001:003007FB 302 0001:00300801 303 0001:0030080B 314 0001:00300810 + 315 0001:0030081C 318 0001:00300820 319 0001:0030083B 320 0001:0030084F + 321 0001:0030085A 322 0001:00300864 323 0001:00300887 326 0001:0030088C + 327 0001:00300895 328 0001:003008A6 329 0001:003008B8 330 0001:003008C4 + 336 0001:003008C8 337 0001:003008EA 338 0001:003008F2 339 0001:00300902 + 340 0001:00300907 342 0001:00300920 343 0001:00300928 344 0001:00300938 + 345 0001:0030095B 346 0001:0030096B 340 0001:0030096E 347 0001:00300973 + 349 0001:0030097A 350 0001:00300980 352 0001:00300986 353 0001:0030098A + 354 0001:003009A2 355 0001:003009BB 347 0001:003009BE 356 0001:003009E6 + 359 0001:003009F8 360 0001:003009FF 361 0001:00300A07 362 0001:00300A1C + 365 0001:00300A20 367 0001:00300A27 368 0001:00300A40 371 0001:00300A44 + 373 0001:00300A50 374 0001:00300A58 376 0001:00300A8C 376 0001:00300A93 + +Line numbers for fEncounterFrame(Encounter\fEncounterFrame.pas) segment .text + + 138 0001:00300D60 139 0001:00300D66 140 0001:00300D6D 141 0001:00300DAE + 142 0001:00300DB8 143 0001:00300DC2 144 0001:00300DD1 145 0001:00300DE0 + 146 0001:00300DEF 147 0001:00300DFE 148 0001:00300E0D 149 0001:00300E1C + 150 0001:00300E2B 151 0001:00300E3A 152 0001:00300E49 155 0001:00300E55 + 167 0001:00300F18 168 0001:00300F54 169 0001:00300F5C 170 0001:00300F64 + 171 0001:00300F6C 172 0001:00300F74 173 0001:00300F7C 174 0001:00300F84 + 175 0001:00300F8C 176 0001:00300F94 177 0001:00300F9C 179 0001:00300FA4 + 181 0001:00300FAB 192 0001:00300FAC 195 0001:00300FAF 196 0001:00300FB8 + 197 0001:00300FBF 198 0001:00300FC6 210 0001:00300FC8 212 0001:00300FCE + 213 0001:00300FD9 214 0001:00300FE9 215 0001:00300FF9 216 0001:00301009 + 217 0001:00301019 218 0001:00301029 219 0001:00301039 220 0001:00301049 + 221 0001:00301059 222 0001:00301069 223 0001:00301074 224 0001:00301084 + 236 0001:00301148 237 0001:00301169 238 0001:0030116B 239 0001:0030117C + 240 0001:0030119D 252 0001:003011A4 255 0001:003011BD 256 0001:003011CD + 257 0001:003011E7 258 0001:003011F7 259 0001:00301211 260 0001:00301221 + 261 0001:0030123B 262 0001:0030124B 263 0001:00301265 264 0001:00301275 + 265 0001:0030128F 266 0001:0030129F 267 0001:003012B9 268 0001:003012C9 + 269 0001:003012E3 270 0001:003012F3 271 0001:0030130D 272 0001:0030131D + 273 0001:00301337 274 0001:00301347 276 0001:00301361 278 0001:00301366 + 279 0001:00301383 280 0001:003013B2 276 0001:003013B3 281 0001:003013DA + 293 0001:003014A0 294 0001:003014A6 295 0001:003014B2 296 0001:003014BC + 297 0001:003014C1 299 0001:003014C7 300 0001:003014D1 315 0001:003014D4 + 317 0001:003014F4 319 0001:003014F9 320 0001:00301502 322 0001:0030151E + 323 0001:0030152C 325 0001:0030153E 317 0001:0030153F 326 0001:00301561 + 340 0001:0030156C 341 0001:00301583 342 0001:00301588 343 0001:003015A5 + 341 0001:003015D8 344 0001:003015DD 345 0001:00301604 358 0001:0030160C + 359 0001:0030162A 360 0001:0030163B 361 0001:00301655 360 0001:0030167D + 362 0001:0030169D 379 0001:003016A4 380 0001:003016C9 381 0001:003016E2 + 382 0001:003016F0 384 0001:003016FB 385 0001:003016FD 387 0001:00301732 + 388 0001:0030173B 391 0001:0030179C 392 0001:003017AB 393 0001:003017B7 + 394 0001:003017CD 396 0001:003017FB 398 0001:0030181C 399 0001:0030182F + 400 0001:00301839 404 0001:00301843 405 0001:0030184B 406 0001:00301855 + 407 0001:0030186A 409 0001:0030187F 410 0001:0030188C 414 0001:003018A7 + 417 0001:003018DE 427 0001:00301948 428 0001:0030194E 429 0001:00301963 + 431 0001:00301973 435 0001:00301981 450 0001:00301998 453 0001:0030199F + 454 0001:003019A1 456 0001:003019A9 457 0001:003019BD 458 0001:003019C9 + 461 0001:003019D5 463 0001:003019E5 465 0001:003019E9 466 0001:003019F5 + 469 0001:00301A04 471 0001:00301A15 473 0001:00301A50 474 0001:00301A5B + 477 0001:00301A6C 478 0001:00301A80 479 0001:00301A98 480 0001:00301AAD + 484 0001:00301AC4 485 0001:00301AD5 486 0001:00301AED 487 0001:00301AFE + 488 0001:00301B1A 489 0001:00301B2B 490 0001:00301B47 491 0001:00301B58 + 492 0001:00301B74 493 0001:00301B85 494 0001:00301BA1 495 0001:00301BB2 + 496 0001:00301BCE 497 0001:00301BDF 498 0001:00301BFB 499 0001:00301C0C + 500 0001:00301C28 501 0001:00301C39 502 0001:00301C4A 507 0001:00301C56 + 521 0001:00301D00 523 0001:00301D04 524 0001:00301D13 525 0001:00301D2B + 523 0001:00301D3A 527 0001:00301D3F 528 0001:00301D4A 529 0001:00301D56 + 530 0001:00301D60 531 0001:00301D6B 542 0001:00301D70 543 0001:00301D73 + 544 0001:00301D84 547 0001:00301D95 548 0001:00301DA7 549 0001:00301DAE + 550 0001:00301DB5 551 0001:00301DBC 569 0001:00301DC0 574 0001:00301DDC + 577 0001:00301DEC 579 0001:00301DFC 581 0001:00301E0C 582 0001:00301E21 + 584 0001:00301E30 591 0001:00301E38 593 0001:00301E48 594 0001:00301E5E + 595 0001:00301E64 600 0001:00301E78 603 0001:00301E85 604 0001:00301E8E + 606 0001:00301E9A 608 0001:00301EA1 609 0001:00301EC5 629 0001:00301EF8 + 630 0001:00301F04 631 0001:00301F0A 632 0001:00301F16 633 0001:00301F38 + 635 0001:00301F48 636 0001:00301F56 639 0001:00301F5C 640 0001:00301F6B + 641 0001:00301F79 642 0001:00301F86 643 0001:00301F91 645 0001:00301FA9 + 648 0001:00301FB9 650 0001:00301FD3 651 0001:00301FE6 652 0001:00301FEC + 655 0001:00301FF1 657 0001:00302007 658 0001:00302018 660 0001:00302029 + 662 0001:00302046 663 0001:00302057 665 0001:0030205F 666 0001:00302083 + 667 0001:0030209A 671 0001:003020C0 673 0001:003020D0 678 0001:00302214 + 680 0001:00302235 682 0001:0030224B 684 0001:00302250 685 0001:00302259 + 686 0001:0030226A 688 0001:0030228F 689 0001:0030229D 691 0001:003022AF + 682 0001:003022B0 692 0001:003022D2 696 0001:003022DC 697 0001:003022DD + 698 0001:003022E7 699 0001:003022F3 702 0001:003022F8 705 0001:003022FE + 707 0001:0030230E 708 0001:0030231B 709 0001:00302333 712 0001:00302341 + 713 0001:00302351 714 0001:0030236E 715 0001:0030237E 716 0001:0030239B + 717 0001:003023AB 718 0001:003023C8 719 0001:003023D8 720 0001:003023F5 + 721 0001:00302405 722 0001:00302422 723 0001:00302432 724 0001:0030244F + 725 0001:0030245F 727 0001:0030247C 732 0001:00302524 733 0001:00302546 + 734 0001:0030254A 735 0001:00302568 736 0001:0030259F 741 0001:003025A4 + 743 0001:003025C5 745 0001:003025DB 747 0001:003025E0 748 0001:003025E9 + 749 0001:003025FA 751 0001:0030261F 753 0001:0030262D 745 0001:0030262E + 754 0001:00302650 760 0001:00302658 761 0001:00302668 763 0001:0030266E + 764 0001:00302673 766 0001:0030268D 768 0001:00302697 770 0001:003026A1 + 771 0001:003026A5 772 0001:003026B5 773 0001:003026C8 775 0001:003026D2 + 777 0001:003026D8 778 0001:003026E6 780 0001:00302706 783 0001:00302722 + 784 0001:00302752 785 0001:00302762 787 0001:00302772 790 0001:00302777 + 791 0001:00302786 792 0001:0030279B 797 0001:003027A4 798 0001:003027A8 + 799 0001:003027AF 800 0001:003027BF 801 0001:003027D0 802 0001:003027E0 + 803 0001:003027F1 804 0001:00302801 805 0001:00302812 806 0001:00302822 + 807 0001:00302833 808 0001:00302843 809 0001:00302854 810 0001:00302864 + 811 0001:00302875 812 0001:00302885 813 0001:00302896 814 0001:003028A6 + 815 0001:003028B7 816 0001:003028C7 817 0001:003028D8 818 0001:003028E8 + 819 0001:003028F9 824 0001:003029BC 825 0001:003029C1 829 0001:003029C4 + 831 0001:003029C7 833 0001:003029CF 834 0001:003029D5 836 0001:003029DB + 838 0001:00302A10 838 0001:00302A17 + +Line numbers for fDupPts(fDupPts.pas) segment .text + + 42 0001:00302C74 44 0001:00302C79 49 0001:00302C7C 50 0001:00302C80 + 51 0001:00302C8F 52 0001:00302C9D 53 0001:00302CAC 54 0001:00302CBE + 55 0001:00302CC5 58 0001:00302CD8 60 0001:00302CF9 62 0001:00302D1E + 63 0001:00302D2F 66 0001:00302D31 67 0001:00302D4C 69 0001:00302D83 + 73 0001:00302DD0 76 0001:00302DD4 77 0001:00302DDA 79 0001:00302DE9 + 83 0001:00302DF0 84 0001:00302DFB 86 0001:00302E2C 86 0001:00302E33 + +Line numbers for fPtSens(fPtSens.pas) segment .text + + 62 0001:00302E64 62 0001:00302E6B + +Line numbers for fPtSelDemog(fPtSelDemog.pas) segment .text + + 56 0001:0030311C 57 0001:00303122 58 0001:0030312D 59 0001:00303133 + 61 0001:00303144 62 0001:00303163 63 0001:0030318D 59 0001:0030318E + 64 0001:00303191 65 0001:0030319F 73 0001:003031A4 74 0001:003031E0 + 75 0001:003031F4 76 0001:00303202 77 0001:00303210 80 0001:0030321B + 81 0001:0030322F 82 0001:0030326E 83 0001:003032AD 84 0001:003032B3 + 85 0001:003032D7 86 0001:003032DD 87 0001:00303301 88 0001:00303307 + 89 0001:0030332B 90 0001:00303331 91 0001:00303370 92 0001:00303376 + 94 0001:003033B5 95 0001:003033C3 96 0001:003033D1 97 0001:003033DF + 98 0001:003033ED 99 0001:003033FB 100 0001:00303409 101 0001:00303417 + 103 0001:00303425 104 0001:0030344B 106 0001:00303458 107 0001:00303473 + 106 0001:00303495 108 0001:00303498 109 0001:003034AC 111 0001:003034B9 + 112 0001:003034C4 113 0001:003034D8 115 0001:003034E5 116 0001:003034F0 + 117 0001:00303562 120 0001:00303594 121 0001:00303597 123 0001:003035A3 + 127 0001:003035AA 128 0001:003035AF 130 0001:003035BA 134 0001:003035BC + 135 0001:003035D4 136 0001:003035E4 142 0001:003035E8 143 0001:003035EF + 144 0001:00303607 146 0001:00303610 147 0001:0030362A 148 0001:00303645 + 149 0001:0030365F 150 0001:0030367A 151 0001:00303690 153 0001:00303697 + 155 0001:003036A0 156 0001:003036BA 157 0001:003036D5 158 0001:003036EF + 159 0001:0030370A 160 0001:00303720 162 0001:00303727 164 0001:00303730 + 168 0001:00303734 169 0001:0030374C 171 0001:00303780 171 0001:00303787 + +Line numbers for fPtSelOptSave(fPtSelOptSave.pas) segment .text + + 37 0001:003039CC 38 0001:003039E2 39 0001:003039E9 40 0001:003039F5 + 41 0001:003039FD 42 0001:00303A05 44 0001:00303A36 46 0001:00303A44 + 47 0001:00303A6E 51 0001:00303AD4 52 0001:00303AD9 57 0001:00303ADC + 59 0001:00303AEF 60 0001:00303B00 62 0001:00303B01 63 0001:00303B10 + 64 0001:00303B19 65 0001:00303B28 66 0001:00303B31 67 0001:00303B3A + 69 0001:00303B3F 74 0001:00303B78 75 0001:00303B7B 77 0001:00303B8B + 78 0001:00303B98 80 0001:00303BCC 80 0001:00303BD3 + +Line numbers for fPtSelOptns(fPtSelOptns.pas) segment .text + + 108 0001:00303F44 109 0001:00303F62 110 0001:00303F64 111 0001:00303F7E + 113 0001:00303F8B 114 0001:00303F9C 116 0001:00303FB2 117 0001:00303FCC + 118 0001:00303FED 123 0001:00303FF4 124 0001:00304013 126 0001:00304015 + 128 0001:0030404E 129 0001:0030406F 133 0001:00304074 140 0001:00304086 + 141 0001:00304088 142 0001:003040CF 146 0001:003040D4 147 0001:003040FE + 148 0001:00304100 149 0001:00304122 151 0001:00304141 154 0001:00304164 + 155 0001:00304182 159 0001:003041B3 160 0001:003041CD 161 0001:00304225 + 165 0001:00304248 166 0001:00304262 167 0001:003042BA 168 0001:003042D4 + 171 0001:003042FC 172 0001:00304322 176 0001:00304334 177 0001:0030434E + 178 0001:0030435E 179 0001:00304369 180 0001:00304374 181 0001:0030437B + 182 0001:00304388 183 0001:003043A0 184 0001:003043AC 185 0001:003043D9 + 189 0001:003043EC 191 0001:00304406 193 0001:00304414 194 0001:0030441D + 196 0001:0030442F 197 0001:0030443F 198 0001:0030444A 199 0001:0030445A + 202 0001:0030446A 203 0001:0030447A 204 0001:00304485 205 0001:00304495 + 208 0001:003044A5 209 0001:003044B5 210 0001:003044C0 211 0001:003044D0 + 220 0001:003044E0 221 0001:003044F0 222 0001:003044F9 223 0001:00304504 + 224 0001:0030450B 225 0001:00304517 227 0001:0030451D 228 0001:00304524 + 229 0001:0030452D 230 0001:00304536 231 0001:0030454B 232 0001:00304558 + 233 0001:00304565 235 0001:00304570 237 0001:00304579 239 0001:003045AE + 243 0001:003045C0 245 0001:003045DA 247 0001:003045E8 248 0001:003045F1 + 250 0001:00304600 251 0001:00304610 252 0001:0030461B 253 0001:0030462B + 257 0001:0030463B 258 0001:0030464B 259 0001:00304656 260 0001:00304666 + 269 0001:00304676 270 0001:00304686 271 0001:0030468F 272 0001:0030469A + 273 0001:003046A6 275 0001:003046AC 276 0001:003046B5 277 0001:003046BE + 278 0001:003046C5 280 0001:003046D7 281 0001:003046E7 282 0001:003046EE + 285 0001:003046FB 286 0001:00304702 289 0001:0030470D 290 0001:00304716 + 292 0001:0030471F 294 0001:00304754 297 0001:00304774 298 0001:00304778 + 299 0001:003047A8 302 0001:003047AC 303 0001:003047B0 304 0001:003047E0 + 307 0001:003047E4 308 0001:003047E8 309 0001:00304818 342 0001:0030481C + 343 0001:00304825 344 0001:0030483C 345 0001:00304855 347 0001:0030486C + 350 0001:00304874 351 0001:00304877 352 0001:00304882 353 0001:0030488D + 354 0001:003048A9 360 0001:003048AC 361 0001:003048C8 363 0001:003048DD + 364 0001:003048E8 366 0001:003048F1 367 0001:003048F9 368 0001:0030490C + 369 0001:0030491F 371 0001:00304932 372 0001:00304936 373 0001:0030493A + 374 0001:00304958 375 0001:0030495C 376 0001:0030497A 377 0001:0030497E + 378 0001:00304986 381 0001:003049CB 382 0001:003049E5 383 0001:003049F0 + 384 0001:00304A25 387 0001:00304A7C 388 0001:00304A7F 389 0001:00304A9B + 392 0001:00304AA0 393 0001:00304AC2 395 0001:00304AF3 396 0001:00304B04 + 398 0001:00304B4B 400 0001:00304B59 401 0001:00304B6A 402 0001:00304BCC + 407 0001:00304BFC 408 0001:00304C1D 409 0001:00304C25 410 0001:00304C5E + 411 0001:00304C74 412 0001:00304C8D 413 0001:00304CA3 415 0001:00304CF2 + 416 0001:00304D0B 417 0001:00304D21 419 0001:00304D70 420 0001:00304D89 + 421 0001:00304D9F 423 0001:00304DEE 424 0001:00304E31 427 0001:00304E47 + 428 0001:00304E82 429 0001:00304E9E 430 0001:00304EAD 431 0001:00304EB9 + 433 0001:00304EC6 434 0001:00304ED3 437 0001:00304FFD 440 0001:00305157 + 441 0001:00305170 442 0001:00305183 444 0001:003051DB 446 0001:003051E8 + 448 0001:003051EE 450 0001:003051F7 452 0001:00305246 453 0001:0030524E + 458 0001:00305257 459 0001:0030525F 462 0001:0030536C 466 0001:00305684 + 467 0001:0030568E 470 0001:00305690 471 0001:003056B7 473 0001:003056C3 + 474 0001:003056E1 478 0001:003056F3 479 0001:00305700 481 0001:00305732 + 484 0001:0030574C 485 0001:00305766 486 0001:00305770 487 0001:00305785 + 488 0001:003057A9 489 0001:003057CD 490 0001:003057E0 491 0001:003057EA + 492 0001:0030581B 494 0001:00305868 494 0001:0030586F + +Line numbers for fAlertForward(fAlertForward.pas) segment .text + + 45 0001:00305B54 46 0001:00305B7C 47 0001:00305B93 48 0001:00305BA1 + 51 0001:00305BA9 52 0001:00305BD4 53 0001:00305BF4 56 0001:00305C0C + 57 0001:00305C14 59 0001:00305C4A 64 0001:00305C50 65 0001:00305C5D + 69 0001:00305C60 70 0001:00305C69 71 0001:00305C87 75 0001:00305C90 + 76 0001:00305C95 82 0001:00305C98 83 0001:00305CB6 84 0001:00305CCE + 86 0001:00305CF1 87 0001:00305D1A 88 0001:00305D50 89 0001:00305D74 + 84 0001:00305D77 90 0001:00305D7E 91 0001:00305DB4 94 0001:00305DE4 + 95 0001:00305DE7 96 0001:00305DF8 97 0001:00305E18 101 0001:00305E1C + 102 0001:00305E1F 103 0001:00305E2C 106 0001:00305E30 107 0001:00305E4D + 108 0001:00305E5B 109 0001:00305E85 110 0001:00305EE4 114 0001:00305EEC + 115 0001:00305EEF 116 0001:00305EFC 118 0001:00305F3C 118 0001:00305F43 + +Line numbers for fPtSel(fPtSel.pas) segment .text + + 138 0001:00306550 139 0001:0030655C 140 0001:00306560 141 0001:00306594 + 150 0001:00306598 151 0001:003065C1 152 0001:003065D8 153 0001:003065DF + 156 0001:003065ED 157 0001:003065FB 158 0001:00306610 159 0001:00306632 + 160 0001:00306654 161 0001:00306665 162 0001:0030666F 163 0001:00306681 + 165 0001:0030668A 166 0001:00306692 168 0001:0030669C 169 0001:003066A8 + 170 0001:003066B5 171 0001:003066BD 172 0001:003066C5 173 0001:003066D6 + 174 0001:003066DE 175 0001:003066E8 176 0001:003066F3 179 0001:0030670E + 181 0001:00306740 189 0001:00306754 190 0001:00306777 193 0001:0030677F + 197 0001:00306785 198 0001:00306795 199 0001:003067A5 200 0001:003067B5 + 205 0001:003067C7 206 0001:003067D7 207 0001:003067E7 215 0001:003067F7 + 216 0001:003067FF 217 0001:0030680A 218 0001:00306812 220 0001:0030681D + 221 0001:0030682D 223 0001:0030683F 224 0001:00306879 225 0001:0030687F + 226 0001:003068AD 232 0001:003068C0 233 0001:003068DB 234 0001:003068E3 + 235 0001:003068F6 237 0001:00306907 238 0001:00306943 239 0001:00306973 + 240 0001:00306982 241 0001:00306991 242 0001:003069A0 243 0001:003069AF + 247 0001:003069BC 249 0001:003069D8 250 0001:003069E5 251 0001:003069ED + 252 0001:003069F5 253 0001:003069FF 254 0001:00306A2A 255 0001:00306A3D + 256 0001:00306A50 257 0001:00306A60 259 0001:00306A9D 268 0001:00306BB4 + 270 0001:00306BD5 271 0001:00306BEA 273 0001:00306BF3 274 0001:00306C04 + 275 0001:00306C0B 280 0001:00306C10 281 0001:00306C23 282 0001:00306C36 + 284 0001:00306C57 285 0001:00306C6A 287 0001:00306C7D 289 0001:00306CAE + 290 0001:00306CC1 293 0001:00306CF9 294 0001:00306D0C 296 0001:00306D1F + 297 0001:00306D5A 299 0001:00306D7E 300 0001:00306DA6 301 0001:00306DCF + 302 0001:00306DF8 304 0001:00306E72 305 0001:00306E8E 306 0001:00306EA2 + 307 0001:00306EB5 308 0001:00306EBD 309 0001:00306ECB 310 0001:00306EDB + 312 0001:00306EEC 313 0001:00306F11 315 0001:00306F1E 316 0001:00306F2F + 317 0001:00306F36 322 0001:00306F3B 323 0001:00306F7B 324 0001:00306F94 + 325 0001:00306FB3 326 0001:00306FCC 327 0001:00306FE5 328 0001:00307016 + 329 0001:0030702F 332 0001:00307043 333 0001:00307056 334 0001:003070A2 + 335 0001:003070B2 336 0001:003070C5 338 0001:003070DD 339 0001:003070F0 + 341 0001:00307103 342 0001:0030712B 347 0001:0030713B 348 0001:003071F4 + 353 0001:00307404 354 0001:00307410 355 0001:00307420 357 0001:00307432 + 358 0001:0030743A 360 0001:00307442 363 0001:00307448 364 0001:00307454 + 365 0001:00307464 370 0001:00307468 371 0001:0030746C 373 0001:0030747B + 374 0001:00307486 376 0001:00307492 378 0001:0030749D 379 0001:003074A7 + 380 0001:003074B2 382 0001:003074BD 383 0001:003074D0 385 0001:003074E3 + 387 0001:003074ED 390 0001:00307554 391 0001:00307578 392 0001:00307584 + 394 0001:003075FF 398 0001:00307614 399 0001:00307626 402 0001:0030765E + 403 0001:0030768A 406 0001:0030769C 407 0001:003076AC 408 0001:003076BD + 410 0001:003076CB 413 0001:003076D7 415 0001:003076F5 416 0001:00307706 + 418 0001:00307724 419 0001:00307740 421 0001:0030774C 423 0001:0030776A + 424 0001:0030777B 426 0001:00307799 427 0001:003077B5 430 0001:003077C1 + 433 0001:00307828 434 0001:00307844 444 0001:0030786D 447 0001:00307880 + 448 0001:003078A0 450 0001:003078C8 451 0001:003078D0 454 0001:003078DA + 456 0001:00307907 459 0001:0030790C 463 0001:0030792C 466 0001:0030793E + 467 0001:0030794E 468 0001:0030795F 473 0001:0030796D 475 0001:00307995 + 476 0001:0030799D 479 0001:003079A7 481 0001:003079D4 484 0001:003079D8 + 488 0001:003079F8 491 0001:00307A0A 492 0001:00307A1A 493 0001:00307A2B + 497 0001:00307A39 498 0001:00307A91 506 0001:00307A98 508 0001:00307AC4 + 509 0001:00307ACF 510 0001:00307AE0 511 0001:00307AFC 512 0001:00307B49 + 513 0001:00307B5A 514 0001:00307B7B 515 0001:00307B8A 517 0001:00307B98 + 518 0001:00307BA9 521 0001:00307BC8 522 0001:00307BDD 524 0001:00307BF9 + 526 0001:00307C07 528 0001:00307C52 529 0001:00307C85 531 0001:00307C93 + 522 0001:00307C96 533 0001:00307C9F 536 0001:00307CBD 539 0001:00307CFC + 542 0001:00307D30 543 0001:00307D37 544 0001:00307D43 547 0001:00307D48 + 548 0001:00307D64 549 0001:00307DB4 566 0001:00307DB8 570 0001:00307DDC + 573 0001:00307DEE 574 0001:00307DFE 575 0001:00307E0F 579 0001:00307E1D + 581 0001:00307E45 582 0001:00307E56 584 0001:00307E5B 585 0001:00307E77 + 587 0001:00307EA8 588 0001:00307ED7 591 0001:00307EFE 592 0001:00307F0D + 595 0001:00307F22 596 0001:00307F30 597 0001:00307F3E 599 0001:00307F51 + 600 0001:00307F62 603 0001:00307F67 604 0001:00307F78 605 0001:00307FA8 + 607 0001:00307FB2 608 0001:00307FC1 611 0001:00307FC6 612 0001:00307FD2 + 619 0001:00308038 620 0001:00308047 621 0001:00308053 622 0001:0030805F + 625 0001:003080F1 626 0001:00308111 628 0001:00308177 630 0001:003081EE + 632 0001:003081FA 633 0001:0030824C 635 0001:003082A6 638 0001:0030839A + 640 0001:003083A6 641 0001:003083F8 643 0001:0030844F 645 0001:0030845C + 646 0001:0030846A 647 0001:00308480 648 0001:00308499 650 0001:003084A7 + 652 0001:003084CD 654 0001:003084E9 655 0001:003084F3 656 0001:00308509 + 657 0001:00308513 658 0001:00308586 661 0001:00308748 663 0001:00308754 + 664 0001:0030875E 665 0001:00308766 672 0001:0030876C 673 0001:00308790 + 674 0001:00308794 676 0001:003087A0 679 0001:003087B3 680 0001:003087B8 + 681 0001:003087F5 680 0001:00308828 683 0001:0030882D 685 0001:00308833 + 686 0001:00308843 689 0001:00308854 703 0001:00308899 704 0001:003088BA + 706 0001:00308919 709 0001:00308939 710 0001:00308957 712 0001:00308964 + 715 0001:00308986 716 0001:00308999 717 0001:003089CC 718 0001:003089E2 + 720 0001:003089EB 721 0001:00308A10 724 0001:00308A51 727 0001:00308A7A + 728 0001:00308A85 730 0001:00308AA2 731 0001:00308AB5 732 0001:00308AE8 + 733 0001:00308B29 736 0001:00308B2F 739 0001:00308B39 689 0001:00308BA2 + 740 0001:00308BAB 741 0001:00308BB1 744 0001:00308BBB 746 0001:00308BCB + 747 0001:00308BDC 749 0001:00308BE4 750 0001:00308BF1 752 0001:00308BFC + 753 0001:00308C18 755 0001:00308C31 756 0001:00308C7C 759 0001:00308D9C + 760 0001:00308DA8 761 0001:00308DB7 767 0001:00308DBC 768 0001:00308DC8 + 769 0001:00308DE4 775 0001:00308E00 776 0001:00308E24 775 0001:00308E4A + 777 0001:00308E4F 778 0001:00308E73 779 0001:00308E99 777 0001:00308EBF + 780 0001:00308EC4 781 0001:00308ECF 783 0001:00308ED9 788 0001:00308FD4 + 789 0001:00308FE0 790 0001:00309004 789 0001:0030902A 791 0001:0030902F + 792 0001:0030903A 793 0001:00309044 796 0001:00309048 797 0001:00309054 + 798 0001:0030905F 804 0001:00309064 805 0001:0030908D 806 0001:0030909B + 808 0001:003090A7 809 0001:003090C0 810 0001:003090E2 811 0001:00309105 + 812 0001:00309113 814 0001:00309193 816 0001:003091A8 817 0001:003091CD + 809 0001:003091D0 820 0001:003091E6 822 0001:00309237 827 0001:00309254 + 828 0001:00309280 830 0001:0030928C 831 0001:0030929F 832 0001:003092C1 + 834 0001:003092E4 835 0001:00309314 836 0001:0030933F 837 0001:003093A5 + 831 0001:003093A8 839 0001:003093B1 840 0001:003093C2 841 0001:003093CA + 842 0001:003093D7 843 0001:003093E2 844 0001:00309404 845 0001:00309445 + 848 0001:0030948C 849 0001:00309498 850 0001:003094A0 851 0001:003094BA + 854 0001:003094C0 855 0001:003094CC 857 0001:003094F3 858 0001:0030950E + 861 0001:00309514 862 0001:0030951D 865 0001:00309525 866 0001:0030953C + 868 0001:00309553 871 0001:0030956A 872 0001:0030957F 873 0001:00309590 + 875 0001:003095B7 876 0001:003095DC 877 0001:003095F9 880 0001:00309605 + 882 0001:00309611 883 0001:00309622 884 0001:0030963E 887 0001:00309646 + 890 0001:0030965D 891 0001:00309672 892 0001:00309683 893 0001:00309694 + 894 0001:003096AF 895 0001:003096C9 896 0001:003096E3 898 0001:003096EC + 899 0001:00309708 901 0001:00309714 903 0001:00309721 904 0001:00309739 + 905 0001:0030974A 908 0001:00309750 911 0001:00309757 912 0001:00309767 + 914 0001:00309775 917 0001:00309778 919 0001:00309787 920 0001:00309798 + 922 0001:003097A2 926 0001:003097B4 927 0001:003097C3 928 0001:003097D2 + 929 0001:003097DA 931 0001:003097E6 1008 0001:003097EC 1010 0001:0030980D + 1011 0001:00309821 1012 0001:00309830 1013 0001:00309835 1014 0001:00309843 + 1015 0001:0030984B 1019 0001:00309867 1021 0001:0030989B 1022 0001:003098B2 + 1023 0001:003098DE 1024 0001:0030990E 1023 0001:0030993E 1028 0001:00309948 + 1029 0001:0030997C 1030 0001:0030999D 1032 0001:003099CC 1015 0001:003099CF + 1034 0001:003099E5 1036 0001:003099F5 1038 0001:00309A01 1039 0001:00309A1B + 1040 0001:00309A38 1041 0001:00309A55 1042 0001:00309A72 1043 0001:00309A8F + 1044 0001:00309AAC 1052 0001:00309AF3 1055 0001:00309B34 1057 0001:00309B43 + 1058 0001:00309B5F 1060 0001:00309B73 1061 0001:00309B7F 1063 0001:00309B93 + 1065 0001:00309BA5 1067 0001:00309BB6 1068 0001:00309BC2 1070 0001:00309BCC + 1071 0001:00309BDA 1076 0001:00309BE1 1077 0001:00309C15 1078 0001:00309C2A + 1079 0001:00309C3F 1080 0001:00309C54 1081 0001:00309C69 1082 0001:00309C7E + 1083 0001:00309C93 1085 0001:00309CA6 1088 0001:00309D0C 1089 0001:00309D35 + 1090 0001:00309D4B 1092 0001:00309D57 1093 0001:00309D7E 1097 0001:00309DC2 + 1098 0001:00309DE6 1100 0001:00309E4A 1106 0001:00309E54 1107 0001:00309E79 + 1110 0001:00309E7D 1111 0001:00309E96 1113 0001:00309EC0 1114 0001:00309EC4 + 1115 0001:00309ED5 1117 0001:00309EEF 1119 0001:00309F14 1120 0001:00309F52 + 1123 0001:0030A043 1117 0001:0030A046 1127 0001:0030A04F 1128 0001:0030A05C + 1129 0001:0030A073 1132 0001:0030A081 1134 0001:0030A099 1137 0001:0030A0CE + 1140 0001:0030A120 1141 0001:0030A141 1146 0001:0030A16B 1148 0001:0030A19C + 1149 0001:0030A1CB 1151 0001:0030A1EC 1157 0001:0030A23F 1160 0001:0030A258 + 1163 0001:0030A264 1167 0001:0030A268 1168 0001:0030A277 1169 0001:0030A280 + 1170 0001:0030A28B 1174 0001:0030A294 1175 0001:0030A2A3 1176 0001:0030A2C4 + 1177 0001:0030A2CE 1178 0001:0030A2EA 1181 0001:0030A2F0 1182 0001:0030A2FC + 1183 0001:0030A30D 1184 0001:0030A31E 1185 0001:0030A32F 1189 0001:0030A334 + 1190 0001:0030A357 1191 0001:0030A392 1198 0001:0030A39C 1203 0001:0030A3AB + 1211 0001:0030A3B4 1212 0001:0030A3C4 1214 0001:0030A3DE 1215 0001:0030A3E5 + 1216 0001:0030A49A 1217 0001:0030A4AA 1218 0001:0030A4DC 1219 0001:0030A511 + 1220 0001:0030A546 1221 0001:0030A57B 1222 0001:0030A5AD 1223 0001:0030A5DB + 1226 0001:0030A607 1236 0001:0030A610 1237 0001:0030A62E 1238 0001:0030A636 + 1239 0001:0030A649 1240 0001:0030A66C 1241 0001:0030A681 1243 0001:0030A68D + 1245 0001:0030A697 1246 0001:0030A708 1247 0001:0030A730 1248 0001:0030A75B + 1249 0001:0030A786 1250 0001:0030A7AE 1251 0001:0030A7D6 1252 0001:0030A7FE + 1254 0001:0030A846 1261 0001:0030A858 1263 0001:0030A87A 1265 0001:0030A8A2 + 1266 0001:0030A8AA 1267 0001:0030A8B2 1268 0001:0030A8BA 1269 0001:0030A8E1 + 1270 0001:0030A968 1271 0001:0030A98F 1263 0001:0030A992 1273 0001:0030A99B + 1277 0001:0030A9A9 1279 0001:0030A9D1 1280 0001:0030A9D9 1281 0001:0030A9E1 + 1282 0001:0030A9E9 1283 0001:0030AA10 1284 0001:0030AA23 1286 0001:0030AAC0 + 1277 0001:0030AAC3 1287 0001:0030AAFB 1294 0001:0030AB18 1295 0001:0030AB3B + 1297 0001:0030AB51 1298 0001:0030AB5B 1299 0001:0030AB6B 1301 0001:0030AB9D + 1302 0001:0030ABA4 1303 0001:0030ABB4 1304 0001:0030ABC5 1308 0001:0030ABD8 + 1309 0001:0030ABEA 1310 0001:0030ABF2 1316 0001:0030AC3C 1317 0001:0030AC54 + 1320 0001:0030AC7D 1322 0001:0030AD38 1323 0001:0030AD52 1325 0001:0030AD6E + +Line numbers for rLabs(rLabs.pas) segment .text + + 57 0001:0030AD70 58 0001:0030AD79 59 0001:0030AD9B 60 0001:0030ADAD + 61 0001:0030ADBA 64 0001:0030ADD8 65 0001:0030ADE1 66 0001:0030AE03 + 67 0001:0030AE15 68 0001:0030AE22 71 0001:0030AE3C 72 0001:0030AE45 + 73 0001:0030AE67 74 0001:0030AE79 75 0001:0030AE86 78 0001:0030AEA4 + 79 0001:0030AEAD 80 0001:0030AECF 81 0001:0030AEE1 82 0001:0030AEEE + 85 0001:0030AF0C 86 0001:0030AF15 87 0001:0030AF37 88 0001:0030AF49 + 89 0001:0030AF56 92 0001:0030AF74 93 0001:0030AF7A 94 0001:0030AF93 + 95 0001:0030AFA5 96 0001:0030AFB2 99 0001:0030AFCC 100 0001:0030AFCF + 101 0001:0030AFE5 102 0001:0030AFF7 103 0001:0030B004 106 0001:0030B020 + 107 0001:0030B026 108 0001:0030B049 109 0001:0030B05B 110 0001:0030B068 + 113 0001:0030B084 114 0001:0030B087 115 0001:0030B09D 118 0001:0030B0B4 + 119 0001:0030B0B7 120 0001:0030B0DB 123 0001:0030B0F4 124 0001:0030B0F7 + 125 0001:0030B10D 128 0001:0030B124 129 0001:0030B14F 130 0001:0030B167 + 131 0001:0030B19B 132 0001:0030B1CF 133 0001:0030B204 134 0001:0030B25B + 137 0001:0030B27C 138 0001:0030B2A1 140 0001:0030B2AD 141 0001:0030B2ED + 145 0001:0030B303 146 0001:0030B30F 148 0001:0030B338 152 0001:0030B3B0 + 153 0001:0030B3DD 154 0001:0030B43C 155 0001:0030B472 158 0001:0030B494 + 159 0001:0030B4B9 161 0001:0030B4C5 162 0001:0030B4FE 166 0001:0030B514 + 167 0001:0030B520 169 0001:0030B549 173 0001:0030B5C0 174 0001:0030B5ED + 175 0001:0030B645 176 0001:0030B67E 179 0001:0030B6A0 180 0001:0030B6C5 + 182 0001:0030B6D1 183 0001:0030B70A 187 0001:0030B720 188 0001:0030B72C + 190 0001:0030B755 194 0001:0030B7CC 195 0001:0030B7F9 196 0001:0030B851 + 197 0001:0030B88A 200 0001:0030B8AC 201 0001:0030B8B8 202 0001:0030B8FA + 203 0001:0030B907 206 0001:0030B928 207 0001:0030B937 208 0001:0030B96F + 209 0001:0030B97C 212 0001:0030B9A0 213 0001:0030B9C5 214 0001:0030BA11 + 215 0001:0030BA3D 218 0001:0030BA5C 219 0001:0030BAA1 221 0001:0030BAAD + 222 0001:0030BB0E 226 0001:0030BB24 227 0001:0030BB30 229 0001:0030BB6E + 233 0001:0030BBE4 234 0001:0030BC36 236 0001:0030BCC6 237 0001:0030BD19 + 241 0001:0030BD48 242 0001:0030BD9A 244 0001:0030BE2A 245 0001:0030BE7D + 248 0001:0030BEAC 249 0001:0030BED4 250 0001:0030BEEA 251 0001:0030BF1E + 252 0001:0030BF75 255 0001:0030BF94 256 0001:0030BFC1 257 0001:0030C010 + 258 0001:0030C041 268 0001:0030C060 269 0001:0030C0B9 270 0001:0030C0C7 + 272 0001:0030C0D7 273 0001:0030C0DF 275 0001:0030C0F1 276 0001:0030C10D + 278 0001:0030C11A 280 0001:0030C158 282 0001:0030C15A 273 0001:0030C15B + 283 0001:0030C15E 285 0001:0030C169 287 0001:0030C18B 289 0001:0030C19A + 290 0001:0030C1E0 294 0001:0030C236 296 0001:0030C2BD 298 0001:0030C317 + 299 0001:0030C31E 300 0001:0030C371 310 0001:0030C3D4 311 0001:0030C412 + 312 0001:0030C420 314 0001:0030C430 315 0001:0030C438 317 0001:0030C44A + 318 0001:0030C466 320 0001:0030C473 322 0001:0030C4B1 324 0001:0030C4B3 + 315 0001:0030C4B4 325 0001:0030C4B7 327 0001:0030C4C2 329 0001:0030C4E4 + 331 0001:0030C4EF 332 0001:0030C51C 336 0001:0030C52B 338 0001:0030C587 + 340 0001:0030C594 341 0001:0030C59B 342 0001:0030C5D3 345 0001:0030C634 + 346 0001:0030C654 347 0001:0030C66D 348 0001:0030C699 350 0001:0030C6E4 + 350 0001:0030C6EB + +Line numbers for fLabPrint(fLabPrint.pas) segment .text + + 62 0001:0030C9D0 63 0001:0030C9F0 64 0001:0030CA07 65 0001:0030CA15 + 68 0001:0030CA1D 69 0001:0030CA2D 70 0001:0030CA36 71 0001:0030CA3F + 72 0001:0030CA5E 73 0001:0030CA7A 75 0001:0030CA83 77 0001:0030CA96 + 78 0001:0030CAA6 80 0001:0030CAB6 82 0001:0030CAC3 83 0001:0030CAE7 + 86 0001:0030CAFA 88 0001:0030CB03 90 0001:0030CB26 92 0001:0030CB33 + 95 0001:0030CB4B 97 0001:0030CB7D 100 0001:0030CC10 101 0001:0030CC2C + 103 0001:0030CC38 105 0001:0030CCA4 108 0001:0030CCC8 110 0001:0030CCCC + 113 0001:0030CCE2 114 0001:0030CCEB 115 0001:0030CCF4 117 0001:0030CD00 + 120 0001:0030CD04 122 0001:0030CD20 124 0001:0030CD30 125 0001:0030CD68 + 126 0001:0030CDA0 128 0001:0030CDC9 132 0001:0030CDD0 134 0001:0030CDD9 + 135 0001:0030CDF0 145 0001:0030CDF8 147 0001:0030CE1A 148 0001:0030CE22 + 149 0001:0030CE2A 150 0001:0030CE37 152 0001:0030CE42 153 0001:0030CE61 + 155 0001:0030CE80 157 0001:0030CEA7 158 0001:0030CEB8 160 0001:0030CEBD + 161 0001:0030CEE4 163 0001:0030CF04 164 0001:0030CF19 165 0001:0030CF22 + 166 0001:0030CF28 168 0001:0030CF39 171 0001:0030CF51 172 0001:0030CF67 + 173 0001:0030CF74 175 0001:0030CFB3 177 0001:0030CFCC 179 0001:0030D01B + 180 0001:0030D03C 185 0001:0030D060 186 0001:0030D092 188 0001:0030D0DC + 189 0001:0030D10B 191 0001:0030D126 192 0001:0030D17E 193 0001:0030D1B2 + 194 0001:0030D25F 199 0001:0030D314 200 0001:0030D319 204 0001:0030D31C + 206 0001:0030D327 208 0001:0030D358 208 0001:0030D35F + +Line numbers for fLabTestGroups(fLabTestGroups.pas) segment .text + + 86 0001:0030D8E4 87 0001:0030D8ED 88 0001:0030D904 91 0001:0030D912 + 92 0001:0030D91F 93 0001:0030D92A 94 0001:0030D935 95 0001:0030D942 + 96 0001:0030D95E 97 0001:0030D97A 98 0001:0030D983 99 0001:0030D98C + 100 0001:0030D9A9 101 0001:0030D9C9 103 0001:0030D9D2 104 0001:0030D9DB + 105 0001:0030D9E4 106 0001:0030DA01 107 0001:0030DA1E 109 0001:0030DA27 + 110 0001:0030DA4E 111 0001:0030DA78 112 0001:0030DA83 115 0001:0030DA9B + 117 0001:0030DAAB 123 0001:0030DAB0 124 0001:0030DAD3 125 0001:0030DAE3 + 126 0001:0030DAF0 127 0001:0030DB00 128 0001:0030DB10 129 0001:0030DB1D + 130 0001:0030DB2F 131 0001:0030DB45 132 0001:0030DB69 133 0001:0030DB8D + 134 0001:0030DBB1 135 0001:0030DBD5 136 0001:0030DBEB 137 0001:0030DC01 + 138 0001:0030DC0E 139 0001:0030DC1E 140 0001:0030DC2E 141 0001:0030DC43 + 142 0001:0030DC5F 144 0001:0030DCA6 145 0001:0030DCB3 146 0001:0030DCB5 + 141 0001:0030DCB6 147 0001:0030DCBB 148 0001:0030DCD2 149 0001:0030DCE2 + 150 0001:0030DCEF 151 0001:0030DCFC 152 0001:0030DD09 153 0001:0030DD16 + 154 0001:0030DD53 158 0001:0030DE10 159 0001:0030DE19 160 0001:0030DE30 + 163 0001:0030DE38 164 0001:0030DE4F 165 0001:0030DE63 168 0001:0030DE6F + 169 0001:0030DE93 170 0001:0030DEC5 172 0001:0030DEE9 175 0001:0030DF10 + 176 0001:0030DF13 177 0001:0030DF21 178 0001:0030DF2A 183 0001:0030DF2C + 184 0001:0030DF30 186 0001:0030DF48 187 0001:0030DF6D 189 0001:0030DF80 + 190 0001:0030DF90 191 0001:0030DFB0 193 0001:0030DFD4 194 0001:0030DFDD + 200 0001:0030DFE0 201 0001:0030DFFA 202 0001:0030E00D 203 0001:0030E01E + 204 0001:0030E042 205 0001:0030E08B 206 0001:0030E0AE 207 0001:0030E0BE + 209 0001:0030E0E9 215 0001:0030E0F0 216 0001:0030E10A 217 0001:0030E11D + 218 0001:0030E12E 219 0001:0030E152 220 0001:0030E19B 221 0001:0030E1BE + 222 0001:0030E1CE 224 0001:0030E1F9 227 0001:0030E200 228 0001:0030E204 + 229 0001:0030E225 230 0001:0030E246 231 0001:0030E27A 232 0001:0030E2AE + 234 0001:0030E2C2 235 0001:0030E2CF 236 0001:0030E2DC 237 0001:0030E2E9 + 238 0001:0030E2F6 239 0001:0030E303 243 0001:0030E312 244 0001:0030E31F + 246 0001:0030E32C 247 0001:0030E333 251 0001:0030E338 252 0001:0030E341 + 253 0001:0030E358 257 0001:0030E360 258 0001:0030E369 259 0001:0030E380 + 262 0001:0030E388 263 0001:0030E38B 264 0001:0030E3AF 265 0001:0030E3B6 + 271 0001:0030E3B8 272 0001:0030E3E0 273 0001:0030E3F6 275 0001:0030E412 + 276 0001:0030E416 277 0001:0030E433 279 0001:0030E468 280 0001:0030E46C + 281 0001:0030E46F 276 0001:0030E470 282 0001:0030E473 284 0001:0030E479 + 285 0001:0030E49F 287 0001:0030E4B6 273 0001:0030E4B9 288 0001:0030E4C2 + 289 0001:0030E4D6 290 0001:0030E503 293 0001:0030E50C 294 0001:0030E50F + 295 0001:0030E535 298 0001:0030E538 299 0001:0030E53B 300 0001:0030E575 + 301 0001:0030E5B4 302 0001:0030E5E3 308 0001:0030E5E8 309 0001:0030E604 + 310 0001:0030E611 311 0001:0030E645 312 0001:0030E664 313 0001:0030E67E + 312 0001:0030E6AC 314 0001:0030E6AF 315 0001:0030E6C5 316 0001:0030E6E2 + 317 0001:0030E70D 323 0001:0030E788 324 0001:0030E7A6 325 0001:0030E7B3 + 326 0001:0030E7D0 325 0001:0030E801 327 0001:0030E804 329 0001:0030E81E + 330 0001:0030E831 331 0001:0030E849 332 0001:0030E867 334 0001:0030E8B1 + 335 0001:0030E8C1 336 0001:0030E8C3 331 0001:0030E8C4 338 0001:0030E8C7 + 339 0001:0030E905 345 0001:0030E984 346 0001:0030E9A1 347 0001:0030E9AE + 348 0001:0030E9E7 350 0001:0030EA01 351 0001:0030EA11 352 0001:0030EA1E + 353 0001:0030EA2C 354 0001:0030EA41 355 0001:0030EA5D 357 0001:0030EAA4 + 358 0001:0030EAB1 359 0001:0030EAB3 354 0001:0030EAB4 361 0001:0030EAB9 + 362 0001:0030EAFA 365 0001:0030EB68 366 0001:0030EB6B 367 0001:0030EB85 + 371 0001:0030EB88 372 0001:0030EB95 376 0001:0030EB98 377 0001:0030EBA5 + 380 0001:0030EBA8 381 0001:0030EBAB 382 0001:0030EBC4 386 0001:0030EBC8 + 387 0001:0030EBD5 391 0001:0030EBD8 392 0001:0030EBE5 396 0001:0030EBE8 + 397 0001:0030EBF5 401 0001:0030EBF8 402 0001:0030EC05 406 0001:0030EC08 + 407 0001:0030EC1C 411 0001:0030EC20 412 0001:0030EC34 414 0001:0030EC68 + 414 0001:0030EC6F + +Line numbers for fLabTests(fLabTests.pas) segment .text + + 52 0001:0030EF7C 53 0001:0030EF85 54 0001:0030EF9C 57 0001:0030EFAA + 58 0001:0030EFB7 59 0001:0030EFC2 60 0001:0030EFCD 61 0001:0030EFDA + 62 0001:0030EFF6 63 0001:0030F012 64 0001:0030F039 65 0001:0030F063 + 66 0001:0030F06E 69 0001:0030F086 71 0001:0030F096 74 0001:0030F09C + 75 0001:0030F09F 76 0001:0030F0AF 77 0001:0030F0BC 78 0001:0030F0CC + 82 0001:0030F0D0 83 0001:0030F0D9 84 0001:0030F0F0 87 0001:0030F0F8 + 88 0001:0030F0FB 89 0001:0030F10F 92 0001:0030F11B 93 0001:0030F13F + 95 0001:0030F146 98 0001:0030F168 99 0001:0030F16B 100 0001:0030F179 + 101 0001:0030F182 106 0001:0030F184 107 0001:0030F188 109 0001:0030F1A0 + 110 0001:0030F1C5 112 0001:0030F1D8 113 0001:0030F1E8 114 0001:0030F208 + 116 0001:0030F22C 117 0001:0030F235 120 0001:0030F238 121 0001:0030F23B + 123 0001:0030F24F 124 0001:0030F25C 128 0001:0030F26B 129 0001:0030F278 + 131 0001:0030F285 134 0001:0030F288 135 0001:0030F28B 136 0001:0030F2A5 + 140 0001:0030F2A8 141 0001:0030F2B5 145 0001:0030F2B8 146 0001:0030F2C5 + 151 0001:0030F2C8 152 0001:0030F2E5 153 0001:0030F2F8 154 0001:0030F313 + 153 0001:0030F35C 155 0001:0030F361 156 0001:0030F3A8 157 0001:0030F3B9 + 158 0001:0030F3E4 162 0001:0030F3EC 163 0001:0030F3F1 168 0001:0030F3F4 + 169 0001:0030F3F9 171 0001:0030F42C 171 0001:0030F433 + +Line numbers for fLabTest(fLabTest.pas) segment .text + + 45 0001:0030F6B8 46 0001:0030F6C1 47 0001:0030F6D8 50 0001:0030F6E6 + 51 0001:0030F6F3 52 0001:0030F6FE 53 0001:0030F709 54 0001:0030F716 + 55 0001:0030F732 56 0001:0030F74E 57 0001:0030F768 58 0001:0030F794 + 61 0001:0030F7AC 63 0001:0030F7BC 68 0001:0030F7C4 69 0001:0030F7E2 + 70 0001:0030F7F2 71 0001:0030F7FF 72 0001:0030F80F 73 0001:0030F81F + 74 0001:0030F82C 75 0001:0030F83E 76 0001:0030F854 77 0001:0030F878 + 78 0001:0030F89C 79 0001:0030F8C0 80 0001:0030F8E4 81 0001:0030F8FA + 82 0001:0030F910 83 0001:0030F91D 84 0001:0030F94F 88 0001:0030FA08 + 89 0001:0030FA11 90 0001:0030FA28 94 0001:0030FA30 95 0001:0030FA39 + 96 0001:0030FA50 99 0001:0030FA58 100 0001:0030FA71 101 0001:0030FA7F + 104 0001:0030FA8B 105 0001:0030FABD 106 0001:0030FAEF 108 0001:0030FB18 + 112 0001:0030FB40 113 0001:0030FB4D 117 0001:0030FB50 118 0001:0030FB5D + 120 0001:0030FB90 120 0001:0030FB97 + +Line numbers for fLabs(fLabs.pas) segment .text + + 203 0001:003105C0 204 0001:003105DF 206 0001:003105E5 207 0001:00310607 + 209 0001:00310676 212 0001:0031068C 215 0001:003106C5 218 0001:003106FE + 221 0001:00310737 224 0001:0031074D 227 0001:00310769 230 0001:003107A2 + 233 0001:003107DB 236 0001:00310811 239 0001:00310847 243 0001:0031089D + 249 0001:00310964 250 0001:00310968 251 0001:0031096F 252 0001:00310979 + 253 0001:0031098B 254 0001:0031099D 255 0001:003109A4 256 0001:003109B2 + 257 0001:003109BE 258 0001:003109CE 259 0001:003109D5 260 0001:003109DC + 261 0001:003109ED 262 0001:003109FE 263 0001:00310A0F 264 0001:00310A16 + 265 0001:00310A2A 266 0001:00310A5F 267 0001:00310A6C 268 0001:00310A79 + 269 0001:00310A89 270 0001:00310AA2 271 0001:00310AB2 278 0001:00310AB8 + 279 0001:00310AF0 280 0001:00310AFD 281 0001:00310B04 283 0001:00310B29 + 284 0001:00310B45 285 0001:00310B5C 287 0001:00310B7C 288 0001:00310BC7 + 290 0001:00310BDE 281 0001:00310BDF 291 0001:00310BE6 292 0001:00310C1C + 297 0001:00310C30 298 0001:00310C39 299 0001:00310C44 300 0001:00310C54 + 302 0001:00310C77 303 0001:00310C83 305 0001:00310C8A 307 0001:00310C9C + 308 0001:00310CB4 309 0001:00310CC3 311 0001:00310CD8 312 0001:00310CE6 + 313 0001:00310CFC 314 0001:00310D10 307 0001:00310D11 315 0001:00310D16 + 316 0001:00310D23 319 0001:00310D27 322 0001:00310D90 323 0001:00310D93 + 324 0001:00310D9A 325 0001:00310DA7 326 0001:00310DB8 327 0001:00310DC2 + 328 0001:00310DCC 329 0001:00310DDD 330 0001:00310DEA 331 0001:00310DF4 + 333 0001:00310DFA 334 0001:00310E06 335 0001:00310E12 337 0001:00310E1F + 340 0001:00310E24 341 0001:00310E3A 342 0001:00310E41 343 0001:00310E55 + 344 0001:00310E62 345 0001:00310E76 346 0001:00310E86 355 0001:00310EE1 + 357 0001:00310EEC 359 0001:00310EFC 361 0001:00310F10 362 0001:00310F45 + 363 0001:00310F55 365 0001:00310F5E 366 0001:00310F6C 368 0001:00310F77 + 369 0001:00310FAC 370 0001:00310FBC 372 0001:00310FC7 374 0001:00310FEB + 377 0001:003110E8 378 0001:003110EB 379 0001:003110F2 380 0001:003110FB + 383 0001:00311100 384 0001:0031111D 386 0001:00311123 387 0001:00311159 + 388 0001:00311165 390 0001:003111E4 393 0001:00311218 394 0001:0031121B + 395 0001:00311228 396 0001:0031123C 397 0001:0031126C 398 0001:00311283 + 399 0001:0031129A 400 0001:003112B1 401 0001:003112DD 402 0001:003112F4 + 403 0001:0031130B 404 0001:00311319 405 0001:00311327 406 0001:00311335 + 410 0001:00311338 411 0001:0031133F 417 0001:00311340 419 0001:00311369 + 420 0001:00311370 421 0001:0031137D 422 0001:003113A0 423 0001:003113C0 + 424 0001:003113EB 425 0001:0031140A 427 0001:0031142A 428 0001:0031142F + 429 0001:00311447 430 0001:0031144E 431 0001:00311458 432 0001:00311462 + 433 0001:00311470 434 0001:0031147D 435 0001:0031149F 436 0001:003114B3 + 437 0001:003114C0 438 0001:003114D5 437 0001:003114EC 439 0001:003114EF + 440 0001:00311505 442 0001:0031152F 443 0001:00311548 444 0001:00311555 + 445 0001:00311562 446 0001:0031156F 447 0001:0031157C 448 0001:0031159A + 449 0001:003115A7 450 0001:003115B5 452 0001:003115C6 453 0001:003115D6 + 454 0001:003115E3 455 0001:00311601 456 0001:00311614 457 0001:0031161F + 461 0001:0031162E 462 0001:00311640 463 0001:0031164B 464 0001:00311658 + 466 0001:00311663 467 0001:0031166C 468 0001:00311675 471 0001:0031168D + 473 0001:003116A3 474 0001:003116B1 476 0001:003116BE 477 0001:003116D4 + 479 0001:003116E8 480 0001:00311701 481 0001:0031170F 482 0001:00311716 + 483 0001:0031171F 484 0001:0031172F 485 0001:00311738 486 0001:0031174F + 488 0001:00311761 491 0001:0031177A 493 0001:00311790 494 0001:0031179E + 496 0001:003117AB 497 0001:003117C1 499 0001:003117D9 500 0001:003117F2 + 501 0001:003117FF 502 0001:0031180C 503 0001:00311819 504 0001:00311826 + 505 0001:00311833 506 0001:00311843 507 0001:00311850 508 0001:00311859 + 511 0001:00311869 512 0001:00311872 513 0001:00311889 515 0001:0031189B + 519 0001:003118B4 521 0001:003118C1 522 0001:003118CF 523 0001:003118D6 + 524 0001:003118DF 525 0001:003118EC 526 0001:00311905 527 0001:00311915 + 528 0001:0031191C 529 0001:00311934 530 0001:0031194F 531 0001:0031195F + 536 0001:00311972 538 0001:00311988 539 0001:00311995 541 0001:003119A2 + 542 0001:003119B5 544 0001:003119F3 545 0001:00311A0C 546 0001:00311A19 + 547 0001:00311A26 548 0001:00311A33 549 0001:00311A40 550 0001:00311A4D + 551 0001:00311A6B 552 0001:00311A79 554 0001:00311A8A 555 0001:00311A9D + 556 0001:00311AAD 557 0001:00311ACB 558 0001:00311AD6 562 0001:00311AE5 + 563 0001:00311AF7 564 0001:00311B02 565 0001:00311B0F 567 0001:00311B1A + 568 0001:00311B2A 569 0001:00311B37 570 0001:00311B40 571 0001:00311B50 + 572 0001:00311B5D 573 0001:00311B6D 574 0001:00311B76 575 0001:00311B7F + 576 0001:00311B88 577 0001:00311B91 578 0001:00311BA5 581 0001:00311BB7 + 587 0001:00311BD0 588 0001:00311BDE 589 0001:00311BE5 590 0001:00311BEE + 591 0001:00311BFB 601 0001:00311C1C 602 0001:00311C35 603 0001:00311C3F + 604 0001:00311C7C 605 0001:00311C90 606 0001:00311CD7 607 0001:00311CE5 + 608 0001:00311CF5 609 0001:00311D05 610 0001:00311D0C 611 0001:00311D24 + 612 0001:00311D37 613 0001:00311D47 614 0001:00311D58 616 0001:00311D83 + 617 0001:00311DA3 620 0001:00311DD7 621 0001:00311DF0 622 0001:00311DFE + 625 0001:00311E0C 626 0001:00311E25 627 0001:00311E33 628 0001:00311E3D + 629 0001:00311E7A 630 0001:00311E8E 631 0001:00311ED5 633 0001:00311EE3 + 634 0001:00311EF7 636 0001:00311F1B 637 0001:00311F2B 638 0001:00311F32 + 639 0001:00311F4A 640 0001:00311F5D 641 0001:00311F6E 643 0001:00311F99 + 644 0001:00311FB9 647 0001:00311FE6 648 0001:00311FFF 649 0001:00312008 + 650 0001:00312020 655 0001:00312033 656 0001:00312046 657 0001:00312089 + 662 0001:00312234 664 0001:00312239 665 0001:0031224F 666 0001:0031226B + 667 0001:00312278 668 0001:00312294 678 0001:00312298 680 0001:003122BA + 681 0001:003122C1 682 0001:003122D7 683 0001:003122E7 684 0001:003122EE + 685 0001:003122F8 686 0001:0031231B 687 0001:00312346 688 0001:0031234D + 690 0001:00312382 692 0001:00312388 693 0001:00312397 694 0001:003123A3 + 696 0001:003123AF 698 0001:003123FA 701 0001:00312403 703 0001:00312416 + 705 0001:00312429 708 0001:0031243A 709 0001:0031245C 711 0001:00312475 + 712 0001:00312483 713 0001:0031248C 714 0001:00312492 716 0001:003124A3 + 719 0001:003124BB 720 0001:003124CC 721 0001:003124D9 722 0001:003124E3 + 723 0001:003124F3 725 0001:0031254A 726 0001:00312558 727 0001:00312566 + 728 0001:00312570 729 0001:0031257A 730 0001:00312584 731 0001:003125C0 + 732 0001:003125D4 733 0001:003125FD 735 0001:0031260B 736 0001:0031261F + 738 0001:00312643 739 0001:0031265B 742 0001:00312673 743 0001:00312681 + 744 0001:0031268B 745 0001:00312695 746 0001:0031269F 747 0001:003126CE + 748 0001:003126E2 749 0001:00312708 750 0001:00312715 751 0001:00312724 + 752 0001:00312732 753 0001:00312742 754 0001:0031275A 755 0001:0031276D + 758 0001:00312782 759 0001:00312790 760 0001:0031279A 761 0001:003127A4 + 762 0001:003127B2 763 0001:003127BC 764 0001:003127F0 765 0001:003127FE + 767 0001:00312810 768 0001:00312826 771 0001:00312843 774 0001:0031284B + 775 0001:0031285E 777 0001:0031286E 778 0001:0031287E 779 0001:0031288C + 780 0001:00312896 781 0001:003128A0 782 0001:003128AD 783 0001:003128B7 + 785 0001:00312911 786 0001:00312920 788 0001:0031292F 789 0001:0031293C + 790 0001:00312949 791 0001:00312956 794 0001:00312964 796 0001:00312971 + 797 0001:00312984 798 0001:00312994 799 0001:0031299D 800 0001:003129AB + 801 0001:003129B5 802 0001:003129BF 803 0001:003129CE 804 0001:003129DC + 805 0001:003129E6 808 0001:00312A55 810 0001:00312A64 811 0001:00312A71 + 812 0001:00312A8C 814 0001:00312A9E 813 0001:00312B0D 815 0001:00312B10 + 816 0001:00312B26 817 0001:00312B3C 818 0001:00312B4C 822 0001:00312B5E + 823 0001:00312B82 824 0001:00312B92 825 0001:00312B9F 826 0001:00312BDB + 830 0001:00312C40 835 0001:00312CD5 838 0001:00312CEF 843 0001:00312CFF + 844 0001:00312D0D 845 0001:00312D17 846 0001:00312D21 847 0001:00312D2B + 848 0001:00312D5A 849 0001:00312D6E 850 0001:00312D94 851 0001:00312DA1 + 852 0001:00312DB0 853 0001:00312DBE 854 0001:00312DCE 855 0001:00312DE6 + 856 0001:00312DF9 859 0001:00312E0E 860 0001:00312E1C 861 0001:00312E26 + 862 0001:00312E30 863 0001:00312E3A 864 0001:00312E7C 865 0001:00312E90 + 867 0001:00312ED4 868 0001:00312EE1 869 0001:00312EF0 870 0001:00312EFE + 871 0001:00312F0E 872 0001:00312F26 873 0001:00312F39 876 0001:00312F4E + 877 0001:00312F5C 878 0001:00312F6A 879 0001:00312F74 880 0001:00312F7E + 881 0001:00312F88 883 0001:00312FEA 884 0001:00312FFE 886 0001:00313059 + 887 0001:00313066 888 0001:00313075 889 0001:00313083 890 0001:00313093 + 891 0001:003130AB 892 0001:003130BE 895 0001:003130CE 896 0001:003130DF + 898 0001:00313110 899 0001:00313136 900 0001:00313144 901 0001:00313234 + 906 0001:00313698 907 0001:0031369F 914 0001:003136A0 915 0001:003136C5 + 916 0001:003136D6 918 0001:003136FD 919 0001:00313729 920 0001:00313755 + 921 0001:00313759 923 0001:003137B8 924 0001:003137D8 926 0001:003137E9 + 927 0001:003137ED 928 0001:0031383D 929 0001:0031386A 931 0001:00313880 + 921 0001:00313881 932 0001:0031388A 933 0001:003138C1 916 0001:003138C4 + 934 0001:003138FC 939 0001:00313928 940 0001:0031394D 941 0001:00313952 + 942 0001:0031397E 943 0001:003139AA 944 0001:003139D3 945 0001:003139DE + 947 0001:003139FE 948 0001:00313A05 949 0001:00313A31 950 0001:00313A5D + 951 0001:00313A86 953 0001:00313A91 955 0001:00313A97 956 0001:00313AB8 + 957 0001:00313AD7 958 0001:00313AF6 959 0001:00313B17 960 0001:00313B23 + 961 0001:00313B2F 962 0001:00313B45 963 0001:00313B58 962 0001:00313B6A + 963 0001:00313B6D 961 0001:00313B70 964 0001:00313B75 965 0001:00313B85 + 966 0001:00313B98 968 0001:00313BA7 969 0001:00313BDA 966 0001:00313BDB + 970 0001:00313BE0 972 0001:00313BE6 973 0001:00313BF9 974 0001:00313C0E + 973 0001:00313C22 976 0001:00313C27 978 0001:00313C3D 979 0001:00313C8E + 980 0001:00313D0C 976 0001:00313D0D 981 0001:00313D16 983 0001:00313D2C + 984 0001:00313D60 985 0001:00313D9B 986 0001:00313E28 981 0001:00313E29 + 988 0001:00313E57 993 0001:00313ECC 994 0001:00313EF2 995 0001:00313EF7 + 996 0001:00313F23 997 0001:00313F4F 998 0001:00313F78 999 0001:00313F83 + 1001 0001:00313FA3 1002 0001:00313FAA 1003 0001:00313FD6 1004 0001:00314002 + 1005 0001:0031402B 1007 0001:00314036 1009 0001:0031403C 1010 0001:0031405B + 1011 0001:0031407C 1012 0001:0031409B 1013 0001:003140BC 1014 0001:003140C8 + 1015 0001:003140D4 1016 0001:003140EA 1017 0001:003140FD 1016 0001:0031410F + 1017 0001:00314112 1015 0001:00314115 1018 0001:0031411A 1019 0001:0031412A + 1020 0001:0031413D 1022 0001:0031414C 1023 0001:0031417F 1020 0001:00314180 + 1024 0001:00314185 1026 0001:0031418B 1027 0001:0031419E 1028 0001:003141B3 + 1027 0001:003141C7 1030 0001:003141CC 1032 0001:003141E2 1033 0001:00314233 + 1034 0001:00314276 1030 0001:00314277 1035 0001:00314280 1037 0001:00314296 + 1038 0001:003142C4 1039 0001:003142F3 1040 0001:00314380 1035 0001:00314381 + 1042 0001:003143AF 1047 0001:00314418 1048 0001:00314438 1049 0001:00314467 + 1050 0001:00314475 1051 0001:0031447F 1052 0001:00314489 1053 0001:0031449B + 1052 0001:003144C0 1054 0001:003144C3 1055 0001:003144E3 1056 0001:003144F9 + 1057 0001:0031452B 1060 0001:00314558 1062 0001:0031455B 1063 0001:00314565 + 1064 0001:0031456F 1065 0001:00314579 1066 0001:00314589 1071 0001:0031458C + 1072 0001:003145B6 1075 0001:003145E1 1076 0001:00314600 1077 0001:0031460C + 1078 0001:00314622 1079 0001:00314638 1080 0001:00314651 1081 0001:0031466A + 1082 0001:00314683 1083 0001:003146CC 1084 0001:003146D5 1085 0001:003146E1 + 1086 0001:003146F7 1087 0001:00314705 1086 0001:00314714 1087 0001:00314717 + 1085 0001:0031471A 1088 0001:0031471F 1089 0001:0031472F 1090 0001:00314742 + 1091 0001:00314755 1092 0001:00314768 1093 0001:0031477B 1095 0001:0031478E + 1096 0001:003147BD 1097 0001:003147EF 1098 0001:00314821 1099 0001:00314853 + 1100 0001:00314885 1093 0001:00314886 1102 0001:003148B1 1108 0001:0031490C + 1109 0001:00314936 1110 0001:00314944 1111 0001:00314963 1112 0001:00314982 + 1113 0001:003149A1 1114 0001:003149D7 1115 0001:00314A00 1116 0001:00314A12 + 1115 0001:00314A33 1117 0001:00314A36 1118 0001:00314A65 1125 0001:00314AB4 + 1126 0001:00314AD8 1127 0001:00314AE7 1128 0001:00314AFC 1129 0001:00314B00 + 1130 0001:00314B04 1131 0001:00314B12 1132 0001:00314B39 1134 0001:00314B49 + 1135 0001:00314B77 1136 0001:00314BA9 1137 0001:00314BC3 1138 0001:00314BFB + 1141 0001:00314C14 1142 0001:00314C34 1146 0001:00314C3A 1147 0001:00314C57 + 1149 0001:00314C74 1150 0001:00314C83 1151 0001:00314C87 1152 0001:00314C96 + 1156 0001:00314C9C 1157 0001:00314CA9 1159 0001:00314CB6 1160 0001:00314CC4 + 1161 0001:00314CD2 1162 0001:00314CE0 1163 0001:00314CEE 1164 0001:00314CFC + 1165 0001:00314D0A 1166 0001:00314D18 1167 0001:00314D26 1168 0001:00314D44 + 1171 0001:00314D53 1172 0001:00314D60 1173 0001:00314D7E 1174 0001:00314D90 + 1175 0001:00314D9F 1177 0001:00314DB1 1179 0001:00314DC1 1181 0001:00314DD1 + 1183 0001:00314E04 1184 0001:00314E14 1185 0001:00314E24 1186 0001:00314E31 + 1187 0001:00314E4F 1188 0001:00314E5C 1189 0001:00314E69 1190 0001:00314E76 + 1191 0001:00314E8D 1192 0001:00314EA4 1193 0001:00314EB4 1194 0001:00314EC1 + 1195 0001:00314ECE 1196 0001:00314EE8 1197 0001:00314F05 1199 0001:00314F13 + 1201 0001:00314F42 1202 0001:00314F4C 1203 0001:00314F60 1204 0001:00314F70 + 1205 0001:00314F7D 1206 0001:00314F8A 1211 0001:00314F99 1212 0001:00314FA6 + 1213 0001:00314FB3 1216 0001:00314FCD 1218 0001:0031503E 1223 0001:00315120 + 1225 0001:00315139 1226 0001:0031514C 1227 0001:00315156 1228 0001:00315197 + 1229 0001:0031519E 1230 0001:003151A2 1231 0001:003151C1 1232 0001:003151E0 + 1234 0001:00315210 1239 0001:0031523C 1241 0001:00315255 1242 0001:00315268 + 1243 0001:00315272 1244 0001:003152B5 1245 0001:003152BC 1246 0001:003152C0 + 1247 0001:003152DF 1248 0001:003152FE 1250 0001:0031532E 1258 0001:0031535C + 1259 0001:00315380 1260 0001:00315382 1261 0001:00315391 1262 0001:003153A0 + 1265 0001:003153DB 1266 0001:003153EE 1267 0001:00315401 1269 0001:0031540D + 1270 0001:0031541C 1271 0001:00315429 1275 0001:0031543C 1276 0001:0031544B + 1279 0001:00315479 1286 0001:0031548C 1287 0001:003154C1 1289 0001:003154DF + 1290 0001:003154F7 1291 0001:00315503 1292 0001:0031550E 1293 0001:00315521 + 1294 0001:00315538 1298 0001:00315551 1300 0001:00315564 1301 0001:00315571 + 1302 0001:00315576 1303 0001:00315589 1304 0001:0031559C 1305 0001:003155AF + 1306 0001:003155C2 1307 0001:003155D5 1308 0001:00315600 1309 0001:0031562B + 1310 0001:00315656 1311 0001:00315680 1313 0001:0031568A 1314 0001:00315699 + 1316 0001:003156D2 1317 0001:003156DC 1318 0001:003156DE 1313 0001:003156DF + 1319 0001:003156E4 1320 0001:003156F5 1322 0001:00315701 1323 0001:00315736 + 1325 0001:0031576B 1327 0001:00315777 1328 0001:003157AC 1330 0001:003157E1 + 1331 0001:003157F4 1332 0001:0031580E 1333 0001:00315829 1334 0001:00315840 + 1335 0001:00315867 1336 0001:0031588B 1337 0001:003158AF 1338 0001:003158BA + 1339 0001:003158D2 1340 0001:0031590F 1342 0001:00315983 1343 0001:003159A9 + 1345 0001:003159B9 1346 0001:003159C5 1347 0001:00315A36 1348 0001:00315A57 + 1350 0001:00315A5A 1338 0001:00315A5B 1352 0001:00315A64 1354 0001:00315A6E + 1355 0001:00315A92 1356 0001:00315AA2 1357 0001:00315AAF 1358 0001:00315AD4 + 1360 0001:00315B0A 1361 0001:00315B51 1364 0001:00315B60 1365 0001:00315B6D + 1367 0001:00315B7F 1368 0001:00315B8E 1370 0001:00315BDA 1375 0001:00315C74 + 1376 0001:00315CA1 1377 0001:00315CCA 1378 0001:00315CF4 1379 0001:00315D1F + 1380 0001:00315D6E 1385 0001:00315D78 1387 0001:00315D7C 1388 0001:00315D8F + 1389 0001:00315D99 1390 0001:00315DA3 1391 0001:00315DC3 1392 0001:00315DCA + 1393 0001:00315DEB 1398 0001:00315E28 1400 0001:00315E2C 1401 0001:00315E3F + 1402 0001:00315E49 1403 0001:00315E53 1404 0001:00315E67 1405 0001:00315E88 + 1406 0001:00315E8F 1409 0001:00315EBC 1411 0001:00315EC0 1412 0001:00315EC7 + 1413 0001:00315EDB 1414 0001:00315EEF 1415 0001:00315F03 1416 0001:00315F1A + 1417 0001:00315F2E 1419 0001:00315F75 1420 0001:00315F82 1421 0001:00315FA0 + 1422 0001:00315FC0 1423 0001:00315FCD 1424 0001:00315FDA 1425 0001:00315FF5 + 1426 0001:0031600F 1427 0001:0031602C 1428 0001:00316043 1429 0001:00316050 + 1432 0001:00316061 1433 0001:00316078 1434 0001:00316085 1435 0001:00316092 + 1436 0001:0031609F 1439 0001:003160B0 1440 0001:003160C7 1441 0001:003160D4 + 1442 0001:003160E4 1443 0001:003160F1 1444 0001:003160FE 1447 0001:0031610F + 1448 0001:00316126 1449 0001:00316133 1450 0001:00316143 1451 0001:00316150 + 1452 0001:0031615D 1455 0001:0031616E 1456 0001:0031617B 1457 0001:00316188 + 1458 0001:00316191 1459 0001:003161A8 1462 0001:003161B8 1464 0001:003161C5 + 1465 0001:003161E3 1466 0001:003161F0 1467 0001:00316204 1468 0001:00316211 + 1469 0001:0031622F 1470 0001:0031623C 1474 0001:0031624D 1477 0001:0031625E + 1480 0001:0031626F 1483 0001:00316280 1486 0001:0031628E 1489 0001:003162E4 + 1491 0001:003162E7 1492 0001:003162F2 1493 0001:00316306 1498 0001:00316308 + 1500 0001:00316331 1501 0001:00316341 1502 0001:00316364 1503 0001:003163AF + 1504 0001:003163FE 1505 0001:00316486 1506 0001:003164BF 1509 0001:00316508 + 1511 0001:0031650B 1512 0001:00316529 1515 0001:0031652C 1517 0001:0031652F + 1518 0001:0031654A 1526 0001:0031654C 1527 0001:00316580 1528 0001:003165AA + 1529 0001:003165C9 1530 0001:003165E8 1531 0001:00316607 1532 0001:00316626 + 1534 0001:00316630 1535 0001:00316652 1536 0001:00316672 1537 0001:0031668C + 1538 0001:003166B6 1540 0001:003166BC 1541 0001:003166F1 1543 0001:00316726 + 1545 0001:0031672C 1546 0001:00316761 1550 0001:00316796 1551 0001:003167AD + 1552 0001:003167F6 1553 0001:00316814 1554 0001:00316832 1556 0001:00316847 + 1557 0001:00316867 1558 0001:00316873 1559 0001:003168A1 1560 0001:003168C2 + 1554 0001:003168C5 1562 0001:00316905 1567 0001:0031694C 1568 0001:00316972 + 1571 0001:00316974 1573 0001:00316977 1575 0001:0031698A 1576 0001:00316997 + 1577 0001:003169A4 1578 0001:003169B1 1579 0001:003169BE 1580 0001:003169CB + 1581 0001:003169E9 1582 0001:00316A09 1583 0001:00316A16 1584 0001:00316A23 + 1588 0001:00316A32 1589 0001:00316A3F 1590 0001:00316A4C 1591 0001:00316A59 + 1592 0001:00316A62 1593 0001:00316A6B 1594 0001:00316A78 1597 0001:00316A85 + 1598 0001:00316AA0 1599 0001:00316AC0 1600 0001:00316ACD 1601 0001:00316ADA + 1602 0001:00316AE7 1604 0001:00316AFB 1605 0001:00316B0D 1606 0001:00316B1D + 1609 0001:00316B26 1612 0001:00316B28 1614 0001:00316B3F 1615 0001:00316B8F + 1619 0001:00316B94 1621 0001:00316B97 1622 0001:00316BB5 1625 0001:00316BB8 + 1627 0001:00316BBB 1628 0001:00316BD6 1631 0001:00316BD8 1633 0001:00316BF1 + 1634 0001:00316C0B 1635 0001:00316C22 1636 0001:00316C32 1637 0001:00316C44 + 1639 0001:00316C78 1640 0001:00316C93 1641 0001:00316CD6 1644 0001:00316DA4 + 1646 0001:00316DA5 1648 0001:00316DAB 1649 0001:00316DB5 1650 0001:00316DC1 + 1652 0001:00316DCD 1657 0001:00316DD0 1659 0001:00316DEC 1660 0001:00316DEE + 1662 0001:00316DF7 1663 0001:00316E14 1662 0001:00316E38 1664 0001:00316E3B + 1665 0001:00316E46 1666 0001:00316E53 1668 0001:00316E7D 1674 0001:00316E84 + 1676 0001:00316E9E 1677 0001:00316EB4 1678 0001:00316EC1 1679 0001:00316EE0 + 1680 0001:00316EF6 1682 0001:00316F0C 1683 0001:00316F11 1684 0001:00316F46 + 1685 0001:00316F62 1687 0001:00316F9D 1688 0001:00316FB8 1690 0001:00316FE1 + 1693 0001:00316FE8 1695 0001:00316FEB 1696 0001:00316FF4 1697 0001:00316FFB + 1698 0001:00317008 1699 0001:00317015 1701 0001:00317022 1704 0001:00317024 + 1706 0001:00317028 1708 0001:00317045 1709 0001:0031704F 1711 0001:0031705F + 1712 0001:00317071 1714 0001:00317080 1715 0001:0031708D 1716 0001:00317099 + 1717 0001:003170A6 1718 0001:003170B8 1720 0001:003170C7 1721 0001:003170D4 + 1723 0001:00317112 1725 0001:00317121 1726 0001:0031712E 1727 0001:00317146 + 1728 0001:00317156 1729 0001:00317166 1731 0001:00317173 1737 0001:00317178 + 1756 0001:00317192 1757 0001:003171B4 1759 0001:003171C6 1760 0001:003171D7 + 1761 0001:003171E8 1762 0001:003171F5 1763 0001:00317202 1764 0001:0031720F + 1765 0001:0031721C 1766 0001:00317229 1767 0001:00317236 1768 0001:00317243 + 1769 0001:00317250 1770 0001:0031725D 1771 0001:0031726F 1772 0001:0031727A + 1773 0001:00317287 1774 0001:00317292 1775 0001:0031729F 1776 0001:003172AD + 1777 0001:003172B7 1778 0001:003172C1 1779 0001:003172CE 1780 0001:003172D7 + 1781 0001:003172F2 1782 0001:00317302 1783 0001:00317310 1787 0001:0031732F + 1788 0001:00317364 1789 0001:00317374 1792 0001:0031737D 1793 0001:003173AD + 1794 0001:003173BB 1795 0001:003173C9 1796 0001:003173D7 1797 0001:003173E5 + 1798 0001:003173F3 1800 0001:00317421 1803 0001:00317428 1805 0001:0031742C + 1806 0001:00317446 1807 0001:0031745D 1809 0001:0031746F 1810 0001:0031747E + 1812 0001:00317490 1817 0001:00317494 1818 0001:003174A7 1823 0001:003174A8 + 1824 0001:003174B3 1827 0001:003174B4 1829 0001:003174B7 1831 0001:003174C3 + 1832 0001:003174DE 1833 0001:003174F9 1837 0001:00317516 1838 0001:00317531 + 1839 0001:0031754C 1841 0001:00317567 1842 0001:00317596 1844 0001:003175A5 + 1845 0001:003175BC 1849 0001:003175CB 1850 0001:003175DB 1852 0001:003175E8 + 1855 0001:003175FC 1857 0001:00317600 1859 0001:0031760C 1860 0001:0031762B + 1864 0001:00317637 1865 0001:00317656 1867 0001:0031765F 1870 0001:00317664 + 1872 0001:00317668 1874 0001:00317674 1875 0001:00317693 1879 0001:0031769F + 1880 0001:003176BE 1882 0001:003176C7 1885 0001:003176CC 1887 0001:003176D0 + 1889 0001:003176DC 1890 0001:003176FB 1894 0001:00317707 1895 0001:00317726 + 1897 0001:0031772F 1900 0001:00317734 1902 0001:00317737 1903 0001:00317746 + 1907 0001:00317748 1909 0001:0031774E 1910 0001:0031775E 1911 0001:00317769 + 1916 0001:00317770 1918 0001:0031778D 1919 0001:00317799 1920 0001:003177A5 + 1921 0001:003177B5 1922 0001:003177CD 1923 0001:0031780C 1924 0001:00317816 + 1925 0001:00317842 1929 0001:00317898 1931 0001:003178B1 1932 0001:003178EC + 1933 0001:003178F7 1934 0001:00317922 1941 0001:00317950 1943 0001:00317971 + 1944 0001:00317981 1946 0001:00317991 1947 0001:003179A0 1948 0001:003179AE + 1949 0001:003179C7 1950 0001:003179E0 1951 0001:003179EF 1952 0001:003179FE + 1953 0001:00317A1A 1954 0001:00317A2F 1955 0001:00317A6A 1956 0001:00317A8D + 1958 0001:00317AE4 1963 0001:00317AF4 1964 0001:00317B09 1965 0001:00317B24 + 1966 0001:00317B33 1967 0001:00317B41 1968 0001:00317B52 1970 0001:00317B82 + 1971 0001:00317BAE 1972 0001:00317BD6 1974 0001:00317C45 1977 0001:00317C55 + 1978 0001:00317C63 1979 0001:00317CA1 1984 0001:00317D5C 1985 0001:00317D6D + 1990 0001:00317D70 1992 0001:00317D8D 1993 0001:00317DAE 1994 0001:00317E07 + 1995 0001:00317E3B 1996 0001:00317E9A 2003 0001:00317EC4 2004 0001:00317EF3 + 2005 0001:00317F15 2006 0001:00317F41 2007 0001:00317F5F 2008 0001:00317F6B + 2009 0001:00317F7F 2010 0001:00317FAB 2012 0001:00317FCC 2013 0001:00317FEA + 2014 0001:00317FF6 2018 0001:00318015 2019 0001:00318033 2020 0001:0031803F + 2022 0001:00318056 2023 0001:00318064 2024 0001:00318075 2026 0001:00318080 + 2027 0001:0031808B 2028 0001:00318098 2030 0001:003180A6 2031 0001:003180FD + 2037 0001:00318118 2039 0001:00318136 2041 0001:00318143 2042 0001:00318155 + 2043 0001:00318169 2045 0001:00318183 2046 0001:00318198 2047 0001:003181AD + 2049 0001:003181D3 2051 0001:003181FB 2053 0001:00318228 2054 0001:0031823A + 2058 0001:00318256 2059 0001:0031825C 2061 0001:00318265 2062 0001:00318275 + 2063 0001:0031828C 2064 0001:003182A6 2065 0001:003182AD 2068 0001:003182C6 + 2071 0001:003182F2 2072 0001:00318305 2041 0001:00318306 2073 0001:0031830D + 2075 0001:00318320 2076 0001:00318322 2077 0001:00318330 2078 0001:00318346 + 2076 0001:0031834C 2079 0001:0031834F 2081 0001:00318353 2082 0001:00318363 + 2084 0001:0031836A 2085 0001:0031836C 2086 0001:0031837A 2087 0001:0031838A + 2085 0001:00318390 2088 0001:00318393 2090 0001:00318397 2091 0001:003183A7 + 2092 0001:003183AE 2096 0001:003183EF 2103 0001:00318460 2108 0001:003184AB + 2109 0001:003184B5 2110 0001:003184C7 2112 0001:003184DA 2113 0001:003184E8 + 2115 0001:00318510 2116 0001:00318526 2117 0001:0031853F 2118 0001:00318556 + 2120 0001:0031855B 2124 0001:00318618 2125 0001:00318620 2127 0001:00318635 + 2128 0001:00318649 2129 0001:00318665 2131 0001:00318672 2132 0001:0031868E + 2134 0001:00318690 2125 0001:00318691 2135 0001:00318696 2136 0001:003186A5 + 2138 0001:003186AF 2139 0001:003186CE 2140 0001:003186DF 2141 0001:003186F5 + 2142 0001:0031870E 2146 0001:0031872A 2148 0001:0031874A 2153 0001:003187BC + 2157 0001:00318819 2161 0001:0031886D 2165 0001:003188BE 2170 0001:0031892B + 2172 0001:0031893E 2173 0001:00318954 2177 0001:00318972 2178 0001:00318995 + 2179 0001:003189AB 2180 0001:003189C4 2181 0001:003189D4 2185 0001:003189FF + 2109 0001:00318A00 2186 0001:00318A45 2193 0001:00318B80 2195 0001:00318BA3 + 2196 0001:00318BB4 2197 0001:00318BC4 2199 0001:00318BCA 2200 0001:00318BDB + 2202 0001:00318BEA 2203 0001:00318C09 2205 0001:00318C1C 2207 0001:00318C63 + 2208 0001:00318C71 2209 0001:00318C75 2210 0001:00318CA4 2211 0001:00318CAA + 2214 0001:00318CE5 2215 0001:00318D27 2216 0001:00318D6B 2217 0001:00318D6F + 2209 0001:00318D72 2220 0001:00318D7D 2221 0001:00318D9F 2222 0001:00318DB7 + 2224 0001:00318DCA 2225 0001:00318DEC 2226 0001:00318E23 2227 0001:00318E45 + 2228 0001:00318E7C 2229 0001:00318E99 2232 0001:00318EB4 2234 0001:00318EC6 + 2236 0001:00318EFB 2237 0001:00318F09 2238 0001:00318F0D 2239 0001:00318F2A + 2240 0001:00318F30 2243 0001:00318F56 2244 0001:00318F86 2245 0001:00318FB8 + 2246 0001:00318FBC 2238 0001:00318FBF 2249 0001:00318FCA 2250 0001:00318FDA + 2251 0001:00318FF2 2253 0001:00319005 2254 0001:00319015 2256 0001:00319050 + 2263 0001:00319128 2265 0001:0031914C 2266 0001:00319159 2267 0001:0031916E + 2268 0001:0031918B 2269 0001:003191AE 2270 0001:003191CD 2271 0001:003191EF + 2272 0001:00319204 2274 0001:00319255 2277 0001:00319278 2278 0001:0031927B + 2280 0001:0031928C 2281 0001:0031929F 2282 0001:003192AF 2283 0001:003192BA + 2287 0001:003192C9 2288 0001:003192DB 2289 0001:003192E6 2290 0001:003192F3 + 2292 0001:003192FE 2295 0001:00319328 2296 0001:00319348 2297 0001:00319355 + 2298 0001:00319362 2299 0001:0031936F 2300 0001:0031937C 2301 0001:00319389 + 2302 0001:00319397 2303 0001:003193A5 2304 0001:003193B3 2305 0001:003193C1 + 2306 0001:003193CE 2307 0001:003193DC 2308 0001:003193EA 2309 0001:003193F8 + 2310 0001:00319406 2312 0001:0031941F 2313 0001:0031942F 2317 0001:00319441 + 2318 0001:00319451 2320 0001:00319461 2321 0001:0031947D 2322 0001:003194BB + 2326 0001:003194EC 2328 0001:003194F9 2330 0001:003194FF 2332 0001:00319505 + 2333 0001:0031952A 2335 0001:00319531 2337 0001:00319537 2338 0001:0031955C + 2341 0001:00319561 2342 0001:00319567 2343 0001:0031958C 2345 0001:00319591 + 2347 0001:003195F0 2347 0001:003195F7 + +Line numbers for fPtDemo(fPtDemo.pas) segment .text + + 41 0001:00319844 42 0001:0031984B 43 0001:0031986C 44 0001:00319883 + 47 0001:00319891 48 0001:0031989C 51 0001:003198B4 53 0001:003198C4 + 59 0001:003198C8 60 0001:003198E6 61 0001:003198F8 62 0001:003198FF + 63 0001:00319910 64 0001:00319920 65 0001:00319927 66 0001:0031992C + 68 0001:0031994D 69 0001:00319978 70 0001:0031997E 66 0001:00319981 + 72 0001:00319986 75 0001:0031999F 77 0001:003199D7 78 0001:003199E5 + 79 0001:00319A09 80 0001:00319A27 81 0001:00319A30 82 0001:00319A39 + 83 0001:00319A43 84 0001:00319A4B 85 0001:00319A72 89 0001:00319A7C + 90 0001:00319A83 91 0001:00319A88 95 0001:00319A8C 96 0001:00319A91 + 108 0001:00319A94 109 0001:00319AB7 110 0001:00319ABF 111 0001:00319AC7 + 113 0001:00319ADD 114 0001:00319AEC 115 0001:00319B02 116 0001:00319B14 + 117 0001:00319B22 118 0001:00319B34 119 0001:00319B39 122 0001:00319B3E + 123 0001:00319B48 124 0001:00319B53 125 0001:00319B80 126 0001:00319B90 + 127 0001:00319BA2 129 0001:00319BA9 131 0001:00319BB5 132 0001:00319BC0 + 134 0001:00319BCB 135 0001:00319BE3 137 0001:00319C0A 132 0001:00319C0B + 138 0001:00319C0E 139 0001:00319C11 140 0001:00319C1E 141 0001:00319C2B + 142 0001:00319C45 143 0001:00319C5F 146 0001:00319C6E 147 0001:00319C71 + 148 0001:00319C97 149 0001:00319CA4 152 0001:00319CA9 153 0001:00319CC7 + 156 0001:00319CF3 157 0001:00319CFB 160 0001:00319D0B 161 0001:00319D1E + 162 0001:00319D6B 164 0001:00319E04 164 0001:00319E0B + +Line numbers for fAbout(fAbout.pas) segment .text + + 44 0001:0031A0CC 45 0001:0031A0D0 46 0001:0031A0E7 47 0001:0031A0F5 + 48 0001:0031A0FD 49 0001:0031A110 50 0001:0031A123 51 0001:0031A136 + 52 0001:0031A149 54 0001:0031A161 56 0001:0031A171 59 0001:0031A174 + 61 0001:0031A19B 63 0001:0031A1AB 64 0001:0031A1E3 65 0001:0031A20B + 66 0001:0031A233 67 0001:0031A25B 68 0001:0031A283 69 0001:0031A2AB + 70 0001:0031A2D3 71 0001:0031A336 73 0001:0031A528 73 0001:0031A52F + +Line numbers for fxBroker(fxBroker.pas) segment .text + + 46 0001:0031A7CC 47 0001:0031A7E4 48 0001:0031A7FB 49 0001:0031A809 + 52 0001:0031A811 53 0001:0031A822 54 0001:0031A82D 55 0001:0031A843 + 56 0001:0031A856 57 0001:0031A891 60 0001:0031A8A9 62 0001:0031A8DB + 65 0001:0031A8FC 66 0001:0031A915 67 0001:0031A92B 68 0001:0031A93E + 69 0001:0031A94E 70 0001:0031A9A2 73 0001:0031A9C4 74 0001:0031A9DD + 75 0001:0031A9F7 76 0001:0031AA0A 77 0001:0031AA1A 78 0001:0031AA6E + 81 0001:0031AA90 82 0001:0031AAA6 83 0001:0031AAE3 87 0001:0031AAE8 + 88 0001:0031AAED 91 0001:0031AAF0 92 0001:0031AAF3 93 0001:0031AB05 + 97 0001:0031AB08 98 0001:0031AB0B 100 0001:0031AB11 101 0001:0031AB16 + 103 0001:0031AB1B 113 0001:0031AB20 115 0001:0031AB3F 118 0001:0031AB59 + 119 0001:0031AB62 120 0001:0031AB72 121 0001:0031AB7B 122 0001:0031AB8E + 125 0001:0031AB98 127 0001:0031ABE3 129 0001:0031AC94 129 0001:0031AC9B + +Line numbers for fxLists(fxLists.pas) segment .text + + 32 0001:0031AE3C 33 0001:0031AE43 34 0001:0031AE5A 35 0001:0031AE68 + 38 0001:0031AE70 39 0001:0031AE81 41 0001:0031AEA0 42 0001:0031AEBA + 45 0001:0031AED2 47 0001:0031AEE2 51 0001:0031AEE8 52 0001:0031AEEB + 54 0001:0031AEF1 55 0001:0031AEF6 57 0001:0031AEFB 59 0001:0031AF30 + 59 0001:0031AF37 + +Line numbers for fxServer(fxServer.pas) segment .text + + 36 0001:0031B13C 37 0001:0031B140 38 0001:0031B157 39 0001:0031B165 + 40 0001:0031B16D 42 0001:0031B185 44 0001:0031B195 48 0001:0031B198 + 49 0001:0031B1A9 53 0001:0031B1AC 54 0001:0031B1AF 56 0001:0031B1B5 + 57 0001:0031B1BA 59 0001:0031B1BF 61 0001:0031B1F4 61 0001:0031B1FB + +Line numbers for fSplash(fSplash.pas) segment .text + + 35 0001:0031B400 36 0001:0031B41A 38 0001:0031B479 40 0001:0031B4F4 + 40 0001:0031B4FB + +Line numbers for fLabInfo(fLabInfo.pas) segment .text + + 38 0001:0031B710 39 0001:0031B714 40 0001:0031B718 41 0001:0031B731 + 42 0001:0031B73F 43 0001:0031B749 44 0001:0031B756 45 0001:0031B764 + 47 0001:0031B775 49 0001:0031B78A 53 0001:0031B790 54 0001:0031B797 + 55 0001:0031B79C 59 0001:0031B7A0 60 0001:0031B7A3 61 0001:0031B7B3 + 62 0001:0031B7C0 63 0001:0031B7D0 67 0001:0031B7D4 68 0001:0031B7DD + 69 0001:0031B7F4 72 0001:0031B7FC 74 0001:0031B813 75 0001:0031B868 + 77 0001:0031B8A0 77 0001:0031B8A7 + +Line numbers for fBAOptionsDiagnoses(BA\fBAOptionsDiagnoses.pas) segment .text + + 102 0001:0031BD8C 103 0001:0031BD96 104 0001:0031BDAC 107 0001:0031BDB3 + 108 0001:0031BDBB 111 0001:0031BDC6 112 0001:0031BDCF 113 0001:0031BDD8 + 115 0001:0031BDE1 116 0001:0031BDE8 119 0001:0031BDF2 122 0001:0031BDFC + 123 0001:0031BDFF 124 0001:0031BE06 125 0001:0031BE0D 127 0001:0031BE21 + 128 0001:0031BE28 129 0001:0031BE35 130 0001:0031BE56 131 0001:0031BE77 + 134 0001:0031BE98 135 0001:0031BEA6 144 0001:0031BEA8 145 0001:0031BECC + 146 0001:0031BEED 147 0001:0031BEFC 149 0001:0031BF13 150 0001:0031BF22 + 151 0001:0031BF2C 152 0001:0031BF5B 153 0001:0031BF75 154 0001:0031BF7C + 156 0001:0031BF90 157 0001:0031BFAA 154 0001:0031BFAB 158 0001:0031BFD8 + 164 0001:0031C01C 165 0001:0031C03D 167 0001:0031C079 168 0001:0031C09B + 169 0001:0031C0B4 170 0001:0031C10B 165 0001:0031C10C 171 0001:0031C135 + 177 0001:0031C164 178 0001:0031C193 179 0001:0031C1A4 180 0001:0031C1AC + 182 0001:0031C1C0 183 0001:0031C1CF 185 0001:0031C213 180 0001:0031C214 + 186 0001:0031C217 187 0001:0031C218 189 0001:0031C22E 193 0001:0031C257 + 194 0001:0031C2B3 196 0001:0031C2E4 197 0001:0031C2FE 199 0001:0031C304 + 201 0001:0031C31A 187 0001:0031C31B 202 0001:0031C344 209 0001:0031C380 + 211 0001:0031C3A0 212 0001:0031C3B7 213 0001:0031C3CC 214 0001:0031C402 + 216 0001:0031C414 217 0001:0031C423 219 0001:0031C43D 223 0001:0031C499 + 224 0001:0031C4CA 226 0001:0031C542 227 0001:0031C56A 229 0001:0031C5D8 + 230 0001:0031C61C 233 0001:0031C6A8 235 0001:0031C739 217 0001:0031C73A + 237 0001:0031C76E 244 0001:0031C7C4 246 0001:0031C7E6 247 0001:0031C7EE + 248 0001:0031C7FC 249 0001:0031C807 251 0001:0031C811 252 0001:0031C822 + 253 0001:0031C82C 254 0001:0031C850 256 0001:0031C863 257 0001:0031C8A3 + 258 0001:0031C8C8 260 0001:0031C8FD 261 0001:0031C913 262 0001:0031C924 + 264 0001:0031C95E 267 0001:0031C980 269 0001:0031C9AE 270 0001:0031C9B6 + 271 0001:0031C9BE 272 0001:0031C9FB 276 0001:0031CA98 278 0001:0031CAB2 + 280 0001:0031CACC 282 0001:0031CADD 283 0001:0031CAFC 284 0001:0031CB1E + 286 0001:0031CB20 278 0001:0031CB21 287 0001:0031CB46 292 0001:0031CB50 + 293 0001:0031CB5F 300 0001:0031CB60 302 0001:0031CB81 303 0001:0031CB8F + 304 0001:0031CB96 306 0001:0031CBBA 308 0001:0031CBCC 309 0001:0031CBF5 + 311 0001:0031CBFF 313 0001:0031CC0A 314 0001:0031CC1E 315 0001:0031CC25 + 317 0001:0031CC44 304 0001:0031CC47 318 0001:0031CC75 323 0001:0031CC7C + 324 0001:0031CC81 327 0001:0031CC84 329 0001:0031CC87 332 0001:0031CC95 + 333 0001:0031CCAC 336 0001:0031CCB6 338 0001:0031CCC4 339 0001:0031CCD1 + 341 0001:0031CCDA 342 0001:0031CCF1 344 0001:0031CCFB 345 0001:0031CD02 + 352 0001:0031CD04 354 0001:0031CD27 356 0001:0031CD46 358 0001:0031CD5B + 359 0001:0031CD83 361 0001:0031CD95 363 0001:0031CDB7 364 0001:0031CDC4 + 367 0001:0031CE43 370 0001:0031CE8C 354 0001:0031CE8D 371 0001:0031CE96 + 372 0001:0031CEA3 373 0001:0031CEB1 374 0001:0031CEF6 379 0001:0031CF88 + 381 0001:0031CF8E 382 0001:0031CF95 384 0001:0031CF9C 386 0001:0031CFA2 + 387 0001:0031CFB1 388 0001:0031CFBD 391 0001:0031CFCB 393 0001:0031CFD8 + 394 0001:0031CFD9 396 0001:0031CFE7 389 0001:0031CFE8 398 0001:0031CFF0 + 401 0001:0031CFFC 402 0001:0031D009 403 0001:0031D017 404 0001:0031D032 + 407 0001:0031D038 409 0001:0031D03B 410 0001:0031D04D 413 0001:0031D05C + 414 0001:0031D06E 416 0001:0031D07D 418 0001:0031D08A 422 0001:0031D08C + 424 0001:0031D091 426 0001:0031D0A9 428 0001:0031D0BA 429 0001:0031D0C7 + 432 0001:0031D0C9 433 0001:0031D0D6 424 0001:0031D0D7 434 0001:0031D0DA + 437 0001:0031D0E0 439 0001:0031D0E3 440 0001:0031D0F5 441 0001:0031D104 + 444 0001:0031D108 446 0001:0031D11F 447 0001:0031D131 448 0001:0031D150 + 449 0001:0031D17B 452 0001:0031D180 454 0001:0031D183 455 0001:0031D18D + 456 0001:0031D194 459 0001:0031D198 460 0001:0031D1AD 462 0001:0031D1B6 + 466 0001:0031D1C9 467 0001:0031D215 470 0001:0031D23F 476 0001:0031D340 + 477 0001:0031D345 483 0001:0031D348 484 0001:0031D375 485 0001:0031D379 + 486 0001:0031D394 488 0001:0031D3CC 489 0001:0031D3D0 490 0001:0031D3D2 + 485 0001:0031D3D3 491 0001:0031D403 499 0001:0031D40C 500 0001:0031D42F + 501 0001:0031D43D 502 0001:0031D444 503 0001:0031D458 505 0001:0031D467 + 507 0001:0031D47D 509 0001:0031D4BA 510 0001:0031D51A 513 0001:0031D532 + 514 0001:0031D556 505 0001:0031D557 516 0001:0031D58A 522 0001:0031D5C4 + 525 0001:0031D5E1 527 0001:0031D5FC 528 0001:0031D627 529 0001:0031D634 + 525 0001:0031D635 533 0001:0031D638 535 0001:0031D641 536 0001:0031D650 + 537 0001:0031D65C 539 0001:0031D660 540 0001:0031D66E 537 0001:0031D66F + 542 0001:0031D673 545 0001:0031D67F 546 0001:0031D68F 547 0001:0031D6A0 + 548 0001:0031D6E0 555 0001:0031D6E8 557 0001:0031D70B 559 0001:0031D72A + 560 0001:0031D752 562 0001:0031D764 564 0001:0031D786 565 0001:0031D793 + 568 0001:0031D812 570 0001:0031D85B 557 0001:0031D85C 571 0001:0031D865 + 572 0001:0031D872 573 0001:0031D880 575 0001:0031D8C5 579 0001:0031D954 + 581 0001:0031D957 582 0001:0031D964 583 0001:0031D971 584 0001:0031D97F + 587 0001:0031D984 588 0001:0031D987 589 0001:0031D98E 590 0001:0031D9AF + 591 0001:0031D9D0 592 0001:0031D9F1 598 0001:0031D9F4 600 0001:0031DA11 + 602 0001:0031DA2C 604 0001:0031DA40 605 0001:0031DA6B 607 0001:0031DA78 + 600 0001:0031DA79 608 0001:0031DA9E 613 0001:0031DAA8 615 0001:0031DACD + 617 0001:0031DAF2 619 0001:0031DB07 621 0001:0031DB1B 623 0001:0031DB65 + 624 0001:0031DB71 626 0001:0031DB73 619 0001:0031DB74 628 0001:0031DB77 + 615 0001:0031DB7A 629 0001:0031DBA5 632 0001:0031DBFC 633 0001:0031DC1A + 634 0001:0031DC23 636 0001:0031DC2A 637 0001:0031DC3B 638 0001:0031DC4C + 639 0001:0031DC5D 640 0001:0031DC6E 641 0001:0031DC7F 642 0001:0031DC90 + 644 0001:0031DCA1 645 0001:0031DCAB 646 0001:0031DCB5 647 0001:0031DCBF + 648 0001:0031DCC9 649 0001:0031DCD3 650 0001:0031DCDD 652 0001:0031DCFC + +Line numbers for uOptions(Options\uOptions.pas) segment .text + + 44 0001:0031DD6C 45 0001:0031DD8A 46 0001:0031DD8C 47 0001:0031DD9F + 48 0001:0031DDB2 49 0001:0031DDC5 50 0001:0031DDF5 56 0001:0031DE30 + 57 0001:0031DE36 59 0001:0031DE52 60 0001:0031DE58 62 0001:0031DE5B + 63 0001:0031DE68 64 0001:0031DE7A 65 0001:0031DE82 66 0001:0031DE8A + 67 0001:0031DE92 68 0001:0031DE9A 70 0001:0031DE9E 71 0001:0031DEA3 + 73 0001:0031DEB9 74 0001:0031DEBF 79 0001:0031DEE0 80 0001:0031DF0A + 81 0001:0031DF0F 82 0001:0031DF25 83 0001:0031DF30 85 0001:0031DF44 + 86 0001:0031DF53 87 0001:0031DF5F 88 0001:0031DF63 90 0001:0031DF68 + 92 0001:0031DF74 93 0001:0031DF76 95 0001:0031DF7B 96 0001:0031DF8E + 97 0001:0031DF98 99 0001:0031DFA8 100 0001:0031DFBC 102 0001:0031DFDE + 103 0001:0031E003 105 0001:0031E02D 106 0001:0031E054 107 0001:0031E05C + 108 0001:0031E060 109 0001:0031E067 110 0001:0031E076 112 0001:0031E078 + 113 0001:0031E084 117 0001:0031E08D 118 0001:0031E0A0 119 0001:0031E0AA + 121 0001:0031E0BA 122 0001:0031E0DF 124 0001:0031E109 125 0001:0031E130 + 126 0001:0031E13C 127 0001:0031E144 131 0001:0031E14E 132 0001:0031E161 + 133 0001:0031E16B 135 0001:0031E17B 136 0001:0031E1A0 138 0001:0031E1CA + 139 0001:0031E1F1 140 0001:0031E1F9 143 0001:0031E1FB 144 0001:0031E203 + 146 0001:0031E238 150 0001:0031E264 151 0001:0031E281 153 0001:0031E285 + 154 0001:0031E28A 155 0001:0031E2B5 157 0001:0031E2BD 159 0001:0031E2C7 + 160 0001:0031E2CC 161 0001:0031E2F7 163 0001:0031E31F 167 0001:0031E394 + 170 0001:0031E3B0 171 0001:0031E3B7 172 0001:0031E3DD 173 0001:0031E3E1 + 175 0001:0031E409 176 0001:0031E415 178 0001:0031E457 184 0001:0031E498 + 187 0001:0031E4A2 189 0001:0031E4A7 190 0001:0031E4B5 192 0001:0031E4BE + 193 0001:0031E4C3 194 0001:0031E4D6 198 0001:0031E4E2 199 0001:0031E4EB + 200 0001:0031E4F4 202 0001:0031E500 204 0001:0031E506 205 0001:0031E50D + 207 0001:0031E523 209 0001:0031E526 216 0001:0031E55C 217 0001:0031E587 + 218 0001:0031E5AC 220 0001:0031E5C4 221 0001:0031E5D7 222 0001:0031E5EA + 223 0001:0031E606 224 0001:0031E619 225 0001:0031E62C 226 0001:0031E648 + 227 0001:0031E65B 228 0001:0031E665 229 0001:0031E683 232 0001:0031E6D7 + 233 0001:0031E6E6 235 0001:0031E71F 236 0001:0031E72E 239 0001:0031E767 + 242 0001:0031E773 243 0001:0031E7AE 249 0001:0031E84C 250 0001:0031E88A + 251 0001:0031E89D 252 0001:0031E8A8 253 0001:0031E8B7 256 0001:0031E8C5 + 257 0001:0031E8E0 258 0001:0031E8FB 259 0001:0031E916 260 0001:0031E920 + 261 0001:0031E92B 262 0001:0031E936 263 0001:0031E941 264 0001:0031E94B + 265 0001:0031E972 267 0001:0031E999 269 0001:0031E9B5 271 0001:0031E9FD + 273 0001:0031EAA0 273 0001:0031EAA7 + +Line numbers for fOptionsDays(Options\fOptionsDays.pas) segment .text + + 82 0001:0031F008 83 0001:0031F016 84 0001:0031F02D 85 0001:0031F031 + 88 0001:0031F03F 89 0001:0031F047 92 0001:0031F053 93 0001:0031F05D + 94 0001:0031F067 96 0001:0031F071 97 0001:0031F079 98 0001:0031F084 + 101 0001:0031F09F 103 0001:0031F0AF 107 0001:0031F0B8 108 0001:0031F0BF + 109 0001:0031F0C6 118 0001:0031F0C8 119 0001:0031F0E7 120 0001:0031F0F2 + 121 0001:0031F0FD 122 0001:0031F108 124 0001:0031F113 125 0001:0031F12E + 126 0001:0031F13A 127 0001:0031F155 128 0001:0031F161 129 0001:0031F16E + 131 0001:0031F17B 132 0001:0031F187 133 0001:0031F193 134 0001:0031F19F + 136 0001:0031F1AB 137 0001:0031F1B6 138 0001:0031F1C1 139 0001:0031F1CC + 141 0001:0031F1D7 142 0001:0031F207 148 0001:0031F20C 149 0001:0031F214 + 151 0001:0031F21A 153 0001:0031F227 154 0001:0031F240 155 0001:0031F24E + 157 0001:0031F257 158 0001:0031F264 159 0001:0031F269 160 0001:0031F27C + 161 0001:0031F287 162 0001:0031F28E 166 0001:0031F293 167 0001:0031F29F + 168 0001:0031F2A8 171 0001:0031F2AE 172 0001:0031F2B8 173 0001:0031F2C5 + 174 0001:0031F2CC 175 0001:0031F2D9 176 0001:0031F2E5 177 0001:0031F2EE + 178 0001:0031F2F4 180 0001:0031F2FF 181 0001:0031F30A 182 0001:0031F311 + 183 0001:0031F318 189 0001:0031F364 190 0001:0031F36C 192 0001:0031F372 + 194 0001:0031F37F 195 0001:0031F398 196 0001:0031F3A6 198 0001:0031F3AF + 199 0001:0031F3BC 200 0001:0031F3C1 201 0001:0031F3D4 202 0001:0031F3DF + 203 0001:0031F3E6 207 0001:0031F3EB 208 0001:0031F3F7 210 0001:0031F400 + 211 0001:0031F40D 212 0001:0031F418 213 0001:0031F41F 217 0001:0031F421 + 218 0001:0031F42B 219 0001:0031F438 220 0001:0031F43F 221 0001:0031F44C + 222 0001:0031F458 223 0001:0031F461 224 0001:0031F467 226 0001:0031F472 + 227 0001:0031F47D 228 0001:0031F484 229 0001:0031F48B 233 0001:0031F4D0 + 234 0001:0031F4E6 235 0001:0031F4F4 236 0001:0031F515 237 0001:0031F520 + 238 0001:0031F544 242 0001:0031F548 243 0001:0031F55E 244 0001:0031F56C + 245 0001:0031F58D 246 0001:0031F598 247 0001:0031F5BC 252 0001:0031F5C0 + 254 0001:0031F5C5 255 0001:0031F5D3 257 0001:0031F5D4 259 0001:0031F5E0 + 260 0001:0031F5E3 262 0001:0031F5E8 265 0001:0031F5EC 266 0001:0031F604 + 267 0001:0031F623 268 0001:0031F62E 269 0001:0031F64D 270 0001:0031F658 + 271 0001:0031F687 274 0001:0031F68C 275 0001:0031F68F 276 0001:0031F6A2 + 277 0001:0031F6AD 278 0001:0031F6C0 279 0001:0031F6CB 280 0001:0031F6D8 + 285 0001:0031F6DC 286 0001:0031F6F6 287 0001:0031F704 288 0001:0031F712 + 289 0001:0031F72E 290 0001:0031F74A 292 0001:0031F79C 295 0001:0031F82C + 296 0001:0031F846 299 0001:0031F8BC 303 0001:0031F948 304 0001:0031F972 + 309 0001:0031F974 310 0001:0031F991 311 0001:0031F99E 313 0001:0031F9A4 + 315 0001:0031F9BC 316 0001:0031F9C1 317 0001:0031F9EC 318 0001:0031FA04 + 321 0001:0031FA18 322 0001:0031FA5D 325 0001:0031FA90 326 0001:0031FAAD + 328 0001:0031FAB3 330 0001:0031FAC3 331 0001:0031FACF 333 0001:0031FADC + 335 0001:0031FB20 336 0001:0031FB46 339 0001:0031FB83 344 0001:0031FB98 + 345 0001:0031FBB5 346 0001:0031FBC2 348 0001:0031FBC8 350 0001:0031FBE0 + 351 0001:0031FBE5 352 0001:0031FC10 353 0001:0031FC28 356 0001:0031FC3C + 357 0001:0031FC81 360 0001:0031FCB4 361 0001:0031FCD1 363 0001:0031FCD7 + 365 0001:0031FCE7 366 0001:0031FCF3 368 0001:0031FD00 370 0001:0031FD44 + 371 0001:0031FD6A 374 0001:0031FDA7 377 0001:0031FDBC 378 0001:0031FDD3 + 379 0001:0031FDD9 381 0001:0031FDE9 382 0001:0031FDF5 383 0001:0031FE05 + 385 0001:0031FE10 386 0001:0031FE26 387 0001:0031FE4A 391 0001:0031FE5C + 392 0001:0031FE72 393 0001:0031FE93 394 0001:0031FEB7 397 0001:0031FEC0 + 398 0001:0031FED7 399 0001:0031FEDD 401 0001:0031FEED 402 0001:0031FEF9 + 403 0001:0031FF09 405 0001:0031FF14 406 0001:0031FF2A 407 0001:0031FF4E + 411 0001:0031FF60 412 0001:0031FF76 413 0001:0031FF97 414 0001:0031FFBB + 419 0001:0031FFC4 421 0001:0031FFC9 422 0001:0031FFD0 424 0001:0031FFDE + 429 0001:0031FFE0 431 0001:0031FFE5 432 0001:0031FFEC 434 0001:0031FFFA + 436 0001:0032002C 436 0001:00320033 + +Line numbers for fOptionsReminders(Options\fOptionsReminders.pas) segment .text + + 58 0001:003203A4 59 0001:003203B2 60 0001:003203BB 63 0001:003203C7 + 64 0001:003203DE 65 0001:003203E2 68 0001:003203F0 69 0001:003203F8 + 72 0001:00320404 73 0001:0032040E 74 0001:00320418 76 0001:00320422 + 77 0001:0032042A 78 0001:00320435 81 0001:00320450 84 0001:00320460 + 90 0001:00320468 91 0001:00320489 92 0001:00320498 93 0001:003204A7 + 94 0001:003204B5 95 0001:003204BD 96 0001:003204CF 97 0001:003204FD + 99 0001:00320517 95 0001:0032053D 100 0001:00320540 101 0001:0032054F + 102 0001:00320561 101 0001:00320587 104 0001:00320597 105 0001:0032059F + 107 0001:003205AF 108 0001:003205D9 112 0001:003205E0 113 0001:003205E4 + 115 0001:003205EA 117 0001:003205FE 119 0001:00320610 122 0001:0032064B + 125 0001:00320693 129 0001:003206A2 130 0001:003206AF 131 0001:003206BC + 136 0001:003206CB 137 0001:003206D8 138 0001:003206E5 141 0001:003206F2 + 143 0001:003206F8 145 0001:00320712 149 0001:00320718 150 0001:0032071D + 154 0001:00320720 155 0001:00320725 160 0001:00320728 161 0001:00320730 + 163 0001:00320739 166 0001:0032073D 168 0001:0032074A 169 0001:0032074D + 170 0001:0032075D 172 0001:00320768 164 0001:00320769 175 0001:00320779 + 176 0001:00320784 181 0001:0032078C 182 0001:00320794 184 0001:0032079D + 185 0001:003207AC 187 0001:003207B1 189 0001:003207BE 190 0001:003207C1 + 191 0001:003207D1 193 0001:003207DC 185 0001:003207DD 196 0001:003207E2 + 197 0001:003207ED 202 0001:003207F4 203 0001:003207F8 204 0001:00320807 + 205 0001:00320821 206 0001:00320830 207 0001:00320837 212 0001:0032083C + 213 0001:00320840 214 0001:0032084F 215 0001:00320869 216 0001:00320878 + 217 0001:00320890 218 0001:00320897 221 0001:0032089C 222 0001:003208A1 + 223 0001:003208B7 222 0001:003208C5 224 0001:003208C8 225 0001:003208CD + 230 0001:003208D4 233 0001:003208DD 234 0001:003208E7 235 0001:003208F4 + 236 0001:003208F9 237 0001:003208FD 238 0001:00320903 240 0001:0032090E + 241 0001:00320915 246 0001:0032091C 247 0001:0032093D 249 0001:00320951 + 251 0001:0032095E 252 0001:0032098C 254 0001:0032099A 247 0001:0032099B + 255 0001:003209BD 262 0001:003209C4 263 0001:003209E2 264 0001:003209F1 + 265 0001:003209FF 266 0001:00320A08 268 0001:00320A1F 269 0001:00320A67 + 270 0001:00320A72 266 0001:00320A73 271 0001:00320A76 273 0001:00320A8B + 275 0001:00320AC5 281 0001:00320AD8 282 0001:00320AFA 283 0001:00320B09 + 284 0001:00320B17 285 0001:00320B34 284 0001:00320B58 286 0001:00320B5B + 287 0001:00320B6F 288 0001:00320B80 290 0001:00320B8F 291 0001:00320BA2 + 292 0001:00320BB4 291 0001:00320BDA 294 0001:00320BEA 296 0001:00320BFA + 297 0001:00320C24 299 0001:00320C5C 299 0001:00320C63 + +Line numbers for fOptionsSurrogate(Options\fOptionsSurrogate.pas) segment .text + + 57 0001:00320F9C 58 0001:00320FC7 59 0001:00320FDE 60 0001:00320FEF + 61 0001:00321000 64 0001:0032100E 65 0001:00321016 68 0001:00321022 + 69 0001:0032102C 70 0001:00321036 72 0001:00321040 75 0001:00321048 + 76 0001:00321072 77 0001:00321094 78 0001:003210B7 82 0001:003210DA + 83 0001:003210F1 84 0001:00321107 85 0001:0032111E 87 0001:00321135 + 88 0001:00321140 89 0001:00321147 90 0001:00321170 91 0001:0032118B + 92 0001:003211B8 95 0001:003211F2 96 0001:003211FA 97 0001:00321204 + 99 0001:00321238 102 0001:00321250 103 0001:00321253 104 0001:00321266 + 105 0001:0032127C 106 0001:00321283 112 0001:00321288 113 0001:00321296 + 114 0001:00321298 117 0001:003212A3 118 0001:003212B2 119 0001:003212C1 + 121 0001:003212D0 123 0001:003212E9 124 0001:003212F6 125 0001:00321303 + 129 0001:00321312 130 0001:00321320 131 0001:0032132E 132 0001:00321335 + 134 0001:00321360 135 0001:00321365 136 0001:00321378 139 0001:00321384 + 143 0001:00321388 115 0001:0032138A 145 0001:00321392 149 0001:003213DC + 150 0001:003213E5 151 0001:003213FC 157 0001:00321404 158 0001:00321420 + 159 0001:00321436 161 0001:0032143C 162 0001:00321441 163 0001:00321452 + 167 0001:0032145F 170 0001:00321469 171 0001:00321480 172 0001:00321496 + 173 0001:003214AD 175 0001:003214C4 176 0001:003214CC 177 0001:003214F7 + 178 0001:00321526 179 0001:00321555 181 0001:0032158C 184 0001:003215B0 + 185 0001:003215B3 186 0001:003215C1 189 0001:003215CE 190 0001:003215E1 + 191 0001:003215EE 192 0001:003215FB 194 0001:00321608 195 0001:0032160F + 198 0001:00321614 201 0001:00321634 202 0001:0032164E 203 0001:00321668 + 204 0001:00321676 207 0001:00321688 208 0001:00321698 209 0001:003216A2 + 211 0001:003216AC 212 0001:003216BC 214 0001:003216F1 215 0001:00321701 + 216 0001:00321711 218 0001:00321746 220 0001:00321778 223 0001:00321814 + 224 0001:0032182D 225 0001:00321833 227 0001:0032184D 228 0001:00321860 + 229 0001:0032186D 230 0001:00321877 234 0001:00321882 235 0001:00321895 + 237 0001:003218BC 238 0001:003218E5 242 0001:003218EC 243 0001:003218F2 + 244 0001:00321900 245 0001:0032190C 247 0001:00321944 247 0001:0032194B + +Line numbers for fOptionsPatientSelection(Options\fOptionsPatientSelection.pas) segment .text + + 111 0001:00322018 112 0001:00322026 113 0001:0032203D 114 0001:00322041 + 117 0001:0032204F 118 0001:00322059 119 0001:00322061 122 0001:0032206D + 123 0001:00322077 124 0001:00322081 126 0001:0032208B 127 0001:00322093 + 128 0001:0032209E 131 0001:003220B9 133 0001:003220C9 136 0001:003220D4 + 137 0001:003220D7 138 0001:003220DE 139 0001:003220E5 140 0001:003220F2 + 141 0001:003220FF 142 0001:0032210C 143 0001:00322119 144 0001:00322126 + 145 0001:00322133 146 0001:00322140 147 0001:0032214D 148 0001:0032215E + 149 0001:0032216F 150 0001:00322180 158 0001:00322184 159 0001:003221A6 + 160 0001:003221B1 161 0001:003221B4 162 0001:003221B7 163 0001:003221C4 + 164 0001:003221D1 165 0001:003221DA 166 0001:003221E3 167 0001:003221EE + 169 0001:003221F9 170 0001:00322217 171 0001:00322228 172 0001:0032223C + 173 0001:00322265 174 0001:00322276 175 0001:0032228A 176 0001:003222B3 + 177 0001:003222C4 178 0001:003222D8 179 0001:00322301 180 0001:00322312 + 181 0001:00322326 182 0001:0032234F 183 0001:00322360 184 0001:00322374 + 185 0001:0032239D 186 0001:003223AE 187 0001:003223C2 188 0001:003223EB + 189 0001:003223FC 190 0001:00322410 192 0001:00322439 193 0001:0032243F + 194 0001:00322493 195 0001:0032249E 196 0001:003224AC 197 0001:003224BA + 198 0001:003224C8 199 0001:003224D6 201 0001:003224E2 203 0001:003224EB + 204 0001:0032253A 207 0001:0032254F 208 0001:0032255E 210 0001:00322570 + 214 0001:00322582 215 0001:00322591 217 0001:003225A3 219 0001:003225B5 + 220 0001:003225C7 222 0001:003225D9 225 0001:003225E9 226 0001:003225FB + 227 0001:0032260C 228 0001:0032261D 229 0001:0032262E 231 0001:0032263F + 232 0001:0032266F 238 0001:00322678 239 0001:00322680 241 0001:00322686 + 243 0001:00322693 244 0001:003226AC 245 0001:003226BA 247 0001:003226C3 + 248 0001:003226D0 249 0001:003226D5 250 0001:003226E8 251 0001:003226F3 + 252 0001:003226FA 256 0001:003226FC 257 0001:00322708 258 0001:00322711 + 261 0001:00322717 262 0001:00322721 263 0001:0032272E 264 0001:00322735 + 265 0001:00322742 266 0001:0032274E 267 0001:00322757 268 0001:0032275D + 270 0001:00322768 271 0001:0032276F 277 0001:003227B8 278 0001:003227C0 + 280 0001:003227C6 282 0001:003227CF 283 0001:003227E8 284 0001:003227F6 + 286 0001:003227FF 287 0001:0032280C 288 0001:00322811 289 0001:00322824 + 290 0001:0032282F 291 0001:00322836 295 0001:00322838 296 0001:00322844 + 299 0001:0032284A 300 0001:00322854 301 0001:00322861 302 0001:00322868 + 303 0001:00322875 304 0001:00322881 305 0001:00322887 307 0001:00322892 + 308 0001:00322899 315 0001:003228E0 316 0001:003228E9 317 0001:003228F2 + 318 0001:003228FB 319 0001:00322908 320 0001:00322916 321 0001:00322925 + 322 0001:00322934 323 0001:00322943 324 0001:00322952 325 0001:0032295D + 326 0001:00322981 327 0001:003229B1 328 0001:003229B8 329 0001:003229BF + 330 0001:003229C6 331 0001:003229CD 332 0001:003229D4 334 0001:003229DB + 336 0001:003229E0 337 0001:003229F6 338 0001:00322A0C 339 0001:00322A22 + 340 0001:00322A38 341 0001:00322A3A 342 0001:00322A47 343 0001:00322A54 + 344 0001:00322A63 345 0001:00322A6E 346 0001:00322A82 347 0001:00322A87 + 350 0001:00322A90 351 0001:00322AA7 352 0001:00322AAD 354 0001:00322ABD + 355 0001:00322AC9 356 0001:00322AD9 358 0001:00322AE4 359 0001:00322B17 + 362 0001:00322B28 363 0001:00322B3F 364 0001:00322B45 366 0001:00322B55 + 367 0001:00322B61 368 0001:00322B71 370 0001:00322B7C 371 0001:00322BAF + 375 0001:00322BC0 376 0001:00322BD6 377 0001:00322BF7 378 0001:00322C1B + 382 0001:00322C24 383 0001:00322C3A 384 0001:00322C5B 385 0001:00322C7F + 388 0001:00322C88 389 0001:00322C8B 390 0001:00322C9A 391 0001:00322CA5 + 392 0001:00322CAE 395 0001:00322CB0 396 0001:00322CB3 398 0001:00322CC2 + 399 0001:00322CD4 400 0001:00322CE4 401 0001:00322CF1 405 0001:00322D00 + 406 0001:00322D12 407 0001:00322D22 408 0001:00322D2F 410 0001:00322D3C + 412 0001:00322D4B 413 0001:00322D58 414 0001:00322D65 417 0001:00322D74 + 418 0001:00322D81 422 0001:00322D84 423 0001:00322D8D 424 0001:00322DA4 + 428 0001:00322DAC 429 0001:00322DB5 430 0001:00322DCC 434 0001:00322DD4 + 435 0001:00322DDD 436 0001:00322DF4 440 0001:00322DFC 441 0001:00322E05 + 442 0001:00322E1C 446 0001:00322E24 447 0001:00322E2D 448 0001:00322E44 + 452 0001:00322E4C 453 0001:00322E55 454 0001:00322E6C 458 0001:00322E74 + 459 0001:00322E7D 460 0001:00322E94 464 0001:00322E9C 465 0001:00322EA5 + 466 0001:00322EBC 470 0001:00322EC4 471 0001:00322ED7 476 0001:00322ED8 + 478 0001:00322EDD 479 0001:00322EE4 481 0001:00322EF2 486 0001:00322EF4 + 488 0001:00322EF9 489 0001:00322F00 490 0001:00322F07 492 0001:00322F15 + 496 0001:00322F18 497 0001:00322F1E 498 0001:00322F31 499 0001:00322F38 + 501 0001:00322F70 501 0001:00322F77 + +Line numbers for fOptionsNewList(Options\fOptionsNewList.pas) segment .text + + 41 0001:003231C8 42 0001:003231CF 43 0001:003231E6 44 0001:003231ED + 47 0001:003231FB 48 0001:00323205 49 0001:0032320D 50 0001:00323218 + 53 0001:00323235 55 0001:00323245 60 0001:0032324C 61 0001:0032326F + 62 0001:00323271 64 0001:00323277 65 0001:003232A5 66 0001:003232B4 + 67 0001:003232DB 70 0001:003232E7 71 0001:0032330A 72 0001:00323326 + 74 0001:00323356 76 0001:00323358 79 0001:00323365 80 0001:0032336E + 83 0001:003233C7 88 0001:0032340C 90 0001:00323428 91 0001:0032342B + 93 0001:00323430 96 0001:00323434 97 0001:0032344A 98 0001:0032348E + 100 0001:003234C4 100 0001:003234CB + +Line numbers for fOptionsLists(Options\fOptionsLists.pas) segment .text + + 84 0001:00323A38 85 0001:00323A46 86 0001:00323A5D 87 0001:00323A61 + 90 0001:00323A6F 91 0001:00323A77 94 0001:00323A83 95 0001:00323A8D + 96 0001:00323A97 98 0001:00323AA1 99 0001:00323AA9 100 0001:00323AB4 + 103 0001:00323ACF 105 0001:00323ADF 108 0001:00323AE8 109 0001:00323AEB + 110 0001:00323AFB 111 0001:00323B08 112 0001:00323B11 113 0001:00323B19 + 119 0001:00323B1C 120 0001:00323B36 121 0001:00323B3E 122 0001:00323B4E + 123 0001:00323B6D 125 0001:00323B71 127 0001:00323B77 128 0001:00323B86 + 130 0001:00323B92 131 0001:00323B9B 132 0001:00323BAB 134 0001:00323BD6 + 137 0001:00323BE0 138 0001:00323BF7 140 0001:00323BFD 142 0001:00323C31 + 143 0001:00323C3A 144 0001:00323C43 145 0001:00323C4C 148 0001:00323C61 + 149 0001:00323C6A 150 0001:00323C73 151 0001:00323C84 154 0001:00323C99 + 155 0001:00323CA2 156 0001:00323CAB 157 0001:00323CB4 160 0001:00323CC9 + 161 0001:00323CD2 162 0001:00323CDB 163 0001:00323CE4 166 0001:00323CF6 + 167 0001:00323CFF 168 0001:00323D08 169 0001:00323D19 172 0001:00323D2B + 173 0001:00323D34 174 0001:00323D3D 175 0001:00323D4E 178 0001:00323D5E + 179 0001:00323D7A 180 0001:00323D84 182 0001:00323D8D 183 0001:00323D9D + 184 0001:00323DC3 191 0001:00323E34 192 0001:00323E64 193 0001:00323E77 + 195 0001:00323E7B 196 0001:00323E92 198 0001:00323EC4 199 0001:00323EC8 + 200 0001:00323ECA 194 0001:00323ECB 201 0001:00323ECE 202 0001:00323ED4 + 203 0001:00323F16 206 0001:00323F20 207 0001:00323F3E 209 0001:00323F4D + 212 0001:00323FA9 214 0001:00323FB2 215 0001:00323FD7 216 0001:00323FE7 + 217 0001:00324004 219 0001:0032400A 221 0001:00324027 222 0001:00324034 + 223 0001:00324041 224 0001:0032404E 225 0001:0032405B 226 0001:00324068 + 228 0001:0032406D 229 0001:003240B7 231 0001:003240C4 232 0001:003240D7 + 234 0001:00324105 235 0001:00324112 236 0001:0032411F 238 0001:00324121 + 239 0001:0032413F 240 0001:0032415F 241 0001:0032418E 250 0001:003241E0 + 251 0001:00324227 252 0001:0032423A 253 0001:0032426A 256 0001:0032429E + 257 0001:003242A9 258 0001:003242C7 259 0001:003242E3 263 0001:00324315 + 267 0001:00324336 268 0001:00324341 269 0001:0032434A 270 0001:00324364 + 271 0001:0032437E 272 0001:0032438D 273 0001:003243D6 274 0001:003243ED + 273 0001:0032440E 275 0001:00324411 279 0001:0032441B 283 0001:0032443B + 287 0001:00324459 290 0001:00324475 291 0001:00324488 293 0001:003244B6 + 294 0001:003244C3 295 0001:003244D0 297 0001:003244D2 298 0001:00324508 + 299 0001:00324589 305 0001:003245AC 306 0001:003245C9 307 0001:003245CF + 309 0001:00324609 311 0001:00324623 312 0001:00324630 314 0001:00324636 + 315 0001:00324643 317 0001:00324649 318 0001:00324676 319 0001:00324685 + 320 0001:0032468E 322 0001:0032469B 324 0001:003246AB 325 0001:003246B1 + 326 0001:003246BF 327 0001:003246D1 329 0001:003246EC 330 0001:003246F9 + 331 0001:00324706 335 0001:00324731 340 0001:003247C8 341 0001:003247E1 + 342 0001:00324819 343 0001:0032482B 344 0001:0032485A 347 0001:00324860 + 348 0001:00324863 349 0001:00324873 350 0001:00324891 351 0001:003248B1 + 352 0001:003248BE 357 0001:003248C0 358 0001:003248DD 360 0001:003248E3 + 361 0001:003248F2 362 0001:0032491C 364 0001:00324928 366 0001:00324931 + 367 0001:0032494D 366 0001:00324973 368 0001:00324976 369 0001:00324983 + 370 0001:0032498C 371 0001:0032499A 372 0001:003249A7 374 0001:003249B0 + 375 0001:003249DF 380 0001:003249E8 381 0001:003249ED 382 0001:00324A00 + 383 0001:00324A06 384 0001:00324A1A 385 0001:00324A27 383 0001:00324A36 + 386 0001:00324A3B 387 0001:00324A59 388 0001:00324A79 389 0001:00324A86 + 392 0001:00324A8C 393 0001:00324AA5 394 0001:00324AB6 396 0001:00324AE4 + 397 0001:00324AF1 398 0001:00324AFE 400 0001:00324B00 401 0001:00324B1E + 402 0001:00324B60 407 0001:00324B68 408 0001:00324B84 409 0001:00324B97 + 411 0001:00324B9D 412 0001:00324BAC 413 0001:00324BD6 415 0001:00324BE2 + 416 0001:00324BEB 417 0001:00324C00 419 0001:00324C0E 420 0001:00324C30 + 421 0001:00324C3F 416 0001:00324C40 422 0001:00324C45 423 0001:00324C4E + 424 0001:00324C57 425 0001:00324C86 428 0001:00324C90 429 0001:00324CA9 + 430 0001:00324CBA 432 0001:00324CE8 433 0001:00324D1C 434 0001:00324D74 + 437 0001:00324D7C 438 0001:00324D80 439 0001:00324D86 440 0001:00324D95 + 443 0001:00324DA2 444 0001:00324DAE 446 0001:00324DB7 450 0001:00324E04 + 451 0001:00324E0B 453 0001:00324E11 455 0001:00324E45 456 0001:00324E51 + 459 0001:00324E66 462 0001:00324E74 463 0001:00324E80 466 0001:00324E95 + 467 0001:00324EA1 470 0001:00324EB6 473 0001:00324EC4 477 0001:00324ED0 + 480 0001:00324EF0 481 0001:00324F0B 483 0001:00324F1A 486 0001:00324F76 + 488 0001:00324FA1 491 0001:00324FF4 492 0001:00325014 493 0001:00325023 + 494 0001:00325046 496 0001:0032509C 500 0001:003250A4 501 0001:003250AE + 506 0001:00325107 507 0001:0032510E 511 0001:00325118 512 0001:00325122 + 517 0001:0032517B 518 0001:00325182 524 0001:0032518C 525 0001:00325190 + 527 0001:0032519C 529 0001:003251A7 531 0001:003251B1 533 0001:003251BA + 534 0001:003251CA 536 0001:003251DA 538 0001:003251E3 539 0001:003251EC + 543 0001:00325254 544 0001:00325276 546 0001:0032528C 548 0001:00325295 + 549 0001:003252BC 551 0001:003252CF 552 0001:003252DD 554 0001:003252E6 + 556 0001:003252F9 557 0001:00325307 561 0001:00325330 563 0001:00325368 + 563 0001:0032536F + +Line numbers for fOptionsTeams(Options\fOptionsTeams.pas) segment .text + + 67 0001:00325734 68 0001:0032573E 69 0001:00325755 70 0001:0032575C + 73 0001:0032576A 74 0001:00325772 77 0001:0032577E 78 0001:00325788 + 79 0001:00325792 81 0001:0032579C 82 0001:003257A4 85 0001:003257BC + 87 0001:003257CC 90 0001:003257D4 91 0001:003257D7 92 0001:003257E7 + 93 0001:003257F8 94 0001:003257FF 100 0001:00325804 101 0001:00325821 + 102 0001:00325832 103 0001:00325841 104 0001:00325849 105 0001:0032585C + 106 0001:00325899 104 0001:003258BB 107 0001:003258C0 108 0001:003258DD + 109 0001:003258FE 110 0001:00325928 115 0001:00325930 116 0001:0032595B + 117 0001:0032596D 118 0001:003259A8 116 0001:003259C8 119 0001:003259ED + 124 0001:003259F4 125 0001:00325A1B 126 0001:00325A2F 127 0001:00325A65 + 125 0001:00325A74 128 0001:00325A9B 133 0001:00325AA4 134 0001:00325AD1 + 135 0001:00325AD5 136 0001:00325AE7 138 0001:00325B14 139 0001:00325B18 + 140 0001:00325B1A 135 0001:00325B1B 141 0001:00325B4B 146 0001:00325B54 + 147 0001:00325B81 149 0001:00325B85 150 0001:00325B97 152 0001:00325BC4 + 153 0001:00325BC8 154 0001:00325BCA 148 0001:00325BCB 155 0001:00325BFB + 158 0001:00325C04 159 0001:00325C07 160 0001:00325C17 161 0001:00325C29 + 163 0001:00325C3B 164 0001:00325C4B 165 0001:00325C5C 166 0001:00325C65 + 172 0001:00325C68 173 0001:00325C8B 174 0001:00325C9B 175 0001:00325CAB + 176 0001:00325CC8 177 0001:00325CD7 178 0001:00325CDC 180 0001:00325CE2 + 181 0001:00325D02 183 0001:00325D14 184 0001:00325D17 185 0001:00325D49 + 187 0001:00325D61 188 0001:00325D6C 189 0001:00325D7C 190 0001:00325D87 + 194 0001:00325D99 195 0001:00325DA4 197 0001:00325DAF 198 0001:00325DD5 + 201 0001:00325DE7 202 0001:00325DF7 203 0001:00325E02 205 0001:00325E12 + 180 0001:00325E15 206 0001:00325E1E 209 0001:00325EB6 211 0001:00325EC4 + 212 0001:00325ED8 213 0001:00325EED 214 0001:00325F01 217 0001:00325F16 + 218 0001:00325F40 222 0001:00325F9C 223 0001:00325FA3 227 0001:00325FA4 + 228 0001:00325FAB 231 0001:00325FAC 232 0001:00325FC8 233 0001:00325FCE + 237 0001:0032602C 238 0001:00326038 239 0001:00326050 240 0001:00326059 + 242 0001:00326082 245 0001:003260E0 246 0001:003260FB 247 0001:00326141 + 251 0001:00326148 252 0001:00326151 255 0001:0032618A 259 0001:00326190 + 260 0001:00326196 261 0001:0032619F 263 0001:003261AD 264 0001:003261B4 + 267 0001:003261BF 269 0001:003261C6 272 0001:003261CC 273 0001:003261E8 + 274 0001:003261F1 277 0001:003261FD 278 0001:00326203 280 0001:00326212 + 284 0001:00326270 285 0001:0032627C 286 0001:003262A8 287 0001:003262BC + 288 0001:003262C6 289 0001:003262CF 290 0001:003262E6 294 0001:00326303 + 295 0001:0032630D 298 0001:00326338 300 0001:003263B4 300 0001:003263BB + +Line numbers for fOptionsCombinations(Options\fOptionsCombinations.pas) segment .text + + 76 0001:003267F0 77 0001:003267FE 78 0001:00326815 79 0001:00326819 + 82 0001:00326827 83 0001:0032682F 86 0001:0032683B 87 0001:00326845 + 88 0001:0032684F 90 0001:00326859 91 0001:00326861 92 0001:0032686C + 95 0001:00326887 97 0001:00326897 100 0001:003268A0 101 0001:003268B7 + 103 0001:003268BD 105 0001:003268ED 106 0001:003268F6 107 0001:003268FF + 108 0001:00326910 109 0001:00326921 112 0001:00326936 113 0001:0032693F + 114 0001:00326948 115 0001:00326951 118 0001:00326966 119 0001:0032696F + 120 0001:00326978 121 0001:00326981 124 0001:00326993 125 0001:0032699C + 126 0001:003269A5 127 0001:003269B6 130 0001:003269C8 131 0001:003269D1 + 132 0001:003269DA 133 0001:003269EB 136 0001:003269FB 137 0001:00326A17 + 138 0001:00326A21 139 0001:00326A2A 141 0001:00326A54 145 0001:00326AB4 + 146 0001:00326ABB 148 0001:00326AC1 150 0001:00326AF1 153 0001:00326AFF + 154 0001:00326B0B 157 0001:00326B20 158 0001:00326B2C 161 0001:00326B41 + 164 0001:00326B4F 168 0001:00326B5B 171 0001:00326B7C 172 0001:00326B7F + 173 0001:00326B8C 174 0001:00326B95 175 0001:00326B9C 182 0001:00326BA0 + 183 0001:00326BBE 184 0001:00326BD8 185 0001:00326BFD 186 0001:00326C19 + 187 0001:00326C45 188 0001:00326C75 189 0001:00326C86 192 0001:00326C99 + 193 0001:00326CA3 195 0001:00326CAE 198 0001:00326CBC 199 0001:00326CC7 + 200 0001:00326CD2 202 0001:00326CDD 203 0001:00326CEC 204 0001:00326CF9 + 205 0001:00326D22 209 0001:00326D50 210 0001:00326D59 211 0001:00326D68 + 213 0001:00326D78 214 0001:00326D7F 215 0001:00326D8C 216 0001:00326D9E + 220 0001:00326DA4 221 0001:00326DC6 222 0001:00326DDB 224 0001:00326DE4 + 225 0001:00326DED 227 0001:00326E05 232 0001:00326E40 233 0001:00326E49 + 235 0001:00326E5E 238 0001:00326EB9 243 0001:00326EC4 244 0001:00326EC9 + 245 0001:00326ECF 246 0001:00326EE2 247 0001:00326EFD 245 0001:00326F10 + 248 0001:00326F15 249 0001:00326F22 250 0001:00326F29 255 0001:00326F30 + 256 0001:00326F4B 257 0001:00326F59 260 0001:00326F6B 261 0001:00326F85 + 262 0001:00326FAA 263 0001:00326FC6 264 0001:00326FF6 266 0001:00327013 + 267 0001:00327042 274 0001:00327054 275 0001:00327088 276 0001:0032708C + 277 0001:00327095 278 0001:003270AD 280 0001:003270D7 281 0001:003270F6 + 283 0001:00327103 285 0001:00327107 277 0001:00327108 286 0001:00327138 + 290 0001:00327140 291 0001:00327143 292 0001:00327157 299 0001:0032715C + 300 0001:0032717A 302 0001:00327187 303 0001:00327196 304 0001:0032719F + 306 0001:003271B7 307 0001:003271D6 308 0001:003271F9 304 0001:003271FA + 309 0001:003271FD 310 0001:00327205 312 0001:0032722A 316 0001:00327240 + 317 0001:0032724D 321 0001:00327250 322 0001:0032725D 326 0001:00327260 + 327 0001:00327266 328 0001:00327284 336 0001:0032728C 337 0001:003272B3 + 339 0001:003272CA 340 0001:003272EA 341 0001:0032730A 342 0001:0032732A + 345 0001:00327340 346 0001:0032734A 348 0001:00327355 351 0001:00327363 + 352 0001:0032736E 353 0001:00327379 355 0001:00327384 356 0001:00327393 + 337 0001:00327394 357 0001:003273CC 360 0001:003273EC 361 0001:003273EF + 362 0001:003273FD 364 0001:00327430 364 0001:00327437 + +Line numbers for fOptionsOther(Options\fOptionsOther.pas) segment .text + + 78 0001:00327888 79 0001:00327896 80 0001:003278AD 81 0001:003278B1 + 84 0001:003278BF 85 0001:003278C7 88 0001:003278D3 89 0001:003278DD + 90 0001:003278E7 92 0001:003278F1 93 0001:003278F9 94 0001:00327904 + 97 0001:0032791F 99 0001:0032792F 107 0001:00327938 108 0001:00327956 + 109 0001:0032796E 110 0001:00327990 111 0001:003279B1 112 0001:003279B9 + 113 0001:003279CC 114 0001:003279EB 115 0001:003279F9 116 0001:00327A0D + 117 0001:00327A21 118 0001:00327A2A 119 0001:00327A38 120 0001:00327A49 + 121 0001:00327A5A 122 0001:00327A81 123 0001:00327A92 124 0001:00327AB9 + 125 0001:00327ACC 126 0001:00327AD5 127 0001:00327ADD 128 0001:00327AE6 + 129 0001:00327AEE 130 0001:00327B01 131 0001:00327B0F 132 0001:00327B1B + 133 0001:00327B37 134 0001:00327B45 135 0001:00327B51 136 0001:00327B8F + 142 0001:00327BC0 143 0001:00327BE1 144 0001:00327BE9 145 0001:00327C0D + 146 0001:00327C3A 147 0001:00327C47 148 0001:00327C59 149 0001:00327C65 + 150 0001:00327C72 151 0001:00327C84 152 0001:00327C90 153 0001:00327C9D + 154 0001:00327CAA 155 0001:00327CB2 157 0001:00327CE6 159 0001:00327D08 + 160 0001:00327D12 161 0001:00327D29 162 0001:00327D37 164 0001:00327D3C + 165 0001:00327D70 167 0001:00327D78 168 0001:00327DA0 169 0001:00327DA7 + 170 0001:00327DD0 171 0001:00327DDA 172 0001:00327E35 176 0001:00327EB4 + 177 0001:00327EC2 178 0001:00327ED0 181 0001:00327ED4 182 0001:00327EDA + 184 0001:00327EF6 185 0001:00327F00 186 0001:00327F17 189 0001:00327F25 + 192 0001:00327F5C 193 0001:00327F62 194 0001:00327F8E 196 0001:00327FB0 + 197 0001:00327FBA 198 0001:00327FD1 201 0001:00327FDF 204 0001:00328018 + 205 0001:0032801E 207 0001:0032803A 208 0001:00328044 209 0001:0032805B + 212 0001:00328069 215 0001:003280A0 216 0001:003280BB 218 0001:003280C1 + 220 0001:003280D5 221 0001:003280EE 222 0001:003280FA 223 0001:00328110 + 224 0001:0032811C 226 0001:0032813A 227 0001:00328151 228 0001:00328156 + 231 0001:003281B3 234 0001:003281FC 235 0001:00328217 237 0001:0032821D + 239 0001:00328231 240 0001:0032824A 241 0001:00328256 242 0001:0032826C + 243 0001:00328278 245 0001:00328296 246 0001:003282AD 247 0001:003282B2 + 250 0001:0032830F 253 0001:00328358 254 0001:0032836C 255 0001:00328372 + 256 0001:00328382 257 0001:003283AB 260 0001:003283BC 261 0001:003283D0 + 262 0001:003283D6 263 0001:003283E6 264 0001:0032840F 267 0001:00328420 + 268 0001:00328438 269 0001:00328454 270 0001:00328492 272 0001:003284C8 + 272 0001:003284CF + +Line numbers for fOptionsNotes(Options\fOptionsNotes.pas) segment .text + + 54 0001:003287FC 55 0001:0032880A 56 0001:00328821 57 0001:00328825 + 60 0001:00328833 61 0001:0032883B 64 0001:00328847 65 0001:00328851 + 66 0001:0032885B 68 0001:00328865 69 0001:0032886D 70 0001:00328878 + 73 0001:00328893 75 0001:003288A3 84 0001:003288AC 85 0001:003288CB + 86 0001:003288D3 87 0001:003288F3 88 0001:00328912 89 0001:00328926 + 90 0001:0032892F 91 0001:0032893C 93 0001:00328945 94 0001:0032894D + 95 0001:00328972 96 0001:00328985 97 0001:0032899B 98 0001:003289A9 + 99 0001:003289BA 100 0001:003289C6 101 0001:003289DB 102 0001:00328A1C + 109 0001:00328A38 110 0001:00328A51 111 0001:00328A59 112 0001:00328A66 + 113 0001:00328A73 114 0001:00328A8C 115 0001:00328AA9 116 0001:00328AB6 + 117 0001:00328AC8 118 0001:00328AD4 119 0001:00328AE1 120 0001:00328AF3 + 121 0001:00328AFF 122 0001:00328B0C 123 0001:00328B14 124 0001:00328B1A + 125 0001:00328B42 126 0001:00328B51 127 0001:00328B57 128 0001:00328B71 + 129 0001:00328B7F 130 0001:00328B84 131 0001:00328BAB 136 0001:00328BD8 + 137 0001:00328BF5 138 0001:00328C02 140 0001:00328C08 142 0001:00328C20 + 143 0001:00328C25 144 0001:00328C50 145 0001:00328C68 148 0001:00328C7C + 149 0001:00328CC1 154 0001:00328CF4 156 0001:00328CF9 157 0001:00328D07 + 159 0001:00328D08 161 0001:00328D14 162 0001:00328D17 164 0001:00328D1C + 167 0001:00328D20 168 0001:00328D3D 170 0001:00328D43 172 0001:00328D53 + 173 0001:00328D5F 175 0001:00328D6C 177 0001:00328DB0 178 0001:00328DD6 + 181 0001:00328E13 185 0001:00328E28 186 0001:00328E3E 187 0001:00328E4C + 188 0001:00328E8A 192 0001:00328E90 193 0001:00328E99 194 0001:00328EB0 + 197 0001:00328EB8 198 0001:00328ECE 199 0001:00328ED4 201 0001:00328EEE + 202 0001:00328EF7 204 0001:00328F2F 206 0001:00328F64 206 0001:00328F6B + +Line numbers for fOptionsTitles(Options\fOptionsTitles.pas) segment .text + + 73 0001:003293E0 74 0001:003293EE 75 0001:00329405 76 0001:00329409 + 79 0001:00329417 80 0001:0032941F 83 0001:0032942B 84 0001:00329435 + 85 0001:0032943F 87 0001:00329449 88 0001:00329451 89 0001:0032945C + 92 0001:00329477 94 0001:00329487 99 0001:00329490 100 0001:003294AF + 101 0001:003294BC 103 0001:003294C5 104 0001:003294D7 105 0001:0032950C + 106 0001:00329522 108 0001:00329554 109 0001:0032955D 110 0001:0032956D + 111 0001:0032956F 105 0001:00329570 113 0001:00329575 114 0001:003295A2 + 117 0001:003295E4 118 0001:003295E7 119 0001:003295F6 120 0001:003295FF + 121 0001:00329604 122 0001:00329609 128 0001:0032960C 129 0001:00329628 + 131 0001:00329637 134 0001:00329694 136 0001:0032969D 137 0001:003296AA + 138 0001:003296B7 139 0001:003296C5 141 0001:003296CB 142 0001:003296E4 + 143 0001:003296F2 144 0001:00329700 145 0001:00329712 146 0001:00329724 + 147 0001:00329731 149 0001:0032973E 150 0001:00329762 154 0001:00329774 + 155 0001:00329784 158 0001:0032978F 159 0001:00329798 160 0001:003297A5 + 161 0001:003297B6 162 0001:003297BD 163 0001:003297E6 167 0001:0032986C + 168 0001:00329876 170 0001:0032987C 171 0001:00329899 173 0001:003298B7 + 178 0001:003298C0 179 0001:003298D9 180 0001:00329912 182 0001:00329916 + 183 0001:00329933 184 0001:00329940 185 0001:0032994C 186 0001:0032995B + 187 0001:0032996B 189 0001:0032999B 192 0001:003299A4 193 0001:003299BD + 194 0001:003299C3 196 0001:003299D4 198 0001:003299F1 199 0001:00329A15 + 200 0001:00329A25 204 0001:00329A37 205 0001:00329A47 206 0001:00329A52 + 208 0001:00329A62 212 0001:00329A71 213 0001:00329A81 214 0001:00329A8C + 216 0001:00329A99 217 0001:00329ACB 220 0001:00329B24 221 0001:00329B3B + 222 0001:00329B68 223 0001:00329B80 224 0001:00329B8D 225 0001:00329B9A + 226 0001:00329BBE 229 0001:00329BC4 230 0001:00329BC8 232 0001:00329BCE + 234 0001:00329BDF 235 0001:00329C03 237 0001:00329C11 238 0001:00329C1D + 241 0001:00329C29 244 0001:00329C32 249 0001:00329C68 250 0001:00329C6C + 251 0001:00329C7B 252 0001:00329C82 253 0001:00329C91 254 0001:00329C98 + 256 0001:00329CAC 257 0001:00329CB9 260 0001:00329CC8 261 0001:00329CD1 + 262 0001:00329CDE 269 0001:00329CE4 270 0001:00329D14 271 0001:00329D27 + 273 0001:00329D2B 274 0001:00329D42 276 0001:00329D74 277 0001:00329D78 + 278 0001:00329D7A 272 0001:00329D7B 279 0001:00329D7E 280 0001:00329D84 + 281 0001:00329DC6 286 0001:00329DD0 287 0001:00329DFD 289 0001:00329E01 + 290 0001:00329E13 292 0001:00329E40 293 0001:00329E44 294 0001:00329E46 + 288 0001:00329E47 295 0001:00329E77 299 0001:00329E80 300 0001:00329E85 + 305 0001:00329E88 306 0001:00329E90 308 0001:00329E99 311 0001:00329E9D + 313 0001:00329EAA 314 0001:00329EAD 315 0001:00329EBD 317 0001:00329EC8 + 309 0001:00329EC9 320 0001:00329ED9 321 0001:00329EE9 322 0001:00329EF1 + 323 0001:00329EFC 328 0001:00329F04 329 0001:00329F0C 331 0001:00329F15 + 332 0001:00329F24 334 0001:00329F29 336 0001:00329F36 337 0001:00329F39 + 338 0001:00329F49 340 0001:00329F54 332 0001:00329F55 343 0001:00329F5A + 344 0001:00329F6A 345 0001:00329F72 346 0001:00329F7D 349 0001:00329F84 + 350 0001:00329F89 351 0001:00329F9F 350 0001:00329FAD 352 0001:00329FB0 + 353 0001:00329FB5 358 0001:00329FBC 361 0001:00329FC2 362 0001:00329FCC + 363 0001:00329FD9 364 0001:00329FDE 365 0001:00329FE2 366 0001:00329FE8 + 369 0001:00329FF3 374 0001:00329FF8 375 0001:0032A012 377 0001:0032A02E + 379 0001:0032A03F 381 0001:0032A07A 382 0001:0032A08A 383 0001:0032A095 + 385 0001:0032A0A2 387 0001:0032A0B4 375 0001:0032A0B5 388 0001:0032A0E0 + 394 0001:0032A108 395 0001:0032A124 397 0001:0032A12A 399 0001:0032A13E + 401 0001:0032A14C 403 0001:0032A178 405 0001:0032A1B1 409 0001:0032A1C0 + 410 0001:0032A1CD 411 0001:0032A1DA 416 0001:0032A1E9 417 0001:0032A1F6 + 418 0001:0032A203 421 0001:0032A210 422 0001:0032A216 424 0001:0032A220 + 425 0001:0032A235 428 0001:0032A25B 429 0001:0032A28D 432 0001:0032A294 + 433 0001:0032A297 434 0001:0032A2A0 435 0001:0032A2A7 437 0001:0032A2DC + 437 0001:0032A2E3 + +Line numbers for fOptionsReportsCustom(Options\fOptionsReportsCustom.pas) segment .text + + 78 0001:0032A72C 79 0001:0032A749 82 0001:0032A757 83 0001:0032A764 + 87 0001:0032A77F 88 0001:0032A78C 92 0001:0032A7A7 93 0001:0032A7B4 + 96 0001:0032A7EF 101 0001:0032A7F8 102 0001:0032A806 103 0001:0032A81D + 104 0001:0032A821 107 0001:0032A82F 108 0001:0032A837 111 0001:0032A843 + 112 0001:0032A84D 113 0001:0032A857 115 0001:0032A861 116 0001:0032A869 + 117 0001:0032A874 120 0001:0032A88F 122 0001:0032A89F 125 0001:0032A8A8 + 126 0001:0032A8AB 127 0001:0032A8BD 128 0001:0032A8CD 135 0001:0032A8D0 + 138 0001:0032A8DB 139 0001:0032A8FC 141 0001:0032A939 142 0001:0032A942 + 143 0001:0032A94B 144 0001:0032A952 145 0001:0032A959 147 0001:0032A963 + 149 0001:0032A96C 150 0001:0032A96F 151 0001:0032A976 152 0001:0032A97D + 153 0001:0032A980 155 0001:0032A9A9 156 0001:0032A9B3 157 0001:0032A9D2 + 159 0001:0032A9E7 161 0001:0032A9F1 162 0001:0032AA01 163 0001:0032AA26 + 167 0001:0032AA50 169 0001:0032AA5A 170 0001:0032AA6A 171 0001:0032AA8F + 175 0001:0032AAB9 177 0001:0032AAE3 178 0001:0032AAF3 179 0001:0032AB18 + 180 0001:0032AB25 184 0001:0032AB68 187 0001:0032AB70 188 0001:0032AB7C + 189 0001:0032AB8F 193 0001:0032AB98 195 0001:0032ABBA 196 0001:0032ABC9 + 197 0001:0032ABF4 198 0001:0032AC03 199 0001:0032AC2E 200 0001:0032AC64 + 201 0001:0032ACB6 202 0001:0032ACD6 204 0001:0032ACDB 205 0001:0032ACE8 + 206 0001:0032ACF5 207 0001:0032AD02 209 0001:0032AD1D 210 0001:0032AD41 + 211 0001:0032AD6B 217 0001:0032AD74 219 0001:0032AD96 221 0001:0032ADA3 + 222 0001:0032ADA8 224 0001:0032ADAD 225 0001:0032ADC6 227 0001:0032ADD2 + 228 0001:0032ADDF 229 0001:0032ADEC 230 0001:0032ADF9 232 0001:0032ADFE + 234 0001:0032AE04 235 0001:0032AE11 236 0001:0032AE1E 237 0001:0032AE43 + 239 0001:0032AE52 241 0001:0032AE58 242 0001:0032AE65 243 0001:0032AE72 + 244 0001:0032AE97 246 0001:0032AEA6 248 0001:0032AEC7 249 0001:0032AED4 + 250 0001:0032AEE1 252 0001:0032AEE6 254 0001:0032AF0D 255 0001:0032AF1A + 256 0001:0032AF27 257 0001:0032AF4A 261 0001:0032AF5B 262 0001:0032AF68 + 264 0001:0032AF76 265 0001:0032AFA0 269 0001:0032AFA8 271 0001:0032AFD5 + 274 0001:0032B03F 280 0001:0032B048 281 0001:0032B06B 283 0001:0032B07E + 284 0001:0032B08C 286 0001:0032B098 287 0001:0032B0AB 288 0001:0032B0C7 + 289 0001:0032B0D5 291 0001:0032B0E0 293 0001:0032B0F0 294 0001:0032B0FB + 295 0001:0032B0FD 297 0001:0032B103 298 0001:0032B116 299 0001:0032B132 + 300 0001:0032B140 302 0001:0032B14B 304 0001:0032B155 306 0001:0032B16F + 307 0001:0032B182 308 0001:0032B19E 309 0001:0032B1AC 310 0001:0032B1B7 + 312 0001:0032B1BC 313 0001:0032B1E3 315 0001:0032B234 316 0001:0032B241 + 317 0001:0032B24E 319 0001:0032B250 320 0001:0032B28A 321 0001:0032B297 + 325 0001:0032B2F3 331 0001:0032B380 332 0001:0032B3A2 334 0001:0032B3BB + 336 0001:0032B409 337 0001:0032B442 338 0001:0032B468 339 0001:0032B48C + 340 0001:0032B49A 341 0001:0032B4BE 342 0001:0032B4CC 343 0001:0032B4E2 + 344 0001:0032B4ED 345 0001:0032B4FA 349 0001:0032B51A 351 0001:0032B525 + 332 0001:0032B526 352 0001:0032B52D 353 0001:0032B53A 354 0001:0032B547 + 355 0001:0032B554 356 0001:0032B561 357 0001:0032B56D 359 0001:0032B57A + 360 0001:0032B589 361 0001:0032B59D 363 0001:0032B5D4 366 0001:0032B600 + 367 0001:0032B603 368 0001:0032B60E 369 0001:0032B615 378 0001:0032B618 + 379 0001:0032B63B 381 0001:0032B64F 382 0001:0032B662 383 0001:0032B66F + 384 0001:0032B680 385 0001:0032B68E 386 0001:0032B699 388 0001:0032B69E + 390 0001:0032B6C0 391 0001:0032B6C8 392 0001:0032B6D6 394 0001:0032B6E2 + 395 0001:0032B6EF 396 0001:0032B702 397 0001:0032B70F 398 0001:0032B720 + 399 0001:0032B72E 400 0001:0032B739 402 0001:0032B73E 403 0001:0032B74C + 406 0001:0032B780 407 0001:0032B792 408 0001:0032B7A4 410 0001:0032B7BE + 411 0001:0032B7D1 412 0001:0032B7F8 413 0001:0032B806 414 0001:0032B811 + 416 0001:0032B816 417 0001:0032B855 418 0001:0032B862 419 0001:0032B86F + 421 0001:0032B8C0 422 0001:0032B936 430 0001:0032B9C8 431 0001:0032B9EB + 433 0001:0032B9FF 434 0001:0032BA12 435 0001:0032BA1F 436 0001:0032BA30 + 437 0001:0032BA3E 438 0001:0032BA49 441 0001:0032BA4E 444 0001:0032BA70 + 445 0001:0032BA78 446 0001:0032BA86 448 0001:0032BA92 449 0001:0032BA9F + 450 0001:0032BAB2 451 0001:0032BABF 452 0001:0032BAD0 453 0001:0032BADE + 454 0001:0032BAE9 457 0001:0032BAEE 460 0001:0032BB22 461 0001:0032BB30 + 462 0001:0032BB42 463 0001:0032BB54 465 0001:0032BB6E 466 0001:0032BB81 + 467 0001:0032BBA8 468 0001:0032BBB6 469 0001:0032BBC1 471 0001:0032BBC6 + 472 0001:0032BC05 473 0001:0032BC12 474 0001:0032BC1F 476 0001:0032BC70 + 477 0001:0032BCE6 482 0001:0032BD78 483 0001:0032BD7B 484 0001:0032BD82 + 485 0001:0032BD8D 489 0001:0032BD90 490 0001:0032BD93 492 0001:0032BD98 + 493 0001:0032BDA5 496 0001:0032BDB5 500 0001:0032BDB8 501 0001:0032BDBB + 503 0001:0032BDC0 504 0001:0032BDCD 507 0001:0032BDDD 511 0001:0032BDE0 + 512 0001:0032BDE3 514 0001:0032BDE8 515 0001:0032BDF5 518 0001:0032BE05 + 521 0001:0032BE08 522 0001:0032BE0B 523 0001:0032BE1A 524 0001:0032BE23 + 525 0001:0032BE2A 533 0001:0032BE2C 534 0001:0032BE4F 536 0001:0032BE6F + 537 0001:0032BE88 539 0001:0032BE94 540 0001:0032BE99 541 0001:0032BEA0 + 542 0001:0032BEA5 543 0001:0032BEAC 544 0001:0032BEBA 545 0001:0032BECA + 547 0001:0032BECF 549 0001:0032BEE8 550 0001:0032BF19 551 0001:0032BF31 + 553 0001:0032BF40 554 0001:0032BF45 555 0001:0032BF48 556 0001:0032BF4D + 557 0001:0032BF50 558 0001:0032BF5E 559 0001:0032BF6B 561 0001:0032BF6D + 547 0001:0032BF6E 563 0001:0032BF75 565 0001:0032BF8D 567 0001:0032BF95 + 568 0001:0032BFCC 572 0001:0032BFD4 573 0001:0032BFD7 575 0001:0032BFDC + 576 0001:0032BFEC 579 0001:0032BFF9 586 0001:0032BFFC 587 0001:0032C01F + 588 0001:0032C028 589 0001:0032C030 590 0001:0032C042 591 0001:0032C05A + 592 0001:0032C06C 593 0001:0032C07F 594 0001:0032C08B 595 0001:0032C096 + 596 0001:0032C0A4 597 0001:0032C0B8 598 0001:0032C0CF 599 0001:0032C0E6 + 601 0001:0032C0FD 603 0001:0032C11A 604 0001:0032C18D 605 0001:0032C1C4 + 606 0001:0032C1FB 607 0001:0032C20D 608 0001:0032C21F 609 0001:0032C265 + 610 0001:0032C2AB 611 0001:0032C2F8 601 0001:0032C2F9 612 0001:0032C302 + 613 0001:0032C315 614 0001:0032C323 615 0001:0032C333 617 0001:0032C344 + 618 0001:0032C358 619 0001:0032C366 620 0001:0032C373 621 0001:0032C387 + 622 0001:0032C395 623 0001:0032C3A2 624 0001:0032C3B6 625 0001:0032C3C4 + 626 0001:0032C3D1 627 0001:0032C3DE 628 0001:0032C3EB 629 0001:0032C3F8 + 631 0001:0032C437 635 0001:0032C4CC 636 0001:0032C4D5 638 0001:0032C4DB + 640 0001:0032C4E1 641 0001:0032C4EF 643 0001:0032C4F6 645 0001:0032C4FC + 646 0001:0032C509 648 0001:0032C519 649 0001:0032C527 652 0001:0032C52C + 653 0001:0032C532 654 0001:0032C540 656 0001:0032C545 660 0001:0032C54C + 661 0001:0032C55C 663 0001:0032C590 663 0001:0032C597 + +Line numbers for fOptionsReportsDefault(Options\fOptionsReportsDefault.pas) segment .text + + 63 0001:0032C990 64 0001:0032C99E 65 0001:0032C9B5 66 0001:0032C9B9 + 69 0001:0032C9C7 70 0001:0032C9CF 73 0001:0032C9DB 74 0001:0032C9E5 + 75 0001:0032C9EF 77 0001:0032C9F9 78 0001:0032CA01 79 0001:0032CA0C + 82 0001:0032CA27 84 0001:0032CA37 89 0001:0032CA40 90 0001:0032CA61 + 92 0001:0032CAAC 93 0001:0032CAB3 96 0001:0032CAB8 98 0001:0032CAF4 + 99 0001:0032CB07 102 0001:0032CB0C 103 0001:0032CB1A 104 0001:0032CB28 + 105 0001:0032CB36 106 0001:0032CB56 113 0001:0032CBC0 114 0001:0032CBC8 + 115 0001:0032CBCD 116 0001:0032CBD9 118 0001:0032CBE6 119 0001:0032CBF5 + 120 0001:0032CC09 122 0001:0032CC1E 126 0001:0032CC27 127 0001:0032CC38 + 128 0001:0032CC49 130 0001:0032CCB1 135 0001:0032CE44 136 0001:0032CE49 + 143 0001:0032CE4C 144 0001:0032CE6C 145 0001:0032CE7E 146 0001:0032CE87 + 148 0001:0032CE96 149 0001:0032CEA9 153 0001:0032CEAE 154 0001:0032CED7 + 155 0001:0032CF00 162 0001:0032CF4F 163 0001:0032CF54 164 0001:0032CF62 + 165 0001:0032CF70 166 0001:0032CF89 167 0001:0032CFD3 168 0001:0032CFDB + 169 0001:0032CFE0 170 0001:0032CFFC 171 0001:0032D018 172 0001:0032D021 + 173 0001:0032D02A 174 0001:0032D033 175 0001:0032D03A 176 0001:0032D046 + 178 0001:0032D053 179 0001:0032D062 180 0001:0032D076 183 0001:0032D0C7 + 189 0001:0032D260 190 0001:0032D27B 193 0001:0032D28E 194 0001:0032D29C + 196 0001:0032D2A8 197 0001:0032D2BB 199 0001:0032D2CB 201 0001:0032D2DB + 202 0001:0032D2E6 203 0001:0032D2E8 205 0001:0032D2EE 206 0001:0032D301 + 208 0001:0032D31D 209 0001:0032D323 211 0001:0032D33D 212 0001:0032D350 + 215 0001:0032D36C 218 0001:0032D3A8 223 0001:0032D3F4 224 0001:0032D40E + 225 0001:0032D434 226 0001:0032D45A 228 0001:0032D4AC 233 0001:0032D558 + 235 0001:0032D55D 238 0001:0032D56B 243 0001:0032D56C 245 0001:0032D571 + 248 0001:0032D57F 253 0001:0032D580 255 0001:0032D585 258 0001:0032D593 + 263 0001:0032D594 264 0001:0032D5B2 265 0001:0032D5BB 266 0001:0032D5D2 + 267 0001:0032D60C 268 0001:0032D628 269 0001:0032D662 270 0001:0032D67E + 272 0001:0032D688 273 0001:0032D6A0 275 0001:0032D6A7 276 0001:0032D6B7 + 277 0001:0032D6C7 279 0001:0032D6D8 280 0001:0032D6E8 281 0001:0032D6F5 + 282 0001:0032D702 283 0001:0032D712 284 0001:0032D71F 285 0001:0032D72C + 286 0001:0032D740 287 0001:0032D74E 288 0001:0032D75B 289 0001:0032D768 + 290 0001:0032D77C 291 0001:0032D78A 293 0001:0032D7D4 302 0001:0032D894 + 303 0001:0032D8B2 305 0001:0032D8C6 306 0001:0032D8D9 307 0001:0032D8EA + 308 0001:0032D8F8 309 0001:0032D903 312 0001:0032D908 313 0001:0032D910 + 314 0001:0032D91E 316 0001:0032D92A 317 0001:0032D937 318 0001:0032D94A + 319 0001:0032D95B 320 0001:0032D969 321 0001:0032D974 323 0001:0032D979 + 324 0001:0032D987 325 0001:0032D995 326 0001:0032D9A7 327 0001:0032D9B9 + 329 0001:0032D9D3 330 0001:0032D9E6 331 0001:0032DA02 332 0001:0032DA10 + 333 0001:0032DA1B 335 0001:0032DA1D 336 0001:0032DA4F 337 0001:0032DA8D + 345 0001:0032DB04 346 0001:0032DB22 348 0001:0032DB36 349 0001:0032DB49 + 350 0001:0032DB5A 351 0001:0032DB68 352 0001:0032DB73 355 0001:0032DB78 + 356 0001:0032DB80 357 0001:0032DB8E 359 0001:0032DB9A 360 0001:0032DBA7 + 361 0001:0032DBBA 362 0001:0032DBC7 363 0001:0032DBD8 364 0001:0032DBE6 + 365 0001:0032DBF1 367 0001:0032DBF6 368 0001:0032DC04 369 0001:0032DC12 + 370 0001:0032DC24 371 0001:0032DC36 373 0001:0032DC50 374 0001:0032DC63 + 375 0001:0032DC7F 376 0001:0032DC8D 377 0001:0032DC98 379 0001:0032DC9A + 380 0001:0032DCCC 381 0001:0032DD0A 386 0001:0032DD80 387 0001:0032DD81 + 389 0001:0032DD86 390 0001:0032DD94 392 0001:0032DD96 394 0001:0032DD9B + 395 0001:0032DD9E 397 0001:0032DDAD 401 0001:0032DDB0 402 0001:0032DDB1 + 404 0001:0032DDB6 405 0001:0032DDC4 407 0001:0032DDC6 409 0001:0032DDCB + 410 0001:0032DDCE 412 0001:0032DDDD 416 0001:0032DDE0 417 0001:0032DDEB + 421 0001:0032DDEC 422 0001:0032DDF7 426 0001:0032DDF8 427 0001:0032DE03 + 429 0001:0032DE34 429 0001:0032DE3B + +Line numbers for fOptions(Options\fOptions.pas) segment .text + + 187 0001:0032EAC4 188 0001:0032EACC 189 0001:0032EAE3 192 0001:0032EAF1 + 194 0001:0032EAFA 195 0001:0032EB0A 196 0001:0032EB1A 197 0001:0032EB2A + 198 0001:0032EB3A 200 0001:0032EB4A 203 0001:0032EB5F 206 0001:0032EB74 + 209 0001:0032EB89 213 0001:0032EB9E 214 0001:0032EBAE 215 0001:0032EBBE + 216 0001:0032EBCE 217 0001:0032EBDE 218 0001:0032EBEE 220 0001:0032EC01 + 222 0001:0032EC14 223 0001:0032EC27 224 0001:0032EC3A 226 0001:0032EC4B + 227 0001:0032EC5B 228 0001:0032EC6B 229 0001:0032EC7B 230 0001:0032EC8B + 231 0001:0032EC9B 233 0001:0032ECA8 234 0001:0032ECB8 235 0001:0032ECC8 + 238 0001:0032ECDB 240 0001:0032ECE8 242 0001:0032ECFB 244 0001:0032ED0E + 245 0001:0032ED21 250 0001:0032ED34 251 0001:0032ED38 252 0001:0032ED40 + 253 0001:0032ED63 254 0001:0032ED83 255 0001:0032EDA3 256 0001:0032EDAE + 259 0001:0032EDC9 261 0001:0032EDD9 265 0001:0032F0AC 266 0001:0032F0AF + 267 0001:0032F0B6 268 0001:0032F0BD 269 0001:0032F0C4 270 0001:0032F0CB + 271 0001:0032F0D2 273 0001:0032F0D9 274 0001:0032F102 275 0001:0032F10F + 277 0001:0032F128 283 0001:0032F12C 284 0001:0032F131 285 0001:0032F14C + 284 0001:0032F172 286 0001:0032F175 287 0001:0032F190 286 0001:0032F1B6 + 288 0001:0032F1B9 294 0001:0032F1C0 295 0001:0032F1C6 296 0001:0032F1CC + 297 0001:0032F1E3 298 0001:0032F1FF 304 0001:0032F204 305 0001:0032F20A + 306 0001:0032F210 307 0001:0032F227 308 0001:0032F243 314 0001:0032F248 + 315 0001:0032F24E 316 0001:0032F254 317 0001:0032F26B 318 0001:0032F287 + 324 0001:0032F28C 325 0001:0032F292 326 0001:0032F298 327 0001:0032F2AF + 328 0001:0032F2CB 334 0001:0032F2D0 335 0001:0032F2D6 336 0001:0032F2DC + 337 0001:0032F2F3 338 0001:0032F30F 344 0001:0032F314 345 0001:0032F31A + 346 0001:0032F320 347 0001:0032F337 348 0001:0032F353 353 0001:0032F358 + 358 0001:0032F370 360 0001:0032F375 364 0001:0032F450 366 0001:0032F458 + 367 0001:0032F45D 368 0001:0032F462 369 0001:0032F464 370 0001:0032F46D + 371 0001:0032F472 372 0001:0032F47B 376 0001:0032F484 377 0001:0032F48A + 378 0001:0032F493 379 0001:0032F49A 380 0001:0032F4A3 381 0001:0032F4AA + 382 0001:0032F4B3 383 0001:0032F4BA 384 0001:0032F4C1 385 0001:0032F4C9 + 386 0001:0032F4D0 392 0001:0032F4D4 393 0001:0032F4EF 394 0001:0032F503 + 395 0001:0032F51D 396 0001:0032F525 397 0001:0032F538 398 0001:0032F54B + 399 0001:0032F569 400 0001:0032F584 401 0001:0032F58C 402 0001:0032F59F + 403 0001:0032F5CF 407 0001:0032F5E4 408 0001:0032F5E7 409 0001:0032F5FB + 410 0001:0032F608 419 0001:0032F60C 420 0001:0032F62C 421 0001:0032F63B + 423 0001:0032F65B 424 0001:0032F67E 426 0001:0032F6B4 427 0001:0032F6DF + 430 0001:0032F6EF 431 0001:0032F715 434 0001:0032F743 421 0001:0032F744 + 435 0001:0032F74D 436 0001:0032F755 437 0001:0032F75D 438 0001:0032F78E + 447 0001:0032F7B8 448 0001:0032F7D7 449 0001:0032F7E6 451 0001:0032F806 + 452 0001:0032F829 453 0001:0032F854 455 0001:0032F864 456 0001:0032F88A + 458 0001:0032F8B8 449 0001:0032F8B9 459 0001:0032F8C2 460 0001:0032F8CA + 461 0001:0032F8D2 462 0001:0032F903 468 0001:0032F918 469 0001:0032F92E + 470 0001:0032F936 471 0001:0032F948 473 0001:0032F957 474 0001:0032F964 + 475 0001:0032F96C 476 0001:0032F990 481 0001:0032F9AC 482 0001:0032F9D8 + 487 0001:0032F9DC 488 0001:0032F9E3 489 0001:0032F9E8 498 0001:0032F9EC + 499 0001:0032FA1A 500 0001:0032FA24 501 0001:0032FA32 504 0001:0032FA3C + 506 0001:0032FA53 507 0001:0032FA73 508 0001:0032FA93 509 0001:0032FAB3 + 510 0001:0032FAD3 513 0001:0032FAE3 514 0001:0032FAED 515 0001:0032FAF8 + 516 0001:0032FB10 518 0001:0032FB1B 521 0001:0032FB29 522 0001:0032FB34 + 523 0001:0032FB3F 525 0001:0032FB4A 526 0001:0032FB59 502 0001:0032FB5A + 528 0001:0032FB63 529 0001:0032FB6D 530 0001:0032FBA6 535 0001:0032FBD0 + 536 0001:0032FBF3 537 0001:0032FC14 538 0001:0032FC21 539 0001:0032FC3C + 540 0001:0032FC66 541 0001:0032FC6F 543 0001:0032FC74 545 0001:0032FC7F + 546 0001:0032FC9B 547 0001:0032FCB4 551 0001:0032FCC5 552 0001:0032FCE1 + 553 0001:0032FCFA 555 0001:0032FD2B 560 0001:0032FD60 561 0001:0032FD69 + 562 0001:0032FD78 564 0001:0032FD88 565 0001:0032FD8F 566 0001:0032FD9C + 567 0001:0032FDAE 572 0001:0032FDB4 573 0001:0032FDD6 574 0001:0032FDEB + 576 0001:0032FDF4 577 0001:0032FDFD 579 0001:0032FE15 584 0001:0032FE50 + 585 0001:0032FE59 587 0001:0032FE6E 590 0001:0032FEC9 596 0001:0032FED4 + 597 0001:0032FEF5 599 0001:0032FF05 600 0001:0032FF12 601 0001:0032FF21 + 602 0001:0032FF47 603 0001:0032FF56 604 0001:0032FF5F 605 0001:0032FF72 + 607 0001:0032FF8B 608 0001:0032FF96 610 0001:0032FFA7 612 0001:0032FFD3 + 617 0001:00330008 618 0001:00330017 619 0001:00330026 620 0001:0033002B + 627 0001:0033002C 628 0001:00330048 629 0001:0033005C 630 0001:00330071 + 631 0001:0033008A 632 0001:00330098 633 0001:003300C8 639 0001:003300D0 + 640 0001:003300D6 641 0001:003300DC 642 0001:003300F3 643 0001:0033010F + 649 0001:00330114 650 0001:0033011A 651 0001:00330120 652 0001:00330137 + 653 0001:00330153 659 0001:00330158 660 0001:0033015E 661 0001:00330164 + 662 0001:0033017B 663 0001:00330197 668 0001:0033019C 669 0001:003301A2 + 670 0001:003301A8 671 0001:003301BF 672 0001:003301DB 677 0001:003301E0 + 678 0001:003301E6 679 0001:003301EC 680 0001:00330203 681 0001:0033021F + 684 0001:00330224 685 0001:00330227 686 0001:00330236 687 0001:00330250 + 689 0001:00330266 693 0001:00330268 694 0001:00330271 695 0001:0033028F + 701 0001:00330298 702 0001:0033029E 704 0001:003302B4 705 0001:003302BA + 706 0001:003302D1 708 0001:003302ED 715 0001:003302F4 716 0001:003302FA + 717 0001:003302FE 718 0001:00330315 719 0001:0033032D 726 0001:00330334 + 727 0001:0033033A 728 0001:0033033E 729 0001:00330355 730 0001:0033036D + 735 0001:00330374 736 0001:0033037C 738 0001:00330388 740 0001:00330390 + 741 0001:0033039A 742 0001:003303AC 743 0001:003303BE 744 0001:003303CD + 745 0001:003303DF 746 0001:003303F1 747 0001:00330400 748 0001:0033040F + 749 0001:0033041F 753 0001:00330429 754 0001:00330433 755 0001:00330445 + 756 0001:00330457 757 0001:00330469 758 0001:0033047B 759 0001:0033048A + 760 0001:00330499 761 0001:003304A8 762 0001:003304B7 763 0001:003304C6 + 765 0001:003304DD 766 0001:003304F2 767 0001:00330507 768 0001:0033051C + 772 0001:00330533 773 0001:00330548 774 0001:0033055D 775 0001:00330572 + 779 0001:00330587 781 0001:00330614 781 0001:0033061B + +Line numbers for fDefaultEvent(fDefaultEvent.pas) segment .text + + 128 0001:0033064C 128 0001:00330653 + +Line numbers for fFrame(fFrame.pas) segment .text + + 445 0001:003318A8 446 0001:003318B1 447 0001:003318C2 450 0001:003318C8 + 451 0001:003318D1 452 0001:003318DC 455 0001:003318E0 456 0001:003318E7 + 457 0001:003318F5 459 0001:003318FD 460 0001:00331905 468 0001:00331908 + 469 0001:00331931 470 0001:0033193D 472 0001:00331953 475 0001:00331995 + 477 0001:0033199E 478 0001:003319AA 480 0001:003319D2 482 0001:003319DC + 484 0001:003319EE 485 0001:003319FD 486 0001:00331A0A 488 0001:00331A14 + 490 0001:00331A26 491 0001:00331A35 492 0001:00331A42 494 0001:00331A4C + 495 0001:00331A5B 496 0001:00331A91 501 0001:00331AEC 502 0001:00331AF8 + 504 0001:00331B07 505 0001:00331B0B 507 0001:00331B10 508 0001:00331B1A + 509 0001:00331B1E 511 0001:00331B3C 512 0001:00331B49 514 0001:00331B4D + 515 0001:00331B68 516 0001:00331B83 517 0001:00331B9E 518 0001:00331BB9 + 519 0001:00331BD4 520 0001:00331BEF 521 0001:00331C0A 522 0001:00331C10 + 523 0001:00331C2F 524 0001:00331C4A 525 0001:00331C65 526 0001:00331C76 + 527 0001:00331C90 529 0001:00331CAB 531 0001:00331CBB 532 0001:00331CC8 + 535 0001:00331CCE 538 0001:00331CD4 539 0001:00331CFA 542 0001:00331D07 + 543 0001:00331D14 547 0001:00331D6C 548 0001:00331D8D 549 0001:00331D9F + 550 0001:00331DAF 551 0001:00331DBF 552 0001:00331DCF 553 0001:00331DDF + 554 0001:00331DEF 555 0001:00331E02 556 0001:00331E15 557 0001:00331E60 + 558 0001:00331E73 559 0001:00331E83 560 0001:00331ECE 561 0001:00331EDD + 562 0001:00331EEC 563 0001:00331EFB 564 0001:00331F0A 565 0001:00331F19 + 566 0001:00331F28 567 0001:00331F37 568 0001:00331F50 569 0001:00331F5F + 570 0001:00331F6E 571 0001:00331F8C 572 0001:00331F9D 573 0001:00331FA2 + 574 0001:00331FAC 575 0001:00331FBD 576 0001:00331FC7 577 0001:00331FCC + 578 0001:00331FE2 579 0001:00331FEA 580 0001:00331FEF 583 0001:00332004 + 584 0001:0033200E 585 0001:0033201D 586 0001:0033202C 587 0001:00332042 + 589 0001:003320A0 593 0001:00332168 596 0001:00332189 597 0001:003321A4 + 598 0001:003321C6 599 0001:003321D9 600 0001:003321F4 601 0001:00332226 + 603 0001:00332239 604 0001:00332284 605 0001:003322BB 610 0001:00332324 + 611 0001:0033232E 612 0001:0033233A 613 0001:00332398 619 0001:003323A0 + 620 0001:003323C7 621 0001:003323D1 622 0001:003323E5 623 0001:00332408 + 624 0001:00332422 625 0001:0033243E 626 0001:0033244C 628 0001:00332466 + 629 0001:0033246D 630 0001:00332477 631 0001:00332487 632 0001:00332497 + 636 0001:003324AE 637 0001:003324B5 638 0001:003324BF 639 0001:003324CF + 640 0001:003324DF 642 0001:003324EF 643 0001:003324F7 644 0001:00332501 + 646 0001:00332506 649 0001:0033251B 650 0001:00332528 653 0001:0033253F + 656 0001:0033254C 657 0001:00332551 659 0001:0033255A 660 0001:00332576 + 662 0001:00332587 665 0001:0033259C 668 0001:003325AB 670 0001:003325B9 + 671 0001:003325C3 672 0001:003325DE 673 0001:003325E6 676 0001:003325EB + 678 0001:003325F4 679 0001:00332610 682 0001:00332641 683 0001:00332652 + 684 0001:00332666 685 0001:0033267A 686 0001:0033268D 687 0001:003326A7 + 688 0001:003326CA 689 0001:003326E4 692 0001:003326FE 693 0001:0033270B + 696 0001:0033271F 697 0001:0033272C 698 0001:00332746 699 0001:00332758 + 701 0001:00332767 702 0001:00332778 703 0001:00332780 705 0001:00332785 + 706 0001:003327B7 708 0001:003327C4 709 0001:003327D5 710 0001:003327DD + 712 0001:003327E2 714 0001:003327F5 716 0001:00332820 718 0001:0033283C + 719 0001:00332844 724 0001:00332849 730 0001:00332858 731 0001:003328A0 + 732 0001:003328A8 735 0001:003328AD 737 0001:003328F5 739 0001:00332904 + 740 0001:0033294C 741 0001:00332954 746 0001:00332959 752 0001:00332973 + 753 0001:00332984 754 0001:0033298C 758 0001:00332991 759 0001:003329A5 + 760 0001:003329B9 761 0001:003329CD 762 0001:003329E1 763 0001:003329F5 + 764 0001:00332A09 765 0001:00332A1A 766 0001:00332A2B 767 0001:00332A33 + 769 0001:00332A47 770 0001:00332A9C 771 0001:00332AA4 772 0001:00332AAD + 774 0001:00332ABB 776 0001:00332AC8 777 0001:00332ADA 778 0001:00332AEC + 779 0001:00332AFE 780 0001:00332B10 781 0001:00332B22 782 0001:00332B3D + 783 0001:00332B4F 784 0001:00332B61 785 0001:00332B73 786 0001:00332B85 + 790 0001:00332B96 791 0001:00332BAB 793 0001:00332BC4 795 0001:00332BD7 + 796 0001:00332BDF 797 0001:00332BEC 798 0001:00332BF6 799 0001:00332C00 + 800 0001:00332C0D 801 0001:00332C22 802 0001:00332C2C 803 0001:00332C39 + 804 0001:00332C43 805 0001:00332C50 806 0001:00332C58 807 0001:00332C63 + 808 0001:00332C70 809 0001:00332C78 810 0001:00332C7D 818 0001:00332C94 + 819 0001:00332CEC 822 0001:00333178 823 0001:00333197 824 0001:003331A5 + 827 0001:003331B9 828 0001:003331D1 829 0001:003331E9 831 0001:00333201 + 832 0001:0033320B 833 0001:00333215 834 0001:0033321F 835 0001:00333237 + 837 0001:0033325C 839 0001:0033325F 840 0001:00333266 841 0001:00333270 + 842 0001:0033327E 845 0001:00333292 846 0001:003332AA 847 0001:003332C2 + 849 0001:003332DA 850 0001:003332E4 851 0001:003332EE 852 0001:003332F8 + 853 0001:00333310 854 0001:00333317 856 0001:00333333 857 0001:00333343 + 858 0001:00333353 862 0001:00333365 863 0001:0033336F 864 0001:0033337F + 865 0001:0033338F 868 0001:003333AE 869 0001:003333B5 870 0001:003333BF + 871 0001:003333C9 872 0001:003333D9 873 0001:003333E9 877 0001:00333420 + 880 0001:00333490 881 0001:003334AF 882 0001:003334D1 883 0001:003334D9 + 884 0001:003334F5 885 0001:00333500 887 0001:0033350A 888 0001:00333548 + 892 0001:00333558 893 0001:00333564 894 0001:00333586 895 0001:003335A8 + 896 0001:003335B6 897 0001:003335C0 898 0001:003335CA 899 0001:003335D6 + 900 0001:003335E2 901 0001:003335EE 902 0001:003335FA 903 0001:00333606 + 904 0001:00333612 905 0001:0033361E 906 0001:0033362A 907 0001:00333634 + 913 0001:00333638 914 0001:0033365B 915 0001:00333667 917 0001:00333674 + 919 0001:00333680 920 0001:0033369F 922 0001:003336A1 923 0001:003336D3 + 932 0001:003336D8 933 0001:00333708 935 0001:00333715 936 0001:00333723 + 937 0001:00333735 938 0001:00333742 939 0001:00333752 940 0001:00333768 + 941 0001:00333779 943 0001:0033377E 945 0001:0033378B 946 0001:0033379D + 947 0001:003337AA 948 0001:003337BA 949 0001:003337D0 952 0001:003337E1 + 953 0001:003337EF 955 0001:003337F4 958 0001:00333819 959 0001:00333828 + 960 0001:00333837 962 0001:00333839 953 0001:0033383C 963 0001:00333842 + 965 0001:00333848 966 0001:0033384F 968 0001:00333856 970 0001:00333876 + 971 0001:00333888 972 0001:00333895 973 0001:003338A6 974 0001:003338BC + 975 0001:003338D0 968 0001:003338D3 976 0001:00333904 982 0001:00333970 + 983 0001:0033397C 985 0001:0033398E 986 0001:003339A1 988 0001:003339A8 + 993 0001:003339FC 994 0001:00333A1F 995 0001:00333A27 996 0001:00333A2F + 997 0001:00333A37 998 0001:00333A3F 1000 0001:00333A49 1001 0001:00333A5C + 1002 0001:00333A72 1003 0001:00333A87 1005 0001:00333AA0 1006 0001:00333AA8 + 1016 0001:00333B52 1021 0001:00333BF8 1022 0001:00333C04 1025 0001:00333C08 + 1026 0001:00333C16 1027 0001:00333C24 1028 0001:00333C32 1029 0001:00333C46 + 1030 0001:00333C4C 1031 0001:00333C50 1033 0001:00333C79 1035 0001:00333C7C + 1036 0001:00333C8A 1040 0001:00333C96 1046 0001:00333CB8 1047 0001:00333CC7 + 1048 0001:00333CD1 1049 0001:00333CD8 1051 0001:00333CEE 1052 0001:00333CF3 + 1053 0001:00333D0B 1055 0001:00333D10 1057 0001:00333D19 1058 0001:00333D27 + 1059 0001:00333D31 1063 0001:00333D3B 1065 0001:00333D40 1067 0001:00333D58 + 1069 0001:00333D69 1071 0001:00333D7D 1073 0001:00333D8D 1074 0001:00333D9D + 1075 0001:00333DA9 1076 0001:00333DB5 1077 0001:00333DC1 1078 0001:00333DCD + 1079 0001:00333DD9 1080 0001:00333DE5 1081 0001:00333DF1 1082 0001:00333E07 + 1083 0001:00333E13 1097 0001:00333E1F 1098 0001:00333E37 1103 0001:00333E48 + 1104 0001:00333E51 1105 0001:00333E65 1106 0001:00333E76 1107 0001:00333E87 + 1108 0001:00333E98 1109 0001:00333EA9 1117 0001:00333EC4 1120 0001:00333EE9 + 1121 0001:00333F04 1122 0001:00333F1F 1123 0001:00333F3A 1124 0001:00333F55 + 1125 0001:00333F70 1126 0001:00333F8B 1127 0001:00333FA6 1128 0001:00333FCB + 1129 0001:00333FE6 1130 0001:00334001 1131 0001:00334024 1132 0001:00334041 + 1133 0001:00334056 1134 0001:00334069 1135 0001:003340B4 1136 0001:003340BC + 1137 0001:003340FE 1138 0001:0033410D 1139 0001:0033411C 1140 0001:0033412B + 1141 0001:0033413A 1142 0001:00334149 1144 0001:00334156 1146 0001:003341C4 + 1151 0001:00334260 1152 0001:0033426C 1154 0001:003342A2 1155 0001:003342B0 + 1159 0001:003342B4 1160 0001:003342C1 1161 0001:003342D7 1162 0001:003342F4 + 1163 0001:003342FF 1164 0001:0033430C 1165 0001:0033431E 1169 0001:00334324 + 1170 0001:00334330 1172 0001:0033433E 1173 0001:00334366 1175 0001:0033436B + 1177 0001:00334377 1178 0001:00334394 1180 0001:003343A2 1188 0001:003343A8 + 1189 0001:003343BF 1191 0001:003343C7 1192 0001:003343D7 1193 0001:003343E7 + 1194 0001:003343F5 1195 0001:00334405 1196 0001:00334415 1197 0001:00334425 + 1198 0001:00334431 1200 0001:0033443B 1201 0001:00334463 1202 0001:00334471 + 1203 0001:00334499 1204 0001:003344A7 1205 0001:003344CF 1206 0001:003344DD + 1207 0001:003344E7 1208 0001:0033450F 1209 0001:0033451D 1210 0001:00334525 + 1211 0001:0033452D 1212 0001:00334539 1214 0001:00334550 1218 0001:00334554 + 1219 0001:00334560 1220 0001:00334592 1221 0001:003345AF 1222 0001:003345C0 + 1226 0001:003345C4 1228 0001:003345D0 1230 0001:003345E1 1231 0001:00334643 + 1232 0001:00334652 1233 0001:00334667 1234 0001:0033467C 1235 0001:00334691 + 1236 0001:003346A3 1237 0001:003346B5 1238 0001:003346C7 1239 0001:003346D9 + 1240 0001:003346EB 1241 0001:003346FD 1245 0001:0033470F 1247 0001:0033471F + 1253 0001:00334724 1254 0001:00334743 1255 0001:0033475E 1272 0001:00334784 + 1276 0001:00334788 1277 0001:003347A8 1278 0001:003347BD 1280 0001:003347DC + 1294 0001:00334803 1301 0001:00334808 1304 0001:0033482C 1305 0001:00334834 + 1306 0001:0033483E 1307 0001:0033484A 1308 0001:00334862 1309 0001:0033487A + 1310 0001:003348D4 1311 0001:00334938 1312 0001:0033494B 1313 0001:00334960 + 1314 0001:00334973 1315 0001:0033498B 1316 0001:003349D6 1317 0001:003349FC + 1318 0001:00334A3E 1319 0001:00334A84 1320 0001:00334ACF 1321 0001:00334AD7 + 1322 0001:00334ADF 1323 0001:00334AF8 1325 0001:00334B4C 1326 0001:00334B54 + 1327 0001:00334B75 1329 0001:00334BA3 1330 0001:00334BBD 1332 0001:00334BC7 + 1333 0001:00334BD7 1334 0001:00334BED 1335 0001:00334BFD 1336 0001:00334C1C + 1339 0001:00334C25 1340 0001:00334C35 1341 0001:00334C4B 1343 0001:00334C5B + 1344 0001:00334C73 1345 0001:00334C7F 1346 0001:00334C84 1348 0001:00334CFB + 1358 0001:00334DA8 1359 0001:00334DAB 1361 0001:00334DB8 1362 0001:00334DC6 + 1363 0001:00334DDC 1364 0001:00334DF5 1366 0001:00334E03 1367 0001:00334E29 + 1368 0001:00334E3A 1369 0001:00334E52 1370 0001:00334E66 1372 0001:00334E68 + 1373 0001:00334E8C 1374 0001:00334E9F 1375 0001:00334EAB 1377 0001:00334EBC + 1380 0001:00334ECB 1383 0001:00334EDC 1385 0001:00334EEF 1386 0001:00334EF7 + 1387 0001:00334F06 1388 0001:00334F12 1389 0001:00334F1E 1391 0001:00334F28 + 1392 0001:00334F34 1393 0001:00334F3C 1395 0001:00334F4F 1397 0001:00334F77 + 1398 0001:00334F90 1401 0001:00334F9C 1404 0001:00334FA9 1405 0001:00334FB8 + 1406 0001:00334FC4 1411 0001:00334FC9 1412 0001:00334FEC 1415 0001:00334FF5 + 1420 0001:00334FFE 1423 0001:00335007 1424 0001:00335016 1425 0001:00335022 + 1428 0001:00335027 1429 0001:00335059 1430 0001:00335066 1431 0001:00335076 + 1432 0001:0033508A 1433 0001:0033509B 1441 0001:003350C4 1442 0001:00335248 + 1443 0001:0033525D 1444 0001:00335272 1445 0001:00335287 1446 0001:0033529C + 1447 0001:003352B1 1448 0001:003352C6 1449 0001:003352DB 1450 0001:003352F0 + 1451 0001:00335305 1452 0001:0033531A 1453 0001:0033532F 1454 0001:00335344 + 1455 0001:00335359 1457 0001:0033536E 1458 0001:003353B2 1459 0001:003353C7 + 1460 0001:0033540B 1461 0001:00335420 1462 0001:00335468 1463 0001:0033547D + 1464 0001:00335492 1465 0001:003354A7 1466 0001:003354BC 1467 0001:003354D1 + 1468 0001:003354E6 1469 0001:003354FB 1470 0001:00335510 1471 0001:00335525 + 1472 0001:0033553A 1473 0001:0033554F 1474 0001:00335564 1475 0001:00335579 + 1476 0001:0033558E 1477 0001:003355A3 1478 0001:003355B8 1479 0001:003355CD + 1480 0001:003355E2 1483 0001:003355F7 1484 0001:0033566B 1486 0001:00335679 + 1487 0001:0033568B 1488 0001:0033569C 1490 0001:003356AE 1492 0001:003356C1 + 1494 0001:003356D2 1495 0001:003356E6 1497 0001:003356F9 1498 0001:00335741 + 1504 0001:00335888 1505 0001:00335891 1507 0001:0033589B 1508 0001:003358AF + 1509 0001:003358BD 1514 0001:003358CE 1515 0001:003358EA 1514 0001:00335903 + 1517 0001:00335909 1518 0001:00335915 1521 0001:00335921 1523 0001:0033592B + 1524 0001:0033593F 1525 0001:0033594D 1528 0001:00335959 1538 0001:00335960 + 1539 0001:00335982 1540 0001:00335986 1556 0001:0033598E 1559 0001:003359A1 + 1560 0001:003359C1 1562 0001:003359CE 1564 0001:003359DA 1565 0001:003359E6 + 1567 0001:003359F3 1569 0001:00335A0B 1570 0001:00335A17 1573 0001:00335A1C + 1577 0001:00335A35 1578 0001:00335A41 1580 0001:00335A4B 1582 0001:00335A5E + 1583 0001:00335A68 1584 0001:00335A70 1585 0001:00335A7E 1587 0001:00335A8A + 1588 0001:00335A92 1592 0001:00335A9B 1593 0001:00335A9F 1595 0001:00335AB0 + 1597 0001:00335AD4 1598 0001:00335ADC 1600 0001:00335AEC 1601 0001:00335AFE + 1602 0001:00335B16 1607 0001:00335B40 1608 0001:00335B52 1609 0001:00335B6A + 1611 0001:00335B92 1612 0001:00335BC9 1613 0001:00335BE0 1614 0001:00335BF0 + 1615 0001:00335BF8 1616 0001:00335C00 1617 0001:00335C13 1620 0001:00335C20 + 1621 0001:00335C2A 1624 0001:00335C46 1626 0001:00335C50 1627 0001:00335C60 + 1632 0001:00335C70 1633 0001:00335C7A 1636 0001:00335C96 1638 0001:00335CA0 + 1639 0001:00335CB0 1640 0001:00335CC0 1641 0001:00335CD4 1646 0001:00335CDA + 1647 0001:00335CE6 1648 0001:00335CFD 1649 0001:00335D0D 1650 0001:00335D15 + 1651 0001:00335D1D 1652 0001:00335D30 1655 0001:00335D34 1657 0001:00335D3E + 1659 0001:00335D76 1661 0001:00335D8F 1662 0001:00335D99 1663 0001:00335DBA + 1667 0001:00335DD0 1668 0001:00335DDD 1672 0001:00335DEA 1673 0001:00335E0D + 1674 0001:00335E17 1675 0001:00335E38 1679 0001:00335E4B 1680 0001:00335E55 + 1681 0001:00335E76 1688 0001:00335E89 1689 0001:00335E93 1690 0001:00335EB4 + 1694 0001:00335ED2 1695 0001:00335EF2 1696 0001:00335EFC 1699 0001:00335F0E + 1702 0001:00335F44 1705 0001:00336008 1706 0001:0033600F 1708 0001:00336034 + 1709 0001:00336046 1711 0001:00336052 1714 0001:00336071 1715 0001:00336080 + 1716 0001:00336098 1717 0001:003360A5 1718 0001:003360AC 1719 0001:003360C8 + 1720 0001:003360E0 1721 0001:003360E9 1723 0001:003360F3 1724 0001:0033612E + 1726 0001:0033615C 1730 0001:00336160 1731 0001:0033616C 1732 0001:0033617B + 1733 0001:00336183 1740 0001:00336188 1741 0001:003361A7 1742 0001:003361AB + 1743 0001:003361B3 1744 0001:003361BB 1746 0001:003361CC 1748 0001:003361F9 + 1749 0001:003361FD 1750 0001:00336216 1752 0001:00336244 1753 0001:00336254 + 1755 0001:00336271 1758 0001:00336282 1759 0001:003362B0 1765 0001:003362F4 + 1766 0001:00336303 1767 0001:00336311 1769 0001:0033631B 1770 0001:00336325 + 1771 0001:00336341 1770 0001:0033635A 1773 0001:00336360 1774 0001:0033636C + 1780 0001:0033639B 1782 0001:003363A2 1785 0001:003363A5 1789 0001:003363AF + 1790 0001:003363B7 1795 0001:003363C0 1796 0001:003363CC 1806 0001:003363D0 + 1807 0001:003363F2 1808 0001:00336404 1809 0001:00336413 1810 0001:00336484 + 1812 0001:00336488 1813 0001:003364BC 1815 0001:00336534 1816 0001:0033656A + 1817 0001:0033659F 1818 0001:003365C6 1819 0001:003365FB 1820 0001:00336630 + 1835 0001:003366D4 1836 0001:003366FE 1838 0001:0033670F 1839 0001:0033671A + 1841 0001:0033671C 1842 0001:0033672F 1843 0001:00336742 1844 0001:0033677A + 1847 0001:0033678C 1848 0001:003367BB 1851 0001:003367FB 1853 0001:00336817 + 1855 0001:00336830 1856 0001:00336844 1858 0001:0033685F 1859 0001:00336869 + 1862 0001:0033686F 1863 0001:003368AC 1866 0001:003368B2 1867 0001:003368B8 + 1869 0001:003368E9 1876 0001:003369C8 1877 0001:00336A04 1880 0001:00336A13 + 1881 0001:00336A1A 1882 0001:00336A21 1884 0001:00336A27 1885 0001:00336A38 + 1886 0001:00336A47 1887 0001:00336A5F 1888 0001:00336A87 1891 0001:00336A90 + 1893 0001:00336AAC 1895 0001:00336AC5 1896 0001:00336AD9 1898 0001:00336AF4 + 1899 0001:00336AFE 1902 0001:00336B07 1903 0001:00336B22 1906 0001:00336B31 + 1907 0001:00336B38 1908 0001:00336B3F 1910 0001:00336B45 1911 0001:00336B56 + 1912 0001:00336B65 1913 0001:00336B7D 1914 0001:00336BA5 1915 0001:00336BAB + 1918 0001:00336BB1 1919 0001:00336BB7 1921 0001:00336BF5 1923 0001:00336CF8 + 1924 0001:00336D1B 1925 0001:00336D23 1926 0001:00336D2B 1927 0001:00336D2F + 1928 0001:00336D37 1929 0001:00336D45 1930 0001:00336D5D 1932 0001:00336D6E + 1933 0001:00336D72 1935 0001:00336D8B 1936 0001:00336D95 1939 0001:00336D9A + 1940 0001:00336DAB 1941 0001:00336DB9 1943 0001:00336DCA 1944 0001:00336DE5 + 1945 0001:00336E06 1948 0001:00336E2E 1949 0001:00336E41 1951 0001:00336E62 + 1953 0001:00336E68 1954 0001:00336E7C 1955 0001:00336E8C 1956 0001:00336E98 + 1958 0001:00336EA8 1960 0001:00336ECA 1961 0001:00336EDB 1964 0001:00336EEA + 1966 0001:00336F4D 1972 0001:00336FC8 1973 0001:00336FD4 1974 0001:00336FD9 + 1978 0001:00336FE0 1979 0001:00336FEC 1980 0001:00337005 1981 0001:00337016 + 1982 0001:00337027 1986 0001:0033706C 1987 0001:00337078 1988 0001:0033707D + 1992 0001:00337084 1993 0001:00337090 1994 0001:00337095 2000 0001:0033709C + 2001 0001:003370BB 2002 0001:003370E9 2003 0001:00337114 2007 0001:00337118 + 2008 0001:00337127 2010 0001:0033714F 2011 0001:0033716F 2013 0001:0033717C + 2017 0001:00337184 2018 0001:00337193 2020 0001:0033719F 2021 0001:003371BF + 2022 0001:003371CC 2023 0001:003371E8 2025 0001:003371F9 2029 0001:00337200 + 2030 0001:0033720F 2032 0001:00337227 2033 0001:00337247 2035 0001:00337265 + 2042 0001:0033727C 2043 0001:0033728C 2044 0001:003372A2 2045 0001:003372B2 + 2046 0001:003372E9 2047 0001:00337320 2048 0001:00337357 2053 0001:00337360 + 2054 0001:00337370 2055 0001:00337386 2056 0001:00337396 2057 0001:003373CD + 2058 0001:00337404 2059 0001:0033743B 2064 0001:00337444 2065 0001:00337454 + 2067 0001:00337461 2069 0001:00337471 2070 0001:003374A8 2071 0001:003374DF + 2076 0001:003374E8 2077 0001:003374F8 2079 0001:00337505 2081 0001:00337515 + 2082 0001:0033754C 2083 0001:00337583 2087 0001:0033758C 2088 0001:0033759C + 2089 0001:003375AC 2090 0001:003375E3 2091 0001:0033761A 2095 0001:00337624 + 2096 0001:00337634 2097 0001:00337644 2098 0001:0033767B 2099 0001:003376B2 + 2104 0001:003376BC 2105 0001:003376CC 2106 0001:003376DC 2107 0001:00337713 + 2108 0001:0033774A 2113 0001:00337754 2114 0001:00337764 2115 0001:00337774 + 2116 0001:003377AB 2117 0001:003377E2 2127 0001:003377EC 2128 0001:0033780C + 2129 0001:0033781B 2130 0001:00337825 2132 0001:00337836 2133 0001:00337847 + 2134 0001:00337858 2135 0001:00337869 2136 0001:0033787A 2137 0001:00337895 + 2138 0001:003378A6 2139 0001:003378B7 2140 0001:003378C8 2141 0001:003378D9 + 2142 0001:003378EA 2143 0001:0033790C 2144 0001:0033792E 2145 0001:0033794C + 2146 0001:00337964 2147 0001:00337983 2148 0001:00337998 2149 0001:003379AD + 2153 0001:003379C2 2154 0001:003379EF 2155 0001:00337A11 2156 0001:00337A25 + 2157 0001:00337A3A 2159 0001:00337A4F 2162 0001:00337A60 2163 0001:00337A6C + 2164 0001:00337A7A 2165 0001:00337A92 2166 0001:00337A98 2167 0001:00337AC9 + 2168 0001:00337ACF 2169 0001:00337B00 2170 0001:00337B06 2171 0001:00337B37 + 2172 0001:00337B3D 2174 0001:00337B6E 2175 0001:00337B86 2176 0001:00337B8C + 2177 0001:00337BBD 2178 0001:00337BC3 2179 0001:00337BF4 2180 0001:00337BFA + 2183 0001:00337C38 2185 0001:00337C4C 2186 0001:00337CAE 2192 0001:00337D78 + 2193 0001:00337D98 2194 0001:00337DA2 2195 0001:00337DB1 2198 0001:00337DBF + 2199 0001:00337DD7 2201 0001:00337DF7 2202 0001:00337E17 2203 0001:00337E37 + 2204 0001:00337E57 2205 0001:00337E77 2206 0001:00337EA1 2207 0001:00337EC1 + 2208 0001:00337EE1 2209 0001:00337F01 2210 0001:00337F21 2211 0001:00337F41 + 2212 0001:00337F7A 2213 0001:00337FB3 2216 0001:00337FE0 2217 0001:0033800B + 2222 0001:00338061 2227 0001:003380BC 2234 0001:00338108 2237 0001:0033815C + 2240 0001:0033817C 2242 0001:0033819C 2243 0001:003381A8 2246 0001:003381D0 + 2248 0001:003381DF 2250 0001:003381F4 2252 0001:0033823B 2257 0001:00338308 + 2258 0001:00338315 2259 0001:00338335 2260 0001:00338342 2261 0001:00338378 + 2262 0001:003383AE 2263 0001:003383E4 2264 0001:0033841A 2265 0001:00338450 + 2266 0001:00338486 2267 0001:003384BC 2268 0001:003384FC 2269 0001:00338532 + 2270 0001:00338568 2272 0001:00338574 2273 0001:003385A1 2274 0001:003385D3 + 2276 0001:003385FB 2277 0001:0033861C 2278 0001:00338640 2279 0001:0033864B + 2289 0001:00338650 2292 0001:0033865D 2293 0001:0033866C 2294 0001:0033867A + 2295 0001:00338682 2296 0001:00338690 2297 0001:0033869E 2298 0001:003386AC + 2299 0001:003386C6 2300 0001:003386E0 2301 0001:003386FA 2302 0001:00338714 + 2303 0001:0033872E 2304 0001:00338748 2305 0001:00338762 2306 0001:0033877C + 2307 0001:00338796 2308 0001:003387B0 2309 0001:003387CA 2310 0001:003387E4 + 2311 0001:003387FE 2312 0001:00338818 2313 0001:00338832 2315 0001:0033884C + 2316 0001:00338864 2317 0001:0033886C 2318 0001:00338880 2319 0001:00338898 + 2320 0001:003388DC 2323 0001:00338926 2325 0001:0033893A 2326 0001:0033895C + 2328 0001:00338968 2329 0001:00338988 2334 0001:003389A4 2335 0001:003389AC + 2337 0001:003389C4 2340 0001:003389E1 2344 0001:003389F1 2346 0001:00338A08 + 2347 0001:00338A1E 2350 0001:00338A34 2351 0001:00338A7D 2352 0001:00338A8F + 2353 0001:00338AA1 2354 0001:00338AB3 2355 0001:00338AC5 2356 0001:00338AD7 + 2360 0001:00338AE7 2361 0001:00338AF9 2362 0001:00338B0B 2363 0001:00338B1D + 2364 0001:00338B2F 2365 0001:00338B41 2366 0001:00338B53 2367 0001:00338B65 + 2368 0001:00338B81 2369 0001:00338B93 2370 0001:00338BA5 2371 0001:00338BB2 + 2372 0001:00338BBA 2373 0001:00338BD0 2374 0001:00338BE9 2375 0001:00338BFC + 2394 0001:00338C04 2395 0001:00338C0E 2396 0001:00338C33 2397 0001:00338C5F + 2398 0001:00338C7F 2399 0001:00338C99 2400 0001:00338CC2 2404 0001:00338D16 + 2405 0001:00338D30 2406 0001:00338D4A 2407 0001:00338D64 2408 0001:00338D8A + 2409 0001:00338DAD 2410 0001:00338DD0 2411 0001:00338DFA 2412 0001:00338E22 + 2413 0001:00338E2E 2414 0001:00338E63 2415 0001:00338E6F 2417 0001:00338EA5 + 2419 0001:00338EEF 2420 0001:00338F1A 2421 0001:00338F2D 2422 0001:00338F40 + 2423 0001:00338F88 2424 0001:00338F9B 2425 0001:00338FAE 2435 0001:00338FF6 + 2436 0001:00339006 2441 0001:00339010 2442 0001:0033901C 2444 0001:0033902D + 2445 0001:00339036 2447 0001:00339042 2449 0001:0033904C 2452 0001:00339050 + 2453 0001:0033905C 2454 0001:00339066 2456 0001:00339072 2457 0001:0033907C + 2460 0001:00339088 2462 0001:00339099 2463 0001:003390A4 2464 0001:003390B1 + 2467 0001:003390BF 2472 0001:00339154 2473 0001:00339160 2474 0001:0033916B + 2475 0001:00339197 2477 0001:003391A7 2478 0001:003391D3 2479 0001:003391FF + 2480 0001:0033922B 2481 0001:0033922F 2482 0001:00339259 2483 0001:0033927D + 2484 0001:00339297 2487 0001:003392C5 2488 0001:003392D5 2489 0001:003392E5 + 2490 0001:003392F5 2492 0001:00339305 2495 0001:0033930C 2496 0001:00339318 + 2497 0001:0033932F 2500 0001:00339334 2501 0001:00339340 2502 0001:0033934E + 2505 0001:00339354 2506 0001:00339360 2507 0001:0033936E 2510 0001:00339374 + 2511 0001:00339393 2513 0001:003393CE 2516 0001:003393D4 2517 0001:003393E0 + 2518 0001:0033942C 2519 0001:0033943D 2520 0001:0033944E 2521 0001:0033945F + 2522 0001:00339470 2523 0001:00339481 2524 0001:00339492 2525 0001:003394A3 + 2527 0001:003394BC 2533 0001:003394C0 2535 0001:003394D0 2537 0001:003394E1 + 2539 0001:003394F4 2540 0001:00339513 2541 0001:00339528 2542 0001:0033954A + 2544 0001:00339562 2547 0001:00339571 2548 0001:0033957E 2550 0001:00339594 + 2551 0001:0033959B 2554 0001:003395A4 2555 0001:003395B0 2557 0001:003395DC + 2560 0001:00339608 2561 0001:0033962E 2564 0001:0033963B 2566 0001:0033964B + 2569 0001:00339677 2570 0001:0033969D 2573 0001:003396AA 2575 0001:003396B7 + 2578 0001:003396E3 2579 0001:00339709 2582 0001:00339713 2584 0001:00339720 + 2586 0001:0033972B 2589 0001:00339737 2590 0001:00339746 2591 0001:00339755 + 2593 0001:00339766 2597 0001:00339772 2600 0001:0033977E 2601 0001:0033978D + 2602 0001:0033979C 2604 0001:003397AB 2609 0001:003397DC 2610 0001:003397FB + 2611 0001:00339809 2612 0001:00339821 2615 0001:00339838 2616 0001:00339845 + 2620 0001:0033985D 2621 0001:0033986A 2625 0001:00339882 2626 0001:0033988F + 2630 0001:003398A4 2631 0001:003398B1 2635 0001:003398C6 2636 0001:003398D3 + 2637 0001:003398EB 2638 0001:00339908 2641 0001:00339918 2643 0001:00339925 + 2645 0001:00339937 2646 0001:00339953 2647 0001:0033996F 2648 0001:0033997F + 2650 0001:00339992 2651 0001:003399A2 2652 0001:003399B2 2653 0001:003399C2 + 2654 0001:003399D4 2655 0001:00339A05 2656 0001:00339A2C 2660 0001:00339A4B + 2661 0001:00339A5B 2662 0001:00339A6B 2663 0001:00339A8D 2665 0001:00339A9D + 2666 0001:00339AD8 2670 0001:00339C84 2671 0001:00339C93 2672 0001:00339C9D + 2673 0001:00339CA2 2674 0001:00339CB1 2675 0001:00339CC1 2679 0001:00339CC8 + 2680 0001:00339CD7 2681 0001:00339CE7 2682 0001:00339CF6 2683 0001:00339D07 + 2692 0001:00339D10 2694 0001:00339D33 2696 0001:00339D40 2697 0001:00339D56 + 2698 0001:00339D69 2699 0001:00339D7C 2700 0001:00339D8F 2701 0001:00339DA2 + 2702 0001:00339DB5 2703 0001:00339DC5 2704 0001:00339DD5 2705 0001:00339DE5 + 2706 0001:00339DF5 2707 0001:00339E05 2708 0001:00339E15 2710 0001:00339E37 + 2711 0001:00339E47 2712 0001:00339E57 2713 0001:00339E67 2714 0001:00339E77 + 2716 0001:00339E92 2717 0001:00339EA8 2718 0001:00339EBE 2719 0001:00339ED4 + 2720 0001:00339EEA 2721 0001:00339EFD 2722 0001:00339F10 2723 0001:00339F23 + 2727 0001:00339F3B 2728 0001:00339F51 2729 0001:00339F67 2730 0001:00339F7D + 2735 0001:00339F98 2736 0001:00339FAE 2737 0001:00339FC4 2738 0001:00339FDA + 2739 0001:00339FEA 2740 0001:00339FFA 2741 0001:0033A00A 2742 0001:0033A01A + 2744 0001:0033A038 2748 0001:0033A055 2749 0001:0033A06B 2750 0001:0033A07E + 2751 0001:0033A091 2752 0001:0033A0A4 2753 0001:0033A0B4 2754 0001:0033A0C7 + 2755 0001:0033A0DA 2756 0001:0033A0EA 2757 0001:0033A0FA 2759 0001:0033A11C + 2760 0001:0033A12C 2761 0001:0033A13C 2762 0001:0033A14C 2763 0001:0033A15C + 2765 0001:0033A177 2766 0001:0033A18D 2767 0001:0033A1A3 2768 0001:0033A1B9 + 2769 0001:0033A1CF 2770 0001:0033A1E2 2771 0001:0033A1F5 2772 0001:0033A208 + 2776 0001:0033A21D 2777 0001:0033A233 2778 0001:0033A249 2779 0001:0033A25F + 2780 0001:0033A275 2782 0001:0033A288 2783 0001:0033A2A0 2784 0001:0033A2B8 + 2785 0001:0033A2C5 2786 0001:0033A2DD 2788 0001:0033A2FB 2789 0001:0033A310 + 2791 0001:0033A364 2786 0001:0033A367 2795 0001:0033A371 2796 0001:0033A387 + 2797 0001:0033A39D 2798 0001:0033A3B3 2799 0001:0033A3C3 2800 0001:0033A3D3 + 2801 0001:0033A3E3 2802 0001:0033A3F3 2804 0001:0033A411 2805 0001:0033A419 + 2807 0001:0033A43D 2808 0001:0033A453 2809 0001:0033A468 2812 0001:0033A49D + 2817 0001:0033A60C 2848 0001:0033A618 2849 0001:0033A629 2862 0001:0033A630 + 2863 0001:0033A655 2864 0001:0033A65C 2865 0001:0033A661 2866 0001:0033A675 + 2867 0001:0033A67F 2869 0001:0033A6D6 2872 0001:0033A6F4 2873 0001:0033A6FE + 2874 0001:0033A711 2875 0001:0033A724 2876 0001:0033A737 2877 0001:0033A747 + 2878 0001:0033A75A 2879 0001:0033A76D 2880 0001:0033A77D 2881 0001:0033A78D + 2883 0001:0033A7AF 2884 0001:0033A7BF 2885 0001:0033A7CF 2886 0001:0033A7DF + 2888 0001:0033A7FA 2889 0001:0033A810 2890 0001:0033A826 2891 0001:0033A83C + 2892 0001:0033A84F 2893 0001:0033A862 2894 0001:0033A875 2898 0001:0033A88A + 2899 0001:0033A8A0 2900 0001:0033A8B6 2901 0001:0033A8CC 2904 0001:0033A8E2 + 2905 0001:0033A8ED 2908 0001:0033A8F2 2912 0001:0033A90A 2913 0001:0033A914 + 2914 0001:0033A927 2915 0001:0033A93A 2916 0001:0033A94D 2917 0001:0033A960 + 2918 0001:0033A973 2919 0001:0033A983 2920 0001:0033A993 2921 0001:0033A99E + 2923 0001:0033A9A3 2925 0001:0033A9AC 2926 0001:0033A9BD 2927 0001:0033A9D0 + 2929 0001:0033A9D5 2930 0001:0033A9EB 2931 0001:0033AA28 2933 0001:0033AA2F + 2935 0001:0033AA53 2936 0001:0033AA6B 2937 0001:0033AA83 2938 0001:0033AA9B + 2940 0001:0033AAB3 2941 0001:0033AABD 2942 0001:0033AAD5 2943 0001:0033AAED + 2944 0001:0033AB0C 2945 0001:0033AB2B 2946 0001:0033AB35 2947 0001:0033AB74 + 2949 0001:0033AB8D 2950 0001:0033AB9A 2951 0001:0033ABB4 2953 0001:0033ABCC + 2954 0001:0033ABE2 2955 0001:0033ABFB 2956 0001:0033AC12 2957 0001:0033AC29 + 2950 0001:0033AC2C 2961 0001:0033AC36 2962 0001:0033AC43 2964 0001:0033AC5D + 2967 0001:0033AC6D 2968 0001:0033AC7B 2969 0001:0033AC9E 2970 0001:0033ACBA + 2971 0001:0033ACED 2973 0001:0033AD0F 2975 0001:0033AD31 2976 0001:0033AD47 + 2977 0001:0033AD5E 2978 0001:0033AD75 2982 0001:0033AD8C 2983 0001:0033AD9B + 2984 0001:0033ADB1 2985 0001:0033ADFE 2986 0001:0033AE10 2990 0001:0033AE15 + 2991 0001:0033AE2B 2992 0001:0033AE42 2993 0001:0033AE59 2996 0001:0033AE70 + 2997 0001:0033AE7F 2998 0001:0033AE95 2999 0001:0033AEAC 3000 0001:0033AEC3 + 3002 0001:0033AEDA 3005 0001:0033AF00 3006 0001:0033AF16 3007 0001:0033AF2D + 3008 0001:0033AF44 3012 0001:0033AF5B 3013 0001:0033AF71 3014 0001:0033AFBE + 3015 0001:0033AFD0 3018 0001:0033AFD5 3019 0001:0033AFE4 3020 0001:0033AFFA + 3021 0001:0033B047 3025 0001:0033B059 2962 0001:0033B05C 3029 0001:0033B06A + 3031 0001:0033B074 3032 0001:0033B07D 3034 0001:0033B0A7 3035 0001:0033B0C0 + 3037 0001:0033B0CD 3040 0001:0033B0DD 3041 0001:0033B0EB 3042 0001:0033B10E + 3043 0001:0033B127 3044 0001:0033B157 3046 0001:0033B179 3048 0001:0033B19B + 3049 0001:0033B1AE 3050 0001:0033B1C5 3051 0001:0033B1DC 3055 0001:0033B1F3 + 3056 0001:0033B202 3057 0001:0033B215 3058 0001:0033B26B 3062 0001:0033B282 + 3063 0001:0033B295 3064 0001:0033B2AC 3065 0001:0033B2C3 3068 0001:0033B2DA + 3069 0001:0033B2E9 3070 0001:0033B2FC 3071 0001:0033B313 3072 0001:0033B32A + 3074 0001:0033B341 3077 0001:0033B36D 3078 0001:0033B380 3079 0001:0033B397 + 3080 0001:0033B3AE 3084 0001:0033B3C5 3085 0001:0033B3D8 3088 0001:0033B433 + 3089 0001:0033B442 3090 0001:0033B455 3091 0001:0033B4AB 3095 0001:0033B4BD + 3096 0001:0033B4E7 3098 0001:0033B511 3099 0001:0033B525 3102 0001:0033B557 + 3103 0001:0033B573 3104 0001:0033B5D2 3105 0001:0033B631 3109 0001:0033B645 + 3110 0001:0033B652 3111 0001:0033B66C 3114 0001:0033B67D 3115 0001:0033B6B0 + 3117 0001:0033B6E3 3110 0001:0033B6E6 3120 0001:0033B6EB 3121 0001:0033B710 + 3122 0001:0033B739 3123 0001:0033B772 3126 0001:0033B9E4 3127 0001:0033B9F0 + 3128 0001:0033BA00 3129 0001:0033BA0E 3130 0001:0033BA1E 3134 0001:0033BA24 + 3135 0001:0033BA31 3136 0001:0033BA44 3137 0001:0033BA56 3138 0001:0033BA6E + 3142 0001:0033BA74 3143 0001:0033BA81 3144 0001:0033BA94 3145 0001:0033BAA6 + 3146 0001:0033BABE 3151 0001:0033BAC4 3152 0001:0033BAE6 3153 0001:0033BB00 + 3154 0001:0033BB47 3157 0001:0033BB4C 3158 0001:0033BB6F 3159 0001:0033BB88 + 3160 0001:0033BBB7 3161 0001:0033BBF4 3162 0001:0033BC2D 3165 0001:0033BC40 + 3166 0001:0033BC4C 3167 0001:0033BC51 3182 0001:0033BC58 3183 0001:0033BC5B + 3184 0001:0033BC67 3185 0001:0033BC74 3186 0001:0033BC97 3187 0001:0033BCAA + 3188 0001:0033BCBD 3190 0001:0033BCC0 3191 0001:0033BCE2 3192 0001:0033BCF3 + 3193 0001:0033BD2F 3194 0001:0033BD3E 3195 0001:0033BD4D 3196 0001:0033BD5C + 3197 0001:0033BD6B 3198 0001:0033BD7A 3199 0001:0033BD89 3200 0001:0033BD98 + 3204 0001:0033BDA5 3205 0001:0033BDCE 3207 0001:0033BDE4 3208 0001:0033BDF0 + 3209 0001:0033BDFC 3211 0001:0033BE09 3213 0001:0033BE21 3214 0001:0033BE2D + 3217 0001:0033BE3A 3220 0001:0033BE43 3222 0001:0033BE6C 3228 0001:0033C110 + 3229 0001:0033C11C 3230 0001:0033C121 3231 0001:0033C129 3234 0001:0033C130 + 3235 0001:0033C14C 3237 0001:0033C154 3238 0001:0033C17B 3241 0001:0033C180 + 3242 0001:0033C187 3244 0001:0033C18F 3245 0001:0033C194 3248 0001:0033C198 + 3249 0001:0033C1A4 3250 0001:0033C1AE 3251 0001:0033C1BC 3253 0001:0033C1D4 + 3255 0001:0033C1E6 3258 0001:0033C1EC 3259 0001:0033C1F9 3260 0001:0033C206 + 3261 0001:0033C218 3262 0001:0033C228 3266 0001:0033C230 3267 0001:0033C23C + 3269 0001:0033C246 3270 0001:0033C252 3273 0001:0033C25C 3275 0001:0033C266 + 3276 0001:0033C272 3278 0001:0033C27A 3280 0001:0033C284 3281 0001:0033C290 + 3283 0001:0033C298 3295 0001:0033C29C 3297 0001:0033C2CA 3299 0001:0033C30D + 3300 0001:0033C324 3303 0001:0033C33E 3304 0001:0033C355 3305 0001:0033C36A + 3308 0001:0033C37B 3309 0001:0033C392 3315 0001:0033C3AC 3316 0001:0033C3C3 + 3319 0001:0033C3DD 3320 0001:0033C3F4 3323 0001:0033C40E 3324 0001:0033C425 + 3327 0001:0033C43F 3328 0001:0033C456 3331 0001:0033C470 3332 0001:0033C487 + 3335 0001:0033C49E 3336 0001:0033C4B5 3339 0001:0033C4CC 3340 0001:0033C4E3 + 3345 0001:0033C4F8 3347 0001:0033C4FE 3348 0001:0033C518 3349 0001:0033C531 + 3353 0001:0033C546 3354 0001:0033C55E 3356 0001:0033C597 3361 0001:0033C59C + 3362 0001:0033C5A8 3363 0001:0033C5C0 3362 0001:0033C5EB 3364 0001:0033C5F0 + 3367 0001:0033C5F4 3368 0001:0033C613 3369 0001:0033C650 3372 0001:0033C654 + 3375 0001:0033C65B 3376 0001:0033C674 3379 0001:0033C68D 3380 0001:0033C69D + 3381 0001:0033C6AD 3382 0001:0033C6BD 3383 0001:0033C6CD 3384 0001:0033C6DD + 3385 0001:0033C6ED 3386 0001:0033C6FD 3387 0001:0033C70D 3391 0001:0033C71D + 3392 0001:0033C735 3393 0001:0033C74C 3402 0001:0033C763 3403 0001:0033C771 + 3404 0001:0033C77F 3405 0001:0033C78D 3406 0001:0033C79B 3407 0001:0033C7A9 + 3408 0001:0033C7B7 3409 0001:0033C7C5 3410 0001:0033C7CF 3411 0001:0033C7DD + 3414 0001:0033C7EB 3415 0001:0033C7FF 3417 0001:0033C818 3422 0001:0033C848 + 3423 0001:0033C862 3424 0001:0033C875 3425 0001:0033C881 3426 0001:0033C890 + 3427 0001:0033C899 3429 0001:0033C8A3 3430 0001:0033C8BC 3431 0001:0033C8D7 + 3433 0001:0033C8F0 3434 0001:0033C8FE 3435 0001:0033C90C 3437 0001:0033C91B + 3439 0001:0033C93C 3440 0001:0033C94A 3441 0001:0033C95C 3442 0001:0033C978 + 3443 0001:0033C98E 3444 0001:0033C9A7 3445 0001:0033C9B5 3448 0001:0033C9BF + 3449 0001:0033C9E9 3454 0001:0033C9F0 3456 0001:0033C9FF 3457 0001:0033CA11 + 3458 0001:0033CA17 3461 0001:0033CA24 3462 0001:0033CA31 3463 0001:0033CA3B + 3464 0001:0033CA69 3465 0001:0033CA7A 3466 0001:0033CA80 3468 0001:0033CA85 + 3469 0001:0033CA88 3470 0001:0033CAA1 3471 0001:0033CABA 3472 0001:0033CAC0 + 3473 0001:0033CAD7 3474 0001:0033CAEB 3475 0001:0033CAFC 3479 0001:0033CB04 + 3482 0001:0033CB0C 3483 0001:0033CB18 3484 0001:0033CB24 3485 0001:0033CB32 + 3488 0001:0033CB38 3489 0001:0033CB44 3490 0001:0033CB55 3492 0001:0033CB8D + 3494 0001:0033CB99 3495 0001:0033CBA3 3500 0001:0033CBA8 3501 0001:0033CBB5 + 3502 0001:0033CBC6 3505 0001:0033CBD0 3507 0001:0033CBE6 3508 0001:0033CBF4 + 3509 0001:0033CC02 3510 0001:0033CC08 3511 0001:0033CC20 3512 0001:0033CC33 + 3513 0001:0033CC4B 3516 0001:0033CC5C 3519 0001:0033CC8C 3520 0001:0033CC98 + 3521 0001:0033CCA9 3524 0001:0033CCB0 3527 0001:0033CCBC 3528 0001:0033CCCD + 3531 0001:0033CCD4 3533 0001:0033CCE0 3534 0001:0033CCF1 3537 0001:0033CCF8 + 3538 0001:0033CD04 3539 0001:0033CD13 3541 0001:0033CD24 3544 0001:0033CD28 + 3545 0001:0033CD34 3546 0001:0033CD45 3551 0001:0033CD4C 3555 0001:0033CD6E + 3556 0001:0033CD81 3557 0001:0033CD8B 3558 0001:0033CDAF 3559 0001:0033CDC7 + 3560 0001:0033CDD7 3561 0001:0033CDE7 3562 0001:0033CDF7 3563 0001:0033CE07 + 3564 0001:0033CE2E 3573 0001:0033CF18 3574 0001:0033CF4D 3575 0001:0033CF51 + 3576 0001:0033CF56 3578 0001:0033CF64 3580 0001:0033CF74 3581 0001:0033CF7E + 3582 0001:0033CFA2 3583 0001:0033CFBA 3584 0001:0033CFC8 3586 0001:0033CFED + 3588 0001:0033D003 3590 0001:0033D00F 3591 0001:0033D013 3594 0001:0033D020 + 3595 0001:0033D02D 3596 0001:0033D040 3602 0001:0033D04D 3603 0001:0033D05A + 3604 0001:0033D06D 3605 0001:0033D0DB 3607 0001:0033D0ED 3608 0001:0033D0FA + 3609 0001:0033D100 3611 0001:0033D139 3612 0001:0033D166 3613 0001:0033D18B + 3615 0001:0033D19D 3617 0001:0033D1AA 3618 0001:0033D1B7 3619 0001:0033D1BD + 3621 0001:0033D1D2 3622 0001:0033D1E5 3623 0001:0033D20A 3627 0001:0033D21C + 3628 0001:0033D226 3629 0001:0033D234 3631 0001:0033D262 3633 0001:0033D278 + 3635 0001:0033D284 3636 0001:0033D28C 3637 0001:0033D290 3643 0001:0033D29D + 3644 0001:0033D2A1 3647 0001:0033D2AE 3648 0001:0033D2B6 3652 0001:0033D2BC + 3653 0001:0033D2CC 3654 0001:0033D2DC 3655 0001:0033D2EE 3656 0001:0033D306 + 3657 0001:0033D32E 3659 0001:0033D337 3662 0001:0033D33D 3663 0001:0033D34B + 3664 0001:0033D35B 3665 0001:0033D36B 3666 0001:0033D393 3668 0001:0033D39C + 3673 0001:0033D3A6 3674 0001:0033D3B4 3675 0001:0033D3C4 3676 0001:0033D3D4 + 3677 0001:0033D3E6 3678 0001:0033D3FE 3679 0001:0033D426 3681 0001:0033D433 + 3682 0001:0033D441 3683 0001:0033D457 3684 0001:0033D470 3686 0001:0033D47E + 3687 0001:0033D4A4 3688 0001:0033D4AE 3689 0001:0033D4D3 3690 0001:0033D4E4 + 3693 0001:0033D503 3695 0001:0033D506 3697 0001:0033D5B3 3700 0001:0033D78C + 3702 0001:0033D798 3703 0001:0033D7C0 3713 0001:0033D7C4 3720 0001:0033D7EF + 3722 0001:0033D7FB 3725 0001:0033D805 3726 0001:0033D80F 3727 0001:0033D81D + 3729 0001:0033D82B 3732 0001:0033D854 3734 0001:0033D86A 3736 0001:0033D876 + 3737 0001:0033D87E 3741 0001:0033D883 3746 0001:0033D88B 3747 0001:0033D895 + 3748 0001:0033D8B9 3749 0001:0033D8D1 3751 0001:0033D8DC 3752 0001:0033D8EA + 3753 0001:0033D8F8 3754 0001:0033D909 3755 0001:0033D915 3756 0001:0033D921 + 3757 0001:0033D939 3758 0001:0033D96D 3765 0001:0033D9CC 3767 0001:0033D9F3 + 3768 0001:0033D9FD 3770 0001:0033DA0B 3772 0001:0033DA72 3773 0001:0033DA7F + 3775 0001:0033DA8E 3776 0001:0033DA96 3780 0001:0033DAA3 3782 0001:0033DAD9 + 3784 0001:0033DAEF 3786 0001:0033DAFB 3787 0001:0033DB03 3789 0001:0033DB08 + 3790 0001:0033DB12 3791 0001:0033DB1C 3794 0001:0033DB23 3796 0001:0033DB3B + 3797 0001:0033DB54 3792 0001:0033DB57 3801 0001:0033DB72 3802 0001:0033DB7F + 3803 0001:0033DB96 3804 0001:0033DBA8 3805 0001:0033DBC0 3806 0001:0033DC28 + 3817 0001:0033DC8C 3818 0001:0033DCAA 3819 0001:0033DCC0 3820 0001:0033DCC9 + 3822 0001:0033DD1D 3823 0001:0033DD79 3824 0001:0033DDF7 3826 0001:0033DE28 + 3827 0001:0033DE4E 3829 0001:0033DE58 3830 0001:0033DE60 3832 0001:0033DE65 + 3837 0001:0033DE72 3838 0001:0033DE7C 3839 0001:0033DE8A 3841 0001:0033DEB2 + 3843 0001:0033DEC8 3845 0001:0033DED4 3846 0001:0033DEDC 3849 0001:0033DEE1 + 3850 0001:0033DEE7 3852 0001:0033DF19 3853 0001:0033DF49 3855 0001:0033DF4F + 3856 0001:0033DF7C 3859 0001:0033DF94 3860 0001:0033DF9B 3863 0001:0033DFA6 + 3864 0001:0033DFAE 3865 0001:0033E00E 3870 0001:0033E07C 3871 0001:0033E098 + 3873 0001:0033E0A8 3874 0001:0033E0B3 3877 0001:0033E0D5 3878 0001:0033E0ED + 3880 0001:0033E0FC 3882 0001:0033E112 3883 0001:0033E11A 3886 0001:0033E11F + 3887 0001:0033E127 3888 0001:0033E133 3890 0001:0033E140 3891 0001:0033E14E + 3892 0001:0033E164 3893 0001:0033E17D 3895 0001:0033E18B 3896 0001:0033E1B1 + 3897 0001:0033E1C7 3898 0001:0033E1D3 3899 0001:0033E1DB 3900 0001:0033E1FC + 3903 0001:0033E20F 3904 0001:0033E234 3907 0001:0033E244 3908 0001:0033E253 + 3909 0001:0033E25D 3910 0001:0033E26F 3911 0001:0033E287 3912 0001:0033E2AF + 3913 0001:0033E2BD 3915 0001:0033E2E2 3917 0001:0033E2F8 3918 0001:0033E304 + 3919 0001:0033E316 3920 0001:0033E32E 3921 0001:0033E356 3922 0001:0033E366 + 3923 0001:0033E376 3928 0001:0033E3F4 3929 0001:0033E416 3930 0001:0033E41E + 3931 0001:0033E431 3932 0001:0033E443 3933 0001:0033E45B 3934 0001:0033E483 + 3935 0001:0033E48D 3936 0001:0033E49B 3938 0001:0033E4C0 3940 0001:0033E4D6 + 3941 0001:0033E4E6 3942 0001:0033E4EE 3943 0001:0033E500 3944 0001:0033E518 + 3945 0001:0033E540 3946 0001:0033E550 3947 0001:0033E560 3948 0001:0033E58D + 3954 0001:0033E604 3955 0001:0033E626 3956 0001:0033E62E 3957 0001:0033E641 + 3958 0001:0033E653 3959 0001:0033E66B 3960 0001:0033E693 3961 0001:0033E69D + 3962 0001:0033E6AB 3964 0001:0033E6D0 3966 0001:0033E6E6 3967 0001:0033E6F6 + 3969 0001:0033E713 3970 0001:0033E723 3971 0001:0033E733 3972 0001:0033E743 + 3973 0001:0033E755 3974 0001:0033E76D 3978 0001:0033E79A 3979 0001:0033E7AA + 3980 0001:0033E7BA 3981 0001:0033E7CC 3982 0001:0033E7E4 3983 0001:0033E80C + 3984 0001:0033E81A 3986 0001:0033E853 3989 0001:0033E869 3990 0001:0033E873 + 3991 0001:0033E898 3992 0001:0033E8C6 3999 0001:0033E978 4000 0001:0033E9AB + 4002 0001:0033E9B5 4003 0001:0033E9BB 4005 0001:0033E9C0 4007 0001:0033E9CB + 4009 0001:0033E9D6 4010 0001:0033EA06 4011 0001:0033EA2E 4012 0001:0033EB03 + 4018 0001:0033EB44 4019 0001:0033EB6F 4021 0001:0033EB79 4022 0001:0033EB7F + 4024 0001:0033EB81 4025 0001:0033EB8C 4026 0001:0033EBC5 4035 0001:0033EBCC + 4036 0001:0033EC00 4037 0001:0033EC0B 4039 0001:0033EC3B 4041 0001:0033EC45 + 4042 0001:0033EC67 4044 0001:0033EC7A 4045 0001:0033EC91 4046 0001:0033ECAB + 4047 0001:0033ECDF 4049 0001:0033ED0F 4052 0001:0033ED79 4055 0001:0033EE08 + 4056 0001:0033EE0F 4057 0001:0033EE19 4058 0001:0033EE29 4059 0001:0033EE37 + 4060 0001:0033EE47 4061 0001:0033EE57 4062 0001:0033EE67 4063 0001:0033EE77 + 4064 0001:0033EE87 4065 0001:0033EE97 4066 0001:0033EEA7 4067 0001:0033EEB7 + 4068 0001:0033EEC7 4069 0001:0033EED7 4070 0001:0033EEE7 4071 0001:0033EEF7 + 4072 0001:0033EF07 4073 0001:0033EF17 4076 0001:0033EF1C 4077 0001:0033EF23 + 4078 0001:0033EF2D 4079 0001:0033EF3D 4080 0001:0033EF4B 4081 0001:0033EF5B + 4082 0001:0033EF6B 4083 0001:0033EF7B 4084 0001:0033EF8B 4085 0001:0033EF9B + 4086 0001:0033EFAB 4087 0001:0033EFBB 4088 0001:0033EFCB 4090 0001:0033EFD7 + 4092 0001:0033EFEC 4093 0001:0033EFFC 4096 0001:0033F00E 4097 0001:0033F01E + 4100 0001:0033F02E 4101 0001:0033F03E 4102 0001:0033F04E 4103 0001:0033F05E + 4108 0001:0033F07C 4109 0001:0033F08B 4110 0001:0033F09B 4114 0001:0033F0A4 + 4115 0001:0033F0B3 4116 0001:0033F0C3 4119 0001:0033F0CC 4121 0001:0033F0D8 + 4122 0001:0033F0E9 4125 0001:0033F0F0 4126 0001:0033F0FC 4127 0001:0033F121 + 4128 0001:0033F12F 4129 0001:0033F13D 4131 0001:0033F149 4135 0001:0033F150 + 4136 0001:0033F172 4137 0001:0033F194 4138 0001:0033F1C1 4143 0001:0033F1C8 + 4144 0001:0033F1E8 4145 0001:0033F20A 4146 0001:0033F22C 4147 0001:0033F234 + 4148 0001:0033F283 4156 0001:0033F294 4157 0001:0033F2CB 4158 0001:0033F2EF + 4160 0001:0033F315 4161 0001:0033F328 4163 0001:0033F350 4164 0001:0033F358 + 4165 0001:0033F36B 4166 0001:0033F37B 4168 0001:0033F38D 4169 0001:0033F3A4 + 4170 0001:0033F3D3 4166 0001:0033F3D6 4172 0001:0033F3DD 4173 0001:0033F3F0 + 4175 0001:0033F412 4176 0001:0033F428 4177 0001:0033F43B 4178 0001:0033F44E + 4181 0001:0033F47D 4183 0001:0033F4B9 4186 0001:0033F534 4187 0001:0033F540 + 4188 0001:0033F550 4189 0001:0033F560 4190 0001:0033F573 4193 0001:0033F578 + 4194 0001:0033F584 4195 0001:0033F597 4196 0001:0033F5A7 4197 0001:0033F5B7 + 4201 0001:0033F5BC 4202 0001:0033F5CB 4203 0001:0033F5ED 4206 0001:0033F5F4 + 4209 0001:0033F600 4210 0001:0033F60F 4211 0001:0033F61E 4213 0001:0033F631 + 4214 0001:0033F642 4217 0001:0033F648 4218 0001:0033F654 4219 0001:0033F65E + 4222 0001:0033F664 4223 0001:0033F671 4224 0001:0033F67E 4226 0001:0033F690 + 4227 0001:0033F69C 4228 0001:0033F6A4 4229 0001:0033F6AE 4234 0001:0033F6B4 + 4235 0001:0033F6BD 4237 0001:0033F6D2 4238 0001:0033F6E4 4239 0001:0033F705 + 4240 0001:0033F710 4235 0001:0033F713 4241 0001:0033F719 4245 0001:0033F720 + 4246 0001:0033F72F 4248 0001:0033F748 4249 0001:0033F750 4251 0001:0033F756 + 4254 0001:0033F75C 4255 0001:0033F77E 4256 0001:0033F78E 4258 0001:0033F79B + 4259 0001:0033F7AF 4262 0001:0033F7BD 4263 0001:0033F7CE 4264 0001:0033F7D8 + 4265 0001:0033F7E2 4266 0001:0033F811 4267 0001:0033F821 4268 0001:0033F82D + 4270 0001:0033F83C 4271 0001:0033F846 4274 0001:0033F85D 4276 0001:0033F86E + 4277 0001:0033F878 4278 0001:0033F882 4281 0001:0033F88B 4284 0001:0033F89D + 4286 0001:0033F8B2 4287 0001:0033F8E1 4288 0001:0033F8ED 4291 0001:0033F910 + 4292 0001:0033F91A 4297 0001:0033F926 4298 0001:0033F930 4299 0001:0033F93A + 4300 0001:0033F944 4301 0001:0033F94B 4312 0001:0033F956 4313 0001:0033F986 + 4316 0001:0033F9B4 4317 0001:0033F9C3 4318 0001:0033F9D3 4321 0001:0033F9DC + 4322 0001:0033F9EB 4323 0001:0033F9FB 4326 0001:0033FA04 4329 0001:0033FA10 + 4330 0001:0033FA21 4336 0001:0033FA28 4347 0001:0033FA34 4348 0001:0033FA45 + 4356 0001:0033FA4C 4357 0001:0033FA75 4359 0001:0033FABE 4360 0001:0033FAC8 + 4361 0001:0033FAD0 4362 0001:0033FADC 4363 0001:0033FAEA 4364 0001:0033FAF1 + 4367 0001:0033FB11 4368 0001:0033FB22 4371 0001:0033FB32 4374 0001:0033FB52 + 4375 0001:0033FB76 4378 0001:0033FBA5 4380 0001:0033FBC9 4381 0001:0033FBDD + 4382 0001:0033FBE7 4383 0001:0033FBF3 4387 0001:0033FC05 4390 0001:0033FC11 + 4392 0001:0033FC1E 4393 0001:0033FC2E 4394 0001:0033FC46 4395 0001:0033FC59 + 4396 0001:0033FC6C 4397 0001:0033FC7C 4398 0001:0033FC8C 4399 0001:0033FC9C + 4400 0001:0033FCAA 4401 0001:0033FCBC 4402 0001:0033FCEA 4404 0001:0033FCEF + 4405 0001:0033FD00 4407 0001:0033FD0F 4408 0001:0033FD1F 4409 0001:0033FD2F + 4410 0001:0033FD3D 4411 0001:0033FD4E 4415 0001:0033FD68 4416 0001:0033FD78 + 4417 0001:0033FD88 4418 0001:0033FD96 4422 0001:0033FDB0 4425 0001:0033FDB7 + 4428 0001:0033FDF1 4431 0001:0033FF08 4432 0001:0033FF2A 4433 0001:0033FF4A + 4434 0001:0033FF6A 4435 0001:0033FF8A 4436 0001:0033FFCF 4437 0001:00340014 + 4438 0001:00340034 4439 0001:00340054 4440 0001:00340074 4441 0001:003400B6 + 4448 0001:003400C8 4448 0001:00340100 4443 0001:00340104 4445 0001:00340131 + +Line numbers for UBACore(BA\UBACore.pas) segment .text + + 88 0001:00340134 90 0001:00340151 91 0001:00340160 92 0001:00340168 + 93 0001:0034017C 94 0001:00340188 95 0001:00340197 101 0001:0034019F + 103 0001:003401B9 104 0001:003401CA 105 0001:003401ED 107 0001:003401FE + 109 0001:0034020A 110 0001:00340228 112 0001:00340233 101 0001:00340234 + 114 0001:00340237 115 0001:00340246 118 0001:0034024E 119 0001:0034025A + 122 0001:0034026E 124 0001:0034027E 125 0001:00340280 129 0001:00340282 + 131 0001:00340292 132 0001:00340294 136 0001:003402A2 137 0001:003402A4 + 140 0001:003402D0 147 0001:003402E4 148 0001:0034030C 149 0001:00340310 + 150 0001:0034031F 151 0001:0034032E 152 0001:00340336 154 0001:0034033E + 156 0001:0034034E 157 0001:00340364 156 0001:00340376 158 0001:00340379 + 160 0001:0034038B 163 0001:003403A5 164 0001:003403B0 158 0001:003403B1 + 167 0001:003403B6 170 0001:003403C1 174 0001:003403DD 176 0001:003403F3 + 177 0001:00340413 179 0001:00340422 180 0001:00340442 182 0001:00340446 + 174 0001:00340447 183 0001:0034047F 194 0001:003404B0 195 0001:003404D8 + 196 0001:003404DC 197 0001:003404E7 199 0001:00340509 200 0001:0034050D + 202 0001:00340512 203 0001:00340520 205 0001:00340536 206 0001:00340565 + 208 0001:00340572 209 0001:00340576 211 0001:00340580 203 0001:00340581 + 216 0001:0034059F 219 0001:003405D6 225 0001:003405EC 226 0001:003405EF + 227 0001:003405FB 229 0001:00340600 230 0001:00340607 232 0001:0034060C + 233 0001:00340622 271 0001:00340624 272 0001:00340648 273 0001:00340657 + 274 0001:0034065F 275 0001:00340667 276 0001:0034066C 278 0001:0034067B + 279 0001:00340683 281 0001:00340699 282 0001:003406A6 284 0001:003406D6 + 285 0001:003406E1 286 0001:003406F1 287 0001:0034071F 288 0001:00340728 + 289 0001:00340756 290 0001:0034075F 291 0001:0034078D 292 0001:00340796 + 294 0001:003407C4 295 0001:003407CF 296 0001:003407D7 279 0001:003407D8 + 297 0001:003407DF 298 0001:00340806 302 0001:00340828 303 0001:00340844 + 304 0001:0034089C 309 0001:003408C8 310 0001:003408CF 311 0001:003408DD + 312 0001:003408E4 313 0001:003408FF 314 0001:00340901 317 0001:00340920 + 318 0001:0034093C 319 0001:00340972 320 0001:00340997 325 0001:003409B8 + 327 0001:003409DF 329 0001:003409E7 331 0001:00340A07 333 0001:00340A32 + 336 0001:00340A5E 337 0001:00340A6A 340 0001:00340A9C 345 0001:00340AFC + 346 0001:00340B00 347 0001:00340B02 348 0001:00340B0B 349 0001:00340B2B + 350 0001:00340B2F 354 0001:00340B48 355 0001:00340B62 356 0001:00340BAD + 361 0001:00340BDC 362 0001:00340BE1 420 0001:00340BE4 421 0001:00340BE6 + 422 0001:00340BFE 423 0001:00340C25 424 0001:00340C3C 425 0001:00340C41 + 430 0001:00340C54 431 0001:00340C7F 432 0001:00340C8D 433 0001:00340C9E + 434 0001:00340CA5 435 0001:00340CAF 436 0001:00340CD4 437 0001:00340CE0 + 438 0001:00340D09 442 0001:00340D28 443 0001:00340D2B 444 0001:00340D4D + 445 0001:00340D54 453 0001:00340D70 454 0001:00340D98 455 0001:00340DA6 + 456 0001:00340DAD 458 0001:00340DB9 459 0001:00340DD4 461 0001:00340DE6 + 462 0001:00340DF2 463 0001:00340E0D 464 0001:00340E43 459 0001:00340E44 + 465 0001:00340E49 466 0001:00340E7D 474 0001:00340EC4 475 0001:00340EE5 + 476 0001:00340EF4 477 0001:00340F03 478 0001:00340F19 479 0001:00340F21 + 480 0001:00340F29 482 0001:00340F34 483 0001:00340F3D 484 0001:00340F48 + 480 0001:00340F49 486 0001:00340F4C 488 0001:00340F68 490 0001:00340F7A + 491 0001:00340F96 492 0001:00340FB2 488 0001:00340FB3 493 0001:00340FD8 + 498 0001:00341008 499 0001:0034100E 500 0001:0034101D 502 0001:00341025 + 504 0001:00341030 505 0001:0034103A 506 0001:00341046 508 0001:00341062 + 509 0001:0034106F 512 0001:0034108C 513 0001:003410B1 515 0001:00341102 + 524 0001:0034112C 525 0001:00341151 526 0001:00341155 527 0001:0034115A + 528 0001:00341169 530 0001:00341171 531 0001:0034117F 533 0001:00341191 + 534 0001:0034119E 535 0001:003411C1 537 0001:003411CD 538 0001:003411D1 + 542 0001:003411D3 543 0001:003411DE 545 0001:003411E7 546 0001:003411EB + 550 0001:003411ED 531 0001:003411EE 555 0001:0034120C 559 0001:00341216 + 560 0001:0034121C 561 0001:00341251 569 0001:00341264 570 0001:0034128F + 573 0001:0034129A 574 0001:003412BF 575 0001:003412DF 576 0001:0034131F + 577 0001:0034135F 578 0001:0034139F 580 0001:003413DF 581 0001:003413FA + 582 0001:00341415 583 0001:00341430 585 0001:0034146D 591 0001:0034148C + 592 0001:003414B8 593 0001:003414C0 594 0001:003414CE 595 0001:003414EC + 596 0001:0034150A 597 0001:00341528 598 0001:00341546 600 0001:00341564 + 601 0001:0034157A 604 0001:00341592 605 0001:003415B0 610 0001:003415CE + 612 0001:003415DF 614 0001:0034160E 615 0001:0034161F 617 0001:00341646 + 620 0001:0034165E 621 0001:0034168A 628 0001:003416C4 629 0001:003416E8 + 630 0001:003416FB 631 0001:00341713 632 0001:0034172B 633 0001:00341743 + 634 0001:0034175B 635 0001:00341773 636 0001:0034178B 637 0001:003417C5 + 649 0001:003417CC 650 0001:003417F5 651 0001:00341809 652 0001:00341815 + 653 0001:00341823 654 0001:0034182A 656 0001:00341832 658 0001:00341848 + 659 0001:0034185C 661 0001:0034187B 663 0001:00341886 664 0001:00341899 + 665 0001:003418AF 667 0001:003418BE 668 0001:003418D1 669 0001:003418E7 + 671 0001:003418F6 672 0001:00341909 673 0001:0034191F 675 0001:0034192E + 676 0001:00341941 677 0001:00341957 679 0001:00341966 680 0001:00341979 + 681 0001:0034198F 683 0001:0034199E 684 0001:003419B1 685 0001:003419C7 + 687 0001:003419D6 688 0001:003419E9 689 0001:003419FF 691 0001:00341A0E + 692 0001:00341A21 693 0001:00341A37 696 0001:00341A46 697 0001:00341A84 + 698 0001:00341AAB 656 0001:00341AAC 699 0001:00341AE4 704 0001:00341B3C + 705 0001:00341B61 706 0001:00341B68 707 0001:00341B7B 708 0001:00341B8E + 709 0001:00341BC7 738 0001:00341BD8 739 0001:00341BFF 741 0001:00341C03 + 742 0001:00341C11 744 0001:00341C27 746 0001:00341C45 747 0001:00341C49 + 749 0001:00341C4B 742 0001:00341C4C 754 0001:00341C6A 757 0001:00341C9C + 760 0001:00341CA4 765 0001:00341CC1 767 0001:00341CED 775 0001:00341CF0 + 776 0001:00341D15 777 0001:00341D24 778 0001:00341D32 779 0001:00341D40 + 781 0001:00341D4B 783 0001:00341D5E 784 0001:00341D88 785 0001:00341D94 + 781 0001:00341D95 786 0001:00341D9A 787 0001:00341DA5 788 0001:00341DBE + 791 0001:00341DED 797 0001:00341E0C 799 0001:00341E11 800 0001:00341E1F + 801 0001:00341E2D 802 0001:00341E38 803 0001:00341E43 804 0001:00341E4A + 811 0001:00341E50 812 0001:00341E72 813 0001:00341E81 814 0001:00341E90 + 815 0001:00341E9E 816 0001:00341EAC 818 0001:00341EAF 819 0001:00341EBB + 821 0001:00341ECD 822 0001:00341EF8 819 0001:00341EF9 823 0001:00341EFC + 824 0001:00341F18 825 0001:00341F3F 832 0001:00341F60 833 0001:00341F8B + 834 0001:00341F9A 836 0001:00341FA8 838 0001:00341FBE 840 0001:00341FC3 + 841 0001:00341FD1 844 0001:00341FD8 846 0001:00341FDF 847 0001:00341FED + 849 0001:00342008 850 0001:00342020 852 0001:00342032 853 0001:0034203C + 854 0001:0034204B 855 0001:0034205B 856 0001:0034206B 857 0001:0034207B + 858 0001:0034208B 859 0001:0034209B 860 0001:003420AB 861 0001:003420B9 + 865 0001:003420E6 866 0001:003420F5 868 0001:00342103 869 0001:00342110 + 870 0001:00342137 873 0001:0034213F 847 0001:00342142 878 0001:00342164 + 881 0001:00342190 886 0001:003421A4 887 0001:003421D7 888 0001:003421DF + 889 0001:003421ED 891 0001:003421FF 893 0001:0034222C 894 0001:0034224C + 896 0001:0034224E 889 0001:0034224F 901 0001:0034226D 905 0001:003422A1 + 914 0001:003422A8 915 0001:003422C8 916 0001:003422D6 917 0001:003422E1 + 918 0001:003422E8 920 0001:003422FE 921 0001:0034230C 923 0001:00342326 + 924 0001:00342333 926 0001:00342359 927 0001:0034237B 929 0001:003423A5 + 932 0001:003423E3 934 0001:00342409 935 0001:0034242B 937 0001:00342455 + 940 0001:00342493 942 0001:003424B9 943 0001:003424DB 945 0001:00342505 + 948 0001:00342543 950 0001:00342569 951 0001:0034258B 953 0001:003425B5 + 956 0001:003425F3 958 0001:00342619 959 0001:0034263B 961 0001:00342665 + 964 0001:003426A3 966 0001:003426C9 967 0001:003426EB 969 0001:00342715 + 972 0001:00342753 974 0001:00342779 975 0001:0034279B 977 0001:003427C2 + 979 0001:003427FB 921 0001:003427FE 984 0001:00342820 987 0001:0034284C + 994 0001:003428C0 995 0001:003428DE 996 0001:003428EC 997 0001:003428F7 + 1000 0001:003428FB 1002 0001:00342913 1004 0001:00342929 1006 0001:00342945 + 1007 0001:00342949 1009 0001:0034294B 1002 0001:0034294E 1010 0001:00342971 + 1015 0001:003429A0 1016 0001:003429C7 1017 0001:003429CF 1018 0001:003429E0 + 1020 0001:003429F5 1022 0001:00342A00 1023 0001:00342A2C 1029 0001:00342A40 + 1030 0001:00342A5E 1031 0001:00342A6C 1033 0001:00342A82 1035 0001:00342A9F + 1036 0001:00342AAE 1037 0001:00342AC6 1038 0001:00342AD7 1039 0001:00342AE2 + 1040 0001:00342AED 1041 0001:00342AF8 1042 0001:00342B03 1043 0001:00342B1B + 1045 0001:00342B2D 1031 0001:00342B2E 1050 0001:00342B50 1053 0001:00342B7C + 1060 0001:00342B84 1061 0001:00342BB7 1062 0001:00342BBF 1063 0001:00342BC7 + 1064 0001:00342BCF 1065 0001:00342BD7 1066 0001:00342BDF 1068 0001:00342BEE + 1069 0001:00342BFC 1071 0001:00342C16 1073 0001:00342C27 1075 0001:00342C2F + 1077 0001:00342C44 1078 0001:00342C57 1079 0001:00342C75 1080 0001:00342C9C + 1081 0001:00342CAF 1085 0001:00342CF2 1086 0001:00342D05 1090 0001:00342D48 + 1092 0001:00342D51 1094 0001:00342D62 1095 0001:00342D75 1099 0001:00342DB8 + 1100 0001:00342DCB 1104 0001:00342E0E 1106 0001:00342E17 1108 0001:00342E28 + 1109 0001:00342E3B 1113 0001:00342E7E 1114 0001:00342E91 1118 0001:00342ED4 + 1120 0001:00342EDD 1122 0001:00342EEE 1123 0001:00342F01 1127 0001:00342F41 + 1128 0001:00342F54 1131 0001:00342F92 1069 0001:00342F93 1136 0001:00342FB5 + 1142 0001:00342FBF 1143 0001:00342FCF 1144 0001:00342FDF 1145 0001:00342FEF + 1146 0001:00342FFF 1147 0001:0034300F 1149 0001:00343041 1167 0001:00343060 + 1168 0001:00343086 1169 0001:00343094 1170 0001:003430A2 1171 0001:003430A9 + 1172 0001:003430B0 1174 0001:003430BA 1175 0001:003430CE 1178 0001:003430DA + 1180 0001:003430E4 1181 0001:003430F0 1182 0001:003430FF 1183 0001:00343106 + 1185 0001:0034311A 1187 0001:0034312E 1188 0001:00343148 1189 0001:00343154 + 1190 0001:0034315C 1191 0001:0034316B 1192 0001:00343179 1193 0001:0034318F + 1194 0001:003431A5 1195 0001:003431BB 1196 0001:003431D1 1197 0001:003431E7 + 1199 0001:003431F5 1201 0001:0034320B 1202 0001:0034321A 1204 0001:00343227 + 1205 0001:00343231 1206 0001:00343247 1210 0001:0034324E 1211 0001:00343269 + 1215 0001:0034329A 1220 0001:003432A0 1221 0001:003432DB 1222 0001:003432E3 + 1224 0001:003432F5 1226 0001:00343322 1227 0001:00343350 1229 0001:00343352 + 1222 0001:00343353 1231 0001:00343380 1239 0001:0034338C 1240 0001:003433C2 + 1241 0001:003433CD 1242 0001:003433D8 1243 0001:003433E0 1244 0001:003433EB + 1246 0001:003433F2 1247 0001:0034340A 1248 0001:00343422 1249 0001:0034343A + 1250 0001:00343452 1251 0001:0034346A 1252 0001:00343482 1254 0001:0034349A + 1255 0001:003434AD 1256 0001:003434C3 1258 0001:003434D2 1259 0001:003434E5 + 1260 0001:003434FB 1262 0001:0034350A 1263 0001:0034351D 1264 0001:00343533 + 1266 0001:00343542 1267 0001:00343555 1268 0001:0034356B 1270 0001:0034357A + 1271 0001:0034358D 1272 0001:003435A3 1274 0001:003435B2 1275 0001:003435C5 + 1276 0001:003435DB 1278 0001:003435EA 1279 0001:003435FD 1280 0001:00343613 + 1282 0001:00343622 1283 0001:00343635 1284 0001:0034364B 1286 0001:0034365A + 1289 0001:00343698 1290 0001:003436C4 1293 0001:00343710 1297 0001:0034372D + 1299 0001:0034373B 1300 0001:00343751 1301 0001:0034375D 1302 0001:0034376A + 1303 0001:0034378C 1308 0001:00343794 1309 0001:003437CA 1310 0001:003437D7 + 1311 0001:003437F2 1312 0001:00343810 1313 0001:0034387F 1318 0001:003438BC + 1319 0001:003438D9 1320 0001:003438EA 1322 0001:00343902 1323 0001:00343913 + 1325 0001:00343940 1326 0001:00343951 1328 0001:0034397E 1329 0001:0034398F + 1330 0001:003439BA 1331 0001:003439E6 1338 0001:003439F8 1339 0001:00343A22 + 1340 0001:00343A29 1341 0001:00343A43 1343 0001:00343A52 1345 0001:00343A5F + 1346 0001:00343A6F 1348 0001:00343A7E 1350 0001:00343A8B 1351 0001:00343A9B + 1353 0001:00343AAA 1355 0001:00343AB7 1356 0001:00343AC7 1358 0001:00343AD6 + 1360 0001:00343AE3 1361 0001:00343AF3 1363 0001:00343B02 1365 0001:00343B0F + 1366 0001:00343B1F 1368 0001:00343B2E 1370 0001:00343B3B 1371 0001:00343B4B + 1373 0001:00343B5A 1375 0001:00343B67 1376 0001:00343BAA 1384 0001:00343BE4 + 1385 0001:00343C0C 1386 0001:00343C1A 1387 0001:00343C21 1388 0001:00343C30 + 1389 0001:00343C3C 1391 0001:00343C4E 1392 0001:00343C6D 1395 0001:00343C99 + 1396 0001:00343CB4 1389 0001:00343CB5 1397 0001:00343CE9 1436 0001:00343CF0 + 1437 0001:00343D0E 1438 0001:00343D1D 1440 0001:00343D25 1442 0001:00343D31 + 1444 0001:00343D43 1445 0001:00343D6D 1446 0001:00343D71 1447 0001:00343D89 + 1442 0001:00343D8A 1449 0001:00343D8D 1450 0001:00343DB4 1457 0001:00343DBC + 1458 0001:00343DE3 1459 0001:00343DF9 1460 0001:00343E0C 1461 0001:00343E11 + 1464 0001:00343E13 1465 0001:00343E23 1466 0001:00343E2F 1469 0001:00343E32 + 1470 0001:00343E43 1471 0001:00343E61 1472 0001:00343E66 1462 0001:00343E70 + 1475 0001:00343E96 1477 0001:00343ED4 1477 0001:00343EDB + +Line numbers for uPCE(Encounter\uPCE.pas) segment .text + + 453 0001:00344694 454 0001:003446AA 455 0001:003446B1 456 0001:003446D1 + 458 0001:003446DF 459 0001:003446F4 460 0001:0034471D 463 0001:00344778 + 464 0001:00344797 465 0001:003447C1 466 0001:003447CA 467 0001:003447D6 + 468 0001:003447DA 470 0001:0034482D 479 0001:003448C4 480 0001:003448E2 + 481 0001:003448E6 482 0001:003448EA 485 0001:00344921 486 0001:00344927 + 487 0001:0034492A 491 0001:00344936 492 0001:00344945 493 0001:00344953 + 494 0001:0034495F 496 0001:00344977 499 0001:003449AC 502 0001:003449B4 + 503 0001:003449BA 504 0001:003449E9 507 0001:003449FC 508 0001:003449FF + 509 0001:00344A0B 511 0001:00344A0F 512 0001:00344A18 522 0001:00344A1C + 523 0001:00344A40 524 0001:00344A49 525 0001:00344A50 526 0001:00344A5A + 527 0001:00344A68 528 0001:00344A80 529 0001:00344A8E 531 0001:00344AA6 + 532 0001:00344AB3 533 0001:00344AD2 534 0001:00344AD5 535 0001:00344AE0 + 536 0001:00344AE5 537 0001:00344AEC 538 0001:00344AF1 529 0001:00344AF2 + 540 0001:00344B02 543 0001:00344B24 545 0001:00344B37 547 0001:00344B4D + 548 0001:00344B5C 549 0001:00344B84 578 0001:00344B8C 579 0001:00344BAB + 580 0001:00344BC5 581 0001:00344BD5 583 0001:00344BDF 584 0001:00344BEE + 585 0001:00344BFC 586 0001:00344C20 587 0001:00344C2A 588 0001:00344C34 + 589 0001:00344C3E 590 0001:00344C48 591 0001:00344C52 593 0001:00344C5C + 595 0001:00344C66 597 0001:00344C6C 598 0001:00344C7C 601 0001:00344C96 + 604 0001:00344CCD 610 0001:00344CE8 611 0001:00344D06 613 0001:00344D0B + 615 0001:00344D14 616 0001:00344D25 617 0001:00344D2F 618 0001:00344D40 + 620 0001:00344D51 624 0001:00344D63 625 0001:00344D6C 626 0001:00344D7D + 627 0001:00344D86 629 0001:00344D8A 633 0001:00344D8D 634 0001:00344DA6 + 630 0001:00344DA7 638 0001:00344E0B 644 0001:00344E34 645 0001:00344E63 + 646 0001:00344E6A 648 0001:00344E73 649 0001:00344E7C 650 0001:00344E8D + 651 0001:00344E96 653 0001:00344E9E 657 0001:00344EA1 659 0001:00344ED0 + 660 0001:00344EEF 662 0001:00344EF1 654 0001:00344EF2 666 0001:00344F5A + 672 0001:00344F78 673 0001:00344F86 675 0001:00344F98 676 0001:00344F9F + 677 0001:00344FAD 678 0001:00344FB6 680 0001:00344FC9 681 0001:00344FD6 + 683 0001:00344FDF 685 0001:00344FF3 686 0001:00345000 687 0001:0034500C + 691 0001:0034501A 692 0001:00345026 697 0001:00345032 703 0001:0034503C + 704 0001:0034503D 705 0001:00345049 709 0001:0034504C 710 0001:00345056 + 718 0001:00345058 719 0001:0034508B 720 0001:00345093 722 0001:0034509C + 724 0001:003450A5 725 0001:003450B6 726 0001:003450C0 727 0001:003450D1 + 729 0001:003450E2 730 0001:003450F8 731 0001:00345102 735 0001:0034512A + 736 0001:00345133 737 0001:00345144 738 0001:0034515E 739 0001:0034516E + 741 0001:00345178 742 0001:00345187 743 0001:00345195 744 0001:003451B9 + 745 0001:003451C3 746 0001:003451CD 747 0001:003451D7 748 0001:003451E1 + 749 0001:003451EB 751 0001:003451F5 753 0001:003451FF 755 0001:00345205 + 756 0001:00345215 759 0001:0034522F 762 0001:00345241 764 0001:0034524B + 768 0001:00345250 770 0001:00345280 771 0001:003452A3 773 0001:003452A5 + 765 0001:003452A8 777 0001:00345322 781 0001:00345348 782 0001:00345386 + 783 0001:0034538D 784 0001:0034539A 786 0001:003453B9 787 0001:003453C3 + 790 0001:003453D7 791 0001:003453E1 793 0001:0034540F 795 0001:00345443 + 803 0001:00345488 804 0001:003454AC 805 0001:003454BF 806 0001:003454ED + 807 0001:003454FB 809 0001:00345507 810 0001:00345513 813 0001:00345524 + 815 0001:0034554D 816 0001:00345560 820 0001:00345575 821 0001:00345583 + 823 0001:0034558B 824 0001:00345597 826 0001:003455A1 827 0001:003455C7 + 828 0001:003455CF 829 0001:003455F1 830 0001:00345616 832 0001:00345629 + 834 0001:00345643 836 0001:0034568F 838 0001:003456B3 841 0001:003456ED + 848 0001:00345718 849 0001:0034573A 850 0001:00345741 852 0001:00345775 + 853 0001:00345782 857 0001:00345794 858 0001:003457A1 860 0001:003457AA + 862 0001:003457B7 863 0001:003457D0 866 0001:003457E0 868 0001:0034580A + 871 0001:00345855 873 0001:00345885 879 0001:003459C4 880 0001:003459CD + 881 0001:003459D8 883 0001:003459E7 884 0001:003459F4 885 0001:00345A0D + 888 0001:00345A14 889 0001:00345A1D 890 0001:00345A28 892 0001:00345A41 + 893 0001:00345A55 904 0001:00345A5C 905 0001:00345A77 907 0001:00345A7D + 911 0001:00345AAA 914 0001:00345AD3 915 0001:00345AFB 918 0001:00345B2C + 919 0001:00345B32 920 0001:00345B38 921 0001:00345B3E 922 0001:00345B49 + 923 0001:00345B54 924 0001:00345B5F 925 0001:00345B6B 926 0001:00345B75 + 929 0001:00345B78 930 0001:00345B7E 932 0001:00345B8A 931 0001:00345B9C + 933 0001:00345BB0 943 0001:00345BB4 944 0001:00345BB7 945 0001:00345BBB + 946 0001:00345BBF 947 0001:00345BC7 948 0001:00345BCF 949 0001:00345BD7 + 950 0001:00345BE5 951 0001:00345BEE 962 0001:00345BF0 963 0001:00345C10 + 964 0001:00345C1C 965 0001:00345C8B 969 0001:00345CA4 970 0001:00345CAA + 971 0001:00345CB4 975 0001:00345CB8 976 0001:00345CBF 977 0001:00345CC1 + 978 0001:00345CE8 979 0001:00345CEC 982 0001:00345CF0 983 0001:00345CF3 + 984 0001:00345CFA 993 0001:00345CFC 994 0001:00345D1A 995 0001:00345D37 + 996 0001:00345D54 997 0001:00345D71 998 0001:00345D95 999 0001:00345DD3 + 1005 0001:00345DDC 1006 0001:00345DE2 1007 0001:00345DEB 1008 0001:00345DF6 + 1009 0001:00345E09 1013 0001:00345E18 1014 0001:00345E1B 1016 0001:00345E22 + 1017 0001:00345E2F 1026 0001:00345E40 1027 0001:00345E59 1029 0001:00345E62 + 1031 0001:00345EC3 1041 0001:00345EE0 1042 0001:00345EE6 1043 0001:00345EF5 + 1047 0001:00345F0C 1048 0001:00345F25 1049 0001:00345F34 1051 0001:00345F45 + 1052 0001:00345F4C 1053 0001:00345F89 1057 0001:00345FA8 1058 0001:00345FC1 + 1060 0001:00345FCA 1061 0001:00345FE7 1062 0001:00346017 1071 0001:00346028 + 1072 0001:0034602E 1074 0001:00346037 1075 0001:00346042 1076 0001:00346048 + 1077 0001:00346054 1078 0001:00346060 1079 0001:00346073 1083 0001:00346084 + 1084 0001:00346087 1086 0001:0034608E 1087 0001:0034609B 1088 0001:003460A0 + 1089 0001:003460A8 1090 0001:003460B0 1099 0001:003460C0 1100 0001:003460DB + 1102 0001:003460E4 1105 0001:00346158 1115 0001:00346178 1116 0001:0034617E + 1117 0001:0034618D 1121 0001:003461A4 1122 0001:003461C0 1123 0001:003461CF + 1125 0001:003461E0 1126 0001:003461E7 1127 0001:003461F3 1128 0001:003461FA + 1129 0001:0034620E 1130 0001:00346250 1136 0001:00346270 1137 0001:0034628D + 1139 0001:00346296 1140 0001:003462B3 1141 0001:003462C5 1142 0001:003462D7 + 1143 0001:003462E9 1145 0001:003462FC 1146 0001:00346302 1147 0001:0034630D + 1148 0001:00346313 1149 0001:0034631F 1150 0001:00346325 1152 0001:00346353 + 1158 0001:00346368 1159 0001:0034636E 1160 0001:00346377 1161 0001:00346382 + 1162 0001:00346395 1166 0001:003463A4 1167 0001:003463A7 1169 0001:003463AE + 1170 0001:003463BB 1179 0001:003463CC 1180 0001:003463E5 1182 0001:003463EE + 1184 0001:00346457 1194 0001:00346474 1195 0001:0034647A 1196 0001:00346489 + 1200 0001:003464A0 1201 0001:003464B9 1202 0001:003464C8 1204 0001:003464D9 + 1205 0001:003464E0 1206 0001:0034651D 1210 0001:0034653C 1211 0001:00346555 + 1213 0001:0034655E 1214 0001:0034657B 1215 0001:003465AB 1224 0001:003465BC + 1225 0001:003465C2 1227 0001:003465CB 1228 0001:003465D6 1229 0001:003465E1 + 1230 0001:003465E7 1231 0001:003465ED 1232 0001:00346600 1233 0001:00346613 + 1237 0001:00346624 1238 0001:00346627 1240 0001:0034662E 1241 0001:0034663B + 1242 0001:00346648 1243 0001:0034664C 1244 0001:00346650 1253 0001:00346660 + 1254 0001:00346679 1256 0001:00346682 1257 0001:003466AA 1258 0001:003466CA + 1259 0001:003466E2 1263 0001:00346727 1278 0001:0034675C 1279 0001:00346762 + 1280 0001:00346771 1284 0001:00346788 1285 0001:003467A3 1286 0001:003467B2 + 1288 0001:003467C3 1289 0001:003467CA 1290 0001:003467D6 1291 0001:003467E5 + 1292 0001:003467FF 1293 0001:0034680B 1294 0001:00346811 1295 0001:0034681D + 1296 0001:0034685F 1302 0001:0034688C 1303 0001:003468A9 1305 0001:003468B2 + 1306 0001:003468CF 1307 0001:003468EC 1308 0001:003468FE 1309 0001:00346917 + 1310 0001:00346929 1311 0001:00346942 1312 0001:00346955 1313 0001:0034698A + 1320 0001:003469A8 1321 0001:003469AF 1322 0001:003469B8 1323 0001:003469C0 + 1324 0001:003469CB 1325 0001:003469D7 1329 0001:003469DC 1330 0001:003469DF + 1331 0001:003469E6 1332 0001:003469EB 1334 0001:003469F3 1335 0001:00346A01 + 1338 0001:00346A04 1339 0001:00346A0A 1340 0001:00346A10 1342 0001:00346A16 + 1343 0001:00346A22 1344 0001:00346A2D 1345 0001:00346A38 1346 0001:00346A43 + 1347 0001:00346A4D 1348 0001:00346A58 1361 0001:00346A5C 1362 0001:00346A7E + 1363 0001:00346A83 1364 0001:00346A88 1366 0001:00346A90 1367 0001:00346AA0 + 1369 0001:00346AA6 1370 0001:00346AA9 1371 0001:00346AD4 1373 0001:00346AD5 + 1375 0001:00346ADB 1376 0001:00346AE4 1377 0001:00346B0C 1379 0001:00346B74 + 1380 0001:00346BB4 1391 0001:00346BEC 1392 0001:00346BEF 1394 0001:00346C25 + 1406 0001:00346C28 1407 0001:00346C44 1408 0001:00346C4B 1410 0001:00346C51 + 1412 0001:00346C56 1413 0001:00346C66 1415 0001:00346C6C 1416 0001:00346C82 + 1418 0001:00346C98 1419 0001:00346C99 1421 0001:00346CC1 1425 0001:00346CD4 + 1426 0001:00346CF2 1427 0001:00346CFA 1429 0001:00346D15 1430 0001:00346D1C + 1431 0001:00346D6B 1438 0001:00346D90 1439 0001:00346DB0 1440 0001:00346DB9 + 1442 0001:00346DDB 1443 0001:00346DFF 1444 0001:00346E07 1445 0001:00346E19 + 1446 0001:00346E36 1447 0001:00346E3A 1448 0001:00346E45 1447 0001:00346E82 + 1449 0001:00346EA7 1455 0001:00346EBC 1456 0001:00346EC2 1457 0001:00346ECB + 1458 0001:00346ED6 1459 0001:00346EE9 1463 0001:00346EF8 1464 0001:00346EFB + 1466 0001:00346F02 1467 0001:00346F0F 1476 0001:00346F20 1477 0001:00346F39 + 1479 0001:00346F42 1481 0001:00346FA3 1491 0001:00346FC0 1492 0001:00346FC6 + 1493 0001:00346FD5 1497 0001:00346FEC 1498 0001:00347005 1499 0001:00347014 + 1501 0001:00347025 1502 0001:0034702C 1503 0001:00347069 1507 0001:00347088 + 1508 0001:003470A1 1510 0001:003470AA 1511 0001:003470C7 1512 0001:003470F7 + 1517 0001:00347108 1518 0001:0034710E 1519 0001:00347117 1520 0001:0034711F + 1521 0001:00347125 1530 0001:00347128 1531 0001:0034712B 1532 0001:00347132 + 1534 0001:00347136 1535 0001:0034713A 1546 0001:0034713C 1547 0001:00347159 + 1548 0001:00347162 1549 0001:00347168 1551 0001:00347178 1552 0001:00347180 + 1554 0001:003471E6 1555 0001:00347203 1556 0001:00347243 1559 0001:00347264 + 1560 0001:00347280 1562 0001:00347286 1563 0001:0034729B 1564 0001:0034729F + 1566 0001:003472CC 1570 0001:003472D5 1571 0001:003472FE 1573 0001:00347302 + 1574 0001:0034732A 1586 0001:0034735C 1587 0001:00347375 1588 0001:0034737B + 1590 0001:00347389 1592 0001:00347395 1593 0001:0034739B 1595 0001:003473AB + 1597 0001:003473B9 1598 0001:003473F6 1613 0001:0034743C 1614 0001:00347457 + 1615 0001:00347460 1616 0001:0034746B 1618 0001:00347490 1619 0001:003474D7 + 1624 0001:003474EC 1625 0001:003474FE 1626 0001:0034750D 1627 0001:0034751C + 1628 0001:0034752B 1629 0001:0034753A 1630 0001:00347549 1631 0001:00347558 + 1632 0001:00347567 1633 0001:00347576 1634 0001:00347585 1635 0001:0034758C + 1636 0001:00347593 1637 0001:0034759A 1638 0001:003475A1 1639 0001:003475A8 + 1640 0001:003475AF 1641 0001:003475B6 1642 0001:003475D1 1647 0001:003475D4 + 1648 0001:003475E3 1649 0001:00347603 1650 0001:00347623 1651 0001:00347643 + 1652 0001:00347663 1653 0001:00347683 1654 0001:003476A3 1655 0001:003476C3 + 1656 0001:003476CB 1657 0001:003476D3 1658 0001:003476DB 1659 0001:003476E3 + 1660 0001:003476EB 1661 0001:003476F3 1662 0001:003476FB 1663 0001:00347703 + 1664 0001:0034770B 1665 0001:00347725 1673 0001:0034772C 1674 0001:00347731 + 1675 0001:0034773C 1674 0001:0034774B 1676 0001:0034774E 1677 0001:00347755 + 1679 0001:0034775C 1680 0001:0034775F 1681 0001:00347767 1682 0001:0034776F + 1683 0001:00347774 1684 0001:00347778 1685 0001:0034777C 1686 0001:00347780 + 1687 0001:00347784 1688 0001:00347788 1689 0001:00347790 1690 0001:00347798 + 1691 0001:0034779F 1692 0001:003477A6 1693 0001:003477AD 1694 0001:003477B4 + 1695 0001:003477BB 1696 0001:003477C2 1698 0001:003477C9 1699 0001:003477D1 + 1700 0001:003477D9 1701 0001:003477E1 1702 0001:003477E9 1703 0001:003477F1 + 1704 0001:003477F9 1706 0001:00347801 1707 0001:00347809 1708 0001:00347811 + 1709 0001:00347815 1710 0001:0034781A 1711 0001:0034781F 1715 0001:00347824 + 1716 0001:00347835 1720 0001:00347838 1721 0001:00347849 1725 0001:0034784C + 1726 0001:0034785D 1730 0001:00347860 1731 0001:00347871 1735 0001:00347874 + 1736 0001:00347885 1740 0001:00347888 1741 0001:00347899 1745 0001:0034789C + 1746 0001:003478AD 1749 0001:003478B0 1750 0001:003478CD 1751 0001:0034793A + 1754 0001:0034794C 1755 0001:0034794F 1756 0001:00347967 1786 0001:00347974 + 1787 0001:00347997 1788 0001:0034799A 1789 0001:003479C1 1790 0001:00347A09 + 1793 0001:00347A28 1795 0001:00347A4F 1799 0001:00347AA6 1798 0001:00347ABF + 1801 0001:00347AD1 1803 0001:00347B04 1804 0001:00347B30 1806 0001:00347B44 + 1809 0001:00347B6F 1810 0001:00347B74 1813 0001:00347B88 1814 0001:00347B92 + 1815 0001:00347B98 1817 0001:00347B9C 1819 0001:00347BB5 1820 0001:00347BD5 + 1821 0001:00347BFA 1824 0001:00347BFE 1825 0001:00347C00 1827 0001:00347C04 + 1828 0001:00347C17 1829 0001:00347C1D 1833 0001:00347C25 1835 0001:00347C2D + 1839 0001:00347C7A 1840 0001:00347C86 1842 0001:00347C94 1843 0001:00347C96 + 1845 0001:00347C9A 1847 0001:00347CA2 1848 0001:00347CAB 1849 0001:00347CB0 + 1851 0001:00347CB5 1856 0001:00347CBA 1857 0001:00347CCD 1858 0001:00347CD3 + 1860 0001:00347CDD 1861 0001:00347CE1 1862 0001:00347D01 1864 0001:00347D26 + 1866 0001:00347D37 1867 0001:00347D3C 1869 0001:00347D8B 1870 0001:00347D8F + 1874 0001:00347D9D 1875 0001:00347DA1 1876 0001:00347DA9 1879 0001:00347DAB + 1880 0001:00347DAF 1882 0001:00347DC0 1885 0001:00347DC8 1886 0001:00347DCF + 1887 0001:00347DDE 1888 0001:00347DED 1889 0001:00347DFB 1890 0001:00347E08 + 1891 0001:00347E0B 1893 0001:00347E27 1894 0001:00347E35 1897 0001:00347E5E + 1900 0001:00347E84 1901 0001:00347EB7 1903 0001:00347EBD 1904 0001:00347EC1 + 1905 0001:00347ECD 1909 0001:00347F01 1910 0001:00347F33 1913 0001:00347F6F + 1915 0001:00347F80 1919 0001:00347F88 1921 0001:00347FB3 1923 0001:00347FB9 + 1924 0001:00347FC5 1927 0001:00347FEC 1929 0001:00348011 1930 0001:00348062 + 1932 0001:0034808D 1933 0001:00348093 1935 0001:00348099 1937 0001:003480A9 + 1939 0001:003480E9 1940 0001:0034811F 1941 0001:00348155 1942 0001:0034818B + 1943 0001:003481C1 1945 0001:003481F7 1946 0001:0034822D 1947 0001:00348263 + 1950 0001:0034829F 1953 0001:003482AA 1957 0001:003482E6 1958 0001:00348304 + 1959 0001:00348312 1960 0001:0034831C 1962 0001:00348326 1965 0001:0034836A + 1967 0001:00348388 1968 0001:0034838C 1969 0001:003483A3 1968 0001:003483E8 + 1970 0001:003483EB 1972 0001:00348407 1973 0001:00348415 1974 0001:0034841F + 1975 0001:00348423 1978 0001:0034842D 1981 0001:00348469 1982 0001:00348487 + 1983 0001:00348495 1984 0001:0034849F 1986 0001:003484A9 1989 0001:003484E5 + 1990 0001:00348503 1991 0001:00348511 1992 0001:0034851B 1994 0001:00348525 + 1997 0001:00348561 1998 0001:0034857F 1999 0001:0034858D 2000 0001:00348597 + 2002 0001:003485A1 2005 0001:003485DD 2006 0001:003485FB 2007 0001:00348609 + 2008 0001:00348613 2010 0001:0034861D 2013 0001:00348659 2014 0001:00348677 + 2015 0001:00348685 2016 0001:0034868F 2019 0001:00348699 1891 0001:0034869C + 2021 0001:003486B2 2022 0001:003486BA 2024 0001:00348704 2044 0001:00348874 + 2045 0001:00348896 2046 0001:003488A5 2047 0001:003488AF 2050 0001:003488BD + 2052 0001:003488C9 2053 0001:003488D7 2054 0001:003488E6 2055 0001:003488EF + 2056 0001:00348913 2060 0001:00348931 2061 0001:0034893A 2062 0001:00348949 + 2064 0001:0034894E 2065 0001:00348999 2068 0001:003489EA 2069 0001:00348A23 + 2070 0001:00348A4B 2071 0001:00348A54 2072 0001:00348A89 2073 0001:00348ABB + 2074 0001:00348ACC 2075 0001:00348AF0 2076 0001:00348AFF 2084 0001:00348B23 + 2086 0001:00348B31 2088 0001:00348B3E 2089 0001:00348B7C 2090 0001:00348BBA + 2091 0001:00348BF8 2092 0001:00348C36 2094 0001:00348C74 2095 0001:00348CB2 + 2097 0001:00348CF0 2098 0001:00348D18 2100 0001:00348D21 2101 0001:00348D2C + 2102 0001:00348D35 2103 0001:00348D3B 2105 0001:00348D4F 2106 0001:00348D6B + 2108 0001:00348D74 2109 0001:00348D7A 2110 0001:00348D80 2112 0001:00348D8B + 2097 0001:00348D8C 2113 0001:00348D93 2114 0001:00348DB7 2116 0001:00348DC0 + 2117 0001:00348DDC 2118 0001:00348DF8 2113 0001:00348DF9 2119 0001:00348DFC + 2120 0001:00348E20 2122 0001:00348E29 2123 0001:00348E45 2124 0001:00348E61 + 2119 0001:00348E62 2125 0001:00348E65 2126 0001:00348E89 2128 0001:00348E92 + 2129 0001:00348EAE 2130 0001:00348ECA 2125 0001:00348ECB 2131 0001:00348ECE + 2132 0001:00348EF2 2134 0001:00348EFB 2135 0001:00348F17 2136 0001:00348F33 + 2131 0001:00348F34 2137 0001:00348F37 2138 0001:00348F5B 2140 0001:00348F64 + 2141 0001:00348F80 2142 0001:00348F9C 2137 0001:00348F9D 2143 0001:00348FA0 + 2144 0001:00348FC4 2146 0001:00348FCD 2147 0001:00348FE9 2148 0001:00349005 + 2143 0001:00349006 2150 0001:00349009 2152 0001:00349012 2153 0001:00349022 + 2155 0001:0034902B 2156 0001:00349047 2160 0001:00349063 2163 0001:00349074 + 2165 0001:0034908C 2166 0001:00349090 2168 0001:00349096 2169 0001:003490A4 + 2171 0001:003490AD 2163 0001:003490AE 2172 0001:003490B3 2174 0001:003490CB + 2175 0001:003490CF 2177 0001:003490D5 2178 0001:003490E3 2180 0001:003490EC + 2172 0001:003490ED 2181 0001:003490F2 2183 0001:0034910A 2184 0001:0034910E + 2186 0001:00349114 2187 0001:00349122 2189 0001:0034912B 2181 0001:0034912C + 2190 0001:00349131 2192 0001:00349149 2193 0001:0034914D 2195 0001:00349153 + 2196 0001:00349161 2198 0001:0034916A 2190 0001:0034916B 2199 0001:00349170 + 2201 0001:00349188 2202 0001:0034918C 2204 0001:00349192 2205 0001:003491A0 + 2207 0001:003491A9 2199 0001:003491AA 2208 0001:003491AF 2210 0001:003491C7 + 2211 0001:003491CB 2213 0001:003491D1 2214 0001:003491DF 2216 0001:003491E8 + 2208 0001:003491E9 2217 0001:003491EE 2219 0001:00349206 2220 0001:0034920A + 2222 0001:00349210 2223 0001:0034921E 2225 0001:00349227 2217 0001:00349228 + 2227 0001:0034922D 2229 0001:00349240 2230 0001:0034925C 2231 0001:00349269 + 2227 0001:0034926A 2233 0001:0034926F 2238 0001:00349292 2239 0001:003492A5 + 2240 0001:003492B0 2241 0001:003492F2 2242 0001:003492FD 2243 0001:0034933F + 2244 0001:0034934A 2245 0001:0034938C 2246 0001:00349397 2247 0001:003493D9 + 2248 0001:003493E4 2249 0001:00349426 2250 0001:00349431 2251 0001:00349473 + 2252 0001:0034947E 2253 0001:003494C0 2254 0001:003494CB 2258 0001:0034951A + 2260 0001:0034957D 2266 0001:00349708 2267 0001:00349714 2269 0001:0034971C + 2272 0001:00349750 2273 0001:00349754 2274 0001:00349756 2269 0001:00349757 + 2275 0001:0034975E 2283 0001:00349768 2284 0001:00349776 2286 0001:0034978E + 2287 0001:0034979C 2288 0001:003497A1 2290 0001:003497B4 2292 0001:003497C1 + 2294 0001:003497E0 2288 0001:003497E1 2295 0001:003497E4 2297 0001:003497EB + 2298 0001:003497EF 2300 0001:003497F3 2284 0001:003497F7 2301 0001:003497FD + 2309 0001:00349808 2310 0001:00349814 2311 0001:00349825 2312 0001:0034982B + 2314 0001:00349847 2315 0001:00349855 2316 0001:00349863 2318 0001:00349868 + 2319 0001:00349874 2323 0001:00349891 2324 0001:00349897 2325 0001:003498A1 + 2326 0001:003498A7 2330 0001:003498AD 2331 0001:003498BB 2332 0001:003498C3 + 2333 0001:003498C7 2335 0001:003498D1 2336 0001:003498DE 2337 0001:003498E2 + 2312 0001:003498E6 2338 0001:003498ED 2340 0001:003498F4 2342 0001:00349908 + 2343 0001:00349916 2345 0001:00349922 2346 0001:00349926 2348 0001:0034992A + 2340 0001:0034992E 2350 0001:00349931 2358 0001:0034993C 2359 0001:00349948 + 2360 0001:00349959 2362 0001:00349975 2363 0001:00349983 2364 0001:00349991 + 2366 0001:0034999A 2375 0001:003499A6 2380 0001:003499DC 2381 0001:003499EC + 2382 0001:003499F6 2383 0001:003499FE 2384 0001:00349A06 2385 0001:00349A12 + 2386 0001:00349A18 2387 0001:00349A24 2388 0001:00349A2E 2389 0001:00349A39 + 2393 0001:00349A3F 2394 0001:00349A4D 2395 0001:00349A55 2396 0001:00349A59 + 2398 0001:00349A63 2360 0001:00349A67 2399 0001:00349A6E 2409 0001:00349A78 + 2410 0001:00349A84 2411 0001:00349A95 2413 0001:00349AB1 2414 0001:00349ABF + 2415 0001:00349ACD 2417 0001:00349AD6 2420 0001:00349AE2 2421 0001:00349AF5 + 2422 0001:00349B08 2423 0001:00349B1B 2426 0001:00349B2E 2433 0001:00349B65 + 2434 0001:00349B70 2435 0001:00349B7B 2436 0001:00349B81 2437 0001:00349B87 + 2438 0001:00349B91 2442 0001:00349B97 2443 0001:00349BA5 2444 0001:00349BAD + 2445 0001:00349BB1 2447 0001:00349BBB 2411 0001:00349BBF 2448 0001:00349BC6 + 2456 0001:00349BDC 2457 0001:00349BE8 2458 0001:00349BF9 2460 0001:00349C15 + 2461 0001:00349C23 2462 0001:00349C31 2464 0001:00349C36 2465 0001:00349C42 + 2466 0001:00349C55 2468 0001:00349C68 2473 0001:00349C8A 2474 0001:00349C95 + 2475 0001:00349C9B 2476 0001:00349CA5 2480 0001:00349CAB 2481 0001:00349CB9 + 2482 0001:00349CC1 2483 0001:00349CC5 2485 0001:00349CCF 2458 0001:00349CD3 + 2486 0001:00349CDA 2492 0001:00349CF0 2493 0001:00349CFC 2494 0001:00349D0D + 2496 0001:00349D29 2497 0001:00349D37 2498 0001:00349D45 2500 0001:00349D4A + 2502 0001:00349D56 2503 0001:00349D69 2505 0001:00349D7C 2509 0001:00349D96 + 2510 0001:00349DA1 2511 0001:00349DAB 2515 0001:00349DB1 2516 0001:00349DBF + 2517 0001:00349DC7 2518 0001:00349DCB 2520 0001:00349DD5 2494 0001:00349DD9 + 2521 0001:00349DE0 2529 0001:00349DF4 2530 0001:00349E00 2531 0001:00349E11 + 2533 0001:00349E2D 2534 0001:00349E3B 2535 0001:00349E49 2537 0001:00349E4E + 2539 0001:00349E5A 2540 0001:00349E6D 2542 0001:00349E80 2546 0001:00349E9A + 2547 0001:00349EA5 2548 0001:00349EAF 2550 0001:00349EB3 2551 0001:00349EC0 + 2554 0001:00349ECD 2555 0001:00349EDB 2556 0001:00349EE3 2557 0001:00349EE7 + 2558 0001:00349EF2 2560 0001:00349EFC 2531 0001:00349F00 2561 0001:00349F07 + 2569 0001:00349F1C 2570 0001:00349F28 2571 0001:00349F39 2573 0001:00349F55 + 2574 0001:00349F63 2575 0001:00349F71 2577 0001:00349F76 2578 0001:00349F82 + 2579 0001:00349F95 2581 0001:00349FA8 2585 0001:00349FC2 2586 0001:00349FCD + 2587 0001:00349FD7 2591 0001:00349FDD 2592 0001:00349FEB 2593 0001:00349FF3 + 2594 0001:00349FF7 2596 0001:0034A001 2571 0001:0034A005 2597 0001:0034A00C + 2603 0001:0034A020 2604 0001:0034A027 2607 0001:0034A045 2609 0001:0034A04E + 2610 0001:0034A05C 2611 0001:0034A065 2612 0001:0034A069 2613 0001:0034A06D + 2615 0001:0034A077 2616 0001:0034A080 2617 0001:0034A08A 2619 0001:0034A08E + 2623 0001:0034A094 2625 0001:0034A099 2626 0001:0034A09C 2628 0001:0034A0A0 + 2632 0001:0034A0A4 2634 0001:0034A0A9 2635 0001:0034A0AC 2637 0001:0034A0B0 + 2641 0001:0034A0B4 2643 0001:0034A0B9 2644 0001:0034A0BC 2646 0001:0034A0C0 + 2650 0001:0034A0C4 2652 0001:0034A0C9 2653 0001:0034A0CC 2655 0001:0034A0D0 + 2659 0001:0034A0D4 2661 0001:0034A0D9 2662 0001:0034A0DC 2664 0001:0034A0E0 + 2669 0001:0034A0E4 2671 0001:0034A0E9 2672 0001:0034A0EC 2674 0001:0034A0F0 + 2678 0001:0034A0F4 2680 0001:0034A0F9 2681 0001:0034A0FC 2683 0001:0034A100 + 2686 0001:0034A104 2687 0001:0034A107 2688 0001:0034A10C 2690 0001:0034A110 + 2691 0001:0034A123 2693 0001:0034A130 2694 0001:0034A13F 2695 0001:0034A14C + 2697 0001:0034A150 2702 0001:0034A15F 2703 0001:0034A167 2704 0001:0034A16C + 2705 0001:0034A170 2706 0001:0034A174 2707 0001:0034A17F 2709 0001:0034A183 + 2712 0001:0034A187 2714 0001:0034A18F 2720 0001:0034A194 2721 0001:0034A1B8 + 2722 0001:0034A1C0 2723 0001:0034A1E0 2724 0001:0034A1E6 2722 0001:0034A21C + 2725 0001:0034A21F 2726 0001:0034A282 2732 0001:0034A298 2733 0001:0034A2B8 + 2734 0001:0034A2C0 2735 0001:0034A2E0 2736 0001:0034A2E6 2737 0001:0034A328 + 2734 0001:0034A329 2738 0001:0034A32C 2739 0001:0034A38F 2745 0001:0034A3A4 + 2746 0001:0034A3C8 2747 0001:0034A3D0 2748 0001:0034A3F0 2749 0001:0034A3F6 + 2747 0001:0034A42A 2750 0001:0034A42D 2751 0001:0034A490 2758 0001:0034A4A4 + 2759 0001:0034A4C8 2760 0001:0034A4D0 2761 0001:0034A4F0 2762 0001:0034A4F6 + 2760 0001:0034A52A 2763 0001:0034A52D 2764 0001:0034A590 2769 0001:0034A5A4 + 2770 0001:0034A5C8 2771 0001:0034A5D0 2772 0001:0034A5F0 2773 0001:0034A5F6 + 2771 0001:0034A62A 2774 0001:0034A62D 2775 0001:0034A690 2780 0001:0034A6A4 + 2781 0001:0034A6C8 2782 0001:0034A6D0 2783 0001:0034A6F0 2784 0001:0034A6F6 + 2782 0001:0034A72A 2785 0001:0034A72D 2786 0001:0034A790 2791 0001:0034A7A4 + 2792 0001:0034A7C8 2793 0001:0034A7D0 2794 0001:0034A7F0 2795 0001:0034A7F6 + 2793 0001:0034A82A 2796 0001:0034A82D 2797 0001:0034A890 2804 0001:0034A8A4 + 2805 0001:0034A8C1 2806 0001:0034A8CC 2807 0001:0034A8E2 2808 0001:0034A91F + 2810 0001:0034A93C 2811 0001:0034A945 2812 0001:0034A94D 2813 0001:0034A95C + 2814 0001:0034A96B 2815 0001:0034A97D 2816 0001:0034A98F 2818 0001:0034A9A1 + 2819 0001:0034A9B3 2820 0001:0034A9C5 2822 0001:0034A9E5 2826 0001:0034AADC + 2827 0001:0034AAFB 2828 0001:0034AB02 2830 0001:0034AB05 2831 0001:0034AB1B + 2833 0001:0034AB51 2835 0001:0034ABBA 2841 0001:0034ABD0 2842 0001:0034ABD3 + 2844 0001:0034ABF3 2845 0001:0034AC04 2846 0001:0034AC0D 2847 0001:0034AC11 + 2849 0001:0034AC15 2850 0001:0034AC18 2865 0001:0034AC20 2866 0001:0034AC26 + 2867 0001:0034AC28 2868 0001:0034AC3C 2885 0001:0034AC40 2886 0001:0034AC46 + 2887 0001:0034AC4D 2888 0001:0034AC59 2889 0001:0034AC65 2890 0001:0034AC6B + 2891 0001:0034AC71 2892 0001:0034AC77 2893 0001:0034AC7D 2894 0001:0034AC83 + 2895 0001:0034AC89 2896 0001:0034AC8F 2897 0001:0034AC95 2898 0001:0034AC9B + 2899 0001:0034ACA1 2900 0001:0034ACA7 2901 0001:0034ACAD 2902 0001:0034ACB3 + 2903 0001:0034ACB9 2904 0001:0034ACC4 2906 0001:0034ACCF 2907 0001:0034ACE2 + 2908 0001:0034ACF5 2909 0001:0034AD08 2910 0001:0034AD1B 2911 0001:0034AD2E + 2912 0001:0034AD41 2914 0001:0034AD54 2915 0001:0034AD5A 2916 0001:0034AD60 + 2917 0001:0034AD6B 2918 0001:0034AD76 2926 0001:0034AD7C 2927 0001:0034AD86 + 2928 0001:0034AD8E 2931 0001:0034AD9E 2933 0001:0034ADC6 2934 0001:0034ADD2 + 2935 0001:0034ADD6 2937 0001:0034ADEE 2938 0001:0034ADFD 2939 0001:0034AE0B + 2940 0001:0034AE16 2941 0001:0034AE22 2943 0001:0034AE33 2946 0001:0034AE43 + 2948 0001:0034AE5C 2949 0001:0034AE5E 2950 0001:0034AE66 2951 0001:0034AE75 + 2952 0001:0034AE79 2954 0001:0034AE82 2955 0001:0034AE95 2956 0001:0034AEA8 + 2958 0001:0034AEB9 2960 0001:0034AECA 2961 0001:0034AEDB 2962 0001:0034AEEC + 2963 0001:0034AEF0 2969 0001:0034AEF7 2983 0001:0034AF00 2984 0001:0034AF20 + 2985 0001:0034AF31 2986 0001:0034AF6C 2988 0001:0034AF7C 2989 0001:0034AFA3 + 2991 0001:0034AFAF 2992 0001:0034AFB3 2994 0001:0034AFB8 2996 0001:0034AFC7 + 2997 0001:0034AFCB 2999 0001:0034AFD0 3001 0001:0034AFDF 3002 0001:0034AFE3 + 3004 0001:0034AFE8 3005 0001:0034AFF5 3006 0001:0034AFFF 3009 0001:0034B008 + 3010 0001:0034B00C 3011 0001:0034B01A 3012 0001:0034B01E 3013 0001:0034B022 + 3015 0001:0034B03D 3016 0001:0034B041 3017 0001:0034B045 3018 0001:0034B050 + 3019 0001:0034B05C 3021 0001:0034B066 3022 0001:0034B072 3023 0001:0034B076 + 3026 0001:0034B090 3028 0001:0034B0A3 3029 0001:0034B0B1 3030 0001:0034B0B7 + 3031 0001:0034B0C8 3033 0001:0034B10C 3036 0001:0034B146 3038 0001:0034B14A + 3039 0001:0034B16B 3040 0001:0034B193 3041 0001:0034B19B 3042 0001:0034B1A0 + 3043 0001:0034B1A5 3044 0001:0034B1AA 3046 0001:0034B1AE 3048 0001:0034B1B4 + 3050 0001:0034B1BC 3051 0001:0034B1CE 3052 0001:0034B1D8 3054 0001:0034B1E2 + 3055 0001:0034B1EF 3056 0001:0034B1FD 3057 0001:0034B20B 3058 0001:0034B219 + 3060 0001:0034B22E 3061 0001:0034B232 3065 0001:0034B24E 3066 0001:0034B254 + 3068 0001:0034B25A 3069 0001:0034B25E 3071 0001:0034B278 3075 0001:0034B27E + 3076 0001:0034B282 3078 0001:0034B28F 3079 0001:0034B29E 3081 0001:0034B2A3 + 3082 0001:0034B2A7 3083 0001:0034B2B8 3085 0001:0034B2BF 3086 0001:0034B2C6 + 3088 0001:0034B2CC 3090 0001:0034B2DA 3091 0001:0034B2E4 3092 0001:0034B2EA + 3093 0001:0034B2ED 3095 0001:0034B2F4 3096 0001:0034B304 3099 0001:0034B308 + 3101 0001:0034B31F 3102 0001:0034B325 3105 0001:0034B362 3110 0001:0034B520 + 3111 0001:0034B53D 3112 0001:0034B574 3114 0001:0034B578 3115 0001:0034B59C + 3116 0001:0034B5B0 3117 0001:0034B5C4 3118 0001:0034B5D8 3119 0001:0034B5EC + 3120 0001:0034B600 3121 0001:0034B614 3122 0001:0034B628 3123 0001:0034B65E + 3129 0001:0034B664 3130 0001:0034B689 3131 0001:0034B69B 3130 0001:0034B6BF + 3132 0001:0034B6E4 3135 0001:0034B6EC 3136 0001:0034B6EF 3137 0001:0034B6F5 + 3139 0001:0034B700 3140 0001:0034B710 3143 0001:0034B714 3144 0001:0034B71A + 3145 0001:0034B725 3147 0001:0034B734 3148 0001:0034B744 3151 0001:0034B748 + 3152 0001:0034B74A 3153 0001:0034B769 3160 0001:0034B770 3161 0001:0034B78E + 3163 0001:0034B79E 3164 0001:0034B7A9 3166 0001:0034B7AF 3168 0001:0034B7BD + 3170 0001:0034B7CD 3171 0001:0034B7D1 3173 0001:0034B7D3 3166 0001:0034B7D4 + 3175 0001:0034B7D7 3177 0001:0034B7DD 3179 0001:0034B7EB 3181 0001:0034B7FB + 3182 0001:0034B7FF 3184 0001:0034B801 3177 0001:0034B802 3186 0001:0034B805 + 3188 0001:0034B80B 3190 0001:0034B81D 3192 0001:0034B830 3193 0001:0034B834 + 3195 0001:0034B836 3188 0001:0034B837 3197 0001:0034B83A 3199 0001:0034B840 + 3200 0001:0034B84F 3201 0001:0034B85D 3202 0001:0034B867 3203 0001:0034B873 + 3205 0001:0034B884 3210 0001:0034B894 3211 0001:0034B8BE 3220 0001:0034B8C8 + 3221 0001:0034B8E0 3223 0001:0034B8EB 3224 0001:0034B8FC 3225 0001:0034B902 + 3226 0001:0034B910 3221 0001:0034B911 3227 0001:0034B931 3229 0001:0034B938 + 3230 0001:0034B942 3231 0001:0034B94C 3232 0001:0034B956 3233 0001:0034B960 + 3234 0001:0034B96A 3235 0001:0034B974 3243 0001:0034B978 3244 0001:0034B99A + 3245 0001:0034B9AC 3247 0001:0034B9B2 3248 0001:0034B9C4 3251 0001:0034B9C8 + 3253 0001:0034B9D6 3255 0001:0034B9E6 3256 0001:0034B9F2 3257 0001:0034BA04 + 3258 0001:0034BA0A 3260 0001:0034BA23 3262 0001:0034BA2D 3251 0001:0034BA2E + 3263 0001:0034BA4E 3266 0001:0034BA58 3267 0001:0034BA5B 3268 0001:0034BA68 + 3269 0001:0034BA73 3270 0001:0034BA7E 3271 0001:0034BA89 3272 0001:0034BA94 + 3274 0001:0034BA9F 3275 0001:0034BAAA 3276 0001:0034BAB5 3277 0001:0034BAC3 + 3278 0001:0034BAD1 3279 0001:0034BADF 3280 0001:0034BAED 3281 0001:0034BAFB + 3282 0001:0034BB09 3283 0001:0034BB17 3284 0001:0034BB23 3293 0001:0034BB28 + 3294 0001:0034BB4E 3295 0001:0034BB76 3296 0001:0034BB85 3299 0001:0034BB91 + 3300 0001:0034BB9C 3301 0001:0034BBAA 3302 0001:0034BBB0 3304 0001:0034BBBF + 3305 0001:0034BBCC 3307 0001:0034BBED 3308 0001:0034BBF4 3309 0001:0034BC02 + 3311 0001:0034BC1A 3313 0001:0034BC29 3314 0001:0034BC40 3317 0001:0034BC79 + 3323 0001:0034BC98 3324 0001:0034BCCA 3325 0001:0034BCF6 3326 0001:0034BD09 + 3327 0001:0034BD39 3333 0001:0034BD68 3334 0001:0034BD6C 3335 0001:0034BD84 + 3336 0001:0034BD8C 3337 0001:0034BD94 3338 0001:0034BDA2 3339 0001:0034BDAA + 3340 0001:0034BDB1 3341 0001:0034BDB5 3342 0001:0034BDBD 3348 0001:0034BDC0 + 3349 0001:0034BDDE 3350 0001:0034BE1C 3351 0001:0034BE25 3352 0001:0034BE2B + 3353 0001:0034BE55 3358 0001:0034BE68 3359 0001:0034BE81 3360 0001:0034BEAD + 3362 0001:0034BEBD 3363 0001:0034BEEC 3365 0001:0034BEF4 3366 0001:0034BEFD + 3367 0001:0034BF17 3368 0001:0034BF3D 3369 0001:0034BF5D 3375 0001:0034BF64 + 3376 0001:0034BF83 3377 0001:0034BF90 3379 0001:0034BFA0 3380 0001:0034BFAC + 3382 0001:0034BFCF 3383 0001:0034BFF6 3387 0001:0034BFFC 3388 0001:0034C00C + 3394 0001:0034C01C 3395 0001:0034C042 3396 0001:0034C04F 3397 0001:0034C073 + 3398 0001:0034C091 3399 0001:0034C0B7 3400 0001:0034C0FF 3403 0001:0034C124 + 3404 0001:0034C144 3405 0001:0034C175 3412 0001:0034C17C 3413 0001:0034C19D + 3415 0001:0034C1AF 3416 0001:0034C1BC 3417 0001:0034C1DA 3419 0001:0034C1DE + 3420 0001:0034C1F2 3422 0001:0034C1FF 3413 0001:0034C200 3423 0001:0034C203 + 3424 0001:0034C215 3423 0001:0034C22E 3425 0001:0034C253 3428 0001:0034C26C + 3429 0001:0034C28B 3430 0001:0034C28F 3432 0001:0034C2B6 3433 0001:0034C303 + 3436 0001:0034C308 3437 0001:0034C30E 3438 0001:0034C312 3440 0001:0034C325 + 3441 0001:0034C335 3447 0001:0034C338 3448 0001:0034C358 3449 0001:0034C361 + 3450 0001:0034C365 3452 0001:0034C375 3453 0001:0034C3CE 3471 0001:0034C3D4 + 3472 0001:0034C3F5 3473 0001:0034C401 3474 0001:0034C407 3476 0001:0034C416 + 3477 0001:0034C41E 3478 0001:0034C431 3479 0001:0034C45F 3486 0001:0034C474 + 3487 0001:0034C47D 3488 0001:0034C487 3489 0001:0034C48A 3491 0001:0034C48C + 3492 0001:0034C49F 3494 0001:0034C4A3 3495 0001:0034C4A7 3497 0001:0034C4AB + 3499 0001:0034C4B6 3500 0001:0034C4BA 3501 0001:0034C4CD 3502 0001:0034C4D8 + 3503 0001:0034C4EA 3504 0001:0034C4F2 3529 0001:0034C504 3530 0001:0034C50A + 3531 0001:0034C513 3534 0001:0034C524 3535 0001:0034C530 3536 0001:0034C53B + 3537 0001:0034C546 3538 0001:0034C552 3540 0001:0034C55D 3545 0001:0034C560 + 3546 0001:0034C585 3548 0001:0034C5D0 3542 0001:0034C5D4 3544 0001:0034C5DB + +Line numbers for rPCE(Encounter\rPCE.pas) segment .text + + 206 0001:0034C5DC 207 0001:0034C5FF 210 0001:0034C620 211 0001:0034C628 + 212 0001:0034C630 213 0001:0034C638 214 0001:0034C677 215 0001:0034C67D + 217 0001:0034C689 219 0001:0034C691 220 0001:0034C6B9 227 0001:0034C6D8 + 228 0001:0034C6FB 229 0001:0034C708 230 0001:0034C717 232 0001:0034C724 + 233 0001:0034C77C 238 0001:0034C7B4 239 0001:0034C7D7 240 0001:0034C7E4 + 241 0001:0034C7F3 243 0001:0034C800 244 0001:0034C837 245 0001:0034C869 + 248 0001:0034C89C 249 0001:0034C8BB 250 0001:0034C8F1 260 0001:0034C8F8 + 261 0001:0034C922 262 0001:0034C92F 263 0001:0034C93E 265 0001:0034C94B + 266 0001:0034C9C4 271 0001:0034CA0C 272 0001:0034CA28 273 0001:0034CA76 + 282 0001:0034CA94 283 0001:0034CAC9 284 0001:0034CAD3 287 0001:0034CAF1 + 290 0001:0034CB00 292 0001:0034CB0A 295 0001:0034CB1E 296 0001:0034CB2C + 298 0001:0034CB36 300 0001:0034CB40 303 0001:0034CB4C 304 0001:0034CB7B + 305 0001:0034CB95 307 0001:0034CB9A 308 0001:0034CBB1 307 0001:0034CBCF + 311 0001:0034CBE1 314 0001:0034CBF1 315 0001:0034CC22 316 0001:0034CC53 + 317 0001:0034CC73 318 0001:0034CC93 319 0001:0034CCB3 320 0001:0034CCD3 + 322 0001:0034CCF3 323 0001:0034CD0D 324 0001:0034CD27 325 0001:0034CD41 + 326 0001:0034CD5B 327 0001:0034CD75 328 0001:0034CD8F 329 0001:0034CDA9 + 331 0001:0034CDC3 332 0001:0034CE02 333 0001:0034CE41 334 0001:0034CE80 + 335 0001:0034CEBF 336 0001:0034CEFE 337 0001:0034CF3D 338 0001:0034CF7C + 340 0001:0034CFDD 348 0001:0034D094 349 0001:0034D0B5 350 0001:0034D0C7 + 352 0001:0034D10A 353 0001:0034D12D 354 0001:0034D146 355 0001:0034D19F + 350 0001:0034D1A2 356 0001:0034D1D5 366 0001:0034D204 367 0001:0034D22C + 368 0001:0034D23D 369 0001:0034D29E 370 0001:0034D2E3 372 0001:0034D2F4 + 373 0001:0034D319 374 0001:0034D321 377 0001:0034D32D 379 0001:0034D3D8 + 380 0001:0034D3E3 375 0001:0034D3E6 382 0001:0034D43C 389 0001:0034D450 + 390 0001:0034D47C 391 0001:0034D491 393 0001:0034D4AD 394 0001:0034D4B7 + 395 0001:0034D4C1 396 0001:0034D4C9 397 0001:0034D4F6 399 0001:0034D51C + 400 0001:0034D534 401 0001:0034D545 402 0001:0034D55A 403 0001:0034D5AD + 397 0001:0034D5B0 404 0001:0034D5B9 405 0001:0034D5C1 407 0001:0034D5D3 + 408 0001:0034D610 411 0001:0034D63C 412 0001:0034D658 414 0001:0034D662 + 415 0001:0034D693 417 0001:0034D69B 418 0001:0034D6C3 426 0001:0034D6FC + 429 0001:0034D71D 430 0001:0034D722 432 0001:0034D765 433 0001:0034D788 + 434 0001:0034D7A1 435 0001:0034D7FA 430 0001:0034D7FD 436 0001:0034D830 + 446 0001:0034D860 447 0001:0034D884 448 0001:0034D894 449 0001:0034D89C + 452 0001:0034D8A8 453 0001:0034D8CB 454 0001:0034D8DE 455 0001:0034D939 + 456 0001:0034D93F 458 0001:0034D964 461 0001:0034D978 463 0001:0034D9AA + 464 0001:0034D9BE 466 0001:0034D9CB 469 0001:0034DA27 471 0001:0034DA32 + 450 0001:0034DA35 473 0001:0034DA98 479 0001:0034DAD0 481 0001:0034DAEF + 482 0001:0034DB0D 483 0001:0034DB22 484 0001:0034DB58 487 0001:0034DB6A + 488 0001:0034DB79 492 0001:0034DB96 494 0001:0034DBCC 495 0001:0034DBFE + 497 0001:0034DC78 498 0001:0034DCA1 500 0001:0034DD11 501 0001:0034DD56 + 504 0001:0034DDE4 506 0001:0034DE77 488 0001:0034DE7A 509 0001:0034DE83 + 513 0001:0034DE91 515 0001:0034DEA0 517 0001:0034DECE 518 0001:0034DEEA + 517 0001:0034DF12 521 0001:0034DF17 522 0001:0034DF23 523 0001:0034DF32 + 524 0001:0034DF4C 526 0001:0034DF68 527 0001:0034DF8D 524 0001:0034DF90 + 531 0001:0034DFBA 534 0001:0034E06C 535 0001:0034E075 536 0001:0034E0A7 + 540 0001:0034E0EC 541 0001:0034E0F5 542 0001:0034E127 549 0001:0034E16C + 550 0001:0034E18D 551 0001:0034E19F 553 0001:0034E1E2 554 0001:0034E205 + 555 0001:0034E21E 556 0001:0034E277 551 0001:0034E27A 557 0001:0034E2AD + 563 0001:0034E2DC 564 0001:0034E302 565 0001:0034E30A 568 0001:0034E313 + 569 0001:0034E343 566 0001:0034E346 571 0001:0034E398 580 0001:0034E3A0 + 581 0001:0034E3C1 582 0001:0034E3D3 584 0001:0034E416 585 0001:0034E439 + 586 0001:0034E452 587 0001:0034E4AB 582 0001:0034E4AE 588 0001:0034E4E1 + 596 0001:0034E510 597 0001:0034E534 598 0001:0034E53C 603 0001:0034E548 + 604 0001:0034E61C 599 0001:0034E61F 606 0001:0034E675 609 0001:0034E688 + 610 0001:0034E6A6 611 0001:0034E6B1 612 0001:0034E711 617 0001:0034E718 + 618 0001:0034E73F 619 0001:0034E755 621 0001:0034E75F 622 0001:0034E769 + 623 0001:0034E789 624 0001:0034E79E 626 0001:0034E7BC 627 0001:0034E7C5 + 629 0001:0034E83E 642 0001:0034E860 643 0001:0034E89D 644 0001:0034E8BB + 645 0001:0034E8E1 647 0001:0034E8EB 648 0001:0034E918 649 0001:0034E959 + 651 0001:0034E97F 652 0001:0034E9AA 653 0001:0034E9C0 654 0001:0034E9C6 + 655 0001:0034E9F9 656 0001:0034EA1C 649 0001:0034EA1F 657 0001:0034EA28 + 659 0001:0034EA38 660 0001:0034EA87 670 0001:0034EAC8 671 0001:0034EB04 + 672 0001:0034EB1E 673 0001:0034EB48 674 0001:0034EB55 675 0001:0034EB7F + 677 0001:0034EB8C 678 0001:0034EB9B 680 0001:0034EBA9 681 0001:0034EBB9 + 683 0001:0034EBBF 684 0001:0034EBD4 685 0001:0034EBE4 686 0001:0034EBEA + 687 0001:0034EC00 689 0001:0034EC10 690 0001:0034EC16 691 0001:0034EC22 + 693 0001:0034EC34 694 0001:0034EC3F 697 0001:0034EC51 698 0001:0034EC59 + 699 0001:0034EC5E 700 0001:0034EC8B 702 0001:0034ECA0 703 0001:0034ECCF + 705 0001:0034ECE6 707 0001:0034ED15 708 0001:0034ED1D 710 0001:0034ED1F + 703 0001:0034ED22 711 0001:0034ED27 713 0001:0034ED2D 714 0001:0034ED38 + 716 0001:0034ED3B 700 0001:0034ED3E 717 0001:0034ED47 718 0001:0034ED54 + 721 0001:0034ED99 724 0001:0034EDA9 725 0001:0034EDB1 726 0001:0034EDD1 + 728 0001:0034EDDB 730 0001:0034EDE1 731 0001:0034EDF1 733 0001:0034EDFB + 734 0001:0034EE1D 736 0001:0034EE23 737 0001:0034EE4E 739 0001:0034EE6D + 740 0001:0034EE78 743 0001:0034EE7B 745 0001:0034EE8B 746 0001:0034EE95 + 747 0001:0034EE9D 749 0001:0034EEBB 751 0001:0034EECC 752 0001:0034EEEC + 753 0001:0034EEF2 754 0001:0034EF0D 749 0001:0034EF10 755 0001:0034EF51 + 758 0001:0034EF7C 759 0001:0034EFA4 760 0001:0034EFBE 761 0001:0034F00D + 764 0001:0034F014 765 0001:0034F03C 766 0001:0034F056 767 0001:0034F0A5 + 775 0001:0034F0AC 776 0001:0034F0D8 777 0001:0034F108 780 0001:0034F12E + 781 0001:0034F14F 782 0001:0034F157 783 0001:0034F193 785 0001:0034F19A + 786 0001:0034F1AB 788 0001:0034F1B5 789 0001:0034F1BC 791 0001:0034F1C0 + 792 0001:0034F1D8 794 0001:0034F1DE 796 0001:0034F212 797 0001:0034F24F + 800 0001:0034F255 802 0001:0034F25B 803 0001:0034F26B 805 0001:0034F26E + 806 0001:0034F278 807 0001:0034F286 808 0001:0034F29B 809 0001:0034F2AF + 810 0001:0034F2BD 811 0001:0034F2DE 813 0001:0034F2E4 814 0001:0034F2F4 + 815 0001:0034F309 816 0001:0034F31D 819 0001:0034F35C 827 0001:0034F388 + 828 0001:0034F3B4 829 0001:0034F3E4 832 0001:0034F40A 833 0001:0034F42B + 834 0001:0034F433 835 0001:0034F46F 837 0001:0034F476 838 0001:0034F487 + 840 0001:0034F491 841 0001:0034F498 843 0001:0034F49C 844 0001:0034F4B4 + 846 0001:0034F4BA 848 0001:0034F4EE 849 0001:0034F52B 852 0001:0034F531 + 854 0001:0034F537 855 0001:0034F547 857 0001:0034F54A 858 0001:0034F554 + 859 0001:0034F562 860 0001:0034F577 861 0001:0034F58B 862 0001:0034F599 + 863 0001:0034F5BA 865 0001:0034F5C0 866 0001:0034F5D0 867 0001:0034F5E5 + 868 0001:0034F5F9 871 0001:0034F638 876 0001:0034F664 877 0001:0034F66D + 878 0001:0034F69F 885 0001:0034F6E4 886 0001:0034F705 887 0001:0034F717 + 889 0001:0034F75A 890 0001:0034F77D 891 0001:0034F796 892 0001:0034F7EF + 887 0001:0034F7F2 893 0001:0034F825 900 0001:0034F854 901 0001:0034F87A + 902 0001:0034F882 905 0001:0034F88B 906 0001:0034F8BB 903 0001:0034F8BE + 908 0001:0034F910 913 0001:0034F918 914 0001:0034F921 915 0001:0034F953 + 922 0001:0034F998 923 0001:0034F9B9 924 0001:0034F9CB 926 0001:0034FA0E + 927 0001:0034FA31 928 0001:0034FA4A 929 0001:0034FAA3 924 0001:0034FAA6 + 930 0001:0034FAD9 937 0001:0034FB08 938 0001:0034FB2E 939 0001:0034FB36 + 942 0001:0034FB3F 943 0001:0034FB6F 940 0001:0034FB72 945 0001:0034FBC4 + 951 0001:0034FBCC 952 0001:0034FBD5 953 0001:0034FC07 960 0001:0034FC4C + 961 0001:0034FC6D 962 0001:0034FC7F 964 0001:0034FCC2 965 0001:0034FCE5 + 966 0001:0034FCFE 967 0001:0034FD57 962 0001:0034FD5A 968 0001:0034FD8D + 975 0001:0034FDBC 976 0001:0034FDE2 977 0001:0034FDEA 980 0001:0034FDF3 + 981 0001:0034FE23 978 0001:0034FE26 983 0001:0034FE78 989 0001:0034FE80 + 990 0001:0034FE89 991 0001:0034FEBB 998 0001:0034FF00 999 0001:0034FF21 + 1000 0001:0034FF33 1002 0001:0034FF4F 1003 0001:0034FF68 1004 0001:0034FF78 + 1005 0001:0034FF83 1007 0001:00350010 1008 0001:00350030 1010 0001:00350036 + 1011 0001:0035007C 1013 0001:0035008C 1014 0001:0035009A 1000 0001:0035009D + 1015 0001:003500D0 1022 0001:00350170 1023 0001:00350191 1024 0001:003501A3 + 1026 0001:003501E6 1027 0001:00350209 1028 0001:00350222 1029 0001:0035027B + 1024 0001:0035027E 1030 0001:003502B1 1037 0001:003502E0 1038 0001:00350306 + 1039 0001:0035030E 1042 0001:00350317 1043 0001:00350347 1040 0001:0035034A + 1045 0001:0035039C 1056 0001:003503A4 1057 0001:003503C5 1060 0001:00350410 + 1061 0001:0035044B 1062 0001:00350487 1063 0001:003504C3 1064 0001:003504FF + 1065 0001:0035053B 1066 0001:00350577 1067 0001:003505B3 1068 0001:003505EF + 1069 0001:0035062B 1070 0001:00350667 1071 0001:003506A9 1072 0001:003506F1 + 1073 0001:00350739 1075 0001:003507AE 1079 0001:003507D8 1080 0001:003507E1 + 1081 0001:00350801 1082 0001:00350816 1085 0001:00350834 1086 0001:00350859 + 1087 0001:0035085F 1089 0001:00350898 1090 0001:003508B1 1091 0001:003508E3 + 1094 0001:00350900 1095 0001:00350920 1096 0001:00350926 1098 0001:0035096E + 1099 0001:00350987 1100 0001:0035099D 1102 0001:003509B6 1103 0001:003509E0 + 1106 0001:00350A10 1107 0001:00350A1F 1108 0001:00350A4F 1117 0001:00350A68 + 1118 0001:00350A8C 1119 0001:00350A95 1120 0001:00350AA6 1121 0001:00350AAA + 1124 0001:00350AB1 1125 0001:00350ACF 1127 0001:00350ADE 1128 0001:00350AE2 + 1131 0001:00350AE7 1132 0001:00350AF6 1134 0001:00350B03 1122 0001:00350B06 + 1136 0001:00350B13 1140 0001:00350B23 1141 0001:00350B31 1142 0001:00350B48 + 1143 0001:00350B60 1145 0001:00350B77 1146 0001:00350B8F 1145 0001:00350BBF + 1148 0001:00350BC4 1149 0001:00350BC9 1151 0001:00350BEB 1153 0001:00350C25 + 1154 0001:00350C29 1156 0001:00350C2B 1149 0001:00350C2E 1157 0001:00350C33 + 1160 0001:00350C77 1163 0001:00350CA8 1164 0001:00350CC4 1166 0001:00350CEB + 1167 0001:00350D04 1168 0001:00350D0C 1170 0001:00350D4C 1171 0001:00350D74 + 1174 0001:00350D90 1175 0001:00350DAF 1176 0001:00350E29 1182 0001:00350E48 + 1183 0001:00350E70 1184 0001:00350EA8 1185 0001:00350EBF 1186 0001:00350ED0 + 1187 0001:00350F04 1190 0001:00350F28 1191 0001:00350F44 1193 0001:00350F4F + 1194 0001:00350F94 1196 0001:00350F9C 1197 0001:00350FC4 1206 0001:00350FEC + 1207 0001:0035101B 1208 0001:0035102A 1209 0001:00351038 1210 0001:0035103D + 1211 0001:00351067 1212 0001:0035107D 1213 0001:00351093 1214 0001:003510A9 + 1215 0001:003510C6 1216 0001:003510DC 1218 0001:003510E9 1220 0001:003510F3 + 1221 0001:003510F9 1223 0001:00351114 1224 0001:0035112E 1225 0001:00351154 + 1227 0001:0035117A 1228 0001:003511A5 1229 0001:003511B9 1231 0001:003511BF + 1232 0001:003511CA 1234 0001:003511D0 1237 0001:003511D7 1238 0001:00351205 + 1240 0001:00351212 1235 0001:00351215 1244 0001:00351222 1225 0001:00351225 + 1246 0001:0035122E 1248 0001:00351246 1250 0001:00351285 1262 0001:00351360 + 1263 0001:00351369 1264 0001:00351371 1265 0001:0035137F 1278 0001:00351384 + 1279 0001:00351388 1280 0001:00351393 1290 0001:00351398 1291 0001:003513B4 + 1293 0001:003513BF 1294 0001:003513C7 1296 0001:003513F8 1297 0001:00351401 + 1299 0001:00351407 1300 0001:0035142B 1303 0001:00351454 1304 0001:0035146D + 1306 0001:00351476 1307 0001:0035149E 1309 0001:003514A5 1310 0001:003514CD + 1313 0001:003514F8 1314 0001:00351514 1315 0001:0035151D 1317 0001:0035154D + 1318 0001:00351571 1321 0001:0035159C 1322 0001:003515BA 1326 0001:003515C7 + 1327 0001:003515D5 1328 0001:003515ED 1329 0001:00351605 1331 0001:0035161C + 1332 0001:00351636 1334 0001:00351654 1337 0001:00351676 1340 0001:003516AC + 1341 0001:003516CC 1342 0001:003516D0 1346 0001:003516DD 1347 0001:003516EB + 1348 0001:00351703 1349 0001:0035171B 1351 0001:00351732 1352 0001:0035174C + 1353 0001:0035176A 1354 0001:0035178F 1356 0001:003517B0 1358 0001:003517B5 + 1360 0001:003517F1 1362 0001:0035181A 1365 0001:00351880 1366 0001:0035189C + 1368 0001:003518A5 1369 0001:003518C6 1371 0001:003518CD 1372 0001:003518F8 + 1375 0001:00351914 1376 0001:0035192D 1378 0001:00351936 1379 0001:0035195E + 1381 0001:00351965 1382 0001:0035198D 1385 0001:003519B8 1386 0001:003519DC + 1387 0001:00351A46 1390 0001:00351A7C 1391 0001:00351A95 1392 0001:00351A9E + 1393 0001:00351ACA 1394 0001:00351AF2 1397 0001:00351B1C 1398 0001:00351B38 + 1400 0001:00351B42 1401 0001:00351B4A 1403 0001:00351B7B 1404 0001:00351BA3 + 1410 0001:00351BD4 1411 0001:00351BFC 1412 0001:00351C02 1413 0001:00351C50 + 1414 0001:00351CC3 1421 0001:00351CF8 1422 0001:00351D21 1423 0001:00351D25 + 1424 0001:00351D3B 1425 0001:00351D41 1427 0001:00351D6B 1428 0001:00351D88 + 1429 0001:00351DAA 1430 0001:00351DB0 1432 0001:00351DB6 1433 0001:00351E07 + 1436 0001:00351E40 1437 0001:00351E5C 1438 0001:00351EAA 1441 0001:00351ED4 + 1442 0001:00351EF0 1443 0001:00351F3E 1447 0001:00351F6C 1448 0001:00351F7B + 1449 0001:00351FC0 1452 0001:00351FEC 1453 0001:00352005 1454 0001:00352067 + 1479 0001:0035209C 1480 0001:003520C3 1481 0001:003520CD 1482 0001:003520D7 + 1483 0001:003520E1 1484 0001:003520EB 1485 0001:003520F5 1486 0001:003520FF + 1487 0001:00352109 1488 0001:00352113 1489 0001:0035211D 1490 0001:00352129 + 1492 0001:0035215E 1463 0001:00352160 1464 0001:0035217E 1465 0001:00352185 + 1466 0001:0035218C 1467 0001:0035219A 1468 0001:003521AB 1469 0001:003521BC + 1470 0001:003521CD 1471 0001:003521DE 1472 0001:003521EF 1473 0001:00352200 + 1474 0001:00352211 1475 0001:00352222 1476 0001:00352233 1478 0001:00352259 + +Line numbers for fPCELex(Encounter\fPCELex.pas) segment .text + + 44 0001:003524F4 45 0001:003524FE 46 0001:00352515 47 0001:00352523 + 48 0001:0035252B 49 0001:00352535 50 0001:00352543 51 0001:0035254E + 53 0001:0035256B 55 0001:0035257B 58 0001:00352584 60 0001:00352587 + 61 0001:00352592 64 0001:00352594 65 0001:00352597 66 0001:0035259D + 68 0001:003525A7 69 0001:003525B3 72 0001:003525C5 73 0001:003525D1 + 76 0001:003525E1 79 0001:0035265C 80 0001:0035265F 81 0001:00352671 + 84 0001:00352678 86 0001:0035267B 87 0001:00352688 88 0001:00352695 + 91 0001:00352698 93 0001:003526B0 94 0001:003526CE 95 0001:003526D8 + 96 0001:0035270D 98 0001:00352724 99 0001:00352731 100 0001:0035273F + 101 0001:0035274A 102 0001:00352757 105 0001:00352766 106 0001:00352773 + 107 0001:00352781 109 0001:0035278E 110 0001:003527B7 113 0001:003527E4 + 115 0001:003527E7 117 0001:00352811 118 0001:0035281E 120 0001:0035282B + 123 0001:00352830 125 0001:0035284C 126 0001:00352881 128 0001:00352887 + 129 0001:00352891 131 0001:003528FE 132 0001:00352950 134 0001:00352979 + 137 0001:0035298C 139 0001:0035298F 140 0001:0035299A 141 0001:003529A1 + 144 0001:003529A4 146 0001:003529AA 147 0001:003529B3 148 0001:003529BC + 150 0001:003529F0 150 0001:003529F7 + +Line numbers for fBALocalDiagnoses(BA\fBALocalDiagnoses.pas) segment .text + + 157 0001:00352F6C 158 0001:00352F73 159 0001:00352F7A 160 0001:00352F81 + 161 0001:00352F87 162 0001:00352FA0 163 0001:00352FAA 164 0001:00352FB7 + 166 0001:00352FC1 168 0001:00352FC4 169 0001:00352FC7 170 0001:00352FD1 + 171 0001:00352FD9 172 0001:00352FE0 173 0001:00352FE7 174 0001:00352FEE + 175 0001:00352FF8 176 0001:00352FFF 183 0001:00353004 184 0001:00353025 + 186 0001:00353061 187 0001:00353083 188 0001:0035309C 189 0001:003530F3 + 184 0001:003530F4 190 0001:0035311D 193 0001:0035314C 194 0001:0035314F + 195 0001:00353160 196 0001:00353171 197 0001:00353182 198 0001:00353197 + 200 0001:0035319E 201 0001:003531A8 203 0001:003531B9 205 0001:003531C6 + 206 0001:003531CD 207 0001:003531E1 208 0001:003531E8 209 0001:003531EF + 212 0001:003531F4 213 0001:0035321D 214 0001:00353231 215 0001:0035323F + 217 0001:00353246 218 0001:00353253 219 0001:00353269 221 0001:00353287 + 223 0001:00353299 224 0001:003532AF 226 0001:003532CD 228 0001:003532DF + 229 0001:003532F5 231 0001:00353313 233 0001:00353325 234 0001:0035333B + 236 0001:00353359 239 0001:0035336B 240 0001:00353375 241 0001:00353387 + 242 0001:00353391 243 0001:003533A3 244 0001:003533AD 245 0001:003533BF + 246 0001:003533C9 247 0001:003533FD 256 0001:00353410 258 0001:00353431 + 259 0001:0035343B 260 0001:00353447 263 0001:00353456 265 0001:00353464 + 267 0001:0035348A 269 0001:003534A6 270 0001:003534CB 271 0001:003534D7 + 272 0001:003534E4 273 0001:003534FA 277 0001:0035350B 280 0001:00353516 + 281 0001:00353520 283 0001:0035352F 265 0001:00353530 286 0001:0035353C + 288 0001:0035354A 289 0001:00353551 291 0001:00353577 293 0001:00353593 + 294 0001:003535B8 295 0001:003535C4 296 0001:003535D1 297 0001:003535E7 + 301 0001:003535F8 302 0001:00353603 306 0001:00353611 307 0001:0035361B + 309 0001:0035362A 289 0001:0035362B 311 0001:00353657 314 0001:00353660 + 318 0001:00353663 320 0001:0035366D 321 0001:00353674 322 0001:0035367B + 326 0001:00353684 327 0001:00353693 329 0001:0035369B 330 0001:003536A2 + 331 0001:003536B0 333 0001:003536BA 341 0001:003536BC 342 0001:003536DD + 343 0001:003536EC 345 0001:00353703 346 0001:00353712 347 0001:0035371C + 348 0001:0035374B 349 0001:00353765 352 0001:0035376C 354 0001:00353773 + 356 0001:0035377D 359 0001:00353784 360 0001:00353798 359 0001:003537B3 + 362 0001:003537D8 370 0001:003537F4 372 0001:00353817 373 0001:0035382E + 374 0001:00353843 376 0001:00353879 378 0001:0035388B 379 0001:0035389A + 385 0001:003538B4 387 0001:003538CE 390 0001:00353903 391 0001:00353976 + 393 0001:00353984 394 0001:003539AC 395 0001:003539BE 396 0001:003539FE + 399 0001:00353A47 401 0001:00353AC6 379 0001:00353AC7 403 0001:00353AFB + 408 0001:00353B50 409 0001:00353B6D 411 0001:00353B87 412 0001:00353BA9 + 414 0001:00353BC9 415 0001:00353C36 409 0001:00353C37 416 0001:00353C60 + 423 0001:00353C74 425 0001:00353C94 426 0001:00353CA2 427 0001:00353CB1 + 428 0001:00353CB8 429 0001:00353CC0 430 0001:00353CD4 431 0001:00353CEA + 430 0001:00353D50 433 0001:00353D53 434 0001:00353D5D 435 0001:00353D67 + 436 0001:00353D6E 437 0001:00353D85 436 0001:00353DEC 440 0001:00353DEF + 442 0001:00353DFA 443 0001:00353E09 444 0001:00353E1F 443 0001:00353E3C + 447 0001:00353E41 448 0001:00353E72 452 0001:00353EDC 453 0001:00353EDF + 454 0001:00353EED 455 0001:00353EFC 456 0001:00353F06 457 0001:00353F0D + 461 0001:00353F24 462 0001:00353F29 466 0001:00353F2C 467 0001:00353F46 + 469 0001:00353F60 471 0001:00353F71 472 0001:00353F7F 473 0001:00353F86 + 474 0001:00353FA5 475 0001:00353FC7 477 0001:00353FC9 467 0001:00353FCA + 478 0001:00353FEF 484 0001:00353FF8 485 0001:00354026 487 0001:00354037 + 489 0001:0035404B 490 0001:0035405A 492 0001:0035409E 487 0001:0035409F + 494 0001:003540A2 496 0001:003540A3 498 0001:003540B9 502 0001:003540E2 + 503 0001:0035416D 504 0001:0035417D 506 0001:00354193 496 0001:00354194 + 507 0001:003541BD 515 0001:003541FC 516 0001:00354225 517 0001:00354233 + 518 0001:0035423A 519 0001:00354242 521 0001:0035424A 522 0001:0035425B + 523 0001:00354265 524 0001:00354282 525 0001:003542A0 526 0001:003542B3 + 527 0001:003542C2 528 0001:003542D1 529 0001:003542DE 530 0001:003542F2 + 531 0001:00354319 533 0001:0035433E 534 0001:00354355 535 0001:00354366 + 538 0001:0035438A 540 0001:00354398 541 0001:003543AC 543 0001:003543B8 + 546 0001:003543E2 547 0001:003543EA 549 0001:00354416 555 0001:003544E0 + 557 0001:003544E6 558 0001:003544EA 559 0001:00354503 561 0001:00354524 + 563 0001:00354548 565 0001:0035454E 566 0001:00354570 570 0001:00354576 + 571 0001:00354598 559 0001:00354599 573 0001:0035459F 574 0001:003545AC + 577 0001:003545D8 579 0001:003545DB 580 0001:003545E2 581 0001:003545F0 + 582 0001:003545F7 583 0001:003545FE 584 0001:00354605 586 0001:0035460C + 587 0001:0035462B 592 0001:00354630 594 0001:0035464C 596 0001:00354670 + 597 0001:0035467F 598 0001:003546AD 599 0001:003546BC 600 0001:003546EA + 594 0001:003546ED 602 0001:003546F0 603 0001:00354700 604 0001:0035470E + 605 0001:0035473E 608 0001:00354748 610 0001:00354768 612 0001:00354785 + 614 0001:0035479A 615 0001:003547B0 616 0001:003547C2 620 0001:003547D4 + 621 0001:003547DB 622 0001:003547F1 623 0001:00354803 628 0001:00354815 + 629 0001:0035481C 631 0001:00354843 637 0001:003548A0 638 0001:003548D0 + 639 0001:003548D4 641 0001:003548DD 643 0001:003548F2 644 0001:00354918 + 646 0001:0035494D 647 0001:00354951 649 0001:00354953 641 0001:00354954 + 651 0001:00354984 657 0001:0035498C 658 0001:003549B6 659 0001:003549BA + 661 0001:003549CE 662 0001:003549DD 663 0001:003549FB 665 0001:00354A08 + 666 0001:00354A0C 668 0001:00354A0E 659 0001:00354A0F 669 0001:00354A3F + 675 0001:00354A48 676 0001:00354A72 677 0001:00354A76 679 0001:00354A8A + 680 0001:00354A99 681 0001:00354AB7 683 0001:00354AC4 684 0001:00354AC8 + 686 0001:00354ACA 677 0001:00354ACB 687 0001:00354AFB 694 0001:00354B04 + 695 0001:00354B23 697 0001:00354B27 699 0001:00354B45 701 0001:00354B77 + 702 0001:00354B7B 704 0001:00354B7D 697 0001:00354B7E 706 0001:00354B81 + 708 0001:00354B87 709 0001:00354B9F 711 0001:00354BE1 715 0001:00354BF8 + 717 0001:00354C12 719 0001:00354C28 721 0001:00354C47 723 0001:00354C6C + 724 0001:00354CB4 725 0001:00354CC4 726 0001:00354CE3 728 0001:00354CF1 + 719 0001:00354CF2 732 0001:00354CFE 733 0001:00354D14 735 0001:00354D33 + 737 0001:00354D54 738 0001:00354D9C 739 0001:00354DBB 741 0001:00354DC9 + 733 0001:00354DCA 743 0001:00354DD1 744 0001:00354DFA 747 0001:00354E04 + 748 0001:00354E07 749 0001:00354E0E 750 0001:00354E15 758 0001:00354E18 + 759 0001:00354E3A 760 0001:00354E49 761 0001:00354E58 762 0001:00354E60 + 763 0001:00354E68 765 0001:00354E6E 767 0001:00354E8D 769 0001:00354EB7 + 770 0001:00354EDB 771 0001:00354EF9 773 0001:00354F04 765 0001:00354F07 + 777 0001:00354F0C 779 0001:00354F28 780 0001:00354F36 782 0001:00354F48 + 784 0001:00354F60 785 0001:00354F8F 787 0001:00354FD6 788 0001:00354FE1 + 782 0001:00354FE2 791 0001:00354FEB 792 0001:00354FF6 777 0001:00354FF9 + 793 0001:00355002 794 0001:0035500E 795 0001:00355052 807 0001:0035506C + 808 0001:003550A0 809 0001:003550CB 810 0001:003550E0 811 0001:003550E8 + 812 0001:003550F6 814 0001:003550FD 816 0001:00355106 818 0001:0035511F + 820 0001:0035514F 822 0001:00355175 823 0001:003551B3 825 0001:003551D5 + 826 0001:003551E6 827 0001:00355224 830 0001:0035522B 816 0001:0035522C + 832 0001:00355255 838 0001:00355294 839 0001:003552B7 841 0001:003552C3 + 842 0001:003552DC 844 0001:003552E2 846 0001:003552FC 847 0001:0035535D + 848 0001:003553B8 849 0001:00355435 850 0001:003554B0 851 0001:0035551A + 844 0001:0035551B 852 0001:00355524 855 0001:00355535 856 0001:0035556B + 865 0001:00355590 866 0001:003555B3 867 0001:003555C2 869 0001:003555D0 + 870 0001:003555DA 871 0001:003555E4 872 0001:003555EE 873 0001:003555F8 + 874 0001:00355602 875 0001:0035560A 876 0001:00355612 877 0001:0035561A + 879 0001:00355622 880 0001:0035563B 882 0001:00355641 884 0001:0035565B + 885 0001:0035567B 886 0001:0035569E 887 0001:003556F9 888 0001:0035575F + 882 0001:00355760 889 0001:00355769 890 0001:00355775 893 0001:00355780 + 894 0001:003557A0 895 0001:003557BE 896 0001:003557CA 897 0001:003557D7 + 899 0001:003557EE 900 0001:0035580E 901 0001:0035584C 903 0001:00355850 + 905 0001:00355860 906 0001:00355866 909 0001:0035586D 910 0001:0035587C + 911 0001:00355884 912 0001:00355898 913 0001:003558A7 914 0001:003558B6 + 915 0001:003558C5 919 0001:003558D2 897 0001:003558D3 923 0001:003558DE + 925 0001:003558F3 926 0001:003558FD 927 0001:00355907 928 0001:00355911 + 930 0001:0035594A 933 0001:00355960 934 0001:00355977 936 0001:00355981 + 937 0001:00355995 938 0001:003559A0 941 0001:003559AE 942 0001:003559B8 + 944 0001:003559E5 945 0001:003559EF 947 0001:00355A1C 948 0001:00355A26 + 950 0001:00355A53 951 0001:00355A5D 952 0001:00355AAC 958 0001:00355ABC + 959 0001:00355AE0 960 0001:00355AF4 961 0001:00355AFC 962 0001:00355B04 + 963 0001:00355B0C 964 0001:00355B14 966 0001:00355B2A 967 0001:00355B3B + 968 0001:00355B4E 969 0001:00355B61 970 0001:00355B74 972 0001:00355B85 + 964 0001:00355B86 974 0001:00355B89 975 0001:00355BA2 976 0001:00355BAE + 978 0001:00355BC2 979 0001:00355BD1 981 0001:00355BF4 983 0001:00355BFF + 984 0001:00355C18 985 0001:00355C2A 988 0001:00355C4D 990 0001:00355C58 + 991 0001:00355C71 992 0001:00355C83 995 0001:00355CA6 997 0001:00355CB1 + 998 0001:00355CCA 999 0001:00355CDC 1001 0001:00355D21 1006 0001:00355D4C + 1008 0001:00355D71 1010 0001:00355D7F 1012 0001:00355D9A 1014 0001:00355DAC + 1016 0001:00355DC5 1017 0001:00355DE4 1019 0001:00355DE6 1012 0001:00355DE7 + 1020 0001:00355DEA 1021 0001:00355E03 1022 0001:00355E16 1024 0001:00355E2A + 1025 0001:00355E39 1026 0001:00355E4E 1028 0001:00355E65 1030 0001:00355E77 + 1031 0001:00355E90 1032 0001:00355EA2 1035 0001:00355EB9 1037 0001:00355ECB + 1038 0001:00355EE4 1039 0001:00355EF6 1042 0001:00355F0D 1044 0001:00355F1F + 1045 0001:00355F38 1046 0001:00355F4A 1048 0001:00355F83 1054 0001:00355FB0 + 1056 0001:00355FD3 1058 0001:00355FF0 1060 0001:00356005 1061 0001:00356036 + 1062 0001:00356074 1064 0001:003560A9 1066 0001:003560B7 1067 0001:003560C1 + 1071 0001:003560D0 1072 0001:003560D7 1073 0001:00356100 1077 0001:00356140 + 1079 0001:0035617E 1056 0001:0035617F 1080 0001:003561B7 1086 0001:003562C0 + 1087 0001:003562C5 1088 0001:003562DA 1091 0001:003562EA 1092 0001:00356305 + 1091 0001:00356325 1094 0001:00356328 1099 0001:0035632C 1100 0001:00356331 + 1103 0001:00356334 1104 0001:0035634B 1106 0001:0035635A 1107 0001:0035636C + 1108 0001:003563A8 1112 0001:003563B0 1113 0001:003563CD 1114 0001:003563E1 + 1115 0001:003563EF 1117 0001:00356405 1119 0001:00356449 1115 0001:0035644A + 1124 0001:00356468 1128 0001:00356494 1135 0001:003564B8 1137 0001:003564DA + 1138 0001:003564E8 1140 0001:003564F7 1141 0001:00356502 1143 0001:00356510 + 1144 0001:0035651E 1145 0001:0035653B 1146 0001:0035654F 1144 0001:00356586 + 1151 0001:003565A4 1155 0001:003565AE 1156 0001:003565BA 1158 0001:003565D3 + 1159 0001:003565DD 1160 0001:003565E5 1163 0001:0035660F 1169 0001:00356644 + 1171 0001:00356666 1172 0001:00356675 1174 0001:00356686 1176 0001:003566A4 + 1177 0001:003566C8 1178 0001:0035670C 1174 0001:0035670D 1179 0001:00356710 + 1181 0001:00356729 1182 0001:00356733 1183 0001:0035673B 1185 0001:00356765 + 1190 0001:00356798 1193 0001:003567B4 1195 0001:003567CA 1197 0001:003567E9 + 1199 0001:0035680A 1200 0001:00356852 1201 0001:00356862 1204 0001:00356875 + 1206 0001:00356896 1207 0001:003568DE 1208 0001:003568EE 1210 0001:003568FC + 1195 0001:003568FD 1214 0001:00356909 1215 0001:0035691F 1217 0001:0035693A + 1218 0001:0035695B 1219 0001:003569A3 1215 0001:003569A4 1221 0001:003569A7 + 1222 0001:003569D0 1225 0001:003569D8 1226 0001:003569E6 1228 0001:003569ED + 1229 0001:003569F2 1231 0001:00356A00 1232 0001:00356A04 1234 0001:00356A12 + 1235 0001:00356A18 1237 0001:00356A24 1240 0001:00356A54 1241 0001:00356A6C + 1243 0001:00356A75 1247 0001:00356A88 1248 0001:00356AD5 1251 0001:00356AFF + 1255 0001:00356C00 1257 0001:00356C36 1258 0001:00356C4B 1259 0001:00356C7A + 1261 0001:00356CA0 1262 0001:00356CCD 1264 0001:00356CF0 1265 0001:00356D1D + 1267 0001:00356D3E 1269 0001:00356DA4 1278 0001:00356E1C 1279 0001:00356E3F + 1280 0001:00356E4C 1281 0001:00356E50 1282 0001:00356E54 1283 0001:00356E67 + 1284 0001:00356E7A 1286 0001:00356E92 1287 0001:00356EA1 1289 0001:00356EC1 + 1291 0001:00356EF2 1292 0001:00356EF6 1296 0001:00356EFC 1298 0001:00356F2D + 1299 0001:00356F31 1303 0001:00356F37 1304 0001:00356F3B 1308 0001:00356F3F + 1310 0001:00356F49 1311 0001:00356F8C 1313 0001:00356FBC 1314 0001:00356FE7 + 1315 0001:0035700E 1316 0001:0035704C 1317 0001:00357070 1320 0001:00357082 + 1323 0001:003570ED 1324 0001:003570F3 1325 0001:0035715C 1284 0001:0035715D + 1326 0001:00357193 1330 0001:00357220 1332 0001:00357226 1333 0001:0035722E + 1334 0001:00357235 1341 0001:0035723C 1342 0001:0035725A 1348 0001:00357261 + 1350 0001:00357281 1352 0001:003572A2 1353 0001:003572C5 1354 0001:003572E4 + 1355 0001:00357311 1357 0001:0035731F 1348 0001:00357320 1359 0001:00357329 + 1361 0001:00357349 1362 0001:0035736E 1364 0001:00357394 1365 0001:0035739B + 1366 0001:003573BA 1367 0001:003573CA 1368 0001:003573DA 1369 0001:00357407 + 1371 0001:0035741A 1373 0001:00357440 1374 0001:00357447 1375 0001:00357466 + 1376 0001:00357476 1377 0001:00357486 1378 0001:003574B3 1380 0001:003574C6 + 1382 0001:003574EC 1383 0001:003574F3 1384 0001:00357512 1385 0001:00357522 + 1386 0001:00357532 1387 0001:0035755F 1389 0001:0035756D 1359 0001:0035756E + 1391 0001:003575A1 1396 0001:003575D0 1398 0001:003575D3 1399 0001:003575DA + 1402 0001:003575E0 1404 0001:003575E3 1406 0001:003575EC 1407 0001:003575FD + 1409 0001:00357606 1410 0001:0035760D 1415 0001:00357610 1418 0001:00357625 + 1420 0001:0035762B 1421 0001:0035764F 1422 0001:00357663 1424 0001:00357683 + 1427 0001:003576AB 1433 0001:003576B4 1434 0001:003576DD 1436 0001:00357705 + 1438 0001:00357724 1440 0001:00357745 1441 0001:00357772 1443 0001:0035779F + 1436 0001:003577A0 1446 0001:003577A3 1448 0001:003577B5 1449 0001:003577BC + 1451 0001:003577C1 1453 0001:003577D4 1455 0001:003577E2 1456 0001:003577EF + 1460 0001:00357801 1461 0001:0035780E 1464 0001:0035781E 1466 0001:0035782C + 1467 0001:00357839 1471 0001:0035784B 1472 0001:00357858 1475 0001:0035788A + 1482 0001:0035789C 1483 0001:003578BD 1484 0001:003578C1 1485 0001:003578C5 + 1487 0001:003578E5 1489 0001:00357906 1490 0001:00357929 1491 0001:00357947 + 1492 0001:0035794D 1493 0001:0035795A 1494 0001:00357960 1496 0001:0035796D + 1485 0001:0035796E 1497 0001:00357977 1499 0001:0035797D 1500 0001:0035798A + 1504 0001:0035799C 1505 0001:003579A9 1507 0001:003579B9 1509 0001:003579BF + 1510 0001:003579CC 1514 0001:003579DE 1515 0001:003579EB 1517 0001:00357A20 + 1520 0001:00357A28 1521 0001:00357A2B 1522 0001:00357A3B 1523 0001:00357A4B + 1524 0001:00357A59 1525 0001:00357A66 1526 0001:00357A73 1529 0001:00357A78 + 1531 0001:00357A7B 1532 0001:00357A96 1535 0001:00357A9C 1537 0001:00357A9F + 1538 0001:00357ABA 1541 0001:00357AC0 1543 0001:00357AC3 1544 0001:00357ADE + 1547 0001:00357AE4 1549 0001:00357AE7 1550 0001:00357B02 1553 0001:00357B08 + 1554 0001:00357B28 1555 0001:00357B36 1556 0001:00357B43 1557 0001:00357B51 + 1560 0001:00357B7B 1563 0001:00357BE4 1564 0001:00357C02 1565 0001:00357C13 + 1566 0001:00357C24 1567 0001:00357C35 1568 0001:00357C46 1569 0001:00357C57 + 1570 0001:00357C61 1571 0001:00357C6B 1572 0001:00357C75 1573 0001:00357C7F + 1575 0001:00357C9E + +Line numbers for UBAGlobals(BA\UBAGlobals.pas) segment .text + + 235 0001:003580C8 236 0001:003580E7 237 0001:003580F6 238 0001:0035810E + 239 0001:0035811A 242 0001:00358145 243 0001:0035814F 244 0001:00358159 + 245 0001:00358163 246 0001:00358170 237 0001:00358173 247 0001:00358195 + 271 0001:0035819C 272 0001:003581C6 273 0001:003581DE 274 0001:003581F8 + 272 0001:00358213 275 0001:0035823A 286 0001:00358240 287 0001:00358269 + 288 0001:00358278 289 0001:00358287 290 0001:0035828F 292 0001:00358297 + 293 0001:003582A7 294 0001:003582B5 296 0001:003582C0 298 0001:003582CC + 300 0001:003582E8 301 0001:003582F6 302 0001:00358331 298 0001:00358334 + 306 0001:0035833B 308 0001:003583A2 318 0001:003583B4 320 0001:003583E3 + 321 0001:003583F2 322 0001:00358401 323 0001:00358409 324 0001:00358411 + 325 0001:00358420 326 0001:00358428 327 0001:00358446 329 0001:00358451 + 330 0001:00358459 332 0001:00358465 333 0001:00358481 335 0001:003584B3 + 345 0001:003584D0 347 0001:003584E9 348 0001:003584F8 349 0001:00358500 + 350 0001:0035850F 351 0001:00358517 352 0001:00358526 353 0001:0035852E + 355 0001:0035854E 356 0001:00358556 358 0001:00358564 359 0001:00358580 + 361 0001:003585A5 368 0001:003585C4 369 0001:003585E9 371 0001:003585F9 + 373 0001:00358606 374 0001:00358614 376 0001:00358630 378 0001:00358640 + 379 0001:00358646 381 0001:00358656 382 0001:00358669 383 0001:0035867C + 384 0001:0035868F 385 0001:003586A2 387 0001:003586B5 374 0001:003586B8 + 392 0001:003586DC 393 0001:003586E6 397 0001:0035870D 411 0001:0035874C + 412 0001:00358780 413 0001:0035878F 414 0001:0035879E 415 0001:003587AD + 416 0001:003587BC 417 0001:003587CA 419 0001:003587D8 420 0001:003587E4 + 422 0001:003587EF 424 0001:003587FF 425 0001:00358807 426 0001:00358812 + 427 0001:0035881D 429 0001:0035882D 431 0001:00358888 433 0001:003588E3 + 435 0001:0035893E 437 0001:00358999 438 0001:003589B6 439 0001:003589D3 + 440 0001:003589F0 444 0001:00358A0F 448 0001:00358A1A 449 0001:00358A28 + 450 0001:00358A39 451 0001:00358A4A 452 0001:00358A5B 453 0001:00358A6C + 456 0001:00358AA6 475 0001:00358AB8 476 0001:00358AD8 478 0001:00358ADC + 480 0001:00358AF3 481 0001:00358B01 482 0001:00358B2A 484 0001:00358B44 + 485 0001:00358B6B 486 0001:00358B77 487 0001:00358B7B 481 0001:00358B7F + 491 0001:00358BA3 492 0001:00358BAD 497 0001:00358BBC 498 0001:00358BCA + 499 0001:00358BF3 501 0001:00358C0D 502 0001:00358C34 503 0001:00358C40 + 504 0001:00358C44 498 0001:00358C48 508 0001:00358C69 509 0001:00358C73 + 514 0001:00358C9D 545 0001:00358D30 546 0001:00358D55 549 0001:00358D59 + 551 0001:00358D73 552 0001:00358D77 555 0001:00358D7C 556 0001:00358D89 + 558 0001:00358D96 559 0001:00358DA4 560 0001:00358DBF 561 0001:00358DF0 + 563 0001:00358DF6 559 0001:00358DFE 567 0001:00358E1F 568 0001:00358E29 + 571 0001:00358E58 577 0001:00358E94 578 0001:00358EA1 581 0001:00358EA7 + 583 0001:00358EBE 584 0001:00358ECC 585 0001:00358EF4 586 0001:00358F0D + 584 0001:00358F14 590 0001:00358F37 591 0001:00358F41 596 0001:00358F50 + 597 0001:00358F5E 598 0001:00358F86 599 0001:00358F9F 597 0001:00358FA6 + 603 0001:00358FC6 604 0001:00358FD0 610 0001:00358FDA 612 0001:00358FE6 + 623 0001:0035907C 624 0001:0035909F 625 0001:003590A3 626 0001:003590AB + 627 0001:003590B0 628 0001:003590BF 629 0001:003590CE 630 0001:003590D6 + 631 0001:003590E5 633 0001:003590ED 635 0001:00359104 636 0001:00359112 + 637 0001:0035913A 639 0001:00359153 640 0001:00359179 641 0001:0035917B + 636 0001:0035917E 645 0001:003591A1 646 0001:003591AB 651 0001:003591BA + 652 0001:003591C8 653 0001:003591F0 655 0001:00359209 656 0001:0035922F + 657 0001:00359231 652 0001:00359234 661 0001:00359254 662 0001:0035925E + 668 0001:00359268 669 0001:00359277 670 0001:0035927F 673 0001:0035928A + 674 0001:00359298 675 0001:003592A6 676 0001:003592B4 678 0001:003592C2 + 680 0001:003592D9 681 0001:003592E7 682 0001:00359313 684 0001:00359330 + 686 0001:00359356 690 0001:00359363 691 0001:00359372 692 0001:0035937A + 694 0001:00359385 695 0001:00359393 696 0001:003593A1 697 0001:003593AF + 699 0001:003593BD 700 0001:003593CC 702 0001:003593D0 681 0001:003593D3 + 706 0001:003593FA 707 0001:00359404 712 0001:00359413 713 0001:00359421 + 714 0001:0035944D 716 0001:0035946A 718 0001:00359490 722 0001:0035949D + 723 0001:003594AC 724 0001:003594B4 726 0001:003594BF 727 0001:003594CD + 728 0001:003594DB 729 0001:003594E9 731 0001:003594F7 732 0001:00359506 + 734 0001:0035950A 713 0001:0035950D 738 0001:00359531 739 0001:0035953B + 745 0001:00359545 746 0001:0035954B 748 0001:00359553 749 0001:00359559 + 750 0001:00359586 756 0001:00359614 757 0001:00359644 760 0001:00359654 + 761 0001:00359661 763 0001:0035967D 765 0001:0035968D 766 0001:00359697 + 770 0001:003596AB 771 0001:003596BE 772 0001:003596ED 773 0001:0035971C + 774 0001:0035974B 777 0001:0035977A 761 0001:0035977D 779 0001:003597B0 + 796 0001:003597D0 797 0001:003597EF 798 0001:00359801 799 0001:0035982B + 831 0001:00359830 832 0001:00359855 834 0001:00359865 836 0001:00359874 + 837 0001:00359881 838 0001:0035988F 840 0001:003598AB 842 0001:003598BB + 843 0001:003598C1 847 0001:003598D1 848 0001:003598E2 849 0001:003598F3 + 850 0001:00359904 851 0001:00359915 852 0001:00359926 854 0001:00359931 + 856 0001:00359933 838 0001:00359936 860 0001:0035995A 861 0001:00359964 + 865 0001:0035998B 932 0001:003599CC 935 0001:003599D3 936 0001:003599E0 + 937 0001:003599ED 938 0001:003599FA 939 0001:00359A07 940 0001:00359A14 + 942 0001:00359A21 946 0001:00359A24 949 0001:00359A2B 950 0001:00359A38 + 951 0001:00359A45 952 0001:00359A52 953 0001:00359A5F 954 0001:00359A6C + 956 0001:00359A79 959 0001:00359A7C 962 0001:00359A83 963 0001:00359A90 + 964 0001:00359A9D 965 0001:00359AAA 966 0001:00359AB7 967 0001:00359AC4 + 969 0001:00359AD1 1010 0001:00359AD4 1012 0001:00359AFF 1013 0001:00359B10 + 1014 0001:00359B1F 1015 0001:00359B27 1016 0001:00359B31 1017 0001:00359B40 + 1018 0001:00359B55 1019 0001:00359B64 1020 0001:00359B94 1023 0001:00359BA1 + 1024 0001:00359BE3 1025 0001:00359BF2 1026 0001:00359C2C 1027 0001:00359C67 + 1028 0001:00359C76 1029 0001:00359C85 1030 0001:00359CBF 1031 0001:00359CCE + 1032 0001:00359CFD 1033 0001:00359D2C 1034 0001:00359D5B 1035 0001:00359DA6 + 1036 0001:00359DE1 1037 0001:00359DF0 1039 0001:00359E32 1058 0001:00359FCC + 1059 0001:0035A004 1060 0001:0035A020 1061 0001:0035A057 1062 0001:0035A083 + 1063 0001:0035A0A4 1064 0001:0035A0CD 1065 0001:0035A0F6 1066 0001:0035A11F + 1067 0001:0035A145 1068 0001:0035A163 1069 0001:0035A189 1070 0001:0035A1AD + 1059 0001:0035A1B0 1071 0001:0035A1F6 1079 0001:0035A208 1080 0001:0035A214 + 1081 0001:0035A230 1082 0001:0035A244 1085 0001:0035A248 1086 0001:0035A254 + 1087 0001:0035A26D 1088 0001:0035A280 1095 0001:0035A29C 1096 0001:0035A2BE + 1097 0001:0035A2C2 1098 0001:0035A2CF 1099 0001:0035A2DD 1101 0001:0035A2F5 + 1103 0001:0035A305 1104 0001:0035A30B 1106 0001:0035A31B 1107 0001:0035A31F + 1109 0001:0035A321 1099 0001:0035A324 1113 0001:0035A344 1114 0001:0035A34E + 1117 0001:0035A378 1120 0001:0035A3B4 1121 0001:0035A3B8 1122 0001:0035A3BC + 1124 0001:0035A3C5 1125 0001:0035A3E5 1126 0001:0035A3F2 1128 0001:0035A3F9 + 1131 0001:0035A414 1132 0001:0035A420 1133 0001:0035A428 1134 0001:0035A459 + 1137 0001:0035A560 1138 0001:0035A57E 1139 0001:0035A585 1140 0001:0035A58C + 1141 0001:0035A593 1142 0001:0035A59D 1143 0001:0035A5AE 1144 0001:0035A5BF + 1145 0001:0035A5D0 1146 0001:0035A5E1 1147 0001:0035A5F2 1148 0001:0035A603 + 1149 0001:0035A614 1150 0001:0035A625 1151 0001:0035A636 1152 0001:0035A647 + 1153 0001:0035A658 1154 0001:0035A669 1155 0001:0035A67A 1156 0001:0035A68B + 1157 0001:0035A69C 1158 0001:0035A6AD 1159 0001:0035A6BE 1160 0001:0035A6CF + 1162 0001:0035A6E0 1163 0001:0035A6EA 1164 0001:0035A6F4 1165 0001:0035A6FE + 1166 0001:0035A708 1167 0001:0035A712 1168 0001:0035A71C 1169 0001:0035A726 + 1170 0001:0035A730 1171 0001:0035A73A 1172 0001:0035A744 1173 0001:0035A74E + 1174 0001:0035A758 1175 0001:0035A762 1176 0001:0035A76C 1179 0001:0035A78B + +Line numbers for fHSplit(fHSplit.pas) segment .text + + 26 0001:0035A984 26 0001:0035A98B + +Line numbers for fOrders(Orders\fOrders.pas) segment .text + + 375 0001:0035B728 376 0001:0035B734 377 0001:0035B742 378 0001:0035B761 + 380 0001:0035B76A 381 0001:0035B777 383 0001:0035B77D 385 0001:0035B788 + 388 0001:0035B7BC 389 0001:0035B7C3 390 0001:0035B7CB 391 0001:0035B7DC + 392 0001:0035B7E4 393 0001:0035B7EE 394 0001:0035B7F7 395 0001:0035B801 + 396 0001:0035B80A 397 0001:0035B814 398 0001:0035B819 403 0001:0035B81C + 404 0001:0035B825 405 0001:0035B82D 406 0001:0035B842 407 0001:0035B856 + 408 0001:0035B86A 409 0001:0035B87E 412 0001:0035B88E 414 0001:0035B8C9 + 415 0001:0035B8F7 416 0001:0035B925 417 0001:0035B953 418 0001:0035B981 + 419 0001:0035B9AF 420 0001:0035B9CB 421 0001:0035B9F9 422 0001:0035BA15 + 423 0001:0035BA31 424 0001:0035BA41 427 0001:0035BA51 428 0001:0035BA5D + 429 0001:0035BA75 428 0001:0035BA96 430 0001:0035BA9B 431 0001:0035BAAA + 432 0001:0035BAC2 431 0001:0035BAF4 434 0001:0035BAF9 435 0001:0035BB11 + 436 0001:0035BB29 437 0001:0035BB41 438 0001:0035BB59 440 0001:0035BB66 + 441 0001:0035BB76 444 0001:0035BB86 445 0001:0035BB90 447 0001:0035BB9C + 448 0001:0035BBCF 450 0001:0035BBD7 451 0001:0035BBE8 452 0001:0035BBF5 + 454 0001:0035BBFD 457 0001:0035BC04 459 0001:0035BC10 460 0001:0035BC1F + 473 0001:0035BC24 474 0001:0035BC43 476 0001:0035BC54 477 0001:0035BC6E + 478 0001:0035BC87 474 0001:0035BC8A 479 0001:0035BCAD 481 0001:0035BCB4 + 491 0001:0035BCE6 492 0001:0035BCF6 493 0001:0035BD3D 495 0001:0035BD4A + 496 0001:0035BD59 497 0001:0035BD64 498 0001:0035BD71 499 0001:0035BD7B + 501 0001:0035BD87 502 0001:0035BD91 505 0001:0035BDA4 506 0001:0035BDAB + 507 0001:0035BDD5 506 0001:0035BDFF 508 0001:0035BE04 509 0001:0035BE0A + 510 0001:0035BE26 511 0001:0035BE2C 512 0001:0035BE58 513 0001:0035BE61 + 514 0001:0035BE66 515 0001:0035BE78 516 0001:0035BE9E 517 0001:0035BEA8 + 519 0001:0035BEB5 521 0001:0035BEC1 522 0001:0035BEC8 523 0001:0035BEE6 + 522 0001:0035BF10 524 0001:0035BF15 526 0001:0035BF1F 531 0001:0035BF3D + 533 0001:0035BF4C 534 0001:0035BF58 536 0001:0035BF5D 538 0001:0035BF69 + 539 0001:0035BF70 540 0001:0035BF8E 539 0001:0035BFCD 541 0001:0035BFD2 + 543 0001:0035BFEE 545 0001:0035C007 546 0001:0035C011 550 0001:0035C01E + 551 0001:0035C02D 552 0001:0035C043 553 0001:0035C064 555 0001:0035C070 + 557 0001:0035C08B 559 0001:0035C0A7 561 0001:0035C0D5 562 0001:0035C0ED + 563 0001:0035C103 564 0001:0035C114 566 0001:0035C116 557 0001:0035C119 + 567 0001:0035C11E 555 0001:0035C121 568 0001:0035C12B 569 0001:0035C145 + 570 0001:0035C169 572 0001:0035C178 573 0001:0035C182 574 0001:0035C18A + 575 0001:0035C192 578 0001:0035C19C 579 0001:0035C1A6 582 0001:0035C1D8 + 587 0001:0035C1E0 588 0001:0035C1EC 589 0001:0035C1F7 590 0001:0035C204 + 591 0001:0035C219 592 0001:0035C22A 593 0001:0035C23B 594 0001:0035C24C + 595 0001:0035C257 596 0001:0035C261 597 0001:0035C26B 598 0001:0035C275 + 599 0001:0035C27F 600 0001:0035C289 601 0001:0035C293 602 0001:0035C29D + 603 0001:0035C2A7 604 0001:0035C2B2 605 0001:0035C2BD 606 0001:0035C2C7 + 607 0001:0035C2DC 608 0001:0035C2E7 609 0001:0035C2F1 610 0001:0035C2FE + 613 0001:0035C304 615 0001:0035C310 616 0001:0035C31A 617 0001:0035C324 + 618 0001:0035C32E 619 0001:0035C336 620 0001:0035C344 621 0001:0035C34E + 622 0001:0035C358 623 0001:0035C362 624 0001:0035C379 625 0001:0035C383 + 626 0001:0035C38E 627 0001:0035C39B 631 0001:0035C3A0 632 0001:0035C3AC + 634 0001:0035C3C0 647 0001:0035C3C4 648 0001:0035C3D0 650 0001:0035C3DC + 651 0001:0035C410 652 0001:0035C42E 654 0001:0035C43D 655 0001:0035C448 + 657 0001:0035C45F 658 0001:0035C473 659 0001:0035C47E 655 0001:0035C481 + 660 0001:0035C487 663 0001:0035C494 664 0001:0035C49F 666 0001:0035C4BD + 667 0001:0035C4D1 668 0001:0035C4DC 664 0001:0035C4DF 669 0001:0035C4E4 + 673 0001:0035C4EF 680 0001:0035C4F4 681 0001:0035C511 683 0001:0035C51D + 684 0001:0035C52A 685 0001:0035C535 686 0001:0035C540 688 0001:0035C558 + 689 0001:0035C568 691 0001:0035C579 692 0001:0035C590 693 0001:0035C5B6 + 686 0001:0035C5B9 694 0001:0035C5BE 695 0001:0035C5C9 697 0001:0035C5F3 + 702 0001:0035C5FC 703 0001:0035C621 705 0001:0035C62D 706 0001:0035C636 + 707 0001:0035C640 708 0001:0035C653 709 0001:0035C664 711 0001:0035C66A + 712 0001:0035C674 713 0001:0035C680 716 0001:0035C698 717 0001:0035C6A2 + 718 0001:0035C6AC 719 0001:0035C6B6 722 0001:0035C6D3 723 0001:0035C734 + 724 0001:0035C73E 725 0001:0035C746 727 0001:0035C752 729 0001:0035C767 + 730 0001:0035C775 732 0001:0035C781 733 0001:0035C797 735 0001:0035C7A5 + 737 0001:0035C7B5 739 0001:0035C7C0 740 0001:0035C7CE 741 0001:0035C7E6 + 740 0001:0035C802 743 0001:0035C807 745 0001:0035C812 746 0001:0035C820 + 747 0001:0035C838 746 0001:0035C854 749 0001:0035C859 751 0001:0035C867 + 752 0001:0035C87A 753 0001:0035C88E 754 0001:0035C8A2 755 0001:0035C8CF + 757 0001:0035C8F3 760 0001:0035C91C 761 0001:0035C925 762 0001:0035C931 + 764 0001:0035C949 765 0001:0035C950 768 0001:0035C959 769 0001:0035C960 + 772 0001:0035C969 773 0001:0035C970 776 0001:0035C979 777 0001:0035C980 + 780 0001:0035C987 784 0001:0035C98C 785 0001:0035C995 786 0001:0035C999 + 788 0001:0035C9B7 789 0001:0035C9C8 791 0001:0035C9CF 798 0001:0035CA64 + 799 0001:0035CA90 800 0001:0035CAA0 801 0001:0035CAB3 802 0001:0035CAD1 + 803 0001:0035CADD 804 0001:0035CAF2 806 0001:0035CAFE 807 0001:0035CB09 + 808 0001:0035CB14 810 0001:0035CB1E 811 0001:0035CB25 812 0001:0035CB2C + 814 0001:0035CB36 815 0001:0035CB91 816 0001:0035CBAD 818 0001:0035CBB9 + 820 0001:0035CBC3 821 0001:0035CBD8 823 0001:0035CBFE 824 0001:0035CC27 + 825 0001:0035CC39 828 0001:0035CC47 829 0001:0035CC4F 831 0001:0035CC55 + 832 0001:0035CC61 834 0001:0035CC6D 835 0001:0035CC76 836 0001:0035CC7F + 837 0001:0035CC8A 838 0001:0035CC92 839 0001:0035CCA0 840 0001:0035CCCD + 841 0001:0035CCD4 842 0001:0035CCDC 844 0001:0035CCE7 845 0001:0035CD1D + 848 0001:0035CD3C 850 0001:0035CD48 851 0001:0035CD63 854 0001:0035CDB4 + 856 0001:0035CDC0 857 0001:0035CDDB 860 0001:0035CE28 862 0001:0035CE34 + 863 0001:0035CE4F 866 0001:0035CE7C 868 0001:0035CE88 869 0001:0035CEA3 + 872 0001:0035CED8 874 0001:0035CEE4 875 0001:0035CEFF 880 0001:0035CF2C + 882 0001:0035CF4B 883 0001:0035CF5B 884 0001:0035CF6A 885 0001:0035CF74 + 886 0001:0035CF7F 887 0001:0035CF8F 888 0001:0035CF96 889 0001:0035CF9D + 890 0001:0035CFA8 891 0001:0035CFB0 892 0001:0035CFB7 893 0001:0035CFBF + 894 0001:0035CFCA 895 0001:0035CFD2 896 0001:0035CFE2 897 0001:0035CFEA + 899 0001:0035CFF7 900 0001:0035D003 902 0001:0035D01C 903 0001:0035D026 + 904 0001:0035D036 907 0001:0035D048 908 0001:0035D058 911 0001:0035D068 + 912 0001:0035D07C 913 0001:0035D08F 914 0001:0035D0A0 915 0001:0035D0C2 + 916 0001:0035D0D5 918 0001:0035D0E1 920 0001:0035D0EA 923 0001:0035D10F + 926 0001:0035D151 929 0001:0035D190 931 0001:0035D1B0 932 0001:0035D1C0 + 933 0001:0035D1CC 934 0001:0035D1F9 935 0001:0035D20E 936 0001:0035D221 + 937 0001:0035D250 938 0001:0035D26A 939 0001:0035D2A9 940 0001:0035D2BE + 942 0001:0035D2D0 943 0001:0035D2DC 944 0001:0035D2E8 945 0001:0035D310 + 950 0001:0035D328 952 0001:0035D349 954 0001:0035D355 955 0001:0035D37B + 956 0001:0035D3B5 957 0001:0035D3EF 958 0001:0035D3F8 959 0001:0035D414 + 960 0001:0035D42E 961 0001:0035D437 962 0001:0035D453 964 0001:0035D46D + 965 0001:0035D49D 966 0001:0035D4D5 974 0001:0035D644 976 0001:0035D673 + 977 0001:0035D688 978 0001:0035D697 979 0001:0035D69C 980 0001:0035D6AA + 982 0001:0035D6EB 983 0001:0035D6F5 984 0001:0035D711 985 0001:0035D724 + 986 0001:0035D732 989 0001:0035D741 990 0001:0035D753 995 0001:0035D7D3 + 996 0001:0035D7DD 997 0001:0035D7F7 998 0001:0035D801 1001 0001:0035D813 + 1003 0001:0035D81E 1005 0001:0035D836 1007 0001:0035D860 1008 0001:0035D866 + 1010 0001:0035D868 1003 0001:0035D86B 1011 0001:0035D870 1012 0001:0035D876 + 1014 0001:0035D881 1016 0001:0035D89E 1017 0001:0035D8A5 1018 0001:0035D8CC + 1019 0001:0035D8D9 980 0001:0035D8DC 1021 0001:0035D8F2 1023 0001:0035D931 + 1029 0001:0035DA70 1031 0001:0035DA95 1032 0001:0035DAAA 1034 0001:0035DAE7 + 1035 0001:0035DAF1 1036 0001:0035DB0D 1037 0001:0035DB2C 1038 0001:0035DB50 + 1039 0001:0035DB5D 1040 0001:0035DB64 1032 0001:0035DB67 1041 0001:0035DB9A + 1047 0001:0035DC38 1049 0001:0035DC5D 1050 0001:0035DC72 1052 0001:0035DCAF + 1053 0001:0035DCB9 1054 0001:0035DCD5 1055 0001:0035DCF4 1056 0001:0035DD18 + 1057 0001:0035DD25 1058 0001:0035DD2C 1050 0001:0035DD2F 1059 0001:0035DD62 + 1067 0001:0035DE04 1068 0001:0035DE0D 1069 0001:0035DE53 1070 0001:0035DE64 + 1071 0001:0035DE6F 1079 0001:0035DE74 1080 0001:0035DE96 1081 0001:0035DE9E + 1083 0001:0035DEB1 1084 0001:0035DEDE 1085 0001:0035DEED 1086 0001:0035DEF7 + 1087 0001:0035DF02 1088 0001:0035DF12 1089 0001:0035DF19 1090 0001:0035DF20 + 1091 0001:0035DF2B 1092 0001:0035DF33 1093 0001:0035DF3A 1094 0001:0035DF42 + 1095 0001:0035DF4D 1096 0001:0035DF55 1097 0001:0035DF65 1098 0001:0035DF7D + 1099 0001:0035DF89 1101 0001:0035DF95 1103 0001:0035DFC1 1104 0001:0035DFD0 + 1105 0001:0035DFDB 1106 0001:0035E00C 1107 0001:0035E01F 1108 0001:0035E040 + 1109 0001:0035E061 1110 0001:0035E069 1111 0001:0035E074 1112 0001:0035E088 + 1113 0001:0035E094 1114 0001:0035E0A0 1116 0001:0035E0AA 1117 0001:0035E0CB + 1118 0001:0035E0DD 1119 0001:0035E0EF 1120 0001:0035E0FA 1121 0001:0035E102 + 1122 0001:0035E115 1101 0001:0035E118 1123 0001:0035E121 1124 0001:0035E134 + 1125 0001:0035E188 1133 0001:0035E1D8 1135 0001:0035E1FC 1136 0001:0035E209 + 1137 0001:0035E213 1138 0001:0035E22C 1140 0001:0035E238 1141 0001:0035E255 + 1142 0001:0035E29B 1143 0001:0035E2A4 1146 0001:0035E2AE 1148 0001:0035E2E9 + 1149 0001:0035E2FD 1151 0001:0035E311 1153 0001:0035E34A 1155 0001:0035E370 + 1156 0001:0035E37B 1157 0001:0035E385 1158 0001:0035E38D 1159 0001:0035E3A0 + 1160 0001:0035E3AB 1164 0001:0035E3B0 1166 0001:0035E3EF 1167 0001:0035E3FB + 1169 0001:0035E40E 1170 0001:0035E418 1171 0001:0035E42B 1172 0001:0035E455 + 1173 0001:0035E477 1174 0001:0035E48A 1175 0001:0035E4B0 1176 0001:0035E4C6 + 1177 0001:0035E4D9 1178 0001:0035E522 1179 0001:0035E532 1180 0001:0035E542 + 1182 0001:0035E56E 1184 0001:0035E582 1186 0001:0035E5BB 1188 0001:0035E607 + 1190 0001:0035E633 1191 0001:0035E677 1192 0001:0035E681 1193 0001:0035E6AC + 1194 0001:0035E6D2 1195 0001:0035E6E7 1196 0001:0035E6FA 1197 0001:0035E705 + 1201 0001:0035E70A 1202 0001:0035E71A 1206 0001:0035E729 1207 0001:0035E733 + 1208 0001:0035E743 1209 0001:0035E753 1210 0001:0035E766 1211 0001:0035E788 + 1212 0001:0035E79B 1216 0001:0035E7A9 1217 0001:0035E7B9 1218 0001:0035E7C9 + 1219 0001:0035E7DC 1220 0001:0035E7FE 1221 0001:0035E811 1223 0001:0035E81D + 1224 0001:0035E873 1233 0001:0035E908 1234 0001:0035E914 1235 0001:0035E923 + 1237 0001:0035E937 1238 0001:0035E944 1239 0001:0035E954 1240 0001:0035E968 + 1235 0001:0035E96B 1241 0001:0035E970 1242 0001:0035E993 1243 0001:0035E99B + 1250 0001:0035E9A0 1251 0001:0035E9C3 1252 0001:0035E9CB 1253 0001:0035E9F0 + 1255 0001:0035E9F7 1256 0001:0035E9FE 1257 0001:0035EA09 1258 0001:0035EA1F + 1259 0001:0035EA25 1260 0001:0035EA5E 1256 0001:0035EA61 1261 0001:0035EA84 + 1267 0001:0035EAB4 1268 0001:0035EAD7 1269 0001:0035EAED 1270 0001:0035EAF2 + 1271 0001:0035EAF7 1272 0001:0035EAFC 1273 0001:0035EB1C 1274 0001:0035EB66 + 1281 0001:0035EB70 1282 0001:0035EB7F 1283 0001:0035EB87 1285 0001:0035EBAA + 1286 0001:0035EBBA 1288 0001:0035EBC0 1289 0001:0035EBD4 1290 0001:0035EBEB + 1293 0001:0035EC1D 1294 0001:0035EC42 1296 0001:0035EC61 1298 0001:0035EC7E + 1299 0001:0035EC9B 1300 0001:0035ECAB 1302 0001:0035ECB8 1303 0001:0035ECC0 + 1308 0001:0035ECE0 1309 0001:0035ED19 1310 0001:0035ED29 1311 0001:0035ED62 + 1312 0001:0035ED82 1313 0001:0035ED92 1314 0001:0035EDC9 1315 0001:0035EE16 + 1318 0001:0035EE64 1319 0001:0035EE8D 1321 0001:0035EE97 1324 0001:0035EED2 + 1325 0001:0035EEE0 1329 0001:0035EF22 1330 0001:0035EF30 1334 0001:0035EF72 + 1335 0001:0035EF80 1336 0001:0035EF8D 1338 0001:0035EFA2 1341 0001:0035EFBF + 1342 0001:0035EFCD 1344 0001:0035F027 1345 0001:0035F037 1346 0001:0035F047 + 1347 0001:0035F057 1348 0001:0035F067 1355 0001:0035F097 1366 0001:0035F0C0 + 1368 0001:0035F0EF 1370 0001:0035F0FB 1371 0001:0035F105 1373 0001:0035F10B + 1374 0001:0035F121 1376 0001:0035F137 1377 0001:0035F148 1378 0001:0035F15E + 1379 0001:0035F173 1380 0001:0035F188 1382 0001:0035F18F 1384 0001:0035F194 + 1385 0001:0035F1B1 1386 0001:0035F1C6 1387 0001:0035F1DA 1382 0001:0035F1DD + 1389 0001:0035F1E3 1391 0001:0035F1FA 1392 0001:0035F20E 1393 0001:0035F233 + 1395 0001:0035F23A 1396 0001:0035F241 1398 0001:0035F25A 1399 0001:0035F262 + 1401 0001:0035F26D 1402 0001:0035F274 1403 0001:0035F297 1404 0001:0035F2AD + 1405 0001:0035F2C1 1407 0001:0035F2C9 1409 0001:0035F2E9 1410 0001:0035F2FF + 1413 0001:0035F310 1415 0001:0035F31A 1416 0001:0035F331 1417 0001:0035F363 + 1419 0001:0035F372 1420 0001:0035F389 1423 0001:0035F39F 1424 0001:0035F3B1 + 1425 0001:0035F3E2 1426 0001:0035F411 1427 0001:0035F425 1428 0001:0035F429 + 1396 0001:0035F42C 1431 0001:0035F453 1434 0001:0035F474 1436 0001:0035F483 + 1437 0001:0035F4A5 1438 0001:0035F4B2 1439 0001:0035F4BA 1440 0001:0035F4C7 + 1441 0001:0035F4D5 1442 0001:0035F4E3 1443 0001:0035F4F1 1446 0001:0035F4F8 + 1448 0001:0035F504 1449 0001:0035F50F 1458 0001:0035F514 1459 0001:0035F539 + 1460 0001:0035F549 1461 0001:0035F553 1465 0001:0035F55D 1466 0001:0035F56B + 1467 0001:0035F57F 1469 0001:0035F5B8 1471 0001:0035F5CD 1472 0001:0035F5E8 + 1476 0001:0035F5ED 1478 0001:0035F63A 1479 0001:0035F64B 1482 0001:0035F650 + 1483 0001:0035F66B 1484 0001:0035F675 1485 0001:0035F689 1486 0001:0035F6A4 + 1487 0001:0035F6BD 1489 0001:0035F6CC 1490 0001:0035F6E0 1492 0001:0035F6E5 + 1494 0001:0035F6F9 1495 0001:0035F73C 1496 0001:0035F7BF 1498 0001:0035F816 + 1500 0001:0035F87E 1502 0001:0035F8F0 1504 0001:0035F962 1506 0001:0035F9D1 + 1508 0001:0035F9EB 1510 0001:0035F9F1 1511 0001:0035FA05 1513 0001:0035FA0F + 1515 0001:0035FA7C 1516 0001:0035FA84 1517 0001:0035FA97 1519 0001:0035FAA2 + 1521 0001:0035FAE1 1522 0001:0035FBC6 1528 0001:0035FCB8 1530 0001:0035FCDB + 1531 0001:0035FCEB 1533 0001:0035FD0B 1534 0001:0035FD32 1535 0001:0035FD57 + 1536 0001:0035FD5F 1537 0001:0035FD74 1539 0001:0035FDBF 1540 0001:0035FDCB + 1541 0001:0035FDF5 1540 0001:0035FE21 1543 0001:0035FE50 1554 0001:0035FE58 + 1555 0001:0035FE83 1556 0001:0035FE92 1557 0001:0035FEA1 1558 0001:0035FEB0 + 1559 0001:0035FEBE 1561 0001:0035FEFF 1562 0001:0035FF13 1564 0001:0035FF5D + 1565 0001:0035FF6A 1567 0001:0035FF7F 1569 0001:0035FFA9 1571 0001:0035FFB8 + 1572 0001:0035FFC7 1573 0001:0035FFD3 1574 0001:0035FFE2 1576 0001:0035FFEC + 1577 0001:0035FFF9 1581 0001:0035FFFE 1583 0001:0036003A 1584 0001:00360062 + 1585 0001:0036006F 1587 0001:00360074 1589 0001:003600BC 1591 0001:003600CF + 1592 0001:003600D7 1594 0001:003600F3 1595 0001:00360119 1596 0001:00360126 + 1598 0001:0036012B 1600 0001:00360155 1601 0001:0036017B 1602 0001:00360188 + 1604 0001:0036018D 1606 0001:003601B7 1607 0001:003601DD 1608 0001:003601EA + 1610 0001:003601EF 1611 0001:003601F7 1612 0001:0036021A 1613 0001:00360236 + 1615 0001:00360251 1617 0001:00360269 1618 0001:00360276 1622 0001:00360283 + 1624 0001:003602A1 1626 0001:003602AD 1627 0001:003602BA 1630 0001:003602E2 + 1633 0001:003602F0 1635 0001:0036031A 1636 0001:00360338 1637 0001:0036035E + 1640 0001:0036036B 1642 0001:00360399 1559 0001:0036039C 1644 0001:003603A5 + 1646 0001:003603C7 1647 0001:003603DD 1648 0001:00360440 1649 0001:00360461 + 1652 0001:0036047C 1653 0001:00360484 1654 0001:0036048C 1656 0001:003604CB + 1662 0001:0036071C 1663 0001:00360728 1664 0001:00360752 1663 0001:0036077F + 1665 0001:00360784 1670 0001:00360788 1672 0001:00360794 1673 0001:00360798 + 1674 0001:003607C2 1676 0001:003607D1 1677 0001:003607D5 1678 0001:003607D7 + 1673 0001:003607DA 1679 0001:003607DF 1680 0001:003607F7 1686 0001:00360818 + 1687 0001:00360824 1688 0001:0036083A 1687 0001:00360862 1689 0001:00360867 + 1695 0001:0036086C 1696 0001:00360889 1698 0001:003608B3 1699 0001:003608E9 + 1700 0001:00360905 1696 0001:00360908 1701 0001:0036090D 1702 0001:00360938 + 1709 0001:00360940 1711 0001:00360965 1712 0001:0036097A 1713 0001:00360987 + 1714 0001:00360996 1715 0001:003609A3 1716 0001:003609B0 1718 0001:003609E9 + 1719 0001:003609F8 1721 0001:00360A06 1723 0001:00360A1D 1725 0001:00360A28 + 1726 0001:00360A3F 1728 0001:00360A4E 1729 0001:00360A6C 1730 0001:00360A99 + 1731 0001:00360AA8 1732 0001:00360AB7 1734 0001:00360AD3 1735 0001:00360ADB + 1737 0001:00360B0A 1744 0001:00360BC8 1746 0001:00360BE7 1747 0001:00360BFC + 1748 0001:00360C09 1750 0001:00360C12 1751 0001:00360C1C 1753 0001:00360C21 + 1755 0001:00360C2E 1756 0001:00360C40 1757 0001:00360C55 1759 0001:00360C61 + 1761 0001:00360C6E 1762 0001:00360C81 1764 0001:00360C86 1765 0001:00360C93 + 1766 0001:00360CA2 1767 0001:00360CB0 1768 0001:00360CC7 1769 0001:00360CD2 + 1770 0001:00360CDB 1772 0001:00360CE5 1773 0001:00360CF1 1774 0001:00360CF8 + 1775 0001:00360D07 1776 0001:00360D16 1777 0001:00360D25 1778 0001:00360D2F + 1780 0001:00360D5A 1781 0001:00360D62 1783 0001:00360D8C 1791 0001:00360F88 + 1793 0001:00360FB0 1794 0001:00360FBD 1795 0001:00360FD2 1796 0001:00360FDF + 1799 0001:00360FEC 1800 0001:00360FF0 1801 0001:00360FF5 1802 0001:00360FFD + 1803 0001:0036100C 1804 0001:0036101A 1805 0001:00361030 1806 0001:00361047 + 1807 0001:00361052 1808 0001:00361068 1810 0001:00361072 1811 0001:0036107C + 1813 0001:0036108B 1814 0001:003610A9 1815 0001:003610D6 1816 0001:003610E5 + 1817 0001:003610F4 1819 0001:00361110 1820 0001:00361118 1821 0001:0036111D + 1822 0001:00361123 1824 0001:00361165 1830 0001:00361234 1832 0001:00361240 + 1833 0001:00361255 1834 0001:00361262 1835 0001:0036126F 1836 0001:0036127C + 1838 0001:003612B5 1839 0001:003612C4 1840 0001:003612D2 1841 0001:003612E5 + 1842 0001:003612FC 1843 0001:00361307 1845 0001:00361313 1846 0001:0036131B + 1849 0001:00361330 1850 0001:00361338 1852 0001:00361345 1858 0001:00361400 + 1860 0001:0036140C 1861 0001:00361421 1862 0001:0036142E 1863 0001:0036143B + 1864 0001:00361448 1865 0001:00361457 1866 0001:00361465 1867 0001:00361478 + 1868 0001:0036148F 1869 0001:0036149A 1871 0001:003614A6 1872 0001:003614AE + 1875 0001:003614C3 1876 0001:003614CB 1878 0001:003614D8 1885 0001:0036159C + 1887 0001:003615A8 1888 0001:003615BD 1889 0001:003615CA 1890 0001:003615D7 + 1891 0001:003615E4 1892 0001:003615F3 1893 0001:00361601 1894 0001:00361617 + 1895 0001:0036162E 1896 0001:00361639 1898 0001:0036164F 1899 0001:00361660 + 1900 0001:00361674 1901 0001:00361698 1902 0001:003616AB 1903 0001:003616CD + 1904 0001:003616D8 1906 0001:003616E5 1908 0001:003616F1 1909 0001:003616F9 + 1911 0001:00361701 1913 0001:0036171D 1914 0001:00361725 1916 0001:00361732 + 1922 0001:00361804 1924 0001:00361810 1925 0001:00361821 1926 0001:0036182A + 1927 0001:00361839 1928 0001:00361847 1929 0001:0036185E 1930 0001:00361869 + 1932 0001:0036187E 1934 0001:0036188E 1941 0001:00361950 1943 0001:00361972 + 1944 0001:00361987 1945 0001:00361994 1947 0001:003619CD 1949 0001:00361A0A + 1950 0001:00361A1E 1951 0001:00361A31 1952 0001:00361A3D 1953 0001:00361A69 + 1954 0001:00361A71 1955 0001:00361A7E 1947 0001:00361A81 1956 0001:00361A8A + 1957 0001:00361ABD 1964 0001:00361B78 1966 0001:00361BA0 1967 0001:00361BB5 + 1968 0001:00361BC2 1970 0001:00361BFF 1971 0001:00361C13 1972 0001:00361C26 + 1973 0001:00361C32 1974 0001:00361C5E 1975 0001:00361C66 1976 0001:00361C73 + 1968 0001:00361C76 1977 0001:00361C7F 1978 0001:00361C8D 1979 0001:00361CF8 + 1985 0001:00361DB0 1987 0001:00361DBC 1988 0001:00361DCD 1989 0001:00361DD6 + 1990 0001:00361DE5 1991 0001:00361DF3 1992 0001:00361E0A 1993 0001:00361E15 + 1995 0001:00361E36 1997 0001:00361E46 2003 0001:00361EFC 2005 0001:00361F08 + 2006 0001:00361F19 2007 0001:00361F22 2008 0001:00361F31 2009 0001:00361F3F + 2010 0001:00361F56 2011 0001:00361F61 2013 0001:00361F84 2015 0001:00361F94 + 2020 0001:00362048 2022 0001:00362054 2023 0001:00362065 2024 0001:0036206E + 2025 0001:0036207D 2026 0001:0036208B 2027 0001:003620A2 2028 0001:003620AD + 2030 0001:003620D0 2032 0001:003620E0 2040 0001:00362194 2042 0001:003621B6 + 2043 0001:003621CB 2044 0001:003621D8 2046 0001:00362211 2048 0001:0036224E + 2049 0001:00362262 2050 0001:00362275 2051 0001:00362281 2052 0001:003622AD + 2053 0001:003622B5 2054 0001:003622C2 2046 0001:003622C5 2055 0001:003622F3 + 2063 0001:003623B4 2066 0001:003623D3 2067 0001:003623E0 2068 0001:003623EF + 2069 0001:003623FD 2070 0001:00362418 2071 0001:0036242E 2072 0001:00362445 + 2074 0001:0036247A 2075 0001:00362484 2076 0001:003624AE 2078 0001:003624BD + 2079 0001:003624D9 2080 0001:003624FB 2075 0001:003624FE 2081 0001:00362503 + 2082 0001:0036250F 2085 0001:00362530 2087 0001:00362540 2088 0001:00362565 + 2101 0001:0036261C 2103 0001:0036264F 2104 0001:0036265C 2105 0001:00362661 + 2106 0001:00362669 2107 0001:0036266D 2108 0001:00362671 2109 0001:00362680 + 2110 0001:0036268E 2111 0001:003626A9 2112 0001:003626AD 2113 0001:003626C3 + 2114 0001:003626DA 2115 0001:0036270F 2116 0001:00362719 2117 0001:00362743 + 2118 0001:00362752 2116 0001:00362771 2120 0001:00362776 2122 0001:0036277A + 2123 0001:0036278A 2125 0001:003627A4 2127 0001:003627AA 2128 0001:003627B9 + 2129 0001:003627BE 2130 0001:003627C3 2131 0001:003627C7 2132 0001:003627D9 + 2133 0001:003627E3 2134 0001:003627EB 2135 0001:003627FB 2137 0001:00362805 + 2138 0001:00362819 2140 0001:00362837 2141 0001:0036283B 2143 0001:00362843 + 2144 0001:0036284E 2145 0001:00362854 2147 0001:0036287F 2149 0001:003628A4 + 2151 0001:003628C0 2155 0001:003628E5 2156 0001:00362904 2158 0001:00362908 + 2159 0001:00362931 2161 0001:0036295E 2163 0001:0036296A 2164 0001:00362972 + 2165 0001:0036297D 2166 0001:00362985 2167 0001:00362998 2170 0001:003629A3 + 2171 0001:003629AD 2172 0001:003629B5 2173 0001:003629BB 2176 0001:003629D8 + 2177 0001:003629E0 2180 0001:00362A2B 2188 0001:00362AE0 2190 0001:00362B08 + 2191 0001:00362B1D 2192 0001:00362B2A 2194 0001:00362B37 2195 0001:00362B49 + 2196 0001:00362B5E 2198 0001:00362B6A 2200 0001:00362B77 2201 0001:00362B8A + 2203 0001:00362B8F 2204 0001:00362B9C 2205 0001:00362BAB 2206 0001:00362BB9 + 2207 0001:00362BD0 2208 0001:00362BDB 2209 0001:00362BE3 2210 0001:00362BEC + 2211 0001:00362BF8 2213 0001:00362C03 2215 0001:00362C12 2216 0001:00362C30 + 2217 0001:00362C5D 2218 0001:00362C6C 2219 0001:00362C7B 2220 0001:00362C8A + 2222 0001:00362CBE 2223 0001:00362CC6 2225 0001:00362CFD 2233 0001:00362E78 + 2235 0001:00362EA0 2236 0001:00362EB5 2237 0001:00362EC2 2239 0001:00362ECF + 2240 0001:00362EE1 2241 0001:00362EF6 2243 0001:00362F02 2245 0001:00362F0F + 2246 0001:00362F22 2248 0001:00362F27 2249 0001:00362F34 2250 0001:00362F43 + 2251 0001:00362F51 2252 0001:00362F68 2253 0001:00362F73 2254 0001:00362F7B + 2255 0001:00362F84 2256 0001:00362F90 2257 0001:00362F9B 2259 0001:00362FAA + 2260 0001:00362FC8 2261 0001:00362FF5 2262 0001:00363004 2263 0001:00363013 + 2264 0001:00363022 2266 0001:00363056 2267 0001:0036305E 2269 0001:00363095 + 2277 0001:0036321C 2279 0001:00363244 2280 0001:00363259 2281 0001:00363266 + 2283 0001:00363280 2284 0001:0036328A 2286 0001:0036328F 2288 0001:0036329E + 2290 0001:003632AB 2291 0001:003632BD 2292 0001:003632D2 2294 0001:003632DE + 2296 0001:003632EB 2297 0001:003632FE 2300 0001:00363303 2302 0001:00363310 + 2305 0001:00363349 2306 0001:00363358 2307 0001:00363366 2308 0001:0036337D + 2310 0001:00363388 2312 0001:00363392 2313 0001:0036339A 2317 0001:003633AB + 2318 0001:003633B3 2319 0001:003633BC 2320 0001:003633C8 2321 0001:003633D3 + 2323 0001:003633E2 2324 0001:00363400 2325 0001:0036342D 2327 0001:00363439 + 2328 0001:00363448 2329 0001:00363457 2331 0001:00363466 2333 0001:0036346F + 2334 0001:0036348D 2335 0001:003634A2 2338 0001:003634C2 2339 0001:003634CA + 2341 0001:00363501 2344 0001:003636F4 2346 0001:00363700 2347 0001:00363705 + 2350 0001:0036370C 2352 0001:00363718 2353 0001:0036371D 2359 0001:00363724 + 2361 0001:00363745 2362 0001:00363764 2365 0001:00363818 2366 0001:00363832 + 2370 0001:0036386B 2371 0001:00363885 2374 0001:003638B7 2376 0001:003638E2 + 2377 0001:00363900 2381 0001:00363911 2382 0001:0036392F 2386 0001:00363940 + 2387 0001:0036395B 2389 0001:00363984 2390 0001:003639AA 2392 0001:003639CD + 2393 0001:003639F1 2399 0001:00363A02 2400 0001:00363A1D 2402 0001:00363A46 + 2403 0001:00363A6C 2405 0001:00363A8F 2406 0001:00363AB3 2411 0001:00363AC4 + 2414 0001:00363AE3 2415 0001:00363B01 2418 0001:00363B12 2421 0001:00363B31 + 2425 0001:00363B53 2429 0001:00363B75 2430 0001:00363B93 2432 0001:00363BA1 + 2433 0001:00363BB1 2434 0001:00363BC2 2435 0001:00363BCF 2437 0001:00363BE7 + 2441 0001:00363BFB 2442 0001:00363C16 2446 0001:00363C27 2447 0001:00363C42 + 2449 0001:00363C50 2450 0001:00363C60 2451 0001:00363C71 2452 0001:00363C7E + 2454 0001:00363C96 2458 0001:00363CAA 2459 0001:00363CC5 2461 0001:00363CEE + 2462 0001:00363D14 2464 0001:00363D37 2465 0001:00363D5B 2471 0001:00363D6C + 2472 0001:00363D87 2476 0001:00363D98 2477 0001:00363DB2 2481 0001:00363DCB + 2482 0001:00363DE5 2486 0001:00363DFB 2487 0001:00363E15 2488 0001:00363E33 + 2490 0001:00363E58 2492 0001:00363E92 2499 0001:0036416C 2500 0001:003641B6 + 2501 0001:003641C5 2502 0001:003641D3 2503 0001:003641DB 2505 0001:003641EB + 2506 0001:003641F3 2507 0001:0036420B 2508 0001:00364239 2506 0001:0036426A + 2511 0001:0036427C 2513 0001:0036428C 2514 0001:003642A0 2516 0001:003642AC + 2518 0001:003642B8 2519 0001:003642DA 2521 0001:0036430B 2522 0001:00364319 + 2523 0001:00364326 2524 0001:00364328 2518 0001:0036432B 2526 0001:00364332 + 2527 0001:00364350 2526 0001:00364393 2528 0001:00364398 2530 0001:003643ED + 2533 0001:00364400 2535 0001:0036440C 2536 0001:00364429 2550 0001:00364430 + 2551 0001:00364455 2552 0001:0036445D 2554 0001:00364472 2555 0001:00364481 + 2556 0001:00364485 2557 0001:00364493 2558 0001:003644BD 2557 0001:003644FE + 2559 0001:00364503 2560 0001:0036451C 2563 0001:00364531 2567 0001:0036454E + 2568 0001:0036455B 2569 0001:00364571 2571 0001:0036457E 2572 0001:00364590 + 2574 0001:003645A5 2575 0001:003645B1 2577 0001:003645BE 2578 0001:003645D2 + 2579 0001:003645E3 2581 0001:003645ED 2583 0001:0036460D 2585 0001:00364647 + 2594 0001:0036474C 2596 0001:00364774 2597 0001:00364781 2598 0001:00364785 + 2599 0001:00364794 2600 0001:00364799 2601 0001:0036479E 2602 0001:003647A6 + 2603 0001:003647B3 2605 0001:003647BD 2606 0001:003647C1 2607 0001:003647CB + 2609 0001:003647DA 2611 0001:003647F4 2612 0001:0036480A 2613 0001:00364814 + 2615 0001:00364826 2616 0001:00364830 2617 0001:0036483A 2619 0001:00364879 + 2620 0001:0036489C 2623 0001:003648D0 2624 0001:003648D7 2625 0001:003648F4 + 2626 0001:00364911 2627 0001:0036492E 2628 0001:0036494B 2631 0001:00364950 + 2632 0001:00364957 2633 0001:00364977 2634 0001:00364997 2635 0001:003649A3 + 2637 0001:003649C9 2638 0001:003649E9 2639 0001:00364A09 2663 0001:00364A1C + 2664 0001:00364A23 2665 0001:00364A2B 2666 0001:00364A33 2669 0001:00364A38 + 2671 0001:00364A55 2672 0001:00364A61 2673 0001:00364A74 2674 0001:00364A92 + 2675 0001:00364AA0 2676 0001:00364AF0 2681 0001:00364B08 2683 0001:00364B27 + 2684 0001:00364B37 2685 0001:00364B46 2686 0001:00364B50 2687 0001:00364B5B + 2688 0001:00364B6B 2689 0001:00364B72 2690 0001:00364B79 2691 0001:00364B84 + 2692 0001:00364B8C 2693 0001:00364B93 2694 0001:00364B9B 2695 0001:00364BA6 + 2696 0001:00364BAE 2697 0001:00364BBE 2698 0001:00364BC6 2700 0001:00364BD3 + 2701 0001:00364BE3 2702 0001:00364BF3 2703 0001:00364BFD 2704 0001:00364C11 + 2705 0001:00364C24 2706 0001:00364C35 2707 0001:00364C48 2708 0001:00364C51 + 2709 0001:00364C6C 2710 0001:00364C80 2712 0001:00364C89 2715 0001:00364CAE + 2718 0001:00364CD3 2719 0001:00364CDF 2720 0001:00364D06 2730 0001:00364D44 + 2731 0001:00364D8A 2732 0001:00364D8F 2733 0001:00364D97 2734 0001:00364D9F + 2735 0001:00364DA9 2736 0001:00364DB8 2738 0001:00364DC4 2739 0001:00364DD9 + 2741 0001:00364DE5 2742 0001:00364DEC 2745 0001:00364DF3 2746 0001:00364DF9 + 2747 0001:00364E0C 2749 0001:00364E22 2750 0001:00364E29 2752 0001:00364E46 + 2753 0001:00364E54 2755 0001:00364E6C 2756 0001:00364E72 2757 0001:00364E7A + 2759 0001:00364E7C 2760 0001:00364E84 2750 0001:00364E87 2761 0001:00364E8C + 2763 0001:00364E92 2764 0001:00364E9C 2765 0001:00364EAA 2768 0001:00364EBA + 2769 0001:00364EC4 2771 0001:00364EDB 2772 0001:00364EEF 2773 0001:00364EF3 + 2774 0001:00364F2E 2776 0001:00364F38 2778 0001:00364F57 2780 0001:00364F9E + 2781 0001:00364FB5 2782 0001:00364FC9 2785 0001:00364FCD 2787 0001:00364FEC + 2789 0001:00365033 2790 0001:00365047 2793 0001:0036504B 2795 0001:00365073 + 2796 0001:00365084 2797 0001:0036508D 2798 0001:00365096 2800 0001:0036509D + 2801 0001:003650A8 2802 0001:003650B1 2803 0001:003650C5 2804 0001:003650D4 + 2805 0001:003650DC 2806 0001:003650F9 2807 0001:0036510B 2808 0001:0036511D + 2809 0001:0036512C 2811 0001:00365173 2812 0001:003651BF 2813 0001:003651E2 + 2814 0001:003651EE 2815 0001:0036521E 2816 0001:00365246 2817 0001:0036524E + 2818 0001:00365258 2819 0001:00365264 2822 0001:0036527D 2824 0001:003652A0 + 2826 0001:003652D0 2827 0001:003652E3 2829 0001:003652ED 2831 0001:00365304 + 2836 0001:00365314 2837 0001:00365325 2838 0001:0036532E 2839 0001:00365337 + 2841 0001:0036533E 2842 0001:0036534D 2843 0001:0036535A 2844 0001:00365364 + 2845 0001:0036536F 2846 0001:00365378 2847 0001:0036538C 2848 0001:0036539B + 2849 0001:003653A3 2850 0001:003653C0 2852 0001:003653CC 2853 0001:003653DE + 2855 0001:003653F0 2856 0001:0036544B 2857 0001:00365474 2858 0001:00365480 + 2859 0001:003654B0 2860 0001:003654D8 2861 0001:003654E0 2862 0001:003654EA + 2863 0001:00365502 2868 0001:00365518 2869 0001:0036552B 2870 0001:00365553 + 2872 0001:003655D2 2875 0001:00365650 2876 0001:0036567C 2878 0001:00365694 + 2879 0001:0036569C 2881 0001:003656A1 2883 0001:003656AD 2884 0001:003656F5 + 2886 0001:0036571D 2888 0001:00365770 2897 0001:00365784 2899 0001:003657E4 + 2901 0001:003657E8 2903 0001:003657F4 2904 0001:00365809 2906 0001:00365815 + 2907 0001:0036581C 2911 0001:00365823 2912 0001:00365829 2914 0001:00365845 + 2915 0001:00365856 2916 0001:00365864 2917 0001:00365878 2919 0001:00365884 + 2920 0001:0036589F 2922 0001:003658A4 2923 0001:003658AA 2925 0001:003658C0 + 2928 0001:003658D4 2929 0001:003658E8 2931 0001:003658F4 2932 0001:00365908 + 2934 0001:0036590D 2935 0001:00365934 2936 0001:0036599B 2938 0001:003659D6 + 2940 0001:00365A13 2942 0001:00365A54 2944 0001:00365A92 2946 0001:00365AD0 + 2948 0001:00365AEA 2950 0001:00365AFE 2951 0001:00365B12 2952 0001:00365B26 + 2954 0001:00365B3F 2955 0001:00365B71 2957 0001:00365B86 2959 0001:00365B9B + 2960 0001:00365BB6 2961 0001:00365BCC 2962 0001:00365BDF 2963 0001:00365BEA + 2964 0001:00365BFD 2965 0001:00365C25 2966 0001:00365C6D 2967 0001:00365CB5 + 2968 0001:00365CC6 2972 0001:00365CD9 2973 0001:00365D45 2981 0001:00365DEC + 2982 0001:00365E25 2983 0001:00365E29 2984 0001:00365E2E 2985 0001:00365E33 + 2987 0001:00365E42 2988 0001:00365E46 2990 0001:00365E62 2992 0001:00365E68 + 2993 0001:00365E9A 2995 0001:00365EA4 2996 0001:00365EAA 2997 0001:00365EB4 + 2998 0001:00365EC2 3000 0001:00365EDF 3002 0001:00365F35 3003 0001:00365F43 + 3005 0001:00365F45 2998 0001:00365F48 3007 0001:00365F4D 3008 0001:00365F5C + 3010 0001:00365F8A 3012 0001:00365FA7 3013 0001:00365FC9 3015 0001:00365FD9 + 3017 0001:00365FE5 3019 0001:0036600F 3020 0001:00366022 3022 0001:0036602C + 3023 0001:00366049 3025 0001:00366060 3028 0001:0036606B 3030 0001:0036608B + 3032 0001:003660BB 3033 0001:003660D1 3035 0001:003660DE 3037 0001:003660EE + 3039 0001:0036611E 3040 0001:00366131 3042 0001:0036613B 3043 0001:0036615E + 3050 0001:00366175 3051 0001:00366182 3052 0001:0036618D 3055 0001:00366199 + 2988 0001:0036619C 3056 0001:003661E8 3059 0001:003661FC 3060 0001:00366203 + 3061 0001:0036620D 3062 0001:00366218 3063 0001:00366222 3067 0001:00366228 + 3069 0001:0036624B 3070 0001:0036628F 3075 0001:00366298 3076 0001:003662C0 + 3077 0001:003662C8 3078 0001:003662E2 3079 0001:00366321 3081 0001:0036632D + 3083 0001:00366356 3085 0001:00366375 3086 0001:00366383 3087 0001:003663A2 + 3089 0001:003663A4 3081 0001:003663A7 3091 0001:003663AC 3092 0001:003663C0 + 3093 0001:003663D3 3094 0001:00366403 3097 0001:00366418 3098 0001:00366424 + 3099 0001:0036642F 3100 0001:00366437 3101 0001:00366442 3102 0001:00366453 + 3103 0001:00366464 3104 0001:00366475 3107 0001:0036647C 3109 0001:00366488 + 3111 0001:00366492 3114 0001:00366498 3116 0001:003664A4 3118 0001:003664AE + 3121 0001:003664B4 3123 0001:003664C0 3125 0001:003664CA 3128 0001:003664D0 + 3130 0001:003664DC 3132 0001:003664E6 3139 0001:003664EC 3140 0001:0036650C + 3142 0001:00366522 3143 0001:00366530 3145 0001:00366541 3146 0001:00366561 + 3147 0001:0036658D 3140 0001:00366590 3148 0001:003665B2 3154 0001:003665BC + 3155 0001:003665E9 3156 0001:003665F4 3157 0001:00366600 3159 0001:0036660D + 3160 0001:00366618 3161 0001:00366633 3163 0001:00366669 3164 0001:00366690 + 3165 0001:003666A4 3166 0001:003666B5 3160 0001:003666B8 3167 0001:003666EC + 3170 0001:003666F4 3171 0001:00366725 3172 0001:00366729 3174 0001:00366739 + 3175 0001:0036673F 3177 0001:00366771 3178 0001:003667A1 3179 0001:003667BC + 3180 0001:003667C4 3181 0001:003667D7 3182 0001:003667E2 3183 0001:003667EE + 3185 0001:0036681F 3198 0001:00366C70 3199 0001:00366C92 3200 0001:00366CA3 + 3202 0001:00366CC0 3203 0001:00366CD5 3204 0001:00366CE7 3205 0001:00366CFB + 3200 0001:00366CFE 3206 0001:00366D20 3209 0001:00366D24 3210 0001:00366D46 + 3211 0001:00366D7F 3212 0001:00366DA5 3213 0001:00366DAD 3214 0001:00366DC0 + 3215 0001:00366DCB 3216 0001:00366DF9 3221 0001:003670A4 3223 0001:003670AD + 3224 0001:003670B2 3223 0001:003670D9 3226 0001:003670DF 3231 0001:003670E4 + 3233 0001:003670ED 3234 0001:003670F2 3235 0001:00367116 3234 0001:00367136 + 3237 0001:0036713E 3240 0001:00367144 3244 0001:00367150 3250 0001:00367154 + 3253 0001:00367163 3254 0001:0036716E 3256 0001:00367186 3257 0001:0036718B + 3258 0001:003671AF 3257 0001:003671BF 3259 0001:003671C4 3261 0001:003671CC + 3262 0001:003671F0 3261 0001:00367219 3263 0001:0036721E 3267 0001:0036722C + 3270 0001:00367234 3272 0001:00367243 3273 0001:0036724B 3288 0001:00367254 + 3289 0001:00367281 3290 0001:00367285 3291 0001:00367297 3292 0001:003672A5 + 3294 0001:003672B8 3295 0001:003672C5 3298 0001:003672DC 3299 0001:003672F6 + 3301 0001:00367328 3302 0001:0036733C 3304 0001:00367376 3310 0001:003674DC + 3311 0001:003674E5 3312 0001:003674E9 3314 0001:00367522 3315 0001:00367536 + 3317 0001:00367549 3318 0001:0036755E 3319 0001:00367572 3320 0001:00367576 + 3322 0001:00367578 3312 0001:0036757B 3323 0001:00367583 3341 0001:00367604 + 3343 0001:00367610 3344 0001:0036761F 3347 0001:00367624 3349 0001:00367646 + 3350 0001:00367668 3351 0001:0036768A 3352 0001:003676AC 3353 0001:003676F3 + 3354 0001:0036773A 3355 0001:0036775C 3356 0001:0036777E 3357 0001:003677A0 + 3358 0001:003677E4 3363 0001:003677F4 3364 0001:00367800 3365 0001:00367812 + 3366 0001:0036781C 3367 0001:0036782D 3369 0001:00367839 3370 0001:00367854 + 3371 0001:00367885 3372 0001:003678A2 3373 0001:003678BF 3374 0001:003678DA + 3375 0001:003678F5 3376 0001:00367910 3377 0001:0036792B 3379 0001:00367946 + 3380 0001:0036796F 3381 0001:00367980 3385 0001:00367988 3388 0001:00367997 + 3389 0001:003679A2 3392 0001:003679A8 3394 0001:003679B4 3395 0001:003679BF + 3397 0001:003679F4 3397 0001:003679FB + +Line numbers for rMisc(rMisc.pas) segment .text + + 65 0001:00367A7C 66 0001:00367A82 67 0001:00367A98 68 0001:00367AA5 + 75 0001:00367AC4 76 0001:00367AEC 78 0001:00367AF6 79 0001:00367AFD + 80 0001:00367B05 76 0001:00367B08 81 0001:00367B0B 82 0001:00367B23 + 83 0001:00367B3F 84 0001:00367B5E 86 0001:00367B74 87 0001:00367B9E + 88 0001:00367BBC 89 0001:00367BE5 84 0001:00367BE9 90 0001:00367C18 + 96 0001:00367C44 97 0001:00367C69 98 0001:00367C71 99 0001:00367C89 + 100 0001:00367C8B 102 0001:00367C9A 103 0001:00367CB6 104 0001:00367CB7 + 105 0001:00367CD9 106 0001:00367CE4 100 0001:00367CE5 108 0001:00367D1A + 111 0001:00367D48 114 0001:00367D4F 115 0001:00367D5D 116 0001:00367D7B + 117 0001:00367D99 118 0001:00367DB1 119 0001:00367DB6 121 0001:00367DCC + 124 0001:00367DE8 125 0001:00367E04 126 0001:00367E4F 129 0001:00367E74 + 130 0001:00367E80 131 0001:00367EA6 134 0001:00367EC4 135 0001:00367ECD + 136 0001:00367EE7 139 0001:00367F04 140 0001:00367F1E 141 0001:00367F68 + 146 0001:00367F88 147 0001:00367FA8 148 0001:00367FB9 149 0001:00367FCA + 150 0001:00367FDB 153 0001:00367FF3 155 0001:00368014 156 0001:0036803A + 158 0001:003680E3 153 0001:003680E4 159 0001:003680ED 160 0001:00368109 + 161 0001:00368125 163 0001:00368163 166 0001:003681CC 168 0001:003681F1 + 169 0001:00368267 174 0001:00368284 175 0001:003682A2 176 0001:003682B0 + 177 0001:003682BD 178 0001:003682F3 179 0001:0036830E 180 0001:0036832E + 183 0001:0036833C 184 0001:0036836C 185 0001:0036839C 187 0001:003683A4 + 188 0001:003683DF 192 0001:0036841C 193 0001:00368445 198 0001:00368490 + 203 0001:003684B4 204 0001:003684E2 205 0001:003684F0 206 0001:00368500 + 207 0001:0036851F 208 0001:0036853E 209 0001:00368560 210 0001:003685A4 + 216 0001:003685AC 217 0001:003685C4 218 0001:003685D2 219 0001:003685DF + 220 0001:00368615 221 0001:00368630 222 0001:00368638 224 0001:00368662 + 225 0001:0036869A 232 0001:003686AC 233 0001:003686C9 234 0001:003686CD + 235 0001:003686DB 236 0001:003686E8 237 0001:0036871E 238 0001:0036872F + 239 0001:00368733 240 0001:0036874E 241 0001:00368763 244 0001:0036877F + 245 0001:003687E1 246 0001:003687FB 247 0001:00368809 248 0001:00368816 + 240 0001:00368817 249 0001:00368820 250 0001:00368859 255 0001:00368888 + 256 0001:003688A3 257 0001:003688BD 259 0001:003688CC 263 0001:00368920 + 264 0001:00368952 267 0001:00368974 268 0001:00368977 269 0001:0036898D + 272 0001:003689A8 273 0001:003689C4 274 0001:00368A04 280 0001:00368A24 + 282 0001:00368A46 283 0001:00368A56 284 0001:00368A60 285 0001:00368A6F + 288 0001:00368A7D 292 0001:00368B05 293 0001:00368B0F 294 0001:00368B17 + 296 0001:00368B4B 301 0001:00368B64 302 0001:00368B82 303 0001:00368B8D + 304 0001:00368BBF 306 0001:00368C1F 307 0001:00368C39 308 0001:00368C79 + 311 0001:00368CC0 312 0001:00368CEC 314 0001:00368D6D 319 0001:00368D9C + 320 0001:00368DB7 321 0001:00368DC2 322 0001:00368DF4 323 0001:00368E3D + 330 0001:00368E68 331 0001:00368E87 332 0001:00368E8B 333 0001:00368E96 + 334 0001:00368EC8 335 0001:00368ED9 336 0001:00368EDD 337 0001:00368EF6 + 338 0001:00368F0B 340 0001:00368F21 341 0001:00368F2B 343 0001:00368F58 + 344 0001:00368F86 337 0001:00368F87 345 0001:00368F8C 346 0001:00368F9B + 347 0001:00368FF0 355 0001:00369044 356 0001:00369064 357 0001:00369077 + 356 0001:003690BA 358 0001:003690E1 361 0001:00369100 362 0001:00369112 + 363 0001:0036911B 364 0001:0036912A 365 0001:00369150 369 0001:00369154 + 370 0001:0036915F 371 0001:00369167 372 0001:0036916F 373 0001:00369186 + 382 0001:0036918C 383 0001:003691B7 384 0001:003691BF 385 0001:003691CC + 387 0001:003691D1 388 0001:003691EE 390 0001:003691F4 391 0001:003691FF + 395 0001:0036920C 396 0001:00369219 397 0001:00369249 405 0001:00369268 + 406 0001:00369295 407 0001:003692A0 409 0001:003692A5 410 0001:003692B0 + 413 0001:003692BD 414 0001:003692EC 420 0001:003692F4 421 0001:00369320 + 422 0001:00369333 424 0001:0036935B 416 0001:00369360 419 0001:00369367 + +Line numbers for rTIU(rTIU.pas) segment .text + + 128 0001:00369368 129 0001:00369388 130 0001:00369395 131 0001:003693C3 + 132 0001:003693DC 133 0001:003693ED 134 0001:0036940C 135 0001:00369426 + 136 0001:0036944C 137 0001:00369499 141 0001:003694E8 143 0001:003694F1 + 144 0001:003694FB 145 0001:00369502 147 0001:00369507 152 0001:00369508 + 153 0001:00369516 154 0001:0036951E 158 0001:00369520 159 0001:00369523 + 160 0001:00369531 161 0001:00369541 164 0001:00369544 165 0001:00369561 + 166 0001:00369563 167 0001:00369567 168 0001:003695B0 171 0001:003695E4 + 172 0001:00369601 173 0001:00369603 174 0001:00369607 175 0001:00369650 + 178 0001:00369678 179 0001:00369695 180 0001:00369697 181 0001:0036969B + 182 0001:003696E4 186 0001:00369718 187 0001:0036971B 188 0001:00369729 + 189 0001:00369738 191 0001:00369749 192 0001:00369755 194 0001:00369761 + 198 0001:003697C4 199 0001:003697E3 200 0001:00369826 201 0001:00369857 + 204 0001:00369884 205 0001:0036988D 206 0001:003698A7 212 0001:003698C8 + 213 0001:003698D4 214 0001:003698D8 216 0001:00369912 218 0001:00369944 + 219 0001:00369951 227 0001:00369978 228 0001:0036999C 231 0001:003699AA + 232 0001:003699CE 233 0001:003699F2 234 0001:00369A13 235 0001:00369A3B + 236 0001:00369A5B 237 0001:00369A83 238 0001:00369AAA 239 0001:00369ACE + 240 0001:00369AF0 241 0001:00369B2B 243 0001:00369B85 247 0001:00369BF0 + 249 0001:00369BF9 250 0001:00369C03 251 0001:00369C0A 253 0001:00369C0F + 256 0001:00369C10 257 0001:00369C2F 258 0001:00369CA8 262 0001:00369CE0 + 263 0001:00369D05 264 0001:00369D0E 266 0001:00369D76 267 0001:00369DFC + 279 0001:00369E34 280 0001:00369E42 281 0001:00369E4A 284 0001:00369E4C + 285 0001:00369E74 286 0001:00369E7A 287 0001:00369E87 289 0001:00369EED + 290 0001:00369F71 294 0001:00369FAC 295 0001:00369FB2 296 0001:00369FC0 + 297 0001:00369FD0 298 0001:00369FE0 302 0001:00369FE4 303 0001:00369FF2 + 304 0001:00369FFA 305 0001:0036A003 317 0001:0036A004 318 0001:0036A012 + 319 0001:0036A01A 333 0001:0036A01C 334 0001:0036A044 336 0001:0036A048 + 337 0001:0036A04B 338 0001:0036A053 340 0001:0036A055 341 0001:0036A079 + 342 0001:0036A09E 343 0001:0036A0E6 346 0001:0036A118 347 0001:0036A134 + 348 0001:0036A193 353 0001:0036A1C4 354 0001:0036A1E0 355 0001:0036A1FA + 356 0001:0036A229 368 0001:0036A268 369 0001:0036A26E 372 0001:0036A28E + 373 0001:0036A2B8 374 0001:0036A2D5 375 0001:0036A2E9 414 0001:0036A32C + 415 0001:0036A33C 416 0001:0036A348 418 0001:0036A350 419 0001:0036A3CA + 421 0001:0036A3DE 447 0001:0036A40C 448 0001:0036A412 449 0001:0036A42A + 450 0001:0036A43E 453 0001:0036A460 454 0001:0036A466 455 0001:0036A47E + 456 0001:0036A492 468 0001:0036A4B8 469 0001:0036A4E0 470 0001:0036A4E8 + 471 0001:0036A504 473 0001:0036A53B 474 0001:0036A571 475 0001:0036A573 + 470 0001:0036A574 476 0001:0036A59C 481 0001:0036A5A4 482 0001:0036A5C5 + 483 0001:0036A5CD 484 0001:0036A5E9 486 0001:0036A620 487 0001:0036A64A + 488 0001:0036A64C 483 0001:0036A64D 489 0001:0036A672 494 0001:0036A67C + 495 0001:0036A69B 496 0001:0036A6A0 497 0001:0036A6BC 499 0001:0036A6F3 + 500 0001:0036A72A 501 0001:0036A72C 496 0001:0036A72D 502 0001:0036A755 + 507 0001:0036A75C 508 0001:0036A784 509 0001:0036A792 510 0001:0036A7AE + 512 0001:0036A7E5 513 0001:0036A821 514 0001:0036A823 509 0001:0036A824 + 515 0001:0036A84F 520 0001:0036A858 521 0001:0036A879 522 0001:0036A881 + 523 0001:0036A89D 525 0001:0036A8D4 526 0001:0036A8FE 527 0001:0036A900 + 522 0001:0036A901 528 0001:0036A926 530 0001:0036A930 531 0001:0036A954 + 532 0001:0036A979 535 0001:0036A987 536 0001:0036A994 537 0001:0036A9AC + 538 0001:0036A9BA 539 0001:0036A9CA 540 0001:0036A9E2 541 0001:0036A9F2 + 542 0001:0036AA0A 543 0001:0036AA22 544 0001:0036AA2F 545 0001:0036AA47 + 546 0001:0036AA54 547 0001:0036AA61 548 0001:0036AA6F 549 0001:0036AA7D + 550 0001:0036AA95 551 0001:0036AAB5 552 0001:0036AAD3 555 0001:0036AAE6 + 556 0001:0036AB34 559 0001:0036AB56 560 0001:0036AB71 564 0001:0036ABAB + 567 0001:0036ACE0 568 0001:0036ACE9 569 0001:0036AD03 572 0001:0036AD20 + 573 0001:0036AD3A 583 0001:0036AD85 586 0001:0036ADAC 587 0001:0036ADB5 + 588 0001:0036ADCF 593 0001:0036ADEC 594 0001:0036AE07 595 0001:0036AE21 + 596 0001:0036AE43 598 0001:0036AE48 599 0001:0036AE94 604 0001:0036AEC8 + 605 0001:0036AEE7 606 0001:0036AF04 607 0001:0036AF60 610 0001:0036AF80 + 611 0001:0036AF86 612 0001:0036AF9F 615 0001:0036AFC4 616 0001:0036AFDE + 617 0001:0036B02A 620 0001:0036B05C 621 0001:0036B065 622 0001:0036B07F + 645 0001:0036B0A8 646 0001:0036B0D0 647 0001:0036B0F4 648 0001:0036B119 + 649 0001:0036B161 652 0001:0036B190 653 0001:0036B1AC 654 0001:0036B1F7 + 660 0001:0036B224 671 0001:0036B24C 672 0001:0036B270 673 0001:0036B295 + 674 0001:0036B2DD 683 0001:0036B308 686 0001:0036B334 687 0001:0036B33D + 688 0001:0036B352 689 0001:0036B365 690 0001:0036B387 691 0001:0036B39D + 692 0001:0036B3C7 693 0001:0036B3DD 694 0001:0036B3F7 695 0001:0036B40D + 696 0001:0036B427 697 0001:0036B43D 698 0001:0036B457 699 0001:0036B46D + 702 0001:0036B481 703 0001:0036B49F 704 0001:0036B4C1 705 0001:0036B4E3 + 706 0001:0036B511 707 0001:0036B527 708 0001:0036B55D 713 0001:0036B57E + 714 0001:0036B594 715 0001:0036B5C2 716 0001:0036B5D8 717 0001:0036B5F7 + 718 0001:0036B5FC 719 0001:0036B630 721 0001:0036B663 723 0001:0036B675 + 724 0001:0036B68C 726 0001:0036B692 727 0001:0036B699 730 0001:0036B6C9 + 739 0001:0036B760 742 0001:0036B78A 743 0001:0036B798 744 0001:0036B7B8 + 745 0001:0036B7D0 746 0001:0036B7FB 747 0001:0036B816 749 0001:0036B82F + 750 0001:0036B84D 751 0001:0036B86F 756 0001:0036B89D 757 0001:0036B8B8 + 758 0001:0036B8DC 759 0001:0036B8E1 760 0001:0036B917 762 0001:0036B94C + 764 0001:0036B95B 765 0001:0036B96F 767 0001:0036B975 768 0001:0036B979 + 771 0001:0036B9A6 780 0001:0036BA08 784 0001:0036BA34 785 0001:0036BA42 + 786 0001:0036BA5A 787 0001:0036BA72 788 0001:0036BA9E 789 0001:0036BAB9 + 791 0001:0036BAD2 793 0001:0036BAD8 796 0001:0036BAF3 797 0001:0036BB11 + 798 0001:0036BB3F 799 0001:0036BB55 800 0001:0036BB77 801 0001:0036BBAD + 802 0001:0036BBCE 806 0001:0036BBFE 807 0001:0036BC03 808 0001:0036BC3C + 811 0001:0036BC74 814 0001:0036BC7C 815 0001:0036BCAF 819 0001:0036BCB1 + 820 0001:0036BCC7 822 0001:0036BCCD 823 0001:0036BCD4 825 0001:0036BD04 + 853 0001:0036BDC4 855 0001:0036BDF2 856 0001:0036BE05 857 0001:0036BE1C + 858 0001:0036BE23 860 0001:0036BE31 862 0001:0036BE48 864 0001:0036BE4B + 867 0001:0036BEB5 869 0001:0036BEC7 870 0001:0036BF1E 871 0001:0036BF23 + 872 0001:0036BF39 874 0001:0036BF70 875 0001:0036BF7D 876 0001:0036BF89 + 877 0001:0036BF8C 879 0001:0036BF9A 860 0001:0036BF9B 881 0001:0036BFA4 + 883 0001:0036BFBC 884 0001:0036C013 885 0001:0036C018 886 0001:0036C02E + 888 0001:0036C065 890 0001:0036C094 893 0001:0036C104 896 0001:0036C124 + 897 0001:0036C12D 898 0001:0036C145 899 0001:0036C158 900 0001:0036C182 + 901 0001:0036C198 902 0001:0036C1AE 904 0001:0036C1F9 910 0001:0036C21C + 911 0001:0036C23B 914 0001:0036C29E 919 0001:0036C2D4 920 0001:0036C300 + 921 0001:0036C338 922 0001:0036C3A8 925 0001:0036C3DC 926 0001:0036C3DF + 927 0001:0036C403 928 0001:0036C410 931 0001:0036C434 932 0001:0036C437 + 933 0001:0036C44D 934 0001:0036C45F 935 0001:0036C46C 938 0001:0036C494 + 939 0001:0036C497 940 0001:0036C4BB 943 0001:0036C4E8 944 0001:0036C507 + 945 0001:0036C56A 948 0001:0036C5A0 951 0001:0036C5C0 952 0001:0036C5C9 + 953 0001:0036C5DE 954 0001:0036C5F1 955 0001:0036C617 956 0001:0036C62D + 957 0001:0036C641 958 0001:0036C651 960 0001:0036C671 961 0001:0036C683 + 963 0001:0036C6AA 968 0001:0036C6E4 969 0001:0036C719 970 0001:0036C757 + 971 0001:0036C763 973 0001:0036C767 974 0001:0036C795 980 0001:0036C7B8 + 981 0001:0036C7E6 984 0001:0036C80A 985 0001:0036C80E 986 0001:0036C82C + 987 0001:0036C838 988 0001:0036C856 989 0001:0036C862 990 0001:0036C880 + 991 0001:0036C8A9 992 0001:0036C8CE 993 0001:0036C8EE 994 0001:0036C913 + 995 0001:0036C937 996 0001:0036C962 997 0001:0036C98D 998 0001:0036C9B1 + 999 0001:0036C9D5 1000 0001:0036C9F9 1002 0001:0036CA03 1003 0001:0036CA4E + 1008 0001:0036CA80 1011 0001:0036CAC4 1012 0001:0036CAD7 1013 0001:0036CAEA + 1014 0001:0036CAFD 1015 0001:0036CB0D 1017 0001:0036CB30 1018 0001:0036CB41 + 1019 0001:0036CB5F 1020 0001:0036CB88 1021 0001:0036CB9B 1022 0001:0036CBC4 + 1023 0001:0036CBED 1024 0001:0036CC00 1025 0001:0036CC13 1027 0001:0036CC26 + 1028 0001:0036CC77 1031 0001:0036CCA0 1032 0001:0036CCB6 1034 0001:0036CCBF + 1035 0001:0036CCE0 1037 0001:0036CCE7 1038 0001:0036CD11 1044 0001:0036CD38 + 1045 0001:0036CD3A 1050 0001:0036CD3C 1051 0001:0036CD5C 1052 0001:0036CD5E + 1053 0001:0036CD78 1054 0001:0036CD9A 1055 0001:0036CD9E 1057 0001:0036CDC0 + 1058 0001:0036CDC2 1060 0001:0036CE0B 1069 0001:0036CE44 1070 0001:0036CE6E + 1071 0001:0036CE70 1072 0001:0036CE82 1073 0001:0036CE9F 1074 0001:0036CEC1 + 1075 0001:0036CEC5 1077 0001:0036CEE7 1078 0001:0036CEE9 1080 0001:0036CF08 + 1082 0001:0036CF2A 1083 0001:0036CF2C 1085 0001:0036CF69 1090 0001:0036D07C + 1091 0001:0036D0AA 1092 0001:0036D0C7 1093 0001:0036D0E9 1096 0001:0036D0ED + 1097 0001:0036D0EF 1099 0001:0036D13D 1104 0001:0036D16C 1105 0001:0036D1A5 + 1106 0001:0036D1CF 1107 0001:0036D1F0 1110 0001:0036D1F4 1111 0001:0036D1F6 + 1113 0001:0036D244 1118 0001:0036D268 1119 0001:0036D296 1120 0001:0036D2B3 + 1121 0001:0036D2D4 1124 0001:0036D2D8 1125 0001:0036D2DA 1127 0001:0036D328 + 1130 0001:0036D34C 1131 0001:0036D355 1132 0001:0036D377 1133 0001:0036D384 + 1136 0001:0036D3B0 1137 0001:0036D3B6 1138 0001:0036D3CF 1139 0001:0036D3DC + 1143 0001:0036D404 1144 0001:0036D429 1145 0001:0036D446 1146 0001:0036D452 + 1148 0001:0036D456 1149 0001:0036D47C 1154 0001:0036D4A0 1156 0001:0036D4A9 + 1157 0001:0036D4B8 1159 0001:0036D4BF 1160 0001:0036D4C4 1163 0001:0036D4DC + 1164 0001:0036D4F8 1165 0001:0036D542 1172 0001:0036D560 1173 0001:0036D58C + 1175 0001:0036D5BE 1168 0001:0036D5C0 1171 0001:0036D5ED + +Line numbers for rCore(rCore.pas) segment .text + + 234 0001:0036D754 236 0001:0036D771 239 0001:0036D77A 240 0001:0036D786 + 241 0001:0036D7EA 242 0001:0036D815 247 0001:0036D828 248 0001:0036D82C + 249 0001:0036D82E 250 0001:0036D846 251 0001:0036D85D 252 0001:0036D861 + 257 0001:0036D864 258 0001:0036D868 259 0001:0036D86A 260 0001:0036D876 + 261 0001:0036D88D 262 0001:0036D891 268 0001:0036D894 269 0001:0036D897 + 270 0001:0036D8B9 271 0001:0036D8CF 277 0001:0036D8D8 278 0001:0036D8F1 + 279 0001:0036D910 280 0001:0036D93C 288 0001:0036D95C 289 0001:0036D97F + 290 0001:0036D986 291 0001:0036D998 292 0001:0036D9A7 293 0001:0036D9D5 + 294 0001:0036D9F4 295 0001:0036DA06 296 0001:0036DA1F 297 0001:0036DA37 + 298 0001:0036DA63 299 0001:0036DAA6 305 0001:0036DAF0 306 0001:0036DB0C + 307 0001:0036DB26 308 0001:0036DB52 312 0001:0036DB68 313 0001:0036DB87 + 314 0001:0036DBD7 318 0001:0036DBF4 319 0001:0036DBFA 320 0001:0036DC12 + 321 0001:0036DC26 325 0001:0036DC44 326 0001:0036DC4A 327 0001:0036DC66 + 336 0001:0036DC94 337 0001:0036DC9F 338 0001:0036DCAE 339 0001:0036DCBE + 340 0001:0036DCCC 344 0001:0036DDE0 345 0001:0036DDE9 346 0001:0036DE17 + 349 0001:0036DE38 350 0001:0036DE54 351 0001:0036DEAC 354 0001:0036DED8 + 355 0001:0036DEE1 356 0001:0036DEFB 367 0001:0036DF14 368 0001:0036DF1D + 369 0001:0036DF3F 370 0001:0036DF4C 375 0001:0036DF68 376 0001:0036DF71 + 378 0001:0036DF93 379 0001:0036DFA0 390 0001:0036DFC0 391 0001:0036DFE1 + 394 0001:0036DFFD 395 0001:0036E021 396 0001:0036E03F 397 0001:0036E05F + 398 0001:0036E085 399 0001:0036E0AB 400 0001:0036E0CB 401 0001:0036E0F1 + 402 0001:0036E114 403 0001:0036E137 404 0001:0036E15D 405 0001:0036E183 + 406 0001:0036E1A6 407 0001:0036E1C4 408 0001:0036E1E4 409 0001:0036E207 + 410 0001:0036E22A 411 0001:0036E250 412 0001:0036E276 413 0001:0036E29C + 414 0001:0036E2BA 415 0001:0036E2D8 416 0001:0036E2FE 417 0001:0036E324 + 418 0001:0036E342 419 0001:0036E368 420 0001:0036E38E 421 0001:0036E392 + 422 0001:0036E39E 424 0001:0036E3A2 425 0001:0036E3A8 427 0001:0036E3B7 + 428 0001:0036E3C4 431 0001:0036E3C8 436 0001:0036E3F6 439 0001:0036E42C + 440 0001:0036E435 441 0001:0036E44F 447 0001:0036E468 448 0001:0036E485 + 449 0001:0036E487 450 0001:0036E4A1 451 0001:0036E4D1 454 0001:0036E4F8 + 455 0001:0036E514 456 0001:0036E55F 460 0001:0036E590 461 0001:0036E5AF + 462 0001:0036E60F 469 0001:0036E638 470 0001:0036E641 471 0001:0036E650 + 473 0001:0036E65E 474 0001:0036E679 476 0001:0036E690 478 0001:0036E6A0 + 481 0001:0036E6C0 482 0001:0036E6DF 483 0001:0036E715 486 0001:0036E744 + 487 0001:0036E766 488 0001:0036E79D 491 0001:0036E7CC 492 0001:0036E7EB + 493 0001:0036E821 496 0001:0036E84C 497 0001:0036E86E 498 0001:0036E8AE + 501 0001:0036E8D8 502 0001:0036E8F7 503 0001:0036E92D 506 0001:0036E95C + 507 0001:0036E97B 508 0001:0036E9B1 511 0001:0036E9E0 512 0001:0036EA0A + 513 0001:0036EA52 517 0001:0036EA7C 518 0001:0036EA9B 519 0001:0036EAD1 + 523 0001:0036EAF4 524 0001:0036EB13 525 0001:0036EB54 529 0001:0036EB74 + 530 0001:0036EBB1 531 0001:0036EC15 535 0001:0036EC38 536 0001:0036EC57 + 537 0001:0036EC8D 541 0001:0036ECAC 542 0001:0036ECB2 543 0001:0036ECCE + 547 0001:0036ECEC 548 0001:0036ED16 549 0001:0036ED5E 553 0001:0036ED7C + 554 0001:0036ED9E 555 0001:0036EDD5 559 0001:0036EDF4 560 0001:0036EE16 + 561 0001:0036EE4D 565 0001:0036EE70 566 0001:0036EE9D 567 0001:0036EECA + 568 0001:0036EEFB 575 0001:0036EF20 576 0001:0036EF3C 577 0001:0036EF55 + 578 0001:0036EF9B 581 0001:0036EFC4 582 0001:0036EFDE 583 0001:0036F028 + 586 0001:0036F048 587 0001:0036F04E 588 0001:0036F064 592 0001:0036F080 + 593 0001:0036F086 594 0001:0036F09E 595 0001:0036F0B0 596 0001:0036F0C4 + 600 0001:0036F0E4 601 0001:0036F0EA 602 0001:0036F102 603 0001:0036F114 + 604 0001:0036F128 608 0001:0036F140 609 0001:0036F146 611 0001:0036F15E + 612 0001:0036F172 617 0001:0036F18C 622 0001:0036F190 623 0001:0036F199 + 625 0001:0036F1C9 626 0001:0036F1D6 640 0001:0036F208 641 0001:0036F22D + 642 0001:0036F260 643 0001:0036F272 644 0001:0036F29E 649 0001:0036F2BC + 650 0001:0036F2C5 651 0001:0036F312 652 0001:0036F324 653 0001:0036F331 + 659 0001:0036F350 664 0001:0036F354 665 0001:0036F35D 666 0001:0036F37F + 667 0001:0036F391 668 0001:0036F39E 672 0001:0036F3BC 673 0001:0036F3D8 + 674 0001:0036F401 675 0001:0036F419 676 0001:0036F443 680 0001:0036F474 + 681 0001:0036F47E 689 0001:0036F480 690 0001:0036F4AE 691 0001:0036F4B6 + 692 0001:0036F4C5 693 0001:0036F4D3 694 0001:0036F4EE 695 0001:0036F50A + 697 0001:0036F51D 698 0001:0036F52C 700 0001:0036F53D 701 0001:0036F54C + 703 0001:0036F562 704 0001:0036F56F 705 0001:0036F582 706 0001:0036F595 + 707 0001:0036F5BC 708 0001:0036F5CF 709 0001:0036F5E7 710 0001:0036F5F4 + 701 0001:0036F5F5 714 0001:0036F601 715 0001:0036F603 716 0001:0036F617 + 717 0001:0036F62B 718 0001:0036F63A 719 0001:0036F675 720 0001:0036F6A9 + 721 0001:0036F6C9 722 0001:0036F6DA 723 0001:0036F70B 724 0001:0036F71C + 727 0001:0036F72B 728 0001:0036F733 730 0001:0036F74B 732 0001:0036F785 + 736 0001:0036F844 737 0001:0036F84D 738 0001:0036F866 739 0001:0036F87F + 740 0001:0036F891 741 0001:0036F8A5 745 0001:0036F8CC 746 0001:0036F8D2 + 747 0001:0036F8EA 748 0001:0036F903 749 0001:0036F915 750 0001:0036F929 + 754 0001:0036F94C 755 0001:0036F952 756 0001:0036F96A 757 0001:0036F983 + 758 0001:0036F995 759 0001:0036F9A9 766 0001:0036F9D4 767 0001:0036FA14 + 768 0001:0036FA1C 771 0001:0036FA49 772 0001:0036FA58 774 0001:0036FA73 + 775 0001:0036FA8C 777 0001:0036FAAC 778 0001:0036FAC3 779 0001:0036FAD6 + 780 0001:0036FAE9 781 0001:0036FB10 782 0001:0036FB23 783 0001:0036FB3B + 784 0001:0036FB52 775 0001:0036FB53 785 0001:0036FB5A 786 0001:0036FB6C + 788 0001:0036FBB3 794 0001:0036FC10 795 0001:0036FC2F 796 0001:0036FC37 + 797 0001:0036FC4D 798 0001:0036FC5C 800 0001:0036FC77 801 0001:0036FC90 + 802 0001:0036FCA2 803 0001:0036FCD3 810 0001:0036FD00 812 0001:0036FD25 + 814 0001:0036FD48 815 0001:0036FD5A 816 0001:0036FD8B 823 0001:0036FDB8 + 825 0001:0036FDD2 827 0001:0036FDE8 828 0001:0036FDFA 829 0001:0036FE23 + 838 0001:0036FE50 840 0001:0036FE75 841 0001:0036FE98 842 0001:0036FEB1 + 844 0001:0036FED1 845 0001:0036FEE8 846 0001:0036FEFB 847 0001:0036FF0E + 848 0001:0036FF35 849 0001:0036FF57 850 0001:0036FF82 851 0001:0036FF99 + 842 0001:0036FF9A 852 0001:0036FFA1 853 0001:0036FFB3 854 0001:0036FFF7 + 860 0001:00370034 862 0001:00370059 863 0001:0037007C 864 0001:00370095 + 866 0001:003700B5 867 0001:003700CC 868 0001:003700DF 869 0001:003700F2 + 870 0001:00370119 871 0001:0037013B 872 0001:00370166 873 0001:0037017D + 864 0001:0037017E 874 0001:00370185 875 0001:00370197 876 0001:003701DB + 883 0001:0037021C 884 0001:00370241 885 0001:0037024B 886 0001:0037025A + 888 0001:0037025E 889 0001:00370296 886 0001:003702A5 891 0001:003702A9 + 892 0001:003702CD 893 0001:003702E6 895 0001:00370306 896 0001:0037031D + 897 0001:00370330 898 0001:00370343 899 0001:0037036A 900 0001:0037038C + 901 0001:003703B7 902 0001:003703CE 893 0001:003703CF 903 0001:003703D6 + 904 0001:003703E8 905 0001:0037042C 912 0001:00370478 913 0001:0037049D + 914 0001:003704A7 915 0001:003704B6 917 0001:003704BA 918 0001:003704F2 + 915 0001:00370501 920 0001:00370505 921 0001:00370529 922 0001:00370542 + 924 0001:00370562 925 0001:00370579 926 0001:0037058C 927 0001:0037059F + 928 0001:003705C6 929 0001:003705E8 930 0001:00370613 931 0001:0037062A + 922 0001:0037062B 932 0001:00370632 933 0001:00370644 934 0001:00370688 + 938 0001:003706D8 939 0001:003706DE 940 0001:003706F6 941 0001:00370708 + 942 0001:0037071C 947 0001:00370734 948 0001:0037073D 949 0001:0037075F + 950 0001:00370771 951 0001:0037077E 955 0001:0037079C 956 0001:003707BE + 957 0001:003707F5 962 0001:00370814 963 0001:00370839 964 0001:00370863 + 965 0001:00370875 966 0001:003708A1 969 0001:003708C0 970 0001:003708DF + 971 0001:00370915 986 0001:00370934 987 0001:00370959 988 0001:0037096F + 989 0001:00370975 992 0001:0037097C 994 0001:00370992 995 0001:003709B6 + 996 0001:003709CA 999 0001:00370A21 1033 0001:00370A4C 1034 0001:00370A72 + 1035 0001:00370A8C 1036 0001:00370AAB 1037 0001:00370AC8 1038 0001:00370B10 + 1042 0001:00370B34 1043 0001:00370B50 1044 0001:00370B96 1053 0001:00370BB4 + 1054 0001:00370BD7 1057 0001:00370BF1 1058 0001:00370C19 1059 0001:00370C37 + 1060 0001:00370C55 1061 0001:00370C5D 1062 0001:00370C92 1064 0001:00370CB9 + 1065 0001:00370CD7 1066 0001:00370CF0 1067 0001:00370D07 1068 0001:00370D16 + 1069 0001:00370D25 1071 0001:00370D32 1072 0001:00370D6B 1073 0001:00370D8A + 1074 0001:00370DAF 1075 0001:00370DB7 1076 0001:00370DD5 1078 0001:00370DF3 + 1079 0001:00370E11 1081 0001:00370E59 1086 0001:00370F00 1087 0001:00370F23 + 1088 0001:00370F27 1089 0001:00370F2E 1090 0001:00370F44 1092 0001:00370F5A + 1093 0001:00370F82 1095 0001:00370FFB 1098 0001:00371034 1099 0001:00371050 + 1100 0001:0037109B 1105 0001:003710D4 1106 0001:003710F7 1107 0001:003710FB + 1108 0001:00371102 1109 0001:00371118 1111 0001:0037112E 1112 0001:00371156 + 1114 0001:003711CF 1130 0001:00371214 1131 0001:00371237 1134 0001:00371251 + 1135 0001:0037126E 1136 0001:0037128C 1137 0001:003712B5 1138 0001:003712D4 + 1140 0001:003712F4 1141 0001:00371334 1142 0001:00371354 1143 0001:00371372 + 1144 0001:00371390 1145 0001:003713B0 1146 0001:003713CE 1147 0001:003713F4 + 1148 0001:00371413 1149 0001:00371439 1152 0001:00371459 1153 0001:00371477 + 1155 0001:00371495 1158 0001:003714AF 1159 0001:003714CD 1160 0001:003714EB + 1162 0001:003714F7 1163 0001:00371515 1164 0001:0037152F 1167 0001:00371577 + 1196 0001:003715D4 1197 0001:003715FB 1198 0001:0037164A 1206 0001:00371674 + 1207 0001:003716A2 1210 0001:003716D0 1211 0001:003716ED 1212 0001:0037170B + 1213 0001:00371729 1216 0001:00371771 1224 0001:00371794 1225 0001:0037179D + 1228 0001:003717ED 1229 0001:003717FF 1230 0001:00371811 1231 0001:0037182E + 1250 0001:00371842 1257 0001:0037187C 1258 0001:003718A3 1261 0001:003718B9 + 1263 0001:003718D9 1264 0001:003718F0 1265 0001:00371903 1266 0001:0037192A + 1267 0001:0037193D 1268 0001:00371954 1261 0001:00371955 1269 0001:00371958 + 1271 0001:00371997 1276 0001:003719D4 1277 0001:003719DD 1278 0001:003719FF + 1279 0001:00371A0C 1285 0001:00371A2C 1286 0001:00371A35 1287 0001:00371A57 + 1288 0001:00371A64 1293 0001:00371A84 1294 0001:00371A8D 1295 0001:00371AAF + 1296 0001:00371ABC 1301 0001:00371AD8 1302 0001:00371AFA 1303 0001:00371B10 + 1304 0001:00371B24 1314 0001:00371B85 1317 0001:00371BB0 1318 0001:00371BCA + 1319 0001:00371BE2 1320 0001:00371C28 1323 0001:00371C58 1324 0001:00371C72 + 1325 0001:00371C8A 1326 0001:00371CD0 1329 0001:00371D00 1330 0001:00371D22 + 1331 0001:00371D3B 1332 0001:00371D6E 1335 0001:00371D8C 1336 0001:00371DAB + 1337 0001:00371DE1 1340 0001:00371E00 1341 0001:00371E0C 1342 0001:00371E30 + 1344 0001:00371E98 1345 0001:00371EA1 1347 0001:00371EAF + +Line numbers for uCore(uCore.pas) segment .text + + 173 0001:00371FF4 414 0001:003724B0 415 0001:003724B4 416 0001:003724BE + 417 0001:003724CC 419 0001:003724E9 421 0001:003724FE 431 0001:00372504 + 432 0001:00372524 433 0001:00372531 434 0001:0037253B 435 0001:00372549 + 436 0001:00372559 438 0001:0037255F 439 0001:0037256E 442 0001:00372587 + 444 0001:00372599 446 0001:003725A3 447 0001:003725B9 448 0001:003725CB + 449 0001:003725DB 451 0001:003725E5 453 0001:003725ED 454 0001:003725F3 + 456 0001:003725FC 459 0001:00372603 460 0001:00372617 462 0001:00372621 + 467 0001:0037262F 468 0001:00372634 472 0001:00372671 473 0001:0037267D + 477 0001:003726B3 480 0001:003726B8 481 0001:003726D0 482 0001:003726DC + 483 0001:003726FE 486 0001:00372704 487 0001:0037270B 488 0001:00372714 + 489 0001:0037271C 492 0001:00372720 493 0001:00372727 494 0001:0037272F + 495 0001:00372738 496 0001:00372740 499 0001:00372744 502 0001:0037274D + 503 0001:00372756 504 0001:0037275F 505 0001:00372768 500 0001:00372770 + 507 0001:00372779 508 0001:00372780 511 0001:00372784 512 0001:00372788 + 513 0001:0037278C 514 0001:00372799 515 0001:003727AA 516 0001:003727B7 + 518 0001:003727C6 519 0001:003727DE 520 0001:003727F6 521 0001:00372808 + 522 0001:00372811 523 0001:00372822 524 0001:0037282B 525 0001:0037283C + 526 0001:00372845 527 0001:00372856 528 0001:0037285D 534 0001:00372898 + 535 0001:0037289C 536 0001:003728A3 538 0001:003728B0 539 0001:003728BA + 540 0001:003728C1 542 0001:003728CC 543 0001:003728E2 547 0001:003728FA + 548 0001:0037290A 550 0001:00372914 551 0001:00372920 555 0001:00372929 + 557 0001:00372933 561 0001:00372947 560 0001:0037294E 563 0001:00372957 + 564 0001:00372961 565 0001:0037296B 572 0001:00372970 573 0001:00372992 + 576 0001:0037299F 578 0001:003729DC 579 0001:00372A11 580 0001:00372A1B + 581 0001:00372A29 582 0001:00372A36 584 0001:00372A50 586 0001:00372A62 + 588 0001:00372A8E 591 0001:00372AC0 592 0001:00372AC3 594 0001:00372ACC + 595 0001:00372AD6 596 0001:00372AE4 598 0001:00372AFB 601 0001:00372B0D + 605 0001:00372B10 606 0001:00372B15 614 0001:00372B18 615 0001:00372B51 + 616 0001:00372B59 617 0001:00372B68 618 0001:00372B76 619 0001:00372B7F + 620 0001:00372B88 621 0001:00372B91 622 0001:00372B9A 623 0001:00372BA3 + 624 0001:00372BAC 625 0001:00372BB5 626 0001:00372BBE 627 0001:00372BC7 + 628 0001:00372BD5 629 0001:00372BDE 630 0001:00372BE7 631 0001:00372BF0 + 632 0001:00372BF9 633 0001:00372C02 634 0001:00372C0B 636 0001:00372C14 + 637 0001:00372C1D 638 0001:00372C26 639 0001:00372C34 640 0001:00372C42 + 641 0001:00372C4B 642 0001:00372C54 643 0001:00372C5D 644 0001:00372C66 + 645 0001:00372C87 646 0001:00372C90 647 0001:00372C9E 648 0001:00372CED + 652 0001:00372CF4 653 0001:00372D00 654 0001:00372D0E 660 0001:00372D14 + 661 0001:00372D1B 662 0001:00372D26 663 0001:00372D31 664 0001:00372D3C + 665 0001:00372D47 666 0001:00372D4F 667 0001:00372D56 668 0001:00372D61 + 669 0001:00372D68 670 0001:00372D6F 671 0001:00372D77 672 0001:00372D82 + 673 0001:00372D8A 674 0001:00372D95 675 0001:00372D9C 676 0001:00372DA4 + 677 0001:00372DAF 678 0001:00372DBA 680 0001:00372DC5 681 0001:00372DD0 + 683 0001:00372DDB 686 0001:00372DE0 687 0001:00372DE9 689 0001:00372DF2 + 690 0001:00372E04 692 0001:00372E0B 693 0001:00372E1D 699 0001:00372E24 + 700 0001:00372E4C 701 0001:00372E6A 702 0001:00372E72 703 0001:00372E7D + 704 0001:00372E8B 705 0001:00372E99 706 0001:00372EA7 707 0001:00372EB5 + 708 0001:00372EC4 709 0001:00372ECD 710 0001:00372ED6 711 0001:00372EE4 + 712 0001:00372EED 713 0001:00372F00 714 0001:00372F0E 715 0001:00372F17 + 716 0001:00372F20 717 0001:00372F2F 718 0001:00372F38 719 0001:00372F41 + 720 0001:00372F4F 721 0001:00372F5D 723 0001:00372F6B 724 0001:00372F79 + 726 0001:00372FAA 731 0001:00372FB0 732 0001:00372FC8 733 0001:00372FD2 + 734 0001:00373012 737 0001:00373018 738 0001:00373029 739 0001:00373034 + 740 0001:00373050 744 0001:00373054 745 0001:0037305B 746 0001:00373062 + 747 0001:0037306D 748 0001:00373074 749 0001:0037307F 750 0001:0037308A + 751 0001:0037309B 752 0001:003730A6 753 0001:003730AD 754 0001:003730B4 + 755 0001:003730BE 759 0001:003730C4 760 0001:003730D0 761 0001:003730E1 + 762 0001:003730EF 766 0001:003730F4 767 0001:00373100 768 0001:00373111 + 769 0001:0037311F 773 0001:00373124 774 0001:00373130 775 0001:00373141 + 776 0001:0037314F 779 0001:00373154 780 0001:0037315D 781 0001:00373166 + 782 0001:00373173 785 0001:00373178 786 0001:00373196 788 0001:0037320D + 792 0001:00373220 794 0001:00373229 795 0001:00373250 799 0001:00373258 + 800 0001:0037325F 802 0001:0037326D 803 0001:0037327C 805 0001:00373283 + 809 0001:00373288 810 0001:00373294 812 0001:0037329F 813 0001:003732A8 + 815 0001:003732AF 819 0001:003732B4 820 0001:003732C0 822 0001:003732CB + 823 0001:003732D4 824 0001:003732DB 826 0001:003732E9 830 0001:003732F0 + 831 0001:003732F7 833 0001:0037330A 834 0001:00373319 836 0001:00373320 + 840 0001:00373328 841 0001:00373334 843 0001:0037333F 844 0001:00373348 + 846 0001:0037334F 850 0001:00373354 851 0001:00373360 853 0001:0037336B + 854 0001:00373374 856 0001:0037337B 862 0001:00373380 864 0001:003733AA + 867 0001:003733C9 868 0001:003733D7 869 0001:003733E3 870 0001:003733F3 + 871 0001:00373401 873 0001:0037340D 874 0001:00373416 875 0001:00373436 + 878 0001:0037346C 879 0001:00373477 880 0001:00373483 881 0001:00373493 + 883 0001:0037349E 884 0001:003734D0 890 0001:003734F8 891 0001:00373529 + 892 0001:00373532 893 0001:00373540 894 0001:0037354E 895 0001:0037355C + 896 0001:00373565 897 0001:003735AB 902 0001:003735B4 903 0001:003735CC + 904 0001:003735DE 905 0001:003735F0 906 0001:00373602 907 0001:00373614 + 908 0001:00373626 909 0001:00373649 912 0001:00373650 913 0001:00373661 + 914 0001:00373669 915 0001:00373674 916 0001:0037367F 917 0001:0037368A + 918 0001:00373695 919 0001:003736A0 920 0001:003736BC 929 0001:003736C0 + 930 0001:003736E5 931 0001:003736EA 932 0001:00373733 933 0001:0037373E + 934 0001:00373749 935 0001:00373754 936 0001:0037375F 937 0001:0037376A + 939 0001:00373773 940 0001:00373777 941 0001:00373793 943 0001:003737B1 + 945 0001:003737B5 946 0001:003737C3 947 0001:003737CF 940 0001:003737D2 + 948 0001:003737D7 950 0001:003737E1 951 0001:00373807 953 0001:00373854 + 956 0001:00373867 959 0001:0037387A 962 0001:0037388A 965 0001:0037389A + 966 0001:003738A8 969 0001:003738CD 970 0001:003738DB 973 0001:003738FE + 975 0001:00373921 981 0001:00373928 982 0001:00373931 983 0001:00373935 + 984 0001:00373954 986 0001:0037396B 987 0001:0037396F 988 0001:00373971 + 983 0001:00373974 989 0001:00373979 990 0001:00373998 992 0001:003739AF + 993 0001:003739B3 994 0001:003739B5 989 0001:003739B8 996 0001:003739C0 + 1003 0001:003739C4 1004 0001:003739E0 1006 0001:003739FF 1007 0001:00373A1C + 1008 0001:00373A27 1009 0001:00373A32 1011 0001:00373A38 1012 0001:00373A43 + 1014 0001:00373A4B 1015 0001:00373A5B 1004 0001:00373A5E 1016 0001:00373A63 + 1017 0001:00373A9A 1018 0001:00373AD1 1019 0001:00373ADC 1020 0001:00373AE7 + 1021 0001:00373AF2 1022 0001:00373AFD 1023 0001:00373B08 1024 0001:00373B2D + 1030 0001:00373B34 1031 0001:00373B43 1032 0001:00373B47 1033 0001:00373B4C + 1034 0001:00373B95 1035 0001:00373BA0 1036 0001:00373BAB 1037 0001:00373BB6 + 1038 0001:00373BC1 1039 0001:00373BCC 1041 0001:00373BD5 1042 0001:00373BDB + 1044 0001:00373C09 1045 0001:00373C0D 1046 0001:00373C0F 1041 0001:00373C12 + 1047 0001:00373C1A 1053 0001:00373C20 1054 0001:00373C42 1055 0001:00373C46 + 1056 0001:00373C58 1057 0001:00373C6E 1059 0001:00373CAE 1060 0001:00373CB2 + 1061 0001:00373CB4 1056 0001:00373CB7 1062 0001:00373CE1 1068 0001:00373CE8 + 1069 0001:00373CF7 1070 0001:00373CFC 1071 0001:00373D01 1072 0001:00373D4A + 1073 0001:00373D55 1074 0001:00373D60 1075 0001:00373D6B 1076 0001:00373D76 + 1077 0001:00373D81 1079 0001:00373D8A 1080 0001:00373D90 1082 0001:00373DBE + 1083 0001:00373DCC 1084 0001:00373DCE 1079 0001:00373DD1 1085 0001:00373DD9 + 1094 0001:00373DE0 1095 0001:00373E03 1096 0001:00373E08 1097 0001:00373E51 + 1098 0001:00373E5C 1099 0001:00373E67 1100 0001:00373E72 1101 0001:00373E7D + 1102 0001:00373E88 1104 0001:00373E91 1105 0001:00373E97 1107 0001:00373EBE + 1108 0001:00373EE3 1111 0001:00373EF3 1112 0001:00373EFE 1113 0001:00373F04 + 1104 0001:00373F07 1114 0001:00373F0D 1116 0001:00373F17 1118 0001:00373F2B + 1119 0001:00373F2F 1120 0001:00373F48 1121 0001:00373F78 1119 0001:00373F7F + 1122 0001:00373F84 1123 0001:00373F8A 1124 0001:00373F98 1116 0001:00373F9B + 1126 0001:00373FA1 1127 0001:00373FAF 1128 0001:00373FC7 1129 0001:00373FDF + 1130 0001:00373FF7 1131 0001:0037402C 1158 0001:00374034 1159 0001:00374043 + 1160 0001:00374048 1161 0001:00374091 1162 0001:0037409C 1163 0001:003740A7 + 1164 0001:003740B2 1165 0001:003740BD 1166 0001:003740C8 1168 0001:003740D1 + 1169 0001:003740D7 1171 0001:00374105 1172 0001:00374116 1168 0001:00374119 + 1173 0001:0037411E 1179 0001:00374124 1180 0001:00374133 1181 0001:00374138 + 1182 0001:00374181 1183 0001:0037418C 1184 0001:00374197 1185 0001:003741A2 + 1186 0001:003741AD 1187 0001:003741B8 1189 0001:003741C1 1190 0001:003741C7 + 1192 0001:003741F5 1193 0001:0037420B 1189 0001:0037420E 1194 0001:00374213 + 1200 0001:0037421C 1201 0001:00374225 1202 0001:00374229 1203 0001:00374231 + 1204 0001:00374241 1205 0001:00374266 1207 0001:0037427D 1208 0001:00374281 + 1209 0001:00374283 1204 0001:00374286 1210 0001:0037428E 1219 0001:00374294 + 1220 0001:003742B4 1222 0001:003742C3 1223 0001:003742D2 1224 0001:003742E1 + 1225 0001:003742EF 1226 0001:003742F9 1228 0001:00374312 1229 0001:00374323 + 1230 0001:00374331 1226 0001:00374334 1231 0001:00374339 1232 0001:00374344 + 1233 0001:0037436A 1234 0001:00374373 1235 0001:00374378 1237 0001:00374390 + 1238 0001:0037439E 1239 0001:003743C8 1235 0001:003743CB 1241 0001:003743DD + 1242 0001:003743E4 1243 0001:003743EC 1245 0001:00374421 1250 0001:00374468 + 1251 0001:00374480 1252 0001:00374492 1253 0001:0037449C 1254 0001:003744BE + 1257 0001:003744C4 1258 0001:003744D5 1259 0001:003744DD 1260 0001:003744E8 + 1261 0001:00374504 1266 0001:00374508 1267 0001:00374517 1268 0001:00374526 + 1269 0001:00374534 1270 0001:0037453D 1271 0001:0037454B 1272 0001:00374559 + 1273 0001:00374560 1278 0001:00374568 1279 0001:00374571 1280 0001:003745AE + 1281 0001:003745B9 1282 0001:003745C0 1283 0001:003745CA 1284 0001:003745D2 + 1287 0001:003745D8 1288 0001:003745E4 1289 0001:00374608 1292 0001:0037460C + 1293 0001:00374615 1294 0001:00374634 1297 0001:00374638 1298 0001:00374657 + 1299 0001:00374660 1300 0001:00374686 1301 0001:003746AB 1304 0001:003746B0 + 1305 0001:003746BC 1306 0001:003746E0 1309 0001:003746E4 1310 0001:00374703 + 1311 0001:0037470C 1312 0001:0037473A 1313 0001:0037475F 1316 0001:00374764 + 1317 0001:0037476B 1318 0001:00374771 1320 0001:0037479C 1321 0001:003747A3 + 1323 0001:003747AB 1326 0001:003747B0 1327 0001:003747B7 1328 0001:003747BD + 1329 0001:003747C6 1330 0001:003747D0 1331 0001:003747E7 1332 0001:003747FA + 1335 0001:00374800 1336 0001:0037481C 1337 0001:00374863 1340 0001:00374868 + 1341 0001:00374884 1342 0001:003748CB 1347 0001:003748D0 1348 0001:0037490D + 1349 0001:0037492E 1350 0001:0037495A 1351 0001:0037497C 1352 0001:00374983 + 1353 0001:0037498E 1354 0001:003749A0 1355 0001:003749AB 1356 0001:003749BD + 1357 0001:003749C8 1358 0001:00374A10 1361 0001:00374A18 1362 0001:00374A29 + 1363 0001:00374A31 1364 0001:00374A39 1365 0001:00374A44 1366 0001:00374A4F + 1367 0001:00374A6B 1370 0001:00374A70 1371 0001:00374A77 1372 0001:00374A82 + 1373 0001:00374A8D 1376 0001:00374A90 1377 0001:00374A97 1378 0001:00374AA2 + 1379 0001:00374AAD 1382 0001:00374AB0 1383 0001:00374ABC 1384 0001:00374AC5 + 1387 0001:00374ACC 1388 0001:00374AFD 1389 0001:00374B0B 1390 0001:00374B4E + 1393 0001:00374B54 1394 0001:00374B65 1395 0001:00374B81 1398 0001:00374B88 + 1399 0001:00374BA0 1400 0001:00374BB2 1401 0001:00374BD5 1404 0001:00374BDC + 1406 0001:00374BED 1407 0001:00374BF8 1408 0001:00374C14 1413 0001:00374C18 + 1414 0001:00374C45 1415 0001:00374C57 1416 0001:00374C65 1417 0001:00374C73 + 1418 0001:00374C81 1419 0001:00374CB2 1433 0001:00374CB8 1434 0001:00374CD0 + 1435 0001:00374CE2 1436 0001:00374D05 1439 0001:00374D0C 1440 0001:00374D1D + 1441 0001:00374D25 1442 0001:00374D30 1443 0001:00374D4C 1448 0001:00374D50 + 1449 0001:00374D72 1450 0001:00374D84 1451 0001:00374D92 1452 0001:00374DBE + 1457 0001:00374DC4 1458 0001:00374DCD 1459 0001:00374E0A 1460 0001:00374E15 + 1461 0001:00374E1D 1467 0001:00374E24 1468 0001:00374E50 1469 0001:00374E58 + 1470 0001:00374E67 1471 0001:00374E75 1472 0001:00374E86 1474 0001:00374E93 + 1475 0001:00374EA2 1476 0001:00374EBA 1477 0001:00374EEA 1475 0001:00374F06 + 1478 0001:00374F0B 1481 0001:00374F18 1482 0001:00374F46 1484 0001:00374F62 + 1486 0001:00374F94 1489 0001:00374FA8 1490 0001:00374FCA 1491 0001:00374FF5 + 1494 0001:00374FFC 1495 0001:00375003 1496 0001:0037500C 1497 0001:0037501D + 1505 0001:00375020 1506 0001:0037502F 1507 0001:00375038 1510 0001:00375040 + 1511 0001:00375055 1513 0001:0037505E 1514 0001:00375069 1517 0001:00375070 + 1521 0001:00375094 1523 0001:0037509D 1524 0001:003750A8 1526 0001:003750AF + 1532 0001:003750B0 1533 0001:003750BF 1534 0001:003750C8 1535 0001:003750CE + 1536 0001:003750FC 1534 0001:00375115 1537 0001:0037511A 1542 0001:00375120 + 1543 0001:00375143 1545 0001:0037515E 1546 0001:0037517E 1547 0001:0037518F + 1543 0001:00375192 1548 0001:003751B4 1555 0001:003751BC 1556 0001:003751DA + 1558 0001:00375213 1550 0001:00375218 1551 0001:00375232 1552 0001:00375239 + 1554 0001:00375253 + +Line numbers for rOrders(Orders\rOrders.pas) segment .text + + 373 0001:0037566C 374 0001:00375678 375 0001:00375689 376 0001:00375695 + 377 0001:003756A7 378 0001:003756B8 379 0001:003756C9 380 0001:003756D5 + 381 0001:003756E1 382 0001:003756F2 383 0001:00375703 384 0001:00375714 + 385 0001:00375726 386 0001:00375737 387 0001:00375748 388 0001:00375759 + 389 0001:0037576A 390 0001:0037577B 391 0001:0037578C 392 0001:00375798 + 393 0001:003757A9 394 0001:003757B5 395 0001:003757C1 396 0001:003757D2 + 397 0001:003757E3 398 0001:003757F4 399 0001:00375805 400 0001:00375816 + 401 0001:00375827 402 0001:00375838 403 0001:0037584A 406 0001:00375850 + 407 0001:00375857 408 0001:00375862 409 0001:0037586A 410 0001:00375875 + 411 0001:00375880 412 0001:0037588B 413 0001:00375893 414 0001:0037589B + 415 0001:003758A6 416 0001:003758B1 417 0001:003758BC 418 0001:003758CD + 419 0001:003758D8 420 0001:003758E3 421 0001:003758EE 422 0001:003758F9 + 423 0001:00375904 424 0001:0037590F 425 0001:00375917 426 0001:00375922 + 427 0001:00375929 428 0001:00375930 429 0001:0037593B 430 0001:00375946 + 431 0001:00375951 432 0001:0037595C 433 0001:00375967 434 0001:00375972 + 439 0001:00375978 440 0001:00375981 441 0001:003759AE 442 0001:003759C1 + 445 0001:003759E0 446 0001:003759E9 447 0001:00375A20 448 0001:00375A33 + 451 0001:00375A50 452 0001:00375A59 453 0001:00375A90 454 0001:00375AA3 + 457 0001:00375AC8 458 0001:00375ACE 460 0001:00375AD7 461 0001:00375AE8 + 463 0001:00375B05 466 0001:00375B24 467 0001:00375B30 468 0001:00375BC5 + 469 0001:00375BD7 470 0001:00375BE9 471 0001:00375BFB 472 0001:00375C0D + 473 0001:00375C1F 474 0001:00375C31 475 0001:00375C43 476 0001:00375C55 + 477 0001:00375C67 478 0001:00375C79 479 0001:00375C88 480 0001:00375C97 + 481 0001:00375CA6 482 0001:00375CB5 483 0001:00375CC4 484 0001:00375CD3 + 485 0001:00375CDD 486 0001:00375CEC 488 0001:00375CF9 491 0001:00375E40 + 492 0001:00375E64 493 0001:00375EB6 497 0001:00375ED4 498 0001:00375EED + 499 0001:00375F35 504 0001:00375F54 505 0001:00375F78 506 0001:00375F7C + 507 0001:00375FA6 508 0001:00375FAC 509 0001:00375FD8 512 0001:00375FF4 + 513 0001:00376016 514 0001:00376050 517 0001:0037606C 518 0001:0037608E + 519 0001:003760C8 522 0001:003760E4 523 0001:00376106 524 0001:00376114 + 525 0001:0037612F 526 0001:00376171 538 0001:00376178 539 0001:00376193 + 540 0001:003761A1 541 0001:003761BC 542 0001:00376201 545 0001:00376208 + 549 0001:0037622C 550 0001:0037627C 555 0001:00376298 556 0001:003762BC + 557 0001:003762E4 558 0001:003762E8 559 0001:003762EE 560 0001:0037631A + 563 0001:00376338 564 0001:0037635A 565 0001:00376368 566 0001:00376383 + 567 0001:003763C5 572 0001:003763CC 573 0001:003763D5 574 0001:00376409 + 575 0001:00376411 580 0001:00376418 583 0001:00376443 584 0001:0037644B + 585 0001:0037648F 586 0001:003764B2 587 0001:003764D4 588 0001:003764F5 + 589 0001:00376516 590 0001:00376539 591 0001:0037655C 592 0001:0037657D + 593 0001:0037659E 594 0001:003765BF 595 0001:003765E7 596 0001:00376608 + 597 0001:00376629 598 0001:0037664A 599 0001:0037666B 600 0001:00376694 + 601 0001:0037669B 602 0001:003766CF 603 0001:00376703 604 0001:00376711 + 605 0001:0037671F 606 0001:00376730 608 0001:0037674C 609 0001:0037676F + 612 0001:0037679C 657 0001:003767CC 658 0001:003767FF 659 0001:00376807 + 660 0001:00376815 661 0001:00376849 662 0001:003768B5 664 0001:0037692F + 665 0001:0037699B 682 0001:003769C4 683 0001:00376A0A 684 0001:00376A4F + 686 0001:00376A74 687 0001:00376AFF 688 0001:00376B33 691 0001:00376B42 + 692 0001:00376B87 693 0001:00376BCE 694 0001:00376C14 695 0001:00376C59 + 696 0001:00376C9E 698 0001:00376CAF 699 0001:00376CBA 684 0001:00376CBD + 700 0001:00376D08 708 0001:00376D8C 709 0001:00376DC0 710 0001:00376DC4 + 711 0001:00376DD2 712 0001:00376E06 713 0001:00376E72 715 0001:00376E98 + 718 0001:00376EA7 719 0001:00376EB7 720 0001:00376EBF 721 0001:00376ECB + 722 0001:00376ED5 723 0001:00376EE5 725 0001:00376EEC 726 0001:00376EF7 + 728 0001:00376EFC 729 0001:00376F36 730 0001:00376F75 732 0001:00376F9A + 734 0001:00376FC9 735 0001:00376FCD 737 0001:00376FD2 740 0001:00376FE1 + 741 0001:00377026 742 0001:0037706D 743 0001:003770B3 744 0001:003770F8 + 745 0001:0037713D 747 0001:0037714E 748 0001:00377154 750 0001:00377161 + 751 0001:0037716C 730 0001:0037716F 752 0001:003771BA 764 0001:00377220 + 765 0001:0037723D 766 0001:0037725D 767 0001:00377276 768 0001:00377283 + 770 0001:0037729C 771 0001:003772B0 772 0001:003772D2 771 0001:00377312 + 773 0001:00377317 775 0001:00377349 780 0001:00377390 781 0001:003773B1 + 784 0001:003773CD 785 0001:003773D4 786 0001:003773F7 787 0001:0037741A + 788 0001:00377443 789 0001:0037746C 790 0001:0037748E 791 0001:003774B0 + 792 0001:003774BB 793 0001:003774C3 794 0001:003774E4 795 0001:003774EB + 796 0001:003774F3 798 0001:00377528 803 0001:00377558 806 0001:0037757D + 807 0001:0037758B 808 0001:003775A1 809 0001:003775B9 810 0001:003775E0 + 811 0001:003775FB 812 0001:00377621 813 0001:0037768F 814 0001:00377694 + 816 0001:003776CB 824 0001:003776FC 825 0001:00377720 826 0001:0037772F + 827 0001:0037773D 828 0001:00377771 830 0001:003777B5 832 0001:003777C5 + 835 0001:003777D1 836 0001:003777D4 838 0001:003777DF 839 0001:003777F3 + 841 0001:003777F8 842 0001:00377806 843 0001:0037781D 844 0001:00377831 + 845 0001:00377846 846 0001:0037787F 849 0001:00377889 850 0001:003778EA + 847 0001:003778FE 852 0001:00377968 853 0001:00377992 854 0001:0037799A + 856 0001:003779DE 859 0001:003779F4 860 0001:00377A48 857 0001:00377A5C + 863 0001:00377AC6 833 0001:00377AD8 865 0001:00377B21 870 0001:00377B64 + 873 0001:00377B82 877 0001:00377BED 878 0001:00377C12 879 0001:00377C37 + 881 0001:00377C72 890 0001:00377CD4 891 0001:00377CFC 892 0001:00377D02 + 893 0001:00377D08 895 0001:00377D59 896 0001:00377D60 897 0001:00377D69 + 899 0001:00377DBA 900 0001:00377DC1 901 0001:00377DCA 903 0001:00377DD6 + 904 0001:00377DF0 905 0001:00377E0A 906 0001:00377E0F 908 0001:00377E15 + 909 0001:00377E38 910 0001:00377E5B 911 0001:00377E6A 914 0001:00377E7B + 915 0001:00377E8C 916 0001:00377EB8 922 0001:00377EC8 923 0001:00377EF0 + 924 0001:00377EF6 925 0001:00377EFC 926 0001:00377F3C 927 0001:00377F43 + 928 0001:00377F4C 929 0001:00377F8C 930 0001:00377F93 931 0001:00377F9C + 933 0001:00377FA8 934 0001:00377FC2 935 0001:00377FDC 936 0001:00377FE1 + 938 0001:00377FE7 939 0001:0037800A 940 0001:0037802D 941 0001:0037803C + 944 0001:0037804D 945 0001:0037805E 946 0001:0037808A 952 0001:0037809C + 953 0001:003780BE 954 0001:003780C4 955 0001:003780CA 956 0001:003780E4 + 957 0001:003780FE 958 0001:00378103 960 0001:00378109 961 0001:0037812C + 962 0001:0037814F 963 0001:0037815E 965 0001:00378192 971 0001:00378198 + 972 0001:003781BA 973 0001:003781C0 974 0001:003781C6 975 0001:003781E0 + 976 0001:003781FA 977 0001:003781FF 979 0001:00378205 980 0001:00378228 + 981 0001:0037824B 982 0001:0037825A 984 0001:0037828E 987 0001:00378294 + 988 0001:003782A3 990 0001:003782A9 993 0001:003782CD 995 0001:003782EF + 1000 0001:003782F4 1001 0001:0037830D 1003 0001:00378316 1004 0001:00378335 + 1006 0001:00378347 1007 0001:0037836F 1010 0001:00378394 1011 0001:003783B8 + 1012 0001:0037840A 1015 0001:00378424 1016 0001:0037842D 1017 0001:00378445 + 1018 0001:0037845A 1034 0001:00378478 1035 0001:0037849D 1036 0001:003784A7 + 1038 0001:003784B6 1039 0001:003784BB 1040 0001:003784CA 1042 0001:003784E3 + 1044 0001:00378523 1046 0001:00378529 1047 0001:00378572 1049 0001:0037859A + 1051 0001:003785A4 1053 0001:0037861C 1057 0001:00378641 1058 0001:00378665 + 1060 0001:00378688 1042 0001:0037868B 1061 0001:00378694 1063 0001:003786A0 + 1064 0001:003786AB 1065 0001:003786B8 1067 0001:003786C5 1069 0001:003786CF + 1070 0001:003786DE 1071 0001:003786ED 1073 0001:00378704 1075 0001:0037871A + 1076 0001:0037872E 1078 0001:00378743 1080 0001:0037875E 1082 0001:00378774 + 1083 0001:00378788 1085 0001:0037879D 1086 0001:003787A8 1087 0001:003787B5 + 1088 0001:003787C2 1089 0001:003787CD 1090 0001:003787D5 1092 0001:003787E2 + 1094 0001:003787E8 1096 0001:00378803 1097 0001:00378819 1098 0001:0037882D + 1102 0001:00378844 1104 0001:0037885D 1105 0001:00378873 1106 0001:00378887 + 1108 0001:003788BE 1118 0001:00378A14 1119 0001:00378A1D 1120 0001:00378A35 + 1121 0001:00378A4A 1136 0001:00378A68 1137 0001:00378AAD 1138 0001:00378AB2 + 1139 0001:00378AB7 1140 0001:00378ABF 1141 0001:00378ACC 1142 0001:00378AD1 + 1143 0001:00378AD5 1144 0001:00378AE2 1145 0001:00378AED 1147 0001:00378B02 + 1148 0001:00378B14 1149 0001:00378B1F 1151 0001:00378B2F 1152 0001:00378B40 + 1154 0001:00378B44 1155 0001:00378B64 1158 0001:00378B8D 1159 0001:00378B93 + 1161 0001:00378BE2 1163 0001:00378C3D 1174 0001:00378D2C 1178 0001:00378D73 + 1181 0001:00378D8A 1182 0001:00378DB3 1183 0001:00378DDA 1184 0001:00378E03 + 1185 0001:00378E2F 1186 0001:00378E58 1187 0001:00378E81 1188 0001:00378EAA + 1189 0001:00378EBE 1191 0001:00378ED8 1193 0001:00378EE8 1195 0001:00378F0E + 1197 0001:00378F8E 1198 0001:00378F94 1200 0001:00378F96 1193 0001:00378F99 + 1202 0001:00378FA2 1203 0001:00378FA8 1204 0001:00378FBD 1208 0001:0037904D + 1211 0001:003790C0 1212 0001:003790C6 1213 0001:003790DE 1216 0001:003790FC + 1217 0001:00379118 1218 0001:00379162 1221 0001:00379180 1222 0001:0037919C + 1223 0001:003791E6 1226 0001:00379204 1227 0001:00379228 1228 0001:0037927A + 1234 0001:00379298 1235 0001:003792BD 1236 0001:003792D6 1240 0001:003792F0 + 1241 0001:00379328 1242 0001:00379365 1243 0001:0037939F 1245 0001:003793C4 + 1248 0001:003793D3 1249 0001:0037940F 1250 0001:0037944B 1251 0001:00379489 + 1252 0001:003794C4 1253 0001:003794FF 1254 0001:00379540 1255 0001:00379579 + 1256 0001:003795B2 1258 0001:003795ED 1259 0001:003795FB 1243 0001:003795FE + 1261 0001:00379629 1266 0001:00379650 1267 0001:00379676 1268 0001:0037968F + 1269 0001:00379697 1270 0001:0037969F 1272 0001:003796B5 1273 0001:003796CC + 1274 0001:003796EA 1275 0001:00379710 1277 0001:00379724 1278 0001:0037975E + 1281 0001:0037978C 1282 0001:00379795 1283 0001:003797B5 1284 0001:003797CA + 1287 0001:003797E4 1288 0001:00379806 1289 0001:00379833 1291 0001:00379849 + 1292 0001:00379851 1294 0001:00379883 1297 0001:003798A4 1298 0001:003798B0 + 1299 0001:003798CD 1304 0001:003798EC 1306 0001:00379918 1308 0001:00379981 + 1309 0001:003799A7 1310 0001:003799E1 1308 0001:00379A27 1311 0001:00379A30 + 1312 0001:00379A38 1313 0001:00379A6F 1320 0001:00379AC0 1321 0001:00379AE2 + 1322 0001:00379B07 1323 0001:00379B14 1324 0001:00379B26 1325 0001:00379B56 + 1326 0001:00379B5E 1327 0001:00379B9D 1342 0001:00379BBC 1343 0001:00379BC8 + 1344 0001:00379BFF 1347 0001:00379C1C 1348 0001:00379C25 1349 0001:00379C52 + 1352 0001:00379C70 1353 0001:00379C7C 1354 0001:00379CB3 1359 0001:00379CD0 + 1360 0001:00379CEC 1361 0001:00379D36 1371 0001:00379D50 1374 0001:00379D77 + 1375 0001:00379D8E 1376 0001:00379DA2 1377 0001:00379DB7 1380 0001:00379DC1 + 1381 0001:00379E22 1378 0001:00379E36 1383 0001:00379EA0 1384 0001:00379ECA + 1385 0001:00379ED2 1387 0001:00379F16 1390 0001:00379F2C 1391 0001:00379F80 + 1388 0001:00379F94 1394 0001:00379FFE 1372 0001:0037A010 1396 0001:0037A04C + 1399 0001:0037A06C 1400 0001:0037A08E 1401 0001:0037A0BD 1402 0001:0037A135 + 1405 0001:0037A15C 1406 0001:0037A175 1407 0001:0037A1B6 1410 0001:0037A1D4 + 1411 0001:0037A201 1412 0001:0037A229 1413 0001:0037A2A9 1416 0001:0037A2D8 + 1417 0001:0037A2FC 1418 0001:0037A33B 1421 0001:0037A35C 1422 0001:0037A37F + 1423 0001:0037A3E2 1426 0001:0037A400 1427 0001:0037A423 1428 0001:0037A490 + 1431 0001:0037A4B0 1432 0001:0037A4BC 1433 0001:0037A4D5 1434 0001:0037A4EB + 1435 0001:0037A502 1447 0001:0037A524 1449 0001:0037A552 1452 0001:0037A561 + 1455 0001:0037A571 1458 0001:0037A57F 1459 0001:0037A594 1464 0001:0037A5F6 + 1465 0001:0037A604 1466 0001:0037A61A 1467 0001:0037A632 1468 0001:0037A654 + 1469 0001:0037A66F 1470 0001:0037A699 1471 0001:0037A6B4 1472 0001:0037A6ED + 1473 0001:0037A708 1474 0001:0037A73E 1475 0001:0037A759 1476 0001:0037A771 + 1475 0001:0037A7B7 1477 0001:0037A7BC 1478 0001:0037A7F5 1481 0001:0037A811 + 1483 0001:0037A889 1484 0001:0037A8D3 1478 0001:0037A8D6 1485 0001:0037A8DF + 1486 0001:0037A8FA 1487 0001:0037A929 1488 0001:0037A944 1489 0001:0037A97A + 1490 0001:0037A97F 1493 0001:0037A987 1494 0001:0037A997 1499 0001:0037A9A9 + 1501 0001:0037A9E3 1504 0001:0037AA48 1505 0001:0037AA51 1506 0001:0037AA81 + 1507 0001:0037AA89 1510 0001:0037AAA4 1511 0001:0037AAAD 1512 0001:0037AADD + 1513 0001:0037AAE5 1516 0001:0037AB04 1517 0001:0037AB10 1518 0001:0037AB28 + 1521 0001:0037AB42 1524 0001:0037AB74 1525 0001:0037AB8D 1526 0001:0037ABD6 + 1531 0001:0037ABF4 1532 0001:0037AC1D 1533 0001:0037AC2B 1534 0001:0037AC76 + 1535 0001:0037AC81 1536 0001:0037ACBA 1537 0001:0037ACC2 1538 0001:0037ACFA + 1541 0001:0037AD14 1542 0001:0037AD1D 1544 0001:0037AD46 1547 0001:0037AD64 + 1548 0001:0037AD70 1549 0001:0037ADA3 1550 0001:0037ADAB 1553 0001:0037ADC8 + 1554 0001:0037ADD4 1555 0001:0037ADED 1556 0001:0037AE02 1559 0001:0037AE20 + 1560 0001:0037AE2C 1561 0001:0037AE55 1562 0001:0037AE5D 1565 0001:0037AE7C + 1566 0001:0037AE88 1567 0001:0037AEA1 1568 0001:0037AEB6 1571 0001:0037AED4 + 1572 0001:0037AEF7 1573 0001:0037AF49 1576 0001:0037AF68 1577 0001:0037AF74 + 1578 0001:0037AF9D 1579 0001:0037AFA5 1582 0001:0037AFC4 1583 0001:0037AFD0 + 1584 0001:0037AFF9 1585 0001:0037B001 1588 0001:0037B020 1589 0001:0037B02C + 1590 0001:0037B05D 1591 0001:0037B065 1594 0001:0037B084 1595 0001:0037B0A8 + 1596 0001:0037B0FA 1602 0001:0037B118 1603 0001:0037B16A 1604 0001:0037B179 + 1605 0001:0037B180 1606 0001:0037B18B 1608 0001:0037B193 1609 0001:0037B1B2 + 1606 0001:0037B1B9 1611 0001:0037B1C1 1612 0001:0037B1CF 1614 0001:0037B229 + 1616 0001:0037B262 1619 0001:0037B2C7 1622 0001:0037B2E1 1624 0001:0037B330 + 1630 0001:0037B4E0 1631 0001:0037B50A 1632 0001:0037B51D 1633 0001:0037B529 + 1634 0001:0037B538 1635 0001:0037B566 1636 0001:0037B575 1637 0001:0037B5C4 + 1640 0001:0037B604 1641 0001:0037B62B 1642 0001:0037B68E 1645 0001:0037B6B8 + 1646 0001:0037B6D7 1647 0001:0037B732 1650 0001:0037B75C 1651 0001:0037B797 + 1652 0001:0037B7D5 1653 0001:0037B809 1658 0001:0037B828 1659 0001:0037B844 + 1660 0001:0037B892 1665 0001:0037B8BC 1666 0001:0037B8E0 1669 0001:0037B8F9 + 1670 0001:0037B933 1671 0001:0037B96B 1672 0001:0037B9A3 1673 0001:0037B9DD + 1674 0001:0037BA15 1675 0001:0037BA20 1676 0001:0037BA7F 1678 0001:0037BADE + 1683 0001:0037BB08 1684 0001:0037BB44 1685 0001:0037BB6A 1688 0001:0037BB84 + 1690 0001:0037BBAA 1691 0001:0037BC08 1692 0001:0037BC2D 1686 0001:0037BC30 + 1694 0001:0037BC68 1697 0001:0037BC94 1698 0001:0037BCB6 1699 0001:0037BCCF + 1700 0001:0037BCE5 1701 0001:0037BD19 1704 0001:0037BD38 1705 0001:0037BD5F + 1706 0001:0037BDAB 1709 0001:0037BDC8 1710 0001:0037BDEC 1711 0001:0037BE2B + 1716 0001:0037BE4C 1717 0001:0037BE70 1718 0001:0037BE74 1719 0001:0037BE9E + 1720 0001:0037BEA4 1721 0001:0037BED0 1726 0001:0037BEEC 1727 0001:0037BF10 + 1728 0001:0037BF14 1729 0001:0037BF3E 1730 0001:0037BF44 1731 0001:0037BF70 + 1734 0001:0037BF8C 1735 0001:0037BFB3 1736 0001:0037C000 1739 0001:0037C01C + 1740 0001:0037C03E 1741 0001:0037C078 1744 0001:0037C094 1745 0001:0037C0B8 + 1746 0001:0037C0BC 1747 0001:0037C0E7 1748 0001:0037C113 1752 0001:0037C130 + 1753 0001:0037C13C 1754 0001:0037C155 1755 0001:0037C16A 1758 0001:0037C188 + 1759 0001:0037C1AA 1760 0001:0037C1E4 1766 0001:0037C208 1767 0001:0037C22A + 1768 0001:0037C239 1771 0001:0037C257 1772 0001:0037C26E 1773 0001:0037C282 + 1774 0001:0037C297 1777 0001:0037C2A1 1778 0001:0037C302 1775 0001:0037C316 + 1780 0001:0037C380 1781 0001:0037C3AA 1782 0001:0037C3B2 1784 0001:0037C3F6 + 1787 0001:0037C40C 1788 0001:0037C460 1785 0001:0037C474 1791 0001:0037C4DE + 1769 0001:0037C4F0 1793 0001:0037C50A 1794 0001:0037C542 1797 0001:0037C578 + 1798 0001:0037C584 1799 0001:0037C5A1 1802 0001:0037C5C0 1803 0001:0037C5DC + 1804 0001:0037C62A 1807 0001:0037C654 1808 0001:0037C670 1809 0001:0037C6BE + 1812 0001:0037C6E8 1813 0001:0037C704 1814 0001:0037C752 1817 0001:0037C77C + 1818 0001:0037C788 1819 0001:0037C7A5 1839 0001:0037C7C4 1840 0001:0037C7F2 + 1841 0001:0037C822 1844 0001:0037C82C 1845 0001:0037C843 1846 0001:0037C857 + 1842 0001:0037C862 1848 0001:0037C878 1849 0001:0037C8AD 1864 0001:0037C8CC + 1865 0001:0037C8E5 1866 0001:0037C932 1869 0001:0037C95C 1870 0001:0037C975 + 1871 0001:0037C9C2 1874 0001:0037C9EC 1875 0001:0037CA08 1876 0001:0037CA52 + 1879 0001:0037CA70 1880 0001:0037CA79 1881 0001:0037CA95 1884 0001:0037CAB4 + 1885 0001:0037CAD6 1886 0001:0037CB10 1889 0001:0037CB30 1890 0001:0037CB54 + 1891 0001:0037CBAA 1894 0001:0037CBD4 1895 0001:0037CBF8 1896 0001:0037CC4E + 1899 0001:0037CC78 1900 0001:0037CC84 1901 0001:0037CCA1 1904 0001:0037CCC0 + 1905 0001:0037CCCC 1906 0001:0037CCE9 1914 0001:0037CD08 1915 0001:0037CD14 + 1916 0001:0037CD31 1924 0001:0037CD50 1925 0001:0037CD5C 1926 0001:0037CD79 + 1929 0001:0037CD98 1930 0001:0037CDA4 1931 0001:0037CDC1 1934 0001:0037CDE0 + 1935 0001:0037CDEC 1936 0001:0037CE09 1944 0001:0037CE2C 1945 0001:0037CE4F + 1946 0001:0037CE53 1947 0001:0037CE88 1948 0001:0037CE98 1949 0001:0037CEBC + 1952 0001:0037CEDC 1953 0001:0037CF03 1954 0001:0037CF62 1959 0001:0037CF80 + 1960 0001:0037CFA9 1961 0001:0037CFAD 1962 0001:0037CFD7 1964 0001:0037CFF8 + 1965 0001:0037D016 1967 0001:0037D047 1972 0001:0037D064 1973 0001:0037D080 + 1974 0001:0037D084 1975 0001:0037D0A1 1976 0001:0037D0AF 1977 0001:0037D0D3 + 1982 0001:0037D0F0 1983 0001:0037D114 1984 0001:0037D118 1985 0001:0037D135 + 1986 0001:0037D143 1987 0001:0037D16F 1998 0001:0037D190 1999 0001:0037D1A9 + 2000 0001:0037D1C5 2001 0001:0037D1F2 2004 0001:0037D214 2005 0001:0037D220 + 2006 0001:0037D23D 2009 0001:0037D25C 2010 0001:0037D265 2011 0001:0037D281 + 2014 0001:0037D2A4 2015 0001:0037D2B0 2016 0001:0037D2CD 2021 0001:0037D2F0 + 2022 0001:0037D309 2023 0001:0037D30D 2024 0001:0037D336 2025 0001:0037D33C + 2026 0001:0037D360 2029 0001:0037D380 2030 0001:0037D3A2 2031 0001:0037D3DC + 2036 0001:0037D3FC 2037 0001:0037D418 2038 0001:0037D41C 2039 0001:0037D446 + 2040 0001:0037D44C 2041 0001:0037D470 2046 0001:0037D48C 2047 0001:0037D4AB + 2048 0001:0037D4AF 2049 0001:0037D4E6 2050 0001:0037D4EC 2051 0001:0037D510 + 2056 0001:0037D52C 2057 0001:0037D54B 2058 0001:0037D54F 2059 0001:0037D586 + 2060 0001:0037D58C 2061 0001:0037D5B0 2069 0001:0037D5D0 2070 0001:0037D5FB + 2071 0001:0037D614 2073 0001:0037D62A 2074 0001:0037D650 2076 0001:0037D658 + 2077 0001:0037D66A 2078 0001:0037D67E 2081 0001:0037D6B8 2084 0001:0037D6D8 + 2085 0001:0037D6E4 2086 0001:0037D6FD 2088 0001:0037D713 2089 0001:0037D72C + 2091 0001:0037D741 2102 0001:0037D760 2103 0001:0037D78E 2104 0001:0037D792 + 2106 0001:0037D7A1 2107 0001:0037D7A5 2109 0001:0037D7AA 2111 0001:0037D7B6 + 2112 0001:0037D7C4 2113 0001:0037D7DA 2115 0001:0037D7E0 2117 0001:0037D812 + 2118 0001:0037D81A 2121 0001:0037D81E 2123 0001:0037D824 2124 0001:0037D82C + 2128 0001:0037D85D 2136 0001:0037D8D8 2137 0001:0037D914 2138 0001:0037D918 + 2140 0001:0037D927 2141 0001:0037D92B 2143 0001:0037D930 2145 0001:0037D940 + 2146 0001:0037D94C 2148 0001:0037D959 2149 0001:0037D964 2151 0001:0037D96A + 2153 0001:0037D998 2154 0001:0037D9B5 2158 0001:0037D9BB 2159 0001:0037D9D8 + 2162 0001:0037DA16 2167 0001:0037DAD0 2168 0001:0037DADC 2169 0001:0037DAF9 + 2172 0001:0037DB18 2173 0001:0037DB31 2174 0001:0037DB68 2175 0001:0037DB93 + 2178 0001:0037DBAC 2179 0001:0037DBCB 2180 0001:0037DBF8 2181 0001:0037DC4C + 2185 0001:0037DC68 2187 0001:0037DC8D 2188 0001:0037DC99 2189 0001:0037DCF7 + 2190 0001:0037DD3F 2191 0001:0037DD71 2204 0001:0037DD90 2205 0001:0037DD9C + 2206 0001:0037DDC9 2207 0001:0037DDDE 2210 0001:0037DDFC 2211 0001:0037DE08 + 2213 0001:0037DE3F 2216 0001:0037DE5C 2217 0001:0037DE78 2218 0001:0037DEC6 + 2221 0001:0037DEF0 2222 0001:0037DEFC 2223 0001:0037DF19 2267 0001:0037DF38 + 2268 0001:0037DF64 2269 0001:0037DF6A 2271 0001:0037DFA3 2272 0001:0037DFD0 + 2273 0001:0037DFE7 2276 0001:0037DFF6 2277 0001:0037E01B 2278 0001:0037E034 + 2279 0001:0037E09B 2280 0001:0037E0C1 2281 0001:0037E0DA 2282 0001:0037E141 + 2283 0001:0037E167 2284 0001:0037E180 2285 0001:0037E1E7 2286 0001:0037E213 + 2287 0001:0037E232 2288 0001:0037E2B1 2293 0001:0037E2EC 2295 0001:0037E2F2 + 2296 0001:0037E306 2297 0001:0037E30E 2299 0001:0037E350 2304 0001:0037E394 + 2305 0001:0037E3CA 2306 0001:0037E43B 2311 0001:0037E45C 2312 0001:0037E486 + 2313 0001:0037E4BB 2314 0001:0037E4C1 2316 0001:0037E4C8 2317 0001:0037E503 + 2320 0001:0037E520 2321 0001:0037E539 2322 0001:0037E586 2326 0001:0037E5B0 + 2327 0001:0037E5B2 2328 0001:0037E5C9 2329 0001:0037E5E1 2330 0001:0037E608 + 2331 0001:0037E60D 2337 0001:0037E620 2338 0001:0037E642 2340 0001:0037E652 + 2341 0001:0037E660 2342 0001:0037E678 2343 0001:0037E690 2344 0001:0037E6A8 + 2343 0001:0037E6EB 2345 0001:0037E6F0 2347 0001:0037E717 2354 0001:0037E730 + 2355 0001:0037E757 2356 0001:0037E781 2357 0001:0037E7B9 2360 0001:0037E7D8 + 2361 0001:0037E7FC 2362 0001:0037E852 2365 0001:0037E878 2366 0001:0037E894 + 2367 0001:0037E8E2 2370 0001:0037E90C 2371 0001:0037E928 2372 0001:0037E976 + 2375 0001:0037E9A0 2376 0001:0037E9BC 2377 0001:0037EA0A 2380 0001:0037EA34 + 2381 0001:0037EA58 2382 0001:0037EAAE 2385 0001:0037EAD8 2386 0001:0037EAFA + 2387 0001:0037EB34 2390 0001:0037EB50 2391 0001:0037EB74 2392 0001:0037EBCA + 2399 0001:0037EBF4 2401 0001:0037EC1D 2402 0001:0037EC28 2403 0001:0037EC36 + 2404 0001:0037EC54 2406 0001:0037EC77 2407 0001:0037EC98 2408 0001:0037ECBE + 2409 0001:0037ED01 2412 0001:0037ED08 2413 0001:0037ED20 2414 0001:0037ED28 + 2415 0001:0037ED33 2416 0001:0037ED3A 2417 0001:0037ED65 2424 0001:0037ED78 + 2426 0001:0037EDB9 2419 0001:0037EDBC 2420 0001:0037EDC5 2421 0001:0037EDCC + 2423 0001:0037EDD3 + +Line numbers for fPage(fPage.pas) segment .text + + 54 0001:0037EF98 55 0001:0037EFA4 56 0001:0037EFCE 57 0001:0037EFD9 + 58 0001:0037EFE4 59 0001:0037F002 60 0001:0037F018 64 0001:0037F028 + 65 0001:0037F030 66 0001:0037F038 67 0001:0037F042 68 0001:0037F04C + 69 0001:0037F05A 70 0001:0037F064 71 0001:0037F06C 72 0001:0037F089 + 75 0001:0037F094 76 0001:0037F0A0 77 0001:0037F0A7 81 0001:0037F0AC + 82 0001:0037F0B3 83 0001:0037F0BE 87 0001:0037F0C4 88 0001:0037F0CB + 89 0001:0037F0D3 90 0001:0037F0DF 92 0001:0037F0F2 94 0001:0037F0FA + 95 0001:0037F103 96 0001:0037F10C 97 0001:0037F122 98 0001:0037F13A + 99 0001:0037F147 102 0001:0037F14C 103 0001:0037F15B 106 0001:0037F160 + 107 0001:0037F167 110 0001:0037F16C 111 0001:0037F179 112 0001:0037F181 + 113 0001:0037F18A 114 0001:0037F19F 116 0001:0037F1B4 117 0001:0037F1C0 + 121 0001:0037F1C8 122 0001:0037F1D1 123 0001:0037F1E2 127 0001:0037F1E8 + 128 0001:0037F1F1 129 0001:0037F202 133 0001:0037F208 134 0001:0037F211 + 135 0001:0037F222 138 0001:0037F228 139 0001:0037F237 140 0001:0037F23D + 143 0001:0037F244 144 0001:0037F251 145 0001:0037F25B 146 0001:0037F287 + 147 0001:0037F294 148 0001:0037F2A6 153 0001:0037F2AC 154 0001:0037F2B5 + 155 0001:0037F2E5 156 0001:0037F2F8 157 0001:0037F2FE 159 0001:0037F309 + 161 0001:0037F340 161 0001:0037F347 + +Line numbers for fHP(fHP.pas) segment .text + + 39 0001:0037F378 39 0001:0037F37F + +Line numbers for mVitCirGirth(Vitals\mVitCirGirth.pas) segment .text + + 51 0001:0037F3B0 51 0001:0037F3B7 + +Line numbers for mVitCVP(Vitals\mVitCVP.pas) segment .text + + 66 0001:0037F3E8 66 0001:0037F3EF + +Line numbers for mVitPO2(Vitals\mVitPO2.pas) segment .text + + 37 0001:0037F420 37 0001:0037F427 + +Line numbers for mVitPain(Vitals\mVitPain.pas) segment .text + + 35 0001:0037F458 35 0001:0037F45F + +Line numbers for mVitWeight(Vitals\mVitWeight.pas) segment .text + + 51 0001:0037F490 51 0001:0037F497 + +Line numbers for mVitHeight(Vitals\mVitHeight.pas) segment .text + + 51 0001:0037F4C8 51 0001:0037F4CF + +Line numbers for mVitBP(Vitals\mVitBP.pas) segment .text + + 41 0001:0037F500 41 0001:0037F507 + +Line numbers for mVitResp(Vitals\mVitResp.pas) segment .text + + 36 0001:0037F538 36 0001:0037F53F + +Line numbers for mVitPulse(Vitals\mVitPulse.pas) segment .text + + 36 0001:0037F570 36 0001:0037F577 + +Line numbers for mVitTemp(Vitals\mVitTemp.pas) segment .text + + 51 0001:0037F5A8 51 0001:0037F5AF + +Line numbers for mVitAll(Vitals\mVitAll.pas) segment .text + + 33 0001:0037F5E0 33 0001:0037F5E7 + +Line numbers for fODRadImType(Orders\fODRadImType.pas) segment .text + + 92 0001:0037F618 92 0001:0037F61F + +Line numbers for fODSaveQuick(Orders\fODSaveQuick.pas) segment .text + + 35 0001:0037F650 35 0001:0037F657 + +Line numbers for fOMProgress(Orders\fOMProgress.pas) segment .text + + 54 0001:0037F688 54 0001:0037F68F + +Line numbers for fOptionsPrimaryList(Options\fOptionsPrimaryList.pas) segment .text + + 51 0001:0037F6C0 51 0001:0037F6C7 + +Line numbers for fOptionsSubscribe(Options\fOptionsSubscribe.pas) segment .text + + 49 0001:0037F6F8 49 0001:0037F6FF + +Line numbers for CPRSChart(C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.dpr) segment .text + + 307 0001:00380548 308 0001:0038056B 310 0001:00380578 311 0001:0038057D + 312 0001:00380589 313 0001:00380592 315 0001:003805AE 316 0001:003805CA + 317 0001:003805D6 319 0001:003805E2 320 0001:003805F3 321 0001:00380607 + 322 0001:0038061F 323 0001:00380637 324 0001:0038064F 325 0001:0038065B + 327 0001:00380684 + +Bound resource files + +c:\program files\borland\delphi7\Lib\Buttons.res +c:\program files\borland\delphi7\Lib\ExtDlgs.res +c:\program files\borland\delphi7\Lib\Controls.res +c:\program files\borland\delphi7\Lib\TEERESOU.RES +C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib\ORCTRLS.RES +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\fDebugInfo.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\Rpcberr.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\fRPCBErrMsg.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\SelDiv.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\frmSignonMessage.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\fSgnonDlg.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\AddServer.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\RpcNet.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\Rpcconf1.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\VCEdit.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\Sgnoncnf.DFM +C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\D7\Loginfrm.DFM +fAutoSz.DFM +c:\program files\borland\delphi7\Lib\Tabs.res +fPtSelMsg.DFM +C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib\ORDtTm.DFM +C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib\ORDtTm.RES +C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib\ORDtTmRng.DFM +mVisitRelated.DFM +fPCEBaseGrid.DFM +mVitBase.DFM +mVitMetric.DFM +fVitalsDate.DFM +mTemplateFieldButton.DFM +fReportsPrint.DFM +fReportsAdhocSubItem1.DFM +fReportsAdhocComponent1.DFM +fGraphSettings.DFM +fGraphProfiles.DFM +fGraphs.DFM +fReports.DFM +fRptBox.DFM +fTimeout.DFM +fTemplateDialog.DFM +fTemplateView.DFM +fTemplateObjects.DFM +fTemplateAutoGen.DFM +fTemplateFields.DFM +fTemplateFieldEditor.DFM +mImgText.DFM +fIconLegend.DFM +fDeviceSelect.DFM +fOCAccept.DFM +fODMessage.DFM +fODDietLT.DFM +fODDiet.DFM +fODMisc.DFM +fODGen.DFM +fODMedFA.DFM +fODMedIn.DFM +fODMedComplex.DFM +fODMedOut.DFM +fODText.DFM +c:\program files\borland\delphi7\Lib\DBLogDlg.dfm +c:\program files\borland\delphi7\Lib\DBPWDlg.dfm +c:\program files\borland\delphi7\Lib\DBCtrls.res +fGAF.DFM +fPCEProvider.DFM +fODMedOIFA.DFM +fProbflt.DFM +fProbLex.DFM +fOMAction.DFM +fARTFreeTextMsg.dfm +fAllgyFind.DFM +fVisit.DFM +mCoPayDesc.DFM +fConsult513Prt.DFM +fNoteST.DFM +fNoteBA.DFM +fNoteBD.DFM +fSignItem.DFM +fNoteCslt.DFM +fNotePrt.DFM +fNoteProps.DFM +fAddlSigners.DFM +fNoteDR.DFM +fConsultBS.DFM +fConsultBD.DFM +fConsultBSt.DFM +fConsultsView.DFM +fConsultAlertTo.DFM +fConsultAct.DFM +fPreReq.DFM +fODProc.DFM +fCsltNote.DFM +fOrderVw.DFM +fLkUpLocation.DFM +fOrdersDC.DFM +fODChangeEvtDisp.DFM +fOrdersCV.DFM +fOrdersHold.DFM +fOrdersUnhold.DFM +fOrdersAlert.DFM +fOrderFlag.DFM +fOrderUnflag.DFM +fOrdersPrint.DFM +fClinicWardMeds.dfm +fOrdersSign.DFM +fOrdersRelease.DFM +fOrdersOnChart.DFM +c:\program files\borland\delphi7\Lib\SPIN.RES +fOrdersEvntRelease.DFM +fOrdersComplete.DFM +fOrdersVerify.DFM +fOrderComment.DFM +fRename.DFM +fOrderSaveQuick.DFM +fDateRange.DFM +fRenewOutMed.DFM +fOrdersRenew.DFM +fODReleaseEvent.DFM +fODAuto.DFM +fOMVerify.DFM +fOMNavA.DFM +fOCSession.DFM +fMedCopy.DFM +fOrdersCopy.DFM +mEvntDelay.DFM +fOrdersTS.DFM +fEffectDate.DFM +fODActive.DFM +fODChild.DFM +fODValidateAction.DFM +fOrdersRefill.DFM +fActivateDeactivate.dfm +fMeds.DFM +fEditProc.DFM +fEditConsult.DFM +fNotesBP.DFM +fRemCoverPreview.DFM +fRemCoverSheet.DFM +fReminderTree.DFM +fConsMedRslt.DFM +fNoteIDParents.DFM +fNoteCPFields.DFM +fConsults.DFM +fTIUView.DFM +fPCEEdit.DFM +fNoteSTStop.dfm +fDCSummProps.DFM +fDCSumm.DFM +fPrintList.dfm +fSurgeryView.DFM +fSurgery.DFM +fReview.DFM +fEncnt.DFM +fvit.DFM +fPatientFlagMulti.dfm +fPtCWAD.DFM +fARTAllgy.DFM +fAllgyBox.dfm +fProbCmt.DFM +fProbEdt.DFM +fProbs.DFM +fODConsult.DFM +fODRadApproval.DFM +fODRadConShRes.DFM +fODRad.DFM +fODLabOthCollSamp.DFM +fODLabOthSpec.DFM +fODLabImmedColl.DFM +fLabCollTimes.DFM +fODLab.DFM +fODBBank.dfm +fOtherSchedule.dfm +fODMeds.DFM +fODMedIV.DFM +fODVitals.DFM +fOMSet.DFM +fOMHTML.DFM +fODMedNVA.DFM +fODChangeUnreleasedRenew.dfm +fODBase.DFM +fNotes.DFM +fRemVisitInfo.DFM +fReminderDialog.DFM +fMHTest.DFM +fTemplateEditor.DFM +dShared.DFM +fTemplateImport.DFM +fDrawers.DFM +fCover.DFM +fVitals.DFM +fEncVitals.DFM +fExam.DFM +fHealthFactor.DFM +fPatientEd.DFM +fSkinTest.DFM +fImmunization.DFM +fProcedure.DFM +fPCEOther.DFM +fHFSearch.DFM +fPCEBaseMain.DFM +fDiagnoses.DFM +fVisitType.DFM +fPCEBase.DFM +fEncounterFrame.DFM +fDupPts.dfm +fPtSens.DFM +fPtSelDemog.DFM +fPtSelOptSave.DFM +fPtSelOptns.DFM +fAlertForward.DFM +fPtSel.DFM +fLabPrint.DFM +fLabTestGroups.DFM +fLabTests.DFM +fLabTest.DFM +fLabs.DFM +fPtDemo.DFM +fAbout.DFM +fxBroker.DFM +fxLists.DFM +fxServer.DFM +fSplash.DFM +fLabInfo.DFM +fBAOptionsDiagnoses.dfm +fOptionsDays.DFM +fOptionsReminders.DFM +fOptionsSurrogate.DFM +fOptionsPatientSelection.DFM +fOptionsNewList.DFM +fOptionsLists.DFM +fOptionsTeams.DFM +fOptionsCombinations.DFM +fOptionsOther.DFM +fOptionsNotes.DFM +fOptionsTitles.DFM +fOptionsReportsCustom.DFM +fOptionsReportsDefault.DFM +fOptions.DFM +fDefaultEvent.DFM +sRemSrch.RES +sBitmaps.RES +fFrame.DFM +fPCELex.DFM +fBALocalDiagnoses.dfm +fHSplit.DFM +fOrders.DFM +fPage.DFM +fHP.DFM +mVitCirGirth.DFM +mVitCVP.DFM +mVitPO2.DFM +mVitPain.DFM +mVitWeight.DFM +mVitHeight.DFM +mVitBP.DFM +mVitResp.DFM +mVitPulse.DFM +mVitTemp.DFM +mVitAll.DFM +fODRadImType.DFM +fODSaveQuick.DFM +fOMProgress.DFM +fOptionsPrimaryList.DFM +fOptionsSubscribe.DFM +CPRSChart.TLB +CPRSChart.RES +CPRSChart.drf + + +Program entry point at 0001:00380548 diff --git a/CPRS-Chart/CPRSChart.res b/CPRS-Chart/CPRSChart.res new file mode 100644 index 0000000..edce7b4 Binary files /dev/null and b/CPRS-Chart/CPRSChart.res differ diff --git a/CPRS-Chart/CPRSChart.tlb b/CPRS-Chart/CPRSChart.tlb new file mode 100644 index 0000000..7ce3230 Binary files /dev/null and b/CPRS-Chart/CPRSChart.tlb differ diff --git a/CPRS-Chart/CPRSChart_TLB.pas b/CPRS-Chart/CPRSChart_TLB.pas new file mode 100644 index 0000000..9d8e18c --- /dev/null +++ b/CPRS-Chart/CPRSChart_TLB.pas @@ -0,0 +1,433 @@ +unit CPRSChart_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:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\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} +{$WRITEABLECONST ON} +{$VARPROPSETTER ON} +interface + +uses Windows, Accessibility_TLB, 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 + CPRSChartMajorVersion = 1; + CPRSChartMinorVersion = 0; + + LIBID_CPRSChart: TGUID = '{0A4A6086-6504-11D5-82DE-00C04F72C274}'; + + 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 +// *********************************************************************// +// Constants for enum BrokerParamType +type + BrokerParamType = TOleEnum; +const + bptLiteral = $00000000; + bptReference = $00000001; + bptList = $00000002; + bptUndefined = $00000003; + +type + +// *********************************************************************// +// Forward declaration of types defined in TypeLibrary +// *********************************************************************// + ICPRSBroker = interface; + ICPRSBrokerDisp = dispinterface; + ICPRSState = interface; + 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 +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {63DC619B-6BE0-11D5-82E6-00C04F72C274} +// *********************************************************************// + ICPRSBroker = interface(IDispatch) + ['{63DC619B-6BE0-11D5-82E6-00C04F72C274}'] + function SetContext(const Context: WideString): WordBool; safecall; + function Server: WideString; safecall; + function Port: Integer; safecall; + function DebugMode: WordBool; safecall; + function Get_RPCVersion: WideString; safecall; + procedure Set_RPCVersion(const Value: WideString); safecall; + function Get_ClearParameters: WordBool; safecall; + procedure Set_ClearParameters(Value: WordBool); safecall; + function Get_ClearResults: WordBool; safecall; + procedure Set_ClearResults(Value: WordBool); safecall; + procedure CallRPC(const RPCName: WideString); safecall; + function Get_Results: WideString; safecall; + procedure Set_Results(const Value: WideString); safecall; + function Get_Param(Index: Integer): WideString; safecall; + procedure Set_Param(Index: Integer; const Value: WideString); safecall; + function Get_ParamType(Index: Integer): BrokerParamType; safecall; + procedure Set_ParamType(Index: Integer; Value: BrokerParamType); safecall; + function Get_ParamList(Index: Integer; const Node: WideString): WideString; safecall; + procedure Set_ParamList(Index: Integer; const Node: WideString; const Value: WideString); safecall; + function ParamCount: Integer; safecall; + function ParamListCount(Index: Integer): Integer; safecall; + property RPCVersion: WideString read Get_RPCVersion write Set_RPCVersion; + property ClearParameters: WordBool read Get_ClearParameters write Set_ClearParameters; + property ClearResults: WordBool read Get_ClearResults write Set_ClearResults; + property Results: WideString read Get_Results write Set_Results; + property Param[Index: Integer]: WideString read Get_Param write Set_Param; + property ParamType[Index: Integer]: BrokerParamType read Get_ParamType write Set_ParamType; + property ParamList[Index: Integer; const Node: WideString]: WideString read Get_ParamList write Set_ParamList; + end; + +// *********************************************************************// +// DispIntf: ICPRSBrokerDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {63DC619B-6BE0-11D5-82E6-00C04F72C274} +// *********************************************************************// + ICPRSBrokerDisp = dispinterface + ['{63DC619B-6BE0-11D5-82E6-00C04F72C274}'] + function SetContext(const Context: WideString): WordBool; dispid 1; + function Server: WideString; dispid 2; + function Port: Integer; dispid 3; + function DebugMode: WordBool; dispid 4; + property RPCVersion: WideString dispid 5; + property ClearParameters: WordBool dispid 6; + property ClearResults: WordBool dispid 7; + procedure CallRPC(const RPCName: WideString); dispid 8; + property Results: WideString dispid 9; + property Param[Index: Integer]: WideString dispid 10; + property ParamType[Index: Integer]: BrokerParamType dispid 11; + property ParamList[Index: Integer; const Node: WideString]: WideString dispid 12; + function ParamCount: Integer; dispid 13; + function ParamListCount(Index: Integer): Integer; dispid 14; + end; + +// *********************************************************************// +// Interface: ICPRSState +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {63DC619E-6BE0-11D5-82E6-00C04F72C274} +// *********************************************************************// + ICPRSState = interface(IDispatch) + ['{63DC619E-6BE0-11D5-82E6-00C04F72C274}'] + function Handle: WideString; safecall; + function UserDUZ: WideString; safecall; + function UserName: WideString; safecall; + function PatientDFN: WideString; safecall; + function PatientName: WideString; safecall; + function PatientDOB: WideString; safecall; + function PatientSSN: WideString; safecall; + function LocationIEN: Integer; safecall; + function LocationName: WideString; safecall; + end; + +// *********************************************************************// +// DispIntf: ICPRSStateDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {63DC619E-6BE0-11D5-82E6-00C04F72C274} +// *********************************************************************// + ICPRSStateDisp = dispinterface + ['{63DC619E-6BE0-11D5-82E6-00C04F72C274}'] + function Handle: WideString; dispid 1; + function UserDUZ: WideString; dispid 2; + function UserName: WideString; dispid 3; + function PatientDFN: WideString; dispid 4; + function PatientName: WideString; dispid 5; + function PatientDOB: WideString; dispid 6; + function PatientSSN: WideString; dispid 7; + function LocationIEN: Integer; dispid 8; + function LocationName: WideString; dispid 9; + end; + +// *********************************************************************// +// Interface: ICPRSExtension +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {63DC61C4-6BE0-11D5-82E6-00C04F72C274} +// *********************************************************************// + ICPRSExtension = interface(IDispatch) + ['{63DC61C4-6BE0-11D5-82E6-00C04F72C274}'] + function Execute(const CPRSBroker: ICPRSBroker; const CPRSState: ICPRSState; + const Param1: WideString; const Param2: WideString; const Param3: WideString; + var Data1: WideString; var Data2: WideString): WordBool; safecall; + end; + +// *********************************************************************// +// DispIntf: ICPRSExtensionDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {63DC61C4-6BE0-11D5-82E6-00C04F72C274} +// *********************************************************************// + ICPRSExtensionDisp = dispinterface + ['{63DC61C4-6BE0-11D5-82E6-00C04F72C274}'] + function Execute(const CPRSBroker: ICPRSBroker; const CPRSState: ICPRSState; + const Param1: WideString; const Param2: WideString; const Param3: WideString; + 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. diff --git a/CPRS-Chart/Consults/FormResize.txt b/CPRS-Chart/Consults/FormResize.txt new file mode 100644 index 0000000..71432eb --- /dev/null +++ b/CPRS-Chart/Consults/FormResize.txt @@ -0,0 +1,8 @@ +procedure TfrmODCslt.FormResize(Sender: TObject); +begin + inherited; + memOrder.Top := pnlReason.Top + pnlReason.Height + 2; + pnlMessage.Top := memOrder.Top + 2; + cmdAccept.Top := pnlMessage.Top; + cmdQuit.Top := cmdAccept.Top; +end; \ No newline at end of file diff --git a/CPRS-Chart/Consults/fConsMedRslt.dfm b/CPRS-Chart/Consults/fConsMedRslt.dfm new file mode 100644 index 0000000..6212604 --- /dev/null +++ b/CPRS-Chart/Consults/fConsMedRslt.dfm @@ -0,0 +1,182 @@ +object frmConsMedRslt: TfrmConsMedRslt + Left = 468 + Top = 172 + BorderStyle = bsDialog + Caption = 'Select Medicine Result' + ClientHeight = 242 + ClientWidth = 505 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 505 + Height = 242 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object SrcLabel: TLabel + Left = 12 + Top = 6 + Width = 145 + Height = 16 + AutoSize = False + Caption = 'Select medicine result:' + end + object lblDateofAction: TOROffsetLabel + Left = 133 + Top = 159 + Width = 112 + Height = 19 + Caption = 'Date/time of this action' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object lblActionBy: TOROffsetLabel + Left = 266 + Top = 159 + Width = 215 + Height = 19 + Caption = 'Action by' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object lblResultName: TOROffsetLabel + Left = 27 + Top = 29 + Width = 90 + Height = 15 + Caption = 'Type of Result' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblResultDate: TOROffsetLabel + Left = 255 + Top = 29 + Width = 74 + Height = 15 + Caption = 'Date of Result' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblSummary: TOROffsetLabel + Left = 375 + Top = 29 + Width = 45 + Height = 15 + Caption = 'Summary' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object cmdOK: TButton + Left = 332 + Top = 211 + Width = 75 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 5 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 412 + Top = 211 + Width = 75 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 6 + OnClick = cmdCancelClick + end + object lstMedResults: TORListBox + Left = 15 + Top = 45 + Width = 476 + Height = 114 + Style = lbOwnerDrawFixed + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + Sorted = True + TabOrder = 0 + OnDrawItem = lstMedResultsDrawItem + Caption = 'Select medicine result' + ItemTipColor = clWindow + LongList = False + Pieces = '2,3,4' + TabPositions = '40,60' + end + object cmdDetails: TButton + Left = 15 + Top = 179 + Width = 75 + Height = 21 + Caption = 'Show Details' + TabOrder = 1 + OnClick = cmdDetailsClick + end + object ckAlert: TCheckBox + Left = 131 + Top = 211 + Width = 79 + Height = 17 + Caption = 'Send alert' + TabOrder = 4 + OnClick = ckAlertClick + end + object calDateofAction: TORDateBox + Left = 133 + Top = 179 + Width = 116 + Height = 21 + TabStop = False + TabOrder = 2 + Text = 'Now' + DateOnly = False + RequireTime = False + Caption = 'Date/time of this action' + end + object cboPerson: TORComboBox + Left = 265 + Top = 179 + Width = 220 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Action by' + 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 = 3 + OnNeedData = NewPersonNeedData + end + end +end diff --git a/CPRS-Chart/Consults/fConsMedRslt.pas b/CPRS-Chart/Consults/fConsMedRslt.pas new file mode 100644 index 0000000..6539bb4 --- /dev/null +++ b/CPRS-Chart/Consults/fConsMedRslt.pas @@ -0,0 +1,212 @@ +unit fConsMedRslt; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ORCtrls, ORfn, ExtCtrls, fAutoSz, ORDtTm, fConsultAlertTo, fRptBox; + +type + TMedResultRec = record + Action: string; + ResultPtr: string; + DateTimeofAction: TFMDateTime; + ResponsiblePerson: Int64; + AlertsTo: TRecipientList; + end; + + TfrmConsMedRslt = class(TfrmAutoSz) + cmdOK: TButton; + cmdCancel: TButton; + lstMedResults: TORListBox; + SrcLabel: TLabel; + pnlBase: TORAutoPanel; + cmdDetails: TButton; + ckAlert: TCheckBox; + lblDateofAction: TOROffsetLabel; + calDateofAction: TORDateBox; + lblActionBy: TOROffsetLabel; + cboPerson: TORComboBox; + lblResultName: TOROffsetLabel; + lblResultDate: TOROffsetLabel; + lblSummary: TOROffsetLabel; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cmdDetailsClick(Sender: TObject); + procedure ckAlertClick(Sender: TObject); + procedure NewPersonNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure FormDestroy(Sender: TObject); + procedure lstMedResultsDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + protected + procedure ShowDetailsDestroyed(Sender: TObject); + private + FShowDetails: TfrmReportBox; + FOldShowDetailsOnDestroy: TNotifyEvent; + FMedResult: TMedResultRec ; + FChanged: Boolean; + end; + +function SelectMedicineResult(ConsultIEN: integer; FormTitle: string; var MedResult: TMedResultRec): boolean ; + +implementation + +{$R *.DFM} + +uses rConsults, rCore, uCore, uConst; + +const + TX_MEDRSLT_TEXT = 'Select medicine result or press Cancel.'; + TX_MEDRSLT_CAP = 'No Result Selected'; + +var + RecipientList: TRecipientList ; + +function SelectMedicineResult(ConsultIEN: integer; FormTitle: string; var MedResult: TMedResultRec): boolean ; +{ displays Medicine Result selection form and returns a record of the selection } +var + frmConsMedRslt: TfrmConsMedRslt; +begin + frmConsMedRslt := TfrmConsMedRslt.Create(Application); + try + with frmConsMedRslt do + begin + FChanged := False; + FillChar(RecipientList, SizeOf(RecipientList), 0); + FillChar(FMedResult, SizeOf(FMedResult), 0); + Caption := FormTitle; + cboPerson.InitLongList(User.Name); + cboPerson.SelectByIEN(User.DUZ); + ResizeFormToFont(TForm(frmConsMedRslt)); + + if MedResult.Action = 'ATTACH' then + begin + lstMedResults.Items.Assign(GetAssignableMedResults(ConsultIEN)); + ckAlert.Visible := True; + end + else if MedResult.Action = 'REMOVE' then + begin + lstMedResults.Items.Assign(GetRemovableMedResults(ConsultIEN)); + ckAlert.Visible := False; + end; + if lstMedResults.Items.Count > 0 then + ShowModal + else + FChanged := True; + Result := FChanged; + MedResult := FMedResult; + end; {with frmODConsMedRslt} + finally + frmConsMedRslt.Release; + end; +end; + +procedure TfrmConsMedRslt.cmdCancelClick(Sender: TObject); +begin + FillChar(FMedResult, SizeOf(FMedResult), 0); + FChanged := False; + Close; +end; + +procedure TfrmConsMedRslt.cmdOKClick(Sender: TObject); +begin + FillChar(FMedResult, SizeOf(FMedResult), 0); + if lstMedResults.ItemIndex = -1 then + begin + InfoBox(TX_MEDRSLT_TEXT, TX_MEDRSLT_CAP, MB_OK or MB_ICONWARNING); + FChanged := False ; + Exit; + end; + FChanged := True; + with FMedResult do + begin + ResultPtr := lstMedResults.ItemID ; + DateTimeofAction := calDateOfAction.FMDateTime; + ResponsiblePerson := cboPerson.ItemIEN; + AlertsTo := RecipientList; + end; + Close; +end; + +procedure TfrmConsMedRslt.cmdDetailsClick(Sender: TObject); +const + TX_RESULTS_CAP = 'Detailed Results Display'; +var + x: string; +begin + inherited; + if lstMedResults.ItemIndex = -1 then exit; + x := Piece(Piece(Piece(lstMedResults.ItemID, ';', 2), '(', 2), ',', 1) + ';' + Piece(lstMedResults.ItemID, ';', 1); + NotifyOtherApps(NAE_REPORT, 'MED^' + x); + if(not assigned(FShowDetails)) then + begin + FShowDetails := ModelessReportBox(GetDetailedMedicineResults(lstMedResults.ItemID), TX_RESULTS_CAP, True); + FOldShowDetailsOnDestroy := FShowDetails.OnDestroy; + FShowDetails.OnDestroy := ShowDetailsDestroyed; + cmdDetails.Enabled := (not assigned(FShowDetails)); + lstMedResults.Enabled := (not assigned(FShowDetails)); + end; +end; + +procedure TfrmConsMedRslt.ShowDetailsDestroyed(Sender: TObject); +begin + if(assigned(FOldShowDetailsOnDestroy)) then + FOldShowDetailsOnDestroy(Sender); + FShowDetails := nil; + cmdDetails.Enabled := (not assigned(FShowDetails)); + lstMedResults.Enabled := (not assigned(FShowDetails)); +end; + + +procedure TfrmConsMedRslt.ckAlertClick(Sender: TObject); +begin + FillChar(RecipientList, SizeOf(RecipientList), 0); + if ckAlert.Checked then SelectRecipients(Font.Size, 0, RecipientList) ; +end; + +procedure TfrmConsMedRslt.NewPersonNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmConsMedRslt.FormDestroy(Sender: TObject); +begin + inherited; + KillObj(@FShowDetails); +end; + +procedure TfrmConsMedRslt.lstMedResultsDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + x: string; + AnImage: TBitMap; +const + STD_PROC_TEXT = 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'; + STD_DATE = 'MMM DD,YY@HH:NNXX'; +begin + inherited; + AnImage := TBitMap.Create; + try + with (Control as TORListBox).Canvas do { draw on control canvas, not on the form } + begin + x := (Control as TORListBox).Items[Index]; + FillRect(Rect); { clear the rectangle } + AnImage.LoadFromResourceName(hInstance, 'BMP_IMAGEFLAG_1'); + (Control as TORListBox).ItemHeight := HigherOf(TextHeight(x), AnImage.Height); + if StrToIntDef(Piece(x, U, 5), 0) > 0 then + begin + BrushCopy(Bounds(Rect.Left, Rect.Top, AnImage.Width, AnImage.Height), + AnImage, Bounds(0, 0, AnImage.Width, AnImage.Height), clRed); {render ImageFlag} + end; + TextOut(Rect.Left + AnImage.Width, Rect.Top, Piece(x, U, 2)); + TextOut(Rect.Left + AnImage.Width + TextWidth(STD_PROC_TEXT), Rect.Top, Piece(x, U, 3)); + TextOut(Rect.Left + AnImage.Width + TextWidth(STD_PROC_TEXT) + TextWidth(STD_DATE), Rect.Top, Piece(x, U, 4)); + end; + finally + AnImage.Free; + end; +end; + +end. diff --git a/CPRS-Chart/Consults/fConsult513Prt.dfm b/CPRS-Chart/Consults/fConsult513Prt.dfm new file mode 100644 index 0000000..72254a4 --- /dev/null +++ b/CPRS-Chart/Consults/fConsult513Prt.dfm @@ -0,0 +1,167 @@ +object frm513Print: Tfrm513Print + Left = 116 + Top = 375 + AutoScroll = False + Caption = 'Print SF 513' + ClientHeight = 308 + ClientWidth = 427 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object lblPrintTo: TLabel + Left = 7 + Top = 265 + Width = 3 + Height = 13 + end + object lblConsultTitle: TMemo + Left = 10 + Top = 8 + Width = 301 + Height = 53 + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Consult Title, Date/Time of Consult, Location') + ReadOnly = True + TabOrder = 0 + end + object grpChooseCopy: TGroupBox + Left = 321 + Top = 4 + Width = 98 + Height = 61 + Caption = 'Print' + TabOrder = 1 + object radChartCopy: TRadioButton + Left = 8 + Top = 16 + Width = 81 + Height = 17 + Caption = '&Chart Copy' + Checked = True + TabOrder = 0 + TabStop = True + OnClick = radChartCopyClick + end + object radWorkCopy: TRadioButton + Left = 8 + Top = 36 + Width = 81 + Height = 17 + Caption = '&Work Copy' + TabOrder = 1 + OnClick = radWorkCopyClick + end + end + object grpDevice: TGroupBox + Left = 8 + Top = 69 + Width = 411 + Height = 192 + Caption = 'Device' + TabOrder = 2 + object lblMargin: TLabel + Left = 8 + Top = 166 + Width = 60 + Height = 13 + Caption = 'Right Margin' + end + object lblLength: TLabel + Left = 120 + Top = 166 + Width = 61 + Height = 13 + Caption = 'Page Length' + end + object txtRightMargin: TMaskEdit + Left = 72 + Top = 164 + Width = 34 + Height = 19 + AutoSize = False + EditMask = '99999;0; ' + MaxLength = 5 + TabOrder = 1 + end + object txtPageLength: TMaskEdit + Left = 184 + Top = 164 + Width = 34 + Height = 19 + AutoSize = False + EditMask = '99999;0; ' + MaxLength = 5 + TabOrder = 2 + end + object cboDevice: TORComboBox + Left = 8 + Top = 16 + Width = 395 + Height = 140 + Style = orcsSimple + AutoSelect = True + Caption = 'Device' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + Pieces = '2,4' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabPositions = '30' + TabOrder = 0 + OnChange = cboDeviceChange + OnNeedData = cboDeviceNeedData + end + end + object cmdOK: TButton + Left = 267 + Top = 272 + Width = 72 + Height = 22 + Caption = 'OK' + Default = True + TabOrder = 4 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 272 + Width = 72 + Height = 22 + Cancel = True + Caption = 'Cancel' + TabOrder = 5 + OnClick = cmdCancelClick + end + object chkDefault: TCheckBox + Left = 7 + Top = 288 + Width = 166 + Height = 17 + Caption = 'Save as user'#39's default printer' + TabOrder = 3 + end + object dlgWinPrinter: TPrintDialog + Left = 268 + Top = 26 + end +end diff --git a/CPRS-Chart/Consults/fConsult513Prt.pas b/CPRS-Chart/Consults/fConsult513Prt.pas new file mode 100644 index 0000000..1beedf8 --- /dev/null +++ b/CPRS-Chart/Consults/fConsult513Prt.pas @@ -0,0 +1,200 @@ +unit fConsult513Prt; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, ORCtrls, StdCtrls, Mask, ORNet, ORFn, ComCtrls; + +type + Tfrm513Print = class(TfrmAutoSz) + grpChooseCopy: TGroupBox; + radChartCopy: TRadioButton; + radWorkCopy: TRadioButton; + grpDevice: TGroupBox; + lblMargin: TLabel; + lblLength: TLabel; + txtRightMargin: TMaskEdit; + txtPageLength: TMaskEdit; + cmdOK: TButton; + cmdCancel: TButton; + lblConsultTitle: TMemo; + cboDevice: TORComboBox; + lblPrintTo: TLabel; + dlgWinPrinter: TPrintDialog; + chkDefault: TCheckBox; + procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure FormCreate(Sender: TObject); + procedure cboDeviceChange(Sender: TObject); + procedure radChartCopyClick(Sender: TObject); + procedure radWorkCopyClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + private + { Private declarations } + FConsult: Integer; + FReportText: TRichEdit; + procedure DisplaySelectDevice; + public + { Public declarations } + end; + +procedure PrintSF513(AConsult: Longint; AConsultTitle: string); + +implementation + +{$R *.DFM} + +uses rCore, rConsults, Printers, rReports, uCore; + +const + TX_NODEVICE = 'A device must be selected to print, or press ''Cancel'' to not print.'; + TX_NODEVICE_CAP = 'Device Not Selected'; + TX_ERR_CAP = 'Print Error'; + TX_QUEUED_CAP = 'Printing Report' ; + PAGE_BREAK = '**PAGE BREAK**'; + +procedure PrintSF513(AConsult: Longint; AConsultTitle: string); +{ displays a form that prompts for a device and then prints the SF513 } +var + frm513Print: Tfrm513Print; + DefPrt: string; +begin + frm513Print := Tfrm513Print.Create(Application); + try + ResizeFormToFont(TForm(frm513Print)); + with frm513Print do + begin + lblConsultTitle.Text := AConsultTitle; + FConsult := AConsult; + DefPrt := GetDefaultPrinter(User.Duz, Encounter.Location); + if User.CurrentPrinter = '' then User.CurrentPrinter := DefPrt; + with cboDevice do + begin + if Printer.Printers.Count > 0 then + begin + Items.Add('WIN;Windows Printer^Windows Printer'); + Items.Add('^--------------------VistA Printers----------------------'); + end; + if User.CurrentPrinter <> '' then + begin + InitLongList(Piece(User.CurrentPrinter, ';', 2)); + SelectByID(User.CurrentPrinter); + end + else + InitLongList(''); + end; + if (DefPrt = 'WIN;Windows Printer') and + (User.CurrentPrinter = DefPrt) then + cmdOKClick(frm513Print) + else + ShowModal; + end; + finally + frm513Print.Release; + end; +end; + +procedure Tfrm513Print.FormCreate(Sender: TObject); +begin + inherited; + FReportText := TRichEdit.Create(Self); + with FReportText do + begin + Parent := Self; + Visible := False; + Width := 600; + end; +end; + +procedure Tfrm513Print.DisplaySelectDevice; +begin + with cboDevice, lblPrintTo do + begin + if radChartCopy.Checked then Caption := 'Print Chart Copy on: ' + Piece(ItemID, ';', 2); + if radWorkCopy.Checked then Caption := 'Print Work Copy on: ' + Piece(ItemID, ';', 2); + end; +end; + +procedure Tfrm513Print.cboDeviceNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + cboDevice.ForDataUse(SubsetOfDevices(StartFrom, Direction)); +end; + +procedure Tfrm513Print.cboDeviceChange(Sender: TObject); +begin + inherited; + with cboDevice do if ItemIndex > -1 then + begin + txtRightMargin.Text := Piece(Items[ItemIndex], '^', 4); + txtPageLength.Text := Piece(Items[ItemIndex], '^', 5); + DisplaySelectDevice; + end; +end; + +procedure Tfrm513Print.radChartCopyClick(Sender: TObject); +begin + inherited; + DisplaySelectDevice; +end; + +procedure Tfrm513Print.radWorkCopyClick(Sender: TObject); +begin + inherited; + DisplaySelectDevice; +end; + +procedure Tfrm513Print.cmdOKClick(Sender: TObject); +var + ADevice, ErrMsg: string; + ChartCopy: string; + RemoteSiteID: string; //for Remote site printing + RemoteQuery: string; //for Remote site printing +begin + inherited; + RemoteSiteID := ''; + RemoteQuery := ''; + if cboDevice.ItemID = '' then + begin + InfoBox(TX_NODEVICE, TX_NODEVICE_CAP, MB_OK); + Exit; + end; + if radChartCopy.Checked then ChartCopy := 'C' else ChartCopy := 'W'; + if Piece(cboDevice.ItemID, ';', 1) = 'WIN' then + begin + if dlgWinPrinter.Execute then with FReportText do + begin + FReportText.Lines.Assign(GetFormattedSF513(FConsult, ChartCopy)); + PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg); + if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK); + end; + end + else + begin + ADevice := Piece(cboDevice.ItemID, ';', 2); + PrintSF513ToDevice(FConsult, ADevice, ChartCopy, ErrMsg); + ErrMsg := Piece(FReportText.Lines[0], U, 2); + if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK); + end; + if chkDefault.Checked then SaveDefaultPrinter(Piece(cboDevice.ItemID, ';', 1)); + User.CurrentPrinter := cboDevice.ItemID; + Close; +end; + +procedure Tfrm513Print.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure Tfrm513Print.FormDestroy(Sender: TObject); +begin + FReportText.Free; + inherited; +end; + +end. diff --git a/CPRS-Chart/Consults/fConsultAct.dfm b/CPRS-Chart/Consults/fConsultAct.dfm new file mode 100644 index 0000000..032a669 --- /dev/null +++ b/CPRS-Chart/Consults/fConsultAct.dfm @@ -0,0 +1,362 @@ +object frmConsultAction: TfrmConsultAction + Left = 277 + Top = 217 + Width = 600 + Height = 406 + BorderIcons = [] + Caption = 'frmConsultAction' + Color = clBtnFace + Constraints.MinHeight = 406 + Constraints.MinWidth = 600 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TPanel + Left = 0 + Top = 0 + Width = 592 + Height = 379 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object pnlForward: TPanel + Left = 0 + Top = 0 + Width = 224 + Height = 379 + Align = alLeft + BevelOuter = bvNone + TabOrder = 0 + object lblToService: TOROffsetLabel + Left = 2 + Top = 0 + Width = 120 + Height = 19 + Caption = 'To service' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object lblAttentionOf: TOROffsetLabel + Left = 2 + Top = 325 + Width = 44 + Height = 19 + Caption = 'Attention' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object lblUrgency: TOROffsetLabel + Left = 2 + Top = 277 + Width = 42 + Height = 19 + Caption = 'Urgency' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object Label1: TMemo + Left = 18 + Top = 123 + Width = 185 + Height = 65 + TabStop = False + Alignment = taCenter + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'A procedure can only be forwarded to ' + 'other services defined as being able to ' + 'perform that procedure. Valid ' + 'selections for this procedure are listed ' + 'in the drop-down box above.') + ReadOnly = True + TabOrder = 4 + end + object cboAttentionOf: TORComboBox + Left = 2 + Top = 344 + Width = 212 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Attention' + 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 = 3 + OnNeedData = NewPersonNeedData + CharsNeedMatch = 1 + end + object cboUrgency: TORComboBox + Left = 2 + Top = 297 + Width = 212 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Urgency' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + CharsNeedMatch = 1 + end + object treService: TORTreeView + Left = 2 + Top = 100 + Width = 212 + Height = 182 + HideSelection = False + Indent = 19 + ReadOnly = True + TabOrder = 1 + OnChange = treServiceChange + OnExit = treServiceExit + Caption = 'To service' + NodePiece = 0 + end + object cboService: TORComboBox + Left = 2 + Top = 23 + Width = 212 + Height = 75 + Style = orcsSimple + AutoSelect = True + Caption = 'To service' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + OnKeyPause = cboServiceSelect + OnMouseClick = cboServiceSelect + CharsNeedMatch = 1 + end + end + object pnlOther: TPanel + Left = 224 + Top = 0 + Width = 368 + Height = 379 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + object pnlSigFind: TPanel + Left = 0 + Top = 0 + Width = 368 + Height = 57 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object grpSigFindings: TRadioGroup + Left = 9 + Top = 7 + Width = 350 + Height = 41 + Caption = 'Significant Findings - Current status: ' + Columns = 3 + Ctl3D = True + Items.Strings = ( + '&Yes' + '&No' + '&Unknown') + ParentCtl3D = False + TabOrder = 0 + end + end + object pnlComments: TPanel + Left = 0 + Top = 57 + Width = 368 + Height = 224 + Align = alClient + Alignment = taLeftJustify + BevelOuter = bvNone + TabOrder = 1 + object lblComments: TOROffsetLabel + Left = 0 + Top = 0 + Width = 368 + Height = 19 + Align = alTop + Caption = 'Comments' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object memComments: TCaptionMemo + Left = 0 + Top = 19 + Width = 368 + Height = 170 + Align = alClient + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ScrollBars = ssVertical + TabOrder = 0 + Caption = 'Comments' + end + object pnlAlert: TPanel + Left = 0 + Top = 189 + Width = 368 + Height = 35 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + object lblAutoAlerts: TStaticText + Left = 6 + Top = 1 + Width = 4 + Height = 4 + TabOrder = 1 + end + object ckAlert: TCheckBox + Left = 6 + Top = 17 + Width = 129 + Height = 17 + Caption = 'Send additional alerts' + TabOrder = 0 + OnClick = ckAlertClick + end + end + end + object pnlAllActions: TPanel + Left = 0 + Top = 281 + Width = 368 + Height = 98 + Align = alBottom + BevelOuter = bvNone + TabOrder = 2 + DesignSize = ( + 368 + 98) + object lblActionBy: TOROffsetLabel + Left = 138 + Top = -4 + Width = 215 + Height = 19 + Caption = 'Action by' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object lblDateofAction: TOROffsetLabel + Left = 5 + Top = -4 + Width = 112 + Height = 19 + Caption = 'Date/time of this action' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object calDateofAction: TORDateBox + Left = 5 + Top = 15 + Width = 116 + Height = 21 + TabOrder = 0 + Text = 'Now' + DateOnly = False + RequireTime = False + Caption = 'Date/time of this action' + end + object cmdOK: TORAlignButton + Left = 201 + Top = 62 + Width = 75 + Height = 22 + Anchors = [akRight, akBottom] + Caption = 'OK' + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TORAlignButton + Left = 286 + Top = 62 + Width = 75 + Height = 22 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 3 + OnClick = cmdCancelClick + end + object cboPerson: TORComboBox + Left = 137 + Top = 15 + Width = 220 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Action by' + 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 = 1 + TabStop = True + OnNeedData = NewPersonNeedData + CharsNeedMatch = 1 + end + end + end + end +end diff --git a/CPRS-Chart/Consults/fConsultAct.pas b/CPRS-Chart/Consults/fConsultAct.pas new file mode 100644 index 0000000..a9db00b --- /dev/null +++ b/CPRS-Chart/Consults/fConsultAct.pas @@ -0,0 +1,599 @@ +unit fConsultAct; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ORFN, + StdCtrls, ExtCtrls, ORCtrls, uCore, ComCtrls, ORDtTm; + +type + TfrmConsultAction = class(TForm) + lblActionBy: TOROffsetLabel; + calDateofAction: TORDateBox; + lblDateofAction: TOROffsetLabel; + cboPerson: TORComboBox; + memComments: TCaptionMemo; + lblComments: TOROffsetLabel; + lblToService: TOROffsetLabel; + cboAttentionOf: TORComboBox; + lblAttentionOf: TOROffsetLabel; + lblUrgency: TOROffsetLabel; + cmdOK: TORAlignButton; + cmdCancel: TORAlignButton; + cboUrgency: TORComboBox; + pnlBase: TPanel; + pnlForward: TPanel; + pnlOther: TPanel; + treService: TORTreeView; + pnlComments: TPanel; + pnlAllActions: TPanel; + grpSigFindings: TRadioGroup; + pnlSigFind: TPanel; + cboService: TORComboBox; + pnlAlert: TPanel; + ckAlert: TCheckBox; + Label1: TMemo; + lblAutoAlerts: TStaticText; + procedure cmdCancelClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure NewPersonNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); + procedure ProviderNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); + procedure ckAlertClick(Sender: TObject); + procedure treServiceChange(Sender: TObject; Node: TTreeNode); + procedure treServiceExit(Sender: TObject); + procedure cboServiceSelect(Sender: TObject); {**REV**} + private + FActionType: integer ; + FChanged: boolean ; + FActionBy: Int64; + FActionDate: TFMDateTime; + FToService: integer ; + FAttentionOf: int64 ; + FUrgency: integer ; + FSigFind: string; + FComments: TStrings ; + FAlert: integer ; + FAlertTo: string ; + FIsProcedure: boolean; + FProcIEN: integer; + FUserLevel: integer; + FUserIsRequester: boolean; + function SetupForward(IsProcedure: boolean; ProcIEN: integer): boolean; + procedure SetupAddComment; + procedure SetupAdminComplete; + procedure SetupSigFindings; + procedure SigFindPanelShow; + procedure SetupReceive; + procedure SetupSchedule; + procedure SetupOther; + procedure ShowAutoAlertText; + end; + +function SetActionContext(FontSize: Integer; ActionCode: integer; IsProcedure: boolean; ProcID: string; UserLevel: integer): boolean; + +var + frmConsultAction: TfrmConsultAction; + SvcList: TStrings ; + uChanging: Boolean; + +const + TX_FWD_NO_CSLT_SVCS_TEXT = 'There are no services that you can forward this consult to' ; + TX_FWD_NO_PROC_SVCS_TEXT = 'There are no additional services that can perform this procedure.' ; + TX_NOTTHISSVC_TEXT = 'Consults cannot be forwarded to this service. Please select a subspecialty' ; + TX_NOFORWARD_TEXT = 'Service must be specified.' ; + TX_NOFORWARD_SELF = 'A consult cannot be forwarded to the same service already responsible.'; + TX_NOFORWARD_CAP = 'Unable to forward' ; + TX_NOURGENCY_TEXT = 'Urgency must be specified'; + TX_PERSON_TEXT = 'Select a person to perform this action or press Cancel.'; + TX_PERSON_CAP = 'Missing person'; + TX_DATE_TEXT = 'Enter a valid date for this action.' ; + TX_DATE_CAP = 'Invalid date' ; + TX_FUTDATE_TEXT = 'Dates or times in the future are not allowed.'; + TX_COMMENTS_TEXT = 'Comments are required for this action.' ; + TX_COMMENTS_CAP = 'No comments entered' ; + TX_SIGFIND_TEXT = 'A significant findings selection is required.' ; + TX_SIGFIND_CAP = 'No significant findings status entered' ; + +implementation + +{$R *.DFM} + +uses rCore, rConsults, uConsults, fConsults, fConsultAlertTo, rOrders; + +var + RecipientList: TRecipientList ; + +function SetActionContext(FontSize: Integer; ActionCode: integer; IsProcedure: boolean; ProcID: string; UserLevel: integer): boolean; +{ displays action input form for consults and sets up broker calls } +begin + Result := False; + frmConsultAction := TfrmConsultAction.Create(Application); + try + ResizeAnchoredFormToFont(frmConsultAction); + with frmConsultAction do + begin + //I wish I knew why the resize wasn't working on the buttons + cmdCancel.Left := pnlAllActions.ClientWidth - cmdCancel.Width -7; + cmdOK.Left := cmdCancel.Left - cmdOK.Width - 10; + FChanged := False; + FActionType := ActionCode ; + FIsProcedure := IsProcedure; + FProcIEN := StrToIntDef(Piece(ProcID, ';', 1), 0); + FUserLevel := UserLevel; + FUserIsRequester := (User.DUZ = ConsultRec.SendingProvider); + Caption := ActionType[ActionCode] ; + RecipientList.Recipients := '' ; + RecipientList.Changed := False ; + + case FActionType of + CN_ACT_FORWARD: if not SetupForward(FIsProcedure, FProcIEN) then exit; + CN_ACT_ADD_CMT: SetupAddComment; + CN_ACT_ADMIN_COMPLETE: SetupAdminComplete; + CN_ACT_SIGFIND: SetupSigFindings; + CN_ACT_RECEIVE: SetupReceive; + CN_ACT_SCHEDULE: SetupSchedule; + else SetupOther; + end; + + ShowModal ; + Result := FChanged ; + end ; + finally + frmConsultAction.Release; + end; +end; + +//=================== Setup form for different actions =========================== + +function TfrmConsultAction.SetupForward(IsProcedure: boolean; ProcIEN: integer): boolean; +var + i: integer; + OrdItmIEN: integer; +begin + pnlSigFind.Visible := False; + with frmConsultAction do Height := Height - pnlSigFind.Height; + pnlComments.Visible := True; + memComments.Clear; + if IsProcedure then + begin + OrdItmIEN := GetOrderableIEN(IntToStr(ConsultRec.ORFileNumber)); + SvcList.Assign(GetProcedureServices(OrdItmIEN)); + //SvcList.Assign(GetProcedureServices(ProcIEN)); RPC expects pointer to 101.43, NOT 123.3 (RV) + i := SvcList.IndexOf(IntToStr(ConsultRec.ToService) + U + Trim(ExternalName(ConsultRec.ToService, 123.5))); + if i > -1 then SvcList.Delete(i); + treService.Visible := False; + end + else + SvcList.Assign(LoadServiceListWithSynonyms(CN_SVC_LIST_FWD, ConsultRec.IEN)); {RV} + if (IsProcedure and (SvcList.Count <= 0)) then + begin + InfoBox(TX_FWD_NO_PROC_SVCS_TEXT, TX_NOFORWARD_CAP, MB_OK or MB_ICONWARNING); + Result := False ; + Exit ; + end + else if ((not IsProcedure) and (Piece(SvcList.Strings[0],U,1) = '-1')) then + begin + InfoBox(TX_FWD_NO_CSLT_SVCS_TEXT, TX_NOFORWARD_CAP, MB_OK or MB_ICONWARNING); + Result := False ; + Exit ; + end + else + begin + SortByPiece(TStringList(SvcList), U, 2); {RV} + for i := 0 to SvcList.Count - 1 do + if (cboService.Items.IndexOf(Trim(Piece(SvcList.Strings[i], U, 2))) = -1) and {RV} + (Piece(SvcList.Strings[i], U, 5) <> '1') then + cboService.Items.Add(SvcList.Strings[i]); + if not IsProcedure then + begin + BuildServiceTree(treService, SvcList, '0', nil) ; + with treService do + for i:=0 to Items.Count-1 do + begin + if Items[i].Level > 0 then Items[i].Expanded := False + else Items[i].Expanded := True; + TopItem := Items[0] ; + Selected := Items[0] ; + end ; + end; + pnlForward.Visible := True ; + end ; + if cboService.Items.Count = 1 then cboService.ItemIndex := 0; + FToService := cboService.ItemIEN; + cboAttentionOf.InitLongList('') ; + with cboUrgency do + begin + Items.Assign(SubsetofUrgencies(ConsultRec.IEN)) ; + MixedCaseList(Items) ; + SelectByIEN(ConsultRec.Urgency); + if ItemIndex = -1 then + begin + for i := 0 to Items.Count-1 do + if DisplayText[i] = 'Routine' then break ; + ItemIndex := i ; + end; + end ; + FUrgency := cboUrgency.ItemIEN; + //lblActionBy.Caption := 'Responsible Clinician'; // v20.1 RV + //cboPerson.OnNeedData := ProviderNeedData; // + lblActionBy.Caption := 'Responsible Person'; // + cboPerson.Caption := lblActionBy.Caption; + cboPerson.OnNeedData := NewPersonNeedData; // + cboPerson.InitLongList(User.Name) ; + cboPerson.SelectByIEN(User.DUZ); + ckAlert.Visible := False ; + lblAutoAlerts.Visible := False; + Result := True; +end; + +procedure TfrmConsultAction.SetupAddComment; +begin + pnlForward.Visible := False ; + //with frmConsultAction do Width := Width - pnlForward.Width ; + pnlSigFind.Visible := False; + with frmConsultAction do Height := Height - pnlSigFind.Height; + ckAlert.Visible := True ; + lblAutoAlerts.Visible := True; + ShowAutoAlertText; +(* RecipientList.Recipients := '' ; + RecipientList.Changed := False ;*) + lblActionBy.Visible := False ; + cboPerson.Visible := False ; + pnlComments.Visible := True; + memComments.Clear; + ActiveControl := memComments ; +end; + +procedure TfrmConsultAction.SetupSchedule; +begin + pnlForward.Visible := False ; + //with frmConsultAction do Width := Width - pnlForward.Width ; + pnlSigFind.Visible := False; + with frmConsultAction do Height := Height - pnlSigFind.Height; + ckAlert.Visible := True ; + lblAutoAlerts.Visible := True; + ShowAutoAlertText; +(* RecipientList.Recipients := '' ; + RecipientList.Changed := False ;*) + lblActionBy.Visible := True ; + cboPerson.Visible := True ; + lblActionBy.Caption := 'Responsible Person'; + cboPerson.Caption := lblActionBy.Caption; + cboPerson.OnNeedData := NewPersonNeedData; + cboPerson.InitLongList(User.Name) ; + cboPerson.SelectByIEN(User.DUZ); + pnlComments.Visible := True; + memComments.Clear; + ActiveControl := memComments ; +end; + +procedure TfrmConsultAction.SetupAdminComplete; +begin + SigFindPanelShow ; + pnlForward.Visible := False ; + //with frmConsultAction do Width := Width - pnlForward.Width ; + ckAlert.Visible := False ; + lblAutoAlerts.Visible := False; + + //lblActionBy.Caption := 'Responsible Provider'; + //cboPerson.OnNeedData := ProviderNeedData; //RIC-0100-21228 - need ALL users here + //cboPerson.InitLongList('') ; + //cboPerson.ItemIndex := -1; + lblActionBy.Caption := 'Responsible Person'; + cboPerson.Caption := lblActionBy.Caption; + cboPerson.OnNeedData := NewPersonNeedData; + cboPerson.InitLongList(User.Name) ; + cboPerson.SelectByIEN(User.DUZ); + + pnlComments.Visible := True; + memComments.Clear; +(* if not FUserIsRequester then RecipientList.Recipients := IntToStr(ConsultRec.SendingProvider); + RecipientList.Changed := not FUserIsRequester;*) + ActiveControl := memComments ; +end; + +procedure TfrmConsultAction.SetupSigFindings; +begin + SigFindPanelShow ; + pnlForward.Visible := False ; + //with frmConsultAction do Width := Width - pnlForward.Width ; + ckAlert.Visible := True ; + lblAutoAlerts.Visible := True; + ShowAutoAlertText; +(* RecipientList.Recipients := '' ; + RecipientList.Changed := False ;*) + lblActionBy.Visible := False ; + cboPerson.Visible := False ; + pnlComments.Visible := True; + memComments.Clear; + ActiveControl := memComments ; +end; + +procedure TfrmConsultAction.SigFindPanelShow; +var + i: integer; +begin + pnlSigFind.Visible := True; + with grpSigFindings do + begin + for i := 0 to 2 do if Copy(Items[i],1,1)=ConsultRec.Findings then ItemIndex := i ; + if ItemIndex = -1 then + begin + ItemIndex := 2; + Caption := Caption + 'Not yet entered'; + end + else + Caption := Caption + Items[ItemIndex]; + end; +end ; + +procedure TfrmConsultAction.SetupReceive; +begin + pnlForward.Visible := False ; + //with frmConsultAction do Width := Width - pnlForward.Width ; + pnlComments.Visible := True; // V14? + ckAlert.Visible := False ; + lblAutoAlerts.Visible := False; + pnlSigFind.Visible := False; + with frmConsultAction do Height := Height - pnlSigFind.Height;// - pnlComments.Height ; // V14? + cboPerson.OnNeedData := NewPersonNeedData; + cboPerson.InitLongList(User.Name) ; + cboPerson.SelectByIEN(User.DUZ); + ActiveControl := calDateOfAction; +end; + +procedure TfrmConsultAction.SetupOther; +begin + pnlForward.Visible := False ; + //with frmConsultAction do Width := Width - pnlForward.Width ; + pnlSigFind.Visible := False; + with frmConsultAction do Height := Height - pnlSigFind.Height; + lblActionBy.Caption := 'Action by'; + cboPerson.Caption := lblActionBy.Caption; + cboPerson.OnNeedData := NewPersonNeedData; + cboPerson.InitLongList(User.Name) ; + cboPerson.SelectByIEN(User.DUZ); + ckAlert.Visible := False ; + lblAutoAlerts.Visible := False; + pnlComments.Visible := True; + memComments.Clear; + ActiveControl := memComments ; +end; + +// ============================= Control events ================================ + +procedure TfrmConsultAction.NewPersonNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmConsultAction.ProviderNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + (Sender as TORComboBox).ForDataUse(SubSetOfProviders(StartFrom, Direction)); +end; + +procedure TfrmConsultAction.cmdCancelClick(Sender: TObject); +begin + FChanged := False ; + Close ; +end; + +procedure TfrmConsultAction.cmdOKClick(Sender: TObject); +var + Alist: TStringList; +begin + Alist := TStringList.Create ; + try + if (cboPerson.ItemIEN = 0) + and (FActionType <> CN_ACT_ADD_CMT) + and (FActionType <> CN_ACT_SIGFIND) then + begin + InfoBox(TX_PERSON_TEXT, TX_PERSON_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + + if ((FActionType = CN_ACT_SIGFIND) or (FActionType = CN_ACT_ADMIN_COMPLETE)) + and (grpSigFindings.ItemIndex < 0) then + begin + InfoBox(TX_SIGFIND_TEXT, TX_SIGFIND_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + + if ((FActionType = CN_ACT_DENY) + or (FActionType = CN_ACT_DISCONTINUE) + or (FActionType = CN_ACT_ADD_CMT) + or (FActionType = CN_ACT_ADMIN_COMPLETE)) + and (memComments.Lines.Count = 0) then + begin + InfoBox(TX_COMMENTS_TEXT, TX_COMMENTS_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + + if (FActionType = CN_ACT_FORWARD) then + begin + if (FIsProcedure and (cboService.ItemIndex = -1) and (FToService = 0 )) or + ((not FIsProcedure) and (treService.Selected = nil) and (FToService = 0 )) then + begin + InfoBox(TX_NOFORWARD_TEXT, TX_NOFORWARD_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + if (not FIsProcedure) and (cboService.ItemIEN = ConsultRec.ToService) then + begin + InfoBox(TX_NOFORWARD_SELF, TX_NOFORWARD_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + if cboUrgency.ItemIEN = 0 then + begin + InfoBox(TX_NOURGENCY_TEXT, TX_NOFORWARD_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + if (FIsProcedure and (Piece(cboService.Items[cboService.ItemIndex], U, 5) = '1')) or + ((not FIsProcedure) and (Piece(TORTreeNode(treService.Selected).StringData, U, 5) = '1')) then + begin + InfoBox(TX_NOTTHISSVC_TEXT, TX_NOFORWARD_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + end ; + + if calDateofAction.Text <> '' then + begin + FActionDate := StrToFMDateTime(calDateofAction.Text) ; + if FActionDate = -1 then + begin + InfoBox(TX_DATE_TEXT, TX_DATE_CAP, MB_OK or MB_ICONWARNING); + calDateofAction.SetFocus ; + exit ; + end + else if FActionDate > FMNow then + begin + InfoBox(TX_FUTDATE_TEXT, TX_DATE_CAP, MB_OK or MB_ICONWARNING); + calDateofAction.SetFocus ; + exit ; + end; + end + else + FActionDate := FMNow ; + + FActionBy := cboPerson.ItemIEN; + FAttentionOf := cboAttentionOf.ItemIEN ; + FUrgency := cboUrgency.ItemIEN ; + if (FActionType = CN_ACT_SIGFIND) or (FActionType = CN_ACT_ADMIN_COMPLETE) then + FSigFind := Copy(grpSigFindings.Items[grpSigFindings.ItemIndex],2,1); + LimitEditWidth(memComments, 74); + FComments := memComments.Lines ; + if ((ckAlert.Checked) (*or (FActionType = CN_ACT_ADMIN_COMPLETE)*)) + and RecipientList.Changed then + begin + FAlert := 1 ; + FAlertTo := RecipientList.Recipients ; + end + else + begin + FAlert := 0; + FAlertTo := ''; + end ; + + case FActionType of + CN_ACT_RECEIVE : + ReceiveConsult(Alist, ConsultRec.IEN, FActionBy, FActionDate, FComments) ; + CN_ACT_SCHEDULE : + ScheduleConsult(Alist, ConsultRec.IEN, FActionBy, FActionDate, FAlert, FAlertTo, FComments) ; + CN_ACT_DENY : + DenyConsult(Alist, ConsultRec.IEN, FActionBy, FActionDate, FComments) ; + CN_ACT_DISCONTINUE: + DiscontinueConsult(Alist, ConsultRec.IEN, FActionBy, FActionDate, FComments) ; + CN_ACT_FORWARD : + ForwardConsult(Alist, ConsultRec.IEN, FToService, FActionBy, FAttentionOf, FUrgency, FActionDate, FComments); + CN_ACT_ADD_CMT : + AddComment(Alist, ConsultRec.IEN, FComments, FActionDate, FAlert, FAlertTo) ; + CN_ACT_SIGFIND : + SigFindings(Alist, ConsultRec.IEN, FSigFind, FComments, FActionDate, FAlert, FAlertTo) ; + CN_ACT_ADMIN_COMPLETE : + AdminComplete(Alist,ConsultRec.IEN, FSigFind, FComments, FActionBy, FActionDate, FAlert, FAlertTo); + end ; + if AList.Count > 0 then + begin + if StrToInt(Piece(Alist[0],u,1)) > 0 then + begin + InfoBox(Piece(Alist[0],u,2), 'Unable to '+ActionType[FActionType], MB_OK or MB_ICONWARNING); + FChanged := False ; + end + else + FChanged := True; + end + else + FChanged := True ; + finally + Alist.Free ; + end ; + Close ; +end ; + +procedure TfrmConsultAction.ckAlertClick(Sender: TObject); +begin + if ckAlert.Checked then SelectRecipients(Font.Size, FActionType, RecipientList) ; +end; + + +procedure TfrmConsultAction.treServiceChange(Sender: TObject; Node: TTreeNode); +begin + if uChanging or FIsProcedure then Exit; + FToService := StrToIntDef(Piece(TORTreeNode(treService.Selected).StringData, U, 1), 0); +(* if (treService.Selected.Data <> nil) and (Piece(string(treService.Selected.Data), U, 5) <> '1') then + cboService.SelectByID(Piece(string(treService.Selected.Data), U, 1))*) + //cboService.SelectByID(Piece(string(treService.Selected.Data), U, 1)); + cboService.ItemIndex := cboService.Items.IndexOf(Trim(treService.Selected.Text)); {RV} + ActiveControl := cboService; {RV} +end; + +procedure TfrmConsultAction.treServiceExit(Sender: TObject); +begin +(* if (Piece(TORTreeNode(treService.Selected).StringData, U, 5) = '1') then WHY IS THIS IN HERE? (rv - v15.5) + InfoBox(TX_NOTTHISSVC_TEXT, TX_NOFORWARD_CAP, MB_OK or MB_ICONWARNING);*) +end; + +procedure TfrmConsultAction.cboServiceSelect(Sender: TObject); +var + i: integer; +begin + if not FIsProcedure then + begin + uChanging := True; + with treService do for i := 0 to Items.Count-1 do + begin + if Piece(TORTreeNode(Items[i]).StringData, U, 1) = cboService.ItemID then + begin + Selected := Items[i]; + //treServiceChange(Self, Items[i]); + break; + end; + end; + uChanging := False; + FToService := StrToIntDef(Piece(TORTreeNode(treService.Selected).StringData, U, 1), 0); + end + else + FToService := cboService.ItemIEN; +end; + +procedure TfrmConsultAction.ShowAutoAlertText; +const + TX_ALERT1 = 'An alert will automatically be sent to '; + TX_ALERT_PROVIDER = 'the ordering provider'; + TX_ALERT_SVC_USERS = 'notification recipients for this service.'; + TX_ALERT_NOBODY = 'No automatic alerts will be sent.'; // this should be rare to never +var + x: string; +begin + case FUserLevel of + UL_NONE, UL_REVIEW: + begin + if FUserIsRequester then + x := TX_ALERT1 + TX_ALERT_SVC_USERS + else + x := TX_ALERT1 + TX_ALERT_PROVIDER + ' and to ' + TX_ALERT_SVC_USERS; + end; + UL_UPDATE, UL_ADMIN, UL_UPDATE_AND_ADMIN: + begin + if FUserIsRequester then + x := TX_ALERT_NOBODY + else + x := TX_ALERT1 + TX_ALERT_PROVIDER + '.'; + end; + end; + lblAutoAlerts.Caption := x; +end; + +initialization + SvcList := TStringList.Create ; + +finalization + SvcList.Free ; + + +end. diff --git a/CPRS-Chart/Consults/fConsultAlertTo.dfm b/CPRS-Chart/Consults/fConsultAlertTo.dfm new file mode 100644 index 0000000..57cddd3 --- /dev/null +++ b/CPRS-Chart/Consults/fConsultAlertTo.dfm @@ -0,0 +1,103 @@ +object frmConsultAlertsTo: TfrmConsultAlertsTo + Left = 297 + Top = 206 + BorderStyle = bsDialog + Caption = 'Send Alert' + ClientHeight = 262 + ClientWidth = 358 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 358 + Height = 262 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object SrcLabel: TLabel + Left = 12 + Top = 14 + Width = 98 + Height = 13 + Caption = 'Select or enter name' + end + object DstLabel: TLabel + Left = 196 + Top = 14 + Width = 132 + Height = 13 + Caption = 'Currently selected recipients' + end + object cmdOK: TButton + Left = 105 + Top = 226 + Width = 75 + Height = 25 + Caption = 'OK' + ModalResult = 1 + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 185 + Top = 226 + Width = 75 + Height = 25 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 3 + OnClick = cmdCancelClick + end + object cboSrcList: TORComboBox + Left = 12 + Top = 30 + Width = 144 + Height = 185 + 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 + OnKeyDown = cboSrcListKeyDown + OnMouseClick = cboSrcListMouseClick + OnNeedData = cboSrcListNeedData + end + object DstList: TORListBox + Left = 196 + Top = 30 + Width = 144 + Height = 185 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = DstListClick + Caption = 'Currently selected recipients' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + end +end diff --git a/CPRS-Chart/Consults/fConsultAlertTo.pas b/CPRS-Chart/Consults/fConsultAlertTo.pas new file mode 100644 index 0000000..0f0b110 --- /dev/null +++ b/CPRS-Chart/Consults/fConsultAlertTo.pas @@ -0,0 +1,137 @@ +unit fConsultAlertTo; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ORCtrls, ORfn, ExtCtrls; + +type + TfrmConsultAlertsTo = class(TForm) + cmdOK: TButton; + cmdCancel: TButton; + cboSrcList: TORComboBox; + DstList: TORListBox; + SrcLabel: TLabel; + DstLabel: TLabel; + pnlBase: TORAutoPanel; + procedure cboSrcListNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + //procedure cboSrcListdblClick(Sender: TObject); + procedure cboSrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure DstListClick(Sender: TObject); + procedure cboSrcListMouseClick(Sender: TObject); + private + FActionType: integer; + FRecipients: string ; + FChanged: Boolean; + end; + +TRecipientList = record + Changed: Boolean; + Recipients: string ; + end; + +procedure SelectRecipients(FontSize: Integer; ActionType: integer; var RecipientList: TRecipientList) ; + +implementation + +{$R *.DFM} + +uses rConsults, rCore, uCore, uConsults, fConsults; + +const + TX_RCPT_TEXT = 'Select recipients or press Cancel.'; + TX_RCPT_CAP = 'No Recipients Selected'; + TX_REQ_TEXT = 'The requesting provider is always included in this type of alert'; + TX_REQ_CAP = 'Cannot Remove Recipient'; + +procedure SelectRecipients(FontSize: Integer; ActionType: integer; var RecipientList: TRecipientList) ; +{ displays recipients select form for consults and returns a record of the selection } +var + frmConsultAlertsTo: TfrmConsultAlertsTo; +begin + frmConsultAlertsTo := TfrmConsultAlertsTo.Create(Application); + try + ResizeAnchoredFormToFont(frmConsultAlertsTo); + with frmConsultAlertsTo do + begin + FActionType := ActionType; + FChanged := False; + cboSrcList.InitLongList(''); +(* cboSrcList.InitLongList(ConsultRec.SendingProviderName); + cboSrcList.SelectByIEN(ConsultRec.SendingProvider); + cboSrcListMouseClick(cboSrcList) ;*) + ShowModal; + with RecipientList do + begin + Recipients := Recipients + FRecipients ; + Changed := FChanged ; + end ; + end; {with frmConsultAlertsTo} + finally + frmConsultAlertsTo.Release; + end; +end; + +procedure TfrmConsultAlertsTo.cboSrcListNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmConsultAlertsTo.cmdCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmConsultAlertsTo.cmdOKClick(Sender: TObject); +var + i: integer ; +begin + if DstList.Items.Count = 0 then + begin + InfoBox(TX_RCPT_TEXT, TX_RCPT_CAP, MB_OK or MB_ICONWARNING); + FChanged := False ; + Exit; + end; + FChanged := True; + for i := 0 to DstList.Items.Count-1 do + FRecipients := Piece(DstList.Items[i],u,1) + ';' + FRecipients; + Close; +end; + +(*procedure TfrmConsultAlertsTo.cboSrcListdblClick(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 TfrmConsultAlertsTo.DstListClick(Sender: TObject); +begin + if DstList.ItemIndex = -1 then exit ; +(* if (DstList.ItemIEN = ConsultRec.SendingProvider) and + ((FActionType = CN_ACT_SIGFIND) or (FActionType = CN_ACT_ADMIN_COMPLETE)) then + begin + InfoBox(TX_REQ_TEXT, TX_REQ_CAP, MB_OK or MB_ICONWARNING); + exit ; + end ;*) + DstList.Items.Delete(DstList.ItemIndex) ; +end; + +procedure TfrmConsultAlertsTo.cboSrcListKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_RETURN then cboSrcListMouseClick(Self); +end; + +procedure TfrmConsultAlertsTo.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; + +end. diff --git a/CPRS-Chart/Consults/fConsultBD.dfm b/CPRS-Chart/Consults/fConsultBD.dfm new file mode 100644 index 0000000..06937f6 --- /dev/null +++ b/CPRS-Chart/Consults/fConsultBD.dfm @@ -0,0 +1,92 @@ +object frmConsultsByDate: TfrmConsultsByDate + Left = 372 + Top = 217 + Width = 259 + Height = 178 + BorderIcons = [] + Caption = 'List Consults by Date Range' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 251 + Height = 151 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object lblBeginDate: TLabel + Left = 8 + Top = 8 + Width = 73 + Height = 13 + Caption = 'Beginning Date' + end + object lblEndDate: TLabel + Left = 8 + Top = 51 + Width = 59 + Height = 13 + Caption = 'Ending Date' + end + object calBeginDate: TORDateBox + Left = 8 + Top = 22 + Width = 155 + Height = 21 + TabOrder = 0 + DateOnly = False + RequireTime = False + Caption = 'Beginning Date' + end + object calEndDate: TORDateBox + Left = 8 + Top = 65 + Width = 155 + Height = 21 + TabOrder = 1 + DateOnly = False + RequireTime = False + Caption = 'Ending Date' + end + object radSort: TRadioGroup + Left = 8 + Top = 94 + Width = 155 + Height = 49 + Caption = 'Sort Order' + Items.Strings = ( + '&Ascending (oldest first)' + '&Descending (newest first)') + TabOrder = 2 + end + object cmdOK: TButton + Left = 171 + Top = 95 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 3 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 171 + Top = 122 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 4 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Consults/fConsultBD.pas b/CPRS-Chart/Consults/fConsultBD.pas new file mode 100644 index 0000000..52a4a51 --- /dev/null +++ b/CPRS-Chart/Consults/fConsultBD.pas @@ -0,0 +1,127 @@ +unit fConsultBD; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ORFN, + StdCtrls, ExtCtrls, ORCtrls, ORDtTm, uConsults; + +type + TfrmConsultsByDate = class(TForm) + pnlBase: TORAutoPanel; + lblBeginDate: TLabel; + calBeginDate: TORDateBox; + lblEndDate: TLabel; + calEndDate: TORDateBox; + radSort: TRadioGroup; + cmdOK: TButton; + cmdCancel: TButton; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure calBeginDateKeyPress(Sender: TObject; var Key: Char); + procedure calEndDateKeyPress(Sender: TObject; var Key: Char); + private + FChanged: Boolean; + FBeginDate: string; + FEndDate: string; + FAscending: Boolean; + end; + + TConsultDateRange = record + Changed: Boolean; + BeginDate: string; + EndDate: string; + Ascending: Boolean; + end; + +function SelectConsultDateRange(FontSize: Integer; CurrentContext: TSelectContext; var ConsultDateRange: TConsultDateRange): boolean; + +implementation + +{$R *.DFM} + +uses rCore, rConsults; + +const + TX_DATE_ERR = 'Enter valid beginning and ending dates or press Cancel.'; + TX_DATE_ERR_CAP = 'Error in Date Range'; + +function SelectConsultDateRange(FontSize: Integer; CurrentContext: TSelectContext; var ConsultDateRange: TConsultDateRange): boolean; +{ displays date range select form for progress Consults and returns a record of the selection } +var + frmConsultsByDate: TfrmConsultsByDate; + W, H: Integer; + CurrentBegin, CurrentEnd: string; +begin + frmConsultsByDate := TfrmConsultsByDate.Create(Application); + try + with frmConsultsByDate do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + FChanged := False; + with radSort do {if SortConsultsAscending then ItemIndex := 0 else} ItemIndex := 1; + CurrentBegin := CurrentContext.BeginDate; + CurrentEnd := CurrentContext.EndDate; + if CurrentBegin <> '' then + calBeginDate.Text := CurrentBegin; + if CurrentEnd <> '' then + calEndDate.Text := CurrentEnd; + if calEndDate.Text = '' then calEndDate.Text := 'TODAY'; + ShowModal; + with ConsultDateRange do + begin + Changed := FChanged; + BeginDate := FBeginDate; + EndDate := FEndDate; + Ascending := FAscending; + Result := Changed ; + end; {with ConsultDateRange} + end; {with frmConsultsByDate} + finally + frmConsultsByDate.Release; + end; +end; + +procedure TfrmConsultsByDate.cmdOKClick(Sender: TObject); +var + bdate, edate: TFMDateTime; +begin + bdate := StrToFMDateTime(calBeginDate.Text); + edate := StrToFMDateTime(calEndDate.Text); + if ((bdate > 0) and (edate > 0)) and (bdate <= edate) then + begin + FChanged := True; + FBeginDate := calBeginDate.Text; + FEndDate := calEndDate.Text; + FAscending := radSort.ItemIndex = 0; + Close; + end else + begin + InfoBox(TX_DATE_ERR, TX_DATE_ERR_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; +end; + +procedure TfrmConsultsByDate.cmdCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmConsultsByDate.calBeginDateKeyPress(Sender: TObject; + var Key: Char); +begin + if (Key = #13) then cmdOKClick(Self); +end; + +procedure TfrmConsultsByDate.calEndDateKeyPress(Sender: TObject; + var Key: Char); +begin + if (Key = #13) then cmdOKClick(Self); +end; + +end. diff --git a/CPRS-Chart/Consults/fConsultBS.dfm b/CPRS-Chart/Consults/fConsultBS.dfm new file mode 100644 index 0000000..e4cf278 --- /dev/null +++ b/CPRS-Chart/Consults/fConsultBS.dfm @@ -0,0 +1,101 @@ +object frmConsultsByService: TfrmConsultsByService + Left = 339 + Top = 175 + Width = 328 + Height = 412 + BorderIcons = [] + Caption = 'List Consults by Service' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 320 + Height = 385 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object lblService: TLabel + Left = 8 + Top = 8 + Width = 36 + Height = 13 + Caption = 'Service' + end + object radSort: TRadioGroup + Left = 52 + Top = 289 + Width = 212 + Height = 49 + Caption = 'Sort Order' + Items.Strings = ( + '&Ascending (A-Z)' + '&Descending (Z-A)') + TabOrder = 2 + end + object cmdOK: TButton + Left = 70 + Top = 350 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 3 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 157 + Top = 350 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 4 + OnClick = cmdCancelClick + end + object treService: TORTreeView + Left = 7 + Top = 57 + Width = 305 + Height = 225 + HideSelection = False + Indent = 19 + ReadOnly = True + TabOrder = 1 + OnChange = treServiceChange + Caption = 'Service' + NodePiece = 0 + end + object cboService: TORComboBox + Left = 8 + Top = 28 + Width = 305 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Service' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + OnKeyPause = cboServiceSelect + OnMouseClick = cboServiceSelect + end + end +end diff --git a/CPRS-Chart/Consults/fConsultBS.pas b/CPRS-Chart/Consults/fConsultBS.pas new file mode 100644 index 0000000..5f788b0 --- /dev/null +++ b/CPRS-Chart/Consults/fConsultBS.pas @@ -0,0 +1,165 @@ +unit fConsultBS; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, ORCtrls, StdCtrls, ORFn, ComCtrls, uConsults; + +type + TfrmConsultsByService = class(TForm) + pnlBase: TORAutoPanel; + lblService: TLabel; + radSort: TRadioGroup; + cmdOK: TButton; + cmdCancel: TButton; + treService: TORTreeView; + cboService: TORComboBox; + procedure cmdCancelClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure treServiceChange(Sender: TObject; Node: TTreeNode); + procedure cboServiceSelect(Sender: TObject); + private + FChanged: Boolean; + FService: string; + FServiceName: string; + FAscending: Boolean; + fConsultUser: boolean ; + end; + + TServiceContext = record + Changed: Boolean; + Service: string; + ServiceName: string; + Ascending: Boolean; + ConsultUser: Boolean ; + end; + +function SelectService(FontSize: Integer; CurrentContext: TSelectContext; var ServiceContext: TServiceContext): boolean; + +implementation + +{$R *.DFM} + +uses rConsults, rCore, uCore; + +var + SvcList: TStrings ; + SvcInfo: string ; + uChanging: Boolean; + +const + TX_SVC_TEXT = 'Select a consult service or press Cancel.'; + TX_SVC_CAP = 'Missing Service'; + +function SelectService(FontSize: Integer; CurrentContext: TSelectContext; var ServiceContext: TServiceContext): boolean; +{ displays service select form for consults and returns a record of the selection } +var + frmConsultsByService: TfrmConsultsByService; + W, H, i: Integer; + CurrentService: string; +begin + frmConsultsByService := TfrmConsultsByService.Create(Application); + try + with frmConsultsByService do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + FChanged := False; + //SvcList.Assign(LoadServiceList(CN_SVC_LIST_DISP)); {RV} + SvcList.Assign(LoadServiceListWithSynonyms(CN_SVC_LIST_DISP)); {RV} + SortByPiece(TStringList(SvcList), U, 2); {RV} + for i := 0 to SvcList.Count - 1 do + if cboService.Items.IndexOf(Trim(Piece(SvcList.Strings[i], U, 2))) = -1 then {RV} + //if cboService.SelectByID(Piece(SvcList.Strings[i], U, 1)) = -1 then + cboService.Items.Add(SvcList.Strings[i]); + BuildServiceTree(treService, SvcList, '0', nil) ; + with treService do + for i := 0 to Items.Count-1 do + begin + if Items[i].Level > 0 then Items[i].Expanded := False else Items[i].Expanded := True; + TopItem := Items[0] ; + Selected := Items[0] ; + end ; + FAscending := CurrentContext.Ascending; + radSort.ItemIndex := Ord(not FAscending); + CurrentService := CurrentContext.Service; + if StrToIntDef(CurrentService, 0) > 0 then + begin + cboservice.SelectByID(CurrentService); + cboServiceSelect(frmConsultsByService); + end; + ShowModal; + with ServiceContext do + begin + Changed := FChanged; + Service := FService; + ServiceName := FServiceName; + Ascending := FAscending; + ConsultUser := FConsultUser ; + Result := Changed ; + end; {with ServiceContext} + end; {with frmConsultsByService} + finally + frmConsultsByService.Release; + end; +end; + +procedure TfrmConsultsByService.cmdCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmConsultsByService.cmdOKClick(Sender: TObject); +begin + if (treService.Selected = nil) and (StrToIntDef(FService, 0) = 0 ) then + begin + InfoBox(TX_SVC_TEXT, TX_SVC_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + FChanged := True; + FService := Piece(SvcInfo,u,1); + FServiceName := Piece(SvcInfo,u,2) ; + FAscending := (radSort.ItemIndex = 0); + FConsultUser := ConsultServiceUser(StrToIntDef(FService, 0), User.DUZ) ; + Close; +end; + +procedure TfrmConsultsByService.treServiceChange(Sender: TObject; + Node: TTreeNode); +begin + if uChanging then Exit; + SvcInfo := TORTreeNode(treService.Selected).StringData ; + cboService.ItemIndex := cboService.Items.IndexOf(Trim(treService.Selected.Text)); {RV} + //cboService.SelectByID(Piece(string(treService.Selected.Data), U, 1)); +end; + +procedure TfrmConsultsByService.cboServiceSelect(Sender: TObject); +var + i: integer; +begin + uChanging := True; + with treService do for i := 0 to Items.Count-1 do + begin + if Piece(TORTreeNode(Items[i]).StringData, U, 1) = cboService.ItemID then + begin + Selected := Items[i]; + //treServiceChange(Self, Items[i]); + break; + end; + end; + uChanging := False; + SvcInfo := TORTreeNode(treService.Selected).StringData ; +end; + +initialization + SvcList := TStringList.Create ; + +finalization + SvcList.Free ; + +end. diff --git a/CPRS-Chart/Consults/fConsultBSt.dfm b/CPRS-Chart/Consults/fConsultBSt.dfm new file mode 100644 index 0000000..22c34ff --- /dev/null +++ b/CPRS-Chart/Consults/fConsultBSt.dfm @@ -0,0 +1,80 @@ +object frmConsultsByStatus: TfrmConsultsByStatus + Left = 286 + Top = 202 + Width = 316 + Height = 232 + BorderIcons = [] + Caption = 'List Consults by Status' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 308 + Height = 205 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object lblStatus: TLabel + Left = 8 + Top = 8 + Width = 30 + Height = 13 + Caption = 'Status' + end + object radSort: TRadioGroup + Left = 8 + Top = 148 + Width = 212 + Height = 49 + Caption = 'Sort Order' + Items.Strings = ( + '&Ascending (A-Z)' + '&Descending (Z-A)') + TabOrder = 1 + end + object lstStatus: TORListBox + Left = 8 + Top = 22 + Width = 212 + Height = 118 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + TabOrder = 0 + Caption = 'Status' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object cmdOK: TButton + Left = 228 + Top = 149 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 228 + Top = 176 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 3 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Consults/fConsultBSt.pas b/CPRS-Chart/Consults/fConsultBSt.pas new file mode 100644 index 0000000..d0cdafa --- /dev/null +++ b/CPRS-Chart/Consults/fConsultBSt.pas @@ -0,0 +1,120 @@ +unit fConsultBSt; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, ORCtrls, StdCtrls, ORFn, uConsults; + +type + TfrmConsultsByStatus = class(TForm) + pnlBase: TORAutoPanel; + lblStatus: TLabel; + radSort: TRadioGroup; + lstStatus: TORListBox; + cmdOK: TButton; + cmdCancel: TButton; + procedure cmdCancelClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + private + FChanged: Boolean; + FStatus: string; + FStatusName: string; + FAscending: Boolean; + end; + + TStatusContext = record + Changed: Boolean; + Status: string; + StatusName: string; + Ascending: Boolean; + end; + +function SelectStatus(FontSize: Integer; CurrentContext: TSelectContext; var StatusContext: TStatusContext): boolean ; + +implementation + +{$R *.DFM} + +uses rConsults, rCore, uCore; + +const + TX_STAT_TEXT = 'Select a consult status or press Cancel.'; + TX_STAT_CAP = 'Missing Status'; + +function SelectStatus(FontSize: Integer; CurrentContext: TSelectContext; var StatusContext: TStatusContext): boolean ; +{ displays Status select form for consults and returns a record of the selection } +var + frmConsultsByStatus: TfrmConsultsByStatus; + W, H, i, j: Integer; + CurrentStatus: string; +begin + frmConsultsByStatus := TfrmConsultsByStatus.Create(Application); + try + with frmConsultsByStatus do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + FChanged := False; + with radSort do {if SortConsultsAscending then ItemIndex := 0 else} ItemIndex := 1; + lstStatus.Items.Assign(SubSetOfStatus); + CurrentStatus := CurrentContext.Status; + if CurrentStatus <> '' then with lstStatus do + begin + i := 1; + while Piece(CurrentStatus, ',', i) <> '' do + begin + j := SelectByID(Piece(CurrentStatus, ',', i)); + if j > -1 then Selected[j] := True; + Inc(i); + end; + end; + ShowModal; + with StatusContext do + begin + Changed := FChanged; + Status := FStatus; + StatusName := FStatusName; + Ascending := FAscending; + Result := Changed ; + end; {with StatusContext} + end; {with frmConsultsByStatus} + finally + frmConsultsByStatus.Release; + end; +end; + +procedure TfrmConsultsByStatus.cmdCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmConsultsByStatus.cmdOKClick(Sender: TObject); +var + i: integer; +begin + if lstStatus.SelCount = 0 then + begin + InfoBox(TX_STAT_TEXT, TX_STAT_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + FChanged := True; + with lstStatus do for i := 0 to Items.Count-1 do if Selected[i] then + begin + if Piece(Items[i], U, 1) <> '999' then + FStatus := FStatus + Piece(Items[i], U, 1) + ',' + else + FStatus := FStatus + Piece(Items[i],U,3) ; + FStatusName := FStatusName + DisplayText[i] + ',' ; + end; + FStatus := Copy(FStatus, 1, Length(FStatus)-1); + FStatusName := Copy(FStatusName, 1, Length(FStatusName)-1); + FAscending := radSort.ItemIndex = 0; + Close; +end; + +end. diff --git a/CPRS-Chart/Consults/fConsults.dfm b/CPRS-Chart/Consults/fConsults.dfm new file mode 100644 index 0000000..386e29d --- /dev/null +++ b/CPRS-Chart/Consults/fConsults.dfm @@ -0,0 +1,1046 @@ +inherited frmConsults: TfrmConsults + Left = 247 + Top = 174 + Width = 723 + Height = 467 + HelpContext = 6000 + Caption = 'Consults Page' + Menu = mnuConsults + OnDestroy = FormDestroy + OnHide = FormHide + OnMouseMove = FormMouseMove + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + inherited shpPageBottom: TShape + Top = 416 + Width = 715 + end + inherited sptHorz: TSplitter + Left = 83 + Width = 2 + Height = 416 + OnCanResize = sptHorzCanResize + end + inherited pnlRight: TPanel [2] + Left = 85 + Width = 630 + Height = 416 + OnResize = pnlRightResize + object sptVert: TSplitter + Left = 0 + Top = 350 + Width = 630 + Height = 4 + Cursor = crVSplit + Align = alBottom + end + object pnlRead: TPanel + Left = 0 + Top = 0 + Width = 630 + Height = 350 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + OnExit = pnlResultsExit + object lblTitle: TOROffsetLabel + Left = 0 + Top = 0 + Width = 630 + Height = 19 + Align = alTop + Caption = 'Details of Selected Consult' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HorzOffset = 2 + ParentFont = False + ParentShowHint = False + ShowHint = True + Transparent = False + VertOffset = 6 + WordWrap = False + end + object memConsult: TRichEdit + Left = 0 + Top = 19 + Width = 630 + Height = 331 + Align = alClient + Color = clCream + Ctl3D = True + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + Lines.Strings = ( + + 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' + + 'mnopqrstuvwxyz12') + ParentCtl3D = False + ParentFont = False + PlainText = True + PopupMenu = popNoteMemo + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + WantReturns = False + WordWrap = False + OnMouseMove = FormMouseMove + end + end + object memPCEShow: TRichEdit + Left = 0 + Top = 354 + Width = 630 + Height = 62 + Align = alBottom + Color = clCream + TabOrder = 2 + WantReturns = False + end + object pnlResults: TPanel + Left = 0 + Top = 0 + Width = 630 + Height = 350 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + OnExit = pnlResultsExit + OnResize = pnlResultsResize + object memResults: TRichEdit + Left = 0 + Top = 67 + Width = 630 + Height = 283 + Align = alClient + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PopupMenu = popNoteMemo + ScrollBars = ssBoth + TabOrder = 1 + WantTabs = True + OnChange = memResultChange + OnKeyDown = memResultsKeyDown + OnMouseMove = FormMouseMove + end + object pnlFields: TPanel + Left = 0 + Top = 0 + Width = 630 + Height = 67 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + OnResize = pnlFieldsResize + DesignSize = ( + 630 + 67) + object bvlNewTitle: TBevel + Left = 5 + Top = 5 + Width = 117 + Height = 15 + end + object lblRefDate: TStaticText + Left = 237 + Top = 6 + Width = 101 + Height = 17 + Hint = 'Press "Change..." to change date/time of note.' + Alignment = taCenter + Caption = 'Oct 20,1999@15:30' + ParentShowHint = False + ShowAccelChar = False + ShowHint = True + TabOrder = 3 + end + object lblAuthor: TStaticText + Left = 402 + Top = 6 + Width = 152 + Height = 17 + Hint = 'Press "Change..." to select a different author.' + Alignment = taRightJustify + Anchors = [akTop, akRight] + Caption = 'Winchester,Charles Emerson III' + ParentShowHint = False + ShowAccelChar = False + ShowHint = True + TabOrder = 4 + end + object lblVisit: TStaticText + Left = 6 + Top = 21 + Width = 204 + Height = 17 + Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby' + ShowAccelChar = False + TabOrder = 5 + end + object lblCosigner: TStaticText + Left = 307 + Top = 21 + Width = 243 + Height = 13 + Hint = 'Press "Change..." to select a different cosigner.' + Alignment = taRightJustify + Anchors = [akTop, akRight] + AutoSize = False + Caption = 'Expected Cosigner: Winchester,Charles Emerson III' + ParentShowHint = False + ShowAccelChar = False + ShowHint = True + TabOrder = 6 + end + object lblSubject: TStaticText + Left = 6 + Top = 43 + Width = 43 + Height = 17 + Caption = 'Subject:' + TabOrder = 7 + end + object lblNewTitle: TStaticText + Left = 6 + Top = 6 + Width = 119 + Height = 17 + Hint = 'Press "Change..." to select a different title.' + Caption = ' General Medicine Note ' + Color = clCream + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentColor = False + ParentFont = False + ParentShowHint = False + ShowAccelChar = False + ShowHint = True + TabOrder = 2 + end + object cmdChange: TButton + Left = 556 + Top = 6 + Width = 58 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Change...' + TabOrder = 0 + OnClick = cmdChangeClick + OnMouseMove = FormMouseMove + end + object txtSubject: TCaptionEdit + Left = 48 + Top = 40 + Width = 566 + Height = 21 + Hint = 'Subject is limited to a maximum of 80 characters.' + Anchors = [akLeft, akTop, akRight] + MaxLength = 80 + ParentShowHint = False + ShowHint = True + TabOrder = 1 + Text = 'txtSubject' + OnMouseMove = FormMouseMove + Caption = 'Subject' + end + end + end + end + inherited pnlLeft: TPanel [3] + Width = 83 + Height = 416 + OnResize = pnlLeftResize + object splConsults: TSplitter + Left = 0 + Top = 161 + Width = 83 + Height = 3 + Cursor = crVSplit + Align = alTop + end + object pnlAction: TPanel + Left = 0 + Top = 164 + Width = 83 + Height = 231 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + OnExit = pnlActionExit + object splDrawers: TSplitter + Left = 0 + Top = 228 + Width = 83 + Height = 3 + Cursor = crVSplit + Align = alBottom + end + object cmdNewConsult: TORAlignButton + Left = 0 + Top = 21 + Width = 83 + Height = 21 + Caption = 'New Consult' + Constraints.MinHeight = 21 + TabOrder = 2 + OnClick = cmdNewConsultClick + OnMouseMove = FormMouseMove + Align = alTop + end + object cmdNewProc: TORAlignButton + Left = 0 + Top = 42 + Width = 83 + Height = 21 + Caption = 'New Procedure' + Constraints.MinHeight = 21 + TabOrder = 3 + OnClick = cmdNewProcClick + OnMouseMove = FormMouseMove + Align = alTop + end + object cmdEditResubmit: TORAlignButton + Left = 0 + Top = 0 + Width = 83 + Height = 21 + Caption = 'Edit/Resubmit' + Constraints.MinHeight = 21 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = cmdEditResubmitClick + OnMouseMove = FormMouseMove + Align = alTop + end + object lstNotes: TORListBox + Left = 0 + Top = 63 + Width = 83 + Height = 24 + Style = lbOwnerDrawFixed + ItemHeight = 13 + ParentShowHint = False + PopupMenu = popNoteMemo + ShowHint = True + TabOrder = 4 + Visible = False + OnClick = lstNotesClick + OnMouseMove = FormMouseMove + ItemTipColor = clWindow + LongList = False + Pieces = '2,3' + TabPositions = '10' + end + object tvCsltNotes: TORTreeView + Left = 0 + Top = 63 + Width = 83 + Height = 165 + Align = alClient + Constraints.MinWidth = 30 + HideSelection = False + Indent = 19 + PopupMenu = popNoteList + ReadOnly = True + TabOrder = 0 + OnChange = tvCsltNotesChange + OnClick = tvCsltNotesClick + OnCollapsed = tvCsltNotesCollapsed + OnDragDrop = tvCsltNotesDragDrop + OnDragOver = tvCsltNotesDragOver + OnExpanded = tvCsltNotesExpanded + OnMouseMove = FormMouseMove + OnStartDrag = tvCsltNotesStartDrag + Caption = 'Consult Notes' + NodePiece = 0 + end + end + object cmdPCE: TORAlignButton + Left = 0 + Top = 395 + Width = 83 + Height = 21 + Caption = 'Encounter' + Enabled = False + TabOrder = 2 + Visible = False + OnClick = cmdPCEClick + OnExit = pnlActionExit + OnMouseMove = FormMouseMove + Align = alBottom + end + object pnlConsultList: TPanel + Left = 0 + Top = 0 + Width = 83 + Height = 161 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object lblConsults: TOROffsetLabel + Left = 0 + Top = 0 + Width = 83 + Height = 19 + Align = alTop + Caption = 'Consults' + HorzOffset = 2 + Transparent = True + VertOffset = 6 + WordWrap = False + end + object lstConsults: TORListBox + Left = 0 + Top = 19 + Width = 83 + Height = 142 + Align = alClient + Ctl3D = True + ItemHeight = 13 + ParentCtl3D = False + ParentShowHint = False + PopupMenu = popConsultList + ShowHint = True + TabOrder = 1 + Visible = False + OnClick = lstConsultsClick + ItemTipColor = clWindow + LongList = False + Pieces = '2,3,4,5' + TabPositions = '10,15,42' + end + object tvConsults: TORTreeView + Left = 0 + Top = 19 + Width = 83 + Height = 142 + Align = alClient + HideSelection = False + Indent = 15 + PopupMenu = popNoteList + ReadOnly = True + TabOrder = 0 + OnAddition = tvConsultsAddition + OnClick = tvConsultsClick + OnCollapsed = tvConsultsCollapsed + OnDeletion = tvConsultsDeletion + OnExit = tvConsultsExit + OnExpanded = tvConsultsExpanded + OnKeyUp = tvConsultsKeyUp + OnMouseMove = FormMouseMove + Caption = 'Consults' + NodePiece = 0 + ShortNodeCaptions = True + end + end + end + object popNoteMemo: TPopupMenu + OnPopup = popNoteMemoPopup + Left = 589 + Top = 304 + object popNoteMemoCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = popNoteMemoCutClick + end + object popNoteMemoCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = popNoteMemoCopyClick + end + object popNoteMemoPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = popNoteMemoPasteClick + end + object popNoteMemoPaste2: TMenuItem + Caption = 'Paste2' + ShortCut = 8237 + Visible = False + OnClick = popNoteMemoPasteClick + end + object popNoteMemoReformat: TMenuItem + Caption = 'Re&format Paragraph' + ShortCut = 24658 + OnClick = popNoteMemoReformatClick + end + object popNoteMemoSaveContinue: TMenuItem + Caption = 'Save && Continue Editing' + ShortCut = 24659 + Visible = False + OnClick = popNoteMemoSaveContinueClick + end + object Z11: TMenuItem + Caption = '-' + end + object popNoteMemoFind: TMenuItem + Caption = '&Find in Selected Note/Consult' + OnClick = popNoteMemoFindClick + end + object popNoteMemoReplace: TMenuItem + Caption = '&Replace Text' + OnClick = popNoteMemoReplaceClick + end + object N14: TMenuItem + Caption = '-' + end + object popNoteMemoGrammar: TMenuItem + Caption = 'Check &Grammar' + OnClick = popNoteMemoGrammarClick + end + object popNoteMemoSpell: TMenuItem + Caption = 'C&heck Spelling' + OnClick = popNoteMemoSpellClick + end + object N5: TMenuItem + Caption = '-' + end + object popNoteMemoTemplate: TMenuItem + Caption = 'Copy into New &Template' + OnClick = popNoteMemoTemplateClick + end + object Z10: TMenuItem + Caption = '-' + end + object popNoteMemoSignList: TMenuItem + Caption = 'Add to Signature &List' + OnClick = mnuActSignatureListClick + end + object popNoteMemoDelete: TMenuItem + Caption = '&Delete Note...' + OnClick = mnuActNoteDeleteClick + end + object popNoteMemoEdit: TMenuItem + Caption = '&Edit Note...' + OnClick = mnuActNoteEditClick + end + object popNoteMemoAddend: TMenuItem + Caption = '&Make Addendum...' + OnClick = mnuActMakeAddendumClick + end + object popNoteMemoSave: TMenuItem + Caption = 'S&ave without Signature' + OnClick = mnuActSignatureSaveClick + end + object popNoteMemoSign: TMenuItem + Caption = '&Sign Note Now...' + OnClick = mnuActSignatureSignClick + end + object popNoteMemoAddlSign: TMenuItem + Caption = '&Identify Additional Signers' + OnClick = popNoteMemoAddlSignClick + end + object N7: TMenuItem + Caption = '-' + end + object popNoteMemoPrint: TMenuItem + Caption = 'P&rint Note' + OnClick = popNoteMemoPrintClick + end + object N15: TMenuItem + Caption = '-' + end + object popNoteMemoPreview: TMenuItem + Caption = 'Previe&w/Print Current Template' + ShortCut = 16471 + OnClick = popNoteMemoPreviewClick + end + object popNoteMemoInsTemplate: TMenuItem + Caption = 'Insert Current Template' + ShortCut = 16429 + OnClick = popNoteMemoInsTemplateClick + end + object popNoteMemoEncounter: TMenuItem + Caption = 'Edit Encounter Information' + ShortCut = 16453 + OnClick = cmdPCEClick + end + end + object popConsultList: TPopupMenu + Left = 523 + Top = 308 + object popConsultAll: TMenuItem + Tag = 1 + Caption = '&All Consults' + OnClick = mnuViewClick + end + object popConsultStatus: TMenuItem + Tag = 2 + Caption = 'Consults by Stat&us' + OnClick = mnuViewClick + end + object popConsultService: TMenuItem + Tag = 4 + Caption = 'Consults by &Service' + OnClick = mnuViewClick + end + object popConsultDates: TMenuItem + Tag = 5 + Caption = 'Consults by Date &Range' + OnClick = mnuViewClick + end + object popConsultCustom: TMenuItem + Tag = 6 + Caption = '&Custom View..' + OnClick = mnuViewClick + end + end + object mnuConsults: TMainMenu + Left = 461 + Top = 305 + object mnuView: TMenuItem + Caption = '&View' + GroupIndex = 3 + object mnuViewChart: TMenuItem + Caption = 'Chart &Tab' + object mnuChartCover: TMenuItem + Tag = 1 + Caption = 'Cover &Sheet' + ShortCut = 16467 + OnClick = mnuChartTabClick + end + object mnuChartProbs: TMenuItem + Tag = 2 + Caption = '&Problem List' + ShortCut = 16464 + OnClick = mnuChartTabClick + end + object mnuChartMeds: TMenuItem + Tag = 3 + Caption = '&Medications' + ShortCut = 16461 + OnClick = mnuChartTabClick + end + object mnuChartOrders: TMenuItem + Tag = 4 + Caption = '&Orders' + ShortCut = 16463 + OnClick = mnuChartTabClick + end + object mnuChartNotes: TMenuItem + Tag = 6 + Caption = 'Progress &Notes' + ShortCut = 16462 + OnClick = mnuChartTabClick + end + object mnuChartCslts: TMenuItem + Tag = 7 + Caption = 'Consul&ts' + ShortCut = 16468 + OnClick = mnuChartTabClick + end + object mnuChartSurgery: TMenuItem + Tag = 11 + Caption = 'S&urgery' + ShortCut = 16469 + OnClick = mnuChartTabClick + end + object mnuChartDCSumm: TMenuItem + Tag = 8 + Caption = '&Discharge Summaries' + ShortCut = 16452 + OnClick = mnuChartTabClick + end + object mnuChartLabs: TMenuItem + Tag = 9 + Caption = '&Laboratory' + ShortCut = 16460 + OnClick = mnuChartTabClick + end + object mnuChartReports: TMenuItem + Tag = 10 + Caption = '&Reports' + ShortCut = 16466 + OnClick = mnuChartTabClick + end + end + object mnuViewInformation: TMenuItem + Caption = 'Information' + OnClick = mnuViewInformationClick + object mnuViewDemo: TMenuItem + Tag = 1 + Caption = 'De&mographics...' + OnClick = ViewInfo + end + object mnuViewVisits: TMenuItem + Tag = 2 + Caption = 'Visits/Pr&ovider...' + OnClick = ViewInfo + end + object mnuViewPrimaryCare: TMenuItem + Tag = 3 + Caption = 'Primary &Care...' + OnClick = ViewInfo + end + object mnuViewMyHealtheVet: TMenuItem + Tag = 4 + Caption = 'MyHealthe&Vet...' + OnClick = ViewInfo + end + object mnuInsurance: TMenuItem + Tag = 5 + Caption = '&Insurance...' + OnClick = ViewInfo + end + object mnuViewFlags: TMenuItem + Tag = 6 + Caption = '&Flags...' + OnClick = ViewInfo + end + object mnuViewRemoteData: TMenuItem + Tag = 7 + Caption = 'Remote &Data...' + OnClick = ViewInfo + end + object mnuViewReminders: TMenuItem + Tag = 8 + Caption = '&Reminders...' + Enabled = False + OnClick = ViewInfo + end + object mnuViewPostings: TMenuItem + Tag = 9 + Caption = '&Postings...' + OnClick = ViewInfo + end + end + object Z3: TMenuItem + Caption = '-' + end + object mnuViewAll: TMenuItem + Tag = 1 + Caption = '&All Consults' + OnClick = mnuViewClick + end + object mnuViewByStatus: TMenuItem + Tag = 2 + Caption = 'Consults by Stat&us' + OnClick = mnuViewClick + end + object mnuViewByService: TMenuItem + Tag = 4 + Caption = 'Consults by &Service' + OnClick = mnuViewClick + end + object mnuViewByDate: TMenuItem + Tag = 5 + Caption = 'Consults by Date &Range' + OnClick = mnuViewClick + end + object mnuViewCustom: TMenuItem + Tag = 6 + Caption = 'Custo&m View' + OnClick = mnuViewClick + end + object N4: TMenuItem + Caption = '-' + end + object mnuViewSaveAsDefault: TMenuItem + Caption = 'Sa&ve as Default View' + OnClick = mnuViewSaveAsDefaultClick + end + object mnuViewReturntoDefault: TMenuItem + Caption = 'Return to De&fault View' + OnClick = mnuViewReturntoDefaultClick + end + object N13: TMenuItem + Caption = '-' + end + object mnuIconLegend: TMenuItem + Caption = 'Icon Legend' + OnClick = mnuIconLegendClick + end + end + object mnuAct: TMenuItem + Caption = '&Action' + GroupIndex = 4 + object mnuActNew: TMenuItem + Caption = '&New...' + Hint = 'Add consults or procedures' + object mnuActNewConsultRequest: TMenuItem + Tag = 1 + Caption = '&Consult...' + Hint = 'Creates a new consult' + OnClick = mnuActNewConsultRequestClick + end + object mnuActNewProcedure: TMenuItem + Tag = 9 + Caption = '&Procedure...' + Hint = 'Creates a new procedure' + OnClick = mnuActNewProcedureClick + end + end + object Z2: TMenuItem + Caption = '-' + end + object mnuActConsultRequest: TMenuItem + Caption = '&Consult Tracking...' + Hint = 'Actions related to the selected consult' + object mnuActReceive: TMenuItem + Tag = 1 + Caption = '&Receive' + OnClick = mnuActConsultClick + end + object mnuActSchedule: TMenuItem + Tag = 10 + Caption = 'Schedu&le' + OnClick = mnuActConsultClick + end + object mnuActDeny: TMenuItem + Tag = 2 + Caption = '&Cancel (Deny)' + OnClick = mnuActConsultClick + end + object mnuActEditResubmit: TMenuItem + Caption = '&Edit/Resubmit' + OnClick = mnuActEditResubmitClick + end + object mnuActDiscontinue: TMenuItem + Tag = 3 + Caption = '&Discontinue' + OnClick = mnuActConsultClick + end + object mnuActForward: TMenuItem + Tag = 4 + Caption = '&Forward' + OnClick = mnuActConsultClick + end + object mnuActAddComment: TMenuItem + Tag = 5 + Caption = '&Add Comment' + OnClick = mnuActConsultClick + end + object mnuActSigFindings: TMenuItem + Tag = 8 + Caption = '&Significant Findings' + OnClick = mnuActConsultClick + end + object mnuActAdminComplete: TMenuItem + Tag = 9 + Caption = 'Ad&ministrative Complete' + OnClick = mnuActConsultClick + end + object N3: TMenuItem + Caption = '-' + end + object mnuActDisplayDetails: TMenuItem + Caption = 'Display De&tails' + OnClick = mnuActDisplayDetailsClick + end + object mnuActDisplayResults: TMenuItem + Caption = 'Display Res&ults' + OnClick = mnuActDisplayResultsClick + end + object mnuActDisplaySF513: TMenuItem + Caption = 'Display SF &513' + OnClick = mnuActDisplaySF513Click + end + object mnuActPrintSF513: TMenuItem + Caption = '&Print SF 513' + OnClick = mnuActPrintSF513Click + end + end + object N1: TMenuItem + Caption = '-' + end + object mnuActConsultResults: TMenuItem + Caption = 'Consult &Results...' + object mnuActComplete: TMenuItem + Tag = 6 + Caption = 'Complete/&Update Results...' + ShortCut = 24661 + OnClick = mnuActCompleteClick + end + object mnuActMakeAddendum: TMenuItem + Tag = 7 + Caption = '&Make Addendum...' + Hint = 'Makes an addendum for the currently selected consult' + ShortCut = 24653 + OnClick = mnuActMakeAddendumClick + end + object mnuActAddIDEntry: TMenuItem + Caption = 'Add Ne&w Entry to Interdisciplinary Note' + OnClick = mnuActAddIDEntryClick + end + object mnuActAttachtoIDParent: TMenuItem + Caption = 'Attach to Interdisciplinary Note' + OnClick = mnuActAttachtoIDParentClick + end + object mnuActDetachFromIDParent: TMenuItem + Caption = 'Detac&h from Interdisciplinary Note' + OnClick = mnuActDetachFromIDParentClick + end + object N12: TMenuItem + Caption = '-' + end + object mnuActAttachMed: TMenuItem + Caption = 'A&ttach Medicine Results' + OnClick = mnuActAttachMedClick + end + object mnuActRemoveMed: TMenuItem + Caption = 'Remo&ve Medicine Results' + OnClick = mnuActRemoveMedClick + end + object N9: TMenuItem + Caption = '-' + end + object mnuActChange: TMenuItem + Caption = '&Change Title...' + ShortCut = 24643 + OnClick = mnuActChangeClick + end + object mnuActLoadBoiler: TMenuItem + Caption = 'Reload &Boilerplate Text' + OnClick = mnuActLoadBoilerClick + end + object N2: TMenuItem + Caption = '-' + end + object mnuActSignatureList: TMenuItem + Caption = 'Add to Signature &List' + Hint = + 'Adds the currently displayed consult to list of things to be sig' + + 'ned' + OnClick = mnuActSignatureListClick + end + object mnuActNoteDelete: TMenuItem + Caption = '&Delete Note...' + ShortCut = 24644 + OnClick = mnuActNoteDeleteClick + end + object mnuActNoteEdit: TMenuItem + Caption = '&Edit Note...' + ShortCut = 24645 + OnClick = mnuActNoteEditClick + end + object mnuActSignatureSave: TMenuItem + Caption = 'S&ave Without Signature' + Hint = 'Saves the consult that is being edited' + ShortCut = 24641 + OnClick = mnuActSignatureSaveClick + end + object mnuActSignatureSign: TMenuItem + Caption = 'Si&gn Note Now...' + ShortCut = 24647 + OnClick = mnuActSignatureSignClick + end + object mnuActIdentifyAddlSigners: TMenuItem + Caption = '&Identify Additional Signers' + OnClick = mnuActIdentifyAddlSignersClick + end + object N8: TMenuItem + Caption = '-' + end + object mnuActNotePrint: TMenuItem + Caption = 'P&rint Note' + OnClick = mnuActNotePrintClick + end + end + end + object mnuOptions: TMenuItem + Caption = '&Options' + GroupIndex = 4 + OnClick = mnuOptionsClick + object mnuEditTemplates: TMenuItem + Caption = 'Edit &Templates...' + OnClick = mnuEditTemplatesClick + end + object mnuNewTemplate: TMenuItem + Caption = 'Create &New Template...' + OnClick = mnuNewTemplateClick + end + object N6: TMenuItem + Caption = '-' + end + object mnuEditSharedTemplates: TMenuItem + Caption = 'Edit &Shared Templates...' + OnClick = mnuEditSharedTemplatesClick + end + object mnuNewSharedTemplate: TMenuItem + Caption = '&Create New Shared Template...' + OnClick = mnuNewSharedTemplateClick + end + object N10: TMenuItem + Caption = '-' + end + object mnuEditDialgFields: TMenuItem + Caption = 'Edit Template &Fields' + OnClick = mnuEditDialgFieldsClick + end + end + end + object timAutoSave: TTimer + Enabled = False + Interval = 300000 + OnTimer = timAutoSaveTimer + Left = 602 + Top = 110 + end + object popNoteList: TPopupMenu + OnPopup = popNoteListPopup + Left = 395 + Top = 307 + object popNoteListExpandSelected: TMenuItem + Caption = '&Expand Selected' + OnClick = popNoteListExpandSelectedClick + end + object popNoteListExpandAll: TMenuItem + Caption = 'E&xpand All' + OnClick = popNoteListExpandAllClick + end + object popNoteListCollapseSelected: TMenuItem + Caption = 'C&ollapse Selected' + OnClick = popNoteListCollapseSelectedClick + end + object popNoteListCollapseAll: TMenuItem + Caption = 'Co&llapse All' + OnClick = popNoteListCollapseAllClick + end + object N11: TMenuItem + Caption = '-' + end + object popNoteListAddIDEntry: TMenuItem + Caption = 'Add Ne&w Entry to Interdisciplinary Note' + OnClick = mnuActAddIDEntryClick + end + object popNoteListAttachtoIDParent: TMenuItem + Caption = 'Attach to Interdisciplinary Note' + OnClick = mnuActAttachtoIDParentClick + end + object popNoteListDetachFromIDParent: TMenuItem + Caption = 'Detac&h from Interdisciplinary Note' + OnClick = mnuActDetachFromIDParentClick + end + end + object dlgFindText: TFindDialog + Options = [frDown, frHideUpDown] + OnFind = dlgFindTextFind + Left = 628 + Top = 303 + end + object dlgReplaceText: TReplaceDialog + OnFind = dlgReplaceTextFind + OnReplace = dlgReplaceTextReplace + Left = 665 + Top = 303 + end +end diff --git a/CPRS-Chart/Consults/fConsults.pas b/CPRS-Chart/Consults/fConsults.pas new file mode 100644 index 0000000..aa8b93c --- /dev/null +++ b/CPRS-Chart/Consults/fConsults.pas @@ -0,0 +1,4830 @@ +unit fConsults; + + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ORDtTm, + fHSplit, stdCtrls, ExtCtrls, Menus, ComCtrls, ORCtrls, ORFn, uConsults, rOrders, uPCE, + ORClasses, uConst, fDrawers, rTIU, uTIU, uDocTree, RichEdit, fPrintList; + +type + TfrmConsults = class(TfrmHSplit) + mnuConsults: TMainMenu; + mnuView: TMenuItem; + mnuViewChart: TMenuItem; + mnuChartReports: TMenuItem; + mnuChartLabs: TMenuItem; + mnuChartDCSumm: TMenuItem; + mnuChartCslts: TMenuItem; + mnuChartNotes: TMenuItem; + mnuChartOrders: TMenuItem; + mnuChartMeds: TMenuItem; + mnuChartProbs: TMenuItem; + mnuChartCover: TMenuItem; + mnuAct: TMenuItem; + Z2: TMenuItem; + pnlRead: TPanel; + lblTitle: TOROffsetLabel; + memConsult: TRichEdit; + pnlAction: TPanel; + cmdNewConsult: TORAlignButton; + Z3: TMenuItem; + mnuViewAll: TMenuItem; + mnuViewByService: TMenuItem; + mnuViewByDate: TMenuItem; + mnuViewByStatus: TMenuItem; + cmdNewProc: TORAlignButton; + N1: TMenuItem; + mnuActConsultRequest: TMenuItem; + mnuActReceive: TMenuItem; + mnuActDeny: TMenuItem; + mnuActForward: TMenuItem; + mnuActDiscontinue: TMenuItem; + mnuActAddComment: TMenuItem; + mnuActComplete: TMenuItem; + mnuActNew: TMenuItem; + mnuActNewConsultRequest: TMenuItem; + mnuActNewProcedure: TMenuItem; + mnuActSignatureList: TMenuItem; + mnuActSignatureSave: TMenuItem; + mnuActSignatureSign: TMenuItem; + mnuActMakeAddendum: TMenuItem; + mnuViewCustom: TMenuItem; + pnlResults: TPanel; + memResults: TRichEdit; + mnuActNoteEdit: TMenuItem; + mnuActNoteDelete: TMenuItem; + sptVert: TSplitter; + memPCEShow: TRichEdit; + cmdEditResubmit: TORAlignButton; + cmdPCE: TORAlignButton; + mnuActConsultResults: TMenuItem; + N2: TMenuItem; + lstNotes: TORListBox; + popNoteMemo: TPopupMenu; + popNoteMemoCut: TMenuItem; + popNoteMemoCopy: TMenuItem; + popNoteMemoPaste: TMenuItem; + Z10: TMenuItem; + popNoteMemoSignList: TMenuItem; + popNoteMemoDelete: TMenuItem; + popNoteMemoEdit: TMenuItem; + popNoteMemoSave: TMenuItem; + popNoteMemoSign: TMenuItem; + popConsultList: TPopupMenu; + popConsultAll: TMenuItem; + popConsultStatus: TMenuItem; + popConsultService: TMenuItem; + popConsultDates: TMenuItem; + popConsultCustom: TMenuItem; + mnuActPrintSF513: TMenuItem; + N3: TMenuItem; + mnuActDisplayDetails: TMenuItem; + mnuActDisplayResults: TMenuItem; + mnuActDisplaySF513: TMenuItem; + mnuActSigFindings: TMenuItem; + mnuActAdminComplete: TMenuItem; + mnuActIdentifyAddlSigners: TMenuItem; + popNoteMemoAddlSign: TMenuItem; + Z11: TMenuItem; + popNoteMemoSpell: TMenuItem; + popNoteMemoGrammar: TMenuItem; + mnuActEditResubmit: TMenuItem; + N4: TMenuItem; + mnuViewSaveAsDefault: TMenuItem; + mnuViewReturntoDefault: TMenuItem; + splDrawers: TSplitter; + N5: TMenuItem; + popNoteMemoTemplate: TMenuItem; + mnuOptions: TMenuItem; + mnuEditTemplates: TMenuItem; + mnuNewTemplate: TMenuItem; + splConsults: TSplitter; + pnlConsultList: TPanel; + lblConsults: TOROffsetLabel; + lstConsults: TORListBox; + N6: TMenuItem; + mnuEditSharedTemplates: TMenuItem; + mnuNewSharedTemplate: TMenuItem; + popNoteMemoPrint: TMenuItem; + N7: TMenuItem; + N8: TMenuItem; + mnuActNotePrint: TMenuItem; + timAutoSave: TTimer; + pnlFields: TPanel; + lblNewTitle: TStaticText; + lblRefDate: TStaticText; + lblAuthor: TStaticText; + lblVisit: TStaticText; + lblCosigner: TStaticText; + lblSubject: TStaticText; + cmdChange: TButton; + txtSubject: TCaptionEdit; + mnuActSchedule: TMenuItem; + popNoteMemoPaste2: TMenuItem; + popNoteMemoReformat: TMenuItem; + N9: TMenuItem; + mnuActChange: TMenuItem; + mnuActLoadBoiler: TMenuItem; + bvlNewTitle: TBevel; + popNoteMemoSaveContinue: TMenuItem; + mnuActAttachMed: TMenuItem; + mnuActRemoveMed: TMenuItem; + N10: TMenuItem; + mnuEditDialgFields: TMenuItem; + tvCsltNotes: TORTreeView; + popNoteList: TPopupMenu; + popNoteListExpandSelected: TMenuItem; + popNoteListExpandAll: TMenuItem; + popNoteListCollapseSelected: TMenuItem; + popNoteListCollapseAll: TMenuItem; + N11: TMenuItem; + popNoteListDetachFromIDParent: TMenuItem; + N12: TMenuItem; + mnuActDetachFromIDParent: TMenuItem; + mnuActAddIDEntry: TMenuItem; + tvConsults: TORTreeView; + popNoteListAddIDEntry: TMenuItem; + N13: TMenuItem; + mnuIconLegend: TMenuItem; + dlgFindText: TFindDialog; + popNoteMemoFind: TMenuItem; + dlgReplaceText: TReplaceDialog; + N14: TMenuItem; + popNoteMemoReplace: TMenuItem; + mnuChartSurgery: TMenuItem; + mnuActAttachtoIDParent: TMenuItem; + popNoteListAttachtoIDParent: TMenuItem; + popNoteMemoAddend: TMenuItem; + N15: TMenuItem; + popNoteMemoPreview: TMenuItem; + popNoteMemoInsTemplate: TMenuItem; + popNoteMemoEncounter: TMenuItem; + mnuViewInformation: TMenuItem; + mnuViewDemo: TMenuItem; + mnuViewVisits: TMenuItem; + mnuViewPrimaryCare: TMenuItem; + mnuViewMyHealtheVet: TMenuItem; + mnuInsurance: TMenuItem; + mnuViewFlags: TMenuItem; + mnuViewReminders: TMenuItem; + mnuViewRemoteData: TMenuItem; + mnuViewPostings: TMenuItem; + procedure mnuChartTabClick(Sender: TObject); + procedure lstConsultsClick(Sender: TObject); + procedure pnlRightResize(Sender: TObject); + procedure cmdNewConsultClick(Sender: TObject); + procedure memResultChange(Sender: TObject); + procedure mnuActCompleteClick(Sender: TObject); + procedure mnuActAddIDEntryClick(Sender: TObject); + procedure mnuActSignatureSaveClick(Sender: TObject); + procedure mnuViewClick(Sender: TObject); + procedure mnuActSignatureListClick(Sender: TObject); + procedure mnuActSignatureSignClick(Sender: TObject); + procedure mnuActMakeAddendumClick(Sender: TObject); + procedure mnuActDetachFromIDParentClick(Sender: TObject); + procedure mnuActAttachtoIDParentClick(Sender: TObject); + procedure cmdPCEClick(Sender: TObject); + procedure mnuActConsultClick(Sender: TObject); + procedure mnuActNewConsultRequestClick(Sender: TObject); + procedure mnuActNoteEditClick(Sender: TObject); + procedure mnuActNoteDeleteClick(Sender: TObject); + procedure lstNotesClick(Sender: TObject); + procedure popNoteMemoCutClick(Sender: TObject); + procedure popNoteMemoCopyClick(Sender: TObject); + procedure popNoteMemoPasteClick(Sender: TObject); + procedure popNoteMemoPopup(Sender: TObject); + procedure NewPersonNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); + procedure cmdNewProcClick(Sender: TObject); + procedure mnuActNewProcedureClick(Sender: TObject); + procedure mnuActDisplayResultsClick(Sender: TObject); + procedure mnuActDisplaySF513Click(Sender: TObject); + procedure pnlResultsResize(Sender: TObject); + procedure mnuActPrintSF513Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure mnuActDisplayDetailsClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure mnuActIdentifyAddlSignersClick(Sender: TObject); + procedure popNoteMemoAddlSignClick(Sender: TObject); + procedure mnuActEditResubmitClick(Sender: TObject); + procedure EnableDisableOrdering; + procedure cmdEditResubmitClick(Sender: TObject); + procedure popNoteMemoSpellClick(Sender: TObject); + procedure popNoteMemoGrammarClick(Sender: TObject); + procedure mnuViewSaveAsDefaultClick(Sender: TObject); + procedure mnuViewReturntoDefaultClick(Sender: TObject); + procedure popNoteMemoTemplateClick(Sender: TObject); + procedure mnuEditTemplatesClick(Sender: TObject); + procedure mnuNewTemplateClick(Sender: TObject); + procedure pnlLeftResize(Sender: TObject); + procedure mnuOptionsClick(Sender: TObject); + procedure mnuEditSharedTemplatesClick(Sender: TObject); + procedure mnuNewSharedTemplateClick(Sender: TObject); + procedure popNoteMemoPrintClick(Sender: TObject); + procedure mnuActNotePrintClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure timAutoSaveTimer(Sender: TObject); + procedure cmdChangeClick(Sender: TObject); + procedure pnlFieldsResize(Sender: TObject); + procedure popNoteMemoReformatClick(Sender: TObject); + procedure mnuActChangeClick(Sender: TObject); + procedure mnuActLoadBoilerClick(Sender: TObject); + procedure popNoteMemoSaveContinueClick(Sender: TObject); + procedure ProcessMedResults(ActionType: string); + procedure mnuActAttachMedClick(Sender: TObject); + procedure mnuActRemoveMedClick(Sender: TObject); + procedure mnuEditDialgFieldsClick(Sender: TObject); + procedure tvCsltNotesChange(Sender: TObject; Node: TTreeNode); + procedure tvCsltNotesCollapsed(Sender: TObject; Node: TTreeNode); + procedure tvCsltNotesExpanded(Sender: TObject; Node: TTreeNode); + procedure tvCsltNotesStartDrag(Sender: TObject; + var DragObject: TDragObject); + procedure tvCsltNotesDragDrop(Sender, Source: TObject; X, Y: Integer); + procedure tvCsltNotesDragOver(Sender, Source: TObject; X, Y: Integer; + State: TDragState; var Accept: Boolean); + procedure popNoteListExpandSelectedClick(Sender: TObject); + procedure popNoteListExpandAllClick(Sender: TObject); + procedure popNoteListCollapseSelectedClick(Sender: TObject); + procedure popNoteListCollapseAllClick(Sender: TObject); + procedure tvCsltNotesClick(Sender: TObject); + procedure tvConsultsExpanded(Sender: TObject; Node: TTreeNode); + procedure tvConsultsCollapsed(Sender: TObject; Node: TTreeNode); + procedure tvConsultsClick(Sender: TObject); + procedure tvConsultsChange(Sender: TObject; Node: TTreeNode); + procedure popNoteListPopup(Sender: TObject); + procedure mnuIconLegendClick(Sender: TObject); + procedure popNoteMemoFindClick(Sender: TObject); + procedure dlgFindTextFind(Sender: TObject); + procedure dlgReplaceTextFind(Sender: TObject); + procedure dlgReplaceTextReplace(Sender: TObject); + procedure popNoteMemoReplaceClick(Sender: TObject); + procedure tvConsultsKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memResultsKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure sptHorzCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); + procedure popNoteMemoPreviewClick(Sender: TObject); + procedure popNoteMemoInsTemplateClick(Sender: TObject); + procedure tvConsultsAddition(Sender: TObject; Node: TTreeNode); + procedure tvConsultsDeletion(Sender: TObject; Node: TTreeNode); + procedure tvConsultsExit(Sender: TObject); + procedure pnlResultsExit(Sender: TObject); + procedure pnlActionExit(Sender: TObject); + procedure FormHide(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure ViewInfo(Sender: TObject); + procedure mnuViewInformationClick(Sender: TObject); + private + FEditingIndex: Integer; // TIU index of document being currently edited + FChanged: Boolean; + FActionType: integer ; + FEditCtrl: TCustomEdit; + FSilent: Boolean; + FCurrentContext: TSelectContext; + FDefaultContext: TSelectContext; + FCurrentNoteContext: TTIUContext; + FOrderID: string; + FImageFlag: TBitmap; + FEditNote: TEditNoteRec; + FVerifyNoteTitle: Integer; + FDocList: TStringList; + FConfirmed: boolean; + FCsltList: TStringList; + FDeleted: boolean; + FLastNoteID: string; + FcmdChangeOKPressed: boolean; + FNotifPending: boolean; + FOldFramePnlPatientExit: TNotifyEvent; + FOldDrawerPnlTemplatesButtonExit: TNotifyEvent; + FOldDrawerPnlEncounterButtonExit: TNotifyEvent; + FOldDrawerEdtSearchExit: TNotifyEvent; + FMousing: TDateTime; + procedure frmFramePnlPatientExit(Sender: TObject); + procedure frmDrawerPnlTemplatesButtonExit(Sender: TObject); + procedure frmDrawerPnlEncounterButtonExit(Sender: TObject); + procedure frmDrawerEdtSearchExit(Sender: TObject); + procedure DoAutoSave(Suppress: integer = 1); + function GetTitleText(AnIndex: Integer): string; + //function MakeTitleText(IsAddendum: Boolean = False): string; + procedure ClearEditControls; + procedure LoadForEdit ; + function LacksRequiredForCreate: Boolean; + function LacksClinProcFields(AnEditRec: TEditNoteRec; AMenuAccessRec: TMenuAccessRec; var ErrMsg: string): boolean; + function LacksClinProcFieldsForSignature(NoteIEN: int64; var ErrMsg: string): boolean; + procedure UpdateList; + procedure DisplayPCE; + procedure CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean); + procedure InsertAddendum; + procedure SetSubjectVisible(ShouldShow: Boolean); + procedure SaveCurrentNote(var Saved: Boolean); + procedure SaveEditedConsult(var Saved: Boolean); + procedure SetEditingIndex(const Value: Integer); + procedure ShowPCEControls(ShouldShow: Boolean); + procedure SetActionMenus ; + procedure SetResultMenus ; + procedure RemovePCEFromChanges(IEN: Integer; AVisitStr: string = ''); + procedure ProcessNotifications; + procedure UMNewOrder(var Message: TMessage); message UM_NEWORDER; + procedure SetViewContext(AContext: TSelectContext); + function GetDrawers: TFrmDrawers; + function LockConsultRequest(AConsult: Integer): Boolean; + function LockConsultRequestAndNote(AnIEN: Int64): Boolean; + function StartNewEdit(NewNoteType: integer): Boolean; + procedure UnlockConsultRequest(ANote: Int64; AConsult: Integer = 0); + function CanFinishReminder: boolean; + property EditingIndex: Integer read FEditingIndex write SetEditingIndex; + function VerifyNoteTitle: Boolean; + procedure UpdateNoteTreeView(DocList: TStringList; Tree: TORTreeView; AContext: integer); + procedure EnableDisableIDNotes; + procedure LoadConsults; + procedure UpdateConsultsTreeView(DocList: TStringList; Tree: TORTreeView); + procedure DoAttachIDChild(AChild, AParent: TORTreeNode); + function UserIsSigner(NoteIEN: integer): boolean; + public + function ActiveEditOf(AnIEN: Int64): Boolean; + function AllowContextChange(var WhyNot: string): Boolean; override; + procedure ClearPtData; override; + procedure DisplayPage; override; + procedure SetFontSize(NewFontSize: Integer); override; + procedure SaveSignItem(const ItemID, ESCode: string); + procedure RequestPrint; override; + procedure RequestMultiplePrint(AForm: TfrmPrintList); + procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; + function AuthorizedUser: Boolean; + procedure AssignRemForm; + property OrderID: string read FOrderID; + procedure LstConsultsToPrint; + published + property Drawers: TFrmDrawers read GetDrawers; // Keep Drawers published + end; + +var + frmConsults: TfrmConsults; + +const + CN_ACT_RECEIVE = 1 ; + CN_ACT_DENY = 2 ; + CN_ACT_DISCONTINUE = 3 ; + CN_ACT_FORWARD = 4 ; + CN_ACT_ADD_CMT = 5 ; + CN_ACT_COMPLETE = 6 ; + CN_ACT_ADDENDUM = 7 ; + CN_ACT_SIGFIND = 8 ; + CN_ACT_ADMIN_COMPLETE = 9 ; + CN_ACT_SCHEDULE = 10; + CN_ACT_CP_COMPLETE = 11; + + ActionType: array[1..11] of string = ('Receive Consult','Cancel (Deny) Consult', + 'Discontinue Consult','Forward Consult','Add Comment to Consult', + 'Complete Consult', 'Make Addendum to Consult', 'Update Significant Findings', + 'Administratively Complete', 'Schedule Consult', 'Complete Clinical Procedure') ; + +implementation + +{$R *.DFM} + +uses fVisit, rCore, uCore, rConsults, fConsultBS, fConsultBD, fSignItem, + fConsultBSt, fConsultsView, fConsultAct, fEncnt, rPCE, fEncounterFrame, + Clipbrd, rReports, fRptBox, fConsult513Prt, fODConsult, fODProc, fCsltNote, fAddlSigners, + fOrders, rVitals, fFrame, fNoteDR, fEditProc, fEditConsult, uOrders, rODBase, uSpell, {*KCM*} + fTemplateEditor, fNotePrt, fNotes, fNoteProps, fNotesBP, fReminderTree, + fReminderDialog, uReminders, fConsMedRslt, fTemplateFieldEditor, + dShared, rTemplates, fIconLegend, fNoteIDParents, fNoteCPFields, + uTemplates, uAccessibleTreeView, uAccessibleTreeNode, fTemplateDialog, DateUtils; + +const + CT_ORDERS = 4; // ID for orders tab used by frmFrame + EF_VISIT_TYPE = 10; + EF_VITALS = 200; + EF_DIAGNOSES = 20; + EF_PROCEDURES = 30; + EF_ORDERS = 100; + + CA_CREATE = 0; // create new consult result + CA_SHOW = 1; // show current note + CA_SAVECREATE = 2; // save current then create + CA_EDIT = 3; // save current note, then edit an existing note + CA_SAVEEDIT = 4; + + CN_NEW_RESULT = -30; // Holder IEN for a new Consult Result + CN_ADDENDUM = -40; // Holder IEN for a new addendum + + NT_ACT_NEW_NOTE = 2; + NT_ACT_ADDENDUM = 3; + NT_ACT_EDIT_NOTE = 4; + NT_ACT_ID_ENTRY = 5; + + ST_DISCONTINUED = 1 ; + ST_COMPLETE = 2 ; + ST_HOLD = 3 ; + ST_FLAGGED = 4 ; + ST_PENDING = 5 ; + ST_ACTIVE = 6 ; + ST_EXPIRED = 7 ; + ST_SCHEDULED = 8 ; + ST_PARTIAL_RESULTS = 9 ; + ST_DELAYED = 10 ; + ST_UNRELEASED = 11 ; + ST_CHANGED = 12 ; + ST_CANCELLED = 13 ; + ST_LAPSED = 14 ; + ST_RENEWED = 15 ; + ST_NO_STATUS = 99 ; + + TYP_PROGRESS_NOTE = 3; + TYP_ADDENDUM = 81; + TX_PROV_LOC = 'A provider and location must be selected before entering orders.'; + TC_PROV_LOC = 'Incomplete Information'; + + TX_NEED_VISIT = 'A visit is required before creating a new consult result.'; + TX_NO_VISIT = 'Insufficient Visit Information'; + TX_BOILERPLT = 'You have modified the text of this note. Changing the title will' + + ' discard the note text.' + CRLF + 'Do you wish to continue?'; + TX_NEWTITLE = 'Change Consult Title'; + TX_REQD_CONSULT = 'The following information is required to save a Consult Result - ' + CRLF; + TX_REQD_ADDM = 'The following information is required to save an addendum - ' + CRLF; + TX_REQ2 = CRLF + CRLF + + 'It is recommended that these fields be entered before continuing' + CRLF + + 'to prevent losing the note should the application time out.'; + TX_CREATE_ERR = 'Error Creating Note'; + TX_UPDATE_ERR = 'Error Updating Note'; + TX_NO_CONSULT = 'No note is currently being edited'; + TX_SAVE_CONSULT = 'Save Note'; + TX_ADDEND_NO = 'Cannot make an addendum to a note that is being edited'; + TX_DEL_OK = CRLF + CRLF + 'Delete this note?'; + TX_DEL_ERR = 'Unable to Delete note'; + TX_SIGN = 'Sign Note'; + TX_COSIGN = 'Cosign Note'; + TX_REQD_COSIG = CRLF + 'Expected Cosigner'; + TX_REQ_COSIGNER = 'A cosigner must be identified.'; + TX_SIGN_ERR = 'Unable to Sign Note'; + TX_INVALID_CONSULT_CAP = 'Invalid consult record' ; + TX_INVALID_CONSULT_TEXT = 'Unable to retrieve the information for this consult.' ; + TX_SCREQD = 'This progress note title requires the service connected questions to be '+ + 'answered. The Encounter form will now be opened. Please answer all '+ + 'service connected questions.'; + TX_SCREQD_T = 'Response required for SC questions.'; + TX_NOPRT_NEW = 'This consult may not be printed until the current note is saved'; + TX_NOPRT_NEW_CAP = 'Save Consult Result'; + TX_NOCONSULT = 'No consult is currently selected.'; + TX_NOCSLT_CAP = 'No Consult Selected'; + TX_NONOTE = 'No note is currently selected.'; + TX_NONOTE_CAP = 'No Note Selected'; + TX_NO_ORDER = 'Ordering has been disabled.'; + TX_NO_ORDER_CAP = 'Unable to place order'; + TX_PROV_KEY = 'The provider selected for this encounter must' + CRLF + + 'hold the PROVIDER key to enter orders.'; + TC_PROV_KEY = 'PROVIDER Key Required'; + TX_NOKEY = 'You do not have the keys required to take this action.'; + TC_NOKEY = 'Insufficient Authority'; + TX_BADKEYS = 'You have mutually exclusive order entry keys (ORES, ORELSE, or OREMAS).' + + CRLF + 'This must be resolved before you can enter orders.'; + TC_BADKEYS = 'Multiple Keys'; + TX_NO_FUTURE_DT = 'A Reference Date/Time in the future is not allowed.'; + TX_ORDER_LOCKED = 'This record is locked by an action underway on the Notes tab'; + TC_ORDER_LOCKED = 'Unable to access record'; + TC_NO_RESUBMIT = 'Unable to resubmit'; + TX_NO_ORD_CHG = 'The note is still associated with the previously selected request.' + CRLF + + 'Finish the pending action, then try again.'; + TC_NO_ORD_CHG = 'Locked Consult Request'; + TX_NEW_SAVE1 = 'You are currently editing:' + CRLF + CRLF; + TX_NEW_SAVE2 = CRLF + CRLF + 'Do you wish to save this note and begin a new one?'; + TX_NEW_SAVE3 = CRLF + CRLF + 'Do you wish to save this note and begin a new addendum?'; + TX_NEW_SAVE4 = CRLF + CRLF + 'Do you wish to save this note and edit the one selected?'; + TX_NEW_SAVE5 = CRLF + CRLF + 'Do you wish to save this note and begin a new Interdisciplinary entry?'; + TC_NEW_SAVE2 = 'Create New Note'; + TC_NEW_SAVE3 = 'Create New Addendum'; + TC_NEW_SAVE4 = 'Edit Different Note'; + TC_NEW_SAVE5 = 'Create New Interdisciplinary Entry'; + TX_EMPTY_NOTE = CRLF + CRLF + 'This note contains no text and will not be saved.' + CRLF + + 'Do you wish to delete this note?'; + TC_EMPTY_NOTE = 'Empty Note'; + TX_EMPTY_NOTE1 = 'This note contains no text and can not be signed.'; + TC_NO_LOCK = 'Unable to Lock Note'; + TX_ABSAVE = 'It appears the session terminated abnormally when this' + CRLF + + 'note was last edited. Some text may not have been saved.' + CRLF + CRLF + + 'Do you wish to continue and sign the note?'; + TC_ABSAVE = 'Possible Missing Text'; + TX_NO_BOIL = 'There is no boilerplate text associated with this title.'; + TC_NO_BOIL = 'Load Boilerplate Text'; + TX_BLR_CLEAR = 'Do you want to clear the previously loaded boilerplate text?'; + TC_BLR_CLEAR = 'Clear Previous Boilerplate Text'; + TX_CP_NO_RESULTS = 'This Clinical Procedure cannot be completed yet.' + CRLF + + 'No results are available for interpretation.'; + TC_CP_NO_RESULTS = 'No Results Available'; + TX_CLIN_PROC = 'A procedure summary code and valid date/time for the procedure must be entered.'; + TX_NO_AUTHOR = 'An author must be entered for the note.'; + TC_CLIN_PROC = 'Missing Information for Clinical Procedures Document'; + TX_DETACH_CNF = 'Confirm Detachment'; + TX_DETACH_FAILURE = 'Detach failed'; + + DLG_CONSULT = 'C'; + DLG_PROC = 'P'; + TX_RETRACT_CAP = 'Retraction Notice'; + TX_RETRACT = 'This document will now be RETRACTED. As Such, it has been removed' +CRLF + + ' from public view, and from typical Releases of Information,' +CRLF + + ' but will remain indefinitely discoverable to HIMS.' +CRLF +CRLF; + TX_AUTH_SIGNED = 'Author has not signed, are you SURE you want to sign.' +CRLF; + +var + ViewContext, CurrNotifIEN: integer ; + SvcCtxt: TServiceContext; + StsCtxt: TStatusContext ; + DateRange: TConsultDateRange; + uSelectContext: TSelectContext ; + uPCEShow, uPCEEdit: TPCEData; + frmDrawers: TfrmDrawers; + MenuAccessRec: TMenuAccessRec; + MedResult: TMedResultRec; + uChanging: Boolean; + uIDNotesActive: boolean; + +{ TPage common methods --------------------------------------------------------------------- } + +function TfrmConsults.AllowContextChange(var WhyNot: string): Boolean; +begin + dlgFindText.CloseDialog; + Result := inherited AllowContextChange(WhyNot); // sets result = true + if Assigned(frmTemplateDialog) then + if Screen.ActiveForm = frmTemplateDialog then + //if (fsModal in frmTemplateDialog.FormState) then + case BOOLCHAR[frmFrame.CCOWContextChanging] of + '1': begin + WhyNot := 'A template in progress will be aborted. '; + Result := False; + end; + '0': begin + if WhyNot = 'COMMIT' then + begin + FSilent := True; + frmTemplateDialog.Silent := True; + frmTemplateDialog.ModalResult := mrCancel; + end; + end; + end; + if EditingIndex <> -1 then + case BOOLCHAR[frmFrame.CCOWContextChanging] of + '1': begin + if memResults.GetTextLen > 0 then + WhyNot := WhyNot + 'A note in progress will be saved as unsigned. ' + else + WhyNot := WhyNot + 'An empty note in progress will be deleted. '; + Result := False; + end; + '0': begin + if WhyNot = 'COMMIT' then FSilent := True; + SaveCurrentNote(Result); + end; + end; + if Assigned(frmEncounterFrame) then + if Screen.ActiveForm = frmEncounterFrame then + //if (fsModal in frmEncounterFrame.FormState) then + case BOOLCHAR[frmFrame.CCOWContextChanging] of + '1': begin + WhyNot := WhyNot + 'Encounter information being edited will not be saved'; + Result := False; + end; + '0': begin + if WhyNot = 'COMMIT' then + begin + FSilent := True; + frmEncounterFrame.Abort := False; + frmEncounterFrame.Cancel := True; + end; + end; + end; +end; + +procedure TfrmConsults.ClearPtData; +{ clear all controls that contain patient specific information } +begin + inherited ClearPtData; + ClearEditControls; + lstConsults.Clear; + memConsult.Clear; + memResults.Clear; + uChanging := True; + tvCsltNotes.Items.BeginUpdate; + KillDocTreeObjects(tvCsltNotes); + tvCsltNotes.Items.Clear; + tvCsltNotes.Items.EndUpdate; + tvConsults.Items.BeginUpdate; + tvConsults.Items.Clear; + tvConsults.Items.EndUpdate; + uChanging := False; + lstNotes.Clear ; + memPCEShow.Clear; + uPCEShow.Clear; + frmDrawers.ResetTemplates; + FOrderID := ''; +end; + +procedure TfrmConsults.SetViewContext(AContext: TSelectContext); +var + Saved: boolean; +begin + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + FCurrentContext := AContext; + CurrNotifIEN := 0; + EditingIndex := -1; + tvConsults.Enabled := True; + lstConsults.Enabled := True ; + lstNotes.Enabled := True ; + pnlRead.BringToFront ; + memConsult.TabStop := True; + with uSelectContext do + begin + BeginDate := FCurrentContext.BeginDate; + EndDate := FCurrentContext.EndDate; + Status := FCurrentContext.Status; + Service := FCurrentContext.Service; + Ascending := FCurrentContext.Ascending; + GroupBy := FCurrentContext.GroupBy; + Changed := True; + mnuViewClick(Self); + end; +end; + +procedure TfrmConsults.DisplayPage; +{ causes page to be visible and conditionally executes initialization code } +begin + inherited DisplayPage; + frmFrame.ShowHideChartTabMenus(mnuViewChart); + frmFrame.mnuFilePrint.Tag := CT_CONSULTS; + frmFrame.mnuFilePrint.Enabled := True; + frmFrame.mnuFilePrintSetup.Enabled := True; + frmFrame.mnuFilePrintSelectedItems.Enabled := True; + FNotifPending := False; + if InitPage then + begin + FDefaultContext := GetCurrentContext; + FCurrentContext := FDefaultContext; + popNoteMemoSpell.Visible := SpellCheckAvailable; + popNoteMemoGrammar.Visible := popNoteMemoSpell.Visible; + Z11.Visible := popNoteMemoSpell.Visible; + timAutoSave.Interval := User.AutoSave * 1000; // convert seconds to milliseconds + SetEqualTabStops(memResults); + end; + cmdEditResubmit.Visible := False; + EnableDisableIDNotes; + EnableDisableOrdering; + if InitPage then SendMessage(memConsult.Handle, EM_SETMARGINS, EC_LEFTMARGIN, 4); + if InitPatient and not (CallingContext = CC_NOTIFICATION) then + begin + SetViewContext(FDefaultContext); + end; + case CallingContext of + CC_INIT_PATIENT: if not InitPatient then + begin + SetViewContext(FDefaultContext); + end; + CC_NOTIFICATION: ProcessNotifications; + end; + //with tvConsults do if Selected <> nil then tvConsultsChange(Self, Selected); +end; + +procedure TfrmConsults.SetFontSize(NewFontSize: Integer); +{ adjusts the font size of any controls that don't have ParentFont = True } +begin + inherited SetFontSize(NewFontSize); + memConsult.Font.Size := NewFontSize; + memResults.Font.Size := NewFontSize; + lblTitle.Font.Size := NewFontSize; + frmDrawers.Font.Size := NewFontSize; + SetEqualTabStops(memResults); + // adjust heights of pnlAction, pnlFields, and memPCEShow +end; + +procedure TfrmConsults.mnuChartTabClick(Sender: TObject); +{ reroute to Chart Tab menu of the parent form: frmFrame } +begin + inherited; + frmFrame.mnuChartTabClick(Sender); +end; + +{ General procedures ----------------------------------------------------------------------- } + +procedure TfrmConsults.ClearEditControls; +begin + // clear FEditNote (should FEditNote be an object with a clear method?) + with FEditNote do + begin + DocType := 0; + Title := 0; + TitleName := ''; + DateTime := 0; + Author := 0; + AuthorName := ''; + Cosigner := 0; + CosignerName := ''; + Subject := ''; + Location := 0; + LocationName := ''; + //Consult := 0; + PkgRef := ''; + PkgIEN := 0; + PkgPtr := ''; + NeedCPT := False; + Addend := 0; + Lines := nil; + end; + // clear the editing controls (also clear the new labels?) + txtSubject.Text := ''; + memResults.Clear; + timAutoSave.Enabled := False; + // clear the PCE object for editing + uPCEEdit.Clear; + // set the tracking variables to initial state + EditingIndex := -1; + frmConsults.ActiveControl := nil; + ShowPCEControls(FALSE); + FChanged := False; +end; + +procedure TfrmConsults.CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean); +{ creates the editing context for a new progress note & inserts stub into top of view list } +const + USE_CURRENT_VISITSTR = -2; +var + EnableAutosave, HaveRequired: Boolean; + CreatedNote: TCreatedDoc; + TmpBoilerPlate: TStringList; + x, WhyNot: string; + tmpNode: TTreeNode; + AClassName: string; + DocInfo: string; +begin + EnableAutosave := FALSE; + TmpBoilerPlate := nil; + try + ClearEditControls; + tvConsults.Enabled := False; + lstConsults.Enabled := False ; + FillChar(FEditNote, SizeOf(FEditNote), 0); //v15.7 + with FEditNote do + begin + if UseClinProcTitles then + begin + DocType := IdentifyClinProcClass; + Title := DfltClinProcTitle; + TitleName := DfltClinProcTitleName; + AClassName := DCL_CLINPROC; + end + else + begin + DocType := TYP_PROGRESS_NOTE; + Title := DfltConsultTitle; + TitleName := DfltConsultTitleName; + AClassName := DCL_CONSULTS + end; + if IsIDChild and (not CanTitleBeIDChild(Title, WhyNot)) then + begin + Title := 0; + TitleName := ''; + end; + DateTime := FMNow; + Author := User.DUZ; + AuthorName := User.Name; + Location := Encounter.Location; + LocationName := Encounter.LocationName; + VisitDate := Encounter.DateTime; + if IsIDChild then + IDParent := AnIDParent + else + IDParent := 0; + PkgRef := lstConsults.ItemID + ';' + PKG_CONSULTS; + PkgIEN := lstConsults.ItemIEN; + PkgPtr := PKG_CONSULTS; + // Cosigner, if needed, will be set by fNoteProps + end; + // check to see if interaction necessary to get required fields + if LacksRequiredForCreate or VerifyNoteTitle + then HaveRequired := ExecuteNoteProperties(FEditNote, CT_CONSULTS, IsIDChild, False, AClassName, + MenuAccessRec.ClinProcFlag) + else HaveRequired := True; + // lock the consult request if there is a consult + if FEditNote.PkgIEN > 0 then HaveRequired := HaveRequired and LockConsultRequest(FEditNote.PkgIEN); + if HaveRequired then + begin + // set up uPCEEdit for entry of new note + uPCEEdit.UseEncounter := True; + uPCEEdit.NoteDateTime := FEditNote.DateTime; + uPCEEdit.PCEForNote(USE_CURRENT_VISITSTR, uPCEShow); + FEditNote.NeedCPT := uPCEEdit.CPTRequired; + // create the note + PutNewNote(CreatedNote, FEditNote); + uPCEEdit.NoteIEN := CreatedNote.IEN; + if CreatedNote.IEN > 0 then LockDocument(CreatedNote.IEN, CreatedNote.ErrorText); + if CreatedNote.ErrorText = '' then + begin + if lstNotes.DisplayText[0] = 'None' then + begin + uChanging := True; + tvCsltNotes.Items.BeginUpdate; + lstNotes.Items.Clear; + KillDocTreeObjects(tvCsltNotes); + tvCsltNotes.Items.Clear; + tvCsltNotes.Items.EndUpdate; + uChanging := False; + end; + with FEditNote do + begin + x := IntToStr(CreatedNote.IEN) + U + TitleName + U + FloatToStr(DateTime) + U + + Patient.Name + U + IntToStr(Author) + ';' + AuthorName + U + LocationName + U + 'new' + U + + 'Adm: ' + FormatFMDateTime('mmm dd,yyyy', VisitDate) + ';' + FloatToStr(VisitDate) + U + U + + U + U + U + U + U + U; + end; + lstNotes.Items.Insert(0, x); + uChanging := True; + tvCsltNotes.Items.BeginUpdate; + if IsIDChild then + begin + tmpNode := tvCsltNotes.FindPieceNode(IntToStr(AnIDParent), 1, U, tvCsltNotes.Items.GetFirstNode); + tmpNode.ImageIndex := IMG_IDNOTE_OPEN; + tmpNode.SelectedIndex := IMG_IDNOTE_OPEN; + tmpNode := tvCsltNotes.Items.AddChildObjectFirst(tmpNode, MakeConsultNoteDisplayText(x), MakeNoteTreeObject(x)); + tmpNode.ImageIndex := IMG_ID_CHILD; + tmpNode.SelectedIndex := IMG_ID_CHILD; + end + else + begin + tmpNode := tvCsltNotes.Items.AddObjectFirst(tvCsltNotes.Items.GetFirstNode, 'New Note in Progress', + MakeNoteTreeObject('NEW^New Note in Progress^^^^^^^^^^^%^0')); + TORTreeNode(tmpNode).StringData := 'NEW^New Note in Progress^^^^^^^^^^^%^0'; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + tmpNode := tvCsltNotes.Items.AddChildObjectFirst(tmpNode, MakeConsultNoteDisplayText(x), MakeNoteTreeObject(x)); + tmpNode.ImageIndex := IMG_SINGLE; + tmpNode.SelectedIndex := IMG_SINGLE; + end; + tmpNode.StateIndex := IMG_NO_IMAGES; + TORTreeNode(tmpNode).StringData := x; + tvCsltNotes.Selected := tmpNode; + tvCsltNotes.Items.EndUpdate; + uChanging := False; + + Changes.Add(CH_CON, IntToStr(CreatedNote.IEN), GetTitleText(0), '', CH_SIGN_YES); + lstNotes.ItemIndex := 0; + EditingIndex := 0; + SetSubjectVisible(AskSubjectForNotes); + if not assigned(TmpBoilerPlate) then + TmpBoilerPlate := TStringList.Create; + LoadBoilerPlate(TmpBoilerPlate, FEditNote.Title); + FChanged := False; + cmdChangeClick(Self); // will set captions, sign state for Changes + lstNotesClick(Self); // will make pnlWrite visible + if timAutoSave.Interval <> 0 then EnableAutosave := TRUE; + if txtSubject.Visible then txtSubject.SetFocus else memResults.SetFocus; + end + else // CreatedNote.ErrorText <> '' + begin + // if note creation failed or failed to get note lock (both unlikely), unlock consult + if FEditNote.PkgIEN > 0 then UnlockConsultRequest(0, FEditNote.PkgIEN); + //if FEditNote.Consult > 0 then UnlockConsultRequest(0, FEditNote.Consult); + if CreatedNote.ErrorText <> '' then + InfoBox(CreatedNote.ErrorText, TX_CREATE_ERR, MB_OK); + HaveRequired := False; + end; {if CreatedNote.IEN} + end; {if HaveRequired} + if not HaveRequired then + begin + ClearEditControls; + lstConsults.Enabled := True; + tvConsults.Enabled := True; + end; + SetResultMenus ; + finally + if assigned(TmpBoilerPlate) then + begin + DocInfo := MakeXMLParamTIU(IntToStr(CreatedNote.IEN), FEditNote); + ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo); + memResults.Lines.Assign(TmpBoilerPlate); + TmpBoilerPlate.Free; + end; + if EnableAutosave then // Don't enable autosave until after dialog fields have been resolved + timAutoSave.Enabled := True; + end; +end; + +procedure TfrmConsults.InsertAddendum; +{ sets up fields of pnlWrite to write an addendum for the selected note } +const + AS_ADDENDUM = True; + IS_ID_CHILD = False; +var + HaveRequired: Boolean; + CreatedNote: TCreatedDoc; + x: string; + tmpNode: TTreeNode; + AClassName: string; +begin + AClassName := DCL_CONSULTS; + ClearEditControls; + lstConsults.Enabled := False ; + tvConsults.Enabled := False; + with FEditNote do + begin + DocType := TYP_ADDENDUM; + Title := TitleForNote(lstNotes.ItemIEN); + TitleName := Piece(lstNotes.Items[lstNotes.ItemIndex], U, 2); + DateTime := FMNow; + Author := User.DUZ; + AuthorName := User.Name; + x := GetPackageRefForNote(lstNotes.ItemIEN); + if Piece(x, U, 1) <> '-1' then + begin + PkgRef := GetPackageRefForNote(lstNotes.ItemIEN); + PkgIEN := StrToIntDef(Piece(PkgRef, ';', 1), 0); + PkgPtr := Piece(PkgRef, ';', 2); + end; + Addend := lstNotes.ItemIEN; + // Cosigner, if needed, will be set by fNoteProps + // Location info will be set after the encounter is loaded + end; + // check to see if interaction necessary to get required fields + if LacksRequiredForCreate + then HaveRequired := ExecuteNoteProperties(FEditNote, CT_CONSULTS, IS_ID_CHILD, + False, AClassName, MenuAccessRec.ClinProcFlag) + else HaveRequired := True; + // lock the consult request if there is a consult + if HaveRequired and (FEditNote.PkgIEN > 0) then + HaveRequired := LockConsultRequest(FEditNote.PkgIEN); + if HaveRequired then + begin + uPCEEdit.NoteDateTime := FEditNote.DateTime; + uPCEEdit.PCEForNote(FEditNote.Addend, uPCEShow); + FEditNote.Location := uPCEEdit.Location; + FEditNote.LocationName := ExternalName(uPCEEdit.Location, 44); + FEditNote.VisitDate := uPCEEdit.DateTime; + PutAddendum(CreatedNote, FEditNote, FEditNote.Addend); + uPCEEdit.NoteIEN := CreatedNote.IEN; + if CreatedNote.IEN > 0 then LockDocument(CreatedNote.IEN, CreatedNote.ErrorText); + if CreatedNote.ErrorText = '' then + begin + with FEditNote do + begin + x := IntToStr(CreatedNote.IEN) + U + 'Addendum to ' + TitleName + U + FloatToStr(DateTime) + U + + Patient.Name + U + IntToStr(Author) + ';' + AuthorName + U + LocationName + U + 'new' + U + + U + U + U + U + U + U + U + U; + end; + lstNotes.Items.Insert(0, x); + + uChanging := True; + tvCsltNotes.Items.BeginUpdate; + tmpNode := tvCsltNotes.Items.AddObjectFirst(tvCsltNotes.Items.GetFirstNode, 'New Addendum in Progress', + MakeConsultsNoteTreeObject('ADDENDUM^New Addendum in Progress^^^^^^^^^^^%^0')); + TORTreeNode(tmpNode).StringData := 'ADDENDUM^New Addendum in Progress^^^^^^^^^^^%^0'; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + tmpNode := tvCsltNotes.Items.AddChildObjectFirst(tmpNode, MakeConsultNoteDisplayText(x), MakeConsultsNoteTreeObject(x)); + TORTreeNode(tmpNode).StringData := x; + tmpNode.ImageIndex := IMG_ADDENDUM; + tmpNode.SelectedIndex := IMG_ADDENDUM; + tvCsltNotes.Selected := tmpNode; + tvCsltNotes.Items.EndUpdate; + uChanging := False; + + Changes.Add(CH_CON, IntToStr(CreatedNote.IEN), GetTitleText(0), '', CH_SIGN_YES); + lstNotes.ItemIndex := 0; + EditingIndex := 0; + SetSubjectVisible(AskSubjectForNotes); + cmdChangeClick(Self); // will set captions, sign state for Changes + lstNotesClick(Self); // will make pnlWrite visible + if timAutoSave.Interval <> 0 then timAutoSave.Enabled := True; + memResults.SetFocus; + end else + begin + // if note creation failed or failed to get note lock (both unlikely), unlock consult + if FEditNote.PkgIEN > 0 then UnlockConsultRequest(0, FEditNote.PkgIEN); + //if FEditNote.Consult > 0 then UnlockConsultRequest(0, FEditNote.Consult); + InfoBox(CreatedNote.ErrorText, TX_CREATE_ERR, MB_OK); + HaveRequired := False; + lstConsults.Enabled := True; + tvConsults.Enabled := True; + end; {if CreatedNote.IEN} + end; {if HaveRequired} + if not HaveRequired then ClearEditControls; + SetResultMenus ; +end; + +procedure TfrmConsults.LoadForEdit; +{ retrieves an existing note and places the data in the fields of pnlWrite } +var + tmpNode: TTreeNode; + x: string; + ErrMsg: string; + AnAuthor: int64; + AProcSummCode: integer; + AProcDate: TFMDateTime; + tmpBoilerplate: TStringList; + EnableAutoSave: boolean; + DocInfo: string; +begin + ClearEditControls; + if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit; + EnableAutosave := FALSE; + tmpBoilerplate := nil; + try + EditingIndex := lstNotes.ItemIndex; + Changes.Add(CH_CON, lstNotes.ItemID, GetTitleText(EditingIndex), '', CH_SIGN_YES); + GetNoteForEdit(FEditNote, lstNotes.ItemIEN); + memResults.Lines.Assign(FEditNote.Lines); + FChanged := False; + if FEditNote.Title = TYP_ADDENDUM then + begin + FEditNote.DocType := TYP_ADDENDUM; + FEditNote.TitleName := Piece(lstNotes.Items[lstNotes.ItemIndex], U, 2); + if Copy(FEditNote.TitleName,1,1) = '+' then FEditNote.TitleName := Copy(FEditNote.TitleName, 3, 199); + if CompareText(Copy(FEditNote.TitleName, 1, 8), 'Addendum') <> 0 + then FEditNote.TitleName := FEditNote.TitleName + 'Addendum to '; + end; + uChanging := True; + tvCsltNotes.Items.BeginUpdate; + tmpNode := tvCsltNotes.FindPieceNode('EDIT', 1, U, nil); + if tmpNode = nil then + begin + tmpNode := tvCsltNotes.Items.AddObjectFirst(tvCsltNotes.Items.GetFirstNode, 'Note being edited', + MakeConsultsNoteTreeObject('EDIT^Note being edited^^^^^^^^^^^%^0')); + TORTreeNode(tmpNode).StringData := 'EDIT^Note being edited^^^^^^^^^^^%^0'; + end + else + tmpNode.DeleteChildren; + x := lstNotes.Items[lstNotes.ItemIndex]; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + tmpNode := tvCsltNotes.Items.AddChildObjectFirst(tmpNode, MakeConsultNoteDisplayText(x), MakeConsultsNoteTreeObject(x)); + TORTreeNode(tmpNode).StringData := x; + if CompareText(Copy(FEditNote.TitleName, 1, 8), 'Addendum') <> 0 then + tmpNode.ImageIndex := IMG_SINGLE + else + tmpNode.ImageIndex := IMG_ADDENDUM; + tmpNode.SelectedIndex := tmpNode.ImageIndex; + tvCsltNotes.Selected := tmpNode; + tvCsltNotes.Items.EndUpdate; + uChanging := False; + + uPCEEdit.NoteDateTime := MakeFMDateTime(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3)); + uPCEEdit.PCEForNote(lstNotes.ItemIEN, uPCEShow); + FEditNote.NeedCPT := uPCEEdit.CPTRequired; + txtSubject.Text := FEditNote.Subject; + SetSubjectVisible(AskSubjectForNotes); + if MenuAccessRec.IsClinicalProcedure and LacksClinProcFields(FEditNote, MenuAccessRec, ErrMsg) then + begin + // **** Collect Author, ClinProcSummCode, and ClinProcDate **** + AnAuthor := FEditNote.Author; + AProcSummCode := FEditNote.ClinProcSummCode; + AProcDate := FEditNote.ClinProcDateTime; + EnterClinProcFields(MenuAccessRec.ClinProcFlag, ErrMsg, AProcSummCode, AProcDate, AnAuthor); + // **** set values into FEditNote **** + FEditNote.Author := AnAuthor; + FEditNote.ClinProcSummCode := AProcSummCode; + FEditNote.ClinProcDateTime := AProcDate; + end; + (* if LacksClinProcFields(ErrMsg) then + begin + // **** Collect Author, Cosigner (if required), ClinProcSummCode, and ClinProcDate **** + EnterClinProcFields(MenuAccessRec.ClinProcFlag, ErrMsg, FEditNote); + end;*) + if MenuAccessRec.IsClinicalProcedure and (memResults.Lines.Text = '') then + begin + if not assigned(TmpBoilerPlate) then + TmpBoilerPlate := TStringList.Create; + LoadBoilerPlate(TmpBoilerPlate, FEditNote.Title); + end; + if frmFrame.Closing then exit; + cmdChangeClick(Self); // will set captions, sign state for Changes + lstNotesClick(Self); // will make pnlWrite visible + if timAutoSave.Interval <> 0 then EnableAutosave := TRUE; + memResults.SetFocus; + finally + if assigned(TmpBoilerPlate) then + begin + DocInfo := MakeXMLParamTIU(IntToStr(lstNotes.ItemIEN), FEditNote); + ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo); + memResults.Lines.Assign(TmpBoilerPlate); + TmpBoilerPlate.Free; + end; + if EnableAutosave then // Don't enable autosave until after dialog fields have been resolved + timAutoSave.Enabled := True; + end; +end; + +procedure TfrmConsults.SaveEditedConsult(var Saved: Boolean); +{ validates fields and sends the updated consult result to the server } +var + UpdatedNote: TCreatedDoc; + x, ErrMsg: string; + ContinueSave: boolean; + + // this block executes for Clinical Procedures documents ONLY!! + procedure SaveOrAbort(var AllowSave: boolean); + begin + // if no text, leave as undictated, saving nothing + if (memResults.GetTextLen = 0) or (not ContainsVisibleChar(memResults.Text)) then + begin + if lstNotes.ItemIndex = EditingIndex then + begin + EditingIndex := -1; + lstNotesClick(Self); + end; + EditingIndex := -1; + Saved := True; // (yes, though not actually saving, this is correct and necessary (RV)) + AllowSave := False; + end + // if text, stuff user as author, and allow save as unsigned + else + begin + if FEditNote.Author <= 0 then FEditNote.Author := User.DUZ; + AllowSave := True; + end; + end; + +begin + Saved := False; + ContinueSave := True; + if MenuAccessRec.IsClinicalProcedure and LacksClinProcFields(FEditNote, MenuAccessRec, ErrMsg) then + // this block will execute for Clinical Procedures documents ONLY!! + begin + if not FSilent then // if not timing out, then prompt for required fields + begin + InfoBox(ErrMsg, TC_CLIN_PROC, MB_OK); + cmdChangeClick(mnuActConsultResults); + if frmFrame.TimedOut then exit; + if MenuAccessRec.IsClinicalProcedure and LacksClinProcFields(FEditNote, MenuAccessRec, ErrMsg) then // if still not entered, action depends on presence of text + SaveOrAbort(ContinueSave); + end + else SaveOrAbort(ContinueSave); // if timing out, action depends on presence of text + if not ContinueSave then exit; + end + else if (memResults.GetTextLen = 0) or (not ContainsVisibleChar(memResults.Text)) then + // this block will NOT execute for Clinical Procedures documents!! + begin + lstNotes.ItemIndex := EditingIndex; + x := lstNotes.ItemID; + uChanging := True; + tvCsltNotes.Selected := tvCsltNotes.FindPieceNode(x, 1, U, tvCsltNotes.Items.GetFirstNode); + uChanging := False; + tvCsltNotesChange(Self, tvCsltNotes.Selected); + if FSilent or + ((not FSilent) and + (InfoBox(GetTitleText(EditingIndex) + TX_EMPTY_NOTE, TC_EMPTY_NOTE, MB_YESNO) = IDYES)) + then + begin + FConfirmed := True; + mnuActNoteDeleteClick(Self); + Saved := True; + FDeleted := True; + end + else + FConfirmed := False; + Exit; + end; + //ExpandTabsFilter(memResults.Lines, TAB_STOP_CHARS); + FEditNote.Lines := memResults.Lines; + FEditNote.Subject := txtSubject.Text; + FEditNote.NeedCPT := uPCEEdit.CPTRequired; + timAutoSave.Enabled := False; + try + PutEditedNote(UpdatedNote, FEditNote, lstNotes.GetIEN(EditingIndex)); + finally + timAutoSave.Enabled := True; + end; + // there's no unlocking here since the note is still in Changes after a save + if UpdatedNote.IEN > 0 then + begin + if lstNotes.ItemIndex = EditingIndex then + begin + EditingIndex := -1; + lstNotesClick(Self); + end; + EditingIndex := -1; + Saved := True; + FChanged := False; + end else + begin + if not FSilent then + InfoBox(TX_SAVE_ERROR1 + UpdatedNote.ErrorText + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING); + end; +end; + +procedure TfrmConsults.SaveCurrentNote(var Saved: Boolean); +begin + if EditingIndex < 0 then Exit; + SaveEditedConsult(Saved); +end; + + +{ Form events -----------------------------------------------------------------} + +procedure TfrmConsults.pnlRightResize(Sender: TObject); +{ TRichEdit doesn't repaint appropriately unless its parent panel is refreshed } +begin + inherited; + pnlRight.Refresh; + pnlAction.Invalidate; + memConsult.Repaint; + pnlResults.Invalidate; + memResults.Repaint; +end; + +{ Left panel (selector) events ------------------------------------------------------------- } + +procedure TfrmConsults.lstConsultsClick(Sender: TObject); +{ loads the text for the selected Consult} +const + RSLT_TIU_DOC = 1; + RSLT_MED_RPT = 2; +var + ANode: TTreeNode; +begin + inherited; + lstNotes.Items.Clear ; + memConsult.Clear ; + ClearEditControls ; + if lstConsults.ItemIEN <= 0 then + begin + memConsult.Lines.Add('No consults were found which met the criteria specified: ' + + #13#10#13#10 + lblConsults.Caption) ; + memConsult.SelStart := 0; + mnuAct.Enabled := False ; + exit ; + end + else mnuAct.Enabled := True; + pnlResults.Visible := False; + pnlResults.SendToBack; + Screen.Cursor := crHourglass ; + StatusText('Retrieving selected consult...'); + cmdPCE.Enabled := False; + popNoteMemoEncounter.Enabled := False; + GetConsultRec(lstConsults.ItemIEN) ; + FOrderID := ''; + //FOrderID := Piece(lstConsults.Items[lstConsults.ItemIndex], U, 6); + if ConsultRec.EntryDate = -1 then + begin + memConsult.Lines.Add(TX_INVALID_CONSULT_TEXT) ; + lblTitle.Caption := TX_INVALID_CONSULT_CAP ; + lblTitle.Hint := lblTitle.Caption; + end + else + begin + lblTitle.Caption := lstConsults.DisplayText[lstConsults.ItemIndex] ; + lblTitle.Hint := lblTitle.Caption; + LoadConsultDetail(memConsult.Lines, lstConsults.ItemIEN) ; + FDocList.Clear; + lstNotes.Items.Clear; + uChanging := True; + tvCsltNotes.Items.BeginUpdate; + KillDocTreeObjects(tvCsltNotes); + tvCsltNotes.Items.Clear; + if (ConsultRec.TIUDocuments.Count + ConsultRec.MedResults.Count) > 0 then + begin + with FCurrentNoteContext do + begin + if ConsultRec.TIUDocuments.Count > 0 then + begin + CreateListItemsForDocumentTree(FDocList, ConsultRec.TIUDocuments, RSLT_TIU_DOC, GroupBy, TreeAscending, CT_CONSULTS); + UpdateNoteTreeView(FDocList, tvCsltNotes, RSLT_TIU_DOC); + end; + FDocList.Clear; + if ConsultRec.MedResults.Count > 0 then + begin + CreateListItemsForDocumentTree(FDocList, ConsultRec.MedResults, RSLT_MED_RPT, GroupBy, TreeAscending, CT_CONSULTS); + UpdateNoteTreeView(FDocList, tvCsltNotes, RSLT_MED_RPT); + end; + end; + with tvCsltNotes do + begin + FullExpand; + if Notifications.Active and FNotifPending then + Selected := FindPieceNode(Piece(Notifications.AlertData, U, 1), 1, U, nil) + else if FLastNoteID <> '' then + Selected := FindPieceNode(FLastNoteID, 1, U, nil); + if Selected <> nil then + if Piece(PDocTreeObject(Selected)^.DocID, ';', 1) <> 'MCAR' then DisplayPCE ; + end; + end + else + begin + ANode := tvCsltNotes.Items.AddFirst(tvCsltNotes.Items.GetFirstNode, 'No related documents found'); + TORTreeNode(ANode).StringData := '-1^No related documents found'; + lstNotes.Items.Add('-1^None') ; + ShowPCEControls(False) ; + end ; + tvCsltNotes.Items.EndUpdate; + uChanging := False; + FLastNoteID := ''; + //FLastNoteID := lstNotes.ItemID; + end ; + SetActionMenus ; + SetResultMenus ; + StatusText(''); + pnlRight.Repaint ; + memConsult.SelStart := 0; + memConsult.Repaint; + Screen.Cursor := crDefault ; +end; + +procedure TfrmConsults.mnuActNewConsultRequestClick(Sender: TObject); +var + DialogInfo: string; + DelayEvent: TOrderDelayEvent; +begin + inherited; + DelayEvent.EventType := 'C'; // temporary, so can pass to CopyOrders + DelayEvent.Specialty := 0; + DelayEvent.Effective := 0; + DelayEvent.EventIFN := 0; + DelayEvent.PtEventIFN := 0; + if not ReadyForNewOrder(DelayEvent) then Exit; + { get appropriate form, create the dialog form and show it } + DialogInfo := GetNewDialog(DLG_CONSULT); // DialogInfo = DlgIEN;FormID;DGroup + case CharAt(Piece(DialogInfo, ';', 4), 1) of + 'A': ActivateAction( Piece(DialogInfo, ';', 1), Self, 0); + 'D', 'Q': ActivateOrderDialog(Piece(DialogInfo, ';', 1), DelayEvent, Self, 0); + 'M': ActivateOrderMenu( Piece(DialogInfo, ';', 1), DelayEvent, Self, 0); + 'O': ActivateOrderSet( Piece(DialogInfo, ';', 1), DelayEvent, Self, 0); + else InfoBox('Unsupported dialog type', 'Error', MB_OK); + end; {case} +end; + +procedure TfrmConsults.mnuActNewProcedureClick(Sender: TObject); +var + DialogInfo: string; + DelayEvent: TOrderDelayEvent; +begin + inherited; + DelayEvent.EventType := 'C'; // temporary, so can pass to CopyOrders + DelayEvent.Specialty := 0; + DelayEvent.Effective := 0; + DelayEvent.EventIFN := 0; + DelayEvent.PtEventIFN := 0; + + if not ReadyForNewOrder(DelayEvent) then Exit; + { get appropriate form, create the dialog form and show it } + DialogInfo := GetNewDialog(DLG_PROC); // DialogInfo = DlgIEN;FormID;DGroup + case CharAt(Piece(DialogInfo, ';', 4), 1) of + 'D', 'Q': ActivateOrderDialog(Piece(DialogInfo, ';', 1), DelayEvent, Self, 0); + 'M': ActivateOrderMenu( Piece(DialogInfo, ';', 1), DelayEvent, Self, 0); + 'O': ActivateOrderSet( Piece(DialogInfo, ';', 1), DelayEvent, Self, 0); + else InfoBox('Unsupported dialog type', 'Error', MB_OK); + end; {case} +end; + +procedure TfrmConsults.cmdNewConsultClick(Sender: TObject); +{ maps 'New Consult' button to the New Consult menu item } +begin + inherited; + mnuActNewConsultRequestClick(Self); +end; + +procedure TfrmConsults.cmdNewProcClick(Sender: TObject); +begin + inherited; + mnuActNewProcedureClick(Self); +end; + +{ Right panel (editor) events -------------------------------------------------------------- } + +procedure TfrmConsults.NewPersonNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmConsults.memResultChange(Sender: TObject); +{ sets FChanged to record that the note has really been edited } +begin + inherited; + FChanged := True; +end; + +{ View menu events ------------------------------------------------------------------------- } + +procedure TfrmConsults.mnuViewClick(Sender: TObject); +{ changes the list of Consults available for viewing } +var + NewView: boolean; + Saved: Boolean; + //tmpNode: TTreeNode; +begin + inherited; + // save note at FEditingIndex? + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + NewView := False ; + if Sender is TMenuItem then + begin + ViewContext := TMenuItem(Sender).Tag ; + case ViewContext of + CC_BY_STATUS : NewView := SelectStatus(Font.Size, FCurrentContext, StsCtxt); + CC_BY_SERVICE : NewView := SelectService(Font.Size, FCurrentContext, SvcCtxt); + CC_BY_DATE : NewView := SelectConsultDateRange(Font.Size, FCurrentContext, DateRange); + CC_CUSTOM : begin + NewView := SelectConsultsView(Font.Size, FCurrentContext, uSelectContext) ; + if NewView then lblConsults.Caption := 'Custom List'; + end; + CC_ALL : NewView := True ; + end; + end + else with FCurrentContext do + begin + if ((BeginDate + EndDate + Status + Service + GroupBy) <> '') then + begin + ViewContext := CC_CUSTOM; + NewView := True; + lblConsults.Caption := 'Default List'; + end + else + begin + ViewContext := CC_ALL; + NewView := True; + lblConsults.Caption := 'All Consults'; + end; + end; + tvConsults.Caption := lblConsults.Caption; + if NewView then + begin + StatusText('Retrieving Consult list...'); + lblTitle.Caption := ''; + lblTitle.Hint := lblTitle.Caption; + UpdateList ; + StatusText(''); + end; + tvConsultsClick(Self); +end; + +{ Action menu events ----------------------------------------------------------------------- } + +procedure TfrmConsults.mnuActCompleteClick(Sender: TObject); +const + IS_ID_CHILD = False; +var + NoteIEN: integer; + ActionSts: TActionRec; + UseClinProcTitles: boolean; +begin + inherited; + if lstConsults.ItemIEN = 0 then exit; + if MenuAccessRec.IsClinicalProcedure then + begin + case MenuAccessRec.ClinProcFlag of + {1} CP_NO_INSTRUMENT : FActionType := CN_ACT_CP_COMPLETE; + {2} CP_INSTR_NO_STUB : begin + InfoBox(TX_CP_NO_RESULTS, TC_CP_NO_RESULTS, MB_OK or MB_ICONERROR); + Exit; + end; + {3} CP_INSTR_INCOMPLETE : FActionType := CN_ACT_CP_COMPLETE; + {4} CP_INSTR_COMPLETE : FActionType := CN_ACT_CP_COMPLETE; + end; + end + else // {0} not a clinical procedure + FActionType := TMenuItem(Sender).Tag ; + if not StartNewEdit(NT_ACT_NEW_NOTE) then Exit; + + SelectNoteForProcessing(Font.Size, FActionType, lstNotes.Items, NoteIEN, MenuAccessRec.ClinProcFlag); + if NoteIEN > 0 then + begin + with tvCsltNotes do Selected := FindPieceNode(IntToStr(NoteIEN), 1, U, Items.GetFirstNode); + if tvCsltNotes.Selected = nil then exit; + ActOnDocument(ActionSts, lstNotes.ItemIEN, 'EDIT RECORD'); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end ; + mnuActNoteEditClick(Self); + end + else if NoteIEN = StrToInt(CN_NEW_CP_NOTE) then + begin + // make sure a visit (time & location) is available before creating the note + if Encounter.NeedVisit then + begin + UpdateVisit(Font.Size, DfltTIULocation); + frmFrame.DisplayEncounterText; + end; + if Encounter.NeedVisit then + begin + InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING); + Exit; + end; + SetResultMenus ; + UseClinProcTitles := True; + CompleteConsult(IS_ID_CHILD, 0, UseClinProcTitles); + end + else if NoteIEN = StrToInt(CN_NEW_CSLT_NOTE) then + begin + // make sure a visit (time & location) is available before creating the note + if Encounter.NeedVisit then + begin + UpdateVisit(Font.Size, DfltTIULocation); + frmFrame.DisplayEncounterText; + end; + if Encounter.NeedVisit then + begin + InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING); + Exit; + end; + SetResultMenus ; + UseClinProcTitles := False; + CompleteConsult(IS_ID_CHILD, 0, UseClinProcTitles); + end + else if NoteIEN = -1 then Exit +end; + +procedure TfrmConsults.mnuActAddIDEntryClick(Sender: TObject); +const + IS_ID_CHILD = True; + IS_CLIN_PROC = False; +var + AnIDParent: integer; + //AConsultID: string; +{ switches to current new note or creates a new note if none is being edited already } +begin + inherited; +(* AConsultID := lstConsults.ItemID;*) + AnIDParent := lstNotes.ItemIEN; + if not StartNewEdit(NT_ACT_ID_ENTRY) then Exit; +(* with tvConsults do Selected := FindPieceNode(AConsultID, 1, U, Items.GetFirstNode); + with tvCsltNotes do Selected := FindPieceNode(IntToStr(AnIDParent), 1, U, Items.GetFirstNode);*) + + // make sure a visit (time & location) is available before creating the note + if Encounter.NeedVisit then + begin + UpdateVisit(Font.Size, DfltTIULocation); + frmFrame.DisplayEncounterText; + end; + if Encounter.NeedVisit then + begin + InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING); + Exit; + end; + CompleteConsult(IS_ID_CHILD, AnIDParent, IS_CLIN_PROC); +end; + +procedure TfrmConsults.mnuActMakeAddendumClick(Sender: TObject); +var + ActionSts: TActionRec; + //ANoteID, AConsultID: string; +begin + inherited; + if lstConsults.ItemIEN = 0 then exit; +(* // ====== REMOVED IN V14 - superfluous with treeview in v15 =========== + FActionType := TMenuItem(Sender).Tag ; + SelectNoteForProcessing(Font.Size, FActionType, lstNotes.Items, NoteIEN); + if NoteIEN = -1 then exit; + //lstNotes.SelectByIEN(NoteIEN); + with tvCsltNotes do Selected := FindPieceNode(IntToStr(NoteIEN), 1, U, Items.GetFirstNode); + if tvCsltNotes.Selected = nil then exit; + // ========================================*) + if lstNotes.ItemIEN <= 0 then Exit; +(* AConsultID := lstConsults.ItemID; + ANoteID := lstNotes.ItemID;*) + if lstNotes.ItemIndex = EditingIndex then + begin + InfoBox(TX_ADDEND_NO, TX_ADDEND_MK, MB_OK); + Exit; + end; + if not StartNewEdit(NT_ACT_ADDENDUM) then Exit; +(* with tvConsults do Selected := FindPieceNode(AConsultID, 1, U, Items.GetFirstNode); + with tvCsltNotes do Selected := FindPieceNode(ANoteID, 1, U, Items.GetFirstNode);*) + ActOnDocument(ActionSts, lstNotes.ItemIEN, 'MAKE ADDENDUM'); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end; + with lstNotes do if TitleForNote(ItemIEN) = TYP_ADDENDUM then //v17.5 RV + //with lstNotes do if Copy(Piece(Items[ItemIndex], U, 2), 1, 8) = 'Addendum' then + begin + InfoBox(TX_ADDEND_AD, TX_ADDEND_MK, MB_OK); + Exit; + end; + SetResultMenus ; + InsertAddendum; +end; + +procedure TfrmConsults.mnuActDetachFromIDParentClick(Sender: TObject); +var + DocID, WhyNot: string; + Saved: boolean; + SavedDocID, SavedConsultID: string; +begin + if lstNotes.ItemIEN = 0 then exit; + SavedDocID := lstNotes.ItemID; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + with tvConsults do Selected := FindPieceNode(SavedConsultID, 1, U, Items.GetFirstNode); + tvConsultsClick(Self); + with tvCsltNotes do Selected := FindPieceNode(SavedDocID, 1, U, Items.GetFirstNode); + end; + if not CanBeAttached(PDocTreeObject(tvCsltNotes.Selected.Data)^.DocID, WhyNot) then + begin + WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]); + WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]); + InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK); + Exit; + end; + if (InfoBox('DETACH: ' + tvCsltNotes.Selected.Text + CRLF + CRLF + + ' FROM: ' + tvCsltNotes.Selected.Parent.Text + CRLF + CRLF + + 'Are you sure?', TX_DETACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) + then Exit; + DocID := PDocTreeObject(tvCsltNotes.Selected.Data)^.DocID; + SavedDocID := PDocTreeObject(tvCsltNotes.Selected.Parent.Data)^.DocID; + if DetachEntryFromParent(DocID, WhyNot) then + begin + tvConsultsChange(Self, tvConsults.Selected); + with tvCsltNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + if tvCsltNotes.Selected <> nil then tvCsltNotes.Selected.Expand(False); + end + else + begin + WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]); + WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]); + InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK); + end; +end; + +procedure TfrmConsults.mnuActSignatureListClick(Sender: TObject); +{ add the note to the Encounter object, see mnuActSignatureSignClick - copied} +const + SIG_COSIGN = 'COSIGNATURE'; + SIG_SIGN = 'SIGNATURE'; +var + ActionType, SignTitle: string; + ActionSts: TActionRec; + ErrMsg: string; +begin + inherited; + if lstNotes.ItemIEN = 0 then Exit; + if lstNotes.ItemIndex = EditingIndex then Exit; // already in signature list + if LacksClinProcFieldsForSignature(lstNotes.ItemIEN, ErrMsg) then + begin + InfoBox(ErrMsg, TC_CLIN_PROC, MB_OK); + Exit; + end; + if not NoteHasText(lstNotes.ItemIEN) then + begin + InfoBox(TX_EMPTY_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR); + Exit; + end; + if not LastSaveClean(lstNotes.ItemIEN) and + (InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) then Exit; + if CosignDocument(lstNotes.ItemIEN) then + begin + SignTitle := TX_COSIGN; + ActionType := SIG_COSIGN; + end else + begin + SignTitle := TX_SIGN; + ActionType := SIG_SIGN; + end; + ActOnDocument(ActionSts, lstNotes.ItemIEN, ActionType); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end; + LockConsultRequestAndNote(lstNotes.ItemIEN); + with lstNotes do Changes.Add(CH_CON, ItemID, GetTitleText(ItemIndex), '', CH_SIGN_YES); +end; + + +procedure TfrmConsults.mnuActNoteDeleteClick(Sender: TObject); +{ delete the selected progress note & remove from the Encounter object if necessary } +var + DeleteSts, ActionSts: TActionRec; + SaveConsult, SavedDocIEN: Integer; + ReasonForDelete, AVisitStr, SavedDocID, x: string; + Saved: boolean; +begin + inherited; + if lstNotes.ItemIEN = 0 then Exit; + ActOnDocument(ActionSts, lstNotes.ItemIEN, 'DELETE RECORD'); + if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit; + ReasonForDelete := SelectDeleteReason(lstNotes.ItemIEN); + if ReasonForDelete = DR_CANCEL then Exit; + // suppress prompt for deletion when called from SaveEditedNote (Sender = Self) + if (Sender <> Self) and (InfoBox(MakeNoteDisplayText(lstNotes.Items[lstNotes.ItemIndex]) + TX_DEL_OK, + TX_DEL_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) then Exit; + // do the appropriate locking + if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit; + if JustifyDocumentDelete(lstNotes.ItemIEN) then + InfoBox(TX_RETRACT, TX_RETRACT_CAP, MB_OK); + SavedDocID := lstNotes.ItemID; + SavedDocIEN := lstNotes.ItemIEN; + if (EditingIndex > -1) and (not FConfirmed) and (lstNotes.ItemIndex <> EditingIndex) and (memResults.GetTextLen > 0) then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + EditingIndex := -1; + FConfirmed := False; + (* if Saved then + begin + EditingIndex := -1; + mnuViewClick(Self); + with tvCsltNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end;*) + // remove the note + DeleteSts.Success := True; + x := GetPackageRefForNote(SavedDocIEN); + SaveConsult := StrToIntDef(Piece(x, ';', 1), 0); + //SaveConsult := GetConsultIENforNote(SavedDocIEN); + AVisitStr := VisitStrForNote(SavedDocIEN); + RemovePCEFromChanges(SavedDocIEN, AVisitStr); + if (SavedDocIEN > 0) and (lstNotes.ItemIEN = SavedDocIEN)then DeleteDocument(DeleteSts, SavedDocIEN, ReasonForDelete); + if not Changes.Exist(CH_CON, SavedDocID) then UnlockDocument(SavedDocIEN); + Changes.Remove(CH_CON, SavedDocID); // this will unlock the document if in Changes + UnlockConsultRequest(0, SaveConsult); // note has been deleted, so 1st param = 0 + // reset the display now that the note is gone + if DeleteSts.Success then + begin + DeletePCE(AVisitStr); // removes PCE data if this was the only note pointing to it + ClearEditControls; + //ClearPtData; WRONG - fixed in v15.10 - RV + cmdNewConsult.Visible := True; + cmdNewProc.Top := cmdNewConsult.Top + cmdNewConsult.Height; + cmdNewProc.Visible := True; + pnlConsultList.Height := (pnlLeft.Height div 2); +(* uChanging := True; + with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + uChanging := False; + if tvCsltNotes.Selected <> nil then tvCsltNotesChange(Self, tvCsltNotes.Selected) else + begin*) + pnlResults.Visible := False; + pnlResults.SendToBack; + pnlRead.Visible := True; + pnlRead.BringToFront ; + memConsult.TabStop := True; + UpdateReminderFinish; + ShowPCEControls(False); + frmDrawers.DisplayDrawers(FALSE); + cmdPCE.Visible := FALSE; + popNoteMemoEncounter.Visible := FALSE; + UpdateList; + lstConsults.Enabled := True ; + tvConsults.Enabled := True; + with tvConsults do Selected := FindPieceNode(IntToStr(SaveConsult), 1, U, Items.GetFirstNode); + tvConsultsClick(Self); +(* lstConsults.SelectByIEN(ConsultRec.IEN); + if lstConsults.ItemIEN > 0 then + lstConsultsClick(Self) ;*) + lstNotes.Enabled := True; +(* uChanging := True; + with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + uChanging := False; + if tvCsltNotes.Selected <> nil then tvCsltNotesChange(Self, tvCsltNotes.Selected); + end; {if ItemIndex}*) + end {if DeleteSts} + else InfoBox(DeleteSts.Reason, TX_DEL_ERR, MB_OK or MB_ICONWARNING); +end; + +procedure TfrmConsults.mnuActNoteEditClick(Sender: TObject); +{ load the selected progress note for editing } +var + ActionSts: TActionRec; + //AConsultID, ANoteID: string; +begin + inherited; + if lstNotes.ItemIndex = EditingIndex then Exit; +(* AConsultID := lstConsults.ItemID; + ANoteID := lstNotes.ItemID;*) + if not StartNewEdit(NT_ACT_EDIT_NOTE) then Exit; +(* with tvConsults do Selected := FindPieceNode(AConsultID, 1, U, Items.GetFirstNode); + with tvCsltNotes do Selected := FindPieceNode(ANoteID, 1, U, Items.GetFirstNode);*) + ActOnDocument(ActionSts, lstNotes.ItemIEN, 'EDIT RECORD'); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end; + LoadForEdit; +end; + +procedure TfrmConsults.mnuActSignatureSaveClick(Sender: TObject); +{ saves the Consult that is currently being edited } +var + Saved: Boolean; +// i: integer; + SavedDocID, SavedCsltID, x: string; + tmpNode: TORTreeNode; +begin + inherited; + if EditingIndex > -1 then + begin + SavedDocID := Piece(lstNotes.Items[EditingIndex], U, 1); + FLastNoteID := SavedDocID; + SavedCsltID := lstConsults.ItemID; + SaveCurrentNote(Saved) ; + if Saved and (EditingIndex < 0) and (not FDeleted) then + //if Saved then + begin + pnlResults.Visible := False; + pnlResults.SendToBack; + lstConsults.Enabled := True; + tvConsults.Enabled := True; + if Notifications.Active then + with tvConsults do + begin + uChanging := True; + Selected := FindPieceNode(SavedCsltID, 1, U, Items.GetFirstNode); + if Selected <> nil then Selected.Delete; + x := FindConsult(StrToIntDef(SavedCsltID, 0)); + tmpNode := TORTreeNode(Items.AddChildFirst(Items.GetFirstNode, MakeConsultListDisplayText(x))); + tmpNode.StringData := x; + SetNodeImage(tmpNode, FCurrentContext); + uChanging := False; + Selected := tmpNode; + tvConsultsClick(Self); + end + else + begin + UpdateList ; {update consult list after success} + with tvConsults do Selected := FindPieceNode(SavedCsltID, U, Items.GetFirstNode); + tvConsultsClick(Self); + with tvCsltNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end; + pnlLeft.Refresh ; + end; + end + else InfoBox(TX_NO_CONSULT, TX_SAVE_CONSULT, MB_OK or MB_ICONWARNING); + if frmFrame.TimedOut then Exit; + with tvCsltNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); +end; + +procedure TfrmConsults.mnuActSignatureSignClick(Sender: TObject); +{ sign the currently selected note, save first if necessary } +const + SIG_COSIGN = 'COSIGNATURE'; + SIG_SIGN = 'SIGNATURE'; +var + Saved, NoteUnlocked: Boolean; + ActionType, ESCode, SignTitle, x: string; + ActionSts, SignSts: TActionRec; + OK: boolean; + tmpNode: TORTreeNode; + SavedDocID, SavedCsltID, tmpItem, ErrMsg: string; + EditingID: string; //v22.12 - RV +begin + inherited; +(* if lstNotes.ItemIndex = EditingIndex then + begin + SaveCurrentNote(Saved); + if (not Saved) or FDeleted then Exit; + end + else if EditingIndex > -1 then + tmpItem := lstNotes.Items[EditingIndex]; + SavedDocID := lstNotes.ItemID;*) + SavedCsltID := lstConsults.ItemID; + SavedDocID := lstNotes.ItemID; //v22.12 - RV + FLastNoteID := SavedDocID; //v22.12 - RV + if lstNotes.ItemIndex = EditingIndex then //v22.12 - RV + begin //v22.12 - RV + SaveCurrentNote(Saved); //v22.12 - RV + if (not Saved) or FDeleted then Exit; //v22.12 - RV + end //v22.12 - RV + else if EditingIndex > -1 then //v22.12 - RV + begin //v22.12 - RV + tmpItem := lstNotes.Items[EditingIndex]; //v22.12 - RV + EditingID := Piece(tmpItem, U, 1); //v22.12 - RV + end; //v22.12 - RV + if LacksClinProcFieldsForSignature(lstNotes.ItemIEN, ErrMsg) then + begin + InfoBox(ErrMsg, TC_CLIN_PROC, MB_OK); + Exit; + end; + if not NoteHasText(lstNotes.ItemIEN) then + begin + InfoBox(TX_EMPTY_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR); + Exit; + end; + if not LastSaveClean(lstNotes.ItemIEN) and + (InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) then Exit; + if CosignDocument(lstNotes.ItemIEN) then + begin + SignTitle := TX_COSIGN; + ActionType := SIG_COSIGN; + end else + begin + SignTitle := TX_SIGN; + ActionType := SIG_SIGN; + end; + if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit; + // no exits after things are locked + NoteUnlocked := False; + ActOnDocument(ActionSts, lstNotes.ItemIEN, ActionType); + if ActionSts.Success then + begin + OK := IsOK2Sign(uPCEShow, lstNotes.ItemIEN); + if frmFrame.Closing then exit; + if(uPCEShow.Updated) then + begin + uPCEShow.CopyPCEData(uPCEEdit); + uPCEShow.Updated := FALSE; + lstNotesClick(Self); + end; + if not AuthorSignedDocument(lstNotes.ItemIEN) then + begin + if (InfoBox(TX_AUTH_SIGNED + + GetTitleText(lstNotes.ItemIndex),TX_SIGN ,MB_YESNO)= ID_NO) then exit; + end; + if(OK) then + begin + with lstNotes do SignatureForItem(Font.Size, MakeConsultNoteDisplayText(Items[ItemIndex]), SignTitle, ESCode); + if Length(ESCode) > 0 then + begin + SignDocument(SignSts, lstNotes.ItemIEN, ESCode); + RemovePCEFromChanges(lstNotes.ItemIEN); + NoteUnlocked := Changes.Exist(CH_CON, lstNotes.ItemID); + Changes.Remove(CH_CON, lstNotes.ItemID); // this will unlock if in Changes + if SignSts.Success then + begin + pnlResults.Visible := False; + pnlResults.SendToBack; + lstConsults.Enabled := True; + tvConsults.Enabled := True; + if Notifications.Active then + with tvConsults do + begin + uChanging := True; + Selected := FindPieceNode(SavedCsltID, 1, U, Items.GetFirstNode); + if Selected <> nil then Selected.Delete; + x := FindConsult(StrToIntDef(SavedCsltID, 0)); + tmpNode := TORTreeNode(Items.AddChildFirst(Items.GetFirstNode, MakeConsultListDisplayText(x))); + tmpNode.StringData := x; + SetNodeImage(tmpNode, FCurrentContext); + uChanging := False; + Selected := tmpNode; + //tvConsultsClick(Self); + end + else + begin + UpdateList ; {update consult list after success} + with tvConsults do Selected := FindPieceNode(SavedCsltID, U, Items.GetFirstNode); + //tvConsultsClick(Self); + //with tvCsltNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end; + end + else InfoBox(SignSts.Reason, TX_SIGN_ERR, MB_OK); + end {if Length(ESCode)} + else + NoteUnlocked := Changes.Exist(CH_CON, lstNotes.ItemID); + end; + end + else InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + if not NoteUnlocked then UnlockDocument(lstNotes.ItemIEN); + UnlockConsultRequest(lstNotes.ItemIEN, StrToIntDef(SavedCsltID, 0)); // v20.4 RV (unlocking problem) + //UnlockConsultRequest(lstNotes.ItemIEN, ConsultRec.IEN); + tvConsultsClick(Self); + //if EditingIndex > -1 then //v22.12 - RV + if (EditingID <> '') then //v22.12 - RV + begin + lstNotes.Items.Insert(0, tmpItem); + tmpNode := TORTreeNode(tvCsltNotes.Items.AddObjectFirst(tvCsltNotes.Items.GetFirstNode, 'Note being edited', + MakeNoteTreeObject('EDIT^Note being edited^^^^^^^^^^^%^0'))); + tmpNode.StringData := 'EDIT^Note being edited^^^^^^^^^^^%^0'; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + tmpNode := TORTreeNode(tvCsltNotes.Items.AddChildObjectFirst(tmpNode, MakeConsultNoteDisplayText(tmpItem), + MakeConsultsNoteTreeObject(tmpItem))); + tmpNode.StringData := tmpItem; + SetTreeNodeImagesAndFormatting(TORTreeNode(tmpNode), FCurrentNoteContext, CT_CONSULTS); + EditingIndex := lstNotes.SelectByID(EditingID); //v22.12 - RV + end; + //with tvCsltNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); //v22.12 - RV + with tvCsltNotes do //v22.12 - RV + begin //v22.12 - RV + Selected := FindPieceNode(FLastNoteID, U, Items.GetFirstNode); //v22.12 - RV + if Selected <> nil then tvCsltNotesChange(Self, Selected); //v22.12 - RV + end; +end; + +procedure TfrmConsults.SaveSignItem(const ItemID, ESCode: string); +{ saves and optionally signs a progress note or addendum } +const + SIG_COSIGN = 'COSIGNATURE'; + SIG_SIGN = 'SIGNATURE'; +var + AnIndex, IEN, i: Integer; + Saved, ContinueSign: Boolean; {*RAB* 8/26/99} + ActionSts, SignSts: TActionRec; + APCEObject: TPCEData; + OK: boolean; + SavedCsltID, x: string; + tmpNode: TORTreeNode; + ErrMsg: string; + ActionType, SignTitle: string; +begin + AnIndex := -1; + IEN := StrToIntDef(ItemID, 0); + if IEN = 0 then Exit; + x := GetPackageRefForNote(IEN); + SavedCsltID := Piece(x, ';', 1); + //SavedCsltID := IntToStr(GetConsultIENForNote(IEN)); + if frmFrame.TimedOut and (EditingIndex <> -1) then FSilent := True; + with lstNotes do for i := 0 to Items.Count - 1 do if lstNotes.GetIEN(i) = IEN then + begin + AnIndex := i; + break; + end; + if (AnIndex > -1) and (AnIndex = EditingIndex) then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + if FDeleted then + begin + FDeleted := False; + Exit; + end; + AnIndex := lstNotes.SelectByIEN(IEN); + //IEN := lstNotes.GetIEN(AnIndex); // saving will change IEN + end; + if Length(ESCode) > 0 then + begin + if CosignDocument(IEN) then + begin + SignTitle := TX_COSIGN; + ActionType := SIG_COSIGN; + end else + begin + SignTitle := TX_SIGN; + ActionType := SIG_SIGN; + end; + ActOnDocument(ActionSts, IEN, ActionType); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + ContinueSign := False; + end + else if LacksClinProcFieldsForSignature(IEN, ErrMsg) then + begin + InfoBox(ErrMsg, TC_CLIN_PROC, MB_OK); + ContinueSign := False; + end + else if not NoteHasText(IEN) then + begin + InfoBox(TX_EMPTY_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR); + ContinueSign := False; + end + else if not LastSaveClean(IEN) and + (InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) + then ContinueSign := False + else ContinueSign := True; + if ContinueSign then + begin + if (AnIndex >= 0) and (AnIndex = lstNotes.ItemIndex) then + APCEObject := uPCEShow + else + APCEObject := nil; + OK := IsOK2Sign(APCEObject, IEN); + if frmFrame.Closing then exit; + if(assigned(APCEObject)) and (uPCEShow.Updated) then + begin + uPCEShow.CopyPCEData(uPCEEdit); + uPCEShow.Updated := FALSE; + lstNotesClick(Self); + end + else + uPCEEdit.Clear; + if(OK) then + begin + SignDocument(SignSts, IEN, ESCode); + if not SignSts.Success then InfoBox(SignSts.Reason, TX_SIGN_ERR, MB_OK); + end; {if OK} + end; {if ContinueSign} + end; {if Length(ESCode)} + + UnlockConsultRequest(IEN); + UnlockDocument(IEN); + if (AnIndex = lstNotes.ItemIndex) and (not frmFrame.ContextChanging) then lstNotesClick(Self); + if Notifications.Active then + with tvConsults do + begin + if (AnIndex = lstNotes.ItemIndex) and (not frmFrame.ContextChanging) then lstNotesClick(Self); + uChanging := True; + Selected := FindPieceNode(SavedCsltID, 1, U, Items.GetFirstNode); + if Selected <> nil then Selected.Delete; + x := FindConsult(StrToIntDef(SavedCsltID, 0)); + tmpNode := TORTreeNode(Items.AddChildFirst(Items.GetFirstNode, MakeConsultListDisplayText(x))); + tmpNode.StringData := x; + SetNodeImage(tmpNode, FCurrentContext); + uChanging := False; + Selected := tmpNode; + tvConsultsClick(Self); + end + else + begin + UpdateList ; {update consult list after success} + if (AnIndex = lstNotes.ItemIndex) and (not frmFrame.ContextChanging) then lstNotesClick(Self); + with tvConsults do Selected := FindPieceNode(SavedCsltID, U, Items.GetFirstNode); + tvConsultsClick(Self); + with tvCsltNotes do Selected := FindPieceNode(IntToStr(IEN), U, Items.GetFirstNode); + end; + pnlLeft.Refresh ; +end ; + +procedure TfrmConsults.cmdPCEClick(Sender: TObject); +begin + inherited; + cmdPCE.Enabled := False; + UpdatePCE(uPCEEdit); + cmdPCE.Enabled := True; + if frmFrame.Closing then exit; + DisplayPCE; +end; + +procedure TfrmConsults.mnuActConsultClick(Sender: TObject); +var +// i:integer ; + Saved, IsProcedure: boolean; + SavedCsltID, x: string; + tmpNode: TORTreeNode; +begin + inherited; + if lstConsults.ItemIEN = 0 then exit; + SavedCsltID := lstConsults.ItemID; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + FOrderID := Piece(lstConsults.Items[lstConsults.ItemIndex], U, 6); + if not LockConsultRequest(lstConsults.ItemIEN) then Exit; + FActionType := TMenuItem(Sender).Tag ; + ClearEditControls ; + lstNotes.Enabled := False ; + lstConsults.Enabled := False ; + tvConsults.Enabled := False; + x := Piece(lstConsults.Items[lstConsults.ItemIndex], U, 12); + if x <> '' then + IsProcedure := (x[1] in ['P', 'M']) + else + IsProcedure := (Piece(lstConsults.Items[lstConsults.ItemIndex], U, 9) = 'Procedure'); + //if SetActionContext(Font.Size,FActionType, IsProcedure, ConsultRec.ConsultProcedure) then + if SetActionContext(Font.Size,FActionType, IsProcedure, ConsultRec.ConsultProcedure, MenuAccessRec.UserLevel) then + begin + if Notifications.Active then + with tvConsults do + begin + uChanging := True; + Selected := FindPieceNode(SavedCsltID, 1, U, Items.GetFirstNode); + if Selected <> nil then Selected.Delete; + x := FindConsult(StrToIntDef(SavedCsltID, 0)); + tmpNode := TORTreeNode(Items.AddChildFirst(Items.GetFirstNode, MakeConsultListDisplayText(x))); + tmpNode.StringData := x; + SetNodeImage(tmpNode, FCurrentContext); + uChanging := False; + Selected := tmpNode; + tvConsultsClick(Self); + end +(* with tvConsults do + begin + Selected := FindPieceNode(IntToStr(ConsultRec.IEN), 1, U, Items.GetFirstNode); + if Selected <> nil then Selected.Delete; + Items.AddFirst(nil, FindConsult(ConsultRec.IEN)); + Selected := FindPieceNode(IntToStr(ConsultRec.IEN), 1, U, Items.GetFirstNode); + end*) + else + begin + UpdateList ; {update consult list after success} + with tvConsults do Selected := FindPieceNode(SavedCsltID, U, Items.GetFirstNode); + tvConsultsClick(Self); + end; + end; + UnlockConsultRequest(lstNotes.ItemIEN, StrToIntDef(SavedCsltID, 0)); // v20.4 RV (unlocking problem) + //UnlockConsultRequest(lstNotes.ItemIEN, lstConsults.ItemIEN); + lstNotes.Enabled := True ; + lstConsults.Enabled := True ; + tvConsults.Enabled := True; +end; + +procedure TfrmConsults.UpdateList; +begin + { call this after performing some action on a consult that changes its status + or its service } + case ViewContext of + CC_ALL : begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblConsults.Caption := 'All Consults' ; + FCurrentContext.Ascending := False; + end; + CC_BY_STATUS : begin + with StsCtxt do if Changed then + begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblConsults.Caption := 'All ' + StatusName + ' Consults'; + FCurrentContext.Status := Status; + FCurrentContext.Ascending := Ascending; + end; + end; + CC_BY_SERVICE : begin + with SvcCtxt do if Changed then + begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblConsults.Caption := 'Consults to ' + ServiceName; + FCurrentContext.Service := Service; + FCurrentContext.Ascending := Ascending; + end; + end; + CC_BY_DATE : begin + with DateRange do if Changed then + begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblConsults.Caption := FormatFMDateTime('mmm dd,yy', StrToFMDateTime(BeginDate)) + ' to ' + + FormatFMDateTime('mmm dd,yy', StrToFMDateTime(EndDate)); + FCurrentContext.BeginDate := BeginDate; + FCurrentContext.EndDate := EndDate; + FCurrentContext.Ascending := Ascending; + end; + end; + CC_CUSTOM : begin + with uSelectContext do if Changed then + begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + with lblConsults do if Caption <> 'Default List' then Caption := 'Custom List' ; + FCurrentContext.BeginDate := BeginDate; + FCurrentContext.EndDate := EndDate; + FCurrentContext.Status := Status; + FCurrentContext.Service := Service; + FCurrentContext.GroupBy := GroupBy; + FCurrentContext.Ascending := Ascending; + end ; + end ; + end; {case} + tvConsults.Caption := lblConsults.Caption; + if not frmFrame.ContextChanging then LoadConsults; +end ; + +procedure TfrmConsults.SetActionMenus ; +{Set available menu actions based on consult status and user access to consult's service} +var + status: integer ; +begin + + FillChar(MenuAccessRec, SizeOf(MenuAccessRec), 0); + if (lstConsults.ItemIndex < 0) then + begin + mnuAct.Enabled := False ; + exit ; + end + else + begin + MenuAccessRec := GetActionMenuLevel(ConsultRec.IEN) ; + status := ConsultRec.ORStatus ; + end ; + + + with MenuAccessRec do + begin + // mnuAct.Enabled := (UserLevel > 1) ; {'User Review' menu level = 1 } + {'Service Action' menu level = 2 } + + mnuActConsultRequest.Enabled := (lstConsults.ItemIEN > 0); + mnuActReceive.Enabled := (UserLevel > UL_REVIEW) + and (status=ST_PENDING); + mnuActSchedule.Enabled := (UserLevel > UL_REVIEW) + and ((status=ST_PENDING) + or (status=ST_ACTIVE)); + mnuActDeny.Enabled := (UserLevel > UL_REVIEW) + and ((status<>ST_DISCONTINUED) + and (status<>ST_COMPLETE) + and (status<>ST_CANCELLED) + and (status<>ST_PARTIAL_RESULTS)) ; +(* mnuActEditResubmit.Enabled := {(UserLevel > 1) and }(Notifications.Active) + {if the user received the alert,} and (lstConsults.ItemIEN = CurrNotifIEN) + { this menu should be available } and (status = ST_CANCELLED) + and (not User.NoOrdering);*) + {if processing an alert - NO CHANGE HERE} + if Notifications.Active and (lstConsults.ItemIEN = CurrNotifIEN) then + mnuActEditResubmit.Enabled := (*(lstConsults.ItemIEN = CurrNotifIEN) and*) + (status = ST_CANCELLED) and + (not User.NoOrdering) + {if not processing an alert, check other stuff} + else + mnuActEditResubmit.Enabled := AllowResubmit and + (status = ST_CANCELLED) and + (not User.NoOrdering); + mnuActForward.Enabled := (UserLevel > UL_REVIEW) + and ((status<>ST_DISCONTINUED) + and (status<>ST_COMPLETE) + and (status<>ST_CANCELLED)) ; + mnuActDiscontinue.Enabled := (UserLevel > UL_REVIEW) + and ((status<>ST_DISCONTINUED) + and (status<>ST_COMPLETE) + and (status<>ST_CANCELLED) + and (status<>ST_PARTIAL_RESULTS)) ; + mnuActSigFindings.Enabled := (UserLevel > UL_REVIEW) + and ((status<>ST_DISCONTINUED) + and (status<>ST_CANCELLED)); + mnuActAdminComplete.Enabled := ((UserLevel = UL_ADMIN) or (UserLevel = UL_UPDATE_AND_ADMIN)) + and ((status<>ST_DISCONTINUED) + and (status<>ST_COMPLETE) + and (status<>ST_CANCELLED)); + + mnuActAddComment.Enabled := True; + mnuActDisplayDetails.Enabled := True; + mnuActDisplayResults.Enabled := True; + mnuActDisplaySF513.Enabled := True; + mnuActPrintSF513.Enabled := True; + mnuActConsultResults.Enabled := (lstConsults.ItemIEN > 0) and + (((UserLevel = UL_UPDATE) or (UserLevel = UL_UPDATE_AND_ADMIN)) and + ((status<>ST_DISCONTINUED) and + (status<>ST_CANCELLED))) + or + (lstConsults.ItemIEN > 0) and + ((AllowMedResulting) and + ((status<>ST_DISCONTINUED) and + (status<>ST_CANCELLED))) + or + (lstConsults.ItemIEN > 0) and + ((AllowMedDissociate) and + ((status = ST_COMPLETE))) + or + ((Notifications.Active) and + (lstConsults.ItemIEN = CurrNotifIEN) and + (Notifications.FollowUp = NF_CONSULT_UNSIGNED_NOTE) and + (lstNotes.ItemIndex > -1)); + cmdEditResubmit.Visible := mnuActEditResubmit.Enabled; + end; +end ; + +procedure TfrmConsults.SetResultMenus ; +var + WhyNot: string; +begin + mnuActComplete.Enabled := mnuActConsultResults.Enabled and + ((MenuAccessRec.UserLevel = UL_UPDATE) or + (MenuAccessRec.UserLevel = UL_UPDATE_AND_ADMIN)) + and + ((ConsultRec.ORStatus=ST_PENDING) or + (ConsultRec.ORStatus=ST_ACTIVE) or + (ConsultRec.ORStatus=ST_SCHEDULED) or + (ConsultRec.ORStatus=ST_PARTIAL_RESULTS) or + (ConsultRec.ORStatus=ST_COMPLETE)) ; + mnuActMakeAddendum.Enabled := mnuActConsultResults.Enabled and + ((MenuAccessRec.UserLevel = UL_UPDATE) or + (MenuAccessRec.UserLevel = UL_UPDATE_AND_ADMIN)) + and + (ConsultRec.ORStatus=ST_COMPLETE) and + ((lstNotes.ItemIndex > -1) and + ((ConsultRec.TIUResultNarrative>0) or + (lstNotes.ItemIEN > 0))); + mnuActAddIDEntry.Enabled := mnuActConsultResults.Enabled and + uIDNotesActive and + (tvCsltNotes.Selected <> nil) and + (tvCsltNotes.Selected.ImageIndex in [IMG_SINGLE, IMG_PARENT, + IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_OPEN, + IMG_IDPAR_ADDENDA_SHUT]) and + CanReceiveAttachment(PDocTreeObject(tvCsltNotes.Selected.Data)^.DocID, WhyNot); + mnuActDetachFromIDParent.Enabled := mnuActConsultResults.Enabled and + uIDNotesActive and + (tvCsltNotes.Selected <> nil) and + (tvCsltNotes.Selected.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD]); + mnuActAttachMed.Enabled := mnuActConsultResults.Enabled and + (((mnuActComplete.Enabled) or + (MenuAccessRec.UserLevel = UL_ADMIN) or + (MenuAccessRec.UserLevel = UL_UPDATE_AND_ADMIN))) + and (MenuAccessRec.AllowMedResulting); + mnuActRemoveMed.Enabled := mnuActConsultResults.Enabled and + ((ConsultRec.ORStatus=ST_COMPLETE) and (MenuAccessRec.AllowMedDissociate)); + mnuActNoteEdit.Enabled := mnuActConsultResults.Enabled and + ((lstNotes.ItemIndex > -1) and + ((ConsultRec.TIUResultNarrative>0) or + (lstNotes.ItemIEN > 0) or + (FActionType = CN_ACT_COMPLETE) or + (FActionType = CN_ACT_ADDENDUM))); + mnuActNoteDelete.Enabled := mnuActConsultResults.Enabled and + ((lstNotes.ItemIndex > -1) and + ((ConsultRec.TIUResultNarrative>0) or + (lstNotes.ItemIEN > 0) or + (FActionType = CN_ACT_COMPLETE) or + (FActionType = CN_ACT_ADDENDUM))); + mnuActSignatureSign.Enabled := mnuActConsultResults.Enabled and + ((lstNotes.ItemIndex > -1) and + ((ConsultRec.TIUResultNarrative>0) or + (lstNotes.ItemIEN > 0) or + (FActionType = CN_ACT_COMPLETE) or + (FActionType = CN_ACT_ADDENDUM))) + or + ((Notifications.Active) and + (lstConsults.ItemIEN = CurrNotifIEN) and + (Notifications.FollowUp = NF_CONSULT_UNSIGNED_NOTE) and + (lstNotes.ItemIndex > -1)); + mnuActSignatureList.Enabled := mnuActConsultResults.Enabled and + ((lstNotes.ItemIndex > -1) and + ((ConsultRec.TIUResultNarrative>0) or + (lstNotes.ItemIEN > 0) or + (FActionType = CN_ACT_COMPLETE) or + (FActionType = CN_ACT_ADDENDUM))) + or + ((Notifications.Active) and + (lstConsults.ItemIEN = CurrNotifIEN) and + (Notifications.FollowUp = NF_CONSULT_UNSIGNED_NOTE) and + (lstNotes.ItemIndex > -1)); + mnuActSignatureSave.Enabled := mnuActConsultResults.Enabled and + ((lstNotes.ItemIndex > -1) and + ((ConsultRec.TIUResultNarrative>0) or + (lstNotes.ItemIEN > 0) or + (FActionType = CN_ACT_COMPLETE) or + (FActionType = CN_ACT_ADDENDUM))); + mnuActIdentifyAddlSigners.Enabled := mnuActConsultResults.Enabled and + ((lstNotes.ItemIndex > -1) and + ((ConsultRec.TIUResultNarrative>0) or + (lstNotes.ItemIEN > 0))); + mnuActNotePrint.Enabled := mnuActConsultResults.Enabled and + ((lstNotes.ItemIndex > -1) and + ((ConsultRec.TIUResultNarrative>0) or + (lstNotes.ItemIEN > 0))); + mnuActChange.Enabled := mnuActConsultResults.Enabled and + ((lstNotes.ItemIndex > -1) and (lstNotes.ItemIndex = EditingIndex)); + mnuActLoadBoiler.Enabled := mnuActConsultResults.Enabled and + ((lstNotes.ItemIndex > -1) and (lstNotes.ItemIndex = EditingIndex)); + + if ((lstNotes.ItemIndex > -1) and UserIsSigner(lstNotes.ItemIEN)) then + begin + mnuActSignatureList.Enabled := True; + mnuActSignatureSign.Enabled := True; + mnuActConsultResults.Enabled := True; + end; + + popNoteMemoSignList.Enabled := //(mnuActConsultResults.Enabled) and + (mnuActSignatureList.Enabled) ; + popNoteMemoSign.Enabled := //(mnuActConsultResults.Enabled) and + mnuActSignatureSign.Enabled ; + popNoteMemoSave.Enabled := //(mnuActConsultResults.Enabled) and + mnuActSignatureSave.Enabled ; + popNoteMemoEdit.Enabled := //(mnuActConsultResults.Enabled) and + mnuActNoteEdit.Enabled; + popNoteMemoAddend.Enabled := //(mnuActConsultResults.Enabled) and + mnuActMakeAddendum.Enabled; + popNoteMemoDelete.Enabled := //(mnuActConsultResults.Enabled) and + mnuActNoteDelete.Enabled; + popNoteMemoAddlSign.Enabled := //(mnuActConsultResults.Enabled) and + mnuActIdentifyAddlSigners.Enabled; + popNoteMemoPrint.Enabled := (mnuActNotePrint.Enabled); +end; + +procedure TfrmConsults.DisplayPCE; +{ displays PCE information if appropriate & enables/disables editing of PCE data } +var + EnableList, ShowList: TDrawers; + VitalStr: TStringlist; + NoPCE: boolean; + ActionSts: TActionRec; + +begin + if (lstNotes.ItemIndex=-1) or (lstNotes.Items.Count=0) then exit ; + memPCEShow.Clear; + with lstNotes do if ItemIndex = EditingIndex then + begin + with uPCEEdit do + begin + AddStrData(memPCEShow.Lines); + NoPCE := (memPCEShow.Lines.Count = 0); + VitalStr := TStringList.create; + try + GetVitalsFromDate(VitalStr, uPCEEdit); + AddVitalData(VitalStr, memPCEShow.Lines); + finally + VitalStr.free; + end; + cmdPCE.Enabled := CanEditPCE(uPCEEdit); + ShowPCEControls(cmdPCE.Enabled or (memPCEShow.Lines.Count > 0)); + if(NoPCE and memPCEShow.Visible) then + memPCEShow.Lines.Insert(0, TX_NOPCE); + + if(InteractiveRemindersActive) then + begin + if(GetReminderStatus = rsNone) then + EnableList := [odTemplates] + else + EnableList := [odTemplates, odReminders]; + ShowList := [odTemplates, odReminders]; + end + else + begin + EnableList := [odTemplates]; + ShowList := [odTemplates]; + end; + frmDrawers.Visible := True; + frmDrawers.DisplayDrawers(TRUE, EnableList, ShowList); + cmdNewConsult.Visible := False; + cmdNewProc.Visible := False; + pnlConsultList.Height := (pnlLeft.Height div 5); + + cmdPCE.Visible := TRUE; + end; + end else + begin + //VitalStr := TStringList.create; + //VitalStr.clear; + cmdPCE.Enabled := False; + + frmDrawers.Visible := False; + frmDrawers.DisplayDrawers(FALSE); + cmdPCE.Visible := FALSE; + cmdNewConsult.Visible := True; + cmdNewProc.Top := cmdNewConsult.Top + cmdNewConsult.Height; + cmdNewProc.Visible := True; + pnlConsultList.Height := (pnlLeft.Height div 2); + //pnlConsultList.Height := 3 * (pnlLeft.Height div 5); + + ActOnDocument(ActionSts, lstNotes.ItemIEN, 'VIEW'); + if ActionSts.Success then + begin + StatusText('Retrieving encounter information...'); + with uPCEShow do + begin + NoteDateTime := MakeFMDateTime(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3)); + PCEForNote(lstNotes.ItemIEN, uPCEEdit); + AddStrData(memPCEShow.Lines); + NoPCE := (memPCEShow.Lines.Count = 0); + VitalStr := TStringList.create; + try + GetVitalsFromNote(VitalStr, uPCEShow, lstNotes.ItemIEN); + AddVitalData(VitalStr, memPCEShow.Lines); + finally + VitalStr.free; + end; + ShowPCEControls(memPCEShow.Lines.Count > 0); + if(NoPCE and memPCEShow.Visible) then + memPCEShow.Lines.Insert(0, TX_NOPCE); + end; + StatusText(''); + end + else + ShowPCEControls(FALSE); + end; {if ItemIndex} + memPCEShow.SelStart := 0; + popNoteMemoEncounter.Enabled := cmdPCE.Enabled; + popNoteMemoEncounter.Visible := cmdPCE.Visible; +end; + +procedure TfrmConsults.ShowPCEControls(ShouldShow: Boolean); +begin + sptVert.Visible := ShouldShow; + memPCEShow.Visible := ShouldShow; + if(ShouldShow) then + sptVert.Top := memPCEShow.Top - sptVert.Height; + memResults.Invalidate; +end; + +procedure TfrmConsults.RemovePCEFromChanges(IEN: Integer; AVisitStr: string = ''); +begin + if IEN = CN_ADDENDUM then Exit; // no PCE information entered for an addendum + if AVisitStr = '' then AVisitStr := VisitStrForNote(IEN); + Changes.Remove(CH_PCE, 'V' + AVisitStr); + Changes.Remove(CH_PCE, 'P' + AVisitStr); + Changes.Remove(CH_PCE, 'D' + AVisitStr); + Changes.Remove(CH_PCE, 'I' + AVisitStr); + Changes.Remove(CH_PCE, 'S' + AVisitStr); + Changes.Remove(CH_PCE, 'A' + AVisitStr); + Changes.Remove(CH_PCE, 'H' + AVisitStr); + Changes.Remove(CH_PCE, 'E' + AVisitStr); + Changes.Remove(CH_PCE, 'T' + AVisitStr); +end; + +procedure TfrmConsults.lstNotesClick(Sender: TObject); +{ loads the text for the selected note or displays the editing panel for the selected note } +var + x: string; +begin + inherited; + if (lstNotes.ItemIEN = -1) then exit ; + with lstNotes do + if ItemIndex = EditingIndex then + begin + lstConsults.Enabled := False ; + tvConsults.Enabled := False; + pnlResults.Visible := True; + pnlResults.BringToFront; + memConsult.TabStop := False; + mnuActChange.Enabled := True; + mnuActLoadBoiler.Enabled := True; + UpdateReminderFinish; + end + else + begin + StatusText('Retrieving selected item...'); + if EditingIndex = -1 then + begin + lstConsults.Enabled := True ; + tvConsults.Enabled := True; + end; + lblTitle.Caption := MakeConsultNoteDisplayText(lstNotes.Items[lstNotes.ItemIndex]); + lblTitle.Hint := lblTitle.Caption; + lstNotes.Enabled := True ; + pnlResults.Visible := False; + UpdateReminderFinish; + pnlRead.BringToFront; + memConsult.TabStop := True; + if Copy(Piece(lstNotes.ItemID, ';', 2), 1, 4)= 'MCAR' then + begin + memConsult.Lines.Assign(GetDetailedMedicineResults(lstNotes.ItemID)); + x := Piece(Piece(Piece(lstNotes.ItemID, ';', 2), '(', 2), ',', 1) + ';' + Piece(lstNotes.ItemID, ';', 1); + NotifyOtherApps(NAE_REPORT, 'MED^' + x); + end + else + begin + LoadDocumentText(memConsult.Lines,ItemIEN) ; + mnuActChange.Enabled := False; + mnuActLoadBoiler.Enabled := False; + NotifyOtherApps(NAE_REPORT, 'TIU^' + lstNotes.ItemID); + end; + memConsult.SelStart := 0; + end; + if Copy(Piece(lstNotes.ItemID, ';', 2), 1, 4) <> 'MCAR' then + begin + if(assigned(frmReminderTree)) then frmReminderTree.EnableActions; + DisplayPCE; + end; + pnlRight.Refresh; + memConsult.Repaint; + memResults.Repaint; + SetResultMenus; + StatusText(''); +end; + +procedure TfrmConsults.popNoteMemoPopup(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popNoteMemo) is TCustomEdit + then FEditCtrl := TCustomEdit(PopupComponent(Sender, popNoteMemo)) + else FEditCtrl := nil; + if FEditCtrl <> nil then + begin + popNoteMemoCut.Enabled := FEditCtrl.SelLength > 0; + popNoteMemoCopy.Enabled := popNoteMemoCut.Enabled; + popNoteMemoPaste.Enabled := (not TORExposedCustomEdit(FEditCtrl).ReadOnly) and + Clipboard.HasFormat(CF_TEXT); + popNoteMemoTemplate.Enabled := frmDrawers.CanEditTemplates and popNoteMemoCut.Enabled; + popNoteMemoFind.Enabled := FEditCtrl.GetTextLen > 0; + end + else + begin + popNoteMemoCut.Enabled := False; + popNoteMemoCopy.Enabled := False; + popNoteMemoPaste.Enabled := False; + popNoteMemoTemplate.Enabled := False; + end; + if pnlResults.Visible then + begin + popNoteMemoSpell.Enabled := True; + popNoteMemoGrammar.Enabled := True; + popNoteMemoReformat.Enabled := True; + popNoteMemoReplace.Enabled := (FEditCtrl.GetTextLen > 0); + popNoteMemoPreview.Enabled := (frmDrawers.TheOpenDrawer = odTemplates) and Assigned(frmDrawers.tvTemplates.Selected); + popNoteMemoInsTemplate.Enabled := (frmDrawers.TheOpenDrawer = odTemplates) and Assigned(frmDrawers.tvTemplates.Selected); + end else + begin + popNoteMemoSpell.Enabled := False; + popNoteMemoGrammar.Enabled := False; + popNoteMemoReformat.Enabled := False; + popNoteMemoReplace.Enabled := False; + popNoteMemoPreview.Enabled := False; + popNoteMemoInsTemplate.Enabled := False; + end; +end; + +procedure TfrmConsults.popNoteMemoCutClick(Sender: TObject); +begin + inherited; + FEditCtrl.CutToClipboard; +end; + +procedure TfrmConsults.popNoteMemoCopyClick(Sender: TObject); +begin + inherited; + FEditCtrl.CopyToClipboard; +end; + +procedure TfrmConsults.popNoteMemoPasteClick(Sender: TObject); +begin + inherited; + FEditCtrl.SelText := Clipboard.AsText; {*KCM*} + //FEditCtrl.PasteFromClipboard; // use AsText to prevent formatting +end; + +procedure TfrmConsults.popNoteMemoReformatClick(Sender: TObject); +begin + inherited; + if Screen.ActiveControl <> memResults then Exit; + ReformatMemoParagraph(memResults); +end; + +procedure TfrmConsults.popNoteMemoFindClick(Sender: TObject); +begin + inherited; + SendMessage(TRichEdit(popNoteMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0); + with dlgFindText do + begin + Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top); + FindText := ''; + Options := [frDown, frHideUpDown]; + Execute; + end; +end; + +procedure TfrmConsults.dlgFindTextFind(Sender: TObject); +begin + dmodShared.FindRichEditText(dlgFindText, TRichEdit(popNoteMemo.PopupComponent)); +end; + +procedure TfrmConsults.dlgReplaceTextFind(Sender: TObject); +begin + inherited; + dmodShared.FindRichEditText(dlgFindText, TRichEdit(popNoteMemo.PopupComponent)); +end; + +procedure TfrmConsults.dlgReplaceTextReplace(Sender: TObject); +begin + inherited; + dmodShared.ReplaceRichEditText(dlgReplaceText, TRichEdit(popNoteMemo.PopupComponent)); +end; + +procedure TfrmConsults.popNoteMemoReplaceClick(Sender: TObject); +begin + inherited; + SendMessage(TRichEdit(popNoteMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0); + with dlgReplaceText do + begin + Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top); + FindText := ''; + ReplaceText := ''; + Options := [frDown, frHideUpDown]; + Execute; + end; +end; + +procedure TfrmConsults.popNoteMemoSpellClick(Sender: TObject); +begin + inherited; + DoAutoSave(0); + timAutoSave.Enabled := False; + try + SpellCheckForControl(memResults); + finally + FChanged := True; + DoAutoSave(0); + timAutoSave.Enabled := True; + end; +end; + +procedure TfrmConsults.popNoteMemoGrammarClick(Sender: TObject); +begin + inherited; + DoAutoSave(0); + timAutoSave.Enabled := False; + try + GrammarCheckForControl(memResults); + finally + FChanged := True; + DoAutoSave(0); + timAutoSave.Enabled := True; + end; +end; + +procedure TfrmConsults.RequestPrint; +var + Saved: boolean; +begin + inherited; + if lstNotes.ItemIEN = EditingIndex then // !KCM! in response to WPB-0898-31166 + //if ItemIEN < 0 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + with lstConsults do + if ItemIEN > 0 then PrintSF513(ItemIEN, DisplayText[ItemIndex]) else + begin + if ItemIEN = 0 then InfoBox(TX_NOCONSULT, TX_NOCSLT_CAP, MB_OK); + if lstNotes.ItemIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK); + end; +end; + +procedure TfrmConsults.RequestMultiplePrint(AForm: TfrmPrintList); +var + NoteIEN: int64; + i: integer; +begin + inherited; + with AForm.lbIDParents do + 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 PrintSF513(NoteIEN, DisplayText[i]) else + begin + if NoteIEN = 0 then InfoBox(TX_NOCONSULT, TX_NOCSLT_CAP, MB_OK); + if NoteIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK); + end; + end; {if selected} + end; {for} + end; {with} +end; + +procedure TfrmConsults.mnuActDisplayResultsClick(Sender: TObject); +var + Saved: boolean; +begin + inherited; + if lstConsults.ItemIEN = 0 then exit; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + lstNotes.ItemIndex := -1 ; + DisplayResults(memConsult.Lines, lstConsults.ItemIEN) ; + memConsult.SelStart := 0; + SetResultMenus; +end; + +procedure TfrmConsults.mnuActDisplaySF513Click(Sender: TObject); +var + Saved: boolean; +begin + inherited; + if lstConsults.ItemIEN = 0 then exit; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + lstNotes.ItemIndex := -1 ; + with lstConsults do + if ItemIEN > 0 then ReportBox(ShowSF513(ItemIEN),DisplayText[ItemIndex], False) + else + begin + if ItemIEN = 0 then InfoBox(TX_NOCONSULT, TX_NOCSLT_CAP, MB_OK); + if lstNotes.ItemIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK); + end; + SetResultMenus; +end; + +procedure TfrmConsults.pnlResultsResize(Sender: TObject); +const + LEFT_MARGIN = 4; +begin + inherited; + LimitEditWidth(memResults, MAX_ENTRY_WIDTH - 1); + memResults.Constraints.MinWidth := TextWidthByFont(memResults.Font.Handle, StringOfChar('X', MAX_ENTRY_WIDTH)) + (LEFT_MARGIN * 2) + ScrollBarWidth; + pnlLeft.Width := self.ClientWidth - pnlResults.Width - sptHorz.Width; +end; + +procedure TfrmConsults.NotifyOrder(OrderAction: Integer; AnOrder: TOrder); +begin + if ViewContext = 0 then exit; // form has not yet been displayed, so nothing to update + if EditingIndex <> -1 then exit; // do not rebuild list until after save + case OrderAction of + ORDER_NEW: UpdateList ; + ORDER_SIGN: UpdateList{ sent by fReview, fOrderSign when orders signed, AnOrder=nil} + end; +end; + +procedure TfrmConsults.mnuActPrintSF513Click(Sender: TObject); +var + Saved: boolean; +begin + inherited; + if lstConsults.ItemIEN = 0 then exit; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + RequestPrint; +end; + + +function TfrmConsults.AuthorizedUser: Boolean; +begin + Result := True; + if User.NoOrdering then Result := False; + if User.OrderRole = OR_BADKEYS then + begin + InfoBox(TX_BADKEYS, TC_BADKEYS, MB_OK); + Result := False; + end; +end; + +procedure TfrmConsults.FormCreate(Sender: TObject); +begin + inherited; + PageID := CT_CONSULTS; + memConsult.Color := ReadOnlyColor; + memPCEShow.Color := ReadOnlyColor; + lblNewTitle.Color := ReadOnlyColor; + EditingIndex := -1; + FLastNoteID := ''; + FEditNote.LastCosigner := 0; + FEditNote.LastCosignerName := ''; + //pnlConsultList.Height := (pnlLeft.Height div 2); + pnlConsultList.Height := 3 * (pnlLeft.Height div 5); + frmDrawers := TfrmDrawers.CreateDrawers(Self, pnlAction, [],[]); + frmDrawers.Align := alBottom; + frmDrawers.RichEditControl := memResults; + frmDrawers.Splitter := splDrawers; + frmDrawers.DefTempPiece := 2; + tvCsltNotes.Images := dmodShared.imgNotes; + tvCsltNotes.StateImages := dmodShared.imgImages; + tvConsults.Images := dmodShared.imgConsults; + FImageFlag := TBitmap.Create; + FDocList := TStringList.Create; + with FCurrentNoteContext do + begin + GroupBy := ''; + TreeAscending := False; + Status := IntToStr(NC_ALL); + end; + FCsltList := TStringList.Create; + TAccessibleTreeView.WrapControl(tvConsults); +end; + +procedure TfrmConsults.mnuActDisplayDetailsClick(Sender: TObject); +var + Saved: boolean; +begin + inherited; + if lstConsults.ItemIEN = 0 then exit; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + tvConsultsChange(Self, tvConsults.Selected); + //lstConsultsClick(Self); +end; + +procedure TfrmConsults.FormClose(Sender: TObject; var Action: TCloseAction); +var + Saved: Boolean; + IEN: Int64; + ErrMsg: string; + DeleteSts: TActionRec; +begin + inherited; + if frmFrame.TimedOut and (EditingIndex <> -1) then + begin + FSilent := True; + if memResults.GetTextLen > 0 then SaveCurrentNote(Saved) + else + begin + IEN := lstNotes.GetIEN(EditingIndex); + if not LastSaveClean(IEN) then // means note hasn't been committed yet + begin + LockDocument(IEN, ErrMsg); + if ErrMsg = '' then + begin + DeleteDocument(DeleteSts, IEN, ''); + UnlockDocument(IEN); + end; {if ErrMsg} + end; {if not LastSaveClean} + end; {else} + end; {if frmFrame} +end; + +procedure TfrmConsults.mnuActIdentifyAddlSignersClick(Sender: TObject); +var + Exclusions: TStrings; + Saved, x, y: boolean; + SignerList: TSignerList; + ActionSts: TActionRec; + SigAction: integer; + SavedDocID, SavedCsltID: string; + ARefDate: TFMDateTime; +begin + inherited; + if lstNotes.ItemIEN = 0 then exit; + SavedDocID := lstNotes.ItemID; + SavedCsltID := lstConsults.ItemID; + if lstNotes.ItemIndex = EditingIndex then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + tvConsultsChange(Self, tvConsults.Selected); + with tvCsltNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end; + x := CanChangeCosigner(lstNotes.ItemIEN); + ActOnDocument(ActionSts, lstNotes.ItemIEN, 'IDENTIFY SIGNERS'); + y := ActionSts.Success; + if x and not y then + begin + if InfoBox(ActionSts.Reason + CRLF + CRLF + + 'Would you like to change the cosigner?', + TX_IN_AUTH, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) = ID_YES then + SigAction := SG_COSIGNER + else + Exit; + end + else if y and not x then SigAction := SG_ADDITIONAL + else if x and y then SigAction := SG_BOTH + else + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end; + + with lstNotes do + begin + if not LockConsultRequestAndNote(ItemIEN) then Exit; + Exclusions := GetCurrentSigners(ItemIEN); + ARefDate := StrToFloat(Piece(Items[ItemIndex], U, 3)); + SelectAdditionalSigners(Font.Size, ItemIEN, SigAction, Exclusions, SignerList, CT_CONSULTS, ARefDate); + end; + with SignerList do + begin + case SigAction of + SG_ADDITIONAL: if Changed and (Signers <> nil) and (Signers.Count > 0) then + UpdateAdditionalSigners(lstNotes.ItemIEN, Signers); + SG_COSIGNER: if Changed then ChangeCosigner(lstNotes.ItemIEN, Cosigner); + SG_BOTH: if Changed then + begin + if (Signers <> nil) and (Signers.Count > 0) then + UpdateAdditionalSigners(lstNotes.ItemIEN, Signers); + ChangeCosigner(lstNotes.ItemIEN, Cosigner); + end; + end; + lstNotesClick(Self); + end; + UnlockDocument(lstNotes.ItemIEN); + UnlockConsultRequest(lstNotes.ItemIEN, StrToIntDef(SavedCsltID, 0)); // v20.4 RV (unlocking problem) + //UnlockConsultRequest(lstNotes.ItemIEN, ConsultRec.IEN); +end; + +procedure TfrmConsults.popNoteMemoAddlSignClick(Sender: TObject); +begin + inherited; + mnuActIdentifyAddlSignersClick(Self); +end; + +procedure TfrmConsults.ProcessNotifications; +var + ConsultIEN, NoteIEN: integer; + x: string; + Saved: boolean; + AnObject: PDocTreeObject; + tmpNode: TORTreeNode; +begin + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + FNotifPending := True; + NoteIEN := 0; + CurrNotifIEN := 0; + lblConsults.Caption := Notifications.Text; + tvConsults.Caption := Notifications.Text; + EditingIndex := -1; + lstConsults.Enabled := True ; + tvConsults.Enabled := True; + lstNotes.Enabled := True ; + pnlRead.BringToFront ; + memConsult.TabStop := True; + lstConsults.Clear; + + if Copy(Piece(Piece(Notifications.RecordID, U, 2),';',1),1,3) = 'TIU' then + begin + ConsultIEN := StrToIntDef(Piece(Piece(Notifications.RecordID, U, 4),';',2),0); + NoteIEN := StrToIntDef(Piece(Notifications.AlertData, U, 1),0); + end + else if Notifications.Followup = NF_STAT_RESULTS then + ConsultIEN := StrToIntDef(Piece(Piece(Piece(Notifications.AlertData, '|', 2), '@', 1), ';', 1), 0) + else if Notifications.Followup = NF_CONSULT_PROC_INTERPRETATION then + ConsultIEN := StrToIntDef(Piece(Notifications.AlertData, '|', 1), 0) + else if ((Notifications.Followup = NF_CONSULT_REQUEST_RESOLUTION) and (Pos('Sig Findings', Notifications.RecordID) = 0)) then + ConsultIEN := StrToIntDef(Piece(Notifications.AlertData, '|', 1), 0) + else + ConsultIEN := StrToIntDef(Notifications.AlertData, 0); + x := FindConsult(ConsultIEN); + CurrNotifIEN := ConsultIEN; + lstConsults.Items.Add(x); + uChanging := True; + tvConsults.Items.BeginUpdate; + tvConsults.Items.Clear; + tmpNode := tvConsults.FindPieceNode('Alerted Consult', 2, U, nil); + if tmpNode = nil then + begin + tmpNode := TORTreeNode(tvConsults.Items.AddFirst(tvConsults.Items.GetFirstNode, 'Alerted Consult')); + tmpNode.StringData := '-1^Alerted Consult^^^^^^0'; + end + else + tmpNode.DeleteChildren; + SetNodeImage(tmpNode, FCurrentContext); + tmpNode := TORTreeNode(tvConsults.Items.AddChildFirst(tmpNode, MakeConsultListDisplayText(x))); + tmpNode.StringData := x; + SetNodeImage(tmpNode, FCurrentContext); + with tvConsults do Selected := FindPieceNode(Piece(x, U, 1), U, Items.GetFirstNode); + tvConsults.Items.EndUpdate; + uChanging := False; + tvConsultsChange(Self, tvConsults.Selected); + if ((Notifications.Followup = NF_CONSULT_REQUEST_RESOLUTION) and (Pos('Sig Findings', Notifications.RecordID) = 0)) then + begin + //XQADATA = consult_ien|tiu_ien;TIU(8925, + if Copy(Piece(Piece(Notifications.AlertData, '|', 2), ';', 2), 1, 3) = 'TIU' then + NoteIEN := StrToIntDef(Piece(Piece(Notifications.AlertData, '|', 2), ';', 1), 0); + end + else if (Notifications.Followup = NF_CONSULT_PROC_INTERPRETATION) then + begin + NoteIEN := StrToIntDef(Piece(Piece(Notifications.AlertData, '|', 2), ';', 1), 0); + end + else if (Notifications.Followup = NF_STAT_RESULTS) then + begin + NoteIEN := 0; // Note IEN not available for this alert - fall through to display all results - CURTIS? + end; + tvCsltNotes.FullExpand; + if NoteIEN > 0 then with lstNotes do + begin + if SelectByIEN(NoteIEN) = -1 then + begin + x := Notifications.AlertData; + uChanging := True; + tvCsltNotes.Items.BeginUpdate; + lstNotes.Clear; + KillDocTreeObjects(tvCsltNotes); + tvCsltNotes.Items.Clear; + lstNotes.Items.Add(x); + AnObject := MakeConsultsNoteTreeObject('ALERT^Alerted Note^^^^^^^^^^^%^0'); + tmpNode := TORTreeNode(tvCsltNotes.Items.AddObjectFirst(tvCsltNotes.Items.GetFirstNode, AnObject.NodeText, AnObject)); + TORTreeNode(tmpNode).StringData := 'ALERT^Alerted Note^^^^^^^^^^^%^0'; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + AnObject := MakeConsultsNoteTreeObject(x); + tmpNode := TORTreeNode(tvCsltNotes.Items.AddChildObjectFirst(tmpNode, AnObject.NodeText, AnObject)); + tmpNode.StringData := x; + SetTreeNodeImagesAndFormatting(tmpNode, FCurrentNoteContext, CT_CONSULTS); + with tvCsltNotes do Selected := FindPieceNode(Piece(x, U, 1), U, Items.GetFirstNode); + tvCsltNotes.Items.EndUpdate; + uChanging := False; + end + else + begin + uChanging := True; + with tvCsltNotes do Selected := FindPieceNode(IntToStr(NoteIEN), U , nil); + uChanging := False; + end; + tvCsltNotesChange(Self, tvCsltNotes.Selected); + end + else if (ConsultRec.ORStatus = ST_COMPLETE) and ((ConsultRec.TIUDocuments.Count + ConsultRec.MedResults.Count) > 0) then + mnuActDisplayResultsClick(Self); + + case Notifications.Followup of + NF_CONSULT_REQUEST_RESOLUTION : Notifications.Delete; + NF_NEW_SERVICE_CONSULT_REQUEST : Notifications.Delete; + NF_STAT_RESULTS : Notifications.Delete; + NF_CONSULT_REQUEST_CANCEL_HOLD : Notifications.Delete; + NF_CONSULT_REQUEST_UPDATED : Notifications.Delete; + NF_CONSULT_UNSIGNED_NOTE : {Will be automatically deleted by TIU sig action!!!} ; + NF_CONSULT_PROC_INTERPRETATION : Notifications.Delete; // not sure we want to do this yet, + // but if not now, then when? + end; + if Copy(Piece(Notifications.RecordID, U, 2), 1, 6) = 'TIUADD' then Notifications.Delete; + if Copy(Piece(Notifications.RecordID, U, 2), 1, 5) = 'TIUID' then Notifications.Delete; + FNotifPending := False; +end; + +procedure TfrmConsults.mnuActEditResubmitClick(Sender: TObject); +var + Resubmitted: boolean; + x: string; + SavedConsultID: string; +begin + inherited; + if lstConsults.ItemIEN = 0 then exit; + SavedConsultID := lstConsults.ItemID; + x := ConsultCanBeResubmitted(lstConsults.ItemIEN); + if Piece(x, U, 1) = '0' then + begin + InfoBox(Piece(x, U, 2), TC_NO_RESUBMIT, MB_OK); + Exit; + end; + if ConsultRec.ConsultProcedure <> '' then + Resubmitted := EditResubmitProcedure(Font.Size, lstConsults.ItemIEN) + else + Resubmitted := EditResubmitConsult(Font.Size, lstConsults.ItemIEN); + if Resubmitted then + begin + LoadConsults; + with tvConsults do Selected := FindPieceNode(SavedConsultID, 1, U, Items.GetFirstNode); + tvConsultsClick(Self); + (* lstConsults.Clear; + lstConsults.Items.Add(FindConsult(ConsultRec.IEN)); + lstConsults.SelectByIEN(ConsultRec.IEN); + lstConsultsClick(Self);*) + end; +end; + +procedure TfrmConsults.EnableDisableOrdering; +begin + if User.NoOrdering then + begin + cmdNewConsult.Enabled := False; + cmdNewProc.Enabled := False; + mnuActNew.Enabled := False; + Exit; + end; +end; + +procedure TfrmConsults.UMNewOrder(var Message: TMessage); +{ update consults list if progress note completes consult } +begin + with Message do + begin + if ViewContext = 0 then exit; // form has not yet been displayed, so nothing to update + UpdateList; + end; +end; + +procedure TfrmConsults.cmdEditResubmitClick(Sender: TObject); +begin + inherited; + mnuActEditResubmitClick(Self); +end; + +procedure TfrmConsults.mnuViewSaveAsDefaultClick(Sender: TObject); +begin + inherited; + if InfoBox('Replace current defaults?','Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + begin + SaveCurrentContext(FCurrentContext); + lblConsults.Caption := 'Default List'; + tvConsults.Caption := 'Default List'; + FDefaultContext := FCurrentContext; + end; +end; + +procedure TfrmConsults.mnuViewReturntoDefaultClick(Sender: TObject); +begin + inherited; + lblConsults.Caption := 'Default List'; + tvConsults.Caption := 'Default List'; + SetViewContext(FDefaultContext); +end; + +procedure TfrmConsults.popNoteMemoTemplateClick(Sender: TObject); +begin + inherited; + EditTemplates(Self, True, FEditCtrl.SelText); +end; + +procedure TfrmConsults.mnuEditTemplatesClick(Sender: TObject); +begin + inherited; + EditTemplates(Self); +end; + +procedure TfrmConsults.mnuNewTemplateClick(Sender: TObject); +begin + inherited; + EditTemplates(Self, True); +end; + +procedure TfrmConsults.pnlLeftResize(Sender: TObject); +begin + inherited; + if EditingIndex = -1 then + pnlConsultList.Height := (pnlLeft.Height div 2) + //pnlConsultList.Height := 3 * (pnlLeft.Height div 5) + else + pnlConsultList.Height := (pnlLeft.Height div 5); + Self.Invalidate; +end; + +procedure TfrmConsults.mnuOptionsClick(Sender: TObject); +begin + inherited; + mnuEditTemplates.Enabled := frmDrawers.CanEditTemplates; + mnuNewTemplate.Enabled := frmDrawers.CanEditTemplates; + mnuEditSharedTemplates.Enabled := frmDrawers.CanEditShared; + mnuNewSharedTemplate.Enabled := frmDrawers.CanEditShared; + mnuEditDialgFields.Enabled := CanEditTemplateFields; +end; + +procedure TfrmConsults.mnuEditSharedTemplatesClick(Sender: TObject); +begin + inherited; + EditTemplates(Self, FALSE, '', TRUE); +end; + +procedure TfrmConsults.mnuNewSharedTemplateClick(Sender: TObject); +begin + inherited; + EditTemplates(Self, TRUE, '', TRUE); +end; + +procedure TfrmConsults.mnuActNotePrintClick(Sender: TObject); +var + Saved: Boolean; +begin + inherited; + with lstNotes do + begin + if ItemIndex = EditingIndex then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + if ItemIEN > 0 then PrintNote(ItemIEN, MakeConsultNoteDisplayText(Items[ItemIndex])) else + begin + if ItemIEN = 0 then InfoBox(TX_NONOTE, TX_NONOTE_CAP, MB_OK); + if ItemIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK); + end; + end; +end; + +procedure TfrmConsults.popNoteMemoPrintClick(Sender: TObject); +begin + inherited; + mnuActNotePrintClick(Self); +end; + + +//========================== leave these at end of file ============================= + +(*procedure TfrmConsults.lstNotesDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + x: string; +const + STD_DATE = 'MMM DD,YY'; +begin + inherited; + with (Control as TORListBox).Canvas do { draw on control canvas, not on the form } + begin + FImageFlag.LoadFromResourceName(hInstance, 'BMP_IMAGEFLAG_1'); + x := (Control as TORListBox).Items[Index]; + (Control as TORListBox).ItemHeight := HigherOf(TextHeight(x), FImageFlag.Height); + FillRect(Rect); { clear the rectangle } + if StrToIntDef(Piece(x, U, 7), 0) > 0 then + begin + if StrToIntDef(Piece(x, U, 7), 0) = 1 then + FImageFlag.LoadFromResourceName(hInstance, 'BMP_IMAGEFLAG_1') + else if StrToIntDef(Piece(x, U, 7), 0) = 2 then + FImageFlag.LoadFromResourceName(hInstance, 'BMP_IMAGEFLAG_2') + else if StrToIntDef(Piece(x, U, 7), 0) > 2 then + FImageFlag.LoadFromResourceName(hInstance, 'BMP_IMAGEFLAG_3'); + BrushCopy(Bounds(Rect.Left, Rect.Top, FImageFlag.Width, FImageFlag.Height), + FImageFlag, Bounds(0, 0, FImageFlag.Width, FImageFlag.Height), clRed); {render ImageFlag} + end; + TextOut(Rect.Left + FImageFlag.Width, Rect.Top, Piece(x, U, 2)); + TextOut(Rect.Left + FImageFlag.Width + TextWidth(STD_DATE), Rect.Top, Piece(x, U, 3)); + end; +end; +*) +procedure TfrmConsults.FormDestroy(Sender: TObject); +begin + TAccessibleTreeView.UnwrapControl(tvConsults); + FDocList.Free; + FCsltList.Free; + FImageFlag.Free; + KillDocTreeObjects(tvCsltNotes); + inherited; +end; + +function TfrmConsults.GetDrawers: TFrmDrawers; +begin + Result := frmDrawers; +end; + +procedure TfrmConsults.SetEditingIndex(const Value: Integer); +begin + FEditingIndex := Value; + if(FEditingIndex < 0) then + KillReminderDialog(Self); + if(assigned(frmReminderTree)) then + frmReminderTree.EnableActions; +end; + +function TfrmConsults.LockConsultRequest(AConsult: Integer): Boolean; +{ returns true if consult successfully locked } +begin + // *** I'm not sure about the FOrderID field - if the user is editing one note and + // deletes another, FOrderID will be for editing note, then delete note, then null + Result := True; + FOrderID := GetConsultOrderIEN(AConsult); + if frmNotes.ActiveEditOf(0, AConsult) then + begin + InfoBox(TX_ORDER_LOCKED, TC_ORDER_LOCKED, MB_OK); + Result := False; + FOrderID := ''; + Exit; + end; +(* if (FOrderID <> '') and (FOrderID = frmNotes.OrderID) then + begin + InfoBox(TX_ORDER_LOCKED, TC_ORDER_LOCKED, MB_OK); + Result := False; + FOrderID := ''; + Exit; + end;*) + if (FOrderId <> '') then + if not OrderCanBeLocked(FOrderID) then Result := False; + if not Result then FOrderID := ''; +end; + +function TfrmConsults.LockConsultRequestAndNote(AnIEN: Int64): Boolean; +{ returns true if note and associated request successfully locked } +var + AConsult: Integer; + LockMsg, x: string; +begin + Result := True; + AConsult := 0; + if frmNotes.ActiveEditOf(AnIEN, lstConsults.ItemIEN) then + begin + InfoBox(TX_ORDER_LOCKED, TC_ORDER_LOCKED, MB_OK); + Result := False; + Exit; + end; + if Changes.Exist(CH_CON, IntToStr(AnIEN)) then Exit; // already locked + // try to lock the consult request first, if there is one + if IsConsultTitle(TitleForNote(AnIEN)) then + begin + x := GetPackageRefForNote(lstNotes.ItemIEN); + AConsult := StrToIntDef(Piece(x, ';', 1), 0); + //AConsult := GetConsultIENforNote(lstNotes.ItemIEN); + Result := LockConsultRequest(AConsult); + end; + // now try to lock the note + if Result then + begin + LockDocument(AnIEN, LockMsg); + if LockMsg <> '' then + begin + Result := False; + // if can't lock the note, unlock the consult request that was just locked + if AConsult > 0 then + begin + UnlockOrderIfAble(FOrderID); + FOrderID := ''; + end; + InfoBox(LockMsg, TC_NO_LOCK, MB_OK); + end; + end; + if not Result then FOrderID := ''; +end; + +procedure TfrmConsults.UnlockConsultRequest(ANote: Int64; AConsult: Integer = 0); +(*var + x: string;*) +begin +(* if (AConsult = 0) then + begin + x := GetPackageRefForNote(ANote); + AConsult := StrToIntDef(Piece(x, ';', 1), 0); + end; + if AConsult = 0 then Exit;*) + if AConsult = 0 then AConsult := GetConsultIENForNote(ANote); + if AConsult <= 0 then exit; + FOrderID := GetConsultOrderIEN(AConsult); + UnlockOrderIfAble(FOrderID); + FOrderID := ''; +end; + +function TfrmConsults.ActiveEditOf(AnIEN: Int64): Boolean; +var + ARequest: integer; + x: string; +begin + Result := False; + if (lstNotes.ItemIEN = AnIEN) and (lstNotes.ItemIndex = EditingIndex) then + begin + Result := True; + Exit; + end; + x := GetPackageRefForNote(AnIEN); + ARequest := StrToIntDef(Piece(x, ';', 1), 0); + //ARequest := GetConsultIENForNote(AnIEN); + if (lstConsults.ItemIEN = ARequest) and (EditingIndex > -1) then Result := True; +end; + +function TfrmConsults.StartNewEdit(NewNoteType: integer): Boolean; +{ if currently editing a note, returns TRUE if the user wants to start a new one } +var + Saved: Boolean; + AConsultID, ANoteID: string; + Msg, CapMsg: string; +begin + AConsultID := lstConsults.ItemID; + ANoteID := lstNotes.ItemID; + Result := True; + if EditingIndex > -1 then + begin + case NewNoteType of + NT_ACT_ADDENDUM: begin + Msg := TX_NEW_SAVE1 + MakeConsultNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE3; + CapMsg := TC_NEW_SAVE3; + end; + NT_ACT_EDIT_NOTE: begin + Msg := TX_NEW_SAVE1 + MakeConsultNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE4; + CapMsg := TC_NEW_SAVE4; + end; + NT_ACT_ID_ENTRY: begin + Msg := TX_NEW_SAVE1 + MakeConsultNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE5; + CapMsg := TC_NEW_SAVE5; + end; + else + begin + Msg := TX_NEW_SAVE1 + MakeNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE2; + CapMsg := TC_NEW_SAVE2; + end; + end; + if InfoBox(Msg, CapMsg, MB_YESNO) = IDNO then Result := False + else + begin + SaveCurrentNote(Saved); + if not Saved then Result := False + else + begin + with tvConsults do Selected := FindPieceNode(AConsultID, 1, U, Items.GetFirstNode); + tvConsultsClick(Self); + with tvCsltNotes do Selected := FindPieceNode(ANoteID, 1, U, Items.GetFirstNode); + end; + end; + end; +end; + +function TfrmConsults.LacksRequiredForCreate: Boolean; +{ determines if the fields required to create the note are present } +var + CurTitle: Integer; +begin + Result := False; + with FEditNote do + begin + if Title <= 0 then Result := True; + if Author <= 0 then Result := True; + if DateTime <= 0 then Result := True; + if MenuAccessRec.IsClinicalProcedure then + begin + if (IsClinProcTitle(Title) and (PkgIEN = 0)) then Result := True; + //if (IsClinProcTitle(Title) and (Consult = 0)) then Result := True; + end + else + if (IsConsultTitle(Title) and (PkgIEN = 0)) then Result := True; + //if (IsConsultTitle(Title) and (Consult = 0)) then Result := True; + if (DocType = TYP_ADDENDUM) then + begin + if AskCosignerForDocument(Addend, Author) and (Cosigner <= 0) then Result := True; + end else + begin + if Title > 0 then CurTitle := Title else CurTitle := DocType; + if AskCosignerForTitle(CurTitle, Author, DateTime) and (Cosigner <= 0) then Result := True; + end; + end; +end; + +function TfrmConsults.LacksClinProcFields(AnEditRec: TEditNoteRec; AMenuAccessRec: TMenuAccessRec; var ErrMsg: string): boolean; +begin + Result := False; + if not AMenuAccessRec.IsClinicalProcedure then exit; + with AnEditRec do + begin + if Author <= 0 then + begin + Result := True; + ErrMsg := TX_NO_AUTHOR; + end; + if AskCosignerForTitle(Title, Author, DateTime) and (Cosigner = 0) then + begin + Result := True; + ErrMsg := ErrMsg + CRLF + TX_REQ_COSIGNER; + end; + if (DocType <> TYP_ADDENDUM) and (AMenuAccessRec.ClinProcFlag = CP_INSTR_INCOMPLETE) then + begin + if (ClinProcSummCode = 0) or (ClinProcDateTime <= 0) then + begin + Result := True; + ErrMsg := ErrMsg + CRLF + TX_CLIN_PROC; + end; + end; + end; +end; + +function TfrmConsults.LacksClinProcFieldsForSignature(NoteIEN: int64; var ErrMsg: string): boolean; +var + CsltIEN: integer; + CsltActionRec: TMenuAccessRec; + SignRec: TEditNoteRec; +begin + Result := False; + CsltIEN := GetConsultIENForNote(NoteIEN); + if CsltIEN <= 0 then exit; + CsltActionRec := GetActionMenuLevel(CsltIEN); + if not CsltActionRec.IsClinicalProcedure then exit; + if not IsClinProcTitle(TitleForNote(NoteIEN)) then exit; + SignRec := GetSavedCPFields(NoteIEN); + Result := LacksClinProcFields(SignRec, CsltActionRec, ErrMsg); +end; + +function TfrmConsults.GetTitleText(AnIndex: Integer): string; +{ returns non-tabbed text for the title of a note given the ItemIndex in lstNotes } +var + x: string; +begin + with lstNotes do + x := MakeConsultNoteDisplayText(Items[AnIndex]); +(* x := FormatFMDateTime('mmm dd,yy', MakeFMDateTime(Piece(Items[AnIndex], U, 3))) + + ' ' + Piece(Items[AnIndex], U, 2);*) + Result := x; +end; + +(*function TfrmConsults.MakeTitleText(IsAddendum: Boolean = False): string; +{ returns display text for list box based on FEditNote } +begin + Result := FormatFMDateTime('mmm dd,yy', FEditNote.DateTime) + U; + if IsAddendum and (CompareText(Copy(FEditNote.TitleName, 1, 8), 'Addendum') <> 0) + then Result := Result + 'Addendum to '; + Result := Result + FEditNote.TitleName + ', ' + FEditNote.LocationName + ', ' + + FEditNote.AuthorName; +end;*) + +function TfrmConsults.VerifyNoteTitle: Boolean; +const + VNT_UNKNOWN = 0; + VNT_NO = 1; + VNT_YES = 2; +var + AParam: string; +begin + if FVerifyNoteTitle = VNT_UNKNOWN then + begin + AParam := GetUserParam('ORWOR VERIFY NOTE TITLE'); + if AParam = '1' then FVerifyNoteTitle := VNT_YES else FVerifyNoteTitle := VNT_NO; + end; + Result := FVerifyNoteTitle = VNT_YES; +end; + +procedure TfrmConsults.SetSubjectVisible(ShouldShow: Boolean); +{ hide/show subject & resize panel accordingly - leave 6 pixel margin above memNewNote } +begin + if ShouldShow then + begin + lblSubject.Visible := True; + txtSubject.Visible := True; + pnlFields.Height := txtSubject.Top + txtSubject.Height + 6; + end else + begin + lblSubject.Visible := False; + txtSubject.Visible := False; + pnlFields.Height := lblVisit.Top + lblVisit.Height + 6; + end; +end; + + +procedure TfrmConsults.timAutoSaveTimer(Sender: TObject); +begin + inherited; + DoAutoSave; +end; + +procedure TfrmConsults.DoAutoSave(Suppress: integer = 1); +var + ErrMsg: string; +begin + if (EditingIndex > -1) and FChanged then + begin + StatusText('Autosaving note...'); + //PutTextOnly(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex)); + timAutoSave.Enabled := False; + try + SetText(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex), Suppress); + finally + timAutoSave.Enabled := True; + end; + FChanged := False; + StatusText(''); + end; + if ErrMsg <> '' then + InfoBox(TX_SAVE_ERROR1 + ErrMsg + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING); + //Assert(ErrMsg = '', 'AutoSave: ' + ErrMsg); +end; + +procedure TfrmConsults.cmdChangeClick(Sender: TObject); +var + LastTitle, LastConsult: Integer; + (*OKPressed, *)IsIDChild, UseClinProcTitles: Boolean; + x, AClassName: string; +begin + inherited; + FcmdChangeOKPressed := False; + IsIDChild := uIDNotesActive and (FEditNote.IDParent > 0); + LastTitle := FEditNote.Title; + LastConsult := FEditNote.PkgIEN; + with MenuAccessRec do + UseClinProcTitles := ((IsClinicalProcedure) and + (ClinProcFlag in [CP_NO_INSTRUMENT, CP_INSTR_INCOMPLETE, CP_INSTR_COMPLETE])); + if UseClinProcTitles then AClassName := DCL_CLINPROC else AClassName := DCL_CONSULTS; + if Sender <> Self then + FcmdChangeOKPressed := ExecuteNoteProperties(FEditNote, CT_CONSULTS, IsIDChild, False, AClassName, + MenuAccessRec.ClinProcFlag) + else FcmdChangeOKPressed := True; + if not FcmdChangeOKPressed then Exit; + // update display fields & uPCEEdit + lblNewTitle.Caption := ' ' + FEditNote.TitleName + ' '; + if (FEditNote.Addend > 0) and (CompareText(Copy(lblNewTitle.Caption, 2, 8), 'Addendum') <> 0) + then lblNewTitle.Caption := ' Addendum to:' + lblNewTitle.Caption; + with lblNewTitle do bvlNewTitle.SetBounds(Left - 1, Top - 1, Width + 2, Height + 2); + lblRefDate.Caption := FormatFMDateTime('mmm dd,yyyy@hh:nn', FEditNote.DateTime); + lblAuthor.Caption := FEditNote.AuthorName; + if uPCEEdit.Inpatient then x := 'Adm: ' else x := 'Vst: '; + x := x + FormatFMDateTime('mm/dd/yy', FEditNote.VisitDate) + ' ' + FEditNote.LocationName; + lblVisit.Caption := x; + if Length(FEditNote.CosignerName) > 0 + then lblCosigner.Caption := 'Expected Cosigner: ' + FEditNote.CosignerName + else lblCosigner.Caption := ''; + uPCEEdit.NoteTitle := FEditNote.Title; + // modify signature requirements if author or cosigner changed + if (User.DUZ <> FEditNote.Author) and (User.DUZ <> FEditNote.Cosigner) + then Changes.ReplaceSignState(CH_CON, lstNotes.ItemID, CH_SIGN_NA) + else Changes.ReplaceSignState(CH_CON, lstNotes.ItemID, CH_SIGN_YES); + x := lstNotes.Items[EditingIndex]; + SetPiece(x, U, 2, lblNewTitle.Caption); + SetPiece(x, U, 3, FloatToStr(FEditNote.DateTime)); + tvCsltNotes.Selected.Text := MakeConsultNoteDisplayText(x); + TORTreeNode(tvCsltNotes.Selected).StringData := x; + lstNotes.Items[EditingIndex] := x; + Changes.ReplaceText(CH_CON, lstNotes.ItemID, GetTitleText(EditingIndex)); + if LastConsult <> FEditNote.PkgIEN then + //if LastConsult <> FEditNote.Consult then + begin + // try to lock the new consult, reset to previous if unable + if (FEditNote.PkgIEN > 0) and not LockConsultRequest(FEditNote.PkgIEN) then + //if (FEditNote.Consult > 0) and not LockConsultRequest(FEditNote.Consult) then + begin + Infobox(TX_NO_ORD_CHG, TC_NO_ORD_CHG, MB_OK); + FEditNote.PkgIEN := LastConsult; + //FEditNote.Consult := LastConsult; + end else + begin + // unlock the previous consult + if LastConsult > 0 then UnlockOrderIfAble(GetConsultOrderIEN(LastConsult)); + if FEditNote.PkgIEN = 0 then FOrderID := ''; + //if FEditNote.Consult = 0 then FOrderID := ''; + end; + end; + if LastTitle <> FEditNote.Title then mnuActLoadBoilerClick(Self); +end; + +procedure TfrmConsults.pnlFieldsResize(Sender: TObject); +{ center the reference date on the panel } +begin + inherited; + lblRefDate.Left := (pnlFields.Width - lblRefDate.Width) div 2; + if lblRefDate.Left < (lblNewTitle.Left + lblNewTitle.Width + 6) + then lblRefDate.Left := (lblNewTitle.Left + lblNewTitle.Width); +end; + + +procedure TfrmConsults.AssignRemForm; +begin + with RemForm do + begin + Form := Self; + PCEObj := uPCEEdit; + RightPanel := pnlRight; + CanFinishProc := CanFinishReminder; + DisplayPCEProc := DisplayPCE; + Drawers := frmDrawers; + NewNoteRE := memResults; + NoteList := lstNotes; + end; +end; + +function TfrmConsults.CanFinishReminder: boolean; +begin + if(EditingIndex < 0) then + Result := FALSE + else + Result := (lstNotes.ItemIndex = EditingIndex); +end; + +procedure TfrmConsults.mnuActChangeClick(Sender: TObject); +begin + inherited; + if (FEditingIndex < 0) or (lstNotes.ItemIndex <> FEditingIndex) then Exit; + cmdChangeClick(Sender); +end; + +procedure TfrmConsults.mnuActLoadBoilerClick(Sender: TObject); +var + NoteEmpty: Boolean; + BoilerText: TStringList; + DocInfo: string; + + procedure AssignBoilerText; + begin + ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo); + memResults.Lines.Assign(BoilerText); + FChanged := False; + end; + +begin + inherited; + if (FEditingIndex < 0) or (lstNotes.ItemIndex <> FEditingIndex) then Exit; + BoilerText := TStringList.Create; + try + NoteEmpty := memResults.Text = ''; + LoadBoilerPlate(BoilerText, FEditNote.Title); + if (BoilerText.Text <> '') or + assigned(GetLinkedTemplate(IntToStr(FEditNote.Title), ltTitle)) then + begin + DocInfo := MakeXMLParamTIU(IntToStr(lstNotes.ItemIEN), FEditNote); + if NoteEmpty then AssignBoilerText else + begin + case QueryBoilerPlate(BoilerText) of + 0: { do nothing } ; // ignore + 1: begin + ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo); + memResults.Lines.AddStrings(BoilerText); // append + end; + 2: AssignBoilerText; // replace + end; + end; + end else + begin + if Sender = mnuActLoadBoiler + then InfoBox(TX_NO_BOIL, TC_NO_BOIL, MB_OK) + else + begin + if not NoteEmpty then + if not FChanged and (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES) + then memResults.Lines.Clear; + end; + end; {if BoilerText.Text <> ''} + finally + BoilerText.Free; + end; +end; + +procedure TfrmConsults.popNoteMemoSaveContinueClick(Sender: TObject); +begin + inherited; + FChanged := True; + DoAutoSave; +end; + +procedure TfrmConsults.ProcessMedResults(ActionType: string); +var + FormTitle, ErrMsg: string; + (*i, *)AConsult: integer; +const + TX_ATTACH = 'Attach Medicine Result to: '; + TX_REMOVE = 'Remove Medicine Result from: '; + TX_NO_ATTACH_RESULTS = 'There are no results available to associate with this procedure.'; + TX_NO_REMOVE_RESULTS = 'There are no medicine results currently associated with this procedure.'; + TC_NO_RESULTS = 'No Results'; +begin + inherited; + with lstConsults, MedResult do + begin + FillChar(MedResult, SizeOf(MedResult), 0); + if ItemIEN = 0 then Exit; + AConsult := ItemIEN; + if not LockConsultRequest(AConsult) then Exit; + lstNotes.Enabled := False ; + lstConsults.Enabled := False ; + tvConsults.Enabled := False; + if ActionType = 'ATTACH' then + begin + FormTitle := TX_ATTACH + Piece(DisplayText[ItemIndex], #9, 3); + ErrMsg := TX_NO_ATTACH_RESULTS; + end + else if ActionType = 'REMOVE' then + begin + FormTitle := TX_REMOVE + Piece(DisplayText[ItemIndex], #9, 3); + ErrMsg := TX_NO_REMOVE_RESULTS; + end; + Action := ActionType; + if SelectMedicineResult(ItemIEN, FormTitle, MedResult) then + begin + if ResultPtr <> '' then + begin + if ActionType = 'ATTACH' then + AttachMedicineResult(ItemIEN, ResultPtr, DateTimeofAction, ResponsiblePerson, AlertsTo.Recipients) + else if ActionType = 'REMOVE' then + RemoveMedicineResult(ItemIEN, ResultPtr, DateTimeofAction, ResponsiblePerson); + UpdateList ; {update consult list after success} + ItemIndex := 0 ; + {ItemIndex may have changed - need to look up by IEN} + with tvConsults do Selected := FindPieceNode(IntToStr(AConsult), 1, U, Items.GetFirstNode); + tvConsultsClick(Self); + end + else + InfoBox(ErrMsg, TC_NO_RESULTS, MB_OK or MB_ICONWARNING); + end; + end; + lstNotes.Enabled := True ; + lstConsults.Enabled := True ; + tvConsults.Enabled := True; + FOrderID := GetConsultOrderIEN(AConsult); + UnlockOrderIfAble(FOrderID); + FOrderID := ''; +end; + +procedure TfrmConsults.mnuActAttachMedClick(Sender: TObject); +begin + inherited; + ProcessMedResults('ATTACH'); +end; + +procedure TfrmConsults.mnuActRemoveMedClick(Sender: TObject); +begin + inherited; + ProcessMedResults('REMOVE'); +end; + +procedure TfrmConsults.mnuEditDialgFieldsClick(Sender: TObject); +begin + inherited; + EditDialogFields; +end; + +procedure TfrmConsults.UpdateNoteTreeView(DocList: TStringList; Tree: TORTreeView; AContext: integer); +var + i: integer; +begin + with Tree do + begin + uChanging := True; + Items.BeginUpdate; + for i := 0 to DocList.Count - 1 do + begin + if Piece(DocList[i], U, 14) = '0' then continue; // v16.8 fix RV + //if Piece(DocList[i], U, 14) <> IntToStr(AContext) then continue; + lstNotes.Items.Add(DocList[i]); + end; + FCurrentNoteContext.Status := IntToStr(AContext); + BuildDocumentTree(DocList, '0', Tree, nil, FCurrentNoteContext, CT_CONSULTS); + Items.EndUpdate; + uChanging := False; + end; +end; + +procedure TfrmConsults.tvCsltNotesChange(Sender: TObject; Node: TTreeNode); +var + x, WhyNot: string; +begin + if uChanging then Exit; + //This gives the change a chance to occur when keyboarding, so that WindowEyes + //doesn't use the old value. + Application.ProcessMessages; + with tvCsltNotes do + begin + if (Selected = nil) then Exit; + if uIDNotesActive then + begin + mnuActDetachFromIDParent.Enabled := (Selected.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD]); + popNoteListDetachFromIDParent.Enabled := mnuActDetachFromIDParent.Enabled; + if (Selected.ImageIndex in [IMG_SINGLE, IMG_PARENT, IMG_ID_CHILD, IMG_ID_CHILD_ADD]) then + mnuActAttachtoIDParent.Enabled := CanBeAttached(PDocTreeObject(Selected.Data)^.DocID, WhyNot) + else + mnuActAttachtoIDParent.Enabled := False; + popNoteListAttachtoIDParent.Enabled := mnuActAttachtoIDParent.Enabled; + if (Selected.ImageIndex in [IMG_SINGLE, IMG_PARENT, + IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT, + IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) then + mnuActAddIDEntry.Enabled := CanReceiveAttachment(PDocTreeObject(Selected.Data)^.DocID, WhyNot) + else + mnuActAddIDEntry.Enabled := False; + popNoteListAddIDEntry.Enabled := mnuActAddIDEntry.Enabled + end; + popNoteListExpandSelected.Enabled := Selected.HasChildren; + popNoteListCollapseSelected.Enabled := Selected.HasChildren; + if (Selected.ImageIndex = IMG_TOP_LEVEL) then + begin + pnlResults.Visible := False; + pnlResults.SendToBack; + pnlRead.Visible := True; + pnlRead.BringToFront ; + memConsult.TabStop := True; + UpdateReminderFinish; + ShowPCEControls(False); + frmDrawers.DisplayDrawers(FALSE); + cmdPCE.Visible := FALSE; + popNoteMemoEncounter.Visible := FALSE; + lstConsults.Enabled := True ; + tvConsults.Enabled := True; + lstNotes.Enabled := True; + lblTitle.Caption := ''; + lblTitle.Hint := lblTitle.Caption; + Exit; + end; + x := TORTreeNode(Selected).StringData; + if StrToIntDef(Piece(Piece(x, U, 1), ';', 1), 0) > 0 then + begin + memConsult.Clear; + lstNotes.SelectByID(Piece(x, U, 1)); + lstNotesClick(Self); + SendMessage(memConsult.Handle, WM_VSCROLL, SB_TOP, 0); + end; + end; +end; + +procedure TfrmConsults.tvCsltNotesCollapsed(Sender: TObject; Node: TTreeNode); +begin + with Node do + begin + if (ImageIndex in [IMG_GROUP_OPEN, IMG_IDNOTE_OPEN, IMG_IDPAR_ADDENDA_OPEN]) then + ImageIndex := ImageIndex - 1; + if (SelectedIndex in [IMG_GROUP_OPEN, IMG_IDNOTE_OPEN, IMG_IDPAR_ADDENDA_OPEN]) then + SelectedIndex := SelectedIndex - 1; + end; +end; + +procedure TfrmConsults.tvCsltNotesExpanded(Sender: TObject; Node: TTreeNode); + + function SortByTitle(Node1, Node2: TTreeNode; Data: Longint): Integer; stdcall; + begin + { Within an ID parent node, sorts in ascending order by title + BUT - addenda to parent document are always at the top of the sort, in date order} + if (Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum') and + (Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum') then + begin + Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate), + PChar(PDocTreeObject(Node2.Data)^.DocFMDate)); + end + else if Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := -1 + else if Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := 1 + else + begin + if Data = 0 then + Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocTitle), + PChar(PDocTreeObject(Node2.Data)^.DocTitle)) + else + Result := -AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocTitle), + PChar(PDocTreeObject(Node2.Data)^.DocTitle)); + end + end; + + function SortByDate(Node1, Node2: TTreeNode; Data: Longint): Integer; stdcall; + begin + { Within an ID parent node, sorts in ascending order by document date + BUT - addenda to parent document are always at the top of the sort, in date order} + if (Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum') and + (Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum') then + begin + Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate), + PChar(PDocTreeObject(Node2.Data)^.DocFMDate)); + end + else if Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := -1 + else if Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := 1 + else + begin + if Data = 0 then + Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate), + PChar(PDocTreeObject(Node2.Data)^.DocFMDate)) + else + Result := -AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate), + PChar(PDocTreeObject(Node2.Data)^.DocFMDate)); + end; + end; + +begin + with Node do + begin + if Assigned(Data) then + if (Pos('<', PDocTreeObject(Data)^.DocHasChildren) > 0) then + begin + if (PDocTreeObject(Node.Data)^.OrderByTitle) then + CustomSort(@SortByTitle, 0) + else + CustomSort(@SortByDate, 0); + end; + if (ImageIndex in [IMG_GROUP_SHUT, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_SHUT]) then + ImageIndex := ImageIndex + 1; + if (SelectedIndex in [IMG_GROUP_SHUT, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_SHUT]) then + SelectedIndex := SelectedIndex + 1; + end; +end; + +procedure TfrmConsults.tvCsltNotesDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); +var + AnItem: TORTreeNode; +begin + Accept := False; + if not uIDNotesActive then exit; + AnItem := TORTreeNode(tvCsltNotes.GetNodeAt(X, Y)); + if (AnItem = nil) or (AnItem.ImageIndex in [IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) then Exit; + with tvCsltNotes.Selected do + if (ImageIndex in [IMG_SINGLE, IMG_PARENT, IMG_ID_CHILD, IMG_ID_CHILD_ADD]) then + Accept := (AnItem.ImageIndex in [IMG_SINGLE, IMG_PARENT, + IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT, + IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) + else if (ImageIndex in [IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) then + Accept := (AnItem.ImageIndex in [IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) + else if (ImageIndex in [IMG_ADDENDUM, IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) then + Accept := False; +end; + +procedure TfrmConsults.tvCsltNotesDragDrop(Sender, Source: TObject; X, Y: Integer); +var + HT: THitTests; + ADestNode: TORTreeNode; + Saved: boolean; +begin + if not uIDNotesActive then + begin + CancelDrag; + exit; + end; + if tvCsltNotes.Selected = nil then exit; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + HT := tvCsltNotes.GetHitTestInfoAt(X, Y); + ADestNode := TORTreeNode(tvCsltNotes.GetNodeAt(X, Y)); + DoAttachIDChild(TORTreeNode(tvCsltNotes.Selected), ADestNode); +end; + +procedure TfrmConsults.tvCsltNotesStartDrag(Sender: TObject; + var DragObject: TDragObject); +const + TX_CAP_NO_DRAG = 'Item cannot be moved'; + var + WhyNot: string; + Saved: boolean; +begin + if (tvCsltNotes.Selected.ImageIndex in [IMG_ADDENDUM, IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) or + (not uIDNotesActive) or + (lstNotes.ItemIEN = 0) then + begin + CancelDrag; + Exit; + end; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + end; + if not CanBeAttached(PDocTreeObject(tvCsltNotes.Selected.Data)^.DocID, WhyNot) then + begin + InfoBox(WhyNot, TX_CAP_NO_DRAG, MB_OK); + CancelDrag; + end; +end; + +procedure TfrmConsults.popNoteListExpandAllClick(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popNoteList) is TTreeView then + TTreeView(PopupComponent(Sender, popNoteList)).FullExpand; +end; + +procedure TfrmConsults.popNoteListCollapseAllClick(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popNoteList) is TTreeView then + with TTreeView(PopupComponent(Sender, popNoteList)) do + begin + Selected := nil; + FullCollapse; + Selected := TopItem; + end; + lblTitle.Caption := ''; + lblTitle.Hint := lblTitle.Caption; + memConsult.Clear; +end; + +procedure TfrmConsults.popNoteListExpandSelectedClick(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popNoteList) is TTreeView then + with TTreeView(PopupComponent(Sender, popNoteList)) do + begin + if Selected = nil then exit; + with Selected do if HasChildren then Expand(True); + end; +end; + +procedure TfrmConsults.popNoteListCollapseSelectedClick(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popNoteList) is TTreeView then + with TTreeView(PopupComponent(Sender, popNoteList)) do + begin + if Selected = nil then exit; + with Selected do if HasChildren then Collapse(True); + end; +end; + +procedure TfrmConsults.EnableDisableIDNotes; +begin + uIDNotesActive := False; //IDNotesInstalled; {not for Consults in v15} + mnuActDetachFromIDParent.Visible := uIDNotesActive; + popNoteListDetachFromIDParent.Visible := uIDNotesActive; + mnuActAddIDEntry.Visible := uIDNotesActive; + popNoteListAddIDEntry.Visible := uIDNotesActive; + mnuActAttachtoIDParent.Visible := uIDNotesActive; + popNoteListAttachtoIDParent.Visible := uIDNotesActive; + if uIDNotesActive then + tvCsltNotes.DragMode := dmAutomatic + else + tvCsltNotes.DragMode := dmManual; +end; + + +procedure TfrmConsults.tvCsltNotesClick(Sender: TObject); +begin + inherited; + if tvCsltNotes.Selected = nil then exit; + if (tvCsltNotes.Selected.ImageIndex in [IMG_TOP_LEVEL, IMG_GROUP_OPEN, IMG_GROUP_SHUT]) then + begin + lblTitle.Caption := ''; + lblTitle.Hint := lblTitle.Caption; + memConsult.Clear; + end; +end; + +// =========================== Consults Treeview Code ================================== + +procedure TfrmConsults.LoadConsults; +var + tmpList: TStringList; + ANode: TTreeNode; +begin + tmpList := TStringList.Create; + try + + FCsltList.Clear; + uChanging := True; + RedrawSuspend(memConsult.Handle); + tvConsults.Items.BeginUpdate; + lstConsults.Items.Clear; + KillDocTreeObjects(tvConsults); + tvConsults.Items.Clear; + tvConsults.Items.EndUpdate; + tvCsltNotes.Items.BeginUpdate; + KillDocTreeObjects(tvCsltNotes); + tvCsltNotes.Items.Clear; + tvCsltNotes.Items.EndUpdate; + lstNotes.Clear; + memConsult.Clear; + memConsult.Invalidate; + lblTitle.Caption := ''; + lblTitle.Hint := lblTitle.Caption; + with FCurrentContext do + begin + GetConsultsList(tmpList, StrToFMDateTime(BeginDate), StrToFMDateTime(EndDate), Service, Status, Ascending); + CreateListItemsforConsultTree(FCsltList, tmpList, ViewContext, GroupBy, Ascending); + UpdateConsultsTreeView(FCsltList, tvConsults); + lstConsults.Items.Assign(tmpList); + end; + with tvConsults do + begin + uChanging := True; + Items.BeginUpdate; + ANode := Items.GetFirstNode; + if ANode <> nil then Selected := ANode.getFirstChild; + memConsult.Clear; + //RemoveParentsWithNoChildren(tvConsults, FCurrentContext); + Items.EndUpdate; + uChanging := False; + if (Self.Active) and (Selected <> nil) then tvConsultsChange(Self, Selected); + end; + finally + RedrawActivate(memConsult.Handle); + tmpList.Free; + end; +end; + +procedure TfrmConsults.UpdateConsultsTreeView(DocList: TStringList; Tree: TORTreeView); +begin + with Tree do + begin + uChanging := True; + Items.BeginUpdate; + lstConsults.Items.AddStrings(DocList); + BuildConsultsTree(Tree, DocList, '0', nil, FCurrentContext); + Items.EndUpdate; + uChanging := False; + end; +end; + +procedure TfrmConsults.tvConsultsExpanded(Sender: TObject; Node: TTreeNode); +begin + inherited; + with Node do + begin + if (ImageIndex in [IMG_GMRC_GROUP_SHUT]) then + ImageIndex := ImageIndex + 1; + if (SelectedIndex in [IMG_GMRC_GROUP_SHUT]) then + SelectedIndex := SelectedIndex + 1; + end; +end; + +procedure TfrmConsults.tvConsultsCollapsed(Sender: TObject; Node: TTreeNode); +begin + inherited; + with Node do + begin + if (ImageIndex in [IMG_GMRC_GROUP_OPEN]) then + ImageIndex := ImageIndex - 1; + if (SelectedIndex in [IMG_GMRC_GROUP_OPEN]) then + SelectedIndex := SelectedIndex - 1; + end; +end; + +procedure TfrmConsults.tvConsultsClick(Sender: TObject); +begin + inherited; + with tvConsults do + begin + if Selected = nil then exit; + if (Selected.ImageIndex in [IMG_GMRC_TOP_LEVEL, IMG_GMRC_GROUP_OPEN, IMG_GMRC_GROUP_SHUT]) then + begin + lblTitle.Caption := ''; + lblTitle.Hint := lblTitle.Caption; + memConsult.Clear; + KillDocTreeObjects(tvCsltNotes); + tvCsltNotes.Items.Clear; + lstNotes.Items.Clear; + end + else + tvConsultsChange(Self, Selected); + end; +end; + +procedure TfrmConsults.tvConsultsChange(Sender: TObject; Node: TTreeNode); +var + x: string; +begin + inherited; + if uChanging then Exit; + with tvConsults do + begin + if (Selected = nil) then Exit; + if (tvConsults.Selected.ImageIndex in [IMG_GMRC_TOP_LEVEL, IMG_GMRC_GROUP_OPEN, IMG_GMRC_GROUP_SHUT]) then + begin + mnuActConsultRequest.Enabled := False; + mnuActConsultResults.Enabled := False; + frmFrame.mnuFilePrint.Enabled := False; + frmFrame.mnuFilePrintSelectedItems.Enabled := False; + end + else + begin + frmFrame.mnuFilePrint.Enabled := True; + frmFrame.mnuFilePrintSelectedItems.Enabled := True; + end; + popNoteListExpandSelected.Enabled := Selected.HasChildren; + popNoteListCollapseSelected.Enabled := Selected.HasChildren; + lstConsults.Enabled := True ; + tvConsults.Enabled := True; + lstNotes.Enabled := True; + if (Selected.ImageIndex in [IMG_GMRC_TOP_LEVEL, IMG_GMRC_GROUP_OPEN, IMG_GMRC_GROUP_SHUT]) then + begin + pnlResults.Visible := False; + pnlResults.SendToBack; + pnlRead.Visible := True; + pnlRead.BringToFront ; + memConsult.TabStop := True; + UpdateReminderFinish; + ShowPCEControls(False); + frmDrawers.DisplayDrawers(FALSE); + cmdPCE.Visible := FALSE; + popNoteMemoEncounter.Visible := FALSE; + lstConsults.Enabled := True ; + tvConsults.Enabled := True; + KillDocTreeObjects(tvCsltNotes); + tvCsltNotes.Items.Clear; + lstNotes.Clear; + lstNotes.Enabled := True; + lblTitle.Caption := ''; + lblTitle.Hint := lblTitle.Caption; + Exit; + end; + x := TORTreeNode(Selected).StringData; + if StrToIntDef(Piece(x, U, 1), 0) > 0 then + begin + memConsult.Clear; + lstConsults.SelectByID(Piece(x, U, 1)); + lstConsultsClick(Self); + //tvConsults.SetFocus; + SendMessage(memConsult.Handle, WM_VSCROLL, SB_TOP, 0); + end; + end; +end; + +procedure TfrmConsults.popNoteListPopup(Sender: TObject); +var + ShowIt: boolean; +begin + inherited; + ShowIt := uIDNotesActive and (PopupComponent(Sender, popNoteList) = tvCsltNotes); + popNoteListDetachFromIDParent.Visible := ShowIt; + popNoteListAddIDEntry.Visible := ShowIt; +end; + +procedure TfrmConsults.mnuIconLegendClick(Sender: TObject); +begin + inherited; + ShowIconLegend(ilConsults); +end; + +procedure TfrmConsults.mnuActAttachtoIDParentClick(Sender: TObject); +var + AChildNode: TORTreeNode; + AParentID: string; + Saved: boolean; + SavedDocID, SavedConsultID: string; +begin + if lstNotes.ItemIEN = 0 then exit; + SavedDocID := lstNotes.ItemID; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + with tvConsults do Selected := FindPieceNode(SavedConsultID, 1, U, Items.GetFirstNode); + tvConsultsClick(Self); + with tvCsltNotes do Selected := FindPieceNode(SavedDocID, 1, U, Items.GetFirstNode); + end; + if tvCsltNotes.Selected = nil then exit; + AChildNode := TORTreeNode(tvCsltNotes.Selected); + AParentID := SelectParentNodeFromList(tvCsltNotes); + if AParentID = '' then exit; + with tvCsltNotes do Selected := FindPieceNode(AParentID, 1, U, Items.GetFirstNode); + DoAttachIDChild(AChildNode, TORTreeNode(tvCsltNotes.Selected)); +end; + +procedure TfrmConsults.DoAttachIDChild(AChild, AParent: TORTreeNode); +const + TX_ATTACH_CNF = 'Confirm Attachment'; + TX_ATTACH_FAILURE = 'Attachment failed'; +var + ErrMsg, WhyNot: string; + SavedDocID: string; +begin + if (AChild = nil) or (AParent = nil) then exit; + ErrMsg := ''; + if not CanBeAttached(PDocTreeObject(AChild.Data)^.DocID, WhyNot) then + ErrMsg := ErrMsg + WhyNot + CRLF + CRLF; + if not CanReceiveAttachment(PDocTreeObject(AParent.Data)^.DocID, WhyNot) then + ErrMsg := ErrMsg + WhyNot; + if ErrMsg <> '' then + begin + InfoBox(ErrMsg, TX_ATTACH_FAILURE, MB_OK); + Exit; + end + else + begin + WhyNot := ''; + if (InfoBox('ATTACH: ' + AChild.Text + CRLF + CRLF + + ' TO: ' + AParent.Text + CRLF + CRLF + + 'Are you sure?', TX_ATTACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) + then Exit; + SavedDocID := PDocTreeObject(AParent.Data)^.DocID; + end; + if AChild.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD] then + begin + if DetachEntryFromParent(PDocTreeObject(AChild.Data)^.DocID, WhyNot) then + begin + if AttachEntryToParent(PDocTreeObject(AChild.Data)^.DocID, PDocTreeObject(AParent.Data)^.DocID, WhyNot) then + begin + tvConsultsChange(Self, tvConsults.Selected); + with tvCsltNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + if tvCsltNotes.Selected <> nil then tvCsltNotes.Selected.Expand(False); + end + else + InfoBox(WhyNot, TX_ATTACH_FAILURE, MB_OK); + end + else + begin + WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]); + WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]); + InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK); + Exit; + end; + end + else + begin + if AttachEntryToParent(PDocTreeObject(AChild.Data)^.DocID, PDocTreeObject(AParent.Data)^.DocID, WhyNot) then + begin + tvConsultsChange(Self, tvConsults.Selected); + with tvCsltNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + if tvCsltNotes.Selected <> nil then tvCsltNotes.Selected.Expand(False); + end + else + InfoBox(WhyNot, TX_ATTACH_FAILURE, MB_OK); + end; +end; + +procedure TfrmConsults.tvConsultsKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key in [VK_UP, VK_DOWN] then tvConsultsChange(Self, tvConsults.Selected); +end; + +function TfrmConsults.UserIsSigner(NoteIEN: integer): boolean; +var + Signers: TStringList; + i: integer; +begin + Result := False; + if NoteIEN <= 0 then exit; + Signers := TStringList.Create; + try + Signers.Assign(GetCurrentSigners(NoteIEN)); + for i := 0 to Signers.Count - 1 do + if Piece(Signers[i], U, 1) = IntToStr(User.DUZ) then + begin + Result := True; + break; + end; + finally + Signers.Free; + end; +end; + +procedure TfrmConsults.memResultsKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_TAB) then + begin + if ssShift in Shift then + begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + Key := 0; + end + else if ssCtrl in Shift then + begin + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + Key := 0; + end; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +procedure TfrmConsults.sptHorzCanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); +begin + inherited; + if pnlResults.Visible then + if NewSize > frmConsults.ClientWidth - memResults.Constraints.MinWidth - sptHorz.Width then + NewSize := frmConsults.ClientWidth - memResults.Constraints.MinWidth - sptHorz.Width; +end; + +procedure TfrmConsults.popNoteMemoPreviewClick(Sender: TObject); +begin + frmDrawers.mnuPreviewTemplateClick(Sender); +end; + +procedure TfrmConsults.popNoteMemoInsTemplateClick(Sender: TObject); +begin + inherited; + frmDrawers.mnuInsertTemplateClick(Sender); +end; + +procedure TfrmConsults.tvConsultsAddition(Sender: TObject; + Node: TTreeNode); +begin + inherited; + TAccessibleTreeNode.WrapControl(Node as TORTreeNode); +end; + +procedure TfrmConsults.tvConsultsDeletion(Sender: TObject; + Node: TTreeNode); +begin + inherited; + TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode); +end; + +procedure TfrmConsults.lstConsultsToPrint; +var + AParentID: string; + SavedDocID: string; + Saved: boolean; +begin + inherited; + if lstConsults.ItemIEN = 0 then exit; + SavedDocID := lstNotes.ItemID; + if EditingIndex <> -1 then + begin + SaveCurrentNote(Saved); + if not Saved then Exit; + LoadConsults; + with tvConsults do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end; + if tvConsults.Selected = nil then exit; + AParentID := frmPrintList.SelectParentFromList(tvConsults,CT_CONSULTS); + if AParentID = '' then exit; + with tvConsults do Selected := FindPieceNode(AParentID, 1, U, Items.GetFirstNode); +end; + + +{Tab Order tricks. Need to change + tvConsult + + tvCsltNotes + cmdEditResubmit + cmdNewConsult + cmdNewProc + frmDrawers.pnlTemplateButton + frmDrawers.pnlEncounterButton + cmdPCE + + cmdChange + txtSubject + memResults + +to + tvConsult + + cmdChange + txtSubject + memResults + + tvCsltNotes + cmdEditResubmit + cmdNewConsult + cmdNewProc + frmDrawers.pnlTemplateButton + frmDrawers.pnlEncounterButton + cmdPCE +} + +procedure TfrmConsults.tvConsultsExit(Sender: TObject); +begin + inherited; + if IncSecond(FMousing,1) < Now then + begin + if (Screen.ActiveControl = tvCsltNotes) or + (Screen.ActiveControl = cmdEditResubmit) or + (Screen.ActiveControl = cmdNewConsult) or + (Screen.ActiveControl = cmdNewProc) or + (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or + (Screen.ActiveControl = frmDrawers.pnlEncounterButton) or + (Screen.ActiveControl = cmdPCE) then + FindNextControl( cmdPCE, True, True, False).SetFocus; + end; + FMousing := 0; +end; + +procedure TfrmConsults.pnlResultsExit(Sender: TObject); +begin + inherited; + if IncSecond(FMousing,1) < Now then + begin + if (Screen.ActiveControl = frmFrame.pnlPatient) then + FindNextControl( tvConsults, True, True, False).SetFocus + else + if (Screen.ActiveControl = tvCsltNotes) or + (Screen.ActiveControl = cmdEditResubmit) or + (Screen.ActiveControl = cmdNewConsult) or + (Screen.ActiveControl = cmdNewProc) or + (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or + (Screen.ActiveControl = frmDrawers.pnlEncounterButton) or + (Screen.ActiveControl = cmdPCE) then + FindNextControl( tvCsltNotes, False, True, False).SetFocus; + end; + FMousing := 0; +end; + +procedure TfrmConsults.pnlActionExit(Sender: TObject); +begin + inherited; + if IncSecond(FMousing,1) < Now then + begin + if (Screen.ActiveControl = memConsult) or + (Screen.ActiveControl = cmdChange) or + (Screen.ActiveControl = txtSubject) or + (Screen.ActiveControl = memResults) then + begin + //frmFrame.pnlPatient.SetFocus //COMMENTED OUT FOR CQ6498 + if memResults.CanFocus then + memResults.SetFocus //ADDED THIS LINE FOR CQ6498 + else + memConsult.SetFocus; + end + else + if (Screen.ActiveControl = tvConsults) then + FindNextControl( frmFrame.pnlPatient, False, True, False).SetFocus; + end; + FMousing := 0; +end; + +procedure TfrmConsults.frmFramePnlPatientExit(Sender: TObject); +begin + FOldFramePnlPatientExit(Sender); + if IncSecond(FMousing,1) < Now then + begin + if (Screen.ActiveControl = memConsult) or + (Screen.ActiveControl = cmdChange) or + (Screen.ActiveControl = txtSubject) or + (Screen.ActiveControl = memResults) then + FindNextControl( memConsult, False, True, False).SetFocus; + end; + FMousing := 0; +end; + +procedure TfrmConsults.FormHide(Sender: TObject); +begin + inherited; + frmFrame.pnlPatient.OnExit := FOldFramePnlPatientExit; + frmDrawers.pnlTemplatesButton.OnExit := FOldDrawerPnlTemplatesButtonExit; + frmDrawers.pnlEncounterButton.OnExit := FOldDrawerPnlEncounterButtonExit; + frmDrawers.edtSearch.OnExit := FOldDrawerEdtSearchExit; +end; + +procedure TfrmConsults.FormShow(Sender: TObject); +var + i : integer; +begin + inherited; + FOldFramePnlPatientExit := frmFrame.pnlPatient.OnExit; + frmFrame.pnlPatient.OnExit := frmFramePnlPatientExit; + FOldDrawerPnlTemplatesButtonExit := frmDrawers.pnlTemplatesButton.OnExit; + frmDrawers.pnlTemplatesButton.OnExit := frmDrawerPnlTemplatesButtonExit; + FOldDrawerPnlEncounterButtonExit := frmDrawers.pnlEncounterButton.OnExit; + frmDrawers.pnlEncounterButton.OnExit := frmDrawerPnlEncounterButtonExit; + FOldDrawerEdtSearchExit := frmDrawers.edtSearch.OnExit; + frmDrawers.edtSearch.OnExit := frmDrawerEdtSearchExit; + {Below is a fix for ClearQuest Defect HDS0000948, Kind of Kloogy I looked + and looked for side effects and a better solution and this was the best!} + if (EditingIndex = -1) or (lstNotes.ItemIndex <> EditingIndex) then + frmDrawers.Hide; + {This TStaticText I am looking for doesn't have a Name! So + I have to loop through the panel's controls and disable the TStaticText.} + with pnlAction do begin + for i := 0 to (ControlCount -1) do + begin + if Controls[i] is TStaticText then + if (Controls[i] as TStaticText).Caption = 'Consult Notes' then + (Controls[i] as TStaticText).Enabled := False; + end; + end + {End of ClearQuest Defect HDS0000948 Fixes} +end; + +procedure TfrmConsults.frmDrawerEdtSearchExit(Sender: TObject); +begin + FOldDrawerEdtSearchExit(Sender); + pnlActionExit(Sender); +end; + +procedure TfrmConsults.frmDrawerPnlTemplatesButtonExit(Sender: TObject); +begin + FOldDrawerPnlTemplatesButtonExit(Sender); + pnlActionExit(Sender); +end; + +procedure TfrmConsults.frmDrawerPnlEncounterButtonExit(Sender: TObject); +begin + FOldDrawerPnlEncounterButtonExit(Sender); + pnlActionExit(Sender); +end; + +procedure TfrmConsults.FormMouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + inherited; + FMousing := Now; +end; + +procedure TfrmConsults.ViewInfo(Sender: TObject); +begin + inherited; + frmFrame.ViewInfo(Sender); +end; + +procedure TfrmConsults.mnuViewInformationClick(Sender: TObject); +begin + inherited; + mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled; + mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled; + mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled; + mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No'); + mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No'); + mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled; + mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled; + mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled; + mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled; +end; + +initialization + uPCEEdit := TPCEData.Create; + uPCEShow := TPCEData.Create; + +finalization + uPCEEdit.Free; + uPCEShow.Free; + +end. diff --git a/CPRS-Chart/Consults/fConsultsView.dfm b/CPRS-Chart/Consults/fConsultsView.dfm new file mode 100644 index 0000000..9299188 --- /dev/null +++ b/CPRS-Chart/Consults/fConsultsView.dfm @@ -0,0 +1,199 @@ +object frmConsultsView: TfrmConsultsView + Left = 320 + Top = 172 + Width = 414 + Height = 400 + BorderIcons = [] + Caption = 'List Selected Consults' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 406 + Height = 373 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object lblBeginDate: TLabel + Left = 239 + Top = 128 + Width = 73 + Height = 13 + Caption = 'Beginning Date' + end + object lblEndDate: TLabel + Left = 239 + Top = 173 + Width = 59 + Height = 13 + Caption = 'Ending Date' + end + object lblService: TLabel + Left = 8 + Top = 9 + Width = 36 + Height = 13 + Caption = 'Service' + end + object lblStatus: TLabel + Left = 239 + Top = 10 + Width = 30 + Height = 13 + Caption = 'Status' + end + object Label1: TLabel + Left = 239 + Top = 217 + Width = 44 + Height = 13 + Caption = 'Group By' + end + object calBeginDate: TORDateBox + Left = 239 + Top = 142 + Width = 155 + Height = 21 + TabOrder = 3 + DateOnly = False + RequireTime = False + Caption = 'Beginning Date' + end + object calEndDate: TORDateBox + Left = 239 + Top = 187 + Width = 155 + Height = 21 + TabOrder = 4 + DateOnly = False + RequireTime = False + Caption = 'Ending Date' + end + object lstStatus: TORListBox + Left = 239 + Top = 24 + Width = 156 + Height = 96 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + PopupMenu = popStatus + ShowHint = True + TabOrder = 2 + Caption = 'Status' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object radSort: TRadioGroup + Left = 239 + Top = 266 + Width = 155 + Height = 64 + Caption = 'Sort Order' + Items.Strings = ( + '&Ascending (oldest first)' + '&Descending (newest first)') + TabOrder = 6 + end + object cmdOK: TButton + Left = 239 + Top = 340 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 7 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 324 + Top = 340 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 8 + OnClick = cmdCancelClick + end + object treService: TORTreeView + Left = 8 + Top = 57 + Width = 214 + Height = 304 + HideSelection = False + Indent = 19 + ReadOnly = True + TabOrder = 1 + OnChange = treServiceChange + Caption = 'Service' + NodePiece = 0 + end + object cboService: TORComboBox + Left = 8 + Top = 27 + Width = 214 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Service' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + OnKeyPause = cboServiceSelect + OnMouseClick = cboServiceSelect + end + object cboGroupBy: TORComboBox + Left = 239 + Top = 230 + Width = 155 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Group By' + Color = clWindow + DropDownCount = 8 + Items.Strings = ( + '^(none)' + 'T^Consults/Procedures' + 'V^Service' + 'S^Status') + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 5 + end + end + object popStatus: TPopupMenu + Left = 284 + Top = 51 + object popStatusSelectNone: TMenuItem + Caption = 'Select None' + OnClick = popStatusSelectNoneClick + end + end +end diff --git a/CPRS-Chart/Consults/fConsultsView.pas b/CPRS-Chart/Consults/fConsultsView.pas new file mode 100644 index 0000000..e281bbe --- /dev/null +++ b/CPRS-Chart/Consults/fConsultsView.pas @@ -0,0 +1,259 @@ +unit fConsultsView; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ORFN, + StdCtrls, ExtCtrls, ORCtrls, ComCtrls, ORDtTm, uConsults, Menus; + +type + TfrmConsultsView = class(TForm) + pnlBase: TORAutoPanel; + lblBeginDate: TLabel; + calBeginDate: TORDateBox; + lblEndDate: TLabel; + calEndDate: TORDateBox; + radSort: TRadioGroup; + lblStatus: TLabel; + lstStatus: TORListBox; + lblService: TLabel; + cmdOK: TButton; + cmdCancel: TButton; + treService: TORTreeView; + cboService: TORComboBox; + cboGroupBy: TORComboBox; + Label1: TLabel; + popStatus: TPopupMenu; + popStatusSelectNone: TMenuItem; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure treServiceChange(Sender: TObject; Node: TTreeNode); + procedure cboServiceSelect(Sender: TObject); + procedure popStatusSelectNoneClick(Sender: TObject); + private + FChanged: Boolean; + FBeginDate: string; + FEndDate: string; + FGroupBy: string; + FAscending: Boolean; + FService: string; + FServiceName: string; + FConsultUser: boolean ; + FStatus: string; + FStatusName: string; + end; + +function SelectConsultsView(FontSize: Integer; CurrentContext: TSelectContext; var SelectContext: TSelectContext): boolean ; + +var + uChanging: Boolean; + +implementation + +{$R *.DFM} + +uses rCore, uCore, rConsults; + +var + SvcList: TStrings ; + SvcInfo: string ; + +const + TX_DATE_ERR = 'Enter valid beginning and ending dates or press Cancel.'; + TX_DATE_ERR_CAP = 'Error in Date Range'; + +function SelectConsultsView(FontSize: Integer; CurrentContext: TSelectContext; var SelectContext: TSelectContext): boolean ; +{ displays select form for Consults and returns a record of the selection } +var + frmConsultsView: TfrmConsultsView; + W, H, i, j: Integer; + CurrentStatus, CurrentBegin, CurrentEnd, CurrentService: string; +begin + frmConsultsView := TfrmConsultsView.Create(Application); + try + with frmConsultsView do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + FChanged := False; + with radSort do ItemIndex := 1; + //SvcList.Assign(LoadServiceList(CN_SVC_LIST_DISP)); {RV} + SvcList.Assign(LoadServiceListWithSynonyms(CN_SVC_LIST_DISP)); {RV} + SortByPiece(TStringList(SvcList), U, 2); {RV} + for i := 0 to SvcList.Count - 1 do + if cboService.Items.IndexOf(Trim(Piece(SvcList.Strings[i], U, 2))) = -1 then {RV} + //if cboService.SelectByID(Piece(SvcList.Strings[i], U, 1)) = -1 then + cboService.Items.Add(SvcList.Strings[i]); + BuildServiceTree(treService, SvcList, '0', nil) ; + with treService do + for i:=0 to Items.Count-1 do + begin + if Items[i].Level > 0 then Items[i].Expanded := False else Items[i].Expanded := True; + TopItem := Items[0] ; + Selected := Items[0] ; + end ; + CurrentService := CurrentContext.Service; + if StrToIntDef(CurrentService, 0) > 0 then + begin + cboservice.SelectByID(CurrentService); + cboServiceSelect(frmConsultsView); + end; + lstStatus.Items.Assign(SubSetOfStatus); + CurrentStatus := CurrentContext.Status; + if CurrentStatus <> '' then with lstStatus do + begin + i := 1; + while Piece(CurrentStatus, ',', i) <> '' do + begin + j := SelectByID(Piece(CurrentStatus, ',', i)); + if j > -1 then Selected[j] := True; + Inc(i); + end; + end; + CurrentBegin := CurrentContext.BeginDate; + CurrentEnd := CurrentContext.EndDate; + if CurrentBegin <> '' then + calBeginDate.Text := CurrentBegin; + if CurrentEnd <> '' then + calEndDate.Text := CurrentEnd; + if calEndDate.Text = '' then calEndDate.Text := 'TODAY'; + cboGroupBy.SelectByID(CurrentContext.GroupBy); + ShowModal; + + with SelectContext do + begin + Changed := FChanged; + BeginDate := FBeginDate; + EndDate := FEndDate; + Ascending := FAscending; + Service := FService; + ServiceName := FServiceName; + ConsultUser := FConsultUser ; + Status := FStatus; + StatusName := FStatusName; + GroupBy := FGroupBy; + Result := Changed ; + end; + + end; {with frmConsultsView} + finally + frmConsultsView.Release; + end; +end; + +procedure TfrmConsultsView.cmdOKClick(Sender: TObject); +var + bdate, edate: TFMDateTime; + i: integer; +begin + if calBeginDate.Text <> '' then + bdate := StrToFMDateTime(calBeginDate.Text) + else + bdate := 0 ; + + if calEndDate.Text <> '' then + edate := StrToFMDateTime(calEndDate.Text) + else + edate := 0 ; + + if (bdate <= edate) then + begin + FAscending := radSort.ItemIndex = 0; + FBeginDate := calBeginDate.Text; + FEndDate := calEndDate.Text; + end + else + begin + InfoBox(TX_DATE_ERR, TX_DATE_ERR_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + + if treService.Selected <> nil then + begin + FService := Piece(SvcInfo,u,1) ; + FServiceName := Piece(SvcInfo,u,2) ; + FConsultUser := ConsultServiceUser(StrToIntDef(FService, 0), User.DUZ) ; + end + else + FService := '' ; + + if lstStatus.SelCount > 0 then + begin + with lstStatus do for i := 0 to Items.Count-1 do if Selected[i] then + begin + if Piece(Items[i], U, 1) <> '999' then + FStatus := FStatus + Piece(Items[i], U, 1) + ',' + else + FStatus := FStatus + Piece(Items[i],U,3) ; + FStatusName := FStatusName + DisplayText[i] + ',' ; + end; + FStatus := Copy(FStatus, 1, Length(FStatus)-1); + FStatusName := Copy(FStatusName, 1, Length(FStatusName)-1); + end + else + FStatus := '' ; + + if cboGroupBy.ItemID <> '' then + FGroupBy := cboGroupBy.ItemID + else + FGroupBy := ''; + + FChanged := True; + Close; +end; + +procedure TfrmConsultsView.cmdCancelClick(Sender: TObject); +begin + Close; +end; + + +procedure TfrmConsultsView.treServiceChange(Sender: TObject; Node: TTreeNode); +begin + if uChanging then Exit; + SvcInfo := TORTreeNode(treService.Selected).StringData ; + cboService.ItemIndex := cboService.Items.IndexOf(Trim(treService.Selected.Text)); {RV} + //cboService.SelectByID(Piece(string(treService.Selected.Data), U, 1)); +end; + +procedure TfrmConsultsView.cboServiceSelect(Sender: TObject); +var + i: integer; +begin + uChanging := True; + with treService do for i := 0 to Items.Count-1 do + begin + if Piece(TORTreeNode(Items[i]).StringData,U,1) = cboService.ItemID then + begin + Selected := Items[i]; + //treServiceChange(Self, Items[i]); + break; + end; + end; + uChanging := False; + SvcInfo := TORTreeNode(treService.Selected).StringData ; +end; + +procedure TfrmConsultsView.popStatusSelectNoneClick(Sender: TObject); +var + i: integer; +begin + with lstStatus do + begin + for i := 0 to Items.Count - 1 do + Selected[i] := False; + ItemIndex := -1; + end; +end; + +initialization + SvcList := TStringList.Create ; + +finalization + SvcList.Free ; + +end. diff --git a/CPRS-Chart/Consults/fCsltNote.dfm b/CPRS-Chart/Consults/fCsltNote.dfm new file mode 100644 index 0000000..3c50c3d --- /dev/null +++ b/CPRS-Chart/Consults/fCsltNote.dfm @@ -0,0 +1,78 @@ +object frmCsltNote: TfrmCsltNote + Left = 147 + Top = 206 + BorderStyle = bsDialog + Caption = 'Select Progress Note' + ClientHeight = 189 + ClientWidth = 398 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 398 + Height = 189 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object lblAction: TLabel + Left = 12 + Top = 14 + Width = 372 + Height = 16 + AutoSize = False + Caption = 'Select a note for this action:' + end + object cmdOK: TButton + Left = 122 + Top = 152 + Width = 75 + Height = 25 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 203 + Top = 152 + Width = 75 + Height = 25 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 2 + OnClick = cmdCancelClick + end + object cboCsltNote: TORComboBox + Left = 15 + Top = 32 + Width = 370 + Height = 103 + Style = orcsSimple + AutoSelect = True + Caption = 'Select a note for this action' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + MaxLength = 0 + Pieces = '2,3' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + end + end +end diff --git a/CPRS-Chart/Consults/fCsltNote.pas b/CPRS-Chart/Consults/fCsltNote.pas new file mode 100644 index 0000000..1d8fab6 --- /dev/null +++ b/CPRS-Chart/Consults/fCsltNote.pas @@ -0,0 +1,148 @@ +unit fCsltNote; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ORCtrls, ORfn, ExtCtrls; + +type + TfrmCsltNote = class(TForm) + cmdOK: TButton; + cmdCancel: TButton; + cboCsltNote: TORComboBox; + lblAction: TLabel; + pnlBase: TORAutoPanel; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + private + FNoteIEN: string ; + FChanged: Boolean; + end; + +procedure SelectNoteForProcessing(FontSize: Integer; ActionType: integer; NoteList: TStrings; + var NoteIEN: integer; CPStatus: integer) ; + +implementation + +{$R *.DFM} + +uses rConsults, rCore, uCore, fConsults, uConsults; + +const + TX_NOTE_TEXT = 'Select a document or press Cancel.'; + TX_NOTE_CAP = 'No Document Selected'; + +procedure SelectNoteForProcessing(FontSize: Integer; ActionType: integer; NoteList: TStrings; + var NoteIEN: integer; CPStatus: integer) ; +{ displays progress note selection form and returns a record of the selection } +var + frmCsltNote: TfrmCsltNote; + W, H, i: Integer; +begin + frmCsltNote := TfrmCsltNote.Create(Application); + try + with frmCsltNote do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + FChanged := False; + Caption := fConsults.ActionType[ActionType]; + case ActionType of + CN_ACT_CP_COMPLETE: + begin + if CPStatus = CP_INSTR_INCOMPLETE then + begin + lblAction.Caption := 'Interpret Clinical Procedure Results:'; + cboCsltNote.Caption := lblAction.Caption; + for i := 0 to NoteList.Count-1 do + if ((not (Copy(Piece(Piece(NoteList[i], U, 1), ';', 2), 1, 4) = 'MCAR')) and + (Piece(NoteList[i], U, 13) <> '%') and + (Piece(NoteList[i], U, 7) <> 'completed')) then + cboCsltNote.Items.Add(Piece(NoteList[i], U, 1) + U + MakeConsultNoteDisplayText(Notelist[i])); + cboCsltNote.ItemIndex := 0; + FNoteIEN := cboCsltNote.ItemID; + //ShowModal; + end + else if CPStatus in [CP_NO_INSTRUMENT, CP_INSTR_COMPLETE] then + begin + lblAction.Caption := 'Select incomplete note to continue with:'; + cboCsltNote.Caption := lblAction.Caption; + for i := 0 to NoteList.Count-1 do + if ((not (Copy(Piece(Piece(NoteList[i], U, 1), ';', 2), 1, 4) = 'MCAR')) and + (Piece(NoteList[i], U, 7) <> 'completed') and + ((Piece(Piece(NoteList[i], U, 5), ';', 1) = IntToStr(User.DUZ)) or + (Piece(Piece(NoteList[i], U, 5), ';', 1) = '0'))) then + cboCsltNote.Items.Add(Piece(NoteList[i], U, 1) + U + MakeConsultNoteDisplayText(Notelist[i])); + if cboCsltNote.Items.Count > 0 then cboCsltNote.Items.Insert(0, CN_NEW_CP_NOTE + '^'); + if cboCsltNote.Items.Count > 0 then + ShowModal + else + FNoteIEN := CN_NEW_CP_NOTE; + end; + end; + CN_ACT_COMPLETE: + begin + lblAction.Caption := 'Select incomplete note to continue with:'; + cboCsltNote.Caption := lblAction.Caption; + for i := 0 to NoteList.Count-1 do + if ((not (Copy(Piece(Piece(NoteList[i], U, 1), ';', 2), 1, 4) = 'MCAR')) and + (Piece(NoteList[i], U, 7) <> 'completed') and + (Piece(Piece(NoteList[i], U, 5), ';', 1) = IntToStr(User.DUZ))) then + cboCsltNote.Items.Add(Piece(NoteList[i], U, 1) + U + MakeConsultNoteDisplayText(Notelist[i])); + if cboCsltNote.Items.Count > 0 then cboCsltNote.Items.Insert(0, CN_NEW_CSLT_NOTE + '^'); + if cboCsltNote.Items.Count > 0 then + ShowModal + else + FNoteIEN := CN_NEW_CSLT_NOTE; + end; +(* CN_ACT_ADDENDUM: // no longer called in v15 + begin + lblAction.Caption := 'Select completed note to addend to:'; + for i := 0 to NoteList.Count-1 do + begin + if Copy(Piece(NoteList[i], U, 2), 1, 8) = 'Addendum' then continue; + if Piece(NoteList[i], U, 13) = '%' then continue; + cboCsltNote.Items.Add(Piece(NoteList[i], U, 1) + U + MakeConsultNoteDisplayText(Notelist[i])); + end; + if cboCsltNote.Items.Count > 0 then + ShowModal + else + FNoteIEN := '-30'; + end;*) + end; {case} + + NoteIEN:= StrToIntDef(FNoteIEN, -1) ; + end; {with frmCsltNote} + finally + frmCsltNote.Release; + end; +end; + +procedure TfrmCsltNote.cmdCancelClick(Sender: TObject); +begin + FNoteIEN := '-1'; + Close; +end; + +procedure TfrmCsltNote.cmdOKClick(Sender: TObject); +begin + with cboCsltNote do + begin + if ItemIEN = 0 then + begin + InfoBox(TX_NOTE_TEXT, TX_NOTE_CAP, MB_OK or MB_ICONWARNING); + FChanged := False ; + FNoteIEN := '-1'; + Exit; + end; + FChanged := True; + FNoteIEN := Piece(Items[ItemIndex],U,1); + Close; + end ; +end; + +end. diff --git a/CPRS-Chart/Consults/fEditConsult.dfm b/CPRS-Chart/Consults/fEditConsult.dfm new file mode 100644 index 0000000..9b93273 --- /dev/null +++ b/CPRS-Chart/Consults/fEditConsult.dfm @@ -0,0 +1,409 @@ +object frmEditCslt: TfrmEditCslt + Tag = 110 + Left = 409 + Top = 225 + Width = 569 + Height = 367 + HorzScrollBar.Range = 561 + VertScrollBar.Range = 340 + AutoScroll = False + Caption = 'Edit/Resubmit a Cancelled Consult' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + DesignSize = ( + 561 + 340) + PixelsPerInch = 96 + TextHeight = 13 + object lblService: TLabel + Left = 4 + Top = 4 + Width = 134 + Height = 13 + Caption = 'Consult to Service/Specialty' + end + object lblReason: TLabel + Left = 4 + Top = 166 + Width = 90 + Height = 13 + Caption = 'Reason for Consult' + end + object lblComment: TLabel + Left = 4 + Top = 105 + Width = 77 + Height = 13 + Caption = 'New Comments:' + end + object lblComments: TLabel + Left = 4 + Top = 51 + Width = 89 + Height = 13 + Caption = 'Display Comments:' + end + object lblUrgency: TStaticText + Left = 196 + Top = 4 + Width = 44 + Height = 17 + Caption = 'Urgency' + TabOrder = 16 + end + object lblPlace: TStaticText + Left = 376 + Top = 41 + Width = 104 + Height = 17 + Caption = 'Place of Consultation' + TabOrder = 17 + end + object lblAttn: TStaticText + Left = 376 + Top = 4 + Width = 46 + Height = 17 + Caption = 'Attention' + TabOrder = 18 + end + object lblProvDiag: TStaticText + Left = 195 + Top = 82 + Width = 104 + Height = 17 + Caption = 'Provisional Diagnosis' + TabOrder = 19 + end + object lblInpOutp: TStaticText + Left = 197 + Top = 47 + Width = 127 + Height = 17 + Caption = 'Patient will be seen as an:' + TabOrder = 20 + end + object memReason: TRichEdit + Left = 4 + Top = 179 + Width = 552 + Height = 129 + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PopupMenu = popReason + ScrollBars = ssBoth + TabOrder = 11 + WantTabs = True + OnChange = ControlChange + OnExit = memReasonExit + OnKeyDown = memCommentKeyDown + OnKeyPress = memCommentKeyPress + OnKeyUp = memCommentKeyUp + end + object pnlMessage: TPanel + Left = 21 + Top = 292 + Width = 381 + Height = 44 + Anchors = [akLeft, akRight, akBottom] + BevelInner = bvRaised + BorderStyle = bsSingle + Caption = 'pnlMessage' + TabOrder = 15 + Visible = False + object imgMessage: TImage + Left = 4 + Top = 4 + Width = 32 + Height = 32 + end + object memMessage: TRichEdit + Left = 37 + Top = 4 + Width = 332 + Height = 32 + Color = clInfoBk + Font.Charset = DEFAULT_CHARSET + Font.Color = clInfoText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ScrollBars = ssVertical + TabOrder = 0 + WantReturns = False + end + end + object cboService: TORComboBox + Left = 4 + Top = 19 + Width = 180 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Consult to Service/Specialty' + Color = clWindow + DropDownCount = 8 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + ParentFont = False + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + CharsNeedMatch = 1 + end + object cboUrgency: TORComboBox + Left = 196 + Top = 19 + Width = 170 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Urgency' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object radInpatient: TRadioButton + Left = 197 + Top = 61 + Width = 61 + Height = 17 + Caption = '&Inpatient' + TabOrder = 5 + OnClick = radInpatientClick + end + object radOutpatient: TRadioButton + Left = 269 + Top = 61 + Width = 73 + Height = 17 + Caption = '&Outpatient' + TabOrder = 6 + OnClick = radOutpatientClick + end + object cboPlace: TORComboBox + Left = 376 + Top = 54 + Width = 179 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Place of Consultation' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 7 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object txtProvDiag: TCaptionEdit + Left = 195 + Top = 95 + Width = 309 + Height = 21 + Anchors = [akLeft, akTop, akRight] + MaxLength = 180 + ParentShowHint = False + PopupMenu = mnuPopProvDx + ShowHint = True + TabOrder = 8 + OnChange = ControlChange + Caption = 'Provisional Diagnosis' + end + object txtAttn: TORComboBox + Left = 376 + Top = 19 + Width = 181 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Attention' + 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 = 2 + OnChange = ControlChange + OnNeedData = txtAttnNeedData + CharsNeedMatch = 1 + end + object cboCategory: TORComboBox + Left = 561 + Top = 103 + Width = 10 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 14 + Visible = False + CharsNeedMatch = 1 + end + object cmdAccept: TButton + Left = 407 + Top = 313 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'Resubmit' + TabOrder = 12 + OnClick = cmdAcceptClick + end + object cmdQuit: TButton + Left = 484 + Top = 313 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 13 + OnClick = cmdQuitClick + end + object memComment: TRichEdit + Left = 4 + Top = 121 + Width = 550 + Height = 41 + Anchors = [akLeft, akTop, akRight] + PopupMenu = popReason + TabOrder = 10 + WantTabs = True + OnChange = ControlChange + OnKeyDown = memCommentKeyDown + OnKeyPress = memCommentKeyPress + OnKeyUp = memCommentKeyUp + end + object btnCmtCancel: TButton + Left = 110 + Top = 49 + Width = 75 + Height = 21 + Caption = 'Cancellation' + TabOrder = 3 + OnClick = btnCmtCancelClick + end + object btnCmtOther: TButton + Left = 110 + Top = 75 + Width = 75 + Height = 21 + Caption = 'Other' + TabOrder = 4 + OnClick = btnCmtOtherClick + end + object cmdLexSearch: TButton + Left = 508 + Top = 95 + Width = 46 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Lexicon' + TabOrder = 9 + OnClick = cmdLexSearchClick + end + object mnuPopProvDx: TPopupMenu + Left = 353 + Top = 77 + object mnuPopProvDxDelete: TMenuItem + Caption = 'Delete diagnosis' + OnClick = mnuPopProvDxDeleteClick + end + end + object popReason: TPopupMenu + OnPopup = popReasonPopup + Left = 411 + Top = 169 + object popReasonCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = popReasonCutClick + end + object popReasonCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = popReasonCopyClick + end + object popReasonPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = popReasonPasteClick + end + object popReasonPaste2: TMenuItem + Caption = 'Paste2' + ShortCut = 8237 + Visible = False + OnClick = popReasonPasteClick + end + object popReasonReformat: TMenuItem + Caption = 'Reformat Paragraph' + ShortCut = 16466 + OnClick = popReasonReformatClick + end + end +end diff --git a/CPRS-Chart/Consults/fEditConsult.pas b/CPRS-Chart/Consults/fEditConsult.pas new file mode 100644 index 0000000..059e089 --- /dev/null +++ b/CPRS-Chart/Consults/fEditConsult.pas @@ -0,0 +1,671 @@ +unit fEditConsult; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ExtCtrls, ComCtrls, ORfn, uConst, uConsults, Buttons, + Menus ; + +type + TfrmEditCslt = class(TForm) + cboService: TORComboBox; + cboUrgency: TORComboBox; + radInpatient: TRadioButton; + radOutpatient: TRadioButton; + cboPlace: TORComboBox; + txtProvDiag: TCaptionEdit; + txtAttn: TORComboBox; + lblReason: TLabel; + lblService: TLabel; + lblUrgency: TStaticText; + lblPlace: TStaticText; + lblAttn: TStaticText; + lblProvDiag: TStaticText; + cboCategory: TORComboBox; + pnlMessage: TPanel; + imgMessage: TImage; + memMessage: TRichEdit; + cmdAccept: TButton; + cmdQuit: TButton; + memComment: TRichEdit; + lblComment: TLabel; + lblComments: TLabel; + btnCmtCancel: TButton; + btnCmtOther: TButton; + mnuPopProvDx: TPopupMenu; + mnuPopProvDxDelete: TMenuItem; + cmdLexSearch: TButton; + lblInpOutp: TStaticText; + memReason: TRichEdit; + popReason: TPopupMenu; + popReasonCut: TMenuItem; + popReasonCopy: TMenuItem; + popReasonPaste: TMenuItem; + popReasonPaste2: TMenuItem; + popReasonReformat: TMenuItem; + procedure txtAttnNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure radInpatientClick(Sender: TObject); + procedure radOutpatientClick(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure cmdQuitClick(Sender: TObject); + procedure cmdAcceptClick(Sender: TObject); + procedure memReasonExit(Sender: TObject); + procedure OrderMessage(const AMessage: string); + procedure btnCmtCancelClick(Sender: TObject); + procedure btnCmtOtherClick(Sender: TObject); + procedure cmdLexSearchClick(Sender: TObject); + procedure mnuPopProvDxDeleteClick(Sender: TObject); + procedure popReasonCutClick(Sender: TObject); + procedure popReasonCopyClick(Sender: TObject); + procedure popReasonPasteClick(Sender: TObject); + procedure popReasonPopup(Sender: TObject); + procedure popReasonReformatClick(Sender: TObject); + procedure memCommentKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memCommentKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memCommentKeyPress(Sender: TObject; var Key: Char); + private + FLastServiceID: string; + FChanged: boolean; + FChanging: boolean; + FEditCtrl: TCustomEdit; + FNavigatingTab: boolean; + procedure SetProvDiagPromptingMode; + protected + procedure InitDialog; + procedure Validate(var AnErrMsg: string); + function ValidSave: Boolean; + end; + +function EditResubmitConsult(FontSize: Integer; ConsultIEN: integer): boolean; + +var + frmEditCslt: TfrmEditCslt; + +implementation + +{$R *.DFM} + +uses + rODBase, rConsults, uCore, rCore, fConsults, fRptBox, fPCELex, rPCE, + ORClasses, clipbrd, UBAGlobals, rOrders ; + +var + SvcList: TStrings ; + OldRec, NewRec: TEditResubmitRec; + Defaults: TStringList; + uMessageVisible: DWORD; + ProvDx: TProvisionalDiagnosis; +{Begin BillingAware} + BADxUpdated: boolean; +{End BillingAware} + +const + TX_NOTTHISSVC_TEXT = 'Consults cannot be ordered from this service' ; + TX_NO_SVC = 'A service must be specified.' ; + TX_NO_REASON = 'A reason for this consult must be entered.' ; + TX_SVC_ERROR = 'This service has not been defined in your Orderable Items file.' + + #13#10'Contact IRM for assistance.' ; + TX_NO_URGENCY = 'An urgency must be specified.'; + TX_NO_PLACE = 'A place of consultation must be specified'; + TX_NO_DIAG = 'A provisional diagnosis must be entered for consults to this service.'; + TX_SELECT_DIAG = 'You must use the "Lexicon" button to select a diagnosis for consults to this service.'; + TX_INACTIVE_CODE = 'The provisional diagnosis code is not active as of today''s date.' + #13#10 + + 'Another code must be selected'; + TC_INACTIVE_CODE = 'Inactive ICD Code'; + +function EditResubmitConsult(FontSize: Integer; ConsultIEN: integer): boolean; +begin + Result := False; + if ConsultIEN = 0 then exit; + FillChar(OldRec, SizeOf(OldRec), 0); + FillChar(NewRec, SizeOf(NewRec), 0); + FillChar(ProvDx, SizeOf(ProvDx), 0); + OldRec := LoadConsultForEdit(ConsultIEN); + NewRec.IEN := OldRec.IEN; + NewRec.RequestType := OldRec.RequestType; + with NewRec do + begin + RequestReason:= TStringList.Create ; + DenyComments:= TStringList.Create ; + OtherComments:= TStringList.Create ; + NewComments:= TStringList.Create ; + end; + StatusText('Loading Consult for Edit'); + frmEditCslt := TfrmEditCslt.Create(Application); + SvcList := TStringList.Create ; + Defaults := TStringList.Create; + try + with frmEditCslt do + begin + ResizeAnchoredFormToFont(frmEditCslt); + FChanged := False; + InitDialog; + ShowModal ; + Result := FChanged ; + end ; + finally + OldRec.RequestReason.Free; + OldRec.DenyComments.Free; + OldRec.OtherComments.Free; + OldRec.NewComments.Free; + NewRec.RequestReason.Free; + NewRec.DenyComments.Free; + NewRec.OtherComments.Free; + NewRec.NewComments.Free; + SvcList.Free; + Defaults.Free; + frmEditCslt.Release; + end; +end; + +procedure TfrmEditCslt.InitDialog; +var + i:integer; +begin + FChanging := True; + Defaults.Assign(ODForConsults); + FLastServiceID := ''; + cboService.Items.Clear; + if OldRec.InpOutp <> '' then + case OldRec.InpOutp[1] of + 'I': radInpatient.Checked := True; //INPATIENT CONSULT + 'O': radOutpatient.Checked := True; //OUTPATIENT CONSULT + end + else + begin + if Patient.Inpatient then + radInpatient.Checked := True + else + radOutpatient.Checked := True; + end; + StatusText('Initializing Long List'); + SvcList.Assign(LoadServiceList(CN_SVC_LIST_ORD)) ; + with cboService do + begin + for i := 0 to SvcList.Count - 1 do + if SelectByID(Piece(SvcList.Strings[i], U, 1)) = -1 then + Items.Add(SvcList.Strings[i]); + SelectByID(IntToStr(OldRec.ToService)); + end; + cboPlace.SelectByID(OldRec.Place); + with cboUrgency do for i := 0 to Items.Count-1 do + if UpperCase(DisplayText[i]) = UpperCase(OldRec.UrgencyName) then ItemIndex := i; + txtProvDiag.Text := OldRec.ProvDiagnosis; + ProvDx.Code := OldRec.ProvDxCode; + if OldRec.ProvDxCodeInactive then + begin + InfoBox(TX_INACTIVE_CODE, TC_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + ProvDx.CodeInactive := True; + end; + memReason.Lines.Assign(OldRec.RequestReason); + memComment.Clear ; + btnCmtCancel.Enabled := (OldRec.DenyComments.Count > 0); + btnCmtOther.Enabled := (OldRec.OtherComments.Count > 0); + txtAttn.InitLongList(OldRec.AttnName) ; + if OldRec.Attention > 0 then + txtAttn.SelectByIEN(OldRec.Attention) + else + txtAttn.ItemIndex := -1; + SetProvDiagPromptingMode; + FChanging := False; + StatusText(''); +end; + +procedure TfrmEditCslt.Validate(var AnErrMsg: string); + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + inherited; + if cboService.ItemIEN = 0 then SetError(TX_NO_SVC); + if cboUrgency.ItemIEN = 0 then SetError(TX_NO_URGENCY); + if cboPlace.ItemID = '' then SetError(TX_NO_PLACE); + if memReason.Lines.Count = 0 then SetError(TX_NO_REASON); + with cboService do + begin + if Piece(Items[ItemIndex], U, 5) = '1' then SetError(TX_NOTTHISSVC_TEXT); + if (Piece(Items[ItemIndex],U,5) <> '1') + and (Piece(Items[ItemIndex], U, 6) = '') + then SetError(TX_SVC_ERROR) ; + end; + if (ProvDx.Reqd = 'R') and (Length(txtProvDiag.Text) = 0) then + begin + if ProvDx.PromptMode = 'F' then + SetError(TX_NO_DIAG) + else + SetError(TX_SELECT_DIAG); + end; + if OldRec.ProvDxCodeInactive and ProvDx.CodeInactive then + SetError(TX_INACTIVE_CODE); +end; + +procedure TfrmEditCslt.txtAttnNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + txtAttn.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmEditCslt.radInpatientClick(Sender: TObject); +begin + inherited; + cboUrgency.Items.Clear; + cboPlace.Items.Clear; + cboCategory.Items.Clear; + cboCategory.Items.Add('I^Inpatient'); + cboCategory.SelectById('I'); + ExtractItems(cboPlace.Items, Defaults, 'Inpt Place'); + ExtractItems(cboUrgency.Items, Defaults, 'Inpt Cslt Urgencies'); //S.GMRCR + ControlChange(Self); +end; + +procedure TfrmEditCslt.radOutpatientClick(Sender: TObject); +begin + inherited; + cboUrgency.Items.Clear; + cboPlace.Items.Clear; + cboCategory.Items.Clear; + cboCategory.Items.Add('O^Outpatient'); + cboCategory.SelectById('O'); + ExtractItems(cboPlace.Items, Defaults, 'Outpt Place'); + ExtractItems(cboUrgency.Items, Defaults, 'Outpt Urgencies'); //S.GMRCO + ControlChange(Self); +end; + + +procedure TfrmEditCslt.ControlChange(Sender: TObject); +begin + if FChanging then exit; + with NewRec do + begin + with cboService do if ItemIEN > 0 then + if ItemIEN <> OldRec.ToService then + begin + ToService := ItemIEN; + ToServiceName := Text; + end + else + begin + ToService := 0; + ToServiceName := ''; + end; + + with cboCategory do if Length(ItemID) > 0 then + if ItemID <> OldRec.InpOutP then + InpOutP := ItemID + else + InpOutP := ''; + + with cboUrgency do if ItemIEN > 0 then + if StrToIntDef(Piece(Items[ItemIndex], U, 3), 0) <> OldRec.Urgency then + begin + Urgency := StrToIntDef(Piece(Items[ItemIndex], U, 3), 0); + UrgencyName := Text; + end + else + begin + Urgency := 0; + UrgencyName := ''; + end; + + with cboPlace do if Length(ItemID) > 0 then + if ItemID <> OldRec.Place then + begin + Place := ItemID; + PlaceName := Text; + end + else + begin + Place := ''; + PlaceName := ''; + end; + + with txtAttn do + if ItemIEN > 0 then + begin + if ItemIEN <> OldRec.Attention then + begin + Attention := ItemIEN; + AttnName := Text; + end + else + begin + Attention := 0; + AttnName := ''; + end; + end + else // blank + begin + if OldRec.Attention > 0 then + begin + Attention := -1; + AttnName := ''; + end + else + begin + Attention := 0; + AttnName := ''; + end; + end; + + with txtProvDiag do + if Length(Text) > 0 then + begin + if Text <> OldRec.ProvDiagnosis then + ProvDiagnosis := Text + else + ProvDiagnosis := ''; + + if ProvDx.Code <> OldRec.ProvDxCode then + ProvDxCode := ProvDx.Code + else + ProvDxCode := ''; + + if OldRec.ProvDxCodeInactive then + ProvDx.CodeInactive := (ProvDx.Code = OldRec.ProvDxCode); + end + else //blank + begin + ProvDx.Code := ''; + ProvDx.CodeInactive := False; + if OldRec.ProvDiagnosis <> '' then + ProvDiagnosis := '@' + else + ProvDiagnosis := ''; + end; + + with memReason do if Lines.Count > 0 then + if Lines.Equals(OldRec.RequestReason) then + RequestReason.Clear + else + RequestReason.Assign(Lines); + + with memComment do + if GetTextLen > 0 then + NewComments.Assign(Lines) + else + NewComments.Clear; + end; +end; + +procedure TfrmEditCslt.FormClose(Sender: TObject; var Action: TCloseAction); +const + TX_ACCEPT = 'Resubmit this request?' + CRLF + CRLF; + TX_ACCEPT_CAP = 'Unsaved Changes'; +begin + if FChanged then + if InfoBox(TX_ACCEPT, TX_ACCEPT_CAP, MB_YESNO) = ID_YES then + if not ValidSave then Action := caNone; +end; + +procedure TfrmEditCslt.cmdAcceptClick(Sender: TObject); +{Begin BillingAware} +var + BADiagnosis: string; + //newDxRec: TBADxRecord; + //AnOrder: TOrder; +{End BillingAware} +begin + +{Begin BillingAware} + if BILLING_AWARE then + begin + if BADxUpdated then + begin + BADiagnosis := ProvDx.Text + '^' + ProvDx.Code; + UBAGlobals.Dx1 := BADiagnosis; // add selected dx to BA Dx List. + UBAGlobals.SimpleAddTempDxList(UBAGlobals.BAOrderID); + end; + end; +{End BillingAware} + + if ValidSave then + begin + FChanged := (ResubmitConsult(NewRec) = '0'); + Close; + end; +end; + +procedure TfrmEditCslt.memReasonExit(Sender: TObject); +var + AStringList: TStringList; +begin + inherited; + AStringList := TStringList.Create; + try + AStringList.Assign(memReason.Lines); + LimitStringLength(AStringList, 74); + memReason.Lines.Assign(AstringList); + ControlChange(Self); + finally + AStringList.Free; + end; +end; + +procedure TfrmEditCslt.cmdQuitClick(Sender: TObject); +begin + inherited; + FChanged := False; + Close; +end; + +function TfrmEditCslt.ValidSave: Boolean; +const + TX_NO_SAVE = 'This request cannot be saved for the following reason(s):' + CRLF + CRLF; + TX_NO_SAVE_CAP = 'Unable to Save Request'; + TX_SAVE_ERR = 'Unexpected error - it was not possible to save this request.'; +var + ErrMsg: string; +begin + Result := True; + Validate(ErrMsg); + if Length(ErrMsg) > 0 then + begin + InfoBox(TX_NO_SAVE + ErrMsg, TX_NO_SAVE_CAP, MB_OK); + Result := False; + end; + if (ProvDx.Reqd = 'R') and (Length(txtProvDiag.Text) = 0) and (ProvDx.PromptMode = 'L') then + cmdLexSearchClick(Self); +end; + + +procedure TfrmEditCslt.OrderMessage(const AMessage: string); +begin + memMessage.Lines.SetText(PChar(AMessage)); + if ContainsVisibleChar(AMessage) then + begin + pnlMessage.Visible := True; + pnlMessage.BringToFront; + uMessageVisible := GetTickCount; + end + else pnlMessage.Visible := False; +end; + +procedure TfrmEditCslt.btnCmtCancelClick(Sender: TObject); +begin + ReportBox(OldRec.DenyComments, 'Cancellation Comments', False); +end; + +procedure TfrmEditCslt.btnCmtOtherClick(Sender: TObject); +begin + ReportBox(OldRec.OtherComments, 'Added Comments', False); +end; + +procedure TfrmEditCslt.cmdLexSearchClick(Sender: TObject); +var + Match: string; + i: integer; +begin + inherited; +{Begin BillingAware} + if BILLING_AWARE then BADxUpdated := FALSE; +{End BillingAware} + LexiconLookup(Match, LX_ICD); + if Match = '' then Exit; + ProvDx.Code := Piece(Match, U, 1); + ProvDx.Text := Piece(Match, U, 2); + i := Pos(' (ICD', ProvDx.Text); + if i = 0 then i := Length(ProvDx.Text) + 1; + if ProvDx.Text[i-1] = '*' then i := i - 2; + ProvDx.Text := Copy(ProvDx.Text, 1, i - 1); + txtProvDiag.Text := ProvDx.Text + ' (' + ProvDx.Code + ')'; +{Begin BillingAware} + if BILLING_AWARE then BADxUpdated := TRUE; +{End BillingAware} + ProvDx.CodeInactive := False; +end; + +procedure TfrmEditCslt.SetProvDiagPromptingMode; +const + TX_USE_LEXICON = 'You must use the "Lexicon" button to select a provisional diagnosis for this service.'; + TX_PROVDX_OPT = 'Provisional Diagnosis'; + TX_PROVDX_REQD = 'Provisional Dx (REQUIRED)'; +begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + txtProvDiag.Font.Color := clBtnText; + lblProvDiag.Enabled := False; + txtProvDiag.Hint := ''; + if cboService.ItemIEN = 0 then Exit; + GetProvDxMode(ProvDx, cboService.ItemID + CSLT_PTR); + // Returns: string A^B + // A = O (optional), R (required) or S (suppress) + // B = F (free-text) or L (lexicon) + with ProvDx do if (Reqd = '') or (PromptMode = '') then Exit; + if ProvDx.Reqd = 'R' then + lblProvDiag.Caption := TX_PROVDX_REQD + else + lblProvDiag.Caption := TX_PROVDX_OPT; + if ProvDx.Reqd = 'S' then + begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + txtProvDiag.Font.Color := clBtnText; + lblProvDiag.Enabled := False; + end + else + case ProvDx.PromptMode[1] of + 'F': begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := True; + txtProvDiag.ReadOnly := False; + txtProvDiag.Color := clWindow; + txtProvDiag.Font.Color := clWindowText; + lblProvDiag.Enabled := True; + end; + 'L': begin + cmdLexSearch.Enabled := True; + txtProvDiag.Enabled := True; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clInfoBk; + txtProvDiag.Font.Color := clInfoText; + lblProvDiag.Enabled := True; + txtProvDiag.Hint := TX_USE_LEXICON; + end; + end; +end; + +procedure TfrmEditCslt.mnuPopProvDxDeleteClick(Sender: TObject); +begin + inherited; + ProvDx.Text := ''; + ProvDx.Code := ''; + ProvDx.CodeInactive := False; + txtProvDiag.Text := ''; + ControlChange(Self); +end; + +procedure TfrmEditCslt.popReasonPopup(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popReason) is TCustomEdit + then FEditCtrl := TCustomEdit(PopupComponent(Sender, popReason)) + else FEditCtrl := nil; + if FEditCtrl <> nil then + begin + popReasonCut.Enabled := FEditCtrl.SelLength > 0; + popReasonCopy.Enabled := popReasonCut.Enabled; + popReasonPaste.Enabled := (not TORExposedCustomEdit(FEditCtrl).ReadOnly) and + Clipboard.HasFormat(CF_TEXT); + end else + begin + popReasonCut.Enabled := False; + popReasonCopy.Enabled := False; + popReasonPaste.Enabled := False; + end; + popReasonReformat.Enabled := True; +end; + +procedure TfrmEditCslt.popReasonCutClick(Sender: TObject); +begin + inherited; + FEditCtrl.CutToClipboard; +end; + +procedure TfrmEditCslt.popReasonCopyClick(Sender: TObject); +begin + inherited; + FEditCtrl.CopyToClipboard; +end; + +procedure TfrmEditCslt.popReasonPasteClick(Sender: TObject); +begin + inherited; + FEditCtrl.SelText := Clipboard.AsText; +end; + +procedure TfrmEditCslt.popReasonReformatClick(Sender: TObject); +begin + inherited; + if (Screen.ActiveControl <> memReason) and + (Screen.ActiveControl <> memComment)then Exit; + ReformatMemoParagraph(TCustomMemo(FEditCtrl)); +end; + +procedure TfrmEditCslt.memCommentKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if FNavigatingTab then + begin + if ssShift in Shift then + FindNextControl(Sender as TWinControl, False, True, False).SetFocus //previous control + else if ssCtrl in Shift then + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + FNavigatingTab := False; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +procedure TfrmEditCslt.memCommentKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + //The navigating tab controls were inadvertantently adding tab characters + //This should fix it + FNavigatingTab := (Key = VK_TAB) and ([ssShift,ssCtrl] * Shift <> []); + if FNavigatingTab then + Key := 0; +end; + +procedure TfrmEditCslt.memCommentKeyPress(Sender: TObject; var Key: Char); +begin + if FNavigatingTab then + Key := #0; //Disable shift-tab processin +end; + +end. diff --git a/CPRS-Chart/Consults/fEditProc.dfm b/CPRS-Chart/Consults/fEditProc.dfm new file mode 100644 index 0000000..209c3af --- /dev/null +++ b/CPRS-Chart/Consults/fEditProc.dfm @@ -0,0 +1,452 @@ +object frmEditProc: TfrmEditProc + Tag = 112 + Left = 296 + Top = 245 + Width = 569 + Height = 335 + HorzScrollBar.Range = 561 + VertScrollBar.Range = 308 + AutoScroll = False + Caption = 'Edit and resubmit a cancelled procedure' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + DesignSize = ( + 561 + 308) + PixelsPerInch = 96 + TextHeight = 13 + object lblProc: TLabel + Left = 3 + Top = 7 + Width = 49 + Height = 13 + Caption = 'Procedure' + end + object lblReason: TLabel + Left = 3 + Top = 167 + Width = 90 + Height = 13 + Caption = 'Reason for Consult' + end + object lblService: TOROffsetLabel + Left = 3 + Top = 49 + Width = 158 + Height = 15 + Caption = 'Service to perform this procedure' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblComment: TLabel + Left = 106 + Top = 109 + Width = 74 + Height = 13 + Caption = 'New Comments' + end + object lblComments: TLabel + Left = 3 + Top = 99 + Width = 89 + Height = 13 + Caption = 'Display Comments:' + end + object lblUrgency: TStaticText + Left = 190 + Top = 7 + Width = 44 + Height = 17 + Caption = 'Urgency' + TabOrder = 18 + end + object lblPlace: TStaticText + Left = 362 + Top = 50 + Width = 104 + Height = 17 + Caption = 'Place of Consultation' + TabOrder = 19 + end + object lblAttn: TStaticText + Left = 362 + Top = 7 + Width = 46 + Height = 17 + Caption = 'Attention' + TabOrder = 20 + end + object lblProvDiag: TStaticText + Left = 190 + Top = 81 + Width = 104 + Height = 17 + Caption = 'Provisional Diagnosis' + TabOrder = 21 + end + object lblInpOutp: TStaticText + Left = 192 + Top = 48 + Width = 127 + Height = 17 + Caption = 'Patient will be seen as an:' + TabOrder = 17 + end + object memReason: TRichEdit + Left = 2 + Top = 181 + Width = 555 + Height = 95 + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PopupMenu = popReason + ScrollBars = ssBoth + TabOrder = 12 + WantTabs = True + OnChange = ControlChange + OnExit = memReasonExit + OnKeyDown = memReasonKeyDown + OnKeyPress = memReasonKeyPress + OnKeyUp = memCommentKeyUp + end + object cmdAccept: TButton + Left = 399 + Top = 282 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'Resubmit' + TabOrder = 13 + OnClick = cmdAcceptClick + end + object cmdQuit: TButton + Left = 484 + Top = 282 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 14 + OnClick = cmdQuitClick + end + object cboUrgency: TORComboBox + Left = 190 + Top = 22 + Width = 165 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Urgency' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object radInpatient: TRadioButton + Left = 190 + Top = 61 + Width = 61 + Height = 17 + Caption = '&Inpatient' + TabOrder = 4 + OnClick = radInpatientClick + end + object radOutpatient: TRadioButton + Left = 264 + Top = 61 + Width = 73 + Height = 17 + Caption = '&Outpatient' + TabOrder = 5 + OnClick = radOutpatientClick + end + object cboPlace: TORComboBox + Left = 362 + Top = 63 + Width = 195 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Place of Consultation' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 6 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object txtProvDiag: TCaptionEdit + Left = 190 + Top = 94 + Width = 313 + Height = 21 + Anchors = [akLeft, akTop, akRight] + MaxLength = 180 + ParentShowHint = False + PopupMenu = mnuPopProvDx + ShowHint = True + TabOrder = 7 + OnChange = ControlChange + Caption = 'Provisional Diagnosis' + end + object txtAttn: TORComboBox + Left = 362 + Top = 22 + Width = 195 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Attention' + 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 = 3 + OnChange = ControlChange + OnNeedData = txtAttnNeedData + CharsNeedMatch = 1 + end + object cboProc: TORComboBox + Left = 3 + Top = 22 + Width = 173 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Procedure' + Color = clWindow + DropDownCount = 8 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + ParentFont = False + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnChange = cboProcSelect + OnNeedData = cboProcNeedData + CharsNeedMatch = 1 + end + object cboCategory: TORComboBox + Left = 505 + Top = -11 + Width = 2 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 15 + Visible = False + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboService: TORComboBox + Left = 3 + Top = 65 + Width = 173 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Service to perform this procedure' + Color = clWindow + DropDownCount = 8 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + ParentFont = False + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object memComment: TRichEdit + Left = 106 + Top = 123 + Width = 449 + Height = 38 + Anchors = [akLeft, akTop, akRight] + PopupMenu = popReason + TabOrder = 11 + WantTabs = True + OnChange = ControlChange + OnKeyUp = memCommentKeyUp + end + object pnlMessage: TPanel + Left = 29 + Top = 264 + Width = 381 + Height = 44 + Anchors = [akLeft, akRight, akBottom] + BevelInner = bvRaised + BorderStyle = bsSingle + Caption = 'pnlMessage' + TabOrder = 16 + Visible = False + object imgMessage: TImage + Left = 4 + Top = 4 + Width = 32 + Height = 32 + end + object memMessage: TRichEdit + Left = 40 + Top = 4 + Width = 332 + Height = 32 + Color = clInfoBk + Font.Charset = DEFAULT_CHARSET + Font.Color = clInfoText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ScrollBars = ssVertical + TabOrder = 0 + WantReturns = False + end + end + object btnCmtCancel: TButton + Left = 11 + Top = 116 + Width = 75 + Height = 21 + Caption = 'Cancellation' + TabOrder = 9 + OnClick = btnCmtCancelClick + end + object btnCmtOther: TButton + Left = 11 + Top = 139 + Width = 75 + Height = 21 + Caption = 'Other' + TabOrder = 10 + OnClick = btnCmtOtherClick + end + object cmdLexSearch: TButton + Left = 507 + Top = 94 + Width = 49 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Lexicon' + TabOrder = 8 + OnClick = cmdLexSearchClick + end + object mnuPopProvDx: TPopupMenu + Left = 353 + Top = 77 + object mnuPopProvDxDelete: TMenuItem + Caption = 'Delete diagnosis' + OnClick = mnuPopProvDxDeleteClick + end + end + object popReason: TPopupMenu + OnPopup = popReasonPopup + Left = 411 + Top = 169 + object popReasonCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = popReasonCutClick + end + object popReasonCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = popReasonCopyClick + end + object popReasonPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = popReasonPasteClick + end + object popReasonPaste2: TMenuItem + Caption = 'Paste2' + ShortCut = 8237 + Visible = False + OnClick = popReasonPasteClick + end + object popReasonReformat: TMenuItem + Caption = 'Reformat Paragraph' + ShortCut = 16466 + OnClick = popReasonReformatClick + end + end +end diff --git a/CPRS-Chart/Consults/fEditProc.pas b/CPRS-Chart/Consults/fEditProc.pas new file mode 100644 index 0000000..794cd3e --- /dev/null +++ b/CPRS-Chart/Consults/fEditProc.pas @@ -0,0 +1,686 @@ +unit fEditProc; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ExtCtrls, ComCtrls, ORfn, uConst, uConsults, Buttons, + Menus; + +type + TfrmEditProc = class(TForm) + cmdAccept: TButton; + cmdQuit: TButton; + cboUrgency: TORComboBox; + radInpatient: TRadioButton; + radOutpatient: TRadioButton; + cboPlace: TORComboBox; + txtProvDiag: TCaptionEdit; + txtAttn: TORComboBox; + lblProc: TLabel; + cboProc: TORComboBox; + lblReason: TLabel; + lblUrgency: TStaticText; + lblPlace: TStaticText; + lblAttn: TStaticText; + lblProvDiag: TStaticText; + cboCategory: TORComboBox; + cboService: TORComboBox; + lblService: TOROffsetLabel; + memComment: TRichEdit; + lblComment: TLabel; + lblComments: TLabel; + pnlMessage: TPanel; + imgMessage: TImage; + memMessage: TRichEdit; + btnCmtCancel: TButton; + btnCmtOther: TButton; + mnuPopProvDx: TPopupMenu; + mnuPopProvDxDelete: TMenuItem; + cmdLexSearch: TButton; + lblInpOutp: TStaticText; + memReason: TRichEdit; + popReason: TPopupMenu; + popReasonCut: TMenuItem; + popReasonCopy: TMenuItem; + popReasonPaste: TMenuItem; + popReasonPaste2: TMenuItem; + popReasonReformat: TMenuItem; + procedure txtAttnNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboProcNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure radInpatientClick(Sender: TObject); + procedure radOutpatientClick(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure cboProcSelect(Sender: TObject); + procedure memReasonExit(Sender: TObject); + procedure cmdAcceptClick(Sender: TObject); + procedure cmdQuitClick(Sender: TObject); + procedure OrderMessage(const AMessage: string); + procedure btnCmtCancelClick(Sender: TObject); + procedure btnCmtOtherClick(Sender: TObject); + procedure cmdLexSearchClick(Sender: TObject); + procedure mnuPopProvDxDeleteClick(Sender: TObject); + procedure popReasonCutClick(Sender: TObject); + procedure popReasonCopyClick(Sender: TObject); + procedure popReasonPasteClick(Sender: TObject); + procedure popReasonPopup(Sender: TObject); + procedure popReasonReformatClick(Sender: TObject); + procedure memCommentKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memReasonKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memReasonKeyPress(Sender: TObject; var Key: Char); + private + FLastProcID: string; + FChanged: boolean; + FChanging: boolean; + FEditCtrl: TCustomEdit; + FNavigatingTab: boolean; + procedure SetProvDiagPromptingMode; + protected + procedure InitDialog; + procedure Validate(var AnErrMsg: string); + function ValidSave: Boolean; + end; + + +function EditResubmitProcedure(FontSize: Integer; ConsultIEN: integer): boolean; + +var + frmEditProc: TfrmEditProc; + +implementation + +{$R *.DFM} + +uses + rConsults, uCore, rCore, fConsults, rODBase, fRptBox, fPCELex, rPCE, ORClasses, clipbrd ; + +var + OldRec, NewRec: TEditResubmitRec; + Defaults: TStringList; + uMessageVisible: DWORD; + ProvDx: TProvisionalDiagnosis; + +const + TX_NO_PROC = 'A procedure must be specified.' ; + TX_NO_REASON = 'A reason for this procedure must be entered.' ; + TX_NO_SERVICE = 'A service must be selected to perform this procedure.'; + TX_NO_URGENCY = 'An urgency must be specified.'; + TX_NO_PLACE = 'A place of consultation must be specified'; + TX_NO_DIAG = 'A provisional diagnosis must be entered for consults to this service.'; + TX_SELECT_DIAG = 'You must use the "Lexicon" button to select a diagnosis for consults to this service.'; + TX_INACTIVE_CODE = 'The provisional diagnosis code is not active as of today''s date.' + #13#10 + + 'Another code must be selected'; + TC_INACTIVE_CODE = 'Inactive ICD Code'; + +function EditResubmitProcedure(FontSize: Integer; ConsultIEN: integer): boolean; +begin + Result := False; + if ConsultIEN = 0 then exit; + FillChar(OldRec, SizeOf(OldRec), 0); + FillChar(NewRec, SizeOf(NewRec), 0); + FillChar(ProvDx, SizeOf(ProvDx), 0); + OldRec := LoadConsultForEdit(ConsultIEN); + NewRec.IEN := OldRec.IEN; + NewRec.RequestType := OldRec.RequestType; + with NewRec do + begin + RequestReason:= TStringList.Create ; + DenyComments:= TStringList.Create ; + OtherComments:= TStringList.Create ; + NewComments:= TStringList.Create ; + end; + StatusText('Loading Procedure for Edit'); + frmEditProc := TfrmEditProc.Create(Application); + Defaults := TStringList.Create; + try + ResizeAnchoredFormToFont(frmEditProc); + with frmEditProc do + begin + FChanged := False; + InitDialog; + ShowModal ; + Result := FChanged ; + end ; + finally + OldRec.RequestReason.Free; + OldRec.DenyComments.Free; + OldRec.OtherComments.Free; + OldRec.NewComments.Free; + NewRec.RequestReason.Free; + NewRec.DenyComments.Free; + NewRec.OtherComments.Free; + NewRec.NewComments.Free; + Defaults.Free; + frmEditProc.Release; + end; +end; + +procedure TfrmEditProc.InitDialog; +var + i: integer; +begin + FChanging := True; + Defaults := TStringList.Create; + Defaults.Assign(ODForProcedures); + FLastProcID := ''; + cboProc.InitLongList(OldRec.ConsultProcName) ; + cboProc.SelectByIEN(OldRec.OrderableItem); + if cboProc.ItemIndex = -1 then + begin + cboProc.Items.Insert(0, IntToStr(OldRec.OrderableItem) + U + OldRec.ConsultProcName + + U + OldRec.ConsultProcName + U + OldRec.ConsultProc); + cboProc.ItemIndex := 0; + end; + cboProcSelect(Self); + txtAttn.InitLongList(OldRec.AttnName) ; + if OldRec.Attention > 0 then + txtAttn.SelectByIEN(OldRec.Attention) + else + txtAttn.ItemIndex := -1; + cboService.SelectByIEN(OldRec.ToService); + if OldRec.InpOutp <> '' then + case OldRec.InpOutp[1] of + 'I': radInpatient.Checked := True; //INPATIENT PROCEDURE + 'O': radOutpatient.Checked := True; //OUTPATIENT PROCEDURE + end + else + begin + if Patient.Inpatient then + radInpatient.Checked := True + else + radOutpatient.Checked := True; + end; + cboPlace.SelectByID(OldRec.Place); + with cboUrgency do for i := 0 to Items.Count-1 do + if UpperCase(DisplayText[i]) = UpperCase(OldRec.UrgencyName) then ItemIndex := i; + txtProvDiag.Text := OldRec.ProvDiagnosis; + ProvDx.Code := OldRec.ProvDxCode; + if OldRec.ProvDxCodeInactive then + begin + InfoBox(TX_INACTIVE_CODE, TC_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + ProvDx.CodeInactive := True; + end; + memReason.Lines.Assign(OldRec.RequestReason); + btnCmtCancel.Enabled := (OldRec.DenyComments.Count > 0); + btnCmtOther.Enabled := (OldRec.OtherComments.Count > 0); + memComment.Clear ; + SetProvDiagPromptingMode; + FChanging := False; + StatusText(''); +end; + +procedure TfrmEditProc.Validate(var AnErrMsg: string); + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + if cboProc.ItemIEN = 0 then SetError(TX_NO_PROC); + if memReason.Lines.Count = 0 then SetError(TX_NO_REASON); + if cboService.ItemIEN = 0 then SetError(TX_NO_SERVICE); + if cboUrgency.ItemIEN = 0 then SetError(TX_NO_URGENCY); + if cboPlace.ItemID = '' then SetError(TX_NO_PLACE); + if (ProvDx.Reqd = 'R') and (Length(txtProvDiag.Text) = 0) then + begin + if ProvDx.PromptMode = 'F' then + SetError(TX_NO_DIAG) + else + SetError(TX_SELECT_DIAG); + end; + if OldRec.ProvDxCodeInactive and ProvDx.CodeInactive then + SetError(TX_INACTIVE_CODE); +end; + +procedure TfrmEditProc.txtAttnNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + txtAttn.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmEditProc.cboProcNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + cboProc.ForDataUse(SubSetOfProcedures(StartFrom, Direction)); +end; + +procedure TfrmEditProc.radInpatientClick(Sender: TObject); +begin + inherited; + cboCategory.Items.Clear; + cboCategory.Items.Add('I^Inpatient'); + cboCategory.SelectById('I'); + ExtractItems(cboPlace.Items, Defaults, 'Inpt Place'); + ExtractItems(cboUrgency.Items, Defaults, 'Inpt Proc Urgencies'); //S.GMRCR + ControlChange(Self); +end; + +procedure TfrmEditProc.radOutpatientClick(Sender: TObject); +begin + inherited; + cboCategory.Items.Clear; + cboCategory.Items.Add('O^Outpatient'); + cboCategory.SelectById('O'); + ExtractItems(cboPlace.Items, Defaults, 'Outpt Place'); + ExtractItems(cboUrgency.Items, Defaults, 'Outpt Urgencies'); //S.GMRCO + ControlChange(Self); +end; + +procedure TfrmEditProc.ControlChange(Sender: TObject); +begin + if FChanging then exit; + with NewRec do + begin + with cboProc do if ItemIEN > 0 then + if Piece(Items[ItemIndex], U, 4) <> OldRec.ConsultProc then + begin + ConsultProc := Piece(Items[ItemIndex], U, 4); + ConsultProcName := Text; + end + else + begin + ConsultProc := ''; + ConsultProcName := ''; + end; + + with cboService do if ItemIEN > 0 then + if ItemIEN <> OldRec.ToService then + begin + ToService := ItemIEN; + ToServiceName := Text; + end + else + begin + ToService := 0; + ToServiceName := ''; + end; + + with cboCategory do if Length(ItemID) > 0 then + if ItemID <> OldRec.InpOutP then + InpOutP := ItemID + else + InpOutP := ''; + + with cboUrgency do if ItemIEN > 0 then + if StrToIntDef(Piece(Items[ItemIndex], U, 3), 0) <> OldRec.Urgency then + begin + Urgency := StrToIntDef(Piece(Items[ItemIndex], U, 3), 0); + UrgencyName := Text; + end + else + begin + Urgency := 0; + UrgencyName := ''; + end; + + + with cboPlace do if Length(ItemID) > 0 then + if ItemID <> OldRec.Place then + begin + Place := ItemID; + PlaceName := Text; + end + else + begin + Place := ''; + PlaceName := ''; + end; + + with txtAttn do + if ItemIEN > 0 then + begin + if ItemIEN <> OldRec.Attention then + begin + Attention := ItemIEN; + AttnName := Text; + end + else + begin + Attention := 0; + AttnName := ''; + end; + end + else // blank + begin + if OldRec.Attention > 0 then + begin + Attention := -1; + AttnName := ''; + end + else + begin + Attention := 0; + AttnName := ''; + end; + end; + + with txtProvDiag do + if Length(Text) > 0 then + begin + if Text <> OldRec.ProvDiagnosis then + ProvDiagnosis := Text + else + ProvDiagnosis := ''; + + if ProvDx.Code <> OldRec.ProvDxCode then + ProvDxCode := ProvDx.Code + else + ProvDxCode := ''; + + if OldRec.ProvDxCodeInactive then + ProvDx.CodeInactive := (ProvDx.Code = OldRec.ProvDxCode); + end + else //blank + begin + ProvDx.Code := ''; + ProvDx.CodeInactive := False; + if OldRec.ProvDiagnosis <> '' then + ProvDiagnosis := '@' + else + ProvDiagnosis := ''; + end; + + with memReason do if Lines.Count > 0 then + if Lines.Equals(OldRec.RequestReason) then + RequestReason.Clear + else + RequestReason.Assign(Lines); + + with memComment do + if GetTextLen > 0 then + NewComments.Assign(Lines) + else + NewComments.Clear; + end; +end; + +procedure TfrmEditProc.FormClose(Sender: TObject; var Action: TCloseAction); +const + TX_ACCEPT = 'Resubmit this request?' + CRLF + CRLF; + TX_ACCEPT_CAP = 'Unsaved Changes'; +begin + if FChanged then + if InfoBox(TX_ACCEPT, TX_ACCEPT_CAP, MB_YESNO) = ID_YES then + if not ValidSave then Action := caNone; +end; + +function TfrmEditProc.ValidSave: Boolean; +const + TX_NO_SAVE = 'This request cannot be saved for the following reason(s):' + CRLF + CRLF; + TX_NO_SAVE_CAP = 'Unable to Save Request'; + TX_SAVE_ERR = 'Unexpected error - it was not possible to save this request.'; +var + ErrMsg: string; +begin + Result := True; + Validate(ErrMsg); + if Length(ErrMsg) > 0 then + begin + InfoBox(TX_NO_SAVE + ErrMsg, TX_NO_SAVE_CAP, MB_OK); + Result := False; + end; + if (ProvDx.Reqd = 'R') and (Length(txtProvDiag.Text) = 0) and (ProvDx.PromptMode = 'L') then + cmdLexSearchClick(Self); +end; + +procedure TfrmEditProc.cboProcSelect(Sender: TObject); +begin + inherited; + with cboProc do + begin + if ItemIndex = -1 then Exit; + if ItemID <> FLastProcID then FLastProcID := ItemID else Exit; + with cboService do + begin + Clear; + Items.Assign(GetProcedureServices(cboProc.ItemIEN)); + if Items.Count > 0 then + begin + ItemIndex := 0 ; + NewRec.ToService := ItemIEN; + NewRec.ToServiceName := Text; + end + else + begin + InfoBox('There are no services defined for this procedure.', + 'Information', MB_OK or MB_ICONINFORMATION); + cboProc.ItemIndex := -1; + InitDialog; + Exit ; + end; + end; + end; + OrderMessage(ConsultMessage(cboProc.ItemIEN)); + ControlChange(Self) ; +end; + +procedure TfrmEditProc.memReasonExit(Sender: TObject); +var + AStringList: TStringList; +begin + inherited; + AStringList := TStringList.Create; + try + AStringList.Assign(memReason.Lines); + LimitStringLength(AStringList, 74); + memReason.Lines.Assign(AstringList); + ControlChange(Self); + finally + AStringList.Free; + end; +end; + +procedure TfrmEditProc.cmdAcceptClick(Sender: TObject); +begin + if ValidSave then + begin + FChanged := (ResubmitConsult(NewRec) = '0'); + Close; + end; +end; + +procedure TfrmEditProc.cmdQuitClick(Sender: TObject); +begin + inherited; + FChanged := False; + Close; +end; + +procedure TfrmEditProc.OrderMessage(const AMessage: string); +begin + memMessage.Lines.SetText(PChar(AMessage)); + if ContainsVisibleChar(AMessage) then + begin + pnlMessage.Visible := True; + pnlMessage.BringToFront; + uMessageVisible := GetTickCount; + end + else pnlMessage.Visible := False; +end; + +procedure TfrmEditProc.btnCmtCancelClick(Sender: TObject); +begin + ReportBox(OldRec.DenyComments, 'Cancellation Comments', False); +end; + +procedure TfrmEditProc.btnCmtOtherClick(Sender: TObject); +begin + ReportBox(OldRec.OtherComments, 'Added Comments', False); +end; + + + +procedure TfrmEditProc.cmdLexSearchClick(Sender: TObject); +var + Match: string; + i: integer; +begin + inherited; + LexiconLookup(Match, LX_ICD); + if Match = '' then Exit; + ProvDx.Code := Piece(Match, U, 1); + ProvDx.Text := Piece(Match, U, 2); + i := Pos(' (ICD', ProvDx.Text); + if i = 0 then i := Length(ProvDx.Text) + 1; + if ProvDx.Text[i-1] = '*' then i := i - 2; + ProvDx.Text := Copy(ProvDx.Text, 1, i - 1); + txtProvDiag.Text := ProvDx.Text + ' (' + ProvDx.Code + ')'; + ProvDx.CodeInactive := False; +end; + +procedure TfrmEditProc.SetProvDiagPromptingMode; +const + TX_USE_LEXICON = 'You must use the "Lexicon" button to select a provisional diagnosis for this service.'; + TX_PROVDX_OPT = 'Provisional Diagnosis'; + TX_PROVDX_REQD = 'Provisional Dx (REQUIRED)'; +begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + txtProvDiag.Font.Color := clBtnText; + lblProvDiag.Enabled := False; + txtProvDiag.Hint := ''; + if cboProc.ItemIEN = 0 then Exit; + //GetProvDxMode(ProvDx, cboService.ItemID); + GetProvDxMode(ProvDx, Piece(cboProc.Items[cboProc.ItemIndex], U, 4)); + // Returns: string A^B + // A = O (optional), R (required) or S (suppress) + // B = F (free-text) or L (lexicon) + with ProvDx do if (Reqd = '') or (PromptMode = '') then Exit; + if ProvDx.Reqd = 'R' then + lblProvDiag.Caption := TX_PROVDX_REQD + else + lblProvDiag.Caption := TX_PROVDX_OPT; + if ProvDx.Reqd = 'S' then + begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + txtProvDiag.Font.Color := clBtnText; + lblProvDiag.Enabled := False; + end + else + case ProvDx.PromptMode[1] of + 'F': begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := True; + txtProvDiag.ReadOnly := False; + txtProvDiag.Color := clWindow; + txtProvDiag.Font.Color := clWindowText; + lblProvDiag.Enabled := True; + end; + 'L': begin + cmdLexSearch.Enabled := True; + txtProvDiag.Enabled := True; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clInfoBk; + txtProvDiag.Font.Color := clInfoText; + lblProvDiag.Enabled := True; + txtProvDiag.Hint := TX_USE_LEXICON; + end; + end; +end; + +procedure TfrmEditProc.mnuPopProvDxDeleteClick(Sender: TObject); +begin + inherited; + ProvDx.Text := ''; + ProvDx.Code := ''; + ProvDx.CodeInactive := False; + txtProvDiag.Text := ''; + ControlChange(Self); +end; + +procedure TfrmEditProc.popReasonPopup(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popReason) is TCustomEdit + then FEditCtrl := TCustomEdit(PopupComponent(Sender, popReason)) + else FEditCtrl := nil; + if FEditCtrl <> nil then + begin + popReasonCut.Enabled := FEditCtrl.SelLength > 0; + popReasonCopy.Enabled := popReasonCut.Enabled; + popReasonPaste.Enabled := (not TORExposedCustomEdit(FEditCtrl).ReadOnly) and + Clipboard.HasFormat(CF_TEXT); + end else + begin + popReasonCut.Enabled := False; + popReasonCopy.Enabled := False; + popReasonPaste.Enabled := False; + end; + popReasonReformat.Enabled := True; +end; + +procedure TfrmEditProc.popReasonCutClick(Sender: TObject); +begin + inherited; + FEditCtrl.CutToClipboard; +end; + +procedure TfrmEditProc.popReasonCopyClick(Sender: TObject); +begin + inherited; + FEditCtrl.CopyToClipboard; +end; + +procedure TfrmEditProc.popReasonPasteClick(Sender: TObject); +begin + inherited; + FEditCtrl.SelText := Clipboard.AsText; +end; + +procedure TfrmEditProc.popReasonReformatClick(Sender: TObject); +begin + if (Screen.ActiveControl <> memReason) and + (Screen.ActiveControl <> memComment)then Exit; + ReformatMemoParagraph(TCustomMemo(FEditCtrl)); +end; + + +procedure TfrmEditProc.memCommentKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if FNavigatingTab then + begin + if ssShift in Shift then + FindNextControl(Sender as TWinControl, False, True, False).SetFocus //previous control + else if ssCtrl in Shift then + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +procedure TfrmEditProc.memReasonKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + //The navigating tab controls were inadvertantently adding tab characters + //This should fix it + FNavigatingTab := (Key = VK_TAB) and ([ssShift,ssCtrl] * Shift <> []); + if FNavigatingTab then + Key := 0; +end; + +procedure TfrmEditProc.memReasonKeyPress(Sender: TObject; var Key: Char); +begin + if FNavigatingTab then + Key := #0; //Disable shift-tab processing +end; + +end. + + diff --git a/CPRS-Chart/Consults/fODConsult.dfm b/CPRS-Chart/Consults/fODConsult.dfm new file mode 100644 index 0000000..1b4eeef --- /dev/null +++ b/CPRS-Chart/Consults/fODConsult.dfm @@ -0,0 +1,458 @@ +inherited frmODCslt: TfrmODCslt + Tag = 110 + Left = 430 + Top = 203 + Width = 606 + Height = 376 + HorzScrollBar.Range = 590 + VertScrollBar.Range = 340 + Caption = 'Order a Consult' + Constraints.MinHeight = 376 + Constraints.MinWidth = 606 + Font.Charset = ANSI_CHARSET + PixelsPerInch = 96 + TextHeight = 13 + object lblService: TLabel [0] + Left = 1 + Top = 2 + Width = 134 + Height = 13 + Caption = 'Consult to Service/Specialty' + end + object pnlReason: TPanel [1] + Left = 3 + Top = 154 + Width = 585 + Height = 135 + Anchors = [akLeft, akTop, akRight] + BevelOuter = bvNone + TabOrder = 11 + object lblReason: TLabel + Left = 0 + Top = 0 + Width = 585 + Height = 13 + Align = alTop + Caption = 'Reason for Request' + end + object memReason: TRichEdit + Left = 0 + Top = 13 + Width = 585 + Height = 122 + Align = alClient + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + Constraints.MinHeight = 40 + ParentFont = False + PopupMenu = popReason + ScrollBars = ssBoth + TabOrder = 0 + WantTabs = True + OnChange = ControlChange + OnExit = memReasonExit + OnKeyDown = memReasonKeyDown + OnKeyPress = memReasonKeyPress + OnKeyUp = memReasonKeyUp + end + end + object lblUrgency: TStaticText [2] + Left = 309 + Top = 2 + Width = 44 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'Urgency' + TabOrder = 17 + end + object lblPlace: TStaticText [3] + Left = 454 + Top = 43 + Width = 104 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'Place of Consultation' + TabOrder = 18 + end + object lblAttn: TStaticText [4] + Left = 454 + Top = 2 + Width = 46 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'Attention' + TabOrder = 19 + end + object lblProvDiag: TStaticText [5] + Left = 309 + Top = 81 + Width = 104 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'Provisional Diagnosis' + TabOrder = 20 + end + inherited memOrder: TCaptionMemo + Left = 3 + Top = 305 + Width = 417 + Height = 41 + Lines.Strings = ( + 'The order text...' + '----------------------------------------------' + '--------------------------------' + 'An order message may be displayed here.') + TabOrder = 1 + end + inherited cmdAccept: TButton + Left = 427 + Top = 315 + TabOrder = 12 + end + inherited cmdQuit: TButton + Left = 531 + Top = 315 + Width = 61 + TabOrder = 13 + end + inherited pnlMessage: TPanel + Left = 13 + Top = 295 + Width = 377 + Anchors = [akLeft, akRight, akBottom] + TabOrder = 14 + inherited memMessage: TRichEdit + Width = 292 + end + end + object cboService: TORComboBox + Left = 0 + Top = 16 + Width = 274 + Height = 113 + Anchors = [akLeft, akTop, akRight] + Style = orcsSimple + AutoSelect = True + Caption = 'Consult to Service/Specialty' + Color = clWindow + DropDownCount = 12 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnChange = ControlChange + OnClick = cboServiceSelect + OnExit = cboServiceExit + OnKeyDown = cboServiceKeyDown + OnKeyUp = cboServiceKeyUp + CharsNeedMatch = 1 + end + object cboUrgency: TORComboBox + Left = 309 + Top = 16 + Width = 133 + Height = 21 + Anchors = [akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Urgency' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + TabStop = True + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboPlace: TORComboBox + Left = 454 + Top = 56 + Width = 136 + Height = 21 + Anchors = [akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Place of Consultation' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 7 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object txtProvDiag: TCaptionEdit + Left = 309 + Top = 94 + Width = 231 + Height = 21 + Anchors = [akTop, akRight] + MaxLength = 180 + ParentShowHint = False + PopupMenu = mnuPopProvDx + ShowHint = True + TabOrder = 9 + OnChange = txtProvDiagChange + Caption = 'Provisional Diagnosis' + end + object txtAttn: TORComboBox + Left = 454 + Top = 16 + Width = 136 + Height = 21 + Anchors = [akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Attention' + 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 = 5 + OnChange = ControlChange + OnNeedData = txtAttnNeedData + CharsNeedMatch = 1 + end + object treService: TORTreeView + Left = 0 + Top = 38 + Width = 298 + Height = 220 + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -9 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HideSelection = False + Indent = 19 + ParentFont = False + ReadOnly = True + TabOrder = 3 + Visible = False + OnChange = treServiceChange + OnCollapsing = treServiceCollapsing + OnExit = treServiceExit + OnKeyDown = treServiceKeyDown + OnKeyUp = treServiceKeyUp + OnMouseDown = treServiceMouseDown + Caption = 'object lblService: TLabel' + NodePiece = 0 + end + object cboCategory: TORComboBox + Left = 225 + Top = -5 + Width = 5 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 15 + Visible = False + CharsNeedMatch = 1 + end + object pnlServiceTreeButton: TKeyClickPanel + Left = 274 + Top = 14 + Width = 26 + Height = 26 + Hint = 'View services/specialties hierarchically' + Anchors = [akTop, akRight] + BevelOuter = bvNone + BevelWidth = 2 + Caption = 'View services/specialties hierarchically' + Font.Charset = ANSI_CHARSET + Font.Color = clBtnFace + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + TabStop = True + OnClick = btnServiceTreeClick + OnEnter = pnlServiceTreeButtonEnter + OnExit = pnlServiceTreeButtonExit + object btnServiceTree: TSpeedButton + Left = 2 + Top = 2 + Width = 22 + Height = 22 + Glyph.Data = { + 26050000424D26050000000000003604000028000000100000000F0000000100 + 080000000000F000000000000000000000000001000000010000000000000000 + 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA + A6000020400000206000002080000020A0000020C0000020E000004000000040 + 20000040400000406000004080000040A0000040C0000040E000006000000060 + 20000060400000606000006080000060A0000060C0000060E000008000000080 + 20000080400000806000008080000080A0000080C0000080E00000A0000000A0 + 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0 + 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0 + 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000 + 20004000400040006000400080004000A0004000C0004000E000402000004020 + 20004020400040206000402080004020A0004020C0004020E000404000004040 + 20004040400040406000404080004040A0004040C0004040E000406000004060 + 20004060400040606000406080004060A0004060C0004060E000408000004080 + 20004080400040806000408080004080A0004080C0004080E00040A0000040A0 + 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0 + 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0 + 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000 + 20008000400080006000800080008000A0008000C0008000E000802000008020 + 20008020400080206000802080008020A0008020C0008020E000804000008040 + 20008040400080406000804080008040A0008040C0008040E000806000008060 + 20008060400080606000806080008060A0008060C0008060E000808000008080 + 20008080400080806000808080008080A0008080C0008080E00080A0000080A0 + 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0 + 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0 + 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000 + 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020 + 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040 + 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060 + 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080 + 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0 + 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0 + 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0700 + 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF040404040404FFFFFFA4FFFF0700 + 07FFFFFFFFFFFFFFFFFFFFA4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA4FFFFFFFF + FFFF070007FFFFFFFFFFFFA4FFFFFFA4A407000400FF04040404FFA4FFFFFFA4 + FFFF070007FFFFFFFFFFFFA4FFFFFF07FFFFFFFFFFFFFFFFFFFFFFA4FFFF0700 + 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF0404040404FFFFFFFFA4FFFF0700 + 07FFFFFFFFFFFFFFFFFFFF07FFFFFFFFFFFFFFFFFFFFFFFFFFFF070007FFFFFF + FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF + FFFFFFFFFFFFFFFFFFFF} + Margin = 0 + OnClick = btnServiceTreeClick + end + end + object cmdLexSearch: TButton + Left = 543 + Top = 94 + Width = 49 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Lexicon' + TabOrder = 10 + OnClick = cmdLexSearchClick + end + object gbInptOpt: TGroupBox + Left = 309 + Top = 35 + Width = 140 + Height = 45 + Anchors = [akTop, akRight] + Caption = 'Patient will be seen as an:' + TabOrder = 6 + object radInpatient: TRadioButton + Left = 3 + Top = 20 + Width = 61 + Height = 13 + Caption = '&Inpatient' + TabOrder = 0 + OnClick = radInpatientClick + end + object radOutpatient: TRadioButton + Left = 67 + Top = 20 + Width = 70 + Height = 13 + Caption = '&Outpatient' + TabOrder = 1 + OnClick = radOutpatientClick + end + end + object btnDiagnosis: TButton + Left = 543 + Top = 95 + Width = 49 + Height = 20 + Anchors = [akTop, akRight] + Caption = 'Diagnosis' + TabOrder = 8 + OnClick = btnDiagnosisClick + end + object mnuPopProvDx: TPopupMenu + Left = 353 + Top = 77 + object mnuPopProvDxDelete: TMenuItem + Caption = 'Delete diagnosis' + OnClick = mnuPopProvDxDeleteClick + end + end + object popReason: TPopupMenu + OnPopup = popReasonPopup + Left = 411 + Top = 188 + object popReasonCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = popReasonCutClick + end + object popReasonCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = popReasonCopyClick + end + object popReasonPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = popReasonPasteClick + end + object popReasonPaste2: TMenuItem + Caption = 'Paste2' + ShortCut = 8237 + Visible = False + OnClick = popReasonPasteClick + end + object popReasonReformat: TMenuItem + Caption = 'Reformat Paragraph' + ShortCut = 16466 + OnClick = popReasonReformatClick + end + end +end diff --git a/CPRS-Chart/Consults/fODConsult.pas b/CPRS-Chart/Consults/fODConsult.pas new file mode 100644 index 0000000..6da260c --- /dev/null +++ b/CPRS-Chart/Consults/fODConsult.pas @@ -0,0 +1,1410 @@ +unit fODConsult; + +{$O-} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, StdCtrls, ORCtrls, ExtCtrls, ComCtrls, ORfn, uConst, Buttons, + Menus, UBAGlobals, rOrders, fBALocalDiagnoses, UBAConst, UBACore, ORNet ; + +type + TfrmODCslt = class(TfrmODBase) + cboService: TORComboBox; + cboUrgency: TORComboBox; + cboPlace: TORComboBox; + txtProvDiag: TCaptionEdit; + txtAttn: TORComboBox; + lblService: TLabel; + lblUrgency: TStaticText; + lblPlace: TStaticText; + lblAttn: TStaticText; + lblProvDiag: TStaticText; + treService: TORTreeView; + cboCategory: TORComboBox; + pnlServiceTreeButton: TKeyClickPanel; + btnServiceTree: TSpeedButton; + mnuPopProvDx: TPopupMenu; + mnuPopProvDxDelete: TMenuItem; + cmdLexSearch: TButton; + popReason: TPopupMenu; + popReasonCut: TMenuItem; + popReasonCopy: TMenuItem; + popReasonPaste: TMenuItem; + popReasonPaste2: TMenuItem; + popReasonReformat: TMenuItem; + gbInptOpt: TGroupBox; + radInpatient: TRadioButton; + radOutpatient: TRadioButton; + pnlReason: TPanel; + lblReason: TLabel; + memReason: TRichEdit; + btnDiagnosis: TButton; + procedure FormCreate(Sender: TObject); + procedure txtAttnNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure radInpatientClick(Sender: TObject); + procedure radOutpatientClick(Sender: TObject); + procedure treServiceChange(Sender: TObject; Node: TTreeNode); + procedure ControlChange(Sender: TObject); + procedure treServiceExit(Sender: TObject); + procedure cmdAcceptClick(Sender: TObject); + procedure memReasonExit(Sender: TObject); + procedure cboServiceSelect(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure btnServiceTreeClick(Sender: TObject); + procedure treServiceCollapsing(Sender: TObject; Node: TTreeNode; + var AllowCollapse: Boolean); + procedure treServiceMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure cmdLexSearchClick(Sender: TObject); + procedure mnuPopProvDxDeleteClick(Sender: TObject); + procedure txtProvDiagChange(Sender: TObject); + procedure cboServiceExit(Sender: TObject); + procedure popReasonCutClick(Sender: TObject); + procedure popReasonCopyClick(Sender: TObject); + procedure popReasonPasteClick(Sender: TObject); + procedure popReasonPopup(Sender: TObject); + procedure popReasonReformatClick(Sender: TObject); + procedure pnlServiceTreeButtonEnter(Sender: TObject); + procedure pnlServiceTreeButtonExit(Sender: TObject); + procedure treServiceKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure treServiceKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memReasonKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memReasonKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memReasonKeyPress(Sender: TObject; var Key: Char); + procedure cboServiceKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure cboServiceKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure btnDiagnosisClick(Sender: TObject); + procedure cmdQuitClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + + private + FcboServiceKeyDownStopClick : boolean; + FKeyBoarding: boolean; + FLastServiceID: string; + FEditCtrl: TCustomEdit; + FNavigatingTab: boolean; + procedure BuildQuickTree(QuickList: TStrings; const Parent: string; Node: TTreeNode); + procedure ReadServerVariables; + procedure SetProvDiagPromptingMode; + procedure SetupReasonForRequest(OrderAction: integer); + procedure GetProvDxandValidateCode(AResponses: TResponses); + function ShowPrerequisites: boolean; + procedure DoSetFontSize(FontSize: integer); + procedure SetUpQuickOrderDX; + procedure SaveConsultDxForNurse(pDiagnosis: string); // save the dx entered by nurese if Master BA switch is ON + procedure SetUpCopyConsultDiagnoses(pOrderID:string); + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + function DefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings; + + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + procedure SetFontSize(FontSize: integer); override; + end; + +var + LastNode: integer ; + displayDXCode: string; + consultQuickOrder: boolean; + + +implementation + +{$R *.DFM} + +uses + rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, fPreReq, + ORClasses, clipbrd, uTemplates, fFrame, uODBase; + +var + SvcList, QuickList, Defaults: TStrings ; + ProvDx: TProvisionalDiagnosis; + GMRCREAF: string; + BADxUpdated: boolean; + quickCode: string; + + + + +const + TX_NOTTHISSVC_TEXT = 'Consults cannot be ordered from this service' ; + TX_NO_SVC = 'A service must be specified.' ; + TX_NO_REASON = 'A reason for this consult must be entered.' ; + TX_SVC_ERROR = 'This service has not been defined in your Orderable Items file.' + + #13#10'Contact IRM for assistance.' ; + TX_NO_URGENCY = 'An urgency must be specified.'; + TX_NO_PLACE = 'A place of consultation must be specified'; + TX_NO_DIAG = 'A provisional diagnosis must be entered for consults to this service.'; + TX_SELECT_DIAG = 'You must select a diagnosis for consults to this service.'; + TX_GROUPER = 'This is not an orderable service. Please select a subspecialty'; + TC_INACTIVE_CODE = 'Inactive ICD Code'; + TX_INACTIVE_CODE1 = 'The provisional diagnosis code is not active as of today''s date.' + #13#10; + TX_INACTIVE_CODE_REQD = 'Another code must be selected before the order can be saved.'; + TX_INACTIVE_CODE_OPTIONAL = 'If another code is not selected, no code will be saved.'; + +procedure TfrmODCslt.FormCreate(Sender: TObject); +begin + frmFrame.pnlVisit.Enabled := false; + AutoSizeDisabled := True; + inherited; + if BILLING_AWARE then + begin + btnDiagnosis.Visible := True; + cmdLexSearch.Visible := False; + end + else + begin + btnDiagnosis.Visible := False; + cmdLexSearch.Visible := True; + end; + Defaults := TStringList.Create ; + SvcList := TStringList.Create ; + QuickList := TStringList.Create ; + AllowQuickOrder := True; + LastNode := 0; + FLastServiceID := '' ; + GMRCREAF := ''; + FillChar(ProvDx, SizeOf(ProvDx), 0); + FillerID := 'GMRC'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Dialog := 'GMRCOR CONSULT'; // loads formatting info + StatusText('Loading Default Values'); + Defaults.Assign(ODForConsults); // ODForConsults returns TStrings with defaults + CtrlInits.LoadDefaults(Defaults); + txtAttn.InitLongList('') ; + PreserveControl(txtAttn); + InitDialog; + //Calling virtual SetFontSize in constructor is a bad idea! + DoSetFontSize( MainFontSize); + FcboServiceKeyDownStopClick := false; + consultQuickOrder := false; + + +end; + +procedure TfrmODCslt.InitDialog; +begin + inherited; + Changing := True; + FLastServiceID := ''; + QuickList.Clear; + with CtrlInits do + begin + ExtractItems(QuickList, Defaults, 'ShortList'); + if OrderForInpatient then //INPATIENT CONSULT + begin + radInpatient.Checked := True; + cboCategory.Items.Clear; + cboCategory.Items.Add('I^Inpatient'); + cboCategory.SelectById('I'); + SetControl(cboPlace, 'Inpt Place'); + SetControl(cboUrgency, 'Inpt Cslt Urgencies'); //S.GMRCT + end + else + begin + radOutpatient.Checked := True; //OUTPATIENT CONSULT + cboCategory.Items.Clear; + cboCategory.Items.Add('O^Outpatient'); + cboCategory.SelectById('O'); + SetControl(cboPlace, 'Outpt Place'); + SetControl(cboUrgency, 'Outpt Urgencies'); //S.GMRCO + end ; + end ; + StatusText('Initializing Long List'); + memOrder.Clear ; + memReason.Clear; + cboService.Enabled := True; + cboService.Font.Color := clWindowText; + cboService.Height := 25 + (7 * cboService.ItemHeight); + btnServiceTree.Enabled := True; + pnlServiceTreeButton.Enabled := True; + ActiveControl := cboService; + SetProvDiagPromptingMode; + Changing := False; + StatusText(''); +end; + +procedure TfrmODCslt.SetupDialog(OrderAction: Integer; const ID: string); +const + TX_INACTIVE_SVC = 'This consult service is currently inactive and not receiving requests.' + CRLF + + 'Please contact your Clinical Coordinator/IRM staff to fix this order.'; + TX_INACTIVE_SVC_CAP = 'Inactive Service'; +var + i:integer; + AList: TStringList; + tmpResp: TResponse; + SvcIEN: string; +begin + inherited; + ReadServerVariables; + AList := TStringList.Create; + try + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do + begin + Changing := True; + tmpResp := TResponse(FindResponseByName('ORDERABLE',1)); + SvcIEN := GetServiceIEN(tmpResp.IValue); + if SvcIEN = '-1' then + begin + InfoBox(TX_INACTIVE_SVC, TX_INACTIVE_SVC_CAP, MB_OK); + AbortOrder := True; + Close; + Exit; + end; + cboService.Items.Add(SvcIEN + U + tmpResp.EValue + '^^^^' + tmpResp.IValue); + cboService.SelectByID(SvcIEN); + tmpResp := TResponse(FindResponseByName('CLASS',1)); + cboCategory.SelectByID(tmpResp.IValue); + if tmpResp.IValue = 'I' then + radInpatient.Checked := True + else + radOutpatient.Checked := True ; + SetControl(cboUrgency, 'URGENCY', 1); + SetControl(cboPlace, 'PLACE', 1); + SetControl(txtAttn, 'PROVIDER', 1); + cboService.Enabled := False; + cboService.Font.Color := clGrayText; + btnServiceTree.Enabled := False; + pnlServiceTreeButton.Enabled := False; + if (OrderAction in [ORDER_COPY, ORDER_QUICK]) and (not ShowPrerequisites) then + begin + Close; + Exit; + end; + SetProvDiagPromptingMode; + GetProvDxandValidateCode(Responses); + SetControl(memReason, 'COMMENT', 1); + SetupReasonForRequest(OrderAction); + Changing := False; + ControlChange(Self); + end + else + begin + if QuickList.Count > 0 then BuildQuickTree(QuickList, '0', nil) ; + SvcList.Assign(LoadServiceListWithSynonyms(CN_SVC_LIST_ORD)); {RV} + AList.Assign(SvcList); + SortByPiece(AList, U, 2); + BuildServiceTree(treService, SvcList, '0', nil) ; + with treService do + begin + for i:=0 to Items.Count-1 do + if Items[i].Level > 0 then Items[i].Expanded := False else Items[i].Expanded := True; + TopItem := Items[LastNode] ; + Changing := True; + Selected := Items[LastNode] ; + Changing := False; + SendMessage(Handle, WM_HSCROLL, SB_THUMBTRACK, 0); + end ; + if QuickList.Count > 0 then with cboService do + begin + Items.Assign(QuickList); + Items.Add(LLS_LINE); + Items.Add(LLS_SPACE); + end; + Changing := True; + for i := 0 to AList.Count - 1 do + if (cboService.Items.IndexOf(Trim(Piece(AList.Strings[i], U, 2))) = -1) and {RV} + //if (cboService.SelectByID(Piece(AList.Strings[i], U, 1)) = -1) and + (Piece(AList.Strings[i], U, 5) <> '1') then + cboService.Items.Add(AList.Strings[i]); + cboService.ItemIndex := 0; + Changing := False; + if treService.Selected <> nil then + begin + if (TORTreeNode(treService.Selected).StringData <> '') and + (Piece(TORTreeNode(treService.Selected).StringData, U, 5) <> '1') then + cboService.ItemIndex := cboService.Items.IndexOf(Trim(Piece(TORTreeNode(treService.Selected).StringData, U, 2))) + //cboService.SelectByID(Piece(string(treService.Selected.Data), U, 1)) + else + cboService.ItemIndex := -1; + end + else + cboService.ItemIndex := -1; + if cboService.ItemIEN > 0 then + begin + if not ShowPrerequisites then + begin + Close; + Exit; + end; + memReason.Lines.Assign(DefaultReasonForRequest(cboService.ItemID, True)); + end; + PreserveControl(treService); + PreserveControl(cboService); + end; + finally + AList.Free; + end; +end; + +procedure TfrmODCslt.Validate(var AnErrMsg: string); + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + inherited; + if (not ContainsVisibleChar(memReason.Text)) then SetError(TX_NO_REASON); + if cboUrgency.ItemIEN = 0 then SetError(TX_NO_URGENCY); + if cboPlace.ItemID = '' then SetError(TX_NO_PLACE); + if cboService.ItemIEN = 0 then + SetError(TX_NO_SVC) + else + begin + if Piece(cboService.Items[cboService.ItemIndex],U,5) = '1' then SetError(TX_NOTTHISSVC_TEXT); + if (Piece(cboService.Items[cboService.ItemIndex],U,5) <> '1') + and (Piece(cboService.Items[cboService.ItemIndex],U,6) = '') + then SetError(TX_SVC_ERROR) ; + end; + if (ProvDx.Reqd = 'R') and (not ContainsVisibleChar(txtProvDiag.Text)) then + begin + if ProvDx.PromptMode = 'F' then + SetError(TX_NO_DIAG) + else + SetError(TX_SELECT_DIAG); + end; +end; + +procedure TfrmODCslt.txtAttnNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + txtAttn.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmODCslt.radInpatientClick(Sender: TObject); +begin + inherited; + with CtrlInits do + begin + SetControl(cboPlace, 'Inpt Place'); + SetControl(cboUrgency, 'Inpt Cslt Urgencies'); + cboCategory.Items.Clear; + cboCategory.Items.Add('I^Inpatient') ; + cboCategory.SelectById('I'); + end ; + ControlChange(Self); +end; + +procedure TfrmODCslt.radOutpatientClick(Sender: TObject); +begin + inherited; + with CtrlInits do + begin + SetControl(cboPlace, 'Outpt Place'); + SetControl(cboUrgency, 'Outpt Urgencies'); + cboCategory.Items.Clear; + cboCategory.Items.Add('O^Outpatient'); + cboCategory.SelectById('O'); + end ; + ControlChange(Self); +end; + +procedure TfrmODCslt.BuildQuickTree(QuickList: TStrings; const Parent: string; Node: TTreeNode); +var + i: Integer; + QuickInfo, Name: string ; + ANode: TTreeNode; +begin + with QuickList do + begin + Node := treService.Items.AddChildObject(Node, 'Quick Orders', nil); + for i := 0 to Count - 1 do + begin + Name := Piece(Strings[i], U, 2); + QuickInfo := Strings[i]; + ANode := treService.Items.AddChildObject(Node, Name, Pointer(QuickInfo)); + TORTreeNode(ANode).StringData := QuickInfo; + end; + end; +end; + +procedure TfrmODCslt.treServiceChange(Sender: TObject; Node: TTreeNode); +var + i: integer; + tmpSvc: string; +begin + inherited; + pnlMessage.Visible := False; + if Changing or (treService.Selected = nil) + or FKeyBoarding or FcboServiceKeyDownStopClick then exit; + Changing := True; + with cboService do + begin + if treService.Selected <> nil then + begin + if (TORTreeNode(treService.Selected).StringData <> '') and + (Piece(TORTreeNode(treService.Selected).StringData, U, 5) <> '1') then + cboService.ItemIndex := cboService.Items.IndexOf(Trim(Piece(TORTreeNode(treService.Selected).StringData, U, 2))) + //cboService.SelectByID(Piece(string(treService.Selected.Data), U, 1)) + else + begin + pnlMessage.TabOrder := treService.TabOrder + 1; + OrderMessage(TX_GROUPER); + cboService.ItemIndex := -1; + Changing := False; + Exit; + end; + end + else + ItemIndex := -1; +(* if (treService.Selected.Data <> nil) then + SelectByID(Piece(string(treService.Selected.Data), U, 1)) + else + ItemIndex := -1;*) + Changing := False; + if ItemIndex < 0 then exit; + if Piece(Items[ItemIndex],U,5) = '1' then + begin + Responses.Update('ORDERABLE', 1, '', ''); + memOrder.Clear; + cboService.ItemIndex := -1; + FLastServiceID := ''; + Changing := True; + treService.Selected := nil; + Changing := False; + pnlMessage.TabOrder := treService.TabOrder + 1; + OrderMessage(TX_GROUPER); + Exit; + end; + treService.Visible := False; + memReason.Clear; + if ItemID <> FLastServiceID then FLastServiceID := ItemID else Exit; + Changing := True; + if Sender <> Self then + Responses.Clear; // Sender=Self when called from SetupDialog + Changing := False; + if CharAt(ItemID, 1) = 'Q' then + begin + Changing := True; + consultQuickOrder := True; + Responses.QuickOrder := ExtractInteger(ItemID); + tmpSvc := TResponse(Responses.FindResponseByName('ORDERABLE',1)).IValue; + with treService do for i := 0 to Items.Count-1 do + begin + if Piece(TORTreeNode(Items[i]).StringData, U, 6) = tmpSvc then + begin + Selected := Items[i]; + break; + end; + end; + if treService.Selected <> nil then + begin + if (TORTreeNode(treService.Selected).StringData <> '') and + (Piece(TORTreeNode(treService.Selected).StringData, U, 5) <> '1') then + cboService.ItemIndex := cboService.Items.IndexOf(Trim(Piece(TORTreeNode(treService.Selected).StringData, U, 2))) + //cboService.SelectByID(Piece(string(treService.Selected.Data), U, 1)) + else + cboService.ItemIndex := -1; + end + else + cboService.ItemIndex := -1; + FLastServiceID := ItemID; + cboService.Enabled := False; + cboService.Font.Color := clGrayText; + btnServiceTree.Enabled := False; + pnlServiceTreeButton.Enabled := False; + Changing := False; + end; + end; + with Responses do if QuickOrder > 0 then + begin + tmpSvc := TResponse(Responses.FindResponseByName('ORDERABLE',1)).IValue; + with treService do for i := 0 to Items.Count-1 do + begin + if Piece(TORTreeNode(Items[i]).StringData, U, 6) = tmpSvc then + begin + Selected := Items[i]; + break; + end; + end; + if treService.Selected <> nil then + begin + if (TORTreeNode(treService.Selected).StringData <> '') and + (Piece(TORTreeNode(treService.Selected).StringData, U, 5) <> '1') then + cboService.ItemIndex := cboService.Items.IndexOf(Trim(Piece(TORTreeNode(treService.Selected).StringData, U, 2))) + //cboService.SelectByID(Piece(string(treService.Selected.Data), U, 1)) + else + cboService.ItemIndex := -1; + end + else + cboService.ItemIndex := -1; + Changing := True; + if not ShowPrerequisites then + begin + Close; + Exit; + end; + SetControl(cboCategory, 'CLASS', 1); + if cboCategory.ItemID = 'I' then radInpatient.Checked := True + else radOutpatient.Checked := True ; + SetControl(cboUrgency, 'URGENCY', 1); + SetControl(cboPlace, 'PLACE', 1); + SetControl(txtAttn, 'PROVIDER', 1); + SetControl(memReason, 'COMMENT', 1); + if ((cboService.ItemIEN > 0) and (Length(memReason.Text) = 0)) then + memReason.Lines.Assign(DefaultReasonForRequest(cboService.ItemID, True)); + SetupReasonForRequest(ORDER_QUICK); + GetProvDxandValidateCode(Responses); + Changing := False; + end + else + begin + if cboService.ItemIEN > 0 then + begin + if not ShowPrerequisites then + begin + Close; + Exit; + end; + memReason.Lines.Assign(DefaultReasonForRequest(cboService.ItemID, True)); + SetupReasonForRequest(ORDER_NEW); + end; + end; + SetProvDiagPromptingMode; + tmpSvc := Piece(cboService.Items[cboService.ItemIndex], U, 6); + pnlMessage.TabOrder := treService.TabOrder + 1; + OrderMessage(ConsultMessage(StrToIntDef(tmpSvc, 0))); + //OrderMessage(ConsultMessage(cboService.ItemIEN)); + ControlChange(Self) ; +end; + +procedure TfrmODCslt.ControlChange(Sender: TObject); +var + x: string; + i: integer; +begin + inherited; + if Changing or (cboService.ItemIEN = 0) then Exit; + with cboService do + begin + if (ItemIEN > 0) and (Piece(Items[ItemIndex], U, 5) <> '1') then + begin + i := Pos('<', Text); + if i > 0 then + begin + x := Piece(Copy(Text, i + 1, 99), '>', 1); + x := UpperCase(Copy(x, 1, 1)) + Copy(x, 2, 99); + end + else + x := Text; + Responses.Update('ORDERABLE', 1, Piece(Items[ItemIndex], U, 6), x); + end + else Responses.Update('ORDERABLE', 1, '', ''); + end; + with memReason do if GetTextLen > 0 then Responses.Update('COMMENT', 1, TX_WPTYPE, Text); + with cboCategory do if ItemID <> '' then Responses.Update('CLASS', 1, ItemID, Text); + with cboUrgency do if ItemIEN > 0 then Responses.Update('URGENCY', 1, ItemID, Text); + with cboPlace do if ItemID <> '' then Responses.Update('PLACE', 1, ItemID, Text); + with txtAttn do if ItemIEN > 0 then Responses.Update('PROVIDER', 1, ItemID, Text); + //with txtProvDiag do if Length(Text) > 0 then Responses.Update('MISC', 1, Text, Text); + if Length(ProvDx.Text) > 0 then Responses.Update('MISC', 1, ProvDx.Text, ProvDx.Text) + else Responses.Update('MISC', 1, '', ''); + if Length(ProvDx.Code) > 0 then Responses.Update('CODE', 1, ProvDx.Code, ProvDx.Code) + else Responses.Update('CODE', 1, '', ''); + + memOrder.Text := Responses.OrderText; +end; + +procedure TfrmODCslt.treServiceExit(Sender: TObject); +begin + inherited; + with cboService do + begin + if ItemIEN > 0 then + begin + pnlMessage.TabOrder := treService.TabOrder + 1; + OrderMessage(ConsultMessage(StrToInt(Piece(Items[ItemIndex],U,6)))); + end; + end; +end; + +procedure TfrmODCslt.SetUpQuickOrderDX; +// this procedure is called if the user selects a quick code from the list +// and accepts the order without entering or selection the diagnoses button. +begin + quickCode := ProvDx.Code; + if UBACore.IsICD9CodeActive(quickCode,'ICD',0) then + begin + uBAGlobals.BAConsultDxList.Clear; + uBAGlobals.BAConsultDxList.Add(UBAConst.PRIMARY_DX + U + ProvDx.Text + ':' + quickCode); + end; + +end; + +procedure TfrmODCslt.cmdAcceptClick(Sender: TObject); +var + BADiagnosis: string; + begin + inherited; + if treService.Selected <> nil then + LastNode := treService.Selected.AbsoluteIndex; + + if BILLING_AWARE and CIDCOkToSave then + begin + if btnDiagnosis.Enabled then + if consultQuickOrder then SetUpQuickOrderDX; + if UBAGlobals.BAConsultDxList.Count > 0 then + begin + uBACore.CompleteConsultOrderRec(uBAGlobals.BAOrderID,UBAGlobals.BAConsultDxList); + uBAGlobals.BAConsultDxList.Clear; + end; + BADiagnosis := ProvDx.Text + '^' + ProvDx.Code; + end; + + if NOT BILLING_AWARE then + begin + // this will save a dx entered by a nurse to be reviewed by a provided. + // this is active if CIDC MASTER SWITCH is ON. + if rpcGetBAMasterSwStatus then // BA master sw is on. + if (uCore.User.OrderRole = OR_NURSE) then // user is a nurse + begin + if ProvDx.Text <> '' then // consult dx has been selected + begin + SaveConsultDxForNurse(ProvDx.Text + ProvDx.Code); // save selected dx, will be displayed to Provider + end; + end; + end; +end; + +procedure TfrmODCslt.memReasonExit(Sender: TObject); +var + AStringList: TStringList; +begin + inherited; + AStringList := TStringList.Create; + try + AStringList.Assign(memReason.Lines); + LimitStringLength(AStringList, 74); + memReason.Lines.Assign(AstringList); + ControlChange(Self); + finally + AStringList.Free; + end; +end; + +procedure TfrmODCslt.cboServiceSelect(Sender: TObject); +var + tmpSvc: string; +begin + if FcboServiceKeyDownStopClick then + begin + Exit; //This fixes clearquest: HDS00001418 + FcboServiceKeyDownStopClick := false; + end; + memReason.Clear; + with cboService do + begin + if (ItemIndex < 0) or (ItemID = '') then + begin + Responses.Update('ORDERABLE', 1, '', ''); + memOrder.Clear; + FLastServiceID := ''; + exit; + end; + if Piece(Items[ItemIndex],U,5) = '1' then + begin + Responses.Update('ORDERABLE', 1, '', ''); + memOrder.Clear; + FLastServiceID := ''; + pnlMessage.TabOrder := cboService.TabOrder + 1; + OrderMessage(TX_GROUPER); + Exit; + end; + FLastServiceID := ItemID; + if CharAt(ItemID, 1) = 'Q' then + begin + Changing := True; + Responses.QuickOrder := ExtractInteger(ItemID); + consultQuickOrder := True; + tmpSvc := TResponse(Responses.FindResponseByName('ORDERABLE',1)).EValue; + ItemIndex := Items.IndexOf(Trim(tmpSvc)); +(* tmpSvc := TResponse(Responses.FindResponseByName('ORDERABLE',1)).IValue; + for i := 0 to Items.Count-1 do + begin + if Piece(Items[i],U,6) = tmpSvc then + begin + ItemIndex := i; + break; + end; + end;*) + FLastServiceID := ItemID; + Enabled := False; + Font.Color := clGrayText; + btnServiceTree.Enabled := False; + pnlServiceTreeButton.Enabled := False; + Changing := False; + with Responses do if QuickOrder > 0 then + begin + Changing := True; + if not ShowPrerequisites then + begin + Close; + Exit; + end; + SetControl(cboCategory, 'CLASS', 1); + if cboCategory.ItemID = 'I' then radInpatient.Checked := True + else radOutpatient.Checked := True ; + SetControl(cboUrgency, 'URGENCY', 1); + SetControl(cboPlace, 'PLACE', 1); + SetControl(txtAttn, 'PROVIDER', 1); + SetControl(memReason, 'COMMENT', 1); +// if ((cboService.ItemIEN > 0) and (Length(memReason.Text) = 0)) then +// memReason.Lines.Assign(DefaultReasonForRequest(cboService.ItemID, True)); + SetupReasonForRequest(ORDER_QUICK); + GetProvDxandValidateCode(Responses); + Changing := False; + end + else + begin + if cboService.ItemIEN > 0 then + begin + Changing := True; + if not ShowPrerequisites then + begin + Close; + Exit; + end; + memReason.Lines.Assign(DefaultReasonForRequest(cboService.ItemID, True)); + SetupReasonForRequest(ORDER_NEW); + Changing := False; + end; + end; + end + else + begin + Changing := True; + if not ShowPrerequisites then + begin + Close; + Exit; + end; + QuickCopy(DefaultReasonForRequest(cboService.ItemID, True), memReason); + SetupReasonForRequest(ORDER_NEW); + Changing := False; + end; + end; + treService.Visible := False; + SetProvDiagPromptingMode; + tmpSvc := Piece(cboService.Items[cboService.ItemIndex], U, 6); + pnlMessage.TabOrder := cboService.TabOrder + 1; + OrderMessage(ConsultMessage(StrToIntDef(tmpSvc, 0))); + //OrderMessage(ConsultMessage(cboService.ItemIEN)); + ControlChange(Self) ; +end; + +procedure TfrmODCslt.FormDestroy(Sender: TObject); +begin + Defaults.Free; + SvcList.Free ; + QuickList.Free; + inherited; +end; + +procedure TfrmODCslt.btnServiceTreeClick(Sender: TObject); +var + i: integer; +begin + inherited; + Changing := True; + treService.Visible := not treService.Visible; + if treService.Visible then + begin + treService.SetFocus; + with treService do for i := 0 to Items.Count-1 do + begin + if Piece(TORTreeNode(Items[i]).StringData, U, 1) = cboService.ItemID then + begin + Selected := Items[i]; + if Piece(TORTreeNode(Items[i]).StringData, U, 5) = '1' then Selected.Expand(True); + break; + end; + end; + end; + Changing := False; +end; + +procedure TfrmODCslt.ReadServerVariables; +begin + if StrToIntDef(KeyVariable['GMRCNOAT'], 0) > 0 then + begin + txtAttn.Enabled := False; + txtAttn.Font.Color := clGrayText; + lblAttn.Enabled := False; + txtAttn.Color := clBtnFace; + end + else + begin + txtAttn.Enabled := True; + txtAttn.Font.Color := clWindowText; + lblAttn.Enabled := True; + txtAttn.Color := clWindow; + end; + + if StrToIntDef(KeyVariable['GMRCNOPD'], 0) > 0 then + begin + if BILLING_AWARE then + btnDiagnosis.Enabled := False //1.4.18 + else + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.Font.Color := clGrayText; + lblProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + end + else SetProvDiagPromptingMode; + + GMRCREAF := KeyVariable['GMRCREAF']; +end; + +procedure TfrmODCslt.treServiceCollapsing(Sender: TObject; Node: TTreeNode; + var AllowCollapse: Boolean); +begin + inherited; + Changing := True; + treService.Selected := nil; + Changing := False; + AllowCollapse := True; +end; + +procedure TfrmODCslt.treServiceMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + tmpNode: TORTreeNode; + NodeRect: TRect; +begin + inherited; + if Button <> mbLeft then exit; + tmpNode := TORTreeNode(treService.GetNodeAt(X, Y)); + if tmpNode = nil then exit; + NodeRect := tmpNode.DisplayRect(True); + if treService.Selected <> nil then + if (X >= NodeRect.Left) then // user clicked in the text of the item, not on the bitmap + begin + if tmpNode.StringData <> '' then + if (Piece(tmpNode.StringData, U, 5) <> '1') then + treService.Visible := False; + end; +end; + +procedure TfrmODCslt.cmdLexSearchClick(Sender: TObject); +var + Match: string; + i: integer; +begin + inherited; + + if BILLING_AWARE then BADxUpdated := FALSE; + + LexiconLookup(Match, LX_ICD); + if Match = '' then Exit; + ProvDx.Code := Piece(Match, U, 1); + ProvDx.Text := Piece(Match, U, 2); + i := Pos(' (ICD', ProvDx.Text); + if i = 0 then i := Length(ProvDx.Text) + 1; + if ProvDx.Text[i-1] = '*' then i := i - 2; + ProvDx.Text := Copy(ProvDx.Text, 1, i - 1); + txtProvDiag.Text := ProvDx.Text + ' (' + ProvDx.Code + ')'; + + ProvDx.CodeInactive := False; +end; + +procedure TfrmODCslt.SetProvDiagPromptingMode; +const + TX_USE_LEXICON = 'You must use the "Lexicon" button to select a provisional diagnosis for this service.'; + TX_USE_DIAGNOSIS = 'You must use the "Diagnosis" button to select a diagnosis for this service.'; + + TX_PROVDX_OPT = 'Provisional Diagnosis'; + TX_PROVDX_REQD = 'Provisional Dx (REQUIRED)'; +begin + if BILLING_AWARE then + btnDiagnosis.Enabled := False //1.4.18 + else + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + txtProvDiag.Font.Color := clBtnText; + lblProvDiag.Enabled := False; + txtProvDiag.Hint := ''; + if cboService.ItemIEN = 0 then Exit; + GetProvDxMode(ProvDx, cboService.ItemID + CSLT_PTR); + // Returns: string A^B + // A = O (optional), R (required) or S (suppress) + // B = F (free-text) or L (lexicon) + with ProvDx do if (Reqd = '') or (PromptMode = '') then Exit; + if ProvDx.Reqd = 'R' then + begin + lblProvDiag.Caption := TX_PROVDX_REQD; + if (BILLING_AWARE) and (ProvDx.PromptMode[1] = '') then btnDiagnosis.Enabled := True; + end + else + lblProvDiag.Caption := TX_PROVDX_OPT; + if ProvDx.Reqd = 'S' then + begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + txtProvDiag.Font.Color := clBtnText; + lblProvDiag.Enabled := False; + end + else + case ProvDx.PromptMode[1] of + 'F': begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := True; + txtProvDiag.ReadOnly := False; + txtProvDiag.Color := clWindow; + txtProvDiag.Font.Color := clWindowText; + lblProvDiag.Enabled := True; + end; + 'L': begin + if BILLING_AWARE then + begin + btnDiagnosis.Enabled := True; //1.4.18 + txtProvDiag.Hint := TX_USE_DIAGNOSIS; + end + else + begin + cmdLexSearch.Enabled := True; + txtProvDiag.Hint := TX_USE_LEXICON; + end; + txtProvDiag.Enabled := True; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clInfoBk; + txtProvDiag.Font.Color := clInfoText; + lblProvDiag.Enabled := True; + end; + end; +end; + + +procedure TfrmODCslt.mnuPopProvDxDeleteClick(Sender: TObject); +begin + inherited; + ProvDx.Text := ''; + ProvDx.Code := ''; + txtProvDiag.Text := ''; + ControlChange(Self); +end; + +procedure TfrmODCslt.txtProvDiagChange(Sender: TObject); +begin + inherited; + if ProvDx.PromptMode = 'F' then + begin + ProvDx.Text := txtProvDiag.Text; + displayDxCode := ProvDx.Text; + end; + ControlChange(Self); +end; + +procedure TfrmODCslt.SetupReasonForRequest(OrderAction: integer); +var + EditReason: string; + + procedure EnableReason; + begin + memReason.Color := clWindow; + memReason.Font.Color := clWindowText; + memReason.ReadOnly := False; + lblReason.Caption := 'Reason for Request'; + end; + + procedure DisableReason; + begin + memReason.Color := clInfoBk; + memReason.Font.Color := clInfoText; + memReason.ReadOnly := True; + lblReason.Caption := 'Reason for Request (not editable)'; + end; + +begin + if ((OrderAction = ORDER_QUICK) and (cboService.ItemID <> '') and (Length(memReason.Text) = 0)) then + memReason.Lines.Assign(DefaultReasonForRequest(cboService.ItemID, True)); + EditReason := GMRCREAF; + if EditReason = '' then EditReason := ReasonForRequestEditable(cboService.ItemID + CSLT_PTR); + case EditReason[1] of + '0': EnableReason; + '1': if OrderAction in [ORDER_COPY, ORDER_EDIT] then + EnableReason + else + DisableReason; + '2': DisableReason + else + EnableReason; + end; +end; + +function TfrmODCslt.ShowPrerequisites: boolean; +var + AList: TStringList; +const + TC_PREREQUISITES = 'Service Prerequisites - '; +begin + Result := True; + AbortOrder := False; + AList := TStringList.Create; + try + with cboService do + if ItemIEN > 0 then + begin + Alist.Assign(GetServicePrerequisites(ItemID + CSLT_PTR)); + if AList.Count > 0 then + begin + if not DisplayPrerequisites(AList, TC_PREREQUISITES + DisplayText[ItemIndex]) then + begin + memOrder.Clear; + Result := False; + AbortOrder := True; + end + else Result := True; + end; + end; + finally + AList.Free; + end; +end; + +procedure TfrmODCslt.cboServiceExit(Sender: TObject); +begin + inherited; + if Length(memOrder.Text) = 0 then Exit; + if (Length(cboService.ItemID) = 0) or (cboService.ItemID = '0') then Exit; + if cboService.ItemID = FLastServiceID then Exit; + cboServiceSelect(cboService); + // CQ #7490, following line commented out v26.24 (RV) + // CQ #9610 and 10074 - uncommented and "if" added v26.54 (RV) + if cboService.Enabled then cboService.SetFocus; + PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); +end; + +procedure TfrmODCslt.popReasonPopup(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popReason) is TCustomEdit + then FEditCtrl := TCustomEdit(PopupComponent(Sender, popReason)) + else FEditCtrl := nil; + if FEditCtrl <> nil then + begin + popReasonCut.Enabled := FEditCtrl.SelLength > 0; + popReasonCopy.Enabled := popReasonCut.Enabled; + popReasonPaste.Enabled := (not TORExposedCustomEdit(FEditCtrl).ReadOnly) and + Clipboard.HasFormat(CF_TEXT); + end else + begin + popReasonCut.Enabled := False; + popReasonCopy.Enabled := False; + popReasonPaste.Enabled := False; + end; + popReasonReformat.Enabled := True; +end; + +procedure TfrmODCslt.popReasonCutClick(Sender: TObject); +begin + inherited; + FEditCtrl.CutToClipboard; +end; + +procedure TfrmODCslt.popReasonCopyClick(Sender: TObject); +begin + inherited; + FEditCtrl.CopyToClipboard; +end; + +procedure TfrmODCslt.popReasonPasteClick(Sender: TObject); +begin + inherited; + FEditCtrl.SelText := Clipboard.AsText; +end; + +procedure TfrmODCslt.popReasonReformatClick(Sender: TObject); +begin + inherited; + if Screen.ActiveControl <> memReason then Exit; + ReformatMemoParagraph(memReason); +end; + +function TfrmODCslt.DefaultReasonForRequest(Service: string; + Resolve: Boolean): TStrings; +var + TmpSL: TStringList; + DocInfo: string; + x: string; + HasObjects: boolean; +begin + Resolve := FALSE ; // override value passed in - resolve on client - PSI-05-093 + DocInfo := ''; + TmpSL := TStringList.Create; + try + Result := GetDefaultReasonForRequest(Service + CSLT_PTR, Resolve); + TmpSL.Assign(Result); + x := TmpSL.Text; + ExpandOrderObjects(x, HasObjects); + TmpSL.Text := x; + Responses.OrderContainsObjects := HasObjects; + ExecuteTemplateOrBoilerPlate(TmpSL, cboService.ItemIEN , ltConsult, nil, 'Reason for Request: ' + cboService.DisplayText[cboService.ItemIndex], DocInfo); + if TmpSL.Text <> x then Responses.OrderContainsObjects := False; + Result.Assign(TmpSL); + finally + TmpSL.Free; + end; +end; + +procedure TfrmODCslt.pnlServiceTreeButtonEnter(Sender: TObject); +begin + inherited; + (Sender as TPanel).BevelOuter := bvRaised; +end; + +procedure TfrmODCslt.pnlServiceTreeButtonExit(Sender: TObject); +begin + inherited; + (Sender as TPanel).BevelOuter := bvNone; +end; + +procedure TfrmODCslt.treServiceKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + case Key of + VK_SPACE, VK_RETURN: + begin + Key := 0; + FKeyBoarding := False; + treServiceChange(Sender, treService.Selected); + end; + else + FKeyBoarding := True; + end; +end; + +procedure TfrmODCslt.treServiceKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + FKeyBoarding := False; +end; + +procedure TfrmODCslt.DoSetFontSize(FontSize: integer); +begin + memReason.DefAttributes.Size := FontSize; + treService.Font.Size := FontSize * 7 div 8; +end; + +procedure TfrmODCslt.SetFontSize(FontSize: integer); +begin + inherited SetFontSize(FontSize); + DoSetFontSize(FontSize); +end; + +procedure TfrmODCslt.memReasonKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if FNavigatingTab then + begin + if ssShift in Shift then + FindNextControl(Sender as TWinControl, False, True, False).SetFocus //previous control + else if ssCtrl in Shift then + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + FNavigatingTab := False; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +procedure TfrmODCslt.GetProvDxandValidateCode(AResponses: TResponses); +var + tmpDx: TResponse; + +begin + with AResponses do + begin + tmpDx := TResponse(FindResponseByName('MISC',1)); + if tmpDx <> nil then ProvDx.Text := tmpDx.Evalue; + tmpDx := TResponse(FindResponseByName('CODE',1)); + sourceOrderID := Responses.CopyOrder; + if (tmpDx <> nil) and (tmpDx.EValue <> '') then + begin + if IsActiveICDCode(tmpDx.EValue) then + ProvDx.Code := tmpDx.Evalue + else + begin + if ProvDx.Reqd = 'R' then + InfoBox(TX_INACTIVE_CODE1 + TX_INACTIVE_CODE_REQD, TC_INACTIVE_CODE, MB_ICONWARNING or MB_OK) + else + InfoBox(TX_INACTIVE_CODE1 + TX_INACTIVE_CODE_OPTIONAL, TC_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + ProvDx.Code := ''; + ProvDx.Text := ''; + end; + end; + txtProvDiag.Text := ProvDx.Text; + if ProvDx.Code <> '' then + txtProvDiag.Text := (txtProvDiag.Text + ' (' + ProvDx.Code + ')' ) + else + begin + if BILLING_AWARE then + if (sourceOrderID <> '') and (ProvDx.Code <> '') then // if sourceid exists then user is copying an order. + SetUpCopyConsultDiagnoses(sourceOrderID); + + end; + + end; +end; + +procedure TfrmODCslt.memReasonKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + //The navigating tab controls were inadvertantently adding tab characters + //This should fix it + FNavigatingTab := (Key = VK_TAB) and ([ssShift,ssCtrl] * Shift <> []); + if FNavigatingTab then + Key := 0; +end; + +procedure TfrmODCslt.memReasonKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if FNavigatingTab then + Key := #0; //Disable shift-tab processing +end; + +procedure TfrmODCslt.cboServiceKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + //This fixes clearquest: HDS00001418 Makes it so OnClick is not called + //Except when Enter or Space is pressed. VK_LBUTTON activates OnClick in TORComboBoxes + FcboServiceKeyDownStopClick := false; + if (Key <> VK_RETURN) {and (Key <> VK_SPACE)} and (Key <> VK_LBUTTON) then //comment on this line is fix for CQ6789 + FcboServiceKeyDownStopClick := True + else + Key := VK_LBUTTON; +end; + +procedure TfrmODCslt.cboServiceKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + FcboServiceKeyDownStopClick := false; +end; + + +procedure TfrmODCslt.btnDiagnosisClick(Sender: TObject); +var + leftParan, rightParan: string; + tmpOrderIDList: TStringList; +begin + inherited; + tmpOrderIDList := TStringList.Create; + tmpOrderIDList.Clear; + leftParan := '('; + rightParan := ')'; + UBAGlobals.BAtmpOrderList.Clear; + UBAGlobals.BAtmpOrderList.Add(Responses.OrderText); + quickCode := ''; + if consultQuickOrder then + begin + quickCode := Piece(txtProvDiag.text,'(',2); + quickCode := Piece(quickCode,')',1); + if UBACore.IsICD9CodeActive(quickCode,'ICD',0) then + begin + uBAGlobals.BAConsultDxList.Clear; + uBAGlobals.BAConsultDxList.Add(UBAConst.PRIMARY_DX + U + Piece(txtProvDiag.text,'(',1) + ':' + quickCode); + end; + + end; + frmBALocalDiagnoses.Enter(UBAConst.F_CONSULTS, nil); + if displayDxCode = '' then txtProvDiag.Text := '' + else + begin + if displayDxCode <> 'DXCANCEL' then + begin + ProvDx.Code := Piece(displayDxCode,':', 2); + ProvDx.Text := Piece(displayDxCode,':', 1); + txtProvDiag.Text := ProvDx.Text + ' (' + ProvDx.Code + ')'; + end; + end; + + ProvDx.CodeInactive := False; +end; + +procedure TfrmODCslt.cmdQuitClick(Sender: TObject); +begin + inherited; + if BILLING_AWARE then uBAGlobals.BAConsultDxList.Clear; +end; + +procedure TfrmODCslt.SaveConsultDxForNurse(pDiagnosis: string); +var + s,tmpTFactors: string; + tmpList: TStringList; +begin + tmpList := TStringList.Create; + tmpList.Clear; + s := ''; + tmpList.Add(uBAGlobals.BAOrderID); + s := GetPatientTFactors(tmpList); + tmpTFactors := ConvertPIMTreatmentFactors(s); + BANurseConsultOrders.Add(uBAGlobals.BAOrderID + '1' + tmpTFactors + U + ProvDX.Code); +end; + +procedure TfrmODCslt.SetUpCopyConsultDiagnoses(pOrderID:string); +var + sourceOrderID, primaryText,primaryCode: string; + sourceOrderList: TStringList; + thisOrderList: TStringList; +begin +//logic handles setting up diagnoses when copying an order. + sourceOrderList := TStringList.Create; + sourceOrderList.Clear; + thisOrderList := TStringList.Create; + thisOrderList.Clear; + if IsOrderBillable(sourceOrderID) then + begin + thisOrderList.Add(sourceOrderID); + sourceOrderList := rpcRetrieveSelectedOrderInfo(thisOrderList); + primaryText := Piece(sourceOrderList.Strings[0],U,4); + primaryCode := Piece(sourceOrderList.Strings[0],U,3); + txtProvDiag.Text := primaryText + ' (' + primaryCode + ')'; + ProvDx.CodeInactive := False; + // need to handle the rest of the dx's + uBAGlobals.BAConsultDxList.Clear; + uBAGlobals.BAConsultDxList.Add(UBAConst.PRIMARY_DX + U + Piece(txtProvDiag.text,'(',1) + ':' + primaryCode); + if (Piece(sourceOrderList.Strings[0],U,5) <> '') then // dx2 + uBAGlobals.BAConsultDxList.Add(UBAConst.SECONDARY_DX + U + Piece(sourceOrderList.Strings[0],U,6) + ':' + Piece(sourceOrderList.Strings[0],U,5)); + if (Piece(sourceOrderList.Strings[0],U,7) <> '') then // dx3 + uBAGlobals.BAConsultDxList.Add(UBAConst.SECONDARY_DX + U + Piece(sourceOrderList.Strings[0],U,8) + ':' + Piece(sourceOrderList.Strings[0],U,7)); + if (Piece(sourceOrderList.Strings[0],U,9) <> '') then // dx4 + uBAGlobals.BAConsultDxList.Add(UBAConst.SECONDARY_DX + U + Piece(sourceOrderList.Strings[0],U,10) + ':' + Piece(sourceOrderList.Strings[0],U,9)); + end; +end; + +procedure TfrmODCslt.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + frmFrame.pnlVisit.Enabled := true; +end; + +end. + + diff --git a/CPRS-Chart/Consults/fODProc.dfm b/CPRS-Chart/Consults/fODProc.dfm new file mode 100644 index 0000000..8ae2100 --- /dev/null +++ b/CPRS-Chart/Consults/fODProc.dfm @@ -0,0 +1,386 @@ +inherited frmODProc: TfrmODProc + Tag = 112 + Left = 208 + Top = 188 + Width = 543 + Height = 393 + HorzScrollBar.Range = 523 + VertScrollBar.Range = 295 + Caption = 'Order a Procedure' + Constraints.MinHeight = 393 + Constraints.MinWidth = 543 + PixelsPerInch = 96 + TextHeight = 13 + object lblProc: TLabel [0] + Left = 4 + Top = 4 + Width = 49 + Height = 13 + Caption = 'Procedure' + end + object lblService: TOROffsetLabel [1] + Left = 4 + Top = 42 + Width = 158 + Height = 15 + Caption = 'Service to perform this procedure' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblReason: TLabel [2] + Left = 4 + Top = 103 + Width = 95 + Height = 13 + Caption = 'Reason for Request' + end + object lblUrgency: TStaticText [3] + Left = 249 + Top = 4 + Width = 44 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'Urgency' + TabOrder = 15 + end + object lblPlace: TStaticText [4] + Left = 396 + Top = 43 + Width = 104 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'Place of Consultation' + TabOrder = 16 + end + object lblAttn: TStaticText [5] + Left = 396 + Top = 4 + Width = 46 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'Attention' + TabOrder = 17 + end + object lblProvDiag: TStaticText [6] + Left = 249 + Top = 81 + Width = 104 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'Provisional Diagnosis' + TabOrder = 18 + end + object pnlReason: TPanel [7] + Left = 0 + Top = 120 + Width = 528 + Height = 192 + Anchors = [akLeft, akTop, akRight, akBottom] + BevelOuter = bvNone + TabOrder = 9 + object memReason: TCaptionRichEdit + Left = 0 + Top = 0 + Width = 528 + Height = 192 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + Constraints.MinHeight = 40 + ParentFont = False + PopupMenu = popReason + ScrollBars = ssBoth + TabOrder = 0 + WantTabs = True + OnChange = ControlChange + OnExit = memReasonExit + OnKeyDown = memReasonKeyDown + OnKeyPress = memReasonKeyPress + OnKeyUp = memReasonKeyUp + Caption = 'Reason for Request' + end + end + inherited memOrder: TCaptionMemo + Left = 0 + Top = 321 + Width = 380 + Height = 41 + Anchors = [akLeft, akRight] + Lines.Strings = ( + 'The order text...' + + '----------------------------------------------------------------' + + '--------------' + 'An order message may be displayed here.') + TabOrder = 1 + end + object cboUrgency: TORComboBox [9] + Left = 249 + Top = 17 + Width = 133 + Height = 21 + Anchors = [akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Urgency' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboPlace: TORComboBox [10] + Left = 396 + Top = 56 + Width = 133 + Height = 21 + Anchors = [akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Place of Consultation' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 6 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object txtAttn: TORComboBox [11] + Left = 396 + Top = 17 + Width = 133 + Height = 21 + Anchors = [akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Attention' + 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 = 3 + OnChange = ControlChange + OnNeedData = txtAttnNeedData + CharsNeedMatch = 1 + end + object cboProc: TORComboBox [12] + Left = 4 + Top = 17 + Width = 227 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Procedure' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnChange = cboProcSelect + OnNeedData = cboProcNeedData + CharsNeedMatch = 1 + end + object cboCategory: TORComboBox [13] + Left = 516 + Top = 10 + Width = 3 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 13 + Visible = False + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboService: TORComboBox [14] + Left = 4 + Top = 58 + Width = 227 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Service to perform this procedure' + Color = clWindow + DropDownCount = 8 + Enabled = False + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = cboServiceChange + CharsNeedMatch = 1 + end + inherited cmdAccept: TButton + Left = 387 + Top = 339 + Anchors = [akRight, akBottom] + TabOrder = 10 + end + inherited cmdQuit: TButton + Left = 469 + Top = 339 + Width = 64 + Anchors = [akRight, akBottom] + TabOrder = 11 + end + inherited pnlMessage: TPanel + Left = 50 + Top = 320 + Width = 316 + Anchors = [akLeft, akRight, akBottom] + TabOrder = 12 + inherited memMessage: TRichEdit + Width = 254 + end + end + object cmdLexSearch: TButton + Left = 486 + Top = 93 + Width = 49 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Lexicon' + TabOrder = 8 + OnClick = cmdLexSearchClick + end + object gbInptOpt: TGroupBox + Left = 249 + Top = 36 + Width = 140 + Height = 45 + Anchors = [akTop, akRight] + Caption = 'Patient will be seen as an:' + TabOrder = 5 + object radInpatient: TRadioButton + Left = 3 + Top = 20 + Width = 61 + Height = 17 + Caption = '&Inpatient' + TabOrder = 0 + OnClick = radInpatientClick + end + object radOutpatient: TRadioButton + Left = 67 + Top = 20 + Width = 71 + Height = 17 + Caption = '&Outpatient' + TabOrder = 1 + OnClick = radOutpatientClick + end + end + object txtProvDiag: TCaptionEdit + Left = 249 + Top = 93 + Width = 234 + Height = 21 + Anchors = [akTop, akRight] + MaxLength = 180 + ParentShowHint = False + PopupMenu = mnuPopProvDx + ShowHint = True + TabOrder = 7 + OnChange = txtProvDiagChange + Caption = 'Provisional Diagnosis' + end + object mnuPopProvDx: TPopupMenu + Left = 353 + Top = 77 + object mnuPopProvDxDelete: TMenuItem + Caption = 'Delete diagnosis' + OnClick = mnuPopProvDxDeleteClick + end + end + object popReason: TPopupMenu + OnPopup = popReasonPopup + Left = 411 + Top = 169 + object popReasonCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = popReasonCutClick + end + object popReasonCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = popReasonCopyClick + end + object popReasonPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = popReasonPasteClick + end + object popReasonPaste2: TMenuItem + Caption = 'Paste2' + ShortCut = 8237 + Visible = False + OnClick = popReasonPasteClick + end + object popReasonReformat: TMenuItem + Caption = 'Reformat Paragraph' + ShortCut = 16466 + OnClick = popReasonReformatClick + end + end +end diff --git a/CPRS-Chart/Consults/fODProc.pas b/CPRS-Chart/Consults/fODProc.pas new file mode 100644 index 0000000..b4dc7a8 --- /dev/null +++ b/CPRS-Chart/Consults/fODProc.pas @@ -0,0 +1,833 @@ +unit fODProc; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, StdCtrls, ORCtrls, ExtCtrls, ComCtrls, ORfn, uConst, Buttons, + Menus; + +type + TfrmODProc = class(TfrmODBase) + cboUrgency: TORComboBox; + cboPlace: TORComboBox; + txtAttn: TORComboBox; + lblProc: TLabel; + cboProc: TORComboBox; + lblUrgency: TStaticText; + lblPlace: TStaticText; + lblAttn: TStaticText; + lblProvDiag: TStaticText; + cboCategory: TORComboBox; + cboService: TORComboBox; + lblService: TOROffsetLabel; + mnuPopProvDx: TPopupMenu; + mnuPopProvDxDelete: TMenuItem; + cmdLexSearch: TButton; + popReason: TPopupMenu; + popReasonCut: TMenuItem; + popReasonCopy: TMenuItem; + popReasonPaste: TMenuItem; + popReasonPaste2: TMenuItem; + popReasonReformat: TMenuItem; + pnlReason: TPanel; + memReason: TCaptionRichEdit; + gbInptOpt: TGroupBox; + radInpatient: TRadioButton; + radOutpatient: TRadioButton; + txtProvDiag: TCaptionEdit; + lblReason: TLabel; + procedure FormCreate(Sender: TObject); + procedure txtAttnNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboProcNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure radInpatientClick(Sender: TObject); + procedure radOutpatientClick(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure cboProcSelect(Sender: TObject); + procedure memReasonExit(Sender: TObject); + procedure cmdLexSearchClick(Sender: TObject); + procedure cboServiceChange(Sender: TObject); + procedure mnuPopProvDxDeleteClick(Sender: TObject); + procedure txtProvDiagChange(Sender: TObject); + procedure popReasonCutClick(Sender: TObject); + procedure popReasonCopyClick(Sender: TObject); + procedure popReasonPasteClick(Sender: TObject); + procedure popReasonPopup(Sender: TObject); + procedure popReasonReformatClick(Sender: TObject); + procedure memReasonKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormDestroy(Sender: TObject); + procedure memReasonKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memReasonKeyPress(Sender: TObject; var Key: Char); + procedure FormResize(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + FLastProcID: string; + FEditCtrl: TCustomEdit; + FNavigatingTab: boolean; + procedure ReadServerVariables; + procedure SetProvDiagPromptingMode; + procedure SetupReasonForRequest(OrderAction: integer); + procedure GetProvDxandValidateCode(AResponses: TResponses); + function ShowPrerequisites: boolean; + procedure DoSetFontSize( FontSize: integer); + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + function DefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + procedure SetFontSize( FontSize: integer); override; + end; + +implementation + +{$R *.DFM} + +uses + rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, ORClasses, + clipbrd, fPreReq, uTemplates, uAccessibleRichEdit, fFrame, uODBase; + +var + ProvDx: TProvisionalDiagnosis; + GMRCREAF: string; + +const + TX_NO_PROC = 'A procedure must be specified.' ; + TX_NO_REASON = 'A reason for this procedure must be entered.' ; + TX_NO_SERVICE = 'A service must be selected to perform this procedure.'; + TX_NO_URGENCY = 'An urgency must be specified.'; + TX_NO_PLACE = 'A place of consultation must be specified'; + TX_NO_DIAG = 'A provisional diagnosis must be entered for consults to this service.'; + TX_SELECT_DIAG = 'You must use the "Lexicon" button to select a diagnosis for consults to this service.'; + TC_INACTIVE_CODE = 'Inactive ICD Code'; + TX_INACTIVE_CODE1 = 'The provisional diagnosis code is not active as of today''s date.' + #13#10; + TX_INACTIVE_CODE_REQD = 'Another code must be selected before the order can be saved.'; + TX_INACTIVE_CODE_OPTIONAL = 'If another code is not selected, no code will be saved.'; + +procedure TfrmODProc.FormCreate(Sender: TObject); +begin + frmFrame.pnlVisit.Enabled := false; + AutoSizeDisabled := True; + inherited; + DoSetFontSize(MainFontSize); + TAccessibleRichEdit.WrapControl(memReason); + AllowQuickOrder := True; + FillChar(ProvDx, SizeOf(ProvDx), 0); + FillerID := 'GMRC'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Dialog := 'GMRCOR REQUEST'; // loads formatting info + StatusText('Loading Default Values'); + CtrlInits.LoadDefaults(ODForProcedures); // ODForProcedures returns TStrings with defaults + StatusText('Initializing Long List'); + ReadServerVariables; + cboProc.InitLongList('') ; + txtAttn.InitLongList('') ; + PreserveControl(txtAttn); + PreserveControl(cboProc); + InitDialog; +end; + +procedure TfrmODProc.InitDialog; +begin + inherited; + Changing := True; + FLastProcID := ''; + with CtrlInits do + begin + SetControl(cboProc, 'ShortList'); + cboProc.InsertSeparator; + if OrderForInpatient then + begin + radInpatient.Checked := True; //INPATIENT PROCEDURE + cboCategory.Items.Clear; + cboCategory.Items.Add('I^Inpatient'); + cboCategory.SelectById('I'); + SetControl(cboPlace, 'Inpt Place'); + SetControl(cboUrgency, 'Inpt Proc Urgencies'); //S.GMRCR + end + else + begin + radOutpatient.Checked := True; //OUTPATIENT PROCEDURE + cboCategory.Items.Clear; + cboCategory.Items.Add('O^Outpatient'); + cboCategory.SelectById('O'); + SetControl(cboPlace, 'Outpt Place'); + SetControl(cboUrgency, 'Outpt Urgencies'); //S.GMRCO + end ; + end ; + txtAttn.ItemIndex := -1; + memOrder.Clear ; + memReason.Clear; + cboProc.Enabled := True; + cboProc.Font.Color := clWindowText; + //cboService.Enabled := True; + //cboService.Font.Color := clWindowText; + ActiveControl := cboProc; + SetProvDiagPromptingMode; + if not ShowPrerequisites then + begin + Close; + Exit; + end; + StatusText(''); + Changing := False; +end; + +procedure TfrmODProc.SetupDialog(OrderAction: Integer; const ID: string); +var + tmpResp: TResponse; +begin + inherited; + ReadServerVariables; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do {*KCM*} + begin + SetControl(cboProc, 'ORDERABLE', 1); + if cboProc.ItemIndex < 0 then exit; + cboService.Items.Assign(GetProcedureServices(cboProc.ItemIEN)); + Changing := True; + tmpResp := TResponse(FindResponseByName('CLASS',1)); + cboCategory.SelectByID(tmpResp.IValue); + if tmpResp.IValue = 'I' then + radInpatient.Checked := True + else + radOutpatient.Checked := True ; + SetControl(cboUrgency, 'URGENCY', 1); + SetControl(cboPlace, 'PLACE', 1); + SetControl(txtAttn, 'PROVIDER', 1); + cboProc.Enabled := False; + cboProc.Font.Color := clGrayText; + //SetControl(cboService, 'SERVICE', 1); // to fix OR*3.0*95 bug in v17.6 (RV) + tmpResp := TResponse(FindResponseByName('SERVICE',1)); + if tmpResp <> nil then + cboService.SelectByID(Piece(tmpResp.IValue, U, 1)) + else if (cboService.Items.Count = 1) then + cboService.ItemIndex := 0 + else if (cboService.Items.Count > 1) then + cboService.ItemIndex := -1 ; + if cboService.ItemIndex > -1 then + begin + cboService.Enabled := False; + cboService.Font.Color := clGrayText; + end + else + begin + cboService.Enabled := True; + cboService.Font.Color := clWindowText; + end; + if (OrderAction in [ORDER_COPY, ORDER_QUICK]) and (not ShowPrerequisites) then + begin + Close; + Exit; + end; + SetProvDiagPromptingMode; + GetProvDxandValidateCode(Responses); + SetControl(memReason, 'COMMENT', 1); + SetupReasonForRequest(OrderAction); + Changing := False; + OrderMessage(ConsultMessage(cboProc.ItemIEN)); + ControlChange(Self); + end; +end; + +procedure TfrmODProc.Validate(var AnErrMsg: string); + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + inherited; + if cboProc.ItemIEN = 0 then SetError(TX_NO_PROC); + if cboUrgency.ItemIEN = 0 then SetError(TX_NO_URGENCY); + if cboPlace.ItemID = '' then SetError(TX_NO_PLACE); + if (not ContainsVisibleChar(memReason.Text)) + then SetError(TX_NO_REASON); + if cboService.ItemIEN = 0 then SetError(TX_NO_SERVICE); + if (ProvDx.Reqd = 'R') and (Length(txtProvDiag.Text) = 0) then + begin + if ProvDx.PromptMode = 'F' then + SetError(TX_NO_DIAG) + else + SetError(TX_SELECT_DIAG); + end; +end; + +procedure TfrmODProc.txtAttnNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + txtAttn.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmODProc.cboProcNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + cboProc.ForDataUse(SubSetOfProcedures(StartFrom, Direction)); +end; + +procedure TfrmODProc.radInpatientClick(Sender: TObject); +begin + inherited; + with CtrlInits do + begin + SetControl(cboPlace, 'Inpt Place'); + SetControl(cboUrgency, 'Inpt Proc Urgencies'); + cboCategory.Items.Clear; + cboCategory.Items.Add('I^Inpatient') ; + cboCategory.SelectById('I'); + end ; + ControlChange(Self); +end; + +procedure TfrmODProc.radOutpatientClick(Sender: TObject); +begin + inherited; + with CtrlInits do + begin + SetControl(cboPlace, 'Outpt Place'); + SetControl(cboUrgency, 'Outpt Urgencies'); + cboCategory.Items.Clear; + cboCategory.Items.Add('O^Outpatient'); + cboCategory.SelectById('O'); + end ; + ControlChange(Self); +end; + +procedure TfrmODProc.ControlChange(Sender: TObject); +var + x: string; + i: integer; +begin + inherited; + if Changing or (cboProc.ItemIEN = 0) then Exit; + with cboProc do + begin + if ItemIEN > 0 then + begin + i := Pos('<', Text); + if i > 0 then + begin + x := Piece(Copy(Text, i + 1, 99), '>', 1); + x := UpperCase(Copy(x, 1, 1)) + Copy(x, 2, 99); + end + else + x := Text; + Responses.Update('ORDERABLE', 1, ItemID, x); + end + else Responses.Update('ORDERABLE', 1, '', ''); + end; +(* with cboProc do if ItemIEN > 0 then Responses.Update('ORDERABLE', 1, ItemID, Text) + else Responses.Update('ORDERABLE', 1, '', '');*) + with cboService do if ItemIEN > 0 then Responses.Update('SERVICE', 1, ItemID, Text) + else Responses.Update('SERVICE', 1, '', ''); + with memReason do if GetTextLen > 0 then Responses.Update('COMMENT', 1, TX_WPTYPE, Text); + with cboCategory do if ItemID <> '' then Responses.Update('CLASS', 1, ItemID, Text); + with cboUrgency do if ItemIEN > 0 then Responses.Update('URGENCY', 1, ItemID, Text); + with cboPlace do if ItemID <> '' then Responses.Update('PLACE', 1, ItemID, Text); + with txtAttn do if ItemIEN > 0 then Responses.Update('PROVIDER', 1, ItemID, Text); + if Length(ProvDx.Text) > 0 then Responses.Update('MISC', 1, ProvDx.Text, ProvDx.Text) + else Responses.Update('MISC', 1, '', ''); + if Length(ProvDx.Code) > 0 then Responses.Update('CODE', 1, ProvDx.Code, ProvDx.Code) + else Responses.Update('CODE', 1, '', ''); + + memOrder.Text := Responses.OrderText; +end; + +procedure TfrmODProc.cboProcSelect(Sender: TObject); +begin + inherited; + with cboProc do + begin + if ItemIndex = -1 then Exit; + if ItemID <> FLastProcID then FLastProcID := ItemID else Exit; + Changing := True; + if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + Changing := False; + if CharAt(ItemID, 1) = 'Q' then + begin + Responses.QuickOrder := ExtractInteger(ItemID); + Responses.SetControl(cboProc, 'ORDERABLE', 1); + FLastProcID := ItemID; + end; + with cboService do + begin + Clear; + Items.Assign(GetProcedureServices(cboProc.ItemIEN)); + if Items.Count > 1 then + ItemIndex := -1 + else if Items.Count = 1 then + begin + ItemIndex := 0 ; + Responses.Update('SERVICE', 1, ItemID, Text); + end + else + begin + if Sender = Self then // Sender=Self when called from SetupDialog + InfoBox('There are no services defined for this procedure.', + 'Information', MB_OK or MB_ICONINFORMATION); + cboProc.ItemIndex := -1; + InitDialog; + Exit ; + end; + end; + end; + with Responses do if QuickOrder > 0 then + begin + SetControl(cboProc, 'ORDERABLE', 1); + Changing := True; + with cboService do + begin + Items.Assign(GetProcedureServices(cboProc.ItemIEN)); + if Items.Count > 1 then + ItemIndex := -1 + else if Items.Count = 1 then + ItemIndex := 0 ; + end; + if not ShowPrerequisites then + begin + Close; + Exit; + end; + SetControl(cboCategory, 'CLASS', 1); + if cboCategory.ItemID = 'I' then radInpatient.Checked := True + else radOutpatient.Checked := True ; + SetControl(cboUrgency, 'URGENCY', 1); + SetControl(cboPlace, 'PLACE', 1); + SetControl(txtAttn, 'PROVIDER', 1); + SetControl(memReason, 'COMMENT', 1); +// if ((cboProc.ItemIEN > 0) and (Length(memReason.Text) = 0)) then +// memReason.Lines.Assign(DefaultReasonForRequest(Piece(cboProc.Items[cboProc.ItemIndex], U, 4), True)); + SetupReasonForRequest(ORDER_QUICK); + GetProvDxandValidateCode(Responses); + SetControl(cboService, 'SERVICE', 1); + cboProc.Enabled := False; + cboProc.Font.Color := clGrayText; + if cboService.ItemIndex > -1 then + begin + cboService.Enabled := False; + cboService.Font.Color := clGrayText; + end + else + begin + cboService.Enabled := True; + cboService.Font.Color := clWindowText; + end; + Changing := False; + end + else + begin + if cboProc.ItemIEN > 0 then + begin + if cboService.ItemIndex > -1 then + begin + cboService.Enabled := False; + cboService.Font.Color := clGrayText; + end + else + begin + cboService.Enabled := True; + cboService.Font.Color := clWindowText; + end; + if not ShowPrerequisites then + begin + Close; + Exit; + end; + memReason.Lines.Assign(DefaultReasonForRequest(Piece(cboProc.Items[cboProc.ItemIndex], U, 4), True)); + SetupReasonForRequest(ORDER_NEW); + end; + end; + SetProvDiagPromptingMode; + OrderMessage(ConsultMessage(cboProc.ItemIEN)); + ControlChange(Self) ; +end; + +procedure TfrmODProc.memReasonExit(Sender: TObject); +var + AStringList: TStringList; +begin + inherited; + AStringList := TStringList.Create; + try + AStringList.Assign(memReason.Lines); + LimitStringLength(AStringList, 74); + memReason.Lines.Assign(AstringList); + ControlChange(Self); + finally + AStringList.Free; + end; +end; + +procedure TfrmODProc.ReadServerVariables; +begin + if StrToIntDef(KeyVariable['GMRCNOAT'], 0) > 0 then + begin + txtAttn.Enabled := False; + txtAttn.Font.Color := clGrayText; + lblAttn.Enabled := False; + txtAttn.Color := clBtnFace; + end + else + begin + txtAttn.Enabled := True; + txtAttn.Font.Color := clWindowText; + lblAttn.Enabled := True; + txtAttn.Color := clWindow; + end; + + if StrToIntDef(KeyVariable['GMRCNOPD'], 0) > 0 then + begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.Font.Color := clGrayText; + lblProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + end + else SetProvDiagPromptingMode; + + GMRCREAF := KeyVariable['GMRCREAF']; +end; + +procedure TfrmODProc.cmdLexSearchClick(Sender: TObject); +var + Match: string; + i: integer; +begin + inherited; + LexiconLookup(Match, LX_ICD); + if Match = '' then Exit; + ProvDx.Code := Piece(Match, U, 1); + ProvDx.Text := Piece(Match, U, 2); + i := Pos(' (ICD', ProvDx.Text); + if i = 0 then i := Length(ProvDx.Text) + 1; + if ProvDx.Text[i-1] = '*' then i := i - 2; + ProvDx.Text := Copy(ProvDx.Text, 1, i - 1); + txtProvDiag.Text := ProvDx.Text + ' (' + ProvDx.Code + ')'; + ProvDx.CodeInactive := False; +end; + +procedure TfrmODProc.SetProvDiagPromptingMode; +const + TX_USE_LEXICON = 'You must use the "Lexicon" button to select a provisional diagnosis for this service.'; + TX_PROVDX_OPT = 'Provisional Diagnosis'; + TX_PROVDX_REQD = 'Provisional Dx (REQUIRED)'; +begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + txtProvDiag.Font.Color := clBtnText; + lblProvDiag.Enabled := False; + txtProvDiag.Hint := ''; + if cboProc.ItemIEN = 0 then Exit; + //GetProvDxMode(ProvDx, cboService.ItemID); + GetProvDxMode(ProvDx, Piece(cboProc.Items[cboProc.ItemIndex], U, 4)); + // Returns: string A^B + // A = O (optional), R (required) or S (suppress) + // B = F (free-text) or L (lexicon) + with ProvDx do if (Reqd = '') or (PromptMode = '') then Exit; + if ProvDx.Reqd = 'R' then + lblProvDiag.Caption := TX_PROVDX_REQD + else + lblProvDiag.Caption := TX_PROVDX_OPT; + if ProvDx.Reqd = 'S' then + begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := False; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clBtnFace; + txtProvDiag.Font.Color := clBtnText; + lblProvDiag.Enabled := False; + end + else + case ProvDx.PromptMode[1] of + 'F': begin + cmdLexSearch.Enabled := False; + txtProvDiag.Enabled := True; + txtProvDiag.ReadOnly := False; + txtProvDiag.Color := clWindow; + txtProvDiag.Font.Color := clWindowText; + lblProvDiag.Enabled := True; + end; + 'L': begin + cmdLexSearch.Enabled := True; + txtProvDiag.Enabled := True; + txtProvDiag.ReadOnly := True; + txtProvDiag.Color := clInfoBk; + txtProvDiag.Font.Color := clInfoText; + lblProvDiag.Enabled := True; + txtProvDiag.Hint := TX_USE_LEXICON; + end; + end; +end; + +procedure TfrmODProc.cboServiceChange(Sender: TObject); +begin + inherited; + //SetProvDiagPromptingMode; + ControlChange(Self); +end; + +procedure TfrmODProc.mnuPopProvDxDeleteClick(Sender: TObject); +begin + inherited; + ProvDx.Text := ''; + ProvDx.Code := ''; + txtProvDiag.Text := ''; + ControlChange(Self); +end; + +procedure TfrmODProc.txtProvDiagChange(Sender: TObject); +begin + inherited; + if ProvDx.PromptMode = 'F' then + ProvDx.Text := txtProvDiag.Text; + ControlChange(Self); +end; + +procedure TfrmODProc.popReasonPopup(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popReason) is TCustomEdit + then FEditCtrl := TCustomEdit(PopupComponent(Sender, popReason)) + else FEditCtrl := nil; + if FEditCtrl <> nil then + begin + popReasonCut.Enabled := FEditCtrl.SelLength > 0; + popReasonCopy.Enabled := popReasonCut.Enabled; + popReasonPaste.Enabled := (not TORExposedCustomEdit(FEditCtrl).ReadOnly) and + Clipboard.HasFormat(CF_TEXT); + end else + begin + popReasonCut.Enabled := False; + popReasonCopy.Enabled := False; + popReasonPaste.Enabled := False; + end; + popReasonReformat.Enabled := True; +end; + +procedure TfrmODProc.popReasonCutClick(Sender: TObject); +begin + inherited; + FEditCtrl.CutToClipboard; +end; + +procedure TfrmODProc.popReasonCopyClick(Sender: TObject); +begin + inherited; + FEditCtrl.CopyToClipboard; +end; + +procedure TfrmODProc.popReasonPasteClick(Sender: TObject); +begin + inherited; + FEditCtrl.SelText := Clipboard.AsText; +end; + +procedure TfrmODProc.popReasonReformatClick(Sender: TObject); +begin + inherited; + if Screen.ActiveControl <> memReason then Exit; + ReformatMemoParagraph(memReason); +end; + +procedure TfrmODProc.SetupReasonForRequest(OrderAction: integer); +var + EditReason: string; + + procedure EnableReason; + begin + memReason.Color := clWindow; + memReason.Font.Color := clWindowText; + memReason.ReadOnly := False; + lblReason.Caption := 'Reason for Request'; + end; + + procedure DisableReason; + begin + memReason.Color := clInfoBk; + memReason.Font.Color := clInfoText; + memReason.ReadOnly := True; + lblReason.Caption := 'Reason for Request (not editable)'; + end; + +begin + if ((OrderAction = ORDER_QUICK) and (cboProc.ItemID <> '') and (Length(memReason.Text) = 0)) then + memReason.Lines.Assign(DefaultReasonForRequest(Piece(cboProc.Items[cboProc.ItemIndex], U, 4), True)); + EditReason := GMRCREAF; + if EditReason = '' then EditReason := ReasonForRequestEditable(Piece(cboProc.Items[cboProc.ItemIndex], U, 4)); + case EditReason[1] of + '0': EnableReason; + '1': if OrderAction in [ORDER_COPY, ORDER_EDIT] then + EnableReason + else + DisableReason; + '2': DisableReason + else + EnableReason; + end; +end; + +function TfrmODProc.ShowPrerequisites: boolean; +var + AList: TStringList; +const + TC_PREREQUISITES = 'Procedure Prerequisites - '; +begin + Result := True; + AbortOrder := False; + AList := TStringList.Create; + try + with cboProc do + if ItemIEN > 0 then + begin + Alist.Assign(GetServicePrerequisites(Piece(Items[ItemIndex], U, 4))); + if AList.Count > 0 then + begin + if not DisplayPrerequisites(AList, TC_PREREQUISITES + DisplayText[ItemIndex]) then + begin + memOrder.Clear; + Result := False; + AbortOrder := True; + //cmdQuitClick(Self); + end + else Result := True; + end; + end; + finally + AList.Free; + end; +end; + +function TfrmODProc.DefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings; +var + TmpSL: TStringList; + DocInfo: string; + x: string; + HasObjects: boolean; +begin + Resolve := FALSE ; // override value passed in - resolve on client - PSI-05-093 + DocInfo := ''; + TmpSL := TStringList.Create; + try + Result := GetDefaultReasonForRequest(Piece(cboProc.Items[cboProc.ItemIndex], U, 4), Resolve); + TmpSL.Assign(Result); + x := TmpSL.Text; + ExpandOrderObjects(x, HasObjects); + TmpSL.Text := x; + Responses.OrderContainsObjects := HasObjects; + ExecuteTemplateOrBoilerPlate(TmpSL, StrToIntDef(piece(piece(cboProc.Items[cboProc.ItemIndex],U,4),';',1),0), + ltProcedure, nil, 'Reason for Request: ' + cboProc.DisplayText[cboProc.ItemIndex], DocInfo); + if TmpSL.Text <> x then Responses.OrderContainsObjects := False; + Result.Assign(TmpSL); + finally + TmpSL.Free; + end; +end; + +procedure TfrmODProc.memReasonKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if FNavigatingTab then + begin + if ssShift in Shift then + FindNextControl(Sender as TWinControl, False, True, False).SetFocus //previous control + else if ssCtrl in Shift then + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + FNavigatingTab := False; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + Key := 0; + end; +end; + +procedure TfrmODProc.GetProvDxandValidateCode(AResponses: TResponses); +var + tmpDx: TResponse; +begin + with AResponses do + begin + tmpDx := TResponse(FindResponseByName('MISC',1)); + if tmpDx <> nil then ProvDx.Text := tmpDx.Evalue; + tmpDx := TResponse(FindResponseByName('CODE',1)); + if (tmpDx <> nil) and (tmpDx.EValue <> '') then + begin + if IsActiveICDCode(tmpDx.EValue) then + ProvDx.Code := tmpDx.Evalue + else + begin + if ProvDx.Reqd = 'R' then + InfoBox(TX_INACTIVE_CODE1 + TX_INACTIVE_CODE_REQD, TC_INACTIVE_CODE, MB_ICONWARNING or MB_OK) + else + InfoBox(TX_INACTIVE_CODE1 + TX_INACTIVE_CODE_OPTIONAL, TC_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + ProvDx.Code := ''; + ProvDx.Text := ''; + end; + end; + txtProvDiag.Text := ProvDx.Text; + if ProvDx.Code <> '' then txtProvDiag.Text := txtProvDiag.Text + ' (' + ProvDx.Code + ')'; + end; +end; + +procedure TfrmODProc.FormDestroy(Sender: TObject); +begin + inherited; + TAccessibleRichEdit.UnwrapControl(memReason); +end; + +procedure TfrmODProc.SetFontSize(FontSize: integer); +begin + inherited; + DoSetFontSize(FontSize); +end; + +procedure TfrmODProc.DoSetFontSize(FontSize: integer); +begin + memReason.Width := pnlReason.ClientWidth; + memReason.Height := pnlReason.ClientHeight;// - memReason.Height; MAC-0104-61043 - RV +end; + +procedure TfrmODProc.memReasonKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + //The navigating tab controls were inadvertantently adding tab characters + //This should fix it + FNavigatingTab := (Key = VK_TAB) and ([ssShift,ssCtrl] * Shift <> []); + if FNavigatingTab then + Key := 0; +end; + +procedure TfrmODProc.memReasonKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if FNavigatingTab then + Key := #0; //Disable shift-tab processing +end; + +procedure TfrmODProc.FormResize(Sender: TObject); +begin + inherited; + memOrder.Top := PnlReason.Top + PnlReason.Height + 5; + +end; + +procedure TfrmODProc.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + frmFrame.pnlVisit.Enabled := true; +end; + +end. + + diff --git a/CPRS-Chart/Consults/fPreReq.dfm b/CPRS-Chart/Consults/fPreReq.dfm new file mode 100644 index 0000000..43614cb --- /dev/null +++ b/CPRS-Chart/Consults/fPreReq.dfm @@ -0,0 +1,101 @@ +object frmPrerequisites: TfrmPrerequisites + Left = 337 + Top = 219 + Width = 377 + Height = 348 + BorderIcons = [biSystemMenu] + Caption = 'frmPrerequisites' + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblFontTest: TLabel + Left = 148 + Top = 208 + Width = 77 + Height = 14 + Caption = 'lblFontTest' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + end + object memReport: TRichEdit + Left = 0 + Top = 33 + Width = 369 + Height = 288 + Align = alClient + Color = clCream + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + Lines.Strings = ( + 'memReport') + ParentFont = False + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + WantReturns = False + WordWrap = False + end + object pnlButton: TPanel + Left = 0 + Top = 0 + Width = 369 + Height = 33 + Align = alTop + BevelOuter = bvNone + TabOrder = 2 + DesignSize = ( + 369 + 33) + object cmdContinue: TButton + Left = 209 + Top = 6 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Continue' + TabOrder = 0 + OnClick = cmdContinueClick + end + object cmdCancel: TButton + Left = 292 + Top = 6 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Cancel = True + Caption = 'Cancel Order' + TabOrder = 1 + OnClick = cmdCancelClick + end + end + object cmdPrint: TButton + Left = 2 + Top = 6 + Width = 75 + Height = 21 + Caption = 'Print' + TabOrder = 1 + OnClick = cmdPrintClick + end + object dlgPrintReport: TPrintDialog + Left = 113 + Top = 3 + end +end diff --git a/CPRS-Chart/Consults/fPreReq.pas b/CPRS-Chart/Consults/fPreReq.pas new file mode 100644 index 0000000..d1f006c --- /dev/null +++ b/CPRS-Chart/Consults/fPreReq.pas @@ -0,0 +1,201 @@ +unit fPreReq; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORFn, ComCtrls, ExtCtrls; + +type + TfrmPrerequisites = class(TForm) + lblFontTest: TLabel; + memReport: TRichEdit; + pnlButton: TPanel; + cmdContinue: TButton; + cmdCancel: TButton; + cmdPrint: TButton; + dlgPrintReport: TPrintDialog; + procedure memReportClick(Sender: TObject); + procedure cmdContinueClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cmdPrintClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + private + procedure AlignButtons(); + end; + +function DisplayPrerequisites(ReportText: TStrings; ReportTitle: string): Boolean; + +var + ContinueWithOrder: Boolean; + +implementation + +uses + uCore, rCore, rReports, Printers,rMisc; + +{$R *.DFM} + +function CreateReportBox(ReportText: TStrings; ReportTitle: string): TfrmPrerequisites; +var + i, AWidth, MaxWidth, AHeight: Integer; + Rect: TRect; +begin + Result := TfrmPrerequisites.Create(Application); + try + with Result do + begin + MaxWidth := PnlButton.Width; + for i := 0 to ReportText.Count - 1 do + begin + AWidth := lblFontTest.Canvas.TextWidth(ReportText[i]); + if AWidth > MaxWidth then MaxWidth := AWidth; + end; + MaxWidth := MaxWidth + (GetSystemMetrics(SM_CXFRAME) * 2) + GetSystemMetrics(SM_CXVSCROLL); + AHeight := (ReportText.Count * lblFontTest.Height) + ReportText.Count + + (GetSystemMetrics(SM_CYFRAME) * 3) + GetSystemMetrics(SM_CYCAPTION); + AHeight := AHeight + pnlbutton.Height; + AHeight := HigherOf(AHeight, 250); + if AHeight > (Screen.Height - 60) then AHeight := Screen.Height - 60; + if MaxWidth > Screen.Width then MaxWidth := Screen.Width; + Width := MaxWidth; + Height := AHeight; + Rect := BoundsRect; + ForceInsideWorkArea(Rect); + BoundsRect := Rect; + memReport.Lines.Assign(ReportText); + ResizeAnchoredFormToFont(result); + //Quick fix to work around glich in resize algorithim + AlignButtons(); + for i := 1 to Length(ReportTitle) do if ReportTitle[i] = #9 then ReportTitle[i] := ' '; + Caption := ReportTitle; + memReport.SelStart := 0; + end; + except + KillObj(@Result); + raise; + end; +end; + +function DisplayPrerequisites(ReportText: TStrings; ReportTitle: string): Boolean; +var + frmPrerequisites: TfrmPrerequisites; +begin + frmPrerequisites := CreateReportBox(ReportText, ReportTitle); + try + frmPrerequisites.ShowModal; + Result := ContinueWithOrder; + finally + frmPrerequisites.Release; + end; +end; + +procedure TfrmPrerequisites.memReportClick(Sender: TObject); +begin + //Close; +end; + +procedure TfrmPrerequisites.cmdContinueClick(Sender: TObject); +begin + ContinueWithOrder := True; + Close; +end; + +procedure TfrmPrerequisites.cmdCancelClick(Sender: TObject); +begin + ContinueWithOrder := False; + Close; +end; + +procedure TfrmPrerequisites.cmdPrintClick(Sender: TObject); +var + AHeader: TStringList; + memPrintReport: TRichEdit; + MaxLines, LastLine, ThisPage, i: integer; + ErrMsg: string; + RemoteSiteID: string; //for Remote site printing + RemoteQuery: string; //for Remote site printing +const + PAGE_BREAK = '**PAGE BREAK**'; +begin + RemoteSiteID := ''; + RemoteQuery := ''; + if dlgPrintReport.Execute then + begin + AHeader := TStringList.Create; + CreatePatientHeader(AHeader, Self.Caption); + memPrintReport := TRichEdit.Create(Self); + try + MaxLines := 60 - AHeader.Count; + LastLine := 0; + ThisPage := 0; + with memPrintReport do + begin + Visible := False; + Parent := Self; + Font.Name := 'Courier New'; + Font.Size := MainFontSize; + Width := Printer.Canvas.TextWidth(StringOfChar('-', 74)); + //Width := 600; + repeat + with Lines do + begin + AddStrings(AHeader); + for i := 0 to MaxLines do + if i < memReport.Lines.Count then + Add(memReport.Lines[LastLine + i]) + else + Break; + LastLine := LastLine + i; + Add(' '); + Add(' '); + Add(StringOfChar('-', 74)); + if LastLine >= memReport.Lines.Count - 1 then + Add('End of report') + else + begin + ThisPage := ThisPage + 1; + Add('Page ' + IntToStr(ThisPage)); + Add(PAGE_BREAK); + end; + end; + until LastLine >= memReport.Lines.Count - 1; + PrintWindowsReport(memPrintReport, PAGE_BREAK, Self.Caption, ErrMsg); + end; + finally + memPrintReport.Free; + AHeader.Free; + end; + end; + memReport.SelStart := 0; + memReport.Invalidate; +end; + +procedure TfrmPrerequisites.FormCreate(Sender: TObject); +begin + memreport.Color := ReadOnlyColor; + +end; + +procedure TfrmPrerequisites.AlignButtons; +Const + BtnSpace = 8; +begin + cmdCancel.Left := self.Width - cmdCancel.Width - BtnSpace; + cmdContinue.Left := cmdCancel.Left - BtnSpace - cmdContinue.Width; +end; + +procedure TfrmPrerequisites.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + SaveUserBounds(Self); //Save Position & Size of Form +end; + +procedure TfrmPrerequisites.FormShow(Sender: TObject); +begin + SetFormPosition(Self); //Get Saved Position & Size of Form +end; + +end. diff --git a/CPRS-Chart/Consults/rConsults.pas b/CPRS-Chart/Consults/rConsults.pas new file mode 100644 index 0000000..5fd2cd3 --- /dev/null +++ b/CPRS-Chart/Consults/rConsults.pas @@ -0,0 +1,847 @@ +unit rConsults; + +interface + +uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs, uConsults, rTIU, uTIU; + +type + + TUnresolvedConsults = record + UnresolvedConsultsExist: boolean; + ShowNagScreen: boolean; + end; + +{Consult Titles } +function DfltConsultTitle: integer; +function DfltConsultTitleName: string; +function DfltClinProcTitle: integer; +function DfltClinProcTitleName: string; +function IdentifyConsultsClass: integer; +function IdentifyClinProcClass: integer; +procedure ListConsultTitlesShort(Dest: TStrings); +procedure ListClinProcTitlesShort(Dest: TStrings); +function SubSetOfConsultTitles(const StartFrom: string; Direction: Integer; IDNoteTitlesOnly: boolean): TStrings; +function SubSetOfClinProcTitles(const StartFrom: string; Direction: Integer; IDNoteTitlesOnly: boolean): TStrings; +procedure ResetConsultTitles; +procedure ResetClinProcTitles; + +{ Data Retrieval } +procedure GetConsultsList(Dest: TStrings; Early, Late: double; + Service, Status: string; SortAscending: Boolean); +procedure LoadConsultDetail(Dest: TStrings; IEN: integer) ; +function GetCurrentContext: TSelectContext; +procedure SaveCurrentContext(AContext: TSelectContext) ; +procedure DisplayResults(Dest: TStrings; IEN: integer) ; +procedure GetConsultRec(IEN: integer) ; +function ShowSF513(ConsultIEN: integer): TStrings ; +procedure PrintSF513ToDevice(AConsult: Integer; const ADevice: string; ChartCopy: string; + var ErrMsg: string); +function GetFormattedSF513(AConsult: Integer; ChartCopy: string): TStrings; +function UnresolvedConsultsExist: boolean; +procedure GetUnresolvedConsultsInfo; + +{list box fillers} +function SubSetOfStatus: TStrings; +function SubSetOfUrgencies(ConsultIEN: integer): TStrings; +function LoadServiceList(Purpose: integer): TStrings ; +function LoadServiceListWithSynonyms(Purpose: integer): TStrings ; overload; +function LoadServiceListWithSynonyms(Purpose, ConsultIEN: integer): TStrings ; overload; +function SubSetOfServices(const StartFrom: string; Direction: Integer): TStrings; +function FindConsult(ConsultIEN: integer): string ; + +{user access level functions} +function ConsultServiceUser(ServiceIEN: integer; DUZ: int64): boolean ; +function GetActionMenuLevel(ConsultIEN: integer): TMenuAccessRec ; + +{consult result functions} +function GetAssignableMedResults(ConsultIEN: integer): TStrings; +function GetRemovableMedResults(ConsultIEN: integer): TStrings; +function GetDetailedMedicineResults(ResultID: string): TStrings; +procedure AttachMedicineResult(ConsultIEN: integer; ResultID: string; DateTime: TFMDateTime; ResponsiblePerson: int64; AlertTo: string); +procedure RemoveMedicineResult(ConsultIEN: integer; ResultID: string; DateTime: TFMDateTime; ResponsiblePerson: int64); + +{Consult Request Actions} +procedure ReceiveConsult(Dest: TStrings; IEN: integer; ReceivedBy: int64; RcptDate: TFMDateTime; Comments: TStrings); +procedure ScheduleConsult(Dest: TStrings; IEN: integer; ScheduledBy: Int64; SchdDate: TFMDateTime; Alert: integer; + AlertTo: string; Comments: TStrings); +procedure DiscontinueConsult(Dest: TStrings; IEN: integer; DiscontinuedBy: int64; + DiscontinueDate: TFMDateTime; Comments: TStrings); +procedure DenyConsult(Dest: TStrings; IEN: integer; DeniedBy: int64; + DenialDate: TFMDateTime; Comments: TStrings); +procedure ForwardConsult(Dest: TStrings; IEN, ToService: integer; Forwarder, AttentionOf: int64; + Urgency: integer; ActionDate: TFMDateTime; Comments: TStrings); +procedure AddComment(Dest: TStrings; IEN: integer; Comments: TStrings; ActionDate: TFMDateTime; Alert: integer; + AlertTo: string) ; +procedure SigFindings(Dest: TStrings; IEN: integer; SigFindingsFlag: string; Comments: TStrings; ActionDate: TFMDateTime;Alert: integer; + AlertTo: string) ; +procedure AdminComplete(Dest: TStrings; IEN: integer; SigFindingsFlag: string; Comments: TStrings; + RespProv: Int64; ActionDate: TFMDateTime; Alert: integer; AlertTo: string) ; + + { Consults Ordering Calls } +function ODForConsults: TStrings; +function ODForProcedures: TStrings; +function ConsultMessage(AnIEN: Integer): string; +function LoadConsultsQuickList: TStrings ; +function GetProcedureServices(ProcIEN: integer): TStrings; +function ConsultCanBeResubmitted(ConsultIEN: integer): string; +function LoadConsultForEdit(ConsultIEN: integer): TEditResubmitRec; +function ResubmitConsult(EditResubmitRec: TEditResubmitRec): string; +function SubSetOfProcedures(const StartFrom: string; Direction: Integer): TStrings; +function GetDefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings; +function ReasonForRequestEditable(Service: string): string; +function GetNewDialog(OrderType: string): string; +function GetServiceIEN(ORIEN: string): string; +function GetProcedureIEN(ORIEN: string): string; +function GetConsultOrderIEN(ConsultIEN: integer): string; +function GetServicePrerequisites(Service: string): TStrings; +procedure GetProvDxMode(var ProvDx: TProvisionalDiagnosis; SvcIEN: string); + +{ Clinical Procedures Specific} +function GetSavedCPFields(NoteIEN: integer): TEditNoteRec; + +var + uConsultsClass: integer; + uConsultTitles: TConsultTitles; + uClinProcClass: integer; + uClinProcTitles: TClinProcTitles; + uUnresolvedConsults: TUnresolvedConsults; + +implementation + +uses rODBase; + +var + uLastOrderedIEN: Integer; + uLastOrderMsg: string; + +{ -------------------------- Consult Titles --------------------------------- } + +function IdentifyConsultsClass: integer; +begin + if uConsultsClass = 0 then + uConsultsClass := StrToIntDef(sCallV('TIU IDENTIFY CONSULTS CLASS',[nil]), 0) ; + Result := uConsultsClass; +end; + +procedure LoadConsultTitles; +{ private - called one time to set up the uConsultTitles object } +var + x: string; +begin + if uConsultTitles <> nil then Exit; + CallV('TIU PERSONAL TITLE LIST', [User.DUZ, IdentifyConsultsClass]); + RPCBrokerV.Results.Insert(0, '~SHORT LIST'); // insert so can call ExtractItems + uConsultTitles := TConsultTitles.Create; + ExtractItems(uConsultTitles.ShortList, RPCBrokerV.Results, 'SHORT LIST'); + x := ExtractDefault(RPCBrokerV.Results, 'SHORT LIST'); + uConsultTitles.DfltTitle := StrToIntDef(Piece(x, U, 1), 0); + uConsultTitles.DfltTitleName := Piece(x, U, 2); +end; + +procedure ResetConsultTitles; +begin + if uConsultTitles <> nil then + begin + uConsultTitles.Free; + uConsultTitles := nil; + LoadConsultTitles; + end; +end; + +function DfltConsultTitle: integer; +{ returns the user defined default Consult title (if any) } +begin + if uConsultTitles = nil then LoadConsultTitles; + Result := uConsultTitles.DfltTitle; +end; + +function DfltConsultTitleName: string; +{ returns the name of the user defined default progress note title (if any) } +begin + if uConsultTitles = nil then LoadConsultTitles; + Result := uConsultTitles.DfltTitleName; +end; + +procedure ListConsultTitlesShort(Dest: TStrings); +{ returns the user defined list (short list) of Consult titles } +begin + if uConsultTitles = nil then LoadConsultTitles; + Dest.AddStrings(uConsultTitles.ShortList); + if uConsultTitles.ShortList.Count > 0 then + begin + Dest.Add('0^________________________________________________________________________'); + Dest.Add('0^ '); + end; +end; + +function SubSetOfConsultTitles(const StartFrom: string; Direction: Integer; IDNoteTitlesOnly: boolean): TStrings; +{ returns a pointer to a list of consults progress note titles (for use in a long list box) - + The return value is a pointer to RPCBrokerV.Results, so the data must be used BEFORE + the next broker call! } +begin +(* if IDNoteTitlesOnly then // This RPC not changed for initial ID Notes release + CallV('TIU LONG LIST CONSULT TITLES', [StartFrom, Direction, IDNoteTitlesOnly]) + else*) + CallV('TIU LONG LIST CONSULT TITLES', [StartFrom, Direction]); + //MixedCaseList(RPCBrokerV.Results); + Result := RPCBrokerV.Results; +end; + + +{ -------------------------- Clinical Procedures Titles --------------------------------- } +function IdentifyClinProcClass: integer; +begin + if uClinProcClass = 0 then + uClinProcClass := StrToIntDef(sCallV('TIU IDENTIFY CLINPROC CLASS',[nil]), 0) ; + Result := uClinProcClass; +end; + +procedure LoadClinProcTitles; +{ private - called one time to set up the uConsultTitles object } +var + x: string; +begin + if uClinProcTitles <> nil then Exit; + CallV('TIU PERSONAL TITLE LIST', [User.DUZ, IdentifyClinProcClass]); + RPCBrokerV.Results.Insert(0, '~SHORT LIST'); // insert so can call ExtractItems + uClinProcTitles := TClinProcTitles.Create; + ExtractItems(uClinProcTitles.ShortList, RPCBrokerV.Results, 'SHORT LIST'); + x := ExtractDefault(RPCBrokerV.Results, 'SHORT LIST'); + uClinProcTitles.DfltTitle := StrToIntDef(Piece(x, U, 1), 0); + uClinProcTitles.DfltTitleName := Piece(x, U, 2); +end; + +procedure ResetClinProcTitles; +begin + if uClinProcTitles <> nil then + begin + uClinProcTitles.Free; + uClinProcTitles := nil; + LoadClinProcTitles; + end; +end; + +function DfltClinProcTitle: integer; +{ returns the user defined default ClinProc title (if any) } +begin + if uClinProcTitles = nil then LoadClinProcTitles; + Result := uClinProcTitles.DfltTitle; +end; + +function DfltClinProcTitleName: string; +{ returns the name of the user defined default progress note title (if any) } +begin + if uClinProcTitles = nil then LoadClinProcTitles; + Result := uClinProcTitles.DfltTitleName; +end; + +procedure ListClinProcTitlesShort(Dest: TStrings); +{ returns the user defined list (short list) of ClinProc titles } +begin + if uClinProcTitles = nil then LoadClinProcTitles; + Dest.AddStrings(uClinProcTitles.ShortList); + if uClinProcTitles.ShortList.Count > 0 then + begin + Dest.Add('0^________________________________________________________________________'); + Dest.Add('0^ '); + end; +end; + +function SubSetOfClinProcTitles(const StartFrom: string; Direction: Integer; IDNoteTitlesOnly: boolean): TStrings; +{ returns a pointer to a list of clinical procedures titles (for use in a long list box) - + The return value is a pointer to RPCBrokerV.Results, so the data must be used BEFORE + the next broker call! } +begin +(* if IDNoteTitlesOnly then // This RPC not changed for initial ID Notes release + CallV('TIU LONG LIST CLINPROC TITLES', [StartFrom, Direction, IDNoteTitlesOnly]) + else*) + CallV('TIU LONG LIST CLINPROC TITLES', [StartFrom, Direction]); + //MixedCaseList(RPCBrokerV.Results); + Result := RPCBrokerV.Results; +end; + +{--------------- data retrieval ------------------------------------------} + +procedure GetConsultsList(Dest: TStrings; Early, Late: double; + Service, Status: string; SortAscending: Boolean); +{ returns a list of consults for a patient, based on selected dates, service, status, or ALL} +var + i: Integer; + x, date1, date2: string; +begin + if Early <= 0 then date1 := '' else date1 := FloatToStr(Early) ; + if Late <= 0 then date2 := '' else date2 := FloatToStr(Late) ; + CallV('ORQQCN LIST', [Patient.DFN, date1, date2, Service, Status]); + with RPCBrokerV do + begin + if Copy(Results[0],1,1) <> '<' then + begin + SortByPiece(TStringList(Results), U, 2); + if not SortAscending then InvertStringList(TStringList(Results)); + //SetListFMDateTime('mmm dd,yy', TStringList(Results), U, 2); + for i := 0 to Results.Count - 1 do + begin + x := MakeConsultListItem(Results[i]); + Results[i] := x; + end; + Dest.Assign(Results); + end + else + begin + Dest.Clear ; + Dest.Add('-1^No Matches') ; + end ; + end; +end; + +procedure LoadConsultDetail(Dest: TStrings; IEN: integer) ; +{ returns the detail of a consult } +begin + CallV('ORQQCN DETAIL', [IEN]); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure DisplayResults(Dest: TStrings; IEN: integer) ; +{ returns the results for a consult } +begin + CallV('ORQQCN MED RESULTS', [IEN]); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure GetConsultRec(IEN: integer); +{returns zero node from file 123, plus a list of all related TIU documents, if any} +const + SHOW_ADDENDA = True; +var + alist: TStrings; + x: string ; + i: integer; +{ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 +{ Pieces: EntDt^Pat^OrIFN^PtLoc^ToSvc^From^ReqDt^Typ^Urg^Place^Attn^Sts^LstAct^SndPrv^Rslt^ + 16 17 18 19 20 21 22 + ^EntMode^ReqTyp^InOut^SigFnd^TIUPtr^OrdFac^FrgnCslt} +begin + FillChar(ConsultRec, SizeOf(ConsultRec), 0); + CallV('ORQQCN GET CONSULT', [IEN, SHOW_ADDENDA]); + ConsultRec.IEN := IEN ; + alist := TStringList.Create ; + try + alist.Assign(RPCBrokerV.Results) ; + x := alist[0] ; + if Piece(x,u,1) <> '-1' then + with ConsultRec do + begin + EntryDate := MakeFMDateTime(Piece(x, U, 1)); + ORFileNumber := StrToIntDef(Piece(x, U, 3),0); + PatientLocation := StrToIntDef(Piece(x, U, 4),0); + OrderingFacility := StrToIntDef(Piece(x, U, 21),0); + ForeignConsultFileNum := StrToIntDef(Piece(x, U, 22),0); + ToService := StrToIntDef(Piece(x, U, 5),0); + From := StrToIntDef(Piece(x, U, 6),0); + RequestDate := MakeFMDateTime(Piece(x, U, 7)); + ConsultProcedure := Piece(x, U, 8) ; + Urgency := StrToIntDef(Piece(x, U, 9),0); + PlaceOfConsult := StrToIntDef(Piece(x, U, 10),0); + Attention := StrToInt64Def(Piece(x, U, 11),0); + ORStatus := StrToIntDef(Piece(x, U, 12),0); + LastAction := StrToIntDef(Piece(x, U, 13),0); + SendingProvider := StrToInt64Def(Piece(Piece(x, U, 14),';',1),0); + SendingProviderName := Piece(Piece(x, U, 14),';',2) ; + Result := Piece(x, U, 15) ; + ModeOfEntry := Piece(x, U, 16) ; + RequestType := StrToIntDef(Piece(x, U, 17),0); + InOut := Piece(x, U, 18) ; + Findings := Piece(x, U, 19) ; + TIUResultNarrative := StrToIntDef(Piece(x, U, 20),0); + //ProvDiagnosis := Piece(x, U, 23); NO!!!!! Up to 180 Characters!!!! + alist.delete(0) ; + TIUDocuments := TStringList.Create ; + MedResults := TStringList.Create; + if alist.count > 0 then + begin + SortByPiece(TStringList(alist), U, 3); + for i := 0 to alist.Count - 1 do + if Copy(Piece(Piece(alist[i], U, 1), ';', 2), 1, 4) = 'MCAR' then + MedResults.Add(alist[i]) + else + TIUDocuments.Add(alist[i]); + end; + end {ConsultRec} + else + ConsultRec.EntryDate := -1 ; + finally + alist.free ; + end ; +end ; + +{---------------- list box fillers -----------------------------------} + +function SubSetOfStatus: TStrings; +{ returns a pointer to a list of stati (for use in a list box) } +begin + CallV('ORQQCN STATUS', [nil]); + MixedCaseList(RPCBrokerV.Results); + Result := RPCBrokerV.Results; +end; + +function SubSetOfUrgencies(ConsultIEN: integer): TStrings; +{ returns a pointer to a list of urgencies } +begin + CallV('ORQQCN URGENCIES',[ConsultIEN]) ; + MixedCaseList(RPCBrokerV.Results); + Result := RPCBrokerV.Results; +end; + +function FindConsult(ConsultIEN: integer): string ; +var + x: string; +begin + x := sCallV('ORQQCN FIND CONSULT',[ConsultIEN]); + Result := MakeConsultListItem(x); +end; + +{-----------------consult result functions-----------------------------------} +function GetAssignableMedResults(ConsultIEN: integer): TStrings; +begin + CallV('ORQQCN ASSIGNABLE MED RESULTS', [ConsultIEN]); + Result := RPCBrokerV.Results; +end; + +function GetRemovableMedResults(ConsultIEN: integer): TStrings; +begin + CallV('ORQQCN REMOVABLE MED RESULTS', [ConsultIEN]); + Result := RPCBrokerV.Results; +end; + +function GetDetailedMedicineResults(ResultID: string): TStrings; +begin + CallV('ORQQCN GET MED RESULT DETAILS', [ResultID]); + Result := RPCBrokerV.Results; +end; + +procedure AttachMedicineResult(ConsultIEN: integer; ResultID: string; DateTime: TFMDateTime; ResponsiblePerson: int64; AlertTo: string); +begin + CallV('ORQQCN ATTACH MED RESULTS', [ConsultIEN, ResultID, DateTime, ResponsiblePerson, AlertTo]); +end; + +procedure RemoveMedicineResult(ConsultIEN: integer; ResultID: string; DateTime: TFMDateTime; ResponsiblePerson: int64); +begin + CallV('ORQQCN REMOVE MED RESULTS', [ConsultIEN, ResultID, DateTime, ResponsiblePerson]); +end; +{-------------- user access level functions ---------------------------------} + +function ConsultServiceUser(ServiceIEN: integer; DUZ: int64): boolean ; +var + i: integer ; +begin + Result := False ; + CallV('ORWU GENERIC', ['',1,'^GMR(123.5,'+IntToStr(ServiceIEN)+',123.3,"B")']) ; + for i:=0 to RPCBrokerV.Results.Count-1 do + if StrToInt64(Piece(RPCBrokerV.Results[i],u,2))=DUZ then result := True ; +end ; + +function GetActionMenuLevel(ConsultIEN: integer): TMenuAccessRec ; +var + x: string; +begin + x := sCallV('ORQQCN SET ACT MENUS', [ConsultIEN]) ; + Result.UserLevel := StrToIntDef(Piece(x, U, 1), 1); + Result.AllowMedResulting := (Piece(x, U, 4) = '1'); + Result.AllowMedDissociate := (Piece(x, U, 5) = '1'); + Result.AllowResubmit := (Piece(x, U, 6) = '1') and (Piece(ConsultCanBeResubmitted(ConsultIEN), U, 1) <> '0'); + Result.ClinProcFlag := StrToIntDef(Piece(x, U, 7), CP_NOT_CLINPROC); + Result.IsClinicalProcedure := (Result.ClinProcFlag > CP_NOT_CLINPROC); +end ; + +{------------------- Consult request actions -------------------------------} + +procedure ReceiveConsult(Dest: TStrings; IEN: integer; ReceivedBy: int64; RcptDate: TFMDateTime; Comments: TStrings); +begin + CallV('ORQQCN RECEIVE', [IEN, ReceivedBy, RcptDate, Comments]); + Dest.Assign(RPCBrokerV.Results); {1^Error message' or '0'} +end; + +procedure ScheduleConsult(Dest: TStrings; IEN: integer; ScheduledBy: Int64; SchdDate: TFMDateTime; Alert: integer; + AlertTo: string; Comments: TStrings); +begin + CallV('ORQQCN2 SCHEDULE CONSULT', [IEN, ScheduledBy, SchdDate, Alert, AlertTo, Comments]); + Dest.Assign(RPCBrokerV.Results); {1^Error message' or '0'} +end; + +procedure DenyConsult(Dest: TStrings; IEN: integer; DeniedBy: int64; + DenialDate: TFMDateTime; Comments: TStrings); +begin + CallV('ORQQCN DISCONTINUE', [IEN, DeniedBy, DenialDate,'DY',Comments]); + Dest.Assign(RPCBrokerV.Results); {1^Error message' or '0'} +end; + +procedure DiscontinueConsult(Dest: TStrings; IEN: integer; DiscontinuedBy: int64; + DiscontinueDate: TFMDateTime; Comments: TStrings); +begin + CallV('ORQQCN DISCONTINUE', [IEN, DiscontinuedBy, DiscontinueDate,'DC',Comments]); + Dest.Assign(RPCBrokerV.Results); {1^Error message' or '0'} +end; + +procedure ForwardConsult(Dest: TStrings; IEN, ToService: integer; Forwarder, AttentionOf: int64; Urgency: integer; + ActionDate: TFMDateTime; Comments: TStrings); +begin + CallV('ORQQCN FORWARD', [IEN, ToService, Forwarder, AttentionOf, Urgency, ActionDate, Comments]); + Dest.Assign(RPCBrokerV.Results); {1^Error message' or '0'} +end ; + +procedure AddComment(Dest: TStrings; IEN: integer; Comments: TStrings; ActionDate: TFMDateTime; Alert: integer; +AlertTo: string) ; +begin + CallV('ORQQCN ADDCMT', [IEN, Comments, Alert, AlertTo, ActionDate]); + Dest.Assign(RPCBrokerV.Results); {1^Error message' or '0'} +end ; + +procedure AdminComplete(Dest: TStrings; IEN: integer; SigFindingsFlag: string; Comments: TStrings; + RespProv: Int64; ActionDate: TFMDateTime; Alert: integer; AlertTo: string) ; +begin + CallV('ORQQCN ADMIN COMPLETE', [IEN, SigFindingsFlag, Comments, RespProv, Alert, AlertTo, ActionDate]); + Dest.Assign(RPCBrokerV.Results); {1^Error message' or '0'} +end ; + +procedure SigFindings(Dest: TStrings; IEN: integer; SigFindingsFlag: string; Comments: TStrings; ActionDate: TFMDateTime; Alert: integer; +AlertTo: string) ; +begin + CallV('ORQQCN SIGFIND', [IEN, SigFindingsFlag, Comments, Alert, AlertTo, ActionDate]); + Dest.Assign(RPCBrokerV.Results); {1^Error message' or '0'} +end ; + +//================== Ordering functions =================================== +function ODForConsults: TStrings; +{ Returns init values for consults dialog. The results must be used immediately. } +begin + CallV('ORWDCN32 DEF', ['C']); + Result := RPCBrokerV.Results; +end; + +function ODForProcedures: TStrings; +{ Returns init values for procedures dialog. The results must be used immediately. } +begin + CallV('ORWDCN32 DEF', ['P']); + Result := RPCBrokerV.Results; +end; + +function SubSetOfProcedures(const StartFrom: string; Direction: Integer): TStrings; +begin +begin + CallV('ORWDCN32 PROCEDURES', [StartFrom, Direction]); + Result := RPCBrokerV.Results; +end; +end; + +function LoadServiceList(Purpose: integer): TStrings ; +// Purpose: 0=display all services, 1=forward or order from possible services +begin + Callv('ORQQCN SVCTREE',[Purpose]) ; + MixedCaseList(RPCBrokerV.Results) ; + Result := RPCBrokerV.Results; +end ; + +function LoadServiceListWithSynonyms(Purpose: integer): TStrings ; +// Param 1 = Starting service (1=All Services) +// Param 2 = Purpose: 0=display all services, 1=forward or order from possible services +// Param 3 = Show synonyms +begin + Callv('ORQQCN SVC W/SYNONYMS',[1, Purpose, True]) ; + MixedCaseList(RPCBrokerV.Results) ; + Result := RPCBrokerV.Results; +end ; + +function LoadServiceListWithSynonyms(Purpose, ConsultIEN: integer): TStrings ; +// Param 1 = Starting service (1=All Services) +// Param 2 = Purpose: 0=display all services, 1=forward or order from possible services +// Param 3 = Show synonyms +// Param 4 = Consult IEN +begin + Callv('ORQQCN SVC W/SYNONYMS',[1, Purpose, True, ConsultIEN]) ; + MixedCaseList(RPCBrokerV.Results) ; + Result := RPCBrokerV.Results; +end ; + +function SubSetOfServices(const StartFrom: string; Direction: Integer): TStrings; +// used only on consults order dialog for service long combo box, which needs to include quick orders +begin + CallV('ORQQCN SVCLIST', [StartFrom, Direction]); + Result := RPCBrokerV.Results; +end; + +function LoadConsultsQuickList: TStrings ; +begin + Callv('ORWDXQ GETQLST',['CSLT', 'Q']) ; + Result := RPCBrokerV.Results; +end ; + +function ShowSF513(ConsultIEN: integer): TStrings ; +var + x: string; + i: integer; +begin + CallV('ORQQCN SHOW SF513',[ConsultIEN]) ; + if RPCBrokerV.Results.Count > 0 then + begin + x := RPCBrokerV.Results[0]; + i := Pos('-', x); + x := Copy(x, i, 999); + RPCBrokerV.Results[0] := x; + end; + Result := RPCBrokerV.Results; +end ; + +procedure PrintSF513ToDevice(AConsult: Integer; const ADevice: string; ChartCopy: string; + var ErrMsg: string); +{ prints a SF 513 on the selected device } +begin + ErrMsg := sCallV('ORQQCN PRINT SF513', [AConsult, ChartCopy, ADevice]); +// if Piece(ErrMsg, U, 1) = '0' then ErrMsg := '' else ErrMsg := Piece(ErrMsg, U, 2); +end; + +function GetFormattedSF513(AConsult: Integer; ChartCopy: string): TStrings; +begin + CallV('ORQQCN SF513 WINDOWS PRINT',[AConsult, ChartCopy]); + Result := RPCBrokerV.Results; +end; + +function UnresolvedConsultsExist: boolean; +begin + Result := (sCallV('ORQQCN UNRESOLVED', [Patient.DFN]) = '1'); +end; + +procedure GetUnresolvedConsultsInfo; +var + x: string; +begin + x := sCallV('ORQQCN UNRESOLVED', [Patient.DFN]); + with uUnresolvedConsults do + begin + UnresolvedConsultsExist := (Piece(x, U, 1) = '1'); + ShowNagScreen := (Piece(x, U, 2) = '1'); + end; +end; + +function ConsultMessage(AnIEN: Integer): string; +begin + if AnIEN = uLastOrderedIEN then Result := uLastOrderMsg else + begin + Result := sCallV('ORWDCN32 ORDRMSG', [AnIEN]); + uLastOrderedIEN := AnIEN; + uLastOrderMsg := Result; + end; +end; + +function GetProcedureIEN(ORIEN: string): string; +begin + Result := sCallV('ORQQCN GET PROC IEN', [ORIEN]); +end; + +function GetProcedureServices(ProcIEN: integer): TStrings; +begin + CallV('ORQQCN GET PROC SVCS',[ProcIEN]) ; + Result := RPCBrokerV.Results; +end; + +function ConsultCanBeResubmitted(ConsultIEN: integer): string; +begin + Result := sCallV('ORQQCN CANEDIT', [ConsultIEN]); +end; + +function LoadConsultForEdit(ConsultIEN: integer): TEditResubmitRec; +var + Dest: TStringList; + EditRec: TEditResubmitRec; +begin + Dest := TStringList.Create; + try + tCallV(Dest, 'ORQQCN LOAD FOR EDIT',[ConsultIEN]) ; + with EditRec do + begin + Changed := False; + IEN := ConsultIEN; + ToService := StrToIntDef(Piece(ExtractDefault(Dest, 'SERVICE'), U, 2), 0); + RequestType := Piece(ExtractDefault(Dest, 'TYPE'), U, 3); + OrderableItem := StrToIntDef(Piece(ExtractDefault(Dest, 'PROCEDURE'), U, 1), 0); + ConsultProc := Piece(ExtractDefault(Dest, 'PROCEDURE'), U, 3); + ConsultProcName := Piece(ExtractDefault(Dest, 'PROCEDURE'), U, 2); + Urgency := StrToIntDef(Piece(ExtractDefault(Dest, 'URGENCY'), U, 3), 0); + UrgencyName := Piece(ExtractDefault(Dest, 'URGENCY'), U, 2); + Place := Piece(ExtractDefault(Dest, 'PLACE'), U, 1); + PlaceName := Piece(ExtractDefault(Dest, 'PLACE'), U, 2); + Attention := StrToInt64Def(Piece(ExtractDefault(Dest, 'ATTENTION'), U, 1), 0); + AttnName := Piece(ExtractDefault(Dest, 'ATTENTION'), U, 2); + InpOutp := Piece(ExtractDefault(Dest, 'CATEGORY'), U, 1); + ProvDiagnosis := Piece(ExtractDefault(Dest, 'DIAGNOSIS'), U, 1); + ProvDxCode := Piece(ExtractDefault(Dest, 'DIAGNOSIS'), U, 2); + ProvDxCodeInactive := (Piece(ExtractDefault(Dest, 'DIAGNOSIS'), U, 3) = '1'); + RequestReason := TStringList.Create; + ExtractText(RequestReason, Dest, 'REASON'); + LimitStringLength(RequestReason, 74); + DenyComments := TStringList.Create; + ExtractText(DenyComments, Dest, 'DENY COMMENT'); + OtherComments := TStringList.Create; + ExtractText(OtherComments, Dest, 'ADDED COMMENT'); + NewComments := TStringList.Create; + end; + Result := EditRec; + finally + Dest.Free; + end; +end; + +function ResubmitConsult(EditResubmitRec: TEditResubmitRec): string; +var + i: integer; +begin + with RPCBrokerV, EditResubmitRec do + begin + ClearParameters := True; + RemoteProcedure := 'ORQQCN RESUBMIT'; + Param[0].PType := literal; + Param[0].Value := IntToStr(IEN); + Param[1].PType := list; + with Param[1] do + begin + if ToService > 0 then + Mult['1'] := 'GMRCSS^' + IntToStr(ToService); + if ConsultProc <> '' then + Mult['2'] := 'GMRCPROC^' + ConsultProc ; + if Urgency > 0 then + Mult['3'] := 'GMRCURG^' + IntToStr(Urgency); + if Length(Place) > 0 then + Mult['4'] := 'GMRCPL^' + Place; + if Attention > 0 then + Mult['5'] := 'GMRCATN^' + IntToStr(Attention) + else if Attention = -1 then + Mult['5'] := 'GMRCATN^' + '@'; + if RequestType <> '' then + Mult['6'] := 'GMRCRQT^' + RequestType; + if Length(InpOutP) > 0 then + Mult['7'] := 'GMRCION^' + InpOutp; + if Length(ProvDiagnosis) > 0 then + Mult['8'] := 'GMRCDIAG^' + ProvDiagnosis + U + ProvDxCode; + if RequestReason.Count > 0 then + begin + Mult['9'] := 'GMRCRFQ^20'; + for i := 0 to RequestReason.Count - 1 do + Mult['9,' + IntToStr(i+1)] := RequestReason.Strings[i]; + end; + if NewComments.Count > 0 then + begin + Mult['10'] := 'COMMENT^'; + for i := 0 to NewComments.Count - 1 do + Mult['10,' + IntToStr(i+1)] := NewComments.Strings[i]; + end; + end; + CallBroker; + Result := '0'; + //Result := Results[0]; + end; +end; + +function GetCurrentContext: TSelectContext; +var + x: string; + AContext: TSelectContext; +begin + x := sCallV('ORQQCN2 GET CONTEXT', [User.DUZ]) ; + with AContext do + begin + Changed := True; + BeginDate := Piece(x, ';', 1); + EndDate := Piece(x, ';', 2); + Status := Piece(x, ';', 3); + Service := Piece(x, ';', 4); + GroupBy := Piece(x, ';', 5); + Ascending := (Piece(x, ';', 6) = '1'); + end; + Result := AContext; +end; + +procedure SaveCurrentContext(AContext: TSelectContext) ; +var + x: string; +begin + with AContext do + begin + SetPiece(x, ';', 1, BeginDate); + SetPiece(x, ';', 2, EndDate); + SetPiece(x, ';', 3, Status); + SetPiece(x, ';', 4, Service); + SetPiece(x, ';', 5, GroupBy); + SetPiece(x, ';', 6, BOOLCHAR[Ascending]); + end; + CallV('ORQQCN2 SAVE CONTEXT', [x]); +end; + +function GetDefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings; +begin + CallV('ORQQCN DEFAULT REQUEST REASON',[Service, Patient.DFN, Resolve]) ; + Result := RPCBrokerV.Results; +end; + +function ReasonForRequestEditable(Service: string): string; +begin + Result := sCallV('ORQQCN EDIT DEFAULT REASON', [Service]); +end; + +function GetServicePrerequisites(Service: string): TStrings; +begin + CallV('ORQQCN2 GET PREREQUISITE',[Service, Patient.DFN]) ; + Result := RPCBrokerV.Results; +end; + +function GetNewDialog(OrderType: string): string; +{ get dialog for new consults} +begin + Result := sCallV('ORWDCN32 NEWDLG', [OrderType, Encounter.Location]); +end; + +function GetServiceIEN(ORIEN: string): string; +begin + Result := sCallV('ORQQCN GET SERVICE IEN', [ORIEN]); +end; + +procedure GetProvDxMode(var ProvDx: TProvisionalDiagnosis; SvcIEN: string); +var + x: string; +begin + x := sCallV('ORQQCN PROVDX', [SvcIEN]); + ProvDx.Reqd := Piece(x, U, 1); + ProvDx.PromptMode := Piece(x, U, 2); +end; + +function GetConsultOrderIEN(ConsultIEN: integer): string; +begin + Result := sCallV('ORQQCN GET ORDER NUMBER', [ConsultIEN]); +end; + +function GetSavedCPFields(NoteIEN: integer): TEditNoteRec; +var + x: string; + AnEditRec: TEditNoteRec; +begin + x := sCallV('ORWTIU GET SAVED CP FIELDS', [NoteIEN]); + with AnEditRec do + begin + Author := StrToInt64Def(Piece(x, U, 1), 0); + Cosigner := StrToInt64Def(Piece(x, U, 2), 0); + ClinProcSummCode := StrToIntDef(Piece(x, U, 3), 0); + ClinProcDateTime := StrToFMDateTime(Piece(x, U, 4)); + Title := StrToIntDef(Piece(x, U, 5), 0); + end; + Result := AnEditRec; +end; + +initialization + uLastOrderedIEN := 0; + uLastOrderMsg := ''; + uConsultsClass := 0; + uClinProcClass := 0; + +finalization + if uConsultTitles <> nil then uConsultTitles.Free; + if uClinProcTitles <> nil then uClinProcTitles.Free; + +end. diff --git a/CPRS-Chart/Consults/uConsults.pas b/CPRS-Chart/Consults/uConsults.pas new file mode 100644 index 0000000..a1e41e4 --- /dev/null +++ b/CPRS-Chart/Consults/uConsults.pas @@ -0,0 +1,453 @@ +unit uConsults; + +interface + +uses + SysUtils, Windows, Messages, Controls, Classes, StdCtrls, ORfn, uTIU, ORCtrls; + +type + + TConsultRequest = record {file 123} {Order Dialog} + IEN: integer ; {.001} + EntryDate: TFMDateTime ; { .01} + ORFileNumber: integer ; { .03} + PatientLocation: integer ; { .04} + OrderingFacility: integer ; { .05} + ForeignConsultFileNum: integer ; { .06} + ToService: integer ; { 1} { * } + From: integer ; { 2} + RequestDate: TFMDateTime ; { 3} + ConsultProcedure: string ; { 4} + Urgency: integer ; { 5} { * } + PlaceOfConsult: integer ; { 6} { * } + Attention: int64 ; { 7} { * } + ORStatus: integer ; { 8} + LastAction: integer ; { 9} + SendingProvider: int64 ; { 10} + SendingProviderName: string ; + Result: string ; { 11} + ModeOfEntry: string ; { 12} + RequestType: integer ; { 13} + InOut: string ; { 14} { * } + Findings: string ; { 15} + TIUResultNarrative: integer ; { 16} + TIUDocuments: TStrings ; {from '50' node of file 123} + MedResults: TStrings; {from '50' node of file 123} + RequestReason: TStringList ; { 20} { * } + ProvDiagnosis: string ; { 30} { * } + ProvDxCode: string; { 30.1} + RequestProcessingActivity: TStringList; { 40} + end ; + + TEditResubmitRec = record + Changed: boolean; + IEN: integer; + OrderableItem: integer; + RequestType: string; + ToService: integer; + ToServiceName: string; + ConsultProc: string; + ConsultProcName: string; + Urgency: integer; + UrgencyName: string; + Place: string; + PlaceName: string; + Attention: int64; + AttnName: string; + InpOutp: string; + RequestReason: TStringList; + ProvDiagnosis: string; + ProvDxCode: string; + ProvDxCodeInactive: boolean; + DenyComments: TStringList; + OtherComments: TStringList; + NewComments: TStringList; + end; + + TSelectContext = record + Changed: Boolean; + BeginDate: string; + EndDate: string; + Ascending: Boolean; + Service: string; + ServiceName: string; + ConsultUser: Boolean ; + Status: string; + StatusName: string; + GroupBy: string; + end ; + + TMenuAccessRec = record + UserLevel: integer; + AllowMedResulting: Boolean; + AllowMedDissociate: Boolean; + AllowResubmit: Boolean; + ClinProcFlag: integer; + IsClinicalProcedure: Boolean; + end; + + TProvisionalDiagnosis = record + Code: string; + Text: string; + CodeInactive: boolean; + Reqd: string; + PromptMode: string; + end; + + TConsultTitles = class + DfltTitle: Integer; + DfltTitleName: string; + ShortList: TStringList; + constructor Create; + destructor Destroy; override; + end; + + TClinProcTitles = class + DfltTitle: Integer; + DfltTitleName: string; + ShortList: TStringList; + constructor Create; + destructor Destroy; override; + end; + +function MakeConsultListItem(InputString: string):string; +function MakeConsultListDisplayText(InputString: string): string; +function MakeConsultNoteDisplayText(RawText: string): string; +procedure BuildServiceTree(Tree: TORTreeView; SvcList: TStrings; const Parent: string; Node: TORTreeNode); +procedure CreateListItemsForConsultTree(Dest, Source: TStrings; Context: integer; GroupBy: string; + Ascending: Boolean); +procedure BuildConsultsTree(Tree: TORTreeView; tmpList: TStrings; const Parent: string; Node: TORTreeNode; + CurrentContext: TSelectContext); +procedure SetNodeImage(Node: TORTreeNode; CurrentContext: TSelectContext); + +const + CN_SVC_LIST_DISP = 0 ; + CN_SVC_LIST_FWD = 1 ; + CN_SVC_LIST_ORD = 1 ; + CSLT_PTR = ';99CON'; + PROC_PTR = ';99PRC'; + + {MenuAccessRec.UserLevel} + UL_NONE = 0; + UL_REVIEW = 1; + UL_UPDATE = 2; + UL_ADMIN = 3; + UL_UPDATE_AND_ADMIN = 4; + + {Clinical Procedure statuses} + CP_NOT_CLINPROC = 0; + CP_NO_INSTRUMENT = 1; + CP_INSTR_NO_STUB = 2; + CP_INSTR_INCOMPLETE = 3; + CP_INSTR_COMPLETE = 4; + + CN_NEW_CSLT_NOTE = '-30'; + CN_NEW_CP_NOTE = '-20'; + +var + ConsultRec: TConsultRequest ; + +implementation + +uses + uConst; + +constructor TConsultTitles.Create; +{ creates an object to store Consult titles so only obtained from server once } +begin + inherited Create; + ShortList := TStringList.Create; +end; + +destructor TConsultTitles.Destroy; +{ frees the lists that were used to store the Consult titles } +begin + ShortList.Free; + inherited Destroy; +end; + +constructor TClinProcTitles.Create; +{ creates an object to store ClinProc titles so only obtained from server once } +begin + inherited Create; + ShortList := TStringList.Create; +end; + +destructor TClinProcTitles.Destroy; +{ frees the lists that were used to store the ClinProc titles } +begin + ShortList.Free; + inherited Destroy; +end; + +{============================================================================================ +1016^Jun 04,98 ^(dc)^ COLONOSCOPY GASTROENTEROLOGY Proc^Consult #: 1016^15814^^P +1033^Jun 10,98 ^(c)^ GASTROENTEROLOGY Cons^Consult #: 1033^15881^^C +============================================================================================= +function call [GetConsultsList] returns the following string '^' pieces: +=============================================================== + 1 - Consult IEN + 2 - Consult Date + 3 - (Status) + 4 - Consult/Procedure Display Text + 5 - Consult #: ### + 6 - Order IFN + 7 - '' (used for HasChildren in tree) + 8 - Parent in tree + 9 - 'Consult', 'Procedure', or 'Clinical Procedure' + 10 - Service Name + 11 - FMDate of piece 2 + 12 - 'C' or 'P' or 'M' or 'I' or 'R' +===============================================================} + +function MakeConsultListItem(InputString: string): string; +var + x: string; +begin + x := InputString; + if Piece(x, U, 6) = '' then SetPiece(x, U, 6, ' '); + if Piece(x, U, 9) <> '' then + case Piece(x, U, 9)[1] of + 'C': SetPiece(x, U, 10, 'Consult'); + 'P': SetPiece(x, U, 10, 'Procedure'); + 'M': SetPiece(x, U, 10, 'Procedure'); //'Clinical Procedure'); + 'I': SetPiece(x, U, 10, 'Consult - Interfacility'); + 'R': SetPiece(x, U, 10, 'Procedure - Interfacility'); + end + else + begin + if Piece(x, U, 5) = 'Consult' then SetPiece(x, U, 10, 'Consult') + else SetPiece(x, U, 10, 'Procedure'); + end; + x := Piece(x, U, 1) + U + FormatFMDateTime('mmm dd,yy', MakeFMDateTime(Piece(x, U, 2))) + ' ' + U + '(' + Piece(x, U, 3) + ')' + U + Piece(x, U, 6) + Piece(x, U, 7) + U + + 'Consult #: ' + Piece(x, U, 1) + U + Piece(x, U, 8) + U + U + U + Piece(x, U, 10) + U + Piece(x, U, 4)+ U + + Piece(x, U, 2) + U + Piece(x, U, 9); + Result := x; +end; + +function MakeConsultListDisplayText(InputString: string): string; +var + x: string; +begin + x := InputString; + x := Piece(x, U, 2) + ' ' + Piece(x, U, 3) + ' ' + Piece(x, U, 4) + ' ' + Piece(x, U, 5); + Result := x; +end; + +function MakeConsultNoteDisplayText(RawText: string): string; +var + x: string; +begin + x := RawText; + if Piece(x, U, 1)[1] in ['A', 'N', 'E'] then + x := Piece(x, U, 2) + else + begin + x := FormatFMDateTime('mmm dd,yy', MakeFMDateTime(Piece(x, U, 3))) + ' ' + Piece(x, U, 2) + + ' (#' + Piece(Piece(x, U, 1), ';', 1) + ')'; + if not (Copy(Piece(Piece(RawText, U, 1), ';', 2), 1, 4) = 'MCAR') then + x := x + ', ' + Piece(RawText, U, 6) + ', ' + Piece(Piece(RawText, U, 5), ';', 2); + end; + Result := x; +end; + +procedure BuildServiceTree(Tree: TORTreeView; SvcList: TStrings; const Parent: string; Node: TORTreeNode); +var + MyID, MyParent, Name, temp: string; + i: Integer; + ChildNode, tmpNode: TORTreeNode; + HasChildren: Boolean; +begin + Tree.Items.BeginUpdate; + with SvcList do for i := 0 to Count - 1 do + begin + if Piece(Strings[i], U, 5) = 'S' then Continue; // V19.4 {rv} + //if Piece(Strings[i], U, 6) = 'S' then Continue; + MyParent := Piece(Strings[i], U, 3); + if (MyParent = Parent) then + begin + MyID := Piece(Strings[i], U, 1); + Name := Piece(Strings[i], U, 2); + temp := Strings[i]; + tmpNode := nil; + HasChildren := Piece(Strings[i], U, 4) = '+'; + if Node <> nil then if Node.HasChildren then + tmpNode := Tree.FindPieceNode(MyID, 1, U, Node); + if (tmpNode <> nil) and tmpNode.HasAsParent(Node) then + Continue + else + begin + ChildNode := TORTreeNode(Tree.Items.AddChild(Node, Name)); + ChildNode.StringData := temp; + if HasChildren then BuildServiceTree(Tree, SvcList, MyID, ChildNode); + end; + end; + end; + Tree.Items.EndUpdate; +end; + +procedure CreateListItemsForConsultTree(Dest, Source: TStrings; Context: integer; GroupBy: string; + Ascending: Boolean); +var + i: Integer; + x, x3, MyParent, MyService, MyStatus, MyType, StatusText: string; + AList, SrcList: TStringList; +begin + AList := TStringList.Create; + SrcList := TStringList.Create; + try + SrcList.Assign(Source); + with SrcList do + begin + if (Count = 1) and (Piece(Strings[0], U, 1) = '-1') then + begin + Dest.Insert(0, IntToStr(Context) + '^^^' + 'No Matching Consults Found' + '^^^^0^^^^'); + Exit; + end; + for i := 0 to Count - 1 do + begin + x := Strings[i]; + MyType := Piece(x, U, 9); + if Context = 0 then Context := CC_ALL; + SetPiece(x, U, 8, IntToStr(Context)); + MyParent := Piece(x, U, 8); + MyService := Piece(x, U, 10); + MyStatus := Piece(x, U, 3); + if Length(Trim(MyService)) = 0 then + begin + MyService := '** No Service **'; + SetPiece(x, U, 10, MyService); + end; + if Length(Trim(MyStatus)) = 0 then + begin + MyStatus := '** No Status **'; + SetPiece(x, U, 3, MyStatus); + end; + if GroupBy <> '' then case GroupBy[1] of + 'S': begin + SetPiece(x, U, 8, MyParent + MyStatus); + if MyStatus = '(a)' then StatusText := 'Active' + else if MyStatus = '(p)' then StatusText := 'Pending' + else if MyStatus = '(pr)' then StatusText := 'Partial Results' + else if MyStatus = '(s)' then StatusText := 'Scheduled' + else if MyStatus = '(x)' then StatusText := 'Cancelled' + else if MyStatus = '(dc)' then StatusText := 'Discontinued' + else if MyStatus = '(c)' then StatusText := 'Completed' + else StatusText := 'Other'; + x3 := MyStatus + U + StatusText + U + IntToStr(Context); + if (AList.IndexOf(x3) = -1) then AList.Add(x3); + end; + 'V': begin + SetPiece(x, U, 8, MyParent + MyService); + x3 := MyService + U + MixedCase(MyService) + U + IntToStr(Context); + if (AList.IndexOf(x3) = -1) then AList.Add(x3); + end; + 'T': begin + SetPiece(x, U, 8, MyParent + MyType); + x3 := MyType + U + MixedCase(MyType) + U + IntToStr(Context); + if (AList.IndexOf(x3) = -1) then AList.Add(x3); + end; + end; + Dest.Add(x); + end; {for} + SortByPiece(TStringList(Dest), U, 11); + if not Ascending then InvertStringList(TStringList(Dest)); + Dest.Insert(0, IntToStr(Context) + '^^^' + CC_TV_TEXT[Context] + '^^^+^0^^^^'); + Alist.Sort; + InvertStringList(AList); + for i := 0 to AList.Count-1 do + Dest.Insert(0, IntToStr(Context) + Piece(AList[i], U, 1) + '^^^' + Piece(AList[i], U, 2) + '^^^+^' + Piece(AList[i], U, 3) + '^^^^'); + end; + finally + AList.Free; + SrcList.Free; + end; +end; + +procedure BuildConsultsTree(Tree: TORTreeView; tmpList: TStrings; const Parent: string; Node: TORTreeNode; + CurrentContext: TSelectContext); +var + MyID, MyParent, Name, temp: string; + i: Integer; + ChildNode, tmpNode: TORTreeNode; + HasChildren: Boolean; +begin + Tree.Items.BeginUpdate; + with tmpList do for i := 0 to Count - 1 do + begin + MyParent := Piece(Strings[i], U, 8); + if (MyParent = Parent) then + begin + MyID := Piece(Strings[i], U, 1); + Name := MakeConsultListDisplayText(Strings[i]); + temp := Strings[i]; + tmpNode := nil; + HasChildren := Piece(Strings[i], U, 7) = '+'; + if Node <> nil then if Node.HasChildren then + tmpNode := Tree.FindPieceNode(MyID, 1, U, Node); + if (tmpNode <> nil) and tmpNode.HasAsParent(Node) then + Continue + else + begin + ChildNode := TORTreeNode(Tree.Items.AddChild(Node, Name)); + ChildNode.StringData := temp; + SetNodeImage(ChildNode, CurrentContext); + if HasChildren then + BuildConsultsTree(Tree, tmpList, MyID, ChildNode, CurrentContext); + end; + end; + end; + Tree.Items.EndUpdate; +end; + +procedure SetNodeImage(Node: TORTreeNode; CurrentContext: TSelectContext); +begin + with Node do + begin + if Piece(Stringdata, U, 8) = '0' then + begin + ImageIndex := IMG_GMRC_TOP_LEVEL; + SelectedIndex := IMG_GMRC_TOP_LEVEL; + if (Piece(StringData, U, 4) = 'No Matching Consults Found') then exit; + if Piece(Stringdata, U, 1) <> '-1' then + with CurrentContext, Node do + if GroupBy <> '' then case GroupBy[1] of + 'V': Text := CC_TV_TEXT[StrToInt(Piece(Stringdata, U, 1))] + ' by Service'; + 'S': Text := CC_TV_TEXT[StrToInt(Piece(Stringdata, U, 1))] + ' by Status'; + 'T': Text := CC_TV_TEXT[StrToInt(Piece(Stringdata, U, 1))] + ' by Type'; + end; + end + else + begin + if Piece(Stringdata, U, 7) <> '' then + case Piece(Stringdata, U, 7)[1] of + '+': begin + ImageIndex := IMG_GMRC_GROUP_SHUT; + SelectedIndex := IMG_GMRC_GROUP_OPEN; + end; + end + else + begin + if Piece(StringData, U, 12) <> '' then + case Piece(StringData, U, 12)[1] of + 'C': ImageIndex := IMG_GMRC_CONSULT; + 'P': ImageIndex := IMG_GMRC_ALL_PROC; //IMG_GMRC_PROC; + 'M': ImageIndex := IMG_GMRC_ALL_PROC; //IMG_GMRC_CLINPROC; + 'I': ImageIndex := IMG_GMRC_IFC_CONSULT; + 'R': ImageIndex := IMG_GMRC_IFC_PROC; + end + else + begin + if Piece(StringData, U, 9) = 'Procedure' then + ImageIndex := IMG_GMRC_ALL_PROC + else + ImageIndex := IMG_GMRC_CONSULT; + end; + SelectedIndex := ImageIndex; + end; + end; + StateIndex := IMG_NONE; + end; +end; + +end. diff --git a/CPRS-Chart/Copy of fPtSelOptns.ddp b/CPRS-Chart/Copy of fPtSelOptns.ddp new file mode 100644 index 0000000..4370276 Binary files /dev/null and b/CPRS-Chart/Copy of fPtSelOptns.ddp differ diff --git a/CPRS-Chart/Encounter/fDiagnoses.dfm b/CPRS-Chart/Encounter/fDiagnoses.dfm new file mode 100644 index 0000000..fcda97f --- /dev/null +++ b/CPRS-Chart/Encounter/fDiagnoses.dfm @@ -0,0 +1,106 @@ +inherited frmDiagnoses: TfrmDiagnoses + Left = 304 + Top = 169 + Caption = 'Encounter Diagnoses' + PixelsPerInch = 96 + TextHeight = 13 + object lblAdd2PL: TLabel [0] + Left = 555 + Top = 255 + Width = 53 + Height = 26 + Caption = 'Add to Problem list' + WordWrap = True + end + inherited lblSection: TLabel + Width = 89 + Caption = 'Diagnoses Section' + end + inherited btnOK: TBitBtn + TabOrder = 7 + end + inherited btnCancel: TBitBtn + TabOrder = 8 + end + inherited pnlGrid: TPanel + Width = 523 + TabOrder = 1 + inherited lbGrid: TORListBox + Tag = 20 + Width = 523 + Pieces = '1,2,3' + end + inherited hcGrid: THeaderControl + Width = 523 + Sections = < + item + ImageIndex = -1 + MinWidth = 60 + Text = 'Add to PL' + Width = 60 + end + item + ImageIndex = -1 + MinWidth = 65 + Text = 'Primary' + Width = 65 + end + item + ImageIndex = -1 + MinWidth = 110 + Text = 'Selected Diagnoses' + Width = 110 + end> + end + end + inherited edtComment: TCaptionEdit + TabOrder = 3 + end + inherited btnRemove: TButton + TabOrder = 6 + end + inherited btnSelectAll: TButton + Left = 454 + TabOrder = 2 + TabStop = True + end + inherited pnlMain: TPanel + TabOrder = 0 + inherited lbxSection: TORListBox + Tag = 20 + Height = 196 + IntegralHeight = True + Pieces = '2,3,4,5' + end + inherited pnlLeft: TPanel + inherited lbSection: TORListBox + Tag = 20 + TabOrder = 0 + end + inherited btnOther: TButton + Tag = 12 + Caption = 'Other Diagnosis...' + TabOrder = 1 + end + end + end + object cmdDiagPrimary: TButton + Left = 536 + Top = 306 + Width = 75 + Height = 21 + Caption = 'Primary' + Enabled = False + TabOrder = 5 + OnClick = cmdDiagPrimaryClick + end + object ckbDiagProb: TCheckBox + Left = 536 + Top = 262 + Width = 13 + Height = 13 + Caption = 'Add to Problem list' + TabOrder = 4 + OnClick = ckbDiagProbClicked + end +end diff --git a/CPRS-Chart/Encounter/fDiagnoses.pas b/CPRS-Chart/Encounter/fDiagnoses.pas new file mode 100644 index 0000000..4da6974 --- /dev/null +++ b/CPRS-Chart/Encounter/fDiagnoses.pas @@ -0,0 +1,259 @@ +unit fDiagnoses; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, StdCtrls, CheckLst, ORCtrls, ORNet, ExtCtrls, Buttons, uPCE, rPCE, ORFn, + ComCtrls, fPCEBaseMain, UBAGlobals, UBAConst, UCore; + +type + TfrmDiagnoses = class(TfrmPCEBaseMain) + cmdDiagPrimary: TButton; + ckbDiagProb: TCheckBox; + lblAdd2PL: TLabel; + procedure cmdDiagPrimaryClick(Sender: TObject); + procedure ckbDiagProbClicked(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure FormResize(Sender: TObject); override; + procedure lbxSectionClickCheck(Sender: TObject; Index: Integer); + procedure btnOKClick(Sender: TObject); override; + procedure lbSectionClick(Sender: TObject); + procedure GetEncounterDiagnoses; + procedure lbSectionDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + private + procedure EnsurePrimaryDiag; + + protected + procedure UpdateNewItemStr(var x: string); override; + procedure UpdateControls; override; + public + end; + +const + TX_INACTIVE_CODE = 'The "#" character next to the code for this problem indicates that the problem' + #13#10 + + 'references an ICD code that is not active as of the date of this encounter.' + #13#10 + + 'Before you can select this problem, you must update the ICD code it contains' + #13#10 + + 'via the Problems tab.'; + TC_INACTIVE_CODE = 'Problem Contains Inactive Code'; + +var + frmDiagnoses: TfrmDiagnoses; + dxList : TStringList; + +implementation + +{$R *.DFM} + +uses + fEncounterFrame, uConst, UBACore; + +procedure TfrmDiagnoses.EnsurePrimaryDiag; +var + i: Integer; + Primary: Boolean; + +begin + with lbGrid do + begin + Primary := False; + for i := 0 to Items.Count - 1 do + if TPCEDiag(Items.Objects[i]).Primary then + Primary := True; + + if not Primary and (Items.Count > 0) then + begin + GridIndex := 0; + TPCEDiag(Items.Objects[0]).Primary := True; + GridChanged; + end; + end; +end; + +procedure TfrmDiagnoses.cmdDiagPrimaryClick(Sender: TObject); +var + gi, i: Integer; + ADiagnosis: TPCEDiag; + +begin + inherited; + gi := GridIndex; + with lbGrid do for i := 0 to Items.Count - 1 do + begin + ADiagnosis := TPCEDiag(Items.Objects[i]); + ADiagnosis.Primary := (gi = i); + end; + GridChanged; +end; + +procedure TfrmDiagnoses.ckbDiagProbClicked(Sender: TObject); +var + i: integer; +const + PL_ITEMS = 'Problem List Items'; + +begin + inherited; + if(NotUpdating) then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCEDiag(lbGrid.Items.Objects[i]).AddProb := (ckbDiagProb.Checked) and + (TPCEDiag(lbGrid.Items.Objects[i]).Category <> PL_ITEMS); + GridChanged; + end; +end; + +procedure TfrmDiagnoses.FormCreate(Sender: TObject); +begin + inherited; + FTabName := CT_DiagNm; + FPCEListCodesProc := ListDiagnosisCodes; + FPCEItemClass := TPCEDiag; + FPCECode := 'POV'; + FSectionTabCount := 3; + FormResize(Self); +end; + +procedure TfrmDiagnoses.btnRemoveClick(Sender: TObject); +begin + inherited; + EnsurePrimaryDiag; +end; + +procedure TfrmDiagnoses.UpdateNewItemStr(var x: string); +begin + inherited; + if lbGrid.Items.Count = 0 then + x := x + U + '1' + else + x := x + U + '0'; +end; + +procedure TfrmDiagnoses.UpdateControls; +var + i, j, k, PLItemCount: integer; + OK: boolean; +const + PL_ITEMS = 'Problem List Items'; +begin + inherited; + if(NotUpdating) then + begin + BeginUpdate; + try + cmdDiagPrimary.Enabled := (lbGrid.SelCount = 1); + OK := (lbGrid.SelCount > 0); + PLItemCount := 0; + if OK then + for k := 0 to lbGrid.Items.Count - 1 do + if (lbGrid.Selected[k]) and (TPCEDiag(lbGrid.Items.Objects[k]).Category = PL_ITEMS) then + PLItemCount := PLItemCount + 1; + OK := OK and (PLItemCount < lbGrid.SelCount); + lblAdd2PL.Enabled := OK; + ckbDiagProb.Enabled := OK; + if(OK) then + begin + j := 0; + for i := 0 to lbGrid.Items.Count-1 do + begin + if(lbGrid.Selected[i]) and (TPCEDiag(lbGrid.Items.Objects[i]).AddProb) then + inc(j); + end; + if(j = 0) then + ckbDiagProb.Checked := FALSE + else + if(j < lbGrid.SelCount) then + ckbDiagProb.State := cbGrayed + else + ckbDiagProb.Checked := TRUE; + end + else + ckbDiagProb.Checked := FALSE; + finally + EndUpdate; + end; + end; +end; + +procedure TfrmDiagnoses.FormResize(Sender: TObject); +begin + inherited; + FSectionTabs[0] := -(lbxSection.width - LBCheckWidthSpace - (8*MainFontWidth) - ScrollBarWidth); + FSectionTabs[1] := -FSectionTabs[0]+2; + FSectionTabs[2] := -FSectionTabs[0]+4; + UpdateTabPos; +end; + +procedure TfrmDiagnoses.lbxSectionClickCheck(Sender: TObject; + Index: Integer); +begin + if not FUpdatingGrid then + if (lbxSection.Checked[Index]) and (Piece(lbxSection.Items[Index], U, 5) = '#') then + begin + InfoBox(TX_INACTIVE_CODE, TC_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + lbxSection.Checked[Index] := False; + exit; + end; + inherited; + EnsurePrimaryDiag; +end; + +procedure TfrmDiagnoses.btnOKClick(Sender: TObject); +begin + inherited; + if BILLING_AWARE then + GetEncounterDiagnoses; +end; + +procedure TfrmDiagnoses.lbSectionClick(Sender: TObject); +begin + inherited; +// +end; + +procedure TfrmDiagnoses.GetEncounterDiagnoses; +var + i: integer; + dxCode, dxName: string; + ADiagnosis: TPCEItem; +begin + inherited; + UBAGlobals.BAPCEDiagList.Clear; + with lbGrid do for i := 0 to Items.Count - 1 do + begin + ADiagnosis := TPCEDiag(Items.Objects[i]); + dxCode := ADiagnosis.Code; + dxName := ADiagnosis.Narrative; + if BAPCEDiagList.Count = 0 then + UBAGlobals.BAPCEDiagList.Add(U + DX_ENCOUNTER_LIST_TXT); + UBAGlobals.BAPCEDiagList.Add(dxCode + U + dxName); + end; +end; + + +procedure TfrmDiagnoses.lbSectionDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +begin + inherited; + if (control as TListbox).items[index] = DX_PROBLEM_LIST_TXT then + (Control as TListBox).Canvas.Font.Style := [fsBold] + else + if (control as Tlistbox).items[index] = DX_PERSONAL_LIST_TXT then + (Control as TListBox).Canvas.Font.Style := [fsBold] + else + if (control as Tlistbox).items[index] = DX_TODAYS_DX_LIST_TXT then + (Control as TListBox).Canvas.Font.Style := [fsBold] + else + if (control as Tlistbox).items[index] = DX_ENCOUNTER_LIST_TXT then + (Control as TListBox).Canvas.Font.Style := [fsBold] + else + (Control as TListBox).Canvas.Font.Style := []; + + (Control as TListBox).Canvas.TextOut(Rect.Left+2, Rect.Top+1, (Control as + TListBox).Items[Index]); {display the text } +end; + +end. diff --git a/CPRS-Chart/Encounter/fEncVitals.dfm b/CPRS-Chart/Encounter/fEncVitals.dfm new file mode 100644 index 0000000..c801d57 --- /dev/null +++ b/CPRS-Chart/Encounter/fEncVitals.dfm @@ -0,0 +1,454 @@ +inherited frmEncVitals: TfrmEncVitals + Left = 353 + Top = 210 + Caption = 'Vitals' + KeyPreview = True + OnActivate = FormActivate + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object lvVitals: TCaptionListView [0] + Left = 0 + Top = 0 + Width = 624 + Height = 368 + Hint = 'To sort, click on column headers|' + Align = alClient + Columns = <> + Constraints.MinHeight = 50 + HideSelection = False + MultiSelect = True + ReadOnly = True + RowSelect = True + ParentShowHint = False + ShowHint = True + TabOrder = 1 + ViewStyle = vsReport + end + object pnlBottom: TPanel [1] + Left = 0 + Top = 368 + Width = 624 + Height = 32 + Align = alBottom + BevelOuter = bvNone + TabOrder = 5 + end + inherited btnOK: TBitBtn + Left = 444 + Top = 377 + TabOrder = 3 + end + inherited btnCancel: TBitBtn + Left = 524 + Top = 377 + TabOrder = 4 + end + object pnlmain: TPanel + Left = 28 + Top = 24 + Width = 569 + Height = 217 + TabOrder = 0 + Visible = False + object lblVitPointer: TOROffsetLabel + Left = 506 + Top = 48 + Width = 17 + Height = 15 + Caption = '<--' + Color = clBtnFace + HorzOffset = 5 + ParentColor = False + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblDate: TStaticText + Left = 56 + Top = 23 + Width = 31 + Height = 17 + Caption = 'Date' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + object lblDateBP: TStaticText + Tag = 3 + Left = 50 + Top = 122 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 17 + end + object lblDateTemp: TStaticText + Left = 50 + Top = 52 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 4 + end + object lblDateResp: TStaticText + Tag = 2 + Left = 50 + Top = 98 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 13 + end + object lblDatePulse: TStaticText + Tag = 1 + Left = 50 + Top = 75 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 9 + end + object lblDateHeight: TStaticText + Tag = 4 + Left = 50 + Top = 145 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 21 + end + object lblDateWeight: TStaticText + Tag = 5 + Left = 50 + Top = 169 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 26 + end + object lblLstMeas: TStaticText + Left = 180 + Top = 23 + Width = 80 + Height = 17 + Caption = 'Last Measure' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + object lbllastBP: TStaticText + Tag = 3 + Left = 188 + Top = 122 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 18 + end + object lblLastTemp: TStaticText + Left = 188 + Top = 52 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 5 + end + object lblLastResp: TStaticText + Tag = 2 + Left = 188 + Top = 98 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 14 + end + object lblLastPulse: TStaticText + Tag = 1 + Left = 188 + Top = 75 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 10 + end + object lblLastHeight: TStaticText + Tag = 4 + Left = 188 + Top = 145 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 22 + end + object lblLastWeight: TStaticText + Tag = 5 + Left = 188 + Top = 169 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 27 + end + object lblVital: TStaticText + Left = 344 + Top = 23 + Width = 29 + Height = 17 + Caption = 'Vital' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + object lblVitBP: TStaticText + Left = 344 + Top = 122 + Width = 23 + Height = 17 + Caption = 'B/P' + TabOrder = 19 + end + object lnlVitTemp: TStaticText + Left = 344 + Top = 52 + Width = 31 + Height = 17 + Caption = 'Temp' + TabOrder = 6 + end + object lblVitResp: TStaticText + Left = 344 + Top = 98 + Width = 29 + Height = 17 + Caption = 'Resp' + TabOrder = 15 + end + object lblVitPulse: TStaticText + Left = 344 + Top = 75 + Width = 30 + Height = 17 + Caption = 'Pulse' + TabOrder = 11 + end + object lblVitHeight: TStaticText + Left = 344 + Top = 145 + Width = 35 + Height = 17 + Caption = 'Height' + TabOrder = 23 + end + object lblVitWeight: TStaticText + Left = 344 + Top = 169 + Width = 38 + Height = 17 + Caption = 'Weight' + TabOrder = 28 + end + object lblVitPain: TStaticText + Left = 344 + Top = 193 + Width = 55 + Height = 17 + Caption = 'Pain Scale' + TabOrder = 33 + end + object lblLastPain: TStaticText + Tag = 5 + Left = 188 + Top = 193 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 32 + end + object lblDatePain: TStaticText + Tag = 5 + Left = 50 + Top = 193 + Width = 24 + Height = 17 + Caption = 'N/A' + TabOrder = 31 + end + object txtMeasBP: TCaptionEdit + Tag = 1 + Left = 406 + Top = 119 + Width = 100 + Height = 21 + TabOrder = 20 + OnEnter = SetVitPointer + OnExit = txtMeasBPExit + Caption = 'Blood Pressure' + end + object cboTemp: TCaptionComboBox + Tag = 7 + Left = 448 + Top = 48 + Width = 57 + Height = 21 + DropDownCount = 2 + ItemHeight = 13 + TabOrder = 8 + OnChange = cboTempChange + OnEnter = SetVitPointer + OnExit = cboTempExit + Items.Strings = ( + 'F' + 'C') + Caption = 'Temperature' + end + object txtMeasTemp: TCaptionEdit + Tag = 2 + Left = 406 + Top = 48 + Width = 43 + Height = 21 + TabOrder = 7 + OnEnter = SetVitPointer + OnExit = txtMeasTempExit + Caption = 'Temperature' + end + object txtMeasResp: TCaptionEdit + Tag = 3 + Left = 406 + Top = 95 + Width = 100 + Height = 21 + TabOrder = 16 + OnEnter = SetVitPointer + OnExit = txtMeasRespExit + Caption = 'Resp' + end + object cboHeight: TCaptionComboBox + Tag = 8 + Left = 449 + Top = 142 + Width = 57 + Height = 21 + ItemHeight = 13 + TabOrder = 25 + OnChange = cboHeightChange + OnEnter = SetVitPointer + OnExit = cboHeightExit + Items.Strings = ( + 'IN' + 'CM') + Caption = 'Height' + end + object txtMeasWt: TCaptionEdit + Tag = 6 + Left = 406 + Top = 166 + Width = 43 + Height = 21 + TabOrder = 29 + OnEnter = SetVitPointer + OnExit = txtMeasWtExit + Caption = 'Weight' + end + object cboWeight: TCaptionComboBox + Tag = 9 + Left = 449 + Top = 166 + Width = 57 + Height = 21 + ItemHeight = 13 + TabOrder = 30 + OnChange = cboWeightChange + OnEnter = SetVitPointer + OnExit = cboWeightExit + Items.Strings = ( + 'LB' + 'KG') + Caption = 'Weight' + end + object txtMeasDate: TORDateBox + Tag = 11 + Left = 406 + Top = 16 + Width = 121 + Height = 21 + TabOrder = 0 + OnEnter = SetVitPointer + DateOnly = False + RequireTime = False + Caption = 'Current Vital Date ' + end + object cboPain: TORComboBox + Tag = 10 + Left = 406 + Top = 190 + Width = 102 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Pain Scale' + Color = clWindow + DropDownCount = 12 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '1,2' + Sorted = False + SynonymChars = '<>' + TabOrder = 34 + TabStop = True + OnEnter = SetVitPointer + CharsNeedMatch = 1 + end + object txtMeasPulse: TCaptionEdit + Tag = 4 + Left = 406 + Top = 72 + Width = 100 + Height = 21 + TabOrder = 12 + OnEnter = SetVitPointer + OnExit = txtMeasPulseExit + Caption = 'Pulse' + end + object txtMeasHt: TCaptionEdit + Tag = 5 + Left = 406 + Top = 142 + Width = 43 + Height = 21 + TabOrder = 24 + OnEnter = SetVitPointer + OnExit = txtMeasHtExit + Caption = 'Height' + end + end + object btnEnterVitals: TButton + Left = 8 + Top = 377 + Width = 75 + Height = 21 + Caption = 'Enter Vitals' + TabOrder = 2 + OnClick = btnEnterVitalsClick + end +end diff --git a/CPRS-Chart/Encounter/fEncVitals.pas b/CPRS-Chart/Encounter/fEncVitals.pas new file mode 100644 index 0000000..8d28b6a --- /dev/null +++ b/CPRS-Chart/Encounter/fEncVitals.pas @@ -0,0 +1,666 @@ +unit fEncVitals; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, ORDtTm, StdCtrls, ORCtrls, ExtCtrls, Buttons, fAutoSz, ORFn, + rvitals, ComCtrls, ORNet, uVitals + , TRPCB // Vitals Lite 2004-05-21 =========================================== + ; +{== Vitals Lite 2004-05-21 ===================================================} +type + TGMV_GetInputPanel = function( + var anApp: TApplication; + aB: TRPCBroker; + aP, // Patient DFN + aL, // Hospitals IEN + aSig, // Application signature + aTemplate // Vitals Input template + : String; + aNow // Input Date/Time + :TDateTime):TCustomForm; +{== Vitals Lite 2004-05-21 ===================================================} + +type + TfrmEncVitals = class(TfrmPCEBase) + pnlmain: TPanel; + lblDate: TStaticText; + lblDateBP: TStaticText; + lblDateTemp: TStaticText; + lblDateResp: TStaticText; + lblDatePulse: TStaticText; + lblDateHeight: TStaticText; + lblDateWeight: TStaticText; + lblLstMeas: TStaticText; + lbllastBP: TStaticText; + lblLastTemp: TStaticText; + lblLastResp: TStaticText; + lblLastPulse: TStaticText; + lblLastHeight: TStaticText; + lblLastWeight: TStaticText; + lblVitPointer: TOROffsetLabel; + lblVital: TStaticText; + lblVitBP: TStaticText; + lnlVitTemp: TStaticText; + lblVitResp: TStaticText; + lblVitPulse: TStaticText; + lblVitHeight: TStaticText; + lblVitWeight: TStaticText; + txtMeasBP: TCaptionEdit; + cboTemp: TCaptionComboBox; + txtMeasTemp: TCaptionEdit; + txtMeasResp: TCaptionEdit; + cboHeight: TCaptionComboBox; + txtMeasWt: TCaptionEdit; + cboWeight: TCaptionComboBox; + txtMeasDate: TORDateBox; + lblVitPain: TStaticText; + lblLastPain: TStaticText; + lblDatePain: TStaticText; + cboPain: TORComboBox; + txtMeasPulse: TCaptionEdit; + txtMeasHt: TCaptionEdit; + pnlBottom: TPanel; + btnEnterVitals: TButton; + lvVitals: TCaptionListView; + procedure SetVitPointer(Sender: TObject); + procedure txtMeasBPExit(Sender: TObject); + procedure cboTempChange(Sender: TObject); + procedure cboTempExit(Sender: TObject); + procedure txtMeasRespExit(Sender: TObject); + procedure txtMeasPulseExit(Sender: TObject); + procedure cboHeightChange(Sender: TObject); + procedure cboHeightExit(Sender: TObject); + procedure cboWeightChange(Sender: TObject); + procedure cboWeightExit(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure lbllastClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormActivate(Sender: TObject); + function HasData: Boolean; + function AssignVitals: boolean; + procedure cboPainChange(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure txtMeasTempExit(Sender: TObject); + procedure txtMeasHtExit(Sender: TObject); + procedure txtMeasWtExit(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure btnEnterVitalsClick(Sender: TObject); //vitals lite + private + FDataLoaded: boolean; + FChangingFocus: boolean; + UvitalNew: TStringList; + uVitalOld: TSTringList; + procedure InitVitalPanel; + procedure PopulateLastVital; + function GetVitHTRate: String; + procedure CheckVitalUnit; + procedure ChangeFocus(Control: TWinControl); + procedure ClearData; + procedure LoadVitalView(VitalsList : TStringList); //Vitals Lite + procedure LoadVitalsList; + public + function OK2SaveVitals: boolean; + property VitalNew: TStringList read uVitalNew; + property VitalOld: TStringList read uVitalOld; + end; + +var + frmEncVitals: TfrmEncVitals; +// uVitalLocation: Real; + +implementation + +{$R *.DFM} + +uses UCore, rCore, rPCE, fPCELex, fPCEOther, fVitals,fVisit, fFrame, fEncnt, + fEncounterFrame, uInit + // , fGMV_InputTemp // Vitals Lite 2004-05-21 + ; + +const + TX_VDATE_REQ1 = 'Entered vitals information can not be saved without a Date.' + CRLF + + 'Do you wish to use the encounter date of '; + TX_VDATE_REQ2 = '?'; + TC_VDATE_REQ = 'Missing Vitals Entry Date'; + + TX_KILLDATA = 'Discard entered vitals information?'; + +var + UcboVitChanging: Boolean = False; + +function TfrmEncVitals.HasData: Boolean; +begin + result := False; + if ((txtMeasBP.text <> '') or (txtMeasTemp.text <> '') or (txtMeasResp.text <> '') or + (txtMeasPulse.text <> '') or (txtMeasHt.text <> '') or (txtMeasWt.text <> '')) or + (cboPain.text <>'') then + result := True; +end; + +procedure TfrmEncVitals.InitVitalPanel; +begin + lblDate.font.Style := [fsBold]; + lblDateBP.font.Style := [fsBold]; + lblDateTemp.font.Style := [fsBold]; + lblDateResp.font.Style := [fsBold]; + lblDatePulse.font.Style := [fsBold]; + lblDateHeight.font.Style := [fsBold]; + lblDateWeight.font.Style := [fsBold]; + lblDatePain.font.style := [fsBold]; + lblLstMeas.font.Style := [fsBold]; + lblLastBP.font.Style := [fsBold]; + lblLastTemp.font.Style := [fsBold]; + lblLastResp.font.Style := [fsBold]; + lblLastPulse.font.Style := [fsBold]; + lblLastHeight.font.Style := [fsBold]; + lblLastWeight.font.Style := [fsBold]; + lblLastPain.font.style := [fsBold]; + lblVital.font.Style := [fsbold]; + + {Use this area to read parameter for units and set apropriately + after parameter is defined. in next version + } + UcboVitchanging := true; //prevents entering code in CheckVitalUnit + + try + InitPainCombo(cboPain); + cboTemp.Text := cboTemp.Items[0]; + cboHeight.Text := cboHeight.Items[0]; + cboWeight.Text := cboWeight.Items[0]; + finally + UcboVitchanging := False; //prevents entering code in CheckVitalUnit + end; + + if txtMeasDate.Text = '' then + txtMeasDate.Text := FormatFMDateTime('mmm dd,yy@hh:nn', uEncPCEData.VisitDateTime); + if (UvitalOld.text = '') then + PopulateLastVital; +end; + + +procedure TfrmEncVitals.PopulateLastVital; +var + i: integer; +begin + GetLastVital(uVitalOld,Patient.DFN); + //populate labels from UVitalOld; + with UVitalOld do + for i := 0 to count-1 do + begin + if piece(strings[i],U,2) = 'T' then + begin + lblLastTemp.Caption := ConvertVitalData(piece(strings[i],U,3), vtTemp); + lblDateTemp.Caption := FormatFMDateTime('mmm dd,yy', + StrToFloat(piece(strings[i],U,4))); + end; + if piece(strings[i],U,2) = 'P' then + begin + lblLastPulse.Caption := piece(strings[i],U,3); + lblDatePulse.Caption := FormatFMDateTime('mmm dd,yy', + StrToFloat(piece(strings[i],U,4))); + end; + if piece(strings[i],U,2) = 'R' then + begin + lblLastResp.Caption := piece(strings[i],U,3); + lblDateResp.Caption := FormatFMDateTime('mmm dd,yy', + StrToFloat(piece(strings[i],U,4))); + end; + if piece(strings[i],U,2) = 'BP' then + begin + lblLastBP.Caption := piece(strings[i],U,3); + lblDateBP.Caption := FormatFMDateTime('mmm dd,yy', + StrToFloat(piece(strings[i],U,4))); + end; + if piece(strings[i],U,2) = 'HT' then + begin + lblLastHeight.Caption := ConvertVitalData(piece(strings[i],U,3), vtHeight); + lblDateHeight.Caption := FormatFMDateTime('mmm dd,yy', + StrToFloat(piece(strings[i],U,4))); + end; + if piece(strings[i],U,2) = 'WT' then + begin + lblLastWeight.Caption := ConvertVitalData(piece(strings[i],U,3), vtWeight); + lblDateWeight.Caption := FormatFMDateTime('mmm dd,yy', + StrToFloat(piece(strings[i],U,4))); + + end; + if piece(strings[i],U,2) = 'PN' then + begin + lblLastPain.Caption := piece(strings[i],U,3); + lblDatePain.Caption := FormatFMDateTime('mmm dd,yy', + StrToFloat(piece(strings[i],U,4))); + end; + end; +end; + + +procedure TfrmEncVitals.SetVitPointer(Sender: TObject); +begin + if ActiveCtrl.tag in VitalTagSet then + begin + // move pointer to some height and five pixels to right of edit box. + lblVitPointer.Top := ActiveCtrl.Top+((ActiveCtrl.height ) div + (lblVitPointer.height )); + + if ActiveCtrl = txtMeasTemp then + lblVitPointer.left := (cboTemp.left + cboTemp.Width) + else if ActiveCtrl = txtMeasHT then + lblVitPointer.left := (cboHeight.left + cboHeight.Width) + else if ActiveCtrl = txtMeasWT then + lblVitPointer.left := (cboWeight.left + cboWeight.Width) + else + lblVitPointer.left := (ActiveCtrl.left + ActiveCtrl.Width); + + end; +end; + + +function TfrmEncVitals.GetVitHTRate: String; +begin + Result := ConvertHeight2Inches(txtMeasHT.Text); + txtMeasHT.text := result; +end; + +function TfrmEncVitals.AssignVitals: boolean; +var + TmpDate: TFMDateTime; + +begin + TmpDate := txtMeasDate.FMDateTime; + Result := ValidVitalsDate(TmpDate); + if Result then + AssignVitals2List(uVitalNew, TmpDate, FloatToStr(PCERPCEncLocation), + txtMeasBP.text, txtMeasTemp.text, cboTemp.text, + txtMeasResp.text, txtMeasPulse.text, GetVitHTRate, cboHeight.text, + txtMeasWT.text, cboWeight.text, cboPain.ItemID); +end; + +procedure TfrmEncVitals.cboTempChange(Sender: TObject); +begin + inherited; + if not (cbotemp.droppeddown) then + CheckVitalUnit; +end; + + +procedure TfrmEncVitals.CheckVitalUnit; +var + len,i: integer; + found: boolean; + comp: string; //substring for comparing + temp: string; +begin + if (UcboVitchanging = true) then exit; + + UcboVitChanging := true; + try + with ActiveCtrl as TComboBox do + begin + found := False; + temp := text; + while (found = false) and (Length(temp) > 0) do + begin + i := 0; + while (found = false) and (length(items[i]) > 0) do + begin + len := length(temp); + //match text to string + comp := copy(items[i],0,len); + if (CompareText(comp,temp) = 0) then + begin + found := true; + Text := ''; + text := items[i]; + + end; + inc(i); + end; + if (found = false) then Delete(temp,1,1); + end; + if (found = False) then + begin + Text := ''; + end; + end; + finally + UcboVitChanging := false; + end; +end; + + +procedure TfrmEncVitals.cboHeightChange(Sender: TObject); +begin + inherited; + CheckVitalUnit; +end; + +procedure TfrmEncVitals.cboWeightChange(Sender: TObject); +begin + inherited; + CheckVitalUnit; +end; + +procedure TfrmEncVitals.txtMeasBPExit(Sender: TObject); +begin + inherited; + if VitalInvalid(txtMeasBP) then + ChangeFocus(txtMeasBP); +end; + +procedure TfrmEncVitals.cboTempExit(Sender: TObject); +begin + inherited; + if(ActiveCtrl <> txtMeasTemp) then + begin + if VitalInvalid(txtMeasTemp, cboTemp) then + ChangeFocus(txtMeasTemp); + end; +end; + +procedure TfrmEncVitals.txtMeasRespExit(Sender: TObject); +begin + inherited; + if VitalInvalid(txtMeasResp) then + ChangeFocus(txtMeasResp); +end; + +procedure TfrmEncVitals.txtMeasPulseExit(Sender: TObject); +begin + inherited; + if VitalInvalid(txtMeasPulse) then + ChangeFocus(txtMeasPulse); +end; + +procedure TfrmEncVitals.cboHeightExit(Sender: TObject); +begin + inherited; + if(ActiveCtrl <> txtMeasHt) then + begin + if VitalInvalid(txtMeasHt, cboHeight, GetVitHTRate) then + ChangeFocus(txtMeasHt); + end; +end; + +procedure TfrmEncVitals.cboWeightExit(Sender: TObject); +begin + inherited; + if(ActiveCtrl <> txtMeasWt) then + begin + if VitalInvalid(txtMeasWt, cboWeight) then + ChangeFocus(txtMeasWt); + end; +end; + + +procedure TfrmEncVitals.FormCreate(Sender: TObject); +begin + + inherited; + FTabName := CT_VitNm; + //uVisitType := TPCEProc.create; + uVitalOld := TStringList.create; + uVitalNew := TStringList.create; + +end; + + + +procedure TfrmEncVitals.FormDestroy(Sender: TObject); + +begin + //uVisitType.Free; + uVitalOld.Free; + uVitalNew.free; + +{== Vitals Lite 2004-05-21 ===================================================} + FreeLibrary(VitalsDLLHandle); +{== Vitals Lite 2004-05-21 ===================================================} + inherited; +end; + + + + +procedure TfrmEncVitals.lbllastClick(Sender: TObject); +begin + inherited; + // + try + frmEncVitals.Show; + except + with sender as TStaticText do + SelectVital(self.Font.Size, tag); + end; //end of try +end; + + +procedure TfrmEncVitals.FormShow(Sender: TObject); +var + GMV_LibName: String; +begin + inherited; + //Begin Vitals Lite + {Visit is Assumed to Be selected when Opening Encounter Dialog} + GMV_LibName :='GMV_VitalsViewEnter.dll'; + GMV_LibName := GetProgramFilesPath + SHARE_DIR + GMV_LibName; + VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName)); + if VitalsDLLHandle = 0 then // No Handle found + MessageDLG('Can''t find library "'+GMV_LibName+'".',mtError,[mbok],0) + else + LoadVitalsList; + //End Vitals Lite +// frmEncVitals.caption := 'Vital entry for - '+ patient.name; {RAB 6/15/98} + FormActivate(Sender); +end; + +procedure TfrmEncVitals.FormActivate(Sender: TObject); +begin + inherited; + if(not FChangingFocus) and (not FDataLoaded) then + begin + FDataLoaded := TRUE; + InitVitalPanel; +// txtMeasTemp.setfocus; //added 3/30/99 after changing tab order. + //The date is now first in tab order, but it shouldn't default there. + end; +end; + + + +procedure TfrmEncVitals.cboPainChange(Sender: TObject); +begin + inherited; + CheckVitalUnit; +end; + +procedure TfrmEncVitals.FormResize(Sender: TObject); +begin + inherited; + //added to make things austo size that do not heave the property. + cboTemp.height := txtmeastemp.height; + cboPain.height := txtmeastemp.height; + cboheight.height := txtmeastemp.height; + cboweight.height := txtmeastemp.height; +end; + +procedure TfrmEncVitals.txtMeasTempExit(Sender: TObject); +begin + inherited; + if(ActiveCtrl <> cboTemp) then + begin + if VitalInvalid(txtMeasTemp, cboTemp) then + ChangeFocus(txtMeasTemp); + end; +end; + +procedure TfrmEncVitals.txtMeasHtExit(Sender: TObject); +begin + inherited; + if(ActiveCtrl <> cboHeight) then + begin + if VitalInvalid(txtMeasHt, cboHeight, GetVitHTRate) then + ChangeFocus(txtMeasHt); + end; +end; + +procedure TfrmEncVitals.txtMeasWtExit(Sender: TObject); +begin + inherited; + if(ActiveCtrl <> cboWeight) then + begin + if VitalInvalid(txtMeasWt, cboWeight) then + ChangeFocus(txtMeasWt); + end; +end; + +procedure TfrmEncVitals.ChangeFocus(Control: TWinControl); +begin + FChangingFocus := TRUE; + try + Control.SetFocus; + finally + FChangingFocus := FALSE; + end; +end; + +function TfrmEncVitals.OK2SaveVitals: boolean; +begin + Result := TRUE; + if(HasData and (abs(txtMeasDate.FMDateTime) <= 0.0000000000001)) then + begin + Result := (InfoBox(TX_VDATE_REQ1 + FormatFMDateTime('mmm dd,yy@hh:nn', uEncPCEData.DateTime) + + TX_VDATE_REQ2, TC_VDATE_REQ, MB_YESNO or MB_ICONWARNING) = IDYES); + if Result then + txtMeasDate.FMDateTime := uEncPCEData.DateTime + else + begin + Result := (InfoBox(TX_KILLDATA, TC_VDATE_REQ, MB_YESNO or MB_ICONWARNING) = IDYES); + if(Result) then + ClearData; + end; + end; +end; + +procedure TfrmEncVitals.ClearData; +begin + txtMeasBP.text := ''; + txtMeasTemp.text := ''; + txtMeasResp.text := ''; + txtMeasPulse.text := ''; + txtMeasHt.text := ''; + txtMeasWt.text := ''; + cboPain.text := ''; +end; + +procedure TfrmEncVitals.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {capture return key press if on the vital screen} + begin + inherited; + if (ActiveCtrl.tag in VitalDateTagSet)then + begin + if Key = VK_RETURN then + begin + Key := 0; + if (ActiveCtrl.Tag = TAG_VITPAIN) then + ChangeFocus(btnOK) + else + begin + GetParentForm(Self).Perform(WM_NEXTDLGCTL,0,0); + SetVitPointer(Sender); + end; + end; + end; + end; +end; + +//Begin Vitals Lite +procedure TfrmEncVitals.LoadVitalView(VitalsList: TStringList); +var + i : integer; + curCol : TListColumn; + curItem : TListItem; + HeadingList,tmpList : TStringList; +begin + HeadingList := TStringList.Create; + tmpList := TStringList.Create; + lvVitals.ShowColumnHeaders := false; //CQ: 10069 - the column display becomes squished. + lvVitals.Items.Clear; + lvVitals.Columns.Clear; + PiecesToList(VitalsList[0],U,HeadingList); + for i := 0 to HeadingList.Count-1 do + begin + curCol := lvVitals.Columns.Add; + curCol.Caption := HeadingList[i]; + curCol.AutoSize := true; + end; + for i := 1 to VitalsList.Count-1 do + begin + curItem := lvVitals.Items.Add; + PiecesToList(VitalsList[i],U,tmpList); + curItem.Caption := tmpList[0]; + tmpList.Delete(0); + curItem.SubItems.Assign(tmpList); + end; + lvVitals.ShowColumnHeaders := true; //CQ: 10069 - the column display becomes squished. + HeadingList.Free; + tmpList.Free; +end; + +procedure TfrmEncVitals.btnEnterVitalsClick(Sender: TObject); +var + VLPtVitals : TGMV_VitalsEnterDLG; + GMV_FName : String; +begin + inherited; + if VitalsDLLHandle = 0 then Exit;//The DLL was initialized on Create, but just in case.... + GMV_FName := 'GMV_VitalsEnterDLG'; + @VLPtVitals := GetProcAddress(VitalsDLLHandle,PChar(GMV_FName)); + if assigned(VLPtVitals) then + begin + VLPtVitals( + RPCBrokerV, + Patient.DFN, + FloatToStr(uEncPCEData.Location), + GMV_DEFAULT_TEMPLATE, + GMV_APP_SIGNATURE, + FMDateTimeToDateTime(uEncPCEData.DateTime), + Patient.Name, + frmFrame.lblPtSSN.Caption + ' ' + frmFrame.lblPtAge.Caption + ); + end + else + MessageDLG('Can not find function "'+GMV_FName+'".',mtError,[mbok],0); + @VLPtVitals := nil; + LoadVitalsList; +end; + +procedure TfrmEncVitals.LoadVitalsList; +var + VitalsList : TStringList; + VLPtVitals : TGMV_LatestVitalsList; + GMV_FName : String; +begin + if VitalsDLLHandle = 0 then Exit;//The DLL was initialized on Create, but just in case.... + GMV_FName := 'GMV_LatestVitalsList'; + @VLPtVitals := GetProcAddress(VitalsDLLHandle,PChar(GMV_FName)); + if assigned(VLPtVitals) then + begin + frmFrame.VitalsDLLActive := True; // need this flag for CCOW (RV) + VitalsList := VLPtVitals(RPCBrokerV,Patient.DFN,U,false); + if assigned(VitalsList) then + LoadVitalView(VitalsList); + end + else + MessageDLG('Can''t find function "'+GMV_FName+'".',mtError,[mbok],0); + @VLPtVitals := nil; + frmFrame.VitalsDLLActive := False; // need this flag for CCOW (RV) +end; +//End Vitals Lite + +end. diff --git a/CPRS-Chart/Encounter/fEncounterFrame.dfm b/CPRS-Chart/Encounter/fEncounterFrame.dfm new file mode 100644 index 0000000..dd87c12 --- /dev/null +++ b/CPRS-Chart/Encounter/fEncounterFrame.dfm @@ -0,0 +1,67 @@ +object frmEncounterFrame: TfrmEncounterFrame + Left = 290 + Top = 108 + Width = 640 + Height = 451 + Caption = 'Encounter Frame' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIForm + KeyPreview = True + OldCreateOrder = True + Position = poScreenCenter + OnCanResize = FormCanResize + OnClose = FormClose + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object Bevel1: TBevel + Left = 0 + Top = 0 + Width = 632 + Height = 2 + Align = alTop + end + object StatusBar1: TStatusBar + Left = 0 + Top = 417 + Width = 632 + Height = 0 + Panels = <> + SimplePanel = False + end + object pnlPage: TPanel + Left = 0 + Top = 24 + Width = 632 + Height = 393 + Align = alClient + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object TabControl: TTabControl + Left = 0 + Top = 2 + Width = 632 + Height = 22 + Align = alTop + TabOrder = 2 + OnChange = TabControlChange + OnChanging = TabControlChanging + OnExit = TabControlExit + end +end diff --git a/CPRS-Chart/Encounter/fEncounterFrame.pas b/CPRS-Chart/Encounter/fEncounterFrame.pas new file mode 100644 index 0000000..10c6ffa --- /dev/null +++ b/CPRS-Chart/Encounter/fEncounterFrame.pas @@ -0,0 +1,838 @@ +unit fEncounterFrame; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + Tabs, ComCtrls, ExtCtrls, Menus, StdCtrls, Buttons, fPCEBase, + fVisitType, fDiagnoses, fProcedure, fImmunization, fSkinTest, fPatientEd, + fHealthFactor, fExam, uPCE, rPCE, rTIU, ORCtrls, ORFn, fEncVitals,rvitals; + +const + //tab names + CT_VisitNm = 'Visit Type'; + CT_DiagNm = 'Diagnoses'; + CT_ProcNm = 'Procedures'; + CT_ImmNm = 'Immunizations'; + CT_SkinNm = 'Skin Tests'; + CT_PedNm = 'Patient Ed'; + CT_HlthNm = 'Health Factors'; + CT_XamNm = 'Exams'; + CT_VitNm = 'Vitals'; + CT_GAFNm = 'GAF'; + + //numbers assigned to tabs to make changes easier + //they must be sequential + CT_NOPAGE = -1; + CT_UNKNOWN = 0; + CT_VISITTYPE = 1; CT_FIRST = 1; + CT_DIAGNOSES = 2; + CT_PROCEDURES = 3; + CT_IMMUNIZATIONS = 4; + CT_SKINTESTS = 5; + CT_PATIENTED = 6; + CT_HEALTHFACTORS = 7; + CT_EXAMS = 8; + CT_VITALS = 9; + CT_GAF = 10; CT_LAST = 10; + + NUM_TABS = 3; + TAG_VTYPE = 10; + TAG_DIAG = 20; + TAG_PROC = 30; + TAG_IMMUNIZ = 40; + TAG_SKIN = 50; + TAG_PED = 60; + TAG_HF = 70; + TAG_XAM = 80; + TAG_TRT = 90; + + TX_NOSECTION = '-1^No sections found'; + TX_PROV_REQ = 'A primary encounter provider must be selected before encounter data can' + CRLF + + 'be saved. Select the Primary Encounter Provider on the VISIT TYPE tab.' + CRLF + + 'Otherwise, press to quit without saving data.'; + + TC_PROV_REQ = 'Missing Primary Provider for Encounter'; + +type + TfrmEncounterFrame = class(TForm) + StatusBar1: TStatusBar; + pnlPage: TPanel; + Bevel1: TBevel; + TabControl: TTabControl; + + procedure tabPageChange(Sender: TObject; NewTab: Integer; + var AllowChange: Boolean); + procedure FormResize(Sender: TObject); + procedure SectionClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure TabControlChange(Sender: TObject); + procedure TabControlChanging(Sender: TObject; + var AllowChange: Boolean); + procedure TabControlExit(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCanResize(Sender: TObject; var NewWidth, + NewHeight: Integer; var Resize: Boolean); + + private + FAutoSave: boolean; + FSaveNeeded: boolean; + FChangeSource: Integer; + FCancel: Boolean; //Indicates the cancel button has been pressed; + FAbort: boolean; // indicates that neither OK or Cancel has been pressed + FormList: TStringList; //Holds the types of any forms that will be used + //in the frame. They must be available at compile time + FLastPage: TfrmPCEBase; + procedure CreateChildForms(Sender: TObject; Location: integer); + procedure SynchPCEData; + procedure SwitchToPage(NewForm: TfrmPCEBase); //was tfrmPage + function PageIDToForm(PageID: Integer): TfrmPCEBase; + function PageIDToTab(PageID: Integer): string; + procedure LoadFormList(Location: integer); + procedure CreateForms; + procedure AddTabs; + function FormListContains(item: string): Boolean; + procedure SendData; + procedure UpdateEncounter(PCE: TPCEData); + procedure SetFormFonts; + + public + procedure SelectTab(NewTabName: string); + property ChangeSource: Integer read FChangeSource; + property Forms: tstringlist read FormList; + property Cancel: Boolean read FCancel write FCancel; + property Abort: Boolean read FAbort write FAbort; + end; + +var + frmEncounterFrame: TfrmEncounterFrame; + uSCCond: TSCConditions; + uVisitType: TPCEProc; // contains info for visit type page + uEncPCEData: TPCEData; + uProviders: TPCEProviderList; + +// Returns true if PCE data still needs to be saved - vitals/gaf are always saved +function UpdatePCE(PCEData: TPCEData; SaveOnExit: boolean = TRUE): boolean; + +implementation + +uses + uCore, + fGAF, uConst, + rCore, fPCEProvider, rMisc; + +{$R *.DFM} + +{/////////////////////////////////////////////////////////////////////////////// +//Name: function TfrmEncounterFrame.PageIDToTab(PageID: Integer): String; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: returns the tab index that corresponds to a given PageID . +///////////////////////////////////////////////////////////////////////////////} +function TfrmEncounterFrame.PageIDToTab(PageID: Integer): String; +begin + result := ''; + case PageID of + CT_NOPAGE: Result := ''; + CT_UNKNOWN: Result := ''; + CT_VISITTYPE: Result := CT_VisitNm; + CT_DIAGNOSES: Result := CT_DiagNm; + CT_PROCEDURES: Result := CT_ProcNm; + CT_IMMUNIZATIONS: Result := CT_ImmNm; + CT_SKINTESTS: Result := CT_SkinNm; + CT_PATIENTED: Result := CT_PedNm; + CT_HEALTHFACTORS: Result := CT_HlthNm; + CT_EXAMS: Result := CT_XamNm; + CT_VITALS: Result := CT_VitNm; + CT_GAF: Result := CT_GAFNm; + + end; +end; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: function TfrmEncounterFrame.PageIDToForm(PageID: Integer): TfrmPCEBase; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: return the form name based on the PageID} +///////////////////////////////////////////////////////////////////////////////} +function TfrmEncounterFrame.PageIDToForm(PageID: Integer): TfrmPCEBase; +begin + case PageID of + CT_VISITTYPE: Result := frmVisitType; + CT_DIAGNOSES: Result := frmDiagnoses; + CT_PROCEDURES: Result := frmProcedures; + CT_IMMUNIZATIONS: Result := frmImmunizations; + CT_SKINTESTS: Result := frmSkinTests; + CT_PATIENTED: Result := frmPatientEd; + CT_HEALTHFACTORS: Result := frmHealthFactors; + CT_EXAMS: Result := frmExams; + CT_VITALS: Result := frmEncVitals; + CT_GAF: Result := frmGAF; + else //not a valid form + result := frmPCEBase; + end; +end; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.CreatChildForms(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Finds out what pages to display, has the pages and tabs created. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.CreateChildForms(Sender: TObject; Location: integer); +begin + //load FormList with a list of all forms to display. + inherited; + LoadFormList(Location); + AddTabs; + CreateForms; +end; + + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: TfrmEncounterFrame.LoadFormList; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Loads Formlist with the forms to create, will be replaced by RPC call. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.LoadFormList(Location: integer); +begin + //change this to an RPC in RPCE.pas + FormList.clear; + FormList.add(CT_VisitNm); + FormList.add(CT_DiagNm); + FormList.add(CT_ProcNm); + formList.add(CT_VitNm); + formList.add(CT_ImmNm); + formList.add(CT_SkinNm); + formList.add(CT_PedNm); + formList.add(CT_HlthNm); + formList.add(CT_XamNm); + if MHClinic(Location) then + formList.add(CT_GAFNm); + end; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: function TfrmEncounterFrame.FormListContains(item: string): Boolean; +//Created: 12/06/98 +//By: Robert Bott +//Location: ISL +//Description: Returns a boolean value indicating if a given string exists in +// the formlist. +///////////////////////////////////////////////////////////////////////////////} +function TfrmEncounterFrame.FormListContains(item: string): Boolean; +begin + result := false; + if (FormList.IndexOf(item) <> -1 ) then + result := true; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.CreateForms; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Creates all of the forms in the list. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.CreateForms; +var + i: integer; +begin + //could this be placed in a loop using PagedIdToTab & PageIDToFOrm & ? + + if FormListContains(CT_VisitNm) then + frmVisitType := TfrmVisitType.CreateLinked(pnlPage); + if FormListContains(CT_DiagNm) then + frmDiagnoses := TfrmDiagnoses.CreateLinked(pnlPage); + if FormListContains(CT_ProcNm) then + frmProcedures := TfrmProcedures.CreateLinked(pnlPage); + if FormListContains(CT_VitNm) then + frmEncVitals := TfrmEncVitals.CreateLinked(pnlPage); + if FormListContains(CT_ImmNm) then + frmImmunizations := TfrmImmunizations.CreateLinked(pnlPage); + if FormListContains(CT_SkinNm) then + frmSkinTests := TfrmSkinTests.CreateLinked(pnlPage); + if FormListContains(CT_PedNm) then + frmPatientEd := TfrmPatientEd.CreateLinked(pnlPage); + if FormListContains(CT_HlthNm) then + frmHealthFactors := TfrmHEalthFactors.CreateLinked(pnlPage); + if FormListContains(CT_XamNm) then + frmExams := TfrmExams.CreateLinked(pnlPage); + if FormListContains(CT_GAFNm) then + frmGAF := TfrmGAF.CreateLinked(pnlPage); + //must switch based on caption, as all tabs may not be present. + for i := CT_FIRST to CT_LAST do + begin + if Formlist.IndexOf(PageIdToTab(i)) <> -1 then + PageIDToForm(i).Visible := (Formlist.IndexOf(PageIdToTab(i)) = 0); + end; +end; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: TfrmEncounterFrame.SwitchToPage(NewForm: tfrmPCEBase); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Brings the selected page to the front for display. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.SwitchToPage(NewForm: tfrmPCEBase);// was TfrmPage); +{ unmerge/merge menus, bring page to top of z-order, call form-specific OnDisplay code } +begin + if (NewForm = nil) or (FLastPage = NewForm) then Exit; + if Assigned(FLastPage) then + FLastPage.Hide; + FLastPage := NewForm; +// KeyPreview := (NewForm = frmEncVitals); + NewForm.DisplayPage; // this calls BringToFront for the form +end; + + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.tabPageChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Finds the page, and calls SwithToPage to display it. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.tabPageChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean); +{ switches to form linked to NewTab } +var + i: integer; +begin +//must switch based on caption, as all tabs may not be present. +for i := CT_FIRST to CT_LAST do + begin + With Formlist do + if NewTab = IndexOf(PageIdToTab(i)) then + begin + PageIDToForm(i).show; + SwitchToPage(PageIDToForm(i)); + end; + end; +end; + +{ Resize and Font-Change procedures --------------------------------------------------------- } + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.FormResize(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Resizes all windows when parent changes. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.FormResize(Sender: TObject); +var + i: integer; +begin + for i := CT_FIRST to CT_LAST do + if (FormList.IndexOf(PageIdToTab(i)) <> -1) then + MoveWindow(PageIdToForm(i).Handle, 0, 0, pnlPage.ClientWidth, pnlpage.ClientHeight, true); + self.repaint; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.AddTabs; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: adds a tab for each page that will be displayed +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.AddTabs; + +var + i: integer; +begin + TabControl.Tabs.Clear; + for I := 0 to (Formlist.count - 1) do + TabControl.Tabs.Add(Formlist.Strings[i]); +end; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure UpdatePCE(PCEData: TPCEData); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: The main call to open the encounter frame and capture encounter +// information. +///////////////////////////////////////////////////////////////////////////////} +function UpdatePCE(PCEData: TPCEData; SaveOnExit: boolean = TRUE): boolean; +var +// FontHeight, +// FontWidth: Integer; + AUser: string; + +begin + frmEncounterFrame := TfrmEncounterFrame.Create(Application); + try + frmEncounterFrame.FAutoSave := SaveOnExit; + + uEncPCEData := PCEData; + if(uEncPCEData.Empty and ((uEncPCEData.Location = 0) or (uEncPCEData.VisitDateTime = 0)) and + (not Encounter.NeedVisit)) then + uEncPCEData.UseEncounter := TRUE; + frmEncounterFrame.Caption := 'Encounter Form for ' + ExternalName(uEncPCEData.Location, 44) + + ' (' + FormatFMDateTime('mmm dd,yyyy@hh:nn', uEncPCEData.VisitDateTime) + ')'; + + uProviders.Assign(uEncPCEData.Providers); + SetDefaultProvider(uProviders, uEncPCEData); + AUser := IntToStr(uProviders.PendingIEN(FALSE)); + if(AUser <> '0') and (uProviders.IndexOfProvider(AUser) < 0) and + AutoCheckout(uEncPCEData.Location) then + uProviders.AddProvider(AUser, uProviders.PendingName(FALSE), FALSE); + + frmEncounterFrame.CreateChildForms(frmEncounterFrame, PCEData.Location); + ResizeAnchoredFormToFont(frmEncounterFrame); + SetFormPosition(frmEncounterFrame); + + with frmEncounterFrame do + begin + SetRPCEncLocation(PCEData.Location); + SynchPCEData; + TabControl.Tabindex := 0; + TabControlChange(TabControl); + + ShowModal; + Result := FSaveNeeded; + end; + finally + // frmEncounterFrame.Free; v22.11 (JD and SM) + frmEncounterFrame.Release; + //frmEncounterFrame := nil; access violation source? removed 7/28/03 RV + end; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: TfrmEncounterFrame.SectionClick(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Call the procedure apropriate for the selected tab +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.SectionClick(Sender: TObject); +begin + with Sender as TListBox do case Tag of + TAG_VTYPE: if FormListContains(CT_VisitNm) then + begin + with frmVisitType do + lstVTypeSectionClick(Sender); + end; + end; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.SynchPCEData; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Synchronize any existing PCE data with what is displayed in the form. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.SynchPCEData; + + procedure InitList(AListBox: TORListBox); + var + DoClick: boolean; + + begin + with AListBox do + begin + DoClick := TRUE; + case Tag of + TAG_VTYPE: begin + if FormListContains(CT_VisitNm) then + ListVisitTypeSections(Items); + DoClick := AutoSelectVisit(PCERPCEncLocation); + end; + end; + if Items.Count > 0 then + begin + if DoClick then + begin + ItemIndex := 0; + SectionClick(AListBox); + end; + end + else Items.Add(TX_NOSECTION); + end; + end; + +begin + if FormListContains(CT_VisitNm) then + with frmVisitType do + begin + InitList(frmVisitType.lstVTypeSection); // set up Visit Type page + ListSCDisabilities(memSCDisplay.Lines); + uSCCond := EligbleConditions; + frmVisitType.fraVisitRelated.InitAllow(uSCCond); + end; + with uEncPCEData do // load any existing data from PCEData + begin + if FormListContains(CT_VisitNm) then + frmVisitType.fraVisitRelated.InitRelated(uEncPCEData); + if FormListContains(CT_DiagNm) then + frmDiagnoses.InitTab(CopyDiagnoses, ListDiagnosisSections); + if FormListContains(CT_ProcNm) then + frmProcedures.InitTab(CopyProcedures, ListProcedureSections); + if FormListContains(CT_ImmNm) then + frmImmunizations.InitTab(CopyImmunizations,ListImmunizSections); + if FormListContains(CT_SkinNm) then + frmSkinTests.InitTab(CopySkinTests, ListSkinSections); + if FormListContains(CT_PedNm) then + frmPatientEd.InitTab(CopyPatientEds, ListPatientSections); + if FormListContains(CT_HlthNm) then + frmHealthFactors.InitTab(CopyHealthFactors, ListHealthSections); + if FormListContains(CT_XamNm) then + frmExams.InitTab(CopyExams, ListExamsSections); + uVisitType.Assign(VisitType); + if FormListContains(CT_VisitNm) then + with frmVisitType do + begin + MatchVType; + end; + end; +end; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.FormDestroy(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Free up objects in memory when destroying form. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.FormDestroy(Sender: TObject); +var + i: integer; + +begin + inherited; + for i := ComponentCount-1 downto 0 do + if(Components[i] is TForm) then + TForm(Components[i]).Free; + + formlist.clear; + KillObj(@uProviders); + uVisitType.Free; + Formlist.free; +end; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.FormCreate(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Create instances of the objects needed. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.FormCreate(Sender: TObject); +begin + uProviders := TPCEProviderList.Create; + uVisitType := TPCEProc.create; + //uVitalOld := TStringList.create; + //uVitalNew := TStringList.create; + FormList := TStringList.create; + fCancel := False; + FAbort := TRUE; + SetFormFonts; +end; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.SendData; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Send Data back to the M side sor storing. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.SendData; +//send PCE data to the RPC +var + StoreMessage: string; + GAFScore: integer; + GAFDate: TFMDateTime; + GAFStaff: Int64; + +begin + inherited; + // do validation for vitals & anything else here + + //process vitals + if FormListContains(CT_VitNm) then + begin + with frmEncVitals do + if HasData then + begin + if AssignVitals then + begin + StoreMessage := ValAndStoreVitals(frmEncVitals.VitalNew); + if (Storemessage <> 'True') then + begin + showmessage(storemessage); +// exit; + end; + end; + end; + end; + + if(FormListContains(CT_GAFNm)) then + begin + frmGAF.GetGAFScore(GAFScore, GAFDate, GAFStaff); + if(GAFScore > 0) then + SaveGAFScore(GAFScore, GAFDate, GAFStaff); + end; + + //PCE + + UpdateEncounter(uEncPCEData); + with uEncPCEData do + begin + if FAutoSave then + Save + else + FSaveNeeded := TRUE; + end; + Close; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmEncounterFrame.FormCloseQuery(Sender: TObject; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Check to see if the Cancel button was pressed, if not, call +// procedure to send the data to the server. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmEncounterFrame.FormCloseQuery(Sender: TObject; + var CanClose: Boolean); + +const + TXT_SAVECHANGES = 'Save Changes?'; + +var + TmpPCEData: TPCEData; + ask, ChangeOK: boolean; + +begin + CanClose := True; + if(FAbort) then + FCancel := (InfoBox(TXT_SAVECHANGES, TXT_SAVECHANGES, MB_YESNO) = ID_NO); + if FCancel then Exit; //*KCM* + + if(uProviders.PrimaryIdx >= 0) then + ask := TRUE + else + begin + TmpPCEData := TPCEData.Create; + try + uEncPCEData.CopyPCEData(TmpPCEData); + UpdateEncounter(TmpPCEData); + ask := TmpPCEData.NeedProviderInfo; + finally + TmpPCEData.Free; + end; + end; + if ask and (NoPrimaryPCEProvider(uProviders, uEncPCEData)) then + begin + InfoBox(TX_PROV_REQ, TC_PROV_REQ, MB_OK or MB_ICONWARNING); + CanClose := False; + Exit; + end; + + uVisitType.Provider := uProviders.PrimaryIEN; {RV - v20.1} + + if FormListContains(CT_VitNm) then + CanClose := frmEncVitals.OK2SaveVitals; + + if CanClose and FormListContains(CT_ProcNm) then + begin + CanClose := frmProcedures.OK2SaveProcedures; + if not CanClose then + begin + tabPageChange(Self, FormList.IndexOf(CT_ProcNm), ChangeOK); + SwitchToPage(PageIDToForm(CT_PROCEDURES)); + TabControl.TabIndex := FormList.IndexOf(CT_ProcNm); + end; + end; + + if CanClose then SendData; //*KCM* + +end; + +procedure TfrmEncounterFrame.TabControlChange(Sender: TObject); +var + i: integer; +begin +//must switch based on caption, as all tabs may not be present. + if (sender as tTabControl).tabindex = -1 then exit; + + for i := CT_FIRST to CT_LAST do + begin + with Formlist do + with sender as tTabControl do + if Tabindex = IndexOf(PageIdToTab(i)) then + begin + PageIDToForm(i).show; + SwitchToPage(PageIDToForm(i)); + end; + end; +end; + +procedure TfrmEncounterFrame.TabControlChanging(Sender: TObject; + var AllowChange: Boolean); +begin + if(assigned(FLastPage)) then + FLastPage.AllowTabChange(AllowChange); +end; + +procedure TfrmEncounterFrame.UpdateEncounter(PCE: TPCEData); +begin + with PCE do + begin + if FormListContains(CT_VisitNm) then + begin + VisitType := uVisitType; + frmVisitType.fraVisitRelated.GetRelated(uEncPCEData); + Providers.Merge(uProviders); + end; + + if FormListContains(CT_DiagNm) then + SetDiagnoses(frmDiagnoses.lbGrid.Items); + if FormListContains(CT_ProcNm) then + SetProcedures(frmProcedures.lbGrid.Items); + if FormListContains(CT_ImmNm) then + SetImmunizations(frmImmunizations.lbGrid.Items); + if FormListContains(CT_SkinNm) then + SetSkinTests(frmSkinTests.lbGrid.Items); + if FormListContains(CT_PedNm) then + SetPatientEds(frmPatientEd.lbGrid.Items); + if FormListContains(CT_HlthNm) then + SetHealthFactors(frmHealthFactors.lbGrid.Items); + if FormListContains(CT_XamNm) then + SetExams(frmExams.lbGrid.Items); + end; +end; + +procedure TfrmEncounterFrame.SelectTab(NewTabName: string); +var + AllowChange: boolean; +begin + AllowChange := True; + tabControl.TabIndex := FormList.IndexOf(NewTabName); + tabPageChange(Self, tabControl.TabIndex, AllowChange); +end; + +procedure TfrmEncounterFrame.TabControlExit(Sender: TObject); +var + i: integer; +begin + //Keep the focus on the active page + if (sender as tTabControl).tabindex = -1 then exit; + + for i := CT_FIRST to CT_LAST do + begin + with Formlist do + with sender as tTabControl do + if Tabindex = IndexOf(PageIdToTab(i)) then + begin + PageIDToForm(i).FocusFirstControl; + end; + end; +end; + +procedure TfrmEncounterFrame.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +var + CanChange: boolean; +begin + if (Key = VK_ESCAPE) then + begin + Key := 0; + FLastPage.btnCancel.Click; + end + else if Key = VK_TAB then + begin + if ssCtrl in Shift then + begin + CanChange := True; + if Assigned(TabControl.OnChanging) then + TabControl.OnChanging(TabControl, CanChange); + if CanChange then + begin + if ssShift in Shift then + begin + if TabControl.TabIndex < 1 then + TabControl.TabIndex := TabControl.Tabs.Count -1 + else + TabControl.TabIndex := TabControl.TabIndex - 1; + end + else + TabControl.TabIndex := (TabControl.TabIndex + 1) mod TabControl.Tabs.Count; + if Assigned(TabControl.OnChange) then + TabControl.OnChange(TabControl); + end; + Key := 0; + end; + end; + if FLastPage = frmEncVitals then + frmEncVitals.FormKeyDown(Sender, Key, Shift); +end; + +procedure TfrmEncounterFrame.SetFormFonts; +var + NewFontSize: integer; +begin + NewFontSize := MainFontsize; + if FormListContains(CT_VisitNm) then + frmVisitType.Font.Size := NewFontSize; + if FormListContains(CT_DiagNm) then + frmDiagnoses.Font.Size := NewFontSize; + if FormListContains(CT_ProcNm) then + frmProcedures.Font.Size := NewFontSize; + if FormListContains(CT_ImmNm) then + frmImmunizations.Font.Size := NewFontSize; + if FormListContains(CT_SkinNm) then + frmSkinTests.Font.Size := NewFontSize; + if FormListContains(CT_PedNm) then + frmPatientEd.Font.Size := NewFontSize; + if FormListContains(CT_HlthNm) then + frmHealthFactors.Font.Size := NewFontSize; + if FormListContains(CT_XamNm) then + frmExams.Font.Size := NewFontSize; + if FormListContains(CT_VitNm) then + frmEncVitals.Font.Size := NewFontSize; + if FormListContains(CT_GAFNm) then + frmGAF.SetFontSize(NewFontSize); +end; + +procedure TfrmEncounterFrame.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + SaveUserBounds(Self); +end; + +procedure TfrmEncounterFrame.FormCanResize(Sender: TObject; var NewWidth, + NewHeight: Integer; var Resize: Boolean); +begin + //CQ4740 + if NewWidth < 200 then + begin + NewWidth := 200; + Resize := false; + end; +end; + +end. diff --git a/CPRS-Chart/Encounter/fExam.dfm b/CPRS-Chart/Encounter/fExam.dfm new file mode 100644 index 0000000..c846732 --- /dev/null +++ b/CPRS-Chart/Encounter/fExam.dfm @@ -0,0 +1,97 @@ +inherited frmExams: TfrmExams + Left = 509 + Top = 223 + Caption = 'Encounter Examinations' + PixelsPerInch = 96 + TextHeight = 13 + object lblExamResults: TLabel [0] + Left = 490 + Top = 264 + Width = 35 + Height = 13 + Caption = 'Results' + end + inherited lblSection: TLabel + Width = 65 + Caption = 'Exam Section' + end + inherited btnOK: TBitBtn + TabOrder = 6 + end + inherited btnCancel: TBitBtn + TabOrder = 7 + end + inherited pnlGrid: TPanel + TabOrder = 1 + inherited lbGrid: TORListBox + Caption = 'Exams' + Pieces = '1,2' + end + inherited hcGrid: THeaderControl + Sections = < + item + ImageIndex = -1 + MinWidth = 60 + Text = 'Results' + Width = 60 + end + item + ImageIndex = -1 + MinWidth = 90 + Text = 'Selected Exams' + Width = 90 + end> + end + end + inherited edtComment: TCaptionEdit + TabOrder = 3 + end + inherited btnRemove: TButton + TabOrder = 5 + end + inherited btnSelectAll: TButton + TabOrder = 2 + TabStop = True + end + inherited pnlMain: TPanel + TabOrder = 0 + inherited lbxSection: TORListBox + Tag = 80 + end + inherited pnlLeft: TPanel + inherited lbSection: TORListBox + TabOrder = 0 + Caption = 'Exam Section' + end + inherited btnOther: TButton + Tag = 24 + Caption = 'Other Exam...' + TabOrder = 1 + end + end + end + object cboExamResults: TORComboBox + Tag = 60 + Left = 490 + Top = 280 + Width = 121 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Results' + Color = clWindow + DropDownCount = 8 + Enabled = False + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = cboExamResultsChange + end +end diff --git a/CPRS-Chart/Encounter/fExam.pas b/CPRS-Chart/Encounter/fExam.pas new file mode 100644 index 0000000..374c52e --- /dev/null +++ b/CPRS-Chart/Encounter/fExam.pas @@ -0,0 +1,117 @@ +unit fExam; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, StdCtrls, ORCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn, + fPCELex, fPCEOther, ComCtrls, fPCEBaseMain; + +type + TfrmExams = class(TfrmPCEBaseMain) + lblExamResults: TLabel; + cboExamResults: TORComboBox; + procedure cboExamResultsChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + protected + procedure UpdateNewItemStr(var x: string); override; + procedure UpdateControls; override; + public + end; + +var + frmExams: TfrmExams; + +implementation + +{$R *.DFM} + +uses + fEncounterFrame; + +procedure TfrmExams.cboExamResultsChange(Sender: TObject); +var + i: integer; + +begin + if(NotUpdating) and (cboExamResults.Text <> '') then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCEExams(lbGrid.Items.Objects[i]).Results := cboExamResults.ItemID; + GridChanged; + end; +end; + +procedure TfrmExams.FormCreate(Sender: TObject); +begin + inherited; + FTabName := CT_XamNm; + FPCEListCodesProc := ListExamsCodes; + FPCEItemClass := TPCEExams; + FPCECode := 'XAM'; + PCELoadORCombo(cboExamResults); +end; + +procedure TfrmExams.UpdateNewItemStr(var x: string); +begin + SetPiece(x, U, pnumExamResults, NoPCEValue); +end; + +procedure TfrmExams.UpdateControls; +var + ok, First: boolean; + SameR: boolean; + i: integer; + Res: string; + Obj: TPCEExams; + +begin + inherited; + if(NotUpdating) then + begin + BeginUpdate; + try + ok := (lbGrid.SelCount > 0); + lblExamResults.Enabled := ok; + cboExamResults.Enabled := ok; + if(ok) then + begin + First := TRUE; + SameR := TRUE; + Res := NoPCEValue; + for i := 0 to lbGrid.Items.Count-1 do + begin + if lbGrid.Selected[i] then + begin + Obj := TPCEExams(lbGrid.Items.Objects[i]); + if(First) then + begin + First := FALSE; + Res := Obj.Results; + end + else + begin + if(SameR) then + SameR := (Res = Obj.Results); + end; + end; + end; + if(SameR) then + cboExamResults.SelectByID(Res) + else + cboExamResults.Text := ''; + end + else + begin + cboExamResults.Text := ''; + end; + finally + EndUpdate; + end; + end; +end; + +end. + diff --git a/CPRS-Chart/Encounter/fGAF.dfm b/CPRS-Chart/Encounter/fGAF.dfm new file mode 100644 index 0000000..a73964a --- /dev/null +++ b/CPRS-Chart/Encounter/fGAF.dfm @@ -0,0 +1,194 @@ +inherited frmGAF: TfrmGAF + Left = 255 + Top = 178 + ActiveControl = edtScore + Caption = 'frmGAF' + OnActivate = FormActivate + PixelsPerInch = 96 + TextHeight = 13 + object lblScore: TLabel [0] + Left = 139 + Top = 175 + Width = 31 + Height = 13 + Caption = 'Score:' + end + object lblDate: TLabel [1] + Left = 139 + Top = 206 + Width = 83 + Height = 13 + Caption = 'Date Determined:' + end + object lblDeterminedBy: TLabel [2] + Left = 139 + Top = 237 + Width = 72 + Height = 13 + Caption = 'Determined By:' + end + object Spacer1: TLabel [3] + Left = 0 + Top = 0 + Width = 624 + Height = 13 + Align = alTop + end + object Spacer2: TLabel [4] + Left = 0 + Top = 122 + Width = 624 + Height = 13 + Align = alTop + end + object lblGAF: TStaticText [5] + Left = 0 + Top = 13 + Width = 624 + Height = 22 + Align = alTop + Alignment = taCenter + AutoSize = False + Caption = 'Most recent Global Assessment of Functioning (GAF) scores:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + end + object lblEntry: TStaticText [6] + Left = 0 + Top = 135 + Width = 624 + Height = 30 + Align = alTop + Alignment = taCenter + AutoSize = False + Caption = 'Global Assessment of Functioning (GAF) score entry:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + end + inherited btnOK: TBitBtn + TabOrder = 6 + end + inherited btnCancel: TBitBtn + TabOrder = 7 + end + inherited pnlGrid: TPanel + Left = 0 + Top = 35 + Width = 624 + Align = alTop + TabOrder = 0 + inherited lbGrid: TORListBox + Width = 624 + TabStop = False + MultiSelect = True + Caption = 'Most recent Global Assessment of Functioning (GAF) scores' + Pieces = '1,2,3,4' + end + inherited hcGrid: THeaderControl + Width = 624 + Sections = < + item + ImageIndex = -1 + MinWidth = 65 + Text = 'GAF Score' + Width = 65 + end + item + ImageIndex = -1 + MinWidth = 95 + Text = 'Date Determined' + Width = 95 + end + item + ImageIndex = -1 + MinWidth = 85 + Text = 'Determined By' + Width = 85 + end + item + ImageIndex = -1 + MinWidth = 60 + Text = 'Comment' + Width = 60 + end> + end + end + object edtScore: TCaptionEdit + Left = 226 + Top = 171 + Width = 33 + Height = 21 + TabOrder = 1 + Text = '0' + OnChange = edtScoreChange + Caption = 'Score' + end + object udScore: TUpDown + Left = 259 + Top = 171 + Width = 15 + Height = 21 + Associate = edtScore + Min = 0 + Position = 0 + TabOrder = 2 + Wrap = False + end + object dteGAF: TORDateBox + Left = 226 + Top = 202 + Width = 121 + Height = 21 + TabOrder = 3 + OnExit = dteGAFExit + DateOnly = True + RequireTime = False + Caption = 'Date Determined:' + end + object cboGAFProvider: TORComboBox + Left = 226 + Top = 233 + Width = 212 + Height = 117 + Style = orcsSimple + AutoSelect = True + Caption = 'Determined By' + 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 = 4 + OnExit = cboGAFProviderExit + OnNeedData = cboGAFProviderNeedData + end + object btnURL: TButton + Left = 3 + Top = 376 + Width = 134 + Height = 21 + Hint = 'GAF Scale Rating Form' + Caption = 'Reference Information' + ParentShowHint = False + ShowHint = True + TabOrder = 5 + OnClick = btnURLClick + end +end diff --git a/CPRS-Chart/Encounter/fGAF.pas b/CPRS-Chart/Encounter/fGAF.pas new file mode 100644 index 0000000..7ee481e --- /dev/null +++ b/CPRS-Chart/Encounter/fGAF.pas @@ -0,0 +1,206 @@ +unit fGAF; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, StdCtrls, Buttons, ExtCtrls, Grids, ORFn, ORNet, ORCtrls, + ORDtTm, ComCtrls, fPCEBaseGrid, Menus; + +type + TfrmGAF = class(TfrmPCEBaseGrid) + lblGAF: TStaticText; + edtScore: TCaptionEdit; + udScore: TUpDown; + dteGAF: TORDateBox; + lblEntry: TStaticText; + lblScore: TLabel; + lblDate: TLabel; + lblDeterminedBy: TLabel; + cboGAFProvider: TORComboBox; + btnURL: TButton; + Spacer1: TLabel; + Spacer2: TLabel; + procedure cboGAFProviderNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure edtScoreChange(Sender: TObject); + procedure dteGAFExit(Sender: TObject); + procedure cboGAFProviderExit(Sender: TObject); + procedure FormActivate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure btnURLClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + FDataLoaded: boolean; + procedure LoadScores; + function BADData(ShowMessage: boolean): boolean; + public + procedure AllowTabChange(var AllowChange: boolean); override; + procedure GetGAFScore(var Score: integer; var Date: TFMDateTime; var Staff: Int64); + end; + +function ValidGAFData(Score: integer; Date: TFMDateTime; Staff: Int64): boolean; + +var + frmGAF: TfrmGAF; + +implementation + +uses rPCE, rCore, uCore, uPCE, fEncounterFrame; + +{$R *.DFM} + +function ValidGAFData(Score: integer; Date: TFMDateTime; Staff: Int64): boolean; +begin + if(Score < 1) or (Score > 100) or (Date <= 0) or (Staff = 0) then + Result := FALSE + else + Result := ((Patient.DateDied <= 0) or (Date <= Patient.DateDied)); +end; + +procedure TfrmGAF.LoadScores; +var + i: integer; + tmp: string; + +begin + RecentGafScores(3); + if(RPCBrokerV.Results.Count > 0) and (RPCBrokerV.Results[0] = '[DATA]') then + begin + for i := 1 to RPCBrokerV.Results.Count-1 do + begin + tmp := RPCBrokerV.Results[i]; + lbGrid.Items.Add(Piece(tmp,U,5) + U + Piece(Piece(tmp,U,2),NoPCEValue,1) + U + + Piece(tmp,U,7) + U + Piece(tmp,U,8)); + end; + end; + if(lbGrid.Items.Count > 0) then + SyncGridData + else + lbGrid.Items.Add('No GAF scores found.'); +end; + +procedure TfrmGAF.cboGAFProviderNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + inherited; + cboGAFProvider.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +function TfrmGAF.BADData(ShowMessage: boolean): boolean; +var + PName, msg: string; + GAFDate: TFMDateTime; + UIEN: Int64; + +begin + GAFDate := dteGAF.FMDateTime; + msg := ValidateGAFDate(GAFDate); + if(dteGAF.FMDateTime <> GAFDate) then + dteGAF.FMDateTime := GAFDate; + + if(cboGAFProvider.ItemID = '') then + begin + if(msg <> '') then + msg := msg + CRLF; + msg := msg + 'A determining party is required to enter a GAF score.'; + UIEN := uProviders.PCEProvider; + if(UIEN <> 0) then + begin + PName := uProviders.PCEProviderName; + msg := msg + ' Determined By changed to ' + PName + '.'; + cboGAFProvider.SelectByIEN(UIEN); + if(cboGAFProvider.ItemID = '') then + begin + cboGAFProvider.InitLongList(PName); + cboGAFProvider.SelectByIEN(UIEN); + end; + end; + end; + + if(ShowMessage and (msg <> '')) then + InfoBox(msg, 'Invalid GAF Data', MB_OK); + + if(udScore.Position > udScore.Min) then + Result := (msg <> '') + else + Result := FALSE; +end; + +procedure TfrmGAF.edtScoreChange(Sender: TObject); +var + i: integer; + +begin + inherited; + i := StrToIntDef(edtScore.Text,udScore.Min); + if(i < udScore.Min) or (i > udScore.Max) then + i := udScore.Min; + udScore.Position := i; + edtScore.Text := IntToStr(i); + edtScore.SelStart := length(edtScore.Text); +end; + +procedure TfrmGAF.dteGAFExit(Sender: TObject); +begin + inherited; +// BadData(TRUE); +end; + +procedure TfrmGAF.cboGAFProviderExit(Sender: TObject); +begin + inherited; + BadData(TRUE); +end; + +procedure TfrmGAF.AllowTabChange(var AllowChange: boolean); +begin + AllowChange := (not BadData(TRUE)); +end; + +procedure TfrmGAF.GetGAFScore(var Score: integer; var Date: TFMDateTime; var Staff: Int64); +begin + Score := udScore.Position; + if(Score > 0) then BadData(TRUE); + Date := dteGAF.FMDateTime; + Staff := cboGAFProvider.ItemIEN; + if(not ValidGAFData(Score, Date, Staff)) then + begin + Score := 0; + Date := 0; + Staff := 0 + end; +end; + +procedure TfrmGAF.FormActivate(Sender: TObject); +begin + inherited; + if(not FDataLoaded) then + begin + FDataLoaded := TRUE; + LoadScores; + cboGAFProvider.InitLongList(Encounter.ProviderName); + BadData(FALSE); + end; +end; + +procedure TfrmGAF.FormShow(Sender: TObject); +begin + inherited; + FormActivate(Sender); +end; + +procedure TfrmGAF.btnURLClick(Sender: TObject); +begin + inherited; + GotoWebPage(GAFURL); +end; + +procedure TfrmGAF.FormCreate(Sender: TObject); +begin + inherited; + FTabName := CT_GAFNm; + btnURL.Visible := (User.WebAccess and (GAFURL <> '')); +end; + +end. diff --git a/CPRS-Chart/Encounter/fHFSearch.dfm b/CPRS-Chart/Encounter/fHFSearch.dfm new file mode 100644 index 0000000..69490f5 --- /dev/null +++ b/CPRS-Chart/Encounter/fHFSearch.dfm @@ -0,0 +1,104 @@ +inherited frmHFSearch: TfrmHFSearch + Left = 286 + Top = 248 + Width = 363 + Height = 417 + Caption = 'Other Health Factors' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object splMain: TSplitter + Left = 0 + Top = 131 + Width = 355 + Height = 3 + Cursor = crVSplit + Align = alTop + end + object lblCat: TLabel + Left = 0 + Top = 0 + Width = 355 + Height = 13 + Align = alTop + Caption = 'Category:' + end + object cbxSearch: TORComboBox + Left = 0 + Top = 13 + Width = 355 + Height = 118 + Style = orcsSimple + Align = alTop + AutoSelect = True + Caption = 'Category' + Color = clWindow + DropDownCount = 7 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + TabStop = True + OnChange = cbxSearchChange + OnDblClick = tvSearchDblClick + end + object tvSearch: TORTreeView + Left = 0 + Top = 134 + Width = 355 + Height = 229 + Align = alClient + HideSelection = False + Indent = 23 + ReadOnly = True + StateImages = dmodShared.imgTemplates + TabOrder = 1 + OnChange = tvSearchChange + OnCollapsed = tvSearchGetImageIndex + OnDblClick = tvSearchDblClick + OnExpanded = tvSearchGetImageIndex + OnGetImageIndex = tvSearchGetImageIndex + OnGetSelectedIndex = tvSearchGetImageIndex + Caption = 'Other Health Factors' + NodePiece = 2 + end + object pnlBottom: TPanel + Left = 0 + Top = 363 + Width = 355 + Height = 27 + Align = alBottom + BevelOuter = bvNone + TabOrder = 2 + object btnOK: TButton + Left = 196 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Caption = '&OK' + Default = True + Enabled = False + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 276 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Cancel = True + Caption = '&Cancel' + ModalResult = 2 + TabOrder = 1 + end + end +end diff --git a/CPRS-Chart/Encounter/fHFSearch.pas b/CPRS-Chart/Encounter/fHFSearch.pas new file mode 100644 index 0000000..8b4e7bc --- /dev/null +++ b/CPRS-Chart/Encounter/fHFSearch.pas @@ -0,0 +1,226 @@ +unit fHFSearch; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, ORFn, StdCtrls, ComCtrls, ORCtrls, ExtCtrls; + +type + TfrmHFSearch = class(TfrmAutoSz) + cbxSearch: TORComboBox; + tvSearch: TORTreeView; + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + splMain: TSplitter; + lblCat: TLabel; + procedure FormCreate(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure tvSearchDblClick(Sender: TObject); + procedure tvSearchGetImageIndex(Sender: TObject; Node: TTreeNode); + procedure tvSearchChange(Sender: TObject; Node: TTreeNode); + procedure cbxSearchChange(Sender: TObject); + private + FCode: string; + FChanging: boolean; + procedure UpdateCat; + public + end; + +procedure HFLookup(var Code: string); + +implementation + +uses rPCE, dShared, fEncounterFrame; + +{$R *.DFM} + +const + CatTxt = 'Category: '; + +procedure HFLookup(var Code: string); +var + frmHFSearch: TfrmHFSearch; + +begin + frmHFSearch := TfrmHFSearch.Create(Application); + try + ResizeFormToFont(TForm(frmHFSearch)); + frmHFSearch.ShowModal; + Code := frmHFSearch.FCode; + finally + frmHFSearch.Free; + end; +end; + +procedure TfrmHFSearch.cbxSearchChange(Sender: TObject); +var + Node: TORTreeNode; + CurCat, NodeCat: TTreeNode; + ID: string; + +begin + inherited; + if(not FChanging) then + begin + FChanging := TRUE; + try + btnOK.Enabled := (cbxSearch.ItemIndex >= 0); + if(cbxSearch.ItemIndex < 0) then + tvSearch.Selected := nil + else + begin + ID := cbxSearch.ItemID; + if(assigned(tvSearch.Selected)) then + begin + CurCat := tvSearch.Selected; + while (assigned(CurCat.Parent)) do + CurCat := CurCat.Parent; + end + else + CurCat := nil; + Node := TORTreeNode(tvSearch.Items.GetFirstNode); + while assigned(Node) do + begin + if(piece(Node.StringData,U,1)= ID) then + begin + NodeCat := Node; + while (assigned(NodeCat.Parent)) do + NodeCat := NodeCat.Parent; + RedrawSuspend(tvSearch.Handle); + try + if(CurCat <> NodeCat) then + tvSearch.FullCollapse; + tvSearch.Selected := Node; + Node.EnsureVisible; + finally + RedrawActivate(tvSearch.Handle); + end; + break; + end; + Node := TORTreeNode(Node.GetNext); + end; + end; + UpdateCat; + finally + FChanging := FALSE; + end; + end; +end; + + +procedure TfrmHFSearch.FormCreate(Sender: TObject); +var + HFList: TStringList; + i: integer; + Node :TORTreeNode; + CAT: string; + +begin + inherited; + HFList := TStringList.Create; + try + LoadcboOther(HFList, uEncPCEData.Location, PCE_HF); + for i := 0 to HFList.Count-1 do + begin + if(Piece(HFList[i],U,3)='F') then + cbxSearch.Items.Add(pieces(HFList[i],U,1,2)); + end; + for i := 0 to HFList.Count-1 do + begin + if(Piece(HFList[i],U,3)='C') then + begin + with TORTreeNode(tvSearch.Items.Add(nil, '')) do + begin + StringData := HFList[i]; + StateIndex := 2; + end; + end; + end; + for i := 0 to HFList.Count-1 do + begin + if(Piece(HFList[i],U,3)='F') then + begin + CAT := piece(HFList[i],U,4); + Node := TORTreeNode(tvSearch.Items.GetFirstNode); + while(assigned(Node)) do + begin + if(Piece(Node.StringData, U, 1) = CAT) then + break; + Node := TORTreeNode(Node.GetNextSibling); + end; + TORTreeNode(tvSearch.Items.AddChild(Node, '')).StringData := Pieces(HFList[i],U,1,2); + end; + end; +// tvSearch.Invalidate; + finally + HFList.Free; + end; +end; + +procedure TfrmHFSearch.btnOKClick(Sender: TObject); +begin + inherited; + if cbxSearch.ItemIndex = -1 then Exit; + FCode := cbxSearch.Items[cbxSearch.ItemIndex]; + ModalResult := mrOK; +end; + +procedure TfrmHFSearch.tvSearchDblClick(Sender: TObject); +begin + inherited; + btnOKClick(Sender); +end; + +procedure TfrmHFSearch.tvSearchGetImageIndex(Sender: TObject; + Node: TTreeNode); +begin + inherited; + if(piece(TORTreeNode(Node).StringData,U,3)= 'C') then + begin + if(Node.Expanded) then + Node.StateIndex := 3 + else + Node.StateIndex := 2; + end; +// tvSearch.Invalidate; +end; + +procedure TfrmHFSearch.tvSearchChange(Sender: TObject; Node: TTreeNode); +begin + inherited; + if(not FChanging) then + begin + FChanging := TRUE; + try + if(assigned(Node)) then + cbxSearch.SelectByID(Piece(TORTreeNode(Node).StringData,U,1)) + else + cbxSearch.ItemIndex := -1; + btnOK.Enabled := (cbxSearch.ItemIndex >= 0); + UpdateCat; + finally + FChanging := FALSE; + end; + end; +end; + +procedure TfrmHFSearch.UpdateCat; +var + NodeCat: TTreeNode; + +begin + NodeCat := tvSearch.Selected; + if(assigned(NodeCat)) then + begin + while (assigned(NodeCat.Parent)) do + NodeCat := NodeCat.Parent; + lblCat.Caption := CatTxt + NodeCat.Text; + end + else + lblCat.Caption := CatTxt; + cbxSearch.Caption := lblCat.Caption; +end; + +end. diff --git a/CPRS-Chart/Encounter/fHealthFactor.dfm b/CPRS-Chart/Encounter/fHealthFactor.dfm new file mode 100644 index 0000000..96079a0 --- /dev/null +++ b/CPRS-Chart/Encounter/fHealthFactor.dfm @@ -0,0 +1,102 @@ +inherited frmHealthFactors: TfrmHealthFactors + Left = 374 + Top = 205 + Caption = 'Health Factor page' + PixelsPerInch = 96 + TextHeight = 13 + object lblHealthLevel: TLabel [0] + Left = 490 + Top = 264 + Width = 69 + Height = 13 + Caption = 'Level/Severity' + end + inherited lblSection: TLabel + Width = 103 + Caption = 'Health Factor Section' + end + inherited btnOK: TBitBtn + TabOrder = 6 + end + inherited btnCancel: TBitBtn + TabOrder = 7 + end + inherited pnlGrid: TPanel + TabOrder = 1 + inherited lbGrid: TORListBox + Tag = 70 + Caption = 'Selected Health Factors' + Pieces = '1,2' + end + inherited hcGrid: THeaderControl + Sections = < + item + ImageIndex = -1 + MinWidth = 85 + Text = 'Level/Severity' + Width = 85 + end + item + ImageIndex = -1 + MinWidth = 130 + Text = 'Selected Health Factors' + Width = 130 + end> + end + end + inherited edtComment: TCaptionEdit + MaxLength = 245 + TabOrder = 3 + end + inherited btnRemove: TButton + TabOrder = 5 + end + inherited btnSelectAll: TButton + TabOrder = 2 + TabStop = True + end + inherited pnlMain: TPanel + TabOrder = 0 + inherited lbxSection: TORListBox + Tag = 70 + end + inherited pnlLeft: TPanel + inherited lbSection: TORListBox + Tag = 70 + TabOrder = 0 + Caption = 'Health Factor Section' + end + inherited btnOther: TButton + Tag = 23 + Caption = 'Other Health Factor...' + TabOrder = 1 + end + end + end + object cboHealthLevel: TORComboBox + Tag = 50 + Left = 490 + Top = 280 + Width = 121 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Level/Severity' + Color = clWindow + DropDownCount = 8 + Enabled = False + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = cboHealthLevelChange + CharsNeedMatch = 1 + end +end diff --git a/CPRS-Chart/Encounter/fHealthFactor.pas b/CPRS-Chart/Encounter/fHealthFactor.pas new file mode 100644 index 0000000..31a10f8 --- /dev/null +++ b/CPRS-Chart/Encounter/fHealthFactor.pas @@ -0,0 +1,117 @@ +unit fHealthFactor; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, StdCtrls, ORCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn, + fPCELex, fPCEOther, ComCtrls, fPCEBaseMain; + +type + TfrmHealthFactors = class(TfrmPCEBaseMain) + lblHealthLevel: TLabel; + cboHealthLevel: TORComboBox; + + procedure cboHealthLevelChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + protected + procedure UpdateNewItemStr(var x: string); override; + procedure UpdateControls; override; + public + end; + +var + frmHealthFactors: TfrmHealthFactors; + +implementation + +{$R *.DFM} + +uses + fEncounterFrame; + +procedure tfrmHealthFactors.cboHealthLevelChange(Sender: TObject); +var + i: integer; + +begin + if(NotUpdating) and (cboHealthLevel.Text <> '') then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCEPat(lbGrid.Items.Objects[i]).Level := cboHealthLevel.ItemID; + GridChanged; + end; +end; + +procedure TfrmHealthFactors.FormCreate(Sender: TObject); +begin + inherited; + FTabName := CT_HlthNm; + FPCEListCodesProc := ListHealthCodes; + FPCEItemClass := TPCEHealth; + FPCECode := 'HF'; + PCELoadORCombo(cboHealthLevel); +end; + +procedure TfrmHealthFactors.UpdateNewItemStr(var x: string); +begin + SetPiece(x, U, pnumHFLevel, NoPCEValue); +end; + +procedure TfrmHealthFactors.UpdateControls; +var + ok, First: boolean; + SameHL: boolean; + i: integer; + HL: string; + Obj: TPCEHealth; + +begin + inherited; + if(NotUpdating) then + begin + BeginUpdate; + try + ok := (lbGrid.SelCount > 0); + lblHealthLevel.Enabled := ok; + cboHealthLevel.Enabled := ok; + if(ok) then + begin + First := TRUE; + SameHL := TRUE; + HL := NoPCEValue; + for i := 0 to lbGrid.Items.Count-1 do + begin + if lbGrid.Selected[i] then + begin + Obj := TPCEHealth(lbGrid.Items.Objects[i]); + if(First) then + begin + First := FALSE; + HL := Obj.Level; + end + else + begin + if(SameHL) then + SameHL := (HL = Obj.Level); + end; + end; + end; + if(SameHL) then + cboHealthLevel.SelectByID(HL) + else + cboHealthLevel.Text := ''; + end + else + begin + cboHealthLevel.Text := ''; + end; + finally + EndUpdate; + end; + end; +end; + +end. diff --git a/CPRS-Chart/Encounter/fImmunization.dfm b/CPRS-Chart/Encounter/fImmunization.dfm new file mode 100644 index 0000000..f929f12 --- /dev/null +++ b/CPRS-Chart/Encounter/fImmunization.dfm @@ -0,0 +1,159 @@ +inherited frmImmunizations: TfrmImmunizations + Left = 373 + Top = 169 + Caption = 'Encouner Immunization' + PixelsPerInch = 96 + TextHeight = 13 + object lblReaction: TLabel [0] + Left = 490 + Top = 274 + Width = 43 + Height = 13 + Caption = 'Reaction' + end + object lblSeries: TLabel [1] + Left = 490 + Top = 236 + Width = 29 + Height = 13 + Caption = 'Series' + end + inherited lblSection: TLabel + Width = 100 + Caption = 'Immunization Section' + end + object lblContra: TLabel [6] + Left = 509 + Top = 312 + Width = 74 + Height = 26 + Caption = 'Repeat Contraindicated' + WordWrap = True + end + inherited btnOK: TBitBtn + TabOrder = 8 + end + inherited btnCancel: TBitBtn + TabOrder = 9 + end + inherited pnlGrid: TPanel + TabOrder = 1 + inherited lbGrid: TORListBox + Tag = 40 + Caption = 'Selected Immunizations' + Pieces = '1,2,3,4' + end + inherited hcGrid: THeaderControl + Sections = < + item + ImageIndex = -1 + MinWidth = 43 + Text = 'Series' + Width = 96 + end + item + ImageIndex = -1 + MinWidth = 57 + Text = 'Reaction' + Width = 134 + end + item + ImageIndex = -1 + MinWidth = 45 + Text = 'Contra' + Width = 45 + end + item + ImageIndex = -1 + MinWidth = 124 + Text = 'Selected Immunizations' + Width = 124 + end> + end + end + inherited edtComment: TCaptionEdit + TabOrder = 3 + end + inherited btnRemove: TButton + TabOrder = 7 + end + inherited btnSelectAll: TButton + TabOrder = 2 + TabStop = True + end + inherited pnlMain: TPanel + TabOrder = 0 + inherited lbxSection: TORListBox + Tag = 40 + end + inherited pnlLeft: TPanel + inherited lbSection: TORListBox + Tag = 40 + TabOrder = 0 + Caption = 'Immunization Section' + end + inherited btnOther: TButton + Tag = 20 + Caption = 'Other Immunization...' + TabOrder = 1 + end + end + end + object cboImmReaction: TORComboBox + Tag = 20 + Left = 490 + Top = 288 + Width = 121 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Reaction' + Color = clWindow + DropDownCount = 8 + Enabled = False + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 5 + OnChange = cboImmReactionChange + end + object cboImmSeries: TORComboBox + Tag = 10 + Left = 490 + Top = 250 + Width = 121 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Series' + Color = clWindow + DropDownCount = 8 + Enabled = False + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = cboImmSeriesChange + end + object ckbContra: TCheckBox + Left = 490 + Top = 319 + Width = 13 + Height = 13 + Enabled = False + TabOrder = 6 + OnClick = ckbContraClick + end +end diff --git a/CPRS-Chart/Encounter/fImmunization.pas b/CPRS-Chart/Encounter/fImmunization.pas new file mode 100644 index 0000000..7db5069 --- /dev/null +++ b/CPRS-Chart/Encounter/fImmunization.pas @@ -0,0 +1,181 @@ +unit fImmunization; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, StdCtrls, ORCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn, + fPCELex, fPCEOther, ComCtrls, fPCEBaseMain; + +type + TfrmImmunizations = class(TfrmPCEBaseMain) + lblReaction: TLabel; + lblSeries: TLabel; + cboImmReaction: TORComboBox; + cboImmSeries: TORComboBox; + ckbContra: TCheckBox; + lblContra: TLabel; + + procedure cboImmSeriesChange(Sender: TObject); + procedure cboImmReactionChange(Sender: TObject); + procedure ckbContraClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + protected + procedure UpdateNewItemStr(var x: string); override; + procedure UpdateControls; override; + public +// procedure ChangeProvider; + end; + +var + frmImmunizations: TfrmImmunizations; + +implementation + +{$R *.DFM} + +uses + fEncounterFrame; + +procedure TfrmImmunizations.cboImmSeriesChange(Sender: TObject); +var + i: integer; + +begin + if(NotUpdating) and (cboImmSeries.Text <> '') then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCEImm(lbGrid.Items.Objects[i]).Series := cboImmSeries.ItemID; + GridChanged; + end; +end; + +procedure TfrmImmunizations.cboImmReactionChange(Sender: TObject); +var + i: integer; + +begin + if(NotUpdating) and (cboImmReaction.Text <> '') then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCEImm(lbGrid.Items.Objects[i]).Reaction := cboImmReaction.ItemID; + GridChanged; + end; +end; + +procedure TfrmImmunizations.ckbContraClick(Sender: TObject); +var + i: integer; + +begin + if(NotUpdating) then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCEImm(lbGrid.Items.Objects[i]).Contraindicated := ckbContra.Checked; + GridChanged; + end; +end; + +procedure TfrmImmunizations.FormCreate(Sender: TObject); +begin + inherited; + FTabName := CT_ImmNm; + FPCEListCodesProc := ListImmunizCodes; + FPCEItemClass := TPCEImm; + FPCECode := 'IMM'; + PCELoadORCombo(cboImmReaction); + PCELoadORCombo(cboImmSeries); +end; + +procedure TfrmImmunizations.UpdateNewItemStr(var x: string); +begin + inherited; + SetPiece(x, U, pnumImmSeries, NoPCEValue); + SetPiece(x, U, pnumImmReaction, NoPCEValue); + SetPiece(x, U, pnumImmRefused, '0'); + SetPiece(x, U, pnumImmContra, '0'); +end; + +procedure TfrmImmunizations.UpdateControls; +var + ok, Contra, First: boolean; + SameS, SameR, SameC: boolean; + i: integer; + Ser, React: string; + Obj: TPCEImm; + +begin + inherited; + if(NotUpdating) then + begin + BeginUpdate; + try + ok := (lbGrid.SelCount > 0); + lblSeries.Enabled := ok; + lblReaction.Enabled := ok; + cboImmSeries.Enabled := ok; + cboImmReaction.Enabled := ok; + ckbContra.Enabled := ok; + if(ok) then + begin + First := TRUE; + SameS := TRUE; + SameR := TRUE; + SameC := TRUE; + Contra := FALSE; + Ser := NoPCEValue; + React := NoPCEValue; + for i := 0 to lbGrid.Items.Count-1 do + begin + if lbGrid.Selected[i] then + begin + Obj := TPCEImm(lbGrid.Items.Objects[i]); + if(First) then + begin + First := FALSE; + Contra := Obj.Contraindicated; + Ser := Obj.Series; + React := Obj.Reaction; + end + else + begin + if(SameS) then + SameS := (Ser = Obj.Series); + if(SameR) then + SameR := (React = Obj.Reaction); + if(SameC) then + SameC := (Contra = Obj.Contraindicated); + end; + end; + end; + if(SameS) then + cboImmSeries.SelectByID(Ser) + else + cboImmSeries.Text := ''; + if(SameR) then + cboImmReaction.SelectByID(React) + else + cboImmReaction.Text := ''; + if(SameC) then + ckbContra.Checked := Contra + else + ckbContra.State := cbGrayed; + end + else + begin + cboImmSeries.Text := ''; + cboImmReaction.Text := ''; + ckbContra.Checked := FALSE; + end; + finally + EndUpdate; + end; + end; +end; + +end. + \ No newline at end of file diff --git a/CPRS-Chart/Encounter/fPCEBase.dfm b/CPRS-Chart/Encounter/fPCEBase.dfm new file mode 100644 index 0000000..0b2def0 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEBase.dfm @@ -0,0 +1,47 @@ +object frmPCEBase: TfrmPCEBase + Left = 194 + Top = 170 + AutoScroll = False + Caption = 'Basic Page' + ClientHeight = 400 + ClientWidth = 624 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + OnClose = FormClose + OnCreate = FormCreate + OnShow = FormShow + DesignSize = ( + 624 + 400) + PixelsPerInch = 96 + TextHeight = 13 + object btnOK: TBitBtn + Left = 467 + Top = 376 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'OK' + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + NumGlyphs = 2 + end + object btnCancel: TBitBtn + Left = 547 + Top = 376 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + OnClick = btnCancelClick + NumGlyphs = 2 + end +end diff --git a/CPRS-Chart/Encounter/fPCEBase.pas b/CPRS-Chart/Encounter/fPCEBase.pas new file mode 100644 index 0000000..8112269 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEBase.pas @@ -0,0 +1,376 @@ +{/////////////////////////////////////////////////////////////////////////////// +//Name: fPCEBase.pas, fPCEBase.dfm +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Parent form for all PCE tabs. This form will hold methods that are +// universal for a PCE tabs. These forms will be child forms to fEncounterFrame. +////////////////////////////////////////////////////////////////////////////////} + +unit fPCEBase; + +{$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, uConst, + StdCtrls, fAutoSz, Buttons, ORCtrls, ORFn, uPCE, ORDtTm, Checklst, + ComCtrls; + +type + TfrmPCEBase = class(TfrmAutoSz) + btnOK: TBitBtn; + btnCancel: TBitBtn; + procedure FormCreate(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure btnOKClick(Sender: TObject); virtual; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + private + FDisplayCount: Integer; // number of times page displayed + FPatientCount: Integer; // number of times page displayed for given pt + FCallingContext: Integer; +// function GetInitPage: Boolean; +// function GetInitPatient: Boolean; +// function GetPatientViewed: Boolean; + procedure UMResizePage(var Message: TMessage); message UM_RESIZEPAGE; + protected + FClosing: boolean; + FSectionTabs: array[0..2] of Integer; + FSectionTabCount: integer; + FTabName: string; +// procedure CreateParams(var Params: TCreateParams); override; + function ActiveCtrl: TWinControl; + function SectionString: string; + procedure DoEnter; override; + public + constructor CreateLinked(AParent: TWinControl); + procedure Loaded; override; +// function AllowContextChange: Boolean; virtual; +// procedure ClearPtData; virtual; + procedure DisplayPage; virtual; +// procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); virtual; //*no ordering will be done*// +// procedure RequestPrint; virtual; + procedure SetFontSize(NewFontSize: Integer); virtual; + procedure AllowTabChange(var AllowChange: boolean); virtual; + + property CallingContext: Integer read FCallingContext; +// property InitPage: Boolean read GetInitPage; +// property InitPatient: Boolean read GetInitPatient; +// property PatientViewed: Boolean read GetPatientViewed; + procedure FocusFirstControl; + end; + +var + frmPCEBase: TfrmPCEBase; + +implementation + +{$R *.DFM} + +uses + fEncounterFrame; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.FormCreate(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Initialize counters to zero +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.FormCreate(Sender: TObject); +begin + FDisplayCount := 0; + FPatientCount := 0; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.CreateParams(var Params: TCreateParams); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: turn the form into a child window +///////////////////////////////////////////////////////////////////////////////} +(*procedure TfrmPCEBase.CreateParams(var Params: TCreateParams); +{ turn the form into a child window } +begin + inherited CreateParams(Params); + with Params do + begin + if Owner is TPanel + then WndParent := TPanel(Owner).Handle + else if owner is TForm then + WndParent := (Owner as TForm).Handle; + Style := WS_CHILD or WS_CLIPSIBLINGS; + X := 0; Y := 0; + end; +end; + *) +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.Loaded; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: make the form borderless to allow it to be a child window +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.Loaded; +begin + inherited Loaded; + Visible := False; + Position := poDefault; + BorderIcons := []; + BorderStyle := bsNone; + HandleNeeded; + SetBounds(0, 0, Width, Height); +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: function TfrmPCEBase.AllowContextChange: Boolean; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: +///////////////////////////////////////////////////////////////////////////////} +(*function TfrmPCEBase.AllowContextChange: Boolean; +begin + Result := True; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.ClearPtData; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: clear all patient related data on a page +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.ClearPtData; +begin + FPatientCount := 0; +end; +*) +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.DisplayPage; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: cause the page to be displayed and update the display counters +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.DisplayPage; +begin + BringToFront; +// FocusControl(ActiveCtrl); + //SetFocus; + Inc(FDisplayCount); + Inc(FPatientCount); + FCallingContext := frmEncounterFrame.ChangeSource; + if (FCallingContext = CC_CLICK) and (FPatientCount = 1) + then FCallingContext := CC_INIT_PATIENT; +end; +(* +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.RequestPrint; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: For posible future use when printing is supported. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.RequestPrint; +begin + // +end; +*) + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.SetFontSize(NewFontSize: Integer); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Assign the new font size. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.SetFontSize(NewFontSize: Integer); +begin + Font.Size := NewFontSize; +end; +(* +{/////////////////////////////////////////////////////////////////////////////// +//Name: function TfrmPCEBase.GetInitPage: Boolean; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: if the count is one, this is the first time the page is being displayed. +///////////////////////////////////////////////////////////////////////////////} +function TfrmPCEBase.GetInitPage: Boolean; +begin + Result := FDisplayCount = 1; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: function TfrmPCEBase.GetInitPatient: Boolean; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: if the count is one, this is the first time the page is being +// displayed for a given patient +///////////////////////////////////////////////////////////////////////////////} +function TfrmPCEBase.GetInitPatient: Boolean; +begin + Result := FPatientCount = 1; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: function TfrmPCEBase.GetPatientViewed: Boolean; +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: returns false if the tab has never been clicked for this patient +///////////////////////////////////////////////////////////////////////////////} +function TfrmPCEBase.GetPatientViewed: Boolean; +begin + Result := FPatientCount > 0; +end; +*) +(* +procedure RepaintControl(AControl: TControl); +var + i: Integer; +begin + AControl.Invalidate; + AControl.Update; + if AControl is TWinControl then with TWinControl(AControl) do + for i := 0 to ControlCount - 1 do RepaintControl(Controls[i]); +end; +*) + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.UMResizePage(var Message: TMessage); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Redraw the controls on the form when it is resized. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.UMResizePage(var Message: TMessage); +var + i: Integer; +begin + for i := 0 to ComponentCount - 1 do + if Components[i] is TControl then with TControl(Components[i]) do Invalidate; + Update; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.btnCancelClick(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Indicate to the frame that cancel was pressed, and close the frame. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.btnCancelClick(Sender: TObject); +begin + inherited; + frmencounterframe.Abort := FALSE; + frmEncounterFrame.Cancel := true; + frmencounterframe.Close; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.btnCancelClick(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Indicate to the frame that it should close and save data. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.btnOKClick(Sender: TObject); +begin + frmencounterframe.Abort := FALSE; + frmencounterframe.Close; +end; + + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.FormClose(Sender: TObject; var Action: TCloseAction); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Free the memory held by the form. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + action := caFree; //destroy the forms when closed + FClosing := TRUE; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name: procedure TfrmPCEBase.CheckListDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; +// State: TOwnerDrawState); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description: Populate the checklist +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmPCEBase.AllowTabChange(var AllowChange: boolean); +begin +end; + +constructor TfrmPCEBase.CreateLinked(AParent: TWinControl); +begin + inherited Create(GetParentForm(AParent)); + Parent := AParent; + Align := alClient; + Show; +end; + +function TfrmPCEBase.ActiveCtrl: TWinControl; +begin + Result := GetParentForm(Self).ActiveControl; + if(Result is TORComboEdit) then + Result := TWinControl(Result.Owner); +end; + +function TfrmPCEBase.SectionString: string; +var + v, i: integer; + +begin + Result := ''; + if FSectionTabCount = 0 then exit; + v := 0; + for i := 0 to FSectionTabCount-1 do + begin + if(Result <> '') then + Result := Result + ','; + Result := Result + IntToStr(FSectionTabs[i]); + v := FSectionTabs[i]; + end; + for i := 1 to 20 do + begin + if(v<0) then + dec(v,32) + else + inc(v,32); + if Result <> '' then Result := Result + ','; + Result := Result + inttostr(v); + end; +end; + +procedure TfrmPCEBase.DoEnter; +begin + inherited; + frmEncounterFrame.SelectTab(FTabName); +end; + +procedure TfrmPCEBase.FocusFirstControl; +begin +// SetFocus; + FindNextControl(self, True, True, False).SetFocus; +end; + +procedure TfrmPCEBase.FormShow(Sender: TObject); +begin + inherited; + FocusFirstControl; +end; + +end. diff --git a/CPRS-Chart/Encounter/fPCEBaseGrid.dfm b/CPRS-Chart/Encounter/fPCEBaseGrid.dfm new file mode 100644 index 0000000..6a7e8e7 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEBaseGrid.dfm @@ -0,0 +1,49 @@ +inherited frmPCEBaseGrid: TfrmPCEBaseGrid + Left = 200 + Top = 303 + Caption = 'frmPCEBaseGrid' + PixelsPerInch = 96 + TextHeight = 13 + object pnlGrid: TPanel + Left = 6 + Top = 238 + Width = 451 + Height = 87 + BevelOuter = bvNone + Caption = 'pnlGrid' + TabOrder = 2 + OnResize = pnlGridResize + object lbGrid: TORListBox + Left = 0 + Top = 17 + Width = 451 + Height = 70 + Align = alClient + Color = clCream + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + ItemTipColor = clCream + LongList = False + TabPosInPixels = True + end + object hcGrid: THeaderControl + Left = 0 + Top = 0 + Width = 451 + Height = 17 + DragReorder = False + Sections = < + item + ImageIndex = -1 + Width = 50 + end + item + ImageIndex = -1 + Width = 50 + end> + OnSectionResize = hcGridSectionResize + end + end +end diff --git a/CPRS-Chart/Encounter/fPCEBaseGrid.pas b/CPRS-Chart/Encounter/fPCEBaseGrid.pas new file mode 100644 index 0000000..139c9cb --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEBaseGrid.pas @@ -0,0 +1,225 @@ +unit fPCEBaseGrid; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, ComCtrls, StdCtrls, ORCtrls, ExtCtrls, Buttons, ORFn; + +type + TfrmPCEBaseGrid = class(TfrmPCEBase) + pnlGrid: TPanel; + lbGrid: TORListBox; + hcGrid: THeaderControl; + procedure FormCreate(Sender: TObject); + procedure hcGridSectionResize(HeaderControl: THeaderControl; + Section: THeaderSection); + procedure pnlGridResize(Sender: TObject); + private + FSel: string; + FGridHeaderSyncing: boolean; + function GetGridIndex: integer; + procedure SetGridIndex(const Value: integer); + protected + FSectionGap: integer; + procedure UpdateControls; virtual; + procedure SaveGridSelected; + procedure RestoreGridSelected; + public + procedure SyncGridHeader(FromHeader: boolean); + procedure SyncGridData; + procedure ClearGrid; + property GridIndex: integer read GetGridIndex write SetGridIndex; + end; + +var + frmPCEBaseGrid: TfrmPCEBaseGrid; + +implementation + +{$R *.DFM} + +const + JustificationGap = 5; + +procedure TfrmPCEBaseGrid.FormCreate(Sender: TObject); +begin + inherited; + lbGrid.Color := ReadOnlyColor; + lbGrid.ItemTipColor := ReadOnlyColor; + FSectionGap := 15; + SyncGridHeader(TRUE); +end; + +procedure TfrmPCEBaseGrid.SyncGridHeader(FromHeader: boolean); +var + i, w, wd, wp, Gap: integer; + txt: string; + +begin + if(not FGridHeaderSyncing) then + begin + Gap := JustificationGap; + FGridHeaderSyncing := TRUE; + try + if(FromHeader) then + begin + txt := ''; + w := 0; + for i := 0 to hcGrid.Sections.Count-2 do + begin + if(i > 0) then + txt := txt + ','; + inc(w,(hcGrid.Sections[i].Width div 2)*2); + txt := txt + IntToStr(w + Gap); + Gap := 0; + end; + lbGrid.TabPositions := txt; + end + else + begin + txt := lbGrid.TabPositions; + wd := 0; + for i := 0 to hcGrid.Sections.Count-2 do + begin + wp := StrToIntDef(Piece(txt,',',i+1),hcGrid.Sections[i].MinWidth); + w := wp - wd; + hcGrid.Sections[i].Width := w - Gap; + Gap := 0; + wd := wp; + end; + end; + w := 0; + for i := 0 to hcGrid.Sections.Count-2 do + inc(w,hcGrid.Sections[i].Width); + hcGrid.Sections[hcGrid.Sections.Count-1].Width := pnlGrid.Width - w; + finally + FGridHeaderSyncing := FALSE; + end; + end; +end; + +procedure TfrmPCEBaseGrid.hcGridSectionResize( + HeaderControl: THeaderControl; Section: THeaderSection); +begin + inherited; + SyncGridHeader(TRUE); +end; + +procedure TfrmPCEBaseGrid.pnlGridResize(Sender: TObject); +begin + inherited; + SyncGridHeader(TRUE); +end; + +procedure TfrmPCEBaseGrid.SyncGridData; +var + tp, ltp, i, j, tlen: integer; + max: array[0..9] of integer; // more than 10 header sections will cause this to explode + tmp: string; + +begin + if(lbGrid.Items.Count > 0) then + begin + for j := 0 to hcGrid.Sections.Count-2 do max[j] := 0; + for i := 0 to lbGrid.Items.Count-1 do + begin + tmp := lbGrid.Items[i]; + for j := 0 to hcGrid.Sections.Count-2 do + begin + tlen := Canvas.TextWidth(Piece(tmp,U,j+1)) + FSectionGap; + if(max[j] < tlen) then + max[j] := tlen; + end; + end; + ltp := 0; + tmp := lbGrid.TabPositions; + for i := 0 to hcGrid.Sections.Count-2 do + begin + if(max[i] < hcGrid.Sections[i].MinWidth) then + max[i] := hcGrid.Sections[i].MinWidth; + tp := StrToIntDef(Piece(tmp,',',i+1),0); + tlen := tp - ltp; + ltp := tp; + if(max[i] < tlen) then + max[i] := tlen; + end; + for i := 1 to hcGrid.Sections.Count-2 do + inc(max[i], max[i-1]); + tmp := ''; + for i := 0 to hcGrid.Sections.Count-2 do + tmp := tmp + ',' + inttostr(max[i]); + delete(tmp,1,1); + if(lbGrid.TabPositions <> tmp) then + begin + SaveGridSelected; + lbGrid.TabPositions := tmp; + RestoreGridSelected; + end; + SyncGridHeader(FALSE); + end; +end; + +function TfrmPCEBaseGrid.GetGridIndex: integer; +var + i: integer; + +begin + Result := -1; + if(lbGrid.SelCount > 0) then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + begin + Result := i; + exit; + end; + end; +end; + +procedure TfrmPCEBaseGrid.SetGridIndex(const Value: integer); +var + i: integer; + +begin + for i := 0 to lbGrid.Items.Count-1 do + lbGrid.Selected[i] := (i = Value); + UpdateControls; +end; + +procedure TfrmPCEBaseGrid.ClearGrid; +var + i: integer; + +begin + if lbGrid.SelCount > 0 then + begin + for i := 0 to lbGrid.Items.Count-1 do + lbGrid.Selected[i] := FALSE; + end; + UpdateControls; +end; + +procedure TfrmPCEBaseGrid.UpdateControls; +begin +end; + +procedure TfrmPCEBaseGrid.RestoreGridSelected; +var + i: integer; + +begin + for i := 0 to lbGrid.Items.Count-1 do + lbGrid.Selected[i] := (copy(FSel,i+1,1) = BOOLCHAR[TRUE]); +end; + +procedure TfrmPCEBaseGrid.SaveGridSelected; +var + i: integer; +begin + FSel := ''; + for i := 0 to lbGrid.Items.Count-1 do + FSel := FSel + BOOLCHAR[lbGrid.Selected[i]]; +end; + +end. diff --git a/CPRS-Chart/Encounter/fPCEBaseMain.dfm b/CPRS-Chart/Encounter/fPCEBaseMain.dfm new file mode 100644 index 0000000..72a4434 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEBaseMain.dfm @@ -0,0 +1,167 @@ +inherited frmPCEBaseMain: TfrmPCEBaseMain + Left = 302 + Top = 166 + Caption = 'frmPCEBaseMain' + OnDestroy = FormDestroy + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object lblSection: TLabel [0] + Left = 6 + Top = 6 + Width = 46 + Height = 13 + Caption = 'lblSection' + end + object lblList: TLabel [1] + Left = 213 + Top = 6 + Width = 67 + Height = 13 + Caption = 'Section Name' + end + object lblComment: TLabel [2] + Left = 6 + Top = 328 + Width = 49 + Height = 13 + Caption = 'Comments' + end + object bvlMain: TBevel [3] + Left = 0 + Top = 230 + Width = 619 + Height = 140 + end + inherited btnOK: TBitBtn + Left = 464 + TabOrder = 1 + end + inherited btnCancel: TBitBtn + Left = 544 + TabOrder = 2 + end + inherited pnlGrid: TPanel + Width = 475 + TabOrder = 0 + inherited lbGrid: TORListBox + Width = 475 + MultiSelect = True + OnClick = lbGridSelect + OnChange = lbGridSelect + CheckEntireLine = True + end + inherited hcGrid: THeaderControl + Width = 475 + end + end + object edtComment: TCaptionEdit + Left = 6 + Top = 343 + Width = 523 + Height = 21 + TabOrder = 5 + OnChange = edtCommentChange + OnExit = edtCommentExit + OnKeyPress = edtCommentKeyPress + Caption = 'Comments' + end + object btnRemove: TButton + Left = 536 + Top = 343 + Width = 75 + Height = 21 + Caption = 'Remove' + TabOrder = 4 + OnClick = btnRemoveClick + end + object btnSelectAll: TButton + Left = 406 + Top = 326 + Width = 75 + Height = 17 + Caption = 'Select All' + TabOrder = 3 + TabStop = False + OnClick = btnSelectAllClick + end + object pnlMain: TPanel + Left = 6 + Top = 20 + Width = 612 + Height = 204 + Anchors = [akLeft, akTop, akRight, akBottom] + BevelOuter = bvNone + TabOrder = 6 + object splLeft: TSplitter + Left = 204 + Top = 0 + Width = 3 + Height = 204 + Cursor = crHSplit + OnMoved = splLeftMoved + end + object lbxSection: TORListBox + Left = 207 + Top = 0 + Width = 405 + Height = 204 + Style = lbOwnerDrawFixed + Align = alClient + ExtendedSelect = False + ItemHeight = 16 + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = clbListClick + OnMouseDown = clbListMouseDown + Caption = 'Section Name' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + TabPosInPixels = True + CheckBoxes = True + CheckEntireLine = True + OnClickCheck = lbxSectionClickCheck + end + object pnlLeft: TPanel + Left = 0 + Top = 0 + Width = 204 + Height = 204 + Align = alLeft + BevelOuter = bvNone + TabOrder = 0 + DesignSize = ( + 204 + 204) + object lbSection: TORListBox + Left = 0 + Top = 0 + Width = 204 + Height = 174 + Align = alTop + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = lbSectionClick + Caption = 'Section' + ItemTipColor = clWindow + LongList = False + Pieces = '3' + CheckEntireLine = True + end + object btnOther: TButton + Left = 65 + Top = 178 + Width = 139 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Other' + TabOrder = 0 + OnClick = btnOtherClick + end + end + end +end diff --git a/CPRS-Chart/Encounter/fPCEBaseMain.pas b/CPRS-Chart/Encounter/fPCEBaseMain.pas new file mode 100644 index 0000000..8e16538 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEBaseMain.pas @@ -0,0 +1,505 @@ +unit fPCEBaseMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBaseGrid, ComCtrls, StdCtrls, ORCtrls, ExtCtrls, Buttons, rPCE, uPCE, + CheckLst, ORFn; + +type + TCopyItemsMethod = procedure(Dest: TStrings) of object; + TListSectionsProc = procedure(Dest: TStrings); + + TfrmPCEBaseMain = class(TfrmPCEBaseGrid) + lbSection: TORListBox; + edtComment: TCaptionEdit; + lblSection: TLabel; + lblList: TLabel; + lblComment: TLabel; + btnRemove: TButton; + btnOther: TButton; + bvlMain: TBevel; + btnSelectAll: TButton; + lbxSection: TORListBox; + pnlMain: TPanel; + pnlLeft: TPanel; + splLeft: TSplitter; + procedure lbSectionClick(Sender: TObject); + procedure btnOtherClick(Sender: TObject); + procedure edtCommentExit(Sender: TObject); + procedure edtCommentChange(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure clbListClick(Sender: TObject); + procedure lbGridSelect(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure btnSelectAllClick(Sender: TObject); + procedure FormResize(Sender: TObject); virtual; + procedure clbListMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure lbxSectionClickCheck(Sender: TObject; Index: Integer); + procedure splLeftMoved(Sender: TObject); + procedure edtCommentKeyPress(Sender: TObject; var Key: Char); + private + FCommentItem: integer; + FCommentChanged: boolean; + FUpdateCount: integer; + //FUpdatingGrid: boolean; moved to 'protected' so frmDiagnoses can see it (RV) + protected + FUpdatingGrid: boolean; + FPCEListCodesProc: TPCEListCodesProc; + FPCEItemClass: TPCEItemClass; + FPCECode: string; + FSplitterMove: boolean; + function GetCat: string; + procedure UpdateNewItemStr(var x: string); virtual; +// procedure UpdateNewItem(APCEItem: TPCEItem); virtual; + procedure GridChanged; virtual; + procedure UpdateControls; override; + procedure BeginUpdate; + procedure EndUpdate; + function NotUpdating: boolean; + procedure CheckOffEntries; + procedure UpdateTabPos; + procedure Sync2Grid; + procedure Sync2Section; + public + procedure AllowTabChange(var AllowChange: boolean); override; + procedure InitTab(ACopyProc: TCopyItemsMethod; AListProc: TListSectionsProc); + end; + +var + frmPCEBaseMain: TfrmPCEBaseMain; + +const + LBCheckWidthSpace = 18; + +implementation + +uses fPCELex, fPCEOther, fEncounterFrame, fHFSearch; + +{$R *.DFM} + +procedure TfrmPCEBaseMain.lbSectionClick(Sender: TObject); +begin + inherited; + ClearGrid; + FPCEListCodesProc(lbxSection.Items, lbSection.ItemIEN); + CheckOffEntries; +end; + +procedure TfrmPCEBaseMain.UpdateNewItemStr(var x: string); +begin +end; + +procedure TfrmPCEBaseMain.GridChanged; +var + i: integer; + tmpList: TStringList; +begin + tmpList := TStringList.Create; + BeginUpdate; + try + SaveGridSelected; + tmpList.Assign(lbGrid.Items); + for i := 0 to lbGrid.Items.Count-1 do + begin + //lbGrid.Items[i] := TPCEItem(lbGrid.Items.Objects[i]).ItemStr; v22.5 - RV + tmpList[i] := TPCEItem(lbGrid.Items.Objects[i]).ItemStr; + tmpList.Objects[i] := lbGrid.Items.Objects[i]; + end; + lbGrid.Items.Assign(tmpList); + RestoreGridSelected; + SyncGridData; + finally + EndUpdate; + tmpList.Free; + end; + UpdateControls; +end; + +//procedure TfrmPCEBaseMain.UpdateNewItem(APCEItem: TPCEItem); +//begin +//end; + +procedure TfrmPCEBaseMain.btnOtherClick(Sender: TObject); +var + x, Code: string; + APCEItem: TPCEItem; + SrchCode: integer; +begin + inherited; + ClearGrid; + SrchCode := (Sender as TButton).Tag; + if(SrchCode <= LX_Threshold) then + LexiconLookup(Code, SrchCode) + else + if(SrchCode = PCE_HF) then + HFLookup(Code) + else + OtherLookup(Code, SrchCode); + btnOther.SetFocus; + if Code <> '' then + begin + x := FPCECode + U + Piece(Code, U, 1) + U + U + Piece(Code, U, 2); + if FPCEItemClass = TPCEProc then + SetPiece(x, U, pnumProvider, IntToStr(uProviders.PCEProvider)); + UpdateNewItemStr(x); + APCEItem := FPCEItemClass.Create; + APCEItem.SetFromString(x); +// UpdateNewItem(APCEItem); + GridIndex := lbGrid.Items.AddObject(APCEItem.ItemStr, APCEItem); + SyncGridData; + end; + UpdateControls; +end; + +procedure TfrmPCEBaseMain.edtCommentExit(Sender: TObject); +begin + inherited; + if(FCommentChanged) then + begin + FCommentChanged := FALSE; + if(FCommentItem >= 0) then + TPCEItem(lbGrid.Items.Objects[FCommentItem]).Comment := edtComment.text; + end; +end; + +procedure TfrmPCEBaseMain.AllowTabChange(var AllowChange: boolean); +begin + edtCommentExit(Self); +end; + +procedure TfrmPCEBaseMain.edtCommentChange(Sender: TObject); +begin + inherited; + FCommentItem := GridIndex; + FCommentChanged := TRUE; +end; + +procedure TfrmPCEBaseMain.btnRemoveClick(Sender: TObject); +var + i, j: Integer; + APCEItem: TPCEItem; + CurCategory: string; + +begin + inherited; + FUpdatingGrid := TRUE; + try + for i := lbGrid.Items.Count-1 downto 0 do if(lbGrid.Selected[i]) then + begin + CurCategory := GetCat; + APCEItem := TPCEDiag(lbGrid.Items.Objects[i]); + if APCEItem.Category = CurCategory then + begin + with APCEItem do for j := 0 to lbxSection.Items.Count - 1 do + if ORFn.Pieces(lbxSection.Items[j], U, 1, 2) = Code + U + Narrative then + lbxSection.Checked[j] := False; + end; + APCEItem.Free; + lbGrid.Items.Delete(i); + end; + ClearGrid; + finally + FUpdatingGrid := FALSE; + end; +end; + +procedure TfrmPCEBaseMain.UpdateControls; +var + CommentOK: boolean; + +begin + btnSelectAll.Enabled := (lbGrid.Items.Count > 0); + btnRemove.Enabled := (lbGrid.SelCount > 0); + if(NotUpdating) then + begin + BeginUpdate; + try + inherited; + CommentOK := (lbGrid.SelCount = 1); + lblComment.Enabled := CommentOK; + edtComment.Enabled := CommentOK; + if(CommentOK) then + edtComment.Text := TPCEItem(lbGrid.Items.Objects[GridIndex]).Comment + else + edtComment.Text := ''; + finally + EndUpdate; + end; + end; +end; + +procedure TfrmPCEBaseMain.clbListClick(Sender: TObject); +begin + inherited; +// with clbList do +// if(ItemIndex >= 0) and (not(Checked[ItemIndex])) then +// ClearGrid; +end; + +procedure TfrmPCEBaseMain.lbGridSelect(Sender: TObject); +begin + inherited; +// clbList.ItemIndex := -1; + UpdateControls; +end; + +procedure TfrmPCEBaseMain.FormDestroy(Sender: TObject); +var + i:integer; + +begin + inherited; + with lbGrid.Items do for i := 0 to Count - 1 do TPCEItem(Objects[i]).Free; +end; + +procedure TfrmPCEBaseMain.InitTab(ACopyProc: TCopyItemsMethod; AListProc: TListSectionsProc); +begin + AListProc(lbSection.Items); + ACopyProc(lbGrid.Items); + lbSection.ItemIndex := 0; + lbSectionClick(lbSection); + ClearGrid; + GridChanged; +// CheckOffEntries; +end; + +procedure TfrmPCEBaseMain.BeginUpdate; +begin + inc(FUpdateCount); +end; + +procedure TfrmPCEBaseMain.EndUpdate; +begin + if(FUpdateCount > 0) then + dec(FUpdateCount); +end; + +function TfrmPCEBaseMain.NotUpdating: boolean; +begin + Result := (FUpdateCount = 0); +end; + +procedure TfrmPCEBaseMain.CheckOffEntries; +{ TODO -oRich V. -cCode Set Versioning : Uncomment these lines to prevent acceptance of existing inactive DX codes. } +(*const + TX_INACTIVE_ICD_CODE1 = 'The diagnosis of "'; + TX_INACTIVE_ICD_CODE2 = '" entered for this encounter' + #13#10 + 'contains an inactive ICD code of "'; + TX_INACTIVE_ICD_CODE3 = '" as of the encounter date, and will be removed.' + #13#10#13#10 + + 'Please select another diagnosis.'; + TC_INACTIVE_ICD_CODE = 'Diagnosis Contains Inactive Code';*) +var + i, j: Integer; + CurCategory, CodeNarr: string; + APCEItem: TPCEItem; +begin + FUpdatingGrid := TRUE; + try + if(lbSection.Items.Count < 1) then exit; + CurCategory := GetCat; + for i := lbGrid.Items.Count - 1 downto 0 do + begin + APCEItem := TPCEItem(lbGrid.Items.Objects[i]); + if APCEItem.Category = CurCategory then + begin + CodeNarr := APCEItem.Code + U + APCEItem.Narrative; + for j := 0 to lbxSection.Items.Count - 1 do + if ORFn.Pieces(lbxSection.Items[j], U, 1, 2) = CodeNarr then + begin +{ TODO -oRich V. -cCode Set Versioning : Uncomment these lines to prevent acceptance of existing inactive DX codes. } +(* if (CurCategory = 'Problem List Items') and (Piece(lbxSection.Items[j], U, 5) = '#') then + begin + InfoBox(TX_INACTIVE_ICD_CODE1 + APCEItem.Narrative + TX_INACTIVE_ICD_CODE2 + + APCEItem.Code + TX_INACTIVE_ICD_CODE3, TC_INACTIVE_ICD_CODE, MB_ICONWARNING or MB_OK); + lbxSection.Checked[j] := False; + APCEItem.Free; + lbGrid.Items.Delete(i); + end + else*) + lbxSection.Checked[j] := True; + end; + end; + end; + finally + FUpdatingGrid := FALSE; + end; +end; + +procedure TfrmPCEBaseMain.btnSelectAllClick(Sender: TObject); +var + i: integer; + +begin + inherited; + BeginUpdate; + try + for i := 0 to lbGrid.Items.Count-1 do + lbGrid.Selected[i] := TRUE; + finally + EndUpdate; + end; + UpdateControls; +end; + +procedure TfrmPCEBaseMain.FormResize(Sender: TObject); +begin + if FSplitterMove then + FSplitterMove := FALSE + else + inherited; +end; + +procedure TfrmPCEBaseMain.clbListMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + inherited; +// if(Button <> mbLeft) then +// clbList.Itemindex := clbList.itemAtPos(Point(X,Y), TRUE); +end; + +function TfrmPCEBaseMain.GetCat: string; +begin + Result := ''; + if(lbSection.Items.Count > 0) and (lbSection.ItemIndex >= 0) then + Result := Piece(lbSection.Items[lbSection.ItemIndex], U, 2); +end; + +procedure TfrmPCEBaseMain.lbxSectionClickCheck(Sender: TObject; + Index: Integer); +var + i, j: Integer; + x, x0, CodeCatNarr: string; + APCEItem: TPCEItem; + Found, DoSync: boolean; + +begin + inherited; + if FUpdatingGrid or FClosing then exit; + DoSync := FALSE; + x0 := GetCat; + for i := 0 to lbxSection.Items.Count-1 do + begin + x := x0 + U + ORFn.Pieces(lbxSection.Items[i], U, 1, 2); + CodeCatNarr := Piece(x, U, 2) + U + Piece(x, U, 1) + U + Piece(x, U, 3); + Found := FALSE; + for j := lbGrid.Items.Count - 1 downto 0 do + begin + APCEItem := TPCEItem(lbGrid.Items.Objects[j]); + with APCEItem do if CodeCatNarr = Code + U + Category + U + Narrative then + begin + Found := TRUE; + if(lbxSection.Checked[i]) then break; + APCEItem.Free; + lbGrid.Items.Delete(j); + end; + end; + if(lbxSection.Checked[i] and (not Found)) then + begin + x := FPCECode + U + CodeCatNarr; + if FPCEItemClass = TPCEProc then + SetPiece(x, U, pnumProvider, IntToStr(uProviders.PCEProvider)); + UpdateNewItemStr(x); + APCEItem := FPCEItemClass.Create; + APCEItem.SetFromString(x); + GridIndex := lbGrid.Items.AddObject(APCEItem.ItemStr, APCEItem); + DoSync := TRUE; + end; + end; + if(DoSync) then + SyncGridData; + UpdateControls; +end; + +procedure TfrmPCEBaseMain.UpdateTabPos; +begin + lbxSection.TabPositions := SectionString; +end; + +procedure TfrmPCEBaseMain.splLeftMoved(Sender: TObject); +begin + inherited; + lblList.Left := lbxSection.Left + pnlMain.Left; + FSplitterMove := TRUE; + FormResize(Sender); +end; + +procedure TfrmPCEBaseMain.Sync2Grid; +var + i, idx, cnt, NewIdx: Integer; + CodeNarr: string; + APCEItem: TPCEItem; + +begin + if(FUpdatingGrid or FClosing) then exit; + FUpdatingGrid := TRUE; + try + cnt := 0; + idx := -1; + for i := 0 to lbGrid.Items.Count - 1 do + begin + if(lbGrid.Selected[i]) then + begin + if(idx < 0) then idx := i; + inc(cnt); + if(cnt > 1) then break; + end; + end; + NewIdx := -1; + if(cnt = 1) then + begin + APCEItem := TPCEItem(lbGrid.Items.Objects[idx]); + if APCEItem.Category = GetCat then + begin + CodeNarr := APCEItem.Code + U + APCEItem.Narrative; + for i := 0 to lbxSection.Items.Count - 1 do + begin + if Pieces(lbxSection.Items[i], U, 1, 2) = CodeNarr then + begin + NewIdx := i; + break; + end; + end; + end; + end; + lbxSection.ItemIndex := NewIdx; + finally + FUpdatingGrid := FALSE; + end; +end; + +procedure TfrmPCEBaseMain.Sync2Section; +var + i, idx: Integer; + ACode: string; + +begin + if(FUpdatingGrid or FClosing) then exit; + FUpdatingGrid := TRUE; + try + idx := lbxSection.ItemIndex; + if(idx >= 0) then + ACode := GetCat + U + Pieces(lbxSection.Items[idx], U, 1, 2) + else + ACode := '~@^~@^@~'; + for i := 0 to lbGrid.Items.Count - 1 do + begin + with TPCEItem(lbGrid.Items.Objects[i]) do + lbGrid.Selected[i] := (ACode = (Category + U + Code + U + Narrative)); + end; + finally + FUpdatingGrid := FALSE; + end; +end; + +procedure TfrmPCEBaseMain.edtCommentKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if (Key = '?') and + ((edtComment.Text = '') or (edtComment.SelStart = 0)) then + Key := #0; +end; + +end. diff --git a/CPRS-Chart/Encounter/fPCEEdit.dfm b/CPRS-Chart/Encounter/fPCEEdit.dfm new file mode 100644 index 0000000..b97e008 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEEdit.dfm @@ -0,0 +1,91 @@ +object frmPCEEdit: TfrmPCEEdit + Left = 214 + Top = 107 + BorderStyle = bsDialog + Caption = 'Edit Encounter' + ClientHeight = 128 + ClientWidth = 543 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + DesignSize = ( + 543 + 128) + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TStaticText + Left = 0 + Top = 0 + Width = 543 + Height = 24 + Align = alTop + Alignment = taCenter + Caption = 'Select Encounter to Edit' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object lblNew: TMemo + Left = 136 + Top = 32 + Width = 401 + Height = 26 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'New') + TabOrder = 3 + end + object lblNote: TMemo + Left = 136 + Top = 73 + Width = 401 + Height = 26 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Note') + TabOrder = 4 + end + object btnNew: TButton + Left = 8 + Top = 28 + Width = 121 + Height = 21 + Caption = 'Edit Current Encounter' + ModalResult = 6 + TabOrder = 0 + end + object btnNote: TButton + Left = 8 + Top = 69 + Width = 121 + Height = 21 + Caption = 'Edit Note Encounter' + ModalResult = 7 + TabOrder = 1 + end + object btnCancel: TButton + Left = 465 + Top = 104 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Cancel = True + Caption = '&Cancel' + ModalResult = 2 + TabOrder = 2 + end +end diff --git a/CPRS-Chart/Encounter/fPCEEdit.pas b/CPRS-Chart/Encounter/fPCEEdit.pas new file mode 100644 index 0000000..3b8858b --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEEdit.pas @@ -0,0 +1,147 @@ +unit fPCEEdit; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORFn, uPCE; + +type + TfrmPCEEdit = class(TForm) + btnNew: TButton; + btnNote: TButton; + lblNew: TMemo; + lblNote: TMemo; + btnCancel: TButton; + Label1: TStaticText; + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +function EditPCEData(NoteData: TPCEData): boolean; + +implementation + +uses uCore, rCore, fEncnt, fFrame, fEncounterFrame; + +{$R *.DFM} + +const + TX_NEED_VISIT2 = 'A visit is required before entering encounter information.'; + TX_NOPCE_TXT1 = 'the encounter date is in the future.'; + TX_NOPCE_TXT2 = 'encounter entry has been disabled.'; + TX_NOPCE_TXT = 'You can not edit encounter information because '; + TX_NOPCE_HDR = 'Can not edit encounter'; + +var + uPCETemp: TPCEData = nil; + uPCETempOld: TPCEData = nil; + uPatient: string = ''; + +function EditPCEData(NoteData: TPCEData): boolean; // Returns TRUE if NoteData is edited +var + frmPCEEdit: TfrmPCEEdit; + BtnTxt, NewTxt, txt: string; + Ans: integer; + +begin + Result := FALSE; + if (Encounter.VisitCategory = 'H') then + begin + if Assigned(NoteData) then + Ans := mrNo + else + begin + InfoBox('Can not edit admission encounter', 'Error', MB_OK or MB_ICONERROR); + Ans := mrCancel; + end; + end + else + if not Assigned(NoteData) then + Ans := mrYes + else + if (NoteData.VisitString = Encounter.VisitStr) then + Ans := mrNo + else + begin + frmPCEEdit := TfrmPCEEdit.Create(Application); + try + if Encounter.NeedVisit then + begin + NewTxt := 'Create New Encounter'; + BtnTxt := 'New Encounter'; + end + else + begin + NewTxt := 'Edit Encounter for ' + Encounter.LocationName + ' on ' + + FormatFMDateTime('mmm dd yyyy hh:nn', Encounter.DateTime); + BtnTxt := 'Edit Current Encounter'; + end; + frmPCEEdit.lblNew.Text := NewTxt; + frmPCEEdit.btnNew.Caption := BtnTxt; + frmPCEEdit.lblNote.Text := 'Edit Note Encounter for ' + ExternalName(NoteData.Location, 44) + ' on ' + + FormatFMDateTime('mmm dd yyyy hh:nn', NoteData.VisitDateTime); + ans := frmPCEEdit.ShowModal; + finally + frmPCEEdit.Free; + end; + end; + if ans = mrYes then + begin + if Encounter.NeedVisit then + begin + UpdateVisit(8); + frmFrame.DisplayEncounterText; + end; + if Encounter.NeedVisit then + begin + InfoBox(TX_NEED_VISIT2, TX_NO_VISIT, MB_OK or MB_ICONWARNING); + Exit; + end; + if not assigned(uPCETemp) then + uPCETemp := TPCEData.Create; + uPCETemp.UseEncounter := True; + if not CanEditPCE(uPCETemp) then + begin + if FutureEncounter(uPCETemp) then + txt := TX_NOPCE_TXT1 + else + txt := TX_NOPCE_TXT2; + InfoBox(TX_NOPCE_TXT + txt, TX_NOPCE_HDR, MB_OK or MB_ICONWARNING); + Exit; + end; + uPCETemp.PCEForNote(USE_CURRENT_VISITSTR, uPCETempOld); + UpdatePCE(uPCETemp); + if not assigned(uPCETempOld) then + uPCETempOld := TPCEData.Create; + uPCETemp.CopyPCEData(uPCETempOld); + end + else + if ans = mrNo then + begin + UpdatePCE(NoteData); + Result := TRUE; + end; +end; + +procedure TfrmPCEEdit.FormCreate(Sender: TObject); +begin + if uPatient <> Patient.DFN then + begin + KillObj(@uPCETemp); + KillObj(@uPCETempOld); + end; + uPatient := Patient.DFN; +end; + +initialization + +finalization + KillObj(@uPCETemp); + KillObj(@uPCETempOld); + uPatient := ''; + +end. diff --git a/CPRS-Chart/Encounter/fPCELex.dfm b/CPRS-Chart/Encounter/fPCELex.dfm new file mode 100644 index 0000000..6896d8b --- /dev/null +++ b/CPRS-Chart/Encounter/fPCELex.dfm @@ -0,0 +1,80 @@ +inherited frmPCELex: TfrmPCELex + Left = 639 + Top = 480 + BorderIcons = [] + BorderStyle = bsDialog + Caption = 'Lookup Other Diagnosis' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object lblSearch: TLabel + Left = 6 + Top = 16 + Width = 98 + Height = 13 + Caption = 'Search for Diagnosis' + end + object lblSelect: TLabel + Left = 6 + Top = 67 + Width = 175 + Height = 13 + Caption = 'Select from one of the following items' + Visible = False + end + object txtSearch: TCaptionEdit + Left = 6 + Top = 30 + Width = 331 + Height = 21 + TabOrder = 0 + OnChange = txtSearchChange + Caption = 'Search for Diagnosis' + end + object cmdSearch: TButton + Left = 346 + Top = 30 + Width = 75 + Height = 21 + Caption = 'Search' + Default = True + TabOrder = 1 + OnClick = cmdSearchClick + end + object cmdOK: TButton + Left = 263 + Top = 245 + Width = 75 + Height = 22 + Caption = 'OK' + TabOrder = 3 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 346 + Top = 245 + Width = 75 + Height = 22 + Cancel = True + Caption = 'Cancel' + TabOrder = 4 + OnClick = cmdCancelClick + end + object lstSelect: TORListBox + Left = 6 + Top = 81 + Width = 415 + Height = 156 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = lstSelectClick + OnDblClick = lstSelectDblClick + Caption = 'Select from one of the following items' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end +end diff --git a/CPRS-Chart/Encounter/fPCELex.pas b/CPRS-Chart/Encounter/fPCELex.pas new file mode 100644 index 0000000..ffa3ec5 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCELex.pas @@ -0,0 +1,151 @@ +unit fPCELex; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls; + +type + TfrmPCELex = class(TfrmAutoSz) + txtSearch: TCaptionEdit; + cmdSearch: TButton; + cmdOK: TButton; + cmdCancel: TButton; + lblSearch: TLabel; + lblSelect: TLabel; + lstSelect: TORListBox; + procedure cmdSearchClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure lstSelectClick(Sender: TObject); + procedure txtSearchChange(Sender: TObject); + procedure lstSelectDblClick(Sender: TObject); + private + FLexApp: Integer; + FCode: string; + FDate: TFMDateTime; + procedure SetApp(LexApp: Integer); + procedure SetDate(ADate: TFMDateTime); + end; + +procedure LexiconLookup(var Code: string; LexApp: Integer; ADate: TFMDateTime = 0); + +implementation + +{$R *.DFM} + +uses rPCE,UBAGlobals; + +procedure LexiconLookup(var Code: string; LexApp: Integer; ADate: TFMDateTime = 0); +var + frmPCELex: TfrmPCELex; +begin + frmPCELex := TfrmPCELex.Create(Application); + try + ResizeFormToFont(TForm(frmPCELex)); + frmPCELex.SetApp(LexApp); + frmPCELex.SetDate(ADate); + frmPCELex.ShowModal; + Code := frmPCELex.FCode; + finally + frmPCELex.Free; + end; +end; + +procedure TfrmPCELex.FormCreate(Sender: TObject); +begin + inherited; + FCode := ''; +end; + +procedure TfrmPCELex.SetApp(LexApp: Integer); +begin + FLexApp := LexApp; + case LexApp of + LX_ICD: begin + Caption := 'Lookup Diagnosis'; + lblSearch.Caption := 'Search for Diagnosis'; + end; + LX_CPT: begin + Caption := 'Lookup Procedure'; + lblSearch.Caption := 'Search for Procedure'; + end; + end; +end; + +procedure TfrmPCELex.SetDate(ADate: TFMDateTime); +begin + FDate := ADate; +end; + +procedure TfrmPCELex.txtSearchChange(Sender: TObject); +begin + inherited; + cmdSearch.Default := True; + cmdOK.Default := False; +end; + +procedure TfrmPCELex.cmdSearchClick(Sender: TObject); +begin + inherited; + if Length(txtSearch.Text) = 0 then Exit; + StatusText('Searching clinical lexicon...'); + ListLexicon(lstSelect.Items, txtSearch.Text, FLexApp, FDate); + if lstSelect.GetIEN(0) = -1 then + begin + lblSelect.Visible := False; + txtSearch.SetFocus; + txtSearch.SelectAll; + cmdOK.Default := False; + cmdSearch.Default := True; + end else + begin + lblSelect.Visible := True; + lstSelect.SetFocus; + cmdSearch.Default := False; + end; + StatusText(''); +end; + +procedure TfrmPCELex.lstSelectClick(Sender: TObject); +begin + inherited; + if(lstSelect.ItemIndex > -1) and (lstSelect.ItemIEN > 0) then + begin + cmdSearch.Default := False; + cmdOK.Default := True; + end; +end; + +procedure TfrmPCELex.cmdOKClick(Sender: TObject); +begin + inherited; + if(lstSelect.ItemIndex = -1) or (lstSelect.ItemIEN <= 0) then Exit; + with lstSelect do + begin + if BAPersonalDX then + FCode := (LexiconToCode(ItemIEN, FLexApp, FDate) + U + DisplayText[ItemIndex] + U + IntToStr(ItemIEN) ) + else + FCode := LexiconToCode(ItemIEN, FLexApp, FDate) + U + DisplayText[ItemIndex]; + Close; + end; +end; + +procedure TfrmPCELex.cmdCancelClick(Sender: TObject); +begin + inherited; + FCode := ''; + Close; +end; + +procedure TfrmPCELex.lstSelectDblClick(Sender: TObject); +begin + inherited; + lstSelectClick(Sender); + cmdOKClick(Sender); +end; + +end. + diff --git a/CPRS-Chart/Encounter/fPCEOther.dfm b/CPRS-Chart/Encounter/fPCEOther.dfm new file mode 100644 index 0000000..9079c01 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEOther.dfm @@ -0,0 +1,62 @@ +object frmPCEOther: TfrmPCEOther + Left = 451 + Top = 201 + Width = 279 + Height = 340 + ActiveControl = cboOther + Caption = 'OtherItems' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object cmdCancel: TButton + Left = 190 + Top = 287 + Width = 75 + Height = 22 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + object cmdOK: TButton + Left = 110 + Top = 287 + Width = 75 + Height = 22 + Caption = 'OK' + Enabled = False + TabOrder = 1 + OnClick = cmdOKClick + end + object cboOther: TORComboBox + Left = 8 + Top = 8 + Width = 257 + Height = 273 + Style = orcsSimple + AutoSelect = True + Caption = 'Other Items' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnChange = cboOtherChange + OnDblClick = cboOtherDblClick + end +end diff --git a/CPRS-Chart/Encounter/fPCEOther.pas b/CPRS-Chart/Encounter/fPCEOther.pas new file mode 100644 index 0000000..1634f39 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEOther.pas @@ -0,0 +1,105 @@ +unit fPCEOther; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, ORFn, ORCtrls, StdCtrls; + +type + TfrmPCEOther = class(TfrmAutoSz) + cmdCancel: TButton; + cmdOK: TButton; + cboOther: TORComboBox; + procedure cmdOKClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cboOtherDblClick(Sender: TObject); + procedure cboOtherChange(Sender: TObject); + private + fOtherApp: Integer; + FCode: string; + procedure SetApp(OtherApp: Integer); + public + { Public declarations } + end; + + +procedure OtherLookup(var Code: string; OtherApp: Integer); + +implementation + +{$R *.DFM} + +uses rPCE, fEncounterFrame; + +procedure OtherLookup(var Code: string; OtherApp: Integer); +var + frmPCEOther: TfrmPCEOther; +begin + frmPCEOther := TfrmPCEOther.Create(Application); + try + ResizeFormToFont(TForm(frmPCEOther)); + frmPCEOther.SetApp(OtherApp); + frmPCEOther.ShowModal; + Code := frmPCEOther.FCode; + finally + frmPCEOther.Free; + end; +end; + +procedure TfrmPCEOther.SetApp(OtherApp: Integer); +begin + fOtherApp := OtherApp; + case OtherApp of + PCE_IMM: Caption := 'Other Immunizations'; + PCE_SK: Caption := 'Other Skin Tests'; + PCE_PED: Caption := 'Other Education Topics'; +// PCE_HF: Caption := 'Other Health Factors'; + PCE_XAM: Caption := 'Other Examinations'; + + end; + cboOther.Caption := Caption; + LoadcboOther(cboOther.Items, uEncPCEData.Location, OtherApp); +end; + + +procedure TfrmPCEOther.cmdOKClick(Sender: TObject); +begin + inherited; + with cboOther do + begin + if ItemIndex = -1 then Exit; + FCode := CboOther.Items[ItemIndex]; +// + Close; + end; +end; + +procedure TfrmPCEOther.FormCreate(Sender: TObject); +begin + inherited; + FCode := ''; +end; + + +procedure TfrmPCEOther.cmdCancelClick(Sender: TObject); +begin + inherited; + fCode := ''; + close(); +end; + +procedure TfrmPCEOther.cboOtherDblClick(Sender: TObject); +begin + inherited; + cmdOKClick(Sender); +end; + +procedure TfrmPCEOther.cboOtherChange(Sender: TObject); +begin + inherited; + cmdOK.Enabled := (cboOther.ItemIndex >= 0); +end; + +end. diff --git a/CPRS-Chart/Encounter/fPCEProvider.dfm b/CPRS-Chart/Encounter/fPCEProvider.dfm new file mode 100644 index 0000000..1ba1dd0 --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEProvider.dfm @@ -0,0 +1,104 @@ +object frmPCEProvider: TfrmPCEProvider + Left = 192 + Top = 104 + BorderIcons = [biSystemMenu] + BorderStyle = bsDialog + Caption = 'Primary Encounter Provider' + ClientHeight = 254 + ClientWidth = 317 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Spacer1: TLabel + Left = 0 + Top = 0 + Width = 317 + Height = 13 + Align = alTop + end + object lblMsg: TMemo + Left = 0 + Top = 13 + Width = 317 + Height = 29 + TabStop = False + Align = alTop + Alignment = taCenter + BorderStyle = bsNone + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + Lines.Strings = ( + 'Primary Provider for this Encounter') + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object cboPrimary: TORComboBox + Left = 6 + Top = 69 + Width = 307 + Height = 180 + Style = orcsSimple + AutoSelect = True + Caption = 'Primary Provider for this Encounter' + 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 + TabStop = True + Visible = False + OnChange = cboPrimaryChange + OnNeedData = cboPrimaryNeedData + CharsNeedMatch = 1 + end + object btnYes: TButton + Left = 158 + Top = 40 + Width = 75 + Height = 21 + Caption = '&Yes' + Default = True + ModalResult = 6 + TabOrder = 1 + end + object btnNo: TButton + Left = 238 + Top = 40 + Width = 75 + Height = 21 + Cancel = True + Caption = '&No' + ModalResult = 7 + TabOrder = 2 + end + object btnSelect: TButton + Left = 6 + Top = 40 + Width = 90 + Height = 21 + Caption = '&Select Primary' + TabOrder = 3 + OnClick = btnSelectClick + end +end diff --git a/CPRS-Chart/Encounter/fPCEProvider.pas b/CPRS-Chart/Encounter/fPCEProvider.pas new file mode 100644 index 0000000..81fd8ae --- /dev/null +++ b/CPRS-Chart/Encounter/fPCEProvider.pas @@ -0,0 +1,187 @@ +unit fPCEProvider; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ExtCtrls, uPCE, ORFn; + +type + TfrmPCEProvider = class(TForm) + cboPrimary: TORComboBox; + lblMsg: TMemo; + btnYes: TButton; + btnNo: TButton; + btnSelect: TButton; + Spacer1: TLabel; + procedure cboPrimaryNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboPrimaryChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure btnSelectClick(Sender: TObject); + private + FPCEData: TPCEData; + FUseDefault: boolean; + FIEN: array[boolean] of Int64; + FName: array[boolean] of string; + public + procedure AskUser(ForceSelect: boolean); + end; + +function NoPrimaryPCEProvider(AProviders: TPCEProviderList; PCEData: TPCEData): boolean; + +implementation + +uses rCore, uCore, rTIU, rPCE; + +{$R *.DFM} + +const + AreYouStr = 'Are You, '; + PEPStr2 = ' the Primary Provider for this Encounter'; + PEPStr = PEPStr2 + '?'; + IsStr = 'Is '; + SelectStr = 'Please Select' + PEPStr2 + '.'; + +function NoPrimaryPCEProvider(AProviders: TPCEProviderList; PCEData: TPCEData): boolean; +var + frmPCEProvider: TfrmPCEProvider; + idx: integer; + b: boolean; + X: string; + mr: TModalResult; + +begin + if(AProviders.PrimaryIdx < 0) then + SetDefaultProvider(AProviders, PCEData); + if(AProviders.PrimaryIdx < 0) then + begin + frmPCEProvider := TfrmPCEProvider.Create(Application); + try + with frmPCEProvider do + begin + FPCEData := PCEData; + for b := FALSE to TRUE do + begin + FIEN[b] := AProviders.PendingIEN(b); + FName[b] := AProviders.PendingNAME(b); + end; + if(FIEN[TRUE] = 0) and (FIEN[FALSE] = 0) then + begin + AskUser(TRUE); + mr := ModalResult; + end + else + begin + FUseDefault := TRUE; + AskUser(FALSE); + mr := ModalResult; + if((mr in [mrAbort, mrNo]) and (FIEN[TRUE] <> FIEN[FALSE])) then + begin + FUseDefault := FALSE; + AskUser(FALSE); + mr := ModalResult; + end; + end; + if (mr = mrYes) then + begin + AProviders.AddProvider(IntToStr(FIEN[FUseDefault]), FName[FUseDefault], TRUE); + end + else + if (mr = mrOK) then + begin + idx := cboPrimary.ItemIndex; + if(idx >= 0) then + begin + X := frmPCEProvider.cboPrimary.Items[idx]; + AProviders.AddProvider(Piece(X, U, 1), Piece(X, U, 2), TRUE); + end; + end; + end; + finally + frmPCEProvider.Free; + end; + Result := (AProviders.PrimaryIdx < 0); + end + else + Result := FALSE; +end; + +{ TfrmPCEProvider } + +procedure TfrmPCEProvider.cboPrimaryNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + if(FPCEData.VisitCategory = 'E') then + cboPrimary.ForDataUse(SubSetOfPersons(StartFrom, Direction)) + else + cboPrimary.ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, + FloatToStr(FPCEData.PersonClassDate))); +end; + +procedure TfrmPCEProvider.cboPrimaryChange(Sender: TObject); +var + txt: string; + +begin + if(cboPrimary.ItemIEN <> 0) and (FPCEData.VisitCategory <> 'E') then + begin + txt := InvalidPCEProviderTxt(cboPrimary.ItemIEN, FPCEData.PersonClassDate); + if(txt <> '') then + begin + InfoBox(cboPrimary.DisplayText[cboPrimary.ItemIndex] + txt, TX_BAD_PROV, MB_OK); + cboPrimary.ItemIndex := -1; + end; + end; +end; + +procedure TfrmPCEProvider.FormCreate(Sender: TObject); +begin + ResizeAnchoredFormToFont(self); + ClientHeight := cboPrimary.Top; +end; + +procedure TfrmPCEProvider.btnSelectClick(Sender: TObject); +begin + ClientHeight := cboPrimary.Top + cboPrimary.Height + 5; + cboPrimary.Visible := TRUE; + btnSelect.Visible := FALSE; + btnYes.Caption := '&OK'; + btnYes.ModalResult := mrOK; + btnNo.Caption := '&Cancel'; + btnNo.ModalResult := mrCancel; + lblMsg.Text := SelectStr; + cboPrimary.Caption := lblMsg.Text; + cboPrimary.InitLongList(User.Name); +end; + +procedure TfrmPCEProvider.AskUser(ForceSelect: boolean); +var + msg: string; + +begin + if(ForceSelect) then + begin + btnSelectClick(Self); + end + else + begin + if(FIEN[FUseDefault] = 0) then + begin + ModalResult := mrAbort; + exit; + end + else + begin + if(FIEN[FUseDefault] = User.DUZ) then + msg := AreYouStr + FName[FUseDefault] + ',' + PEPStr + else + msg := IsStr + FName[FUseDefault] + PEPStr; + end; + lblMsg.text := msg; + cboPrimary.Caption := lblMsg.text; + end; + ShowModal; +end; + +end. diff --git a/CPRS-Chart/Encounter/fPatientEd.dfm b/CPRS-Chart/Encounter/fPatientEd.dfm new file mode 100644 index 0000000..2e8bc0d --- /dev/null +++ b/CPRS-Chart/Encounter/fPatientEd.dfm @@ -0,0 +1,99 @@ +inherited frmPatientEd: TfrmPatientEd + Left = 275 + Top = 267 + Caption = 'Patient Education' + PixelsPerInch = 96 + TextHeight = 13 + object lblUnderstanding: TLabel [0] + Left = 490 + Top = 264 + Width = 112 + Height = 13 + Caption = 'Level Of Understanding' + end + inherited lblSection: TLabel + Width = 123 + Caption = 'Patient Education Section' + end + inherited btnOK: TBitBtn + TabOrder = 6 + end + inherited btnCancel: TBitBtn + TabOrder = 7 + end + inherited pnlGrid: TPanel + TabOrder = 1 + inherited lbGrid: TORListBox + Tag = 60 + Caption = 'Selected Patient Educations' + Pieces = '1,2' + end + inherited hcGrid: THeaderControl + Sections = < + item + ImageIndex = -1 + MinWidth = 124 + Text = 'Level of Understanding' + Width = 124 + end + item + ImageIndex = -1 + MinWidth = 150 + Text = 'Selected Patient Educations' + Width = 150 + end> + end + end + inherited edtComment: TCaptionEdit + TabOrder = 3 + end + inherited btnRemove: TButton + TabOrder = 5 + end + inherited btnSelectAll: TButton + TabOrder = 2 + TabStop = True + end + inherited pnlMain: TPanel + TabOrder = 0 + inherited lbxSection: TORListBox + Tag = 60 + end + inherited pnlLeft: TPanel + inherited lbSection: TORListBox + Tag = 60 + TabOrder = 0 + Caption = 'Patient Education Section' + end + inherited btnOther: TButton + Tag = 22 + Caption = 'Other Education Topic...' + TabOrder = 1 + end + end + end + object cboPatUnderstanding: TORComboBox + Tag = 40 + Left = 490 + Top = 280 + Width = 121 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Level Of Understanding' + Color = clWindow + DropDownCount = 8 + Enabled = False + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = cboPatUnderstandingChange + end +end diff --git a/CPRS-Chart/Encounter/fPatientEd.pas b/CPRS-Chart/Encounter/fPatientEd.pas new file mode 100644 index 0000000..d0f4d37 --- /dev/null +++ b/CPRS-Chart/Encounter/fPatientEd.pas @@ -0,0 +1,123 @@ +unit fPatientEd; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, StdCtrls, ORCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn, + fPCELex, fPCEOther, ComCtrls, fPCEBaseMain; + +type + TfrmPatientEd = class(TfrmPCEBaseMain) + lblUnderstanding: TLabel; + cboPatUnderstanding: TORComboBox; + procedure cboPatUnderstandingChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + protected + procedure UpdateNewItemStr(var x: string); override; + procedure UpdateControls; override; + public + end; + +var + frmPatientEd: TfrmPatientEd; + +implementation + +{$R *.DFM} + +uses + fEncounterFrame; + +{/////////////////////////////////////////////////////////////////////////////// +//Name:procedure tfrmPatientEd.cboPatUnderstandingChange(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description:Change the level of understanding assigned to the education item. +///////////////////////////////////////////////////////////////////////////////} +procedure tfrmPatientEd.cboPatUnderstandingChange(Sender: TObject); +var + i: integer; + +begin + if(NotUpdating) and (cboPatUnderstanding.Text <> '') then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCEPat(lbGrid.Items.Objects[i]).Level := cboPatUnderstanding.ItemID; + GridChanged; + end; +end; + +procedure TfrmPatientEd.FormCreate(Sender: TObject); +begin + inherited; + FTabName := CT_PedNm; + FPCEListCodesProc := ListPatientCodes; + FPCEItemClass := TPCEPat; + FPCECode := 'PED'; + PCELoadORCombo(cboPatUnderstanding); +end; + +procedure TfrmPatientEd.UpdateNewItemStr(var x: string); +begin + SetPiece(x, U, pnumPEDLevel, NoPCEValue); +end; + +procedure TfrmPatientEd.UpdateControls; +var + ok, First: boolean; + SameLOU: boolean; + i: integer; + LOU: string; + Obj: TPCEPat; + +begin + inherited; + if(NotUpdating) then + begin + BeginUpdate; + try + ok := (lbGrid.SelCount > 0); + lblUnderstanding.Enabled := ok; + cboPatUnderstanding.Enabled := ok; + if(ok) then + begin + First := TRUE; + SameLOU := TRUE; + LOU := NoPCEValue; + for i := 0 to lbGrid.Items.Count-1 do + begin + if lbGrid.Selected[i] then + begin + Obj := TPCEPat(lbGrid.Items.Objects[i]); + if(First) then + begin + First := FALSE; + LOU := Obj.Level; + end + else + begin + if(SameLOU) then + SameLOU := (LOU = Obj.Level); + end; + end; + end; + if(SameLOU) then + cboPatUnderstanding.SelectByID(LOU) + else + cboPatUnderstanding.Text := ''; + end + else + begin + cboPatUnderstanding.Text := ''; + end; + finally + EndUpdate; + end; + end; +end; + +end. diff --git a/CPRS-Chart/Encounter/fProcedure.dfm b/CPRS-Chart/Encounter/fProcedure.dfm new file mode 100644 index 0000000..cfc4db1 --- /dev/null +++ b/CPRS-Chart/Encounter/fProcedure.dfm @@ -0,0 +1,202 @@ +inherited frmProcedures: TfrmProcedures + Left = 295 + Top = 212 + Caption = 'Encounter Procedure' + PixelsPerInch = 96 + TextHeight = 13 + object lblProcQty: TLabel [0] + Left = 240 + Top = 375 + Width = 39 + Height = 13 + Caption = 'Quantity' + end + inherited lblSection: TLabel + Width = 88 + Caption = 'Procedure Section' + end + inherited lblList: TLabel + Left = 154 + end + inherited bvlMain: TBevel + Top = 232 + Width = 537 + Height = 166 + end + object lblMod: TLabel [5] + Left = 358 + Top = 6 + Width = 42 + Height = 13 + Hint = 'Modifiers' + Caption = 'Modifiers' + ParentShowHint = False + ShowHint = True + end + object lblProvider: TLabel [6] + Left = 6 + Top = 376 + Width = 42 + Height = 13 + Caption = 'Provider:' + end + inherited btnOK: TBitBtn + Left = 544 + Top = 344 + TabOrder = 8 + end + inherited btnCancel: TBitBtn + Top = 371 + TabOrder = 9 + end + inherited pnlGrid: TPanel + Width = 523 + TabOrder = 1 + inherited lbGrid: TORListBox + Tag = 30 + Width = 523 + Caption = 'Selected Procedures' + Pieces = '1,2' + end + inherited hcGrid: THeaderControl + Width = 523 + Sections = < + item + ImageIndex = -1 + MinWidth = 52 + Text = 'Quantity' + Width = 52 + end + item + ImageIndex = -1 + MinWidth = 112 + Text = 'Selected Procedures' + Width = 112 + end> + end + end + inherited edtComment: TCaptionEdit + TabOrder = 2 + end + inherited btnRemove: TButton + Left = 454 + Top = 371 + TabOrder = 7 + end + inherited btnSelectAll: TButton + Left = 374 + Top = 371 + Height = 21 + TabOrder = 6 + TabStop = True + end + inherited pnlMain: TPanel + TabOrder = 0 + inherited splLeft: TSplitter + Left = 145 + end + object splRight: TSplitter [1] + Left = 349 + Top = 0 + Width = 3 + Height = 204 + Cursor = crHSplit + Align = alRight + OnMoved = splRightMoved + end + inherited lbxSection: TORListBox + Tag = 30 + Left = 148 + Width = 201 + ItemHeight = 14 + Pieces = '2,3' + end + inherited pnlLeft: TPanel + Width = 145 + inherited lbSection: TORListBox + Tag = 30 + Width = 145 + TabOrder = 0 + end + inherited btnOther: TButton + Tag = 13 + Left = 3 + Caption = 'Other Procedure...' + TabOrder = 1 + end + end + object lbMods: TORListBox + Left = 352 + Top = 0 + Width = 260 + Height = 204 + Style = lbOwnerDrawFixed + Align = alRight + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 14 + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 2 + Caption = 'Modifiers' + ItemTipColor = clWindow + LongList = False + Pieces = '2,3' + TabPosInPixels = True + CheckBoxes = True + CheckEntireLine = True + OnClickCheck = lbModsClickCheck + end + end + object spnProcQty: TUpDown + Left = 348 + Top = 371 + Width = 15 + Height = 21 + Associate = txtProcQty + Min = 1 + Position = 1 + TabOrder = 5 + Wrap = False + end + object txtProcQty: TCaptionEdit + Left = 288 + Top = 371 + Width = 60 + Height = 21 + Enabled = False + TabOrder = 4 + Text = '1' + OnChange = txtProcQtyChange + Caption = 'Quantity' + end + object cboProvider: TORComboBox + Left = 56 + Top = 371 + Width = 177 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Provider' + 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 = 3 + TabStop = True + OnChange = cboProviderChange + OnNeedData = cboProviderNeedData + end +end diff --git a/CPRS-Chart/Encounter/fProcedure.pas b/CPRS-Chart/Encounter/fProcedure.pas new file mode 100644 index 0000000..f965ab0 --- /dev/null +++ b/CPRS-Chart/Encounter/fProcedure.pas @@ -0,0 +1,539 @@ +unit fProcedure; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, StdCtrls, ComCtrls, CheckLst, ORCtrls, ExtCtrls, Buttons, uPCE, rPCE, ORFn, + fPCELex, fPCEOther, fPCEBaseGrid, fPCEBaseMain; + +type + TfrmProcedures = class(TfrmPCEBaseMain) + lblProcQty: TLabel; + spnProcQty: TUpDown; + txtProcQty: TCaptionEdit; + lbMods: TORListBox; + splRight: TSplitter; + lblMod: TLabel; + cboProvider: TORComboBox; + lblProvider: TLabel; + procedure txtProcQtyChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormResize(Sender: TObject); override; + procedure splRightMoved(Sender: TObject); + procedure clbListClick(Sender: TObject); + procedure lbGridSelect(Sender: TObject); + procedure btnSelectAllClick(Sender: TObject); + procedure lbModsClickCheck(Sender: TObject; Index: Integer); + procedure lbSectionClick(Sender: TObject); + procedure lbxSectionClickCheck(Sender: TObject; Index: Integer); + procedure btnOtherClick(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure cboProviderNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboProviderChange(Sender: TObject); + private + FCheckingCode: boolean; + FCheckingMods: boolean; + FLastCPTCodes: string; + FModsReadOnly: boolean; + FModsROChecked: string; + function MissingProvider: boolean; + protected + procedure UpdateNewItemStr(var x: string); override; + procedure UpdateControls; override; + procedure ShowModifiers; + procedure CheckModifiers; + public + function OK2SaveProcedures: boolean; + procedure InitTab(ACopyProc: TCopyItemsMethod; AListProc: TListSectionsProc); + end; + +var + frmProcedures: TfrmProcedures; + +implementation + +{$R *.DFM} + +uses + fEncounterFrame, uConst, rCore; + +const + TX_PROC_PROV = 'Each procedure requires selection of a Provider before it can be saved.'; + TC_PROC_PROV = 'Missing Procedure Provider'; + +procedure TfrmProcedures.txtProcQtyChange(Sender: TObject); +var + i: integer; + +begin + if(NotUpdating) then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCEProc(lbGrid.Items.Objects[i]).Quantity := spnProcQty.Position; + GridChanged; + end; +end; + +procedure TfrmProcedures.cboProviderChange(Sender: TObject); +var + i: integer; +begin + inherited; + if(NotUpdating) then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCEProc(lbGrid.Items.Objects[i]).Provider := cboProvider.ItemIEN; + GridChanged; + end; +end; + +procedure TfrmProcedures.FormCreate(Sender: TObject); +begin + inherited; + FTabName := CT_ProcNm; + FPCEListCodesProc := ListProcedureCodes; + cboProvider.InitLongList(uProviders.PCEProviderName); + FPCEItemClass := TPCEProc; + FPCECode := 'CPT'; + FSectionTabCount := 1; + FormResize(Self); +end; + +procedure TfrmProcedures.UpdateNewItemStr(var x: string); +begin + SetPiece(x, U, pnumProcQty, '1'); + //x := x + U + '1'; +end; + +procedure TfrmProcedures.UpdateControls; +var + ok, First: boolean; + SameQty: boolean; + SameProv: boolean; + i: integer; + Qty: integer; + Prov: int64; + Obj: TPCEProc; + +begin + inherited; + if(NotUpdating) then + begin + BeginUpdate; + try + ok := (lbGrid.SelCount > 0); + lblProcQty.Enabled := ok; + txtProcQty.Enabled := ok; + spnProcQty.Enabled := ok; + cboProvider.Enabled := ok; + lblProvider.Enabled := ok; + if(ok) then + begin + First := TRUE; + SameQty := TRUE; + SameProv := TRUE; + Prov := 0; + Qty := 1; + for i := 0 to lbGrid.Items.Count-1 do + begin + if lbGrid.Selected[i] then + begin + Obj := TPCEProc(lbGrid.Items.Objects[i]); + if(First) then + begin + First := FALSE; + Qty := Obj.Quantity; + Prov := Obj.Provider; + end + else + begin + if(SameQty) then + SameQty := (Qty = Obj.Quantity); + if(SameProv) then + SameProv := (Prov = Obj.Provider); + end; + end; + end; + if(SameQty) then + begin + spnProcQty.Position := Qty; + txtProcQty.Text := IntToStr(Qty); + txtProcQty.SelStart := length(txtProcQty.Text); + end + else + begin + spnProcQty.Position := 1; + txtProcQty.Text := ''; + end; + if(SameProv) then + cboProvider.SetExactByIEN(Prov, ExternalName(Prov, 200)) + else + cboProvider.SetExactByIEN(uProviders.PCEProvider, uProviders.PCEProviderName); + //cboProvider.ItemIndex := -1; v22.8 - RV + end + else + begin + txtProcQty.Text := ''; + cboProvider.ItemIndex := -1; + end; +// ShowModifiers; + finally + EndUpdate; + end; + end; +end; + +procedure TfrmProcedures.FormResize(Sender: TObject); +var + v, i: integer; + s: string; + +begin + inherited; + FSectionTabs[0] := -(lbxSection.width - LBCheckWidthSpace - MainFontWidth - ScrollBarWidth); + UpdateTabPos; + v := (lbMods.width - LBCheckWidthSpace - (4*MainFontWidth) - ScrollBarWidth); + s := ''; + for i := 1 to 20 do + begin + if s <> '' then s := s + ','; + s := s + inttostr(v); + if(v<0) then + dec(v,32) + else + inc(v,32); + end; + lbMods.TabPositions := s; +end; + +procedure TfrmProcedures.splRightMoved(Sender: TObject); +begin + inherited; + lblMod.Left := lbMods.Left + pnlMain.Left; + FSplitterMove := TRUE; + FormResize(Sender); +end; + +procedure TfrmProcedures.clbListClick(Sender: TObject); +begin + inherited; + Sync2Section; + UpdateControls; + ShowModifiers; +end; + +procedure TfrmProcedures.lbGridSelect(Sender: TObject); +begin + inherited; + Sync2Grid; + ShowModifiers; +end; + +procedure TfrmProcedures.btnSelectAllClick(Sender: TObject); +begin + inherited; + Sync2Grid; + ShowModifiers; +end; + +procedure TfrmProcedures.ShowModifiers; +const + ModTxt = 'Modifiers'; + ForTxt = ' for '; + Spaces = ' '; + CommonTxt = ' Common to Multiple Procedures'; + +var + i, TopIdx: integer; +// Needed, + Codes, ProcName, Hint, Msg: string; + Proc: TPCEProc; + +begin + if(not NotUpdating) then exit; + Codes := ''; + ProcName := ''; + Hint := ''; +// Needed := ''; + for i := 0 to lbGrid.Items.Count-1 do + begin + if(lbGrid.Selected[i]) then + begin + Proc := TPCEProc(lbGrid.Items.Objects[i]); + Codes := Codes + Proc.Code + U; + if(ProcName = '') then + ProcName := Proc.Narrative + else + ProcName := CommonTxt; + if(Hint <> '') then + Hint := Hint + CRLF + Spaces; + Hint := Hint + Proc.Narrative; +// Needed := Needed + Proc.Modifiers; + end; + end; + if(Codes = '') and (lbxSection.ItemIndex >= 0) then + begin + Codes := piece(lbxSection.Items[lbxSection.ItemIndex],U,1) + U; + ProcName := piece(lbxSection.Items[lbxSection.ItemIndex],U,2); + Hint := ProcName; +// Needed := piece(lbxSection.Items[lbxSection.ItemIndex],U,4); Don't show expired codes! + end; + msg := ModTxt; + if(ProcName <> '') and (ProcName <> CommonTxt) then + msg := msg + ForTxt; + lblMod.Caption := msg + ProcName; + if(pos(CRLF,Hint)>0) then + Hint := ':' + CRLF + Spaces + Hint; + lblMod.Hint := msg + Hint; + + if(FLastCPTCodes = Codes) then + TopIdx := lbMods.TopIndex + else + begin + TopIdx := 0; + FLastCPTCodes := Codes; + end; + ListCPTModifiers(lbMods.Items, Codes, ''); // Needed); + lbMods.TopIndex := TopIdx; + CheckModifiers; +end; + +procedure TfrmProcedures.CheckModifiers; +var + i, idx, cnt, mcnt: integer; + Code, Mods: string; + state: TCheckBoxState; + +begin + FModsReadOnly := TRUE; + if lbMods.Items.Count < 1 then exit; + FCheckingMods := TRUE; + try + cnt := 0; + Mods := ';'; + for i := 0 to lbGrid.Items.Count-1 do + begin + if(lbGrid.Selected[i]) then + begin + inc(cnt); + Mods := Mods + TPCEProc(lbGrid.Items.Objects[i]).Modifiers; + FModsReadOnly := FALSE; + end; + end; + if(cnt = 0) and (lbxSection.ItemIndex >= 0) then + begin + Mods := ';' + UpdateModifierList(lbxSection.Items, lbxSection.ItemIndex); + cnt := 1; + end; + for i := 0 to lbMods.Items.Count-1 do + begin + state := cbUnchecked; + if(cnt > 0) then + begin + Code := ';' + piece(lbMods.Items[i], U, 1) + ';'; + mcnt := 0; + repeat + idx := pos(Code, Mods); + if(idx > 0) then + begin + inc(mcnt); + delete(Mods, idx, length(Code) - 1); + end; + until (idx = 0); + if mcnt >= cnt then + State := cbChecked + else + if(mcnt > 0) then + State := cbGrayed; + end; + lbMods.CheckedState[i] := state; + end; + if FModsReadOnly then + begin + FModsROChecked := lbMods.CheckedString; + lbMods.Font.Color := clInactiveCaption; + end + else + lbMods.Font.Color := clWindowText; + finally + FCheckingMods := FALSE; + end; +end; + +procedure TfrmProcedures.lbModsClickCheck(Sender: TObject; Index: Integer); +var + i, idx: integer; + PCEObj: TPCEProc; + ModIEN: string; + DoChk, Add: boolean; + +begin + if FCheckingMods or (Index < 0) then exit; + if FModsReadOnly then + begin + lbMods.CheckedString := FModsROChecked; + exit; + end; + if(NotUpdating) then + begin + BeginUpdate; + try + DoChk := FALSE; + Add := (lbMods.Checked[Index]); + ModIEN := piece(lbMods.Items[Index],U,1) + ';'; + for i := 0 to lbGrid.Items.Count-1 do + begin + if(lbGrid.Selected[i]) then + begin + PCEObj := TPCEProc(lbGrid.Items.Objects[i]); + idx := pos(';' + ModIEN, ';' + PCEObj.Modifiers); + if(idx > 0) then + begin + if not Add then + begin + delete(PCEObj.Modifiers, idx, length(ModIEN)); + DoChk := TRUE; + end; + end + else + begin + if Add then + begin + PCEObj.Modifiers := PCEObj.Modifiers + ModIEN; + DoChk := TRUE; + end; + end; + end; + end; + finally + EndUpdate; + end; + if DoChk then + GridChanged; + end; +end; + +procedure TfrmProcedures.lbSectionClick(Sender: TObject); +begin + inherited; + ShowModifiers; +end; + +procedure TfrmProcedures.lbxSectionClickCheck(Sender: TObject; + Index: Integer); +var + i: integer; +begin + if FCheckingCode then exit; + FCheckingCode := TRUE; + try + inherited; + Sync2Grid; + if(lbxSection.ItemIndex >= 0) and (lbxSection.ItemIndex = Index) and + (lbxSection.Checked[Index]) then + begin + UpdateModifierList(lbxSection.Items, Index); + lbxSection.Checked[Index] := TRUE; + for i := 0 to lbGrid.Items.Count-1 do + begin + if(lbGrid.Selected[i]) then + with TPCEProc(lbGrid.Items.Objects[i]) do + begin + if(Category = GetCat) and + (Pieces(lbxSection.Items[Index], U, 1, 2) = Code + U + Narrative) then + begin + { TODO -oRich V. -cEncounters : v21/22 - Added this block to default provider for procedures.} + if Provider = 0 then Provider := uProviders.PCEProvider; + { uPCE.TPCEProviderList.PCEProvider function sorts this out automatically: } + { 1. Current CPRS encounter provider, if present and has active person class as of encounter date. } + { 2. Current user, if has active person class as of encounter date. } + { 3. Primary provider for the visit, if defined. } + { 4. No default. } + Modifiers := Piece(lbxSection.Items[lbxSection.ItemIndex], U, 4); + GridChanged; + exit; + end; + end; + end; + end; + finally + FCheckingCode := FALSE; + end; +end; + +procedure TfrmProcedures.btnOtherClick(Sender: TObject); +begin + inherited; + Sync2Grid; + ShowModifiers; +end; + +procedure TfrmProcedures.btnRemoveClick(Sender: TObject); +begin + inherited; + Sync2Grid; + ShowModifiers; +end; + +procedure TfrmProcedures.cboProviderNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + inherited; + if(uEncPCEData.VisitCategory = 'E') then + cboProvider.ForDataUse(SubSetOfPersons(StartFrom, Direction)) + else + cboProvider.ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, + FloatToStr(uEncPCEData.PersonClassDate))); +end; + +function TfrmProcedures.OK2SaveProcedures: boolean; +begin + Result := TRUE; + if MissingProvider then + begin + InfoBox(TX_PROC_PROV, TC_PROC_PROV, MB_OK or MB_ICONWARNING); + Result := False; + end; +end; + +function TfrmProcedures.MissingProvider: boolean; +var + i: integer; + AProc: TPCEProc; +begin + { TODO -oRich V. -cEncounters : {v21 - Entry of a provider for each new CPT is now required} + {Existing CPTs on the encounter will NOT require entry of a provider} + {Monitor status of new service request #20020203.} + Result := False; + + { Comment out the block below (and the "var" block above) } + { to allow but not require entry of a provider with each new CPT entered} +//------------------------------------------------ + for i := 0 to lbGrid.Items.Count - 1 do + begin + AProc := TPCEProc(lbGrid.Items.Objects[i]); + if AProc.fIsOldProcedure then continue; + if (AProc.Provider = 0) then + begin + Result := True; + lbGrid.ItemIndex := i; + exit; + end; + end; +//------------------------------------------------- +end; + +procedure TfrmProcedures.InitTab(ACopyProc: TCopyItemsMethod; AListProc: TListSectionsProc); +var + i: integer; +begin + inherited; + for i := 0 to lbGrid.Items.Count - 1 do + TPCEProc(lbGrid.Items.Objects[i]).fIsOldProcedure := True; +end; + +end. diff --git a/CPRS-Chart/Encounter/fSkinTest.dfm b/CPRS-Chart/Encounter/fSkinTest.dfm new file mode 100644 index 0000000..9f74a32 --- /dev/null +++ b/CPRS-Chart/Encounter/fSkinTest.dfm @@ -0,0 +1,171 @@ +inherited frmSkinTests: TfrmSkinTests + Left = 213 + Top = 163 + Caption = 'Encounter Skin Test form' + PixelsPerInch = 96 + TextHeight = 13 + object lblSkinResults: TLabel [0] + Left = 490 + Top = 244 + Width = 35 + Height = 13 + Caption = 'Results' + end + object lblDTRead: TLabel [1] + Left = 46 + Top = 380 + Width = 52 + Height = 13 + Caption = 'Date Read' + Visible = False + end + object lblReading: TLabel [2] + Left = 490 + Top = 290 + Width = 40 + Height = 13 + Caption = 'Reading' + end + object lblDTGiven: TLabel [3] + Left = 216 + Top = 380 + Width = 54 + Height = 13 + Caption = 'Date Given' + Visible = False + end + inherited lblSection: TLabel + Width = 84 + Caption = 'Skin Test Section' + end + inherited btnOK: TBitBtn + TabOrder = 10 + end + inherited btnCancel: TBitBtn + TabOrder = 11 + end + inherited pnlGrid: TPanel + TabOrder = 1 + inherited lbGrid: TORListBox + Tag = 50 + Caption = 'Selected Skin Tests' + Pieces = '1,2,3' + end + inherited hcGrid: THeaderControl + Sections = < + item + ImageIndex = -1 + MinWidth = 50 + Text = 'Results' + Width = 55 + end + item + ImageIndex = -1 + MinWidth = 55 + Text = 'Reading' + Width = 55 + end + item + ImageIndex = -1 + Text = 'Selected Skin Tests' + Width = 110 + end> + end + end + inherited edtComment: TCaptionEdit + TabOrder = 3 + end + inherited btnRemove: TButton + TabOrder = 7 + end + inherited btnSelectAll: TButton + TabOrder = 2 + TabStop = True + end + inherited pnlMain: TPanel + TabOrder = 0 + inherited lbxSection: TORListBox + Tag = 50 + end + inherited pnlLeft: TPanel + inherited lbSection: TORListBox + Tag = 50 + TabOrder = 0 + Caption = 'Skin Test Section' + end + inherited btnOther: TButton + Tag = 21 + Caption = 'Other Skin Test...' + TabOrder = 1 + end + end + end + object UpDnReading: TUpDown + Left = 531 + Top = 304 + Width = 15 + Height = 21 + Associate = EdtReading + Min = 0 + Max = 40 + Position = 0 + TabOrder = 6 + Wrap = False + OnChanging = UpDnReadingChanging + end + object EdtReading: TCaptionEdit + Left = 490 + Top = 304 + Width = 41 + Height = 21 + Enabled = False + TabOrder = 5 + Text = '0' + OnChange = EdtReadingChange + Caption = 'Reading' + end + object edtDtRead: TCaptionEdit + Left = 104 + Top = 376 + Width = 97 + Height = 21 + TabOrder = 8 + Text = 'edtDtRead' + Visible = False + Caption = 'Date Read' + end + object edtDTGiven: TCaptionEdit + Left = 280 + Top = 376 + Width = 81 + Height = 21 + TabOrder = 9 + Text = 'edtDTGiven' + Visible = False + Caption = 'Date Given' + end + object cboSkinResults: TORComboBox + Tag = 30 + Left = 490 + Top = 260 + Width = 121 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Results' + Color = clWindow + DropDownCount = 8 + Enabled = False + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = cboSkinResultsChange + end +end diff --git a/CPRS-Chart/Encounter/fSkinTest.pas b/CPRS-Chart/Encounter/fSkinTest.pas new file mode 100644 index 0000000..aa24591 --- /dev/null +++ b/CPRS-Chart/Encounter/fSkinTest.pas @@ -0,0 +1,248 @@ +unit fSkinTest; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, ORCtrls, StdCtrls, ComCtrls, CheckLst, ExtCtrls, Buttons, uPCE, rPCE, ORFn, + fPCELex, fPCEOther, rCore, fPCEBaseMain; + +type + TfrmSkinTests = class(TfrmPCEBaseMain) + lblSkinResults: TLabel; + lblDTRead: TLabel; + lblReading: TLabel; + lblDTGiven: TLabel; + UpDnReading: TUpDown; + EdtReading: TCaptionEdit; + edtDtRead: TCaptionEdit; + edtDTGiven: TCaptionEdit; + cboSkinResults: TORComboBox; + procedure cboSkinResultsChange(Sender: TObject); + procedure EdtReadingChange(Sender: TObject); + procedure edtDtReadChange(Sender: TObject); + procedure edtDTGivenChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure UpDnReadingChanging(Sender: TObject; + var AllowChange: Boolean); + private + protected + procedure UpdateNewItemStr(var x: string); override; + procedure UpdateControls; override; + public + end; + +var + frmSkinTests: TfrmSkinTests; + +implementation + +{$R *.DFM} + +uses + fEncounterFrame; + +procedure TfrmSkinTests.cboSkinResultsChange(Sender: TObject); +var + i: integer; + +begin + if(NotUpdating) and (cboSkinResults.Text <> '') then + begin + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCESkin(lbGrid.Items.Objects[i]).Results := cboSkinResults.ItemID; + GridChanged; + end; +end; + +{/////////////////////////////////////////////////////////////////////////////// +//Name:procedure TfrmSkinTests.EdtReadingChange(Sender: TObject); +//Created: Jan 1999 +//By: Robert Bott +//Location: ISL +//Description:Change the reading assigned to the skin test. +///////////////////////////////////////////////////////////////////////////////} +procedure TfrmSkinTests.EdtReadingChange(Sender: TObject); +var + x, i: integer; + +begin + if(NotUpdating) then + begin + x := StrToIntDef(EdtReading.Text, 0); + for i := 0 to lbGrid.Items.Count-1 do + if(lbGrid.Selected[i]) then + TPCESkin(lbGrid.Items.Objects[i]).Reading := x; + GridChanged; + end; +end; + +procedure TfrmSkinTests.edtDtReadChange(Sender: TObject); +begin +end; +(* +var + DtRead: TFMDateTime; + ASkinTest: TPCESkin; +begin + inherited; + if lstSkinSelect.ItemIndex < 0 then Exit; + + with lstSkinSelect do ASkinTest := TPCESkin(Items.Objects[ItemIndex]); + DtRead := StrToFMDateTime(edtReading.text); + with lstSkinSelect do if (ItemIndex > -1) then + begin + ASkinTest.DTRead := DTRead; + Items[ItemIndex] := ASkinTest.ItemStr; + end; +end; +*) + +procedure TfrmSkinTests.edtDTGivenChange(Sender: TObject); +begin +end; +(* +var + DtGiven: TFMDateTime; + ASkinTest: TPCESkin; +begin + inherited; + if lstSkinSelect.ItemIndex < 0 then Exit; + + with lstSkinSelect do ASkinTest := TPCESkin(Items.Objects[ItemIndex]); + DtGiven := StrToFMDateTime(edtDTGiven.text); + with lstSkinSelect do if (ItemIndex > -1) then + begin + ASkinTest.DTGiven := DTGIven; + Items[ItemIndex] := ASkinTest.ItemStr; + end; +end; +*) +(* +procedure TfrmSkinTests.CheckSkinRules; +begin + //Results must be between 0 and 40 + if StrToInt(EdtReading.Text) < 0 then EdtReading.text := '0'; + if StrToInt(EdtReading.Text) > 40 then EdtReading.text := '40'; + +(* //if reading >10, result must be "positive" + if (StrToInt(EdtReading.Text) > 9) and + (CompareText(Piece(cboSkinResults.items[cboSkinResults.itemindex],U,1),'P') <> 0) then + begin + if (Piece(cboSkinResults.items[cboSkinResults.itemindex],U,1) = '@') then // not selected + begin + cboSkinResults.SelectById('P'); + end + else + begin + Showmessage('If the reading is over 9, the results are required to be positive.'); + cboSkinResults.SelectById('P'); + end; + end; +end; +*) + +procedure TfrmSkinTests.FormCreate(Sender: TObject); +begin + inherited; + FTabName := CT_SkinNm; + FPCEListCodesProc := ListSkinCodes; + FPCEItemClass := TPCESkin; + FPCECode := 'SK'; + PCELoadORCombo(cboSkinResults); +end; + +procedure TfrmSkinTests.UpdateNewItemStr(var x: string); +begin + SetPiece(x, U, pnumSkinResults, NoPCEValue); + SetPiece(x, U, pnumSkinReading, '0'); +// SetPiece(x, U, pnumSkinDTRead); +// SetPiece(x, U, pnumSkinDTGiven); +end; + +procedure TfrmSkinTests.UpdateControls; +var + ok, First: boolean; + SameRes, SameRead: boolean; + i: integer; + Res: string; + Read: integer; + Obj: TPCESkin; + +begin + inherited; + if(NotUpdating) then + begin + BeginUpdate; + try + ok := (lbGrid.SelCount > 0); + lblSkinResults.Enabled := ok; + lblReading.Enabled := ok; + cboSkinResults.Enabled := ok; + EdtReading.Enabled := ok; + UpDnReading.Enabled := ok; + if(ok) then + begin + First := TRUE; + SameRes := TRUE; + SameRead := TRUE; + Res := NoPCEValue; + Read := 0; + for i := 0 to lbGrid.Items.Count-1 do + begin + if lbGrid.Selected[i] then + begin + Obj := TPCESkin(lbGrid.Items.Objects[i]); + if(First) then + begin + First := FALSE; + Res := Obj.Results; + Read := Obj.Reading; + end + else + begin + if(SameRes) then + SameRes := (Res = Obj.Results); + if(SameRead) then + SameRead := (Read = Obj.Reading); + end; + end; + end; + if(SameRes) then + cboSkinResults.SelectByID(Res) + else + cboSkinResults.Text := ''; + if(SameRead) then + begin + UpDnReading.Position := Read; + EdtReading.Text := IntToStr(Read); + EdtReading.SelStart := length(EdtReading.Text); + end + else + begin + UpDnReading.Position := 0; + EdtReading.Text := ''; + end; + end + else + begin + cboSkinResults.Text := ''; + EdtReading.Text := ''; + end; + finally + EndUpdate; + end; + end; +end; + +procedure TfrmSkinTests.UpDnReadingChanging(Sender: TObject; + var AllowChange: Boolean); +begin + inherited; + if(UpDnReading.Position = 0) then + EdtReadingChange(Sender); +end; + +end. + \ No newline at end of file diff --git a/CPRS-Chart/Encounter/fVisitType.dfm b/CPRS-Chart/Encounter/fVisitType.dfm new file mode 100644 index 0000000..7b538ea --- /dev/null +++ b/CPRS-Chart/Encounter/fVisitType.dfm @@ -0,0 +1,255 @@ +inherited frmVisitType: TfrmVisitType + Left = 255 + Top = 186 + Caption = 'Encounter VisitType' + ClientWidth = 620 + OnCloseQuery = FormCloseQuery + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object lblVType: TLabel [0] + Left = 150 + Top = 6 + Width = 67 + Height = 13 + Caption = 'Section Name' + end + object lblSCDisplay: TLabel [1] + Left = 6 + Top = 123 + Width = 186 + Height = 13 + Caption = 'Service Connection && Rated Disabilities' + end + object lblVTypeSection: TLabel [2] + Left = 6 + Top = 6 + Width = 58 + Height = 13 + Caption = 'Type of Visit' + end + object lblCurrentProv: TLabel [3] + Left = 277 + Top = 249 + Width = 165 + Height = 13 + Caption = 'Current providers for this encounter' + end + object lblProvider: TLabel [4] + Left = 6 + Top = 249 + Width = 89 + Height = 13 + Caption = 'Available providers' + end + object lblMod: TLabel [5] + Left = 358 + Top = 6 + Width = 42 + Height = 13 + Hint = 'Modifiers' + Caption = 'Modifiers' + ParentShowHint = False + ShowHint = True + end + inherited btnOK: TBitBtn + Left = 463 + Top = 377 + TabOrder = 8 + end + inherited btnCancel: TBitBtn + Left = 543 + Top = 377 + TabOrder = 9 + end + object pnlMain: TPanel + Left = 2 + Top = 19 + Width = 615 + Height = 92 + BevelOuter = bvNone + TabOrder = 0 + object splLeft: TSplitter + Left = 145 + Top = 0 + Width = 3 + Height = 92 + Cursor = crHSplit + OnMoved = splLeftMoved + end + object splRight: TSplitter + Left = 352 + Top = 0 + Width = 3 + Height = 92 + Cursor = crHSplit + Align = alRight + OnMoved = splRightMoved + end + object pnlLeft: TPanel + Left = 0 + Top = 0 + Width = 145 + Height = 92 + Align = alLeft + BevelOuter = bvNone + TabOrder = 0 + object lstVTypeSection: TORListBox + Tag = 10 + Left = 0 + Top = 0 + Width = 145 + Height = 92 + Align = alTop + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = lstVTypeSectionClick + Caption = 'Type of Visit' + ItemTipColor = clWindow + LongList = False + Pieces = '3' + CheckEntireLine = True + end + end + object lbxVisits: TORListBox + Tag = 10 + Left = 148 + Top = 0 + Width = 204 + Height = 92 + Style = lbOwnerDrawFixed + Align = alClient + ItemHeight = 16 + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = lbxVisitsClick + Caption = 'Section Name' + ItemTipColor = clWindow + LongList = False + Pieces = '3,4,5' + TabPosInPixels = True + CheckBoxes = True + CheckEntireLine = True + OnClickCheck = lbxVisitsClickCheck + end + object lbMods: TORListBox + Left = 355 + Top = 0 + Width = 260 + Height = 92 + Style = lbOwnerDrawFixed + Align = alRight + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 14 + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 2 + Caption = 'Modifiers' + ItemTipColor = clWindow + LongList = False + Pieces = '2,3' + TabPosInPixels = True + CheckBoxes = True + CheckEntireLine = True + OnClickCheck = lbModsClickCheck + end + end + object memSCDisplay: TCaptionMemo + Left = 6 + Top = 137 + Width = 411 + Height = 107 + Color = clBtnFace + Lines.Strings = ( + '') + ScrollBars = ssVertical + TabOrder = 1 + Caption = 'Service Connection && Rated Disabilities' + end + object lbProviders: TORListBox + Left = 277 + Top = 265 + Width = 183 + Height = 126 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 7 + OnDblClick = lbProvidersDblClick + Caption = 'Current providers for this encounter' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + OnChange = lbProvidersChange + CheckEntireLine = True + end + object cboPtProvider: TORComboBox + Left = 6 + Top = 265 + Width = 183 + Height = 126 + Style = orcsSimple + AutoSelect = True + Caption = 'Available providers' + 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 = 3 + TabStop = True + CheckEntireLine = True + OnChange = cboPtProviderChange + OnDblClick = cboPtProviderDblClick + OnNeedData = cboPtProviderNeedData + end + object btnAdd: TButton + Left = 196 + Top = 275 + Width = 75 + Height = 21 + Caption = 'Add' + TabOrder = 4 + OnClick = btnAddClick + end + object btnDelete: TButton + Left = 196 + Top = 307 + Width = 75 + Height = 21 + Caption = 'Remove' + TabOrder = 5 + OnClick = btnDeleteClick + end + object btnPrimary: TButton + Left = 196 + Top = 355 + Width = 75 + Height = 21 + Caption = 'Primary' + TabOrder = 6 + OnClick = btnPrimaryClick + end + inline fraVisitRelated: TfraVisitRelated + Left = 426 + Top = 112 + Width = 192 + Height = 137 + TabOrder = 2 + end +end diff --git a/CPRS-Chart/Encounter/fVisitType.pas b/CPRS-Chart/Encounter/fVisitType.pas new file mode 100644 index 0000000..11b77ab --- /dev/null +++ b/CPRS-Chart/Encounter/fVisitType.pas @@ -0,0 +1,535 @@ +unit fVisitType; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPCEBase, StdCtrls, CheckLst, ORCtrls, ExtCtrls, Buttons, uPCE, rPCE, ORFn, rCore, + ComCtrls, mVisitRelated; + +type + TfrmVisitType = class(TfrmPCEBase) + lblVType: TLabel; + lblSCDisplay: TLabel; + lblVTypeSection: TLabel; + memSCDisplay: TCaptionMemo; + lbProviders: TORListBox; + lblCurrentProv: TLabel; + cboPtProvider: TORComboBox; + lblProvider: TLabel; + btnAdd: TButton; + btnDelete: TButton; + btnPrimary: TButton; + fraVisitRelated: TfraVisitRelated; + lstVTypeSection: TORListBox; + lbxVisits: TORListBox; + lbMods: TORListBox; + lblMod: TLabel; + pnlMain: TPanel; + pnlLeft: TPanel; + splLeft: TSplitter; + procedure lstVTypeSectionClick(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure FormCreate(Sender: TObject); + procedure btnAddClick(Sender: TObject); + procedure btnDeleteClick(Sender: TObject); + procedure btnPrimaryClick(Sender: TObject); + procedure cboPtProviderDblClick(Sender: TObject); + procedure cboPtProviderChange(Sender: TObject); + procedure cboPtProviderNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + procedure lbProvidersChange(Sender: TObject); + procedure lbProvidersDblClick(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure lbxVisitsClickCheck(Sender: TObject; Index: Integer); + procedure splLeftMoved(Sender: TObject); + procedure splRightMoved(Sender: TObject); + procedure lbModsClickCheck(Sender: TObject; Index: Integer); + procedure lbxVisitsClick(Sender: TObject); + protected + FSplitterMove: boolean; + procedure ShowModifiers; + procedure CheckModifiers; + private + FChecking: boolean; + FCheckingMods: boolean; + FLastCPTCodes: string; + FLastMods: string; + procedure RefreshProviders; + procedure UpdateProviderButtons; + public + procedure MatchVType; + end; + +var + frmVisitType: TfrmVisitType; + USCchecked:boolean = false; +// PriProv: Int64; + PriProv: Int64; + +const + LBCheckWidthSpace = 18; + +implementation + +{$R *.DFM} + +uses + fEncounterFrame, uCore, uConst; + +const + FN_NEW_PERSON = 200; + +procedure TfrmVisitType.MatchVType; +var + i: Integer; + Found: Boolean; +begin + with uVisitType do + begin + if Code = '' then Exit; + Found := False; + with lstVTypeSection do for i := 0 to Items.Count - 1 do + if Piece(Items[i], U, 2) = Category then + begin + ItemIndex := i; + lstVTypeSectionClick(Self); + Found := True; + break; + end; + if Found then for i := 0 to lbxVisits.Items.Count - 1 do + if Pieces(lbxVisits.Items[i], U, 1, 2) = Code + U + Narrative then + begin + lbxVisits.ItemIndex := i; + FChecking := TRUE; + try + lbxVisits.Checked[i] := True; + lbxVisitsClickCheck(Self, i); + finally + FChecking := FALSE; + end; + end; + end; +end; + +procedure TfrmVisitType.lstVTypeSectionClick(Sender: TObject); +var + i: Integer; +begin + inherited; + ListVisitTypeCodes(lbxVisits.Items, lstVTypeSection.ItemIEN); + with uVisitType do for i := 0 to lbxVisits.Items.Count - 1 do + begin + if ((uVisitType <> nil) and (Pieces(lbxVisits.Items[i], U, 1, 2) = Code + U + Narrative)) then + begin + FChecking := TRUE; + try + lbxVisits.Checked[i] := True; + lbxVisits.ItemIndex := i; + finally + FChecking := FALSE; + end; + end; + end; + lbxVisitsClick(Self); +end; + +procedure TfrmVisitType.FormCloseQuery(Sender: TObject; + var CanClose: Boolean); +begin + inherited; + //process before closing + +end; + +(*function ExposureAnswered: Boolean; +begin + result := false; + //if SC answered set result = true +end;*) + + +procedure TfrmVisitType.RefreshProviders; +var + i: integer; + ProvData: TPCEProviderRec; + ProvEntry: string; + +begin + lbProviders.Clear; + for i := 0 to uProviders.count-1 do + begin + ProvData := uProviders[i]; + ProvEntry := IntToStr(ProvData.IEN) + U + ProvData.Name; + if(ProvData.Primary) then + ProvEntry := ProvEntry + ' (Primary)'; + lbProviders.Items.Add(ProvEntry); + end; + UpdateProviderButtons; +end; + +procedure TfrmVisitType.FormCreate(Sender: TObject); +var + AIEN: Int64; + +begin + inherited; + FTabName := CT_VisitNm; + FSectionTabCount := 2; + FormResize(Self); + AIEN := uProviders.PendingIEN(TRUE); + if(AIEN = 0) then + begin + AIEN := uProviders.PendingIEN(FALSE); + if(AIEN = 0) then + begin + cboPtProvider.InitLongList(User.Name); + AIEN := User.DUZ; + end + else + cboPtProvider.InitLongList(uProviders.PendingName(FALSE)); + cboPtProvider.SelectByIEN(AIEN); + end + else + begin + cboPtProvider.InitLongList(uProviders.PendingName(TRUE)); + cboPtProvider.SelectByIEN(AIEN); + end; + RefreshProviders; + FLastMods := uEncPCEData.VisitType.Modifiers; +end; + +(*procedure TfrmVisitType.SynchEncounterProvider; +// add the Encounter.Provider if this note is for the current encounter +var + ProviderFound, PrimaryFound: Boolean; + i: Integer; + AProvider: TPCEProvider; +begin + if (FloatToStrF(uEncPCEData.DateTime, ffFixed, 15, 4) = // compensate rounding errors + FloatToStrF(Encounter.DateTime, ffFixed, 15, 4)) and + (uEncPCEData.Location = Encounter.Location) and + (Encounter.Provider > 0) then + begin + ProviderFound := False; + PrimaryFound := False; + for i := 0 to ProviderLst.Count - 1 do + begin + AProvider := TPCEProvider(ProviderLst.Items[i]); + if AProvider.IEN = Encounter.Provider then ProviderFound := True; + if AProvider.Primary = '1' then PrimaryFound := True; + end; + if not ProviderFound then + begin + AProvider := TPCEProvider.Create; + AProvider.IEN := Encounter.Provider; + AProvider.Name := ExternalName(Encounter.Provider, FN_NEW_PERSON); + if not PrimaryFound then + begin + AProvider.Primary := '1'; + uProvider := Encounter.Provider; + end + else AProvider.Primary := '0'; + AProvider.Delete := False; + ProviderLst.Add(AProvider); + end; + end; +end; +*) + +procedure TfrmVisitType.UpdateProviderButtons; +var + ok: boolean; + +begin + ok := (lbProviders.ItemIndex >= 0); + btnDelete.Enabled := ok; + btnPrimary.Enabled := ok; + btnAdd.Enabled := (cboPtProvider.ItemIEN <> 0); +end; + +procedure TfrmVisitType.btnAddClick(Sender: TObject); +begin + inherited; + uProviders.AddProvider(IntToStr(cboPTProvider.ItemIEN), cboPTProvider.Text, FALSE); + RefreshProviders; + lbProviders.SelectByIEN(cboPTProvider.ItemIEN); +end; + +procedure TfrmVisitType.btnDeleteClick(Sender: TObject); +var + idx: integer; + +begin + inherited; + If lbProviders.ItemIndex = -1 then exit; + idx := uProviders.IndexOfProvider(lbProviders.ItemID); + if(idx >= 0) then + uProviders.Delete(idx); + RefreshProviders; +end; + +procedure TfrmVisitType.btnPrimaryClick(Sender: TObject); +var + idx: integer; + AIEN: Int64; + +begin + inherited; + if lbProviders.ItemIndex = -1 then exit; + AIEN := lbProviders.ItemIEN; + idx := uProviders.IndexOfProvider(IntToStr(AIEN)); + if(idx >= 0) then + uProviders.PrimaryIdx := idx; + RefreshProviders; + lbProviders.SelectByIEN(AIEN); +end; + +procedure TfrmVisitType.cboPtProviderDblClick(Sender: TObject); +begin + inherited; + btnAddClick(Sender); +end; + +procedure TfrmVisitType.cboPtProviderChange(Sender: TObject); +begin + inherited; + UpdateProviderButtons; +end; + +procedure TfrmVisitType.cboPtProviderNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + inherited; + if(uEncPCEData.VisitCategory = 'E') then + cboPtProvider.ForDataUse(SubSetOfPersons(StartFrom, Direction)) + else + cboPtProvider.ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, + FloatToStr(uEncPCEData.PersonClassDate))); +end; + +procedure TfrmVisitType.lbProvidersChange(Sender: TObject); +begin + inherited; + UpdateProviderButtons; +end; + +procedure TfrmVisitType.lbProvidersDblClick(Sender: TObject); +begin + inherited; + btnDeleteClick(Sender); +end; + +procedure TfrmVisitType.FormResize(Sender: TObject); +var + v, i: integer; + s: string; +begin + if FSplitterMove then + FSplitterMove := FALSE + else + begin + inherited; + FSectionTabs[0] := -(lbxVisits.width - LBCheckWidthSpace - MainFontWidth - ScrollBarWidth); + FSectionTabs[1] := -(lbxVisits.width - (6*MainFontWidth) - ScrollBarWidth); + if(FSectionTabs[0] <= FSectionTabs[1]) then FSectionTabs[0] := FSectionTabs[1]+2; + lbxVisits.TabPositions := SectionString; + v := (lbMods.width - LBCheckWidthSpace - (4*MainFontWidth) - ScrollBarWidth); + s := ''; + for i := 1 to 20 do + begin + if s <> '' then s := s + ','; + s := s + inttostr(v); + if(v<0) then + dec(v,32) + else + inc(v,32); + end; + lbMods.TabPositions := s; + end; +end; + +procedure TfrmVisitType.lbxVisitsClickCheck(Sender: TObject; + Index: Integer); +var + i: Integer; + x, CurCategory: string; +begin + inherited; + if FChecking or FClosing then exit; + for i := 0 to lbxVisits.Items.Count - 1 do + if i <> lbxVisits.ItemIndex then + begin + FChecking := TRUE; + try + uVisitType.Modifiers := ''; + lbxVisits.Checked[i] := False; + finally + FChecking := FALSE; + end; + end; + if lbxVisits.Checked[lbxVisits.ItemIndex] then with uVisitType do + begin + with lstVTypeSection do CurCategory := Piece(Items[ItemIndex], U, 2); + x := Pieces(lbxVisits.Items[lbxVisits.ItemIndex], U, 1, 2); + x := 'CPT' + U + Piece(x, U, 1) + U + CurCategory + U + Piece(x, U, 2) + U + '1' + U + + IntToStr(uProviders.PrimaryIEN); +// + IntToStr(uProvider); + uVisitType.SetFromString(x); + end + else + begin + uVisitType.Clear; + //with lstVTypeSection do CurCategory := Piece(Items[ItemIndex], U, 2); + end; +end; + +procedure TfrmVisitType.ShowModifiers; +const + ModTxt = 'Modifiers'; + ForTxt = ' for '; + Spaces = ' '; + +var + TopIdx: integer; +// Needed, + Codes, VstName, Hint, Msg: string; + +begin + Codes := ''; + VstName := ''; + Hint := ''; + if(Codes = '') and (lbxVisits.ItemIndex >= 0) then + begin + Codes := piece(lbxVisits.Items[lbxVisits.ItemIndex],U,1) + U; + VstName := piece(lbxVisits.Items[lbxVisits.ItemIndex],U,2); + Hint := VstName; +// Needed := piece(lbxVisit.Items[lbxVisit.ItemIndex],U,4); Don't show expired codes! + end; + msg := ModTxt; + if(VstName <> '') then + msg := msg + ForTxt; + lblMod.Caption := msg + VstName; + lbMods.Caption := lblMod.Caption; + if(pos(CRLF,Hint)>0) then + Hint := ':' + CRLF + Spaces + Hint; + lblMod.Hint := msg + Hint; + + if(FLastCPTCodes = Codes) then + TopIdx := lbMods.TopIndex + else + begin + TopIdx := 0; + FLastCPTCodes := Codes; + end; + ListCPTModifiers(lbMods.Items, Codes, ''); // Needed); + lbMods.TopIndex := TopIdx; + CheckModifiers; +end; + +procedure TfrmVisitType.CheckModifiers; +var + i, idx, cnt, mcnt: integer; + Code, Mods: string; + state: TCheckBoxState; + +begin + if lbMods.Items.Count < 1 then exit; + FCheckingMods := TRUE; + try + cnt := 0; + Mods := ';'; + if uVisitType.Modifiers <> '' then + begin + inc(cnt); + Mods := Mods + uVisitType.Modifiers; + end; + if(cnt = 0) and (lbxVisits.ItemIndex >= 0) then + begin + Mods := ';' + UpdateVisitTypeModifierList(lbxVisits.Items, lbxVisits.ItemIndex); + lbxVisits.Checked[lbxVisits.ItemIndex] := True; + cnt := 1; + end; + for i := 0 to lbMods.Items.Count-1 do + begin + state := cbUnchecked; + if(cnt > 0) then + begin + Code := ';' + piece(lbMods.Items[i], U, 1) + ';'; + mcnt := 0; + repeat + idx := pos(Code, Mods); + if(idx > 0) then + begin + inc(mcnt); + delete(Mods, idx, length(Code) - 1); + end; + until (idx = 0); + if mcnt >= cnt then + State := cbChecked + else + if(mcnt > 0) then + State := cbGrayed; + end; + lbMods.CheckedState[i] := state; + end; + finally + FCheckingMods := FALSE; + end; +end; + +procedure TfrmVisitType.splLeftMoved(Sender: TObject); +begin + inherited; + lblVType.Left := lbxVisits.Left + pnlMain.Left; + FSplitterMove := TRUE; + FormResize(Sender); +end; + +procedure TfrmVisitType.splRightMoved(Sender: TObject); +begin + inherited; + lblMod.Left := lbMods.Left + pnlMain.Left; + FSplitterMove := TRUE; + FormResize(Sender); +end; + +procedure TfrmVisitType.lbModsClickCheck(Sender: TObject; Index: Integer); +var + idx: integer; + ModIEN: string; + Add: boolean; +begin + if FCheckingMods or (Index < 0) then exit; + Add := (lbMods.Checked[Index]); + ModIEN := piece(lbMods.Items[Index],U,1) + ';'; + idx := pos(';' + ModIEN, ';' + uVisitType.Modifiers); + if(idx > 0) then + begin + if not Add then + begin + delete(uVisitType.Modifiers, idx, length(ModIEN)); + end; + end + else + begin + if Add then + begin + uVisitType.Modifiers := uVisitType.Modifiers + ModIEN; + end; + end; +end; + +procedure TfrmVisitType.lbxVisitsClick(Sender: TObject); +begin + inherited; + ShowModifiers; +end; + +initialization +//frmVisitType.CreateProviderList; + +finalization +//frmVisitType.FreeProviderList; + +end. diff --git a/CPRS-Chart/Encounter/mVisitRelated.dfm b/CPRS-Chart/Encounter/mVisitRelated.dfm new file mode 100644 index 0000000..8b5b6a8 --- /dev/null +++ b/CPRS-Chart/Encounter/mVisitRelated.dfm @@ -0,0 +1,175 @@ +object fraVisitRelated: TfraVisitRelated + Left = 0 + Top = 0 + Width = 192 + Height = 136 + TabOrder = 0 + object bvlSCFrame: TBevel + Left = 0 + Top = 14 + Width = 191 + Height = 119 + Shape = bsFrame + end + object lblSCYes: TStaticText + Left = 3 + Top = 0 + Width = 22 + Height = 13 + AutoSize = False + Caption = 'Yes' + TabOrder = 14 + end + object lblSCNo: TStaticText + Left = 26 + Top = 0 + Width = 18 + Height = 13 + AutoSize = False + Caption = 'No' + TabOrder = 15 + end + object lblSCSelect: TStaticText + Left = 44 + Top = 0 + Width = 131 + Height = 13 + Alignment = taCenter + AutoSize = False + Caption = 'Visit Related To' + TabOrder = 16 + end + object chkSCYes: TCheckBox + Tag = 1 + Left = 6 + Top = 17 + Width = 16 + Height = 17 + TabOrder = 0 + OnClick = chkClick + end + object chkAOYes: TCheckBox + Tag = 2 + Left = 6 + Top = 49 + Width = 16 + Height = 17 + TabOrder = 4 + OnClick = chkClick + end + object chkIRYes: TCheckBox + Tag = 3 + Left = 6 + Top = 65 + Width = 16 + Height = 17 + TabOrder = 6 + OnClick = chkClick + end + object chkECYes: TCheckBox + Tag = 4 + Left = 6 + Top = 81 + Width = 16 + Height = 17 + TabOrder = 8 + OnClick = chkClick + end + object chkMSTYes: TCheckBox + Tag = 5 + Left = 6 + Top = 97 + Width = 16 + Height = 17 + TabOrder = 10 + OnClick = chkClick + end + object chkMSTNo: TCheckBox + Tag = 15 + Left = 26 + Top = 97 + Width = 160 + Height = 17 + Caption = 'MST' + TabOrder = 11 + OnClick = chkClick + end + object chkECNo: TCheckBox + Tag = 14 + Left = 26 + Top = 81 + Width = 160 + Height = 17 + Caption = 'Environmental Contaminants' + TabOrder = 9 + OnClick = chkClick + end + object chkIRNo: TCheckBox + Tag = 13 + Left = 26 + Top = 65 + Width = 160 + Height = 17 + Caption = 'Ionizing Radiation Exposure' + TabOrder = 7 + OnClick = chkClick + end + object chkAONo: TCheckBox + Tag = 12 + Left = 26 + Top = 49 + Width = 160 + Height = 17 + Caption = 'Agent Orange Exposure' + TabOrder = 5 + OnClick = chkClick + end + object chkSCNo: TCheckBox + Tag = 11 + Left = 26 + Top = 17 + Width = 160 + Height = 17 + Caption = 'Service Connected Condition' + TabOrder = 1 + OnClick = chkClick + end + object chkHNCYes: TCheckBox + Tag = 6 + Left = 6 + Top = 113 + Width = 16 + Height = 17 + TabOrder = 12 + OnClick = chkClick + end + object chkHNCNo: TCheckBox + Tag = 16 + Left = 26 + Top = 113 + Width = 160 + Height = 17 + Caption = 'Head and/or Neck Cancer' + TabOrder = 13 + OnClick = chkClick + end + object chkCVYes: TCheckBox + Tag = 7 + Left = 6 + Top = 33 + Width = 16 + Height = 17 + TabOrder = 2 + OnClick = chkClick + end + object chkCVNo: TCheckBox + Tag = 17 + Left = 26 + Top = 33 + Width = 160 + Height = 17 + Caption = 'Combat Vet (Combat Related)' + TabOrder = 3 + OnClick = chkClick + end +end diff --git a/CPRS-Chart/Encounter/mVisitRelated.pas b/CPRS-Chart/Encounter/mVisitRelated.pas new file mode 100644 index 0000000..acef40b --- /dev/null +++ b/CPRS-Chart/Encounter/mVisitRelated.pas @@ -0,0 +1,228 @@ +unit mVisitRelated; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, rPCE, uPCE; + +type + TfraVisitRelated = class(TFrame) + lblSCYes: TStaticText; + lblSCNo: TStaticText; + lblSCSelect: TStaticText; + bvlSCFrame: TBevel; + chkSCYes: TCheckBox; + chkAOYes: TCheckBox; + chkIRYes: TCheckBox; + chkECYes: TCheckBox; + chkMSTYes: TCheckBox; + chkMSTNo: TCheckBox; + chkECNo: TCheckBox; + chkIRNo: TCheckBox; + chkAONo: TCheckBox; + chkSCNo: TCheckBox; + chkHNCYes: TCheckBox; + chkHNCNo: TCheckBox; + chkCVYes: TCheckBox; + chkCVNo: TCheckBox; + procedure chkClick(Sender: TObject); + private + FSCCond: TSCConditions; + procedure SetCheckEnable(CheckYes, CheckNo: TCheckBox; Allow: Boolean); + procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer); + function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer; + public + constructor Create(AOwner: TComponent); override; + procedure GetRelated(PCEData: TPCEData); overload; + procedure GetRelated(var ASCRelated, AAORelated, AIRRelated, + AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); overload; + procedure InitAllow(SCCond: TSCConditions); + procedure InitRelated(PCEData: TPCEData); overload; + procedure InitRelated(const ASCRelated, AAORelated, AIRRelated, + AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); overload; + end; + +implementation + +{$R *.DFM} + +const + TAG_SCYES = 1; + TAG_AOYES = 2; + TAG_IRYES = 3; + TAG_ECYES = 4; + TAG_MSTYES = 5; + TAG_HNCYES = 6; + TAG_CVYES = 7; + TAG_SCNO = 11; + TAG_AONO = 12; + TAG_IRNO = 13; + TAG_ECNO = 14; + TAG_MSTNO = 15; + TAG_HNCNO = 16; + TAG_CVNO = 17; + +procedure TfraVisitRelated.chkClick(Sender: TObject); + + procedure DisableCheck(ACheckBox: TCheckBox); + begin + ACheckBox.Checked := False; ACheckBox.Enabled := False; + end; + +begin + inherited; + if Sender is TCheckBox then with TCheckBox(Sender) do case Tag of + TAG_SCYES: if Checked then chkSCNo.Checked := False; + TAG_AOYES: if Checked then chkAONo.Checked := False; + TAG_IRYES: if Checked then chkIRNo.Checked := False; + TAG_ECYES: if Checked then chkECNo.Checked := False; + TAG_MSTYES: if Checked then chkMSTNo.Checked := False; + TAG_HNCYES: if Checked then chkHNCNo.Checked := False; + TAG_CVYES: if Checked then chkCVNo.Checked := False; + TAG_SCNO: if Checked then chkSCYes.Checked := False; + TAG_AONO: if Checked then chkAOYes.Checked := False; + TAG_IRNO: if Checked then chkIRYes.Checked := False; + TAG_ECNO: if Checked then chkECYes.Checked := False; + TAG_MSTNO: if Checked then chkMSTYes.Checked := False; + TAG_HNCNO: if Checked then chkHNCYes.Checked := False; + TAG_CVNO: if Checked then chkCVYes.Checked := False; + end; + if chkSCYes.Checked then + begin + DisableCheck(chkAOYes); + DisableCheck(chkIRYes); + DisableCheck(chkECYes); +// DisableCheck(chkMSTYes); + DisableCheck(chkAONo); + DisableCheck(chkIRNo); + DisableCheck(chkECNo); +// DisableCheck(chkMSTNo); + end else + begin + SetCheckEnable(chkSCYes, chkSCNo, FSCCond.SCAllow); + SetCheckEnable(chkAOYes, chkAONo, FSCCond.AOAllow); + SetCheckEnable(chkIRYes, chkIRNo, FSCCond.IRAllow); + SetCheckEnable(chkECYes, chkECNo, FSCCond.ECAllow); + end; + SetCheckEnable(chkMSTYes, chkMSTNo, FSCCond.MSTAllow); + SetCheckEnable(chkHNCYes, chkHNCNo, FSCCond.HNCAllow); + SetCheckEnable(chkCVYes, chkCVNo, FSCCond.CVAllow); + if chkAOYes.Checked or chkIRYes.Checked or chkECYes.Checked then //or chkMSTYes.Checked then + begin + chkSCYes.Checked := False; + chkSCNo.Checked := True; + end; +end; + +constructor TfraVisitRelated.Create(AOwner: TComponent); +begin + inherited; + + lblSCYes.Height := 13; + lblSCNo.Height := 13; +// chkHNCYes.Visible := HNCOK; +// chkHNCNo.Visible := HNCOK; +// if not HNCOK then +// begin +// height := height - chkHNCYes.height + 1; +// bvlSCFrame.height := bvlSCFrame.height - chkHNCYes.height + 1; +// end; +end; + +function TfraVisitRelated.GetCheckState(CheckYes, CheckNo: TCheckBox): Integer; +begin + Result := SCC_NA; + if CheckYes.Enabled and CheckYes.Checked then Result := SCC_YES; + if CheckNo.Enabled and CheckNo.Checked then Result := SCC_NO; +end; + +procedure TfraVisitRelated.GetRelated(PCEData: TPCEData); +begin + PCEData.SCRelated := GetCheckState(chkSCYes, chkSCNo); + PCEData.AORelated := GetCheckState(chkAOYes, chkAONo); + PCEData.IRRelated := GetCheckState(chkIRYes, chkIRNo); + PCEData.ECRelated := GetCheckState(chkECYes, chkECNo); + PCEData.MSTRelated := GetCheckState(chkMSTYes, chkMSTNo); + PCEData.HNCRelated := GetCheckState(chkHNCYes, chkHNCNo); + PCEData.CVRelated := GetCheckState(chkCVYes, chkCVNo); +end; + +procedure TfraVisitRelated.GetRelated(var ASCRelated, AAORelated, + AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); +begin + ASCRelated := GetCheckState(chkSCYes, chkSCNo); + AAORelated := GetCheckState(chkAOYes, chkAONo); + AIRRelated := GetCheckState(chkIRYes, chkIRNo); + AECRelated := GetCheckState(chkECYes, chkECNo); + AMSTRelated := GetCheckState(chkMSTYes, chkMSTNo); + AHNCRelated := GetCheckState(chkHNCYes, chkHNCNo); + ACVRelated := GetCheckState(chkCVYes, chkCVNo); +end; + +procedure TfraVisitRelated.InitAllow(SCCond: TSCConditions); +begin + FSCCond := SCCond; + with FSCCond do + begin + SetCheckEnable(chkSCYes, chkSCNo, SCAllow); + SetCheckEnable(chkAOYes, chkAONo, AOAllow); + SetCheckEnable(chkIRYes, chkIRNo, IRAllow); + SetCheckEnable(chkECYes, chkECNo, ECAllow); + SetCheckEnable(chkMSTYes, chkMSTNo, MSTAllow); + SetCheckEnable(chkHNCYes, chkHNCNo, HNCAllow); + SetCheckEnable(chkCVYes, chkCVNo, CVAllow); + end; +end; + +procedure TfraVisitRelated.InitRelated(PCEData: TPCEData); +begin + SetCheckState(chkSCYes, chkSCNo, PCEData.SCRelated); + SetCheckState(chkAOYes, chkAONo, PCEData.AORelated); + SetCheckState(chkIRYes, chkIRNo, PCEData.IRRelated); + SetCheckState(chkECYes, chkECNo, PCEData.ECRelated); + SetCheckState(chkMSTYes, chkMSTNo, PCEData.MSTRelated); + SetCheckState(chkHNCYes, chkHNCNo, PCEData.HNCRelated); + SetCheckState(chkCVYes, chkCVNo, PCEData.CVRelated); +end; + +procedure TfraVisitRelated.InitRelated(const ASCRelated, AAORelated, AIRRelated, + AECRelated, AMSTRelated, AHNCRelated, ACVRelated: integer); +begin + SetCheckState(chkSCYes, chkSCNo, ASCRelated); + SetCheckState(chkAOYes, chkAONo, AAORelated); + SetCheckState(chkIRYes, chkIRNo, AIRRelated); + SetCheckState(chkECYes, chkECNo, AECRelated); + SetCheckState(chkMSTYes, chkMSTNo, AMSTRelated); + SetCheckState(chkHNCYes, chkHNCNo, AHNCRelated); + SetCheckState(chkCVYes, chkCVNo, ACVRelated); +end; + +procedure TfraVisitRelated.SetCheckEnable(CheckYes, CheckNo: TCheckBox; + Allow: Boolean); +begin + CheckYes.Enabled := Allow; + CheckNo.Enabled := Allow; +end; + +procedure TfraVisitRelated.SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer); +begin + if CheckYes.Enabled then + case CheckState of + SCC_NA: begin + CheckYes.Checked := False; + CheckNo.Checked := False; + end; + SCC_NO: begin + CheckYes.Checked := False; + CheckNo.Checked := True; + end; + SCC_YES: begin + CheckYes.Checked := True; + CheckNo.Checked := False; + end; + end; {case} + chkClick(Self); +end; + +end. diff --git a/CPRS-Chart/Encounter/rPCE.pas b/CPRS-Chart/Encounter/rPCE.pas new file mode 100644 index 0000000..dfe02a9 --- /dev/null +++ b/CPRS-Chart/Encounter/rPCE.pas @@ -0,0 +1,1492 @@ +unit rPCE; + +{$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED + +interface + +uses SysUtils, Classes, ORNet, ORFn, uPCE, UBACore, ORClasses; + +const + LX_ICD = 12; + LX_CPT = 13; + + LX_Threshold = 15; + + PCE_IMM = 20; + PCE_SK = 21; + PCE_PED = 22; + PCE_HF = 23; + PCE_XAM = 24; + PCE_TRT = 25; + + SCC_YES = 1; + SCC_NO = 0; + SCC_NA = -1; + +var + uEncLocation: integer; +// uEncDateTime: TFMDateTime; + +type + TSCConditions = record + SCAllow: Boolean; // prompt for service connected + SCDflt: Boolean; // default if prompting service connected + AOAllow: Boolean; // prompt for agent orange exposure + AODflt: Boolean; // default if prompting agent orange exposure + IRAllow: Boolean; // prompt for ionizing radiation exposure + IRDflt: Boolean; // default if prompting ionizing radiation + ECAllow: Boolean; // prompt for environmental conditions + ECDflt: Boolean; // default if prompting environmental cond. + MSTAllow: Boolean; // prompt for military sexual trauma + MSTDflt: Boolean; // default if prompting military sexual trauma + HNCAllow: Boolean; // prompt for Head or Neck Cancer + HNCDflt: Boolean; // default if prompting Head or Neck Cancer + CVAllow: Boolean; // prompt for Combat Veteran Related + CVDflt: Boolean; // default if prompting Comabt Veteran + end; + + TPCEListCodesProc = procedure(Dest: TStrings; SectionIndex: Integer); + + TAskPCE = (apPrimaryNeeded, apPrimaryOutpatient, apPrimaryAlways, + apNeeded, apOutpatient, apAlways, apNever, apDisable); + +function GetVisitCat(InitialCat: char; Location: integer; Inpatient: boolean): char; + +{assign and read values from fPCEData} +//function SetRPCEncouterInfo(PCEData: TPCEData): boolean; +function SetRPCEncLocation(Loc: Integer): boolean; +//function SetRPCEncDateTime(DT: TFMDateTime): boolean; + +function PCERPCEncLocation: integer; +//function PCERPCEncDateTime: TFMDateTime; +function GetLocSecondaryVisitCode(Loc: integer): char; + +{check for active person class on provider} +function CheckActivePerson(provider:string;DateTime:TFMDateTime): boolean; +function ForcePCEEntry(Loc: integer): boolean; + +{"Other" form PCE calls} +procedure LoadcboOther(Dest: TStrings; Location, fOtherApp: Integer); + +{ Lexicon Lookup Calls } +function LexiconToCode(IEN, LexApp: Integer; ADate: TFMDateTime = 0): string; +procedure ListLexicon(Dest: TStrings; const x: string; LexApp: Integer; ADate: TFMDateTime = 0); +function IsActiveICDCode(ACode: string; ADate: TFMDateTime = 0): boolean; +function IsActiveCPTCode(ACode: string; ADate: TFMDateTime = 0): boolean; +function IsActiveCode(ACode: string; LexApp: integer; ADate: TFMDateTime = 0): boolean; + +{ Encounter Form Elements } +procedure DeletePCE(const AVisitStr: string); +function EligbleConditions: TSCConditions; + +procedure ListVisitTypeSections(Dest: TStrings); +procedure ListVisitTypeCodes(Dest: TStrings; SectionIndex: Integer); +procedure ListVisitTypeByLoc(Dest: TStrings; Location: Integer; ADateTime: TFMDateTime = 0); +function AutoSelectVisit(Location: integer): boolean; +function UpdateVisitTypeModifierList(Dest: TStrings; Index: integer): string; + +procedure ListDiagnosisSections(Dest: TStrings); +procedure ListDiagnosisCodes(Dest: TStrings; SectionIndex: Integer); + +procedure ListExamsSections(Dest: TStrings); +procedure ListExamsCodes(Dest: TStrings; SectionIndex: Integer); + +procedure ListHealthSections(Dest: TStrings); +procedure ListHealthCodes(Dest: TStrings; SectionIndex: Integer); + +procedure ListImmunizSections(Dest: TStrings); +procedure ListImmunizCodes(Dest: TStrings; SectionIndex: Integer); + +procedure ListPatientSections(Dest: TStrings); +procedure ListPatientCodes(Dest: TStrings; SectionIndex: Integer); + +procedure ListProcedureSections(Dest: TStrings); +procedure ListProcedureCodes(Dest: TStrings; SectionIndex: Integer); +function ModifierList(CPTCode: string): string; +procedure ListCPTModifiers(Dest: TStrings; CPTCodes, NeededModifiers: string); +function ModifierName(ModIEN: string): string; +function ModifierCode(ModIEN: string): string; +function UpdateModifierList(Dest: TStrings; Index: integer): string; + +procedure ListSkinSections(Dest: TStrings); +procedure ListSkinCodes(Dest: TStrings; SectionIndex: Integer); + +procedure ListSCDisabilities(Dest: TStrings); +procedure LoadPCEDataForNote(Dest: TStrings; ANoteIEN: Integer; VStr: string); +function GetVisitIEN(NoteIEN: Integer): string; +procedure SavePCEData(PCEList: TStringList; ANoteIEN, ALocation: integer); + +function DataHasCPTCodes(AList: TStrings): boolean; +function GetAskPCE(Loc: integer): TAskPCE; +function HasVisit(const ANoteIEN, ALocation: integer; const AVisitDate: TFMDateTime): Integer; + +procedure LoadImmSeriesItems(Dest: TStrings); +procedure LoadImmReactionItems(Dest: TStrings); +procedure LoadSkResultsItems(Dest: TStrings); +procedure LoadPEDLevelItems(Dest: TStrings); +procedure LoadHFLevelItems(Dest: TStrings); +procedure LoadXAMResultsItems(Dest: TStrings); +procedure LoadHistLocations(Dest: TStrings); +procedure AddProbsToDiagnoses; + +//GAF +function GAFOK: boolean; +function MHClinic(const Location: integer): boolean; +procedure RecentGAFScores(const Limit: integer); +function SaveGAFScore(const Score: integer; GAFDate: TFMDateTime; Staff: Int64): boolean; +function GAFURL: string; +function MHTestsOK: boolean; +function MHTestAuthorized(Test: string): boolean; + +function AnytimeEncounters: boolean; +function AutoCheckout(Loc: integer): boolean; + +{ Encounter } +//function RequireExposures(ANote: Integer): Boolean; {RAB} +function RequireExposures(ANote, ATitle: Integer): Boolean; +function PromptForWorkload(ANote, ATitle: Integer; VisitCat: Char; StandAlone: boolean): Boolean; +function DefaultProvider(ALocation: integer; AUser: Int64; ADate: TFMDateTime; + ANoteIEN: integer): string; +function IsUserAProvider(AUser: Int64; ADate: TFMDateTime): boolean; +function IsCancelOrNoShow(ANote: integer): boolean; +function IsNonCountClinic(ALocation: integer): boolean; + +// HNC Flag +//function HNCOK: boolean; + +implementation + +uses TRPCB, rCore, uCore, uConst, fEncounterFrame, UBAGlobals, UBAConst; + +var + uLastLocation: Integer; + uLastDFN: String; + uVTypeLastLoc: Integer; + uVTypeLastDate: double = 0; + uDiagnoses: TStringList; + uExams: TStringList; + uHealthFactors: TStringList; + uImmunizations: TStringList; + uPatientEds: TStringList; + uProcedures: TStringList; + uSkinTests: TStringList; + uVisitTypes: TStringList; + uVTypeForLoc: TStringList; + uProblems: TStringList; + uModifiers: TORStringList = nil; + uGAFOK: boolean; + uGAFOKCalled: boolean = FALSE; + uLastForceLoc: integer = -1; + uLastForce: boolean; + uHasCPT: TStringList = nil; + uGAFURL: string; + uGAFURLChecked: boolean = FALSE; + uMHOK: boolean; + uMHOKChecked: boolean = FALSE; + uVCInitialCat: char = #0; + uVCLocation: integer = -2; + uVCInpatient: boolean = FALSE; + uVCResult: char; + uAPUser: Int64 = -1; + uAPLoc: integer = -2; + uAPAsk: TAskPCE; + uAnytimeEnc: integer = -1; + UAutoSelLoc: integer = -1; + UAutoSelVal: boolean; + uLastChkOut: boolean; + uLastChkOutLoc: integer = -2; + uLastIsClinicLoc: integer = 0; + uLastIsClinic: boolean = FALSE; +// uHNCOK: integer = -1; + +function GetVisitCat(InitialCat: char; Location: integer; Inpatient: boolean): char; +var + tmp: string; + +begin + if(InitialCat <> uVCInitialCat) or (Location <> uVCLocation) or + (Inpatient <> uVCInpatient) then + begin + uVCInitialCat := InitialCat; + uVCLocation := Location; + uVCInpatient := Inpatient; + tmp := sCallV('ORWPCE GETSVC', [InitialCat, Location, BOOLCHAR[Inpatient]]); + if(tmp <> '') then + uVCResult := tmp[1] + else + uVCResult := InitialCat; + end; + Result := uVCResult +end; + +{ Lexicon Lookup Calls } + +function LexiconToCode(IEN, LexApp: Integer; ADate: TFMDateTime = 0): string; +var + CodeSys: string; +begin + case LexApp of + LX_ICD: CodeSys := 'ICD'; + LX_CPT: CodeSys := 'CHP'; + end; + Result := sCallV('ORWPCE LEXCODE', [IEN, CodeSys, ADate]); +end; + +procedure ListLexicon(Dest: TStrings; const x: string; LexApp: Integer; ADate: TFMDateTime = 0); +var + CodeSys: string; +begin + case LexApp of + LX_ICD: CodeSys := 'ICD'; + LX_CPT: CodeSys := 'CHP'; + end; + CallV('ORWPCE LEX', [x, CodeSys, ADate]); + Dest.Assign(RPCBrokerV.Results); +end; + +function IsActiveICDCode(ACode: string; ADate: TFMDateTime = 0): boolean; +begin + Result := IsActiveCode(ACode, LX_ICD, ADate); +end; + +function IsActiveCPTCode(ACode: string; ADate: TFMDateTime = 0): boolean; +begin + Result := IsActiveCode(ACode, LX_CPT, ADate); +end; + +function IsActiveCode(ACode: string; LexApp: integer; ADate: TFMDateTime = 0): boolean; +var + CodeSys: string; +begin + case LexApp of + LX_ICD: CodeSys := 'ICD'; + LX_CPT: CodeSys := 'CHP'; + end; + Result := (sCallV('ORWPCE ACTIVE CODE',[ACode, CodeSys, ADate]) = '1'); +end; + +{ Encounter Form Elements ------------------------------------------------------------------ } + +procedure DeletePCE(const AVisitStr: string); +begin + sCallV('ORWPCE DELETE', [AVisitStr, Patient.DFN]); +end; + +procedure LoadEncounterForm; +{ load the major coding lists that are used by the encounter form for a given location } +var + i: integer; + uTempList: TStringList; + EncDt: TFMDateTime; + +begin + uLastLocation := uEncLocation; + EncDt := Trunc(uEncPCEData.VisitDateTime); + + //add problems to the top of diagnoses. + uTempList := TstringList.Create; + + + if UBAGlobals.BILLING_AWARE then //BAPHII 1.3.10 + begin + UBACore.BADxList := TStringList.Create; + end; + + try + uDiagnoses.clear; + + if BILLING_AWARE then + begin + UBACore.BADxList.Clear; //BAPHII 1.3.10 + end; + + tCallV(uTempList, 'ORWPCE DIAG', [uEncLocation, EncDt]); //BAPHII 1.3.10 + uDiagnoses.add(utemplist.strings[0]); //BAPHII 1.3.10 + AddProbsToDiagnoses; //BAPHII 1.3.10 + // BA 25 AddProviderPatientDaysDx(uDxLst, IntToStr(Encounter.Provider), Patient.DFN); + for i := 1 to (uTempList.Count-1) do //BAPHII 1.3.10 + uDiagnoses.add(uTemplist.strings[i]); //BAPHII 1.3.10 + + finally + uTempList.free; + end; + + tCallV(uVisitTypes, 'ORWPCE VISIT', [uEncLocation, EncDt]); + tCallV(uProcedures, 'ORWPCE PROC', [uEncLocation, EncDt]); + tCallV(uImmunizations, 'ORWPCE IMM', [uEncLocation]); + tCallV(uSkinTests, 'ORWPCE SK', [uEncLocation]); + tCallV(uPatientEds, 'ORWPCE PED', [uEncLocation]); + tCallV(uHealthFactors, 'ORWPCE HF', [uEncLocation]); + tCallV(uExams, 'ORWPCE XAM', [uEncLocation]); + + if uVisitTypes.Count > 0 then uVisitTypes.Delete(0); // discard counts + if uDiagnoses.Count > 0 then uDiagnoses.Delete(0); + if uProcedures.Count > 0 then uProcedures.Delete(0); + if uImmunizations.Count > 0 then uImmunizations.Delete(0); + if uSkinTests.Count > 0 then uSkinTests.Delete(0); + if uPatientEds.Count > 0 then uPatientEds.Delete(0); + if uHealthFactors.Count > 0 then uHealthFactors.Delete(0); + if uExams.Count > 0 then uExams.Delete(0); + + if (uVisitTypes.Count > 0) and (CharAt(uVisitTypes[0], 1) <> U) then uVisitTypes.Insert(0, U); + if (uDiagnoses.Count > 0) and (CharAt(uDiagnoses[0], 1) <> U) then uDiagnoses.Insert(0, U); + if (uProcedures.Count > 0) and (CharAt(uProcedures[0], 1) <> U) then uProcedures.Insert(0, U); + if (uImmunizations.Count > 0) and (CharAt(uImmunizations[0], 1) <> U) then uImmunizations.Insert(0, U); + if (uSkinTests.Count > 0) and (CharAt(uSkinTests[0], 1) <> U) then uSkinTests.Insert(0, U); + if (uPatientEds.Count > 0) and (CharAt(uPatientEds[0], 1) <> U) then uPatientEds.Insert(0, U); + if (uHealthFactors.Count > 0) and (CharAt(uHealthFactors[0], 1) <> U) then uHealthFactors.Insert(0, U); + if (uExams.Count > 0) and (CharAt(uExams[0], 1) <> U) then uExams.Insert(0, U); + +end; + +{Visit Types-------------------------------------------------------------------} +procedure ListVisitTypeSections(Dest: TStrings); +{ return section names in format: ListIndex^SectionName (sections begin with '^') } +var + i: Integer; + x: string; +begin + if (uLastLocation <> uEncLocation) then LoadEncounterForm; + for i := 0 to uVisitTypes.Count - 1 do if CharAt(uVisitTypes[i], 1) = U then + begin + x := Piece(uVisitTypes[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(uVisitTypes[i], U, 2) + U + x); + end; +end; + +procedure ListVisitTypeCodes(Dest: TStrings; SectionIndex: Integer); +{ return visit types in format: visit type amount of time CPT code CPT code } +var + i: Integer; + s: string; + + function InsertTab(x: string): string; + { turn the white space between the name and the number of minutes into a single tab } + begin + if CharAt(x, 20) = ' ' + then Result := Trim(Copy(x, 1, 20)) + U + Trim(Copy(x, 21, Length(x))) + else Result := Trim(x) + U; + end; + +begin {ListVisitTypeCodes} + Dest.Clear; + i := SectionIndex + 1; // first line after the section name + while (i < uVisitTypes.Count) and (CharAt(uVisitTypes[i], 1) <> U) do + begin + s := Pieces(uVisitTypes[i], U, 1, 2) + U + InsertTab(Piece(uVisitTypes[i], U, 2)) + U + Piece(uVisitTypes[i], U, 1) + + U + IntToStr(i); + Dest.Add(s); + Inc(i); + end; +end; + +procedure ListVisitTypeByLoc(Dest: TStrings; Location: Integer; ADateTime: TFMDateTime = 0); +var + i: Integer; + x, SectionName: string; + EncDt: TFMDateTime; +begin + EncDt := Trunc(ADateTime); + if (uVTypeLastLoc <> Location) or (uVTypeLastDate <> EncDt) then + begin + uVTypeForLoc.Clear; + if Location = 0 then Exit; + SectionName := ''; + CallV('ORWPCE VISIT', [Location, EncDt]); + with RPCBrokerV do for i := 0 to Results.Count - 1 do + begin + x := Results[i]; + if CharAt(x, 1) = U + then SectionName := Piece(x, U, 2) + else uVTypeForLoc.Add(Piece(x, U, 1) + U + SectionName + U + Piece(x, U, 2)); + end; + uVTypeLastLoc := Location; + uVTypeLastDate := EncDt; + end; + Dest.Assign(uVTypeForLoc); +end; + +function AutoSelectVisit(Location: integer): boolean; +begin + if UAutoSelLoc <> Location then + begin + UAutoSelVal := (sCallV('ORWPCE AUTO VISIT TYPE SELECT', [Location]) = '1'); + UAutoSelLoc := Location; + end; + Result := UAutoSelVal; +end; + +{Diagnosis---------------------------------------------------------------------} +procedure ListDiagnosisSections(Dest: TStrings); +{ return section names in format: ListIndex^SectionName (sections begin with '^') } +var + i: Integer; + x: string; +begin + //// if (uLastLocation <> uEncLocation) then LoadEncounterForm; + // if (uLastDFN <> patient.DFN) then LoadEncounterForm;// commented out for CIDC needs. + LoadEncounterForm; + for i := 0 to uDiagnoses.Count - 1 do if CharAt(uDiagnoses[i], 1) = U then + begin + x := Piece(uDiagnoses[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(uDiagnoses[i], U, 2) + U + x); + end; +end; + +procedure ListDiagnosisCodes(Dest: TStrings; SectionIndex: Integer); +{ return diagnoses within section in format: + diagnosis ICDInteger .ICDDecimal ICD Code } +var + i: Integer; + s,d: string; + EncDT: TFMDateTime; + +begin + EncDT := uEncPCEData.VisitDateTime; + Dest.Clear; + i := SectionIndex + 1; // first line after the section name + while (i < uDiagnoses.Count) and (CharAt(uDiagnoses[i], 1) <> U) do + begin + s := Piece(uDiagnoses[i], U, 1); + d := Piece(s, '.', 2); + s := s + U + Piece(uDiagnoses[i], U, 2) + U + Piece(s, '.', 1) + U; + if(d <> '') then + SetPiece(s, U, 4, '.' + d ) + else // RV - CSV - need to do this so trailing "#" lines up correctly when no decimals + SetPiece(s, U, 4, ' '); + + //filtering out inactive codes. + if (Piece(uDiagnoses[i], U, 3) = '#') then + begin + SetPiece(s, U, 5, '#'); + Dest.Add(s); + end + else if ((Piece(uDiagnoses[i], U, 3) = '') or + ( StrToFloat(Piece(uDiagnoses[i], U, 3)) > EncDT )) then + begin + Dest.Add(s); + end; + Inc(i); + end; +end; + +procedure AddProbsToDiagnoses; +var + i: integer; //loop index + EncDT: TFMDateTime; +begin + //get problem list + EncDT := Trunc(uEncPCEData.VisitDateTime); + uLastDFN := patient.DFN; + tCallV(uProblems, 'ORWPCE ACTPROB',[Patient.DFN, EncDT]); + if uProblems.count > 0 then + begin + //add category to udiagnoses + uDiagnoses.add(U + DX_PROBLEM_LIST_TXT); + for i := 1 to (uProblems.count-1) do //start with 1 because strings[0] is + //the count of elements. + begin + //add problems to udiagnosis. + if (piece(uproblems.Strings[i],U,3) = '799.9') then continue; // DON'T INCLUDE 799.9 CODES + + if (Piece(uproblems.Strings[i], U, 11) = '#') then + uDiagnoses.add(piece(uProblems.Strings[i],U,3) + U + // PL code inactive + piece(uProblems.Strings[i],U,2) + U + '#') + else if (Piece(uproblems.Strings[i], U, 10) = '') then // no inactive date for code + uDiagnoses.add(piece(uProblems.Strings[i],U,3) + U + + piece(uProblems.Strings[i],U,2)) + else if (Trunc(StrToFloat(Piece(uProblems.Strings[i], U, 10))) > EncDT) then // code active as of EncDt + uDiagnoses.add(piece(uProblems.Strings[i],U,3) + U + + piece(uProblems.Strings[i],U,2)) + else + uDiagnoses.add(piece(uProblems.Strings[i],U,3) + U + // PL code inactive + piece(uProblems.Strings[i],U,2) + U + '#'); + end; + + //1.3.10 + if BILLING_AWARE then + begin + // add New Section and dx codes to Encounter Diagnosis Section and Code List. + // Diagnoses -> Provider/Patient/24 hrs + uDiagnoses.add(UBAConst.ENCOUNTER_TODAYS_DX); //BAPHII 1.3.10 + //BADxList := AddProviderPatientDaysDx(UBACore.uDxLst, IntToStr(Encounter.Provider), Patient.DFN); //BAPHII 1.3.10 + rpcGetProviderPatientDaysDx(IntToStr(Encounter.Provider), Patient.DFN); //BAPHII 1.3.10 + + for i := 0 to (UBACore.uDxLst.Count-1) do //BAPHII 1.3.10 + uDiagnoses.add(UBACore.uDxLst[i]); //BAPHII 1.3.10 + // Code added after presentation..... + // Add Personal Diagnoses Section and Codes to Encounter Diagnosis Section and Code List. + UBACore.uDxLst.Clear; + uDiagnoses.Add(UBAConst.ENCOUNTER_PERSONAL_DX); + UBACore.uDxLst := rpcGetPersonalDxList(User.DUZ); + for i := 0 to (UBACore.uDxLst.Count -1) do + begin + uDiagnoses.Add(UBACore.uDxLst.Strings[i]); + end; + end; + + end; +end; +{Immunizations-----------------------------------------------------------------} +procedure LoadImmReactionItems(Dest: TStrings); +begin + tCallV(Dest,'ORWPCE GET SET OF CODES',['9000010.11','.06','1']); +end; + +procedure LoadImmSeriesItems(Dest: TStrings); +{loads items into combo box on Immunixation screen} +begin + tCallV(Dest,'ORWPCE GET SET OF CODES',['9000010.11','.04','1']); +end; + +procedure ListImmunizSections(Dest: TStrings); +{ return section names in format: ListIndex^SectionName (sections begin with '^') } +var + i: Integer; + x: string; +begin + if (uLastLocation <> uEncLocation) then LoadEncounterForm; + for i := 0 to uImmunizations.Count - 1 do if CharAt(uImmunizations[i], 1) = U then + begin + x := Piece(uImmunizations[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(uImmunizations[i], U, 2) + U + x); + end; +end; + +procedure ListImmunizCodes(Dest: TStrings; SectionIndex: Integer); +{ return procedures within section in format: procedure CPT code CPT code} +var + i: Integer; +begin + Dest.Clear; + i := SectionIndex + 1; // first line after the section name + while (i < uImmunizations.Count) and (CharAt(uImmunizations[i], 1) <> U) do + begin + Dest.Add(Pieces(uImmunizations[i], U, 1, 2)); + Inc(i); + end; +end; + + +{Procedures--------------------------------------------------------------------} +procedure ListProcedureSections(Dest: TStrings); +{ return section names in format: ListIndex^SectionName (sections begin with '^') } +var + i: Integer; + x: string; +begin + if (uLastLocation <> uEncLocation) then LoadEncounterForm; + for i := 0 to uProcedures.Count - 1 do if CharAt(uProcedures[i], 1) = U then + begin + x := Piece(uProcedures[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(uProcedures[i], U, 2) + U + x); + end; +end; + +procedure ListProcedureCodes(Dest: TStrings; SectionIndex: Integer); +{ return procedures within section in format: procedure CPT code CPT code} +//Piece 12 are CPT Modifiers, Piece 13 is a flag indicating conversion of Piece 12 from +//modifier code to modifier IEN (updated in UpdateModifierList routine) +var + i: Integer; +begin + Dest.Clear; + i := SectionIndex + 1; // first line after the section name + while (i < uProcedures.Count) and (CharAt(uProcedures[i], 1) <> U) do + begin + Dest.Add(Pieces(uProcedures[i], U, 1, 2) + U + Piece(uProcedures[i], U, 1) + U + + Piece(uProcedures[i], U, 12) + U + Piece(uProcedures[i], U, 13) + U + + IntToStr(i)); + Inc(i); + end; +end; + +function MixedCaseModifier(const inStr: string): string; +begin + Result := inStr; + SetPiece(Result, U, 2, MixedCase(Trim(Piece(Result, U, 2)))); +end; + +function ModifierIdx(ModIEN: string): integer; +var + EncDt: TFMDateTime; +begin + Result := uModifiers.IndexOfPiece(ModIEN); + if(Result < 0) then + begin + if Assigned(uEncPCEData) then // may not exist yet on display of note and PCE data + EncDT := Trunc(uEncPCEData.VisitDateTime) + else if Encounter.DateTime > 0 then // really need note date/time next, but can't get to it + EncDT := Trunc(Encounter.DateTime) + else + EncDT := FMToday; + Result := uModifiers.Add(MixedCaseModifier(sCallV('ORWPCE GETMOD', [ModIEN, EncDt]))); + end; +end; + +function ModifierList(CPTCode: string): string; +// uModifiers list contains <@>CPTCode;ModCount;^Mod1Index^Mod2Index^...^ModNIndex +// or MODIEN^MODDescription^ModCode + +const + CPTCodeHeader = '<@>'; + +var + i, idx: integer; + s, ModIEN: string; + EncDt: TFMDateTime; +begin + EncDT := Trunc(uEncPCEData.VisitDateTime); + idx := uModifiers.IndexOfPiece(CPTCodeHeader + CPTCode, ';', 1); + if(idx < 0) then + begin + CallV('ORWPCE CPTMODS', [CPTCode, EncDt]); + s := CPTCodeHeader + CPTCode + ';' + IntToStr(RPCBrokerV.Results.Count) + ';' + U; + for i := 0 to RPCBrokerV.Results.Count - 1 do + begin + ModIEN := piece(RPCBrokerV.Results[i], U, 1); + idx := uModifiers.IndexOfPiece(ModIEN); + if(idx < 0) then + idx := uModifiers.Add(MixedCaseModifier(RPCBrokerV.Results[i])); + s := s + IntToStr(idx) + U; + end; + idx := uModifiers.Add(s); + end; + Result := uModifiers[idx]; +end; + +procedure ListCPTModifiers(Dest: TStrings; CPTCodes, NeededModifiers: string); +//CPTCodes expected in the format of code^code^code +//NeededModifiers in format of ModIEN1;ModIEN2;ModIEN3 +var + TmpSL: TStringList; + i, j, idx, cnt, found: integer; + s, Code: string; + +begin + if(not assigned(uModifiers)) then uModifiers := TORStringList.Create; + if(copy(CPTCodes, length(CPTCodes), 1) <> U) then + CPTCodes := CPTCodes + U; + if(copy(NeededModifiers, length(NeededModifiers), 1) <> ';') then + NeededModifiers := NeededModifiers + ';'; + + TmpSL := TStringList.Create; + try + repeat + i := pos(U, CPTCodes); + if(i > 0) then + begin + Code := copy(CPTCodes, 1, i-1); + delete(CPTCodes,1,i); + if(Code <> '') then + TmpSL.Add(ModifierList(Code)); + i := pos(U, CPTCodes); + end; + until(i = 0); + if(TmpSL.Count = 0) then + s := ';0;' + else + if(TmpSL.Count = 1) then + s := TmpSL[0] + else + begin + s := ''; + found := 0; + cnt := StrToIntDef(piece(TmpSL[0], ';', 2), 0); + for i := 1 to cnt do + begin + Code := U + Piece(TmpSL[0], U, i+1); + for j := 1 to TmpSL.Count-1 do + begin + if(pos(Code + U, TmpSL[j]) = 0) then + begin + Code := ''; + break; + end; + end; + if(Code <> '') then + begin + s := s + Code; + inc(found); + end; + end; + s := s + U; + SetPiece(s , U, 1, ';' + IntToStr(Found) + ';'); + end; + finally + TmpSL.Free; + end; + + Dest.Clear; + cnt := StrToIntDef(piece(s, ';', 2), 0); + if(NeededModifiers <> '') then + begin + found := cnt; + repeat + i := pos(';',NeededModifiers); + if(i > 0) then + begin + idx := StrToIntDef(copy(NeededModifiers,1,i-1),0); + if(idx > 0) then + begin + Code := IntToStr(ModifierIdx(IntToStr(idx))) + U; + if(pos(U+Code, s) = 0) then + begin + s := s + Code; + inc(cnt); + end; + end; + delete(NeededModifiers,1,i); + end; + until(i = 0); + if(found <> cnt) then + SetPiece(s , ';', 2, IntToStr(cnt)); + end; + for i := 1 to cnt do + begin + idx := StrToIntDef(piece(s, U, i + 1), -1); + if(idx >= 0) then + Dest.Add(uModifiers[idx]); + end; +end; + +function ModifierName(ModIEN: string): string; +begin + if(not assigned(uModifiers)) then uModifiers := TORStringList.Create; + Result := piece(uModifiers[ModifierIdx(ModIEN)], U, 2); +end; + +function ModifierCode(ModIEN: string): string; +begin + if(not assigned(uModifiers)) then uModifiers := TORStringList.Create; + Result := piece(uModifiers[ModifierIdx(ModIEN)], U, 3); +end; + +function UpdateModifierList(Dest: TStrings; Index: integer): string; +var + i, idx, LastIdx: integer; + Tmp, OKMods, Code: string; + OK: boolean; + +begin + if(Piece(Dest[Index], U, 5) = '1') then + Result := Piece(Dest[Index],U,4) + else + begin + Tmp := Piece(Dest[Index], U, 4); + Result := ''; + OKMods := ModifierList(Piece(Dest[Index], U, 1))+U; + i := 1; + repeat + Code := Piece(Tmp,';',i); + if(Code <> '') then + begin + LastIdx := -1; + OK := FALSE; + repeat + idx := uModifiers.IndexOfPiece(Code, U, 3, LastIdx); + if(idx > 0) then + begin + if(pos(U + IntToStr(idx) + U, OKMods)>0) then + begin + Result := Result + piece(uModifiers[idx],U,1) + ';'; + OK := TRUE; + end + else + LastIdx := Idx; + end; + until(idx < 0) or OK; + inc(i); + end + until(Code = ''); + Tmp := Dest[Index]; + SetPiece(Tmp,U,4,Result); + SetPiece(Tmp,U,5,'1'); + Dest[Index] := Tmp; + idx := StrToIntDef(piece(Tmp,U,6),-1); + if(idx >= 0) then + begin + Tmp := uProcedures[idx]; + SetPiece(Tmp,U,12,Result); + SetPiece(Tmp,U,13,'1'); + uProcedures[idx] := Tmp; + end; + end; +end; + +function UpdateVisitTypeModifierList(Dest: TStrings; Index: integer): string; +var + i, idx, LastIdx: integer; + Tmp, OKMods, Code: string; + OK: boolean; + +begin + if(Piece(Dest[Index], U, 7) = '1') then + Result := Piece(Dest[Index],U,6) + else + begin + Tmp := Piece(Dest[Index], U, 6); + Result := ''; + OKMods := ModifierList(Piece(Dest[Index], U, 1))+U; + i := 1; + repeat + Code := Piece(Tmp,';',i); + if(Code <> '') then + begin + LastIdx := -1; + OK := FALSE; + repeat + idx := uModifiers.IndexOfPiece(Code, U, 3, LastIdx); + if(idx > 0) then + begin + if(pos(U + IntToStr(idx) + U, OKMods)>0) then + begin + Result := Result + piece(uModifiers[idx],U,1) + ';'; + OK := TRUE; + end + else + LastIdx := Idx; + end; + until(idx < 0) or OK; + inc(i); + end + until(Code = ''); + Tmp := Dest[Index]; + SetPiece(Tmp,U,6,Result); + SetPiece(Tmp,U,7,'1'); + Dest[Index] := Tmp; + idx := StrToIntDef(piece(Tmp,U,8),-1); + if(idx >= 0) then + begin + Tmp := uProcedures[idx]; + SetPiece(Tmp,U,12,Result); + SetPiece(Tmp,U,13,'1'); + uProcedures[idx] := Tmp; + end; + end; +end; + + +{SkinTests---------------------------------------------------------------------} +procedure LoadSkResultsItems(Dest: TStrings); +begin + tCallV(Dest,'ORWPCE GET SET OF CODES',['9000010.12','.04','1']); +end; + +procedure ListSkinSections(Dest: TStrings); +{ return section names in format: ListIndex^SectionName (sections begin with '^') } +var + i: Integer; + x: string; +begin + if (uLastLocation <> uEncLocation) then LoadEncounterForm; + for i := 0 to uSkinTests.Count - 1 do if CharAt(uSkinTests[i], 1) = U then + begin + x := Piece(uSkinTests[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(uSkinTests[i], U, 2) + U + x); + end; +end; + + +procedure ListSkinCodes(Dest: TStrings; SectionIndex: Integer); +{ return procedures within section in format: procedure CPT code CPT code} +var + i: Integer; +begin + Dest.Clear; + i := SectionIndex + 1; // first line after the section name + while (i < uSkinTests.Count) and (CharAt(uSkinTests[i], 1) <> U) do + begin + Dest.Add(Pieces(uSkinTests[i], U, 1, 2)); + Inc(i); + end; +end; + + +{Patient Education-------------------------------------------------------------} +procedure LoadPEDLevelItems(Dest: TStrings); +begin + tCallV(Dest,'ORWPCE GET SET OF CODES',['9000010.16','.06','1']); +end; + +procedure ListPatientSections(Dest: TStrings); +{ return Sections in format: ListIndex^SectionName (sections begin with '^') } +var + i: Integer; + x: string; +begin + if (uLastLocation <> uEncLocation) then LoadEncounterForm; + for i := 0 to uPatientEds.Count - 1 do if CharAt(uPatientEds[i], 1) = U then + begin + x := Piece(uPatientEds[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(uPatientEds[i], U, 2) + U + x); + end; +end; + + +procedure ListPatientCodes(Dest: TStrings; SectionIndex: Integer); +{ return PatientEds within section in format: procedure CPT code CPT code} +var + i: Integer; +begin + Dest.Clear; + i := SectionIndex + 1; // first line after the section name + while (i < uPatientEds.Count) and (CharAt(uPatientEds[i], 1) <> U) do + begin + Dest.Add(Pieces(uPatientEds[i], U, 1, 2)); + Inc(i); + end; +end; + + + +{HealthFactors-------------------------------------------------------------} +procedure LoadHFLevelItems(Dest: TStrings); +begin + tCallV(Dest,'ORWPCE GET SET OF CODES',['9000010.23','.04','1']); +end; + +procedure ListHealthSections(Dest: TStrings); +{ return Sections in format: ListIndex^SectionName (sections begin with '^') } +var + i: Integer; + x: string; +begin + if (uLastLocation <> uEncLocation) then LoadEncounterForm; + for i := 0 to uHealthFactors.Count - 1 do if CharAt(uHealthFactors[i], 1) = U then + begin + x := Piece(uHealthFactors[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(uHealthFactors[i], U, 2) + U + x); + end; +end; + + +procedure ListHealthCodes(Dest: TStrings; SectionIndex: Integer); +{ return PatientEds within section in format: procedure CPT code CPT code} +var + i: Integer; +begin + Dest.Clear; + i := SectionIndex + 1; // first line after the section name + while (i < uHealthFactors.Count) and (CharAt(uHealthFactors[i], 1) <> U) do + begin + Dest.Add(Pieces(uHealthFactors[i], U, 1, 2)); + Inc(i); + end; +end; + + + +{Exams-------------------------------------------------------------------------} +procedure LoadXAMResultsItems(Dest: TStrings); +begin + tCallV(Dest,'ORWPCE GET SET OF CODES',['9000010.13','.04','1']); +end; + +procedure LoadHistLocations(Dest: TStrings); +var + i, j, tlen: integer; + tmp: string; + +begin + tCallV(Dest,'ORQQPX GET HIST LOCATIONS',[]); + for i := 0 to (Dest.Count - 1) do + begin + tmp := MixedCase(dest[i]); + j := pos(', ',tmp); + tlen := length(tmp); + if(j > 0) and (j < (tlen - 2)) and (pos(tmp[j+2],UpperCaseLetters) > 0) and + (pos(tmp[j+3],LowerCaseLetters)>0) and ((j = (tlen-3)) or (pos(tmp[j+4],LowerCaseLetters)=0)) then + tmp[j+3] := UpCase(tmp[j+3]); + if(tlen > 1) then + begin + if(pos(tmp[tlen],Digits) > 0) and (pos(tmp[tlen-1],Digits)=0) then + insert(' ',tmp, tlen); + end; + dest[i] := tmp; + end; +end; + +procedure ListExamsSections(Dest: TStrings); +{ return Sections in format: ListIndex^SectionName (sections begin with '^') } +var + i: Integer; + x: string; +begin + if (uLastLocation <> uEncLocation) then LoadEncounterForm; + for i := 0 to uExams.Count - 1 do if CharAt(uExams[i], 1) = U then + begin + x := Piece(uExams[i], U, 2); + if Length(x) = 0 then x := ''; + Dest.Add(IntToStr(i) + U + Piece(uExams[i], U, 2) + U + x); + end; +end; + + +procedure ListExamsCodes(Dest: TStrings; SectionIndex: Integer); +{ return PatientEds within section in format: procedure CPT code CPT code} +var + i: Integer; +begin + Dest.Clear; + i := SectionIndex + 1; // first line after the section name + while (i < uExams.Count) and (CharAt(uExams[i], 1) <> U) do + begin + Dest.Add(Pieces(uExams[i], U, 1, 2)); + Inc(i); + end; +end; + + + + + +{------------------------------------------------------------------------------} +function EligbleConditions: TSCConditions; +{ return a record listing the conditions for which a patient is eligible } +var + x: string; +begin + x := sCallV('ORWPCE SCSEL', [Patient.DFN, Encounter.DateTime, uEncLocation]); + with Result do + begin + SCAllow := Piece(Piece(x, ';', 1), U, 1) = '1'; + SCDflt := Piece(Piece(x, ';', 1), U, 2) = '1'; + AOAllow := Piece(Piece(x, ';', 2), U, 1) = '1'; + AODflt := Piece(Piece(x, ';', 2), U, 2) = '1'; + IRAllow := Piece(Piece(x, ';', 3), U, 1) = '1'; + IRDflt := Piece(Piece(x, ';', 3), U, 2) = '1'; + ECAllow := Piece(Piece(x, ';', 4), U, 1) = '1'; + ECDflt := Piece(Piece(x, ';', 4), U, 2) = '1'; + MSTAllow := Piece(Piece(x, ';', 5), U, 1) = '1'; + MSTDflt := Piece(Piece(x, ';', 5), U, 2) = '1'; + HNCAllow := Piece(Piece(x, ';', 6), U, 1) = '1'; + HNCDflt := Piece(Piece(x, ';', 6), U, 2) = '1'; + CVAllow := Piece(Piece(x, ';', 7), U, 1) = '1'; + CVDflt := Piece(Piece(x, ';', 7), U, 2) = '1'; + end; +end; + +procedure ListSCDisabilities(Dest: TStrings); +{ return text listing a patient's rated disabilities and % service connected } +begin + CallV('ORWPCE SCDIS', [Patient.DFN]); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure LoadPCEDataForNote(Dest: TStrings; ANoteIEN: Integer; VStr: string); +begin + if(ANoteIEN < 1) then + CallV('ORWPCE PCE4NOTE', [ANoteIEN, Patient.DFN, VStr]) + else + CallV('ORWPCE PCE4NOTE', [ANoteIEN]); + Dest.Assign(RPCBrokerV.Results); +end; + +function GetVisitIEN(NoteIEN: Integer): string; +begin + if(NoteIEN < 1) then + CallV('ORWPCE GET VISIT', [NoteIEN, Patient.DFN, Encounter.VisitStr]) + else + CallV('ORWPCE GET VISIT', [NoteIEN]); + if(RPCBrokerV.Results.Count > 0) then + Result := RPCBrokerV.Results[0] + else + Result := '0'; +end; + +procedure SavePCEData(PCEList: TStringList; ANoteIEN, ALocation: integer); +begin + CallV('ORWPCE SAVE', [PCEList, ANoteIEN, ALocation]); +end; + +{-----------------------------------------------------------------------------} + +function DataHasCPTCodes(AList: TStrings): boolean; +var + i: integer; + vl: string; + +begin + if(not assigned(uHasCPT)) then + uHasCPT := TStringList.Create; + Result := FALSE; + i := 0; + while(i < AList.Count) do + begin + vl := uHasCPT.Values[AList[i]]; + if(vl = '1') then + begin + Result := TRUE; + exit; + end + else + if(vl = '0') then + AList.Delete(i) + else + inc(i); + end; + if(AList.Count > 0) then + begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWPCE HASCPT'; + Param[0].PType := list; + with Param[0] do + begin + for i := 0 to AList.Count-1 do + Mult[inttostr(i+1)] := AList[i]; + end; + CallBroker; + for i := 0 to RPCBrokerV.Results.Count-1 do + begin + if(Piece(RPCBrokerV.Results[i],'=',2) = '1') then + begin + Result := TRUE; + break; + end; + end; + uHasCPT.AddStrings(RPCBrokerV.Results); + end; + end; +end; + +function GetAskPCE(Loc: integer): TAskPCE; +begin + if(uAPUser <> User.DUZ) or (uAPLoc <> Loc) then + begin + uAPUser := User.DUZ; + uAPLoc := Loc; + uAPAsk := TAskPCE(StrToIntDef(sCallV('ORWPCE ASKPCE', [User.DUZ, Loc]), 0)); + end; + Result := uAPAsk; +end; + +function HasVisit(const ANoteIEN, ALocation: integer; const AVisitDate: TFMDateTime): Integer; +begin + Result := StrToIntDef(sCallV('ORWPCE HASVISIT', [ANoteIEN, Patient.DFN, ALocation, AVisitDate]), -1); +end; + +{-----------------------------------------------------------------------------} +function CheckActivePerson(provider:String;DateTime:TFMDateTime): boolean; +var + RetVal: String; +begin + Callv('ORWPCE ACTIVE PROV',[provider,FloatToStr(DateTime)]); + retval := RPCBrokerV.Results[0]; + if StrToInt(RetVal) = 1 then result := true + else result := false; +end; + +function ForcePCEEntry(Loc: integer): boolean; +begin + if(Loc <> uLastForceLoc) then + begin + uLastForce := (sCallV('ORWPCE FORCE', [User.DUZ, Loc]) = '1'); + uLastForceLoc := Loc; + end; + Result := uLastForce; +end; + +procedure LoadcboOther(Dest: TStrings; Location, fOtherApp: Integer); +{loads items into combo box on Immunization screen} +var + IEN, RPC: string; + TmpSL: TORStringList; + i, j, idx, typ: integer; + +begin + TmpSL := TORStringList.Create; + try + Idx := 0; + case fOtherApp of + PCE_IMM: begin typ := 1; RPC := 'ORWPCE GET IMMUNIZATION TYPE'; end; + PCE_SK: begin typ := 2; RPC := 'ORWPCE GET SKIN TEST TYPE'; end; + PCE_PED: begin typ := 3; RPC := 'ORWPCE GET EDUCATION TOPICS'; end; + PCE_HF: begin typ := 4; RPC := 'ORWPCE GET HEALTH FACTORS TY'; Idx := 1; end; + PCE_XAM: begin typ := 5; RPC := 'ORWPCE GET EXAM TYPE'; end; + else begin typ := 0; RPC := ''; end; + end; + if typ > 0 then + begin + if idx = 0 then + tCallV(TmpSL,RPC,[nil]) + else + tCallV(TmpSL,RPC,[idx]); + CallV('ORWPCE GET EXCLUDED', [Location, Typ]); + for i := 0 to RPCBrokerV.Results.Count-1 do + begin + IEN := piece(RPCBrokerV.Results[i],U,2); + idx := TmpSL.IndexOfPiece(IEN); + if idx >= 0 then + begin + TmpSL.Delete(idx); + if fOtherApp = PCE_HF then + begin + j := 0; + while (j < TmpSL.Count) do + begin + if IEN = Piece(TmpSL[J],U,4) then + TmpSL.Delete(j) + else + inc(j); + end; + end; + end; + end; + end; + Dest.Assign(TmpSL); + finally + TmpSL.Free; + end; +end; + +{ +function SetRPCEncouterInfo(PCEData: TPCEData): boolean; +begin + if (SetRPCEncLocation(PCEData.location) = False) or (SetRPCEncDateTime(PCEData.DateTime) = False) then + result := False + else result := True; +end; +} + +function SetRPCEncLocation(Loc: Integer): boolean; +begin + uEncLocation := Loc; + Result := (uEncLocation <> 0); +end; + +{ +function SetRPCEncDateTime(DT: TFMDateTime): boolean; +begin + uEncDateTime := 0.0; + result := False; + uEncDateTime := DT; + if uEncDateTime > 0.0 then result := true; +end; +} + +function PCERPCEncLocation: integer; +begin + result := uEncLocation; +end; + +{ +function PCERPCEncDateTime: TFMDateTime; +begin + result := uEncDateTime; +end; +} + +function GetLocSecondaryVisitCode(Loc: integer): char; +begin + if (Loc <> uLastIsClinicLoc) then + begin + uLastIsClinicLoc := Loc; + uLastIsClinic := (sCallV('ORWPCE ISCLINIC', [Loc]) = '1'); + end; + if uLastIsClinic then + Result := 'I' + else + Result := 'D'; +end; + +function GAFOK: boolean; +begin + if(not uGAFOKCalled) then + begin + uGAFOK := (sCallV('ORWPCE GAFOK', []) = '1'); + uGAFOKCalled := TRUE; + end; + Result := uGAFOK; +end; + +function MHClinic(const Location: integer): boolean; +begin + if GAFOK then + Result := (sCallV('ORWPCE MHCLINIC', [Location]) = '1') + else + Result := FALSE; +end; + +procedure RecentGAFScores(const Limit: integer); +begin + if(GAFOK) then + begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWPCE LOADGAF'; + Param[0].PType := list; + with Param[0] do + begin + Mult['"DFN"'] := Patient.DFN; + Mult['"LIMIT"'] := IntToStr(Limit); + end; + CallBroker; + end; + end; +end; + +function SaveGAFScore(const Score: integer; GAFDate: TFMDateTime; Staff: Int64): boolean; +begin + Result := FALSE; + if(GAFOK) then + begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWPCE SAVEGAF'; + Param[0].PType := list; + with Param[0] do + begin + Mult['"DFN"'] := Patient.DFN; + Mult['"GAF"'] := IntToStr(Score); + Mult['"DATE"'] := FloatToStr(GAFDate); + Mult['"STAFF"'] := IntToStr(Staff); + end; + CallBroker; + end; + if(RPCBrokerV.Results.Count > 0) and + (RPCBrokerV.Results[0] = '1') then + Result := TRUE; + end; +end; + +function GAFURL: string; +begin + if(not uGAFURLChecked) then + begin + uGAFURL := sCallV('ORWPCE GAFURL', []); + uGAFURLChecked := TRUE; + end; + Result := uGAFURL; +end; + +function MHTestsOK: boolean; +begin + if(not uMHOKChecked) then + begin + uMHOK := (sCallV('ORWPCE MHTESTOK', []) = '1'); + uMHOKChecked := TRUE; + end; + Result := uMHOK; +end; + +function MHTestAuthorized(Test: string): boolean; +begin + Result := (sCallV('ORWPCE MH TEST AUTHORIZED', [Test, User.DUZ]) = '1'); +end; + +function AnytimeEncounters: boolean; +begin + if uAnytimeEnc < 0 then + uAnytimeEnc := ord(sCallV('ORWPCE ANYTIME', []) = '1'); + Result := BOOLEAN(uAnytimeEnc); +end; + +function AutoCheckout(Loc: integer): boolean; +begin + if(uLastChkOutLoc <> Loc) then + begin + uLastChkOutLoc := Loc; + uLastChkOut := (sCallV('ORWPCE ALWAYS CHECKOUT', [Loc]) = '1'); + end; + Result := uLastChkOut; +end; + +{ encounter capture functions ------------------------------------------------ } + +function RequireExposures(ANote, ATitle: Integer): Boolean; {*RAB 3/22/99*} +{ returns true if a progress note should require the expossure questions to be answered } +begin + if ANote <= 0 + then Result := Piece(sCallV('TIU GET DOCUMENT PARAMETERS', ['0', ATitle]), U, 15) = '1' + else Result := Piece(sCallV('TIU GET DOCUMENT PARAMETERS', [ANote]), U, 15) = '1'; +end; + +function PromptForWorkload(ANote, ATitle: Integer; VisitCat: Char; StandAlone: boolean): Boolean; +{ returns true if a progress note should prompt for capture of encounter } +var + X: string; + +begin + Result := FALSE; + if (VisitCat <> 'A') and (VisitCat <> 'I') and (VisitCat <> 'T') then exit; + if ANote <= 0 then + X := sCallV('TIU GET DOCUMENT PARAMETERS', ['0', ATitle]) + else + X := sCallV('TIU GET DOCUMENT PARAMETERS', [ANote]); + if(Piece(X, U, 14) = '1') then exit; // Suppress DX/CPT param is TRUE - don't ask + if StandAlone then + Result := TRUE + else + Result := (Piece(X, U, 16) = '1'); // Check Ask DX/CPT param +end; + +function IsCancelOrNoShow(ANote: integer): boolean; +begin + Result := (sCallV('ORWPCE CXNOSHOW', [ANote]) = '0'); +end; + +function IsNonCountClinic(ALocation: integer): boolean; +begin + Result := (sCallV('ORWPCE1 NONCOUNT', [ALocation]) = '1'); +end; + +function DefaultProvider(ALocation: integer; AUser: Int64; ADate: TFMDateTime; + ANoteIEN: integer): string; +begin + Result := sCallV('TIU GET DEFAULT PROVIDER', [ALocation, AUser, ADate, ANoteIEN]); +end; + +function IsUserAProvider(AUser: Int64; ADate: TFMDateTime): boolean; +begin + Result := (sCallV('TIU IS USER A PROVIDER?', [AUser, ADate]) = '1'); +end; + +//function HNCOK: boolean; +//begin +// if uHNCOK < 0 then +// uHNCOK := ord(sCallV('ORWPCE HNCOK', []) = '1'); +// Result := boolean(uHNCOK); +//end; + +initialization + uLastLocation := 0; + uVTypeLastLoc := 0; + uVTypeLastDate := 0; + uDiagnoses := TStringList.Create; + uExams := TStringList.Create; + uHealthFactors := TStringList.Create; + uImmunizations := TStringList.Create; + uPatientEds := TStringList.Create; + uProcedures := TStringList.Create; + uSkinTests := TStringList.Create; + uVisitTypes := TStringList.Create; + uVTypeForLoc := TStringList.Create; + uProblems := TStringList.Create; + +finalization + uDiagnoses.Free; + uExams.Free; + uHealthFactors.Free; + uImmunizations.Free; + uPatientEds.Free; + uProcedures.Free; + uSkinTests.free; + uVisitTypes.Free; + uVTypeForLoc.Free; + uProblems.Free; + KillObj(@uModifiers); + KillObj(@uHasCPT); + +end. \ No newline at end of file diff --git a/CPRS-Chart/Encounter/uPCE.pas b/CPRS-Chart/Encounter/uPCE.pas new file mode 100644 index 0000000..2580120 --- /dev/null +++ b/CPRS-Chart/Encounter/uPCE.pas @@ -0,0 +1,3548 @@ +unit uPCE; + +interface + +uses Windows, SysUtils, Classes, ORFn, uConst, ORCtrls, ORClasses,UBAGlobals; + +type + TPCEProviderRec = record + IEN: int64; + Name: string; + Primary: boolean; + Delete: boolean; + end; + + TPCEProviderList = class(TORStringList) + private + FNoUpdate: boolean; + FOnPrimaryChanged: TNotifyEvent; + FPendingDefault: string; + FPendingUser: string; + FPCEProviderIEN: Int64; + FPCEProviderName: string; + function GetProviderData(Index: integer): TPCEProviderRec; + procedure SetProviderData(Index: integer; const Value: TPCEProviderRec); + function GetPrimaryIdx: integer; + procedure SetPrimaryIdx(const Value: integer); + procedure SetPrimary(index: integer; Primary: boolean); + public + function Add(const S: string): Integer; override; + function AddProvider(AIEN, AName: string; APrimary: boolean): integer; + procedure Assign(Source: TPersistent); override; + function PCEProvider: Int64; + function PCEProviderName: string; + function IndexOfProvider(AIEN: string): integer; + procedure Merge(AList: TPCEProviderList); + procedure Clear; override; + procedure Delete(Index: Integer); override; + function PrimaryIEN: int64; + function PrimaryName: string; + function PendingIEN(ADefault: boolean): Int64; + function PendingName(ADefault: boolean): string; + property ProviderData[Index: integer]: TPCEProviderRec read GetProviderData + write SetProviderData; default; + property PrimaryIdx: integer read GetPrimaryIdx write SetPrimaryIdx; + property OnPrimaryChanged: TNotifyEvent read FOnPrimaryChanged + write FOnPrimaryChanged; + end; + + TPCEItem = class(TObject) + {base class for PCE items} + private + FDelete: Boolean; //flag for deletion + FSend: Boolean; //flag to send to broker + FComment: String; + protected + procedure SetComment(const Value: String); + public +// Provider: Int64; + Provider: Int64; + Code: string; + Category: string; + Narrative: string; + FGecRem: string; + procedure Assign(Src: TPCEItem); virtual; + procedure Clear; virtual; + function DelimitedStr: string; virtual; + function DelimitedStr2: string; virtual; + function ItemStr: string; virtual; + function Match(AnItem: TPCEItem): Boolean; +// function MatchProvider(AnItem: TPCEItem):Boolean; + function MatchProvider(AnItem: TPCEItem):Boolean; + procedure SetFromString(const x: string); virtual; + function HasCPTStr: string; virtual; + property Comment: String read FComment write SetComment; + property GecRem: string read FGecRem write FGecRem; + end; + + TPCEItemClass = class of TPCEItem; + + TPCEProc = class(TPCEItem) + {class for procedures} + public + FIsOldProcedure: boolean; + Quantity: Integer; + Modifiers: string; // Format Modifier1IEN;Modifier2IEN;Modifier3IEN; Trailing ; needed +// Provider: Int64; {jm 9/8/99} + Provider: Int64; {jm 9/8/99} + procedure Assign(Src: TPCEItem); override; + procedure Clear; override; + function DelimitedStr: string; override; +// function DelimitedStrC: string; +// function Match(AnItem: TPCEProc): Boolean; + function ModText: string; + function ItemStr: string; override; + procedure SetFromString(const x: string); override; + procedure CopyProc(Dest: TPCEProc); + function Empty: boolean; + end; + + TPCEDiag = class(TPCEItem) + {class for diagnosis} + public + fProvider: Int64; + Primary: Boolean; + AddProb: Boolean; + OldComment: string; + SaveComment: boolean; + procedure Assign(Src: TPCEItem); override; + procedure Clear; override; + function DelimitedStr: string; override; + function DelimitedStr2: string; override; +// function delimitedStrC: string; + function ItemStr: string; override; + procedure SetFromString(const x: string); override; + procedure Send; + end; + + TPCEExams = class(TPCEItem) + {class for Examinations} + public +// Provider: Int64; + Results: String; + procedure Assign(Src: TPCEItem); override; + procedure Clear; override; + function DelimitedStr: string; override; +// function delimitedStrC: string; + function ItemStr: string; override; + procedure SetFromString(const x: string); override; + function HasCPTStr: string; override; + end; + + + TPCEHealth = class(TPCEItem) + {class for Health Factors} + public +// Provider: Int64; {jm 9/8/99} + Level: string; + procedure Assign(Src: TPCEItem); override; + procedure Clear; override; + function DelimitedStr: string; override; +// function delimitedStrC: string; + function ItemStr: string; override; + procedure SetFromString(const x: string); override; + function HasCPTStr: string; override; + end; + + TPCEImm = class(TPCEItem) + {class for immunizations} + public +// Provider: Int64; {jm 9/8/99} + Series: String; + Reaction: String; + Refused: Boolean; //not currently used + Contraindicated: Boolean; + procedure Assign(Src: TPCEItem); override; + procedure Clear; override; + function DelimitedStr: string; override; +// function delimitedStrC: string; + function ItemStr: string; override; + procedure SetFromString(const x: string); override; + function HasCPTStr: string; override; + end; + + TPCEPat = class(TPCEItem) + {class for patient Education} + public +// Provider: Int64; {jm 9/8/99} + Level: String; + procedure Assign(Src: TPCEItem); override; + procedure Clear; override; + function DelimitedStr: string; override; +// function delimitedStrC: string; + function ItemStr: string; override; + procedure SetFromString(const x: string); override; + function HasCPTStr: string; override; + end; + + TPCESkin = class(TPCEItem) + {class for skin tests} + public +// Provider: Int64; {jm 9/8/99} + Results: String; //Do not confuse for reserved word "result" + Reading: Integer; + DTRead: TFMDateTime; + DTGiven: TFMDateTime; + procedure Assign(Src: TPCEItem); override; + procedure Clear; override; + function DelimitedStr: string; override; +// function delimitedStrC: string; + function ItemStr: string; override; + procedure SetFromString(const x: string); override; + function HasCPTStr: string; override; + end; + +// TPCEData = class; + + tRequiredPCEDataType = (ndDiag, ndProc, ndSC); {jm 9/9/99} + tRequiredPCEDataTypes = set of tRequiredPCEDataType; + + //modified: 6/9/99 + //By: Robert Bott + //Location: ISL + //Purpose: Changed to allow capture of multiple providers. + TPCEData = class + {class for data to be passed to and from broker} + private + FUpdated: boolean; + FEncDateTime: TFMDateTime; //encounter date & time + FNoteDateTime: TFMDateTime; //Note date & time + FEncLocation: Integer; //encounter location + FEncSvcCat: Char; // + FEncInpatient: Boolean; //Inpatient flag + FEncUseCurr: Boolean; // + FSCChanged: Boolean; // + FSCRelated: Integer; //service con. related? + FAORelated: Integer; // + FIRRelated: Integer; // + FECRelated: Integer; // + FMSTRelated: Integer; // + FHNCRelated: Integer; // + FCVRelated: Integer; // + FVisitType: TPCEProc; // + FProviders: TPCEProviderList; + FDiagnoses: TList; //pointer list for diagnosis + FProcedures: TList; //pointer list for Procedures + FImmunizations: TList; //pointer list for Immunizations + FSkinTests: TList; //pointer list for skin tests + FPatientEds: TList; + FHealthFactors: TList; + fExams: TList; + FNoteTitle: Integer; + FNoteIEN: Integer; + FParent: string; // Parent Visit for secondary encounters + FHistoricalLocation: string; // Institution IEN^Name (if IEN=0 Piece 4 = outside location) + FStandAlone: boolean; + FStandAloneLoaded: boolean; + + function GetVisitString: string; + function GetCPTRequired: Boolean; + function getDocCount: Integer; + function MatchItem(AList: TList; AnItem: TPCEItem): Integer; + procedure MarkDeletions(PreList: TList; PostList: TStrings); + procedure SetSCRelated(Value: Integer); + procedure SetAORelated(Value: Integer); + procedure SetIRRelated(Value: Integer); + procedure SetECRelated(Value: Integer); + procedure SetMSTRelated(Value: Integer); + procedure SetHNCRelated(Value: Integer); + procedure SetCVRelated(Value: Integer); + procedure SetEncUseCurr(Value: Boolean); + function GetHasData: Boolean; + procedure GetHasCPTList(AList: TStrings); + procedure CopyPCEItems(Src: TList; Dest: TObject; ItemClass: TPCEItemClass); + public + constructor Create; + destructor Destroy; override; + procedure Clear; + procedure CopyPCEData(Dest: TPCEData); + function Empty: boolean; + procedure PCEForNote(NoteIEN: Integer; EditObj: TPCEData);(* overload; + procedure PCEForNote(NoteIEN: Integer; EditObj: TPCEData; DCSummAdmitString: string); overload;*) + procedure Save; + procedure CopyDiagnoses(Dest: TStrings); // ICDcode^P|S^Category^Narrative^P|S Text + procedure CopyProcedures(Dest: TStrings); // CPTcode^Qty^Category^Narrative^Qty Text + procedure CopyImmunizations(Dest: TStrings); // + procedure CopySkinTests(Dest: TStrings); // + procedure CopyPatientEds(Dest: TStrings); + procedure CopyHealthFactors(Dest: TStrings); + procedure CopyExams(Dest: TStrings); + + procedure SetDiagnoses(Src: TStrings; FromForm: boolean = TRUE); // ICDcode^P|S^Category^Narrative^P|S Text + procedure SetExams(Src: TStrings; FromForm: boolean = TRUE); + Procedure SetHealthFactors(Src: TStrings; FromForm: boolean = TRUE); + procedure SetImmunizations(Src: TStrings; FromForm: boolean = TRUE); // IMMcode^ + Procedure SetPatientEds(Src: TStrings; FromForm: boolean = TRUE); + procedure SetSkinTests(Src: TStrings; FromForm: boolean = TRUE); // + procedure SetProcedures(Src: TStrings; FromForm: boolean = TRUE); // CPTcode^Qty^Category^Narrative^Qty Text + + procedure SetVisitType(Value: TPCEProc); // CPTcode^1^Category^Narrative + function StrDiagnoses: string; // Diagnoses: ... + function StrImmunizations: string; // Immunizzations: ... + function StrProcedures: string; // Procedures: ... + function StrSkinTests: string; + function StrPatientEds: string; + function StrHealthFactors: string; + function StrExams: string; + function StrVisitType(const ASCRelated, AAORelated, AIRRelated, AECRelated, + AMSTRelated, AHNCRelated, ACVRelated: Integer): string; overload; + function StrVisitType: string; overload; + function StandAlone: boolean; + procedure AddStrData(List: TStrings); + procedure AddVitalData(Data, List: TStrings); + + function NeededPCEData: tRequiredPCEDataTypes; + function OK2SignNote: boolean; + + function PersonClassDate: TFMDateTime; + function VisitDateTime: TFMDateTime; + function IsSecondaryVisit: boolean; + function NeedProviderInfo: boolean; + + property HasData: Boolean read GetHasData; + property CPTRequired: Boolean read GetCPTRequired; + property Inpatient: Boolean read FEncInpatient; + property UseEncounter: Boolean read FEncUseCurr write SetEncUseCurr; + property SCRelated: Integer read FSCRelated write SetSCRelated; + property AORelated: Integer read FAORelated write SetAORelated; + property IRRelated: Integer read FIRRelated write SetIRRelated; + property ECRelated: Integer read FECRelated write SetECRelated; + property MSTRelated: Integer read FMSTRelated write SetMSTRelated; + property HNCRelated: Integer read FHNCRelated write SetHNCRelated; + property CVRelated: Integer read FCVRelated write SetCVRelated; + property VisitType: TPCEProc read FVisitType write SetVisitType; + property VisitString: string read GetVisitString; + property VisitCategory:char read FEncSvcCat write FEncSvcCat; + property DateTime: TFMDateTime read FEncDateTime write FEncDateTime; + property NoteDateTime: TFMDateTime read FNoteDateTime write FNoteDateTime; + property Location: Integer Read FencLocation; + property NoteTitle: Integer read FNoteTitle write FNoteTitle; + property NoteIEN: Integer read FNoteIEN write FNoteIEN; + property DocCOunt: Integer read GetDocCount; + property Providers: TPCEProviderList read FProviders; + property Parent: string read FParent write FParent; + property HistoricalLocation: string read FHistoricalLocation write FHistoricalLocation; + property Updated: boolean read FUpdated write FUpdated; + end; + +type + TPCEType = (ptEncounter, ptReminder, ptTemplate); + +const + PCETypeText: array[TPCEType] of string = ('encounter', 'reminder', 'template'); + +function InvalidPCEProviderTxt(AIEN: Int64; ADate: TFMDateTime): string; +function MissingProviderInfo(PCEEdit: TPCEData; PCEType: TPCEType = ptEncounter): boolean; +function IsOK2Sign(const PCEData: TPCEData; const IEN: integer) :boolean; +function FutureEncounter(APCEData: TPCEData): boolean; +function CanEditPCE(APCEData: TPCEData): boolean; +procedure GetPCECodes(List: TStrings; CodeType: integer); +procedure GetComboBoxMinMax(dest: TORComboBox; var Min, Max: integer); +procedure PCELoadORCombo(dest: TORComboBox); overload; +procedure PCELoadORCombo(dest: TORComboBox; var Min, Max: integer); overload; +function GetPCEDisplayText(ID: string; Tag: integer): string; +procedure SetDefaultProvider(ProviderList: TPCEProviderList; APCEData: TPCEData); +function ValidateGAFDate(var GafDate: TFMDateTime): string; +procedure GetVitalsFromDate(VitalStr: TStrings; PCEObj: TPCEData); +procedure GetVitalsFromNote(VitalStr: TStrings; PCEObj: TPCEData; ANoteIEN: Int64); + +type + TPCEDataCat = (pdcVisit, pdcDiag, pdcProc, pdcImm, pdcSkin, pdcPED, pdcHF, + pdcExam, pdcVital, pdcOrder, pdcMH, pdcMST, pdcHNC, pdcWHR, pdcWH); + +function GetPCEDataText(Cat: TPCEDataCat; Code, Category, Narrative: string; + PrimaryDiag: boolean = FALSE; Qty: integer = 0): string; + +const + PCEDataCatText: array[TPCEDataCat] of string = + { dcVisit } ('', + { dcDiag } 'Diagnoses: ', + { dcProc } 'Procedures: ', + { dcImm } 'Immunizations: ', + { dcSkin } 'Skin Tests: ', + { dcPED } 'Patient Educations: ', + { dcHF } 'Health Factors: ', + { dcExam } 'Examinations: ', + { dcVital } '', + { dcOrder } 'Orders: ', + { dcMH } 'Mental Health: ', + { dcMST } 'MST History: ', + { dcHNC } 'Head and/or Neck Cancer: ', + { dcWHR } 'Women''s Health Procedure: ', + { dcWH } 'WH Notification: '); + + NoPCEValue = '@'; + TAB_STOP_CHARS = 7; + TX_NO_VISIT = 'Insufficient Visit Information'; + TX_NEED_PROV1 = 'The provider responsible for this encounter must be entered before '; + TX_NEED_PROV2 = ' information may be entered.'; +// TX_NEED_PROV3 = 'you can sign the note.'; + TX_NO_PROV = 'Missing Provider'; + TX_BAD_PROV = 'Invalid Provider'; + TX_NOT_ACTIVE = ' does not have an active person class.'; + TX_NOT_PROV = ' is not a known Provider.'; + TX_MISSING = 'Required Information Missing'; + TX_REQ1 = 'The following required fields have not been entered:' + CRLF; + TC_REQ = 'Required Fields'; + TX_ADDEND_AD = 'Cannot make an addendum to an addendum' + CRLF + + 'Please select the parent note or document, and try again.'; + TX_ADDEND_MK = 'Unable to Make Addendum'; + TX_DEL_CNF = 'Confirm Deletion'; + TX_IN_AUTH = 'Insufficient Authorization'; + TX_NOPCE = ''; + TX_NEED_T = 'Missing Encounter Information'; + TX_NEED1 = 'This note title is marked to prompt for the following missing' + CRLF + + 'encounter information:' + CRLF; + TX_NEED_DIAG = ' A diagnosis.'; + TX_NEED_PROC = ' A visit type or procedure.'; + TX_NEED_SC = ' One or more service connected questions.'; + TX_NEED2 = 'Would you like to enter encounter information now?'; + TX_NEED3 = 'You must enter the encounter information before you can sign the note.'; + TX_NEEDABORT = 'Document not signed.'; + TX_COS_REQ = 'A cosigner is required for this document.'; + TX_COS_SELF = 'You cannot make yourself a cosigner.'; + TX_COS_AUTH = ' is not authorized to cosign this document.'; + TC_COS = 'Select Cosigner'; + + TAG_IMMSERIES = 10; + TAG_IMMREACTION= 20; + TAG_SKRESULTS = 30; + TAG_PEDLEVEL = 40; + TAG_HFLEVEL = 50; + TAG_XAMRESULTS = 60; + TAG_HISTLOC = 70; + +{ These piece numbers are used by both the PCE objects and reminders } + pnumCode = 2; + pnumPrvdrIEN = 2; + pnumCategory = 3; + pnumNarrative = 4; + pnumExamResults = 5; + pnumSkinResults = 5; + pnumHFLevel = 5; + pnumImmSeries = 5; + pnumProcQty = 5; + pnumPEDLevel = 5; + pnumDiagPrimary = 5; + pnumPrvdrName = 5; + pnumProvider = 6; + pnumPrvdrPrimary = 6; + pnumSkinReading = 7; + pnumImmReaction = 7; + pnumDiagAdd2PL = 7; + pnumSkinDTRead = 8; + pnumImmContra = 8; + pnumSkinDTGiven = 9; + pnumImmRefused = 9; + pnumCPTMods = 9; + pnumComment = 10; + pnumWHPapResult =11; + pnumWHNotPurp =12; + + USE_CURRENT_VISITSTR = -2; + +implementation + +uses uCore, rPCE, rCore, rTIU, fEncounterFrame, uVitals, fFrame, + fPCEProvider, rVitals, uReminders; + +const + FN_NEW_PERSON = 200; + +function InvalidPCEProviderTxt(AIEN: Int64; ADate: TFMDateTime): string; +begin + Result := ''; + if(not CheckActivePerson(IntToStr(AIEN), ADate)) then + Result := TX_NOT_ACTIVE + else + if(not IsUserAProvider(AIEN, ADate)) then + Result := TX_NOT_PROV; +end; + +function MissingProviderInfo(PCEEdit: TPCEData; PCEType: TPCEType = ptEncounter): boolean; +begin + if(PCEEdit.Empty and (PCEEdit.Location <> Encounter.Location) and (not Encounter.NeedVisit)) then + PCEEdit.UseEncounter := TRUE; + Result := NoPrimaryPCEProvider(PCEEdit.Providers, PCEEdit); + if(Result) then + InfoBox(TX_NEED_PROV1 + PCETypeText[PCEType] + TX_NEED_PROV2, + TX_NO_PROV, MB_OK or MB_ICONWARNING); +end; + +var + UNxtCommSeqNum: integer; + +function IsOK2Sign(const PCEData: TPCEData; const IEN: integer) :boolean; +var + TmpPCEData: TPCEData; + +begin + if(assigned(PCEData)) then + PCEData.FUpdated := FALSE; + if(assigned(PCEData) and (PCEData.VisitString <> '') and + (VisitStrForNote(IEN) = PCEData.VisitString)) then + begin + if(PCEData.FNoteIEN <= 0) then + PCEData.FNoteIEN := IEN; + Result := PCEData.OK2SignNote + end + else + begin + TmpPCEData := TPCEData.Create; + try + TmpPCEData.PCEForNote(IEN, nil); + Result := TmpPCEData.OK2SignNote; + finally + TmpPCEData.Free; + end; + end; +end; + +function FutureEncounter(APCEData: TPCEData): boolean; +begin + Result := (Int(APCEData.FEncDateTime + 0.0000001) > Int(FMToday + 0.0000001)); +end; + +function CanEditPCE(APCEData: TPCEData): boolean; +begin + if(GetAskPCE(APCEData.FEncLocation) = apDisable) then + Result := FALSE + else + Result := (not FutureEncounter(APCEData)); +end; + +procedure GetComboBoxMinMax(dest: TORComboBox; var Min, Max: integer); +var + DC: HDC; + SaveFont: HFont; + TextSize: TSize; + TLen, i: integer; + x: string; + +begin + Min := MaxInt; + Max := 0; + DC := GetDC(0); + try + SaveFont := SelectObject(DC, dest.Font.Handle); + try + for i := 0 to dest.Items.Count-1 do + begin + x := dest.DisplayText[i]; + GetTextExtentPoint32(DC, PChar(x), Length(x), TextSize); + TLen := TextSize.cx; + if(TLen > 0) and (Min > TLen) then + Min := TLen; + if(Max < TLen) then + Max := TLen; + end; + finally + SelectObject(DC, SaveFont); + end; + finally + ReleaseDC(0, DC); + end; + if(Min > Max) then Min := Max; + + inc(Min, ScrollBarWidth + 8); + inc(Max, ScrollBarWidth + 8); +end; + +type + TListMinMax = (mmMin, mmMax, mmFont); + +var + PCESetsOfCodes: TStringList = nil; + HistLocations: TORStringList = nil; + WHNotPurpose: TORStringList = nil; + WHPapResult: TORStringList = nil; + WHMammResult: TORStringList = nil; + WHUltraResult: TORStringList = nil; +const + SetOfCodesHeader = '{^~Codes~^}'; + SOCHeaderLen = length(SetOfCodesHeader); + ListMinMax: array[1..7, TListMinMax] of integer = + ((0,0,-1), // TAG_IMMSERIES + (0,0,-1), // TAG_IMMREACTION + (0,0,-1), // TAG_SKRESULTS + (0,0,-1), // TAG_PEDLEVEL + (0,0,-1), // TAG_HFLEVEL + (0,0,-1), // TAG_XAMRESULTS + (0,0,-1)); // TAG_HISTLOC + +function CodeSetIndex(CodeType: integer): integer; +var + TempSL: TStringList; + Hdr: string; + +begin + Hdr := SetOfCodesHeader + IntToStr(CodeType); + Result := PCESetsOfCodes.IndexOf(Hdr); + if(Result < 0) then + begin + TempSL := TStringList.Create; + try + case CodeType of + TAG_IMMSERIES: LoadImmSeriesItems(TempSL); + TAG_IMMREACTION: LoadImmReactionItems(TempSL); + TAG_SKRESULTS: LoadSkResultsItems(TempSL); + TAG_PEDLEVEL: LoadPEDLevelItems(TempSL); + TAG_HFLEVEL: LoadHFLevelItems(TempSL); + TAG_XAMRESULTS: LoadXAMResultsItems(TempSL); + else + KillObj(@TempSL); + end; + if(assigned(TempSL)) then + begin + Result := PCESetsOfCodes.Add(Hdr); + PCESetsOfCodes.AddStrings(TempSL); + end; + finally + KillObj(@TempSL); + end; + end; +end; + +procedure GetPCECodes(List: TStrings; CodeType: integer); +var + idx: integer; + + begin + if(CodeType = TAG_HISTLOC) then + begin + if(not assigned(HistLocations)) then + begin + HistLocations := TORStringList.Create; + LoadHistLocations(HistLocations); + HistLocations.SortByPiece(2); + HistLocations.Insert(0,'0'); + end; + List.AddStrings(HistLocations); + end + else + begin + if(not assigned(PCESetsOfCodes)) then + PCESetsOfCodes := TStringList.Create; + idx := CodeSetIndex(CodeType); + if(idx >= 0) then + begin + inc(idx); + while((idx < PCESetsOfCodes.Count) and + (copy(PCESetsOfCodes[idx],1,SOCHeaderLen) <> SetOfCodesHeader)) do + begin + List.Add(PCESetsOfCodes[idx]); + inc(idx); + end; + end; + end; +end; + +function GetPCECodeString(CodeType: integer; ID: string): string; +var + idx: integer; + +begin + Result := ''; + if(CodeType <> TAG_HISTLOC) then + begin + if(not assigned(PCESetsOfCodes)) then + PCESetsOfCodes := TStringList.Create; + idx := CodeSetIndex(CodeType); + if(idx >= 0) then + begin + inc(idx); + while((idx < PCESetsOfCodes.Count) and + (copy(PCESetsOfCodes[idx],1,SOCHeaderLen) <> SetOfCodesHeader)) do + begin + if(Piece(PCESetsOfCodes[idx], U, 1) = ID) then + begin + Result := Piece(PCESetsOfCodes[idx], U, 2); + break; + end; + inc(idx); + end; + end; + end; +end; + +procedure PCELoadORComboData(dest: TORComboBox; GetMinMax: boolean; var Min, Max: integer); +var + idx: integer; + +begin + if(dest.items.count < 1) then + begin + dest.Clear; + GetPCECodes(dest.Items, dest.Tag); + dest.itemindex := 0; + if(GetMinMax) and (dest.Items.Count > 0) then + begin + idx := dest.Tag div 10; + if(idx > 0) and (idx < 8) then + begin + if(ListMinMax[idx, mmFont] <> integer(dest.Font.Handle)) then + begin + GetComboBoxMinMax(dest, Min, Max); + ListMinMax[idx, mmMin] := Min; + ListMinMax[idx, mmMax] := Max; + end + else + begin + Min := ListMinMax[idx, mmMin]; + Max := ListMinMax[idx, mmMax]; + end; + end; + end; + end; +end; + +procedure PCELoadORCombo(dest: TORComboBox); +var + tmp: integer; + +begin + PCELoadORComboData(dest, FALSE, tmp, tmp); +end; + +procedure PCELoadORCombo(dest: TORComboBox; var Min, Max: integer); +begin + PCELoadORComboData(dest, TRUE, Min, Max); +end; + +function GetPCEDisplayText(ID: string; Tag: integer): string; +var + Hdr: string; + idx: integer; + TempSL: TStringList; + +begin + Result := ''; + if(Tag = TAG_HISTLOC) then + begin + if(not assigned(HistLocations)) then + begin + HistLocations := TORStringList.Create; + LoadHistLocations(HistLocations); + HistLocations.SortByPiece(2); + HistLocations.Insert(0,'0'); + end; + idx := HistLocations.IndexOfPiece(ID); + if(idx >= 0) then + Result := Piece(HistLocations[idx], U, 2); + end + else + begin + if(not assigned(PCESetsOfCodes)) then + PCESetsOfCodes := TStringList.Create; + Hdr := SetOfCodesHeader + IntToStr(Tag); + idx := PCESetsOfCodes.IndexOf(Hdr); + if(idx < 0) then + begin + TempSL := TStringList.Create; + try + case Tag of + TAG_IMMSERIES: LoadImmSeriesItems(TempSL); + TAG_IMMREACTION: LoadImmReactionItems(TempSL); + TAG_SKRESULTS: LoadSkResultsItems(TempSL); + TAG_PEDLEVEL: LoadPEDLevelItems(TempSL); + TAG_HFLEVEL: LoadHFLevelItems(TempSL); + TAG_XAMRESULTS: LoadXAMResultsItems(TempSL); + else + KillObj(@TempSL); + end; + if(assigned(TempSL)) then + begin + idx := PCESetsOfCodes.Add(Hdr); + PCESetsOfCodes.AddStrings(TempSL); + end; + finally + KillObj(@TempSL); + end; + end; + if(idx >= 0) then + begin + inc(idx); + while((idx < PCESetsOfCodes.Count) and + (copy(PCESetsOfCodes[idx],1,SOCHeaderLen) <> SetOfCodesHeader)) do + begin + if(Piece(PCESetsOfCodes[idx], U, 1) = ID) then + begin + Result := Piece(PCESetsOfCodes[idx], U, 2); + break; + end; + inc(idx); + end; + end; + end; +end; + +function GetPCEDataText(Cat: TPCEDataCat; Code, Category, Narrative: string; + PrimaryDiag: boolean = FALSE; Qty: integer = 0): string; +begin + Result := ''; + case Cat of + pdcVisit: if Code <> '' then Result := Category + ' ' + Narrative; + pdcDiag: begin + Result := Narrative; + if PrimaryDiag then Result := Result + ' (Primary)'; + end; + pdcProc: begin + Result := Narrative; + if Qty > 1 then Result := Result + ' (' + IntToStr(Qty) + ' times)'; + end; + else Result := Narrative; + end; +end; + +procedure SetDefaultProvider(ProviderList: TPCEProviderList; APCEData: TPCEData); +var + SIEN, tmp: string; + DefUser, AUser: Int64; + UserName: string; + +begin + DefUser := Encounter.Provider; + if(DefUser <> 0) and (InvalidPCEProviderTxt(DefUser, APCEData.PersonClassDate) <> '') then + DefUser := 0; + if(DefUser <> 0) then + begin + AUser := DefUser; + UserName := Encounter.ProviderName; + end + else + if(InvalidPCEProviderTxt(User.DUZ, APCEData.PersonClassDate) = '') then + begin + AUser := User.DUZ; + UserName := User.Name; + end + else + begin + AUser := 0; + UserName := ''; + end; + if(AUser = 0) then + ProviderList.FPendingUser := '' + else + ProviderList.FPendingUser := IntToStr(AUser) + U + UserName; + ProviderList.FPendingDefault := ''; + tmp := DefaultProvider(APCEData.Location, DefUser, APCEData.PersonClassDate, APCEData.NoteIEN); + SIEN := IntToStr(StrToIntDef(Piece(tmp,U,1),0)); + if(SIEN <> '0') then + begin + if(CheckActivePerson(SIEN, APCEData.PersonClassDate)) then + begin + if(piece(TIUSiteParams, U, 8) = '1') and // Check to see if DEFAULT PRIMARY PROVIDER is by Location + (SIEN = IntToStr(User.DUZ)) then + ProviderList.AddProvider(SIEN, Piece(tmp,U,2) ,TRUE) + else + ProviderList.FPendingDefault := tmp; + end; + end; +end; + +function ValidateGAFDate(var GafDate: TFMDateTime): string; +var + DateMsg: string; + OKDate: TFMDateTime; + +begin + Result := ''; + if(Patient.DateDied > 0) and (FMToday > Patient.DateDied) then + begin + DateMsg := 'Date of Death'; + OKDate := Patient.DateDied; + end + else + begin + DateMsg := 'Today'; + OKDate := FMToday; + end; + if(GafDate <= 0) then + begin + Result := 'A date is required to enter a GAF score. Date Determined changed to ' + DateMsg + '.'; + GafDate := OKDate; + end + else + if(Patient.DateDied > 0) and (GafDate > Patient.DateDied) then + begin + Result := 'This patient died ' + FormatFMDateTime('mmm dd, yyyy hh:nn', Patient.DateDied) + + '. Date GAF determined can not ' + CRLF + + 'be later than the date of death, and has been changed to ' + DateMsg + '.'; + GafDate := OKDate; + end; +end; + +procedure GetVitalsFromDate(VitalStr: TStrings; PCEObj: TPCEData); +var + dte: TFMDateTime; + +begin + if(PCEObj.IsSecondaryVisit) then + dte := PCEObj.NoteDateTime + else + dte := PCEObj.DateTime; + GetVitalsFromEncDateTime(VitalStr, Patient.DFN, dte); +end; + +procedure GetVitalsFromNote(VitalStr: TStrings; PCEObj: TPCEData; ANoteIEN: Int64); +begin + if(PCEObj.IsSecondaryVisit) then + GetVitalsFromEncDateTime(VitalStr, Patient.DFN, PCEObj.NoteDateTime) + else + GetVitalFromNoteIEN(VitalStr, Patient.DFN, ANoteIEN); +end; + +{ TPCEItem methods ------------------------------------------------------------------------- } + +//function TPCEItem.DelimitedStr2: string; +//added: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Return comment string to be passed in RPC call. +function TPCEItem.DelimitedStr2: string; +{created delimited string to pass to broker} +begin + If Comment = '' then + begin + result := 'COM' + U + IntToStr(UNxtCommSeqNum) + U + NoPCEValue; + end + else + begin + Result := 'COM' + U + IntToStr(UNxtCommSeqNum) + U + Comment; + end; + + Inc(UNxtCommSeqNum); //set up for next comment +end; + +procedure TPCEItem.Assign(Src: TPCEItem); +begin + FDelete := Src.FDelete; + FSend := Src.FSend; + Code := Src.Code; + Category := Src.Category; + Narrative := Src.Narrative; + Provider := Src.Provider; + Comment := Src.Comment; +end; + +procedure TPCEItem.SetComment(const Value: String); +begin + FComment := Value; + while (length(FComment) > 0) and (FComment[1] = '?') do + delete(FComment,1,1); +end; + + +//procedure TPCEItem.Clear; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +procedure TPCEItem.Clear; +{clear fields(properties) of class} +begin + FDelete := False; + FSend := False; + Code := ''; + Category := ''; + Narrative := ''; + Provider := 0; + Comment := ''; +end; + +//function TPCEItem.DelimitedStr: string; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +function TPCEItem.DelimitedStr: string; +{created delimited string to pass to broker} +var + DelFlag: Char; +begin + if FDelete then DelFlag := '-' else DelFlag := '+'; + Result := DelFlag + U + Code + U + Category + U + Narrative; +end; + +function TPCEItem.ItemStr: string; +{returns string to be assigned to Tlist in PCEData object} +begin + Result := Narrative; +end; + +function TPCEItem.Match(AnItem: TPCEItem): Boolean; +{checks for match of Code, Category. and Item} +begin + Result := False; + if (Code = AnItem.Code) and (Category = AnItem.Category) and (Narrative = AnItem.Narrative) + then Result := True; +end; + +function TPCEItem.HasCPTStr: string; +begin + Result := ''; +end; + +//procedure TPCEItem.SetFromString(const x: string); +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +procedure TPCEItem.SetFromString(const x: string); +{ sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative } +begin + Code := Piece(x, U, pnumCode); + Category := Piece(x, U, pnumCategory); + Narrative := Piece(x, U, pnumNarrative); + Provider := StrToInt64Def(Piece(x, U, pnumProvider), 0); + Comment := Piece(x, U, pnumComment); +end; + + +{ TPCEExams methods ------------------------------------------------------------------------- } + +procedure TPCEExams.Assign(Src: TPCEItem); +begin + inherited Assign(Src); + Results := TPCEExams(Src).Results; + if Results = '' then Results := NoPCEValue; +end; + +procedure TPCEExams.Clear; +{clear fields(properties) of class} +begin + inherited Clear; +// Provider := 0; + Results := NoPCEValue; +end; + +//function TPCEExams.DelimitedStr: string; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +function TPCEExams.DelimitedStr: string; +{created delimited string to pass to broker} +begin + Result := inherited DelimitedStr; + //Result := 'XAM' + Result + U + Results + U + IntToStr(Provider) +U + U + U + + Result := 'XAM' + Result + U + Results + U +U + U + U + + U + IntToStr(UNxtCommSeqNum); +end; + +(*function TPCEExams.delimitedStrC: string; +begin + Result := inherited DelimitedStr; + Result := 'XAM' + Result + U + Results + U + IntToStr(Provider) +U + U + U + + U + comment; +end; +*) +function TPCEExams.HasCPTStr: string; +begin + Result := Code + ';AUTTEXAM('; +end; + +function TPCEExams.ItemStr: string; +{returns string to be assigned to Tlist in PCEData object} +begin + if(Results <> NoPCEValue) then + Result := GetPCECodeString(TAG_XAMRESULTS, Results) + else + Result := ''; + Result := Result + U + inherited ItemStr; +end; + +procedure TPCEExams.SetFromString(const x: string); +{ sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Qty ^ Prov } +begin + inherited SetFromString(x); +// Provider := StrToInt64Def(Piece(x, U, pnumProvider), 0); + Results := Piece(x, U, pnumExamResults); + If results = '' then results := NoPCEValue; +end; + + +{ TPCESkin methods ------------------------------------------------------------------------- } + +procedure TPCESkin.Assign(Src: TPCEItem); +var + SKSrc: TPCESkin; + +begin + inherited Assign(Src); + SKSrc := TPCESkin(Src); + Results := SKSrc.Results; + Reading := SKSrc.Reading; + DTRead := SKSrc.DTRead; + DTGiven := SKSrc.DTGiven; + if Results = '' then Results := NoPCEValue; +end; + +procedure TPCESkin.Clear; +{clear fields(properties) of class} +begin + inherited Clear; +// Provider := 0; + Results := NoPCEValue; + Reading := 0; + DTRead := 0.0; //What should dates be ititialized to? + DTGiven := 0.0; +end; + +//function TPCESkin.DelimitedStr: string; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +function TPCESkin.DelimitedStr: string; +{created delimited string to pass to broker} +begin + Result := inherited DelimitedStr; + //Result := 'SK' + Result + U + results + U + IntToStr(Provider) + U + + Result := 'SK' + Result + U + results + U + U + + IntToStr(Reading) + U + U + U + IntToStr(UNxtCommSeqNum); + //+ FloatToStr(DTRead) + U + FloatToStr(DTGiven); +end; + +(*function TPCESkin.delimitedStrC: string; +begin + Result := inherited DelimitedStr; + Result := 'SK' + Result + U + results + U + IntToStr(Provider) + U + + IntToStr(Reading) + U + U + U + comment; +end; +*) +function TPCESkin.HasCPTStr: string; +begin + Result := Code + ';AUTTSK('; +end; + +function TPCESkin.ItemStr: string; +{returns string to be assigned to Tlist in PCEData object} +begin + if(Results <> NoPCEValue) then + Result := GetPCECodeString(TAG_SKRESULTS, Results) + else + Result := ''; + Result := Result + U; + if(Reading <> 0) then + Result := Result + IntToStr(Reading); + Result := Result + U + inherited ItemStr; +end; + +procedure TPCESkin.SetFromString(const x: string); +{ sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Qty ^ Prov } +var + sRead, sDTRead, sDTGiven: String; +begin + inherited SetFromString(x); +// Provider := StrToInt64Def(Piece(x, U, pnumProvider), 0); + Results := Piece(x, U, pnumSkinResults); + sRead := Piece(x, U, pnumSkinReading); + sDTRead := Piece(x, U, pnumSkinDTRead); + sDtGiven := Piece(x, U, pnumSkinDTGiven); + If results = '' then results := NoPCEValue; + + if sRead <> '' then + Reading := StrToInt(sRead); + if sDTRead <> '' then + DTRead := StrToFMDateTime(sDTRead); + if sDTGiven <> '' then + DTGiven := StrToFMDateTime(sDTGiven); + +end; + + +{ TPCEHealth methods ------------------------------------------------------------------------- } + +procedure TPCEHealth.Assign(Src: TPCEItem); +begin + inherited Assign(Src); + Level := TPCEHealth(Src).Level; + if Level = '' then Level := NoPCEValue; +end; + +procedure TPCEHealth.Clear; +{clear fields(properties) of class} +begin + inherited Clear; +// Provider := 0; + Level := NoPCEValue; +end; + +//function TPCEHealth.DelimitedStr: string; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +function TPCEHealth.DelimitedStr: string; +{created delimited string to pass to broker} +begin + Result := inherited DelimitedStr; +// Result := 'HF' + Result + U + Level + U + IntToStr(Provider) + U + U + U + + Result := 'HF' + Result + U + Level + U + U + U + U + + U + IntToStr(UNxtCommSeqNum)+ U + GecRem; +end; + +(*function TPCEHealth.delimitedStrC: string; +begin + Result := inherited DelimitedStr; + Result := 'HF' + Result + U + Level + U + IntToStr(Provider) + U + U + U + + U + comment; +end; +*) +function TPCEHealth.HasCPTStr: string; +begin + Result := Code + ';AUTTHF('; +end; + +function TPCEHealth.ItemStr: string; +{returns string to be assigned to Tlist in PCEData object} +begin + if(Level <> NoPCEValue) then + Result := GetPCECodeString(TAG_HFLEVEL, Level) + else + Result := ''; + Result := Result + U + inherited ItemStr; +end; + +procedure TPCEHealth.SetFromString(const x: string); +{ sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Qty ^ Prov } +begin + inherited SetFromString(x); +// Provider := StrToInt64Def(Piece(x, U, pnumProvider), 0); + Level := Piece(x, U, pnumHFLevel); + if level = '' then level := NoPCEValue; +end; + + +{ TPCEImm methods ------------------------------------------------------------------------- } + +procedure TPCEImm.Assign(Src: TPCEItem); +var + IMMSrc: TPCEImm; + +begin + inherited Assign(Src); + IMMSrc := TPCEImm(Src); + Series := IMMSrc.Series; + Reaction := IMMSrc.Reaction; + Refused := IMMSrc.Refused; + Contraindicated := IMMSrc.Contraindicated; + if Series = '' then Series := NoPCEValue; + if Reaction ='' then Reaction := NoPCEValue; +end; + +procedure TPCEImm.Clear; +{clear fields(properties) of class} +begin + inherited Clear; +// Provider := 0; + Series := NoPCEValue; + Reaction := NoPCEValue; + Refused := False; //not currently used + Contraindicated := false; +end; + +//function TPCEImm.DelimitedStr: string; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +function TPCEImm.DelimitedStr: string; +{created delimited string to pass to broker} +begin + Result := inherited DelimitedStr; + //Result := 'IMM' + Result + U + Series + U + IntToStr(Provider) + U + Reaction; + Result := 'IMM' + Result + U + Series + U + U + Reaction; + if Contraindicated then Result := Result + U + '1' + else Result := Result + U + '0'; + Result := Result + U + U + IntToStr(UNxtCommSeqNum); + {the following two lines are not yet implemented in PCE side} + //if Refused then Result := Result + U + '1' + //else Result := Result + U + '0'; +end; + +(*function TPCEImm.delimitedStrC: string; +begin + Result := inherited DelimitedStr; + Result := 'IMM' + Result + U + Series + U + IntToStr(Provider) + U + Reaction; + if Contraindicated then Result := Result + U + '1' + else Result := Result + U + '0'; + Result := Result + U + U + comment; + {the following two lines are not yet implemented in PCE side} + //if Refused then Result := Result + U + '1' + //else Result := Result + U + '0'; +end; +*) +function TPCEImm.HasCPTStr: string; +begin + Result := Code + ';AUTTIMM('; +end; + +function TPCEImm.ItemStr: string; +{returns string to be assigned to Tlist in PCEData object} +begin + if(Series <> NoPCEValue) then + Result := GetPCECodeString(TAG_IMMSERIES, Series) + else + Result := ''; + Result := Result + U; + if(Reaction <> NoPCEValue) then + Result := Result + GetPCECodeString(TAG_IMMREACTION, Reaction); + Result := Result + U; + if(Contraindicated) then + Result := Result + 'X'; + Result := Result + U + inherited ItemStr; +end; + +procedure TPCEImm.SetFromString(const x: string); +{ sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Qty ^ Prov } +var + temp: String; +begin + inherited SetFromString(x); +// Provider := StrToInt64Def(Piece(x, U, pnumProvider), 0); + Series := Piece(x, U, pnumImmSeries); + Reaction := Piece(x, U, pnumImmReaction); + temp := Piece(x, U, pnumImmRefused); + if temp = '1' then refused := true else refused := false; + temp := Piece(x, U, pnumImmContra); + if temp = '1' then Contraindicated := true else Contraindicated := false; + if Series = '' then series := NoPCEValue; + if Reaction ='' then reaction := NoPCEValue; +end; + + + +{ TPCEProc methods ------------------------------------------------------------------------- } + +procedure TPCEProc.Assign(Src: TPCEItem); +begin + inherited Assign(Src); + Quantity := TPCEProc(Src).Quantity; + Modifiers := TPCEProc(Src).Modifiers; + Provider := TPCEProc(Src).Provider; +end; + +procedure TPCEProc.Clear; +{clear fields(properties) of class} +begin + inherited Clear; + Quantity := 0; + Modifiers := ''; +// Provider := 0; + Provider := 0; +end; + +procedure TPCEProc.CopyProc(Dest: TPCEProc); +begin + Dest.FDelete := FDelete; + Dest.FSend := Fsend; //flag to send to broker +// Dest.Provider := Provider; + Dest.Provider := Provider; + Dest.Code := Code; + Dest.Category := Category; + Dest.Narrative := Narrative; + Dest.Comment := Comment; + Dest.Modifiers := Modifiers; +end; + +//function TPCEProc.DelimitedStr: string; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +function TPCEProc.DelimitedStr: string; +var + i, cnt: integer; + Mods, ModIEN, tmpProv: string; + +{created delimited string to pass to broker} +begin + i := 1; + cnt := 0; + Mods := ''; + repeat + ModIEN := piece(Modifiers, ';', i); + if(ModIEN <> '') then + begin + inc(cnt); + Mods := Mods + ';' + ModifierCode(ModIEN) + '/' + ModIEN; + inc(i); + end; + until (ModIEN = ''); + + Result := inherited DelimitedStr; + if Provider > 0 then tmpProv := IntToStr(Provider) else tmpProv := ''; + Result := 'CPT' + Result + U + IntToStr(Quantity) + U + tmpProv + + U + U + U + IntToStr(cnt) + Mods + U + IntToStr(UNxtCommSeqNum) + U; + if Length(Result) > 250 then SetPiece(Result, U, 4, ''); +end; + +(*function TPCEProc.delimitedStrC: string; +begin + Result := inherited DelimitedStr; + Result := 'CPT' + Result + U + IntToStr(Quantity) + U + IntToStr(Provider) + + U + U + U + U + comment; +end; +*) + +function TPCEProc.Empty: boolean; +begin + Result := (Code = '') and (Category = '') and (Narrative = '') and + (Comment = '') and (Quantity = 0) and (Provider = 0) and (Modifiers = ''); +end; + +(*function TPCEProc.Match(AnItem: TPCEProc): Boolean; {NEW CODE - v20 testing only - RV} +begin + Result := inherited Match(AnItem) and (Modifiers = AnItem.Modifiers); +end;*) + +function TPCEProc.ModText: string; +var + i: integer; + tmp: string; + +begin + Result := ''; + if(Modifiers <> '') then + begin + i := 1; + repeat + tmp := Piece(Modifiers,';',i); + if(tmp <> '') then + begin + tmp := ModifierName(tmp); + Result := Result + ' - ' + tmp; + end; + inc(i); + until (tmp = ''); + end; +end; + +function TPCEProc.ItemStr: string; +{returns string to be assigned to Tlist in PCEData object} +begin + if(Quantity > 1) then + Result := IntToStr(Quantity) + ' times' + else + Result := ''; + Result := Result + U + inherited ItemStr + ModText; +end; + +procedure TPCEProc.SetFromString(const x: string); +var + i, cnt: integer; + Mods: string; +{ sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Qty ^ Prov } +begin + inherited SetFromString(x); + Quantity := StrToIntDef(Piece(x, U, pnumProcQty), 1); +// Provider := StrToInt64Def(Piece(x, U, pnumProvider), 0); + Provider := StrToInt64Def(Piece(x, U, pnumProvider), 0); + Modifiers := ''; + Mods := Piece(x, U, pnumCPTMods); + cnt := StrToIntDef(Piece(Mods, ';', 1), 0); + if(cnt > 0) then + for i := 1 to cnt do + Modifiers := Modifiers + Piece(Piece(Mods, ';' , i+1), '/', 2) + ';'; +end; + + +{ TPCEPat methods ------------------------------------------------------------------------- } + +procedure TPCEPat.Assign(Src: TPCEItem); +begin + inherited Assign(Src); + Level := TPCEPat(Src).Level; + if Level = '' then Level := NoPCEValue; +end; + +procedure TPCEPat.Clear; +{clear fields(properties) of class} +begin + inherited Clear; +// Provider := 0; + Level := NoPCEValue; +end; + +//function TPCEPat.DelimitedStr: string; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +function TPCEPat.DelimitedStr: string; +{created delimited string to pass to broker} +begin + Result := inherited DelimitedStr; + //Result := 'PED' + Result + U + Level + U + IntToStr(Provider) + U + U + U + + Result := 'PED' + Result + U + Level + U+ U + U + U + + U + IntToStr(UNxtCommSeqNum); +end; + +(*function TPCEPat.delimitedStrC: string; +begin + Result := inherited DelimitedStr; + Result := 'PED' + Result + U + Level + U + IntToStr(Provider) + U + U + U + + U + comment; +end; +*) +function TPCEPat.HasCPTStr: string; +begin + Result := Code + ';AUTTEDT('; +end; + +function TPCEPat.ItemStr: string; +{returns string to be assigned to Tlist in PCEData object} +begin + if(Level <> NoPCEValue) then + Result := GetPCECodeString(TAG_PEDLEVEL, Level) + else + Result := ''; + Result := Result + U + inherited ItemStr; +end; + +procedure TPCEPat.SetFromString(const x: string); +{ sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Qty ^ Prov } +begin + inherited SetFromString(x); +// Provider := StrToInt64Def(Piece(x, U, pnumProvider), 0); + Level := Piece(x, U, pnumPEDLevel); + if level = '' then level := NoPCEValue; +end; + +{ TPCEDiag methods ------------------------------------------------------------------------- } + +procedure TPCEDiag.Assign(Src: TPCEItem); +begin + inherited Assign(Src); + Primary := TPCEDiag(Src).Primary; + AddProb := TPCEDiag(Src).AddProb; +end; + +//procedure TPCEDiag.Clear; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Clear a diagnosis object. +procedure TPCEDiag.Clear; +{clear fields(properties) of class} +begin + inherited Clear; + Primary := False; + //Provider := 0; + AddProb := False; +end; + +//function TPCEDiag.DelimitedStr: string; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Create delimited string to pass to Broker. +function TPCEDiag.DelimitedStr: string; +{created delimited string to pass to broker} +var + ProviderStr: string; {jm 9/8/99} +begin + Result := inherited DelimitedStr; + if(AddProb) then + ProviderStr := IntToStr(fProvider) + else + ProviderStr := ''; + Result := 'POV' + Result + U + BOOLCHAR[Primary] + U + ProviderStr + U + + BOOLCHAR[AddProb] + U + U + U; + if(SaveComment) then Result := Result + IntToStr(UNxtCommSeqNum); + if Length(Result) > 250 then SetPiece(Result, U, 4, ''); +end; + +function TPCEDiag.DelimitedStr2: string; +begin + If Comment = '' then + begin + SaveComment := (OldComment <> '') or (not AddProb); + if(SaveComment) then + result := 'COM' + U + IntToStr(UNxtCommSeqNum) + U + NoPCEValue + else + result := ''; + end + else + begin + Result := 'COM' + U + IntToStr(UNxtCommSeqNum) + U + Comment; + SaveComment := TRUE; + end; + Inc(UNxtCommSeqNum); +end; + +(*function TPCEDiag.DelimitedStrC: string; +{created delimited string for internal use - keep comment in same string.} +begin + Result := inherited DelimitedStr; + Result := 'POV' + Result + U + BOOLCHAR[Primary] + U + IntToStr(Provider)+ + U + BOOLCHAR[AddProb] + U + U + U + comment; +end; +*) +function TPCEDiag.ItemStr: string; +{returns string to be assigned to Tlist in PCEData object} +begin + if Primary then + Result := 'Primary' + else + Result := 'Secondary'; +// This may change in the future if we add a check box to the grid + if(AddProb) then + Result := 'Add' + U + Result + else + Result := U + Result; + + Result := Result + U + inherited ItemStr; +end; + +procedure TPCEDiag.Send; +//marks diagnosis to be sent; +begin + Fsend := True; +end; + +//procedure TPCEDiag.SetFromString(const x: string); +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Sets fields to pieces passed from server. +procedure TPCEDiag.SetFromString(const x: string); +{ sets fields to pieces passed from server: TYP ^ Code ^ Category ^ Narrative ^ Primary ^ ^ ^ Comment } +begin + inherited SetFromString(x); + OldComment := Comment; + Primary := (Piece(x, U, pnumDiagPrimary) = '1'); + //Provider := StrToInt64Def(Piece(x, U, pnumProvider),0); + AddProb := (Piece(x, U, pnumDiagAdd2PL) = '1'); +end; + +{ TPCEData methods ------------------------------------------------------------------------- } + +constructor TPCEData.Create; +begin + FDiagnoses := TList.Create; + FProcedures := TList.Create; + FImmunizations := TList.Create; + FSkinTests := TList.Create; + FVisitType := TPCEProc.Create; + FPatientEds := TList.Create; + FHealthFactors := TList.Create; + fExams := TList.Create; + FProviders := TPCEProviderList.Create; + FSCRelated := SCC_NA; + FAORelated := SCC_NA; + FIRRelated := SCC_NA; + FECRelated := SCC_NA; + FMSTRelated := SCC_NA; + FHNCRelated := SCC_NA; + FCVRelated := SCC_NA; + FSCChanged := False; +end; + +destructor TPCEData.Destroy; +var + i: Integer; +begin + with FDiagnoses do for i := 0 to Count - 1 do TPCEDiag(Items[i]).Free; + with FProcedures do for i := 0 to Count - 1 do TPCEProc(Items[i]).Free; + with FImmunizations do for i := 0 to Count - 1 do TPCEImm(Items[i]).Free; + with FSkinTests do for i := 0 to Count - 1 do TPCESkin(Items[i]).Free; + with FPatientEds do for i := 0 to Count - 1 do TPCEPat(Items[i]).Free; + with FHealthFactors do for i := 0 to Count - 1 do TPCEHealth(Items[i]).Free; + with FExams do for i := 0 to Count - 1 do TPCEExams(Items[i]).Free; + FVisitType.Free; + FDiagnoses.Free; + FProcedures.Free; + FImmunizations.Free; + FSkinTests.free; + FPatientEds.Free; + FHealthFactors.Free; + FExams.Free; + FProviders.Free; + inherited Destroy; +end; + +procedure TPCEData.Clear; + + procedure ClearList(AList: TList); + var + i: Integer; + + begin + for i := 0 to AList.Count - 1 do + TObject(AList[i]).Free; + AList.Clear; + end; + +begin + FEncDateTime := 0; + FNoteDateTime := 0; + FEncLocation := 0; + FEncSvcCat := 'A'; + FEncInpatient := FALSE; + FEncUseCurr := FALSE; + FStandAlone := FALSE; + FStandAloneLoaded := FALSE; + FParent := ''; + FHistoricalLocation := ''; + FSCRelated := SCC_NA; + FAORelated := SCC_NA; + FIRRelated := SCC_NA; + FECRelated := SCC_NA; + FMSTRelated := SCC_NA; + FHNCRelated := SCC_NA; + FCVRelated := SCC_NA; + + ClearList(FDiagnoses); + ClearList(FProcedures); + ClearList(FImmunizations); + ClearList(FSkinTests); + ClearList(FPatientEds); + ClearList(FHealthFactors); + ClearList(FExams); + + FVisitType.Clear; + FProviders.Clear; + FSCChanged := False; + FNoteIEN := 0; + FNoteTitle := 0; +end; + +procedure TPCEData.CopyDiagnoses(Dest: TStrings); +begin + CopyPCEItems(FDiagnoses, Dest, TPCEDiag); +end; + +procedure TPCEData.CopyProcedures(Dest: TStrings); +begin + CopyPCEItems(FProcedures, Dest, TPCEProc); +end; + +procedure TPCEData.CopyImmunizations(Dest: TStrings); +begin + CopyPCEItems(FImmunizations, Dest, TPCEImm); +end; + +procedure TPCEData.CopySkinTests(Dest: TStrings); +begin + CopyPCEItems(FSkinTests, Dest, TPCESkin); +end; + +procedure TPCEData.CopyPatientEds(Dest: TStrings); +begin + CopyPCEItems(FPatientEds, Dest, TPCEPat); +end; + +procedure TPCEData.CopyHealthFactors(Dest: TStrings); +begin + CopyPCEItems(FHealthFactors, Dest, TPCEHealth); +end; + +procedure TPCEData.CopyExams(Dest: TStrings); +begin + CopyPCEItems(FExams, Dest, TPCEExams); +end; + +function TPCEData.GetVisitString: string; +begin + Result := IntToStr(FEncLocation) + ';' + FloatToStr(VisitDateTime) + ';' + FEncSvcCat; +end; + +function TPCEData.GetCPTRequired: Boolean; +begin + Result := (([ndDiag, ndProc] * NeededPCEData) <> []); +end; + +procedure TPCEData.PCEForNote(NoteIEN: Integer; EditObj: TPCEData); +(*const + NULL_STR = ''; +begin + PCEForNote(NoteIEN, EditObj, NULL_STR); +end; + +procedure TPCEData.PCEForNote(NoteIEN: Integer; EditObj: TPCEData; DCSummAdmitString: string);*) +var + i, j: Integer; + TmpCat, TmpVStr: string; + x: string; + DoCopy, IsVisit: Boolean; + PCEList, VisitTypeList: TStringList; + ADiagnosis: TPCEDiag; + AProcedure: TPCEProc; + AImmunization: TPCEImm; + ASkinTest: TPCESkin; + APatientEd: TPCEPat; + AHealthFactor: TPCEHealth; + AExam: TPCEExams; + FileVStr: string; + FileIEN: integer; + GetCat, DoRestore: boolean; + FRestDate: TFMDateTime; +// AProvider: TPCEProvider; {6/9/99} + + function SCCValue(x: string): Integer; + begin + Result := SCC_NA; + if Piece(x, U, 3) = '1' then Result := SCC_YES; + if Piece(x, U, 3) = '0' then Result := SCC_NO; + end; + + function AppendComment(x: string): String; + begin + //check for comment append string if a comment exists + If (((i+1) <= (PCEList.Count - 1)) and (Copy(PCEList[(i+1)], 1, 3) = 'COM')) then + begin + //remove last piece (comment sequence number) from x. + While x[length(x)] <> U do + x := Copy(X,0,(length(x)-1)); + //add last piece of comment to x + x := X + Piece (PCEList[(i+1)],U,3); + end; + result := x; + end; + +begin +(* if DCSummAdmitString <> '' then + TmpVStr := DCSummAdmitString + else*) if(NoteIEN < 1) then + TmpVStr := Encounter.VisitStr + else + begin + TmpVStr := VisitStrForNote(NoteIEN); + if(FEncSvcCat = #0) then + GetCat :=TRUE + else + if(GetVisitString = '0;0;A') then + begin + FEncLocation := StrToIntDef(Piece(TmpVStr, ';', 1), 0); + FEncDateTime := StrToFloatDef(Piece(TmpVStr, ';', 2),0); + GetCat :=TRUE + end + else + GetCat := FALSE; + if(GetCat) then + begin + TmpCat := Piece(TmpVStr, ';', 3); + if(TmpCat <> '') then + FEncSvcCat := TmpCat[1]; + end; + end; + + if(assigned(EditObj)) then + begin + if(copy(TmpVStr,1,2) <> '0;') and // has location + (pos(';0;',TmpVStr) = 0) and // has time + (EditObj.GetVisitString = TmpVStr) then + begin + if(FEncSvcCat = 'H') and (FEncInpatient) then + DoCopy := (FNoteDateTime = EditObj.FNoteDateTime) + else + DoCopy := TRUE; + if(DoCopy) then + begin + if(EditObj <> Self) then + begin + EditObj.CopyPCEData(Self); + FNoteTitle := 0; + FNoteIEN := 0; + end; + exit; + end; + end; + end; + + TmpCat := Piece(TmpVStr, ';', 3); + if(TmpCat <> '') then + FEncSvcCat := TmpCat[1] + else + FEncSvcCat := #0; + FEncLocation := StrToIntDef(Piece(TmpVStr,';',1),0); + FEncDateTime := StrToFloatDef(Piece(TmpVStr, ';', 2),0); + + if(IsSecondaryVisit and (FEncLocation > 0)) then + begin + FileIEN := USE_CURRENT_VISITSTR; + FileVStr := IntToStr(FEncLocation) + ';' + FloatToStr(FNoteDateTime) + ';' + + GetLocSecondaryVisitCode(FEncLocation); + DoRestore := TRUE; + FRestDate := FEncDateTime; + end + else + begin + DoRestore := FALSE; + FRestDate := 0; + FileIEN := NoteIEN; +(* if DCSummAdmitString <> '' then + FileVStr := DCSummAdmitString + else*) if(FileIEN < 0) then + FileVStr := Encounter.VisitStr + else + FileVStr := ''; + end; + + Clear; + PCEList := TStringList.Create; + VisitTypeList := TStringList.Create; + try + LoadPCEDataForNote(PCEList, FileIEN, FileVStr); // calls broker RPC to load data + FNoteIEN := NoteIEN; + for i := 0 to PCEList.Count - 1 do + begin + x := PCEList[i]; + if Copy(x, 1, 4) = 'HDR^' then // HDR ^ Inpatient ^ ProcReq ^ VStr ^ Provider + {header information-------------------------------------------------------------} + begin + FEncInpatient := Piece(x, U, 2) = '1'; + //FCPTRequired := Piece(x, U, 3) = '1'; + //FNoteHasCPT := Piece(x, U, 6) = '1'; //4/21/99 error! PIECE 3 = cptRequired, not HasCPT! + FEncLocation := StrToIntDef(Piece(Piece(x, U, 4), ';', 1), 0); + if DoRestore then + begin + FEncSvcCat := 'H'; + FEncDateTime := FRestDate; + FNoteDateTime := MakeFMDateTime(Piece(Piece(x, U, 4), ';', 2)); + end + else + begin + FEncDateTime := MakeFMDateTime(Piece(Piece(x, U, 4), ';', 2)); + FEncSvcCat := CharAt(Piece(Piece(x, U, 4), ';', 3), 1); + end; + //FEncProvider := StrToInt64Def(Piece(x, U, 5), 0); + ListVisitTypeByLoc(VisitTypeList, FEncLocation, FEncDateTime); + //set the values needed fot the RPCs + SetRPCEncLocation(FEncLocation); +// SetRPCEncDateTime(FEncDateTime); + end; + {visit information--------------------------------------------------------------} + if Copy(x, 1, 7) = 'VST^DT^' then + begin + if DoRestore then + begin + FEncDateTime := FRestDate; + FNoteDateTime := MakeFMDateTime(Piece(x, U, 3)); + end + else + FEncDateTime := MakeFMDateTime(Piece(x, U, 3)); + end; + if Copy(x, 1, 7) = 'VST^HL^' then FEncLocation := StrToIntDef(Piece(x, U, 3), 0); + if Copy(x, 1, 7) = 'VST^VC^' then + begin + if DoRestore then + FEncSvcCat := 'H' + else + FEncSvcCat := CharAt(x, 8); + end; + if Copy(x, 1, 7) = 'VST^PS^' then FEncInpatient := CharAt(x, 8) = '1'; + {6/10/99}//if Copy(x, 1, 4) = 'PRV^' then FEncProvider := StrToInt64Def(Piece(x, U, 2), 0); + if Copy(x, 1, 7) = 'VST^SC^' then FSCRelated := SCCValue(x); + if Copy(x, 1, 7) = 'VST^AO^' then FAORelated := SCCValue(x); + if Copy(x, 1, 7) = 'VST^IR^' then FIRRelated := SCCValue(x); + if Copy(x, 1, 7) = 'VST^EC^' then FECRelated := SCCValue(x); + if Copy(x, 1, 8) = 'VST^MST^' then FMSTRelated := SCCValue(x); +// if HNCOK and (Copy(x, 1, 8) = 'VST^HNC^') then + if Copy(x, 1, 8) = 'VST^HNC^' then FHNCRelated := SCCValue(x); + if Copy(x, 1, 7) = 'VST^CV^' then FCVRelated := SCCValue(x); + if (Copy(x, 1, 3) = 'PRV') and (CharAt(x, 4) <> '-') then + {Providers---------------------------------------------------------------------} + begin + FProviders.Add(x); + end; + + if (Copy(x, 1, 3) = 'POV') and (CharAt(x, 4) <> '-') then + {'POV'=Diagnosis--------------------------------------------------------------} + begin + //check for comment append string if a comment exists + x := AppendComment(x); + ADiagnosis := TPCEDiag.Create; + ADiagnosis.SetFromString(x); + FDiagnoses.Add(ADiagnosis); + end; + if (Copy(x, 1, 3) = 'CPT') and (CharAt(x, 4) <> '-') then + {CPT (procedure) information--------------------------------------------------} + begin + x := AppendComment(x); + + IsVisit := False; + with VisitTypeList do for j := 0 to Count - 1 do + if Pieces(x, U, 2, 4) = Strings[j] then IsVisit := True; + if IsVisit and (FVisitType.Code = '') then FVisitType.SetFromString(x) else + begin + AProcedure := TPCEProc.Create; + AProcedure.SetFromString(x); + AProcedure.fIsOldProcedure := TRUE; + FProcedures.Add(AProcedure); + end; {if IsVisit} + end; {if Copy} + if (Copy(x, 1, 3) = 'IMM') and (CharAt(x, 4) <> '-') then + {Immunizations ---------------------------------------------------------------} + begin + x := AppendComment(x); + AImmunization := TPCEImm.Create; + AImmunization.SetFromString(x); + FImmunizations.Add(AImmunization); + end; + if (Copy(x, 1, 2) = 'SK') and (CharAt(x, 3) <> '-') then + {Skin Tests-------------------------------------------------------------------} + begin + x := AppendComment(x); + ASkinTest := TPCESkin.Create; + ASkinTest.SetFromString(x); + FSkinTests.Add(ASkinTest); + end; + if (Copy(x, 1, 3) = 'PED') and (CharAt(x, 3) <> '-') then + {Patient Educations------------------------------------------------------------} + begin + x := AppendComment(x); + APatientEd := TPCEpat.Create; + APatientEd.SetFromString(x); + FpatientEds.Add(APatientEd); + end; + if (Copy(x, 1, 2) = 'HF') and (CharAt(x, 3) <> '-') then + {Health Factors----------------------------------------------------------------} + begin + x := AppendComment(x); + AHealthFactor := TPCEHealth.Create; + AHealthFactor.SetFromString(x); + FHealthFactors.Add(AHealthFactor); + end; + if (Copy(x, 1, 3) = 'XAM') and (CharAt(x, 3) <> '-') then + {Exams ------------------------------------------------------------------------} + begin + x := AppendComment(x); + AExam := TPCEExams.Create; + AExam.SetFromString(x); + FExams.Add(AExam); + end; + + end; + finally + PCEList.Free; + VisitTypeList.Free; + end; +end; + +//procedure TPCEData.Save; +//modified: 6/17/98 +//By: Robert Bott +//Location: ISL +//Purpose: Add Comments to PCE Items. +procedure TPCEData.Save; +{ pass the changes to the encounter to DATA2PCE, + Pieces: Subscript^Code^Qualifier^Category^Narrative^Delete } +var + i: Integer; + x, AVisitStr, EncName, Temp2: string; + PCEList: TStringList; + FileCat: char; + FileDate: TFMDateTime; + FileNoteIEN: integer; + dstring1,dstring2: pchar; //used to separate former DelimitedStr variable + // into two strings, the second being for the comment. + +begin + PCEList := TStringList.Create; + UNxtCommSeqNum := 1; + try + with PCEList do + begin + if(IsSecondaryVisit) then + begin + FileCat := GetLocSecondaryVisitCode(FEncLocation); + FileDate := FNoteDateTime; + FileNoteIEN := NoteIEN; + if((NoteIEN > 0) and ((FParent = '') or (FParent = '0'))) then + FParent := GetVisitIEN(NoteIEN); + end + else + begin + FileCat := FEncSvcCat; + FileDate := FEncDateTime; + FileNoteIEN := 0; + end; + AVisitStr := IntToStr(FEncLocation) + ';' + FloatToStr(FileDate) + ';' + FileCat; + Add('HDR^' + BOOLCHAR[FEncInpatient] + U + U + AVisitStr); +// Add('HDR^' + BOOLCHAR[FEncInpatient] + U + BOOLCHAR[FNoteHasCPT] + U + AVisitStr); + // set up list that can be passed via broker to set up array for DATA2PCE + Add('VST^DT^' + FloatToStr(FileDate)); // Encounter Date/Time + Add('VST^PT^' + Patient.DFN); // Encounter Patient //*DFN* + if(FEncLocation > 0) then + Add('VST^HL^' + IntToStr(FEncLocation)); // Encounter Location + Add('VST^VC^' + FileCat); // Encounter Service Category + if(StrToIntDef(FParent,0) > 0) then + Add('VST^PR^' + FParent); // Parent for secondary visit + if(FileCat = 'E') and (FHistoricalLocation <> '') then + Add('VST^OL^' + FHistoricalLocation); // Outside Location + + //Add('PRV^' + IntToStr(FEncProvider)); // Encounter Provider + //Add('PRV^' + IntToStr(UProvider.IEN)); // Encounter Provider + {with FProviders do for i := 0 to Count - 1 do with TPCEProvider(Items[i]) do + begin + PCEList.Add(DelimitedStr); + end;} + PCEList.AddStrings(FProviders); + + if FSCChanged then + begin + if FSCRelated <> SCC_NA then Add('VST^SC^' + IntToStr(FSCRelated)); + if FAORelated <> SCC_NA then Add('VST^AO^' + IntToStr(FAORelated)); + if FIRRelated <> SCC_NA then Add('VST^IR^' + IntToStr(FIRRelated)); + if FECRelated <> SCC_NA then Add('VST^EC^' + IntToStr(FECRelated)); + if FMSTRelated <> SCC_NA then Add('VST^MST^' + IntToStr(FMSTRelated)); +// if HNCOK and (FHNCRelated <> SCC_NA) then + if FHNCRelated <> SCC_NA then Add('VST^HNC^' + IntToStr(FHNCRelated)); + if FCVRelated <> SCC_NA then Add('VST^CV^' + IntToStr(FCVRelated)); + end; + with FDiagnoses do for i := 0 to Count - 1 do with TPCEDiag(Items[i]) do + if FSend then + begin + Temp2 := DelimitedStr2; // Call first to make sure SaveComment is set. + if(SaveComment) then + dec(UNxtCommSeqNum); + fProvider := FProviders.PCEProvider; + // Provides user with list of dx when signing orders - Billing Aware + PCEList.Add(DelimitedStr); + if(SaveComment) then + begin + inc(UNxtCommSeqNum); + if(Temp2 <> '') then + PCEList.Add(Temp2); + end; + end; + with FProcedures do for i := 0 to Count - 1 do with TPCEProc(Items[i]) do + if FSend then + begin + PCEList.Add(DelimitedStr); + PCEList.Add(DelimitedStr2); + end; + with FImmunizations do for i := 0 to Count - 1 do with TPCEImm(Items[i]) do + if FSend then + begin + PCEList.Add(DelimitedStr); + PCEList.Add(DelimitedStr2); + end; + with FSkinTests do for i := 0 to Count - 1 do with TPCESkin(Items[i]) do + if FSend then + begin + PCEList.Add(DelimitedStr); + PCEList.Add(DelimitedStr2); + end; + with FPatientEds do for i := 0 to Count - 1 do with TPCEPat(Items[i]) do + if FSend then + begin + PCEList.Add(DelimitedStr); + PCEList.Add(DelimitedStr2); + end; + with FHealthFactors do for i := 0 to Count - 1 do with TPCEHealth(Items[i]) do + if FSend then + begin + PCEList.Add(DelimitedStr); + PCEList.Add(DelimitedStr2); + end; + with FExams do for i := 0 to Count - 1 do with TPCEExams(Items[i]) do + if FSend then + begin + PCEList.Add(DelimitedStr); + PCEList.Add(DelimitedStr2); + end; + + with FVisitType do + begin + if Code = '' then Fsend := false; + if FSend then + begin + PCEList.Add(DelimitedStr); + PCEList.Add(DelimitedStr2); + end; + end; + // call DATA2PCE (in background) + SavePCEData(PCEList, FileNoteIEN, FEncLocation); + + // turn off 'Send' flags and remove items that were deleted + with FDiagnoses do for i := Count - 1 downto 0 do with TPCEDiag(Items[i]) do + begin + FSend := False; + if FDelete then + begin + TPCEDiag(Items[i]).Free; + Delete(i); + end; + end; + with FProcedures do for i := Count - 1 downto 0 do with TPCEProc(Items[i]) do + begin + FSend := False; + if FDelete then + begin + TPCEProc(Items[i]).Free; + Delete(i); + end; + end; + with FImmunizations do for i := Count - 1 downto 0 do with TPCEImm(Items[i]) do + begin + FSend := False; + if FDelete then + begin + TPCEImm(Items[i]).Free; + Delete(i); + end; + end; + with FSkinTests do for i := Count - 1 downto 0 do with TPCESkin(Items[i]) do + begin + FSend := False; + if FDelete then + begin + TPCESkin(Items[i]).Free; + Delete(i); + end; + end; + with FPatientEds do for i := Count - 1 downto 0 do with TPCEPat(Items[i]) do + begin + FSend := False; + if FDelete then + begin + TPCEPat(Items[i]).Free; + Delete(i); + end; + end; + with FHealthFactors do for i := Count - 1 downto 0 do with TPCEHealth(Items[i]) do + begin + FSend := False; + if FDelete then + begin + TPCEHealth(Items[i]).Free; + Delete(i); + end; + end; + with FExams do for i := Count - 1 downto 0 do with TPCEExams(Items[i]) do + begin + FSend := False; + if FDelete then + begin + TPCEExams(Items[i]).Free; + Delete(i); + end; + end; + + for i := FProviders.Count - 1 downto 0 do + begin + if(FProviders.ProviderData[i].Delete) then + FProviders.Delete(i); + end; + + if FVisitType.FDelete then FVisitType.Clear else FVisitType.FSend := False; + end; {with PCEList} + //if (FProcedures.Count > 0) or (FVisitType.Code <> '') then FCPTRequired := False; + + // update the Changes object + EncName := FormatFMDateTime('mmm dd,yy hh:nn', FileDate); + x := StrVisitType; + if Length(x) > 0 then Changes.Add(CH_PCE, 'V' + AVisitStr, x, EncName, CH_SIGN_NA); + x := StrProcedures; + if Length(x) > 0 then Changes.Add(CH_PCE, 'P' + AVisitStr, x, EncName, CH_SIGN_NA); + x := StrDiagnoses; + if Length(x) > 0 then Changes.Add(CH_PCE, 'D' + AVisitStr, x, EncName, CH_SIGN_NA); + x := StrImmunizations; + if Length(x) > 0 then Changes.Add(CH_PCE, 'I' + AVisitStr, x, EncName, CH_SIGN_NA); + x := StrSkinTests; + if Length(x) > 0 then Changes.Add(CH_PCE, 'S' + AVisitStr, x, EncName, CH_SIGN_NA); + x := StrPatientEds; + if Length(x) > 0 then Changes.Add(CH_PCE, 'A' + AVisitStr, x, EncName, CH_SIGN_NA); + x := StrHealthFactors; + if Length(x) > 0 then Changes.Add(CH_PCE, 'H' + AVisitStr, x, EncName, CH_SIGN_NA); + x := StrExams; + if Length(x) > 0 then Changes.Add(CH_PCE, 'E' + AVisitStr, x, EncName, CH_SIGN_NA); + + + finally + PCEList.Free; + end; +end; + +function TPCEData.MatchItem(AList: TList; AnItem: TPCEItem): Integer; +{ return index in AList of matching item } +var + i: Integer; +begin + Result := -1; +// with AList do for i := 0 to Count - 1 do with TPCEItem(Items[i]) do if Match(AnItem) and MatchProvider(AnItem)then + with AList do for i := 0 to Count - 1 do with TPCEItem(Items[i]) do if Match(AnItem) and MatchProvider(AnItem)then +// with AList do for i := 0 to Count - 1 do with TPCEItem(Items[i]) do if Match(AnItem) then + begin + Result := i; + break; + end; +end; + +procedure TPCEData.MarkDeletions(PreList: TList; PostList: TStrings); +{mark items that need deleted} +var + i, j: Integer; + MatchFound: Boolean; + PreItem, PostItem: TPCEItem; +begin + with PreList do for i := 0 to Count - 1 do + begin + PreItem := TPCEItem(Items[i]); + MatchFound := False; + with PostList do for j := 0 to Count - 1 do + begin + PostItem := TPCEItem(Objects[j]); +// if (PreItem.Match(PostItem) and (PreItem.MatchProvider(PostItem))) then MatchFound := True; + if (PreItem.Match(PostItem) and (PreItem.MatchProvider(PostItem))) then MatchFound := True; +// if (PreItem.Match(PostItem)) then MatchFound := True; + end; + if not MatchFound then + begin + PreItem.FDelete := True; + PreItem.FSend := True; + end; + end; +end; + +procedure TPCEData.SetDiagnoses(Src: TStrings; FromForm: boolean = TRUE); +{ load diagnoses for this encounter into TPCEDiag records, assumes all diagnoses for the + encounter will be listed in Src and marks those that are not in Src for deletion } +var + i, MatchIndex: Integer; + SrcDiagnosis, CurDiagnosis, PrimaryDiag: TPCEDiag; +begin + if FromForm then MarkDeletions(FDiagnoses, Src); + PrimaryDiag := nil; + for i := 0 to Src.Count - 1 do + begin + SrcDiagnosis := TPCEDiag(Src.Objects[i]); + MatchIndex := MatchItem(FDiagnoses, SrcDiagnosis); + if MatchIndex > -1 then //found in fdiagnoses + begin + CurDiagnosis := TPCEDiag(FDiagnoses.Items[MatchIndex]); + if ((SrcDiagnosis.Primary <> CurDiagnosis.Primary) or + (SrcDiagnosis.Comment <> CurDiagnosis.Comment) or + (SrcDiagnosis.AddProb <> CurDiagnosis.Addprob)) then + begin + CurDiagnosis.Primary := SrcDiagnosis.Primary; + CurDiagnosis.Comment := SrcDiagnosis.Comment; + CurDiagnosis.AddProb := SrcDiagnosis.AddProb; + CurDiagnosis.FSend := True; + end; + end else + begin + CurDiagnosis := TPCEDiag.Create; + CurDiagnosis.Assign(SrcDiagnosis); + CurDiagnosis.FSend := True; + FDiagnoses.Add(CurDiagnosis); + end; {if MatchIndex} + if(CurDiagnosis.Primary and (not assigned(PrimaryDiag))) then + PrimaryDiag := CurDiagnosis; + end; {for} + if(assigned(PrimaryDiag)) then + begin + for i := 0 to FDiagnoses.Count - 1 do + begin + CurDiagnosis := TPCEDiag(FDiagnoses[i]); + if(CurDiagnosis.Primary) and (CurDiagnosis <> PrimaryDiag) then + begin + CurDiagnosis.Primary := FALSE; + CurDiagnosis.FSend := True; + end; + end; + end; +end; + +procedure TPCEData.SetProcedures(Src: TStrings; FromForm: boolean = TRUE); +{ load Procedures for this encounter into TPCEProc records, assumes all Procedures for the + encounter will be listed in Src and marks those that are not in Src for deletion } +var + i, MatchIndex: Integer; + SrcProcedure, CurProcedure, OldProcedure: TPCEProc; +begin + if FromForm then MarkDeletions(FProcedures, Src); + for i := 0 to Src.Count - 1 do + begin + SrcProcedure := TPCEProc(Src.Objects[i]); + MatchIndex := MatchItem(FProcedures, SrcProcedure); + if MatchIndex > -1 then + begin + CurProcedure := TPCEProc(FProcedures.Items[MatchIndex]); +(* if (SrcProcedure.Provider <> CurProcedure.Provider) then + begin + OldProcedure := TPCEProc.Create; + OldProcedure.Assign(CurProcedure); + OldProcedure.FDelete := TRUE; + OldProcedure.FSend := TRUE; + FProcedures.Add(OldProcedure); + end;*) + if (SrcProcedure.Quantity <> CurProcedure.Quantity) or + (SrcProcedure.Provider <> CurProcedure.Provider) or + (Curprocedure.Comment <> SrcProcedure.Comment) or + (Curprocedure.Modifiers <> SrcProcedure.Modifiers)then + begin + OldProcedure := TPCEProc.Create; + OldProcedure.Assign(CurProcedure); + OldProcedure.FDelete := TRUE; + OldProcedure.FSend := TRUE; + FProcedures.Add(OldProcedure); + CurProcedure.Quantity := SrcProcedure.Quantity; + CurProcedure.Provider := SrcProcedure.Provider; + CurProcedure.Comment := SrcProcedure.Comment; + CurProcedure.Modifiers := SrcProcedure.Modifiers; + CurProcedure.FSend := True; + end; + end else + begin + CurProcedure := TPCEProc.Create; + CurProcedure.Assign(SrcProcedure); + CurProcedure.FSend := True; + FProcedures.Add(CurProcedure); + end; {if MatchIndex} + end; {for} +end; + + + +procedure TPCEData.SetImmunizations(Src: TStrings; FromForm: boolean = TRUE); +{ load Immunizations for this encounter into TPCEImm records, assumes all Immunizations for the + encounter will be listed in Src and marks those that are not in Src for deletion } +var + i, MatchIndex: Integer; + SrcImmunization, CurImmunization: TPCEImm; +begin + if FromForm then MarkDeletions(FImmunizations, Src); + for i := 0 to Src.Count - 1 do + begin + SrcImmunization := TPCEImm(Src.Objects[i]); + MatchIndex := MatchItem(FImmunizations, SrcImmunization); + if MatchIndex > -1 then + begin + CurImmunization := TPCEImm(FImmunizations.Items[MatchIndex]); + + //set null strings to NoPCEValue + if SrcImmunization.Series = '' then SrcImmunization.Series := NoPCEValue; + if SrcImmunization.Reaction = '' then SrcImmunization.Reaction := NoPCEValue; + if CurImmunization.Series = '' then CurImmunization.Series := NoPCEValue; + if CurImmunization.Reaction = '' then CurImmunization.Reaction := NoPCEValue; + +// if (SrcImmunization.Provider <> CurImmunization.Provider) or + if(SrcImmunization.Series <> CurImmunization.Series) or + (SrcImmunization.Reaction <> CurImmunization.Reaction) or + (SrcImmunization.Refused <> CurImmunization.Refused) or + (SrcImmunization.Contraindicated <> CurImmunization.Contraindicated) or + (CurImmunization.Comment <> SrcImmunization.Comment)then + begin +// CurImmunization.Provider := SrcImmunization.Provider; + CurImmunization.Series := SrcImmunization.Series; + CurImmunization.Reaction := SrcImmunization.Reaction; + CurImmunization.Refused := SrcImmunization.Refused; + CurImmunization.Contraindicated := SrcImmunization.Contraindicated; + CurImmunization.Comment := SrcImmunization.Comment; + CurImmunization.FSend := True; + end; + end else + begin + CurImmunization := TPCEImm.Create; + CurImmunization.Assign(SrcImmunization); + CurImmunization.FSend := True; + FImmunizations.Add(CurImmunization); + end; {if MatchIndex} + end; {for} +end; + +procedure TPCEData.SetSkinTests(Src: TStrings; FromForm: boolean = TRUE); +{ load SkinTests for this encounter into TPCESkin records, assumes all SkinTests for the + encounter will be listed in Src and marks those that are not in Src for deletion } +var + i, MatchIndex: Integer; + SrcSkinTest, CurSkinTest: TPCESkin; +begin + if FromForm then MarkDeletions(FSKinTests, Src); + for i := 0 to Src.Count - 1 do + begin + SrcSkinTest := TPCESkin(Src.Objects[i]); + MatchIndex := MatchItem(FSKinTests, SrcSkinTest); + if MatchIndex > -1 then + begin + CurSkinTest := TPCESKin(FSkinTests.Items[MatchIndex]); + if CurSkinTest.Results = '' then CurSkinTest.Results := NoPCEValue; + if SrcSkinTest.Results = '' then SrcSkinTest.Results := NoPCEValue; +// if (SrcSkinTest.Provider <> CurSkinTest.Provider) or + if(SrcSkinTest.Results <> CurSkinTest.Results) or + (SrcSkinTest.Reading <> CurSkinTest.Reading) or + (CurSkinTest.Comment <> SrcSkinTest.Comment) then + begin +// CurSkinTest.Provider := SrcSkinTest.Provider; + CurSkinTest.Results := SrcSkinTest.Results; + CurSkinTest.Reading := SrcSkinTest.Reading; + CurSkinTest.Comment := SrcSkinTest.Comment; + CurSkinTest.FSend := True; + end; + end else + begin + CurSKinTest := TPCESkin.Create; + CurSkinTest.Assign(SrcSkinTest); + CurSkinTest.FSend := True; + FSkinTests.Add(CurSkinTest); + end; {if MatchIndex} + end; {for} +end; + +procedure TPCEData.SetPatientEds(Src: TStrings; FromForm: boolean = TRUE); +var + i, MatchIndex: Integer; + SrcPatientEd, CurPatientEd: TPCEPat; +begin + if FromForm then MarkDeletions(FPatientEds, Src); + for i := 0 to Src.Count - 1 do + begin + SrcPatientEd := TPCEPat(Src.Objects[i]); + MatchIndex := MatchItem(FPatientEds, SrcPatientEd); + if MatchIndex > -1 then + begin + CurPatientEd := TPCEPat(FPatientEds.Items[MatchIndex]); + + if CurPatientEd.level = '' then CurPatientEd.level := NoPCEValue; + if SrcPatientEd.level = '' then SrcPatientEd.level := NoPCEValue; +// if (SrcPatientEd.Provider <> CurPatientEd.Provider) or + if(SrcPatientEd.Level <> CurPatientEd.Level) or + (CurPatientEd.Comment <> SrcPatientEd.Comment) then + begin +// CurPatientEd.Provider := SrcPatientEd.Provider; + CurPatientEd.Level := SrcPatientEd.Level; + CurPatientEd.Comment := SrcPatientEd.Comment; + CurPatientEd.FSend := True; + end; + end else + begin + CurPatientEd := TPCEPat.Create; + CurPatientEd.Assign(SrcPatientEd); + CurPatientEd.FSend := True; + FPatientEds.Add(CurPatientEd); + end; {if MatchIndex} + end; {for} +end; + + +procedure TPCEData.SetHealthFactors(Src: TStrings; FromForm: boolean = TRUE); + +var + i, MatchIndex: Integer; + SrcHealthFactor, CurHealthFactor: TPCEHealth; +begin + if FromForm then MarkDeletions(FHealthFactors, Src); + for i := 0 to Src.Count - 1 do + begin + SrcHealthFactor := TPCEHealth(Src.Objects[i]); + MatchIndex := MatchItem(FHealthFactors, SrcHealthFactor); + if MatchIndex > -1 then + begin + CurHealthFactor := TPCEHealth(FHealthFactors.Items[MatchIndex]); + + if CurHealthFactor.level = '' then CurHealthFactor.level := NoPCEValue; + if SrcHealthFactor.level = '' then SrcHealthFactor.level := NoPCEValue; +// if (SrcHealthFactor.Provider <> CurHealthFactor.Provider) or + if(SrcHealthFactor.Level <> CurHealthFactor.Level) or + (CurHealthFactor.Comment <> SrcHealthFactor.Comment) then + begin +// CurHealthFactor.Provider := SrcHealthFactor.Provider; + CurHealthFactor.Level := SrcHealthFactor.Level; + CurHealthFactor.Comment := SrcHealthFactor.Comment; + CurHealthFactor.FSend := True; + end; + if(SrcHealthFactor.GecRem <> CurHealthFactor.GecRem) then + CurHealthFactor.GecRem := SrcHealthFactor.GecRem; + end else + begin + CurHealthFactor := TPCEHealth.Create; + CurHealthFactor.Assign(SrcHealthFactor); + CurHealthFactor.FSend := True; + CurHealthFactor.GecRem := SrcHealthFactor.GecRem; + FHealthFactors.Add(CurHealthFactor); + end; {if MatchIndex} + end; {for} +end; + + +procedure TPCEData.SetExams(Src: TStrings; FromForm: boolean = TRUE); + +var + i, MatchIndex: Integer; + SrcExam, CurExam: TPCEExams; +begin + if FromForm then MarkDeletions(FExams, Src); + for i := 0 to Src.Count - 1 do + begin + SrcExam := TPCEExams(Src.Objects[i]); + MatchIndex := MatchItem(FExams, SrcExam); + if MatchIndex > -1 then + begin + CurExam := TPCEExams(FExams.Items[MatchIndex]); + if CurExam.Results = '' then CurExam.Results := NoPCEValue; + if SrcExam.Results = '' then SrcExam.Results := NoPCEValue; +// if (SrcExam.Provider <> CurExam.Provider) or + if(SrcExam.Results <> CurExam.Results) or + (CurExam.Comment <> SrcExam.Comment) then + begin +// CurExam.Provider := SrcExam.Provider; + CurExam.Results := SrcExam.Results; + CurExam.Comment := SrcExam.Comment; + CurExam.Fsend := True; + end; + end else + begin + CurExam := TPCEExams.Create; + CurExam.Assign(SrcExam); + CurExam.FSend := True; + FExams.Add(CurExam); + end; {if MatchIndex} + end; {for} +end; + + +procedure TPCEData.SetVisitType(Value: TPCEProc); +var + VisitDelete: TPCEProc; +begin + if (not FVisitType.Match(Value)) or + (FVisitType.Modifiers <> Value.Modifiers) then {causes CPT delete/re-add} + begin + if FVisitType.Code <> '' then // add old visit to procedures for deletion + begin + VisitDelete := TPCEProc.Create; + VisitDelete.Assign(FVisitType); + VisitDelete.FDelete := True; + VisitDelete.FSend := True; + FProcedures.Add(VisitDelete); + end; + FVisitType.Assign(Value); + FVisitType.Quantity := 1; + FVisitType.FSend := True; + end; +end; + +procedure TPCEData.SetSCRelated(Value: Integer); +begin + if Value <> FSCRelated then + begin + FSCRelated := Value; + FSCChanged := True; + end; +end; + +procedure TPCEData.SetAORelated(Value: Integer); +begin + if Value <> FAORelated then + begin + FAORelated := Value; + FSCChanged := True; + end; +end; + +procedure TPCEData.SetIRRelated(Value: Integer); +begin + if Value <> FIRRelated then + begin + FIRRelated := Value; + FSCChanged := True; + end; +end; + +procedure TPCEData.SetECRelated(Value: Integer); +begin + if Value <> FECRelated then + begin + FECRelated := Value; + FSCChanged := True; + end; +end; + +procedure TPCEData.SetMSTRelated(Value: Integer); +begin + if Value <> FMSTRelated then + begin + FMSTRelated := Value; + FSCChanged := True; + end; +end; + +procedure TPCEData.SetHNCRelated(Value: Integer); +begin +// if HNCOK and (Value <> FHNCRelated) then + if Value <> FHNCRelated then + begin + FHNCRelated := Value; + FSCChanged := True; + end; +end; + +procedure TPCEData.SetCVRelated(Value: Integer); +begin + if (Value <> FCVRelated) then + begin + FCVRelated := Value; + FSCChanged := True; + end; +end; + +procedure TPCEData.SetEncUseCurr(Value: Boolean); +begin + FEncUseCurr := Value; + if FEncUseCurr then + begin + FEncDateTime := Encounter.DateTime; + FEncLocation := Encounter.Location; + //need to add to full list of providers + FEncSvcCat := Encounter.VisitCategory; + FStandAlone := Encounter.StandAlone; + FStandAloneLoaded := TRUE; + //FCPTRequired := Encounter.StandAlone; + FEncInpatient := Encounter.Inpatient; + //if FEncInpatient then FCPTRequired := False; + //SetDefaultProvider(FProviders, FEncLocation, FNoteIEN, PersonClassDate); + end else + begin + FEncDateTime := 0; + FEncLocation := 0; + FStandAlone := FALSE; + FStandAloneLoaded := FALSE; + FProviders.PrimaryIdx := -1; + FEncSvcCat := 'A'; + //FCPTRequired := False; + FEncInpatient := False; + end; + // + SetRPCEncLocation(FEncLocation); +// SetRPCEncDateTime(FEncDateTime); +end; + +function TPCEData.StrDiagnoses: string; +{ returns the list of diagnoses for this encounter as a single comma delimited string } +var + i: Integer; +begin + Result := ''; + with FDiagnoses do for i := 0 to Count - 1 do with TPCEDiag(Items[i]) do + if not FDelete then + Result := Result + GetPCEDataText(pdcDiag, Code, Category, Narrative, Primary) + ', '; + if Length(Result) > 0 then Result := PCEDataCatText[pdcDiag] + Copy(Result, 1, Length(Result) - 2); +end; + +function TPCEData.StrProcedures: string; +{ returns the list of procedures for this encounter as a single comma delimited string } +var + i: Integer; +begin + Result := ''; + with FProcedures do for i := 0 to Count - 1 do with TPCEProc(Items[i]) do + if not FDelete then + Result := Result + GetPCEDataText(pdcProc, Code, Category, Narrative, FALSE, Quantity) + + ModText + ', '; + if Length(Result) > 0 then Result := PCEDataCatText[pdcProc] + Copy(Result, 1, Length(Result) - 2); +end; + +function TPCEData.StrImmunizations: string; +{ returns the list of Immunizations for this encounter as a single comma delimited string } +var + i: Integer; +begin + Result := ''; + with FImmunizations do for i := 0 to Count - 1 do with TPCEImm(Items[i]) do + if not FDelete then + Result := Result + GetPCEDataText(pdcImm, Code, Category, Narrative) + ', '; + if Length(Result) > 0 then Result := PCEDataCatText[pdcImm] + Copy(Result, 1, Length(Result) - 2); +end; + + +function TPCEData.StrSkinTests: string; +{ returns the list of Immunizations for this encounter as a single comma delimited string } +var + i: Integer; +begin + Result := ''; + with FSkinTests do for i := 0 to Count - 1 do with TPCESkin(Items[i]) do + if not FDelete then + Result := Result + GetPCEDataText(pdcSkin, Code, Category, Narrative) + ', '; + if Length(Result) > 0 then Result := PCEDataCatText[pdcSkin] + Copy(Result, 1, Length(Result) - 2); +end; + +function TPCEData.StrPatientEds: string; +var + i: Integer; +begin + Result := ''; + with FPatientEds do for i := 0 to Count - 1 do with TPCEPat(Items[i]) do + if not FDelete then + Result := Result + GetPCEDataText(pdcPED, Code, Category, Narrative) + ', '; + if Length(Result) > 0 then Result := PCEDataCatText[pdcPED] + Copy(Result, 1, Length(Result) - 2); +end; + +function TPCEData.StrHealthFactors: string; +var + i: Integer; +begin + Result := ''; + with FHealthFactors do for i := 0 to Count - 1 do with TPCEHealth(Items[i]) do + if not FDelete then + Result := Result + GetPCEDataText(pdcHF, Code, Category, Narrative) + ', '; + if Length(Result) > 0 then Result := PCEDataCatText[pdcHF] + Copy(Result, 1, Length(Result) - 2); +end; + +function TPCEData.StrExams: string; +var + i: Integer; +begin + Result := ''; + with FExams do for i := 0 to Count - 1 do with TPCEExams(Items[i]) do + if not FDelete then + Result := Result + GetPCEDataText(pdcExam, Code, Category, Narrative) + ', '; + if Length(Result) > 0 then Result := PCEDataCatText[pdcExam] + Copy(Result, 1, Length(Result) - 2); +end; + +function TPCEData.StrVisitType(const ASCRelated, AAORelated, AIRRelated, + AECRelated, AMSTRelated, AHNCRelated, ACVRelated: Integer): string; +{ returns as a string the type of encounter (according to CPT) & related contitions treated } + + procedure AddTxt(txt: string); + begin + if(Result <> '') then + Result := Result + ','; + Result := Result + ' ' + txt; + end; + +begin + Result := ''; + if ASCRelated = SCC_YES then AddTxt('Service Connected Condition'); + if AAORelated = SCC_YES then AddTxt('Agent Orange Exposure'); + if AIRRelated = SCC_YES then AddTxt('Ionizing Radiation Exposure'); + if AECRelated = SCC_YES then AddTxt('Environmental Contaminants'); + if AMSTRelated = SCC_YES then AddTxt('MST');//'Military Sexual Trauma'; +// if HNCOK and (AHNCRelated = SCC_YES) then AddTxt('Head and/or Neck Cancer'); + if AHNCRelated = SCC_YES then AddTxt('Head and/or Neck Cancer'); + if ACVRelated = SCC_YES then AddTxt('Combat Veteran Related'); + if Length(Result) > 0 then Result := ' related to: ' + Result; +// Result := Trim(Result); +end; + +function TPCEData.StrVisitType: string; +{ returns as a string the type of encounter (according to CPT) & related contitions treated } +begin + Result := ''; + with FVisitType do + begin + Result := GetPCEDataText(pdcVisit, Code, Category, Narrative); + if Length(ModText) > 0 then Result := Result + ModText + ', '; + end; + Result := Trim(Result + StrVisitType(FSCRelated, FAORelated, FIRRelated, + FECRelated, FMSTRelated, FHNCRelated, FCVRelated)); +end; + +function TPCEData.StandAlone: boolean; +var + Sts: integer; + +begin + if(not FStandAloneLoaded) and ((FNoteIEN > 0) or ((FEncLocation > 0) and (FEncDateTime > 0))) then + begin + Sts := HasVisit(FNoteIEN, FEncLocation, FEncDateTime); + FStandAlone := (Sts <> 1); + if(Sts >= 0) then + FStandAloneLoaded := TRUE; + end; + Result := FStandAlone; +end; + +function TPCEData.getDocCount: Integer; +begin + rESULT := 1; +// result := DocCount(vISIT); +end; + +{function TPCEItem.MatchProvider(AnItem: TPCEItem): Boolean; +begin + Result := False; + if (Provider = AnItem.Provider) then Result := True; +end; +} +function TPCEItem.MatchProvider(AnItem: TPCEItem): Boolean; +begin + Result := False; + if (Provider = AnItem.Provider) then Result := True; +end; + +function TPCEData.GetHasData: Boolean; +begin + result := True; + if ((FDiagnoses.count = 0) + and (FProcedures.count = 0) + and (FImmunizations.count = 0) + and (FSkinTests.count = 0) + and (FPatientEds.count = 0) + and (FHealthFactors.count = 0) + and (fExams.count = 0) and + (FvisitType.Quantity = 0))then + result := False; +end; + +procedure TPCEData.CopyPCEData(Dest: TPCEData); +begin + Dest.Clear; + Dest.FEncDateTime := FEncDateTime; + Dest.FNoteDateTime := FNoteDateTime; + Dest.FEncLocation := FEncLocation; + Dest.FEncSvcCat := FEncSvcCat; + Dest.FEncInpatient := FEncInpatient; + Dest.FStandAlone := FStandAlone; + Dest.FStandAloneLoaded := FStandAloneLoaded; + Dest.FEncUseCurr := FEncUseCurr; + Dest.FSCChanged := FSCChanged; + Dest.FSCRelated := FSCRelated; + Dest.FAORelated := FAORelated; + Dest.FIRRelated := FIRRelated; + Dest.FECRelated := FECRelated; + Dest.FMSTRelated := FMSTRelated; + Dest.FHNCRelated := FHNCRelated; + Dest.FCVRelated := FCVRelated; + FVisitType.CopyProc(Dest.VisitType); + Dest.FProviders.Assign(FProviders); + + CopyPCEItems(FDiagnoses, Dest.FDiagnoses, TPCEDiag); + CopyPCEItems(FProcedures, Dest.FProcedures, TPCEProc); + CopyPCEItems(FImmunizations, Dest.FImmunizations, TPCEImm); + CopyPCEItems(FSkinTests, Dest.FSkinTests, TPCESkin); + CopyPCEItems(FPatientEds, Dest.FPatientEds, TPCEPat); + CopyPCEItems(FHealthFactors, Dest.FHealthFactors, TPCEHealth); + CopyPCEItems(FExams, Dest.FExams, TPCEExams); + + Dest.FNoteTitle := FNoteTitle; + Dest.FNoteIEN := FNoteIEN; + Dest.FParent := FParent; + Dest.FHistoricalLocation := FHistoricalLocation; +end; + +function TPCEData.NeededPCEData: tRequiredPCEDataTypes; +var + EC: TSCConditions; + NeedSC: boolean; + TmpLst: TStringList; + +begin + Result := []; + if(not FutureEncounter(Self)) then + begin +// if(PromptForWorkload(FNoteIEN, FNoteTitle, FEncSvcCat, StandAlone) or CPTRequiredForNote(FNoteIEN)) then + if(PromptForWorkload(FNoteIEN, FNoteTitle, FEncSvcCat, StandAlone)) then + begin + if(fdiagnoses.count <= 0) then + Include(Result, ndDiag); + if((fprocedures.count <= 0) and (fVisitType.Code = '')) then + begin + TmpLst := TStringList.Create; + try + GetHasCPTList(TmpLst); + if(not DataHasCPTCodes(TmpLst)) then + Include(Result, ndProc); + finally + TmpLst.Free; + end; + end; + if(RequireExposures(FNoteIEN, FNoteTitle)) then + begin + NeedSC := FALSE; + EC := EligbleConditions; + if (EC.SCAllow and (SCRelated = SCC_NA)) then + NeedSC := TRUE + else if(SCRelated <> SCC_YES) then //if screlated = yes, the others are not asked. + begin + if(EC.AOAllow and (AORelated = SCC_NA)) then NeedSC := TRUE + else if(EC.IRAllow and (IRRelated = SCC_NA)) then NeedSC := TRUE + else if(EC.ECAllow and (ECRelated = SCC_NA)) then NeedSC := TRUE + end; + if(EC.MSTAllow and (MSTRelated = SCC_NA)) then NeedSC := TRUE; +// if HNCOK and (EC.HNCAllow and (HNCRelated = SCC_NA)) then NeedSC := TRUE; + if(EC.HNCAllow and (HNCRelated = SCC_NA)) then NeedSC := TRUE; + if(EC.CVAllow and (CVRelated = SCC_NA)) then NeedSC := TRUE; + if(NeedSC) then + Include(Result, ndSC); + end; +(* if(Result = []) and (FNoteIEN > 0) then // **** block removed in v19.1 {RV} **** + ClearCPTRequired(FNoteIEN);*) + end; + end; +end; + + +function TPCEData.OK2SignNote: boolean; +var + Req: tRequiredPCEDataTypes; + msg: string; + Asked, DoAsk, Primary, Needed: boolean; + Outpatient, First, DoSave, NeedSave, Done: boolean; + Ans: integer; + Flags: word; + Ask: TAskPCE; + + procedure Add(Typ: tRequiredPCEDataType; txt: string); + begin + if(Typ in Req) then + msg := msg + txt + CRLF; + end; + +begin + if not CanEditPCE(Self) then + begin + Result := TRUE; + exit; + end; + if IsNonCountClinic(FEncLocation) then + begin + Result := TRUE; + exit; + end; + if IsCancelOrNoShow(NoteIEN) then + begin + Result := TRUE; + exit; + end; + Ask := GetAskPCE(FEncLocation); + if(Ask = apNever) or (Ask = apDisable) then + Result := TRUE + else + begin + DoSave := FALSE; + try + Asked := FALSE; + First := TRUE; + Outpatient := ((FEncSvcCat = 'A') or (FEncSvcCat = 'I') or (FEncSvcCat = 'T')); + repeat + Result := TRUE; + Done := TRUE; + Req := NeededPCEData; + Needed := (Req <> []); + if(First) then + begin + if Needed and (not Outpatient) then + OutPatient := TRUE; + if((Ask = apPrimaryAlways) or Needed or + ((Ask = apPrimaryOutpatient) and Outpatient)) then + begin + if(Providers.PrimaryIdx < 0) then + begin + NoPrimaryPCEProvider(FProviders, Self); + if(not DoSave) then + DoSave := (Providers.PrimaryIdx >= 0); + if(DoSave and (FProviders.PendingIEN(FALSE) <> 0) and + (FProviders.IndexOfProvider(IntToStr(FProviders.PendingIEN(FALSE))) < 0)) then + FProviders.AddProvider(IntToStr(FProviders.PendingIEN(FALSE)), FProviders.PendingName(FALSE), FALSE); + end; + end; + First := FALSE; + end; + Primary := (Providers.PrimaryIEN = User.DUZ); + case Ask of + apPrimaryOutpatient: DoAsk := (Primary and Outpatient); + apPrimaryAlways: DoAsk := Primary; + apNeeded: DoAsk := Needed; + apOutpatient: DoAsk := Outpatient; + apAlways: DoAsk := TRUE; + else + { apPrimaryNeeded } DoAsk := (Primary and Needed); + end; + if(DoAsk) then + begin + if(Asked and ((not Needed) or (not Primary))) then + exit; + if(Needed) then + begin + msg := TX_NEED1; + Add(ndDiag, TX_NEED_DIAG); + Add(ndProc, TX_NEED_PROC); + Add(ndSC, TX_NEED_SC); + if(Primary and ForcePCEEntry(FEncLocation)) then + begin + Flags := MB_OKCANCEL; + msg := msg + CRLF + TX_NEED3; + end + else + begin + if(Primary) then + Flags := MB_YESNOCANCEL + else + Flags := MB_YESNO; + msg := msg + CRLF + TX_NEED2; + end; + Flags := Flags + MB_ICONWARNING; + end + else + begin + Flags := MB_YESNO + MB_ICONQUESTION; + msg := TX_NEED2; + end; + Ans := InfoBox(msg, TX_NEED_T, Flags); + if(Ans = ID_CANCEL) then + begin + Result := FALSE; + InfoBox(TX_NEEDABORT, TX_NEED_T, MB_OK); + exit; + end; + Result := (Ans = ID_NO); + if(not Result) then + begin + if(not MissingProviderInfo(Self)) then + begin + NeedSave := UpdatePCE(Self, FALSE); + if(not DoSave) then + DoSave := NeedSave; + FUpdated := TRUE; + end; + Done := frmFrame.Closing; + Asked := TRUE; + end; + end; + until(Done); + finally + if(DoSave) then + Save; + end; + end; +end; + +procedure TPCEData.AddStrData(List: TStrings); + + procedure Add(Txt: string); + begin + if(length(Txt) > 0) then List.Add(Txt); + end; + +begin + Add(StrVisitType); + Add(StrDiagnoses); + Add(StrProcedures); + Add(StrImmunizations); + Add(StrSkinTests); + Add(StrPatientEds); + Add(StrHealthFactors); + Add(StrExams); +end; + +procedure TPCEData.AddVitalData(Data, List: TStrings); +var + i: integer; + +begin + for i := 0 to Data.Count-1 do + List.Add(FormatVitalForNote(Data[i])); +end; + +function TPCEData.PersonClassDate: TFMDateTime; +begin + if(FEncSvcCat = 'H') then + Result := FMToday + else + Result := FEncDateTime; //Encounter.DateTime; +end; + +function TPCEData.VisitDateTime: TFMDateTime; +begin + if(IsSecondaryVisit) then + Result := FNoteDateTime + else + Result := FEncDateTime; +end; + +function TPCEData.IsSecondaryVisit: boolean; +begin + Result := ((FEncSvcCat = 'H') and (FNoteDateTime > 0) and (FEncInpatient)); +end; + +function TPCEData.NeedProviderInfo: boolean; +var + i: integer; + TmpLst: TStringList; + +begin + if(FProviders.PrimaryIdx < 0) then + begin + Result := AutoCheckout(FEncLocation); + if not Result then + begin + for i := 0 to FDiagnoses.Count - 1 do + begin + if not TPCEDiag(FDiagnoses[i]).FDelete then + begin + Result := TRUE; + break; + end; + end; + end; + if not Result then + begin + for i := 0 to FProcedures.Count - 1 do + begin + if not TPCEProc(FProcedures[i]).FDelete then + begin + Result := TRUE; + break; + end; + end; + end; + if not Result then + begin + for i := 0 to FProviders.Count - 1 do + begin + if not FProviders[i].Delete then + begin + Result := TRUE; + break; + end; + end; + end; + if not Result then + begin + TmpLst := TStringList.Create; + try + GetHasCPTList(TmpLst); + if(DataHasCPTCodes(TmpLst)) then + Result := TRUE; + finally + TmpLst.Free; + end; + end; + end + else + Result := FALSE; +end; + +procedure TPCEData.GetHasCPTList(AList: TStrings); + + procedure AddList(List: TList); + var + i: integer; + tmp: string; + + begin + for i := 0 to List.Count-1 do + begin + tmp := TPCEItem(List[i]).HasCPTStr; + if(tmp <> '') then + AList.Add(tmp); + end; + end; + +begin + AddList(FImmunizations); + AddList(FSkinTests); + AddList(FPatientEds); + AddList(FHealthFactors); + AddList(FExams); +end; + +procedure TPCEData.CopyPCEItems(Src: TList; Dest: TObject; ItemClass: TPCEItemClass); +var + AItem: TPCEItem; + i: Integer; + IsStrings: boolean; + +begin + if(Dest is TStrings) then + IsStrings := TRUE + else + if(Dest is TList) then + IsStrings := FALSE + else + exit; + for i := 0 to Src.Count - 1 do + begin + if(not TPCEItem(Src[i]).FDelete) then + begin + AItem := ItemClass.Create; + AItem.Assign(TPCEItem(Src[i])); + if(IsStrings) then + TStrings(Dest).AddObject(AItem.ItemStr, AItem) + else + TList(Dest).Add(AItem); + end; + end; +end; + +function TPCEData.Empty: boolean; +begin + Result := (FProviders.Count = 0); + if(Result) then Result := (FSCRelated = SCC_NA); + if(Result) then Result := (FAORelated = SCC_NA); + if(Result) then Result := (FIRRelated = SCC_NA); + if(Result) then Result := (FECRelated = SCC_NA); + if(Result) then Result := (FMSTRelated = SCC_NA); +// if(Result) and HNCOK then Result := (FHNCRelated = SCC_NA); + if(Result) then Result := (FHNCRelated = SCC_NA); + if(Result) then Result := (FCVRelated = SCC_NA); + if(Result) then Result := (FDiagnoses.Count = 0); + if(Result) then Result := (FProcedures.Count = 0); + if(Result) then Result := (FImmunizations.Count = 0); + if(Result) then Result := (FSkinTests.Count = 0); + if(Result) then Result := (FPatientEds.Count = 0); + if(Result) then Result := (FHealthFactors.Count = 0); + if(Result) then Result := (fExams.Count = 0); + if(Result) then Result := (FVisitType.Empty); +end; + +{ TPCEProviderList } + +function TPCEProviderList.Add(const S: string): Integer; +var + SIEN: string; + LastPrimary: integer; + +begin + SIEN := IntToStr(StrToInt64Def(Piece(S, U, pnumPrvdrIEN), 0)); + if(SIEN = '0') then + Result := -1 + else + begin + LastPrimary := PrimaryIdx; + Result := IndexOfProvider(SIEN); + if(Result < 0) then + Result := inherited Add(S) + else + Strings[Result] := S; + if(Piece(S, U, pnumPrvdrPrimary) = '1') then + begin + FNoUpdate := TRUE; + try + SetPrimaryIdx(Result); + finally + FNoUpdate := FALSE; + end; + if(assigned(FOnPrimaryChanged) and (LastPrimary <> PrimaryIdx)) then + FOnPrimaryChanged(Self); + end; + end; +end; + +function TPCEProviderList.AddProvider(AIEN, AName: string; APrimary: boolean): integer; +var + tmp: string; + +begin + tmp := 'PRV' + U + AIEN + U + U + U + AName + U; + if(APrimary) then tmp := tmp + '1'; + Result := Add(tmp); +end; + +procedure TPCEProviderList.Clear; +var + DoNotify: boolean; + +begin + DoNotify := (assigned(FOnPrimaryChanged) and (GetPrimaryIdx >= 0)); + FPendingDefault := ''; + FPendingUser := ''; + FPCEProviderIEN := 0; + FPCEProviderName := ''; + inherited; + if(DoNotify) then + FOnPrimaryChanged(Self); +end; + +procedure TPCEProviderList.Delete(Index: Integer); +var + DoNotify: boolean; + +begin + DoNotify := (assigned(FOnPrimaryChanged) and (Piece(Strings[Index], U, pnumPrvdrPrimary) = '1')); + inherited Delete(Index); + if(DoNotify) then + FOnPrimaryChanged(Self); +end; + +function TPCEProviderList.PCEProvider: Int64; + + function Check(AIEN: Int64): Int64; + begin + if(AIEN = 0) or (IndexOfProvider(IntToStr(AIEN)) < 0) then + Result := 0 + else + Result := AIEN; + end; + +begin + Result := Check(Encounter.Provider); + if(Result = 0) then Result := Check(User.DUZ); + if(Result = 0) then Result := PrimaryIEN; +end; + +function TPCEProviderList.PCEProviderName: string; +var + NewProv: Int64; + +begin + NewProv := PCEProvider; + if(FPCEProviderIEN <> NewProv) then + begin + FPCEProviderIEN := NewProv; + FPCEProviderName := ExternalName(PCEProvider, FN_NEW_PERSON); + end; + Result := FPCEProviderName; +end; + +function TPCEProviderList.GetPrimaryIdx: integer; +begin + Result := IndexOfPiece('1', U, pnumPrvdrPrimary); +end; + +function TPCEProviderList.GetProviderData(Index: integer): TPCEProviderRec; +var + X: string; + +begin + X := Strings[Index]; + Result.IEN := StrToInt64Def(Piece(X, U, pnumPrvdrIEN), 0); + Result.Name := Piece(X, U, pnumPrvdrName); + Result.Primary := (Piece(X, U, pnumPrvdrPrimary) = '1'); + Result.Delete := (Piece(X, U, 1) = 'PRV-'); +end; + +function TPCEProviderList.IndexOfProvider(AIEN: string): integer; +begin + Result := IndexOfPiece(AIEN, U, pnumPrvdrIEN); +end; + +procedure TPCEProviderList.Merge(AList: TPCEProviderList); +var + i, idx: integer; + tmp: string; + +begin + for i := 0 to Count-1 do + begin + tmp := Strings[i]; + idx := AList.IndexOfProvider(Piece(tmp, U, pnumPrvdrIEN)); + if(idx < 0) then + begin + SetPiece(tmp, U, 1, 'PRV-'); + Strings[i] := tmp; + end; + end; + for i := 0 to AList.Count-1 do + Add(AList.Strings[i]); // Add already filters out duplicates +end; + +function TPCEProviderList.PendingIEN(ADefault: boolean): Int64; +begin + if(ADefault) then + Result := StrToInt64Def(Piece(FPendingDefault, U, 1), 0) + else + Result := StrToInt64Def(Piece(FPendingUser, U, 1), 0); +end; + +function TPCEProviderList.PendingName(ADefault: boolean): string; +begin + if(ADefault) then + Result := Piece(FPendingDefault, U, 2) + else + Result := Piece(FPendingUser, U, 2); +end; + +function TPCEProviderList.PrimaryIEN: int64; +var + idx: integer; + +begin + idx := GetPrimaryIdx; + if(idx < 0) then + Result := 0 + else + Result := StrToInt64Def(Piece(Strings[idx], U, pnumPrvdrIEN), 0); +end; + +function TPCEProviderList.PrimaryName: string; +var + idx: integer; + +begin + idx := GetPrimaryIdx; + if(idx < 0) then + Result := '' + else + Result := Piece(Strings[idx], U, pnumPrvdrName); +end; + +procedure TPCEProviderList.SetPrimary(index: integer; Primary: boolean); +var + tmp, x: string; + +begin + tmp := Strings[index]; + if(Primary) then + x := '1' + else + x := ''; + SetPiece(tmp, U, pnumPrvdrPrimary, x); + Strings[Index] := tmp; +end; + +procedure TPCEProviderList.SetPrimaryIdx(const Value: integer); +var + LastPrimary, idx: integer; + Found: boolean; + +begin + LastPrimary := GetPrimaryIdx; + idx := -1; + Found := FALSE; + repeat + idx := IndexOfPiece('1', U, pnumPrvdrPrimary, idx); + if(idx >= 0) then + begin + if(idx = Value) then + Found := TRUE + else + SetPrimary(idx, FALSE); + end; + until(idx < 0); + if(not Found) and (Value >= 0) and (Value < Count) then + SetPrimary(Value, TRUE); + if((not FNoUpdate) and assigned(FOnPrimaryChanged) and (LastPrimary <> Value)) then + FOnPrimaryChanged(Self); +end; + +procedure TPCEProviderList.SetProviderData(Index: integer; + const Value: TPCEProviderRec); +var + tmp, SIEN: string; + +begin + if(Value.IEN = 0) or (index < 0) or (index >= Count) then exit; + SIEN := IntToStr(Value.IEN); + if(IndexOfPiece(SIEN, U, pnumPrvdrIEN) = index) then + begin + tmp := 'PRV'; + if(Value.Delete) then tmp := tmp + '-'; + tmp := tmp + U + SIEN + U + U + U + Value.Name + U; + Strings[index] := tmp; + if Value.Primary then + SetPrimaryIdx(Index); + end; +end; + +procedure TPCEProviderList.Assign(Source: TPersistent); +var + Src: TPCEProviderList; + +begin + inherited Assign(Source); + if(Source is TPCEProviderList) then + begin + Src := TPCEProviderList(Source); + Src.FOnPrimaryChanged := FOnPrimaryChanged; + Src.FPendingDefault := FPendingDefault; + Src.FPendingUser := FPendingUser; + Src.FPCEProviderIEN := FPCEProviderIEN; + Src.FPCEProviderName := FPCEProviderName; + end; +end; + +initialization + +finalization + KillObj(@PCESetsOfCodes); + KillObj(@HistLocations); + +end. diff --git a/CPRS-Chart/Images/Alarm.bmp b/CPRS-Chart/Images/Alarm.bmp new file mode 100644 index 0000000..80eac59 Binary files /dev/null and b/CPRS-Chart/Images/Alarm.bmp differ diff --git a/CPRS-Chart/Images/Alarm2.bmp b/CPRS-Chart/Images/Alarm2.bmp new file mode 100644 index 0000000..c806068 Binary files /dev/null and b/CPRS-Chart/Images/Alarm2.bmp differ diff --git a/CPRS-Chart/Images/Alarm3.bmp b/CPRS-Chart/Images/Alarm3.bmp new file mode 100644 index 0000000..6ded18f Binary files /dev/null and b/CPRS-Chart/Images/Alarm3.bmp differ diff --git a/CPRS-Chart/Images/Alarm4.bmp b/CPRS-Chart/Images/Alarm4.bmp new file mode 100644 index 0000000..92882ec Binary files /dev/null and b/CPRS-Chart/Images/Alarm4.bmp differ diff --git a/CPRS-Chart/Images/AlarmRng.bmp b/CPRS-Chart/Images/AlarmRng.bmp new file mode 100644 index 0000000..36fc315 Binary files /dev/null and b/CPRS-Chart/Images/AlarmRng.bmp differ diff --git a/CPRS-Chart/Images/AlarmRng2.bmp b/CPRS-Chart/Images/AlarmRng2.bmp new file mode 100644 index 0000000..9b3e515 Binary files /dev/null and b/CPRS-Chart/Images/AlarmRng2.bmp differ diff --git a/CPRS-Chart/Images/AlarmRng3.bmp b/CPRS-Chart/Images/AlarmRng3.bmp new file mode 100644 index 0000000..8ee1bfa Binary files /dev/null and b/CPRS-Chart/Images/AlarmRng3.bmp differ diff --git a/CPRS-Chart/Images/AlarmRng4.bmp b/CPRS-Chart/Images/AlarmRng4.bmp new file mode 100644 index 0000000..1ec9f9d Binary files /dev/null and b/CPRS-Chart/Images/AlarmRng4.bmp differ diff --git a/CPRS-Chart/Images/BALLOON.BMP b/CPRS-Chart/Images/BALLOON.BMP new file mode 100644 index 0000000..cdc08ae Binary files /dev/null and b/CPRS-Chart/Images/BALLOON.BMP differ diff --git a/CPRS-Chart/Images/Blank.bmp b/CPRS-Chart/Images/Blank.bmp new file mode 100644 index 0000000..69d2091 Binary files /dev/null and b/CPRS-Chart/Images/Blank.bmp differ diff --git a/CPRS-Chart/Images/BlankImage.bmp b/CPRS-Chart/Images/BlankImage.bmp new file mode 100644 index 0000000..8728fde Binary files /dev/null and b/CPRS-Chart/Images/BlankImage.bmp differ diff --git a/CPRS-Chart/Images/CP_Procedure.bmp b/CPRS-Chart/Images/CP_Procedure.bmp new file mode 100644 index 0000000..a526be4 Binary files /dev/null and b/CPRS-Chart/Images/CP_Procedure.bmp differ diff --git a/CPRS-Chart/Images/CheckMark.bmp b/CPRS-Chart/Images/CheckMark.bmp new file mode 100644 index 0000000..2e56691 Binary files /dev/null and b/CPRS-Chart/Images/CheckMark.bmp differ diff --git a/CPRS-Chart/Images/Clock.bmp b/CPRS-Chart/Images/Clock.bmp new file mode 100644 index 0000000..42b3e56 Binary files /dev/null and b/CPRS-Chart/Images/Clock.bmp differ diff --git a/CPRS-Chart/Images/Clock2.bmp b/CPRS-Chart/Images/Clock2.bmp new file mode 100644 index 0000000..a5b8869 Binary files /dev/null and b/CPRS-Chart/Images/Clock2.bmp differ diff --git a/CPRS-Chart/Images/Clock3.bmp b/CPRS-Chart/Images/Clock3.bmp new file mode 100644 index 0000000..fda6e7e Binary files /dev/null and b/CPRS-Chart/Images/Clock3.bmp differ diff --git a/CPRS-Chart/Images/Clock4.bmp b/CPRS-Chart/Images/Clock4.bmp new file mode 100644 index 0000000..11add53 Binary files /dev/null and b/CPRS-Chart/Images/Clock4.bmp differ diff --git a/CPRS-Chart/Images/Consult.bmp b/CPRS-Chart/Images/Consult.bmp new file mode 100644 index 0000000..10a28aa Binary files /dev/null and b/CPRS-Chart/Images/Consult.bmp differ diff --git a/CPRS-Chart/Images/ConsultIFC_I.bmp b/CPRS-Chart/Images/ConsultIFC_I.bmp new file mode 100644 index 0000000..b38c55a Binary files /dev/null and b/CPRS-Chart/Images/ConsultIFC_I.bmp differ diff --git a/CPRS-Chart/Images/Dialog.bmp b/CPRS-Chart/Images/Dialog.bmp new file mode 100644 index 0000000..8c8ca87 Binary files /dev/null and b/CPRS-Chart/Images/Dialog.bmp differ diff --git a/CPRS-Chart/Images/Dialog4.bmp b/CPRS-Chart/Images/Dialog4.bmp new file mode 100644 index 0000000..247cff4 Binary files /dev/null and b/CPRS-Chart/Images/Dialog4.bmp differ diff --git a/CPRS-Chart/Images/DialogChecked.bmp b/CPRS-Chart/Images/DialogChecked.bmp new file mode 100644 index 0000000..5b4c655 Binary files /dev/null and b/CPRS-Chart/Images/DialogChecked.bmp differ diff --git a/CPRS-Chart/Images/DialogChecked4.bmp b/CPRS-Chart/Images/DialogChecked4.bmp new file mode 100644 index 0000000..8eb8d4c Binary files /dev/null and b/CPRS-Chart/Images/DialogChecked4.bmp differ diff --git a/CPRS-Chart/Images/DisabledAlarmClock.bmp b/CPRS-Chart/Images/DisabledAlarmClock.bmp new file mode 100644 index 0000000..e5744c6 Binary files /dev/null and b/CPRS-Chart/Images/DisabledAlarmClock.bmp differ diff --git a/CPRS-Chart/Images/DlgDoc2.bmp b/CPRS-Chart/Images/DlgDoc2.bmp new file mode 100644 index 0000000..7526cd3 Binary files /dev/null and b/CPRS-Chart/Images/DlgDoc2.bmp differ diff --git a/CPRS-Chart/Images/DlgDocEx2.bmp b/CPRS-Chart/Images/DlgDocEx2.bmp new file mode 100644 index 0000000..551f406 Binary files /dev/null and b/CPRS-Chart/Images/DlgDocEx2.bmp differ diff --git a/CPRS-Chart/Images/DlgDocStack.bmp b/CPRS-Chart/Images/DlgDocStack.bmp new file mode 100644 index 0000000..70f768e Binary files /dev/null and b/CPRS-Chart/Images/DlgDocStack.bmp differ diff --git a/CPRS-Chart/Images/DlgDocStackExclude.bmp b/CPRS-Chart/Images/DlgDocStackExclude.bmp new file mode 100644 index 0000000..93e8a00 Binary files /dev/null and b/CPRS-Chart/Images/DlgDocStackExclude.bmp differ diff --git a/CPRS-Chart/Images/DlgDocStackExcludeOpen.bmp b/CPRS-Chart/Images/DlgDocStackExcludeOpen.bmp new file mode 100644 index 0000000..d4295e9 Binary files /dev/null and b/CPRS-Chart/Images/DlgDocStackExcludeOpen.bmp differ diff --git a/CPRS-Chart/Images/DlgDocStackOpen.bmp b/CPRS-Chart/Images/DlgDocStackOpen.bmp new file mode 100644 index 0000000..397edf6 Binary files /dev/null and b/CPRS-Chart/Images/DlgDocStackOpen.bmp differ diff --git a/CPRS-Chart/Images/DlgSDocStack.bmp b/CPRS-Chart/Images/DlgSDocStack.bmp new file mode 100644 index 0000000..f0dfd45 Binary files /dev/null and b/CPRS-Chart/Images/DlgSDocStack.bmp differ diff --git a/CPRS-Chart/Images/DlgSDocStackExclude.bmp b/CPRS-Chart/Images/DlgSDocStackExclude.bmp new file mode 100644 index 0000000..da9afcf Binary files /dev/null and b/CPRS-Chart/Images/DlgSDocStackExclude.bmp differ diff --git a/CPRS-Chart/Images/DlgSDocStackExcludeOpen.bmp b/CPRS-Chart/Images/DlgSDocStackExcludeOpen.bmp new file mode 100644 index 0000000..39eebad Binary files /dev/null and b/CPRS-Chart/Images/DlgSDocStackExcludeOpen.bmp differ diff --git a/CPRS-Chart/Images/DlgSDocStackOpen.bmp b/CPRS-Chart/Images/DlgSDocStackOpen.bmp new file mode 100644 index 0000000..4d9a1be Binary files /dev/null and b/CPRS-Chart/Images/DlgSDocStackOpen.bmp differ diff --git a/CPRS-Chart/Images/DocWithAddenda.bmp b/CPRS-Chart/Images/DocWithAddenda.bmp new file mode 100644 index 0000000..01fb76c Binary files /dev/null and b/CPRS-Chart/Images/DocWithAddenda.bmp differ diff --git a/CPRS-Chart/Images/DownArrow.bmp b/CPRS-Chart/Images/DownArrow.bmp new file mode 100644 index 0000000..c069672 Binary files /dev/null and b/CPRS-Chart/Images/DownArrow.bmp differ diff --git a/CPRS-Chart/Images/DownArrowTiny.bmp b/CPRS-Chart/Images/DownArrowTiny.bmp new file mode 100644 index 0000000..6037366 Binary files /dev/null and b/CPRS-Chart/Images/DownArrowTiny.bmp differ diff --git a/CPRS-Chart/Images/DrawerArrows.bmp b/CPRS-Chart/Images/DrawerArrows.bmp new file mode 100644 index 0000000..9787664 Binary files /dev/null and b/CPRS-Chart/Images/DrawerArrows.bmp differ diff --git a/CPRS-Chart/Images/IDChildDoc.bmp b/CPRS-Chart/Images/IDChildDoc.bmp new file mode 100644 index 0000000..5bbeca4 Binary files /dev/null and b/CPRS-Chart/Images/IDChildDoc.bmp differ diff --git a/CPRS-Chart/Images/IDChildWithAddenda.bmp b/CPRS-Chart/Images/IDChildWithAddenda.bmp new file mode 100644 index 0000000..01b8f25 Binary files /dev/null and b/CPRS-Chart/Images/IDChildWithAddenda.bmp differ diff --git a/CPRS-Chart/Images/IDParentAddenda2.bmp b/CPRS-Chart/Images/IDParentAddenda2.bmp new file mode 100644 index 0000000..6c6adf1 Binary files /dev/null and b/CPRS-Chart/Images/IDParentAddenda2.bmp differ diff --git a/CPRS-Chart/Images/IDParentDoc.bmp b/CPRS-Chart/Images/IDParentDoc.bmp new file mode 100644 index 0000000..748125a Binary files /dev/null and b/CPRS-Chart/Images/IDParentDoc.bmp differ diff --git a/CPRS-Chart/Images/IDParentDocOpen.bmp b/CPRS-Chart/Images/IDParentDocOpen.bmp new file mode 100644 index 0000000..0f2b7e4 Binary files /dev/null and b/CPRS-Chart/Images/IDParentDocOpen.bmp differ diff --git a/CPRS-Chart/Images/IDParentDocWithAddenda.bmp b/CPRS-Chart/Images/IDParentDocWithAddenda.bmp new file mode 100644 index 0000000..067079a Binary files /dev/null and b/CPRS-Chart/Images/IDParentDocWithAddenda.bmp differ diff --git a/CPRS-Chart/Images/IDParentDocWithAddendaOpen.bmp b/CPRS-Chart/Images/IDParentDocWithAddendaOpen.bmp new file mode 100644 index 0000000..6371dad Binary files /dev/null and b/CPRS-Chart/Images/IDParentDocWithAddendaOpen.bmp differ diff --git a/CPRS-Chart/Images/ImageLegend.bmp b/CPRS-Chart/Images/ImageLegend.bmp new file mode 100644 index 0000000..6ebbef2 Binary files /dev/null and b/CPRS-Chart/Images/ImageLegend.bmp differ diff --git a/CPRS-Chart/Images/ImagesChild.bmp b/CPRS-Chart/Images/ImagesChild.bmp new file mode 100644 index 0000000..2135052 Binary files /dev/null and b/CPRS-Chart/Images/ImagesChild.bmp differ diff --git a/CPRS-Chart/Images/ImagesHidden.bmp b/CPRS-Chart/Images/ImagesHidden.bmp new file mode 100644 index 0000000..6171f88 Binary files /dev/null and b/CPRS-Chart/Images/ImagesHidden.bmp differ diff --git a/CPRS-Chart/Images/ImagesMulti.bmp b/CPRS-Chart/Images/ImagesMulti.bmp new file mode 100644 index 0000000..b394ac1 Binary files /dev/null and b/CPRS-Chart/Images/ImagesMulti.bmp differ diff --git a/CPRS-Chart/Images/ImagesNone.bmp b/CPRS-Chart/Images/ImagesNone.bmp new file mode 100644 index 0000000..2523050 Binary files /dev/null and b/CPRS-Chart/Images/ImagesNone.bmp differ diff --git a/CPRS-Chart/Images/ImagesOne.bmp b/CPRS-Chart/Images/ImagesOne.bmp new file mode 100644 index 0000000..3d0eaf7 Binary files /dev/null and b/CPRS-Chart/Images/ImagesOne.bmp differ diff --git a/CPRS-Chart/Images/ImagesTwo.bmp b/CPRS-Chart/Images/ImagesTwo.bmp new file mode 100644 index 0000000..7d8b68f Binary files /dev/null and b/CPRS-Chart/Images/ImagesTwo.bmp differ diff --git a/CPRS-Chart/Images/LeftArrow.bmp b/CPRS-Chart/Images/LeftArrow.bmp new file mode 100644 index 0000000..1eac17d Binary files /dev/null and b/CPRS-Chart/Images/LeftArrow.bmp differ diff --git a/CPRS-Chart/Images/ListviewSortAscending.bmp b/CPRS-Chart/Images/ListviewSortAscending.bmp new file mode 100644 index 0000000..46f5d18 Binary files /dev/null and b/CPRS-Chart/Images/ListviewSortAscending.bmp differ diff --git a/CPRS-Chart/Images/ListviewSortDescending.bmp b/CPRS-Chart/Images/ListviewSortDescending.bmp new file mode 100644 index 0000000..266f41b Binary files /dev/null and b/CPRS-Chart/Images/ListviewSortDescending.bmp differ diff --git a/CPRS-Chart/Images/Lock.bmp b/CPRS-Chart/Images/Lock.bmp new file mode 100644 index 0000000..8b54de9 Binary files /dev/null and b/CPRS-Chart/Images/Lock.bmp differ diff --git a/CPRS-Chart/Images/MedicineIFC_I.bmp b/CPRS-Chart/Images/MedicineIFC_I.bmp new file mode 100644 index 0000000..3334472 Binary files /dev/null and b/CPRS-Chart/Images/MedicineIFC_I.bmp differ diff --git a/CPRS-Chart/Images/Minus.bmp b/CPRS-Chart/Images/Minus.bmp new file mode 100644 index 0000000..bbf799a Binary files /dev/null and b/CPRS-Chart/Images/Minus.bmp differ diff --git a/CPRS-Chart/Images/NoRemDlg.bmp b/CPRS-Chart/Images/NoRemDlg.bmp new file mode 100644 index 0000000..663744c Binary files /dev/null and b/CPRS-Chart/Images/NoRemDlg.bmp differ diff --git a/CPRS-Chart/Images/NoRemSDlg.bmp b/CPRS-Chart/Images/NoRemSDlg.bmp new file mode 100644 index 0000000..9e68c35 Binary files /dev/null and b/CPRS-Chart/Images/NoRemSDlg.bmp differ diff --git a/CPRS-Chart/Images/Non-OR docstack both.bmp b/CPRS-Chart/Images/Non-OR docstack both.bmp new file mode 100644 index 0000000..a367bc2 Binary files /dev/null and b/CPRS-Chart/Images/Non-OR docstack both.bmp differ diff --git a/CPRS-Chart/Images/Non-OR docstack shut.bmp b/CPRS-Chart/Images/Non-OR docstack shut.bmp new file mode 100644 index 0000000..6e55f5e Binary files /dev/null and b/CPRS-Chart/Images/Non-OR docstack shut.bmp differ diff --git a/CPRS-Chart/Images/Non-OR folder empty.bmp b/CPRS-Chart/Images/Non-OR folder empty.bmp new file mode 100644 index 0000000..9881ae1 Binary files /dev/null and b/CPRS-Chart/Images/Non-OR folder empty.bmp differ diff --git a/CPRS-Chart/Images/NonOR docstack open.bmp b/CPRS-Chart/Images/NonOR docstack open.bmp new file mode 100644 index 0000000..eabe7b7 Binary files /dev/null and b/CPRS-Chart/Images/NonOR docstack open.bmp differ diff --git a/CPRS-Chart/Images/Non_CP_Procedure.bmp b/CPRS-Chart/Images/Non_CP_Procedure.bmp new file mode 100644 index 0000000..39821b4 Binary files /dev/null and b/CPRS-Chart/Images/Non_CP_Procedure.bmp differ diff --git a/CPRS-Chart/Images/OR docstack both.bmp b/CPRS-Chart/Images/OR docstack both.bmp new file mode 100644 index 0000000..6322eac Binary files /dev/null and b/CPRS-Chart/Images/OR docstack both.bmp differ diff --git a/CPRS-Chart/Images/OR docstack open.bmp b/CPRS-Chart/Images/OR docstack open.bmp new file mode 100644 index 0000000..63eb169 Binary files /dev/null and b/CPRS-Chart/Images/OR docstack open.bmp differ diff --git a/CPRS-Chart/Images/OR docstack shut.bmp b/CPRS-Chart/Images/OR docstack shut.bmp new file mode 100644 index 0000000..1bc20ba Binary files /dev/null and b/CPRS-Chart/Images/OR docstack shut.bmp differ diff --git a/CPRS-Chart/Images/OR folder empty.bmp b/CPRS-Chart/Images/OR folder empty.bmp new file mode 100644 index 0000000..13c86ae Binary files /dev/null and b/CPRS-Chart/Images/OR folder empty.bmp differ diff --git a/CPRS-Chart/Images/OpenFolder.bmp b/CPRS-Chart/Images/OpenFolder.bmp new file mode 100644 index 0000000..b11088e Binary files /dev/null and b/CPRS-Chart/Images/OpenFolder.bmp differ diff --git a/CPRS-Chart/Images/OpenFolder2.bmp b/CPRS-Chart/Images/OpenFolder2.bmp new file mode 100644 index 0000000..6906489 Binary files /dev/null and b/CPRS-Chart/Images/OpenFolder2.bmp differ diff --git a/CPRS-Chart/Images/OpenFolder3.bmp b/CPRS-Chart/Images/OpenFolder3.bmp new file mode 100644 index 0000000..69053b8 Binary files /dev/null and b/CPRS-Chart/Images/OpenFolder3.bmp differ diff --git a/CPRS-Chart/Images/OpenFolder4.bmp b/CPRS-Chart/Images/OpenFolder4.bmp new file mode 100644 index 0000000..2c34908 Binary files /dev/null and b/CPRS-Chart/Images/OpenFolder4.bmp differ diff --git a/CPRS-Chart/Images/OutsideApp.bmp b/CPRS-Chart/Images/OutsideApp.bmp new file mode 100644 index 0000000..5518c27 Binary files /dev/null and b/CPRS-Chart/Images/OutsideApp.bmp differ diff --git a/CPRS-Chart/Images/OutsideAppError.bmp b/CPRS-Chart/Images/OutsideAppError.bmp new file mode 100644 index 0000000..f4518bd Binary files /dev/null and b/CPRS-Chart/Images/OutsideAppError.bmp differ diff --git a/CPRS-Chart/Images/Plus.bmp b/CPRS-Chart/Images/Plus.bmp new file mode 100644 index 0000000..f833831 Binary files /dev/null and b/CPRS-Chart/Images/Plus.bmp differ diff --git a/CPRS-Chart/Images/Procedure.bmp b/CPRS-Chart/Images/Procedure.bmp new file mode 100644 index 0000000..2eba455 Binary files /dev/null and b/CPRS-Chart/Images/Procedure.bmp differ diff --git a/CPRS-Chart/Images/QMark.bmp b/CPRS-Chart/Images/QMark.bmp new file mode 100644 index 0000000..074f861 Binary files /dev/null and b/CPRS-Chart/Images/QMark.bmp differ diff --git a/CPRS-Chart/Images/RemFolderOpen.bmp b/CPRS-Chart/Images/RemFolderOpen.bmp new file mode 100644 index 0000000..8ba6847 Binary files /dev/null and b/CPRS-Chart/Images/RemFolderOpen.bmp differ diff --git a/CPRS-Chart/Images/RemFolderShut.bmp b/CPRS-Chart/Images/RemFolderShut.bmp new file mode 100644 index 0000000..46d60a1 Binary files /dev/null and b/CPRS-Chart/Images/RemFolderShut.bmp differ diff --git a/CPRS-Chart/Images/RemSrch1.bmp b/CPRS-Chart/Images/RemSrch1.bmp new file mode 100644 index 0000000..364af1c Binary files /dev/null and b/CPRS-Chart/Images/RemSrch1.bmp differ diff --git a/CPRS-Chart/Images/RemSrch2.bmp b/CPRS-Chart/Images/RemSrch2.bmp new file mode 100644 index 0000000..7c53667 Binary files /dev/null and b/CPRS-Chart/Images/RemSrch2.bmp differ diff --git a/CPRS-Chart/Images/RemSrch3.bmp b/CPRS-Chart/Images/RemSrch3.bmp new file mode 100644 index 0000000..306791b Binary files /dev/null and b/CPRS-Chart/Images/RemSrch3.bmp differ diff --git a/CPRS-Chart/Images/RemSrch4.bmp b/CPRS-Chart/Images/RemSrch4.bmp new file mode 100644 index 0000000..948fe16 Binary files /dev/null and b/CPRS-Chart/Images/RemSrch4.bmp differ diff --git a/CPRS-Chart/Images/RemSrch5.bmp b/CPRS-Chart/Images/RemSrch5.bmp new file mode 100644 index 0000000..17426ee Binary files /dev/null and b/CPRS-Chart/Images/RemSrch5.bmp differ diff --git a/CPRS-Chart/Images/RemSrch6.bmp b/CPRS-Chart/Images/RemSrch6.bmp new file mode 100644 index 0000000..0ae5190 Binary files /dev/null and b/CPRS-Chart/Images/RemSrch6.bmp differ diff --git a/CPRS-Chart/Images/RemSrch7.bmp b/CPRS-Chart/Images/RemSrch7.bmp new file mode 100644 index 0000000..bde7674 Binary files /dev/null and b/CPRS-Chart/Images/RemSrch7.bmp differ diff --git a/CPRS-Chart/Images/RemSrch8.bmp b/CPRS-Chart/Images/RemSrch8.bmp new file mode 100644 index 0000000..1c888c0 Binary files /dev/null and b/CPRS-Chart/Images/RemSrch8.bmp differ diff --git a/CPRS-Chart/Images/RightArrow.bmp b/CPRS-Chart/Images/RightArrow.bmp new file mode 100644 index 0000000..8f92f39 Binary files /dev/null and b/CPRS-Chart/Images/RightArrow.bmp differ diff --git a/CPRS-Chart/Images/SDlgDoc2.bmp b/CPRS-Chart/Images/SDlgDoc2.bmp new file mode 100644 index 0000000..2dbd3f0 Binary files /dev/null and b/CPRS-Chart/Images/SDlgDoc2.bmp differ diff --git a/CPRS-Chart/Images/SDlgDocEx2.bmp b/CPRS-Chart/Images/SDlgDocEx2.bmp new file mode 100644 index 0000000..5b956bf Binary files /dev/null and b/CPRS-Chart/Images/SDlgDocEx2.bmp differ diff --git a/CPRS-Chart/Images/Sdoc2.bmp b/CPRS-Chart/Images/Sdoc2.bmp new file mode 100644 index 0000000..009f7b4 Binary files /dev/null and b/CPRS-Chart/Images/Sdoc2.bmp differ diff --git a/CPRS-Chart/Images/SdocEx2.bmp b/CPRS-Chart/Images/SdocEx2.bmp new file mode 100644 index 0000000..454ef69 Binary files /dev/null and b/CPRS-Chart/Images/SdocEx2.bmp differ diff --git a/CPRS-Chart/Images/SdocExclude.bmp b/CPRS-Chart/Images/SdocExclude.bmp new file mode 100644 index 0000000..6718fe4 Binary files /dev/null and b/CPRS-Chart/Images/SdocExclude.bmp differ diff --git a/CPRS-Chart/Images/Sdocsingl.bmp b/CPRS-Chart/Images/Sdocsingl.bmp new file mode 100644 index 0000000..0dfea8f Binary files /dev/null and b/CPRS-Chart/Images/Sdocsingl.bmp differ diff --git a/CPRS-Chart/Images/Sdocstack.bmp b/CPRS-Chart/Images/Sdocstack.bmp new file mode 100644 index 0000000..1eaa7d1 Binary files /dev/null and b/CPRS-Chart/Images/Sdocstack.bmp differ diff --git a/CPRS-Chart/Images/SdocstackExclude.bmp b/CPRS-Chart/Images/SdocstackExclude.bmp new file mode 100644 index 0000000..6126022 Binary files /dev/null and b/CPRS-Chart/Images/SdocstackExclude.bmp differ diff --git a/CPRS-Chart/Images/Sfldr2.bmp b/CPRS-Chart/Images/Sfldr2.bmp new file mode 100644 index 0000000..f4d652d Binary files /dev/null and b/CPRS-Chart/Images/Sfldr2.bmp differ diff --git a/CPRS-Chart/Images/Sfldropen.bmp b/CPRS-Chart/Images/Sfldropen.bmp new file mode 100644 index 0000000..43f2613 Binary files /dev/null and b/CPRS-Chart/Images/Sfldropen.bmp differ diff --git a/CPRS-Chart/Images/Sfldrshut.bmp b/CPRS-Chart/Images/Sfldrshut.bmp new file mode 100644 index 0000000..70db783 Binary files /dev/null and b/CPRS-Chart/Images/Sfldrshut.bmp differ diff --git a/CPRS-Chart/Images/SfoldrdocExclude.bmp b/CPRS-Chart/Images/SfoldrdocExclude.bmp new file mode 100644 index 0000000..aa23d13 Binary files /dev/null and b/CPRS-Chart/Images/SfoldrdocExclude.bmp differ diff --git a/CPRS-Chart/Images/Sfoldrdocstack.bmp b/CPRS-Chart/Images/Sfoldrdocstack.bmp new file mode 100644 index 0000000..95b2577 Binary files /dev/null and b/CPRS-Chart/Images/Sfoldrdocstack.bmp differ diff --git a/CPRS-Chart/Images/TreeView.bmp b/CPRS-Chart/Images/TreeView.bmp new file mode 100644 index 0000000..de2cd99 Binary files /dev/null and b/CPRS-Chart/Images/TreeView.bmp differ diff --git a/CPRS-Chart/Images/UpArrow.bmp b/CPRS-Chart/Images/UpArrow.bmp new file mode 100644 index 0000000..b413963 Binary files /dev/null and b/CPRS-Chart/Images/UpArrow.bmp differ diff --git a/CPRS-Chart/Images/XDelete.bmp b/CPRS-Chart/Images/XDelete.bmp new file mode 100644 index 0000000..a80362f Binary files /dev/null and b/CPRS-Chart/Images/XDelete.bmp differ diff --git a/CPRS-Chart/Images/docAddendum.bmp b/CPRS-Chart/Images/docAddendum.bmp new file mode 100644 index 0000000..f38eaf3 Binary files /dev/null and b/CPRS-Chart/Images/docAddendum.bmp differ diff --git a/CPRS-Chart/Images/docExclude.bmp b/CPRS-Chart/Images/docExclude.bmp new file mode 100644 index 0000000..16d9f5c Binary files /dev/null and b/CPRS-Chart/Images/docExclude.bmp differ diff --git a/CPRS-Chart/Images/docs2.bmp b/CPRS-Chart/Images/docs2.bmp new file mode 100644 index 0000000..f3a58c2 Binary files /dev/null and b/CPRS-Chart/Images/docs2.bmp differ diff --git a/CPRS-Chart/Images/docsEx2.bmp b/CPRS-Chart/Images/docsEx2.bmp new file mode 100644 index 0000000..bf53f4c Binary files /dev/null and b/CPRS-Chart/Images/docsEx2.bmp differ diff --git a/CPRS-Chart/Images/docsingl.bmp b/CPRS-Chart/Images/docsingl.bmp new file mode 100644 index 0000000..47255b1 Binary files /dev/null and b/CPRS-Chart/Images/docsingl.bmp differ diff --git a/CPRS-Chart/Images/docstack.bmp b/CPRS-Chart/Images/docstack.bmp new file mode 100644 index 0000000..b030b37 Binary files /dev/null and b/CPRS-Chart/Images/docstack.bmp differ diff --git a/CPRS-Chart/Images/docstackExclude.bmp b/CPRS-Chart/Images/docstackExclude.bmp new file mode 100644 index 0000000..ee80cb4 Binary files /dev/null and b/CPRS-Chart/Images/docstackExclude.bmp differ diff --git a/CPRS-Chart/Images/fcab2.bmp b/CPRS-Chart/Images/fcab2.bmp new file mode 100644 index 0000000..b69fe11 Binary files /dev/null and b/CPRS-Chart/Images/fcab2.bmp differ diff --git a/CPRS-Chart/Images/fcabopen.bmp b/CPRS-Chart/Images/fcabopen.bmp new file mode 100644 index 0000000..7643f55 Binary files /dev/null and b/CPRS-Chart/Images/fcabopen.bmp differ diff --git a/CPRS-Chart/Images/fcabshut.bmp b/CPRS-Chart/Images/fcabshut.bmp new file mode 100644 index 0000000..8da2aad Binary files /dev/null and b/CPRS-Chart/Images/fcabshut.bmp differ diff --git a/CPRS-Chart/Images/foldr2.bmp b/CPRS-Chart/Images/foldr2.bmp new file mode 100644 index 0000000..d4bac87 Binary files /dev/null and b/CPRS-Chart/Images/foldr2.bmp differ diff --git a/CPRS-Chart/Images/foldrdocExclude.bmp b/CPRS-Chart/Images/foldrdocExclude.bmp new file mode 100644 index 0000000..5d5f65c Binary files /dev/null and b/CPRS-Chart/Images/foldrdocExclude.bmp differ diff --git a/CPRS-Chart/Images/foldrdocstack.bmp b/CPRS-Chart/Images/foldrdocstack.bmp new file mode 100644 index 0000000..89eba3a Binary files /dev/null and b/CPRS-Chart/Images/foldrdocstack.bmp differ diff --git a/CPRS-Chart/JAWS Support Files/CPRSChart.JDF b/CPRS-Chart/JAWS Support Files/CPRSChart.JDF new file mode 100644 index 0000000..dfe690b --- /dev/null +++ b/CPRS-Chart/JAWS Support Files/CPRSChart.JDF @@ -0,0 +1 @@ +..unknown. diff --git a/CPRS-Chart/JAWS Support Files/CPRSChart.JGF b/CPRS-Chart/JAWS Support Files/CPRSChart.JGF new file mode 100644 index 0000000..563a3f5 --- /dev/null +++ b/CPRS-Chart/JAWS Support Files/CPRSChart.JGF @@ -0,0 +1,87 @@ +[GraphicRes011632] +2198765250=Due|Due +3455890060=Not applicable|Not applicable +1688807757=Unevaluated|Unevaluated +1712749839=Applicable|Applicable + +2090587385=| +3060029077=Consult request|Consult request +1761921865=| +3174250204=Top level grouping|Top level grouping +2657699709=Procedure Request|Procedure Request +1803448566=Interfacility consult request|Interfacility consult request +3705105250=| +3319986834=Note|Note +3812868655=| +1818512572=| +2317420635=| +3518325033=Note with addenda|Note with addenda +4172210873=| +1904205486=Addendum|Addendum +360406671=Interdisciplinary note|Interdisciplinary note +4184995115=Folder|Folder + +3973275945=Subgrouping|Subgrouping +4292888608=Document|Document +1423227121=Interdisciplinary note with addenda|Interdisciplinary note with addenda +1783193669=Interdisciplinary note with addenda|Interdisciplinary note with addenda +2249795109=| +4103523527=| +1398717080=Interdisciplinary entry with addenda|Interdisciplinary entry with addenda +670945096=Interfacility procedure request|Interfacility procedure request + +3646647319=Template root|Template root +2570176097=Shared template dialog|Shared template dialog +3464868749=Shared template dialog|Sharted template dialog +3502284809=Group template|Group template +1306887401=COM object template|COM object template + +462102955=| +3772750048=Templates root|Templates root +1505963622=Personal template dialog|Personal template dialog +242703242=Personal template dialog|Personal template dialog +1672409714=Copy to personal templates|Copy to personal templates +3472583599=Folder|Folder +2031629800=Folder|Folder +3884787729=Reminder dialog|Reminder dialog +3487147778=Group Template|Group Template +871141197=Move Up|Move Up +4122304649=Move Down| +1192143868=Group Template|Group Template + +2025557916=Information| + +4244705518=| +2017210422=| +2509838363=| +3649225113=| +1556078913=| +330844757=| +2714010036=| +3608597468=| +1378611972=| + +[GraphicRes013232] +2552782347=Up Arrow| +1267420445=Down Arrow| +4003408429=| +2803090859=Graphic Reminder Dialog| +1712110970=Graphic Template| +2645240911=| +3408946961=Graphic Minus Sign| +636039612=Graphic Minus Sign| +3671538334=Graphic Parent Dialog| +1037263493=| +1873017424=Graphic Dialog| +2463105797=Graphic Group Template| +3565221809=Graphic Com Object| +1322607810=Graphic Dialog| +3392161263=Graphic Template| +560320351=Graphic Plus Sign| +341161506=Graphic Plus Sign| +4221674508=Graphic Parent Dialog| +3394257229=Graphic Group Template| +282675393=Graphic Minus Sign| +476211206=| +661449779=| +3485243890=Graphic Plus Sign| diff --git a/CPRS-Chart/JAWS Support Files/CPRSChart.JSS b/CPRS-Chart/JAWS Support Files/CPRSChart.JSS new file mode 100644 index 0000000..32fb9b8 --- /dev/null +++ b/CPRS-Chart/JAWS Support Files/CPRSChart.JSS @@ -0,0 +1,439 @@ +Include "HjGlobal.jsh" ; default HJ global variables +Include "hjconst.jsh" ; default HJ constants + +globals + int CoverVitalsID, + int ODProcReasonForRequestID, + int ODProcInpatientID, + int ODProcOutpatientID, + int ODCsltReasonForCsltID, + int ODCsltInpatientID, + int ODCsltOutpatientID, + int PtCWADAllergiesID, + int PtSelNotificationsID, + int TemplateEditorBlankLinesID, + int MedsInpatientID, + int MedsOutPatientID, + int ODMedsCommentsID, + int ODMedsPriorityID, + int NotesViewMenuID, + int ConsultsByStatusStatusID, + int ConsultActionCommentsID, + int ConsultActionAlertID, + int CurrentMenuContext + +Const + NoMenuContext = 0, + NotesActionMenuContext = 1, + NotesViewMenuContext = 2, + ConsultsActionMenuContext = 3, + ConsultsTrackingMenuContext = 4, + ConsultsViewMenuContext = 5 + + +;The component ID's vary from compile to compile, so constants aren't much help for identifying the components. +;Instead, we use the component's hierarchical position as an address to locate it as a descendant of the form. +;Finding addresses can be tricky. Uncomment the SayString line below to test an address by tracing through the address resolution. +;If there are a lot of panels to wade through, it's easier to run CPRS with the Inspector that comes with MSAA developers kit. +;Get the focus on the control you want, and work with the parent/child/siblings buttons to see where they fit in the order. +;Note that MSAA Inspector treats "window" objects as parents of the corresponding "client" objects, +;while the "GetFirstChild" JAWS script routine considers them to be part of the ame object. So, the addresses used here will be half as long +;as what you will find in MSAA land. +handle function GetHandleFromAddress(handle Parent, string Address) + var + int AddressIndex, + string AddressPart, + int TabsLeft, + handle ControlAtAddress + let AddressIndex = 1 + let AddressPart = StringSegment(Address, " ", AddressIndex) + let ControlAtAddress = Parent + while AddressPart != "" && ControlAtAddress != 0 + let TabsLeft = StringToInt(AddressPart) - 1 + let ControlAtAddress = GetFirstChild(ControlAtAddress) + ;SayString( "Control is " + GetWindowClass(ControlAtAddress) + GetWindowName(ControlAtAddress) + IntToString(TabsLeft) + " tabs left to go.") + while TabsLeft > 0 + let TabsLeft = TabsLeft - 1 + let ControlAtAddress = GetNextWindow(ControlAtAddress) + ;SayString( "Control is " + GetWindowClass(ControlAtAddress) + GetWindowName(ControlAtAddress) + IntToString(TabsLeft) + " tabs left to go.") + endwhile + let AddressIndex = AddressIndex+1 + let AddressPart = StringSegment(Address, " ", AddressIndex) + endwhile + return ControlAtAddress +endFunction + +handle function GetCurrentPageHandle() + var + handle ContainingWindow + let ContainingWindow = GetRealWindow(GetFocus()) + if GetWindowClass(ContainingWindow) == "TfrmFrame" then + return GetHandleFromAddress(ContainingWindow, "1 1 1"); pnlPatientSelected, pnlPage, frmPage + else + return 0 + endif +endFunction + +string function YankString(string S, string Except, int ByRef Yanked) + let Yanked = SubString(S, 1, StringLength(Except)) == Except + if Yanked then + return SubString(S, StringLength(Except)+1, StringLength(S)-StringLength(Except)) + else + return S + endif +endFunction + +string function StripControls( string KeyName, int ByRef Shifted, int ByRef Controlled, int ByRef Alted) + var + string S + let S = KeyName + let S = YankString(S, "LeftAlt+", Alted) + if not Alted then + let S = YankString(S, "RightAlt+", Alted) + endif + let S = YankString(S, "LeftControl+", Controlled) + if not Controlled then + let S = YankString(S, "RightControl+", Controlled) + endif + let S = YankString(S, "LeftShift+", Shifted) + if not Shifted then + let S = YankString(S, "RightShift+", Shifted) + endif + return S +endFunction + +Void Function NewTextEvent (handle hwnd, string buffer, int nAttributes, +int nTextColor, int nBackgroundColor, int nEcho, string sFrameName) + var + string sClass + Let sClass = GetWindowClass (hWnd) + if sClass != "TORComboEdit" then + NewTextEvent(hwnd,buffer,nAttributes,nTextColor,nBackgroundColor,nEcho,sFrameName) + endif +EndFunction + + +Void Function FocusChangedEvent (handle FocusWindow, handle PrevWindow) + var + string Class, + int ID, + handle ContainingWindow, + handle CurrentPage, + handle FormHandle + ;Populate component ID's + Let ContainingWindow = GetRealWindow(FocusWindow) + Let CurrentPage = GetCurrentPageHandle(); + if GetWindowClass(CurrentPage) == "TfrmCover" then + if CoverVitalsID == 0 then + let FormHandle = GetHandleFromAddress(CurrentPage, "1 1 2 1 2");pnlBase, pnlBottom, pnl_Not8, pnl_7, lst_7 + let CoverVitalsID = GetControlID(FormHandle) + endif + elif GetWindowClass(CurrentPage) == "TfrmMeds" then + if MedsInPatientID == 0 then + let MedsInPatientID = GetControlID(GetHandleFromAddress(CurrentPage, "2 3")); pnlMedIn, lstMedsIn + endif + if MedsOutPatientID == 0 then + let MedsOutPatientID = GetControlID(GetHandleFromAddress(CurrentPage, "1 2")); pnlMedOut, lstMedsOut + endif + elif GetWindowClass(ContainingWindow) == "TfrmODProc" then + if ODProcReasonForRequestID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "16 1"); pnlReason, memReason + let ODProcReasonForRequestID = GetControlID(FormHandle) + endif + if ODProcInpatientID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "12"); radInpatient + let ODProcInpatientID = GetControlID(FormHandle) + endif + if ODProcOutpatientID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "11"); radOtpatient + let ODProcOutpatientID = GetControlID(FormHandle) + endif + elif GetWindowClass(ContainingWindow) == "TfrmODCslt" then + if ODCsltReasonForCsltID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "21 1"); pnlReason, memReason + let ODCsltReasonForCsltID= GetControlID(FormHandle) + endif + if ODCsltOutpatientID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "1 2"); gbInptOpt, radOutpatient + let ODCsltOutpatientID = GetControlID(FormHandle) + endif + if ODCsltInpatientID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "1 1"); gbInptOpt, radInpatient + let ODCsltInpatientID = GetControlID(FormHandle) + endif + elif GetWindowClass(ContainingWindow) == "TfrmPtCWAD" then + if PtCWADAllergiesID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "5"); allergies + let PtCWADAllergiesID = GetControlID(FormHandle) + endif + elif GetWindowClass(ContainingWindow) == "TfrmPtSel" then + if PtSelNotificationsID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "1"); notification + let PtSelNotificationsID = GetControlID(FormHandle) + endif + elif GetWindowClass(ContainingWindow) == "TfrmTemplateEditor" then + if TemplateEditorBlankLinesID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "4 3 1 1 11"); pnlTop, pnlRightTop, pnlProperties, gbProperties,edtGap + let TemplateEditorBlankLinesID = GetControlID(FormHandle) + endif + elif GetWindowClass(ContainingWindow) == "TfrmODMeds" then + if ODMedsCommentsID == 0 then + if GetHandleFromAddress(ContainingWindow, "1 1 9") == 0 then; make sure we are in Inpatient + let FormHandle = GetHandleFromAddress(ContainingWindow, "1 1 7"); pnlFields, pnlBottom, memComment + let ODMedsCommentsID = GetControlID(FormHandle) + endif + endif + if ODMedsPriorityID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "1 1 2 2"); pnlFields, pnlBottom, cboPriority, [Combo Edit] + let ODMedsPriorityID = GetControlID(FormHandle) + endif + elif GetWindowClass(ContainingWindow) == "TfrmConsultsByStatus" then + if ConsultsByStatusStatusID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "1 4"); pnlBase,lstStatus + let ConsultsByStatusStatusID = GetControlID(FormHandle) + endif + elif GetWindowClass(ContainingWindow) == "TfrmConsultAction" then + if ConsultActionCommentsID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "1 1 2 3"); pnlBase,pnlOther,pnlComments,memComments + let ConsultActionCommentsID = GetControlID(FormHandle) + endif + if ConsultActionAlertID == 0 then + let FormHandle = GetHandleFromAddress(ContainingWindow, "1 1 2 1 1"); pnlBase,pnlOther,pnlComments,pnlAlert,ckAlert + let ConsultActionAlertID = GetControlID(FormHandle) + endif + endif + Let Class = GetWindowClass (FocusWindow) + if Class == "TORListBox" then + Let ID = GetControlID(FocusWindow) + if ID == CoverVitalsID then ;Vitals list box on cover sheet + SayString("Vitals") + elif ID == PtCWADAllergiesID then; Allergies list box on patient postings + SayString("Allergies") + elif ID == ConsultsByStatusStatusID then; Status list box on consults by status dialog + SayString("Status") + SayString(GetWindowType(FocusWindow)); JAWS occasionally finds the label, so don't speak it again! + SayString(GetWindowText(FocusWindow, 0)) + return + endif + elif Class == "TCaptionRichEdit" then + Let ID = GetControlID(FocusWindow) + if ID == ODProcReasonForRequestID then ;Reason for request on OD Procs + SayString("Reason for Request") + endif + elif Class == "TRichEdit" then + Let ID = GetControlID(FocusWindow) + if ID == ODCsltReasonForCsltID then ;Reason for request on OD Consult + SayString("Reason for Request") + endif + elif Class == "TRadioButton" then + Let ID = GetControlID(FocusWindow) + if ID == ID == ODCsltOutpatientID || ODProcInpatientID || ID == ODProcOutpatientID || ID == ODCsltInpatientID then ;Radio buttons on OD Procs + SayString("Patient will be seen as an ") + endif + elif Class == "TCaptionListView" then + Let ID = GetControlID(FocusWindow) + if ID == PtSelNotificationsID then ;Notification list on Patient select + SayString("Notifications") + endif + elif Class == "TCaptionEdit" then + Let ID = GetControlID(FocusWindow) + if ID == TemplateEditorBlankLinesID then ;Number of blank lines on Template Editor + SayString("Number of blank lines to insert between items") + SayString(GetWindowType(FocusWindow)) + SayString(GetWindowText(FocusWindow, 0)) + return + endif + elif Class == "TCaptionListBox" then + Let ID = GetControlID(FocusWindow) + if ID == MedsInPatientID then ;Inpatient Medications on Meds tab + SayString("Inpatient Medications") + elif ID == MedsOutPatientID then ;Outpatient Medications on Meds tab + SayString("Outpatient Medications") + endif + elif Class == "TCaptionMemo" then + Let ID = GetControlID(FocusWindow) + if ID == ODMedsCommentsID then ;Comment box on Meds order + SayString("Comments") + elif ID == ConsultActionCommentsID then ;Comment Box on consult action + SayString("Comments") + endif + elif Class == "TORComboEdit" then + Let ID = GetControlID(FocusWindow) + if ID == ODMedsPriorityID then ;Priority combo box on Meds order + SayString("Priority") + SayString(GetWindowType(FocusWindow)) + SayString(GetWindowText(FocusWindow, 0)) + return + endif + elif Class == "TCheckBox" then + Let ID = GetControlID(FocusWindow) + if ID == ConsultActionAlertID then ;Alert check box on consult action tab + SayString(GetWindowName(GetNextWindow(FocusWindow))) ;Auto-alert message + endif + endif + FocusChangedEvent(FocusWindow, PrevWindow) +EndFunction + + +Void Function AutoStartEvent () + let CoverVitalsID = 0 + let ODProcReasonForRequestID = 0 + let ODProcInpatientID = 0 + let ODProcOutpatientID = 0 + let ODCsltReasonForCsltID = 0 + let ODCsltInpatientID = 0 + let ODCsltOutpatientID = 0 + let PtCWADAllergiesID = 0 + let PtSelNotificationsID = 0 + let TemplateEditorBlankLinesID = 0 + let MedsInPatientID = 0 + let MedsOutPatientID = 0 + let ODMedsCommentsID = 0 + let ODMedsPriorityID = 0 + let NotesViewMenuID = 0 + let ConsultsByStatusStatusID = 0 + let ConsultActionCommentsID = 0 + let ConsultActionAlertID = 0 + let CurrentMenuContext = NoMenuContext + AutoStartEvent () +EndFunction + +Void Function MenuBarToMenuContext(string PlainKeyName) + var + string PageName + let PageName = GetWindowClass(GetCurrentPageHandle()) + if PageName == "TfrmNotes" then + if PlainKeyName == "A" then + let CurrentMenuContext = NotesActionMenuContext + elif PlainKeyName == "V" then + let CurrentMenuContext = NotesViewMenuContext + endif + elif PageName == "TfrmConsults" then + if PlainKeyName == "A" then + let CurrentMenuContext = ConsultsActionMenuContext + elif PlainKeyName == "V" then + let CurrentMenuContext = ConsultsViewMenuContext + endif + endif +EndFunction + +Void Function KeyPressedEvent (int nKey, string strKeyName, int nIsBrailleKey, int nIsScriptKey) + var + string PlainKeyName, + int Shifted, + int Controlled, + int Alted, + string PageName, + int DoMenuBar + let PlainKeyName = StripControls(strKeyName, Shifted, Controlled, Alted) + let PageName = GetWindowClass(GetCurrentPageHandle()) + + ;Handle shortcut keys first + if PageName == "TfrmNotes" && PlainKeyName == "A" && Shifted && Controlled && not Alted then + SayString("Saving note without signature") + else + let DoMenuBar = GlobalMenuMode == MENUBAR_ACTIVE || (GlobalMenuMode == MENU_INACTIVE && Alted) + if DoMenuBar then + MenuBarToMenuContext(PlainKeyName) + elif CurrentMenuContext == NotesActionMenuContext then + if PlainKeyName == "A" then + SayString("Saving note without signature") + let CurrentMenuContext = NoMenuContext + else + MenuBarToMenuContext(PlainKeyName) + endif + elif CurrentMenuContext == NotesViewMenuContext then + if PlainKeyName == "D" then + SayString("Toggling note details") + let CurrentMenuContext = NoMenuContext + else + MenuBarToMenuContext(PlainKeyName) + endif + elif CurrentMenuContext == ConsultsActionMenuContext then + if PlainKeyName == "C" then + let CurrentMenuContext = ConsultsTrackingMenuContext + else + MenuBarToMenuContext(PlainKeyName) + endif + elif CurrentMenuContext == ConsultsTrackingMenuContext then + if PlainKeyName == "T" then + SayString("Displaying consult details") + let CurrentMenuContext = NoMenuContext + elif PlainKeyName == "U" then + SayString("Displaying consult results") + let CurrentMenuContext = NoMenuContext + else + MenuBarToMenuContext(PlainKeyName) + endif + elif CurrentMenuContext == ConsultsViewMenuContext then + if PlainKeyName == "F" then + SayString("Returning to default view") + let CurrentMenuContext = NoMenuContext + else + MenuBarToMenuContext(PlainKeyName) + endif + endif + endif + KeyPressedEvent (nKey, strKeyName, nIsBrailleKey, nIsScriptKey) +EndFunction + +Void Function MenuModeEvent (handle WinHandle, int mode) + if mode == MENU_INACTIVE then + let CurrentMenuContext = NoMenuContext + endif + MenuModeEvent(WinHandle,mode) +EndFunction + +/* Event chasing code below. Uncomment bits of this to trace the firing of events +Void Function FocusChangedEvent (handle FocusWindow, handle PrevWindow) + SayString( "Focus Changed Event") + FocusChangedEvent(FocusWindow, PrevWindow) +EndFunction + +Void Function ActiveItemChangedEvent (handle curHwnd, int curObjectId, int curChildId, + handle prevHwnd, int prevObjectId, int prevChildId) + SayString( "Active Item Changed Event") + ActiveItemChangedEvent (curHwnd, curObjectId, curChildId, prevHwnd, prevObjectId, prevChildId) +EndFunction + +Void Function AutoFinishEvent () + SayString( "Auto Finish Event") + AutoFinishEvent () +EndFunction + +Void Function KeyPressedEvent (int nKey, string strKeyName, int nIsBrailleKey, int nIsScriptKey) + SayString( "Key Pressed Event") + KeyPressedEvent (nKey, strKeyName, nIsBrailleKey, nIsScriptKey) +EndFunction + +void function ObjStateChangedEvent (handle hObj) + SayString( "Object State Changed Event") + ObjStateChangedEvent (hObj) +EndFunction + +Void Function FocusPointMovedEvent (int nX, int nY, int nOldX, int nOldY, int nUnit, int nDir, int nTimeElapsed) + SayString( "Focus Point Moved Event") + FocusPointMovedEvent (nX, nY, nOldX, nOldY, nUnit, nDir, nTimeElapsed) +EndFunction + +Void Function ValueChangedEvent (handle hwnd, int objId, int childId, int nObjType, string sObjName, string sObjValue) + SayString( "Value Changed Event") + ValueChangedEvent (hwnd, objId, childId, nObjType, sObjName, sObjValue) +EndFunction + +Void Function DocumentLoadedEvent () + SayString( "Dcoument Loaded Event") + DocumentLoadedEvent () +EndFunction + +void function FormsModeEvent(int bEntering) + SayString( "Forms Mode Event") + FormsModeEvent(bEntering) +EndFunction + +void function TextSelectedEvent(string strText, int bUnSelecting) + SayString( "Text Selected Event") + TextSelectedEvent(strText, bUnSelecting) +EndFunction +/* End of event chasing */ + diff --git a/CPRS-Chart/JAWS Support Files/CPRSChart.jcf b/CPRS-Chart/JAWS Support Files/CPRSChart.jcf new file mode 100644 index 0000000..77b4b26 --- /dev/null +++ b/CPRS-Chart/JAWS Support Files/CPRSChart.jcf @@ -0,0 +1,36 @@ +[WindowClasses] +TORComboEdit=EditCombo +TORAlignButton=Button +TORTreeView=TreeView +TORAlignEdit=Edit +TORListView=ListView +TORCheckBox=CheckBox +TCaptionMemo=Edit +TCaptionRichEdit=Edit +TCaptionTreeView=TreeView + +TRadioGroup=GroupBox +TGroupBox=GroupBox +TKeyClickPanel=Button +TKeyClickRadioGroup=GroupBox +TORListBox=ListBox +[Options] +SayNumericDates=0 + +[MSAAClasses] +TCaptionListBox=1 + + + + + + + + + + + + + + + diff --git a/CPRS-Chart/JAWS Support Files/CPRSChart.jsb b/CPRS-Chart/JAWS Support Files/CPRSChart.jsb new file mode 100644 index 0000000..6ec284c Binary files /dev/null and b/CPRS-Chart/JAWS Support Files/CPRSChart.jsb differ diff --git a/CPRS-Chart/JAWS Support Files/CPRSChart.jsd b/CPRS-Chart/JAWS Support Files/CPRSChart.jsd new file mode 100644 index 0000000..225aaba --- /dev/null +++ b/CPRS-Chart/JAWS Support Files/CPRSChart.jsd @@ -0,0 +1,14 @@ +:function NewTextEvent +:Synopsis This event gets overridden when JAWS starts talking too much +:Description The edit field of TORComboBoxes uses highlighted text to auto-complete what has been typed in so far. We only want JAWS to say the selected list item. + +:function GetHandleFromAddress +:Synopsis This utility function walks down the windows hierarchy +:Description The component ID's vary from compile to compile, so constants aren't much help for identifying the components. Instead, we use the component's hierarchical position as an address to locate it as a descendant of the form. +:Param handle/Parent The handle of a window we have already identified +:Param string/Address A space-separated list of numeral integers indicating the relationships from generation to generation. Each integer indicates which child to choose from its parent, with 1 being the first child. +:returns handle The handle of the child at that adress; 0 if the address is invalid for the parent. + +:function FocusChangedEvent +:Synopsis This event gets overridden when JAWS isn't speaking the titles correctly. If needed, it initializes the global variables it uses. +:Description This speaks the Cover Sheet Vitals and the Procedure Order Reason For Request. diff --git a/CPRS-Chart/Options/fOptions.dfm b/CPRS-Chart/Options/fOptions.dfm new file mode 100644 index 0000000..4933b69 --- /dev/null +++ b/CPRS-Chart/Options/fOptions.dfm @@ -0,0 +1,1538 @@ +object frmOptions: TfrmOptions + Left = 315 + Top = 110 + Width = 435 + Height = 397 + HelpContext = 9999 + VertScrollBar.Range = 360 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Options' + Color = clBtnFace + ParentFont = True + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = True + Position = poScreenCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object pnlBottom: TPanel + Left = 0 + Top = 340 + Width = 427 + Height = 30 + HelpContext = 9999 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 1 + object btnOK: TButton + Left = 187 + Top = 2 + Width = 75 + Height = 22 + HelpContext = 9007 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + OnClick = btnApplyClick + end + object btnCancel: TButton + Left = 267 + Top = 2 + Width = 75 + Height = 22 + HelpContext = 9008 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + object btnApply: TButton + Left = 347 + Top = 2 + Width = 75 + Height = 22 + HelpContext = 9009 + Caption = 'Apply' + Enabled = False + TabOrder = 2 + OnClick = btnApplyClick + end + end + object pnlMain: TPanel + Left = 0 + Top = 0 + Width = 427 + Height = 340 + Align = alClient + BevelOuter = bvNone + BorderWidth = 5 + ParentColor = True + TabOrder = 0 + object pagOptions: TPageControl + Left = 5 + Top = 5 + Width = 417 + Height = 330 + HelpContext = 9999 + ActivePage = tsListsTeams + Align = alClient + TabIndex = 3 + TabOrder = 0 + object tsCoverSheet: TTabSheet + HelpContext = 9000 + Caption = 'General' + DesignSize = ( + 409 + 302) + object bvlCoverDays: TBevel + Left = 125 + Top = 16 + Width = 275 + Height = 2 + end + object bvlCoverReminders: TBevel + Left = 112 + Top = 102 + Width = 288 + Height = 2 + end + object imgCoverDays: TImage + Left = 16 + Top = 27 + Width = 41 + Height = 41 + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000777777777777777777777777700000007FFF8FFF8FFF8FFF88888 + 888800000007FFF8FFF8FFF8FFF88888888800000007FFF8FFF8FFF8FFF88888 + 88880000000788888888888888888888888800000007FFF8FFF8FFF8FFF8FFF8 + FFF800000007FFF8FFF8FFF8FFF8FFF8FFF800000007FFF8FFF8FFF8FFF8FFF8 + FFF80000000788888888888888888888888800000007FFF8FFF8FFF8FFF8FFF8 + FFF800000007FFF8FFF8FFF8FFF8FFF8FFF800000007FFF8FFF8FFF8FFF8FFF8 + FFF80000000788888888888888881118888800000007FFF8FFF8FFF8FFF18F81 + FFF800000007FFF8FFF8FFF8FFF1FFF1FFF800000007FFF8FFF8FFF8FFF18F81 + FFF80000000788888888888888881118888800000007888888888888FFF8FFF8 + FFF800000007888888888888FFF8FFF8FFF800000007888888888888FFF8FFF8 + FFF8000000077777777777777777777777770000000744444444444477777777 + 7777000000074444444444447777777777770000000777777777777777777777 + 7777000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFE0000007E0000007E0000007E0000007E0000007E0000007E0000007 + E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007 + E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007 + E0000007E0000007FFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 000080000080000000808000800000008000800080800000C0C0C00080808000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000 + 0000000000000000000000008FF7FF7FF7FF7FF08FF7FF7FF7FF7FF087777777 + 777777708FF7FF7FF7FF7FF08FF7FF7FF7FF7FF087777777711117708FF7FF7F + F1FF1FF08FF7FF7FF1FF1FF087777777711117708FF7FF7FF7FF7FF08FF7FF7F + F7FF7FF0844444448888888084444444888888808888888888888880FFFF0000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000} + end + object imgCoverReminders: TImage + Left = 16 + Top = 115 + Width = 41 + Height = 41 + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000008FFF0000000000000000000000000008BFBFFF000000000 + 0000000000000008BFBFFBFFB0000000000000000000000BFBFBFFFFFFF00000 + 000000000000008FBFBFBFBFBFFFB00000000000000000FBFBF38BFBFFFFFFB0 + 00000000000008BFBFB88888BFBFBFFFB000000000000BFBFB83878B8BFFFFFF + FFB0000000008FBFBFBF38383FB8BFFBFFFFB0000000FBFB83FBFB83FB838BFF + FFBFFF700008BFBF7838BFBFB87F87BFBFFFFF70000BFBFB8B878B8BFB8B8F83 + 8FFBF700008FBFBFB8B87838BFB8383F88FF700000FBFB8BFBF3838788FBFBF3 + 8BFB700008BFB878B8BFBFB83878BFF8FFF700000BFBF38B878BFBFBF37788FB + FBF700008FBFBFB8B8387FBFBFB838BFFF7000008BFBFBFBFB838B8BFBFBF3FB + FB70000077BFBFBFB887BF383FBFBFBFB70000000077FBFBFBFBF3FB878B8BFB + F7000000000077BFBFBFBF38B778BFBF7000000000000077FBFBFBFBFB83FBFB + 700000000000000077BFBFBFBFBFBFB700000000000000000077FBFBFBFBFBF7 + 0000000000000000000077BFBFBFBF70000000000000000000000077FBFBFB70 + 00000000000000000000000077BFB70000000000000000000000000000777000 + 0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF87FFFF + FF01FFFFFE007FFFFC001FFFFC0007FFF80001FFF800007FF000001FF0000007 + E0000001E0000001C0000001C000000380000007800000070000000F0000000F + 0000001F0000001F0000003FC000003FF000007FFC00007FFF0000FFFFC000FF + FFF001FFFFFC01FFFFFF03FFFFFFC7FFFFFFFFFF280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 000080000080000000808000800000008000800080800000C0C0C00080808000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000 + 00000000000000000000000000000FB00000000000000BFBF00000000000BFBF + BFB000000000FB88FBFBF000000FBFBF88BFBFB0000BF88BFB88FB8000BFBFB8 + 8FBFB80000FB88FBF88BF800088FBF88BFBF800000088BFB88FB80000000088F + BFB80000000000088BF8000000000000088000000000000000000000FFFF0000 + F9FF0000F07F0000F01F0000E0070000E0010000C0000000C001000080030000 + 8003000080070000E0070000F80F0000FE0F0000FF9F0000FFFF0000} + end + object bvlOtherParameters: TBevel + Left = 115 + Top = 185 + Width = 288 + Height = 2 + end + object imgOtherParameters: TImage + Left = 15 + Top = 197 + Width = 41 + Height = 41 + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000 + 000000000000000000FBFFFBFFFBFFFBFFFBFFF00000000000FFFFFFFFFFFFFF + FFFFFFF00000000000FFFBFFFBFFFBFFFBFFFBF00000000000FFFFFFFFFFFFFF + FFFFFFF00000000000FB77777777777777777FF00000000000FFFFFFFFFFFFFF + FFFFFFF00000000000FFFBFFFBFFFBFFFBFFFBF00000000000FFFFFFFFFFFFFF + FFFFFFF000000000008877777777777777777FF0000000000000000000000008 + FFFFFFF00BFBFBFBFBFBFBFBFBFBFB08FBFFFBF000BFBFBFBFBFBFBFBFBFBFB0 + 8FFFFFF000FBFBFBFBFBFBFBFBFBFBF077777FF0000FBFBFBFBFBFBFBFBFBFBF + 08FFFFF0000BFBFBFBFBFBFBFBFBFBFB08FFFBF00000BFBFBFBFBFBFBFBFBFBF + B08FFFF00000FBFBFBFBFBFBFBFBFBFBF0777FF000000FBFBFBFBFBFBFBFBFBF + BF08FFF000000BFBFBFBFBFBFBFBFBFBFB08FBF0000000BFBFBF000000000FBF + BFB08FF0000000FBFBFB0FFFFFFF0BFBFBF07FF00000000FBFBFB0F0F00FF0BF + BFBF08F00000000BFBFBF0FF0000F0FBFBFB08F000000000BFBFBF0FFFFFFF0F + BFBFB08000000000FBFBFB000000000BFBFBF080000000000FBFBFBFBFBFBFBF + BFBFBF00000000000BFBFBFBFBFBFBFBFBFBFB000000000000BF7FBF7FBF7FBF + 7FBF7FB000000000000070007000700070007000000000000000707070707070 + 7070707000000000000007000700070007000700FF800000FF800000FF800000 + FF800000FF800000FF800000FF800000FF800000FF800000FF80000000000000 + 000000008000000080000000C0000000C0000000E0000000E0000000F0000000 + F0000000F8000000F8000000FC000000FC000000FE000000FE000000FF000000 + FF000000FF800000FF800000FFF55555FFFBBBBB280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 00008000008000000080800080000000800080008080000080808000C0C0C000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000 + 0000000000000FBFBFBFBFB000000B77777777F000000FBFBFBFBFB000000B77 + 777777F0000000000000BFB00BFBFBFBFBF0F7F000BFBFBFBFBF0FB000FBFBFB + FBFB0BF0000FB00000BFB0B0000BFB0FFF0BF0F00000BF00000FBF000000FBFB + FBFBFB00000007BF7FB7BF7000000700700700700000007007007007F0000000 + F0000000F0000000F0000000F000000000000000000000008000000080000000 + C0000000C0000000E0000000E0000000F0000000F0000000FDB60000} + end + object lblCoverReminderDesc: TMemo + Left = 125 + Top = 115 + Width = 275 + Height = 67 + TabStop = False + Anchors = [akLeft, akTop, akRight] + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Configure and arrange which clinical reminders are ' + 'displayed on your cover sheet.') + ReadOnly = True + TabOrder = 3 + end + object lblCoverReminders: TStaticText + Left = 13 + Top = 95 + Width = 90 + Height = 17 + Caption = 'Clinical Reminders' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object lblCoverDaysDesc: TMemo + Left = 125 + Top = 27 + Width = 275 + Height = 70 + TabStop = False + Anchors = [akLeft, akTop, akRight] + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Change the default date ranges for displaying patient ' + 'information on your cover sheet.') + ReadOnly = True + TabOrder = 5 + end + object lblCoverDays: TStaticText + Left = 13 + Top = 9 + Width = 102 + Height = 17 + Caption = 'Date Range defaults' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 6 + end + object lblOtherParameters: TStaticText + Left = 12 + Top = 177 + Width = 86 + Height = 17 + Caption = 'Other Parameters' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 7 + end + object lblOtherParametersDesc: TMemo + Left = 124 + Top = 195 + Width = 275 + Height = 78 + TabStop = False + Anchors = [akLeft, akTop, akRight] + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Configure chart tab setting.' + '' + 'Change display date range on Meds tab.' + '' + 'Change Encounter Appointments date range.') + TabOrder = 8 + end + object btnCoverDays: TButton + Left = 255 + Top = 67 + Width = 145 + Height = 22 + HelpContext = 9001 + Anchors = [akTop, akRight] + Caption = '&Date Range Defaults...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = btnCoverDaysClick + end + object btnCoverReminders: TButton + Left = 255 + Top = 150 + Width = 145 + Height = 22 + HelpContext = 9002 + Anchors = [akTop, akRight] + Caption = '&Clinical Reminders...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = btnCoverRemindersClick + end + object btnOtherParameters: TButton + Left = 254 + Top = 269 + Width = 145 + Height = 22 + HelpContext = 9003 + Anchors = [akTop, akRight] + Caption = '&Other Parameters...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = btnOtherParametersClick + end + end + object tsNotifications: TTabSheet + HelpContext = 9030 + Caption = 'Notifications' + object bvlNotifications: TBevel + Left = 88 + Top = 16 + Width = 312 + Height = 2 + end + object imgNotifications: TImage + Left = 16 + Top = 28 + Width = 41 + Height = 41 + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000003888738337700000000000000000038FBFFFB788B8837 + 7000000000000788FBFFFBFFF7FF8B8883700000000007FBFFFBFFFBFF7BFFFB + 888700000000007FFBFFFBFFFB7FFBFFFBF3700000000007FFFBFFFBFFF7FFFB + FF77770000000007FBFFFBFFFBF7FB7777FFF800000000007FFBFFFBFFF777FB + FFFBF800000000007BFFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFB + FFFBF8000000000007FFFBFFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFB + FFFBF80000000000011110FFFBFFFBFFFBFFF80000111000011110FBFFFBFFFB + FFFBF800011111000001110FFBFFFBFFFBFFF800091111011110110FFFFFFFFB + FFFBF800091111011110110000000FFFFBFFF8000991110111101107777777FB + FFFBF800099111099991110FFBFFFBFFFBFFF80000999077091110FBFFFBFFFB + FFFBF80000000000099910FFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFB + FFFBF8000000000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFB + FFFBF8000000000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFB + FFFBF80000000000077777777777777777777700000000000000000000000000 + 0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFE003FF + FF00007FFC00001FF800000FF8000007FC000003FE000001FE000001FF000001 + FF000001FF800001FF800001FF800001C7000001830000010000000100000001 + 00000001000000010000000180000001C7000001FF800001FF800001FF800001 + FF800001FF800001FF800001FFFFFFFFFFFFFFFF280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 000080000080000000808000800000008000800080800000C0C0C00080808000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000 + 00000000000000000000000000087B77088800000008FFFBF0B7880000008BFF + FB0FB78000008FFBFF0F0080000008FFFB80FB700000000BFFFBFF7000000660 + FBFFFB7006600060FFFBFF700E60E06000FFFB700EE00EE0FFFBFF700000000F + FBFFFB70000008FBFFFBFF7000000888888888800000000000000000FFFF0000 + F00F0000E0030000E0010000F0000000F0000000F8000000F800000090000000 + 00000000000000000000000098000000F8000000F8000000FFFF0000} + end + object lblNotificationView: TLabel + Left = 10 + Top = 118 + Width = 349 + Height = 13 + Caption = + 'You can turn on or off these notifications except those that are' + + ' mandatory.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lblNotificationsOptions: TStaticText + Left = 125 + Top = 27 + Width = 158 + Height = 17 + Caption = 'Change your notification options.' + TabOrder = 4 + end + object lblNotifications: TStaticText + Left = 13 + Top = 9 + Width = 62 + Height = 17 + Caption = 'Notifications' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object lblNotificationsSurrogate: TStaticText + Left = 9 + Top = 100 + Width = 53 + Height = 17 + Caption = 'Surrogate:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 6 + end + object lblNotificationsSurrogateText: TStaticText + Left = 60 + Top = 100 + Width = 130 + Height = 17 + Caption = '' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 7 + end + object lvwNotifications: TCaptionListView + Left = 0 + Top = 136 + Width = 409 + Height = 159 + HelpContext = 9035 + Align = alBottom + Checkboxes = True + Columns = < + item + Caption = 'Notification' + Width = 190 + end + item + Caption = 'On/Off' + end + item + Caption = 'Comment' + Width = 145 + end> + ReadOnly = True + RowSelect = True + TabOrder = 3 + ViewStyle = vsReport + OnChange = lvwNotificationsChange + OnColumnClick = lvwNotificationsColumnClick + OnCompare = lvwNotificationsCompare + OnDblClick = lvwNotificationsDblClick + OnEnter = lvwNotificationsEnter + OnMouseDown = lvwNotificationsMouseDown + Caption = + 'You can turn on or off these notifications except those that are' + + ' mandatory.' + end + object btnNotificationsRemove: TButton + Left = 191 + Top = 73 + Width = 160 + Height = 22 + HelpContext = 9031 + Caption = '&Remove Pending Notifications...' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = btnNotificationsRemoveClick + end + object chkNotificationsFlagged: TCheckBox + Left = 88 + Top = 50 + Width = 241 + Height = 16 + HelpContext = 9032 + Caption = 'Send me a MailMan bulletin for flagged orders' + TabOrder = 0 + OnClick = chkNotificationsFlaggedClick + end + object btnSurrogate: TButton + Left = 8 + Top = 73 + Width = 120 + Height = 22 + HelpContext = 9033 + Caption = 'Surrogate Settings...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = btnSurrogateClick + end + end + object tsOrderChecks: TTabSheet + HelpContext = 9040 + Caption = 'Order Checks' + ImageIndex = 3 + object lblOrderChecksDesc: TLabel + Left = 125 + Top = 27 + Width = 275 + Height = 30 + AutoSize = False + Caption = 'Enable or disable your order checks.' + WordWrap = True + end + object bvlOrderChecks: TBevel + Left = 88 + Top = 16 + Width = 312 + Height = 2 + end + object imgOrderChecks: TImage + Left = 16 + Top = 27 + Width = 41 + Height = 41 + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000777777777777777777777700000000007FFFFFFFFFFFFFFFFFF + FF700000000007FFFFFFFFFFFFFFFFFFFF700000000007FFFFFFFFFFFFFFFFFF + FF700000000007FFFFFF888FFFFFFFFFFF700000000007FFFFF81188FFFFFFFF + FF700000000007FFFF8111188FFFFFFFFF700000000007FFF81111118FFFFFFF + FF700000000007FF8111111178FFFFFFFF700000000007FF1111F711188FFFFF + FF700000000007FF111FFF811188FFFFFF700000000007FFF1FFFFF81178FFFF + FF700000000007FFFFFFFFFF81178FFFFF700000000007FFFFFFFFFFFF1188FF + FF700000000007FFFFFFFFFFFFF1188FFF700000000007FFFFFFFFFFFFFF1188 + FF700000000007FFFFFFFFFFFFFFF118FF700000000007FFFFFFFFFFFFFFFF11 + FF700000000007FFFFFFFFFFFFFFFFF18F700000000007FFFFFFFFFFFFFFFFFF + 1F700000000007FFFFFFFFFFFFFFFFFFFF700000000007FFFFF000000000008F + FF700000000007FFFFF777777777808FFF700000000000777777F77777778077 + 77000000000000000007F88888878000000000000000000000007FFFFFF70000 + 0000000000000000000007777777000000000000000000000000000000000000 + 0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFC00001F + F800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000F + F800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000F + F800000FF800000FF800000FF800000FF800000FF800000FF800000FFC00003F + FFE003FFFFF007FFFFF80FFFFFFFFFFFFFFFFFFF280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 000080000080000000808000800000008000800080800000C0C0C00080808000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000 + 000000000000000000000000000FFFFFFFFFF000000FFF77FFFFF000000FF717 + 7FFFF000000F711177FFF000000F11F117FFF000000FFFFF187FF000000FFFFF + F177F000000FFFFFFF17F000000FFFFFFFF1F000000FFFFFFFFFF000000FF000 + 000FF000000000F77700000000000000000000000000000000000000FFFF0000 + E0070000C0030000C0030000C0030000C0030000C0030000C0030000C0030000 + C0030000C0030000C0030000C0030000E0070000FC3F0000FFFF0000} + end + object lblOrderChecksView: TLabel + Left = 13 + Top = 68 + Width = 349 + Height = 13 + Caption = + 'You can turn on or off these notifications except those that are' + + ' mandatory.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lblOrderChecks: TStaticText + Left = 13 + Top = 9 + Width = 69 + Height = 17 + Caption = 'Order Checks' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object lvwOrderChecks: TCaptionListView + Left = 0 + Top = 87 + Width = 409 + Height = 208 + HelpContext = 9041 + Align = alBottom + Checkboxes = True + Columns = < + item + Caption = 'Order Check' + Width = 190 + end + item + Caption = 'On/Off' + end + item + Caption = 'Comment' + Width = 145 + end> + ReadOnly = True + RowSelect = True + TabOrder = 0 + ViewStyle = vsReport + OnChange = lvwNotificationsChange + OnColumnClick = lvwNotificationsColumnClick + OnCompare = lvwNotificationsCompare + OnDblClick = lvwNotificationsDblClick + OnEnter = lvwNotificationsEnter + OnMouseDown = lvwNotificationsMouseDown + Caption = + 'You can turn on or off these notifications except those that are' + + ' mandatory.' + end + end + object tsListsTeams: TTabSheet + HelpContext = 9050 + Caption = 'Lists/Teams' + ImageIndex = 4 + object bvlPatientSelection: TBevel + Left = 144 + Top = 16 + Width = 256 + Height = 2 + end + object imgPatientSelection: TImage + Left = 16 + Top = 28 + Width = 41 + Height = 41 + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00066660006606666000000000 + 000000000666066600606600000000000000000000600660FF60000000000000 + 000000000000660FFF0000000000000000000000000000FF8800000000000000 + 0000000000000FFF700005550555500000000000000007FFFFFF070050500000 + 00000000000077FFFFFF78885000000000000000000780FFFF70088800000000 + 000000000078880FFFFF088700000000000000000088870FFFFFF08000000000 + 00000000008880FFFFFF08888000000000000000008F80FFFFF7888880000000 + 0000000000FF8807FFF08888800000000000000000FFFFFFFFF0888888000000 + 00000000007FFFFFFFF888888880000000000000000FFFFFFFF0088888000000 + 00000000000007FFF00778888700000000000000000000000888778880777777 + 777777700000000FF8888788808888888888887000000007FF88887778088888 + 8888887000000000FFF8888888088848888888700000000077FFFFF700888444 + 8888887000000000007700000788444448888870000000000000000007888484 + 4488887000000000000000000788888844488870000000000000000007888888 + 8444887000000000000000000788888888444870000000000000000007888888 + 8884887000000000000000000788888888888870000000000000000007888888 + 88888870000000000000000007777777777777700001FFFF0001FFFF8003FFFF + C00FFFFFE01FFFFFF00007FFF00007FFE0001FFFC0003FFF80007FFF80007FFF + 80003FFF80003FFF80003FFF80001FFFC0000FFFC0001FFFE0003FFFFC000001 + FC000001FE000001FE000001FF000001FFC18001FFFF8001FFFF8001FFFF8001 + FFFF8001FFFF8001FFFF8001FFFF8001FFFF8001280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 000080000080000000808000800000008000800080800000C0C0C00080808000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000660060 + 000000000000FF0000000000000FF005050000000000FFF070000000077FFFF0 + 700000000770FFFF070000000770FF007700000007770FF07770000000777770 + 7000000000000008770888880000088888047778000000000044477800000000 + 0847447800000000087774480000000008777748000000000888888880FF0000 + C1FF0000C01F0000803F0000003F0000001F0000001F0000000F0000801F0000 + C0000000F0000000F8000000FF800000FF800000FF800000FF800000} + end + object bvlTeams: TBevel + Left = 144 + Top = 155 + Width = 256 + Height = 2 + end + object imgTeams: TImage + Left = 16 + Top = 168 + Width = 41 + Height = 41 + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00066660006606666000000000 + 000000000666066600606600000000000000000000600660FF60000000000000 + 000000000000660FFF0000000000000000000000000000FF8800000000000000 + 0000000000000FFF700005550555500000000000000007FFFFFF070050500000 + 00000000000077FFFFFF78885000000000000000000780FFFF70088800000000 + 000000000078880FFFFF088700000000000000000088870FFFFFF08000000000 + 00000000008880FFFFFF08888000000000000000008F80FFFFF7888880000000 + 0000000000FF8807FFF08888800000000000000000FFFFFFFFF0888888000000 + 00000000007FFFFFFFF888888880000000000000000FFFFFFFF0088888000000 + 00000000000007FFF00778888700000000000000000000000888778880000000 + 000000000000000FF8888788800000000000000000000007FF88887778000000 + 0000000000000000FFF8888888000000000000000000000077FFFFF700000000 + 0000000000000000007700000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000001FFFF0001FFFF8003FFFF + C00FFFFFE01FFFFFF00007FFF00007FFE0001FFFC0003FFF80007FFF80007FFF + 80003FFF80003FFF80003FFF80001FFFC0000FFFC0001FFFE0003FFFFC003FFF + FC003FFFFE001FFFFE001FFFFF003FFFFFC1FFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 000080000080000000808000800000008000800080800000C0C0C00080808000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000660060 + 000000000000FF0000000000000FF005050000000000FFF070000000077FFFF0 + 700000000770FFFF070000000770FF007700000007770FF07770000000777770 + 7008888800000008770557780000088888077778000000000075577800000000 + 0877557800000000085775580000000008755578000000000888888880FF0000 + C1FF0000C01F0000803F0000003F0000001F0000001F0000000F000080000000 + C0000000F0000000F8000000FF800000FF800000FF800000FF800000} + end + object lblPatientSelectionDesc: TMemo + Left = 125 + Top = 27 + Width = 275 + Height = 78 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Change the defaults for selecting patients. If your List ' + 'Source is Combination, the criteria is defined using Source ' + 'Combinations.') + ReadOnly = True + TabOrder = 7 + end + object lblTeamsDesc: TMemo + Left = 125 + Top = 168 + Width = 275 + Height = 73 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Edit your personal lists of patients and diagnoses. View the ' + 'teams you are on and the patients associated with those ' + 'teams.') + ReadOnly = True + TabOrder = 8 + end + object lblPatientSelection: TStaticText + Left = 13 + Top = 9 + Width = 124 + Height = 17 + Caption = 'Patient Selection defaults' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object lblTeams: TStaticText + Left = 13 + Top = 148 + Width = 125 + Height = 17 + Caption = 'Personal Lists and Teams' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 6 + end + object btnPatientSelection: TButton + Left = 255 + Top = 84 + Width = 145 + Height = 22 + HelpContext = 9051 + Caption = 'Patient &Selection Defaults...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = btnPatientSelectionClick + end + object btnPersonalLists: TButton + Left = 255 + Top = 210 + Width = 145 + Height = 22 + HelpContext = 9052 + Caption = 'Personal &Lists...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = btnPersonalListsClick + end + object btnTeams: TButton + Left = 255 + Top = 266 + Width = 145 + Height = 22 + HelpContext = 9053 + Caption = '&Teams Information...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + OnClick = btnTeamsClick + end + object btnCombinations: TButton + Left = 255 + Top = 117 + Width = 145 + Height = 22 + HelpContext = 9054 + Caption = 'Source &Combinations...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = btnCombinationsClick + end + object btnDiagnoses: TButton + Left = 256 + Top = 237 + Width = 145 + Height = 22 + Caption = 'Personal &Diagnoses List...' + TabOrder = 3 + OnClick = btnDiagnosesClick + end + end + object tsNotes: TTabSheet + HelpContext = 9200 + Caption = 'Notes' + ImageIndex = 4 + DesignSize = ( + 409 + 302) + object bvlNotesNotes: TBevel + Left = 88 + Top = 16 + Width = 312 + Height = 2 + end + object bvlNotesTitles: TBevel + Left = 112 + Top = 155 + Width = 288 + Height = 2 + end + object imgNotesNotes: TImage + Left = 16 + Top = 27 + Width = 41 + Height = 41 + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00077777700077770000000000 + 00000000000000777000077700000000000000000FFFFF000FFFF00777000000 + 000000000FFFFFFFFFFFFF0007770000000000000FFFFFFFFFFFFFFFF0077000 + 000000000FFFFFFFFFFFFFFFFF007700000000000FFFFFFFFFFFFFFFFFF00700 + 000000000FFFFFFFFFFFFFFFFFFF0770000000000FFFFFF77777777777770077 + 777770000FFFFFFFFFFFFFFFFFFFF000000077000FFFFFFFFFFFFFFFFFFFFFFF + FFF007700FFFFFFFFFFFFFFFFFFFFFFFFFFF00700FFFFFFFFFFFFFFFFFFFFFFF + FFFFF0700FFFFFFFFFFFFFFFFFFFFFFFFFFFF0770FFFFFFFFFFFFFFFFFFFFFFF + FFFFF0070FFFFFF77777777777777777777777070FFFFFFFFFFFFFFFFFFFFFFF + FFFFFF070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFFFFFFFFFFFFFFFFFFF + FFFFFF070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFFFFFFFFFFFFFFFFFFF + FFFFFF070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFF77777777777777777 + 777777070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFF0FFF0FF00FFFF0FFF + 000FFF070FFFFFF0FF00F0FF0FFF0FFF0FFFFF070FFFFFF0F0F0F0FF0FFF0FFF + 00FFFF070FFFFFF00FF0F0FF0FFF0FFF0FFFFF070FFFFFF0FFF0FF00FF00000F + 000FFF070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFFFFFFFFFFFFFFFFFFF + FFFFFF070000000000000000000000000000000081C3FFFF0000FFFF00003FFF + 00000FFF000007FF000003FF000003FF000001FF000000070000000300000001 + 0000000100000001000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000001280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 00008000008000000080800080000000800080008080000080808000C0C0C000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777 + 0000000000000000770000000FFFFFFF007000000FFFFFFFFF0770000FF77777 + 777007770FFFFFFFFFFFF0070FFFFFFFFFFFFF070FF77777777777070FFFFFFF + FFFFFF070FFFFFFFFFFFFF070FF77777777777070FF9F9999F9F99070FF9999F + 9F9F9F070FF9F9F9F99999070FFFFFFFFFFFFF07000000000000000700FF0000 + 003F0000001F0000000700000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000} + end + object imgNotes: TImage + Left = 16 + Top = 163 + Width = 41 + Height = 41 + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00077777700077770000000000 + 00000000000000777000077700000000000000000FFFFF000FFFF00777000000 + 000000000FFFFFFFFFFFFF0007770000000000000FFFFFFFFFFFFFFFF0077000 + 000000000FFFFFFFFFFFFFFFFF007700000000000FFFFFFFFFFFFFFFFFF00700 + 000000000FFFFFFFFFFFFFFFFFFF0770000000000FFFFFF77777777777770077 + 777770000FFFFFFFFFFFFFFFFFFFF000000077000FFFFFFFFFFFFFFFFFFFFFFF + FFF007700FFFFFFFFFFFFFFFFFFFFFFFFFFF00700FFFFFFFFFFFFFFFFFFFFFFF + FFFFF0700FFFFFFFFFFFFFFFFFFFFFFFFFFFF0770FFFFFFFFFFFFFFFFFFFFFFF + FFFFF0070FFFFFF77777777777777777777777070FFFFFFFFFFFFFFFFFFFFFFF + FFFFFF070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFFFFFFFFFFFFFFFFFFF + FFFFFF070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFFFFFFFFFFFFFFFFFFF + FFFFFF070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFF77777777777777777 + 777777070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFFFF0FFF0FFF0FFF000 + F000FF070FFFFFFFF0FFF0FFF0FFF0FFF0FFFF070FFFFFFFF0FFF0FFF0FFF0FF + F00FFF070FFFFFFFF0FFF0FFF0FFF0FFF0FFFF070FFFFFF00000F0F00000F0FF + F000FF070FFFFFFFFFFFFFFFFFFFFFFFFFFFFF070FFFFFFFFFFFFFFFFFFFFFFF + FFFFFF070000000000000000000000000000000081C3FFFF0000FFFF00003FFF + 00000FFF000007FF000003FF000003FF000001FF000000070000000300000001 + 0000000100000001000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000001280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 00008000008000000080800080000000800080008080000080808000C0C0C000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777 + 0000000000000000770000000FFFFFFF007000000FFFFFFFFF0770000FF77777 + 777007770FFFFFFFFFFFF0070FFFFFFFFFFFFF070FF77777777777070FFFFFFF + FFFFFF070FFFFFFFFFFFFF070FF77777777777070FF9F9999F9F99070FF9999F + 9F9F9F070FF9F9F9F99999070FFFFFFFFFFFFF07000000000000000700FF0000 + 003F0000001F0000000700000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000} + end + object lblNotesNotesDesc: TMemo + Left = 125 + Top = 27 + Width = 275 + Height = 30 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Configure defaults for editing and saving notes.') + ReadOnly = True + TabOrder = 4 + end + object lblNotesTitlesDesc: TMemo + Left = 125 + Top = 165 + Width = 275 + Height = 78 + TabStop = False + Anchors = [akLeft, akTop, akRight] + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Configure document list preferences.') + ReadOnly = True + TabOrder = 5 + end + object lblNotesNotes: TStaticText + Left = 13 + Top = 9 + Width = 32 + Height = 17 + Caption = 'Notes' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object lblNotesTitles: TStaticText + Left = 13 + Top = 145 + Width = 81 + Height = 17 + Caption = 'Document Titles' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object btnNotesNotes: TButton + Left = 255 + Top = 67 + Width = 145 + Height = 22 + HelpContext = 9201 + Anchors = [akTop, akRight] + Caption = '&Notes...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = btnNotesNotesClick + end + object btnNotesTitles: TButton + Left = 255 + Top = 205 + Width = 145 + Height = 22 + HelpContext = 9202 + Anchors = [akTop, akRight] + Caption = '&Document Titles...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = btnNotesTitlesClick + end + end + object tsCprsReports: TTabSheet + Caption = 'Reports' + ImageIndex = 5 + object bvlReports: TBevel + Left = 80 + Top = 16 + Width = 321 + Height = 2 + end + object imgReports: TImage + Left = 20 + Top = 31 + Width = 41 + Height = 41 + Center = True + Picture.Data = { + 055449636F6E0000010001002020100000000000E80200001600000028000000 + 2000000040000000010004000000000080020000000000000000000000000000 + 0000000000000000000080000080000000808000800000008000800080800000 + 80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000 + FFFFFF0000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000070000000000000007000 + 00000000000008FFFFFFFFFFFFFF07000000000000007888888888888888F070 + 0000000000000FFFFFFFFFFFFFFF77070000000000007888888888888888F770 + 7000000000000FFFFFFFFFFFFFFF77770700000000007888888888888888F777 + 7070000000000FFFFFFFFFFFFFFF887777070000000078888888888888888888 + 77707000080007FFFFFF888888888888887077000787707FFFF800FF00008888 + 8880777008887807FFF0F80FF808F888888077770FFF78807FF08F80FFF08FFF + 888000000777777707FF08F0FF0008FFF880000008887887807FF008FFFF08FF + FF8000000FFF7FF78807FFFFFFFFFFFFFF800000077777777770000000000000 + 00000000088878878878878878870807777000000FFF7FF7FF7F87F87F870807 + 7777000007777777777777777777080777777000088878878878878878870807 + 777777000FFF7FF7FF7FF7FF7FF7080777777000044444444444444444440800 + 00000000044444444444FF4FF4F4040000000000044444444444444444440400 + 0000000000000000000000000000040000000000044444444444444444444000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FFFFFFFFFFFFFFFFFFFFFFFFF7FFF7FFF80003FFF00001FFF80000FF + F000007FF800003FF000001FF800000FF0000007B80000038000000180000000 + 8000000F8000000F8000000F8000000F8000000F8000021F8000020F80000207 + 8000020380000207800003FF800003FF800003FF800003FF800007FFFFFFFFFF + FFFFFFFF} + end + object bvlReport1: TBevel + Left = 104 + Top = 108 + Width = 297 + Height = 2 + end + object bvlReport2: TBevel + Left = 104 + Top = 204 + Width = 297 + Height = 2 + end + object imgReport1: TImage + Left = 16 + Top = 123 + Width = 41 + Height = 41 + Center = True + Picture.Data = { + 055449636F6E0000010002002020100000000000E80200002600000010101000 + 00000000280100000E0300002800000020000000400000000100040000000000 + 8002000000000000000000000000000000000000000000000000800000800000 + 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000 + 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000 + 0000000000006666666666666666660000000000606007777777777777777700 + 000000006660700FFFFFFFFFFFFFF7000000000066608F7FFFFFFFFFFFFFF700 + 00000000666077FFFFFFFFFFFFFFF70000000000666077FFF444F44F444FF700 + 000000006660700FFFFFFFFFFFFFF7000000000066608F7FF444F44F444FF700 + 00000000666077FFFFFFFFFFFFFFF70000000000666077FFF444F44F444FF700 + 000000006660700FFFFFFFFFFFFFF7000000000066608F7FF444F44F444FF700 + 00000000666077FFFFFFFFFFFFFFF70000000000666077FFF444F44F444FF700 + 000000006660700FFFFFFFFFFFFFF7000000000066608F7FF444000000000000 + 00000000666077FFFFFF7FF8FF8FF8FF8FF00000666077FFF4447FF8FF8FF8FF + 8FF000006660700FFFFF7888888888888880000066608F7FFFFF7FF8FF8FF8FF + 8FF00000666077FFFFFF7FF8FF8FF8FF8FF0000066607FFFFFFF788888888111 + 188000006660777777777FF8FF8FF1FF1FF000006660000000007FF8FF8FF1FF + 1FF00000660000000000788888888111188000006600000000007FF8FF8FF8FF + 8FF000006600000000007FF8FF8FF8FF8FF00000660000000000744444447777 + 7770000060000000000074444444777777700000000000000000777777777777 + 7770000000000000000000007777000000000000F00001FFE00001FF400001FF + 000001FF000001FF000001FF000001FF000001FF000001FF000001FF000001FF + 000001FF000001FF000001FF000001FF000001FF0000000F0000000F0000000F + 0000000F0000000F0000000F0000000F0000000F1FF0000F3FF0000F3FF0000F + 3FF0000F3FF0000F7FF0000FFFF0000FFFFF0FFF280000001000000020000000 + 0100040000000000C00000000000000000000000000000000000000000000000 + 000080000080000000808000800000008000800080800000C0C0C00080808000 + 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000 + 00000000000000000000000000000007777777008000008F74444F008F000707 + FFFFFF008FFF778F74444F008FFF7707FFFFFF008FFF778F74444F008FFF7707 + FF0000008FFF778F787777008FFF770F8F7F77708FFF78088FF0007008FF7800 + 8F707F70008880008FF0F7F00000000008FFFF000000000000888800FFFF0000 + FE0100007C010000380100000001000000010000000100000001000000010000 + 00010000000000000200000083000000C7000000FF810000FFC30000} + end + object imgReport2: TImage + Left = 16 + Top = 219 + Width = 41 + Height = 41 + Center = True + Picture.Data = { + 055449636F6E0000010001002020000000000000A80800001600000028000000 + 2000000040000000010008000000000080040000000000000000000000010000 + 0000000000000000000080000080000000808000800000008000800080800000 + C0C0C000C0DCC000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00 + CCCCFF0099CCFF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF00 + 6699FF003399FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF00 + 0066FF00FF33FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF00 + 9900FF006600FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC00 + 33FFCC0000FFCC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00 + FF99CC00CC99CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC00 + 9966CC006666CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC00 + 3333CC000033CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00 + FFFF9900CCFF990099FF990066FF990033FF990000FF9900FFCC9900CCCC9900 + 99CC990066CC990033CC990000CC9900FF999900CC9999009999990066999900 + 3399990000999900FF669900CC66990099669900666699003366990000669900 + FF339900CC33990099339900663399003333990000339900FF009900CC009900 + 99009900660099003300990000009900FFFF6600CCFF660099FF660066FF6600 + 33FF660000FF6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600 + FF996600CC99660099996600669966003399660000996600FF666600CC666600 + 99666600666666003366660000666600FF336600CC3366009933660066336600 + 3333660000336600FF006600CC00660099006600660066003300660000006600 + FFFF3300CCFF330099FF330066FF330033FF330000FF3300FFCC3300CCCC3300 + 99CC330066CC330033CC330000CC3300FF993300CC9933009999330066993300 + 3399330000993300FF663300CC66330099663300666633003366330000663300 + FF333300CC33330099333300663333003333330000333300FF003300CC003300 + 99003300660033003300330000003300CCFF000099FF000066FF000033FF0000 + FFCC0000CCCC000099CC000066CC000033CC000000CC0000FF990000CC990000 + 99990000669900003399000000990000FF660000CC6600009966000066660000 + 0066000033660000FF330000CC33000099330000663300003333000000330000 + CC0000009900000066000000330000000000DD000000BB000000AA0000008800 + 0000770000005500000044000000220000DD000000BB000000AA000000880000 + 00770000005500000044000000220000DDDDDD00555555007777770077777700 + 44444400222222001111110077000000550000004400000022000000F0FBFF00 + A4A0A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000 + FFFFFF000000000000EF000000EFEFEFEFEFEFEF000000000000000000000000 + 0000000000000000EFEF0000EFEFEFEFEFEFEFEFEF00000000000000000000ED + ED00000000000000EFEFEF0000000000EFEFEFEFEFEF00000000000000EDEDEB + ED00000000000000EFEFEF00ACACAC4FACEF00EFEFEFEF00000000EDEDEBEBEB + ED0000000000FB0000000000EFEFEFECEC4FAC00EFEFEF0000EDEDEBEBFFEBEB + ED00000000FBFB0AEB0707F7F75D5DEDED4F4F00EF0000EFEDEBEBEBEBF7FFEB + ED00000000F1FB00F0EFEFEFECECECECEC4F4FAC00EFEFEFEBEBEBEBEDF7FFEB + ED0000000000F0F04FFF4FFFA6A6A6A6FF4FACACACEFEFEFEBEBEBEBEDF7FFEB + ED000000000000F04F4FFFA6A64FFF4F4F4FA6ACAC00EFEFEBEBEBEBEDF7FFEB + ED000000000000004FA6E4A6A6FF4FFF4F4FA6ACAC00EFEFEFEBEBEBEDF7FFF7 + ED000000000000004FACE4A6A6A64F4FFF4FA64F4F00EFEFEFEFEBEBEDEDF700 + ED000000000000EF4FACE4A6ACA6ACACA6A6ACACAC0000EFEFEFEFEB5D000000 + ED0000000000000000ACE4A6ECECEFEFEFEF00000000FB00EFEFEB00F05DEB00 + ED00000000000000EF002AE4EDED5D5DF7F70707EB0AFBFB00EBEBFFEBEBEB00 + ED0000000000000000004FACECECECECECEFEFEFF000FB00EBEBEBFFEBFFFFEB + ED00000000000000000000004FACACAC4F00EFEBEB0000EBEBEBEBFFFFF7FFEB + ED000000000000000000000000000000EF5DEBEBEB00EBEBEBEBEBEBEDF7FFEB + ED000000000000000000000000FFEBEBEBEBEBEBEBEBEBEBEBEBEBEBEDF7FFEB + ED000000000000000000000000FFEBEBEBEBEBEBEBEBEBEBEBEBEBEBEDF7FFEB + ED000000000000000000000000FFEBEBEBEBEBEBEBEBEBEBEBEBEBEBEDF7FFEB + ED000000000000000000000000FFEBEBEBEBEBEBEBEBEBEBEBEBEBEBEDECEBEB + ED000000000000000000000000FFEBEBEBEBEBEBEBEBEBEBEBEBEBEBECF7FFFF + ED000000000000000000000000FFEBEBEBEBEBEBEBEBEBEBEBEBEBFFFFFF0700 + 00000000000000000000000000FFEBEBEBEBEBEBEBEBEBEBEBFFFFFF07000000 + 00000000000000000000000000FFEBEBEBEBEBEBEBEBEBFFFFFF070000000000 + 00000000000000000000000000FFEBEBEBEBEBEBEBFFFFFF0700000000000000 + 00000000000000000000000000FFEBEBEBEBEBFFFFFF07000000000000000000 + 00000000000000000000000000FFEBEBEBFFFFFF070000000000000000000000 + 00000000000000000000000000FFEBFFFFFF0700000000000000000000000000 + 00000000000000000000000000FFFFFF07000000000000000000000000000000 + 00000000000000000000000000EB070000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FB80FFE7F3007F83E1003E03C0001803800000030000000380000003 + C0000003E0000003E0000003E0000003E0000003F0000003F0000003F8000003 + FC000003FF000003FF000003FF000003FF000003FF000003FF000003FF000007 + FF00001FFF00007FFF0001FFFF0007FFFF001FFFFF007FFFFF01FFFFFF07FFFF + FF9FFFFF} + end + object memReports: TMemo + Left = 128 + Top = 27 + Width = 273 + Height = 41 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Change the default date range and occurrence limits for ' + 'all reports on the CPRS Reports tab (excluding health ' + 'summary reports) .') + ReadOnly = True + TabOrder = 4 + end + object memReport1: TMemo + Left = 128 + Top = 121 + Width = 273 + Height = 49 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Change the individual date range and occurrence limits ' + 'for each report on the CPRS Reports tab (excluding ' + 'health summary reports) .') + ReadOnly = True + TabOrder = 5 + end + object lblReports: TStaticText + Left = 13 + Top = 9 + Width = 55 + Height = 17 + Caption = 'All Reports' + TabOrder = 2 + end + object lblReport1: TStaticText + Left = 9 + Top = 101 + Width = 89 + Height = 17 + Caption = 'Individual Reports' + TabOrder = 3 + end + object btnReports: TButton + Left = 200 + Top = 76 + Width = 193 + Height = 22 + Caption = 'Set All Reports...' + TabOrder = 0 + OnClick = btnReportsClick + end + object btnReport1: TButton + Left = 200 + Top = 167 + Width = 193 + Height = 22 + Caption = 'Set Individual Report...' + TabOrder = 1 + OnClick = btnReport1Click + end + object lblReport2: TStaticText + Left = 5 + Top = 197 + Width = 91 + Height = 17 + Caption = 'Remote Data Tool' + TabOrder = 6 + end + object memReport2: TMemo + Left = 128 + Top = 213 + Width = 273 + Height = 28 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Change the default tool for viewing Remote Patient Data') + ReadOnly = True + TabOrder = 7 + end + object rdoRDV: TRadioGroup + Left = 120 + Top = 244 + Width = 277 + Height = 37 + Hint = 'Select RDV for Remote Data Views (classic) or WebVista' + Caption = 'How do you want to view remote data' + Columns = 2 + ItemIndex = 0 + Items.Strings = ( + 'RDV (Classic)' + 'VistaWeb') + TabOrder = 8 + OnClick = rdoRDVClick + end + end + object tsGraphs: TTabSheet + Caption = 'Graphs' + ImageIndex = 6 + DesignSize = ( + 409 + 302) + object bvlGraphSettings: TBevel + Left = 104 + Top = 16 + Width = 297 + Height = 2 + end + object imgGraphSettings: TImage + Left = 16 + Top = 163 + Width = 41 + Height = 41 + Center = True + Picture.Data = { + 055449636F6E0000010001002020100000000000E80200001600000028000000 + 2000000040000000010004000000000080020000000000000000000000000000 + 0000000000000000000080000080000000808000800000008000800080800000 + 80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000 + FFFFFF0000000000000000000000000000000000007070707070707070707070 + 7070700007FFFFFFFFFFFFFFFFFFFFFFFFFF000007F000000000000000000000 + 0000700007F7888788878887888788878888000007FFFFFF9FFFFF9FFFF9FFFF + FFFF700007FFFFFFFFFFFFFFFFFFFFFFFFFF000007FFFF999999F99970707070 + 7070707007FFFFFFFFFFFFFF788888888887878007FFFBBBBBBBBBBB78878787 + 88FFFF7707FFFFCCCCCCFCCC78F000088887878007FFFFFFFFFFFFFF77FFFFF7 + 88FFFF7707FFFFFFFFFFFFFF78F000088888888007FFFFFFFFFFFFFF77FFFFF7 + 8887878707FFFFFFFFFFFFFF78F0000888FFFF7007FFFFFFFFFFFFFF77FFFFF7 + 8888888707F000000000000078F000088887878007F788878887888777FFFFF7 + 88F0FF7707F7FFFFFFFFFFFF788888888888888007F7FF9FFFFFFFFF77878787 + 8787878707F7FF9FFFFFFFFF777777777777777007F7FFF9FFFFFFFFF9F9FFFF + FFF9700007F7FFF9FFFFFFFF9FF99FFFFF9F000007F7FFFF9FFFFFFF9FFFF9FF + F99F700007F7FFFF9FFFFFF9FFFFF99F9FFF000007F7FFFFF9FFFF9FFFFFFFF9 + 9FFF700007F7FFFFF9FF99FFFFFFFFF9FFFF000007F7FFFFFF999FFFFFFFFFFF + FFFF700007F7FFFFFFF9FFFFFFFFFFFFFFFF000007FFFFFFFFFFFFFFFFFFFFFF + FFFF700007777777777777777777777777770000000000000000000000000000 + 00000000FFFFFFFF800000078000000780000007800000078000000780000007 + 8000000080000000800000008000000080000000800000008000000080000000 + 8000000080000000800000008000000080000000800000008000000780000007 + 8000000780000007800000078000000780000007800000078000000780000007 + FFFFFFFF} + end + object bvlGraphViews: TBevel + Left = 104 + Top = 155 + Width = 297 + Height = 2 + end + object imgGraphViews: TImage + Left = 16 + Top = 27 + Width = 41 + Height = 41 + Center = True + Picture.Data = { + 055449636F6E0000010001002020100000000000E80200001600000028000000 + 2000000040000000010004000000000080020000000000000000000000000000 + 0000000000000000000080000080000000808000800000008000800080800000 + 80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000 + FFFFFF0000000000000070707707070707070700000000000000788888888888 + 888888700707070707077878788787887878880007FFFFFFFFFF788787887878 + 8787887007F0000000007888888888888888880007F08888888878FFFF8FFFF8 + FFFF887007F08FFFFFFF7878787878787878780007F08F999999788888888888 + 8888887007F08FFFFFFF787F0F8FFFF8FFFF880007F08BBBBBBB78FFFF8FFFF8 + FFFF887007F08F222222787F7F8FFFF8FFFF880007F08FFFFFFF78FFFF8FFFF8 + FFFF887007F08FFFFFFF787F0F8FFFF8FFFF880007FFFFFFFFFF78FFFF8FFFF8 + FFFF887007FFFFFFFFFF787F7F8FFFF8FFFF880007FFFFFFFFFF78FFFF8FFFF8 + FFFF887007F000000000787F0F8FFFF87F0F880007F08888888878FFFF8FFFF8 + FFFF887007F08FFFFFFF787F7F87F0F87F0F880007F08F9FFFFF78FFFF8FFFF8 + FFFF887007F08F9FFFFF7888888888888888880007F08FF9FFFF787878878788 + 7878887007F08FF9FFFF7777777777777777770007F08FFF9FFFFFFFF9FFFF9F + FFF0000007F08FFF9FFFFFFF9FFFFFF9FFF0000007F08FFFF9FFFF99FFFFFFFF + 9FF7000007F08FFFF9FF99FFFFFFFFFFF9F0000007F08FFFFF99FFFFFFFFFFFF + FFF7000007F08FFFFFFFFFFFFFFFFFFFFFF0000007FFFFFFFFFFFFFFFFFFFFFF + FFF7000007777777777777777777777777700000000000000000000000000000 + 00000000FFF00001FFF000018000000180000001800000018000000180000001 + 8000000180000001800000018000000180000001800000018000000180000001 + 8000000180000001800000018000000180000001800000018000000180000001 + 8000000F8000000F8000000F8000000F8000000F8000000F8000000F8000000F + FFFFFFFF} + end + object lblGraphSettings: TStaticText + Left = 13 + Top = 145 + Width = 79 + Height = 17 + Caption = 'Default Settings' + TabOrder = 0 + end + object btnGraphSettings: TButton + Left = 200 + Top = 235 + Width = 193 + Height = 22 + Caption = 'Default Graph Settings...' + TabOrder = 1 + OnClick = btnGraphSettingsClick + end + object lblGraphViews: TStaticText + Left = 13 + Top = 9 + Width = 79 + Height = 17 + Caption = 'View Definitions' + TabOrder = 2 + end + object btnGraphViews: TButton + Left = 200 + Top = 100 + Width = 193 + Height = 22 + Caption = 'View Definitions...' + TabOrder = 3 + OnClick = btnGraphViewsClick + end + object memGraphSettings: TMemo + Left = 125 + Top = 167 + Width = 275 + Height = 66 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Configure default settings for graphs. Changes can be ' + 'made to the types of data displayed and the styles of ' + 'presentation. These settings are saved as your default.') + ReadOnly = True + TabOrder = 4 + end + object memGraphViews: TMemo + Left = 125 + Top = 27 + Width = 275 + Height = 68 + TabStop = False + Anchors = [akLeft, akTop, akRight] + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Define collections of data as views. Views are used for ' + 'common selections of multiple items.') + ReadOnly = True + TabOrder = 5 + end + end + end + end +end diff --git a/CPRS-Chart/Options/fOptions.pas b/CPRS-Chart/Options/fOptions.pas new file mode 100644 index 0000000..6f55c40 --- /dev/null +++ b/CPRS-Chart/Options/fOptions.pas @@ -0,0 +1,782 @@ +unit fOptions; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ComCtrls, ExtCtrls, ORCtrls, OrFn, Dialogs, ORDtTmRng, fBAOptionsDiagnoses, + uBAGlobals; + +type + TfrmOptions = class(TForm) + pnlMain: TPanel; + pnlBottom: TPanel; + pagOptions: TPageControl; + tsCoverSheet: TTabSheet; + tsNotifications: TTabSheet; + btnOK: TButton; + btnCancel: TButton; + btnApply: TButton; + tsOrderChecks: TTabSheet; + tsListsTeams: TTabSheet; + lblCoverReminderDesc: TMemo; + lblCoverReminders: TStaticText; + lblCoverDaysDesc: TMemo; + lblCoverDays: TStaticText; + btnCoverDays: TButton; + bvlCoverDays: TBevel; + btnCoverReminders: TButton; + bvlCoverReminders: TBevel; + imgCoverDays: TImage; + imgCoverReminders: TImage; + lblPatientSelectionDesc: TMemo; + lblPatientSelection: TStaticText; + btnPatientSelection: TButton; + bvlPatientSelection: TBevel; + btnPersonalLists: TButton; + imgPatientSelection: TImage; + lblNotificationsOptions: TStaticText; + lblNotifications: TStaticText; + bvlNotifications: TBevel; + imgNotifications: TImage; + lblOrderChecksDesc: TLabel; + lblOrderChecks: TStaticText; + bvlOrderChecks: TBevel; + imgOrderChecks: TImage; + lblTeamsDesc: TMemo; + lblTeams: TStaticText; + btnTeams: TButton; + bvlTeams: TBevel; + lvwNotifications: TCaptionListView; + lblNotificationView: TLabel; + btnNotificationsRemove: TButton; + chkNotificationsFlagged: TCheckBox; + lvwOrderChecks: TCaptionListView; + lblOrderChecksView: TLabel; + btnSurrogate: TButton; + lblNotificationsSurrogate: TStaticText; + lblNotificationsSurrogateText: TStaticText; + btnCombinations: TButton; + bvlOtherParameters: TBevel; + lblOtherParameters: TStaticText; + imgOtherParameters: TImage; + lblOtherParametersDesc: TMemo; + btnOtherParameters: TButton; + tsNotes: TTabSheet; + lblNotesNotesDesc: TMemo; + lblNotesNotes: TStaticText; + bvlNotesNotes: TBevel; + btnNotesNotes: TButton; + lblNotesTitles: TStaticText; + bvlNotesTitles: TBevel; + lblNotesTitlesDesc: TMemo; + btnNotesTitles: TButton; + imgNotesNotes: TImage; + imgNotes: TImage; + imgTeams: TImage; + tsCprsReports: TTabSheet; + lblReports: TStaticText; + bvlReports: TBevel; + memReports: TMemo; + imgReports: TImage; + btnReports: TButton; + lblReport1: TStaticText; + memReport1: TMemo; + btnReport1: TButton; + bvlReport1: TBevel; + btnDiagnoses: TButton; + tsGraphs: TTabSheet; + lblGraphSettings: TStaticText; + bvlGraphSettings: TBevel; + imgGraphSettings: TImage; + btnGraphSettings: TButton; + bvlGraphViews: TBevel; + lblGraphViews: TStaticText; + imgGraphViews: TImage; + btnGraphViews: TButton; + memGraphSettings: TMemo; + memGraphViews: TMemo; + bvlReport2: TBevel; + lblReport2: TStaticText; + memReport2: TMemo; + imgReport1: TImage; + imgReport2: TImage; + rdoRDV: TRadioGroup; + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure btnCoverDaysClick(Sender: TObject); + procedure btnCoverRemindersClick(Sender: TObject); + procedure btnOtherParametersClick(Sender: TObject); + procedure btnPatientSelectionClick(Sender: TObject); + procedure btnPersonalListsClick(Sender: TObject); + procedure btnTeamsClick(Sender: TObject); + procedure btnNotificationsRemoveClick(Sender: TObject); + procedure btnApplyClick(Sender: TObject); + procedure chkNotificationsFlaggedClick(Sender: TObject); + procedure lvwNotificationsChange(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure lvwNotificationsColumnClick(Sender: TObject; + Column: TListColumn); + procedure lvwNotificationsCompare(Sender: TObject; Item1, + Item2: TListItem; Data: Integer; var Compare: Integer); + procedure lvwNotificationsDblClick(Sender: TObject); + procedure btnSurrogateClick(Sender: TObject); + procedure btnCombinationsClick(Sender: TObject); + procedure btnNotesNotesClick(Sender: TObject); + procedure btnNotesTitlesClick(Sender: TObject); + procedure btnReportsClick(Sender: TObject); + procedure btnReport1Click(Sender: TObject); + procedure lvwNotificationsEnter(Sender: TObject); + procedure lvwNotificationsMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure btnDiagnosesClick(Sender: TObject); + procedure btnGraphSettingsClick(Sender: TObject); + procedure btnGraphViewsClick(Sender: TObject); + procedure rdoRDVClick(Sender: TObject); + private + { Private declarations } + FdirtyNotifications: boolean; // used to determine edit changes to Notifications + FdirtyOrderChecks: boolean; // used to determine edit changes to Order Checks + FdirtyOtherStuff: boolean; // used to determine edit changes to misc settings + FuseCheckBoxes: boolean; + FsortCol: integer; + FsortAscending: boolean; + FLastClickedItem: TListItem; + procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer); + procedure LoadNotifications; + procedure LoadOrderChecks; + procedure ApplyNotifications; + procedure ApplyOrderChecks; + procedure ApplyOtherStuff; + procedure CheckApply; + procedure LoadListView(aListView: TListView; aList: TStrings); + procedure ChangeOnOff(aListView: TListView; aListItem: TListItem); + public + { Public declarations } + end; + +var + frmOptions: TfrmOptions; + +procedure DialogOptions(var actiontype: Integer); + +implementation + +uses fOptionsDays, fOptionsReminders, fOptionsSurrogate, + fOptionsPatientSelection, fOptionsLists, fOptionsTeams, fOptionsCombinations, + fOptionsOther, fOptionsNotes, fOptionsTitles, fOptionsReportsCustom, fOptionsReportsDefault, + fGraphs, fGraphSettings, fGraphProfiles, rGraphs, uGraphs, + rOptions, rCore, uCore, uOptions, UBACore, fFrame; + //fTestDialog; + +{$R *.DFM} + +type + TRule = class + public + IEN: string; + OriginalValue: string; + ItemText: string; +end; + +procedure DialogOptions(var actiontype: Integer); +// create the form and make in modal, return an action +const + PixelGapBetweenButtons = 5; +var + frmOptions: TfrmOptions; +begin + frmOptions := TfrmOptions.Create(Application); + try + with frmOptions do + begin + with pagOptions do + begin + tsCoverSheet.TabVisible := false; + tsNotifications.TabVisible := false; + tsOrderChecks.TabVisible := false; + tsListsTeams.TabVisible := false; + case actiontype of + 1: begin + tsCoverSheet.TabVisible := true; + end; + 2: begin + tsNotifications.TabVisible := true; + end; + 3: begin + tsOrderChecks.TabVisible := true; + end; + 4: begin + tsListsTeams.TabVisible := true; + end; + else + begin + tsCoverSheet.TabVisible := true; + tsNotifications.TabVisible := true; + tsOrderChecks.TabVisible := true; + tsListsTeams.TabVisible := true; + ActivePage := tsCoverSheet; + memReports.Text := 'Change the default date range and occurrence limits for all reports on ' + + 'the CPRS Reports tab (excluding health summary reports) .'; + memReport1.Text := 'Change the individual date range and occurrence limits for each report on ' + + 'the CPRS Reports tab (excluding health summary reports) .'; + btnReports.caption := 'Set All Reports...'; + btnReport1.caption := 'Set Individual Reports...'; + if User.IsReportsOnly then // For "Reports Only" users. + begin + tsCoverSheet.TabVisible := false; + tsNotifications.TabVisible := false; + tsOrderChecks.TabVisible := false; + tsListsTeams.TabVisible := false; + tsNotes.TabVisible := false; + if (not User.ToolsRptEdit) then + begin + btnOK.visible := false; + btnApply.visible := false; + btnCancel.caption := 'Close'; + end; + end; + if (not User.ToolsRptEdit) then // For users with Reports settings edit parameter not set. + begin + memReports.Text := 'View the default date range and occurrence limits for all reports on ' + + 'the CPRS Reports tab (excluding health summary reports) .'; + memReport1.Text := 'View the individual date range and occurrence limits for each report on ' + + 'the CPRS Reports tab (excluding health summary reports) .'; + btnReports.caption := 'View All Report Settings...'; + btnReport1.caption := 'View Individual Report Settings...'; + end; + end; + end; + end; + actiontype := 0; + ResizeAnchoredFormToFont(frmOptions); + btnApply.Left := pagOptions.Left + pagOptions.Width - btnApply.Width; + btnCancel.Left := btnApply.Left - btnCancel.Width - PixelGapBetweenButtons; + btnOK.Left := btnCancel.Left - btnOK.Width - PixelGapBetweenButtons; + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptions.Release; + end; +end; + +procedure TfrmOptions.FormCreate(Sender: TObject); +// initialize form +begin + LoadNotifications; + LoadOrderChecks; + FdirtyNotifications := false; + FdirtyOrderChecks := false; + FdirtyOtherStuff := false; + CheckApply; + + if (Encounter.Provider = 0) and not IsCIDCProvider(User.DUZ) then + btnDiagnoses.Enabled := False; + if UseVistaWeb then rdoRDV.ItemIndex := 1; + +end; + +procedure TfrmOptions.FormDestroy(Sender: TObject); +// cleanup creation of objects +var + i: integer; +begin + for i := 0 to lvwOrderChecks.Items.Count - 1 do + lvwOrderChecks.Items.Item[i].SubItems.Objects[2].free; + for i := 0 to lvwNotifications.Items.Count - 1 do + lvwNotifications.Items.Item[i].SubItems.Objects[2].free; +end; + +procedure TfrmOptions.btnCoverDaysClick(Sender: TObject); +// display Date Range Defaults on Cover Sheet +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, -60, leftsize, -60); + DialogOptionsDays(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnCoverRemindersClick(Sender: TObject); +// display Clinical Reminder Options +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, -60, leftsize, -60); + DialogOptionsReminders(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnOtherParametersClick(Sender: TObject); +// display Other Parameters Options +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, 40, leftsize, 40); + DialogOptionsOther(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnPatientSelectionClick(Sender: TObject); +// display Patient Selection Options +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, -60, leftsize, -60); + DialogOptionsPatientSelection(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnPersonalListsClick(Sender: TObject); +// display Personal Lists Options +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, -60, leftsize, -60); + DialogOptionsLists(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnTeamsClick(Sender: TObject); +// display Team Options +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, -60, leftsize, -60); + DialogOptionsTeams(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnNotificationsRemoveClick(Sender: TObject); +// confirm before clearing notifications +begin + if InfoBox('CAUTION: This will clear all the current notifications you have pending.' + + #13 + 'If you say YES, these changes will take place immediately.' + + #13 + 'Are you sure you want to erase all of your notifications?', + 'Warning', MB_YESNO or MB_ICONWARNING) = IDYES then + begin + rpcClearNotifications; + end; +end; + +procedure TfrmOptions.Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer); +// get positions to display dialog +begin + // use these top and left values to display dialog + topnum := Top; + leftnum := Left; + topnum := topnum + topoffset; + if topnum < 0 then topnum := 0; + leftnum := leftnum + leftoffset; + if leftnum < 0 then leftnum := 0; +end; + +procedure TfrmOptions.btnApplyClick(Sender: TObject); +// save actions without exiting +begin + if FdirtyNotifications then + ApplyNotifications; + if FdirtyOrderChecks then + ApplyOrderChecks; + if FdirtyOtherStuff then + ApplyOtherStuff; + CheckApply; + if Sender = btnOK then + Close; +end; + +procedure TfrmOptions.LoadNotifications; +// load Notification tab +var + notifydefaults, surrogateinfo, flag, enableerase: string; +begin + LoadListView(lvwNotifications, rpcGetNotifications); + lvwNotificationsColumnClick(lvwNotifications, lvwNotifications.Column[0]); // make sure sorted + notifydefaults := rpcGetNotificationDefaults; + flag := Piece(notifydefaults, '^', 2); + enableerase := Piece(notifydefaults, '^', 3); + chkNotificationsFlagged.Checked := flag = '1'; + btnNotificationsRemove.Enabled := enableerase = '1'; + surrogateinfo := rpcGetSurrogateInfo; + btnSurrogate.Hint := surrogateinfo; + LabelSurrogate(surrogateinfo, lblNotificationsSurrogateText); +end; + +procedure TfrmOptions.LoadOrderChecks; +// load Order Check tab +begin + LoadListView(lvwOrderChecks, rpcGetOrderChecks); + lvwOrderChecks.Checkboxes := true; +end; + +procedure TfrmOptions.ApplyNotifications; +// save Notification changes +var + i: integer; + newonoff: string; + aRule: TRule; + aList: TStringList; +begin + aList := TStringList.Create; + for i := 0 to lvwNotifications.Items.Count - 1 do + begin + aRule := TRule(lvwNotifications.Items.Item[i].SubItems.Objects[2]); + if lvwNotifications.Items.Item[i].SubItems[1] <> 'Mandatory' then + begin + newonoff := Uppercase(lvwNotifications.Items.Item[i].SubItems[0]); + if aRule.OriginalValue <> newonoff then + begin + //***showmessage(aRule.IEN + ' ' + aRule.OriginalValue + ' ' + newonoff); + aList.Add(aRule.IEN + '^' + newonoff); + aRule.OriginalValue := lvwNotifications.Items.Item[i].SubItems[0]; + end; + end; + end; + rpcSetNotifications(aList); + aList.free; + FdirtyNotifications := false; +end; + +procedure TfrmOptions.ApplyOrderChecks; +// save Order Check changes +var + i: integer; + newonoff: string; + aRule: TRule; + aList: TStringList; +begin + aList := TStringList.Create; + for i := 0 to lvwOrderChecks.Items.Count - 1 do + begin + aRule := TRule(lvwOrderChecks.Items.Item[i].SubItems.Objects[2]); + newonoff := Uppercase(lvwOrderChecks.Items.Item[i].SubItems[0]); + if aRule.OriginalValue <> newonoff then + begin + aList.Add(aRule.IEN + '^' + newonoff); + aRule.OriginalValue := lvwOrderChecks.Items.Item[i].SubItems[0]; + end; + end; + rpcSetOrderChecks(aList); + aList.free; + FdirtyOrderChecks := false; +end; + +procedure TfrmOptions.ApplyOtherStuff; +// save other changes +var + aString: string; +begin + aString := ''; + if chkNotificationsFlagged.Checked then + aString := aString + '^1' + else + aString := aString + '^0'; + rpcSetOtherStuff(aString); + FdirtyOtherStuff := false; +end; + +procedure TfrmOptions.CheckApply; +// determine if Apply button is enabled +begin + btnApply.Enabled := FdirtyOrderChecks or FdirtyNotifications or FdirtyOtherStuff; +end; + +procedure TfrmOptions.chkNotificationsFlaggedClick(Sender: TObject); +// set notification flagged status +begin + FdirtyOtherStuff := true; + CheckApply; +end; + +procedure TfrmOptions.LoadListView(aListView: TListView; aList: TStrings); +// load a list view with: name, on/off, comment +var + i: integer; + aListItem: TListItem; + aRule: TRule; + rulenum, ruletext, ruleonoff, rulecomment: string; +begin + FuseCheckBoxes := false; + aListView.Items.Clear; + aListView.SortType := stNone; // if Sorting during load then potential error + with aList do + begin + for i := 0 to aList.Count - 1 do + begin + rulenum := Piece(aList[i], '^', 1); + ruletext := Piece(aList[i], '^', 2); + ruleonoff := Piece(aList[i], '^', 3); + rulecomment := Piece(aList[i], '^', 4); + aListItem := aListView.Items.Add; + with aListItem do + begin + Caption := ruletext; + SubItems.Add(ruleonoff); + if ruleonoff = 'On' then Checked := true; + SubItems.Add(rulecomment); + end; + aRule := TRule.Create; + with aRule do + begin + IEN := rulenum; + OriginalValue := ruleonoff; + ItemText := ruletext; + end; + aListItem.SubItems.AddObject('rule object', aRule); + end; + end; + aListView.SortType := stBoth; + FuseCheckBoxes := true; +end; + +procedure TfrmOptions.lvwNotificationsChange(Sender: TObject; + Item: TListItem; Change: TItemChange); +// change on/off on checkmark +begin + if (Sender as TListView).ItemIndex = -1 then exit; + if not FuseCheckBoxes then exit; + if (Sender as TListView).Checkboxes = false then exit; + if (Item.SubItems[1] = 'Mandatory') and not Item.Checked then begin + Item.Checked := True; + exit; + end; + if Item.Checked then + begin + if Item.SubItems[0] <> 'On' then + ChangeOnOff(Sender as TListView, Item); + Item.SubItems[0] := 'On'; + end + else + begin + if Item.SubItems[0] <> 'Off' then + ChangeOnOff(Sender as TListView, Item); + Item.SubItems[0] := 'Off'; + end; +end; + +procedure TfrmOptions.lvwNotificationsColumnClick(Sender: TObject; + Column: TListColumn); +// toggle sort +begin + if FsortCol = Column.Index then + FsortAscending := not FsortAscending + else + FsortAscending := true; + FsortCol := Column.Index; + (Sender as TListView).AlphaSort; +end; + +procedure TfrmOptions.lvwNotificationsCompare(Sender: TObject; Item1, + Item2: TListItem; Data: Integer; var Compare: Integer); +// sort columns +begin + if not(Sender is TListView) then exit; + if FsortAscending then + begin + if FsortCol = 0 then + Compare := CompareStr(Item1.Caption, Item2.Caption) + else + Compare := CompareStr(Item1.SubItems[FsortCol - 1], + Item2.SubItems[FsortCol - 1]); + end + else + begin + if FsortCol = 0 then + Compare := CompareStr(Item2.Caption, Item1.Caption) + else + Compare := CompareStr(Item2.SubItems[FsortCol - 1], + Item1.SubItems[FsortCol - 1]); + end; +end; + +procedure TfrmOptions.lvwNotificationsDblClick(Sender: TObject); +// toggle check marks with double click +var + aListItem: TListItem; +begin + with (Sender as TListView) do + begin + if Checkboxes = false then exit; + if Selected = nil then exit; + if Selected.SubItems[1] = 'Mandatory' then exit; + if Selected <> FLastClickedItem then exit; + aListItem := Selected; + aListItem.Checked := not aListItem.Checked; + ChangeOnOff(Sender as TListView, aListItem); + + if aListItem.Checked then + aListItem.SubItems[0] := 'On' + else + aListItem.SubItems[0] := 'Off'; + end; +end; + +procedure TfrmOptions.ChangeOnOff(aListView: TListView; aListItem: TListItem); +// check if list items were edited +begin + if aListView = lvwNotifications then FdirtyNotifications := true; + if aListView = lvwOrderChecks then FdirtyOrderChecks := true; + CheckApply; +end; + +procedure TfrmOptions.btnSurrogateClick(Sender: TObject); +// display Surrogate Options +var + topsize, leftsize: integer; + surrogateinfo: string; +begin + surrogateinfo := btnSurrogate.Hint; + Offset(topsize, -30, leftsize, -30); + DialogOptionsSurrogate(topsize, leftsize, Font.Size, surrogateinfo); + LabelSurrogate(surrogateinfo, lblNotificationsSurrogateText); + btnSurrogate.Hint := surrogateinfo; +end; + +procedure TfrmOptions.btnCombinationsClick(Sender: TObject); +// display Combination List Options +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, -60, leftsize, -60); + DialogOptionsCombinations(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnNotesNotesClick(Sender: TObject); +// display Notes Options +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, -60, leftsize, -60); + DialogOptionsNotes(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnNotesTitlesClick(Sender: TObject); +// display Titles Options +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, -60, leftsize, -60); + DialogOptionsTitles(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnReportsClick(Sender: TObject); +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, 90, leftsize, 23); + DialogOptionsHSDefault(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.btnReport1Click(Sender: TObject); +var + topsize, leftsize, value: integer; +begin + value := 0; + Offset(topsize, -18, leftsize, -15); + DialogOptionsHSCustom(topsize, leftsize, Font.Size, value); +end; + +procedure TfrmOptions.lvwNotificationsEnter(Sender: TObject); +begin + with Sender as TListView do begin + if (Selected = nil) and (Items.Count > 0) then + Selected := Items[0]; + end; +end; + +procedure TfrmOptions.lvwNotificationsMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLastClickedItem := (Sender as TListView).GetItemAt(X,Y); +end; + +procedure TfrmOptions.btnDiagnosesClick(Sender: TObject); +// display Personal Diagnoses List +var + topsize, leftsize, value: integer; +begin + if IsCIDCProvider(User.DUZ) then //(hds7564) + begin + value := 0; + Offset(topsize, -60, leftsize, -60); + DialogOptionsDiagnoses(topsize, leftsize, Font.Size, value); + end; +end; + +procedure TfrmOptions.btnGraphSettingsClick(Sender: TObject); +// display GraphSettings +var + actiontype: boolean; + topsize, leftsize: integer; +begin + actiontype := false; + Offset(topsize, -60, leftsize, -60); + DialogOptionsGraphSettings(topsize, leftsize, Font.Size, actiontype); +end; + +procedure TfrmOptions.btnGraphViewsClick(Sender: TObject); +// display Graph Views +var + actiontype: boolean; + topsize, leftsize: integer; +begin + actiontype := false; + Offset(topsize, -60, leftsize, -60); + DialogOptionsGraphProfiles(topsize, leftsize, Font.Size, actiontype); +end; + +procedure TfrmOptions.rdoRDVClick(Sender: TObject); +var + iIndex: integer; +begin + iIndex := rdoRDV.ItemIndex; + with frmFrame do + if iIndex = 0 then + begin + ChangeVistaWebParam('0'); + lblCIRN.Caption := ' Remote'; + lblCIRNData.Caption := 'Data'; + lblCIRNAvail.Caption := ''; + lblCIRN.Width := 43; + lblCIRNData.Width := 43; + lblCIRNData.Alignment := taCenter; + lblCIRN.Alignment := taCenter; + lstCIRNLocations.Clear; + SetUpCIRN; + end + else + begin + ChangeVistaWebParam('1'); + lblCIRN.Caption := 'Remote'; + lblCIRNData.Caption := 'Data*'; //VistaWeb On + lblCIRN.Width := 43; + lblCIRNData.Width := 43; + lblCIRNData.Alignment := taCenter; + lblCIRN.Alignment := taCenter; + lblCIRN.Enabled := True; + lblCIRNData.Enabled := True; + pnlCIRN.TabStop := True; + if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then + begin + lblCIRN.Font.Color := clBlue; + lblCIRNData.Font.Color := clBlue; + lblCIRNAvail.Font.Color := clBlue; + lstCIRNLocations.Font.Color := clBlue; + end + else + begin + lblCIRN.Font.Color := clWindowText; + lblCIRNData.Font.Color := clWindowText; + lblCIRNAvail.Font.Color := clWindowText; + lstCIRNLocations.Font.Color := clWindowText; + end; + end; + +end; + +end. + diff --git a/CPRS-Chart/Options/fOptionsCombinations.dfm b/CPRS-Chart/Options/fOptionsCombinations.dfm new file mode 100644 index 0000000..c34a7a5 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsCombinations.dfm @@ -0,0 +1,201 @@ +object frmOptionsCombinations: TfrmOptionsCombinations + Left = 366 + Top = 189 + HelpContext = 9120 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsSingle + Caption = 'Source Combinations' + ClientHeight = 306 + ClientWidth = 407 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblAddby: TLabel + Left = 7 + Top = 97 + Width = 29 + Height = 13 + Caption = 'Ward:' + end + object lblCombinations: TLabel + Left = 224 + Top = 97 + Width = 66 + Height = 13 + Caption = 'Combinations:' + end + object lblInfo: TMemo + Left = 183 + Top = 16 + Width = 218 + Height = 81 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'You can change your combinations by adding ' + 'or removing specific wards, clinics, providers, ' + 'specialties, or lists. Patients meeting this ' + 'criteria can be used for patient selection.') + ReadOnly = True + TabOrder = 6 + end + object radAddByType: TRadioGroup + Left = 7 + Top = 8 + Width = 153 + Height = 86 + HelpContext = 9121 + Caption = 'Select source by ' + Columns = 2 + ItemIndex = 0 + Items.Strings = ( + '&Ward' + '&Clinic' + '&Provider' + '&Specialty' + '&List') + TabOrder = 0 + OnClick = radAddByTypeClick + end + object lstAddBy: TORComboBox + Left = 7 + Top = 112 + Width = 153 + Height = 153 + HelpContext = 9122 + Style = orcsSimple + AutoSelect = True + Caption = 'Ward' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 1 + OnChange = lstAddByChange + OnDblClick = btnAddClick + OnEnter = lstAddByEnter + OnExit = lstAddByExit + OnKeyUp = lstAddByKeyUp + OnNeedData = lstAddByNeedData + end + object btnAdd: TButton + Left = 166 + Top = 145 + Width = 50 + Height = 22 + HelpContext = 9124 + Caption = 'Add' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = btnAddClick + end + object btnRemove: TButton + Left = 165 + Top = 218 + Width = 50 + Height = 22 + HelpContext = 9125 + Caption = 'Remove' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnClick = btnRemoveClick + end + object pnlBottom: TPanel + Left = 0 + Top = 273 + Width = 407 + Height = 33 + HelpContext = 9120 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 5 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 407 + Height = 2 + Align = alTop + end + object btnOK: TButton + Left = 245 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9996 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 325 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9997 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end + object lvwCombinations: TCaptionListView + Left = 224 + Top = 112 + Width = 177 + Height = 150 + HelpContext = 9123 + Columns = < + item + Caption = 'Entry' + Width = 100 + end + item + Caption = 'Source' + Width = 72 + end> + MultiSelect = True + ReadOnly = True + RowSelect = True + SortType = stBoth + TabOrder = 4 + ViewStyle = vsReport + OnChange = lvwCombinationsChange + OnColumnClick = lvwCombinationsColumnClick + OnCompare = lvwCombinationsCompare + OnDblClick = btnRemoveClick + Caption = 'Combinations' + end +end diff --git a/CPRS-Chart/Options/fOptionsCombinations.pas b/CPRS-Chart/Options/fOptionsCombinations.pas new file mode 100644 index 0000000..25769cf --- /dev/null +++ b/CPRS-Chart/Options/fOptionsCombinations.pas @@ -0,0 +1,364 @@ +unit fOptionsCombinations; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, StdCtrls, ORCtrls, OrFn, ComCtrls; + +type + TfrmOptionsCombinations = class(TForm) + radAddByType: TRadioGroup; + lblInfo: TMemo; + lblAddby: TLabel; + lblCombinations: TLabel; + lstAddBy: TORComboBox; + btnAdd: TButton; + btnRemove: TButton; + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + bvlBottom: TBevel; + lvwCombinations: TCaptionListView; + procedure radAddByTypeClick(Sender: TObject); + procedure lstAddByNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure FormCreate(Sender: TObject); + procedure btnAddClick(Sender: TObject); + procedure lvwCombinationsColumnClick(Sender: TObject; + Column: TListColumn); + procedure lvwCombinationsCompare(Sender: TObject; Item1, + Item2: TListItem; Data: Integer; var Compare: Integer); + procedure btnRemoveClick(Sender: TObject); + procedure lstAddByChange(Sender: TObject); + procedure lstAddByKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure btnOKClick(Sender: TObject); + procedure lstAddByEnter(Sender: TObject); + procedure lstAddByExit(Sender: TObject); + procedure lvwCombinationsChange(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure FormShow(Sender: TObject); + private + { Private declarations } + FsortCol: integer; + FsortAscending: boolean; + FDirty: boolean; + function Duplicate(avalueien, asource: string): boolean; + procedure LoadCombinations(alist: TStrings); + public + { Public declarations } + end; + +var + frmOptionsCombinations: TfrmOptionsCombinations; + +procedure DialogOptionsCombinations(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +uses rOptions, rCore; + +{$R *.DFM} + +type + TCombination = class + public + IEN: string; + Entry: string; + Source: string; +end; + +procedure DialogOptionsCombinations(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsCombinations: TfrmOptionsCombinations; +begin + frmOptionsCombinations := TfrmOptionsCombinations.Create(Application); + actiontype := 0; + try + with frmOptionsCombinations do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsCombinations); + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsCombinations.Release; + end; +end; + +procedure TfrmOptionsCombinations.radAddByTypeClick(Sender: TObject); +begin + with lstAddBy do + begin + case radAddByType.ItemIndex of + 0: begin + ListItemsOnly := false; + LongList := false; + ListWardAll(lstAddBy.Items); + MixedCaseList(lstAddBy.Items); + lblAddby.Caption := 'Ward:'; + end; + 1: begin + ListItemsOnly := true; + LongList := true; + InitLongList(''); + lblAddby.Caption := 'Clinic:'; + end; + 2: begin + ListItemsOnly := true; + LongList := true; + InitLongList(''); + lblAddby.Caption := 'Provider:'; + end; + 3: begin + ListItemsOnly := false; + LongList := false; + ListSpecialtyAll(lstAddBy.Items); + lblAddby.Caption := 'Specialty:'; + end; + 4: begin + ListItemsOnly := false; + LongList := false; + ListTeamAll(lstAddBy.Items); + lblAddby.Caption := 'List:'; + end; + end; + lstAddBy.Caption := lblAddby.Caption; + ItemIndex := -1; + Text := ''; + btnAdd.Enabled := false; + end; +end; + +procedure TfrmOptionsCombinations.lstAddByNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + with lstAddBy do + begin + case radAddByType.ItemIndex of + 0: begin + Pieces := '2'; + end; + 1: begin + Pieces := '2'; + ForDataUse(SubSetOfClinics(StartFrom, Direction)); + end; + 2: begin + Pieces := '2,3'; + ForDataUse(SubSetOfProviders(StartFrom, Direction)); + end; + 3: begin + Pieces := '2'; + end; + 4: begin + Pieces := '2'; + end; + end; + end; +end; + +procedure TfrmOptionsCombinations.FormCreate(Sender: TObject); +begin + radAddByType.ItemIndex := 0; + radAddByTypeClick(self); + FDirty := false; +end; + +procedure TfrmOptionsCombinations.btnAddClick(Sender: TObject); +var + aListItem: TListItem; + aCombination: TCombination; + valueien, valuename, valuesource: string; +begin + valuesource := radAddByType.Items[radAddByType.ItemIndex]; + if copy(valuesource, 1, 1) = '&' then + valuesource := copy(valuesource, 2, length(valuesource) - 1); + valuename := Piece(lstAddBy.DisplayText[lstAddBy.ItemIndex], '-', 1); + valueien := Piece(lstAddBy.Items[lstAddBy.ItemIndex], '^', 1); + if Duplicate(valueien, valuesource) then exit; // check for duplicates + aListItem := lvwCombinations.Items.Add; + with aListItem do + begin + Caption := valuename; + SubItems.Add(valuesource); + end; + aCombination := TCombination.Create; + with aCombination do + begin + IEN := valueien; + Entry := valuename; + Source := valuesource; + end; + aListItem.SubItems.AddObject('combo object', aCombination); + btnAdd.Enabled := false; + FDirty := true; +end; + +procedure TfrmOptionsCombinations.lvwCombinationsColumnClick( + Sender: TObject; Column: TListColumn); +begin + if FsortCol = Column.Index then + FsortAscending := not FsortAscending + else + FsortAscending := true; + FsortCol := Column.Index; + (Sender as TListView).AlphaSort; +end; + +procedure TfrmOptionsCombinations.lvwCombinationsCompare(Sender: TObject; + Item1, Item2: TListItem; Data: Integer; var Compare: Integer); +begin + if not(Sender is TListView) then exit; + if FsortAscending then + begin + if FsortCol = 0 then + Compare := CompareStr(Item1.Caption, Item2.Caption) + else + Compare := CompareStr(Item1.SubItems[FsortCol - 1], + Item2.SubItems[FsortCol - 1]); + end + else + begin + if FsortCol = 0 then + Compare := CompareStr(Item2.Caption, Item1.Caption) + else + Compare := CompareStr(Item2.SubItems[FsortCol - 1], + Item1.SubItems[FsortCol - 1]); + end; +end; + +procedure TfrmOptionsCombinations.btnRemoveClick(Sender: TObject); +var + i: integer; +begin + with lvwCombinations do + for i := Items.Count - 1 downto 0 do + if Items[i].Selected then + Items[i].Delete; + btnRemove.Enabled := false; + FDirty := true; +end; + +procedure TfrmOptionsCombinations.lstAddByChange(Sender: TObject); +var + valueien, source: string; +begin + if lstAddBy.ItemIndex = -1 then + btnAdd.Enabled := false + else + begin + source := radAddByType.Items[radAddByType.ItemIndex]; + if copy(source, 1, 1) = '&' then + source := copy(source, 2, length(source) - 1); + valueien := Piece(lstAddBy.Items[lstAddBy.ItemIndex], '^', 1); + btnAdd.Enabled := not Duplicate(valueien, source); + end; + btnRemove.Enabled := false; +end; + +function TfrmOptionsCombinations.Duplicate(avalueien, + asource: string): boolean; +var + i: integer; + aCombination :TCombination; +begin + result := false; + with lvwCombinations do + for i := 0 to Items.Count - 1 do + if asource = Items[i].Subitems[0] then + begin + aCombination := TCombination(Items.Item[i].SubItems.Objects[1]); + if aCombination.IEN = avalueien then + begin + Result := true; + end; + end; +end; + +procedure TfrmOptionsCombinations.lstAddByKeyUp(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if Key = 13 then Perform(WM_NextDlgCtl, 0, 0); +end; + +procedure TfrmOptionsCombinations.btnOKClick(Sender: TObject); +var + i: integer; + alist: TStringList; + aCombination :TCombination; +begin + if FDirty then + begin + alist := TStringList.Create; + with lvwCombinations do + for i := 0 to Items.Count - 1 do + begin + aCombination := TCombination(Items.Item[i].SubItems.Objects[1]); + with aCombination do alist.Add(IEN + '^' + Source); + end; + rpcSetCombo(alist); + alist.Free; + end; +end; + +procedure TfrmOptionsCombinations.lstAddByEnter(Sender: TObject); +begin + btnAdd.Default := true; +end; + +procedure TfrmOptionsCombinations.lstAddByExit(Sender: TObject); +begin + btnAdd.Default := false; +end; + +procedure TfrmOptionsCombinations.lvwCombinationsChange(Sender: TObject; + Item: TListItem; Change: TItemChange); +begin + btnRemove.Enabled := lvwCombinations.SelCount > 0; +end; + +procedure TfrmOptionsCombinations.LoadCombinations(alist: TStrings); +var + i: integer; + aListItem: TListItem; + aCombination: TCombination; + valueien, valuename, valuesource: string; +begin + for i := 0 to alist.Count - 1 do + begin + valuesource := Piece(alist[i], '^', 1); + valuename := Piece(alist[i], '^', 2); + valueien := Piece(alist[i], '^', 3); + aListItem := lvwCombinations.Items.Add; + with aListItem do + begin + Caption := valuename; + SubItems.Add(valuesource); + end; + aCombination := TCombination.Create; + with aCombination do + begin + IEN := valueien; + Entry := valuename; + Source := valuesource; + end; + aListItem.SubItems.AddObject('combo object', aCombination); + end; +end; + +procedure TfrmOptionsCombinations.FormShow(Sender: TObject); +begin + LoadCombinations(rpcGetCombo); +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsDays.dfm b/CPRS-Chart/Options/fOptionsDays.dfm new file mode 100644 index 0000000..5bcf50e --- /dev/null +++ b/CPRS-Chart/Options/fOptionsDays.dfm @@ -0,0 +1,295 @@ +object frmOptionsDays: TfrmOptionsDays + Left = 516 + Top = 90 + HelpContext = 9010 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Date Range Defaults on Cover Sheet' + ClientHeight = 337 + ClientWidth = 328 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poDefault + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object bvlTop: TBevel + Left = 11 + Top = 9 + Width = 310 + Height = 2 + end + object bvlMiddle: TBevel + Left = 11 + Top = 155 + Width = 310 + Height = 2 + end + object lblVisitStop: TLabel + Left = 15 + Top = 251 + Width = 25 + Height = 13 + Caption = 'Stop:' + end + object lblVisitStart: TLabel + Left = 15 + Top = 197 + Width = 25 + Height = 13 + Caption = 'Start:' + end + object lblLabOutpatient: TLabel + Left = 15 + Top = 103 + Width = 77 + Height = 13 + Caption = 'Outpatient days:' + end + object lblLabInpatient: TLabel + Left = 15 + Top = 47 + Width = 69 + Height = 13 + Caption = 'Inpatient days:' + end + object lblVisitValue: TMemo + Left = 136 + Top = 219 + Width = 169 + Height = 73 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'lblVisitValue') + ReadOnly = True + TabOrder = 13 + end + object lblLabValue: TMemo + Left = 136 + Top = 71 + Width = 169 + Height = 74 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'lblLabValue') + ReadOnly = True + TabOrder = 14 + end + object lblVisit: TStaticText + Left = 15 + Top = 164 + Width = 115 + Height = 17 + Caption = 'Appointments and visits' + TabOrder = 11 + end + object lblLab: TStaticText + Left = 15 + Top = 16 + Width = 55 + Height = 17 + Caption = 'Lab results' + TabOrder = 12 + end + object pnlBottom: TPanel + Left = 0 + Top = 304 + Width = 328 + Height = 33 + HelpContext = 9010 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 10 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 328 + Height = 2 + Align = alTop + end + object btnOK: TButton + Left = 167 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9996 + Caption = 'OK' + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 247 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9997 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end + object txtLabInpatient: TCaptionEdit + Left = 15 + Top = 66 + Width = 42 + Height = 21 + HelpContext = 9013 + TabOrder = 0 + Text = '1' + OnChange = txtLabInpatientChange + OnExit = txtLabInpatientExit + OnKeyPress = txtLabInpatientKeyPress + Caption = 'Inpatient days' + end + object spnLabInpatient: TUpDown + Left = 57 + Top = 66 + Width = 16 + Height = 21 + HelpContext = 9013 + Associate = txtLabInpatient + Min = 0 + Max = 999 + Position = 1 + TabOrder = 1 + Thousands = False + Wrap = False + OnClick = spnLabInpatientClick + end + object txtLabOutpatient: TCaptionEdit + Left = 15 + Top = 121 + Width = 42 + Height = 21 + HelpContext = 9014 + TabOrder = 2 + Text = '1' + OnChange = txtLabOutpatientChange + OnExit = txtLabOutpatientExit + OnKeyPress = txtLabInpatientKeyPress + Caption = 'Outpatient days' + end + object spnLabOutpatient: TUpDown + Left = 57 + Top = 121 + Width = 16 + Height = 21 + HelpContext = 9014 + Associate = txtLabOutpatient + Min = 0 + Max = 999 + Position = 1 + TabOrder = 3 + Thousands = False + Wrap = False + OnClick = spnLabOutpatientClick + end + object txtVisitStart: TCaptionEdit + Tag = -180 + Left = 15 + Top = 214 + Width = 79 + Height = 21 + HelpContext = 9015 + MaxLength = 12 + TabOrder = 5 + Text = '0' + OnExit = txtVisitStartExit + OnKeyPress = txtVisitStartKeyPress + OnKeyUp = txtVisitStartKeyUp + Caption = 'Start' + end + object spnVisitStart: TUpDown + Tag = -180 + Left = 94 + Top = 214 + Width = 15 + Height = 21 + HelpContext = 9015 + Associate = txtVisitStart + Min = -999 + Max = 999 + Position = 0 + TabOrder = 6 + Thousands = False + Wrap = False + OnClick = spnVisitStartClick + end + object txtVisitStop: TCaptionEdit + Tag = 30 + Left = 15 + Top = 269 + Width = 79 + Height = 21 + HelpContext = 9015 + MaxLength = 12 + TabOrder = 7 + Text = '0' + OnExit = txtVisitStopExit + OnKeyPress = txtVisitStopKeyPress + OnKeyUp = txtVisitStopKeyUp + Caption = 'Stop' + end + object spnVisitStop: TUpDown + Tag = 30 + Left = 94 + Top = 269 + Width = 16 + Height = 21 + HelpContext = 9015 + Associate = txtVisitStop + Min = -999 + Max = 999 + Position = 0 + TabOrder = 8 + Thousands = False + Wrap = False + OnClick = spnVisitStopClick + end + object btnLabDefaults: TButton + Left = 245 + Top = 32 + Width = 75 + Height = 22 + HelpContext = 9011 + Caption = 'Use Defaults' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + OnClick = btnLabDefaultsClick + end + object btnVisitDefaults: TButton + Left = 245 + Top = 184 + Width = 75 + Height = 22 + HelpContext = 9012 + Caption = 'Use Defaults' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 9 + OnClick = btnVisitDefaultsClick + end +end diff --git a/CPRS-Chart/Options/fOptionsDays.pas b/CPRS-Chart/Options/fOptionsDays.pas new file mode 100644 index 0000000..089ea37 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsDays.pas @@ -0,0 +1,436 @@ +unit fOptionsDays; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, fOptions, ComCtrls, OrFn, ORCtrls; + +type + TfrmOptionsDays = class(TForm) + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + bvlTop: TBevel; + bvlMiddle: TBevel; + txtLabInpatient: TCaptionEdit; + spnLabInpatient: TUpDown; + txtLabOutpatient: TCaptionEdit; + spnLabOutpatient: TUpDown; + txtVisitStart: TCaptionEdit; + spnVisitStart: TUpDown; + txtVisitStop: TCaptionEdit; + spnVisitStop: TUpDown; + lblVisit: TStaticText; + lblVisitStop: TLabel; + lblVisitStart: TLabel; + lblLabOutpatient: TLabel; + lblLabInpatient: TLabel; + lblLab: TStaticText; + lblVisitValue: TMemo; + lblLabValue: TMemo; + btnLabDefaults: TButton; + btnVisitDefaults: TButton; + bvlBottom: TBevel; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure spnVisitStartClick(Sender: TObject; Button: TUDBtnType); + procedure spnVisitStopClick(Sender: TObject; Button: TUDBtnType); + procedure spnLabInpatientClick(Sender: TObject; Button: TUDBtnType); + procedure spnLabOutpatientClick(Sender: TObject; Button: TUDBtnType); + procedure txtLabInpatientKeyPress(Sender: TObject; var Key: Char); + procedure btnLabDefaultsClick(Sender: TObject); + procedure btnVisitDefaultsClick(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure txtLabInpatientChange(Sender: TObject); + procedure txtLabInpatientExit(Sender: TObject); + procedure txtLabOutpatientChange(Sender: TObject); + procedure txtLabOutpatientExit(Sender: TObject); + procedure txtVisitStartExit(Sender: TObject); + procedure txtVisitStartKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure txtVisitStopExit(Sender: TObject); + procedure txtVisitStopKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure txtVisitStartKeyPress(Sender: TObject; var Key: Char); + procedure txtVisitStopKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + FStartEntered: boolean; + FStopEntered: boolean; + procedure AdjustVisitLabel; + procedure AdjustLabLabel; + public + { Public declarations } + end; + +var + frmOptionsDays: TfrmOptionsDays; + +procedure DialogOptionsDays(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +uses rOptions, uOptions; + +{$R *.DFM} + +procedure DialogOptionsDays(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsDays: TfrmOptionsDays; +begin + frmOptionsDays := TfrmOptionsDays.Create(Application); + actiontype := 0; + try + with frmOptionsDays do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsDays); + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsDays.Release; + end; +end; + +procedure TfrmOptionsDays.FormCreate(Sender: TObject); +begin + FStartEntered := false; + FStopEntered := false; +end; + +procedure TfrmOptionsDays.FormShow(Sender: TObject); + //get lab defaults, personal values, visit defaults, personal values + //tags for textboxes hold setting, tags on spinbuttons hold default, + //tag of 1 on buttons indicate system default being used +var + labin, labout, visitstart, visitstop: integer; + labindef, laboutdef, visitstartdef, visitstopdef: integer; +begin + rpcGetLabDays(labindef, laboutdef); + rpcGetLabUserDays(labin, labout); + rpcGetApptDays(visitstartdef, visitstopdef); + rpcGetApptUserDays(visitstart, visitstop); + + txtLabInpatient.Text := inttostr(-labin); + txtLabInpatient.Tag := labin; + txtLabOutpatient.Text := inttostr(-labout); + txtLabOutpatient.Tag := labout; + txtVisitStart.Tag := visitstart - 1; + txtVisitStop.Tag := visitstop - 1; + + spnLabInpatient.Tag := labindef; + spnLabOutpatient.Tag := laboutdef; + spnVisitStart.Tag := visitstartdef; + spnVisitStop.Tag := visitstopdef; + + spnLabInpatientClick(self, btNext); + spnLabOutpatientClick(self, btNext); + spnVisitStartClick(self, btNext); + spnVisitStopClick(self, btNext); + + txtLabInpatient.SetFocus; +end; + +procedure TfrmOptionsDays.spnVisitStartClick(Sender: TObject; + Button: TUDBtnType); +var + tagnum: integer; +begin + with txtVisitStart do + begin + if FStartEntered then + begin + if Hint = '' then Hint := 'T'; + tagnum := RelativeDate(Hint); + if tagnum = INVALID_DAYS then + begin + Text := Hint; + beep; + InfoBox('Start Date entry was invalid', 'Warning', MB_OK or MB_ICONWARNING); + ShowDisplay(txtVisitStart); + FStartEntered := false; + exit; + end + else + begin + DateLimits(DAYS_LIMIT, tagnum); + if tagnum <> INVALID_DAYS then + Tag := tagnum; + end; + end; + SetFocus; + if Button = btNext then tagnum := Tag + 1 + else tagnum := Tag - 1; + Text := Hint; + DateLimits(DAYS_LIMIT, tagnum); + if tagnum <> INVALID_DAYS then + Tag := tagnum; + ShowDisplay(txtVisitStart); + end; + btnVisitDefaults.Tag := 0; + AdjustVisitLabel; + FStartEntered := false; +end; + +procedure TfrmOptionsDays.spnVisitStopClick(Sender: TObject; + Button: TUDBtnType); +var + tagnum: integer; +begin + with txtVisitStop do + begin + if FStopEntered then + begin + if Hint = '' then Hint := 'T'; + tagnum := RelativeDate(Hint); + if tagnum = INVALID_DAYS then + begin + Text := Hint; + beep; + InfoBox('Stop Date entry was invalid', 'Warning', MB_OK or MB_ICONWARNING); + ShowDisplay(txtVisitStop); + FStopEntered := false; + exit; + end + else + begin + DateLimits(DAYS_LIMIT, tagnum); + if tagnum = INVALID_DAYS then + begin + Text := Hint; + ShowDisplay(txtVisitStop); + FStopEntered := false; + exit; + end; + end; + end; + SetFocus; + if Button = btNext then tagnum := Tag + 1 + else tagnum := Tag - 1; + Text := Hint; + DateLimits(DAYS_LIMIT, tagnum); + if tagnum <> INVALID_DAYS then + Tag := tagnum; + ShowDisplay(txtVisitStop); + end; + btnVisitDefaults.Tag := 0; + AdjustVisitLabel; + FStopEntered := false; +end; + +procedure TfrmOptionsDays.spnLabInpatientClick(Sender: TObject; + Button: TUDBtnType); +begin + txtLabInpatient.SetFocus; + txtLabInpatient.Tag := strtointdef(txtLabInpatient.Text, 0); + btnLabDefaults.Tag := 0; + AdjustLabLabel; +end; + +procedure TfrmOptionsDays.spnLabOutpatientClick(Sender: TObject; + Button: TUDBtnType); +begin + txtLabOutpatient.SetFocus; + txtLabOutpatient.Tag := strtointdef(txtLabOutpatient.Text, 0); + btnLabDefaults.Tag := 0; + AdjustLabLabel; +end; + +procedure TfrmOptionsDays.txtLabInpatientKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; + if not (Key in ['0'..'9', #8]) then + begin + Key := #0; + beep; + end; +end; + +procedure TfrmOptionsDays.btnLabDefaultsClick(Sender: TObject); +begin + txtLabInpatient.Text := inttostr(spnLabInpatient.Tag); + spnLabInpatientClick(self, btNext); + txtLabOutpatient.Text := inttostr(spnLabOutpatient.Tag); + spnLabOutpatientClick(self, btNext); + btnLabDefaults.Tag := 1; +end; + +procedure TfrmOptionsDays.btnVisitDefaultsClick(Sender: TObject); +begin + txtVisitStart.Tag := spnVisitStart.Tag - 1; + spnVisitStartClick(self, btNext); + txtVisitStop.Tag := spnVisitStop.Tag - 1; + spnVisitStopClick(self, btNext); + btnVisitDefaults.Tag := 1; +end; + +procedure TfrmOptionsDays.AdjustVisitLabel; +var + start, stop: string; +begin + start := txtVisitStart.Text; + stop := txtVisitStop.Text; + if start <> 'Today' then start := start + ' days'; + if stop <> 'Today' then stop := stop + ' days'; + lblVisitValue.Text := 'Appointments and visits will be displayed on the cover sheet ' + + 'from ' + start + ' to ' + stop + '.' +end; + +procedure TfrmOptionsDays.AdjustLabLabel; +begin + lblLabValue.Text := 'Lab results will be displayed on the cover sheet ' + + 'back ' + txtLabInpatient.Text + ' days for inpatients and ' + + txtLabOutpatient.Text + ' days for outpatients.'; +end; + +procedure TfrmOptionsDays.btnOKClick(Sender: TObject); +begin + rpcSetDays(txtLabInpatient.Tag, txtLabOutpatient.Tag, txtVisitStart.Tag, txtVisitStop.Tag); +end; + +procedure TfrmOptionsDays.txtLabInpatientChange(Sender: TObject); +var + maxvalue: integer; +begin + maxvalue := spnLabInpatient.Max; + with txtLabInpatient do + begin + if strtointdef(Text, maxvalue) > maxvalue then + begin + beep; + InfoBox('Number must be < ' + inttostr(maxvalue), 'Warning', MB_OK or MB_ICONWARNING); + if strtointdef(Text, 0) > maxvalue then + Text := inttostr(maxvalue); + end; + end; + spnLabInpatientClick(self, btNext); +end; + +procedure TfrmOptionsDays.txtLabInpatientExit(Sender: TObject); +begin + with txtLabInpatient do + begin + if Text = '' then + begin + Text := '0'; + spnLabInpatientClick(self, btNext); + end + else if (Copy(Text, 1, 1) = '0') and (length(Text) > 1) then + begin + Text := inttostr(strtointdef(Text, 0)); + spnLabInpatientClick(self, btNext); + end; + end; +end; + +procedure TfrmOptionsDays.txtLabOutpatientChange(Sender: TObject); +var + maxvalue: integer; +begin + maxvalue := spnLabOutpatient.Max; + with txtLabOutpatient do + begin + if strtointdef(Text, maxvalue) > maxvalue then + begin + beep; + InfoBox('Number must be < ' + inttostr(maxvalue), 'Warning', MB_OK or MB_ICONWARNING); + if strtointdef(Text, 0) > maxvalue then + Text := inttostr(maxvalue); + end; + end; + spnLabOutpatientClick(self, btNext); +end; + +procedure TfrmOptionsDays.txtLabOutpatientExit(Sender: TObject); +begin + with txtLabOutpatient do + begin + if Text = '' then + begin + Text := '0'; + spnLabOutpatientClick(self, btNext); + end + else if (Copy(Text, 1, 1) = '0') and (length(Text) > 1) then + begin + Text := inttostr(strtointdef(Text, 0)); + spnLabOutpatientClick(self, btNext); + end; + end; +end; + +procedure TfrmOptionsDays.txtVisitStartExit(Sender: TObject); +begin + with txtVisitStart do + if Text = '' then + begin + Text := 'T-1'; + Hint := 'T-1'; + spnVisitStartClick(self, btNext); + end; + TextExit(txtVisitStart, FStartEntered, DAYS_LIMIT); + AdjustVisitLabel; +end; + +procedure TfrmOptionsDays.txtVisitStartKeyUp(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + txtVisitStart.Hint := txtVisitStart.Text; // put text in hint since text not available to spin + FStartEntered := true; +end; + +procedure TfrmOptionsDays.txtVisitStopExit(Sender: TObject); +begin + with txtVisitStop do + if Text = '' then + begin + Text := 'T-1'; + Hint := 'T-1'; + spnVisitStopClick(self, btNext); + end; + TextExit(txtVisitStop, FStopEntered, DAYS_LIMIT); + AdjustVisitLabel; +end; + +procedure TfrmOptionsDays.txtVisitStopKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + txtVisitStop.Hint := txtVisitStop.Text; // put text in hint since text not available to spin + FStopEntered := true; +end; + +procedure TfrmOptionsDays.txtVisitStartKeyPress(Sender: TObject; + var Key: Char); +begin + if key = #13 then + begin + FStartEntered := true; + Perform(WM_NextDlgCtl, 0, 0); + end; +end; + +procedure TfrmOptionsDays.txtVisitStopKeyPress(Sender: TObject; + var Key: Char); +begin + if key = #13 then + begin + FStopEntered := true; + Perform(WM_NextDlgCtl, 0, 0); + end; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsLists.dfm b/CPRS-Chart/Options/fOptionsLists.dfm new file mode 100644 index 0000000..94684ed --- /dev/null +++ b/CPRS-Chart/Options/fOptionsLists.dfm @@ -0,0 +1,337 @@ +object frmOptionsLists: TfrmOptionsLists + Left = 354 + Top = 178 + HelpContext = 9070 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsSingle + Caption = 'Personal Lists' + ClientHeight = 387 + ClientWidth = 407 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblAddby: TLabel + Left = 7 + Top = 97 + Width = 42 + Height = 13 + Caption = 'Provider:' + end + object lblPatientsAdd: TLabel + Left = 7 + Top = 200 + Width = 74 + Height = 13 + Caption = 'Patients to add:' + end + object lblPersonalPatientList: TLabel + Left = 248 + Top = 200 + Width = 114 + Height = 13 + Caption = 'Patients on personal list:' + end + object lblPersonalLists: TLabel + Left = 248 + Top = 97 + Width = 68 + Height = 13 + Caption = 'Personal Lists:' + end + object lblInfo: TMemo + Left = 199 + Top = 24 + Width = 186 + Height = 65 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'You can change your personal lists by ' + 'adding or removing patients.') + ReadOnly = True + TabOrder = 13 + end + object pnlBottom: TPanel + Left = 0 + Top = 354 + Width = 407 + Height = 33 + HelpContext = 9070 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 12 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 407 + Height = 2 + Align = alTop + end + object btnOK: TButton + Left = 245 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9996 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 325 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9997 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end + object lstAddBy: TORComboBox + Left = 7 + Top = 112 + Width = 153 + Height = 81 + HelpContext = 9072 + Style = orcsSimple + AutoSelect = True + Caption = 'Provider:' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnClick = lstAddByClick + OnKeyPress = lstAddByKeyPress + OnNeedData = lstAddByNeedData + end + object btnPersonalPatientRA: TButton + Left = 166 + Top = 296 + Width = 75 + Height = 22 + HelpContext = 9079 + Caption = 'Remove All' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 9 + OnClick = btnPersonalPatientRAClick + end + object btnPersonalPatientR: TButton + Left = 166 + Top = 271 + Width = 75 + Height = 22 + HelpContext = 9078 + Caption = 'Remove' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 8 + OnClick = btnPersonalPatientRClick + end + object lstListPats: TORListBox + Left = 7 + Top = 215 + Width = 153 + Height = 134 + HelpContext = 9073 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + PopupMenu = mnuPopPatient + ShowHint = True + Sorted = True + TabOrder = 5 + OnClick = lstListPatsChange + OnDblClick = btnListAddClick + OnMouseDown = lstListPatsMouseDown + Caption = 'Patients to add:' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + OnChange = lstListPatsChange + end + object lstPersonalPatients: TORListBox + Left = 248 + Top = 215 + Width = 153 + Height = 134 + HelpContext = 9075 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + PopupMenu = mnuPopPatient + ShowHint = True + Sorted = True + TabOrder = 11 + OnClick = lstPersonalPatientsChange + OnDblClick = btnPersonalPatientRClick + OnMouseDown = lstPersonalPatientsMouseDown + Caption = 'Patients on personal list:' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + OnChange = lstPersonalPatientsChange + end + object btnListAddAll: TButton + Left = 166 + Top = 241 + Width = 75 + Height = 22 + HelpContext = 9077 + Caption = 'Add All' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 7 + OnClick = btnListAddAllClick + end + object btnNewList: TButton + Left = 166 + Top = 113 + Width = 75 + Height = 22 + HelpContext = 9081 + Caption = 'New List...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = btnNewListClick + end + object btnDeleteList: TButton + Left = 165 + Top = 171 + Width = 75 + Height = 22 + HelpContext = 9082 + Caption = 'Delete List' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnClick = btnDeleteListClick + end + object lstPersonalLists: TORListBox + Left = 248 + Top = 112 + Width = 153 + Height = 81 + HelpContext = 9074 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + Sorted = True + TabOrder = 4 + Caption = 'Personal Lists:' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + OnChange = lstPersonalListsChange + end + object radAddByType: TRadioGroup + Left = 7 + Top = 8 + Width = 153 + Height = 86 + HelpContext = 9071 + Caption = 'Select patients by ' + Columns = 2 + ItemIndex = 0 + Items.Strings = ( + 'P&atient' + '&Ward' + '&Clinic' + '&Provider' + '&Specialty' + '&List') + TabOrder = 0 + OnClick = radAddByTypeClick + end + object btnListSaveChanges: TButton + Left = 166 + Top = 328 + Width = 75 + Height = 22 + HelpContext = 9080 + Caption = 'Save Changes' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 10 + OnClick = btnListSaveChangesClick + end + object btnListAdd: TButton + Left = 166 + Top = 216 + Width = 75 + Height = 22 + HelpContext = 9076 + Caption = 'Add' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 6 + OnClick = btnListAddClick + end + object mnuPopPatient: TPopupMenu + Left = 8 + Top = 352 + object mnuPatientID: TMenuItem + Caption = 'Patient ID...' + OnClick = mnuPatientIDClick + end + end +end diff --git a/CPRS-Chart/Options/fOptionsLists.pas b/CPRS-Chart/Options/fOptionsLists.pas new file mode 100644 index 0000000..49c50a4 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsLists.pas @@ -0,0 +1,563 @@ +unit fOptionsLists; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ORCtrls, OrFn, Menus; + +type + TfrmOptionsLists = class(TForm) + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + lblAddby: TLabel; + lblPatientsAdd: TLabel; + lblPersonalPatientList: TLabel; + lblPersonalLists: TLabel; + lstAddBy: TORComboBox; + btnPersonalPatientRA: TButton; + btnPersonalPatientR: TButton; + lstListPats: TORListBox; + lstPersonalPatients: TORListBox; + btnListAddAll: TButton; + btnNewList: TButton; + btnDeleteList: TButton; + lstPersonalLists: TORListBox; + radAddByType: TRadioGroup; + btnListSaveChanges: TButton; + btnListAdd: TButton; + lblInfo: TMemo; + bvlBottom: TBevel; + mnuPopPatient: TPopupMenu; + mnuPatientID: TMenuItem; + procedure FormCreate(Sender: TObject); + procedure btnNewListClick(Sender: TObject); + procedure radAddByTypeClick(Sender: TObject); + procedure lstPersonalListsChange(Sender: TObject); + procedure lstAddByClick(Sender: TObject); + procedure btnDeleteListClick(Sender: TObject); + procedure btnListSaveChangesClick(Sender: TObject); + procedure btnPersonalPatientRAClick(Sender: TObject); + procedure btnListAddAllClick(Sender: TObject); + procedure btnPersonalPatientRClick(Sender: TObject); + procedure lstPersonalPatientsChange(Sender: TObject); + procedure btnListAddClick(Sender: TObject); + procedure lstListPatsChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure lstAddByNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure btnOKClick(Sender: TObject); + procedure mnuPatientIDClick(Sender: TObject); + procedure lstListPatsMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure lstPersonalPatientsMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure lstAddByKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + FLastList: integer; + procedure AddIfUnique(entry: string; aList: TORListBox); + public + { Public declarations } + end; + +var + frmOptionsLists: TfrmOptionsLists; + +procedure DialogOptionsLists(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +uses fOptionsNewList, rOptions, uOptions, rCore, fPtSelOptns; + +{$R *.DFM} + +const + LIST_ADD = 1; + LIST_PERSONAL = 2; + +procedure DialogOptionsLists(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsLists: TfrmOptionsLists; +begin + frmOptionsLists := TfrmOptionsLists.Create(Application); + actiontype := 0; + try + with frmOptionsLists do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsLists); + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsLists.Release; + end; +end; + +procedure TfrmOptionsLists.FormCreate(Sender: TObject); +begin + rpcGetPersonalLists(lstPersonalLists.Items); + radAddByType.ItemIndex := 0; + radAddByTypeClick(self); + FLastList := 0; +end; + +procedure TfrmOptionsLists.btnNewListClick(Sender: TObject); +var + newlist: string; + newlistnum: integer; +begin + newlist := ''; + DialogOptionsNewList(Font.Size, newlist); + newlistnum := strtointdef(Piece(newlist, '^', 1), 0); + if newlistnum > 0 then + begin + with lstPersonalLists do + begin + Items.Add(newlist); + SelectByIEN(newlistnum); + end; + lstPersonalListsChange(self); + lstPersonalPatients.Items.Clear; + lstPersonalPatientsChange(self); + end; +end; + +procedure TfrmOptionsLists.radAddByTypeClick(Sender: TObject); +begin + with lstAddBy do + begin + case radAddByType.ItemIndex of + 0: begin + ListItemsOnly := true; + LongList := true; + InitLongList(''); + lblAddby.Caption := 'Patient:'; + end; + 1: begin + ListItemsOnly := false; + LongList := false; + ListWardAll(lstAddBy.Items); + lblAddby.Caption := 'Ward:'; + end; + 2: begin + ListItemsOnly := true; + LongList := true; + InitLongList(''); + lblAddby.Caption := 'Clinic:'; + end; + 3: begin + ListItemsOnly := true; + LongList := true; + InitLongList(''); + lblAddby.Caption := 'Provider:'; + end; + 4: begin + ListItemsOnly := false; + LongList := false; + ListSpecialtyAll(lstAddBy.Items); + lblAddby.Caption := 'Specialty:'; + end; + 5: begin + ListItemsOnly := false; + LongList := false; + ListTeamAll(lstAddBy.Items); + lblAddby.Caption := 'List:'; + end; + end; + lstAddby.Caption := lblAddby.Caption; + ItemIndex := -1; + Text := ''; + end; + lstListPats.Items.Clear; + lstListPatsChange(self); +end; + +procedure TfrmOptionsLists.AddIfUnique(entry: string; aList: TORListBox); +var + i: integer; + ien: string; + inlist: boolean; +begin + ien := Piece(entry, '^', 1); + inlist := false; + with aList do + for i := 0 to Items.Count - 1 do + if ien = Piece(Items[i], '^', 1) then + begin + inlist := true; + break; + end; + if not inlist then + aList.Items.Add(entry); +end; + +procedure TfrmOptionsLists.lstPersonalListsChange(Sender: TObject); +begin + if btnListSaveChanges.Enabled then + begin + if InfoBox('Do you want to save changes to ' + + Piece(lstPersonalLists.Items[FLastList], '^', 2) + '?', + 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + btnListSaveChangesClick(self); + end; + if lstPersonalLists.ItemIndex > -1 then FLastList := lstPersonalLists.ItemIndex; + lstPersonalPatients.Items.Clear; + btnDeleteList.Enabled := lstPersonalLists.ItemIndex > -1; + with lstPersonalLists do + begin + if (ItemIndex < 0) or (Items.Count <1) then + begin + btnListAdd.Enabled := false; + btnListAddAll.Enabled := false; + btnPersonalPatientR.Enabled := false; + btnPersonalPatientRA.Enabled := false; + btnListSaveChanges.Enabled := false; + exit; + end; + ListPtByTeam(lstPersonalPatients.Items, strtointdef(Piece(Items[ItemIndex], '^', 1), 0)); + btnDeleteList.Enabled := true; + end; + if lstPersonalPatients.Items.Count = 1 then // avoid selecting '^No patients found.' msg + if Piece(lstPersonalPatients.Items[0], '^', 1) = '' then + begin + btnPersonalPatientR.Enabled := false; + btnPersonalPatientRA.Enabled := false; + exit; + end; + btnPersonalPatientR.Enabled := lstPersonalPatients.SelCount > 0; + btnPersonalPatientRA.Enabled := lstPersonalPatients.Items.Count > 0; + btnListSaveChanges.Enabled := false; +end; + +procedure TfrmOptionsLists.lstAddByClick(Sender: TObject); +var + ien: string; + visitstart, visitstop, i: integer; + visittoday, visitbegin, visitend: TFMDateTime; + aList: TStringList; + PtRec: TPtIDInfo; +begin + if lstAddBy.ItemIndex < 0 then exit; + ien := Piece(lstAddBy.Items[lstAddBy.ItemIndex], '^', 1); + case radAddByType.ItemIndex of + 0: + begin + PtRec := GetPtIDInfo(ien); + lblAddBy.Caption := 'Patient: SSN: ' + PtRec.SSN; + lstAddby.Caption := lblAddby.Caption; + AddIfUnique(lstAddBy.Items[lstAddBy.ItemIndex], lstListPats); + end; + 1: + begin + ListPtByWard(lstListPats.Items, strtointdef(ien,0)); + end; + 2: + begin + rpcGetApptUserDays(visitstart, visitstop); // use user's date range for appointments + visittoday := FMToday; + visitbegin := FMDateTimeOffsetBy(visittoday, LowerOf(visitstart, visitstop)); + visitend := FMDateTimeOffsetBy(visittoday, HigherOf(visitstart, visitstop)); + aList := TStringList.Create; + ListPtByClinic(lstListPats.Items, strtointdef(ien, 0), floattostr(visitbegin), floattostr(visitend)); + for i := 0 to aList.Count - 1 do + AddIfUnique(aList[i], lstListPats); + aList.Free; + end; + 3: + begin + ListPtByProvider(lstListPats.Items, strtoint64def(ien,0)); + end; + 4: + begin + ListPtBySpecialty(lstListPats.Items, strtointdef(ien,0)); + end; + 5: + begin + ListPtByTeam(lstListPats.Items, strtointdef(ien,0)); + end; + end; + if lstListPats.Items.Count = 1 then // avoid selecting '^No patients found.' msg + if Piece(lstListPats.Items[0], '^', 1) = '' then + begin + btnListAddAll.Enabled := false; + btnListAdd.Enabled := false; + exit; + end; + btnListAddAll.Enabled := (lstListPats.Items.Count > 0) and (lstPersonalLists.ItemIndex > -1); + btnListAdd.Enabled := (lstListPats.SelCount > 0) and (lstPersonalLists.ItemIndex > -1); +end; + +procedure TfrmOptionsLists.btnDeleteListClick(Sender: TObject); +var + oldindex: integer; + deletemsg: string; +begin + with lstPersonalLists do + deletemsg := 'You have selected "' + DisplayText[ItemIndex] + + '" to be deleted.' + CRLF + 'Are you sure you want to delete this list?'; + if InfoBox(deletemsg, 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + begin + btnListSaveChanges.Enabled := false; + with lstPersonalLists do + begin + oldindex := ItemIndex; + if oldindex > -1 then + begin + rpcDeleteList(Piece(Items[oldindex], '^', 1)); + Items.Delete(oldindex); + btnPersonalPatientRAClick(self); + btnListSaveChanges.Enabled := false; + end; + if Items.Count > 0 then + begin + if oldindex = 0 then + ItemIndex := 0 + else if oldindex > (Items.Count - 1) then + ItemIndex := Items.Count - 1 + else + ItemIndex := oldindex; + btnListSaveChanges.Enabled := false; + lstPersonalListsChange(self); + end; + end; + end; +end; + +procedure TfrmOptionsLists.btnListSaveChangesClick(Sender: TObject); +var + listien: integer; +begin + listien := strtointdef(Piece(lstPersonalLists.Items[FLastList], '^', 1), 0); + rpcSaveListChanges(lstPersonalPatients.Items, listien); + btnListSaveChanges.Enabled := false; +end; + +procedure TfrmOptionsLists.btnPersonalPatientRAClick(Sender: TObject); +begin + lstPersonalPatients.Items.Clear; + btnPersonalPatientR.Enabled := lstPersonalPatients.SelCount > 0; + btnPersonalPatientRA.Enabled := lstPersonalPatients.Items.Count > 0; + btnListSaveChanges.Enabled := true; +end; + +procedure TfrmOptionsLists.btnListAddAllClick(Sender: TObject); +var + i: integer; +begin + with lstPersonalPatients do + begin + if Items.Count = 1 then + if Piece(Items[0], '^', 1) = '' then + Items.Clear; + end; + with lstListPats do + begin + for i := 0 to Items.Count - 1 do + AddIfUnique(Items[i], lstPersonalPatients); + Items.Clear; + lstPersonalPatientsChange(self); + lstAddBy.ItemIndex := -1; + btnListAddAll.Enabled := false; + lstPersonalPatientsChange(self); + end; + btnListSaveChanges.Enabled := true; +end; + +procedure TfrmOptionsLists.btnPersonalPatientRClick(Sender: TObject); +var + i: integer; +begin + if not btnPersonalPatientR.Enabled then exit; + with lstPersonalPatients do + for i := Items.Count - 1 downto 0 do + if Selected[i] then + Items.Delete(i); + btnPersonalPatientR.Enabled := lstPersonalPatients.SelCount > 0; + btnPersonalPatientRA.Enabled := lstPersonalPatients.Items.Count > 0; + btnListSaveChanges.Enabled := true; +end; + +procedure TfrmOptionsLists.lstPersonalPatientsChange(Sender: TObject); +begin + if lstPersonalPatients.SelCount = 1 then // avoid selecting '^No patients found.' msg + if Piece(lstPersonalPatients.Items[0], '^', 1) = '' then + begin + btnPersonalPatientR.Enabled := false; + btnPersonalPatientRA.Enabled := false; + exit; + end; + btnPersonalPatientR.Enabled := lstPersonalPatients.SelCount > 0; + btnPersonalPatientRA.Enabled := lstPersonalPatients.Items.Count > 0; +end; + +procedure TfrmOptionsLists.btnListAddClick(Sender: TObject); +var + i: integer; +begin + if not btnListAdd.Enabled then exit; + with lstPersonalPatients do + begin + if Items.Count = 1 then + if Piece(Items[0], '^', 1) = '' then + Items.Clear; + end; + with lstListPats do + for i := Items.Count - 1 downto 0 do + if Selected[i] then + begin + AddIfUnique(Items[i], lstPersonalPatients); + Items.Delete(i); + end; + lstListPatsChange(self); + lstPersonalPatientsChange(self); + btnListSaveChanges.Enabled := true; +end; + +procedure TfrmOptionsLists.lstListPatsChange(Sender: TObject); +begin + if lstListPats.SelCount = 1 then // avoid selecting '^No patients found.' msg + if Piece(lstListPats.Items[0], '^', 1) = '' then + exit; + btnListAdd.Enabled := (lstListPats.SelCount > 0) and (lstPersonalLists.ItemIndex > -1); + btnListAddAll.Enabled := (lstListPats.Items.Count > 0) and (lstPersonalLists.ItemIndex > -1); +end; + +procedure TfrmOptionsLists.FormShow(Sender: TObject); +begin + with lstPersonalLists do + if Items.Count < 1 then + showmessage('You have no personal lists. Use "New List..." to create one.') + else + begin + ItemIndex := 0; + lstPersonalListsChange(self); + end; +end; + +procedure TfrmOptionsLists.lstAddByNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + with lstAddBy do + begin + case radAddByType.ItemIndex of + 0: begin + Pieces := '2'; + ForDataUse(SubSetOfPatients(StartFrom, Direction)); + end; + 1: begin + Pieces := '2'; + end; + 2: begin + Pieces := '2'; + ForDataUse(SubSetOfClinics(StartFrom, Direction)); + end; + 3: begin + Pieces := '2,3'; + ForDataUse(SubSetOfProviders(StartFrom, Direction)); + end; + 4: begin + Pieces := '2'; + end; + 5: begin + Pieces := '2'; + end; + end; + end; +end; + +procedure TfrmOptionsLists.btnOKClick(Sender: TObject); +begin + if btnListSaveChanges.Enabled then + begin + if InfoBox('Do you want to save changes to ' + + Piece(lstPersonalLists.Items[FLastList], '^', 2) + '?', + 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + btnListSaveChangesClick(self); + end; +end; + +procedure TfrmOptionsLists.mnuPatientIDClick(Sender: TObject); +begin + case mnuPopPatient.Tag of + LIST_PERSONAL: DisplayPtInfo(lstPersonalPatients.ItemID); + LIST_ADD: DisplayPtInfo(lstListPats.ItemID); + end; +end; + +procedure TfrmOptionsLists.lstListPatsMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + mnuPopPatient.AutoPopup := (lstListPats.Items.Count > 0) + and (lstListPats.ItemIndex > -1) + and (lstListPats.SelCount = 1) + and (Button = mbRight) + and (btnListAdd.Enabled); + mnuPopPatient.Tag := LIST_ADD; +end; + +procedure TfrmOptionsLists.lstPersonalPatientsMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + mnuPopPatient.AutoPopup := (lstPersonalPatients.Items.Count > 0) + and (lstPersonalPatients.ItemIndex > -1) + and (lstPersonalPatients.SelCount = 1) + and (Button = mbRight) + and (btnPersonalPatientR.Enabled); + mnuPopPatient.Tag := LIST_PERSONAL; +end; + +procedure TfrmOptionsLists.lstAddByKeyPress(Sender: TObject; + var Key: Char); + + procedure ShowMatchingPatients; + begin + with lstAddBy do + begin + if ShortCount > 0 then + begin + if ShortCount = 1 then + begin + ItemIndex := 0; + end; + Items.Add(LLS_LINE); + Items.Add(LLS_SPACE); + end; + InitLongList(''); + end; + Key := #0; //Now that we've selected it, don't process the last keystroke! + end; + +var + FutureText: string; +begin + if radAddByType.ItemIndex = 0 {patient} then + begin + with lstAddBy do + begin + FutureText := Text + Key; + if frmPtSelOptns.IsLast5(FutureText) then + begin + ListPtByLast5(Items, FutureText); + ShowMatchingPatients; + end + else if frmPtSelOptns.IsFullSSN(FutureText) then + begin + ListPtByFullSSN(Items, FutureText); + ShowMatchingPatients; + end; + end; + end; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsNewList.dfm b/CPRS-Chart/Options/fOptionsNewList.dfm new file mode 100644 index 0000000..8816516 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsNewList.dfm @@ -0,0 +1,77 @@ +object frmOptionsNewList: TfrmOptionsNewList + Left = 863 + Top = 101 + HelpContext = 9085 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'New Personal List' + ClientHeight = 115 + ClientWidth = 175 + Color = clBtnFace + ParentFont = True + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object lblEnter: TLabel + Left = 10 + Top = 8 + Width = 93 + Height = 13 + Caption = 'Enter the name of a' + end + object lblNew: TLabel + Left = 10 + Top = 24 + Width = 81 + Height = 13 + Caption = 'new personal list.' + end + object pnlBottom: TPanel + Left = 0 + Top = 81 + Width = 175 + Height = 34 + HelpContext = 9085 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 1 + object btnOK: TButton + Left = 11 + Top = 7 + Width = 75 + Height = 22 + HelpContext = 9997 + Caption = 'OK' + Default = True + Enabled = False + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 91 + Top = 7 + Width = 75 + Height = 22 + HelpContext = 9996 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end + object txtNewList: TCaptionEdit + Left = 10 + Top = 45 + Width = 153 + Height = 21 + HelpContext = 9086 + MaxLength = 30 + TabOrder = 0 + OnChange = txtNewListChange + OnKeyPress = txtNewListKeyPress + Caption = 'Enter the name of a new personal list' + end +end diff --git a/CPRS-Chart/Options/fOptionsNewList.pas b/CPRS-Chart/Options/fOptionsNewList.pas new file mode 100644 index 0000000..0528d19 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsNewList.pas @@ -0,0 +1,101 @@ +unit fOptionsNewList; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Dialogs, + Buttons, ComCtrls, ExtCtrls, OrFn, ORCtrls; + +type + TfrmOptionsNewList = class(TForm) + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + txtNewList: TCaptionEdit; + lblEnter: TLabel; + lblNew: TLabel; + procedure btnOKClick(Sender: TObject); + procedure txtNewListKeyPress(Sender: TObject; var Key: Char); + procedure txtNewListChange(Sender: TObject); + private + { Private declarations } + FNewList: string; + public + { Public declarations } + end; + +procedure DialogOptionsNewList(fontsize: integer; var actiontype: string); + +var + frmOptionsNewList: TfrmOptionsNewList; + +implementation + +uses rOptions; + +{$R *.DFM} + +procedure DialogOptionsNewList(fontsize: integer; var actiontype: string); +// create the form and make it modal, return an action +var + frmOptionsNewList: TfrmOptionsNewList; +begin + frmOptionsNewList := TfrmOptionsNewList.Create(Application); + actiontype := ''; + try + with frmOptionsNewList do + begin + Position := poScreenCenter; + ResizeAnchoredFormToFont(frmOptionsNewList); + ShowModal; + actiontype := FNewList; + end; + finally + frmOptionsNewList.Release; + end; +end; + +procedure TfrmOptionsNewList.btnOKClick(Sender: TObject); +var + ok: boolean; +begin + ok := false; + with txtNewList do + begin + if (length(Text) < 3) or (length(Text) > 30) then + showmessage('Enter a valid name.') + else if not ContainsAlpha(txtNewList.Text[1]) then + showmessage('Enter a valid name.') + else + begin + FNewList := rpcNewList(Text); + if Piece(FNewList, '^', 1) = '' then + showmessage('Enter a valid name. ' + Piece(FNewList, '^', 2)) + else + ok := true; + end; + if ok then Close + else + begin + Text := ''; + SetFocus; + end; + end; +end; + +procedure TfrmOptionsNewList.txtNewListKeyPress(Sender: TObject; + var Key: Char); +begin + if not (Key in ['A'..'Z', 'a'..'z', '0'..'9', #32, #8]) then + begin + Key := #0; + beep; + end; +end; + +procedure TfrmOptionsNewList.txtNewListChange(Sender: TObject); +begin + btnOK.Enabled := length(txtNewList.Text) > 3; +end; + +end. + diff --git a/CPRS-Chart/Options/fOptionsNotes.dfm b/CPRS-Chart/Options/fOptionsNotes.dfm new file mode 100644 index 0000000..c6c3abb --- /dev/null +++ b/CPRS-Chart/Options/fOptionsNotes.dfm @@ -0,0 +1,155 @@ +object frmOptionsNotes: TfrmOptionsNotes + Left = 360 + Top = 264 + HelpContext = 9210 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsSingle + Caption = 'Notes' + ClientHeight = 150 + ClientWidth = 399 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblAutoSave1: TLabel + Left = 9 + Top = 14 + Width = 97 + Height = 13 + Caption = 'Interval for autosave' + end + object lblCosigner: TLabel + Left = 9 + Top = 75 + Width = 80 + Height = 13 + Caption = 'Default cosigner:' + end + object lblAutoSave2: TLabel + Left = 9 + Top = 28 + Width = 67 + Height = 13 + Caption = 'of notes (sec):' + end + object txtAutoSave: TCaptionEdit + Left = 9 + Top = 42 + Width = 42 + Height = 21 + HelpContext = 9213 + TabOrder = 0 + Text = '5' + OnChange = txtAutoSaveChange + OnExit = txtAutoSaveExit + OnKeyPress = txtAutoSaveKeyPress + end + object spnAutoSave: TUpDown + Left = 51 + Top = 42 + Width = 15 + Height = 21 + HelpContext = 9213 + Associate = txtAutoSave + Min = 0 + Max = 10000 + Increment = 5 + Position = 5 + TabOrder = 1 + Thousands = False + Wrap = False + OnClick = spnAutoSaveClick + end + object chkVerifyNote: TCheckBox + Left = 177 + Top = 59 + Width = 169 + Height = 17 + HelpContext = 9214 + Caption = 'Verify note title' + TabOrder = 3 + end + object chkAskSubject: TCheckBox + Left = 177 + Top = 30 + Width = 217 + Height = 17 + HelpContext = 9215 + Caption = 'Ask subject for progress notes' + TabOrder = 2 + end + object cboCosigner: TORComboBox + Left = 9 + Top = 88 + Width = 297 + Height = 21 + HelpContext = 9216 + Style = orcsDropDown + AutoSelect = True + Caption = 'Default cosigner' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + LookupPiece = 2 + MaxLength = 0 + Pieces = '2,3' + Sorted = True + SynonymChars = '<>' + TabOrder = 4 + OnExit = cboCosignerExit + OnNeedData = cboCosignerNeedData + end + object pnlBottom: TPanel + Left = 0 + Top = 117 + Width = 399 + Height = 33 + HelpContext = 9110 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 5 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 399 + Height = 2 + Align = alTop + end + object btnOK: TButton + Left = 240 + Top = 7 + Width = 75 + Height = 22 + HelpContext = 9996 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 321 + Top = 7 + Width = 75 + Height = 22 + HelpContext = 9997 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end +end diff --git a/CPRS-Chart/Options/fOptionsNotes.pas b/CPRS-Chart/Options/fOptionsNotes.pas new file mode 100644 index 0000000..c2f0b43 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsNotes.pas @@ -0,0 +1,206 @@ +unit fOptionsNotes; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ORCtrls, ORFn, ComCtrls; + +type + TfrmOptionsNotes = class(TForm) + lblAutoSave1: TLabel; + lblCosigner: TLabel; + txtAutoSave: TCaptionEdit; + spnAutoSave: TUpDown; + chkVerifyNote: TCheckBox; + chkAskSubject: TCheckBox; + cboCosigner: TORComboBox; + pnlBottom: TPanel; + bvlBottom: TBevel; + btnOK: TButton; + btnCancel: TButton; + lblAutoSave2: TLabel; + procedure FormShow(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure txtAutoSaveChange(Sender: TObject); + procedure txtAutoSaveKeyPress(Sender: TObject; var Key: Char); + procedure txtAutoSaveExit(Sender: TObject); + procedure spnAutoSaveClick(Sender: TObject; Button: TUDBtnType); + procedure cboCosignerNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboCosignerExit(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmOptionsNotes: TfrmOptionsNotes; + +procedure DialogOptionsNotes(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +{$R *.DFM} + +uses + rOptions, uOptions, rCore, rTIU, rDCSumm; + +procedure DialogOptionsNotes(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsNotes: TfrmOptionsNotes; +begin + frmOptionsNotes := TfrmOptionsNotes.Create(Application); + actiontype := 0; + try + with frmOptionsNotes do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsNotes); + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsNotes.Release; + end; +end; + +procedure TfrmOptionsNotes.FormShow(Sender: TObject); +// displays defaults +// opening tab^use last tab^autosave seconds^verify note title +var + autosave, verify: integer; + cosigner: Int64; + values, cosignername: string; +begin + values := rpcGetOther; + autosave := strtointdef(Piece(values, '^', 3), -1); + verify := strtointdef(Piece(values, '^', 4), 0); + chkVerifyNote.Checked := verify = 1; + chkVerifyNote.Tag := verify; + spnAutoSave.Position := autosave; + spnAutoSave.Tag := autosave; + + values := rpcGetDefaultCosigner; + cosigner := strtoint64def(Piece(values, '^', 1), 0); + cosignername := Piece(values, '^', 2); + cboCosigner.Items.Add('0^'); + cboCosigner.InitLongList(cosignername); + cboCosigner.SelectByIEN(cosigner); + cboCosigner.Tag := cosigner; + chkAskSubject.Checked := rpcGetSubject; + if chkAskSubject.Checked then chkAskSubject.Tag := 1; +end; + +procedure TfrmOptionsNotes.btnOKClick(Sender: TObject); +// only saves values if they have been changed +// opening tab^use last tab^autosave seconds^verify note title +var + values: string; +begin + values := ''; + values := values + '^'; + values := values + '^'; + if spnAutoSave.Position <> spnAutoSave.Tag then + values := values + inttostr(spnAutoSave.Position); + values := values + '^'; + if chkVerifyNote.Checked then + if chkVerifyNote.Tag <> 1 then + values := values + '1'; + if not chkVerifyNote.Checked then + if chkVerifyNote.Tag <> 0 then + values := values + '0'; + rpcSetOther(values); + with chkAskSubject do + if (Checked and (Tag = 0)) or (not Checked and (Tag = 1)) then + rpcSetSubject(Checked); + with cboCosigner do + if Tag <> ItemIEN then + rpcSetDefaultCosigner(ItemIEN); + ResetTIUPreferences; + ResetDCSummPreferences; +end; + +procedure TfrmOptionsNotes.txtAutoSaveChange(Sender: TObject); +var + maxvalue: integer; +begin + maxvalue := spnAutoSave.Max; + with txtAutoSave do + begin + if strtointdef(Text, maxvalue) > maxvalue then + begin + beep; + InfoBox('Number must be < ' + inttostr(maxvalue), 'Warning', MB_OK or MB_ICONWARNING); + if strtointdef(Text, 0) > maxvalue then + Text := inttostr(maxvalue); + end; + end; + spnAutoSaveClick(self, btNext); +end; + +procedure TfrmOptionsNotes.txtAutoSaveKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; + if not (Key in ['0'..'9', #8]) then + begin + Key := #0; + beep; + end; +end; + +procedure TfrmOptionsNotes.txtAutoSaveExit(Sender: TObject); +begin + with txtAutoSave do + begin + if Text = '' then + begin + Text := '0'; + spnAutoSaveClick(self, btNext); + end + else if (Copy(Text, 1, 1) = '0') and (length(Text) > 1) then + begin + Text := inttostr(strtointdef(Text, 0)); + spnAutoSaveClick(self, btNext); + end; + end; +end; + +procedure TfrmOptionsNotes.spnAutoSaveClick(Sender: TObject; + Button: TUDBtnType); +begin + txtAutoSave.SetFocus; + txtAutoSave.Tag := strtointdef(txtAutoSave.Text, 0); +end; + +procedure TfrmOptionsNotes.cboCosignerNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboCosigner.ForDataUse(rpcGetCosigners(StartFrom, Direction)); +end; + +procedure TfrmOptionsNotes.cboCosignerExit(Sender: TObject); +begin + with cboCosigner do + if (Text = '') or (ItemIndex = -1) then + begin + ItemIndex := 0; + Text := DisplayText[0]; + end; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsOther.dfm b/CPRS-Chart/Options/fOptionsOther.dfm new file mode 100644 index 0000000..04446ce --- /dev/null +++ b/CPRS-Chart/Options/fOptionsOther.dfm @@ -0,0 +1,319 @@ +object frmOptionsOther: TfrmOptionsOther + Left = 341 + Top = 96 + Hint = 'Use system default settings' + HelpContext = 9110 + Align = alCustom + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Other Parameters' + ClientHeight = 436 + ClientWidth = 329 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poScreenCenter + ShowHint = True + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblMedsTab: TLabel + Left = 7 + Top = 121 + Width = 135 + Height = 26 + Hint = 'Set date ranges for displaying medication orders on Meds tab.' + Caption = 'Set date range for Meds tab display:' + ParentShowHint = False + ShowHint = True + WordWrap = True + end + object lblTab: TLabel + Left = 8 + Top = 27 + Width = 134 + Height = 13 + Caption = 'Initial tab when CPRS starts:' + end + object Bevel1: TBevel + Left = 1 + Top = 110 + Width = 327 + Height = 2 + end + object lblEncAppts: TLabel + Left = 8 + Top = 269 + Width = 207 + Height = 13 + Hint = 'Set date range for Encounter Appointments.' + Caption = 'Set date range for Encounter Appointments:' + ParentShowHint = False + ShowHint = True + WordWrap = True + end + object Bevel2: TBevel + Left = 1 + Top = 256 + Width = 327 + Height = 2 + end + object pnlBottom: TPanel + Left = 0 + Top = 403 + Width = 329 + Height = 33 + HelpContext = 9110 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 7 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 329 + Height = 2 + Align = alTop + end + object btnOK: TButton + Left = 167 + Top = 7 + Width = 75 + Height = 22 + HelpContext = 9996 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 248 + Top = 7 + Width = 75 + Height = 22 + HelpContext = 9997 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end + object stStart: TStaticText + Left = 7 + Top = 151 + Width = 55 + Height = 17 + Caption = 'Start Date:' + TabOrder = 1 + end + object stStop: TStaticText + Left = 7 + Top = 207 + Width = 55 + Height = 17 + Caption = 'Stop Date:' + TabOrder = 5 + end + object dtStart: TORDateBox + Left = 7 + Top = 170 + Width = 187 + Height = 21 + TabOrder = 4 + OnChange = dtStartChange + OnExit = dtStartExit + DateOnly = True + RequireTime = False + Caption = 'Start Date' + end + object dtStop: TORDateBox + Left = 8 + Top = 225 + Width = 186 + Height = 21 + TabOrder = 6 + OnExit = dtStopExit + DateOnly = True + RequireTime = False + Caption = 'Stop Date' + end + object lblTabDefault: TStaticText + Left = 8 + Top = 6 + Width = 52 + Height = 17 + Caption = 'Chart tabs' + TabOrder = 0 + end + object cboTab: TORComboBox + Left = 8 + Top = 51 + Width = 217 + Height = 21 + HelpContext = 9111 + Style = orcsDropDown + AutoSelect = True + Caption = 'Initial tab when CPRS starts:' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 2 + TabStop = True + CharsNeedMatch = 1 + end + object chkLastTab: TCheckBox + Left = 8 + Top = 82 + Width = 312 + Height = 21 + HelpContext = 9112 + Caption = 'Use last selected tab on patient change' + TabOrder = 3 + end + object stStartEncAppts: TStaticText + Left = 9 + Top = 296 + Width = 55 + Height = 17 + Caption = 'Start Date:' + TabOrder = 13 + end + object txtTodayMinus: TStaticText + Left = 38 + Top = 321 + Width = 64 + Height = 17 + Alignment = taRightJustify + Caption = 'Today minus' + Color = clBtnFace + ParentColor = False + TabOrder = 14 + end + object txtEncStart: TCaptionEdit + Left = 110 + Top = 318 + Width = 50 + Height = 21 + HelpContext = 9015 + MaxLength = 12 + TabOrder = 8 + Text = '0' + OnChange = txtEncStartChange + OnExit = txtEncStartExit + Caption = 'Stop' + end + object txtDaysMinus: TStaticText + Left = 178 + Top = 322 + Width = 26 + Height = 17 + Caption = 'days' + Color = clBtnFace + ParentColor = False + TabOrder = 16 + end + object spnEncStart: TUpDown + Tag = 30 + Left = 160 + Top = 318 + Width = 15 + Height = 21 + HelpContext = 9015 + Associate = txtEncStart + Min = -999 + Max = 999 + Position = 0 + TabOrder = 17 + Thousands = False + Wrap = False + end + object txtDaysPlus: TStaticText + Left = 180 + Top = 374 + Width = 26 + Height = 17 + Caption = 'days' + Color = clBtnFace + ParentColor = False + TabOrder = 18 + end + object spnEncStop: TUpDown + Tag = 30 + Left = 162 + Top = 369 + Width = 15 + Height = 21 + HelpContext = 9015 + Associate = txtEncStop + Min = -999 + Max = 999 + Position = 0 + TabOrder = 19 + Thousands = False + Wrap = False + end + object txtEncStop: TCaptionEdit + Left = 112 + Top = 369 + Width = 50 + Height = 21 + HelpContext = 9015 + MaxLength = 12 + TabOrder = 10 + Text = '0' + OnChange = txtEncStopChange + OnExit = txtEncStopExit + Caption = 'Stop' + end + object txtTodayPlus: TStaticText + Left = 46 + Top = 372 + Width = 56 + Height = 17 + Alignment = taRightJustify + Caption = 'Today plus' + Color = clBtnFace + ParentColor = False + TabOrder = 21 + end + object stStopEncAppts: TStaticText + Left = 10 + Top = 348 + Width = 55 + Height = 17 + Caption = 'Stop Date:' + TabOrder = 22 + end + object btnEncDefaults: TButton + Left = 248 + Top = 287 + Width = 75 + Height = 22 + HelpContext = 9011 + Caption = 'Use Defaults' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 12 + OnClick = btnEncDefaultsClick + end +end diff --git a/CPRS-Chart/Options/fOptionsOther.pas b/CPRS-Chart/Options/fOptionsOther.pas new file mode 100644 index 0000000..b5eba1e --- /dev/null +++ b/CPRS-Chart/Options/fOptionsOther.pas @@ -0,0 +1,272 @@ +unit fOptionsOther; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ComCtrls, ORCtrls, ORFn, rOrders, uCore, ORDtTm; + +type + TfrmOptionsOther = class(TForm) + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + bvlBottom: TBevel; + stStart: TStaticText; + stStop: TStaticText; + dtStart: TORDateBox; + dtStop: TORDateBox; + lblMedsTab: TLabel; + lblTabDefault: TStaticText; + lblTab: TLabel; + cboTab: TORComboBox; + chkLastTab: TCheckBox; + Bevel1: TBevel; + lblEncAppts: TLabel; + stStartEncAppts: TStaticText; + txtTodayMinus: TStaticText; + txtEncStart: TCaptionEdit; + txtDaysMinus: TStaticText; + spnEncStart: TUpDown; + txtDaysPlus: TStaticText; + spnEncStop: TUpDown; + txtEncStop: TCaptionEdit; + txtTodayPlus: TStaticText; + stStopEncAppts: TStaticText; + Bevel2: TBevel; + btnEncDefaults: TButton; + procedure FormShow(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure dtStartExit(Sender: TObject); + procedure dtStopExit(Sender: TObject); + procedure dtStartChange(Sender: TObject); + procedure txtEncStartChange(Sender: TObject); + procedure txtEncStopChange(Sender: TObject); + procedure txtEncStartExit(Sender: TObject); + procedure txtEncStopExit(Sender: TObject); + procedure btnEncDefaultsClick(Sender: TObject); + private + { Private declarations } + FstartDt: TFMDateTime; + FstopDt: TFMDateTime; + FEncStartDays, FEncStopDays, FEncDefStartDays, FEncDefStopDays: integer; + //FDefaultEvent: string; + public + { Public declarations } + end; + +var + frmOptionsOther: TfrmOptionsOther; + +const + ENC_MAX_LIMIT = 999; + +procedure DialogOptionsOther(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +{$R *.DFM} + +uses + rOptions, uOptions, rCore, rSurgery, uConst, fMeds; + +procedure DialogOptionsOther(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsOther: TfrmOptionsOther; +begin + frmOptionsOther := TfrmOptionsOther.Create(Application); + actiontype := 0; + try + with frmOptionsOther do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsOther); + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsOther.Release; + end; +end; + +procedure TfrmOptionsOther.FormShow(Sender: TObject); +// displays defaults +// opening tab^use last tab^autosave seconds^verify note title +var + last: integer; + values, tab: string; +begin + cboTab.Items.Assign(rpcGetOtherTabs); + if (cboTab.Items.IndexOf('Surgery') > -1) and (not ShowSurgeryTab) then + cboTab.Items.Delete(cboTab.Items.IndexOf('Surgery')); + values := rpcGetOther; + tab := Piece(values, '^', 1); + last := strtointdef(Piece(values, '^', 2), 0); + cboTab.SelectByID(tab); + cboTab.Tag := strtointdef(tab, -1); + chkLastTab.Checked := last = 1; + chkLastTab.Tag := last; + cboTab.SetFocus; + rpcGetRangeForMeds(FstartDt, FstopDt); + if FstartDt > 1 then + dtStart.Text := FormatFMDateTime('mmm d, yyyy',FstartDt); + if FstopDt > 1 then + dtStop.Text := FormatFMDateTime('mmm d, yyyy', FstopDt); + rpcGetRangeForEncs(FEncDefStartDays, FEncDefStopDays, True); // True gets params settings above User/Service level. + if FEncDefStartDays < 1 then + FEncDefStartDays := 0; + if FEncDefStopDays < 1 then + FEncDefStopDays := 0; + rpcGetRangeForEncs(FEncStartDays, FEncStopDays, False); // False gets User/Service params. + if ((FEncStartDays < 0) and (FEncStartDays <> 0)) then + FEncStartDays := FEncDefStartDays; + txtEncStart.Text := IntToStr(FEncStartDays); + if ((FEncStopDays < 0) and (FEncStopDays <> 0)) then + FEncStopDays := FEncDefStopDays; + txtEncStop.Text := IntToStr(FEncStopDays); +end; + +procedure TfrmOptionsOther.btnOKClick(Sender: TObject); +// opening tab^use last tab^autosave seconds^verify note title +var + values, theVal: string; +begin + values := ''; + if cboTab.ItemIEN <> cboTab.Tag then + values := values + cboTab.ItemID; + values := values + '^'; + if chkLastTab.Checked then + if chkLastTab.Tag <> 1 then + values := values + '1'; + if not chkLastTab.Checked then + if chkLastTab.Tag <> 0 then + values := values + '0'; + values := values + '^^'; + rpcSetOther(values); + if (dtStop.FMDateTime > 0) and (dtStart.FMDateTime > 0) then + begin + if dtStop.FMDateTime < dtStart.FMDateTime then + begin + ShowMessage('The stop time can not prior to the start time.'); + dtStop.FMDateTime := FMToday; + dtStop.SetFocus; + Exit; + end; + theVal := dtStart.RelativeTime + ';' + dtStop.RelativeTime; + rpcPutRangeForMeds(theVal); + end; + if (dtStart.Text = '') and (dtStop.Text = '') then + rpcPutRangeForMeds(''); + rpcPutRangeForEncs(txtEncStart.Text, txtEncStop.Text); + if frmMeds <> nil then + frmMeds.RefreshMedLists; +end; + +procedure TfrmOptionsOther.FormCreate(Sender: TObject); +begin + FStartDT := 0; + FStopDT := 0; +end; + +procedure TfrmOptionsOther.dtStartExit(Sender: TObject); +begin + if dtStart.FMDateTime > FMToday then + begin + ShowMessage('Start time can not greater than today.'); + dtStart.FMDateTime := FMToday; + dtStart.SetFocus; + Exit; + end; +end; + +procedure TfrmOptionsOther.dtStopExit(Sender: TObject); +begin + if (dtStop.FMDateTime > 0) and (dtStart.FMDateTime > 0) then + if (dtStop.FMDateTime < dtStart.FMDateTime) then + begin + ShowMessage('Stop time can not prior to start time'); + dtStop.FMDateTime := FMToday; + dtStop.SetFocus; + Exit; + end; +end; + +procedure TfrmOptionsOther.dtStartChange(Sender: TObject); +begin + if (dtStart.FMDateTime > FMToday) then + begin + ShowMessage('Start time can not greater than today.'); + dtStart.FMDateTime := FMToday; + dtStart.SetFocus; + Exit; + end; +end; + +procedure TfrmOptionsOther.txtEncStartChange(Sender: TObject); +begin +with txtEncStart do + begin + if Text = '' then + Exit; + if Text = ' ' then + Text := '0'; + if StrToInt(Text) < 0 then + Text := '0'; + if StrToIntDef(Text, ENC_MAX_LIMIT) > ENC_MAX_LIMIT then + begin + Text := IntToStr(ENC_MAX_LIMIT); + Beep; + InfoBox('Number must be < ' + IntToStr(ENC_MAX_LIMIT), 'Warning', MB_OK or MB_ICONWARNING); + end; + end; +end; + +procedure TfrmOptionsOther.txtEncStopChange(Sender: TObject); +begin +with txtEncStop do + begin + if Text = '' then + Exit; + if Text = ' ' then + Text := '0'; + if StrToInt(Text) < 0 then + Text := '0'; + if StrToIntDef(Text, ENC_MAX_LIMIT) > ENC_MAX_LIMIT then + begin + Text := IntToStr(ENC_MAX_LIMIT); + Beep; + InfoBox('Number must be < ' + IntToStr(ENC_MAX_LIMIT), 'Warning', MB_OK or MB_ICONWARNING); + end; + end; +end; + +procedure TfrmOptionsOther.txtEncStartExit(Sender: TObject); +begin +with txtEncStart do + if Text = '' then + Text := '0'; +end; + +procedure TfrmOptionsOther.txtEncStopExit(Sender: TObject); +begin +with txtEncStart do + if Text = '' then + Text := '0'; +end; + +procedure TfrmOptionsOther.btnEncDefaultsClick(Sender: TObject); +begin +txtEncStart.Text := IntToStr(FEncDefStartDays); +txtEncStop.Text := IntToStr(FEncDefStopDays); +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsPatientSelection.dfm b/CPRS-Chart/Options/fOptionsPatientSelection.dfm new file mode 100644 index 0000000..90ebbbd --- /dev/null +++ b/CPRS-Chart/Options/fOptionsPatientSelection.dfm @@ -0,0 +1,617 @@ +object frmOptionsPatientSelection: TfrmOptionsPatientSelection + Left = 345 + Top = 133 + HelpContext = 9060 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Patient Selection Defaults' + ClientHeight = 413 + ClientWidth = 414 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblClinicDays: TLabel + Left = 179 + Top = 162 + Width = 101 + Height = 13 + Caption = 'Clinic for day of week' + end + object lblMonday: TLabel + Left = 179 + Top = 184 + Width = 41 + Height = 13 + Caption = 'Monday:' + end + object lblTuesday: TLabel + Left = 179 + Top = 213 + Width = 44 + Height = 13 + Caption = 'Tuesday:' + end + object lblWednesday: TLabel + Left = 179 + Top = 241 + Width = 60 + Height = 13 + Caption = 'Wednesday:' + end + object lblThursday: TLabel + Left = 179 + Top = 270 + Width = 47 + Height = 13 + Caption = 'Thursday:' + end + object lblFriday: TLabel + Left = 179 + Top = 298 + Width = 31 + Height = 13 + Caption = 'Friday:' + end + object lblSaturday: TLabel + Left = 179 + Top = 327 + Width = 45 + Height = 13 + Caption = 'Saturday:' + end + object lblSunday: TLabel + Left = 179 + Top = 355 + Width = 39 + Height = 13 + Caption = 'Sunday:' + end + object lblVisitStart: TLabel + Left = 20 + Top = 321 + Width = 25 + Height = 13 + Alignment = taRightJustify + Caption = 'Start:' + end + object lblVisitStop: TLabel + Left = 20 + Top = 352 + Width = 25 + Height = 13 + Alignment = taRightJustify + Caption = 'Stop:' + end + object lbWard: TLabel + Left = 179 + Top = 136 + Width = 29 + Height = 13 + Caption = 'Ward:' + end + object lblTeam: TLabel + Left = 179 + Top = 107 + Width = 51 + Height = 13 + Caption = 'Team/List:' + end + object lblTreating: TLabel + Left = 179 + Top = 77 + Width = 88 + Height = 13 + Caption = 'Treating Specialty:' + end + object lblProvider: TLabel + Left = 179 + Top = 50 + Width = 79 + Height = 13 + Caption = 'Primary Provider:' + end + object lblVisitDateRange: TMemo + Left = 20 + Top = 255 + Width = 133 + Height = 61 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Display patients that have ' + 'clinic appointments within ' + 'this date range.') + ReadOnly = True + TabOrder = 18 + end + object lblInfo: TMemo + Left = 8 + Top = 6 + Width = 393 + Height = 27 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Lines.Strings = ( + + 'The values on the right will be defaults for selecting patients ' + + 'depending on the list ' + + 'source selected. Combination uses the criteria defined using Sou' + + 'rce Combinations.') + ParentFont = False + ReadOnly = True + TabOrder = 19 + end + object pnlBottom: TPanel + Left = 0 + Top = 380 + Width = 414 + Height = 33 + HelpContext = 9060 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 17 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 414 + Height = 2 + Align = alTop + end + object btnOK: TButton + Left = 251 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9996 + Caption = 'OK' + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 331 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9997 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end + object cboProvider: TORComboBox + Left = 285 + Top = 48 + Width = 121 + Height = 21 + HelpContext = 9063 + Style = orcsDropDown + AutoSelect = True + Caption = 'Primary Provider' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 2 + MaxLength = 0 + Pieces = '2,3' + Sorted = True + SynonymChars = '<>' + TabOrder = 6 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + OnNeedData = cboProviderNeedData + end + object cboTreating: TORComboBox + Left = 285 + Top = 75 + Width = 121 + Height = 21 + HelpContext = 9064 + Style = orcsDropDown + AutoSelect = True + Caption = 'Treating Specialty' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 7 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + end + object cboTeam: TORComboBox + Left = 285 + Top = 104 + Width = 121 + Height = 21 + HelpContext = 9065 + Style = orcsDropDown + AutoSelect = True + Caption = 'Team/List' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 8 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + end + object cboWard: TORComboBox + Left = 285 + Top = 132 + Width = 121 + Height = 21 + HelpContext = 9066 + Style = orcsDropDown + AutoSelect = True + Caption = 'Ward' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 9 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + end + object cboMonday: TORComboBox + Left = 285 + Top = 181 + Width = 121 + Height = 21 + HelpContext = 9067 + Style = orcsDropDown + AutoSelect = True + Caption = 'Monday' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 10 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + OnNeedData = cboMondayNeedData + end + object cboTuesday: TORComboBox + Left = 285 + Top = 210 + Width = 121 + Height = 21 + HelpContext = 9067 + Style = orcsDropDown + AutoSelect = True + Caption = 'Tuesday' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 11 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + OnNeedData = cboTuesdayNeedData + end + object cboWednesday: TORComboBox + Left = 285 + Top = 238 + Width = 121 + Height = 21 + HelpContext = 9067 + Style = orcsDropDown + AutoSelect = True + Caption = 'Wednesday' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 12 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + OnNeedData = cboWednesdayNeedData + end + object cboThursday: TORComboBox + Left = 285 + Top = 267 + Width = 121 + Height = 21 + HelpContext = 9067 + Style = orcsDropDown + AutoSelect = True + Caption = 'Thursday' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 13 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + OnNeedData = cboThursdayNeedData + end + object cboFriday: TORComboBox + Left = 285 + Top = 295 + Width = 121 + Height = 21 + HelpContext = 9067 + Style = orcsDropDown + AutoSelect = True + Caption = 'Friday' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 14 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + OnNeedData = cboFridayNeedData + end + object cboSaturday: TORComboBox + Left = 285 + Top = 324 + Width = 121 + Height = 21 + HelpContext = 9067 + Style = orcsDropDown + AutoSelect = True + Caption = 'Saturday' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 15 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + OnNeedData = cboSaturdayNeedData + end + object cboSunday: TORComboBox + Left = 285 + Top = 352 + Width = 121 + Height = 21 + HelpContext = 9067 + Style = orcsDropDown + AutoSelect = True + Caption = 'Sunday' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 16 + OnExit = cboProviderExit + OnKeyUp = cboProviderKeyUp + OnNeedData = cboSundayNeedData + end + object txtVisitStart: TCaptionEdit + Tag = -180 + Left = 49 + Top = 319 + Width = 79 + Height = 21 + HelpContext = 9068 + TabOrder = 2 + Text = '0' + OnExit = txtVisitStartExit + OnKeyPress = txtVisitStartKeyPress + OnKeyUp = txtVisitStartKeyUp + Caption = 'Start' + end + object txtVisitStop: TCaptionEdit + Tag = 30 + Left = 48 + Top = 348 + Width = 79 + Height = 21 + HelpContext = 9069 + TabOrder = 4 + Text = '0' + OnExit = txtVisitStopExit + OnKeyPress = txtVisitStopKeyPress + OnKeyUp = txtVisitStopKeyUp + Caption = 'Stop' + end + object spnVisitStart: TUpDown + Tag = -180 + Left = 128 + Top = 319 + Width = 16 + Height = 21 + HelpContext = 9068 + Associate = txtVisitStart + Min = -999 + Max = 999 + Position = 0 + TabOrder = 3 + Thousands = False + Wrap = False + OnClick = spnVisitStartClick + end + object spnVisitStop: TUpDown + Tag = 30 + Left = 127 + Top = 348 + Width = 16 + Height = 21 + HelpContext = 9069 + Associate = txtVisitStop + Min = -999 + Max = 999 + Position = 0 + TabOrder = 5 + Thousands = False + Wrap = False + OnClick = spnVisitStopClick + end + object radListSource: TRadioGroup + Left = 16 + Top = 38 + Width = 145 + Height = 105 + HelpContext = 9061 + Caption = 'List Source ' + ItemIndex = 0 + Items.Strings = ( + 'Primary &Provider' + 'Treating &Specialty' + 'Team/&List' + '&Ward' + '&Clinic' + 'C&ombination') + TabOrder = 0 + OnClick = radListSourceClick + end + object grpSortOrder: TGroupBox + Left = 16 + Top = 152 + Width = 145 + Height = 94 + HelpContext = 9062 + Caption = 'Sort Order ' + TabOrder = 1 + object radAlphabetical: TRadioButton + Left = 8 + Top = 16 + Width = 113 + Height = 17 + HelpContext = 9062 + Caption = '&Alphabetical' + TabOrder = 0 + end + object radRoomBed: TRadioButton + Left = 8 + Top = 31 + Width = 113 + Height = 17 + HelpContext = 9062 + Caption = '&Room/Bed' + TabOrder = 1 + end + object radAppointmentDate: TRadioButton + Left = 8 + Top = 46 + Width = 113 + Height = 17 + HelpContext = 9062 + Caption = 'Appointment &Date' + TabOrder = 2 + end + object radTerminalDigit: TRadioButton + Left = 8 + Top = 60 + Width = 113 + Height = 17 + HelpContext = 9062 + Caption = '&Terminal Digit' + TabOrder = 3 + end + object radSource: TRadioButton + Left = 8 + Top = 75 + Width = 113 + Height = 17 + HelpContext = 9062 + Caption = 'So&urce' + TabOrder = 4 + end + end +end diff --git a/CPRS-Chart/Options/fOptionsPatientSelection.pas b/CPRS-Chart/Options/fOptionsPatientSelection.pas new file mode 100644 index 0000000..ff94cae --- /dev/null +++ b/CPRS-Chart/Options/fOptionsPatientSelection.pas @@ -0,0 +1,501 @@ +unit fOptionsPatientSelection; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ORCtrls, OrFn, ComCtrls; + +type + TfrmOptionsPatientSelection = class(TForm) + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + cboProvider: TORComboBox; + cboTreating: TORComboBox; + cboTeam: TORComboBox; + cboWard: TORComboBox; + cboMonday: TORComboBox; + cboTuesday: TORComboBox; + cboWednesday: TORComboBox; + cboThursday: TORComboBox; + cboFriday: TORComboBox; + cboSaturday: TORComboBox; + cboSunday: TORComboBox; + txtVisitStart: TCaptionEdit; + txtVisitStop: TCaptionEdit; + spnVisitStart: TUpDown; + spnVisitStop: TUpDown; + lblClinicDays: TLabel; + lblMonday: TLabel; + lblTuesday: TLabel; + lblWednesday: TLabel; + lblThursday: TLabel; + lblFriday: TLabel; + lblSaturday: TLabel; + lblSunday: TLabel; + lblVisitStart: TLabel; + lblVisitStop: TLabel; + lblVisitDateRange: TMemo; + lblInfo: TMemo; + lbWard: TLabel; + lblTeam: TLabel; + lblTreating: TLabel; + lblProvider: TLabel; + radListSource: TRadioGroup; + grpSortOrder: TGroupBox; + radAlphabetical: TRadioButton; + radRoomBed: TRadioButton; + radAppointmentDate: TRadioButton; + radTerminalDigit: TRadioButton; + radSource: TRadioButton; + bvlBottom: TBevel; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure spnVisitStartClick(Sender: TObject; Button: TUDBtnType); + procedure spnVisitStopClick(Sender: TObject; Button: TUDBtnType); + procedure btnOKClick(Sender: TObject); + procedure txtVisitStartExit(Sender: TObject); + procedure txtVisitStopExit(Sender: TObject); + procedure txtVisitStartKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure txtVisitStopKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure cboProviderExit(Sender: TObject); + procedure radListSourceClick(Sender: TObject); + procedure cboMondayNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboTuesdayNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboWednesdayNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + procedure cboThursdayNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboFridayNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboSaturdayNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboSundayNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboProviderNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure txtVisitStartKeyPress(Sender: TObject; var Key: Char); + procedure txtVisitStopKeyPress(Sender: TObject; var Key: Char); + procedure cboProviderKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + { Private declarations } + FStartEntered: boolean; + FStopEntered: boolean; + FProviderSpecial: boolean; // used to avoid duplicate action on cboProviderKeyUp + public + { Public declarations } + procedure NextControl(Key: Char); + end; + +var + frmOptionsPatientSelection: TfrmOptionsPatientSelection; + +procedure DialogOptionsPatientSelection(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +uses rOptions, uOptions, rCore; + +{$R *.DFM} + +procedure DialogOptionsPatientSelection(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsPatientSelection: TfrmOptionsPatientSelection; +begin + frmOptionsPatientSelection := TfrmOptionsPatientSelection.Create(Application); + actiontype := 0; + try + with frmOptionsPatientSelection do + begin + FProviderSpecial := false; + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsPatientSelection); + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsPatientSelection.Release; + end; +end; + +procedure TfrmOptionsPatientSelection.FormCreate(Sender: TObject); +begin + FStartEntered := false; + FStopEntered := false; + cboMonday.InitLongList(''); + cboTuesday.InitLongList(''); + cboWednesday.InitLongList(''); + cboThursday.InitLongList(''); + cboFriday.InitLongList(''); + cboSaturday.InitLongList(''); + cboSunday.InitLongList(''); + cboProvider.InitLongList(''); + ListSpecialtyAll(cboTreating.Items); + ListTeamAll(cboTeam.Items); + ListWardAll(cboWard.Items); +end; + +procedure TfrmOptionsPatientSelection.FormShow(Sender: TObject); +var + visitstart, visitstop: integer; + mon, tues, wed, thurs, fri, sat, sun: integer; + visitstartdef, visitstopdef: integer; + defprovider, deftreating, deflist, defward: integer; +begin + rpcGetClinicUserDays(visitstart, visitstop); + visitstartdef := visitstart; + visitstopdef := visitstop; + txtVisitStart.Tag := visitstart - 1; + txtVisitStop.Tag := visitstop - 1; + spnVisitStart.Tag := visitstartdef; + spnVisitStop.Tag := visitstopdef; + spnVisitStartClick(self, btNext); + spnVisitStopClick(self, btNext); + + rpcGetClinicDefaults(mon, tues, wed, thurs, fri, sat, sun); + cboMonday.SelectByIEN(mon); + if cboMonday.Text = '' then + cboMonday.SetExactByIEN(mon, ExternalName(mon, 44)); + cboTuesday.SelectByIEN(tues); + if cboTuesday.Text = '' then + cboTuesday.SetExactByIEN(tues, ExternalName(tues, 44)); + cboWednesday.SelectByIEN(wed); + if cboWednesday.Text = '' then + cboWednesday.SetExactByIEN(wed, ExternalName(wed, 44)); + cboThursday.SelectByIEN(thurs); + if cboThursday.Text = '' then + cboThursday.SetExactByIEN(thurs, ExternalName(thurs, 44)); + cboFriday.SelectByIEN(fri); + if cboFriday.Text = '' then + cboFriday.SetExactByIEN(fri, ExternalName(fri, 44)); + cboSaturday.SelectByIEN(sat); + if cboSaturday.Text = '' then + cboSaturday.SetExactByIEN(sat, ExternalName(sat, 44)); + cboSunday.SelectByIEN(sun); + if cboSunday.Text = '' then + cboSunday.SetExactByIEN(sun, ExternalName(sun, 44)); + + with radListSource do + case DfltPtListSrc of + 'P': ItemIndex := 0; + 'S': ItemIndex := 1; + 'T': ItemIndex := 2; + 'W': ItemIndex := 3; + 'C': ItemIndex := 4; + 'M': ItemIndex := 5; + end; + radListSourceClick(self); + + case rpcGetListOrder of + 'A': radAlphabetical.Checked := true; + 'R': + begin + if radRoomBed.Enabled then + radRoomBed.Checked := true + else + radAlphabetical.Checked := True; + end; + 'P': + begin + if radAppointmentDate.Enabled then + radAppointmentDate.Checked := true + else + radAlphabetical.Checked := True; + end; + 'T': radTerminalDigit.Checked := true; + 'S': radSource.Checked := true; + else + radAlphabetical.Checked := true; + end; + + rpcGetListSourceDefaults(defprovider, deftreating, deflist, defward); + cboProvider.SelectByIEN(defprovider); + cboTreating.SelectByIEN(deftreating); + cboTeam.SelectByIEN(deflist); + cboWard.SelectByIEN(defward); + + radListSource.SetFocus; +end; + +procedure TfrmOptionsPatientSelection.spnVisitStartClick(Sender: TObject; + Button: TUDBtnType); +var + tagnum: integer; +begin + with txtVisitStart do + begin + if FStartEntered then + begin + if Hint = '' then Hint := 'T'; + tagnum := RelativeDate(Hint); + if tagnum = INVALID_DAYS then + begin + Text := Hint; + beep; + InfoBox('Start Date entry was invalid', 'Warning', MB_OK or MB_ICONWARNING); + ShowDisplay(txtVisitStart); + FStartEntered := false; + exit; + end + else + begin + DateLimits(SELECTION_LIMIT, tagnum); + if tagnum <> INVALID_DAYS then + Tag := tagnum; + end; + end; + SetFocus; + if Button = btNext then tagnum := Tag + 1 + else tagnum := Tag - 1; + Text := Hint; + DateLimits(SELECTION_LIMIT, tagnum); + if tagnum <> INVALID_DAYS then + Tag := tagnum; + ShowDisplay(txtVisitStart); + end; + FStartEntered := false; +end; + +procedure TfrmOptionsPatientSelection.spnVisitStopClick(Sender: TObject; + Button: TUDBtnType); +var + tagnum: integer; +begin + with txtVisitStop do + begin + if FStopEntered then + begin + if Hint = '' then Hint := 'T'; + tagnum := RelativeDate(Hint); + if tagnum = INVALID_DAYS then + begin + Text := Hint; + beep; + InfoBox('Stop Date entry was invalid', 'Warning', MB_OK or MB_ICONWARNING); + ShowDisplay(txtVisitStop); + FStopEntered := false; + exit; + end + else + begin + DateLimits(SELECTION_LIMIT, tagnum); + Tag := tagnum; + end; + end; + SetFocus; + if Button = btNext then tagnum := Tag + 1 + else tagnum := Tag - 1; + Text := Hint; + DateLimits(SELECTION_LIMIT, tagnum); + Tag := tagnum; + ShowDisplay(txtVisitStop); + end; + FStopEntered := false; +end; + +procedure TfrmOptionsPatientSelection.btnOKClick(Sender: TObject); +var + StartDays, StopDays, mon, tues, wed, thurs, fri, sat, sun: integer; + PLSource, PLSort: Char; + prov, spec, team, ward: integer; +begin + StartDays := txtVisitStart.Tag; + StopDays := txtVisitStop.Tag; + mon := cboMonday.ItemIEN; + tues := cboTuesday.ItemIEN; + wed := cboWednesday.ItemIEN; + thurs := cboThursday.ItemIEN; + fri := cboFriday.ItemIEN; + sat := cboSaturday.ItemIEN; + sun := cboSunday.ItemIEN; + rpcSetClinicDefaults(StartDays, StopDays, mon, tues, wed, thurs, fri, sat, sun); + case radListSource.ItemIndex of + 0: PLSource := 'P'; + 1: PLSource := 'S'; + 2: PLSource := 'T'; + 3: PLSource := 'W'; + 4: PLSource := 'C'; + 5: PLSource := 'M'; + else + PLSource := 'P'; + end; + if radAlphabetical.Checked then PLSort := 'A' + else if radRoomBed.Checked then PLSort := 'R' + else if radAppointmentDate.Checked then PLSort := 'P' + else if radSource.Checked then PLSort := 'S' + else PLSort := 'T'; + prov := cboProvider.ItemIEN; + spec := cboTreating.ItemIEN; + team := cboTeam.ItemIEN; + ward := cboWard.ItemIEN; + rpcSetPtListDefaults(PLSource, PLSort, prov, spec, team, ward); + ResetDfltSort; +end; + +procedure TfrmOptionsPatientSelection.txtVisitStartExit(Sender: TObject); +begin + with txtVisitStart do + if Text = '' then + begin + Text := 'T-1'; + Hint := 'T-1'; + spnVisitStartClick(self, btNext); + end; + TextExit(txtVisitStart, FStartEntered, SELECTION_LIMIT); +end; + +procedure TfrmOptionsPatientSelection.txtVisitStopExit(Sender: TObject); +begin + with txtVisitStop do + if Text = '' then + begin + Text := 'T-1'; + Hint := 'T-1'; + spnVisitStopClick(self, btNext); + end; + TextExit(txtVisitStop, FStopEntered, SELECTION_LIMIT); +end; + +procedure TfrmOptionsPatientSelection.txtVisitStartKeyUp(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + txtVisitStart.Hint := txtVisitStart.Text; // put text in hint since text not available to spin + FStartEntered := true; +end; + +procedure TfrmOptionsPatientSelection.txtVisitStopKeyUp(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + txtVisitStop.Hint := txtVisitStop.Text; // put text in hint since text not available to spin + FStopEntered := true; +end; + +procedure TfrmOptionsPatientSelection.cboProviderExit(Sender: TObject); +begin + with (Sender as TORComboBox) do + if ItemIndex < 0 then + Text := ''; +end; + +procedure TfrmOptionsPatientSelection.radListSourceClick(Sender: TObject); +begin + if radListSource.ItemIndex = 4 then + begin + if radRoomBed.Checked then + radAlphabetical.Checked := true; + radRoomBed.Enabled := false; + radAppointmentDate.Enabled := true; + end + else + begin + if radAppointmentDate.Checked then + radAlphabetical.Checked := true; + radAppointmentDate.Enabled := false; + radRoomBed.Enabled := true; + end; + if radListSource.ItemIndex = 5 then + begin + radSource.Enabled := true; + radAppointmentDate.Enabled := true; + radRoomBed.Enabled := false; + end + else + radSource.Enabled := false; +end; + +procedure TfrmOptionsPatientSelection.cboMondayNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboMonday.ForDataUse(SubSetOfClinics(StartFrom, Direction)); +end; + +procedure TfrmOptionsPatientSelection.cboTuesdayNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboTuesday.ForDataUse(SubSetOfClinics(StartFrom, Direction)); +end; + +procedure TfrmOptionsPatientSelection.cboWednesdayNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboWednesday.ForDataUse(SubSetOfClinics(StartFrom, Direction)); +end; + +procedure TfrmOptionsPatientSelection.cboThursdayNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboThursday.ForDataUse(SubSetOfClinics(StartFrom, Direction)); +end; + +procedure TfrmOptionsPatientSelection.cboFridayNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboFriday.ForDataUse(SubSetOfClinics(StartFrom, Direction)); +end; + +procedure TfrmOptionsPatientSelection.cboSaturdayNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboSaturday.ForDataUse(SubSetOfClinics(StartFrom, Direction)); +end; + +procedure TfrmOptionsPatientSelection.cboSundayNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboSunday.ForDataUse(SubSetOfClinics(StartFrom, Direction)); +end; + +procedure TfrmOptionsPatientSelection.cboProviderNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboProvider.ForDataUse(SubSetOfProviders(StartFrom, Direction)); +end; + +procedure TfrmOptionsPatientSelection.NextControl(Key: Char); +begin + if Key = #13 then Perform(WM_NextDlgCtl, 0, 0); +end; + +procedure TfrmOptionsPatientSelection.txtVisitStartKeyPress( + Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + FStartEntered := true; + Perform(WM_NextDlgCtl, 0, 0); + end; +end; + +procedure TfrmOptionsPatientSelection.txtVisitStopKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + FStopEntered := true; + FProviderSpecial := true; // used to avoid duplicate action on cboProviderKeyUp + Perform(WM_NextDlgCtl, 0, 0); + end; +end; + +procedure TfrmOptionsPatientSelection.cboProviderKeyUp(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if not FProviderSpecial then NextControl(Char(Key)); + FProviderSpecial := false; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsPrimaryList.dfm b/CPRS-Chart/Options/fOptionsPrimaryList.dfm new file mode 100644 index 0000000..f0ede39 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsPrimaryList.dfm @@ -0,0 +1,79 @@ +object frmOptionsPrimaryList: TfrmOptionsPrimaryList + Left = 714 + Top = 143 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Primary List' + ClientHeight = 225 + ClientWidth = 175 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object lblPrimaryList: TLabel + Left = 10 + Top = 8 + Width = 145 + Height = 49 + AutoSize = False + Caption = 'Select the list you wish to be your primary personal list.' + WordWrap = True + end + object pnlBottom: TPanel + Left = 0 + Top = 191 + Width = 175 + Height = 34 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 1 + object btnOK: TButton + Left = 11 + Top = 7 + Width = 75 + Height = 22 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + end + object btnCancel: TButton + Left = 91 + Top = 7 + Width = 75 + Height = 22 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end + object cboPrimary: TORComboBox + Left = 10 + Top = 64 + Width = 153 + Height = 113 + Style = orcsSimple + AutoSelect = True + Caption = 'Select the list you wish to be your primary personal list.' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + end +end diff --git a/CPRS-Chart/Options/fOptionsPrimaryList.pas b/CPRS-Chart/Options/fOptionsPrimaryList.pas new file mode 100644 index 0000000..cfe24d1 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsPrimaryList.pas @@ -0,0 +1,51 @@ +unit fOptionsPrimaryList; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ORCtrls, StdCtrls, ORFn, ExtCtrls; + +type + TfrmOptionsPrimaryList = class(TForm) + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + lblPrimaryList: TLabel; + cboPrimary: TORComboBox; + private + { Private declarations } + public + { Public declarations } + end; + +procedure DialogOptionsPrimaryList(fontsize: integer; var actiontype: Integer); + +var + frmOptionsPrimaryList: TfrmOptionsPrimaryList; + +implementation + +{$R *.DFM} + +procedure DialogOptionsPrimaryList(fontsize: integer; var actiontype: Integer); +// create the form and make in modal, return an action +var + frmOptionsPrimaryList: TfrmOptionsPrimaryList; +begin + frmOptionsPrimaryList := TfrmOptionsPrimaryList.Create(Application); + actiontype := 0; + try + with frmOptionsPrimaryList do + begin + Position := poScreenCenter; + Font.Size := MainFontSize; + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsPrimaryList.Release; + end; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsReminders.dfm b/CPRS-Chart/Options/fOptionsReminders.dfm new file mode 100644 index 0000000..388d268 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsReminders.dfm @@ -0,0 +1,187 @@ +object frmOptionsReminders: TfrmOptionsReminders + Left = 693 + Top = 17 + HelpContext = 9020 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Clinical Reminders on Cover Sheet' + ClientHeight = 323 + ClientWidth = 407 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object lblDisplayed: TLabel + Left = 209 + Top = 8 + Width = 129 + Height = 13 + Caption = 'Reminders being displayed:' + end + object lblNotDisplayed: TLabel + Left = 8 + Top = 8 + Width = 147 + Height = 13 + Caption = 'Reminders not being displayed:' + end + object pnlBottom: TPanel + Left = 0 + Top = 290 + Width = 407 + Height = 33 + HelpContext = 9020 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 7 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 407 + Height = 2 + Align = alTop + end + object btnOK: TButton + Left = 247 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9996 + Caption = 'OK' + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 327 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9997 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end + object lstDisplayed: TORListBox + Left = 209 + Top = 25 + Width = 160 + Height = 217 + HelpContext = 9025 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + TabOrder = 3 + OnClick = lstDisplayedChange + OnDblClick = btnDeleteClick + Caption = 'Reminders being displayed:' + ItemTipColor = clWindow + LongList = False + Pieces = '3' + OnChange = lstDisplayedChange + end + object lstNotDisplayed: TORListBox + Left = 8 + Top = 25 + Width = 160 + Height = 217 + HelpContext = 9026 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + Sorted = True + TabOrder = 0 + OnClick = lstNotDisplayedChange + OnDblClick = btnAddClick + Caption = 'Reminders not being displayed:' + ItemTipColor = clWindow + LongList = False + Pieces = '3' + OnChange = lstNotDisplayedChange + end + object btnUp: TButton + Left = 378 + Top = 94 + Width = 22 + Height = 22 + HelpContext = 9021 + Caption = '^' + TabOrder = 4 + OnClick = btnUpClick + end + object btnDown: TButton + Left = 378 + Top = 142 + Width = 22 + Height = 22 + HelpContext = 9022 + Caption = 'v' + TabOrder = 6 + OnClick = btnDownClick + end + object btnDelete: TButton + Left = 178 + Top = 181 + Width = 22 + Height = 22 + HelpContext = 9023 + Caption = '<' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = btnDeleteClick + end + object btnAdd: TButton + Left = 178 + Top = 70 + Width = 22 + Height = 22 + HelpContext = 9024 + Caption = '>' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = btnAddClick + end + object radSort: TRadioGroup + Left = 209 + Top = 246 + Width = 192 + Height = 37 + Caption = 'Sort by ' + Columns = 2 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemIndex = 0 + Items.Strings = ( + '&Display Order' + '&Alphabetical') + ParentFont = False + TabOrder = 5 + OnClick = radSortClick + end +end diff --git a/CPRS-Chart/Options/fOptionsReminders.pas b/CPRS-Chart/Options/fOptionsReminders.pas new file mode 100644 index 0000000..2937cc0 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsReminders.pas @@ -0,0 +1,299 @@ +unit fOptionsReminders; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ORCtrls, OrFn; + +type + TfrmOptionsReminders = class(TForm) + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + lstDisplayed: TORListBox; + lstNotDisplayed: TORListBox; + btnUp: TButton; + btnDown: TButton; + btnDelete: TButton; + btnAdd: TButton; + lblDisplayed: TLabel; + lblNotDisplayed: TLabel; + bvlBottom: TBevel; + radSort: TRadioGroup; + procedure FormCreate(Sender: TObject); + procedure lstDisplayedChange(Sender: TObject); + procedure lstNotDisplayedChange(Sender: TObject); + procedure btnUpClick(Sender: TObject); + procedure btnDownClick(Sender: TObject); + procedure btnDeleteClick(Sender: TObject); + procedure btnAddClick(Sender: TObject); + function GetFirstSelection(aList: TORListBox): integer; + procedure SetItem(aList: TORListBox; index: integer); + procedure MoveSelected(aList: TORListBox; items: TStrings); + procedure btnOKClick(Sender: TObject); + procedure radSortClick(Sender: TObject); + private + { Private declarations } + procedure CheckEnable; + public + { Public declarations } + end; + +var + frmOptionsReminders: TfrmOptionsReminders; + +procedure DialogOptionsReminders(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +uses rOptions, fRemCoverSheet, rReminders; + +{$R *.DFM} + +procedure DialogOptionsReminders(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsReminders: TfrmOptionsReminders; +begin + if NewRemCoverSheetListActive then + EditCoverSheetReminderList(TRUE) + else + begin + frmOptionsReminders := TfrmOptionsReminders.Create(Application); + actiontype := 0; + try + with frmOptionsReminders do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsReminders); + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsReminders.Release; + end; + end; +end; + +procedure TfrmOptionsReminders.FormCreate(Sender: TObject); +var + i: integer; + biglist, userlist: TStringList; +begin + biglist := TStringList.Create; + userlist := TStringList.Create; + try + rpcGetReminders(biglist); + for i := 0 to biglist.Count - 1 do + if strtointdef(Piece(biglist[i], '^', 2), 0) > 0 then + userlist.Add(biglist[i]) + else + lstNotDisplayed.Items.Add(biglist[i]); + SortByPiece(userlist, '^', 2); + for i := 0 to userlist.Count - 1 do + lstDisplayed.Items.Add(userlist[i]); + finally + biglist.free; + userlist.free; + end; + CheckEnable; +end; + +procedure TfrmOptionsReminders.CheckEnable; +// allow buttons to be enabled or not depending on selections +begin + with lstDisplayed do + begin + if Items.Count > 0 then + begin + if SelCount > 0 then + begin + btnUp.Enabled := (SelCount > 0) + and (not Selected[0]) + and (radSort.ItemIndex = 0); + btnDown.Enabled := (SelCount > 0) + and (not Selected[Items.Count - 1]) + and (radSort.ItemIndex = 0); + btnDelete.Enabled := true; + end + else + begin + btnUp.Enabled := false; + btnDown.Enabled := false; + btnDelete.Enabled := false; + end; + end + else + begin + btnUp.Enabled := false; + btnDown.Enabled := false; + btnDelete.Enabled := false; + end; + end; + with lstNotDisplayed do + begin + btnAdd.Enabled := SelCount > 0; + end; +end; + +procedure TfrmOptionsReminders.lstDisplayedChange(Sender: TObject); +begin + CheckEnable; +end; + +procedure TfrmOptionsReminders.lstNotDisplayedChange(Sender: TObject); +begin + CheckEnable; +end; + +procedure TfrmOptionsReminders.btnUpClick(Sender: TObject); +var + newindex, i: integer; +begin + with lstDisplayed do + begin + i := 0; + while i < Items.Count do + begin + if Selected[i] then + begin + newindex := i - 1; + Items.Move(i, newindex); + Selected[newindex] := true; + end; + inc(i); + end; + end; + lstDisplayedChange(self); +end; + +procedure TfrmOptionsReminders.btnDownClick(Sender: TObject); +var + newindex, i: integer; +begin + with lstDisplayed do + begin + i := Items.Count - 1; + while i > -1 do + begin + if Selected[i] then + begin + newindex := i + 1; + Items.Move(i, newindex); + Selected[newindex] := true; + end; + dec(i); + end; + end; + lstDisplayedChange(self); +end; + +procedure TfrmOptionsReminders.btnDeleteClick(Sender: TObject); +var + index: integer; +begin + index := GetFirstSelection(lstDisplayed); + MoveSelected(lstDisplayed, lstNotDisplayed.Items); + SetItem(lstDisplayed, index); + CheckEnable; +end; + +procedure TfrmOptionsReminders.btnAddClick(Sender: TObject); +var + index: integer; +begin + index := GetFirstSelection(lstNotDisplayed); + MoveSelected(lstNotDisplayed, lstDisplayed.Items); + SetItem(lstNotDisplayed, index); + if radSort.ItemIndex = 1 then radSortClick(self); + CheckEnable; +end; + +function TfrmOptionsReminders.GetFirstSelection(aList: TORListBox): integer; +begin + for result := 0 to aList.Items.Count - 1 do + if aList.Selected[result] then exit; + result := LB_ERR; +end; + +procedure TfrmOptionsReminders.SetItem(aList: TORListBox; index: integer); +var + maxindex: integer; +begin + with aList do + begin + SetFocus; + maxindex := aList.Items.Count - 1; + if Index = LB_ERR then + Index := 0 + else if Index > maxindex then Index := maxindex; + Selected[index] := true; + end; + CheckEnable; +end; + +procedure TfrmOptionsReminders.MoveSelected(aList: TORListBox; Items: TStrings); +var + i: integer; +begin + for i := aList.Items.Count - 1 downto 0 do + begin + if aList.Selected[i] then + begin + Items.AddObject(aList.Items[i], aList.Items.Objects[i]); + aList.Items.Delete(i); + end; + end; +end; + +procedure TfrmOptionsReminders.btnOKClick(Sender: TObject); +var + i: integer; + values: string; + aList: TStringList; +begin + aList := TStringList.Create; + try + with lstDisplayed do + for i := 0 to Items.Count - 1 do + begin + values := inttostr(i + 1) + '^' + Piece(Items[i], '^', 1); + aList.Add(values); + end; + rpcSetReminders(aList); + finally + aList.free; + end; +end; + +procedure TfrmOptionsReminders.radSortClick(Sender: TObject); +var + i: integer; + userlist: TStringList; +begin + userlist := TStringList.Create; + try + for i := 0 to lstDisplayed.Items.Count - 1 do + userlist.Add(lstDisplayed.Items[i]); + case radSort.ItemIndex of + 0: SortByPiece(userlist, '^', 2); + else SortByPiece(userlist, '^', 3); + end; + lstDisplayed.Items.Clear; + for i := 0 to userlist.Count - 1 do + lstDisplayed.Items.Add(userlist[i]); + finally + userlist.free; + end; + CheckEnable; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsReportsCustom.dfm b/CPRS-Chart/Options/fOptionsReportsCustom.dfm new file mode 100644 index 0000000..0ff2220 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsReportsCustom.dfm @@ -0,0 +1,175 @@ +object frmOptionsReportsCustom: TfrmOptionsReportsCustom + Left = 414 + Top = 329 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Individual CPRS Report Settings' + ClientHeight = 383 + ClientWidth = 503 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Bevel3: TBevel + Left = 0 + Top = 352 + Width = 503 + Height = 2 + Align = alBottom + end + object Panel1: TPanel + Left = 0 + Top = 354 + Width = 503 + Height = 29 + Align = alBottom + TabOrder = 1 + object btnApply: TButton + Left = 432 + Top = 4 + Width = 50 + Height = 22 + Hint = 'Click to save new settings' + Caption = 'Apply' + Enabled = False + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = btnApplyClick + end + object btnCancel: TButton + Left = 368 + Top = 4 + Width = 50 + Height = 22 + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = btnCancelClick + end + object btnOK: TButton + Left = 304 + Top = 4 + Width = 51 + Height = 22 + Caption = 'OK' + TabOrder = 0 + OnClick = btnOKClick + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 503 + Height = 353 + Align = alTop + TabOrder = 0 + object grdReport: TCaptionStringGrid + Left = 1 + Top = 73 + Width = 501 + Height = 272 + Align = alTop + ColCount = 4 + DefaultRowHeight = 20 + FixedCols = 0 + RowCount = 16 + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goTabs] + ScrollBars = ssVertical + TabOrder = 5 + OnDrawCell = grdReportDrawCell + OnKeyDown = grdReportKeyDown + OnKeyPress = grdReportKeyPress + OnMouseDown = grdReportMouseDown + Caption = 'Report Grid' + ColWidths = ( + 219 + 97 + 89 + 71) + end + object edtMax: TCaptionEdit + Left = 264 + Top = 328 + Width = 89 + Height = 20 + BorderStyle = bsNone + TabOrder = 1 + Visible = False + OnExit = edtMaxExit + OnKeyPress = edtMaxKeyPress + end + object odbStop: TORDateBox + Left = 136 + Top = 328 + Width = 113 + Height = 21 + TabOrder = 3 + Visible = False + OnExit = odbStopExit + OnKeyPress = odbStopKeyPress + DateOnly = True + RequireTime = False + Caption = 'Stop Date' + end + object odbStart: TORDateBox + Left = 8 + Top = 328 + Width = 113 + Height = 21 + TabOrder = 2 + Visible = False + OnExit = odbStartExit + OnKeyPress = odbStartKeyPress + DateOnly = True + RequireTime = False + Caption = 'Start Date' + end + object odbTool: TORDateBox + Left = 360 + Top = 328 + Width = 121 + Height = 21 + TabOrder = 4 + Visible = False + DateOnly = True + RequireTime = False + Caption = 'Date' + end + object Panel3: TPanel + Left = 1 + Top = 1 + Width = 501 + Height = 72 + Align = alTop + TabOrder = 0 + object Label1: TLabel + Left = 16 + Top = 8 + Width = 265 + Height = 13 + Caption = 'Type the first few letters of the report you are looking for:' + end + object edtSearch: TCaptionEdit + Left = 24 + Top = 32 + Width = 433 + Height = 21 + TabOrder = 0 + OnChange = edtSearchChange + OnKeyPress = edtSearchKeyPress + Caption = 'Type the first few letters of the report you are looking for:' + end + end + end +end diff --git a/CPRS-Chart/Options/fOptionsReportsCustom.pas b/CPRS-Chart/Options/fOptionsReportsCustom.pas new file mode 100644 index 0000000..2b4ed80 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsReportsCustom.pas @@ -0,0 +1,664 @@ +unit fOptionsReportsCustom; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, Spin, ORCtrls, fOptions, ComCtrls, ORFn, ORNet, Grids, uConst, + ORDtTm, rCore; + +type + TfrmOptionsReportsCustom = class(TForm) + Panel1: TPanel; + Bevel3: TBevel; + btnApply: TButton; + btnCancel: TButton; + Panel2: TPanel; + grdReport: TCaptionStringGrid; + edtMax: TCaptionEdit; + odbStop: TORDateBox; + odbStart: TORDateBox; + odbTool: TORDateBox; + btnOK: TButton; + Panel3: TPanel; + edtSearch: TCaptionEdit; + Label1: TLabel; + function ValFor(ACol, ARow: Integer): string; + procedure FormCreate(Sender: TObject); + procedure grdReportMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure grdReportKeyPress(Sender: TObject; var Key: Char); + procedure grdReportDrawCell(Sender: TObject; ACol, ARow: Integer; + Rect: TRect; State: TGridDrawState); + procedure UMDelayEvent(var Message: TMessage); Message UM_DELAYEVENT; + procedure edtMaxExit(Sender: TObject); + procedure btnApplyClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure odbStartExit(Sender: TObject); + procedure odbStopExit(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure odbStartKeyPress(Sender: TObject; var Key: Char); + procedure odbStopKeyPress(Sender: TObject; var Key: Char); + procedure edtMaxKeyPress(Sender: TObject; var Key: Char); + procedure btnOKClick(Sender: TObject); + procedure edtSearchChange(Sender: TObject); + procedure edtSearchKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure grdReportKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormDestroy(Sender: TObject); + private + { Private declarations } + //startDate,endDate, + maxOcurs,signal: integer; + rptList: TStringList; + fDropColumn: Integer; + sDate,eDate: string; + procedure ShowEditor(ACol, ARow: Integer; AChar: Char); + public + { Public declarations } + end; +var + frmOptionsReportsCustom: TfrmOptionsReportsCustom; + const + Col_StartDate = 1; + Col_StopDate = 2; + Col_Max = 3; + TAB = #9; +procedure DialogOptionsHSCustom(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +uses rOptions, uOptions, fReports, uCore, uAccessibleStringGrid; + +{$R *.DFM} + +procedure TfrmOptionsReportsCustom.UMDelayEvent(var Message: TMessage); +{ after focusing events are completed for a combobox, set the key the user typed } +begin + case Message.LParam of + Col_StartDate: + begin + odbStart.Visible := True; + odbStart.Text := Chr(Message.WParam); + end; + COL_StopDate : + begin + odbStop.Visible := True; + odbStop.Text := Chr(Message.WParam); + end; + COL_Max : + begin + edtMax.Visible := True; + edtMax.Text := Chr(Message.WParam); + end; + end; +end; + +procedure DialogOptionsHSCustom(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +var + frmOptionsReportsCustom: TfrmOptionsReportsCustom; +begin + frmOptionsReportsCustom := TfrmOptionsReportsCustom.Create(Application); + actiontype := 0; + try + with frmOptionsReportsCustom do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsReportsCustom); + ShowModal; + actiontype := btnApply.Tag; + end; + finally + frmOptionsReportsCustom.Release; + end; +end; + +procedure TfrmOptionsReportsCustom.FormCreate(Sender: TObject); +begin + rptList := TStringList.Create; + TAccessibleStringGrid.WrapControl(grdReport); +end; + +procedure TfrmOptionsReportsCustom.ShowEditor(ACol, ARow: Integer; AChar: Char); + + procedure PlaceControl(AControl: TWinControl); + var + ARect: TRect; + begin + with AControl do + begin + ARect := grdReport.CellRect(ACol, ARow); + SetBounds(ARect.Left + grdReport.Left + 2, ARect.Top + grdReport.Top + 2, + ARect.Right - ARect.Left - 1 , ARect.Bottom-ARect.Top -1 ); + Visible := True; + Tag := ARow; + BringToFront; + Show; + SetFocus; + end; + end; + procedure Synch(AEdit: TEdit; const edtText: string); + begin + AEdit.Text := edtText; + AEdit.SelectAll; + end; +begin + inherited; + if ARow = 0 then Exit; //header row + with grdReport do if (ARow = Pred(RowCount)) and (ACol > 4 ) then Exit; + case ACol of + Col_StartDate: begin + if (ARow > 0 ) then + begin + PlaceControl(odbStart); + Synch(odbStart,ValFor(Col_StartDate,ARow)); + if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_StartDate); + end; + end; + Col_StopDate: begin + if (ARow > 0 ) then + begin + PlaceControl(odbStop); + Synch(odbStop, ValFor(Col_StopDate,ARow)); + if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_StopDate); + end; + end; + Col_Max: begin + if (ARow > 0 ) and (StrToInt(ValFor(Col_Max,ARow)) > 0) then + begin + PlaceControl(edtMax); + Synch(edtMax, ValFor(Col_Max,ARow)); + fDropColumn := Col_Max; + if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_Max); + end; + end; + end; +end; + +function TfrmOptionsReportsCustom.ValFor(ACol, ARow: Integer): string; +begin + Result := grdReport.Cells[ACol, ARow]; +end; + +procedure TfrmOptionsReportsCustom.grdReportKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if grdReport.Col = 1 then + sDate := grdReport.Cells[grdReport.Col,grdReport.Row]; + if grdReport.Col = 2 then + eDate := grdReport.Cells[grdReport.Col,grdReport.Row]; + if (grdReport.Col = 3) and (grdReport.Cells[grdReport.Col, grdReport.Row]='') then + Exit else if Length(grdReport.Cells[3, grdReport.Row]) > 0 then maxOcurs := StrToInt( grdReport.Cells[3,grdReport.Row]); + if Key = #13 then ShowEditor(grdReport.Col, grdReport.Row, #0); + if Key = #9 then + begin + odbStart.Visible := False; + odbStop.Visible := False; + edtMax.Visible := False; + ShowEditor(grdReport.Col, grdReport.Row, #0); + end; + if Key in [#32..#127] then ShowEditor(grdReport.Col, grdReport.Row, Key); + signal := 0; +end; + +procedure TfrmOptionsReportsCustom.grdReportMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + ACol,ARow: integer; +begin + inherited; + if (not User.ToolsRptEdit) then // For users with Reports settings edit parameter not set. + begin + abort; + exit; + end; + grdReport.MouseToCell(X,Y,ACol,ARow); + if (ARow < 1) or (ACol < 1) then + begin + odbStop.Visible := False; + odbStart.Visible := False; + edtMax.Visible := False; + Exit; + end; + if ACol = 1 then + begin + odbStop.Visible := False; + edtMax.Visible := False; + sDate := grdReport.Cells[1,ARow]; + ShowEditor(ACol, ARow, #0); + end; + if ACol = 2 then + begin + odbStart.Visible := False; + edtMax.Visible := False; + eDate := grdReport.Cells[2,ARow]; + ShowEditor(ACol, ARow, #0); + end; + if (ACol = 3) and (grdReport.Cells[ACol,ARow]='') then + begin + odbStart.Visible := False; + odbStop.Visible := False; + Exit; + end + else if (ACol = 3) and (strtoint(grdReport.Cells[ACol,ARow])>0) then + begin + odbStart.Visible := False; + odbStop.Visible := False; + maxOcurs := strtoint(grdReport.Cells[ACol,ARow]); + ShowEditor(ACol, ARow, #0); + end + else + begin + grdReport.Col := 0; + grdReport.Row := ARow; + end; + signal := 0; +end; + +procedure TfrmOptionsReportsCustom.grdReportDrawCell(Sender: TObject; ACol, + ARow: Integer; Rect: TRect; State: TGridDrawState); +begin + inherited; + grdReport.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, + Piece(grdReport.Cells[ACol, ARow], TAB, 1)); + +end; + +procedure TfrmOptionsReportsCustom.edtMaxExit(Sender: TObject); +var + newValue: String; + code, I: integer; +begin + if edtMax.Modified then + begin + newValue := edtMax.Text; + if length(newValue) = 0 then + begin + InfoBox('Invalid value of max occurences', 'Warning', MB_OK or MB_ICONWARNING); + edtMax.Text := IntToStr(maxOcurs); + edtMax.SetFocus; + edtMax.SelectAll; + end; + if length(newValue) > 0 then + begin + Val(newValue, I, code); + if I = 0 then begin end; //added to keep compiler from generating a hint + if code <> 0 then + begin + InfoBox('Invalid value of max occurences', 'Warning', MB_OK or MB_ICONWARNING); + edtMax.Text := IntToStr(maxOcurs); + edtMax.SetFocus; + edtMax.SelectAll; + end; + if code = 0 then + begin + if strtoint(edtMax.Text) <= 0 then + begin + InfoBox('the value of max should be greater than 0', 'Warning', MB_OK or MB_ICONWARNING); + edtMax.Text := intToStr(maxOcurs); + edtMax.SetFocus; + edtMax.SelectAll; + exit; + end; + grdReport.Cells[Col_Max, edtMax.Tag] := edtMax.Text; + if compareStr(Piece(Piece(grdReport.Cells[0,edtMax.Tag],TAB,2),'^',2),'M')=0 then + begin + edtMax.Visible := False; + btnApply.Enabled := True; + Exit; + end; + grdReport.Cells[0,edtMax.Tag] := grdReport.Cells[0,edtMax.Tag] + '^M'; + edtMax.Visible := False; + btnApply.Enabled := True; + end; + end; + end; +end; + +procedure TfrmOptionsReportsCustom.btnApplyClick(Sender: TObject); +var + valueStartdate, valueStopdate,valueMax, rpt, values,name: string; + i: integer; +begin + for i := 1 to grdReport.RowCount do + begin + if CompareStr(Piece(Piece( grdReport.Cells[0,i],TAB,2),'^',2),'M')=0 then + begin + rpt := Piece(Piece( grdReport.Cells[0,i],TAB,2),'^',1); + name := Piece( grdReport.Cells[0,i],TAB,1); + odbTool.Text := grdReport.Cells[1,i]; + valueStartDate := odbTool.RelativeTime; + odbTool.Text := grdReport.Cells[2,i]; + valueStopDate := odbTool.RelativeTime; + valueMax := grdReport.Cells[3,i]; + if Length(valueMax)<1 then + valueMax := '7'; + values := valueStartdate + ';' + valueStopDate + ';' + valueMax; +{ if CompareStr(name,'Imaging (local only)')=0 then // imaging report id is hard coded to be 10000 + values := valueStartdate + ';' + valueStopDate + ';;;' + valueMax + else} + rpcSetIndividualReportSetting(rpt, values); + end; + end; + btnApply.Enabled := False; + odbStart.Visible := False; + odbStop.Visible := False; + edtMax.Visible := False; + frmReports.LoadTreeView; + with frmReports.tvReports do + begin + if Items.Count > 0 then + Selected := Items.GetFirstNode; + frmReports.tvReportsClick(Selected); + end; +end; + +procedure TfrmOptionsReportsCustom.btnCancelClick(Sender: TObject); +begin + rptList.Clear; + Close; +end; + + +procedure TfrmOptionsReportsCustom.odbStartExit(Sender: TObject); +const + TX_BAD_START = 'The start date is not valid.'; + TX_STOPSTART = 'The start date must not be after the stop date.'; +var + x,ErrMsg,datestart,datestop: String; +begin + if odbStart.text = '' then + begin + InfoBox(TX_BAD_START, 'Warning', MB_OK or MB_ICONWARNING); + odbStart.Visible := True; + odbStart.Text := sDate; + odbStart.Setfocus; + odbStart.SelectAll; + exit; + end; + if odbStart.Text = sDate then + exit; + ErrMsg := ''; + odbStart.Validate(x); + if Length(x) > 0 then + begin + ErrMsg := TX_BAD_START; + InfoBox(TX_BAD_START, 'Warning', MB_OK or MB_ICONWARNING); + odbStart.Visible := True; + odbStart.Text := sDate; + odbStart.Setfocus; + odbStart.SelectAll; + exit; + end; + datestart := odbStart.RelativeTime; + datestop := MakeRelativeDateTime( + StrToFMDateTime(grdReport.Cells[Col_StopDate,odbStart.Tag]) + ); + delete(datestart,1,1); + delete(datestop,1,1); + if StrToIntDef(datestart,0)> StrToIntDef(datestop,0) then + begin + InfoBox(TX_STOPSTART, 'Warning', MB_OK or MB_ICONWARNING); + odbStart.Text := grdReport.Cells[Col_StopDate,odbStart.Tag]; + odbStart.SetFocus; + odbStart.SelectAll; + exit; + end; + grdReport.Cells[Col_StartDate, odbStart.Tag] := DateToStr(FMDateTimeToDateTime(odbStart.FMDateTime)); + odbStart.Visible := False; + btnApply.Enabled := True; + if compareStr(Piece(Piece(grdReport.Cells[0,odbStart.Tag],TAB,2),'^',2),'M')=0 then + Exit; + grdReport.Cells[0,odbStart.Tag] := grdReport.Cells[0,odbStart.Tag] + '^M'; +end; + +procedure TfrmOptionsReportsCustom.odbStopExit(Sender: TObject); +const + TX_BAD_STOP = 'The stop date is not valid.'; + TX_BAD_ORDER = 'The stop date must not be earlier than start date.'; +var + x, ErrMsg,datestart,datestop: string; +begin + if odbStop.text = '' then + begin + InfoBox(TX_BAD_STOP, 'Warning', MB_OK or MB_ICONWARNING); + odbStop.Visible := True; + odbStop.Text := eDate; + odbStop.Setfocus; + odbStop.SelectAll; + exit; + end; + + if odbStop.Text = eDate then + exit; + + ErrMsg := ''; + odbStop.Validate(x); + if Length(x) > 0 then + begin + ErrMsg := TX_BAD_STOP; + InfoBox(TX_BAD_STOP, 'Warning', MB_OK or MB_ICONWARNING); + odbStop.Visible := True; + odbStop.Text := eDate; + odbStop.Setfocus; + odbStop.SelectAll; + exit; + end; + + datestart := MakeRelativeDateTime( + StrToFMDateTime(grdReport.Cells[Col_StartDate,odbStop.Tag]) + ); + datestop := odbStop.RelativeTime; + delete(datestart,1,1); + delete(datestop,1,1); + if StrToIntDef(datestart,0)> StrToIntDef(datestop,0) then + begin + InfoBox(TX_BAD_ORDER, 'Warning', MB_OK or MB_ICONWARNING); + odbStop.Text := grdReport.Cells[Col_StartDate,odbStop.Tag]; + odbStop.SetFocus; + odbStop.SelectAll; + exit; + end; + grdReport.Cells[Col_StopDate, odbStop.Tag] := DateToStr(FMDateTimeToDateTime(odbStop.FMDateTime)); + odbStop.Visible := False; + btnApply.Enabled := True; + if compareStr(Piece(Piece(grdReport.Cells[0,odbStop.Tag],TAB,2),'^',2),'M')=0 then + Exit; + grdReport.Cells[0,odbStop.Tag] := grdReport.Cells[0,odbStop.Tag] + '^M'; +end; + + +procedure TfrmOptionsReportsCustom.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Close; + rptList.Clear; +end; + +procedure TfrmOptionsReportsCustom.odbStartKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + odbStart.Visible := False; + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; +end; + +procedure TfrmOptionsReportsCustom.odbStopKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + odbStop.Visible := False; + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; +end; + +procedure TfrmOptionsReportsCustom.edtMaxKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + edtMax.Visible := False; + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; +end; + +procedure TfrmOptionsReportsCustom.btnOKClick(Sender: TObject); +begin + if btnApply.Enabled then + btnApplyClick(self); + Close; +end; + +procedure TfrmOptionsReportsCustom.edtSearchChange(Sender: TObject); +var + i: integer; + needle,hay: String; + selRect: TGridRect; + +begin + if (edtSearch.Modified) and (signal=0) then + begin + needle := UpperCase(edtSearch.text); + if length(needle)=0 then + begin + selRect.Left := 0; + selRect.Top := 1; + selRect.Right := 0; + selRect.Bottom := 1; + grdReport.Selection := selRect; + grdReport.TopRow := 1; + exit; + end; + for i := 1 to grdReport.RowCount do + begin + hay := Piece(UpperCase(grdReport.Cells[0,i]),TAB,1); + hay := Copy(hay,0,length(needle)); + if Pos(needle, hay) > 0 then + begin + selRect.Left := 0; + selRect.Top := i; + selRect.Right := 0; + selRect.Bottom := i; + grdReport.Selection := selRect; + grdReport.TopRow := i; + exit; + end; + end; + end; + if (edtSearch.Modified) and (signal=1) then + begin + signal := 0; + end; + Exit; +end; + +procedure TfrmOptionsReportsCustom.edtSearchKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + edtSearch.Text := ''; + exit; + end; +end; + +procedure TfrmOptionsReportsCustom.FormShow(Sender: TObject); +var + i,rowNum: integer; + startOff,stopOff: string; + today: TFMDateTime; +begin + today := FMToday; + signal := 0; + rptList := TStringList.Create; + CallV('ORWTPD GETSETS',[nil]); + MixedCaseList( RPCBrokerV.Results ); + rptList := TStringList(RPCBrokerV.Results); + SortByPiece(rptList,'^',2); + rowNum := rptList.Count; + grdReport.RowCount := rowNum + 1; + grdReport.Cells[0,0] := 'Report Name'; + grdReport.Cells[1,0] := 'Start Date'; + grdReport.Cells[2,0] := 'Stop Date'; + grdReport.Cells[3 ,0] := 'Max'; + + for i := 1 to grdReport.RowCount-1 do + begin + grdReport.Cells[0,i] := Piece(rptList[i-1],'^',2)+ TAB + Piece(rptList[i-1],'^',1); + startOff := Piece(Piece(rptList[i-1],'^',3),';',1); + stopOff := Piece(Piece(rptList[i-1],'^',3),';',2); + delete(startOff,1,1); + delete(stopOff,1,1); + grdReport.Cells[1,i] := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, StrToIntDef(startOff,0)))); + grdReport.Cells[2,i] := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, StrToIntDef(stopOff,0)))); + grdReport.Cells[3,i] := Piece(Piece(rptList[i-1],'^',3),';',3); + end; + if not edtSearch.Focused then + edtSearch.SetFocus; + btnCancel.Caption := 'Cancel'; + if (not User.ToolsRptEdit) then // For users with Reports settings edit parameter not set. + begin + grdReport.onKeyPress := nil; + grdReport.onMouseDown := nil; + odbStart.readOnly := true; + odbStart.onExit := nil; + odbStart.onKeyPress := nil; + odbStop.readOnly := true; + odbStop.onExit := nil; + odbStop.onKeyPress := nil; + edtMax.readOnly := true; + odbTool.readOnly := true; + btnOK.visible := false; + btnApply.visible := false; + btnCancel.Caption := 'Close'; + end; +end; + +procedure TfrmOptionsReportsCustom.grdReportKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if (Key = VK_TAB) then + begin + if ssShift in Shift then + begin + EdtSearch.SetFocus; + Key := 0; + end + else if ssCtrl in Shift then + begin + if User.ToolsRptEdit then + btnApply.SetFocus + else + btnCancel.SetFocus; + Key := 0; + end; + end; + if Key = VK_ESCAPE then begin + EdtSearch.SetFocus; + Key := 0; + end; +end; + +procedure TfrmOptionsReportsCustom.FormDestroy(Sender: TObject); +begin + TAccessibleStringGrid.UnwrapControl(grdReport); +end; + +end. + diff --git a/CPRS-Chart/Options/fOptionsReportsDefault.dfm b/CPRS-Chart/Options/fOptionsReportsDefault.dfm new file mode 100644 index 0000000..97909ee --- /dev/null +++ b/CPRS-Chart/Options/fOptionsReportsDefault.dfm @@ -0,0 +1,145 @@ +object frmOptionsReportsDefault: TfrmOptionsReportsDefault + Left = 773 + Top = 334 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Default Settings For Available CPRS Reports' + ClientHeight = 205 + ClientWidth = 384 + 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 Label2: TLabel + Left = 8 + Top = 118 + Width = 23 + Height = 13 + Caption = 'Max:' + end + object Label3: TLabel + Left = 8 + Top = 48 + Width = 51 + Height = 13 + Caption = 'Start Date:' + end + object Label4: TLabel + Left = 8 + Top = 81 + Width = 51 + Height = 13 + Caption = 'Stop Date:' + end + object Bevel1: TBevel + Left = 8 + Top = 8 + Width = 337 + Height = 2 + end + object Bevel2: TBevel + Left = 0 + Top = 173 + Width = 384 + Height = 2 + Align = alBottom + end + object lblDefaultText: TMemo + Left = 232 + Top = 40 + Width = 137 + Height = 121 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Click dots in boxes to set ' + 'start and end dates. You can ' + 'also input values directly.') + ReadOnly = True + TabOrder = 4 + end + object edtDefaultMax: TCaptionEdit + Left = 96 + Top = 112 + Width = 121 + Height = 21 + TabOrder = 2 + OnClick = edtDefaultMaxClick + OnExit = edtDefaultMaxExit + OnKeyPress = edtDefaultMaxKeyPress + Caption = 'Max' + end + object Panel1: TPanel + Left = 0 + Top = 175 + Width = 384 + Height = 30 + Align = alBottom + TabOrder = 3 + object btnOK: TButton + Left = 264 + Top = 4 + Width = 50 + Height = 22 + Hint = 'Click to save the new setting.' + Caption = 'OK' + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = btnOKClick + end + object btnReset: TButton + Left = 176 + Top = 4 + Width = 81 + Height = 22 + Hint = 'Click to keep original setting' + Caption = 'Use Defaults' + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = btnResetClick + end + object btnCancel: TButton + Left = 320 + Top = 4 + Width = 57 + Height = 22 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = btnCancelClick + end + end + object odcDfStart: TORDateBox + Left = 96 + Top = 48 + Width = 121 + Height = 21 + TabOrder = 0 + OnClick = odcDfStartClick + OnExit = odcDfStartExit + OnKeyPress = odcDfStartKeyPress + DateOnly = True + RequireTime = False + end + object odcDfStop: TORDateBox + Left = 96 + Top = 80 + Width = 121 + Height = 21 + TabOrder = 1 + OnClick = odcDfStopClick + OnExit = odcDfStopExit + OnKeyPress = odcDfStopKeyPress + DateOnly = True + RequireTime = False + end +end diff --git a/CPRS-Chart/Options/fOptionsReportsDefault.pas b/CPRS-Chart/Options/fOptionsReportsDefault.pas new file mode 100644 index 0000000..aae766f --- /dev/null +++ b/CPRS-Chart/Options/fOptionsReportsDefault.pas @@ -0,0 +1,429 @@ +unit fOptionsReportsDefault; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, Spin, fOptions, ComCtrls, ORFn, ORNet, ORCtrls, + ORDtTm, rCore; + +type + TfrmOptionsReportsDefault = class(TForm) + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + edtDefaultMax: TCaptionEdit; + Bevel1: TBevel; + Bevel2: TBevel; + Panel1: TPanel; + btnOK: TButton; + btnReset: TButton; + lblDefaultText: TMemo; + btnCancel: TButton; + odcDfStart: TORDateBox; + odcDfStop: TORDateBox; + procedure btnOKClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure btnResetClick(Sender: TObject); + procedure edtDefaultMaxExit(Sender: TObject); + procedure edtDefaultStartKeyPress(Sender: TObject; var Key: Char); + procedure edtDefaultEndKeyPress(Sender: TObject; var Key: Char); + procedure edtDefaultMaxKeyPress(Sender: TObject; var Key: Char); + procedure FormCreate(Sender: TObject); + procedure odcDfStartExit(Sender: TObject); + procedure odcDfStopExit(Sender: TObject); + procedure odcDfStartKeyPress(Sender: TObject; var Key: Char); + procedure odcDfStopKeyPress(Sender: TObject; var Key: Char); + procedure odcDfStartClick(Sender: TObject); + procedure odcDfStopClick(Sender: TObject); + procedure edtDefaultMaxClick(Sender: TObject); + private + { Private declarations } + startDate, endDate, maxOcurs: integer; + sDate,eDate: String; + public + { Public declarations } + procedure fillLabelText; + + end; + +var + frmOptionsReportsDefault: TfrmOptionsReportsDefault; + +procedure DialogOptionsHSDefault(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +uses rOptions, uOptions, fReports, uCore; +{$R *.DFM} + +procedure DialogOptionsHSDefault(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +var + frmOptionsReportsDefault: TfrmOptionsReportsDefault; +begin + frmOptionsReportsDefault := TfrmOptionsReportsDefault.Create(Application); + actiontype := 0; + try + with frmOptionsReportsDefault do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsReportsDefault); + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsReportsDefault.Release; + end; +end; + +procedure TfrmOptionsReportsDefault.btnOKClick(Sender: TObject); +var + valueStartdate, valueEnddate, valueMax, values: string; +begin + if (odcDfStart.Text = sDate) and (odcDfStop.Text = eDate) and (not edtDefaultMax.Modified ) then + begin + Close; + Exit; + end; + + if (odcDfStart.Text='') or (odcDfStop.Text='') or (edtDefaultMax.Text='') then + begin + InfoBox('You have to fill out each box, don''t leave blank!', 'Warning', MB_OK or MB_ICONWARNING); + Exit; + end; + + valueStartdate := odcDfStart.RelativeTime; + valueEnddate := odcDfStop.RelativeTime; + valueMax := edtDefaultMax.Text; + values := valueStartdate + ';' + valueEnddate + ';' + valueMax; + if InfoBox('Do you really want to change all of the reports settings to the specified values as following?' + +#13#13' Start date: ' + odcDfStart.Text + +#13' End date: ' + odcDfStop.Text + +#13' Max occurences: ' + edtDefaultMax.Text + +#13#13' Click Yes, all of the CPRS reports except for health summary reports will have these same settings.', + 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + begin + rpcSetDefaultReportsSetting(values); + rpcActiveDefaultSetting; + frmReports.LoadTreeView; + with frmReports.tvReports do + begin + if Items.Count > 0 then + Selected := Items.GetFirstNode; + frmReports.tvReportsClick(Selected); + end; + Close; + end + else + begin + odcDfStart.Text := sDate; + odcDfStop.Text := eDate; + edtDefaultMax.Text := IntToStr(maxOcurs); + end; +end; + + +procedure TfrmOptionsReportsDefault.btnCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmOptionsReportsDefault.btnResetClick(Sender: TObject); +var + startD,endD,maxOc: integer; + values,msg,stdate,endate: string; + today: TFMDateTime; +begin + rpcRetrieveDefaultSetting(startD,endD,maxOc,msg); + today := FMToday; + if msg = 'NODEFAULT' then + begin + InfoBox('No default report settings are available', 'Warning', MB_OK or MB_ICONWARNING); + Exit; + end; + //if (startD=startDate) and (endD=endDate) and (maxOc=maxOcurs) then + // Exit; + stdate := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, startD))); + endate := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, endD))); + if InfoBox('Do you really want to change all of the reports settings to the default values as following?' + +#13#13' Start date: ' + stdate + +#13' End date: ' + endate + +#13' Max occurences: ' + IntToStr(maxOc) + +#13#13' Click Yes, all of the CPRS reports except for health summary reports will have these same settings.', + 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + begin + rpcDeleteUserLevelReportsSetting; + odcDfStart.Text := stdate; + odcDfStop.Text := endate; + edtDefaultMax.Text := inttostr(maxOc); + values := odcDfStart.RelativeTime + ';' + odcDfStop.RelativeTime + ';' + edtDefaultMax.Text; + rpcSetDefaultReportsSetting(values); + rpcActiveDefaultSetting; + sDate := odcDfStart.Text; + eDate := odcDfStop.Text; + startDate := startD; + endDate := endD; + maxOcurs := maxOc; + fillLabelText; + frmReports.LoadTreeView; + with frmReports.tvReports do + begin + if Items.Count > 0 then + Selected := Items.GetFirstNode; + frmReports.tvReportsClick(Selected); + end; + end; +end; + +procedure TfrmOptionsReportsDefault.edtDefaultMaxExit(Sender: TObject); +var + newValue: string; + I, code: integer; +begin + if edtDefaultMax.Modified then + begin + + newValue := edtDefaultMax.Text; + if length(newValue) = 0 then + begin + InfoBox('Invalid value of max occurences', 'Warning', MB_OK or MB_ICONWARNING); + edtDefaultMax.Text := '100'; + end; + if length(newValue) > 0 then + begin + Val(newValue, I, code); + if I = 0 then begin end; //added to keep compiler from generating a hint + if code <> 0 then + begin + InfoBox('Invalid value of max occurences', 'Warning', MB_OK or MB_ICONWARNING); + edtDefaultMax.Text := inttostr(maxOcurs); + end; + if code = 0 then + if strtoint(edtDefaultMax.Text) <= 0 then + begin + InfoBox('Invalid value of max occurences', 'Warning', MB_OK or MB_ICONWARNING); + edtDefaultMax.Text := inttostr(maxOcurs); + end; + end; + fillLabelText; + + end; +end; + +procedure TfrmOptionsReportsDefault.fillLabelText; +var + fromday,dayto: string; +begin + fromday := DateToStr(FMDateTimeToDateTime(odcDfStart.FMDateTime)); + dayto := DateToStr(FMDateTimeToDateTime(odcDfStop.FMDateTime)); + lblDefaultText.Text := 'All of the CPRS reports except for Health Summary reports will be displayed on the CPRS Reports tab from start date: ' + + fromday + ' to end date: ' + dayto + '.'; +end; + +procedure TfrmOptionsReportsDefault.edtDefaultStartKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; +end; + +procedure TfrmOptionsReportsDefault.edtDefaultEndKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; +end; + +procedure TfrmOptionsReportsDefault.edtDefaultMaxKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; +end; + +procedure TfrmOptionsReportsDefault.FormCreate(Sender: TObject); +var + today : TFMDateTime; +begin + today := FMToday; + rpcGetDefaultReportsSetting(startDate,endDate,maxOcurs); + odcDfStart.text := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, startDate))); + sDate := odcDfStart.Text; + odcDfStop.text := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, endDate))); + eDate := odcDfStop.Text; + if maxOcurs <> 0 then + begin + edtDefaultMax.Text := inttostr(maxOcurs); + fillLabelText; + end; + lblDefaultText.Text := 'Click dots in boxes to set start and end dates. You can also input values directly.'; + btnCancel.caption := 'Cancel'; + if (not User.ToolsRptEdit) then // For users with Reports settings edit parameter not set. + begin + lblDefaultText.Text := 'Settings can only be viewed (no editing provided).'; + btnReset.visible := false; + btnOK.visible := false; + btnCancel.caption := 'Close'; + odcDfStart.readOnly := true; + odcDfStart.enabled := false; + odcDfStart.onExit := nil; + odcDfStart.onKeyPress := nil; + odcDfStop.readOnly := true; + odcDfStop.enabled := false; + odcDfStop.onExit := nil; + odcDfStop.onKeyPress := nil; + edtDefaultMax.readOnly := true; + end; +end; + +procedure TfrmOptionsReportsDefault.odcDfStartExit(Sender: TObject); +const + TX_BAD_START = 'The start date is not valid.'; + TX_STOPSTART = 'The start date must not be after the stop date.'; + +var + x,ErrMsg,datestart,datestop: String; +begin + if odcDfStart.text = '' then + begin + InfoBox(TX_BAD_START, 'Warning', MB_OK or MB_ICONWARNING); + odcDfStart.Text := sDate; + odcDfStart.Setfocus; + odcDfStart.SelectAll; + exit; + end; + + ErrMsg := ''; + odcDfStart.Validate(x); + if Length(x) > 0 then + begin + ErrMsg := TX_BAD_START; + InfoBox(TX_BAD_START, 'Warning', MB_OK or MB_ICONWARNING); + odcDfStart.Text := sDate; + odcDfStart.Setfocus; + odcDfStart.SelectAll; + exit; + end; + datestart := odcDfStart.RelativeTime; + datestop := odcDfStop.RelativeTime; + delete(datestart,1,1); + delete(datestop,1,1); + if StrToIntDef(datestop,0) < StrToIntDef(datestart,0) then + begin + InfoBox(TX_STOPSTART, 'Warning', MB_OK or MB_ICONWARNING); + odcDfStart.Text := odcDfStop.Text; + odcDfStart.SetFocus; + odcDfStart.SelectAll; + exit; + end; + odcDfStart.Text := DateToStr(FMDateTimeToDateTime(odcDfStart.FMDateTime)); + fillLabelText; +end; + +procedure TfrmOptionsReportsDefault.odcDfStopExit(Sender: TObject); +const + TX_BAD_STOP = 'The stop date is not valid.'; + TX_BAD_ORDER = 'The stop date must not be earlier than start date.'; +var + x, ErrMsg,datestart,datestop: string; +begin + if odcDfStop.text = '' then + begin + InfoBox(TX_BAD_STOP, 'Warning', MB_OK or MB_ICONWARNING); + odcDfStop.Text := eDate; + odcDfStop.Setfocus; + odcDfStop.SelectAll; + exit; + end; + + ErrMsg := ''; + odcDfStop.Validate(x); + if Length(x) > 0 then + begin + ErrMsg := TX_BAD_STOP; + InfoBox(TX_BAD_STOP, 'Warning', MB_OK or MB_ICONWARNING); + odcDfStop.Visible := True; + odcDfStop.Text := eDate; + odcDfStop.Setfocus; + odcDfStop.SelectAll; + exit; + end; + datestart := odcDfStart.RelativeTime; + datestop := odcDfStop.RelativeTime; + delete(datestart,1,1); + delete(datestop,1,1); + if StrToIntDef(datestop,0) < StrToIntDef(datestart,0) then + begin + InfoBox(TX_BAD_ORDER, 'Warning', MB_OK or MB_ICONWARNING); + odcDfStop.Text := odcDfStart.Text; + odcDfStop.SetFocus; + odcDfStop.SelectAll; + exit; + end; + odcDfStop.Text := DateToStr(FMDateTimeToDateTime(odcDfStop.FMDateTime)); + fillLabelText; +end; + + +procedure TfrmOptionsReportsDefault.odcDfStartKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; + if Key = #27 then //Escape + begin + Key := #0; + btnCancel.Click; + end; +end; + +procedure TfrmOptionsReportsDefault.odcDfStopKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; + if Key = #27 then //Escape + begin + Key := #0; + btnCancel.Click; + end; +end; + +procedure TfrmOptionsReportsDefault.odcDfStartClick(Sender: TObject); +begin + odcDfStart.SelectAll; +end; + +procedure TfrmOptionsReportsDefault.odcDfStopClick(Sender: TObject); +begin + odcDfStop.SelectAll; +end; + +procedure TfrmOptionsReportsDefault.edtDefaultMaxClick(Sender: TObject); +begin + edtDefaultMax.SelectAll; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsSubscribe.dfm b/CPRS-Chart/Options/fOptionsSubscribe.dfm new file mode 100644 index 0000000..ed90794 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsSubscribe.dfm @@ -0,0 +1,59 @@ +object frmOptionsSubscribe: TfrmOptionsSubscribe + Left = 309 + Top = 103 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsSingle + Caption = 'Subscribe to a Team' + ClientHeight = 216 + ClientWidth = 302 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBottom: TPanel + Left = 0 + Top = 184 + Width = 302 + Height = 32 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 0 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 302 + Height = 2 + Align = alTop + end + object btnOK: TButton + Left = 109 + Top = 2 + Width = 75 + Height = 22 + HelpContext = 9003 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + end + object btnCancel: TButton + Left = 205 + Top = 2 + Width = 75 + Height = 22 + HelpContext = 9004 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end +end diff --git a/CPRS-Chart/Options/fOptionsSubscribe.pas b/CPRS-Chart/Options/fOptionsSubscribe.pas new file mode 100644 index 0000000..31f7bd8 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsSubscribe.pas @@ -0,0 +1,49 @@ +unit fOptionsSubscribe; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, StdCtrls, ORFn; + +type + TfrmOptionsSubscribe = class(TForm) + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + bvlBottom: TBevel; + private + { Private declarations } + public + { Public declarations } + end; + +var + frmOptionsSubscribe: TfrmOptionsSubscribe; + +procedure DialogOptionsSubscribe(fontsize: integer; var actiontype: Integer); + +implementation + +{$R *.DFM} + +procedure DialogOptionsSubscribe(fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsSubscribe: TfrmOptionsSubscribe; +begin + frmOptionsSubscribe := TfrmOptionsSubscribe.Create(Application); + actiontype := 0; + try + with frmOptionsSubscribe do + begin + Font.Size := MainFontSize; + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsSubscribe.Release; + end; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsSurrogate.dfm b/CPRS-Chart/Options/fOptionsSurrogate.dfm new file mode 100644 index 0000000..5f502eb --- /dev/null +++ b/CPRS-Chart/Options/fOptionsSurrogate.dfm @@ -0,0 +1,176 @@ +object frmOptionsSurrogate: TfrmOptionsSurrogate + Left = 232 + Top = 107 + HelpContext = 9100 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Surrogate for Notifications' + ClientHeight = 136 + ClientWidth = 313 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblSurrogate: TLabel + Left = 7 + Top = 51 + Width = 49 + Height = 13 + Caption = 'Surrogate:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lblSurrogateText: TStaticText + Left = 157 + Top = 4 + Width = 81 + Height = 17 + Caption = 'lblSurrogateText' + TabOrder = 4 + end + object lblStart: TStaticText + Left = 157 + Top = 24 + Width = 36 + Height = 17 + Caption = 'lblStart' + TabOrder = 5 + end + object lblStop: TStaticText + Left = 157 + Top = 44 + Width = 36 + Height = 17 + Caption = 'lblStop' + TabOrder = 6 + end + object cboSurrogate: TORComboBox + Left = 7 + Top = 66 + Width = 145 + Height = 21 + HelpContext = 9102 + Style = orcsDropDown + AutoSelect = True + Caption = 'Surrogate' + 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 + OnChange = cboSurrogateChange + OnExit = cboSurrogateChange + OnKeyDown = cboSurrogateKeyDown + OnNeedData = cboSurrogateNeedData + end + object btnSurrogateDateRange: TButton + Left = 157 + Top = 66 + Width = 145 + Height = 22 + HelpContext = 9103 + Caption = 'Surrogate Date Range...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = btnSurrogateDateRangeClick + end + object btnRemove: TButton + Left = 7 + Top = 20 + Width = 145 + Height = 22 + HelpContext = 9101 + Caption = 'Remove Surrogate' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnClick = btnRemoveClick + end + object pnlBottom: TPanel + Left = 0 + Top = 103 + Width = 313 + Height = 33 + HelpContext = 9100 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 2 + DesignSize = ( + 313 + 33) + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 313 + Height = 2 + Align = alTop + end + object btnCancel: TButton + Left = 229 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9997 + Anchors = [akTop, akRight] + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + object btnOK: TButton + Left = 149 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9996 + Anchors = [akTop, akRight] + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + end + end + object dlgSurrogateDateRange: TORDateRangeDlg + DateOnly = False + Instruction = + 'Enter a date range to begin and end when this will be in effect.' + + ' Otherwise it will always be in effect.' + LabelStart = 'Start Date' + LabelStop = 'Stop Date' + RequireTime = False + Format = 'mmm d,yy@hh:nn' + TextOfStop = 'Jun 6,99@12:45' + Left = 265 + Top = 4 + end +end diff --git a/CPRS-Chart/Options/fOptionsSurrogate.pas b/CPRS-Chart/Options/fOptionsSurrogate.pas new file mode 100644 index 0000000..0810739 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsSurrogate.pas @@ -0,0 +1,247 @@ +unit fOptionsSurrogate; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ORDtTmRng, ORFn, ExtCtrls; + +type + TfrmOptionsSurrogate = class(TForm) + lblSurrogate: TLabel; + cboSurrogate: TORComboBox; + btnSurrogateDateRange: TButton; + dlgSurrogateDateRange: TORDateRangeDlg; + lblSurrogateText: TStaticText; + btnRemove: TButton; + lblStart: TStaticText; + lblStop: TStaticText; + pnlBottom: TPanel; + bvlBottom: TBevel; + btnCancel: TButton; + btnOK: TButton; + procedure FormShow(Sender: TObject); + procedure btnSurrogateDateRangeClick(Sender: TObject); + procedure cboSurrogateNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + procedure btnOKClick(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure cboSurrogateChange(Sender: TObject); + procedure cboSurrogateKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + { Private declarations } + procedure LabelInfo; + public + { Public declarations } + end; + +var + frmOptionsSurrogate: TfrmOptionsSurrogate; + +procedure DialogOptionsSurrogate(topvalue, leftvalue, fontsize: integer; var info: string); + +implementation + +uses rOptions, uOptions, rCore; + +var + Surrogate, TempSurrogate: TSurrogate; + +{$R *.DFM} + +procedure DialogOptionsSurrogate(topvalue, leftvalue, fontsize: integer; var info: string); +// create the form and make it modal +var + frmOptionsSurrogate: TfrmOptionsSurrogate; +begin + frmOptionsSurrogate := TfrmOptionsSurrogate.Create(Application); + Surrogate := TSurrogate.Create; // saved settings + TempSurrogate := TSurrogate.Create; // unsaved settings + try + with frmOptionsSurrogate do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsSurrogate); + with Surrogate do + begin + IEN := StrToInt64Def(Piece(info, '^', 1), -1); + Name := Piece(info, '^', 2); + Start := MakeFMDateTime(Piece(info, '^', 3)); + Stop := MakeFMDateTime(Piece(info, '^', 4)); + end; + with TempSurrogate do + begin + IEN := Surrogate.IEN; + Name := Surrogate.Name; + Start := Surrogate.Start; + Stop := Surrogate.Stop; + end; + ShowModal; + info := ''; + info := info + IntToStr(Surrogate.IEN) + '^'; + info := info + Surrogate.Name + '^'; + info := info + FloatToStr(Surrogate.Start) + '^'; + info := info + FloatToStr(Surrogate.Stop) + '^'; + end; + finally + frmOptionsSurrogate.Release; + Surrogate.Free; + TempSurrogate.Free; + end; +end; + +procedure TfrmOptionsSurrogate.FormShow(Sender: TObject); +begin + cboSurrogate.InitLongList(Surrogate.Name); + cboSurrogate.SelectByIEN(Surrogate.IEN); + LabelInfo; +end; + +procedure TfrmOptionsSurrogate.btnSurrogateDateRangeClick(Sender: TObject); +var + TempFMDate: TFMDateTime; + ok : boolean; +begin + ok := false; + with dlgSurrogateDateRange do + while not ok do + begin + FMDateStart := TempSurrogate.Start; + FMDateStop := TempSurrogate.Stop; + if Execute then + begin + If (FMDateStop <> 0) and (FMDateStart > FMDateStop) then + begin + TempFMDate := FMDateStart; + FMDateStart := FMDateStop; + FMDateStop := TempFMDate; + end; + with TempSurrogate do + begin + Start := FMDateStart; + Stop := FMDateStop; + LabelInfo; + if (Stop <> 0) and (Stop < DateTimeToFMDateTime(Now)) then + begin + beep; + InfoBox('Stop Date must be in the future.', 'Warning', MB_OK or MB_ICONWARNING); + Stop := 0; + end + else + ok := true; + end; + end + else + ok := true; + end; +end; + +procedure TfrmOptionsSurrogate.cboSurrogateNeedData( + Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); +begin + cboSurrogate.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmOptionsSurrogate.btnOKClick(Sender: TObject); +var + info, msg: string; + ok: boolean; +begin + rpcCheckSurrogate(TempSurrogate.IEN, ok, msg); + if not ok then + begin + beep; + InfoBox(msg, 'Warning', MB_OK or MB_ICONWARNING); + ModalResult := mrNone; + end + else + begin + ModalResult := mrOK; + with Surrogate do + begin + IEN := TempSurrogate.IEN; + Name := TempSurrogate.Name; + Start := TempSurrogate.Start; + Stop := TempSurrogate.Stop; + end; + info := ''; + info := info + IntToStr(Surrogate.IEN) + '^'; + info := info + FloatToStr(Surrogate.Start) + '^'; + info := info + FloatToStr(Surrogate.Stop) + '^'; + rpcSetSurrogateInfo(info); + end; +end; + +procedure TfrmOptionsSurrogate.btnRemoveClick(Sender: TObject); +begin + cboSurrogate.ItemIndex := -1; + cboSurrogate.Text := ''; + with TempSurrogate do + begin + IEN := -1; + Name := ''; + Start := 0; + Stop := 0; + end; + LabelInfo; +end; + +procedure TfrmOptionsSurrogate.LabelInfo; +begin + with TempSurrogate do + begin + btnRemove.Enabled := length(Name) > 0; + btnSurrogateDateRange.Enabled := length(Name) > 0; + if length(Name) > 0 then + lblSurrogateText.Caption := Name + else + begin + lblSurrogateText.Caption := ''; + Start := 0; + Stop := 0; + end; + if Start > 0 then + lblStart.Caption := 'from: ' + FormatFMDateTime('mmm d,yyyy@hh:nn', Start) + else + lblStart.Caption := 'from: '; + if Stop > 0 then + lblStop.Caption := 'until: ' + FormatFMDateTime('mmm d,yyyy@hh:nn', Stop) + else + lblStop.Caption := 'until: '; + end; +end; + +procedure TfrmOptionsSurrogate.cboSurrogateChange(Sender: TObject); +begin + with cboSurrogate do + if (ItemIndex = -1) or (Text = '') then + begin + TempSurrogate.IEN := -1; + TempSurrogate.Name := ''; + ItemIndex := -1; + Text := ''; + end + else + begin + TempSurrogate.IEN := ItemIEN; + TempSurrogate.Name := DisplayText[cboSurrogate.ItemIndex]; + end; + LabelInfo; +end; + +procedure TfrmOptionsSurrogate.cboSurrogateKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if cboSurrogate.ItemIndex = -1 then // allow typing to do change event + Application.ProcessMessages; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsTeams.dfm b/CPRS-Chart/Options/fOptionsTeams.dfm new file mode 100644 index 0000000..6a7305d --- /dev/null +++ b/CPRS-Chart/Options/fOptionsTeams.dfm @@ -0,0 +1,220 @@ +object frmOptionsTeams: TfrmOptionsTeams + Left = 730 + Top = 96 + HelpContext = 9090 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Team Information' + ClientHeight = 369 + ClientWidth = 384 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object lblTeams: TLabel + Left = 10 + Top = 70 + Width = 115 + Height = 13 + Caption = 'You are on these teams:' + end + object lblPatients: TLabel + Left = 200 + Top = 70 + Width = 130 + Height = 13 + Caption = 'Patients on selected teams:' + end + object lblTeamMembers: TLabel + Left = 200 + Top = 214 + Width = 75 + Height = 13 + Caption = 'Team members:' + end + object lblSubscribe: TLabel + Left = 8 + Top = 270 + Width = 97 + Height = 13 + Caption = 'Subscribe to a team:' + end + object lblInfo: TMemo + Left = 8 + Top = 8 + Width = 369 + Height = 33 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + + 'View team information by selecting teams. You can subscribe or r' + + 'emove ' + 'yourself from teams.') + ReadOnly = True + TabOrder = 8 + end + object pnlBottom: TPanel + Left = 0 + Top = 336 + Width = 384 + Height = 33 + HelpContext = 9090 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 7 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 384 + Height = 2 + Align = alTop + end + object btnClose: TButton + Left = 301 + Top = 8 + Width = 75 + Height = 22 + HelpContext = 9998 + Cancel = True + Caption = 'Close' + ModalResult = 2 + TabOrder = 0 + end + end + object lstPatients: TORListBox + Left = 200 + Top = 86 + Width = 175 + Height = 121 + HelpContext = 9091 + ItemHeight = 13 + ParentShowHint = False + PopupMenu = mnuPopPatient + ShowHint = True + Sorted = True + TabOrder = 5 + OnMouseDown = lstPatientsMouseDown + Caption = 'Patients on selected teams' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object lstTeams: TORListBox + Left = 10 + Top = 86 + Width = 175 + Height = 145 + HelpContext = 9092 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + Sorted = True + TabOrder = 2 + OnClick = lstTeamsClick + Caption = 'You are on these teams' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object lstUsers: TORListBox + Left = 200 + Top = 230 + Width = 175 + Height = 97 + HelpContext = 9093 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + Sorted = True + TabOrder = 6 + Caption = 'Team members' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object btnRemove: TButton + Left = 10 + Top = 241 + Width = 175 + Height = 22 + HelpContext = 9094 + Caption = 'Remove yourself from this team' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnClick = btnRemoveClick + end + object chkPersonal: TCheckBox + Left = 10 + Top = 40 + Width = 175 + Height = 17 + HelpContext = 9096 + Caption = 'Include personal lists' + TabOrder = 0 + OnClick = chkPersonalClick + end + object chkRestrict: TCheckBox + Left = 200 + Top = 40 + Width = 185 + Height = 17 + HelpContext = 9097 + Caption = 'View only common members' + Enabled = False + TabOrder = 1 + Visible = False + OnClick = chkRestrictClick + end + object cboSubscribe: TORComboBox + Left = 12 + Top = 287 + Width = 175 + Height = 21 + HelpContext = 9095 + Style = orcsDropDown + AutoSelect = True + Caption = 'Subscribe to a team' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 4 + OnClick = cboSubscribeClick + OnKeyDown = cboSubscribeKeyDown + OnMouseClick = cboSubscribeMouseClick + CharsNeedMatch = 1 + end + object mnuPopPatient: TPopupMenu + Top = 336 + object mnuPatientID: TMenuItem + Caption = 'Patient ID...' + OnClick = mnuPatientIDClick + end + end +end diff --git a/CPRS-Chart/Options/fOptionsTeams.pas b/CPRS-Chart/Options/fOptionsTeams.pas new file mode 100644 index 0000000..2041f21 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsTeams.pas @@ -0,0 +1,300 @@ +unit fOptionsTeams; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ORCtrls, OrFn, Menus; + +type + TfrmOptionsTeams = class(TForm) + pnlBottom: TPanel; + btnClose: TButton; + lstPatients: TORListBox; + lstTeams: TORListBox; + lblTeams: TLabel; + lblPatients: TLabel; + lstUsers: TORListBox; + lblTeamMembers: TLabel; + btnRemove: TButton; + chkPersonal: TCheckBox; + chkRestrict: TCheckBox; + bvlBottom: TBevel; + lblInfo: TMemo; + lblSubscribe: TLabel; + cboSubscribe: TORComboBox; + mnuPopPatient: TPopupMenu; + mnuPatientID: TMenuItem; + procedure FormCreate(Sender: TObject); + procedure chkPersonalClick(Sender: TObject); + procedure lstTeamsClick(Sender: TObject); + procedure chkRestrictClick(Sender: TObject); + procedure cboSubscribeClick(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure mnuPatientIDClick(Sender: TObject); + procedure lstPatientsMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure cboSubscribeKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure cboSubscribeMouseClick(Sender: TObject); + private + FKeyBoarding: boolean; + { Private declarations } + procedure FillATeams; + procedure FillList(alist: TORListBox; members: TStrings); + procedure MergeList(alist: TORListBox; members: TStrings); + function ItemNotAMember(alist: TStrings; listnum: string): boolean; + function MemberNotOnList(alist: TStrings; listnum: string): boolean; + public + { Public declarations } + end; + +var + frmOptionsTeams: TfrmOptionsTeams; + +procedure DialogOptionsTeams(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +uses rOptions, uOptions, rCore, fOptions; + +{$R *.DFM} + +procedure DialogOptionsTeams(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsTeams: TfrmOptionsTeams; +begin + frmOptionsTeams := TfrmOptionsTeams.Create(Application); + actiontype := 0; + try + with frmOptionsTeams do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsTeams); + ShowModal; + end; + finally + frmOptionsTeams.Release; + end; +end; + +procedure TfrmOptionsTeams.FormCreate(Sender: TObject); +begin + rpcGetTeams(lstTeams.Items); + lstTeams.ItemIndex := -1; + FillATeams; +end; + +procedure TfrmOptionsTeams.FillATeams; +var + i: integer; + alist: TStringList; +begin + cboSubscribe.Items.Clear; + alist := TStringList.Create; + rpcGetAteams(alist); + for i := 0 to alist.Count - 1 do + if MemberNotOnList(lstTeams.Items, Piece(alist[i], '^', 1)) then + cboSubscribe.Items.Add(alist[i]); + cboSubscribe.Enabled := cboSubscribe.Items.Count > 0; + lblSubscribe.Enabled := cboSubscribe.Items.Count > 0; + alist.Free; +end; + +procedure TfrmOptionsTeams.FillList(alist: TORListBox; members: TStrings); +var + i: integer; +begin + for i := 0 to members.Count - 1 do + if MemberNotOnList(alist.Items, Piece(members[i], '^', 1)) then + alist.Items.Add(members[i]); +end; + +procedure TfrmOptionsTeams.MergeList(alist: TORListBox; members: TStrings); +var + i: integer; +begin + for i := alist.Items.Count - 1 downto 0 do + if ItemNotAMember(members, Piece(alist.Items[i], '^', 1)) then + alist.Items.Delete(i); +end; + +function TfrmOptionsTeams.ItemNotAMember(alist: TStrings; listnum: string): boolean; +var + i: integer; +begin + result := true; + for i := 0 to alist.Count - 1 do + if listnum = Piece(alist[i], '^', 1) then + begin + result := false; + break; + end; +end; + +function TfrmOptionsTeams.MemberNotOnList(alist: TStrings; listnum: string): boolean; +var + i: integer; +begin + result := true; + with alist do + for i := 0 to Count - 1 do + if listnum = Piece(alist[i], '^', 1) then + begin + result := false; + break; + end; +end; + +procedure TfrmOptionsTeams.chkPersonalClick(Sender: TObject); +begin + lstTeams.Items.Clear; + if chkPersonal.Checked then + rpcGetAllTeams(lstTeams.Items) + else + rpcGetTeams(lstTeams.Items); + lstTeams.ItemIndex := -1; + lstTeamsClick(self); +end; + +procedure TfrmOptionsTeams.lstTeamsClick(Sender: TObject); +var + i, teamid, cnt: integer; + astrings: TStringList; +begin + lstPatients.Items.Clear; + lstUsers.Items.Clear; + chkRestrict.Enabled := lstTeams.SelCount > 1; + astrings := TStringList.Create; + cnt := 0; + with lstTeams do + begin + for i := 0 to Items.Count - 1 do + if Selected[i] then + begin + inc(cnt); + teamid := strtointdef(Piece(Items[i], '^', 1), 0); + if (cnt > 1) and chkRestrict.Checked then + begin + ListPtByTeam(astrings, teamid); + MergeList(lstPatients, astrings); + rpcListUsersByTeam(astrings, teamid); + MergeList(lstUsers, astrings); + end + else + begin + ListPtByTeam(astrings, teamid); + if astrings.Count = 1 then // don't fill the '^No patients found.' msg + begin + if Piece(astrings[0], '^', 1) <> '' then + FillList(lstPatients, astrings); + end + else + FillList(lstPatients, astrings); + rpcListUsersByTeam(astrings, teamid); + FillList(lstUsers, astrings); + end; + end; + btnRemove.Enabled := (SelCount = 1) + and (Piece(Items[ItemIndex], '^', 3) <> 'P') + and (Piece(Items[ItemIndex], '^', 7) = 'Y'); + if SelCount > 0 then + begin + if lstPatients.Items.Count = 0 then + lstPatients.Items.Add('^No patients found.'); + if lstUsers.Items.Count = 0 then + lstUsers.Items.Add('^No team members found.'); + end; + end; + astrings.Free; +end; + +procedure TfrmOptionsTeams.chkRestrictClick(Sender: TObject); +begin + lstTeamsClick(self); +end; + +procedure TfrmOptionsTeams.cboSubscribeClick(Sender: TObject); +begin + FKeyBoarding := False +end; + +procedure TfrmOptionsTeams.btnRemoveClick(Sender: TObject); +begin + with lstTeams do + if InfoBox('Do you want to remove yourself from ' + + Piece(Items[ItemIndex], '^', 2) + '?', + 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + begin + rpcRemoveList(ItemIEN); + Items.Delete(ItemIndex); + lstTeamsClick(self); + FillATeams; + end; +end; + +procedure TfrmOptionsTeams.mnuPatientIDClick(Sender: TObject); +begin + DisplayPtInfo(lstPatients.ItemID); +end; + +procedure TfrmOptionsTeams.lstPatientsMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + mnuPopPatient.AutoPopup := (lstPatients.Items.Count > 0) + and (lstPatients.ItemIndex > -1) + and (Button = mbRight); +end; + +procedure TfrmOptionsTeams.cboSubscribeKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + case Key of VK_RETURN: + if (cboSubscribe.ItemIndex > -1) then + begin + FKeyBoarding := False; + cboSubscribeMouseClick(self); // Provide onmouseclick behavior. + end; + else + FKeyBoarding := True; // Suppress onmouseclick behavior. + end; +end; + +procedure TfrmOptionsTeams.cboSubscribeMouseClick(Sender: TObject); +begin + if FKeyBoarding then + FKeyBoarding := False + else + begin + with cboSubscribe do + if ItemIndex < 0 then + exit + else if InfoBox('Do you want to join ' + + Piece(Items[ItemIndex], '^', 2) + '?', + 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + begin + rpcAddList(ItemIEN); + lstTeams.Items.Add(Items[ItemIndex]); + Items.Delete(ItemIndex); + ItemIndex := -1; + Text := ''; + Enabled := Items.Count > 0; + lblSubscribe.Enabled := Items.Count > 0; + end + else + begin + ItemIndex := -1; + Text := ''; + end; + end; +end; + +end. diff --git a/CPRS-Chart/Options/fOptionsTitles.dfm b/CPRS-Chart/Options/fOptionsTitles.dfm new file mode 100644 index 0000000..7b33c54 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsTitles.dfm @@ -0,0 +1,262 @@ +object frmOptionsTitles: TfrmOptionsTitles + Left = 271 + Top = 271 + HelpContext = 9230 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsSingle + Caption = 'Document Titles' + ClientHeight = 237 + ClientWidth = 527 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HelpFile = 'CPRSWT.HLP' + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblDocumentClass: TLabel + Left = 8 + Top = 17 + Width = 79 + Height = 13 + Caption = 'Document class:' + end + object lblDocumentTitles: TLabel + Left = 8 + Top = 57 + Width = 76 + Height = 13 + Caption = 'Document titles:' + end + object lblYourTitles: TLabel + Left = 299 + Top = 78 + Width = 76 + Height = 13 + Caption = 'Your list of titles:' + end + object lblDefaultTitle: TStaticText + Left = 299 + Top = 43 + Width = 41 + Height = 17 + Caption = 'Default:' + TabOrder = 10 + end + object lblDefault: TStaticText + Left = 299 + Top = 59 + Width = 108 + Height = 17 + Caption = '' + ShowAccelChar = False + TabOrder = 11 + end + object lblDocumentPreference: TStaticText + Left = 199 + Top = 6 + Width = 132 + Height = 17 + Caption = 'Document List Preferences' + TabOrder = 12 + end + object cboDocumentClass: TORComboBox + Left = 8 + Top = 31 + Width = 200 + Height = 21 + HelpContext = 9231 + Style = orcsDropDown + AutoSelect = True + Caption = 'Document class' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + OnClick = cboDocumentClassClick + end + object lstYourTitles: TORListBox + Left = 299 + Top = 93 + Width = 200 + Height = 108 + HelpContext = 9237 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + TabOrder = 6 + OnClick = lstYourTitlesClick + OnDblClick = btnRemoveClick + Caption = 'Your list of titles' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + OnChange = lstYourTitlesChange + end + object btnAdd: TButton + Left = 211 + Top = 93 + Width = 85 + Height = 22 + HelpContext = 9233 + Caption = 'Add' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = btnAddClick + end + object btnRemove: TButton + Left = 211 + Top = 121 + Width = 85 + Height = 22 + HelpContext = 9234 + Caption = 'Remove' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnClick = btnRemoveClick + end + object btnDefault: TButton + Left = 211 + Top = 178 + Width = 85 + Height = 22 + HelpContext = 9236 + Caption = 'Set as Default' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 5 + OnClick = btnDefaultClick + end + object btnSaveChanges: TButton + Left = 211 + Top = 150 + Width = 85 + Height = 22 + HelpContext = 9235 + Caption = 'Save Changes' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + OnClick = btnSaveChangesClick + end + object pnlBottom: TPanel + Left = 0 + Top = 204 + Width = 527 + Height = 33 + HelpContext = 9110 + Align = alBottom + BevelOuter = bvNone + ParentColor = True + TabOrder = 9 + object bvlBottom: TBevel + Left = 0 + Top = 0 + Width = 527 + Height = 2 + Align = alTop + end + object btnOK: TButton + Left = 367 + Top = 7 + Width = 75 + Height = 22 + HelpContext = 9996 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 448 + Top = 7 + Width = 75 + Height = 22 + HelpContext = 9997 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + end + object cboDocumentTitles: TORComboBox + Left = 8 + Top = 72 + Width = 200 + Height = 129 + HelpContext = 9232 + Style = orcsSimple + AutoSelect = True + Caption = 'Document titles' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 1 + OnChange = cboDocumentTitlesChange + OnDblClick = btnAddClick + OnNeedData = cboDocumentTitlesNeedData + end + object btnUp: TButton + Left = 504 + Top = 110 + Width = 22 + Height = 22 + HelpContext = 9021 + Caption = '^' + TabOrder = 7 + OnClick = btnUpClick + end + object btnDown: TButton + Left = 504 + Top = 150 + Width = 22 + Height = 22 + HelpContext = 9022 + Caption = 'v' + TabOrder = 8 + OnClick = btnDownClick + end +end diff --git a/CPRS-Chart/Options/fOptionsTitles.pas b/CPRS-Chart/Options/fOptionsTitles.pas new file mode 100644 index 0000000..fd149f6 --- /dev/null +++ b/CPRS-Chart/Options/fOptionsTitles.pas @@ -0,0 +1,437 @@ +unit fOptionsTitles; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, StdCtrls, ORCtrls, ORFn; + +type + TfrmOptionsTitles = class(TForm) + lblDocumentClass: TLabel; + lblDocumentTitles: TLabel; + lblYourTitles: TLabel; + lblDefaultTitle: TStaticText; + lblDefault: TStaticText; + cboDocumentClass: TORComboBox; + lstYourTitles: TORListBox; + btnAdd: TButton; + btnRemove: TButton; + btnDefault: TButton; + btnSaveChanges: TButton; + pnlBottom: TPanel; + bvlBottom: TBevel; + btnOK: TButton; + btnCancel: TButton; + cboDocumentTitles: TORComboBox; + lblDocumentPreference: TStaticText; + btnUp: TButton; + btnDown: TButton; + procedure FormShow(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure cboDocumentClassClick(Sender: TObject); + procedure cboDocumentTitlesNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + procedure btnSaveChangesClick(Sender: TObject); + procedure btnDefaultClick(Sender: TObject); + procedure btnAddClick(Sender: TObject); + procedure lstYourTitlesChange(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure cboDocumentTitlesChange(Sender: TObject); + procedure btnUpClick(Sender: TObject); + procedure btnDownClick(Sender: TObject); + function GetFirstSelection(aList: TORListBox): integer; + procedure SetItem(aList: TORListBox; index: integer); + procedure RemoveSelected; + procedure lstYourTitlesClick(Sender: TObject); + private + { Private declarations } + FLastClass: integer; + procedure AddIfUnique(entry: string; aList: TORListBox); + function MemberNotOnList(alist: TStrings; listnum: string): boolean; + procedure CheckEnable; + public + { Public declarations } + end; + +var + frmOptionsTitles: TfrmOptionsTitles; + +procedure DialogOptionsTitles(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); + +implementation + +{$R *.DFM} + +uses + rOptions, uOptions, rCore, rTIU, rConsults, rDCSumm; + +procedure DialogOptionsTitles(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); +// create the form and make it modal, return an action +var + frmOptionsTitles: TfrmOptionsTitles; +begin + frmOptionsTitles := TfrmOptionsTitles.Create(Application); + actiontype := 0; + try + with frmOptionsTitles do + begin + if (topvalue < 0) or (leftvalue < 0) then + Position := poScreenCenter + else + begin + Position := poDesigned; + Top := topvalue; + Left := leftvalue; + end; + ResizeAnchoredFormToFont(frmOptionsTitles); + ShowModal; + actiontype := btnOK.Tag; + end; + finally + frmOptionsTitles.Release; + end; +end; + +procedure TfrmOptionsTitles.FormShow(Sender: TObject); +var + i: integer; +begin + FLastClass := -1; + with cboDocumentClass do + begin + Items.Assign(rpcGetClasses); + Items.Add(IntToStr(IdentifyConsultsClass) + U + 'Consults'); + for i := 0 to Items.Count - 1 do + if Piece(Items[i], '^', 2) = 'Progress Notes' then + begin + ItemIndex := i; + FLastClass := ItemIndex; + break; + end; + end; + cboDocumentClassClick(self); +end; + +procedure TfrmOptionsTitles.btnOKClick(Sender: TObject); +begin + if btnSaveChanges.Enabled then + btnSaveChangesClick(self); + ResetTIUPreferences; + ResetDCSummPreferences; +end; + +procedure TfrmOptionsTitles.cboDocumentClassClick(Sender: TObject); +var + aList: TStringList; + defaultIEN: integer; +begin + if btnSaveChanges.Enabled then + begin + if InfoBox('Do you want to save changes to your ' + + Piece(cboDocumentClass.Items[FLastClass], '^', 2) + ' defaults?', + 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + btnSaveChangesClick(self); + end; + cboDocumentTitles.Text := ''; + cboDocumentTitles.InitLongList(''); + aList := TStringList.Create; + with lstYourTitles do + begin + aList.Assign(rpcGetTitlesForUser(cboDocumentClass.ItemIEN)); + SortByPiece(aList, '^', 3); + Items.Assign(aList); + defaultIEN := rpcGetTitleDefault(cboDocumentClass.ItemIEN); + if defaultIEN > 0 then SelectByIEN(defaultIEN) + else ItemIndex := -1; + if ItemIndex > -1 then + begin + lblDefault.Caption := DisplayText[ItemIndex]; + lblDefault.Tag := ItemIEN; + end + else + begin + lblDefault.Caption := ''; + lblDefault.Tag := 0; + end; + end; + lstYourTitlesChange(self); + btnSaveChanges.Enabled := false; + FLastClass := cboDocumentClass.ItemIndex; + aList.Free; + CheckEnable; +end; + +procedure TfrmOptionsTitles.cboDocumentTitlesNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + with cboDocumentTitles do + begin + HideSynonyms := (cboDocumentClass.ItemIEN <> CLS_PROGRESS_NOTES); + ForDataUse(rpcGetTitlesForClass(cboDocumentClass.ItemIEN, StartFrom, Direction)); + end; +end; + +procedure TfrmOptionsTitles.btnSaveChangesClick(Sender: TObject); +var + classnum: integer; +begin + classnum := strtointdef(Piece(cboDocumentClass.Items[FLastClass], '^', 1), 0); + if classnum > 0 then + begin + rpcSaveDocumentDefaults(classnum, lblDefault.Tag, lstYourTitles.Items); + btnSaveChanges.Enabled := false; + if classnum = CLS_PROGRESS_NOTES then ResetNoteTitles + else if classnum = CLS_DC_SUMM then ResetDCSummTitles + else if classnum = IdentifyConsultsClass then ResetConsultTitles + else if classnum = IdentifyClinProcClass then ResetClinProcTitles; + end; +end; + +procedure TfrmOptionsTitles.btnDefaultClick(Sender: TObject); +begin + with lstYourTitles do + if ItemIndex > -1 then + begin + if btnDefault.Caption = 'Set as Default' then + begin + lblDefault.Caption := DisplayText[ItemIndex]; + lblDefault.Tag := ItemIEN; + btnDefault.Caption := 'Remove Default'; + end + else + begin + lblDefault.Caption := ''; + lblDefault.Tag := 0; + btnDefault.Caption := 'Set as Default'; + end; + btnDefault.Enabled := true; + end + else + begin + lblDefault.Caption := ''; + lblDefault.Tag := 0; + btnDefault.Enabled := false; + end; + btnSaveChanges.Enabled := true; +end; + +procedure TfrmOptionsTitles.btnAddClick(Sender: TObject); +begin + AddIfUnique(cboDocumentTitles.Items[cboDocumentTitles.ItemIndex], lstYourTitles); + lstYourTitles.SelectByIEN(cboDocumentTitles.ItemIEN); + btnSaveChanges.Enabled := true; + btnAdd.Enabled := false; + CheckEnable; +end; + +procedure TfrmOptionsTitles.lstYourTitlesChange(Sender: TObject); +begin + with btnDefault do + begin + if lstYourTitles.SelCount = 1 then + begin + if lstYourTitles.ItemIEN = lblDefault.Tag then + Caption := 'Remove Default' + else + Caption := 'Set as Default'; + Enabled := true; + end + else + Enabled := false; + end; + //CheckEnable; // ?? causes access violation +end; + +procedure TfrmOptionsTitles.btnRemoveClick(Sender: TObject); +var + index: integer; +begin + index := GetFirstSelection(lstYourTitles); + RemoveSelected; + SetItem(lstYourTitles, index); + CheckEnable; + if lstYourTitles.Items.Count = 0 then + begin + btnDefault.Enabled := false; + btnRemove.Enabled := false; + end + else + lstYourTitlesChange(self); + btnSaveChanges.Enabled := true; +end; + +procedure TfrmOptionsTitles.AddIfUnique(entry: string; aList: TORListBox); +var + i: integer; + ien: string; + inlist: boolean; +begin + ien := Piece(entry, '^', 1); + inlist := false; + with aList do + for i := 0 to Items.Count - 1 do + if ien = Piece(Items[i], '^', 1) then + begin + inlist := true; + break; + end; + if not inlist then + aList.Items.Add(entry); +end; + +function TfrmOptionsTitles.MemberNotOnList(alist: TStrings; listnum: string): boolean; +var + i: integer; +begin + result := true; + with alist do + for i := 0 to Count - 1 do + if listnum = Piece(alist[i], '^', 1) then + begin + result := false; + break; + end; +end; + +procedure TfrmOptionsTitles.cboDocumentTitlesChange(Sender: TObject); +begin + CheckEnable; +end; + +procedure TfrmOptionsTitles.btnUpClick(Sender: TObject); +var + newindex, i: integer; +begin + with lstYourTitles do + begin + i := 0; + while i < Items.Count do + begin + if Selected[i] then + begin + newindex := i - 1; + Items.Move(i, newindex); + Selected[newindex] := true; + end; + inc(i) + end; + end; + btnSaveChanges.Enabled := true; + CheckEnable; + lstYourTitlesChange(self); +end; + +procedure TfrmOptionsTitles.btnDownClick(Sender: TObject); +var + newindex, i: integer; +begin + with lstYourTitles do + begin + i := Items.Count - 1; + while i > -1 do + begin + if Selected[i] then + begin + newindex := i + 1; + Items.Move(i, newindex); + Selected[newindex] := true; + end; + dec(i) + end; + end; + btnSaveChanges.Enabled := true; + CheckEnable; + lstYourTitlesChange(self); +end; + +function TfrmOptionsTitles.GetFirstSelection(aList: TORListBox): integer; +begin + for result := 0 to aList.Items.Count - 1 do + if aList.Selected[result] then exit; + result := LB_ERR; +end; + +procedure TfrmOptionsTitles.SetItem(aList: TORListBox; index: integer); +var + maxindex: integer; +begin + with aList do + begin + SetFocus; + maxindex := aList.Items.Count - 1; + if Index = LB_ERR then + Index := 0 + else if Index > maxindex then Index := maxindex; + Selected[index] := true; + end; + //CheckEnable; +end; + +procedure TfrmOptionsTitles.RemoveSelected; +var + i: integer; +begin + for i := lstYourTitles.Items.Count - 1 downto 0 do + begin + if lstYourTitles.Selected[i] then + begin + if strtoint(Piece(lstYourTitles.Items[i], '^' ,1)) = lblDefault.Tag then + begin + lblDefault.Caption := ''; + lblDefault.Tag := 0; + btnDefault.Enabled := false; + end; + lstYourTitles.Items.Delete(i); + end; + end; +end; + +procedure TfrmOptionsTitles.CheckEnable; +// allow buttons to be enabled or not depending on selections +var + astring: string; +begin + with lstYourTitles do + begin + if Items.Count > 0 then + begin + if SelCount > 0 then + begin + btnUp.Enabled := (SelCount > 0) + and (not Selected[0]); + btnDown.Enabled := (SelCount > 0) + and (not Selected[Items.Count - 1]); + btnRemove.Enabled := true; + end + else + begin + btnUp.Enabled := false; + btnDown.Enabled := false; + btnRemove.Enabled := false; + end; + end + else + begin + btnUp.Enabled := false; + btnDown.Enabled := false; + btnRemove.Enabled := false; + end; + end; + with cboDocumentTitles do + if ItemIndex > -1 then + begin + astring := ItemID; + btnAdd.Enabled := MemberNotOnList(lstYourTitles.Items, astring); + end + else + btnAdd.Enabled := false; +end; + +procedure TfrmOptionsTitles.lstYourTitlesClick(Sender: TObject); +begin + lstYourTitlesChange(self); // need to check default + CheckEnable; +end; + +end. diff --git a/CPRS-Chart/Options/rOptions.pas b/CPRS-Chart/Options/rOptions.pas new file mode 100644 index 0000000..5b30ae9 --- /dev/null +++ b/CPRS-Chart/Options/rOptions.pas @@ -0,0 +1,591 @@ +unit rOptions; + +interface + +uses SysUtils, Classes, ORNet, ORFn, uCore, rCore, rTIU, rConsults; + +function rpcGetNotifications: TStrings; +function rpcGetOrderChecks: TStrings; +function rpcGetNotificationDefaults: String; +function rpcGetSurrogateInfo: String; +procedure rpcCheckSurrogate(surrogate: Int64; var ok: boolean; var msg: string); +procedure rpcSetSurrogateInfo(aString: String); +procedure rpcClearNotifications; +procedure rpcSetNotifications(aList: TStringList); +procedure rpcSetOrderChecks(aList: TStringList); +procedure rpcSetOtherStuff(aString: String); + +function rpcGetOtherTabs: TStrings; +function rpcGetOther: String; +procedure rpcSetOther(info: String); +function rpcGetCosigners(const StartFrom: string; Direction: Integer): TStrings; +function rpcGetDefaultCosigner: String; +procedure rpcSetDefaultCosigner(value: Int64); +function rpcGetSubject: boolean; +procedure rpcSetSubject(value: boolean); +function rpcGetClasses: TStrings; +function rpcGetTitlesForClass(value: integer; const StartFrom: string; Direction: Integer): TStrings; +function rpcGetTitlesForUser(value: integer): TStrings; +function rpcGetTitleDefault(value: integer): integer; +procedure rpcSaveDocumentDefaults(classvalue, titledefault: integer; aList: TStrings); + +procedure rpcGetLabDays(var InpatientDays: integer; var OutpatientDays: integer); +procedure rpcGetLabUserDays(var InpatientDays: integer; var OutpatientDays: integer); +procedure rpcGetApptDays(var StartDays: integer; var StopDays: integer); +procedure rpcGetApptUserDays(var StartDays: integer; var StopDays: integer); +procedure rpcSetDays(InpatientDays, OutpatientDays, StartDays, StopDays: integer); +procedure rpcGetImagingDays(var MaxNum: integer; var StartDays: integer; var StopDays: integer); +procedure rpcGetImagingUserDays(var MaxNum: integer; var StartDays: integer; var StopDays: integer); +procedure rpcSetImagingDays(MaxNum, StartDays, StopDays: integer); + +procedure rpcGetReminders(Dest: TStrings); +procedure rpcSetReminders(aList: TStringList); + +function rpcGetListOrder: Char; +procedure rpcGetClinicUserDays(var StartDays: integer; var StopDays: integer); +procedure rpcGetClinicDefaults(var mon, tues, wed, thurs, fri, sat, sun: integer); +procedure rpcGetListSourceDefaults(var provider, treating, list, ward: integer); +procedure rpcSetClinicDefaults(StartDays, StopDays, mon, tues, wed, thurs, fri, sat, sun: integer); +procedure rpcSetPtListDefaults(PLSource, PLSort: Char; prov, spec, team, ward: integer); + +procedure rpcGetPersonalLists(Dest: TStrings); +procedure rpcGetAllTeams(Dest: TStrings); +procedure rpcGetTeams(Dest: TStrings); +procedure rpcGetATeams(Dest: TStrings); +procedure rpcDeleteList(aString: String); +function rpcNewList(aString: String): String; +procedure rpcSaveListChanges(aList: TStrings; aListIEN: integer); +procedure rpcListUsersByTeam(Dest: TStrings; teamid: integer); +procedure rpcRemoveList(aListIEN: integer); +procedure rpcAddList(aListIEN: integer); + +function rpcGetCombo: TStrings; +procedure rpcSetCombo(aList: TStrings); + +procedure rpcGetDefaultReportsSetting(var int1: integer; var int2: integer; var int3: integer); +procedure rpcDeleteUserLevelReportsSetting; +procedure rpcActiveDefaultSetting; +procedure rpcSetDefaultReportsSetting(aString: string); +procedure rpcSetIndividualReportSetting(aString1:string; aString2:string); +procedure rpcRetrieveDefaultSetting(var int1: integer; var int2: integer; var int3: integer; var msg: string); + +procedure rpcGetRangeForMeds(var startDt, stopDt: TFMDateTime); +procedure rpcPutRangeForMeds(TheVal: string); +procedure rpcGetRangeForEncs(var StartDays, StopDays: integer; DefaultParams: Boolean); +procedure rpcPutRangeForEncs(StartDays, StopDays: string); +procedure rpcGetEncFutureDays(var FutureDays: string); + +implementation + +//.............................................................................. + +function rpcGetNotifications: TStrings; +begin + CallV('ORWTPP GETNOT', [nil]); + MixedCaseList(RPCBrokerV.Results); + result :=RPCBrokerV.Results; +end; + +function rpcGetOrderChecks: TStrings; +begin + CallV('ORWTPP GETOC', [nil]); + MixedCaseList(RPCBrokerV.Results); + result :=RPCBrokerV.Results; +end; + +function rpcGetNotificationDefaults: String; +begin + result := sCallV('ORWTPP GETNOTO', [nil]); +end; + +function rpcGetSurrogateInfo: String; +begin + result := MixedCase(sCallV('ORWTPP GETSURR', [nil])); +end; + +procedure rpcCheckSurrogate(surrogate: Int64; var ok: boolean; var msg: string); +var + value: string; +begin + value := sCallV('ORWTPP CHKSURR', [surrogate]); + ok := Piece(value, '^', 1) = '1'; + msg := Piece(value, '^', 2); +end; + +procedure rpcSetSurrogateInfo(aString: String); +begin + CallV('ORWTPP SAVESURR', [aString]); +end; + + +procedure rpcClearNotifications; +begin + CallV('ORWTPP CLEARNOT', [nil]); +end; + +procedure rpcSetNotifications(aList: TStringList); +begin + CallV('ORWTPP SAVENOT', [aList]); +end; + +procedure rpcSetOrderChecks(aList: TStringList); +begin + CallV('ORWTPP SAVEOC', [aList]); +end; + +procedure rpcSetOtherStuff(aString: String); +begin + CallV('ORWTPP SAVENOTO', [aString]); +end; + +//.............................................................................. + +function rpcGetOtherTabs: TStrings; +begin + CallV('ORWTPO GETTABS', [nil]); + MixedCaseList(RPCBrokerV.Results); + result :=RPCBrokerV.Results; +end; + +function rpcGetOther: String; +begin + result := sCallV('ORWTPP GETOTHER', [nil]); +end; + +procedure rpcSetOther(info: String); +begin + CallV('ORWTPP SETOTHER', [info]); +end; + +function rpcGetCosigners(const StartFrom: string; Direction: Integer): TStrings; +begin + CallV('ORWTPP GETCOS', [StartFrom, Direction]); + MixedCaseList(RPCBrokerV.Results); + Result := RPCBrokerV.Results; +end; + +function rpcGetDefaultCosigner: String; +begin + result := sCallV('ORWTPP GETDCOS', [nil]); +end; + +procedure rpcSetDefaultCosigner(value: Int64); +begin + CallV('ORWTPP SETDCOS', [value]) +end; + +function rpcGetSubject: boolean; +var + value: string; +begin + value := sCallV('ORWTPP GETSUB', [nil]); + if value = '1' then result := true + else result := false; +end; + +procedure rpcSetSubject(value: boolean); +begin + CallV('ORWTPP SETSUB', [value]) +end; + +function rpcGetClasses: TStrings; +begin + CallV('ORWTPN GETCLASS', [nil]); + MixedCaseList(RPCBrokerV.Results); + result :=RPCBrokerV.Results; +end; + +function rpcGetTitlesForClass(value: integer; const StartFrom: string; Direction: Integer): TStrings; +begin +(* case value of + CLS_PROGRESS_NOTES: CallV('TIU LONG LIST OF TITLES', [value, StartFrom, Direction]); + else + CallV('ORWTPN GETTC', [value, StartFrom, Direction]); //****** original + end;*) + CallV('TIU LONG LIST OF TITLES', [value, StartFrom, Direction]); + //MixedCaseList(RPCBrokerV.Results); + result :=RPCBrokerV.Results; +end; + +function rpcGetTitlesForUser(value: integer): TStrings; +begin + CallV('ORWTPP GETTU', [value]); + //MixedCaseList(RPCBrokerV.Results); + result :=RPCBrokerV.Results; +end; + +function rpcGetTitleDefault(value: integer): integer; +begin + result := strtointdef(sCallV('ORWTPP GETTD', [value]), -1); +end; + +procedure rpcSaveDocumentDefaults(classvalue, titledefault: integer; aList: TStrings); +begin + CallV('ORWTPP SAVET', [classvalue, titledefault, aList]); +end; + +//.............................................................................. + +procedure rpcGetLabDays(var InpatientDays: integer; var OutpatientDays:integer); +var + values: string; +begin + values := sCallV('ORWTPO CSLABD', [nil]); + InpatientDays := strtointdef(Piece(values, '^', 1), 0); + OutpatientDays := strtointdef(Piece(values, '^', 2), 0); +end; + +procedure rpcGetLabUserDays(var InpatientDays: integer; var OutpatientDays: integer); +var + values: string; +begin + values := sCallV('ORWTPP CSLAB', [nil]); + InpatientDays := -strtointdef(Piece(values, '^', 1), 0); + OutpatientDays := -strtointdef(Piece(values, '^', 2), 0); +end; + +procedure rpcGetApptDays(var StartDays: integer; var StopDays: integer); +var + values, start, stop: string; +begin + values := sCallV('ORWTPD1 GETCSDEF', [nil]); + start := Piece(values, '^', 1); + stop := Piece(values, '^', 2); + StartDays := strtointdef(Piece(start, 'T', 2), 0); + StopDays := strtointdef(Piece(stop, 'T', 2), 0); +end; + +procedure rpcGetApptUserDays(var StartDays: integer; var StopDays: integer); +var + values, start, stop: string; +begin + values := sCallV('ORWTPD1 GETCSRNG', [nil]); + start := Piece(values, '^', 1); + stop := Piece(values, '^', 2); + StartDays := strtointdef(Piece(start, 'T', 2), 0); + StopDays := strtointdef(Piece(stop, 'T', 2), 0); +end; + +procedure rpcSetDays(InpatientDays, OutpatientDays, StartDays, StopDays: integer); +var + values: string; +begin + values := ''; + values := values + inttostr(InpatientDays) + '^'; + values := values + inttostr(OutpatientDays) + '^'; + values := values + inttostr(StartDays) + '^'; + values := values + inttostr(StopDays) + '^'; + CallV('ORWTPD1 PUTCSRNG', [values]); +end; + +procedure rpcGetImagingDays(var MaxNum: integer; var StartDays: integer; var StopDays: integer); +var + values, max, start, stop: string; +begin + values := sCallV('ORWTPO GETIMGD', [nil]); + //values := 'T-120;T;;;100'; + start := Piece(values, ';', 1); + stop := Piece(values, ';', 2); + max := Piece(values, ';', 5); + StartDays := strtointdef(Piece(start, 'T', 2), 0); + StopDays := strtointdef(Piece(stop, 'T', 2), 0); + MaxNum := strtointdef(max, 0); +end; + +procedure rpcGetImagingUserDays(var MaxNum: integer; var StartDays: integer; var StopDays: integer); +var + values, max, start, stop: string; +begin + values := sCallV('ORWTPP GETIMG', [nil]); + //values := 'T-180;T;;;15'; + start := Piece(values, ';', 1); + stop := Piece(values, ';', 2); + max := Piece(values, ';', 5); + StartDays := strtointdef(Piece(start, 'T', 2), 0); + StopDays := strtointdef(Piece(stop, 'T', 2), 0); + MaxNum := strtointdef(max, 0); +end; + +procedure rpcSetImagingDays(MaxNum, StartDays, StopDays: integer); +begin + CallV('ORWTPP SETIMG', [MaxNum, StartDays, StopDays]); +end; + +//.............................................................................. + +procedure rpcGetReminders(Dest: TStrings); +begin + CallV('ORWTPP GETREM', [nil]); + MixedCaseList(RPCBrokerV.Results); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure rpcSetReminders(aList: TStringList); +begin + CallV('ORWTPP SETREM', [aList]); +end; + +//.............................................................................. + +function rpcGetListOrder: Char; +begin + result := CharAt(sCallV('ORWTPP SORTDEF', [nil]), 1); +end; + +procedure rpcGetClinicUserDays(var StartDays: integer; var StopDays: integer); +var + values, start, stop: string; +begin + values := sCallV('ORWTPP CLRANGE', [nil]); + start := Piece(values, '^', 1); + stop := Piece(values, '^', 2); + StartDays := strtointdef(Piece(start, 'T', 2), 0); + StopDays := strtointdef(Piece(stop, 'T', 2), 0); +end; + +procedure rpcGetClinicDefaults(var mon, tues, wed, thurs, fri, sat, sun: integer); +var + values: string; +begin + values := sCallV('ORWTPP CLDAYS', [nil]); + mon := strtointdef(Piece(values, '^', 1), 0); + tues := strtointdef(Piece(values, '^', 2), 0); + wed := strtointdef(Piece(values, '^', 3), 0); + thurs := strtointdef(Piece(values, '^', 4), 0); + fri := strtointdef(Piece(values, '^', 5), 0); + sat := strtointdef(Piece(values, '^', 6), 0); + sun := strtointdef(Piece(values, '^', 7), 0); +end; + +procedure rpcGetListSourceDefaults(var provider, treating, list, ward: integer); +var + values: string; +begin + values := sCallV('ORWTPP LSDEF', [nil]); + provider := strtointdef(Piece(values, '^', 1), 0); + treating := strtointdef(Piece(values, '^', 2), 0); + list := strtointdef(Piece(values, '^', 3), 0); + ward := strtointdef(Piece(values, '^', 4), 0); +end; + +procedure rpcSetClinicDefaults(StartDays, StopDays, mon, tues, wed, thurs, fri, sat, sun: integer); +var + values: string; +begin + values := ''; + values := values + inttostr(StartDays) + '^'; + values := values + inttostr(StopDays) + '^'; + values := values + inttostr(mon) + '^'; + values := values + inttostr(tues) + '^'; + values := values + inttostr(wed) + '^'; + values := values + inttostr(thurs) + '^'; + values := values + inttostr(fri) + '^'; + values := values + inttostr(sat) + '^'; + values := values + inttostr(sun) + '^'; + CallV('ORWTPP SAVECD', [values]); +end; + +procedure rpcSetPtListDefaults(PLSource, PLSort: Char; prov, spec, team, ward: integer); +var + values: string; +begin + values := ''; + values := values + PLSource + '^'; + values := values + PLSort + '^'; + values := values + inttostr(prov) + '^'; + values := values + inttostr(spec) + '^'; + values := values + inttostr(team) + '^'; + values := values + inttostr(ward) + '^'; + CallV('ORWTPP SAVEPLD', [values]); +end; + +//.............................................................................. + +procedure rpcGetPersonalLists(Dest: TStrings); +begin + CallV('ORWTPP PLISTS', [nil]); + MixedCaseList(RPCBrokerV.Results); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure rpcGetAllTeams(Dest: TStrings); +begin + CallV('ORWTPP PLTEAMS', [nil]); + MixedCaseList(RPCBrokerV.Results); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure rpcGetTeams(Dest: TStrings); +begin + CallV('ORWTPP TEAMS', [nil]); + MixedCaseList(RPCBrokerV.Results); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure rpcGetATeams(Dest: TStrings); +begin + CallV('ORWTPT ATEAMS', [nil]); + MixedCaseList(RPCBrokerV.Results); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure rpcDeleteList(aString: String); +begin + CallV('ORWTPP DELLIST', [aString]); +end; + +function rpcNewList(aString: String): String; +begin + result := sCallV('ORWTPP NEWLIST', [aString]); + result := MixedCase(result); +end; + +procedure rpcSaveListChanges(aList: TStrings; aListIEN: integer); +begin + CallV('ORWTPP SAVELIST', [aList, aListIEN]); +end; + +procedure rpcListUsersByTeam(Dest: TStrings; teamid: integer); +begin + CallV('ORWTPT GETTEAM', [teamid]); + MixedCaseList(RPCBrokerV.Results); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure rpcRemoveList(aListIEN: integer); +begin + CallV('ORWTPP REMLIST', [aListIEN]); +end; + +procedure rpcAddList(aListIEN: integer); +begin + CallV('ORWTPP ADDLIST', [aListIEN]); +end; + +//.............................................................................. + +function rpcGetCombo: TStrings; +begin + CallV('ORWTPP GETCOMBO', [nil]); + MixedCaseList(RPCBrokerV.Results); + result := RPCBrokerV.Results; +end; + +procedure rpcSetCombo(aList: TStrings); +begin + CallV('ORWTPP SETCOMBO', [aList]); +end; + +//.............................................................................. + +procedure rpcGetDefaultReportsSetting(var int1: integer; var int2: integer; var int3: integer); +var + values: string; + startoffset,stopoffset: string; +begin + values := sCallV('ORWTPD GETDFLT', [nil]); + if length(values)=0 then + exit; + startoffset := Piece(values,';',1); + delete(startoffset,1,1); + stopoffset := Piece(values,';',2); + delete(stopoffset,1,1); + int1 := strtointdef(startoffset,0); + int2 := strtointdef(stopoffset,0); + int3:= strtointdef(Piece(values, ';', 3), 100); // max occurences +end; + +procedure rpcDeleteUserLevelReportsSetting; +begin + sCallV('ORWTPD DELDFLT',[nil]); +end; + +procedure rpcActiveDefaultSetting; +begin + sCallV('ORWTPD ACTDF',[nil]); +end; + +procedure rpcSetDefaultReportsSetting(aString: string); +begin + sCallV('ORWTPD SUDF',[aString]); +end; + +procedure rpcSetIndividualReportSetting(aString1:string; aString2:string); +begin + sCallV('ORWTPD SUINDV',[aString1,aString2]); +end; + +procedure rpcRetrieveDefaultSetting(var int1: integer; var int2: integer; var int3: integer; var msg: string); +var + values: string; + startoffset,stopoffset: string; +begin + values := sCallV('ORWTPD RSDFLT',[nil]); + if length(values)=0 then + begin + msg := 'NODEFAULT'; + exit; + end; + startoffset := Piece(values,';',1); + delete(startoffset,1,1); + stopoffset := Piece(values,';',2); + delete(stopoffset,1,1); + int1 := strtointdef(startoffset,0); + int2 := strtointdef(stopoffset,0); + int3:= strtointdef(Piece(values, ';', 3), 100); // max occurences +end; + +procedure rpcGetRangeForMeds(var startDt, stopDt: TFMDateTime); +var + rst,sDt,eDt: string; + td: TFMDateTime; +begin + rst := SCallV('ORWTPD GETOCM',[nil]); + sDt := Piece(rst,';',1); + if lowerCase(sDt) <> 't' then + Delete(sDt,1,1); + eDt := Piece(rst,';',2); + if lowerCase(eDt) <> 't' then + Delete(eDt,1,1); + td := FMToday; + if Length(sDt)>0 then + startDt := FMDateTimeOffsetBy(td, StrToIntDef(sDt,0)); + if Length(eDt)>0 then + stopDt := FMDateTimeOffsetBy(td, StrToIntDef(eDt,0)); +end; + +procedure rpcPutRangeForMeds(TheVal: string); +begin + SCallV('ORWTPD PUTOCM',[TheVal]); +end; + +procedure rpcGetRangeForEncs(var StartDays, StopDays: integer; DefaultParams: Boolean); +var + Start, Stop, Values: string; +begin + if DefaultParams then + Values := SCallV('ORWTPD1 GETEFDAT',[nil]) + else + Values := SCallV('ORWTPD1 GETEDATS',[nil]); + Start := Piece(Values, '^', 1); + Stop := Piece(Values, '^', 2); + StartDays := StrToIntDef(Start, 0); + StopDays := StrToIntDef(Stop, 0); +end; + +procedure rpcPutRangeForEncs(StartDays, StopDays: string); +var + values: string; +begin + values := ''; + values := values + StartDays + '^'; + values := values + StopDays; + CallV('ORWTPD1 PUTEDATS',[values]); +end; + +procedure rpcGetEncFutureDays(var FutureDays: string); +begin + FutureDays := SCallV('ORWTPD1 GETEAFL',[nil]); +end; + +end. diff --git a/CPRS-Chart/Options/uOptions.pas b/CPRS-Chart/Options/uOptions.pas new file mode 100644 index 0000000..b81fa5b --- /dev/null +++ b/CPRS-Chart/Options/uOptions.pas @@ -0,0 +1,273 @@ +unit uOptions; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ComCtrls, ORFn; + +type + TSurrogate = class + private + FIEN: Int64; + FName: string; + FStart: TFMDateTime; + FStop: TFMDateTime; + public + property IEN: Int64 read FIEN write FIEN; + property Name: string read FName write FName; + property Start: TFMDateTime read FStart write FStart; + property Stop: TFMDateTime read FStop write FStop; + end; + +function RelativeDate(entry: string): integer; +procedure DateLimits(const limit: integer; var value: integer); +procedure ShowDisplay(editbox: TEdit); +procedure TextExit(editbox: TEdit; var entrycheck: boolean; limitcheck: integer); +procedure LabelSurrogate(surrogateinfo: string; alabel: TStaticText); +procedure DisplayPtInfo(PtID: string); + +const + INVALID_DAYS = -99999; + DAYS_LIMIT = 999; + SELECTION_LIMIT = 999; + +implementation + +uses rCore, fRptBox; + +function RelativeDate(entry: string): integer; +// return the number of days for the entry (e.g. -3 for T - 3) + + function OKToday(value: string): boolean; + // check if value is used as the current date + begin + Result := false; + if value = 'T' then Result := true + else if value = 'TODAY' then Result := true + else if value = 'N' then Result := true + else if value = 'NOW' then Result := true; + end; + + procedure GetMultiplier(var entry: string; var multiplier: integer); + // check if entry has a multiplier on today's date (days, weeks, months, years) + var + lastchar: char; + begin + if (entry = 'NOW') or (entry = 'TODAY') then + begin + multiplier := 1; + exit; + end; + lastchar := entry[length(entry)]; + case lastchar of + 'D': multiplier := 1; + 'W': multiplier := 7; + 'M': multiplier := 30; + 'Y': multiplier := 365; + else multiplier := 0; + end; + if multiplier > 0 then + entry := copy(entry, 0, length(entry) - 1) + else + multiplier := 1; + end; + +var + firstpart, operator: string; + lenfirstpart, multiplier: integer; +begin // begin function RelativeDate + Result := INVALID_DAYS; + entry := Uppercase(entry); + GetMultiplier(entry, multiplier); + if strtointdef(entry, INVALID_DAYS) <> INVALID_DAYS then + begin + Result := strtointdef(entry, INVALID_DAYS); + if Result <> INVALID_DAYS then + Result := Result * multiplier; + exit; + end; + if OKToday(entry) then // process today only + begin + Result := 0; + exit; + end; + firstpart := Piece(entry, ' ', 1); + lenfirstpart := length(firstpart); + if OKToday(firstpart) then // process space + begin + operator := Copy(entry, lenfirstpart + 2, 1); + if (operator = '+') or (operator = '-') then + begin + if Copy(entry, lenfirstpart + 3, 1) = ' ' then + Result := strtointdef(Copy(entry, lenfirstpart + 4, length(entry)), INVALID_DAYS) + else + Result := strtointdef(Copy(entry, lenfirstpart + 3, length(entry)), INVALID_DAYS); + if Result <> INVALID_DAYS then + if Result < 0 then + Result := INVALID_DAYS + else if operator = '-' then + Result := -Result; + end; + if Result <> INVALID_DAYS then + Result := Result * multiplier; + end + else + begin + firstpart := Piece(entry, '+', 1); + lenfirstpart := length(firstpart); + if OKToday(firstpart) then // process + + begin + if Copy(entry, lenfirstpart + 2, 1) = ' ' then + Result := strtointdef(Copy(entry, lenfirstpart + 3, length(entry)), INVALID_DAYS) + else + Result := strtointdef(Copy(entry, lenfirstpart + 2, length(entry)), INVALID_DAYS); + if Result <> INVALID_DAYS then + if Result < 0 then + Result := INVALID_DAYS + end + else + begin + firstpart := Piece(entry, '-', 1); + lenfirstpart := length(firstpart); + if OKToday(firstpart) then // process - + begin + if Copy(entry, lenfirstpart + 2, 1) = ' ' then + Result := strtointdef(Copy(entry, lenfirstpart + 3, length(entry)), INVALID_DAYS) + else + Result := strtointdef(Copy(entry, lenfirstpart + 2, length(entry)), INVALID_DAYS); + if Result <> INVALID_DAYS then + Result := -Result; + end; + end; + if Result <> INVALID_DAYS then + Result := Result * multiplier; + end; +end; + +procedure DateLimits(const limit: integer; var value: integer); +// check if date is within valid limit +begin + if value > limit then + begin + beep; + InfoBox('Date cannot be greater than Today + ' + inttostr(limit), 'Warning', MB_OK or MB_ICONWARNING); + value := INVALID_DAYS; + end + else if value < -limit then + begin + beep; + InfoBox('Date cannot be less than Today - ' + inttostr(limit), 'Warning', MB_OK or MB_ICONWARNING); + value := INVALID_DAYS; + end; +end; + +procedure ShowDisplay(editbox: TEdit); +// displays the relative date (uses tag of editbox to hold # of days +begin + with editbox do + begin + if Tag > 0 then + Text := 'Today + ' + inttostr(Tag) + else if Tag < 0 then + Text := 'Today - ' + inttostr(-Tag) + else + Text := 'Today'; + Hint := Text; + end; +end; + +procedure TextExit(editbox: TEdit; var entrycheck: boolean; limitcheck: integer); +// checks entry in editbx if date is valid +var + tagnum: integer; +begin + with editbox do + begin + if entrycheck then + begin + tagnum := RelativeDate(Hint); + if tagnum = INVALID_DAYS then + begin + beep; + InfoBox('Date entry was invalid', 'Warning', MB_OK or MB_ICONWARNING); + SetFocus; + end + else + begin + DateLimits(limitcheck, tagnum); + if tagnum = INVALID_DAYS then + SetFocus + else + Tag := tagnum; + end; + ShowDisplay(editbox); + if Focused then SelectAll; + end; + entrycheck := false; + end; +end; + +procedure LabelSurrogate(surrogateinfo: string; alabel: TStaticText); +// surrogateinfo = surrogateIEN^surrogate name^surrogate start date/time^surrogate stop date/time +var + surrogatename, surrogatestart, surrogatestop: string; + surrogateien: Int64; +begin + surrogateien := strtoint64def(Piece(surrogateinfo, '^', 1), -1); + if surrogateien > 1 then + begin + surrogatename := Piece(surrogateinfo, '^', 2); + surrogatestart := Piece(surrogateinfo, '^', 3); + if surrogatestart = '-1' then surrogatestart := '0'; + if surrogatestart = '' then surrogatestart := '0'; + surrogatestop := Piece(surrogateinfo, '^', 4); + if surrogatestop = '-1' then surrogatestop := '0'; + if surrogatestop = '' then surrogatestop := '0'; + alabel.Caption := surrogatename; + if (surrogatestart <> '0') and (surrogatestop <> '0') then + alabel.Caption := surrogatename + + ' (from ' + FormatFMDateTimeStr('mmm d,yyyy@hh:nn', surrogatestart) + + ' until ' + FormatFMDateTimeStr('mmm d,yyyy@hh:nn', surrogatestop) + ')' + else if surrogatestart <> '0' then + alabel.Caption := surrogatename + + ' (from ' + FormatFMDateTimeStr('mmm d,yyyy@hh:nn', surrogatestart) + ')' + else if surrogatestop <> '0' then + alabel.Caption := surrogatename + + ' (until ' + FormatFMDateTimeStr('mmm d,yyyy@hh:nn', surrogatestop) + ')' + else + alabel.Caption := surrogatename; + end + else + alabel.Caption := ''; +end; + +procedure DisplayPtInfo(PtID: string); +var + PtRec: TPtIDInfo; + rpttext: TStringList; +begin + if strtointdef(PtID, -1) < 0 then exit; + PtRec := GetPtIDInfo(PtID); + rpttext := TStringList.Create; + try + with PtRec do + begin + rpttext.Add(' ' + Name); + rpttext.Add('SSN: ' + SSN); + rpttext.Add('DOB: ' + DOB); + rpttext.Add(''); + rpttext.Add(Sex); + rpttext.Add(SCSts); + rpttext.Add(Vet); + rpttext.Add(''); + if length(Location) > 0 then rpttext.Add('Location: ' + Location); + if length(RoomBed) > 0 then rpttext.Add('Room/Bed: ' + RoomBed); + end; + ReportBox(rpttext, 'Patient ID', false); + finally + rpttext.free + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fOCAccept.dfm b/CPRS-Chart/Orders/fOCAccept.dfm new file mode 100644 index 0000000..ac54a25 --- /dev/null +++ b/CPRS-Chart/Orders/fOCAccept.dfm @@ -0,0 +1,52 @@ +inherited frmOCAccept: TfrmOCAccept + Left = 305 + Top = 257 + BorderIcons = [] + BorderStyle = bsDialog + Caption = 'Order Checking' + ClientHeight = 169 + ClientWidth = 472 + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object memChecks: TRichEdit + Left = 0 + Top = 0 + Width = 472 + Height = 136 + Align = alClient + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 0 + WantReturns = False + end + object pnlBottom: TPanel + Left = 0 + Top = 136 + Width = 472 + Height = 33 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + object cmdAccept: TButton + Left = 148 + Top = 7 + Width = 80 + Height = 21 + Caption = 'Accept Order' + Default = True + ModalResult = 6 + TabOrder = 0 + end + object cmdCancel: TButton + Left = 244 + Top = 7 + Width = 80 + Height = 21 + Cancel = True + Caption = 'Cancel Order' + ModalResult = 7 + TabOrder = 1 + end + end +end diff --git a/CPRS-Chart/Orders/fOCAccept.pas b/CPRS-Chart/Orders/fOCAccept.pas new file mode 100644 index 0000000..578945d --- /dev/null +++ b/CPRS-Chart/Orders/fOCAccept.pas @@ -0,0 +1,52 @@ +unit fOCAccept; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls; + +type + TfrmOCAccept = class(TfrmAutoSz) + memChecks: TRichEdit; + pnlBottom: TPanel; + cmdAccept: TButton; + cmdCancel: TButton; + private + { Private declarations } + public + { Public declarations } + end; + +function AcceptOrderWithChecks(OCList: TStringList): Boolean; + +implementation + +{$R *.DFM} + +function AcceptOrderWithChecks(OCList: TStringList): Boolean; +var + i: Integer; + frmOCAccept: TfrmOCAccept; +begin + Result := True; + if OCList.Count > 0 then + begin + frmOCAccept := TfrmOCAccept.Create(Application); + try + ResizeFormToFont(TForm(frmOCAccept)); + for i := 0 to OCList.Count - 1 do + begin + frmOCAccept.memChecks.Lines.Add(Piece(OCList[i], U, 4)); + frmOCAccept.memChecks.Lines.Add(''); + end; + frmOCAccept.memChecks.SelStart := 0; + frmOCAccept.memChecks.SelLength := 0; + Result := frmOCAccept.ShowModal = mrYes; + finally + frmOCAccept.Release; + end; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fOCSession.dfm b/CPRS-Chart/Orders/fOCSession.dfm new file mode 100644 index 0000000..4d176b6 --- /dev/null +++ b/CPRS-Chart/Orders/fOCSession.dfm @@ -0,0 +1,81 @@ +inherited frmOCSession: TfrmOCSession + Left = 365 + Top = 221 + Width = 504 + Height = 298 + BorderIcons = [] + Caption = 'Order Checks' + Position = poScreenCenter + ShowHint = True + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lstChecks: TCaptionListBox + Left = 0 + Top = 0 + Width = 496 + Height = 160 + Style = lbOwnerDrawVariable + Align = alClient + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnDrawItem = lstChecksDrawItem + OnMeasureItem = lstChecksMeasureItem + HintOnItem = True + end + object pnlBottom: TPanel + Left = 0 + Top = 160 + Width = 496 + Height = 111 + Align = alBottom + BevelOuter = bvNone + TabOrder = 0 + DesignSize = ( + 496 + 111) + object lblJustify: TLabel + Left = 8 + Top = 34 + Width = 248 + Height = 13 + Anchors = [akLeft, akTop, akRight] + Caption = 'Enter justification for overriding critical order checks -' + end + object txtJustify: TCaptionEdit + Left = 8 + Top = 50 + Width = 480 + Height = 21 + Anchors = [akLeft, akTop, akRight] + MaxLength = 80 + TabOrder = 0 + OnKeyDown = txtJustifyKeyDown + Caption = 'Enter justification for overriding critical order checks -' + end + object cmdCancelOrder: TButton + Left = 356 + Top = 5 + Width = 133 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Caption = 'Cancel Selected Order(s)' + TabOrder = 2 + OnClick = cmdCancelOrderClick + end + object cmdContinue: TButton + Left = 212 + Top = 82 + Width = 72 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Caption = 'Continue' + TabOrder = 3 + OnClick = cmdContinueClick + end + end +end diff --git a/CPRS-Chart/Orders/fOCSession.pas b/CPRS-Chart/Orders/fOCSession.pas new file mode 100644 index 0000000..f93a154 --- /dev/null +++ b/CPRS-Chart/Orders/fOCSession.pas @@ -0,0 +1,317 @@ +unit fOCSession; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, uConst, ORCtrls, ExtCtrls; + +type + TfrmOCSession = class(TfrmAutoSz) + lstChecks: TCaptionListBox; + pnlBottom: TPanel; + lblJustify: TLabel; + txtJustify: TCaptionEdit; + cmdCancelOrder: TButton; + cmdContinue: TButton; + procedure cmdCancelOrderClick(Sender: TObject); + procedure cmdContinueClick(Sender: TObject); + procedure lstChecksMeasureItem(Control: TWinControl; Index: Integer; + var Height: Integer); + procedure lstChecksDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure txtJustifyKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + FCritical: Boolean; + FCheckList: TStringList; + FOrderList: TStringList; + procedure SetReqJustify; + public + { Public declarations } + end; + +procedure ExecuteReleaseOrderChecks(SelectList: TList); +procedure ExecuteSessionOrderChecks(OrderList: TStringList); + +implementation + +{$R *.DFM} + +uses rOrders, uCore, rMisc; + +type + TOCRec = class + OrderID: string; + OrderText: string; + Checks: TStringList; + constructor Create(const AnID: string); + destructor Destroy; override; + end; + +var + uCheckedOrders: TList; + FOldHintHidePause: integer; + +constructor TOCRec.Create(const AnID: string); +begin + OrderID := AnID; + Checks := TStringList.Create; + FOldHintHidePause := Application.HintHidePause; +end; + +destructor TOCRec.Destroy; +begin + Application.HintHidePause := FOldHintHidePause; + Checks.Free; + inherited Destroy; +end; + +procedure ExecuteReleaseOrderChecks(SelectList: TList); +var + i: Integer; + AnOrder: TOrder; + OrderIDList: TStringList; +begin + OrderIDList := TStringList.Create; + try + for i := 0 to SelectList.Count - 1 do + begin + AnOrder := TOrder(SelectList.Items[i]); + OrderIDList.Add(AnOrder.ID + '^^1'); // 3rd pce = 1 means releasing order + end; + ExecuteSessionOrderChecks(OrderIDList); + for i := SelectList.Count - 1 downto 0 do + begin + AnOrder := TOrder(SelectList.Items[i]); + if OrderIDList.IndexOf(AnOrder.ID + '^^1') < 0 then + begin + Changes.Remove(CH_ORD, AnOrder.ID); + SelectList.Delete(i); + end; + end; + finally + OrderIDList.Free; + end; +end; + +procedure ExecuteSessionOrderChecks(OrderList: TStringList); +var + i, j: Integer; + LastID, NewID: string; + CheckList: TStringList; + OCRec: TOCRec; + //AChangeItem: TChangeItem; + frmOCSession: TfrmOCSession; + x: string; +begin + CheckList := TStringList.Create; + try + StatusText('Order Checking...'); + OrderChecksForSession(CheckList, OrderList); + StatusText(''); + if CheckList.Count > 0 then + begin + frmOCSession := TfrmOCSession.Create(Application); + try + ResizeFormToFont(TForm(frmOCSession)); + uCheckedOrders := TList.Create; + LastID := ''; + for i := 0 to CheckList.Count - 1 do + begin + NewID := Piece(CheckList[i], U, 1); + if NewID <> LastID then + begin + OCRec := TOCRec.Create(NewID); + uCheckedOrders.Add(OCRec); + LastID := NewID; + end; {if NewID} + end; {for i} + with uCheckedOrders do for i := 0 to Count - 1 do + begin + OCRec := TOCRec(Items[i]); + x := TextForOrder(OCRec.OrderID); + OCRec.OrderText := x; + for j := 0 to CheckList.Count - 1 do + if Piece(CheckList[j], U, 1) = OCRec.OrderID then + begin + OCRec.Checks.Add(Pieces(CheckList[j], U, 2, 4)); + x := x + CRLF + Piece(CheckList[j], U, 4); + end; + //AChangeItem := Changes.Locate(CH_ORD, OCRec.OrderID); + //if AChangeItem <> nil then OCRec.OrderText := AChangeItem.Text; + frmOCSession.lstChecks.Items.Add(x); + end; {with...for i} + frmOCSession.FOrderList := OrderList; + frmOCSession.FCheckList := CheckList; + frmOCSession.SetReqJustify; + MessageBeep(MB_ICONASTERISK); + if frmOCSession.Visible then frmOCSession.SetFocus; + frmOCSession.ShowModal; + finally + with uCheckedOrders do for i := 0 to Count - 1 do TOCRec(Items[i]).Free; + frmOCSession.Free; + end; {try} + end; {if CheckList} + finally + CheckList.Free; + end; +end; + +procedure TfrmOCSession.SetReqJustify; +var + i, j: Integer; + OCRec: TOCRec; +begin + FCritical := False; + with uCheckedOrders do for i := 0 to Count - 1 do + begin + OCRec := TOCRec(Items[i]); + for j := 0 to OCRec.Checks.Count - 1 do + if Piece(OCRec.Checks[j], U, 2) = '1' then FCritical := True; + end; + lblJustify.Visible := FCritical; + txtJustify.Visible := FCritical; + +end; + +procedure TfrmOCSession.lstChecksMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); +var + i, AHt, TotalHt: Integer; + x: string; + ARect: TRect; + OCRec: TOCRec; +begin + inherited; + + with lstChecks do + begin + if Index >= uCheckedOrders.Count then Exit; + OCRec := TOCRec(uCheckedOrders.Items[Index]); + ARect := ItemRect(Index); + ARect.Left := ARect.Left + 2; + AHt := DrawText(Canvas.Handle, PChar(OCRec.OrderText), Length(OCRec.OrderText), ARect, DT_CALCRECT or DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DT_EXTERNALLEADING) + 2; //CQ7178: added DT_EXTERNALLEADING + TotalHt := AHt; + + for i := 0 to OCRec.Checks.Count - 1 do + begin + ARect := ItemRect(Index); + ARect.Left := ARect.Left + 10; + x := Piece(OCRec.Checks[i], U, 3); + AHt := DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_CALCRECT or DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DT_EXTERNALLEADING); //CQ7178: added DT_EXTERNALLEADING + TotalHt := TotalHt + AHt; + end; + end; + Height := TotalHt + 2; // add 2 for focus rectangle + if Height > 255 then Height := 255; //CQ7178 +end; + +procedure TfrmOCSession.lstChecksDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + i, AHt: Integer; + x: string; + ARect: TRect; + OCRec: TOCRec; +begin + inherited; + + with lstChecks do + begin + if Index >= uCheckedOrders.Count then Exit; + OCRec := TOCRec(uCheckedOrders.Items[Index]); + ARect := ItemRect(Index); + AHt := DrawText(Canvas.Handle, PChar(OCRec.OrderText), Length(OCRec.OrderText), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DT_EXTERNALLEADING) + 2; //CQ7178: added DT_EXTERNALLEADING + ARect.Left := ARect.Left + 10; + ARect.Top := ARect.Top + AHt; + for i := 0 to OCRec.Checks.Count - 1 do + begin + x := Piece(OCRec.Checks[i], U, 3); + if not (odSelected in State) then + begin + if (Piece(OCRec.Checks[i], U, 2) = '1') then + begin + if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then + Canvas.Font.Color := clBlue; + Canvas.Font.Style := [fsUnderline]; + end + else Canvas.Font.Color := clWindowText; + end; + AHt := DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DT_EXTERNALLEADING); //CQ7178: added DT_EXTERNALLEADING + ARect.Top := ARect.Top + AHt; + end; + end; + +end; + +procedure TfrmOCSession.cmdCancelOrderClick(Sender: TObject); +var + i, j: Integer; + AnOrderID: string; + OCRec: TOCRec; +begin + inherited; + for i := lstChecks.Items.Count - 1 downto 0 do if lstChecks.Selected[i] then + begin + OCRec := TOCRec(uCheckedOrders.Items[i]); + AnOrderID := OCRec.OrderID; + if DeleteCheckedOrder(AnOrderID) then + begin + for j := FCheckList.Count - 1 downto 0 do + if Piece(FCheckList[j], U, 1) = AnOrderID then FCheckList.Delete(j); + for j := FOrderList.Count - 1 downto 0 do + if Piece(FOrderList[j], U, 1) = AnOrderID then FOrderList.Delete(j); + OCRec.Free; + uCheckedOrders.Delete(i); + lstChecks.Items.Delete(i); + end; + end; + if uCheckedOrders.Count = 0 then Close; +end; + +procedure TfrmOCSession.cmdContinueClick(Sender: TObject); +begin + inherited; + if FCritical and ((Length(txtJustify.Text) < 2) or not ContainsVisibleChar(txtJustify.Text)) then + begin + InfoBox('A justification for overriding critical order checks is required.', + 'Justification Required', MB_OK); + Exit; + end; + StatusText('Saving Order Checks...'); + SaveOrderChecksForSession(txtJustify.Text, FCheckList); + StatusText(''); + Close; +end; + +procedure TfrmOCSession.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + SaveUserBounds(Self); //Save Position & Size of Form +end; + +procedure TfrmOCSession.FormShow(Sender: TObject); +begin + inherited; + SetFormPosition(Self); //Get Saved Position & Size of Form +end; + + +procedure TfrmOCSession.FormResize(Sender: TObject); +begin + //TfrmAutoSz has defect must call inherited Resize for the resize to function. + inherited; +end; + +procedure TfrmOCSession.txtJustifyKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + //GE CQ9540 activate Return key, behave as "Continue" buttom clicked. + if Key = VK_RETURN then cmdContinueClick(self); +end; + +end. diff --git a/CPRS-Chart/Orders/fODActive.dfm b/CPRS-Chart/Orders/fODActive.dfm new file mode 100644 index 0000000..cfc2a6d --- /dev/null +++ b/CPRS-Chart/Orders/fODActive.dfm @@ -0,0 +1,112 @@ +object frmODActive: TfrmODActive + Left = 267 + Top = 216 + Width = 547 + Height = 350 + Caption = 'Copy active orders for selected event' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object lblCaption: TLabel + Left = 0 + Top = 0 + Width = 539 + Height = 29 + Align = alTop + AutoSize = False + Caption = ' Highlight orders to be copied to delayed release event' + Layout = tlCenter + WordWrap = True + end + object pnlClient: TPanel + Left = 0 + Top = 29 + Width = 539 + Height = 293 + Align = alClient + BevelOuter = bvNone + Locked = True + TabOrder = 0 + DesignSize = ( + 539 + 293) + object btnOK: TButton + Left = 386 + Top = 270 + Width = 57 + Height = 20 + Anchors = [akRight, akBottom] + Caption = 'OK' + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 458 + Top = 270 + Width = 57 + Height = 20 + Anchors = [akRight, akBottom] + Caption = 'Cancel' + TabOrder = 3 + OnClick = btnCancelClick + end + object lstActiveOrders: TCaptionListBox + Left = 0 + Top = 21 + Width = 539 + Height = 242 + Style = lbOwnerDrawVariable + Align = alTop + Anchors = [akLeft, akTop, akRight, akBottom] + ItemHeight = 16 + MultiSelect = True + TabOrder = 1 + OnDblClick = btnOKClick + OnDrawItem = lstActiveOrdersDrawItem + OnMeasureItem = lstActiveOrdersMeasureItem + Caption = ' Copy selected active orders to the release event' + end + object hdControl: THeaderControl + Left = 0 + Top = 0 + Width = 539 + Height = 21 + DragReorder = False + Sections = < + item + ImageIndex = -1 + MinWidth = 50 + Text = 'Service' + Width = 100 + end + item + ImageIndex = -1 + MinWidth = 200 + Text = 'Orders' + Width = 280 + end + item + ImageIndex = -1 + MinWidth = 50 + Text = 'Start / Stop' + Width = 112 + end + item + ImageIndex = -1 + MinWidth = 50 + Text = 'Status' + Width = 80 + end> + OnSectionResize = hdControlSectionResize + end + end +end diff --git a/CPRS-Chart/Orders/fODActive.pas b/CPRS-Chart/Orders/fODActive.pas new file mode 100644 index 0000000..28ac5ed --- /dev/null +++ b/CPRS-Chart/Orders/fODActive.pas @@ -0,0 +1,316 @@ +unit fODActive; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ORFn, uCore, StdCtrls, CheckLst, ComCtrls,ExtCtrls,rOrders,fOrders,uOrders, + fFrame,ORCtrls,fAutoSz; + +type + TfrmODActive = class(TfrmAutoSz) + lblCaption: TLabel; + pnlClient: TPanel; + btnOK: TButton; + btnCancel: TButton; + hdControl: THeaderControl; + lstActiveOrders: TCaptionListBox; + procedure btnOKClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure lstActiveOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AaHeight: Integer); + procedure lstActiveOrdersDrawItem(Control: TWinControl; + Index: Integer; TheeRect: TRect; State: TOwnerDrawState); + procedure hdControlSectionResize(HeaderControl: THeaderControl; + Section: THeaderSection); + private + { Private declarations } + FOrderView: TOrderView; + FEvent: TOrderDelayEvent; + FAutoAc: boolean; + ActiveOrderList: TList; + FDefaultEventOrder: string; + function MeasureColumnHeight(TheOrderText: string; Index: Integer; Column: integer):integer; + procedure LoadActiveOrders; + procedure RetrieveVisibleOrders(AnIndex: Integer); + procedure RedrawActiveList; + public + { Public declarations } + property Event: TOrderDelayEvent read FEvent write FEvent; + property OrderView: TOrderView read FOrderView write FOrderView; + property AutoAc: boolean read FAutoAc; + end; + +procedure CopyActiveOrdersToEvent(AnOrderView: TOrderView; AnEvent: TOrderDelayEvent); + +implementation + +{$R *.DFM} + +const + FM_DATE_ONLY = 7; + +procedure CopyActiveOrdersToEvent(AnOrderView: TOrderView; AnEvent: TOrderDelayEvent); +var + frmODActive: TfrmODActive; +begin + frmODActive := TfrmODActive.Create(Application); + ResizeFormToFont(TForm(frmODActive)); + frmODActive.Event := AnEvent; + frmODActive.FOrderView := AnOrderView; + frmODActive.FOrderView.Filter := 2; + if Length(frmOrders.EventDefaultOrder)>0 then + frmODActive.FDefaultEventOrder := frmOrders.EventDefaultOrder; + frmODActive.lblCaption.Caption := frmODActive.lblCaption.Caption + ' Delayed ' + AnEvent.EventName + ':'; + frmODActive.LoadActiveOrders; + if frmODActive.lstActiveOrders.Items.Count < 1 then + frmODActive.Close + else + frmODActive.ShowModal; +end; + +procedure TfrmODActive.btnOKClick(Sender: TObject); +const + TX_NOSEL = 'No orders are highlighted. Select the orders' + CRLF + + 'you wish to take action on.'; + TC_NOSEL = 'No Orders Selected'; +var + i : integer; + SelectedList: TStringList; + TheVerify : boolean; + DoesDestEvtOccur:boolean; +begin + DoesDestEvtOccur := False; + uAutoAC := True; + frmFrame.UpdatePtInfoOnRefresh; + SelectedList := TStringList.Create; + try + TheVerify := False; + with lstActiveOrders do for i := 0 to Items.Count - 1 do + if Selected[i] then SelectedList.Add(TOrder(Items.Objects[i]).ID); + if ShowMsgOn(SelectedList.Count = 0, TX_NOSEL, TC_NOSEL) then Exit; + if (Event.EventType = 'D') or ((not Patient.InPatient) and (Event.EventType = 'T')) then + TransferOrders(SelectedList, Event, DoesDestEvtOccur, TheVerify) + else if (not Patient.Inpatient) and (Event.EventType = 'A') then + TransferOrders(SelectedList, Event, DoesDestEvtOccur, TheVerify) + else + CopyOrders(SelectedList, Event, DoesDestEvtOccur, TheVerify); + if ( frmOrders <> nil ) and DoesDestEvtOccur then + frmOrders.PtEvtCompleted(Event.PtEventIFN,Event.EventName); + finally + SelectedList.Free; + uAutoAC := False; + end; + Close; +end; + +procedure TfrmODActive.btnCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmODActive.FormCreate(Sender: TObject); +begin + ActiveOrderList := TList.Create; + FOrderView := TOrderView.Create; + FDefaultEventOrder := ''; +end; + +procedure TfrmODActive.LoadActiveOrders; +var + AnOrder: TOrder; + i: integer; + AnOrderPtEvtId,AnOrderEvtId: string; +begin + LoadOrdersAbbr(ActiveOrderList,FOrderView,''); + with ActiveOrderList do for i := Count - 1 downto 0 do + begin + AnOrder := TOrder(Items[i]); + AnOrderPtEvtID := GetOrderPtEvtID(AnOrder.ID); + if StrToIntDef(AnOrderPtEvtID,0)>0 then + begin + AnOrderEvtId := Piece(EventInfo(AnOrderPtEvtID),'^',2); + if AnsiCompareText(AnOrderEvtID,IntToStr(FEvent.TheParent.ParentIFN))=0 then + begin + ActiveOrderList.Delete(i); + continue; + end; + end; + if (AnOrder.ID = FDefaultEventOrder) or (IsDCedOrder(AnOrder.ID)) then + begin + ActiveOrderList.Delete(i); + end; + end; + SortOrders(ActiveOrderList, FOrderView.ByService, FOrderView.InvChrono); + lstActiveOrders.Items.Clear; + with ActiveOrderList do for i := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[i]); + lstActiveOrders.Items.AddObject(AnOrder.ID,AnOrder); + end; +end; + +procedure TfrmODActive.FormDestroy(Sender: TObject); +begin + ClearOrders(ActiveOrderList); + ActiveOrderList.Free; + lstActiveOrders.Clear; + if FOrderView <> nil then FOrderView := nil ; +end; + +procedure TfrmODActive.lstActiveOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AaHeight: Integer); +var + x,y: string; + TextHeight, NewHeight, DateHeight: Integer; + TheOrder: TOrder; +begin + inherited; + NewHeight := AaHeight; + with lstActiveOrders do if Index < Items.Count then + begin + TheOrder := TOrder(ActiveOrderList.Items[index]); + if TheOrder <> nil then with TheOrder do + begin + if not TheOrder.Retrieved then RetrieveVisibleOrders(Index); + {measure the height of order text} + x := Text; + TextHeight := MeasureColumnHeight(x,Index,1); + + {measure the height of Start/Stop date time} + x := FormatFMDateTimeStr('mm/dd/yy hh:nn', StartTime); + if IsFMDateTime(StartTime) and (Length(StartTime) = FM_DATE_ONLY) then x := Piece(x, #32, 1); + if Length(x) > 0 then x := 'Start: ' + x; + y := FormatFMDateTimeStr('mm/dd/yy hh:nn', StopTime); + if IsFMDateTime(StopTime) and (Length(StopTime) = FM_DATE_ONLY) then y := Piece(y, #32, 1); + if Length(y) > 0 then x := x + CRLF + 'Stop: ' + y; + DateHeight := MeasureColumnHeight(x,Index,2); + NewHeight := HigherOf(TextHeight, DateHeight); + end; + end; + AaHeight := NewHeight; +end; + +procedure TfrmODActive.lstActiveOrdersDrawItem(Control: TWinControl; + Index: Integer; TheeRect: TRect; State: TOwnerDrawState); +var + x, y: string; + ARect: TRect; + AnOrder: TOrder; + i,RightSide: integer; + SaveColor: TColor; +begin + inherited; + with lstActiveOrders do + begin + ARect := TheeRect; + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + RightSide := -2; + for i := 0 to 2 do + begin + RightSide := RightSide + hdControl.Sections[i].Width; + Canvas.MoveTo(RightSide, ARect.Bottom - 1); + Canvas.LineTo(RightSide, ARect.Top); + end; + if Index < Items.Count then + begin + AnOrder := TOrder(Items.Objects[Index]); + if AnOrder <> nil then with AnOrder do for i := 0 to 3 do + begin + if i > 0 then ARect.Left := ARect.Right + 2 else ARect.Left := 2; + ARect.Right := ARect.Left + hdControl.Sections[i].Width - 6; + SaveColor := Canvas.Brush.Color; + if i = 0 then + begin + x := DGroupName; + if (Index > 0) and (x = TOrder(Items.Objects[Index - 1]).DGroupName) then x := ''; + end; + if i = 1 then x := Text; + if i = 2 then + begin + x := FormatFMDateTimeStr('mm/dd/yy hh:nn', StartTime); + if IsFMDateTime(StartTime) and (Length(StartTime) = FM_DATE_ONLY) then x := Piece(x, #32, 1); + if Length(x) > 0 then x := 'Start: ' + x; + y := FormatFMDateTimeStr('mm/dd/yy hh:nn', StopTime); + if IsFMDateTime(StopTime) and (Length(StopTime) = FM_DATE_ONLY) then y := Piece(y, #32, 1); + if Length(y) > 0 then x := x + CRLF + 'Stop: ' + y; + end; + if i = 3 then x := NameOfStatus(Status); + if (i = 1) or (i = 2) then + DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK) + else + DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX ); + Canvas.Brush.Color := SaveColor; + ARect.Right := ARect.Right + 4; + end; + end; + end; +end; + +procedure TfrmODActive.RetrieveVisibleOrders(AnIndex: Integer); +var + i: Integer; + tmplst: TList; + AnOrder: TOrder; +begin + tmplst := TList.Create; + for i := AnIndex to AnIndex + 100 do + begin + if i >= ActiveOrderList.Count then break; + AnOrder := TOrder(ActiveOrderList.Items[i]); + if not AnOrder.Retrieved then tmplst.Add(AnOrder); + end; + RetrieveOrderFields(tmplst, 2, -1); + tmplst.Free; +end; + +procedure TfrmODActive.hdControlSectionResize( + HeaderControl: THeaderControl; Section: THeaderSection); +begin + inherited; + RedrawSuspend(Self.Handle); + RedrawActiveList; + RedrawActivate(Self.Handle); + lstActiveOrders.Invalidate; +end; + +procedure TfrmODActive.RedrawActiveList; +var + i, SaveTop: Integer; + AnOrder: TOrder; +begin + with lstActiveOrders do + begin + RedrawSuspend(Handle); + SaveTop := TopIndex; + Clear; + for i := 0 to ActiveOrderList.Count - 1 do + begin + AnOrder := TOrder(ActiveOrderList.Items[i]); + if (AnOrder.ID = FDefaultEventOrder) or (IsDCedOrder(AnOrder.ID)) then + Continue; + Items.AddObject(AnOrder.ID, AnOrder); + end; + TopIndex := SaveTop; + RedrawActivate(Handle); + end; +end; + +function TfrmODActive.MeasureColumnHeight(TheOrderText: string; Index, + Column: integer): integer; +var + ARect: TRect; +begin + ARect.Left := 0; + ARect.Top := 0; + ARect.Bottom := 0; + ARect.Right := hdControl.Sections[Column].Width -6; + Result := WrappedTextHeightByFont(lstActiveOrders.Canvas,lstActiveOrders.Font,TheOrderText,ARect); +end; + +end. diff --git a/CPRS-Chart/Orders/fODAllgy.dfm b/CPRS-Chart/Orders/fODAllgy.dfm new file mode 100644 index 0000000..073881f --- /dev/null +++ b/CPRS-Chart/Orders/fODAllgy.dfm @@ -0,0 +1,360 @@ +inherited frmODAllergy: TfrmODAllergy + Tag = 105 + Left = 13 + Top = 106 + Height = 339 + HorzScrollBar.Range = 520 + HorzScrollBar.Visible = True + VertScrollBar.Range = 312 + VertScrollBar.Visible = True + AutoScroll = False + Caption = 'Enter Allergy Information' + PixelsPerInch = 96 + TextHeight = 13 + object btnAgent: TSpeedButton [0] + Left = 175 + Top = 61 + Width = 19 + Height = 19 + Caption = '...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + OnClick = btnAgentClick + end + object lblReactionType: TOROffsetLabel [1] + Left = 7 + Top = 81 + Width = 188 + Height = 15 + Caption = 'Type of Reaction:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblAgent: TOROffsetLabel [2] + Left = 7 + Top = 44 + Width = 188 + Height = 15 + Caption = 'Causative agent:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblSymptoms: TOROffsetLabel [3] + Left = 7 + Top = 125 + Width = 134 + Height = 15 + Caption = 'Signs/Symptoms' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblSelectedSymptoms: TOROffsetLabel [4] + Left = 147 + Top = 125 + Width = 119 + Height = 15 + Caption = 'Selected Symptoms' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblComments: TOROffsetLabel [5] + Left = 281 + Top = 125 + Width = 226 + Height = 15 + Caption = 'Comments' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblOriginator: TOROffsetLabel [6] + Left = 209 + Top = 6 + Width = 45 + Height = 15 + Caption = 'Observer' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object Bevel1: TBevel [7] + Left = 2 + Top = 125 + Width = 273 + Height = 125 + end + object lblObservedDate: TOROffsetLabel [8] + Left = 366 + Top = 46 + Width = 140 + Height = 15 + Caption = 'Reaction Date/Time' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblSeverity: TOROffsetLabel [9] + Left = 365 + Top = 82 + Width = 141 + Height = 15 + Caption = 'Severity' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lstAllergy: TORListBox [10] + Left = 8 + Top = 61 + Width = 166 + Height = 21 + Color = clBtnFace + ExtendedSelect = False + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = lstAllergyClick + Caption = 'Causative agent' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + OnChange = ControlChange + end + inherited memOrder: TCaptionMemo + Left = 5 + Top = 256 + TabOrder = 16 + end + inherited cmdAccept: TButton + Left = 441 + Top = 256 + Caption = 'Accept' + TabOrder = 13 + end + inherited cmdQuit: TButton + Left = 441 + Top = 283 + TabOrder = 14 + end + inherited pnlMessage: TPanel + Left = 20 + Top = 253 + TabOrder = 15 + inherited memMessage: TRichEdit + Left = 41 + end + end + object cboReactionType: TORComboBox + Left = 7 + Top = 96 + Width = 190 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Type of Reaction' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 3 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object grpObsHist: TRadioGroup + Left = 364 + Top = 11 + Width = 147 + Height = 30 + Columns = 2 + Ctl3D = True + Items.Strings = ( + '&Observed' + '&Historical') + ParentCtl3D = False + TabOrder = 9 + OnClick = grpObsHistClick + end + object memComments: TRichEdit + Left = 282 + Top = 142 + Width = 229 + Height = 104 + TabOrder = 12 + WantTabs = True + OnExit = memCommentsExit + OnKeyUp = memCommentsKeyUp + end + object lstSelectedSymptoms: TORListBox + Left = 147 + Top = 143 + Width = 122 + Height = 75 + ExtendedSelect = False + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 5 + Caption = 'Selected Symptoms' + ItemTipColor = clWindow + LongList = False + Pieces = '2,4' + OnChange = ControlChange + end + object ckNoKnownAllergies: TCheckBox + Left = 8 + Top = 18 + Width = 119 + Height = 17 + Caption = 'No Known Allergies' + TabOrder = 0 + OnClick = ckNoKnownAllergiesClick + end + object cboOriginator: TORComboBox + Left = 210 + Top = 22 + Width = 139 + Height = 96 + Anchors = [akLeft, akTop, akRight] + Style = orcsSimple + AutoSelect = True + Caption = 'Observer' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 2 + MaxLength = 0 + ParentShowHint = False + Pieces = '2,3' + ShowHint = False + Sorted = False + SynonymChars = '<>' + TabOrder = 8 + OnChange = ControlChange + OnNeedData = cboOriginatorNeedData + CharsNeedMatch = 1 + end + object cboSymptoms: TORComboBox + Left = 7 + Top = 143 + Width = 135 + Height = 103 + Style = orcsSimple + AutoSelect = True + Caption = 'Signs/Symptoms' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnKeyDown = cboSymptomsKeyDown + OnMouseClick = cboSymptomsMouseClick + OnNeedData = cboSymptomsNeedData + CharsNeedMatch = 1 + end + object btnCurrent: TButton + Left = 137 + Top = 14 + Width = 56 + Height = 21 + Caption = 'Current' + TabOrder = 1 + OnClick = btnCurrentClick + end + object calObservedDate: TORDateBox + Left = 365 + Top = 62 + Width = 145 + Height = 21 + TabOrder = 10 + OnChange = ControlChange + DateOnly = False + RequireTime = False + Caption = 'Reaction Date/Time' + end + object cboSeverity: TORComboBox + Left = 365 + Top = 97 + Width = 144 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Severity' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 11 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object btnRemove: TButton + Left = 210 + Top = 224 + Width = 57 + Height = 21 + Caption = 'Remove' + TabOrder = 7 + OnClick = btnRemoveClick + end + object btnDateTime: TButton + Left = 147 + Top = 224 + Width = 62 + Height = 21 + Caption = 'Date/Time' + TabOrder = 6 + OnClick = btnDateTimeClick + end + object dlgReactionDateTime: TORDateTimeDlg + FMDateTime = 2981202 + DateOnly = False + RequireTime = False + Left = 242 + Top = 10 + end +end diff --git a/CPRS-Chart/Orders/fODAllgy.pas b/CPRS-Chart/Orders/fODAllgy.pas new file mode 100644 index 0000000..7266089 --- /dev/null +++ b/CPRS-Chart/Orders/fODAllgy.pas @@ -0,0 +1,542 @@ +unit fODAllgy; +{$O-} +interface + +uses + SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, + Forms, Dialogs, StdCtrls, ORCtrls, ORfn, fODBase, ExtCtrls, ComCtrls, uConst, + Menus, ORDtTm, Buttons; + +type + TfrmODAllergy = class(TfrmODBase) + btnAgent: TSpeedButton; + cboReactionType: TORComboBox; + lblReactionType: TOROffsetLabel; + lblAgent: TOROffsetLabel; + lblSymptoms: TOROffsetLabel; + lblSelectedSymptoms: TOROffsetLabel; + grpObsHist: TRadioGroup; + memComments: TRichEdit; + lblComments: TOROffsetLabel; + lstSelectedSymptoms: TORListBox; + ckNoKnownAllergies: TCheckBox; + cboOriginator: TORComboBox; + lblOriginator: TOROffsetLabel; + Bevel1: TBevel; + lstAllergy: TORListBox; + cboSymptoms: TORComboBox; + dlgReactionDateTime: TORDateTimeDlg; + btnCurrent: TButton; + lblObservedDate: TOROffsetLabel; + calObservedDate: TORDateBox; + lblSeverity: TOROffsetLabel; + cboSeverity: TORComboBox; + btnRemove: TButton; + btnDateTime: TButton; + procedure btnAgentClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cboOriginatorNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboSymptomsNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure lstAllergySelect(Sender: TObject); + procedure grpObsHistClick(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure memCommentsExit(Sender: TObject); + procedure cboSymptomsClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure ckNoKnownAllergiesClick(Sender: TObject); + procedure EnableControls; + procedure DisableControls; + procedure cmdAcceptClick(Sender: TObject); + procedure btnCurrentClick(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure lstAllergyClick(Sender: TObject); + procedure btnDateTimeClick(Sender: TObject); + procedure cboSymptomsKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure cboSymptomsMouseClick(Sender: TObject); + procedure memCommentsKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + FLastAllergyID: string; + FNKAOrder: boolean; + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + end; + +var + frmODAllergy: TfrmODAllergy; + AllergyList: TStringList; + +implementation + +{$R *.DFM} + +uses + rODBase, uCore, rCore, rCover, rODAllergy, fAllgyFind, fPtCWAD; + +const + TX_NO_ALLERGY = 'An allergy must be specified.' ; + TX_NO_REACTION = 'A reaction type must be entered for this allergy.' ; + TX_NO_SYMPTOMS = 'Symptoms must be selected for this observed allergy and reaction.'; + TX_NO_OBSERVER = 'An observer must be selected for this allergy and reaction .'; + TX_NO_FUTURE_DATES = 'Dates in the future are not allowed.'; + TX_BAD_DATE = 'Dates must be in the format m/d/y or m/y or y, or T-d.'; + TX_CAP_FUTURE = 'Invalid date'; + +procedure TfrmODAllergy.FormCreate(Sender: TObject); +begin + inherited; + AllergyList := TStringList.Create; + AllowQuickOrder := False; + FillerID := 'GMRD'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Dialog := 'GMRAOR ALLERGY ENTER/EDIT'; // loads formatting info + StatusText('Loading Default Values'); + CtrlInits.LoadDefaults(ODForAllergies); // returns TStrings with defaults + StatusText('Initializing Long List'); + CtrlInits.SetControl(cboSymptoms, 'Top Ten'); + cboSymptoms.InsertSeparator; + cboOriginator.InitLongList(User.Name) ; + cboOriginator.SelectByIEN(User.DUZ); + PreserveControl(cboSymptoms); + PreserveControl(cboOriginator); + InitDialog; + btnAgentClick(Self); +end; + +procedure TfrmODAllergy.InitDialog; +begin + inherited; + Changing := True; + with CtrlInits do + begin + SetControl(cboReactionType, 'Reactions'); + SetControl(cboSeverity, 'Severity'); + end; + lstAllergy.Items.Add('-1^Click button to search ---->'); + grpObsHist.ItemIndex := 1; + calObservedDate.Text := ''; //FMDateTime := FMNow; + cboSeverity.ItemIndex := -1; + cboSymptoms.ItemIndex := -1; + memComments.Clear; + ListAllergies(AllergyList); + with AllergyList do + if Count > 0 then + begin + if Piece(Strings[0], U, 1) = '' then + ckNoKnownAllergies.Enabled := True + else + ckNoKnownAllergies.Enabled := False; + end + else + ckNoKnownAllergies.Enabled := True; + StatusText(''); + memOrder.Clear ; + Changing := False; +end; + +procedure TfrmODAllergy.SetupDialog(OrderAction: Integer; const ID: string); +begin + inherited; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do + begin + SetControl(lstAllergy, 'ITEM', 1); + lstAllergySelect(Self); + Changing := True; + SetControl(cboReactionType, 'TYPE', 1); + SetControl(lstSelectedSymptoms, 'REACTION', 1); // need dates concatenated - see cboSymptomsClick + SetControl(grpObsHist, 'OBSERVED', 1); + SetControl(calObservedDate, 'START', 1); + SetControl(cboSeverity, 'SEVERITY', 1); + SetControl(memComments, 'COMMENT', 1); + SetControl(ckNoKnownAllergies, 'NKA', 1); + SetControl(cboOriginator, 'PROVIDER', 1); + Changing := False; + ControlChange(Self); + end; +end; + +procedure TfrmODAllergy.Validate(var AnErrMsg: string); +var + tmpDate: TFMDateTime; +const + TX_NO_LOCATION = 'A location must be identified.' + CRLF + + '(Select File | Update Provider/Location)'; + TX_NO_PROVIDER = 'A provider who is authorized to write orders must be indentified.' + CRLF + + '(Select File | Update Provider/Location)'; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin +// inherited; v14a - do not reject past dates - historical would not be allowed + AnErrMsg := ''; + if User.NoOrdering then AnErrMsg := 'Ordering has been disabled. Press Quit.'; + if not ckNoKnownAllergies.Checked then + 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 = 0) and (lstSelectedSymptoms.Items.Count = 0) then SetError(TX_NO_SYMPTOMS); + if cboReactionType.ItemID = '' then + SetError(TX_NO_REACTION) + else + Responses.Update('TYPE', 1, cboReactionType.ItemID, cboReactionType.Text); + end; + if cboOriginator.ItemIEN = 0 then SetError(TX_NO_OBSERVER); + if calObservedDate.Text <> '' then + begin + tmpDate := ValidDateTimeStr(calObservedDate.Text, 'TS'); + if tmpDate > FMNow then SetError(TX_NO_FUTURE_DATES); + if tmpDate < 0 then SetError(TX_BAD_DATE); + end; + if (Encounter.Location = 0) and not(Self.EvtID>0) then AnErrMsg := TX_NO_LOCATION; + if (Encounter.Provider = 0) or (PersonHasKey(Encounter.Provider, 'PROVIDER') = False) + then AnErrMsg := TX_NO_PROVIDER; +end; + +procedure TfrmODAllergy.cboOriginatorNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + cboOriginator.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmODAllergy.cboSymptomsNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + cboSymptoms.ForDataUse(SubSetOfSymptoms(StartFrom, Direction)); +end; + +procedure TfrmODAllergy.grpObsHistClick(Sender: TObject); +begin + inherited; + Changing := True; + cboSeverity.ItemIndex := -1; + case grpObsHist.ItemIndex of + 0: begin + cboSeverity.Visible := True; + lblSeverity.Visible := True; + end; + 1: begin + cboSeverity.Visible := False; + lblSeverity.Visible := False; + end; + end; + Changing := False; + ControlChange(Self); +end; + +procedure TfrmODAllergy.ControlChange(Sender: TObject); +var + i: integer; + tmpDate: TFMDateTime; +begin + inherited; + if Changing then Exit; + Responses.Clear; + if ckNoKnownAllergies.Checked then + begin + Responses.Update('NKA', 1, 'NKA', 'No Known Allergies'); + with cboOriginator do if ItemIEN > 0 then Responses.Update('PROVIDER', 1, ItemID, Text); + end + else + with lstAllergy do + if (Items.Count > 0) then + if (Piece(Items[0], U, 1) <> '-1') and (Length(DisplayText[0]) > 0) then + begin + Responses.Update('ITEM', 1, DisplayText[0], DisplayText[0]); + with cboReactionType do if ItemID <> '' then Responses.Update('TYPE', 1, ItemID, Text); + with lstSelectedSymptoms do for i := 0 to Items.Count - 1 do + begin + Responses.Update('REACTION', i+1, Piece(Items[i],U,1), Piece(Items[i],U,2)); + Responses.Update('REACTDT', i+1, Piece(Items[i],U,3), Piece(Items[i],U,4)); + end; + with grpObsHist do if ItemIndex > -1 then + if ItemIndex = 0 then Responses.Update('OBSERVED', 1, 'o', 'Observed') + else Responses.Update('OBSERVED', 1, 'h', 'Historical'); + with calObservedDate do + begin + tmpDate := ValidDateTimeStr(calObservedDate.Text, 'TS'); + if tmpDate > 0 then Responses.Update('START', 1, FloatToStr(tmpDate), Text); + end; + with cboSeverity do if ItemID <> '' then Responses.Update('SEVERITY', 1, ItemID, Text); + with cboOriginator do if ItemIEN > 0 then Responses.Update('PROVIDER', 1, ItemID, Text); + with memComments do if GetTextLen > 0 then Responses.Update('COMMENT', 1, TX_WPTYPE, Text); + end; + memOrder.Text := Responses.OrderText; +end; + +procedure TfrmODAllergy.lstAllergySelect(Sender: TObject); +begin + inherited; + with lstAllergy do + begin + if Items.Count = 0 then + Exit + else if Piece(Items[0], U, 1) = '-1' then + Exit; + if Piece(Items[0], U, 1) <> FLastAllergyID then FLastAllergyID := Piece(Items[0], U, 1) else Exit; + Changing := True; + if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + Changing := False; + if CharAt(Piece(Items[0], U, 1), 1) = 'Q' then + begin + Responses.QuickOrder := ExtractInteger(Piece(Items[0], U, 1)); + Responses.SetControl(lstAllergy, 'ITEM', 1); + FLastAllergyID := Piece(Items[0], U, 1); + end; + end; + with Responses do if QuickOrder > 0 then + begin + SetControl(lstAllergy, 'ITEM', 1); + lstAllergySelect(Self); + Changing := True; + SetControl(cboReactionType, 'TYPE', 1); + SetControl(lstSelectedSymptoms, 'REACTION', 1); + SetControl(grpObsHist, 'OBSERVED', 1); + SetControl(calObservedDate, 'START', 1); + SetControl(cboSeverity, 'SEVERITY', 1); + SetControl(memComments, 'COMMENT', 1); + SetControl(ckNoKnownAllergies, 'NKA', 1); + SetControl(cboOriginator, 'PROVIDER', 1); + end; + ControlChange(Self) ; +end; + +procedure TfrmODAllergy.memCommentsExit(Sender: TObject); +var + AStringList: TStringList; +begin + inherited; + AStringList := TStringList.Create; + try + AStringList.Assign(memComments.Lines); + LimitStringLength(AStringList, 74); + memComments.Lines.Assign(AstringList); + ControlChange(Self); + finally + AStringList.Free; + end; +end; + +procedure TfrmODAllergy.btnAgentClick(Sender: TObject); +var + Allergy: string; +begin + inherited; + AllergyLookup(Allergy, ckNoKnownAllergies.Enabled); + if Piece(Allergy, U, 1) = '-1' then + ckNoKnownAllergies.Checked := True + else + if Allergy <> '' then + begin + lstAllergy.Clear; + lstAllergy.Items.Add(Allergy); + cboReactionType.SelectByID(Piece(Allergy, U, 4)); + end + else + Close; + ControlChange(lstAllergy); +end; + +procedure TfrmODAllergy.cboSymptomsClick(Sender: TObject); +begin + inherited; + if cboSymptoms.ItemIndex < 0 then exit; + Changing := True; + if lstSelectedSymptoms.SelectByID(cboSymptoms.ItemID) > -1 then exit; + with lstSelectedSymptoms do + begin + Items.Add(cboSymptoms.Items[cboSymptoms.ItemIndex]); + SelectByID(cboSymptoms.ItemID); + end; + Changing := False; + ControlChange(Self) +end; + +procedure TfrmODAllergy.FormDestroy(Sender: TObject); +begin + AllergyList.Free; + inherited; +end; + +procedure TfrmODAllergy.ckNoKnownAllergiesClick(Sender: TObject); +begin + inherited; + if ckNoKnownAllergies.Checked then + begin + DisableControls; + FNKAOrder := True; + end + else + begin + EnableControls; + FNKAOrder := False; + end; + ControlChange(Self); +end; + +procedure TfrmODAllergy.DisableControls; +begin + InitDialog; + btnAgent.Enabled := False; + cboReactionType.Enabled := False; + lblReactionType.Enabled := False; + lblAgent.Enabled := False; + lblSymptoms.Enabled := False; + lblSelectedSymptoms.Enabled := False; + grpObsHist.Enabled := False; + memComments.Enabled := False; + lblComments.Enabled := False; + lstSelectedSymptoms.Enabled := False; + lblObservedDate.Enabled := False; + calObservedDate.Enabled := False; + lblSeverity.Enabled := False; + cboSeverity.Enabled := False; + lstAllergy.Enabled := False; + cboSymptoms.Enabled := False; + btnDateTime.Enabled := False; +end; + +procedure TfrmODAllergy.EnableControls; +begin + InitDialog; + btnAgent.Enabled := True; + cboReactionType.Enabled := True; + lblReactionType.Enabled := True; + lblAgent.Enabled := True; + lblSymptoms.Enabled := True; + lblSelectedSymptoms.Enabled := True; + grpObsHist.Enabled := True; + memComments.Enabled := True; + lblComments.Enabled := True; + lstSelectedSymptoms.Enabled := True; + lblObservedDate.Enabled := True; + calObservedDate.Enabled := True; + lblSeverity.Enabled := True; + cboSeverity.Enabled := True; + lstAllergy.Enabled := True; + cboSymptoms.Enabled := True; + btnDateTime.Enabled := True; +end; + +procedure TfrmODAllergy.cmdAcceptClick(Sender: TObject); +begin + if not FNKAOrder then + inherited + else + if ValidSave then + begin + ckNoKnownAllergies.Checked := False; + memOrder.Clear; + Responses.Clear; // to allow form to close without prompting to save order + Close; + end; +end; + +procedure TfrmODAllergy.btnCurrentClick(Sender: TObject); +begin + inherited; + ShowCWAD; +end; + + +procedure TfrmODAllergy.btnRemoveClick(Sender: TObject); +var + i: integer; +begin + inherited; + with lstSelectedSymptoms do + begin + if (Items.Count = 0) or (ItemIndex = -1) then exit; + i := ItemIndex; + Items.Delete(ItemIndex); + ItemIndex := i - 1; + if (Items.Count > 0) and (ItemIndex = -1) then ItemIndex := 0; + end; +end; + +procedure TfrmODAllergy.lstAllergyClick(Sender: TObject); +begin + inherited; + lstAllergy.ItemIndex := -1; +end; + +procedure TfrmODAllergy.btnDateTimeClick(Sender: TObject); +begin + inherited; + with lstSelectedSymptoms do + begin + if (Items.Count = 0) or (ItemIndex = -1) then exit; + dlgReactionDateTime.FMDateTime := FMNow; + if not dlgReactionDateTime.Execute then exit; + if dlgReactionDateTime.FMDateTime > FMNow then + InfoBox(TX_NO_FUTURE_DATES, TX_CAP_FUTURE, MB_OK) + else + Items[ItemIndex] := Items[ItemIndex] + U + FloatToStr(dlgReactionDateTime.FMDateTime) + U + FormatFMDateTime('mmm dd,yyyy@hh:nn', dlgReactionDateTime.FMDateTime); + end; +end; + +procedure TfrmODAllergy.cboSymptomsKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_RETURN then cboSymptomsMouseClick(Self); +end; + +procedure TfrmODAllergy.cboSymptomsMouseClick(Sender: TObject); +var + x: string; +begin + inherited; + if cboSymptoms.ItemIndex < 0 then exit; + Changing := True; + if lstSelectedSymptoms.SelectByID(cboSymptoms.ItemID) > -1 then exit; + with cboSymptoms do + if Piece(Items[ItemIndex], U, 3) <> '' then + x := ItemID + U + Piece(Items[ItemIndex], U, 3) + else + x := ItemID + U + Piece(Items[ItemIndex], U, 2); + with lstSelectedSymptoms do + begin + Items.Add(x); + SelectByID(cboSymptoms.ItemID); + end; + Changing := False; + ControlChange(Self) +end; + +procedure TfrmODAllergy.memCommentsKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_TAB) then + begin + if ssShift in Shift then + begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + Key := 0; + end + else if ssCtrl in Shift then + begin + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + Key := 0; + end; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fODAuto.dfm b/CPRS-Chart/Orders/fODAuto.dfm new file mode 100644 index 0000000..4df88f5 --- /dev/null +++ b/CPRS-Chart/Orders/fODAuto.dfm @@ -0,0 +1,16 @@ +inherited frmODAuto: TfrmODAuto + Caption = 'Auto-Accept Order' + FormStyle = fsNormal + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel [0] + Left = 108 + Top = 72 + Width = 287 + Height = 26 + Caption = + 'This form is never made visible. It exists to allow auto-accept' + + ' orders to be treated as any other order dialog.' + WordWrap = True + end +end diff --git a/CPRS-Chart/Orders/fODAuto.pas b/CPRS-Chart/Orders/fODAuto.pas new file mode 100644 index 0000000..ba159d3 --- /dev/null +++ b/CPRS-Chart/Orders/fODAuto.pas @@ -0,0 +1,91 @@ +unit fODAuto; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, StdCtrls, ComCtrls, ExtCtrls, ORFn, ORCtrls; + +type + TfrmODAuto = class(TfrmODBase) + Label1: TLabel; + public + procedure InitDialog; override; + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + procedure Validate(var AnErrMsg: string); override; + end; + +var + frmODAuto: TfrmODAuto; + +implementation + +{$R *.DFM} + +uses rODBase, rOrders, fTemplateDialog, uTemplateFields, rTemplates, uConst, uTemplates, + rConsults, uCore, uODBase; + +procedure TfrmODAuto.InitDialog; +begin + inherited; + // nothing for now +end; + +procedure TfrmODAuto.Validate(var AnErrMsg: string); +var + cptn, tmp, DocInfo: string; + TempSL: TStringList; + LType: TTemplateLinkType; + IEN: integer; + HasObjects: boolean; + +begin + inherited; + DocInfo := ''; + LType := DisplayGroupToLinkType(Responses.DisplayGroup); + tmp := Responses.EValueFor('COMMENT', 1); + ExpandOrderObjects(tmp, HasObjects); + Responses.OrderContainsObjects := Responses.OrderContainsObjects or HasObjects; + if (LType <> ltNone) or HasTemplateField(tmp) then + begin + cptn := 'Reason for Request: ' + Responses.EValueFor('ORDERABLE', 1); + case LType of + ltConsult: IEN := StrToIntDef(GetServiceIEN(Responses.IValueFor('ORDERABLE', 1)),0); + ltProcedure: IEN := StrToIntDef(GetProcedureIEN(Responses.IValueFor('ORDERABLE', 1)),0); + else IEN := 0; + end; + if IEN <> 0 then + ExecuteTemplateOrBoilerPlate(tmp, IEN, LType, nil, cptn, DocInfo) + else + CheckBoilerplate4Fields(tmp, cptn); + + if tmp <> '' then + Responses.Update('COMMENT', 1, TX_WPTYPE, tmp) + else + begin + TempSL := TStringList.Create; + try + TempSL.Text := Responses.EValueFor('COMMENT', 1); + Convert2LMText(TempSL); + Responses.Update('COMMENT', 1, TX_WPTYPE, TempSL.Text); + finally + TempSL.Free; + end; + end; + end; +end; + +procedure TfrmODAuto.SetupDialog(OrderAction: Integer; const ID: string); +var + DialogNames: TDialogNames; +begin + inherited; // Responses is already loaded here + AutoAccept := True; + StatusText('Loading Dialog Definition'); + FillerID := FillerIDForDialog(DialogIEN); + IdentifyDialog(DialogNames, DialogIEN); + Responses.Dialog := DialogNames.BaseName; // loads formatting info + StatusText(''); +end; + +end. diff --git a/CPRS-Chart/Orders/fODBBank.dfm b/CPRS-Chart/Orders/fODBBank.dfm new file mode 100644 index 0000000..6bca234 --- /dev/null +++ b/CPRS-Chart/Orders/fODBBank.dfm @@ -0,0 +1,1061 @@ +inherited frmODBBank: TfrmODBBank + Left = 272 + Top = 171 + Width = 543 + Height = 507 + Caption = 'Blood Component and Diagnostic Test Order Form' + PixelsPerInch = 96 + TextHeight = 13 + inherited memOrder: TCaptionMemo + Top = 431 + Width = 423 + Anchors = [akLeft, akRight, akBottom] + end + inherited cmdAccept: TButton + Left = 435 + Top = 427 + Anchors = [akRight, akBottom] + end + inherited cmdQuit: TButton + Left = 435 + Top = 454 + Anchors = [akRight, akBottom] + end + inherited pnlMessage: TPanel + Left = 12 + Top = 433 + Width = 389 + Anchors = [akLeft, akRight, akBottom] + end + object pnlBB: TPanel + Left = 4 + Top = 4 + Width = 525 + Height = 413 + TabOrder = 5 + object pnlFull: TPanel + Left = 1 + Top = 1 + Width = 523 + Height = 411 + Align = alClient + Caption = 'pnlFull' + TabOrder = 0 + object pgeProduct: TPageControl + Left = 0 + Top = 4 + Width = 521 + Height = 411 + ActivePage = TabDiag + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Images = ImageList1 + ParentFont = False + TabIndex = 1 + TabOrder = 0 + OnChange = pgeProductChange + object tabInfo: TTabSheet + Caption = 'Patient Information' + ImageIndex = 3 + object edtInfo: TCaptionRichEdit + Left = 0 + Top = 8 + Width = 513 + Height = 369 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + Caption = 'Patient Info' + end + end + object TabDiag: TTabSheet + Caption = 'Orders' + ImageIndex = 2 + object lblReqComment: TOROffsetLabel + Left = 300 + Top = 25 + Width = 104 + Height = 33 + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object pnlFields: TPanel + Left = 0 + Top = 87 + Width = 513 + Height = 162 + Hint = 'Data entered into these fields apply to the entire order.' + ParentShowHint = False + ShowHint = True + TabOrder = 0 + object lblDiagComment: TOROffsetLabel + Left = 8 + Top = 114 + Width = 46 + Height = 15 + Caption = 'Comment' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = True + end + object lblUrgency: TLabel + Left = 8 + Top = 80 + Width = 40 + Height = 13 + Caption = 'Urgency' + end + object lblCollType: TLabel + Left = 8 + Top = 41 + Width = 73 + Height = 13 + Caption = 'Collection Type' + end + object lblPreparation: TLabel + Left = 352 + Top = 41 + Width = 54 + Height = 13 + Caption = 'Preparation' + Enabled = False + Visible = False + end + object lblWanted: TLabel + Left = 352 + Top = 5 + Width = 90 + Height = 13 + Caption = 'Date Time Wanted' + end + object lblReason: TLabel + Left = 332 + Top = 114 + Width = 95 + Height = 13 + Caption = 'Reason for Request' + end + object lblSurgery: TLabel + Left = 352 + Top = 80 + Width = 36 + Height = 13 + Hint = + 'Enter the name of the surgical procedure that this request is fo' + + 'r.' + Caption = 'Surgery' + end + object lblCollTime: TLabel + Left = 8 + Top = 5 + Width = 100 + Height = 13 + Caption = 'Collection Date/Time' + end + object cmdImmedColl: TSpeedButton + Left = 132 + Top = 21 + Width = 24 + Height = 17 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + Glyph.Data = { + D6000000424DD60000000000000076000000280000000C0000000C0000000100 + 0400000000006000000000000000000000001000000010000000000000000000 + 80000080000000808000800000008000800080800000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 0000333333333333000033333333333300003333333333330000300330033003 + 0000300330033003000033333333333300003333333333330000333333333333 + 0000333333333333000033333333333300003333333333330000} + ParentFont = False + ParentShowHint = False + ShowHint = False + OnClick = cmdImmedCollClick + end + object txtDiagComment: TCaptionEdit + Left = 8 + Top = 132 + Width = 293 + Height = 21 + MaxLength = 240 + TabOrder = 6 + OnChange = txtDiagCommentChange + end + object cboUrgency: TORComboBox + Left = 8 + Top = 96 + Width = 112 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Urgency' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 5 + OnChange = cboUrgencyChange + CharsNeedMatch = 1 + end + object cboCollType: TORComboBox + Left = 8 + Top = 57 + Width = 149 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Collection Type' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = cboCollTypeChange + CharsNeedMatch = 1 + end + object chkConsent: TCheckBox + Left = 192 + Top = 21 + Width = 112 + Height = 17 + Hint = 'Informed Consent Signed On Chart?' + Alignment = taLeftJustify + Caption = 'Informed Consent?' + ParentShowHint = False + ShowHint = True + TabOrder = 11 + OnClick = chkConsentClick + end + object calWantTime: TORDateBox + Left = 352 + Top = 17 + Width = 149 + Height = 21 + TabOrder = 7 + OnChange = calWantTimeChange + DateOnly = False + RequireTime = False + end + object tReason: TEdit + Left = 332 + Top = 132 + Width = 169 + Height = 21 + MaxLength = 80 + TabOrder = 10 + OnChange = tReasonChange + end + object cboSurgery: TORComboBox + Left = 352 + Top = 92 + Width = 149 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Surgery' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 9 + OnChange = cboSurgeryChange + CharsNeedMatch = 1 + end + object txtImmedColl: TCaptionEdit + Left = 12 + Top = 17 + Width = 145 + Height = 21 + Color = clBtnFace + ReadOnly = True + TabOrder = 2 + Text = 'txtImmedColl' + end + object cboCollTime: TORComboBox + Left = 8 + Top = 17 + Width = 149 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Collection Date/Time' + 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 + end + object pnlCollTimeButton: TKeyClickPanel + Left = 137 + Top = 19 + Width = 20 + Height = 19 + BevelOuter = bvNone + Caption = 'Select collection time' + TabOrder = 3 + TabStop = True + end + object calCollTime: TORDateBox + Left = 8 + Top = 17 + Width = 149 + Height = 21 + TabOrder = 1 + OnChange = calCollTimeChange + DateOnly = False + RequireTime = False + end + object cboPreparation: TORComboBox + Left = 352 + Top = 56 + Width = 149 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + Enabled = False + Items.Strings = ( + 'I^Immediate' + 'H^Hold') + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 8 + Visible = False + OnChange = cboPreparationChange + CharsNeedMatch = 1 + end + end + object pnlTop: TPanel + Left = 0 + Top = 1 + Width = 513 + Height = 84 + TabOrder = 1 + object pnlSelect: TPanel + Left = 5 + Top = 1 + Width = 511 + Height = 76 + TabOrder = 0 + object pnlDiagTests: TGroupBox + Left = 8 + Top = 0 + Width = 245 + Height = 73 + Caption = 'Diagnostic Tests' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + object lblTNS: TLabel + Left = 8 + Top = 52 + Width = 3 + Height = 13 + Color = clActiveBorder + Font.Charset = DEFAULT_CHARSET + Font.Color = clMaroon + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentColor = False + ParentFont = False + end + object cboAvailTest: TORComboBox + Left = 7 + Top = 18 + Width = 226 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Available Lab Tests' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnClick = cboAvailTestSelect + OnExit = cboAvailTestExit + OnNeedData = cboAvailTestNeedData + CharsNeedMatch = 1 + end + end + object pnlBloodComponents: TGroupBox + Left = 252 + Top = 0 + Width = 253 + Height = 73 + Caption = 'Blood Components' + TabOrder = 1 + object lblQuantity: TLabel + Left = 198 + Top = 0 + Width = 39 + Height = 13 + Caption = 'Quantity' + end + object lblModifiers: TLabel + Left = 10 + Top = 48 + Width = 42 + Height = 13 + Caption = 'Modifiers' + end + object cboAvailComp: TORComboBox + Left = 8 + Top = 18 + Width = 181 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Available Lab Tests' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnClick = cboAvailCompSelect + OnExit = cboAvailCompExit + OnNeedData = cboAvailCompNeedData + CharsNeedMatch = 1 + end + object tQuantity: TEdit + Left = 200 + Top = 16 + Width = 25 + Height = 21 + TabOrder = 1 + Text = '0' + end + object upQuantity: TUpDown + Left = 225 + Top = 16 + Width = 15 + Height = 21 + Associate = tQuantity + Min = 0 + Position = 0 + TabOrder = 2 + Wrap = False + end + object cboModifiers: TORComboBox + Left = 56 + Top = 44 + Width = 133 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Modifier' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 3 + CharsNeedMatch = 1 + end + end + end + end + end + object TabResults: TTabSheet + Caption = 'Lab Results' + Enabled = False + object edtResults: TCaptionRichEdit + Left = 0 + Top = 8 + Width = 513 + Height = 369 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + end + end + object pnlSelectedTests: TGroupBox + Left = 4 + Top = 292 + Width = 518 + Height = 117 + Caption = 'Selected Components and Tests' + TabOrder = 1 + Visible = False + object btnAddTests: TORAlignSpeedButton + Left = 426 + Top = 17 + Width = 75 + Height = 21 + Caption = 'Add' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Glyph.Data = { + F6000000424DF600000000000000760000002800000010000000100000000100 + 0400000000008000000000000000000000001000000000000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 3333333333333333333333333333333333333333333003333333333333300333 + 3333333333300333333333333330033333333330000000000333333000000000 + 0333333333300333333333333330033333333333333003333333333333300333 + 3333333333333333333333333333333333333333333333333333} + ParentFont = False + OnClick = btnAddTestsClick + end + object lvSelectionList: TCaptionListView + Left = 4 + Top = 16 + Width = 409 + Height = 93 + Columns = < + item + AutoSize = True + Caption = 'Test/Component' + end + item + AutoSize = True + Caption = 'Qty' + end + item + AutoSize = True + Caption = 'Modifiers' + end + item + Caption = 'ID' + Width = 0 + end> + RowSelect = True + TabOrder = 0 + ViewStyle = vsReport + Caption = 'lvSelectionList' + end + object btnRemove: TButton + Left = 426 + Top = 42 + Width = 75 + Height = 21 + Caption = 'Remove' + TabOrder = 1 + OnClick = btnRemoveClick + end + object btnRemoveAll: TButton + Left = 426 + Top = 68 + Width = 75 + Height = 21 + Caption = 'Remove All' + TabOrder = 2 + OnClick = btnRemoveAllClick + end + end + end + end + object dlgLabCollTime: TORDateTimeDlg + FMDateTime = 2980923 + DateOnly = False + RequireTime = True + Left = 435 + Top = 12 + end + object ORWanted: TORDateTimeDlg + FMDateTime = 2980923 + DateOnly = False + RequireTime = True + Left = 335 + Top = 12 + end + object ImageList1: TImageList + Left = 388 + Top = 12 + Bitmap = { + 494C010104000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000003000000001002000000000000030 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A0A0A002F2F2F00222222000C0C + 0C0015151500262626002A2A2A001F1F1F0001010100171717001C1C1C001313 + 13001B1B1B00181818001616160000000000CFCFD000D9D9D900E2E2E200E9EA + EA00F1F1F300FAFDF600FFFFFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0017171700A2A2A200FFFFFF00FAFA + FA00A7B8110045BC3B0032C32100E0ED4B00DEF65200D8E34600B0B81800C4CC + 2B00E3F45100D0F14900D5E34500AFA31D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000700040005D0250006D6320006D8 + 260007F9070012FC0E0008FC000008FB0C000311ED000000FD00100ADF000000 + 110000000000000000000000000002020200DDDEDF00E5E5E600E8E8ED009896 + A6004B4992004240BC003734BE003734C4003F3DCB005250D50079779700FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0056151700B2A09F00FAFAFA00F5F5 + F500BD9E070036E1370096D53200DEEE4300E8E73F00D5EE4600B99D1000BEB7 + 1400E9E74200C7D12300AFD73B00D28229000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000600040001FF000001FF000001FF + 000001FF000001FF000001FF000000FF05000EC4360004ED000004E119000000 + 270000000000000000000000000002020200E4E4E500E9EAE80063606B005C59 + CB00544FCD004E48CD004944BC004540C800433FCD004A48D3006060DE009695 + BD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BF191800EDA6A300FCFCFC00FCFC + FC00A4A103005ECF770080D32A0046BD140081DD36009CE03500F2F54B007FCF + 28006FCE2900EFF55400BAA81B00C78F20000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000500030001FF000001FF000001FF + 000001FF000001FF000001FF000001FF000001FF000010FD020005FF05000500 + 000000000000000000000000000002020200E9EAE7009D99BF007773EC007A75 + F6007C75F700756EF4006D66E800635DDA00514DD0004A47D3005451D8006E6C + DB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CF292800F2ABA800FCFCFC00FCFC + FC00C2B91600CFC8250066C61B0036DB340021AB0600DCEF4C00F0F8510047BB + 140022BE1900F4F34F00C2911700B7B415000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000801060001FF000001FF000001FF + 000001FF000001FF000001FF000001FF000001FF000010FD020005FF05000500 + 000000000000000000000000000002020200EBEBED00A9A6D7009691F6009B95 + FB00AAA3FF00A79EFF009B93FF00837AF2006761D5005651C3005753D6006C6A + DE00FDFEFF00FFFFFF00FFFFFF00FFFFFF00D57C2C00F2CAAE00FEFEFE00FCFC + FC00F4FC5500E4F14F0057C41A003EE33C0043BD1500C0E94000F2F14900B0DD + 3A000DB60C00EFF24800D0F04500E1AD7E000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000500030001FF000001FF000001FF + 000001FF000001FF000001FF000001FF000001FF000010FD020005FF05000500 + 000000000000000000000000000002020200EDEDEE00EAEAEE00ABA5F600BAB5 + FB00E9E6FC00FFFFFF00D4D1FF009A92FD007770E400615CCB005F5BD400726F + D900FFFFFF00FFFFFF00FFFFFF00FFFFFF00CFCF2900F0ECA500FCFCFC00FCFC + FC0042F0450019B215001CBC160017B70B0079D42B0025D52A00E9F64E004BC0 + 17002FC31700D9F34C003FB90F00FFFFF3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000D060B0001FF000000EB110000FF + 0B000DFE070001FF000001FF000001FF000000EE0F000AFD080006F806000802 + 030000000000000000000000000002020200EDEDEE00F1F1F200EDECEF00B9B3 + F800C1BBFC00D1D0FE00BEB6FF00968DFF007973EC006863D4006B67CA008381 + B800FFFFFF00FFFFFF00FFFFFF00FFFFFF009ED52A00D5EFA300FCFCFC00FCFC + FC005DE8610050F57C009FDE3A003FE33E001EBA150027C017008AD92E003EC3 + 1F0026BB14007FDE3A0037BB1000FFF2FA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000500030001FF000000DC1D0001FF + 000006FF000001FF000001FF000001FF00000BFF070010FD020001FF00000500 + 000000000000000000000000000002020200EBEBEC00EFEFEF00F2F1F300F4F3 + F300ABA7F100A39DF7009E8EFE00887AFF006D69E2006965CF007471C500E9EB + F900FFFFFF00FFFFFF00FFFFFF00FFFFFF001DBF2A00A2E79E00FCFCFC00FCFC + FC00BAAA670078EBD80034DE48004FF6870034D6360086CB2E00A1E032009FE2 + 430022D931007DF96900E2F2F900FCFCFC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000801060001FF000000E1220001FF + 000006FF000001FF000000FE000001FF000009FF070010FD020001FF00000500 + 000000000000000000000000000002020200E5E5E500E9E9EA00ECECED00EFEF + F000EFEEF1008A85E200736EF600635EF700615EC9006B68B000BCBCDC00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0050FB9F00B0FFD800F9F9F900FBFB + FB00FCFCFC00FAFAFA006EB247002FFF860017AD13009BD53A000FB0000025C1 + 2700DCE2D100FCFCFC00FCFCFC00FCFCFC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000C00030001FF000000E1220001FF + 000006FF000001FF00000EFC000007FC02000AE4210010FF000002FF00000901 + 010000000000000000000000000002020200DBDBDB00E0E0E100E5E5E600E8E8 + E900EAE9EA00E7EBE6005F5EDE005858EF005F60A2008989B300FCFBFD00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0042DBEA00ACECF700FFFFFF00FBFB + FB00FCFCFC00FDFDFD00FFE9FF00EEDDC200127DBA0035D73C0043C70800E2C5 + A000FFFEFF00FCFCFC00FCFCFC00FCFCFC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000500030003FF000000DD2A0001FF + 000006FF000002FD020005FF000000FF000000180A0004FF07001ECB16000002 + 000000000000000000000000000002020200C9C9CA00D0D0D100D7D8D800DCDC + DD00DEDFE000E0E1E100E1E0E0005353E3005A5D7500EDF0F100F6F9F900FAFB + FB00FDFDFE00FEFEFE00FFFFFF00FFFFFF006393E500BAD2EE00FCFCFC00FCFC + FC00FCFCFC00FCFCFC00FCFCFC00FFFFF800DE39D600167EB90044D8EE00F5FA + FF00FCFCFC00FCFCFC00FCFCFC00FCFCFC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000902070000FF000000DD2A0001FF + 000006FF00000DF6060015751A0007FF00000806060003FF0000001000000005 + 000000000000000000000000000002020200B7B8B800BCBDBD00C4C5C500CCCD + CD00D1D1D100D4D5D500D7D7D800C6C5D0004D4EA900E5E6E300EDEEED00F3F4 + F400F8F8F800FBFBFB00FCFCFC00FCFDFD00DC3BD300F0AAF000FDFDFD00FCFC + FC00FCFCFC00FCFCFC00FCFCFC00F1F2FF00C820B9001EA8B4005BCAFA00EAEC + FF00FCFCFC00FCFCFC00FCFCFC00FCFCFC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000500030000FF000000DD2A0001FF + 000006FF00000DB0000020001C0000F500001300140025000D00000200000401 + 000000000000000000000000000002020200A5A5A600A5A5A600ACADAD00B5B5 + B500BDBCBD0000000000C6C7C800CBC8CB00B1B0C400BDBDC100DDDDDB00E4E4 + E400EAEAEA00EEEFEF00F1F2F200F2F3F300E03FD700F3ADF300F8F8F800FCFC + FC00FCFCFC00FCFCFC00FCFCFC00CCC7C600AD68C900515ADA0035C83600B185 + 8600FCFCFC00FCFCFC00FCFCFC00FCFCFC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A03080000FF000000D7240001FF + 0000000600001D3F160000010000219024000000070000000000020103000000 + 0000000000000000000000000000020202008F8F8F008F8F8F008F8F8F009596 + 96009D9E9E00A5A5A600AAABAB00B0B0B100B6B6B700BAB8BA009C9DA100C5C6 + C700CDCECE00D2D2D300D5D5D600D6D6D600A71BC200DE9FE500FCFCFC00FCFC + FC00FCFCFC00FCFCFC00FCFCFC00DA971200AFB91300CEA42100E86B2100677E + AE00FCFCFC00FCFCFC00FCFCFC00FCFCFC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000903000014F70600130830000BED + 00000200010008000A0003020400000700000000070000000000020103000000 + 0000000000000000000000000000020202007C7D7D007C7D7D007C7D7D007C7D + 7D007E7E7E00848585008B8B8C0091919200979798009C9D9D00A1A1A000A3A4 + A200A8A9A900AEAEAE00B1B1B100B2B2B3003A2EFF00B0ADFD00FEFEFE00FFFF + FF00FCFCFC00FCFCFC00FFFCFF00AAD83100FAF8FE00511C1900FAE7F000EDD8 + E000FCFCFC00FCFCFC00FCFCFC00FCFCFC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000013131300161616000A0D11000000 + 0000030408000101010001010100010101000000030001010100000100000101 + 0100010101000101010001010100020202006B6B6C006B6B6C006B6B6C006B6B + 6C006B6B6C006B6B6C006B6B6C006D6D6E0072727200767677007A7B7B007E7E + 7E00818182008484840087878700888889000C04F10099A0F000F7F7F700FBFB + FB00FCFCFC00FCFCFC00FDFFFF00FFF7FF0057262400CE5C45009A252200B8C9 + C600FCFCFC00FCFCFC00FCFCFC00FCFCFC00424D3E000000000000003E000000 + 2800000040000000300000000100010000000000800100000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFF000000000000FFFF000000000000 + FFFF000000000000FFFF000000000000FFFF000000000000FFFF000000000000 + FFFF000000000000FFFF000000000000FFFF000000000000FFFF000000000000 + FFFF000000000000FFFF000000000000FFFF000004000000FFFF000000000000 + FFFF000000000000FFFF00000000000000000000000000000000000000000000 + 000000000000} + end +end diff --git a/CPRS-Chart/Orders/fODBBank.pas b/CPRS-Chart/Orders/fODBBank.pas new file mode 100644 index 0000000..37e7809 --- /dev/null +++ b/CPRS-Chart/Orders/fODBBank.pas @@ -0,0 +1,2304 @@ +unit fODBBank; + +interface + +uses + SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, + Forms, Dialogs, StdCtrls, ORCtrls, ORfn, fODBase, ExtCtrls, ComCtrls, uConst, + ORDtTm, Buttons, Menus, ImgList; + +type + TfrmODBBank = class(TfrmODBase) + pnlBB: TPanel; + pnlFull: TPanel; + pgeProduct: TPageControl; + tabInfo: TTabSheet; + edtInfo: TCaptionRichEdit; + TabDiag: TTabSheet; + lblReqComment: TOROffsetLabel; + pnlFields: TPanel; + dlgLabCollTime: TORDateTimeDlg; + ORWanted: TORDateTimeDlg; + lblDiagComment: TOROffsetLabel; + txtDiagComment: TCaptionEdit; + pnlSelectedTests: TGroupBox; + lvSelectionList: TCaptionListView; + lblUrgency: TLabel; + cboUrgency: TORComboBox; + lblCollType: TLabel; + cboCollType: TORComboBox; + chkConsent: TCheckBox; + lblPreparation: TLabel; + calWantTime: TORDateBox; + lblWanted: TLabel; + tReason: TEdit; + lblReason: TLabel; + cboSurgery: TORComboBox; + lblSurgery: TLabel; + txtImmedColl: TCaptionEdit; + cboCollTime: TORComboBox; + lblCollTime: TLabel; + cmdImmedColl: TSpeedButton; + pnlCollTimeButton: TKeyClickPanel; + calCollTime: TORDateBox; + cboPreparation: TORComboBox; + btnRemove: TButton; + btnRemoveAll: TButton; + pnlTop: TPanel; + pnlSelect: TPanel; + pnlDiagTests: TGroupBox; + cboAvailTest: TORComboBox; + pnlBloodComponents: TGroupBox; + lblQuantity: TLabel; + cboAvailComp: TORComboBox; + tQuantity: TEdit; + upQuantity: TUpDown; + TabResults: TTabSheet; + edtResults: TCaptionRichEdit; + btnAddTests: TORAlignSpeedButton; + ImageList1: TImageList; + lblModifiers: TLabel; + cboModifiers: TORComboBox; + lblTNS: TLabel; + procedure FormCreate(Sender: TObject); + procedure cboAvailTestSelect(Sender: TObject); + procedure cboAvailCompSelect(Sender: TObject); + procedure DisableCommentPanels; + procedure DisableComponentControls; + procedure DisableDiagTestControls; + procedure EnableComponentControls; + procedure EnableDiagTestControls; + procedure cboAvailTestExit(Sender: TObject); + procedure cboAvailCompExit(Sender: TObject); + procedure cboAvailTestNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + procedure cboAvailCompNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + procedure cmdImmedCollClick(Sender: TObject); + procedure pgeProductChange(Sender: TObject); + procedure cboCollTypeChange(Sender: TObject); + procedure btnAddTestsClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure btnRemoveAllClick(Sender: TObject); + procedure cmdAcceptClick(Sender: TObject); + procedure calWantTimeChange(Sender: TObject); + procedure chkConsentClick(Sender: TObject); + procedure cboUrgencyChange(Sender: TObject); + procedure txtDiagCommentChange(Sender: TObject); + procedure cboPreparationChange(Sender: TObject); + procedure cboSurgeryChange(Sender: TObject); + procedure tReasonChange(Sender: TObject); + procedure calCollTimeChange(Sender: TObject); + protected + FCmtTypes: TStringList ; + procedure InitDialog; override; + function ValidCollTime(UserEntry: string): string; + procedure GetAllCollSamples(AComboBox: TORComboBox); + procedure GetAllSpecimens(AComboBox: TORComboBox); + procedure SetupCollTimes(CollType: string); + procedure LoadCollType(AComboBox:TORComboBox); + function ValidAdd: Boolean; + procedure ValidateAdd(var AnErrMsg: string); + procedure Validate(var AnErrMsg: string); override; + procedure ExtractMSBOS(OutList:TStrings; AList:TStrings); + procedure ExtractTests(OutList:TStrings; AList:TStrings); + procedure ExtractSurgeries(OutList:TStrings; AList:TStrings); + procedure ExtractUrgencies(OutList:TStrings; AList:TStrings); + procedure ExtractModifiers(OutList:TStrings; AList:TStrings); + procedure ExtractSpecimens(OutList:TStrings; AList:TStrings); + procedure ExtractTypeScreen(OutList:TStrings; AList:TStrings); + procedure ExtractPatientInfo(OutList:TStrings; AList:TStrings); + procedure ExtractSpecimen(OutList:TStrings; AList:TStrings); + function SpecimenNeeded(OutList:TStrings; AList:TStrings; CompID:integer): Boolean; + procedure LoadUrgencies(AComboBox:TORComboBox); + procedure LoadModifiers(AComboBox:TORComboBox); + private + FLastCollType: string; + FLastCollTime: string; + FLastLabCollTime: string; + FLastLabID: string; + FLastItemID: string; + FEvtDelayLoc: integer; + FEvtDivision: integer; + FVbecLookup: string; + procedure ReadServerVariables; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + procedure LoadRequiredComment(CmtType: integer); + procedure DetermineCollectionDefaults(Responses: TResponses); + property EvtDelayLoc: integer read FEvtDelayLoc write FEvtDelayLoc; + property EvtDivision: integer read FEvtDivision write FEvtDivision; + end; + +type + TCollSamp = class(TObject) + CollSampID: Integer; { IEN of CollSamp } + CollSampName: string; { Name of CollSamp } + SpecimenID: Integer; { IEN of default specimen } + SpecimenName: string; { Name of the specimen } + TubeColor: string; { TubeColor (text) } + MinInterval: Integer; { Minimum days between orders } + MaxPerDay: Integer; { Maximum orders per day } + LabCanCollect: Boolean; { True if lab can collect } + SampReqComment: string; { Name of required comment } + WardComment: TStringList; { CollSamp specific comment } + end; + + TLabTest = class(TObject) + TestID: Integer; { IEN of Lab Test } + TestName: string; { Name of Lab Test } + ItemID: Integer; { Orderable Item ID } + LabSubscript: string ; { which section of Lab? } + CollSamp: Integer; { index into CollSampList } + Specimen: Integer; { IEN of specimen } + Comment: TStringList; { text of comment } + TestReqComment: string; { Name of required comment } + CurReqComment: string; { name of required comment } + CurWardComment: TStringList; { WP of Ward Comment } + UniqueCollSamp: Boolean; { true if not prompt CollSamp } + CollSampList: TList; { collection sample objects } + CollSampCount: integer; { count of original contents of CollSampList} + SpecimenList: TStringList; { Strings: IEN^Specimen Name } + SpecListCount: integer; { count of original contents of SpecimenList} + SurgeryList: TStringList; { Strings: Surgeries} + PatientInfo: TStringList; { Text of Patient Information} + ResultsDisplay: TStringList; { Text of Test Results} + QuickOrderResponses: TResponses; { if created as a result of a quick order selection} + { functions & procedures } + constructor Create(const LabTestIEN: string; Responses: TResponses); + destructor Destroy; override ; + function IndexOfCollSamp(CollSampIEN: Integer): Integer; + procedure FillCollSampList(LoadData: TStringList; DfltCollSamp: Integer); + procedure LoadAllSamples; + procedure SetCollSampDflts; + procedure ChangeCollSamp(CollSampIEN: Integer); + procedure ChangeSpecimen(const SpecimenIEN: string); + procedure ChangeComment(const CommentText: string); + function LabCanCollect: Boolean; + procedure LoadCollSamp(AComboBox: TORComboBox); + procedure LoadSpecimen(AComboBox: TORComboBox); + function NameOfCollSamp: string; + function NameOfSpecimen: string; + function ObtainCollSamp: Boolean; + function ObtainSpecimen: Boolean; + function ObtainComment: Boolean; + end; + +const + CmtType: array[0..6] of string = ('ANTICOAGULATION','DOSE/DRAW TIMES','ORDER COMMENT', + 'ORDER COMMENT MODIFIED','TDM (PEAK-TROUGH)', + 'TRANSFUSION','URINE VOLUME'); +var + frmODBBank: TfrmODBBank; + +implementation + +{$R *.dfm} + +uses rODBase, rODLab, uCore, rCore, fODLabOthCollSamp, fODLabOthSpec, fODLabImmedColl, fLabCollTimes, + rOrders, uODBase, fRptBox; + +var + uSelectedItems: TStringList; //Selected Items in ListView- if TestYes =1 then test else component + //TestYes(1)^Test-Component(2)^Qty(3)^Sample(4,5)^Specimen(6,7)^Modifier(8) + uVBECList: TStringList; //List of items from VBEC api + uTestsForResults: TStringList; //List of tests to show results + uUrgencyList: TStringList; //List of Urgencies + uModifierList: TStringList; //List of Modifiers + uRaw: TStringList; //Results Array + uTestSelected, uComponentSelected: Boolean; //Used on Validate + uDfltUrgency: Integer; + uSpecimen, uGetTnS: Integer; //Set to 1 if a specimen for test is already in lab... no need to collect + uDfltCollType: string; + ALabTest: TLabTest; + UserHasLRLABKey: boolean; + LRFZX : string; //the default collection type (LC,WC,SP,I) + LRFSAMP : string; //the default sample (ptr) + LRFSPEC : string; //the default specimen (ptr) + LRFDATE : string; //the default collection time (NOW,NEXT,AM,PM,T...) + LRFURG : string; //the default urgency (number) TRY '2' + LRFSCH : string; //the default schedule? (ONE TIME, QD, ...) + LRORDERMODE : Integer; //the mode being used to order (component or diagnostic test) + +const + TX_NO_TEST = 'A Lab Test must be specified.' ; + TX_NO_IMMED = 'Immediate collect is not available for this test/sample'; + TX_NO_IMMED_CAP = 'Invalid Collection Type'; + + TI_INFO = 0; //Corresponds with pgeProduct TabIndex + TI_ORDER = 1; + TI_RESULTS = 2; + + TORDER_MODE_INFO = 0; + TORDER_MODE_DIAG = 1; + TORDER_MODE_COMP = 2; + +procedure TfrmODBBank.FormCreate(Sender: TObject); +var + i: integer; + AList, ATests: TStringList; +begin + AutoSizeDisabled := True; + inherited; + AList := TStringList.Create; + ATests := TStringList.Create; + uSelectedItems := TStringList.Create; + uVBECList := TStringList.Create; + uTestsForResults := TStringList.Create; + uUrgencyList := TStringList.Create; + uModifierList := TStringList.Create; + uRaw := TStringList.Create; + uSpecimen := 0; + uGetTnS := 0; + lblTNS.Caption := ''; + lblTNS.Visible := false; + uDfltUrgency := 9; + TabResults.ImageIndex := 0; + Responses.Clear; + try + LRFZX := ''; + LRFSAMP := ''; + LRFSPEC := ''; + LRFDATE := ''; + LRFURG := ''; + LRFSCH := ''; + LRORDERMODE := TORDER_MODE_INFO; + DisableComponentControls; + DisableDiagTestControls; + FLastColltime := ''; + FLastLabCollTime := ''; + FLastItemID := ''; + uDfltCollType := ''; + FillerID := 'LR'; + FEvtDelayLoc := 0; + FEvtDivision := 0; + UserHasLRLABKey := User.HasKey('LRLAB'); + AllowQuickOrder := True; + StatusText('Loading Dialog Definition'); + lblReqComment.Visible := False ; + lblModifiers.Enabled := False; + cboModifiers.Enabled := False; + FCmtTypes := TStringList.Create; + for i := 0 to 6 do FCmtTypes.Add(CmtType[i]) ; + Responses.Dialog := 'VBEC BLOOD BANK'; // loads formatting info + StatusText('Loading Default Values'); + if Self.EvtID > 0 then + begin + EvtDelayLoc := StrToIntDef(GetEventLoc1(IntToStr(Self.EvtID)),0); + EvtDivision := StrToIntDef(GetEventDiv1(IntToStr(Self.EvtID)),0); + if EvtDelayLoc>0 then + AList.Assign(ODForLab(EvtDelayLoc,EvtDivision)) + else + AList.Assign(ODForLab(Encounter.Location,EvtDivision)); + end else + AList.Assign(ODForLab(Encounter.Location)); // ODForLab returns TStrings with defaults + CtrlInits.LoadDefaults(AList); + InitDialog; + with CtrlInits do + begin + SetControl(cboCollType, 'Collection Types'); + uDfltCollType := ExtractDefault(AList, 'Collection Types'); + if uDfltCollType <> '' then + cboCollType.SelectByID(uDfltCollType) + else if OrderForInpatient then + cboCollType.SelectByID('LC') + else + cboCollType.SelectByID('SP'); + SetupCollTimes(cboCollType.ItemID); + StatusText('Initializing List of Tests'); + FVbecLookup := 'S.VBT'; + cboAvailTest.InitLongList(''); + end; + cboAvailComp.Clear; + aList.Clear; + GetBloodComponents(aList); //Get Components in right order + for i := 0 to aList.Count - 1 do + cboAvailComp.Items.Add(aList[i]); + uVBECList.Clear; + edtInfo.Clear; + cboSurgery.Clear; + GetPatientBBInfo(uVBECList, Patient.DFN, Encounter.Location); + aList.Clear; + ExtractPatientInfo(AList, uVBECList); + QuickCopy(AList, edtInfo); + AList.Clear; + ExtractSurgeries(AList, uVBECList); + for i := 0 to AList.Count - 1 do + cboSurgery.Items.Add(AList[i]); + AList.Clear; + ExtractUrgencies(uUrgencyList, uVBECList); + LoadUrgencies(cboUrgency); + cboUrgency.SelectByID(IntToStr(uDfltUrgency)); + ExtractModifiers(uModifierList, uVBECList); + LoadModifiers(cboModifiers); + calWantTime.Text := FormatFMDateTime('mmm dd,yyyy@hh:nn',DateTimeToFMDateTime(Now)); + //cboPreparation.SelectByID('I'); + memMessage.Visible := false; + memOrder.Visible := false; + cmdAccept.Visible := false; + pgeProduct.TabIndex := TI_INFO; + lvSelectionList.Column[0].Width := 200; + lvSelectionList.Column[1].Width := 40; + pgeProduct.ActivePageIndex := TI_INFO; + PreserveControl(cboAvailTest); + PreserveControl(cboAvailComp); + PreserveControl(cboCollType); + PreserveControl(cboCollTime); + PreserveControl(calCollTime); + PreserveControl(calWantTime); + StatusText(''); + + finally + AList.Free; + ATests.Free; + end; +end; + +procedure TfrmODBBank.InitDialog; +begin + inherited; + Changing := True; + if ALabTest <> nil then + begin + ALabTest.Destroy; + ALabTest := nil; + end; + DisableCommentPanels; + cboAvailTest.SelectByID(FLastItemID); + cboAvailComp.SelectByID(FLastItemID); + cboAvailTest.ItemIndex := -1; + StatusText(''); + Changing := False ; +end; + +procedure TfrmODBBank.SetupDialog(OrderAction: Integer; const ID: string); +var + tmpResp: TResponse; + i: integer; +begin + inherited; + ReadServerVariables; + if LRFZX <> '' then + begin + cboCollType.SelectByID(LRFZX); + if cboCollType.ItemIndex > -1 then SetupCollTimes(LRFZX); + end; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses, ALabTest do + begin + SetControl(cboAvailTest, 'ORDERABLE', 1); + cboAvailTestSelect(Self); + if ALabTest = nil then Exit; // Causes access violation in FillCollSampleList + Changing := True; + DetermineCollectionDefaults(Responses); + i := 1 ; + tmpResp := Responses.FindResponseByName('COMMENT',i); + while tmpResp <> nil do + begin + Comment.Add(tmpResp.EValue); + Inc(i); + tmpResp := Responses.FindResponseByName('COMMENT',i); + end ; + Changing := False; + end; +end; + +constructor TLabTest.Create(const LabTestIEN: string; Responses: TResponses); +var + LoadData, OneSamp: TStringList; + DfltCollSamp: Integer; + x: string; + tmpResp: TResponse; +begin + LoadData := TStringList.Create; + try + LoadLabTestData(LoadData, LabTestIEN) ; + with LoadData do + begin + QuickOrderResponses := Responses; + TestID := StrToInt(LabTestIEN); + TestName := Piece(ExtractDefault(LoadData, 'Test Name'),U,1); + ItemID := StrToInt(Piece(ExtractDefault(LoadData, 'Item ID'),U,1)); + LabSubscript := Piece(ExtractDefault(LoadData, 'Item ID'),U,2); + TestReqComment := ExtractDefault(LoadData, 'ReqCom'); + if Length(ExtractDefault(LoadData, 'Unique CollSamp')) > 0 then UniqueCollSamp := True; + x := ExtractDefault(LoadData, 'Unique CollSamp'); + if Length(x) = 0 then x := ExtractDefault(LoadData, 'Lab CollSamp'); + if Length(x) = 0 then x := ExtractDefault(LoadData, 'Default CollSamp'); + if Length(x) = 0 then x := '-1'; + DfltCollSamp := StrToInt(x); + SpecimenList := TStringList.Create; + ExtractItems(SpecimenList, LoadData, 'Specimens'); + if LRFSPEC <> '' then SpecimenList.Add(GetOneSpecimen(StrToInt(LRFSPEC))); + Comment := TStringList.Create ; + CurWardComment := TStringList.Create; + ExtractText(CurWardComment, LoadData, 'GenWardInstructions'); + CollSamp := 0; + CollSampList := TList.Create; + FillCollSampList(LoadData, DfltCollSamp); + with QuickOrderResponses do tmpResp := FindResponseByName('SAMPLE' ,1); + if (LRFSAMP <> '') and (IndexOfCollSamp(StrToInt(LRFSAMP)) < 0) and + (not UniqueCollSamp) and (tmpResp = nil) then + begin + OneSamp := TStringList.Create; + try + OneSamp.Assign(GetOneCollSamp(StrToInt(LRFSAMP))); + FillCollSampList(OneSamp, CollSampList.Count); + finally + OneSamp.Free; + end; + end; + if (not UniqueCollSamp) and (CollSampList.Count = 0) then LoadAllSamples; + CollSampCount := CollSampList.Count; + end; + finally + LoadData.Free; + end; + SetCollSampDflts; +end; + +destructor TLabTest.Destroy; +var + i: Integer; +begin + if CollSampList <> nil then + with CollSampList do for i := 0 to Count - 1 do + with TCollSamp(Items[i]) do + begin + WardComment.Free; + Free; + end; + CollSampList.Free; + SpecimenList.Free; + CurWardComment.Free; + Comment.Free; + inherited Destroy; +end; + +function TLabTest.IndexOfCollSamp(CollSampIEN: Integer): Integer; +var + i: Integer; +begin + Result := -1; + with CollSampList do for i := 0 to Count - 1 do with TCollSamp(Items[i]) do + if CollSampIEN = CollSampID then + begin + Result := i; + break; + end; +end; + +procedure TLabTest.LoadAllSamples; +var + LoadList, SpecList: TStringList; + i: Integer; +begin + LoadList := TStringList.Create; + SpecList := TStringList.Create; + try + LoadSamples(LoadList) ; + FillCollSampList(LoadList, 0); + ExtractItems(SpecList, LoadList, 'Specimens'); + with SpecList do for i := 0 to Count - 1 do + if SpecimenList.IndexOf(Strings[i]) = -1 then SpecimenList.Add(Strings[i]); + finally + LoadList.Free; + SpecList.Free; + end; +end; + +procedure TLabTest.FillCollSampList(LoadData: TStringList; DfltCollSamp: Integer); +{1 2 3 4 5 6 7 8 9 10 } +{n^IEN^CollSampName^SpecIEN^TubeTop^MinInterval^MaxPerDay^LabCollect^SampReqCommentIEN;name^SpecName} +var + i, LastListItem, AnIndex: Integer; + ACollSamp: TCollSamp; + LabCollSamp: Integer; +begin + i := -1; + if CollSampList = nil then CollSampList := TList.Create; + LastListItem := CollSampList.Count ; + LabCollSamp := StrToIntDef(ExtractDefault(LoadData, 'Lab CollSamp'), 0); + repeat Inc(i) until (i = LoadData.Count) or (LoadData[i] = '~CollSamp'); + Inc(i); + if i < LoadData.Count then repeat + if LoadData[i][1] = 'i' then + begin + ACollSamp := TCollSamp.Create; + with ACollSamp do + begin + AnIndex := StrToIntDef(Copy(Piece(LoadData[i], '^', 1), 2, 999), -1); + CollSampID := StrToInt(Piece(LoadData[i], '^', 2)); + CollSampName := Piece(LoadData[i], '^', 3); + SpecimenID := StrToIntDef(Piece(LoadData[i], '^', 4), 0); + SpecimenName := Piece(LoadData[i], '^', 10); + TubeColor := Piece(LoadData[i], '^', 5); + MinInterval := StrToIntDef(Piece(LoadData[i], '^', 6), 0); + MaxPerDay := StrToIntDef(Piece(LoadData[i], '^', 7), 0); + LabCanCollect := AnIndex = LabCollSamp; + SampReqComment := Piece(LoadData[i], '^', 9); + WardComment := TStringList.Create; + if CollSampID = StrToIntDef(LRFSAMP, 0) then + CollSamp := CollSampID + else if AnIndex = DfltCollSamp then + CollSamp := CollSampID; + end; {with} + LastListItem := CollSampList.Add(ACollSamp); + end; {if} + if (LoadData[i][1] = 't') then + TCollSamp(CollSampList.Items[LastListItem]).WardComment.Add(Copy(LoadData[i], 2, 255)); + Inc(i); + until (i = LoadData.Count) or (LoadData[i][1] = '~'); +end; + +procedure TLabTest.SetCollSampDflts; +var + tmpResp: TResponse; +begin + Specimen := 0; + Comment.Clear; + CurReqComment := TestReqComment; + if CollSamp = 0 then Exit; + with QuickOrderResponses do tmpResp := FindResponseByName('SPECIMEN' ,1); + if (LRFSPEC <> '') and (tmpResp = nil) then + ChangeSpecimen(LRFSPEC) + else with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do + begin + Specimen := SpecimenID; + if SampReqcomment <> '' then CurReqComment := SampReqComment; + end; +end; + +procedure TLabTest.ChangeCollSamp(CollSampIEN: Integer); +begin + CollSamp := CollSampIEN; + SetCollSampDflts; +end; + +procedure TLabTest.ChangeSpecimen(const SpecimenIEN: string); +begin + Specimen := StrToIntDef(SpecimenIEN,0); +end; + +procedure TLabTest.ChangeComment(const CommentText: string); +begin + Comment.Add(CommentText); +end; + +function TLabTest.LabCanCollect: Boolean; +var + i: Integer; +begin + Result := False; + i := IndexOfCollSamp(CollSamp); + if i > -1 then with TCollSamp(CollSampList.Items[i]) do Result := LabCanCollect; +end; + +procedure TLabTest.LoadCollSamp(AComboBox: TORComboBox); +{ loads the collection sample combo box, expects CollSamp to already be set to default } +var + i: Integer; + x: string; +begin + AComboBox.Clear; + with CollSampList do for i := 0 to Count - 1 do with TCollSamp(Items[i]) do + begin + x := IntToStr(CollSampID) + '^' + CollSampName; + if Length(TubeColor) <> 0 then x := x + ' (' + TubeColor + ')'; + AComboBox.Items.Add(x); + if CollSamp = CollSampID then AComboBox.ItemIndex := i; + end; + if ((ALabTest.LabSubscript = 'CH') and (not UserHasLRLABKey)) then + begin + // do not add 'Other' (coded this way for clarity) + end + else + with AComboBox do + begin + Items.Add('0^Other...'); + if ItemIndex < 0 then ItemIndex := Items.IndexOf('Other...'); + end; +end; + +procedure TLabTest.LoadSpecimen(AComboBox: TORComboBox); +{ loads specimen combo box, if SpecimenList is empty, use 'E' xref on 61 ?? } +var + i: Integer; + tmpResp: TResponse; +begin + AComboBox.Clear; + if ObtainSpecimen then + begin + if SpecimenList.Count = 0 then LoadSpecimens(SpecimenList) ; + AComboBox.Items.Assign(SpecimenList); + AComboBox.Items.Add('0^Other...'); + with QuickOrderResponses do tmpResp := FindResponseByName('SPECIMEN' ,1); + if (LRFSPEC <> '') and (tmpResp = nil) then + AComboBox.SelectByID(LRFSPEC) + else if Specimen > 0 then + AComboBox.SelectByIEN(Specimen) + else + AComboBox.ItemIndex := AComboBox.Items.IndexOf('Other...'); + end + else + begin + i := IndexOfCollSamp(CollSamp); + if i < CollSampList.Count then with TCollSamp(CollSampList.Items[i]) do + begin + AComboBox.Items.Add(IntToStr(SpecimenID) + '^' + SpecimenName); + AComboBox.ItemIndex := 0; + end; + with QuickOrderResponses do tmpResp := FindResponseByName('SPECIMEN' ,1); + if (LRFSPEC <> '') and (tmpResp = nil) then + begin + AComboBox.Items.Add(GetOneSpecimen(StrToInt(LRFSPEC))); + AComboBox.SelectByID(LRFSPEC); + end; + end; + ChangeSpecimen(AComboBox.ItemID); +end; + +function TLabTest.NameOfCollSamp: string; +var + i: Integer; +begin + Result := ''; + i := IndexOfCollSamp(CollSamp); + if i > -1 then with TCollSamp(CollSampList.Items[i]) do Result := CollSampName; +end; + +function TLabTest.NameOfSpecimen: string; +var + i: Integer; +begin + Result := ''; + if CollSamp > 0 then with TCollSamp(CollSampList[IndexOfCollSamp(CollSamp)]) do + if (Specimen > 0) and (Specimen = SpecimenID) then Result := SpecimenName; + if (Length(Result) = 0) and (Specimen > 0) then with SpecimenList do + for i := 0 to Count - 1 do if Specimen = StrToInt(Piece(Strings[i], '^', 1)) then + begin + Result := Piece(Strings[i], '^', 2); + break; + end; +end; + +function TLabTest.ObtainCollSamp: Boolean; +begin + Result := (not UniqueCollSamp); +end; + +function TLabTest.ObtainSpecimen: Boolean; +var + i: Integer; +begin + Result := True; + i := IndexOfCollSamp(CollSamp); + if (i > -1) and (i < CollSampList.Count) then with TCollSamp(CollSampList.Items[i]) do + if SpecimenID > 0 then Result := False; +end; + +function TLabTest.ObtainComment: Boolean; +begin + Result := Length(CurReqComment) > 0; +end; + +procedure TfrmODBBank.ExtractModifiers(OutList:TStrings; AList:TStrings); +begin + ExtractItems(Outlist, AList,'MODIFIERS'); +end; + +procedure TfrmODBBank.ExtractUrgencies(OutList:TStrings; AList:TStrings); +begin + ExtractItems(Outlist, AList,'URGENCIES'); +end; + +procedure TfrmODBBank.ExtractSurgeries(OutList:TStrings; AList:TStrings); +begin + ExtractItems(OutList, AList,'SURGERIES'); +end; + +procedure TfrmODBBank.ExtractSpecimens(OutList:TStrings; AList:TStrings); +begin + ExtractItems(OutList, AList,'SPECIMENS'); +end; + +procedure TfrmODBBank.ExtractTypeScreen(OutList:TStrings; AList:TStrings); +begin + ExtractItems(OutList, AList, 'TYPE AND SCREEN'); +end; + +procedure TfrmODBBank.ExtractSpecimen(OutList:TStrings; AList:TStrings); +begin + ExtractItems(OutList, AList, 'SPECIMEN'); +end; + +procedure TfrmODBBank.ExtractPatientInfo(OutList:TStrings; AList:TStrings); +begin + ExtractItems(OutList, AList, 'INFO'); +end; + +procedure TfrmODBBank.ExtractTests(OutList:TStrings; AList:TStrings); +begin + ExtractItems(OutList, AList, 'TESTS'); +end; + +procedure TfrmODBBank.ExtractMSBOS(OutList:TStrings; AList:TStrings); +begin + ExtractItems(OutList, AList, 'MSBOS'); +end; + +function TfrmODBBank.SpecimenNeeded(OutList:TStrings; AList:TStrings; CompID:integer): Boolean; +var + i:integer; + aborh: boolean; + aSpecimen, aSpecimenDate: string; + aWantDateTime, aExpiredSpecimenDate: TFMDateTime; +begin + result := false; + aborh := false; + aSpecimen := ''; + OutList.Clear; + ExtractItems(OutList,Alist,'ABORH'); + for i := 0 to OutList.Count - 1 do + begin + if Length(OutList[i])>1 then + begin + aborh := true; + end; + end; + if aborh = false then + begin + result := true; + exit; + end; + OutList.Clear; + ExtractSpecimen(OutList, uVBECList); + if OutList.Count > 0 then aSpecimen := OutList[0]; + OutList.Clear; + ExtractItems(OutList,AList,'SPECIMENS'); + aWantDateTime := calWantTime.FMDateTime; + aSpecimenDate := piece(aSpecimen,'^',1); + aExpiredSpecimenDate := 0; + if Length(aSpecimenDate) > 0 then aExpiredSpecimenDate := StrToFloat(aSpecimenDate); + + for i := 0 to OutList.Count - 1 do + begin + if (IntToStr(aLabTest.ItemID) = piece(OutList[i],'^',1)) and (piece(OutList[i],'^',2) = '1') then + if aSpecimen = '' then + begin + result := true; + exit; + end + else if (Length(calWantTime.Text) > 0) and (aExpiredSpecimenDate < aWantDateTime) then + begin + result := true; + exit; + end; + end; +end; + +procedure TfrmODBBank.Validate(var AnErrMsg: string); + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +const + TX_NO_TESTS = 'No Tests or Components selected' ; + TX_TNS_REQUIRED = 'An order for TYPE and SCREEN must be created for this order set' ; + +begin + inherited; + if uSelectedItems.Count < 1 then + SetError(TX_NO_TESTS); + if uGetTns = 1 then + SetError(TX_TNS_REQUIRED); +end; + +procedure TfrmODBBank.ValidateAdd(var AnErrMsg: string); + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +var + i, CmtType, DaysofFuturePast: integer; + d1, d2: TDateTime; + x: string; +const + {Diagnostic Test Errors} + TX_NO_TIME = 'Collection Time is required.' ; + TX_NO_TCOLLTYPE = 'Collection Type is required.' ; + TX_NO_TESTS = 'A Lab Test or tests must be selected.' ; + TX_BAD_TIME = 'Collection times must be chosen from the drop down list or entered as valid' + + ' Fileman date/times (T@1700, T+1@0800, etc.).' ; + TX_PAST_TIME = 'Collection times in the past are not allowed.'; + TX_NO_DAYS = 'A number of days must be entered for continuous orders.'; + TX_NO_TIMES = 'A number of times must be entered for continuous orders.'; + TX_NO_STOP_DATE = 'Could not calculate the stop date for the order. Check "for n Days".'; + TX_TOO_MANY_DAYS = 'Maximum number of days allowed is '; + TX_TOO_MANY_TIMES = 'For this frequency, the maximum number of times allowed is: X'; + //TX_NO_COMMENT = 'A comment is required for this test and collection sample.'; + TX_NUMERIC_REQD = 'A numeric value is required for urine volume.'; + TX_DOSEDRAW_REQD = 'Both DOSE and DRAW times are required for this order.'; + TX_TDM_REQD = 'A value for LEVEL is required for this order.'; + //TX_ANTICOAG_REQD = 'You must specify an anticoagulant on this order.' ; + TX_NO_COLLSAMPLE = 'A collection sample MUST be specified.'; + TX_NO_SPECIMEN = 'A specimen MUST be specified.'; + TX_NO_URGENCY = 'An urgency MUST be specified.'; + TX_NO_FREQUENCY = 'A collection frequency MUST be specified.'; + TX_NOT_LAB_COLL_TIME = ' is not a routine lab collection time.'; + TX_NO_ALPHA = 'For continuous orders, enter a number of days, or an "X" followed by a number of times.'; + TX_BADTIME_CAP = 'Invalid Immediate Collect Time'; + {Component/Type & Screen Errors} + TX_NO_COMPONENTS = 'A Blood Product MUST be selected.'; + TX_NO_QUANTITY = 'The number of units MUST be specified under "Quantity".'; + TX_HIGH_QUANTITY = 'Quantity too high.'; + TX_NO_DATEMODIFIED= 'A Date/time Wanted MUST be specified'; + //TX_NO_PREPARATION = 'Preparation MUST be specified - either "Hold" or "Immediate".'; + TX_NO_SURGERY = 'A Surgery MUST be specified for Pre-Op orders'; //only if Pre-op selected + TX_NO_REASON = 'A Reason for Request MUST be entered'; + TX_NO_COMMENT = 'A Comment MUST be entered for this Component'; + TX_DUPLICATE = 'Duplicate Test/Component not allowed'; + TX_NO_TEST_SELECTED = 'No Test/Component selected'; + +begin + inherited; + AnErrMsg := ''; + if aLabTest = nil then + begin + AnErrMsg := TX_NO_TEST_SELECTED; + Exit; + end; + for i := 0 to uSelectedItems.Count - 1 do + if IntToStr(aLabTest.TestID) = piece(uSelectedItems[i],'^',2) then + begin + AnErrMsg := TX_DUPLICATE; + Exit; + end; + if LRORDERMODE = TORDER_MODE_DIAG then + begin + with cboAvailTest do if ItemIEN <= 0 then SetError(TX_NO_TESTS); + + if ALabTest <> nil then + if (cboCollType.ItemID = 'I') and (not ALabTest.LabCanCollect) then + begin + SetError(TX_NO_IMMED); + cboCollType.ItemIndex := -1; + end; + if uSpecimen = 0 then + if cboCollType.ItemID = '' then + SetError(TX_NO_TCOLLTYPE) + else if cboCollType.ItemID = 'LC' then + begin + if Length(cboCollTime.Text) = 0 then SetError(TX_NO_TIME); + with cboCollTime do if (Length(Text) > 0) and (ItemIndex = -1) then + begin + if StrToFMDateTime(Text) < 0 then + SetError(TX_BAD_TIME) + else if StrToFMDateTime(Text) < FMNow then + SetError(TX_PAST_TIME) + else if OrderForInpatient then + begin + d1 := FMDateTimeToDateTime(Trunc(StrToFMDateTime(cboColltime.Text))); + d2 := FMDateTimeToDateTime(FMToday); + if EvtDelayLoc > 0 then + DaysofFuturePast := LabCollectFutureDays(EvtDelayLoc,EvtDivision) + else + DaysofFuturePast := LabCollectFutureDays(Encounter.Location); + if DaysofFuturePast = 0 then DaysofFuturePast := 7; + if ((d1 - d2) > DaysofFuturePast) then + SetError('A lab collection cannot be ordered more than ' + + IntToStr(DaysofFuturePast) + ' days in advance'); + end + else if EvtDelayLoc > 0 then + begin + if (not IsLabCollectTime(StrToFMDateTime(cboCollTime.Text), EvtDelayLoc)) then + SetError(cboCollTime.Text + TX_NOT_LAB_COLL_TIME); + end + else if EvtDelayLoc <= 0 then + begin + if (not IsLabCollectTime(StrToFMDateTime(cboCollTime.Text), Encounter.Location)) then + SetError(cboCollTime.Text + TX_NOT_LAB_COLL_TIME); + end; + end; + end + else + begin + if cboCollType.ItemID = 'I' then + begin + calCollTime.Text := txtImmedColl.Text; + x := ValidImmCollTime(calCollTime.FMDateTime); + if (Piece(x, U, 1) <> '1') then + SetError(Piece(x, U, 2)); + end; + + with calColltime do + begin + if FMDateTime = 0 then SetError(TX_BAD_TIME) + else + begin + // date only was entered + if (FMDateTime - Trunc(FMDateTime) = 0) then + begin + if (Trunc(FMDateTime) < FMToday) then SetError(TX_PAST_TIME); + end + // date/time was entered + else + begin + if (UpperCase(Text) <> 'NOW') and (FMDateTime < FMNow) then SetError(TX_PAST_TIME); + end; + end; + end; + end; + + with cboUrgency do if ItemIEN <= 0 then SetError(TX_NO_URGENCY); + if ALabTest <> nil then + begin + CmtType := FCmtTypes.IndexOf(ALabTest.CurReqComment) ; + with ALabTest do + case CmtType of + 0 : {ANTICOAGULATION} {if (Pos('ANTICOAGULANT',Comment.Text)=0) then + SetError(TX_ANTICOAG_REQD)}; + 1 : {DOSE/DRAW TIMES} if (Pos('Last dose:',Comment.Text)=0) or + (Pos('draw time:',Comment.Text)=0) then + SetError(TX_DOSEDRAW_REQD); + 2 : {ORDER COMMENT} {if (Length(Comment.Text)=0) then + SetError(TX_NO_COMMENT)}; + 3 : {ORDER COMMENT MODIFIED} {if (Length(Comment.Text)=0) then + SetError(TX_NO_COMMENT)}; + 4 : {TDM (PEAK-TROUGH} if (Pos('Dose is expected',Comment.Text)=0) then + SetError(TX_TDM_REQD); + 5 : {TRANSFUSION} {if (Length(Comment.Text)=0) then + SetError(TX_NO_COMMENT)}; + 6 : {URINE VOLUME} if (Length(Comment.Text)>0) and + (ExtractInteger(Comment.Text)<=0) then + Comment.Text := '?'; + {SetError(TX_NUMERIC_REQD);} + end; + end; + end + else if LRORDERMODE = TORDER_MODE_COMP then + begin + with cboAvailComp do + begin + if ItemIEN <= 0 then SetError(TX_NO_COMPONENTS); + end; + if StrToInt(tQuantity.Text) < 1 then SetError(TX_NO_QUANTITY); + if calWantTime.Text = '' then SetError(TX_NO_DATEMODIFIED); + //if cboPreparation.Text ='' then SetError(TX_NO_PREPARATION); + if StrToInt(tQuantity.Text) > 100 then SetError(TX_HIGH_QUANTITY); + if tReason.Text = '' then SetError(TX_NO_REASON); + if (txtDiagComment.Text = '') and (cboAvailComp.Text = 'OTHER') then SetError(TX_NO_COMMENT); + if (cboUrgency.Text = 'PRE-OP') and (length(cboSurgery.ItemID) < 1) then SetError(TX_NO_SURGERY); + end; +end; + +function TfrmODBBank.ValidAdd: Boolean; +const + TX_NO_SAVE = 'This item cannot be added for the following reason(s):' + CRLF + CRLF; + TX_NO_SAVE_CAP = 'Unable to Add item'; + TX_SAVE_ERR = 'Unexpected error - it was not possible to Add this item.'; +var + ErrMsg: string; + +begin + Result := True; + ValidateAdd(ErrMsg); + if Length(ErrMsg) > 0 then + begin + InfoBox(TX_NO_SAVE + ErrMsg, TX_NO_SAVE_CAP, MB_OK); + Result := False; + Exit; + end; +end; + +function TfrmODBBank.ValidCollTime(UserEntry: string): string; +var + i: integer; +const + FMDateResponses: array[0..3] of string = ('TODAY','NOW','NOON','MID'); +begin + Result := ''; + UserEntry := UpperCase(UserEntry); + if StrToFMDateTime(UserEntry) < 0 then exit; + if (UserEntry = 'T') or + (UserEntry = 'N') or + (Copy(UserEntry,1,2)='T+') or + (Copy(UserEntry,1,2)='T@') or + (Copy(UserEntry,1,2)='T-') or + (Copy(UserEntry,1,2)='N+') then Result := UserEntry + else + for i := 0 to 3 do if Pos(FMDateResponses[i],UserEntry)>0 then Result := UserEntry ; + if Result = '' then Result := FloatToStr(StrToFMDateTime(UserEntry)); +end; + +procedure TfrmODBBank.GetAllCollSamples(AComboBox: TORComboBox); +var + OtherSamp: string; +begin + with ALabTest, AComboBox do + begin + if ((CollSampList.Count + 1) <= AComboBox.Items.Count) then LoadAllSamples; + OtherSamp := SelectOtherCollSample(Font.Size, CollSampCount, CollSampList); + if OtherSamp = '-1' then exit; + if SelectByID(Piece(OtherSamp, U, 1)) = -1 then + if Items.Count > CollSampCount + 1 then + Items[0] := OtherSamp + else + Items.Insert(0, OtherSamp) ; + SelectByID(Piece(OtherSamp, U, 1)); + AComboBox.OnChange(Self); + ActiveControl := cmdAccept; + end; +end; + +procedure TfrmODBBank.GetAllSpecimens(AComboBox: TORComboBox); +var + OtherSpec: string; +begin + inherited; + if ALabTest <> nil then + with ALabTest, AComboBox do + begin + AComboBox.DroppedDown := False; + OtherSpec := SelectOtherSpecimen(Font.Size, SpecimenList); + if OtherSpec = '-1' then exit; + if SelectByID(Piece(OtherSpec, U, 1)) = -1 then + if Items.Count > SpecListCount + 1 then + Items[0] := OtherSpec + else + Items.Insert(0, OtherSpec) ; + SpecimenList.Add(OtherSpec); + SelectByID(Piece(OtherSpec, U, 1)); + AComboBox.OnChange(Self); + end; +end; + +procedure TfrmODBBank.SetupCollTimes(CollType: string); +var + tmpImmTime, tmpTime: TFMDateTime; + x, tmpORECALLType, tmpORECALLTime: string; +begin + x := GetLastCollectionTime; + tmpORECALLType := Piece(x, U, 1); + tmpORECALLTime := Piece(x, U, 2); + if CollType = 'SP' then + begin + cboColltime.Visible := False; + txtImmedColl.Visible := False; + pnlCollTimeButton.Visible := False; + pnlCollTimeButton.TabStop := False; + calCollTime.Visible := True; + calColltime.Enabled := True; + if FLastCollTime <> '' then + begin + calCollTime.Text := ValidCollTime(FLastColltime); + if IsFMDateTime(calCollTime.Text) then + begin + calCollTime.Text := FormatFMDateTime('mmm dd,yy@hh:nn', StrToFMDateTime(calColltime.Text)); + calColltime.FMDateTime := StrToFMDateTime(FLastCollTime); + end; + end + else if tmpORECALLTime <> '' then + begin + calCollTime.Text := ValidCollTime(tmpORECALLTime); + if IsFMDateTime(calCollTime.Text) then + begin + calCollTime.Text := FormatFMDateTime('mmm dd,yy@hh:nn', StrToFMDateTime(calColltime.Text)); + calColltime.FMDateTime := StrToFMDateTime(tmpORECALLTime); + end; + end + else if LRFDATE <> '' then + calCollTime.Text := LRFDATE + else + calCollTime.Text := 'TODAY'; + end + else if CollType = 'WC' then + begin + cboColltime.Visible := False; + txtImmedColl.Visible := False; + pnlCollTimeButton.Visible := False; + pnlCollTimeButton.TabStop := False; + calCollTime.Visible := True; + calColltime.Enabled := True; + if FLastCollTime <> '' then + begin + calCollTime.Text := ValidColltime(FLastColltime); + if IsFMDateTime(calCollTime.Text) then + begin + calCollTime.Text := FormatFMDateTime('mmm dd,yy@hh:nn', StrToFMDateTime(calColltime.Text)); + calColltime.FMDateTime := StrToFMDateTime(FLastCollTime); + end; + end + else if tmpORECALLTime <> '' then + begin + calCollTime.Text := ValidColltime(tmpORECALLTime); + if IsFMDateTime(calCollTime.Text) then + begin + calCollTime.Text := FormatFMDateTime('mmm dd,yy@hh:nn', StrToFMDateTime(calColltime.Text)); + calColltime.FMDateTime := StrToFMDateTime(tmpORECALLTime); + end; + end + else if LRFDATE <> '' then + calCollTime.Text := LRFDATE + else + calCollTime.Text := 'NOW'; + end + else if CollType = 'LC' then + begin + cboColltime.Visible := True; + calCollTime.Visible := False; + calColltime.Enabled := False; + txtImmedColl.Visible := False; + pnlCollTimeButton.Visible := False; + pnlCollTimeButton.TabStop := False; + with CtrlInits do SetControl(cboCollTime, 'Lab Collection Times'); + if Pos(U, FLastLabCollTime) > 0 then + cboColltime.SelectByID(Piece(FLastLabCollTime, U, 1)) + else if FLastLabCollTime <> '' then + cboCollTime.Text := FLastLabCollTime + else if (tmpORECALLTime <> '') and (tmpORECALLType = 'LC') then + cboCollTime.Text := MakeRelativeDateTime(StrToFMDateTime(tmpORECALLTime)) + else if LRFDATE <> '' then + cboCollTime.Text := LRFDATE + else + cboCollTime.ItemIndex := 0; + end + else if CollType = 'I' then + begin + cboColltime.Visible := False; + calCollTime.Visible := False; + calColltime.Enabled := False; + txtImmedColl.Visible := True; + pnlCollTimeButton.Visible := True; + pnlCollTimeButton.TabStop := True; + tmpImmTime := GetDefaultImmCollTime; + tmpTime := 0; + if (FLastColltime <> '') then + tmpTime := StrToFMDateTime(FLastColltime) + else if (tmpORECALLTime <> '') then + tmpTime := StrToFMDateTime(tmpORECALLTime) + else if LRFDATE <> '' then + tmpTime := StrToFMDateTime(LRFDATE); + + if tmpTime > tmpImmTime then + begin + calCollTime.FMDateTime := tmpTime; + txtImmedColl.Text := FormatFMDateTime('mmm dd,yy@hh:nn', tmpTime); + end + else + begin + calCollTime.FMDateTime := GetDefaultImmCollTime; + txtImmedColl.Text := FormatFMDateTime('mmm dd,yy@hh:nn', calCollTime.FMDateTime); + end; + end; +end; + +procedure TfrmODBBank.LoadCollType(AComboBox:TORComboBox); +var + i: integer; +begin + with CtrlInits, cboCollType do + begin + SetControl(cboCollType, 'Collection Types'); + if not ALabTest.LabCanCollect then + begin + i := SelectByID('LC'); + if i > -1 then Items.Delete(i); + i := SelectByID('I'); + if i > -1 then Items.Delete(i); + end ; + if LRFZX <> '' then + begin + if (LRFZX = 'LC') or (LRFZX = 'I') then + begin + if ALabTest.LabCanCollect then + cboCollType.SelectByID(LRFZX) + else + cboCollType.SelectByID('WC'); + end + else + cboCollType.SelectByID(LRFZX); + end + else if FLastCollType <> '' then + begin + if (FLastCollType = 'LC') or (FLastCollType = 'I') then + begin + if ALabTest.LabCanCollect then + cboCollType.SelectByID(FLastCollType) + else + cboCollType.SelectByID('WC'); + end + else + cboCollType.SelectByID(FLastCollType); + end + else if uDfltCollType <> '' then + begin + if (uDfltCollType = 'LC') or (uDfltCollType = 'I') then + begin + if ALabTest.LabCanCollect then + cboCollType.SelectByID(uDfltCollType) + else + cboCollType.SelectByID('WC'); + end + else + cboCollType.SelectByID(uDfltCollType); + end + else if OrderForInpatient then + begin + if ALabTest.LabCanCollect then + cboCollType.SelectByID('LC') + else + SelectByID('WC'); + end + else + cboCollType.SelectByID('SP'); + end; + SetupCollTimes(cboCollType.ItemID); +end; + +procedure TfrmODBBank.ReadServerVariables; +begin + LRFZX := KeyVariable['LRFZX']; + LRFSAMP := KeyVariable['LRFSAMP']; + LRFSPEC := KeyVariable['LRFSPEC']; + LRFDATE := KeyVariable['LRFDATE']; + LRFURG := KeyVariable['LRFURG']; + LRFSCH := KeyVariable['LRFSCH']; +end; + +procedure TfrmODBBank.cboAvailTestSelect(Sender: TObject); +var + x: string; + i: integer; +begin + DisableComponentControls; + EnableDiagTestControls; + LRORDERMODE := TORDER_MODE_DIAG; + with cboAvailTest do + begin + if (Length(ItemID) = 0) or (ItemID = '0') then Exit; + for i := 0 to uSelectedItems.Count - 1 do + if ItemID = piece(uSelectedItems[i],'^',1) then + begin + ShowMessage('This test has already been selected!'); + Exit; + end; + FLastLabID := ItemID ; + FLastItemID := ItemID; + Changing := True; + if Sender <> Self then + Responses.Clear; // Sender=Self when called from SetupDialog + if CharAt(ItemID, 1) = 'Q' then + with Responses do + begin + FLastItemID := ItemID; + QuickOrder := ExtractInteger(ItemID); + SetControl(cboAvailTest, 'ORDERABLE', 1); + if (Length(ItemID) = 0) or (ItemID = '0') then Exit; + FLastLabID := ItemID; + end; + ALabTest := TLabTest.Create(ItemID, Responses); + end; + with ALabTest do + begin + + {with Responses do if QuickOrder > 0 then + begin + StatusText('Initializing Quick Order'); + Changing := True; + SetControl(cboAvailTest, 'ORDERABLE', 1); + DetermineCollectionDefaults(Responses); + LoadUrgency(cboCollType.ItemID, cboUrgency); + SetControl(cboUrgency, 'URGENCY', 1); + Urgency := cboUrgency.ItemIEN; + if (Urgency = 0) and (cboUrgency.Items.Count = 1) then + begin + cboUrgency.ItemIndex := 0; + Urgency := cboUrgency.ItemIEN; + end; + tmpResp := FindResponseByName('SPECIMEN' ,1); + i := 1 ; + tmpResp := Responses.FindResponseByName('COMMENT',i); + while tmpResp <> nil do + begin + Comment.Add(tmpResp.EValue); + Inc(i); + tmpResp := Responses.FindResponseByName('COMMENT',i); + end ; + end; // Quick Order} + if ObtainCollSamp then + begin + //For BloodBank orders, this condition should never occur + end + else + begin + with ALabTest do + with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do + begin + x := '' ; + for i := 0 to WardComment.Count-1 do + x := x + WardComment.strings[i]+#13#10 ; + pnlMessage.TabOrder := cboAvailTest.TabOrder + 1; + OrderMessage(x) ; + end ; + end; + if ObtainComment then + LoadRequiredComment(FCmtTypes.IndexOf(CurReqComment)) + else + DisableCommentPanels; + x := '' ; + for i := 0 to CurWardComment.Count-1 do + x := x + CurWardComment.strings[i]+#13#10 ; + i := IndexOfCollSamp(CollSamp); + if i > -1 then with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do + for i := 0 to WardComment.Count-1 do + x := x + WardComment.strings[i]+#13#10 ; + pnlMessage.TabOrder := cboAvailTest.TabOrder + 1; + OrderMessage(x) ; + end; { with } + StatusText(''); + Changing := False; +end; + +procedure TfrmODBBank.cboAvailCompSelect(Sender: TObject); +var + x: string; + i: integer; +begin + DisableDiagTestControls; + EnableComponentControls; + LRORDERMODE := TORDER_MODE_COMP; + with cboAvailComp do + begin + if (Length(ItemID) = 0) or (ItemID = '0') then Exit; + for i := 0 to uSelectedItems.Count - 1 do + if ItemID = piece(uSelectedItems[i],'^',1) then + begin + ShowMessage('This component has already been selected!'); + Exit; + end; + FLastLabID := ItemID ; + FLastItemID := ItemID; + Changing := True; + if Sender <> Self then + Responses.Clear; // Sender=Self when called from SetupDialog + if CharAt(ItemID, 1) = 'Q' then + with Responses do + begin + FLastItemID := ItemID; + QuickOrder := ExtractInteger(ItemID); + SetControl(cboAvailComp, 'ORDERABLE', 1); + if (Length(ItemID) = 0) or (ItemID = '0') then Exit; + FLastLabID := ItemID; + end; + ALabTest := TLabTest.Create(ItemID, Responses); + end; + with ALabTest do + begin + + {with Responses do if QuickOrder > 0 then + begin + StatusText('Initializing Quick Order'); + Changing := True; + SetControl(cboAvailTest, 'ORDERABLE', 1); + DetermineCollectionDefaults(Responses); + LoadUrgency(cboCollType.ItemID, cboUrgency); + SetControl(cboUrgency, 'URGENCY', 1); + Urgency := cboUrgency.ItemIEN; + if (Urgency = 0) and (cboUrgency.Items.Count = 1) then + begin + cboUrgency.ItemIndex := 0; + Urgency := cboUrgency.ItemIEN; + end; + tmpResp := FindResponseByName('SPECIMEN' ,1); + i := 1 ; + tmpResp := Responses.FindResponseByName('COMMENT',i); + while tmpResp <> nil do + begin + Comment.Add(tmpResp.EValue); + Inc(i); + tmpResp := Responses.FindResponseByName('COMMENT',i); + end ; + end; // Quick Order} + {if ObtainCollSamp then + begin + // should not occur with Blood orders + end + else + begin + with ALabTest do + with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do + begin + x := '' ; + for i := 0 to WardComment.Count-1 do + x := x + WardComment.strings[i]+#13#10 ; + pnlMessage.TabOrder := cboAvailTest.TabOrder + 1; + OrderMessage(x) ; + end ; + end; + } + if ObtainComment then + LoadRequiredComment(FCmtTypes.IndexOf(CurReqComment)) + else + DisableCommentPanels; + x := '' ; + for i := 0 to CurWardComment.Count-1 do + x := x + CurWardComment.strings[i]+#13#10 ; + i := IndexOfCollSamp(CollSamp); + if i > -1 then with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do + for i := 0 to WardComment.Count-1 do + x := x + WardComment.strings[i]+#13#10 ; + pnlMessage.TabOrder := cboAvailComp.TabOrder + 1; + OrderMessage(x) ; + end; { with } + StatusText(''); + Changing := False; +end; + +procedure TfrmODBBank.DisableCommentPanels; +begin + lblReqComment.Visible := False; +end; + +procedure TfrmODBBank.DisableComponentControls; +begin + lblModifiers.Enabled := false; + cboModifiers.Enabled := false; + lblWanted.Enabled := false; + calWantTime.Enabled := false; + //lblPreparation.Enabled := false; + //cboPreparation.Enabled := false; + lblSurgery.Enabled := false; + cboSurgery.Enabled := false; + lblReason.Enabled := false; + tReason.Enabled := false; + chkConsent.Enabled := false; + lblQuantity.Enabled := false; + tQuantity.Enabled := false; + upQuantity.Enabled := false; + cboAvailComp.ItemIndex := -1; + tQuantity.Text := '0'; +end; + +procedure TfrmODBBank.EnableComponentControls; +begin + lblModifiers.Enabled := true; + cboModifiers.Enabled := true; + lblWanted.Enabled := true; + calWantTime.Enabled := true; + //lblPreparation.Enabled := true; + //cboPreparation.Enabled := true; + if cboUrgency.Text = 'PRE-OP' then + begin + lblSurgery.Enabled := true; + cboSurgery.Enabled := true; + end; + lblReason.Enabled := true; + tReason.Enabled := true; + chkConsent.Enabled := true; + lblQuantity.Enabled := true; + tQuantity.Enabled := true; + upQuantity.Enabled := true; + txtDiagComment.Enabled := true; + lblDiagComment.Enabled := true; +end; + +procedure TfrmODBBank.DisableDiagTestControls; +begin + lblCollTime.Enabled := false; + calCollTime.Enabled := false; + cboCollTime.Enabled := false; + cboAvailTest.ItemIndex := -1; + lblCollType.Enabled := false; + cboCollType.Enabled := false; + cmdImmedColl.Enabled := false; +end; + +procedure TfrmODBBank.EnableDiagTestControls; +begin + calWantTime.Enabled := true; + lblWanted.Enabled := true; + lblCollTime.Enabled := true; + calCollTime.Enabled := true; + cboCollTime.Enabled := true; + lblCollType.Enabled := true; + cboCollType.Enabled := true; + lblUrgency.Enabled := true; + cboUrgency.Enabled := true; + txtDiagComment.Enabled := true; + lblDiagComment.Enabled := true; + cmdImmedColl.Enabled := true; +end; + +procedure TfrmODBBank.LoadRequiredComment(CmtType: integer); +begin + DisableCommentPanels; + lblReqComment.Visible := True ; +end; + +procedure TfrmODBBank.DetermineCollectionDefaults(Responses: TResponses); +var + RespCollect, RespStart: TResponse; +begin + if ALabTest = nil then exit; + calCollTime.Clear; + cboCollTime.Clear; + calCollTime.Enabled := True; + lblCollTime.Enabled := True; + cboColltime.Enabled := True; + with Responses, ALabTest do + begin + RespCollect := FindResponseByName('COLLECT',1); + RespStart := FindResponseByName('START' ,1); + if (RespCollect <> nil) then with RespCollect do + begin + if IValue = 'LC' then + begin + if not LabCanCollect then + begin + cboCollType.SelectByID('WC'); + SetupCollTimes('WC'); + end + else // if LabCanCollect + begin + cboCollType.SelectByID('LC'); + SetupCollTimes('LC'); + CtrlInits.SetControl(cboCollTime, 'Lab Collection Times') ; + if RespStart <> nil then + begin + cboCollTime.SelectByID('L' + RespStart.IValue); + if cboCollTime.ItemIndex < 0 then + cboCollTime.Text := RespStart.IValue; + end; + end; + end + else // if IValue <> 'LC' + begin + cboCollType.SelectByID(IValue) ; + SetupCollTimes(IValue); + if RespStart <> nil then + begin + if ContainsAlpha(RespStart.IValue) then + calColltime.Text := RespStart.IValue + else + calColltime.FMDateTime := StrToFMDateTime(RespStart.IValue); + end; + end ; + if IValue = 'I' then + if not LabCanCollect then + begin + cboCollType.SelectByID('WC'); + SetupCollTimes('WC'); + end + else + begin + calCollTime.Enabled := False; + if RespStart <> nil then txtImmedColl.Text := RespStart.EValue; + end; + end + else // if (RespCollect = nil) + LoadCollType(cbocollType); + end; +end; + +procedure TfrmODBBank.cboAvailTestExit(Sender: TObject); +begin + inherited; + if (Length(cboAvailTest.ItemID) = 0) or (cboAvailTest.ItemID = '0') then Exit; + if cboAvailTest.ItemID = FLastLabID then Exit; + cboAvailTestSelect(cboAvailTest); + cboAvailTest.SetFocus; + PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); +end; + +procedure TfrmODBBank.cboAvailCompExit(Sender: TObject); +begin + inherited; + if (Length(cboAvailComp.ItemID) = 0) or (cboAvailComp.ItemID = '0') then Exit; + if cboAvailComp.ItemID = FLastLabID then Exit; + cboAvailCompSelect(cboAvailComp); + cboAvailComp.SetFocus; + PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); +end; + +procedure TfrmODBBank.cboAvailTestNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboAvailTest.ForDataUse(SubsetOfOrderItems(StartFrom, Direction, FVbecLookup)); +end; + +procedure TfrmODBBank.cboAvailCompNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboAvailComp.ForDataUse(SubsetOfOrderItems(StartFrom, Direction, FVbecLookup)); +end; + +procedure TfrmODBBank.cmdImmedCollClick(Sender: TObject); +var + ImmedCollTime: string; +begin + inherited; + ImmedCollTime := SelectImmediateCollectTime(Font.Size, txtImmedColl.Text); + if ImmedCollTime <> '-1' then + begin + txtImmedColl.Text := ImmedCollTime; + calCollTime.FMDateTime := StrToFMDateTime(ImmedCollTime); + end + else + begin + txtImmedColl.Clear; + calCollTime.Clear; + end; +end; + +procedure TfrmODBBank.pgeProductChange(Sender: TObject); +begin + inherited; + case pgeProduct.TabIndex of + TI_ORDER : begin + memMessage.Visible := true; + memOrder.Visible := true; + cmdAccept.Visible := true; + pnlSelectedTests.Visible := true; + pgeProduct.Height := 281; + end; + TI_INFO : begin + if lvSelectionList.Items.Count > 0 then exit; + LRORDERMODE := TORDER_MODE_INFO; + memMessage.Visible := false; + memOrder.Visible := false; + cmdAccept.Visible := false; + pnlSelectedTests.Visible := false; + pgeProduct.Height := 411; + end; + TI_RESULTS : begin + if lvSelectionList.Items.Count > 0 then exit; + memMessage.Visible := false; + memOrder.Visible := false; + cmdAccept.Visible := false; + pnlSelectedTests.Visible := false; + pgeProduct.Height := 411; + end; + end; {case} +end; + +procedure TfrmODBBank.cboCollTypeChange(Sender: TObject); +begin + if (ALabTest = nil) or Changing or (cboCollType.ItemID = '') then exit; + if (cboCollType.ItemID = 'I') and (not ALabTest.LabCanCollect) then + begin + InfoBox(TX_NO_IMMED, TX_NO_IMMED_CAP, MB_OK or MB_ICONWARNING); + cboCollType.ItemIndex := -1; + Exit; + end; + SetupCollTimes(cboCollType.ItemID); +end; + +procedure TfrmODBBank.LoadModifiers(AComboBox:TORComboBox); +var + i: integer; +begin + with AComboBox do + begin + Clear; + for i := 0 to uModifierList.Count - 1 do + Items.Add(uModifierList[i]); + end; +end; + +procedure TfrmODBBank.LoadUrgencies(AComboBox:TORComboBox); +var + i: integer; +begin + with AComboBox do + begin + Clear; + for i := 0 to uUrgencyList.Count - 1 do + if (piece(uUrgencyList[i],'^',2) = 'STAT') and (StatAllowed(Patient.DFN) = false) then + Continue + else + Items.Add(uUrgencyList[i]); + end; +end; + +procedure TfrmODBBank.btnAddTestsClick(Sender: TObject); +var + aList, aTests, aRaw: TStringList; + ListItem: TListItem; + aStr, aMsg: String; //add independent structures for components, Tests, and associated fields. + aCollType, aModifier, aPreparation, aSurgery, aCollTime, aTestYes, aSpecimen, aCollSave: String; + CurAdd, i, j, k, getTest, TestAdded, aMSBOS, aMSBOSContinue: Integer; + x, name, aTypeScreen: String; +begin + if not ValidAdd then Exit; + aList := TStringList.Create; + aTests := TStringList.Create; + aRaw := TStringList.Create; + try + aCollType := ''; + aModifier := ''; + aPreparation := ''; + aSurgery := ''; + aCollTime := ''; + aTestYes := '0'; + aTypeScreen := ''; + uGetTnS := 0; + aSpecimen := ''; + ExtractTypeScreen(aList, uVBECList); + if aList.Count > 0 then aTypeScreen := aList[0]; + aList.Clear; + ExtractSpecimen(aList, uVBECList); + if aList.Count > 0 then aSpecimen := aList[0]; + if LRORDERMODE = TORDER_MODE_DIAG then aTestYes := '1'; + if length(cboModifiers.ItemID) > 0 then aModifier := cboModifiers.Items[cboModifiers.ItemIndex]; + //if length(cboPreparation.ItemID) > 0 then aPreparation := cboPreparation.Items[cboPreparation.ItemIndex]; + if length(cboSurgery.ItemID) > 0 then aSurgery := cboSurgery.Items[cboSurgery.ItemIndex]; + if length(cboCollTime.ItemID) > 0 then aCollTime := cboCollTime.Items[cboCollTime.ItemIndex]; + if (LRORDERMODE = TORDER_MODE_DIAG) and (length(cboAvailTest.ItemID) > 0) then + begin + uTestSelected := true; + with lvSelectionList do + begin + ListItem := Items.Add; + ListItem.Caption := piece(cboAvailTest.Items[cboAvailTest.ItemIndex],'^',2); + ListItem.SubItems.Add(''); + if length(cboModifiers.ItemID) > 0 then ListItem.SubItems.Add(cboModifiers.Items[cboModifiers.ItemIndex]) + else ListItem.SubItems.Add(''); + ListItem.SubItems.Add(piece(cboAvailTest.Items[cboAvailTest.ItemIndex],'^',1)); + if piece(cboAvailTest.Items[cboAvailTest.ItemIndex],'^',1) = aTypeScreen then + begin + lblTNS.Caption := ''; + lblTNS.Visible := false; + end; + end; + lblCollTime.Enabled := false; + calCollTime.Enabled := false; + cboCollTime.Enabled := false; + lblCollType.Enabled := false; + cboCollType.Enabled := false; + cboAvailTest.ItemIndex := -1; + end; + if (LRORDERMODE = TORDER_MODE_COMP) and (length(cboAvailComp.ItemID) > 0) then + begin + if Length(cboSurgery.ItemID) > 0 then + begin + aList.Clear; + ExtractMSBOS(aList, uVBECList); //Get maximum units for selected Surgey + for i := 0 to aList.Count - 1 do + begin + if (StrToInt(piece(aList[i],'^',1)) = aLabTest.ItemID) + and (StrToInt(piece(aList[i],'^',2)) = cboSurgery.ItemID) then + begin + aMSBOS := StrToInt(piece(aList[i],'^',4)); + if (aMSBOS > 0) and (StrToInt(tQuantity.Text) > aMSBOS) then + begin + with Application do + begin + NormalizeTopMosts; + aMSBOSContinue := + MessageBox(PChar('The number of units ordered (' + tQuantity.Text + + ') exceeds the maximum number of units (' + IntToStr(aMSBOS) + + ') for the ' + cboSurgery.text + + ' surgical procedure selected.' + CRLF + CRLF + 'Do you wish to continue?'), + PChar('Maximum Number of Units Exceeded'), + MB_YESNO); + RestoreTopMosts; + end; + if aMSBOSContinue = 7 then + begin + ShowMessage(cboAvailComp.Text + ' has NOT been added to this request.'); + exit; + end; + end; + end; + end; + end; + if SpecimenNeeded(aList, uVBECList, aLabTest.ItemID) then //check to see if type and screen is needed + begin + uGetTnS := 1; + for i := 0 to lvSelectionList.Items.Count - 1 do + begin + if lvSelectionList.Items[i].SubItems[2] = aTypeScreen then + begin + uGetTnS := 0; + uDfltUrgency := cboUrgency.ItemID; + lblTNS.Caption := ''; + lblTNS.Visible := false; + break; + end; + end; + end; + aList.Clear; + ExtractSpecimens(aList, uVBECList); //Get specimen values to pass back to Server + for i := 0 to aList.Count - 1 do + begin + if (StrToInt(piece(aList[i],'^',1)) = aLabTest.ItemID) then + begin + aSpecimen := piece(aList[i],'^',2) + '^' + aSpecimen; + break; + end; + end; + uComponentSelected := true; + with lvSelectionList do + begin + ListItem := Items.Add; + ListItem.Caption := piece(cboAvailComp.Items[cboAvailComp.ItemIndex],'^',2); + ListItem.SubItems.Add(tQuantity.Text); + if length(cboModifiers.ItemID) > 0 then ListItem.SubItems.Add(cboModifiers.Items[cboModifiers.ItemIndex]) + else ListItem.SubItems.Add(''); + ListItem.SubItems.Add(piece(cboAvailComp.Items[cboAvailComp.ItemIndex],'^',1)); + end; + lblWanted.Enabled := false; + calWantTime.Enabled := false; + //lblPreparation.Enabled := false; + //cboPreparation.Enabled := false; + lblSurgery.Enabled := false; + cboSurgery.Enabled := false; + lblReason.Enabled := false; + tReason.Enabled := false; + chkConsent.Enabled := false; + cboAvailComp.ItemIndex := -1; + end; + if Sender <> Self then + Responses.Clear; // Sender=Self when called from SELF + CurAdd := 1; + aStr := aTestYes + '^' + IntToStr(aLabTest.TestID) + '^' + tQuantity.Text + '^' + aModifier + '^' + aSpecimen; //aSpecimen has 2 pieces + uSelectedItems.Add(aStr); + for i := 0 to uSelectedItems.Count - 1 do + begin + name := lvSelectionList.Items[i].Caption; + x := uSelectedItems[i]; + if piece(x,'^',1) = '1' then //Diagnostic Test related fields + begin + if Length(piece(x,'^',2)) > 0 then Responses.Update('ORDERABLE', CurAdd, piece(x,'^',2), name); + end + else + begin + if Length(piece(x,'^',2)) > 0 then Responses.Update('ORDERABLE', CurAdd, piece(x,'^',2), name); + if Length(piece(x,'^',3)) > 0 then Responses.Update('QTY', CurAdd, piece(x,'^',3), piece(x,'^',3)); + if Length(piece(x,'^',4)) > 0 then Responses.Update('MODIFIER', CurAdd, piece(x,'^',4), aModifier); + if Length(piece(x,'^',5)) > 0 then Responses.Update('SPECSTS', CurAdd, pieces(x,'^',5,7), piece(x,'^',5)); + if Length(cboSurgery.Text) > 0 then Responses.Update('MISC',1,cboSurgery.Text,cboSurgery.Text); + end; + Inc(CurAdd); + aList.Clear; + TestAdded := 0; + getTest := 0; + ExtractTests(aList, uVBECList); //Get Results associated with ordered components + for j := 0 to aList.Count - 1 do + begin + if StrToInt(piece(aList[j],'^',1)) = aLabTest.ItemID then + begin + if uTestsForResults.Count < 1 then getTest := 1; + for k := 0 to uTestsForResults.Count - 1 do + begin + if piece(uTestsForResults[k],'^',1) = piece(aList[j],'^',3) then + begin + getTest := 0; + break; + end + else getTest := 1; + end; + if getTest = 1 then + begin + uTestsForResults.Add(piece(aList[j],'^',3)); + TestAdded := 1; + end; + end; + end; + if TestAdded = 1 then + begin + edtResults.Clear; + aTests.Clear; + GetPatientBloodResults(aTests, Patient.DFN, uTestsForResults); + QuickCopy(ATests,edtResults); + if edtResults.Lines.Count > 0 then TabResults.ImageIndex := 1; + uRaw.Clear; + GetPatientBloodResultsRaw(uRaw, Patient.DFN, uTestsForResults); + end; + end; + if LRORDERMODE = TORDER_MODE_DIAG then + begin + if Length(calWantTime.Text) > 0 then Responses.Update('DATETIME',1,ValidCollTime(calWantTime.Text),calWantTime.Text); + with cboCollType do if Length(ItemID) > 0 then + begin + Responses.Update('COLLECT', 1, ItemID, ItemID) ; + FLastCollType := ItemID; + end; + if Length(cboUrgency.Text) > 0 then Responses.Update('URGENCY',1,cboUrgency.ItemID,cboUrgency.Text); + if Length(txtDiagComment.Text) > 0 then Responses.Update('COMMENT',1,txtDiagComment.Text,txtDiagComment.Text); + if cboCollType.ItemID = 'LC' then + begin + with cboCollTime do + if Length(ItemID) > 0 then + begin + Responses.Update('START', 1, Copy(ItemID, 2, 999), Copy(ItemID, 2, 999)); + FLastLabCollTime := ItemID + U + Text; + end + else if Length(Text) > 0 then + begin + Responses.Update('START', 1, ValidCollTime(Text), Text) ; + FLastLabCollTime := ValidCollTime(Text); + end; + end + else + begin + with calCollTime do + if FMDateTime > 0 then + begin + Responses.Update('START', 1, ValidCollTime(Text), Text); + FLastColltime := ValidCollTime(Text); + end + else + begin + Responses.Update('START', 1, '', '') ; + FLastCollTime := ''; + end; + end; + end; + if LRORDERMODE = TORDER_MODE_COMP then + begin + if Length(cboUrgency.Text) > 0 then Responses.Update('URGENCY',1,cboUrgency.ItemID,cboUrgency.Text); + if Length(txtDiagComment.Text) > 0 then Responses.Update('COMMENT',1,txtDiagComment.Text,txtDiagComment.Text); + if Length(calWantTime.Text) > 0 then Responses.Update('DATETIME',1,ValidCollTime(calWantTime.Text),calWantTime.Text); + //if Length(cboPreparation.Text) > 0 then Responses.Update('XFUSION',1,cboPreparation.ItemID,cboPreparation.Text); + if Length(cboSurgery.Text) > 0 then Responses.Update('MISC',1,cboSurgery.Text,cboSurgery.Text); + if Length(tReason.Text) > 0 then Responses.Update('REASON',1,tReason.Text,tReason.Text); + if chkConsent.Checked = true then Responses.Update('YN',1,'1','Yes'); + end; + memOrder.Text := Responses.OrderText; + CurAdd := 1; + if uRaw.Count > 0 then + for j := 0 to uRaw.Count - 1 do + begin + if Length(uRaw[j]) > 0 then Responses.Update('RESULTS', CurAdd, uRaw[j], piece(uRaw[j],'^',1)); + Inc(CurAdd); + end; + tQuantity.Text := '0'; + ALabTest := nil; + finally + aList.Free; + aTests.Free; + aRaw.Free; + end; + aMsg := ''; + if UgetTnS = 1 then + begin + lblTNS.Caption := 'TYPE + SCREEN must be added to order'; + lblTNS.Visible := true; + cboAvailTest.SelectByID(aTypeScreen); + cboAvailTestSelect(self); + end; + {if getTnS = 1 then + begin + for i := 1 to cboAvailTest.Items.Count - 1 do + begin + if piece(cboAvailTest.Items[i],'^',1) = aTypeScreen then + begin + if piece(aSpecimen,'^',1) = '1' then + begin + cboCollTime.Text := calWantTime.Text; + aCollSave := cboCollTime.Text + '^' + cboCollTime.ItemID + '^' + cboCollType.Text + '^' + cboCollType.ItemID; + cboCollTime.Text := ''; + cboCollType.Text := ''; + uSpecimen := 1; + end; + cboModifiers.Text := ''; + cboAvailTest.SelectByID(aTypeScreen); + cboAvailTestSelect(Self); + btnAddTestsClick(Self); + uSpecimen := 0; + cboCollTime.Text := piece(aCollSave,'^',1); + cboCollType.Text := piece(aCollSave,'^',3); + aCollSave := ''; + break; + end; + end; + aMsg := 'An order for Type and Screen has been added to this request' + '.'; + end; + if (getTns = 1) then + begin + if length(aMsg) > 0 then aMsg := aMsg + crlf + crlf; + ShowMessage(aMsg); + end;} + cboModifiers.Text := ''; + edtResults.Height := 247; + edtInfo.Height := 247; +end; + +procedure TfrmODBBank.FormDestroy(Sender: TObject); +begin + inherited; + uSelectedItems.Free; + uVBECList.Free; + uTestsForResults.Free; + uUrgencyList.Free; + uModifierList.Free; + uRaw.Free; +end; + +procedure TfrmODBBank.btnRemoveClick(Sender: TObject); +var + i,j,curAdd: integer; + x, name, aModifier, aTypeScreen: string; + aList: TStringList; +begin + inherited; + aList := TStringList.Create; + curAdd := 1; + aModifier := ''; + aTypeScreen := ''; + ExtractTypeScreen(aList, uVBECList); + if aList.Count > 0 then aTypeScreen := aList[0]; + aList.Clear; + if length(cboModifiers.ItemID) > 0 then aModifier := cboModifiers.Items[cboModifiers.ItemIndex]; + with lvSelectionList do + begin + for i := lvSelectionList.Items.Count - 1 downto 0 do + begin + if lvSelectionList.Items[i].Selected = true then + for j := uSelectedItems.Count - 1 downto 0 do + if lvSelectionList.Items[i].SubItems[2] = piece(uSelectedItems[j],'^',2) then + begin + if lvSelectionList.Items[i].SubItems[2] = aTypeScreen then + begin + uGetTnS := 1; + lblTNS.Caption := 'TYPE+SCREEN must be added to order'; + lblTNS.Visible := true; + end; + uSelectedItems.Delete(j); + lvSelectionList.Items[i].Delete; + break; + end; + end; + end; + Responses.Clear; + for i := 0 to uSelectedItems.Count - 1 do + begin + name := lvSelectionList.Items[i].Caption; + x := uSelectedItems[i]; + if piece(x,'^',1) = '1' then //Diagnostic Test related fields + begin + if Length(piece(x,'^',2)) > 0 then Responses.Update('ORDERABLE', CurAdd, piece(x,'^',2), name); + end + else + begin + if Length(piece(x,'^',2)) > 0 then Responses.Update('ORDERABLE', CurAdd, piece(x,'^',2), name); + if Length(piece(x,'^',3)) > 0 then Responses.Update('QTY', CurAdd, piece(x,'^',3), piece(x,'^',3)); + if Length(piece(x,'^',4)) > 0 then Responses.Update('MODIFIER', CurAdd, piece(x,'^',4), aModifier); + if Length(piece(x,'^',5)) > 0 then Responses.Update('SPECSTS', CurAdd, pieces(x,'^',5,7), piece(x,'^',5)); + end; + Inc(CurAdd); + end; + if Length(calWantTime.Text) > 0 then Responses.Update('DATETIME',1,ValidCollTime(calWantTime.Text),calWantTime.Text); + if cboCollType.ItemID = 'LC' then + begin + with cboCollTime do + if Length(ItemID) > 0 then + begin + Responses.Update('START', 1, Copy(ItemID, 2, 999), Copy(ItemID, 2, 999)); + FLastLabCollTime := ItemID + U + Text; + end + else if Length(Text) > 0 then + begin + Responses.Update('START', 1, ValidCollTime(Text), Text) ; + FLastLabCollTime := ValidCollTime(Text); + end; + end + else + begin + with calCollTime do + if FMDateTime > 0 then + begin + Responses.Update('START', 1, ValidCollTime(Text), Text); + FLastColltime := ValidCollTime(Text); + end + else + begin + Responses.Update('START', 1, '', '') ; + FLastCollTime := ''; + end; + end; + with cboCollType do if Length(ItemID) > 0 then + begin + Responses.Update('COLLECT', 1, ItemID, ItemID) ; + FLastCollType := ItemID; + end; + if Length(cboUrgency.Text) > 0 then Responses.Update('URGENCY',1,cboUrgency.ItemID,cboUrgency.Text); + if Length(txtDiagComment.Text) > 0 then Responses.Update('COMMENT',1,txtDiagComment.Text,txtDiagComment.Text); + //if Length(cboPreparation.Text) > 0 then Responses.Update('XFUSION',1,cboPreparation.ItemID,cboPreparation.Text); + if Length(cboSurgery.Text) > 0 then Responses.Update('MISC',1,cboSurgery.Text,cboSurgery.Text); + if Length(tReason.Text) > 0 then Responses.Update('REASON',1,tReason.Text,tReason.Text); + if chkConsent.Checked = true then Responses.Update('YN',1,'1','Yes'); + memOrder.Text := Responses.OrderText; + CurAdd := 1; + if uRaw.Count > 0 then + for j := 0 to uRaw.Count - 1 do + begin + if Length(uRaw[j]) > 0 then Responses.Update('RESULTS', CurAdd, uRaw[j], piece(uRaw[j],'^',1)); + Inc(CurAdd); + end; + if uSelectedItems.Count < 1 then + begin + uGetTnS := 0; + lblTNS.Caption := ''; + lblTNS.Visible := false; + end; + aList.Free; +end; + +procedure TfrmODBBank.btnRemoveAllClick(Sender: TObject); +begin + inherited; + lvSelectionList.Clear; + uSelectedItems.Clear; + uTestsForResults.Clear; + uRaw.Clear; + uGetTnS := 0; + lblTNS.Caption := ''; + lblTNS.Visible := false; + InitDialog; +end; + +procedure TfrmODBBank.cmdAcceptClick(Sender: TObject); +var + i: integer; + Comp: boolean; +const + Txt1 = 'This order can not be saved for the following reason(s):'; + Txt2 = #13+#13+'An order for TYPE and SCREEN must be created with this order set.'; +begin + if uGetTnS = 1 then + begin + MessageDlg(Txt1+Txt2, mtWarning,[mbOK],0); + Exit; + end; + Comp := false; + if uSelectedItems.Count > 0 then + begin + for i := 0 to uSelectedItems.Count - 1 do + if not (piece(uSelectedItems[i],'^',1) = '1') then + begin + Comp := true; + Break; + end; + end; + if Comp = true then + ShowMessage('The nursing blood administration order must be entered separately' + '.'); + inherited; +end; + +procedure TfrmODBBank.calWantTimeChange(Sender: TObject); +begin + inherited; + if uSelectedItems.Count > 0 then + if Length(calWantTime.Text) > 0 then Responses.Update('DATETIME',1,ValidCollTime(calWantTime.Text),calWantTime.Text); +end; + +procedure TfrmODBBank.chkConsentClick(Sender: TObject); +begin + inherited; + if uSelectedItems.Count > 0 then + begin + if chkConsent.Checked = true then Responses.Update('YN',1,'1','Yes') + else Responses.Update('YN',1,'0','No'); + end; +end; + +procedure TfrmODBBank.cboUrgencyChange(Sender: TObject); +begin + inherited; + if Length(cboUrgency.Text) > 0 then + begin + Responses.Update('URGENCY',1,cboUrgency.ItemID,cboUrgency.Text); + if cboUrgency.Text = 'PRE-OP' then + begin + lblSurgery.Enabled := true; + cboSurgery.Enabled := true; + end + else + begin + lblSurgery.Enabled := false; + cboSurgery.Enabled := false; + cboSurgery.Text := ''; + if uSelectedItems.Count > 0 then + Responses.Update('MISC',1,cboSurgery.Text,cboSurgery.Text); + end; + end; +end; + +procedure TfrmODBBank.txtDiagCommentChange(Sender: TObject); +begin + inherited; + if uSelectedItems.Count > 0 then + Responses.Update('COMMENT',1,txtDiagComment.Text,txtDiagComment.Text); +end; + +procedure TfrmODBBank.cboPreparationChange(Sender: TObject); +begin + inherited; + Exit; // disable Preparation, since it is no longer needed by VBECS + if uSelectedItems.Count > 0 then + if Length(cboPreparation.Text) > 0 then + Responses.Update('XFUSION',1,cboPreparation.ItemID,cboPreparation.Text); +end; + +procedure TfrmODBBank.cboSurgeryChange(Sender: TObject); +begin + inherited; + if uSelectedItems.Count > 0 then + if Length(cboSurgery.Text) > 0 then + Responses.Update('MISC',1,cboSurgery.Text,cboSurgery.Text); +end; + +procedure TfrmODBBank.tReasonChange(Sender: TObject); +begin + inherited; + if uSelectedItems.Count > 0 then + if Length(tReason.Text) > 0 then + Responses.Update('REASON',1,tReason.Text,tReason.Text); +end; + +procedure TfrmODBBank.calCollTimeChange(Sender: TObject); +begin + inherited; + if uSelectedItems.Count > 0 then + begin + if cboCollType.ItemID = 'LC' then + begin + with cboCollTime do + if Length(ItemID) > 0 then + begin + Responses.Update('START', 1, Copy(ItemID, 2, 999), Copy(ItemID, 2, 999)); + FLastLabCollTime := ItemID + U + Text; + end + else if Length(Text) > 0 then + begin + Responses.Update('START', 1, ValidCollTime(Text), Text) ; + FLastLabCollTime := ValidCollTime(Text); + end; + end + else + begin + with calCollTime do + if FMDateTime > 0 then + begin + Responses.Update('START', 1, ValidCollTime(Text), Text); + FLastColltime := ValidCollTime(Text); + end + else + begin + Responses.Update('START', 1, '', '') ; + FLastCollTime := ''; + end; + end; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fODBase.dfm b/CPRS-Chart/Orders/fODBase.dfm new file mode 100644 index 0000000..f5b883d --- /dev/null +++ b/CPRS-Chart/Orders/fODBase.dfm @@ -0,0 +1,94 @@ +inherited frmODBase: TfrmODBase + Left = 277 + Top = 179 + Width = 528 + Height = 275 + HorzScrollBar.Range = 500 + HorzScrollBar.Tracking = True + HorzScrollBar.Visible = True + VertScrollBar.Range = 225 + VertScrollBar.Visible = True + AutoScroll = False + BorderIcons = [biSystemMenu] + Caption = '' + FormStyle = fsStayOnTop + KeyPreview = True + OnClose = FormClose + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnKeyPress = FormKeyPress + PixelsPerInch = 96 + TextHeight = 13 + object memOrder: TCaptionMemo + Left = 6 + Top = 194 + Width = 430 + Height = 48 + TabStop = False + Color = clCream + Ctl3D = True + ParentCtl3D = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 0 + Caption = 'Order' + end + object cmdAccept: TButton + Left = 442 + Top = 194 + Width = 72 + Height = 21 + Caption = 'Accept Order' + TabOrder = 1 + OnClick = cmdAcceptClick + end + object cmdQuit: TButton + Left = 442 + Top = 221 + Width = 39 + Height = 21 + Cancel = True + Caption = 'Quit' + TabOrder = 2 + OnClick = cmdQuitClick + end + object pnlMessage: TPanel + Left = 24 + Top = 176 + Width = 381 + Height = 44 + BevelInner = bvRaised + BorderStyle = bsSingle + TabOrder = 3 + Visible = False + OnExit = pnlMessageExit + OnMouseDown = pnlMessageMouseDown + OnMouseMove = pnlMessageMouseMove + object imgMessage: TImage + Left = 4 + Top = 4 + Width = 32 + Height = 32 + OnMouseUp = memMessageMouseUp + end + object memMessage: TRichEdit + Left = 40 + Top = 4 + Width = 332 + Height = 32 + Color = clInfoBk + Font.Charset = DEFAULT_CHARSET + Font.Color = clInfoText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 0 + WantReturns = False + OnMouseDown = pnlMessageMouseDown + OnMouseMove = pnlMessageMouseMove + end + end +end diff --git a/CPRS-Chart/Orders/fODBase.pas b/CPRS-Chart/Orders/fODBase.pas new file mode 100644 index 0000000..0dedd9c --- /dev/null +++ b/CPRS-Chart/Orders/fODBase.pas @@ -0,0 +1,1797 @@ +unit fODBase; + +{$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, fAutoSz, StdCtrls, + ORCtrls, ORFn, uConst, rOrders, rODBase, uCore, ComCtrls, ExtCtrls, Menus, Mask, + Buttons, UBAGlobals, UBACore; + +type + TCtrlInit = class + private + Name: string; + Text: string; + ListID: string; + List: TStringList; + public + constructor Create; + destructor Destroy; override; + end; + + TCtrlInits = class + private + FDfltList: TList; + FOIList: TList; + procedure ExtractInits(Src: TStrings; Dest: TList); + function FindInitByName(const AName: string): TCtrlInit; + public + constructor Create; + destructor Destroy; override; + procedure ClearOI; + function DefaultText(const ASection: string): string; + procedure LoadDefaults(Src: TStrings); + procedure LoadOrderItem(Src: TStrings); + procedure SetControl(AControl: TControl; const ASection: string); + procedure SetListOnly(AControl: TControl; const ASection: string); + procedure SetPopupMenu(AMenu: TPopupMenu; AClickEvent: TNotifyEvent; const ASection: string); + function TextOf(const ASection: string): string; + end; + + TResponses = class + private + FDialog: string; + FResponseList: TList; + FPrompts: TList; + FCopyOrder: string; + FEditOrder: string; + FTransferOrder: string; + FDisplayGroup: Integer; + FQuickOrder: Integer; + FOrderChecks: TStringList; + FVarLeading: string; + FVarTrailing: string; + FEventType: Char; + FEventIFN: Integer; + FEventName: string; + FSpecialty: Integer; + FEffective: TFMDateTime; + FParentEvent: TParentEvent; + FLogTime: TFMDateTime; + FViewName: string; + FCancel: boolean; + FOrderContainsObjects: boolean; + function FindResponseByIEN(APromptIEN, AnInstance: Integer): TResponse; + function GetOrderText: string; + function IENForPrompt(const APromptID: string): Integer; + procedure SetDialog(Value: string); + procedure SetCopyOrder(const AnID: string); + procedure SetEditOrder(const AnID: string); + procedure SetQuickOrder(AnIEN: Integer); + procedure SetQuickOrderByID(const AnID: string); + procedure FormatResponse(var FormattedText: string; var ExcludeText: Boolean; + APrompt: TPrompt; const x: string; AnInstance: Integer); + function FindPromptByIEN(AnIEN: Integer): TPrompt; + procedure AppendChildren(var ParentText: string; ChildPrompts: string; AnInstance: Integer); + procedure BuildOCItems(AList: TStringList; var AStartDtTm: string; const AFillerID: string); + public + constructor Create; + destructor Destroy; override; + procedure Clear; overload; + procedure Clear(const APromptID: string; SaveInstance: Integer = 0); overload; + function EValueFor(const APromptID: string; AnInstance: Integer): string; + function GetIENForPrompt(const APromptID: string): Integer; + function FindResponseByName(const APromptID: string; AnInstance: Integer): TResponse; + function PromptExists(const APromptID: string):boolean; + function InstanceCount(const APromptID: string): Integer; + function IValueFor(const APromptID: string; AnInstance: Integer): string; + function NextInstance(const APromptID: string; LastInstance: Integer): Integer; + function OrderCRC: string; + procedure Remove(const APromptID: string; AnInstance: Integer); + procedure SaveQuickOrder(var ANewIEN: Integer; const ADisplayName: string); + procedure SaveOrder(var AnOrder: TOrder; DlgIEN: Integer; IsIMOOrder: boolean = False); + procedure SetControl(AControl: TControl; const APromptID: string; AnInstance: Integer); + procedure SetEventDelay(AnEvent: TOrderDelayEvent); + procedure SetPromptFormat(const APromptID, NewFormat: string); + procedure Update(const APromptID: string; AnInstance: Integer; + const AnIValue, AnEValue: string); + property Dialog: string read FDialog write SetDialog; + property DisplayGroup: Integer read FDisplayGroup write FDisplayGroup; + property CopyOrder: string read FCopyOrder write SetCopyOrder; + property EditOrder: string read FEditOrder; // write SetEditOrder; + property TransferOrder:string read FTransferOrder write FTransferOrder; + property EventType: Char read FEventType; + property EventIFN: integer read FEventIFN write FEventIFN; + property EventName: string read FEventName write FEventName; + property LogTime: TFMDateTime read FLogTime write FLogTime; + property QuickOrder: Integer read FQuickOrder write SetQuickOrder; + property OrderChecks: TStringList read FOrderChecks write FOrderChecks; + property OrderText: string read GetOrderText; + property VarLeading: string read FVarLeading write FVarLeading; + property VarTrailing: string read FVarTrailing write FVarTrailing; + property TheList: TList read FResponseList write FResponseList; + property Cancel: boolean read FCancel write FCancel; + property OrderContainsObjects: boolean read FOrderContainsObjects write FOrderContainsObjects; + end; + + TCallOnExit = procedure; + + TfrmODBase = class(TfrmAutoSz) + memOrder: TCaptionMemo; + cmdAccept: TButton; + cmdQuit: TButton; + pnlMessage: TPanel; + imgMessage: TImage; + memMessage: TRichEdit; + procedure cmdQuitClick(Sender: TObject); + procedure cmdAcceptClick(Sender: TObject); + procedure FormKeyPress(Sender: TObject; var Key: Char); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure memMessageMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlMessageExit(Sender: TObject); + procedure pnlMessageMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlMessageMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + private + FIsSupply: Boolean; + FAbortOrder: Boolean; + FAllowQO: Boolean; + FAutoAccept: Boolean; + FClosing: Boolean; + FChanging: Boolean; + FDialogIEN: Integer; + FDisplayGroup: Integer; + FFillerID: string; + FFromQuit: Boolean; + FAcceptOK: Boolean; + FCtrlInits: TCtrlInits; + FResponses: TResponses; + FPreserve: TList; + FRefNum: Integer; + FOrderAction: Integer; + FKeyVariables: string; + FCallOnExit: TCallOnExit; + FTestMode: Boolean; + FDlgFormID: Integer; + FDfltCopay: String; + FEvtForPassDischarge: Char; + FEvtID : Integer; + FEvtType : Char; + FEvtName : string; + FIncludeOIPI: boolean; + FIsIMO: boolean; //imo + FMessageClickX: integer; + FMessageClickY: integer; + function AcceptOrderChecks: Boolean; + procedure ClearDialogControls; + function GetKeyVariable(const Index: string): string; + function GetEffectiveDate: TFMDateTime; + procedure SetDisplayGroup(Value: Integer); + procedure SetFillerID(const Value: string); + procedure DoSetFontSize( FontSize: integer); + protected + function LESValidationCheck: boolean; + procedure InitDialog; virtual; + procedure SetDialogIEN(Value: Integer); virtual; + procedure Validate(var AnErrMsg: string); virtual; + function ValidSave: Boolean; + procedure ShowOrderMessage(Show: boolean); + public + function OrderForInpatient: Boolean; + procedure SetDefaultCoPay(AnOrderID: string); + procedure OrderMessage(const AMessage: string); + procedure PreserveControl(AControl: TControl); + procedure SetupDialog(OrderAction: Integer; const ID: string); virtual; + procedure SetFontSize( FontSize: integer); virtual; + procedure SetKeyVariables(const VarStr: string); + procedure TabClose(var CanClose: Boolean); + property AbortOrder: Boolean read FAbortOrder write FAbortOrder; + property AcceptOK: Boolean read FAcceptOK; + property AllowQuickOrder: Boolean read FAllowQO write FAllowQO; + property AutoAccept: Boolean read FAutoAccept write FAutoAccept; + property CallOnExit: TCallOnExit read FCallOnExit write FCallOnExit; + property Changing: Boolean read FChanging write FChanging; + property Closing: Boolean read FClosing; + property CtrlInits: TCtrlInits read FCtrlInits write FCtrlInits; + property DialogIEN: Integer read FDialogIEN write SetDialogIEN; + property DisplayGroup: Integer read FDisplayGroup write SetDisplayGroup; + property EffectiveDate: TFMDateTime read GetEffectiveDate; + property FillerID: string read FFillerID write SetFillerID; + property KeyVariable[const Index: string]: string read GetKeyVariable; + property RefNum: Integer read FRefNum write FRefNum; + property Responses: TResponses read FResponses write FResponses; + property TestMode: Boolean read FTestMode write FTestMode; + property DlgFormID: Integer read FDlgFormID write FDlgFormID; + property DfltCopay: string read FDfltCopay write FDfltCopay; + property EvtForPassDischarge: Char read FEvtForPassDischarge write FEvtForPassDischarge; + property EvtID: integer read FEvtID write FEvtID; + property EvtType: Char read FEvtType write FEvtType; + property EvtName: String read FEvtName write FEvtName; + property IncludeOIPI: boolean read FIncludeOIPI write FIncludeOIPI; + property IsIMO:boolean read FIsIMO write FIsIMO; + property IsSupply: boolean read FIsSupply write FIsSupply; + end; + +var + frmODBase: TfrmODBase; + XfInToOutNow :boolean = False; // it's used only for transfering Inpatient Meds to OutPatient Med for + // immediately release (NO EVENT DELAY) + XferOuttoInOnMeds : boolean = False; // it's used only for transfering Outpatient Meds to Inpatient Med for + // immediately release (NO EVENT DELAY) + ImmdCopyAct: boolean = False; + IsUDGroup: boolean = False; // it's only used for copy inpatient med order. + DEASig: string; // digital signature + DupORIFN: string; // it's used to identify the order number for duplicate orders in order checking + NoFresh: boolean = False; // EDO use only + SaveAsCurrent: boolean = False; // EDO use only + CIDCOkToSave: boolean; // CIDC only, used for consult orders. + OrderSource: string = ''; + EventDefaultOD: integer = 0; // If it's event default dialog? + IsTransferAction: boolean = False; + +procedure ClearControl(AControl: TControl); +procedure ResetControl(AControl: TControl); + +implementation + +{$R *.DFM} + +uses fOCAccept, uODBase, rCore, rMisc, fODMessage, + fTemplateDialog, uEventHooks, uTemplates, rConsults,fOrders,uOrders, + fFrame, uTemplateFields, fClinicWardMeds; + +const + TX_ACCEPT = 'Accept the following order?' + CRLF + CRLF; + TX_ACCEPT_CAP = 'Unsaved Order'; + TC_ORDERCHECKS = 'Order Checks'; + +{ Procedures shared with descendent forms } + +procedure ClearControl(AControl: TControl); +{ clears a control, removes text and listbox items } +begin + if AControl is TLabel then with TLabel(AControl) do Caption := '' + else if AControl is TStaticText then with TStaticText(AControl) do Caption := '' + else if AControl is TButton then with TButton(AControl) do Caption := '' + else if AControl is TEdit then with TEdit(AControl) do Text := '' + else if AControl is TMemo then with TMemo(AControl) do Clear + else if AControl is TRichEdit then with TRichEdit(AControl) do Clear + else if AControl is TORListBox then with TORListBox(AControl) do Clear + else if AControl is TListBox then with TListBox(AControl) do Clear + else if AControl is TORComboBox then with TORComboBox(AControl) do + begin + Items.Clear; + Text := ''; + end + else if AControl is TComboBox then with TComboBox(AControl) do + begin + Clear; + Text := ''; + end; +end; + +procedure ResetControl(AControl: TControl); +{ clears text, deselects items, does not remove listbox or combobox items } +begin + if AControl is TLabel then with TLabel(AControl) do Caption := '' + else if AControl is TStaticText then with TStaticText(AControl) do Caption := '' + else if AControl is TButton then with TButton(AControl) do Caption := '' + else if AControl is TEdit then with TEdit(AControl) do Text := '' + else if AControl is TMemo then with TMemo(AControl) do Clear + else if AControl is TRichEdit then with TRichEdit(AControl) do Clear + else if AControl is TListBox then with TListBox(AControl) do ItemIndex := -1 + else if AControl is TORComboBox then with TORComboBox(AControl) do + begin + Text := ''; + ItemIndex := -1; + end + else if AControl is TComboBox then with TComboBox(AControl) do + begin + Text := ''; + ItemIndex := -1; + end; +end; + +{ TCtrlInit methods } + +constructor TCtrlInit.Create; +begin + List := TStringList.Create; +end; + +destructor TCtrlInit.Destroy; +begin + List.Free; + inherited Destroy; +end; + +{ TCtrlInits methods } + +constructor TCtrlInits.Create; +{ create lists to store initial value for dialog and selected orderable item } +begin + FDfltList := TList.Create; + FOIList := TList.Create; +end; + +destructor TCtrlInits.Destroy; +{ free the objects used to store initialization information } +var + i: Integer; +begin + { free the objects in the lists first } + with FDfltList do for i := 0 to Count - 1 do TCtrlInit(Items[i]).Free; + FDfltList.Free; + ClearOI; + FOIList.Free; + inherited Destroy; +end; + +procedure TCtrlInits.ClearOI; +{ clears the records in FOIList, but not FDfltList } +var + i: Integer; +begin + with FOIList do for i := 0 to Count - 1 do TCtrlInit(Items[i]).Free; + FOIList.Clear; +end; + +procedure TCtrlInits.ExtractInits(Src: TStrings; Dest: TList); +{ load a list with TCtrlInit records (source strings are those passed from server } +var + i: Integer; + ACtrlInit: TCtrlInit; +begin + i := 0; + while i < Src.Count do + begin + if CharAt(Src[i], 1) = '~' then + begin + ACtrlInit := TCtrlInit.Create; + with ACtrlInit do + begin + Name := Copy(Src[i], 2, Length(Src[i])); + List := TStringList.Create; + Inc(i); + while (i < Src.Count) and (CharAt(Src[i], 1) <> '~') do + begin + if CharAt(Src[i], 1) = 'i' then List.Add(Copy(Src[i], 2, 255)); + if CharAt(Src[i], 1) = 't' then List.Add(Copy(Src[i], 2, 255)); + if CharAt(Src[i], 1) = 'd' then + begin + Text := Piece(Src[i], U, 2); + ListID := Copy(Piece(Src[i], U, 1), 2, 255); + end; + Inc(i); + end; {while i & CharAt...} + Dest.Add(ACtrlInit); + end; {with ACtrlDflt} + end; {if CharAt} + end; {while i} +end; + + +procedure TCtrlInits.LoadDefaults(Src: TStrings); +{ loads control initialization information for the dialog } +begin + FDfltList.Clear; + ExtractInits(Src, FDfltList); +end; + +procedure TCtrlInits.LoadOrderItem(Src: TStrings); +{ loads control initialization information for the orderable item } +begin + ClearOI; + ExtractInits(Src, FOIList); +end; + +function TCtrlInits.FindInitByName(const AName: string): TCtrlInit; +{ look first in FOIList, then in FDfltList for initial values identified by name (~section) } +var + i: Integer; +begin + Result := nil; + with FOIList do + for i := 0 to Count - 1 do if TCtrlInit(Items[i]).Name = AName then + begin + Result := TCtrlInit(Items[i]); + break; + end; + if Result = nil then with FDfltList do + for i := 0 to Count - 1 do if TCtrlInit(Items[i]).Name = AName then + begin + Result := TCtrlInit(Items[i]); + break; + end; +end; + +procedure TCtrlInits.SetControl(AControl: TControl; const ASection: string); +{ initializes a control to the information in a section (~section from server) } +var + CtrlInit: TCtrlInit; +begin + ClearControl(AControl); + CtrlInit := FindInitByName(ASection); + if CtrlInit = nil then Exit; + if AControl is TLabel then with TLabel(AControl) do Caption := CtrlInit.Text + else if AControl is TStaticText then with TStaticText(AControl) do Caption := CtrlInit.Text + else if AControl is TButton then with TButton(AControl) do Caption := CtrlInit.Text + else if AControl is TEdit then with TEdit(AControl) do Text := CtrlInit.Text + else if AControl is TMemo then with TMemo(AControl) do Lines.Assign(CtrlInit.List) + else if AControl is TRichEdit then with TRichEdit(AControl) do Lines.Assign(CtrlInit.List) + else if AControl is TORListBox then with TORListBox(AControl) do Items.Assign(CtrlInit.List) + else if AControl is TListBox then with TListBox(AControl) do Items.Assign(CtrlInit.List) + else if AControl is TComboBox then with TComboBox(AControl) do + begin + Items.Assign(CtrlInit.List); + Text := CtrlInit.Text; + end + else if AControl is TORComboBox then with TORComboBox(AControl) do + begin + Items.Assign(CtrlInit.List); + if LongList then InitLongList(Text) else Text := CtrlInit.Text; + SelectByID(CtrlInit.ListID); + end; + { need to add SelectByID for combobox & listbox } +end; + +procedure TCtrlInits.SetListOnly(AControl: TControl; const ASection: string); +{ assigns list portion to a control from a section (used to set ShortList for meds) } +var + CtrlInit: TCtrlInit; +begin + CtrlInit := FindInitByName(ASection); + if CtrlInit = nil then Exit; + if AControl is TMemo then with TMemo(AControl) do Lines.Assign(CtrlInit.List) + else if AControl is TORListBox then with TORListBox(AControl) do Items.Assign(CtrlInit.List) + else if AControl is TListBox then with TListBox(AControl) do Items.Assign(CtrlInit.List) + else if AControl is TComboBox then with TComboBox(AControl) do Items.Assign(CtrlInit.List) + else if AControl is TORComboBox then with TORComboBox(AControl) do Items.Assign(CtrlInit.List); +end; + +procedure TCtrlInits.SetPopupMenu(AMenu: TPopupMenu; AClickEvent: TNotifyEvent; const ASection: string); +{ populates a popup menu with items in a list, leaves the maximum text width in Tag } +var + i, MaxWidth: Integer; + CtrlInit: TCtrlInit; + AMenuItem: TMenuItem; +begin + CtrlInit := FindInitByName(ASection); + // clear the current menu entries + for i := AMenu.Items.Count - 1 downto 0 do + begin + AMenuItem := AMenu.Items[i]; + if AMenuItem <> nil then + begin + AMenu.Items.Delete(i); + AMenuItem.Free; + end; + end; + MaxWidth := 0; + for i := 0 to CtrlInit.List.Count - 1 do + begin + AMenuItem := TMenuItem.Create(Application); + AMenuItem.Caption := CtrlInit.List[i]; + AMenuItem.OnClick := AClickEvent; + AMenu.Items.Add(AMenuItem); + MaxWidth := HigherOf(MaxWidth, Application.MainForm.Canvas.TextWidth(CtrlInit.List[i])); + end; + AMenu.Tag := MaxWidth; +end; + +function TCtrlInits.DefaultText(const ASection: string): string; +var + CtrlInit: TCtrlInit; +begin + Result := ''; + CtrlInit := FindInitByName(ASection); + if CtrlInit <> nil then Result := CtrlInit.ListID; +end; + +function TCtrlInits.TextOf(const ASection: string): string; +var + CtrlInit: TCtrlInit; +begin + Result := ''; + CtrlInit := FindInitByName(ASection); + if CtrlInit <> nil then Result := CtrlInit.List.Text; +end; + +{ TResponses methods } + +function SortPromptsBySequence(Item1, Item2: Pointer): Integer; +{ compare function used to sort formatting info by sequence - used by TResponses.SetDialog} +var + Prompt1, Prompt2: TPrompt; +begin + Prompt1 := TPrompt(Item1); + Prompt2 := TPrompt(Item2); + if Prompt1.Sequence < Prompt2.Sequence then Result := -1 + else if Prompt1.Sequence > Prompt2.Sequence then Result := 1 + else Result := 0; +end; + +constructor TResponses.Create; +begin + FResponseList := TList.Create; + FPrompts := TList.Create; + FOrderChecks := TStringList.Create; + FEventType := #0; + FParentEvent := TParentEvent.Create; + FLogTime := 0; +end; + +destructor TResponses.Destroy; +{ frees all response objects before freeing list } +var + i: Integer; +begin + Clear; + FOrderChecks.Free; + FResponseList.Free; + with FPrompts do for i := 0 to Count - 1 do TPrompt(Items[i]).Free; + FPrompts.Free; + inherited Destroy; +end; + +procedure TResponses.Clear; +{ clears all information in the response multiple } +var + i: Integer; +begin + FVarLeading := ''; + FVarTrailing := ''; + FQuickOrder := 0; + //FCopyOrder := ''; // don't clear FCopyOrder either? + // don't clear FEditOrder or it will cause a new order to be created instead of an edit + with FResponseList do for i := 0 to Count - 1 do TResponse(Items[i]).Free; + FResponseList.Clear; + FOrderChecks.Clear; +end; + +procedure TResponses.Clear(const APromptID: string; SaveInstance: Integer = 0); +var + AResponse: TResponse; + i: Integer; +begin + with FResponseList do + for i := Count - 1 downto SaveInstance do + begin + AResponse := TResponse(Items[i]); + if AResponse.PromptID = APromptID then + begin + AResponse.Free; + FResponseList.Delete(i); + end; {if AResponse} + end; {for} +end; + +procedure TResponses.SetDialog(Value: string); +{ loads formatting information for a dialog } +var + i: Integer; +begin + with FPrompts do for i := 0 to Count - 1 do TPrompt(Items[i]).Free; + FPrompts.Clear; + FDialog := Value; + LoadDialogDefinition(FPrompts, FDialog); + FPrompts.Sort(SortPromptsBySequence); +end; + +procedure TResponses.SetCopyOrder(const AnID: string); +{ sets responses to the values for an order that is created by copying } +var + HasObjects: boolean; +begin + if AnID = '' then + begin + FCopyOrder := AnID; + Exit; + end; + Clear; + LoadResponses(FResponseList, AnID, HasObjects); // Example AnID=C123456;1-3604 + FCopyOrder := Copy(Piece(AnID, '-', 1), 2, Length(AnID)); + FOrderContainsObjects := HasObjects; +end; + +procedure TResponses.SetEditOrder(const AnID: string); +{ sets responses to the values for an order that is about to be edited } +var + HasObjects: boolean; +begin + Clear; + LoadResponses(FResponseList, AnID, HasObjects); // Example AnID=X123456;1 + FEditOrder := Copy(Piece(AnID, '-', 1), 2, Length(AnID)); + FOrderContainsObjects := HasObjects; +end; + +procedure TResponses.SetQuickOrder(AnIEN: Integer); +{ sets responses to a quick order value - this is used by the QuickOrder property} +var + HasObjects: boolean; +begin + Clear; + LoadResponses(FResponseList, IntToStr(AnIEN), HasObjects); // Example AnIEN=134 + FQuickOrder := AnIEN; + FOrderContainsObjects := HasObjects; +end; + +procedure TResponses.SetQuickOrderByID(const AnID: string); +{ sets responses to a quick order value } +var + HasObjects: boolean; +begin + Clear; + LoadResponses(FResponseList, AnID, HasObjects); // Example AnID=134-3645 + FQuickOrder := StrToIntDef(Piece(AnID, '-', 1), 0); // 2nd '-' piece is $H seconds + FOrderContainsObjects := HasObjects; +end; + +procedure TResponses.BuildOCItems(AList: TStringList; var AStartDtTm: string; + const AFillerID: string); +var + i, TheInstance: Integer; + OrderableIEN, PkgPart: string; +begin + if EditOrder <> '' then DupORIFN := EditOrder; + if CopyOrder <> '' then DupORIFN := CopyOrder; + //if {(CopyOrder <> '') or} (EditOrder <> '') then Exit; // only check new orders + with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do + if (PromptID = 'ORDERABLE') or (PromptID = 'ADDITIVE') then + begin + OrderableIEN := IValue; + TheInstance := Instance; + PkgPart := ''; + if AFillerID = 'LR' then PkgPart := '^LR^' + IValueFor('SPECIMEN', TheInstance); + if (AFillerID = 'PSI') or (AFillerID = 'PSO') or (AFillerID = 'PSH') + then PkgPart := U + AFillerID + U + IValueFor('DRUG', TheInstance); + // was -- then PkgPart := '^PS^' + IValueFor('DRUG', TheInstance); + if AFillerID = 'PSIV' then + begin + if PromptID = 'ORDERABLE' then PkgPart := '^PSIV^B;' + IValueFor('VOLUME', TheInstance); + if PromptID = 'ADDITIVE' then PkgPart := '^PSIV^A'; + end; + AList.Add(OrderableIEN + PkgPart); + end; + AStartDtTm := IValueFor('START', 1); +end; + +function TResponses.EValueFor(const APromptID: string; AnInstance: Integer): string; +var + i: Integer; +begin + Result := ''; + with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do + if (PromptID = APromptID) and (Instance = AnInstance) then + begin + Result := EValue; + break; + end; +end; + +function TResponses.IValueFor(const APromptID: string; AnInstance: Integer): string; +var + i: Integer; +begin + Result := ''; + with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do + if (PromptID = APromptID) and (Instance = AnInstance) then + begin + Result := IValue; + break; + end; +end; + +function TResponses.PromptExists(const APromptID: string): boolean; +var + i: Integer; +begin + Result := False; + with FPrompts do for i := 0 to Count - 1 do with TPrompt(Items[i]) do + if (ID = APromptID) then Result := True; +end; + +function TResponses.FindResponseByName(const APromptID: string; AnInstance: Integer): TResponse; +var + i: Integer; +begin + Result := nil; + with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do + if (PromptID = APromptID) and (Instance = AnInstance) then + begin + Result := TResponse(Items[i]); + break; + end; +end; + +function TResponses.IENForPrompt(const APromptID: string): Integer; +var + i: Integer; +begin + Result := 0; + with FPrompts do for i := 0 to Count - 1 do with TPrompt(Items[i]) do + if (ID = APromptID) then + begin + Result := IEN; + break; + end; +end; + +function TResponses.InstanceCount(const APromptID: string): Integer; +var + i: Integer; +begin + Result := 0; + with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do + if (PromptID = APromptID) then Inc(Result); +end; + +function TResponses.NextInstance(const APromptID: string; LastInstance: Integer): Integer; +var + i: Integer; +begin + Result := 0; + with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do + if (PromptID = APromptID) and (Instance > LastInstance) and + ((Result = 0) or ((Result > 0) and (Instance < Result))) then Result := Instance; +end; + +function TResponses.FindResponseByIEN(APromptIEN, AnInstance: Integer): TResponse; +var + i: Integer; +begin + Result := nil; + with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do + if (PromptIEN = APromptIEN) and (Instance = AnInstance) then + begin + Result := TResponse(Items[i]); + break; + end; +end; + +procedure TResponses.FormatResponse(var FormattedText: string; var ExcludeText: Boolean; + APrompt: TPrompt; const x: string; AnInstance: Integer); +var + AValue: string; + PromptIEN: Integer; + Related: TResponse; +begin + FormattedText := ''; + ExcludeText := True; + with APrompt do + begin + if FmtCode = '@' then Exit; // skip this response + if CharAt(FmtCode, 1) = '@' then // exclude if related response exists + begin + PromptIEN := StrToIntDef(Copy(FmtCode, 2, Length(FmtCode)), 0); + if (FindResponseByIEN(PromptIEN, AnInstance) <> nil) then Exit; + end; + if CharAt(FmtCode, 1) = '*' then // include if related response exists + begin + PromptIEN := StrToIntDef(Copy(FmtCode, 2, Length(FmtCode)), 0); + if FindResponseByIEN(PromptIEN, AnInstance) = nil then Exit; + end; + if CharAt(FmtCode, 1) = '#' then // include if related response = value + begin + AValue := Copy(FmtCode, Pos('=', FmtCode) + 1, Length(FmtCode)); + PromptIEN := StrToIntDef(Copy(Piece(FmtCode, '=', 1), 2, Length(FmtCode)), 0); + Related := FindResponseByIEN(PromptIEN, AnInstance); + if Related = nil then Exit; + if not (Related.EValue = AValue) then Exit; + end; + if CharAt(FmtCode, 1) = '=' then // exclude if related response has same text + begin + PromptIEN := StrToIntDef(Copy(FmtCode, 2, Length(FmtCode)), 0); + Related := FindResponseByIEN(PromptIEN, AnInstance); + if (Related <> nil) and ((Pos(Related.EValue, x) > 0) or (Pos(x, Related.EValue) > 0)) then Exit; + end; + ExcludeText := False; + if (Length(x) = 0) or (CompareText(x, Omit) = 0) then Exit; + FormattedText := x; + if IsChild and (Length(Leading) > 0) and (CharAt(Leading, 1) <> '@') + then FormattedText := Leading + ' ' + FormattedText; + if IsChild and (Length(Trailing) > 0) and (CharAt(Trailing, 1) <> '@') + then FormattedText := FormattedText + ' ' + Trailing; + end; {with APrompt} +end; + +function TResponses.FindPromptByIEN(AnIEN: Integer): TPrompt; +var + i: Integer; +begin + Result := nil; + with FPrompts do for i := 0 to Count - 1 do with TPrompt(Items[i]) do + if IEN = AnIEN then + begin + Result := TPrompt(Items[i]); + break; + end; +end; + +procedure TResponses.AppendChildren(var ParentText: string; ChildPrompts: string; AnInstance: Integer); +var + x, Segment: string; + Boundary, ChildIEN: Integer; + ExcludeText: Boolean; + AResponse: TResponse; + APrompt: TPrompt; +begin + while Length(ChildPrompts) > 0 do + begin + Boundary := Pos('~', ChildPrompts); + if Boundary = 0 then Boundary := Length(ChildPrompts) + 1; + Segment := Copy(ChildPrompts, 1, Boundary - 1); + Delete(ChildPrompts, 1, Boundary); + ChildIEN := StrToIntDef(Segment, 0); + APrompt := FindPromptByIEN(ChildIEN); + if APrompt <> nil then + begin + AResponse := FindResponseByIEN(APrompt.IEN, AnInstance); + if AResponse <> nil then + begin + FormatResponse(x, ExcludeText, APrompt, AResponse.EValue, AnInstance); + //x := FormatResponse(APrompt, AResponse.EValue, AnInstance); + if not ExcludeText then + begin + if (Length(ParentText) > 0) and (Length(x) > 0) then ParentText := ParentText + ' '; + ParentText := ParentText + x; + end; {if not ExcludeText} + end; {if AResponse} + end; {if APrompt} + end; {while Length} +end; {AppendChildren} + +function TResponses.GetOrderText: string; +{ loop thru the response objects and build the order text } +var + i, AnInstance, NumInstance: Integer; + x, Segment: string; + ExcludeText, StartNewline: Boolean; + AResponse: TResponse; + APrompt: TPrompt; +begin + Result := ''; + with FPrompts do for i := 0 to Count - 1 do + begin + APrompt := TPrompt(Items[i]); + if APrompt.Sequence = 0 then Continue; // skip if prompt not in formatting sequence + NumInstance := 0; + Segment := ''; + AnInstance := NextInstance(APrompt.ID, 0); + while AnInstance > 0 do + begin + Inc(NumInstance); + AResponse := FindResponseByName(APrompt.ID, AnInstance); + FormatResponse(x, ExcludeText, APrompt, AResponse.EValue, AnInstance); + //x := FormatResponse(APrompt, AResponse.EValue, AnInstance); + if not ExcludeText then + begin + if Length(APrompt.Children) > 0 then AppendChildren(x, APrompt.Children, AnInstance); + if Length(x) > 0 then + begin + // should the newline property be checked for children, too? + if APrompt.NewLine and (Length(Result) > 0) then x := CRLF + x; + if NumInstance > 1 then Segment := Segment + ','; + if Length(Segment) > 0 then Segment := Segment + ' '; + Segment := Segment + x; + end; {if Length(x)} + end; {if not ExcudeText} + AnInstance := NextInstance(APrompt.ID, AnInstance); + end; {while AnInstance} + if NumInstance > 0 then with APrompt do + begin + if Length(Segment) > 0 then + begin + if Copy(Segment, 1, 2) = CRLF then + begin + Segment := Copy(Segment, 3, Length(Segment)); + StartNewline := True; + end + else StartNewline := False; + if (Length(Leading) > 0) then + begin + if (CharAt(Leading, 1) <> '@') + then Segment := Leading + ' ' + Segment + else Segment := FVarLeading + ' ' + Segment; + end; {if Length(Leading)} + if StartNewline then Segment := CRLF + Segment; + if (Length(Trailing) > 0) then + begin + if (CharAt(Trailing, 1) <> '@') + then Segment := Segment + ' ' + Trailing + else Segment := Segment + ' ' + FVarTrailing; + end; {if Length(Trailing)} + end; {if Length(Segment)} + if Length(Result) > 0 then Result := Result + ' '; + Result := Result + Segment; + end; {with APrompt} + end; {with FPrompts} +end; {GetOrderText} + +procedure TResponses.Update(const APromptID: string; AnInstance: Integer; + const AnIValue, AnEValue: string); +{ for a given Prompt,Instance update or create the associated response object } +var + AResponse: TResponse; +begin + AResponse := FindResponseByName(APromptID, AnInstance); + if AResponse = nil then + begin + AResponse := TResponse.Create; + AResponse.PromptID := APromptID; + AResponse.PromptIEN := IENForPrompt(APromptID); + AResponse.Instance := AnInstance; + FResponseList.Add(AResponse); + end; + AResponse.IValue := AnIValue; + AResponse.EValue := AnEValue; +end; + +function TResponses.OrderCRC: string; +const + CRC_WIDTH = 8; +var + i: Integer; + x: string; + tmplst: TStringList; +begin + tmplst := TStringList.Create; + try + with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do + begin + if IValue = TX_WPTYPE then x := EValue else x := IValue; + tmplst.Add(IntToStr(PromptIEN) + U + IntToStr(Instance) + U + x); + end; + Result := IntToHex(CRCForStrings(tmplst), CRC_WIDTH); + finally + tmplst.Free; + end; +end; + +procedure TResponses.Remove(const APromptID: string; AnInstance: Integer); +var + AResponse: TResponse; +begin + AResponse := FindResponseByName(APromptID, AnInstance); + if AResponse <> nil then + begin + FResponseList.Remove(AResponse); + AResponse.Free; + end; +end; + +procedure TResponses.SaveQuickOrder(var ANewIEN: Integer; const ADisplayName: string); +begin + if FDisplayGroup = ClinDisp then //Clin. Meds share same quick order definition with Inpt. Meds + PutQuickOrder(ANewIEN, OrderCRC, ADisplayName, InptDisp, FResponseList) + else + PutQuickOrder(ANewIEN, OrderCRC, ADisplayName, FDisplayGroup, FResponseList) +end; + +procedure TResponses.SaveOrder(var AnOrder: TOrder; DlgIEN: Integer; IsIMOOrder: boolean); +var + ConstructOrder: TConstructOrder; + i,j: integer; + QOUDGroup: boolean; + NewPtEvtPtr: Integer; // ptr to #100.2 + APtEvtPtr: string; +begin + //IMOLoc := 0; + NewPtEvtPtr := 0; + QOUDGroup := False; + if FQuickOrder > 0 then + begin + DlgIEN := FQuickOrder; + QOUDGroup := CheckQOGroup( IntToStr(FQuickOrder) ); + end; + AnOrder.EditOf := FEditOrder; // null if new order, otherwise ORIFN of original order + with ConstructOrder do + begin + if XfInToOutNow then + DialogName := FDialog + '^O' + else DialogName := FDialog; + LeadText := FVarLeading; + TrailText := FVarTrailing; + DGroup := FDisplayGroup; + OrderItem := DlgIEN; + DelayEvent := FEventType; + Specialty := FSpecialty; + Effective := FEffective; + LogTime := FLogTime; + OCList := FOrderChecks; + DigSig := DEASig; + IsIMODialog := IsIMOOrder; //IMO + if IsIMODialog then + DGroup := ClinDisp; + //AGP Change 26.35, 26.41 8518 added text order + //AGP Change 26.55 remove IMO functionality for inpatient + (*if (Patient.Inpatient = true) and (IsValidIMOLoc(encounter.Location,Patient.DFN)=true) and + ((ConstructOrder.DialogName = 'PSJ OR PAT OE') or (ConstructOrder.DialogName = 'PSJI OR PAT FLUID OE') or + (ConstructOrder.DialogName = 'OR GXTEXT WORD PROCESSING ORDE')) and + ((FEditOrder = '') and (Self.FEventName = '') and (Self.FCopyOrder = '')) then + begin + if frmClinicWardMeds.ClinicOrWardLocation(Encounter.location) = Encounter.Location then + begin + ConstructOrder.IsIMODialog := True; + ConstructOrder.DGroup := ClinDisp; + end + else IMOLoc := Patient.Location; + end; *) + //AGP Change 26.51, change logic to set text orders to IMO for outpatients at an outpatient location. + //AGP Text orders are only treated as IMO if the order display group is a nursing display group + if (Patient.Inpatient = False) and (IsValidIMOLoc(encounter.Location,Patient.DFN)=true) and + (((pos('OR GXTEXT WORD PROCESSING ORDE',ConstructOrder.DialogName)>0) and (ConstructOrder.DGroup = NurDisp)) or + ((ConstructOrder.DialogName = 'OR GXMISC GENERAL') and (ConstructOrder.DGroup = NurDisp)) or + ((ConstructOrder.DialogName = 'OR GXTEXT TEXT ONLY ORDER') and (ConstructOrder.DGroup = NurDisp))) and //AGP Change CQ #10757 + ((FEditOrder = '') and (Self.FEventName = '') and (Self.FCopyOrder = '')) then + begin + ConstructOrder.IsIMODialog := True; + ConstructOrder.DGroup := ClinDisp; + end; + IsEventDefaultOR := EventDefaultOD; + if IsUDGroup or QOUDGroup then + begin + for i := 0 to FResponseList.Count - 1 do + if UpperCase(TResponse(FResponseList.Items[i]).PromptID) = 'PICKUP' then + begin + FResponseList.Delete(i); + Break; + end; + end; + + if SaveAsCurrent then + ConstructOrder.DelayEvent := #0; + + ResponseList := FResponseList; + if (FEventIFN>0) and (EventExist(Patient.DFN, FEventIFN)>0) then + begin + APtEvtPtr := IntToStr(EventExist(Patient.DFN, FEventIFN)); + PTEventPtr := APtEvtPtr; + //PutNewOrder(AnOrder, ConstructOrder, OrderSource, IMOLoc); + PutNewOrder(AnOrder, ConstructOrder, OrderSource); + if not SaveAsCurrent then + begin + AnOrder.EventPtr := PTEventPtr; + AnOrder.EventName := 'Delayed ' + MixedCase(Piece(EventInfo(APtEvtPtr),'^',4)); + end; + end + else + begin + //PutNewOrder(AnOrder, ConstructOrder, OrderSource, IMOLoc); + PutNewOrder(AnOrder, ConstructOrder, OrderSource); + if not SaveAsCurrent then + begin + if (FEventIFN > 0) and (FParentEvent.ParentIFN > 0) then + begin + {For a child event, create a parent event in 100.2 first} + SaveEvtForOrder(Patient.DFN, FParentEvent.ParentIFN, AnOrder.ID); + NewPtEvtPtr := EventExist(Patient.DFN, FParentEvent.ParentIFN); + AnOrder.EventPtr := IntToStr(NewPtEvtPtr); + AnOrder.EventName := 'Delayed ' + MixedCase(Piece(EventInfo(IntToStr(NewPtEvtPtr)),'^',4)); + {Then create the child event in 100.2} + SaveEvtForOrder(Patient.DFN, FEventIFN, ''); + NewPtEvtPtr := EventExist(Patient.DFN, FEventIFN); + end + else if (FEventIFN > 0) and (FParentEvent.ParentIFN = 0) then + begin + SaveEvtForOrder(Patient.DFN, FEventIFN, AnOrder.ID); + NewPtEvtPtr := EventExist(Patient.DFN, FEventIFN); + AnOrder.EventPtr := IntToStr(NewPtEvtPtr); + AnOrder.EventName := 'Delayed ' + MixedCase(Piece(EventInfo(IntToStr(NewPtEvtPtr)),'^',4)); + end; + if FEventIFN > 0 then + begin + for j := 1 to frmOrders.lstSheets.Items.Count - 1 do + begin + if FEventIFN = StrToInt( Piece(Piece(frmOrders.lstSheets.Items[j],'^',1),';',1) ) then + begin + frmOrders.lstSheets.Items[j] := IntToStr( NewPtEvtPtr) + '^' + Piece(frmOrders.lstSheets.Items[j],'^',2); + frmOrders.lstSheets.ItemIndex := j; + end; + end; + end; + end; + end; + DEASig := ''; //PKI + end; + AnOrder.EditOf := FEditOrder; +{Begin BillingAware} + if rpcGetBAMasterSwStatus then + begin + UBAGlobals.BAOrderID := ''; + UBAGlobals.BAOrderID := AnOrder.ID; + end; +{Begin BillingAware} +end; + +procedure TResponses.SetControl(AControl: TControl; const APromptID: string; AnInstance: Integer); +{ sets the value of a control, uses ID string & instance to find the right response entry } +var + i: Integer; + AResponse: TResponse; + IEN: integer; + HasObjects: boolean; + + procedure AssignBPText(List: TStrings; const Value: string); + var + tmp, cptn, DocInfo: string; + LType: TTemplateLinkType; + + begin + DocInfo := ''; + LType := DisplayGroupToLinkType(DisplayGroup); + cptn := 'Reason for Request: ' + EValueFor('ORDERABLE', 1); + tmp := Value; + case LType of + ltConsult: IEN := StrToIntDef(GetServiceIEN(IValueFor('ORDERABLE', 1)),0); + ltProcedure: IEN := StrToIntDef(GetProcedureIEN(IValueFor('ORDERABLE', 1)),0); + else IEN := 0; + end; + ExpandOrderObjects(tmp, HasObjects); + FOrderContainsObjects := FOrderContainsObjects or HasObjects; + if IEN <> 0 then + begin + // template will execute on copy order if commented out (tried to eliminate for CSV v22, RV) + // + //if (Length(tmp) > 0) and (not HasTemplateField(tmp)) then + // CheckBoilerplate4Fields(tmp, cptn) + //else + ExecuteTemplateOrBoilerPlate(tmp, IEN, LType, nil, cptn, DocInfo); + end + else + CheckBoilerplate4Fields(tmp, cptn); + List.Text := tmp; + end; + +begin + AResponse := FindResponseByName(APromptID, AnInstance); + if AResponse = nil then Exit; + if AControl is TLabel then with TLabel(AControl) do Caption := AResponse.EValue + else if AControl is TStaticText then with TStaticText(AControl) do Caption := AResponse.EValue + else if AControl is TButton then with TButton(AControl) do Caption := AResponse.EValue + else if AControl is TEdit then with TEdit(AControl) do Text := AResponse.EValue + else if AControl is TMaskEdit then with TMaskEdit(AControl) do Text := AResponse.EValue + else if AControl is TCheckBox then with TCheckBox(AControl) do + Checked := (StrToIntDef(AResponse.IValue,0) > 0) or + (UpperCase(AResponse.IValue) = 'Y') + else if AControl is TMemo then with TMemo(AControl) do AssignBPText(Lines, AResponse.EValue) + else if AControl is TRichEdit then with TRichEdit(AControl) do AssignBPText(Lines, AResponse.EValue) + else if AControl is TORListBox then with TORListBox(AControl) do + begin + for i := 0 to Items.Count - 1 do + if Piece(Items[i], U, 1) = AResponse.IValue then ItemIndex := i; + end + else if AControl is TListBox then with TListBox(AControl) do + begin + for i := 0 to Items.Count - 1 do + if Items[i] = AResponse.EValue then ItemIndex := i; + end + else if AControl is TComboBox then with TComboBox(AControl) do + begin + for i := 0 to Items.Count - 1 do + if Items[i] = AResponse.EValue then ItemIndex := i; + Text := AResponse.EValue; + end + else if AControl is TORComboBox then with TORComboBox(AControl) do + begin + if LongList then InitLongList(AResponse.EValue); + SelectByID(AResponse.IValue); + if (not LongList) and (ItemIndex < 0) then Text := AResponse.EValue; + end; +end; + +procedure TResponses.SetEventDelay(AnEvent: TOrderDelayEvent); +begin + with AnEvent do if EventType in ['A','D','T','M','O'] then + begin + FEventIFN := EventIFN; + FEventName := EventName; + FEventType := EventType; + FSpecialty := Specialty; + FEffective := Effective; + FViewName := 'Delayed ' + MixedCase(EventName); + FParentEvent := TParentEvent(AnEvent.TheParent); + end; +end; + +procedure TResponses.SetPromptFormat(const APromptID, NewFormat: string); +var + i: Integer; +begin + with FPrompts do for i := 0 to Count - 1 do with TPrompt(Items[i]) do + if (ID = APromptID) then FmtCode := NewFormat; +end; + +{ Private calls } + +procedure TfrmODBase.ClearDialogControls; +var + i: Integer; +begin + FChanging := True; + for i := 0 to ControlCount - 1 do + begin + // need to check if control is container & clear it's children also + if (Controls[i] is TLabel) or (Controls[i] is TButton) or (Controls[i] is TStaticText) then Continue; + if FPreserve.IndexOf(Controls[i]) < 0 then ClearControl(Controls[i]); + end; + FChanging := False; + ShowOrderMessage( False ); +end; + +procedure TfrmODBase.SetDisplayGroup(Value: Integer); +begin + FDisplayGroup := Value; + Responses.FDisplayGroup := Value; +end; + +procedure TfrmODBase.SetFillerID(const Value: string); +var + x: string; +begin + FFillerID := Value; + if AddFillerAppID(FFillerID) and OrderChecksEnabled then + begin + StatusText('Order Checking...'); + x := OrderChecksOnDisplay(FillerID); + StatusText(''); + if Length(x) > 0 then InfoBox(x, TC_ORDERCHECKS, MB_OK); + end; +end; + +{ Protected Calls (used by descendant forms) } + +procedure TfrmODBase.InitDialog; +begin + ClearDialogControls; + Responses.Clear; + FAcceptOK := False; + FAbortOrder := False; +end; + +function TfrmODBase.OrderForInpatient: Boolean; +var + AnEventType: Char; +begin + AnEventType := OrderEventTypeOnCreate; + // if event type = #0, then it wasn't passed or we're not in create + if AnEventType = #0 then AnEventType := Responses.FEventType; + case AnEventType of + 'A','O': Result := True; + 'D': Result := False; + 'T': + begin + if IsPassEvt1(FEvtID,'T') then Result := False + else Result := True; + end + else Result := Patient.Inpatient; + end; +end; + +procedure TfrmODBase.ShowOrderMessage(Show: boolean); +begin + if Show then + begin + pnlMessage.Visible := True; + pnlMessage.BringToFront; + memMessage.TabStop := True; + end + else + begin + pnlMessage.Visible := False; + pnlMessage.SendToBack; + memMessage.TabStop := False; + end; +end; + +procedure TfrmODBase.OrderMessage(const AMessage: string); +{Caller needs to set pnlMessage.TabOrder} +begin + memMessage.Lines.SetText(PChar(AMessage)); + //begin CQ: 2640 + memMessage.SelStart := 0; // Put at first character + SendMessage(memMessage.Handle, WM_VSCROLL, SB_TOP, 0); + //End CQ: 2640 + ShowOrderMessage(ContainsVisibleChar(AMessage)); +end; + +procedure TfrmODBase.PreserveControl(AControl: TControl); +begin + FPreserve.Add(AControl); +end; + +procedure TfrmODBase.SetDialogIEN(Value: Integer); +begin + FDialogIEN := Value; +end; + +procedure TfrmODBase.SetupDialog(OrderAction: Integer; const ID: string); +begin + FOrderAction := OrderAction; + FAbortOrder := False; + case OrderAction of + ORDER_NEW: {nothing}; + ORDER_EDIT: Responses.SetEditOrder(ID); + ORDER_COPY: Responses.SetCopyOrder(ID); + ORDER_QUICK: Responses.SetQuickOrderByID(ID); + end; + if Responses.FEventType in ['A','D','T','M','O'] then Caption := Caption + ' (Delayed ' + Responses.FEventName + ')'; // ' (Event Delayed)'; + if OrderAction in [ORDER_EDIT, ORDER_COPY] then cmdQuit.Caption := 'Cancel'; +end; + +function TfrmODBase.GetEffectiveDate: TFMDateTime; +begin + Result := Responses.FEffective; +end; + +function TfrmODBase.GetKeyVariable(const Index: string): string; +begin + if UpperCase(Index) = 'LRFZX' then Result := Piece(FKeyVariables, U, 1) + else if UpperCase(Index) = 'LRFSAMP' then Result := Piece(FKeyVariables, U, 2) + else if UpperCase(Index) = 'LRFSPEC' then Result := Piece(FKeyVariables, U, 3) + else if UpperCase(Index) = 'LRFDATE' then Result := Piece(FKeyVariables, U, 4) + else if UpperCase(Index) = 'LRFURG' then Result := Piece(FKeyVariables, U, 5) + else if UpperCase(Index) = 'LRFSCH' then Result := Piece(FKeyVariables, U, 6) + else if UpperCase(Index) = 'PSJNOPC' then Result := Piece(FKeyVariables, U, 7) + else if UpperCase(Index) = 'GMRCNOPD' then Result := Piece(FKeyVariables, U, 8) + else if UpperCase(Index) = 'GMRCNOAT' then Result := Piece(FKeyVariables, U, 9) + else if UpperCase(Index) = 'GMRCREAF' then Result := Piece(FKeyVariables, U, 10) + else Result := ''; +end; + +procedure TfrmODBase.SetKeyVariables(const VarStr: string); +begin + FKeyVariables := VarStr; +end; + +procedure TfrmODBase.Validate(var AnErrMsg: string); +const + TX_OR_DISABLED = 'Ordering has been disabled. Press Quit.'; + TX_PAST_START = 'The start date may not be earlier than the present.'; + TX_NO_LOCATION = 'A location must be identified.' + CRLF + + '(Select File | Update Provider/Location)'; + TX_NO_PROVIDER = 'A provider who is authorized to write orders must be indentified.' + CRLF + + '(Select File | Update Provider/Location)'; +var + StartStr,x: string; + StartDt: TFMDateTime; +begin + AnErrMsg := ''; + if User.NoOrdering then AnErrMsg := 'Ordering has been disabled. Press Quit.'; + // take this out if we need to check for earlier start date/times + // should this check be against FMNow?? + StartStr := Piece(Responses.IValueFor('START', 1), '.', 1); + if not IsFMDateTime(StartStr) + then StartDt := StrToFMDateTime(StartStr) + else StartDt := StrToFloat(StartStr); + if (StartDt > 0) and (StartDt < FMToday) + then AnErrMsg := 'The start date may not be earlier than the present.'; + //frmFrame.UpdatePtInfoOnRefresh; + if (not Patient.Inpatient) and (Responses.EventIFN > 0) then x := '' + else + begin + if Encounter.Location = 0 then AnErrMsg := TX_NO_LOCATION; + end; + if (Encounter.Provider = 0) or (PersonHasKey(Encounter.Provider, 'PROVIDER') = False) + then AnErrMsg := TX_NO_PROVIDER; + if IsPFSSActive and Responses.PromptExists('VISITSTR') then + Responses.Update('VISITSTR', 1, Encounter.VisitStr, Encounter.VisitStr); +end; + +{ Form Calls } + +procedure TfrmODBase.FormCreate(Sender: TObject); +begin + inherited; + memOrder.Color := ReadOnlyColor; + FAcceptOK := False; + FAutoAccept := False; + FChanging := False; + FClosing := False; + FFromQuit := False; + FTestMode := False; + FIncludeOIPI := True; + FEvtForPassDischarge := #0; + FCtrlInits := TCtrlInits.Create; + FResponses := TResponses.Create; + FPreserve := TList.Create; + FIsIMO := False; //imo + FIsSupply := False; + {This next bit is mostly for the font size. It also sets the default size of + order forms if it is not in the database. This is handy if a new user wants + to have large fonts. However, in the general case, this will be resized + through rMisc.SetFormPosition.} + if not AutoSizeDisabled then + ResizeFormToFont(self); + DoSetFontSize(MainFontSize); + + imgMessage.Picture.Icon.Handle := LoadIcon(0, IDI_ASTERISK); + //if User.NoOrdering then cmdAccept.Enabled := False; + if uCore.User.NoOrdering then cmdAccept.Enabled := False; + FDlgFormID := OrderFormIDOnCreate; + FEvtID := OrderEventIDOnCreate; + FEvtType := OrderEventTypeOnCreate; + FEvtName := OrderEventNameOnCreate; +end; + +procedure TfrmODBase.FormDestroy(Sender: TObject); +begin + FCtrlInits.Free; + FResponses.Free; + FPreserve.Free; + //DestroyingOrderDialog; + if Assigned(FCallOnExit) then FCallOnExit; + if (Owner <> nil) and (Owner is TWinControl) + then SendMessage(TWinControl(Owner).Handle, UM_DESTROY, FRefNum, 0); + inherited; +end; + +procedure TfrmODBase.FormKeyPress(Sender: TObject; var Key: Char); +{ causes RETURN to be treated as pressing a tab key (need to have user preference) } +begin + inherited; + if (Key = #13) and not (ActiveControl is TCustomMemo) then + begin + Key := #0; + Perform(WM_NEXTDLGCTL, 0, 0); + end; +end; + +{ Accept & Quit Buttons } + +function TfrmODBase.AcceptOrderChecks: Boolean; +{ returns True if order was accepted with order checks, false if order should be cancelled } +var + StartDtTm: string; + OIList: TStringList; +begin + Result := True; + Responses.OrderChecks.Clear; + if not OrderChecksEnabled then Exit; + OIList := TStringList.Create; + try + StatusText('Order Checking...'); + Responses.BuildOCItems(OIList, StartDtTm, FillerID); + OrderChecksOnAccept(Responses.OrderChecks, FillerID, StartDtTm, OIList, DupORIFN); + DupORIFN := ''; + StatusText(''); + Result := AcceptOrderWithChecks(Responses.OrderChecks); + finally + OIList.Free; + end; +end; + +function TfrmODBase.ValidSave: Boolean; +const + TX_NO_SAVE = 'This order cannot be saved for the following reason(s):' + CRLF + CRLF; + TX_NO_SAVE_CAP = 'Unable to Save Order'; + TX_SAVE_ERR = 'Unexpected error - it was not possible to save this order.'; +var + ErrMsg: string; + NewOrder: TOrder; + CanSign, OrderAction: Integer; + //thisSourceOrder: TOrder; +begin + Result := True; + Validate(ErrMsg); + if Length(ErrMsg) > 0 then + begin + InfoBox(TX_NO_SAVE + ErrMsg, TX_NO_SAVE_CAP, MB_OK); + Result := False; + Exit; + end; + if not AcceptOrderChecks then + begin + if AskAnotherOrder(DialogIEN) then + InitDialog // ClearDialogControls is in InitDialog + else + begin + ClearDialogControls; // to allow form to close without prompting to save order + Close; + end; + Result := False; + Exit; + end; + if FTestMode then + begin + Result := False; + Exit; + end; + // LES validation checking for changed lab order + if not LESValidationCheck then Exit; + NewOrder := TOrder.Create; + + Responses.SaveOrder(NewOrder, DialogIEN, FIsIMO); + + if frmOrders.IsDefaultDlg then + begin + frmOrders.EventDefaultOrder := NewOrder.ID; + frmOrders.EvtOrderList.Add(NewOrder.EventPtr + '^' + NewOrder.ID); + frmOrders.IsDefaultDlg := False; + end; + if Length(DfltCopay)>0 then SetDefaultCoPayToNewOrder(NewOrder.ID, DfltCopay); + if (Length(FEvtName)>0) then + begin + NewOrder.EventName := 'Delayed ' + MixedCase(FEvtName); + FEvtName := ''; + end; + if not ProcessOrderAcceptEventHook(NewOrder.ID, NewOrder.DGroup) then + begin + if NewOrder.ID <> '' then + begin + if (Encounter.Provider = User.DUZ) and User.CanSignOrders + then CanSign := CH_SIGN_YES + else CanSign := CH_SIGN_NA; + if NewOrder.Signature = OSS_NOT_REQUIRE then CanSign := CH_SIGN_NA; + Changes.Add(CH_ORD, NewOrder.ID, NewOrder.Text, Responses.FViewName, CanSign); + + UBAGlobals.TargetOrderID := NewOrder.ID; + + if Responses.EditOrder = '' then OrderAction := ORDER_NEW else OrderAction := ORDER_EDIT; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, OrderAction, Integer(NewOrder)); + end + else InfoBox(TX_SAVE_ERR, TX_NO_SAVE_CAP, MB_OK); + end; + NewOrder.Free; // free here - recieving forms should get own copy using assign +end; + +procedure TfrmODBase.cmdAcceptClick(Sender: TObject); +const + TX_CMPTEVT = ' occurred since you started writing delayed orders. ' + + 'The orders that were entered and signed have now been released. ' + + 'Any unsigned orders will be released immediately upon signature. ' + + #13#13 + + 'To write new delayed orders for this event you need to click the write delayed orders button again and select the appropriate event. ' + + 'Orders delayed to this same event will remain delayed until the event occurs again.' + + #13#13 + + 'The Orders tab will now be refreshed and switched to the Active Orders view. ' + + 'If you wish to continue to write active orders for this patient, ' + + 'close this message window and continue as usual.'; +var + theGrpName: string; + alreadyClosed: boolean; +begin + FAcceptOK := False; + CIDCOkToSave := False; + alreadyClosed := False; + self.Responses.Cancel := False; + if frmOrders <> nil then + begin + if (frmOrders.TheCurrentView <> nil) and (frmOrders.TheCurrentView.EventDelay.PtEventIFN>0) and IsCompletedPtEvt(frmOrders.TheCurrentView.EventDelay.PtEventIFN) then + begin + theGrpName := 'Delayed ' + frmOrders.TheCurrentView.EventDelay.EventName; + SaveAsCurrent := True; + end; + end; + if ValidSave then + begin + FAcceptOK := True; + CIDCOkToSave := True; + with Responses do + if not FAutoAccept and (CopyOrder = '') and (EditOrder = '') and (TransferOrder = '') + and AskAnotherOrder(DialogIEN) + then InitDialog // ClearDialogControls is in InitDialog + else + begin + ClearDialogControls; // to allow form to close without prompting to save order + Close; + alreadyClosed := True; + end; + if NoFresh then + begin + if SaveAsCurrent then + begin + SaveAsCurrent := False; + with Responses do + begin + if not alreadyClosed then + begin + ClearDialogControls; + Close; + end; + end; + frmOrders.GroupChangesUpdate(theGrpName); + Exit; + end; + end else + begin + if SaveAsCurrent then + begin + SaveAsCurrent := False; + with Responses do + begin + if not alreadyClosed then + begin + ClearDialogControls; + Close; + end; + end; + frmOrders.GroupChangesUpdate(theGrpName); + //EDONeedRefresh := True; + Exit; + end; + end + end; {if ValidSave} + if SaveAsCurrent then + SaveAsCurrent := False; +end; + +procedure TfrmODBase.cmdQuitClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmODBase.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + // unlock an order that is being edited if accept wasn't pressed + // this unlock is currently done in ActivateOrderDialog + //with Responses do if (Length(EditOrder) > 0) and (not FAcceptOK) then UnlockOrder(EditOrder); + PopKeyVars; + SaveUserBounds(Self); + FClosing := True; + Action := caFree; + (* + if User.NoOrdering then Exit; + if Length(memOrder.Text) > 0 then + if InfoBox(TX_ACCEPT + memOrder.Text, TX_ACCEPT_CAP, MB_YESNO) = ID_YES then + if not ValidSave then + begin + FClosing := False; + Action := caNone; + end; + *) +end; + +procedure TfrmODBase.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + inherited; + //self.Responses.Cancel := False; + if User.NoOrdering then Exit; + if FAbortOrder then exit; + if FOrderAction in [ORDER_EDIT, ORDER_COPY] then Exit; // don't invoke verify dialog + if FOrderAction = ORDER_QUICK then Exit; // should this be here?? + if frmFrame.ContextChanging then + begin + // close any sub-dialogs created by order dialog FIRST!! + exit; + end; + if Length(memOrder.Text) > 0 then + begin + if InfoBox(TX_ACCEPT + memOrder.Text, TX_ACCEPT_CAP, MB_YESNO) = ID_YES + then CanClose := ValidSave + else memOrder.Text := ''; // so don't return False on subsequent CloseQuery + end; +end; + +procedure TfrmODBase.TabClose(var CanClose: Boolean); +begin + inherited; + CanClose := True; + if Length(memOrder.Text) > 0 then + if InfoBox(TX_ACCEPT + memOrder.Text, TX_ACCEPT_CAP, MB_YESNO) = ID_YES then + if not ValidSave then CanClose := False; + if CanClose then InitDialog; +end; + +procedure TfrmODBase.memMessageMouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + inherited; + ShowOrderMessage( False ); +end; + +procedure TfrmODBase.SetDefaultCoPay(AnOrderID: string); +begin + FDfltCopay := GetDefaultCopay(AnOrderID); +end; + +procedure TfrmODBase.DoSetFontSize( FontSize: integer); +begin + if AutoSizeDisabled then + ResizeAnchoredFormToFont( Self ) + else + begin + //You get to resize the window yourself! + Font.Size := FontSize; + memMessage.DefAttributes.Size := FontSize; + end; +end; + +procedure TfrmODBase.SetFontSize( FontSize: integer); +begin + DoSetFontSize( FontSize ); +end; + +function TResponses.GetIENForPrompt(const APromptID: string): Integer; +var + i: Integer; +begin + Result := 0; + with FPrompts do for i := 0 to Count - 1 do with TPrompt(Items[i]) do + if (ID = APromptID) then + begin + Result := IEN; + break; + end; +end; + +procedure TfrmODBase.pnlMessageExit(Sender: TObject); +begin + inherited; + ShowOrderMessage(False); +end; + +procedure TfrmODBase.pnlMessageMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + inherited; + FMessageClickX := X; + FMessageClickY := Y; +end; + +procedure TfrmODBase.pnlMessageMouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + inherited; + if (ssLeft in Shift) then + pnlMessage.SetBounds(pnlMessage.Left + X - FMessageClickX, pnlMessage.Top + Y - FMessageClickY, pnlMessage.Width, pnlMessage.Height); +end; + +function TfrmODBase.LESValidationCheck: boolean; +var + idx: integer; + LESGrpList,LESRejectedReason: TStringList; + IsLESOrder: boolean; + TempMSG,LESODInfo: string; +begin + Result := True; + if Length(Responses.EditOrder)>1 then + begin + LESGrpList := TStringList.Create; + PiecesToList(GetDispGroupForLES,'^',LESGrpList); + IsLESOrder := False; + for idx:=0 to LESGrpList.Count - 1 do + if StrToIntDef(LESGrpList[idx],0) = Responses.DisplayGroup then + begin + IsLESOrder := True; + Break; + end; + if IsLESOrder then + begin + TempMSG := ''; + LESODInfo := Patient.DFN + + '^' + Responses.IValueFor('ORDERABLE',1) + + '^' + IntToStr(Encounter.Location) + + '^' + IntToStr(Encounter.Provider) + + '^' + Responses.IValueFor('START',1); + LESRejectedReason := TStringList.Create; + LESValidationForChangedLabOrder(LESRejectedReason,LESODInfo); + if LESRejectedReason.Count > 0 then + begin + for idx := 0 to LESRejectedReason.Count - 1 do + begin + if Length(LESRejectedReason[idx])>0 then + TempMSG := TempMSG + #13 + LESRejectedReason[idx]; + end; + if Length(TempMSG)>0 then + begin + ShowMessage(TempMSG); + Result := False; + end; + end; + end; + end; +end; + + +end. + diff --git a/CPRS-Chart/Orders/fODChangeEvtDisp.dfm b/CPRS-Chart/Orders/fODChangeEvtDisp.dfm new file mode 100644 index 0000000..64f330f --- /dev/null +++ b/CPRS-Chart/Orders/fODChangeEvtDisp.dfm @@ -0,0 +1,78 @@ +object frmChangeEventDisp: TfrmChangeEventDisp + Left = 344 + Top = 230 + Width = 408 + Height = 444 + Caption = 'Change release event' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poDesktopCenter + PixelsPerInch = 96 + TextHeight = 13 + object lblTop: TMemo + Left = 0 + Top = 0 + Width = 400 + Height = 37 + TabStop = False + Align = alTop + BorderStyle = bsNone + Color = clBtnFace + ReadOnly = True + TabOrder = 2 + end + object pnlTop: TPanel + Left = 0 + Top = 37 + Width = 400 + Height = 339 + Align = alClient + BorderStyle = bsSingle + TabOrder = 0 + object lstCVOrders: TCaptionListBox + Left = 1 + Top = 1 + Width = 394 + Height = 333 + Align = alClient + ItemHeight = 13 + Style = lbOwnerDrawVariable + TabOrder = 0 + OnDrawItem = lstCVOrdersDrawItem + OnMeasureItem = lstCVOrdersMeasureItem + end + end + object pnlBottom: TPanel + Left = 0 + Top = 376 + Width = 400 + Height = 41 + Align = alBottom + TabOrder = 1 + object cmdOK: TButton + Left = 230 + Top = 12 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'OK' + TabOrder = 0 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 314 + Top = 12 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'Cancel' + TabOrder = 1 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fODChangeEvtDisp.pas b/CPRS-Chart/Orders/fODChangeEvtDisp.pas new file mode 100644 index 0000000..585c38b --- /dev/null +++ b/CPRS-Chart/Orders/fODChangeEvtDisp.pas @@ -0,0 +1,111 @@ +unit fODChangeEvtDisp; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ExtCtrls, ORCtrls; + +type + TfrmChangeEventDisp = class(TfrmAutoSz) + lblTop: TMemo; + pnlTop: TPanel; + lstCVOrders: TCaptionListBox; + pnlBottom: TPanel; + cmdOK: TButton; + cmdCancel: TButton; + procedure lstCVOrdersDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure lstCVOrdersMeasureItem(Control: TWinControl; Index: Integer; + var AHeight: Integer); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + private + FOKPressed: boolean; + public + { Public declarations } + end; + +function DispOrdersForEventChange(AnOrderList: TList; ACap: string): boolean; + +implementation + +{$R *.DFM} +uses rOrders; + +function DispOrdersForEventChange(AnOrderList: TList; ACap: string): boolean; +var + frmChangeEventDisp: TfrmChangeEventDisp; + i: integer; + AnOrder: TOrder; +begin + frmChangeEventDisp := TFrmChangeEventDisp.Create(Application); + frmChangeEventDisp.lblTop.Text := ACap; + frmChangeEventDisp.lstCVOrders.Caption := ACap; + for i := 0 to AnOrderList.Count - 1 do + begin + AnOrder := TOrder(AnOrderList[i]); + frmChangeEventDisp.lstCVOrders.Items.Add(AnOrder.Text); + end; + frmChangeEventDisp.ShowModal; + Result := frmChangeEventDisp.FOKPressed; +end; + +procedure TfrmChangeEventDisp.lstCVOrdersDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + x: string; + ARect: TRect; +begin + inherited; + x := ''; + ARect := Rect; + with lstCVOrders do + begin + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + Canvas.MoveTo(0, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + if Index < Items.Count then + begin + x := Items[Index]; + DrawText(Canvas.handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + end; + end; +end; + + +procedure TfrmChangeEventDisp.lstCVOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AHeight: Integer); +var + x:string; + ARect: TRect; +begin + inherited; + AHeight := MainFontHeight + 3; + with lstCVOrders do if Index < Items.Count then + begin + x := Items[index]; + ARect := ItemRect(Index); + AHeight := DrawText(Canvas.Handle, PChar(x), Length(x), ARect, + DT_CALCRECT or DT_LEFT or DT_NOPREFIX or DT_WORDBREAK) + 2; + if AHeight > 255 then AHeight := 255; + if AHeight < 13 then AHeight := 13; + end; +end; + +procedure TfrmChangeEventDisp.cmdOKClick(Sender: TObject); +begin + inherited; + FOKPressed := True; + Close; +end; + +procedure TfrmChangeEventDisp.cmdCancelClick(Sender: TObject); +begin + inherited; + FOKPressed := False; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fODChangeUnreleasedRenew.dfm b/CPRS-Chart/Orders/fODChangeUnreleasedRenew.dfm new file mode 100644 index 0000000..0023a5d --- /dev/null +++ b/CPRS-Chart/Orders/fODChangeUnreleasedRenew.dfm @@ -0,0 +1,150 @@ +object frmODChangeUnreleasedRenew: TfrmODChangeUnreleasedRenew + Left = 240 + Top = 163 + Width = 537 + Height = 198 + Caption = 'Change Unreleased Renewed Order' + 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 Panel2: TPanel + Left = 0 + Top = 57 + Width = 529 + Height = 81 + Align = alClient + TabOrder = 0 + object lblRefill: TLabel + Left = 9 + Top = 15 + Width = 28 + Height = 13 + Caption = 'Refills' + end + object lblPickUp: TLabel + Left = 216 + Top = 15 + Width = 36 + Height = 13 + Caption = 'Pick up' + end + object edtRefill: TCaptionEdit + Left = 8 + Top = 34 + Width = 121 + Height = 21 + TabOrder = 0 + end + object cboPickup: TORComboBox + Left = 216 + Top = 32 + Width = 145 + Height = 21 + Style = orcsDropDown + 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 = 1 + end + end + object Panel3: TPanel + Left = 0 + Top = 57 + Width = 529 + Height = 81 + Align = alClient + TabOrder = 3 + object Label1: TLabel + Left = 61 + Top = 16 + Width = 53 + Height = 13 + Caption = 'Begin Date' + end + object Label2: TLabel + Left = 274 + Top = 17 + Width = 45 + Height = 13 + Caption = 'End Date' + end + object txtStart: TORDateBox + Left = 61 + Top = 39 + Width = 121 + Height = 21 + TabOrder = 0 + DateOnly = False + RequireTime = False + Caption = 'Begin Date' + end + object txtStop: TORDateBox + Left = 274 + Top = 39 + Width = 121 + Height = 21 + TabOrder = 1 + DateOnly = False + RequireTime = False + Caption = 'End Date' + end + end + object memOrder: TCaptionMemo + Left = 0 + Top = 0 + Width = 529 + Height = 57 + Align = alTop + BevelInner = bvLowered + BevelOuter = bvRaised + Color = clBtnFace + Lines.Strings = ( + '') + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 2 + end + object Panel1: TPanel + Left = 0 + Top = 138 + Width = 529 + Height = 32 + Align = alBottom + TabOrder = 1 + object btnOK: TButton + Left = 348 + Top = 7 + Width = 75 + Height = 20 + Caption = 'OK' + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 433 + Top = 7 + Width = 75 + Height = 20 + Caption = 'Cancel' + TabOrder = 1 + OnClick = btnCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fODChangeUnreleasedRenew.pas b/CPRS-Chart/Orders/fODChangeUnreleasedRenew.pas new file mode 100644 index 0000000..72d5290 --- /dev/null +++ b/CPRS-Chart/Orders/fODChangeUnreleasedRenew.pas @@ -0,0 +1,152 @@ +unit fODChangeUnreleasedRenew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, StdCtrls, ORCtrls, fAutoSz, uOrders, ORFn, ORDtTm, rOrders; + +type + TfrmODChangeUnreleasedRenew = class(TFrmAutoSz) + memOrder: TCaptionMemo; + Panel1: TPanel; + btnOK: TButton; + btnCancel: TButton; + Panel2: TPanel; + edtRefill: TCaptionEdit; + lblRefill: TLabel; + lblPickUp: TLabel; + cboPickup: TORComboBox; + Panel3: TPanel; + Label1: TLabel; + Label2: TLabel; + txtStart: TORDateBox; + txtStop: TORDateBox; + procedure FormCreate(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure btnOKClick(Sender: TObject); + private + OKPressed: boolean; + FCategory: integer; + public + { Public declarations } + end; + +procedure ExecuteChangeRenewedOrder(const AnID: string; var param1, param2: string; Category: integer); + +implementation + +{$R *.dfm} +const + TX_ERR_REFILL = 'Refills must be a number from 0 to 11.'; + TC_ERR_REFILL = 'Refills'; + TC_INVALID_DATE = 'Unable to interpret date/time entry.'; + TX_BAD_START = 'The start date is not valid.'; + TX_BAD_STOP = 'The stop date is not valid.'; + TX_STOPSTART = 'The stop date must be after the start date.'; + +procedure ExecuteChangeRenewedOrder(const AnID: string; var param1, param2: string; Category: integer); +var + frmODChangeUnreleasedRenew: TfrmODChangeUnreleasedRenew; + theText: string; + tmpRefills: integer; +begin + tmpRefills := 0; + theText := Trim(RetrieveOrderText(AnID)); + if Pos('>> RENEW', UpperCase(theText)) = 1 then Delete(theText,1,length('>> RENEW')) + else if Pos('RENEW',UpperCase(theText))= 1 then Delete(theText,1,length('RENEW')); + frmODChangeUnreleasedRenew := TfrmODChangeUnreleasedRenew.Create(Application); + try + frmODChangeUnreleasedRenew.FCategory := Category; + ResizeFormToFont(TForm(frmODChangeUnreleasedRenew)); + if Category = 0 then + begin + frmODChangeUnreleasedRenew.Panel3.Visible := False; + tmpRefills := StrToIntDef(param1,0); + frmODChangeUnreleasedRenew.edtRefill.Text := param1; + frmODChangeUnreleasedRenew.cboPickup.SelectByID(param2); + frmODChangeUnreleasedRenew.memOrder.SetTextBuf(PChar(theText)); + end + else if Category = 1 then + begin + frmODChangeUnreleasedRenew.Panel2.Visible := false; + frmODChangeUnreleasedRenew.txtStart.Text := param1; + frmODChangeUnreleasedRenew.txtStop.Text := param2; + frmODChangeUnreleasedRenew.memOrder.SetTextBuf(PChar(theText)); + end; + frmODChangeUnreleasedRenew.ShowModal; + if frmODChangeUnreleasedRenew.OKPressed then + begin + if Category = 0 then + begin + tmpRefills := StrToIntDef(frmODChangeUnreleasedRenew.edtRefill.Text, tmpRefills); + param1 := IntToStr(tmpRefills); + param2 := frmODChangeUnreleasedRenew.cboPickup.ItemID; + end + else if Category = 1 then + begin + param1 := frmODChangeUnreleasedRenew.txtStart.Text; + param2 := frmODChangeUnreleasedRenew.txtStop.Text; + end; + end; + finally + frmODChangeUnreleasedRenew.Release; + end; +end; + +procedure TfrmODChangeUnreleasedRenew.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; + with cboPickup.Items do + begin + Add('W^at Window'); + Add('M^by Mail'); + Add('C^in Clinic'); + end; +end; + +procedure TfrmODChangeUnreleasedRenew.btnCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmODChangeUnreleasedRenew.btnOKClick(Sender: TObject); +var + NumRefills: Integer; + x, ErrMsg: string; +begin + inherited; + if panel2.Visible then + begin + NumRefills := StrToIntDef(edtRefill.Text, -1); + if (NumRefills < 0) or (NumRefills > 11) then + begin + InfoBox(TX_ERR_REFILL, TC_ERR_REFILL, MB_OK); + Exit; + end; + end + else if panel3.Visible then + begin + ErrMsg := ''; + txtStart.Validate(x); + if Length(x) > 0 then ErrMsg := ErrMsg + TX_BAD_START + CRLF; + with txtStop do + begin + Validate(x); + if Length(x) > 0 then ErrMsg := ErrMsg + TX_BAD_STOP + CRLF; + if (Length(Text) > 0) and (FMDateTime <= txtStart.FMDateTime) + then ErrMsg := ErrMsg + TX_STOPSTART; + end; + if Length(ErrMsg) > 0 then + begin + InfoBox(ErrMsg, TC_INVALID_DATE, MB_OK); + Exit; + end; + end; + OKPressed := True; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fODChild.dfm b/CPRS-Chart/Orders/fODChild.dfm new file mode 100644 index 0000000..6f1e575 --- /dev/null +++ b/CPRS-Chart/Orders/fODChild.dfm @@ -0,0 +1,86 @@ +object frmODChild: TfrmODChild + Left = 433 + Top = 271 + Width = 512 + Height = 453 + Caption = 'Associated Complex Orders' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object lblWarning: TLabel + Left = 0 + Top = 0 + Width = 504 + Height = 59 + Align = alTop + AutoSize = False + Caption = + 'You have requested to discontinue a medication order which was e' + + 'ntered as part of a complex order. The following are the orders ' + + 'associated with the same complex order. Do you want to dicsconti' + + 'nue all of these orders?' + WordWrap = True + end + object Panel1: TPanel + Left = 0 + Top = 59 + Width = 504 + Height = 325 + Align = alClient + BevelOuter = bvNone + BorderWidth = 3 + BorderStyle = bsSingle + TabOrder = 0 + object lstODComplex: TListBox + Left = 3 + Top = 3 + Width = 494 + Height = 315 + Style = lbOwnerDrawVariable + Align = alClient + ItemHeight = 16 + TabOrder = 0 + OnDrawItem = lstODComplexDrawItem + OnMeasureItem = lstODComplexMeasureItem + end + end + object Panel2: TPanel + Left = 0 + Top = 384 + Width = 504 + Height = 41 + Align = alBottom + TabOrder = 1 + DesignSize = ( + 504 + 41) + object btnOK: TButton + Left = 332 + Top = 12 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'OK' + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 416 + Top = 12 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'Cancel' + TabOrder = 1 + OnClick = btnCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fODChild.pas b/CPRS-Chart/Orders/fODChild.pas new file mode 100644 index 0000000..10e6c5f --- /dev/null +++ b/CPRS-Chart/Orders/fODChild.pas @@ -0,0 +1,137 @@ +unit fODChild; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, StdCtrls, fAutoSZ, ORFn; + +type + TfrmODChild = class(TfrmAutoSz) + lblWarning: TLabel; + Panel1: TPanel; + lstODComplex: TListBox; + Panel2: TPanel; + btnOK: TButton; + btnCancel: TButton; + procedure FormCreate(Sender: TObject); + procedure lstODComplexDrawItem(Control: TWinControl; Index: Integer; + TheRect: TRect; State: TOwnerDrawState); + procedure lstODComplexMeasureItem(Control: TWinControl; Index: Integer; + var TheHeight: Integer); + procedure btnOKClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + private + { Private declarations } + FCmdOK: boolean; + public + { Public declarations } + end; + +function ActionOnComplexOrder(AnList: TStringList; CaptionTxt: string = ''; ShowCancel: boolean = False): boolean; +implementation + +{$R *.DFM} +function ActionOnComplexOrder(AnList: TStringList; CaptionTxt: string; ShowCancel: boolean): boolean; +var + i: integer; + frmODChild: TfrmODChild; +begin + frmODChild := TfrmODChild.Create(nil); + try + try + ResizeFormToFont(TForm(frmODChild)); + if Length(CaptionTxt)>0 then + frmODChild.lblWarning.Caption := CaptionTxt; + + for i := 0 to AnList.count - 1 do + frmODChild.lstODComplex.Items.Add(AnList[i]); + + if not ShowCancel then + begin + frmODChild.btnOK.Visible := False; + frmODChild.btnCancel.Caption := 'OK'; + end; + + frmODChild.ShowModal; + if frmODChild.FCmdOK then Result := True else Result := False; + except + on e: Exception do + Result := False; + end; + finally + frmODChild.Release; + end; +end; + +procedure TfrmODChild.FormCreate(Sender: TObject); +begin + FCmdOK := False; +end; + +procedure TfrmODChild.lstODComplexDrawItem(Control: TWinControl; + Index: Integer; TheRect: TRect; State: TOwnerDrawState); +var + x: string; + ARect: TRect; + SaveColor: TColor; +begin + inherited; + with lstODComplex do + begin + ARect := TheRect; + ARect.Left := ARect.Left + 2; + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + SaveColor := Canvas.Brush.Color; + Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + if Index < Items.Count then + begin + x := Piece(Items[index],'^',2); + DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + Canvas.Brush.Color := SaveColor; + ARect.Right := ARect.Right + 4; + end; + end; +end; + +procedure TfrmODChild.lstODComplexMeasureItem(Control: TWinControl; + Index: Integer; var TheHeight: Integer); +var + x :string; + tempHeight: integer; + R: TRect; +begin + inherited; + tempHeight := 0; + TheHeight := MainFontHeight + 2; + with lstODComplex do if Index < Items.Count then + begin + R := ItemRect(Index); + R.Left := 0; + R.Right := R.Right - 4; + R.Top := 0; + R.Bottom := 0; + x := Piece(Items[index],'^',2); + TempHeight := WrappedTextHeightByFont(Canvas, Font, x, R); + TempHeight := HigherOf(TempHeight,TheHeight); + if TempHeight > 255 then TempHeight := 255; + if TempHeight < 13 then TempHeight := 13; + end; + TheHeight := TempHeight; +end; + +procedure TfrmODChild.btnOKClick(Sender: TObject); +begin + FCmdOK := True; + Close; +end; + +procedure TfrmODChild.btnCancelClick(Sender: TObject); +begin + FCmdOK := False; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fODDiet.dfm b/CPRS-Chart/Orders/fODDiet.dfm new file mode 100644 index 0000000..24107e8 --- /dev/null +++ b/CPRS-Chart/Orders/fODDiet.dfm @@ -0,0 +1,1022 @@ +inherited frmODDiet: TfrmODDiet + Left = 541 + Top = 398 + Width = 532 + Height = 291 + Caption = 'Diet Order' + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object nbkDiet: TPageControl [0] + Left = 0 + Top = 0 + Width = 524 + Height = 194 + ActivePage = pgeOutPt + Align = alTop + TabIndex = 1 + TabOrder = 4 + TabStop = False + OnChange = nbkDietChange + OnChanging = nbkDietChanging + object pgeDiet: TTabSheet + Caption = 'Diet' + object lblDietAvail: TLabel + Left = 4 + Top = 0 + Width = 127 + Height = 13 + Caption = 'Available Diet Components' + end + object lblDietSelect: TLabel + Left = 200 + Top = 0 + Width = 126 + Height = 13 + Caption = 'Selected Diet Components' + end + object lblComment: TLabel + Left = 200 + Top = 119 + Width = 92 + Height = 13 + Caption = 'Special Instructions' + end + object lblStart: TLabel + Left = 393 + Top = 0 + Width = 96 + Height = 13 + Caption = 'Effective Date/Time' + end + object lblStop: TLabel + Left = 393 + Top = 39 + Width = 100 + Height = 13 + Caption = 'Expiration Date/Time' + end + object lblDelivery: TLabel + Left = 393 + Top = 77 + Width = 38 + Height = 13 + Caption = 'Delivery' + end + object cboDietAvail: TORComboBox + Left = 4 + Top = 14 + Width = 188 + Height = 140 + Style = orcsSimple + AutoSelect = True + Caption = 'Available Diet Components' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnExit = cboDietAvailExit + OnMouseClick = cboDietAvailMouseClick + OnNeedData = cboDietAvailNeedData + CharsNeedMatch = 1 + end + object lstDietSelect: TORListBox + Left = 200 + Top = 14 + Width = 185 + Height = 71 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 1 + Caption = 'Selected Diet Components' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object cmdRemove: TButton + Left = 313 + Top = 85 + Width = 72 + Height = 17 + Caption = 'Remove' + TabOrder = 2 + OnClick = cmdRemoveClick + end + object txtDietComment: TCaptionEdit + Left = 200 + Top = 133 + Width = 308 + Height = 21 + MaxLength = 80 + TabOrder = 3 + OnChange = DietChange + Caption = 'Special Instructions' + end + object calDietStart: TORDateBox + Left = 393 + Top = 14 + Width = 115 + Height = 21 + TabOrder = 4 + Text = 'Now' + OnChange = DietChange + DateOnly = False + RequireTime = False + Caption = 'Effective Date/Time' + end + object calDietStop: TORDateBox + Left = 393 + Top = 52 + Width = 115 + Height = 21 + TabOrder = 5 + OnChange = DietChange + DateOnly = False + RequireTime = False + Caption = 'Expiration Date/Time' + end + object cboDelivery: TORComboBox + Left = 393 + Top = 90 + Width = 115 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Delivery' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 6 + OnChange = DietChange + CharsNeedMatch = 1 + end + object chkCancelTubefeeding: TCheckBox + Left = 393 + Top = 114 + Width = 115 + Height = 17 + Caption = 'Cancel Tubefeeding' + State = cbGrayed + TabOrder = 7 + Visible = False + OnClick = DietChange + end + end + object pgeOutPt: TTabSheet + Caption = 'Outpatient Meals' + object lblOPStart: TLabel + Left = 292 + Top = 1 + Width = 48 + Height = 13 + Caption = 'Start Date' + end + object lblOPStop: TLabel + Left = 292 + Top = 37 + Width = 45 + Height = 13 + Caption = 'End Date' + end + object lblOPDietAvail: TLabel + Left = 0 + Top = 1 + Width = 70 + Height = 13 + Caption = 'Available Diets' + end + object lblOPComment: TLabel + Left = 4 + Top = 128 + Width = 92 + Height = 13 + Caption = 'Special Instructions' + end + object lblOPDelivery: TLabel + Left = 292 + Top = 74 + Width = 38 + Height = 13 + Caption = 'Delivery' + end + object lblOPSelect: TLabel + Left = 0 + Top = 39 + Width = 64 + Height = 13 + Caption = 'Selected Diet' + end + object grpOPMeal: TKeyClickRadioGroup + Left = 168 + Top = 11 + Width = 110 + Height = 107 + Caption = ' Meal ' + ItemIndex = 3 + Items.Strings = ( + 'Breakfast' + 'Lunch' + 'Evening' + '') + TabOrder = 3 + TabStop = True + OnClick = grpOPMealClick + end + object grpOPDoW: TGroupBox + Left = 415 + Top = 5 + Width = 93 + Height = 155 + Caption = 'Days of Week' + TabOrder = 8 + object chkOPMonday: TCheckBox + Left = 8 + Top = 15 + Width = 80 + Height = 17 + Caption = 'Monday' + TabOrder = 0 + OnClick = OPChange + end + object chkOPTuesday: TCheckBox + Left = 8 + Top = 35 + Width = 80 + Height = 17 + Caption = 'Tuesday' + TabOrder = 1 + OnClick = OPChange + end + object chkOPWednesday: TCheckBox + Left = 8 + Top = 54 + Width = 80 + Height = 17 + Caption = 'Wednesday' + TabOrder = 2 + OnClick = OPChange + end + object chkOPThursday: TCheckBox + Left = 8 + Top = 73 + Width = 80 + Height = 17 + Caption = 'Thursday' + TabOrder = 3 + OnClick = OPChange + end + object chkOPFriday: TCheckBox + Left = 8 + Top = 92 + Width = 80 + Height = 17 + Caption = 'Friday' + TabOrder = 4 + OnClick = OPChange + end + object chkOPSaturday: TCheckBox + Left = 8 + Top = 111 + Width = 80 + Height = 17 + Caption = 'Saturday' + TabOrder = 5 + OnClick = OPChange + end + object chkOPSunday: TCheckBox + Left = 8 + Top = 130 + Width = 80 + Height = 17 + Caption = 'Sunday' + TabOrder = 6 + OnClick = OPChange + end + end + object calOPStart: TORDateBox + Left = 292 + Top = 14 + Width = 120 + Height = 21 + TabOrder = 4 + OnChange = calOPStartChange + OnEnter = calOPStartEnter + OnExit = calOPStartExit + DateOnly = True + RequireTime = False + Caption = 'Start Date' + end + object calOPStop: TORDateBox + Left = 292 + Top = 50 + Width = 120 + Height = 21 + TabOrder = 5 + OnChange = calOPStopChange + DateOnly = True + RequireTime = False + Caption = 'End Date' + end + object cboOPDietAvail: TORComboBox + Left = 0 + Top = 16 + Width = 157 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Available Diet Components' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnExit = cboDietAvailExit + OnKeyDown = cboOPDietAvailKeyDown + OnMouseClick = cboOPDietAvailMouseClick + CharsNeedMatch = 1 + end + object txtOPDietComment: TCaptionEdit + Left = 3 + Top = 143 + Width = 404 + Height = 21 + MaxLength = 80 + TabOrder = 11 + OnChange = OPChange + Caption = 'Special Instructions' + end + object cboOPDelivery: TORComboBox + Left = 292 + Top = 86 + Width = 120 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Delivery' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 6 + OnChange = OPChange + CharsNeedMatch = 1 + end + object lstOPDietSelect: TORListBox + Left = 0 + Top = 53 + Width = 156 + Height = 56 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 1 + Caption = 'Selected Diet Components' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + OnChange = OPChange + end + object cmdOPRemove: TButton + Left = 85 + Top = 110 + Width = 72 + Height = 17 + Caption = 'Remove' + TabOrder = 2 + OnClick = cmdOPRemoveClick + end + object chkOPCancelTubefeeding: TCheckBox + Left = 292 + Top = 112 + Width = 115 + Height = 17 + Caption = 'Cancel Tubefeeding' + State = cbGrayed + TabOrder = 7 + Visible = False + OnClick = OPChange + end + end + object pgeTubefeeding: TTabSheet + Caption = 'Tubefeeding' + object lblTFProductList: TLabel + Left = 4 + Top = 0 + Width = 105 + Height = 13 + Caption = 'Tubefeeding Products' + end + object lblTFComment: TLabel + Left = 4 + Top = 119 + Width = 92 + Height = 13 + Caption = 'Special Instructions' + end + object lblTFStrength: TLabel + Left = 288 + Top = 0 + Width = 40 + Height = 13 + Caption = 'Strength' + end + object lblTFQuantity: TLabel + Left = 352 + Top = 0 + Width = 39 + Height = 13 + Caption = 'Quantity' + end + object lblTFProduct: TLabel + Left = 152 + Top = 0 + Width = 37 + Height = 13 + Caption = 'Product' + end + object lblTFAmount: TLabel + Left = 428 + Top = 0 + Width = 36 + Height = 13 + Caption = 'Amount' + end + object lblOPTFStart: TLabel + Left = 341 + Top = 90 + Width = 51 + Height = 13 + Caption = 'Start Date:' + end + object cboProduct: TORComboBox + Left = 4 + Top = 14 + Width = 140 + Height = 97 + Style = orcsSimple + AutoSelect = True + Caption = 'Tubefeeding Products' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnExit = cboProductExit + OnMouseClick = cboProductMouseClick + CharsNeedMatch = 1 + end + object txtTFComment: TCaptionEdit + Left = 6 + Top = 133 + Width = 504 + Height = 21 + MaxLength = 240 + TabOrder = 8 + OnChange = TFChange + Caption = 'Special Instructions' + end + object grdSelected: TCaptionStringGrid + Left = 152 + Top = 14 + Width = 356 + Height = 63 + ColCount = 4 + DefaultColWidth = 88 + DefaultRowHeight = 19 + FixedCols = 0 + RowCount = 1 + FixedRows = 0 + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected] + ScrollBars = ssVertical + TabOrder = 1 + OnDrawCell = grdSelectedDrawCell + OnSelectCell = grdSelectedSelectCell + Caption = 'Selected Products' + end + object cmdTFRemove: TButton + Left = 436 + Top = 77 + Width = 72 + Height = 17 + Caption = 'Remove' + TabOrder = 4 + OnClick = cmdTFRemoveClick + end + object chkCancelTrays: TCheckBox + Left = 152 + Top = 96 + Width = 153 + Height = 17 + Caption = 'Cancel Future TRAY Orders' + TabOrder = 5 + OnClick = TFChange + end + object txtQuantity: TCaptionEdit + Tag = -1 + Left = 151 + Top = 124 + Width = 93 + Height = 19 + Hint = + 'Enter quantity as 2000 K, 100 ML/HOUR, 8 OZ/TID, etc; total quan' + + 'tity may not exceed 5000ml.' + Ctl3D = False + ParentCtl3D = False + ParentShowHint = False + ShowHint = True + TabOrder = 3 + Visible = False + OnChange = txtQuantityChange + OnEnter = txtQuantityEnter + OnExit = txtQuantityExit + OnKeyDown = txtQuantityKeyDown + Caption = 'Quantity' + end + object cboStrength: TCaptionComboBox + Tag = -1 + Left = 252 + Top = 124 + Width = 53 + Height = 21 + Style = csDropDownList + Ctl3D = False + ItemHeight = 13 + ParentCtl3D = False + TabOrder = 2 + Visible = False + OnChange = cboStrengthChange + OnEnter = cboStrengthEnter + OnExit = cboStrengthExit + OnKeyDown = cboStrengthKeyDown + Items.Strings = ( + '1/4' + '1/2' + '3/4' + 'FULL') + Caption = 'Strength' + end + object calOPTFStart: TORDateBox + Left = 341 + Top = 104 + Width = 169 + Height = 21 + TabStop = False + TabOrder = 7 + Visible = False + OnChange = TFChange + DateOnly = False + RequireTime = False + Caption = 'Start Date:' + end + object cboOPTFRecurringMeals: TORComboBox + Left = 342 + Top = 105 + Width = 160 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2,3' + Sorted = False + SynonymChars = '<>' + TabPositions = '12' + TabOrder = 6 + TabStop = True + OnChange = TFChange + CharsNeedMatch = 1 + end + end + object pgeEarlyLate: TTabSheet + Caption = 'Early / Late Tray' + object lblELStart: TLabel + Left = 287 + Top = 2 + Width = 48 + Height = 13 + Caption = 'Start Date' + end + object lblELStop: TLabel + Left = 287 + Top = 46 + Width = 45 + Height = 13 + Caption = 'End Date' + end + object grpMeal: TKeyClickRadioGroup + Left = 4 + Top = 2 + Width = 106 + Height = 93 + Caption = ' Meal ' + ItemIndex = 3 + Items.Strings = ( + 'Breakfast' + 'Lunch' + 'Evening' + '') + TabOrder = 0 + TabStop = True + OnClick = grpMealClick + end + object grpMealTime: TGroupBox + Left = 114 + Top = 4 + Width = 161 + Height = 93 + Caption = ' Meal Times ' + TabOrder = 1 + object lblNoTimes: TLabel + Left = 29 + Top = 44 + Width = 96 + Height = 13 + Caption = 'No meal times listed.' + Visible = False + end + object radET1: TRadioButton + Left = 8 + Top = 18 + Width = 56 + Height = 17 + TabOrder = 0 + Visible = False + OnClick = ELChange + end + object radET2: TRadioButton + Left = 8 + Top = 43 + Width = 56 + Height = 17 + TabOrder = 1 + Visible = False + OnClick = ELChange + end + object radET3: TRadioButton + Left = 8 + Top = 68 + Width = 56 + Height = 17 + TabOrder = 2 + Visible = False + OnClick = ELChange + end + object radLT1: TRadioButton + Left = 92 + Top = 18 + Width = 56 + Height = 17 + TabOrder = 3 + Visible = False + OnClick = ELChange + end + object radLT2: TRadioButton + Left = 92 + Top = 43 + Width = 56 + Height = 17 + TabOrder = 4 + Visible = False + OnClick = ELChange + end + object radLT3: TRadioButton + Left = 92 + Top = 68 + Width = 56 + Height = 17 + TabOrder = 5 + Visible = False + OnClick = ELChange + end + end + object calELStart: TORDateBox + Left = 287 + Top = 15 + Width = 120 + Height = 21 + TabOrder = 2 + OnChange = calELStartChange + OnEnter = calELStartEnter + OnExit = calELStartExit + DateOnly = True + RequireTime = False + Caption = 'Start Date' + end + object calELStop: TORDateBox + Left = 287 + Top = 60 + Width = 120 + Height = 21 + TabOrder = 4 + OnChange = calELStopChange + DateOnly = True + RequireTime = False + Caption = 'End Date' + end + object grpDoW: TGroupBox + Left = 415 + Top = 2 + Width = 93 + Height = 152 + Caption = 'Days of Week' + TabOrder = 5 + object chkMonday: TCheckBox + Left = 8 + Top = 16 + Width = 80 + Height = 17 + Caption = 'Monday' + TabOrder = 0 + OnClick = ELChange + end + object chkTuesday: TCheckBox + Left = 8 + Top = 35 + Width = 80 + Height = 17 + Caption = 'Tuesday' + TabOrder = 1 + OnClick = ELChange + end + object chkWednesday: TCheckBox + Left = 8 + Top = 54 + Width = 80 + Height = 17 + Caption = 'Wednesday' + TabOrder = 2 + OnClick = ELChange + end + object chkThursday: TCheckBox + Left = 8 + Top = 73 + Width = 80 + Height = 17 + Caption = 'Thursday' + TabOrder = 3 + OnClick = ELChange + end + object chkFriday: TCheckBox + Left = 8 + Top = 92 + Width = 80 + Height = 17 + Caption = 'Friday' + TabOrder = 4 + OnClick = ELChange + end + object chkSaturday: TCheckBox + Left = 8 + Top = 111 + Width = 80 + Height = 17 + Caption = 'Saturday' + TabOrder = 5 + OnClick = ELChange + end + object chkSunday: TCheckBox + Left = 9 + Top = 130 + Width = 80 + Height = 17 + Caption = 'Sunday' + TabOrder = 6 + OnClick = ELChange + end + end + object chkBagged: TCheckBox + Left = 4 + Top = 120 + Width = 85 + Height = 17 + Caption = 'Bagged Meal' + TabOrder = 6 + OnClick = ELChange + end + object cboOPELRecurringMeals: TORComboBox + Left = 287 + Top = 15 + Width = 121 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2,3' + Sorted = False + SynonymChars = '<>' + TabPositions = '12' + TabOrder = 3 + TabStop = True + OnChange = ELChange + CharsNeedMatch = 1 + end + end + object pgeIsolations: TTabSheet + Caption = 'Isolations / Precautions' + object lblIsolation: TLabel + Left = 4 + Top = 0 + Width = 123 + Height = 13 + Caption = 'Select Type of Precaution' + end + object lblIPComment: TLabel + Left = 4 + Top = 119 + Width = 54 + Height = 13 + Caption = 'Instructions' + end + object lblIPCurrent: TLabel + Left = 224 + Top = 0 + Width = 76 + Height = 13 + Caption = 'Current Isolation' + end + object lstIsolation: TORListBox + Left = 4 + Top = 14 + Width = 212 + Height = 97 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + Caption = 'Select Type of Precaution' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + OnChange = IPChange + end + object txtIPComment: TCaptionEdit + Left = 4 + Top = 133 + Width = 504 + Height = 21 + MaxLength = 240 + TabOrder = 2 + OnChange = IPChange + Caption = 'Instructions' + end + object txtIPCurrent: TCaptionEdit + Left = 224 + Top = 14 + Width = 212 + Height = 21 + Color = clBtnFace + ReadOnly = True + TabOrder = 1 + Text = '' + Caption = 'Current Isolation' + end + end + object pgeAdditional: TTabSheet + Caption = 'Additional Order' + object lblAddlOrder: TLabel + Left = 4 + Top = 24 + Width = 125 + Height = 13 + Caption = 'Enter Additional Diet Order' + end + object lblOPAOStart: TLabel + Left = 6 + Top = 72 + Width = 51 + Height = 13 + Caption = 'Start Date:' + end + object txtAOComment: TCaptionEdit + Left = 4 + Top = 38 + Width = 504 + Height = 21 + MaxLength = 80 + TabOrder = 1 + OnChange = AOChange + Caption = 'Enter Additional Diet Order' + end + object calOPAOStart: TORDateBox + Left = 54 + Top = 88 + Width = 169 + Height = 21 + TabStop = False + TabOrder = 4 + Visible = False + OnChange = AOChange + DateOnly = False + RequireTime = False + Caption = 'Start Date:' + end + object cboOPAORecurringMeals: TORComboBox + Left = 6 + Top = 88 + Width = 168 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2,3' + Sorted = False + SynonymChars = '<>' + TabPositions = '12' + TabOrder = 2 + TabStop = True + OnChange = AOChange + CharsNeedMatch = 1 + end + end + end + inherited memOrder: TCaptionMemo + Top = 208 + end + inherited cmdAccept: TButton + Left = 445 + Top = 208 + TabOrder = 2 + end + inherited cmdQuit: TButton + Left = 445 + Top = 235 + TabOrder = 3 + end + inherited pnlMessage: TPanel + Top = 197 + Height = 57 + TabOrder = 1 + inherited imgMessage: TImage + Top = 10 + end + inherited memMessage: TRichEdit + Height = 45 + end + end +end diff --git a/CPRS-Chart/Orders/fODDiet.pas b/CPRS-Chart/Orders/fODDiet.pas new file mode 100644 index 0000000..a482f22 --- /dev/null +++ b/CPRS-Chart/Orders/fODDiet.pas @@ -0,0 +1,2255 @@ +unit fODDiet; +{$O-} +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, ComCtrls, ExtCtrls, StdCtrls, Grids, ORCtrls, ORDtTm, ORFn, uConst; + +type + TfrmODDiet = class(TfrmODBase) + nbkDiet: TPageControl; + pgeDiet: TTabSheet; + lblDietAvail: TLabel; + lblDietSelect: TLabel; + lblComment: TLabel; + lblStart: TLabel; + lblStop: TLabel; + lblDelivery: TLabel; + cboDietAvail: TORComboBox; + lstDietSelect: TORListBox; + cmdRemove: TButton; + txtDietComment: TCaptionEdit; + calDietStart: TORDateBox; + calDietStop: TORDateBox; + cboDelivery: TORComboBox; + pgeTubefeeding: TTabSheet; + lblTFProductList: TLabel; + lblTFComment: TLabel; + lblTFStrength: TLabel; + lblTFQuantity: TLabel; + lblTFProduct: TLabel; + cboProduct: TORComboBox; + txtTFComment: TCaptionEdit; + grdSelected: TCaptionStringGrid; + cmdTFRemove: TButton; + pgeEarlyLate: TTabSheet; + pgeIsolations: TTabSheet; + pgeAdditional: TTabSheet; + chkCancelTubefeeding: TCheckBox; + chkCancelTrays: TCheckBox; + txtQuantity: TCaptionEdit; + cboStrength: TCaptionComboBox; + lblTFAmount: TLabel; + grpMeal: TKeyClickRadioGroup; + grpMealTime: TGroupBox; + lblELStart: TLabel; + calELStart: TORDateBox; + lblELStop: TLabel; + calELStop: TORDateBox; + grpDoW: TGroupBox; + chkMonday: TCheckBox; + chkTuesday: TCheckBox; + chkWednesday: TCheckBox; + chkThursday: TCheckBox; + chkFriday: TCheckBox; + chkSaturday: TCheckBox; + chkSunday: TCheckBox; + chkBagged: TCheckBox; + radET1: TRadioButton; + radET2: TRadioButton; + radET3: TRadioButton; + radLT1: TRadioButton; + radLT2: TRadioButton; + radLT3: TRadioButton; + lblNoTimes: TLabel; + txtAOComment: TCaptionEdit; + lblAddlOrder: TLabel; + lstIsolation: TORListBox; + lblIsolation: TLabel; + lblIPComment: TLabel; + txtIPComment: TCaptionEdit; + lblIPCurrent: TLabel; + txtIPCurrent: TCaptionEdit; + pgeOutPt: TTabSheet; + grpOPMeal: TKeyClickRadioGroup; + grpOPDoW: TGroupBox; + chkOPMonday: TCheckBox; + chkOPTuesday: TCheckBox; + chkOPWednesday: TCheckBox; + chkOPThursday: TCheckBox; + chkOPFriday: TCheckBox; + chkOPSaturday: TCheckBox; + chkOPSunday: TCheckBox; + lblOPStart: TLabel; + calOPStart: TORDateBox; + lblOPStop: TLabel; + calOPStop: TORDateBox; + lblOPDietAvail: TLabel; + cboOPDietAvail: TORComboBox; + lblOPComment: TLabel; + txtOPDietComment: TCaptionEdit; + lblOPDelivery: TLabel; + cboOPDelivery: TORComboBox; + lblOPSelect: TLabel; + lstOPDietSelect: TORListBox; + cmdOPRemove: TButton; + chkOPCancelTubefeeding: TCheckBox; + calOPTFStart: TORDateBox; + lblOPTFStart: TLabel; + lblOPAOStart: TLabel; + calOPAOStart: TORDateBox; + cboOPAORecurringMeals: TORComboBox; + cboOPTFRecurringMeals: TORComboBox; + cboOPELRecurringMeals: TORComboBox; + procedure nbkDietChanging(Sender: TObject; + var AllowChange: Boolean); + procedure nbkDietChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cboDietAvailNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + procedure cboDietAvailMouseClick(Sender: TObject); + procedure cboDietAvailExit(Sender: TObject); + procedure cmdRemoveClick(Sender: TObject); + procedure DietChange(Sender: TObject); + procedure cmdAcceptClick(Sender: TObject); + procedure cboProductMouseClick(Sender: TObject); + procedure cboProductExit(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure grdSelectedSelectCell(Sender: TObject; Col, Row: Integer; + var CanSelect: Boolean); + procedure txtQuantityChange(Sender: TObject); + procedure txtQuantityExit(Sender: TObject); + procedure cboStrengthChange(Sender: TObject); + procedure cboStrengthExit(Sender: TObject); + procedure TFChange(Sender: TObject); + procedure cmdTFRemoveClick(Sender: TObject); + procedure grdSelectedDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; + State: TGridDrawState); + procedure cboStrengthKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure cboStrengthEnter(Sender: TObject); + procedure txtQuantityKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure txtQuantityEnter(Sender: TObject); + procedure grpMealClick(Sender: TObject); + procedure calELStartExit(Sender: TObject); + procedure calELStopChange(Sender: TObject); + procedure ELChange(Sender: TObject); + procedure calELStartEnter(Sender: TObject); + procedure calELStartChange(Sender: TObject); + procedure IPChange(Sender: TObject); + procedure AOChange(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure cboOPDietAvailMouseClick(Sender: TObject); + procedure cboOPDietAvailExit(Sender: TObject); + procedure calOPStartExit(Sender: TObject); + procedure calOPStopChange(Sender: TObject); + procedure calOPStartEnter(Sender: TObject); + procedure calOPStartChange(Sender: TObject); + procedure OPChange(Sender: TObject); + procedure grpOPMealClick(Sender: TObject); + procedure cmdOPRemoveClick(Sender: TObject); + procedure cboOPDietAvailKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + FNextCol: Integer; + FNextRow: Integer; + FChangeStop: Boolean; + FIsolationID: string; + FTabChanging: Boolean; + procedure DietCheckForNPO; + procedure DietCheckForTF; + function GetMealTime: string; + function GetDaysOfWeek: string; + function IsEarlyTray: Boolean; + procedure ResetControlsDO; + procedure ResetControlsTF; + procedure ResetControlsEL; + procedure ResetControlsIP; + procedure ResetControlsAO; + procedure SetEnableDOW(AllowUse: Boolean); + procedure SetNextCell(ACol, ARow: Integer); + procedure SetValuesFromResponsesDO; + procedure SetValuesFromResponsesTF; + procedure SetValuesFromResponsesEL; + procedure SetValuesFromResponsesIP; + procedure SetValuesFromResponsesAO; + procedure TFMoveToNextCell; + procedure TFClearGrid; + procedure TFSetAmountForRow(ARow: Integer); + function TFStrengthCode(const x: string): Integer; + // Outpatient meal additions + function FMDOW(AnFMDate: TFMDateTime): integer; + function FMDays(AStart, AEnd: TFMDateTime): string; + function GetOPDaysOfWeek: string; + procedure SetEnableOPDOW(AllowUse: Boolean; OneTimeDay: integer; DaysToCheck: string = ''); + procedure ResetControlsOP; + procedure SetValuesFromResponsesOP; + function GetOPMealWindow: string; + procedure OPDietCheckForNPO; + procedure OPDietCheckForTF; + function PatientHasRecurringMeals(var MealList: TStringList; MealType: string = ''): boolean; + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + end; + +var + frmODDiet: TfrmODDiet; + uDialogName: string; + uFHAUTH: boolean; + uRecurringMealList: TStringList; + +implementation + +{$R *.DFM} + +uses uCore, rODBase, rODDiet, rCore, rOrders, fODDietLT, uAccessibleStringGrid, DateUtils; + +const + TX_DIET_REG = 'A regular diet may not be combined with other diets.'; + TX_DIET_NPO = 'NPO may not be combined with other diets.'; + TX_DIET_LIM = 'A maximum of 5 diet modifications may be selected.'; + TX_DIET_DUP = 'This diet has already been selected.'; + TX_DIET_PRC = 'This diet conflicts with '; + TC_DIET_ERR = 'Unable to Add Diet'; + TX_INPT_ONLY = 'This type of diet may be entered for inpatients only.'; + TC_INPT_ONLY = 'Ordering Restriction'; + TX_CANCEL_TF = 'Cancel the current tubefeeding order?' + CRLF + CRLF; + TC_CANCEL_TF = 'Cancel Tubefeeding'; + TX_NO_DIET = 'At least one diet must be selected.'; + TX_BAD_START = 'The effective date is not valid.'; + TX_BAD_STOP = 'The expiration date is not valid.'; + TX_STOPSTART = 'The expiration date must be after the effective date.'; + TX_MINMAX = 'At least 1 product must be selected (maximum: 5).'; + TX_TFQTY = 'A quantity must be entered for '; + TX_TFAMT = 'The quantity is invalid for '; + TX_TF5000 = 'The total quantity ordered may not exceed 5000ml.'; + TX_HLPQTY = CRLF + 'The following may be entered for quantity:' + CRLF + + ' Units may be K for Kcals, C for cc''s, M for ml, O for oz. or U for units (e.g. cans).' + CRLF + + ' Frequency may be DAY, HOUR, QD, QH, BID, TID, QID, Q2H, Q3H, Q4H, or Q6H.' + CRLF + + ' May also input 100CC/HR X 16 for 16 hours. Valid quantity for powder form' + CRLF + + ' product can be "# GRAMS" as 20 G, GRAMS, or GMS, or as 1 PKG or 1 U and the' + CRLF + + ' frequency (e.g. 20 GRAMS/DAY or 1 PKG/TID).'; + TX_ELMEAL = 'A meal must be selected.'; + TX_ELTIME = 'A meal time must be selected.'; + TX_ELNOSTART = 'A valid start date must be entered.'; + TX_ELNOSTOP = 'A valid end date must be entered.'; + TX_ELSTARTLT = 'The start date may not be earlier than today.'; + TX_ELSTOPLT = 'The end date may not be earlier than today.'; + TX_ELSTOPSTART = 'The end date may not be earlier than the start date.'; + TX_ELSTART30 = 'The start date may not be more than 30 days in the future.'; + TX_ELSTOP30 = 'The end date may not be more than 30 days in the future.'; + TX_ELDOW = 'The days of the week must be selected for time ranges greater than 1 day.'; + TX_ELPAST = 'The selected meal time has already passed.'; + TX_IPNONE = 'An isolation type must be selected.'; + TX_AONONE = 'Text for additional order has not been entered.'; + TX_ACCEPT = 'Accept the following order?' + CRLF + CRLF; + TX_CONTINUE = 'Continue editing the following order?' + CRLF + CRLF; + TX_DISCARD = CRLF + CRLF + 'Answering NO will discard all changes.'; + TC_ACCEPT = 'Unsaved Order'; + TX_EL_SAVE_ERR = 'An error occurred while saving this late tray order.'; + TC_EL_SAVE_ERR = 'Error Saving Late Tray Order'; + // Outpatient meal additions + TX_OPMEAL = 'A meal must be selected.'; + TX_OPNOSTART = 'A valid start date must be entered.'; + TX_OPNOSTOP = 'A valid end date must be entered.'; + TX_OPSTARTLT = 'The start date may not be earlier than today.'; + TX_OPSTOPLT = 'The end date may not be earlier than today.'; + TX_OPSTOPSTART = 'The end date may not be earlier than the start date.'; + TX_OPSTART_MAX1 = 'The start date may not be more than '; + TX_OPSTART_MAX2 = ' days in the future.'; + TX_OPSTOP_MAX1 = 'The end date may not be more than '; + TX_OPSTOP_MAX2 = ' days in the future.'; + TX_OPDOW = 'The days of the week must be selected for time ranges greater than 1 day.'; + TX_OPPAST = 'The selected meal time has already passed.'; + TX_OP_SAVE_ERR = 'An error occurred while saving this outpatient meal order.'; + TC_OP_SAVE_ERR = 'Error Saving Outpatient Meal Order'; + TX_OP_NO_DIET = 'One and only one diet must be selected.'; + TX_OP_BAD_START = 'The effective date is not valid.'; + TX_OP_BAD_STOP = 'The expiration date is not valid.'; + //TX_OP_DIET_REG = 'A regular diet may not be combined with other diets.'; + //TX_OP_DIET_NPO = 'NPO may not be combined with other diets.'; + //TX_OP_DIET_LIM = 'A maximum of 1 diet may be selected.'; + //TX_OP_DIET_DUP = 'This diet has already been selected.'; + //TX_OP_DIET_PRC = 'This diet conflicts with '; + TC_OP_DIET_ERR = 'Unable to Add Diet'; + TX_OUTPT_ONLY = 'This type of diet may be entered for outpatients only.'; + TC_OUTPT_ONLY = 'Ordering Restriction'; + TX_NO_PARAMS = 'Placing Early or Late tray orders is not allowed until the IRM diet package' + CRLF + + 'coordinator enters times for E/L trays for this location.'; + TC_NO_PARAMS = 'Unable to Order Early/Late Tray'; + TX_NOSTART = 'A valid start date must be entered.'; + TC_NOSTART = 'Start date required'; + TX_NOT_THIS_LOC = 'This location has not been configured to' + CRLF + + 'allow ordering of meals for outpatients.' + CRLF + CRLF + + 'Please contact your IRM diet package coordinator.'; + TC_NOT_THIS_LOC = 'Unable to order from this location'; + TX_NO_OUTPT_ORDERS = 'Diet orders may only be entered for inpatients.'; + TC_NO_OUTPT_ORDERS = 'Ordering Restriction'; + TX_NO_MEALS_DEFINED = 'No diet types have been defined to be orderable for outpatients.' + CRLF + CRLF + + 'Please contact your IRM diet package coordinator.'; + TC_NO_MEALS_DEFINED = 'Unable to order outpatient meals'; + + FMDayLetters: array[1..7] of string[1] = ('M', 'T', 'W', 'R', 'F', 'S', 'X'); + +type + TTFProduct = class + private + IEN: Integer; + Name: string; + end; + +var + uDietParams: TDietParams; + +procedure TfrmODDiet.FormCreate(Sender: TObject); +var + ALocation: string; //ptr to #44 hospital location +begin + inherited; + AbortOrder := False; + uRecurringMealList := TStringList.Create; + if OrderForInpatient then + begin + pgeDiet.TabVisible := True; + pgeOutPt.TabVisible := False; + end + else if OutpatientPatchInstalled then // put here to only call RPCs if outpatient - remove "IF" later + begin + pgeDiet.TabVisible := False; + pgeOutPt.TabVisible := True; + end + else // this block will go away after FH patch installed everywhere + begin + InfoBox(TX_NO_OUTPT_ORDERS, TC_NO_OUTPT_ORDERS, MB_OK); + AbortOrder := True; + Exit; + end; + + FillerID := 'FH'; // does 'on Display' order check **KCM** + ALocation := '0'; + if Self.EvtID > 0 then + ALocation := GetEventLoc1(IntToStr(Self.EvtID)); + if StrToIntDef(ALocation, 0) < 1 then + ALocation := IntToStr(Encounter.Location); + if (not OrderForInpatient) and OutpatientPatchInstalled and (not OutpatientLocationConfigured(ALocation)) then + begin + InfoBox(TX_NOT_THIS_LOC, TC_NOT_THIS_LOC, MB_OK or MB_ICONINFORMATION); + AbortOrder := True; + end + else + begin + LoadDietParams(uDietParams, ALocation); + if pgeOutPt.TabVisible then + with uDietParams, cboOPDelivery do + begin + if Tray then Items.Add('T^Tray'); + if Cafeteria then Items.Add('C^Cafeteria'); + if DiningRm then Items.Add('D^Dining Room'); + ItemIndex := 0; + chkBagged.Visible := uDietParams.Bagged; + end + else + with uDietParams, cboDelivery do + begin + if Tray then Items.Add('T^Tray'); + if Cafeteria then Items.Add('C^Cafeteria'); + if DiningRm then Items.Add('D^Dining Room'); + ItemIndex := 0; + chkBagged.Visible := uDietParams.Bagged; + end; + end; + TAccessibleStringGrid.WrapControl(grdSelected); +end; + +procedure TfrmODDiet.FormDestroy(Sender: TObject); +begin + TAccessibleStringGrid.UnwrapControl(grdSelected); + TFClearGrid; + uRecurringMealList.Free; + inherited; +end; + +procedure TfrmODDiet.FormResize(Sender: TObject); +begin + inherited; + with grdSelected do + begin + ColWidths[1] := Canvas.TextWidth('XFULLX') + GetSystemMetrics(SM_CXVSCROLL); + ColWidths[2] := Canvas.TextWidth('100 GRAMS/HOUR X 24'); + ColWidths[3] := Canvas.TextWidth('55000ml'); + ColWidths[0] := ClientWidth - ColWidths[1] - ColWidths[2] - ColWidths[3] - 3; + lblTFStrength.Left := Left + ColWidths[0] + 3; + lblTFQuantity.Left := Left + ColWidths[0] + ColWidths[1] + 5; + lblTFAmount.Left := Left + ColWidths[0] + ColWidths[1] + ColWidths[2] + 7; + end; +end; + +procedure TfrmODDiet.InitDialog; +begin + inherited; + // handle all initialization at the tab level + // if FTabChanging, then nbkDietChange is about to be called anyway + if not FTabChanging then nbkDietChange(Self); +end; + +procedure TfrmODDiet.SetupDialog(OrderAction: Integer; const ID: string); +begin + if AbortOrder then exit; + inherited; + uDialogName := ExternalName(DialogIEN, 101.41); + case DietDialogType(DisplayGroup) of + 'D': begin + if not OrderForInpatient then + begin + InfoBox(TX_INPT_ONLY, TC_INPT_ONLY, MB_OK); + Close; + Exit; + end; + pgeDiet.TabVisible := True; + pgeOutPt.TabVisible := False; + nbkDiet.ActivePage := pgeDiet; + nbkDietChange(Self); + if OrderAction <> ORDER_NEW then SetValuesFromResponsesDO; + end; + 'N': begin + if not OrderForInpatient then + begin + InfoBox(TX_INPT_ONLY, TC_INPT_ONLY, MB_OK); + Close; + Exit; + end; + nbkDiet.ActivePage := pgeDiet; + nbkDietChange(Self); + if OrderAction <> ORDER_NEW then SetValuesFromResponsesDO; + end; + 'T': begin + if (not OrderForInpatient) and (not PatientHasRecurringMeals(uRecurringMealList)) then + begin + Close; + Exit; + end; + nbkDiet.ActivePage := pgeTubefeeding; + nbkDietChange(Self); + if OrderAction <> ORDER_NEW then SetValuesFromResponsesTF; + end; + 'E': begin + if (not OrderForInpatient) and (not PatientHasRecurringMeals(uRecurringMealList)) then + begin + Close; + Exit; + end; + nbkDiet.ActivePage := pgeEarlyLate; + nbkDietChange(Self); + if OrderAction <> ORDER_NEW then SetValuesFromResponsesEL; + end; + 'P': begin + nbkDiet.ActivePage := pgeIsolations; + nbkDietChange(Self); + if OrderAction <> ORDER_NEW then SetValuesFromResponsesIP; + end; + 'A': begin + if (not OrderForInpatient) and (not PatientHasRecurringMeals(uRecurringMealList)) then + begin + Close; + Exit; + end; + nbkDiet.ActivePage := pgeAdditional; + nbkDietChange(Self); + if OrderAction <> ORDER_NEW then SetValuesFromResponsesAO; + end; + 'M': begin + if OrderForInpatient then + begin + InfoBox(TX_OUTPT_ONLY, TC_OUTPT_ONLY, MB_OK); + Close; + Exit; + end; + uFHAUTH := UserHasFHAUTHKey; // is this really needed for other than printing? + pgeDiet.TabVisible := False; + pgeOutPt.TabVisible := True; + nbkDiet.ActivePage := pgeOutPt; + nbkDietChange(Self); + if OrderAction <> ORDER_NEW then SetValuesFromResponsesOP; + end + else + begin + if not OrderForInpatient then + begin + InfoBox(TX_INPT_ONLY, TC_INPT_ONLY, MB_OK); + Close; + Exit; + end; + pgeDiet.TabVisible := True; + pgeOutPt.TabVisible := False; + nbkDiet.ActivePage := pgeDiet; + nbkDietChange(Self); + if OrderAction <> ORDER_NEW then SetValuesFromResponsesDO; + ActiveControl := cboOPDietAvail; + end; + end; + if OrderAction = ORDER_NEW then SetFocusedControl(nbkDiet); +end; + +procedure TfrmODDiet.Validate(var AnErrMsg: string); +var + ErrMsg: string; + i, Sum: Integer; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + + function MealTimePassed: Boolean; + var + x: string; + ATime: Integer; + begin + Result := False; + if calELStart.FMDateTime <> FMToday then Exit; + x := GetMealTime; + if Pos(':', x) = 0 then Exit; + ATime := StrToIntDef(Piece(x, ':', 1) + Copy(Piece(x, ':', 2), 1, 2), 0); + if (Pos('P', x) > 0) and (ATime < 1200) then ATime := ATime + 1200; + if (Pos('A', x) > 0) and (ATime > 1200) then ATime := ATime - 1200; + if (ATime / 10000) < Frac(FMNow) then Result := True; + end; + + function OPMealTimePassed: Boolean; + var + WindowTimes: string; + EndWindow: integer; + x: extended; + begin + Result := False; + if calOPStart.FMDateTime <> FMToday then Exit; + WindowTimes := GetOPMealWindow; + if WindowTimes = U then exit; + EndWindow := StrToIntDef(Piece(WindowTimes, U, 2), 0); + x := Frac(calOPStart.FMDateTime); + if x = 0 then x := Frac(FMNow) * 10000; + if x > EndWindow then Result := True; + end; + +begin + // do the appropriate validation depending on the currently selected tab + if nbkDiet.ActivePage = pgeDiet then + begin + if lstDietSelect.Items.Count < 1 then SetError(TX_NO_DIET); + if not calDietStart.IsValid then SetError(TX_BAD_START); + with calDietStop do + begin + Validate(ErrMsg); + if Length(ErrMsg) > 0 then SetError(TX_BAD_STOP); + if (Length(Text) > 0) and (FMDateTime <= calDietStart.FMDateTime) + then SetError(TX_STOPSTART); + end; {with calDietStop} + end; {pgeDiet} + if nbkDiet.ActivePage = pgeTubeFeeding then + begin + Sum := 0; + with grdSelected do for i := 0 to RowCount - 1 do if Objects[0, i] <> nil then Inc(Sum); + if (Sum < 1) or (Sum > 5) then SetError(TX_MINMAX); + Sum := 0; + with grdSelected do for i := 0 to RowCount - 1 do if Objects[0, i] <> nil then + begin + if Length(Cells[2, i]) = 0 then SetError(TX_TFQTY + Cells[0, i]); + if (Length(Cells[2, i]) > 0) and (Length(Cells[3, i]) = 0) + then SetError(TX_TFAMT + Cells[0, i] + TX_HLPQTY); + Sum := Sum + StrToIntDef(Piece(Cells[3, i], 'c', 1), 0); + end; + if Sum > 5000 then SetError(TX_TF5000); + if not OrderForInpatient then + if not calOPTFStart.IsValid then SetError(TX_BAD_START); + end; + if nbkDiet.ActivePage = pgeEarlyLate then + begin + if grpMeal.ItemIndex = 3 then SetError(TX_ELMEAL); + if not calELStart.IsValid then SetError(TX_ELNOSTART); + if calELStart.FMDateTime < FMToday then SetError(TX_ELSTARTLT); + if calELStart.FMDateTime > FMDateTimeOffsetBy(FMToday, 30) then SetError(TX_ELSTART30); + if OrderForInpatient then + begin + if GetMealTime = '' then SetError(TX_ELTIME); + if not calELStop.IsValid then SetError(TX_ELNOSTOP); + if calELStop.FMDateTime < FMToday then SetError(TX_ELSTOPLT); + if calELStop.FMDateTime < calELStart.FMDateTime then SetError(TX_ELSTOPSTART); + if calELStop.FMDateTime > FMDateTimeOffsetBy(FMToday, 30) then SetError(TX_ELSTOP30); + end; + if grpDOW.Enabled and (GetDaysOfWeek = '') then SetError(TX_ELDOW); + if MealTimePassed then SetError(TX_ELPAST); + end; + if nbkDiet.ActivePage = pgeIsolations then + begin + if lstIsolation.ItemIndex < 0 then SetError(TX_IPNONE); + end; + if nbkDiet.ActivePage = pgeAdditional then + begin + if not ContainsVisibleChar(txtAOComment.Text) then SetError(TX_AONONE); + if not OrderForInpatient then + if not calOPAOStart.IsValid then SetError(TX_BAD_START); + end; + if nbkDiet.ActivePage = pgeOutPt then + begin + if grpOPMeal.ItemIndex = 3 then SetError(TX_OPMEAL); + if lstOPDietSelect.Items.Count < 1 then SetError(TX_OP_NO_DIET); + if OPMealTimePassed then SetError(TX_OPPAST); + if uDialogName = 'FHW OP MEAL' then + begin + if not calOPStart.IsValid then SetError(TX_OP_BAD_START); + with calOPStop do + begin + Validate(ErrMsg); + if Length(ErrMsg) > 0 then SetError(TX_OP_BAD_STOP); + if (Length(Text) > 0) and (FMDateTime < calOPStart.FMDateTime) + then SetError(TX_OPSTOPSTART); + end; {with calOPDietStop} + if calOPStart.FMDateTime > FMDateTimeOffsetBy(FMToday, uDietParams.OPMaxDays) + then SetError(TX_OPSTART_MAX1 + IntToStr(uDietParams.OPMaxDays) + + TX_OPSTART_MAX2); + if calOPStop.FMDateTime > FMDateTimeOffsetBy(FMToday, uDietParams.OPMaxDays) + then SetError(TX_OPSTOP_MAX1 + IntToStr(uDietParams.OPMaxDays) + + TX_OPSTOP_MAX2); + if grpOPDOW.Enabled and (GetOPDaysOfWeek = '') + then SetError(TX_OPDOW); + end; + end; +end; + +{ notebook tabs - general ------------------------------------------------------------------- } + +procedure TfrmODDiet.nbkDietChanging(Sender: TObject; var AllowChange: Boolean); +begin + inherited; + with Responses do if (Length(CopyOrder) > 0) or (Length(EditOrder) > 0) then + begin + AllowChange := False; + Exit; + end; + FTabChanging := True; + if Length(memOrder.Text) > 0 then + begin + if nbkDiet.ActivePage = pgeOutpt then + begin + if InfoBox(TX_CONTINUE + memOrder.Text + TX_DISCARD, TC_ACCEPT, MB_YESNO) = ID_YES then + begin + AllowChange := FALSE; + end else + begin + memOrder.Text := ''; + memOrder.Lines.Clear; + Responses.Clear; + end; + end + else + begin + if InfoBox(TX_ACCEPT + memOrder.Text, TC_ACCEPT, MB_YESNO) = ID_YES then + begin + cmdAcceptClick(Self); + AllowChange := AcceptOK; + end else + begin + memOrder.Text := ''; + memOrder.Lines.Clear; + Responses.Clear; + end; + end + end; + FTabChanging := False; +end; + +procedure TfrmODDiet.nbkDietChange(Sender: TObject); +var + x, CxMsg: string ; + i: integer; + AStringList: TStringList; +const +// TX_CX_CUR = 'A new diet order will CANCEL and REPLACE this current diet:' + CRLF + CRLF; + TX_CX_CUR = 'A new diet order will CANCEL and REPLACE this current diet now unless' + CRLF + + 'you specify a start date for when the new diet should replace the current' + CRLF + + 'diet:' + CRLF + CRLF; + TX_CX_FUT = 'A new diet order with no expiration date will CANCEL and REPLACE these diets:' + CRLF + CRLF; +begin + inherited; + // much of the logic here can be eliminated if ClearDialogControls starts clearing containers + if AbortOrder then + begin + cmdQuitClick(Self); + exit; + end; + StatusText('Loading Dialog Definition'); + if Sender <> Self then Responses.Clear; + Changing := True; // Changing set! + if nbkDiet.ActivePage = pgeDiet then + begin + AllowQuickOrder := True; + x := CurrentDietText; + if Piece(x, #13, 1) <> 'Current Diet: ' then + begin + AStringList := TStringList.Create; + try + AStringList.Text := x; + CxMsg := TX_CX_CUR + #9 + Piece(AStringList[0], ':', 1) + ':' + CRLF + CRLF + + #9 + Copy(AStringList[0], 16, 99) + CRLF; + if AStringList.Count > 1 then + begin + CxMsg := CxMsg + CRLF + CRLF + + TX_CX_FUT + #9 + Piece(AStringList[1], ':', 1) + ':' + CRLF + CRLF + + #9 + Copy(AStringList[1], 22, 99) + CRLF; + if AStringList.Count > 2 then + for i := 2 to AStringList.Count - 1 do + CxMsg := CxMsg + #9 + TrimLeft(AStringList[i]) + CRLF; + end; + finally + AStringList.Free; + end; + end; + if CxMsg <> '' then + begin + if InfoBox(CxMsg + CRLF + + 'Are you sure?', 'Confirm', MB_ICONWARNING or MB_YESNO) = ID_NO then + begin + AbortOrder := True; + cmdQuitClick(Self); + exit; + end; + end; + OrderMessage(x); + Responses.Dialog := 'FHW1'; // Diet Order + DisplayGroup := DisplayGroupForDialog('FHW1'); + LoadDietQuickList(cboDietAvail.Items, 'DO'); + cboDietAvail.InsertSeparator; + cboDietAvail.InitLongList(''); + chkCancelTubefeeding.State := cbGrayed; + chkCancelTubefeeding.Visible := False; + ResetControlsDO; + end; + if nbkDiet.ActivePage = pgeTubefeeding then + begin + if not OrderForInpatient then + begin + if not PatientHasRecurringMeals(uRecurringMealList) then + begin + Changing := False; + nbkDiet.ActivePage := pgeOutPt; + nbkDietChange(nbkDiet); + Exit; + end + else + cboOPTFRecurringMeals.Items.Assign(uRecurringMealList); + end; + cboOPTFRecurringMeals.Visible := not OrderForInpatient; + calOPTFStart.Visible := False; + lblOPTFStart.Visible := not OrderForInpatient; + AllowQuickOrder := True; + if Length(uDietParams.CurTF) > 0 + then OrderMessage(TextForOrder(uDietParams.CurTF)) + else OrderMessage(''); + Responses.Dialog := 'FHW8'; // Tubefeeding + DisplayGroup := DisplayGroupForDialog('FHW8'); + with cboProduct do if Items.Count = 0 then + begin + LoadDietQuickList(Items, 'TF'); + if Items.Count > 0 then + begin + Items.Add(LLS_LINE); + Items.Add(LLS_SPACE); + end; + AppendTFProducts(Items); + end; + cboProduct.Text := ''; + ResetControlsTF; + end; + if nbkDiet.ActivePage = pgeEarlyLate then + begin + if not OrderForInpatient then + begin + if not PatientHasRecurringMeals(uRecurringMealList) then + begin + Changing := False; + nbkDiet.ActivePage := pgeOutPt; + nbkDietChange(nbkDiet); + Exit; + end + else + cboOPELRecurringMeals.Items.Assign(uRecurringMealList); + end + else if (StrToIntDef(uDietParams.EarlyIEN, 0) = 0) or (StrToIntDef(uDietParams.LateIEN, 0) = 0) then + begin + InfoBox(TX_NO_PARAMS, TC_NO_PARAMS, MB_ICONERROR or MB_OK); + if pgeEarlyLate <> nil then + nbkDiet.SelectNextPage(False); + Changing := False; + Exit; + end; + cboOPELRecurringMeals.Visible := not OrderForInpatient; + cboOPELRecurringMeals.TabStop := not OrderForInpatient; + calELStart.Visible := OrderForInpatient; + calELStart.TabStop := OrderForInpatient; + calELStop.Visible := OrderForInpatient; + lblELStop.Visible := OrderForInpatient; + grpDOW.Visible := OrderForInpatient; + grpDOW.Enabled := OrderForInpatient; + AllowQuickOrder := False; + OrderMessage(''); + Responses.Dialog := 'FHW2'; // Early/Late Tray + DisplayGroup := DisplayGroupForDialog('FHW2'); + ResetControlsEL; + end; + if nbkDiet.ActivePage = pgeIsolations then + begin + AllowQuickOrder := False; + OrderMessage(''); + Responses.Dialog := 'FHW3'; // Isolations + DisplayGroup := DisplayGroupForDialog('FHW3'); + if lstIsolation.Items.Count = 0 then LoadIsolations(lstIsolation.Items); + txtIPCurrent.Text := CurrentIsolation; + FIsolationID := IsolationID; + ResetControlsIP; + end; + if nbkDiet.ActivePage = pgeAdditional then + begin + if not OrderForInpatient then + begin + if not PatientHasRecurringMeals(uRecurringMealList) then + begin + Changing := False; + nbkDiet.ActivePage := pgeOutPt; + nbkDietChange(nbkDiet); + Exit; + end + else + cboOPAORecurringMeals.Items.Assign(uRecurringMealList); + end; + cboOPAORecurringMeals.Visible := not OrderForInpatient; + calOPAOStart.Visible := False; //not OrderForInpatient; + lblOPAOStart.Visible := not OrderForInpatient; + AllowQuickOrder := False; + OrderMessage(''); + Responses.Dialog := 'FHW7'; // Additional Order + DisplayGroup := DisplayGroupForDialog('FHW7'); + ResetControlsAO; + end; + if nbkDiet.ActivePage = pgeOutPt then + begin + x := CurrentDietText; + if Length(Piece(x, #$D, 1)) > Length('Current Diet: ') then + OrderMessage(x) + else + OrderMessage(''); + if (uDialogName <> 'FHW SPECIAL MEAL') and (uDialogName <> 'FHW OP MEAL') then + uDialogName := 'FHW OP MEAL'; + Responses.Dialog := uDialogName; + DisplayGroup := DisplayGroupForDialog(uDialogName); + if uDialogName = 'FHW SPECIAL MEAL' then // Special meal + begin + AllowQuickOrder := False; + ResetControlsOP; + cboOPDietAvail.Items.AddStrings(SubsetOfOPDiets); + { TODO -oRich V. -cOutpatient Meals : Need to DC Tubefeeding order for OP meals? } + chkOPCancelTubefeeding.State := cbGrayed; + chkOPCancelTubefeeding.Visible := False; + grpOPMeal.Caption := 'Special Meal'; + pgeTubefeeding.TabVisible := False; + pgeIsolations.TabVisible := False; + pgeAdditional.TabVisible := False; + pgeEarlyLate.TabVisible := False; + cboOPDietAvail.SelectByIEN(uDietParams.OPDefaultDiet); + cboOPDietAvailMouseClick(Self); + Changing := False; + end + else if uDialogName = 'FHW OP MEAL' then // Recurring meal + begin + AllowQuickOrder := True; + ResetControlsOP; + LoadDietQuickList(cboOPDietAvail.Items, 'MEAL'); // use D.G. short name here + cboOPDietAvail.InsertSeparator; + cboOPDietAvail.Items.AddStrings(SubsetOfOPDiets); + cboOPDietAvail.SelectByIEN(uDietParams.OPDefaultDiet); + { TODO -oRich V. -cOutpatient Meals : Need to DC Tubefeeding order for OP meals? } + chkOPCancelTubefeeding.State := cbGrayed; + chkOPCancelTubefeeding.Visible := False; + grpOPMeal.Caption := 'Recurring Meal'; + SetEnableOPDOW(False, -1); + cboOPDietAvailMouseClick(Self); + Changing := False; + end; + end; + Changing := False; // Changing reset + StatusText(''); +end; + +{ Diet Order tab ---------------------------------------------------------------------------- } + +procedure TfrmODDiet.DietCheckForNPO; +begin + if Piece(lstDietSelect.Items[0], U, 2) = 'NPO' then + begin + lblDelivery.Visible := False; + cboDelivery.Visible := False; + lblComment.Visible := True; // <-- these changes added for 11a to suppress + txtDietComment.Visible := True; // <-- prompting of special instructions except + end else // <-- for NPO + begin // <-- + lblComment.Visible := False; // <-- + txtDietComment.Visible := False; // <-- + txtDietComment.Text := ''; // <-- + end; +end; + +procedure TfrmODDiet.DietCheckForTF; +var + x: string; +begin + with lstDietSelect do + begin + if (Items.Count = 1) and (Piece(Items[0], U, 2) <> 'NPO') + and (Length(uDietParams.CurTF) > 0) then + begin + x := TextForOrder(uDietParams.CurTF); + if InfoBox(TX_CANCEL_TF + x, TC_CANCEL_TF, MB_YESNO) = IDYES then + begin + chkCancelTubeFeeding.State := cbChecked; + chkCancelTubeFeeding.Visible := True; + end + else chkCancelTubeFeeding.State := cbUnchecked; + end; {if (Items...} + end; {with lstDietSelect} +end; + +procedure TfrmODDiet.ResetControlsDO; +begin + lstDietSelect.Clear; + calDietStart.Text := 'Now'; + calDietStop.Text := ''; + lblDelivery.Visible := True; + cboDelivery.Visible := True; + txtDietComment.Text := ''; // <-- suppress except for NPO + txtDietComment.Visible := False; // <-- + lblComment.Visible := False; // <-- +end; + +procedure TfrmODDiet.SetValuesFromResponsesDO; +var + AnInstance: Integer; + AResponse: TResponse; + ADiet: string; +begin + Changing := True; // Changing set!! + ResetControlsDO; + with Responses do + begin + AnInstance := NextInstance('ORDERABLE', 0); + while AnInstance > 0 do + begin + AResponse := FindResponseByName('ORDERABLE', AnInstance); + if AResponse <> nil then + begin + ADiet := DietAttributes(StrToIntDef(AResponse.IValue,0)); + if Piece(ADiet,'^',1)='0' then + begin + InfoBox(Piece(ADiet,'^',2), TC_DIET_ERR, MB_OK); + cboDietAvail.ItemIndex := -1; + Changing := False; + Exit; + end; + lstDietSelect.Items.Add(ADiet); + end; + AnInstance := NextInstance('ORDERABLE', AnInstance); + end; {while AnInstance - ORDERABLE} + SetControl(calDietStart, 'START', 1); + SetControl(calDietStop, 'STOP', 1); + SetControl(cboDelivery, 'DELIVERY', 1); + SetControl(txtDietComment, 'COMMENT', 1); + end; + DietCheckForNPO; + DietCheckForTF; + Changing := False; // Changing reset + DietChange(Self); +end; + +procedure TfrmODDiet.cboDietAvailNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + cboDietAvail.ForDataUse(SubSetOfDiets(StartFrom, Direction)); +end; + +procedure TfrmODDiet.cboDietAvailMouseClick(Sender: TObject); +var + NewDiet, ErrMsg: string; + DupDiet: Boolean; + i: Integer; + + procedure SetError(const AnError: string); + begin + if Length(ErrMsg) > 0 then Exit; + ErrMsg := AnError; + end; + +begin + inherited; + if CharAt(cboDietAvail.ItemID, 1) = 'Q' then // setup quick order + begin + Responses.QuickOrder := ExtractInteger(cboDietAvail.ItemID); + SetValuesFromResponsesDO; + cboDietAvail.ItemIndex := -1; + Exit; + end; + if cboDietAvail.ItemIEN > 0 then with lstDietSelect do + begin + ErrMsg := ''; + if Items.Count > 0 then // disallow other diets with Regular & NPO + begin + if cboDietAvail.ItemIEN = uDietParams.RegIEN then SetError(TX_DIET_REG); + if GetIEN(0) = uDietParams.RegIEN then SetError(TX_DIET_REG); + if cboDietAvail.ItemIEN = uDietParams.NPOIEN then SetError(TX_DIET_NPO); + if GetIEN(0) = uDietParams.NPOIEN then SetError(TX_DIET_NPO); + end; + if Items.Count = 5 then SetError(TX_DIET_LIM); // maximum of 5 diet modifications + DupDiet := False; + for i := 0 to Items.Count - 1 do if cboDietAvail.ItemIEN = GetIEN(i) then DupDiet := True; + if DupDiet then SetError(TX_DIET_DUP); // each diet mod must be unique + NewDiet := DietAttributes(cboDietAvail.ItemIEN); + if Piece(NewDiet,'^',1)='0' then + begin + InfoBox(Piece(NewDiet,'^',2),TC_DIET_ERR, MB_OK); + cboDietAvail.ItemIndex := -1; + Exit; + end; + for i := 0 to Items.Count - 1 do // check to make sure unique precedence + if Piece(Items[i], U, 4) = Piece(NewDiet, U, 4) + then SetError(TX_DIET_PRC + Piece(Items[i], U, 2)); + if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TC_DIET_ERR, MB_OK) else + begin + lstDietSelect.Items.Add(NewDiet); + DietCheckForNPO; + DietCheckForTF; + OrderMessage(OIMessage(StrToIntDef(Piece(NewDiet, U, 1), 0))); + DietChange(Sender); + end; {else of if Length} + end; {if cboDietAvail} + cboDietAvail.ItemIndex := -1; +end; + +procedure TfrmODDiet.cboDietAvailExit(Sender: TObject); +begin + inherited; + if (cboDietAvail.ItemIEN > 0) or (CharAt(cboDietAvail.ItemID, 1) = 'Q') then + cboDietAvailMouseClick(Self); +end; + +procedure TfrmODDiet.cmdRemoveClick(Sender: TObject); +begin + inherited; + with lstDietSelect do if ItemIndex > -1 then Items.Delete(ItemIndex); + DietChange(Sender); + with lstDietSelect do if Items.Count = 0 then + begin + chkCancelTubefeeding.State := cbGrayed; + chkCancelTubefeeding.Visible := False; + lblDelivery.Visible := True; + cboDelivery.Visible := True; + end; +end; + +procedure TfrmODDiet.DietChange(Sender: TObject); +var + i: Integer; +begin + inherited; + if Changing then Exit; + if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + with calDietStart do {if Length(Text) > 0 then} Responses.Update('START', 1, Text, Text); + with calDietStop do {if Length(Text) > 0 then} Responses.Update('STOP', 1, Text, Text); + with lstDietSelect do for i := 0 to Items.Count - 1 do + Responses.Update('ORDERABLE', i+1, Piece(Items[i], U, 1), Piece(Items[i], U, 2)); + with txtDietComment do {if Length(Text) > 0 then} Responses.Update('COMMENT', 1, Text, Text); + with cboDelivery do if Visible then Responses.Update('DELIVERY', 1, ItemID, Text); + with chkCancelTubefeeding do case State of + cbChecked: Responses.Update('CANCEL', 1, '1', 'YES'); + cbUnchecked: Responses.Update('CANCEL', 1, '0', 'NO'); + end; + with lstDietSelect do if (Items.Count = 1) and (GetIEN(0) = uDietParams.NPOIEN) then + begin + if Frac(calDietStart.FMDateTime) > 0.2358 then Responses.VarTrailing := 'at Midnight'; + end + else Responses.VarTrailing := 'Diet'; + memOrder.Text := Responses.OrderText; +end; + +{ Tubefeeding tab --------------------------------------------------------------------------- } + +procedure TfrmODDiet.ResetControlsTF; +begin + TFClearGrid; + chkCancelTrays.Checked := False; + calOPTFStart.Text := ''; + txtTFComment.Text := ''; +end; + +procedure TfrmODDiet.SetValuesFromResponsesTF; +var + AnInstance: Integer; + AResponse: TResponse; + AProduct: TTFProduct; +begin + Changing := True; // Changing set!! + ResetControlsTF; + with Responses do + begin + AnInstance := NextInstance('ORDERABLE', 0); + while AnInstance > 0 do + begin + AResponse := FindResponseByName('ORDERABLE', AnInstance); + if AResponse <> nil then + begin + AProduct := TTFProduct.Create; + AProduct.IEN := StrToIntDef(AResponse.IValue, 0); + AProduct.Name := AResponse.EValue; + with grdSelected do + begin + if Objects[0, RowCount - 1] <> nil then RowCount := RowCount + 1; + Objects[0, RowCount - 1] := AProduct; + Cells[0, RowCount - 1] := AProduct.Name; + AResponse := FindResponseByName('STRENGTH', AnInstance); + if AResponse <> nil then Cells[1, RowCount - 1] := AResponse.EValue; + AResponse := FindResponseByName('INSTR', AnInstance); + if AResponse <> nil then Cells[2, RowCount - 1] := AResponse.EValue; + TFSetAmountForRow(RowCount - 1); + end; + end; + AnInstance := NextInstance('ORDERABLE', AnInstance); + end; {while AnInstance - ORDERABLE} + AResponse := FindResponseByName('CANCEL', 1); + if AResponse <> nil then chkCancelTrays.Checked := AResponse.IValue = '1'; + if not OrderForInpatient then + begin + SetControl(cboOPTFRecurringMeals, 'DATETIME', 1); + SetControl(calOPTFStart, 'DATETIME', 1); + end; + SetControl(txtTFComment, 'COMMENT', 1); + end; + Changing := False; // Changing reset + TFChange(Self); +end; + +procedure TfrmODDiet.TFClearGrid; +var + i: Integer; +begin + with grdSelected do for i := 0 to RowCount - 1 do + begin + TTFProduct(Objects[0, i]).Free; + Rows[i].Clear; + end; + grdSelected.RowCount := 1; +end; + +procedure TfrmODDiet.cboProductMouseClick(Sender: TObject); +var + AProduct: TTFProduct; +begin + inherited; + // check quick order + if CharAt(cboProduct.ItemID, 1) = 'Q' then // setup quick order + begin + Responses.QuickOrder := ExtractInteger(cboProduct.ItemID); + SetValuesFromResponsesTF; + cboProduct.ItemIndex := -1; + Exit; + end; + if cboProduct.ItemIEN <= 0 then Exit; + AProduct := TTFProduct.Create; + AProduct.IEN := cboProduct.ItemIEN; + AProduct.Name := Piece(cboProduct.Items[cboProduct.ItemIndex], U, 3); + cboProduct.ItemIndex := -1; + with grdSelected do + begin + if Objects[0, RowCount - 1] <> nil then RowCount := RowCount + 1; + Objects[0, RowCount - 1] := AProduct; + Cells[0, RowCount - 1] := AProduct.Name; + Cells[1, RowCount - 1] := 'FULL'; + Row := RowCount - 1; + Col := 1; + end; + OrderMessage(OIMessage(AProduct.IEN)); + TFChange(Sender); +end; + +procedure TfrmODDiet.cboProductExit(Sender: TObject); +begin + inherited; + if (cboProduct.ItemIEN > 0) or (CharAt(cboProduct.ItemID, 1) = 'Q') then + cboProductMouseClick(Self); +end; + +procedure TfrmODDiet.grdSelectedDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; + State: TGridDrawState); +begin + inherited; + if Sender = ActiveControl then Exit; + if not (gdSelected in State) then Exit; + with Sender as TStringGrid do + begin + Canvas.Brush.Color := Color; + Canvas.Font := Font; + Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]); + end; +end; + +procedure TfrmODDiet.grdSelectedSelectCell(Sender: TObject; Col, Row: Integer; + var CanSelect: Boolean); + + procedure PlaceControl(AControl: TWinControl); + var + ARect: TRect; + begin + with AControl do + begin + ARect := grdSelected.CellRect(Col, Row); + SetBounds(ARect.Left + grdSelected.Left + 1, ARect.Top + grdSelected.Top + 1, + ARect.Right - ARect.Left + 1, ARect.Bottom - ARect.Top + 1); + BringToFront; + Show; + SetFocus; + end; + end; + +begin + inherited; + if (Col <> 1) and (Col <> 2) then Exit; + if csDestroying in ComponentState then Exit; + if Col = 1 then + begin + cboStrength.ItemIndex :=cboStrength.Items.IndexOf(grdSelected.Cells[Col, Row]); + cboStrength.Tag := (Col * 256) + Row; + PlaceControl(cboStrength); + end; + if Col = 2 then + begin + txtQuantity.Text := grdSelected.Cells[Col, Row]; + txtQuantity.Tag := (Col * 256) + Row; + PlaceControl(txtQuantity); + end; +end; + +procedure TfrmODDiet.SetNextCell(ACol, ARow: Integer); +begin + FNextCol := ACol; + FNextRow := ARow; +end; + +procedure TfrmODDiet.TFMoveToNextCell; +var + NextCol, NextRow: Integer; +begin + if (FNextCol < 0) or (FNextRow < 0) then Exit; + if (ActiveControl = grdSelected) and not (csLButtonDown in grdSelected.ControlState) then + begin + NextCol := FNextCol; + NextRow := FNextRow; + with grdSelected do if NextCol <> Col then Col := NextCol; + with grdSelected do if NextRow <> Row then Row := NextRow; + end; +end; + +procedure TfrmODDiet.TFSetAmountForRow(ARow: Integer); +var + Product, Strength: Integer; + x: string; +begin + with grdSelected do + begin + if Objects[0, ARow] <> nil + then Product := TTFProduct(Objects[0, ARow]).IEN + else Product := 0; + Strength := TFStrengthCode(Cells[1, ARow]); + x := ExpandedQuantity(Product, Strength, Cells[2, ARow]); + if Length(x) > 0 then + begin + grdSelected.Cells[2, ARow] := Piece(x, U, 2); + grdSelected.Cells[3, ARow] := Piece(x, U, 1) + 'ml'; + end + else grdSelected.Cells[3, ARow] := ''; + end; +end; + +function TfrmODDiet.TFStrengthCode(const x: string): Integer; +begin + Result := 0; + if x = '1/4' then Result := 1 + else if x = '1/2' then Result := 2 + else if x = '3/4' then Result := 3 + else if x = 'FULL' then Result := 4; +end; + +procedure TfrmODDiet.cboStrengthEnter(Sender: TObject); +begin + inherited; + SetNextCell(2, grdSelected.Row); +end; + +procedure TfrmODDiet.cboStrengthKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); +begin + inherited; + with grdSelected do + case Key of + VK_LEFT: SetNextCell(0, Row); + VK_RIGHT: SetNextCell(2, Row); + end; + if Key in [VK_LEFT, VK_RIGHT] then + begin + Key := 0; + if not (csDestroying in ComponentState) then grdSelected.SetFocus; + end; +end; + +procedure TfrmODDiet.cboStrengthChange(Sender: TObject); +begin + inherited; + with cboStrength do + begin + if Tag < 0 then Exit; + grdSelected.Cells[Tag div 256, Tag mod 256] := Text; + end; + TFChange(Sender); +end; + +procedure TfrmODDiet.cboStrengthExit(Sender: TObject); +begin + inherited; + with cboStrength do + begin + grdSelected.Cells[Tag div 256, Tag mod 256] := Text; + TFSetAmountForRow(Tag mod 256); + Tag := -1; + Hide; + end; + TFChange(Sender); + TFMoveToNextCell; +end; + +procedure TfrmODDiet.txtQuantityEnter(Sender: TObject); +begin + inherited; + SetNextCell(-1, -1); +end; + +procedure TfrmODDiet.txtQuantityKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); +begin + inherited; + with grdSelected, txtQuantity do + case Key of + VK_UP: SetNextCell(Col, HigherOf(Row - 1, 0)); + VK_DOWN: SetNextCell(Col, LowerOf(Row + 1, RowCount - 1)); + VK_LEFT: if (SelLength = 0) and (SelStart = 0) then SetNextCell(1, Row); + VK_RIGHT: if (SelLength = 0) and (SelStart = Length(Text)) then SetNextCell(3, Row); + VK_END: if (SelLength = 0) and (SelStart = Length(Text)) then SetNextCell(3, Row); + VK_HOME: if (SelLength = 0) and (SelStart = 0) then SetNextCell(0, Row); + VK_PRIOR: SetNextCell(Col, 0); + VK_NEXT: SetNextCell(Col, RowCount - 1); + end; + if FNextCol > -1 then + begin + Key := 0; + if not (csDestroying in ComponentState) then grdSelected.SetFocus; + end; +end; + +procedure TfrmODDiet.txtQuantityChange(Sender: TObject); +begin + inherited; + with txtQuantity do + begin + if Tag < 0 then Exit; + grdSelected.Cells[Tag div 256, Tag mod 256] := Text; + end; + TFChange(Sender); +end; + +procedure TfrmODDiet.txtQuantityExit(Sender: TObject); +begin + inherited; + with txtQuantity do + begin + grdSelected.Cells[Tag div 256, Tag mod 256] := Text; + TFSetAmountForRow(Tag mod 256); + Tag := -1; + Hide; + end; + TFChange(Sender); + TFMoveToNextCell; +end; + +procedure TfrmODDiet.cmdTFRemoveClick(Sender: TObject); +var + i: Integer; +begin + inherited; + with grdSelected do + begin + if Row < 0 then Exit; + if Objects[0, Row] <> nil then TTFProduct(Objects[0, Row]).Free; + for i := Row to RowCount - 2 do Rows[i] := Rows[i + 1]; + Rows[RowCount - 1].Clear; + RowCount := RowCount - 1; + end; + TFChange(Sender); +end; + +procedure TfrmODDiet.TFChange(Sender: TObject); +var + i: Integer; + AProduct: TTFProduct; + +begin + inherited; + if Changing then Exit; + if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + with grdSelected do for i := 0 to RowCount - 1 do + begin + AProduct := TTFProduct(Objects[0, i]); + if AProduct = nil then Continue; + with AProduct do if IEN > 0 + then Responses.Update('ORDERABLE', i+1, IntToStr(IEN), Name); + if TFStrengthCode(Cells[1,i]) > 0 + then Responses.Update('STRENGTH', i+1, IntToStr(TFStrengthCode(Cells[1,i])), Cells[1,i]); + if Length(Cells[2,i]) > 0 + then Responses.Update('INSTR', i+1, Cells[2,i], Cells[2,i]); + end; {with grdSelected} + with txtTFComment do if Text <> '' + then Responses.Update('COMMENT', 1, Text, Text); + with chkCancelTrays do if Checked + then Responses.Update('CANCEL', 1, '1', 'Yes') + else Responses.Update('CANCEL', 1, '0', 'No'); + if not OrderForInpatient then + begin + calOPTFStart.FMDateTime := StrToFloatDef(cboOPTFRecurringMeals.ItemID, 0); + Responses.Update('DATETIME', 1, FloatToStr(calOPTFStart.FMDateTime), calOPTFStart.Text); + end; + memOrder.Text := Responses.OrderText; +end; + +{ Early/Late Tray tab ----------------------------------------------------------------------- } + +procedure TfrmODDiet.ResetControlsEL; +begin + grpMeal.ItemIndex := 3; + grpMeal.TabStop := True; + grpMealTime.TabStop := False; + radET1.Visible := False; + radET2.Visible := False; + radET3.Visible := False; + radLT1.Visible := False; + radLT2.Visible := False; + radLT3.Visible := False; + lblNoTimes.Visible := False; + calELStart.Text := ''; + calELStop.Text := ''; + chkMonday.Checked := False; + chkTuesday.Checked := False; + chkWednesday.Checked := False; + chkThursday.Checked := False; + chkFriday.Checked := False; + chkSaturday.Checked := False; + chkSunday.Checked := False; + chkBagged.Checked := False; +end; + +procedure TfrmODDiet.SetValuesFromResponsesEL; +var + AResponse: TResponse; +begin + Changing := True; + ResetControlsEL; + with Responses do + begin + AResponse := FindResponseByName('MEAL', 1); + if AResponse <> nil then + begin + if AResponse.IValue = 'B' then grpMeal.ItemIndex := 0; + if AResponse.IValue = 'N' then grpMeal.ItemIndex := 1; + if AResponse.IValue = 'E' then grpMeal.ItemIndex := 2; + end; + if grpMeal.ItemIndex <> 3 then grpMealClick(Self); + AResponse := FindResponseByName('TIME', 1); + if AResponse <> nil then + begin + if radET1.Caption = AResponse.IValue then radET1.Checked := True; + if radET2.Caption = AResponse.IValue then radET2.Checked := True; + if radET3.Caption = AResponse.IValue then radET3.Checked := True; + if radLT1.Caption = AResponse.IValue then radLT1.Checked := True; + if radLT2.Caption = AResponse.IValue then radLT2.Checked := True; + if radLT3.Caption = AResponse.IValue then radLT3.Checked := True; + end; + if not OrderForInpatient then + SetControl(cboOPELRecurringMeals, 'START', 1) + else + begin + SetControl(calELStart, 'START', 1); + SetControl(calELStop, 'STOP', 1); + end; + calELStopChange(Self); + AResponse := FindResponseByName('SCHEDULE', 1); + if AResponse <> nil then + begin + chkMonday.Checked := Pos('M', AResponse.IValue) > 0; + chkTuesday.Checked := Pos('T', AResponse.IValue) > 0; + chkWednesday.Checked := Pos('W', AResponse.IValue) > 0; + chkThursday.Checked := Pos('R', AResponse.IValue) > 0; + chkFriday.Checked := Pos('F', AResponse.IValue) > 0; + chkSaturday.Checked := Pos('S', AResponse.IValue) > 0; + chkSunday.Checked := Pos('X', AResponse.IValue) > 0; + end; + AResponse := FindResponseByName('YN', 1); + if AResponse <> nil then chkBagged.Checked := AResponse.IValue = '1'; + end; {with Responses} + Changing := False; + ELChange(Self); +end; + +function TfrmODDiet.GetMealTime: string; +begin + Result := ''; + if radET1.Checked then Result := radET1.Caption; + if radET2.Checked then Result := radET2.Caption; + if radET3.Checked then Result := radET3.Caption; + if radLT1.Checked then Result := radLT1.Caption; + if radLT2.Checked then Result := radLT2.Caption; + if radLT3.Checked then Result := radLT3.Caption; +end; + +function TfrmODDiet.GetDaysOfWeek: string; +begin + Result := ''; + if chkMonday.Checked then Result := Result + 'M'; + if chkTuesday.Checked then Result := Result + 'T'; + if chkWednesday.Checked then Result := Result + 'W'; + if chkThursday.Checked then Result := Result + 'R'; + if chkFriday.Checked then Result := Result + 'F'; + if chkSaturday.Checked then Result := Result + 'S'; + if chkSunday.Checked then Result := Result + 'X'; +end; + +function TfrmODDiet.IsEarlyTray: Boolean; +begin + Result := True; + if radLT1.Checked then Result := False; + if radLT2.Checked then Result := False; + if radLT3.Checked then Result := False; +end; + +procedure TfrmODDiet.grpMealClick(Sender: TObject); + + procedure SetMealTimes(const x: string); + + procedure ActivateButton( Button: TRadioButton; const MealTime: string; + var MoreActivated: boolean); + var + Activate: boolean; + begin + Button.Caption := MealTime; + Activate := Length(MealTime) > 0; + Button.Visible := Activate; + Button.Checked := Activate and not MoreActivated; + MoreActivated := MoreActivated or Activate; + end; + + var + HasTimes: Boolean; + begin + HasTimes := False; + ActivateButton(radET1, Piece(x, U, 1), HasTimes); + ActivateButton(radET2, Piece(x, U, 2), HasTimes); + ActivateButton(radET3, Piece(x, U, 3), HasTimes); + ActivateButton(radLT1, Piece(x, U, 4), HasTimes); + ActivateButton(radLT2, Piece(x, U, 5), HasTimes); + ActivateButton(radLT3, Piece(x, U, 6), HasTimes); + lblNoTimes.Visible := not HasTimes; + end; +var + AMeal: string; +begin + inherited; + Changing := True; + case grpMeal.ItemIndex of + 0: begin + SetMealTimes(uDietParams.BTimes); + AMeal := 'B'; + end; + 1: begin + SetMealTimes(uDietParams.NTimes); + AMeal := 'N'; + end; + 2: begin + SetMealTimes(uDietParams.ETimes); + AMeal := 'E'; + end; + else + begin + SetMealTimes(''); + AMeal := ''; + end; + end; + if not OrderForInpatient then + begin + if AMeal = '' then + begin + uRecurringMealList.Clear; + cboOPELRecurringMeals.Clear; + end + else if not PatientHasRecurringMeals(uRecurringMealList, AMeal) then + begin + uRecurringMealList.Clear; + cboOPELRecurringMeals.Clear; + grpMeal.ItemIndex := 3; + end + else + cboOPELRecurringMeals.Items.Assign(uRecurringMealList); + end; + Changing := False; + ELChange(grpMeal); +end; + + +procedure TfrmODDiet.SetEnableDOW(AllowUse: Boolean); +begin + grpDOW.Enabled := AllowUse; + chkMonday.Enabled := AllowUse; + chkTuesday.Enabled := AllowUse; + chkWednesday.Enabled := AllowUse; + chkThursday.Enabled := AllowUse; + chkFriday.Enabled := AllowUse; + chkSaturday.Enabled := AllowUse; + chkSunday.Enabled := AllowUse; +end; + +procedure TfrmODDiet.calELStartEnter(Sender: TObject); +begin + inherited; + FChangeStop := Length(calELStop.Text) = 0; +end; + +procedure TfrmODDiet.calELStartChange(Sender: TObject); +begin + inherited; + if FChangeStop then + calELStop.Text := calELStart.Text + else + ELChange(Sender); +end; + +procedure TfrmODDiet.calELStartExit(Sender: TObject); +begin + inherited; + if not OrderForInpatient then SetEnableDOW(False) + else if (Length(calELStop.Text) > 0) and (calELStop.Text = calELStart.Text) + then SetEnableDOW(False) + else SetEnableDOW(True); +end; + +procedure TfrmODDiet.calELStopChange(Sender: TObject); +begin + inherited; + if (Length(calELStop.Text) > 0) and (calELStop.FMDateTime = calELStart.FMDateTime) + then SetEnableDOW(False) + else SetEnableDOW(True); + ELChange(Sender); +end; + +procedure TfrmODDiet.ELChange(Sender: TObject); +var + x: string; +begin + inherited; + if Changing then Exit; + if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + case grpMeal.ItemIndex of + 0: Responses.Update('MEAL', 1, 'B', 'BREAKFAST'); + 1: Responses.Update('MEAL', 1, 'N', 'NOON'); + 2: Responses.Update('MEAL', 1, 'E', 'EVENING'); + end; + x := GetMealTime; + if Length(x) > 0 then + begin + Responses.Update('TIME', 1, x, x); + if IsEarlyTray + then Responses.Update('ORDERABLE', 1, uDietParams.EarlyIEN, 'EARLY TRAY') + else Responses.Update('ORDERABLE', 1, uDietParams.LateIEN, 'LATE TRAY'); + end; + if not OrderForInpatient then + begin + calELStart.FMDateTime := StrToFloatDef(cboOPELRecurringMeals.ItemID, 0); + calELStop.FMDateTime := calELStart.FMDateTime; + end; + with calELStart do if Length(Text) > 0 then Responses.Update('START', 1, Text, Text); + with calELStop do if Length(Text) > 0 then Responses.Update('STOP', 1, Text, Text); + x := GetDaysOfWeek; + if Length(x) > 0 then Responses.Update('SCHEDULE', 1, x, x); + if chkBagged.Checked + then Responses.Update('YN', 1, '1', 'YES') + else Responses.Update('YN', 1, '0', 'NO'); + memOrder.Text := Responses.OrderText; +end; + +{ Isolation Precautions tab ----------------------------------------------------------------- } + +procedure TfrmODDiet.ResetControlsIP; +begin + lstIsolation.ItemIndex := -1; + txtIPComment.Text := ''; +end; + +procedure TfrmODDiet.SetValuesFromResponsesIP; +begin + Changing := True; + ResetControlsIP; + Responses.SetControl(lstIsolation, 'ISOLATION', 1); + Responses.SetControl(txtIPComment, 'COMMENT', 1); + Changing := False; + IPChange(Self); +end; + +procedure TfrmODDiet.IPChange(Sender: TObject); +begin + inherited; + if Changing then Exit; + if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + Responses.Update('ORDERABLE', 1, FIsolationID, 'Isolation Procedures'); + with lstIsolation do if ItemIEN > 0 + then Responses.Update('ISOLATION', 1, ItemID, DisplayText[ItemIndex]); + with txtIPComment do if Text <> '' + then Responses.Update('COMMENT', 1, Text, Text); + memOrder.Text := Responses.OrderText; +end; + +{ Additional Diet Order tab ----------------------------------------------------------------- } + +procedure TfrmODDiet.ResetControlsAO; +begin + txtAOComment.Text := ''; + calOPAOStart.Text := ''; +end; + +procedure TfrmODDiet.SetValuesFromResponsesAO; +begin + Changing := True; + ResetControlsAO; + Responses.SetControl(txtAOComment, 'COMMENT', 1); + //Responses.SetControl(calOPAOStart, 'DATETIME', 1); + Responses.SetControl(cboOPAORecurringMeals, 'DATETIME', 1); + Changing := False; + AOChange(Self); +end; + +procedure TfrmODDiet.AOChange(Sender: TObject); +begin + inherited; + if Changing then Exit; + with txtAOComment do if Text <> '' + then Responses.Update('COMMENT', 1, Text, Text); + if not OrderForInpatient then + begin + calOPAOStart.FMDateTime := StrToFloatDef(cboOPAORecurringMeals.ItemID, 0); + Responses.Update('DATETIME', 1, FloatToStr(calOPAOStart.FMDateTime), calOPAOStart.Text); + end; + memOrder.Text := Responses.OrderText; +end; + + +{ Outpatient Meals Order tab ----------------------------------------------------------------- } + +procedure TfrmODDiet.cboOPDietAvailMouseClick(Sender: TObject); +var + NewDiet,ErrMsg: string; + + procedure SetError(const AnError: string); + begin + if Length(ErrMsg) > 0 then Exit; + ErrMsg := AnError; + end; + +begin + inherited; + if cboOPDietAvail.Items.Count = 0 then + begin + InfoBox(TX_NO_MEALS_DEFINED, TC_NO_MEALS_DEFINED, MB_OK or MB_ICONINFORMATION); + AbortOrder := True; + exit; + end ; + if CharAt(cboOPDietAvail.ItemID, 1) = 'Q' then // setup quick order + begin + Responses.QuickOrder := ExtractInteger(cboOPDietAvail.ItemID); + SetValuesFromResponsesOP; + cboOPDietAvail.ItemIndex := -1; + Exit; + end; + if cboOPDietAvail.ItemIEN > 0 then with lstOPDietSelect do + begin + ErrMsg := ''; + NewDiet := DietAttributes(cboOPDietAvail.ItemIEN); + if Piece(NewDiet,'^',1)='0' then + begin + InfoBox(Piece(NewDiet,'^',2),TC_OP_DIET_ERR, MB_OK); + cboOPDietAvail.ItemIndex := -1; + Exit; + end; + lstOPDietSelect.Items.Clear; + lstOPDietSelect.Items.Add(NewDiet); +{ TODO -oRich V. -cOutpatient Meals : Will these be selectable for an outpatient meal? } + OPDietCheckForNPO; +{ TODO -oRich V. -cOutpatient Meals : Need to DC Tubefeeding order for OP meals? } + OPDietCheckForTF; + OrderMessage(OIMessage(StrToIntDef(Piece(NewDiet, U, 1), 0))); + OPChange(Sender); + end; {if cboOPDietAvail} + OPChange(Sender); + cboOPDietAvail.ItemIndex := -1; +end; + +procedure TfrmODDiet.cboOPDietAvailExit(Sender: TObject); +begin + inherited; + if (cboOPDietAvail.ItemIEN > 0) or (CharAt(cboOPDietAvail.ItemID, 1) = 'Q') then + cboOPDietAvailMouseClick(Self); +end; + +procedure TfrmODDiet.ResetControlsOP; +begin + lstOPDietSelect.Clear; + cboOPDietAvail.ItemIndex := -1; + grpOPMeal.ItemIndex := 3; + grpOPMeal.TabStop := True; + chkOPMonday.Checked := False; + chkOPTuesday.Checked := False; + chkOPWednesday.Checked := False; + chkOPThursday.Checked := False; + chkOPFriday.Checked := False; + chkOPSaturday.Checked := False; + chkOPSunday.Checked := False; + lblOPComment.Visible := False; + txtOPDietComment.Visible := False; + txtOPDietComment.Text := ''; + if uDialogName = 'FHW OP MEAL' then + begin + calOPStart.Text := ''; + calOPStop.Text := ''; + calOPStart.Enabled := True; + calOPStop.Enabled := True; + lblOPStart.Enabled := True; + lblOPStop.Enabled := True; + grpOPDOW.Visible := True; + end + else if uDialogName = 'FHW SPECIAL MEAL' then + begin + calOPStart.Text := 'TODAY'; + calOPStop.Text := 'TODAY'; + calOPStart.Enabled := False; + calOPStop.Enabled := False; + lblOPStart.Enabled := False; + lblOPStop.Enabled := False; + grpOPDOW.Visible := False; + end; +end; + +procedure TfrmODDiet.SetValuesFromResponsesOP; +var + AResponse: TResponse; + ADiet: string; +begin + Changing := True; + ResetControlsOP; + with Responses do + begin + AResponse := FindResponseByName('ORDERABLE', 1); + if AResponse <> nil then + begin + ADiet := DietAttributes(StrToIntDef(AResponse.IValue,0)); + if Piece(ADiet,'^',1)='0' then + begin + InfoBox(Piece(ADiet,'^',2), TC_OP_DIET_ERR, MB_OK); + cboOPDietAvail.ItemIndex := -1; + Changing := False; + Exit; + end; + SetControl(cboOPDietAvail, 'ORDERABLE', 1); + lstOPDietSelect.Items.Add(ADiet); + end; + SetControl(cboOPDelivery, 'DELIVERY', 1); + AResponse := FindResponseByName('MEAL', 1); + if AResponse <> nil then + begin + if AResponse.IValue = 'B' then grpOPMeal.ItemIndex := 0; + if AResponse.IValue = 'N' then grpOPMeal.ItemIndex := 1; + if AResponse.IValue = 'E' then grpOPMeal.ItemIndex := 2; + end; + SetControl(calOPStart, 'START', 1); + SetControl(calOPStop, 'STOP', 1); + calOPStopChange(Self); + AResponse := FindResponseByName('SCHEDULE', 1); + if AResponse <> nil then + begin + chkOPMonday.Checked := Pos('M', AResponse.IValue) > 0; + chkOPTuesday.Checked := Pos('T', AResponse.IValue) > 0; + chkOPWednesday.Checked := Pos('W', AResponse.IValue) > 0; + chkOPThursday.Checked := Pos('R', AResponse.IValue) > 0; + chkOPFriday.Checked := Pos('F', AResponse.IValue) > 0; + chkOPSaturday.Checked := Pos('S', AResponse.IValue) > 0; + chkOPSunday.Checked := Pos('X', AResponse.IValue) > 0; + end; + SetControl(txtOPDietComment, 'COMMENT', 1); + end; {with Responses} + OPDietCheckForNPO; + OPDietCheckForTF; + Changing := False; + OPChange(Self); +end; + +procedure TfrmODDiet.calOPStartEnter(Sender: TObject); +begin + inherited; + FChangeStop := Length(calOPStop.Text) = 0; +end; + +procedure TfrmODDiet.calOPStartChange(Sender: TObject); +begin + inherited; + if Changing then exit; + if FChangeStop then + calOPStop.Text := calOPStart.Text + else + OPChange(Sender); +end; + +function TfrmODDiet.FMDOW(AnFMDate: TFMDateTime): integer; +var + WinDate: TDateTime; + x: integer; +begin + WinDate := FMDateTimeToDateTime(AnFMDate); + x := DayOfTheWeek(WinDate); + Result := x; +end; + +function TfrmODDiet.FMDays(AStart, AEnd: TFMDateTime): string; +var + AWinStart, AWinEnd: TDateTime; + i: double; + Days: string; +begin + AWinStart := FMDateTimeToDateTime(AStart); + AWinEnd := FMDateTimeToDateTime(AEnd); + i := AWinStart; + repeat + Days := Days + FMDayLetters[DayOfTheWeek(i)]; + i := i + 1; + until i > AWinEnd; + Result := Days; +end; + +procedure TfrmODDiet.calOPStartExit(Sender: TObject); +var + Days: string; +begin + inherited; + if not (calOPStart.FMDateTime > 0) then + begin + SetEnableOPDOW(False, -1); + Exit ; + end; + if (Length(calOPStop.Text) > 0) and (calOPStop.Text = calOPStart.Text) then + SetEnableOPDOW(False, FMDOW(calOPStart.FMDateTime)) + else + begin + Days := FMDays(calOPStart.FMDateTime, calOPStop.FMDateTime); + SetEnableOPDOW(True, -1, Days); + end; +end; + +procedure TfrmODDiet.calOPStopChange(Sender: TObject); +var + Days: string; +begin + inherited; + if Changing then exit; + if not (calOPStop.FMDateTime > 0) then + begin + SetEnableOPDOW(False, -1); + Exit ; + end; + if (Length(calOPStop.Text) > 0) and (calOPStop.FMDateTime = calOPStart.FMDateTime) then + SetEnableOPDOW(False, FMDOW(calOPStart.FMDateTime)) + else + begin + Days := FMDays(calOPStart.FMDateTime, calOPStop.FMDateTime); + SetEnableOPDOW(True, -1, Days); + end; + OPChange(Sender); +end; + +procedure TfrmODDiet.OPChange(Sender: TObject); +var + x: string; + //i: integer; +begin + inherited; + if Changing then Exit; + if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + // Per NFS, only one selection allowed from any of 10-15 available OP diets + with lstOPDietSelect do if Items.Count > 0 then + Responses.Update('ORDERABLE', 1, Piece(Items[0], U, 1), Piece(Items[0], U, 2)); + case grpOPMeal.ItemIndex of + 0: Responses.Update('MEAL', 1, 'B', 'BREAKFAST'); + 1: Responses.Update('MEAL', 1, 'N', 'NOON'); + 2: Responses.Update('MEAL', 1, 'E', 'EVENING'); + end; + with calOPStart do (*if Length(Text) > 0 then*) Responses.Update('START', 1, Text, Text); + with calOPStop do (*if Length(Text) > 0 then*) Responses.Update('STOP', 1, Text, Text); + if uDialogName = 'FHW OP MEAL' then + begin + x := GetOPDaysOfWeek; + if Length(x) = 0 then x := 'ONCE'; + Responses.Update('SCHEDULE', 1, x, x); + end; + with txtOPDietComment do {if Length(Text) > 0 then} Responses.Update('COMMENT', 1, Text, Text); + with cboOPDelivery do if Visible then Responses.Update('DELIVERY', 1, ItemID, Text); +{ TODO -oRich V. -cOutpatient Meals : Need to DC Tubefeeding order for OP meals? } +(* with chkOPCancelTubefeeding do case State of + cbChecked: Responses.Update('CANCEL', 1, '1', 'YES'); + cbUnchecked: Responses.Update('CANCEL', 1, '0', 'NO'); + end;*) + Responses.VarTrailing := 'Meal'; + memOrder.Text := Responses.OrderText; +end; + +procedure TfrmODDiet.grpOPMealClick(Sender: TObject); +begin + inherited; + OPChange(Sender); +end; + +procedure TfrmODDiet.SetEnableOPDOW(AllowUse: Boolean; OneTimeDay: integer; DaysToCheck: string = ''); +var + i: integer; +begin + if (not AllowUse) and (OneTimeDay > -1) then + begin + for i := 0 to grpOPDOW.ControlCount - 1 do + begin + if grpOPDOW.Controls[i] is TCheckBox then + TCheckBox(grpOPDOW.Controls[i]).Checked := False; + end; + //TCheckBox(grpOPDOW.Controls[OneTimeDay - 1]).Checked := True; CQ #8305 + end; + grpOPDOW.Enabled := AllowUse; + chkOPMonday.Enabled := AllowUse and (Pos('M', DaysToCheck) > 0); + chkOPTuesday.Enabled := AllowUse and (Pos('T', DaysToCheck) > 0); + chkOPWednesday.Enabled := AllowUse and (Pos('W', DaysToCheck) > 0); + chkOPThursday.Enabled := AllowUse and (Pos('R', DaysToCheck) > 0); + chkOPFriday.Enabled := AllowUse and (Pos('F', DaysToCheck) > 0); + chkOPSaturday.Enabled := AllowUse and (Pos('S', DaysToCheck) > 0); + chkOPSunday.Enabled := AllowUse and (Pos('X', DaysToCheck) > 0); +end; + +function TfrmODDiet.GetOPDaysOfWeek: string; +begin + Result := ''; + if chkOPMonday.Checked then Result := Result + 'M'; + if chkOPTuesday.Checked then Result := Result + 'T'; + if chkOPWednesday.Checked then Result := Result + 'W'; + if chkOPThursday.Checked then Result := Result + 'R'; + if chkOPFriday.Checked then Result := Result + 'F'; + if chkOPSaturday.Checked then Result := Result + 'S'; + if chkOPSunday.Checked then Result := Result + 'X'; +end; + +procedure TfrmODDiet.cmdOPRemoveClick(Sender: TObject); +begin + inherited; + with lstOPDietSelect do if ItemIndex > -1 then Items.Delete(ItemIndex); + OPChange(Sender); + with lstOPDietSelect do if Items.Count = 0 then + begin + lblOPDelivery.Visible := True; + cboOPDelivery.Visible := True; +{ TODO -oRich V. -cOutpatient Meals : Need to DC Tubefeeding order for OP meals? } + chkOPCancelTubefeeding.State := cbGrayed; + chkOPCancelTubefeeding.Visible := False; + end; +end; + +function TfrmODDiet.GetOPMealWindow: string; +begin + case grpOPMeal.ItemIndex of + 0: Result := Pieces(uDietParams.Alarms, U, 1, 2); + 1: Result := Pieces(uDietParams.Alarms, U, 3, 4); + 2: Result := Pieces(uDietParams.Alarms, U, 5, 6); + else + Result := U; + end; +end; + +procedure TfrmODDiet.OPDietCheckForNPO; +begin +{ TODO -oRich V. -cOutpatient Meals : Need NFS input on this section (NPO and special instructions.) } + if Piece(lstOPDietSelect.Items[0], U, 2) = 'NPO' then + begin + lblOPDelivery.Visible := False; + cboOPDelivery.Visible := False; + lblOPComment.Visible := True; + txtOPDietComment.Visible := True; + end else + begin + lblOPComment.Visible := False; + txtOPDietComment.Visible := False; + txtOPDietComment.Text := ''; + end; +end; + +{ TODO -oRich V. -cOutpatient Meals : Need to DC Tubefeeding order for OP meals? } +procedure TfrmODDiet.OPDietCheckForTF; +var + x: string; +begin + with lstOPDietSelect do + begin + if (Items.Count = 1) and (Piece(Items[0], U, 2) <> 'NPO') + and (Length(uDietParams.CurTF) > 0) then + begin + x := TextForOrder(uDietParams.CurTF); + if InfoBox(TX_CANCEL_TF + x, TC_CANCEL_TF, MB_YESNO) = IDYES then + begin + chkOPCancelTubeFeeding.State := cbChecked; + chkOPCancelTubeFeeding.Visible := True; + end + else chkOPCancelTubeFeeding.State := cbUnchecked; + end; {if (Items...} + end; {with lstOPDietSelect} +end; + +{ Common Buttons ---------------------------------------------------------------------------- } + +procedure TfrmODDiet.cmdAcceptClick(Sender: TObject); +var + DCOrder: TOrder; + AResponse, AnotherResponse: TResponse; + LateTrayFields: TLateTrayFields; + NewOrder: TOrder; + CanSign: Integer; +begin + // these actions should be before inherited, so that InitDialog doesn't clear properties + LateTrayFields.LateMeal := #0; // #0 so only create late order if LT dialog invoked + if nbkDiet.ActivePage = pgeDiet then + begin + // create dc tubefeeding order + if chkCancelTubeFeeding.State = cbChecked then + begin + DCOrder := TOrder.Create; + DCOrder.ID := uDietParams.CurTF; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_DC, Integer(DCOrder)); + DCOrder.Free; + end; + // check if late tray should be ordered + AResponse := Responses.FindResponseByName('ORDERABLE', 1); + if (Self.EvtID = 0) and (AResponse <> nil) and (Copy(AResponse.EValue, 1, 3) <> 'NPO') then + begin + AResponse := Responses.FindResponseByName('START', 1); + if AResponse <> nil then CheckLateTray(AResponse.IValue, LateTrayFields, False); + end; + end; +{ TODO -oRich V. -cOutpatient Meals : Need to DC Tubefeeding order for OP meals? } + if nbkDiet.ActivePage = pgeOutPt then + begin + // create dc tubefeeding order + if chkOPCancelTubeFeeding.State = cbChecked then + begin + DCOrder := TOrder.Create; + DCOrder.ID := uDietParams.CurTF; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_DC, Integer(DCOrder)); + DCOrder.Free; + end; + // check if late tray should be ordered + AResponse := Responses.FindResponseByName('ORDERABLE', 1); + if (Self.EvtID = 0) and (AResponse <> nil) and (Copy(AResponse.EValue, 1, 3) <> 'NPO') then + begin + AResponse := Responses.FindResponseByName('START', 1); + AnotherResponse := Responses.FindResponseByName('MEAL', 1); + if (AResponse <> nil) and (AnotherResponse <> nil) then + CheckLateTray(AResponse.IValue, LateTrayFields, True, CharAt(AnotherResponse.IValue, 1)); + end; + end; + inherited; + with LateTrayFields do if LateMeal <> #0 then + begin + NewOrder := TOrder.Create; + OrderLateTray(NewOrder, LateMeal, LateTime, IsBagged); + if NewOrder.ID <> '' then + begin + if OrderForInpatient then + begin + if (Encounter.Provider = User.DUZ) and User.CanSignOrders + then CanSign := CH_SIGN_YES + else CanSign := CH_SIGN_NA; + end + else + begin + CanSign := CH_SIGN_NA; + end; + Changes.Add(CH_ORD, NewOrder.ID, NewOrder.Text, '', CanSign); + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_NEW, Integer(NewOrder)) + end + else InfoBox(TX_EL_SAVE_ERR, TC_EL_SAVE_ERR, MB_OK); + NewOrder.Free; + end; +end; + +procedure TfrmODDiet.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_TAB) then begin + if (ssCtrl in Shift) then begin + if not (ActiveControl is TCustomMemo) or not TMemo(ActiveControl).WantTabs then begin + nbkDiet.SelectNextPage( not (ssShift in Shift)); + Key := 0; + end; + end; + end; +end; + +procedure TfrmODDiet.cboOPDietAvailKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_RETURN then cboOPDietAvailMouseClick(Self); +end; + +function TfrmODDiet.PatientHasRecurringMeals(var MealList: TStringList; MealType: string = ''): boolean; +const + TX_NO_RECURRING_MEALS = 'For outpatients, this type of order requires association with an existing recurring' + CRLF + + 'meal order. There are currently no active recurring meal orders for this patient.' + CRLF + CRLF + + 'Those orders must be signed and released before they can be linked to this item.'; + TC_NO_RECURRING_MEALS = 'Unable to order ' ; +begin + MealList.Clear; + GetCurrentRecurringOPMeals(MealList, MealType); + if MealList.Count = 0 then + begin + InfoBox(TX_NO_RECURRING_MEALS, TC_NO_RECURRING_MEALS + nbkDiet.ActivePage.Caption, MB_OK); + Result := False; + end + else + Result := True; +end; + +end. + diff --git a/CPRS-Chart/Orders/fODDietLT.dfm b/CPRS-Chart/Orders/fODDietLT.dfm new file mode 100644 index 0000000..8b9ee10 --- /dev/null +++ b/CPRS-Chart/Orders/fODDietLT.dfm @@ -0,0 +1,90 @@ +inherited frmODDietLT: TfrmODDietLT + Left = 398 + Top = 254 + Width = 304 + Height = 188 + Caption = 'Late Tray?' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Bevel1: TBevel + Left = 0 + Top = 66 + Width = 296 + Height = 2 + end + object lblMealCutoff: TStaticText + Left = 8 + Top = 16 + Width = 186 + Height = 17 + Caption = 'You have missed the breakfast cut-off.' + TabOrder = 4 + end + object Label2: TStaticText + Left = 8 + Top = 34 + Width = 156 + Height = 17 + Caption = 'Do you wish to order a late tray?' + TabOrder = 5 + end + object GroupBox1: TGroupBox + Left = 109 + Top = 76 + Width = 77 + Height = 78 + Caption = 'Meal Time' + TabOrder = 0 + object radLT1: TRadioButton + Left = 9 + Top = 16 + Width = 56 + Height = 17 + TabOrder = 0 + end + object radLT2: TRadioButton + Left = 9 + Top = 36 + Width = 56 + Height = 17 + TabOrder = 1 + end + object radLT3: TRadioButton + Left = 9 + Top = 56 + Width = 56 + Height = 17 + TabOrder = 2 + end + end + object cmdYes: TButton + Left = 216 + Top = 8 + Width = 72 + Height = 21 + Caption = 'Yes' + Default = True + TabOrder = 1 + OnClick = cmdYesClick + end + object cmdNo: TButton + Left = 216 + Top = 37 + Width = 72 + Height = 21 + Cancel = True + Caption = 'No' + TabOrder = 2 + OnClick = cmdNoClick + end + object chkBagged: TCheckBox + Left = 8 + Top = 76 + Width = 85 + Height = 17 + Caption = 'Bagged Meal' + TabOrder = 3 + end +end diff --git a/CPRS-Chart/Orders/fODDietLT.pas b/CPRS-Chart/Orders/fODDietLT.pas new file mode 100644 index 0000000..d17740c --- /dev/null +++ b/CPRS-Chart/Orders/fODDietLT.pas @@ -0,0 +1,220 @@ +unit fODDietLT; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, ExtCtrls, StdCtrls, ORFn; + +type + TfrmODDietLT = class(TfrmAutoSz) + lblMealCutoff: TStaticText; + Label2: TStaticText; + GroupBox1: TGroupBox; + cmdYes: TButton; + cmdNo: TButton; + radLT1: TRadioButton; + radLT2: TRadioButton; + radLT3: TRadioButton; + chkBagged: TCheckBox; + Bevel1: TBevel; + procedure cmdYesClick(Sender: TObject); + procedure cmdNoClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + FOutpatient: boolean; + YesPressed: Boolean; + public + { Public declarations } + end; + + TLateTrayFields = record + LateMeal: Char; + LateTime: string; + IsBagged: Boolean; + end; + +procedure CheckLateTray(const StartTime: string; var LateTrayFields: TLateTrayFields; IsOutpatient: boolean; AMeal: char = #0); + +implementation + +{$R *.DFM} + +uses rCore, uCore, rODDiet, uConst, rOrders; + +const + TX_MEAL_REQ = 'A meal time must be selected.'; + TC_MEAL_REQ = 'No Meal Time Selected'; + +procedure CheckLateTray(const StartTime: string; var LateTrayFields: TLateTrayFields; IsOutpatient: boolean; AMeal: char = #0); +var + frmODDietLT: TfrmODDietLT; + DietParams: TDietParams; + FMTime: TFMDateTime; + TimePart: Extended; + Meal: Char; + AvailTimes,ALocation: string; + TimeCount: Integer; + + function AMPMToFMTime(const x: string): Extended; + var + IntTime: Integer; + begin + Result := 0; + if Pos(':', x) = 0 then Exit; + IntTime := StrToIntDef(Piece(x, ':', 1) + Copy(Piece(x, ':', 2), 1, 2), 0); + if (Pos('P', x) > 0) and (IntTime < 1200) then IntTime := IntTime + 1200; + if (Pos('A', x) > 0) and (IntTime > 1200) then IntTime := IntTime - 1200; + Result := IntTime / 10000; + end; + + function FMTimeToAMPM(x: Extended): string; + var + TimePart: extended; + AMPMTime, Suffix: string; + begin + TimePart := Frac(x); + if TimePart > 0.1159 then + begin + if TimePart > 0.1259 then x := x - 0.12; + Suffix := 'P' + end + else Suffix := 'A'; + AMPMTime := FormatFMDateTime('hh:nn', x); + Result := AMPMTime + Suffix; + end; + + procedure SetAvailTimes(ATime: Extended; var ACount: Integer; var TimeList: string); + var + i: Integer; + ReturnList: string; + begin + ACount := 0; + ReturnList := ''; + for i := 1 to 3 do + if AMPMToFMTime(Piece(TimeList, U, i)) > ATime then + begin + if Length(ReturnList) > 0 then ReturnList := ReturnList + U; + ReturnList := ReturnList + Piece(TimeList, U, i); + Inc(ACount); + end; + TimeList := ReturnList; + end; + +begin + // initialize LateTrayFields + LateTrayFields.LateMeal := #0; + LateTrayFields.LateTime := ''; + LateTrayFields.IsBagged := False; + // make sure the start time is today and not in the future + FMTime := StrToFMDateTime(StartTime); + if FMTime < 0 then Exit; + if Int(FMTime) <> FMToday then Exit; + TimePart := Frac(FMTime); + if TimePart = 0 then TimePart := Frac(FMNow); + if TimePart > Frac(FMNow) then Exit; + Meal := #0; + ALocation := IntToStr(Encounter.Location); + LoadDietParams(DietParams,ALocation); + // check to see if falling within the alarm range of a meal + if not IsOutpatient then + begin + if (TimePart > (StrToIntDef(Piece(DietParams.Alarms, U, 1), 0) / 10000)) and + (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 2), 0) / 10000)) then Meal := 'B'; + if (TimePart > (StrToIntDef(Piece(DietParams.Alarms, U, 3), 0) / 10000)) and + (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 4), 0) / 10000)) then Meal := 'N'; + if (TimePart > (StrToIntDef(Piece(DietParams.Alarms, U, 5), 0) / 10000)) and + (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 6), 0) / 10000)) then Meal := 'E'; + if Meal = #0 then Exit; + end + else // for outpatients + begin +(* From Rich Knoepfle, NFS developer +If they order a breakfast and it is after the LATE BREAKFAST ALARM END, I don't allow them to do it. (For special meals I don't allow them to order something for the following day). +If it's before the LATE BREAKFAST ALARM BEGIN than I accept the order. +If it's between the LATE BREAKFAST ALARM BEGIN and ALARM END then I ask if they want to order a Late breakfast tray. +*) + Meal := AMeal; + case AMeal of + 'B': if (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 1), 0) / 10000)) or + (TimePart > (StrToIntDef(Piece(DietParams.Alarms, U, 2), 0) / 10000)) then Meal := #0; + 'N': if (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 3), 0) / 10000)) or + (TimePart > (StrToIntDef(Piece(DietParams.Alarms, U, 4), 0) / 10000)) then Meal := #0; + 'E': if (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 5), 0) / 10000)) or + (TimePart > (StrToIntDef(Piece(DietParams.Alarms, U, 6), 0) / 10000)) then Meal := #0; + end; + if Meal = #0 then exit; + end; + + // get the available late times for this meal + case Meal of + 'B': AvailTimes := Pieces(DietParams.BTimes, U, 4, 6); + 'E': AvailTimes := Pieces(DietParams.ETimes, U, 4, 6); + 'N': AvailTimes := Pieces(DietParams.NTimes, U, 4, 6); + end; + SetAvailTimes(TimePart, TimeCount, AvailTimes); + if TimeCount = 0 then Exit; + + // setup form to get the selected late tray + frmODDietLT := TfrmODDietLT.Create(Application); + try + ResizeFormToFont(TForm(frmODDietLT)); + with frmODDietLT do + begin + FOutpatient := IsOutpatient; + if Length(Piece(AvailTimes, U, 1)) > 0 then radLT1.Caption := Piece(AvailTimes, U, 1); + if Length(Piece(AvailTimes, U, 2)) > 0 then radLT2.Caption := Piece(AvailTimes, U, 2); + if Length(Piece(AvailTimes, U, 3)) > 0 then radLT3.Caption := Piece(AvailTimes, U, 3); + radLT1.Visible := Length(radLT1.Caption) > 0; + radLT2.Visible := Length(radLT2.Caption) > 0; + radLT3.Visible := Length(radLT3.Caption) > 0; + radLT1.Checked := TimeCount = 1; + chkBagged.Visible := DietParams.Bagged; + with lblMealCutOff do case Meal of + 'B': Caption := 'You have missed the breakfast cut-off.'; + 'E': Caption := 'You have missed the evening cut-off.'; + 'N': Caption := 'You have missed the noon cut-off.'; + end; + // display the form + ShowModal; + if YesPressed then + begin + with radLT1 do if Checked then LateTrayFields.LateTime := Caption; + with radLT2 do if Checked then LateTrayFields.LateTime := Caption; + with radLT3 do if Checked then LateTrayFields.LateTime := Caption; + LateTrayFields.LateMeal := Meal; + LateTrayFields.IsBagged := chkBagged.Checked; + end; + end; {with frmODDietLT} + finally + frmODDietLT.Release; + end; +end; + +// ---------- frmODDietLT procedures --------------- +procedure TfrmODDietLT.FormCreate(Sender: TObject); +begin + inherited; + YesPressed := False; +end; + +procedure TfrmODDietLT.cmdYesClick(Sender: TObject); +begin + inherited; + if not FOutpatient then + if (radLT1.Checked = False) and (radLT2.Checked = False) and (radLT3.Checked = False) then + begin + InfoBox(TX_MEAL_REQ, TC_MEAL_REQ, MB_OK); + Exit; + end; + YesPressed := True; + Close; +end; + +procedure TfrmODDietLT.cmdNoClick(Sender: TObject); +begin + inherited; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fODGen.dfm b/CPRS-Chart/Orders/fODGen.dfm new file mode 100644 index 0000000..1f2695c --- /dev/null +++ b/CPRS-Chart/Orders/fODGen.dfm @@ -0,0 +1,21 @@ +inherited frmODGen: TfrmODGen + Left = 314 + Top = 410 + Caption = 'frmODGen' + PixelsPerInch = 96 + TextHeight = 13 + object sbxMain: TScrollBox [0] + Left = 0 + Top = 0 + Width = 520 + Height = 185 + Align = alTop + TabOrder = 4 + end + inherited cmdAccept: TButton + Anchors = [akRight, akBottom] + end + inherited cmdQuit: TButton + Anchors = [akRight, akBottom] + end +end diff --git a/CPRS-Chart/Orders/fODGen.pas b/CPRS-Chart/Orders/fODGen.pas new file mode 100644 index 0000000..ee76a82 --- /dev/null +++ b/CPRS-Chart/Orders/fODGen.pas @@ -0,0 +1,600 @@ +unit fODGen; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, ComCtrls, ExtCtrls, StdCtrls, ORDtTm, ORCtrls, ORFn, rODBase; + +type + TDialogCtrl = class + ID: string; + DataType: Char; + Required: Boolean; + Preserve: Boolean; + Prompt: TStaticText; + Editor: TWinControl; + IHidden: string; + EHidden: string; + end; + + TfrmODGen = class(TfrmODBase) + sbxMain: TScrollBox; + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + FilterOut: boolean; + TsID: string; //treating specialty id + TSDomain: string; + AttendID: string; + AttendDomain: string; + procedure ControlChange(Sender: TObject); + procedure LookupNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); + procedure PlaceControls; + procedure PlaceDateTime(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); + procedure PlaceFreeText(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); + procedure PlaceHidden(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); + procedure PlaceNumeric(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); + procedure PlaceSetOfCodes(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); + procedure PlaceYesNo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); + procedure PlaceLookup(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); + procedure PlaceMemo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); + procedure PlaceLabel(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); + protected + FCharHt: Integer; + FCharWd: Integer; + FDialogItemList: TList; + FDialogCtrlList: TList; + FEditorLeft: Integer; + FEditorTop: Integer; + FFirstCtrl: TWinControl; + FLabelWd: Integer; + procedure InitDialog; override; + procedure SetDialogIEN(Value: Integer); override; + procedure Validate(var AnErrMsg: string); override; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + end; + +var + frmODGen: TfrmODGen; + +implementation + +{$R *.DFM} + +uses rCore, rOrders, uConst; + +const + HT_FRAME = 8; + HT_LBLOFF = 3; + HT_SPACE = 6; + WD_MARGIN = 6; + TX_STOPSTART = 'The stop date must be after the start date.'; + +procedure TfrmODGen.FormCreate(Sender: TObject); +var + TheEvtType: string; + IDs,TSstr, AttendStr: string; +begin + inherited; + FilterOut := True; + if Self.EvtID < 1 then + FilterOut := False; + if Self.EvtID > 0 then + begin + TheEvtType := Piece(EventInfo1(IntToStr(Self.EvtId)), '^', 1); + if (TheEvtType = 'A') or (TheEvtType = 'T') or (TheEvtType = 'M') or (TheEvtType = 'O') then + FilterOut := False; + end; + FillerID := 'OR'; // does 'on Display' order check **KCM** + IDs := GetPromptIDs; + TSstr := Piece(IDs,'~',1); + TsDomain := Piece(TSstr,'^', 1); + TsID := Piece(TSstr,'^', 2); + AttendStr := Piece(IDs,'~',2); + AttendDomain := Piece(AttendStr,'^',1); + AttendID := Piece(AttendStr,'^',2); + FDialogItemList := TList.Create; + FDialogCtrlList := TList.Create; +end; + +procedure TfrmODGen.FormClose(Sender: TObject; var Action: TCloseAction); +var + i: Integer; + DialogCtrl: TDialogCtrl; +begin + with FDialogItemList do for i := 0 to Count - 1 do TDialogItem(Items[i]).Free; + with FDialogCtrlList do for i := 0 to Count - 1 do + begin + DialogCtrl := TDialogCtrl(Items[i]); + with DialogCtrl do + begin + if Prompt <> nil then Prompt.Free; + if Editor <> nil then case DataType of + 'D': TORDateBox(Editor).Free; + 'F': TEdit(Editor).Free; + 'N': TEdit(Editor).Free; + 'P': TORComboBox(Editor).Free; + 'R': TORDateBox(Editor).Free; + 'S': TORComboBox(Editor).Free; + 'W': TMemo(Editor).Free; + 'Y': TORComboBox(Editor).Free; + else Editor.Free; + end; + Free; + end; + end; + FDialogItemList.Free; + FDialogCtrlList.Free; + inherited; +end; + +procedure TfrmODGen.SetDialogIEN(Value: Integer); +{ Sets up a generic ordering dialog on the fly. Called before SetupDialog. } +var + DialogNames: TDialogNames; +begin + inherited; + StatusText('Loading Dialog Definition'); + IdentifyDialog(DialogNames, DialogIEN); + Caption := DialogNames.Display; + Responses.Dialog := DialogNames.BaseName; // loads formatting info + LoadOrderPrompting(FDialogItemList, DialogNames.BaseIEN); // loads prompting info + PlaceControls; + StatusText(''); +end; + +procedure TfrmODGen.SetupDialog(OrderAction: Integer; const ID: string); +var + i: Integer; + theEvtInfo: string; + thePromptIen: integer; + AResponse: TResponse; + AnEvtResponse: TResponse; +begin + inherited; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do + begin + Changing := True; + // for copy & edit, SetDialogIEN hasn't been called yet + if (Length(ID) > 0) and (DialogIEN = 0) then SetDialogIEN(DialogForOrder(ID)); + with FDialogCtrlList do for i := 0 to Count -1 do with TDialogCtrl(Items[i]) do + begin + if (ID = 'EVENT') and ( Responses.EventIFN > 0 ) then + begin + thePromptIen := GetIENForPrompt(ID); + if thePromptIen = 0 then + thePromptIen := GetEventPromptID; + AResponse := FindResponseByName('EVENT', 1); + if AResponse <> nil then + begin + theEvtInfo := EventInfo1(AResponse.IValue); + AResponse.EValue := Piece(theEvtInfo,'^',4); + end; + if AResponse = nil then + begin + AnEvtResponse := TResponse.Create; + AnEvtResponse.PromptID := 'EVENT'; + AnEvtResponse.PromptIEN := thePromptIen; + AnEvtResponse.Instance := 1; + AnEvtResponse.IValue := IntToStr(Responses.EventIFN); + theEvtInfo := EventInfo1(AnEvtResponse.IValue); + AnEvtResponse.EValue := Piece(theEvtInfo,'^',4); + Responses.TheList.Add(AnEvtResponse); + end; + end; + if Editor <> nil then SetControl(Editor, ID, 1); + if DataType = 'H' then + begin + AResponse := FindResponseByName(ID, 1); + if AResponse <> nil then + begin + IHidden := AResponse.IValue; + EHidden := AResponse.EValue; + end; {if AResponse} + end; {if DataType} + end; {with TDialogCtrl} + Changing := False; + end; {if OrderAction} + ControlChange(Self); + if (FFirstCtrl <> nil) and (FFirstCtrl.Enabled) then SetFocusedControl(FFirstCtrl); +end; + +procedure TfrmODGen.InitDialog; +var + i: Integer; +begin + inherited; // inherited does a ClearControls (probably never called since always quick order) + {NEED TO CLEAR CONTROLS HERE OR CHANGE ClearControls so can clear children of container} + with FDialogCtrlList do for i := 0 to Count -1 do + with TDialogCtrl(Items[i]) do if (Editor <> nil) and not Preserve then + begin + // treat the list & combo boxes differently so their lists aren't cleared + if (Editor is TListBox) then TListBox(Editor).ItemIndex := -1 + else if (Editor is TComboBox) then + begin + TComboBox(Editor).Text := ''; + TComboBox(Editor).ItemIndex := -1; + end + else if (Editor is TORComboBox) then + begin + TORComboBox(Editor).Text := ''; + TORComboBox(Editor).ItemIndex := -1; + end + else ClearControl(Editor); + end; + if FFirstCtrl <> nil then ActiveControl := FFirstCtrl; +end; + +procedure TfrmODGen.Validate(var AnErrMsg: string); +var + i: Integer; + ALabel, AMsg: string; + AResponse: TResponse; + DialogCtrl: TDialogCtrl; + StartDT, StopDT: TFMDateTime; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + inherited; + with FDialogCtrlList do for i := 0 to Count -1 do + begin + DialogCtrl := TDialogCtrl(Items[i]); + with DialogCtrl do + begin + if Prompt <> nil then ALabel := Piece(Prompt.Caption, ':', 1) else ALabel := ''; + if Required then + begin + AResponse := Responses.FindResponseByName(ID, 1); + if (AResponse = nil) or ((AResponse <> nil) and (AResponse.EValue = '')) + then SetError(ALabel + ' is required.'); + end; + if ((DataType = 'D') or (DataType = 'R')) and (Editor <> nil) then + begin + TORDateBox(Editor).Validate(AMsg); + if Length(AMsg) > 0 then SetError('For ' + ALabel + ': ' + AMsg); + end; + if (DataType = 'N') then + begin + AResponse := Responses.FindResponseByName(ID, 1); + if (AResponse <> nil) and (Length(AResponse.EValue) > 0) then with AResponse do + begin + ValidateNumericStr(EValue, Piece(TEdit(Editor).Hint, '|', 2), AMsg); + if Length(AMsg) > 0 then SetError('For ' + ALabel + ': ' + AMsg); + end; {if AResponse} + end; {if DataType} + end; {with DialogCtrl} + end; {with FDialogCtrlList} + with Responses do + begin + AResponse := FindResponseByName('START', 1); + if AResponse <> nil then StartDT := StrToFMDateTime(AResponse.EValue) else StartDT := 0; + AResponse := FindResponseByName('STOP', 1); + if AResponse <> nil then StopDT := StrToFMDateTime(AResponse.EValue) else StopDT := 0; + if (StopDT > 0) and (StopDT <= StartDT) then SetError(TX_STOPSTART); + end; +end; + +procedure TfrmODGen.PlaceControls; +var + i: Integer; + DialogItem: TDialogItem; + DialogCtrl: TDialogCtrl; +begin + FCharHt := MainFontHeight; + FCharWd := MainFontWidth; + FEditorTop := HT_SPACE; + FLabelWd := 0; + with FDialogItemList do for i := 0 to Count - 1 do with TDialogItem(Items[i]) do + if not Hidden then FLabelWd := HigherOf(FLabelWd, Canvas.TextWidth(Prompt)); + FEditorLeft := FLabelWd + (WD_MARGIN * 2); + with FDialogItemList do for i := 0 to Count - 1 do + begin + DialogItem := TDialogItem(Items[i]); + if FilterOut then + begin + if ( compareText(TsID,DialogItem.Id)=0 ) or ( compareText(TSDomain,DialogItem.Domain)=0) then + Continue; + if (Pos('primary',LowerCase(DialogItem.Prompt)) > 0) then + Continue; + if (compareText(AttendID,DialogItem.ID) = 0) or ( compareText(AttendDomain,DialogItem.Domain)=0 ) then + Continue; + end; + DialogCtrl := TDialogCtrl.Create; + DialogCtrl.ID := DialogItem.ID; + DialogCtrl.DataType := DialogItem.DataType; + DialogCtrl.Required := DialogItem.Required; + DialogCtrl.Preserve := Length(DialogItem.EDefault) > 0; + case DialogItem.DataType of + 'D': PlaceDateTime(DialogCtrl, DialogItem); + 'F': PlaceFreeText(DialogCtrl, DialogItem); + 'H': PlaceHidden(DialogCtrl, DialogItem); + 'N': PlaceNumeric(DialogCtrl, DialogItem); + 'P': PlaceLookup(DialogCtrl, DialogItem); + 'R': PlaceDateTime(DialogCtrl, DialogItem); + 'S': PlaceSetOfCodes(DialogCtrl, DialogItem); + 'W': PlaceMemo(DialogCtrl, DialogItem); + 'Y': PlaceYesNo(DialogCtrl, DialogItem); + end; + FDialogCtrlList.Add(DialogCtrl); + if (DialogCtrl.Editor <> nil) and (FFirstCtrl = nil) then FFirstCtrl := DialogCtrl.Editor; + end; +end; + +procedure TfrmODGen.PlaceDateTime(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); +const + NUM_CHAR = 22; +begin + with DialogCtrl do + begin + Editor := TORDateBox.Create(Self); + Editor.Parent := sbxMain; + Editor.SetBounds(FEditorLeft, FEditorTop, NUM_CHAR * FCharWd, HT_FRAME * FCharHt); + TORDateBox(Editor).DateOnly := Pos('T', DialogItem.Domain) = 0; + with TORDateBox(Editor) do RequireTime := (not DateOnly) and (Pos('R', DialogItem.Domain) > 0); //v26.48 - RV PSI-05-002 + TORDateBox(Editor).Text := DialogItem.EDefault; + TORDateBox(Editor).Hint := DialogItem.HelpText; + TORDateBox(Editor).Caption := DialogItem.Prompt; + if Length(DialogItem.HelpText) > 0 then TORDateBox(Editor).ShowHint := True; + TORDateBox(Editor).OnExit := ControlChange; + PlaceLabel(DialogCtrl, DialogItem); + FEditorTop := FEditorTop + HT_FRAME + FCharHt + HT_SPACE; + end; +end; + +procedure TfrmODGen.PlaceFreeText(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); +begin + with DialogCtrl do + begin + Editor := TCaptionEdit.Create(Self); + Editor.Parent := sbxMain; + Editor.SetBounds(FEditorLeft, FEditorTop, + sbxMain.Width - FEditorLeft - WD_MARGIN - GetSystemMetrics(SM_CXVSCROLL), + HT_FRAME * FCharHt); + TEdit(Editor).MaxLength := StrToIntDef(Piece(DialogItem.Domain, ':', 2), 0); + TEdit(Editor).Text := DialogItem.EDefault; + TEdit(Editor).Hint := DialogItem.HelpText; + TCaptionEdit(Editor).Caption := DialogItem.Prompt; + if Length(DialogItem.HelpText) > 0 then TEdit(Editor).ShowHint := True; + TEdit(Editor).OnChange := ControlChange; + PlaceLabel(DialogCtrl, DialogItem); + FEditorTop := FEditorTop + HT_FRAME + FCharHt + HT_SPACE; + end; +end; + +procedure TfrmODGen.PlaceNumeric(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); +const + NUM_CHAR = 16; +begin + with DialogCtrl do + begin + Editor := TCaptionEdit.Create(Self); + Editor.Parent := sbxMain; + Editor.SetBounds(FEditorLeft, FEditorTop, NUM_CHAR * FCharWd, HT_FRAME * FCharHt); + TEdit(Editor).MaxLength := NUM_CHAR; + TEdit(Editor).Text := DialogItem.EDefault; + TEdit(Editor).Hint := DialogItem.HelpText + '|' + DialogItem.Domain; + TCaptionEdit(Editor).Caption := DialogItem.Prompt; + if Length(DialogItem.HelpText) > 0 then TEdit(Editor).ShowHint := True; + TEdit(Editor).OnChange := ControlChange; + PlaceLabel(DialogCtrl, DialogItem); + FEditorTop := FEditorTop + HT_FRAME + FCharHt + HT_SPACE; + end; +end; + +procedure TfrmODGen.PlaceSetOfCodes(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); +const + NUM_CHAR = 32; +var + x, y: string; +begin + with DialogCtrl do + begin + Editor := TORComboBox.Create(Self); + Editor.Parent := sbxMain; + TORComboBox(Editor).Style := orcsDropDown; + TORComboBox(Editor).ListItemsOnly := True; + TORComboBox(Editor).Pieces := '2'; + Editor.SetBounds(FEditorLeft, FEditorTop, NUM_CHAR * FCharWd, HT_FRAME * FCharHt); + x := DialogItem.Domain; + repeat + y := Piece(x, ';', 1); + Delete(x, 1, Length(y) + 1); + y := Piece(y, ':', 1) + U + Piece(y, ':', 2); + TORComboBox(Editor).Items.Add(y); + until Length(x) = 0; + TORComboBox(Editor).SelectByID(DialogItem.IDefault); + //TORComboBox(Editor).Text := DialogItem.EDefault; + TORComboBox(Editor).Hint := DialogItem.HelpText; + if Length(DialogItem.HelpText) > 0 then TORComboBox(Editor).ShowHint := True; + TORComboBox(Editor).OnChange := ControlChange; + PlaceLabel(DialogCtrl, DialogItem); + FEditorTop := FEditorTop + HT_FRAME + FCharHt + HT_SPACE; + end; +end; + +procedure TfrmODGen.PlaceYesNo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); +const + NUM_CHAR = 9; +begin + with DialogCtrl do + begin + Editor := TORComboBox.Create(Self); + Editor.Parent := sbxMain; + TORComboBox(Editor).Style := orcsDropDown; + TORComboBox(Editor).ListItemsOnly := True; + TORComboBox(Editor).Pieces := '2'; + Editor.SetBounds(FEditorLeft, FEditorTop, NUM_CHAR * FCharWd, HT_FRAME * FCharHt); + TORComboBox(Editor).Items.Add('0^No'); + TORComboBox(Editor).Items.Add('1^Yes'); + TORComboBox(Editor).SelectByID(DialogItem.IDefault); + //TORComboBox(Editor).Text := DialogItem.EDefault; + TORComboBox(Editor).Hint := DialogItem.HelpText; + if Length(DialogItem.HelpText) > 0 then TORComboBox(Editor).ShowHint := True; + TORComboBox(Editor).OnChange := ControlChange; + PlaceLabel(DialogCtrl, DialogItem); + FEditorTop := FEditorTop + HT_FRAME + FCharHt + HT_SPACE; + end; +end; + +procedure TfrmODGen.PlaceLookup(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); +const + NUM_CHAR = 32; +var + idx,defidx,evtChars: integer; + GblRef, XRef: string; + TopTSList: TStringList; +begin + with DialogCtrl do + begin + GblRef := DialogItem.Domain; + if CharAt(GblRef, 1) in ['0'..'9','.'] + then GblRef := GlobalRefForFile(Piece(GblRef, ':', 1)) + else GblRef := Piece(GblRef, ':', 1); + if CharAt(GblRef, 1) <> U then GblRef := U + GblRef; + if Length(DialogItem.CrossRef) > 0 then XRef := DialogItem.CrossRef else XRef := 'B'; + XRef := GblRef + '"' + XRef + '")'; + Editor := TORComboBox.Create(Self); + Editor.Parent := sbxMain; + TORComboBox(Editor).Style := orcsDropDown; + TORComboBox(Editor).ListItemsOnly := True; + TORComboBox(Editor).Pieces := '2'; + TORComboBox(Editor).LongList := True; + // 2nd bar piece of hint is not visible, hide xref, global ref, & screen code in tab pieces + TORComboBox(Editor).Hint := DialogItem.HelpText + '|' + XRef + #9 + GblRef + #9 + + DialogItem.ScreenRef; + if ( compareText(TsID,DialogItem.Id)=0 ) or (compareText(TSDomain,DialogItem.Domain)=0)then + begin + TopTSList := TStringList.Create; + DialogItem.IDefault := Piece(GetDefaultTSForEvt(Self.EvtID),'^',1); + GetTSListForEvt(TStrings(TopTSList),Self.EvtID); + if TopTSList.Count > 0 then + begin + if Length(DialogItem.IDefault)>0 then + begin + defidx := -1; + for idx := 0 to topTSList.Count - 1 do + if Piece(TopTSList[idx],'^',1)= DialogItem.IDefault then + begin + defidx := idx; + break; + end; + if defidx >= 0 then + topTSList.Move(defidx,0); + end; + with TORComboBox(Editor) do + begin + Items.AddStrings(TStrings(TopTSList)); + LongList := false; + end; + end else + TORComboBox(Editor).OnNeedData := LookupNeedData; + if Length(DialogItem.IDefault)<1 then + DialogItem.IDefault := '0'; + end else + TORComboBox(Editor).OnNeedData := LookupNeedData; + Editor.SetBounds(FEditorLeft, FEditorTop, NUM_CHAR * FCharWd, HT_FRAME * FCharHt); + TORComboBox(Editor).InitLongList(DialogItem.EDefault); + TORComboBox(Editor).SelectByID(DialogItem.IDefault); + if Length(DialogItem.HelpText) > 0 then TORComboBox(Editor).ShowHint := True; + TORComboBox(Editor).OnChange := ControlChange; + if ( AnsiCompareText(ID,'EVENT')=0 ) and (Self.EvtID>0)then + begin + evtChars := length(Responses.EventName); + if evtChars > NUM_CHAR then + Editor.SetBounds(FEditorLeft, FEditorTop, (evtChars + 6) * FCharWd, HT_FRAME * FCharHt); + TORComboBox(Editor).Enabled := False; + end; + PlaceLabel(DialogCtrl, DialogItem); + FEditorTop := FEditorTop + HT_FRAME + FCharHt + HT_SPACE; + end; +end; + +procedure TfrmODGen.LookupNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +var + XRef, GblRef, ScreenRef: string; +begin + inherited; + XRef := Piece(TORComboBox(Sender).Hint, '|', 2); + GblRef := Piece(XRef, #9, 2); + ScreenRef := Piece(XRef, #9, 3); + XRef := Piece(XRef, #9, 1); + TORComboBox(Sender).ForDataUse(SubsetOfEntries(StartFrom, Direction, XRef, GblRef, ScreenRef)); +end; + +procedure TfrmODGen.PlaceMemo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); +const + NUM_LINES = 3; +begin + with DialogCtrl do + begin + Editor := TCaptionMemo.Create(Self); + Editor.Parent := sbxMain; + Editor.SetBounds(FEditorLeft, FEditorTop, + sbxMain.Width - FEditorLeft - WD_MARGIN - GetSystemMetrics(SM_CXVSCROLL), + (FCharHt * NUM_LINES) + HT_FRAME); + TMemo(Editor).Text := DialogItem.EDefault; + TMemo(Editor).Hint := DialogItem.HelpText; + TCaptionMemo(Editor).Caption := DialogItem.Prompt; + if Length(DialogItem.HelpText) > 0 then TMemo(Editor).ShowHint := True; + TMemo(Editor).ScrollBars := ssVertical; + TMemo(Editor).OnChange := ControlChange; + PlaceLabel(DialogCtrl, DialogItem); + FEditorTop := FEditorTop + HT_FRAME + (FCharHt * 3) + HT_SPACE; + end; +end; + +procedure TfrmODGen.PlaceHidden(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); +begin + DialogCtrl.IHidden := DialogItem.IDefault; + DialogCtrl.EHidden := DialogItem.EDefault; +end; + +procedure TfrmODGen.PlaceLabel(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); +begin + with DialogCtrl do + begin + Prompt := TStaticText.Create(Self); + Prompt.Parent := sbxMain; + Prompt.Caption := DialogItem.Prompt; + Prompt.AutoSize := False; + Prompt.SetBounds(WD_MARGIN, FEditorTop + HT_LBLOFF, FLabelWd, FCharHt); + Prompt.Alignment := taRightJustify; + Prompt.Visible := True; + end; +end; + +procedure TfrmODGen.ControlChange(Sender: TObject); +var + i: Integer; +begin + inherited; + if Changing then Exit; + with FDialogCtrlList do for i := 0 to Count - 1 do with TDialogCtrl(Items[i]) do + begin + case DataType of + 'D': Responses.Update(ID, 1, FloatToStr(TORDateBox(Editor).FMDateTime), + TORDateBox(Editor).Text); + 'F': Responses.Update(ID, 1, TEdit(Editor).Text, TEdit(Editor).Text); + 'H': Responses.Update(ID, 1, IHidden, EHidden); + 'N': Responses.Update(ID, 1, TEdit(Editor).Text, TEdit(Editor).Text); + 'P': Responses.Update(ID, 1, TORComboBox(Editor).ItemID, TORComboBox(Editor).Text); + 'R': Responses.Update(ID, 1, TORDateBox(Editor).Text, TORDateBox(Editor).Text); + 'S': Responses.Update(ID, 1, TORComboBox(Editor).ItemID, TORComboBox(Editor).Text); + 'W': Responses.Update(ID, 1, TX_WPTYPE, TMemo(Editor).Text); + 'Y': Responses.Update(ID, 1, TORComboBox(Editor).ItemID, TORComboBox(Editor).Text); + end; + end; + memOrder.Text := Responses.OrderText; +end; + +end. + diff --git a/CPRS-Chart/Orders/fODLab.dfm b/CPRS-Chart/Orders/fODLab.dfm new file mode 100644 index 0000000..4bc8cb5 --- /dev/null +++ b/CPRS-Chart/Orders/fODLab.dfm @@ -0,0 +1,581 @@ +inherited frmODLab: TfrmODLab + Tag = 120 + Left = 245 + Top = 263 + Width = 523 + Height = 271 + Caption = 'Order a Lab Test' + PixelsPerInch = 96 + TextHeight = 13 + object lblAvailTests: TLabel [0] + Left = 6 + Top = 4 + Width = 93 + Height = 13 + Caption = 'Available Lab Tests' + end + object lblCollTime: TLabel [1] + Left = 148 + Top = 152 + Width = 100 + Height = 13 + Caption = 'Collection Date/Time' + end + object lblTestName: TLabel [2] + Left = 180 + Top = 4 + Width = 3 + Height = 13 + ShowAccelChar = False + end + object lblCollSamp: TLabel [3] + Left = 187 + Top = 31 + Width = 70 + Height = 13 + Caption = 'Collect Sample' + end + object lblSpecimen: TLabel [4] + Left = 210 + Top = 58 + Width = 47 + Height = 13 + Caption = 'Specimen' + end + object lblUrgency: TLabel [5] + Left = 217 + Top = 85 + Width = 40 + Height = 13 + Caption = 'Urgency' + end + object lblAddlComment: TLabel [6] + Left = 187 + Top = 107 + Width = 93 + Height = 13 + Caption = 'Additional Comment' + Visible = False + end + object bvlTestName: TBevel [7] + Left = 180 + Top = 18 + Width = 338 + Height = 130 + Style = bsRaised + end + object lblFrequency: TLabel [8] + Left = 326 + Top = 152 + Width = 57 + Height = 13 + Caption = 'How Often?' + end + object lblReqComment: TOROffsetLabel [9] + Left = 386 + Top = 0 + Width = 96 + Height = 19 + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblHowManyDays: TLabel [10] + Left = 431 + Top = 152 + Width = 55 + Height = 13 + Caption = 'How Long?' + end + object lblCollType: TLabel [11] + Left = 7 + Top = 152 + Width = 73 + Height = 13 + Caption = 'Collection Type' + end + inherited memOrder: TCaptionMemo + TabOrder = 20 + end + object txtImmedColl: TCaptionEdit [13] + Left = 149 + Top = 166 + Width = 141 + Height = 21 + Color = clBtnFace + ReadOnly = True + TabOrder = 14 + Text = 'txtImmedColl' + end + object calCollTime: TORDateBox [14] + Left = 149 + Top = 166 + Width = 165 + Height = 21 + TabOrder = 13 + OnChange = ControlChange + DateOnly = False + RequireTime = False + end + object pnlUrineVolume: TORAutoPanel [15] + Left = 378 + Top = 25 + Width = 133 + Height = 118 + BevelInner = bvLowered + BevelOuter = bvNone + TabOrder = 8 + object lblUrineVolume: TOROffsetLabel + Left = 6 + Top = 29 + Width = 111 + Height = 15 + Caption = 'Enter the urine volume:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object txtUrineVolume: TCaptionEdit + Left = 5 + Top = 56 + Width = 121 + Height = 21 + TabOrder = 0 + OnExit = txtUrineVolumeExit + end + end + object pnlAntiCoagulation: TORAutoPanel [16] + Left = 378 + Top = 25 + Width = 133 + Height = 118 + BevelInner = bvLowered + BevelOuter = bvNone + TabOrder = 7 + object lblAntiCoagulant: TOROffsetLabel + Left = 6 + Top = 8 + Width = 97 + Height = 41 + Caption = 'What kind of anticoagulant is the patient on?' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = True + end + object txtAntiCoagulant: TCaptionEdit + Left = 6 + Top = 56 + Width = 121 + Height = 21 + TabOrder = 0 + OnExit = txtAntiCoagulantExit + end + end + object pnlOrderComment: TORAutoPanel [17] + Left = 378 + Top = 25 + Width = 133 + Height = 118 + BevelInner = bvLowered + BevelOuter = bvNone + TabOrder = 6 + Visible = False + object lblOrderComment: TOROffsetLabel + Left = 6 + Top = 37 + Width = 103 + Height = 15 + Caption = 'Enter order comment:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = True + end + object txtOrderComment: TCaptionEdit + Left = 6 + Top = 57 + Width = 121 + Height = 21 + TabOrder = 0 + OnExit = txtOrderCommentExit + end + end + object pnlHide: TORAutoPanel [18] + Left = 378 + Top = 25 + Width = 133 + Height = 118 + BevelOuter = bvNone + TabOrder = 5 + end + object pnlDoseDraw: TORAutoPanel [19] + Left = 378 + Top = 25 + Width = 133 + Height = 118 + BevelInner = bvLowered + BevelOuter = bvNone + TabOrder = 10 + object lblDose: TOROffsetLabel + Left = 10 + Top = 15 + Width = 115 + Height = 15 + Caption = 'Enter the last dose time:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblDraw: TOROffsetLabel + Left = 10 + Top = 68 + Width = 78 + Height = 15 + Caption = 'Enter draw time:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object txtDoseTime: TCaptionEdit + Left = 10 + Top = 31 + Width = 112 + Height = 21 + TabOrder = 0 + OnExit = txtDoseTimeExit + end + object txtDrawTime: TCaptionEdit + Left = 10 + Top = 85 + Width = 112 + Height = 21 + TabOrder = 1 + OnExit = txtDrawTimeExit + end + end + object pnlPeakTrough: TORAutoPanel [20] + Left = 378 + Top = 25 + Width = 133 + Height = 118 + BevelInner = bvLowered + BevelOuter = bvNone + TabOrder = 9 + object lblPeakTrough: TOROffsetLabel + Left = 6 + Top = 7 + Width = 82 + Height = 13 + Caption = 'Sample drawn at:' + HorzOffset = 0 + Transparent = False + VertOffset = 0 + WordWrap = True + end + object grpPeakTrough: TRadioGroup + Left = 6 + Top = 20 + Width = 120 + Height = 89 + Items.Strings = ( + '&Peak' + '&Trough' + '&Mid' + '&Unknown') + TabOrder = 0 + OnClick = grpPeakTroughClick + end + end + inherited cmdAccept: TButton + Left = 443 + TabOrder = 18 + end + inherited cmdQuit: TButton + TabOrder = 19 + end + inherited pnlMessage: TPanel + Left = 18 + Top = 192 + Height = 56 + TabOrder = 21 + inherited imgMessage: TImage + Top = 11 + end + inherited memMessage: TRichEdit + Left = 41 + Top = 5 + Height = 43 + PopupMenu = MessagePopup + end + end + object pnlCollTimeButton: TKeyClickPanel + Left = 288 + Top = 167 + Width = 20 + Height = 19 + BevelOuter = bvNone + Caption = 'Select collection time' + TabOrder = 15 + TabStop = True + OnClick = cmdImmedCollClick + OnEnter = pnlCollTimeButtonEnter + OnExit = pnlCollTimeButtonExit + object cmdImmedColl: TSpeedButton + Left = 1 + Top = 1 + Width = 18 + Height = 17 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + Glyph.Data = { + D6000000424DD60000000000000076000000280000000C0000000C0000000100 + 0400000000006000000000000000000000001000000010000000000000000000 + 80000080000000808000800000008000800080800000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 0000333333333333000033333333333300003333333333330000300330033003 + 0000300330033003000033333333333300003333333333330000333333333333 + 0000333333333333000033333333333300003333333333330000} + ParentFont = False + ParentShowHint = False + ShowHint = False + OnClick = cmdImmedCollClick + end + end + object cboAvailTest: TORComboBox + Left = 6 + Top = 18 + Width = 168 + Height = 130 + Style = orcsSimple + AutoSelect = True + Caption = 'Available Lab Tests' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnClick = cboAvailTestSelect + OnExit = cboAvailTestExit + OnNeedData = cboAvailTestNeedData + CharsNeedMatch = 1 + end + object cboFrequency: TORComboBox + Left = 326 + Top = 166 + Width = 97 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'How Often?' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 16 + OnChange = cboFrequencyChange + CharsNeedMatch = 1 + end + object cboCollSamp: TORComboBox + Left = 269 + Top = 28 + Width = 100 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Collect Sample' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnChange = cboCollSampChange + OnEnter = cboCollSampMouseClick + OnKeyPause = cboCollSampKeyPause + OnMouseClick = cboCollSampMouseClick + CharsNeedMatch = 1 + end + object cboSpecimen: TORComboBox + Left = 269 + Top = 55 + Width = 100 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Specimen' + Color = clWindow + DropDownCount = 10 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + Pieces = '2' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + OnChange = cboSpecimenChange + OnEnter = cboSpecimenMouseClick + OnKeyPause = cboSpecimenKeyPause + OnMouseClick = cboSpecimenMouseClick + CharsNeedMatch = 1 + end + object cboUrgency: TORComboBox + Left = 269 + Top = 82 + Width = 100 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Urgency' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 3 + OnChange = cboUrgencyChange + CharsNeedMatch = 1 + end + object txtAddlComment: TCaptionEdit + Left = 187 + Top = 122 + Width = 180 + Height = 21 + TabOrder = 4 + Visible = False + OnExit = txtAddlCommentExit + Caption = 'Additional Comment' + end + object txtDays: TCaptionEdit + Left = 430 + Top = 166 + Width = 84 + Height = 21 + Hint = 'Enter a number of days, or an "X" followed by a number of times.' + Enabled = False + TabOrder = 17 + OnChange = ControlChange + Caption = 'How Long?' + end + object FLabCommonCombo: TORListBox + Left = 440 + Top = 247 + Width = 121 + Height = 97 + TabStop = False + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 22 + Visible = False + ItemTipColor = clWindow + LongList = False + end + object cboCollTime: TORComboBox + Left = 149 + Top = 166 + Width = 168 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Collection Date/Time' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 12 + OnChange = cboCollTimeChange + OnExit = cboCollTimeExit + CharsNeedMatch = 1 + end + object cboCollType: TORComboBox + Left = 6 + Top = 166 + Width = 136 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Collection Type' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 11 + OnChange = cboCollTypeChange + CharsNeedMatch = 1 + end + object dlgLabCollTime: TORDateTimeDlg + FMDateTime = 2980923 + DateOnly = False + RequireTime = True + Left = 219 + Top = 4 + end + object MessagePopup: TPopupMenu + Left = 340 + Top = 218 + object ViewinReportWindow1: TMenuItem + Caption = '&View in Report Window' + OnClick = ViewinReportWindow1Click + end + end +end diff --git a/CPRS-Chart/Orders/fODLab.pas b/CPRS-Chart/Orders/fODLab.pas new file mode 100644 index 0000000..b64459f --- /dev/null +++ b/CPRS-Chart/Orders/fODLab.pas @@ -0,0 +1,1979 @@ +unit fODLab; + +interface + +uses + SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, + Forms, Dialogs, StdCtrls, ORCtrls, ORfn, fODBase, ExtCtrls, ComCtrls, uConst, + ORDtTm, Buttons, Menus; + +type + TfrmODLab = class(TfrmODBase) + lblAvailTests: TLabel; + cboAvailTest: TORComboBox; + lblCollTime: TLabel; + cboFrequency: TORComboBox; + lblTestName: TLabel; + lblCollSamp: TLabel; + cboCollSamp: TORComboBox; + lblSpecimen: TLabel; + cboSpecimen: TORComboBox; + lblUrgency: TLabel; + cboUrgency: TORComboBox; + lblAddlComment: TLabel; + txtAddlComment: TCaptionEdit; + txtDays: TCaptionEdit; + bvlTestName: TBevel; + lblFrequency: TLabel; + pnlHide: TORAutoPanel; + pnlOrderComment: TORAutoPanel; + lblOrderComment: TOROffsetLabel; + pnlAntiCoagulation: TORAutoPanel; + lblAntiCoagulant: TOROffsetLabel; + txtAntiCoagulant: TCaptionEdit; + pnlUrineVolume: TORAutoPanel; + lblUrineVolume: TOROffsetLabel; + txtUrineVolume: TCaptionEdit; + pnlPeakTrough: TORAutoPanel; + lblPeakTrough: TOROffsetLabel; + grpPeakTrough: TRadioGroup; + lblReqComment: TOROffsetLabel; + pnlDoseDraw: TORAutoPanel; + lblDose: TOROffsetLabel; + lblDraw: TOROffsetLabel; + txtDoseTime: TCaptionEdit; + txtDrawTime: TCaptionEdit; + txtOrderComment: TCaptionEdit; + FLabCommonCombo: TORListBox; + lblHowManyDays: TLabel; + cboCollTime: TORComboBox; + lblCollType: TLabel; + pnlCollTimeButton: TKeyClickPanel; + cboCollType: TORComboBox; + calCollTime: TORDateBox; + dlgLabCollTime: TORDateTimeDlg; + txtImmedColl: TCaptionEdit; + cmdImmedColl: TSpeedButton; + MessagePopup: TPopupMenu; + ViewinReportWindow1: TMenuItem; + procedure FormCreate(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure cboAvailTestNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); + procedure cboAvailTestSelect(Sender: TObject); + procedure cboCollSampChange(Sender: TObject); + procedure cboUrgencyChange(Sender: TObject); + procedure cboSpecimenChange(Sender: TObject); + procedure txtAddlCommentExit(Sender: TObject); + procedure cboCollTimeChange(Sender: TObject); + procedure cboFrequencyChange(Sender: TObject); + procedure cboCollTypeChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure txtOrderCommentExit(Sender: TObject); + procedure txtAntiCoagulantExit(Sender: TObject); + procedure txtUrineVolumeExit(Sender: TObject); + procedure grpPeakTroughClick(Sender: TObject); + procedure txtDoseTimeExit(Sender: TObject); + procedure txtDrawTimeExit(Sender: TObject); + procedure DisableCommentPanels; + procedure cboAvailTestExit(Sender: TObject); + procedure cboCollSampKeyPause(Sender: TObject); + procedure cboCollSampMouseClick(Sender: TObject); + procedure cboCollTimeExit(Sender: TObject); + procedure cboSpecimenMouseClick(Sender: TObject); + procedure cboSpecimenKeyPause(Sender: TObject); + procedure cmdImmedCollClick(Sender: TObject); + procedure pnlCollTimeButtonEnter(Sender: TObject); + procedure pnlCollTimeButtonExit(Sender: TObject); + procedure ViewinReportWindow1Click(Sender: TObject); + protected + FCmtTypes: TStringList ; + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + function ValidCollTime(UserEntry: string): string; + procedure DoseDrawComment; + procedure GetAllCollSamples(AComboBox: TORComboBox); + procedure GetAllSpecimens(AComboBox: TORComboBox); + procedure SetupCollTimes(CollType: string); + procedure LoadCollType(AComboBox:TORComboBox); + private + FLastCollType: string; + FLastCollTime: string; + FLastLabCollTime: string; + FLastLabID: string; + FLastItemID: string; + FEvtDelayLoc: integer; + FEvtDivision: integer; + procedure ReadServerVariables; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + procedure LoadRequiredComment(CmtType: integer); + procedure DetermineCollectionDefaults(Responses: TResponses); + property EvtDelayLoc: integer read FEvtDelayLoc write FEvtDelayLoc; + property EvtDivision: integer read FEvtDivision write FEvtDivision; + end; + + type + TCollSamp = class(TObject) + CollSampID: Integer; { IEN of CollSamp } + CollSampName: string; { Name of CollSamp } + SpecimenID: Integer; { IEN of default specimen } + SpecimenName: string; { Name of the specimen } + TubeColor: string; { TubeColor (text) } + MinInterval: Integer; { Minimum days between orders } + MaxPerDay: Integer; { Maximum orders per day } + LabCanCollect: Boolean; { True if lab can collect } + SampReqComment: string; { Name of required comment } + WardComment: TStringList; { CollSamp specific comment } + end; + + TLabTest = class(TObject) + TestID: Integer; { IEN of Lab Test } + TestName: string; { Name of Lab Test } + LabSubscript: string ; { which section of Lab? } + CollSamp: Integer; { index into CollSampList } + Specimen: Integer; { IEN of specimen } + Urgency: Integer; { IEN of urgency } + Comment: TStringList; { text of comment } + TestReqComment: string; { Name of required comment } + CurReqComment: string; { name of required comment } + CurWardComment: TStringList; { WP of Ward Comment } + UniqueCollSamp: Boolean; { true if not prompt CollSamp } + CollSampList: TList; { collection sample objects } + CollSampCount: integer; { count of original contents of CollSampList} + SpecimenList: TStringList; { Strings: IEN^Specimen Name } + SpecListCount: integer; { count of original contents of SpecimenList} + UrgencyList: TStringList; { Strings: IEN^Urgency Name } + ForceUrgency: Boolean; { true if not prompt Urgency } + QuickOrderResponses: TResponses; { if created as a result of a quick order selection} + { functions & procedures } + constructor Create(const LabTestIEN: string; Responses: TResponses); + destructor Destroy; override ; + function IndexOfCollSamp(CollSampIEN: Integer): Integer; + procedure FillCollSampList(LoadData: TStringList; DfltCollSamp: Integer); + procedure LoadAllSamples; + procedure SetCollSampDflts; + procedure ChangeCollSamp(CollSampIEN: Integer); + procedure ChangeSpecimen(const SpecimenIEN: string); + procedure ChangeUrgency(const UrgencyIEN: string); + procedure ChangeComment(const CommentText: string); + function LabCanCollect: Boolean; + procedure LoadCollSamp(AComboBox: TORComboBox); + procedure LoadSpecimen(AComboBox: TORComboBox); + procedure LoadUrgency(CollType: string; AComboBox:TORComboBox); + function NameOfCollSamp: string; + function NameOfSpecimen: string; + function NameOfUrgency: string; + function ObtainCollSamp: Boolean; + function ObtainSpecimen: Boolean; + function ObtainUrgency: Boolean; + function ObtainComment: Boolean; + end; + +const + CmtType: array[0..6] of string = ('ANTICOAGULATION','DOSE/DRAW TIMES','ORDER COMMENT', + 'ORDER COMMENT MODIFIED','TDM (PEAK-TROUGH)', + 'TRANSFUSION','URINE VOLUME'); + +implementation + +{$R *.DFM} + +uses rODBase, rODLab, uCore, rCore, fODLabOthCollSamp, fODLabOthSpec, fODLabImmedColl, fLabCollTimes, + rOrders, uODBase, fRptBox, fFrame; + + +var + uDfltUrgency: Integer; + uDfltCollType: string; + ALabTest: TLabTest; + UserHasLRLABKey: boolean; + LRFZX : string; //the default collection type (LC,WC,SP,I) + LRFSAMP : string; //the default sample (ptr) + LRFSPEC : string; //the default specimen (ptr) + LRFDATE : string; //the default collection time (NOW,NEXT,AM,PM,T...) + LRFURG : string; //the default urgency (number) TRY '2' + LRFSCH : string; //the default schedule? (ONE TIME, QD, ...) + +const + TX_NO_TEST = 'A Lab Test must be specified.' ; + TX_NO_IMMED = 'Immediate collect is not available for this test/sample'; + TX_NO_IMMED_CAP = 'Invalid Collection Type'; + +{ base form procedures shared by all dialogs ------------------------------------------------ } + +procedure TfrmODLab.FormCreate(Sender: TObject); +var + i, n: integer; + AList: TStringList; +begin + frmFrame.pnlVisit.Enabled := false; + AutoSizeDisabled := True; + inherited; + AList := TStringList.Create; + try + LRFZX := ''; + LRFSAMP := ''; + LRFSPEC := ''; + LRFDATE := ''; + LRFURG := ''; + LRFSCH := ''; + FLastColltime := ''; + FLastLabCollTime := ''; + FLastItemID := ''; + uDfltCollType := ''; + FillerID := 'LR'; + FEvtDelayLoc := 0; + FEvtDivision := 0; + UserHasLRLABKey := User.HasKey('LRLAB'); + AllowQuickOrder := True; + StatusText('Loading Dialog Definition'); + pnlHide.BringToFront; + lblReqComment.Visible := False ; + FCmtTypes := TStringList.Create; + for i := 0 to 6 do FCmtTypes.Add(CmtType[i]) ; + Responses.Dialog := 'LR OTHER LAB TESTS'; // loads formatting info + StatusText('Loading Default Values'); + if Self.EvtID > 0 then + begin + EvtDelayLoc := StrToIntDef(GetEventLoc1(IntToStr(Self.EvtID)),0); + EvtDivision := StrToIntDef(GetEventDiv1(IntToStr(Self.EvtID)),0); + if EvtDelayLoc>0 then + AList.Assign(ODForLab(EvtDelayLoc,EvtDivision)) + else + AList.Assign(ODForLab(Encounter.Location,EvtDivision)); + end else + AList.Assign(ODForLab(Encounter.Location)); // ODForLab returns TStrings with defaults + CtrlInits.LoadDefaults(AList); + InitDialog; + with CtrlInits do + begin + SetControl(cboCollType, 'Collection Types'); + uDfltCollType := ExtractDefault(AList, 'Collection Types'); + if uDfltCollType <> '' then + cboCollType.SelectByID(uDfltCollType) + else if OrderForInpatient then + cboCollType.SelectByID('LC') + else + cboCollType.SelectByID('SP'); + SetupCollTimes(cboCollType.ItemID); + StatusText('Initializing List of Tests'); + SetControl(cboAvailTest, 'ShortList'); + if cboAvailTest.Items.Count > 0 then cboAvailTest.InsertSeparator; + cboAvailTest.InitLongList(''); + SetControl(cboFrequency, 'Schedules'); + with cboFrequency do + begin + if ItemIndex < 0 then ItemIndex := Items.IndexOf('ONE TIME'); + if ItemIndex < 0 then ItemIndex := Items.IndexOf('ONCE'); + end; + lblHowManyDays.Enabled := False; { have this call change event in case } + txtDays.Enabled := False; { the default is not 'one time'? } + end; + if EvTDelayLoc>0 then + n := MaxDays(EvtDelayLoc, 0) + else + n := MaxDays(Encounter.Location, 0); + if n < 0 then with cboFrequency do + begin + ItemIndex := Items.IndexOf('ONE TIME'); + if ItemIndex = -1 then ItemIndex := Items.IndexOf('ONCE'); + Enabled := False; + Font.Color := clGrayText; + lblFrequency.Enabled := False; + end; + PreserveControl(cboAvailTest); + PreserveControl(cboCollType); + PreserveControl(cboCollTime); + PreserveControl(calCollTime); + PreserveControl(cboFrequency); + PreserveControl(txtDays); + StatusText(''); + finally + AList.Free; + end; +end; + +procedure TfrmODLab.InitDialog; +begin + inherited; + Changing := True; + if ALabTest <> nil then + begin + ALabTest.Destroy; + ALabTest := nil; + end; + with CtrlInits do + begin + SetControl(cboUrgency, 'Default Urgency') ; + uDfltUrgency := StrToInt(Piece(cboUrgency.Items[0],U,1)); + end; + lblTestName.Caption := ''; + DisableCommentPanels; + cboAvailTest.SelectByID(FLastItemID); + ActiveControl := cboAvailTest; + cboAvailTest.ItemIndex := -1; + StatusText(''); + Changing := False ; +end; + +procedure TfrmODLab.SetupDialog(OrderAction: Integer; const ID: string); +var + tmpResp: TResponse; + i: integer; +begin + inherited; + ReadServerVariables; + if LRFZX <> '' then + begin + cboCollType.SelectByID(LRFZX); + if cboCollType.ItemIndex > -1 then SetupCollTimes(LRFZX); + end; + if (LRFSCH <> '') and (cboFrequency.Enabled) then + begin + cboFrequency.ItemIndex := cboFrequency.Items.IndexOf(LRFSCH); + cboFrequencyChange(Self); + end; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses, ALabTest do + begin + SetControl(cboAvailTest, 'ORDERABLE', 1); + cboAvailTestSelect(Self); + if ALabTest = nil then Exit; // Causes access violation in FillCollSampleList + Changing := True; + SetControl(cboFrequency, 'SCHEDULE', 1); + SetControl(txtDays, 'DAYS', 1); + tmpResp := FindResponseByName('SAMPLE' ,1); + if (tmpResp <> nil) and (tmpResp.IValue <> '') then with cboCollSamp do + begin + SelectByID(tmpResp.IValue); + if ItemIndex < 0 then + begin + LoadAllSamples; + Items.Insert(0, tmpResp.IValue + U + tmpResp.EValue); + ItemIndex := 0 ; + end; + end; + cboCollSampChange(Self); + DetermineCollectionDefaults(Responses); + tmpResp := FindResponseByName('SPECIMEN' ,1); + if (tmpResp <> nil) and (tmpResp.IValue <> '') then with cboSpecimen do + begin + SelectByID(tmpResp.IValue); + if ItemIndex < 0 then + begin + if ALabTest <> nil then + ALabTest.SpecimenList.Add(tmpResp.IValue + U + tmpResp.EValue); + Items.Insert(0, tmpResp.IValue + U + tmpResp.EValue); + ItemIndex := 0 ; + end; + end + else + if (LRFSPEC <> '') then cboSpecimen.SelectByID(LRFSPEC); + if ALabTest <> nil then Specimen := cboSpecimen.ItemIEN; + if ALabTest <> nil then AlabTest.LoadUrgency(cboCollType.ItemID, cboUrgency); + SetControl(cboUrgency, 'URGENCY', 1); + if cboUrgency.ItemIEN = 0 then + begin + if StrToIntDef(LRFURG, 0) > 0 then + cboUrgency.SelectByID(LRFURG) + else if (ALabTest <> nil) and (Urgency = 0) and (cboUrgency.Items.Count = 1) then + cboUrgency.ItemIndex := 0; + end; + if ALabTest <> nil then Urgency := cboUrgency.ItemIEN; + i := 1 ; + tmpResp := Responses.FindResponseByName('COMMENT',i); + while tmpResp <> nil do + begin + Comment.Add(tmpResp.EValue); + Inc(i); + tmpResp := Responses.FindResponseByName('COMMENT',i); + end ; + with cboFrequency do + if not Enabled then + begin + ItemIndex := Items.IndexOf('ONE TIME'); + if ItemIndex = -1 then ItemIndex := Items.IndexOf('ONCE'); + end; + cboFrequencyChange(Self); + Changing := False; + ControlChange(Self); + end; +end; + +{ dialog specific event procedures follow here ---------------------------------------------- } + +constructor TLabTest.Create(const LabTestIEN: string; Responses: TResponses); +var + LoadData, OneSamp: TStringList; + DfltCollSamp: Integer; + x: string; + tmpResp: TResponse; +begin + LoadData := TStringList.Create; + try + LoadLabTestData(LoadData, LabTestIEN) ; + with LoadData do + begin + QuickOrderResponses := Responses; + TestID := StrToInt(LabTestIEN); + TestName := Piece(ExtractDefault(LoadData, 'Test Name'),U,1); + LabSubscript := Piece(ExtractDefault(LoadData, 'Item ID'),U,2); + TestReqComment := ExtractDefault(LoadData, 'ReqCom'); + if Length(ExtractDefault(LoadData, 'Unique CollSamp')) > 0 then UniqueCollSamp := True; + x := ExtractDefault(LoadData, 'Unique CollSamp'); + if Length(x) = 0 then x := ExtractDefault(LoadData, 'Lab CollSamp'); + if Length(x) = 0 then x := ExtractDefault(LoadData, 'Default CollSamp'); + if Length(x) = 0 then x := '-1'; + DfltCollSamp := StrToInt(x); + SpecimenList := TStringList.Create; + ExtractItems(SpecimenList, LoadData, 'Specimens'); + if LRFSPEC <> '' then SpecimenList.Add(GetOneSpecimen(StrToInt(LRFSPEC))); + UrgencyList := TStringList.Create; + if Length(ExtractDefault(LoadData, 'Default Urgency')) > 0 then { forced urgency } + begin + ForceUrgency := True; + UrgencyList.Add(ExtractDefault(LoadData, 'Default Urgency')); + Urgency := StrToInt(Piece(ExtractDefault(LoadData, 'Default Urgency'), '^', 1)); + uDfltUrgency := Urgency; + end + else + begin { list of urgencies } + ExtractItems(UrgencyList, LoadData, 'Urgencies'); + if StrToIntDef(LRFURG, 0) > 0 then + Urgency := StrToInt(LRFURG) + else + Urgency := uDfltUrgency; + end; + Comment := TStringList.Create ; + CurWardComment := TStringList.Create; + ExtractText(CurWardComment, LoadData, 'GenWardInstructions'); + CollSamp := 0; + CollSampList := TList.Create; + FillCollSampList(LoadData, DfltCollSamp); + with QuickOrderResponses do tmpResp := FindResponseByName('SAMPLE' ,1); + if (LRFSAMP <> '') and (IndexOfCollSamp(StrToInt(LRFSAMP)) < 0) and + (not UniqueCollSamp) and (tmpResp = nil) then + begin + OneSamp := TStringList.Create; + try + OneSamp.Assign(GetOneCollSamp(StrToInt(LRFSAMP))); + FillCollSampList(OneSamp, CollSampList.Count); + finally + OneSamp.Free; + end; + end; + if (not UniqueCollSamp) and (CollSampList.Count = 0) then LoadAllSamples; + CollSampCount := CollSampList.Count; + end; + finally + LoadData.Free; + end; + SetCollSampDflts; +end; + +destructor TLabTest.Destroy; +var + i: Integer; +begin + if CollSampList <> nil then + with CollSampList do for i := 0 to Count - 1 do + with TCollSamp(Items[i]) do + begin + WardComment.Free; + Free; + end; + CollSampList.Free; + SpecimenList.Free; + UrgencyList.Free; + CurWardComment.Free; + Comment.Free; + inherited Destroy; +end; + +function TLabTest.IndexOfCollSamp(CollSampIEN: Integer): Integer; +var + i: Integer; +begin + Result := -1; + with CollSampList do for i := 0 to Count - 1 do with TCollSamp(Items[i]) do + if CollSampIEN = CollSampID then + begin + Result := i; + break; + end; +end; + +procedure TLabTest.LoadAllSamples; +var + LoadList, SpecList: TStringList; + i: Integer; +begin + LoadList := TStringList.Create; + SpecList := TStringList.Create; + try + LoadSamples(LoadList) ; + FillCollSampList(LoadList, 0); + ExtractItems(SpecList, LoadList, 'Specimens'); + with SpecList do for i := 0 to Count - 1 do + if SpecimenList.IndexOf(Strings[i]) = -1 then SpecimenList.Add(Strings[i]); + finally + LoadList.Free; + SpecList.Free; + end; +end; + +procedure TLabTest.FillCollSampList(LoadData: TStringList; DfltCollSamp: Integer); +{1 2 3 4 5 6 7 8 9 10 } +{n^IEN^CollSampName^SpecIEN^TubeTop^MinInterval^MaxPerDay^LabCollect^SampReqCommentIEN;name^SpecName} +var + i, LastListItem, AnIndex: Integer; + ACollSamp: TCollSamp; + LabCollSamp: Integer; +begin + i := -1; + if CollSampList = nil then CollSampList := TList.Create; + LastListItem := CollSampList.Count ; + LabCollSamp := StrToIntDef(ExtractDefault(LoadData, 'Lab CollSamp'), 0); + repeat Inc(i) until (i = LoadData.Count) or (LoadData[i] = '~CollSamp'); + Inc(i); + if i < LoadData.Count then repeat + if LoadData[i][1] = 'i' then + begin + ACollSamp := TCollSamp.Create; + with ACollSamp do + begin + AnIndex := StrToIntDef(Copy(Piece(LoadData[i], '^', 1), 2, 999), -1); + CollSampID := StrToInt(Piece(LoadData[i], '^', 2)); + CollSampName := Piece(LoadData[i], '^', 3); + SpecimenID := StrToIntDef(Piece(LoadData[i], '^', 4), 0); + SpecimenName := Piece(LoadData[i], '^', 10); + TubeColor := Piece(LoadData[i], '^', 5); + MinInterval := StrToIntDef(Piece(LoadData[i], '^', 6), 0); + MaxPerDay := StrToIntDef(Piece(LoadData[i], '^', 7), 0); + LabCanCollect := AnIndex = LabCollSamp; + SampReqComment := Piece(LoadData[i], '^', 9); + WardComment := TStringList.Create; + if CollSampID = StrToIntDef(LRFSAMP, 0) then + CollSamp := CollSampID + else if AnIndex = DfltCollSamp then + CollSamp := CollSampID; + end; {with} + LastListItem := CollSampList.Add(ACollSamp); + end; {if} + if (LoadData[i][1] = 't') then + TCollSamp(CollSampList.Items[LastListItem]).WardComment.Add(Copy(LoadData[i], 2, 255)); + Inc(i); + until (i = LoadData.Count) or (LoadData[i][1] = '~'); +end; + +procedure TLabTest.SetCollSampDflts; +var + tmpResp: TResponse; +begin + Specimen := 0; + Comment.Clear; + CurReqComment := TestReqComment; + if CollSamp = 0 then Exit; + with QuickOrderResponses do tmpResp := FindResponseByName('SPECIMEN' ,1); + if (LRFSPEC <> '') and (tmpResp = nil) then + ChangeSpecimen(LRFSPEC) + else with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do + begin + Specimen := SpecimenID; + if SampReqcomment <> '' then CurReqComment := SampReqComment; + end; +end; + +procedure TLabTest.ChangeCollSamp(CollSampIEN: Integer); +begin + CollSamp := CollSampIEN; + SetCollSampDflts; +end; + +procedure TLabTest.ChangeSpecimen(const SpecimenIEN: string); +begin + Specimen := StrToIntDef(SpecimenIEN,0); +end; + +procedure TLabTest.ChangeUrgency(const UrgencyIEN: string); +begin + Urgency := StrToIntDef(UrgencyIEN,0); +end; + +procedure TLabTest.ChangeComment(const CommentText: string); +begin + Comment.Add(CommentText); +end; + +function TLabTest.LabCanCollect: Boolean; +var + i: Integer; +begin + Result := False; + i := IndexOfCollSamp(CollSamp); + if i > -1 then with TCollSamp(CollSampList.Items[i]) do Result := LabCanCollect; +end; + +procedure TLabTest.LoadCollSamp(AComboBox: TORComboBox); +{ loads the collection sample combo box, expects CollSamp to already be set to default } +var + i: Integer; + x: string; +begin + AComboBox.Clear; + with CollSampList do for i := 0 to Count - 1 do with TCollSamp(Items[i]) do + begin + x := IntToStr(CollSampID) + '^' + CollSampName; + if Length(TubeColor) <> 0 then x := x + ' (' + TubeColor + ')'; + AComboBox.Items.Add(x); + if CollSamp = CollSampID then AComboBox.ItemIndex := i; + end; + if ((ALabTest.LabSubscript = 'CH') and (not UserHasLRLABKey)) then + begin + // do not add 'Other' (coded this way for clarity) + end + else + with AComboBox do + begin + Items.Add('0^Other...'); + if ItemIndex < 0 then ItemIndex := Items.IndexOf('Other...'); + end; +end; + +procedure TLabTest.LoadSpecimen(AComboBox: TORComboBox); +{ loads specimen combo box, if SpecimenList is empty, use 'E' xref on 61 ?? } +var + i: Integer; + tmpResp: TResponse; +begin + AComboBox.Clear; + if ObtainSpecimen then + begin + if SpecimenList.Count = 0 then LoadSpecimens(SpecimenList) ; + AComboBox.Items.Assign(SpecimenList); + AComboBox.Items.Add('0^Other...'); + with QuickOrderResponses do tmpResp := FindResponseByName('SPECIMEN' ,1); + if (LRFSPEC <> '') and (tmpResp = nil) then + AComboBox.SelectByID(LRFSPEC) + else if Specimen > 0 then + AComboBox.SelectByIEN(Specimen) + else + AComboBox.ItemIndex := AComboBox.Items.IndexOf('Other...'); + end + else + begin + i := IndexOfCollSamp(CollSamp); + if i < CollSampList.Count then with TCollSamp(CollSampList.Items[i]) do + begin + AComboBox.Items.Add(IntToStr(SpecimenID) + '^' + SpecimenName); + AComboBox.ItemIndex := 0; + end; + with QuickOrderResponses do tmpResp := FindResponseByName('SPECIMEN' ,1); + if (LRFSPEC <> '') and (tmpResp = nil) then + begin + AComboBox.Items.Add(GetOneSpecimen(StrToInt(LRFSPEC))); + AComboBox.SelectByID(LRFSPEC); + end; + end; + ChangeSpecimen(AComboBox.ItemID); +end; + +procedure TfrmODLab.LoadCollType(AComboBox:TORComboBox); +var + i: integer; +begin + with CtrlInits, cboCollType do + begin + SetControl(cboCollType, 'Collection Types'); + if not ALabTest.LabCanCollect then + begin + i := SelectByID('LC'); + if i > -1 then Items.Delete(i); + i := SelectByID('I'); + if i > -1 then Items.Delete(i); + end ; + if LRFZX <> '' then + begin + if (LRFZX = 'LC') or (LRFZX = 'I') then + begin + if ALabTest.LabCanCollect then + cboCollType.SelectByID(LRFZX) + else + cboCollType.SelectByID('WC'); + end + else + cboCollType.SelectByID(LRFZX); + end + else if FLastCollType <> '' then + begin + if (FLastCollType = 'LC') or (FLastCollType = 'I') then + begin + if ALabTest.LabCanCollect then + cboCollType.SelectByID(FLastCollType) + else + cboCollType.SelectByID('WC'); + end + else + cboCollType.SelectByID(FLastCollType); + end + else if uDfltCollType <> '' then + begin + if (uDfltCollType = 'LC') or (uDfltCollType = 'I') then + begin + if ALabTest.LabCanCollect then + cboCollType.SelectByID(uDfltCollType) + else + cboCollType.SelectByID('WC'); + end + else + cboCollType.SelectByID(uDfltCollType); + end + else if OrderForInpatient then + begin + if ALabTest.LabCanCollect then + cboCollType.SelectByID('LC') + else + SelectByID('WC'); + end + else + cboCollType.SelectByID('SP'); + end; + SetupCollTimes(cboCollType.ItemID); +end; + +procedure TLabTest.LoadUrgency(CollType: string; AComboBox:TORComboBox); +var + i: integer; +begin + with AComboBox do + begin + Clear; + for i := 0 to UrgencyList.Count - 1 do + if (CollType = 'LC') and (Piece(UrgencyList[i], U, 3) = '') then + Continue + else + Items.Add(UrgencyList[i]); + if (LRFURG <> '') and (ALabTest.ObtainUrgency) then + SelectByID(LRFURG) + else + SelectByIEN(uDfltUrgency); + Urgency := AComboBox.ItemIEN; + end; +end; + +function TLabTest.NameOfCollSamp: string; +var + i: Integer; +begin + Result := ''; + i := IndexOfCollSamp(CollSamp); + if i > -1 then with TCollSamp(CollSampList.Items[i]) do Result := CollSampName; +end; + +function TLabTest.NameOfSpecimen: string; +var + i: Integer; +begin + Result := ''; + if CollSamp > 0 then with TCollSamp(CollSampList[IndexOfCollSamp(CollSamp)]) do + if (Specimen > 0) and (Specimen = SpecimenID) then Result := SpecimenName; + if (Length(Result) = 0) and (Specimen > 0) then with SpecimenList do + for i := 0 to Count - 1 do if Specimen = StrToInt(Piece(Strings[i], '^', 1)) then + begin + Result := Piece(Strings[i], '^', 2); + break; + end; +end; + +function TLabTest.NameOfUrgency: string; +var + i: Integer; +begin + Result := ''; + with UrgencyList do for i := 0 to Count - 1 do + begin + if StrToInt(Piece(Strings[i], '^', 1)) = Urgency + then Result := Piece(Strings[i], '^', 2); + break; + end; +end; + +function TLabTest.ObtainCollSamp: Boolean; +begin + Result := (not UniqueCollSamp); +end; + +function TLabTest.ObtainSpecimen: Boolean; +var + i: Integer; +begin + Result := True; + i := IndexOfCollSamp(CollSamp); + if (i > -1) and (i < CollSampList.Count) then with TCollSamp(CollSampList.Items[i]) do + if SpecimenID > 0 then Result := False; +end; + +function TLabTest.ObtainUrgency: Boolean; +begin + Result := not ForceUrgency; +end; + +function TLabTest.ObtainComment: Boolean; +begin + Result := Length(CurReqComment) > 0; +end; + +{ end of TLabTest object } + +procedure TfrmODLab.ControlChange(Sender: TObject); +var + AResponse: TResponse; + AVisitStr: string; +begin + inherited; + if Changing or (ALabTest = nil) then Exit; + AResponse := Responses.FindResponseByName('VISITSTR', 1); + if AResponse <> nil then + AVisitStr := AResponse.EValue; + Responses.Clear; + with ALabTest do + begin + if TestID > 0 then Responses.Update('ORDERABLE', 1, IntToStr(TestID), TestName); + if CollSamp > 0 then Responses.Update('SAMPLE', 1, IntToStr(CollSamp), NameOfCollSamp) + else Responses.Update('SAMPLE', 1, '', ''); + if Specimen > 0 then Responses.Update('SPECIMEN', 1, IntToStr(Specimen), NameOfSpecimen) + else Responses.Update('SPECIMEN', 1, '', ''); + if Urgency > 0 then Responses.Update('URGENCY', 1, IntToStr(Urgency), NameOfUrgency); + if Length(Comment.Text) > 0 then Responses.Update('COMMENT', 1, TX_WPTYPE, Comment.Text); + with cboCollType do if Length(ItemID) > 0 then + begin + Responses.Update('COLLECT', 1, ItemID, ItemID) ; + FLastCollType := ItemID; + end; + end; + if cboCollType.ItemID = 'LC' then + begin + with cboCollTime do + if Length(ItemID) > 0 then + begin + Responses.Update('START', 1, Copy(ItemID, 2, 999), Copy(ItemID, 2, 999)); + FLastLabCollTime := ItemID + U + Text; + end + else if Length(Text) > 0 then + begin + Responses.Update('START', 1, ValidCollTime(Text), Text) ; + FLastLabCollTime := ValidCollTime(Text); + end; + end + else + begin + with calCollTime do + if FMDateTime > 0 then + begin + Responses.Update('START', 1, ValidCollTime(Text), Text); + FLastColltime := ValidCollTime(Text); + end + else + begin + Responses.Update('START', 1, '', '') ; + FLastCollTime := ''; + end; + end; + with cboFrequency do if Length(ItemID) > 0 + then Responses.Update('SCHEDULE', 1, ItemID, Text); + with txtDays do if Enabled then Responses.Update('DAYS', 1, Text, Text); + { worry about stop date later } + if AVisitStr <> '' then Responses.Update('VISITSTR', 1, AVisitStr, AVisitStr); + memOrder.Text := Responses.OrderText; +end; + +procedure TfrmODLab.Validate(var AnErrMsg: string); + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +var + CmtType,DaysofFuturePast, y: integer; + (*Hours, *)DayMax, (*Daily, *)NoOfTimes, (*DayFreq,*) Minutes: integer; + d1, d2: TDateTime; + Days, MsgTxt: Double; + x: string; +const + TX_NO_TIME = 'Collection Time is required.' ; + TX_NO_TCOLLTYPE = 'Collection Type is required.' ; + TX_NO_TESTS = 'A Lab Test or tests must be selected.' ; + TX_BAD_TIME = 'Collection times must be chosen from the drop down list or entered as valid' + + ' Fileman date/times (T@1700, T+1@0800, etc.).' ; + TX_PAST_TIME = 'Collection times in the past are not allowed.'; + TX_NO_DAYS = 'A number of days must be entered for continuous orders.'; + TX_NO_TIMES = 'A number of times must be entered for continuous orders.'; + TX_NO_STOP_DATE = 'Could not calculate the stop date for the order. Check "for n Days".'; + TX_TOO_MANY_DAYS = 'Maximum number of days allowed is '; + TX_TOO_MANY_TIMES = 'For this frequency, the maximum number of times allowed is: X'; + //TX_NO_COMMENT = 'A comment is required for this test and collection sample.'; + TX_NUMERIC_REQD = 'A numeric value is required for urine volume.'; + TX_DOSEDRAW_REQD = 'Both DOSE and DRAW times are required for this order.'; + TX_TDM_REQD = 'A value for LEVEL is required for this order.'; + //TX_ANTICOAG_REQD = 'You must specify an anticoagulant on this order.' ; + TX_NO_COLLSAMPLE = 'A collection sample MUST be specified.'; + TX_NO_SPECIMEN = 'A specimen MUST be specified.'; + TX_NO_URGENCY = 'An urgency MUST be specified.'; + TX_NO_FREQUENCY = 'A collection frequency MUST be specified.'; + TX_NOT_LAB_COLL_TIME = ' is not a routine lab collection time.'; + TX_NO_ALPHA = 'For continuous orders, enter a number of days, or an "X" followed by a number of times.'; + TX_BADTIME_CAP = 'Invalid Immediate Collect Time'; + +begin + inherited; + { need to go thru list and make sure everything is filled in } + with cboAvailTest do if ItemIEN <= 0 then SetError(TX_NO_TESTS); + + if ALabTest <> nil then + if (cboCollType.ItemID = 'I') and (not ALabTest.LabCanCollect) then + begin + SetError(TX_NO_IMMED); + cboCollType.ItemIndex := -1; + end; + + if cboCollType.ItemID = '' then + SetError(TX_NO_TCOLLTYPE) + else if cboCollType.ItemID = 'LC' then + begin + if Length(cboCollTime.Text) = 0 then SetError(TX_NO_TIME); + with cboCollTime do if (Length(Text) > 0) and (ItemIndex = -1) then + begin + if StrToFMDateTime(Text) < 0 then + SetError(TX_BAD_TIME) + else if StrToFMDateTime(Text) < FMNow then + SetError(TX_PAST_TIME) + else if OrderForInpatient then + begin + d1 := FMDateTimeToDateTime(Trunc(StrToFMDateTime(cboColltime.Text))); + d2 := FMDateTimeToDateTime(FMToday); + if EvtDelayLoc > 0 then + DaysofFuturePast := LabCollectFutureDays(EvtDelayLoc,EvtDivision) + else + DaysofFuturePast := LabCollectFutureDays(Encounter.Location); + if DaysofFuturePast = 0 then DaysofFuturePast := 7; + if ((d1 - d2) > DaysofFuturePast) then + SetError('A lab collection cannot be ordered more than ' + + IntToStr(DaysofFuturePast) + ' days in advance'); + end + else if EvtDelayLoc > 0 then + begin + if (not IsLabCollectTime(StrToFMDateTime(cboCollTime.Text), EvtDelayLoc)) then + SetError(cboCollTime.Text + TX_NOT_LAB_COLL_TIME); + end + else if EvtDelayLoc <= 0 then + begin + if (not IsLabCollectTime(StrToFMDateTime(cboCollTime.Text), Encounter.Location)) then + SetError(cboCollTime.Text + TX_NOT_LAB_COLL_TIME); + end; + end; + end + else + begin + if cboCollType.ItemID = 'I' then + begin + calCollTime.Text := txtImmedColl.Text; + x := ValidImmCollTime(calCollTime.FMDateTime); + if (Piece(x, U, 1) <> '1') then + SetError(Piece(x, U, 2)); + end; + + with calColltime do + begin + if FMDateTime = 0 then SetError(TX_BAD_TIME) + else + begin + // date only was entered + if (FMDateTime - Trunc(FMDateTime) = 0) then + begin + if (Trunc(FMDateTime) < FMToday) then SetError(TX_PAST_TIME); + end + // date/time was entered + else + begin + if (UpperCase(Text) <> 'NOW') and (FMDateTime < FMNow) then SetError(TX_PAST_TIME); + end; + end; + end; + end; + + with cboCollSamp do + if ItemIndex < 0 then + SetError(TX_NO_COLLSAMPLE) + else if (ItemIndex >= 0) and (ItemIEN = 0) then + begin + if ALabTest <> nil then + GetAllCollSamples(cboCollSamp); + if ItemIEN = 0 then SetError(TX_NO_COLLSAMPLE); + end; + + with cboSpecimen do + if ItemIndex < 0 then + SetError(TX_NO_SPECIMEN) + else if (ItemIndex >= 0) and (ItemIEN = 0) then + begin + if (ALabTest <> nil) and (cboCollSamp.ItemIEN > 0) then + GetAllSpecimens(cboSpecimen); + if ItemIEN = 0 then SetError(TX_NO_SPECIMEN); + end; + + with cboUrgency do if ItemIEN <= 0 then SetError(TX_NO_URGENCY); + with cboFrequency do if ItemIEN <= 0 then SetError(TX_NO_FREQUENCY); + + if ALabTest <> nil then + begin + CmtType := FCmtTypes.IndexOf(ALabTest.CurReqComment) ; + with ALabTest do + case CmtType of + 0 : {ANTICOAGULATION} {if (Pos('ANTICOAGULANT',Comment.Text)=0) then + SetError(TX_ANTICOAG_REQD)}; + 1 : {DOSE/DRAW TIMES} if (Pos('Last dose:',Comment.Text)=0) or + (Pos('draw time:',Comment.Text)=0) then + SetError(TX_DOSEDRAW_REQD); + 2 : {ORDER COMMENT} {if (Length(Comment.Text)=0) then + SetError(TX_NO_COMMENT)}; + 3 : {ORDER COMMENT MODIFIED} {if (Length(Comment.Text)=0) then + SetError(TX_NO_COMMENT)}; + 4 : {TDM (PEAK-TROUGH} if (Pos('Dose is expected',Comment.Text)=0) then + SetError(TX_TDM_REQD); + 5 : {TRANSFUSION} {if (Length(Comment.Text)=0) then + SetError(TX_NO_COMMENT)}; + 6 : {URINE VOLUME} if (Length(Comment.Text)>0) and + (ExtractInteger(Comment.Text)<=0) then + Comment.Text := '?'; + {SetError(TX_NUMERIC_REQD);} + { else + if (Length(CurReqComment)>0) and (Length(Comment.Text)=0) then + SetError(TX_NO_COMMENT); } + end; + end; + + with txtDays do if Enabled then + begin + DayMax := 0; + if (cboCollType.ItemID = 'LC') or (cboCollType.ItemID = 'I') then + begin + if EvtDelayLoc > 0 then + DayMax := LabCollectFutureDays(EvtDelayLoc,EvtDivision) + else + DayMax := LabCollectFutureDays(Encounter.Location); + end; + if DayMax = 0 then + begin + if EvtDelayLoc > 0 then + DayMax := MaxDays(EvtDelayLoc, cboFrequency.ItemIEN) + else + DayMax := MaxDays(Encounter.Location, cboFrequency.ItemIEN); + end; + x := Piece(cboFrequency.Items[cboFrequency.ItemIndex], U, 3); + if (x = 'C') or (x = 'D') then + begin + Minutes := StrToIntDef(Piece(cboFrequency.Items[cboFrequency.ItemIndex], U, 4), 0); + Days := Minutes / 1440; + if (Days = 0) then Days := 1; + if Pos('X', UpperCase(txtDays.Text)) > 0 then + begin + x := Trim(Copy(txtDays.Text, 1, Pos('X', UpperCase(txtDays.Text)) - 1)) + + Trim(Copy(txtDays.Text, Pos('X', UpperCase(txtDays.Text)) + 1, 99)); + NoOfTimes := ExtractInteger(x); + Days := NoOfTimes * Days; // # days requested + if FloatToStr(NoOfTimes) <> x then + SetError(TX_NO_ALPHA) + else if NoOfTimes = 0 then + SetError(TX_NO_TIMES) + else if (Days > DayMax) then + begin + MsgTxt := Minutes / 60; + x := ' hour'; + if MsgTxt > 24 then + begin + MsgTxt := MsgTxt / 24; + x := ' day'; + end; + if MsgTxt > 1 then x := x + 's'; + y := 0; + if Minutes > 0 then y := (DayMax * 1440) div Minutes; + if y = 0 then y := 1; + //if y > 0 then + SetError(TX_TOO_MANY_TIMES + IntToStr(y) + CRLF + + ' (Every ' + FloatToStr(MsgTxt) + x + ' for a maximum of ' + IntToStr(DayMax) + ' days.)') + //else + // Responses.Update('DAYS', 1, 'X1', 'X1'); + end + else + begin + x := 'X' + IntToStr(NoOfTimes); + Responses.Update('DAYS', 1, x, x); + end; + end + else + begin + Days := ExtractInteger(txtDays.Text); + if FloatToStr(Days) <> Trim(txtDays.Text) then + SetError(TX_NO_ALPHA) + //SetError(TX_NO_DAYS) v18.6 (RV) + else if (Days > DayMax) then + SetError(TX_TOO_MANY_DAYS + IntToStr(DayMax)) + else + Responses.Update('DAYS', 1, txtDays.Text, txtDays.Text); + end; + end; + end; +end; + +procedure TfrmODLab.cboAvailTestNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + cboAvailTest.ForDataUse(SubsetOfOrderItems(StartFrom, Direction, 'S.LAB')); +end; + +procedure TfrmODLab.cboAvailTestExit(Sender: TObject); +begin + inherited; + if (Length(cboAvailTest.ItemID) = 0) or (cboAvailTest.ItemID = '0') then Exit; + if cboAvailTest.ItemID = FLastLabID then Exit; + cboAvailTestSelect(cboAvailTest); + cboAvailTest.SetFocus; + PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); +end; + +procedure TfrmODLab.cboAvailTestSelect(Sender: TObject); +var + x: string; + i: integer; + tmpResp: TResponse; +begin + with cboAvailTest do + begin + if (Length(ItemID) = 0) or (ItemID = '0') then Exit; + FLastLabID := ItemID ; + FLastItemID := ItemID; + Changing := True; + if Sender <> Self then + Responses.Clear; // Sender=Self when called from SetupDialog + if CharAt(ItemID, 1) = 'Q' then + with Responses do + begin + FLastItemID := ItemID; + QuickOrder := ExtractInteger(ItemID); + SetControl(cboAvailTest, 'ORDERABLE', 1); + if (Length(ItemID) = 0) or (ItemID = '0') then Exit; + FLastLabID := ItemID; + end; + ALabTest := TLabTest.Create(ItemID, Responses); + end; + with ALabTest do + begin + lblTestName.Caption := TestName; + LoadCollSamp(cboCollSamp); + cboCollSampChange(Self); + LoadSpecimen(cboSpecimen); + LoadUrgency(cboCollType.ItemID, cboUrgency); + with Responses do if QuickOrder > 0 then + begin + StatusText('Initializing Quick Order'); + Changing := True; + SetControl(cboAvailTest, 'ORDERABLE', 1); + SetControl(cboFrequency, 'SCHEDULE', 1); + SetControl(txtDays, 'DAYS', 1); + tmpResp := FindResponseByName('SAMPLE' ,1); + if (tmpResp <> nil) and (tmpResp.IValue <> '') then with cboCollSamp do + begin + SelectByID(tmpResp.IValue); + if ItemIndex < 0 then + begin + LoadAllSamples; + Items.Insert(0, tmpResp.IValue + U + tmpResp.EValue); + ItemIndex := 0 ; + end; + end + else if LRFSAMP <> '' then + cboCollSamp.SelectByID(LRFSAMP); + if (cboCollSamp.ItemIndex < 0) and (cboCollSamp.Items.IndexOf('Other...') >= 0) then cboCollSamp.SelectByID('0'); + cboCollSampChange(Self); + DetermineCollectionDefaults(Responses); + LoadUrgency(cboCollType.ItemID, cboUrgency); + SetControl(cboUrgency, 'URGENCY', 1); + Urgency := cboUrgency.ItemIEN; + if (Urgency = 0) and (cboUrgency.Items.Count = 1) then + begin + cboUrgency.ItemIndex := 0; + Urgency := cboUrgency.ItemIEN; + end; + tmpResp := FindResponseByName('SPECIMEN' ,1); + if (tmpResp <> nil) and (tmpResp.IValue <> '') then with cboSpecimen do + begin + SelectByID(tmpResp.IValue); + if ItemIndex < 0 then + begin + if ALabTest <> nil then + ALabTest.SpecimenList.Add(tmpResp.IValue + U + tmpResp.EValue); + Items.Insert(0, tmpResp.IValue + U + tmpResp.EValue); + ItemIndex := 0 ; + end; + end + else if LRFSPEC <> '' then + cboSpecimen.SelectByID(LRFSPEC); + if (cboSpecimen.ItemIndex < 0) and (cboSpecimen.Items.IndexOf('Other...') >= 0) then cboSpecimen.SelectByID('0'); + Specimen := cboSpecimen.ItemIEN; + i := 1 ; + tmpResp := Responses.FindResponseByName('COMMENT',i); + while tmpResp <> nil do + begin + Comment.Add(tmpResp.EValue); + Inc(i); + tmpResp := Responses.FindResponseByName('COMMENT',i); + end ; + with cboFrequency do + if not Enabled then + begin + ItemIndex := Items.IndexOf('ONE TIME'); + if ItemIndex = -1 then ItemIndex := Items.IndexOf('ONCE'); + end; + cboFrequencyChange(Self); + end; // Quick Order + if ObtainCollSamp then + begin + lblCollSamp.Enabled := True; + cboCollSamp.Enabled := True; + end + else + begin + with ALabTest do + with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do + begin + x := '' ; + for i := 0 to WardComment.Count-1 do + x := x + WardComment.strings[i]+#13#10 ; + pnlMessage.TabOrder := cboAvailTest.TabOrder + 1; + OrderMessage(x) ; + end ; + lblCollSamp.Enabled := False; + cboCollSamp.Enabled := False; + end; + if ObtainSpecimen then + begin + lblSpecimen.Enabled:= True; + cboSpecimen.Enabled:= True; + end else + begin + lblSpecimen.Enabled:= False; + cboSpecimen.Enabled:= False; + end; + if ObtainUrgency then + begin + lblUrgency.Enabled := True; + cboUrgency.Enabled := True; + end else + begin + lblUrgency.Enabled := False; + cboUrgency.Enabled := False; + end; + if ObtainComment then + LoadRequiredComment(FCmtTypes.IndexOf(CurReqComment)) + else + DisableCommentPanels; + x := '' ; + for i := 0 to CurWardComment.Count-1 do + x := x + CurWardComment.strings[i]+#13#10 ; + i := IndexOfCollSamp(CollSamp); + if i > -1 then with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do + for i := 0 to WardComment.Count-1 do + x := x + WardComment.strings[i]+#13#10 ; + pnlMessage.TabOrder := cboAvailTest.TabOrder + 1; + OrderMessage(x) ; + end; { with } + StatusText(''); + Changing := False; + if Sender <> Self then ControlChange(Self); +end; + +procedure TfrmODLab.cboCollSampChange(Sender: TObject); +var + i: integer; + x: string; +begin + if (ALabTest = nil) or (cboCollSamp.ItemIEN = 0) then exit; + with ALabTest do + begin + ChangeCollSamp(cboCollSamp.ItemIEN); + LoadSpecimen(cboSpecimen); + LoadCollType(cbocollType); + LoadUrgency(cboCollType.ItemID, cboUrgency); + if ObtainSpecimen then + begin + lblSpecimen.Enabled:= True; + cboSpecimen.Enabled:= True; + end else + begin + lblSpecimen.Enabled:= False; + cboSpecimen.Enabled:= False; + end; + if ObtainComment then + LoadRequiredComment(FCmtTypes.IndexOf(CurReqComment)) + else + DisableCommentPanels; + if not Changing then with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do + begin + x := '' ; + for i := 0 to WardComment.Count-1 do + x := x + WardComment.strings[i]+#13#10 ; + pnlMessage.TabOrder := cboCollSamp.TabOrder + 1; + OrderMessage(x) ; + end ; + end; + ControlChange(Self); +end; + +procedure TfrmODLab.cboUrgencyChange(Sender: TObject); +begin + if ALabTest = nil then exit; + with ALabTest do + ChangeUrgency(cboUrgency.ItemID); + ControlChange(Self); +end; + +procedure TfrmODLab.cboSpecimenChange(Sender: TObject); +begin + if ALabTest = nil then exit; + with cboSpecimen do if Text = 'Other...' then + if (ItemIndex >= 0) and (ItemIEN = 0) then + GetAllSpecimens(cboSpecimen); + with ALabTest do + ChangeSpecimen(cboSpecimen.ItemID); + ControlChange(Self); +end; + +procedure TfrmODLab.cboCollTimeChange(Sender: TObject); +var + CollType: string; +const + TX_BAD_TIME = ' is not a routine lab collection time.' ; + TX_BAD_TIME_CAP = 'Invalid Time'; +begin + CollType := 'LC'; + with cboCollTime do if ItemID = 'LO' then + begin + ItemIndex := -1; + Text := GetFutureLabTime(FMToday); + end; + //cboCollType.SelectByID(CollType); + ControlChange(Self); +end; + +procedure TfrmODLab.cboFrequencyChange(Sender: TObject); +var + x: string; +const + HINT_TEXT1 = 'Enter a number of days'; + HINT_TEXT2 = ', or an "X" followed by a number of times.'; +begin + with cboFrequency do if ItemIndex > -1 then x := Items[ItemIndex]; + with cboFrequency do + if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 3) <> 'O') then + begin + lblHowManyDays.Enabled := True; + if Piece(Items[ItemIndex], U, 3) = 'C' then + txtDays.Hint := HINT_TEXT1 + HINT_TEXT2 + else + txtDays.Hint := ''; + txtDays.Enabled := True; + txtDays.Showhint := True; + end + else + begin + txtDays.Text := ''; + lblHowManyDays.Enabled := False; + txtDays.Enabled := False; + txtDays.ShowHint := False; + end; + ControlChange(Self); +end; + +procedure TfrmODLab.cboCollTypeChange(Sender: TObject); +begin + if (ALabTest = nil) or Changing or (cboCollType.ItemID = '') then exit; + if (cboCollType.ItemID = 'I') and (not ALabTest.LabCanCollect) then + begin + InfoBox(TX_NO_IMMED, TX_NO_IMMED_CAP, MB_OK or MB_ICONWARNING); + cboCollType.ItemIndex := -1; + Exit; + end; + SetupCollTimes(cboCollType.ItemID); + ALabTest.LoadUrgency(cboCollType.ItemID, cboUrgency); + ControlChange(Self); +end; + +procedure TfrmODLab.SetupCollTimes(CollType: string); +var + tmpImmTime, tmpTime: TFMDateTime; + x, tmpORECALLType, tmpORECALLTime: string; +begin + x := GetLastCollectionTime; + tmpORECALLType := Piece(x, U, 1); + tmpORECALLTime := Piece(x, U, 2); + if CollType = 'SP' then + begin + cboColltime.Visible := False; + txtImmedColl.Visible := False; + pnlCollTimeButton.Visible := False; + pnlCollTimeButton.TabStop := False; + calCollTime.Visible := True; + calColltime.Enabled := True; + if FLastCollTime <> '' then + begin + calCollTime.Text := ValidCollTime(FLastColltime); + if IsFMDateTime(calCollTime.Text) then + begin + calCollTime.Text := FormatFMDateTime('mmm dd,yy@hh:nn', StrToFMDateTime(calColltime.Text)); + calColltime.FMDateTime := StrToFMDateTime(FLastCollTime); + end; + end + else if tmpORECALLTime <> '' then + begin + calCollTime.Text := ValidCollTime(tmpORECALLTime); + if IsFMDateTime(calCollTime.Text) then + begin + calCollTime.Text := FormatFMDateTime('mmm dd,yy@hh:nn', StrToFMDateTime(calColltime.Text)); + calColltime.FMDateTime := StrToFMDateTime(tmpORECALLTime); + end; + end + else if LRFDATE <> '' then + calCollTime.Text := LRFDATE + else + calCollTime.Text := 'TODAY'; + end + else if CollType = 'WC' then + begin + cboColltime.Visible := False; + txtImmedColl.Visible := False; + pnlCollTimeButton.Visible := False; + pnlCollTimeButton.TabStop := False; + calCollTime.Visible := True; + calColltime.Enabled := True; + if FLastCollTime <> '' then + begin + calCollTime.Text := ValidColltime(FLastColltime); + if IsFMDateTime(calCollTime.Text) then + begin + calCollTime.Text := FormatFMDateTime('mmm dd,yy@hh:nn', StrToFMDateTime(calColltime.Text)); + calColltime.FMDateTime := StrToFMDateTime(FLastCollTime); + end; + end + else if tmpORECALLTime <> '' then + begin + calCollTime.Text := ValidColltime(tmpORECALLTime); + if IsFMDateTime(calCollTime.Text) then + begin + calCollTime.Text := FormatFMDateTime('mmm dd,yy@hh:nn', StrToFMDateTime(calColltime.Text)); + calColltime.FMDateTime := StrToFMDateTime(tmpORECALLTime); + end; + end + else if LRFDATE <> '' then + calCollTime.Text := LRFDATE + else + calCollTime.Text := 'NOW'; + end + else if CollType = 'LC' then + begin + cboColltime.Visible := True; + calCollTime.Visible := False; + calColltime.Enabled := False; + txtImmedColl.Visible := False; + pnlCollTimeButton.Visible := False; + pnlCollTimeButton.TabStop := False; + with CtrlInits do SetControl(cboCollTime, 'Lab Collection Times'); + if Pos(U, FLastLabCollTime) > 0 then + cboColltime.SelectByID(Piece(FLastLabCollTime, U, 1)) + else if FLastLabCollTime <> '' then + cboCollTime.Text := FLastLabCollTime + else if (tmpORECALLTime <> '') and (tmpORECALLType = 'LC') then + cboCollTime.Text := MakeRelativeDateTime(StrToFMDateTime(tmpORECALLTime)) + else if LRFDATE <> '' then + cboCollTime.Text := LRFDATE + else + cboCollTime.ItemIndex := 0; + end + else if CollType = 'I' then + begin + cboColltime.Visible := False; + calCollTime.Visible := False; + calColltime.Enabled := False; + txtImmedColl.Visible := True; + pnlCollTimeButton.Visible := True; + pnlCollTimeButton.TabStop := True; + tmpImmTime := GetDefaultImmCollTime; + tmpTime := 0; + if (FLastColltime <> '') then + tmpTime := StrToFMDateTime(FLastColltime) + else if (tmpORECALLTime <> '') then + tmpTime := StrToFMDateTime(tmpORECALLTime) + else if LRFDATE <> '' then + tmpTime := StrToFMDateTime(LRFDATE); + + if tmpTime > tmpImmTime then + begin + calCollTime.FMDateTime := tmpTime; + txtImmedColl.Text := FormatFMDateTime('mmm dd,yy@hh:nn', tmpTime); + end + else + begin + calCollTime.FMDateTime := GetDefaultImmCollTime; + txtImmedColl.Text := FormatFMDateTime('mmm dd,yy@hh:nn', calCollTime.FMDateTime); + end; + end; +end; + +procedure TfrmODLab.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + if FCmtTypes <> nil then FCmtTypes.Free; + frmFrame.pnlVisit.Enabled := true; +end; + +procedure TfrmODLab.LoadRequiredComment(CmtType: integer); +begin + DisableCommentPanels; + pnlHide.SendToBack; + lblReqComment.Visible := True ; + case CmtType of + 0 : {ANTICOAGULATION} pnlAntiCoagulation.Show ; + 1 : {DOSE/DRAW TIMES} pnlDoseDraw.Show ; + 2 : {ORDER COMMENT} pnlOrderComment.Show ; + 3 : {ORDER COMMENT MODIFIED} pnlOrderComment.Show ; // DIFFERENT ??? + 4 : {TDM (PEAK-TROUGH} begin + pnlPeakTrough.Show ; + grpPeakTrough.ItemIndex := -1; + txtAddlComment.Show; + lblAddlComment.Show; + end; + 5 : {TRANSFUSION} pnlOrderComment.Show ; + 6 : {URINE VOLUME} pnlUrineVolume.Show ; + else + pnlOrderComment.Show ; + end; +end; + +procedure TfrmODLab.txtOrderCommentExit(Sender: TObject); +begin + inherited; + if (not pnlOrderComment.Visible) or (ALabTest = nil) then exit; + with ALabTest do + if Length(txtOrderComment.Text)>0 then + begin + Comment.Clear; + ChangeComment('~For Test: ' + TestName); + ChangeComment('~' + txtOrderComment.Text) ; + end + else + Comment.Clear; + ControlChange(Self); +end; + +procedure TfrmODLab.txtAntiCoagulantExit(Sender: TObject); +begin + inherited; + if (not pnlAntiCoagulation.Visible) or (ALabTest = nil) then exit; + with ALabTest do + if Length(txtAntiCoagulant.Text)>0 then + begin + Comment.Clear; + ChangeComment('~For Test: ' + TestName); + ChangeComment('~ANTICOAGULANT: ' + txtAntiCoagulant.Text); + end + else + Comment.Clear; + ControlChange(Self); +end; + +procedure TfrmODLab.txtUrineVolumeExit(Sender: TObject); +begin + inherited; + if (not pnlUrineVolume.Visible) or (ALabTest = nil) then exit; + with ALabTest do + begin + Comment.Clear; + ChangeComment(txtUrineVolume.Text) ; + end; + ControlChange(Self); +end; + +procedure TfrmODLab.grpPeakTroughClick(Sender: TObject); +begin + inherited; + if (not pnlPeakTrough.Visible) or (ALabTest = nil) then exit; + with ALabTest,grpPeakTrough do + if ItemIndex > -1 then + begin + Comment.Clear; + ChangeComment('~For Test: ' + TestName); + ChangeComment('~Dose is expected to be at ' + UpperCase(Items[ItemIndex]) + ' level.'); + ChangeComment(txtAddlComment.Text) ; + end + else + Comment.Clear; + ControlChange(Self); +end; + +procedure TfrmODLab.txtDoseTimeExit(Sender: TObject); +begin + inherited; + if (not pnlDoseDraw.Visible) or (ALabTest = nil) then exit; + with txtDoseTime do + if Length(Text)>0 then + Text := FormatFMDateTime('mm/dd/yy hh:nn', StrToFMDateTime(Text)) + else + Text := 'UNKNOWN'; + DoseDrawComment; + ControlChange(Self); +end; + +procedure TfrmODLab.txtDrawTimeExit(Sender: TObject); +begin + inherited; + if (not pnlDoseDraw.Visible) or (ALabTest = nil) then exit; + with txtDrawTime do + if Length(Text)>0 then + Text := FormatFMDateTime('mm/dd/yy hh:nn', StrToFMDateTime(Text)) + else + Text := 'UNKNOWN'; + DoseDrawComment; + ControlChange(Self); +end; + +procedure TfrmODLab.DoseDrawComment; +begin + if ALabTest = nil then exit; + with ALabTest do + begin + Comment.Clear; + ChangeComment('~For Test: ' + TestName); + ChangeComment('~Last dose: ' + txtDoseTime.Text + + ' draw time: '+txtDrawTime.Text); + end; +end; + +procedure TfrmODLab.txtAddlCommentExit(Sender: TObject); +begin + if (not pnlPeakTrough.Visible) or (ALabTest = nil) then exit; + grpPeakTroughClick(Sender); +end; + +procedure TfrmODLab.DisableCommentPanels; +begin + pnlHide.BringToFront; + lblReqComment.Visible := False; + pnlAntiCoagulation.Visible := False; + pnlOrderComment.Visible := False; + pnlDoseDraw.Visible := False; + pnlPeakTrough.Visible := False; + pnlUrineVolume.Visible := False; + lblAddlComment.Visible := False; + txtAddlComment.Visible := False; + //pnlTransfusion.Visible := False; +end; + +procedure TfrmODLab.cboCollSampKeyPause(Sender: TObject); +begin + inherited; + if ALabTest = nil then exit; + with cboCollSamp do + if (ItemIndex >= 0) and (ItemIEN = 0) then GetAllCollSamples(cboCollSamp); + if (cboCollSamp.ItemIEN = 0) then + begin + ALabTest.Specimen := 0; + ALabTest.CollSamp := 0; + cboCollSamp.ItemIndex := -1; + cboSpecimen.ItemIndex := -1; + end + else + ALabTest.LoadSpecimen(cboSpecimen); + ControlChange(Self); +end; + +procedure TfrmODLab.cboCollSampMouseClick(Sender: TObject); +begin + inherited; + if ALabTest = nil then exit; + with cboCollSamp do + begin + if (ItemIndex >= 0) and (ItemIEN = 0) then + GetAllCollSamples(cboCollSamp); + if (ItemIEN = 0) then + begin + ALabTest.Specimen := 0; + ALabTest.CollSamp := 0; + ItemIndex := -1; + cboSpecimen.ItemIndex := -1; + end + else + ALabTest.LoadSpecimen(cboSpecimen); + end; + ControlChange(Self); +end; + +function TfrmODLab.ValidCollTime(UserEntry: string): string; +var + i: integer; +const + FMDateResponses: array[0..3] of string = ('TODAY','NOW','NOON','MID'); +begin + Result := ''; + UserEntry := UpperCase(UserEntry); + if StrToFMDateTime(UserEntry) < 0 then exit; + if (UserEntry = 'T') or + (UserEntry = 'N') or + (Copy(UserEntry,1,2)='T+') or + (Copy(UserEntry,1,2)='T@') or + (Copy(UserEntry,1,2)='T-') or + (Copy(UserEntry,1,2)='N+') then Result := UserEntry + else + for i := 0 to 3 do if Pos(FMDateResponses[i],UserEntry)>0 then Result := UserEntry ; + if Result = '' then Result := FloatToStr(StrToFMDateTime(UserEntry)); +end; + +procedure TfrmODLab.cboCollTimeExit(Sender: TObject); +var + ADateTime: TFMDateTime; + CollType: string; + isTrue: boolean; +const + TX_BAD_TIME = ' is not a routine lab collection time.' ; + TX_BAD_TIME_CAP = 'Invalid Time'; +begin + inherited; + if (ALabTest = nil) or (cboColltime.Text = '') then Exit; + Changing := True; + CollType := 'LC'; + with cboCollTime do if (ItemIndex < 0) or (ITEMID = 'LO') then + if ALabTest.LabCanCollect then + begin + ADateTime := StrToFMDateTime(cboCollTime.Text); + if EvtDelayLoc > 0 then + isTrue := IsLabCollectTime(ADateTime, EvtDelayLoc) + else + isTrue := IsLabCollectTime(ADateTime, Encounter.Location); + if isTrue then + begin + calCollTime.Clear; + cboCollTime.Visible := True; + calCollTime.Visible := False; + calCollTime.Enabled := False; + end {if IsLabCollectTime} + else + begin + InfoBox(cboCollTime.Text + TX_BAD_TIME, TX_BAD_TIME_CAP, MB_OK or MB_ICONWARNING) ; + ItemIndex := -1; + Text := GetFutureLabTime(ADateTime); + end ; + end {if (LabCanCollect...} + else + begin + if OrderForInpatient then CollType := 'WC' else CollType := 'SP'; + calCollTime.Text := cboCollTime.Text; + cboCollTime.Clear; + cboCollTime.Visible := False; + calCollTime.Visible := True; + calCollTime.Enabled := True; + end; + cboCollType.SelectByID(CollType); + Changing := False; //v16.3 RV + ControlChange(Self); //v16.3 RV + //Responses.Update('COLLECT', 1, CollType, CollType) ; //v16.3 RV + //memOrder.Text := Responses.OrderText; //v16.3 RV +end; + +procedure TfrmODLab.cboSpecimenMouseClick(Sender: TObject); +begin + inherited; + if ALabTest = nil then exit; + with cboSpecimen do + begin + if (ItemIndex >= 0) and (ItemIEN = 0) then + GetAllSpecimens(cboSpecimen); + if (ItemIEN = 0) then + begin + ALabTest.Specimen := 0; + ItemIndex := -1; + end; + end; + ControlChange(Self); +end; + +procedure TfrmODLab.GetAllCollSamples(AComboBox: TORComboBox); +var + OtherSamp: string; +begin + with ALabTest, AComboBox do + begin + if ((CollSampList.Count + 1) <= AComboBox.Items.Count) then LoadAllSamples; + OtherSamp := SelectOtherCollSample(Font.Size, CollSampCount, CollSampList); + if OtherSamp = '-1' then exit; + if SelectByID(Piece(OtherSamp, U, 1)) = -1 then + if Items.Count > CollSampCount + 1 then + Items[0] := OtherSamp + else + Items.Insert(0, OtherSamp) ; + SelectByID(Piece(OtherSamp, U, 1)); + AComboBox.OnChange(Self); + ActiveControl := cmdAccept; + end; +end; + +procedure TfrmODLab.GetAllSpecimens(AComboBox: TORComboBox); +var + OtherSpec: string; +begin + inherited; + if ALabTest <> nil then + with ALabTest, AComboBox do + begin + AComboBox.DroppedDown := False; + OtherSpec := SelectOtherSpecimen(Font.Size, SpecimenList); + if OtherSpec = '-1' then exit; + if SelectByID(Piece(OtherSpec, U, 1)) = -1 then + if Items.Count > SpecListCount + 1 then + Items[0] := OtherSpec + else + Items.Insert(0, OtherSpec) ; + SpecimenList.Add(OtherSpec); + SelectByID(Piece(OtherSpec, U, 1)); + AComboBox.OnChange(Self); + end; +end; + +procedure TfrmODLab.cboSpecimenKeyPause(Sender: TObject); +begin + inherited; + if ALabTest = nil then exit; + with cboSpecimen do + if (ItemIndex >= 0) and (ItemIEN = 0) then + GetAllSpecimens(cboSpecimen); + if (cboSpecimen.ItemIEN = 0) then + begin + ALabTest.Specimen := 0; + cboSpecimen.ItemIndex := -1; + end ; + ControlChange(Self); +end; + +procedure TfrmODLab.cmdImmedCollClick(Sender: TObject); +var + ImmedCollTime: string; +begin + inherited; + ImmedCollTime := SelectImmediateCollectTime(Font.Size, txtImmedColl.Text); + if ImmedCollTime <> '-1' then + begin + txtImmedColl.Text := ImmedCollTime; + calCollTime.FMDateTime := StrToFMDateTime(ImmedCollTime); + end + else + begin + txtImmedColl.Clear; + calCollTime.Clear; + end; +end; + +procedure TfrmODLab.ReadServerVariables; +begin + LRFZX := KeyVariable['LRFZX']; + LRFSAMP := KeyVariable['LRFSAMP']; + LRFSPEC := KeyVariable['LRFSPEC']; + LRFDATE := KeyVariable['LRFDATE']; + LRFURG := KeyVariable['LRFURG']; + LRFSCH := KeyVariable['LRFSCH']; +end; + +procedure TfrmODLab.DetermineCollectionDefaults(Responses: TResponses); +var + RespCollect, RespStart: TResponse; + //i: integer; +begin + if ALabTest = nil then exit; + calCollTime.Clear; + cboCollTime.Clear; + calCollTime.Enabled := True; + lblCollTime.Enabled := True; + cboColltime.Enabled := True; + with Responses, ALabTest do + begin + RespCollect := FindResponseByName('COLLECT',1); + RespStart := FindResponseByName('START' ,1); + if (RespCollect <> nil) then with RespCollect do + begin + if IValue = 'LC' then + begin + if not LabCanCollect then + begin + cboCollType.SelectByID('WC'); + SetupCollTimes('WC'); + end + else // if LabCanCollect + begin + cboCollType.SelectByID('LC'); + SetupCollTimes('LC'); + CtrlInits.SetControl(cboCollTime, 'Lab Collection Times') ; + if RespStart <> nil then + begin + cboCollTime.SelectByID('L' + RespStart.IValue); + if cboCollTime.ItemIndex < 0 then + cboCollTime.Text := RespStart.IValue; + end; + end; + end + else // if IValue <> 'LC' + begin + cboCollType.SelectByID(IValue) ; + SetupCollTimes(IValue); + if RespStart <> nil then + begin + if ContainsAlpha(RespStart.IValue) then + calColltime.Text := RespStart.IValue + else + calColltime.FMDateTime := StrToFMDateTime(RespStart.IValue); + end; + end ; + if IValue = 'I' then + if not LabCanCollect then + begin + cboCollType.SelectByID('WC'); + SetupCollTimes('WC'); + end + else + begin + calCollTime.Enabled := False; + if RespStart <> nil then txtImmedColl.Text := RespStart.EValue; + end; + end + else // if (RespCollect = nil) + LoadCollType(cbocollType); + end; +end; +procedure TfrmODLab.pnlCollTimeButtonEnter(Sender: TObject); +begin + inherited; + (Sender as TPanel).BevelOuter := bvRaised; +end; + +procedure TfrmODLab.pnlCollTimeButtonExit(Sender: TObject); +begin + inherited; + (Sender as TPanel).BevelOuter := bvNone; +end; + +procedure TfrmODLab.ViewinReportWindow1Click(Sender: TObject); +begin + inherited; + ReportBox(memMessage.Lines, 'Lab Procedure', True); +end; + +end. + + diff --git a/CPRS-Chart/Orders/fODLabImmedColl.dfm b/CPRS-Chart/Orders/fODLabImmedColl.dfm new file mode 100644 index 0000000..35177ac --- /dev/null +++ b/CPRS-Chart/Orders/fODLabImmedColl.dfm @@ -0,0 +1,87 @@ +object frmODLabImmedColl: TfrmODLabImmedColl + Left = 146 + Top = 150 + Width = 524 + Height = 286 + Caption = 'Immediate Collection Times' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 516 + Height = 259 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object lblImmedColl: TOROffsetLabel + Left = 26 + Top = 202 + Width = 149 + Height = 15 + Caption = 'Enter or select a collection time' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object memImmedCollect: TCaptionMemo + Left = 0 + Top = 0 + Width = 516 + Height = 193 + Align = alTop + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + Lines.Strings = ( + 'Collection times') + ParentFont = False + ReadOnly = True + TabOrder = 0 + WantReturns = False + Caption = 'Collection times' + end + object calImmedCollect: TORDateBox + Left = 26 + Top = 216 + Width = 219 + Height = 21 + TabOrder = 1 + OnKeyUp = calImmedCollectKeyUp + DateOnly = False + RequireTime = False + Caption = 'Enter or select a collection time' + end + object cmdOK: TORAlignButton + Left = 309 + Top = 213 + Width = 75 + Height = 25 + Caption = 'OK' + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TORAlignButton + Left = 405 + Top = 213 + Width = 75 + Height = 25 + Cancel = True + Caption = 'Cancel' + TabOrder = 3 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fODLabImmedColl.pas b/CPRS-Chart/Orders/fODLabImmedColl.pas new file mode 100644 index 0000000..a879835 --- /dev/null +++ b/CPRS-Chart/Orders/fODLabImmedColl.pas @@ -0,0 +1,113 @@ +unit fODLabImmedColl; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ORDtTm, ExtCtrls, ORFn; + +type + TfrmODLabImmedColl = class(TForm) + memImmedCollect: TCaptionMemo; + calImmedCollect: TORDateBox; + cmdOK: TORAlignButton; + cmdCancel: TORAlignButton; + pnlBase: TORAutoPanel; + lblImmedColl: TOROffsetLabel; + procedure cmdCancelClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure calImmedCollectKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + FCollTime: string; + { Private declarations } + public + { Public declarations } + end; + +function SelectImmediateCollectTime(FontSize: integer; CollTime: string): string; + +implementation + +{$R *.DFM} + +uses rODLab; + +const + TX_NOTIME_TEXT = 'Enter or select a collection time or press Cancel.'; + TX_NOTIME_CAP = 'Missing Date/Time'; + TX_BADTIME_CAP = 'Invalid Immediate Collect Time'; + +function SelectImmediateCollectTime(FontSize: integer; CollTime: string): string; +{ displays select form for immediate collect time and returns a record of the selection } +var + frmODLabImmedColl: TfrmODLabImmedColl; +begin + frmODLabImmedColl := TfrmODLabImmedColl.Create(Application); + try + ResizeAnchoredFormToFont(frmODLabImmedColl); + with frmODLabImmedColl do + begin + FCollTime := CollTime; + ShowModal; + Result := FCollTime; + end; + finally + frmODLabImmedColl.Release; + end; +end; + +procedure TfrmODLabImmedColl.cmdCancelClick(Sender: TObject); +begin + FCollTime := '-1' ; + Close; +end; + +procedure TfrmODLabImmedColl.cmdOKClick(Sender: TObject); +var + x: string; +begin + if calImmedCollect.FMDateTime = 0 then + begin + InfoBox(TX_NOTIME_TEXT, TX_NOTIME_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + if calImmedCollect.FMDateTime > 0 then + begin + x := ValidImmCollTime(calImmedCollect.FMDateTime); + if Piece(x ,U, 1) = '1' then + FCollTime := calImmedCollect.Text + else + begin + InfoBox(MixedCase(Piece(x ,U, 2)), TX_BADTIME_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + end + else + FCollTime := '-1'; + Close; +end; + + +procedure TfrmODLabImmedColl.FormShow(Sender: TObject); +begin + memImmedCollect.Lines.Assign(ImmediateCollectTimes); + if Length(FCollTime) > 0 then + calImmedCollect.Text := FCollTime + else + calImmedCollect.FMDateTime := GetDefaultImmCollTime; + ActiveControl := calImmedCollect; +end; + +procedure TfrmODLabImmedColl.calImmedCollectKeyUp(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + cmdCancelClick(cmdCancel); + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fODLabOthCollSamp.dfm b/CPRS-Chart/Orders/fODLabOthCollSamp.dfm new file mode 100644 index 0000000..7d508f5 --- /dev/null +++ b/CPRS-Chart/Orders/fODLabOthCollSamp.dfm @@ -0,0 +1,68 @@ +object frmODLabOthCollSamp: TfrmODLabOthCollSamp + Left = 321 + Top = 136 + Width = 236 + Height = 359 + BorderIcons = [] + Caption = 'Select Collection Sample' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 228 + Height = 332 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object cboOtherCollSamp: TORComboBox + Left = 9 + Top = 22 + Width = 212 + Height = 270 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnDblClick = cboOtherCollSampDblClick + end + object cmdOK: TButton + Left = 39 + Top = 303 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 123 + Top = 303 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fODLabOthCollSamp.pas b/CPRS-Chart/Orders/fODLabOthCollSamp.pas new file mode 100644 index 0000000..c79b257 --- /dev/null +++ b/CPRS-Chart/Orders/fODLabOthCollSamp.pas @@ -0,0 +1,90 @@ +unit fODLabOthCollSamp; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, ORCtrls, StdCtrls, ORFn; + +type + TfrmODLabOthCollSamp = class(TForm) + pnlBase: TORAutoPanel; + cboOtherCollSamp: TORComboBox; + cmdOK: TButton; + cmdCancel: TButton; + procedure cmdCancelClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cboOtherCollSampDblClick(Sender: TObject); + private + FOtherCollSamp: string; + end; + +function SelectOtherCollSample(FontSize: Integer; Skip: integer; CollSampList: TList): string ; + +implementation + +{$R *.DFM} + +uses fODLab, rODLab; + +const + TX_NOCOLLSAMP_TEXT = 'Select a collection sample or press Cancel.'; + TX_NOCOLLSAMP_CAP = 'Missing Collection Sample'; + +function SelectOtherCollSample(FontSize: Integer; Skip: integer; CollSampList: TList): string ; +{ displays collection sample select form for lab and returns a record of the selection } +var + frmODLabOthCollSamp: TfrmODLabOthCollSamp; + W, H, i: Integer; + x: string; +begin + frmODLabOthCollSamp := TfrmODLabOthCollSamp.Create(Application); + try + with frmODLabOthCollSamp do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + with CollSampList do for i := Skip to Count-1 do with TCollSamp(Items[i]) do + begin + x := IntToStr(CollSampID) + '^' + CollSampName; + if Length(TubeColor) <> 0 then x := x + ' (' + TubeColor + ')'; + cboOtherCollSamp.Items.Add(x) ; + end; + ShowModal; + Result := FOtherCollSamp; + end; + finally + frmODLabOthCollSamp.Release; + end; +end; + +procedure TfrmODLabOthCollSamp.cmdCancelClick(Sender: TObject); +begin + FOtherCollSamp := '-1' ; + Close; +end; + +procedure TfrmODLabOthCollSamp.cmdOKClick(Sender: TObject); +begin + if cboOtherCollSamp.ItemIEN = 0 then + begin + InfoBox(TX_NOCOLLSAMP_TEXT, TX_NOCOLLSAMP_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + if cboOtherCollSamp.ItemIEN > 0 then + FOtherCollSamp := cboOtherCollSamp.Items[cboOtherCollSamp.ItemIndex] + else + FOtherCollSamp := '-1' ; + Close; +end; + +procedure TfrmODLabOthCollSamp.cboOtherCollSampDblClick(Sender: TObject); +begin + cmdOKClick(Self); +end; + +end. diff --git a/CPRS-Chart/Orders/fODLabOthSpec.dfm b/CPRS-Chart/Orders/fODLabOthSpec.dfm new file mode 100644 index 0000000..eaae890 --- /dev/null +++ b/CPRS-Chart/Orders/fODLabOthSpec.dfm @@ -0,0 +1,69 @@ +object frmODLabOthSpec: TfrmODLabOthSpec + Left = 240 + Top = 136 + Width = 317 + Height = 359 + BorderIcons = [] + Caption = 'Select Specimen' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 309 + Height = 332 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object cboOtherSpec: TORComboBox + Left = 9 + Top = 22 + Width = 291 + Height = 270 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnDblClick = cboOtherSpecDblClick + OnNeedData = cboOtherSpecNeedData + end + object cmdOK: TButton + Left = 76 + Top = 302 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 160 + Top = 302 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fODLabOthSpec.pas b/CPRS-Chart/Orders/fODLabOthSpec.pas new file mode 100644 index 0000000..53b851c --- /dev/null +++ b/CPRS-Chart/Orders/fODLabOthSpec.pas @@ -0,0 +1,98 @@ +unit fODLabOthSpec; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, ORCtrls, StdCtrls, ORFn; + +type + TfrmODLabOthSpec = class(TForm) + pnlBase: TORAutoPanel; + cboOtherSpec: TORComboBox; + cmdOK: TButton; + cmdCancel: TButton; + procedure cmdCancelClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cboOtherSpecDblClick(Sender: TObject); + procedure cboOtherSpecNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + private + FOtherSpec: string; + end; + +function SelectOtherSpecimen(FontSize: Integer; SpecimenList: TStringList): string ; + +implementation + +{$R *.DFM} + +uses fODLab, rODLab; + +const + TX_NOSPEC_TEXT = 'Select a specimen or press Cancel.'; + TX_NOSPEC_CAP = 'Missing Specimen'; + +function SelectOtherSpecimen(FontSize: Integer; SpecimenList: TStringList): string ; +{ displays collection sample select form for lab and returns a record of the selection } +var + frmODLabOthSpec: TfrmODLabOthSpec; + W, H: Integer; +begin + frmODLabOthSpec := TfrmODLabOthSpec.Create(Application); + try + with frmODLabOthSpec do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + with cboOtherSpec do + begin + {MItems.Assign(SpecimenList); + InsertSeparator; } + InitLongList(''); + end; + ShowModal; + Result := FOtherSpec; + end; + finally + frmODLabOthSpec.Release; + end; +end; + +procedure TfrmODLabOthSpec.cmdCancelClick(Sender: TObject); +begin + FOtherSpec := '-1' ; + Close; +end; + +procedure TfrmODLabOthSpec.cmdOKClick(Sender: TObject); +begin + if cboOtherSpec.ItemIEN = 0 then + begin + InfoBox(TX_NOSPEC_TEXT, TX_NOSPEC_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + if cboOtherSpec.ItemIEN > 0 then + FOtherSpec := cboOtherSpec.Items[cboOtherSpec.ItemIndex] + else + FOtherSpec := '-1' ; + Close; +end; + +procedure TfrmODLabOthSpec.cboOtherSpecDblClick(Sender: TObject); +begin + cmdOKClick(Self); +end; + +procedure TfrmODLabOthSpec.cboOtherSpecNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + cboOtherSpec.ForDataUse(SubsetOfSpecimens(StartFrom, Direction)); +end; + +end. diff --git a/CPRS-Chart/Orders/fODMedComplex.dfm b/CPRS-Chart/Orders/fODMedComplex.dfm new file mode 100644 index 0000000..a2ee177 --- /dev/null +++ b/CPRS-Chart/Orders/fODMedComplex.dfm @@ -0,0 +1,216 @@ +inherited frmODMedComplex: TfrmODMedComplex + Left = 291 + Top = 307 + Width = 453 + Height = 254 + BorderIcons = [] + Caption = 'Complex Dose' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Bevel1: TBevel + Left = 6 + Top = 174 + Width = 433 + Height = 2 + end + object grdDoses: TStringGrid + Left = 6 + Top = 6 + Width = 433 + Height = 135 + DefaultColWidth = 78 + DefaultRowHeight = 21 + RowCount = 6 + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goTabs] + ScrollBars = ssVertical + TabOrder = 4 + OnDrawCell = grdDosesDrawCell + OnKeyPress = grdDosesKeyPress + OnMouseDown = grdDosesMouseDown + OnMouseUp = grdDosesMouseUp + RowHeights = ( + 21 + 21 + 21 + 21 + 21 + 21) + end + object cmdOK: TButton + Left = 290 + Top = 184 + Width = 72 + Height = 21 + Caption = 'OK' + TabOrder = 5 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 368 + Top = 184 + Width = 72 + Height = 21 + Caption = 'Cancel' + TabOrder = 6 + OnClick = cmdCancelClick + end + object cboRoute: TORComboBox + Left = 170 + Top = 200 + Width = 72 + Height = 21 + Style = orcsDropDown + AutoSelect = False + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + Visible = False + OnClick = cboRouteClick + OnExit = cboRouteExit + end + object cboSchedule: TORComboBox + Left = 169 + Top = 176 + Width = 72 + Height = 21 + Style = orcsDropDown + AutoSelect = False + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + Visible = False + OnExit = cboScheduleExit + end + object pnlInstruct: TPanel + Left = 6 + Top = 177 + Width = 150 + Height = 21 + BevelOuter = bvNone + TabOrder = 0 + Visible = False + OnEnter = pnlInstructEnter + OnExit = pnlInstructExit + object btnUnits: TSpeedButton + Left = 86 + Top = 1 + Width = 63 + Height = 15 + Caption = 'TABLET(S)' + Flat = True + Glyph.Data = { + AE000000424DAE0000000000000076000000280000000E000000070000000100 + 0400000000003800000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 330033333333333333003330333333733300330003333F87330030000033FFFF + F30033333333333333003333333333333300} + Layout = blGlyphRight + NumGlyphs = 2 + Spacing = 0 + OnClick = btnUnitsClick + end + object cboInstruct: TORComboBox + Left = -1 + Top = -1 + Width = 86 + Height = 21 + Style = orcsDropDown + AutoSelect = False + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 80 + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + end + end + object pnlDays: TPanel + Left = 6 + Top = 201 + Width = 67 + Height = 21 + BevelOuter = bvNone + TabOrder = 3 + Visible = False + OnEnter = pnlDaysEnter + OnExit = pnlDaysExit + object Label1: TLabel + Left = 43 + Top = 4 + Width = 22 + Height = 13 + Caption = 'days' + end + object txtDays: TCaptionEdit + Left = 0 + Top = 0 + Width = 25 + Height = 21 + AutoSelect = False + TabOrder = 0 + Text = '0' + OnChange = txtDaysChange + Caption = 'days' + end + object UpDown2: TUpDown + Left = 25 + Top = 0 + Width = 15 + Height = 21 + Associate = txtDays + Min = 0 + Max = 999 + Position = 0 + TabOrder = 1 + Wrap = False + end + end + object cmdInsert: TButton + Left = 6 + Top = 149 + Width = 79 + Height = 17 + Caption = 'Insert Row' + TabOrder = 7 + OnClick = cmdInsertClick + end + object cmdRemove: TButton + Left = 92 + Top = 149 + Width = 91 + Height = 17 + Caption = 'Remove Row' + TabOrder = 8 + OnClick = cmdRemoveClick + end + object popUnits: TPopupMenu + AutoPopup = False + Left = 109 + Top = 193 + end +end diff --git a/CPRS-Chart/Orders/fODMedComplex.pas b/CPRS-Chart/Orders/fODMedComplex.pas new file mode 100644 index 0000000..27bd0cf --- /dev/null +++ b/CPRS-Chart/Orders/fODMedComplex.pas @@ -0,0 +1,562 @@ +unit fODMedComplex; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, Grids, Buttons, ExtCtrls, ORCtrls, Menus, ORFn, fODBase, uConst, + ComCtrls; + +type + TfrmODMedComplex = class(TfrmAutoSz) + grdDoses: TStringGrid; + cmdOK: TButton; + cmdCancel: TButton; + cboRoute: TORComboBox; + cboSchedule: TORComboBox; + pnlInstruct: TPanel; + cboInstruct: TORComboBox; + btnUnits: TSpeedButton; + pnlDays: TPanel; + txtDays: TCaptionEdit; + Label1: TLabel; + popUnits: TPopupMenu; + Bevel1: TBevel; + cmdInsert: TButton; + cmdRemove: TButton; + UpDown2: TUpDown; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure btnUnitsClick(Sender: TObject); + procedure pnlInstructExit(Sender: TObject); + procedure cboRouteExit(Sender: TObject); + procedure cboScheduleExit(Sender: TObject); + procedure pnlDaysExit(Sender: TObject); + procedure grdDosesDrawCell(Sender: TObject; ACol, ARow: Integer; + Rect: TRect; State: TGridDrawState); + procedure pnlInstructEnter(Sender: TObject); + procedure pnlDaysEnter(Sender: TObject); + procedure grdDosesMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure cmdInsertClick(Sender: TObject); + procedure cmdRemoveClick(Sender: TObject); + procedure grdDosesMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure grdDosesKeyPress(Sender: TObject; var Key: Char); + procedure txtDaysChange(Sender: TObject); + procedure cboRouteClick(Sender: TObject); + private + FDropColumn: Integer; + procedure ShowEditor(ACol, ARow: Integer; AChar: Char); + procedure UnitClick(Sender: TObject); + procedure Validate(var AnErrMsg: string); + function ValFor(FieldID, ARow: Integer): string; + procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT; + public + { Public declarations } + end; + +function ExecuteComplexDose(CtrlInits: TCtrlInits; Responses: TResponses): Boolean; + +implementation + +{$R *.DFM} + +uses rODBase; + +const + COL_SELECT = 0; + COL_INSTRUCT = 1; + COL_ROUTE = 2; + COL_SCHEDULE = 3; + COL_DURATION = 4; + VAL_INSTR = 10; + VAL_MISC = 11; + VAL_ROUTE = 12; + VAL_SCHEDULE = 13; + VAL_DAYS = 14; + VAL_ABBROUTE = 15; + TAB = #9; + TX_NO_AMPER = ' Instructions may not contain the ampersand (&) character.'; + TX_NF_ROUTE = ' not found in the Medication Routes file.'; + TX_NO_ROUTE = ': Route must be entered.'; + TX_NO_SCHED = ': Schedule must be entered.'; + +{ public functions } + +function ExecuteComplexDose(CtrlInits: TCtrlInits; Responses: TResponses): Boolean; +var + frmODMedComplex: TfrmODMedComplex; + AResponse: TResponse; + AnInstance, ARow: Integer; + x: string; +begin + frmODMedComplex := TfrmODMedComplex.Create(Application); + try + ResizeFormToFont(TForm(frmODMedComplex)); + with frmODMedComplex do + begin + grdDoses.Cells[COL_INSTRUCT, 0] := CtrlInits.DefaultText('Verb'); + if grdDoses.Cells[COL_INSTRUCT, 0] = '' then grdDoses.Cells[COL_INSTRUCT, 0] := 'Amount'; + CtrlInits.SetControl(cboInstruct, 'Instruct'); + CtrlInits.SetPopupMenu(popUnits, UnitClick, 'Nouns'); + CtrlInits.SetControl(cboRoute, 'Route'); + CtrlInits.SetControl(cboSchedule, 'Schedules'); + with Responses do + begin + grdDoses.RowCount := InstanceCount('INSTR') + 2; // 1 row for headers, 1 for new dose + ARow := 1; // row 1 is first dose row + AnInstance := NextInstance('INSTR', 0); + while AnInstance > 0 do + begin + grdDoses.Cells[COL_INSTRUCT, ARow] := + IValueFor('INSTR', AnInstance) + ' ' + IValueFor('MISC', AnInstance) + TAB + + IValueFor('INSTR', AnInstance) + TAB + IValueFor('MISC', AnInstance); + AResponse := FindResponseByName('ROUTE', AnInstance); + cboRoute.SelectByID(AResponse.IValue); + with cboRoute do if ItemIndex > -1 then x := DisplayText[ItemIndex]; + grdDoses.Cells[COL_ROUTE, ARow] := x + TAB + AResponse.IValue + TAB + AResponse.EValue; + grdDoses.Cells[COL_SCHEDULE, ARow] := IValueFor('SCHEDULE', AnInstance); + x := IValueFor('DAYS', AnInstance); + if Length(x) > 0 then x := x + ' day(s)'; + grdDoses.Cells[COL_DURATION, ARow] := x + TAB + IValueFor('DAYS', AnInstance); + AnInstance := NextInstance('INSTR', AnInstance); + Inc(ARow); + end; {while AnInstance} + end; {with Responses} + end; + Result := frmODMedComplex.ShowModal = mrOK; + if Result then with frmODMedComplex, grdDoses, Responses do + begin + Clear('INSTR'); + Clear('MISC'); + Clear('ROUTE'); + Clear('SCHEDULE'); + Clear('DAYS'); + for ARow := 1 to Pred(RowCount) do + begin + if Length(ValFor(VAL_INSTR, ARow)) > 0 then + begin + Update('INSTR', ARow, ValFor(VAL_INSTR, ARow), ValFor(VAL_INSTR, ARow)); + if Length(ValFor(VAL_MISC, ARow)) > 0 then + Update('MISC', ARow, ValFor(VAL_MISC, ARow), ValFor(VAL_MISC, ARow)); + Update('ROUTE', ARow, ValFor(VAL_ROUTE, ARow), ValFor(VAL_ABBROUTE, ARow)); + Update('SCHEDULE', ARow, ValFor(VAL_SCHEDULE, ARow), ValFor(COL_SCHEDULE, ARow)); + Update('DAYS', ARow, ValFor(VAL_DAYS, ARow), ValFor(VAL_DAYS, ARow)); + end; {if Length} + end; {with...for} + end; {if Result} + finally + frmODMedComplex.Release; + end; +end; + +{ General Functions - get & set cell values} + +function TfrmODMedComplex.ValFor(FieldID, ARow: Integer): string; +{ Contents of grid cells is as follows (cells delimited by |, ^ indicates tab char) + InstructionText^INSTR^MISC | RouteText^ROUTE^Abbrev. | SCHEDULE DurationText^DAYS + Only the first tab piece for each cell is drawn. } +begin + Result := ''; + if (ARow < 1) or (ARow >= grdDoses.RowCount) then Exit; + with grdDoses do + case FieldID of + COL_INSTRUCT : Result := Piece(Cells[COL_INSTRUCT, ARow], TAB, 1); + COL_ROUTE : Result := Piece(Cells[COL_ROUTE, ARow], TAB, 1); + COL_SCHEDULE : Result := Piece(Cells[COL_SCHEDULE, ARow], TAB, 1); + COL_DURATION : Result := Piece(Cells[COL_DURATION, ARow], TAB, 1); + VAL_INSTR : Result := Piece(Cells[COL_INSTRUCT, ARow], TAB, 2); + VAL_MISC : Result := Piece(Cells[COL_INSTRUCT, ARow], TAB, 3); + VAL_ROUTE : Result := Piece(Cells[COL_ROUTE, ARow], TAB, 2); + VAL_SCHEDULE : Result := Piece(Cells[COL_SCHEDULE, ARow], TAB, 1); + VAL_DAYS : Result := Piece(Cells[COL_DURATION, ARow], TAB, 2); + VAL_ABBROUTE : Result := Piece(Cells[COL_ROUTE, ARow], Tab, 3); + end; +end; + +procedure FindInCombo(const x: string; AComboBox: TORComboBox); +var + i, Found: Integer; +begin + with AComboBox do + begin + i := 0; + Found := -1; + while (i < Items.Count) and (Found < 0) do + begin + if CompareText(Copy(DisplayText[i], 1, Length(x)), x) = 0 then Found := i; + Inc(i); + end; {while} + if Found > -1 then + begin + ItemIndex := Found; + Application.ProcessMessages; + SelStart := 1; + SelLength := Length(Items[Found]); + end else + begin + Text := x; + SelStart := Length(x); + end; + end; {with AComboBox} +end; + +{ Form Events } + +procedure TfrmODMedComplex.FormCreate(Sender: TObject); +begin + inherited; + with grdDoses do + begin + ColWidths[COL_SELECT] := 12; + ColWidths[COL_INSTRUCT] := 160; + Cells[COL_INSTRUCT, 0] := 'Amount'; + Cells[COL_ROUTE, 0] := 'Route'; + Cells[COL_SCHEDULE, 0] := 'Schedule'; + Cells[COL_DURATION, 0] := 'Duration'; + end; + FDropColumn := -1; +end; + +{ grdDoses events (including cell editors) } + +procedure TfrmODMedComplex.grdDosesMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + ACol, ARow: Integer; +begin + inherited; + grdDoses.MouseToCell(X, Y, ACol, ARow); + if (ARow < 0) or (ACol < 0) then Exit; + if ACol > COL_SELECT then ShowEditor(ACol, ARow, #0) else + begin + grdDoses.Col := COL_INSTRUCT; + grdDoses.Row := ARow; + end; +end; + +procedure TfrmODMedComplex.grdDosesKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then ShowEditor(grdDoses.Col, grdDoses.Row, #0); + if Key in [#32..#127] then ShowEditor(grdDoses.Col, grdDoses.Row, Key); +end; + +procedure TfrmODMedComplex.grdDosesMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + inherited; + case FDropColumn of + COL_INSTRUCT: with cboInstruct do if Items.Count > 0 then DroppedDown := True; + COL_ROUTE: with cboRoute do if Items.Count > 0 then DroppedDown := True; + COL_SCHEDULE: with cboSchedule do if Items.Count > 0 then DroppedDown := True; + end; + FDropColumn := -1; +end; + +procedure TfrmODMedComplex.grdDosesDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; + State: TGridDrawState); +{ only show the first tab piece of the cell } +begin + inherited; + grdDoses.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, + Piece(grdDoses.Cells[ACol, ARow], TAB, 1)); +end; + +procedure TfrmODMedComplex.ShowEditor(ACol, ARow: Integer; AChar: Char); + + procedure PlaceControl(AControl: TWinControl); + var + ARect: TRect; + begin + with AControl do + begin + ARect := grdDoses.CellRect(ACol, ARow); + SetBounds(ARect.Left + grdDoses.Left + 1, ARect.Top + grdDoses.Top + 1, + ARect.Right - ARect.Left + 1, ARect.Bottom - ARect.Top + 1); + BringToFront; + Show; + SetFocus; + end; + end; + +begin + inherited; + if ARow = 0 then Exit; // header row + // require initial instruction entry when in last row + with grdDoses do if (ARow = Pred(RowCount)) and (ACol > COL_INSTRUCT) and + (ValFor(VAL_INSTR, ARow) = '') then Exit; + // only allow route when in first row + if (ACol = COL_ROUTE) and (ARow > 1) then Exit; + // display appropriate editor for row & column + case ACol of + COL_INSTRUCT: begin + // if this is the last row, default the route & schedule to previous row + if (ARow > 1) and (ARow = Pred(grdDoses.RowCount)) then + begin + grdDoses.Cells[COL_INSTRUCT, ARow] := TAB + TAB + ValFor(VAL_MISC, Pred(ARow)); + grdDoses.Cells[COL_ROUTE, ARow] := grdDoses.Cells[COL_ROUTE, Pred(ARow)]; + grdDoses.Cells[COL_SCHEDULE, ARow] := grdDoses.Cells[COL_SCHEDULE, Pred(ARow)]; + end; + // set appropriate value for cboInstruct & btnUnits + btnUnits.Caption := ValFor(VAL_MISC, ARow); + pnlInstruct.Tag := ARow; + if popUnits.Items.Count = 0 then + begin + btnUnits.Visible := False; + cboInstruct.Width := pnlInstruct.Width; + end; + PlaceControl(pnlInstruct); + FDropColumn := COL_INSTRUCT; + if AChar <> #0 + then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_INSTRUCT) + else cboInstruct.Text := ValFor(VAL_INSTR, ARow); + end; + COL_ROUTE: begin + // set appropriate value for cboRoute + cboRoute.SelectByID(ValFor(VAL_ROUTE, ARow)); + if cboRoute.Text = '' then cboRoute.Text := ValFor(COL_ROUTE, ARow); + cboRoute.Tag := ARow; + PlaceControl(cboRoute); + FDropColumn := COL_ROUTE; + if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_ROUTE); + end; + COL_SCHEDULE: begin + // set appropriate value for cboSchedule + cboSchedule.Tag := ARow; + PlaceControl(cboSchedule); + FDropColumn := COL_SCHEDULE; + if AChar <> #0 + then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_SCHEDULE) + else cboSchedule.Text := ValFor(COL_SCHEDULE, ARow); + end; + COL_DURATION: begin + // set appropriate value for txtDays + pnlDays.Tag := ARow; + PlaceControl(pnlDays); + txtDays.SetFocus; + if AChar <> #0 + then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_DURATION) + else txtDays.Text := ValFor(VAL_DAYS, ARow); + end; + end; {case ACol} +end; + +procedure TfrmODMedComplex.UMDelayEvent(var Message: TMessage); +{ after focusing events are completed for a combobox, set the key the user typed } +begin + case Message.LParam of + COL_INSTRUCT : FindInCombo(Chr(Message.WParam), cboInstruct); + COL_ROUTE : FindInCombo(Chr(Message.WParam), cboRoute); + COL_SCHEDULE : FindInCombo(Chr(Message.WParam), cboSchedule); + COL_DURATION : begin + txtDays.Text := Chr(Message.WParam); + txtDays.SelStart := 1; + end; + end; +end; + +{ Instructions Editor } + +procedure TfrmODMedComplex.pnlInstructEnter(Sender: TObject); +begin + inherited; + // if this was the last row, create a new last row + if grdDoses.Row = Pred(grdDoses.RowCount) then grdDoses.RowCount := grdDoses.RowCount + 1; + // shift focus to the combobox portion of the instructions panel + cboInstruct.SetFocus; +end; + +procedure TfrmODMedComplex.pnlInstructExit(Sender: TObject); +var + ARow: Integer; +begin + inherited; + ARow := pnlInstruct.Tag; + // clear the rest of the row if no instruction has been entered + with grdDoses do if (ARow = Pred(RowCount)) and (cboInstruct.Text = '') then + begin + Cells[COL_INSTRUCT, ARow] := ''; + Cells[COL_ROUTE, ARow] := ''; + Cells[COL_SCHEDULE, ARow] := ''; + Cells[COL_DURATION, ARow] := ''; + Exit; + end; + // save entered information in the cell + grdDoses.Cells[COL_INSTRUCT, ARow] := cboInstruct.Text + ' ' + btnUnits.Caption + TAB + + cboInstruct.Text + TAB + btnUnits.Caption; + pnlInstruct.Tag := -1; + pnlInstruct.Hide; +end; + +procedure TfrmODMedComplex.btnUnitsClick(Sender: TObject); +var + APoint: TPoint; +begin + inherited; + APoint := btnUnits.ClientToScreen(Point(0, btnUnits.Height)); + popUnits.Popup(APoint.X, APoint.Y); +end; + +procedure TfrmODMedComplex.UnitClick(Sender: TObject); +begin + btnUnits.Caption := TMenuItem(Sender).Caption; +end; + +{ Route Editor } + +procedure TfrmODMedComplex.cboRouteClick(Sender: TObject); +{ force all routes to be the same (until pharmacy changes to accomodate varying routes) } +var + i: Integer; + x: string; +begin + inherited; + with cboRoute do if ItemIndex > -1 + then x := Piece(Items[ItemIndex], U, 3) + else x := cboRoute.Text; + for i := 1 to Pred(grdDoses.RowCount) do + if Length(ValFor(VAL_INSTR, i)) > 0 + then grdDoses.Cells[COL_ROUTE, i] := cboRoute.Text + TAB + cboRoute.ItemID + TAB + x; +end; + +procedure TfrmODMedComplex.cboRouteExit(Sender: TObject); +begin + inherited; + cboRouteClick(Self); + cboRoute.Tag := -1; + cboRoute.Hide; +end; + +{ Schedule Editor } + +procedure TfrmODMedComplex.cboScheduleExit(Sender: TObject); +begin + inherited; + grdDoses.Cells[COL_SCHEDULE, cboSchedule.Tag] := cboSchedule.Text; + cboSchedule.Tag := -1; + cboSchedule.Hide; +end; + +{ Duration Editor } + +procedure TfrmODMedComplex.pnlDaysEnter(Sender: TObject); +begin + inherited; + txtDays.SetFocus; +end; + +procedure TfrmODMedComplex.pnlDaysExit(Sender: TObject); +var + x: string; +begin + inherited; + x := txtDays.Text; + if Length(x) > 0 then x := x + ' day(s)'; + x := x + TAB + txtDays.Text; + grdDoses.Cells[COL_DURATION, pnlDays.Tag] := x; + pnlDays.Tag := -1; + pnlDays.Hide; +end; + +procedure TfrmODMedComplex.txtDaysChange(Sender: TObject); +begin + inherited; + if txtDays.Text = '0' then txtDays.Text := ''; +end; + +{ Command Buttons } + +procedure TfrmODMedComplex.cmdInsertClick(Sender: TObject); +var + i: Integer; + x0, x1, x2: string; +begin + inherited; + cmdInsert.SetFocus; // make sure exit events for editors fire + with grdDoses do + begin + if Row < 1 then Exit; + x0 := TAB + TAB + ValFor(VAL_MISC, Row); + x1 := grdDoses.Cells[COL_ROUTE, Row]; + x2 := grdDoses.Cells[COL_SCHEDULE, Row]; + RowCount := RowCount + 1; + { move rows down } + for i := Pred(RowCount) downto Succ(Row) do Rows[i] := Rows[i-1]; + Rows[Row].Clear; + Cells[COL_INSTRUCT, Row] := x0; + Cells[COL_ROUTE, Row] := x1; + Cells[COL_SCHEDULE, Row] := x2; + Col := COL_INSTRUCT; + ShowEditor(COL_INSTRUCT, Row, #0); + end; +end; + +procedure TfrmODMedComplex.cmdRemoveClick(Sender: TObject); +var + i: Integer; +begin + inherited; + cmdRemove.SetFocus; // make sure exit events for editors fire + with grdDoses do if (Row > 0) and (RowCount > 2) then + begin + { move rows up } + for i := Row to RowCount - 2 do Rows[i] := Rows[i+1]; + RowCount := RowCount - 1; + Rows[RowCount].Clear; + end; +end; + +procedure TfrmODMedComplex.Validate(var AnErrMsg: string); +var + i: Integer; + RouteID, RouteAbbr: string; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + AnErrMsg := ''; + with grdDoses do for i := 1 to Pred(RowCount) do + begin + if Length(ValFor(VAL_INSTR, i)) > 0 then + begin + if Pos('&', cboInstruct.Text) > 0 then SetError(IntToStr(i) + TX_NO_AMPER); + if ValFor(COL_ROUTE, i) = '' then SetError(IntToStr(i) + TX_NO_ROUTE); + if ValFor(COL_SCHEDULE, i) = '' then SetError(IntToStr(i) + TX_NO_SCHED); + if (ValFor(VAL_ROUTE, i) = '') and (Length(ValFor(COL_ROUTE, i)) > 0) then + begin + LookupRoute(ValFor(COL_ROUTE, i), RouteID, RouteAbbr); + if RouteID = '0' + then SetError(ValFor(COL_ROUTE, i) + TX_NF_ROUTE) + else Cells[COL_ROUTE, i] := ValFor(COL_ROUTE, i) + TAB + RouteID + TAB + RouteAbbr; + end; {if ValFor} + end; {if Length} + end; {with grdDoses...for i} +end; + +procedure TfrmODMedComplex.cmdOKClick(Sender: TObject); +var + ErrMsg: string; +begin + inherited; + cmdOK.SetFocus; // make sure exit events for editors fire + Validate(ErrMsg); + if ShowMsgOn(Length(ErrMsg) > 0, ErrMsg, 'Error') then Exit; + ModalResult := mrOK; +end; + +procedure TfrmODMedComplex.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +{ Test Stuff } + +end. diff --git a/CPRS-Chart/Orders/fODMedFA.dfm b/CPRS-Chart/Orders/fODMedFA.dfm new file mode 100644 index 0000000..67fa698 --- /dev/null +++ b/CPRS-Chart/Orders/fODMedFA.dfm @@ -0,0 +1,62 @@ +inherited frmODMedFA: TfrmODMedFA + Left = 333 + Top = 258 + Width = 316 + Height = 205 + Caption = 'Formulary Alternatives' + FormStyle = fsStayOnTop + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 273 + Height = 13 + Caption = 'The selected drug is not in the formulary. Alternatives are:' + end + object Label2: TStaticText + Left = 8 + Top = 127 + Width = 250 + Height = 17 + Caption = 'Do you wish to use the selected alternative instead?' + TabOrder = 3 + end + object lstFormAlt: TORListBox + Left = 8 + Top = 22 + Width = 292 + Height = 97 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = lstFormAltClick + Caption = 'The selected drug is not in the formulary. Alternatives are:' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object cmdYes: TButton + Left = 74 + Top = 148 + Width = 72 + Height = 21 + Caption = 'Yes' + Default = True + Enabled = False + TabOrder = 1 + OnClick = cmdYesClick + end + object cmdNo: TButton + Left = 162 + Top = 148 + Width = 72 + Height = 21 + Cancel = True + Caption = 'No' + TabOrder = 2 + OnClick = cmdNoClick + end +end diff --git a/CPRS-Chart/Orders/fODMedFA.pas b/CPRS-Chart/Orders/fODMedFA.pas new file mode 100644 index 0000000..bfccaad --- /dev/null +++ b/CPRS-Chart/Orders/fODMedFA.pas @@ -0,0 +1,107 @@ +unit fODMedFA; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORCtrls, ORFn; + +type + TfrmODMedFA = class(TfrmAutoSz) + Label1: TLabel; + lstFormAlt: TORListBox; + Label2: TStaticText; + cmdYes: TButton; + cmdNo: TButton; + procedure lstFormAltClick(Sender: TObject); + procedure cmdYesClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cmdNoClick(Sender: TObject); + private + { Private declarations } + FSelected: string; + public + { Public declarations } + end; + +procedure SelectFormularyAlt(AnIEN: Integer; var ADrug, AnOI: Integer; + var ADrugName, AnOIName: string; PSType: Char); + +implementation + +{$R *.DFM} + +uses rODBase; + +const + TX_NO_FORM_ALT = 'This drug is not in the formulary!' + CRLF + + 'There are no formulary alternatives entered for this item.' + CRLF + + 'Please consult with your pharmacy before ordering this item.'; + TC_NO_FORM_ALT = 'No Formulary Alternatives'; + +procedure SelectFormularyAlt(AnIEN: Integer; var ADrug, AnOI: Integer; + var ADrugName, AnOIName: string; PSType: Char); +var + frmODMedFA: TfrmODMedFA; + FormAltList: TStringList; +begin + ADrug := 0; + AnOI := 0; + ADrugName := ''; + AnOIName := ''; + FormAltList := TStringList.Create; + try + LoadFormularyAlt(FormAltList, AnIEN, PSType); + if FormAltList.Count > 0 then + begin + frmODMedFA := TfrmODMedFA.Create(Application); + try + ResizeFormToFont(TForm(frmODMedFA)); + with frmODMedFA do + begin + lstFormAlt.Items.Assign(FormAltList); + ShowModal; + if Length(FSelected) > 0 then + begin + ADrug := StrToIntDef(Piece(FSelected, U, 1), 0); + AnOI := StrToIntDef(Piece(FSelected, U, 4), 0); + ADrugName := Piece(FSelected, U, 2); + AnOIName := Piece(FSelected, U, 5); + end; + end; + finally + frmODMedFA.Release; + end; {frmODMedFA} + end + else InfoBox(TX_NO_FORM_ALT, TC_NO_FORM_ALT, MB_OK); + finally + FormAltList.Free; + end; {FormAltList} +end; + +procedure TfrmODMedFA.FormCreate(Sender: TObject); +begin + inherited; + FSelected := ''; +end; + +procedure TfrmODMedFA.lstFormAltClick(Sender: TObject); +begin + inherited; + if lstFormAlt.ItemIndex > -1 then cmdYes.Enabled := True; +end; + +procedure TfrmODMedFA.cmdYesClick(Sender: TObject); +begin + inherited; + with lstFormAlt do if ItemIndex > -1 then FSelected := Items[ItemIndex]; + Close; +end; + +procedure TfrmODMedFA.cmdNoClick(Sender: TObject); +begin + inherited; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fODMedIV.dfm b/CPRS-Chart/Orders/fODMedIV.dfm new file mode 100644 index 0000000..9bc52f7 --- /dev/null +++ b/CPRS-Chart/Orders/fODMedIV.dfm @@ -0,0 +1,324 @@ +inherited frmODMedIV: TfrmODMedIV + Left = 587 + Top = 331 + Width = 610 + Height = 341 + Caption = 'Infusion Order' + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object lblInfusionRate: TLabel [0] + Left = 6 + Top = 196 + Width = 96 + Height = 13 + Caption = 'Infusion Rate (ml/hr)' + end + object lblPriority: TLabel [1] + Left = 134 + Top = 196 + Width = 31 + Height = 13 + Caption = 'Priority' + end + object lblComponent: TLabel [2] + Left = 214 + Top = 6 + Width = 81 + Height = 13 + Caption = 'Solution/Additive' + end + object lblAmount: TLabel [3] + Left = 328 + Top = 6 + Width = 80 + Height = 13 + Caption = 'Volume/Strength' + WordWrap = True + end + object lblComments: TLabel [4] + Left = 214 + Top = 106 + Width = 49 + Height = 13 + Caption = 'Comments' + end + object lblLimit: TLabel [5] + Left = 230 + Top = 196 + Width = 117 + Height = 13 + Caption = 'Duration or Total Volume' + end + object txtRate: TCaptionEdit [6] + Left = 6 + Top = 210 + Width = 91 + Height = 21 + AutoSelect = False + TabOrder = 5 + OnChange = ControlChange + OnExit = txtRateExit + Caption = 'Infusion Rate' + end + object cboPriority: TORComboBox [7] + Left = 134 + Top = 210 + Width = 72 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Priority' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 6 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object grdSelected: TCaptionStringGrid [8] + Left = 214 + Top = 20 + Width = 384 + Height = 76 + ColCount = 3 + DefaultColWidth = 100 + DefaultRowHeight = 19 + FixedCols = 0 + RowCount = 1 + FixedRows = 0 + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected] + ScrollBars = ssVertical + TabOrder = 2 + OnDrawCell = grdSelectedDrawCell + OnKeyPress = grdSelectedKeyPress + OnMouseDown = grdSelectedMouseDown + Caption = 'Selected Solution and Additives' + end + object cmdRemove: TButton [9] + Left = 443 + Top = 99 + Width = 72 + Height = 18 + Caption = 'Remove' + TabOrder = 3 + OnClick = cmdRemoveClick + end + object memComments: TCaptionMemo [10] + Left = 214 + Top = 120 + Width = 384 + Height = 66 + Lines.Strings = ( + 'memComments') + ScrollBars = ssVertical + TabOrder = 4 + OnChange = ControlChange + Caption = 'Comments' + end + object txtSelected: TCaptionEdit [11] + Tag = -1 + Left = 416 + Top = 44 + Width = 45 + Height = 19 + Ctl3D = False + ParentCtl3D = False + TabOrder = 0 + Text = 'meq.' + Visible = False + OnChange = txtSelectedChange + OnExit = txtSelectedExit + Caption = 'Volume' + end + object cboSelected: TCaptionComboBox [12] + Tag = -1 + Left = 460 + Top = 44 + Width = 53 + Height = 21 + Style = csDropDownList + Ctl3D = False + ItemHeight = 13 + ParentCtl3D = False + TabOrder = 1 + Visible = False + OnChange = cboSelectedChange + OnExit = cboSelectedExit + Caption = 'Volume/Strength' + end + inherited memOrder: TCaptionMemo + Top = 255 + Width = 475 + TabOrder = 10 + end + inherited cmdAccept: TButton + Left = 495 + Top = 255 + TabOrder = 8 + end + inherited cmdQuit: TButton + Left = 495 + Top = 282 + TabOrder = 9 + end + inherited pnlMessage: TPanel + Top = 237 + TabOrder = 11 + end + object pnlXDuration: TPanel + Left = 229 + Top = 210 + Width = 121 + Height = 21 + BevelOuter = bvNone + TabOrder = 7 + OnEnter = pnlXDurationEnter + DesignSize = ( + 121 + 21) + object btnXDuration: TBitBtn + Left = 69 + Top = 1 + Width = 50 + Height = 20 + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = 'days' + TabOrder = 1 + OnClick = btnXDurationClick + Glyph.Data = { + AE000000424DAE0000000000000076000000280000000E000000070000000100 + 0400000000003800000000000000000000001000000000000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 330033333333333333003330333333733300330003333F87330030000033FFFF + F30033333333333333003333333333333300} + Layout = blGlyphRight + NumGlyphs = 2 + Spacing = 0 + end + object txtXDuration: TCaptionEdit + Left = 0 + Top = 0 + Width = 68 + Height = 21 + TabOrder = 0 + OnChange = txtXDurationChange + OnExit = txtXDurationExit + Caption = 'Duration' + end + end + object pnlCombo: TPanel + Left = 8 + Top = 1 + Width = 200 + Height = 185 + BevelOuter = bvNone + TabOrder = 17 + object cboAdditive: TORComboBox + Left = 0 + Top = 20 + Width = 200 + Height = 165 + Style = orcsSimple + Align = alClient + AutoSelect = True + Caption = 'Additives' + Color = clWindow + DropDownCount = 11 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabPositions = '20' + TabOrder = 0 + OnExit = cboAdditiveExit + OnMouseClick = cboAdditiveMouseClick + OnNeedData = cboAdditiveNeedData + CharsNeedMatch = 1 + end + object tabFluid: TTabControl + Left = 0 + Top = 0 + Width = 200 + Height = 20 + Align = alTop + TabHeight = 15 + TabOrder = 1 + Tabs.Strings = ( + ' Solutions ' + ' Additives ') + TabIndex = 0 + TabStop = False + OnChange = tabFluidChange + end + object cboSolution: TORComboBox + Left = 0 + Top = 20 + Width = 200 + Height = 165 + Style = orcsSimple + Align = alClient + AutoSelect = True + Caption = 'Solutions' + Color = clWindow + DropDownCount = 11 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabPositions = '20' + TabOrder = 2 + OnExit = cboSolutionExit + OnMouseClick = cboSolutionMouseClick + OnNeedData = cboSolutionNeedData + CharsNeedMatch = 1 + end + end + object popDuration: TPopupMenu + AutoHotkeys = maManual + Left = 387 + Top = 91 + object popL: TMenuItem + Tag = 1 + Caption = 'L' + OnClick = popDurationClick + end + object popML: TMenuItem + Tag = 2 + Caption = 'ml' + OnClick = popDurationClick + end + object popDays: TMenuItem + Tag = 3 + Caption = 'days' + OnClick = popDurationClick + end + object popHours: TMenuItem + Tag = 4 + Caption = 'hours' + OnClick = popDurationClick + end + end +end diff --git a/CPRS-Chart/Orders/fODMedIV.pas b/CPRS-Chart/Orders/fODMedIV.pas new file mode 100644 index 0000000..dad7843 --- /dev/null +++ b/CPRS-Chart/Orders/fODMedIV.pas @@ -0,0 +1,954 @@ +unit fODMedIV; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, Grids, StdCtrls, ORCtrls, ComCtrls, ExtCtrls, Buttons, Menus, IdGlobal; + +type + TfrmODMedIV = class(TfrmODBase) + lblInfusionRate: TLabel; + txtRate: TCaptionEdit; + lblComponent: TLabel; + lblAmount: TLabel; + grdSelected: TCaptionStringGrid; + cmdRemove: TButton; + lblComments: TLabel; + memComments: TCaptionMemo; + txtSelected: TCaptionEdit; + cboSelected: TCaptionComboBox; + popDuration: TPopupMenu; + popML: TMenuItem; + popDays: TMenuItem; + popHours: TMenuItem; + popL: TMenuItem; + pnlXDuration: TPanel; + txtXDuration: TCaptionEdit; + lblLimit: TLabel; + btnXDuration: TBitBtn; + pnlCombo: TPanel; + cboAdditive: TORComboBox; + tabFluid: TTabControl; + cboSolution: TORComboBox; + lblPriority: TLabel; + cboPriority: TORComboBox; + procedure FormCreate(Sender: TObject); + procedure tabFluidChange(Sender: TObject); + procedure cboAdditiveNeedData(Sender: TObject; const StartFrom: string; Direction, + InsertAt: Integer); + procedure cboSolutionNeedData(Sender: TObject; const StartFrom: string; Direction, + InsertAt: Integer); + procedure cboAdditiveMouseClick(Sender: TObject); + procedure cboAdditiveExit(Sender: TObject); + procedure cboSolutionMouseClick(Sender: TObject); + procedure cboSolutionExit(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure cmdRemoveClick(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure txtSelectedExit(Sender: TObject); + procedure cboSelectedExit(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure txtSelectedChange(Sender: TObject); + procedure cboSelectedChange(Sender: TObject); + procedure grdSelectedDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; + State: TGridDrawState); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure grdSelectedKeyPress(Sender: TObject; var Key: Char); + procedure grdSelectedMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure btnXDurationClick(Sender: TObject); + procedure popDurationClick(Sender: TObject); + procedure txtXDurationChange(Sender: TObject); + procedure pnlXDurationEnter(Sender: TObject); + procedure txtXDurationExit(Sender: TObject); + procedure txtRateExit(Sender: TObject); + private + FInpatient: Boolean; + procedure SetValuesFromResponses; + procedure DoSetFontSize( FontSize: integer); + procedure ClickOnGridCell; + procedure SetLimitationControl(aValue: string); + public + procedure InitDialog; override; + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + procedure Validate(var AnErrMsg: string); override; + procedure SetFontSize( FontSize: integer); override; + end; + +var + frmODMedIV: TfrmODMedIV; + +implementation + +{$R *.DFM} + +uses ORFn, uConst, rODMeds, rODBase, uAccessibleStringGrid, fFrame; + +const + TX_NO_DEA = 'Provider must have a DEA# or VA# to order this medication'; + TC_NO_DEA = 'DEA# Required'; + +type + TIVComponent = class + private + IEN: Integer; + Name: string; + Fluid: Char; + Amount: Integer; + Units: string; + Volumes: string; + end; + +const + TC_RESTRICT = 'Ordering Restrictions'; + TX_NO_BASE = 'A solution must be selected.'; + TX_NO_AMOUNT = 'A valid strength or volume must be entered for '; + TX_NO_UNITS = 'Units must be entered for '; + TX_NO_RATE = 'An infusion rate must be entered.'; + TX_BAD_RATE = 'The infusion rate must be: # ml/hr or text@labels per day'; + +(* + { TIVComponent methods } + +procedure TIVComponent.Clear; +begin + IEN := 0; + Name := ''; + Fluid := #0; + Amount := 0; + Units := ''; + Volumes := ''; +end; +*) + +{ Form methods } + +procedure TfrmODMedIV.FormCreate(Sender: TObject); +var + Restriction: string; +begin + frmFrame.pnlVisit.Enabled := false; + inherited; + AllowQuickOrder := True; + CheckAuthForMeds(Restriction); + if Length(Restriction) > 0 then + begin + InfoBox(Restriction, TC_RESTRICT, MB_OK); + Close; + Exit; + end; + DoSetFontSize(MainFontSize); + FillerID := 'PSIV'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Dialog := 'PSJI OR PAT FLUID OE'; // loads formatting info + StatusText('Loading Default Values'); + CtrlInits.LoadDefaults(ODForIVFluids); // ODForIVFluids returns TStrings with defaults + InitDialog; + TAccessibleStringGrid.WrapControl(grdSelected); +end; + +procedure TfrmODMedIV.FormDestroy(Sender: TObject); +var + i: Integer; +begin + TAccessibleStringGrid.UnwrapControl(grdSelected); + with grdSelected do for i := 0 to RowCount - 1 do TIVComponent(Objects[0, i]).Free; + inherited; + frmFrame.pnlVisit.Enabled := True; +end; + +procedure TfrmODMedIV.FormResize(Sender: TObject); +begin + inherited; + with grdSelected do + begin + ColWidths[1] := Canvas.TextWidth(' 10000 ') + GetSystemMetrics(SM_CXVSCROLL); + ColWidths[2] := Canvas.TextWidth('meq.') + GetSystemMetrics(SM_CXVSCROLL); + ColWidths[0] := ClientWidth - ColWidths[1] - ColWidths[2] - 4; + end; + lblAmount.Left := grdSelected.Left + grdSelected.ColWidths[0]; +end; + +{ TfrmODBase overrides } + +procedure TfrmODMedIV.InitDialog; +const + NOSELECTION: TGridRect = (Left: -1; Top: -1; Right: -1; Bottom: -1); +var + i: Integer; +begin + inherited; + //grdSelected.Selection := NOSELECTION; + with grdSelected do for i := 0 to RowCount - 1 do + begin + TIVComponent(Objects[0, i]).Free; + Rows[i].Clear; + end; + grdSelected.RowCount := 1; + //txtRate.Text := ' ml/hr'; {*kcm*} + with CtrlInits do + begin + SetControl(cboSolution, 'ShortList'); + cboSolution.InsertSeparator; + SetControl(cboPriority, 'Priorities'); + end; + tabFluid.TabIndex := 0; + tabFluidChange(Self); // this makes cboSolution visible + cboSolution.InitLongList(''); + cboAdditive.InitLongList(''); + ActiveControl := cboSolution; //SetFocusedControl(cboSolution); + StatusText(''); +end; + +procedure TfrmODMedIV.Validate(var AnErrMsg: string); +var + ItemOK: Boolean; + x: string; + i: Integer; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + inherited; + with grdSelected do + begin + ItemOK := False; + for i := 0 to RowCount - 1 do + if TIVComponent(Objects[0, i]).Fluid = 'B' then ItemOK := True; + if not ItemOK then SetError(TX_NO_BASE); + for i := 0 to RowCount - 1 do + begin + if (Objects[0, i] <> nil) and ((Length(Cells[1, i]) = 0) or (StrToFloat(Cells[1,i])=0)) + then SetError(TX_NO_AMOUNT + Cells[0, i]); + if (Objects[0, i] <> nil) and (Length(Cells[2, i]) = 0) + then SetError(TX_NO_UNITS + Cells[0, i]); + end; + end; + if Length(txtRate.Text) = 0 then SetError(TX_NO_RATE) else + begin + x := Trim(txtRate.Text); + ValidateIVRate(x); + if Length(x) = 0 then SetError(TX_BAD_RATE) else Responses.Update('RATE', 1, x, x); + end; +end; + +procedure TfrmODMedIV.SetValuesFromResponses; +var + x: string; + AnInstance: Integer; + AResponse: TResponse; + AnIVComponent: TIVComponent; +begin + Changing := True; + with Responses do + begin + FInpatient := OrderForInpatient; + AnInstance := NextInstance('ORDERABLE', 0); + while AnInstance > 0 do + begin + AResponse := FindResponseByName('ORDERABLE', AnInstance); + if AResponse <> nil then + begin + x := AmountsForIVFluid(StrToIntDef(AResponse.IValue, 0), 'B'); + AnIVComponent := TIVComponent.Create; + AnIVComponent.IEN := StrToIntDef(AResponse.IValue, 0); + if not FInpatient then + begin + if DEACheckFailedForIVOnOutPatient(AnIVComponent.IEN,'S') then + begin + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + cboAdditive.Text := ''; + Exit; + end; + end else + begin + if DEACheckFailed(AnIVComponent.IEN, FInpatient) then + begin + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + cboAdditive.Text := ''; + Exit; + end; + end; + AnIVComponent.Name := AResponse.EValue; + AnIVComponent.Fluid := 'B'; + AnIVComponent.Amount := StrToIntDef(Piece(x, U, 2), 0); + AnIVComponent.Units := Piece(x, U, 1); + AnIVComponent.Volumes := Copy(x, Pos(U, x) + 1, Length(x)); + with grdSelected do + begin + if Objects[0, RowCount - 1] <> nil then RowCount := RowCount + 1; + Objects[0, RowCount - 1] := AnIVComponent; + Cells[0, RowCount - 1] := AnIVComponent.Name; + if AnIVComponent.Amount <> 0 then + Cells[1, RowCount - 1] := IntToStr(AnIVComponent.Amount); + Cells[2, RowCount - 1] := AnIVComponent.Units; + end; + end; + AResponse := FindResponseByName('VOLUME', AnInstance); + if AResponse <> nil then with grdSelected do Cells[1, RowCount - 1] := AResponse.EValue; + AnInstance := NextInstance('ORDERABLE', AnInstance); + end; {while AnInstance - ORDERABLE} + AnInstance := NextInstance('ADDITIVE', 0); + while AnInstance > 0 do + begin + AResponse := FindResponseByName('ADDITIVE', AnInstance); + if AResponse <> nil then + begin + x := AmountsForIVFluid(StrToIntDef(AResponse.IValue, 0), 'A'); + AnIVComponent := TIVComponent.Create; + AnIVComponent.IEN := StrToIntDef(AResponse.IValue, 0); + if not FInpatient then + begin + if DEACheckFailedForIVOnOutPatient(AnIVComponent.IEN,'A') then + begin + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + cboAdditive.Text := ''; + Exit; + end; + end else + begin + if DEACheckFailed(AnIVComponent.IEN, FInpatient) then + begin + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + cboAdditive.Text := ''; + Exit; + end; + end; + AnIVComponent.Name := AResponse.EValue; + AnIVComponent.Fluid := 'A'; + AnIVComponent.Amount := StrToIntDef(Piece(x, U, 2), 0); + AnIVComponent.Units := Piece(x, U, 1); + AnIVComponent.Volumes := Copy(x, Pos(U, x) + 1, Length(x)); + with grdSelected do + begin + if Objects[0, RowCount - 1] <> nil then RowCount := RowCount + 1; + Objects[0, RowCount - 1] := AnIVComponent; + Cells[0, RowCount - 1] := AnIVComponent.Name; + if AnIVComponent.Amount <> 0 then + Cells[1, RowCount - 1] := IntToStr(AnIVComponent.Amount); + Cells[2, RowCount - 1] := AnIVComponent.Units; + end; + end; + AResponse := FindResponseByName('STRENGTH', AnInstance); + if AResponse <> nil then with grdSelected do Cells[1, RowCount - 1] := AResponse.EValue; + AResponse := FindResponseByName('UNITS', AnInstance); + if AResponse <> nil then with grdSelected do Cells[2, RowCount - 1] := AResponse.EValue; + AnInstance := NextInstance('ADDITIVE', AnInstance); + end; {while AnInstance - ADDITIVE} + SetControl(txtRate, 'RATE', 1); + if LowerCase(Copy(ReverseStr(txtRate.Text), 1, 6)) = 'rh/lm ' {*kcm*} + then txtRate.Text := Copy(txtRate.Text, 1, Length(txtRate.Text) - 6); + SetControl(cboPriority, 'URGENCY', 1); + SetControl(memComments, 'COMMENT', 1); + + AnInstance := NextInstance('DAYS', 0); + if AnInstance > 0 then + begin + AResponse := FindResponseByName('DAYS', AnInstance); + if AResponse <> nil then + SetLimitationControl(AResponse.EValue); + end; + end; {if...with Responses} + Changing := False; + ControlChange(Self); +end; + +procedure TfrmODMedIV.SetupDialog(OrderAction: Integer; const ID: string); +begin + inherited; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then SetValuesFromResponses; +end; + +{ tabFluid events } + +procedure TfrmODMedIV.tabFluidChange(Sender: TObject); +begin + inherited; + case TabFluid.TabIndex of + 0: begin + cboSolution.Visible := True; + cboAdditive.Visible := False; + end; + 1: begin + cboAdditive.Visible := True; + cboSolution.Visible := False; + end; + end; + if cboSolution.Visible then + ActiveControl := cboSolution; + if cboAdditive.Visible then + ActiveControl := cboAdditive; +end; + +{ cboSolution events } + +procedure TfrmODMedIV.cboSolutionNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +var + CurString: string; +begin + inherited; + if (Direction = 1) then + CurString := AnsiUpperCase(StartFrom) + ' '; + cboSolution.ForDataUse(SubSetOfOrderItems(CurString, Direction, 'S.IVB RX')); +end; + +procedure TfrmODMedIV.cboSolutionMouseClick(Sender: TObject); +var + AnIVComponent: TIVComponent; + x: string; +begin + inherited; + if CharAt(cboSolution.ItemID, 1) = 'Q' then // setup quick order + begin + Responses.QuickOrder := ExtractInteger(cboSolution.ItemID); + SetValuesFromResponses; + cboSolution.ItemIndex := -1; + Exit; + end; + if cboSolution.ItemIEN <= 0 then Exit; // process selection of solution + FInpatient := OrderForInpatient; + if not FInpatient then + begin + if DEACheckFailedForIVOnOutPatient(cboSolution.ItemIEN,'S') then + begin + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + cboSolution.Text := ''; + Exit; + end; + end else + begin + if DEACheckFailed(cboSolution.ItemIEN, FInpatient) then + begin + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + cboSolution.Text := ''; + Exit; + end; + end; + + x := AmountsForIVFluid(cboSolution.ItemIEN, 'B'); + AnIVComponent := TIVComponent.Create; + AnIVComponent.IEN := cboSolution.ItemIEN; + AnIVComponent.Name := Piece(cboSolution.Items[cboSolution.ItemIndex], U, 3); + AnIVComponent.Fluid := 'B'; + AnIVComponent.Amount := StrToIntDef(Piece(x, U, 2), 0); + AnIVComponent.Units := Piece(x, U, 1); + AnIVComponent.Volumes := Copy(x, Pos(U, x) + 1, Length(x)); + cboSolution.ItemIndex := -1; + with grdSelected do + begin + if Objects[0, RowCount - 1] <> nil then RowCount := RowCount + 1; + Objects[0, RowCount - 1] := AnIVComponent; + Cells[0, RowCount - 1] := AnIVComponent.Name; + Cells[1, RowCount - 1] := IntToStr(AnIVComponent.Amount); + Cells[2, RowCount - 1] := AnIVComponent.Units; + Row := RowCount - 1; + if Length(Piece(AnIVComponent.Volumes, U, 2)) > 0 then Col := 1 else Col := 0; + if RowCount = 1 then // switch to additives after 1st IV + begin + tabFluid.TabIndex := 1; + tabFluidChange(Self); + end; + end; + Application.ProcessMessages; //CQ: 10157 + ClickOnGridCell; + ControlChange(Sender); +end; + +procedure TfrmODMedIV.cboSolutionExit(Sender: TObject); +begin + inherited; + if cboSolution.ItemIEN > 0 then cboSolutionMouseClick(Self); +end; + +{ cboAdditive events } + +procedure TfrmODMedIV.cboAdditiveNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +var + CurString: string; +begin + inherited; + if (Direction = 1) then + CurString := AnsiUpperCase(StartFrom) + ' '; + cboAdditive.ForDataUse(SubSetOfOrderItems(CurString, Direction, 'S.IVA RX')); +end; + +procedure TfrmODMedIV.cboAdditiveMouseClick(Sender: TObject); +var + AnIVComponent: TIVComponent; + x: string; +begin + inherited; + if cboAdditive.ItemIEN <= 0 then Exit; + FInpatient := OrderForInpatient; + if not FInpatient then + begin + if DEACheckFailedForIVOnOutPatient(cboAdditive.ItemIEN,'A') then + begin + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + cboAdditive.Text := ''; + Exit; + end; + end else + begin + if DEACheckFailed(cboAdditive.ItemIEN, FInpatient) then + begin + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + cboAdditive.Text := ''; + Exit; + end; + end; + x := AmountsForIVFluid(cboAdditive.ItemIEN, 'A'); + AnIVComponent := TIVComponent.Create; + AnIVComponent.IEN := cboAdditive.ItemIEN; + AnIVComponent.Name := Piece(cboAdditive.Items[cboAdditive.ItemIndex], U, 3); + AnIVComponent.Fluid := 'A'; + AnIVComponent.Amount := 0; + AnIVComponent.Units := Piece(x, U, 1); + AnIVComponent.Volumes := ''; + cboAdditive.ItemIndex := -1; + with grdSelected do + begin + if Objects[0, RowCount - 1] <> nil then RowCount := RowCount + 1; + Objects[0, RowCount - 1] := AnIVComponent; + Cells[0, RowCount - 1] := AnIVComponent.Name; + Cells[2, RowCount - 1] := AnIVComponent.Units; + Row := RowCount - 1; + Col := 1; + end; + Application.ProcessMessages; //CQ: 10157 + ClickOnGridCell; + ControlChange(Sender); +end; + +procedure TfrmODMedIV.cboAdditiveExit(Sender: TObject); +begin + inherited; + if cboAdditive.ItemIEN > 0 then cboAdditiveMouseClick(Self); +end; + +{ grdSelected events } + +procedure TfrmODMedIV.ClickOnGridCell; +var + AnIVComponent: TIVComponent; + + procedure PlaceControl(AControl: TWinControl); + var + ARect: TRect; + begin + with AControl do + begin + ARect := grdSelected.CellRect(grdSelected.Col, grdSelected.Row); + SetBounds(ARect.Left + grdSelected.Left + 1, ARect.Top + grdSelected.Top + 1, + ARect.Right - ARect.Left + 1, ARect.Bottom - ARect.Top + 1); + BringToFront; + Show; + SetFocus; + if AControl is TComboBox then //CQ: 10157 + TComboBox(AControl).DroppedDown := True; + end; + end; + +begin + AnIVComponent := TIVComponent(grdSelected.Objects[0, grdSelected.Row]); + if (AnIVComponent = nil) or (grdSelected.Col = 0) then Exit; + // allow selection if more the 1 unit to choose from + if (grdSelected.Col = 2) and (Length(Piece(AnIVComponent.Units, U, 2)) > 0) then + begin + PiecesToList(AnIVComponent.Units, U, cboSelected.Items); + cboSelected.ItemIndex := cboSelected.Items.IndexOf(grdSelected.Cells[grdSelected.Col, grdSelected.Row]); + cboSelected.Tag := (grdSelected.Col * 256) + grdSelected.Row; + PlaceControl(cboSelected); + end; + // allow selection if more than 1 volume to choose from + if (grdSelected.Col = 1) and (Length(Piece(AnIVComponent.Volumes, U, 2)) > 0) then + begin + PiecesToList(AnIVComponent.Volumes, U, cboSelected.Items); + cboSelected.ItemIndex := cboSelected.Items.IndexOf(grdSelected.Cells[grdSelected.Col, grdSelected.Row]); + cboSelected.Tag := (grdSelected.Col * 256) + grdSelected.Row; + PlaceControl(cboSelected); + end; + // display text box to enter strength if the entry is an additive + if (grdSelected.Col = 1) and (AnIVComponent.Fluid = 'A') then + begin + txtSelected.Text := grdSelected.Cells[grdSelected.Col, grdSelected.Row]; + txtSelected.Tag := (grdSelected.Col * 256) + grdSelected.Row; + PlaceControl(txtSelected); + end; +end; + +procedure TfrmODMedIV.txtSelectedChange(Sender: TObject); // text editor for grid +begin + inherited; + with txtSelected do + begin + if Tag < 0 then Exit; + grdSelected.Cells[Tag div 256, Tag mod 256] := Text; + end; + ControlChange(Sender); +end; + +procedure TfrmODMedIV.txtSelectedExit(Sender: TObject); +begin + inherited; + with txtSelected do + begin + grdSelected.Cells[Tag div 256, Tag mod 256] := Text; + Tag := -1; + Hide; + end; +end; + +procedure TfrmODMedIV.cboSelectedChange(Sender: TObject); // combo editor for grid +begin + inherited; + with cboSelected do + begin + if Tag < 0 then Exit; + grdSelected.Cells[Tag div 256, Tag mod 256] := Text; + end; + ControlChange(Sender); +end; + +procedure TfrmODMedIV.cboSelectedExit(Sender: TObject); +begin + inherited; + with cboSelected do + begin + grdSelected.Cells[Tag div 256, Tag mod 256] := Text; + Tag := -1; + Hide; + end; +end; + +procedure TfrmODMedIV.cmdRemoveClick(Sender: TObject); // remove button for grid +var + i: Integer; +begin + inherited; + with grdSelected do + begin + if Row < 0 then Exit; + if Objects[0, Row] <> nil then TIVComponent(Objects[0, Row]).Free; + for i := Row to RowCount - 2 do Rows[i] := Rows[i + 1]; + Rows[RowCount - 1].Clear; + RowCount := RowCount - 1; + end; + ControlChange(Sender); +end; + +{ update Responses & Create Order Text } + +procedure TfrmODMedIV.ControlChange(Sender: TObject); +var + i, CurAdd, CurBase: Integer; + x,xlimIn,xLimEx,eSch,iSch: string; + AnIVComponent: TIVComponent; + FQOSchedule: TResponse; + + function IsNumericRate(const x: string): Boolean; + var + i: Integer; + begin + Result := True; + for i := 1 to Length(x) do if not (x[i] in ['0'..'9','.']) then Result := False; + end; + +begin + inherited; + if Changing then Exit; +// FQOSchedule := TResponse.Create; + FQOSchedule := Responses.FindResponseByName('SCHEDULE',1); + if FQOSchedule <> nil then + begin + eSch := FQOSchedule.EValue; + iSch := FQOSchedule.IValue; + end; + //if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + Responses.Clear; // want this to clear even after SetupDialog in case instances don't match + CurAdd := 1; CurBase := 1; + with grdSelected do for i := 0 to RowCount - 1 do + begin + AnIVComponent := TIVComponent(Objects[0, i]); + if AnIVComponent = nil then Continue; + with AnIVComponent do + begin + if Fluid = 'B' then // Solutions + begin + if IEN > 0 then Responses.Update('ORDERABLE', CurBase, IntToStr(IEN), Name); + if Length(Cells[1,i]) > 0 then Responses.Update('VOLUME', CurBase, Cells[1,i], Cells[1,i]); + Inc(CurBase); + end; {if Fluid B} + if Fluid = 'A' then // Additives + begin + if IEN > 0 then Responses.Update('ADDITIVE', CurAdd, IntToStr(IEN), Name); + if Length(Cells[1,i]) > 0 then Responses.Update('STRENGTH', CurAdd, Cells[1,i], Cells[1,i]); + if Length(Cells[2,i]) > 0 then Responses.Update('UNITS', CurAdd, Cells[2,i], Cells[2,i]); + Inc(CurAdd); + end; {if Fluid A} + end; {with AnIVComponent} + end; {with grdSelected} + x := txtRate.Text; + xlimIn := ''; + xlimEx := ''; + if length(txtXDuration.Text) > 0 then + begin + if (btnXDuration.Caption = 'L') or (btnXDuration.Caption = 'ml') then + begin + xlimEx := 'with total volume ' + txtXDuration.Text + btnXDuration.Caption; + xlimIn := 'with total volume ' + txtXDuration.Text + btnXDuration.Caption; + end + else if (btnXDuration.Caption = 'days') or (btnXDuration.Caption = 'hours') then + begin + xlimEx := 'for ' + txtXDuration.Text + ' ' + btnXDuration.Caption; + xlimIn := 'for ' + txtXDuration.Text + ' ' + btnXDuration.Caption; + end else + begin + xlimIn := ''; + xlimEx := ''; + end; + end; + //if x = IntToStr(StrToIntDef(x, -1)) then x := x + ' ml/hr'; + if IsNumericRate(x) then x := x + ' ml/hr'; + if (Pos('@',x)>0) and (Piece(x,'@',1) = IntToStr(StrToIntDef(Piece(x,'@',1), -1))) + then x := Piece(x,'@',1) + ' ml/hr@' + Copy(x, Pos('@',x) + 1, Length(x)); + with txtRate do if (Length(Text) > 0) then Responses.Update('RATE', 1, x, x); + with cboPriority do if ItemIndex > -1 then Responses.Update('URGENCY', 1, ItemID, Text); + if Length(xlimIn)>0 then Responses.Update('DAYS',1, xlimIn, xlimEx); + with memComments do if GetTextLen > 0 then Responses.Update('COMMENT', 1, TX_WPTYPE, Text); + memOrder.Text := Responses.OrderText; + if (Length(eSch)>0) or (Length(iSch)>0) then + Responses.Update('SCHEDULE',1,iSch,eSch); +end; + +procedure TfrmODMedIV.grdSelectedDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; + State: TGridDrawState); +begin + inherited; + if Sender = ActiveControl then Exit; + if not (gdSelected in State) then Exit; + with Sender as TStringGrid do + begin + Canvas.Brush.Color := Color; + Canvas.Font := Font; + Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]); + end; +end; + +procedure TfrmODMedIV.SetFontSize( FontSize: integer); +begin + inherited SetFontSize( FontSize ); + DoSetFontSize( FontSize ); +end; + +procedure TfrmODMedIV.DoSetFontSize( FontSize: integer); +begin + tabFluid.TabHeight := Abs(Font.Height) + 4; + grdSelected.DefaultRowHeight := Abs(Font.Height) + 8; +end; + +procedure TfrmODMedIV.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_TAB) and (ssCtrl in Shift) then + begin + //Back-tab works the same as forward-tab because there are only two tabs. + tabFluid.TabIndex := (tabFluid.TabIndex + 1) mod tabFluid.Tabs.Count; + Key := 0; + tabFluidChange(tabFluid); + end; +end; + +procedure TfrmODMedIV.grdSelectedKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + ClickOnGridCell; +end; + +procedure TfrmODMedIV.grdSelectedMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + inherited; + ClickOnGridCell; +end; + +procedure TfrmODMedIV.btnXDurationClick(Sender: TObject); +var + APoint: TPoint; +begin + inherited; + txtXDuration.SetFocus; + with TSpeedButton(Sender) do APoint := ClientToScreen(Point(0, Height)); + popDuration.Popup(APoint.X, APoint.Y); +end; + +procedure TfrmODMedIV.popDurationClick(Sender: TObject); +var + x: string; +begin + inherited; + with TMenuItem(Sender) do + begin + x := Caption; + {if Length(Trim(txtXDuration.Text)) > 0 then + if AnsiCompareStr(btnXduration.Caption,x) <> 0 then + txtXDuration.Text := '';} + end; + btnXDuration.Caption := x; + txtXDurationChange(Sender); + ControlChange(Sender); +end; + +procedure TfrmODMedIV.txtXDurationChange(Sender: TObject); +begin + inherited; + if Changing then Exit; + ControlChange(Sender); +end; + +procedure TfrmODMedIV.pnlXDurationEnter(Sender: TObject); +begin + inherited; + txtXDuration.SetFocus; +end; + +procedure TfrmODMedIV.SetLimitationControl(aValue: string); +var + limitUnit,limitValue,tempval: string; +begin + limitUnit := ''; + limitValue := ''; + tempVal := ''; + if ( CharAt(aValue,1)= 'f') or ( CharAt(aValue,1)= 'F') then //days, hours + begin + limitValue := Piece(aValue,' ',2); + limitUnit := Piece(aValue,' ',3); + end; + if (CharAt(aValue,1)= 'w') or (CharAt(aValue,1)= 'W') then //L, ml + begin + tempval := Piece(aValue,' ',4); + limitValue := FloatToStr(ExtractFloat(tempVal)); + limitUnit := Copy(tempVal,length(limitValue)+1,Length(tempVal)); + end; + if isNumeric(CharAt(aValue,1)) then + begin + limitValue := FloatToStr(ExtractFloat(aValue)); + limitUnit := Copy(aValue,length(limitValue)+1,Length(aValue)); + if limitUnit = 'D' then limitUnit := 'days' + else if limitUnit = 'H' then limitUnit := 'hours' + else if limitUnit = 'ML' then limitUnit := 'ml'; + end; + if ( Length(limitUnit)> 0) and ( (Length(limitValue) > 0 ) ) then + begin + txtXDuration.Text := limitValue; + if Trim(UpperCase(limitUnit))='CC' then + limitUnit := 'ml'; + btnXDuration.Caption := limitUnit; + end; + +end; + +procedure TfrmODMedIV.txtXDurationExit(Sender: TObject); +var + Len: Integer; + Code: double; + Digits, Warning: string; +begin + inherited; + if Changing then Exit; + //AGP Change 26.15 HIN-1203-42283 Added additional check to make sure the user can only enter the correct duration + Len := Length(txtXDuration.Text); + if (Len > 0) and (Pos('.', txtXDuration.Text)=0) then + begin + Warning := '0'; + Digits := '2'; + if ((btnXDuration.Caption = 'days') or (btnXDuration.Caption = 'hours') or (btnXDuration.Caption = 'L')) and (Len > 2) then Warning := '1'; + if (btnXDuration.Caption = 'ml') and (Len > 4) then Warning := '1'; + if Warning = '1' then + begin + if btnXduration.Caption = 'ml' then Digits := '4'; + ShowMessage('Invalid Value.' + #13#10 + 'Reason: Duration for ' + btnXDuration.Caption + ' cannot be greater than ' + digits + ' digits.'); + txtXDuration.Text := ''; + txtXDuration.SetFocus; + Exit; + end; + end; + if (Pos('.', txtXDuration.Text)>0) and + ((btnXduration.Caption = 'days') or (btnXduration.Caption = 'hours')) then + begin + ShowMessage('Can not save order.' + #13#10 + + 'Reason: Invalid Duration, please enter an integer value for days or hours.'); + txtXDuration.Text := ''; + txtXDuration.SetFocus; + Exit; + end; + if (txtXDuration.Text <> '0') and (txtXDuration.Text <> '') then + begin + try + code := StrToFloat(txtXDuration.Text); + except + code := 0; + end; + if code < 0.0001 then + begin + ShowMessage('Can not save order.' + #13#10 + 'Reason: Invalid Duration or Total Volume!'); + txtXDuration.Text := ''; + txtXDuration.SetFocus; + Exit; + end; + end; + try + if (Length(txtXDuration.Text)>0) and (StrToFloat(txtXDuration.Text)<0) then + begin + ShowMessage('Can not save order.' + #13#10 + 'Reason: Invalid Duration or total volume!'); + txtXDuration.Text := ''; + txtXDuration.SetFocus; + Exit; + end; + except + txtXDuration.Text := ''; + end; + ControlChange(Sender); +end; + +procedure TfrmODMedIV.txtRateExit(Sender: TObject); +var +ErrorText, LDec,RDec: string; +i: Integer; +Result: boolean; +begin + inherited; + //AGP Change 26.28 for CQ # 7598 add infusion rate check for valid value + ErrorText := 'The Infusion Rate must be in one of the following formats:' + CRLF + CRLF + 'nnnn.nn ml/hr or text@per labels per day'; + Result := False; + if pos('@',Self.txtRate.Text)>0 then exit; + if pos('.',Self.txtRate.Text)>0 then + begin + LDec := Piece(Self.txtRate.Text,'.',1); + RDec := Piece(Self.txtRate.Text,'.',2); + if Length(LDec)>4 then Result := True; + if Length(RDec)>2 then Result := True; + end + else if Length(Self.txtRate.Text)>4 then Result := True; + if (Result = False) and (pos('.',Self.txtRate.Text)=0) then + begin + for i := 1 to Length(Self.txtRate.Text) do if not (Self.txtRate.Text[i] in ['0'..'9']) then Result := True + end; + if Result = True then + begin + InfoBox(ErrorText,'Warning - Invalid Infusion Rate', MB_OK); + Self.txtRate.Text := ''; + Self.txtRate.SetFocus; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fODMedIn.dfm b/CPRS-Chart/Orders/fODMedIn.dfm new file mode 100644 index 0000000..bdc3c5f --- /dev/null +++ b/CPRS-Chart/Orders/fODMedIn.dfm @@ -0,0 +1,230 @@ +inherited frmODMedIn: TfrmODMedIn + Left = 220 + Top = 416 + Caption = 'Inpatient Medication Order' + PixelsPerInch = 96 + TextHeight = 13 + object lblMedication: TLabel [0] + Left = 6 + Top = 4 + Width = 52 + Height = 13 + Caption = 'Medication' + end + object lblDosage: TLabel [1] + Left = 224 + Top = 4 + Width = 37 + Height = 13 + Caption = 'Dosage' + end + object lblRoute: TLabel [2] + Left = 364 + Top = 4 + Width = 29 + Height = 13 + Caption = 'Route' + end + object lblSchedule: TLabel [3] + Left = 442 + Top = 4 + Width = 45 + Height = 13 + Caption = 'Schedule' + end + object Label5: TLabel [4] + Left = 6 + Top = 45 + Width = 70 + Height = 13 + Caption = 'Dispense Drug' + end + object lblComments: TLabel [5] + Left = 223 + Top = 114 + Width = 49 + Height = 13 + Caption = 'Comments' + end + object lblPriority: TLabel [6] + Left = 442 + Top = 114 + Width = 31 + Height = 13 + Caption = 'Priority' + end + object Bevel1: TBevel [7] + Left = 214 + Top = 0 + Width = 4 + Height = 186 + end + object cboDispense: TORComboBox [8] + Left = 6 + Top = 59 + Width = 202 + Height = 127 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + ParentShowHint = False + Pieces = '2,4,3' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabPositions = '30,33' + TabOrder = 2 + OnChange = ControlChange + OnExit = cboDispenseExit + OnMouseClick = cboDispenseMouseClick + end + object cboMedication: TORComboBox [9] + Left = 6 + Top = 18 + Width = 202 + Height = 167 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 11 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnChange = ControlChange + OnExit = cboMedicationSelect + OnMouseClick = cboMedicationSelect + OnNeedData = cboMedicationNeedData + end + inherited memOrder: TMemo + TabOrder = 10 + end + inherited cmdAccept: TButton + TabOrder = 8 + end + inherited cmdQuit: TButton + TabOrder = 9 + end + object cboRoute: TORComboBox [13] + Left = 364 + Top = 18 + Width = 72 + Height = 90 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = ControlChange + end + object cboSchedule: TORComboBox [14] + Left = 442 + Top = 18 + Width = 72 + Height = 90 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 5 + OnChange = ControlChange + end + object memComments: TMemo [15] + Left = 223 + Top = 128 + Width = 212 + Height = 58 + ScrollBars = ssVertical + TabOrder = 6 + OnChange = ControlChange + end + object cboPriority: TORComboBox [16] + Left = 442 + Top = 128 + Width = 72 + Height = 58 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 7 + OnChange = ControlChange + end + object txtDosage: TCaptionEdit [17] + Left = 224 + Top = 18 + Width = 134 + Height = 21 + MaxLength = 20 + TabOrder = 3 + OnChange = ControlChange + Caption = 'Dosage' + end + inherited pnlMessage: TPanel + TabOrder = 11 + end + object cboMedAlt: TORComboBox + Left = 6 + Top = 18 + Width = 202 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 11 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + Visible = False + OnChange = ControlChange + OnExit = cboMedicationSelect + OnMouseClick = cboMedicationSelect + OnNeedData = cboMedicationNeedData + end +end diff --git a/CPRS-Chart/Orders/fODMedIn.pas b/CPRS-Chart/Orders/fODMedIn.pas new file mode 100644 index 0000000..2bdcd64 --- /dev/null +++ b/CPRS-Chart/Orders/fODMedIn.pas @@ -0,0 +1,360 @@ +unit fODMedIn; + +{$OPTIMIZATION OFF} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, ORCtrls, StdCtrls, ORFn, ExtCtrls, uConst, ComCtrls, uCore, + Menus; + +type + TfrmODMedIn = class(TfrmODBase) + lblMedication: TLabel; + cboMedication: TORComboBox; + lblDosage: TLabel; + lblRoute: TLabel; + cboRoute: TORComboBox; + lblSchedule: TLabel; + cboSchedule: TORComboBox; + Label5: TLabel; + cboDispense: TORComboBox; + lblComments: TLabel; + memComments: TMemo; + lblPriority: TLabel; + cboPriority: TORComboBox; + txtDosage: TCaptionEdit; + Bevel1: TBevel; + cboMedAlt: TORComboBox; + procedure cboMedicationNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); + procedure cboMedicationSelect(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure cboDispenseExit(Sender: TObject); + procedure cboDispenseMouseClick(Sender: TObject); + private + { Private declarations } + FLastDrug: Integer; + FLastMedID: string; + FDispenseMsg: string; + FMedCombo: TORComboBox; + procedure CheckFormAlt; + procedure ResetOnMedChange; + procedure SetAltCombo; + procedure SetOnOISelect; + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + end; + +implementation + +{$R *.DFM} + +uses rOrders, rODBase, fODMedFA; + +const + TX_NO_MED = 'Medication must be entered.'; + TX_NO_DOSE = 'Dosage must be entered.'; + TX_NO_AMPER = 'Dosage may not contain the ampersand (&) character.'; + TX_NO_ROUTE = 'Route must be entered.'; + TX_NF_ROUTE = 'Route not found in the Medication Routes file.'; + TX_NO_SCHED = 'Schedule must be entered.'; + TX_DOSE_AMT = 'Dosage must be the amount given, not simply the number of units.'; + TX_SCH_QUOTE = 'Schedule must not have quotemarks in it.'; + TX_SCH_MINUS = 'Schedule must not have a dash at the beginning.'; + TX_SCH_SPACE = 'Schedule must have only one space in it.'; + TX_SCH_LEN = 'Schedule must be less than 70 characters.'; + TX_SCH_PRN = 'Schedule cannot include PRN - use Comments to enter PRN.'; + TX_SCH_ZERO = 'Schedule cannot be Q0.'; + TX_SCH_LSP = 'Schedule may not have leading spaces.'; + TX_SCH_NS = 'Unable to resolve non-standard schedule.'; + TX_OUTPT_IV = 'This patient has not been admitted. Only IV orders may be entered.'; + +{ TfrmODBase common methods } + +procedure TfrmODMedIn.FormCreate(Sender: TObject); +const + TC_RESTRICT = 'Ordering Restrictions'; +var + Restriction: string; +begin + inherited; + AllowQuickOrder := True; + CheckAuthForMeds(Restriction); + if Length(Restriction) > 0 then + begin + InfoBox(Restriction, TC_RESTRICT, MB_OK); + Close; + Exit; + end; + FillerID := 'PSI'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Dialog := 'PSJ OR PAT OE'; // loads formatting info + StatusText('Loading Default Values'); + CtrlInits.LoadDefaults(ODForMedIn); // ODForMedIn returns TStrings with defaults + InitDialog; +end; + +procedure TfrmODMedIn.InitDialog; +begin + inherited; + FLastDrug := 0; + FLastMedID := ''; + FDispenseMsg := ''; + FMedCombo := cboMedication; // this must be before SetControl(cboMedication) + with CtrlInits do + begin + SetControl(cboMedication, 'ShortList'); + cboMedication.InsertSeparator; + //SetControl(cboMedAlt, 'ShortList'); can't do this since it calls InitLongList + SetControl(cboSchedule, 'Schedules'); + SetControl(cboPriority, 'Priorities'); + end; + StatusText('Initializing Long List'); + cboMedAlt.Visible := False; + cboMedication.Visible := True; + cboMedication.InitLongList(''); + ActiveControl := cboMedication; //SetFocusedControl(FMedCombo); + StatusText(''); +end; + +procedure TfrmODMedIn.SetupDialog(OrderAction: Integer; const ID: string); +begin + inherited; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do + begin + Changing := True; //v12a + SetControl(cboMedication, 'ORDERABLE', 1); + ResetOnMedChange; //v12a + SetOnOISelect; //v12a + SetAltCombo; //v12a + //cboMedicationSelect(Self); + SetControl(cboDispense, 'DRUG', 1); + SetControl(txtDosage, 'INSTR', 1); + SetControl(cboRoute, 'ROUTE', 1); + SetControl(cboSchedule, 'SCHEDULE', 1); + SetControl(memComments, 'COMMENT', 1); + SetControl(cboPriority, 'URGENCY', 1); + { can't edit the orderable item for a med order that has been released } + if (OrderAction = ORDER_EDIT) and OrderIsReleased(EditOrder) + then FMedCombo.Enabled := False; + Changing := False; //v12a + ControlChange(Self); //v12a + end; + if OrderAction <> ORDER_EDIT then SetFocusedControl(FMedCombo); +end; + +procedure TfrmODMedIn.Validate(var AnErrMsg: string); +var + Sched: Integer; + RouteID, RouteAbbr: string; + + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + inherited; + if Length(cboMedAlt.Text) = 0 then SetError(TX_NO_MED); + if Length(txtDosage.Text) = 0 then SetError(TX_NO_DOSE); + if Pos('&', txtDosage.Text) > 0 then SetError(TX_NO_AMPER); + if Length(cboRoute.Text) = 0 then SetError(TX_NO_ROUTE); + if (Length(cboRoute.Text) > 0) and (cboRoute.ItemIndex < 0) then + begin + LookupRoute(cboRoute.Text, RouteID, RouteAbbr); + if RouteID = '0' + then SetError(TX_NF_ROUTE) + else Responses.Update('ROUTE', 1, RouteID, RouteAbbr); + end; + if Length(cboSchedule.Text) = 0 then SetError(TX_NO_SCHED); + with cboSchedule do if Length(Text) > 0 then + begin + Sched := ValidSchedule(Text); + if Sched = -1 then + begin + if Pos('"', Text) > 0 then SetError(TX_SCH_QUOTE); + if Copy(Text, 1, 1) = '-' then SetError(TX_SCH_MINUS); + if Pos(' ', Copy(Text, Pos(' ', Text) + 1, 999)) > 0 then SetError(TX_SCH_SPACE); + if Length(Text) > 70 then SetError(TX_SCH_LEN); + if (Pos('P RN', Text) > 0) or (Pos('PR N', Text) > 0) then SetError(TX_SCH_PRN); + if Pos('Q0', Text) > 0 then SetError(TX_SCH_ZERO); + if TrimLeft(Text) <> Text then SetError(TX_SCH_LSP); + end; + if Sched = 0 then SetError(TX_SCH_NS); + end; + if (Length(txtDosage.Text) > 0) and (not ContainsAlpha(txtDosage.Text)) + then SetError(TX_DOSE_AMT); + if (not OrderForInpatient) and (not MedTypeIsIV(cboMedAlt.ItemIEN)) + then SetError(TX_OUTPT_IV); +end; + +{ cboMedication methods } + +procedure TfrmODMedIn.ResetOnMedChange; +begin + ClearControl(cboDispense); + ClearControl(txtDosage); + ClearControl(cboRoute); // routes should be cached + ResetControl(cboSchedule); + ClearControl(memComments); + ClearControl(memOrder); +end; + +procedure TfrmODMedIn.SetAltCombo; +begin + with cboMedication do + begin + FMedCombo := cboMedAlt; + if cboMedAlt.Items.Count = 0 then + begin + CtrlInits.SetListOnly(cboMedAlt, 'ShortList'); + cboMedAlt.InsertSeparator; + end; + cboMedAlt.SetExactByIEN(ItemIEN, TrimRight(Piece(Text, '<', 1))); + cboMedication.Visible := False; + cboMedAlt.Visible := True; + end; +end; + +procedure TfrmODMedIn.SetOnOISelect; +begin + with CtrlInits do + begin + FLastMedID := FMedCombo.ItemID; + LoadOrderItem(OIForMedIn(FMedCombo.ItemIEN)); + SetControl(cboDispense, 'Dispense'); + if cboDispense.Items.Count = 1 then cboDispense.ItemIndex := 0; + SetControl(txtDosage, 'Instruct'); + SetControl(cboRoute, 'Route'); + if cboRoute.Items.Count = 1 then cboRoute.ItemIndex := 0; + //cboRoute.InsertSeparator; + //AppendMedRoutes(cboRoute.Items); + if DefaultText('DefSched') <> '' then cboSchedule.SelectByID(DefaultText('DefSched')); + OrderMessage(TextOf('Message')); + end; +end; + +procedure TfrmODMedIn.cboMedicationNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +{ retrieves a subset of inpatient medication orderable items } +begin + inherited; + FMedCombo.ForDataUse(SubSetOfOrderItems(StartFrom, Direction, 'S.UD RX')); +end; + +procedure TfrmODMedIn.cboMedicationSelect(Sender: TObject); +{ sets related controls whenever orderable item changes (MouseClick or Exit) } +begin + inherited; + with FMedCombo do + begin + if ItemID <> FLastMedID then FLastMedID := ItemID else Exit; + Changing := True; + if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + ResetOnMedChange; + if CharAt(ItemID, 1) = 'Q' then + begin + Responses.QuickOrder := ExtractInteger(ItemID); + Responses.SetControl(FMedCombo, 'ORDERABLE', 1); + end; + if ItemIEN > 0 then SetOnOISelect; + end; + with Responses do if QuickOrder > 0 then + begin + SetControl(FMedCombo, 'ORDERABLE', 1); + SetControl(cboDispense, 'DRUG', 1); + SetControl(txtDosage, 'INSTR', 1); + SetControl(cboRoute, 'ROUTE', 1); + SetControl(cboSchedule, 'SCHEDULE', 1); + SetControl(memComments, 'COMMENT', 1); + SetControl(cboPriority, 'URGENCY', 1); + end; + Changing := False; + ControlChange(Self); + if FMedCombo = cboMedication then SetAltCombo; + // if the Dispense drug was stuffed - still do the checks (form alt, refills) + if cboDispense.ItemIndex > -1 then cboDispenseMouseClick(Self); +end; + +{ cboDispense methods } + +procedure TfrmODMedIn.CheckFormAlt; +var + DrugName, OIName: string; + Drug, OI: Integer; +begin + with cboDispense do if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 4) = 'NF') then + begin + SelectFormularyAlt(ItemIEN, Drug, OI, DrugName, OIName, PST_UNIT_DOSE); + if Drug > 0 then + begin + if FMedCombo.ItemIEN <> OI then + begin + FMedCombo.InitLongList(OIName); + FMedCombo.SelectByIEN(OI); + cboMedicationSelect(Self); + end; + cboDispense.SelectByIEN(Drug); + end; {if FormAlt} + end; {if ItemIndex} +end; + +procedure TfrmODMedIn.cboDispenseExit(Sender: TObject); +var + AMsg: string; +begin + inherited; + with cboDispense do + begin + if ItemIEN <> FLastDrug then CheckFormAlt; + if ItemIEN > 0 then + begin + AMsg := DispenseMessage(ItemIEN); + if memMessage.Text <> AMsg then OrderMessage(AMsg); + end; + FLastDrug := ItemIEN; + end; +end; + +procedure TfrmODMedIn.cboDispenseMouseClick(Sender: TObject); +begin + inherited; + with cboDispense do + begin + if ItemIEN <> FLastDrug then CheckFormAlt; + if ItemIEN > 0 then OrderMessage(DispenseMessage(ItemIEN)); + FLastDrug := ItemIEN; + end; +end; + +{ all controls } + +procedure TfrmODMedIn.ControlChange(Sender: TObject); +begin + inherited; + if Changing then Exit; + with FMedCombo do if ItemIEN > 0 + then Responses.Update('ORDERABLE', 1, ItemID, Piece(Items[ItemIndex], U, 3)) + else Responses.Update('ORDERABLE', 1, '', ''); + with cboDispense do if ItemIEN > 0 + then Responses.Update('DRUG', 1, ItemID, Piece(Items[ItemIndex], U, 2)); + with txtDosage do if Length(Text) > 0 then Responses.Update('INSTR', 1, Text, Text); + with cboRoute do if ItemIndex > -1 + then Responses.Update('ROUTE', 1, ItemID, Piece(Items[ItemIndex], U, 3)) + else Responses.Update('ROUTE', 1, Text, Text); + with cboSchedule do if Length(Text) > 0 then Responses.Update('SCHEDULE', 1, Text, Text); + with cboPriority do if ItemIndex > -1 then Responses.Update('URGENCY', 1, ItemID, Text); + with memComments do Responses.Update('COMMENT', 1, TX_WPTYPE, Text); + memOrder.Text := Responses.OrderText; +end; + +end. + diff --git a/CPRS-Chart/Orders/fODMedNVA.dfm b/CPRS-Chart/Orders/fODMedNVA.dfm new file mode 100644 index 0000000..9af36f9 --- /dev/null +++ b/CPRS-Chart/Orders/fODMedNVA.dfm @@ -0,0 +1,424 @@ +inherited frmODMedNVA: TfrmODMedNVA + Left = 100 + Top = 167 + Width = 632 + Height = 536 + Caption = 'Document Herbal/OTC/Non-VA Medications' + Constraints.MinHeight = 365 + PixelsPerInch = 96 + TextHeight = 13 + inherited memOrder: TCaptionMemo + Left = 0 + Top = 461 + Width = 525 + Anchors = [akLeft, akRight, akBottom] + Constraints.MinWidth = 25 + TabOrder = 4 + end + inherited cmdAccept: TButton + Left = 540 + Top = 463 + Width = 69 + Anchors = [akRight, akBottom] + TabOrder = 6 + Visible = False + end + inherited cmdQuit: TButton + Left = 546 + Top = 489 + Width = 49 + Anchors = [akRight, akBottom] + TabOrder = 7 + end + inherited pnlMessage: TPanel + Top = 240 + end + object pnlMeds: TPanel + Left = 6 + Top = 34 + Width = 593 + Height = 415 + Anchors = [akLeft, akTop, akRight, akBottom] + BevelOuter = bvNone + Caption = 'pnlMeds' + TabOrder = 1 + object sptSelect: TSplitter + Left = 0 + Top = 133 + Width = 593 + Height = 4 + Cursor = crVSplit + Align = alTop + end + object lstQuick: TCaptionListView + Left = 0 + Top = 0 + Width = 593 + Height = 133 + Align = alTop + BevelInner = bvLowered + BevelOuter = bvSpace + Columns = < + item + Width = 420 + end> + ColumnClick = False + HideSelection = False + HotTrack = True + OwnerData = True + ParentShowHint = False + ShowColumnHeaders = False + ShowHint = True + TabOrder = 0 + TabStop = False + ViewStyle = vsReport + OnChange = lstChange + OnClick = ListViewClick + OnData = lstQuickData + OnEditing = ListViewEditing + OnEnter = ListViewEnter + OnResize = ListViewResize + Caption = 'Quick Orders' + end + object lstAll: TCaptionListView + Left = 0 + Top = 137 + Width = 593 + Height = 278 + Align = alClient + Columns = < + item + Width = 420 + end> + ColumnClick = False + HideSelection = False + OwnerData = True + ParentShowHint = False + ShowColumnHeaders = False + ShowHint = True + TabOrder = 1 + ViewStyle = vsReport + OnChange = lstChange + OnClick = ListViewClick + OnData = lstAllData + OnDataHint = lstAllDataHint + OnEditing = ListViewEditing + OnEnter = ListViewEnter + OnResize = ListViewResize + Caption = 'All Medication orders' + end + end + object txtMed: TEdit + Left = 5 + Top = 6 + Width = 596 + Height = 21 + Anchors = [akLeft, akTop, akRight] + AutoSelect = False + TabOrder = 0 + Text = '(Type a medication name or select from the orders below)' + OnChange = txtMedChange + OnExit = txtMedExit + OnKeyDown = txtMedKeyDown + OnKeyUp = txtMedKeyUp + end + object pnlFields: TPanel + Left = 3 + Top = 30 + Width = 624 + Height = 428 + Anchors = [akLeft, akTop, akRight, akBottom] + BevelOuter = bvNone + Enabled = False + TabOrder = 2 + Visible = False + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 624 + Height = 264 + Align = alClient + Constraints.MinHeight = 80 + Constraints.MinWidth = 30 + TabOrder = 0 + DesignSize = ( + 624 + 264) + object lblRoute: TLabel + Left = 349 + Top = 23 + Width = 29 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Route' + Visible = False + end + object lblSchedule: TLabel + Left = 467 + Top = 23 + Width = 45 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Schedule' + Visible = False + end + object lblGuideline: TStaticText + Left = 0 + Top = 1 + Width = 181 + Height = 17 + Caption = 'Display Restrictions/Guidelines' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold, fsUnderline] + ParentColor = False + ParentFont = False + ShowAccelChar = False + TabOrder = 0 + TabStop = True + Visible = False + end + object tabDose: TTabControl + Left = -7 + Top = 19 + Width = 175 + Height = 17 + TabOrder = 4 + Tabs.Strings = ( + 'Dosage') + TabIndex = 0 + TabStop = False + TabWidth = 86 + OnChange = tabDoseChange + end + object cboDosage: TORComboBox + Left = 8 + Top = 36 + Width = 383 + Height = 222 + Anchors = [akLeft, akTop, akRight, akBottom] + Style = orcsSimple + AutoSelect = True + Caption = 'Dosage' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '5,3,6' + Sorted = False + SynonymChars = '<>' + TabPositions = '27,32' + TabOrder = 1 + OnChange = cboDosageChange + OnClick = cboDosageClick + OnExit = cboDosageExit + CharsNeedMatch = 1 + end + object cboRoute: TORComboBox + Left = 355 + Top = 36 + Width = 114 + Height = 223 + Anchors = [akTop, akRight, akBottom] + Style = orcsSimple + AutoSelect = True + Caption = 'Route' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + Pieces = '2' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + OnChange = cboRouteChange + OnClick = ControlChange + OnExit = cboRouteExit + CharsNeedMatch = 1 + end + object cboSchedule: TORComboBox + Left = 467 + Top = 36 + Width = 157 + Height = 223 + Anchors = [akTop, akRight, akBottom] + Style = orcsSimple + AutoSelect = True + Caption = 'Schedule' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '1' + Sorted = False + SynonymChars = '<>' + TabOrder = 3 + OnChange = cboScheduleChange + OnClick = cboScheduleClick + OnExit = cboScheduleExit + CharsNeedMatch = 1 + end + object chkPRN: TCheckBox + Left = 582 + Top = 39 + Width = 42 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'PRN' + Color = clBtnFace + ParentColor = False + TabOrder = 5 + OnClick = chkPRNClick + end + end + object pnlBottom: TPanel + Left = 0 + Top = 264 + Width = 624 + Height = 164 + Align = alBottom + TabOrder = 1 + DesignSize = ( + 624 + 164) + object lblComment: TLabel + Left = 4 + Top = 5 + Width = 52 + Height = 16 + Alignment = taRightJustify + AutoSize = False + Caption = 'Comments:' + end + object Label1: TLabel + Left = 5 + Top = 47 + Width = 108 + Height = 13 + Caption = 'Statement/Explanation' + end + object Label2: TLabel + Left = 10 + Top = 145 + Width = 51 + Height = 13 + Caption = 'Start Date:' + end + object Image1: TImage + Left = 25 + Top = 17 + Width = 31 + Height = 31 + end + object memComment: TCaptionMemo + Left = 64 + Top = 2 + Width = 559 + Height = 44 + Align = alCustom + Anchors = [akLeft, akTop, akRight] + ScrollBars = ssVertical + TabOrder = 2 + OnChange = ControlChange + Caption = 'Comments' + end + object lblAdminTime: TStaticText + Left = 267 + Top = 105 + Width = 4 + Height = 4 + TabOrder = 0 + Visible = False + end + object calStart: TORDateBox + Left = 64 + Top = 141 + Width = 145 + Height = 21 + Anchors = [akLeft, akTop, akBottom] + TabOrder = 5 + Text = 'Today' + OnChange = ControlChange + DateOnly = True + RequireTime = False + Caption = 'Effective Date' + end + object lbStatements: TORListBox + Left = 7 + Top = 59 + Width = 603 + Height = 81 + Style = lbOwnerDrawFixed + Anchors = [akLeft, akTop, akRight] + ExtendedSelect = False + ItemHeight = 16 + ParentShowHint = False + ShowHint = True + TabOrder = 3 + ItemTipColor = clWindow + LongList = False + CheckBoxes = True + OnClickCheck = lbStatementsClickCheck + end + object memDrugMsg: TMemo + Left = 63 + Top = 15 + Width = 533 + Height = 31 + Anchors = [akLeft, akRight, akBottom] + Color = clCream + Lines.Strings = ( + '') + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 6 + Visible = False + end + end + end + object btnSelect: TButton + Left = 539 + Top = 463 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'OK' + Default = True + Enabled = False + TabOrder = 5 + OnClick = btnSelectClick + end + object dlgStart: TORDateTimeDlg + FMDateTime = 3001101 + DateOnly = False + RequireTime = True + Left = 500 + Top = 201 + end + object timCheckChanges: TTimer + Enabled = False + Interval = 500 + Left = 501 + Top = 233 + end +end diff --git a/CPRS-Chart/Orders/fODMedNVA.pas b/CPRS-Chart/Orders/fODMedNVA.pas new file mode 100644 index 0000000..a92860a --- /dev/null +++ b/CPRS-Chart/Orders/fODMedNVA.pas @@ -0,0 +1,2311 @@ +unit fODMedNVA; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, StdCtrls, ComCtrls, ExtCtrls, ORCtrls, Grids, Buttons, uConst, ORDtTm, + Menus, XUDIGSIGSC_TLB, rMisc, uOrders, StrUtils, oRFn; + +const + UM_DELAYCLICK = 11037; // temporary for listview click event + NVA_CR = #13; + NVA_LF = #10; + +type + TfrmODMedNVA = class(TfrmODBase) + txtMed: TEdit; + pnlMeds: TPanel; + lstQuick: TCaptionListView; + sptSelect: TSplitter; + lstAll: TCaptionListView; + dlgStart: TORDateTimeDlg; + timCheckChanges: TTimer; + pnlFields: TPanel; + pnlTop: TPanel; + lblRoute: TLabel; + lblSchedule: TLabel; + lblGuideline: TStaticText; + tabDose: TTabControl; + cboDosage: TORComboBox; + cboRoute: TORComboBox; + cboSchedule: TORComboBox; + chkPRN: TCheckBox; + pnlBottom: TPanel; + lblComment: TLabel; + memComment: TCaptionMemo; + lblAdminTime: TStaticText; + calStart: TORDateBox; + Label1: TLabel; + lbStatements: TORListBox; + Label2: TLabel; + btnSelect: TButton; + Image1: TImage; + memDrugMsg: TMemo; + procedure FormCreate(Sender: TObject); + procedure btnSelectClick(Sender: TObject); + procedure tabDoseChange(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure txtMedKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure txtMedKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure txtMedChange(Sender: TObject); + procedure txtMedExit(Sender: TObject); + procedure ListViewEditing(Sender: TObject; Item: TListItem; + var AllowEdit: Boolean); + procedure ListViewResize(Sender: TObject); + procedure lstQuickData(Sender: TObject; Item: TListItem); + procedure lstAllDataHint(Sender: TObject; StartIndex, + EndIndex: Integer); + procedure lstAllData(Sender: TObject; Item: TListItem); + procedure lblGuidelineClick(Sender: TObject); + procedure ListViewClick(Sender: TObject); + procedure cboScheduleExit(Sender: TObject); + procedure cboScheduleChange(Sender: TObject); + procedure cboRouteChange(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure cboDosageClick(Sender: TObject); + procedure cboDosageChange(Sender: TObject); + procedure cboScheduleClick(Sender: TObject); + procedure cboRouteExit(Sender: TObject); + procedure DispOrderMessage(const AMessage: string); + + + procedure grdDosesExit(Sender: TObject); + procedure ListViewEnter(Sender: TObject); + procedure timCheckChangesTimer(Sender: TObject); + procedure cmdAcceptClick(Sender: TObject); + procedure cboDosageExit(Sender: TObject); + procedure chkPRNClick(Sender: TObject); + procedure grdDosesKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure grdDosesEnter(Sender: TObject); + procedure pnlMessageEnter(Sender: TObject); + procedure pnlMessageExit(Sender: TObject); + procedure memMessageKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormResize(Sender: TObject); + procedure lbStatementsClickCheck(Sender: TObject; Index: Integer); + procedure lstChange(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure FormKeyPress(Sender: TObject; var Key: Char); + + private + {selection} + FAllItems: TStringList; + FAllFirst: Integer; + FAllLast: Integer; + FAllList: Integer; + FQuickList: Integer; + FQuickItems: TStringList; + FChangePending: Boolean; + FKeyTimerActive: Boolean; + FActiveMedList: TListView; + FRowHeight: Integer; + FFromSelf: Boolean; + {edit} + FAllDoses: TStringList; + FAllDrugs: TStringList; + FGuideline: TStringList; + FLastUnits: string; + FLastSchedule: string; + FLastDispDrug: string; + FLastQuantity: Integer; + FLastSupply: Integer; + FLastPickup: string; + FSIGVerb: string; + FSIGPrep: string; + FDrugID: string; + fInptDlg: Boolean; + FNonVADlg: Boolean; + FUpdated: Boolean; + FSuppressMsg: Boolean; + FPtInstruct: string; + FAltChecked: Boolean; + FShrinkDrugMsg: boolean; + FQOQuantity: Double; + FQODosage: string; + FNoZERO: boolean; + FIsQuickOrder: boolean; + FAdminTimeLbl: string; + FDisabledDefaultButton: TButton; + FDisabledCancelButton: TButton; + FShrinked: boolean; + FQOInitial: boolean; + FRemoveText : Boolean; + {selection} + procedure ChangeDelayed; + procedure LoadNonVAMedCache(First, Last: Integer); + function FindQuickOrder(const x: string): Integer; + function isUniqueQuickOrder(iText: string): Boolean; + procedure ScrollToVisible(AListView: TListView); + procedure StartKeyTimer; + procedure StopKeyTimer; + procedure WMTimer(var Message: TWMTimer); message WM_TIMER; + // NON VA MEDS + procedure LoadOTCStatements(Dest: TStrings); + + {edit} + procedure ResetOnMedChange; + procedure SetOnMedSelect; + procedure SetOnQuickOrder; + procedure ShowMedSelect; + procedure ShowMedFields; + procedure ShowControlsSimple; + procedure SetDosage(const x: string); + procedure SetStatements(x: string); + procedure SetStartDate(const x: string); + procedure SetSchedule(const x: string); + procedure CheckFormAltDose(DispDrug: Integer); + function ConstructedDoseFields(const ADose: string; PrependName: Boolean = FALSE): string; + function FindCommonDrug(DoseList: TStringList): string; + function FindDoseFields(const Drug, ADose: string): string; + function OutpatientSig: string; + function SearchStatements(StatementList:TStringList;Statement: string): Boolean; + procedure UpdateRelated(DelayUpdate: Boolean = TRUE); + procedure UpdateStartExpires(const CurSchedule: string); + function DisableDefaultButton(Control: TWinControl): boolean; + function DisableCancelButton(Control: TWinControl): boolean; + procedure RestoreDefaultButton; + procedure RestoreCancelButton; + function ValueOf(FieldID: Integer; ARow: Integer = -1): string; + function ValueOfResponse(FieldID: Integer; AnInstance: Integer = 1): string; + procedure UMDelayClick(var Message: TMessage); message UM_DELAYCLICK; + + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + procedure CheckDecimal(var AStr: string); + end; + +var + frmODMedNVA: TfrmODMedNVA; + crypto: IXuDigSigS; + +function OIForNVA(AnIEN: Integer; ForNonVAMed: Boolean; HavePI: boolean = True; PKIActive: Boolean = False): TStrings; +procedure CheckAuthForNVAMeds(var x: string); + +implementation + +{$R *.DFM} + +uses rCore, uCore, rODMeds, rODBase, rOrders, fRptBox, fODMedOIFA, + uAccessibleStringGrid, fFrame, ORNet; + +const + {grid columns for complex dosing } + COL_SELECT = 0; + COL_DOSAGE = 1; + COL_ROUTE = 2; + COL_SCHEDULE = 3; + COL_DURATION = 4; + + COL_SEQUENCE = 5; + VAL_DOSAGE = 10; + VAL_ROUTE = 20; + VAL_SCHEDULE = 30; + VAL_DURATION = 40; + VAL_SEQUENCE = 50; + TAB = #9; + {field identifiers} + FLD_LOCALDOSE = 1; + FLD_STRENGTH = 2; + FLD_DRUG_ID = 3; + FLD_DRUG_NM = 4; + FLD_DOSEFLDS = 5; + FLD_UNITNOUN = 6; + FLD_TOTALDOSE = 7; + FLD_DOSETEXT = 8; + FLD_INSTRUCT = 10; + FLD_DOSEUNIT = 11; + FLD_ROUTE_ID = 15; + FLD_ROUTE_NM = 16; + FLD_ROUTE_AB = 17; + FLD_ROUTE_EX = 18; + FLD_SCHEDULE = 20; + FLD_SCHED_EX = 21; + FLD_SCHED_TYP = 22; + FLD_DURATION = 30; + FLD_SEQUENCE = 31; + FLD_MISC_FLDS = 50; + FLD_SUPPLY = 51; + FLD_QUANTITY = 52; + FLD_REFILLS = 53; + FLD_PICKUP = 55; + FLD_QTYDISP = 56; + FLD_SC = 58; + FLD_PRIOR_ID = 60; + FLD_PRIOR_NM = 61; + FLD_START_ID = 70; + FLD_START_NM = 71; + FLD_EXPIRE = 72; + FLD_ANDTHEN = 73; + FLD_NOW_ID = 75; + FLD_NOW_NM = 76; + FLD_COMMENT = 80; + FLD_PTINSTR = 85; + FLD_START = 88; + FLD_STATEMENTS = 90; + {dosage type tab index values} + TI_DOSE = 0; + TI_RATE = 99; + TI_COMPLEX = 1; + {misc constants} + TIMER_ID = 6902; // arbitrary number + TIMER_DELAY = 500; // 500 millisecond delay + TIMER_FROM_DAYS = 1; + TIMER_FROM_QTY = 2; + {text constants} + TX_ADMIN = 'Requested Start: '; + TX_TAKE = ''; + TX_NO_DEA = 'Provider must have a DEA# or VA# to order this medication'; + TC_NO_DEA = 'DEA# Required'; + TX_NO_MED = 'Medication must be selected.'; + TX_NO_DOSE = 'Dosage must be entered.'; + TX_DOSE_NUM = 'Dosage may not be numeric only'; + TX_DOSE_LEN = 'Dosage may not exceed 60 characters'; + TX_NO_ROUTE = 'Route must be entered.'; + TX_NF_ROUTE = 'Route not found in the Medication Routes file.'; + TX_NO_SCHED = 'Schedule must be entered.'; + TX_NO_PICK = 'A method for picking up the medication must be entered.'; + TX_RNG_REFILL = 'The number of refills must be in the range of 0 through '; + TX_SCH_QUOTE = 'Schedule must not have quotemarks in it.'; + TX_SCH_MINUS = 'Schedule must not have a dash at the beginning.'; + TX_SCH_SPACE = 'Schedule must have only one space in it.'; + TX_SCH_LEN = 'Schedule must be less than 70 characters.'; + TX_SCH_PRN = 'Schedule cannot include PRN - use Comments to enter PRN.'; + TX_SCH_ZERO = 'Schedule cannot be Q0'; + TX_SCH_LSP = 'Schedule may not have leading spaces.'; + TX_SCH_NS = 'Unable to resolve non-standard schedule.'; + TX_MAX_STOP = 'The maximum expiration for this order is '; + TX_OUTPT_IV = 'This patient has not been admitted. Only IV orders may be entered.'; + TX_QTY_NV = 'Unable to validate quantity.'; + TX_QTY_MAIL = 'Quantity for mailed items must be a whole number.'; + TX_SUPPLY_LIM = 'Days Supply may not be greater than 90.'; + TX_SUPPLY_LIM1 = 'Days Supply may not be less than 1.'; + TX_SUPPLY_NINT= 'Days Supply is an invalid number.'; + TC_RESTRICT = 'Ordering Restrictions'; + TC_GUIDELINE = 'Restrictions/Guidelines'; + TX_QTY_PRE = '>> Quantity Dispensed: '; + TX_QTY_POST = ' <<'; + TX_STARTDT = 'Unable to interpret start date.'; //cla 7-17-03 + TX_FUTUREDT = 'Dates in the future are not allowed.'; //cla 7-17-03 + TX_NO_FUTURE_DATES = 'Dates in the future are not allowed.'; + TX_BAD_DATE = 'Dates must be in the format mm/dd/yy or mm/yy'; + TX_CAP_FUTURE = 'Invalid date'; + +{ procedures inherited from fODBase --------------------------------------------------------- } + +procedure TfrmODMedNVA.FormCreate(Sender: TObject); +const + TC_RESTRICT = 'Ordering Restrictions'; +var + ListCount: Integer; + Restriction, x: string; +begin + frmFrame.pnlVisit.Enabled := false; + AutoSizeDisabled := True; + // ActivateOrderDialog(Piece(DialogInfo, ';', 1), DelayEvent, Self, 0); + inherited; + AllowQuickOrder := True; + + if User.OrderRole in[OR_CLERK] then // if user is clerk check restrictions else ok to write NonVA Order. + begin + CheckAuthForNVAMeds(Restriction); + if Length(Restriction) > 0 then + begin + CheckAuthForNVAMeds(Restriction); + if Length(Restriction) > 0 then + begin + InfoBox(Restriction, TC_RESTRICT, MB_OK); + Close; + Exit; + end; + end; + end; // clerk restrictions + + if DlgFormID = OD_MEDNONVA then FNonVADlg := TRUE; + FillerID := 'PSH'; // CLA 6/3/03 + FGuideline := TStringList.Create; + FAllDoses := TStringList.Create; + FAllDrugs := TStringList.Create; + StatusText('Loading Dialog Definition'); + + Responses.Dialog := 'PSH OERR'; // CLA 6/3/03 + Responses.SetPromptFormat('INSTR', '@'); + StatusText('Loading Schedules'); + LoadSchedules(cboSchedule.Items); // load the schedules combobox (cached) + StatusText(''); + FSuppressMsg := CtrlInits.DefaultText('DispMsg') = '1'; + InitDialog; + + // medication selection + FRowHeight := MainFontHeight + 1; + x := 'NV RX'; // CLA 6/3/03 + ListForOrderable(FAllList, ListCount, x); + lstAll.Items.Count := ListCount; + FAllItems := TStringList.Create; + FAllFirst := -1; + FAllLast := -1; + FQuickItems := TStringList.Create; + ListForQuickOrders(FQuickList, ListCount, x); + if ListCount > 0 then + begin + lstQuick.Items.Count := ListCount; + SubsetOfQuickOrders(FQuickItems, FQuickList, 0, 0); + FActiveMedList := lstQuick; + end else + begin + lstQuick.Items.Count := 1; + ListCount := 1; + FQuickItems.Add('0^(No quick orders available)'); + FActiveMedList := lstAll; + end; + + // set the height based on user parameter here + with lstQuick do if ListCount < VisibleRowCount + then Height := (((Height - 6) div VisibleRowCount) * ListCount) + 6; + pnlFields.Height := cmdAccept.Top - 4 - pnlFields.Top; + FNoZero := False; + FShrinked := False; + // Load OTC Statement/Explanations + LoadOTCStatements(lbStatements.Items); + FRemoveText := True; + FShrinkDrugMsg := False; +end; + +procedure TfrmODMedNVA.FormDestroy(Sender: TObject); +begin + {selection} + FQuickItems.Free; + FAllItems.Free; + {edit} + FGuideline.Free; + FAllDoses.Free; + FAllDrugs.Free; + // TAccessibleStringGrid.UnwrapControl(grdDoses); + inherited; + frmFrame.pnlVisit.Enabled := true; +end; + +procedure TfrmODMedNVA.InitDialog; +{ Executed each time dialog is reset after pressing accept. Clears controls & responses } +begin + inherited; + FLastPickup := ValueOf(FLD_PICKUP); + Changing := True; + ResetOnMedChange; + txtMed.Text := ''; + txtMed.Tag := 0; + lstQuick.Selected := nil; + lstAll.Selected := nil; + if Visible then ShowMedSelect; + Changing := False; + FIsQuickOrder := False; + FQOQuantity := 0 ; + FQODosage := ''; + memComment.Clear; // sometimes the sig is in the comment + LoadOTCStatements(lbStatements.Items); + +end; + +procedure TfrmODMedNVA.SetupDialog(OrderAction: Integer; const ID: string); +var + //AnInstr: string; + OrderID: string; +begin + inherited; + // if FInptDlg and (not FOutptIV) then DisplayGroup := DisplayGroupByName('UD RX') + DisplayGroup := DisplayGroupByName('NV RX'); // CLA 6/3/03 + if XfInToOutNow then DisplayGroup := DisplayGroupByName('O RX'); + if CharAt(ID,1)='X' then + begin + OrderID := Copy(Piece(ID, ';', 1), 2, Length(ID)); + CheckExistingPI(OrderID, FPtInstruct); + end; + if OrderAction = ORDER_QUICK then + FIsQuickOrder := True + else + FIsQuickOrder := False; +// if OrderAction in [ORDER_COPY, ORDER_EDIT] then Responses.Remove('START', 1); + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then + begin + Changing := True; + txtMed.Tag := StrToIntDef(Responses.IValueFor('ORDERABLE', 1), 0); + SetOnMedSelect; + SetOnQuickOrder; // set up for this medication + ShowMedFields; + if (OrderAction = ORDER_EDIT) and OrderIsReleased(Responses.EditOrder) + then btnSelect.Enabled := False; + UpdateRelated(FALSE); + Changing := False; + end; + { prevent the SIG from being part of the comments on pre-CPRS prescriptions } + {if (OrderAction in [ORDER_COPY, ORDER_EDIT]) and (cboDosage.Text = '') then //commented out by cla 2/27/04 - CQ 2591 + begin + OrderID := Copy(Piece(ID, ';', 1), 2, Length(ID)); + AnInstr := TextForOrder(OrderID); + pnlMessage.TabOrder := 0; + OrderMessage(AnInstr); + if OrderAction = ORDER_COPY + then AnInstr := 'Copy: ' + AnInstr + else AnInstr := 'Change: ' + AnInstr; + Caption := AnInstr; + memComment.Clear; // sometimes the sig is in the comment + lbStatements.Clear; + end;} + ControlChange(Self); +end; + +procedure TfrmODMedNVA.Validate(var AnErrMsg: string); +var + i: Integer; + StartDate: TFMDateTime; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + + procedure ValidateDosage(const x: string); + begin + if Length(x) = 0 then SetError(TX_NO_DOSE); + end; + + procedure ValidateRoute(const x: string; NeedLookup: Boolean; AnInstance: Integer); + var + RouteID, RouteAbbr: string; + begin + if (Length(x) = 0) and (not MedIsSupply(txtMed.Tag)) then SetError(TX_NO_ROUTE); + if (Length(x) > 0) and NeedLookup then + begin + LookupRoute(x, RouteID, RouteAbbr); + if RouteID = '0' + then SetError(TX_NF_ROUTE) + else Responses.Update('ROUTE', AnInstance, RouteID, RouteAbbr); + end; + end; + + procedure ValidateSchedule(const x: string; AnInstance: Integer); + const + SCH_BAD = 0; + SCH_NO_RTN = -1; + var + ValidLevel: Integer; + ARoute, ADrug: string; + begin + ARoute := ValueOfResponse(FLD_ROUTE_ID, AnInstance); + ADrug := ValueOfResponse(FLD_DRUG_ID, AnInstance); + { if (Length(x) = 0) and (not FNonVADlg) then SetError(TX_NO_SCHED) + else if (Length(x) = 0) and FNonVADlg and ScheduleRequired(txtMed.Tag, ARoute, ADrug) + then SetError(TX_NO_SCHED); +} + if Length(x) > 0 then + begin + ValidLevel := ValidSchedule(x, 'O'); + if ValidLevel = SCH_NO_RTN then + begin + if Pos('"', x) > 0 then SetError(TX_SCH_QUOTE); + if Copy(x, 1, 1) = '-' then SetError(TX_SCH_MINUS); + if Pos(' ', Copy(x, Pos(' ', x) + 1, 999)) > 0 then SetError(TX_SCH_SPACE); + if Length(x) > 70 then SetError(TX_SCH_LEN); + if (Pos('P RN', x) > 0) or (Pos('PR N', x) > 0) then SetError(TX_SCH_PRN); + if Pos('Q0', x) > 0 then SetError(TX_SCH_ZERO); + if TrimLeft(x) <> x then SetError(TX_SCH_LSP); + end; + if ValidLevel = SCH_BAD then SetError(TX_SCH_NS); + end; + end; + +begin + inherited; + begin + AnErrMsg := ''; + if User.NoOrdering then AnErrMsg := 'Ordering has been disabled. Press Quit'; + + ControlChange(Self); // make sure everything is updated + if txtMed.Tag = 0 then SetError(TX_NO_MED); + if Responses.InstanceCount('INSTR') < 1 then SetError(TX_NO_DOSE); + i := Responses.NextInstance('INSTR', 0); + while i > 0 do + begin + { if (ValueOfResponse(FLD_DRUG_ID, i) = '') then + begin + if not ContainsAlpha(Responses.IValueFor('INSTR', i)) then SetError(TX_DOSE_NUM); + if Length(Responses.IValueFor('INSTR', i)) > 60 then SetError(TX_DOSE_LEN); + end; + ValidateRoute(Responses.EValueFor('ROUTE', i), Responses.IValueFor('ROUTE', i) = '', i); + ValidateSchedule(ValueOfResponse(FLD_SCHEDULE, i), i); + } + i := Responses.NextInstance('INSTR', i); + // inherited; - do not reject past dates - historical would not be allowed + + if calStart.Text <> '' then + begin + StartDate := ValidDateTimeStr(calStart.Text,'TS'); + if StartDate > FMNow then SetError(TX_NO_FUTURE_DATES); + if StartDate < 0 then SetError(TX_BAD_DATE); + end; + end; + end; +end; + +{ Navigate medication selection lists ------------------------------------------------------- } + +{ txtMed methods (including timers) } + +procedure TfrmODMedNVA.WMTimer(var Message: TWMTimer); +begin + inherited; + if (Message.TimerID = TIMER_ID) then + begin + StopKeyTimer; + ChangeDelayed; + end; +end; + +procedure TfrmODMedNVA.StartKeyTimer; +{ start (or restart) a timer (done on keyup to delay before calling OnKeyPause) } +var + ATimerID: Integer; +begin + StopKeyTimer; + ATimerID := SetTimer(Handle, TIMER_ID, TIMER_DELAY, nil); + FKeyTimerActive := ATimerID > 0; + // if can't get a timer, just call the event immediately F + if not FKeyTimerActive then Perform(WM_TIMER, TIMER_ID, 0); +end; + +procedure TfrmODMedNVA.StopKeyTimer; +{ stop the timer (done whenever a key is pressed or the combobox no longer has focus) } +begin + if FKeyTimerActive then + begin + KillTimer(Handle, TIMER_ID); + FKeyTimerActive := False; + end; +end; + +procedure TfrmODMedNVA.txtMedKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +var + i: Integer; + x: string; +begin + if Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN] then // navigation + begin + FActiveMedList.Perform(WM_KEYDOWN, Key, 0); + FFromSelf := True; + txtMed.Text := FActiveMedList.Selected.Caption; + txtMed.SelectAll; + FFromSelf := False; + Key := 0; + end + else if Key = VK_BACK then + begin + FFromSelf := True; + x := txtMed.Text; + i := txtMed.SelStart; + if i > 1 then Delete(x, i + 1, Length(x)) else x := ''; + txtMed.Text := x; + if i > 1 then txtMed.SelStart := i; + FFromSelf := False; + end + else {StartKeyTimer}; +end; + +procedure TfrmODMedNVA.txtMedKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if not (Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN]) then StartKeyTimer; +end; + +procedure TfrmODMedNVA.txtMedChange(Sender: TObject); +begin + if FFromSelf then Exit; + FChangePending := True; +end; + +procedure TfrmODMedNVA.ScrollToVisible(AListView: TListView); +var + Offset: Integer; + SelRect: TRect; +begin + AListView.Selected.MakeVisible(FALSE); + SelRect := AListView.Selected.DisplayRect(drBounds); // CQ: 6636 + FRowHeight := SelRect.Bottom - SelRect.Top; + Offset := AListView.Selected.Index - AListView.TopItem.Index; + Application.ProcessMessages; + if Offset > 0 then AListView.Scroll(0, (Offset * FRowHeight)); + Application.ProcessMessages; +end; + +procedure TfrmODMedNVA.ChangeDelayed; +var + QuickIndex, AllIndex: Integer; + NewText, OldText, UserText: string; + UniqueText: Boolean; +begin + FRemoveText := False; + UniqueText := False; + FChangePending := False; + if (Length(txtMed.Text) > 0) and (txtMed.SelStart = 0) then Exit; // don't lookup null + // lookup item in appropriate list box + NewText := ''; + UserText := Copy(txtMed.Text, 1, txtMed.SelStart); + QuickIndex := FindQuickOrder(UserText); + AllIndex := IndexOfOrderable(FAllList, UserText); // but always synch the full list + if UserText <> Copy(txtMed.Text, 1, txtMed.SelStart) then Exit; // if typing during lookup + if AllIndex > -1 then + begin + lstAll.Selected := lstAll.Items[AllIndex]; + FActiveMedList := lstAll; + end; + if QuickIndex > -1 then + begin + try + lstQuick.Selected := lstQuick.Items[QuickIndex]; + lstQuick.ItemFocused := lstQuick.Selected; + NewText := lstQuick.Selected.Caption; + FActiveMedList := lstQuick; + //Search Quick List for Uniqueness + UniqueText := isUniqueQuickOrder(UserText); + except + //doing nothing short term solution related to 117 + end; + end + else if AllIndex > -1 then + begin + lstAll.Selected := lstAll.Items[AllIndex]; + lstAll.ItemFocused := lstAll.Selected; + NewText := lstAll.Selected.Caption; + lstQuick.Selected := nil; + FActiveMedList := lstAll; + //List is alphabetical, So compare next Item in list to establish uniqueness. + if CompareText(UserText, Copy(lstAll.Items[AllIndex+1].Caption, 1, Length(UserText))) <> 0 then + UniqueText := True; + end + else + begin + lstQuick.Selected := nil; + lstAll.Selected := nil; + FActiveMedList := lstAll; + NewText := txtMed.Text; + end; + if (AllIndex > -1) and (QuickIndex > -1) then //Not Unique Between Lists + UniqueText := False; + FFromSelf := True; + if UniqueText then + begin + OldText := Copy(txtMed.Text, 1, txtMed.SelStart); + txtMed.Text := NewText; + //txtMed.SelStart := Length(OldText); // v24.14 RV + txtMed.SelStart := Length(UserText); // v24.14 RV + txtMed.SelLength := Length(NewText); + end + else begin + txtMed.Text := UserText; + txtMed.SelStart := Length(txtMed.Text); + end; + FFromSelf := False; + if lstAll.Selected <> nil then + ScrollToVisible(lstAll); + if lstQuick.Selected <> nil then + ScrollToVisible(lstQuick); + if Not UniqueText then + begin + lstQuick.ItemIndex := -1; + lstAll.ItemIndex := -1; + end; + FRemoveText := True; +end; + +procedure TfrmODMedNVA.txtMedExit(Sender: TObject); +begin + StopKeyTimer; + if not ((ActiveControl = lstAll) or (ActiveControl = lstQuick)) then ChangeDelayed; +end; + +{ lstAll & lstQuick methods } + +procedure TfrmODMedNVA.ListViewEnter(Sender: TObject); +begin + inherited; + FActiveMedList := TListView(Sender); + with Sender as TListView do + begin + if Selected = nil then Selected := TopItem; + if Name = 'lstQuick' then lstAll.Selected := nil else lstQuick.Selected := nil; + ItemFocused := Selected; + end; +end; + +procedure TfrmODMedNVA.ListViewClick(Sender: TObject); +begin + inherited; + btnSelect.Visible := True; + btnSelect.Enabled := True; + //txtMed.Text := FActiveMedList.Selected.Caption; + PostMessage(Handle, UM_DELAYCLICK, 0, 0); +end; + +procedure TfrmODMedNVA.UMDelayClick(var Message: TMessage); +begin + btnSelectClick(Self); +end; + +procedure TfrmODMedNVA.ListViewEditing(Sender: TObject; Item: TListItem; + var AllowEdit: Boolean); +begin + AllowEdit := FALSE; +end; + +procedure TfrmODMedNVA.ListViewResize(Sender: TObject); +begin + with Sender as TListView do Columns.Items[0].Width := ClientWidth - 20; +end; + +{ lstAll Methods (lstAll is TListView) } + +procedure TfrmODMedNVA.LoadNonVAMedCache(First, Last: Integer); +const + MAX_CACHE_ITEMS = 1000; +begin + // if range is within cache range we don't need to update anything + if (First >= FAllFirst) and (Last <= FAllLast) then Exit; + // if range is outside of cache or a superset of cache, start over + if (Last < Pred(FAllFirst)) or (First > Succ(FAllLast)) or + ((First < FAllFirst) and (Last > FAllLast)) or + (FAllItems.Count > MAX_CACHE_ITEMS) then + begin + FAllItems.Clear; + FAllFirst := -1; + FAllLast := -1; + end; + // if getting items immediately before cache range + if (First < FAllFirst) and (Last >= FAllFirst) then Last := Pred(FAllFirst); + // if getting items immediately after cache range + if (Last > FAllLast) and (First <= FAllLast) then First := Succ(FAllLast); + // retrieve the items and append (First>FAllLast) or prepend them to FAllItems + SubsetOfOrderable(FAllItems, First>FAllLast, FAllList, First, Last); + // reset FAllFirst & FAllLast indexes to reflect current FAllItems + if FAllFirst < 0 then FAllFirst := First; + if FAllLast < 0 then FAllLast := Last; + if First < FAllFirst then FAllFirst := First; + if Last > FAllLast then FAllLast := Last; +end; + +procedure TfrmODMedNVA.lstAllData(Sender: TObject; Item: TListItem); +var + x: string; +begin + if (FAllFirst = -1) or (Item.Index < FAllFirst) or (Item.Index > FAllLast) + then LoadNonVAMedCache(Item.Index, Item.Index); + x := FAllItems[Item.Index - FAllFirst]; + Item.Caption := Piece(x, U, 2); + Item.Data := Pointer(StrToIntDef(Piece(x, U, 1), 0)); +end; + +procedure TfrmODMedNVA.lstAllDataHint(Sender: TObject; StartIndex, + EndIndex: Integer); +begin + LoadNonVAMedCache(StartIndex, EndIndex); +end; + +{ Medication is now selected ---------------------------------------------------------------- } + +procedure TfrmODMedNVA.btnSelectClick(Sender: TObject); +var + MedIEN: Integer; + MedName: string; + QOQuantityStr: string; + ErrMsg: string; +begin + inherited; + QOQuantityStr := ''; + btnSelect.SetFocus; // let the exit events finish + if pnlMeds.Visible then // display the medication fields + begin + Changing := True; + ResetOnMedChange; + if (FActiveMedList = lstQuick) and (lstQuick.Selected <> nil) then // quick order + begin + ErrMsg := ''; + FIsQuickOrder := True; + FQOInitial := True; + Responses.QuickOrder := Integer(lstQuick.Selected.Data); + txtMed.Tag := StrToIntDef(Responses.IValueFor('ORDERABLE', 1), 0); + IsActivateOI(ErrMsg, txtMed.Tag); + if Length(ErrMsg)>0 then + begin + //btnSelect.Visible := False; + btnSelect.Enabled := False; + ShowMessage(ErrMsg); + Exit; + end; + if txtMed.Tag = 0 then + begin + //btnSelect.Visible := False; + btnSelect.Enabled := False; + txtMed.SetFocus; + Exit; + end; + SetOnMedSelect; // set up for this medication + SetOnQuickOrder; // insert quick order responses + ShowMedFields; + end + else if (FActiveMedList = lstAll) and (lstAll.Selected <> nil) then // orderable item + begin + MedIEN := Integer(lstAll.Selected.Data); + MedName := lstAll.Selected.Caption; + txtMed.Tag := MedIEN; + ErrMsg := ''; + IsActivateOI(ErrMsg, txtMed.Tag); + if Length(ErrMsg)>0 then + begin + btnSelect.Enabled := False; + ShowMessage(ErrMsg); + Exit; + end; + + { if Pos(' NF', MedName) > 0 then + begin + CheckFormularyOI(MedIEN, MedName, FNonVADlg); + FAltChecked := True; + end; + } + if MedIEN <> txtMed.Tag then + begin + txtMed.Tag := MedIEN; + txtMed.Text := MedName; + end; + SetOnMedSelect; + ShowMedFields; + end + else // no selection + begin + MessageBeep(0); + Exit; + end; + UpdateRelated(False); + Changing := False; + ControlChange(Self); + end + else ShowMedSelect; // show the selection fields + FNoZERO := False; +end; + +procedure TfrmODMedNVA.ResetOnMedChange; +begin + cboDosage.Items.Clear; + chkPRN.Checked := False; + cboSchedule.ItemIndex := -1; + cboSchedule.Text := ''; // leave items intact + memComment.Lines.Clear; + cboDosage.Text := ''; + cboRoute.Items.Clear; + cboRoute.Text := ''; + cboRoute.Hint := cboRoute.Text; + ResetControl(cboSchedule); /// cla 2/26/04 + Responses.Clear; +end; + +procedure TfrmODMedNVA.SetOnMedSelect; +var + i,j: Integer; + x: string; + QOPiUnChk: boolean; + PKIEnviron: boolean; +begin + // clear controls? + cboDosage.Tag := -1; + QOPiUnChk := False; + PKIEnviron := False; + if GetPKISite then PKIEnviron := True; + with CtrlInits do + begin + // set up CtrlInits for orderable item + LoadOrderItem(OIForNVA(txtMed.Tag, FNonVADlg, IncludeOIPI, PKIEnviron)); + // set up lists & initial values based on orderable item + SetControl(txtMed, 'Medication'); + SetControl(cboDosage, 'Dosage'); + SetControl(cboRoute, 'Route'); + SetControl(calStart, 'START'); //cla 7-17-03 + if cboRoute.Items.Count = 1 then cboRoute.ItemIndex := 0; + cboRouteChange(Self); + x := DefaultText('Schedule'); + if x <> '' then + begin + cboSchedule.SelectByID(x); + cboSchedule.Text := x; + end; + if Length(ValueOf(FLD_QTYDISP))>10 then + begin + end; + FAllDoses.Text := TextOf('AllDoses'); + FAllDrugs.Text := TextOf('Dispense'); + FGuideline.Text := TextOf('Guideline'); + case FGuideline.Count of + 0: lblGuideline.Visible := False; + 1: begin + lblGuideline.Caption := FGuideline[0]; + lblGuideline.Visible := TRUE; + end; + else begin + lblGuideline.Caption := 'Display Restrictions/Guidelines'; + lblGuideline.Visible := TRUE; + end; + end; + + DEASig := ''; + if GetPKISite then DEASig := DefaultText('DEASchedule'); + FSIGVerb := DefaultText('Verb'); + if Length(FSIGVerb) = 0 then FSIGVerb := TX_TAKE; + FSIGPrep := DefaultText('Preposition'); + for j := 0 to Responses.TheList.Count - 1 do + begin + if (TResponse(Responses.theList[j]).PromptID = 'PI') and (TResponse(Responses.theList[j]).EValue = ' ') then + QOPiUnChk := True; + end; + FPtInstruct := TextOf('PtInstr'); + for i := 1 to Length(FPtInstruct) do if Ord(FPtInstruct[i]) < 32 then FPtInstruct[i] := ' '; + FPtInstruct := TrimRight(FPtInstruct); + if Length(FPtInstruct) > 0 then + begin + if FShrinked then + begin + FShrinked := False; + end; + if QOPiUnChk then + end else + begin + if not FShrinked then + begin + FShrinked := True; + end; + end; + // end; + pnlMessage.TabOrder := cboDosage.TabOrder + 1; + + // DispOrderMessage(TextOf('Message')); + end; +end; + +procedure TfrmODMedNVA.SetOnQuickOrder; +var + AResponse: TResponse; + x,LocRoute,TempSch,DispGrp: string; + i, DispDrug: Integer; +begin + // txtMed already set by SetOnMedSelect + with Responses do + begin + if (InstanceCount('INSTR') > 1) or (InstanceCount('DAYS') > 0) then // complex dose + begin + i := Responses.NextInstance('INSTR', 0); + while i > 0 do + begin + SetDosage(IValueFor('INSTR', i)); + with cboDosage do + if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text; + + SetControl(cboRoute, 'ROUTE', i); + with cboRoute do + if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text; + if FIsQuickOrder then TempSch := cboSchedule.Text; + SetSchedule(IValueFor('SCHEDULE', i)); + if (cboSchedule.Text = '') and FIsQuickOrder then + begin + cboSchedule.SelectByID(TempSch); + cboSchedule.Text := TempSch; + end; + x := cboSchedule.Text; + if chkPRN.Checked then x := x + ' PRN'; + with cboSchedule do + if ItemIndex > -1 then x := x + TAB + Items[ItemIndex]; + if IValueFor('CONJ', i) = 'A' then x := 'AND' + else if IValueFor('CONJ', i) = 'T' then x := 'THEN' + else if IValueFor('CONJ', i) = 'X' then x := 'EXCEPT' + else x := ''; + i := Responses.NextInstance('INSTR', i); + end; {while} + end else // single dose + begin + if FIsQuickOrder then + begin + FQODosage := IValueFor('INSTR', 1); + SetDosage(FQODosage); + TempSch := cboSchedule.Text; + end + else + SetDosage(IValueFor('INSTR', 1)); + SetControl(cboDosage, 'DOSAGE', 1); // CQ: HDS00007776 + SetSchedule(IValueFor('SCHEDULE', 1)); + if (cboSchedule.Text = '') and FIsQuickOrder then + begin + cboSchedule.SelectByID(TempSch); + cboSchedule.Text := TempSch; + end; + DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID), 0); + if DispDrug > 0 then x := QuantityMessage(DispDrug) else x := ''; + SetControl(memComment , 'COMMENT', 1); + SetControl(calStart, 'START', 1); + SetStartDate(EValueFor('START', 1)); + SetStatements(EValueFor('STATEMENTS', 1)); + if FIsQuickOrder then + begin + if not QOHasRouteDefined(Responses.QuickOrder) then + begin + LocRoute := GetPickupForLocation(IntToStr(Encounter.Location)); + end; + end; + AResponse := Responses.FindResponseByName('SC', 1); + DispGrp := NameOfDGroup(Responses.DisplayGroup); + if (AResponse = nil) or ((StrToIntDef(Piece(Responses.CopyOrder,';',1),0)>0) and AnsiSameText('Out. Meds',DispGrp)) then + begin + LocRoute := GetPickupForLocation(IntToStr(Encounter.Location)); + end; + + end; + end; {with} + if FInptDlg then + begin + x := ValueOfResponse(FLD_SCHEDULE, 1); + if Length(x) > 0 then UpdateStartExpires(x); + end; +end; + + +procedure TfrmODMedNVA.ShowMedSelect; +begin + txtMed.SelStart := Length(txtMed.Text); + ChangeDelayed; // synch the listboxes with display + pnlFields.Enabled := False; + pnlFields.Visible := False; + pnlMeds.Enabled := True; + pnlMeds.Visible := True; + btnSelect.Caption := 'OK'; + btnSelect.Top := cmdAccept.Top; + btnSelect.Anchors := [akRight, akBottom]; + btnSelect.BringToFront; + cmdAccept.Visible := False; + cmdAccept.Default := False; + btnSelect.Default := True; + btnSelect.TabOrder := cmdAccept.TabOrder; + cmdAccept.TabStop := False; + txtMed.Font.Color := clWindowText; + txtMed.Color := clWindow; + txtMed.ReadOnly := False; + txtMed.SelectAll; + txtMed.SetFocus; + FDrugID := ''; +end; + +procedure TfrmODMedNVA.ShowMedFields; +begin + pnlMeds.Enabled := False; + pnlMeds.Visible := False; + pnlFields.Enabled := True; + pnlFields.Visible := True; + btnSelect.Caption := 'Change'; + btnSelect.Top := txtMed.Top; + btnSelect.Anchors := [akRight, akTop]; + btnSelect.Default := False; + cmdAccept.Visible := True; + cmdAccept.Default := True; + btnSelect.TabOrder := txtMed.TabOrder + 1; + cmdAccept.TabStop := True; + txtMed.Width := memOrder.Width; + txtMed.Font.Color := clInfoText; + txtMed.Color := clInfoBk; + txtMed.ReadOnly := True; + ShowControlsSimple; +end; + +procedure TfrmODMedNVA.ShowControlsSimple; +begin + tabDose.TabIndex := TI_DOSE; + cboDosage.Visible := True; + lblRoute.Visible := True; + cboRoute.Visible := True; + lblSchedule.Visible := True; + cboSchedule.Visible := True; + chkPRN.Visible := True; + ActiveControl := cboDosage; +end; + +procedure TfrmODMedNVA.SetDosage(const x: string); +var + i, DoseIndex: Integer; +begin + DoseIndex := -1; + with cboDosage do + begin + ItemIndex := -1; + for i := 0 to Pred(Items.Count) do + if Piece(Items[i], U, 5) = x then + begin + DoseIndex := i; + Break; + end; + if DoseIndex < 0 then Text := x else ItemIndex := DoseIndex; + end; +end; + +procedure TfrmODMedNVA.SetStatements(x: string); +var +i,stmtLen: integer; +stmt: string; +hldStr, matchStmt: string; +stmtList: TStringList; +begin + stmt := x; + stmtLen := Length(stmt); + stmtList := TStringList.Create; + stmtList.Clear; + for i := 1 to stmtLen do + if((stmt[i] <> NVA_CR) and (stmt[i] <> NVA_LF)) then + hldStr := hldStr + stmt[i] + else + hldStr := hldStr + '^'; + hldStr := hldStr + '^'; // end line with a '^' for piece. + + // Load List of statements. + stmtList.Add(Piece(hldStr,U,1)); + stmtList.Add(Piece(hldStr,U,3)); + stmtList.Add(Piece(hldStr,U,5)); + stmtList.Add(Piece(hldStr,U,7)); + + for i := 0 to lbStatements.count-1 do + begin + matchStmt := lbStatements.Items.Strings[i]; + if SearchStatements(stmtList,matchStmt) then + lbStatements.Checked[i] := True; + end; + +end; + +function TfrmODMedNVA.SearchStatements(StatementList: TStringList; Statement: string): Boolean; +var +i : integer; +x: string; +begin + + Result := FALSE; + for i := 0 to StatementList.Count-1 do + begin + x := StatementList.Strings[i]; + if Statement = Trim(StatementList.Strings[i]) then + begin + Result := TRUE; + Break; + end; + end; +end; + +procedure TfrmODMedNVA.SetStartDate(const x: string); +begin + calStart.Text := x; +end; + +procedure TfrmODMedNVA.SetSchedule(const x: string); +var + NonPRNPart: string; +begin + + cboSchedule.ItemIndex := -1; + if Pos('PRN', x) > 0 then + begin + NonPRNPart := Trim(Copy(x, 1, Pos('PRN', x) - 1)); + cboSchedule.SelectByID(NonPRNPart); + if cboSchedule.ItemIndex < 0 then + begin + if NSSchedule then + begin + chkPRN.Checked := False; + cboSchedule.Text := ''; + end else + begin + chkPRN.Checked := True; + cboSchedule.Items.Add(NonPRNPart); + cboSchedule.Text := NonPRNPart; + end; + end else + chkPRN.Checked := True; + end else + begin + chkPRN.Checked := False; + cboSchedule.SelectByID(x); + if cboSchedule.ItemIndex < 0 then + begin + if NSSchedule then + begin + cboSchedule.Text := ''; + end + else + begin + cboSchedule.Items.Add(x); + cboSchedule.Text := x; + cboSchedule.SelectByID(x); + end; + end; + end; +end; + +{ Medication edit --------------------------------------------------------------------------- } + +procedure TfrmODMedNVA.tabDoseChange(Sender: TObject); +begin + inherited; + case tabDose.TabIndex of + TI_DOSE: begin + // clean up responses? + ShowControlsSimple; + ControlChange(Self); + end; + TI_RATE: begin + // for future use... + end; + end; {case} +end; + +procedure TfrmODMedNVA.lblGuidelineClick(Sender: TObject); +var + TextStrings: TStringList; +begin + inherited; + TextStrings := TStringList.Create; + try + TextStrings.Text := FGuideline.Text; + ReportBox(TextStrings, TC_GUIDELINE, TRUE); + finally + TextStrings.Free; + end; +end; + +{ cboDosage ------------------------------------- } + +procedure TfrmODMedNVA.CheckFormAltDose(DispDrug: Integer); +var + OI: Integer; + OIName: string; +begin + if FAltChecked or (DispDrug = 0) then Exit; + OI := txtMed.Tag; + OIName := txtMed.Text; + CheckFormularyDose(DispDrug, OI, OIName, FNonVADlg); + if OI <> txtMed.Tag then + begin + ResetOnMedChange; + txtMed.Tag := OI; + txtMed.Text := OIName; + SetOnMedSelect; + end; +end; + +procedure TfrmODMedNVA.cboDosageClick(Sender: TObject); +var + DispDrug: Integer; +begin + inherited; +UpdateRelated(False); + DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID), 0); + if cboDosage.Text = '' then //cla 3/18/04 + begin + DispDrug := 0; + cboDosage.ItemIndex := -1; + end; + { hds8084 + if DispDrug > 0 then + begin + if not FSuppressMsg then begin + pnlMessage.TabOrder := cboDosage.TabOrder + 1; + DispOrderMessage(DispenseMessage(DispDrug)); + end; + x := QuantityMessage(DispDrug); + end + else x := ''; + } + with cboDosage do + if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 3) = 'NF') + then CheckFormAltDose(DispDrug); +end; + +procedure TfrmODMedNVA.cboDosageChange(Sender: TObject); +begin + inherited; + UpdateRelated; +end; + +procedure TfrmODMedNVA.cboDosageExit(Sender: TObject); +begin + inherited; + if ActiveControl = memMessage then + begin + memMessage.SendToBack; + PnlMessage.Visible := False; + Exit; + end; + if ActiveControl = memComment then + begin + if PnlMessage.Visible = true then + begin + memMessage.SendToBack; + PnlMessage.Visible := False; + end; + end + else if (ActiveControl <> btnSelect) and (ActiveControl <> memComment) then + begin + if PnlMessage.Visible = true then + begin + memMessage.SendToBack; + PnlMessage.Visible := False; + end; + cboDosageClick(Self); + end; +end; + +{ cboRoute -------------------------------------- } + +procedure TfrmODMedNVA.cboRouteChange(Sender: TObject); +begin + inherited; + with cboRoute do + if ItemIndex > -1 then + begin + if Piece(Items[ItemIndex], U, 5) = '1' + then tabDose.Tabs[0] := 'Dosage / Rate' + else tabDose.Tabs[0] := 'Dosage'; + end; + cboDosage.Caption := tabDose.Tabs[0]; + if Sender <> Self then ControlChange(Sender); +end; + +procedure TfrmODMedNVA.cboRouteExit(Sender: TObject); +begin + inherited; +end; + +{ cboSchedule ----------------------------------- } + +procedure TfrmODMedNVA.cboScheduleClick(Sender: TObject); +begin + inherited; + UpdateRelated(False); +end; + +procedure TfrmODMedNVA.cboScheduleChange(Sender: TObject); +begin + inherited; + UpdateRelated; +end; + +procedure TfrmODMedNVA.cboScheduleExit(Sender: TObject); +begin +end; + +{ values changing } + +function TfrmODMedNVA.OutpatientSig: string; +var + Dose, Route, Schedule: string; +begin + case tabDose.TabIndex of + TI_DOSE: + begin + if ValueOf(FLD_TOTALDOSE) = '' + then Dose := ValueOf(FLD_LOCALDOSE) + else Dose := ValueOf(FLD_UNITNOUN); + CheckDecimal(Dose); + Route := ValueOf(FLD_ROUTE_EX); + if (Length(Route) > 0) and (Length(FSigPrep) > 0) then Route := FSigPrep + ' ' + Route; + if Length(Route) = 0 then Route := ValueOf(FLD_ROUTE_NM); + Schedule := ValueOf(FLD_SCHED_EX); + if Length(Schedule) = 0 then Schedule := ValueOf(FLD_SCHEDULE); + Result := FSIGVerb + ' ' + Dose + ' ' + Route + ' ' + Schedule; + end; + end; {case} +end; + +function TfrmODMedNVA.ConstructedDoseFields(const ADose: string; PrependName: Boolean = FALSE): string; +var + i, DrugIndex: Integer; + UnitsPerDose, Strength: Extended; + Units, Noun, AName: string; +begin + DrugIndex := -1; + for i := 0 to Pred(FAllDrugs.Count) do + if AnsiSameText(Piece(FAllDrugs[i], U, 1), FDrugID) then + begin + DrugIndex := i; + Break; + end; + Strength := StrToFloatDef(Piece(FAllDrugs[DrugIndex], U, 2), 0); + Units := Piece(FAllDrugs[DrugIndex], U, 3); + AName := Piece(FAllDrugs[DrugIndex], U, 4); + if FAllDoses.Count > 0 + then Noun := Piece(Piece(FAllDoses[0], U, 3), '&', 4) + else Noun := ''; + if Strength > 0 + then UnitsPerDose := ExtractFloat(ADose) / Strength + else UnitsPerDose := 0; + if (UnitsPerDose > 1) and (Noun <> '') and (CharAt(Noun, Length(Noun)) <> 'S') + then Noun := Noun + 'S'; + Result := FloatToStr(ExtractFloat(ADose)) + '&' + Units + '&' + FloatToStr(UnitsPerDose) + + '&' + Noun + '&' + ADose + '&' + FDrugID + '&' + FloatToStr(Strength) + '&' + + Units; + if PrependName then Result := AName + U + FloatToStr(Strength) + Units + U + U + + Result + U + ADose; + Result := UpperCase(Result); +end; + +function TfrmODMedNVA.FindDoseFields(const Drug, ADose: string): string; +var + i: Integer; + x: string; +begin + Result := ''; + x := ADose + U + Drug + U; + for i := 0 to Pred(FAllDoses.Count) do + begin + if AnsiSameText(x, Copy(FAllDoses[i], 1, Length(x))) then + begin + Result := Piece(FAllDoses[i], U, 3); + Break; + end; + end; +end; + +function TfrmODMedNVA.FindCommonDrug(DoseList: TStringList): string; +// DoseList[n] = DoseText ^ Dispense Drug Pointer +var + i, j, UnitIndex: Integer; + DrugStrength, DoseValue, UnitsPerDose: Extended; + DrugOK, PossibleDoses, SplitTab: Boolean; + ADrug, ADose, DoseFields, DoseUnits, DrugUnits: string; + FoundDrugs: TStringList; + + procedure SaveDrug(const ADrug: string; UnitsPerDose: Extended); + var + i, DrugIndex: Integer; + CurUnits: Extended; + begin + DrugIndex := -1; + for i := 0 to Pred(FoundDrugs.Count) do + if AnsiSameText(Piece(FoundDrugs[i], U, 1), ADrug) then DrugIndex := i; + if DrugIndex = -1 then FoundDrugs.Add(ADrug + U + FloatToStr(UnitsPerDose)) else + begin + CurUnits := StrToFloatDef(Piece(FoundDrugs[DrugIndex], U, 2), 0); + if UnitsPerDose > CurUnits + then FoundDrugs[DrugIndex] := ADrug + U + FloatToStr(UnitsPerDose); + end; + end; + + procedure KillDrug(const ADrug: string); + var + i, DrugIndex: Integer; + begin + DrugIndex := -1; + for i := 0 to Pred(FoundDrugs.Count) do + if AnsiSameText(Piece(FoundDrugs[i], U, 1), ADrug) then DrugIndex := i; + if DrugIndex > -1 then FoundDrugs.Delete(DrugIndex); + end; + +begin + Result := ''; + if FInptDlg then // inpatient dialog + begin + DrugOK := True; + for i := 0 to Pred(DoseList.Count) do + begin + ADrug := Piece(DoseList[i], U, 2); + if ADrug = '' then DrugOK := False; + if Result = '' then Result := ADrug; + if not AnsiSameText(ADrug, Result) then DrugOK := False; + if not DrugOK then Break; + end; + + if not DrugOK then Result :=''; + end else // outpatient dialog + begin + // check the dose combinations for each dispense drug + FoundDrugs := TStringList.Create; + try + if FAllDoses.Count > 0 + then PossibleDoses := Length(Piece(Piece(FAllDoses[0], U, 3), '&', 1)) > 0 + else PossibleDoses := False; + for i := 0 to Pred(FAllDrugs.Count) do + begin + ADrug := Piece(FAllDrugs[i], U, 1); + DrugOK := True; + DrugStrength := StrToFloatDef(Piece(FAllDrugs[i], U, 2), 0); + DrugUnits := Piece(FAllDrugs[i], U, 3); + SplitTab := Piece(FAllDrugs[i], U, 5) = '1'; + for j := 0 to Pred(DoseList.Count) do + begin + ADose:= Piece(DoseList[j], U, 1); + DoseFields := FindDoseFields(ADrug, ADose); // get the idnode for the dose/drug combination + if not PossibleDoses then + begin + if DoseFields = '' then DrugOK := False else SaveDrug(ADrug, 0); + end else + begin + DoseValue := StrToFloatDef(Piece(DoseFields, '&', 1), 0); + if DoseValue = 0 then DoseValue := ExtractFloat(ADose); + UnitsPerDose := DoseValue / DrugStrength; + if (Frac(UnitsPerDose) = 0) or (SplitTab and (Frac(UnitsPerDose) = 0.5)) + then SaveDrug(ADrug, UnitsPerDose) + else DrugOK := False; + // make sure this dose is using the same units as the drug + if DoseFields = '' then + begin + for UnitIndex := 1 to Length(ADose) do + if not (ADose[UnitIndex] in ['0'..'9','.']) then Break; + DoseUnits := Copy(ADose, UnitIndex, Length(ADose)); + end + else DoseUnits := Piece(DoseFields, '&', 2); + if not AnsiSameText(DoseUnits, DrugUnits) then DrugOK := False; + end; + if not DrugOK then + begin + KillDrug(ADrug); + Break; + end; {if not DrugOK} + end; {with..for j} + end; {for i} + if FoundDrugs.Count > 0 then + begin + if not PossibleDoses then Result := Piece(FoundDrugs[0], U, 1) else + begin + UnitsPerDose := 99999999; + for i := 0 to Pred(FoundDrugs.Count) do + begin + if StrToFloatDef(Piece(FoundDrugs[i], U, 2), 99999999) < UnitsPerDose then + begin + Result := Piece(FoundDrugs[i], U, 1); + UnitsPerDose := StrToFloatDef(Piece(FoundDrugs[i], U, 2), 99999999); + end; {if StrToFloatDef} + end; {for i..FoundDrugs} + end; {if not..else PossibleDoses} + end; {if FoundDrugs} + finally + FoundDrugs.Free; + end; {try} + end; {if..else FInptDlg} +end; {FindCommonDrug} + +procedure TfrmODMedNVA.ControlChange(Sender: TObject); +var + x,ADose,AUnit,ADosageText: string; + DoseList: TStringList; +begin + inherited; + if csLoading in ComponentState then Exit; // to prevent error caused by txtRefills + if Changing then Exit; + if txtMed.Tag = 0 then Exit; + ADose := ''; + AUnit := ''; + ADosageText := ''; + FUpdated := FALSE; + Responses.Clear; + Responses.Update('ORDERABLE', 1, IntToStr(txtMed.Tag), txtMed.Text); + DoseList := TStringList.Create; + case tabDose.TabIndex of + TI_DOSE: + begin + if (cboDosage.ItemIndex < 0) and (Length(cboDosage.Text) > 0) then + begin + // try to resolve freetext dose and add it as a new item to the combobox + ADosageText := cboDosage.Text; + ADose := Piece(ADosageText,' ',1); + Delete(ADosageText,1,Length(ADose)+1); + ADosageText := ADose + Trim(ADosageText); + DoseList.Add(ADosageText); + FDrugID := FindCommonDrug(DoseList); + if FDrugID <> '' then + begin + if ExtractFloat(cboDosage.Text) > 0 then + begin + x := ConstructedDoseFields(cboDosage.Text, TRUE); + FDrugID := ''; + with cboDosage do ItemIndex := cboDosage.Items.Add(x); + end; + end; + end; + x := ValueOf(FLD_DOSETEXT); Responses.Update('INSTR', 1, x, x); + x := ValueOf(FLD_DRUG_ID); Responses.Update('DRUG', 1, x, ''); + x := ValueOf(FLD_DOSEFLDS); Responses.Update('DOSE', 1, x, ''); + x := ValueOf(FLD_STRENGTH); + // if outpt or inpt order with no total dose (i.e., topical) + if (not FInptDlg) or (ValueOf(FLD_TOTALDOSE) = '') + then Responses.Update('STRENGTH', 1, x, x); + // if no strength for dosage, use dispense drug name + if Length(x) = 0 then + begin + x := ValueOf(FLD_DRUG_NM); + if Length(x) > 0 then Responses.Update('NAME', 1, x, x); + end; + x := ValueOf(FLD_ROUTE_AB); + if Length(x) = 0 then x := ValueOf(FLD_ROUTE_NM); + if Length(ValueOf(FLD_ROUTE_ID)) > 0 + then Responses.Update('ROUTE', 1, ValueOf(FLD_ROUTE_ID), x) + else Responses.Update('ROUTE', 1, '', x); + x := ValueOf(FLD_SCHEDULE); Responses.Update('SCHEDULE', 1, x, x); // CQ:7297, 7534 + end; + end; {case TabDose.TabIndex} + DoseList.Free; + Responses.Update('URGENCY', 1, ValueOf(FLD_PRIOR_ID), ''); + Responses.Update('COMMENT', 1, TX_WPTYPE, ValueOf(FLD_COMMENT)); + + if Length(calStart.Text) > 0 then + Responses.Update('START', 1, calStart.Text, 'Start Date: ' + calStart.Text); //cla 7-17-03 + + x := ValueOf(FLD_STATEMENTS); + Responses.Update('STATEMENTS',1, TX_WPTYPE, x); + + + if FInptDlg then // inpatient orders + begin + Responses.Update('NOW', 1, ValueOf(FLD_NOW_ID), ValueOf(FLD_NOW_NM)); + end else + begin + x := OutpatientSig; Responses.Update('SIG', 1, TX_WPTYPE, x); + end; + memOrder.Text := Responses.OrderText; +end; + +{ complex dose ------------------------------------------------------------------------------ } + +{ General Functions - get & set cell values} + +procedure FindInCombo(const x: string; AComboBox: TORComboBox); +var + i, Found: Integer; +begin + with AComboBox do + begin + i := 0; + Found := -1; + while (i < Items.Count) and (Found < 0) do + begin + if CompareText(Copy(DisplayText[i], 1, Length(x)), x) = 0 then Found := i; + Inc(i); + end; {while} + if Found > -1 then + begin + ItemIndex := Found; + Application.ProcessMessages; + SelStart := 1; + SelLength := Length(Items[Found]); + end else + begin + Text := x; + SelStart := Length(x); + end; + end; {with AComboBox} +end; + +procedure TfrmODMedNVA.grdDosesExit(Sender: TObject); +begin + inherited; + UpdateRelated(FALSE); + RestoreDefaultButton; + RestoreCancelButton; +end; + +function TfrmODMedNVA.ValueOf(FieldID: Integer; ARow: Integer = -1): string; +var + y: string; + stmt: Integer; +{ Contents of cboDosage + DrugName^Strength^NF^TDose&Units&U/D&Noun&LDose&Drug^DoseText^CostText^MaxRefills + Contents of grid cells (Only the first tab piece for each cell is drawn) + Dosage DosageFields + RouteText IEN^RouteName^Abbreviation + Schedule (nothing) + Duration Duration^Units } +begin + Result := ''; + if ARow < 0 then // use single dose controls + begin + case FieldID of + FLD_DOSETEXT : with cboDosage do + if ItemIndex > -1 then Result := Uppercase(Piece(Items[ItemIndex], U, 5)) + else Result := Uppercase(Text); + FLD_LOCALDOSE : with cboDosage do + if ItemIndex > -1 then Result := Piece(Piece(Items[ItemIndex], U, 4), '&', 5) + else Result := Uppercase(Text); + FLD_STRENGTH : with cboDosage do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 2); + FLD_DRUG_ID : with cboDosage do + if ItemIndex > -1 then Result := Piece(Piece(Items[ItemIndex], U, 4), '&', 6); + FLD_DRUG_NM : with cboDosage do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 1); + FLD_DOSEFLDS : with cboDosage do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 4); + FLD_TOTALDOSE : with cboDosage do + if ItemIndex > -1 then Result := Piece(Piece(Items[ItemIndex], U, 4), '&', 1); + FLD_UNITNOUN : with cboDosage do + if ItemIndex > -1 then Result := Piece(Piece(Items[ItemIndex], U, 4), '&', 3) + ' ' + + Piece(Piece(Items[ItemIndex], U, 4), '&', 4); + FLD_ROUTE_ID : with cboRoute do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 1); + FLD_ROUTE_NM : with cboRoute do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 2) + else Result := Text; + FLD_ROUTE_AB : with cboRoute do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 3); + FLD_ROUTE_EX : with cboRoute do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 4); + FLD_SCHEDULE : begin + Result := UpperCase(cboSchedule.Text); + if chkPRN.Checked then Result := Result + ' PRN'; + if UpperCase(Copy(Result, Length(Result) - 6, Length(Result))) = 'PRN PRN' + then Result := Copy(Result, 1, Length(Result) - 4); + end; + FLD_SCHED_EX : begin + with cboSchedule do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 2); + if (Length(Result) > 0) and chkPRN.Checked then Result := Result + ' AS NEEDED'; + if UpperCase(Copy(Result, Length(Result) - 18, Length(Result))) = 'AS NEEDED AS NEEDED' + then Result := Copy(Result, 1, Length(Result) - 10); + end; + FLD_SCHED_TYP : with cboSchedule do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 3); + FLD_QTYDISP : with cboDosage do + begin + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 8); + if (Result = '') and (Items.Count > 0) then Result := Piece(Items[0], U, 8); + if Result <> '' + then Result := 'Qty (' + Result + ')' + else Result := 'Quantity'; + end; + + FLD_COMMENT : Result := memComment.Text; + + FLD_START : Result := FormatFMDateTime('mmm dd,yy',calStart.FMDateTime); + + FLD_STATEMENTS : with lbStatements do + for stmt := 0 to lbStatements.Items.Count-1 do + if(lbStatements.Checked[stmt]) then + begin + y := #13#10 + lbStatements.Items.Strings[stmt] + ' '; + Result := Result + y; + end; + + end; {case FieldID} + end; // use complex dose controls +end; + +function TfrmODMedNVA.ValueOfResponse(FieldID: Integer; AnInstance: Integer = 1): string; +var + x: string; +begin + case FieldID of + FLD_SCHEDULE : Result := Responses.IValueFor('SCHEDULE', AnInstance); + FLD_UNITNOUN : begin + x := Responses.IValueFor('DOSE', AnInstance); + Result := Piece(x, '&', 3) + ' ' + Piece(x, '&', 4); + end; + FLD_DOSEUNIT : begin + x := Responses.IValueFor('DOSE', AnInstance); + Result := Piece(x, '&', 3); + end; + FLD_DRUG_ID : Result := Responses.IValueFor('DRUG', AnInstance); + FLD_INSTRUCT : Result := Responses.IValueFor('INSTR', AnInstance); + FLD_SUPPLY : Result := Responses.IValueFor('SUPPLY', AnInstance); + FLD_QUANTITY : Result := Responses.IValueFor('QTY', AnInstance); + FLD_ROUTE_ID : Result := Responses.IValueFor('ROUTE', AnInstance); + FLD_EXPIRE : Result := Responses.IValueFor('DAYS', AnInstance); + FLD_ANDTHEN : Result := Responses.IValueFor('CONJ', AnInstance); + end; +end; + +procedure TfrmODMedNVA.UpdateStartExpires(const CurSchedule: string); +var + ShowText, Duration, ASchedule: string; + AdminTime: TFMDateTime; + Interval, PrnPos: Integer; +begin + if Length(CurSchedule)=0 then Exit; + ASchedule := Trim(CurSchedule); + {if (Pos('^',ASchedule)=0) then //GE CQ7506 + begin + PrnPos := Pos('PRN',ASchedule); + if (PrnPos > 1) and (CharAt(ASchedule,PrnPos-1) <> ';') then + Delete(ASchedule, PrnPos, Length(ASchedule)); + end } + if (Pos('^',ASchedule)>0) then + begin + PrnPos := Pos('PRN',ASchedule); + if (PrnPos > 1) and (CharAt(ASchedule,PrnPos-1)=' ') then + Delete(ASchedule, PrnPos-1, 4); + end; + ASchedule := Trim(ASchedule); + if Length(ASchedule)>0 then + LoadAdminInfo(ASchedule, txtMed.Tag, ShowText, AdminTime, Duration) + else Exit; + if AdminTime > 0 then + begin + ShowText := 'Expected First Dose: '; + Interval := Trunc(FMDateTimeToDateTime(AdminTime) - FMDateTimeToDateTime(FMToday)); + case Interval of + 0: ShowText := ShowText + 'TODAY ' + FormatFMDateTime('(mmm dd, yy) at hh:nn', AdminTime); + 1: ShowText := ShowText + 'TOMORROW ' + FormatFMDateTime('(mmm dd, yy) at hh:nn', AdminTime); + else ShowText := ShowText + FormatFMDateTime('mmm dd, yy at hh:nn', AdminTime); + end; + lblAdminTime.Caption := ShowText; + FAdminTimeLbl := lblAdminTime.Caption; + end + else lblAdminTime.Caption := ''; +end; + +procedure TfrmODMedNVA.UpdateRelated(DelayUpdate: Boolean = TRUE); +begin + timCheckChanges.Enabled := False; // turn off timer + if DelayUpdate + then timCheckChanges.Enabled := True // restart timer + else timCheckChangesTimer(Self); // otherwise call directly +end; + +procedure TfrmODMedNVA.timCheckChangesTimer(Sender: TObject); +const + UPD_NONE = 0; + UPD_QUANTITY = 1; + UPD_SUPPLY = 2; +var + CurUnits, CurSchedule, CurInstruct, CurDispDrug, CurDuration, TmpSchedule, x, x1: string; + CurScheduleIN, CurScheduleOut: string; + CurQuantity, CurSupply, i, pNum, j: Integer; + { LackQtyInfo,} SaveChanging: Boolean; +begin + inherited; + timCheckChanges.Enabled := False; + ControlChange(Self); + SaveChanging := Changing; + Changing := TRUE; + // don't allow Exit procedure so Changing gets reset appropriately + CurUnits := ''; + CurSchedule := ''; + CurDuration := ''; + // LackQtyInfo := False; + i := Responses.NextInstance('DOSE', 0); + while i > 0 do + begin + x := ValueOfResponse(FLD_DOSEUNIT, i); + // if x = '' then LackQtyInfo := TRUE; //StrToIntDef(x, 0) = 0 + CurUnits := CurUnits + x + U; + x := ValueOfResponse(FLD_SCHEDULE, i); + // if Length(x) = 0 then LackQtyInfo := TRUE; + CurScheduleOut := CurScheduleOut + x + U; + x1 := ValueOf(FLD_SEQUENCE,i); + if Length(x1)>0 then + begin + X1 := CharAt(X1,1); + CurScheduleIn := CurScheduleIn + x1 + ';' + x + U; + end + else + CurScheduleIn := CurScheduleIn + ';' + x + U; + x := ValueOfResponse(FLD_EXPIRE, i); + CurDuration := CurDuration + x + '~'; + x := ValueOfResponse(FLD_ANDTHEN, i); + CurDuration := CurDuration + x + U; + x := ValueOfResponse(FLD_DRUG_ID, i); + CurDispDrug := CurDispDrug + x + U; + x := ValueOfResponse(FLD_INSTRUCT, i); + CurInstruct := CurInstruct + x + U; + i := Responses.NextInstance('DOSE', i); + end; + + pNum := 1; + while Length( Piece(CurScheduleIn,U,pNum)) > 0 do + pNum := pNum + 1; + if Length(Piece(CurScheduleIn,U,pNum)) < 1 then + for j := 1 to pNum - 1 do + begin + if j = pNum -1 then + TmpSchedule := TmpSchedule + ';' + Piece(Piece(CurScheduleIn,U,j),';',2) + else + TmpSchedule := TmpSchedule + Piece(CurScheduleIn,U,j) + U + end; + CurScheduleIn := TmpSchedule; + CurQuantity := StrToIntDef(ValueOfResponse(FLD_QUANTITY) ,0); + CurSupply := StrToIntDef(ValueOfResponse(FLD_SUPPLY) ,0); + if FInptDlg then + begin + CurSchedule := CurScheduleIn; + if Pos('^',CurSchedule)>0 then + begin + if Pos('PRN',Piece(CurSchedule,'^',1))>0 then + if lblAdminTime.Visible then + lblAdminTime.Caption := ''; + end; + if CurSchedule <> FLastSchedule then UpdateStartExpires(CurSchedule); + if Responses.EventType in ['A','D','T','M','O'] then lblAdminTime.Visible := False; + end; + if not FInptDlg then + begin + CurSchedule := CurScheduleOut; + end; + + FLastUnits := CurUnits; + FLastSchedule := CurSchedule; + FLastDispDrug := CurDispDrug; + FLastQuantity := CurQuantity; + FLastSupply := CurSupply; + if (ActiveControl <> nil) and (ActiveControl.Parent <> cboDosage) + then cboDosage.Text := Piece(cboDosage.Text, TAB, 1); + Changing := SaveChanging; + if FUpdated then ControlChange(Self); +end; + +procedure TfrmODMedNVA.cmdAcceptClick(Sender: TObject); +begin + cmdAccept.SetFocus; + inherited; +end; +procedure TfrmODMedNVA.CheckDecimal(var AStr: string); +var + Number: double; + DUName,TabletNum,tempStr: string; + ToWord: string; + ie,code: integer; +begin + ToWord := ''; + tempStr := AStr; + TabletNum := Piece(AStr,' ',1); + if CharAt(TabletNum,1)='.' then + begin + if CharAt(TabletNum,2) in ['0','1','2','3','4','5','6','7','8','9'] then + begin + TabletNum := '0' + TabletNum; + AStr := '0' + AStr; + end; + end; + DUName := Piece(AStr,' ',2); + if Pos('TABLET',upperCase(DUName))= 0 then + Exit; + if (Length(TabletNum)>0) and (Length(DUName)>0) then + begin + if CharAt(TabletNum,1) <> '0' then + begin + Val(TabletNum, ie, code); + if ie = 0 then begin end; + if code <> 0 then + Exit; + end; + try + begin + Number := StrToFloat(TabletNum); + if Number = 0.5 then + ToWord := 'ONE-HALF'; + if ( Number >= 0.333 ) and ( Number <= 0.334 ) then + ToWord := 'ONE-THIRD'; + if Number = 0.25 then + ToWord := 'ONE-FOURTH'; + if ( Number >= 0.66 ) and ( Number <= 0.67 ) then + ToWord := 'TWO-THIRDS'; + if Number = 0.75 then + ToWord := 'THREE-FOURTHS'; + if Number = 1 then + ToWord := 'ONE'; + if Number = 2 then + ToWord := 'TWO'; + if Number = 3 then + ToWord := 'THREE'; + if Number = 4 then + ToWord := 'FOUR'; + if Number = 5 then + ToWord := 'FIVE'; + if Number = 6 then + ToWord := 'SIX'; + if (Length(ToWord) > 0) then + AStr := ToWord + ' ' + DUName; + end + except + on EConvertError do AStr := tempStr; + end; + end; +end; + +procedure TfrmODMedNVA.chkPRNClick(Sender: TObject); +var + tempSch: string; + PRNPos: integer; +begin + inherited; + {if chkPRN.Checked then lblAdminTime.Caption := '' + else + begin + lblAdminTime.Caption := FAdminTimeLbl; + end; + ControlChange(Self); + } + if chkPRN.Checked then + begin + lblAdminTime.Caption := ''; + PrnPos := Pos('PRN',cboSchedule.Text); + if (PrnPos < 1) then + UpdateStartExpires(cboSchedule.Text + ' PRN'); + end + else + begin + if Length(Trim(cboSchedule.Text))>0 then + begin + tempSch := ';'+Trim(cboSchedule.Text); + UpdateStartExpires(tempSch); + end; + lblAdminTime.Caption := FAdminTimeLbl; + + end; + ControlChange(Self); +end; + +procedure TfrmODMedNVA.grdDosesKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + case Key of + VK_ESCAPE: + begin + ActiveControl := FindNextControl(Sender as TWinControl, False, True, False); //Previous control + Key := 0; + end; + VK_TAB: + begin + if ssShift in Shift then + begin + ActiveControl := tabDose; //Previeous control + Key := 0; + end + else if ssCtrl in Shift then + begin + ActiveControl := memComment; + Key := 0; + end; + end; + end; +end; + +procedure TfrmODMedNVA.grdDosesEnter(Sender: TObject); +begin + inherited; + DisableDefaultButton(self); + DisableCancelButton(self); +end; + +function TfrmODMedNVA.DisableCancelButton(Control: TWinControl): boolean; +var + i: integer; +begin + if (Control is TButton) and TButton(Control).Cancel then begin + result := True; + FDisabledCancelButton := TButton(Control); + TButton(Control).Cancel := False; + end else begin + result := False; + for i := 0 to Control.ControlCount-1 do + if (Control.Controls[i] is TWinControl) then + if DisableCancelButton(TWinControl(Control.Controls[i])) then begin + result := True; + break; + end; + end; +end; + +function TfrmODMedNVA.DisableDefaultButton(Control: TWinControl): boolean; +var + i: integer; +begin + if (Control is TButton) and TButton(Control).Default then begin + result := True; + FDisabledDefaultButton := TButton(Control); + TButton(Control).Default := False; + end else begin + result := False; + for i := 0 to Control.ControlCount-1 do + if (Control.Controls[i] is TWinControl) then + if DisableDefaultButton(TWinControl(Control.Controls[i])) then begin + result := True; + break; + end; + end; +end; + +procedure TfrmODMedNVA.RestoreCancelButton; +begin + if Assigned(FDisabledCancelButton) then begin + FDisabledCancelButton.Cancel := True; + FDisabledCancelButton := nil; + end; +end; + +procedure TfrmODMedNVA.RestoreDefaultButton; +begin + if Assigned(FDisabledDefaultButton) then begin + FDisabledDefaultButton.Default := True; + FDisabledDefaultButton := nil; + end; +end; + +procedure TfrmODMedNVA.pnlMessageEnter(Sender: TObject); +begin + inherited; + DisableDefaultButton(self); + DisableCancelButton(self); +end; + +procedure TfrmODMedNVA.pnlMessageExit(Sender: TObject); +begin + inherited; + RestoreDefaultButton; + RestoreCancelButton; +end; + +procedure TfrmODMedNVA.memMessageKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_RETURN) or (Key = VK_ESCAPE) then + begin + Perform(WM_NEXTDLGCTL, 0, 0); + Key := 0; + end; +end; + +procedure TfrmODMedNVA.FormResize(Sender: TObject); +begin + inherited; + pnlFields.Height := cmdAccept.Top - 4 - pnlFields.Top; +end; + +procedure TfrmODMedNVA.lstQuickData(Sender: TObject; Item: TListItem); +var + x: string; +begin + x := FQuickItems[Item.Index]; + Item.Caption := Piece(x, U, 2); + Item.Data := Pointer(StrToIntDef(Piece(x, U, 1), 0)); +end; + +procedure TfrmODMedNVA.LoadOTCStatements(Dest: TStrings); +var tmplst: TStringList; + s: string; + i :Integer; +begin + tmplst := TStringList.Create; + tmplst.Clear; + tCallV(tmplst, 'ORWPS REASON', [nil]); + if tmplst.Count > 0 then + begin + // sort := tmplst.Strings[0]; + for i := 0 to tmplst.Count-1 do + begin + s:= tmplst.Strings[i]; + tmplst.Strings[i] := Piece(s,U,2); + end; + Dest.Assign(tmplst); + end; + end; + +function TfrmODMedNVA.FindQuickOrder(const x: string): Integer; +var + i: Integer; +begin + Result := -1; + if x = '' then Exit; + for i := 0 to Pred(FQuickItems.Count) do + begin + if (Result > -1) or (FQuickItems[i] = '') then Break; + if AnsiCompareText(x, Copy(Piece(FQuickItems[i],'^',2), 1, Length(x))) = 0 then Result := i; + end; +end; +procedure TfrmODMedNVA.lbStatementsClickCheck(Sender: TObject; + Index: Integer); +begin + inherited; + ControlChange(self); +end; + +procedure TfrmODMedNVA.lstChange(Sender: TObject; Item: TListItem; + Change: TItemChange); +begin + inherited; + btnSelect.Enabled := (lstAll.ItemIndex > -1) or + ((lstQuick.ItemIndex > -1) and + (Assigned(lstQuick.Items[lstQuick.ItemIndex].Data)) and + (Integer(lstQuick.Selected.Data) > 0)) ; + if (btnSelect.Enabled) and (FRemoveText) then + txtMed.Text := ''; +end; + +procedure TfrmODMedNVA.FormKeyPress(Sender: TObject; var Key: Char); +begin + if (Key = #13) and (ActiveControl = txtMed) then + Key := #0 //Don't let the base class turn it into a forward tab! + else + inherited; +end; + +function OIForNVA(AnIEN: Integer; ForNonVAMed: Boolean; HavePI: Boolean; PKIActive: Boolean): TStrings; +var + PtType: Char; + NeedPI: Char; + IsPKIActive: Char; +begin + if HavePI then NeedPI := 'Y' else NeedPI := 'N'; + if ForNonVAMed then PtType := 'X' else PtType := 'O'; + if PKIActive then IsPKIActive := 'Y' else IsPKIActive := 'N'; + CallV('ORWDPS2 OISLCT', [AnIEN, PtType, Patient.DFN, NeedPI, IsPKIActive]); + Result := RPCBrokerV.Results; +end; + +procedure CheckAuthForNVAMeds(var x: string); +begin + x := Piece(sCallV('ORWDPS32 AUTHNVA', [Encounter.Provider]), U, 2); +end; + +function TfrmODMedNVA.isUniqueQuickOrder(iText: string): Boolean; +var + counter,i: Integer; +begin + counter := 0; + Result := False; + if iText = '' then Exit; + for i := 0 to FQuickItems.Count-1 do + if AnsiCompareText(iText, Copy(Piece(FQuickItems[i],'^',2), 1, Length(iText))) = 0 then + Inc(counter); //Found a Match + Result := counter = 1; +end; + +procedure TfrmODMedNVA.DispOrderMessage(const AMessage: string); +begin + if ContainsVisibleChar(AMessage) then + begin + image1.Visible := True; + memDrugMsg.Visible := True; + image1.Picture.Icon.Handle := LoadIcon(0, IDI_ASTERISK); + memDrugMsg.Lines.Clear; + memDrugMsg.Lines.SetText(PChar(AMessage)); + if fShrinkDrugMsg then + begin + pnlBottom.Height := pnlBottom.Height + memDrugMsg.Height + 2; + fShrinkDrugMsg := False; + end; + end else + begin + image1.Visible := False; + memDrugMsg.Visible := False; + if not fShrinkDrugMsg then + // begin + // pnlBottom.Height := pnlBottom.Height - memDrugMsg.Height - 2; + fShrinkDrugMsg := True; + // end; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fODMedOIFA.dfm b/CPRS-Chart/Orders/fODMedOIFA.dfm new file mode 100644 index 0000000..70e76ea --- /dev/null +++ b/CPRS-Chart/Orders/fODMedOIFA.dfm @@ -0,0 +1,84 @@ +object frmODMedOIFA: TfrmODMedOIFA + Left = 0 + Top = 0 + Width = 313 + Height = 205 + Caption = 'Formulary Alternatives' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsStayOnTop + OldCreateOrder = True + Position = poMainFormCenter + OnClose = FormClose + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 0 + Top = 0 + Width = 305 + Height = 13 + Align = alTop + Caption = 'The selected drug is not in the formulary. Alternatives are:' + end + object Label2: TStaticText + Left = 0 + Top = 134 + Width = 305 + Height = 17 + Align = alBottom + Caption = 'Do you wish to use the selected alternative instead?' + TabOrder = 1 + end + object lstFormAlt: TORListBox + Left = 0 + Top = 13 + Width = 305 + Height = 121 + Align = alClient + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = lstFormAltClick + Caption = 'The selected drug is not in the formulary. Alternatives are:' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object btnPanel: TPanel + Left = 0 + Top = 151 + Width = 305 + Height = 27 + Align = alBottom + BevelOuter = bvNone + TabOrder = 3 + object cmdYes: TButton + Left = 74 + Top = 3 + Width = 72 + Height = 21 + Caption = 'Yes' + Default = True + Enabled = False + TabOrder = 0 + OnClick = cmdYesClick + end + object cmdNo: TButton + Left = 162 + Top = 3 + Width = 72 + Height = 21 + Cancel = True + Caption = 'No' + TabOrder = 1 + OnClick = cmdNoClick + end + end +end diff --git a/CPRS-Chart/Orders/fODMedOIFA.pas b/CPRS-Chart/Orders/fODMedOIFA.pas new file mode 100644 index 0000000..5e020ab --- /dev/null +++ b/CPRS-Chart/Orders/fODMedOIFA.pas @@ -0,0 +1,148 @@ +unit fODMedOIFA; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ExtCtrls, fAutoSz; + +type + TfrmODMedOIFA = class(TForm) + Label1: TLabel; + lstFormAlt: TORListBox; + Label2: TStaticText; + btnPanel: TPanel; + cmdYes: TButton; + cmdNo: TButton; + procedure FormCreate(Sender: TObject); + procedure cmdYesClick(Sender: TObject); + procedure cmdNoClick(Sender: TObject); + procedure lstFormAltClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + FSelected: string; + end; + +procedure CheckFormularyOI(var AnIEN: Integer; var AName: string; ForInpatient: Boolean); +procedure CheckFormularyDose(DispDrug: Integer; var OI: Integer; var OIName: string; + ForInpatient: Boolean); + +implementation + +{$R *.DFM} + +uses ORFn, rODMeds, rMisc; + +procedure CheckFormularyOI(var AnIEN: Integer; var AName: string; ForInpatient: Boolean); + +const + TX_NO_FORM_ALT = 'This drug is not in the formulary!' + CRLF + + 'There are no formulary alternatives entered for this item.' + CRLF + + 'Please consult with your pharmacy before ordering this item.'; + TC_NO_FORM_ALT = 'No Formulary Alternatives'; + +var + frmODMedOIFA: TfrmODMedOIFA; + FormAltList: TStringList; +begin + FormAltList := TStringList.Create; + try + LoadFormularyAltOI(FormAltList, AnIEN, ForInpatient); + if FormAltList.Count > 0 then + begin + frmODMedOIFA := TfrmODMedOIFA.Create(Application); + try + ResizeFormToFont(TForm(frmODMedOIFA)); + with frmODMedOIFA do + begin + lstFormAlt.Items.Assign(FormAltList); + ShowModal; + if Length(FSelected) > 0 then + begin + AnIEN := StrToIntDef(Piece(FSelected, U, 1), 0); + AName := Piece(FSelected, U, 2); + end; + end; {with frmODMedOIFA} + finally + frmODMedOIFA.Release; + end; {frmODMedOIFA} + end + else messageDlg(TX_NO_FORM_ALT,mtWarning, [mbOK],0); + finally + FormAltList.Free; + end; {FormAltList} +end; + +procedure CheckFormularyDose(DispDrug: Integer; var OI: Integer; var OIName: string; + ForInpatient: Boolean); +var + frmODMedOIFA: TfrmODMedOIFA; + FormAltList: TStringList; +begin + FormAltList := TStringList.Create; + try + LoadFormularyAltDose(FormAltList, DispDrug, OI, ForInpatient); + if FormAltList.Count > 0 then + begin + frmODMedOIFA := TfrmODMedOIFA.Create(Application); + try + ResizeFormToFont(TForm(frmODMedOIFA)); + with frmODMedOIFA do + begin + lstFormAlt.Items.Assign(FormAltList); + ShowModal; + if Length(FSelected) > 0 then + begin + OI := StrToIntDef(Piece(FSelected, U, 1), 0); + OIName := Piece(FSelected, U, 2); + end; + end; {with frmODMedOIFA} + finally + frmODMedOIFA.Release; + end; {frmODMedOIFA} + end; {if FormAltList} + finally + FormAltList.Free; + end; {FormAltList} +end; + +procedure TfrmODMedOIFA.FormCreate(Sender: TObject); +begin + inherited; + FSelected := ''; +end; + +procedure TfrmODMedOIFA.lstFormAltClick(Sender: TObject); +begin + inherited; + if lstFormAlt.ItemIndex > -1 then cmdYes.Enabled := True; +end; + +procedure TfrmODMedOIFA.cmdYesClick(Sender: TObject); +begin + inherited; + with lstFormAlt do if ItemIndex > -1 then FSelected := Items[ItemIndex]; + Close; +end; + +procedure TfrmODMedOIFA.cmdNoClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmODMedOIFA.FormShow(Sender: TObject); +begin + inherited; + SetFormPosition(Self); +end; + +procedure TfrmODMedOIFA.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + SaveUserBounds(Self); +end; + +end. diff --git a/CPRS-Chart/Orders/fODMedOut.dfm b/CPRS-Chart/Orders/fODMedOut.dfm new file mode 100644 index 0000000..d8beca2 --- /dev/null +++ b/CPRS-Chart/Orders/fODMedOut.dfm @@ -0,0 +1,435 @@ +inherited frmODMedOut: TfrmODMedOut + Left = 427 + Top = 145 + Height = 316 + Caption = 'Outpatient Medication Order' + PixelsPerInch = 96 + TextHeight = 13 + object lblMedication: TLabel [0] + Left = 6 + Top = 4 + Width = 52 + Height = 13 + Caption = 'Medication' + end + object lblDosage: TLabel [1] + Left = 202 + Top = 45 + Width = 28 + Height = 13 + Caption = 'TAKE' + end + object lblRoute: TLabel [2] + Left = 314 + Top = 45 + Width = 29 + Height = 13 + Caption = 'Route' + end + object lblSchedule: TLabel [3] + Left = 392 + Top = 45 + Width = 45 + Height = 13 + Caption = 'Schedule' + end + object lblDispense: TLabel [4] + Left = 6 + Top = 45 + Width = 70 + Height = 13 + Caption = 'Dispense Drug' + end + object Bevel1: TBevel [5] + Left = 192 + Top = 0 + Width = 4 + Height = 227 + end + object lblQuantity: TLabel [6] + Left = 470 + Top = 45 + Width = 39 + Height = 13 + Caption = 'Quantity' + end + object lblPickup: TLabel [7] + Left = 202 + Top = 142 + Width = 38 + Height = 13 + Caption = 'Pick Up' + end + object lblSC: TLabel [8] + Left = 314 + Top = 142 + Width = 43 + Height = 13 + Caption = 'SC? Y/N' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lblRefills: TLabel [9] + Left = 470 + Top = 91 + Width = 28 + Height = 13 + Caption = 'Refills' + end + object lblComment: TLabel [10] + Left = 202 + Top = 183 + Width = 49 + Height = 13 + Caption = 'Comments' + end + object lblPriority: TLabel [11] + Left = 392 + Top = 142 + Width = 31 + Height = 13 + Caption = 'Priority' + end + object btnUnits: TSpeedButton [12] + Left = 248 + Top = 61 + Width = 63 + Height = 15 + Caption = 'TABLET(S)' + Flat = True + Glyph.Data = { + AE000000424DAE0000000000000076000000280000000E000000070000000100 + 0400000000003800000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 330033333333333333003330333333733300330003333F87330030000033FFFF + F30033333333333333003333333333333300} + Layout = blGlyphRight + NumGlyphs = 2 + Spacing = 0 + OnClick = btnUnitsClick + end + object lblSIG: TLabel [13] + Left = 314 + Top = 4 + Width = 18 + Height = 13 + Caption = 'SIG' + Visible = False + end + object memComplex: TMemo [14] + Left = 202 + Top = 45 + Width = 262 + Height = 91 + Color = clBtnFace + TabOrder = 19 + Visible = False + end + object txtSIG: TCaptionEdit [15] + Left = 314 + Top = 18 + Width = 200 + Height = 21 + Color = clInfoBk + TabOrder = 18 + Visible = False + Caption = 'SIG' + end + object cboDispense: TORComboBox [16] + Left = 6 + Top = 59 + Width = 180 + Height = 168 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + Pieces = '2,4,3' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabPositions = '30,33' + TabOrder = 2 + OnChange = ControlChange + OnExit = cboDispenseExit + OnMouseClick = cboDispenseMouseClick + CharsNeedMatch = 1 + end + object cboMedication: TORComboBox [17] + Left = 6 + Top = 18 + Width = 180 + Height = 208 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 11 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnChange = ControlChange + OnExit = cboMedicationSelect + OnMouseClick = cboMedicationSelect + OnNeedData = cboMedicationNeedData + CharsNeedMatch = 1 + end + inherited memOrder: TCaptionMemo + Top = 235 + TabOrder = 15 + end + inherited cmdAccept: TButton + Top = 235 + TabOrder = 13 + end + object cboRoute: TORComboBox [20] + Left = 314 + Top = 59 + Width = 72 + Height = 77 + 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 = 4 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboSchedule: TORComboBox [21] + Left = 392 + Top = 59 + Width = 72 + Height = 77 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 5 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object memComments: TMemo [22] + Left = 202 + Top = 197 + Width = 311 + Height = 32 + ScrollBars = ssVertical + TabOrder = 12 + OnChange = ControlChange + OnEnter = memCommentsEnter + end + object cboPriority: TORComboBox [23] + Left = 392 + Top = 156 + Width = 72 + Height = 21 + Style = orcsDropDown + 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 = 11 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboMedAlt: TORComboBox [24] + Left = 6 + Top = 18 + Width = 180 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 11 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + Visible = False + OnChange = ControlChange + OnExit = cboMedicationSelect + OnMouseClick = cboMedicationSelect + OnNeedData = cboMedicationNeedData + CharsNeedMatch = 1 + end + object cboInstructions: TORComboBox [25] + Left = 203 + Top = 59 + Width = 45 + Height = 77 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 80 + Sorted = False + SynonymChars = '<>' + TabOrder = 3 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboPickup: TORComboBox [26] + Left = 202 + Top = 156 + Width = 106 + Height = 21 + Style = orcsDropDown + 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 = 9 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboSC: TORComboBox [27] + Left = 314 + Top = 156 + Width = 72 + Height = 21 + Style = orcsDropDown + 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 = 10 + OnChange = ControlChange + OnEnter = cboSCEnter + CharsNeedMatch = 1 + end + object txtQuantity: TCaptionEdit [28] + Left = 470 + Top = 59 + Width = 44 + Height = 21 + TabOrder = 6 + OnChange = ControlChange + OnEnter = txtQuantityEnter + Caption = 'Quantity' + end + object txtRefills: TCaptionEdit [29] + Left = 470 + Top = 105 + Width = 31 + Height = 21 + TabOrder = 7 + Text = '0' + OnChange = ControlChange + Caption = 'Refills' + end + object spnRefills: TUpDown [30] + Left = 501 + Top = 105 + Width = 15 + Height = 21 + Associate = txtRefills + Min = 0 + Max = 11 + Position = 0 + TabOrder = 8 + Wrap = False + end + object cmdComplex: TButton [31] + Left = 202 + Top = 18 + Width = 106 + Height = 21 + Caption = 'Complex Dose...' + TabOrder = 17 + OnClick = cmdComplexClick + end + inherited cmdQuit: TButton + Top = 262 + TabOrder = 14 + end + inherited pnlMessage: TPanel + Left = 6 + Top = 190 + TabOrder = 16 + end + object popUnits: TPopupMenu + AutoHotkeys = maManual + AutoPopup = False + Left = 271 + Top = 76 + end +end diff --git a/CPRS-Chart/Orders/fODMedOut.pas b/CPRS-Chart/Orders/fODMedOut.pas new file mode 100644 index 0000000..ed59d22 --- /dev/null +++ b/CPRS-Chart/Orders/fODMedOut.pas @@ -0,0 +1,619 @@ +unit fODMedOut; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, ORCtrls, StdCtrls, ORFn, ExtCtrls, uConst, ComCtrls, uCore, Mask, + Menus, Buttons; + +type + TfrmODMedOut = class(TfrmODBase) + lblMedication: TLabel; + cboMedication: TORComboBox; + lblDosage: TLabel; + lblRoute: TLabel; + cboRoute: TORComboBox; + lblSchedule: TLabel; + cboSchedule: TORComboBox; + lblDispense: TLabel; + cboDispense: TORComboBox; + memComments: TMemo; + cboPriority: TORComboBox; + Bevel1: TBevel; + cboMedAlt: TORComboBox; + cboInstructions: TORComboBox; + lblQuantity: TLabel; + cboPickup: TORComboBox; + lblPickup: TLabel; + cboSC: TORComboBox; + lblSC: TLabel; + lblRefills: TLabel; + txtQuantity: TCaptionEdit; + lblComment: TLabel; + lblPriority: TLabel; + txtRefills: TCaptionEdit; + spnRefills: TUpDown; + cmdComplex: TButton; + btnUnits: TSpeedButton; + txtSIG: TCaptionEdit; + lblSIG: TLabel; + popUnits: TPopupMenu; + memComplex: TMemo; + procedure cboMedicationNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); + procedure cboMedicationSelect(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure cboDispenseExit(Sender: TObject); + procedure cboDispenseMouseClick(Sender: TObject); + procedure cboSCEnter(Sender: TObject); + procedure txtQuantityEnter(Sender: TObject); + procedure btnUnitsClick(Sender: TObject); + procedure cmdComplexClick(Sender: TObject); + procedure memCommentsEnter(Sender: TObject); + private + { Private declarations } + FLastDrug: Integer; + FLastMedID: string; + FDispenseMsg: string; + FMedCombo: TORComboBox; + procedure CheckFormAlt; + procedure ResetOnMedChange; + procedure SetAskSC; + procedure SetAltCombo; + procedure SetInstructions; + procedure SetOnOISelect; + procedure SetMaxRefills; + procedure SetupNouns; + procedure SetComplex; + procedure SetSimple; + procedure UnitClick(Sender: TObject); + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + end; + +implementation + +{$R *.DFM} + +uses rOrders, rODBase, fODMedFA, fODMedComplex; + +const + REFILLS_DFLT = '0'; + REFILLS_MAX = 11; + + TX_NO_MED = 'Medication must be entered.'; + TX_NO_DOSE = 'Instructions must be entered.'; + TX_NO_AMPER = 'Instructions may not contain the ampersand (&) character.'; + TX_NO_ROUTE = 'Route must be entered.'; + TX_NF_ROUTE = 'Route not found in the Medication Routes file.'; + TX_NO_SCHED = 'Schedule must be entered.'; + TX_NO_PICK = 'A method for picking up the medication must be entered.'; + TX_RNG_REFILL = 'The number of refills must be in the range of 0 through '; + TX_SCH_QUOTE = 'Schedule must not have quotemarks in it.'; + TX_SCH_MINUS = 'Schedule must not have a dash at the beginning.'; + TX_SCH_SPACE = 'Schedule must have only one space in it.'; + TX_SCH_LEN = 'Schedule must be less than 70 characters.'; + TX_SCH_PRN = 'Schedule cannot include PRN - use Comments to enter PRN.'; + TX_SCH_ZERO = 'Schedule cannot be Q0'; + TX_SCH_LSP = 'Schedule may not have leading spaces.'; + TX_SCH_NS = 'Unable to resolve non-standard schedule.'; + TX_OUTPT_IV = 'This patient has not been admitted. Only IV orders may be entered.'; + TX_QTY_NV = 'Unable to validate quantity.'; + TX_QTY_MAIL = 'Quantity for mailed items must be a whole number.'; + + +{ TfrmODBase common methods } + +procedure TfrmODMedOut.FormCreate(Sender: TObject); +const + TC_RESTRICT = 'Ordering Restrictions'; +var + Restriction: string; +begin + inherited; + AllowQuickOrder := True; + CheckAuthForMeds(Restriction); + if Length(Restriction) > 0 then + begin + InfoBox(Restriction, TC_RESTRICT, MB_OK); + Close; + Exit; + end; + FillerID := 'PSO'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Dialog := 'PSO OERR'; // loads formatting info + StatusText('Loading Default Values'); + CtrlInits.LoadDefaults(ODForMedOut); // ODForMedOut returns TStrings with defaults + InitDialog; + CtrlInits.SetControl(cboPickup, 'Pickup'); // do only once, so don't do in InitDialog + PreserveControl(cboPickup); +end; + +procedure TfrmODMedOut.InitDialog; +begin + inherited; + FLastDrug := 0; + FLastMedID := ''; + FDispenseMsg := ''; + FMedCombo := cboMedication; // this must be before SetControl(cboMedication) + with CtrlInits do + begin + SetControl(cboMedication, 'ShortList'); + cboMedication.InsertSeparator; + //SetControl(cboMedAlt, 'ShortList'); can't do this since it calls InitLongList + SetControl(cboSchedule, 'Schedules'); + SetControl(cboPriority, 'Priorities'); + //SetControl(cboPickup, 'Pickup'); + SetControl(cboSC, 'SCStatus'); + end; + SetAskSC; + StatusText('Retrieving List of Medications'); + cboMedAlt.Visible := False; + cboMedication.Visible := True; + cboMedication.InitLongList(''); + ActiveControl := cboMedication; //SetFocusedControl(FMedCombo); + SetSimple; + StatusText(''); +end; + +procedure TfrmODMedOut.SetupDialog(OrderAction: Integer; const ID: string); +var + AnInstr: string; +begin + inherited; + if OrderAction in [ORDER_COPY, ORDER_EDIT] then Responses.Remove('START', 1); + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do + begin + Changing := True; + SetControl(cboMedication, 'ORDERABLE', 1); + ResetOnMedChange; + SetOnOISelect; + SetAltCombo; + //cboMedicationSelect(Self); + SetControl(cboDispense, 'DRUG', 1); + SetInstructions; + SetControl(txtQuantity, 'QTY', 1); + SetControl(txtRefills, 'REFILLS', 1); + spnRefills.Position := StrToIntDef(txtRefills.Text, 0); + SetControl(cboPickup, 'PICKUP', 1); + SetControl(memComments, 'COMMENT', 1); + SetControl(cboPriority, 'URGENCY', 1); + { prevent the SIG from being part of the comments on pre-CPRS prescriptions } + if (OrderAction in [ORDER_COPY, ORDER_EDIT]) and (cboInstructions.Text = '') then + begin + AnInstr := TextForOrder(ID); //'SIG: ' + memComments.Text; + OrderMessage(AnInstr); + lblSIG.Visible := True; + txtSIG.Visible := True; + txtSIG.Text := memComments.Text; + memComments.Clear; + end; + { can't edit the orderable item for a med order that has been released } + if (OrderAction = ORDER_EDIT) and OrderIsReleased(EditOrder) + then FMedCombo.Enabled := False; + Changing := False; + ControlChange(Self); + end; + if OrderAction <> ORDER_EDIT then SetFocusedControl(FMedCombo); +end; + +procedure TfrmODMedOut.Validate(var AnErrMsg: string); +var + Sched: Integer; + RouteID, RouteAbbr: string; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + inherited; + if Length(cboMedAlt.Text) = 0 then SetError(TX_NO_MED); + // if memComplex is Visible, then the dosage fields were validated in fMedComplex + if memComplex.Visible = False then + begin + if Length(cboInstructions.Text) = 0 then SetError(TX_NO_DOSE); + if Pos('&', cboInstructions.Text) > 0 then SetError(TX_NO_AMPER); + if (Length(cboRoute.Text) = 0) and (not MedIsSupply(cboMedAlt.ItemIEN)) + then SetError(TX_NO_ROUTE); + if (Length(cboRoute.Text) > 0) and (cboRoute.ItemIndex < 0) then + begin + LookupRoute(cboRoute.Text, RouteID, RouteAbbr); + if RouteID = '0' + then SetError(TX_NF_ROUTE) + else Responses.Update('ROUTE', 1, RouteID, RouteAbbr); + end; + if Length(cboSchedule.Text) = 0 then SetError(TX_NO_SCHED); + end; + if cboPickup.ItemID = '' then SetError(TX_NO_PICK); + if StrToIntDef(txtRefills.Text, 99) > spnRefills.Max + then SetError(TX_RNG_REFILL + IntToStr(spnRefills.Max)); + with cboSchedule do if Length(Text) > 0 then + begin + Sched := ValidSchedule(Text); + if Sched = -1 then + begin + if Pos('"', Text) > 0 then SetError(TX_SCH_QUOTE); + if Copy(Text, 1, 1) = '-' then SetError(TX_SCH_MINUS); + if Pos(' ', Copy(Text, Pos(' ', Text) + 1, 999)) > 0 then SetError(TX_SCH_SPACE); + if Length(Text) > 70 then SetError(TX_SCH_LEN); + if (Pos('P RN', Text) > 0) or (Pos('PR N', Text) > 0) then SetError(TX_SCH_PRN); + if Pos('Q0', Text) > 0 then SetError(TX_SCH_ZERO); + if TrimLeft(Text) <> Text then SetError(TX_SCH_LSP); + end; + if Sched = 0 then SetError(TX_SCH_NS); + end; + with txtQuantity do if Length(Text) > 0 then + begin + if not ValidQuantity(Text) then SetError(TX_QTY_NV); + //if (cboPickup.ItemID = 'M') and (IntToStr(StrToIntDef(Text,-1)) <> Text) + // then SetError(TX_QTY_MAIL); + end; +end; + +{ cboMedication methods } + +procedure TfrmODMedOut.ResetOnMedChange; +begin + ClearControl(cboDispense); + ClearControl(cboInstructions); + btnUnits.Caption := ''; + ResetControl(cboRoute); + ResetControl(cboSchedule); + ClearControl(txtQuantity); + txtRefills.Text := REFILLS_DFLT; + spnRefills.Max := REFILLS_MAX; + ClearControl(memComments); + ClearControl(memOrder); +end; + +procedure TfrmODMedOut.SetAltCombo; +begin + with cboMedication do + begin + FMedCombo := cboMedAlt; + if cboMedAlt.Items.Count = 0 then CtrlInits.SetListOnly(cboMedAlt, 'ShortList'); + cboMedAlt.SetExactByIEN(ItemIEN, TrimRight(Piece(Text, '<', 1))); + cboMedication.Visible := False; + cboMedAlt.Visible := True; + end; +end; + +procedure TfrmODMedOut.SetOnOISelect; +begin + with CtrlInits do + begin + FLastMedID := FMedCombo.ItemID; + LoadOrderItem(OIForMedOut(FMedCombo.ItemIEN)); + SetControl(cboDispense, 'Dispense'); + if cboDispense.Items.Count = 1 then cboDispense.ItemIndex := 0; + lblDosage.Caption := DefaultText('Verb'); + if lblDosage.Caption = '' then lblDosage.Caption := 'Amount'; + SetControl(cboInstructions, 'Instruct'); + SetupNouns; + SetControl(cboRoute, 'Route'); + if cboRoute.Items.Count = 1 then cboRoute.ItemIndex := 0; + if DefaultText('DefSched') <> '' then cboSchedule.SelectByID(DefaultText('DefSched')); + OrderMessage(TextOf('Message')); + end; +end; + +procedure TfrmODMedOut.cboMedicationNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +{ retrieves a subset of inpatient medication orderable items } +begin + inherited; + FMedCombo.ForDataUse(SubSetOfOrderItems(StartFrom, Direction, 'S.O RX')); +end; + +procedure TfrmODMedOut.cboMedicationSelect(Sender: TObject); +{ sets related controls whenever orderable item changes (MouseClick or Exit) } +begin + inherited; + with FMedCombo do + begin + if ItemID <> FLastMedID then FLastMedID := ItemID else Exit; + Changing := True; + if Sender <> Self then Responses.Clear; // Sender=Self when called from SetupDialog + ResetOnMedChange; + if CharAt(ItemID, 1) = 'Q' then + begin + Responses.QuickOrder := ExtractInteger(ItemID); + Responses.SetControl(FMedCombo, 'ORDERABLE', 1); + end; + if ItemIEN > 0 then SetOnOISelect; + end; + with Responses do if QuickOrder > 0 then + begin + SetControl(FMedCombo, 'ORDERABLE', 1); + SetControl(cboDispense, 'DRUG', 1); + SetInstructions; + SetControl(txtQuantity, 'QTY', 1); + SetControl(txtRefills, 'REFILLS', 1); + spnRefills.Position := StrToIntDef(txtRefills.Text, 0); + SetControl(cboPickup, 'PICKUP', 1); + SetControl(memComments, 'COMMENT', 1); + SetControl(cboPriority, 'URGENCY', 1); + end; + Changing := False; + ControlChange(Self); + if FMedCombo = cboMedication then SetAltCombo; + // if the Dispense drug was stuffed - still do the checks (form alt, refills) + if cboDispense.ItemIndex > -1 then cboDispenseMouseClick(Self); +end; + +{ cboDispense methods } + +procedure TfrmODMedOut.CheckFormAlt; +var + DrugName, OIName: string; + Drug, OI: Integer; +begin + with cboDispense do if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 4) = 'NF') then + begin + SelectFormularyAlt(ItemIEN, Drug, OI, DrugName, OIName, PST_OUTPATIENT); + if Drug > 0 then + begin + if FMedCombo.ItemIEN <> OI then + begin + FMedCombo.InitLongList(OIName); + FMedCombo.SelectByIEN(OI); + cboMedicationSelect(Self); + end; + cboDispense.SelectByIEN(Drug); + end; {if FormAlt} + end; {if ItemIndex} + SetAskSC; // now check enabled for the service connected prompt +end; + +procedure TfrmODMedOut.SetMaxRefills; +begin + with cboDispense do if (ItemIndex > -1) and (Length(Piece(Items[ItemIndex], U, 6)) > 0) then + begin + spnRefills.Max := StrToIntDef(Piece(Items[ItemIndex], U, 6), REFILLS_MAX); + if StrToIntDef(txtRefills.Text, 0) > spnRefills.Max then + begin + txtRefills.Text := IntToStr(spnRefills.Max); + spnRefills.Position := spnRefills.Max; + end; + end; +end; + +procedure TfrmODMedOut.cboDispenseExit(Sender: TObject); +var + AMsg: string; +begin + inherited; + SetMaxRefills; + with cboDispense do + begin + if ItemIEN <> FLastDrug then CheckFormAlt; + if ItemIEN > 0 then + begin + AMsg := DispenseMessage(ItemIEN) + CRLF; + if memMessage.Text <> AMsg then OrderMessage(AMsg); + end; + FLastDrug := ItemIEN; + end; +end; + +procedure TfrmODMedOut.cboDispenseMouseClick(Sender: TObject); +begin + inherited; + SetMaxRefills; + with cboDispense do + begin + if ItemIEN <> FLastDrug then CheckFormAlt; + if ItemIEN > 0 then OrderMessage(DispenseMessage(ItemIEN)); + FLastDrug := ItemIEN; + end; +end; + +{ dosage instructions } + +procedure TfrmODMedOut.SetupNouns; +var + AvailWidth, MaxWidth: Integer; +begin + CtrlInits.SetPopupMenu(popUnits, UnitClick, 'Nouns'); + if popUnits.Items.Count > 0 then + begin + // Make sure cboInstructions is at least 40 pixels wide so it can show values + // like "1/2". Allow for a 3 pixel space between the the Units button & Route. + AvailWidth := (cboRoute.Left - 3) - (cboInstructions.Left + 40); + MaxWidth := popUnits.Tag + 9; // allow 9 pixels for the down arrow & button border + if MaxWidth > AvailWidth then MaxWidth := AvailWidth; + btnUnits.Width := MaxWidth; + btnUnits.Left := cboRoute.Left - MaxWidth - 3; + cboInstructions.Width := btnUnits.Left - cboInstructions.Left; + btnUnits.Caption := popUnits.Items[0].Caption; + btnUnits.Visible := True; + end else + begin + btnUnits.Visible := False; + // Allow for a 6 pixel margin between the Instructions box & Route + cboInstructions.Width := cboRoute.Left - cboInstructions.Left - 6; + end; +end; + +procedure TfrmODMedOut.btnUnitsClick(Sender: TObject); +var + APoint: TPoint; +begin + inherited; + APoint := btnUnits.ClientToScreen(Point(0, btnUnits.Height)); + popUnits.Popup(APoint.X, APoint.Y); +end; + +procedure TfrmODMedOut.UnitClick(Sender: TObject); +begin + btnUnits.Caption := TMenuItem(Sender).Caption; +end; + +procedure TfrmODMedOut.SetComplex; +begin + lblDosage.Visible := False;; + lblRoute.Visible := False;; + lblSchedule.Visible := False;; + cboInstructions.Visible := False; + btnUnits.Visible := False;; + cboRoute.Visible := False; + cboSchedule.Visible := False; + memComplex.Visible := True; + cmdComplex.Caption := 'Change Dose...'; +end; + +procedure TfrmODMedOut.SetSimple; +begin + memComplex.Visible := False; + lblDosage.Visible := True;; + lblRoute.Visible := True;; + lblSchedule.Visible := True;; + cboInstructions.Visible := True; + btnUnits.Visible := (popUnits.Items.Count > 0) or (btnUnits.Caption <> ''); + cboRoute.Visible := True; + cboSchedule.Visible := True; + cmdComplex.Caption := 'Complex Dose...'; +end; + +procedure TfrmODMedOut.SetInstructions; +var + x: string; + AnInstance: Integer; +begin + case Responses.InstanceCount('INSTR') of + 0: begin + cboInstructions.ItemIndex := -1; + // there may still be a route & schedule (for copied orders) + if Responses.EValueFor('MISC', 1) <> '' + then btnUnits.Caption := Responses.EValueFor('MISC', 1); + Responses.SetControl(cboRoute, 'ROUTE', 1); + with cboRoute do if ItemIndex > -1 then Text := DisplayText[ItemIndex]; + Responses.SetControl(cboSchedule, 'SCHEDULE', 1); + SetSimple; + end; + 1: begin + AnInstance := Responses.NextInstance('INSTR', 0); + Responses.SetControl(cboInstructions, 'INSTR', AnInstance); + btnUnits.Caption := Responses.IValueFor('MISC', AnInstance); + Responses.SetControl(cboRoute, 'ROUTE', AnInstance); + with cboRoute do if ItemIndex > -1 then Text := DisplayText[ItemIndex]; + Responses.SetControl(cboSchedule, 'SCHEDULE', AnInstance); + SetSimple; + end; + else begin + memComplex.Clear; + AnInstance := Responses.NextInstance('INSTR', 0); + while AnInstance > 0 do + begin + x := Responses.EValueFor('INSTR', AnInstance); + x := x + ' ' + Responses.EValueFor('MISC', AnInstance); + x := x + ' ' + Responses.EValueFor('ROUTE', AnInstance); + x := x + ' ' + Responses.EValueFor('SCHEDULE', AnInstance); + if Length(Responses.EValueFor('DAYS', AnInstance)) > 0 + then x := x + ' ' + Responses.EValueFor('DAYS', AnInstance) + ' day(s)'; + memComplex.Lines.Add(x); + AnInstance := Responses.NextInstance('INSTR', AnInstance); + end; + SetComplex; + end; + end; {case} + memOrder.Text := Responses.OrderText; +end; {if ExecuteComplexDose} + +procedure TfrmODMedOut.cmdComplexClick(Sender: TObject); +begin + inherited; + if FMedCombo.ItemIEN = 0 then + begin + InfoBox(TX_NO_MED, 'Error', MB_OK); + Exit; + end; + if ExecuteComplexDose(CtrlInits, Responses) then SetInstructions; +end; + +{ quantity } + +procedure TfrmODMedOut.txtQuantityEnter(Sender: TObject); +begin + inherited; + with cboDispense do if ItemIEN > 0 then OrderMessage(QuantityMessage(ItemIEN)); +end; + +{ service connection } + +procedure TfrmODMedOut.SetAskSC; +const + SC_NO = 0; + SC_YES = 1; +begin + if Patient.ServiceConnected and RequiresCopay(FLastDrug) then + begin + lblSC.Font.Color := clWindowText; + cboSC.Enabled := True; + cboSC.Color := clWindow; + if Patient.SCPercent > 50 then cboSC.SelectByIEN(SC_YES) else cboSC.SelectByIEN(SC_NO); + end else + begin + lblSC.Font.Color := clGrayText; + cboSC.Enabled := False; + cboSC.Color := clBtnFace; + cboSC.ItemIndex := -1; + end; +end; + +procedure TfrmODMedOut.cboSCEnter(Sender: TObject); +begin + inherited; + OrderMessage(RatedDisabilities); +end; + +{ comments } + +procedure TfrmODMedOut.memCommentsEnter(Sender: TObject); +begin + inherited; + OrderMessage(''); // make sure Order Message disappears when in comments box +end; + +{ all controls } + +procedure TfrmODMedOut.ControlChange(Sender: TObject); +begin + inherited; + if csLoading in ComponentState then Exit; // to prevent error caused by txtRefills + if Changing then Exit; + if FMedCombo.ItemIEN = 0 then Exit; // prevent txtRefills from updating early + with FMedCombo do if ItemIEN > 0 + then Responses.Update('ORDERABLE', 1, ItemID, Piece(Items[ItemIndex], U, 3)) + else Responses.Update('ORDERABLE', 1, '', ''); + with cboDispense do if ItemIEN > 0 + then Responses.Update('DRUG', 1, ItemID, Piece(Items[ItemIndex], U, 2)) + else Responses.Update('DRUG', 1, '', ''); + if memComplex.Visible = False then + begin + with cboInstructions do Responses.Update('INSTR', 1, Text, Text); + with btnUnits do if Visible then Responses.Update('MISC', 1, Caption, Caption); + with cboRoute do if ItemIndex > -1 + then Responses.Update('ROUTE', 1, ItemID, Piece(Items[ItemIndex], U, 3)) // abbreviation + else Responses.Update('ROUTE', 1, Text, Text); + with cboSchedule do Responses.Update('SCHEDULE', 1, Text, Text); + end; + with txtQuantity do Responses.Update('QTY', 1, Text, Text); + with txtRefills do Responses.Update('REFILLS', 1, Text, Text); + with cboPickup do Responses.Update('PICKUP', 1, ItemID, Text); + with cboPriority do Responses.Update('URGENCY', 1, ItemID, Text); + with memComments do Responses.Update('COMMENT', 1, TX_WPTYPE, Text); + with cboSC do if Enabled then Responses.Update('SC', 1, ItemID, Text); + memOrder.Text := Responses.OrderText; +end; + +end. + diff --git a/CPRS-Chart/Orders/fODMeds.dfm b/CPRS-Chart/Orders/fODMeds.dfm new file mode 100644 index 0000000..31efe59 --- /dev/null +++ b/CPRS-Chart/Orders/fODMeds.dfm @@ -0,0 +1,975 @@ +inherited frmODMeds: TfrmODMeds + Left = 519 + Top = 204 + Width = 584 + Height = 515 + HorzScrollBar.Range = 558 + VertScrollBar.Range = 399 + Caption = 'Medication Order' + Constraints.MinHeight = 325 + OnKeyDown = FormKeyDown + OnShow = FormShow + DesignSize = ( + 576 + 488) + PixelsPerInch = 96 + TextHeight = 13 + object pnlMeds: TPanel [0] + Left = 6 + Top = 34 + Width = 580 + Height = 413 + Anchors = [akLeft, akTop, akRight, akBottom] + BevelOuter = bvNone + Caption = 'pnlMeds' + TabOrder = 1 + object sptSelect: TSplitter + Left = 0 + Top = 133 + Width = 580 + Height = 4 + Cursor = crVSplit + Align = alTop + end + object lstQuick: TCaptionListView + Left = 0 + Top = 0 + Width = 580 + Height = 133 + Align = alTop + BevelInner = bvLowered + BevelOuter = bvSpace + Columns = < + item + Width = 420 + end> + ColumnClick = False + HideSelection = False + HotTrack = True + HoverTime = 2147483647 + OwnerData = True + ParentShowHint = False + ShowColumnHeaders = False + ShowHint = True + TabOrder = 0 + ViewStyle = vsReport + OnChange = lstChange + OnClick = ListViewClick + OnData = lstQuickData + OnDataHint = lstQuickDataHint + OnEditing = ListViewEditing + OnEnter = ListViewEnter + OnKeyUp = ListViewKeyUp + OnResize = ListViewResize + Caption = 'Quick Orders' + end + object lstAll: TCaptionListView + Left = 0 + Top = 137 + Width = 580 + Height = 276 + Align = alClient + BevelInner = bvLowered + BevelOuter = bvNone + Columns = < + item + Width = 420 + end> + ColumnClick = False + HideSelection = False + HotTrack = True + HoverTime = 2147483647 + OwnerData = True + ParentShowHint = False + ShowColumnHeaders = False + ShowHint = True + TabOrder = 1 + ViewStyle = vsReport + OnChange = lstChange + OnClick = ListViewClick + OnData = lstAllData + OnDataHint = lstAllDataHint + OnEditing = ListViewEditing + OnEnter = ListViewEnter + OnKeyUp = ListViewKeyUp + OnResize = ListViewResize + Caption = 'All Medication orders' + end + end + inherited memOrder: TCaptionMemo + Top = 448 + Width = 502 + Anchors = [akLeft, akRight, akBottom] + TabOrder = 4 + end + object txtMed: TEdit [2] + Left = 6 + Top = 6 + Width = 580 + Height = 21 + Anchors = [akLeft, akTop, akRight] + AutoSelect = False + TabOrder = 0 + Text = '(Type a medication name or select from the orders below)' + OnChange = txtMedChange + OnExit = txtMedExit + OnKeyDown = txtMedKeyDown + OnKeyUp = txtMedKeyUp + end + object btnSelect: TButton [3] + Left = 515 + Top = 448 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'OK' + Default = True + Enabled = False + TabOrder = 5 + OnClick = btnSelectClick + end + inherited cmdAccept: TButton + Left = 514 + Top = 448 + Anchors = [akRight, akBottom] + TabOrder = 6 + TabStop = False + Visible = False + end + inherited cmdQuit: TButton + Left = 514 + Top = 473 + Width = 51 + Anchors = [akRight, akBottom] + TabOrder = 7 + end + inherited pnlMessage: TPanel + Left = 36 + Top = 156 + OnEnter = pnlMessageEnter + inherited memMessage: TRichEdit + OnKeyDown = memMessageKeyDown + end + end + object pnlFields: TPanel + Left = 6 + Top = 34 + Width = 580 + Height = 413 + Anchors = [akLeft, akTop, akRight, akBottom] + BevelOuter = bvNone + Enabled = False + TabOrder = 2 + Visible = False + OnResize = pnlFieldsResize + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 580 + Height = 184 + Align = alClient + Constraints.MinHeight = 80 + TabOrder = 3 + DesignSize = ( + 580 + 184) + object lblRoute: TLabel + Left = 280 + Top = 23 + Width = 29 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Route' + Visible = False + end + object lblSchedule: TLabel + Left = 394 + Top = 22 + Width = 45 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Schedule' + Visible = False + WordWrap = True + end + object txtNSS: TLabel + Left = 442 + Top = 22 + Width = 71 + Height = 13 + Anchors = [akTop, akRight] + Caption = '(Day-Of-Week)' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + Visible = False + WordWrap = True + OnClick = txtNSSClick + end + object grdDoses: TCaptionStringGrid + Left = 0 + Top = 36 + Width = 580 + Height = 143 + Anchors = [akLeft, akTop, akRight, akBottom] + ColCount = 6 + DefaultColWidth = 76 + DefaultRowHeight = 21 + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goTabs] + ScrollBars = ssVertical + TabOrder = 8 + OnDrawCell = grdDosesDrawCell + OnEnter = grdDosesEnter + OnExit = grdDosesExit + OnKeyDown = grdDosesKeyDown + OnKeyPress = grdDosesKeyPress + OnMouseDown = grdDosesMouseDown + OnMouseUp = grdDosesMouseUp + Caption = 'Complex Dosage' + JustToTab = True + ColWidths = ( + 76 + 76 + 76 + 76 + 76 + 76) + end + object lblGuideline: TStaticText + Left = 0 + Top = 1 + Width = 181 + Height = 17 + Caption = 'Display Restrictions/Guidelines' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold, fsUnderline] + ParentColor = False + ParentFont = False + ShowAccelChar = False + TabOrder = 0 + TabStop = True + Visible = False + OnClick = lblGuidelineClick + end + object tabDose: TTabControl + Left = 1 + Top = 19 + Width = 175 + Height = 17 + TabOrder = 3 + Tabs.Strings = ( + 'Dosage' + 'Complex') + TabIndex = 0 + TabStop = False + TabWidth = 86 + OnChange = tabDoseChange + end + object cboDosage: TORComboBox + Left = 1 + Top = 36 + Width = 279 + Height = 143 + Anchors = [akLeft, akTop, akRight, akBottom] + Style = orcsSimple + AutoSelect = True + Caption = 'Dosage' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '5,3,6' + Sorted = False + SynonymChars = '<>' + TabPositions = '27,32' + TabOrder = 4 + OnChange = cboDosageChange + OnClick = cboDosageClick + OnExit = cboDosageExit + OnKeyUp = cboDosageKeyUp + CharsNeedMatch = 1 + UniqueAutoComplete = True + end + object cboRoute: TORComboBox + Left = 280 + Top = 36 + Width = 113 + Height = 143 + Anchors = [akTop, akRight, akBottom] + Style = orcsSimple + AutoSelect = True + Caption = 'Route' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + Pieces = '2' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabOrder = 5 + OnChange = cboRouteChange + OnClick = ControlChange + OnExit = cboRouteExit + CharsNeedMatch = 1 + UniqueAutoComplete = True + end + object cboSchedule: TORComboBox + Left = 394 + Top = 36 + Width = 178 + Height = 143 + Anchors = [akTop, akRight, akBottom] + Style = orcsSimple + AutoSelect = False + Caption = 'Schedule' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '1' + Sorted = True + SynonymChars = '<>' + TabOrder = 6 + OnChange = cboScheduleChange + OnClick = cboScheduleClick + OnEnter = cboScheduleEnter + OnExit = cboScheduleExit + CharsNeedMatch = 1 + UniqueAutoComplete = True + end + object chkPRN: TCheckBox + Left = 530 + Top = 37 + Width = 42 + Height = 18 + Anchors = [akTop, akRight] + Caption = 'PRN' + Color = clBtnFace + ParentColor = False + TabOrder = 7 + OnClick = chkPRNClick + end + object btnXInsert: TButton + Left = 403 + Top = 3 + Width = 79 + Height = 17 + Caption = 'Insert Row' + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = btnXInsertClick + end + object btnXRemove: TButton + Left = 488 + Top = 3 + Width = 79 + Height = 17 + Caption = 'Remove Row' + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = btnXRemoveClick + end + end + object cboXDosage: TORComboBox + Left = 49 + Top = 122 + Width = 72 + Height = 21 + Style = orcsDropDown + AutoSelect = False + Caption = 'Dosage' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '5' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + Visible = False + OnChange = cboXDosageChange + OnClick = cboXDosageClick + OnEnter = cboXDosageEnter + OnExit = cboXDosageExit + OnKeyDown = memMessageKeyDown + OnKeyUp = cboXDosageKeyUp + CharsNeedMatch = 1 + UniqueAutoComplete = True + end + object cboXRoute: TORComboBox + Left = 122 + Top = 122 + Width = 72 + Height = 21 + Style = orcsDropDown + AutoSelect = False + Caption = 'Route' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + Visible = False + OnChange = cboXRouteChange + OnClick = cboXRouteClick + OnEnter = cboXRouteEnter + OnExit = cboXRouteExit + OnKeyDown = memMessageKeyDown + CharsNeedMatch = 1 + UniqueAutoComplete = True + end + object pnlXDuration: TPanel + Left = 300 + Top = 122 + Width = 72 + Height = 21 + BevelOuter = bvNone + TabOrder = 4 + Visible = False + OnEnter = pnlXDurationEnter + OnExit = pnlXDurationExit + DesignSize = ( + 72 + 21) + object pnlXDurationButton: TKeyClickPanel + Left = 39 + Top = 1 + Width = 33 + Height = 19 + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = 'Duration' + TabOrder = 2 + TabStop = True + OnClick = btnXDurationClick + object btnXDuration: TSpeedButton + Left = 0 + Top = 0 + Width = 33 + Height = 19 + Caption = 'days' + Flat = True + Glyph.Data = { + AE000000424DAE0000000000000076000000280000000E000000070000000100 + 0400000000003800000000000000000000001000000000000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 330033333333333333003330333333733300330003333F87330030000033FFFF + F30033333333333333003333333333333300} + Layout = blGlyphRight + NumGlyphs = 2 + Spacing = 0 + Transparent = False + OnClick = btnXDurationClick + end + end + object txtXDuration: TCaptionEdit + Left = 0 + Top = 0 + Width = 25 + Height = 21 + Anchors = [akLeft, akTop, akBottom] + TabOrder = 0 + Text = '0' + OnChange = txtXDurationChange + OnKeyDown = memMessageKeyDown + Caption = 'Duration' + end + object spnXDuration: TUpDown + Left = 25 + Top = 0 + Width = 15 + Height = 21 + Anchors = [akLeft, akTop, akBottom] + Associate = txtXDuration + Min = 0 + Max = 999 + Position = 0 + TabOrder = 1 + Wrap = False + end + end + object pnlXSequence: TKeyClickPanel + Left = 396 + Top = 122 + Width = 37 + Height = 21 + Caption = 'Then/And box' + TabOrder = 5 + TabStop = True + Visible = False + OnClick = btnXSequenceClick + OnEnter = pnlXSequenceEnter + OnExit = pnlXSequenceExit + object btnXSequence: TSpeedButton + Left = 1 + Top = 1 + Width = 38 + Height = 19 + Hint = 'A duration must be defined if using "Then" as a sequence.' + Caption = 'then' + Glyph.Data = { + AE000000424DAE0000000000000076000000280000000E000000070000000100 + 0400000000003800000000000000000000001000000000000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 330033333333333333003330333333733300330003333F87330030000033FFFF + F30033333333333333003333333333333300} + Layout = blGlyphRight + NumGlyphs = 2 + ParentShowHint = False + ShowHint = True + Spacing = 1 + OnClick = btnXSequenceClick + end + object SpeedButton1: TSpeedButton + Left = 16 + Top = 16 + Width = 23 + Height = 22 + end + end + object pnlXSchedule: TPanel + Left = 195 + Top = 122 + Width = 106 + Height = 21 + BevelOuter = bvNone + TabOrder = 2 + Visible = False + OnEnter = pnlXScheduleEnter + OnExit = pnlXScheduleExit + DesignSize = ( + 106 + 21) + object cboXSchedule: TORComboBox + Left = 0 + Top = 0 + Width = 63 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Style = orcsDropDown + AutoSelect = False + Caption = 'Schedule' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '1' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + TabStop = True + OnChange = cboXScheduleChange + OnClick = cboXScheduleClick + OnEnter = cboXScheduleEnter + OnExit = cboXScheduleExit + OnKeyDown = memMessageKeyDown + CharsNeedMatch = 1 + UniqueAutoComplete = True + end + object chkXPRN: TCheckBox + Left = 63 + Top = 4 + Width = 42 + Height = 11 + Anchors = [akTop, akRight] + Caption = 'PRN' + TabOrder = 1 + OnClick = chkXPRNClick + OnKeyDown = memMessageKeyDown + end + end + object pnlBottom: TPanel + Left = 0 + Top = 184 + Width = 580 + Height = 229 + Align = alBottom + TabOrder = 6 + DesignSize = ( + 580 + 229) + object lblComment: TLabel + Left = 4 + Top = 5 + Width = 52 + Height = 16 + Alignment = taRightJustify + AutoSize = False + Caption = 'Comments:' + end + object lblDays: TLabel + Left = 4 + Top = 65 + Width = 59 + Height = 13 + Caption = 'Days Supply' + end + object lblQuantity: TLabel + Left = 84 + Top = 65 + Width = 39 + Height = 13 + Caption = 'Quantity' + ParentShowHint = False + ShowHint = True + end + object lblRefills: TLabel + Left = 164 + Top = 65 + Width = 28 + Height = 13 + Caption = 'Refills' + end + object lblPriority: TLabel + Left = 500 + Top = 61 + Width = 31 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Priority' + end + object Image1: TImage + Left = 5 + Top = 177 + Width = 31 + Height = 31 + Anchors = [akLeft, akBottom] + Visible = False + end + object chkDoseNow: TCheckBox + Left = 3 + Top = 104 + Width = 247 + Height = 21 + Caption = 'Give additional dose now' + TabOrder = 9 + OnClick = chkDoseNowClick + end + object memComment: TCaptionMemo + Left = 57 + Top = 2 + Width = 513 + Height = 43 + Anchors = [akLeft, akTop, akRight] + ScrollBars = ssVertical + TabOrder = 0 + OnChange = ControlChange + OnClick = memCommentClick + Caption = 'Comments' + end + object lblQtyMsg: TStaticText + Left = 4 + Top = 47 + Width = 206 + Height = 17 + Caption = '>> Quantity Dispensed: Multiples of 100 <<' + TabOrder = 12 + end + object txtSupply: TCaptionEdit + Left = 2 + Top = 78 + Width = 60 + Height = 21 + AutoSize = False + TabOrder = 1 + Text = '0' + OnChange = txtSupplyChange + OnClick = txtSupplyClick + Caption = 'Days Supply' + end + object spnSupply: TUpDown + Left = 62 + Top = 78 + Width = 15 + Height = 21 + Associate = txtSupply + Min = 0 + Position = 0 + TabOrder = 2 + Wrap = False + end + object txtQuantity: TCaptionEdit + Left = 83 + Top = 78 + Width = 60 + Height = 21 + AutoSize = False + TabOrder = 3 + Text = '0' + OnChange = txtQuantityChange + OnClick = txtQuantityClick + Caption = 'Quantity' + end + object spnQuantity: TUpDown + Left = 143 + Top = 78 + Width = 16 + Height = 21 + Min = -32766 + Max = 32766 + Position = 0 + TabOrder = 4 + Wrap = False + OnChangingEx = spnQuantityChangingEx + end + object txtRefills: TCaptionEdit + Left = 164 + Top = 78 + Width = 30 + Height = 21 + AutoSize = False + TabOrder = 5 + Text = '0' + OnChange = ControlChange + OnClick = txtRefillsClick + Caption = 'Refills' + end + object spnRefills: TUpDown + Left = 194 + Top = 78 + Width = 15 + Height = 21 + Associate = txtRefills + Min = 0 + Max = 11 + Position = 0 + TabOrder = 6 + Wrap = False + end + object grpPickup: TGroupBox + Left = 283 + Top = 66 + Width = 172 + Height = 36 + Anchors = [akTop, akRight] + Caption = 'Pick Up' + TabOrder = 7 + object radPickWindow: TRadioButton + Left = 105 + Top = 14 + Width = 58 + Height = 17 + Caption = '&Window' + TabOrder = 2 + OnClick = ControlChange + end + object radPickMail: TRadioButton + Left = 58 + Top = 14 + Width = 38 + Height = 17 + Caption = '&Mail' + TabOrder = 1 + OnClick = ControlChange + end + object radPickClinic: TRadioButton + Left = 7 + Top = 14 + Width = 44 + Height = 17 + Caption = '&Clinic' + TabOrder = 0 + OnClick = ControlChange + end + end + object cboPriority: TORComboBox + Left = 499 + Top = 76 + Width = 72 + Height = 21 + Anchors = [akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Priority' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 10 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object chkSC: TCheckBox + Left = 3 + Top = 106 + Width = 175 + Height = 17 + Caption = 'for Service Connected condition' + ParentShowHint = False + ShowHint = True + TabOrder = 8 + OnClick = chkSCClick + OnEnter = chkSCEnter + end + object lblAdminTime: TStaticText + Left = 262 + Top = 120 + Width = 4 + Height = 4 + TabOrder = 16 + end + object stcPI: TStaticText + Left = 2 + Top = 123 + Width = 89 + Height = 17 + Caption = 'Patient Instruction' + TabOrder = 17 + Visible = False + end + object chkPtInstruct: TCheckBox + Left = 4 + Top = 137 + Width = 14 + Height = 21 + Color = clBtnFace + ParentColor = False + TabOrder = 18 + Visible = False + OnClick = chkPtInstructClick + end + object memPI: TMemo + Left = 23 + Top = 139 + Width = 547 + Height = 35 + TabStop = False + Anchors = [akLeft, akTop, akRight] + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 19 + Visible = False + OnClick = memPIClick + OnKeyDown = memPIKeyDown + end + object memDrugMsg: TMemo + Left = 37 + Top = 176 + Width = 533 + Height = 51 + Anchors = [akLeft, akRight, akBottom] + Color = clCream + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 20 + Visible = False + end + end + end + object dlgStart: TORDateTimeDlg + FMDateTime = 3001101 + DateOnly = False + RequireTime = True + Left = 444 + Top = 336 + end + object timCheckChanges: TTimer + Enabled = False + Interval = 500 + OnTimer = timCheckChangesTimer + Left = 477 + Top = 336 + end + object popDuration: TPopupMenu + AutoHotkeys = maManual + Left = 380 + Top = 145 + object popBlank: TMenuItem + Caption = '(no selection)' + OnClick = popDurationClick + end + object months1: TMenuItem + Tag = 5 + Caption = 'months' + OnClick = popDurationClick + end + object weeks1: TMenuItem + Tag = 4 + Caption = 'weeks' + OnClick = popDurationClick + end + object popDays: TMenuItem + Tag = 3 + Caption = 'days' + OnClick = popDurationClick + end + object hours1: TMenuItem + Tag = 2 + Caption = 'hours' + OnClick = popDurationClick + end + object minutes1: TMenuItem + Tag = 1 + Caption = 'minutes' + OnClick = popDurationClick + end + end + object popXSequence: TPopupMenu + AutoHotkeys = maManual + Left = 448 + Top = 145 + object and1: TMenuItem + Tag = 1 + Caption = 'and' + OnClick = popXSequenceClick + end + object then1: TMenuItem + Tag = 2 + Caption = 'then' + OnClick = popXSequenceClick + end + end +end diff --git a/CPRS-Chart/Orders/fODMeds.pas b/CPRS-Chart/Orders/fODMeds.pas new file mode 100644 index 0000000..d41b2d3 --- /dev/null +++ b/CPRS-Chart/Orders/fODMeds.pas @@ -0,0 +1,4836 @@ +unit fODMeds; + +{$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, StdCtrls, ComCtrls, ExtCtrls, ORCtrls, Grids, Buttons, uConst, ORDtTm, + Menus, XUDIGSIGSC_TLB; + +const + UM_DELAYCLICK = 11037; // temporary for listview click event + +type + TfrmODMeds = class(TfrmODBase) + txtMed: TEdit; + pnlMeds: TPanel; + btnSelect: TButton; + pnlFields: TPanel; + lstQuick: TCaptionListView; + sptSelect: TSplitter; + lstAll: TCaptionListView; + dlgStart: TORDateTimeDlg; + cboXDosage: TORComboBox; + cboXRoute: TORComboBox; + pnlXDuration: TPanel; + pnlXSequence: TKeyClickPanel; + btnXSequence: TSpeedButton; + timCheckChanges: TTimer; + popDuration: TPopupMenu; + popDays: TMenuItem; + popBlank: TMenuItem; + hours1: TMenuItem; + minutes1: TMenuItem; + popXSequence: TPopupMenu; + and1: TMenuItem; + then1: TMenuItem; + months1: TMenuItem; + weeks1: TMenuItem; + pnlXSchedule: TPanel; + cboXSchedule: TORComboBox; + chkXPRN: TCheckBox; + txtXDuration: TCaptionEdit; + spnXDuration: TUpDown; + pnlXDurationButton: TKeyClickPanel; + btnXDuration: TSpeedButton; + pnlTop: TPanel; + lblRoute: TLabel; + lblSchedule: TLabel; + grdDoses: TCaptionStringGrid; + lblGuideline: TStaticText; + tabDose: TTabControl; + cboDosage: TORComboBox; + cboRoute: TORComboBox; + cboSchedule: TORComboBox; + chkPRN: TCheckBox; + btnXInsert: TButton; + btnXRemove: TButton; + pnlBottom: TPanel; + lblComment: TLabel; + lblDays: TLabel; + lblQuantity: TLabel; + lblRefills: TLabel; + lblPriority: TLabel; + chkDoseNow: TCheckBox; + memComment: TCaptionMemo; + lblQtyMsg: TStaticText; + txtSupply: TCaptionEdit; + spnSupply: TUpDown; + txtQuantity: TCaptionEdit; + spnQuantity: TUpDown; + txtRefills: TCaptionEdit; + spnRefills: TUpDown; + grpPickup: TGroupBox; + radPickWindow: TRadioButton; + radPickMail: TRadioButton; + radPickClinic: TRadioButton; + cboPriority: TORComboBox; + chkSC: TCheckBox; + lblAdminTime: TStaticText; + stcPI: TStaticText; + chkPtInstruct: TCheckBox; + memPI: TMemo; + Image1: TImage; + memDrugMsg: TMemo; + txtNSS: TLabel; + SpeedButton1: TSpeedButton; + procedure FormCreate(Sender: TObject); + procedure btnSelectClick(Sender: TObject); + procedure tabDoseChange(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure txtMedKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure txtMedKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure txtMedChange(Sender: TObject); + procedure txtMedExit(Sender: TObject); + procedure ListViewEditing(Sender: TObject; Item: TListItem; + var AllowEdit: Boolean); + procedure ListViewKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure ListViewResize(Sender: TObject); + procedure lstQuickData(Sender: TObject; Item: TListItem); + procedure lstQuickDataHint(Sender: TObject; StartIndex, + EndIndex: Integer); + procedure lstAllDataHint(Sender: TObject; StartIndex, + EndIndex: Integer); + procedure lstAllData(Sender: TObject; Item: TListItem); + procedure lblGuidelineClick(Sender: TObject); + procedure ListViewClick(Sender: TObject); + procedure cboScheduleChange(Sender: TObject); + procedure cboRouteChange(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure cboDosageClick(Sender: TObject); + procedure cboDosageChange(Sender: TObject); + procedure cboScheduleClick(Sender: TObject); + procedure txtSupplyChange(Sender: TObject); + procedure txtQuantityChange(Sender: TObject); + procedure cboRouteExit(Sender: TObject); + procedure grdDosesMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure grdDosesKeyPress(Sender: TObject; var Key: Char); + procedure grdDosesMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure grdDosesDrawCell(Sender: TObject; ACol, ARow: Integer; + Rect: TRect; State: TGridDrawState); + procedure cboXDosageClick(Sender: TObject); + procedure cboXDosageExit(Sender: TObject); + procedure cboXRouteClick(Sender: TObject); + procedure cboXRouteExit(Sender: TObject); + procedure cboXScheduleClick(Sender: TObject); + procedure pnlXDurationEnter(Sender: TObject); + procedure pnlXDurationExit(Sender: TObject); + procedure txtXDurationChange(Sender: TObject); + procedure cboXDosageEnter(Sender: TObject); + procedure cboXDosageChange(Sender: TObject); + procedure cboXRouteChange(Sender: TObject); + procedure cboXScheduleChange(Sender: TObject); + procedure pnlXSequenceExit(Sender: TObject); + procedure btnXSequenceClick(Sender: TObject); + procedure grdDosesExit(Sender: TObject); + procedure ListViewEnter(Sender: TObject); + procedure timCheckChangesTimer(Sender: TObject); + procedure popDurationClick(Sender: TObject); + procedure popXSequenceClick(Sender: TObject); + procedure chkSCEnter(Sender: TObject); + procedure chkSCClick(Sender: TObject); + procedure cmdAcceptClick(Sender: TObject); + procedure btnXInsertClick(Sender: TObject); + procedure btnXRemoveClick(Sender: TObject); + procedure pnlXScheduleEnter(Sender: TObject); + procedure pnlXScheduleExit(Sender: TObject); + procedure chkPtInstructClick(Sender: TObject); + procedure pnlFieldsResize(Sender: TObject); + procedure chkDoseNowClick(Sender: TObject); + procedure cboDosageExit(Sender: TObject); + procedure chkXPRNClick(Sender: TObject); + procedure memCommentClick(Sender: TObject); + procedure btnXDurationClick(Sender: TObject); + procedure chkPRNClick(Sender: TObject); + procedure grdDosesKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure grdDosesEnter(Sender: TObject); + procedure FormKeyPress(Sender: TObject; var Key: Char); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure cboXRouteEnter(Sender: TObject); + procedure pnlXSequenceEnter(Sender: TObject); + procedure pnlMessageEnter(Sender: TObject); + procedure pnlMessageExit(Sender: TObject); + procedure memMessageKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure memPIClick(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure spnQuantityChangingEx(Sender: TObject; + var AllowChange: Boolean; NewValue: Smallint; + Direction: TUpDownDirection); + procedure memPIKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure lstChange(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure txtNSSClick(Sender: TObject); + procedure cboScheduleEnter(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cboScheduleExit(Sender: TObject); + procedure cboXScheduleExit(Sender: TObject); + procedure cboDosageKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure cboXDosageKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure txtSupplyClick(Sender: TObject); + procedure txtQuantityClick(Sender: TObject); + procedure txtRefillsClick(Sender: TObject); + procedure WMClose(var Msg : TWMClose); message WM_CLOSE; + procedure cboXScheduleEnter(Sender: TObject); + //procedure btnNSSClick(Sender: TObject); + private + FScheduleChanged : Boolean; + {selection} + FAllItems: TStringList; + FAllFirst: Integer; + FAllLast: Integer; + FAllList: Integer; + FQuickList: Integer; + FQuickItems: TStringList; + FChangePending: Boolean; + FKeyTimerActive: Boolean; + FActiveMedList: TListView; + FRowHeight: Integer; + FFromSelf: Boolean; + {edit} + FAllDoses: TStringList; + FAllDrugs: TStringList; + FGuideline: TStringList; + FLastUnits: string; + FLastSchedule: string; + FLastDuration: string; + FLastInstruct: string; + FLastDispDrug: string; + FLastQuantity: Double; + FLastSupply: Integer; + FLastPickup: string; + FSIGVerb: string; + FSIGPrep: string; + FDropColumn: Integer; + FDrugID: string; + FInptDlg: Boolean; + FUpdated: Boolean; + FSuppressMsg: Boolean; + FPtInstruct: string; + FAltChecked: Boolean; + FOutptIV: Boolean; + FQOQuantity: Double; + FQODosage: string; + FNoZERO: boolean; + FIsQuickOrder: boolean; + FAdminTimeLbl: string; + FDisabledDefaultButton: TButton; + FDisabledCancelButton: TButton; + FShrinked: boolean; + FShrinkDrugMsg: boolean; + FResizedAlready: boolean; + FQOInitial: boolean; + FOrigiMsgDisp: boolean; + FNSSOther: boolean; + {selection} + FShowPnlXScheduleOk : boolean; + FRemoveText : Boolean; + FSmplPRNChkd: Boolean; + procedure ChangeDelayed; + function FindQuickOrder(const x: string): Integer; + function isUniqueQuickOrder(iText: string): Boolean; + procedure LoadMedCache(First, Last: Integer); + procedure ScrollToVisible(AListView: TListView); + procedure StartKeyTimer; + procedure StopKeyTimer; + procedure WMTimer(var Message: TWMTimer); message WM_TIMER; + {edit} + procedure ResetOnMedChange; + procedure ResetOnTabChange; + procedure SetControlsInpatient; + procedure SetControlsOutpatient; + procedure SetOnMedSelect; + procedure SetOnQuickOrder; + procedure SetVisibleCommentRows( Rows: integer ); + procedure ShowMedSelect; + procedure ShowMedFields; + procedure ShowControlsSimple; + procedure ShowControlsComplex; + procedure SetDosage(const x: string); + procedure SetPickup(const x: string); + procedure SetSchedule(const x: string); + procedure CheckFormAltDose(DispDrug: Integer); + function DurationToDays: Integer; + function ConstructedDoseFields(const ADose: string; PrependName: Boolean = FALSE): string; + function FieldsForDose(ARow: Integer): string; + function FieldsForDrug(const DrugID: string): string; + function FindCommonDrug(DoseList: TStringList): string; + function FindDoseFields(const Drug, ADose: string): string; + function InpatientSig: string; + function OutpatientSig: string; + procedure UpdateRelated(DelayUpdate: Boolean = TRUE); + procedure UpdateRefills(const CurDispDrug: string; CurSupply: Integer); + procedure UpdateSC(const CurDispDrug: string); + procedure UpdateStartExpires(const CurSchedule: string); + procedure UpdateDefaultSupply(const CurUnits, CurSchedule, CurDuration, CurDispDrug: string; + var CurSupply: Integer; var CurQuantity: double; var SkipQtyCheck: Boolean); + procedure UpdateSupplyQuantity(const CurUnits, CurSchedule, CurDuration, CurDispDrug: string; + var CurSupply: Integer; var CurQuantity: double); + procedure UpdateDurationControls( FreeText: boolean); + function DisableDefaultButton(Control: TWinControl): boolean; + function DisableCancelButton(Control: TWinControl): boolean; + procedure RestoreDefaultButton; + procedure RestoreCancelButton; + function ValueOf(FieldID: Integer; ARow: Integer = -1): string; + function ValueOfResponse(FieldID: Integer; AnInstance: Integer = 1): string; + function ValFor(FieldID, ARow: Integer): string; + function TextDosage(ADosage: string): string; + //NSS + function CreateOtherScheduel: string; + function CreateOtherScheduelComplex: string; + procedure ShowEditor(ACol, ARow: Integer; AChar: Char); + procedure DropLastSequence(ASign: integer = 0); + procedure DispOrderMessage(const AMessage: string); + procedure UMDelayClick(var Message: TMessage); message UM_DELAYCLICK; + procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT; + procedure UMShowNSSBuilder(var Message: TMessage); message UM_NSSOTHER; + function IfIsIMODialog: boolean; + procedure ValidateInpatientSchedule(ScheduleCombo: TORComboBox); +// function ValidateRoute(RouteCombo: TORComboBox) : Boolean; Removed based on Site feeback. See CQ: 7518 + function IsSupplyAndOutPatient : boolean; + function GetSchedListIndex(SchedCombo: TORComboBox; pSchedule: String):integer; + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + public + ARow1: integer; + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + procedure CheckDecimal(var AStr: string); + end; + +var + frmODMeds: TfrmODMeds; + crypto: IXuDigSigS; + +implementation + +{$R *.DFM} + +uses rCore, uCore, ORFn, rODMeds, rODBase, rOrders, fRptBox, fODMedOIFA, + uAccessibleStringGrid, uOrders, fOtherSchedule, StrUtils, fFrame; + +const + {grid columns for complex dosing} + COL_SELECT = 0; + COL_DOSAGE = 1; + COL_ROUTE = 2; + COL_SCHEDULE = 3; + COL_DURATION = 4; + COL_SEQUENCE = 5; + COL_CHKXPRN = 6; + VAL_DOSAGE = 10; + VAL_ROUTE = 20; + VAL_SCHEDULE = 30; + VAL_DURATION = 40; + VAL_SEQUENCE = 50; + VAL_CHKXPRN = 60; + TAB = #9; + {field identifiers} + FLD_LOCALDOSE = 1; + FLD_STRENGTH = 2; + FLD_DRUG_ID = 3; + FLD_DRUG_NM = 4; + FLD_DOSEFLDS = 5; + FLD_UNITNOUN = 6; + FLD_TOTALDOSE = 7; + FLD_DOSETEXT = 8; + FLD_INSTRUCT = 10; + FLD_DOSEUNIT = 11; + FLD_ROUTE_ID = 15; + FLD_ROUTE_NM = 16; + FLD_ROUTE_AB = 17; + FLD_ROUTE_EX = 18; + FLD_SCHEDULE = 20; + FLD_SCHED_EX = 21; + FLD_SCHED_TYP = 22; + FLD_DURATION = 30; + FLD_SEQUENCE = 31; + FLD_MISC_FLDS = 50; + FLD_SUPPLY = 51; + FLD_QUANTITY = 52; + FLD_REFILLS = 53; + FLD_PICKUP = 55; + FLD_QTYDISP = 56; + FLD_SC = 58; + FLD_PRIOR_ID = 60; + FLD_PRIOR_NM = 61; + FLD_START_ID = 70; + FLD_START_NM = 71; + FLD_EXPIRE = 72; + FLD_ANDTHEN = 73; + FLD_NOW_ID = 75; + FLD_NOW_NM = 76; + FLD_COMMENT = 80; + FLD_PTINSTR = 85; + {dosage type tab index values} + TI_DOSE = 0; + TI_RATE = 99; + TI_COMPLEX = 1; + {misc constants} + TIMER_ID = 6902; // arbitrary number + TIMER_DELAY = 500; // 500 millisecond delay + TIMER_FROM_DAYS = 1; + TIMER_FROM_QTY = 2; + {text constants} + TX_ADMIN = 'Requested Start: '; + TX_TAKE = ''; + TX_NO_DEA = 'Provider must have a DEA# or VA# to order this medication'; + TC_NO_DEA = 'DEA# Required'; + TX_NO_MED = 'Medication must be selected.'; + TX_NO_SEQ = 'Missing one or more conjunction.'; + TX_NO_DOSE = 'Dosage must be entered.'; + TX_DOSE_NUM = 'Dosage may not be numeric only'; + TX_DOSE_LEN = 'Dosage may not exceed 60 characters'; + TX_NO_ROUTE = 'Route must be entered.'; + TX_NF_ROUTE = 'Route not found in the Medication Routes file.'; + TX_NO_SCHED = 'Schedule must be entered.'; + TX_NO_PICK = 'A method for picking up the medication must be entered.'; + TX_RNG_REFILL = 'The number of refills must be in the range of 0 through '; + TX_SCH_QUOTE = 'Schedule must not have quotemarks in it.'; + TX_SCH_MINUS = 'Schedule must not have a dash at the beginning.'; + TX_SCH_SPACE = 'Schedule must have only one space in it.'; + TX_SCH_LEN = 'Schedule must be less than 70 characters.'; + TX_SCH_PRN = 'Schedule cannot include PRN - use Comments to enter PRN.'; + TX_SCH_ZERO = 'Schedule cannot be Q0'; + TX_SCH_LSP = 'Schedule may not have leading spaces.'; + TX_SCH_NS = 'Unable to resolve non-standard schedule.'; + TX_MAX_STOP = 'The maximum expiration for this order is '; + TX_OUTPT_IV = 'This patient has not been admitted. Only IV orders may be entered.'; + TX_QTY_NV = 'Unable to validate quantity.'; + TX_QTY_MAIL = 'Quantity for mailed items must be a whole number.'; + TX_SUPPLY_LIM = 'Days Supply may not be greater than 90.'; + TX_SUPPLY_LIM1 = 'Days Supply may not be less than 1.'; + TX_SUPPLY_NINT= 'Days Supply is an invalid number.'; + TC_RESTRICT = 'Ordering Restrictions'; + TC_GUIDELINE = 'Restrictions/Guidelines'; + TX_QTY_PRE = '>> Quantity Dispensed: '; + TX_QTY_POST = ' <<'; + +{ procedures inherited from fODBase --------------------------------------------------------- } + +procedure TfrmODMeds.FormCreate(Sender: TObject); +var + ListCount: Integer; + x: string; +begin + frmFrame.pnlVisit.Enabled := false; + AutoSizeDisabled := True; + inherited; + btnXDuration.Align := alClient; + AllowQuickOrder := True; + FSmplPRNChkd := False; // GE CQ7585 + CheckAuthForMeds(x); + if Length(x) > 0 then + begin + InfoBox(x, TC_RESTRICT, MB_OK); + Close; + Exit; + end; + if DlgFormID = OD_MEDINPT then FInptDlg := TRUE; + if DlgFormID = OD_MEDOUTPT then FInptDlg := FALSE; + if DlgFormID = OD_MEDNONVA then FInptDlg := FALSE; + if DlgFormID = OD_MEDS then FInptDlg := OrderForInpatient; + if XfInToOutNow then + FInptDlg := False; + if XferOuttoInOnMeds then + FInptDlg := True; + if ImmdCopyAct and isUDGroup and (Patient.Inpatient) then + FInptDlg := True; + if ImmdcopyAct and (not isUDGroup) then + FInptDlg := False; + if FInptDlg then FillerID := 'PSI' else FillerID := 'PSO'; + FGuideline := TStringList.Create; + FAllDoses := TStringList.Create; + FAllDrugs := TStringList.Create; + StatusText('Loading Dialog Definition'); + if DlgFormID = OD_MEDINPT then Responses.Dialog := 'PSJ OR PAT OE' + else if DlgFormID = OD_MEDOUTPT then Responses.Dialog := 'PSO OERR' + else if DlgFormID = OD_MEDNONVA then Responses.Dialog := 'PSH OERR' + else Responses.Dialog := 'PS MEDS'; // loads formatting info + {if not FInptDlg then } Responses.SetPromptFormat('INSTR', '@'); + StatusText('Loading Schedules'); + //if (Self.EvtID > 0) then LoadSchedules(cboSchedule.Items) + //else LoadSchedules(cboSchedule.Items, FInptDlg); + LoadSchedules(cboSchedule.Items, FInptDlg); + StatusText(''); + if FInptDlg then SetControlsInpatient else SetControlsOutpatient; + CtrlInits.SetControl(cboPriority, 'Priority'); + FSuppressMsg := CtrlInits.DefaultText('DispMsg') = '1'; + FOrigiMsgDisp := FSuppressMsg; + InitDialog; + if FInptDlg then + begin + txtNss.Visible := True; + //cboSchedule.ListItemsOnly := True; + //cboXSchedule.ListItemsOnly := True; + end; + with grdDoses do + begin + ColWidths[0] := 8; // select + ColWidths[1] := 160; // dosage + ColWidths[2] := 82; // route + ColWidths[3] := 102; // schedule + ColWidths[4] := 70; // duration + ColWidths[5] := 58; // and/then + Cells[1, 0] := 'Dosage'; + Cells[2, 0] := 'Route'; + Cells[3, 0] := 'Schedule'; + Cells[4, 0] := 'Duration (optional)'; + Cells[5, 0] := 'then/and'; + end; + TAccessibleStringGrid.WrapControl(grdDoses); + + // medication selection + FRowHeight := MainFontHeight + 1; + + IsIMO := IfIsIMODialog; //IMO + if (Self.EvtID > 0) then IsIMO := False; // event order can not be IMO order. + if FInptDlg then x := 'UD RX' + else if (not FInptDlg) and (DlgFormID = OD_MEDNONVA) then x := 'NV RX' + else x := 'O RX'; + if FInptDlg and (not OrderForInpatient) and (not IsIMO) then //IMO + begin + FOutptIV := TRUE; + x := 'IVM RX'; + end; + ListForOrderable(FAllList, ListCount, x); + lstAll.Items.Count := ListCount; + FAllItems := TStringList.Create; + FAllFirst := -1; + FAllLast := -1; + FQuickItems := TStringList.Create; + ListForQuickOrders(FQuickList, ListCount, x); + if ListCount > 0 then + begin + lstQuick.Items.Count := ListCount; + SubsetOfQuickOrders(FQuickItems, FQuickList, 0, 0); + FActiveMedList := lstQuick; + end else + begin + lstQuick.Items.Count := 1; + ListCount := 1; + FQuickItems.Add('0^(No quick orders available)'); + FActiveMedList := lstAll; + end; + // set the height based on user parameter here + with lstQuick do if ListCount < VisibleRowCount + then Height := (((Height - 6) div VisibleRowCount) * ListCount) + 6; + pnlFields.Height := memOrder.Top - 4 - pnlFields.Top; + FNoZero := False; + FShrinked := False; + FShrinkDrugMsg := False; + FResizedAlready := False; + FShowPnlXScheduleOk := True; + FRemoveText := True; +end; + +procedure TfrmODMeds.FormDestroy(Sender: TObject); +begin + {selection} + FQuickItems.Free; + FAllItems.Free; + {edit} + FGuideline.Free; + FAllDoses.Free; + FAllDrugs.Free; + TAccessibleStringGrid.UnwrapControl(grdDoses); + frmFrame.pnlVisit.Enabled := true; + inherited; +end; + +procedure TfrmODMeds.InitDialog; +{ Executed each time dialog is reset after pressing accept. Clears controls & responses } +begin + inherited; + FLastPickup := ValueOf(FLD_PICKUP); + Changing := True; + ResetOnMedChange; + txtMed.Text := ''; + txtMed.Tag := 0; + lstQuick.Selected := nil; + lstAll.Selected := nil; + if Visible then ShowMedSelect; + Changing := False; + FIsQuickOrder := False; + FQOQuantity := 0 ; + FQODosage := ''; + FQOInitial := False; + FNSSOther := False; +end; + +procedure TfrmODMeds.SetupDialog(OrderAction: Integer; const ID: string); +var + AnInstr, OrderID, nsSch, Text: string; + ix: integer; +begin + inherited; + if XfInToOutNow then DisplayGroup := DisplayGroupByName('O RX'); + if CharAt(ID,1)='X' then + begin + OrderID := Copy(Piece(ID, ';', 1), 2, Length(ID)); + CheckExistingPI(OrderID, FPtInstruct); + end; + if OrderAction = ORDER_QUICK then + begin + FIsQuickOrder := True; + FQOInitial := True; + end + else + begin + FIsQuickOrder := False; + FQOInitial := False; + end; + if lblDays.Visible then SetVisibleCommentRows(2) else SetVisibleCommentRows(4); + if OrderAction in [ORDER_COPY, ORDER_EDIT] then Responses.Remove('START', 1); + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then + begin + Changing := True; + txtMed.Tag := StrToIntDef(Responses.IValueFor('ORDERABLE', 1), 0); + SetOnMedSelect; // set up for this medication + SetOnQuickOrder; // insert quick order responses + ShowMedFields; + if (OrderAction = ORDER_EDIT) and OrderIsReleased(Responses.EditOrder) + then btnSelect.Enabled := False; + if (OrderAction in [ORDER_COPY, ORDER_EDIT]) and (self.EvtID <= 0) then //nss + begin + if NSSchedule then + begin + for ix := 0 to Responses.TheList.Count - 1 do + begin + if TResponse(Responses.TheList[ix]).promptid = 'SCHEDULE' then + begin + nsSch := TResponse(Responses.theList[ix]).EVALUE; + if length(nsSch) > 0 then + begin + SetSchedule(nsSch); + {cboSchedule.SelectByID(nsSch); + if cboSchedule.ItemIndex < 0 then + begin + cboSchedule.Items.Add(nsSch); + cboSchedule.ItemIndex := cboSchedule.Items.IndexOf(nsSch); + end;} + end; + end; + end; + end; + end; //nss + if ((OrderAction <> Order_COPY) and (OrderAction <> Order_EDIT)) or + (XfInToOutNow = true) then UpdateRelated(FALSE); //AGP Change + Changing := False; + end; + { prevent the SIG from being part of the comments on pre-CPRS prescriptions } + if (OrderAction in [ORDER_COPY, ORDER_EDIT]) and (cboDosage.Text = '') then + begin + OrderID := Copy(Piece(ID, ';', 1), 2, Length(ID)); + AnInstr := TextForOrder(OrderID); + pnlMessage.TabOrder := 0; + DispOrderMessage(AnInstr); + if OrderAction = ORDER_COPY + then AnInstr := 'Copy: ' + AnInstr + else AnInstr := 'Change: ' + AnInstr; + Text := AnsiReplaceText(AnInstr,CRLF,''); + Caption := Text; + memComment.Clear; // sometimes the sig is in the comment + end; + ControlChange(Self); + if Self.IsSupply then + btnSelect.Enabled := False; +end; + +procedure TfrmODMeds.Validate(var AnErrMsg: string); +var + i,ie,code: Integer; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + + procedure ValidateDosage(const x: string); + begin + if Length(x) = 0 then SetError(TX_NO_DOSE); + end; + + procedure ValidateRoute(const x: string; NeedLookup: Boolean; AnInstance: Integer); + var + RouteID, RouteAbbr: string; + begin + //if order does not have route, and is not a supply order, + // and is not an outpaitent order, then display error text to require route + if (Length(x) = 0) and (Not IsSupplyAndOutPatient) then + begin + if cboRoute.Showing = true then cboRoute.SetFocus; //CQ: 7467 + SetError(TX_NO_ROUTE); + end; + if (Length(x) > 0) and NeedLookup then + begin + LookupRoute(x, RouteID, RouteAbbr); + if RouteID = '0' + then + begin + if cboRoute.Showing = true then cboRoute.SetFocus; //CQ: 7467 + SetError(TX_NF_ROUTE); + end + else Responses.Update('ROUTE', AnInstance, RouteID, RouteAbbr); + end; + end; + + procedure ValidateSchedule(const x: string; AnInstance: Integer); + const + SCH_BAD = 0; + SCH_NO_RTN = -1; + var + ValidLevel: Integer; + ARoute, ADrug, tmpX: string; + begin + ARoute := ValueOfResponse(FLD_ROUTE_ID, AnInstance); + ADrug := ValueOfResponse(FLD_DRUG_ID, AnInstance); + tmpX := x; //Changed for CQ: 7370 - it was tmpX := Trim(x); + if (Length(tmpX) = 0) and (not FInptDlg) then SetError(TX_NO_SCHED) + else if (Length(tmpX) = 0) and FInptDlg and ScheduleRequired(txtMed.Tag, ARoute, ADrug) + then SetError(TX_NO_SCHED); + if Length(tmpX) > 0 then + begin + if FInptDlg then ValidLevel := ValidSchedule(tmpX) else ValidLevel := ValidSchedule(tmpX, 'O'); + if ValidLevel = SCH_NO_RTN then + begin + if Pos('"', tmpX) > 0 then SetError(TX_SCH_QUOTE); + if Copy(tmpX, 1, 1) = '-' then SetError(TX_SCH_MINUS); + if Pos(' ', Copy(tmpX, Pos(' ', tmpX) + 1, 999)) > 0 then SetError(TX_SCH_SPACE); + if Length(tmpX) > 70 then SetError(TX_SCH_LEN); + if (Pos('P RN', tmpX) > 0) or (Pos('PR N', tmpX) > 0) then SetError(TX_SCH_PRN); + if Pos('Q0', tmpX) > 0 then SetError(TX_SCH_ZERO); + if TrimLeft(tmpX) <> tmpX then SetError(TX_SCH_LSP); + end; + if ValidLevel = SCH_BAD then SetError(TX_SCH_NS); + end; + end; + +begin + inherited; + ControlChange(Self); // make sure everything is updated + if txtMed.Tag = 0 then SetError(TX_NO_MED); + if Responses.InstanceCount('INSTR') < 1 then SetError(TX_NO_DOSE); + i := Responses.NextInstance('INSTR', 0); + while i > 0 do + begin + if (ValueOfResponse(FLD_DRUG_ID, i) = '') then + begin + if not ContainsAlpha(Responses.IValueFor('INSTR', i)) then + begin + SetError(TX_DOSE_NUM); + if tabDose.TabIndex = TI_DOSE then + cboDosage.SetFocus; //CQ: 7467 + end; + if Length(Responses.IValueFor('INSTR', i)) > 60 then + begin + SetError(TX_DOSE_LEN); + cboDosage.SetFocus; //CQ: 7467 + end; + end; + ValidateRoute(Responses.EValueFor('ROUTE', i), Responses.IValueFor('ROUTE', i) = '', i); + ValidateSchedule(ValueOfResponse(FLD_SCHEDULE, i), i); + i := Responses.NextInstance('INSTR', i); + end; + //AGP Change 26.45 Fix for then/and conjucntion PSI-04-069 + if self.tabDose.TabIndex = 1 then + begin + for i := 2 to self.grdDoses.RowCount do + begin + if ((ValFor(COL_DOSAGE, i-1) <> '') and (ValFor(COL_DOSAGE, i) <> '')) and (ValFor(COL_SEQUENCE,i-1) = '') then + begin + SetError(TX_NO_SEQ); + Exit; + end; + end; + end; + if not FInptDlg then // outpatient stuff + begin + if Responses.IValueFor('PICKUP', 1) = '' then SetError(TX_NO_PICK); + if StrToIntDef(Responses.IValueFor('REFILLS', 1), 99) > spnRefills.Max + then SetError(TX_RNG_REFILL + IntToStr(spnRefills.Max)); + with txtQuantity do + if not ValidQuantity(Responses.IValueFor('QTY', 1)) then SetError(TX_QTY_NV); + with txtSupply do + begin + txtSupply.Text := Trim(txtSupply.Text); + Val( txtSupply.Text, ie, code); + if (code <> 0) and (ie = 0)then + begin + SetError(TX_SUPPLY_NINT); + Exit; + end; + if (StrToIntDef(Responses.IValueFor('SUPPLY', 1), 0) > 90) then SetError(TX_SUPPLY_LIM); + if (StrToIntDef(Responses.IValueFor('SUPPLY', 1), 0) < 1) then SetError(TX_SUPPLY_LIM1); + end; + end; +end; + +procedure TfrmODMeds.SetVisibleCommentRows( Rows: integer); +begin + memComment.Height := (Abs(Font.Height)+2)*Rows+8; +end; + +procedure TfrmODMeds.SetControlsInpatient; +begin + FillerID := 'PSI'; + CtrlInits.LoadDefaults(ODForMedsIn); + lblPriority.Top := pnlFields.Height - cboPriority.Height - lblPriority.Height - 1; + cboPriority.Top := pnlFields.Height - cboPriority.Height; + lblDays.Visible := False; + txtSupply.Visible := False; + spnSupply.Visible := False; + lblQuantity.Visible := False; + txtQuantity.Visible := False; + spnQuantity.Visible := False; + lblQtyMsg.Visible := False; + lblRefills.Visible := False; + txtRefills.Visible := False; + spnRefills.Visible := False; + grpPickup.Visible := False; + lblPriority.Visible := True; + cboPriority.Visible := True; + chkSC.Visible := False; + chkDoseNow.Visible := True; + lblAdminTime.Visible := True; +end; + +procedure TfrmODMeds.SetControlsOutpatient; +var + ExceptItem: TMenuItem; +begin + FillerID := 'PSO'; + CtrlInits.LoadDefaults(ODForMedsOut); + lblPriority.Top := lblQuantity.Top; + cboPriority.Top := txtQuantity.Top; + lblDays.Visible := True; + txtSupply.Visible := True; + spnSupply.Visible := True; + lblQuantity.Visible := True; + txtQuantity.Visible := True; + spnQuantity.Visible := True; + lblQtyMsg.Visible := True; + lblRefills.Visible := True; + txtRefills.Visible := True; + spnRefills.Visible := True; + grpPickup.Visible := True; + lblPriority.Visible := True; + cboPriority.Visible := True; + chkSC.Visible := True; + chkDoseNow.Visible := False; + lblAdminTime.Visible := False; + ExceptItem := TMenuItem.Create(Self); + ExceptItem.Caption := 'except'; + ExceptItem.Tag := 3; + ExceptItem.OnClick := popXSequenceClick; + popXSequence.Items.Add(ExceptItem); +end; + +{ Navigate medication selection lists ------------------------------------------------------- } + +{ txtMed methods (including timers) } + +procedure TfrmODMeds.WMTimer(var Message: TWMTimer); +begin + inherited; + if (Message.TimerID = TIMER_ID) then + begin + StopKeyTimer; + ChangeDelayed; + end; +end; + +procedure TfrmODMeds.StartKeyTimer; +{ start (or restart) a timer (done on keyup to delay before calling OnKeyPause) } +var + ATimerID: Integer; +begin + StopKeyTimer; + ATimerID := SetTimer(Handle, TIMER_ID, TIMER_DELAY, nil); + FKeyTimerActive := ATimerID > 0; + // if can't get a timer, just call the event immediately F + if not FKeyTimerActive then Perform(WM_TIMER, TIMER_ID, 0); +end; + +procedure TfrmODMeds.StopKeyTimer; +{ stop the timer (done whenever a key is pressed or the combobox no longer has focus) } +begin + if FKeyTimerActive then + begin + KillTimer(Handle, TIMER_ID); + FKeyTimerActive := False; + end; +end; + +function TfrmODMeds.FindQuickOrder(const x: string): Integer; +var + i: Integer; +begin + Result := -1; + if x = '' then Exit; + for i := 0 to Pred(FQuickItems.Count) do + begin + if (Result > -1) or (FQuickItems[i] = '') then Break; + if AnsiCompareText(x, Copy(Piece(FQuickItems[i],'^',2), 1, Length(x))) = 0 then Result := i; + end; +end; + +procedure TfrmODMeds.txtMedKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +var + i: Integer; + x: string; +begin + if Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN] then // navigation + begin + FActiveMedList.Perform(WM_KEYDOWN, Key, 0); + FFromSelf := True; + //txtMed.Text := FActiveMedList.Selected.Caption; + txtMed.SelectAll; + FFromSelf := False; + Key := 0; + end + else if Key = VK_BACK then + begin + FFromSelf := True; + x := txtMed.Text; + i := txtMed.SelStart; + if i > 1 then Delete(x, i + 1, Length(x)) else x := ''; + txtMed.Text := x; + if i > 1 then txtMed.SelStart := i; + FFromSelf := False; + end + else {StartKeyTimer}; +end; + +procedure TfrmODMeds.txtMedKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if not (Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN]) then StartKeyTimer; +end; + +procedure TfrmODMeds.txtMedChange(Sender: TObject); +begin + if FFromSelf then Exit; + FChangePending := True; +end; + +procedure TfrmODMeds.ScrollToVisible(AListView: TListView); +var + Offset: Integer; + SelRect: TRect; +begin + AListView.Selected.MakeVisible(FALSE); + SelRect := AListView.Selected.DisplayRect(drBounds); + FRowHeight := SelRect.Bottom - SelRect.Top; + Offset := AListView.Selected.Index - AListView.TopItem.Index; + Application.ProcessMessages; + if Offset > 0 then AListView.Scroll(0, (Offset * FRowHeight)); + Application.ProcessMessages; +end; + +procedure TfrmODMeds.ChangeDelayed; +var + QuickIndex, AllIndex: Integer; + NewText, OldText, UserText: string; + UniqueText: Boolean; +begin + FRemoveText := False; + UniqueText := False; + FChangePending := False; + if (Length(txtMed.Text) > 0) and (txtMed.SelStart = 0) then Exit; // don't lookup null + // lookup item in appropriate list box + NewText := ''; + UserText := Copy(txtMed.Text, 1, txtMed.SelStart); + QuickIndex := FindQuickOrder(UserText); // look in quick list first + AllIndex := IndexOfOrderable(FAllList, UserText); // but always synch the full list + if UserText <> Copy(txtMed.Text, 1, txtMed.SelStart) then Exit; // if typing during lookup + if AllIndex > -1 then + begin + lstAll.Selected := lstAll.Items[AllIndex]; + FActiveMedList := lstAll; + end; + if QuickIndex > -1 then + begin + try + lstQuick.Selected := lstQuick.Items[QuickIndex]; + lstQuick.ItemFocused := lstQuick.Selected; + NewText := lstQuick.Selected.Caption; + FActiveMedList := lstQuick; + //Search Quick List for Uniqueness + UniqueText := isUniqueQuickOrder(UserText); + except + //doing nothing short term solution related to 117 + end; + end + else if AllIndex > -1 then + begin + lstAll.Selected := lstAll.Items[AllIndex]; + lstAll.ItemFocused := lstAll.Selected; + NewText := lstAll.Selected.Caption; + lstQuick.Selected := nil; + FActiveMedList := lstAll; + //List is alphabetical, So compare next Item in list to establish uniqueness. + if CompareText(UserText, Copy(lstAll.Items[AllIndex+1].Caption, 1, Length(UserText))) <> 0 then + UniqueText := True; + end + else + begin + lstQuick.Selected := nil; + lstAll.Selected := nil; + FActiveMedList := lstAll; + NewText := txtMed.Text; + end; + if (AllIndex > -1) and (QuickIndex > -1) then //Not Unique Between Lists + UniqueText := False; + FFromSelf := True; + {AutoSelection is only based upon uniquely matching characters. + Several CQs have been resolved relating to this issue: + See CQ: + 7326 - Auto complete does not work correctly if user has quick orders in Medication list + 7328 - PSI-05-016: TAM-0205-31170 Med Error due to pre-populated med screen + 6715 PSI-04-044 Orders: NJH-0804-20315 Physician unable to enter medication order + } + if UniqueText then + begin + OldText := Copy(txtMed.Text, 1, txtMed.SelStart); + txtMed.Text := NewText; + //txtMed.SelStart := Length(OldText); // v24.14 RV + txtMed.SelStart := Length(UserText); // v24.14 RV + txtMed.SelLength := Length(NewText); + end + else begin + txtMed.Text := UserText; + txtMed.SelStart := Length(txtMed.Text); + end; + FFromSelf := False; + if lstAll.Selected <> nil then + ScrollToVisible(lstAll); + if lstQuick.Selected <> nil then + ScrollToVisible(lstQuick); + if Not UniqueText then + begin + lstQuick.ItemIndex := -1; + lstAll.ItemIndex := -1; + end; + FRemoveText := True; +end; + +procedure TfrmODMeds.txtMedExit(Sender: TObject); +begin + StopKeyTimer; + if not ((ActiveControl = lstAll) or (ActiveControl = lstQuick)) then ChangeDelayed; +end; + +{ lstAll & lstQuick methods } + +procedure TfrmODMeds.ListViewEnter(Sender: TObject); +begin + inherited; + FActiveMedList := TListView(Sender); + with Sender as TListView do + begin + if Selected = nil then Selected := TopItem; + if Name = 'lstQuick' then lstAll.Selected := nil else lstQuick.Selected := nil; + ItemFocused := Selected; + //ScrollToVisible(TListView(Sender)); + end; +end; + +procedure TfrmODMeds.ListViewClick(Sender: TObject); +begin + inherited; + btnSelect.Visible := True; + btnSelect.Enabled := True; + //txtMed.Text := FActiveMedList.Selected.Caption; + PostMessage(Handle, UM_DELAYCLICK, 0, 0); +end; + +procedure TfrmODMeds.UMDelayClick(var Message: TMessage); +begin + btnSelectClick(Self); +end; + +procedure TfrmODMeds.ListViewEditing(Sender: TObject; Item: TListItem; + var AllowEdit: Boolean); +begin + AllowEdit := FALSE; +end; + +procedure TfrmODMeds.ListViewKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin +//This code emulates combo-box behavior on the quick view and all meds view. +//I think this is a really bad idea because it cannot automatically be undone. +//Example: pull up a valid medication. Press change button. Press tab. Valid +//medication is gone, replaced by first quick order entry. Not good behavior +//when tabbing through page. +//If we are going to use an edit box to play combo box, I emphatically suggest +//that we use a different edit box. +(* + with Sender as TListView do + begin + if txtMed.Text = Selected.Caption then Exit; // for tabs, arrows, etc. + FFromSelf := True; + txtMed.Text := Selected.Caption; + txtMed.SelectAll; + FFromSelf := False; + Key := 0; + end; +*) +end; + +procedure TfrmODMeds.ListViewResize(Sender: TObject); +begin + with Sender as TListView do Columns.Items[0].Width := ClientWidth - 20; +end; + +{ lstAll Methods (lstAll is TListView) } + +procedure TfrmODMeds.LoadMedCache(First, Last: Integer); +const + MAX_CACHE_ITEMS = 1000; +begin + // if range is within cache range we don't need to update anything + if (First >= FAllFirst) and (Last <= FAllLast) then Exit; + // if range is outside of cache or a superset of cache, start over + if (Last < Pred(FAllFirst)) or (First > Succ(FAllLast)) or + ((First < FAllFirst) and (Last > FAllLast)) or + (FAllItems.Count > MAX_CACHE_ITEMS) then + begin + FAllItems.Clear; + FAllFirst := -1; + FAllLast := -1; + end; + // if getting items immediately before cache range + if (First < FAllFirst) and (Last >= FAllFirst) then Last := Pred(FAllFirst); + // if getting items immediately after cache range + if (Last > FAllLast) and (First <= FAllLast) then First := Succ(FAllLast); + // retrieve the items and append (First>FAllLast) or prepend them to FAllItems + SubsetOfOrderable(FAllItems, First>FAllLast, FAllList, First, Last); + // reset FAllFirst & FAllLast indexes to reflect current FAllItems + if FAllFirst < 0 then FAllFirst := First; + if FAllLast < 0 then FAllLast := Last; + if First < FAllFirst then FAllFirst := First; + if Last > FAllLast then FAllLast := Last; +end; + +procedure TfrmODMeds.lstAllData(Sender: TObject; Item: TListItem); +var + x: string; +begin + if (FAllFirst = -1) or (Item.Index < FAllFirst) or (Item.Index > FAllLast) + then LoadMedCache(Item.Index, Item.Index); + x := FAllItems[Item.Index - FAllFirst]; + Item.Caption := Piece(x, U, 2); + Item.Data := Pointer(StrToIntDef(Piece(x, U, 1), 0)); +end; + +procedure TfrmODMeds.lstAllDataHint(Sender: TObject; StartIndex, + EndIndex: Integer); +begin + LoadMedCache(StartIndex, EndIndex); +end; + +{ lstQuick methods (lstQuick is TListView) } + +procedure TfrmODMeds.lstQuickData(Sender: TObject; Item: TListItem); +var + x: string; +begin +{ try + if FQuickItems[Item.Index] = '' then + SubsetOfQuickOrders(FQuickItems, FQuickList, Item.Index, Item.Index);} + x := FQuickItems[Item.Index]; + Item.Caption := Piece(x, U, 2); + Item.Data := Pointer(StrToIntDef(Piece(x, U, 1), 0)); +{ except + // doing nothing + end;} +end; + +procedure TfrmODMeds.lstQuickDataHint(Sender: TObject; StartIndex, + EndIndex: Integer); +begin + +end; + +{ Medication is now selected ---------------------------------------------------------------- } + +procedure TfrmODMeds.btnSelectClick(Sender: TObject); +var + MedIEN: Integer; + MedName: string; + QOQuantityStr: string; + ErrMsg: string; +begin + inherited; + QOQuantityStr := ''; + btnSelect.SetFocus; // let the exit events finish + + if pnlMeds.Visible then // display the medication fields + begin + Changing := True; + ResetOnMedChange; + if (FActiveMedList = lstQuick) and (lstQuick.Selected <> nil) then // quick order + begin + ErrMsg := ''; + FIsQuickOrder := True; + FQOInitial := True; + Responses.QuickOrder := Integer(lstQuick.Selected.Data); + txtMed.Tag := StrToIntDef(Responses.IValueFor('ORDERABLE', 1), 0); + IsActivateOI(ErrMsg, txtMed.Tag); + if Length(ErrMsg)>0 then + begin + //btnSelect.Visible := False; + btnSelect.Enabled := False; + ShowMessage(ErrMsg); + Exit; + end; + if DEACheckFailed(txtMed.Tag, FInptDlg) then + begin + //btnSelect.Visible := False; + btnSelect.Enabled := False; + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + txtMed.Tag := 0; + txtMed.SetFocus; + Exit; + end; + if txtMed.Tag = 0 then + begin + //btnSelect.Visible := False; + btnSelect.Enabled := False; + txtMed.SetFocus; + Exit; + end; + SetOnMedSelect; // set up for this medication + SetOnQuickOrder; // insert quick order responses + if Length(txtQuantity.Text)>0 then + QOQuantityStr := txtQuantity.Text; + ShowMedFields; + if (txtQuantity.Text = '0') and (Length(QOQuantityStr)>0) then + txtQuantity.Text := QOQuantityStr; + end + else if (FActiveMedList = lstAll) and (lstAll.Selected <> nil) then // orderable item + begin + MedIEN := Integer(lstAll.Selected.Data); + MedName := lstAll.Selected.Caption; + txtMed.Tag := MedIEN; + ErrMsg := ''; + IsActivateOI(ErrMsg, txtMed.Tag); + if Length(ErrMsg)>0 then + begin + //btnSelect.Visible := False; + btnSelect.Enabled := False; + ShowMessage(ErrMsg); + Exit; + end; + if DEACheckFailed(txtMed.Tag, FInptDlg) then + begin + //btnSelect.Visible := False; + btnSelect.Enabled := False; + InfoBox(TX_NO_DEA, TC_NO_DEA, MB_OK); + txtMed.Tag := 0; + txtMed.SetFocus; + Exit; + end; + if Pos(' NF', MedName) > 0 then + begin + CheckFormularyOI(MedIEN, MedName, FInptDlg); + FAltChecked := True; + end; + if MedIEN <> txtMed.Tag then + begin + txtMed.Tag := MedIEN; + txtMed.Text := MedName; + end; + SetOnMedSelect; + ShowMedFields; + end + else // no selection + begin + //btnSelect.Visible := False; + btnSelect.Enabled := False; + MessageBeep(0); + //btnSelect.Visible := False; + btnSelect.Enabled := False; + Exit; + end; + UpdateRelated(False); + Changing := False; + ControlChange(Self); + end + else ShowMedSelect; // show the selection fields + FNoZERO := False; +end; + +procedure TfrmODMeds.ResetOnMedChange; +var + i: Integer; +begin + Responses.Clear; + // clear dialog controls individually, since they are on panels + with grdDoses do for i := 1 to Pred(RowCount) do Rows[i].Clear; + cboDosage.Items.Clear; + cboDosage.Text := ''; + cboRoute.Items.Clear; + cboRoute.Text := ''; + cboRoute.Hint := cboRoute.Text; + cboSchedule.ItemIndex := -1; + cboSchedule.Text := ''; // leave items intact + chkPRN.Checked := False; + memComment.Lines.Clear; + txtSupply.Text := ''; + txtQuantity.Text := ''; + txtRefills.Text := '0'; + lblQtyMsg.Caption := ''; + lblQuantity.Caption := 'Quantity'; + chkDoseNow.Checked := FALSE; + lblAdminTime.Caption := ''; + chkPtInstruct.Checked := False; + chkPtInstruct.Visible := False; + memPI.Visible := False; + stcPI.Visible := False; + image1.Visible := False; + memDrugMsg.Visible := False; + FLastUnits := ''; + FLastSchedule := ''; + FLastDuration := ''; + FLastInstruct := ''; + FLastDispDrug := '-1'; + FLastQuantity := 0; + FLastSupply := 0; + FAltChecked := False; + FPtInstruct := ''; +end; + +procedure TfrmODMeds.ResetOnTabChange; +var + i: Integer; +begin + with grdDoses do for i := 1 to Pred(RowCount) do Rows[i].Clear; + Responses.Clear('STRENGTH'); + Responses.Clear('NAME'); + Responses.Clear('INSTR'); + Responses.Clear('DOSE'); + Responses.Clear('DRUG'); + Responses.Clear('DAYS'); + Responses.Clear('ROUTE'); + Responses.Clear('SCHEDULE'); + Responses.Clear('START', 1); + Responses.Clear('SIG'); + Responses.Clear('SUPPLY'); + Responses.Clear('QTY'); + cboDosage.ItemIndex := -1; + cboDosage.Text := ''; + cboRoute.ItemIndex := -1; + cboRoute.Text := ''; + cboSchedule.ItemIndex := -1; + cboSchedule.Text := ''; // leave items intact + txtSupply.Text := ''; + txtSupply.Tag := 0; + txtQuantity.Text := ''; + txtQuantity.Tag := 0; + lblQtyMsg.Caption := ''; + lblQuantity.Caption := 'Quantity'; + FSmplPRNChkd := chkPRN.Checked; // GE CQ7585 + chkPRN.Checked := False; + FLastUnits := ''; + FLastSchedule := ''; + FLastDuration := ''; + FLastInstruct := ''; + FLastDispDrug := ''; + FDrugID := ''; +end; + +procedure TfrmODMeds.SetOnMedSelect; +var + i,j: Integer; + x: string; + QOPiUnChk: boolean; + PKIEnviron: boolean; +begin + // clear controls? + cboDosage.Tag := -1; + txtSupply.Tag := 0; + txtQuantity.Tag := 0; + spnQuantity.Tag := 0; + chkSC.Tag := 0; + QOPiUnChk := False; + PKIEnviron := False; + if GetPKISite then PKIEnviron := True; + with CtrlInits do + begin + // set up CtrlInits for orderable item + LoadOrderItem(OIForMed(txtMed.Tag, FInptDlg, IncludeOIPI, PKIEnviron)); + // set up lists & initial values based on orderable item + SetControl(txtMed, 'Medication'); + SetControl(cboDosage, 'Dosage'); + SetControl(cboRoute, 'Route'); + if cboRoute.Items.Count = 1 then cboRoute.ItemIndex := 0; + cboRouteChange(Self); + x := DefaultText('Schedule'); + if x <> '' then + begin + cboSchedule.SelectByID(x); + cboSchedule.Text := x; + end; + if Length(ValueOf(FLD_QTYDISP))>10 then + begin + lblQuantity.Caption := Copy(ValueOf(FLD_QTYDISP),0,7) + '...'; + lblQuantity.Hint := ValueOf(FLD_QTYDISP); + end; + FAllDoses.Text := TextOf('AllDoses'); + FAllDrugs.Text := TextOf('Dispense'); + FGuideline.Text := TextOf('Guideline'); + case FGuideline.Count of + 0: lblGuideline.Visible := False; + 1: begin + lblGuideline.Caption := FGuideline[0]; + lblGuideline.Visible := TRUE; + end; + else begin + lblGuideline.Caption := 'Display Restrictions/Guidelines'; + lblGuideline.Visible := TRUE; + end; + end; + if FInptDlg then + begin + if not FResizedAlready then + begin + pnlBottom.Height := pnlBottom.Height - lblDays.Height - txtSupply.Height + - stcPi.Height - memPi.Height + 6; + FResizedAlready := True; + end; + pnlTop.Height := pnlFields.Height - pnlBottom.Height; + chkDoseNow.Top := memComment.Top + memComment.Height + 1; + lblPriority.Top := memcomment.Top + memComment.Height + 1; + cboPriority.Top := lblPriority.Top + lblPriority.Height; + lblAdminTime.Left := chkDoseNow.Left; + lblAdminTime.Top := chkDoseNow.Top + chkDoseNow.Height - 1; + end else + begin + DEASig := ''; + if GetPKISite then DEASig := DefaultText('DEASchedule'); + FSIGVerb := DefaultText('Verb'); + if Length(FSIGVerb) = 0 then FSIGVerb := TX_TAKE; + FSIGPrep := DefaultText('Preposition'); + if FLastPickup <> '' then SetPickup(FLastPickup) else SetPickup(DefaultText('Pickup')); + SetControl(txtRefills, 'Refills'); + for j := 0 to Responses.TheList.Count - 1 do + begin + if (TResponse(Responses.theList[j]).PromptID = 'PI') and (TResponse(Responses.theList[j]).EValue = ' ') then + QOPiUnChk := True; + end; + //if Length(FPtInstruct) = 0 then + FPtInstruct := TextOf('PtInstr'); + for i := 1 to Length(FPtInstruct) do if Ord(FPtInstruct[i]) < 32 then FPtInstruct[i] := ' '; + FPtInstruct := TrimRight(FPtInstruct); + if Length(FPtInstruct) > 0 then + begin + //chkPtInstruct.Caption := FPtInstruct; + if memPI.Lines.Count > 0 then + memPI.Lines.Clear; + memPI.Lines.Add(FPtInstruct); + chkPtInstruct.Visible := True; + chkPtInstruct.Checked := True; + stcPI.Visible := True; + memPI.Visible := True; + if FShrinked then + begin + pnlBottom.Height := pnlBottom.Height + memPi.Height + stcPI.Height + 2; + FShrinked := False; + end; + if QOPiUnChk then + chkPtInstruct.Checked := False; + end else + begin + chkPtInstruct.Visible := False; + chkPtInstruct.Checked := False; + stcPI.Visible := False; + memPI.Visible := False; + if not FShrinked then + begin + pnlBottom.Height := pnlBottom.Height - stcPI.Height - memPI.Height - 2; + FShrinked := True; + end; + end; + end; + pnlMessage.TabOrder := cboDosage.TabOrder + 1; + DispOrderMessage(TextOf('Message')); + end; +end; + +procedure TfrmODMeds.SetOnQuickOrder; +var + AResponse: TResponse; + x,LocRoute,TempSch,DispGrp: string; + i, DispDrug: Integer; +begin + // txtMed already set by SetOnMedSelect + with Responses do + begin + if (InstanceCount('INSTR') > 1) or (InstanceCount('DAYS') > 0) then // complex dose + begin + grdDoses.RowCount := HigherOf(InstanceCount('INSTR')+2, 4); + i := Responses.NextInstance('INSTR', 0); + while i > 0 do + begin + SetDosage(IValueFor('INSTR', i)); + with cboDosage do + if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] + else x := IValueFor('INSTR',i); //AGP Change 26.41 for CQ 9102 PSI-05-015 affect copy and edit functionality + grdDoses.Cells[COL_DOSAGE, i] := x; + SetControl(cboRoute, 'ROUTE', i); + with cboRoute do + if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text; + grdDoses.Cells[COL_ROUTE, i] := x; + if FIsQuickOrder then TempSch := cboSchedule.Text; + SetSchedule(IValueFor('SCHEDULE', i)); + if (cboSchedule.Text = '') and FIsQuickOrder then + begin + cboSchedule.SelectByID(TempSch); + cboSchedule.Text := TempSch; + end; + x := cboSchedule.Text; + if chkPRN.Checked then x := x + ' PRN'; + with cboSchedule do + if ItemIndex > -1 then x := x + TAB + Items[ItemIndex]; + grdDoses.Cells[COL_SCHEDULE, i] := x; + if chkPRN.Checked = True then grdDoses.Cells[COL_CHKXPRN,i] := '1'; + grdDoses.Cells[COL_DURATION, i] := IValueFor('DAYS', i); + if IValueFor('CONJ', i) = 'A' then x := 'AND' + else if IValueFor('CONJ', i) = 'T' then x := 'THEN' + else if IValueFor('CONJ', i) = 'X' then x := 'EXCEPT' + else x := ''; + grdDoses.Cells[COL_SEQUENCE, i] := x; + i := Responses.NextInstance('INSTR', i); + end; {while} + end else // single dose + begin + if FIsQuickOrder then + begin + FQODosage := IValueFor('INSTR', 1); + SetDosage(FQODosage); + TempSch := cboSchedule.Text; + end + else + SetDosage(IValueFor('INSTR', 1)); + SetControl(cboRoute, 'ROUTE', 1); + SetSchedule(IValueFor('SCHEDULE', 1)); + if (cboSchedule.Text = '') and FIsQuickOrder then + begin + cboSchedule.SelectByID(TempSch); + cboSchedule.Text := TempSch; + end; + if ((cboSchedule.Text = 'OTHER') and FIsQuickOrder) then + FNSSOther := True; + DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID), 0); + if Length(ValueOf(FLD_QTYDISP))>10 then + begin + lblQuantity.Caption := Copy(ValueOf(FLD_QTYDISP),0,7) + '...'; + lblQuantity.Hint := ValueOf(FLD_QTYDISP); + end; + if DispDrug > 0 then + begin + DispOrderMessage(DispenseMessage(DispDrug)); + x := QuantityMessage(DispDrug); + end; + if Length(x) > 0 + then lblQtyMsg.Caption := TX_QTY_PRE + x + TX_QTY_POST + else lblQtyMsg.Caption := ''; + end; + SetControl(memComment , 'COMMENT', 1); + SetControl(cboPriority, 'URGENCY', 1); + if FInptDlg then + begin + SetControl(chkDoseNow, 'NOW', 1); + chkDoseNowClick(Self); + end else + begin + SetControl(txtSupply, 'SUPPLY', 1); + txtSupply.Text := Trim(txtSupply.Text); + spnSupply.Position := StrToIntDef(txtSupply.Text, 0); + { setting .Tag=1 was commented out because xfer & change were not auto-calculating } + //if spnSupply.Position <> 0 then txtSupply.Tag := 1; + if Length(IValueFor('QTY',1))>0 then + begin + FQOQuantity := StrToFloat(IValueFor('QTY',1)); + txtQuantity.Text := FloatToStr(FQOQuantity); + end; + SetControl(txtQuantity, 'QTY', 1); + SetControl(txtRefills, 'REFILLS', 1); + spnRefills.Position := StrToIntDef(txtRefills.Text, 0); + AResponse := Responses.FindResponseByName('PICKUP', 1); + if AResponse <> nil then SetPickup(AResponse.IValue); + if FIsQuickOrder then + begin + if not QOHasRouteDefined(Responses.QuickOrder) then + begin + LocRoute := GetPickupForLocation(IntToStr(Encounter.Location)); + SetPickup(LocRoute); + end; + end; + DispGrp := NameOfDGroup(Responses.DisplayGroup); + if (AResponse = nil) or ((StrToIntDef(Piece(Responses.CopyOrder,';',1),0)>0) and AnsiSameText('Out. Meds',DispGrp)) then + begin + LocRoute := GetPickupForLocation(IntToStr(Encounter.Location)); + SetPickup(LocRoute); + end; + if ValueOf(FLD_PICKUP) = '' then SetPickup(FLastPickup); + AResponse := Responses.FindResponseByName('SC', 1); + if AResponse <> nil then chkSC.Checked := AResponse.IValue = '1'; + end; {if FInptDlg..else} + end; {with} + if FInptDlg then + begin + x := ValueOfResponse(FLD_SCHEDULE, 1); + if Length(x) > 0 then UpdateStartExpires(x); + end; +end; + +procedure TfrmODMeds.ShowMedSelect; +begin + txtMed.SelStart := Length(txtMed.Text); + ChangeDelayed; // synch the listboxes with display + pnlFields.Enabled := False; + pnlFields.Visible := False; + pnlMeds.Enabled := True; + pnlMeds.Visible := True; + pnlFields.Height := MemOrder.Top - 4 - pnlFields.Top; + if btnSelect.Caption = 'Change' then + begin + btnSelect.Caption := 'OK'; + //btnSelect.Visible := false; + btnSelect.Enabled := false; + end; + btnSelect.Top := memOrder.Top; + btnSelect.Anchors := [akRight, akBottom]; + btnSelect.BringToFront; + cmdAccept.Visible := False; + cmdAccept.Default := False; + btnSelect.Default := True; + cmdAccept.Left := cmdQuit.Left; + cmdAccept.Top := MemOrder.Top; + btnSelect.TabOrder := cmdAccept.TabOrder; + cmdAccept.TabStop := False; + txtMed.Width := grdDoses.Width; + txtMed.Font.Color := clWindowText; + txtMed.Color := clWindow; + txtMed.ReadOnly := False; + txtMed.SelectAll; + txtMed.SetFocus; + FDrugID := ''; + //ShowOrderMessage( False ); +end; + +procedure TfrmODMeds.ShowMedFields; +begin + pnlMeds.Enabled := False; + pnlMeds.Visible := False; + pnlFields.Enabled := True; + pnlFields.Visible := True; + pnlFields.Height := MemOrder.Top - 4 - pnlFields.Top; + btnSelect.Caption := 'Change'; + btnSelect.Visible := True; + btnSelect.Enabled := True; + btnSelect.Top := txtMed.Top; + btnSelect.Anchors := [akRight, akTop]; + btnSelect.Default := False; + cmdAccept.Visible := True; + cmdAccept.Default := True; + cmdAccept.Left := cmdQuit.Left; + cmdAccept.Top := MemOrder.Top; + btnSelect.TabOrder := txtMed.TabOrder + 1; + cmdAccept.TabStop := True; + txtMed.Width := memOrder.Width; + txtMed.Font.Color := clInfoText; + txtMed.Color := clInfoBk; + txtMed.ReadOnly := True; + if (Responses.InstanceCount('INSTR') > 1) or (Responses.InstanceCount('DAYS') > 0) + then ShowControlsComplex else ShowControlsSimple; +end; + +procedure TfrmODMeds.ShowControlsSimple; +//var + //dosagetxt: string; +begin + //Commented out, no longer using CharsNeedMatch Property +{ NumCharsForMatch := 0; + for i := 0 to cboDosage.Items.Count - 1 do //find the shortest unit dose text on fifth piece + begin + dosagetxt := Piece(cboDosage.Items[i],'^',5); + if Length(dosagetxt) < 1 then break; + if NumCharsForMatch = 0 then + NumCharsForMatch := Length(dosagetxt); + if (NumCharsForMatch > Length(dosagetxt)) then + NumCharsForMatch := Length(dosagetxt); + end; + if NumCharsForMatch > 1 then + cboDosage.CharsNeedMatch := NumCharsForMatch - 1; + if NumCharsForMatch > 5 then + cboDosage.CharsNeedMatch := 5;} + tabDose.TabIndex := TI_DOSE; + grdDoses.Visible := False; + btnXInsert.Visible := False; + btnXRemove.Visible := False; + cboDosage.Visible := True; + lblRoute.Visible := True; + cboRoute.Visible := True; + lblSchedule.Visible := True; + cboSchedule.Visible := True; + chkPRN.Visible := True; + ActiveControl := cboDosage; +end; + +procedure TfrmODMeds.ShowControlsComplex; + + procedure MoveCombo(SrcCombo, DestCombo: TORComboBox; CompSch: boolean = false); //AGP Changes 26.12 PSI-04-63 + var + cnt,i,index: integer; + node,text: string; + begin + if (CompSch = false) or not (FInptDlg)then + begin + DestCombo.Items.Clear; + DestCombo.Items.Assign(SrcCombo.Items); + DestCombo.ItemIndex := SrcCombo.ItemIndex; + DestCombo.Text := Piece(SrcCombo.Text, TAB, 1); + end; + if (CompSch = true) and (FInptDlg) then // AGP Changes 26.12 PSI-04-63 + begin + //AGP change 26.34 CQ 7201,6902 fix the problem with one time schedule still showing for inpatient complex orders + DestCombo.ItemIndex := -1; + Text := SrcCombo.Text; + index := SrcCombo.ItemIndex; + cnt := 0; + for i := 0 to SrcCombo.Items.Count - 1 do + begin + node := SrcCombo.Items.Strings[i]; + if piece(node,U,3) <> 'O' then + begin + DestCombo.Items.Add(SrcCombo.Items.Strings[i]); + if Piece(node,U,1) = text then DestCombo.ItemIndex := index - cnt; + end + else cnt := cnt+1; + end; + end; + end; + +//var + //dosagetxt: string; +begin + tabDose.TabIndex := TI_COMPLEX; + MoveCombo(cboDosage, cboXDosage); + MoveCombo(cboRoute, cboXRoute); + MoveCombo(cboSchedule, cboXSchedule, true); //AGP Changes 26.12 PSI-04-063 + grdDoses.Visible := True; + btnXInsert.Visible := True; + btnXRemove.Visible := True; + cboDosage.Visible := False; + lblRoute.Visible := False; + cboRoute.Visible := False; + lblSchedule.Visible := False; + cboSchedule.Visible := False; + chkPRN.Visible := False; + FDropColumn := -1; + pnlFieldsResize(Self); + ActiveControl := grdDoses; + //Commented out, no longer using CharsNeedMatch Property +{ NumCharsForMatch := 0; + for i := 0 to cboXDosage.Items.Count - 1 do //find the shortest unit dose text on fifth piece + begin + dosagetxt := Piece(cboXDosage.Items[i],'^',5); + if Length(dosagetxt) < 1 then break; + if NumCharsForMatch = 0 then + NumCharsForMatch := Length(dosagetxt); + if (NumCharsForMatch > Length(dosagetxt)) then + NumCharsForMatch := Length(dosagetxt); + end; + if NumCharsForMatch > 1 then + cboXDosage.CharsNeedMatch := NumCharsForMatch - 1; + if NumCharsForMatch > 5 then + cboDosage.CharsNeedMatch := 5;} +end; + +procedure TfrmODMeds.SetDosage(const x: string); +var + i, DoseIndex: Integer; +begin + DoseIndex := -1; + with cboDosage do + begin + ItemIndex := -1; + for i := 0 to Pred(Items.Count) do + if Piece(Items[i], U, 5) = x then + begin + DoseIndex := i; + Break; + end; + if DoseIndex <0 then Text := x + (* if ((DoseIndex < 0) and (not IsTransferAction)) then Text := x + else if ((DoseIndex < 0) and IsTransferAction) and (DosageTab = False) then Text := '' + else if ((DoseIndex < 0) and IsTransferAction) and (DosageTab = True) then Text := x *) + else ItemIndex := DoseIndex; + end; +end; + +procedure TfrmODMeds.SetPickup(const x: string); +begin + radPickClinic.Checked := FALSE; + radPickMail.Checked := FALSE; + radPickWindow.Checked := FALSE; + case CharAt(x, 1) of + 'C': radPickClinic.Checked := TRUE; + 'M': radPickMail.Checked := TRUE; + 'W': radPickWindow.Checked := TRUE; + else {leave all unchecked} + end; +end; + +procedure TfrmODMeds.SetSchedule(const x: string); +var +NonPRNPart: string; +begin + cboSchedule.ItemIndex := -1; + //AGP change CQ 10593, remove code to match the new expected first dose code + //PSI-05-026 + (* if Pos('PRN', x) > 0 then + begin + NonPRNPart := Trim(Copy(x, 1, Pos('PRN', x) - 1)); + cboSchedule.SelectByID(NonPRNPart); + if cboSchedule.ItemIndex < 0 then + begin + if NSSchedule then + begin + chkPRN.Checked := False; + cboSchedule.Text := ''; + end else + begin + chkPRN.Checked := True; + cboSchedule.Items.Add(NonPRNPart); + cboSchedule.Text := NonPRNPart; + end; + end else + chkPRN.Checked := True; + end else + begin *) + chkPRN.Checked := False; + cboSchedule.SelectByID(x); + if cboSchedule.ItemIndex < 0 then + begin + if NSSchedule then + begin + cboSchedule.Text := ''; + end + else + begin + if Pos('PRN', x) > 0 then + begin + NonPRNPart := Trim(Copy(x, 1, Pos('PRN', x) - 1)); + chkPRN.Checked := True; + cboSchedule.SelectByID(NonPRNPart); + if cboSchedule.ItemIndex > -1 then EXIT; + cboSchedule.Items.Add(NonPRNPart); + cboSchedule.Text := NonPRNPart; + cboSchedule.SelectByID(NonPRNPart); + EXIT; + end; + cboSchedule.Items.Add(x); + cboSchedule.Text := x; + cboSchedule.SelectByID(x); + end; + end; +end; + +{ Medication edit --------------------------------------------------------------------------- } +procedure TfrmODMeds.tabDoseChange(Sender: TObject); +var + //text,x, tmpsch: string; + text, x: string; + reset: integer; +begin + inherited; + reset := 0; + //AGP change for CQ 6521 added warning message + //AGP Change for CQ 7508 added tab information + //GE Change warning message functionality show only cq 7590 + // when tab changes from complex to simple. + //AGP Change for CQ 7834 and 7832 change text and added check to see if some values have been completed in row 1 + if (tabDose.TabIndex = 0) and ((ValFor(COL_DOSAGE, 1)<>'') or (ValFor(COL_SCHEDULE, 1)<>'') or (ValFor(COL_DURATION, 1)<>'') or + (ValFor(COL_SEQUENCE, 1)<>'')) then + begin + text := 'By switching to the Dosage Tab, ' ; + if (InfoBox(text +'you will lose all data on this screen. Click “OK” to continue or “Cancel”','Warning',MB_OKCANCEL)=IDCANCEL) then + begin + if tabDose.TabIndex = 1 then tabDose.TabIndex := 0 + else tabDose.TabIndex := 1; + reset := 1; + end; + end; + case tabDose.TabIndex of + TI_DOSE: begin + cboXSchedule.Clear; // Added to Fix CQ: 9603 + // clean up responses? + FSuppressMsg := FOrigiMsgDisp; + ShowControlsSimple; + if reset = 0 then ResetOnTabChange; + txtNss.Left := lblSchedule.Left + lblSchedule.Width + 2; + if (FInptDlg) then txtNss.Visible := True + else txtNss.Visible := False; + cboXRoute.Hide; // Added to Fix CQ: 7640 + ControlChange(Self); + end; + TI_RATE: begin + // for future use... + end; + TI_COMPLEX: begin + FSuppressMsg := FOrigiMsgDisp; + if reset = 1 then exit; + ShowControlsComplex; + ResetOnTabChange; + txtNss.Left := grdDoses.Left + grdDoses.ColWidths[0] + grdDoses.ColWidths[1] + grdDoses.ColWidths[2] + 3; + txtNss.Visible := False; + x := cboXDosage.Text + TAB; + with cboXDosage do if ItemIndex > -1 then x := x + Items[ItemIndex]; + grdDoses.Cells[COL_DOSAGE, 1] := x; + x := cboXRoute.Text + TAB; + with cboXRoute do if ItemIndex > -1 then x := x + Items[ItemIndex]; + grdDoses.Cells[COL_ROUTE, 1] := x; + x := cboXSchedule.Text + TAB; + with cboXSchedule do if ItemIndex > -1 then x := x + Items[ItemIndex]; + grdDoses.Cells[COL_SCHEDULE, 1] := x; + UpdateStartExpires(ValFor(VAL_SCHEDULE,1)); + ControlChange(Self); + end; {TI_COMPLEX} + end; {case} +end; + + +procedure TfrmODMeds.lblGuidelineClick(Sender: TObject); +var + TextStrings: TStringList; +begin + inherited; + TextStrings := TStringList.Create; + try + TextStrings.Text := FGuideline.Text; + ReportBox(TextStrings, TC_GUIDELINE, TRUE); + finally + TextStrings.Free; + end; + //if FGuideline.Count > 0 then InfoBox(FGuideline.Text, 'Restrictions/Guidelines', MB_OK); +end; + +{ cboDosage ------------------------------------- } + +procedure TfrmODMeds.CheckFormAltDose(DispDrug: Integer); +var + OI: Integer; + OIName: string; +begin + if FAltChecked or (DispDrug = 0) then Exit; + OI := txtMed.Tag; + OIName := txtMed.Text; + CheckFormularyDose(DispDrug, OI, OIName, FInptDlg); + if OI <> txtMed.Tag then + begin + ResetOnMedChange; + txtMed.Tag := OI; + txtMed.Text := OIName; + SetOnMedSelect; + end; +end; + +procedure TfrmODMeds.cboDosageClick(Sender: TObject); +var + DispDrug: Integer; + x: string; +begin + inherited; + if FSuppressMsg then + begin + if PnlMessage.Visible = true then + begin + memMessage.SendToBack; + PnlMessage.Visible := False; + end; + end; + UpdateRelated(False); + DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID), 0); + if DispDrug > 0 then + begin + if not FSuppressMsg then + begin + DispOrderMessage(DispenseMessage(DispDrug)); + end; + x := QuantityMessage(DispDrug); + end + else x := ''; + if Length(ValueOf(FLD_QTYDISP))>10 then + begin + lblQuantity.Caption := Copy(ValueOf(FLD_QTYDISP),0,7) + '...'; + lblQuantity.Hint := ValueOf(FLD_QTYDISP); + end else + begin + lblQuantity.Caption := ValueOf(FLD_QTYDISP); + lblQuantity.Hint := ''; + end; + if Length(x) > 0 + then lblQtyMsg.Caption := TX_QTY_PRE + x + TX_QTY_POST + else lblQtyMsg.Caption := ''; + with cboDosage do + if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 3) = 'NF') + then CheckFormAltDose(DispDrug); +end; + +procedure TfrmODMeds.cboDosageChange(Sender: TObject); +begin + inherited; + UpdateRelated; +end; + +procedure TfrmODMeds.cboDosageExit(Sender: TObject); +begin + inherited; + if (length(cboDosage.Text)<1) then + cboDosage.ItemIndex := -1; + if ActiveControl = memMessage then + begin + memMessage.SendToBack; + PnlMessage.Visible := False; + Exit; + end; + if ActiveControl = memComment then + begin + if PnlMessage.Visible = true then + begin + memMessage.SendToBack; + PnlMessage.Visible := False; + end; + end + else if (ActiveControl <> btnSelect) and (ActiveControl <> memComment) then + begin + if PnlMessage.Visible = true then + begin + memMessage.SendToBack; + PnlMessage.Visible := False; + end; + //cboDosageClick(Self); + end; +end; + +{ cboRoute -------------------------------------- } + +procedure TfrmODMeds.cboRouteChange(Sender: TObject); +begin + inherited; + with cboRoute do + if ItemIndex > -1 then + begin + if Piece(Items[ItemIndex], U, 5) = '1' + then tabDose.Tabs[0] := 'Dosage / Rate' + else tabDose.Tabs[0] := 'Dosage'; + end; + cboDosage.Caption := tabDose.Tabs[0]; + if Sender <> Self then ControlChange(Sender); +end; + +procedure TfrmODMeds.cboRouteExit(Sender: TObject); +begin + if Trim(cboRoute.Text) = '' then + cboRoute.ItemIndex := -1; +// ValidateRoute(cboRoute); Removed based on Site feeback. See CQ: 7518 + inherited; +end; + +{ cboSchedule ----------------------------------- } + +procedure TfrmODMeds.cboScheduleClick(Sender: TObject); +var + othSch: string; + idx : integer; +begin + inherited; + if (FInptDlg) and (cboSchedule.Text = 'OTHER') then + begin + othSch := CreateOtherScheduel; + if length(trim(othSch)) > 1 then + begin + cboSchedule.Items.Add(othSch); + idx := cboSchedule.Items.IndexOf(OthSch); + cboSchedule.ItemIndex := idx; + end; + end; + UpdateRelated(False); +end; + +procedure TfrmODMeds.cboScheduleChange(Sender: TObject); +var + othSch: string; + idx : integer; +begin + inherited; + if (FInptDlg) and (cboSchedule.Text = 'OTHER') then + begin + othSch := CreateOtherScheduel; + if length(trim(othSch)) > 1 then + begin + cboSchedule.Items.Add(othSch); + idx := cboSchedule.Items.IndexOf(OthSch); + cboSchedule.ItemIndex := idx; + end; + end; +//Remove Deletion of Text, since we are changing the validation to be on exit of the control. +{ if (Length(cboSchedule.Text)>0) and (cboSchedule.ItemIndex < 0) and FInptDlg then + cboSchedule.Text := '';} + FScheduleChanged := true; + UpdateRelated; +end; + + +{ Duration ----------------------------- } +procedure TfrmODMeds.UpdateDurationControls( FreeText: boolean); +begin + if FreeText then + begin + pnlXDurationButton.Width := 8; + pnlXDurationButton.Align := alRight; + spnXDuration.Visible := False; + txtXduration.Align := alClient; + end + else + begin + txtXduration.Align := alNone; + txtXduration.Width := pnlXDuration.Width - (pnlXDuration.Width div 2) - spnXDuration.Width + 2; + pnlXDurationButton.Width := pnlXDuration.Width div 2; + pnlXDurationButton.Align := alRight; + spnXDuration.Visible := True; + spnXDuration.AlignButton := udRight; + end; +end; + +procedure TfrmODMeds.popDurationClick(Sender: TObject); +var + x: string; +begin + inherited; + with TMenuItem(Sender) do + begin + if Tag > 0 then + begin + x := LowerCase(Caption); + //Make sure duration is integer + txtXDuration.Text := IntToStr(StrToIntDef(txtXDuration.Text,0)); + UpdateDurationControls(False); + end + else begin + x := ''; + txtXDuration.Text := ''; + UpdateDurationControls(True); + end; + end; + btnXDuration.Caption := x; + txtXDurationChange(Sender); + ControlChange(Sender); +end; + +{ txtSupply, txtQuantity -------------------------- } + +procedure TfrmODMeds.txtSupplyChange(Sender: TObject); +begin + inherited; + if Changing then Exit; + if not Showing then Exit; + if FNoZERO = False then FNoZERO := True; + + // if value = 0, change probably caused by the spin button + if txtSupply.Text <> '0' then txtSupply.Tag := 1; + UpdateRelated; +end; + +procedure TfrmODMeds.txtQuantityChange(Sender: TObject); +begin + inherited; + if Changing then Exit; + if not Showing then Exit; + if FNoZERO = False then FNoZERO := True; + // if value = 0, change probably caused by the spin button + if txtQuantity.Text <> '0' then txtQuantity.Tag := 1; + UpdateRelated; +end; + +procedure TfrmODMeds.chkSCEnter(Sender: TObject); +begin + inherited; + pnlMessage.TabOrder := chkSC.TabOrder+1; + DispOrderMessage(RatedDisabilities); +end; + +procedure TfrmODMeds.chkSCClick(Sender: TObject); +begin + inherited; + chkSC.Tag := 1; +end; + +{ values changing } + +function TfrmODMeds.OutpatientSig: string; +var + Dose, Route, Schedule, Duration, x: string; + i: Integer; +begin + case tabDose.TabIndex of + TI_DOSE: + begin + if ValueOf(FLD_TOTALDOSE) = '' + then Dose := ValueOf(FLD_LOCALDOSE) + else Dose := ValueOf(FLD_UNITNOUN); + CheckDecimal(Dose); + Route := ValueOf(FLD_ROUTE_EX); + if (Length(Route) > 0) and (Length(FSigPrep) > 0) then Route := FSigPrep + ' ' + Route; + if Length(Route) = 0 then Route := ValueOf(FLD_ROUTE_NM); + Schedule := ValueOf(FLD_SCHED_EX); + (* Schedule := Piece(Temp,U,1); + if Piece(Temp,U,3) = '1' then Schedule := Schedule + ' AS NEEDED'; + if UpperCase(Copy(Schedule, Length(Schedule) - 18, Length(Schedule))) = 'AS NEEDED AS NEEDED' + then Schedule := Copy(Schedule, 1, Length(Schedule) - 10); *) + if Length(Schedule) = 0 then + begin + Schedule := ValueOf(FLD_SCHEDULE); + if RightStr(Schedule,3) = 'PRN' then + begin + Schedule := Copy(Schedule,1,Length(Schedule)-3); //Remove the Trailing PRN + if (RightStr(Schedule,1) = ' ') or (RightStr(Schedule,1) = '-') then + Schedule := Copy(Schedule,1,Length(Schedule)-1); + Schedule := Schedule + ' AS NEEDED' + end; + end; + Result := FSIGVerb + ' ' + Dose + ' ' + Route + ' ' + Schedule; + end; + TI_COMPLEX: + begin + with grdDoses do for i := 1 to Pred(RowCount) do + begin + if Length(ValueOf(FLD_LOCALDOSE, i)) = 0 then Continue; + if FDrugID = '' then + begin + Dose := ValueOf(FLD_DOSETEXT, i); + CheckDecimal(Dose); + end + else + begin + if ValueOf(FLD_TOTALDOSE, i) = '' + then Dose := ValueOf(FLD_LOCALDOSE, i) + else Dose := ValueOf(FLD_UNITNOUN, i); + CheckDecimal(Dose); + end; + Route := ValueOf(FLD_ROUTE_EX, i); + if (Length(Route) > 0) and (Length(FSigPrep) > 0) then Route := FSigPrep + ' ' + Route; + if Length(Route) = 0 then Route := ValueOf(FLD_ROUTE_NM, i); + Schedule := ValueOf(FLD_SCHED_EX, i); + //if Length(Schedule) = 0 then Schedule := ValueOf(FLD_SCHEDULE, i); + if Length(Schedule) = 0 then + begin + Schedule := ValueOf(FLD_SCHEDULE); + if RightStr(Schedule,3) = 'PRN' then + begin + Schedule := Copy(Schedule,1,Length(Schedule)-3); //Remove the Trailing PRN + if (RightStr(Schedule,1) = ' ') or (RightStr(Schedule,1) = '-') then + Schedule := Copy(Schedule,1,Length(Schedule)-1); + Schedule := Schedule + ' AS NEEDED' + end; + end; + Duration := ValueOf(FLD_DURATION, i); + if Length(Duration) > 0 then Duration := 'FOR ' + Duration; + x := FSIGVerb + ' ' + Dose + ' ' + Route + ' ' + Schedule + ' ' + Duration; + if i > 1 + then Result := Result + ' ' + ValueOf(FLD_SEQUENCE, i-1) + ' ' + x + else Result := x; + end; {with grdDoses} + end; {TI__COMPLEX} + end; {case} +end; + +function TfrmODMeds.InpatientSig: string; +var + Dose, Route, Schedule, Duration, x: string; + i: Integer; +begin + case tabDose.TabIndex of + TI_DOSE: + begin + Dose := ValueOf(FLD_LOCALDOSE); + CheckDecimal(Dose); + Route := ValueOf(FLD_ROUTE_AB); + if Route = '' then Route := ValueOf(FLD_ROUTE_NM); + Schedule := ValueOf(FLD_SCHEDULE); + Result := Dose + ' ' + Route + ' ' + Schedule; + end; + TI_COMPLEX: + begin + with grdDoses do for i := 1 to Pred(RowCount) do + begin + if Length(ValueOf(FLD_LOCALDOSE, i)) = 0 then Continue; + if FDrugID = '' + then Dose := ValueOf(FLD_DOSETEXT, i) + else Dose := ValueOf(FLD_LOCALDOSE, i); + CheckDecimal(Dose); + Route := ValueOf(FLD_ROUTE_AB, i); + if Route = '' then Route := ValueOf(FLD_ROUTE_NM, i); + Schedule := ValueOf(FLD_SCHEDULE, i); + Duration := ValueOf(FLD_DURATION, i); + if Length(Duration) > 0 then Duration := 'FOR ' + Duration; + x := Dose + ' ' + Route + ' ' + Schedule + ' ' + Duration; + if i > 1 + then Result := Result + ' ' + ValueOf(FLD_SEQUENCE, i-1) + ' ' + x + else Result := x; + end; {with grdDoses} + end; {TI__COMPLEX} + end; {case} +end; + +function TfrmODMeds.ConstructedDoseFields(const ADose: string; PrependName: Boolean = FALSE): string; +var + i, DrugIndex: Integer; + UnitsPerDose, Strength: Extended; + Units, Noun, AName: string; +begin + DrugIndex := -1; + for i := 0 to Pred(FAllDrugs.Count) do + if AnsiSameText(Piece(FAllDrugs[i], U, 1), FDrugID) then + begin + DrugIndex := i; + Break; + end; + Strength := StrToFloatDef(Piece(FAllDrugs[DrugIndex], U, 2), 0); + Units := Piece(FAllDrugs[DrugIndex], U, 3); + AName := Piece(FAllDrugs[DrugIndex], U, 4); + if FAllDoses.Count > 0 + then Noun := Piece(Piece(FAllDoses[0], U, 3), '&', 4) + else Noun := ''; + if Strength > 0 + then UnitsPerDose := ExtractFloat(ADose) / Strength + else UnitsPerDose := 0; + if (UnitsPerDose > 1) and (Noun <> '') and (CharAt(Noun, Length(Noun)) <> 'S') + then Noun := Noun + 'S'; + Result := FloatToStr(ExtractFloat(ADose)) + '&' + Units + '&' + FloatToStr(UnitsPerDose) + + '&' + Noun + '&' + ADose + '&' + FDrugID + '&' + FloatToStr(Strength) + '&' + + Units; + if PrependName then Result := AName + U + FloatToStr(Strength) + Units + U + U + + Result + U + ADose; + Result := UpperCase(Result); +end; + +function TfrmODMeds.FieldsForDrug(const DrugID: string): string; +var + i, DrugIndex: Integer; +begin + Result := ''; + DrugIndex := -1; + for i := 0 to Pred(FAllDrugs.Count) do + begin + if AnsiSameText(Piece(FAllDrugs[i], U, 1), DrugID) then DrugIndex := i; + end; + if DrugIndex > -1 then Result := FAllDrugs[DrugIndex]; +end; + +function TfrmODMeds.FieldsForDose(ARow: Integer): string; +var + i: Integer; + DoseDrug: string; +begin + Result := Piece(Piece(grdDoses.Cells[COL_DOSAGE, ARow], TAB, 2), U, 4); + //AGP CHANGE 26.33 change for Remedy ticket 87476 fix for quick orders for complex + //inpatient orders not displaying the correct unit dose in Pharmacy + //if (not FInptDlg) and (Length(FDrugID) > 0) then + if Length(FDrugID) > 0 then + begin + Result := ''; + DoseDrug := Piece(Piece(grdDoses.Cells[COL_DOSAGE, ARow], TAB, 2), U, 5); + if DoseDrug = '' then DoseDrug := Piece(grdDoses.Cells[COL_DOSAGE, ARow], TAB, 1); + DoseDrug := DoseDrug + U + FDrugID; + for i := 0 to Pred(FAllDoses.Count) do + begin + if AnsiSameText(DoseDrug, Copy(FAllDoses[i], 1, Length(DoseDrug))) then + begin + Result := Piece(FAllDoses[i], U, 3); + Break; + end; {if AnsiSameText} + end; {for i} + if Result = '' then Result := ConstructedDoseFields(Piece(DoseDrug, U, 1)); + end; +end; + +function TfrmODMeds.FindDoseFields(const Drug, ADose: string): string; +var + i: Integer; + x: string; +begin + Result := ''; + x := ADose + U + Drug + U; + for i := 0 to Pred(FAllDoses.Count) do + begin + if AnsiSameText(x, Copy(FAllDoses[i], 1, Length(x))) then + begin + Result := Piece(FAllDoses[i], U, 3); + Break; + end; + end; +end; + +function TfrmODMeds.FindCommonDrug(DoseList: TStringList): string; +// DoseList[n] = DoseText ^ Dispense Drug Pointer +var + i, j, UnitIndex: Integer; + DrugStrength, DoseValue, UnitsPerDose: Extended; + DrugOK, PossibleDoses, SplitTab: Boolean; + ADrug, ADose, DoseFields, DoseUnits, DrugUnits: string; + FoundDrugs: TStringList; + + procedure SaveDrug(const ADrug: string; UnitsPerDose: Extended); + var + i, DrugIndex: Integer; + CurUnits: Extended; + begin + DrugIndex := -1; + for i := 0 to Pred(FoundDrugs.Count) do + if AnsiSameText(Piece(FoundDrugs[i], U, 1), ADrug) then DrugIndex := i; + if DrugIndex = -1 then FoundDrugs.Add(ADrug + U + FloatToStr(UnitsPerDose)) else + begin + CurUnits := StrToFloatDef(Piece(FoundDrugs[DrugIndex], U, 2), 0); + if UnitsPerDose > CurUnits + then FoundDrugs[DrugIndex] := ADrug + U + FloatToStr(UnitsPerDose); + end; + end; + + procedure KillDrug(const ADrug: string); + var + i, DrugIndex: Integer; + begin + DrugIndex := -1; + for i := 0 to Pred(FoundDrugs.Count) do + if AnsiSameText(Piece(FoundDrugs[i], U, 1), ADrug) then DrugIndex := i; + if DrugIndex > -1 then FoundDrugs.Delete(DrugIndex); + end; + +begin + Result := ''; + if FInptDlg then // inpatient dialog + begin + DrugOK := True; + for i := 0 to Pred(DoseList.Count) do + begin + ADrug := Piece(DoseList[i], U, 2); + if ADrug = '' then DrugOK := False; + if Result = '' then Result := ADrug; + if not AnsiSameText(ADrug, Result) then DrugOK := False; + if not DrugOK then Break; + end; + if not DrugOK then Result :=''; + end else // outpatient dialog + begin + // check the dose combinations for each dispense drug + FoundDrugs := TStringList.Create; + try + if FAllDoses.Count > 0 + then PossibleDoses := Length(Piece(Piece(FAllDoses[0], U, 3), '&', 1)) > 0 + else PossibleDoses := False; + for i := 0 to Pred(FAllDrugs.Count) do + begin + ADrug := Piece(FAllDrugs[i], U, 1); + DrugOK := True; + DrugStrength := StrToFloatDef(Piece(FAllDrugs[i], U, 2), 0); + DrugUnits := Piece(FAllDrugs[i], U, 3); + SplitTab := Piece(FAllDrugs[i], U, 5) = '1'; + for j := 0 to Pred(DoseList.Count) do + begin + ADose:= Piece(DoseList[j], U, 1); + DoseFields := FindDoseFields(ADrug, ADose); // get the idnode for the dose/drug combination + if not PossibleDoses then + begin + if DoseFields = '' then DrugOK := False else SaveDrug(ADrug, 0); + end else + begin + DoseValue := StrToFloatDef(Piece(DoseFields, '&', 1), 0); + if DoseValue = 0 then DoseValue := ExtractFloat(ADose); + UnitsPerDose := DoseValue / DrugStrength; + if (Frac(UnitsPerDose) = 0) or (SplitTab and (Frac(UnitsPerDose) = 0.5)) + then SaveDrug(ADrug, UnitsPerDose) + else DrugOK := False; + // make sure this dose is using the same units as the drug + if DoseFields = '' then + begin + for UnitIndex := 1 to Length(ADose) do + if not (ADose[UnitIndex] in ['0'..'9','.']) then Break; + DoseUnits := Copy(ADose, UnitIndex, Length(ADose)); + end + else DoseUnits := Piece(DoseFields, '&', 2); + if not AnsiSameText(DoseUnits, DrugUnits) then DrugOK := False; + end; + if not DrugOK then + begin + KillDrug(ADrug); + Break; + end; {if not DrugOK} + end; {with..for j} + end; {for i} + if FoundDrugs.Count > 0 then + begin + if not PossibleDoses then Result := Piece(FoundDrugs[0], U, 1) else + begin + UnitsPerDose := 99999999; + for i := 0 to Pred(FoundDrugs.Count) do + begin + if StrToFloatDef(Piece(FoundDrugs[i], U, 2), 99999999) < UnitsPerDose then + begin + Result := Piece(FoundDrugs[i], U, 1); + UnitsPerDose := StrToFloatDef(Piece(FoundDrugs[i], U, 2), 99999999); + end; {if StrToFloatDef} + end; {for i..FoundDrugs} + end; {if not..else PossibleDoses} + end; {if FoundDrugs} + finally + FoundDrugs.Free; + end; {try} + end; {if..else FInptDlg} +end; {FindCommonDrug} + +procedure TfrmODMeds.ControlChange(Sender: TObject); +var + x,ADose,AUnit,ADosageText: string; + i, LastDose: Integer; + DoseList: TStringList; +begin + inherited; + if csLoading in ComponentState then Exit; // to prevent error caused by txtRefills + if Changing then Exit; + if txtMed.Tag = 0 then Exit; + ADose := ''; + AUnit := ''; + ADosageText := ''; + FUpdated := FALSE; + Responses.Clear; + Responses.Update('ORDERABLE', 1, IntToStr(txtMed.Tag), txtMed.Text); + DoseList := TStringList.Create; + case tabDose.TabIndex of + TI_DOSE: + begin + if (cboDosage.ItemIndex < 0) and (Length(cboDosage.Text) > 0) then + begin + // try to resolve freetext dose and add it as a new item to the combobox + ADosageText := cboDosage.Text; + ADose := Piece(ADosageText,' ',1); + Delete(ADosageText,1,Length(ADose)+1); + ADosageText := ADose + Trim(ADosageText); + DoseList.Add(ADosageText); + FDrugID := FindCommonDrug(DoseList); + if FDrugID <> '' then + begin + if ExtractFloat(cboDosage.Text) > 0 then + begin + x := ConstructedDoseFields(cboDosage.Text, TRUE); + FDrugID := ''; + with cboDosage do ItemIndex := cboDosage.Items.Add(x); + end; + end; + end; + x := ValueOf(FLD_DOSETEXT); Responses.Update('INSTR', 1, x, x); + x := ValueOf(FLD_DRUG_ID); Responses.Update('DRUG', 1, x, ''); + x := ValueOf(FLD_DOSEFLDS); Responses.Update('DOSE', 1, x, ''); + x := ValueOf(FLD_STRENGTH); + // if outpt or inpt order with no total dose (i.e., topical) + if (not FInptDlg) or (ValueOf(FLD_TOTALDOSE) = '') + then Responses.Update('STRENGTH', 1, x, x); + // if no strength for dosage, use dispense drug name + if Length(x) = 0 then + begin + x := ValueOf(FLD_DRUG_NM); + if Length(x) > 0 then Responses.Update('NAME', 1, x, x); + end; + x := ValueOf(FLD_ROUTE_AB); + if Length(x) = 0 then x := ValueOf(FLD_ROUTE_NM); + if Length(ValueOf(FLD_ROUTE_ID)) > 0 + then Responses.Update('ROUTE', 1, ValueOf(FLD_ROUTE_ID), x) + else Responses.Update('ROUTE', 1, '', x); + x := ValueOf(FLD_SCHEDULE); Responses.Update('SCHEDULE', 1, x, x); + end; + TI_COMPLEX: + begin + //if txtNss.Visible then txtNss.Visible := False; + with grdDoses do for i := 1 to Pred(RowCount) do + begin + x := Piece(Piece(grdDoses.Cells[COL_DOSAGE, i], TAB, 2), U, 5); + if x = '' then x := Piece(grdDoses.Cells[COL_DOSAGE, i], TAB, 1); + if x = '' then Continue; + x := x + U + Piece(Piece(grdDoses.Cells[COL_DOSAGE, i], U, 4), '&', 6); + DoseList.Add(x); + end; + FDrugID := FindCommonDrug(DoseList); + if FDrugID <> '' then // common drug found + begin + x := ValueOf(FLD_STRENGTH, 1); + if (not FInptDlg) or (ValueOf(FLD_TOTALDOSE, 1) = '') + then Responses.Update('STRENGTH', 1, x, x); + // if no strength, use dispense drug + if Length(x) = 0 then + begin + x := ValueOf(FLD_DRUG_NM, 1); + if Length(x) > 0 then Responses.Update('NAME', 1, x, x); + end; + Responses.Update('DRUG', 1, FDrugID, ''); + end; {if FDrugID} + LastDose := 0; + with grdDoses do for i := 1 to Pred(RowCount) do + if Length(ValueOf(FLD_DOSETEXT, i)) > 0 then LastDose := i; + with grdDoses do for i := 1 to Pred(RowCount) do + begin + if Length(ValueOf(FLD_DOSETEXT, i)) = 0 then Continue; + x := ValueOf(FLD_DOSETEXT, i); Responses.Update('INSTR', i, x, x); + x := ValueOf(FLD_DOSEFLDS, i); Responses.Update('DOSE', i, x, ''); + x := ValueOf(FLD_ROUTE_AB, i); + if Length(x) = 0 then x := ValueOf(FLD_ROUTE_NM, i); + if Length(ValueOf(FLD_ROUTE_ID, i)) > 0 + then Responses.Update('ROUTE', i, ValueOf(FLD_ROUTE_ID, i), x) + else Responses.Update('ROUTE', i, '', x); + x := ValueOf(FLD_SCHEDULE, i); Responses.Update('SCHEDULE', i, x, x); + if FSmplPRNChkd then // GE CQ7585 Carry PRN checked from simple to complex tab + begin + pnlXSchedule.Tag := 1; + chkXPRN.Checked := True; + //cboXScheduleClick(Self);// force onclick to fire when complex tab is entered + FSmplPRNChkd := False; + end; + x := ValueOf(FLD_DURATION, i); Responses.Update('DAYS', i, UpperCase(x), x); + x := ValueOf(FLD_SEQUENCE, i); + if Uppercase(x) = 'THEN' then x := 'T' + else if Uppercase(x) = 'AND' then x := 'A' + else if Uppercase(x) = 'EXCEPT' then x := 'X' + else x := ''; + if i = LastDose then x := ''; // no conjunction for last dose + Responses.Update('CONJ', i, x, x); + end; {with grdDoses} + end; {TI_COMPLEX} + end; {case TabDose.TabIndex} + DoseList.Free; + Responses.Update('URGENCY', 1, ValueOf(FLD_PRIOR_ID), ''); + Responses.Update('COMMENT', 1, TX_WPTYPE, ValueOf(FLD_COMMENT)); + if FInptDlg then // inpatient orders + begin + Responses.Update('NOW', 1, ValueOf(FLD_NOW_ID), ValueOf(FLD_NOW_NM)); + x := InpatientSig; + Responses.Update('SIG', 1, TX_WPTYPE, x); + end else // outpatient orders + begin + x := ValueOf(FLD_SUPPLY); Responses.Update('SUPPLY', 1, x, x); + x := ValueOf(FLD_QUANTITY); Responses.Update('QTY', 1, x, x); + x := ValueOf(FLD_REFILLS); Responses.Update('REFILLS', 1, x, x); + x := ValueOf(FLD_SC); Responses.Update('SC', 1, x, ''); + x := ValueOf(FLD_PICKUP); Responses.Update('PICKUP', 1, x, ''); + x := ValueOf(FLD_PTINSTR); Responses.Update('PI', 1, TX_WPTYPE, x); + x := ''; + x := OutpatientSig; Responses.Update('SIG', 1, TX_WPTYPE, x); + end; + memOrder.Text := Responses.OrderText; +end; + +{ complex dose ------------------------------------------------------------------------------ } + +{ General Functions - get & set cell values} + +function TfrmODMeds.ValFor(FieldID, ARow: Integer): string; +{ Contents of grid cells (Only the first tab piece for each cell is drawn) + Dosage DosageFields + RouteText IEN^RouteName^Abbreviation + Schedule (nothing) + Duration Duration^Units } +begin + Result := ''; + if (ARow < 1) or (ARow >= grdDoses.RowCount) then Exit; + with grdDoses do + case FieldID of + COL_DOSAGE : Result := Piece(Cells[COL_DOSAGE, ARow], TAB, 1); + COL_ROUTE : Result := Piece(Cells[COL_ROUTE, ARow], TAB, 1); + COL_SCHEDULE : Result := Piece(Cells[COL_SCHEDULE, ARow], TAB, 1); + COL_DURATION : Result := Piece(Cells[COL_DURATION, ARow], TAB, 1); + COL_SEQUENCE : Result := Piece(Cells[COL_SEQUENCE, ARow], TAB, 1); + VAL_DOSAGE : Result := Piece(Cells[COL_DOSAGE, ARow], TAB, 2); + VAL_ROUTE : Result := Piece(Cells[COL_ROUTE, ARow], TAB, 2); + VAL_SCHEDULE : Result := Piece(Cells[COL_SCHEDULE, ARow], TAB, 1); + VAL_DURATION : Result := Piece(Cells[COL_DURATION, ARow], TAB, 1); + VAL_SEQUENCE : Result := Piece(Cells[COL_SEQUENCE, ARow], TAB, 1); + VAL_CHKXPRN : Result := Cells[COL_CHKXPRN, ARow]; + end; +end; + +procedure FindInCombo(const x: string; AComboBox: TORComboBox); +begin + AComboBox.SetTextAutoComplete(x); +end; + +(* +procedure TfrmODMeds.DurationToDays; +var + i, DoseHours, TotalHours: Integer; + AllRows: Boolean; + Days: Extended; + x: string; +begin + Exit; // don't try to figure out days supply from duration for now + if txtSupply.Tag = 1 then Exit; + AllRows := True; + with grdDoses do for i := 1 to Pred(RowCount) do + if (Length(ValFor(COL_DOSAGE, i)) > 0) and (Length(ValFor(VAL_DURATION, i)) = 0) + then AllRows := False; + if not AllRows then Exit; + Changing := True; + TotalHours := 0; + with grdDoses do for i := 1 to Pred(RowCount) do + if Length(ValFor(COL_DOSAGE, i)) > 0 then + begin + x := ValFor(VAL_DURATION, i); + if Piece(x, U, 2) = 'D' + then DoseHours := ExtractInteger(x) * 24 + else DoseHours := ExtractInteger(x); + TotalHours := TotalHours + DoseHours; + end; + Days := TotalHours / 24; + if Days > Int(Days) then Days := Days + 1; + txtSupply.Text := IntToStr(Trunc(Days)); + //timDayQty.Tag := TIMER_FROM_DAYS; + //timDayQtyTimer(Self); + Changing := False; +end; +*) + +function TfrmODMeds.DurationToDays: Integer; +var + i, DoseMinutes, TotalMinutes: Integer; + AllRows: Boolean; + Days: Extended; + x: string; +begin + Result := 0; + // make sure a duration exists for all rows with a dose + AllRows := True; + with grdDoses do for i := 1 to Pred(RowCount) do + if (Length(ValFor(COL_DOSAGE, i)) > 0) and (Length(ValFor(VAL_DURATION, i)) = 0) + then AllRows := False; + if not AllRows then Exit; + + TotalMinutes := 0; + with grdDoses do for i := 1 to Pred(RowCount) do + if Length(ValFor(COL_DOSAGE, i)) > 0 then + begin + x := ValFor(VAL_DURATION, i); + DoseMinutes := 0; + if Piece(x, ' ', 2) = 'MONTHS' then DoseMinutes := ExtractInteger(x) * 43200; + if Piece(x, ' ', 2) = 'WEEKS' then DoseMinutes := ExtractInteger(x) * 10080; + if Piece(x, ' ', 2) = 'DAYS' then DoseMinutes := ExtractInteger(x) * 1440; + if Piece(x, ' ', 2) = 'HOURS' then DoseMinutes := ExtractInteger(x) * 60; + if Piece(x, ' ', 2) = 'MINUTES' then DoseMinutes := ExtractInteger(x); + TotalMinutes := TotalMinutes + DoseMinutes; + end; + Days := TotalMinutes / 1440; + if Days > Int(Days) then Days := Days + 1; + Result := Trunc(Days); +end; + +procedure TfrmODMeds.pnlFieldsResize(Sender: TObject); +const + REL_DOSAGE = 0.38; + REL_ROUTE = 0.17; + REL_SCHEDULE = 0.19; + REL_DURATION = 0.16; + REL_ANDTHEN = 0.10; +var + i, ht, RowCountShowing: Integer; + ColControl: TWinControl; +begin + inherited; + with grdDoses do + begin + i := grdDoses.Width - 12; // 12 = 4 pixel margin + 8 pixel column 0 + i := i - GetSystemMetrics(SM_CXVSCROLL); // compensate for appearance of scroll bar + ColWidths[1] := Round(REL_DOSAGE * i); // dosage + ColWidths[2] := Round(REL_ROUTE * i); // route + ColWidths[3] := Round(REL_SCHEDULE * i); // schedule + ColWidths[4] := Round(REL_DURATION * i); // duration + ColWidths[5] := Round(REL_ANDTHEN * i); // and/then + // adjust height of grid to not show partial rows + ht := pnlBottom.Top - Top - 6; + + ht := ht div (DefaultRowHeight+1); + ht := ht * (DefaultRowHeight+1); + Inc(ht, 3); + Height := ht; + // Move a column control if it is showing + ColControl := nil; + case grdDoses.Col of + COL_DOSAGE:ColControl := cboXDosage; + COL_ROUTE:ColControl := cboXRoute; + COL_SCHEDULE:ColControl := pnlXSchedule; + COL_DURATION:ColControl := pnlXDuration; + COL_SEQUENCE:ColControl := pnlXSequence; + end; {case} + + if assigned(ColControl) and ColControl.Showing then + begin + RowCountShowing := (Height - 25) div (DefaultRowHeight+1); + if (grdDoses.Row <= RowCountShowing) then + ShowEditor(grdDoses.col, grdDoses.row, #0) + else + ColControl.Hide; + end; + + end; +end; + +procedure TfrmODMeds.grdDosesMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + ACol, ARow: Integer; +begin + inherited; + grdDoses.MouseToCell(X, Y, ACol, ARow); + if (ARow < 0) or (ACol < 0) then Exit; + if ACol > COL_SELECT then ShowEditor(ACol, ARow, #0) else + begin + grdDoses.Col := COL_DOSAGE; + grdDoses.Row := ARow; + end; + if grdDoses.Col <> COL_DOSAGE then + DropLastSequence; +end; + +procedure TfrmODMeds.grdDosesKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key in [#32..#127] then ShowEditor(grdDoses.Col, grdDoses.Row, Key); + if grdDoses.Col <> COL_DOSAGE then + DropLastSequence; +end; + +procedure TfrmODMeds.grdDosesMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + inherited; + case FDropColumn of + COL_DOSAGE: with cboXDosage do if Items.Count > 0 then DroppedDown := True; + COL_ROUTE: with cboXRoute do if Items.Count > 0 then DroppedDown := True; + COL_SCHEDULE: with cboXSchedule do if Items.Count > 0 then DroppedDown := True; + end; + FDropColumn := -1; +end; + +procedure TfrmODMeds.grdDosesDrawCell(Sender: TObject; ACol, ARow: Integer; + Rect: TRect; State: TGridDrawState); +begin + inherited; + grdDoses.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, + Piece(grdDoses.Cells[ACol, ARow], TAB, 1)); +end; + +procedure TfrmODMeds.grdDosesExit(Sender: TObject); +begin + inherited; + UpdateRelated(FALSE); + RestoreDefaultButton; + RestoreCancelButton; +end; + +procedure TfrmODMeds.ShowEditor(ACol, ARow: Integer; AChar: Char); +var + x,tmpText: string; + + procedure PlaceControl(AControl: TWinControl); + var + ARect: TRect; + begin + with AControl do + begin + ARect := grdDoses.CellRect(ACol, ARow); + SetBounds(ARect.Left + grdDoses.Left + 1, ARect.Top + grdDoses.Top + 1, + ARect.Right - ARect.Left + 1, ARect.Bottom - ARect.Top + 1); + Tag := ARow; + BringToFront; + Show; + SetFocus; + end; + end; + + procedure SynchCombo(ACombo: TORComboBox; const ItemText, EditText: string); + var + i: Integer; + begin + ACombo.ItemIndex := -1; + for i := 0 to Pred(ACombo.Items.Count) do + if ACombo.Items[i] = ItemText then ACombo.ItemIndex := i; + if ACombo.ItemIndex < 0 then ACombo.Text := EditText; + end; + +begin + inherited; + txtNSS.Visible := False; + //Make space just select editor. This blows up as soon as some joker makes a + //dosage starting with a space. + if AChar = ' ' then + AChar := #0; + if ARow = 0 then Exit; // header row + // require initial instruction entry when in last row + with grdDoses do if {(ARow = Pred(RowCount)) and} (ACol > COL_DOSAGE) and + (ValFor(COL_DOSAGE, ARow) = '') then Exit; + // require that initial instructions for rows get entered from top to bottom + //(this does not include behaivor of row insertion button.) + if (ACol = COL_DOSAGE) and (ARow > 1) and (ValFor(COL_DOSAGE, ARow-1) = '') then + Exit; + // display appropriate editor for row & column + case ACol of + COL_DOSAGE: begin + // default route & schedule to previous row + if (ARow > 1) then + begin + if (grdDoses.Cells[COL_ROUTE, ARow] = '') and + (grdDoses.Cells[COL_SCHEDULE, ARow] = '') then + begin + grdDoses.Cells[COL_ROUTE, ARow] := grdDoses.Cells[COL_ROUTE, Pred(ARow)]; + { don't default schedule - recommended by Martin Lowe } + //grdDoses.Cells[COL_SCHEDULE, ARow] := grdDoses.Cells[COL_SCHEDULE, Pred(ARow)]; + end; + //AGP Change 26.45 remove auto-populate of the sequence field + {* if grdDoses.Cells[COL_SEQUENCE, Pred(ARow)] = '' then + begin + if StrToIntDef(Piece(grdDoses.Cells[COL_DURATION, Pred(ARow)], ' ', 1), 0) > 0 + then grdDoses.Cells[COL_SEQUENCE, Pred(ARow)] := 'THEN' + else grdDoses.Cells[COL_SEQUENCE, Pred(ARow)] := 'AND'; + end; *} + end; + // set appropriate value for cboDosage + SynchCombo(cboXDosage, ValFor(VAL_DOSAGE, ARow), ValFor(COL_DOSAGE, ARow)); + PlaceControl(cboXDosage); + FDropColumn := COL_DOSAGE; + if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_DOSAGE); + end; + COL_ROUTE: begin + // set appropriate value for cboRoute + SynchCombo(cboXRoute, ValFor(VAL_ROUTE, ARow), ValFor(COL_ROUTE, ARow)); + PlaceControl(cboXRoute); + FDropColumn := COL_ROUTE; + if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_ROUTE); + end; + COL_SCHEDULE: begin + // set appropriate value for cboSchedule + if FInptDlg then txtNSS.Visible := True; + x := Piece(grdDoses.Cells[COL_SCHEDULE, ARow], TAB, 1); + Changing := TRUE; + if ValFor(VAL_CHKXPRN,Arow)='1' then chkXPRN.Checked := true + else chkXPRN.Checked := False; + if Pos('PRN',x)>0 then + begin + cboXSchedule.SelectByID(x); + if cboXSchedule.ItemIndex <0 then + begin + x := Trim(Copy(x, 1, Pos('PRN', x) - 1)); + chkXPRN.Checked := true; + end; + end; + if Length(x) > 0 then + begin + cboXSchedule.SelectByID(x); + cboXSchedule.Text := x; + end + else cboXSchedule.ItemIndex := -1; + (* if Pos('PRN', x) > 0 then + begin + NonPRNPart := Trim(Copy(x, 1, Pos('PRN', x) - 1)); + cboXSchedule.SelectByID(NonPRNPart); + if cboXSchedule.ItemIndex > -1 then chkXPRN.Checked := True else + begin + chkXPRN.Checked := False; + cboXSchedule.SelectByID(x); + if cboXSchedule.ItemIndex < 0 then cboXSchedule.Text := x; + end; + end; *) + Changing := FALSE; + pnlXSequence.Tag := ARow; + PlaceControl(pnlXSchedule); + //cboXSchedule.SetFocus; + FDropColumn := COL_SCHEDULE; + if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_SCHEDULE); + end; + COL_DURATION: begin + // set appropriate value for pnlDuration + x := ValFor(VAL_DURATION, ARow); + Changing := TRUE; + txtXDuration.Text := Piece(x, ' ', 1); + x := Piece(x, ' ', 2); + if Length(x) > 0 then btnXDuration.Caption := LowerCase(x) + else begin + txtXDuration.Text := '0'; + btnXDuration.Caption := 'days'; + end; + tmpText := txtXDuration.Text; //Fix for CQ: 8107 - Kloogy but works. + UpdateDurationControls(False); + Changing := FALSE; + pnlXDuration.Tag := ARow; + PlaceControl(pnlXDuration); + txtXDuration.SetFocus; + ARow1 := ARow; + txtXDuration.Text := tmpText; //Fix for CQ: 8107 - Kloogy but works. + if AChar <> #0 then PostMessage(Handle, UM_DELAYEVENT, Ord(AChar), COL_DURATION); + end; + COL_SEQUENCE: begin + x := ValFor(COL_SEQUENCE, ARow); + //if x = '' then x := 'and'; AGP Change 26.46 remove for CQ 9535 + btnXSequence.Caption := x; + pnlXSequence.Caption := btnXSequence.Caption; + pnlXSequence.Tag := ARow; + ARow1 := ARow; + PlaceControl(pnlXSequence); + btnXSequence.Width := pnlXSequence.Width; + end; + end; {case ACol} +end; + +procedure TfrmODMeds.UMDelayEvent(var Message: TMessage); +{ after focusing events are completed for a combobox, set the key the user typed } +begin + case Message.LParam of + COL_DOSAGE : FindInCombo(Chr(Message.WParam), cboXDosage); + COL_ROUTE : FindInCombo(Chr(Message.WParam), cboXRoute); + COL_SCHEDULE : FindInCombo(Chr(Message.WParam), cboXSchedule); + COL_DURATION : begin + txtXDuration.Text := Chr(Message.WParam); + txtXDuration.SelStart := 1; + end; + end; +end; + +procedure TfrmODMeds.cboXDosageEnter(Sender: TObject); +begin + inherited; + // if this was the last row, create a new last row + if grdDoses.Row = Pred(grdDoses.RowCount) then grdDoses.RowCount := grdDoses.RowCount + 1; + DisableDefaultButton(self); + DisableCancelButton(self); +end; + +procedure TfrmODMeds.cboXDosageChange(Sender: TObject); +begin + inherited; + if not Changing and (cboXDosage.ItemIndex < 0) then + begin + grdDoses.Cells[COL_DOSAGE, cboXDosage.Tag] := cboXDosage.Text; + UpdateRelated; + end; +end; + +procedure TfrmODMeds.cboXDosageClick(Sender: TObject); +var + DispDrug: Integer; + x: string; +begin + inherited; + if FSuppressMsg then + begin + if PnlMessage.Visible = true then + begin + memMessage.SendToBack; + PnlMessage.Visible := False; + end; + end; + + with cboXDosage do if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text; + grdDoses.Cells[COL_DOSAGE, cboXDosage.Tag] := x; + UpdateRelated(FALSE); + DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID, cboXDosage.Tag), 0); + if DispDrug > 0 then + begin + if not FSuppressMsg then + begin + DispOrderMessage(DispenseMessage(DispDrug)); + FSuppressMsg := False; + end; + x := QuantityMessage(DispDrug); + end + else x := ''; + if Length(x) > 0 + then lblQtyMsg.Caption := TX_QTY_PRE + x + TX_QTY_POST + else lblQtyMsg.Caption := ''; +end; + +procedure TfrmODMeds.cboXDosageExit(Sender: TObject); +begin + inherited; + cboXDosageClick(Self); + cboXDosage.Tag := -1; + cboXDosage.Hide; + UpdateRelated; + RestoreDefaultButton; + RestoreCancelButton; + if (pnlMessage.Visible) and (memMessage.TabStop) then + begin + pnlMessage.Parent := grdDoses.Parent; + pnlMessage.TabOrder := grdDoses.TabOrder; + ActiveControl := memMessage; + end + else if grdDoses.Showing then + ActiveControl := grdDoses + else + ActiveControl := cboDosage; +end; + +procedure TfrmODMeds.cboXRouteChange(Sender: TObject); +begin + inherited; + //Commented out to fix CQ: 7280 +// if cboXRoute.Text = '' then cboXRoute.ItemIndex := -1; + if not Changing and (cboXRoute.ItemIndex < 0) then + begin + grdDoses.Cells[COL_ROUTE, cboXRoute.Tag] := cboXRoute.Text; + ControlChange(Self); + end; +end; + +procedure TfrmODMeds.cboXRouteClick(Sender: TObject); +var + x: string; +begin + inherited; + with cboXRoute do if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text; + grdDoses.Cells[COL_ROUTE, cboXRoute.Tag] := x; + ControlChange(Self); +end; + +procedure TfrmODMeds.cboXRouteExit(Sender: TObject); +begin + inherited; + //Removed based on Site feeback. See CQ: 7518 +{ if Not ValidateRoute(cboXRoute) then + Exit; } + if Trim(cboXRoute.Text) = '' then + begin + cboXRoute.ItemIndex := -1; + Exit; + end; + cboXRouteClick(Self); + cboXRoute.Tag := -1; + cboXRoute.Hide; + RestoreDefaultButton; + RestoreCancelButton; + if (pnlMessage.Visible) and (memMessage.TabStop) then + begin + pnlMessage.Parent := grdDoses.Parent; + pnlMessage.TabOrder := grdDoses.TabOrder; + ActiveControl := memMessage; + end + else if grdDoses.Showing then + ActiveControl := grdDoses + else + ActiveControl := cboDosage; +end; + +procedure TfrmODMeds.pnlXScheduleEnter(Sender: TObject); +begin + inherited; + cboXSchedule.SetFocus; + DisableDefaultButton(self); + DisableCancelButton(self); +end; + +procedure TfrmODMeds.cboXScheduleChange(Sender: TObject); +var + othSch, x: string; + idx : integer; +begin + inherited; + //Commented out to fix CQ: 7280 +// if cboXSchedule.Text = '' then cboXSchedule.ItemIndex := -1; + if not Changing {and (cboXSchedule.ItemIndex < 0)} then + begin + if (FInptDlg) and (cboXSchedule.Text = 'OTHER') then + begin + othSch := CreateOtherScheduelComplex; + if length(trim(othSch)) > 1 then + begin + cboXSchedule.Items.Add(othSch); + idx := cboXSchedule.Items.IndexOf(OthSch); + cboXSchedule.ItemIndex := idx; + end; + end; + (* if chkXPRN.Checked then PRN := ' PRN' else PRN := ''; + with cboXSchedule do if ItemIndex > -1 + then x := Text + PRN + TAB + Items[ItemIndex] + else x := Text + PRN; *) + with cboXSchedule do if ItemIndex > -1 + then x := Text + TAB + Items[ItemIndex] + else x := Text; + grdDoses.Cells[COL_SCHEDULE, pnlXSchedule.Tag] := x; + self.cboSchedule.Text := x; + UpdateRelated; + end; +end; + +procedure TfrmODMeds.cboXScheduleClick(Sender: TObject); +var + x: string; +begin + inherited; + //if chkXPRN.Checked then PRN := ' PRN' else PRN := ''; + (* with cboXSchedule do if ItemIndex > -1 + then x := Text + PRN + TAB + Items[ItemIndex] + else x := Text + PRN; *) + with cboXSchedule do if ItemIndex > -1 + then x := Text + TAB + Items[ItemIndex] + else x := Text; + (* if (Pos('PRN',X)>0) and (pnlXSchedule.Tag = 1) then + if lblAdmintime.visible then + lblAdmintime.Caption := ''; *) + grdDoses.Cells[COL_SCHEDULE, pnlXSchedule.Tag] := x; + UpdateStartExpires(x); + UpdateRelated; +end; + +procedure TfrmODMeds.chkXPRNClick(Sender: TObject); +var +check: string; +begin + inherited; + if self.chkXPRN.Checked = True then check := '1' + else check := '0'; + self.grdDoses.Cells[COL_CHKXPRN, self.grdDoses.Row] := check; + if not Changing then cboXScheduleClick(Self); +end; + +procedure TfrmODMeds.pnlXScheduleExit(Sender: TObject); +begin + inherited; + if Not FShowPnlXScheduleOk then //Added for CQ: 7370 + Exit; + cboXScheduleClick(Self); + pnlXSchedule.Tag := -1; + pnlXSchedule.Hide; + UpdateRelated; + RestoreDefaultButton; + RestoreCancelButton; + if (pnlMessage.Visible) and (memMessage.TabStop) then + begin + pnlMessage.Parent := grdDoses.Parent; + pnlMessage.TabOrder := grdDoses.TabOrder; + ActiveControl := memMessage; + end + else if grdDoses.Showing then + ActiveControl := grdDoses + else + ActiveControl := cboDosage; +end; + +procedure TfrmODMeds.pnlXDurationEnter(Sender: TObject); +begin + inherited; + txtXDuration.SetFocus; + DisableDefaultButton(self); + DisableCancelButton(self); +end; + +procedure TfrmODMeds.txtXDurationChange(Sender: TObject); +var + I, Code: Integer; + OrgValue: string; +begin + inherited; + if Changing then Exit; + if (txtXDuration.Text <> '0') and (txtXDuration.Text <> '') then + begin + Val(txtXDuration.Text, I, Code); + UpdateDurationControls(Code <> 0); + //Commented out the "and" to resolve CQ: 7557 + if (Code <> 0) {and (I=0)} then + begin + ShowMessage('Please use numeric characters only.'); + with txtXDuration do + begin + Text := IntToStr(I); + SelStart := Length(Text); + end; + Exit; + btnXDuration.Width := 8; + btnXDuration.Align := alRight; + spnXDuration.Visible := False; + txtXduration.Align := alClient; + PopDuration.Items.Tag := 0; + btnXDuration.Caption := ''; + end; + {AGP change 26.19 for PSI-05-018 cq #7322 + else if PopDuration.Items.Tag = 0 then + begin + PopDuration.Items.Tag := 3; //Days selection + btnXDuration.Caption := 'days'; + end; } + grdDoses.Cells[COL_DURATION, pnlXDuration.Tag] := txtXDuration.Text + ' ' + Uppercase(btnXDuration.Caption); + end else //AGP CHANGE ORDER + begin + if not(FInptDlg) then grdDoses.Cells[COL_DURATION, pnlXDuration.Tag] := ''; + OrgValue := ValFor(COL_DURATION, pnlxDuration.tag); + //if ((txtXDuration.Text = '0') or (txtXDuration.Text = '')) and ((ValFor(COL_SEQUENCE, ARow1) = 'THEN') and (FInptDlg)) then //AGP CHANGE ORDER + //AGP change 26.33 Then/And conjunction requiring a duration to include outpatient orders also + if ((txtXDuration.Text = '0') or (txtXDuration.Text = '')) and (ValFor(COL_SEQUENCE, ARow1) = 'THEN') then //AGP CHANGE ORDER + begin + if (InfoBox('A duration is required when using "Then" as a sequence.'+CRLF+'"Then" will be remove from the sequence field if you continue'+ + CRLF+'Click "OK" to continue or click "Cancel"','Duration Warning', MB_OKCANCEL)=1) then + begin + grdDoses.Cells[COL_DURATION, pnlXDuration.Tag] := ''; + pnlXSequence.Tag := ARow1; + pnlXSequence.Caption := ''; + grdDoses.Cells[COL_SEQUENCE, pnlXSequence.Tag] := ''; + btnXSequence.Click; + end + else + grdDoses.Cells[COL_DURATION, pnlXDuration.Tag] := OrgValue; + end + else grdDoses.Cells[COL_DURATION, pnlXDuration.Tag] := txtXDuration.Text; + end; + // end; + ControlChange(Self); + UpdateRelated; +end; + +procedure TfrmODMeds.pnlXDurationExit(Sender: TObject); +begin + inherited; + pnlXDuration.Tag := -1; + pnlXDuration.Hide; + UpdateRelated; + RestoreDefaultButton; + RestoreCancelButton; + if (pnlMessage.Visible) and (memMessage.TabStop) then + begin + pnlMessage.Parent := grdDoses.Parent; + pnlMessage.TabOrder := grdDoses.TabOrder; + ActiveControl := memMessage; + end + else if grdDoses.Showing then + ActiveControl := grdDoses + else + ActiveControl := cboDosage; +end; + +procedure TfrmODMeds.btnXSequenceClick(Sender: TObject); +var + APoint: TPoint; +begin + inherited; + inherited; + with TSpeedButton(Sender) do APoint := ClientToScreen(Point(0, Height)); + popXSequence.Popup(APoint.X, APoint.Y); + pnlXSequence.Caption := btnXSequence.Caption; + { + with TSpeedButton(Sender) do APoint := ClientToScreen(Point(0, Height)); + popXSequence.Popup(APoint.X, APoint.Y); + pnlXSequence.Caption := btnXSequence.Caption; + if (pnlXSequence.Caption = 'then') and + ((ValFor(COL_DURATION, ARow1) = '') or + (ValFor(COL_DURATION, ARow1) = '0')) then + begin + InfoBox('A duration is required when using "Then" as a conjunction','Duration Warning',MB_OK); + pnlXSequence.Caption := ''; + btnXSequence.Caption := ''; + end; + } +end; + +procedure TfrmODMeds.popXSequenceClick(Sender: TObject); +var + x: string; +begin + inherited; + with TMenuItem(Sender) do if Tag > 0 then x := Caption else x := ''; + //AGP Changes 26.12 PSI-04-63 + //if ((x = 'then') and (FInptDlg)) and ((ValFor(COL_DURATION, ARow1) = '') or (ValFor(COL_DURATION, ARow1) = '0')) then + //AGP change 26.32 Then/And conjunction requiring a duration to include outpatient orders + if (x = 'then') and ((ValFor(COL_DURATION, ARow1) = '') or (ValFor(COL_DURATION, ARow1) = '0')) then + begin + InfoBox('A duration is required when using "Then" as a conjunction' + CRLF + CRLF+ + 'The patient will be instructed to take these doses consecutively, not concurrently.','Duration Warning',MB_OK); + x := ''; + end; + btnXSequence.Caption := x; + pnlXSequence.Caption := btnXSequence.Caption; + grdDoses.Cells[COL_SEQUENCE, pnlXSequence.Tag] := Uppercase(x); + ControlChange(Sender); +end; + +procedure TfrmODMeds.pnlXSequenceExit(Sender: TObject); +begin + inherited; + grdDoses.Cells[COL_SEQUENCE, pnlXSequence.Tag] := Uppercase(btnXSequence.Caption); + if ActiveControl = grdDoses then + begin + //This next condition seldom occurs, since entering the dosage on the last + // row adds another row + if grdDoses.Row = grdDoses.RowCount - 1 then + grdDoses.RowCount := grdDoses.RowCount + 1; + end; + pnlXSequence.Tag := -1; + pnlXSequence.Hide; + RestoreDefaultButton; + RestoreCancelButton; + if (pnlMessage.Visible) and (memMessage.TabStop) then + begin + pnlMessage.Parent := grdDoses.Parent; + pnlMessage.TabOrder := grdDoses.TabOrder; + ActiveControl := memMessage; + end + else if grdDoses.Showing then + ActiveControl := grdDoses + else + ActiveControl := cboDosage; +end; + +procedure TfrmODMeds.btnXInsertClick(Sender: TObject); +var + i: Integer; + x1, x2: string; +begin + inherited; + grdDoses.SetFocus; // make sure exit events for editors fire + with grdDoses do + begin + if Row < 1 then Exit; + x1 := grdDoses.Cells[COL_ROUTE, Row]; + x2 := grdDoses.Cells[COL_SCHEDULE, Row]; + RowCount := RowCount + 1; + { move rows down } + for i := Pred(RowCount) downto Succ(Row) do Rows[i] := Rows[i-1]; + Rows[Row].Clear; + Cells[COL_ROUTE, Row] := x1; + Cells[COL_SCHEDULE, Row] := x2; + Col := COL_DOSAGE; + ShowEditor(COL_DOSAGE, Row, #0); + end; + DropLastSequence; +end; + +procedure TfrmODMeds.btnXRemoveClick(Sender: TObject); +var + i: Integer; +begin + inherited; + grdDoses.SetFocus; // make sure exit events for editors fire + with grdDoses do if (Row > 0) and (RowCount > 2) then + begin + { move rows up } + for i := Row to RowCount - 2 do Rows[i] := Rows[i+1]; + RowCount := RowCount - 1; + Rows[RowCount].Clear; + end; + DropLastSequence; + ControlChange(Self); +end; + +function TfrmODMeds.ValueOf(FieldID: Integer; ARow: Integer = -1): string; +var + x: string; +{ Contents of cboDosage + DrugName^Strength^NF^TDose&Units&U/D&Noun&LDose&Drug^DoseText^CostText^MaxRefills + Contents of grid cells (Only the first tab piece for each cell is drawn) + Dosage DosageFields + RouteText IEN^RouteName^Abbreviation + Schedule (nothing) + Duration Duration^Units } +begin + Result := ''; + if ARow < 0 then // use single dose controls + begin + case FieldID of + FLD_DOSETEXT : with cboDosage do + if ItemIndex > -1 then Result := Uppercase(Piece(Items[ItemIndex], U, 5)) + else Result := Uppercase(Text); + FLD_LOCALDOSE : with cboDosage do + if ItemIndex > -1 then Result := Piece(Piece(Items[ItemIndex], U, 4), '&', 5) + else Result := Uppercase(Text); + FLD_STRENGTH : with cboDosage do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 2); + FLD_DRUG_ID : with cboDosage do + if ItemIndex > -1 then Result := Piece(Piece(Items[ItemIndex], U, 4), '&', 6); + FLD_DRUG_NM : with cboDosage do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 1); + FLD_DOSEFLDS : with cboDosage do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 4); + FLD_TOTALDOSE : with cboDosage do + if ItemIndex > -1 then Result := Piece(Piece(Items[ItemIndex], U, 4), '&', 1); + FLD_UNITNOUN : with cboDosage do + if ItemIndex > -1 then Result := Piece(Piece(Items[ItemIndex], U, 4), '&', 3) + ' ' + + Piece(Piece(Items[ItemIndex], U, 4), '&', 4); + FLD_ROUTE_ID : with cboRoute do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 1); + FLD_ROUTE_NM : with cboRoute do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 2) + else Result := Text; + FLD_ROUTE_AB : with cboRoute do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 3); + FLD_ROUTE_EX : with cboRoute do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 4); + FLD_SCHEDULE : begin //gary) + Result := UpperCase(Trim(cboSchedule.Text)); + if chkPRN.Checked then Result := Result + ' PRN'; + if UpperCase(Copy(Result, Length(Result) - 6, Length(Result))) = 'PRN PRN' + then Result := Copy(Result, 1, Length(Result) - 4); + end; + FLD_SCHED_EX : begin + with cboSchedule do + begin + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 2); + (* if (Length(Result)=0) and (ItemIndex > -1) then + begin + Result := Piece(Items[ItemIndex], U, 1); + if Piece(Items[ItemIndex], U, 3) = 'P' then + begin + if RightStr(Result,3) = 'PRN' then + begin + Result := Copy(Result,1,Length(Result)-3); //Remove the Trailing PRN + if (RightStr(Result,1) = ' ') or (RightStr(Result,1) = '-') then + Result := Copy(Result,1,Length(Result)-1); + end; + Result := Result + ' AS NEEDED'; + end; + end; + end; *) + if RightStr(Result,3) = 'PRN' then + begin + Result := Copy(Result,1,Length(Result)-3); //Remove the Trailing PRN + if (RightStr(Result,1) = ' ') or (RightStr(Result,1) = '-') then + Result := Copy(Result,1,Length(Result)-1); + Result := Result + ' AS NEEDED' + end; + if (Length(Result) > 0) and chkPRN.Checked then Result := Result + ' AS NEEDED'; + if UpperCase(Copy(Result, Length(Result) - 18, Length(Result))) = 'AS NEEDED AS NEEDED' + then Result := Copy(Result, 1, Length(Result) - 10); + if UpperCase(Copy(Result, Length(Result) - 12, Length(Result))) = 'PRN AS NEEDED' then + begin + Result := Copy(Result, 1, Length(Result) - 13); + if RightStr(Result,1)=' ' then Result := Result + 'AS NEEDED' + else Result := Result + ' AS NEEDED'; + end; + end; + end; + FLD_SCHED_TYP : with cboSchedule do + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 3); + FLD_QTYDISP : with cboDosage do + begin + if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 8); + if (Result = '') and (Items.Count > 0) then Result := Piece(Items[0], U, 8); + if Result <> '' + then Result := 'Qty (' + Result + ')' + else Result := 'Quantity'; + end; + end; {case FieldID} // use complex dose controls + end else + begin + if (ARow < 1) or (ARow >= grdDoses.RowCount) then Exit; + if Length(FDrugID) > 0 + then x := FieldsForDose(ARow) + else x := Piece(Piece(grdDoses.Cells[COL_DOSAGE, ARow], TAB, 2), U, 4); + with grdDoses do + case FieldID of + FLD_DOSETEXT : Result := Uppercase(Piece(Cells[COL_DOSAGE, ARow], TAB, 1)); + FLD_LOCALDOSE : begin + if (Length(x) > 0) and (Length(FDrugID) > 0) + then Result := Piece(x, '&', 5) + else Result := Uppercase(Piece(Cells[COL_DOSAGE, ARow], TAB, 1)); + end; + FLD_STRENGTH : Result := Piece(x, '&', 7) + Piece(x, '&', 8); + FLD_DRUG_ID : Result := Piece(x, '&', 6); + FLD_DRUG_NM : Result := Piece(FieldsForDrug(Piece(x, '&', 6)), U, 4); + FLD_DOSEFLDS : Result := x; + FLD_TOTALDOSE : Result := Piece(x, '&', 1); + FLD_UNITNOUN : Result := Piece(x, '&', 3) + ' ' + Piece(x, '&', 4); + FLD_ROUTE_ID : Result := Piece(Piece(Cells[COL_ROUTE, ARow], TAB, 2), U, 1); + FLD_ROUTE_NM : begin + Result := Piece(Piece(Cells[COL_ROUTE, ARow], TAB, 2), U, 2); + if Result = '' then Result := Piece(Cells[COL_ROUTE, ARow], TAB, 1); + end; + FLD_ROUTE_AB : Result := Piece(Piece(Cells[COL_ROUTE, ARow], TAB, 2), U, 3); + FLD_ROUTE_EX : Result := Piece(Piece(Cells[COL_ROUTE, ARow], TAB, 2), U, 4); + FLD_SCHEDULE : begin + Result := Piece(Piece(Cells[COL_SCHEDULE, ARow], TAB, 2), U, 1); + if Result = '' then Result := Piece(Cells[COL_SCHEDULE, ARow], TAB, 1); + if valFor(VAL_CHKXPRN,ARow)='1' then Result := Result + ' PRN'; + if UpperCase(Copy(Result, Length(Result) - 6, Length(Result))) = 'PRN PRN' then + Result := Copy(Result, 1, Length(Result) - 4); + end; + FLD_SCHED_EX : begin + (*Result := Piece(Piece(Cells[COL_SCHEDULE, ARow], TAB, 2), U, 2); + if Result = '' then //Added for CQ: 7639 + begin + Result := Piece(Cells[COL_SCHEDULE, ARow], TAB, 1); + if RightStr(Result,4) = ' PRN' then + Result := Copy(Result,1,Length(Result)-4); //Remove the Trailing PRN + end; + if (Piece(Cells[COL_SCHEDULE, ARow], TAB, 1) <> + Piece(Piece(Cells[COL_SCHEDULE, ARow], TAB, 2), U, 1)) and + (Pos('PRN', Piece(Cells[COL_SCHEDULE, ARow], TAB, 1)) > 0) + then Result := Result + ' AS NEEDED'; + end;*) + Result := Piece(Piece(Cells[COL_SCHEDULE, ARow], TAB, 2),U,2); + if Result = '' then Result := Piece(Piece(Cells[COL_SCHEDULE, ARow], TAB, 2),U,1); //Added for CQ: 7639 + if Result = '' then Result := Piece(Cells[COL_SCHEDULE, ARow], TAB, 1); + if RightStr(Result,3) = 'PRN' then + begin + Result := Copy(Result,1,Length(Result)-3); //Remove the Trailing PRN + if (RightStr(Result,1) = ' ') or (RightStr(Result,1) = '-') then + Result := Copy(Result,1,Length(Result)-1); + Result := Result + ' AS NEEDED'; + end; + if valFor(VAL_CHKXPRN,ARow)='1' then Result := Result + ' AS NEEDED'; + if UpperCase(Copy(Result, Length(Result) - 18, Length(Result))) = 'AS NEEDED AS NEEDED' + then Result := Copy(Result, 1, Length(Result) - 10); + if UpperCase(Copy(Result, Length(Result) - 12, Length(Result))) = 'PRN AS NEEDED' then + begin + Result := Copy(Result, 1, Length(Result) - 13); + if RightStr(Result,1)=' ' then Result := Result + 'AS NEEDED' + else Result := Result + ' AS NEEDED'; + end; + end; + FLD_SCHED_TYP : Result := Piece(Piece(Cells[COL_SCHEDULE, ARow], TAB, 2), U, 3); + FLD_DURATION : Result := Piece(Cells[COL_DURATION, ARow], TAB, 1); + FLD_SEQUENCE : Result := Piece(Cells[COL_SEQUENCE, ARow], TAB, 1); + end; {case FieldID} + end; {if ARow} + if FieldID > FLD_MISC_FLDS then // still need to process 'non-sig' fields + begin + case FieldID of + FLD_SUPPLY : Result := Trim(txtSupply.Text); + FLD_QUANTITY : + begin + if Pos(',', txtQuantity.Text)>0 then + Result := Piece(txtQuantity.Text,',',1) + Piece(txtQuantity.Text,',',2) + else + Result := Trim(txtQuantity.Text); + end; + FLD_REFILLS : Result := txtRefills.Text; + FLD_PICKUP : if radPickWindow.Checked then Result := 'W' + else if radPickMail.Checked then Result := 'M' + else if radPickClinic.Checked then Result := 'C' + else Result := ''; + FLD_PRIOR_ID : Result := cboPriority.ItemID; + FLD_PRIOR_NM : Result := cboPriority.Text; + FLD_COMMENT : Result := memComment.Text; + FLD_SC : if chkSC.Visible then + begin + if chkSC.Checked then Result := '1' else Result := '0'; + end; + FLD_NOW_ID : if chkDoseNow.Visible and chkDoseNow.Checked then Result := '1' else Result := ''; + FLD_NOW_NM : if chkDoseNow.Visible and chkDoseNow.Checked then Result := 'NOW' else Result := ''; + FLD_PTINSTR : if chkPtInstruct.Visible and chkPtInstruct.Checked + then Result := FPtInstruct + else Result := ' '; + end; {case FieldID} + end; {if FieldID} +end; + +function TfrmODMeds.ValueOfResponse(FieldID: Integer; AnInstance: Integer = 1): string; +var + x: string; +begin + case FieldID of + FLD_SCHEDULE : Result := Responses.IValueFor('SCHEDULE', AnInstance); + FLD_UNITNOUN : begin + x := Responses.IValueFor('DOSE', AnInstance); + Result := Piece(x, '&', 3) + ' ' + Piece(x, '&', 4); + end; + FLD_DOSEUNIT : begin + x := Responses.IValueFor('DOSE', AnInstance); + Result := Piece(x, '&', 3); + end; + FLD_DRUG_ID : Result := Responses.IValueFor('DRUG', AnInstance); + FLD_INSTRUCT : Result := Responses.IValueFor('INSTR', AnInstance); + FLD_SUPPLY : Result := Responses.IValueFor('SUPPLY', AnInstance); + FLD_QUANTITY : Result := Responses.IValueFor('QTY', AnInstance); + FLD_ROUTE_ID : Result := Responses.IValueFor('ROUTE', AnInstance); + FLD_EXPIRE : Result := Responses.IValueFor('DAYS', AnInstance); + FLD_ANDTHEN : Result := Responses.IValueFor('CONJ', AnInstance); + end; +end; + +procedure TfrmODMeds.UpdateDefaultSupply(const CurUnits, CurSchedule, CurDuration, CurDispDrug: string; + var CurSupply: Integer; var CurQuantity: double; var SkipQtyCheck: Boolean); +var + ADrug: string; +begin + if ((StrToFloatDef(txtQuantity.Text, 0) = 0) and (StrToIntDef(txtSupply.Text, 0) = 0) and + (txtQuantity.Tag = 0) and (txtSupply.Tag = 0) and (cboDosage.Text <> '')) + or ((cboDosage.ItemIndex < 0) and not FIsQuickOrder ) then + begin + ADrug := Piece(CurDispDrug, U, 1); + CurSupply := DefaultDays(ADrug, CurUnits, CurSchedule); + if CurSupply > 0 then + begin + spnSupply.Position := CurSupply; + if (txtSupply.Text = '') or (StrToInt(txtSupply.Text)<>CurSupply) then + txtSupply.Text := IntToStr(CurSupply); + if (FIsQuickOrder and FQOInitial) then + begin + if StrToFloatDef(txtSupply.Text,0) > 0 then + begin + Exit; + end; + end; + CurQuantity := DaysToQty(CurSupply, CurUnits, CurSchedule, CurDuration, ADrug); + if CurQuantity >= 0 then + begin + //spnQuantity.Position := CurQuantity; + if txtQuantity.Text <> '' then + txtQuantity.Text := FloatToStr(CurQuantity); + if (txtQuantity.Text = '') or (StrToInt(txtQuantity.Text) <> CurQuantity) then + txtQuantity.Text := FloatToStr(CurQuantity); + end; + SkipQtyCheck := TRUE; + end; + end; +end; + +procedure TfrmODMeds.UpdateSupplyQuantity(const CurUnits, CurSchedule, CurDuration, CurDispDrug: string; + var CurSupply: Integer; var CurQuantity: double); +const + UPD_NONE = 0; + UPD_QUANTITY = 1; + UPD_SUPPLY = 2; + UPD_COMPLEX = 3; + UPD_BOTH = 4; +var + UpdateControl, NewSupply: Integer; + ADrug: string; + SaveChanging: Boolean; + tmpQuty: Double; +begin + tmpQuty := 0; + if (tabDose.TabIndex = TI_COMPLEX) and (txtSupply.Tag = 0) and (txtQuantity.Tag = 0) then + begin + // set days supply based on durations + NewSupply := DurationToDays; + if NewSupply > 0 then + begin + SaveChanging := Changing; + Changing := TRUE; + txtSupply.Text := IntToStr(NewSupply); + CurSupply := NewSupply; + Changing := SaveChanging; + end; + end; + // exit if not enough fields to calculation supply or quantity + if (CurQuantity = 0) and (CurSupply = 0) then Exit; + // exit if nothing has changed + if (CurUnits = FLastUnits) and + (CurSchedule = FLastSchedule) and + (CurDuration = FLastDuration) and + (CurQuantity = FLastQuantity) and + (CurSupply = FLastSupply) then Exit; + // exit if supply & quantity have both been directly edited + if (txtSupply.Tag > 0) and (txtQuantity.Tag > 0) then Exit; + // figure out which control to update + UpdateControl := UPD_NONE; + + if (CurSupply <> FLastSupply) and (txtQuantity.Tag = 0) and (CurQuantity <> FLastQuantity) and (txtSupply.Tag = 0) and Changing then UpdateControl := UPD_BOTH + else if (CurSupply <> FLastSupply) and (txtQuantity.Tag = 0) then UpdateControl := UPD_QUANTITY + else if (CurQuantity <> FLastQuantity) and (txtSupply.Tag = 0) then UpdateControl := UPD_SUPPLY; + if (UpdateControl = UPD_NONE) and ((CurUnits <> FLastUnits) or (CurSchedule <> FLastSchedule)) then + begin + if txtQuantity.Tag = 0 then UpdateControl := UPD_QUANTITY + else if txtSupply.Tag = 0 then UpdateControl := UPD_SUPPLY; + end; + ADrug := Piece(CurDispDrug, U, 1); // just use the first dispense drug (for clozapine chk) + case UpdateControl of + UPD_QUANTITY : begin + if FIsQuickOrder and (CurQuantity > 0) and FQOInitial then + begin + FQOInitial := False; + Exit; + end; + if FIsQuickOrder and (CurQuantity > 0) then + tmpQuty := CurQuantity; + CurQuantity := DaysToQty(CurSupply, CurUnits, CurSchedule, CurDuration, ADrug); + if (tmpQuty > 0) and (CurQuantity <= 0) then + begin + txtQuantity.Text := FloatToStr(tmpQuty); + CurQuantity := tmpQuty; + end else if (CurQuantity >= 0) then + txtQuantity.Text := FloatToStr(CurQuantity); + end; + UPD_SUPPLY : begin + CurSupply := QtyToDays(CurQuantity, CurUnits, CurSchedule, CurDuration, ADrug); + if CurSupply > 0 then txtSupply.Text := IntToStr(CurSupply); + end; + UPD_BOTH : begin + txtSupply.Text := IntToStr(CurSupply); + tmpQuty := 0; + if FIsQuickOrder and (CurQuantity > 0) and FQOInitial then + begin + FQOInitial := False; + Exit; + end; + if FIsQuickOrder and (CurQuantity > 0) then + tmpQuty := CurQuantity; + CurQuantity := DaysToQty(CurSupply, CurUnits, CurSchedule, CurDuration, ADrug); + if (tmpQuty > 0) and (CurQuantity <= 0) then + begin + txtQuantity.Text := FloatToStr(tmpQuty); + CurQuantity := tmpQuty; + end else if CurQuantity >= 0 then + txtQuantity.Text := FloatToStr(CurQuantity); + end; + end; + if UpdateControl > UPD_NONE then FUpdated := True; +end; + +procedure TfrmODMeds.UpdateSC(const CurDispDrug: string); +var + Dispense: Integer; +begin + Dispense := StrToIntDef(Piece(CurDispDrug, U, 1), 0); // just use first dispense drug for now + if Patient.ServiceConnected and RequiresCopay(Dispense) then + begin + chkSC.Visible := True; + if chkSC.Tag = 0 then chkSC.Checked := Patient.SCPercent > 50; + if chkSC.Hint = '' then chkSC.Hint := RatedDisabilities; + end + else chkSC.Visible := False; + FUpdated := True; +end; + +procedure TfrmODMeds.UpdateStartExpires(const CurSchedule: string); +var + CompSch, ShowText, Duration, ASchedule: string; + AdminTime: TFMDateTime; + i, j, Interval, PrnPos: Integer; +begin + if Length(CurSchedule)=0 then Exit; + ASchedule := Trim(CurSchedule); + if (Pos('^',ASchedule)>0) then + begin + PrnPos := Pos('PRN',ASchedule); + if (PrnPos > 1) and (CharAt(ASchedule,PrnPos-1)=' ') then + Delete(ASchedule, PrnPos-1, 4); + end; + ASchedule := Trim(ASchedule); + if self.tabDose.TabIndex = TI_COMPLEX then + begin + CompSch := valFor(VAL_SCHEDULE,1); + if CompSch = '' then + begin + ASchedule := ''; + AdminTime := -1; + end; + if CompSch <> '' then + begin + for i := 0 to self.cboXSchedule.Items.Count-1 do + begin + if (Piece(self.cboXSchedule.Items.Strings[i],U,1) = CompSch) and (Piece(self.cboXSchedule.Items.Strings[i],U,3)='P') then + begin + AdminTime := -1; + Aschedule := ''; + end; + end; + end; + if valFor(VAL_CHKXPRN,1)='1' then + begin + AdminTime := -1; + Aschedule := ''; + end; + if (ASchedule <> '') and (CompSch <> '') then ASchedule := ';' + CompSch; + end; + if Length(ASchedule)>0 then + LoadAdminInfo(ASchedule, txtMed.Tag, ShowText, AdminTime, Duration); + //else Exit; + if (AdminTime > 0) and (self.tabDose.TabIndex = TI_DOSE) then + begin + if self.cboSchedule.ItemIndex = -1 then + begin + for j := 0 to self.cboSchedule.items.Count -1 do + begin + if (Piece(self.cboSchedule.Items.Strings[j],U,1) = Piece(Aschedule,';',2)) and (Piece(self.cboSchedule.Items.Strings[j],U,3)='P') then + begin + AdminTime := -1; + break; + end; + end; + end; + if (self.cboSchedule.ItemIndex > -1) and (Piece(self.cboSchedule.Items.Strings[self.cboSchedule.ItemIndex],U,3)='P') then + AdminTime := -1; + if self.chkPRN.Checked = true then AdminTime := -1 + end; + if AdminTime > 0 then + begin + ShowText := 'Expected First Dose: '; + Interval := Trunc(FMDateTimeToDateTime(AdminTime) - FMDateTimeToDateTime(FMToday)); + case Interval of + 0: ShowText := ShowText + 'TODAY ' + FormatFMDateTime('(mmm dd, yy) at hh:nn', AdminTime); + 1: ShowText := ShowText + 'TOMORROW ' + FormatFMDateTime('(mmm dd, yy) at hh:nn', AdminTime); + else ShowText := ShowText + FormatFMDateTime('mmm dd, yy at hh:nn', AdminTime); + end; + + if (Pos('PRN',Piece(CurSchedule,'^',1))>0) and ((pnlXSchedule.Tag = 1) or chkPrn.Checked ) then + begin + if lblAdmintime.visible then + begin + lblAdmintime.Caption := ''; + FAdminTimeLbl := lblAdminTime.Caption; + end; + end else + lblAdminTime.Caption := ShowText; + FAdminTimeLbl := lblAdminTime.Caption; + end + else lblAdminTime.Caption := ''; +end; + +procedure TfrmODMeds.UpdateRefills(const CurDispDrug: string; CurSupply: Integer); +begin + if EvtForPassDischarge = 'D' then + spnRefills.Max := CalcMaxRefills(CurDispDrug, CurSupply, txtMed.Tag, True) + else + spnRefills.Max := CalcMaxRefills(CurDispDrug, CurSupply, txtMed.Tag, Responses.EventType = 'D'); + if StrToIntDef(txtRefills.Text, 0) > spnRefills.Max then + begin + txtRefills.Text := IntToStr(spnRefills.Max); + spnRefills.Position := spnRefills.Max; + FUpdated := True; + end; +end; + +procedure TfrmODMeds.UpdateRelated(DelayUpdate: Boolean = TRUE); +begin + timCheckChanges.Enabled := False; // turn off timer + if DelayUpdate + then timCheckChanges.Enabled := True // restart timer + else timCheckChangesTimer(Self); // otherwise call directly +end; + +procedure TfrmODMeds.timCheckChangesTimer(Sender: TObject); +const + UPD_NONE = 0; + UPD_QUANTITY = 1; + UPD_SUPPLY = 2; +var + CurUnits, CurSchedule, CurInstruct, CurDispDrug, CurDuration, TmpSchedule, x, x1: string; + CurScheduleIN, CurScheduleOut: string; + CurSupply, i, pNum, j: Integer; + CurQuantity: double; + LackQtyInfo, SaveChanging, DispFirstDose: Boolean; +begin + inherited; + timCheckChanges.Enabled := False; + ControlChange(Self); + SaveChanging := Changing; + Changing := TRUE; + DispFirstDose := FALSE; + // don't allow Exit procedure so Changing gets reset appropriately + CurUnits := ''; + CurSchedule := ''; + CurDuration := ''; + LackQtyInfo := False; + i := Responses.NextInstance('DOSE', 0); + while i > 0 do + begin + x := ValueOfResponse(FLD_DOSEUNIT, i); + if (x = '') and (not FIsQuickOrder) then LackQtyInfo := TRUE //StrToIntDef(x, 0) = 0 + else if (x = '') and FIsQuickOrder and (Length(txtQuantity.Text)>0) then + LackQtyInfo := false; + CurUnits := CurUnits + x + U; + x := ValueOfResponse(FLD_SCHEDULE, i); + if Length(x) = 0 then LackQtyInfo := TRUE; + CurScheduleOut := CurScheduleOut + x + U; + x1 := ValueOf(FLD_SEQUENCE,i); + if Length(x1)>0 then + begin + X1 := CharAt(X1,1); + CurScheduleIn := CurScheduleIn + x1 + ';' + x + U; + end + else + CurScheduleIn := CurScheduleIn + ';' + x + U; + x := ValueOfResponse(FLD_EXPIRE, i); + CurDuration := CurDuration + x + '~'; + x := ValueOfResponse(FLD_ANDTHEN, i); + CurDuration := CurDuration + x + U; + x := ValueOfResponse(FLD_DRUG_ID, i); + CurDispDrug := CurDispDrug + x + U; + x := ValueOfResponse(FLD_INSTRUCT, i); + CurInstruct := CurInstruct + x + U; //AGP CHANGE 26.19 FOR CQ 7465 + i := Responses.NextInstance('DOSE', i); + end; + + pNum := 1; + while Length( Piece(CurScheduleIn,U,pNum)) > 0 do + pNum := pNum + 1; + if Length(Piece(CurScheduleIn,U,pNum)) < 1 then + for j := 1 to pNum - 1 do + begin + if j = pNum -1 then + TmpSchedule := TmpSchedule + ';' + Piece(Piece(CurScheduleIn,U,j),';',2) + else + TmpSchedule := TmpSchedule + Piece(CurScheduleIn,U,j) + U + end; + CurScheduleIn := TmpSchedule; + CurQuantity := StrToFloatDef(ValueOfResponse(FLD_QUANTITY), 0); + CurSupply := StrToIntDef(ValueOfResponse(FLD_SUPPLY) ,0); + if FInptDlg then + begin + CurSchedule := CurScheduleIn; + if Pos('^',CurSchedule)>0 then + begin + if Pos('PRN',Piece(CurSchedule,'^',1))>0 then + if lblAdminTime.Visible then + lblAdminTime.Caption := ''; + end; + if CurSchedule <> FLastSchedule then UpdateStartExpires(CurSchedule); + if (ValueOf(FLD_SCHED_TYP) = 'O') + or (Responses.EventType in ['A','D','T','M','O']) + or ((Length(cboSchedule.Text)>0) and (cboSchedule.ItemIndex < 0)) then + begin + if (chkDoseNow.Checked) and (chkDoseNow.Visible) then + begin + chkDoseNowClick(Self); + chkDoseNow.Checked := False; + end; + for i := 0 to cboSchedule.Items.Count-1 do + begin + if Piece(cboSchedule.Items.Strings[i],U,1) = Uppercase(cboSchedule.Text) then + begin + DispFirstDose := True; + break; + end; + end; + if not DispFirstDose then + begin + chkDoseNow.Visible := False; + lblAdminTime.Visible := False; + end; + end + else + begin + chkDoseNow.Visible := TRUE; + lblAdminTime.Visible := not chkDoseNow.Checked; + end; + if Responses.EventType in ['A','D','T','M','O'] then lblAdminTime.Visible := False; + end; + if not FInptDlg then + begin + CurSchedule := CurScheduleOut; + if (CurInstruct <> FLastInstruct) and (CurUnits <> U) //AGP Change 26.48 Do not update quantity and day supply if no matching dose on the server + then UpdateDefaultSupply(CurUnits, CurSchedule, CurDuration, CurDispDrug, CurSupply, CurQuantity, + LackQtyInfo); + if LackQtyInfo then begin + if FScheduleChanged then + txtQuantity.Text := '0'; + end + else + UpdateSupplyQuantity(CurUnits, CurSchedule, CurDuration, CurDispDrug, CurSupply, CurQuantity); + if (CurDispDrug <> FLastDispDrug) then UpdateSC(CurDispDrug); + if (CurDispDrug <> FLastDispDrug) or (CurSupply <> FLastSupply) then + UpdateRefills(CurDispDrug, CurSupply); + end; + + FLastUnits := CurUnits; + FLastSchedule := CurSchedule; + FLastDuration := CurDuration; + FLastInstruct := CurInstruct; + FLastDispDrug := CurDispDrug; + FLastQuantity := CurQuantity; + FLastSupply := CurSupply; + if (not FNoZERO) and (txtQuantity.Text = '') and (FLastQuantity = 0) then + txtQuantity.Text := FloatToStr(FLastQuantity); + if (not FNoZERO) and (txtSupply.Text = '') and (FLastSupply = 0) then + txtSupply.Text := IntToStr(FLastSupply); + if (ActiveControl <> nil) and (ActiveControl.Parent <> cboDosage) + then cboDosage.Text := Piece(cboDosage.Text, TAB, 1); + Changing := SaveChanging; + if FUpdated then ControlChange(Self); + FScheduleChanged := false; +end; + +procedure TfrmODMeds.cmdAcceptClick(Sender: TObject); +var +i: integer; +begin + if (FInptDlg) and (cboSchedule.Text = 'OTHER') then + begin + cboScheduleClick(Self); + Exit; + end; + //AGP Change for 26.45 PSI-04-069 + if self.tabDose.TabIndex = 1 then + begin + for i := 2 to self.grdDoses.RowCount do + begin + if ((ValFor(COL_DOSAGE, i-1) <> '') and (ValFor(COL_DOSAGE, i) <> '')) and (ValFor(COL_SEQUENCE,i-1) = '') then + begin + infoBox('To be able to complete a complex order every row except for the last row must have a conjunction defined. ' + CRLF + + CRLF + 'Verify that all rows have a conjunction defined.','Sequence Error',MB_OK); + Exit; + end; + //text := Self.cboXDosage.Items.Strings[i]; + end; + end; + if FInptDlg and (not FOutptIV) + then DisplayGroup := DisplayGroupByName('UD RX') + else DisplayGroup := DisplayGroupByName('O RX'); + //timCheckChangesTimer(Self); + DropLastSequence; + cmdAccept.SetFocus; + inherited; + (*if self.Responses.Cancel = true then + begin + self.Destroy; + exit; + end; *) +end; + +procedure TfrmODMeds.chkPtInstructClick(Sender: TObject); +begin + inherited; + ControlChange(Self); +end; + +procedure TfrmODMeds.chkDoseNowClick(Sender: TObject); +const + T = '"'; + T1 = 'By checking the "Give additional dose now" box, you have actually entered two orders for the same medication "'; + T2 = #13#13'The first order''s administrative schedule is "'; + T3 = #13'The second order''s administrative schedule is "'; + T4 = #13#13'Do you want to continue?'; + T1A = 'By checking the "Give additional dose now" box, you have actually entered a new order with the schedule "NOW"'; + T2A = ' in addition to the one you are placing for the same medication "'; +var + medNm: string; + theSch: string; +begin + inherited; + if (chkDoseNow.Checked) and (tabDose.TabIndex <> TI_COMPLEX) then + begin + medNm := txtMed.Text; + theSch := cboSchedule.Text; + if length(theSch)>0 then + begin + if ( (ValueOf(FLD_SCHED_TYP) <> 'O') and (InfoBox(T1+medNm+T+T2+theSch+T+T3+'NOW"'+T4, 'Warning', MB_OKCANCEL or MB_ICONWARNING) = IDCANCEL) )then + begin + chkDoseNow.Checked := False; + Exit; + end; + end else + begin + if InfoBox(T1A+T2A+medNm+T+T4, 'Warning', MB_OKCANCEL or MB_ICONWARNING) = IDCANCEL then + begin + chkDoseNow.Checked := False; + Exit; + end; + end; + end; + lblAdminTime.Visible := not chkDoseNow.Checked; + if (tabDose.TabIndex = TI_COMPLEX) and chkDoseNow.Checked then + begin + if ( (ValueOf(FLD_SCHED_TYP) <> 'O') and (InfoBox('Give Additional Dose Now is in addition to those listed in the table.' + CRLF + + 'Please adjust the duration of the first row, if necessary.', + 'Give Additional Dose Now for Complex Order', MB_OKCANCEL or MB_ICONWARNING) = IDCANCEL) ) then + begin + chkDoseNow.Checked := False; + Exit; + end; + end; + ControlChange(Self); +end; + + +procedure TfrmODMeds.CheckDecimal(var AStr: string); +var + DUName,UnitNum,tempStr: string; + ToWord: string; + ie,code: integer; +begin + ToWord := ''; + tempStr := AStr; + UnitNum := Piece(AStr,' ',1); + DUName := Copy(tempStr,Length(UnitNum)+1,Length(tempStr)); + DUName := Trim(DUName); + if CharAt(UnitNum,1)='.' then + begin + if CharAt(UnitNum,2) in ['0','1','2','3','4','5','6','7','8','9'] then + begin + UnitNum := '0' + UnitNum; + AStr := '0' + AStr; + end; + end; + if ((Pos('TABLET',upperCase(DUName))= 0)) and ( Pos('DROP',upperCase(DUName))= 0 )then + Exit; + if (Length(UnitNum)>0) and (Length(DUName)>0) then + begin + if CharAt(UnitNum,1) <> '0' then + begin + Val(UnitNum, ie, code); + if (code <> 0) and (ie=0) then + Exit; + end; + AStr := TextDosage(UnitNum) + ' ' + DUName; + end; +end; + +procedure TfrmODMeds.DropLastSequence(ASign: integer); +const + TXT_CONJUNCTIONWARNING = 'is not associated with the comment field, and has been deleted.'; +var + i :integer; + StrConjunc: string; +begin + for i := 1 to grdDoses.RowCount - 1 do + begin + if (i = 1) and (grdDoses.Cells[COL_DOSAGE,i] = '' ) then + Exit + else if (i>1) and (grdDoses.Cells[COL_DOSAGE,i] = '') and (grdDoses.Cells[COL_ROUTE,i] = '') then + begin + if Length(grdDoses.Cells[COL_SEQUENCE, i-1])>0 then + begin + StrConjunc := grdDoses.Cells[COL_SEQUENCE, i-1]; + if ASign = 1 then + begin + if InfoBox('The "' + StrConjunc + '" ' + TXT_CONJUNCTIONWARNING, 'Warning', MB_OK or MB_ICONWARNING) = IDOK then + begin + grdDoses.Cells[COL_SEQUENCE, i-1] := ''; + ActiveControl := memOrder; + end + end + else + begin + grdDoses.Cells[COL_SEQUENCE, i-1] := ''; + end; + end; + Exit; + end; + end; +end; + +procedure TfrmODMeds.memCommentClick(Sender: TObject); +var + theSign : integer; +begin + inherited; + theSign := 1; + DropLastSequence(theSign); +end; + +procedure TfrmODMeds.btnXDurationClick(Sender: TObject); +var + APoint: TPoint; +begin + inherited; + with TSpeedButton(Sender) do APoint := ClientToScreen(Point(0, Height)); + popDuration.Popup(APoint.X, APoint.Y); +end; + +procedure TfrmODMeds.chkPRNClick(Sender: TObject); +var + tempSch: string; + PRNPos: integer; +begin + inherited; + //GE CQ 7552 + if chkPRN.Checked then + begin + lblAdminTime.Caption := ''; + PrnPos := Pos('PRN',cboSchedule.Text); + if (PrnPos < 1) then + UpdateStartExpires(cboSchedule.Text + ' PRN'); + end + else + begin + if Length(Trim(cboSchedule.Text))>0 then + begin + tempSch := ';'+Trim(cboSchedule.Text); + UpdateStartExpires(tempSch); + end; + //lblAdminTime.Caption := FAdminTimeLbl; + if txtQuantity.visible then + cboScheduleClick(Self); + end; + ControlChange(Self); +end; + +procedure TfrmODMeds.grdDosesKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + case Key of +// VK_RETURN: //moved to form key press + VK_ESCAPE: + begin + ActiveControl := FindNextControl(Sender as TWinControl, False, True, False); //Previous control + Key := 0; + end; + VK_INSERT: + begin + btnXInsertClick(self); + Key := 0; + end; + VK_DELETE: + begin + btnXRemoveClick(self); + Key := 0; + end; + VK_TAB: + begin + if ssShift in Shift then + begin + ActiveControl := tabDose; //Previeous control + Key := 0; + end + else if ssCtrl in Shift then + begin + ActiveControl := memComment; + Key := 0; + end; + end; + end; +end; + +procedure TfrmODMeds.grdDosesEnter(Sender: TObject); +begin + inherited; + DisableDefaultButton(self); + DisableCancelButton(self); +end; + +function TfrmODMeds.DisableCancelButton(Control: TWinControl): boolean; +var + i: integer; +begin + if (Control is TButton) and TButton(Control).Cancel then begin + result := True; + FDisabledCancelButton := TButton(Control); + TButton(Control).Cancel := False; + end else begin + result := False; + for i := 0 to Control.ControlCount-1 do + if (Control.Controls[i] is TWinControl) then + if DisableCancelButton(TWinControl(Control.Controls[i])) then begin + result := True; + break; + end; + end; +end; + +function TfrmODMeds.DisableDefaultButton(Control: TWinControl): boolean; +var + i: integer; +begin + if (Control is TButton) and TButton(Control).Default then begin + result := True; + FDisabledDefaultButton := TButton(Control); + TButton(Control).Default := False; + end else begin + result := False; + for i := 0 to Control.ControlCount-1 do + if (Control.Controls[i] is TWinControl) then + if DisableDefaultButton(TWinControl(Control.Controls[i])) then begin + result := True; + break; + end; + end; +end; + +procedure TfrmODMeds.RestoreCancelButton; +begin + if Assigned(FDisabledCancelButton) then begin + FDisabledCancelButton.Cancel := True; + FDisabledCancelButton := nil; + end; +end; + +procedure TfrmODMeds.RestoreDefaultButton; +begin + if Assigned(FDisabledDefaultButton) then begin + FDisabledDefaultButton.Default := True; + FDisabledDefaultButton := nil; + end; +end; + +procedure TfrmODMeds.FormKeyPress(Sender: TObject; var Key: Char); +begin + if (Key = #13) and (ActiveControl = grdDoses{pnlXSequence}) then + begin + ShowEditor(grdDoses.Col, grdDoses.Row, #0); + Key := #0; //Don't let the base class turn it into a forward tab! + end + else if (Key = #13) and (ActiveControl = txtMed) then + Key := #0; //Don't let the base class turn it into a forward tab! +end; + +procedure TfrmODMeds.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_TAB) and (ssCtrl in Shift) and (ActiveControl <> grdDoses) then + begin + //Back-tab works the same as forward-tab because there are only two tabs. + tabDose.TabIndex := (tabDose.TabIndex + 1) mod tabDose.Tabs.Count; + Key := 0; + tabDoseChange(tabDose); + end; +end; + +procedure TfrmODMeds.cboXRouteEnter(Sender: TObject); +begin + inherited; + DisableDefaultButton(self); + DisableCancelButton(self); +end; + +procedure TfrmODMeds.pnlXSequenceEnter(Sender: TObject); +begin + inherited; + DisableDefaultButton(self); + DisableCancelButton(self); +end; + +procedure TfrmODMeds.pnlMessageEnter(Sender: TObject); +begin + inherited; + DisableDefaultButton(self); + DisableCancelButton(self); +end; + +procedure TfrmODMeds.pnlMessageExit(Sender: TObject); +begin + inherited; + RestoreDefaultButton; + RestoreCancelButton; +end; + +procedure TfrmODMeds.memMessageKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_RETURN) or (Key = VK_ESCAPE) then + begin + Perform(WM_NEXTDLGCTL, 0, 0); + Key := 0; + end; +end; + +procedure TfrmODMeds.memPIClick(Sender: TObject); +begin + inherited; + ShowMessage('The patient instruction field may not be edited.'); + chkPtInstruct.SetFocus; +end; + +procedure TfrmODMeds.FormResize(Sender: TObject); +var + aftHeight: integer; +begin + inherited; + pnlFields.Height := memOrder.Top - 4 - pnlFields.Top; + aftHeight := pnlFields.Top + pnlFields.Height + memOrder.Height; + if aftHeight > Height then + Height := aftHeight; + if pnlMessage.Visible then + pnlMessage.Top := pnlFields.Top + pnlTop.Height + 8; +end; + +procedure TfrmODMeds.spnQuantityChangingEx(Sender: TObject; + var AllowChange: Boolean; NewValue: Smallint; + Direction: TUpDownDirection); +var + tempQuant: double; +begin + inherited; + if Direction = updUp then + begin + tempQuant := StrToFloatDef(txtQuantity.Text,0) + 1; + txtQuantity.Text := FloatToStr(tempQuant); + end else if Direction = updDown then + begin + tempQuant := StrToFloatDef(txtQuantity.Text,0) - 1 ; + if tempQuant < 0 then tempQuant := 0; + txtQuantity.Text := FloatToStr(tempQuant); + end; + spnQuantity.Tag := 1; + txtQuantity.Tag := 1; +end; + +procedure TfrmODMeds.memPIKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + ShowMessage('The patient instruction field may not be edited.'); + chkPtInstruct.SetFocus; +end; + +function TfrmODMeds.TextDosage(ADosage: string): string; +var + intS, fltS: string; + iNum: integer; + fNum: double; +begin + intS := ''; + fltS := ''; + Result := intS + fltS; + try + begin + iNum := StrToIntDef(Piece(ADosage,'.',1),0); + fNum := StrToFloatDef('0.'+Piece(ADosage,'.',2),0); + if fNum = 0.5 then + fltS := 'ONE-HALF'; + if ( fNum >= 0.3 ) and ( fNum <= 0.4 ) then + fltS := 'ONE-THIRD'; + if fNum = 0.25 then + fltS := 'ONE-FOURTH'; + if ( fNum >= 0.6 ) and ( fNum <= 0.7 ) then + fltS := 'TWO-THIRDS'; + if fNum = 0.75 then + fltS := 'THREE-FOURTHS'; + if iNum = 1 then + intS := 'ONE'; + if iNum = 2 then + intS := 'TWO'; + if iNum = 3 then + intS := 'THREE'; + if iNum = 4 then + intS := 'FOUR'; + if iNum = 5 then + intS := 'FIVE'; + if iNum = 6 then + intS := 'SIX'; + if iNum = 7 then + intS := 'SEVEN'; + if iNum = 8 then + intS := 'EIGHT'; + if iNum = 9 then + intS := 'NINE'; + if iNum = 10 then + intS := 'TEN'; + if Length(intS) > 0 then + begin + if Length(fltS)>1 then + fltS :=' AND ' + fltS; + end; + Result := intS + fltS; + if Result = '' then + Result := ADosage; + end + except + on EConvertError do Result := ''; + end; +end; + +function TfrmODMeds.CreateOtherScheduel: string; //NSS +var + aSchedule: string; +begin + aSchedule := ''; + if not ShowOtherSchedule(aSchedule) then + begin + cboSchedule.ItemIndex := -1; + cboSchedule.Text := ''; + end; + Result := aSchedule; +end; + +function TfrmODMeds.IfIsIMODialog: boolean; +var + IsInptDlg, IsIMOLocation: boolean; + Td: TFMDateTime; +begin + result := False; + IsInptDlg := False; + Td := FMToday; + if DlgFormID = MedsInDlgFormId then IsInptDlg := TRUE; + IsIMOLocation := IsValidIMOLoc(Encounter.Location,Patient.DFN); + if (IsInptDlg) and (not Patient.Inpatient) and IsIMOLocation and (Encounter.DateTime > Td) then + result := True; +end; + +procedure TfrmODMeds.lstChange(Sender: TObject; Item: TListItem; + Change: TItemChange); +begin + inherited; + btnSelect.Enabled := (lstAll.ItemIndex > -1) or + ((lstQuick.ItemIndex > -1) and + (Assigned(lstQuick.Items[lstQuick.ItemIndex].Data)) and + (Integer(lstQuick.Selected.Data) > 0)) ; + if (btnSelect.Enabled) and (FRemoveText) then + txtMed.Text := ''; +end; + + +procedure TfrmODMeds.DispOrderMessage(const AMessage: string); +begin + if ContainsVisibleChar(AMessage) then + begin + image1.Visible := True; + memDrugMsg.Visible := True; + image1.Picture.Icon.Handle := LoadIcon(0, IDI_ASTERISK); + memDrugMsg.Lines.Clear; + memDrugMsg.Lines.SetText(PChar(AMessage)); + if fShrinkDrugMsg then + begin + pnlBottom.Height := pnlBottom.Height + memDrugMsg.Height + 2; + fShrinkDrugMsg := False; + end; + end else + begin + image1.Visible := False; + memDrugMsg.Visible := False; + if not fShrinkDrugMsg then + begin + pnlBottom.Height := pnlBottom.Height - memDrugMsg.Height - 2; + fShrinkDrugMsg := True; + end; + end; +end; + + +procedure TfrmODMeds.FormClose(Sender: TObject; var Action: TCloseAction); +begin + FResizedAlready := False; + inherited; +end; + +function TfrmODMeds.CreateOtherScheduelComplex: string; +var + aSchedule: string; +begin + aSchedule := ''; + if not ShowOtherSchedule(aSchedule) then + begin + cboXSchedule.ItemIndex := -1; + cboXSchedule.Text := ''; + end; + Result := aSchedule; +end; + +procedure TfrmODMeds.txtNSSClick(Sender: TObject); +begin + inherited; + if MessageDlg('You can also select ' + '"' + 'Other' + '"' + ' from the schedule list' + + ' to create a day-of-week schedule.' + + #13#10 + 'Click OK to launch schedule builder', + mtInformation, [mbOK, mbCancel],0) = mrOK then + begin + if (tabDose.TabIndex = TI_DOSE) then + begin + cboSchedule.SelectByID('OTHER'); + cboScheduleClick(Self); + end; + if (tabDose.TabIndex = TI_COMPLEX) then + begin + cboXSchedule.SelectByID('OTHER'); + CBOXScheduleChange(Self); + end; + end; +end; + +procedure TfrmODMeds.cboScheduleEnter(Sender: TObject); +begin + inherited; + if (FInptDlg) and (cboSchedule.Text = 'OTHER') then + cboScheduleClick(Self); +end; + +procedure TfrmODMeds.FormShow(Sender: TObject); +begin + inherited; + if ( (cboSchedule.Text = 'OTHER') and FNSSOther and FInptDlg )then + PostMessage(Handle, UM_NSSOTHER, 0, 0); +end; + +procedure TfrmODMeds.UMShowNSSBuilder(var Message: TMessage); +begin + Sleep(1000); + cboScheduleClick(Self); +end; + +procedure TfrmODMeds.cboScheduleExit(Sender: TObject); +begin + inherited; + if Trim(cboSchedule.Text) = '' then + cboSchedule.ItemIndex := -1; + ValidateInpatientSchedule(cboSchedule); +end; + +procedure TfrmODMeds.ValidateInpatientSchedule(ScheduleCombo: TORComboBox); +var + tmpIndex : Integer; +begin + +{CQ: 6690 - Orders - autopopulation of schedule field - overtyping only 1 character + CQ: 7280 - PTM 32-34, 42 Meds: NJH-0205-20901 MED DIALOG DROPPING FIRST LETTER (schedule)} + + //CQ 7575 Schedule coming across lower-case, change all schedules to Upper-Case. + if (Length(ScheduleCombo.Text) > 0) then + ScheduleCombo.Text := TrimLeft(UpperCase(ScheduleCombo.Text)); + {if user entered schedule verify it is in list} + if ScheduleCombo.ItemIndex < 0 then // CQ: 7397 + begin //Fix for CQ: 9299 - Outpatient Med orders will not accept free text schedule + tmpIndex := GetSchedListIndex(ScheduleCombo,ScheduleCombo.Text); + if tmpIndex > -1 then + ScheduleCombo.ItemIndex := tmpIndex; + end; + if (Length(ScheduleCombo.Text) > 0) and (ScheduleCombo.ItemIndex < 0) and FInptDlg then + begin + FShowPnlXScheduleOk := False; //Added for CQ: 7370 + Application.MessageBox('Please select a valid schedule from the list.'+#13+#13+ + 'If you would like to create a Day-of-Week schedule please'+ + ' select ''OTHER'' from the list.', + 'Incorrect Schedule.'); + FShowPnlXScheduleOk := True; //Added for CQ: 7370 + if ScheduleCombo.CanFocus then + ScheduleCombo.SetFocus; + ScheduleCombo.SelStart := Length(ScheduleCombo.Text); + end; +end; + +//Removed based on Site feeback. See CQ: 7518 +(*function TfrmODMeds.ValidateRoute(RouteCombo: TORComboBox) : Boolean; +begin +{CQ: 7331 - Medications - Route - Can not enter any route not listed in Route field in window} + Result := True; + if (Length(RouteCombo.Text) > 0) and (RouteCombo.ItemIndex < 0) and (Not IsSupplyAndOutPatient) then + begin + Application.MessageBox('Please select a correct route from the list.', + 'Incorrect Route.'); + if RouteCombo.CanFocus then + RouteCombo.SetFocus; + RouteCombo.SelStart := Length(RouteCombo.Text); + Result := False; + end; +end;*) + +function TfrmODMeds.isUniqueQuickOrder(iText: string): Boolean; +var + counter,i: Integer; +begin + counter := 0; + Result := False; + if iText = '' then Exit; + for i := 0 to FQuickItems.Count-1 do + if AnsiCompareText(iText, Copy(Piece(FQuickItems[i],'^',2), 1, Length(iText))) = 0 then + Inc(counter); //Found a Match + Result := counter = 1; +end; + +function TfrmODMeds.IsSupplyAndOutPatient: boolean; +begin +{CQ: 7331 - Medications - Route - Can not enter any route not listed in Route field in window} + Result := False; + if (MedIsSupply(txtMed.Tag)) and (not FInptDlg) then + Result := True; +end; + +// CQ: 7397 - Inpatient med orders with PRN cancel due to invalid schedule. +function TfrmODMeds.GetSchedListIndex(SchedCombo: TORComboBox; pSchedule: String):integer; +var i: integer; +begin + result := -1; + for i := 0 to SchedCombo.items.Count-1 do + begin + if pSchedule = SchedCombo.DisplayText[i] then + begin + result := i; // match found + break; + end; + end; +end; + + +procedure TfrmODMeds.cboXScheduleExit(Sender: TObject); +begin + inherited; +{CQ: 7344 - Inconsistency with Schedule box: Allows free-text entry for Complex orders, + doesn't for simple orders } + ValidateInpatientSchedule(cboXSchedule); +end; + +procedure TfrmODMeds.cboDosageKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + //Fix for CQ: 7545 + if cboDosage.ItemIndex > -1 then + cboDosageClick(Sender); +end; + +procedure TfrmODMeds.cboXDosageKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + //Fix for CQ: 7545 + if cboXDosage.ItemIndex > -1 then + cboXDosageClick(Sender); +end; + +procedure TfrmODMeds.txtSupplyClick(Sender: TObject); +begin + inherited; + Self.txtSupply.SelectAll; +end; + +procedure TfrmODMeds.txtQuantityClick(Sender: TObject); +begin + inherited; + self.txtQuantity.SelectAll; +end; + +procedure TfrmODMeds.txtRefillsClick(Sender: TObject); +begin + inherited; + self.txtRefills.SelectAll; +end; + +procedure TfrmODMeds.WMClose(var Msg: TWMClose); +begin + if self <> nil then + begin + if (self.tabDose.TabIndex = TI_Dose) then + begin + if Trim(cboSchedule.Text) = '' then cboSchedule.ItemIndex := -1; + ValidateInpatientSchedule(cboSchedule); + if self.cboSchedule.Focused = true then exit; + end; + if (self.tabDose.TabIndex = TI_Complex) then + begin + ValidateInpatientSchedule(cboXSchedule); + if self.cboXSchedule.Focused = true then exit; + end; + end; + inherited +end; + +procedure TfrmODMeds.cboXScheduleEnter(Sender: TObject); +begin + inherited; + //agp Change CQ 10719 + self.chkXPRN.OnClick(self.chkXPRN); +end; + +end. diff --git a/CPRS-Chart/Orders/fODMessage.dfm b/CPRS-Chart/Orders/fODMessage.dfm new file mode 100644 index 0000000..c6da8c9 --- /dev/null +++ b/CPRS-Chart/Orders/fODMessage.dfm @@ -0,0 +1,44 @@ +object frmODMessage: TfrmODMessage + Left = 271 + Top = 515 + BorderIcons = [biSystemMenu] + BorderStyle = bsToolWindow + ClientHeight = 39 + ClientWidth = 374 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsStayOnTop + OldCreateOrder = False + Position = poOwnerFormCenter + Visible = True + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object imgMessage: TImage + Left = 4 + Top = 4 + Width = 32 + Height = 32 + end + object memMessage: TRichEdit + Left = 40 + Top = 4 + Width = 332 + Height = 32 + Anchors = [akLeft, akTop, akRight, akBottom] + Color = clInfoBk + Font.Charset = DEFAULT_CHARSET + Font.Color = clInfoText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ScrollBars = ssVertical + TabOrder = 0 + end +end diff --git a/CPRS-Chart/Orders/fODMessage.pas b/CPRS-Chart/Orders/fODMessage.pas new file mode 100644 index 0000000..3564929 --- /dev/null +++ b/CPRS-Chart/Orders/fODMessage.pas @@ -0,0 +1,62 @@ +unit fODMessage; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, StdCtrls, ComCtrls; + +type + TfrmODMessage = class(TForm) + memMessage: TRichEdit; + imgMessage: TImage; + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +procedure ShowOrderMessage(Sender: TForm; const AMsg: string); +procedure HideOrderMessage; + +implementation + +{$R *.DFM} + +uses ORFn; + +var + frmODMessage: TfrmODMessage; + +procedure ShowOrderMessage(Sender: TForm; const AMsg: string); +begin + frmODMessage := TfrmODMessage.Create(Application); + ResizeFormToFont(TForm(frmODMessage)); + with frmODMessage do + begin + memMessage.Text := AMsg; + SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE); + Show; + Sender.SetFocus; + end; +end; + +procedure HideOrderMessage; +begin + if frmODMessage <> nil then frmODMessage.Release; +end; + +procedure TfrmODMessage.FormDestroy(Sender: TObject); +begin + frmODMessage := nil; +end; + +procedure TfrmODMessage.FormCreate(Sender: TObject); +begin + imgMessage.Picture.Icon.Handle := LoadIcon(0, IDI_ASTERISK); +end; + +end. + diff --git a/CPRS-Chart/Orders/fODMisc.dfm b/CPRS-Chart/Orders/fODMisc.dfm new file mode 100644 index 0000000..7c5a964 --- /dev/null +++ b/CPRS-Chart/Orders/fODMisc.dfm @@ -0,0 +1,102 @@ +inherited frmODMisc: TfrmODMisc + Left = 404 + Top = 453 + Caption = 'Patient Care Order' + PixelsPerInch = 96 + TextHeight = 13 + object lblStart: TLabel [0] + Left = 6 + Top = 100 + Width = 76 + Height = 13 + Caption = 'Start Date/Time' + end + object lblStop: TLabel [1] + Left = 158 + Top = 100 + Width = 76 + Height = 13 + Caption = 'Stop Date/Time' + end + object lblCare: TLabel [2] + Left = 6 + Top = 6 + Width = 58 + Height = 13 + Caption = 'Patient Care' + end + object lblComment: TLabel [3] + Left = 6 + Top = 53 + Width = 54 + Height = 13 + Caption = 'Instructions' + end + inherited memOrder: TCaptionMemo + TabOrder = 6 + end + inherited cmdAccept: TButton + TabOrder = 4 + end + inherited cmdQuit: TButton + TabOrder = 5 + end + inherited pnlMessage: TPanel + TabOrder = 7 + end + object cboCare: TORComboBox + Left = 6 + Top = 20 + Width = 292 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnExit = ControlChange + OnMouseClick = ControlChange + OnNeedData = cboCareNeedData + end + object calStart: TORDateBox + Left = 6 + Top = 114 + Width = 140 + Height = 21 + TabOrder = 2 + Text = 'Now' + OnChange = ControlChange + DateOnly = False + RequireTime = False + Caption = 'Start Date/Time' + end + object calStop: TORDateBox + Left = 158 + Top = 114 + Width = 140 + Height = 21 + TabOrder = 3 + OnChange = ControlChange + DateOnly = False + RequireTime = False + Caption = 'Stop Date/Time' + end + object txtComment: TCaptionEdit + Left = 6 + Top = 67 + Width = 508 + Height = 21 + TabOrder = 1 + OnChange = ControlChange + Caption = 'Instructions' + end +end diff --git a/CPRS-Chart/Orders/fODMisc.pas b/CPRS-Chart/Orders/fODMisc.pas new file mode 100644 index 0000000..173c49c --- /dev/null +++ b/CPRS-Chart/Orders/fODMisc.pas @@ -0,0 +1,124 @@ +unit fODMisc; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, StdCtrls, ORCtrls, ORDtTm, ComCtrls, ExtCtrls, ORFn, uConst; + +type + TfrmODMisc = class(TfrmODBase) + cboCare: TORComboBox; + lblStart: TLabel; + calStart: TORDateBox; + lblStop: TLabel; + calStop: TORDateBox; + lblCare: TLabel; + lblComment: TLabel; + txtComment: TCaptionEdit; + procedure ControlChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cboCareNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + private + { } + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + end; + +var + frmODMisc: TfrmODMisc; + +implementation + +{$R *.DFM} + +uses rODBase; + +const + TX_NO_CAREITEM = 'A patient care item must be selected.'; + TX_BAD_START = 'The start date is not valid.'; + TX_BAD_STOP = 'The stop date is not valid.'; + TX_STOPSTART = 'The stop date must be after the start date.'; + +procedure TfrmODMisc.FormCreate(Sender: TObject); +begin + inherited; + FillerID := 'OR'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Dialog := 'OR GXMISC GENERAL'; // loads formatting info + StatusText('Loading Default Values'); + //CtrlInits.LoadDefaults(ODForMisc); // there are no defaults for OR GXMISC + InitDialog; + StatusText(''); +end; + +procedure TfrmODMisc.InitDialog; +begin + inherited; + cboCare.InitLongList(''); + txtComment.Text := ''; +end; + +procedure TfrmODMisc.SetupDialog(OrderAction: Integer; const ID: string); +begin + inherited; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do + begin + Changing := True; + SetControl(cboCare, 'ORDERABLE', 1); + SetControl(txtComment, 'COMMENT', 1); + SetControl(calStart, 'START', 1); + SetControl(calStop, 'STOP', 1); + Changing := False; + ControlChange(Self); + SetFocusedControl(txtComment); + end; +end; + +procedure TfrmODMisc.Validate(var AnErrMsg: string); +var + ErrMsg: string; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + if cboCare.ItemIEN <= 0 then SetError(TX_NO_CAREITEM); + calStart.Validate(ErrMsg); + if Length(ErrMsg) > 0 then SetError(TX_BAD_START); + with calStop do + begin + Validate(ErrMsg); + if Length(ErrMsg) > 0 then SetError(TX_BAD_STOP); + if (Length(Text) > 0) and (FMDateTime <= calStart.FMDateTime) + then SetError(TX_STOPSTART); + end; {with calStop} +end; + +procedure TfrmODMisc.cboCareNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + cboCare.ForDataUse(SubSetOfOrderItems(StartFrom, Direction, 'S.NURS')); +end; + +procedure TfrmODMisc.ControlChange(Sender: TObject); +begin + inherited; + if Changing then Exit; + Responses.Clear; + with cboCare do if ItemIEN > 0 then Responses.Update('ORDERABLE', 1, ItemID, Text); + with txtComment do if Length(Text) > 0 then Responses.Update('COMMENT', 1, Text, Text); + with calStart do if Length(Text) > 0 then Responses.Update('START', 1, Text, Text); + with calStop do if Length(Text) > 0 then Responses.Update('STOP', 1, Text, Text); + memOrder.Text := Responses.OrderText; +end; + +end. diff --git a/CPRS-Chart/Orders/fODRad.dfm b/CPRS-Chart/Orders/fODRad.dfm new file mode 100644 index 0000000..83e1324 --- /dev/null +++ b/CPRS-Chart/Orders/fODRad.dfm @@ -0,0 +1,491 @@ +inherited frmODRad: TfrmODRad + Tag = 160 + Left = 282 + Top = 225 + Width = 576 + Height = 361 + Caption = 'Order an Imaging Procedure' + Constraints.MinHeight = 344 + Constraints.MinWidth = 576 + PixelsPerInch = 96 + TextHeight = 13 + inherited memOrder: TCaptionMemo + Left = 0 + Top = 283 + Width = 480 + Anchors = [akLeft, akRight, akBottom] + TabOrder = 6 + end + object FRadCommonCombo: TORListBox [1] + Left = 443 + Top = 346 + Width = 121 + Height = 11 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 7 + Visible = False + ItemTipColor = clWindow + LongList = False + end + object pnlLeft: TORAutoPanel [2] + Left = 0 + Top = 0 + Width = 215 + Height = 281 + Anchors = [akLeft, akTop, akBottom] + BevelOuter = bvNone + TabOrder = 0 + object lblDrug: TLabel + Left = 0 + Top = 38 + Width = 89 + Height = 13 + Caption = 'Imaging Procedure' + end + object lblAvailMod: TLabel + Left = 0 + Top = 170 + Width = 88 + Height = 13 + Caption = 'Available Modifiers' + end + object lblImType: TLabel + Left = 1 + Top = 1 + Width = 64 + Height = 13 + Caption = 'Imaging Type' + end + object lblSelectMod: TLabel + Left = 109 + Top = 170 + Width = 87 + Height = 13 + Caption = 'Selected Modifiers' + end + object cboImType: TORComboBox + Left = 0 + Top = 15 + Width = 212 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Imaging Type' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnChange = cboImTypeChange + OnDropDownClose = cboImTypeDropDownClose + OnExit = cboImTypeExit + CharsNeedMatch = 1 + end + object lstSelectMod: TORListBox + Left = 109 + Top = 184 + Width = 102 + Height = 68 + ExtendedSelect = False + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 3 + Caption = 'Selected Modifiers' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object cboProcedure: TORComboBox + Left = 0 + Top = 53 + Width = 212 + Height = 114 + Style = orcsSimple + AutoSelect = True + Caption = 'Imaging Procedure' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnClick = cboProcedureSelect + OnExit = cboProcedureExit + OnNeedData = cboProcedureNeedData + CharsNeedMatch = 1 + end + object cboAvailMod: TORComboBox + Left = 0 + Top = 184 + Width = 102 + Height = 94 + Style = orcsSimple + AutoSelect = True + Caption = 'Available Modifiers' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + Pieces = '2' + ShowHint = True + Sorted = True + SynonymChars = '<>' + TabOrder = 2 + OnKeyDown = cboAvailModKeyDown + OnMouseClick = cboAvailModMouseClick + CharsNeedMatch = 1 + end + object cmdRemove: TButton + Left = 110 + Top = 255 + Width = 102 + Height = 18 + Caption = 'Remove' + TabOrder = 4 + OnClick = cmdRemoveClick + end + end + object pnlRight: TORAutoPanel [3] + Left = 214 + Top = 85 + Width = 355 + Height = 195 + Anchors = [akLeft, akRight, akBottom] + BevelOuter = bvNone + TabOrder = 3 + object lblRequestDate: TLabel + Left = 4 + Top = 5 + Width = 78 + Height = 13 + Caption = 'Requested Date' + end + object lblUrgency: TLabel + Left = 104 + Top = 5 + Width = 40 + Height = 13 + Caption = 'Urgency' + end + object lblTransport: TLabel + Left = 204 + Top = 5 + Width = 45 + Height = 13 + Caption = 'Transport' + end + object lblCategory: TLabel + Left = 4 + Top = 42 + Width = 42 + Height = 13 + Caption = 'Category' + end + object lblSubmit: TLabel + Left = 154 + Top = 42 + Width = 48 + Height = 13 + Caption = 'Submit To' + end + object lblLastExam: TLabel + Left = 4 + Top = 82 + Width = 134 + Height = 13 + Caption = 'Exams Over the Last 7 Days' + end + object lblAskSubmit: TLabel + Left = 446 + Top = 103 + Width = 3 + Height = 13 + Visible = False + end + object lblPreOp: TLabel + Left = 198 + Top = 156 + Width = 84 + Height = 13 + Caption = 'PreOp Scheduled' + end + object calPreOp: TORDateBox + Left = 198 + Top = 170 + Width = 96 + Height = 21 + TabOrder = 8 + OnChange = calPreOpChange + OnExit = calPreOpExit + DateOnly = False + RequireTime = False + Caption = 'PreOp Scheduled' + end + object chkIsolation: TCheckBox + Left = 198 + Top = 94 + Width = 97 + Height = 17 + Hint = 'Is patient on isolation procedures?' + Caption = 'Isolation' + ParentShowHint = False + ShowHint = True + TabOrder = 6 + OnClick = ControlChange + OnExit = chkIsolationExit + end + object calRequestDate: TORDateBox + Left = 4 + Top = 18 + Width = 92 + Height = 21 + TabOrder = 0 + Text = 'TODAY' + OnChange = ControlChange + DateOnly = False + RequireTime = False + Caption = 'Requested Date' + end + object cboUrgency: TORComboBox + Left = 104 + Top = 18 + Width = 92 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Urgency' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboTransport: TORComboBox + Left = 204 + Top = 18 + Width = 92 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Transport' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboCategory: TORComboBox + Left = 4 + Top = 57 + Width = 140 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Category' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 3 + OnChange = cboCategoryChange + CharsNeedMatch = 1 + end + object chkPreOp: TCheckBox + Left = 146 + Top = 233 + Width = 61 + Height = 17 + Caption = 'Pre-Op' + TabOrder = 9 + Visible = False + OnClick = ControlChange + end + object cboSubmit: TORComboBox + Left = 154 + Top = 57 + Width = 142 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Submit To' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object lstLastExam: TORListBox + Left = 4 + Top = 95 + Width = 187 + Height = 98 + Color = clBtnFace + ExtendedSelect = False + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + TabOrder = 5 + Caption = 'Exams Over the Last 7 Days' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object grpPregnant: TGroupBox + Left = 196 + Top = 112 + Width = 158 + Height = 41 + Caption = 'Pregnant' + TabOrder = 7 + object radPregnant: TRadioButton + Left = 2 + Top = 17 + Width = 39 + Height = 17 + Caption = 'Yes' + TabOrder = 0 + OnClick = ControlChange + end + object radPregnantNo: TRadioButton + Left = 47 + Top = 17 + Width = 35 + Height = 17 + Caption = 'No' + TabOrder = 1 + OnClick = ControlChange + end + object radPregnantUnknown: TRadioButton + Left = 87 + Top = 16 + Width = 66 + Height = 17 + Caption = 'Unknown' + TabOrder = 2 + OnClick = ControlChange + end + end + end + object pnlHandR: TPanel [4] + Left = 215 + Top = 0 + Width = 353 + Height = 84 + Anchors = [akLeft, akTop, akRight, akBottom] + BevelOuter = bvNone + TabOrder = 2 + DesignSize = ( + 353 + 84) + object lblReason: TLabel + Left = 3 + Top = 0 + Width = 125 + Height = 13 + Caption = 'History && Reason for Exam' + end + object memReason: TCaptionMemo + Left = 3 + Top = 15 + Width = 346 + Height = 68 + Anchors = [akLeft, akTop, akRight, akBottom] + ScrollBars = ssVertical + TabOrder = 0 + OnChange = ControlChange + OnExit = memReasonExit + Caption = 'History && Reason for Exam' + end + end + inherited cmdAccept: TButton + Left = 487 + Top = 283 + Anchors = [akRight, akBottom] + TabOrder = 4 + end + inherited cmdQuit: TButton + Left = 488 + Top = 310 + Anchors = [akRight, akBottom] + TabOrder = 5 + end + inherited pnlMessage: TPanel + Left = 13 + Top = 262 + Width = 408 + Height = 55 + TabOrder = 1 + inherited imgMessage: TImage + Left = 10 + Top = 9 + end + inherited memMessage: TRichEdit + Left = 55 + Width = 344 + Height = 43 + end + end +end diff --git a/CPRS-Chart/Orders/fODRad.pas b/CPRS-Chart/Orders/fODRad.pas new file mode 100644 index 0000000..368c4c5 --- /dev/null +++ b/CPRS-Chart/Orders/fODRad.pas @@ -0,0 +1,780 @@ +unit fODRad; + +interface + +uses + SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, + Forms, Dialogs, StdCtrls, ORCtrls, fODBase, ORFn, ExtCtrls, + ComCtrls, uConst, ORDtTm; + +type + TfrmODRad = class(TfrmODBase) + lblDrug: TLabel; + cboProcedure: TORComboBox; + cboAvailMod: TORComboBox; + lblAvailMod: TLabel; + cmdRemove: TButton; + calRequestDate: TORDateBox; + cboUrgency: TORComboBox; + cboTransport: TORComboBox; + cboCategory: TORComboBox; + chkPreOp: TCheckBox; + cboSubmit: TORComboBox; + lstLastExam: TORListBox; + lblReason: TLabel; + memReason: TCaptionMemo; + lstSelectMod: TORListBox; + lblSelectMod: TLabel; + lblRequestDate: TLabel; + lblUrgency: TLabel; + lblTransport: TLabel; + lblCategory: TLabel; + lblSubmit: TLabel; + lblLastExam: TLabel; + lblAskSubmit: TLabel; + chkIsolation: TCheckBox; + FRadCommonCombo: TORListBox; + lblImType: TLabel; + cboImType: TORComboBox; + calPreOp: TORDateBox; + lblPreOp: TLabel; + pnlLeft: TORAutoPanel; + pnlRight: TORAutoPanel; + pnlHandR: TPanel; + grpPregnant: TGroupBox; + radPregnant: TRadioButton; + radPregnantNo: TRadioButton; + radPregnantUnknown: TRadioButton; + procedure cboProcedureNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); + procedure cboAvailModMouseClick(Sender: TObject); + procedure cmdRemoveClick(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure cboProcedureSelect(Sender: TObject); + procedure SetModifierList; + procedure cboCategoryChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cboImTypeChange(Sender: TObject); + procedure memReasonExit(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure cboAvailModKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure calPreOpChange(Sender: TObject); + procedure cmdAcceptClick(Sender: TObject); + procedure cboProcedureExit(Sender: TObject); + procedure cboImTypeExit(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure chkIsolationExit(Sender: TObject); + procedure calPreOpExit(Sender: TObject); + procedure cboImTypeDropDownClose(Sender: TObject); + private + FLastRadID: string; + FEditCopy: boolean; + FPreOpDate: string; + FEvtDelayDiv: string; + FPredefineOrder: boolean; + ImageTypeChanged : boolean; + FFormFirstOpened: boolean; + function NoPregnantSelection : Boolean; + procedure ImageTypeChange; + procedure FormFirstOpened(Sender: TObject); + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + procedure SetDefaultPregant; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + end; + +implementation + +{$R *.DFM} + +uses rODBase, rODRad, rOrders, uCore, rCore, fODRadApproval, fODRadConShRes, fLkUpLocation, fFrame, + uFormMonitor; + +const + TX_NO_PROC = 'An Imaging Procedure must be specified.' ; + TX_NO_MODE = 'A mode of transport must be selected.'; + TX_NO_REASON = 'A History & Reason for Exam must be entered.' ; + TX_NO_DATE = 'Unable to evaluate request date.' ; + TX_APPROVAL_REQUIRED= 'This procedure requires Radiologist approval.' ; + TX_NO_SOURCE = 'A source must be specified for Contract/Sharing/Research patients.'; + TX_NO_AGREE = 'There are no active agreements of the type specified.'; + TX_NO_AGREE_CAP = 'No Agreements on file'; + TX_ORD_LOC = 'Ordering location must be specified if patient type and order category do not match.'; + TC_REQ_LOC = 'Location Required'; + TX_LOC_ORDER = 'The selected location will be used to determine the ordering location ' + + 'when the patient location does not match the specified category.'; + TX_NO_CATEGORY = 'A category of examination must be specified.'; + TX_NO_IMAGING_LOCATION = 'A "Submit To" location must be specified.'; + +var + Radiologist, Contract, Research: string ; + AName, IsPregnant: string; + ALocation, AType: integer; + +{ TfrmODBase common methods } + +procedure TfrmODRad.SetupDialog(OrderAction: Integer; const ID: string); +var + tmpResp: TResponse; + i: integer; +begin + inherited; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do + begin + if (OrderAction = ORDER_QUICK) or (OrderAction = ORDER_EDIT) or (OrderAction = ORDER_COPY) then + FPredefineOrder := True; + FEditCopy := True; + Changing := True; + with cboImType do + begin + Items.Assign(SubsetOfImagingTypes); + for i := 0 to Items.Count-1 do + if StrToIntDef(Piece(Items[i],U,4), 0) = DisplayGroup then ItemIndex := i; + if OrderAction = ORDER_EDIT then + begin + Enabled := False; + Color := clBtnFace; + end; + end; + if Self.EvtID>0 then + FEvtDelayDiv := GetEventDiv1(IntToStr(Self.EvtID)); + CtrlInits.LoadDefaults(ODForRad(Patient.DFN, FEvtDelayDiv, DisplayGroup)); // ODForRad returns TStrings with defaults + InitDialog; + SetControl(cboProcedure, 'ORDERABLE', 1); + Changing := True; + SetModifierList; + SetControl(cboUrgency, 'URGENCY', 1); + SetControl(cboTransport, 'MODE', 1); + SetControl(cboSubmit, 'IMLOC', 1); + SetControl(cboCategory, 'CLASS', 1); + SetControl(memReason, 'COMMENT', 1); + SetControl(chkIsolation, 'YN', 1); + SetControl(radPregnant, 'PREGNANT', 1); + SetControl(calPreOp, 'PREOP', 1); + tmpResp := FindResponseByName('START',1); + if tmpResp <> nil then + begin + if ContainsAlpha(tmpResp.IValue) then + calRequestDate.Text := tmpResp.IValue + else + calRequestDate.FMDateTime := StrToFMDateTime(tmpResp.IValue); + end; + tmpResp := FindResponseByName('PROVIDER',1); + if tmpResp <> nil then with tmpResp do if Length(EValue)>0 then Radiologist := IValue + '^' + EValue; + if (cboCategory.ItemID = 'C') or (cboCategory.ItemID = 'S') then + begin + tmpResp := FindResponseByName('CONTRACT',1); + if tmpResp <> nil then with tmpResp do + if Length(EValue)>0 then + begin + Contract := IValue + '^' + EValue; + Research := ''; + end; + end; + if cboCategory.ItemID = 'R' then + begin + tmpResp := FindResponseByName('RESEARCH',1); + if tmpResp <> nil then with tmpResp do + if Length(EValue)>0 then + begin + Research := EValue; + Contract := ''; + end; + end; + //hds00007460 + tmpResp := FindResponseByName('PREGNANT',1); + if tmpResp <> nil then + if Length(tmpResp.EValue)>0 then + begin + IsPregnant := tmpResp.EValue; + if IsPregnant = 'YES' then + radPregnant.Checked := True + else + if IsPregnant = 'NO' then + radPregnantNo.Checked := True + else + if IsPregnant = 'UNKNOWN' then + radPregnantUnknown.Checked := True; + end; + //hds00007460 + Changing := False; + FEditCopy := False; + OrderMessage(ImagingMessage(cboProcedure.ItemIEN)) ; + ControlChange(Self); + FPredefineOrder := False; + end; +end; + +procedure TfrmODRad.InitDialog; +var + i: integer; + tmplst: TStringList; +begin + if not FEditCopy then inherited; + + FPreOpDate := ''; + FLastRadID := ''; + Radiologist := ''; + Contract := ''; + Research := ''; + ALocation := 0; + AName := ''; + AType := 0; + FEvtDelayDiv := ''; + if (Self.EvtID > 0 ) and (FEvtDelayDiv = '') then + FEvtDelayDiv := GetEventDiv1(IntToStr(Self.EvtID)); + with CtrlInits do + begin + SetControl(cboProcedure, 'ShortList'); + if cboProcedure.Items.Count > 0 then cboProcedure.InsertSeparator; + SetControl(FRadCommonCombo, 'Common Procedures'); + for i := 0 to FRadCommonCombo.Items.Count-1 do + cboProcedure.Items.Add(FRadCommonCombo.Items[i]); + if FRadCommonCombo.Items.Count>0 then cboProcedure.InsertSeparator; + + calRequestDate.Text := 'TODAY'; + SetControl(cboAvailMod, 'Modifiers'); + SetControl(cboUrgency, 'Urgencies'); + SetControl(cboTransport, 'Transport'); + with cboTransport do if OrderForInpatient + then SelectByID('W') + else SelectByID('A'); + SetControl(cboCategory, 'Category'); + with cboCategory do if OrderForInpatient + then SelectByID('I') + else SelectByID('O'); + SetControl(cboSubmit, 'Submit to'); + SetControl(lblAskSubmit,'Ask Submit') ; + if (cboSubmit.Items.Count = 0) then + begin + cboSubmit.ItemIndex := -1; + lblSubmit.Enabled := False; + cboSubmit.Enabled := False; + cboSubmit.Font.Color := clGrayText; + end + else if (lblAskSubmit.Caption = 'YES') then + begin + if (cboSubmit.Items.Count > 1) then + begin + tmplst := TStringList.Create; + try + tmplst.Assign(cboSubmit.Items); + SortByPiece(tmplst, U, 2); + cboSubmit.Items.Assign(tmplst); + finally + tmplst.Free; + end; + cboSubmit.ItemIndex := -1 ; + lblSubmit.Enabled := True; + cboSubmit.Enabled := True; + cboSubmit.Font.Color := clWindowText; + end + else + begin + cboSubmit.ItemIndex := 0; + lblSubmit.Enabled := False; + cboSubmit.Enabled := False; + cboSubmit.Font.Color := clGrayText; + end; + end + else if lblAskSubmit.Caption = 'NO' then + begin + if (cboSubmit.Items.Count = 1) then + cboSubmit.ItemIndex := 0 + else + cboSubmit.ItemIndex := -1 ; + lblSubmit.Enabled := False; + cboSubmit.Enabled := False; + cboSubmit.Font.Color := clGrayText; + end; + chkIsolation.Checked := PatientOnIsolationProcedures(Patient.DFN) ; + SetControl(lstLastExam, 'Last 7 Days'); + end; + lstSelectMod.Clear; + ControlChange(Self); + StatusText('Initializing Long List'); + cboProcedure.InitLongList('') ; + StatusText(''); +end; + +procedure TfrmODRad.ControlChange(Sender: TObject); +var + i: integer ; +begin + inherited; + if Changing then Exit; + Responses.Clear; + with cboProcedure do + if ItemIEN > 0 then Responses.Update('ORDERABLE', 1, ItemID, Text) + else Responses.Update('ORDERABLE', 1, '' , ''); + //with calRequestDate do if FMDateTime > 0 then RPC call on EVERY character typed in REASON box!!!! (v15) + with calRequestDate do if Length(Text) > 0 then + Responses.Update('START', 1, Text, Text) + else Responses.Update('START', 1, '', '') ; + with cboUrgency do if Length(ItemID) > 0 then Responses.Update('URGENCY', 1, ItemID, Text); + with cboTransport do if Length(ItemID) > 0 then Responses.Update('MODE', 1, ItemID, Text); + with cboCategory do if Length(ItemID) > 0 then Responses.Update('CLASS', 1, ItemID, Text); + with cboSubmit do if Length(ItemID) > 0 then Responses.Update('IMLOC', 1, ItemID, Text); + with radPregnant do if Checked then Responses.Update('PREGNANT', 1, 'Y' , 'Yes') + else if not Enabled then Responses.Update('PREGNANT', 1, '' , ''); + with radPregnantNo do if Checked then Responses.Update('PREGNANT', 1, 'N' , 'No'); + with radPregnantUnknown do if Checked then Responses.Update('PREGNANT', 1, 'U' , 'Unknown'); + with chkIsolation do if Checked then Responses.Update('YN', 1, '1' , 'Yes') + else Responses.Update('YN', 1, '0' , 'No'); + with calPreOp do if Length(Text) > 0 then Responses.Update('PREOP', 1, FPreOpDate, Text); + with memReason do if GetTextLen > 0 then Responses.Update('COMMENT', 1, TX_WPTYPE, Text); + with lstSelectMod do for i := 0 to Items.Count - 1 do + Responses.Update('MODIFIER',i+1, Piece(Items[i],U,1), Piece(Items[i],U,2)); + Responses.Update('PROVIDER',1, Piece(Radiologist,U,1),Piece(Radiologist,U,2)) ; + Responses.Update('CONTRACT',1, Piece(Contract,U,1),Piece(Contract,U,2)) ; + Responses.Update('RESEARCH',1, Research, Research) ; + if ALocation > 0 then Responses.Update('LOCATION', 1, IntToStr(ALocation), AName) + else with Encounter do Responses.Update('LOCATION', 1, IntToStr(Location) , LocationName); + memOrder.Text := Responses.OrderText; +end; + +procedure TfrmODRad.Validate(var AnErrMsg: string); +var + i, j: integer; + AskLoc: boolean; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + + procedure GetOrderingLocation(AType: integer); + begin + ALocation := 0; + AName := ''; + LookupLocation(ALocation, AName, AType, TX_LOC_ORDER); + if ALocation = 0 then + begin + SetError(TX_ORD_LOC); + if OrderForInpatient then cboCategory.SelectByID('I') else cboCategory.SelectByID('O'); + with Encounter do Responses.Update('LOCATION', 1, IntToStr(Location) , LocationName); + end + else + Responses.Update('LOCATION', 1, IntToStr(ALocation), AName); + end; + +begin + inherited ; + with cboProcedure do + begin + if ((Length(Text) = 0) or (ItemIEN <= 0)) then SetError(TX_NO_PROC) + else + begin + if ItemID <> FLastRadID then Responses.Update('PROVIDER',1, '',''); + if (UpperCase(Piece(Items[ItemIndex],U,4))='Y') and (Radiologist='') then + begin + SelectApprovingRadiologist(Font.Size, Radiologist); + if Radiologist='' then SetError(TX_APPROVAL_REQUIRED) + else + Responses.Update('PROVIDER',1, Piece(Radiologist,U,1),Piece(Radiologist,U,2)) ; + end ; + end ; + end; + with cboCategory do + begin + AskLoc := True; + if ((not Patient.Inpatient) and (Self.EvtType = 'A')) then + AskLoc := False; + if ItemID = '' then SetError(TX_NO_CATEGORY); + if (CharAt(ItemID,1) in ['C','S']) and (Contract = '') then SetError(TX_NO_SOURCE); + if (CharAt(ItemID, 1) = 'R') and (Research = '') then SetError(TX_NO_SOURCE); + if ((CharAt(ItemID, 1) = 'O') and (LocationType(Encounter.Location) = 'W')) then + begin + if AskLoc then + GetOrderingLocation(LOC_OUTP); + end + else if ((CharAt(ItemID, 1) = 'I') and (not (LocationType(Encounter.Location) = 'W'))) then + begin + if AskLoc then + GetOrderingLocation(LOC_INP); + end; + end; + if Length(cboTransport.Text) = 0 then SetError(TX_NO_MODE); + + if Length(memReason.Text) < 2 then + SetError(TX_NO_REASON) + else + begin + j := 0; + for i := 1 to Length(memReason.Text) do + begin + if memReason.Text[i] in ['A'..'Z','a'..'z','0'..'9'] then j := j + 1; + if not (memReason.Text[i] in ['A'..'Z','a'..'z','0'..'9']) and (j > 0) then j := 0; + if j = 2 then break; + end; + if j < 2 then SetError(TX_NO_REASON); + end; + + with cboSubmit do + if Enabled and (ItemIEN = 0)then SetError(TX_NO_IMAGING_LOCATION); + + with calRequestDate do + if FMDateTime = 0 then SetError(TX_NO_DATE); + +end; + +procedure TfrmODRad.cboProcedureNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); + +begin + inherited ; + cboProcedure.ForDataUse(SubSetOfRadProcs(DisplayGroup, StartFrom, Direction)); + end; + +procedure TfrmODRad.cboAvailModMouseClick(Sender: TObject); +var + x: string; + i: integer; + Found: boolean; +begin + if (cboAvailMod.Items.Count < 1) or //GE 04-30-05 prevent list index out of bounds when empty + (cboAvailMod.ItemIndex < 0) then Exit; + Found := False; + with cboAvailMod do x := Items[ItemIndex]; + with lstSelectMod do + begin + if Items.Count > 0 then + for i := 0 to Items.Count - 1 do + if Items[i] = x then Found := True; + if not Found then + begin + Items.Add(x); + SelectByID(Piece(x, U, 1)); + end; + end; + if Piece(x, '^', 2) = 'PORTABLE EXAM' then + cboTransport.SelectByID('P'); + ControlChange(Sender); +end; + +procedure TfrmODRad.cmdRemoveClick(Sender: TObject); +begin + with lstSelectMod do + if (SelCount = 0) or (ItemIndex < 0) then exit + else + begin + if Piece(Items[ItemIndex], U, 2) = 'PORTABLE EXAM' then + with cboTransport do if OrderForInpatient + then SelectByID('W') + else SelectByID('A'); + Items.Delete(ItemIndex); + ItemIndex := Items.Count - 1; + if ItemIndex > -1 then SelectByID(Piece(Items[ItemIndex], U, 1)); + end ; + ControlChange(Sender); +end; + +procedure TfrmODRad.cboProcedureSelect(Sender: TObject); +var + tmpResp: TResponse; +begin + inherited; + with cboProcedure do + begin + if ItemID <> FLastRadID then + begin + FLastRadID := ItemID; + if FPredefineOrder then + FPredefineOrder := False; + end else Exit; + Changing := True; + if Sender <> Self then + Responses.Clear; // Sender=Self when called from SetupDialog + ClearControl(lstSelectMod); + ClearControl(lstLastExam); + //ClearControl(memReason); {WPB-1298-30758} + Changing := False; + if CharAt(ItemID, 1) = 'Q' then + with Responses do + begin + QuickOrder := ExtractInteger(ItemID); + //SetControl(cboProcedure, 'ORDERABLE', 1); //v22.9 - RV + //SetModifierList; //v22.9 - RV + FLastRadID := ItemID; + end; + end; + with Responses do if QuickOrder > 0 then + begin + Changing := True; + SetControl(cboProcedure, 'ORDERABLE', 1); + SetModifierList; //v22.9 - RV + SetControl(lstSelectMod, 'MODIFIER', 1); + SetControl(cboUrgency, 'URGENCY', 1); + SetControl(cboSubmit, 'IMLOC', 1); + SetControl(cboTransport, 'MODE', 1); + SetControl(cboCategory, 'CLASS', 1); + SetControl(memReason, 'COMMENT', 1); + SetControl(chkIsolation, 'YN', 1); + SetControl(radPregnant, 'PREGNANT', 1); + SetControl(calPreOp , 'PREOP', 1); + tmpResp := FindResponseByName('START',1); + if tmpResp <> nil then + begin + if ContainsAlpha(tmpResp.IValue) then + calRequestDate.Text := tmpResp.IValue + else + calRequestDate.FMDateTime := StrToFMDateTime(tmpResp.IValue); + end; + Changing := False; + end; + OrderMessage(ImagingMessage(cboProcedure.ItemIEN)) ; + ControlChange(Self); +end; + +procedure TfrmODRad.SetModifierList; +var + i: integer; + tmpResp: TResponse; +begin + i := 1; + tmpResp := Responses.FindResponseByName('MODIFIER',i); + while tmpResp <> nil do + begin + lstSelectMod.Items.Add(tmpResp.IValue + '^' + tmpResp.EValue); + if tmpResp.EValue = 'PORTABLE EXAM' then + with cboTransport do SelectByID('P'); + Inc(i); + tmpResp := Responses.FindResponseByName('MODIFIER',i); + end ; +end; + +procedure TfrmODRad.cboCategoryChange(Sender: TObject); +var + Source: string; +begin + inherited; + if Contract <> '' then Source := Contract + else if Research <> '' then Source := Research + else Source := ''; + Contract := ''; + Research := ''; + with cboCategory do + begin + if CharAt(ItemID,1) in ['C','S','R'] then + begin + SelectSource(Font.Size, CharAt(ItemID,1), Source); + if Source = '-1' then + InfoBox(TX_NO_AGREE, TX_NO_AGREE_CAP, MB_OK or MB_ICONWARNING) + else if CharAt(ItemID,1) in ['C','S'] then + Contract := Source + else if ItemID='R' then + Research := Source; + end; + end; + ControlChange(Self); +end; + +procedure TfrmODRad.FormCreate(Sender: TObject); +begin + FFormFirstOpened := TRUE; + ImageTypeChanged := false; + frmFrame.pnlVisit.Enabled := false; + AutoSizeDisabled := True; + inherited; + memReason.Width := pnlHandR.ClientWidth; + memReason.Height := pnlHandR.ClientHeight - memReason.Top; + FillerID := 'RA'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Clear; + DisplayGroup := 0; + AllowQuickOrder := True; + Responses.Dialog := 'RA OERR EXAM'; // loads formatting info + StatusText('Loading Default Values'); + cboImType.Items.Assign(SubsetOfImagingTypes); + if Self.EvtID>0 then + FEvtDelayDiv := GetEventDiv1(IntToStr(Self.EvtID)); + PreserveControl(cboImType); + PreserveControl(calRequestDate); + PreserveControl(cboUrgency); + PreserveControl(cboTransport); + PreserveControl(cboSubmit); + PreserveControl(cboCategory); + PreserveControl(calPreOp); + PreserveControl(memReason); {WPB-1298-30758} + if (Patient.Sex <> 'F') then + begin + radPregnant.Enabled := False; + radPregnantNo.Enabled := False; + radPregnantUnknown.Enabled := False; + end else SetDefaultPregant; + FormMonitorBringToFrontEvent(Self, FormFirstOpened); +end; + +{Assigned to cbolmType.OnDropDownClose and cbolmType.OnExit, instead of + cbolmType.OnChange, becuase when it is OnChange the delay interfers with + Window-Eyes ability to read the drop-down Items.} +procedure TfrmODRad.cboImTypeChange(Sender: TObject); +begin + inherited; + ImageTypeChanged := true; +end; + +procedure TfrmODRad.memReasonExit(Sender: TObject); +var + AStringList: TStringList; +begin + inherited; + AStringList := TStringList.Create; + try + AStringList.Assign(memReason.Lines); + LimitStringLength(AStringList, 74); + memReason.Lines.Assign(AstringList); + ControlChange(Self); + finally + AStringList.Free; + end; +end; + +procedure TfrmODRad.FormResize(Sender: TObject); +begin + inherited; + memReason.Width := pnlHandR.ClientWidth; + memReason.Height := pnlHandR.ClientHeight - memReason.Top; +end; + +procedure TfrmODRad.cboAvailModKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_RETURN then cboAvailModMouseClick(Self); +end; + +procedure TfrmODRad.calPreOpChange(Sender: TObject); +begin + inherited; + FPreOpDate := FloatToStr(calPreOp.FMDateTime); + ControlChange(Self); +end; + +procedure TfrmODRad.SetDefaultPregant; +begin + if (Patient.Sex = 'F') and ((Patient.Age > 55) or (Patient.Age < 12)) then + radPregnantNo.Checked := True; +end; + +procedure TfrmODRad.cmdAcceptClick(Sender: TObject); +const + Txt1 = 'This order can not be saved for the following reason(s):'; + Txt2 = #13+#13+'A response for the pregnant field must be selected.'; +var + NeedCheckPregnant: boolean; +begin + if Patient.Sex = 'F' then + begin + NeedCheckPregnant := True; + if radPregnant.Checked then NeedCheckPregnant := False + else if radPregnantNo.Checked then NeedCheckPregnant := False + else if radPregnantUnknown.Checked then NeedCheckPregnant := False; + if NeedCheckPregnant then + begin + MessageDlg(Txt1+Txt2, mtWarning,[mbOK],0); + Exit; + end; + end; + inherited; +end; + +procedure TfrmODRad.cboProcedureExit(Sender: TObject); +var + i: integer; + ModList: TStringList; +begin + inherited; + ModList := TStringList.Create; + if lstSelectMod.Items.Count > 0 then + for i := 0 to lstSelectMod.Count - 1 do + ModList.Add(lstSelectMod.Items[i]); + cboProcedureSelect(Self); + for i := 0 to ModList.Count - 1 do + begin + lstSelectMod.Items.Add(ModList[i]); + lstSelectMod.SelectByID(Piece(ModList[i],U,1)); + end; + with lstSelectMod do + for i := 0 to Items.Count - 1 do + Responses.Update('MODIFIER',i+1, Piece(Items[i],U,1), Piece(Items[i],U,2)); +end; + + +procedure TfrmODRad.cboImTypeExit(Sender: TObject); +begin + inherited; + ImageTypeChange; +end; + +procedure TfrmODRad.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + frmFrame.pnlVisit.Enabled := true; + FormMonitorBringToFrontEvent(Self, nil); +end; + +procedure TfrmODRad.chkIsolationExit(Sender: TObject); +begin + inherited; + //Fix for CQ: 10025 + if TabIsPressed() then + if NoPregnantSelection() then + if radPregnant.CanFocus then + radPregnant.SetFocus(); +end; + +procedure TfrmODRad.calPreOpExit(Sender: TObject); +begin + inherited; + //Fix for CQ: 10025 + if ShiftTabIsPressed() then + if NoPregnantSelection() then + if radPregnant.CanFocus then + radPregnant.SetFocus(); +end; + +function TfrmODRad.NoPregnantSelection : Boolean; +begin + result := not ((radPregnant.Checked) or (radPregnantNo.Checked) or (radPregnantUnknown.Checked)); +end; + +procedure TfrmODRad.cboImTypeDropDownClose(Sender: TObject); +begin + inherited; + ImageTypeChange; +end; + +procedure TfrmODRad.ImageTypeChange; +begin + if not ImageTypeChanged then Exit; + ImageTypeChanged := false; + if FPredefineOrder then + FPredefineOrder := False; + if Changing or (cboImtype.ItemIndex = -1) then exit; + with cboImType do DisplayGroup := StrToIntDef(Piece(Items[ItemIndex], U, 4), 0) ; + if DisplayGroup = 0 then exit; + CtrlInits.LoadDefaults(ODForRad(Patient.DFN, FEvtDelayDiv, DisplayGroup)); // ODForRad returns TStrings with defaults + FPredefineOrder := False; + InitDialog; +end; + +procedure TfrmODRad.FormFirstOpened(Sender: TObject); +begin + if(FFormFirstOpened) then + begin + FFormFirstOpened := FALSE; + with cboImType do + if not FEditCopy and (ItemIEN = 0) and (DroppedDown = False) and (Application.Active) then + begin + cboImType.DroppedDown := TRUE; + end; + end; +end; + +end. + diff --git a/CPRS-Chart/Orders/fODRadApproval.dfm b/CPRS-Chart/Orders/fODRadApproval.dfm new file mode 100644 index 0000000..19704ae --- /dev/null +++ b/CPRS-Chart/Orders/fODRadApproval.dfm @@ -0,0 +1,77 @@ +object frmODRadApproval: TfrmODRadApproval + Left = 295 + Top = 167 + BorderStyle = bsDialog + Caption = 'Select Approving Radiologist' + ClientHeight = 262 + ClientWidth = 259 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 259 + Height = 262 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object SrcLabel: TLabel + Left = 12 + Top = 14 + Width = 98 + Height = 13 + Caption = 'Select or enter name' + end + object cmdOK: TButton + Left = 52 + Top = 227 + Width = 75 + Height = 25 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 132 + Top = 226 + Width = 75 + Height = 25 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 2 + OnClick = cmdCancelClick + end + object cboRadiologist: TORComboBox + Left = 13 + Top = 31 + Width = 234 + Height = 185 + Style = orcsSimple + AutoSelect = True + Caption = 'Select or enter name' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + end + end +end diff --git a/CPRS-Chart/Orders/fODRadApproval.pas b/CPRS-Chart/Orders/fODRadApproval.pas new file mode 100644 index 0000000..39b4774 --- /dev/null +++ b/CPRS-Chart/Orders/fODRadApproval.pas @@ -0,0 +1,78 @@ +unit fODRadApproval; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ORCtrls, ORfn, ExtCtrls; + +type + TfrmODRadApproval = class(TForm) + cmdOK: TButton; + cmdCancel: TButton; + cboRadiologist: TORComboBox; + SrcLabel: TLabel; + pnlBase: TORAutoPanel; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + private + FRadiologist: string ; + FChanged: Boolean; + end; + +procedure SelectApprovingRadiologist(FontSize: Integer; var Radiologist: string) ; + +implementation + +{$R *.DFM} + +uses rODRad, rCore, uCore; + +const + TX_RAD_TEXT = 'Select radiologist or press Cancel.'; + TX_RAD_CAP = 'No Radiologist Selected'; + +procedure SelectApprovingRadiologist(FontSize: Integer; var Radiologist: string); +{ displays radiologist selection form and returns a record of the selection } +var + frmODRadApproval: TfrmODRadApproval; + W, H: Integer; +begin + frmODRadApproval := TfrmODRadApproval.Create(Application); + try + with frmODRadApproval do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + FChanged := False; + cboRadiologist.Items.Assign(SubsetOfRadiologists); + ShowModal; + Radiologist := FRadiologist ; + end; {with frmODRadApproval} + finally + frmODRadApproval.Release; + end; +end; + +procedure TfrmODRadApproval.cmdCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmODRadApproval.cmdOKClick(Sender: TObject); +begin + if cboRadiologist.ItemIEN = 0 then + begin + InfoBox(TX_RAD_TEXT, TX_RAD_CAP, MB_OK or MB_ICONWARNING); + FChanged := False ; + Exit; + end; + FChanged := True; + FRadiologist := cboRadiologist.Items[cboRadiologist.ItemIndex] ; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fODRadConShRes.dfm b/CPRS-Chart/Orders/fODRadConShRes.dfm new file mode 100644 index 0000000..a302669 --- /dev/null +++ b/CPRS-Chart/Orders/fODRadConShRes.dfm @@ -0,0 +1,87 @@ +object frmODRadConShRes: TfrmODRadConShRes + Left = 308 + Top = 206 + ActiveControl = txtResearch + BorderStyle = bsDialog + Caption = 'Contract/Sharing/Research Source' + ClientHeight = 121 + ClientWidth = 288 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 288 + Height = 121 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object SrcLabel: TLabel + Left = 12 + Top = 14 + Width = 107 + Height = 13 + Caption = 'Select or enter source:' + end + object cmdOK: TButton + Left = 58 + Top = 74 + Width = 75 + Height = 25 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 139 + Top = 74 + Width = 75 + Height = 25 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 3 + OnClick = cmdCancelClick + end + object cboSource: TORComboBox + Left = 14 + Top = 31 + Width = 262 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Select or enter source:' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + end + object txtResearch: TCaptionEdit + Left = 12 + Top = 31 + Width = 261 + Height = 21 + MaxLength = 40 + TabOrder = 1 + Caption = 'Select or enter source:' + end + end +end diff --git a/CPRS-Chart/Orders/fODRadConShRes.pas b/CPRS-Chart/Orders/fODRadConShRes.pas new file mode 100644 index 0000000..6a2c2a2 --- /dev/null +++ b/CPRS-Chart/Orders/fODRadConShRes.pas @@ -0,0 +1,121 @@ +unit fODRadConShRes; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ORCtrls, ORfn, ExtCtrls; + +type + TfrmODRadConShRes = class(TForm) + cmdOK: TButton; + cmdCancel: TButton; + cboSource: TORComboBox; + SrcLabel: TLabel; + pnlBase: TORAutoPanel; + txtResearch: TCaptionEdit; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + private + FSource: string ; + FChanged: Boolean; + end; + +procedure SelectSource(FontSize: Integer; SrcType: char; var Source: string) ; + +implementation + +{$R *.DFM} + +uses rODRad, rCore, uCore; + +const + TX_CS_TEXT = 'Select Source, or press Cancel.'; + TX_CS_CAP = 'No Source'; + TX_R_TEXT = 'Enter Source (3-40 characters), or press Cancel.'; + TX_R_CAP = 'No Source'; + +procedure SelectSource(FontSize: Integer; SrcType: char; var Source: string) ; +{ displays Source entry/selection form and returns a record of the selection } +var + frmODRadConShRes: TfrmODRadConShRes; + W, H: Integer; +begin + frmODRadConShRes := TfrmODRadConShRes.Create(Application); + try + with frmODRadConShRes do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + FChanged := False; + if SrcType in ['C','S'] then with cboSource do + begin + Items.Assign(SubsetOfRadSources(SrcType)); + if Items.Count > 0 then + begin + txtResearch.Enabled := False; + Enabled := True; + SelectByID(Piece(Source,U,1)); + BringToFront; + ShowModal; + end + {else if Items.Count = 1 then + FSource := Items[0]} + else + FSource := '-1'; + end + else if SrcType = 'R' then + begin + cboSource.Enabled := False; + txtResearch.BringToFront; + txtResearch.Text := Source; + ShowModal; + FSource := txtResearch.Text; + end; + Source:= FSource ; + end; {frmODRadConShRes} + finally + frmODRadConShRes.Release; + end; +end; + +procedure TfrmODRadConShRes.cmdCancelClick(Sender: TObject); +begin + FChanged := False ; + FSource := ''; + Close; +end; + +procedure TfrmODRadConShRes.cmdOKClick(Sender: TObject); +begin + if cboSource.Enabled then with cboSource do + begin + if ItemIEN = 0 then + begin + InfoBox(TX_CS_TEXT, TX_CS_CAP, MB_OK or MB_ICONWARNING); + FChanged := False ; + FSource := ''; + Exit; + end; + FChanged := True; + FSource := Items[ItemIndex]; + end + else + begin + if (Length(txtResearch.Text)<3) or (Length(txtResearch.Text)> 40) then + begin + InfoBox(TX_R_TEXT, TX_R_CAP, MB_OK or MB_ICONWARNING); + FChanged := False ; + FSource := ''; + Exit; + end ; + FChanged := True; + FSource := txtResearch.Text; + end; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fODRadImType.dfm b/CPRS-Chart/Orders/fODRadImType.dfm new file mode 100644 index 0000000..1758a8e --- /dev/null +++ b/CPRS-Chart/Orders/fODRadImType.dfm @@ -0,0 +1,79 @@ +object frmODRadImType: TfrmODRadImType + Left = 308 + Top = 206 + BorderStyle = bsDialog + Caption = 'Select Imaging Type' + ClientHeight = 189 + ClientWidth = 259 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 259 + Height = 189 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object SrcLabel: TLabel + Left = 12 + Top = 14 + Width = 145 + Height = 16 + AutoSize = False + Caption = 'Select or enter imaging type' + end + object cmdOK: TButton + Left = 57 + Top = 151 + Width = 75 + Height = 25 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 138 + Top = 151 + Width = 75 + Height = 25 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 2 + OnClick = cmdCancelClick + end + object cboImType: TORComboBox + Left = 14 + Top = 31 + Width = 234 + Height = 103 + Style = orcsSimple + AutoSelect = True + Caption = 'Select or enter imaging type' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = True + SynonymChars = '<>' + TabOrder = 0 + OnDblClick = cboImTypeDblClick + end + end +end diff --git a/CPRS-Chart/Orders/fODRadImType.pas b/CPRS-Chart/Orders/fODRadImType.pas new file mode 100644 index 0000000..a564259 --- /dev/null +++ b/CPRS-Chart/Orders/fODRadImType.pas @@ -0,0 +1,92 @@ +unit fODRadImType; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ORCtrls, ORfn, ExtCtrls; + +type + TfrmODRadImType = class(TForm) + cmdOK: TButton; + cmdCancel: TButton; + cboImType: TORComboBox; + SrcLabel: TLabel; + pnlBase: TORAutoPanel; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cboImTypeDblClick(Sender: TObject); + private + FImagingType: string ; + FChanged: Boolean; + end; + +procedure SelectImagingType(FontSize: Integer; var ImagingType: string) ; + +implementation + +{$R *.DFM} + +uses rODRad, rCore, uCore; + +const + TX_RAD_TEXT = 'Select imaging type or press Cancel.'; + TX_RAD_CAP = 'No imaging type Selected'; + +procedure SelectImagingType(FontSize: Integer; var ImagingType: string) ; +{ displays imaging type selection form and returns a record of the selection } +var + frmODRadImType: TfrmODRadImType; + W, H: Integer; +begin + frmODRadImType := TfrmODRadImType.Create(Application); + try + with frmODRadImType do + begin + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + FChanged := False; + cboImType.Items.Assign(SubsetOfImagingTypes); + if cboImType.Items.Count > 1 then + ShowModal + else + FImagingType := cboImType.Items[0] ; + ImagingType:= FImagingType ; + end; {with frmODRadImType} + finally + frmODRadImType.Release; + end; +end; + +procedure TfrmODRadImType.cmdCancelClick(Sender: TObject); +begin + FImagingType := '-1'; + Close; +end; + +procedure TfrmODRadImType.cmdOKClick(Sender: TObject); +begin + with cboImType do + begin + if ItemIEN = 0 then + begin + InfoBox(TX_RAD_TEXT, TX_RAD_CAP, MB_OK or MB_ICONWARNING); + FChanged := False ; + FImagingType := '-1'; + Exit; + end; + FChanged := True; + FImagingType := Items[ItemIndex]; + Close; + end ; +end; + +procedure TfrmODRadImType.cboImTypeDblClick(Sender: TObject); +begin + cmdOKClick(Self); +end; + +end. diff --git a/CPRS-Chart/Orders/fODReleaseEvent.dfm b/CPRS-Chart/Orders/fODReleaseEvent.dfm new file mode 100644 index 0000000..14379f8 --- /dev/null +++ b/CPRS-Chart/Orders/fODReleaseEvent.dfm @@ -0,0 +1,83 @@ +object frmOrdersReleaseEvent: TfrmOrdersReleaseEvent + Left = 410 + Top = 145 + Width = 494 + Height = 488 + Caption = 'Release to Service' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object lblRelease: TLabel + Left = 0 + Top = 0 + Width = 486 + Height = 13 + Align = alTop + Layout = tlCenter + WordWrap = True + end + object pnlMiddle: TPanel + Left = 0 + Top = 13 + Width = 486 + Height = 413 + Align = alClient + TabOrder = 0 + object cklstOrders: TCaptionCheckListBox + Left = 1 + Top = 1 + Width = 484 + Height = 411 + Align = alClient + ItemHeight = 16 + ParentShowHint = False + ShowHint = True + Style = lbOwnerDrawVariable + TabOrder = 0 + OnDrawItem = cklstOrdersDrawItem + OnMeasureItem = cklstOrdersMeasureItem + OnMouseMove = cklstOrdersMouseMove + end + end + object pnlBottom: TPanel + Left = 0 + Top = 426 + Width = 486 + Height = 35 + Align = alBottom + TabOrder = 1 + DesignSize = ( + 486 + 35) + object btnOK: TButton + Left = 324 + Top = 8 + Width = 69 + Height = 20 + Anchors = [akTop, akRight, akBottom] + Caption = 'OK' + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 404 + Top = 8 + Width = 69 + Height = 20 + Anchors = [akTop, akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = btnCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fODReleaseEvent.pas b/CPRS-Chart/Orders/fODReleaseEvent.pas new file mode 100644 index 0000000..a714181 --- /dev/null +++ b/CPRS-Chart/Orders/fODReleaseEvent.pas @@ -0,0 +1,275 @@ +unit fODReleaseEvent; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ORFn, CheckLst, ORCtrls, fAutoSz; + +type + TfrmOrdersReleaseEvent = class(TForm) + pnlMiddle: TPanel; + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + cklstOrders: TCaptionCheckListBox; + lblRelease: TLabel; + procedure btnCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure cklstOrdersMeasureItem(Control: TWinControl; Index: Integer; + var AHeight: Integer); + procedure cklstOrdersDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure cklstOrdersMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + private + { Private declarations } + OKPressed: boolean; + FLastHintItem: integer; + FOldHintPause: integer; + FOldHintHidePause: integer; + FComplete: boolean; + FCurrTS: string; + public + { Public declarations } + property CurrTS: string read FCurrTS write FCurrTS; + end; + +//procedure ExecuteReleaseEventOrders(AnOrderList: TList); +function ExecuteReleaseEventOrders(AnOrderList: TList): boolean; + +implementation +{$R *.DFM} + +uses rCore, rOrders, uConst, fOrdersPrint, uCore, uOrders, fOrders; +const + TX_SAVERR1 = 'The error, '; + TX_SAVERR2 = ', occurred while trying to release:' + CRLF + CRLF; + TC_SAVERR = 'Error Saving Order'; + +//procedure ExecuteReleaseEventOrders(AnOrderList: TList); +function ExecuteReleaseEventOrders(AnOrderList: TList): boolean; +const + TXT_RELEASE = #13 + #13 + ' The following orders will be released to service:'; +var + i,j,idx: integer; + AOrder: TOrder; + OrdersLst: TStringlist; + OrderText, LastCheckedPtEvt, SpeCap: string; + frmOrdersReleaseEvent: TfrmOrdersReleaseEvent; + + function FindOrderText(const AnID: string): string; + var + i: Integer; + begin + Result := ''; + with AnOrderList do for i := 0 to Count - 1 do + with TOrder(Items[i]) do if ID = AnID then + begin + Result := Text; + Break; + end; + end; + +begin + frmOrdersReleaseEvent := TfrmOrdersReleaseEvent.Create(Application); + try + frmOrdersReleaseEvent.CurrTS := Piece(GetCurrentSpec(Patient.DFN),'^',1); + if Length(frmOrdersReleaseEvent.CurrTS)>0 then + SpeCap := #13 + ' The current treating specialty is ' + frmOrdersReleaseEvent.CurrTS + else + SpeCap := #13 + ' No treating specialty is available.'; + ResizeFormToFont(TForm(frmOrdersReleaseEvent)); + if Patient.Inpatient then + frmOrdersReleaseEvent.lblRelease.Caption := ' ' + Patient.Name + ' is currently admitted to ' + + Encounter.LocationName + SpeCap + TXT_RELEASE + else + begin + if Encounter.Location > 0 then + frmOrdersReleaseEvent.lblRelease.Caption := ' ' + Patient.Name + ' is currently at ' + + Encounter.LocationName + SpeCap + TXT_RELEASE + else + frmOrdersReleaseEvent.lblRelease.Caption := ' ' + Patient.Name + ' is currently an outpatient.' + SpeCap + TXT_RELEASE; + end; + with frmOrdersReleaseEvent do + cklstOrders.Caption := lblRelease.Caption; + with AnOrderList do for i := 0 to Count - 1 do + begin + AOrder := TOrder(Items[i]); + idx := frmOrdersReleaseEvent.cklstOrders.Items.AddObject(AOrder.Text,AOrder); + frmOrdersReleaseEvent.cklstOrders.Checked[idx] := True; + end; + frmOrdersReleaseEvent.ShowModal; + if frmOrdersReleaseEvent.OKPressed then + begin + OrdersLst := TStringList.Create; + for j := 0 to frmOrdersReleaseEvent.cklstOrders.Items.Count - 1 do + begin + if frmOrdersReleaseEvent.cklstOrders.Checked[j] then + OrdersLst.Add(TOrder(frmOrdersReleaseEvent.cklstOrders.Items.Objects[j]).ID); + end; + StatusText('Releasing Orders to Service...'); + SendReleaseOrders(OrdersLst); + LastCheckedPtEvt := ''; + with OrdersLst do if Count > 0 then for i := 0 to Count - 1 do + begin + if Pos('E', Piece(OrdersLst[i], U, 2)) > 0 then + begin + OrderText := FindOrderText(Piece(OrdersLst[i], U, 1)); + InfoBox(TX_SAVERR1 + Piece(OrdersLst[i], U, 4) + TX_SAVERR2 + OrderText,TC_SAVERR, MB_OK); + end; + end; + PrintOrdersOnSignRelease(OrdersLst, NO_PROVIDER); + + with AnOrderList do for i := 0 to Count - 1 do with TOrder(Items[i]) do + begin + if EventPtr <> LastCheckedPtEvt then + begin + LastCheckedPtEvt := EventPtr; + if CompleteEvt(EventPtr,EventName,False) then + frmOrdersReleaseEvent.FComplete := True; + end; + end; + StatusText(''); + ordersLst.Free; + with AnOrderList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + if frmOrdersReleaseEvent.FComplete then + begin + frmOrders.InitOrderSheetsForEvtDelay; + frmOrders.ClickLstSheet; + end; + frmOrdersReleaseEvent.FComplete := False; + Result := True; + end else + Result := False; + Except + on E: exception do + Result := false; + end; + {finally + with AnOrderList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + if frmOrdersReleaseEvent.FComplete then + begin + frmOrders.InitOrderSheetsForEvtDelay; + frmOrders.ClickLstSheet; + end; + frmOrdersReleaseEvent.FComplete := False; + end;} +end; + +procedure TfrmOrdersReleaseEvent.btnCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmOrdersReleaseEvent.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; + FLastHintItem := -1; + FComplete := False; + FOldHintPause := Application.HintPause; + FCurrTS := ''; + Application.HintPause := 250; + FOldHintHidePause := Application.HintHidePause; + Application.HintHidePause := 30000; +end; + +procedure TfrmOrdersReleaseEvent.btnOKClick(Sender: TObject); +var + i: integer; + beSelected: boolean; +begin + beSelected := False; + for i := 0 to cklstOrders.Items.Count - 1 do + begin + if cklstOrders.Checked[i] then + begin + beSelected := True; + Break; + end; + end; + if not beSelected then + begin + ShowMessage('You have to select at least one order!'); + Exit; + end; + OKPressed := True; + Close; +end; + +procedure TfrmOrdersReleaseEvent.FormDestroy(Sender: TObject); +begin + inherited; + Application.HintPause := FOldHintPause; + Application.HintHidePause := FOldHintHidePause; +end; + +procedure TfrmOrdersReleaseEvent.cklstOrdersMeasureItem( + Control: TWinControl; Index: Integer; var AHeight: Integer); +var + x:string; + ARect: TRect; +begin + inherited; + AHeight := MainFontHeight + 2; + with cklstOrders do if Index < Items.Count then + begin + x := FilteredString(Items[Index]); + ARect := ItemRect(Index); + AHeight := WrappedTextHeightByFont( cklstOrders.Canvas, Font, x, ARect); + if AHeight > 255 then AHeight := 255; + if AHeight < 13 then AHeight := 13; + end; +end; + +procedure TfrmOrdersReleaseEvent.cklstOrdersDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + x: string; + ARect: TRect; +begin + inherited; + x := ''; + ARect := Rect; + with cklstOrders do + begin + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + Canvas.MoveTo(0, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + if Index < Items.Count then + begin + X := FilteredString(Items[Index]); + DrawText(Canvas.handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + end; + end; +end; + +procedure TfrmOrdersReleaseEvent.cklstOrdersMouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +var + Itm: integer; +begin + inherited; + Itm := cklstOrders.ItemAtPos(Point(X, Y), TRUE); + if (Itm >= 0) then + begin + if (Itm <> FLastHintItem) then + begin + Application.CancelHint; + cklstOrders.Hint := TrimRight(cklstOrders.Items[Itm]); + FLastHintItem := Itm; + Application.ActivateHint(Point(X, Y)); + end; + end else + begin + cklstOrders.Hint := ''; + FLastHintItem := -1; + Application.CancelHint; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fODSaveQuick.dfm b/CPRS-Chart/Orders/fODSaveQuick.dfm new file mode 100644 index 0000000..08db04b --- /dev/null +++ b/CPRS-Chart/Orders/fODSaveQuick.dfm @@ -0,0 +1,109 @@ +inherited frmODQuick: TfrmODQuick + Left = 371 + Top = 203 + Width = 304 + Height = 290 + Caption = 'frmODQuick' + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 261 + Height = 13 + Caption = 'Enter the name that should be used for this quick order.' + end + object Label2: TLabel + Left = 8 + Top = 61 + Width = 136 + Height = 13 + Caption = 'Meds, Inpatient Common List' + end + object SpeedButton1: TSpeedButton + Left = 263 + Top = 108 + Width = 25 + Height = 25 + Glyph.Data = { + F6000000424DF600000000000000760000002800000010000000100000000100 + 0400000000008000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 33333333333333333333333333333333333333333CCCCC33333333333CCCCC33 + 333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33 + 3333333CCCCCCCCC33333333CCCCCCC3333333333CCCCC333333333333CCC333 + 33333333333C3333333333333333333333333333333333333333} + end + object SpeedButton2: TSpeedButton + Left = 263 + Top = 144 + Width = 25 + Height = 25 + Glyph.Data = { + F6000000424DF600000000000000760000002800000010000000100000000100 + 0400000000008000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 3333333333333333333333333333333333333333333C33333333333333CCC333 + 333333333CCCCC3333333333CCCCCCC33333333CCCCCCCCC333333333CCCCC33 + 333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33 + 333333333CCCCC33333333333333333333333333333333333333} + end + object Bevel1: TBevel + Left = 8 + Top = 224 + Width = 280 + Height = 2 + end + object Bevel2: TBevel + Left = 8 + Top = 51 + Width = 280 + Height = 2 + end + object Edit1: TCaptionEdit + Left = 8 + Top = 22 + Width = 280 + Height = 21 + TabOrder = 0 + Caption = 'Enter the name that should be used for this quick order.' + end + object ORListBox1: TORListBox + Left = 8 + Top = 75 + Width = 245 + Height = 141 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 1 + ItemTipColor = clWindow + LongList = False + end + object Button1: TButton + Left = 136 + Top = 234 + Width = 72 + Height = 21 + Caption = 'OK' + TabOrder = 2 + end + object Button2: TButton + Left = 216 + Top = 234 + Width = 72 + Height = 21 + Caption = 'Cancel' + TabOrder = 3 + end + object BitBtn1: TBitBtn + Left = 263 + Top = 191 + Width = 25 + Height = 25 + TabOrder = 4 + Kind = bkAbort + end +end diff --git a/CPRS-Chart/Orders/fODSaveQuick.pas b/CPRS-Chart/Orders/fODSaveQuick.pas new file mode 100644 index 0000000..ac2e10e --- /dev/null +++ b/CPRS-Chart/Orders/fODSaveQuick.pas @@ -0,0 +1,35 @@ +unit fODSaveQuick; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, Buttons, ExtCtrls, StdCtrls, ORCtrls; + +type + TfrmODQuick = class(TfrmAutoSz) + Label1: TLabel; + Edit1: TCaptionEdit; + ORListBox1: TORListBox; + Label2: TLabel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + Button1: TButton; + Button2: TButton; + Bevel1: TBevel; + Bevel2: TBevel; + BitBtn1: TBitBtn; + private + { Private declarations } + public + { Public declarations } + end; + +var + frmODQuick: TfrmODQuick; + +implementation + +{$R *.DFM} + +end. diff --git a/CPRS-Chart/Orders/fODTest.dfm b/CPRS-Chart/Orders/fODTest.dfm new file mode 100644 index 0000000..272f55d --- /dev/null +++ b/CPRS-Chart/Orders/fODTest.dfm @@ -0,0 +1,296 @@ +inherited frmODTest: TfrmODTest + Left = 198 + Top = 304 + Caption = 'Test Order' + PixelsPerInch = 96 + TextHeight = 13 + object lblMedication: TLabel [0] + Left = 6 + Top = 4 + Width = 52 + Height = 13 + AutoSize = False + Caption = 'Medication' + end + object lblDosage: TLabel [1] + Left = 202 + Top = 4 + Width = 54 + Height = 13 + AutoSize = False + Caption = 'Instructions' + end + object lblRoute: TLabel [2] + Left = 314 + Top = 4 + Width = 29 + Height = 13 + AutoSize = False + Caption = 'Route' + end + object lblSchedule: TLabel [3] + Left = 392 + Top = 4 + Width = 45 + Height = 13 + AutoSize = False + Caption = 'Schedule' + end + object lblQuantity: TLabel [4] + Left = 470 + Top = 4 + Width = 39 + Height = 13 + AutoSize = False + Caption = 'Quantity' + end + object lblRefills: TLabel [5] + Left = 470 + Top = 45 + Width = 28 + Height = 13 + AutoSize = False + Caption = 'Refills' + end + object lblPickup: TLabel [6] + Left = 202 + Top = 101 + Width = 38 + Height = 13 + AutoSize = False + Caption = 'Pick Up' + end + object lblSC: TLabel [7] + Left = 314 + Top = 101 + Width = 43 + Height = 13 + AutoSize = False + Caption = 'SC? Y/N' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label1: TLabel [8] + Left = 392 + Top = 101 + Width = 31 + Height = 13 + AutoSize = False + Caption = 'Priority' + end + object Label2: TLabel [9] + Left = 202 + Top = 142 + Width = 49 + Height = 13 + Caption = 'Comments' + end + object cboMedication: TORComboBox [10] + Left = 6 + Top = 18 + Width = 180 + Height = 167 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 11 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 5 + end + object cboMedAlt: TORComboBox + Left = 6 + Top = 18 + Width = 180 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 11 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + Visible = False + end + object cboInstructions: TORComboBox + Left = 202 + Top = 18 + Width = 106 + Height = 77 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 6 + end + object cboRoute: TORComboBox + Left = 314 + Top = 18 + Width = 72 + Height = 77 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 7 + end + object cboSchedule: TORComboBox + Left = 392 + Top = 18 + Width = 72 + Height = 77 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 8 + end + object txtQuantity: TEdit + Left = 470 + Top = 18 + Width = 44 + Height = 21 + TabOrder = 9 + Text = 'txtQuantity' + end + object txtRefills: TMaskEdit + Left = 472 + Top = 64 + Width = 29 + Height = 21 + EditMask = '90;0; ' + MaxLength = 2 + TabOrder = 10 + Text = '0' + end + object spnRefills: TUpDown + Left = 501 + Top = 64 + Width = 15 + Height = 21 + Associate = txtRefills + Min = 0 + Max = 11 + Position = 0 + TabOrder = 11 + Wrap = False + end + object cboPickup: TORComboBox + Left = 202 + Top = 115 + Width = 106 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 12 + end + object cboSC: TORComboBox + Left = 314 + Top = 115 + Width = 72 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 13 + end + object cboPriority: TORComboBox + Left = 392 + Top = 115 + Width = 72 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 14 + end + object memComments: TMemo + Left = 202 + Top = 156 + Width = 311 + Height = 32 + Lines.Strings = ( + 'memComments') + TabOrder = 15 + end + object Timer1: TTimer + OnTimer = Timer1Timer + Left = 476 + Top = 108 + end +end diff --git a/CPRS-Chart/Orders/fODTest.pas b/CPRS-Chart/Orders/fODTest.pas new file mode 100644 index 0000000..cfc6101 --- /dev/null +++ b/CPRS-Chart/Orders/fODTest.pas @@ -0,0 +1,57 @@ +unit fODTest; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, ComCtrls, ExtCtrls, StdCtrls, ORCtrls, Mask, RZDebug; + +type + TfrmODTest = class(TfrmODBase) + lblMedication: TLabel; + cboMedAlt: TORComboBox; + cboMedication: TORComboBox; + lblDosage: TLabel; + cboInstructions: TORComboBox; + lblRoute: TLabel; + cboRoute: TORComboBox; + lblSchedule: TLabel; + cboSchedule: TORComboBox; + lblQuantity: TLabel; + txtQuantity: TEdit; + lblRefills: TLabel; + txtRefills: TMaskEdit; + spnRefills: TUpDown; + lblPickup: TLabel; + cboPickup: TORComboBox; + lblSC: TLabel; + cboSC: TORComboBox; + Label1: TLabel; + cboPriority: TORComboBox; + Label2: TLabel; + memComments: TMemo; + Timer1: TTimer; + procedure Timer1Timer(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmODTest: TfrmODTest; + +implementation + +{$R *.DFM} + +procedure TfrmODTest.Timer1Timer(Sender: TObject); +var + AControl: TControl; +begin + inherited; + AControl := GetCaptureControl; + if AControl <> nil then Writeln(AControl.Name) else Writeln('nil'); +end; + +end. diff --git a/CPRS-Chart/Orders/fODText.dfm b/CPRS-Chart/Orders/fODText.dfm new file mode 100644 index 0000000..d27c973 --- /dev/null +++ b/CPRS-Chart/Orders/fODText.dfm @@ -0,0 +1,68 @@ +inherited frmODText: TfrmODText + Caption = 'Text Only Order' + PixelsPerInch = 96 + TextHeight = 13 + object lblText: TLabel [0] + Left = 6 + Top = 4 + Width = 126 + Height = 13 + Caption = 'Enter the text of the order -' + end + object lblStart: TLabel [1] + Left = 226 + Top = 150 + Width = 76 + Height = 13 + Caption = 'Start Date/Time' + end + object lblStop: TLabel [2] + Left = 374 + Top = 150 + Width = 76 + Height = 13 + Caption = 'Stop Date/Time' + end + inherited memOrder: TMemo + TabOrder = 6 + end + inherited cmdAccept: TButton + TabOrder = 3 + end + inherited cmdQuit: TButton + TabOrder = 4 + end + object memText: TMemo [6] + Left = 6 + Top = 18 + Width = 508 + Height = 124 + TabOrder = 0 + OnChange = ControlChange + end + object txtStart: TORDateBox [7] + Left = 226 + Top = 164 + Width = 140 + Height = 21 + TabOrder = 1 + OnChange = ControlChange + DateOnly = False + RequireTime = False + Caption = 'Start Date/Time' + end + object txtStop: TORDateBox [8] + Left = 374 + Top = 164 + Width = 140 + Height = 21 + TabOrder = 2 + OnChange = ControlChange + DateOnly = False + RequireTime = False + Caption = 'Stop Date/Time' + end + inherited pnlMessage: TPanel + TabOrder = 5 + end +end diff --git a/CPRS-Chart/Orders/fODText.pas b/CPRS-Chart/Orders/fODText.pas new file mode 100644 index 0000000..cb7373d --- /dev/null +++ b/CPRS-Chart/Orders/fODText.pas @@ -0,0 +1,124 @@ +unit fODText; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, StdCtrls, ORCtrls, ComCtrls, ExtCtrls, ORFn, uConst, ORDtTm; + +type + TfrmODText = class(TfrmODBase) + memText: TMemo; + lblText: TLabel; + txtStart: TORDateBox; + txtStop: TORDateBox; + lblStart: TLabel; + lblStop: TLabel; + procedure FormCreate(Sender: TObject); + procedure ControlChange(Sender: TObject); + public + procedure InitDialog; override; + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + procedure Validate(var AnErrMsg: string); override; + end; + +var + frmODText: TfrmODText; + +implementation + +{$R *.DFM} + +uses rCore; + +const + TX_NO_TEXT = 'Some text must be entered.'; + TX_STARTDT = 'Unable to interpret start date.'; + TX_STOPDT = 'Unable to interpret stop date.'; + TX_GREATER = 'Stop date must be greater than start date.'; + +{ TfrmODBase common methods } + +procedure TfrmODText.FormCreate(Sender: TObject); +begin + inherited; + FillerID := 'OR'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Dialog := 'OR GXTEXT WORD PROCESSING ORDE'; // loads formatting info + //StatusText('Loading Default Values'); // there are no defaults for text only + //CtrlInits.LoadDefaults(ODForText); + InitDialog; + StatusText(''); +end; + +procedure TfrmODText.InitDialog; +begin + inherited; // inherited clears dialog controls and responses + ActiveControl := memText; //SetFocusedControl(memText); +end; + +procedure TfrmODText.SetupDialog(OrderAction: Integer; const ID: string); +begin + inherited; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do + begin + SetControl(memText, 'COMMENT', 1); + SetControl(txtStart, 'START', 1); + SetControl(txtStop, 'STOP', 1); + end + else txtStart.Text := 'NOW'; +end; + +procedure TfrmODText.Validate(var AnErrMsg: string); +const + SPACE_CHAR = 32; +var + ContainsPrintable: Boolean; + i: Integer; + StartTime, StopTime: TFMDateTime; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + inherited; + ContainsPrintable := False; + for i := 1 to Length(memText.Text) do if Ord(memText.Text[i]) > SPACE_CHAR then + begin + ContainsPrintable := True; + break; + end; + if not ContainsPrintable then SetError(TX_NO_TEXT); + with txtStart do if Length(Text) > 0 + then StartTime := StrToFMDateTime(Text) + else StartTime := 0; + with txtStop do if Length(Text) > 0 + then StopTime := StrToFMDateTime(Text) + else StopTime := 0; + if StartTime = -1 then SetError(TX_STARTDT); + if StopTime = -1 then SetError(TX_STARTDT); + if (StopTime > 0) and (StopTime < StartTime) then SetError(TX_GREATER); + //the following is commented out because should be using relative times + //if AnErrMsg = '' then + //begin + // Responses.Update('START', 1, FloatToStr(StartTime), txtStart.Text); + // Responses.Update('STOP', 1, FloatToStr(StopTime), txtStop.Text); + //end; +end; + +procedure TfrmODText.ControlChange(Sender: TObject); +begin + inherited; + if Changing then Exit; + with memText do if GetTextLen > 0 then Responses.Update('COMMENT', 1, TX_WPTYPE, Text); + with txtStart do if Length(Text) > 0 then Responses.Update('START', 1, Text, Text); + with txtStop do if Length(Text) > 0 then Responses.Update('STOP', 1, Text, Text); + memOrder.Text := Responses.OrderText; +end; + +end. + + diff --git a/CPRS-Chart/Orders/fODValidateAction.dfm b/CPRS-Chart/Orders/fODValidateAction.dfm new file mode 100644 index 0000000..bd93593 --- /dev/null +++ b/CPRS-Chart/Orders/fODValidateAction.dfm @@ -0,0 +1,125 @@ +object frmInvalidActionList: TfrmInvalidActionList + Left = 445 + Top = 142 + Width = 534 + Height = 553 + Caption = 'Invalidated action orders' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 526 + Height = 229 + Align = alTop + TabOrder = 0 + object Label1: TLabel + Left = 1 + Top = 1 + Width = 524 + Height = 24 + Align = alTop + AutoSize = False + Caption = 'You can'#39't take this action on the following orders' + end + object lstActDeniedOrders: TCaptionListBox + Left = 1 + Top = 52 + Width = 524 + Height = 176 + Align = alClient + ItemHeight = 16 + Style = lbOwnerDrawVariable + TabOrder = 0 + OnDrawItem = lstActDeniedOrdersDrawItem + OnMeasureItem = lstActDeniedOrdersMeasureItem + Caption = 'You can'#39't take this action on the following orders' + end + object hdrAction: THeaderControl + Left = 1 + Top = 25 + Width = 524 + Height = 27 + DragReorder = False + Sections = < + item + ImageIndex = -1 + MinWidth = 300 + Text = 'Order' + Width = 350 + end + item + ImageIndex = -1 + MinWidth = 150 + Text = 'Reason' + Width = 150 + end> + OnSectionResize = hdrActionSectionResize + end + end + object pnlBottom: TPanel + Left = 0 + Top = 229 + Width = 526 + Height = 256 + Align = alClient + TabOrder = 1 + object Label2: TLabel + Left = 1 + Top = 1 + Width = 524 + Height = 40 + Align = alTop + AutoSize = False + Caption = 'The following orders will be taken action:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + Layout = tlCenter + end + object lstValidOrders: TCaptionListBox + Left = 1 + Top = 41 + Width = 524 + Height = 214 + Align = alClient + ItemHeight = 16 + Style = lbOwnerDrawVariable + TabOrder = 0 + OnDrawItem = lstValidOrdersDrawItem + OnMeasureItem = lstValidOrdersMeasureItem + Caption = 'The following orders will be taken action' + end + end + object Panel1: TPanel + Left = 0 + Top = 485 + Width = 526 + Height = 41 + Align = alBottom + TabOrder = 2 + object btnOK: TButton + Left = 440 + Top = 12 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'OK' + TabOrder = 0 + OnClick = btnOKClick + end + end +end diff --git a/CPRS-Chart/Orders/fODValidateAction.pas b/CPRS-Chart/Orders/fODValidateAction.pas new file mode 100644 index 0000000..e8a4360 --- /dev/null +++ b/CPRS-Chart/Orders/fODValidateAction.pas @@ -0,0 +1,256 @@ +unit fODValidateAction; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ORFn, uCore, StdCtrls, CheckLst, ComCtrls,ExtCtrls,uConst, ORCtrls; + +type + TfrmInvalidActionList = class(TForm) + pnlTop: TPanel; + lstActDeniedOrders: TCaptionListBox; + Label1: TLabel; + hdrAction: THeaderControl; + pnlBottom: TPanel; + Label2: TLabel; + lstValidOrders: TCaptionListBox; + Panel1: TPanel; + btnOK: TButton; + procedure lstActDeniedOrdersDrawItem(Control: TWinControl; + Index: Integer; TheRect: TRect; State: TOwnerDrawState); + procedure lstActDeniedOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AHeight: Integer); + procedure btnOKClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure hdrActionSectionResize(HeaderControl: THeaderControl; + Section: THeaderSection); + procedure lstValidOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AHeight: Integer); + procedure lstValidOrdersDrawItem(Control: TWinControl; Index: Integer; + TheRect: TRect; State: TOwnerDrawState); + procedure FormResize(Sender: TObject); + private + { Private declarations } + TheInvaList: TStringList; + procedure RedrawActiveList; + public + { Public declarations } + end; + + procedure DisplayOrdersForAction(TheInvalidList: TStringList; TheValidList: TStringList; TheAction: String); + +implementation + +{$R *.DFM} + +procedure DisplayOrdersForAction(TheInvalidList: TStringList; TheValidList: TStringList; TheAction: String); +var + frmInvalidActionList: TfrmInvalidActionList; + i: integer; +begin + frmInvalidActionList := TfrmInvalidActionList.Create(Application); + frmInvalidActionList.TheInvaList :=TheInvalidList; + if TheAction = OA_CHGEVT then + begin + frmInvalidActionList.Caption := 'Change Release Event'; + frmInvalidActionList.Label1.Caption := 'You can not change the release event for the following orders.'; + frmInvalidActionList.Label2.Caption := 'You can change the release event for the following orders.'; + end; + if TheAction = OA_EDREL then + begin + frmInvalidActionList.Caption := 'Release Order(s) To Service'; + frmInvalidActionList.Label1.Caption := 'You can not release the following orders to service.'; + frmInvalidActionList.Label2.Caption := 'You can release the following orders to service.'; + end; + for i := 0 to TheInvalidList.Count - 1 do + begin + frmInvalidActionList.lstActDeniedOrders.Items.Add(Piece(TheInvalidList[i], U, 1) + ' ' + Piece(TheInvalidList[i], U, 2)); + end; + for i := 0 to TheValidList.Count - 1 do + begin + frmInvalidActionList.lstValidOrders.Items.Add(TheValidList[i]); + end; + if TheValidList.Count = 0 then + begin + frmInvalidActionList.lstValidOrders.Visible := False; + frmInvalidActionList.pnlBottom.Visible := False; + frmInvalidActionList.Height := frmInvalidActionList.Height - frmInvalidActionList.pnlBottom.Height; + end; + Beep; + frmInvalidActionList.ShowModal; + frmInvalidActionList.TheInvaList.Free; +end; + +procedure TfrmInvalidActionList.lstActDeniedOrdersDrawItem( + Control: TWinControl; Index: Integer; TheRect: TRect; + State: TOwnerDrawState); +var + x,x1,x2: string; + ARect: TRect; + i,RightSide: integer; + SaveColor: TColor; +begin + inherited; + with lstActDeniedOrders do + begin + ARect := TheRect; + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + RightSide := -2; + for i := 0 to 1 do + begin + RightSide := RightSide + hdrAction.Sections[i].Width; + Canvas.MoveTo(RightSide, ARect.Bottom - 1); + Canvas.LineTo(RightSide, ARect.Top); + end; + if Index < Items.Count then + begin + x1 := FilteredString(Piece(TheInvaList[index],'^',1)); + x2 := Piece(TheInvaList[index],'^',2); + for i := 0 to 1 do + begin + if i > 0 then ARect.Left := ARect.Right + 2 else ARect.Left := 2; + ARect.Right := ARect.Left + hdrAction.Sections[i].Width - 6; + SaveColor := Canvas.Brush.Color; + if i = 0 then + x := x1; + if i = 1 then + x := x2; + DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + Canvas.Brush.Color := SaveColor; + ARect.Right := ARect.Right + 4; + end; + end; + end; +end; + +procedure TfrmInvalidActionList.lstActDeniedOrdersMeasureItem( + Control: TWinControl; Index: Integer; var AHeight: Integer); +var + x1,x2: string; + ARect: TRect; + TextHeight, ReasonHeight, NewHeight: Integer; +begin + inherited; + AHeight := MainFontHeight + 2; + NewHeight := AHeight; + with lstActDeniedOrders do if Index < Items.Count then + begin + x1 := FilteredString(Piece(TheInvaList[index],'^',1)); + x2 := Piece(TheInvaList[index],'^',2); + + ARect := ItemRect(Index); + ARect.Right := hdrAction.Sections[0].Width - 6; + ARect.Left := 0; ARect.Top := 0; ARect.Bottom := 0; + TextHeight := DrawText(Canvas.Handle, PChar(x1), Length(x1), ARect, + DT_CALCRECT or DT_LEFT or DT_NOPREFIX or DT_WORDBREAK) + 2; + + ARect := ItemRect(Index); + ARect.Right := hdrAction.Sections[1].Width - 6; + ARect.Left := 0; ARect.Top := 0; ARect.Bottom := 0; + ReasonHeight := DrawText(Canvas.Handle, PChar(x2), Length(x2), ARect, + DT_CALCRECT or DT_LEFT or DT_NOPREFIX or DT_WORDBREAK) + 2; + NewHeight := HigherOf(TextHeight, ReasonHeight); + if NewHeight > 255 then NewHeight := 255; + if NewHeight < 13 then NewHeight := 13; + end; + AHeight := NewHeight; +end; + +procedure TfrmInvalidActionList.btnOKClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmInvalidActionList.FormCreate(Sender: TObject); +begin + TheInvaList := TStringList.Create; +end; + +procedure TfrmInvalidActionList.hdrActionSectionResize( + HeaderControl: THeaderControl; Section: THeaderSection); +begin + inherited; + RedrawSuspend(Self.Handle); + RedrawActiveList; + RedrawActivate(Self.Handle); + lstActDeniedOrders.Invalidate; +end; + +procedure TfrmInvalidActionList.RedrawActiveList; +var + i, SaveTop: Integer; +begin + with lstActDeniedOrders do + begin + RedrawSuspend(Handle); + SaveTop := TopIndex; + Clear; + for i := 0 to TheInvaList.Count - 1 do + Items.Add(Piece(TheInvaList[i], U, 1) + ' ' + Piece(TheInvaList[i], U, 2)); + TopIndex := SaveTop; + RedrawActivate(Handle); + end; +end; + +procedure TfrmInvalidActionList.lstValidOrdersMeasureItem( + Control: TWinControl; Index: Integer; var AHeight: Integer); +var + x: string; + ARect: TRect; + NewHeight: Integer; +begin + inherited; + AHeight := MainFontHeight + 2; + NewHeight := AHeight; + with lstValidOrders do if Index < Items.Count then + begin + x := FilteredString(lstValidOrders.Items[index]); + ARect := ItemRect(Index); + ARect.Right := hdrAction.Sections[0].Width - 6; + ARect.Left := 0; ARect.Top := 0; ARect.Bottom := 0; + NewHeight := DrawText(Canvas.Handle, PChar(x), Length(x), ARect, + DT_CALCRECT or DT_LEFT or DT_NOPREFIX or DT_WORDBREAK) + 2; + if NewHeight > 255 then NewHeight := 255; + if NewHeight < 13 then NewHeight := 13; + end; + AHeight := NewHeight; +end; + +procedure TfrmInvalidActionList.lstValidOrdersDrawItem( + Control: TWinControl; Index: Integer; TheRect: TRect; + State: TOwnerDrawState); +var + x: string; + ARect: TRect; + SaveColor: TColor; +begin + inherited; + with lstValidOrders do + begin + ARect := TheRect; + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + SaveColor := Canvas.Brush.Color; + Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + if Index < Items.Count then + begin + x := FilteredString(lstValidOrders.Items[index]); + DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + Canvas.Brush.Color := SaveColor; + ARect.Right := ARect.Right + 4; + end; + end; +end; + +procedure TfrmInvalidActionList.FormResize(Sender: TObject); +begin + if pnlBottom.Visible then + pnlTop.Height := (Height div 5 ) * 2 +end; + +end. diff --git a/CPRS-Chart/Orders/fODVitals.dfm b/CPRS-Chart/Orders/fODVitals.dfm new file mode 100644 index 0000000..c50d1fa --- /dev/null +++ b/CPRS-Chart/Orders/fODVitals.dfm @@ -0,0 +1,289 @@ +inherited frmODVitals: TfrmODVitals + Left = 721 + Top = 363 + Caption = 'Vital Measurement Order' + PixelsPerInch = 96 + TextHeight = 13 + object lblMeasurement: TLabel [0] + Left = 6 + Top = 8 + Width = 64 + Height = 13 + Caption = 'Measurement' + end + object lblSchedule: TLabel [1] + Left = 144 + Top = 8 + Width = 45 + Height = 13 + Caption = 'Schedule' + end + object lblStart: TLabel [2] + Left = 282 + Top = 8 + Width = 22 + Height = 13 + Caption = 'Start' + end + object lblStop: TLabel [3] + Left = 282 + Top = 50 + Width = 22 + Height = 13 + Caption = 'Stop' + end + object lblComment: TLabel [4] + Left = 6 + Top = 151 + Width = 103 + Height = 13 + Caption = 'Additional Instructions' + end + object txtComment: TCaptionEdit [5] + Left = 6 + Top = 165 + Width = 391 + Height = 21 + TabOrder = 10 + OnChange = ControlChange + Caption = 'Additional Instructions' + end + object cboMeasurement: TORComboBox + Left = 6 + Top = 21 + Width = 130 + Height = 122 + Style = orcsSimple + AutoSelect = True + Caption = 'Measurement' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object cboSchedule: TORComboBox + Left = 144 + Top = 21 + Width = 130 + Height = 122 + Style = orcsSimple + AutoSelect = True + Caption = 'Schedule' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 5 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object calStart: TORDateBox + Left = 282 + Top = 21 + Width = 115 + Height = 21 + TabOrder = 6 + Text = 'Now' + OnChange = ControlChange + DateOnly = False + RequireTime = False + Caption = 'Start Date' + end + object calStop: TORDateBox + Left = 282 + Top = 64 + Width = 115 + Height = 21 + TabOrder = 7 + OnChange = ControlChange + DateOnly = False + RequireTime = False + Caption = 'Stop Date' + end + object grpCallHO: TGroupBox + Left = 407 + Top = 9 + Width = 107 + Height = 164 + TabOrder = 8 + Visible = False + object lblBPsys: TLabel + Left = 8 + Top = 21 + Width = 38 + Height = 13 + Alignment = taRightJustify + AutoSize = False + Caption = 'BPsys <' + end + object lblBPdia: TLabel + Left = 8 + Top = 50 + Width = 38 + Height = 13 + Alignment = taRightJustify + AutoSize = False + Caption = 'BPdia >' + end + object lblPulseLT: TLabel + Left = 8 + Top = 79 + Width = 38 + Height = 13 + Alignment = taRightJustify + AutoSize = False + Caption = 'Pulse <' + end + object lblPulseGT: TLabel + Left = 8 + Top = 108 + Width = 38 + Height = 13 + Alignment = taRightJustify + AutoSize = False + Caption = 'Pulse >' + end + object lblTemp: TLabel + Left = 8 + Top = 137 + Width = 38 + Height = 13 + Alignment = taRightJustify + AutoSize = False + Caption = 'Temp >' + end + object txtBPsys: TCaptionEdit + Left = 50 + Top = 18 + Width = 32 + Height = 21 + TabOrder = 0 + Text = '100' + Caption = 'BPsys <' + end + object txtBPDia: TCaptionEdit + Left = 50 + Top = 47 + Width = 32 + Height = 21 + TabOrder = 1 + Text = '120' + Caption = 'BPdia >' + end + object txtPulseLT: TCaptionEdit + Left = 50 + Top = 76 + Width = 32 + Height = 21 + TabOrder = 2 + Text = '60' + Caption = 'Pulse <' + end + object txtPulGT: TCaptionEdit + Left = 50 + Top = 105 + Width = 32 + Height = 21 + TabOrder = 3 + Text = '120' + Caption = 'Pulse >' + end + object txtTemp: TCaptionEdit + Left = 50 + Top = 134 + Width = 32 + Height = 21 + TabOrder = 4 + Text = '101' + Caption = 'Temp >' + end + object spnBPsys: TUpDown + Left = 82 + Top = 18 + Width = 15 + Height = 21 + Associate = txtBPsys + Min = 0 + Max = 300 + Position = 100 + TabOrder = 5 + Wrap = False + end + object spnBPdia: TUpDown + Left = 82 + Top = 47 + Width = 15 + Height = 21 + Associate = txtBPDia + Min = 0 + Max = 300 + Position = 120 + TabOrder = 6 + Wrap = False + end + object spnPulseLT: TUpDown + Left = 82 + Top = 76 + Width = 15 + Height = 21 + Associate = txtPulseLT + Min = 0 + Max = 500 + Position = 60 + TabOrder = 7 + Wrap = False + end + object spnPulseGT: TUpDown + Left = 82 + Top = 105 + Width = 15 + Height = 21 + Associate = txtPulGT + Min = 0 + Max = 300 + Position = 120 + TabOrder = 8 + Wrap = False + end + object spnTemp: TUpDown + Left = 82 + Top = 134 + Width = 15 + Height = 21 + Associate = txtTemp + Min = 0 + Max = 120 + Position = 101 + TabOrder = 9 + Wrap = False + end + end + object chkCallHO: TCheckBox + Left = 414 + Top = 8 + Width = 73 + Height = 17 + Caption = 'Call HO on' + TabOrder = 9 + Visible = False + end +end diff --git a/CPRS-Chart/Orders/fODVitals.pas b/CPRS-Chart/Orders/fODVitals.pas new file mode 100644 index 0000000..5656e8b --- /dev/null +++ b/CPRS-Chart/Orders/fODVitals.pas @@ -0,0 +1,149 @@ +unit fODVitals; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fODBase, ComCtrls, ExtCtrls, StdCtrls, ORCtrls, ORDtTm; + +type + TfrmODVitals = class(TfrmODBase) + cboMeasurement: TORComboBox; + cboSchedule: TORComboBox; + calStart: TORDateBox; + calStop: TORDateBox; + grpCallHO: TGroupBox; + lblMeasurement: TLabel; + lblSchedule: TLabel; + lblStart: TLabel; + lblStop: TLabel; + txtBPsys: TCaptionEdit; + txtBPDia: TCaptionEdit; + txtPulseLT: TCaptionEdit; + txtPulGT: TCaptionEdit; + txtTemp: TCaptionEdit; + lblBPsys: TLabel; + lblBPdia: TLabel; + lblPulseLT: TLabel; + lblPulseGT: TLabel; + lblTemp: TLabel; + chkCallHO: TCheckBox; + txtComment: TCaptionEdit; + lblComment: TLabel; + spnBPsys: TUpDown; + spnBPdia: TUpDown; + spnPulseLT: TUpDown; + spnPulseGT: TUpDown; + spnTemp: TUpDown; + procedure FormCreate(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + { Private declarations } + protected + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); override; + public + procedure SetupDialog(OrderAction: Integer; const ID: string); override; + end; + +var + frmODVitals: TfrmODVitals; + +implementation + +{$R *.DFM} + +uses uConst, ORFn, rODBase, fFrame; + +const + TX_NO_MEASUREMENT = 'A measurement must be selected.'; + TX_BAD_START = 'The start date is not valid.'; + TX_BAD_STOP = 'The stop date is not valid.'; + TX_STOPSTART = 'The stop date must be after the start date.'; + +procedure TfrmODVitals.FormCreate(Sender: TObject); +begin + frmFrame.pnlVisit.Enabled := false; + inherited; + FillerID := 'OR'; // does 'on Display' order check **KCM** + StatusText('Loading Dialog Definition'); + Responses.Dialog := 'GMRVOR'; + //Responses.Dialog := 'ORWD GENERIC VITALS'; // loads formatting info + StatusText('Loading Default Values'); // there are no defaults for text only + CtrlInits.LoadDefaults(ODForVitals); + InitDialog; + StatusText(''); +end; + +procedure TfrmODVitals.InitDialog; +begin + inherited; + txtComment.Text := ''; + with CtrlInits do + begin + SetControl(cboMeasurement, 'Measurements'); + SetControl(cboSchedule, 'Schedules'); + end; + ActiveControl := cboMeasurement; //SetFocusedControl(cboMeasurement); +end; + +procedure TfrmODVitals.SetupDialog(OrderAction: Integer; const ID: string); +begin + inherited; + if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do + begin + Changing := True; + SetControl(cboMeasurement, 'ORDERABLE', 1); + SetControl(cboSchedule, 'SCHEDULE', 1); + SetControl(calStart, 'START', 1); + SetControl(calStop, 'STOP', 1); + SetControl(txtComment, 'COMMENT', 1); + Changing := False; + ControlChange(Self); + end; +end; + +procedure TfrmODVitals.Validate(var AnErrMsg: string); +var + ErrMsg: string; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + inherited; + if cboMeasurement.ItemIEN <= 0 then SetError(TX_NO_MEASUREMENT); + calStart.Validate(ErrMsg); + if Length(ErrMsg) > 0 then SetError(TX_BAD_START); + calStop.Validate(ErrMsg); + if Length(ErrMsg) > 0 then SetError(TX_BAD_STOP); + if (Length(calStop.Text) > 0) and (calStop.FMDateTime <= calStart.FMDateTime) + then SetError(TX_STOPSTART); + +end; + +procedure TfrmODVitals.ControlChange(Sender: TObject); +begin + inherited; + if Changing then Exit; + Responses.Clear; + with cboMeasurement do if ItemIEN > 0 then Responses.Update('ORDERABLE', 1, ItemID, Text); + with cboSchedule do if Length(Text) > 0 then Responses.Update('SCHEDULE' , 1, Text, Text); + with calStart do if Length(Text) > 0 then Responses.Update('START', 1, Text, Text); + with calStop do if Length(Text) > 0 then Responses.Update('STOP', 1, Text, Text); + with txtComment do if Length(Text) > 0 then Responses.Update('COMMENT', 1, Text, Text); + memOrder.Text := Responses.OrderText; +end; + +procedure TfrmODVitals.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + frmFrame.pnlVisit.Enabled := true; +end; + +end. diff --git a/CPRS-Chart/Orders/fOMAction.dfm b/CPRS-Chart/Orders/fOMAction.dfm new file mode 100644 index 0000000..69c23e3 --- /dev/null +++ b/CPRS-Chart/Orders/fOMAction.dfm @@ -0,0 +1,5 @@ +inherited frmOMAction: TfrmOMAction + Caption = 'frmOMAction' + PixelsPerInch = 96 + TextHeight = 13 +end diff --git a/CPRS-Chart/Orders/fOMAction.pas b/CPRS-Chart/Orders/fOMAction.pas new file mode 100644 index 0000000..4ea36dc --- /dev/null +++ b/CPRS-Chart/Orders/fOMAction.pas @@ -0,0 +1,53 @@ +unit fOMAction; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, rOrders; + + +type + TCallOnExit = procedure; + + TfrmOMAction = class(TfrmAutoSz) + procedure FormDestroy(Sender: TObject); + private + FCallOnExit: TCallOnExit; + FOrderDialog: Integer; + FRefNum: Integer; + FAbortAction: boolean; + protected + procedure InitDialog; virtual; + public + property CallOnExit: TCallOnExit read FCallOnExit write FCallOnExit; + property OrderDialog: Integer read FOrderDialog write FOrderDialog; + property RefNum: Integer read FRefNum write FRefNum; + property AbortAction: boolean read FAbortAction write FAbortAction; + end; + + +var + frmOMAction: TfrmOMAction; + +implementation + +{$R *.DFM} + +uses + uConst; + +procedure TfrmOMAction.FormDestroy(Sender: TObject); +begin + if Assigned(FCallOnExit) then FCallOnExit; + if (Owner <> nil) and (Owner is TWinControl) + then SendMessage(TWinControl(Owner).Handle, UM_DESTROY, FRefNum, 0); + inherited; +end; + +procedure TfrmOMAction.InitDialog; +begin + FAbortAction := False; +end; + +end. diff --git a/CPRS-Chart/Orders/fOMHTML.dfm b/CPRS-Chart/Orders/fOMHTML.dfm new file mode 100644 index 0000000..9405a7b --- /dev/null +++ b/CPRS-Chart/Orders/fOMHTML.dfm @@ -0,0 +1,78 @@ +inherited frmOMHTML: TfrmOMHTML + Left = 390 + Top = 242 + Width = 520 + Height = 320 + Caption = 'HTML Ordering' + OnClose = FormClose + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object btnOK: TButton + Left = 352 + Top = 268 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'OK' + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 433 + Top = 268 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = btnCancelClick + end + object btnBack: TButton + Left = 6 + Top = 268 + Width = 43 + Height = 21 + Anchors = [akLeft, akBottom] + Caption = '< Back' + Enabled = False + TabOrder = 2 + OnClick = btnBackClick + end + object pnlWeb: TPanel + Left = 6 + Top = 6 + Width = 499 + Height = 253 + Anchors = [akLeft, akTop, akRight, akBottom] + BevelOuter = bvNone + TabOrder = 3 + object webView: TWebBrowser + Left = 0 + Top = 0 + Width = 499 + Height = 253 + Align = alClient + TabOrder = 0 + OnBeforeNavigate2 = webViewBeforeNavigate2 + OnDocumentComplete = webViewDocumentComplete + ControlData = { + 4C00000093330000261A00000000000000000000000000000000000000000000 + 000000004C000000000000000000000001000000E0D057007335CF11AE690800 + 2B2E126208000000000000004C0000000114020000000000C000000000000046 + 8000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000100000000000000000000000000000000000000} + end + end + object btnShow: TButton + Left = 55 + Top = 268 + Width = 103 + Height = 21 + Anchors = [akLeft, akBottom] + Caption = 'Show Selections....' + TabOrder = 4 + OnClick = btnShowClick + end +end diff --git a/CPRS-Chart/Orders/fOMHTML.pas b/CPRS-Chart/Orders/fOMHTML.pas new file mode 100644 index 0000000..19d0b14 --- /dev/null +++ b/CPRS-Chart/Orders/fOMHTML.pas @@ -0,0 +1,497 @@ +unit fOMHTML; + +{$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fOMAction, StdCtrls, OleCtrls, SHDocVw, MSHTML, activex, rOrders, uConst, + ExtCtrls; + +type + TfrmOMHTML = class(TfrmOMAction) + btnOK: TButton; + btnCancel: TButton; + btnBack: TButton; + pnlWeb: TPanel; + webView: TWebBrowser; + btnShow: TButton; + procedure btnOKClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure webViewDocumentComplete(Sender: TObject; + const pDisp: IDispatch; var URL: OleVariant); + procedure webViewBeforeNavigate2(Sender: TObject; + const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, + Headers: OleVariant; var Cancel: WordBool); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure btnBackClick(Sender: TObject); + procedure btnShowClick(Sender: TObject); + private + FOwnedBy: TComponent; + FRefNum: Integer; + FDialog: Integer; + FSetList: TStringList; + FPageCache: TList; + FCurrentIndex: Integer; + FCurrentURL: string; + FCurrentDoc: IHtmlDocument2; + FDelayEvent: TOrderDelayEvent; + FHistoryStack: TStringList; + FHistoryIndex: Integer; + function GetPageIndex(const URL: string): Integer; + function MetaElementExists(const AName, AContent: string): Boolean; + procedure AddPageToCache; + procedure SaveState; + procedure RestoreState; + procedure SetDialog(Value: Integer); + public + procedure SetEventDelay(AnEvent: TOrderDelayEvent); + property Dialog: Integer read FDialog write SetDialog; + property OwnedBy: TComponent read FOwnedBy write FOwnedBy; + property RefNum: Integer read FRefNum write FRefNum; + property SetList: TStringList read FSetList write FSetList; + end; + +var + frmOMHTML: TfrmOMHTML; + +implementation + +{$R *.DFM} + +uses ORFn, rCore, uCore, uOrders, ORNet, TRPCB, rMisc; + +const + TAB = #9; + +type + TPageState = class + private + FURL: string; + FTagStates: TStringList; + FSubmitData: TStringList; + public + constructor Create; + destructor Destroy; override; + end; + +{ TPageState } + +constructor TPageState.Create; +begin + FTagStates := TStringList.Create; + FSubmitData := TStringList.Create; +end; + +destructor TPageState.Destroy; +begin + FTagStates.Free; + FSubmitData.Free; + inherited; +end; + +{ temporary RPC's } + +function GetIENforHtml(const AnID: string): Integer; +{AnID, O.name or O.ien for 101.41, H.name or H.ien for 101.14} +begin + Result := StrToIntDef(sCallV('ORWDHTM GETIEN', [AnID]), 0); +end; + +function GetHTMLText(AnIEN: Integer): string; +{return HTML text from 101.14 given IEN} +begin + CallV('ORWDHTM HTML', [AnIEN, Patient.DFN]); + Result := RPCBrokerV.Results.Text; +end; + +function GetURLforDialog(AnIEN: Integer): string; +begin + Result := sCallV('ORWDHTM URL', [AnIEN]); + if Result = '' then Result := 'about:URL not found'; +end; + +procedure NameValueToViewList(Src, Dest: TStringList); +{ xform namevalue into DlgIEN^DlgType^DisplayName list } +var + i: Integer; + Subs: string; +begin + RPCBrokerV.ClearParameters := True; + RPCBrokerV.RemoteProcedure := 'ORWDHTM NV2DNM'; + RPCBrokerV.Param[0].PType := list; + for i := 0 to Pred(Src.Count) do + begin + Subs := IntToStr(Succ(i)); + RPCBrokerV.Param[0].Mult[Subs] := Copy(Src[i], 1, 245); + end; {for i} + CallBroker; + Dest.Assign(RPCBrokerV.Results); +end; + +procedure NameValueToOrderSet(Src, Dest: TStringList); +{ xform namevalue into DlgIEN^DlgType^DisplayName list } +var + i, j: Integer; + Subs: string; + WPText: TStringList; +begin + RPCBrokerV.ClearParameters := True; + RPCBrokerV.RemoteProcedure := 'ORWDHTM NV2SET'; + RPCBrokerV.Param[0].PType := list; + WPText := TStringList.Create; + for i := 0 to Pred(Src.Count) do + begin + WPText.Clear; + WPText.Text := Copy(Src[i], Pos(TAB, Src[i]) + 1, Length(Src[i])); + Subs := IntToStr(Succ(i)); + if WPText.Count = 1 then RPCBrokerV.Param[0].Mult[Subs] := Src[i] else + begin + RPCBrokerV.Param[0].Mult['"WP",' + Subs] := + Piece(Src[i], TAB, 1) + TAB + 'NMVAL("WP",' + Subs + ')'; + for j := 0 to Pred(WPText.Count) do + RPCBrokerV.Param[0].Mult['"WP",' + Subs + ',' + IntToStr(Succ(j)) + ',0'] := WPText[j]; + end; {if WPText} + end; {for i} + CallBroker; + WPText.Free; + Dest.Assign(RPCBrokerV.Results); +end; + +{ general procedures } + +procedure TfrmOMHTML.SetEventDelay(AnEvent: TOrderDelayEvent); +begin + FDelayEvent := AnEvent; +end; + +function TfrmOMHTML.GetPageIndex(const URL: string): Integer; +var + i: Integer; +begin + Result := -1; + for i := 0 to Pred(FPageCache.Count) do + if TPageState(FPageCache[i]).FURL = URL then + begin + Result := i; + break; + end; +end; + +function TfrmOMHTML.MetaElementExists(const AName, AContent: string): Boolean; +var + i: Integer; + AnElement: IHtmlElement; + AllElements: IHtmlElementCollection; +begin + Result := False; + AllElements := FCurrentDoc.All; + for i := 0 to Pred(AllElements.Length) do + begin + AnElement := AllElements.Item(i, 0) as IHtmlElement; + if AnElement.tagName = 'META' then + with AnElement as IHtmlMetaElement do + if (CompareText(name, AName) = 0) and (CompareText(content, AContent) = 0) + then Result := True; + if Result then Break; + end; +end; + +procedure TfrmOMHTML.AddPageToCache; +var + APageState: TPageState; +begin + APageState := TPageState.Create; + APageState.FURL := FCurrentURL; + FCurrentIndex := FPageCache.Add(APageState); +end; + +procedure TfrmOMHTML.SaveState; +var + i: Integer; + SelectName, State, NmVal, x: string; + APageState: TPageState; + AnElement: IHtmlElement; + AnInput: IHtmlInputElement; + ASelect: IHtmlSelectElement; + AnOption: IHtmlOptionElement; + ATextArea: IHtmlTextAreaElement; + AllElements: IHtmlElementCollection; +begin + if FCurrentIndex < 0 then Exit; + Assert(Assigned(FCurrentDoc)); + APageState := FPageCache[FCurrentIndex]; + APageState.FTagStates.Clear; + APageState.FSubmitData.Clear; + if not MetaElementExists('VistAuse', 'ORWDSET') then Exit; + + AllElements := FCurrentDoc.All; + for i := 0 to Pred(AllElements.Length) do + begin + AnElement := AllElements.Item(i, 0) as IHtmlElement; + NmVal := ''; + State := ''; + if AnElement.tagName = 'INPUT' then + begin + AnInput := AnElement as IHtmlInputElement; + if AnInput.type_ = 'checkbox' then + begin + if AnInput.checked then + begin + State := AnInput.name + TAB + '1'; + NmVal := AnInput.name + TAB + '1'; + end + else State := AnInput.name + TAB + '0'; + end; {checkbox} + if AnInput.type_ = 'radio' then + begin + if AnInput.checked then + begin + State := AnInput.name + AnInput.Value + TAB + '1'; + NmVal := AnInput.value + TAB + '1'; + end + else State := AnInput.name + AnInput.Value + TAB + '0'; + end; {radio} + if (AnInput.type_ = 'hidden') or (AnInput.type_ = 'password') or (AnInput.type_ = 'text') then + begin + State := AnInput.name + TAB + AnInput.value; + NmVal := State; + end; {hidden, password, text} + end; {INPUT} + if AnElement.tagname = 'SELECT' then + begin + ASelect := AnElement as IHtmlSelectElement; + SelectName := ASelect.name; + end; {SELECT} + if AnElement.tagName = 'OPTION' then + begin + AnOption := AnElement as IHtmlOptionElement; + x := AnOption.value; + if x = '' then x := AnOption.text; + if AnOption.Selected then + begin + State := SelectName + x + TAB + '1'; + NmVal := SelectName + TAB + x; + end + else State := SelectName + x + TAB + '0'; + end; {OPTION} + if AnElement.tagName = 'TEXTAREA' then + begin + ATextArea := AnElement as IHtmlTextAreaElement; + State := ATextArea.name + TAB + ATextArea.value; + NmVal := State; + end; {TEXTAREA} + if Length(State) > 0 then APageState.FTagStates.Add(State); + if Length(NmVal) > 0 then APageState.FSubmitData.Add(NmVal); + end; {for i} +end; + +procedure TfrmOMHTML.RestoreState; +var + i: Integer; + SelectName, x: string; + APageState: TPageState; + AnElement: IHtmlElement; + AnInput: IHtmlInputElement; + ASelect: IHtmlSelectElement; + AnOption: IHtmlOptionElement; + ATextArea: IHtmlTextAreaElement; + AllElements: IHtmlElementCollection; + + function GetStateFromName(const AName: string): string; + var + i: Integer; + begin + Result := ''; + for i := 0 to Pred(APageState.FTagStates.Count) do + begin + if Piece(APageState.FTagStates[i], TAB, 1) = AName then + begin + Result := Piece(APageState.FTagStates[i], TAB, 2); + Break; + end; {if Piece} + end; {for i} + end; {GetStateFromName} + +begin + APageState := TPageState(FPageCache.Items[FCurrentIndex]); + if APageState.FTagStates.Count = 0 then Exit; + AllElements := FCurrentDoc.All; + for i := 0 to Pred(AllElements.Length) do + begin + AnElement := AllElements.Item(i, 0) as IHtmlElement; + if AnElement.tagName = 'INPUT' then + begin + AnInput := AnElement as IHtmlInputElement; + if AnInput.type_ = 'checkbox' + then AnInput.Set_checked(GetStateFromName(AnInput.name) = '1'); + if AnInput.Type_ = 'radio' + then AnInput.Set_checked(GetStateFromName(AnInput.name + AnInput.Value) = '1'); + if (AnInput.type_ = 'hidden') or (AnInput.type_ = 'password') or (AnInput.type_ = 'text') + then AnInput.Set_value(GetStateFromName(AnInput.name)); + end; {INPUT} + if AnElement.tagname = 'SELECT' then + begin + ASelect := AnElement as IHtmlSelectElement; + SelectName := ASelect.name; + end; {SELECT} + if AnElement.tagName = 'OPTION' then + begin + AnOption := AnElement as IHtmlOptionElement; + x := AnOption.value; + if x = '' then x := AnOption.text; + AnOption.Set_selected(GetStateFromName(SelectName + x) = '1'); + end; {OPTION} + if AnElement.tagName = 'TEXTAREA' then + begin + ATextArea := AnElement as IHtmlTextAreaElement; + ATextArea.Set_value(GetStateFromName(ATextArea.name)); + end; {TEXTAREA} + end; {for i} +end; + +procedure TfrmOMHTML.SetDialog(Value: Integer); +begin + FDialog := Value; + webView.Navigate(GetURLForDialog(FDialog)); +end; + +{ Form events (get the initial page loaded) } + +procedure TfrmOMHTML.FormCreate(Sender: TObject); +begin + AutoSizeDisabled := True; + inherited; + FPageCache := TList.Create; + FSetList := TStringList.Create; + FHistoryStack := TStringList.Create; + FHistoryIndex := -1; + FCurrentIndex := -1; +end; + +procedure TfrmOMHTML.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + SaveUserBounds(Self); + if (FOwnedBy <> nil) and (FOwnedBy is TWinControl) + then SendMessage(TWinControl(FOwnedBy).Handle, UM_DESTROY, FRefNum, 0); +end; + +procedure TfrmOMHTML.FormDestroy(Sender: TObject); +var + i: Integer; +begin + for i := Pred(FPageCache.Count) downto 0 do TPageState(FPageCache[i]).Free; + DestroyingOrderHTML; + FSetList.Free; + FHistoryStack.Free; + inherited; +end; + +{ webBrowser events } + +procedure TfrmOMHTML.webViewDocumentComplete(Sender: TObject; const pDisp: IDispatch; + var URL: OleVariant); +{ This event happens after a navigation. It is at this point that there is an instantiated + instance of IHtmlDocument available. } +begin + inherited; + if not Assigned(webView.Document) then Exit; + FCurrentDoc := webView.Document as IHtmlDocument2; + FCurrentURL := URL; + FHistoryStack.Add(FCurrentURL); + btnBack.Enabled := FHistoryStack.Count > 1; + FCurrentIndex := GetPageIndex(FCurrentURL); + if FCurrentIndex >= 0 then RestoreState else AddPageToCache; +end; + +function CopyToCtrlChar(const Src: string; StartAt: Integer): string; +var + i: Integer; +begin + Result := ''; + if StartAt < 1 then StartAt := 1; + for i := StartAt to Length(Src) do + if Ord(Src[i]) > 31 then Result := Result + Src[i] else break; +end; + +procedure TfrmOMHTML.webViewBeforeNavigate2(Sender: TObject; const pDisp: IDispatch; + var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); +begin + inherited; + SaveState; + // activate order dialog here, i.e., 'about:CPRSOrder=FHW1' +end; + +{ button events } + +procedure TfrmOMHTML.btnOKClick(Sender: TObject); +var + i, j: Integer; + APageState: TPageState; +begin + inherited; + SaveState; + // create an order set based on all the saved states of pages navigated to + for i := 0 to Pred(FPageCache.Count) do + begin + APageState := FPageCache[i]; + for j := 0 to Pred(APageState.FSubmitData.Count) do + begin + FSetList.Add(APageState.FSubmitData[j]); + end; + end; + NameValueToOrderSet(FSetList, FSetList); + // put in reference number, key variables, & caption later as necessary + //ActivateOrderList(NameValuePairs, FDelayEvent, Self, 0, '', ''); + Close; +end; + +procedure TfrmOMHTML.btnCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmOMHTML.btnBackClick(Sender: TObject); +var + BackURL: string; +begin + inherited; + if FHistoryStack.Count > 1 then + begin + FHistoryStack.Delete(Pred(FHistoryStack.Count)); + BackURL := FHistoryStack[Pred(FHistoryStack.Count)]; + FHistoryStack.Delete(Pred(FHistoryStack.Count)); + if FHistoryStack.Count < 2 then btnBack.Enabled := False; + webView.Navigate(BackURL); + end; +end; + +procedure TfrmOMHTML.btnShowClick(Sender: TObject); +var + i, j: Integer; + APageState: TPageState; + tmpList: TStringList; +begin + inherited; + SaveState; + tmpList := TStringList.Create; + // create an order set based on all the saved states of pages navigated to + for i := 0 to Pred(FPageCache.Count) do + begin + APageState := FPageCache[i]; + for j := 0 to Pred(APageState.FSubmitData.Count) do + begin + tmpList.Add(APageState.FSubmitData[j]); + end; + end; + NameValueToViewList(tmpList, tmpList); + InfoBox(tmpList.Text, 'Current Selections', MB_OK); + tmpList.Free; +end; + +end. diff --git a/CPRS-Chart/Orders/fOMNavA.dfm b/CPRS-Chart/Orders/fOMNavA.dfm new file mode 100644 index 0000000..c01276c --- /dev/null +++ b/CPRS-Chart/Orders/fOMNavA.dfm @@ -0,0 +1,131 @@ +object frmOMNavA: TfrmOMNavA + Left = 265 + Top = 445 + Width = 491 + Height = 305 + BorderIcons = [] + Caption = 'frmOMNavA' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + OnActivate = FormActivate + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object pnlTool: TPanel + Left = 0 + Top = 0 + Width = 483 + Height = 19 + Align = alTop + BevelOuter = bvLowered + Caption = 'Menu or Dialog Name' + Color = clHighlight + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnMouseDown = pnlToolMouseDown + OnMouseMove = pnlToolMouseMove + OnMouseUp = pnlToolMouseUp + object cmdDone: TORAlignButton + Left = 432 + Top = 1 + Width = 50 + Height = 17 + Caption = 'Done' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = cmdDoneClick + Align = alRight + end + object cmdPrev: TBitBtn + Left = 0 + Top = 1 + Width = 20 + Height = 17 + Caption = 'Back' + Enabled = False + TabOrder = 1 + OnClick = cmdPrevClick + Glyph.Data = { + 06010000424D06010000000000007600000028000000180000000C0000000100 + 0400000000009000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333377333 + 3333333773333333337C7333333333777333333337CC73333333377373333333 + 7CCC73333333773373333337CCCC7333333773337333337CCCCC733333373333 + 733333CCCCCC7333337333337333333CCCCC73333337333373333333CCCC7333 + 33337333733333333CCC7333333337337333333333CC73333333337373333333 + 333C3333333333373333} + Layout = blGlyphTop + Margin = 0 + NumGlyphs = 2 + Spacing = 80 + end + object cmdNext: TBitBtn + Left = 20 + Top = 1 + Width = 21 + Height = 17 + Caption = 'Forward' + Enabled = False + TabOrder = 2 + OnClick = cmdNextClick + Glyph.Data = { + 06010000424D06010000000000007600000028000000180000000C0000000100 + 0400000000009000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333733333333 + 333733333333333C73333333333773333333333CC7333333333777333333333C + CC733333333737733333333CCCC73333333733773333333CCCCC733333373337 + 7333333CCCCCC333333733337333333CCCCC3333333733373333333CCCC33333 + 333733733333333CCC333333333737333333333CC3333333333773333333333C + 33333333333733333333} + Layout = blGlyphTop + Margin = 0 + NumGlyphs = 2 + Spacing = 80 + end + end + object grdMenu: TCaptionStringGrid + Left = 0 + Top = 19 + Width = 483 + Height = 259 + Align = alClient + BorderStyle = bsNone + Color = clBtnFace + ColCount = 3 + DefaultColWidth = 160 + DefaultRowHeight = 15 + DefaultDrawing = False + FixedCols = 0 + FixedRows = 0 + Options = [goFixedVertLine, goFixedHorzLine] + ScrollBars = ssVertical + TabOrder = 0 + OnDrawCell = grdMenuDrawCell + OnKeyDown = grdMenuKeyDown + OnKeyUp = grdMenuKeyUp + OnMouseDown = grdMenuMouseDown + OnMouseMove = grdMenuMouseMove + OnMouseUp = grdMenuMouseUp + Caption = 'Menu or Dialog Name' + end +end diff --git a/CPRS-Chart/Orders/fOMNavA.pas b/CPRS-Chart/Orders/fOMNavA.pas new file mode 100644 index 0000000..fe45552 --- /dev/null +++ b/CPRS-Chart/Orders/fOMNavA.pas @@ -0,0 +1,715 @@ +unit fOMNavA; + +{$ASSERTIONS OFF} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + Buttons, Grids, StdCtrls, ORCtrls, ExtCtrls, uConst, rOrders, uOrders, fFrame; + +type + TfrmOMNavA = class(TForm) + pnlTool: TPanel; + cmdDone: TORAlignButton; + grdMenu: TCaptionStringGrid; + cmdPrev: TBitBtn; + cmdNext: TBitBtn; + procedure FormActivate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure grdMenuDrawCell(Sender: TObject; ACol, ARow: Integer; + Rect: TRect; State: TGridDrawState); + procedure grdMenuKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure grdMenuMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure grdMenuMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure grdMenuMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlToolMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlToolMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure pnlToolMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure cmdDoneClick(Sender: TObject); + procedure cmdPrevClick(Sender: TObject); + procedure cmdNextClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure grdMenuKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormResize(Sender: TObject); + private + FOrderingMenu: Integer; + FLastCol: Integer; + FLastRow: Integer; + FMouseDown: Boolean; + FCtrlUp: Boolean; + FSelecting: Boolean; + FOrderMenuItem: TOrderMenuItem; + FMenuHits: TList; {of TOrderMenu} + FStack: TList; {of TMenuPath} + FQuickBitmap: TBitmap; + FOrigPoint: TPoint; + FStartPoint: TPoint; + FFormMove: Boolean; + FKeyVars: string; + FDelayEvent: TOrderDelayEvent; + FMenuStyle: Integer; + FRefNum: Integer; + FSelectList: TList; {of TOrderMenuItem} + FTheShift: TShiftState; + procedure ActivateDialog(AnItem: TOrderMenuItem); + procedure AddToSelectList(AnItem: TOrderMenuItem); + procedure ClearMenuGrid; + function DialogNotDisabled(DlgIEN: Integer): Boolean; + procedure DoSelectList; + function FindOrderMenu(AMenu: Integer): TOrderMenu; + procedure PlaceMenuItems; + procedure SetNavButtons; + procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; + procedure UMDestroy(var Message: TMessage); message UM_DESTROY; + public + procedure CreateParams(var Params: TCreateParams); override; + procedure SetEventDelay(AnEvent: TOrderDelayEvent); + procedure SetNewMenu(MenuIEN: Integer; AnOwner: TComponent; ARefNum: Integer); + procedure ResizeFont; + property RefNum: Integer read FRefNum write FRefNum; + end; + +var + frmOMNavA: TfrmOMNavA; + +implementation + +{$R *.DFM} + +uses rODBase, ORFn, fODBase,fODGen, fODAuto, fOMVerify, uCore, rMisc, uODBase, + fOrders, uAccessibleStringGrid; + +const + TX_NOFORM = 'This selection does not have an associated windows form.'; + TC_NOFORM = 'Missing Form ID'; + TX_ODACTIVE = 'An ordering dialog is already active.'; + TC_ODACTIVE = 'Unable to Select Item'; + TX_QO_NOSAVE = 'Unexpected error - it was not possible to save this order.'; + TC_QO_NOSAVE = 'Unable to Save Quick Order'; + TC_DISABLED = 'Item Disabled'; + +type + TMenuPath = class + IENList: array of Integer; + OwnedBy: TComponent; + RefNum: Integer; + Current: Integer; + end; + +procedure TfrmOMNavA.ClearMenuGrid; +var + ACol, ARow: Integer; +begin + with grdMenu do + begin + for ACol := 0 to ColCount - 1 do for ARow := 0 to RowCount - 1 do + begin + Objects[ACol, ARow] := nil; + Cells[ACol, ARow] := ''; + end; + RowCount := 1; + ColCount := 1; + Cells[0, 0] := ''; + end; +end; + +function TfrmOMNavA.FindOrderMenu(AMenu: Integer): TOrderMenu; +{ searchs the menu cache (FMenuHits) for a menu. If not there, load the menu from the server. } +var + i: Integer; + AnOrderMenu: TOrderMenu; +begin + i := 0; + Result := nil; + while (i < FMenuHits.Count) and (Result = nil) do // search the menu cache + begin + AnOrderMenu := TOrderMenu(FMenuHits.Items[i]); + if AnOrderMenu.IEN = AMenu then Result := AnOrderMenu; + Inc(i); + end; + if Result = nil then // load new menu from server + begin + AnOrderMenu := TOrderMenu.Create; + AnOrderMenu.IEN := AMenu; + AnOrderMenu.MenuItems := TList.Create; + LoadOrderMenu(AnOrderMenu, AMenu); + FMenuHits.Add(AnOrderMenu); + Result := AnOrderMenu; + end; +end; + +procedure TfrmOMNavA.PlaceMenuItems; +{ places the menu items in the proper grid cells } +var + i: Integer; + OrderMenu: TOrderMenu; + OrderMenuItem: TOrderMenuItem; +begin + ClearMenuGrid; + OrderMenu := FindOrderMenu(FOrderingMenu); + if OrderMenu = nil then Exit; + pnlTool.Caption := OrderMenu.Title; + grdMenu.ColCount := OrderMenu.NumCols; + FKeyVars := OrderMenu.KeyVars; + grdMenu.DefaultColWidth := (grdMenu.ClientWidth div grdMenu.ColCount) - 1; + with OrderMenu.MenuItems do for i := 0 to Count - 1 do + begin + OrderMenuItem := TOrderMenuItem(Items[i]); + with grdMenu do + begin + if OrderMenuItem.Row >= RowCount then RowCount := OrderMenuItem.Row + 1; + if (OrderMenuItem.Col > -1) and (OrderMenuItem.Row > -1) then + begin + Cells[OrderMenuItem.Col, OrderMenuItem.Row] := OrderMenuItem.ItemText; + Objects[OrderMenuItem.Col, OrderMenuItem.Row] := OrderMenuItem; + end; {if OrderMenuItem} + end; {with grdMenu} + end; {for i} + with grdMenu do if VisibleRowCount < RowCount then + ColWidths[ColCount - 1] := DefaultColWidth - GetSystemMetrics(SM_CXVSCROLL); +end; + +procedure TfrmOMNavA.SetNewMenu(MenuIEN: Integer; AnOwner: TComponent; ARefNum: Integer); +{ Creates a new 'starting' menu. For initial menu or menu from inside order set. } +var + NewMenuPath: TMenuPath; +begin + NewMenuPath := TMenuPath.Create; + SetLength(NewMenuPath.IENList, 1); + NewMenuPath.IENList[0] := MenuIEN; + NewMenuPath.OwnedBy := AnOwner; + NewMenuPath.RefNum := ARefNum; + NewMenuPath.Current := 0; + FStack.Add(NewMenuPath); + FOrderingMenu := MenuIEN; // sets new starting point here + SetNavButtons; + PlaceMenuItems; // displays menu, with nav & done buttons set + PushKeyVars(FKeyVars); + Self.Enabled := True; +end; + +{ menu navigation } + +procedure TfrmOMNavA.SetNavButtons; +var + MenuPath: TMenuPath; +begin + with FStack do MenuPath := TMenuPath(Items[Count - 1]); + cmdPrev.Enabled := MenuPath.Current > 0; + cmdNext.Enabled := MenuPath.Current < High(MenuPath.IENList); + if FStack.Count > 1 then cmdDone.Caption := 'Next' else cmdDone.Caption := 'Done'; + pnlTool.Invalidate; +end; + +procedure TfrmOMNavA.cmdPrevClick(Sender: TObject); +var + MenuPath: TMenuPath; +begin + with FStack do MenuPath := TMenuPath(Items[Count - 1]); + Dec(MenuPath.Current); + FOrderingMenu := MenuPath.IENList[MenuPath.Current]; + SetNavButtons; + PlaceMenuItems; + PopKeyVars; +end; + +procedure TfrmOMNavA.cmdNextClick(Sender: TObject); +var + MenuPath: TMenuPath; +begin + with FStack do MenuPath := TMenuPath(Items[Count - 1]); + Inc(MenuPath.Current); + FOrderingMenu := MenuPath.IENList[MenuPath.Current]; + SetNavButtons; + PlaceMenuItems; + PushKeyVars(FKeyVars); +end; + +procedure TfrmOMNavA.cmdDoneClick(Sender: TObject); +var + MenuPath: TMenuPath; +begin + if FSelecting then Exit; + with FStack do MenuPath := TMenuPath(Items[Count - 1]); + with FStack do Delete(Count - 1); + if FStack.Count = 0 then Close; + with MenuPath do if (OwnedBy <> nil) and (OwnedBy is TWinControl) + then SendMessage(TWinControl(OwnedBy).Handle, UM_DESTROY, RefNum, 0); + PopKeyVars(MenuPath.Current + 1); + MenuPath.Free; + if FStack.Count > 0 then + begin + with FStack do MenuPath := TMenuPath(Items[Count - 1]); + FOrderingMenu := MenuPath.IENList[MenuPath.Current]; + SetNavButtons; + PlaceMenuItems; + end; +end; + +{ Form methods } + +procedure TfrmOMNavA.FormCreate(Sender: TObject); +begin + FLastCol := -1; + FLastRow := -1; + FMenuStyle := OrderMenuStyle; + FMenuHits := TList.Create; + FStack := TList.Create; + FSelectList := TList.Create; + FQuickBitmap := TBitmap.Create; + FQuickBitmap.LoadFromResourceName(hInstance, 'BMP_QO_THIN'); + NoFresh := True; + ResizeFont; + TAccessibleStringGrid.WrapControl(grdMenu); +end; + +procedure TfrmOMNavA.CreateParams(var Params: TCreateParams); +begin + inherited CreateParams(Params); + with Params do Style := (Style or WS_POPUP) and (not WS_DLGFRAME); + //with Params do Style := WS_THICKFRAME or WS_POPUP or WS_BORDER; +end; + +procedure TfrmOMNavA.UMDestroy(var Message: TMessage); +{ sent by ordering dialog when it is closing } +begin + Self.Enabled := True; + Self.SetFocus; +end; + +procedure TfrmOMNavA.FormDestroy(Sender: TObject); +var + i, j: Integer; + OrderMenu: TOrderMenu; + OrderMenuItem: TOrderMenuItem; +begin + TAccessibleStringGrid.UnwrapControl(grdMenu); + ClearMenuGrid; + for i := 0 to FMenuHits.Count - 1 do + begin + OrderMenu := TOrderMenu(FMenuHits.Items[i]); + for j := 0 to OrderMenu.MenuItems.Count - 1 do + begin + OrderMenuItem := TOrderMenuItem(OrderMenu.MenuItems.Items[j]); + OrderMenuItem.Free; + end; + OrderMenu.MenuItems.Clear; + OrderMenu.MenuItems.Free; + OrderMenu.Free; + end; + FMenuHits.Free; + Assert(FStack.Count = 0); + FStack.Free; + Assert(FSelectList.Count = 0); + FSelectList.Free; + FQuickBitmap.Free; + DestroyingOrderMenu; + if (frmOrders.TheCurrentView<>nil) and (frmOrders.TheCurrentView.EventDelay.PtEventIFN>0) + and (IsCompletedPtEvt(frmOrders.TheCurrentView.EventDelay.PtEventIFN)) then + SendMessage(frmOrders.handle,UM_EVENTOCCUR,0,0); +end; + +procedure TfrmOMNavA.FormActivate(Sender: TObject); +begin + // do we need to bring something to front here? +end; + +procedure TfrmOMNavA.FormClose(Sender: TObject; var Action: TCloseAction); +var + MenuPath: TMenuPath; +begin + while FStack.Count > 0 do + begin + with FStack do MenuPath := TMenuPath(Items[Count - 1]); + with MenuPath do if (OwnedBy <> nil) and (OwnedBy is TWinControl) + then SendMessage(TWinControl(OwnedBy).Handle, UM_DESTROY, RefNum, 0); + PopKeyVars(MenuPath.Current + 1); + MenuPath.Free; + with FStack do Delete(Count - 1); + end; + SaveUserBounds(Self); + NoFresh := False; + Action := caFree; +end; + +procedure TfrmOMNavA.SetEventDelay(AnEvent: TOrderDelayEvent); +begin + FDelayEvent := AnEvent; +end; + +procedure TfrmOMNavA.grdMenuDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; + State: TGridDrawState); +{ Draws each cell in the grid based on characteristics in associated OrderMenuItem object. } +const + QO_BMP_WIDTH = 15; +var + OrderMenuItem: TOrderMenuItem; + AMnemonic: string; + MneRect, ItmRect: TRect; + MneWidth: integer; +begin + //if Sender = ActiveControl then Exit; + //if not (gdSelected in State) then Exit; + with Sender as TStringGrid do with Canvas do + begin + MneWidth := TextWidthByFont(Handle, 'MMM'); + OrderMenuItem := TOrderMenuItem(grdMenu.Objects[ACol, ARow]); + if (OrderMenuItem <> nil) then with OrderMenuItem do + begin + Font.Style := []; + Font.Color := clWindowText; + if Selected then + begin + if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then + Font.Color := clBlue; + Font.Style := Font.Style + [fsUnderline]; + end; + if Display = 2 then + Font.Style := Font.Style + [fsBold]; + end; + Brush.Color := Color; + if (FMenuStyle = 0) and + ((OrderMenuItem = nil) or ((OrderMenuItem <> nil) and (OrderMenuItem.Display <> 2))) then + begin + if OrderMenuItem <> nil then AMnemonic := OrderMenuItem.Mnemonic else AMnemonic := ''; + FillRect(Rect); + MneRect.Left := Rect.Left + QO_BMP_WIDTH; + MneRect.Right := MneRect.Left + MneWidth; + MneRect.Top := Rect.Top + 2; + MneRect.Bottom := Rect.Bottom; + ItmRect.Left := Rect.Left + QO_BMP_WIDTH + MneWidth + 1; + ItmRect.Right := Rect.Right; + ItmRect.Top := Rect.Top + 2; + ItmRect.Bottom := Rect.Bottom; + TextRect(MneRect, MneRect.Left, MneRect.Top, AMnemonic); + TextRect(ItmRect, ItmRect.Left, ItmRect.Top, Cells[ACol, ARow]); + end + else TextRect(Rect, Rect.Left + QO_BMP_WIDTH, Rect.Top + 2, Cells[ACol, ARow]); + if (OrderMenuItem <> nil) and OrderMenuItem.AutoAck + then Draw(Rect.Left + 2, Rect.Top + 2, FQuickBitmap); { draw bitmap } + if gdSelected in State then + begin + Pen.Width := 1; + if FMouseDown then Pen.Color := clBtnShadow else Pen.Color := clBtnHighlight; + MoveTo(Rect.Left, Rect.Bottom - 1); + LineTo(Rect.Left, Rect.Top); + LineTo(Rect.Right, Rect.Top); + if FMouseDown then Pen.Color := clBtnHighlight else Pen.Color := clBtnShadow; + LineTo(Rect.Right, Rect.Bottom); + LineTo(Rect.Left, Rect.Bottom); + end; + end; +end; + +{ Mouse & Keyboard Handling } + +procedure TfrmOMNavA.AddToSelectList(AnItem: TOrderMenuItem); +begin + if AnItem = nil then Exit; + FSelectList.Add(AnItem); + FSelecting := True; + cmdDone.Enabled := False; +end; + +procedure TfrmOMNavA.DoSelectList; +var + i: Integer; + x: string; + ItemList: TStringList; + AMenuItem: TOrderMenuItem; +begin + FSelecting := False; + cmdDone.Enabled := True; + if FSelectList.Count = 0 then Exit; + ItemList := TStringList.Create; + try + for i := 0 to FSelectList.Count - 1 do + begin + AMenuItem := TOrderMenuItem(FSelectList[i]); + if AMenuItem <> nil then + begin + x := IntToStr(AMenuItem.IEN) + U + AMenuItem.DlgType + U + AMenuItem.ItemText; + ItemList.Add(x); + end; + end; + if ItemList.Count > 0 then ActivateOrderList(ItemList, FDelayEvent, Self, 0, '', ''); + finally + FSelectList.Clear; + ItemList.Free; + end; +end; + +procedure TfrmOMNavA.grdMenuKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + //frmFrame.UpdatePtInfoOnRefresh; + if Key in [VK_RETURN, VK_SPACE] then with grdMenu do + begin + if frmOrders <> nil then + begin + if (frmOrders.TheCurrentView<>nil) and (frmOrders.TheCurrentView.EventDelay.PtEventIFN>0) + and IsCompletedPtEvt(frmOrders.TheCurrentView.EventDelay.PtEventIFN) then + begin + FDelayEvent.EventType := #0; + FDelayEvent.EventIFN := 0; + FDelayEvent.TheParent := TParentEvent.Create; + FDelayEvent.EventName := ''; + FDelayEvent.PtEventIFN := 0; + end; + end; + //frmFrame.UpdatePtInfoOnRefresh; + FOrderMenuItem := TOrderMenuItem(Objects[Col, Row]); + if FOrderMenuItem.Display > 0 then FOrderMenuItem := nil; // display only + if FOrderMenuItem <> nil then + begin + FOrderMenuItem.Selected := True; + if ssCtrl in Shift + then AddToSelectList(FOrderMenuItem) + else ActivateDialog(FOrderMenuItem); + FOrderMenuItem := nil; + Key := 0; + end; + if frmOrders <> nil then + begin + if (frmOrders.TheCurrentView<>nil) and (frmOrders.TheCurrentView.EventDelay.PtEventIFN>0) + and IsCompletedPtEvt(frmOrders.TheCurrentView.EventDelay.PtEventIFN) then + begin + FDelayEvent.EventType := #0; + FDelayEvent.EventIFN := 0; + FDelayEvent.TheParent := TParentEvent.Create; + FDelayEvent.EventName := ''; + FDelayEvent.PtEventIFN := 0; + end; + end; + end; + if Key = VK_BACK then + begin + cmdPrevClick(Self); + Key := 0; + end; + if Key = VK_ESCAPE then + begin + cmdDoneClick(Self); + Key := 0; + end; +end; + +procedure TfrmOMNavA.grdMenuKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_CONTROL then + begin + if FMouseDown then FCtrlUp := True else DoSelectList; + end; +end; + +procedure TfrmOMNavA.grdMenuMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + ACol, ARow: Integer; +begin + //frmFrame.UpdatePtInfoOnRefresh; + if ssDouble in Shift then + begin + FTheShift := [ssDouble]; + Exit; // ignore a double click + end; + if frmOrders <> nil then + begin + if (frmOrders.TheCurrentView<>nil) and (frmOrders.TheCurrentView.EventDelay.PtEventIFN>0) + and IsCompletedPtEvt(frmOrders.TheCurrentView.EventDelay.PtEventIFN) then + begin + FDelayEvent.EventType := #0; + FDelayEvent.EventIFN := 0; + FDelayEvent.TheParent := TParentEvent.Create; + FDelayEvent.EventName := ''; + FDelayEvent.PtEventIFN := 0; + end; + end; + //frmFrame.UpdatePtInfoOnRefresh; + with grdMenu do + begin + MouseToCell(X, Y, ACol, ARow); + if (ACol > -1) and (ARow > -1) and (ACol < grdMenu.ColCount) and (ARow < grdMenu.RowCount) then + begin + FMouseDown := True; + FOrderMenuItem := TOrderMenuItem(Objects[ACol, ARow]); + // check to see if this is a display only field + if (FOrderMenuItem <> nil) and (FOrderMenuItem.Display > 0) then FOrderMenuItem := nil; + if FOrderMenuItem <> nil then FOrderMenuItem.Selected := True; + end; + end; +end; + +procedure TfrmOMNavA.grdMenuMouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +var + ACol, ARow: Integer; +begin + grdMenu.MouseToCell(X, Y, ACol, ARow); + if (ACol = FLastCol) and (ARow = FLastRow) then Exit; + if (ACol > -1) and (ARow > -1) and (ACol < grdMenu.ColCount) and (ARow < grdMenu.RowCount) then + begin + FLastCol := ACol; + FLastRow := ARow; + grdMenu.Col := ACol; + grdMenu.Row := ARow; + end; +end; + +procedure TfrmOMNavA.grdMenuMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if ssDouble in Shift then Exit; // ignore a double click + if ssDouble in FTheShift then + begin + FTheShift := []; + Exit; + end; + + FMouseDown := False; + //grdMenu.Invalidate; + // may want to check here to see if mouse still over the same item + if ssCtrl in Shift then AddToSelectList(FOrderMenuItem) else + begin + if FCtrlUp then + begin + FCtrlUp := False; + AddToSelectList(FOrderMenuItem); + DoSelectList; + end + else ActivateDialog(FOrderMenuItem); + end; + FCtrlUp := False; + FOrderMenuItem := nil; + if frmOrders <> nil then + begin + if (frmOrders.TheCurrentView<>nil) and (frmOrders.TheCurrentView.EventDelay.PtEventIFN>0) + and IsCompletedPtEvt(frmOrders.TheCurrentView.EventDelay.PtEventIFN) then + begin + FDelayEvent.EventType := #0; + FDelayEvent.EventIFN := 0; + FDelayEvent.TheParent := TParentEvent.Create; + FDelayEvent.EventName := ''; + FDelayEvent.PtEventIFN := 0; + end; + end; +end; + +procedure TfrmOMNavA.CMMouseLeave(var Message: TMessage); +begin + inherited; + FLastCol := -1; + FLastRow := -1; +end; + +function TfrmOMNavA.DialogNotDisabled(DlgIEN: Integer): Boolean; +var + x: string; +begin + Result := True; + x := OrderDisabledMessage(DlgIEN); + if Length(x) > 0 then + begin + Result := False; + InfoBox(x, TC_DISABLED, MB_OK); + end; +end; + +procedure TfrmOMNavA.ActivateDialog(AnItem: TOrderMenuItem); +var + MenuPath: TMenuPath; +begin + if AnItem = nil then Exit; + case AnItem.DlgType of + #0: { ignore if no type, i.e., display header or blank }; + 'A': ActivateAction(IntToStr(AnItem.IEN) + ';' + IntToStr(AnItem.FormID), Self, 0); + 'D': ActivateOrderDialog(IntToStr(AnItem.IEN), FDelayEvent, Self, 0); + 'M': begin + // this simply moves to new menu, rather than open a new form as in ActivateOrderMenu + if DialogNotDisabled(AnItem.IEN) then + begin + with FStack do MenuPath := TMenuPath(Items[Count - 1]); + with MenuPath do + begin + Inc(Current); + if Current > High(IENList) then SetLength(IENList, Current + 1); + if Current <> AnItem.IEN then + begin + IENList := Copy(IENList, 0, Current + 1); + IENList[Current] := AnItem.IEN; + end; + FOrderingMenu := AnItem.IEN; + SetNavButtons; + PlaceMenuItems; + PushKeyVars(FKeyVars); + with grdMenu do + GoodNotifyWinEvent(EVENT_OBJECT_FOCUS, Handle, integer(OBJID_CLIENT), ColRowToIndex(Col,Row)); + end; {with MenuPath} + end; {if} + end; {'M'} + 'Q': ActivateOrderDialog(IntToStr(AnItem.IEN), FDelayEvent, Self, 0); + 'P': ShowMessage('Order Dialogs of type "Prompt" cannot be processed.'); + 'O': begin + // disable initially, since the 1st item in the set may be a menu + Self.Enabled := False; + if not ActivateOrderSet(IntToStr(AnItem.IEN), FDelayEvent, Self, 0) + then Self.Enabled := True; + end; + else ShowMessage('Unknown Order Dialog type: ' + AnItem.DlgType); + end; {case} +end; + +{ imitate caption bar using panel at top of form } + +procedure TfrmOMNavA.pnlToolMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Button <> mbLeft then Exit; + FStartPoint := TControl(Sender).ClientToScreen(Point(X, Y)); + FOrigPoint := Point(Left, Top); + FFormMove := True; +end; + +procedure TfrmOMNavA.pnlToolMouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +var + NewPoint: TPoint; +begin + if FFormMove then + begin + NewPoint := TControl(Sender).ClientToScreen(Point(X, Y)); + SetBounds(FOrigPoint.X - (FStartPoint.X - NewPoint.X), + FOrigPoint.Y - (FStartPoint.Y - NewPoint.Y), Width, Height); + end; +end; + +procedure TfrmOMNavA.pnlToolMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FFormMove := False; +end; + +procedure TfrmOMNavA.FormResize(Sender: TObject); +begin + grdMenu.DefaultColWidth := (grdMenu.ClientWidth div grdMenu.ColCount) - 1; + grdMenu.Refresh; +end; + +procedure TfrmOMNavA.ResizeFont; +begin + ResizeAnchoredFormToFont(Self); + grdMenu.Canvas.Font := grdMenu.Font; +end; + +end. diff --git a/CPRS-Chart/Orders/fOMProgress.dfm b/CPRS-Chart/Orders/fOMProgress.dfm new file mode 100644 index 0000000..433516e --- /dev/null +++ b/CPRS-Chart/Orders/fOMProgress.dfm @@ -0,0 +1,30 @@ +inherited frmOMProgress: TfrmOMProgress + Left = 221 + Top = 542 + Width = 167 + Height = 215 + BorderIcons = [] + Caption = 'Order Set Progress' + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object lstItems: TCheckListBox + Left = 0 + Top = 0 + Width = 159 + Height = 167 + Align = alClient + Color = 15793151 + ItemHeight = 13 + TabOrder = 0 + end + object cmdStop: TORAlignButton + Left = 0 + Top = 167 + Width = 159 + Height = 21 + Caption = 'Stop Order Set' + TabOrder = 1 + Align = alBottom + end +end diff --git a/CPRS-Chart/Orders/fOMProgress.pas b/CPRS-Chart/Orders/fOMProgress.pas new file mode 100644 index 0000000..2fa3398 --- /dev/null +++ b/CPRS-Chart/Orders/fOMProgress.pas @@ -0,0 +1,54 @@ +unit fOMProgress; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORCtrls, CheckLst, ORFn; + +type + TfrmOMProgress = class(TfrmAutoSz) + lstItems: TCheckListBox; + cmdStop: TORAlignButton; + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmOMProgress: TfrmOMProgress; + +procedure OrderSetStart(AnItemList: TStringList); +procedure OrderSetItemStart(AnItem: Integer; ADialog: TForm); +procedure OrderSetItemDone(AnItem: Integer); +procedure OrderSetDone; + +implementation + +{$R *.DFM} + +procedure OrderSetStart(AnItemList: TStringList); +begin +end; + +procedure OrderSetItemStart(AnItem: Integer; ADialog: TForm); +begin +end; + +procedure OrderSetItemDone(AnItem: Integer); +begin +end; + +procedure OrderSetDone; +begin +end; + +procedure TfrmOMProgress.FormCreate(Sender: TObject); +begin + inherited; + lstItems.Color := ReadOnlyColor; +end; + +end. diff --git a/CPRS-Chart/Orders/fOMSet.dfm b/CPRS-Chart/Orders/fOMSet.dfm new file mode 100644 index 0000000..02f2cd6 --- /dev/null +++ b/CPRS-Chart/Orders/fOMSet.dfm @@ -0,0 +1,46 @@ +object frmOMSet: TfrmOMSet + Left = 209 + Top = 191 + Width = 113 + Height = 229 + BorderIcons = [] + Caption = 'Selected Orders' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsStayOnTop + OldCreateOrder = False + OnClose = FormClose + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnDestroy = FormDestroy + DesignSize = ( + 105 + 202) + PixelsPerInch = 96 + TextHeight = 13 + object lstSet: TCheckListBox + Left = 0 + Top = 0 + Width = 104 + Height = 165 + Anchors = [akLeft, akTop, akRight, akBottom] + Color = clBtnFace + Enabled = False + ItemHeight = 13 + TabOrder = 0 + end + object cmdInterupt: TButton + Left = 4 + Top = 172 + Width = 96 + Height = 26 + Anchors = [akLeft, akRight, akBottom] + Caption = 'Stop Order Set' + TabOrder = 1 + OnClick = cmdInteruptClick + end +end diff --git a/CPRS-Chart/Orders/fOMSet.pas b/CPRS-Chart/Orders/fOMSet.pas new file mode 100644 index 0000000..182b3f3 --- /dev/null +++ b/CPRS-Chart/Orders/fOMSet.pas @@ -0,0 +1,316 @@ +unit fOMSet; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, CheckLst, rOrders, uConst, ORFn, rODMeds, fODBase,uCore,fOrders, fframe; + +type + TSetItem = class + DialogIEN: Integer; + DialogType: Char; + OIIEN: string; + InPkg: string; + OwnedBy: TComponent; + RefNum: Integer; + end; + + TfrmOMSet = class(TForm) + lstSet: TCheckListBox; + cmdInterupt: TButton; + procedure cmdInteruptClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure FormCreate(Sender: TObject); + private + DoingNextItem : Boolean; + CloseRequested : Boolean; + FDelayEvent: TOrderDelayEvent; + FClosing: Boolean; + FRefNum: Integer; + FActiveMenus: Integer; + FClosebyDeaCheck: Boolean; + function IsCreatedByMenu(ASetItem: TSetItem): boolean; + function DeaCheckPassed(OIIens: string; APkg: string; AnEventType: Char): boolean; + procedure DoNextItem; + procedure UMDestroy(var Message: TMessage); message UM_DESTROY; + procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT; + public + procedure InsertList(SetList: TStringList; AnOwner: TComponent; ARefNum: Integer; + const KeyVarStr: string; AnEventType:Char =#0); + procedure SetEventDelay(AnEvent: TOrderDelayEvent); + property RefNum: Integer read FRefNum write FRefNum; + end; + +var + frmOMSet: TfrmOMSet; + +implementation + +{$R *.DFM} + +uses uOrders, fOMNavA, rMisc, uODBase; + +const + TX_STOP = 'Do you want to stop entering the current set of orders?'; + TC_STOP = 'Interrupt Order Set'; + +procedure TfrmOMSet.SetEventDelay(AnEvent: TOrderDelayEvent); +begin + FDelayEvent := AnEvent; +end; + +procedure TfrmOMSet.InsertList(SetList: TStringList; AnOwner: TComponent; ARefNum: Integer; + const KeyVarStr: string; AnEventType: Char); +{ expects SetList to be strings of DlgIEN^DlgType^DisplayName^OrderableItemIens } +const + TXT_DEAFAIL = 'You need have #DEA key to place the order '; + TXT_INSTRUCT = #13 + 'Click OK to continue, Click Cancel to terminate the current order process.'; +var + i, InsertAt: Integer; + SetItem: TSetItem; +begin + InsertAt := lstSet.ItemIndex + 1; + with SetList do for i := 0 to Count - 1 do + begin + SetItem := TSetItem.Create; + SetItem.DialogIEN := StrToIntDef(Piece(SetList[i], U, 1), 0); + SetItem.DialogType := CharAt(Piece(SetList[i], U, 2), 1); + SetItem.OIIEN := Piece(SetList[i], U, 4); + SetItem.InPkg := Piece(SetList[i], U, 5); + // put the Owner form and reference number in the last item + if i = Count - 1 then + begin + SetItem.OwnedBy := AnOwner; + SetItem.RefNum := ARefNum; + end; + if not DeaCheckPassed(SetItem.OIIEN, SetItem.InPkg, AnEventType) then + if InfoBox(TXT_DEAFAIL + Piece(SetList[i], U, 3) + TXT_INSTRUCT, + 'Warning', MB_OKCANCEL or MB_ICONWARNING) = IDOK then + Continue + else + begin + FClosebyDeaCheck := True; + Close; + Exit; + end; + lstSet.Items.InsertObject(InsertAt, Piece(SetList[i], U, 3), SetItem); + Inc(InsertAt); + end; + PushKeyVars(KeyVarStr); + DoNextItem; +end; + +procedure TfrmOMSet.DoNextItem; +var + SetItem: TSetItem; + theOwner: TComponent; + + procedure SkipToNext; + begin + lstSet.Checked[lstSet.ItemIndex] := True; + DoNextItem; + end; + +begin + DoingNextItem := true; + //frmFrame.UpdatePtInfoOnRefresh; + if FClosing then Exit; + if frmOrders <> nil then + begin + if (frmOrders.TheCurrentView<>nil) and (frmOrders.TheCurrentView.EventDelay.PtEventIFN>0) + and IsCompletedPtEvt(frmOrders.TheCurrentView.EventDelay.PtEventIFN) then + begin + FDelayEvent.EventType := #0; + FDelayEvent.EventIFN := 0; + FDelayEvent.TheParent := TParentEvent.Create; + FDelayEvent.EventName := ''; + FDelayEvent.PtEventIFN := 0; + end; + end; + with lstSet do + begin + if ItemIndex >= Items.Count - 1 then + begin + Close; + Exit; + end; + ItemIndex := ItemIndex + 1; + SetItem := TSetItem(Items.Objects[ItemIndex]); + case SetItem.DialogType of + 'A': if not ActivateAction(IntToStr(SetItem.DialogIEN), Self, ItemIndex) then + begin + if IsCreatedByMenu(SetItem) and (lstSet.ItemIndex < lstSet.Items.Count - 1) then + lstSet.Checked[lstSet.ItemIndex] := True + else SkipToNext; + end; + 'D', 'Q': if not ActivateOrderDialog(IntToStr(SetItem.DialogIEN), FDelayEvent, Self, ItemIndex) then + begin + if IsCreatedByMenu(SetItem) and (lstSet.ItemIndex < lstSet.Items.Count - 1) then + lstSet.Checked[lstSet.ItemIndex] := True + else SkipToNext; + end; + 'M': if ActivateOrderMenu( IntToStr(SetItem.DialogIEN), FDelayEvent, Self, ItemIndex) + then Inc(FActiveMenus) + else + begin + if IsCreatedByMenu(SetItem) and (lstSet.ItemIndex < lstSet.Items.Count - 1) then + lstSet.Checked[lstSet.ItemIndex] := True + else + SkipToNext; + end; + 'O': begin + if (Self.Owner.Name = 'frmOMNavA') then theOwner := Self.Owner else theOwner := self; + if not ActivateOrderSet( IntToStr(SetItem.DialogIEN), FDelayEvent, theOwner, ItemIndex) then + begin + if IsCreatedByMenu(SetItem) and (lstSet.ItemIndex < lstSet.Items.Count - 1) then + lstSet.Checked[lstSet.ItemIndex] := True + else SkipToNext; + end; + end; + else begin + InfoBox('Unsupported dialog type: ' + SetItem.DialogType, 'Error', MB_OK); + SkipToNext; + end; + end; {case} + end; {with lstSet} + DoingNextItem := false; +end; + +procedure TfrmOMSet.UMDelayEvent(var Message: TMessage); +begin + // ignore if delay from other than current itemindex + // (prevents completion of an order set from calling DoNextItem) + if Message.WParam = lstSet.ItemIndex then + if lstSet.ItemIndex < lstSet.Items.Count - 1 then DoNextItem else Close; + if CloseRequested then + Close; +end; + +procedure TfrmOMSet.UMDestroy(var Message: TMessage); +{ Received whenever activated item is finished. Posts to Owner if last item in the set. } +var + SetItem: TSetItem; + RefNum: Integer; +begin + RefNum := Message.WParam; + lstSet.Checked[RefNum] := True; + SetItem := TSetItem(lstSet.Items.Objects[RefNum]); + if SetItem.DialogType = 'M' then Dec(FActiveMenus); + if (SetItem.OwnedBy <> nil) and (SetItem.DialogType <> 'O') then + begin + PopKeyVars; + if ((lstSet.ItemIndex = lstSet.Count - 1) and (lstSet.Checked[lstSet.ItemIndex] = True)) then Close; + if {(SetItem.OwnedBy <> Self) and} (SetItem.OwnedBy is TWinControl) then + begin + SendMessage(TWinControl(SetItem.OwnedBy).Handle, UM_DESTROY, SetItem.RefNum, 0); + //Exit; + end; + end; + // let menu or dialog finish closing before going on to next item in the order set + While RefNum <= lstSet.Items.Count - 2 do + begin + if not (lstSet.Checked[RefNum+1]) then Break + else + begin + RefNum := RefNum + 1; + lstSet.ItemIndex := RefNum; + end; + end; + PostMessage(Handle, UM_DELAYEVENT, RefNum, 0); +end; + +procedure TfrmOMSet.FormCreate(Sender: TObject); +begin + FActiveMenus := 0; + FClosing := False; + FClosebyDeaCheck := False; + NoFresh := True; + CloseRequested := false; + DoingNextItem := false; +end; + +procedure TfrmOMSet.FormDestroy(Sender: TObject); +var + i: Integer; +begin + with lstSet do for i := 0 to Items.Count - 1 do TSetItem(Items.Objects[i]).Free; + DestroyingOrderSet; +end; + +procedure TfrmOMSet.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +{ if this is not the last item in the set, prompt whether to interrupt processing } +begin + if FClosebyDeaCheck then + CanClose := True + else if lstSet.ItemIndex < (lstSet.Items.Count - 1) + then CanClose := InfoBox(TX_STOP, TC_STOP, MB_YESNO) = IDYES; +end; + +procedure TfrmOMSet.FormClose(Sender: TObject; var Action: TCloseAction); +{ Notify remaining owners that their item is done (or - really never completed) } +var + i: Integer; + SetItem: TSetItem; +begin + // do we need to iterate thru and send messages where OwnedBy <> nil? + FClosing := True; + for i := 1 to FActiveMenus do PopLastMenu; + if lstSet.Items.Count > 0 then + begin + if lstSet.ItemIndex < 0 then lstSet.ItemIndex := 0; + with lstSet do for i := ItemIndex to Items.Count - 1 do + begin + SetItem := TSetItem(lstSet.Items.Objects[i]); + if (SetItem.OwnedBy <> nil) and (SetItem.OwnedBy is TWinControl) + then SendMessage(TWinControl(SetItem.OwnedBy).Handle, UM_DESTROY, SetItem.RefNum, 0); + end; + end; + SaveUserBounds(Self); + NoFresh := False; + Action := caFree; +end; + +procedure TfrmOMSet.cmdInteruptClick(Sender: TObject); +begin + if DoingNextItem then + CloseRequested := true //Fix for CQ: 8297 + else + Close; +end; + +function TfrmOMSet.DeaCheckPassed(OIIens: string; APkg: string; AnEventType: Char): boolean; +var + tmpIenList: TStringList; + i: integer; + isInpt: boolean; +begin + Result := True; + if Pos('PS',APkg) <> 1 then + Exit; + if Length(OIIens)=0 then Exit; + tmpIenList := TStringList.Create; + PiecesToList(OIIens,';',TStrings(tmpIenList)); + case AnEventType of + 'A','T': isInpt := True; + 'D': isInpt := False; + else isInpt := Patient.Inpatient; + end; + for i := 0 to tmpIenList.Count - 1 do + if DEACheckFailed(StrToIntDef(tmpIenList[i],0), isInpt) then + begin + Result := False; + Break; + end; +end; + +function TfrmOMSet.IsCreatedByMenu(ASetItem: TSetItem): boolean; +begin + Result := False; + if (AsetItem.OwnedBy <> nil) and (ASetItem.OwnedBy.Name = 'frmOMNavA') then + Result := True; +end; + +end. diff --git a/CPRS-Chart/Orders/fOMVerify.dfm b/CPRS-Chart/Orders/fOMVerify.dfm new file mode 100644 index 0000000..5806248 --- /dev/null +++ b/CPRS-Chart/Orders/fOMVerify.dfm @@ -0,0 +1,71 @@ +inherited frmOMVerify: TfrmOMVerify + Left = 328 + Top = 243 + Width = 587 + Height = 208 + BorderIcons = [] + Caption = 'New Order' + OnClose = FormClose + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object cmdAccept: TButton + Left = 165 + Top = 154 + Width = 72 + Height = 21 + Caption = 'Accept' + Default = True + TabOrder = 0 + OnClick = cmdAcceptClick + end + object cmdEdit: TButton + Left = 253 + Top = 154 + Width = 72 + Height = 21 + Caption = 'Edit' + TabOrder = 1 + OnClick = cmdEditClick + end + object cmdCancel: TButton + Left = 341 + Top = 154 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + object memText: TRichEdit + Left = 6 + Top = 6 + Width = 567 + Height = 132 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + Lines.Strings = ( + + '1234567890123456789012345678901234567890123456789012345678901234' + + '5678901234567890' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10') + ParentFont = False + ScrollBars = ssBoth + TabOrder = 3 + WantTabs = True + WordWrap = False + OnKeyUp = memTextKeyUp + end +end diff --git a/CPRS-Chart/Orders/fOMVerify.pas b/CPRS-Chart/Orders/fOMVerify.pas new file mode 100644 index 0000000..98e849d --- /dev/null +++ b/CPRS-Chart/Orders/fOMVerify.pas @@ -0,0 +1,154 @@ +unit fOMVerify; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ComCtrls; + +type + TfrmOMVerify = class(TfrmAutoSz) + cmdAccept: TButton; + cmdEdit: TButton; + cmdCancel: TButton; + memText: TRichEdit; + procedure cmdAcceptClick(Sender: TObject); + procedure cmdEditClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure memTextKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + FLevel: Integer; + end; + +procedure ShowVerifyText(var QuickLevel: Integer; var VerifyText: string; InptDispGrp: boolean = False); + +implementation + +{$R *.DFM} + +uses ORFn, uConst, fFrame, rMisc, uODBase; + +procedure ShowVerifyText(var QuickLevel: Integer; var VerifyText: string; InptDispGrp: boolean); +var + frmOMVerify: TfrmOMVerify; + tempStrs,prompts: TStringList; + flag: boolean; + HasObjects: boolean; + + function CutoffOutptPrompts(const promptIDs: TStringList; var promptList: TStringList): boolean; + var + i,j: integer; + begin + result := False; + for i := 0 to promptList.Count - 1 do + begin + if result = True then + break; + for j := 0 to promptIDs.Count - 1 do + begin + if Pos(promptIDs[j],LowerCase(promptList[i]))>0 then + begin + promptList.Delete(i); + result := True; + break; + end; + end; + end; + end; + +begin + prompts := TStringList.Create; + prompts.Add('supply'); + prompts.Add('quantity'); + prompts.Add('refill'); + prompts.Add('pick up'); + prompts.Add('priority'); + frmOMVerify := TfrmOMVerify.Create(Application); + try + ResizeFormToFont(TForm(frmOMVerify)); + if InptDispGrp then + begin + tempStrs := TStringList.Create; + TStrings(tempStrs).SetText(PChar(VerifyText)); + repeat + flag := CutoffOutptPrompts(prompts, tempStrs); + until not flag; + SetString(VerifyText, tempStrs.GetText, StrLen(tempStrs.GetText)) + end; + + with frmOMVerify do + begin + SetBounds(frmFrame.Left, frmFrame.Top + frmFrame.Height - Height, Width, Height); + SetFormPosition(frmOMVerify); + ExpandOrderObjects(VerifyText, HasObjects); + memText.Lines.SetText(PChar(VerifyText)); + ShowModal; + QuickLevel := FLevel; + end; + finally + frmOMVerify.Release; + end; +end; + + +procedure TfrmOMVerify.FormCreate(Sender: TObject); +begin + inherited; + FLevel := QL_CANCEL; +end; + +procedure TfrmOMVerify.cmdAcceptClick(Sender: TObject); +begin + inherited; + FLevel := QL_AUTO; + Close; +end; + +procedure TfrmOMVerify.cmdEditClick(Sender: TObject); +begin + inherited; + FLevel := QL_DIALOG; + Close; +end; + +procedure TfrmOMVerify.cmdCancelClick(Sender: TObject); +begin + inherited; + FLevel := QL_CANCEL; + Close; +end; + +procedure TfrmOMVerify.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + SaveUserBounds(Self); +end; + +procedure TfrmOMVerify.memTextKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_TAB) then + begin + if ssShift in Shift then + begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + Key := 0; + end + else if ssCtrl in Shift then + begin + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + Key := 0; + end; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrderComment.dfm b/CPRS-Chart/Orders/fOrderComment.dfm new file mode 100644 index 0000000..a8c2fa2 --- /dev/null +++ b/CPRS-Chart/Orders/fOrderComment.dfm @@ -0,0 +1,60 @@ +inherited frmWardComments: TfrmWardComments + Left = 334 + Top = 234 + Height = 289 + Caption = 'Comments for Order' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 80 + Width = 52 + Height = 13 + Caption = 'Comments:' + end + object cmdOK: TButton + Left = 267 + Top = 233 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 233 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + object memOrder: TMemo + Left = 8 + Top = 8 + Width = 411 + Height = 56 + TabStop = False + Color = clBtnFace + Lines.Strings = ( + 'memOrder') + ReadOnly = True + TabOrder = 3 + WantReturns = False + end + object memComments: TRichEdit + Left = 8 + Top = 94 + Width = 411 + Height = 123 + ScrollBars = ssVertical + TabOrder = 0 + WantTabs = True + OnKeyUp = memCommentsKeyUp + end +end diff --git a/CPRS-Chart/Orders/fOrderComment.pas b/CPRS-Chart/Orders/fOrderComment.pas new file mode 100644 index 0000000..2787243 --- /dev/null +++ b/CPRS-Chart/Orders/fOrderComment.pas @@ -0,0 +1,102 @@ +unit fOrderComment; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders; + +type + TfrmWardComments = class(TfrmAutoSz) + Label1: TLabel; + cmdOK: TButton; + cmdCancel: TButton; + memOrder: TMemo; + memComments: TRichEdit; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure memCommentsKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + OKPressed: Boolean; + end; + +function ExecuteWardComments(AnOrder: TOrder): Boolean; + +implementation + +{$R *.DFM} + +const + TC_PUT_ERR = 'Unable to Save Comments'; + +function ExecuteWardComments(AnOrder: TOrder): Boolean; +var + frmWardComments: TfrmWardComments; + ErrMsg: string; +begin + Result := False; + frmWardComments := TfrmWardComments.Create(Application); + try + ResizeFormToFont(TForm(frmWardComments)); + with frmWardComments do + begin + memOrder.SetTextBuf(PChar(AnOrder.Text)); + LoadWardComments(memComments.Lines, AnOrder.ID); + ShowModal; + if OKPressed then + begin + PutWardComments(memComments.Lines, AnOrder.ID, ErrMsg); + if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TC_PUT_ERR, MB_OK); + Result := True; + end; + end; + finally + frmWardComments.Release; + end; +end; + +procedure TfrmWardComments.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmWardComments.cmdOKClick(Sender: TObject); +begin + inherited; + OKPressed := True; + Close; +end; + +procedure TfrmWardComments.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmWardComments.memCommentsKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_TAB) then + begin + if ssShift in Shift then + begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + Key := 0; + end + else if ssCtrl in Shift then + begin + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + Key := 0; + end; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrderFlag.dfm b/CPRS-Chart/Orders/fOrderFlag.dfm new file mode 100644 index 0000000..2374eb1 --- /dev/null +++ b/CPRS-Chart/Orders/fOrderFlag.dfm @@ -0,0 +1,91 @@ +inherited frmFlagOrder: TfrmFlagOrder + Left = 334 + Top = 234 + Height = 191 + Caption = 'Flag Order' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 80 + Width = 75 + Height = 13 + Caption = 'Reason for Flag' + end + object lblAlertRecipient: TLabel + Left = 8 + Top = 123 + Width = 69 + Height = 13 + Caption = 'Alert Recipient' + end + object txtReason: TCaptionEdit + Left = 8 + Top = 94 + Width = 411 + Height = 21 + MaxLength = 80 + TabOrder = 0 + Caption = 'Reason for Flag' + end + object cmdOK: TButton + Left = 267 + Top = 139 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 139 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 3 + OnClick = cmdCancelClick + end + object memOrder: TMemo + Left = 8 + Top = 8 + Width = 411 + Height = 56 + Color = clBtnFace + Lines.Strings = ( + 'memOrder') + ReadOnly = True + TabOrder = 4 + WantReturns = False + end + object cboAlertRecipient: TORComboBox + Left = 7 + Top = 139 + Width = 226 + Height = 21 + HelpContext = 9102 + Style = orcsDropDown + AutoSelect = True + Caption = 'Alert Recipient' + 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 = 1 + OnExit = cboOnExit + OnNeedData = cboAlertRecipientNeedData + CharsNeedMatch = 1 + end +end diff --git a/CPRS-Chart/Orders/fOrderFlag.pas b/CPRS-Chart/Orders/fOrderFlag.pas new file mode 100644 index 0000000..9aa0470 --- /dev/null +++ b/CPRS-Chart/Orders/fOrderFlag.pas @@ -0,0 +1,114 @@ +unit fOrderFlag; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, ORCtrls; + +type + TfrmFlagOrder = class(TfrmAutoSz) + txtReason: TCaptionEdit; + Label1: TLabel; + cmdOK: TButton; + cmdCancel: TButton; + memOrder: TMemo; + lblAlertRecipient: TLabel; + cboAlertRecipient: TORComboBox; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cboOnExit(Sender: TObject); + procedure cboAlertRecipientNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + private + OKPressed: Boolean; + end; + +function ExecuteFlagOrder(AnOrder: TOrder): Boolean; + +implementation + +{$R *.DFM} + +uses uCore, rCore; + +var AlertRecip: Int64; + +function ExecuteFlagOrder(AnOrder: TOrder): Boolean; +var + frmFlagOrder: TfrmFlagOrder; +begin + Result := False; + frmFlagOrder := TfrmFlagOrder.Create(Application); + try + ResizeFormToFont(TForm(frmFlagOrder)); + //AlertRecip := User.DUZ; + with frmFlagOrder do + begin + memOrder.SetTextBuf(PChar(AnOrder.Text)); + ShowModal; + if OKPressed then + begin + FlagOrder(AnOrder, txtReason.Text, AlertRecip); + Result := True; + end; + end; + finally + frmFlagOrder.Release; + AlertRecip := 0; + end; +end; + +procedure TfrmFlagOrder.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; + cboAlertRecipient.InitLongList(''); + //cboAlertRecipient.SelectByIEN(User.DUZ); +end; + +procedure TfrmFlagOrder.cmdOKClick(Sender: TObject); +const + TX_REASON_REQ = 'A reason must be entered to flag an order.'; + TC_REASON_REQ = 'Reason Required'; +begin + inherited; + if txtReason.Text = '' then + begin + InfoBox(TX_REASON_REQ, TC_REASON_REQ, MB_OK); + Exit; + end; + cmdOK.SetFocus; + OKPressed := True; + Close; +end; + +procedure TfrmFlagOrder.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmFlagOrder.cboOnExit(Sender: TObject); +begin + with cboAlertRecipient do + if (ItemIndex = -1) or (Text = '') then + begin + AlertRecip := -1; + ItemIndex := -1; + Text := ''; + end + else + begin + AlertRecip := ItemIEN; + end; +end; + +procedure TfrmFlagOrder.cboAlertRecipientNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboAlertRecipient.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +end. diff --git a/CPRS-Chart/Orders/fOrderSaveQuick.dfm b/CPRS-Chart/Orders/fOrderSaveQuick.dfm new file mode 100644 index 0000000..193effd --- /dev/null +++ b/CPRS-Chart/Orders/fOrderSaveQuick.dfm @@ -0,0 +1,191 @@ +inherited frmSaveQuickOrder: TfrmSaveQuickOrder + Left = 308 + Top = 171 + Width = 363 + Height = 362 + Caption = 'Add to Common List (Meds, Inpatient)' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 355 + Height = 113 + Align = alTop + TabOrder = 0 + object lblDisplayName: TLabel + Left = 8 + Top = 70 + Width = 261 + Height = 13 + Caption = 'Enter the name that should be used for this quick order.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object memOrder: TMemo + Left = 8 + Top = 8 + Width = 340 + Height = 46 + Color = clBtnFace + ReadOnly = True + TabOrder = 0 + WantReturns = False + end + object txtDisplayName: TCaptionEdit + Left = 8 + Top = 84 + Width = 340 + Height = 21 + TabOrder = 1 + OnChange = txtDisplayNameChange + Caption = 'Enter the name that should be used for this quick order.' + end + end + object Panel2: TPanel + Left = 0 + Top = 113 + Width = 355 + Height = 181 + Align = alClient + TabOrder = 1 + object lblQuickList: TLabel + Left = 8 + Top = 8 + Width = 136 + Height = 13 + Caption = 'Meds, Inpatient Common List' + end + object lstQuickList: TORListBox + Left = 8 + Top = 30 + Width = 270 + Height = 141 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + Caption = 'Meds, Inpatient Common List' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object pnlUpButton: TKeyClickPanel + Left = 292 + Top = 42 + Width = 30 + Height = 27 + BevelOuter = bvNone + Caption = 'Display selected medication earlier' + TabOrder = 2 + TabStop = True + OnClick = cmdUpClick + OnEnter = pnlUpButtonEnter + OnExit = pnlUpButtonExit + DesignSize = ( + 30 + 27) + object cmdUp: TSpeedButton + Left = 0 + Top = 0 + Width = 30 + Height = 24 + Anchors = [akLeft, akTop, akRight, akBottom] + Glyph.Data = { + F6000000424DF600000000000000760000002800000010000000100000000100 + 0400000000008000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 33333333333333333333333333333333333333333CCCCC33333333333CCCCC33 + 333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33 + 3333333CCCCCCCCC33333333CCCCCCC3333333333CCCCC333333333333CCC333 + 33333333333C3333333333333333333333333333333333333333} + OnClick = cmdUpClick + end + end + object pnlDownButton: TKeyClickPanel + Left = 292 + Top = 76 + Width = 31 + Height = 26 + BevelOuter = bvNone + Caption = 'Display selected medication later' + TabOrder = 3 + TabStop = True + OnClick = cmdDownClick + OnEnter = pnlUpButtonEnter + OnExit = pnlUpButtonExit + DesignSize = ( + 31 + 26) + object cmdDown: TSpeedButton + Left = 0 + Top = 1 + Width = 31 + Height = 22 + Anchors = [akLeft, akTop, akRight, akBottom] + Glyph.Data = { + F6000000424DF600000000000000760000002800000010000000100000000100 + 0400000000008000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 3333333333333333333333333333333333333333333C33333333333333CCC333 + 333333333CCCCC3333333333CCCCCCC33333333CCCCCCCCC333333333CCCCC33 + 333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33 + 333333333CCCCC33333333333333333333333333333333333333} + OnClick = cmdDownClick + end + end + object cmdRename: TButton + Left = 286 + Top = 128 + Width = 62 + Height = 21 + Caption = 'Rename' + TabOrder = 4 + OnClick = cmdRenameClick + end + object cmdDelete: TButton + Left = 286 + Top = 153 + Width = 62 + Height = 21 + Caption = 'Delete' + TabOrder = 5 + OnClick = cmdDeleteClick + end + end + object Panel3: TPanel + Left = 0 + Top = 294 + Width = 355 + Height = 41 + Align = alBottom + TabOrder = 2 + object cmdOK: TButton + Left = 98 + Top = 11 + Width = 72 + Height = 21 + Caption = 'OK' + TabOrder = 0 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 186 + Top = 11 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fOrderSaveQuick.pas b/CPRS-Chart/Orders/fOrderSaveQuick.pas new file mode 100644 index 0000000..a8f73e9 --- /dev/null +++ b/CPRS-Chart/Orders/fOrderSaveQuick.pas @@ -0,0 +1,278 @@ +unit fOrderSaveQuick; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, Buttons, ExtCtrls, StdCtrls, ORCtrls, ORFn, fODBase, uOrders; + +type + TfrmSaveQuickOrder = class(TfrmAutoSz) + Panel1: TPanel; + memOrder: TMemo; + lblDisplayName: TLabel; + txtDisplayName: TCaptionEdit; + Panel2: TPanel; + lblQuickList: TLabel; + lstQuickList: TORListBox; + pnlUpButton: TKeyClickPanel; + cmdUp: TSpeedButton; + pnlDownButton: TKeyClickPanel; + cmdRename: TButton; + cmdDelete: TButton; + cmdDown: TSpeedButton; + Panel3: TPanel; + cmdOK: TButton; + cmdCancel: TButton; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure txtDisplayNameChange(Sender: TObject); + procedure cmdUpClick(Sender: TObject); + procedure cmdDownClick(Sender: TObject); + procedure cmdRenameClick(Sender: TObject); + procedure cmdDeleteClick(Sender: TObject); + procedure pnlUpButtonEnter(Sender: TObject); + procedure pnlUpButtonExit(Sender: TObject); + private + OKPressed: Boolean; + end; + +function EditCommonList(ADisplayGroup: Integer): Boolean; +function SaveAsQuickOrder(ResponseSet: TResponses): Boolean; + +implementation + +{$R *.DFM} + +uses rODBase, rOrders, fRename; + +const + TX_DNAME_REQ = 'A name for the quick order must be entered in order to save it.'; + TC_DNAME_REQ = 'Display Name Missing'; + TX_DEL_CONFIRM = 'Remove the following quick order from your list?' + CRLF + CRLF; + TC_DEL_CONFIRM = 'Remove Quick Order'; + TX_QO_RENAME = 'Rename Quick Order'; + TX_NO_DEL_NEW = 'A new quick order cannot be deleted. Press instead.'; + TC_NO_DEL_NEW = 'Remove Quick Order'; + TX_NO_TEXT = 'No fields have been entered - cannot save as quick order.'; + TC_NO_TEXT = 'Save as Quick Order'; + +function EditCommonList(ADisplayGroup: Integer): Boolean; +var + frmSaveQuickOrder: TfrmSaveQuickOrder; + DGroupName: string; +begin + Result := False; + frmSaveQuickOrder := TfrmSaveQuickOrder.Create(Application); + try + ResizeFormToFont(TForm(frmSaveQuickOrder)); + with frmSaveQuickOrder do + begin + if ADisplayGroup = ClinDisp then + ADisplayGroup := InptDisp; + DGroupName := NameOfDGroup(ADisplayGroup); + Caption := 'Edit Common Order List (' + DGroupName + ')'; + lblQuickList.Caption := 'Common List for ' + DGroupName; + lstQuickList.Caption := lblQuickList.Caption; + lblDisplayName.Font.Color := clGrayText; + txtDisplayName.Enabled := False; + txtDisplayName.Color := clBtnFace; + with lstQuickList do + begin + LoadQuickListForOD(Items, ADisplayGroup); + ItemIndex := 0; + end; + ShowModal; + if OKPressed then + begin + Result := True; + // replace the user's quick list with this new quick list + SaveQuickListForOD(lstQuickList.Items, ADisplayGroup); + end; {if OKPressed} + end; {with frmSaveQuickOrder} + finally + frmSaveQuickOrder.Release; + end; +end; + +function SaveAsQuickOrder(ResponseSet: TResponses): Boolean; +const + EMPTY_CRC = 'FFFFFFFF'; +var + frmSaveQuickOrder: TfrmSaveQuickOrder; + DGroupName, QuickName, CRC: string; + NewIEN, AnIndex, i: Integer; + IsClinicOrder: boolean; +begin + Result := False; + CRC := ResponseSet.OrderCRC; + IsClinicOrder := False; + if CRC = EMPTY_CRC then + begin + InfoBox(TX_NO_TEXT, TC_NO_TEXT, MB_OK); + Exit; + end; + frmSaveQuickOrder := TfrmSaveQuickOrder.Create(Application); + try + ResizeFormToFont(TForm(frmSaveQuickOrder)); + with frmSaveQuickOrder do + begin + if (ResponseSet.DisplayGroup = ClinDisp) and (ResponseSet.Dialog = 'PSJI OR PAT FLUID OE') then + begin + ResponseSet.DisplayGroup := IVDisp; + IsClinicOrder := True; + end; + if ResponseSet.DisplayGroup = ClinDisp then + DGroupName := NameOfDGroup(InptDisp) + else + DGroupName := NameOfDGroup(ResponseSet.DisplayGroup); + Caption := 'Add Quick Order (' + DGroupName + ')'; + lblQuickList.Caption := 'Common List for ' + DGroupName; + lstQuickList.Caption := lblQuickList.Caption; + QuickName := GetQuickName(CRC); + memOrder.Text := ResponseSet.OrderText; + txtDisplayName.Text := QuickName; + with lstQuickList do + begin + if ResponseSet.DisplayGroup = ClinDisp then + LoadQuickListForOD(Items, InptDisp) + else + LoadQuickListForOD(Items, ResponseSet.DisplayGroup); + if Length(QuickName) > 0 + then Items.Insert(0, '-1^' + QuickName) + else Items.Insert(0, '-1^'); + ItemIndex := 0; + end; + ShowModal; + if OKPressed then + begin + Result := True; + // save reponses as quick order + ResponseSet.SaveQuickOrder(NewIEN, txtDisplayName.Text); + // find the new quick order and set the new IEN + AnIndex := -1; + with lstQuickList do for i := 0 to Items.Count - 1 do + if GetIEN(i) = -1 then AnIndex := i; + if AnIndex > -1 then lstQuickList.Items[AnIndex] := IntToStr(NewIEN) + U + + txtDisplayName.Text; + // replace the user's quick list with this new quick list + if ResponseSet.DisplayGroup = ClinDisp then + SaveQuickListForOD(lstQuickList.Items, InptDisp) + else + SaveQuickListForOD(lstQuickList.Items, ResponseSet.DisplayGroup); + end; {if OKPressed} + if IsClinicOrder = True then ResponseSet.DisplayGroup := ClinDisp; + end; {with frmSaveQuickOrder} + finally + frmSaveQuickOrder.Release; + end; +end; + +procedure TfrmSaveQuickOrder.txtDisplayNameChange(Sender: TObject); +var + AnIndex, i: Integer; +begin + inherited; + if txtDisplayName.Text = '' then Exit; + AnIndex := -1; + with lstQuickList do for i := 0 to Items.Count - 1 do + if GetIEN(i) = -1 then AnIndex := i; + if AnIndex > -1 then lstQuickList.Items[AnIndex] := '-1^' + txtDisplayName.Text; +end; + +procedure TfrmSaveQuickOrder.cmdUpClick(Sender: TObject); +var + NewIndex: Integer; +begin + inherited; + with lstQuickList do + begin + if ItemIndex < 1 then Exit; + NewIndex := ItemIndex - 1; + Items.Move(ItemIndex, NewIndex); + ItemIndex := NewIndex; + end; +end; + +procedure TfrmSaveQuickOrder.cmdDownClick(Sender: TObject); +var + NewIndex: Integer; +begin + inherited; + with lstQuickList do + begin + if ItemIndex > Items.Count - 2 then Exit; + NewIndex := ItemIndex + 1; + Items.Move(ItemIndex, NewIndex); + ItemIndex := NewIndex; + end; +end; + +procedure TfrmSaveQuickOrder.cmdRenameClick(Sender: TObject); +var + AName: string; +begin + inherited; + with lstQuickList do + begin + if ItemIndex < 0 then Exit; + AName := Piece(Items[ItemIndex], U, 2); + if ExecuteRename(AName, TX_QO_RENAME) + then Items[ItemIndex] := Piece(Items[ItemIndex], U, 1) + U + AName; + end; +end; + +procedure TfrmSaveQuickOrder.cmdDeleteClick(Sender: TObject); +begin + inherited; + with lstQuickList do + begin + if ItemIndex < 0 then Exit; + if ItemIEN = -1 then + begin + InfoBox(TX_NO_DEL_NEW, TC_NO_DEL_NEW, MB_OK); + Exit; + end; + if InfoBox(TX_DEL_CONFIRM + DisplayText[ItemIndex], TC_DEL_CONFIRM, + MB_YESNO or MB_ICONQUESTION) = IDYES then Items.Delete(ItemIndex); + end; +end; + +procedure TfrmSaveQuickOrder.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmSaveQuickOrder.cmdOKClick(Sender: TObject); +begin + inherited; + if txtDisplayName.Enabled and (txtDisplayName.Text = '') then + begin + InfoBox(TX_DNAME_REQ, TC_DNAME_REQ, MB_OK); + Exit; + end; + OKPressed := True; + Close; +end; + +procedure TfrmSaveQuickOrder.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmSaveQuickOrder.pnlUpButtonEnter(Sender: TObject); +begin + inherited; + TPanel(Sender).BevelOuter := bvRaised; +end; + +procedure TfrmSaveQuickOrder.pnlUpButtonExit(Sender: TObject); +begin + inherited; + TPanel(Sender).BevelOuter := bvNone; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrderUnflag.dfm b/CPRS-Chart/Orders/fOrderUnflag.dfm new file mode 100644 index 0000000..72cfd18 --- /dev/null +++ b/CPRS-Chart/Orders/fOrderUnflag.dfm @@ -0,0 +1,66 @@ +inherited frmUnflagOrder: TfrmUnflagOrder + Left = 365 + Top = 389 + Height = 230 + Caption = 'Unflag Order' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 123 + Width = 90 + Height = 13 + Caption = 'Comment (optional)' + end + object txtComment: TCaptionEdit + Left = 8 + Top = 137 + Width = 411 + Height = 21 + MaxLength = 80 + TabOrder = 0 + Caption = 'Comment (optional)' + end + object cmdOK: TButton + Left = 267 + Top = 174 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 174 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + object memReason: TMemo + Left = 8 + Top = 80 + Width = 411 + Height = 35 + Color = clBtnFace + ReadOnly = True + TabOrder = 4 + WantReturns = False + end + object memOrder: TMemo + Left = 8 + Top = 8 + Width = 411 + Height = 56 + Color = clBtnFace + ReadOnly = True + TabOrder = 3 + WantReturns = False + end +end diff --git a/CPRS-Chart/Orders/fOrderUnflag.pas b/CPRS-Chart/Orders/fOrderUnflag.pas new file mode 100644 index 0000000..2ff748a --- /dev/null +++ b/CPRS-Chart/Orders/fOrderUnflag.pas @@ -0,0 +1,74 @@ +unit fOrderUnflag; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, ORCtrls; + +type + TfrmUnflagOrder = class(TfrmAutoSz) + txtComment: TCaptionEdit; + Label1: TLabel; + cmdOK: TButton; + cmdCancel: TButton; + memReason: TMemo; + memOrder: TMemo; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + private + OKPressed: Boolean; + end; + +function ExecuteUnflagOrder(AnOrder: TOrder): Boolean; + +implementation + +{$R *.DFM} + +function ExecuteUnflagOrder(AnOrder: TOrder): Boolean; +var + frmUnflagOrder: TfrmUnflagOrder; +begin + Result := False; + frmUnflagOrder := TfrmUnflagOrder.Create(Application); + try + ResizeFormToFont(TForm(frmUnflagOrder)); + with frmUnflagOrder do + begin + memOrder.SetTextBuf(PChar(AnOrder.Text)); + LoadFlagReason(memReason.Lines, AnOrder.ID); + ShowModal; + if OKPressed then + begin + UnflagOrder(AnOrder, txtComment.Text); + Result := True; + end; + end; + finally + frmUnflagOrder.Release; + end; +end; + +procedure TfrmUnflagOrder.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmUnflagOrder.cmdOKClick(Sender: TObject); +begin + inherited; + OKPressed := True; + Close; +end; + +procedure TfrmUnflagOrder.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + + +end. diff --git a/CPRS-Chart/Orders/fOrderVw.dfm b/CPRS-Chart/Orders/fOrderVw.dfm new file mode 100644 index 0000000..39e9e82 --- /dev/null +++ b/CPRS-Chart/Orders/fOrderVw.dfm @@ -0,0 +1,226 @@ +inherited frmOrderView: TfrmOrderView + Left = 340 + Top = 165 + Width = 429 + Height = 440 + Caption = 'Custom Order View' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object pnlView: TPanel + Left = 0 + Top = 0 + Width = 421 + Height = 21 + Align = alTop + BevelOuter = bvLowered + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object lblView: TLabel + Left = 1 + Top = 1 + Width = 419 + Height = 19 + Align = alClient + Alignment = taCenter + Caption = 'All Services, Active Orders' + Layout = tlCenter + end + end + object Panel1: TPanel + Left = 0 + Top = 21 + Width = 421 + Height = 277 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + object Splitter1: TSplitter + Left = 211 + Top = 0 + Width = 3 + Height = 277 + Cursor = crHSplit + MinSize = 1 + OnMoved = Splitter1Moved + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 211 + Height = 277 + Align = alLeft + Constraints.MinWidth = 15 + TabOrder = 0 + object lblFilter: TLabel + Left = 1 + Top = 1 + Width = 209 + Height = 13 + Align = alTop + Alignment = taCenter + Caption = 'Order Status' + Layout = tlCenter + end + object trFilters: TCaptionTreeView + Left = 1 + Top = 14 + Width = 209 + Height = 262 + Align = alClient + Indent = 19 + TabOrder = 0 + OnClick = trFiltersClick + Caption = 'Order Status' + end + end + object Panel3: TPanel + Left = 214 + Top = 0 + Width = 207 + Height = 277 + Align = alClient + Constraints.MinWidth = 15 + TabOrder = 1 + object lblService: TLabel + Left = 1 + Top = 1 + Width = 205 + Height = 13 + Align = alTop + Alignment = taCenter + Caption = 'Service/Section' + Layout = tlCenter + end + object treService: TCaptionTreeView + Left = 1 + Top = 14 + Width = 205 + Height = 262 + Align = alClient + Indent = 19 + TabOrder = 0 + OnClick = treServiceClick + Caption = 'Service/Section' + end + end + end + object Panel4: TPanel + Left = 0 + Top = 298 + Width = 421 + Height = 114 + Align = alBottom + TabOrder = 2 + DesignSize = ( + 421 + 114) + object chkDateRange: TCheckBox + Left = 5 + Top = 3 + Width = 372 + Height = 19 + Caption = 'Only List Orders Placed During Time Period' + TabOrder = 0 + OnClick = chkDateRangeClick + end + object GroupBox1: TGroupBox + Left = 4 + Top = 21 + Width = 399 + Height = 45 + TabOrder = 1 + object lblFrom: TLabel + Left = 25 + Top = 19 + Width = 26 + Height = 13 + Caption = 'From:' + Enabled = False + end + object lblThru: TLabel + Left = 210 + Top = 19 + Width = 43 + Height = 13 + Caption = 'Through:' + Enabled = False + end + object calFrom: TORDateBox + Left = 55 + Top = 16 + Width = 128 + Height = 21 + Color = clBtnFace + Enabled = False + TabOrder = 0 + OnChange = calChange + DateOnly = False + RequireTime = False + Caption = 'From Date' + end + object calThru: TORDateBox + Left = 257 + Top = 16 + Width = 128 + Height = 21 + Color = clBtnFace + Enabled = False + TabOrder = 1 + OnChange = calChange + DateOnly = False + RequireTime = False + Caption = 'Through Date' + end + end + object chkInvChrono: TCheckBox + Left = 6 + Top = 92 + Width = 204 + Height = 18 + Anchors = [akLeft, akBottom] + Caption = 'Reverse Chronological Sequence' + Checked = True + State = cbChecked + TabOrder = 2 + end + object chkByService: TCheckBox + Left = 6 + Top = 72 + Width = 187 + Height = 18 + Caption = 'Group Orders by Service' + Checked = True + State = cbChecked + TabOrder = 3 + end + object cmdOK: TButton + Left = 246 + Top = 78 + Width = 72 + Height = 23 + Anchors = [akLeft, akBottom] + Caption = 'OK' + Default = True + TabOrder = 4 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 328 + Top = 78 + Width = 72 + Height = 23 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 5 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fOrderVw.pas b/CPRS-Chart/Orders/fOrderVw.pas new file mode 100644 index 0000000..240a4cf --- /dev/null +++ b/CPRS-Chart/Orders/fOrderVw.pas @@ -0,0 +1,325 @@ +unit fOrderVw; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ComCtrls, ExtCtrls, ORCtrls, ORFn, rOrders, ORDtTm; + +type + TfrmOrderView = class(TfrmAutoSz) + pnlView: TPanel; + lblView: TLabel; + Panel1: TPanel; + Panel2: TPanel; + lblFilter: TLabel; + trFilters: TCaptionTreeView; + Panel3: TPanel; + treService: TCaptionTreeView; + lblService: TLabel; + Panel4: TPanel; + chkDateRange: TCheckBox; + GroupBox1: TGroupBox; + lblFrom: TLabel; + lblThru: TLabel; + calFrom: TORDateBox; + calThru: TORDateBox; + chkInvChrono: TCheckBox; + chkByService: TCheckBox; + cmdOK: TButton; + cmdCancel: TButton; + Splitter1: TSplitter; + procedure FormCreate(Sender: TObject); + procedure treServiceClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure chkDateRangeClick(Sender: TObject); + procedure calChange(Sender: TObject); + procedure trFiltersClick(Sender: TObject); + procedure Splitter1Moved(Sender: TObject); + private + FChanged: Boolean; + FDGroup: Integer; + FDGroupName: string; + FFilter: Integer; + FFilterName: string; + FInvChrono: Boolean; + FByService: Boolean; + FTimeFrom: TFMDateTime; + FTimeThru: TFMDateTime; + procedure LoadDGroups(const Parent: string; Node: TTreeNode); + procedure LoadFilters(const Parent: string; Node: TTreeNode); + procedure SynchViewData; + procedure UpdateViewName; + public + { Public declarations } + end; + +procedure SelectOrderView(var OrderView: TOrderView); + +implementation + +{$R *.DFM} + +const + TX_DATES = 'To list orders for a specific date range, both From & Thru dates are required.'; + TC_DATES = 'Error in Date Range'; + +var + uDGroupList: TStringList; + uFilterList: TStringList; + +procedure SelectOrderView(var OrderView: TOrderView); +var + frmOrderView: TfrmOrderView; +begin + frmOrderView := TfrmOrderView.Create(Application); + try + ResizeFormToFont(TForm(frmOrderView)); + with frmOrderView do + begin + FDGroup := OrderView.DGroup; + FFilter := OrderView.Filter; + FInvChrono := OrderView.InvChrono; + FByService := OrderView.ByService; + FTimeFrom := OrderView.TimeFrom; + FTimeThru := OrderView.TimeThru; + SynchViewData; + ShowModal; + if FChanged then + begin + OrderView.Changed := FChanged; + OrderView.DGroup := FDGroup; + OrderView.Filter := FFilter; + OrderView.InvChrono := FInvChrono; + OrderView.ByService := FByService; + OrderView.TimeFrom := FTimeFrom; + OrderView.TimeThru := FTimeThru; + OrderView.CtxtTime := 0; // set by RefreshOrderList + OrderView.TextView := 0; // set by RefreshOrderList + OrderView.ViewName := lblView.Caption; + OrderView.EventDelay.EventType := 'C'; + OrderView.EventDelay.Specialty := 0; // treating specialty only for event delayed + OrderView.EventDelay.Effective := 0; // effective date only for discharge orders + end + else OrderView.Changed := False; + end; {with} + finally + frmOrderView.Release; + end; +end; + +procedure TfrmOrderView.FormCreate(Sender: TObject); +begin + inherited; + FChanged := False; + uDGroupList := TStringList.Create; + uFilterList := TStringList.Create; + try + ListDGroupAll(uDGroupList); + LoadDGroups('0', nil); + + ListOrderFiltersAll(uFilterList); + LoadFilters('0', nil); + finally + uDGroupList.Free; + uDGroupList := nil; + uFilterList.Free; + uFilterList := nil; + end; +end; + +procedure TfrmOrderView.UpdateViewName; +const + FMT_TIME = 'mm/dd/yy'; +var + DateText, FilterText: string; +begin + if chkDateRange.Checked + then DateText := ' (' + FormatFMDateTime(FMT_TIME, calFrom.FMDateTime) + + ' thru ' + FormatFMDateTIme(FMT_TIME, calThru.FMDateTime) + ')' + else DateText := ''; + if FFilter in [6, 8, 9, 10, 19, 20] + then FilterText := FFilterName + else FilterText := FFilterName + ' Orders'; + lblView.Caption := FilterText + ' - ' + FDGroupName + DateText; +end; + +procedure TfrmOrderView.SynchViewData; +var + i: Integer; +begin + with treService.Items do for i := 0 to Count - 1 do if Integer(Item[i].Data) = FDGroup then + begin + Item[i].Expanded := True; + Item[i].Selected := True; + FDGroupName := Item[i].Text; + Break; + end; + + with trFilters.Items do for i := 0 to Count - 1 do if Integer(Item[i].Data) = FFilter then + begin + Item[i].Expanded := True; + Item[i].Selected := True; + FDGroupName := Item[i].Text; + Break; + end; + + if (FTimeFrom > 0) or (FTimeThru > 0) then + begin + calFrom.FMDateTime := FTimeFrom; + calThru.FMDateTime := FTimeThru; + chkDateRange.Checked := True; + chkDateRangeClick(Self); + end; + UpdateViewName; + chkByService.Checked := FByService; + chkInvChrono.Checked := FInvChrono; +end; + +procedure TfrmOrderView.LoadDGroups(const Parent: string; Node: TTreeNode); +var + MyID, MyParent, Name: string; + i, IEN: Integer; + ChildNode: TTreeNode; + HasChildren: Boolean; +begin + with uDGroupList do for i := 0 to Count - 1 do + begin + MyParent := Piece(Strings[i], U, 3); + if MyParent = Parent then + begin + MyID := Piece(Strings[i], U, 1); + IEN := StrToIntDef(MyID, 0); + Name := Piece(Strings[i], U, 2); + HasChildren := Piece(Strings[i], U, 4) = '+'; + ChildNode := treService.Items.AddChildObject(Node, Name, Pointer(IEN)); + if HasChildren then LoadDGroups(MyID, ChildNode); + end; + end; +end; + +procedure TfrmOrderView.LoadFilters(const Parent: string; Node: TTreeNode); +var + MyID, MyParent, Name: string; + i, IEN: Integer; + ChildNode: TTreeNode; + HasChildren: Boolean; +begin + with uFilterList do for i := 0 to Count - 1 do + begin + MyParent := Piece(Strings[i], U, 3); + if MyParent = Parent then + begin + MyID := Piece(Strings[i], U, 1); + IEN := StrToIntDef(MyID, 0); + Name := Piece(Strings[i], U, 2); + HasChildren := Piece(Strings[i], U, 4) = '+'; + ChildNode := trFilters.Items.AddChildObject(Node, Name, Pointer(IEN)); + if HasChildren then LoadFilters(MyID, ChildNode); + end; + end; +end; + +procedure TfrmOrderView.treServiceClick(Sender: TObject); +var + Node: TTreeNode; +begin + inherited; + Node := treService.Selected; + if Node <> nil then + begin + FDGroup := Integer(Node.Data); + FDGroupName := Node.Text; + UpdateViewName; + end; +end; + +procedure TfrmOrderView.chkDateRangeClick(Sender: TObject); +begin + inherited; + lblThru.Enabled := chkDateRange.Checked; + calThru.Enabled := chkDateRange.Checked; + lblFrom.Enabled := chkDateRange.Checked; + calFrom.Enabled := chkDateRange.Checked; + if chkDateRange.Checked then + begin + calFrom.Color := clWindow; + calThru.Color := clWindow; + if calThru.FMDateTime = 0 then calThru.Text := 'NOW'; + end else + begin + calFrom.FMDateTime := 0; + calThru.FMDateTime := 0; + calFrom.Color := clBtnFace; + calThru.Color := clBtnFace; + end; + UpdateViewName; +end; + +procedure TfrmOrderView.calChange(Sender: TObject); +begin + inherited; + UpdateViewName; +end; + +procedure TfrmOrderView.cmdOKClick(Sender: TObject); +begin + inherited; + if chkDateRange.Checked and ((not calFrom.IsValid) or (not calThru.IsValid)) then + begin + InfoBox(TX_DATES, TC_DATES, MB_OK); + Exit; + end; + if chkDateRange.Checked then + begin + FTimeFrom := calFrom.FMDateTime; + FTimeThru := calThru.FMDateTime; + end else + begin + FTimeFrom := 0; + FTimeThru := 0; + end; + FChanged := True; + FInvChrono := chkInvChrono.Checked; + FByService := chkByService.Checked; + Close; +end; + +procedure TfrmOrderView.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmOrderView.trFiltersClick(Sender: TObject); +var + Node: TTreeNode; +begin + inherited; + Node := trFilters.Selected; + if Node <> nil then + begin + FFilter := Integer(Node.Data); + FFilterName := Node.Text; + if FFilter = 2 then // disallow date range for active orders view + begin + chkDateRange.Checked := False; + chkDateRangeClick(Self); + end; + if FFilter in [8, 9, 10, 20] then chkDateRange.Checked := True else + begin + if (calFrom.Text = '') and (calThru.Text = '') then chkDateRange.Checked := False; + end; + UpdateViewName; + end; +end; + +procedure TfrmOrderView.Splitter1Moved(Sender: TObject); +begin + inherited; + Splitter1.Align := alNone; + Splitter1.Align := alLeft; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrders.dfm b/CPRS-Chart/Orders/fOrders.dfm new file mode 100644 index 0000000..495dde8 --- /dev/null +++ b/CPRS-Chart/Orders/fOrders.dfm @@ -0,0 +1,582 @@ +inherited frmOrders: TfrmOrders + Left = 451 + Top = 250 + Width = 774 + Height = 579 + HelpContext = 4000 + Caption = 'Orders Page' + HelpFile = 'overvw' + Menu = mnuOrders + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + inherited shpPageBottom: TShape + Top = 528 + Width = 766 + end + inherited sptHorz: TSplitter + Left = 117 + Height = 528 + OnMoved = sptHorzMoved + end + inherited pnlLeft: TPanel + Width = 117 + Height = 528 + object OROffsetLabel1: TOROffsetLabel + Left = 0 + Top = 0 + Width = 117 + Height = 19 + Align = alTop + Caption = 'View Orders' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object lblWrite: TLabel + Left = 0 + Top = 97 + Width = 117 + Height = 19 + Align = alTop + AutoSize = False + Caption = 'Write Orders' + ParentShowHint = False + ShowHint = True + Layout = tlBottom + OnMouseMove = lblWriteMouseMove + end + object sptVert: TSplitter + Left = 0 + Top = 75 + Width = 117 + Height = 4 + Cursor = crVSplit + Align = alTop + end + object lstSheets: TORListBox + Left = 0 + Top = 19 + Width = 117 + Height = 56 + Align = alTop + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = lstSheetsClick + Caption = 'View Orders' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object lstWrite: TORListBox + Left = 0 + Top = 116 + Width = 117 + Height = 412 + Align = alClient + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = lstWriteClick + Caption = 'Write Orders' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object btnDelayedOrder: TORAlignButton + Left = 0 + Top = 79 + Width = 117 + Height = 18 + Caption = 'Write Delayed Orders' + TabOrder = 1 + OnClick = btnDelayedOrderClick + Align = alTop + Alignment = taLeftJustify + end + end + inherited pnlRight: TPanel + Left = 121 + Width = 645 + Height = 528 + ParentColor = True + ParentCtl3D = False + ParentFont = False + OnResize = pnlRightResize + object lblOrders: TOROffsetLabel + Left = 0 + Top = 0 + Width = 645 + Height = 19 + Align = alTop + Caption = 'Active Orders' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object imgHide: TImage + Left = 520 + Top = 0 + Width = 16 + Height = 16 + Hint = 'All Active Orders not Visible' + AutoSize = True + ParentShowHint = False + Picture.Data = { + 07544269746D6170F6000000424DF60000000000000076000000280000001000 + 0000100000000100040000000000800000000000000000000000100000001000 + 0000000000000000800000800000008080008000000080008000808000008080 + 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF + FF003333000000000EEE33330FF00FBFB0EE33330F0BFB0BFB0E33330FF000BF + BFB033330FFF0BFBFBF033300000BF0FBFB0000FBFB0F0FB0BF0E0FB00000000 + BF00E0BFBFBFBFB0F0F0E0FBFB0000000FF0E0BFBFBFBFB0FFF0E0FBFB00000F + 0000E00FBFBFB0FF0FF0003000000FFF0F0333330FFFFFFF0033333300000000 + 0333} + ShowHint = True + Transparent = True + end + object hdrOrders: THeaderControl + Left = 0 + Top = 19 + Width = 645 + Height = 17 + DragReorder = False + Sections = < + item + ImageIndex = -1 + Width = 0 + end + item + ImageIndex = -1 + MinWidth = 16 + Text = 'Service' + Width = 50 + end + item + ImageIndex = -1 + MinWidth = 20 + Text = 'Order' + Width = 210 + end + item + ImageIndex = -1 + MinWidth = 16 + Text = 'Start / Stop' + Width = 100 + end + item + ImageIndex = -1 + MinWidth = 16 + Text = 'Provider' + Width = 60 + end + item + ImageIndex = -1 + MinWidth = 16 + Text = 'Nurse' + Width = 40 + end + item + ImageIndex = -1 + MinWidth = 16 + Text = 'Clerk' + Width = 35 + end + item + ImageIndex = -1 + MinWidth = 16 + Text = 'Chart' + Width = 35 + end + item + ImageIndex = -1 + MinWidth = 16 + Text = 'Status' + Width = 50 + end + item + ImageIndex = -1 + MinWidth = 25 + Text = 'Location' + Width = 40 + end> + OnSectionClick = hdrOrdersSectionClick + OnSectionResize = hdrOrdersSectionResize + OnMouseDown = hdrOrdersMouseDown + OnMouseUp = hdrOrdersMouseUp + end + object lstOrders: TCaptionListBox + Left = 0 + Top = 36 + Width = 645 + Height = 492 + Style = lbOwnerDrawVariable + Align = alClient + Color = clCream + Ctl3D = False + ItemHeight = 32 + MultiSelect = True + ParentCtl3D = False + PopupMenu = popOrder + TabOrder = 1 + OnDblClick = lstOrdersDblClick + OnDrawItem = lstOrdersDrawItem + OnMeasureItem = lstOrdersMeasureItem + RightClickSelect = True + Caption = 'Active Orders' + end + end + object mnuOrders: TMainMenu + Left = 136 + Top = 60 + object mnuView: TMenuItem + Caption = '&View' + GroupIndex = 3 + OnClick = mnuViewClick + object mnuViewChart: TMenuItem + Caption = 'Chart &Tab' + object mnuChartCover: TMenuItem + Tag = 1 + Caption = 'Cover &Sheet' + ShortCut = 16467 + OnClick = mnuChartTabClick + end + object mnuChartProbs: TMenuItem + Tag = 2 + Caption = '&Problem List' + ShortCut = 16464 + OnClick = mnuChartTabClick + end + object mnuChartMeds: TMenuItem + Tag = 3 + Caption = '&Medications' + ShortCut = 16461 + OnClick = mnuChartTabClick + end + object mnuChartOrders: TMenuItem + Tag = 4 + Caption = '&Orders' + ShortCut = 16463 + OnClick = mnuChartTabClick + end + object mnuChartNotes: TMenuItem + Tag = 6 + Caption = 'Progress &Notes' + ShortCut = 16462 + OnClick = mnuChartTabClick + end + object mnuChartCslts: TMenuItem + Tag = 7 + Caption = 'Consul&ts' + ShortCut = 16468 + OnClick = mnuChartTabClick + end + object mnuChartSurgery: TMenuItem + Tag = 11 + Caption = 'S&urgery' + ShortCut = 16469 + OnClick = mnuChartTabClick + end + object mnuChartDCSumm: TMenuItem + Tag = 8 + Caption = '&Discharge Summaries' + ShortCut = 16452 + OnClick = mnuChartTabClick + end + object mnuChartLabs: TMenuItem + Tag = 9 + Caption = '&Laboratory' + ShortCut = 16460 + OnClick = mnuChartTabClick + end + object mnuChartReports: TMenuItem + Tag = 10 + Caption = '&Reports' + ShortCut = 16466 + OnClick = mnuChartTabClick + end + end + object mnuViewInformation: TMenuItem + Caption = 'Information' + OnClick = mnuViewInformationClick + object mnuViewDemo: TMenuItem + Tag = 1 + Caption = 'De&mographics...' + OnClick = ViewInfo + end + object mnuViewVisits: TMenuItem + Tag = 2 + Caption = 'Visits/Pr&ovider...' + OnClick = ViewInfo + end + object mnuViewPrimaryCare: TMenuItem + Tag = 3 + Caption = 'Primary &Care...' + OnClick = ViewInfo + end + object mnuViewMyHealtheVet: TMenuItem + Tag = 4 + Caption = 'MyHealthe&Vet...' + OnClick = ViewInfo + end + object mnuInsurance: TMenuItem + Tag = 5 + Caption = '&Insurance...' + OnClick = ViewInfo + end + object mnuViewFlags: TMenuItem + Tag = 6 + Caption = '&Flags...' + OnClick = ViewInfo + end + object mnuViewRemoteData: TMenuItem + Tag = 7 + Caption = 'Remote &Data...' + OnClick = ViewInfo + end + object mnuViewReminders: TMenuItem + Tag = 8 + Caption = '&Reminders...' + Enabled = False + OnClick = ViewInfo + end + object mnuViewPostings: TMenuItem + Tag = 9 + Caption = '&Postings...' + OnClick = ViewInfo + end + end + object Z1: TMenuItem + Caption = '-' + end + object mnuViewActive: TMenuItem + Caption = '&Active Orders (includes pending, recent activity)' + OnClick = mnuViewActiveClick + end + object mnuViewCurrent: TMenuItem + Caption = 'Current &Orders (active/pending status only)' + OnClick = mnuViewCurrentClick + end + object EventRealeasedOrder1: TMenuItem + Caption = 'Auto DC/Release Event Orders' + OnClick = EventRealeasedOrder1Click + end + object mnuViewExpiring: TMenuItem + Caption = '&Expiring Orders' + OnClick = mnuViewExpiringClick + end + object mnuViewUnsigned: TMenuItem + Caption = '&Unsigned Orders' + OnClick = mnuViewUnsignedClick + end + object mnuViewExpired: TMenuItem + Caption = '&Recently Expired Orders' + OnClick = mnuViewExpiredClick + end + object Z2: TMenuItem + Caption = '-' + end + object mnuViewCustom: TMenuItem + Caption = '&Custom Order View...' + OnClick = mnuViewCustomClick + end + object Z6: TMenuItem + Caption = '-' + end + object mnuViewDfltSave: TMenuItem + Caption = '&Save as Default View...' + OnClick = mnuViewDfltSaveClick + end + object mnuViewDfltShow: TMenuItem + Caption = '&Return to Default View' + OnClick = mnuViewDfltShowClick + end + object Z3: TMenuItem + Caption = '-' + end + object mnuViewDetail: TMenuItem + Caption = '&Details...' + OnClick = mnuViewDetailClick + end + object mnuViewResult: TMenuItem + Caption = '&Results...' + OnClick = mnuViewResultClick + end + object mnuViewResultsHistory: TMenuItem + Caption = 'Results History...' + OnClick = mnuViewResultsHistoryClick + end + end + object mnuAct: TMenuItem + Caption = '&Action' + GroupIndex = 4 + OnClick = mnuActClick + object mnuActChange: TMenuItem + Caption = '&Change...' + OnClick = mnuActChangeClick + end + object mnuActCopy: TMenuItem + Caption = 'Copy to &New Order...' + OnClick = mnuActCopyClick + end + object mnuActDC: TMenuItem + Caption = '&Discontinue / Cancel...' + OnClick = mnuActDCClick + end + object mnuActRel: TMenuItem + Caption = 'Release Delayed Orders' + Visible = False + OnClick = mnuActRelClick + end + object mnuActChgEvnt: TMenuItem + Caption = 'Change Release Event' + OnClick = mnuActChgEvntClick + end + object mnuActHold: TMenuItem + Caption = '&Hold...' + OnClick = mnuActHoldClick + end + object mnuActUnhold: TMenuItem + Caption = 'Re&lease Hold...' + OnClick = mnuActUnholdClick + end + object mnuActRenew: TMenuItem + Caption = 'Rene&w...' + OnClick = mnuActRenewClick + end + object Z4: TMenuItem + Caption = '-' + end + object mnuActAlert: TMenuItem + Caption = '&Alert when Results...' + OnClick = mnuActAlertClick + end + object mnuActComplete: TMenuItem + Caption = 'Co&mplete...' + OnClick = mnuActCompleteClick + end + object mnuActFlag: TMenuItem + Caption = '&Flag...' + OnClick = mnuActFlagClick + end + object mnuActUnflag: TMenuItem + Caption = '&Unflag...' + OnClick = mnuActUnflagClick + end + object mnuActVerify: TMenuItem + Caption = '&Verify...' + OnClick = mnuActVerifyClick + end + object mnuActChartRev: TMenuItem + Caption = 'Char&t Review...' + OnClick = mnuActChartRevClick + end + object Z5: TMenuItem + Caption = '-' + end + object mnuActRelease: TMenuItem + Caption = 'R&elease without MD Signature...' + OnClick = mnuActReleaseClick + end + object mnuActOnChart: TMenuItem + Caption = 'Signature &On Chart...' + OnClick = mnuActOnChartClick + end + object mnuActSign: TMenuItem + Caption = 'Si&gn Selected...' + OnClick = mnuActSignClick + end + end + object mnuOpt: TMenuItem + Caption = '&Options' + GroupIndex = 5 + OnClick = mnuOptClick + object mnuOptSaveQuick: TMenuItem + Caption = '&Save as Quick Order...' + OnClick = mnuOptSaveQuickClick + end + object mnuOptEditCommon: TMenuItem + Caption = '&Edit Common List...' + OnClick = mnuOptEditCommonClick + end + end + end + object popOrder: TPopupMenu + OnPopup = popOrderPopup + Left = 445 + Top = 300 + object popOrderDetail: TMenuItem + Caption = 'Detai&ls...' + OnClick = mnuViewDetailClick + end + object popOrderResult: TMenuItem + Caption = '&Results...' + OnClick = mnuViewResultClick + end + object popResultsHistory: TMenuItem + Caption = 'Results History...' + OnClick = mnuViewResultsHistoryClick + end + object N1: TMenuItem + Caption = '-' + end + object popOrderChange: TMenuItem + Tag = 1 + Caption = '&Change...' + OnClick = mnuActChangeClick + end + object popOrderRel: TMenuItem + Caption = 'Release Delayed Orders' + Visible = False + OnClick = mnuActRelClick + end + object mnuChgEvnt: TMenuItem + Caption = 'Change Release Event' + OnClick = mnuActChgEvntClick + end + object popOrderCopy: TMenuItem + Tag = 1 + Caption = 'Copy to &New Order...' + OnClick = mnuActCopyClick + end + object popOrderDC: TMenuItem + Tag = 1 + Caption = '&Discontinue...' + OnClick = mnuActDCClick + end + object popOrderRenew: TMenuItem + Tag = 1 + Caption = 'Rene&w...' + OnClick = mnuActRenewClick + end + object sepOrderVerify: TMenuItem + Caption = '-' + end + object popOrderVerify: TMenuItem + Tag = 2 + Caption = '&Verify...' + OnClick = mnuActVerifyClick + end + object popOrderChartRev: TMenuItem + Tag = 2 + Caption = 'Char&t Review' + OnClick = mnuActChartRevClick + end + object popOrderSign: TMenuItem + Tag = 1 + Caption = '&Sign...' + OnClick = mnuActSignClick + end + object mnuOptimizeFields: TMenuItem + Caption = 'Adjust Column Size' + Visible = False + OnClick = mnuOptimizeFieldsClick + end + end +end diff --git a/CPRS-Chart/Orders/fOrders.pas b/CPRS-Chart/Orders/fOrders.pas new file mode 100644 index 0000000..cffa83c --- /dev/null +++ b/CPRS-Chart/Orders/fOrders.pas @@ -0,0 +1,3398 @@ +unit fOrders; + +{$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, fHSplit, StdCtrls, + ExtCtrls, Menus, ORCtrls, ComCtrls, ORFn, rOrders, fODBase, uConst, uCore, uOrders,UBACore, + UBAGlobals; + +type + TfrmOrders = class(TfrmHSplit) + mnuOrders: TMainMenu; + mnuAct: TMenuItem; + mnuActChange: TMenuItem; + mnuActDC: TMenuItem; + mnuActHold: TMenuItem; + mnuActUnhold: TMenuItem; + mnuActRenew: TMenuItem; + Z4: TMenuItem; + mnuActFlag: TMenuItem; + mnuActUnflag: TMenuItem; + Z5: TMenuItem; + mnuActVerify: TMenuItem; + mnuActRelease: TMenuItem; + mnuActSign: TMenuItem; + mnuView: TMenuItem; + mnuViewChart: TMenuItem; + mnuChartReports: TMenuItem; + mnuChartLabs: TMenuItem; + mnuChartDCSumm: TMenuItem; + mnuChartCslts: TMenuItem; + mnuChartNotes: TMenuItem; + mnuChartOrders: TMenuItem; + mnuChartMeds: TMenuItem; + mnuChartProbs: TMenuItem; + mnuChartCover: TMenuItem; + mnuViewActive: TMenuItem; + mnuViewExpiring: TMenuItem; + Z2: TMenuItem; + mnuViewCustom: TMenuItem; + Z3: TMenuItem; + mnuViewDetail: TMenuItem; + Z1: TMenuItem; + OROffsetLabel1: TOROffsetLabel; + hdrOrders: THeaderControl; + lstOrders: TCaptionListBox; + lblOrders: TOROffsetLabel; + lstSheets: TORListBox; + lstWrite: TORListBox; + mnuViewUnsigned: TMenuItem; + popOrder: TPopupMenu; + popOrderChange: TMenuItem; + popOrderDC: TMenuItem; + popOrderRenew: TMenuItem; + popOrderDetail: TMenuItem; + N1: TMenuItem; + mnuActCopy: TMenuItem; + mnuActAlert: TMenuItem; + mnuViewResult: TMenuItem; + mnuActOnChart: TMenuItem; + mnuActComplete: TMenuItem; + sepOrderVerify: TMenuItem; + popOrderVerify: TMenuItem; + popOrderResult: TMenuItem; + imgHide: TImage; + mnuOpt: TMenuItem; + mnuOptSaveQuick: TMenuItem; + mnuOptEditCommon: TMenuItem; + popOrderSign: TMenuItem; + popOrderCopy: TMenuItem; + mnuActChartRev: TMenuItem; + popOrderChartRev: TMenuItem; + Z6: TMenuItem; + mnuViewDfltSave: TMenuItem; + mnuViewDfltShow: TMenuItem; + mnuViewCurrent: TMenuItem; + mnuChartSurgery: TMenuItem; + mnuViewResultsHistory: TMenuItem; + popResultsHistory: TMenuItem; + btnDelayedOrder: TORAlignButton; + mnuActChgEvnt: TMenuItem; + mnuChgEvnt: TMenuItem; + mnuActRel: TMenuItem; + popOrderRel: TMenuItem; + EventRealeasedOrder1: TMenuItem; + lblWrite: TLabel; + sptVert: TSplitter; + mnuViewExpired: TMenuItem; + mnuViewInformation: TMenuItem; + mnuViewDemo: TMenuItem; + mnuViewVisits: TMenuItem; + mnuViewPrimaryCare: TMenuItem; + mnuViewMyHealtheVet: TMenuItem; + mnuInsurance: TMenuItem; + mnuViewFlags: TMenuItem; + mnuViewReminders: TMenuItem; + mnuViewRemoteData: TMenuItem; + mnuViewPostings: TMenuItem; + mnuOptimizeFields: TMenuItem; + procedure mnuChartTabClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure lstOrdersDrawItem(Control: TWinControl; Index: Integer; + TheRect: TRect; State: TOwnerDrawState); + procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer; + var AHeight: Integer); + procedure mnuViewActiveClick(Sender: TObject); + procedure hdrOrdersSectionResize(HeaderControl: THeaderControl; + Section: THeaderSection); + procedure mnuViewCustomClick(Sender: TObject); + procedure mnuViewExpiringClick(Sender: TObject); + procedure mnuViewExpiredClick(Sender: TObject); + procedure mnuViewUnsignedClick(Sender: TObject); + procedure mnuViewDetailClick(Sender: TObject); + procedure lstOrdersDblClick(Sender: TObject); + procedure lstWriteClick(Sender: TObject); + procedure mnuActHoldClick(Sender: TObject); + procedure mnuActUnholdClick(Sender: TObject); + procedure mnuActDCClick(Sender: TObject); + procedure mnuActAlertClick(Sender: TObject); + procedure mnuActFlagClick(Sender: TObject); + procedure mnuActUnflagClick(Sender: TObject); + procedure mnuActSignClick(Sender: TObject); + procedure mnuActReleaseClick(Sender: TObject); + procedure mnuActOnChartClick(Sender: TObject); + procedure mnuActCompleteClick(Sender: TObject); + procedure mnuActVerifyClick(Sender: TObject); + procedure mnuViewResultClick(Sender: TObject); + procedure mnuActCommentClick(Sender: TObject); + procedure mnuOptSaveQuickClick(Sender: TObject); + procedure mnuOptEditCommonClick(Sender: TObject); + procedure mnuActCopyClick(Sender: TObject); + procedure mnuActChangeClick(Sender: TObject); + procedure mnuActRenewClick(Sender: TObject); + procedure pnlRightResize(Sender: TObject); + procedure lstSheetsClick(Sender: TObject); + procedure mnuActChartRevClick(Sender: TObject); + procedure mnuViewDfltShowClick(Sender: TObject); + procedure mnuViewDfltSaveClick(Sender: TObject); + procedure mnuViewCurrentClick(Sender: TObject); + procedure mnuViewResultsHistoryClick(Sender: TObject); + procedure btnDelayedOrderClick(Sender: TObject); + procedure mnuActChgEvntClick(Sender: TObject); + procedure mnuActRelClick(Sender: TObject); + procedure EventRealeasedOrder1Click(Sender: TObject); + procedure lblWriteMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure popOrderPopup(Sender: TObject); + procedure mnuViewClick(Sender: TObject); + procedure mnuActClick(Sender: TObject); + procedure mnuOptClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure hdrOrdersMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure hdrOrdersMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ViewInfo(Sender: TObject); + procedure mnuViewInformationClick(Sender: TObject); + procedure mnuOptimizeFieldsClick(Sender: TObject); + procedure hdrOrdersSectionClick(HeaderControl: THeaderControl; + Section: THeaderSection); + procedure sptHorzMoved(Sender: TObject); + private + { Private declarations } + FDfltSort: Integer; + FCurrentView: TOrderView; + FCompress: boolean; + FFromDCRelease: boolean; + FSendDelayOrders: boolean; + FNewEvent: boolean; + FAskForCancel: boolean; + FNeedShowModal: boolean; + FOrderViewForActiveOrders: TOrderView; + FEventForCopyActiveOrders: TOrderDelayEvent; + FEventDefaultOrder : string; + FIsDefaultDlg: boolean; + FHighlightFromMedsTab: integer; + FCalledFromWDO: boolean; //called from Write Delay Orders button + FEvtOrderList: TStringlist; + FEvtColWidth: integer; + FRightAfterWriteOrderBox : boolean; + FDontCheck: boolean; + FParentComplexOrderID: string; + function CanChangeOrderView: Boolean; + function GetEvtIFN(AnIndex: integer): string; + function DisplayDefaultDlgList(ADest: TORListBox; ADlgList: TStringList): boolean; + procedure AddToListBox(AnOrderList: TList); + procedure ExpandEventSection; + procedure CompressEventSection; + procedure ClearOrderSheets; + procedure InitOrderSheets; + procedure DfltViewForEvtDelay; + procedure MakeSelectedList(AList: TList); + function NoneSelected(const ErrMsg: string): Boolean; + procedure ProcessNotifications; + procedure PositionTopOrder(DGroup: Integer); + procedure RedrawOrderList; + procedure RefreshOrderList(FromServer: Boolean; APtEvtID: string = ''); + procedure RetrieveVisibleOrders(AnIndex: Integer); + procedure RemoveSelectedFromChanges(AList: TList); + procedure SetOrderView(AFilter, ADGroup: Integer; const AViewName: string; NotifSort: Boolean); + //procedure SetEvtIFN(var AnEvtIFN: integer); + procedure UseDefaultSort; + procedure SynchListToOrders; +// procedure ActivateDeactiveRenew; + procedure ValidateSelected(const AnAction, WarningMsg, WarningTitle: string); + procedure ViewAlertedOrders(OrderIEN: string; Status: integer; DispGrp: string; + BySvc, InvDate: boolean; Title: string); + procedure UMDestroy(var Message: TMessage); message UM_DESTROY; + function GetStartStopText(StartTime: string; StopTime: string): string; + function GetOrderText(AnOrder: TOrder; Index: integer; Column: integer): string; + function MeasureColumnHeight(AnOrder: TOrder; Index: Integer; Column: integer):integer; + function GetPlainText(AnOrder: TOrder; index: integer):string; + function PatientStatusChanged: boolean; + procedure UMEventOccur(var Message: TMessage); message UM_EVENTOCCUR; + function CheckOrderStatus: boolean; + public + procedure setSectionWidths; //CQ6170 + function getTotalSectionsWidth : integer; //CQ6170 + function AllowContextChange(var WhyNot: string): Boolean; override; + function PlaceOrderForDefaultDialog(ADlgInfo: string; IsDefaultDialog: boolean; AEvent: TOrderDelayEvent): boolean; + function PtEvtCompleted(APtEvtID: integer; APtEvtName: string; FromMeds: boolean = False): boolean; + procedure RefreshToFirstItem; + procedure ChangesUpdate(APtEvtID: string); + procedure GroupChangesUpdate(GrpName: string); + procedure ClearPtData; override; + procedure DisplayPage; override; + procedure InitOrderSheetsForEvtDelay; + procedure ResetOrderPage(AnEvent: TOrderDelayEvent; ADlgLst: TStringList; IsRealeaseNow: boolean); + procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; + procedure SaveSignOrders; + procedure ClickLstSheet; + procedure RequestPrint; override; + procedure InitOrderSheets2(AnItem: string = ''); + procedure SetFontSize( FontSize: integer); override; + property IsDefaultDlg: boolean read FIsDefaultDlg write FIsDefaultDlg; + property SendDelayOrders: Boolean read FSendDelayOrders write FSendDelayOrders; + property NewEvent: Boolean read FNewEvent write FNewEvent; + property NeedShowModal: Boolean read FNeedShowModal write FNeedShowModal; + property AskForCancel: Boolean read FAskForCancel write FAskForCancel; + property EventDefaultOrder: string read FEventDefaultOrder write FEventDefaultOrder; + property TheCurrentView: TOrderView read FCurrentView; + property HighlightFromMedsTab: integer read FHighlightFromMedsTab write FHighlightFromMedsTab; + property CalledFromWDO: boolean read FCalledFromWDO; + property EvtOrderList: TStringlist read FEvtOrderList write FEvtOrderList; + property FromDCRelease: boolean read FFromDCRelease write FFromDCRelease; + property EvtColWidth: integer read FEvtColWidth write FEvtColWidth; + property DontCheck: boolean read FDontCheck write FDontCheck; + property ParentComplexOrderID: string read FParentComplexOrderID write FParentComplexOrderID; + end; + +type + arOrigSecWidths = array[0..9] of integer; //CQ6170 + +var + frmOrders: TfrmOrders; + + origWidths: arOrigSecWidths; //CQ6170 + +implementation + +uses fFrame, fEncnt, fOrderVw, fRptBox, fLkUpLocation, fOrdersDC, fOrdersCV, fOrdersHold, fOrdersUnhold, + fOrdersAlert, fOrderFlag, fOrderUnflag, fOrdersSign, fOrdersRelease, fOrdersOnChart, fOrdersEvntRelease, + fOrdersComplete, fOrdersVerify, fOrderComment, fOrderSaveQuick, fOrdersRenew,fODReleaseEvent, + fOMNavA, rCore, fOCSession, fOrdersPrint, fOrdersTS, fEffectDate, fODActive, fODChild, + fOrdersCopy, fOMVerify, fODAuto, rODBase, uODBase, rMeds,fODValidateAction, fMeds, uInit, fBALocalDiagnoses, + fODConsult, fClinicWardMeds, fActivateDeactivate; + +{$R *.DFM} + +const + FROM_SELF = False; + FROM_SERVER = True; + OVS_CATINV = 0; + OVS_CATFWD = 1; + OVS_INVERSE = 2; + OVS_FORWARD = 3; + STS_ACTIVE = 2; + STS_DISCONTINUED = 3; + STS_COMPLETE = 4; + STS_EXPIRING = 5; + STS_RECENT = 6; + STS_UNVERIFIED = 8; + STS_UNVER_NURSE = 9; + STS_UNSIGNED = 11; + STS_FLAGGED = 12; + STS_HELD = 18; + STS_NEW = 19; + STS_CURRENT = 23; + STS_EXPIRED = 27; + FM_DATE_ONLY = 7; + CT_ORDERS = 4; // chart tab - doctor's orders + + TX_NO_HOLD = CRLF + CRLF + '- cannot be placed on hold.' + CRLF + CRLF + 'Reason: '; + TC_NO_HOLD = 'Unable to Hold'; + TX_NO_UNHOLD = CRLF + CRLF + '- cannot be released from hold.' + CRLF + CRLF + 'Reason: '; + TC_NO_UNHOLD = 'Unable to Release from Hold'; + TX_NO_DC = CRLF + CRLF + '- cannot be discontinued.' + CRLF + CRLF + 'Reason: '; + TC_NO_DC = 'Unable to Discontinue'; + TX_NO_CV = CRLF + 'The release event cannot be changed.' + CRLF + CRLF + 'Reason: '; + TC_NO_CV = 'Unable to Change Release Event'; + TX_NO_ALERT = CRLF + CRLF + '- cannot be set to send an alert.' + CRLF + CRLF + 'Reason: '; + TC_NO_ALERT = 'Unable to Set Alert'; + TX_NO_FLAG = CRLF + CRLF + '- cannot be flagged.' + CRLF + CRLF + 'Reason: '; + TC_NO_FLAG = 'Unable to Flag Order'; + TX_NO_UNFLAG = CRLF + CRLF + '- cannot be unflagged.' + CRLF + CRLF + 'Reason: '; + TC_NO_UNFLAG = 'Unable to Unflag Order'; + TX_NO_SIGN = CRLF + CRLF + '- cannot be signed.' + CRLF + CRLF + 'Reason: '; + TC_NO_SIGN = 'Unable to Sign Order'; + TX_NO_REL = CRLF + 'Cannot be released to the service(s).' + CRLF + CRLF + 'Reason: '; + TC_NO_REL = 'Unable to be Released to Service'; + TX_NO_CHART = CRLF + CRLF + '- cannot be marked "Signed on Chart".' + CRLF + CRLF + 'Reason: '; + TC_NO_CHART = 'Unable to Release Orders'; + TX_NO_CPLT = CRLF + CRLF + '- cannot be completed.' + CRLF + CRLF + 'Reason: '; + TC_NO_CPLT = 'Unable to Complete'; + TX_NO_VERIFY = CRLF + CRLF + '- cannot be verified.' + CRLF + CRLF + 'Reason: '; + TC_NO_VERIFY = 'Unable to Verify'; + TX_NO_CMNT = CRLF + CRLF + '- cannot have comments edited.' + CRLF + CRLF + 'Reason: '; + TC_NO_CMNT = 'Unable to Edit Comments'; + TX_NO_RENEW = CRLF + CRLF + '- cannot be changed.' + CRLF + CRLF + 'Reason: '; + TC_NO_RENEW = 'Unable to Renew Order'; + TX_LOC_PRINT = 'The selected location will be used to determine where orders are printed.'; + TX_PRINT_LOC = 'A location must be selected to print orders.'; + TX_REL_LOC = 'A location must be selected to release orders.'; + TX_CHART_LOC = 'A location must be selected to mark orders "signed on chart".'; + TX_SIGN_LOC = 'A location must be selected to sign orders.'; + TC_REQ_LOC = 'Location Required'; + TX_NOSEL = 'No orders are highlighted. Highlight the orders' + CRLF + + 'you wish to take action on.'; + TX_NOSEL_SIGN = 'No orders are highlighted. Highlight orders you want to sign or' + CRLF + + 'use Review/Sign Changes (File menu) to sign all orders written' + CRLF + + 'in this session.'; + TC_NOSEL = 'No Orders Selected'; + TX_NOCHG_VIEW = 'The view of orders may not be changed while an ordering dialog is' + CRLF + + 'active for an event-delayed order.'; + TC_NOCHG_VIEW = 'Order View Restriction'; + TX_DELAY1 = 'Now writing orders for '; + TC_DELAY = 'Ordering Information'; + TX_BAD_TYPE = 'This item is a type that is not supported in the graphical interface.'; + TC_BAD_TYPE = 'Unsupported Ordering Item'; + TC_VWSAVE = 'Save Default Order View'; + TX_VWSAVE1 = 'The current order view is: ' + CRLF + CRLF; + TX_VWSAVE2 = CRLF + CRLF + 'Do you wish to save this as your default view?'; + TX_NO_COPY = CRLF + CRLF + '- cannot be copied.' + CRLF + CRLF + 'Reason: '; + TC_NO_COPY = 'Unable to Copy Order'; + TX_NO_CHANGE = CRLF + CRLF + '- cannot be changed' + CRLF + CRLF + 'Reason: '; + TC_NO_CHANGE = 'Unable to Change Order'; + TX_COMPLEX = 'You can not take this action on a complex medication.' + #13 + 'You must enter a new order.'; + TX_CMPTEVT = ' occurred since you started writing delayed orders. ' + + 'The orders that were entered and signed have now been released. ' + + 'Any unsigned orders will be released immediately upon signature. ' + + #13#13 + + 'To write new delayed orders for this event you need to click the write delayed orders button again and select the appropriate event. ' + + 'Orders delayed to this same event will remain delayed until the event occurs again.' + + #13#13 + + 'The Orders tab will now be refreshed and switched to the Active Orders view. ' + + 'If you wish to continue to write active orders for this patient, ' + + 'close this message window and continue as usual.'; + TX_CMPTEVT_MEDSTAB = ' occurred since you started writing delayed orders. ' + + 'The orders that were entered and signed have now been released. ' + + 'Any unsigned orders will be released immediately upon signature. ' + + #13#13 + + 'To write new delayed orders for this event you need to click the write delayed orders button on the orders tab and select the appropriate event. ' + + 'Orders delayed to this same event will remain delayed until the event occurs again.'; + +var + uOrderList: TList; + uEvtDCList, uEvtRLList: TList; + +{ TPage common methods --------------------------------------------------------------------- } + +function TfrmOrders.AllowContextChange(var WhyNot: string): Boolean; +begin + Result := inherited AllowContextChange(WhyNot); // sets result = true + case BOOLCHAR[frmFrame.CCOWContextChanging] of + '1': if ActiveOrdering then + begin + WhyNot := 'Orders in progress will be discarded.'; + Result := False; + end; + '0': Result := CloseOrdering; // call in uOrders, should move to fFrame + end; +end; + +procedure TfrmOrders.ClearPtData; +begin + inherited ClearPtData; + lstOrders.Clear; + ClearOrderSheets; + ClearOrders(uOrderList); + if uEvtDCList <> nil then + uEvtDCList.Clear; + if uEvtRLList <> nil then + uEvtRLList.Clear; + ClearFillerAppList; +end; + +procedure TfrmOrders.DisplayPage; +var + i: Integer; +begin + inherited DisplayPage; + frmFrame.ShowHideChartTabMenus(mnuViewChart); + frmFrame.mnuFilePrint.Tag := CT_ORDERS; + frmFrame.mnuFilePrint.Enabled := True; + frmFrame.mnuFilePrintSetup.Enabled := True; + if InitPage then + begin + // set visibility according to order role + mnuActComplete.Visible := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK) or + (User.OrderRole = OR_PHYSICIAN); + mnuActVerify.Visible := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK); + popOrderVerify.Visible := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK); + sepOrderVerify.Visible := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK); + mnuActChartRev.Visible := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK); + popOrderChartRev.Visible := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK); + mnuActRelease.Visible := User.OrderRole = OR_NURSE; + mnuActOnChart.Visible := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK); + mnuActSign.Visible := User.OrderRole = OR_PHYSICIAN; + popOrderSign.Visible := User.OrderRole = OR_PHYSICIAN; + mnuActRel.Visible := False; + popOrderRel.Visible := False; + // now set enabled/disabled according to parameters + // popup items that apply to ordering have tag>0 + with mnuAct do + for i := 0 to Pred(Count) do + Items[i].Enabled := not User.NoOrdering; + with popOrder.Items do + for i := 0 to Pred(Count) do + if Items[i].Tag > 0 then Items[i].Enabled := not User.NoOrdering; + // set nurse verification actions (may be enabled when ordering disabled) + mnuActVerify.Enabled := User.EnableVerify; + mnuActChartRev.Enabled := User.EnableVerify; + popOrderVerify.Enabled := User.EnableVerify; + popOrderChartRev.Enabled := User.EnableVerify; + if User.DisableHold then + begin + mnuActHold.Visible := False; + mnuActUnhold.Visible := False; + end; + end; + AskForCancel := true; + if InitPatient then // for both CC_INIT_PATIENT and CC_NOTIFICATION + begin + if not User.NoOrdering then LoadWriteOrders(lstWrite.Items) else lstWrite.Clear; + InitOrderSheets; + end; + case CallingContext of + CC_INIT_PATIENT: mnuViewDfltShowClick(Self); // when new patient but not doing notifications + CC_NOTIFICATION: ProcessNotifications; // when new patient and doing notifications + end; +end; + +procedure TfrmOrders.mnuChartTabClick(Sender: TObject); +begin + inherited; + frmFrame.mnuChartTabClick(Sender); +end; + +procedure TfrmOrders.NotifyOrder(OrderAction: Integer; AnOrder: TOrder); +var + OrderForList: TOrder; + IndexOfOrder, ReturnedType, CanSign, i: Integer; + j: integer; + AChildList: TStringlist; + CplxOrderID: string; + + procedure RemoveFromOrderList(ChildOrderID: string); + var + ij: integer; + begin + for ij := uOrderList.Count - 1 downto 0 do + begin + if TOrder(uOrderList[ij]).ID = ChildOrderID then + uOrderList.Remove(TOrder(uOrderList[ij])); + end; + end; + +begin +// if FCurrentView = nil then {**REV**} +// begin {**REV**} +// FCurrentView := TOrderView.Create; {**REV**} +// with FCurrentView do {**REV**} +// begin {**REV**} +// InvChrono := True; {**REV**} +// ByService := True; {**REV**} +// end; {**REV**} +// end; {**REV**} + if FCurrentView = nil then Exit; + case OrderAction of + ORDER_NEW: if AnOrder.ID <> '' then + begin + OrderForList := TOrder.Create; + OrderForList.Assign(AnOrder); + uOrderList.Add(OrderForList); + FCompress := True; + RefreshOrderList(FROM_SELF); + //PositionTopOrder(AnOrder.DGroup); + PositionTopOrder(0); // puts new orders on top + lstOrders.Invalidate; + end; + ORDER_DC: begin + IndexOfOrder := -1; + with lstOrders do for i := 0 to Items.Count - 1 do + if TOrder(Items.Objects[i]).ID = AnOrder.ID then IndexOfOrder := i; + if IndexOfOrder > -1 + then OrderForList := TOrder(lstOrders.Items.Objects[IndexOfOrder]) + else OrderForList := AnOrder; + if (Encounter.Provider = User.DUZ) and User.CanSignOrders + then CanSign := CH_SIGN_YES + else CanSign := CH_SIGN_NA; + DCOrder(OrderForList, GetReqReason, ReturnedType); + Changes.Add(CH_ORD, OrderForList.ID, OrderForList.Text, '', CanSign); + FCompress := True; + SynchListToOrders; + end; + ORDER_EDIT: with lstOrders do + begin + IndexOfOrder := -1; + for i := 0 to Items.Count - 1 do + if TOrder(Items.Objects[i]).ID = AnOrder.EditOf then IndexOfOrder := i; + if IndexOfOrder > -1 then + begin + TOrder(Items.Objects[IndexOfOrder]).Assign(AnOrder); + end; {if IndexOfOrder} + //RedrawOrderList; {redraw here appears to clear selected} + end; {with lstOrders} + ORDER_ACT: begin + if IsComplexOrder(AnOrder.ID) then + begin + RefreshOrderList(FROM_SERVER); + exit; + end; + with lstOrders do + begin + IndexOfOrder := -1; + for i := 0 to Items.Count - 1 do + if TOrder(Items.Objects[i]).ID = Piece(AnOrder.ActionOn, '=', 1) then IndexOfOrder := i; + if (IndexOfOrder > -1) and (AnOrder <> Items.Objects[IndexOfOrder]) then + begin + TOrder(Items.Objects[IndexOfOrder]).Assign(AnOrder); + end; {if IndexOfOrder} + FCompress := True; + RedrawOrderList; + end; {with lstOrders} + end; //PSI-COMPLEX + ORDER_CPLXRN: begin + AChildList := TStringList.Create; + CplxOrderID := Piece(AnOrder.ActionOn,'=',1); + GetChildrenOfComplexOrder(CplxOrderID, Piece(CplxOrderID,';',2), AChildList); + with lstOrders do + begin + for i := Items.Count-1 downto 0 do + begin + for j := 0 to AChildList.Count - 1 do + begin + if TOrder(Items.Objects[i]).ID = AChildList[j] then + begin + RemoveFromOrderList(AChildList[j]); + Items.Objects[i].Free; + Items.Delete(i); + Break; + end; + end; + end; + Items.InsertObject(0,AnOrder.Text,AnOrder); + Items[0] := GetPlainText(AnOrder,0); + uOrderList.Insert(0,AnOrder); + end; + FCompress := True; + RedrawOrderList; + AChildList.Clear; + AChildList.Free; + end; + ORDER_SIGN: begin + FCompress := True; + SaveSignOrders; // sent when orders signed, AnOrder=nil + end; + end; {case} +end; + +{ Form events ------------------------------------------------------------------------------ } + +procedure TfrmOrders.FormCreate(Sender: TObject); +begin + inherited; + PageID := CT_ORDERS; + lstOrders.Color := ReadOnlyColor; + uOrderList := TList.Create; + uEvtDCList := TList.Create; + uEvtRLList := TList.Create; + FDfltSort := OVS_CATINV; + FCompress := False; + FFromDCRelease := False; + FSendDelayOrders := False; + FNewEvent := False; + FNeedShowModal := False; + FAskForCancel := True; + FRightAfterWriteOrderBox := False; + FEventForCopyActiveOrders.EventType := #0; + FEventForCopyActiveOrders.EventIFN := 0; + FHighlightFromMedsTab := 0; + FCalledFromWDO := False; + FEvtOrderList := TStringList.Create; + FEvtColWidth := 0; + FDontCheck := False; + FParentComplexOrderID := ''; +end; + +procedure TfrmOrders.FormDestroy(Sender: TObject); +begin + inherited; + ClearOrders(uOrderList); + uEvtDCList.Clear; + uEvtRLList.Clear; + ClearOrderSheets; + FEvtOrderList.Free; + uEvtDCList.Free; + uEvtRLList.Free; + uOrderList.Free; + if FOrderViewForActiveOrders <> nil then FOrderViewForActiveOrders := nil; + FEventForCopyActiveOrders.EventType := #0; + FEventForCopyActiveOrders.EventIFN := 0; + FEventForCopyActiveOrders.EventName := ''; +end; + +procedure TfrmOrders.UMDestroy(var Message: TMessage); +{ sent by ordering dialog when it is closing } +begin + lstWrite.ItemIndex := -1; + //UnlockIfAble; // - already in uOrders +end; + +{ View menu events ------------------------------------------------------------------------- } + +procedure TfrmOrders.PositionTopOrder(DGroup: Integer); +const + SORT_FWD = 0; + SORT_REV = 1; + SORT_GRP_FWD = 2; + SORT_GRP_REV = 3; +var + i, Seq: Integer; + AnOrder: TOrder; +begin + with lstOrders do + begin + case (Ord(FCurrentView.ByService) * 2) + Ord(FCurrentView.InvChrono) of + SORT_FWD: TopIndex := Items.Count - 1; + SORT_REV: TopIndex := 0; + SORT_GRP_FWD: begin + Seq := SeqOfDGroup(DGroup); + for i := Items.Count - 1 downto 0 do + begin + AnOrder := TOrder(Items.Objects[i]); + if AnOrder.DGroupSeq <= Seq then break; + end; + TopIndex := i; + end; + SORT_GRP_REV: begin + Seq := SeqOfDGroup(DGroup); + for i := 0 to Items.Count - 1 do + begin + AnOrder := TOrder(Items.Objects[i]); + if AnOrder.DGroupSeq >= Seq then break; + end; + TopIndex := i; + end; + end; {case} + end; {with} +end; + +procedure TfrmOrders.RedrawOrderList; +{ redraws the Orders list, compensates for changes in item height by re-adding everything } +var + i, SaveTop: Integer; + AnOrder: TOrder; +begin + with lstOrders do + begin + RedrawSuspend(Handle); + SaveTop := TopIndex; + Clear; + for i := 0 to uOrderList.Count - 1 do + begin + AnOrder := TOrder(uOrderList.Items[i]); + if (AnOrder.OrderTime <= 0) then + Continue; + Items.AddObject(AnOrder.ID, AnOrder); + Items[i] := GetPlainText(AnOrder,i); + end; + TopIndex := SaveTop; + RedrawActivate(Handle); + end; +end; + +procedure TfrmOrders.RefreshOrderList(FromServer: Boolean; APtEvtID: string); +var + i: Integer; +begin + with FCurrentView do + begin + if EventDelay.EventIFN > 0 then + FCompress := False; + RedrawSuspend(lstOrders.Handle); + lstOrders.Clear; + if FromServer then + begin + StatusText('Retrieving orders list...'); + if not FFromDCRelease then + LoadOrdersAbbr(uOrderList, FCurrentView, APtEvtID) + else + begin + ClearOrders(uOrderList); + uEvtDCList.Clear; + uEvtRLList.Clear; + LoadOrdersAbbr(uEvtDCList,uEvtRLList,FCurrentView,APtEvtID); + end; + end; + if ((Length(APtEvtID)>0) or (FCurrentView.Filter in [15,16,17,24]) or (FCurrentView.EventDelay.PtEventIFN>0)) + and ((not FCompress) or (lstSheets.ItemIndex<0)) and (not FFromDCRelease) then ExpandEventSection + else CompressEventSection; + if not FFromDCRelease then + begin + if FRightAfterWriteOrderBox and (EventDelay.EventIFN>0) then + begin + SortOrders(uOrderList,False,True); + FRightAfterWriteOrderBox := False; + end else + SortOrders(uOrderList, ByService, InvChrono); + AddToListBox(uOrderList); + end; + if FFromDCRelease then + begin + if uEvtRLList.Count > 0 then + begin + SortOrders(uEvtRLList,True,True); + for i := 0 to uEvtRLList.Count - 1 do + uOrderList.Add(TOrder(uEvtRLList[i])); + end; + if uEvtDCList.Count > 0 then + begin + SortOrders(uEvtDCList,True,True); + for i := 0 to uEvtDCList.Count - 1 do + uOrderList.Add(TOrder(uEvtDCList[i])); + end; + AddToListBox(uOrderList); + end; + RedrawActivate(lstOrders.Handle); + lblOrders.Caption := ViewName; + lstOrders.Caption := ViewName; + imgHide.Visible := not ((Filter in [1, 2]) and (DGroup = DGroupAll)); + StatusText(''); + end; +end; + +procedure TfrmOrders.UseDefaultSort; +begin + with FCurrentView do + case FDfltSort of + OVS_CATINV: begin + InvChrono := True; + ByService := True; + end; + OVS_CATFWD: begin + InvChrono := False; + ByService := True; + end; + OVS_INVERSE: begin + InvChrono := True; + ByService := False; + end; + OVS_FORWARD: begin + InvChrono := False; + ByService := False; + end; + end; +end; + +function TfrmOrders.CanChangeOrderView: Boolean; +{ Disallows changing view while doing delayed release orders. } +begin + Result := True; + if (lstSheets.ItemIndex > 0) and ActiveOrdering then + begin + InfoBox(TX_NOCHG_VIEW, TC_NOCHG_VIEW, MB_OK); + Result := False; + end; +end; + +procedure TfrmOrders.SetOrderView(AFilter, ADGroup: Integer; const AViewName: string; + NotifSort: Boolean); +{ sets up a 'canned' order view, assumes the date range is never restricted } +var + tmpDate: TDateTime; +begin + if not CanChangeOrderView then Exit; + lstSheets.ItemIndex := 0; + FCurrentView := TOrderView(lstSheets.Items.Objects[0]); + if FCurrentView = nil then + FCurrentView := TOrderView.Create; + with FCurrentView do + begin + TimeFrom := 0; + TimeThru := 0; + if NotifSort then + begin + ByService := False; + InvChrono := True; + if AFilter = STS_RECENT then + begin + tmpDate := Trunc(FMDateTimeToDateTime(StrToFMDateTime(Piece(Piece(Notifications.RecordID, U, 2), ';', 3)))); + TimeFrom := DateTimeToFMDateTime(tmpDate - 5); + TimeThru := FMNow; + end; + if AFilter = STS_UNVERIFIED then + begin + if Patient.AdmitTime > 0 then + tmpDate := Trunc(FMDateTimeToDateTime(Patient.AdmitTime)) + else + tmpdate := Trunc(FMDateTimeToDateTime(FMNow)) - 30; + TimeFrom := DateTimeToFMDateTime(tmpDate); + TimeThru := FMNow; + end; + end + else UseDefaultSort; + if AFilter = STS_EXPIRED then + begin + TimeFrom := ExpiredOrdersStartDT; + TimeThru := FMNow; + end; + Filter := AFilter; + DGroup := ADGroup; + CtxtTime := 0; + TextView := 0; + ViewName := AViewName; + lstSheets.Items[0] := 'C;0^' + ViewName; + EventDelay.EventType := 'C'; + EventDelay.Specialty := 0; + EventDelay.Effective := 0; + end; + RefreshOrderList(FROM_SERVER); +end; + +procedure TfrmOrders.mnuViewActiveClick(Sender: TObject); +begin + inherited; + SetOrderView(STS_ACTIVE, DGroupAll, 'Active Orders (includes Pending & Recent Activity) - ALL SERVICES', False); +end; + +procedure TfrmOrders.mnuViewCurrentClick(Sender: TObject); +begin + inherited; + SetOrderView(STS_CURRENT, DGroupAll, 'Current Orders (Active & Pending Status Only) - ALL SERVICES', False); +end; + +procedure TfrmOrders.mnuViewExpiringClick(Sender: TObject); +begin + inherited; + SetOrderView(STS_EXPIRING, DGroupAll, 'Expiring Orders - ALL SERVICES', False); +end; + +procedure TfrmOrders.mnuViewExpiredClick(Sender: TObject); +begin + inherited; + SetOrderView(STS_EXPIRED, DGroupAll, 'Recently Expired Orders - ALL SERVICES', False); +end; + +procedure TfrmOrders.mnuViewUnsignedClick(Sender: TObject); +begin + inherited; + SetOrderView(STS_UNSIGNED, DGroupAll, 'Unsigned Orders - ALL SERVICES', False); +end; + +procedure TfrmOrders.mnuViewCustomClick(Sender: TObject); +var + AnOrderView: TOrderView; +begin + inherited; + if not CanChangeOrderView then Exit; + AnOrderView := TOrderView.Create; + AnOrderView.Filter := STS_ACTIVE; + AnOrderView.DGroup := DGroupAll; + AnOrderView.ViewName := 'All Services, Active'; + AnOrderView.InvChrono := True; + AnOrderView.ByService := True; + AnOrderView.CtxtTime := 0; + AnOrderView.TextView := 0; + AnOrderView.EventDelay.EventType := 'C'; + AnOrderView.EventDelay.Specialty := 0; + AnOrderView.EventDelay.Effective := 0; + AnOrderView.EventDelay.EventIFN := 0; + AnOrderView.EventDelay.EventName := 'All Services, Active'; + SelectOrderView(AnOrderView); + with AnOrderView do if Changed then + begin + FCurrentView := AnOrderView; + if FCurrentView.Filter in [15,16,17,24] then + begin + FCompress := False; + mnuActRel.Visible := True; + popOrderRel.Visible := True; + end else + begin + mnuActRel.Visible := False; + popOrderRel.Visible := False; + end; + + lstSheets.ItemIndex := -1; + lblWrite.Caption := 'Write Orders'; + lstWrite.Clear; + lstWrite.Caption := lblWrite.Caption; + LoadWriteOrders(lstWrite.Items); + RefreshOrderList(FROM_SERVER); + + if ByService then + begin + if InvChrono then FDfltSort := OVS_CATINV else FDfltSort := OVS_CATFWD; + end else + begin + if InvChrono then FDfltSort := OVS_INVERSE else FDfltSort := OVS_FORWARD; + end; + end; +end; + +procedure TfrmOrders.mnuViewDfltShowClick(Sender: TObject); +begin + inherited; + if not CanChangeOrderView then Exit; + if HighlightFromMedsTab > 0 then + lstSheets.ItemIndex := lstSheets.SelectByIEN(HighlightFromMedsTab); + if lstSheets.ItemIndex < 0 then + lstSheets.ItemIndex := 0; + FCurrentView := TOrderView(lstSheets.Items.Objects[lstSheets.ItemIndex]); + LoadOrderViewDefault(TOrderView(lstSheets.Items.Objects[0])); + lstSheets.Items[0] := 'C;0^' + TOrderView(lstSheets.Items.Objects[0]).ViewName; + if lstSheets.ItemIndex > 0 then + lstSheetsClick(Application) + else + RefreshOrderList(FROM_SERVER); + if HighlightFromMedsTab > 0 then + HighlightFromMedsTab := 0; +end; + +procedure TfrmOrders.mnuViewDfltSaveClick(Sender: TObject); +var + x: string; +begin + inherited; + with FCurrentView do + begin + x := Piece(Viewname, '(', 1) + CRLF; + if TimeFrom > 0 then x := x + 'From: ' + MakeRelativeDateTime(TimeFrom); + if TimeThru > 0 then x := x + ' Thru: ' + MakeRelativeDateTime(TimeThru); + if InvChrono + then x := x + CRLF + 'Sort order dates in reverse chronological order' + else x := x + CRLF + 'Sort order dates in chronological order'; + if ByService + then x := x + CRLF + 'Group orders by service' + else x := x + CRLF + 'Don''t group orders by service'; + end; + if InfoBox(TX_VWSAVE1 + x + TX_VWSAVE2, TC_VWSAVE, MB_YESNO) = IDYES + then SaveOrderViewDefault(FCurrentView); +end; + +procedure TfrmOrders.mnuViewDetailClick(Sender: TObject); +var + i,j,idx: Integer; + tmpList: TStringList; + BigOrderID: string; + AnOrderID: string; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + tmpList := TStringList.Create; + idx := 0; + try + with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then + begin + StatusText('Retrieving order details...'); + BigOrderID := TOrder(Items.Objects[i]).ID; + AnOrderID := Piece(BigOrderID, ';', 1); + if StrToIntDef(AnOrderID,0) = 0 then + ShowMessage('Detail view is not available for selected order.') + else + begin + tmpList.Assign(DetailOrder(BigOrderID)); + if ((TOrder(Items.Objects[i]).DGroupName = 'Inpt. Meds') or + (TOrder(Items.Objects[i]).DGroupName = 'Out. Meds') or + (TOrder(Items.Objects[i]).DGroupName = 'Clin. Orders') or + (TOrder(Items.Objects[i]).DGroupName = 'Infusion')) then + begin + tmpList.Add(''); + tmpList.Add(StringOfChar('=', 74)); + tmpList.Add(''); + tmpList.AddStrings(MedAdminHistory(AnOrderID)); + end; + + if CheckOrderGroup(AnOrderID)=1 then // if it's UD group + begin + for j := 0 to tmpList.Count - 1 do + begin + if Pos('PICK UP',UpperCase(tmpList[j]))>0 then + begin + idx := j; + Break; + end; + end; + if idx > 0 then + tmpList.Delete(idx); + end; + ReportBox(tmpList, 'Order Details - ' + BigOrderID, True); + end; + StatusText(''); + if (frmFrame.TimedOut) or (frmFrame.CCOWDrivedChange) then Exit; //code added to correct access violation on timeout + Selected[i] := False; + end; + finally + tmpList.Free; + end; +end; + +procedure TfrmOrders.mnuViewResultClick(Sender: TObject); +var + i: Integer; + BigOrderID: string; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then + begin + StatusText('Retrieving order results...'); + BigOrderID := TOrder(Items.Objects[i]).ID; + if Length(Piece(BigOrderID,';',1)) > 0 then + ReportBox(ResultOrder(BigOrderID), 'Order Results - ' + BigOrderID, True); + Selected[i] := False; + StatusText(''); + end; +end; + +procedure TfrmOrders.mnuViewResultsHistoryClick(Sender: TObject); +var + i: Integer; + BigOrderID: string; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then + begin + StatusText('Retrieving order results...'); + BigOrderID := TOrder(Items.Objects[i]).ID; + if Length(Piece(BigOrderID,';',1)) > 0 then + ReportBox(ResultOrderHistory(BigOrderID), 'Order Results History- ' + BigOrderID, True); + Selected[i] := False; + StatusText(''); + end; +end; + +{ lstSheets events ------------------------------------------------------------------------- } + +procedure TfrmOrders.ClearOrderSheets; +{ delete all order sheets & associated TOrderView objects, set current view to nil } +var + i: Integer; +begin + with lstSheets do for i := 0 to Items.Count - 1 do TOrderView(Items.Objects[i]).Free; + lstSheets.Clear; + FCurrentView := nil; +end; + +procedure TfrmOrders.InitOrderSheets; +{ sets up list of order sheets based on what orders are on the server in delayed status for pt } +var + i: Integer; + AnEventInfo: String; + AnOrderView: TOrderView; +begin + ClearOrderSheets; + LoadOrderSheetsED(lstSheets.Items); + // the 1st item in lstSheets should always be the 'Current' view + if CharAt(lstSheets.Items[0], 1) <> 'C' then Exit; + AnOrderView := TOrderView.Create; + AnOrderView.Filter := STS_ACTIVE; + AnOrderView.DGroup := DGroupAll; + AnOrderView.ViewName := 'All Services, Active'; + AnOrderView.InvChrono := True; + AnOrderView.ByService := True; + AnOrderView.CtxtTime := 0; + AnOrderView.TextView := 0; + AnOrderView.EventDelay.EventType := 'C'; + AnOrderView.EventDelay.Specialty := 0; + AnOrderView.EventDelay.Effective := 0; + AnOrderView.EventDelay.EventIFN := 0; + AnOrderView.EventDelay.EventName := 'All Services, Active'; + lstSheets.Items.Objects[0] := AnOrderView; + FCurrentView := AnOrderView; + FOrderViewForActiveOrders := AnOrderView; + // now setup the event-delayed views in lstSheets, each with its own TOrderView object + with lstSheets do for i := 1 to Items.Count - 1 do + begin + AnOrderView := TOrderView.Create; + AnOrderView.DGroup := DGroupAll; + AnEventInfo := EventInfo(Piece(Items[i],'^',1)); + AnOrderView.EventDelay.EventType := CharAt(AnEventInfo, 1); + AnOrderView.EventDelay.EventIFN := StrToInt(Piece(AnEventInfo,'^',2)); + AnOrderView.EventDelay.EventName := Piece(AnEventInfo,'^',3); + AnOrderView.EventDelay.Specialty := 0; + AnOrderView.EventDelay.Effective := 0; + case AnOrderView.EventDelay.EventType of + 'A': AnOrderView.Filter := 15; + 'D': AnOrderView.Filter := 16; + 'T': AnOrderView.Filter := 17; + end; + AnOrderView.ViewName := DisplayText[i] + ' Orders'; + AnOrderView.InvChrono := FCurrentView.InvChrono; + AnOrderView.ByService := FCurrentView.ByService; + AnOrderView.CtxtTime := 0; + AnOrderView.TextView := 0; + Items.Objects[i] := AnOrderView; + end; {for} + lblWrite.Caption := 'Write Orders'; + lstWrite.Caption := lblWrite.Caption; +end; + +procedure TfrmOrders.lstSheetsClick(Sender: TObject); +const + TX_EVTDEL = 'There are no orders tied to this event, would you like to cancel it?'; +var + AnOrderView: TOrderView; + APtEvtId: string; +begin + inherited; + if not CloseOrdering then Exit; + FCompress := True; + if lstSheets.ItemIndex < 0 then Exit; + with lstSheets do + begin + AnOrderView := TOrderView(Items.Objects[ItemIndex]); + AnOrderView.EventDelay.PtEventIFN := StrToIntDef(Piece(Items[lstSheets.ItemIndex],'^',1),0); + if AnOrderView.EventDelay.PtEventIFN > 0 then + FCompress := False; + end; + + if (FCurrentView <> nil) and (AnOrderView.EventDelay.EventIFN <> FCurrentView.EventDelay.EventIFN) and (FCurrentView.EventDelay.EventIFN > 0 ) then + begin + APtEvtID := IntToStr(FCurrentView.EventDelay.PtEventIFN); + if frmMeds.ActionOnMedsTab then + Exit; + if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; + if (not FDontCheck) and DeleteEmptyEvt(APtEvtID, FCurrentView.EventDelay.EventName) then + begin + ChangesUpdate(APtEvtID); + FCompress := True; + InitOrderSheetsForEvtDelay; + lstSheets.ItemIndex := 0; + lstSheetsClick(self); + Exit; + end; + end; + + if (FCurrentView = nil) or (AnOrderView <> FCurrentView) or ((AnOrderView=FcurrentView) and (FCurrentView.EventDelay.EventIFN>0)) then + begin + FCurrentView := AnOrderView; + if FCurrentView.EventDelay.EventIFN > 0 then + begin + FCompress := False; + lstWrite.Items.Clear; + lblWrite.Caption := 'Write ' + FCurrentView.ViewName; + lstWrite.Caption := lblWrite.Caption; + lstWrite.Items.Clear; + LoadWriteOrdersED(lstWrite.Items, IntToStr(AnOrderView.EventDelay.EventIFN)); + if lstWrite.Items.Count < 1 then + LoadWriteOrders(lstWrite.Items); + RefreshOrderList(FROM_SERVER,Piece(lstSheets.Items[lstSheets.ItemIndex],'^',1)); + mnuActRel.Visible := True; + popOrderRel.Visible := True; + if (lstOrders.Items.Count = 0) and (not NewEvent) then + begin + if frmMeds.ActionOnMedsTab then + Exit; + if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; + if PtEvtEmpty(Piece(lstSheets.Items[lstSheets.ItemIndex],'^',1)) then + begin + if (FAskForCancel) and ( InfoBox(TX_EVTDEL, 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES ) then + begin + DeletePtEvent(Piece(lstSheets.Items[lstSheets.ItemIndex],'^',1)); + FCompress := True; + lstSheets.Items.Objects[lstSheets.ItemIndex].Free; + lstSheets.Items.Delete(lstSheets.ItemIndex); + FCurrentView := TOrderView.Create; + lstSheets.ItemIndex := 0; + lstSheetsClick(self); + Exit; + end; + end; + end; + if NewEvent then + NewEvent := False; + end + else + begin + NewEvent := False; + mnuActRel.Visible := False; + popOrderRel.Visible := False; + lblWrite.Caption := 'Write Orders'; + lstWrite.Caption := lblWrite.Caption; + LoadWriteOrders(lstWrite.Items); + RefreshOrderList(FROM_SERVER); + end; + end else + begin + mnuActRel.Visible := False; + popOrderRel.Visible := False; + lblWrite.Caption := 'Write Orders'; + lstWrite.Caption := lblWrite.Caption; + LoadWriteOrders(lstWrite.Items); + RefreshOrderList(FROM_SERVER); + end; + FCompress := True; +end; + +{ lstOrders events ------------------------------------------------------------------------- } + +procedure TfrmOrders.RetrieveVisibleOrders(AnIndex: Integer); +var + i: Integer; + tmplst: TList; + AnOrder: TOrder; +begin + tmplst := TList.Create; + for i := AnIndex to AnIndex + 100 do + begin + if i >= uOrderList.Count then break; + AnOrder := TOrder(uOrderList.Items[i]); + if not AnOrder.Retrieved then tmplst.Add(AnOrder); + end; + RetrieveOrderFields(tmplst, FCurrentView.TextView, FCurrentView.CtxtTime); + tmplst.Free; +end; + +function TfrmOrders.GetPlainText(AnOrder: TOrder; index: integer):string; +var + i: integer; + FirstColumnDisplayed: Integer; + x: string; +begin + result := ''; + if hdrOrders.Sections[0].Text = 'Event' then + FirstColumnDisplayed := 0 + else + FirstColumnDisplayed := 1; + for i:= FirstColumnDisplayed to 8 do begin + x := GetOrderText(AnOrder, index, i); + if x <> '' then + result := result + hdrOrders.Sections[i].Text + ': ' + x + CRLF; + end; +end; + +function TfrmOrders.MeasureColumnHeight(AnOrder: TOrder; Index: Integer; Column: integer):integer; +var + ARect: TRect; + x: string; +begin + x := GetOrderText(AnOrder, Index, Column); + ARect.Left := 0; + ARect.Top := 0; + ARect.Bottom := 0; + ARect.Right := hdrOrders.Sections[Column].Width -6; + Result := WrappedTextHeightByFont(lstOrders.Canvas,lstOrders.Font,x,ARect); +end; + +procedure TfrmOrders.lstOrdersMeasureItem(Control: TWinControl; Index: Integer; + var AHeight: Integer); +var + AnOrder: TOrder; + NewHeight: Integer; +begin + NewHeight := AHeight; + with lstOrders do if Index < Items.Count then + begin + AnOrder := TOrder(uOrderList.Items[Index]); + if AnOrder <> nil then with AnOrder do + begin + if not AnOrder.Retrieved then RetrieveVisibleOrders(Index); + Canvas.Font.Style := []; + if Changes.Exist(CH_ORD, ID) then Canvas.Font.Style := [fsBold]; + end; + {measure height of event delayed name} + if hdrOrders.Sections[0].Text = 'Event' then + NewHeight := HigherOf(AHeight, MeasureColumnHeight(AnOrder, Index, 0)); + {measure height of order text} + NewHeight := HigherOf(NewHeight, MeasureColumnHeight(AnOrder, Index, 2)); + {measure height of start/stop times} + NewHeight := HigherOf(NewHeight, MeasureColumnHeight(AnOrder, Index, 3)); + if NewHeight > 255 then NewHeight := 255; + if NewHeight < 13 then NewHeight := 13; + end; + AHeight := NewHeight; +end; + +function TfrmOrders.GetStartStopText(StartTime: string; StopTime: string): string; +var + y: string; +begin + result := FormatFMDateTimeStr('mm/dd/yy hh:nn', StartTime); + if IsFMDateTime(StartTime) and (Length(StartTime) = FM_DATE_ONLY) then result := Piece(result, ' ', 1); + if Length(result) > 0 then result := 'Start: ' + result; + y := FormatFMDateTimeStr('mm/dd/yy hh:nn', StopTime); + if IsFMDateTime(StopTime) and (Length(StopTime) = FM_DATE_ONLY) then y := Piece(y, ' ', 1); + if Length(y) > 0 then result := result + CRLF + 'Stop: ' + y; +end; + +function TfrmOrders.GetOrderText(AnOrder: TOrder; Index: integer; Column: integer): string; +begin + if AnOrder <> nil then with AnOrder do + begin + case Column of + 0: + begin + result := EventName; + if (Index > 0) and (result = TOrder(lstOrders.Items.Objects[Index - 1]).EventName) then result := ''; + end; + 1: + begin + result := DGroupName; + if (Index > 0) and (result = TOrder(lstOrders.Items.Objects[Index - 1]).DGroupName) then result := ''; + end; + 2: + begin + result := Text; + if Flagged then + result := result + ' *Flagged*'; + end; + 3: result := GetStartStopText( StartTime, StopTime); + 4: + begin + result := MixedCase(ProviderName); + result := Piece(result, ',', 1) + ',' + Copy(Piece(result, ',', 2), 1, 1); + end; + 5: result := VerNurse; + 6: result := VerClerk; + 7: result := ChartRev; + 8: result := NameOfStatus(Status); + 9: result := MixedCase(Anorder.OrderLocName); + //begin AGP change 26.52 display all location for orders. + //result := MixedCase(Anorder.OrderLocName); + //if (Index > 0) and (result = TOrder(lstOrders.Items.Objects[Index - 1]).OrderLocName) then result := ''; + //end; + end; + end; +end; + +procedure TfrmOrders.lstOrdersDrawItem(Control: TWinControl; Index: Integer; TheRect: TRect; + State: TOwnerDrawState); +var + i, RightSide: Integer; + FirstColumnDisplayed: Integer; + x: string; + ARect: TRect; + AnOrder: TOrder; + SaveColor: TColor; +begin + inherited; + with lstOrders do + begin + ARect := TheRect; + if odSelected in State then + begin + Canvas.Brush.Color := clHighlight; + Canvas.Font.Color := clHighlightText + end; + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + RightSide := -2; + + for i := 0 to 9 do + begin + RightSide := RightSide + hdrOrders.Sections[i].Width; + Canvas.MoveTo(RightSide, ARect.Bottom - 1); + Canvas.LineTo(RightSide, ARect.Top); + end; + + if Index < Items.Count then + begin + AnOrder := TOrder(Items.Objects[Index]); + if hdrOrders.Sections[0].Text = 'Event' then + FirstColumnDisplayed := 0 + else + FirstColumnDisplayed := 1; + if AnOrder <> nil then with AnOrder do for i := FirstColumnDisplayed to 9 do + begin + if i > FirstColumnDisplayed then + ARect.Left := ARect.Right + 2 + else + ARect.Left := 2; + ARect.Right := ARect.Left + hdrOrders.Sections[i].Width - 6; + x := GetOrderText(AnOrder, Index, i); + SaveColor := Canvas.Brush.Color; + if i = FirstColumnDisplayed then + begin + if Flagged and (ColorToRGB(clWindowText) = ColorToRGB(clBlack)) then + begin + Canvas.Brush.Color := clRed; + Canvas.FillRect(ARect); + end; + end; + if i = 2 then + begin + Canvas.Font.Style := []; + if Changes.Exist(CH_ORD, AnOrder.ID) then Canvas.Font.Style := [fsBold]; + if not (odSelected in State) and (AnOrder.Signature = OSS_UNSIGNED) then + begin + if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then + Canvas.Font.Color := clBlue; + end; + end; + if (i = 2) or (i = 3) or (i = 0) then + DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK) + else DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX ); + Canvas.Brush.Color := SaveColor; + ARect.Right := ARect.Right + 4; + end; + end; + end; +end; + +procedure TfrmOrders.hdrOrdersSectionResize(HeaderControl: THeaderControl; Section: THeaderSection); +begin + inherited; + FEvtColWidth := hdrOrders.Sections[0].Width; + RedrawSuspend(Self.Handle); + RedrawOrderList; + RedrawActivate(Self.Handle); + lstOrders.Invalidate; + pnlRight.Refresh; + pnlLeft.Refresh; +end; + +procedure TfrmOrders.lstOrdersDblClick(Sender: TObject); +begin + inherited; + mnuViewDetailClick(Self); +end; + +{ Writing Orders } + +procedure TfrmOrders.lstWriteClick(Sender: TObject); +{ ItemID = DlgIEN;FormID;DGroup;DlgType } +var + Activated: Boolean; + NextIndex: Integer; +begin + if PatientStatusChanged then exit; + if BILLING_AWARE then //CQ5114 + fODConsult.displayDXCode := ''; //CQ5114 + + inherited; + //frmFrame.UpdatePtInfoOnRefresh; + if not ActiveOrdering then SetConfirmEventDelay; + NextIndex := lstWrite.ItemIndex; + if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; + if not ReadyForNewOrder(FCurrentView.EventDelay) then + begin + lstWrite.ItemIndex := RefNumFor(Self); + Exit; + end; + + // don't write delayed orders for non-VA meds: + if (FCurrentView.EventDelay.EventIFN>0) and (Piece(lstWrite.ItemID,';',2) = '145') then + begin + InfoBox('Delayed orders cannot be written for Non-VA Medications.', 'Meds, Non-VA', MB_OK); + Exit; + end; + + if (FCurrentView <> nil) and (FCurrentView.EventDelay.EventIFN>0) then + FRightAfterWriteOrderBox := True; + lstWrite.ItemIndex := NextIndex; // (ReadyForNewOrder may reset ItemIndex to -1) + if FCurrentView <> nil then with FCurrentView.EventDelay do + if (EventType = 'D') and (Effective = 0) then + if not ObtainEffectiveDate(Effective) then + begin + lstWrite.ItemIndex := -1; + Exit; + end; + if frmFrame.CCOWDrivedChange then + Exit; + PositionTopOrder(StrToIntDef(Piece(lstWrite.ItemID, ';', 3), 0)); // position Display Group + case CharAt(Piece(lstWrite.ItemID, ';', 4), 1) of + 'A': Activated := ActivateAction( Piece(lstWrite.ItemID, ';', 1), Self, + lstWrite.ItemIndex); + 'D', 'Q': Activated := ActivateOrderDialog(Piece(lstWrite.ItemID, ';', 1), + FCurrentView.EventDelay, Self, lstWrite.ItemIndex); + 'H': Activated := ActivateOrderHTML( Piece(lstWrite.ItemID, ';', 1), + FCurrentView.EventDelay, Self, lstWrite.ItemIndex); + 'M': Activated := ActivateOrderMenu( Piece(lstWrite.ItemID, ';', 1), + FCurrentView.EventDelay, Self, lstWrite.ItemIndex); + 'O': Activated := ActivateOrderSet( Piece(lstWrite.ItemID, ';', 1), + FCurrentView.EventDelay, Self, lstWrite.ItemIndex); + else Activated := not (InfoBox(TX_BAD_TYPE, TC_BAD_TYPE, MB_OK) = IDOK); + end; {case} + if not Activated then + begin + lstWrite.ItemIndex := -1; + FRightAfterWriteOrderBox := False; + end; + if (lstSheets.ItemIndex > -1) and (Pos('EVT',Piece(lstSheets.Items[lstSheets.ItemIndex],'^',1))>0) then + begin + InitOrderSheetsForEvtDelay; + lstSheets.ItemIndex := 0; + lstSheetsClick(Self); + end; + if (FCurrentView <> nil) and (FCurrentView.EventDelay.PtEventIFN>0) and + (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; +end; + +procedure TfrmOrders.SaveSignOrders; +var + SaveOrderID: string; + i: Integer; +begin + // unlock if able?? + if not PatientViewed then Exit; + if not frmFrame.ContextChanging then with lstOrders do + begin + if (TopIndex < Items.Count) and (TopIndex > -1) + then SaveOrderID := TOrder(Items.Objects[TopIndex]).ID + else SaveOrderID := ''; + if lstSheets.ItemIndex > 0 then + RefreshOrderList(FROM_SERVER,Piece(lstSheets.Items[lstSheets.ItemIndex],'^',1)) + else + RefreshOrderList(FROM_SERVER); + if Length(SaveOrderID) > 0 then for i := 0 to Items.Count - 1 do + if TOrder(Items.Objects[i]).ID = SaveOrderID then TopIndex := i; + end; +end; + +{ Action menu events ----------------------------------------------------------------------- } + +procedure TfrmOrders.ValidateSelected(const AnAction, WarningMsg, WarningTitle: string); +{ loop to validate action on each selected order, deselect if not valid } +var + i: Integer; + AnOrder: TOrder; + ErrMsg, AParentID: string; + GoodList,BadList, CheckedList: TStringList; +begin + GoodList := TStringList.Create; + BadList := TStringList.Create; + CheckedList := TStringList.Create; + try + with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then + begin + AnOrder := TOrder(Items.Objects[i]); + if (AnAction = 'RN') and (AnOrder.Status=6) and (AnOrder.DGroupName = 'Inpt. Meds') and (Patient.inpatient) and (IsClinicLoc(Encounter.Location)) then + begin + Selected[i] := False; + MessageDlg('You cannot renew inpatient medication order on a clinic location for selected inpatient.', mtWarning, [mbOK], 0); + end; + if ((AnAction = 'RN') or (AnAction = 'EV')) and (AnOrder.EnteredInError = 0) then //AGP Changes PSI-04053 + begin + if not IsValidSchedule(AnOrder.ID) then + begin + if (AnAction = 'RN') then + ShowMessage('The order contains invalid schedule and can not be renewed.') + else if (AnAction = 'EV') then + ShowMessage('The order contains invalid schedule and can not be changed to event delayed order.'); + + Selected[i] := False; + Continue; + end; + end; + //AGP CHANGE ORDER ENTERED IN ERROR TO ALLOW SIGNATURE AND VERIFY ACTIONS 26.23 + if ((AnOrder.EnteredInError = 1) and ((AnOrder.Status = 1) or (AnOrder.Status = 13))) and ((AnAction <> 'ES') and (AnAction <> 'VR')) then + begin + InfoBox(AnOrder.Text + WarningMsg + 'This order has been mark as Entered in error.', WarningTitle, MB_OK); + Selected[i] := False; + Continue; + end; + if ((AnAction <> OA_RELEASE) and (AnOrder.EnteredInError = 0)) or (((AnOrder.EnteredInError = 1) and ((AnOrder.Status = 1) or (AnOrder.Status = 13))) and + (AnAction = 'ES')) then + ValidateOrderAction(AnOrder.ID, AnAction, ErrMsg) + //AGP END Changes + else ErrMsg := ''; + if (Length(ErrMsg)>0) and (Pos('COMPLEX-PSI',ErrMsg)<1) then + begin + InfoBox(AnOrder.Text + WarningMsg + ErrMsg, WarningTitle, MB_OK); + Selected[i] := False; + Continue; + end; + if (Length(ErrMsg)>0) and IsFirstDoseNowOrder(AnOrder.ID) and (AnAction <> 'RL') then + begin + InfoBox(AnOrder.Text + WarningMsg + ErrMsg, WarningTitle, MB_OK); + Selected[i] := False; + Continue; + end; + if (Length(ErrMsg)>0) and ( (AnAction = OA_CHGEVT) or (AnAction = OA_EDREL) ) then + begin + InfoBox(AnOrder.Text + WarningMsg + ErrMsg, WarningTitle, MB_OK); + Selected[i] := False; + Continue; + end; + AParentID := ''; + IsValidActionOnComplexOrder(AnOrder.ID, AnAction,TListBox(lstOrders),CheckedList,ErrMsg, AParentID); + TOrder(Items.Objects[i]).ParentID := AParentID; + if (Length(ErrMsg)=0) and (AnAction=OA_EDREL) then + begin + if (AnOrder.Signature = 2) and (not VerbTelPolicyOrder(AnOrder.ID)) then + begin + ErrMsg := 'Need to be signed first.'; + Selected[i] := False; + end; + end; + + if (AnAction = OA_CHGEVT) or (AnAction = OA_EDREL) then + begin + if Length(ErrMsg)>0 then + begin + Selected[i] := False; + Badlist.Add(AnOrder.Text + '^' + ErrMsg); + end + else + GoodList.Add(AnOrder.Text); + end; + + if (Length(ErrMsg) > 0) and (AnAction <> OA_CHGEVT) and (AnAction <> OA_EDREL) then + begin + if Pos('COMPLEX-PSI',ErrMsg)>0 then ErrMsg := TX_COMPLEX; + InfoBox(AnOrder.Text + WarningMsg + ErrMsg, WarningTitle, MB_OK); + Selected[i] := False; + end; + + if Selected[i] and (not OrderIsLocked(AnOrder.ID, AnAction)) then Selected[i] := False; + + end; //with + + if ((AnAction = OA_CHGEVT) or (AnAction = OA_EDREL)) then + begin + if (BadList.Count = 1) and (GoodList.Count < 1 ) then + InfoBox(Piece(BadList[0],'^',1) + WarningMsg + Piece(BadList[0],'^',2), WarningTitle, MB_OK); + if ((BadList.Count >= 1) and (GoodList.Count >= 1)) or ( BadList.Count > 1 )then + DisplayOrdersForAction(BadList,GoodList,AnAction); + end; + finally + GoodList.Free; + BadList.Free; + CheckedList.Free; + end; +end; + +procedure TfrmOrders.MakeSelectedList(AList: TList); +{ make a list of selected orders } +var + i: Integer; +begin + with lstOrders do for i := 0 to Items.Count - 1 do + if Selected[i] then AList.Add(Items.Objects[i]); +end; + +function TfrmOrders.NoneSelected(const ErrMsg: string): Boolean; +var + i: Integer; +begin + // use if selcount + Result := True; + with lstOrders do for i := 0 to Items.Count - 1 do + if Selected[i] then + begin + Result := False; + Break; + end; + if Result then InfoBox(ErrMsg, TC_NOSEL, MB_OK); +end; + +procedure TfrmOrders.RemoveSelectedFromChanges(AList: TList); +{ remove from Changes orders that were signed or released } +var + i: Integer; +begin + with AList do for i := 0 to Count - 1 do + with TOrder(Items[i]) do Changes.Remove(CH_ORD, ID); +end; + +procedure TfrmOrders.SynchListToOrders; +{ make sure lstOrders now reflects the current state of orders } +var + i: Integer; +begin + with lstOrders do for i := 0 to Items.Count - 1 do + begin + Items[i] := GetPlainText(TOrder(Items.Objects[i]),i); + if Selected[i] then Selected[i] := False; + end; + lstOrders.Invalidate; +end; + +procedure TfrmOrders.mnuActDCClick(Sender: TObject); +{ discontinue/cancel/delete the selected orders (as appropriate for each order } +var + DelEvt: boolean; + SelectedList: TList; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + if not (FCurrentView.EventDelay.EventIFN>0) then + if not EncounterPresent then Exit; // make sure have provider & location + if not LockedForOrdering then Exit; + if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; + SelectedList := TList.Create; + try + //if CheckOrderStatus = True then Exit; + ValidateSelected(OA_DC, TX_NO_DC, TC_NO_DC); // validate DC action on each order + //ActivateDeactiveRenew; AGP 26.53 TURN OFF UNTIL FINAL DECISION CAN BE MADE + MakeSelectedList(SelectedList); // build list of orders that remain + // updating the Changes object happens in ExecuteDCOrders, based on individual order + if ExecuteDCOrders(SelectedList,DelEvt) then SynchListToOrders; + UpdateUnsignedOrderAlerts(Patient.DFN); + with Notifications do + if Active and (FollowUp = NF_ORDER_REQUIRES_ELEC_SIGNATURE) then + UnsignedOrderAlertFollowup(Piece(RecordID, U, 2)); + UpdateExpiringMedAlerts(Patient.DFN); + UpdateUnverifiedMedAlerts(Patient.DFN); + UpdateUnverifiedOrderAlerts(Patient.DFN); + finally + SelectedList.Free; + UnlockIfAble; + end; +end; + +procedure TfrmOrders.mnuActRelClick(Sender: TObject); +var + SelectedList: TList; + ALocation: Integer; + AName: string; +begin + inherited; + if NoneSelected(TX_NOSEL_SIGN) then Exit; + if not AuthorizedUser then Exit; + if not CanManualRelease then + begin + ShowMessage('You are not authorized to manual release delayed orders.'); + Exit; + end; + if Encounter.Location = 0 then // location required for ORCSEND + begin + LookupLocation(ALocation, AName, LOC_ALL, TX_LOC_PRINT); + if ALocation > 0 then Encounter.Location := ALocation; + frmFrame.DisplayEncounterText; + end; + if Encounter.Location = 0 then + begin + InfoBox(TX_SIGN_LOC, TC_REQ_LOC, MB_OK or MB_ICONWARNING); + Exit; + end; + if not LockedForOrdering then Exit; + SelectedList := TList.Create; + try + ValidateSelected(OA_EDREL, TX_NO_REL, TC_NO_REL); // validate realease action on each order + MakeSelectedList(SelectedList); + if SelectedList.Count=0 then + Exit; + //ExecuteReleaseOrderChecks(SelectedList); + if not ExecuteReleaseEventOrders(SelectedList) then + Exit; + UpdateExpiringMedAlerts(Patient.DFN); + UpdateUnverifiedMedAlerts(Patient.DFN); + UpdateUnverifiedOrderAlerts(Patient.DFN); + FCompress := True; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_SIGN, 0); + finally + SelectedList.Free; + UnlockIfAble; + end; +end; + +procedure TfrmOrders.mnuActChgEvntClick(Sender: TObject); +var + SelectedList :TList; + DoesDestEvtOccur: boolean; + DestPtEvtID: integer; + DestPtEvtName: string; +begin + inherited; + if not EncounterPresentEDO then Exit; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + if not LockedForOrdering then Exit; + //if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + // Exit; + DoesDestEvtOccur := False; + DestPtEvtID := 0; + DestPtEvtName := ''; + SelectedList := TList.Create; + try + if CheckOrderStatus = True then Exit; + ValidateSelected(OA_CHGEVT, TX_NO_CV, TC_NO_CV); // validate Change Event action on each order + MakeSelectedList(SelectedList); // build list of orders that remain + if ExecuteChangeEvt(SelectedList,DoesDestEvtOccur,DestPtEvtId,DestPtEvtName) then + SynchListToOrders + else + Exit; + UpdateUnsignedOrderAlerts(Patient.DFN); + with Notifications do + if Active and (FollowUp = NF_ORDER_REQUIRES_ELEC_SIGNATURE) then + UnsignedOrderAlertFollowup(Piece(RecordID, U, 2)); + UpdateExpiringMedAlerts(Patient.DFN); + UpdateUnverifiedMedAlerts(Patient.DFN); + UpdateUnverifiedOrderAlerts(Patient.DFN); + finally + SelectedList.Free; + UnlockIfAble; + if DoesDestEvtOccur then + PtEvtCompleted(DestPtEvtID,DestPtEvtName); + end; +end; + +procedure TfrmOrders.mnuActHoldClick(Sender: TObject); +{ place the selected orders on hold, creates new orders } +var + SelectedList: TList; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + if not EncounterPresent then Exit; // make sure have provider & location + if not LockedForOrdering then Exit; + if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; + SelectedList := TList.Create; + try + if CheckOrderStatus = True then Exit; + ValidateSelected(OA_HOLD, TX_NO_HOLD, TC_NO_HOLD); // validate hold action on each order + MakeSelectedList(SelectedList); // build list of orders that remain + if ExecuteHoldOrders(SelectedList) then // confirm & perform hold + begin + AddSelectedToChanges(SelectedList); // send held orders to changes + SynchListToOrders; // ensure ID's in lstOrders are correct + end; + finally + SelectedList.Free; + UnlockIfAble; + end; +end; + +procedure TfrmOrders.mnuActUnholdClick(Sender: TObject); +{ release orders from hold, no signature required - no new orders created } +var + SelectedList: TList; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + if not EncounterPresent then Exit; + if not LockedForOrdering then Exit; + SelectedList := TList.Create; + try + if CheckOrderStatus = True then Exit; + ValidateSelected(OA_UNHOLD, TX_NO_UNHOLD, TC_NO_UNHOLD); // validate release hold action + MakeSelectedList(SelectedList); // build list of selected orders + if ExecuteUnholdOrders(SelectedList) then + begin + AddSelectedToChanges(SelectedList); + SynchListToOrders; + end; + finally + SelectedList.Free; + UnlockIfAble; + end; +end; + +procedure TfrmOrders.mnuActRenewClick(Sender: TObject); +{ renew the selected orders (as appropriate for each order } +var + SelectedList: TList; + ParntOrder: TOrder; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + if not EncounterPresent then Exit; // make sure have provider & location + if not LockedForOrdering then Exit; + SelectedList := TList.Create; + try + if CheckOrderStatus = True then Exit; + ValidateSelected(OA_RENEW, TX_NO_RENEW, TC_NO_RENEW); // validate renew action for each + MakeSelectedList(SelectedList); // build list of orders that remain + if Length(FParentComplexOrderID)>0 then + begin + ParntOrder := GetOrderByIFN(FParentComplexOrderID); + if CharAt(ParntOrder.Text,1)='+' then + ParntOrder.Text := Copy(ParntOrder.Text,2,Length(ParntOrder.Text)); + if Pos('First Dose NOW',ParntOrder.Text)>1 then + Delete(ParntOrder.text, Pos('First Dose NOW',ParntOrder.Text), Length('First Dose NOW')); + SelectedList.Add(ParntOrder); + FParentComplexOrderID := ''; + end; + if ExecuteRenewOrders(SelectedList) then + begin + AddSelectedToChanges(SelectedList); // should this happen in ExecuteRenewOrders? + SynchListToOrders; + end; + UpdateExpiringMedAlerts(Patient.DFN); + finally + SelectedList.Free; + UnlockIfAble; + end; +end; + +procedure TfrmOrders.mnuActAlertClick(Sender: TObject); +{ set selected orders to send alerts when results are available, - no new orders created } +var + SelectedList: TList; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + SelectedList := TList.Create; + try + ValidateSelected(OA_ALERT, TX_NO_ALERT, TC_NO_ALERT); // validate release hold action + MakeSelectedList(SelectedList); // build list of selected orders + ExecuteAlertOrders(SelectedList); + finally + SelectedList.Free; + end; +end; + +procedure TfrmOrders.mnuActFlagClick(Sender: TObject); +var + i: Integer; + AnOrder: TOrder; + ErrMsg: string; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; + with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then + begin + AnOrder := TOrder(Items.Objects[i]); + ValidateOrderAction(AnOrder.ID, OA_FLAG, ErrMsg); + if Length(ErrMsg) > 0 + then InfoBox(AnOrder.Text + TX_NO_FLAG + ErrMsg, TC_NO_FLAG, MB_OK) + else ExecuteFlagOrder(AnOrder); + Selected[i] := False; + end; + lstOrders.Invalidate; +end; + +procedure TfrmOrders.mnuActUnflagClick(Sender: TObject); +var + i: Integer; + AnOrder: TOrder; + ErrMsg: string; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then + begin + AnOrder := TOrder(Items.Objects[i]); + ValidateOrderAction(AnOrder.ID, OA_UNFLAG, ErrMsg); + if Length(ErrMsg) > 0 + then InfoBox(AnOrder.Text + TX_NO_UNFLAG + ErrMsg, TC_NO_UNFLAG, MB_OK) + else ExecuteUnflagOrder(AnOrder); + Selected[i] := False; + end; + lstOrders.Invalidate; + if Notifications.Active then AutoUnflagAlertedOrders(Patient.DFN, Piece(Notifications.RecordID, U, 2)); +end; + +procedure TfrmOrders.mnuActCompleteClick(Sender: TObject); +{ complete generic orders, no signature required - no new orders created } +var + SelectedList: TList; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + SelectedList := TList.Create; + try + ValidateSelected(OA_COMPLETE, TX_NO_CPLT, TC_NO_CPLT); // validate completing of order + MakeSelectedList(SelectedList); // build list of selected orders + if ExecuteCompleteOrders(SelectedList) then SynchListToOrders; + finally + SelectedList.Free; + end; +end; + +procedure TfrmOrders.mnuActVerifyClick(Sender: TObject); +{ verify orders, signature required but no new orders created } +var + SelectedList: TList; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedToVerify then Exit; + SelectedList := TList.Create; + try + ValidateSelected(OA_VERIFY, TX_NO_VERIFY, TC_NO_VERIFY); // make sure order can be verified + MakeSelectedList(SelectedList); // build list of selected orders + if ExecuteVerifyOrders(SelectedList, False) then SynchListToOrders; + finally + SelectedList.Free; + end; +end; + +procedure TfrmOrders.mnuActChartRevClick(Sender: TObject); +var + SelectedList: TList; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedToVerify then Exit; + SelectedList := TList.Create; + try + ValidateSelected(OA_CHART, TX_NO_VERIFY, TC_NO_VERIFY); // make sure order can be verified + MakeSelectedList(SelectedList); // build list of selected orders + if ExecuteVerifyOrders(SelectedList, True) then SynchListToOrders; + finally + SelectedList.Free; + end; +end; + +procedure TfrmOrders.mnuActCommentClick(Sender: TObject); +{ loop thru selected orders, allowing ward comments to be edited for each } +var + i: Integer; + AnOrder: TOrder; + ErrMsg: string; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; + with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then + begin + AnOrder := TOrder(Items.Objects[i]); + ValidateOrderAction(AnOrder.ID, OA_COMMENT, ErrMsg); + if Length(ErrMsg) > 0 + then InfoBox(AnOrder.Text + TX_NO_CMNT + ErrMsg, TC_NO_CMNT, MB_OK) + else ExecuteWardComments(AnOrder); + Selected[i] := False; + end; +end; + +procedure TfrmOrders.mnuActChangeClick(Sender: TObject); +{ loop thru selected orders, present ordering dialog for each with defaults to selected order } +var + i: Integer; + ChangeIFNList: TStringList; + ASourceOrderID : string; +begin + + inherited; + if not EncounterPresentEDO then exit; + ChangeIFNList := TStringList.Create; + try + if NoneSelected(TX_NOSEL) then Exit; + if CheckOrderStatus = True then Exit; + ValidateSelected(OA_CHANGE, TX_NO_CHANGE, TC_NO_CHANGE); + if (FCurrentView.EventDelay.PtEventIFN>0) and + PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName) then + Exit; + with lstOrders do for i := 0 to Items.Count - 1 do + if Selected[i] then + begin + ChangeIFNList.Add(TOrder(Items.Objects[i]).ID); + ASourceOrderID := TOrder(lstOrders.Items.Objects[i]).ID; + end; + if ChangeIFNList.Count > 0 then + ChangeOrders(ChangeIFNList, FCurrentView.EventDelay); + // do we need to deselect the orders? + finally + ChangeIFNList.Free; + end; + RedrawOrderList; +end; + +procedure TfrmOrders.mnuActCopyClick(Sender: TObject); +{ loop thru selected orders, present ordering dialog for each with defaults to selected order } +var + ThePtEvtID: string; + i: Integer; + IsNewEvent, needVerify, NewOrderCreated: boolean; + CopyIFNList: TStringList; + DestPtEvtID: integer; + DestPtEvtName: string; + DoesDestEvtOccur: boolean; + TempEvent: TOrderDelayEvent; +begin + inherited; + if not EncounterPresentEDO then Exit; + DestPtEvtID := 0; + DestPtEvtName := ''; + DoesDestEvtOccur := False; + needVerify := True; + CopyIFNList := TStringList.Create; + try + if NoneSelected(TX_NOSEL) then Exit; + NewOrderCreated := False; + if CheckOrderStatus = True then Exit; + ValidateSelected(OA_COPY, TX_NO_COPY, TC_NO_COPY); + if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; + with lstOrders do for i := 0 to Items.Count - 1 do + if Selected[i] then + CopyIFNList.Add(TOrder(Items.Objects[i]).ID); + + IsNewEvent := False; + //if not ShowMsgOn(CopyIFNList.Count = 0, TX_NOSEL, TC_NOSEL) then + if CopyIFNList.Count > 0 then + if SetViewForCopy(IsNewEvent,DoesDestEvtOccur,DestPtEvtId,DestPtEvtName) then + begin + if DoesDestEvtOccur then + begin + TempEvent.TheParent := TParentEvent.Create; + TempEvent.EventIFN := 0; + TempEvent.PtEventIFN := 0; + TempEvent.EventType := #0; + CopyOrders(CopyIFNList, TempEvent, DoesDestEvtOccur, needVerify); + if ImmdCopyAct then + ImmdCopyAct := False; + PtEvtCompleted(DestPtEvtID,DestPtEvtName); + Exit; + end; + FCurrentView.EventDelay.EventName := DestPtEvtName; + if (FCurrentView.EventDelay.EventIFN > 0) and (FCurrentView.EventDelay.EventType <> 'D') then + begin + needVerify := False; + uAutoAC := True; + end; + TempEvent.EventName := DestPtEvtName; //FCurrentView.EventDelay.EventName; + TempEvent.PtEventIFN := DestPtEvtId; //FCurrentView.EventDelay.PtEventIFN; + if (FCurrentView.EventDelay.EventType = 'D') or ((not Patient.InPatient) and (FCurrentView.EventDelay.EventType = 'T')) then + begin + if TransferOrders(CopyIFNList, FCurrentView.EventDelay, DoesDestEvtOccur, needVerify) then NewOrderCreated := True; + end + else if (not Patient.Inpatient) and (FCurrentView.EventDelay.EventType = 'A') then + begin + if TransferOrders(CopyIFNList, FCurrentView.EventDelay, DoesDestEvtOccur, needVerify) then NewOrderCreated := True; + end + else + begin + if CopyOrders(CopyIFNList, FCurrentView.EventDelay, DoesDestEvtOccur, needVerify) then + NewOrderCreated := True; + end; + if (not NewOrderCreated) and Assigned(FCurrentView) and (FCurrentView.EventDelay.EventIFN>0) then + if isExistedEvent(Patient.DFN,IntToStr(FCurrentView.EventDelay.EventIFN),ThePtEvtID) then + begin + if PtEvtEmpty(ThePtEvtID) then + begin + DeletePtEvent(ThePtEvtID); + ChangesUpdate(ThePtEvtID); + InitOrderSheetsForEvtDelay; + lstSheets.ItemIndex := 0; + lstSheetsClick(self); + end; + end; + if ImmdCopyAct then + ImmdCopyAct := False; + if DoesDestEvtOccur then + PtEvtCompleted(DestPtEvtId, DestPtEvtName); + end; + finally + uAutoAC := False; + CopyIFNList.Free; + end; + +end; + +procedure TfrmOrders.mnuActReleaseClick(Sender: TObject); +{ release orders to services without a signature, do appropriate prints } +var + SelectedList: TList; + ALocation: Integer; + AName: string; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + if Encounter.Location = 0 then // location required for ORCSEND + begin + LookupLocation(ALocation, AName, LOC_ALL, TX_LOC_PRINT); + if ALocation > 0 then Encounter.Location := ALocation; + frmFrame.DisplayEncounterText; + end; + if Encounter.Location = 0 then + begin + InfoBox(TX_REL_LOC, TC_REQ_LOC, MB_OK or MB_ICONWARNING); + Exit; + end; + if not LockedForOrdering then Exit; + SelectedList := TList.Create; + try + ValidateSelected(OA_RELEASE, TX_NO_REL, TC_NO_REL); // validate release action on each order + MakeSelectedList(SelectedList); // build list of orders that remain + ExecuteReleaseOrderChecks(SelectedList); // call order checking + if not uInit.TimedOut then + if ExecuteReleaseOrders(SelectedList) then // confirm, then perform release + RemoveSelectedFromChanges(SelectedList); // remove released orders from Changes + //SaveSignOrders; + UpdateUnsignedOrderAlerts(Patient.DFN); + with Notifications do + if Active and (FollowUp = NF_ORDER_REQUIRES_ELEC_SIGNATURE) then + UnsignedOrderAlertFollowup(Piece(RecordID, U, 2)); + UpdateExpiringMedAlerts(Patient.DFN); + UpdateUnverifiedMedAlerts(Patient.DFN); + UpdateUnverifiedOrderAlerts(Patient.DFN); + if not uInit.TimedOut then SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_SIGN, 0); + finally + SelectedList.Free; + UnlockIfAble; + end; +end; + +procedure TfrmOrders.mnuActOnChartClick(Sender: TObject); +{ mark orders orders as signed on chart, release to services, do appropriate prints } +var + SelectedList: TList; + ALocation: Integer; + AName: string; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + if not AuthorizedUser then Exit; + if Encounter.Location = 0 then // location required for ORCSEND + begin + LookupLocation(ALocation, AName, LOC_ALL, TX_LOC_PRINT); + if ALocation > 0 then Encounter.Location := ALocation; + frmFrame.DisplayEncounterText; + end; + if Encounter.Location = 0 then + begin + InfoBox(TX_CHART_LOC, TC_REQ_LOC, MB_OK or MB_ICONWARNING); + Exit; + end; + if not LockedForOrdering then Exit; + SelectedList := TList.Create; + try + ValidateSelected(OA_ONCHART, TX_NO_CHART, TC_NO_CHART); // validate sign on chart for each + MakeSelectedList(SelectedList); // build list of orders that remain + ExecuteReleaseOrderChecks(SelectedList); // call order checking + if not uInit.TimedOut then + if ExecuteOnChartOrders(SelectedList) then // confirm, then perform release + RemoveSelectedFromChanges(SelectedList); // remove released orders from Changes + UpdateUnsignedOrderAlerts(Patient.DFN); + with Notifications do + if Active and (FollowUp = NF_ORDER_REQUIRES_ELEC_SIGNATURE) then + UnsignedOrderAlertFollowup(Piece(RecordID, U, 2)); + UpdateExpiringMedAlerts(Patient.DFN); + UpdateUnverifiedMedAlerts(Patient.DFN); + UpdateUnverifiedOrderAlerts(Patient.DFN); + if not uInit.TimedOut then SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_SIGN, 0); + finally + SelectedList.Free; + UnlockIfAble; + end; +end; + +procedure TfrmOrders.mnuActSignClick(Sender: TObject); +{ obtain signature for orders, release them to services, do appropriate prints } +var + SelectedList: TList; + ALocation: Integer; + AName: string; +begin + inherited; + if NoneSelected(TX_NOSEL_SIGN) then Exit; + if not AuthorizedUser then Exit; + if (User.OrderRole <> 2) and (User.OrderRole <> 3) then + begin + ShowMessage('Sorry, You don''t have the permission to release selected orders manually'); + Exit; + end; + if not (FCurrentView.EventDelay.EventIFN>0) then + begin + if Encounter.Location = 0 then // location required for ORCSEND + begin + LookupLocation(ALocation, AName, LOC_ALL, TX_LOC_PRINT); + if ALocation > 0 then Encounter.Location := ALocation; + frmFrame.DisplayEncounterText; + end; + if Encounter.Location = 0 then + begin + InfoBox(TX_SIGN_LOC, TC_REQ_LOC, MB_OK or MB_ICONWARNING); + Exit; + end; + end; + if not LockedForOrdering then Exit; + + if (FCurrentView.EventDelay.PtEventIFN>0) and (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; + + SelectedList := TList.Create; + try + ValidateSelected(OA_SIGN, TX_NO_SIGN, TC_NO_SIGN); // validate sign action on each order + MakeSelectedList(SelectedList); + {billing Aware} + if BILLING_AWARE then + begin + UBACore.rpcBuildSCIEList(SelectedList); // build list of orders and Billable Status + UBACore.CompleteUnsignedBillingInfo(rpcGetUnsignedOrdersBillingData(OrderListSCEI) ); + end; + + {billing Aware} + ExecuteReleaseOrderChecks(SelectedList); // call order checking + if not uInit.TimedOut then + if ExecuteSignOrders(SelectedList) // confirm, sign & release + then RemoveSelectedFromChanges(SelectedList); // remove signed orders from Changes + UpdateUnsignedOrderAlerts(Patient.DFN); + with Notifications do + if Active and (FollowUp = NF_ORDER_REQUIRES_ELEC_SIGNATURE) then + UnsignedOrderAlertFollowup(Piece(RecordID, U, 2)); + if Active then + begin + UpdateExpiringMedAlerts(Patient.DFN); + UpdateUnverifiedMedAlerts(Patient.DFN); + UpdateUnverifiedOrderAlerts(Patient.DFN); + end; + if not uInit.TimedOut then + begin + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_SIGN, 0); + if lstSheets.ItemIndex < 0 then + lstSheets.ItemIndex := 0; + end; + finally + SelectedList.Free; + UnlockIfAble; + end; +end; + +procedure TfrmOrders.mnuOptSaveQuickClick(Sender: TObject); +begin + inherited; + QuickOrderSave; +end; + +procedure TfrmOrders.mnuOptEditCommonClick(Sender: TObject); +begin + inherited; + QuickOrderListEdit; +end; + +procedure TfrmOrders.ProcessNotifications; +var + OrderIEN, ErrMsg: string; + BigOrderID: string; +begin + //if not User.NoOrdering then LoadWriteOrders(lstWrite.Items) else lstWrite.Clear; {**KCM**} + OrderIEN := IntToStr(ExtractInteger(Notifications.AlertData)); + case Notifications.FollowUp of + NF_FLAGGED_ORDERS : + begin + ViewAlertedOrders('', STS_FLAGGED, '', False, True, 'All Services, Flagged'); + AutoUnflagAlertedOrders(Patient.DFN, Piece(Notifications.RecordID, U, 2)); + end; + NF_ORDER_REQUIRES_ELEC_SIGNATURE : + begin + ViewAlertedOrders('', STS_UNSIGNED, '', False, True, 'All Services, Unsigned'); + UnsignedOrderAlertFollowup(Piece(Notifications.RecordID, U, 2)); + end; + NF_IMAGING_REQUEST_CANCEL_HELD : + if Pos('HELD', UpperCase(Notifications.Text)) > 0 then + begin + ViewAlertedOrders(OrderIEN, STS_HELD, 'IMAGING', False, True, 'Imaging, On Hold'); + Notifications.Delete; + end + else + begin + ViewAlertedOrders(OrderIEN, STS_DISCONTINUED, 'IMAGING', False, True, 'Imaging, Cancelled'); + Notifications.Delete; + end; + NF_SITE_FLAGGED_RESULTS : + begin + ViewAlertedOrders(OrderIEN, STS_COMPLETE, '', False, True, 'All Services, Site-Flagged'); + with lstOrders do if Selected[ItemIndex] then + begin + BigOrderID := TOrder(Items.Objects[ItemIndex]).ID; + if Length(Piece(BigOrderID,';',1)) > 0 then + begin + ReportBox(ResultOrder(BigOrderID), 'Order Results - ' + BigOrderID, True); + Notifications.Delete; + end; + end; + end; + NF_ORDERER_FLAGGED_RESULTS : + begin + ViewAlertedOrders(OrderIEN, STS_COMPLETE, '', False, True, 'All Services, Orderer-Flagged'); + with lstOrders do if Selected[ItemIndex] then + begin + BigOrderID := TOrder(Items.Objects[ItemIndex]).ID; + if Length(Piece(BigOrderID,';',1)) > 0 then + begin + ReportBox(ResultOrder(BigOrderID), 'Order Results - ' + BigOrderID, True); + Notifications.Delete; + end; + end; + end; + NF_ORDER_REQUIRES_COSIGNATURE : + ViewAlertedOrders('', STS_UNSIGNED, '', False, True, 'All Services, Unsigned'); + NF_LAB_ORDER_CANCELED : + begin + ViewAlertedOrders(OrderIEN, STS_DISCONTINUED, 'LABORATORY', False, True, 'Lab, Cancelled'); + Notifications.Delete; + end; + NF_DNR_EXPIRING : + ViewAlertedOrders('', STS_EXPIRING, '', False, True, 'All Services, Expiring'); + NF_MEDICATIONS_EXPIRING_INPT : + begin + ViewAlertedOrders('', STS_EXPIRING, 'PHARMACY', False, True, 'Medications, Expiring'); + end; + NF_MEDICATIONS_EXPIRING_OUTPT : + begin + ViewAlertedOrders('', STS_EXPIRING, 'PHARMACY', False, True, 'Medications, Expiring'); + end; + NF_UNVERIFIED_MEDICATION_ORDER : + begin + ViewAlertedOrders(OrderIEN, STS_UNVERIFIED, 'PHARMACY', False, True, 'Medications, Unverified'); + if StrToIntDef(OrderIEN, 0) > 0 then {**REV**} + begin // Delete alert if user can't verify + ValidateOrderAction(OrderIEN, OA_VERIFY, ErrMsg); + if Pos('COMPLEX-PSI',ErrMsg)>0 then + ErrMsg := TX_COMPLEX; + if Length(ErrMsg) > 0 then Notifications.Delete; + end; + UpdateUnverifiedMedAlerts(Patient.DFN); + end; + NF_NEW_ORDER : + begin + ViewAlertedOrders(OrderIEN, STS_RECENT, '', False, True, 'All Services, Recent Activity'); + Notifications.Delete; + end; + NF_UNVERIFIED_ORDER : + begin + ViewAlertedOrders(OrderIEN, STS_UNVERIFIED, '', False, True, 'All Services, Unverified'); + if StrToIntDef(OrderIEN, 0) > 0 then {**REV**} + begin // Delete alert if user can't verify + ValidateOrderAction(OrderIEN, OA_SIGN, ErrMsg); + if Pos('COMPLEX-PSI',ErrMsg)>0 then + ErrMsg := TX_COMPLEX; + if Length(ErrMsg) > 0 then Notifications.Delete; + end; + UpdateUnverifiedOrderAlerts(Patient.DFN); + end; + NF_FLAGGED_OI_RESULTS : + begin + ViewAlertedOrders(OrderIEN, STS_COMPLETE, '', False, True, 'All Services, Orderable Item Flagged'); + with lstOrders do if Selected[ItemIndex] then + begin + BigOrderID := TOrder(Items.Objects[ItemIndex]).ID; + if Length(Piece(BigOrderID,';',1)) > 0 then + begin + ReportBox(ResultOrder(BigOrderID), 'Order Results - ' + BigOrderID, True); + Notifications.Delete; + end; + end; + end; + NF_DC_ORDER : + begin + ViewAlertedOrders(OrderIEN, STS_RECENT, '', False, True, 'All Services, Recent Activity'); + Notifications.Delete; + end; + NF_FLAGGED_OI_EXP_INPT : + begin + ViewAlertedOrders('', STS_EXPIRING, '', False, True, 'All Services, Expiring'); + UpdateExpiringFlaggedOIAlerts(Patient.DFN, NF_FLAGGED_OI_EXP_INPT); + end; + NF_FLAGGED_OI_EXP_OUTPT : + begin + ViewAlertedOrders('', STS_EXPIRING, '', False, True, 'All Services, Expiring'); + UpdateExpiringFlaggedOIAlerts(Patient.DFN, NF_FLAGGED_OI_EXP_OUTPT); + end; + NF_CONSULT_REQUEST_CANCEL_HOLD : + begin + OrderIEN := GetConsultOrderNumber(Notifications.AlertData); + ViewAlertedOrders(OrderIEN, STS_DISCONTINUED, 'CONSULTS', False, True, 'Consults, Cancelled'); + with lstOrders do Selected[ItemIndex] := True; + end; + else mnuViewUnsignedClick(Self); + end; +end; + +procedure TfrmOrders.ViewAlertedOrders(OrderIEN: string; Status: integer; DispGrp: string; + BySvc, InvDate: boolean; Title: string); {**KCM**} +var + i, ADGroup: integer; + DGroups: TStrings; +begin + DGroups := TStringList.Create; + try + ADGroup := DGroupAll; + if Length(DispGrp) > 0 then + begin + ListDGroupAll(DGroups); + for i := 0 to DGroups.Count-1 do + if Piece(DGroups.Strings[i], U, 2) = DispGrp then + ADGroup := StrToIntDef(Piece(DGroups.Strings[i], U, 1),0); + end; + finally + DGroups.Free; + end; + SetOrderView(Status, ADGroup, Title, True); + with lstOrders do + begin + if Length(OrderIEN) > 0 then + begin + for i := 0 to Items.Count-1 do + if Piece(TOrder(Items.Objects[i]).ID, ';', 1) = OrderIEN then + begin + ItemIndex := i; + Selected[i] := True; + break; + end; + end + else for i := 0 to Items.Count-1 do + if Piece(TOrder(Items.Objects[i]).ID, ';', 1) <> '0' then Selected[i] := True; + if SelCount = 0 then Notifications.Delete; + end; +end; + +procedure TfrmOrders.pnlRightResize(Sender: TObject); +begin + inherited; + imgHide.Left := pnlRight.Width - 19; +end; + +procedure TfrmOrders.RequestPrint; +{ obtain print devices for selected orders, do appropriate prints } +const + TX_NEW_LOC1 = 'The patient''s location has changed to '; + TX_NEW_LOC2 = '.' + CRLF + 'Should the orders be printed using the new location?'; + TC_NEW_LOC = 'New Patient Location'; +var + SelectedList: TStringList; + ALocation, i: Integer; + AName, ASvc, DeviceInfo: string; + Nature: char; + PrintIt: Boolean; +begin + inherited; + if NoneSelected(TX_NOSEL) then Exit; + //if not AuthorizedUser then Exit; removed in v17.1 (RV) SUX-0901-41044 + SelectedList := TStringList.Create; + Nature := #0; + try + with lstOrders do for i := 0 to Items.Count - 1 do + if Selected[i] then SelectedList.Add(Piece(TOrder(Items.Objects[i]).ID, U, 1)); + CurrentLocationForPatient(Patient.DFN, ALocation, AName, ASvc); + if (ALocation > 0) and (ALocation <> Encounter.Location) then + begin + //gary + Encounter.Location := frmClinicWardMeds.ClinicOrWardLocation(Alocation); + // if InfoBox(TX_NEW_LOC1 + AName + TX_NEW_LOC2, TC_NEW_LOC, MB_YESNO) = IDYES + // then Encounter.Location := ALocation; + end; + if Encounter.Location = 0 + then Encounter.Location := CommonLocationForOrders(SelectedList); + if Encounter.Location = 0 then // location required for DEVINFO + begin + LookupLocation(ALocation, AName, LOC_ALL, TX_LOC_PRINT); + if ALocation > 0 then Encounter.Location := ALocation; + end; + frmFrame.DisplayEncounterText; + if Encounter.Location <> 0 then + begin + SetupOrdersPrint(SelectedList, DeviceInfo, Nature, False, PrintIt); + if PrintIt then ExecutePrintOrders(SelectedList, DeviceInfo); + SynchListToOrders; + end + else InfoBox(TX_PRINT_LOC, TC_REQ_LOC, MB_OK or MB_ICONWARNING); + finally + SelectedList.Free; + end; +end; + +procedure TfrmOrders.btnDelayedOrderClick(Sender: TObject); +const + TX_DELAYCAP = ' Delay release of new order(s) until'; +var + AnEvent: TOrderDelayEvent; + ADlgLst: TStringList; + IsRealeaseNow: boolean; +begin + inherited; + if not EncounterPresentEDO then Exit; + AnEvent.EventType := #0; + AnEvent.TheParent := TParentEvent.Create; + AnEvent.EventIFN := 0; + AnEvent.PtEventIFN := 0; + AnEvent.EventName := ''; + if not CloseOrdering then Exit; + FCalledFromWDO := True; + //frmFrame.UpdatePtInfoOnRefresh; + IsRealeaseNow := False; + FCompress := True; //treat as lstSheet click + ADlgLst := TStringList.Create; + //SetEvtIFN(AnEvent.EventIFN); + if ShowDelayedEventsTreatingSepecialty(TX_DELAYCAP,AnEvent,ADlgLst,IsRealeaseNow) then + begin + FEventForCopyActiveOrders := AnEvent; + FAskForCancel := False; + ResetOrderPage(AnEvent,ADlgLst, IsRealeaseNow); + end; + FCompress := False; + FCalledFromWDO := False; + if (FCurrentView <> nil) and (FCurrentView.EventDelay.PtEventIFN>0) and + (PtEvtCompleted(FCurrentView.EventDelay.PtEventIFN, FCurrentView.EventDelay.EventName)) then + Exit; +end; + +procedure TfrmOrders.CompressEventSection; +begin + hdrOrders.Sections[0].MaxWidth := 0; + hdrOrders.Sections[0].MinWidth := 0; + hdrOrders.Sections[0].Width := 0; + hdrOrders.Sections[0].Text := ''; +end; + +procedure TfrmOrders.ExpandEventSection; +begin + hdrOrders.Sections[0].MaxWidth := 10000; + hdrOrders.Sections[0].MinWidth := 50; + if FEvtColWidth > 0 then + hdrOrders.Sections[0].Width := EvtColWidth + else + hdrOrders.Sections[0].Width := 65; + hdrOrders.Sections[0].Text := 'Event'; +end; + +{procedure TfrmOrders.SetEvtIFN(var AnEvtIFN: integer); +var + APtEvntID,AnEvtInfo: string; +begin + if lstSheets.ItemIndex < 0 then + APtEvntID := Piece(lstSheets.Items[0],'^',1) + else + APtEvntID := Piece(lstSheets.Items[lstSheets.ItemIndex],'^',1); + if CharAt(APtEvntID,1) <> 'C' then + begin + if Pos('EVT',APtEvntID)>0 then + AnEvtIFN := StrToIntDef(Piece(APtEvntID,';',1),0) + else + begin + AnEvtInfo := EventInfo(APtEvntID); + AnEvtIFN := StrToIntDef(Piece(AnEvtInfo,'^',2),0); + end; + end else + AnEvtIFN := 0; +end;} + +procedure TfrmOrders.InitOrderSheetsForEvtDelay; +begin + InitOrderSheets; + DfltViewForEvtDelay; +end; + +procedure TfrmOrders.DfltViewForEvtDelay; +begin + inherited; + if not CanChangeOrderView then Exit; + lstSheets.ItemIndex := 0; + FCurrentView := TOrderView(lstSheets.Items.Objects[0]); + LoadOrderViewDefault(FCurrentView); + lstSheets.Items[0] := 'C;0^' + FCurrentView.ViewName; +end; + +procedure TfrmOrders.EventRealeasedOrder1Click(Sender: TObject); +var + AnOrderView: TOrderView; +begin + inherited; + if not CanChangeOrderView then Exit; + AnOrderView := TOrderView.Create; + AnOrderView.Filter := STS_ACTIVE; + AnOrderView.DGroup := DGroupAll; + AnOrderView.ViewName := 'All Services, Active'; + AnOrderView.InvChrono := True; + AnOrderView.ByService := True; + AnOrderView.CtxtTime := 0; + AnOrderView.TextView := 0; + AnOrderView.EventDelay.EventType := 'C'; + AnOrderView.EventDelay.Specialty := 0; + AnOrderView.EventDelay.Effective := 0; + AnOrderView.EventDelay.EventIFN := 0; + AnOrderView.EventDelay.EventName := 'All Services, Active'; + SelectEvtReleasedOrders(AnOrderView); + with AnOrderView do if Changed then + begin + mnuActRel.Visible := False; + popOrderRel.Visible := False; + FCompress := True; + lstSheets.ItemIndex := -1; + lblWrite.Caption := 'Write Orders'; + lstWrite.Clear; + LoadWriteOrders(lstWrite.Items); + if AnOrderView.EventDelay.PtEventIFN > 0 then + RefreshOrderList(FROM_SERVER,IntToStr(AnOrderView.EventDelay.PtEventIFN)); + lblOrders.Caption := AnOrderView.ViewName; + if ByService then + begin + if InvChrono then FDfltSort := OVS_CATINV else FDfltSort := OVS_CATFWD; + end else + begin + if InvChrono then FDfltSort := OVS_INVERSE else FDfltSort := OVS_FORWARD; + end; + end; + if FFromDCRelease then + FFromDCRelease := False; +end; + +procedure TfrmOrders.ResetOrderPage(AnEvent: TOrderDelayEvent; ADlgLst: TStringList; IsRealeaseNow: boolean); +var + i,AnIndex,EFilter: integer; + APtEvtID: string; // ptr to #100.2 + theEvtID: string; // ptr to #100.5 + tmptPtEvtID: string; + AnOrderView: TOrderView; + AnDlgStr: string; +begin + EFilter := 0; + theEvtID := ''; + AnDlgStr := ''; + IsDefaultDlg := False; + AnOrderView := TOrderView.Create; + if FCurrentView = nil then + begin + FCurrentView := TOrderView.Create; + with FCurrentView do + begin + InvChrono := True; + ByService := True; + end; + end; + if IsRealeaseNow then + lstSheets.ItemIndex := 0; + if AnEvent.EventIFN > 0 then with lstSheets do + begin + AnIndex := -1; + for i := 0 to Items.Count - 1 do + begin + theEvtID := GetEvtIFN(i); + if theEvtID = IntToStr(AnEvent.EventIFN) then + begin + AnIndex := i; + theEvtID := ''; + Break; + end; + theEvtID := ''; + end; + if AnIndex > -1 then + begin + NewEvent := False; + ItemIndex := AnIndex; + lstSheetsClick(Self); + end else + begin + NewEvent := True; + if TypeOfExistedEvent(Patient.DFN,AnEvent.EventIFN) = 2 then + begin + SaveEvtForOrder(Patient.DFN, AnEvent.EventIFN, ''); + AnEvent.IsNewEvent := False; + if (ADlgLst.Count > 0) and (Piece(ADlgLst[0],'^',2) <> 'SET') then + ADlgLst.Delete(0); + end; + if (TypeOfExistedEvent(Patient.DFN,AnEvent.EventIFN) = 0) and (AnEvent.TheParent.ParentIFN > 0) then + begin + if ((ADlgLst.Count > 0) and (Piece(ADlgLst[0],'^',2) = 'SET')) or (ADlgLst.Count = 0 )then + begin + SaveEvtForOrder(Patient.DFN, AnEvent.TheParent.ParentIFN, ''); + SaveEvtForOrder(Patient.DFN, AnEvent.EventIFN, ''); + AnEvent.IsNewEvent := False; + end; + end; + if (TypeOfExistedEvent(Patient.DFN,AnEvent.EventIFN) = 0) and (AnEvent.TheParent.ParentIFN = 0) then + begin + if ((ADlgLst.Count > 0) and (Piece(ADlgLst[0],'^',2) = 'SET')) or (ADlgLst.Count = 0 )then + begin + SaveEvtForOrder(Patient.DFN, AnEvent.EventIFN, ''); + AnEvent.IsNewEvent := False; + end; + end; + if isExistedEvent(Patient.DFN,IntToStr(AnEvent.EventIFN), APtEvtID) then + begin + case AnEvent.EventType of + 'A': EFilter := 15; + 'D': EFilter := 16; + 'T': EFilter := 17; + end; + AnOrderView.DGroup := DGroupAll; + AnOrderView.Filter := EFilter; + AnOrderView.EventDelay := AnEvent; + AnOrderView.CtxtTime := -1; + AnOrderView.TextView := 0; + AnOrderView.ViewName := 'Delayed ' + AnEvent.EventName + ' Orders'; + AnOrderView.InvChrono := FCurrentView.InvChrono; + AnOrderView.ByService := FCurrentView.ByService; + if ItemIndex >= 0 then + Items.InsertObject(ItemIndex+1, APtEvtID + U + AnOrderView.ViewName, AnOrderView) + else + Items.InsertObject(lstSheets.Items.Count, APtEvtID + U + AnOrderView.ViewName, AnOrderView); + ItemIndex := lstSheets.Items.IndexOfObject(AnOrderView); + FCurrentView := AnOrderView; + lblWrite.Caption := 'Write ' + FCurrentView.ViewName; + lstWrite.Caption := lblWrite.Caption; + ClickLstSheet; + NewEvent := True; + if ADlgLst.Count > 0 then + DisplayDefaultDlgList(lstWrite,ADlgLst) + else + begin + if DispOrdersForEvent(IntToStr(FEventForCopyActiveOrders.EventIFN)) then + begin + if IsExistedEvent(Patient.DFN,IntToStr(FEventForCopyActiveOrders.EventIFN),tmptPtEvtID) then + begin + FEventForCopyActiveOrders.PtEventIFN := StrToIntDef(tmptPtEvtID,0); + FEventForCopyActiveOrders.IsNewEvent := False + end; + CopyActiveOrdersToEvent(FOrderViewForActiveOrders, FEventForCopyActiveOrders); + end; + FEventForCopyActiveOrders.EventIFN := 0; + end; + end + else + begin + case AnEvent.EventType of + 'A': EFilter := 15; + 'D': EFilter := 16; + 'T': EFilter := 17; + end; + if ItemIndex < 0 then + ItemIndex := 0; + IsDefaultDlg := True; + AnOrderView.DGroup := DGroupAll; + AnOrderView.Filter := EFilter; + AnOrderView.EventDelay := AnEvent; + AnOrderView.CtxtTime := -1; + AnOrderView.TextView := 0; + AnOrderView.ViewName := 'Delayed ' + AnEvent.EventName + ' Orders'; + if FCurrentView <> nil then + begin + AnOrderView.InvChrono := FCurrentView.InvChrono; + AnOrderView.ByService := FCurrentView.ByService; + end; + Items.InsertObject(ItemIndex+1, IntToStr(AnEvent.EventIFN)+ ';EVT' + U + AnOrderView.ViewName, AnOrderView); + lstSheets.ItemIndex := lstSheets.Items.IndexOfObject(AnOrderView); + FCurrentView := AnOrderView; + lblWrite.Caption := 'Write ' + FCurrentView.ViewName; + lstWrite.Caption := lblWrite.Caption; + ClickLstSheet; + NewEvent := True; + if (NewEvent) and (ADlgLst.Count>0) then + DisplayDefaultDlgList(lstWrite,ADlgLst); + end; + end; + end else + begin + lblWrite.Caption := 'Write Orders'; + lstWrite.Caption := lblWrite.Caption; + RefreshOrderList(FROM_SERVER); + end; +end; + +function TfrmOrders.GetEvtIFN(AnIndex: integer): string; +begin + if AnIndex >= lstSheets.Items.Count then + begin + Result := ''; + exit; + end; + with lstSheets do + begin + if Piece(Piece(Items[AnIndex],';',2),'^',1)='EVT' then + Result := Piece(Items[AnIndex],';',1) + else + Result := GetEventIFN(Piece(Items[AnIndex], U, 1)); + end; +end; + +function TfrmOrders.PlaceOrderForDefaultDialog(ADlgInfo: string; IsDefaultDialog: boolean; AEvent: TOrderDelayEvent): boolean; +{ ADlgInfo = DlgIEN;FormID;DGroup;DlgType } +var + Activated: Boolean; + NextIndex,ix: Integer; + APtEvtIdA: string; + TheEvent: TOrderDelayEvent; +begin + inherited; + Result := False; + + if FCurrentView = nil then + begin + FCurrentView := TOrderView.Create; + with FCurrentView do + begin + InvChrono := True; + ByService := True; + end; + end; + + if AEvent.EventType = #0 then + TheEvent := FCurrentView.EventDelay + else + TheEvent := AEvent; + if not ActiveOrdering then SetConfirmEventDelay; + NextIndex := lstWrite.ItemIndex; + if not ReadyForNewOrder1(TheEvent) then + begin + lstWrite.ItemIndex := RefNumFor(Self); + Exit; + end; + if AEvent.EventType <> #0 then + lstWrite.ItemIndex := -1 + else + lstWrite.ItemIndex := NextIndex; // (ReadyForNewOrder may reset ItemIndex to -1) + + with TheEvent do + if (EventType = 'D') and (Effective = 0) then + if not ObtainEffectiveDate(Effective) then + begin + lstWrite.ItemIndex := -1; + Exit; + end; + PositionTopOrder(StrToIntDef(Piece(ADlgInfo, ';', 3), 0)); + case CharAt(Piece(ADlgInfo, ';', 4), 1) of + 'A': Activated := ActivateAction( Piece(ADlgInfo, ';', 1), Self, + lstWrite.ItemIndex); + 'D', 'Q': Activated := ActivateOrderDialog(Piece(ADlgInfo, ';', 1), + TheEvent, Self, lstWrite.ItemIndex); + 'H': Activated := ActivateOrderHTML( Piece(ADlgInfo, ';', 1), + TheEvent, Self, lstWrite.ItemIndex); + 'M': Activated := ActivateOrderMenu( Piece(ADlgInfo, ';', 1), + TheEvent, Self, lstWrite.ItemIndex); + 'O': Activated := ActivateOrderSet( Piece(ADlgInfo, ';', 1), + TheEvent, Self, lstWrite.ItemIndex); + else Activated := not (InfoBox(TX_BAD_TYPE, TC_BAD_TYPE, MB_OK) = IDOK); + end; + if (not Activated) and (IsDefaultDialog) then + begin + lstWrite.ItemIndex := -1; + ix := lstSheets.ItemIndex; + if lstSheets.ItemIndex < 0 then + Exit; + APtEvtIdA := Piece(lstSheets.Items[ix],'^',1); + if CharAt(APtEvtIdA,1) <> 'C' then + begin + if Pos('EVT',APtEvtIdA)>0 then + begin + lstSheets.Items.Objects[ix].Free; + lstSheets.Items.Delete(ix); + lstSheets.ItemIndex := 0; + lstSheetsClick(Self); + lblWrite.Caption := 'Write Orders'; + lstWrite.Caption := lblWrite.Caption; + lblOrders.Caption := Piece(lstSheets.Items[0],U,2); + lstOrders.Caption := Piece(lstSheets.Items[0],U,2); + lstWrite.Clear; + LoadWriteOrders(lstWrite.Items); + end; + end; + end; + Result := Activated; +end; + +function TfrmOrders.DisplayDefaultDlgList(ADest: TORListBox; ADlgList: TStringList): boolean; +var + i,j: integer; + AnDlgStr: string; + AFillEvent: TOrderDelayEvent; + APtEvtID,tmpPtEvtID: string; +begin + AFillEvent.EventType := #0; + AFillEvent.EventIFN := 0; + AFillEvent.PtEventIFN := 0; + AFillEvent.TheParent := TParentEvent.Create; + + Result := False; + for i := 0 to ADlgList.Count - 1 do + begin + if i = 0 then + begin + if AnsiCompareText('Set', Piece(ADlgList[i],'^',2)) = 0 then + IsDefaultDlg := False; + end; + if i > 0 then + IsDefaultDlg := False; + ADest.ItemIndex := -1; + for j := 0 to ADest.Items.Count - 1 do + begin + if Piece(ADest.Items[j],';',1)=Piece(ADlgList[i],'^',1) then + begin + ADest.ItemIndex := j; + break; + end; + end; + + if ADest.ItemIndex < 0 then + AnDlgStr := GetDlgData(Piece(ADlgList[i],'^',1)) + else + AnDlgStr := ADest.Items[ADest.ItemIndex]; + + if IsDefaultDlg then NeedShowModal := True else FNeedShowModal := False; + if not IsDefaultDlg then + begin + if FEventForCopyActiveOrders.EventIFN > 0 then + begin + if IsExistedEvent(Patient.DFN,IntToStr(FEventForCopyActiveOrders.EventIFN),tmpPtEvtID) then + begin + FEventForCopyActiveOrders.PtEventIFN := StrToIntDef(tmpPtEvtID,0); + FEventForCopyActiveOrders.IsNewEvent := False + end; + if DispOrdersForEvent(IntToStr(FEventForCopyActiveOrders.EventIFN)) then + CopyActiveOrdersToEvent(FOrderViewForActiveOrders, FEventForCopyActiveOrders); + end; + FEventForCopyActiveOrders.EventIFN := 0; + end; + + if PlaceOrderForDefaultDialog(AnDlgStr,IsDefaultDlg, AFillEvent) then + begin + if isExistedEvent(Patient.DFN,IntToStr(FEventForCopyActiveOrders.EventIFN), APtEvtID) then + begin + FCurrentView.EventDelay.PtEventIFN := StrToIntDef(APtEvtID,0); + FCurrentView.EventDelay.IsNewEvent := False; + end; + if FEventForCopyActiveOrders.EventIFN > 0 then + begin + if IsExistedEvent(Patient.DFN,IntToStr(FEventForCopyActiveOrders.EventIFN),tmpPtEvtID) then + begin + FEventForCopyActiveOrders.PtEventIFN := StrToIntDef(tmpPtEvtID,0); + FEventForCopyActiveOrders.IsNewEvent := False + end; + if DispOrdersForEvent(IntToStr(FEventForCopyActiveOrders.EventIFN)) then + CopyActiveOrdersToEvent(FOrderViewForActiveOrders, FEventForCopyActiveOrders); + end; + {if isExistedEvent(Patient.DFN,IntToStr(FEventForCopyActiveOrders.EventIFN), APtEvtID) then + begin + FCurrentView.EventDelay.PtEventIFN := StrToIntDef(APtEvtID,0); + FCurrentView.EventDelay.IsNewEvent := False; + end;} + EventDefaultOrder := ''; + FEventForCopyActiveOrders.EventIFN := 0; + Result := IsDefaultDlg + end + else break; + end; +end; + +procedure TfrmOrders.ClickLstSheet; +begin + FAskForCancel := False; + lstSheetsClick(Self); + FAskForCancel := True; +end; + +procedure TfrmOrders.lblWriteMouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + inherited; + lblWrite.Hint := lblWrite.Caption; +end; + +procedure TfrmOrders.InitOrderSheets2(AnItem: string); +var + i: Integer; +begin + InitOrderSheets; + LoadOrderViewDefault(TOrderView(lstSheets.Items.Objects[0])); + lstSheets.Items[0] := 'C;0^' + TOrderView(lstSheets.Items.Objects[0]).ViewName; + if Length(AnItem)>0 then + begin + with lstSheets do for i := 0 to Items.Count - 1 do + begin + if AnsiCompareText(TOrderView(Items.Objects[i]).ViewName, AnItem)=0 then + begin + ItemIndex := i; + FCurrentView := TOrderView(lstSheets.Items.Objects[i]); + break; + end; + end; + end; + if lstSheets.ItemIndex < -1 then + lstSheets.ItemIndex := 0; + lstSheetsClick(Self); +end; + +procedure TfrmOrders.SetFontSize( FontSize: integer); +begin + inherited SetFontSize( FontSize ); + RedrawOrderList; + mnuOptimizeFieldsClick(self); + lstSheets.Repaint; + lstWrite.Repaint; + btnDelayedOrder.Repaint; +end; + +procedure TfrmOrders.popOrderPopup(Sender: TObject); +begin + inherited; + if PatientStatusChanged then exit; + //frmFrame.UpdatePtInfoOnRefresh; +end; + +procedure TfrmOrders.mnuViewClick(Sender: TObject); +begin + inherited; + if PatientStatusChanged then exit; + //frmFrame.UpdatePtInfoOnRefresh; +end; + +procedure TfrmOrders.mnuActClick(Sender: TObject); +begin + inherited; + if PatientStatusChanged then exit; + //frmFrame.UpdatePtInfoOnRefresh; +end; + +procedure TfrmOrders.mnuOptClick(Sender: TObject); +begin + inherited; + if PatientStatusChanged then exit; + //frmFrame.UpdatePtInfoOnRefresh; +end; + +procedure TfrmOrders.AddToListBox(AnOrderList: TList); +var + idx: integer; + AnOrder: TOrder; + i: integer; +begin + with AnOrderList do for idx := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[idx]); + if (AnOrder.OrderTime <= 0) then + Continue; + i := lstOrders.Items.AddObject(AnOrder.ID, AnOrder); + lstOrders.Items[i] := GetPlainText(AnOrder,i); + end; +end; + +procedure TfrmOrders.ChangesUpdate(APtEvtID: string); +var + jdx: integer; + APrtEvtId, tempEvtId,EvtOrderID: string; +begin + APrtEvtId := TheParentPtEvt(APtEvtID); + if Length(APrtEvtId)>0 then + tempEvtId := APrtEvtId + else + tempEvtId := APtEvtID; + for jdx := EvtOrderList.Count - 1 downto 0 do + if AnsiCompareStr(Piece(EvtOrderList[jdx],'^',1),tempEvtID) = 0 then + begin + EvtOrderID := Piece(EvtOrderList[jdx],'^',2); + Changes.Remove(CH_ORD,EvtOrderID); + EvtOrderList.Delete(jdx); + end; +end; + +function TfrmOrders.PtEvtCompleted(APtEvtID: integer; APtEvtName: string; FromMeds: boolean): boolean; +begin + Result := False; + if IsCompletedPtEvt(APtEvtID) then + begin + if FromMeds then + InfoBox('The event "Delayed ' + APtEvtName + '" ' + TX_CMPTEVT_MEDSTAB, 'Warning', MB_OK or MB_ICONWARNING) + else + InfoBox('The event "Delayed ' + APtEvtName + '" ' + TX_CMPTEVT, 'Warning', MB_OK or MB_ICONWARNING); + GroupChangesUpdate('Delayed ' + APtEvtName); + InitOrderSheetsForEvtDelay; + lstSheets.ItemIndex := 0; + lstSheetsClick(self); + RefreshOrderList(True); + Result := True; + end; +end; + +procedure TfrmOrders.RefreshToFirstItem; +begin + InitOrderSheetsForEvtDelay; + lstSheets.ItemIndex := 0; + RefreshOrderList(True); +end; + +procedure TfrmOrders.GroupChangesUpdate(GrpName: string); +var + ji: integer; + theChangeItem: TChangeItem; +begin + Changes.ChangeOrderGrp(GrpName,''); + for ji := 0 to Changes.Orders.Count - 1 do + begin + theChangeItem := TChangeItem(Changes.Orders.Items[ji]); + if AnsiCompareText(theChangeItem.GroupName,GrpName)=0 then + Changes.ReplaceODGrpName(theChangeItem.ID,''); + end; +end; + +procedure TfrmOrders.UMEventOccur(var Message: TMessage); +begin + InfoBox('The event "Delayed ' + FCurrentView.EventDelay.EventName + '" ' + TX_CMPTEVT, 'Warning', MB_OK or MB_ICONWARNING); + GroupChangesUpdate('Delayed '+ frmOrders.TheCurrentView.EventDelay.EventName); + InitOrderSheetsForEvtDelay; + lstSheets.ItemIndex := 0; + lstSheetsClick(self); + RefreshOrderList(True); +end; + +procedure TfrmOrders.setSectionWidths; +var + i: integer; +begin + //CQ6170 + for i := 0 to 9 do + origWidths[i] := hdrOrders.Sections[i].Width; + //end CQ6170 +end; + +function TfrmOrders.getTotalSectionsWidth : integer; +var + i: integer; +begin + //CQ6170 + Result := 0; + for i := 0 to hdrOrders.Sections.Count - 1 do + Result := Result + hdrOrders.Sections[i].Width; + //end CQ6170 +end; + +procedure TfrmOrders.FormShow(Sender: TObject); +begin + inherited; + //force horizontal scrollbar + //lstOrders.ScrollWidth := lstOrders.ClientWidth+1000; //CQ6170 +end; + +procedure TfrmOrders.hdrOrdersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + i: integer; + totalSectionsWidth, originalwidth: integer; +begin + inherited; + //CQ6170 + totalSectionsWidth := getTotalSectionsWidth; + if totalSectionsWidth > lstOrders.Width - 5 then + begin + originalwidth := 0; + for i := 0 to hdrOrders.Sections.Count - 1 do + originalwidth := originalwidth + origWidths[i]; + if originalwidth < totalSectionsWidth then + begin + for i := 0 to hdrOrders.Sections.Count - 1 do + hdrOrders.Sections[i].Width := origWidths[i]; + lstOrders.Invalidate; + end; + end; + //end CQ6170 +end; + +procedure TfrmOrders.hdrOrdersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + inherited; + setSectionWidths; //CQ6170 +end; + +function TfrmOrders.PatientStatusChanged: boolean; +const + + msgTxt1 = 'Patient status was changed from '; + msgTxt2 = 'CPRS needs to refresh patient information to display patient latest record.'; + //GE CQ9537 - Change message text + msgTxt3 = 'Patient has been admitted. '; + msgTxt4 = CRLF + 'You will be prompted to sign your orders. Any new orders subsequently' + + CRLF +'entered and signed will be directed to the inpatient staff.'; +var + PtSelect: TPtSelect; + IsInpatientNow: boolean; + ptSts: string; +begin + result := False; + SelectPatient(Patient.DFN, PtSelect); + IsInpatientNow := Length(PtSelect.Location) > 0; + if Patient.Inpatient <> IsInpatientNow then + begin + if (not Patient.Inpatient) then //GE CQ9537 - Change message text + MessageDlg(msgTxt3 + msgTxt4, mtWarning, [mbOK], 0) + else + begin + if Patient.Inpatient then ptSts := 'Inpatient to Outpatient.'; + MessageDlg(msgTxt1 + ptSts + #13#10#13 + msgTxt2, mtWarning, [mbOK], 0); + end; + frmFrame.mnuFileRefreshClick(Application); + Result := True; + end; +end; + +function TfrmOrders.CheckOrderStatus: boolean; +var +i: integer; +AnOrder: TOrder; +begin + Result := False; + with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then + begin + AnOrder := TOrder(Items.Objects[i]); + if AnORder.Status <> GetOrderStatus(AnOrder.ID) then + begin + MessageDlg('The Order status has changed.' + #13#10#13 + 'CPRS needs to refresh patient information to display the correct order status', mtWarning, [mbOK], 0); + frmFrame.mnuFileRefreshClick(Application); + Result := True; + EXIT; + end; + end; +end; + +(*procedure TfrmOrders.ActivateDeactiveRenew; +var + i: Integer; + AnOrder: TOrder; + tmpArr: TStringList; +begin + tmpArr := TStringList.Create; + with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then + begin + AnOrder := TOrder(Items.Objects[i]); + if AnOrder.Status = 5 then tmpArr.Add(AnOrder.ID); + end; + if tmpArr <> nil then frmActivateDeactive.fActivateDeactive(tmpArr); +end; *) + +procedure TfrmOrders.ViewInfo(Sender: TObject); +begin + inherited; + frmFrame.ViewInfo(Sender); +end; + +procedure TfrmOrders.mnuViewInformationClick(Sender: TObject); +begin + inherited; + mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled; + mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled; + mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled; + mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No'); + mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No'); + mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled; + mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled; + mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled; + mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled; +end; + +procedure TfrmOrders.mnuOptimizeFieldsClick(Sender: TObject); +var + totalSectionsWidth, unitvalue: integer; +begin + totalSectionsWidth := pnlRight.Width - 3; + if totalSectionsWidth < 16 then exit; + unitvalue := round(totalSectionsWidth / 16); + with hdrOrders do + begin + Sections[1].Width := unitvalue; + Sections[2].Width := pnlRight.Width - (unitvalue * 10) - 5; + Sections[3].Width := unitvalue * 2; + Sections[4].Width := unitvalue * 2; + Sections[5].Width := unitvalue; + Sections[6].Width := unitvalue; + Sections[7].Width := unitvalue; + Sections[8].Width := unitvalue; + Sections[9].Width := unitvalue; + end; + hdrOrdersSectionResize(hdrOrders, hdrOrders.Sections[0]); + hdrOrders.Repaint; +end; + +procedure TfrmOrders.hdrOrdersSectionClick(HeaderControl: THeaderControl; + Section: THeaderSection); +begin + inherited; + //if Section = hdrOrders.Sections[1] then + mnuOptimizeFieldsClick(self); +end; + +procedure TfrmOrders.sptHorzMoved(Sender: TObject); +begin + inherited; + mnuOptimizeFieldsClick(self); +end; + +end. + diff --git a/CPRS-Chart/Orders/fOrdersAlert.dfm b/CPRS-Chart/Orders/fOrdersAlert.dfm new file mode 100644 index 0000000..4e79c4c --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersAlert.dfm @@ -0,0 +1,82 @@ +inherited frmAlertOrders: TfrmAlertOrders + Left = 374 + Top = 193 + Height = 278 + Caption = 'Alert when Results Available' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 297 + Height = 13 + Caption = + 'The following orders will send alerts when results are available' + + ' -' + end + object lblAlertRecipient: TLabel + Left = 8 + Top = 208 + Width = 72 + Height = 13 + Caption = 'Alert Recipient:' + end + object lstOrders: TCaptionListBox + Left = 8 + Top = 22 + Width = 411 + Height = 176 + ItemHeight = 13 + TabOrder = 0 + Caption = + 'The following orders will send alerts when results are available' + + ' -' + end + object cmdOK: TButton + Left = 267 + Top = 222 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 222 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 3 + OnClick = cmdCancelClick + end + object cboAlertRecipient: TORComboBox + Left = 7 + Top = 226 + Width = 226 + Height = 21 + HelpContext = 9102 + Style = orcsDropDown + AutoSelect = True + Caption = 'Alert Recipient' + 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 = 1 + OnExit = cboOnExit + OnNeedData = cboAlertRecipientNeedData + end +end diff --git a/CPRS-Chart/Orders/fOrdersAlert.pas b/CPRS-Chart/Orders/fOrdersAlert.pas new file mode 100644 index 0000000..9e02f97 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersAlert.pas @@ -0,0 +1,113 @@ +unit fOrdersAlert; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls; + +type + TfrmAlertOrders = class(TfrmAutoSz) + Label1: TLabel; + lstOrders: TCaptionListBox; + cmdOK: TButton; + cmdCancel: TButton; + lblAlertRecipient: TLabel; + cboAlertRecipient: TORComboBox; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cboAlertRecipientNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); + procedure cboOnExit(Sender: TObject); + + private + OKPressed: Boolean; + end; + +function ExecuteAlertOrders(SelectedList: TList): Boolean; + +implementation + +{$R *.DFM} + +uses rOrders, uCore, rCore; + +var + AlertRecip: Int64; + Provider: String; + + +function ExecuteAlertOrders(SelectedList: TList): Boolean; +var + frmAlertOrders: TfrmAlertOrders; + i: Integer; + AnOrder: TOrder; +begin + Result := False; + if SelectedList.Count = 0 then Exit; + with SelectedList do + AnOrder := TOrder(Items[0]); //use first order's provider + Provider := AnOrder.ProviderName; + AlertRecip := AnOrder.Provider; + frmAlertOrders := TfrmAlertOrders.Create(Application); + try + ResizeFormToFont(TForm(frmAlertOrders)); + //AlertRecip := User.DUZ; + with SelectedList do for i := 0 to Count - 1 do + frmAlertOrders.lstOrders.Items.Add(TOrder(Items[i]).Text); + frmAlertOrders.ShowModal; + if frmAlertOrders.OKPressed then + begin + with SelectedList do for i := 0 to Count - 1 do AlertOrder(TOrder(Items[i]),AlertRecip); + Result := True; + end; + finally + frmAlertOrders.Release; + with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + end; +end; + +procedure TfrmAlertOrders.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; + cboAlertRecipient.InitLongList(Provider); + cboAlertRecipient.SelectByIEN(AlertRecip); +end; + +procedure TfrmAlertOrders.cmdOKClick(Sender: TObject); +begin + inherited; + cmdOK.SetFocus; //make sure cbo exit events fire + OKPressed := True; + Close; +end; + +procedure TfrmAlertOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmAlertOrders.cboAlertRecipientNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cboAlertRecipient.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmAlertOrders.cboOnExit(Sender: TObject); +begin + with cboAlertRecipient do + if (ItemIndex = -1) or (Text = '') then + begin + AlertRecip := -1; + ItemIndex := -1; + Text := ''; + end + else + begin + AlertRecip := ItemIEN; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersCV.dfm b/CPRS-Chart/Orders/fOrdersCV.dfm new file mode 100644 index 0000000..81ad39d --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersCV.dfm @@ -0,0 +1,94 @@ +object frmChgEvent: TfrmChgEvent + Left = 256 + Top = 148 + Width = 562 + Height = 428 + Caption = 'Change Release Event' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 554 + Height = 38 + Align = alTop + AutoSize = True + TabOrder = 0 + object lblPtInfo: TLabel + Left = 1 + Top = 1 + Width = 552 + Height = 36 + Align = alTop + Color = clBtnFace + Constraints.MinHeight = 36 + ParentColor = False + Layout = tlCenter + end + end + object pnlBottom: TPanel + Left = 0 + Top = 38 + Width = 554 + Height = 362 + Align = alClient + TabOrder = 1 + DesignSize = ( + 554 + 362) + object cboSpecialty: TORComboBox + Left = 12 + Top = 8 + Width = 443 + Height = 344 + Anchors = [akLeft, akTop, akRight, akBottom] + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '9' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnChange = cboSpecialtyChange + OnDblClick = cboSpecialtyDblClick + end + object btnCancel: TButton + Left = 466 + Top = 331 + Width = 75 + Height = 20 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = btnCancelClick + end + object btnAction: TButton + Left = 466 + Top = 303 + Width = 75 + Height = 20 + Anchors = [akRight, akBottom] + TabOrder = 2 + Visible = False + OnClick = btnActionClick + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersCV.pas b/CPRS-Chart/Orders/fOrdersCV.pas new file mode 100644 index 0000000..9ebf78c --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersCV.pas @@ -0,0 +1,443 @@ +unit fOrdersCV; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ORCtrls, ORFn, fAutoSZ, uOrders, rOrders; + +type + TfrmChgEvent = class(TfrmAutoSz) + pnlTop: TPanel; + lblPtInfo: TLabel; + pnlBottom: TPanel; + cboSpecialty: TORComboBox; + btnCancel: TButton; + btnAction: TButton; + procedure FormCreate(Sender: TObject); + procedure cboSpecialtyChange(Sender: TObject); + procedure btnActionClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure cboSpecialtyDblClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + { Private declarations } + FDefaultEvntIFN: Integer; + FDefaultPtEvntIFN: Integer; + FCurrSpecialty : string; + FDefaultIndex: String; + FOKPress: boolean; + FLastIndex: Integer; + + procedure updateChanges(Const AnOrderIDList: TStringList; Const AnEventName: String); + + public + { Public declarations } + procedure LoadSpecialtyList; + procedure Highlight(APtEvtID: string); + procedure FilterOutEmptyPtEvt; + property CurrSpecialty: string read FCurrSpecialty write FCurrSpecialty; + property DefaultIndex: string read FDefaultIndex write FDefaultIndex; + property OKPress: boolean read FOKPress write FOKPress; + + end; + +function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; + var DestPtEvtID: integer; var DestPtEvtName: string): boolean; + + +implementation + +{$R *.DFM} + +uses uCore, uConst, forders, fODChangeEvtDisp, rMisc; + +function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; + var DestPtEvtID: integer; var DestPtEvtName: string): boolean; +const + CHANGE_CAP = 'The release event for the following orders will be changed to: '; + REMOVE_CAP = 'The release event will be deleted for the following orders: '; +var + i: integer; + frmChgEvent : TfrmChgEvent; + AnOrder: TOrder; + AnOrderIDList: TStringList; + EvtInfo,AnEvtDlg: string; + AnEvent: TOrderDelayEvent; + ThePtEvtID, TheDefaultPtEvtID, TheDefaultEvtInfo, SpeCap: string; + IsNewEvent: boolean; + ExistedPtEvtId: integer; + + function DisplayEvntDialog(AEvtDlg: String; AnEvent: TOrderDelayEvent): boolean; + var + DlgData: string; + begin + DlgData := GetDlgData(AEvtDlg); + frmOrders.NeedShowModal := True; + frmOrders.IsDefaultDlg := True; + Result := frmOrders.PlaceOrderForDefaultDialog(DlgData, True, AnEvent); + frmOrders.IsDefaultDlg := False; + frmOrders.NeedShowModal := False; + end; + + function FindMatchedPtEvtID(EventName: string): integer; + var + cnt: integer; + viewName: string; + begin + Result := 0; + for cnt := 0 to frmOrders.lstSheets.Items.Count - 1 do + begin + viewName := Piece(frmOrders.lstSheets.Items[cnt],'^',2); + if AnsiCompareText(EventName,viewName)=0 then + begin + Result := StrToIntDef(Piece(frmOrders.lstSheets.Items[cnt],'^',1),0); + break; + end; + end; + + end; +begin + Result := False; + IsNewEvent := False; + AnEvent.EventType := #0; + AnEvent.EventIFN := 0; + AnEvent.EventName := ''; + AnEvent.Specialty := 0; + AnEvent.Effective := 0; + AnEvent.PtEventIFN := 0; + AnEvent.TheParent := TParentEvent.Create; + AnEvent.IsNewEvent := False; + + if SelectedList.Count = 0 then Exit; + frmChgEvent := TfrmChgEvent.Create(Application); + SetFormPosition(frmChgEvent); + frmChgEvent.CurrSpecialty := Piece(GetCurrentSpec(Patient.DFN),'^',1); + if Length(frmChgEvent.CurrSpecialty)>0 then + SpeCap := #13 + ' The current treating specialty is ' + frmChgEvent.CurrSpecialty + else + SpeCap := #13 + ' No treating specialty is available.'; + ResizeFormToFont(TForm(frmChgEvent)); + SetFormPosition(frmChgEvent); + if Patient.Inpatient then + frmChgEvent.lblPtInfo.Caption := ' ' + Patient.Name + ' is currently admitted to ' + Encounter.LocationName + SpeCap + else + frmChgEvent.lblPtInfo.Caption := ' ' + Patient.Name + ' is currently at ' + Encounter.LocationName + SpeCap; + frmChgEvent.cboSpecialty.Caption := frmChgEvent.lblPtInfo.Caption; + ThePtEvtID := ''; + AnOrder := TOrder(selectedList[0]); + TheDefaultPtEvtID := GetOrderPtEvtID(AnOrder.ID); + if Length(TheDefaultPtEvtID)>0 then + begin + frmChgEvent.FDefaultPtEvntIFN := StrToIntDef(TheDefaultPtEvtId,0); + TheDefaultEvtInfo := EventInfo(TheDefaultPtEvtID); + frmChgEvent.FDefaultEvntIFN := StrToIntDef(Piece(TheDefaultEvtInfo,'^',2),0); + end; + frmChgEvent.LoadSpecialtyList; + frmChgEvent.ShowModal; + if frmChgEvent.OKPress then + begin + if frmChgEvent.btnAction.Caption = 'Change' then + begin + AnOrderIDList := TStringList.Create; + for i := 0 to selectedList.Count - 1 do + begin + AnOrder := TOrder(selectedList[i]); + AnOrderIDList.Add(AnOrder.ID); + end; + EvtInfo := frmChgEvent.cboSpecialty.Items[frmChgEvent.cboSpecialty.ItemIndex]; + AnEvent.EventType := CharAt(Piece(EvtInfo,'^',3),1); + AnEvent.EventIFN := StrToInt64Def(Piece(EvtInfo,'^',1),0); + if StrToInt64Def(Piece(EvtInfo,'^',13),0) > 0 then + begin + AnEvent.TheParent.Assign(Piece(EvtInfo,'^',13)); + AnEvent.EventType := AnEvent.TheParent.ParentType; + end; + AnEvent.EventName := Piece(EvtInfo,'^',9); + ExistedPtEvtId := FindMatchedPtEvtID('Delayed ' + AnEvent.EventName + ' Orders'); + if (ExistedPtEvtId>0) and IsCompletedPtEvt(ExistedPtEvtId) then + begin + DoesDestEvtOccur := True; + DestPtEvtId := ExistedPtEvtId; + DestPtEvtName := AnEvent.EventName; + ChangeEvent(AnOrderIDList, ''); + Result := True; + Exit; + end; + + if Length(AnEvent.EventName) < 1 then + AnEvent.EventName := Piece(EvtInfo,'^',2); + AnEvent.Specialty := 0; + if TypeOfExistedEvent(Patient.DFN,AnEvent.EventIFN) = 0 then + begin + IsNewEvent := True; + if AnEvent.TheParent.ParentIFN > 0 then + begin + if StrToIntDef(AnEvent.TheParent.ParentDlg,0)>0 then + AnEvtDlg := AnEvent.TheParent.ParentDlg; + end + else + AnEvtDlg := Piece(EvtInfo,'^',5); + end; + if (StrToIntDef(AnEvtDlg,0)>0) and (IsNewEvent) then + if not DisplayEvntDialog(AnEvtDlg, AnEvent) then + begin + frmOrders.lstSheets.ItemIndex := 0; + frmOrders.lstSheetsClick(nil); + Result := False; + Exit; + end; + if not isExistedEvent(Patient.DFN, IntToStr(AnEvent.EventIFN), ThePtEvtID) then + begin + if (AnEvent.TheParent.ParentIFN > 0) and (TypeOfExistedEvent(Patient.DFN,AnEvent.EventIFN) = 0 )then + SaveEvtForOrder(Patient.DFN, AnEvent.TheParent.ParentIFN, ''); + SaveEvtForOrder(Patient.DFN,AnEvent.EventIFN,''); + if isExistedEvent(Patient.DFN, IntToStr(AnEvent.EventIFN),ThePtEvtID) then + begin + AnEvent.IsNewEvent := False; + AnEvent.PtEventIFN := StrToIntDef(ThePtEvtID,0); + end; + end; + ChangeEvent(AnOrderIDList, ThePtEvtID); + frmChgEvent.updateChanges(AnOrderIDList,'Delayed ' + AnEvent.EventName); + frmChgEvent.Highlight(ThePtEvtID); + if frmOrders.lstSheets.ItemIndex >= 0 then + frmOrders.lstSheetsClick(Nil); + end else + begin + if not DispOrdersForEventChange(SelectedList, REMOVE_CAP) then exit; + AnOrderIDList := TStringList.Create; + for i := 0 to selectedList.Count - 1 do + begin + AnOrder := TOrder(selectedList[i]); + AnOrderIDList.Add(AnOrder.ID); + end; + ChangeEvent(AnOrderIDList,''); + frmChgEvent.updateChanges(AnOrderIDList,''); + frmChgEvent.FilterOutEmptyPtEvt; + frmOrders.InitOrderSheetsForEvtDelay; + frmOrders.lstSheets.ItemIndex := 0; + frmOrders.lstSheetsClick(Nil); + end; + Result := True; + end else + Result := False; +end; + +{ TfrmChgEvent } + +procedure TfrmChgEvent.LoadSpecialtyList; +var + i: integer; + tempStr: string; +begin + inherited; + cboSpecialty.Items.Clear; + if Patient.Inpatient then + begin + ListSpecialtiesED(#0,cboSpecialty.Items); + end + else ListSpecialtiesED('A',cboSpecialty.Items); + if FDefaultEvntIFN > 0 then + begin + for i := 0 to cboSpecialty.Items.Count - 1 do + begin + if Piece(cboSpecialty.Items[i],'^',1)=IntToStr(FDefaultEvntIFN) then + begin + tempStr := cboSpecialty.Items[i]; + cboSpecialty.Items.Insert(0,tempStr); + cboSpecialty.Items.Insert(1,'^^^^^^^^__________________________________________________________________________________'); + cboSpecialty.ItemIndex := 0; + FDefaultIndex := Piece(tempStr,'^',1); + btnAction.Visible := True; + btnAction.Caption := 'Remove'; + break; + end; + end; + if cboSpecialty.ItemIndex < 0 then + btnAction.Visible := False; + end; +end; + +procedure TfrmChgEvent.FormCreate(Sender: TObject); +begin + inherited; + FDefaultEvntIFN := 0; + FDefaultPtEvntIFN := 0; + FCurrSpecialty := ''; + FDefaultIndex := ''; + FOKPress := False; + FLastIndex := 0; + +end; + +procedure TfrmChgEvent.cboSpecialtyChange(Sender: TObject); +const + TX_MCHEVT1 = ' is already assigned to '; + TX_MCHEVT2 = #13 + 'Do you still want to write delayed orders?'; +var + AnEvtID, AnEvtType: string; + AnEvtName,ATsName: string; + i: integer; + NMRec : TNextMoveRec; + begin + inherited; + NextMove(NMRec, FLastIndex, cboSpecialty.ItemIndex); //Logic added for 508 1/31/03 + FLastIndex := NMRec.LastIndex ; + if (cboSpecialty.text = '') or (cboSpecialty.ItemIndex = -1) then + begin + btnAction.visible := False; + btnAction.Caption := ''; + end + else if (Piece(cboSpecialty.Items[cboSpecialty.ItemIndex],'^',1) <> FDefaultIndex) then + begin + btnAction.Visible := True; + btnAction.Caption := 'Change'; + end + else + begin + btnAction.Visible := True; + btnAction.Caption := 'Remove'; + end; + if cboSpecialty.ItemIndex >= 0 then + begin + AnEvtID := Piece(cboSpecialty.Items[cboSpecialty.ItemIndex],'^',1); + AnEvtType := Piece(cboSpecialty.Items[cboSpecialty.ItemIndex],'^',3); + AnEvtName := Piece(cboSpecialty.Items[cboSpecialty.ItemIndex],'^',9) + end else + begin + AnEvtID := ''; + AnEvtType := ''; + AnEvtName := ''; + end; + ATsName := CurrSpecialty; + if (StrToIntDef(AnEvtID,0)>0) and (isMatchedEvent(Patient.DFN,AnEvtID,ATsName)) then + begin + if InfoBox(Patient.Name + TX_MCHEVT1 + CurrSpecialty + ' on ' + Encounter.LocationName + TX_MCHEVT2, + 'Warning', MB_OKCANCEL or MB_ICONWARNING) = IDOK then + btnActionClick(Self) + else + begin + if Length(FDefaultIndex) > 0 then + begin + for i := 0 to cboSpecialty.Items.Count - 1 do + begin + if Piece(cboSpecialty.items[i],'^',1)=FDefaultIndex then + begin + cboSpecialty.ItemIndex := cboSpecialty.ItemIndex + NMRec.NextStep; //Added this code for 508 compliance GRE 01/30/03 + break; + end; + end; + btnAction.Caption := 'Remove'; + end else + begin + cboSpecialty.ItemIndex := 0; + btnAction.Caption := 'Change'; + end; + end; + end; +end; + +procedure TfrmChgEvent.btnActionClick(Sender: TObject); +const +TX_REASON_REQ = 'A Delayed Event must be selected.'; +TX_REMOVE = 'Are you sure you want to remove the release event from these orders?'; +TX_CHANGE = 'Are you sure you want to change the release event for these orders?'; + +begin + inherited; + if cboSpecialty.ItemIndex < 0 then + begin + InfoBox(TX_REASON_REQ, 'No Selection made', MB_OK); + Exit; + end; + OKPress := True; + Close; +end; + +procedure TfrmChgEvent.btnCancelClick(Sender: TObject); +begin + Close; +end; +procedure TfrmChgEvent.cboSpecialtyDblClick(Sender: TObject); +begin + inherited; + if cboSpecialty.ItemIndex > -1 then + btnActionClick(Self); +end; + +procedure TfrmChgEvent.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + SaveUserBounds(Self); + Action := caFree; +end; + +procedure TfrmChgEvent.updateChanges(const AnOrderIDList: TStringList; const AnEventName: String); +var + jx,TempSigSts: integer; + theChangeItem: TChangeItem; + TempText: string; +begin + for jx := 0 to AnOrderIDList.Count - 1 do + begin + theChangeItem := Changes.Locate(CH_ORD,AnOrderIDList[jx]); + if theChangeItem = nil then + begin + TempText := RetrieveOrderText(AnOrderIDList[jx]); + Changes.Add(CH_ORD,AnOrderIDList[jx],TempText,AnEventName,1); + end + else + begin + TempText := theChangeItem.Text; + TempSigSts := theChangeItem.SignState; + Changes.Remove(CH_ORD,AnOrderIDList[jx]); + Changes.Add(CH_ORD,AnOrderIDList[jx],TempText, AnEventName, TempSigSts); + end; + end; + if FDefaultPtEvntIFN>0 then + begin + if PtEvtEmpty(IntToStr(FDefaultPtEvntIFN)) then + begin + DeletePtEvent(IntToStr(FDefaultPtEvntIFN)); + frmOrders.ChangesUpdate(IntToStr(FDefaultPtEvntIFN)); + end; + end; +end; + +procedure TfrmChgEvent.Highlight(APtEvtID: string); +var + jjj: integer; +begin + FilterOutEmptyPtEvt; + frmOrders.InitOrderSheetsForEvtDelay; + for jjj := 0 to frmOrders.lstSheets.Items.Count - 1 do + begin + if Piece(frmOrders.lstSheets.Items[jjj],'^',1)=APtEvtID then + begin + frmOrders.lstSheets.ItemIndex := jjj; + break; + end; + end; +end; + +procedure TfrmChgEvent.FilterOutEmptyPtEvt; +var + TmpStr: string; + hhh: integer; + AaPtEvtList: TStringList; +begin + AaPtEvtList := TStringList.Create; + LoadOrderSheetsED(AaPtEvtList); + for hhh := 0 to AaPtEvtList.Count - 1 do + begin + if StrToIntDef(Piece(AaPtEvtList[hhh],'^',1),0)>0 then + begin + if DeleteEmptyEvt(Piece(AaPtEvtList[hhh],'^',1),TmpStr, False) then + frmOrders.ChangesUpdate(Piece(AaPtEvtList[hhh],'^',1)); + end; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersComplete.dfm b/CPRS-Chart/Orders/fOrdersComplete.dfm new file mode 100644 index 0000000..916c7cb --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersComplete.dfm @@ -0,0 +1,62 @@ +inherited frmCompleteOrders: TfrmCompleteOrders + Left = 327 + Top = 169 + Height = 284 + Caption = 'Complete Orders' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 231 + Height = 13 + Caption = 'The following orders will be marked as complete -' + end + object lblESCode: TLabel + Left = 8 + Top = 214 + Width = 123 + Height = 13 + Caption = 'Electronic Signature Code' + end + object lstOrders: TCaptionListBox + Left = 8 + Top = 22 + Width = 411 + Height = 176 + ItemHeight = 13 + TabOrder = 3 + Caption = 'The following orders will be marked as complete -' + end + object cmdOK: TButton + Left = 267 + Top = 228 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 228 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + object txtESCode: TCaptionEdit + Left = 8 + Top = 228 + Width = 137 + Height = 21 + PasswordChar = '*' + TabOrder = 0 + Caption = 'Electronic Signature Code' + end +end diff --git a/CPRS-Chart/Orders/fOrdersComplete.pas b/CPRS-Chart/Orders/fOrdersComplete.pas new file mode 100644 index 0000000..7640fd3 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersComplete.pas @@ -0,0 +1,95 @@ +unit fOrdersComplete; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls; + +type + TfrmCompleteOrders = class(TfrmAutoSz) + Label1: TLabel; + lstOrders: TCaptionListBox; + cmdOK: TButton; + cmdCancel: TButton; + lblESCode: TLabel; + txtESCode: TCaptionEdit; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + private + OKPressed: Boolean; + ESCode: string; + end; + +function ExecuteCompleteOrders(SelectedList: TList): Boolean; + +implementation + +{$R *.DFM} + +uses Hash, rCore, rOrders; + +function ExecuteCompleteOrders(SelectedList: TList): Boolean; +var + frmCompleteOrders: TfrmCompleteOrders; + i: Integer; +begin + Result := False; + if SelectedList.Count = 0 then Exit; + frmCompleteOrders := TfrmCompleteOrders.Create(Application); + try + ResizeFormToFont(TForm(frmCompleteOrders)); + with SelectedList do for i := 0 to Count - 1 do + frmCompleteOrders.lstOrders.Items.Add(TOrder(Items[i]).Text); + frmCompleteOrders.ShowModal; + if frmCompleteOrders.OKPressed then + begin + with SelectedList do + for i := 0 to Count - 1 do CompleteOrder(TOrder(Items[i]), frmCompleteOrders.ESCode); + Result := True; + end; + finally + frmCompleteOrders.Release; + with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + end; +end; + +procedure TfrmCompleteOrders.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmCompleteOrders.cmdOKClick(Sender: TObject); +const + TX_NO_CODE = 'An electronic signature code must be entered to complete orders.'; + TC_NO_CODE = 'Electronic Signature Code Required'; + TX_BAD_CODE = 'The electronic signature code entered is not valid.'; + TC_BAD_CODE = 'Invalid Electronic Signature Code'; +begin + inherited; + if Length(txtESCode.Text) = 0 then + begin + InfoBox(TX_NO_CODE, TC_NO_CODE, MB_OK); + Exit; + end; + if not ValidESCode(txtESCode.Text) then + begin + InfoBox(TX_BAD_CODE, TC_BAD_CODE, MB_OK); + txtESCode.SetFocus; + txtESCode.SelectAll; + Exit; + end; + ESCode := Encrypt(txtESCode.Text); + OKPressed := True; + Close; +end; + +procedure TfrmCompleteOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersCopy.dfm b/CPRS-Chart/Orders/fOrdersCopy.dfm new file mode 100644 index 0000000..796e3c4 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersCopy.dfm @@ -0,0 +1,212 @@ +object frmCopyOrders: TfrmCopyOrders + Left = 319 + Top = 139 + AutoScroll = False + Caption = 'Copy Orders' + ClientHeight = 419 + ClientWidth = 441 + Color = clBtnFace + Constraints.MinHeight = 100 + Constraints.MinWidth = 330 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + OnCreate = FormCreate + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object pnlInfo: TPanel + Left = 0 + Top = 41 + Width = 441 + Height = 50 + Align = alTop + TabOrder = 1 + object Image1: TImage + Left = 1 + Top = 1 + Width = 24 + Height = 22 + AutoSize = True + Enabled = False + Picture.Data = { + 07544269746D61707E010000424D7E0100000000000076000000280000001800 + 000016000000010004000000000008010000C40E0000C40E0000100000000000 + 0000000000000000800000800000008080008000000080008000808000008080 + 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF + FF008000000000000000000000080777777777777777777777700F7777777777 + 7777777777700F88888888888888888887700F88888888888888888887700F88 + 888808888888888887700F88888800888888888887700F8888880B0888888888 + 87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC + CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88 + 0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088 + 87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888 + 8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000 + 00000000000000000008} + Transparent = True + end + object Label2: TStaticText + Left = 31 + Top = 30 + Width = 365 + Height = 17 + Caption = + 'Use Transfer: if inpatient will move from one ward or treating t' + + 'eam to another.' + TabOrder = 1 + TabStop = True + end + object Label1: TStaticText + Left = 31 + Top = 4 + Width = 331 + Height = 17 + Caption = + 'Use Admit: if patient is newly admitted to the hospital or nursi' + + 'ng home.' + TabOrder = 0 + TabStop = True + end + end + inline fraEvntDelayList: TfraEvntDelayList + Left = 0 + Top = 154 + Width = 441 + Height = 265 + Align = alClient + TabOrder = 3 + Visible = False + inherited pnlDate: TPanel + Left = 336 + Height = 265 + inherited lblEffective: TLabel + Left = 451 + end + inherited orDateBox: TORDateBox + Left = 451 + end + end + inherited pnlList: TPanel + Width = 336 + Height = 265 + inherited lblEvntDelayList: TLabel + Width = 334 + end + inherited mlstEvents: TORListBox + Width = 334 + Height = 229 + OnDblClick = cmdOKClick + OnChange = fraEvntDelayListmlstEventsChange + end + inherited edtSearch: TCaptionEdit + Width = 334 + end + end + end + object pnlRadio: TPanel + Left = 0 + Top = 91 + Width = 441 + Height = 63 + Align = alTop + TabOrder = 2 + object GroupBox1: TGroupBox + Left = 1 + Top = 1 + Width = 439 + Height = 61 + Align = alClient + Constraints.MinHeight = 50 + DragMode = dmAutomatic + TabOrder = 0 + object radRelease: TRadioButton + Left = 12 + Top = 15 + Width = 318 + Height = 20 + Caption = '&Release copied orders immediately' + Checked = True + TabOrder = 0 + TabStop = True + OnClick = radReleaseClick + end + object radEvtDelay: TRadioButton + Left = 12 + Top = 37 + Width = 320 + Height = 20 + Caption = '&Delay release of copied orders' + TabOrder = 1 + OnClick = radEvtDelayClick + end + end + end + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 441 + Height = 41 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object lblPtInfo: TStaticText + Left = 0 + Top = 0 + Width = 441 + Height = 41 + Align = alTop + Anchors = [akLeft, akTop, akRight, akBottom] + AutoSize = False + Constraints.MinHeight = 40 + TabOrder = 0 + TabStop = True + end + end + object pnlBtns: TPanel + Left = 334 + Top = 91 + Width = 107 + Height = 63 + Align = alCustom + Anchors = [akTop, akRight] + TabOrder = 4 + object gbBtns: TGroupBox + Left = 1 + Top = 1 + Width = 105 + Height = 61 + Align = alClient + TabOrder = 0 + DesignSize = ( + 105 + 61) + object cmdOK: TButton + Left = 17 + Top = 13 + Width = 72 + Height = 19 + Anchors = [akTop, akRight] + Caption = 'OK' + Constraints.MaxWidth = 73 + Default = True + TabOrder = 0 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 17 + Top = 34 + Width = 72 + Height = 18 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + Constraints.MaxWidth = 73 + TabOrder = 1 + OnClick = cmdCancelClick + end + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersCopy.pas b/CPRS-Chart/Orders/fOrdersCopy.pas new file mode 100644 index 0000000..196a857 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersCopy.pas @@ -0,0 +1,333 @@ +unit fOrdersCopy; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ExtCtrls, mEvntDelay, uCore, fODBase, UConst, fAutoSz; + +type + TfrmCopyOrders = class(TForm) + pnlInfo: TPanel; + fraEvntDelayList: TfraEvntDelayList; + pnlRadio: TPanel; + GroupBox1: TGroupBox; + radRelease: TRadioButton; + radEvtDelay: TRadioButton; + Image1: TImage; + Label2: TStaticText; + Label1: TStaticText; + pnlTop: TPanel; + lblPtInfo: TStaticText; + pnlBtns: TPanel; + gbBtns: TGroupBox; + cmdOK: TButton; + cmdCancel: TButton; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure radEvtDelayClick(Sender: TObject); + procedure radReleaseClick(Sender: TObject); + procedure fraEvntDelayListcboEvntListChange(Sender: TObject); + procedure UMStillDelay(var message: TMessage); message UM_STILLDELAY; + procedure fraEvntDelayListmlstEventsDblClick(Sender: TObject); + procedure fraEvntDelayListmlstEventsChange(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + OKPressed: Boolean; + public + end; + +function SetViewForCopy(var IsNewEvent: boolean; var DoesDestEvtOccur: boolean; + var DestPtEvtID: integer; var DestPtEvtName: string): Boolean; + +var + frmCopyOrders: TfrmCopyOrders; + +implementation +{$R *.DFM} + +uses fOrders, fOrdersTS, ORFn, rOrders; + +function SetViewForCopy(var IsNewEvent: boolean; var DoesDestEvtOccur: boolean; + var DestPtEvtID: integer; var DestPtEvtName: string): Boolean; +var + EvtInfo,APtEvtID, AnEvtDlg: string; + AnEvent: TOrderDelayEvent; + SpeCap, CurrTS: string; + ExistedPtEvtID: integer; + + procedure Highlight(APtEvtID: string); + var + j: integer; + begin + frmOrders.InitOrderSheetsForEvtDelay; + for j := 0 to frmOrders.lstSheets.Items.Count - 1 do + begin + if Piece(frmOrders.lstSheets.Items[j],'^',1)=APtEvtID then + begin + frmOrders.lstSheets.ItemIndex := j; + break; + end; + end; + end; + + function DisplayEvntDialog(AEvtDlg: String; AnEvent: TOrderDelayEvent): boolean; + var + DlgData: string; + begin + DlgData := GetDlgData(AEvtDlg); + frmOrders.NeedShowModal := True; + frmOrders.IsDefaultDlg := True; + Result := frmOrders.PlaceOrderForDefaultDialog(DlgData, True, AnEvent); + frmOrders.IsDefaultDlg := False; + frmOrders.NeedShowModal := False; + end; + + function FindMatchedPtEvtID(EventName: string): integer; + var + cnt: integer; + viewName: string; + begin + Result := 0; + for cnt := 0 to frmOrders.lstSheets.Items.Count - 1 do + begin + viewName := Piece(frmOrders.lstSheets.Items[cnt],'^',2); + if AnsiCompareText(EventName,viewName)=0 then + begin + Result := StrToIntDef(Piece(frmOrders.lstSheets.Items[cnt],'^',1),0); + break; + end; + end; + end; + +begin + Result := False; + AnEvent.EventType := #0; + AnEvent.EventIFN := 0; + AnEvent.EventName := ''; + AnEvent.Specialty := 0; + AnEvent.Effective := 0; + AnEvent.PtEventIFN := 0; + AnEvent.TheParent := TParentEvent.Create; + AnEvent.IsNewEvent := False; + + frmCopyOrders := TfrmCopyOrders.Create(Application); + try + ResizeFormToFont(TForm(frmCopyOrders)); + CurrTS := Piece(GetCurrentSpec(Patient.DFN),'^',1); + if Length(CurrTS)>0 then + SpeCap := #13 + 'The current treating specialty is ' + CurrTS + else + SpeCap := #13 + 'No treating specialty is available.'; + //ResizeFormToFont(TForm(frmCopyOrders)); + if Patient.Inpatient then + frmCopyOrders.lblPtInfo.Caption := Patient.Name + ' is currently admitted to ' + Encounter.LocationName + SpeCap + else + begin + if (Encounter.Location > 0) then + frmCopyOrders.lblPtInfo.Caption := Patient.Name + ' is currently at ' + Encounter.LocationName + SpeCap + else + frmCopyOrders.lblPtInfo.Caption := Patient.Name + ' currently is an outpatient.' + SpeCap; + end; + frmCopyOrders.ShowModal; + if (frmCopyOrders.OKPressed) and (frmCopyOrders.radRelease.Checked) then + begin + frmOrders.lstSheets.ItemIndex := 0; + frmOrders.lstSheetsClick(Nil); + Result := True; + end; + if (frmCopyOrders.OKPressed) and (frmCopyOrders.radEvtDelay.Checked) then + begin + EvtInfo := frmCopyOrders.fraEvntDelayList.mlstEvents.Items[frmCopyOrders.fraEvntDelayList.mlstEvents.ItemIndex]; + AnEvent.EventType := CharAt(Piece(EvtInfo,'^',3),1); + AnEvent.EventIFN := StrToInt64Def(Piece(EvtInfo,'^',1),0); + if StrToInt64Def(Piece(EvtInfo,'^',13),0) > 0 then + begin + AnEvent.TheParent.Assign(Piece(EvtInfo,'^',13)); + AnEvent.EventType := AnEvent.TheParent.ParentType; + end; + AnEvent.EventName := frmCopyOrders.fraEvntDelayList.mlstEvents.DisplayText[frmCopyOrders.fraEvntDelayList.mlstEvents.ItemIndex]; + AnEvent.Specialty := 0; + if frmCopyOrders.fraEvntDelayList.orDateBox.Visible then + AnEvent.Effective := frmCopyOrders.fraEvntDelayList.orDateBox.FMDateTime + else + AnEvent.Effective := 0; + ExistedPtEvtID := FindMatchedPtEvtID('Delayed ' + AnEvent.EventName + ' Orders'); + if (ExistedPtEvtId>0) and IsCompletedPtEvt(ExistedPtEvtId) then + begin + DoesDestEvtOccur := True; + DestPtEvtId := ExistedPtEvtId; + DestPtEvtName := AnEvent.EventName; + IsNewEvent := False; + Result := True; + Exit; + end; + IsNewEvent := False; + if TypeOfExistedEvent(Patient.DFN,AnEvent.EventIFN) = 0 then + begin + IsNewEvent := True; + if AnEvent.TheParent.ParentIFN > 0 then + begin + if StrToIntDef(AnEvent.TheParent.ParentDlg,0)>0 then + AnEvtDlg := AnEvent.TheParent.ParentDlg; + end + else + AnEvtDlg := Piece(EvtInfo,'^',5); + end; + if (StrToIntDef(AnEvtDlg,0)>0) and (IsNewEvent) then + if not DisplayEvntDialog(AnEvtDlg, AnEvent) then + begin + frmOrders.lstSheets.ItemIndex := 0; + frmOrders.lstSheetsClick(nil); + Result := False; + Exit; + end; + if not isExistedEvent(Patient.DFN, IntToStr(AnEvent.EventIFN), APtEvtID) then + begin + IsNewEvent := True; + if (AnEvent.TheParent.ParentIFN > 0) and (TypeOfExistedEvent(Patient.DFN,AnEvent.EventIFN) = 0) then + SaveEvtForOrder(Patient.DFN,AnEvent.TheParent.ParentIFN,''); + SaveEvtForOrder(Patient.DFN,AnEvent.EventIFN,''); + if isExistedEvent(Patient.DFN, IntToStr(AnEvent.EventIFN),APtEvtID) then + begin + Highlight(APtEvtID); + AnEvent.IsNewEvent := False; + AnEvent.PtEventIFN := StrToIntDef(APtEvtID,0); + end; + end else + begin + Highlight(APtEvtID); + AnEvent.PtEventIFN := StrToIntDef(APtEvtID,0); + AnEvent.IsNewEvent := False; + end; + DestPtEvtId := AnEvent.PtEventIFN; + DestPtEvtName := AnEvent.EventName; + if (AnEvent.PtEventIFN >0) and IsCompletedPtEvt(AnEvent.PtEventIFN) then + begin + DoesDestEvtOccur := True; + IsNewEvent := False; + Result := True; + Exit; + end; + if frmOrders.lstSheets.ItemIndex > -1 then + begin + frmOrders.AskForCancel := False; + frmOrders.lstSheetsClick(nil); + frmOrders.AskForCancel := True; + end; + Result := True; + end; + finally + frmCopyOrders.fraEvntDelayList.ResetProperty; + frmCopyOrders.Release; + end; +end; + +procedure TfrmCopyOrders.FormCreate(Sender: TObject); +begin + inherited; + radRelease.Checked := True; + OKPressed := False; + if not Patient.Inpatient then + begin + pnlInfo.Visible := False; + pnlBtns.Top := pnlRadio.Top; + end; + if not radEvtDelay.Checked then + begin + if not pnlInfo.Visible then + Height := Height - fraEvntDelayList.Height - pnlInfo.Height + else + Height := Height - fraEvntDelayList.Height; + end; +end; + +procedure TfrmCopyOrders.cmdOKClick(Sender: TObject); +begin + inherited; + if (radEvtDelay.Checked) and (fraEvntDelayList.mlstEvents.ItemIndex < 0 ) then + begin + InfoBox('A release event must be selected.', 'No Selection Made', MB_OK); + Exit; + end; + if radRelease.Checked then + begin + ImmdCopyAct := True; + frmOrders.lstSheets.ItemIndex := 0; + frmOrders.lstSheetsClick(Self); + end; + OKPressed := True; + Close; +end; + +procedure TfrmCopyOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmCopyOrders.radEvtDelayClick(Sender: TObject); +begin + inherited; + if radRelease.Checked then + radRelease.Checked := False; + radEvtDelay.Checked := True; + Height := Height + fraEvntDelayList.Height; + fraEvntDelayList.Visible := True; + frmCopyOrders.fraEvntDelayList.UserDefaultEvent := StrToIntDef(GetDefaultEvt(IntToStr(User.DUZ)),0); + fraEvntDelayList.DisplayEvntDelayList; +end; + +procedure TfrmCopyOrders.radReleaseClick(Sender: TObject); +begin + inherited; + if radEvtDelay.Checked then + radEvtDelay.Checked := False; + radRelease.Checked := True; + fraEvntDelayList.Visible := False; + Height := Height - fraEvntDelayList.Height; +end; + +procedure TfrmCopyOrders.fraEvntDelayListcboEvntListChange( + Sender: TObject); +begin + inherited; + fraEvntDelayList.IsForCpXfer := True; + fraEvntDelayList.mlstEventsChange(Sender); + if fraEvntDelayList.MatchedCancel then Close +end; + +procedure TfrmCopyOrders.UMStillDelay(var message: TMessage); +begin + CmdOKClick(Application); +end; + +procedure TfrmCopyOrders.fraEvntDelayListmlstEventsDblClick( + Sender: TObject); +begin + inherited; + if fraEvntDelayList.mlstEvents.ItemID > 0 then + cmdOKClick(Self); +end; + +procedure TfrmCopyOrders.fraEvntDelayListmlstEventsChange(Sender: TObject); +begin + fraEvntDelayList.mlstEventsChange(Sender); + if fraEvntDelayList.MatchedCancel then + begin + OKPressed := False; + Close; + Exit; + end; +end; + +procedure TfrmCopyOrders.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_RETURN then + cmdOKClick(Self); +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersDC.ddp b/CPRS-Chart/Orders/fOrdersDC.ddp new file mode 100644 index 0000000..cdc0ee8 Binary files /dev/null and b/CPRS-Chart/Orders/fOrdersDC.ddp differ diff --git a/CPRS-Chart/Orders/fOrdersDC.dfm b/CPRS-Chart/Orders/fOrdersDC.dfm new file mode 100644 index 0000000..ce4a419 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersDC.dfm @@ -0,0 +1,97 @@ +inherited frmDCOrders: TfrmDCOrders + Left = 316 + Top = 226 + Width = 433 + Height = 316 + Caption = 'Discontinue / Cancel Orders' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 0 + Top = 0 + Width = 425 + Height = 13 + Align = alTop + Caption = 'The following orders will be discontinued -' + WordWrap = True + end + object Panel1: TPanel + Left = 0 + Top = 13 + Width = 425 + Height = 188 + Align = alClient + TabOrder = 0 + object lstOrders: TCaptionListBox + Left = 1 + Top = 1 + Width = 423 + Height = 186 + Style = lbOwnerDrawVariable + Align = alClient + ItemHeight = 13 + TabOrder = 0 + OnDrawItem = lstOrdersDrawItem + OnMeasureItem = lstOrdersMeasureItem + Caption = 'The following orders will be discontinued ' + end + end + object Panel2: TPanel + Left = 0 + Top = 201 + Width = 425 + Height = 88 + Align = alBottom + TabOrder = 1 + DesignSize = ( + 425 + 88) + object lblReason: TLabel + Left = 1 + Top = 1 + Width = 423 + Height = 13 + Align = alTop + Caption = 'Reason for Discontinue (select one)' + end + object lstReason: TORListBox + Left = 3 + Top = 19 + Width = 218 + Height = 60 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + Sorted = True + TabOrder = 0 + Caption = 'Reason for Discontinue (select one)' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object cmdOK: TButton + Left = 267 + Top = 54 + Width = 72 + Height = 21 + Anchors = [akLeft, akBottom] + Caption = 'OK' + Default = True + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 54 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 3 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersDC.pas b/CPRS-Chart/Orders/fOrdersDC.pas new file mode 100644 index 0000000..6cf1712 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersDC.pas @@ -0,0 +1,232 @@ +unit fOrdersDC; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls, ExtCtrls; + +type + TfrmDCOrders = class(TfrmAutoSz) + Label1: TLabel; + Panel1: TPanel; + lstOrders: TCaptionListBox; + Panel2: TPanel; + lblReason: TLabel; + lstReason: TORListBox; + cmdOK: TButton; + cmdCancel: TButton; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure lstOrdersDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer; + var AHeight: Integer); + private + OKPressed: Boolean; + DCReason: Integer; + function MeasureColumnHeight(TheOrderText: string; Index: Integer):integer; + end; + +function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean; + +implementation + +{$R *.DFM} + +uses rOrders, uCore, uConst, fOrders; + +function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean; +const + DCT_NEWORDER = 1; + DCT_DELETION = 2; + DCT_NEWSTATUS = 3; +var + frmDCOrders: TfrmDCOrders; + AnOrder: TOrder; + i,CanSign, DCType: Integer; + NeedReason,NeedRefresh,OnCurrent: Boolean; + OriginalID,APtEvtID,APtEvtName,AnEvtInfo,tmpPtEvt: string; + PtEvtList: TStringList; +begin + Result := False; + DelEvt := False; + OnCurrent := False; + NeedRefresh := False; + PtEvtList := TStringList.Create; + if SelectedList.Count = 0 then Exit; + frmDCOrders := TfrmDCOrders.Create(Application); + try + ResizeFormToFont(TForm(frmDCOrders)); + NeedReason := False; + with SelectedList do for i := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[i]); + frmDCOrders.lstOrders.Items.Add(AnOrder.Text); + if not ((AnOrder.Status = 11) and (AnOrder.Signature = 2)) then NeedReason := True; + end; + if NeedReason then + begin + frmDCOrders.lblReason.Visible := True; + frmDCOrders.lstReason.Visible := True; + end else + begin + frmDCOrders.lblReason.Visible := False; + frmDCOrders.lstReason.Visible := False; + end; + frmDCOrders.ShowModal; + if frmDCOrders.OKPressed then + begin + if (Encounter.Provider = User.DUZ) and User.CanSignOrders + then CanSign := CH_SIGN_YES + else CanSign := CH_SIGN_NA; + with SelectedList do for i := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[i]); + OriginalID := AnOrder.ID; + PtEvtList.Add(AnOrder.EventPtr + '^' + AnOrder.EventName); + DCOrder(AnOrder, frmDCOrders.DCReason, DCType); + case DCType of + DCT_NEWORDER: begin + Changes.Add(CH_ORD, AnOrder.ID, AnOrder.Text, '', CanSign, AnOrder.ParentID); + AnOrder.ActionOn := OriginalID + '=DC'; + end; + DCT_DELETION: begin + Changes.Remove(CH_ORD, OriginalID); + if (AnOrder.ID = '0') or (AnOrder.ID = '') + then AnOrder.ActionOn := OriginalID + '=DL' // delete order + else AnOrder.ActionOn := OriginalID + '=CA'; // cancel action + {else AnOrder.ActionOn := AnOrder.ID + '=CA'; - caused cancel from meds to not update orders} + UnlockOrder(OriginalID); // for deletion of unsigned DC + end; + DCT_NEWSTATUS: begin + AnOrder.ActionOn := OriginalID + '=DC'; + UnlockOrder(OriginalID); + end; + else UnlockOrder(OriginalID); + end; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_ACT, Integer(AnOrder)); + end; + if frmOrders.lstSheets.ItemIndex > -1 then + if CharAt(frmOrders.lstSheets.Items[frmOrders.lstSheets.ItemIndex],1)='C' then + OnCurrent := True; + if not OnCurrent then + begin + for i := 0 to PtEvtList.Count - 1 do + begin + if Length(PtEvtList[i])>1 then + begin + APtEvtID := Piece(PtEvtList[i],'^',1); + APtEvtName := Piece(PtEvtList[i],'^',2); + AnEvtInfo := EventInfo(APtEvtID); + if isExistedEvent(Patient.DFN,Piece(AnEvtInfo,'^',2),tmpPtEvt) and (DeleteEmptyEvt(APtEvtID,APtEvtName,False)) then + begin + NeedRefresh := True; + frmOrders.ChangesUpdate(APtEvtID); + end; + end; + end; + if NeedRefresh then + begin + frmOrders.InitOrderSheetsForEvtDelay; + frmOrders.lstSheets.ItemIndex := 0; + frmOrders.lstSheetsClick(nil); + DelEvt := True; + end; + end; + Result := True; + end + else with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + finally + frmDCOrders.Release; + end; +end; + +procedure TfrmDCOrders.FormCreate(Sender: TObject); +var + DefaultIEN: Integer; +begin + inherited; + OKPressed := False; + ListDCReasons(lstReason.Items, DefaultIEN); + lstReason.SelectByIEN(DefaultIEN); + { the following commented out so that providers can enter DC reasons } +// if Encounter.Provider = User.DUZ then +// begin +// lblReason.Visible := False; +// lstReason.Visible := False; +// end; +end; + +procedure TfrmDCOrders.cmdOKClick(Sender: TObject); +const + TX_REASON_REQ = 'A reason for discontinue must be selected.'; + TC_REASON_REQ = 'Missing Discontinue Reason'; +begin + inherited; + if (lstReason.Visible) and (not (lstReason.ItemIEN > 0)) then + begin + InfoBox(TX_REASON_REQ, TC_REASON_REQ, MB_OK); + Exit; + end; + OKPressed := True; + DCReason := lstReason.ItemIEN; + Close; +end; + +procedure TfrmDCOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmDCOrders.lstOrdersDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + x: string; + ARect: TRect; +begin + inherited; + x := ''; + ARect := Rect; + with lstOrders do + begin + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + Canvas.MoveTo(0, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + if Index < Items.Count then + begin + x := Items[Index]; + DrawText(Canvas.handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + end; + end; +end; + +procedure TfrmDCOrders.lstOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AHeight: Integer); +var + x:string; +begin + inherited; + with lstOrders do if Index < Items.Count then + begin + x := Items[index]; + AHeight := MeasureColumnHeight(x, Index); + end; +end; + +function TfrmDCOrders.MeasureColumnHeight(TheOrderText: string; + Index: Integer): integer; +var + ARect: TRect; +begin + ARect.Left := 0; + ARect.Top := 0; + ARect.Bottom := 0; + ARect.Right := lstOrders.Width - 6; + Result := WrappedTextHeightByFont(lstOrders.Canvas,lstOrders.Font,TheOrderText,ARect); +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersEvntRelease.dfm b/CPRS-Chart/Orders/fOrdersEvntRelease.dfm new file mode 100644 index 0000000..820d94f --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersEvntRelease.dfm @@ -0,0 +1,186 @@ +object frmOrdersEvntRelease: TfrmOrdersEvntRelease + Left = 196 + Top = 66 + Width = 451 + Height = 355 + Caption = 'Auto DC/Release Event Orders' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 443 + Height = 85 + Align = alTop + TabOrder = 0 + object lblPtInfo: TStaticText + Left = 1 + Top = 1 + Width = 441 + Height = 52 + Align = alTop + AutoSize = False + TabOrder = 1 + end + object Panel1: TPanel + Left = 1 + Top = 53 + Width = 441 + Height = 31 + Align = alClient + TabOrder = 0 + object Panel2: TPanel + Left = 293 + Top = 1 + Width = 147 + Height = 29 + Align = alClient + TabOrder = 0 + DesignSize = ( + 147 + 29) + object btnApply: TButton + Left = 80 + Top = 4 + Width = 63 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'Apply' + TabOrder = 2 + OnClick = btnApplyClick + OnKeyDown = btnApplyKeyDown + end + object updown1: TUpDown + Left = 61 + Top = 4 + Width = 16 + Height = 21 + Anchors = [akRight, akBottom] + Associate = edtNumber + Min = 1 + Max = 10000 + Position = 5 + TabOrder = 1 + Wrap = False + OnClick = updown1Click + end + object edtNumber: TEdit + Left = 5 + Top = 4 + Width = 56 + Height = 21 + Hint = 'Enter the number of events you would like to view' + Anchors = [akLeft, akTop, akRight, akBottom] + TabOrder = 0 + Text = '5' + OnChange = edtNumberChange + OnClick = edtNumberClick + OnKeyDown = edtNumberKeyDown + end + end + object Panel3: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 29 + Align = alLeft + TabOrder = 1 + object Label2: TLabel + Left = 1 + Top = 1 + Width = 290 + Height = 13 + Align = alTop + Caption = ' Enter the number of events you would like to view ' + WordWrap = True + end + object Label3: TLabel + Left = 1 + Top = 14 + Width = 290 + Height = 13 + Align = alTop + Caption = ' (Input "ALL" to view all events):' + end + end + end + end + object pnlBottom: TPanel + Left = 0 + Top = 85 + Width = 443 + Height = 243 + Align = alClient + TabOrder = 1 + OnResize = pnlBottomResize + DesignSize = ( + 443 + 243) + object Label1: TLabel + Left = 1 + Top = 1 + Width = 441 + Height = 28 + Align = alTop + AutoSize = False + Caption = ' View orders released or discontinued by' + Layout = tlCenter + end + object btnOK: TButton + Left = 269 + Top = 214 + Width = 75 + Height = 20 + Anchors = [akRight, akBottom] + Caption = 'OK' + TabOrder = 1 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 353 + Top = 214 + Width = 75 + Height = 20 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = btnCancelClick + end + object grdEvtList: TCaptionStringGrid + Left = 1 + Top = 29 + Width = 441 + Height = 166 + Align = alTop + Anchors = [akLeft, akTop, akRight, akBottom] + ColCount = 2 + DefaultRowHeight = 22 + FixedCols = 0 + RowCount = 7 + Options = [goFixedVertLine, goFixedHorzLine, goHorzLine, goRowSizing, goColSizing, goTabs, goRowSelect] + ScrollBars = ssVertical + TabOrder = 0 + OnDblClick = grdEvtListDblClick + OnDrawCell = grdEvtListDrawCell + OnKeyPress = grdEvtListKeyPress + OnMouseDown = grdEvtListMouseDown + Caption = 'View orders released or discontinued by' + JustToTab = True + ColWidths = ( + 310 + 125) + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersEvntRelease.pas b/CPRS-Chart/Orders/fOrdersEvntRelease.pas new file mode 100644 index 0000000..22aa360 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersEvntRelease.pas @@ -0,0 +1,371 @@ +unit fOrdersEvntRelease; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs + ,ORFn, uCore, rOrders, fOrders, StdCtrls, ORCtrls, ExtCtrls, Grids,fAutoSz, + Spin, ComCtrls; + +type + TfrmOrdersEvntRelease = class(TfrmAutoSz) + pnlTop: TPanel; + lblPtInfo: TStaticText; + pnlBottom: TPanel; + Label1: TLabel; + btnOK: TButton; + btnCancel: TButton; + grdEvtList: TCaptionStringGrid; + Panel1: TPanel; + Panel2: TPanel; + btnApply: TButton; + updown1: TUpDown; + edtNumber: TEdit; + Panel3: TPanel; + Label2: TLabel; + Label3: TLabel; + procedure FormCreate(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure grdEvtListDrawCell(Sender: TObject; ACol, ARow: Integer; + Rect: TRect; State: TGridDrawState); + procedure grdEvtListMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure btnOKClick(Sender: TObject); + procedure grdEvtListKeyPress(Sender: TObject; var Key: Char); + procedure grdEvtListDblClick(Sender: TObject); + procedure pnlBottomResize(Sender: TObject); + procedure edtNumberChange(Sender: TObject); + procedure edtNumberKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure btnApplyClick(Sender: TObject); + procedure btnApplyKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure edtNumberClick(Sender: TObject); + procedure updown1Click(Sender: TObject; Button: TUDBtnType); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + private + { Private declarations } + FEvtList: TStringList; + FTotal: Integer; + FDGroup: Integer; + FViewName: string; + FPtEvt: string; + FEvent: TOrderDelayEvent; + fPreTxt: string; + FOkPressed: Boolean; + procedure ShowEvents(NumOfEvts: integer); + public + { Public declarations } + end; + + procedure SelectEvtReleasedOrders(var OrderView: TOrderView); + +implementation + +uses rMisc, Accessibility_TLB, uAccessibleStringGrid; + +{$R *.DFM} + +const + TAB = #9; + +procedure SelectEvtReleasedOrders(var OrderView: TOrderView); +const + FROM_SERVER = TRUE; +var + frmOrdersEvntRelease: TfrmOrdersEvntRelease; +begin + frmOrdersEvntRelease := TfrmOrdersEvntRelease.Create(Application); + SetFormPosition(frmOrdersEvntRelease); + try + with frmOrdersEvntRelease do + begin + FDGroup := OrderView.DGroup; + ShowModal; + if FOkPressed then + begin + frmOrders.FromDCRelease := True; + OrderView.Changed := FOkPressed; + OrderView.DGroup := FDGroup; + OrderView.CtxtTime := 0; + OrderView.TextView := 0; + OrderView.ViewName := FViewName; + OrderView.EventDelay.PtEventIFN := StrToIntDef(FPtEvt,0); + if FEvent.PtEventIFN > 0 then OrderView.EventDelay := FEvent + else + begin + OrderView.EventDelay.EventType := 'C'; + OrderView.EventDelay.Specialty := 0; + OrderView.EventDelay.Effective := 0; + OrderView.EventDelay.PtEventIFN := 0; + end; + end else + OrderView.Changed := False; + end; + finally + frmOrdersEvntRelease.FEvtList.Clear; + frmOrdersEvntRelease.Release; + frmOrdersEvntRelease.FOkPressed := False; + end; +end; + +procedure TfrmOrdersEvntRelease.FormCreate(Sender: TObject); +var + CurrTS: string; + SpeCap: string; + ATotal: integer; +begin + CurrTS := Piece(GetCurrentSpec(Patient.DFN),'^',1); + if Length(CurrTS)>0 then + SpeCap := #13 + ' The current treating specialty is ' + CurrTS + else + SpeCap := #13 + ' No treating specialty is available.'; + FPtEvt := ''; + FEvent.EventType := #0; + FEvent.EventIFN := 0; + FEvent.EventName := ''; + FEvent.PtEventIFN := 0; + FEvent.Specialty := 0; + FEvent.Effective := 0; + FOkPressed := False; + FEvtList := TStringList.Create; + FTotal := 5; + edtNumber.Text := '5'; + fPreTxt := edtNumber.Text; + if Patient.Inpatient then + lblPtInfo.Caption := ' ' + Patient.Name + ' is currently admitted to ' + Encounter.LocationName + SpeCap + else + begin + if Encounter.Location > 0 then + lblPtInfo.Caption := ' ' + Patient.Name + ' is currently at ' + Encounter.LocationName + SpeCap + else + lblPtInfo.Caption := ' ' + Patient.Name + ' currently is an outpatient. ' + SpeCap; + end; + lblPtInfo.Top := (pnlTop.Height - lblPtInfo.Height) div 2; + grdEvtList.Cells[0,0] := 'Event Name'; + grdEvtList.Cells[1,0] := 'Date/Time Occured'; + SetPtEvtList(TStrings(fevtList),Patient.DFN, ATotal); + TAccessibleStringGrid.WrapControl(grdEvtList); +end; + +procedure TfrmOrdersEvntRelease.btnCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmOrdersEvntRelease.FormShow(Sender: TObject); +begin + ShowEvents(fTotal); +end; + +procedure TfrmOrdersEvntRelease.grdEvtListDrawCell(Sender: TObject; ACol, + ARow: Integer; Rect: TRect; State: TGridDrawState); +begin + inherited; + grdEvtList.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, + Piece(grdEvtList.Cells[ACol, ARow], TAB, 1)); +end; + +procedure TfrmOrdersEvntRelease.grdEvtListMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + ACol, ARow: integer; + EvtInfo: string; +begin + grdEvtList.MouseToCell(X,Y,ACol,ARow); + if ARow>0 then + begin + FPtEvt := Piece(grdEvtList.Cells[0,grdEvtList.Row],TAB,2); + if StrToIntDef(FPtEvt,0)>0 then + FEvent.PtEventIFN := StrToInt(FPtEvt); + EvtInfo := EventInfo(FPtEvt); + FEvent.EventIFN := StrToIntDef( Piece(EvtInfo,'^',2),0); + if FEvent.EventIFN > 0 then + begin + FEvent.EventType := CharAt(Piece(EvtInfo,'^',1),1); + FEvent.EventName := Piece(EvtInfo,'^',3); + end; + FDGroup := DGroupAll; + FViewName := 'Patient event -- ' + Piece(grdEvtList.Cells[0,grdEvtList.Row],TAB,1) + + ' on ' + grdEvtList.Cells[1,grdEvtList.Row]; + end; +end; + +procedure TfrmOrdersEvntRelease.btnOKClick(Sender: TObject); +var + EvtInfo: string; +begin + if grdEvtList.Row < 1 then + begin + ShowMessage('You need to select an event first.'); + FOkPressed := False; + Exit; + end + else + begin + if AnsiCompareText(grdEvtList.Cells[0,1],'No event order found') = 0 then + begin + FOKPressed := False; + Exit; + end; + if FPtEvt = '' then + begin + FPtEvt := Piece(grdEvtList.Cells[0,grdEvtList.Row],TAB,2); + if StrToIntDef(FPtEvt,0)>0 then + FEvent.PtEventIFN := StrToInt(FPtEvt); + EvtInfo := EventInfo(FPtEvt); + FEvent.EventIFN := StrToIntDef( Piece(EvtInfo,'^',2),0); + if FEvent.EventIFN > 0 then + begin + FEvent.EventType := CharAt(Piece(EvtInfo,'^',1),1); + FEvent.EventName := Piece(EvtInfo,'^',3); + end; + FDGroup := DGroupAll; + FViewName := 'Patient event -- ' + Piece(grdEvtList.Cells[0,grdEvtList.Row],TAB,1) + + ' on ' + grdEvtList.Cells[1,grdEvtList.Row]; + FOkPressed := True; + Close; + end else + begin + FOkPressed := True; + Close; + end; + end; +end; + +procedure TfrmOrdersEvntRelease.grdEvtListKeyPress(Sender: TObject; + var Key: Char); +var + EvtInfo: string; +begin + if grdEvtList.Row > 0 then + begin + FPtEvt := Piece(grdEvtList.Cells[0,grdEvtList.Row],TAB,2); + if StrToIntDef(FPtEvt,0)>0 then + FEvent.PtEventIFN := StrToInt(FPtEvt); + EvtInfo := EventInfo(FPtEvt); + FEvent.EventIFN := StrToIntDef( Piece(EvtInfo,'^',2),0); + if FEvent.EventIFN > 0 then + begin + FEvent.EventType := CharAt(Piece(EvtInfo,'^',1),1); + FEvent.EventName := Piece(EvtInfo,'^',3); + end; + FDGroup := DGroupAll; + FViewName := 'Released orders for event--Delayed ' + Piece(grdEvtList.Cells[0,grdEvtList.Row],TAB,1) + + ' on ' + grdEvtList.Cells[1,grdEvtList.Row]; + if Key = #13 then btnOKClick(Self); + end; +end; + +procedure TfrmOrdersEvntRelease.grdEvtListDblClick(Sender: TObject); +begin + if grdEvtList.Row > 0 then + btnOKClick(Self); +end; + +procedure TfrmOrdersEvntRelease.pnlBottomResize(Sender: TObject); +begin + grdEvtList.ColWidths[0] := ( grdEvtList.Width div 3 ) * 2; + grdEvtList.ColWidths[1] := grdEvtList.Width - grdEvtList.ColWidths[0] - 4; +end; + +procedure TfrmOrdersEvntRelease.ShowEvents(NumOfEvts: integer); +var + temptot,idx,jdx: integer; +begin + with grdEvtList do + for idx := 0 to ColCount - 1 do + for jdx:= 1 to RowCount - 1 do + begin + Cells[idx,jdx] := ''; + end; + if NumOfEvts = 0 then temptot := fevtList.Count + else temptot := NumOfEvts; + if temptot > fevtList.Count then + temptot := fevtList.Count; + grdEvtList.RowCount := temptot + 1; + if temptot = 0 then + begin + grdEvtList.RowCount := 2; + grdEvtList.Cells[0,1] := 'No event order found'; + btnOK.Enabled := False; + end else + begin + for idx := 1 to grdEvtList.RowCount-1 do + begin + grdEvtList.Cells[0,idx] := Piece(fevtList[idx-1],'^',2)+ TAB + Piece(fevtList[idx-1],'^',1); + grdEvtList.Cells[1,idx] := FormatFMDateTime('mm/dd/yy hh:nn',StrToFloat(Piece(fevtList[idx-1],'^',3))); + end; + end; +end; + +procedure TfrmOrdersEvntRelease.edtNumberChange(Sender: TObject); +begin + inherited; + if (CharAt(edtNumber.Text,1)='A') or (CharAt(edtNumber.Text,1)='a') then + begin + edtNumber.Text := 'ALL'; + edtNumber.SelectAll; + fTotal := 0; + end + else if (StrToIntDef(edtNumber.Text,0)=0) and (AnsiCompareText(edtNumber.Text,'all')<>0) then + edtNumber.Text := fPreTxt + else if StrToIntDef(edtNumber.Text,0)>0 then + fTotal := StrtoInt(edtNumber.Text); +end; + +procedure TfrmOrdersEvntRelease.edtNumberKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + inherited; + if Key=VK_RETURN then + btnApplyClick(Self); +end; + +procedure TfrmOrdersEvntRelease.btnApplyClick(Sender: TObject); +begin + inherited; + fPreTxt := edtNumber.Text; + ShowEvents(fTotal); +end; + +procedure TfrmOrdersEvntRelease.btnApplyKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + inherited; + if Key = VK_RETURN then + btnApplyClick(Self); +end; + +procedure TfrmOrdersEvntRelease.edtNumberClick(Sender: TObject); +begin + inherited; + edtNumber.SelectAll; +end; + +procedure TfrmOrdersEvntRelease.updown1Click(Sender: TObject; + Button: TUDBtnType); +begin + inherited; + fTotal := updown1.Position; + edtNumber.Text := IntToStr(updown1.Position); + btnApplyClick(Self); +end; + +procedure TfrmOrdersEvntRelease.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + SaveUserBounds(Self); + Action := caFree; +end; + +procedure TfrmOrdersEvntRelease.FormDestroy(Sender: TObject); +begin + TAccessibleStringGrid.UnwrapControl(grdEvtList); + inherited; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersHold.dfm b/CPRS-Chart/Orders/fOrdersHold.dfm new file mode 100644 index 0000000..fd21231 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersHold.dfm @@ -0,0 +1,46 @@ +inherited frmHoldOrders: TfrmHoldOrders + Left = 386 + Top = 413 + Height = 270 + Caption = 'Hold Orders' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 206 + Height = 13 + Caption = 'The following orders will be placed on hold -' + end + object lstOrders: TCaptionListBox + Left = 8 + Top = 22 + Width = 411 + Height = 176 + ItemHeight = 13 + TabOrder = 0 + Caption = 'The following orders will be placed on hold -' + end + object cmdOK: TButton + Left = 267 + Top = 214 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 214 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end +end diff --git a/CPRS-Chart/Orders/fOrdersHold.pas b/CPRS-Chart/Orders/fOrdersHold.pas new file mode 100644 index 0000000..e766d57 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersHold.pas @@ -0,0 +1,80 @@ +unit fOrdersHold; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls; + +type + TfrmHoldOrders = class(TfrmAutoSz) + lstOrders: TCaptionListBox; + Label1: TLabel; + cmdOK: TButton; + cmdCancel: TButton; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + private + OKPressed: Boolean; + end; + +function ExecuteHoldOrders(SelectedList: TList): Boolean; + +implementation + +{$R *.DFM} + +uses rOrders, uConst, uCore; + +function ExecuteHoldOrders(SelectedList: TList): Boolean; +var + frmHoldOrders: TfrmHoldOrders; + OriginalID: string; + i: Integer; +begin + Result := False; + if SelectedList.Count = 0 then Exit; + frmHoldOrders := TfrmHoldOrders.Create(Application); + try + ResizeFormToFont(TForm(frmHoldOrders)); + with SelectedList do for i := 0 to Count - 1 do + frmHoldOrders.lstOrders.Items.Add(TOrder(Items[i]).Text); + frmHoldOrders.ShowModal; + if frmHoldOrders.OKPressed then + begin + with SelectedList do for i := 0 to Count - 1 do + begin + OriginalID := TOrder(Items[i]).ID; + HoldOrder(TOrder(Items[i])); + TOrder(Items[i]).ActionOn := OriginalID + '=HD'; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_ACT, Integer(Items[i])); + end; + Result := True; + end + else with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + finally + frmHoldOrders.Release; + end; +end; + +procedure TfrmHoldOrders.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmHoldOrders.cmdOKClick(Sender: TObject); +begin + inherited; + OKPressed := True; + Close; +end; + +procedure TfrmHoldOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersOnChart.dfm b/CPRS-Chart/Orders/fOrdersOnChart.dfm new file mode 100644 index 0000000..515b8e8 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersOnChart.dfm @@ -0,0 +1,82 @@ +inherited frmOnChartOrders: TfrmOnChartOrders + Left = 292 + Top = 149 + Width = 470 + Height = 368 + Caption = 'Signature on Chart' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 462 + Height = 305 + Align = alClient + Constraints.MinHeight = 240 + TabOrder = 0 + OnResize = Panel2Resize + object Label1: TLabel + Left = 1 + Top = 1 + Width = 460 + Height = 13 + Align = alTop + Caption = + 'The following orders will be marked '#39'Signed on Chart'#39' and releas' + + 'ed -' + Layout = tlBottom + end + object lstOrders: TCaptionListBox + Left = 1 + Top = 18 + Width = 460 + Height = 285 + Style = lbOwnerDrawVariable + Align = alCustom + Anchors = [akLeft, akTop, akRight, akBottom] + ItemHeight = 13 + ScrollWidth = 450 + TabOrder = 0 + OnDrawItem = lstOrdersDrawItem + OnMeasureItem = lstOrdersMeasureItem + Caption = + 'The following orders will be marked '#39'Signed on Chart'#39' and releas' + + 'ed ' + end + end + object Panel1: TPanel + Left = 0 + Top = 305 + Width = 462 + Height = 36 + Align = alBottom + TabOrder = 1 + DesignSize = ( + 462 + 36) + object cmdOK: TButton + Left = 299 + Top = 9 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'OK' + Default = True + TabOrder = 0 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 379 + Top = 9 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersOnChart.pas b/CPRS-Chart/Orders/fOrdersOnChart.pas new file mode 100644 index 0000000..7ead695 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersOnChart.pas @@ -0,0 +1,187 @@ +unit fOrdersOnChart; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls, ExtCtrls; + +type + TfrmOnChartOrders = class(TfrmAutoSz) + Panel2: TPanel; + Label1: TLabel; + lstOrders: TCaptionListBox; + Panel1: TPanel; + cmdOK: TButton; + cmdCancel: TButton; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer; + var AHeight: Integer); + procedure lstOrdersDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure Panel2Resize(Sender: TObject); + private + OKPressed: Boolean; + end; + +function ExecuteOnChartOrders(SelectedList: TList): Boolean; + +implementation + +{$R *.DFM} + +uses rCore, rOrders, uConst, fOrdersPrint, uOrders, fFrame, UCore, + fClinicWardMeds; + +const + TX_SAVERR1 = 'The error, '; + TX_SAVERR2 = ', occurred while trying to save:' + CRLF + CRLF; + TC_SAVERR = 'Error Saving Order'; + +function ExecuteOnChartOrders(SelectedList: TList): Boolean; +var + frmOnChartOrders: TfrmOnChartOrders; + i, PrintLoc: Integer; + SignList: TStringList; + OrderText: string; + + function FindOrderText(const AnID: string): string; + var + i: Integer; + begin + Result := ''; + with SelectedList do for i := 0 to Count - 1 do + with TOrder(Items[i]) do if ID = AnID then + begin + Result := Text; + Break; + end; + end; + +begin + Result := False; + PrintLoc := 0; + if SelectedList.Count = 0 then Exit; + frmOnChartOrders := TfrmOnChartOrders.Create(Application); + try + ResizeFormToFont(TForm(frmOnChartOrders)); + with SelectedList do for i := 0 to Count - 1 do + frmOnChartOrders.lstOrders.Items.Add(TOrder(Items[i]).Text); + frmOnChartOrders.ShowModal; + if frmOnChartOrders.OKPressed then + begin + Result := True; + SignList := TStringList.Create; + try + with SelectedList do for i := 0 to Count - 1 do with TOrder(Items[i]) do + SignList.Add(ID + U + SS_ONCHART + U + RS_RELEASE + U + NO_WRITTEN); + StatusText('Sending Orders to Service(s)...'); + if SignList.Count > 0 then SendOrders(SignList, ''); + + if (not frmFrame.TimedOut) then + begin + if IsValidIMOLoc(uCore.TempEncounterLoc,Patient.DFN) then + frmClinicWardMeds.ClinicOrWardLocation(SignList, uCore.TempEncounterLoc,uCore.TempEncounterLocName, PrintLoc) + else + if (IsValidIMOLoc(Encounter.Location,Patient.DFN)) and ((frmClinicWardMeds.rpcIsPatientOnWard(patient.DFN)) and (Patient.Inpatient = false)) then + frmClinicWardMeds.ClinicOrWardLocation(SignList, Encounter.Location,Encounter.LocationName, PrintLoc); + end; + uCore.TempEncounterLoc := 0; + uCore.TempEncounterLocName := ''; + + with SignList do if Count > 0 then for i := 0 to Count - 1 do + begin + if Pos('E', Piece(SignList[i], U, 2)) > 0 then + begin + OrderText := FindOrderText(Piece(SignList[i], U, 1)); + InfoBox(TX_SAVERR1 + Piece(SignList[i], U, 4) + TX_SAVERR2 + OrderText, + TC_SAVERR, MB_OK); + end; + end; + StatusText(''); + PrintOrdersOnSignRelease(SignList, NO_WRITTEN, PrintLoc); +// SetupOrdersPrint(SignList, DeviceInfo, NO_WRITTEN, False, PrintIt); //*KCM* +// if PrintIt then PrintOrdersOnReview(SignList, DeviceInfo); //*KCM* + finally + SignList.Free; + end; + end; {if frmOnChartOrders.OKPressed} + finally + frmOnChartOrders.Release; + with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + end; +end; + +procedure TfrmOnChartOrders.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmOnChartOrders.cmdOKClick(Sender: TObject); +begin + inherited; + OKPressed := True; + Close; +end; + +procedure TfrmOnChartOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmOnChartOrders.lstOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AHeight: Integer); +var + x: string; + ARect: TRect; +begin + inherited; + with lstOrders do if Index < Items.Count then + begin + ARect := ItemRect(Index); + Canvas.FillRect(ARect); + x := FilteredString(Items[Index]); + AHeight := WrappedTextHeightByFont(Canvas, Font, x, ARect); + //if AHeight > 255 then AHeight := 255; + if AHeight < 13 then AHeight := 15; + end; +end; + +procedure TfrmOnChartOrders.lstOrdersDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + x: string; + ARect: TRect; + SaveColor: TColor; +begin + inherited; + with lstOrders do + begin + ARect := Rect; + ARect.Left := ARect.Left + 2; + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + SaveColor := Canvas.Brush.Color; + Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + if Index < Items.Count then + begin + x := FilteredString(Items[Index]); + DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + Canvas.Brush.Color := SaveColor; + ARect.Right := ARect.Right + 4; + end; + end; +end; + +procedure TfrmOnChartOrders.Panel2Resize(Sender: TObject); +begin + inherited; + lstOrders.Invalidate; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersPrint.dfm b/CPRS-Chart/Orders/fOrdersPrint.dfm new file mode 100644 index 0000000..d80f001 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersPrint.dfm @@ -0,0 +1,224 @@ +object frmOrdersPrint: TfrmOrdersPrint + Left = 353 + Top = 194 + Width = 364 + Height = 315 + Caption = 'Print orders' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyPreview = True + OldCreateOrder = True + Position = poScreenCenter + OnKeyUp = FormKeyUp + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 356 + Height = 288 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object lblDevice: TLabel + Left = 127 + Top = 74 + Width = 71 + Height = 13 + Caption = 'Print to device:' + end + object lblPartOne: TMemo + Left = 16 + Top = 7 + Width = 327 + Height = 26 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + + 'One or more of the following prints are available for this set o' + + 'f orders. ' + 'Check those you desire and select a device, if necessary. ') + ReadOnly = True + TabOrder = 14 + end + object lblPart2: TMemo + Left = 17 + Top = 40 + Width = 323 + Height = 26 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + + 'Highlighted items are configured to print automatically in all c' + + 'ases for ' + 'this location. Greyed out items are not available.') + ReadOnly = True + TabOrder = 15 + end + object ckChartCopy: TCheckBox + Left = 17 + Top = 95 + Width = 97 + Height = 17 + Caption = 'Chart Copies' + TabOrder = 0 + OnClick = ckChartCopyClick + end + object ckLabels: TCheckBox + Left = 17 + Top = 131 + Width = 97 + Height = 17 + Caption = 'Labels' + TabOrder = 3 + OnClick = ckLabelsClick + end + object ckRequisitions: TCheckBox + Left = 17 + Top = 170 + Width = 97 + Height = 17 + Caption = 'Requisitions' + TabOrder = 6 + OnClick = ckRequisitionsClick + end + object ckWorkCopy: TCheckBox + Left = 17 + Top = 208 + Width = 97 + Height = 17 + Caption = 'Work Copies' + TabOrder = 9 + OnClick = ckWorkCopyClick + end + object lstChartDevice: TORListBox + Left = 127 + Top = 93 + Width = 121 + Height = 21 + ExtendedSelect = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 13 + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = DeviceListClick + Caption = 'Print to device:' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object lstLabelDevice: TORListBox + Left = 127 + Top = 129 + Width = 121 + Height = 21 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 4 + OnClick = DeviceListClick + Caption = 'Print to device:' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object lstReqDevice: TORListBox + Left = 127 + Top = 168 + Width = 121 + Height = 21 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 7 + OnClick = DeviceListClick + Caption = 'Print to device:' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object lstWorkDevice: TORListBox + Left = 127 + Top = 206 + Width = 121 + Height = 21 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 10 + OnClick = DeviceListClick + Caption = 'Print to device:' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object cmdChart: TORAlignButton + Left = 266 + Top = 93 + Width = 75 + Height = 21 + Caption = 'Change' + TabOrder = 2 + OnClick = cmdChartClick + end + object cmdLabels: TORAlignButton + Left = 266 + Top = 129 + Width = 75 + Height = 21 + Caption = 'Change' + TabOrder = 5 + OnClick = cmdLabelsClick + end + object cmdReqs: TORAlignButton + Left = 266 + Top = 168 + Width = 75 + Height = 21 + Caption = 'Change' + TabOrder = 8 + OnClick = cmdReqsClick + end + object cmdWork: TORAlignButton + Left = 266 + Top = 206 + Width = 75 + Height = 21 + Caption = 'Change' + TabOrder = 11 + OnClick = cmdWorkClick + end + object cmdOK: TORAlignButton + Left = 7 + Top = 253 + Width = 160 + Height = 21 + Caption = 'Print All Checked Items' + TabOrder = 12 + OnClick = cmdOKClick + end + object cmdCancel: TORAlignButton + Left = 188 + Top = 253 + Width = 160 + Height = 21 + Caption = 'Print Highlighted Items Only' + TabOrder = 13 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersPrint.pas b/CPRS-Chart/Orders/fOrdersPrint.pas new file mode 100644 index 0000000..8356db4 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersPrint.pas @@ -0,0 +1,333 @@ +unit fOrdersPrint; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ORfn, ExtCtrls, rOrders, fFrame; + +type + TfrmOrdersPrint = class(TForm) + ckChartCopy: TCheckBox; + ckLabels: TCheckBox; + ckRequisitions: TCheckBox; + ckWorkCopy: TCheckBox; + lstChartDevice: TORListBox; + lstLabelDevice: TORListBox; + lstReqDevice: TORListBox; + lstWorkDevice: TORListBox; + cmdChart: TORAlignButton; + cmdLabels: TORAlignButton; + cmdReqs: TORAlignButton; + cmdWork: TORAlignButton; + cmdOK: TORAlignButton; + cmdCancel: TORAlignButton; + pnlBase: TORAutoPanel; + lblDevice: TLabel; + lblPartOne: TMemo; + lblPart2: TMemo; + procedure SetupControls(PrintParams: TPrintParams); + procedure cmdChartClick(Sender: TObject); + procedure cmdLabelsClick(Sender: TObject); + procedure cmdReqsClick(Sender: TObject); + procedure cmdWorkClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure ckChartCopyClick(Sender: TObject); + procedure ckLabelsClick(Sender: TObject); + procedure ckRequisitionsClick(Sender: TObject); + procedure ckWorkCopyClick(Sender: TObject); + procedure DeviceListClick(Sender: TObject); + procedure FormKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + FPrintIt: boolean; + FSelectAll: boolean; + FDevices: string; + FNature: char; + procedure SetupPrompting(CheckBox: TCheckBox; DeviceList: TORListBox; ChangeButton: TORAlignButton; + PromptParam: char; DeviceParam: string); + end; + +var + frmOrdersPrint: TfrmOrdersPrint; + PrintParams: TPrintParams; + AnyPrompts: boolean; + ResultList: TStringList; + +const + NO_WIN_PRINT = False; + +procedure SetupOrdersPrint(OrderList: TStringList; var DeviceInfo: string; Nature: Char; SelectAll: Boolean; var PrintIt: Boolean); + +implementation + +{$R *.DFM} + +uses + fDeviceSelect, uCore, ORNet, fOrders; + +procedure SetupOrdersPrint(OrderList: TStringList; var DeviceInfo: string; Nature: Char; SelectAll: Boolean; var PrintIt: Boolean); +{displays device and copy selection form for printing orders, and returns a record of the selections} +var + frmOrdersPrint: TfrmOrdersPrint; +begin + frmOrdersPrint := TfrmOrdersPrint.Create(Application); + try + frmFrame.CCOWBusy := True; + ResizeFormToFont(TForm(frmOrdersPrint)); + with frmOrdersPrint do + begin + FSelectAll := SelectAll; + FPrintIt := False; + FNature := Nature; + if Nature = #0 then + begin + cmdCancel.Caption := 'Cancel Print'; + lblPart2.Text := 'Greyed out items are not available.'; + end; + OrderPrintDeviceInfo(OrderList, PrintParams, Nature); + SetupControls(PrintParams); + if (PrintParams.AnyPrompts) {or FSelectAll} then ShowModal; + DeviceInfo := FDevices; + PrintIt := FPrintIt; + end; + finally + frmFrame.CCOWBusy := False; + frmOrdersPrint.Release; + end; +end; + +procedure TfrmOrdersPrint.SetupControls(PrintParams: TPrintParams); +begin + with PrintParams do + begin + SetupPrompting(ckChartCopy , lstChartDevice, cmdChart , PromptForChartCopy , ChartCopyDevice); + SetupPrompting(ckLabels , lstLabelDevice, cmdLabels, PromptForLabels , LabelDevice); + SetupPrompting(ckRequisitions, lstReqDevice, cmdReqs , PromptForRequisitions, RequisitionDevice); + SetupPrompting(ckWorkCopy , lstWorkDevice, cmdWork , PromptForWorkCopy , WorkCopyDevice); + FDevices := lstChartDevice.ItemID + U + + lstLabelDevice.ItemID + U + + lstReqDevice.ItemID + U + + lstWorkDevice.ItemID; + FPrintIt := not (FDevices = '^^^'); + end; +end; + +procedure TfrmOrdersPrint.SetupPrompting(CheckBox: TCheckBox; DeviceList: TORListBox; ChangeButton: TORAlignButton; + PromptParam: char; DeviceParam: string); +{ 0 - no prompts - copy is automatically generated. + checkbox checked and disabled, device defaulted and button disabled + 1 - prompt for copy and ask which printer should be used. + checkbox unchecked and enabled, device defaulted and button enabled + 2 - prompt for copy and automatically print to the + printer defined in the XXXXX COPY PRINT DEVICE field. + checkbox unchecked and enabled, device defaulted and button disabled + * - don't print. + checkbox unchecked and disabled, device empty and button disabled +} +begin + case PromptParam of + '0', #0: begin + CheckBox.Checked := DeviceParam <> ''; + CheckBox.Enabled := False; + DeviceList.Clear; + if DeviceParam <> '' then + begin + DeviceList.Items.Add(DeviceParam); + DeviceList.Font.Color := clGrayText; + DeviceList.ItemIndex := 0; + CheckBox.Font.Style := CheckBox.Font.Style + [fsBold]; + CheckBox.Font.Color := clInfoText; + CheckBox.Color := clInfoBk; + end + else + begin + CheckBox.State := cbUnchecked; + CheckBox.Enabled := False; + end; + ChangeButton.Enabled := False; + end; + '1': begin + CheckBox.State := cbUnchecked; + CheckBox.Enabled := True; + DeviceList.Clear; + if DeviceParam <> '' then DeviceList.Items.Add(DeviceParam); + ChangeButton.Enabled := False; + end; + '2': begin + CheckBox.State := cbUnchecked; + CheckBox.Enabled := True; + DeviceList.Clear; + if DeviceParam <> '' then + DeviceList.Items.Add(DeviceParam) + else + begin + CheckBox.State := cbUnchecked; + CheckBox.Enabled := False; + end; + ChangeButton.Enabled := False; + end; + '*': begin + CheckBox.State := cbUnchecked; + CheckBox.Enabled := False; + DeviceList.Clear; + ChangeButton.Enabled := False; + end; + end; +end; + +procedure TfrmOrdersPrint.cmdChartClick(Sender: TObject); +var + x: string; +begin + x := SelectDevice(Self, Encounter.Location, NO_WIN_PRINT,''); + if x <> '' then with lstChartDevice do + begin + Clear; + Items.Add(x); + end; +end; + +procedure TfrmOrdersPrint.cmdLabelsClick(Sender: TObject); +var + x: string; +begin + x := SelectDevice(Self, Encounter.Location, NO_WIN_PRINT,''); + if x <> '' then with lstLabelDevice do + begin + Clear; + Items.Add(x); + end; +end; + +procedure TfrmOrdersPrint.cmdReqsClick(Sender: TObject); +var + x: string; +begin + x := SelectDevice(Self, Encounter.Location, NO_WIN_PRINT,''); + if x <> '' then with lstReqDevice do + begin + Clear; + Items.Add(x); + end; +end; + +procedure TfrmOrdersPrint.cmdWorkClick(Sender: TObject); +var + x: string; +begin + x := SelectDevice(Self, Encounter.Location, NO_WIN_PRINT,''); + if x <> '' then with lstWorkDevice do + begin + Clear; + Items.Add(x); + end; +end; + +procedure TfrmOrdersPrint.cmdOKClick(Sender: TObject); +const + TX_NO_SELECTION = 'No copies were selected for printing. Check a copy type, or Cancel.'; + TX_NO_SELECTION_CAP = 'Nothing Selected!'; +begin + if not ckChartCopy.Checked then lstChartDevice.ItemIndex := -1 else lstChartDevice.ItemIndex := 0; + if not ckLabels.Checked then lstLabelDevice.ItemIndex := -1 else lstLabelDevice.ItemIndex := 0; + if not ckRequisitions.Checked then lstReqDevice.ItemIndex := -1 else lstReqDevice.ItemIndex := 0; + if not ckWorkCopy.Checked then lstWorkDevice.ItemIndex := -1 else lstWorkDevice.ItemIndex := 0; + FDevices := Piece(lstChartDevice.ItemID, ';', 1) + U + + Piece(lstLabelDevice.ItemID, ';', 1) + U + + Piece(lstReqDevice.ItemID, ';', 1) + U + + Piece(lstWorkDevice.ItemID, ';', 1); + if FDevices = '^^^' then + begin + FPrintIt := False; + InfoBox(TX_NO_SELECTION, TX_NO_SELECTION_CAP, MB_OK) + end + else + begin + FPrintIt := True; + Close; + end; +end; + +procedure TfrmOrdersPrint.cmdCancelClick(Sender: TObject); +// Force autoprint of 'don't prompt' items, regardless of continue/cancel selection. +begin + if FNature = #0 then FDevices := '^^^' + else with PrintParams do + begin + if (PromptForChartCopy = '0') or (PromptForChartCopy = #0) then + begin + if not ckChartCopy.Checked then lstChartDevice.ItemIndex := -1 + else lstChartDevice.ItemIndex := 0; + end + else lstChartDevice.ItemIndex := -1; + + if (PromptForLabels = '0') or (PromptForLabels = #0) then + begin + if not ckLabels.Checked then lstLabelDevice.ItemIndex := -1 + else lstLabelDevice.ItemIndex := 0; + end + else lstLabelDevice.ItemIndex := -1; + + if (PromptForRequisitions = '0') or (PromptForRequisitions = #0) then + begin + if not ckRequisitions.Checked then lstReqDevice.ItemIndex := -1 + else lstReqDevice.ItemIndex := 0; + end + else lstReqDevice.ItemIndex := -1; + + if (PromptForWorkCopy = '0') or (PromptForWorkCopy = #0) then + begin + if not ckWorkCopy.Checked then lstWorkDevice.ItemIndex := -1 + else lstWorkDevice.ItemIndex := 0; + end + else lstWorkDevice.ItemIndex := -1; + + FDevices := Piece(lstChartDevice.ItemID, ';', 1) + U + + Piece(lstLabelDevice.ItemID, ';', 1) + U + + Piece(lstReqDevice.ItemID, ';', 1) + U + + Piece(lstWorkDevice.ItemID, ';', 1); + end; + + FPrintIt := (FDevices <> '^^^'); + Close; +end; + +procedure TfrmOrdersPrint.ckChartCopyClick(Sender: TObject); +begin + cmdChart.Enabled := (ckChartCopy.Checked) and (PrintParams.PromptForChartCopy <> '2'); +end; + +procedure TfrmOrdersPrint.ckLabelsClick(Sender: TObject); +begin + cmdLabels.Enabled := (ckLabels.Checked) and (PrintParams.PromptForLabels <> '2'); +end; + +procedure TfrmOrdersPrint.ckRequisitionsClick(Sender: TObject); +begin + cmdReqs.Enabled := (ckRequisitions.Checked) and (PrintParams.PromptForRequisitions <> '2'); +end; + +procedure TfrmOrdersPrint.ckWorkCopyClick(Sender: TObject); +begin + cmdWork.Enabled := (ckWorkCopy.Checked) and (PrintParams.PromptForWorkCopy <> '2'); +end; + +procedure TfrmOrdersPrint.DeviceListClick(Sender: TObject); +begin + TORListBox(Sender).ItemIndex := -1; +end; + +procedure TfrmOrdersPrint.FormKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +end. + diff --git a/CPRS-Chart/Orders/fOrdersRefill.dfm b/CPRS-Chart/Orders/fOrdersRefill.dfm new file mode 100644 index 0000000..c0acfb0 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersRefill.dfm @@ -0,0 +1,109 @@ +object frmRefillOrders: TfrmRefillOrders + Left = 181 + Top = 267 + Width = 435 + Height = 311 + Caption = 'Refill Orders' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + OnClose = FormClose + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object pnlBottom: TPanel + Left = 0 + Top = 200 + Width = 427 + Height = 84 + Align = alBottom + BevelOuter = bvNone + TabOrder = 0 + object cmdOK: TButton + Left = 234 + Top = 40 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 0 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 314 + Top = 40 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = cmdCancelClick + end + object grbPickUp: TGroupBox + Left = 42 + Top = 5 + Width = 136 + Height = 75 + Caption = ' Pick Up ' + TabOrder = 2 + object radWindow: TRadioButton + Left = 12 + Top = 17 + Width = 113 + Height = 17 + Caption = 'at &Window' + Checked = True + TabOrder = 0 + TabStop = True + end + object radMail: TRadioButton + Left = 12 + Top = 36 + Width = 113 + Height = 17 + Caption = 'by &Mail' + TabOrder = 1 + end + object radClinic: TRadioButton + Left = 12 + Top = 55 + Width = 113 + Height = 17 + Caption = 'in &Clinic' + TabOrder = 2 + end + end + end + object pnlClient: TPanel + Left = 0 + Top = 0 + Width = 427 + Height = 200 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + object lblOrders: TLabel + Left = 0 + Top = 0 + Width = 427 + Height = 17 + Align = alTop + Caption = 'Request refills for the following orders -' + end + object lstOrders: TCaptionListBox + Left = 0 + Top = 17 + Width = 427 + Height = 183 + Align = alClient + ItemHeight = 13 + TabOrder = 0 + Caption = 'Request refills for the following orders ' + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersRefill.pas b/CPRS-Chart/Orders/fOrdersRefill.pas new file mode 100644 index 0000000..13bb7d8 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersRefill.pas @@ -0,0 +1,128 @@ +unit fOrdersRefill; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls, ExtCtrls; + +type + TfrmRefillOrders = class(TfrmAutoSz) + pnlBottom: TPanel; + cmdOK: TButton; + cmdCancel: TButton; + grbPickUp: TGroupBox; + radWindow: TRadioButton; + radMail: TRadioButton; + radClinic: TRadioButton; + pnlClient: TPanel; + lstOrders: TCaptionListBox; + lblOrders: TLabel; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + private + OKPressed: Boolean; + PickupAt: string; + end; + +function ExecuteRefillOrders(SelectedList: TList): Boolean; + +implementation + +{$R *.DFM} + +uses rOrders, rMeds, uCore, uConst, rMisc; + +function ExecuteRefillOrders(SelectedList: TList): Boolean; +var + frmRefillOrders: TfrmRefillOrders; + AnOrder: TOrder; + OriginalID: string; + i: Integer; +begin + Result := False; + if SelectedList.Count = 0 then Exit; + frmRefillOrders := TfrmRefillOrders.Create(Application); + try + ResizeAnchoredFormToFont(frmRefillOrders); + frmRefillOrders.Left := (Screen.WorkAreaWidth - frmRefillOrders.Width) div 2; + frmRefillOrders.Top := (Screen.WorkAreaHeight - frmRefillOrders.Height) div 2; + with SelectedList do for i := 0 to Count - 1 do + frmRefillOrders.lstOrders.Items.Add(TOrder(Items[i]).Text); + frmRefillOrders.ShowModal; + if frmRefillOrders.OKPressed then + begin + StatusText('Requesting Refill...'); + with SelectedList do for i := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[i]); + OriginalID := AnOrder.ID; + Refill(OriginalID, frmRefillOrders.PickupAt); + AnOrder.ActionOn := OriginalID + '=RF'; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_ACT, Integer(Items[i])); + end; + Result := True; + StatusText(''); + end; + finally + with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + frmRefillOrders.Release; + end; +end; + +procedure TfrmRefillOrders.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; + PickupAt := PickUpDefault; + if PickupAt = 'M' then + radMail.Checked := true + else + if PickupAt = 'C' then + radClinic.Checked := true + else + begin + PickupAt := 'W'; + radWindow.Checked := true; + end; +end; + +procedure TfrmRefillOrders.cmdOKClick(Sender: TObject); +const + TX_LOCATION_REQ = 'A location for the refill must be selected.'; + TC_LOCATION_REQ = 'Missing Refill Location'; +begin + inherited; + if not (radWindow.Checked or radMail.Checked or radClinic.Checked) then + begin + InfoBox(TX_LOCATION_REQ, TC_LOCATION_REQ, MB_OK); + Exit; + end; + OKPressed := True; + if radWindow.Checked then PickupAt := 'W' + else if radMail.Checked then PickupAt := 'M' + else PickupAt := 'C'; + Close; +end; + +procedure TfrmRefillOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmRefillOrders.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + SaveUserBounds(Self); +end; + +procedure TfrmRefillOrders.FormShow(Sender: TObject); +begin + SetFormPosition(Self); +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersRelease.dfm b/CPRS-Chart/Orders/fOrdersRelease.dfm new file mode 100644 index 0000000..018adba --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersRelease.dfm @@ -0,0 +1,111 @@ +inherited frmReleaseOrders: TfrmReleaseOrders + Left = 318 + Top = 186 + Height = 370 + Caption = 'Release Orders to Service(s)' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 427 + Height = 296 + Align = alClient + BevelOuter = bvNone + Caption = 'Panel1' + Constraints.MinHeight = 260 + TabOrder = 0 + OnResize = Panel1Resize + DesignSize = ( + 427 + 296) + object Label1: TLabel + Left = 0 + Top = 0 + Width = 427 + Height = 13 + Align = alTop + Caption = 'The following orders will be released -' + end + object lstOrders: TCaptionListBox + Left = 1 + Top = 16 + Width = 425 + Height = 275 + Style = lbOwnerDrawVariable + Anchors = [akLeft, akTop, akRight, akBottom] + ItemHeight = 13 + ScrollWidth = 415 + TabOrder = 0 + OnDrawItem = lstOrdersDrawItem + OnMeasureItem = lstOrdersMeasureItem + Caption = 'The following orders will be released ' + end + end + object Panel2: TPanel + Left = 0 + Top = 296 + Width = 427 + Height = 47 + Align = alBottom + BiDiMode = bdRightToLeft + ParentBiDiMode = False + TabOrder = 1 + object grpRelease: TGroupBox + Left = 8 + Top = 3 + Width = 241 + Height = 41 + Caption = 'Nature of Orders' + TabOrder = 0 + object radVerbal: TRadioButton + Left = 8 + Top = 16 + Width = 53 + Height = 17 + Caption = '&Verbal' + Checked = True + TabOrder = 0 + TabStop = True + end + object radPhone: TRadioButton + Left = 80 + Top = 16 + Width = 77 + Height = 17 + Caption = '&Telephone' + TabOrder = 1 + end + object radPolicy: TRadioButton + Left = 168 + Top = 16 + Width = 49 + Height = 17 + Caption = '&Policy' + TabOrder = 2 + end + end + object cmdOK: TButton + Left = 267 + Top = 19 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 19 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersRelease.pas b/CPRS-Chart/Orders/fOrdersRelease.pas new file mode 100644 index 0000000..95ef750 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersRelease.pas @@ -0,0 +1,284 @@ +unit fOrdersRelease; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls, ExtCtrls, UBACore, UBAGlobals; + +type + TfrmReleaseOrders = class(TfrmAutoSz) + Panel1: TPanel; + lstOrders: TCaptionListBox; + Label1: TLabel; + Panel2: TPanel; + grpRelease: TGroupBox; + radVerbal: TRadioButton; + radPhone: TRadioButton; + radPolicy: TRadioButton; + cmdOK: TButton; + cmdCancel: TButton; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure lstOrdersDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer; + var AHeight: Integer); + procedure Panel1Resize(Sender: TObject); + private + FOrderList: TList; + FNature: Char; + FSigSts: Char; + OKPressed: Boolean; + ESCode: string; + end; + +function ExecuteReleaseOrders(SelectedList: TList): Boolean; + +implementation + +{$R *.DFM} + +uses Hash, rCore, rOrders, uConst, fSignItem, fOrdersPrint, uCore, uOrders, fRptBox, + fFrame, fClinicWardMeds; + +const + TX_SAVERR1 = 'The error, '; + TX_SAVERR2 = ', occurred while trying to save:' + CRLF + CRLF; + TC_SAVERR = 'Error Saving Order'; + TX_ES_REQ = 'Enter your electronic signature to release these orders.'; + TC_ES_REQ = 'Electronic Signature'; + TX_NO_REL = CRLF + CRLF + '- cannot be released to the service(s).' + CRLF + CRLF + 'Reason: '; + TC_NO_REL = 'Unable to Release Orders'; + +function ExecuteReleaseOrders(SelectedList: TList): Boolean; +var + frmReleaseOrders: TfrmReleaseOrders; + i, PrintLoc: Integer; + SignList: TStringList; + OrderText: string; + AnOrder: TOrder; + + function FindOrderText(const AnID: string): string; + var + i: Integer; + begin + Result := ''; + with SelectedList do for i := 0 to Count - 1 do + with TOrder(Items[i]) do if ID = AnID then + begin + Result := Text; + Break; + end; + end; + + function SignNotRequired: Boolean; + var + i: Integer; + begin + Result := True; + with SelectedList do for i := 0 to Pred(Count) do + begin + with TOrder(Items[i]) do if Signature <> OSS_NOT_REQUIRE then Result := False; + end; + end; + + +begin + Result := False; + PrintLoc := 0; + if SelectedList.Count = 0 then Exit; + frmReleaseOrders := TfrmReleaseOrders.Create(Application); + try + ResizeFormToFont(TForm(frmReleaseOrders)); + frmReleaseOrders.FOrderList := SelectedList; + with SelectedList do for i := 0 to Count - 1 do + frmReleaseOrders.lstOrders.Items.Add(TOrder(Items[i]).Text); + if SignNotRequired then frmReleaseOrders.grpRelease.Visible := False; + frmReleaseOrders.ShowModal; + if frmReleaseOrders.OKPressed then + begin + Result := True; + SignList := TStringList.Create; + try + with SelectedList, frmReleaseOrders do + for i := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[i]); + SignList.Add(AnOrder.ID + U + FSigSts + U + RS_RELEASE + U + FNature); + end; + StatusText('Sending Orders to Service(s)...'); + if SignList.Count > 0 then SendOrders(SignList, frmReleaseOrders.ESCode); + + if (not frmFrame.TimedOut) then + begin + if IsValidIMOLoc(uCore.TempEncounterLoc,Patient.DFN) then + frmClinicWardMeds.ClinicOrWardLocation(SignList, uCore.TempEncounterLoc,uCore.TempEncounterLocName, PrintLoc) + else + if (IsValidIMOLoc(Encounter.Location,Patient.DFN)) and ((frmClinicWardMeds.rpcIsPatientOnWard(patient.DFN)) and (Patient.Inpatient = false)) then + frmClinicWardMeds.ClinicOrWardLocation(SignList, Encounter.Location,Encounter.LocationName, PrintLoc); + end; + uCore.TempEncounterLoc := 0; + uCore.TempEncounterLocName := ''; + + //hds7591 Clinic/Ward movement. + + + with SignList do if Count > 0 then for i := 0 to Count - 1 do + begin + if Pos('E', Piece(SignList[i], U, 2)) > 0 then + begin + OrderText := FindOrderText(Piece(SignList[i], U, 1)); + InfoBox(TX_SAVERR1 + Piece(SignList[i], U, 4) + TX_SAVERR2 + OrderText, TC_SAVERR, MB_OK); + end; + if Pos('R', Piece(SignList[i], U, 2)) > 0 then + NotifyOtherApps(NAE_ORDER, 'RL' + U + Piece(SignList[i], U, 1)); + end; + StatusText(''); + PrintOrdersOnSignRelease(SignList, frmReleaseOrders.FNature, PrintLoc); +// SetupOrdersPrint(SignList, DeviceInfo, frmReleaseOrders.FNature, False, PrintIt); //*KCM* +// if PrintIt then PrintOrdersOnReview(SignList, DeviceInfo); //*KCM* + finally + SignList.Free; + end; + {BillingAware} + // HDS6435 + // HDS00005143 - if cidc master sw is on and BANurseConsultOrders.Count > 0 then + // save those orders with selected DX enteries. Resulting in dx populated for provider. + if rpcGetBAMasterSwStatus then + begin + if BANurseConsultOrders.Count > 0 then + begin + rpcSaveNurseConsultOrder(BANurseConsultOrders); + BANurseConsultOrders.Clear; + end; + end; +{BillingAware} +// HDS6435 + end; {if frmReleaseOrders.OKPressed} + finally + frmReleaseOrders.Release; + with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + end; +end; + +procedure TfrmReleaseOrders.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; + ESCode := ''; + if Encounter.Provider = User.DUZ then + begin + FNature := NO_POLICY; + radPolicy.Checked := True; + end else + begin + FNature := NO_VERBAL; + radVerbal.Checked := True; + end; + FSigSts := SS_UNSIGNED; +end; + +procedure TfrmReleaseOrders.cmdOKClick(Sender: TObject); +var + i: Integer; + AnErrMsg: string; + AnOrder: TOrder; +begin + inherited; + // set up nature, signature status + if radPhone.Checked then FNature := NO_PHONE + else if radPolicy.Checked then FNature := NO_POLICY + else FNature := NO_VERBAL; + FSigSts := SS_UNSIGNED; + if not grpRelease.Visible then + begin + FNature := NO_PROVIDER; + FSigSts := SS_NOTREQD; + end; + if FNature = NO_POLICY then FSigSts := SS_ESIGNED; + // validate release of the orders with this nature of order + StatusText('Validating Release...'); + AnErrMsg := ''; + with FOrderList do for i := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[i]); + ValidateOrderActionNature(AnOrder.ID, OA_RELEASE, FNature, AnErrMsg); + if Length(AnErrMsg) > 0 then + begin + if IsInvalidActionWarning(AnOrder.Text, AnOrder.ID) then Break; + InfoBox(AnOrder.Text + TX_NO_REL + AnErrMsg, TC_NO_REL, MB_OK); + Break; + end; + end; + StatusText(''); + if Length(AnErrMsg) > 0 then Exit; + // get the signature code for releasing the orders + if grpRelease.Visible then + begin + SignatureForItem(Font.Size, TX_ES_REQ, TC_ES_REQ, ESCode); + if ESCode = '' then Exit; + end; + OKPressed := True; + Close; +end; + +procedure TfrmReleaseOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmReleaseOrders.lstOrdersDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + x: string; + ARect: TRect; + SaveColor: TColor; +begin + inherited; + with lstOrders do + begin + ARect := Rect; + ARect.Left := ARect.Left + 2; + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + SaveColor := Canvas.Brush.Color; + Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + if Index < Items.Count then + begin + x := FilteredString(Items[Index]); + DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + Canvas.Brush.Color := SaveColor; + ARect.Right := ARect.Right + 4; + end; + end; +end; + +procedure TfrmReleaseOrders.lstOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AHeight: Integer); +var + x: string; + ARect: TRect; +begin + inherited; + with lstOrders do if Index < Items.Count then + begin + ARect := ItemRect(Index); + Canvas.FillRect(ARect); + x := FilteredString(Items[Index]); + AHeight := WrappedTextHeightByFont(Canvas, Font, x, ARect); + //if AHeight > 255 then AHeight := 255; + if AHeight < 13 then AHeight := 15; + end; +end; + +procedure TfrmReleaseOrders.Panel1Resize(Sender: TObject); +begin + inherited; + lstOrders.Invalidate; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersRenew.dfm b/CPRS-Chart/Orders/fOrdersRenew.dfm new file mode 100644 index 0000000..9420828 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersRenew.dfm @@ -0,0 +1,115 @@ +inherited frmRenewOrders: TfrmRenewOrders + Left = 434 + Top = 232 + HorzScrollBar.Tracking = True + HorzScrollBar.Visible = True + VertScrollBar.Tracking = True + AutoScroll = False + Caption = 'Renew Orders' + ClientHeight = 416 + ClientWidth = 592 + Position = poScreenCenter + Scaled = False + OnClose = FormClose + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object hdrOrders: THeaderControl + Left = 0 + Top = 0 + Width = 592 + Height = 17 + DragReorder = False + Constraints.MinHeight = 17 + Sections = < + item + AutoSize = True + ImageIndex = -1 + Text = 'Order to be Renewed' + Width = 296 + end + item + AutoSize = True + ImageIndex = -1 + Text = 'Start/Stop Time' + Width = 296 + end> + OnSectionResize = hdrOrdersSectionResize + end + object pnlBottom: TPanel + Left = 0 + Top = 393 + Width = 592 + Height = 23 + Align = alBottom + Anchors = [akLeft, akTop, akRight, akBottom] + AutoSize = True + TabOrder = 2 + DesignSize = ( + 592 + 23) + object cmdCancel: TButton + Left = 512 + Top = 1 + Width = 72 + Height = 21 + Anchors = [akTop, akRight] + Cancel = True + Caption = 'Cancel' + Constraints.MinHeight = 21 + TabOrder = 0 + OnClick = cmdCancelClick + end + object cmdOK: TButton + Left = 424 + Top = 1 + Width = 72 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'OK' + Constraints.MinHeight = 21 + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdChange: TButton + Left = 8 + Top = 1 + Width = 145 + Height = 21 + Caption = 'Change...' + Constraints.MinHeight = 21 + Enabled = False + TabOrder = 2 + OnClick = cmdChangeClick + end + end + object lstOrders: TCaptionListBox + Left = 0 + Top = 17 + Width = 592 + Height = 376 + Style = lbOwnerDrawVariable + Align = alClient + Anchors = [] + Color = clCream + Ctl3D = True + ExtendedSelect = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 24 + ParentCtl3D = False + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = lstOrdersClick + OnDrawItem = lstOrdersDrawItem + OnMeasureItem = lstOrdersMeasureItem + HintOnItem = True + end +end diff --git a/CPRS-Chart/Orders/fOrdersRenew.pas b/CPRS-Chart/Orders/fOrdersRenew.pas new file mode 100644 index 0000000..876bd79 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersRenew.pas @@ -0,0 +1,435 @@ +unit fOrdersRenew; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ComCtrls, uConst, rODMeds, uOrders, fOCAccept, + ExtCtrls, uODBase, ORCtrls; + +type + TfrmRenewOrders = class(TfrmAutoSz) + hdrOrders: THeaderControl; + pnlBottom: TPanel; + cmdCancel: TButton; + cmdOK: TButton; + cmdChange: TButton; + lstOrders: TCaptionListBox; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer; + var Height: Integer); + procedure lstOrdersDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure lstOrdersClick(Sender: TObject); + procedure cmdChangeClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure hdrOrdersSectionResize(HeaderControl: THeaderControl; + Section: THeaderSection); + private + OKPressed: Boolean; + OrderList: TList; + function MeasureColumnHeight(TheOrderText: string; Index: Integer; Column: integer):integer; + function AcceptOrderCheckOnRenew(const AnOrderID: string; var OCList: TStringList): boolean; + end; + +function ExecuteRenewOrders(var SelectedList: TList): Boolean; + +implementation + +{$R *.DFM} + +uses rOrders, fDateRange, fRenewOutMed, uCore, rCore, rMisc, UBAGlobals; + +const + TEXT_COLUMN = 0; + DATE_COLUMN = 1; + WORD_WRAPPED = True; + + TC_START_STOP = 'Change Start/Stop Dates'; + TX_START_STOP = 'Enter the start and stop times for this order. Stop time is optional.'; + TX_LBL_START = 'Start Date/Time'; + TX_LBL_STOP = 'Stop Date/Time'; + TX_NO_DEA = 'Provider must have a DEA# or VA# to review this order'; + TC_NO_DEA = 'DEA# Required'; + TC_ORDERCHECKS = 'Order Checks'; + +function PickupText(const x: string): string; +begin + case CharAt(x, 1) of + 'C': Result := ' (administered in Clinic)'; + 'M': Result := ' (deliver by Mail)'; + 'W': Result := ' (pick up at Window)'; + else Result := ''; + end; +end; + +function ExecuteRenewOrders(var SelectedList: TList): Boolean; +const + TC_IMO_ERROR = 'Inpatient medication order on outpatient authorization required'; +var + frmRenewOrders: TfrmRenewOrders; + RenewFields: TOrderRenewFields; + AnOrder, TheOrder: TOrder; + OriginalID, RNFillerID,x: string; + OrderableItemIen: integer; + TreatAsIMOOrder, IsAnIMOOrder: boolean; + PassDeaList: TList; + IsInpt: boolean; + i,j: Integer; + //m: integer; //BAPHII 1.3.2 + PkgInfo:string; + PlainText,RnErrMsg: string; + TD: TFMDateTime; + OrchkList: TStringList; + + function OrderForInpatient: Boolean; + begin + Result := Patient.Inpatient; + end; +begin + Result := False; + IsAnIMOOrder := False; + RnErrMsg := ''; + + if SelectedList.Count = 0 then Exit; + + PassDeaList := TList.Create; + OrchkList := TStringList.Create; + frmRenewOrders := TfrmRenewOrders.Create(Application); + + try + frmRenewOrders.OrderList := SelectedList; + ResizeFormToFont(TForm(frmRenewOrders)); + IsInpt := OrderForInpatient; + + with frmRenewOrders.OrderList do + for j := 0 to Count - 1 do + begin + TheOrder := TOrder(Items[j]); + PkgInfo := GetPackageByOrderID(TheOrder.ID); + + if Pos('PS',PkgInfo)=1 then + begin + OrderableItemIen := GetOrderableIen(TheOrder.ID); + + if DEACheckFailed(OrderableItemIen, IsInPt) then + begin + InfoBox(TX_NO_DEA + #13 + TheOrder.Text, TC_NO_DEA, MB_OK); + UnlockOrder(TheOrder.ID); + end + else PassDeaList.Add(frmRenewOrders.OrderList.Items[j]); + end + else + PassDeaList.Add(frmRenewOrders.OrderList.Items[j]); + end; + + frmRenewOrders.OrderList.Clear; + frmRenewOrders.OrderList := PassDeaList; + + for i := frmRenewOrders.OrderList.Count - 1 downto 0 do + begin + AnOrder := TOrder(frmRenewOrders.OrderList.Items[i]); + if not IMOActionValidation('RENEW^'+ AnOrder.ID,IsAnIMOOrder,RnErrMsg,'C') then + begin + frmRenewOrders.OrderList.Delete(i); + ShowMsgOn(Length(RnErrMsg) > 0, RnErrMsg, TC_IMO_ERROR); + end; + RnErrMsg := ''; + end; + + with frmRenewOrders.OrderList do + for i := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[i]); + RenewFields := TOrderRenewFields.Create; + LoadRenewFields(RenewFields, AnOrder.ID); + RenewFields.NewText := AnOrder.Text + PickupText(RenewFields.Pickup); + AnOrder.LinkObject := RenewFields; + PlainText := ''; + + if RenewFields.NewText <> '' then + PlainText := PlainText + frmRenewOrders.hdrOrders.Sections[TEXT_COLUMN].Text + ': ' + RenewFields.NewText + CRLF; + + if RenewFields.BaseType = OD_TEXTONLY then + with RenewFields do + PlainText := PlainText + 'Start: ' + StartTime + CRLF + 'Stop: ' + StopTime; + + frmRenewOrders.lstOrders.Items.AddObject(PlainText, AnOrder); + end; + + if frmRenewOrders.OrderList.Count < 1 then + frmRenewOrders.Close + else + frmRenewOrders.ShowModal; + + if frmRenewOrders.OKPressed then + begin + with frmRenewOrders.OrderList do + for i := Count - 1 downto 0 do + begin + OrchkList.Clear; + AnOrder := TOrder(Items[i]); + OriginalID := AnOrder.ID; + + //BAPHII 1.3.2 - Pick up source-order ID here + UBAGlobals.SourceOrderID := OriginalID; //BAPHII 1.3.2 + UBAGlobals.CopyTreatmentFactorsDxsToRenewedOrder; //BAPHII 1.3.2 + + if CheckOrderGroup(OriginalID) = 1 then + RNFillerID := 'PSI' + else if CheckOrderGroup(OriginalID) = 2 then + RNFillerID := 'PSO'; + + if AddFillerAppID(RNFillerID) and OrderChecksEnabled then + begin + StatusText('Order Checking...'); + x := OrderChecksOnDisplay(RNFillerID); + StatusText(''); + if Length(x) > 0 then InfoBox(x, TC_ORDERCHECKS, MB_OK); + end; + + TreatAsIMOOrder := False; + + if not frmRenewOrders.AcceptOrderCheckOnRenew(AnOrder.ID,OrchkList) then + begin + frmRenewOrders.OrderList.Delete(i); + Continue; + end; + + if IsIMOOrder(OriginalID) then //IMO + begin + TD := FMToday; + if IsValidIMOLoc(Encounter.Location, Patient.DFN) and (Encounter.DateTime > TD) then + TreatAsIMOOrder := True; + if Patient.Inpatient then TreatAsIMOOrder := True; + end; + + RenewFields := TOrderRenewFields(AnOrder.LinkObject); + + //PSI-COMPLEX Start + if IsComplexOrder(OriginalID) then + begin + if TreatAsIMOOrder then + RenewOrder(AnOrder, RenewFields,1,Encounter.DateTime,OrchkList) + else + RenewOrder(AnOrder, RenewFields,1,0,OrchkList); + + AnOrder.ActionOn := OriginalID + '=RN'; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_CPLXRN, Integer(AnOrder)); + end + //PSI-COMPLEX End + else + begin + if TreatAsIMOOrder then + RenewOrder(AnOrder, RenewFields,0,Encounter.DateTime,OrchkList) + else + RenewOrder(AnOrder, RenewFields,0,0,OrchkList); + + AnOrder.ActionOn := OriginalID + '=RN'; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_ACT, Integer(AnOrder)); + end; + end; + + Result := True; + + end + + else + with frmRenewOrders.OrderList do + for i := 0 to Count - 1 do + UnlockOrder(TOrder(Items[i]).ID); + finally + // free all the TOrderRenewFields that were created + SelectedList := frmRenewOrders.OrderList; + + with frmRenewOrders.OrderList do for i := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[i]); + RenewFields := TOrderRenewFields(AnOrder.LinkObject); + RenewFields.Free; + AnOrder.LinkObject := nil; + end; + frmRenewOrders.Release; + end; +end; + +procedure TfrmRenewOrders.FormCreate(Sender: TObject); +begin + inherited; + lstOrders.Color := ReadOnlyColor; + OKPressed := False; +end; + +procedure TfrmRenewOrders.lstOrdersMeasureItem(Control: TWinControl; + Index: Integer; var Height: Integer); +var + x: string; + DateHeight, TextHeight: Integer; + AnOrder: TOrder; + RenewFields: TOrderRenewFields; +begin + inherited; + AnOrder := TOrder(OrderList.Items[Index]); + if AnOrder <> nil then + begin + RenewFields := TOrderRenewFields(AnOrder.LinkObject); + with RenewFields do x := 'Start: ' + StartTime + CRLF + 'Stop: ' + StopTime; + TextHeight := MeasureColumnHeight(RenewFields.NewText,Index,TEXT_COLUMN); + DateHeight := MeasureColumnHeight(x, Index, DATE_COLUMN); + Height := HigherOf(TextHeight, DateHeight); + if Height > 255 then Height := 255; //This is maximum allowed by a windows listbox item. + end +end; + +procedure TfrmRenewOrders.lstOrdersDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + x: string; + AnOrder: TOrder; + RenewFields: TOrderRenewFields; +begin + inherited; + AnOrder := TOrder(lstOrders.Items.Objects[Index]); + if AnOrder <> nil then with AnOrder do + begin + RenewFields := TOrderRenewFields(AnOrder.LinkObject); + if RenewFields.BaseType = OD_TEXTONLY + then with RenewFields do x := 'Start: ' + StartTime + CRLF + 'Stop: ' + StopTime + else x := ''; + ListGridDrawLines(lstOrders, hdrOrders, Index, State); + ListGridDrawCell(lstOrders, hdrOrders, Index, TEXT_COLUMN, RenewFields.NewText, WORD_WRAPPED); + ListGridDrawCell(lstOrders, hdrOrders, Index, DATE_COLUMN, x, WORD_WRAPPED); + end; +end; + +procedure TfrmRenewOrders.lstOrdersClick(Sender: TObject); +var + RenewFields: TOrderRenewFields; +begin + inherited; + with lstOrders do + begin + if ItemIndex < 0 then Exit; + RenewFields := TOrderRenewFields(TOrder(Items.Objects[ItemIndex]).LinkObject); + case RenewFields.BaseType of + OD_MEDOUTPT: cmdChange.Caption := 'Change Refills/Pick Up...'; + OD_TEXTONLY: cmdChange.Caption := 'Change Start/Stop...'; + else cmdChange.Caption := 'Change...'; + end; + with RenewFields do if (BaseType = OD_MEDOUTPT) or (BaseType = OD_TEXTONLY) + then cmdChange.Enabled := True + else cmdChange.Enabled := False; + end; +end; + +procedure TfrmRenewOrders.cmdChangeClick(Sender: TObject); +var + StartPos: Integer; + x, NewComment, OldComment, OldRefills, OldPickup: string; + AnOrder: TOrder; + RenewFields: TOrderRenewFields; +begin + inherited; + with lstOrders do + begin + if ItemIndex < 0 then Exit; + AnOrder := TOrder(Items.Objects[ItemIndex]); + RenewFields := TOrderRenewFields(AnOrder.LinkObject); + case RenewFields.BaseType of + OD_MEDOUTPT: with RenewFields do begin + OldRefills := IntToStr(Refills) + ' refills'; + { reverse string to make sure getting last matching comment } + OldComment := UpperCase(ReverseStr(Comments)); + OldPickup := PickupText(Pickup); + ExecuteRenewOutMed(Refills, Comments, Pickup, AnOrder); + NewComment := UpperCase(ReverseStr(Comments)); + x := ReverseStr(NewText); + StartPos := Pos(OldComment, UpperCase(x)); + if StartPos > 0 + then x := Copy(x, 1, StartPos - 1) + NewComment + + Copy(x, StartPos + Length(OldComment), Length(x)) + else x := NewComment + x; + NewText := ReverseStr(x); + x := NewText; + StartPos := Pos(OldRefills, x); + if StartPos > 0 + then x := Copy(x, 1, StartPos - 1) + IntToStr(Refills) + ' refills' + + Copy(x, StartPos + Length(OldRefills), Length(x)) + else x := x + ' ' + IntToStr(Refills) + ' refills'; + StartPos := Pos(OldPickup, x); + if StartPos > 0 + then x := Copy(x, 1, StartPos - 1) + PickupText(Pickup) + + Copy(x, StartPos + Length(OldPickup), Length(x)) + else x := x + PickupText(Pickup); + NewText := x; + end; + OD_TEXTONLY: with RenewFields do ExecuteDateRange(StartTime, StopTime, DT_FUTURE+DT_TIMEOPT, + TC_START_STOP, TX_START_STOP, TX_LBL_START, TX_LBL_STOP); + end; + end; + lstOrders.Invalidate; +end; + +procedure TfrmRenewOrders.cmdOKClick(Sender: TObject); +begin + inherited; + OKPressed := True; + Close; +end; + +procedure TfrmRenewOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +function TfrmRenewOrders.MeasureColumnHeight(TheOrderText: string; Index, + Column: integer): integer; +var + ARect: TRect; +begin + ARect.Left := 0; + ARect.Top := 0; + ARect.Bottom := 0; + ARect.Right := hdrOrders.Sections[Column].Width -6; + Result := WrappedTextHeightByFont(lstOrders.Canvas,lstOrders.Font,TheOrderText,ARect); +end; + +function TfrmRenewOrders.AcceptOrderCheckOnRenew(const AnOrderID: string; + var OCList: TStringList): boolean; +var + OIInfo,FillerID: string; + AnOIList: TStringList; +begin + AnOIList := TStringList.Create; + OIInfo := DataForOrderCheck(AnOrderID); + FillerID := Piece(OIInfo,'^',2); + AnOIList.Add(OIInfo); + OrderChecksOnAccept(OCList, FillerID, '', AnOIList, AnOrderID); + Result := AcceptOrderWithChecks(OCList); +end; + +procedure TfrmRenewOrders.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + SaveUserBounds(Self); +end; + +procedure TfrmRenewOrders.FormShow(Sender: TObject); +begin + inherited; + SetFormPosition(Self); +end; + +procedure TfrmRenewOrders.hdrOrdersSectionResize(HeaderControl: THeaderControl; Section: THeaderSection); +begin + inherited; + lstOrders.Repaint; //CQ6367 +end; + + +end. diff --git a/CPRS-Chart/Orders/fOrdersSign.dfm b/CPRS-Chart/Orders/fOrdersSign.dfm new file mode 100644 index 0000000..e152046 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersSign.dfm @@ -0,0 +1,254 @@ +object frmSignOrders: TfrmSignOrders + Left = 400 + Top = 159 + Width = 585 + Height = 511 + Caption = 'Sign Orders' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyPreview = True + OldCreateOrder = True + Position = poScreenCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnMouseDown = clstOrdersMouseDown + OnMouseMove = FormMouseMove + OnShow = FormShow + DesignSize = ( + 577 + 484) + PixelsPerInch = 96 + TextHeight = 13 + object lblESCode: TLabel + Left = 8 + Top = 441 + Width = 123 + Height = 13 + Anchors = [akLeft, akBottom] + Caption = 'Electronic Signature Code' + end + object laDiagnosis: TLabel + Left = 184 + Top = 185 + Width = 46 + Height = 13 + Caption = 'Diagnosis' + Visible = False + end + object Label2: TStaticText + Left = 8 + Top = 147 + Width = 171 + Height = 17 + Caption = 'The following orders will be signed -' + TabOrder = 3 + TabStop = True + end + object cmdOK: TButton + Left = 417 + Top = 455 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 497 + Top = 455 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + object txtESCode: TCaptionEdit + Left = 8 + Top = 455 + Width = 137 + Height = 21 + Anchors = [akLeft, akBottom] + PasswordChar = '*' + TabOrder = 0 + Caption = 'Electronic Signature Code' + end + inline fraCoPay: TfraCoPayDesc + Left = 0 + Top = 0 + Width = 577 + Height = 132 + Align = alTop + ParentShowHint = False + ShowHint = True + TabOrder = 5 + Visible = False + inherited pnlRight: TPanel + Left = 328 + inherited lblCaption: TStaticText + Caption = 'Patient Orders Related To:' + end + inherited pnlMain: TPanel + inherited Panel7: TPanel + inherited lblHNC2: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + inherited lblHNC: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + end + inherited Panel8: TPanel + inherited Label12: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + inherited Label11: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + end + inherited Panel9: TPanel + inherited Label14: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + inherited Label13: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + end + inherited Panel10: TPanel + inherited Label16: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + inherited Label15: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + end + inherited Panel11: TPanel + inherited Label18: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + inherited Label17: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + end + inherited Panel12: TPanel + inherited Label24: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + inherited Label23: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + end + inherited Panel1: TPanel + inherited StaticText4: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + inherited StaticText1: TORStaticText + OnEnter = fraCoPayLabel23Enter + OnExit = fraCoPayLabel23Exit + end + end + end + end + inherited pnlSC: TPanel + Width = 328 + inherited lblSCDisplay: TLabel + Width = 328 + end + inherited memSCDisplay: TCaptionMemo + Width = 328 + end + end + end + object clstOrders: TCaptionCheckListBox + Left = 8 + Top = 162 + Width = 564 + Height = 277 + OnClickCheck = clstOrdersClickCheck + Anchors = [akLeft, akTop, akRight, akBottom] + ItemHeight = 16 + ParentShowHint = False + PopupMenu = poBACopyPaste + ShowHint = True + Style = lbOwnerDrawVariable + TabOrder = 4 + OnClick = clstOrdersClick + OnDrawItem = clstOrdersDrawItem + OnKeyUp = clstOrdersKeyUp + OnMeasureItem = clstOrdersMeasureItem + OnMouseDown = clstOrdersMouseDown + OnMouseMove = clstOrdersMouseMove + Caption = 'The following orders will be signed -' + end + object gbdxLookup: TGroupBox + Left = 7 + Top = 139 + Width = 99 + Height = 43 + Caption = 'Lookup Diagnosis' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 8 + TabStop = True + Visible = False + object buOrdersDiagnosis: TButton + Left = 7 + Top = 16 + Width = 86 + Height = 21 + Caption = '&Diagnosis' + Enabled = False + TabOrder = 0 + OnClick = buOrdersDiagnosisClick + end + end + object poBACopyPaste: TPopupMenu + Left = 344 + Top = 296 + object Copy1: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = Copy1Click + end + object Paste1: TMenuItem + Caption = '&Paste' + Enabled = False + ShortCut = 16470 + OnClick = Paste1Click + end + object Diagnosis1: TMenuItem + Caption = '&Diagnosis...' + ShortCut = 32836 + OnClick = buOrdersDiagnosisClick + end + object Exit1: TMenuItem + Caption = '&Exit' + ShortCut = 16453 + OnClick = Exit1Click + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersSign.pas b/CPRS-Chart/Orders/fOrdersSign.pas new file mode 100644 index 0000000..132f2f5 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersSign.pas @@ -0,0 +1,1524 @@ +unit fOrdersSign; + +{.$define debug} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls, AppEvnts, mCoPayDesc, XUDIGSIGSC_TLB, + ComCtrls, CheckLst, ExtCtrls, uConsults, UBAGlobals,UBACore, UBAMessages, UBAConst, + Menus, ORClasses; + +type + TfrmSignOrders = class(TForm) + cmdOK: TButton; + cmdCancel: TButton; + lblESCode: TLabel; + txtESCode: TCaptionEdit; + fraCoPay: TfraCoPayDesc; + clstOrders: TCaptionCheckListBox; + laDiagnosis: TLabel; + gbdxLookup: TGroupBox; + buOrdersDiagnosis: TButton; + poBACopyPaste: TPopupMenu; + Copy1: TMenuItem; + Paste1: TMenuItem; + Diagnosis1: TMenuItem; + Exit1: TMenuItem; + Label2: TStaticText; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure clstOrdersDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); + procedure clstOrdersMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); + procedure clstOrdersClickCheck(Sender: TObject); + procedure clstOrdersMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure buOrdersDiagnosisClick(Sender: TObject); + function IsSignatureRequired:boolean; + procedure Exit1Click(Sender: TObject); + procedure Copy1Click(Sender: TObject); + procedure Paste1Click(Sender: TObject); + procedure clstOrdersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure clstOrdersClick(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure fraCoPaylblHNCMouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); + procedure fraCoPayLabel23Enter(Sender: TObject); + procedure fraCoPayLabel23Exit(Sender: TObject); + procedure clstOrdersKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + OKPressed: Boolean; + ESCode: string; + FLastHintItem: integer; + FOldHintPause: integer; + FOldHintHidePause: integer; + function ItemsAreChecked: Boolean; + function GetNumberOfSelectedOrders : byte; + procedure ShowTreatmentFactorHints(var pHintText: string; var pCompName: TORStaticText); // 508 + procedure SetItemTextToState; + procedure FormatListForScreenReader; + public + procedure SetCheckBoxStatus(thisOrderID: string); + function GetCheckBoxStatus(sourceOrderID : string) : string; overload; + +end; + +{Begin BillingAware} + { TODO 3 -oKW -cRefinement : Change to dynamic array or other dynamic structure for Billing Awareness Phase II. } + TarRect = array[MIN_RECT..MAX_RECT] of TRect; + + var + thisRect: TRect; + j: shortint; + ARect: TRect; + arRect: TarRect; + ProvDx: TProvisionalDiagnosis; + FOSTFHintWndActive: boolean; + FOSTFhintWindow: THintWindow; + tempList : TList; + +{End BillingAware} + +{Forward} function ExecuteSignOrders(SelectedList: TList): Boolean; + +var + crypto: IXuDigSigS; + rectIndex: Integer; + + {Begin BillingAware} + frmSignOrders: TfrmSignOrders; + chkBoxStatus: string; + srcOrderID: string; + targetOrderID: string; + tempStrList: TStringList; + srcDx: string; + tempBillableList :TStringList; + tempOrderList: TStringList; + copyOrderID: string; + srcIndex: integer; + CopyBuffer: TBADxRecord; + //CopyActive: boolean; //CQ6225 + {End BillingAware} + +implementation + +{$R *.DFM} + +uses + Hash, rCore, rOrders, uConst, fOrdersPrint, uCore, uOrders, uSignItems, fOrders, + fPCELex, rPCE, fODConsult, fBALocalDiagnoses, fClinicWardMeds, fFrame; + +const + TX_SAVERR1 = 'The error, '; + TX_SAVERR2 = ', occurred while trying to save:' + CRLF + CRLF; + TC_SAVERR = 'Error Saving Order'; + +function TfrmSignOrders.GetNumberOfSelectedOrders : byte; +{ + - Return the number of orders in clstOrders that are currently selected. +} +var + i: integer; + numSelected: byte; +begin + Result := 0; + if BILLING_AWARE then + begin + numSelected := 0; + + try + for i := 0 to fOrdersSign.frmSignOrders.clstOrders.Items.Count-1 do + if (fOrdersSign.frmSignOrders.clstOrders.Selected[i]) then + Inc(numSelected); + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in frmSignOrders.GetNumberOfSelectedOrders()');{$endif} + raise; + end; + end; + + Result := numSelected; + end; +end; + +procedure TfrmSignOrders.SetCheckBoxStatus(thisOrderID: string); +{ + - Set the current GRID checkboxes status +} +begin + if BILLING_AWARE then + begin + uSignItems.uSigItems.SetSigItems(clstOrders, thisOrderID); + end; +end; + +function TfrmSignOrders.GetCheckBoxStatus(sourceOrderID: string) : string; //PASS IN ORDER ID - NOT GRID INDEX +{ +- Obtain checkbox status for selected order - BY ORDER ID +} +var + itemsList: TStringList; + i: smallint; + thisOrderID: string; +begin + Result := ''; + itemsList := TStringList.Create; + itemsList.Clear; + itemsList := uSigItems.GetSigItems; //Get FItems list + + if BILLING_AWARE then + begin + try + for i := 0 to itemsList.Count-1 do + begin + thisOrderID := Piece(itemsList[i],'^',1); //get the order ID + if thisOrderID = sourceOrderID then //compare to order ID of source order + begin + Result := Piece(itemsList[i],U,4); //return TF status' + Break; + end; + end; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in frmSignOrders.GetCheckBoxStatus()');{$endif} + raise; + end; + end; + end; +end; + +function ExecuteSignOrders(SelectedList: TList): Boolean; +var + i, cidx,cnt, theSts: Integer; + ShrinkHeight: integer; + SignList: TStringList; + Obj: TOrder; + DigSigErr, DigStoreErr: Boolean; + x, SigData, SigUser, SigDrugSch, SigDEA: string; + cSignature, cHashData, cCrlUrl, cErr: string; + cProvDUZ: Int64; + OrderText: string; + PrintLoc: Integer; + // tempOrderID: string; + + function FindOrderText(const AnID: string): string; + var + i: Integer; + begin + Result := ''; + fOrdersSign.tempList := selectedList; + with SelectedList do for i := 0 to Count - 1 do + with TOrder(Items[i]) do if ID = AnID then + begin + Result := Text; + Break; + end; + end; + + function SignNotRequired: Boolean; + var + i: Integer; + begin + Result := True; + tempList := SelectedList; + with SelectedList do for i := 0 to Pred(Count) do + begin + with TOrder(Items[i]) do if Signature <> OSS_NOT_REQUIRE then Result := False; + end; + end; + + function DigitalSign: Boolean; + var + i: Integer; + begin + Result := False; + + with SelectedList do for i := 0 to Pred(Count) do + begin + with TOrder(Items[i]) do if Copy(DigSigReq,1,1) = '2' then Result := True; + end; + end; + +begin + Result := False; + DigSigErr := True; + PrintLoc := 0; + if SelectedList.Count = 0 then Exit; + if BILLING_AWARE then + begin + tempOrderList := TStringList.Create; + tempOrderList.Clear; + end; + frmSignOrders := TfrmSignOrders.Create(Application); + try + ResizeAnchoredFormToFont(frmSignOrders); + SigItems.ResetOrders; + with SelectedList do for i := 0 to Count - 1 do + begin + obj := TOrder(Items[i]); + cidx := frmSignOrders.clstOrders.Items.AddObject(Obj.Text,Obj); + SigItems.Add(CH_ORD,Obj.ID, cidx); + //HDS6205 allows dx entry for NON CIDC Consult orders + // if BILLING_AWARE then //HDS6205 + // if UBAGlobals.BAConsultOrdersRequireDx.Count > 0 then //HDS6205 + // begin + // tempOrderID := UBACore.SetOrderIDConsultDxRequired(Piece(Obj.ID,';',1) + ';1'); //HDS6205 + // tempOrderList.Add(tempOrderID); //HDS6205 + // end + // else + if BILLING_AWARE then + tempOrderList.Add(Obj.ID); + + frmSignOrders.clstOrders.Checked[cidx] := TRUE; + + if (TOrder(Items[i]).DGroupName) = NonVAMedGroup then + frmSignOrders.clstOrders.State[cidx] := cbGrayed ; + end; + + if SigItems.UpdateListBox(frmSignOrders.clstOrders) then + frmSignOrders.fraCoPay.Visible := TRUE + else + begin + + {Begin BillingAware} + if BILLING_AWARE then + frmSignOrders.gbDxLookup.Visible := FALSE; + {End BillingAware} + + ShrinkHeight := frmSignOrders.fraCoPay.Height + 9; + frmSignOrders.Height := frmSignOrders.Height - ShrinkHeight; + frmSignOrders.Label2.Top := frmSignOrders.Label2.Top - ShrinkHeight; + frmSignOrders.clstOrders.Top := frmSignOrders.clstOrders.Top - ShrinkHeight; + frmSignOrders.clstOrders.Height := frmSignOrders.clstOrders.Height + ShrinkHeight; + end; + + if GetPKISite and GetPKIUse and DigitalSign then //PKI setup for crypto card read + begin + try //PKI object creation + crypto := CoXuDigSigS.Create; + crypto.GetCSP; + StatusText(crypto.Reason); + DigSigErr := False; + except + on E: Exception do + begin + DigSigErr := True; + end; + end; + end; + + if SignNotRequired then + begin + frmSignOrders.lblESCode.Visible := False; + frmSignOrders.txtESCode.Visible := False; + end; + + if BILLING_AWARE then + begin + // build list of orders that are not billable based on order type + UBAGlobals.NonBillableOrderList := rpcNonBillableOrders(tempOrderList); + end; + + frmSignOrders.ShowModal; + if frmSignOrders.OKPressed then + begin + Result := True; + SignList := TStringList.Create; + try + with SelectedList do for i := 0 to Count - 1 do with TOrder(Items[i]) do + begin + DigStoreErr := false; + if (DigSigErr = False) and (Copy(TOrder(Items[i]).DigSigReq,1,1) = '2') then + begin + StatusText('Retrieving DIGITAL SIGNATURE'); + x := TOrder(Items[i]).ID; + SigDrugSch := GetDrugSchedule(x); + SigData := SetExternalText(x,SigDrugSch,User.DUZ); + if Length(SigData) < 1 then + begin + ShowMessage(TOrder(SelectedList.Items[i]).Text + CRLF + CRLF + 'Digital Signature failed with reason: Unable to get required data from server'); + DigStoreErr := true; + end; + SigUser := piece(SigData,'^',18); + SigDEA := piece(SigData,'^',20); + cProvDUZ := User.DUZ; + if DigStoreErr = false then + try + crypto.Reset; + crypto.DEAsig := true; + crypto.UsrName := SigUser; + crypto.DrugSch := SigDrugSch; + crypto.UsrNumber := SigDEA; + crypto.DataBuffer := SigData; + if crypto.Signdata = true then + begin + cSignature := crypto.Signature; + cHashData := crypto.HashValue; + cCrlUrl := crypto.CrlUrl; + end + else + begin + ShowMessage(TOrder(SelectedList.Items[i]).Text + CRLF + CRLF + 'Digital Signature failed with reason: '+ piece(Crypto.Reason, '^', 2)); + DigStoreErr := true; + end; + except + on E: Exception do + begin + ShowMessage(TOrder(SelectedList.Items[i]).Text + CRLF + CRLF + 'Crypto raised an error: '+ E.Message); + DigStoreErr := true; + end; + end; //except + if DigStoreErr = true then //PKI + begin + //NoOp + end + else + begin + cErr := ''; + StoreDigitalSig(ID, cHashData, cProvDUZ, cSignature, cCrlUrl, cErr); + cidx := frmSignOrders.clstOrders.Items.IndexOfObject(TOrder(Items[i])); + if (cidx > -1 ) and (frmSignOrders.clstOrders.Checked[cidx]) and (cErr = '') then + begin + UpdateOrderDGIfNeeded(ID); + SignList.Add(ID + U + SS_DIGSIG + U + RS_RELEASE + U + NO_PROVIDER); + BAOrderList.Add(TOrder(Items[i]).ID); + end; + end; + end + else + begin + if GetPKISite and (Copy(TOrder(SelectedList.Items[i]).DigSigReq,1,1) = '2') then + begin + ShowMessage('ORDER NOT SENT TO PHARMACY' + CRLF + CRLF + TOrder(SelectedList.Items[i]).Text + CRLF + CRLF + + 'This Schedule II medication cannot be electronically entered without a Digital Signature. ' + + CRLF + 'Please discontinue/cancel this order and create a hand written order for manual processing, or digitally sign the order at a PKI-enabled workstation.'); + end + else + begin + cidx := frmSignOrders.clstOrders.Items.IndexOfObject(TOrder(Items[i])); + if TOrder(Items[i]).DGroupName = NonVAMedGroup then frmSignOrders.clstOrders.Checked[cidx] := True; //Non VA MEDS + if (cidx > -1 ) and (frmSignOrders.clstOrders.Checked[cidx]) then + begin + UpdateOrderDGIfNeeded(ID); + SignList.Add(ID + U + SS_ESIGNED + U + RS_RELEASE + U + NO_PROVIDER); + end; + end; + end; + end; + StatusText('Sending Orders to Service(s)...'); + if SignList.Count > 0 then + begin + + //hds7591 Clinic/Ward movement. Patient Admission IMO + if not frmFrame.TimedOut then + begin + if IsValidIMOLoc(uCore.TempEncounterLoc,Patient.DFN) then + frmClinicWardMeds.ClinicOrWardLocation(SignList, Encounter.Location,uCore.Encounter.LocationName, PrintLoc) + else + if (IsValidIMOLoc(Encounter.Location,Patient.DFN)) and ((frmClinicWardMeds.rpcIsPatientOnWard(patient.DFN)) and (Patient.Inpatient = false)) then + frmClinicWardMeds.ClinicOrWardLocation(SignList, Encounter.Location,Encounter.LocationName, PrintLoc); + end; + uCore.TempEncounterLoc := 0; + uCore.TempEncounterLocName := ''; + //hds7591 Clinic/Ward movement Patient Admission IMO + + SigItems.SaveSettings; // Save CoPay FIRST! + SendOrders(SignList, frmSignOrders.ESCode); + + end; + + with SignList do if Count > 0 then for i := 0 to Count - 1 do + begin + if Pos('E', Piece(SignList[i], U, 2)) > 0 then + begin + OrderText := FindOrderText(Piece(SignList[i], U, 1)); + InfoBox(TX_SAVERR1 + Piece(SignList[i], U, 4) + TX_SAVERR2 + OrderText, + TC_SAVERR, MB_OK); + end; + if Pos('R', Piece(SignList[i], U, 2)) > 0 then + NotifyOtherApps(NAE_ORDER, 'RL' + U + Piece(SignList[i], U, 1)); + end; + StatusText(''); + for cnt := SignList.Count - 1 downto 0 do + begin + if Pos('E', Piece(SignList[cnt], U, 2)) > 0 then + begin + SignList.Delete(cnt); + Continue; + end; + theSts := GetOrderStatus(Piece(SignList[cnt],U,1)); + if theSts = 10 then SignList.Delete(cnt); //signed delayed order should not be printed. + end; + PrintOrdersOnSignRelease(SignList, NO_PROVIDER, PrintLoc); + finally + SignList.Free; + end; + end; {if frmSignOrders.OKPressed} + finally + frmSignOrders.Free; + with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + end; + crypto := nil; +end; + +procedure TfrmSignOrders.FormCreate(Sender: TObject); +begin + inherited; + FLastHintItem := -1; + OKPressed := False; + FOldHintPause := Application.HintPause; + Application.HintPause := 250; + FOldHintHidePause := Application.HintHidePause; + Application.HintHidePause := 30000; + tempList := TList.Create; + + {Begin BillingAware} + //This is the DIAGNOSIS label above the Dx column + if BILLING_AWARE then + begin + clstOrders.Height := 234; + clstOrders.Top := (gbdxLookup.top + 65); + gbDxLookup.Visible := TRUE; + label2.Top := (gbdxLookup.Top + 48); + laDiagnosis.Top := Label2.Top; + laDiagnosis.Left := 270; + laDiagnosis.Visible := TRUE; + rectIndex := 0; + end + else + begin + label2.Top := 145; + label2.Left := 8; + end; + {End BillingAware} + +end; + +function TfrmSignOrders.IsSignatureRequired:boolean; +var + i: Integer; +begin + Result := FALSE; + + with tempList do for i := 0 to Pred(Count) do + begin + if frmSignOrders.clstOrders.Checked[i] then + begin + with TOrder(Items[i]) do if Signature <> OSS_NOT_REQUIRE then + Result := TRUE; + end; + end; +end; + +procedure TfrmSignOrders.cmdOKClick(Sender: TObject); +const + TX_NO_CODE = 'An electronic signature code must be entered to sign orders.'; + TC_NO_CODE = 'Electronic Signature Code Required'; + TX_BAD_CODE = 'The electronic signature code entered is not valid.'; + TC_BAD_CODE = 'Invalid Electronic Signature Code'; + TC_NO_DX = 'Incomplete Diagnosis Entry'; + TX_NO_DX = 'A Diagnosis must be selected prior to signing any of the following order types:' + + CRLF + 'Lab, Radiology, Outpatient Medications, Prosthetics.'; +begin + inherited; + + if txtESCode.Visible and (Length(txtESCode.Text) = 0) then + begin + InfoBox(TX_NO_CODE, TC_NO_CODE, MB_OK); + Exit; + end; + + if txtESCode.Visible and not ValidESCode(txtESCode.Text) then + begin + InfoBox(TX_BAD_CODE, TC_BAD_CODE, MB_OK); + txtESCode.SetFocus; + txtESCode.SelectAll; + Exit; + end; + +{Begin BillingAware} + if BILLING_AWARE then + begin + if SigItems.OK2SaveSettings then + + if Not UBACore.BADxEntered then // if Dx have been entered and OK is pressed + begin // billing data will be saved. otherwise error message! + InfoBox(TX_NO_DX, 'Sign Orders', MB_OK); + Exit; + end; + end; +{End BillingAware} + + if not SigItems.OK2SaveSettings then + begin + InfoBox(TX_Order_Error, 'Sign Orders', MB_OK); + Exit; + end; + + if txtESCode.Visible then + ESCode := Encrypt(txtESCode.Text) else ESCode := ''; + + OKPressed := True; + Close; +end; + +procedure TfrmSignOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmSignOrders.FormDestroy(Sender: TObject); +begin + inherited; + Application.HintPause := FOldHintPause; + Application.HintHidePause := FOldHintHidePause; + Crypto := nil; //PKI object destroy +end; + +procedure TfrmSignOrders.clstOrdersDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); +var +{Begin BillingAware} + str: String; + tempID: string; + thisRec: UBAGlobals.TBADxRecord; + {End BillingAware} + + X: string; + ARect: TRect; +begin + inherited; + X := ''; + ARect := Rect; + +{Begin BillingAware} + if BILLING_AWARE then + begin + with clstOrders do + begin + if Index < Items.Count then + begin + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + Canvas.MoveTo(ARect.Left, ARect.Bottom); + Canvas.LineTo(ARect.Right, ARect.Bottom); + x := FilteredString(Items[Index]); + ARect.Right := ARect.Right - 50; //50 to 40 + //Vertical column line + Canvas.MoveTo(ARect.Right, Rect.Top); + Canvas.LineTo(ARect.Right, Rect.Bottom); + //Adjust position of 'Diagnosis' column label for font size + laDiagnosis.Left := ARect.Right + 14; + + //ARect.Right below controls the right-hand side of the Dx Column + //Adjust ARect.Right in conjunction with procedure uSignItems.TSigItems.lbDrawItem(), because the + //two rectangles overlap each other. + if BILLING_AWARE then + begin + arRect[Index] := Classes.Rect(ARect.Right+2, ARect.Top, ARect.Right + 108, ARect.Bottom); + Canvas.FillRect(arRect[Index]); + end; + + //Win32 API - This call to DrawText draws the text of the ORDER - not the diagnosis code + DrawText(Canvas.handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + {v25 BA} + if BILLING_AWARE then + begin + if Assigned(UBAGlobals.tempDxList) then + begin + tempID := TOrder(clstOrders.Items.Objects[Index]).ID; + + if UBAGlobals.tempDxNodeExists(tempID) then + begin + thisRec := TBADxRecord.Create; + UBAGlobals.GetBADxListForOrder(thisRec, tempID); + str := Piece(thisRec.FBADxCode,'^',1); + {v25 BA} + str := Piece(str,':',1); + DrawText(Canvas.handle, PChar(str), Length(str), arRect[Index], DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + if Not UBACore.IsOrderBillable(tempID) then //and + // Not UBAGlobals.tempDxNodeExists(tempID) then // if consult is non cidc but requires dx, show it. + begin + Canvas.Font.Color := clBlue; + DrawText(Canvas.handle, PChar(NOT_APPLICABLE), Length(NOT_APPLICABLE), {Length(str),} arRect[Index], DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + end; + end + else + begin + // determine if order is billable, if NOT then insert NA in Dx field + if Not UBACore.IsOrderBillable(tempID) then + begin + Canvas.Font.Color := clBlue; + DrawText(Canvas.handle, PChar(NOT_APPLICABLE), Length(NOT_APPLICABLE), {Length(str),} arRect[Index], DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + end; + end; + end; + end; + + end; + end; + end + else + begin + X := ''; + ARect := Rect; + with clstOrders do + begin + if Index < Items.Count then + begin + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + X := FilteredString(Items[Index]); + DrawText(Canvas.handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + end; + end; + end; +{End BillingAware} +end; + +procedure TfrmSignOrders.clstOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AHeight: Integer); +var + X: string; + ARect: TRect; +begin + inherited; + AHeight := SigItemHeight; + with clstOrders do if Index < Items.Count then + begin + ARect := ItemRect(Index); + Canvas.FillRect(ARect); + x := FilteredString(Items[Index]); + AHeight := WrappedTextHeightByFont(Canvas, Font, x, ARect); + if AHeight > 255 then AHeight := 255; + //------------------- + {Bug fix-HDS00001627} + //if AHeight < 13 then AHeight := 13; {ORIG} + if AHeight < 13 then AHeight := 15; + //------------------- + end; +end; + +procedure TfrmSignOrders.clstOrdersClickCheck(Sender: TObject); + + procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string); + var + idx: integer; + begin + for idx := 0 to clstOrders.Items.Count - 1 do + if TOrder(clstOrders.Items.Objects[idx]).ParentID = ParentOrderId then + begin + if clstOrders.Checked[idx] <> CheckedStatus then + begin + clstOrders.Checked[idx] := CheckedStatus; + SigItems.EnableSettings(idx, clstOrders.checked[Idx]); + end; + end; + end; + +begin + with clstOrders do + begin + if Length(TOrder(Items.Objects[ItemIndex]).ParentID)>0 then + begin + SigItems.EnableSettings(ItemIndex, checked[ItemIndex]); + updateAllChilds(checked[ItemIndex],TOrder(Items.Objects[ItemIndex]).ParentID); + end else + SigItems.EnableSettings(ItemIndex, checked[ItemIndex]); + end; + if ItemsAreChecked then + begin + lblESCode.Visible := IsSignatureRequired; + txtESCode.Visible := IsSignatureRequired + end + else + begin + lblESCode.Visible := ItemsAreChecked; + txtESCode.Visible := ItemsAreChecked; + end; +end; + +function TfrmSignOrders.ItemsAreChecked: Boolean; +{ return true if any items in the Review List are checked for applying signature } +var + i: Integer; +begin + Result := False; + + with clstOrders do + for i := 0 to Items.Count - 1 do + if Checked[i] then + begin + Result := True; + break; + end; +end; + +procedure TfrmSignOrders.clstOrdersMouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +var + Itm: integer; +{Begin BillingAware} + thisRec: UBAGlobals.TBADxRecord; + i: smallint; + thisOrderID: string; +{End BillingAware} +begin + inherited; + Itm := clstOrders.ItemAtPos(Point(X, Y), TRUE); + if (Itm >= 0) then + begin + if (Itm <> FLastHintItem) then + begin + Application.CancelHint; + {Begin BillingAware} + if BILLING_AWARE then + begin + //Billing Awareness 'flyover' hint includes Dx code(s) when Dx code(s) have been assigned to an order + thisOrderID := TChangeItem(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[Itm]).ID; + + if UBAGlobals.tempDxNodeExists(thisOrderID) then + begin + if Assigned(tempDxList) then + try + for i := 0 to (tempDxList.Count - 1) do + begin + thisRec := TBADxRecord(tempDxList.Items[i]); + + if Assigned(thisRec) then + if (thisRec.FOrderID = thisOrderID) then + begin + with thisRec do + begin + FBADxCode := StringReplace(thisrec.FBADxCode,'^',':',[rfReplaceAll]); + FBASecDx1 := StringReplace(thisrec.FBASecDx1,'^',':',[rfReplaceAll]); + FBASecDx2 := StringReplace(thisrec.FBASecDx2,'^',':',[rfReplaceAll]);; + FBASecDx3 := StringReplace(thisrec.FBASecDx3,'^',':',[rfReplaceAll]); + end; + + clstOrders.Hint := TrimRight(clstOrders.Items[Itm] + #13 + + thisRec.FBADxCode + #13 + thisRec.FBASecDx1 + #13 + thisRec.FBASecDx2 + #13 + thisRec.FBASecDx3); + end + end + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in frmSignOrders.clstOrdersMouseMove()');{$endif} + raise; + end; + end; + + end + else + clstOrders.Hint := TrimRight(clstOrders.Items[Itm]); + end; + {End BillingAware} + FLastHintItem := Itm; + Application.ActivateHint(Point(X, Y)); + end; + end + else + begin + clstOrders.Hint := ''; + FLastHintItem := -1; + Application.CancelHint; + end; +end; + +procedure TfrmSignOrders.FormShow(Sender: TObject); +begin +{Begin BillingAware} + + //INITIALIZATIONS + Paste1.Enabled := false; + fOrdersSign.srcOrderID := ''; + fOrdersSign.srcDx := ''; + if txtESCode.Visible then + frmSignOrders.txtESCode.SetFocus; + + if BILLING_AWARE then + begin + //List to contain loading OrderID's + if not Assigned(UBAGlobals.OrderIDList) then + UBAGlobals.OrderIDList := TStringList.Create; + + if BILLING_AWARE then + clstOrders.Multiselect := true; + + with fraCoPay do + begin + Label24.Caption := 'Service &Connected Condition'; + StaticText4.Caption := 'Combat &Vet (Combat Related)'; + Label18.Caption := 'Agent &Orange Exposure'; + Label16.Caption := 'Ionizing &Radiation Exposure'; + Label14.Caption := '&Environmental Contaminants'; + Label12.Caption := '&MST'; + lblHNC2.Caption := '&Head and/or Neck Cancer'; + Label24.ShowAccelChar := true; + StaticText4.ShowAccelChar := true; + Label18.ShowAccelChar := true; + Label16.ShowAccelChar := true; + Label14.ShowAccelChar := true; + Label12.ShowAccelChar := true; + lblHNC2.ShowAccelChar := true; + end; + end; //BILLING_AWARE + + clstOrders.TabOrder := 0; //CQ5057 + FormatListForScreenReader; + + //CQ5172 + if clstOrders.Count = 1 then + begin + clstOrders.Selected[0] := true; + buOrdersDiagnosis.Enabled := True; + Diagnosis1.Enabled := True; + // if number of orders is 1 and order is billable select order and disable diagnosis button + if NOT UBACore.IsOrderBillable(TChangeItem(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[0]).ID) then + begin + buOrdersDiagnosis.Enabled := False; + Diagnosis1.Enabled := False; + clstOrders.Selected[0] := False; + end + else + if Piece(TChangeItem(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[0]).ID,';',2) = DISCONTINUED_ORDER then + begin + buOrdersDiagnosis.Enabled := False; + Diagnosis1.Enabled := False; + end; + end; + //end CQ5172 +end; + + {Begin BillingAware} + // New BA Button.... +procedure TfrmSignOrders.buOrdersDiagnosisClick(Sender: TObject); +var + i: smallint; + thisOrderID: string; + match: boolean; + allBlank: boolean; + numSelected: smallint; +begin +{Begin BillingAware} + + match := false; + allBlank := false; + //orderIDList := TStringList.Create; + if Assigned (orderIDList) then orderIDList.Clear; + if Assigned(UBAGlobals.PLFactorsIndexes) then UBAGlobals.PLFactorsIndexes.Clear; + if Assigned (BAtmpOrderList) then BAtmpOrderList.Clear; + + try + // User has selected no orders to sign + for i := 0 to fOrdersSign.frmSignOrders.clstOrders.Items.Count-1 do + begin + if (fOrdersSign.frmSignOrders.clstOrders.Selected[i]) then + begin + thisOrderID := TChangeItem(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i]).ID; + orderIDList.Add(thisOrderID); + {BAV25 Code} + BAtmpOrderList.Add(TOrder(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i]).TEXT); + // stringlist holding index and stsFactors + UBAGlobals.PLFactorsIndexes.Add(IntToStr(i)+ U + GetCheckBoxStatus(thisOrderID) ); // store indexes and flags of selected orders + {BAV25 Code} + // Test for blank Dx on current grid item + if not (tempDxNodeExists(thisOrderID)) then + if Assigned(UBAGlobals.globalDxRec) then + InitializeNewDxRec(UBAGlobals.globalDxRec); + if (tempDxNodeExists(thisOrderID)) then + begin + // Create UBAGlobals.globalDxRec with loaded fields + if not Assigned(UBAGlobals.globalDxRec) then + begin + UBAGlobals.globalDxRec := UBAGlobals.TBADxRecord.Create; + InitializeNewDxRec(UBAGlobals.globalDxRec); + GetBADxListForOrder(UBAGlobals.globalDxRec, thisOrderID); + end + else + GetBADxListForOrder(UBAGlobals.globalDxRec, thisOrderID); + + {$ifdef debug} + with UBAGlobals.globalDxRec do + //ShowMessage('globalDxRec:'+#13+FOrderID+#13+FBADxCode+#13+FBASecDx1+#13+FBASecDx2+#13+FBASecDx3); + {$endif} + end; + end; //if + end; //for + except + on E: Exception do + ShowMessage(E.ClassName+' error raised, with message : '+E.Message); + end; + + numSelected := CountSelectedOrders(UBAConst.F_ORDERS_SIGN); + + if numSelected = 0 then + begin + ShowMessage(UBAMessages.BA_NO_ORDERS_SELECTED); + Exit; + end + else + if numSelected = 1 then + match := true; + + if (UBAGlobals.CompareOrderDx(UBAConst.F_ORDERS_SIGN)) then + match := true; + + + if UBAGlobals.AllSelectedDxBlank(UBAConst.F_ORDERS_SIGN) then + allBlank := true; + + if ((match and allBlank) or (match and (not allBlank))) then // All selected are blank or matching-not-blank +// begin + { TODO 3 -oKW -cRefinement : Define a const to replace string literal } + frmBALocalDiagnoses.Enter(UBAConst.F_ORDERS_SIGN, orderIDList) + else + begin + //Warning message + //If 'Yes' on warning message then open localDiagnosis + if (not allBlank) then + if MessageDlg(UBAMessages.BA_CONFIRM_DX_OVERWRITE, mtConfirmation, [mbYes, mbNo], 0) = mrNo then + Exit + else +// begin + if Assigned(UBAGlobals.globalDxRec) then + InitializeNewDxRec(UBAGlobals.globalDxRec); + frmBALocalDiagnoses.Enter(UBAConst.F_ORDERS_SIGN, orderIDList); + end; + // TFactors come from FBALocalDiagnoses(Problem List Dx's Only). + if Length(UBAGlobals.TFactors) > 0 then + begin + UBACore.SetTreatmentFactors(UBAGlobals.TFactors); + SigItems.DisplayPlTreatmentFactors; + end; + {End BillingAware} + txtESCode.SetFocus; +end; + +procedure TfrmSignOrders.Exit1Click(Sender: TObject); +begin + Close; +end; + +procedure TfrmSignOrders.Copy1Click(Sender: TObject); +{ + - Copy contents of the 'source' order for copy/paste operation +} +var + i : byte; + numSelected: byte; + thisChangeItem: TChangeItem; +begin + try + if BILLING_AWARE then + begin + Paste1.Enabled := true; + + numSelected := GetNumberOfSelectedOrders; + + if numSelected > 1 then + begin + ShowMessage('Only 1 order at a time may be selected for ''Copying'''); + Exit; + end; + + for i := 0 to fOrdersSign.frmSignOrders.clstOrders.Items.Count-1 do + if (fOrdersSign.frmSignOrders.clstOrders.Selected[i]) then + begin + thisChangeItem := TChangeItem.Create; + thisChangeItem := nil; + thisChangeItem := TChangeItem(clstOrders.Items.Objects[i]); + //Skip this one if it's a "header" on the grid + if (thisChangeItem = nil) then //or (thisChangeItem.ItemType <> CH_ORD)) then + begin + FreeAndNil(thisChangeItem); + Exit; + end; + + fOrdersSign.srcOrderID := TChangeItem(frmSignOrders.clstOrders.Items.Objects[i]).ID; + + //Copy source order to COPY BUFFER and add it to the Dx List + CopyBuffer := TBADxRecord.Create; + InitializeNewDxRec(CopyBuffer); + GetBADxListForOrder(CopyBuffer, fOrdersSign.srcOrderID); + fOrdersSign.CopyBuffer.FOrderID := BUFFER_ORDER_ID; + UBAGlobals.tempDxList.Add(CopyBuffer); + + //************************************************************************* + if (NOT UBACore.IsOrderBillable(fOrdersSign.srcOrderID) ) then //and + // (NOT tempDxNodeExists(fOrdersSign.srcOrderID)) then // added to allow copy to NON CIDC consult order the requires a DX. then + begin + ShowMessage(BA_NA_COPY_DISALLOWED); + fOrdersSign.srcOrderID := ''; + Exit; + end; + //************************************************************************* + + fOrdersSign.srcIndex := clstOrders.ItemIndex; + fOrdersSign.chkBoxStatus := GetCheckBoxStatus(fOrdersSign.srcOrderID); + Break; + end; + end; //if BILLING_AWARE + except + on EListError do + begin + ShowMessage('EListError in frmSignOrders.Copy1Click()'); + raise; + end; + end; + + //CopyActive := true; //CQ6225 + //Paste1.Enabled := true; //CQ6225 +end; + +procedure TfrmSignOrders.Paste1Click(Sender: TObject); +{ + - Populate 'target' orders of a copy/paste operation with contents of 'source' order +} +var + i: byte; + newRec: TBADxRecord; +begin + if BILLING_AWARE then + begin + if not Assigned(fOrdersSign.CopyBuffer) then //CQ5414 + fOrdersSign.CopyBuffer := TBADxRecord.Create; //CQ5414 + + try + for i := 0 to clstOrders.Count - 1 do + begin + if (fOrdersSign.frmSignOrders.clstOrders.Selected[i]) then + begin + fOrdersSign.targetOrderID := TChangeItem(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i]).ID; + + if fOrdersSign.targetOrderID = fOrdersSign.srcOrderID then //disallow copying an order to itself + Continue + else + begin + fOrdersSign.CopyBuffer.FOrderID := BUFFER_ORDER_ID; + + //*************************************************************** + if Not UBACore.IsOrderBillable(targetOrderID) then + begin + ShowMessage(BA_NA_PASTE_DISALLOWED); + fOrdersSign.targetOrderID := ''; + Continue; + end; + //*************************************************************** + + newRec := TBADxRecord.Create; + with newRec do + begin + FOrderID := fOrdersSign.targetOrderID; + FBADxCode := CopyBuffer.FBADxCode; + FBASecDx1 := CopyBuffer.FBASecDx1; + FBASecDx2 := CopyBuffer.FBASecDx2; + FBASecDx3 := CopyBuffer.FBASecDx3; + end; + + tempDxList.Add(newRec); + + CopyTFCIToTargetOrder( fOrdersSign.targetOrderID, fOrdersSign.chkBoxStatus); + SetCheckBoxStatus( fOrdersSign.targetOrderID); //calls uSignItems.SetSigItems() + end; + end; + end; + except + on EListError do + begin + ShowMessage('EListError in frmSignOrders.Paste1Click()'+#13+'for i := 0 to clstOrders.Count - 1 do'); + raise; + end; + end; + clstOrders.Refresh; //Update grid to show pasted Dx + end; +{ + //CQ6225 + if CopyActive then + begin + Paste1.Enabled := false; + CopyActive := false; + end; + //end CQ6225 +} +end; + +procedure TfrmSignOrders.clstOrdersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +{ + - Open copy/paste popup menu. +} +var + ClientPoint: TPoint; + ScreenPoint: TPoint; +begin + if not BILLING_AWARE then clstOrders.PopupMenu := nil; + + if BILLING_AWARE then + begin + try + if Button = mbRight then //Right-click to open copy/paste popup menu + begin + //CQ3325 + if fOrdersSign.frmSignOrders.clstOrders.Items.Count = 1 then + begin + Copy1.Enabled := false; + Paste1.Enabled := false + end + else + begin + Copy1.Enabled := true; + //Paste1.Enabled := true; //commented out for CQ6225 + end; + //End CQ3325 + + if not frmSignOrders.clstOrders.Selected[clstOrders.ItemIndex] then + (Sender as TCheckListBox).Selected[clstOrders.ItemIndex] := true; + + ClientPoint.X := X; + ClientPoint.Y := Y; + ScreenPoint := clstOrders.ClientToScreen(ClientPoint); + poBACopyPaste.Popup(ScreenPoint.X, ScreenPoint.Y); + end; + except + on EListError do + begin + ShowMessage('EListError in frmSignOrders.clstOrdersMouseDown()'); + raise; + end; + end; + end; +end; + + +procedure TfrmSignOrders.clstOrdersClick(Sender: TObject); +//If grid item is an order-able item, then enable the Diagnosis button +// else disable the Diagnosis button. +var + thisChangeItem: TChangeItem; + i: smallint; + thisOrderList: TStringList; +begin + thisOrderList := TStringList.Create; + + {Begin BillingAware} + if BILLING_AWARE then + begin + + if clstOrders.Items.Count > 1 then + copy1.Enabled := True + else + copy1.Enabled := False; + + for i := 0 to clstOrders.Items.Count - 1 do + begin + if clstOrders.Selected[i] then + begin + thisChangeItem := TChangeItem(clstOrders.Items.Objects[i]); + + //Disallow copying of a grid HEADER item on LEFT MOUSE CLICK + if thisChangeItem = nil then + begin + Copy1.Enabled := false; + buOrdersDiagnosis.Enabled := false; + Exit; + end; + + if (thisChangeItem <> nil) then //Blank row - not an order item + begin + thisOrderList.Clear; + thisOrderList.Add(thisChangeItem.ID); + + if IsAllOrdersNA(thisOrderList) then + begin + Diagnosis1.Enabled := false; + buOrdersDiagnosis.Enabled := false; + end + else + begin + Diagnosis1.Enabled := true; + buOrdersDiagnosis.Enabled := true; + end + end + else + begin + buOrdersDiagnosis.Enabled := false; + Diagnosis1.Enabled := False; + Break; + end; + end; + end; + + if Assigned(thisOrderList) then thisOrderList.Free; + end; +end; + +procedure TfrmSignOrders.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); +var + j: integer; //CQ5054 +begin + + if FOSTFHintWndActive then + begin + FOSTFhintWindow.ReleaseHandle ; + FOSTFHintWndActive := False ; + end; + + case Key of + 67,99: if (ssAlt in Shift) then ShowTreatmentFactorHints(BAFactorsRec.FBAFactorSC,fraCoPay.Label24); //C,c + 86,118: if (ssAlt in Shift) then ShowTreatmentFactorHints(BAFactorsRec.FBAFactorCV,fraCoPay.staticText4); //V,v + 79,111: if (ssAlt in Shift) then ShowTreatmentFactorHints(BAFactorsRec.FBAFactorAO,fraCoPay.Label18); //O,o + 82,114: if (ssAlt in Shift) then ShowTreatmentFactorHints(BAFactorsRec.FBAFactorIR,fraCoPay.Label16); //R,r + 69,101: if (ssAlt in Shift) then ShowTreatmentFactorHints(BAFactorsRec.FBAFactorEC,fraCoPay.Label14); //E,e + 77,109: if (ssAlt in Shift) then ShowTreatmentFactorHints(BAFactorsRec.FBAFactorMST,fraCoPay.Label12); //M,m + 72,104: if (ssAlt in Shift) then ShowTreatmentFactorHints(BAFactorsRec.FBAFactorHNC,fraCoPay.lblHNC2); //H,h + //CQ5054 + 83,115: if (ssAlt in Shift) then + begin + for j := 0 to clstOrders.Items.Count-1 do + clstOrders.Selected[j] := false; + clstOrders.Selected[0] := true; + clstOrders.SetFocus; + end; + //end CQ5054 + end; +end; + +//BILLING AWARE Procedure +procedure TfrmSignOrders.ShowTreatmentFactorHints(var pHintText: string; var pCompName: TORStaticText); // 508 +var + HRect: TRect; + thisRect: TRect; + x,y: integer; + +begin + try + if FOSTFhintWndActive then + begin + FOSTFhintWindow.ReleaseHandle; + FOSTFhintWndActive := False; + end; + except + on E: Exception do + begin + {$ifdef debug}ShowMessage('Unhandled exception in procedure TfrmSignOrders.ShowTreatmentFactorHints()');{$endif} + raise; + end; + end; + + try + FOSTFhintWindow := THintWindow.Create(frmSignOrders); + FOSTFhintWindow.Color := clInfoBk; + GetWindowRect(pCompName.Handle,thisRect); + x := thisRect.Left; + y := thisRect.Top; + hrect := FOSTFhintWindow.CalcHintRect(Screen.Width, pHintText,nil); + hrect.Left := hrect.Left + X; + hrect.Right := hrect.Right + X; + hrect.Top := hrect.Top + Y; + hrect.Bottom := hrect.Bottom + Y; + + if FOSTFHintWndActive then + begin + with fraCoPay do + begin + //Abbreviated captions + Label23.ShowHint := false; + StaticText1.ShowHint := false; + Label17.ShowHint := false; + Label15.ShowHint := false; + Label13.ShowHint := false; + Label11.ShowHint := false; + lblHNC.ShowHint := false; + //Long captions + staticText4.ShowHint := false; + Label17.ShowHint := false; + Label18.ShowHint := false; + Label15.ShowHint := false; + Label16.ShowHint := false; + Label13.ShowHint := false; + Label14.ShowHint := false; + Label11.ShowHint := false; + Label12.ShowHint := false; + lblHNC.ShowHint := false; + lblHNC2.ShowHint := false; + end; + end + else + begin + with fraCoPay do + begin + //Abbreviated captions + Label23.ShowHint := true; + StaticText1.ShowHint := true; + Label17.ShowHint := true; + Label15.ShowHint := true; + Label13.ShowHint := true; + Label11.ShowHint := true; + lblHNC.ShowHint := true; + //Long captions + staticText4.ShowHint := true; + Label17.ShowHint := true; + Label18.ShowHint := true; + Label15.ShowHint := true; + Label16.ShowHint := true; + Label13.ShowHint := true; + Label14.ShowHint := true; + Label11.ShowHint := true; + Label12.ShowHint := true; + lblHNC.ShowHint := true; + lblHNC2.ShowHint := true; + end; + end; + + FOSTFhintWindow.ActivateHint(hrect, pHintText); + FOSTFHintWndActive := True; + except + on E: Exception do + begin + {$ifdef debug}ShowMessage('Unhandled exception in procedure TfrmSignOrders.ShowTreatmentFactorHints()');{$endif} + raise; + end; + end; +end; + +procedure TfrmSignOrders.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); +begin + try + if FOSTFhintWndActive then + begin + FOSTFhintWindow.ReleaseHandle; + FOSTFHintWndActive := False; + Application.ProcessMessages; + end; + except + on E: Exception do + begin + {$ifdef debug}ShowMessage('Unhandled exception in procedure TfrmSignOrders.FormMouseMove()');{$endif} + raise; + end; + end; +end; + +procedure TfrmSignOrders.fraCoPaylblHNCMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); +begin + if FOSTFHintWndActive then + begin + with fraCoPay do + begin + //Abbreviated captions + Label23.ShowHint := false; + StaticText1.ShowHint := false; + Label17.ShowHint := false; + Label15.ShowHint := false; + Label13.ShowHint := false; + Label11.ShowHint := false; + lblHNC.ShowHint := false; + //Long captions + Label24.ShowHint := false; + staticText4.ShowHint := false; + Label17.ShowHint := false; + Label18.ShowHint := false; + Label15.ShowHint := false; + Label16.ShowHint := false; + Label13.ShowHint := false; + Label14.ShowHint := false; + Label11.ShowHint := false; + Label12.ShowHint := false; + lblHNC.ShowHint := false; + lblHNC2.ShowHint := false; + end; + end + else + begin + with fraCoPay do + begin + //Abbreviated captions + Label23.ShowHint := true; + StaticText1.ShowHint := true; + Label17.ShowHint := true; + Label15.ShowHint := true; + Label13.ShowHint := true; + Label11.ShowHint := true; + lblHNC.ShowHint := true; + //Long captions + Label24.ShowHint := true; + staticText4.ShowHint := true; + Label17.ShowHint := true; + Label18.ShowHint := true; + Label15.ShowHint := true; + Label16.ShowHint := true; + Label13.ShowHint := true; + Label14.ShowHint := true; + Label11.ShowHint := true; + Label12.ShowHint := true; + lblHNC.ShowHint := true; + lblHNC2.ShowHint := true; + end; + end; + +end; + +procedure TfrmSignOrders.fraCoPayLabel23Enter(Sender: TObject); +begin + (Sender as TORStaticText).Font.Style := [fsBold]; +end; + +procedure TfrmSignOrders.fraCoPayLabel23Exit(Sender: TObject); +begin + (Sender as TORStaticText).Font.Style := []; +end; + +procedure TfrmSignOrders.SetItemTextToState; +var + i : integer; +begin + //The with statement below would cause access violations on other Delphi machines. + { with clstOrders do + begin } + //Must use fully qualifying path includeing the unit... very wierd! + + if fOrdersSign.frmSignOrders.clstOrders.Count < 1 then Exit; + for i := 0 to fOrdersSign.frmSignOrders.clstOrders.Count-1 do + if fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i] <> nil then //Not a Group Title + begin + if fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i] is TOrder then + if fOrdersSign.frmSignOrders.clstOrders.Checked[i] then + fOrdersSign.frmSignOrders.clstOrders.Items[i] := 'Checked '+TOrder(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i]).Text + else + fOrdersSign.frmSignOrders.clstOrders.Items[i] := 'Not Checked '+TOrder(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[i]).Text; + end; + if fOrdersSign.frmSignOrders.clstOrders.ItemIndex >= 0 then + fOrdersSign.frmSignOrders.clstOrders.Selected[fOrdersSign.frmSignOrders.clstOrders.ItemIndex] := True; +// end; +end; + +procedure TfrmSignOrders.clstOrdersKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if (Key = VK_Space) then + FormatListForScreenReader +end; + +procedure TfrmSignOrders.FormatListForScreenReader; +var + ListStateOn : longbool; + Success: longbool; +begin + //Determine if a screen reader is currently being used. + Success := SystemParametersInfo(SPI_GETSCREENREADER, 0, @ListStateOn,0); + if Success and ListStateOn then + SetItemTextToState; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersTS.dfm b/CPRS-Chart/Orders/fOrdersTS.dfm new file mode 100644 index 0000000..98d4425 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersTS.dfm @@ -0,0 +1,194 @@ +inherited frmOrdersTS: TfrmOrdersTS + Left = 84 + Top = 77 + Width = 464 + Height = 385 + Caption = 'Release Orders' + Constraints.MinHeight = 365 + Constraints.MinWidth = 310 + OnClose = FormClose + OnCreate = FormCreate + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object pnlMiddle: TPanel + Left = 0 + Top = 78 + Width = 456 + Height = 56 + Align = alTop + Constraints.MinHeight = 45 + TabOrder = 0 + object grpChoice: TGroupBox + Left = 1 + Top = 1 + Width = 454 + Height = 54 + Align = alClient + Constraints.MinHeight = 45 + TabOrder = 0 + DesignSize = ( + 454 + 54) + object radReleaseNow: TRadioButton + Left = 20 + Top = 13 + Width = 333 + Height = 17 + BiDiMode = bdRightToLeft + Caption = ' &Release new orders immediately' + Enabled = False + ParentBiDiMode = False + TabOrder = 0 + OnClick = radReleaseNowClick + end + object radDelayed: TRadioButton + Left = 20 + Top = 29 + Width = 329 + Height = 21 + Caption = ' &Delay release of new order(s) until' + TabOrder = 1 + OnClick = radDelayedClick + end + object cmdOK: TButton + Left = 355 + Top = 9 + Width = 75 + Height = 20 + Anchors = [akRight, akBottom] + Caption = 'OK' + Default = True + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 355 + Top = 31 + Width = 75 + Height = 20 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'Cancel' + TabOrder = 3 + OnClick = cmdCancelClick + end + end + end + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 456 + Height = 78 + Align = alTop + Anchors = [akLeft, akTop, akRight, akBottom] + AutoSize = True + BorderStyle = bsSingle + TabOrder = 1 + object lblPtInfo: TLabel + Left = 1 + Top = 1 + Width = 450 + Height = 34 + Align = alTop + Color = clBtnFace + Constraints.MinHeight = 34 + ParentColor = False + Layout = tlCenter + end + object pnldif: TPanel + Left = 1 + Top = 35 + Width = 450 + Height = 38 + Align = alTop + Anchors = [akLeft, akTop, akRight, akBottom] + TabOrder = 0 + object Image1: TImage + Left = 1 + Top = 1 + Width = 24 + Height = 36 + Align = alLeft + AutoSize = True + Enabled = False + Picture.Data = { + 07544269746D61707E010000424D7E0100000000000076000000280000001800 + 000016000000010004000000000008010000C40E0000C40E0000100000000000 + 0000000000000000800000800000008080008000000080008000808000008080 + 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF + FF008000000000000000000000080777777777777777777777700F7777777777 + 7777777777700F88888888888888888887700F88888888888888888887700F88 + 888808888888888887700F88888800888888888887700F8888880B0888888888 + 87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC + CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88 + 0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088 + 87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888 + 8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000 + 00000000000000000008} + Transparent = True + end + object Label1: TLabel + Left = 34 + Top = 4 + Width = 327 + Height = 13 + Caption = + 'Use Admit: if patient is newly admitted to the hospital or nursi' + + 'ng home.' + end + object Label2: TLabel + Left = 34 + Top = 21 + Width = 361 + Height = 13 + Caption = + 'Use Transfer: if inpatient will move from one ward or treating t' + + 'eam to another.' + end + end + end + object Panel1: TPanel + Left = 0 + Top = 134 + Width = 456 + Height = 224 + Align = alClient + TabOrder = 2 + inline fraEvntDelayList: TfraEvntDelayList + Left = 1 + Top = 1 + Width = 454 + Height = 222 + Align = alClient + AutoScroll = False + TabOrder = 0 + Visible = False + inherited pnlDate: TPanel + Left = 349 + Height = 222 + inherited lblEffective: TLabel + Left = 453 + end + inherited orDateBox: TORDateBox + Left = 453 + end + end + inherited pnlList: TPanel + Width = 349 + Height = 222 + inherited lblEvntDelayList: TLabel + Width = 347 + end + inherited mlstEvents: TORListBox + Width = 347 + Height = 186 + OnDblClick = cmdOKClick + end + inherited edtSearch: TCaptionEdit + Width = 347 + end + end + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersTS.pas b/CPRS-Chart/Orders/fOrdersTS.pas new file mode 100644 index 0000000..8bcf1e5 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersTS.pas @@ -0,0 +1,295 @@ +unit fOrdersTS; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORCtrls, ORFn, ExtCtrls, rOrders, ORDtTm, mEvntDelay,uConst; + +type + TfrmOrdersTS = class(TfrmAutoSz) + pnlMiddle: TPanel; + pnlTop: TPanel; + lblPtInfo: TLabel; + grpChoice: TGroupBox; + radReleaseNow: TRadioButton; + radDelayed: TRadioButton; + pnldif: TPanel; + Image1: TImage; + cmdOK: TButton; + cmdCancel: TButton; + Label1: TLabel; + Label2: TLabel; + Panel1: TPanel; + fraEvntDelayList: TfraEvntDelayList; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure radDelayedClick(Sender: TObject); + procedure radReleaseNowClick(Sender: TObject); + procedure fraEvntDelayListcboEvntListChange(Sender: TObject); + procedure UMStillDelay(var message: TMessage); message UM_STILLDELAY; + procedure fraEvntDelayListmlstEventsDblClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure fraEvntDelayListmlstEventsChange(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + OKPressed: Boolean; + FResult : Boolean; + FImmediatelyRelease: boolean; + FCurrSpecialty: string; + F1stClick: Boolean; + end; + +function ShowDelayedEventsTreatingSepecialty(const ARadCaption: string; var AnEvent: TOrderDelayEvent; + var ADlgLst: TStringlist; var ReleaseNow: boolean; AnLimitEvent: Char = #0): Boolean; + +var + frmOrdersTS: TfrmOrdersTS; + +implementation + +uses ucore,fOrders, rMisc; + +{$R *.DFM} + +const + TX_TRANSFER1= 'You selected the Transfer delayed event'; + TX_TRANSFER = 'The release of orders entered ' + + 'will be delayed until the patient is transferred to the ' + + 'following specialty.'; + TX_ADMIT1 = 'You selected the Admit delayed event'; + TX_ADMIT = 'The release of orders entered ' + + 'will be delayed until the patient is admitted to the ' + + 'following specialty.'; + TX_XISTEVT1 = 'Delayed orders already exist for event Delayed '; + TX_XISTEVT2 = #13 + 'Do you want to view those orders?'; + TX_MCHEVT1 = ' is already assigned to '; + TX_MCHEVT2 = #13 + 'Do you still want to write delayed orders?'; + + +function ShowDelayedEventsTreatingSepecialty(const ARadCaption: string; var AnEvent: TOrderDelayEvent; + var ADlgLst: TStringlist; var ReleaseNow: boolean; AnLimitEvent: Char = #0): Boolean; +var + EvtInfo,speCap: string; +begin + frmOrdersTS := TfrmOrdersTS.Create(Application); + frmOrdersTS.FCurrSpecialty := Piece(GetCurrentSpec(Patient.DFN),'^',1); + frmOrdersTS.fraEvntDelayList.UserDefaultEvent := StrToIntDef(GetDefaultEvt(IntToStr(User.DUZ)),0); + SetFormPosition(frmOrdersTS); + //frmOrdersTs.fraEvntDelayList.Top := frmOrdersTS.Height - + Result := frmOrdersTS.FResult; + if Length(ARadCapTion)>0 then + frmOrdersTS.radDelayed.Caption := ARadCaption; + try + ResizeFormToFont(TForm(frmOrdersTS)); + if Length(frmOrdersTS.FCurrSpecialty)>0 then + SpeCap := #13 + 'The current treating specialty is ' + frmOrdersTS.FCurrSpecialty + else + SpeCap := #13 + 'No treating specialty is available.'; + if Patient.Inpatient then + frmOrdersTS.lblPtInfo.Caption := Patient.Name + ' is currently admitted to ' + Encounter.LocationName + SpeCap + else + begin + if (EnCounter.Location > 0) then + frmOrdersTS.lblPtInfo.Caption := Patient.Name + ' is currently on ' + Encounter.LocationName + SpeCap + else + frmOrdersTS.lblPtInfo.Caption := Patient.Name + ' currently is an outpatient.' + SpeCap; + end; + if not (AnLimitEvent in ['A','D','T','M','O']) then + AnLimitEvent := #0; + frmOrdersTs.fraEvntDelayList.EvntLimit := AnLimitEvent; + if AnEvent.EventIFN > 0 then + begin + frmOrdersTS.fraEvntDelayList.DefaultEvent := AnEvent.EventIFN; + frmOrdersTS.radDelayed.Checked := True; + end else + begin + frmOrdersTS.radReleaseNow.Enabled := True; + frmOrdersTS.radReleaseNow.Checked := False; + frmOrdersTS.radDelayed.Checked := False; + end; + frmOrdersTS.radDelayed.Checked := True; + frmOrdersTS.ShowModal; + if frmOrdersTS.FImmediatelyRelease then + begin + AnEvent.EventIFN := 0; + AnEvent.EventName := ''; + AnEvent.Specialty := 0; + AnEvent.Effective := 0; + ReleaseNow := frmOrdersTS.FImmediatelyRelease; + Result := frmOrdersTS.FResult; + end; + if (frmOrdersTS.OKPressed) and (frmOrdersTS.radDelayed.Checked) then + begin + EvtInfo := frmOrdersTS.fraEvntDelayList.mlstEvents.Items[frmOrdersTS.fraEvntDelayList.mlstEvents.ItemIndex]; + AnEvent.EventType := CharAt(Piece(EvtInfo,'^',3),1); + AnEvent.EventIFN := StrToInt64Def(Piece(EvtInfo,'^',1),0); + AnEvent.TheParent := TParentEvent.Create; + if StrToInt64Def(Piece(EvtInfo,'^',13),0) > 0 then + begin + AnEvent.TheParent.Assign(Piece(EvtInfo,'^',13)); + if AnEvent.EventType = #0 then + AnEvent.EventType := AnEvent.TheParent.ParentType; + end; + AnEvent.EventName := frmOrdersTS.fraEvntDelayList.mlstEvents.DisplayText[frmOrdersTS.fraEvntDelayList.mlstEvents.ItemIndex]; + AnEvent.Specialty := 0; + if frmOrdersTS.fraEvntDelayList.orDateBox.Visible then + AnEvent.Effective := frmOrdersTS.fraEvntDelayList.orDateBox.FMDateTime + else + AnEvent.Effective := 0; + ADlgLst.Clear; + if StrToIntDef(AnEvent.TheParent.ParentDlg,0)>0 then + ADlgLst.Add(AnEvent.TheParent.ParentDlg) + else if Length(Piece(EvtInfo,'^',5))>0 then + ADlgLst.Add(Piece(EvtInfo,'^',5)); + if Length(Piece(EvtInfo,'^',6))>0 then + ADlgLst.Add(Piece(EvtInfo,'^',6)+ '^SET'); + Result := frmOrdersTS.FResult; + end; + finally + frmOrdersTS.Release; + frmOrdersTS.FImmediatelyRelease := False; + frmOrdersTS.FCurrSpecialty := ''; + frmOrdersTS.fraEvntDelayList.ResetProperty; + end; +end; + +procedure TfrmOrdersTS.FormCreate(Sender: TObject); +begin + inherited; + if not Patient.Inpatient then + pnldif.Visible := False; + OKPressed := False; + FResult := False; + FImmediatelyRelease := False; + F1stClick := True; + FCurrSpecialty := ''; +end; + +procedure TfrmOrdersTS.cmdOKClick(Sender: TObject); +begin + inherited; + if grpChoice.Tag = 0 then + begin + InfoBox('A release event has not been selected.', 'No Selection Made', MB_OK); + Exit; + end; + if( not (fraEvntDelayList.mlstEvents.ItemIndex >= 0) ) and (radDelayed.Checked) then + begin + InfoBox('A release event must be selected.', 'No Selection Made', MB_OK); + Exit; + end; + if (fraEvntDelayList.mlstEvents.ItemIndex >= 0) and F1stClick then + begin + fraEvntDelayList.CheckMatch; + if fraEvntDelayList.MatchedCancel then + begin + OKPressed := False; + Close; + Exit; + end; + end; + OKPressed := True; + FResult := True; + Close; +end; + +procedure TfrmOrdersTS.cmdCancelClick(Sender: TObject); +begin + inherited; + FResult := False; + Close; +end; + +procedure TfrmOrdersTS.radDelayedClick(Sender: TObject); +begin + inherited; + fraEvntDelayList.Visible := True; + fraEvntDelayList.DisplayEvntDelayList; + grpChoice.Tag := 1; +end; + +procedure TfrmOrdersTS.radReleaseNowClick(Sender: TObject); +begin + inherited; + grpChoice.Tag := 1; + if InfoBox('Would you like to close this window and return to the Orders Tab?', + 'Confirmation', MB_OKCANCEL or MB_ICONQUESTION) = IDOK then + begin + FImmediatelyRelease := True; + FResult := False; + Close; + end + else + begin + fraEvntDelayList.mlstEvents.Items.Clear; + FImmediatelyRelease := False; + radReleaseNow.Checked := False; + radDelayed.Checked := True; + end; +end; + +procedure TfrmOrdersTS.fraEvntDelayListcboEvntListChange(Sender: TObject); +begin + inherited; + fraEvntDelayList.mlstEventsChange(Sender); + F1stClick := False; + if fraEvntDelayList.MatchedCancel then Close +end; + +procedure TfrmOrdersTS.UMStillDelay(var message: TMessage); +begin + inherited; + if grpChoice.Tag = 0 then + begin + InfoBox('A release event has not been selected.', 'No Selection Made', MB_OK); + Exit; + end; + if(not (fraEvntDelayList.mlstEvents.ItemIndex >= 0)) and (radDelayed.Checked) then + begin + InfoBox('A release event must be selected.', 'No Selection Made', MB_OK); + Exit; + end; + OKPressed := True; + FResult := True; + Close; +end; + +procedure TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick(Sender: TObject); +begin + inherited; + if fraEvntDelayList.mlstEvents.ItemID > 0 then + cmdOKClick(Self); +end; + +procedure TfrmOrdersTS.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + SaveUserBounds(Self); + Action := caFree; +end; + +procedure TfrmOrdersTS.fraEvntDelayListmlstEventsChange(Sender: TObject); +begin + inherited; + fraEvntDelayList.mlstEventsChange(Sender); + if fraEvntDelayList.MatchedCancel then + begin + OKPressed := False; + Close; + Exit; + end; +end; + +procedure TfrmOrdersTS.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_RETURN then + cmdOKClick(Self); +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersUnhold.dfm b/CPRS-Chart/Orders/fOrdersUnhold.dfm new file mode 100644 index 0000000..9f28ba2 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersUnhold.dfm @@ -0,0 +1,46 @@ +inherited frmUnholdOrders: TfrmUnholdOrders + Left = 269 + Top = 192 + Height = 270 + Caption = 'Release Orders from Hold' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 222 + Height = 13 + Caption = 'The following orders will be released from hold -' + end + object lstOrders: TCaptionListBox + Left = 8 + Top = 22 + Width = 411 + Height = 176 + ItemHeight = 13 + TabOrder = 0 + Caption = 'The following orders will be released from hold ' + end + object cmdOK: TButton + Left = 267 + Top = 214 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 214 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end +end diff --git a/CPRS-Chart/Orders/fOrdersUnhold.pas b/CPRS-Chart/Orders/fOrdersUnhold.pas new file mode 100644 index 0000000..f583fc6 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersUnhold.pas @@ -0,0 +1,78 @@ +unit fOrdersUnhold; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls; + +type + TfrmUnholdOrders = class(TfrmAutoSz) + Label1: TLabel; + lstOrders: TCaptionListBox; + cmdOK: TButton; + cmdCancel: TButton; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + private + OKPressed: Boolean; + end; + +function ExecuteUnholdOrders(SelectedList: TList): Boolean; + +implementation + +{$R *.DFM} + +uses rOrders, uConst, uCore; + +function ExecuteUnholdOrders(SelectedList: TList): Boolean; +var + frmUnholdOrders: TfrmUnholdOrders; + OriginalID: string; + i: Integer; +begin + Result := False; + if SelectedList.Count = 0 then Exit; + frmUnholdOrders := TfrmUnholdOrders.Create(Application); + try + ResizeFormToFont(TForm(frmUnholdOrders)); + with SelectedList do for i := 0 to Count - 1 do + frmUnholdOrders.lstOrders.Items.Add(TOrder(Items[i]).Text); + frmUnholdOrders.ShowModal; + if frmUnholdOrders.OKPressed then + begin + with SelectedList do for i := 0 to Count - 1 do + begin + OriginalID := TOrder(Items[i]).ID; + ReleaseOrderHold(TOrder(Items[i])); + end; + Result := True; + end + else with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + finally + frmUnholdOrders.Release; + end; +end; + +procedure TfrmUnholdOrders.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmUnholdOrders.cmdOKClick(Sender: TObject); +begin + inherited; + OKPressed := True; + Close; +end; + +procedure TfrmUnholdOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +end. diff --git a/CPRS-Chart/Orders/fOrdersVerify.dfm b/CPRS-Chart/Orders/fOrdersVerify.dfm new file mode 100644 index 0000000..afa9bcf --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersVerify.dfm @@ -0,0 +1,89 @@ +inherited frmVerifyOrders: TfrmVerifyOrders + Left = 341 + Top = 182 + Height = 367 + Caption = 'Verify Orders' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 427 + Height = 293 + Align = alClient + Constraints.MinHeight = 260 + TabOrder = 1 + OnResize = Panel1Resize + DesignSize = ( + 427 + 293) + object lblVerify: TLabel + Left = 1 + Top = 1 + Width = 425 + Height = 13 + Align = alTop + Caption = 'The following orders will be marked as verified -' + end + object lstOrders: TCaptionListBox + Left = 4 + Top = 16 + Width = 419 + Height = 274 + Style = lbOwnerDrawVariable + Anchors = [akLeft, akTop, akRight, akBottom] + ItemHeight = 13 + ScrollWidth = 409 + TabOrder = 0 + OnDrawItem = lstOrdersDrawItem + OnMeasureItem = lstOrdersMeasureItem + Caption = 'The following orders will be released from hold ' + end + end + object Panel2: TPanel + Left = 0 + Top = 293 + Width = 427 + Height = 47 + Align = alBottom + TabOrder = 0 + object lblESCode: TLabel + Left = 8 + Top = 4 + Width = 123 + Height = 13 + Caption = 'Electronic Signature Code' + end + object txtESCode: TCaptionEdit + Left = 8 + Top = 20 + Width = 137 + Height = 21 + PasswordChar = '*' + TabOrder = 0 + Caption = 'Electronic Signature Code' + end + object cmdOK: TButton + Left = 267 + Top = 20 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 347 + Top = 20 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 3 + OnClick = cmdCancelClick + end + end +end diff --git a/CPRS-Chart/Orders/fOrdersVerify.pas b/CPRS-Chart/Orders/fOrdersVerify.pas new file mode 100644 index 0000000..6b51094 --- /dev/null +++ b/CPRS-Chart/Orders/fOrdersVerify.pas @@ -0,0 +1,167 @@ +unit fOrdersVerify; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls, ExtCtrls; + +type + TfrmVerifyOrders = class(TfrmAutoSz) + Panel1: TPanel; + lblVerify: TLabel; + lstOrders: TCaptionListBox; + Panel2: TPanel; + lblESCode: TLabel; + txtESCode: TCaptionEdit; + cmdOK: TButton; + cmdCancel: TButton; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer; + var AHeight: Integer); + procedure lstOrdersDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure Panel1Resize(Sender: TObject); + private + OKPressed: Boolean; + ESCode: string; + end; + +function ExecuteVerifyOrders(SelectedList: TList; ChartReview: Boolean): Boolean; + +implementation + +{$R *.DFM} + +uses Hash, rCore, rOrders; + +const + TX_CHART_REVIEW = 'The following orders will be marked as reviewed -'; + +function ExecuteVerifyOrders(SelectedList: TList; ChartReview: Boolean): Boolean; +var + frmVerifyOrders: TfrmVerifyOrders; + i: Integer; +begin + Result := False; + if SelectedList.Count = 0 then Exit; + frmVerifyOrders := TfrmVerifyOrders.Create(Application); + try + ResizeFormToFont(TForm(frmVerifyOrders)); + if ChartReview then + begin + frmVerifyOrders.lblVerify.Caption := TX_CHART_REVIEW; + frmVerifyOrders.Caption := 'Chart Review'; + end; + with SelectedList do for i := 0 to Count - 1 do + frmVerifyOrders.lstOrders.Items.Add(TOrder(Items[i]).Text); + frmVerifyOrders.ShowModal; + if frmVerifyOrders.OKPressed then + begin + with SelectedList do for i := 0 to Count - 1 do + begin + if ChartReview + then VerifyOrderChartReview(TOrder(Items[i]), frmVerifyOrders.ESCode) + else VerifyOrder(TOrder(Items[i]), frmVerifyOrders.ESCode); + end; + Result := True; + end; + finally + frmVerifyOrders.Release; + with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); + end; +end; + +procedure TfrmVerifyOrders.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmVerifyOrders.cmdOKClick(Sender: TObject); +const + TX_NO_CODE = 'An electronic signature code must be entered to verify orders.'; + TC_NO_CODE = 'Electronic Signature Code Required'; + TX_BAD_CODE = 'The electronic signature code entered is not valid.'; + TC_BAD_CODE = 'Invalid Electronic Signature Code'; +begin + inherited; + if Length(txtESCode.Text) = 0 then + begin + InfoBox(TX_NO_CODE, TC_NO_CODE, MB_OK); + Exit; + end; + if not ValidESCode(txtESCode.Text) then + begin + InfoBox(TX_BAD_CODE, TC_BAD_CODE, MB_OK); + txtESCode.SetFocus; + txtESCode.SelectAll; + Exit; + end; + ESCode := Encrypt(txtESCode.Text); + OKPressed := True; + Close; +end; + +procedure TfrmVerifyOrders.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + + + +procedure TfrmVerifyOrders.lstOrdersMeasureItem(Control: TWinControl; + Index: Integer; var AHeight: Integer); +var + x: string; + ARect: TRect; +begin + inherited; + with lstOrders do if Index < Items.Count then + begin + ARect := ItemRect(Index); + Canvas.FillRect(ARect); + x := FilteredString(Items[Index]); + AHeight := WrappedTextHeightByFont(Canvas, Font, x, ARect); + //if AHeight > 255 then AHeight := 255; + if AHeight < 13 then AHeight := 15; + end; +end; + +procedure TfrmVerifyOrders.lstOrdersDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + x: string; + ARect: TRect; + SaveColor: TColor; +begin + inherited; + with lstOrders do + begin + ARect := Rect; + ARect.Left := ARect.Left + 2; + Canvas.FillRect(ARect); + Canvas.Pen.Color := clSilver; + SaveColor := Canvas.Brush.Color; + Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); + Canvas.LineTo(ARect.Right, ARect.Bottom - 1); + if Index < Items.Count then + begin + x := FilteredString(Items[Index]); + DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK); + Canvas.Brush.Color := SaveColor; + ARect.Right := ARect.Right + 4; + end; + end; +end; + +procedure TfrmVerifyOrders.Panel1Resize(Sender: TObject); +begin + inherited; + lstOrders.Invalidate; +end; + +end. diff --git a/CPRS-Chart/Orders/fOtherSchedule.dfm b/CPRS-Chart/Orders/fOtherSchedule.dfm new file mode 100644 index 0000000..b4526ba --- /dev/null +++ b/CPRS-Chart/Orders/fOtherSchedule.dfm @@ -0,0 +1,316 @@ +object frmOtherSchedule: TfrmOtherSchedule + Left = 544 + Top = 262 + AutoScroll = False + Caption = 'Order with schedule '#39'OTHER'#39 + ClientHeight = 362 + ClientWidth = 369 + Color = clBtnFace + Constraints.MinHeight = 70 + Constraints.MinWidth = 280 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poOwnerFormCenter + OnClose = FormClose + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Splitter1: TSplitter + Left = 0 + Top = 82 + Width = 369 + Height = 8 + Cursor = crVSplit + Align = alTop + Beveled = True + MinSize = 1 + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 369 + Height = 82 + Align = alTop + BorderWidth = 3 + TabOrder = 0 + object Image1: TImage + Left = 4 + Top = 4 + Width = 48 + Height = 74 + Align = alLeft + AutoSize = True + Transparent = True + end + object memMessage: TMemo + Left = 52 + Top = 4 + Width = 313 + Height = 74 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 0 + end + end + object Panel3: TPanel + Left = 0 + Top = 90 + Width = 369 + Height = 272 + Align = alClient + AutoSize = True + TabOrder = 1 + object GroupBox1: TGroupBox + Left = 1 + Top = 1 + Width = 176 + Height = 202 + Align = alLeft + Caption = 'Select Days of Week' + TabOrder = 0 + object cbo7: TCheckBox + Tag = 1 + Left = 86 + Top = 21 + Width = 60 + Height = 12 + Caption = 'SUN' + TabOrder = 0 + OnClick = cbo7Click + end + object cbo1: TCheckBox + Tag = 2 + Left = 85 + Top = 48 + Width = 60 + Height = 12 + Caption = 'MON' + TabOrder = 1 + OnClick = cbo1Click + end + object cbo2: TCheckBox + Tag = 3 + Left = 85 + Top = 75 + Width = 60 + Height = 12 + Caption = 'TUE' + TabOrder = 2 + OnClick = cbo2Click + end + object cbo3: TCheckBox + Tag = 4 + Left = 85 + Top = 102 + Width = 60 + Height = 12 + Caption = 'WED' + TabOrder = 3 + OnClick = cbo3Click + end + object cbo4: TCheckBox + Tag = 5 + Left = 85 + Top = 129 + Width = 60 + Height = 12 + Caption = 'THU' + TabOrder = 4 + OnClick = cbo4Click + end + object cbo5: TCheckBox + Tag = 6 + Left = 85 + Top = 156 + Width = 60 + Height = 12 + Caption = 'FRI' + TabOrder = 5 + OnClick = cbo5Click + end + object cbo6: TCheckBox + Tag = 7 + Left = 85 + Top = 183 + Width = 60 + Height = 12 + Caption = 'SAT' + TabOrder = 6 + OnClick = cbo6Click + end + object Button1: TButton + Left = 8 + Top = 64 + Width = 60 + Height = 19 + Caption = 'Everyday' + TabOrder = 7 + OnClick = Button1Click + end + end + object GroupBox2: TGroupBox + Left = 180 + Top = 1 + Width = 188 + Height = 202 + Align = alRight + Caption = 'Set Administration Time' + TabOrder = 1 + object lstHour: TListBox + Left = 8 + Top = 16 + Width = 49 + Height = 182 + ItemHeight = 13 + Items.Strings = ( + ' 0' + ' 1' + ' 2' + ' 3' + ' 4' + ' 5' + ' 6' + ' 7' + ' 8' + ' 9' + '10' + '11' + '12 --' + '13' + '14' + '15' + '16' + '17' + '18' + '19' + '20' + '21' + '22' + '23') + TabOrder = 0 + OnClick = lstHourClick + end + object lstMinute: TListBox + Left = 60 + Top = 16 + Width = 49 + Height = 182 + ItemHeight = 13 + Items.Strings = ( + ':00' + ':05' + ':10' + ':15' + ':20' + ':25' + ':30' + ':35' + ':40' + ':45' + ':50' + ':55') + TabOrder = 1 + OnKeyDown = lstMinuteKeyDown + OnMouseUp = lstMinuteMouseUp + end + object btnRemove: TButton + Left = 118 + Top = 94 + Width = 60 + Height = 19 + Hint = 'Remove the selected time from the Day-of-Week schedule.' + Caption = 'Remove' + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = btnRemoveClick + end + object btnAdd: TButton + Left = 118 + Top = 64 + Width = 60 + Height = 19 + Hint = 'Add the selected time to the Day-of-Week schedule' + Caption = 'Add' + ParentShowHint = False + ShowHint = True + TabOrder = 3 + OnClick = btnAddClick + end + end + object Panel4: TPanel + Left = 1 + Top = 203 + Width = 367 + Height = 68 + Align = alBottom + TabOrder = 2 + DesignSize = ( + 367 + 68) + object Label1: TLabel + Left = 6 + Top = 16 + Width = 51 + Height = 13 + Caption = 'Schedule :' + end + object btn0k1: TButton + Left = 204 + Top = 43 + Width = 75 + Height = 20 + Anchors = [akRight, akBottom] + Caption = 'OK' + TabOrder = 1 + OnClick = btn0k1Click + end + object btnCancel: TButton + Left = 285 + Top = 42 + Width = 75 + Height = 20 + Anchors = [akRight, akBottom] + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 2 + OnClick = btnCancelClick + end + object txtSchedule: TEdit + Left = 64 + Top = 8 + Width = 296 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Color = clInfoBk + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + OnChange = txtScheduleChange + end + object btnReset: TButton + Left = 8 + Top = 43 + Width = 75 + Height = 20 + Caption = 'Reset' + TabOrder = 3 + OnClick = btnResetClick + end + end + end +end diff --git a/CPRS-Chart/Orders/fOtherSchedule.pas b/CPRS-Chart/Orders/fOtherSchedule.pas new file mode 100644 index 0000000..8d9452a --- /dev/null +++ b/CPRS-Chart/Orders/fOtherSchedule.pas @@ -0,0 +1,561 @@ +unit fOtherSchedule; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons, fAutoSz, rMisc; + +const + NSS_TXT = 'This order will not become active until a valid schedule is used.'; + +type + TfrmOtherSchedule = class(TfrmAutoSz) + Panel1: TPanel; + Image1: TImage; + Panel3: TPanel; + GroupBox1: TGroupBox; + cbo7: TCheckBox; + cbo1: TCheckBox; + cbo2: TCheckBox; + cbo3: TCheckBox; + cbo4: TCheckBox; + cbo5: TCheckBox; + cbo6: TCheckBox; + GroupBox2: TGroupBox; + lstHour: TListBox; + lstMinute: TListBox; + Panel4: TPanel; + btn0k1: TButton; + btnCancel: TButton; + txtSchedule: TEdit; + Label1: TLabel; + btnReset: TButton; + btnRemove: TButton; + memMessage: TMemo; + Splitter1: TSplitter; + btnAdd: TButton; + Button1: TButton; + procedure FormCreate(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure btn0k1Click(Sender: TObject); + procedure cbo7Click(Sender: TObject); + procedure cbo1Click(Sender: TObject); + procedure cbo2Click(Sender: TObject); + procedure cbo3Click(Sender: TObject); + procedure cbo4Click(Sender: TObject); + procedure cbo5Click(Sender: TObject); + procedure cbo6Click(Sender: TObject); + procedure btnAddClick(Sender: TObject); + procedure btnResetClick(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure lstHourClick(Sender: TObject); + procedure txtScheduleChange(Sender: TObject); + procedure lstMinuteMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure lstMinuteKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure Button1Click(Sender: TObject); + private + FDaySchedule: array [1..7] of string; + FTimeSchedule: TStringList; + FOtherSchedule: String; + FFromCheckBox: boolean; + FFromEditBox: boolean; + function GetSiteMessage: string; + procedure SetDaySchedule(Sender: TObject); + procedure SetTimeSchedule; + procedure UpdateOnFreeTextInput; + function CheckDay(ADayStr: string): string; + + public + end; + +function ShowOtherSchedule(var ASchedule: string): boolean; + +implementation + +uses ORFn, ORNet, rOrders; +{$R *.dfm} + +function ShowOtherSchedule(var ASchedule: string): boolean; +var + frmOtherSchedule: TfrmOtherSchedule; +begin + Result := False; + try + frmOtherSchedule := TfrmOtherSchedule.Create(Application); + ResizeFormToFont(TForm(frmOtherSchedule)); + SetFormPosition(frmOtherSchedule); + if frmOtherSchedule.ShowModal = mrOK then + begin + ASchedule := UpperCase(frmOtherSchedule.FOtherSchedule); + Result := True; + end; + except + ShowMessage('Error happen when building other schedule'); + end; +end; + + +procedure TfrmOtherSchedule.FormCreate(Sender: TObject); +var + i: integer; + nssMsg: string; +begin + FFromCheckBox := False; + FFromEditBox := False; + image1.Picture.Icon.Handle := LoadIcon(0, IDI_WARNING); + for i := 1 to 7 do + FDaySchedule[i] := ''; + FTimeSchedule := TStringlist.Create; + FOtherSchedule := ''; + nssMsg := GetSiteMessage; + if Length(nssMsg)< 1 then + nssMsg := NSS_TXT; + memMessage.Lines.Add(nssMsg); +end; + +procedure TfrmOtherSchedule.btnCancelClick(Sender: TObject); +begin + modalResult := mrCancel; +end; + +procedure TfrmOtherSchedule.btn0k1Click(Sender: TObject); +begin + if (cbo1.Checked = false) and (cbo2.Checked = false) and (cbo3.Checked = false) and (cbo4.Checked = false) and (cbo5.Checked = false) and + (cbo6.Checked = false) and (cbo7.Checked = false) then + begin + ShowMessage('A day of week must be selected!'); + Exit; + end; + if not IsValidSchStr(FOtherSchedule) then + begin + ShowMessage('The schedule you entered is invalid!'); + Exit; + end; + modalResult := mrOK; +end; + +procedure TfrmOtherSchedule.SetDaySchedule(Sender: TObject); +var + i : integer; + TimePart, DayPart: string; +begin + with (Sender as TCheckBox) do + begin + try + if TCheckBox(Sender).Checked then + FDaySchedule[TCheckBox(Sender).Tag] := Copy(TCheckBox(Sender).Caption,0,2) + else + FDaySchedule[TCheckBox(Sender).Tag] := ''; + except + ShowMessage('Error happened when building day schedule.'); + Exit; + end; + end; + + TimePart := ''; + DayPart := ''; + for i := 0 to FTimeSchedule.Count - 1 do + begin + if i = 0 then TimePart := TimePart + FTimeSchedule[i] + else TimePart := TimePart + '-' + FTimeSchedule[i]; + end; + for i := Low(FDaySchedule) to High(FDaySchedule) do + begin + if Length(FDaySchedule[i])>0 then + begin + if DayPart = '' then DayPart := FDaySchedule[i] + else DayPart := DayPart + '-' + FDaySchedule[i]; + end; + end; + if Length(TimePart) > 0 then + begin + if Length(DayPart) > 0 then + FOtherSchedule := DayPart + '@' + TimePart + else if Length(DayPart) = 0 then + FOtherSchedule := TimePart; + end + else FOtherSchedule := DayPart; + txtSchedule.Text := FOtherSchedule; +end; + +procedure TfrmOtherSchedule.SetTimeSchedule; +var + i : integer; + TimePart, DayPart,APRN,ASearchTxt: string; +begin + TimePart := ''; + DayPart := ''; + APRN := ''; + ASearchTxt := UpperCase(txtSchedule.Text); + if StrPos(PChar(ASearchTxt),PChar('PRN')) <> nil then APRN := ' PRN'; //hds8326 retain PRN free text if data time entered + for i := 0 to FTimeSchedule.Count - 1 do + begin + if i = 0 then TimePart := TimePart + FTimeSchedule[i] + else TimePart := TimePart + '-' + FTimeSchedule[i]; + end; + for i := Low(FDaySchedule) to High(FDaySchedule) do + begin + if Length(FDaySchedule[i])>0 then + begin + if DayPart = '' then DayPart := FDaySchedule[i] + else DayPart := DayPart + '-' + FDaySchedule[i]; + end; + end; + if Length(DayPart) > 0 then + begin + if Length(TimePart) > 0 then + FOtherSchedule := DayPart + '@' + TimePart + else + FOtherSchedule := DayPart; + end + else FOtherSchedule := TimePart; + if Length(APRN) > 0 then FOtherSchedule := FOtherSchedule + APRN; //hds8326 retain PRN free text if data time entered + txtSchedule.Text := FOtherSchedule; +end; + +procedure TfrmOtherSchedule.cbo7Click(Sender: TObject); +begin + FFromCheckBox := True; + if not FFromEditBox then + SetDaySchedule(Sender); + FFromCheckBox := False; +end; + +procedure TfrmOtherSchedule.cbo1Click(Sender: TObject); +begin + FFromCheckBox := True; + if not FFromEditBox then + SetDaySchedule(Sender); + FFromCheckBox := False; +end; + +procedure TfrmOtherSchedule.cbo2Click(Sender: TObject); +begin + FFromCheckBox := True; + if not FFromEditBox then + SetDaySchedule(Sender); + FFromCheckBox := False; +end; + +procedure TfrmOtherSchedule.cbo3Click(Sender: TObject); +begin + FFromCheckBox := True; + if not FFromEditBox then + SetDaySchedule(Sender); + FFromCheckBox := False; +end; + +procedure TfrmOtherSchedule.cbo4Click(Sender: TObject); +begin + FFromCheckBox := True; + if not FFromEditBox then + SetDaySchedule(Sender); + FFromCheckBox := False; +end; + +procedure TfrmOtherSchedule.cbo5Click(Sender: TObject); +begin + FFromCheckBox := True; + if not FFromEditBox then + SetDaySchedule(Sender); + FFromCheckBox := False; +end; + +procedure TfrmOtherSchedule.cbo6Click(Sender: TObject); +begin + FFromCheckBox := True; + if not FFromEditBox then + SetDaySchedule(Sender); + FFromCheckBox := False; +end; + +procedure TfrmOtherSchedule.btnAddClick(Sender: TObject); +var + hour, min: string; +begin + if lstHour.ItemIndex < 0 then exit; + hour := lstHour.Items[lstHour.ItemIndex]; + hour := Trim(Copy(hour,1,3)); + if length(Trim(hour)) = 1 then + hour := '0' + Trim(hour); + if lstMinute.ItemIndex >= 0 then + begin + min := lstMinute.Items[lstMinute.itemIndex]; + min := Copy(min,2,2); + end; + if min = '' then min := '00'; + if (hour='00') and (min='00') then hour := '24'; + if FTimeSchedule.IndexOf(hour)>=0 then + begin + FTimeSchedule[FTimeSchedule.IndexOf(hour)] := hour + min; + end; + if FTimeSchedule.IndexOf(hour+min) < 0 then + FTimeSchedule.Add(hour+min); + FTimeSchedule.Sort; + SetTimeSchedule; +end; + +procedure TfrmOtherSchedule.btnResetClick(Sender: TObject); +var + i : integer; +begin + cbo1.Checked := false; + cbo2.Checked := false; + cbo3.Checked:= false; + cbo4.Checked := false; + cbo5.Checked := false; + cbo6.Checked := false; + cbo7.Checked := false; + lstHour.ItemIndex := -1; + lstMinute.ItemIndex := -1; + for i := low(FDaySchedule) to high(FDaySchedule) do + FDaySchedule[i] := ''; + FTimeSchedule.Clear; + FOtherSchedule := ''; + txtSchedule.Text := ''; +end; + +procedure TfrmOtherSchedule.btnRemoveClick(Sender: TObject); +var + hour, min: string; + idx : integer; +begin + FFromCheckBox := True; + if lstHour.ItemIndex >= 0 then + begin + hour := lstHour.Items[lstHour.ItemIndex]; + hour := Trim(Copy(hour,1,3)); + if length(hour) = 1 then + hour := '0' + Trim(hour); + end; + if lstMinute.ItemIndex >= 0 then + begin + min := lstMinute.Items[lstMinute.itemIndex]; + min := Copy(min,2,2); + end; + if min = '' then min := '00'; + if (hour='00') and (min='00') then hour := '24'; + idx := FTimeSchedule.IndexOf(hour+min); + if idx > -1 then + FTimeSchedule.Delete(idx); + FTimeSchedule.Sort; + SetTimeSchedule; + FFromCheckBox := False; +end; + +function TfrmOtherSchedule.GetSiteMessage: string; +var + i: integer; + rstStr: string; +begin + rstStr := ''; + CallV('ORWNSS NSSMSG',[nil]); + for i := 0 to RPCBrokerV.Results.Count - 1 do + rstStr := rstStr + RPCBrokerV.Results[i]; + Result := rstStr; +end; + +procedure TfrmOtherSchedule.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + try + inherited; + SaveUserBounds(Self); + Action := caFree; + except + Action := caFree; + end; +end; + +procedure TfrmOtherSchedule.UpdateOnFreeTextInput; +var + dayStr,timeStr: string; + dayList: TStringList; + i,Code,cnt : integer; + OrigSch: string; + + procedure updateCheckbox(aDList: TStringList); + var + idx: integer; + x: string; + begin + for idx := aDList.Count - 1 downto 0 do + begin + // cq hds8326 PRN entered manually split PRN from DOW to retain last DOW + x := UpperCase(aDList.Strings[idx]); // added to properly process DOW when followed by a space "PRN". + if Piece(x,' ',2) = 'PRN' then + aDLIst.Strings[idx] := Piece(x,' ',1); + // cq hds8326 + if ((CheckDay(aDList[idx]) = 'SUN') or (CheckDay(aDList[idx]) = 'SU')) then + begin + cbo7.Checked := true; + aDList[idx] := 'SU'; + FDaySchedule[cbo7.tag] := 'SU'; + end + else if ((CheckDay(aDList[idx]) = 'MON') or (CheckDay(aDList[idx]) = 'MO')) then + begin + cbo1.Checked := true; + aDList[idx] := 'MO'; + FDaySchedule[cbo1.tag] := 'MO'; + end + else if ((CheckDay(aDList[idx]) = 'TUE') or (CheckDay(aDList[idx]) = 'TU')) then + begin + cbo2.Checked := true; + aDList[idx] := 'TU'; + FDaySchedule[cbo2.tag] := 'TU'; + end + else if ((CheckDay(aDList[idx]) = 'WED') or (CheckDay(aDList[idx]) = 'WE')) then + begin + cbo3.Checked := true; + aDList[idx] := 'WE'; + FDaySchedule[cbo3.tag] := 'WE'; + end + else if ((CheckDay(aDList[idx]) = 'THU') or (CheckDay(aDList[idx]) = 'TH')) then + begin + cbo4.Checked := true; + aDList[idx] := 'TH'; + FDaySchedule[cbo4.tag] := 'TH'; + end + else if ((CheckDay(aDList[idx]) = 'FRI') or (CheckDay(aDList[idx]) = 'FR')) then + begin + cbo5.Checked := true; + aDList[idx] := 'FR'; + FDaySchedule[cbo5.tag] := 'FR'; + end + else if ((CheckDay(aDList[idx]) = 'SAT') or (CheckDay(aDList[idx]) = 'SA')) then + begin + cbo6.Checked := true; + aDList[idx] := 'SA'; + FDaySchedule[cbo6.tag] := 'SA'; + end + else aDList.Delete(idx); + end; + end; + +begin + inherited; + dayStr := ''; + timeStr := ''; + if Length (txtSchedule.Text) = 0 then + begin + FOtherSchedule := ''; + btnReset.Click; + Exit; + end; + OrigSch := txtSchedule.Text; + dayList := TStringList.Create; + if Pos('@',txtSchedule.Text)>0 then + begin + dayStr := Trim(Piece(txtSchedule.Text,'@',1)); + timeStr := Trim(Piece(txtSchedule.Text,'@',2)); + end else + begin + Val(Piece(txtSchedule.Text,'-',1), i, Code); + if i = 0 then begin end; // just to make compiler not give hint + if Code <> 0 then dayStr := Trim(txtSchedule.Text) + else timeStr := Trim(txtSchedule.Text); + end; + FTimeSchedule.Clear; + for cnt := Low(FDaySchedule) to High(FDaySchedule) do + FDaySchedule[cnt] := ''; + PiecesToList(timeStr, '-', FTimeSchedule); + if Length(dayStr)>0 then + begin + PiecesToList(dayStr, '-', dayList); + cbo7.Checked := False; + cbo1.Checked := False; + cbo2.Checked := False; + cbo3.Checked := False; + cbo4.Checked := False; + cbo5.Checked := False; + cbo6.Checked := False; + updateCheckbox(dayList); + end; + + FOtherSchedule := txtSchedule.Text; +end; + +procedure TfrmOtherSchedule.lstHourClick(Sender: TObject); +begin + inherited; + if lstMinute.ItemIndex = -1 then lstMinute.ItemIndex :=0; +end; + +procedure TfrmOtherSchedule.txtScheduleChange(Sender: TObject); +begin + inherited; + FFromEditBox := True; + if not FFromCheckBox then + UpdateOnFreeTextInput; + FFromEditBox := False; +end; + +function TfrmOtherSchedule.CheckDay(ADayStr: string): string; +var + lng: integer; +begin + lng := Length(ADayStr); + if lng <2 then + begin + result := ''; + Exit; + end; + if (lng < 7) and ( UpperCase(aDayStr)= Copy('SUNDAY',1,lng)) then + result := 'SU' + else if (lng < 7) and (UpperCase(aDayStr)= Copy('MONDAY',1,lng)) then + result := 'MO' + else if (lng < 8) and (UpperCase(aDayStr)= Copy('TUESDAY',1,lng)) then + result := 'TU' + else if (lng < 10) and (UpperCase(aDayStr)= Copy('WEDNESDAY',1,lng)) then + result := 'WE' + else if (lng < 9) and (UpperCase(aDayStr)= Copy('THURSDAY',1,lng)) then + result := 'TH' + else if (lng < 7) and (UpperCase(aDayStr)= Copy('FRIDAY',1,lng)) then + result := 'FR' + else if (lng < 9) and (UpperCase(aDayStr)= Copy('SATURDAY',1,lng)) then + result := 'SA' + else + result := ''; +end; + +procedure TfrmOtherSchedule.lstMinuteMouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + inherited; + FFromCheckBox := True; + if lstHour.ItemIndex < 0 then Exit; + //btnAddClick(Self); + FFromCheckBox := False; +end; + +procedure TfrmOtherSchedule.lstMinuteKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + inherited; + if (Key=VK_RETURN) then + begin + FFromCheckBox := True; + if lstHour.ItemIndex < 0 then Exit; + //btnAddClick(Self); + FFromCheckBox := False; + end; +end; + +procedure TfrmOtherSchedule.Button1Click(Sender: TObject); +begin + inherited; + cbo1.Checked := true; + cbo2.Checked := true; + cbo3.Checked := true; + cbo4.Checked := true; + cbo5.Checked := true; + cbo6.Checked := true; + cbo7.Checked := true; +end; + +end. + diff --git a/CPRS-Chart/Orders/rODAllergy.pas b/CPRS-Chart/Orders/rODAllergy.pas new file mode 100644 index 0000000..92cad33 --- /dev/null +++ b/CPRS-Chart/Orders/rODAllergy.pas @@ -0,0 +1,365 @@ +unit rODAllergy; + +{$O-} + +interface + +uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs, rMisc ; + +type + TAllergyRec = record + Changed: boolean; + IEN: Integer; + CausativeAgent: string; + AllergyType: string; + NatureOfReaction: string; + SignsSymptoms: TStringList; + Originator: int64; + OriginatorName: string; + Originated: TFMDateTime; + Comments: TStringList; + IDBandMarked: TStringList; + ChartMarked: TStringList; + Verifier: int64; + VerifierName: string; + Verified: boolean; + VerifiedDateTime: TFMDateTime; + EnteredInError: boolean; + DateEnteredInError: TFMDateTime; + UserEnteringInError: int64; + ErrorComments: TStringList; + Observed_Historical: string; + Observations: TStringList; + ReactionDate: TFMDateTime; + Severity: string; + NoKnownAllergies: Boolean; + NewComments: TStringList; + end; + + TARTPatchInstalled = record + PatchInstalled: boolean; + PatchChecked: boolean; + end; + + TGMRASiteParams = record + MarkIDBandFlag: Boolean; + OriginatorCommentsRequired: Boolean; + ErrorCommentsEnabled: Boolean; + ParamsSet: Boolean; + end; + + TARTClinUser = record + IsClinUser: boolean; + ReasonFailed: string; + AccessChecked: boolean; + end; + +function SearchForAllergies(StringToMatch: string): TStrings; +function SubsetofSymptoms(const StartFrom: string; Direction: Integer): TStrings; +function ODForAllergies: TStrings; +function GetCWADInfo(const DFN: string): string; +function SaveAllergy(EditRec: TAllergyRec): string; +function LoadAllergyForEdit(AllergyIEN: integer): TAllergyRec; +function SendARTBulletin(AFreeTextEntry: string; AComment: TStringList): string; +function RPCEnterNKAForPatient: string; + +// site parameter functions +function ARTPatchInstalled: boolean; +function GetSiteParams: TGMRASiteParams; +function MarkIDBand: boolean; +function RequireOriginatorComments: boolean; +function EnableErrorComments: boolean; +function IsARTClinicalUser(var AMessage: string): boolean; + +implementation + +const + NO_YES: array[Boolean] of string = ('NO', 'YES'); + +var + uARTPatchInstalled: TARTPatchInstalled; + uGMRASiteParams: TGMRASiteParams; + uARTClinUser: TARTClinUser; + +function ODForAllergies: TStrings; +begin + CallV('ORWDAL32 DEF',[nil]); + Result := RPCBrokerV.Results; +end; + +function SearchForAllergies(StringToMatch: string): TStrings; +begin + CallV('ORWDAL32 ALLERGY MATCH',[StringToMatch]); + Result := RPCBrokerV.Results; +end; + +function SubsetofSymptoms(const StartFrom: string; Direction: Integer): TStrings; +begin + Callv('ORWDAL32 SYMPTOMS',[StartFrom, Direction]); + Result := RPCBrokerV.Results; +end; + +function GetCWADInfo(const DFN: string): string; +begin + Result := sCallV('ORWPT CWAD',[DFN]); +end; + +function LoadAllergyForEdit(AllergyIEN: integer): TAllergyRec; +var + Dest: TStringList; + EditRec: TAllergyRec; + x: string; +begin + Dest := TStringList.Create; + try + tCallV(Dest, 'ORWDAL32 LOAD FOR EDIT', [AllergyIEN]) ; + if Piece(RPCBrokerV.Results[0], U, 1) <> '-1' then + begin + with EditRec do + begin + Changed := False; + IEN := AllergyIEN; + CausativeAgent := ExtractDefault(Dest, 'CAUSATIVE AGENT'); + AllergyType := ExtractDefault(Dest, 'ALLERGY TYPE'); + NatureOfReaction := ExtractDefault(Dest, 'NATURE OF REACTION'); + SignsSymptoms := TStringList.Create; + ExtractItems(SignsSymptoms, Dest, 'SIGN/SYMPTOMS'); + MixedCaseByPiece(SignsSymptoms, U, 4); + x := ExtractDefault(Dest, 'ORIGINATOR'); + Originator := StrToInt64Def(Piece(x, U, 1), 0); + OriginatorName := Piece(x, U, 2); + Originated := StrToFMDateTime(ExtractDefault(Dest, 'ORIGINATED')); + Comments := TStringList.Create; + ExtractText(Comments, Dest, 'COMMENTS'); + IDBandMarked := TStringList.Create; + ExtractItems(IDBandMarked, Dest, 'ID BAND MARKED'); + ChartMarked := TStringList.Create; + ExtractItems(ChartMarked, Dest, 'CHART MARKED'); + //x := ExtractDefault(Dest, 'VERIFIER'); + //Verifier := StrToInt64Def(Piece(x, U, 1), 0); + //VerifierName := Piece(x, U, 2); + //x := ExtractDefault(Dest, 'VERIFIED'); + //Verified := Piece(x, U, 1) = 'YES'; + //if Verified then + // VerifiedDateTime := StrToFMDateTime(Piece(x, U, 2)); + x := ExtractDefault(Dest, 'ENTERED IN ERROR'); + EnteredInError := Piece(x, U, 1) = 'YES'; + DateEnteredInError := StrToFloatDef(Piece(x, U, 2), 0); + UserEnteringInError := StrToInt64Def(Piece(x, U, 3), 0); + ErrorComments := TStringList.Create; + Observed_Historical := ExtractDefault(Dest, 'OBS/HIST'); + Observations := TStringList.Create; + ExtractText(Observations, Dest, 'OBSERVATIONS'); + //ReactionDate := StrToFMDateTime(Piece(ExtractDefault(Dest, 'REACTDT'), U, 3)); + //Severity := Piece(ExtractDefault(Dest, 'SEVERITY'), U, 3); + NoKnownAllergies := (StrToIntDef(Piece(ExtractDefault(Dest, 'NKA'), U, 3), 0) > 0); + NewComments := TStringList.Create; + end; + end + else + EditRec.IEN := -1; + Result := EditRec; + finally + Dest.Free; + end; +end; + +function SaveAllergy(EditRec: TAllergyRec): string; +var + i: integer; +begin + with RPCBrokerV, EditRec do + begin + ClearParameters := True; + RemoteProcedure := 'ORWDAL32 SAVE ALLERGY'; + Param[0].PType := literal; + Param[0].Value := IntToStr(IEN); + Param[1].PType := literal; + Param[1].Value := Patient.DFN; + Param[2].PType := list; + with Param[2] do + begin + if NoKnownAllergies then + Mult['"GMRANKA"'] := NO_YES[NoKnownAllergies]; + if CausativeAgent <> '' then + Mult['"GMRAGNT"'] := CausativeAgent; + if AllergyType <> '' then + Mult['"GMRATYPE"'] := AllergyType ; + if NatureOfReaction <> '' then + Mult['"GMRANATR"'] := NatureOfReaction ; + if Originator > 0 then + Mult['"GMRAORIG"'] := IntToStr(Originator); + if Originated > 0 then + Mult['"GMRAORDT"'] := FloatToStr(Originated); + with SignsSymptoms do if Count > 0 then + begin + Mult['"GMRASYMP",0'] := IntToStr(Count); + for i := 0 to Count - 1 do + Mult['"GMRASYMP",' + IntToStr(i+1)] := Pieces(Strings[i], U, 1, 5); + end; + //if Verified then + // Mult['"GMRAVER"'] := NO_YES[Verified]; + //if Verifier > 0 then + // Mult['"GMRAVERF"'] := IntToStr(Verifier); + //if VerifiedDateTime > 0 then + // Mult['"GMRAVERD"'] := FloatToStr(VerifiedDateTime); + if EnteredInError then + begin + Mult['"GMRAERR"'] := NO_YES[EnteredInError]; + Mult['"GMRAERRBY"'] := IntToStr(UserEnteringInError); + Mult['"GMRAERRDT"'] := FloatToStr(DateEnteredInError); + with ErrorComments do if Count > 0 then + begin + Mult['"GMRAERRCMTS",0'] := IntToStr(Count); + for i := 0 to Count - 1 do + Mult['"GMRAERRCMTS",' + IntToStr(i+1)] := Strings[i]; + end; + end ; + with ChartMarked do if Count > 0 then + begin + Mult['"GMRACHT",0'] := IntToStr(Count); + for i := 0 to Count - 1 do + Mult['"GMRACHT",' + IntToStr(i+1)] := Strings[i]; + end; + with IDBandMarked do if Count > 0 then + begin + Mult['"GMRAIDBN",0'] := IntToStr(Count); + for i := 0 to Count - 1 do + Mult['"GMRAIDBN",' + IntToStr(i+1)] := Strings[i]; + end; + if Length(Observed_Historical) > 0 then + Mult['"GMRAOBHX"'] := Observed_Historical; + if ReactionDate > 0 then + Mult['"GMRARDT"'] := FloatToStr(ReactionDate); + if Length(Severity) > 0 then + Mult['"GMRASEVR"'] := Severity; + with NewComments do if Count > 0 then + begin + Mult['"GMRACMTS",0'] := IntToStr(Count); + for i := 0 to Count - 1 do + Mult['"GMRACMTS",' + IntToStr(i+1)] := Strings[i]; + end; + end; + CallBroker; + Result := Results[0]; + end; +end; + +function RPCEnterNKAForPatient: string; +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWDAL32 SAVE ALLERGY'; + Param[0].PType := literal; + Param[0].Value := '0'; + Param[1].PType := literal; + Param[1].Value := Patient.DFN; + Param[2].PType := list; + with Param[2] do + Mult['"GMRANKA"'] := 'YES'; + CallBroker; + Result := Results[0]; + end; +end; + +function SendARTBulletin(AFreeTextEntry: string; AComment: TStringList): string; +var + i: integer; +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWDAL32 SEND BULLETIN'; + Param[0].PType := literal; + Param[0].Value := User.DUZ; + Param[1].PType := literal; + Param[1].Value := Patient.DFN; + Param[2].PType := literal; + Param[2].Value := AFreeTextEntry; + if AComment.Count > 0 then with Param[3] do + begin + PType := list; + for i := 0 to AComment.Count - 1 do + Mult[IntToStr(Succ(i)) + ',0'] := AComment[i]; + Mult['0'] := '^^' + IntToStr(AComment.Count); + end; + CallBroker; + Result := Results[0]; + end; +end; + +// Site parameter functions + +function ARTPatchInstalled: boolean; +begin + with uARTPatchInstalled do + if not PatchChecked then + begin + PatchInstalled := ServerHasPatch('GMRA*4.0*21'); + PatchChecked := True; + end; + Result := uARTPatchInstalled.PatchInstalled; +end; + +function GetSiteParams: TGMRASiteParams; +var + x: string; +begin + with uGMRASiteParams do + if not ParamsSet then + begin + x := sCallV('ORWDAL32 SITE PARAMS', [nil]); + MarkIDBandFlag := (Piece(x, U, 5) <> '0'); + OriginatorCommentsRequired := (Piece(x, U, 4) = '1'); + ErrorCommentsEnabled := (Piece(x, U, 11) = '1'); + ParamsSet := True; + end; + Result := uGMRASiteParams; +end; + +function MarkIDBand: boolean; +begin + Result := GetSiteParams.MarkIDBandFlag; +end; + +function RequireOriginatorComments: boolean; +begin + Result := GetSiteParams.OriginatorCommentsRequired; +end; + +function EnableErrorComments: boolean; +begin + Result := GetSiteParams.ErrorCommentsEnabled; +end; + +(*function IsARTClinicalUser(var AMessage: string): boolean; +const + TX_NO_AUTH = 'You are not authorized to perform this action.' + CRLF + + 'Either the ORES or ORELSE key is required.'; +begin + Result := (User.UserClass > UC_CLERK); // User has ORES or ORELSE key + if not Result then AMessage := TX_NO_AUTH else AMessage := ''; +end;*) + +function IsARTClinicalUser(var AMessage: string): boolean; +const + TX_NO_AUTH = 'You are not authorized to perform this action.' + CRLF; +var + x: string; +begin + with uARTClinUser do + begin + if not AccessChecked then + begin + x := sCallV('ORWDAL32 CLINUSER',[nil]); + IsClinUser := (Piece(x, U, 1) = '1'); + if not IsClinUser then ReasonFailed := TX_NO_AUTH + Piece(x, U, 2) else ReasonFailed := ''; + AccessChecked := True; + end; + Result := IsClinUser; + AMessage := ReasonFailed ; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/rODBase.pas b/CPRS-Chart/Orders/rODBase.pas new file mode 100644 index 0000000..810ca9f --- /dev/null +++ b/CPRS-Chart/Orders/rODBase.pas @@ -0,0 +1,866 @@ +unit rODBase; + +interface + +uses SysUtils, Windows, Classes, ORNet, ORFn, uCore, uConst, rOrders; + +type + TPrompt = class + ID: string; + IEN: Integer; + Sequence: Double; + FmtCode: string; + Omit: string; + Leading: string; + Trailing: string; + NewLine: Boolean; + WrapWP: Boolean; + Children: string; + IsChild: Boolean; + end; + + TResponse = class + PromptIEN: Integer; + PromptID: string; + Instance: Integer; + IValue: string; + EValue: string; + end; + + TDialogItem = class + ID: string; + Required: Boolean; + Hidden: Boolean; + Prompt: string; + DataType: Char; + Domain: string; + EDefault: string; + IDefault: string; + HelpText: string; + CrossRef: string; + ScreenRef: string; + end; + + TDialogNames = record + Internal: string; + Display: string; + BaseIEN: Integer; + BaseName: string; + end; + + TConstructOrder = record + DialogName: string; + LeadText: string; + TrailText: string; + DGroup: Integer; + OrderItem: Integer; + DelayEvent: Char; + PTEventPtr: String; // ptr to #100.2 + EventPtr: String; // ptr to #100.5 + Specialty: Integer; + Effective: TFMDateTime; + LogTime: TFMDateTime; + OCList: TStringList; + DigSig: string; + ResponseList: TList; + IsIMODialog: boolean; //imo + IsEventDefaultOR: Integer; + end; + + TPFSSActive = record + PFSSActive: boolean; + PFSSChecked: boolean; + end; + +{ General Calls } +function AskAnotherOrder(ADialog: Integer): Boolean; +function DisplayGroupByName(const AName: string): Integer; +function DisplayGroupForDialog(const DialogName: string): Integer; +procedure IdentifyDialog(var DialogNames: TDialogNames; ADialog: Integer); +procedure LoadDialogDefinition(Dest: TList; const DialogName: string); +procedure LoadOrderPrompting(Dest: TList; ADialog: Integer); +//procedure LoadResponses(Dest: TList; const OrderID: string); +procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean); +procedure PutNewOrder(var AnOrder: TOrder; ConstructOrder: TConstructOrder; OrderSource: string); +//procedure PutNewOrderAuto(var AnOrder: TOrder; ADialog: Integer); // no longer used +function OIMessage(IEN: Integer): string; +function OrderMenuStyle: Integer; +function ResolveScreenRef(const ARef: string): string; +function SubsetOfEntries(const StartFrom: string; Direction: Integer; + const XRef, GblRef, ScreenRef: string): TStrings; +function SubSetOfOrderItems(const StartFrom: string; Direction: Integer; + const XRef: string): TStrings; +function GetDefaultCopay(AnOrderID: string): String; +procedure SetDefaultCoPayToNewOrder(AnOrderID, CoPayInfo:string); +procedure ValidateNumericStr(const x, Dom: string; var ErrMsg: string); +function IsPFSSActive: boolean; + +{ Quick Order Calls } +//function DisplayNameForOD(const InternalName: string): string; +function GetQuickName(const CRC: string): string; +procedure LoadQuickListForOD(Dest: TStrings; DGroup: Integer); +procedure SaveQuickListForOD(Src: TStrings; DGroup: Integer); +//procedure PutQuickName(DialogIEN: Integer; const DisplayName: string); +procedure PutQuickOrder(var NewIEN: Integer; const CRC, DisplayName: string; DGroup: Integer; + ResponseList: TList); + +{ Medication Calls } +function AmountsForIVFluid(AnIEN: Integer; FluidType: Char): string; +procedure AppendMedRoutes(Dest: TStrings); +procedure CheckAuthForMeds(var x: string); +function DispenseMessage(AnIEN: Integer): string; +procedure LookupRoute(const AName: string; var ID, Abbreviation: string); +function MedIsSupply(AnIEN: Integer): Boolean; +function QuantityMessage(AnIEN: Integer): string; +function RequiresCopay(DispenseDrug: Integer): Boolean; +procedure LoadFormularyAlt(AList: TStringList; AnIEN: Integer; PSType: Char); +function MedTypeIsIV(AnIEN: Integer): Boolean; +function ODForMedIn: TStrings; +function OIForMedIn(AnIEN: Integer): TStrings; +function ODForIVFluids: TStrings; +function ODForMedOut: TStrings; +function OIForMedOut(AnIEN: Integer): TStrings; +function RatedDisabilities: string; +//function ValidIVRate(const x: string): Boolean; +procedure ValidateIVRate(var x: string); +function ValidSchedule(const x: string; PSType: Char = 'I'): Integer; +function ValidQuantity(const x: string): Boolean; + +{ Vitals Calls } +function ODForVitals: TStrings; + +implementation + +uses TRPCB, uOrders, uODBase; + +var + uLastDispenseIEN: Integer; + uLastDispenseMsg: string; + uLastQuantityMsg: string; + uMedRoutes: TStringList; + uPFSSActive: TPFSSActive; + +{ Common Internal Calls } + +procedure SetupORDIALOG(AParam: TParamRecord; ResponseList: TList; IsIV: boolean = False); +const + MAX_STR_LEN = 74; +var + i,j,ALine,odIdx,piIdx : Integer; + Subs, x, ODtxt, thePI: string; + WPStrings: TStringList; + IVDuration, IVDurVal: string; +begin + piIdx := 0; + odIdx := 0; + IVDuration := ''; + IVDurVal := ''; + AParam.PType := list; + for j := 0 to ResponseList.Count - 1 do + begin + if TResponse(ResponseList.Items[j]).PromptID = 'SIG' then + begin + ODtxt := TResponse(ResponseList.Items[j]).EValue; + odIdx := j; + end; + if TResponse(ResponseList.Items[j]).PromptID = 'PI' then + thePI := TResponse(ResponseList.Items[j]).EValue; + if Length(Trim(thePI)) > 0 then + piIdx := Pos(thePI, ODtxt); + if piIdx > 0 then + begin + Delete(ODtxt,piIdx,Length(thePI)); + TResponse(ResponseList.Items[odIdx]).EValue := ODtxt; + end; + if (IsIV and (TResponse(ResponseList.Items[j]).PromptID = 'DAYS')) then + begin + IVDuration := TResponse(ResponseList.Items[j]).EValue; + if (Length(IVDuration) > 1) then + begin + if (Pos('TOTAL',upperCase(IVDuration))>0) or (Pos('FOR',upperCase(IVDuration))>0) then continue; + if (Pos('H',upperCase(IVDuration))>0) then + begin + IVDurVal := Copy(IVDuration,1,length(IVDuration)-1); + TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + 'hours'; + end + else if (Pos('D',upperCase(IVDuration))>0) then + begin + IVDurVal := Copy(IVDuration,1,length(IVDuration)-1); + TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + 'days'; + end + else if ((Pos('ML',upperCase(IVDuration))>0) or (Pos('CC',upperCase(IVDuration))>0)) then + begin + IVDurVal := Copy(IVDuration,1,length(IVDuration)-2); + TResponse(ResponseList.Items[j]).IValue := 'with total volume ' + IVDurVal + 'ml'; + end + else if (Pos('L',upperCase(IVDuration))>0) then + begin + IVDurVal := Copy(IVDuration,0,length(IVDuration)-1); + TResponse(ResponseList.Items[j]).IValue := 'with total volume ' + IVDurVal + 'L'; + end; + end; + end; + end; + + with AParam, ResponseList do for i := 0 to Count - 1 do + begin + with TResponse(Items[i]) do + begin + Subs := IntToStr(PromptIEN) + ',' + IntToStr(Instance); + if IValue = TX_WPTYPE then + begin + WPStrings := TStringList.Create; + try + WPStrings.Text := EValue; + LimitStringLength(WPStrings, MAX_STR_LEN); + x := 'ORDIALOG("WP",' + Subs + ')'; + Mult[Subs] := x; + for ALine := 0 to WPStrings.Count - 1 do + begin + x := '"WP",' + Subs + ',' + IntToStr(ALine+1) + ',0'; + Mult[x] := WPStrings[ALine]; + end; {for} + finally + WPStrings.Free; + end; {try} + end + else Mult[Subs] := IValue; + end; {with TResponse} + end; {with AParam} +end; + +{ Quick Order Calls } + +//function DisplayNameForOD(const InternalName: string): string; +//begin +// Result := sCallV('ORWDXQ DLGNAME', [InternalName]); +//end; + +function GetQuickName(const CRC: string): string; +begin + Result := sCallV('ORWDXQ GETQNAM', [CRC]); +end; + +procedure LoadQuickListForOD(Dest: TStrings; DGroup: Integer); +begin + CallV('ORWDXQ GETQLST', [DGroup]); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure SaveQuickListForOD(Src: TStrings; DGroup: Integer); +begin + CallV('ORWDXQ PUTQLST', [DGroup, Src]); + // ignore return value for now +end; + +//procedure PutQuickName(DialogIEN: Integer; const DisplayName: string); +//begin +// CallV('ORWDXQ PUTQNAM', [DialogIEN, DisplayName]); +// // ignore return value for now +//end; + +procedure PutQuickOrder(var NewIEN: Integer; const CRC, DisplayName: string; DGroup: Integer; + ResponseList: TList); +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWDXQ DLGSAVE'; + Param[0].PType := literal; + Param[0].Value := CRC; + Param[1].PType := literal; + Param[1].Value := DisplayName; + Param[2].PType := literal; + Param[2].Value := IntToStr(DGroup); + SetupORDIALOG(Param[3], ResponseList); + CallBroker; + if Results.Count = 0 then Exit; // error creating order + NewIEN := StrToIntDef(Results[0], 0); + end; +end; + +{ General Calls } + +function AskAnotherOrder(ADialog: Integer): Boolean; +begin + Result := sCallV('ORWDX AGAIN', [ADialog]) = '1'; +end; + +function DisplayGroupByName(const AName: string): Integer; +begin + Result := StrToIntDef(sCallV('ORWDX DGNM', [AName]), 0); +end; + +function DisplayGroupForDialog(const DialogName: string): Integer; +begin + Result := StrToIntDef(sCallV('ORWDX DGRP', [DialogName]),0); +end; + +procedure IdentifyDialog(var DialogNames: TDialogNames; ADialog: Integer); +var + x: string; +begin + x := sCallV('ORWDXM DLGNAME', [ADialog]); + with DialogNames do + begin + Internal := Piece(x, U, 1); + Display := Piece(x, U, 2); + BaseIEN := StrToIntDef(Piece(x, U, 3), 0); + BaseName := Piece(x, U, 4); + end; +end; + +procedure LoadDialogDefinition(Dest: TList; const DialogName: string); +{ loads a list of TPrompt records + Pieces: PromptID[1]^PromptIEN[2]^FmtSeq[3]^Fmt[4]^Omit[5]^Lead[6]^Trail[7]^NwLn[8]^Wrap[9]^Children[10]^IsChild[11] } +var + i: Integer; + APrompt: TPrompt; +begin + CallV('ORWDX DLGDEF', [DialogName]); + with RPCBrokerV do for i := 0 to Results.Count - 1 do + begin + APrompt := TPrompt.Create; + with APrompt do + begin + ID := Piece(Results[i], U, 1); + IEN := StrToIntDef(Piece(Results[i], U, 2), 0); + if Length(Piece(Results[i], U, 3)) > 0 + then Sequence := StrToFloat(Piece(Results[i], U, 3)) + else Sequence := 0; + FmtCode := Piece(Results[i], U, 4); + Omit := Piece(Results[i], U, 5); + Leading := Piece(Results[i], U, 6); + Trailing := Piece(Results[i], U, 7); + NewLine := Piece(Results[i], U, 8) = '1'; + WrapWP := Piece(Results[i], U, 9) = '1'; + Children := Piece(Results[i], U, 10); + IsChild := Piece(Results[i], U, 11) = '1'; + end; + Dest.Add(APrompt); + end; +end; + +procedure LoadOrderPrompting(Dest: TList; ADialog: Integer); +// ID^REQ^HID^PROMPT^TYPE^DOMAIN^DEFAULT^IDFLT^HELP +var + i: Integer; + DialogItem: TDialogItem; +begin + CallV('ORWDXM PROMPTS', [ADialog]); + DialogItem := nil; + with RPCBrokerV do for i := 0 to Results.Count - 1 do + begin + if CharAt(Results[i], 1) = '~' then + begin + DialogItem := TDialogItem.Create; // create a new dialog item + with DialogItem do + begin + Results[i] := Copy(Results[i], 2, Length(Results[i])); + ID := Piece(Results[i], U, 1); + Required := Piece(Results[i], U, 2) = '1'; + Hidden := Piece(Results[i], U, 3) = '1'; + Prompt := Piece(Results[i], U, 4); + DataType := CharAt(Piece(Results[i], U, 5), 1); + Domain := Piece(Results[i], U, 6); + EDefault := Piece(Results[i], U, 7); + IDefault := Piece(Results[i], U, 8); + HelpText := Piece(Results[i], U, 9); + CrossRef := Piece(Results[i], U, 10); + ScreenRef := Piece(Results[i], U, 11); + if Hidden then DataType := 'H'; // if hidden, use 'Hidden' type + end; + Dest.Add(DialogItem); + end; + if (CharAt(Results[i], 1) = 't') and (DialogItem <> nil) then // use last DialogItem + with DialogItem do EDefault := EDefault + Copy(Results[i], 2, Length(Results[i])) + CRLF; + end; +end; + +procedure ExtractToResponses(Dest: TList; var HasObjects: boolean); +{ load a list with TResponse records, assumes source strings are in RPCBrokerV.Results } +var + i: Integer; + AResponse: TResponse; + WPContainsObjects, TxContainsObjects: boolean; + TempBroker: TStrings; +begin + i := 0; + HasObjects := FALSE; + TempBroker := TStringlist.Create; + TempBroker.Assign(RPCBrokerV.Results); + try + with TempBroker do while i < Count do + begin + if CharAt(Strings[i], 1) = '~' then + begin + AResponse := TResponse.Create; + with AResponse do + begin + PromptIEN := StrToIntDef(Piece(Copy(Strings[i], 2, 255), U, 1), 0); + Instance := StrToIntDef(Piece(Strings[i], U, 2), 0); + PromptID := Piece(Strings[i], U, 3); + Inc(i); + while (i < Count) and (CharAt(Strings[i], 1) <> '~') do + begin + if CharAt(Strings[i], 1) = 'i' then IValue := Copy(Strings[i], 2, 255); + if CharAt(Strings[i], 1) = 'e' then EValue := Copy(Strings[i], 2, 255); + if CharAt(Strings[i], 1) = 't' then + begin + if Length(EValue) > 0 then EValue := EValue + CRLF; + EValue := EValue + Copy(Strings[i], 2, 255); + IValue := TX_WPTYPE; // signals that this is a word processing field + end; + Inc(i); + end; {while i} + if IValue <> TX_WPTYPE then ExpandOrderObjects(IValue, TxContainsObjects); + ExpandOrderObjects(EValue, WPContainsObjects); + HasObjects := HasObjects or WPContainsObjects or TxContainsObjects; + Dest.Add(AResponse); + end; {with AResponse} + end; {if CharAt} + end; {With RPCBrokerV} + finally + TempBroker.Free; + end; +end; + +procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean); +begin + CallV('ORWDX LOADRSP', [OrderID]); + ExtractToResponses(Dest, HasObjects); +end; + +procedure PutNewOrder(var AnOrder: TOrder; ConstructOrder: TConstructOrder; OrderSource: string); +var + i: Integer; + x, y, z: string; +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWDX SAVE'; + Param[0].PType := literal; + Param[0].Value := Patient.DFN; //*DFN* + Param[1].PType := literal; + Param[1].Value := IntToStr(Encounter.Provider); + Param[2].PType := literal; + (*if loc > 0 then Param[2].Value := IntToStr(Loc) + else Param[2].Value := IntToStr(Encounter.Location);*) + Param[2].Value := IntToStr(Encounter.Location); + Param[3].PType := literal; + Param[3].Value := ConstructOrder.DialogName; + Param[4].PType := literal; + Param[4].Value := IntToStr(ConstructOrder.DGroup); + Param[5].PType := literal; + Param[5].Value := IntToStr(ConstructOrder.OrderItem); + Param[6].PType := literal; + Param[6].Value := AnOrder.EditOf; // null if new order, otherwise ORIFN of original + if (ConstructOrder.DGroup = IVDisp) then + SetupORDIALOG(Param[7], ConstructOrder.ResponseList, True) + else + SetupORDIALOG(Param[7], ConstructOrder.ResponseList); + if Length(ConstructOrder.LeadText) > 0 + then Param[7].Mult['"ORLEAD"'] := ConstructOrder.LeadText; + if Length(ConstructOrder.TrailText) > 0 + then Param[7].Mult['"ORTRAIL"'] := ConstructOrder.TrailText; + Param[7].Mult['"ORCHECK"'] := IntToStr(ConstructOrder.OCList.Count); + with ConstructOrder do for i := 0 to OCList.Count - 1 do + begin + // put quotes around everything to prevent broker from choking + y := '"ORCHECK","' + Piece(OCList[i], U, 1) + '","' + Piece(OCList[i], U, 3) + + '","' + IntToStr(i+1) + '"'; + Param[7].Mult[y] := Pieces(OCList[i], U, 2, 4); + end; + if ConstructOrder.DelayEvent in ['A','D','T','M','O'] then + Param[7].Mult['"OREVENT"'] := ConstructOrder.PTEventPtr; + if ConstructOrder.LogTime > 0 + then Param[7].Mult['"ORSLOG"'] := FloatToStr(ConstructOrder.LogTime); + Param[7].Mult['"ORTS"'] := IntToStr(Patient.Specialty); // pass in treating specialty for ORTS + Param[8].PType := literal; + Param[8].Value := ConstructOrder.DigSig; + if Constructorder.IsIMODialog then + begin + Param[9].PType := literal; //IMO + Param[9].Value := FloatToStr(Encounter.DateTime); + end else + begin + Param[9].PType := literal; //IMO + Param[9].Value := ''; + end; + Param[10].PType := literal; + Param[10].Value := OrderSource; + Param[11].PType := literal; + Param[11].Value := IntToStr(Constructorder.IsEventDefaultOR); + + CallBroker; + if Results.Count = 0 then Exit; // error creating order + x := Results[0]; + Results.Delete(0); + y := ''; + + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + y := y + Copy(Results[0], 2, Length(Results[0])) + CRLF; + Results.Delete(0); + end; + if Length(y) > 0 then y := Copy(y, 1, Length(y) - 2); // take off last CRLF + z := ''; + if (Results.Count > 0) and (Results[0] = '|') then + begin + Results.Delete(0); + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + z := z + Copy(Results[0], 2, Length(Results[0])); + Results.Delete(0); + end; + end; + SetOrderFields(AnOrder, x, y, z); + end; +end; + +{ no longer used - +procedure PutNewOrderAuto(var AnOrder: TOrder; ADialog: Integer); +var + i: Integer; + y: string; +begin + CallV('ORWDXM AUTOACK', [Patient.DFN, Encounter.Provider, Encounter.Location, ADialog]); + with RPCBrokerV do if Results.Count > 0 then + begin + y := ''; + for i := 1 to Results.Count - 1 do + y := y + Copy(Results[i], 2, Length(Results[i])) + CRLF; + if Length(y) > 0 then y := Copy(y, 1, Length(y) - 2); // take off last CRLF + SetOrderFields(AnOrder, Results[0], y); + end; +end; +} + +function OIMessage(IEN: Integer): string; +begin + CallV('ORWDX MSG', [IEN]); + with RPCBrokerV.Results do SetString(Result, GetText, Length(Text)); +end; + +function OrderMenuStyle: Integer; +begin + Result := StrToIntDef(sCallV('ORWDXM MSTYLE', [nil]), 0); +end; + +function ResolveScreenRef(const ARef: string): string; +begin + Result := sCallV('ORWDXM RSCRN', [ARef]); +end; + +function SubSetOfOrderItems(const StartFrom: string; Direction: Integer; + const XRef: string): TStrings; +{ returns a pointer to a list of orderable items matching an S.xxx cross reference (for use in + a long list box) - The return value is a pointer to RPCBrokerV.Results, so the data must + be used BEFORE the next broker call! } +begin + CallV('ORWDX ORDITM', [StartFrom, Direction, XRef]); + Result := RPCBrokerV.Results; +end; + +function GetDefaultCopay(AnOrderID: string): String; +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWDPS4 CPLST'; + Param[0].PType := literal; + Param[0].Value := Patient.DFN; + Param[1].PType := list; + Param[1].Mult['1'] := AnOrderID; + end; + CallBroker; + if RPCBrokerV.Results.Count > 0 then + Result := RPCBrokerV.Results[0] + else + Result := ''; +end; + +procedure SetDefaultCoPayToNewOrder(AnOrderID, CoPayInfo:string); +var + temp,CPExems: string; + CoPayValue: array [1..7] of Char; + i: integer; +begin + // SC AO IR EC MST HNC CV + CoPayValue[1] := 'N'; + CoPayValue[2] := 'N'; + CoPayValue[3] := 'N'; + CoPayValue[4] := 'N'; + CoPayValue[5] := 'N'; + CoPayValue[6] := 'N'; + CoPayValue[7] := 'N'; + temp := Pieces(CoPayInfo,'^',2,6); + i := 1; + while Length(Piece(temp,'^',i))>0 do + begin + if Piece(Piece(temp,'^',i),';',1) = 'SC' then + begin + if Piece( Piece(temp,'^',i),';',2) = '1' then + CoPayValue[1] := 'C' + else + CopayValue[1] := 'U'; + end; + if Piece(Piece(temp,'^',i),';',1) = 'AO' then + begin + if Piece( Piece(temp,'^',i),';',2) = '1' then + CoPayValue[2] := 'C' + else + CopayValue[2] := 'U'; + end; + if Piece(Piece(temp,'^',i),';',1) = 'IR' then + begin + if Piece( Piece(temp,'^',i),';',2) = '1' then + CoPayValue[3] := 'C' + else + CopayValue[3] := 'U'; + end; + if Piece(Piece(temp,'^',i),';',1) = 'EC' then + begin + if Piece( Piece(temp,'^',i),';',2) = '1' then + CoPayValue[4] := 'C' + else + CopayValue[4] := 'U'; + end; + if Piece(Piece(temp,'^',i),';',1) = 'MST' then + begin + if Piece( Piece(temp,'^',i),';',2) = '1' then + CoPayValue[5] := 'C' + else + CopayValue[5] := 'U'; + end; + if Piece(Piece(temp,'^',i),';',1) = 'HNC' then + begin + if Piece( Piece(temp,'^',i),';',2) = '1' then + CoPayValue[6] := 'C' + else + CopayValue[6] := 'U'; + end; + if Piece(Piece(temp,'^',i),';',1) = 'CV' then + begin + if Piece( Piece(temp,'^',i),';',2) = '1' then + CoPayValue[7] := 'C' + else + CopayValue[7] := 'U'; + end; + i := i + 1; + end; + CPExems := CoPayValue[1] + CoPayValue[2] + CoPayValue[3] + CoPayValue[4] + + CoPayValue[5] + CoPayValue[6] + CoPayValue[7]; + CPExems := AnOrderId + '^' + CPExems; + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWDPS4 CPINFO'; + Param[0].PType := list; + Param[0].Mult['1'] := CPExems; + CallBroker; + end; +end; + +function SubsetOfEntries(const StartFrom: string; Direction: Integer; + const XRef, GblRef, ScreenRef: string): TStrings; +{ returns a pointer to a list of file entries (for use in a long list box) - + The return value is a pointer to RPCBrokerV.Results, so the data must + be used BEFORE the next broker call! } +begin + CallV('ORWDOR LKSCRN', [StartFrom, Direction, XRef, GblRef, ScreenRef]); + Result := RPCBrokerV.Results; +end; + +procedure ValidateNumericStr(const x, Dom: string; var ErrMsg: string); +begin + ErrMsg := sCallV('ORWDOR VALNUM', [x, Dom]); + if ErrMsg = '0' then ErrMsg := '' else ErrMsg := Piece(ErrMsg, U, 2); +end; + +function IsPFSSActive: boolean; +begin + with uPFSSActive do + if not PFSSChecked then + begin + PFSSActive := (sCallV('ORWPFSS IS PFSS ACTIVE?', [nil]) = '1'); + PFSSChecked := True; + end; + Result := uPFSSActive.PFSSActive +end; + +{ Medication Calls } + +procedure AppendMedRoutes(Dest: TStrings); +var + i: Integer; + x: string; +begin + if uMedRoutes = nil then + begin + CallV('ORWDPS32 ALLROUTE', [nil]); + with RPCBrokerV do + begin + uMedRoutes := TStringList.Create; + uMedRoutes.Assign(Results); + for i := 0 to Results.Count - 1 do if Length(Piece(Results[i], U, 3)) > 0 then + begin + x := Piece(Results[i], U, 1) + U + Piece(Results[i], U, 3) + + ' (' + Piece(Results[i], U, 2) + ')' + U + Piece(Results[i], U, 3); + uMedRoutes.Add(x); + end; {if Length} + SortByPiece(uMedRoutes, U, 2); + end; {with RPCBrokerV} + end; {if uMedRoutes} + Dest.AddStrings(uMedRoutes); +end; + +procedure CheckAuthForMeds(var x: string); +begin + x := Piece(sCallV('ORWDPS32 AUTH', [Encounter.Provider]), U, 2); +end; + +function DispenseMessage(AnIEN: Integer): string; +var + x: string; +begin + if AnIEN = uLastDispenseIEN then Result := uLastDispenseMsg else + begin + x := sCallV('ORWDPS32 DRUGMSG', [AnIEN]); + uLastDispenseIEN := AnIEN; + uLastDispenseMsg := Piece(x, U, 1); + uLastQuantityMsg := Piece(x, U, 2); + Result := uLastDispenseMsg; + end; +end; + +function QuantityMessage(AnIEN: Integer): string; +var + x: string; +begin + if AnIEN = uLastDispenseIEN then Result := uLastQuantityMsg else + begin + x := sCallV('ORWDPS32 DRUGMSG', [AnIEN]); + uLastDispenseIEN := AnIEN; + uLastDispenseMsg := Piece(x, U, 1); + uLastQuantityMsg := Piece(x, U, 2); + Result := uLastQuantityMsg; + end; +end; + +function RequiresCopay(DispenseDrug: Integer): Boolean; +begin + Result := sCallV('ORWDPS32 SCSTS', [Patient.DFN, DispenseDrug]) = '1'; +end; + +procedure LoadFormularyAlt(AList: TStringList; AnIEN: Integer; PSType: Char); +begin + CallV('ORWDPS32 FORMALT', [AnIEN, PSType]); + AList.Assign(RPCBrokerV.Results); +end; + +procedure LookupRoute(const AName: string; var ID, Abbreviation: string); +var + x: string; +begin + x := sCallV('ORWDPS32 VALROUTE', [AName]); + ID := Piece(x, U, 1); + Abbreviation := Piece(x, U, 2); +end; + +function MedIsSupply(AnIEN: Integer): Boolean; +begin + Result := sCallV('ORWDPS32 ISSPLY', [AnIEN]) = '1'; +end; + +function MedTypeIsIV(AnIEN: Integer): Boolean; +begin + Result := sCallV('ORWDPS32 MEDISIV', [AnIEN]) = '1'; +end; + +function ODForMedIn: TStrings; +{ Returns init values for inpatient meds dialog. The results must be used immediately. } +begin + CallV('ORWDPS32 DLGSLCT', [PST_UNIT_DOSE]); + Result := RPCBrokerV.Results; +end; + +function ODForIVFluids: TStrings; +{ Returns init values for IV Fluids dialog. The results must be used immediately. } +begin + CallV('ORWDPS32 DLGSLCT', [PST_IV_FLUIDS]); + Result := RPCBrokerV.Results; +end; + +function AmountsForIVFluid(AnIEN: Integer; FluidType: Char): string; +begin + Result := sCallV('ORWDPS32 IVAMT', [AnIEN, FluidType]); +end; + +function ODForMedOut: TStrings; +{ Returns init values for outpatient meds dialog. The results must be used immediately. } +begin + CallV('ORWDPS32 DLGSLCT', [PST_OUTPATIENT]); + Result := RPCBrokerV.Results; +end; + +function OIForMedIn(AnIEN: Integer): TStrings; +{ Returns init values for inpatient meds order item. The results must be used immediately. } +begin + CallV('ORWDPS32 OISLCT', [AnIEN, PST_UNIT_DOSE, Patient.DFN]); + Result := RPCBrokerV.Results; +end; + +function OIForMedOut(AnIEN: Integer): TStrings; +{ Returns init values for outpatient meds order item. The results must be used immediately. } +begin + CallV('ORWDPS32 OISLCT', [AnIEN, PST_OUTPATIENT, Patient.DFN]); + Result := RPCBrokerV.Results; +end; + +function RatedDisabilities: string; +{ Returns a list of rated disabilities, if any, for a patient } +begin + CallV('ORWPCE SCDIS', [Patient.DFN]); + Result := RPCBrokerV.Results.Text; +end; + +procedure ValidateIVRate(var x: string); +begin + x := sCallV('ORWDPS32 VALRATE', [x]); +end; + +//function ValidIVRate(const x: string): Boolean; +//{ returns true if the text entered as the IV rate is valid } +//begin +// Result := sCallV('ORWDPS32 VALRATE', [x]) = '1'; +//end; + +function ValidSchedule(const x: string; PSType: Char = 'I'): Integer; +{ returns 1 if schedule is valid, 0 if schedule is not valid, -1 pharmacy routine not there } +begin + Result := StrToIntDef(sCallV('ORWDPS32 VALSCH', [x, PSType]), -1); +end; + +function ValidQuantity(const x: string): Boolean; +{ returns true if the text entered as the quantity is valid } +begin + Result := sCallV('ORWDPS32 VALQTY', [Trim(x)]) = '1'; +end; + +function ODForVitals: TStrings; +{ Returns init values for vitals dialog. The results must be used immediately. } +begin + CallV('ORWDOR VMSLCT', [nil]); + Result := RPCBrokerV.Results; +end; + +initialization + uLastDispenseIEN := 0; + uLastDispenseMsg := ''; + +finalization + if uMedRoutes <> nil then uMedRoutes.Free; + +end. diff --git a/CPRS-Chart/Orders/rODDiet.pas b/CPRS-Chart/Orders/rODDiet.pas new file mode 100644 index 0000000..9bcec5d --- /dev/null +++ b/CPRS-Chart/Orders/rODDiet.pas @@ -0,0 +1,214 @@ +unit rODDiet; + +interface + +uses SysUtils, Windows, Classes, ORNet, ORFn, uCore, uConst, rOrders; + +type + TOutpatientPatchInstalled = record + PatchInstalled: boolean; + PatchChecked: boolean; + end; + + TUserHasFHAUTHKey = record + UserHasKey: boolean; + KeyChecked: boolean; + end; + + TDietParams = record + Tray: Boolean; + Cafeteria: Boolean; + DiningRm: Boolean; + Bagged: Boolean; + RegIEN: Integer; + NPOIEN: Integer; + EarlyIEN: string; + LateIEN: string; + CurTF: string; + BTimes: string; + NTimes: string; + ETimes: string; + Alarms: string; + OPMaxDays: integer; + OPDefaultDiet: integer; + end; + +function CurrentDietText: string; +function DietAttributes(OI: Integer): string; +function ExpandedQuantity(Product, Strength: Integer; const Qty: string): string; +procedure LoadDietParams(var DietParams: TDietParams; ALocation: string); +procedure AppendTFProducts(Dest: TStrings); +function SubSetOfDiets(const StartFrom: string; Direction: Integer): TStrings; +function SubSetOfOPDiets: TStrings; +procedure OrderLateTray(NewOrder: TOrder; Meal: Char; const MealTime: string; Bagged: Boolean); +function IsolationID: string; +function CurrentIsolation: string; +procedure LoadIsolations(Dest: TStrings); +procedure LoadDietQuickList(Dest: TStrings; const GroupID: string); +function DietDialogType(GroupIEN: Integer): Char; +function OutpatientPatchInstalled: boolean; +function UserHasFHAUTHKey: boolean; +procedure GetCurrentRecurringOPMeals(Dest: TStrings; MealType: string = ''); +function OutpatientLocationConfigured(ALocation: string): boolean; + + +implementation + +uses TRPCB, rMisc, rCore; + +var + uOutpatientPatchInstalled: TOutpatientPatchInstalled; + uUserHasFHAUTHKey: TUserHasFHAUTHKey; + +function DietAttributes(OI: Integer): string; +begin + CallV('ORWDFH ATTR', [OI]); + Result := RPCBrokerV.Results[0]; +end; + +procedure LoadDietParams(var DietParams: TDietParams; ALocation: string); +begin + CallV('ORWDFH PARAM', [Patient.DFN, ALocation]); + with RPCBrokerV, DietParams do + begin + if Results.Count > 0 then + begin + BTimes := Pieces(Results[0], U, 1, 6); + NTimes := Pieces(Results[0], U, 7, 12); + ETimes := Pieces(Results[0], U, 13, 18); + end; + if Results.Count > 1 then + begin + Alarms := Pieces(Results[1], U, 1, 6); + Bagged := Piece(Results[1], U, 10) = 'Y'; + end; + if Results.Count > 2 then + begin + Tray := Pos('T', Results[2]) > 0; + Cafeteria := Pos('C', Results[2]) > 0; + DiningRm := Pos('D', Results[2]) > 0; + RegIEN := StrToIntDef(Piece(Results[2], U, 2), 0); + NPOIEN := StrToIntDef(Piece(Results[2], U, 3), 0); + EarlyIEN := Piece(Results[2], U, 4); + LateIEN := Piece(Results[2], U, 5); + CurTF := Piece(Results[2], U, 6); + end; + if (not Tray) and (not Cafeteria) and (not DiningRm) then Tray := True; + if Results.Count > 3 then + OPMaxDays := StrToIntDef(Results[3], 30) + else + OPMaxDays := 30; + if Results.Count > 4 then + OPDefaultDiet := StrToIntDef(Results[4], 0) + end; +end; + +function CurrentDietText: string; +begin + CallV('ORWDFH TXT', [Patient.DFN]); + Result := RPCBrokerV.Results.Text; +end; + +function CurrentTFText(const IENStr: string): string; +begin +end; + +procedure AppendTFProducts(Dest: TStrings); +begin + CallV('ORWDFH TFPROD', [nil]); + Dest.AddStrings(RPCBrokerV.Results); +end; + +function ExpandedQuantity(Product, Strength: Integer; const Qty: string): string; +begin + Result := ''; + if (Product = 0) or (Strength = 0) or (Length(Qty) = 0) then Exit; + Result := sCallV('ORWDFH QTY2CC', [Product, Strength, Qty]); +end; + +function SubSetOfDiets(const StartFrom: string; Direction: Integer): TStrings; +{ returns a pointer to a list of orderable items matching an S.xxx cross reference (for use in + a long list box) - The return value is a pointer to RPCBrokerV.Results, so the data must + be used BEFORE the next broker call! } +begin + CallV('ORWDFH DIETS', [StartFrom, Direction]); + Result := RPCBrokerV.Results; +end; + +function SubSetOfOPDiets: TStrings; +begin + CallV('ORWDFH OPDIETS', [nil]); + Result := RPCBrokerV.Results; +end; + +procedure OrderLateTray(NewOrder: TOrder; Meal: Char; const MealTime: string; Bagged: Boolean); +begin + CallV('ORWDFH ADDLATE', [Patient.DFN, Encounter.Provider, Encounter.Location, Meal, MealTime, Bagged]); + SetOrderFromResults(NewOrder); +end; + +function IsolationID: string; +begin + Result := sCallV('ORWDFH ISOIEN', [nil]); +end; + +function CurrentIsolation: string; +begin + Result := sCallV('ORWDFH CURISO', [Patient.DFN]); +end; + +procedure LoadIsolations(Dest: TStrings); +begin + CallV('ORWDFH ISOLIST', [nil]); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure LoadDietQuickList(Dest: TStrings; const GroupID: string); +begin + CallV('ORWDXQ GETQLST', [GroupID, 'Q']); + Dest.Assign(RPCBrokerV.Results); +end; + +function DietDialogType(GroupIEN: Integer): Char; +begin + Result := CharAt(sCallV('ORWDFH FINDTYP', [GroupIEN]), 1); + if not (Result in ['A', 'D', 'E', 'N', 'P', 'T', 'M']) then Result := 'D'; +end; + +function OutpatientPatchInstalled: boolean; +begin + with uOutpatientPatchInstalled do + if not PatchChecked then + begin + //PatchInstalled := True; + { TODO -oRich V. -cOutpatient Meals : Uncomment when available } + PatchInstalled := (PackageVersion('FH') >= '5.5'); + PatchChecked := True; + end; + Result := uOutpatientPatchInstalled.PatchInstalled; +end; + +function UserHasFHAUTHKey: boolean; +begin + with uUserHasFHAUTHKey do + if not KeyChecked then + begin + UserHasKey := HasSecurityKey('FHAUTH'); + KeyChecked := True; + end; + Result := uUserHasFHAUTHKey.UserHasKey; +end; + +procedure GetCurrentRecurringOPMeals(Dest: TStrings; MealType: string = ''); +begin + CallV('ORWDFH CURRENT MEALS', [Patient.DFN, MealType]); + Dest.Assign(RPCBrokerV.Results); + MixedCaseList(Dest); +end; + +function OutpatientLocationConfigured(ALocation: string): boolean; +begin + Result := (sCallV('ORWDFH NFSLOC READY', [ALocation]) = '1'); +end; + +end. diff --git a/CPRS-Chart/Orders/rODLab.pas b/CPRS-Chart/Orders/rODLab.pas new file mode 100644 index 0000000..e415bf0 --- /dev/null +++ b/CPRS-Chart/Orders/rODLab.pas @@ -0,0 +1,160 @@ +unit rODLab; + +interface + +uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs ; + + { Laboratory Ordering Calls } +function ODForLab(Location: integer; Division: integer = 0): TStrings; +procedure LoadLabTestData(LoadData: TStringList; LabTestIEN: string) ; +procedure LoadSamples(LoadList: TStringList) ; +procedure LoadSpecimens(SpecimenList: TStringList) ; +function SubsetOfSpecimens(const StartFrom: string; Direction: Integer): TStrings; +function CalcStopDate(Text: string): string ; +function MaxDays(Location, Schedule: integer): integer; +function IsLabCollectTime(ADateTime: TFMDateTime; Location: integer): boolean; +function ImmediateCollectTimes: TStrings; +function LabCollectFutureDays(Location: integer; Division: integer = 0): integer; +function GetDefaultImmCollTime: TFMDateTime; +function ValidImmCollTime(CollTime: TFMDateTime): string; +function GetOneCollSamp(LRFSAMP: integer): TStrings; +function GetOneSpecimen(LRFSPEC: integer): string; +procedure GetLabTimesForDate(Dest: TStrings; LabDate: TFMDateTime; Location: integer); +function GetLastCollectionTime: string; +procedure GetPatientBBInfo(Dest: TStrings; PatientID: string; Loc: integer); +procedure GetPatientBloodResults(Dest: TStrings; PatientID: string; ATests: TStringList); +procedure GetPatientBloodResultsRaw(Dest: TStrings; PatientID: string; ATests: TStringList); +function StatAllowed(PatientID: string): boolean; +procedure GetBloodComponents(Dest: TStrings); + +implementation + +uses rODBase; +(* fODBase, rODBase, fODLab;*) + +procedure GetBloodComponents(Dest: TStrings); +begin + tCallV(Dest, 'ORWDXVB COMPORD', []); +end; + +function StatAllowed(PatientID: string): boolean; +begin + Result := (StrToInt(sCallV('ORWDXVB STATALOW',[PatientID])) > 0); +end; + +procedure GetPatientBloodResultsRaw(Dest: TStrings; PatientID: string; ATests: TStringList); +begin + tCallV(Dest, 'ORWDXVB RAW', [PatientID, ATests]); +end; + +procedure GetPatientBloodResults(Dest: TStrings; PatientID: string; ATests: TStringList); +begin + tCallV(Dest, 'ORWDXVB RESULTS', [PatientID, ATests]); +end; + +procedure GetPatientBBInfo(Dest: TStrings; PatientID: string; Loc: integer); +begin + tCallV(Dest, 'ORWDXVB GETALL', [PatientID, Loc]); +end; + +function ODForLab(Location, Division: integer): TStrings; +{ Returns init values for laboratory dialog. The results must be used immediately. } +begin + CallV('ORWDLR32 DEF', [Location,Division]); + Result := RPCBrokerV.Results; +end; + +procedure LoadLabTestData(LoadData: TStringList; LabTestIEN: string) ; +begin + tCallV(LoadData, 'ORWDLR32 LOAD', [LabTestIEN]); +end ; + +procedure LoadSamples(LoadList: TStringList) ; +begin + tCallV(LoadList, 'ORWDLR32 ALLSAMP', [nil]); +end ; + +function SubsetOfSpecimens(const StartFrom: string; Direction: Integer): TStrings; +begin + Callv('ORWDLR32 ALLSPEC',[StartFrom, Direction]); + Result := RPCBrokerV.Results; +end ; + +procedure LoadSpecimens(SpecimenList: TStringList) ; +begin + tCallV(SpecimenList, 'ORWDLR32 ABBSPEC', [nil]); +end ; + +function CalcStopDate(Text: string): string ; +begin + Result := sCallV('ORWDLR32 STOP', [Text]); +end ; + +function MaxDays(Location, Schedule: integer): integer; +begin + Result := StrToInt(sCallV('ORWDLR32 MAXDAYS',[Location, Schedule])); +end; + +function IsLabCollectTime(ADateTime: TFMDateTime; Location: integer): boolean; +begin + Result := (StrToInt(sCallV('ORWDLR32 LAB COLL TIME',[ADateTime,Location])) > 0); +end; + +function LabCollectFutureDays(Location: integer; Division: integer): integer; +begin + Result := StrToInt(sCallV('ORWDLR33 FUTURE LAB COLLECTS',[Location, Division])); +end; + +function ImmediateCollectTimes: TStrings; +begin + CallV('ORWDLR32 IMMED COLLECT',[nil]); + Result := RPCBrokerV.Results; +end; + +function GetDefaultImmCollTime: TFMDateTime; +begin + CallV('ORWDLR32 IC DEFAULT',[nil]); + Result := StrToFloat(Piece(RPCBrokerV.Results[0], U, 1)); +end; + +function ValidImmCollTime(CollTime: TFMDateTime): string; +begin + CallV('ORWDLR32 IC VALID',[CollTime]); + Result := RPCBrokerV.Results[0]; +end; + +function GetOneCollSamp(LRFSAMP: integer): TStrings; +begin + CallV('ORWDLR32 ONE SAMPLE', [LRFSAMP]); + Result := RPCBrokerV.Results; +end; + +function GetOneSpecimen(LRFSPEC: integer): string; +begin + Result := sCallV('ORWDLR32 ONE SPECIMEN', [LRFSPEC]); +end; + +function GetLastCollectionTime: string; +begin + Result := sCallV('ORWDLR33 LASTTIME', [nil]); +end +; +procedure GetLabTimesForDate(Dest: TStrings; LabDate: TFMDateTime; Location: integer); +var + Prefix: string; + i: integer; +begin + CallV('ORWDLR32 GET LAB TIMES', [LabDate, Location]); + with Dest do + begin + Assign(RPCBrokerV.Results); + if (Count > 0) and (Piece(Strings[0], U, 1) <> '-1') then + for i := 0 to Count - 1 do + begin + if Strings[i] > '1159' then Prefix := 'PM Collection: ' else Prefix := 'AM Collection: '; + Strings[i] := Strings[i] + U + Prefix + Copy(Strings[i], 1, 2) + ':' + Copy(Strings[i], 3, 2); + end; + end; +end; + +end. diff --git a/CPRS-Chart/Orders/rODMeds.pas b/CPRS-Chart/Orders/rODMeds.pas new file mode 100644 index 0000000..01259d7 --- /dev/null +++ b/CPRS-Chart/Orders/rODMeds.pas @@ -0,0 +1,241 @@ +unit rODMeds; + +interface + +uses SysUtils, Classes, ORNet, ORFn, uCore, uConst; + +function DEACheckFailed(AnOI: Integer; ForInpatient: Boolean): Boolean; +function DEACheckFailedForIVOnOutPatient(AnOI: Integer; AnOIType: Char): boolean; +procedure ListForOrderable(var AListIEN, ACount: Integer; const DGrpNm: string); +procedure SubsetOfOrderable(Dest: TStringList; Append: Boolean; ListIEN, First, Last: Integer); +function IndexOfOrderable(ListIEN: Integer; From: string): Integer; +procedure IsActivateOI(var AMsg: string; theOI: integer); +procedure ListForQuickOrders(var AListIEN, ACount: Integer; const DGrpNm: string); +procedure SubsetOfQuickOrders(Dest: TStringList; AListIEN, First, Last: Integer); +function IndexOfQuickOrder(AListIEN: Integer; From: string): Integer; +procedure LoadFormularyAltOI(AList: TStringList; AnIEN: Integer; ForInpatient: Boolean); +procedure LoadFormularyAltDose(AList: TStringList; DispDrug, OI: Integer; ForInpatient: Boolean); +procedure LoadAdminInfo(const Schedule: string; OrdItem: Integer; var StartText: string; + var AdminTime: TFMDateTime; var Duration: string); +function GetAdminTime(const StartText, Schedule: string; OrdItem: Integer): TFMDateTime; +procedure LoadSchedules(Dest: TStrings; IsInptDlg: boolean = False); +function QtyToDays(Quantity: Double; const UnitsPerDose, Schedule, Duration, Drug: string): Integer; +function DaysToQty(DaysSupply: Integer; const UnitsPerDose, Schedule, Duration, Drug: string): Integer; +function DurToQty(DaysSupply: Integer; const UnitStr, SchedStr: string): Integer; +function DefaultDays(const ADrug, UnitStr, SchedStr: string): Integer; +function CalcMaxRefills(const Drug: string; Days, OrdItem: Integer; Discharge: Boolean): Integer; +function ScheduleRequired(OrdItem: Integer; const ARoute, ADrug: string): Boolean; +function ODForMedsIn: TStrings; +function ODForMedsOut: TStrings; +function OIForMed(AnIEN: Integer; ForInpatient: Boolean; HavePI: boolean = True; PKIActive: Boolean = False): TStrings; +function GetPickupForLocation(const Loc: string): string; +function QOHasRouteDefined(AQOID: integer): boolean; +procedure CheckExistingPI(AOrderId: string; var APtI: string); + +implementation + +function DEACheckFailed(AnOI: Integer; ForInpatient: Boolean): Boolean; +var + PtType: Char; +begin + if ForInpatient then PtType := 'I' else PtType := 'O'; + Result := sCallV('ORWDPS1 FAILDEA', [AnOI, Encounter.Provider, PtType]) = '1'; +end; + +function DEACheckFailedForIVOnOutPatient(AnOI: Integer; AnOIType: Char): boolean; +begin + Result := sCallV('ORWDPS1 IVDEA',[AnOI,AnOIType,Encounter.Provider]) = '1'; +end; + +procedure ListForOrderable(var AListIEN, ACount: Integer; const DGrpNm: string); +begin + CallV('ORWUL FV4DG', [DGrpNm]); + AListIEN := StrToIntDef(Piece(RPCBrokerV.Results[0], U, 1), 0); + ACount := StrToIntDef(Piece(RPCBrokerV.Results[0], U, 2), 0); +end; + +procedure SubsetOfOrderable(Dest: TStringList; Append: Boolean; ListIEN, First, Last: Integer); +var + i: Integer; +begin + CallV('ORWUL FVSUB', [ListIEN, First+1, Last+1]); // M side not 0-based + if Append then Dest.AddStrings(RPCBrokerV.Results) else + begin + for i := Pred(RPCBrokerV.Results.Count) downto 0 do Dest.Insert(0, RPCBrokerV.Results[i]); + end; +end; + +function IndexOfOrderable(ListIEN: Integer; From: string): Integer; +var + x: string; +begin + Result := -1; + if From = '' then Exit; + // decrement last char & concat '~' for $ORDER on M side, limit string length + x := UpperCase(Copy(From, 1, 220)); + x := Copy(x, 1, Length(x) - 1) + Pred(x[Length(x)]) + '~'; + x := sCallV('ORWUL FVIDX', [ListIEN, x]); + // use Pred to make the index 0-based (first value = 1 on M side) + if CompareText(Copy(Piece(x, U, 2), 1, Length(From)), From) = 0 + then Result := Pred(StrToIntDef(Piece(x, U, 1), 0)); +end; + +procedure IsActivateOI(var AMsg: string; theOI: integer); +begin + AMsg := SCallV('ORWDXA ISACTOI', [theOI]); +end; + +procedure ListForQuickOrders(var AListIEN, ACount: Integer; const DGrpNm: string); +begin + CallV('ORWUL QV4DG', [DGrpNm]); + AListIEN := StrToIntDef(Piece(RPCBrokerV.Results[0], U, 1), 0); + ACount := StrToIntDef(Piece(RPCBrokerV.Results[0], U, 2), 0); +end; + +procedure SubsetOfQuickOrders(Dest: TStringList; AListIEN, First, Last: Integer); +var + i: Integer; +begin + CallV('ORWUL QVSUB', [AListIEN,'','']); + for i := 0 to RPCBrokerV.Results.Count -1 do + Dest.Add(RPCBrokerV.Results[i]); +end; + +function IndexOfQuickOrder(AListIEN: Integer; From: string): Integer; +var + x: string; +begin + Result := -1; + if From = '' then Exit; + // decrement last char & concat '~' for $ORDER on M side, limit string length + x := UpperCase(Copy(From, 1, 220)); + x := Copy(x, 1, Length(x) - 1) + Pred(x[Length(x)]) + '~'; + x := sCallV('ORWUL QVIDX', [AListIEN, x]); + // use Pred to made the index 0-based (first value = 1 on M side) + if CompareText(Copy(Piece(x, U, 2), 1, Length(From)), From) = 0 + then Result := Pred(StrToIntDef(Piece(x, U, 1), 0)); +end; + +procedure LoadFormularyAltOI(AList: TStringList; AnIEN: Integer; ForInpatient: Boolean); +var + PtType: Char; +begin + if ForInpatient then PtType := 'I' else PtType := 'O'; + CallV('ORWDPS1 FORMALT', [AnIEN, PtType]); + AList.Assign(RPCBrokerV.Results); +end; + +procedure LoadFormularyAltDose(AList: TStringList; DispDrug, OI: Integer; ForInpatient: Boolean); +var + PtType: Char; +begin + if ForInpatient then PtType := 'I' else PtType := 'O'; + CallV('ORWDPS1 DOSEALT', [DispDrug, OI, PtType]); + AList.Assign(RPCBrokerV.Results); +end; + +procedure LoadAdminInfo(const Schedule: string; OrdItem: Integer; var StartText: string; + var AdminTime: TFMDateTime; var Duration: string); +var + x: string; +begin + x := sCallV('ORWDPS2 ADMIN', [Patient.DFN, Schedule, OrdItem, Encounter.Location]); + StartText := Piece(x, U, 1); + AdminTime := MakeFMDateTime(Piece(x, U, 4)); + Duration := Piece(x, U, 3); +end; + +function GetAdminTime(const StartText, Schedule: string; OrdItem: Integer): TFMDateTime; +var + x: string; +begin + x := sCallV('ORWDPS2 REQST', [Patient.DFN, Schedule, OrdItem, Encounter.Location, StartText]); + Result := MakeFMDateTime(x); +end; + +procedure LoadSchedules(Dest: TStrings; IsInptDlg: boolean); +begin + // if uMedSchedules = nil then CallV('ORWDPS ALLSCHD', [nil]); uMedSchedules.Assign(...); + CallV('ORWDPS1 SCHALL', [nil]); + Dest.Assign(RPCBrokerV.Results); + If (Dest.IndexOfName('OTHER') < 0) and IsInptDlg then + Dest.Add('OTHER'); +end; + +function QtyToDays(Quantity: Double; const UnitsPerDose, Schedule, Duration, Drug: string): Integer; +begin + Result := StrToIntDef(sCallV('ORWDPS2 QTY2DAY', + [Quantity, UnitsPerDose, Schedule, Duration, Patient.DFN, Drug]), 0); +end; + +function DaysToQty(DaysSupply: Integer; const UnitsPerDose, Schedule, Duration, Drug: string): Integer; +begin + Result := StrToIntDef(sCallV('ORWDPS2 DAY2QTY', + [DaysSupply, UnitsPerDose, Schedule, Duration, Patient.DFN, Drug]), 0); +end; + +function DurToQty(DaysSupply: Integer; const UnitStr, SchedStr: string): Integer; +begin + Result := StrToIntDef(sCallV('ORWDPS2 DAY2QTY', [DaysSupply, UnitStr, SchedStr]), 0); +end; + +function DefaultDays(const ADrug, UnitStr, SchedStr: string): Integer; +begin + Result := StrToIntDef(sCallV('ORWDPS1 DFLTSPLY', [UnitStr, SchedStr, Patient.DFN, ADrug]), 0); +end; + +function CalcMaxRefills(const Drug: string; Days, OrdItem: Integer; Discharge: Boolean): Integer; +begin + Result := StrToIntDef(sCallV('ORWDPS2 MAXREF', [Patient.DFN, Drug, Days, OrdItem, Discharge]), 0); +end; + +function ScheduleRequired(OrdItem: Integer; const ARoute, ADrug: string): Boolean; +begin + Result := sCallV('ORWDPS2 SCHREQ', [OrdItem, ARoute, ADrug]) = '1'; +end; + +function ODForMedsIn: TStrings; +{ Returns init values for inpatient meds dialog. The results must be used immediately. } +begin + CallV('ORWDPS1 ODSLCT', [PST_UNIT_DOSE, Patient.DFN, Encounter.Location]); + Result := RPCBrokerV.Results; +end; + +function ODForMedsOut: TStrings; +{ Returns init values for outpatient meds dialog. The results must be used immediately. } +begin + CallV('ORWDPS1 ODSLCT', [PST_OUTPATIENT, Patient.DFN, Encounter.Location]); + Result := RPCBrokerV.Results; +end; + +function OIForMed(AnIEN: Integer; ForInpatient: Boolean; HavePI: Boolean; PKIActive: Boolean): TStrings; +var + PtType: Char; + NeedPI: Char; + IsPKIActive: Char; +begin + if HavePI then NeedPI := 'Y' else NeedPI := 'N'; + if ForInpatient then PtType := 'U' else PtType := 'O'; + if PKIActive then IsPKIActive := 'Y' else IsPKIActive := 'N'; + CallV('ORWDPS2 OISLCT', [AnIEN, PtType, Patient.DFN, NeedPI, IsPKIActive]); + Result := RPCBrokerV.Results; +end; + +function GetPickupForLocation(const Loc: string): string; +begin + Result := sCallV('ORWDPS1 LOCPICK',[Loc]); +end; + +function QOHasRouteDefined(AQOID: integer): boolean; +begin + Result := False; + if ( sCallV('ORWDPS1 HASROUTE',[AQOID])='1' ) then + Result := True; +end; + +procedure CheckExistingPI(AOrderId: string; var APtI: string); +begin + APtI := sCallV('ORWDPS2 CHKPI', [AOrderId]); +end; + +end. diff --git a/CPRS-Chart/Orders/rODRad.pas b/CPRS-Chart/Orders/rODRad.pas new file mode 100644 index 0000000..d260004 --- /dev/null +++ b/CPRS-Chart/Orders/rODRad.pas @@ -0,0 +1,77 @@ +unit rODRad; + +interface + +uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs ; + + { Radiology Ordering Calls } +function ODForRad(const PatientDFN, AnEventDiv: string; ImagingType: integer): TStrings; //*DFN* +function SubsetOfRadProcs(ImagingType: integer; const StartFrom: string; Direction: Integer): TStrings; +function ImagingMessage(AnIEN: Integer): string; +function PatientOnIsolationProcedures(const PatientDFN: string): boolean ; //*DFN* +function SubsetOfRadiologists: TStrings; +function SubsetOfImagingTypes: TStrings; +function SubsetOfRadSources(SrcType: string): TStrings; +function LocationType(Location: integer): string; + +implementation + +uses rODBase; +(* fODBase, rODBase, fODRad;*) + + +function ODForRad(const PatientDFN, AnEventDiv: string; ImagingType: integer): TStrings; //*DFN* +{ Returns init values for radiology dialog. The results must be used immediately. } +begin + CallV('ORWDRA32 DEF', [PatientDFN, AnEventDiv, ImagingType]); + Result := RPCBrokerV.Results; +end; + +function SubsetOfRadProcs(ImagingType: integer; const StartFrom: string; Direction: Integer): TStrings; + // Needed separate call because of 'RA REQUIRE DETAILED' divisional parameter. + // Screens out 'Broad' procedures if parameter true. +begin + Callv('ORWDRA32 RAORDITM',[StartFrom, Direction, ImagingType]); + Result := RPCBrokerV.Results; +end ; + +function ImagingMessage(AnIEN: Integer): string; +var + x: string ; + i: integer ; +begin + CallV('ORWDRA32 PROCMSG', [AnIEN]); + for i := 0 to RPCBrokerV.Results.Count-1 do + x := x + RPCBrokerV.Results[i] + #13#10 ; + Result := x ; +end; + +function PatientOnIsolationProcedures(const PatientDFN: string): boolean ; //*DFN* +begin + Result := (StrToInt(Piece(sCallV('ORWDRA32 ISOLATN', [PatientDFN]),U,1)) > 0) ; +end ; + +function SubsetOfRadiologists: TStrings; +begin + Callv('ORWDRA32 APPROVAL',['']); + Result := RPCBrokerV.Results ; +end ; + +function SubsetOfImagingTypes: TStrings; +begin + Callv('ORWDRA32 IMTYPSEL',['']); + Result := RPCBrokerV.Results ; +end ; + +function SubsetOfRadSources(SrcType: string): TStrings; +begin + Callv('ORWDRA32 RADSRC',[SrcType]); + Result := RPCBrokerV.Results ; +end ; + +function LocationType(Location: integer): string; +begin + Result := sCallV('ORWDRA32 LOCTYPE',[Location]); +end; + +end. diff --git a/CPRS-Chart/Orders/rOrders.pas b/CPRS-Chart/Orders/rOrders.pas new file mode 100644 index 0000000..449b9ed --- /dev/null +++ b/CPRS-Chart/Orders/rOrders.pas @@ -0,0 +1,2427 @@ +unit rOrders; +{$OPTIMIZATION OFF} +interface + +uses SysUtils, Classes, ORFn, ORNet, uCore, Dialogs, Controls; + +type + TOrder = class + public + ICD9Code: string; + ID: string; + DGroup: Integer; + OrderTime: TFMDateTime; + StartTime: string; + StopTime: string; + Status: Integer; + Signature: Integer; + VerNurse: string; + VerClerk: string; + ChartRev: string; + Provider: Int64; + ProviderName: string; + ProviderDEA: string; + ProviderVa: string; + DigSigReq: string; + XMLText: string; + Text: string; + DGroupSeq: Integer; + DGroupName: string; + Flagged: Boolean; + Retrieved: Boolean; + EditOf: string; + ActionOn: string; + EventPtr: string; //ptr to #100.2 + EventName: string; //Event name in #100.5 + OrderLocIEN: string; //imo + OrderLocName: string; //imo + ParentID : string; + LinkObject: TObject; + EnteredInError: Integer; //AGP Changes 26.12 PSI-04-053 + procedure Assign(Source: TOrder); + procedure Clear; + end; + + TParentEvent = class + public + ParentIFN: integer; + ParentName: string; + ParentType: Char; + ParentDlg: string; + constructor Create; + procedure Assign(AnEvtID: string); + end; + + TOrderDelayEvent = record + EventType: Char; // A=admit, T=transfer, D=discharge, C=current + TheParent: TParentEvent; // Parent Event + EventIFN : Integer; // Pointer to OE/RR EVENTS file (#100.5) + EventName: String; // Event name from OR/RR EVENTS file (#100.5) + PtEventIFN: Integer; // Patient event IFN ptr to #100.2 + Specialty: Integer; // pointer to facility treating specialty file + Effective: TFMDateTime; // effective date/time (estimated start time) + IsNewEvent: Boolean; // is new event for an patient + end; + + TOrderDialogResolved = record + InputID: string; // can be dialog IEN or '#ORIFN' + QuickLevel: Integer; // 0=dialog,1=auto,2=verify,8=reject,9=cancel + ResponseID: string; // DialogID + ';' + $H + DialogIEN: Integer; // pointer to 101.41 for dialog (may be quick order IEN) + DialogType: Char; // type of dialog (Q or D) + FormID: Integer; // windows form to display + DisplayGroup: Integer; // pointer to 100.98, display group for dialog + ShowText: string; // text to show for verify or rejection + QOKeyVars: string; // from entry action of quick order + end; + + TNextMoveRec = record + NextStep: Integer; + LastIndex: Integer; + end; + + TOrderMenu = class + IEN: Integer; + NumCols: Integer; + Title: string; + KeyVars: string; + MenuItems: TList; {of TOrderMenuItem} + end; + + TOrderMenuItem = class + IEN: Integer; + Row: Integer; + Col: Integer; + DlgType: Char; + FormID: Integer; + AutoAck: Boolean; + ItemText: string; + Mnemonic: string; + Display: Integer; + Selected: Boolean; + end; + + TSelectedOrder = class + public + Position: Integer; + Order: TOrder; + end; + + TOrderRenewFields = class + public + BaseType: Integer; + StartTime: string; + StopTime: string; + Refills: Integer; + Pickup: string; + Comments: string; + NewText: string; + end; + + TPrintParams = record + PromptForChartCopy : char; + ChartCopyDevice : string; + PromptForLabels : char; + LabelDevice : string; + PromptForRequisitions : char; + RequisitionDevice : string; + PromptForWorkCopy : char; + WorkCopyDevice : string; + AnyPrompts : boolean; +// OrdersToPrint : TStringList; {*KCM*} + end; + + TOrderView = class + Changed: Boolean; // true when view has been modified + DGroup: Integer; // display group (pointer value) + Filter: Integer; // FLGS parameter passed to ORQ + InvChrono: Boolean; // true for inverse chronological order + ByService: Boolean; // true for grouping orders by service + TimeFrom: TFMDateTime; // beginning time for orders in list + TimeThru: TFMDateTime; // ending time for orders in list + CtxtTime: TFMDateTime; // set by server, context hours begin time + TextView: Integer; // set by server, 0 if mult views of same order + ViewName: string; // display name for the view + EventDelay: TOrderDelayEvent; // fields for event delay view + public + procedure Assign(Src: TOrderView); + + end; + +{ Order List functions } +function DetailOrder(const ID: string): TStrings; +function ResultOrder(const ID: string): TStrings; +function ResultOrderHistory(const ID: string): TStrings; +function NameOfStatus(IEN: Integer): string; +function GetOrderStatus(AnOrderId: string): integer; +function ExpiredOrdersStartDT: TFMDateTime; +procedure ClearOrders(AList: TList); +procedure LoadOrders(Dest: TList; Filter, Groups: Integer); +procedure LoadOrdersAbbr(Dest: TList; AView: TOrderView; APtEvtID: string); overload; +procedure LoadOrdersAbbr(DestDC,DestRL: TList; AView: TOrderView; APtEvtID: string); overload; +procedure LoadOrderSheets(Dest: TStrings); +procedure LoadOrderSheetsED(Dest: TStrings); +procedure LoadOrderViewDefault(AView: TOrderView); +procedure LoadUnsignedOrders(IDList, HaveList: TStrings); +procedure SaveOrderViewDefault(AView: TOrderView); +procedure RetrieveOrderFields(OrderList: TList; ATextView: Integer; ACtxtTime: TFMDateTime); +procedure SetOrderFields(AnOrder: TOrder; const x, y, z: string); +procedure SetOrderFromResults(AnOrder: TOrder); +procedure SortOrders(AList: TList; ByGroup, InvChron: Boolean); + +{ Display Group & List functions } +function DGroupAll: Integer; +function DGroupIEN(AName: string): Integer; +procedure ListDGroupAll(Dest: TStrings); +procedure ListSpecialties(Dest: TStrings); +procedure ListSpecialtiesED(AType: Char; Dest: TStrings); +procedure ListOrderFilters(Dest: TStrings); +procedure ListOrderFiltersAll(Dest: TStrings); +function NameOfDGroup(IEN: Integer): string; +function ShortNameOfDGroup(IEN: Integer): string; +function SeqOfDGroup(IEN: Integer): Integer; +function CheckOrderGroup(AOrderID: string): integer; +function CheckQOGroup(AQOId:string): Boolean; + +{ Write Orders } +procedure BuildResponses(var ResolvedDialog: TOrderDialogResolved; const KeyVars: string; + AnEvent: TOrderDelayEvent; ForIMO: boolean = False); +procedure ClearOrderRecall; +function CommonLocationForOrders(OrderList: TStringList): Integer; +function FormIDForDialog(IEN: Integer): Integer; +function DlgIENForName(DlgName: string): Integer; +procedure LoadOrderMenu(AnOrderMenu: TOrderMenu; AMenuIEN: Integer); +procedure LoadOrderSet(SetItems: TStrings; AnIEN: Integer; var KeyVars, ACaption: string); +procedure LoadWriteOrders(Dest: TStrings); +procedure LoadWriteOrdersED(Dest: TStrings; EvtID: string); +function OrderDisabledMessage(DlgIEN: Integer): string; +procedure SendOrders(OrderList: TStringList; const ESCode: string); +procedure SendReleaseOrders(OrderList: TStringList); +procedure SendAndPrintOrders(OrderList, ErrList: TStrings; const ESCode: string; const DeviceInfo: string); +procedure ExecutePrintOrders(SelectedList: TStringList; const DeviceInfo: string); +procedure PrintOrdersOnReview(OrderList: TStringList; const DeviceInfo: string); {*KCM*} +procedure PrintServiceCopies(OrderList: TStringList); {*REV*} +procedure OrderPrintDeviceInfo(OrderList: TStringList; var PrintParams: TPrintParams; Nature: Char); {*KCM*} +function UseNewMedDialogs: Boolean; + +{ Order Actions } +function DialogForOrder(const ID: string): Integer; +procedure LockPatient(var ErrMsg: string); +procedure UnlockPatient; +procedure LockOrder(OrderID: string; var ErrMsg: string); +procedure UnlockOrder(OrderID: string); +function FormIDForOrder(const ID: string): Integer; +procedure ValidateOrderAction(const ID, Action: string; var ErrMsg: string); +procedure ValidateOrderActionNature(const ID, Action, Nature: string; var ErrMsg: string); +procedure IsLatestAction(const ID: string; var ErrList: TStringList); +procedure ChangeOrder(AnOrder: TOrder; ResponseList: TList); +procedure RenewOrder(AnOrder: TOrder; RenewFields: TOrderRenewFields; IsComplex: integer; + AnIMOOrderAppt: double; OCList: TStringList); +procedure HoldOrder(AnOrder: TOrder); +procedure ListDCReasons(Dest: TStrings; var DefaultIEN: Integer); +function GetREQReason: Integer; +procedure DCOrder(AnOrder: TOrder; AReason: Integer; var DCType: Integer); +procedure ReleaseOrderHold(AnOrder: TOrder); +procedure AlertOrder(AnOrder: TOrder; AlertRecip: Int64); +procedure FlagOrder(AnOrder: TOrder; const FlagReason: string; AlertRecip: Int64); +procedure UnflagOrder(AnOrder: TOrder; const AComment: string); +procedure LoadFlagReason(Dest: TStrings; const ID: string); +procedure LoadWardComments(Dest: TStrings; const ID: string); +procedure PutWardComments(Src: TStrings; const ID: string; var ErrMsg: string); +procedure CompleteOrder(AnOrder: TOrder; const ESCode: string); +procedure VerifyOrder(AnOrder: TOrder; const ESCode: string); +procedure VerifyOrderChartReview(AnOrder: TOrder; const ESCode: string); +function GetOrderableIen(AnOrderId:string): integer; +procedure StoreDigitalSig(AID, AHash: string; AProvider: Int64; ASig, ACrlUrl: string; var AError: string); +procedure UpdateOrderDGIfNeeded(AnID: string); +function CanEditSuchRenewedOrder(AnID: string; IsTxtOrder: integer): boolean; +function IsPSOSupplyDlg(DlgID, QODlg: integer): boolean; +procedure SaveChangesOnRenewOrder(var AnOrder: TOrder; AnID, TheRefills, ThePickup: string; IsTxtOrder: integer); +//function GetPromptandDeviceParameters(Location: integer; OrderList: TStringList; Nature: string): TPrintParams; + +{ Order Information } +procedure LoadRenewFields(RenewFields: TOrderRenewFields; const ID: string); +procedure GetChildrenOfComplexOrder(AnParentID,CurrAct: string; var ChildList: TStringList); //PSI-COMPLEX +procedure LESValidationForChangedLabOrder(var RejectedReason: TStringList; AnOrderInfo: string); +procedure ValidateComplexOrderAct(AnOrderID: string; var ErrMsg: string); //PSI-COMPLEX +function IsRenewableComplexOrder(AnParentID: string): boolean; //PSI-COMPLEX +function IsComplexOrder(AnOrderID: string): boolean; //PSI-COMPLEX +function GetDlgData(ADlgID: string): string; +function OrderIsReleased(const ID: string): Boolean; +function TextForOrder(const ID: string): string; +function GetConsultOrderNumber(ConsultIEN: string): string; +function GetOrderByIFN(const ID: string): TOrder; +function GetPackageByOrderID(const OrderID: string): string; +function AnyOrdersRequireSignature(OrderList: TStringList): Boolean; +function OrderRequiresSignature(const ID: string): Boolean; +function OrderRequiresDigitalSignature(const ID: string): Boolean; +function GetDrugSchedule(const ID: string): string; +function GetExternalText(const ID: string): string; +function SetExternalText(const ID: string; ADrugSch: string; AUser: Int64): string; +function GetDEA(const ID: string): string; +function GetDigitalSignature(const ID: string): string; +function GetPKIUse: Boolean; +function GetPKISite: Boolean; +function DoesOIPIInSigForQO(AnQOID: integer): integer; +function GetDispGroupForLES: string; +function GetOrderPtEvtID(AnOrderID: string): string; +function VerbTelPolicyOrder(AnOrderID: string): boolean; +function ForIVandUD(AnOrderID: string): boolean; + +{Event Delay Enhancement} +function DeleteEmptyEvt(APtEvntID: string; var APtEvntName: string; Ask: boolean = True): boolean; +function DispOrdersForEvent(AEvtId: string): boolean; +function EventInfo(APtEvtID: string): string; // ptr to #100.2 +function EventInfo1(AnEvtID: string): string; // ptr to #100.5 +function EventExist(APtDFN:string; AEvt: integer): integer; +function CompleteEvt(APtEvntID: string; APtEvntName: string; Ask: boolean = True): boolean; +function PtEvtEmpty(APtEvtID: string): Boolean; +function GetEventIFN(const AEvntID: string): string; +function GetEventName(const AEvntID: string): string; +function GetEventLoc(const APtEvntID: string): string; +function GetEventLoc1(const AnEvntID: string): string; +function GetEventDiv(const APtEvntID: string): string; +function GetEventDiv1(const AnEvntID: string): string; +function GetCurrentSpec(const APtIFN: string): string; +function GetDefaultEvt(const AProviderIFN: string): string; +function isExistedEvent(const APtDFN: string; const AEvtID: string; var APtEvtID: string): Boolean; +function TypeOfExistedEvent(APtDFN: string; AEvtID: Integer): Integer; +function isMatchedEvent(const APtDFN: string; const AEvtID: string; var ATs: string): Boolean; +function isDCedOrder(const AnOrderID: string): Boolean; +function isOnholdMedOrder(AnOrderID: string): Boolean; +function SetDefaultEvent(var AErrMsg: string; EvtID: string): Boolean; +function GetEventPromptID: integer; +function GetDefaultTSForEvt(AnEvtID: integer): string; +function GetPromptIDs: string; +function GetEventDefaultDlg(AEvtID: integer): string; +function CanManualRelease: boolean; +function TheParentPtEvt(APtEvt: string): string; +function IsCompletedPtEvt(APtEvtID: integer): boolean; +function IsPassEvt(APtEvtID: integer; APtEvtType: char): boolean; +function IsPassEvt1(AnEvtID: integer; AnEvtType: char): boolean; +procedure DeleteDefaultEvt; +procedure TerminatePtEvt(APtEvtID: integer); +procedure ChangeEvent(AnOrderList: TStringList; APtEvtId: string); +procedure DeletePtEvent(APtEvtID: string); +procedure SaveEvtForOrder(APtDFN: string; AEvt: integer; AnOrderID: string); +procedure SetPtEvtList(Dest: TStrings; APtDFN: string; var ATotal: integer); +procedure GetTSListForEvt(Dest: TStrings; AnEvtID:integer); +procedure GetChildEvent(var AChildList: TStringList; APtEvtID: string); + +{ Order Checking } +function FillerIDForDialog(IEN: Integer): string; +function OrderChecksEnabled: Boolean; +function OrderChecksOnDisplay(const FillerID: string): string; +procedure OrderChecksOnAccept(ListOfChecks: TStringList; const FillerID, StartDtTm: string; + OIList: TStringList; DupORIFN: string); +procedure OrderChecksOnDelay(ListOfChecks: TStringList; const FillerID, StartDtTm: string; + OIList: TStringList); +procedure OrderChecksForSession(ListOfChecks, OrderList: TStringList); +procedure SaveOrderChecksForSession(const AReason: string; ListOfChecks: TStringList); +function DeleteCheckedOrder(const OrderID: string): Boolean; +function DataForOrderCheck(const OrderID: string): string; + +{ Copay } +procedure GetCoPay4Orders; +procedure SaveCoPayStatus(AList: TStrings); + +{IMO: inpatient medication for outpatient} +function IsValidIMOLoc(LocID: integer; PatientID: string): boolean; //IMO +function IsIMOOrder(OrderID: string): boolean; +function IsInptQO(DlgID: integer): boolean; +function IsIVQO(DlgID: integer): boolean; +function IsClinicLoc(ALoc: integer): boolean; + +{None-standard Schedule} //nss +function IsValidSchedule(AnOrderID: string): boolean; //NSS +function IsValidQOSch(QOID: string): string; //NSS +function IsValidSchStr(ASchStr: string): boolean; + +implementation + +uses Windows, rCore, uConst, TRPCB, ORCtrls, UBAGlobals, UBACore; + +var + uDGroupMap: TStringList; // each string is DGroupIEN=Sequence^TopName^Name + uDGroupAll: Integer; + uOrderChecksOn: Char; + +{ TOrderView methods } + +procedure TOrderView.Assign(Src: TOrderView); +begin + Self.Changed := Src.Changed; + Self.DGroup := Src.DGroup; + Self.Filter := Src.Filter; + Self.InvChrono := Src.InvChrono; + Self.ByService := Src.ByService; + Self.TimeFrom := Src.TimeFrom; + Self.TimeThru := Src.TimeThru; + Self.CtxtTime := Src.CtxtTime; + Self.TextView := Src.TextView; + Self.ViewName := Src.ViewName; + Self.EventDelay.EventIFN := Src.EventDelay.EventIFN; + Self.EventDelay.EventName := Src.EventDelay.EventName; + Self.EventDelay.EventType := Src.EventDelay.EventType; + Self.EventDelay.Specialty := Src.EventDelay.Specialty; + Self.EventDelay.Effective := Src.EventDelay.Effective; +end; + +{ TOrder methods } + +procedure TOrder.Assign(Source: TOrder); +begin + ID := Source.ID; + DGroup := Source.DGroup; + OrderTime := Source.OrderTime; + StartTime := Source.StartTime; + StopTime := Source.StopTime; + Status := Source.Status; + Signature := Source.Signature; + VerNurse := Source.VerNurse; + VerClerk := Source.VerClerk; + ChartRev := Source.ChartRev; + Provider := Source.Provider; + ProviderName := Source.ProviderName; + ProviderDEA := Source.ProviderDEA; + ProviderVA := Source.ProviderVA; + DigSigReq := Source.DigSigReq; + XMLText := Source.XMLText; + Text := Source.Text; + DGroupSeq := Source.DGroupSeq; + DGroupName := Source.DGroupName; + Flagged := Source.Flagged; + Retrieved := Source.Retrieved; + EditOf := Source.EditOf; + ActionOn := Source.ActionOn; + EventPtr := Source.EventPtr; + EventName := Source.EventName; + OrderLocIEN := Source.OrderLocIEN; + OrderLocName := Source.OrderLocName; + ParentID := Source.ParentID; + LinkObject := Source.LinkObject; +end; + +procedure TOrder.Clear; +begin + ID := ''; + DGroup := 0; + OrderTime := 0; + StartTime := ''; + StopTime := ''; + Status := 0; + Signature := 0; + VerNurse := ''; + VerClerk := ''; + ChartRev := ''; + Provider := 0; + ProviderName := ''; + ProviderDEA := ''; + ProviderVA :=''; + DigSigReq :=''; + XMLText := ''; + Text := ''; + DGroupSeq := 0; + DGroupName := ''; + Flagged := False; + Retrieved := False; + EditOf := ''; + ActionOn := ''; + OrderLocIEN := ''; //imo + OrderLocName := ''; //imo + ParentID := ''; + LinkObject := nil; +end; + +{ Order List functions } + +function DetailOrder(const ID: string): TStrings; +begin + CallV('ORQOR DETAIL', [ID, Patient.DFN]); + Result := RPCBrokerV.Results; +end; + +function ResultOrder(const ID: string): TStrings; +begin + CallV('ORWOR RESULT', [Patient.DFN,ID,ID]); + Result := RPCBrokerV.Results; +end; + +function ResultOrderHistory(const ID: string): TStrings; +begin + CallV('ORWOR RESULT HISTORY', [Patient.DFN,ID,ID]); + Result := RPCBrokerV.Results; +end; + +procedure LoadDGroupMap; +begin + if uDGroupMap = nil then + begin + uDGroupMap := TStringList.Create; + tCallV(uDGroupMap, 'ORWORDG MAPSEQ', [nil]); + end; +end; + +function NameOfStatus(IEN: Integer): string; +begin + case IEN of + 0: Result := 'error'; + 1: Result := 'discontinued'; + 2: Result := 'complete'; + 3: Result := 'hold'; + 4: Result := 'flagged'; + 5: Result := 'pending'; + 6: Result := 'active'; + 7: Result := 'expired'; + 8: Result := 'scheduled'; + 9: Result := 'partial results'; + 10: Result := 'delayed'; + 11: Result := 'unreleased'; + 12: Result := 'dc/edit'; + 13: Result := 'cancelled'; + 14: Result := 'lapsed'; + 15: Result := 'renewed'; + 97: Result := ''; { null status, used for 'No Orders Found.' } + 98: Result := 'new'; + 99: Result := 'no status'; + end; +end; + +function GetOrderStatus(AnOrderId: string): integer; +begin + Result := StrToIntDef(SCallV('OREVNTX1 GETSTS',[AnOrderId]),0); +end; + +function ExpiredOrdersStartDT: TFMDateTime; +//Return FM date/time to begin search for expired orders +begin + Result := MakeFMDateTime(sCallV('ORWOR EXPIRED', [nil])); +end; + +function DispOrdersForEvent(AEvtId: string): boolean; +var + theResult: integer; +begin + Result := False; + theResult := StrToIntDef(SCallV('OREVNTX1 CPACT',[AEvtId]),0); + if theResult > 0 then + Result := True; +end; + +function EventInfo(APtEvtID: string): string; +begin + Result := SCallV('OREVNTX1 GTEVT', [APtEvtID]); +end; + +function EventInfo1(AnEvtID: string): string; +begin + Result := SCallV('OREVNTX1 GTEVT1', [AnEvtID]); +end; + +function NameOfDGroup(IEN: Integer): string; +begin + if uDGroupMap = nil then LoadDGroupMap; + Result := uDGroupMap.Values[IntToStr(IEN)]; + Result := Piece(Result, U, 3); +end; + +function ShortNameOfDGroup(IEN: Integer): string; +begin + if uDGroupMap = nil then LoadDGroupMap; + Result := uDGroupMap.Values[IntToStr(IEN)]; + Result := Piece(Result, U, 4); +end; + +function SeqOfDGroup(IEN: Integer): Integer; +var + x: string; +begin + if uDGroupMap = nil then LoadDGroupMap; + x := uDGroupMap.Values[IntToStr(IEN)]; + Result := StrToIntDef(Piece(x, U, 1), 0); +end; + +function CheckOrderGroup(AOrderID: string): integer; +begin + // Result = 1 Inpatient Medication Display Group; + // Result = 2 OutPatient Medication Display Group; + // Result = 0 None of In or Out patient display group; + Result := StrToInt(SCallV('ORWDPS2 CHKGRP',[AOrderID])); +end; + +function CheckQOGroup(AQOId:string): Boolean; +var + rst: integer; +begin + rst := StrToInt(SCallV('ORWDPS2 QOGRP',[AQOId])); + Result := False; + if rst > 0 then + Result := True; +end; + +function TopNameOfDGroup(IEN: Integer): string; +begin + if uDGroupMap = nil then LoadDGroupMap; + Result := uDGroupMap.Values[IntToStr(IEN)]; + Result := Piece(Result, U, 2); +end; + +procedure ClearOrders(AList: TList); +var + i: Integer; +begin + with AList do for i := 0 to Count - 1 do with TOrder(Items[i]) do Free; + AList.Clear; +end; + +procedure SetOrderFields(AnOrder: TOrder; const x, y, z: string); +{ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 +{ Pieces: ~IFN^Grp^ActTm^StrtTm^StopTm^Sts^Sig^Nrs^Clk^PrvID^PrvNam^ActDA^Flag^DCType^ChrtRev^DEA#^VA#^DigSig} +begin + with AnOrder do + begin + Clear; + ID := Copy(Piece(x, U, 1), 2, Length(Piece(x, U, 1))); + DGroup := StrToIntDef(Piece(x, U, 2), 0); + OrderTime := MakeFMDateTime(Piece(x, U, 3)); + StartTime := Piece(x, U, 4); + StopTime := Piece(x, U, 5); + Status := StrToIntDef(Piece(x, U, 6), 0); + Signature := StrToIntDef(Piece(x, U, 7), 0); + VerNurse := Piece(x, U, 8); + VerClerk := Piece(x, U, 9); + ChartRev := Piece(x, U, 15); + Provider := StrToInt64Def(Piece(x, U, 10), 0); + ProviderName := Piece(x, U, 11); + ProviderDEA := Piece(x, U, 16); + ProviderVA := Piece(x, U, 17); + DigSigReq := Piece(x, U, 18); + Flagged := Piece(x, U, 13) = '1'; + Retrieved := True; + OrderLocIEN := Piece(Piece(x,U,19),':',2); //imo + OrderLocName := Piece(Piece(x,U,19),':',1); //imo + Text := y; + XMLText := z; + DGroupSeq := SeqOfDGroup(DGroup); + DGroupName := TopNameOfDGroup(DGroup); + //AGP Changes 26.15 PSI-04-063 + if (pos('Entered in error',Text)>0) then AnOrder.EnteredInError := 1 + else AnOrder.EnteredInError := 0; + //if DGroupName = 'Non-VA Meds' then Text := 'Non-VA ' + Text; + end; +end; + +procedure LoadOrders(Dest: TList; Filter, Groups: Integer); +var + x, y, z: string; + AnOrder: TOrder; +begin + ClearOrders(Dest); + if uDGroupMap = nil then LoadDGroupMap; // to make sure broker not called while looping thru Results + CallV('ORWORR GET', [Patient.DFN, Filter, Groups]); + with RPCBrokerV do while Results.Count > 0 do + begin + x := Results[0]; + Results.Delete(0); + if CharAt(x, 1) <> '~' then Continue; // only happens if out of synch + y := ''; + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + y := y + Copy(Results[0], 2, Length(Results[0])) + CRLF; + Results.Delete(0); + end; + if Length(y) > 0 then y := Copy(y, 1, Length(y) - 2); // take off last CRLF + z := ''; + if (Results.Count > 0) and (Results[0] = '|') then + begin + Results.Delete(0); + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + z := z + Copy(Results[0], 2, Length(Results[0])); + Results.Delete(0); + end; + end; + AnOrder := TOrder.Create; + SetOrderFields(AnOrder, x, y, z); + Dest.Add(AnOrder); + end; +end; + +procedure LoadOrdersAbbr(Dest: TList; AView: TOrderView; APtEvtID: string); +//Filter, Specialty, Groups: Integer; var TextView: Integer; +// var CtxtTime: TFMDateTime); +var + i: Integer; + AnOrder: TOrder; + FilterTS: string; +begin + ClearOrders(Dest); + if uDGroupMap = nil then LoadDGroupMap; // to make sure broker not called while looping thru Results + FilterTS := IntToStr(AView.Filter) + U + IntToStr(AView.EventDelay.Specialty); + CallV('ORWORR AGET', [Patient.DFN, FilterTS, AView.DGroup, AView.TimeFrom, AView.TimeThru, APtEvtID]); + if ((Piece(RPCBrokerV.Results[0], U, 1) = '0') or (Piece(RPCBrokerV.Results[0], U, 1) = '')) and (AView.Filter = 5) then // if no expiring orders found display expired orders) + begin + CallV('ORWORR AGET', [Patient.DFN, '27^0', AView.DGroup, ExpiredOrdersStartDT, FMNow, APtEvtID]); + AView.ViewName := 'Recently Expired Orders (No Expiring Orders Found) -' + Piece(AView.ViewName, '-', 2); + end; + {if (Piece(RPCBrokerV.Results[0], U, 1) = '0') or (Piece(RPCBrokerV.Results[0], U, 1) = '') then // if no orders found (0 element is count) + begin + AnOrder := TOrder.Create; + with AnOrder do + begin + ID := '0'; + DGroup := 0; + OrderTime := FMNow; + Status := 97; + Text := 'No orders found.'; + Retrieved := True; + end; + Dest.Add(AnOrder); + Exit; + end;} + AView.TextView := StrToIntDef(Piece(RPCBrokerV.Results[0], U, 2), 0); + AView.CtxtTime := MakeFMDateTime(Piece(RPCBrokerV.Results[0], U, 3)); + with RPCBrokerV do for i := 1 to Results.Count - 1 do // if orders found (skip 0 element) + begin + if (Piece(RPCBrokerV.Results[i], U, 1) = '0') or (Piece(RPCBrokerV.Results[i], U, 1) = '') then Continue; + if (DelimCount(Results[i],U) = 2) then Continue; + AnOrder := TOrder.Create; + with AnOrder do + begin + ID := Piece(Results[i], U, 1); + DGroup := StrToIntDef(Piece(Results[i], U, 2), 0); + OrderTime := MakeFMDateTime(Piece(Results[i], U, 3)); + EventPtr := Piece(Results[i],U,4); + EventName := Piece(Results[i],U,5); + DGroupSeq := SeqOfDGroup(DGroup); + end; + Dest.Add(AnOrder); + end; +end; + +procedure LoadOrdersAbbr(DestDC,DestRL: TList; AView: TOrderView; APtEvtID: string); +var + i: Integer; + AnOrder: TOrder; + FilterTS: string; + DCStart: boolean; +begin + DCStart := False; + if uDGroupMap = nil then LoadDGroupMap; + FilterTS := IntToStr(AView.Filter) + U + IntToStr(AView.EventDelay.Specialty); + CallV('ORWORR RGET', [Patient.DFN, FilterTS, AView.DGroup, AView.TimeFrom, AView.TimeThru, APtEvtID]); + if RPCBrokerV.Results[0] = '0' then // if no orders found (0 element is count) + begin + AnOrder := TOrder.Create; + with AnOrder do + begin + ID := '0'; + DGroup := 0; + OrderTime := FMNow; + Status := 97; + Text := 'No orders found.'; + Retrieved := True; + end; + DestDC.Add(AnOrder); + Exit; + end; + AView.TextView := StrToIntDef(Piece(RPCBrokerV.Results[0], U, 2), 0); + AView.CtxtTime := MakeFMDateTime(Piece(RPCBrokerV.Results[0], U, 3)); + with RPCBrokerV do for i := 1 to Results.Count - 1 do // if orders found (skip 0 element) + begin + if AnsiCompareText('DC START', Results[i]) = 0 then + begin + DCStart := True; + Continue; + end; + AnOrder := TOrder.Create; + with AnOrder do + begin + ID := Piece(Results[i], U, 1); + DGroup := StrToIntDef(Piece(Results[i], U, 2), 0); + OrderTime := MakeFMDateTime(Piece(Results[i], U, 3)); + EventPtr := Piece(Results[i],U,4); + EventName := Piece(Results[i],U,5); + DGroupSeq := SeqOfDGroup(DGroup); + end; + if DCStart then + DestDC.Add(AnOrder) + else + DestRL.Add(AnOrder); + end; +end; + +procedure LoadOrderSheets(Dest: TStrings); +begin + CallV('ORWOR SHEETS', [Patient.DFN]); + MixedCaseByPiece(RPCBrokerV.Results, U, 2); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure LoadOrderSheetsED(Dest: TStrings); +var + i: integer; +begin + CallV('OREVNTX PAT', [Patient.DFN]); + MixedCaseByPiece(RPCBrokerV.Results, U, 2); + Dest.Add('C;O^Current View'); + if RPCBrokerV.Results.Count > 1 then + begin + RPCBrokerV.Results.Delete(0); + for i := 0 to RPCbrokerV.Results.Count - 1 do + RPCBrokerV.Results[i] := RPCBrokerV.Results[i] + ' Orders'; + Dest.AddStrings(RPCBrokerV.Results); + end; +end; + +procedure LoadOrderViewDefault(AView: TOrderView); +var + x: string; +begin + x := sCallV('ORWOR VWGET', [nil]); + with AView do + begin + Changed := False; + DGroup := StrToIntDef(Piece(x, ';', 4), 0); + Filter := StrToIntDef(Piece(x, ';', 3), 0); + InvChrono := Piece(x, ';', 6) = 'R'; + ByService := Piece(x, ';', 7) = '1'; + TimeFrom := StrToFloat(Piece(x, ';', 1)); + TimeThru := StrToFloat(Piece(x, ';', 2)); + CtxtTime := 0; + TextView := 0; + ViewName := Piece(x, ';', 8); + EventDelay.EventType := 'C'; + EventDelay.Specialty := 0; + EventDelay.Effective := 0; + end; +end; + +procedure LoadUnsignedOrders(IDList, HaveList: TStrings); +var + i: Integer; +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWOR UNSIGN'; + Param[0].PType := literal; + Param[0].Value := Patient.DFN; + Param[1].PType := list; + Param[1].Mult['0'] := ''; // (to prevent broker from hanging if empty list) + for i := 0 to Pred(HaveList.Count) do Param[1].Mult['"' + HaveList[i] + '"'] := ''; + CallBroker; + IDList.Assign(Results); + end; +end; + +procedure RetrieveOrderFields(OrderList: TList; ATextView: Integer; ACtxtTime: TFMDateTime); +var + i, OrderIndex: Integer; + x, y, z: string; + AnOrder: TOrder; + IDList: TStringList; +begin + IDList := TStringList.Create; + try + with OrderList do for i := 0 to Count - 1 do IDList.Add(TOrder(Items[i]).ID); + CallV('ORWORR GET4LST', [ATextView, ACtxtTime, IDList]); + finally + IDList.Free; + end; + OrderIndex := -1; + with RPCBrokerV do while Results.Count > 0 do + begin + Inc(OrderIndex); + if (OrderIndex >= OrderList.Count) then + begin + Results.Delete(0); + Continue; + end; + AnOrder := TOrder(OrderList.Items[OrderIndex]); + x := Results[0]; + Results.Delete(0); + if CharAt(x, 1) <> '~' then Continue; // only happens if out of synch + if Piece(x, U, 1) <> '~' + AnOrder.ID then Continue; // only happens if out of synch + y := ''; + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + y := y + Copy(Results[0], 2, Length(Results[0])) + CRLF; + Results.Delete(0); + end; + if Length(y) > 0 then y := Copy(y, 1, Length(y) - 2); // take off last CRLF + z := ''; + if (Results.Count > 0) and (Results[0] = '|') then + begin + Results.Delete(0); + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + z := z + Copy(Results[0], 2, Length(Results[0])); + Results.Delete(0); + end; + end; + SetOrderFields(AnOrder, x, y, z); + end; +end; + +procedure SaveOrderViewDefault(AView: TOrderView); +var + x: string; +begin + with AView do + begin + x := MakeRelativeDateTime(TimeFrom) + ';' + // 1 + MakeRelativeDateTime(TimeThru) + ';' + // 2 + IntToStr(Filter) + ';' + // 3 + IntToStr(DGroup) + ';;'; // 4, skip 5 + if InvChrono then x := x + 'R;' else x := x + 'F;'; // 6 + if ByService then x := x + '1' else x := x + '0'; // 7 + CallV('ORWOR VWSET', [x]); + end; +end; + +{ MOVE THESE FUNCTIONS INTO UORDERS??? } + +{ < 0 if Item1 is less and Item2, 0 if they are equal and > 0 if Item1 is greater than Item2 } +function InverseByGroup(Item1, Item2: Pointer): Integer; +var + Order1, Order2: TOrder; + DSeq1, DSeq2, IFN1, IFN2: Integer; +begin + Order1 := TOrder(Item1); + Order2 := TOrder(Item2); + if ( (Piece(Order1.ID, ';', 2) = '1') and (Changes.Exist(CH_ORD, Order1.ID)) ) + and ( StrToIntDef(Order1.EventPtr,0) = 0 ) then + DSeq1 := 0 + else DSeq1 := Order1.DGroupSeq; + if ((Piece(Order2.ID, ';', 2) = '1') and (Changes.Exist(CH_ORD, Order2.ID))) + and ( StrToIntDef(Order1.EventPtr,0) = 0 ) then + DSeq2 := 0 + else DSeq2 := Order2.DGroupSeq; + if DSeq1 = DSeq2 then + begin + if Order1.OrderTime > Order2.OrderTime then Result := -1 + else if Order1.OrderTime < Order2.OrderTime then Result := 1 + else Result := 0; + if Result = 0 then + begin + IFN1 := StrToIntDef(Piece(Order1.ID, ';', 1), 0); + IFN2 := StrToIntDef(Piece(Order2.ID, ';', 1), 0); + if IFN1 < IFN2 then Result := -1; + if IFN1 > IFN2 then Result := 1; + end; + end + else if DSeq1 < DSeq2 then Result := -1 + else Result := 1; +end; + +function ForwardByGroup(Item1, Item2: Pointer): Integer; +var + Order1, Order2: TOrder; + DSeq1, DSeq2, IFN1, IFN2: Integer; +begin + Order1 := TOrder(Item1); + Order2 := TOrder(Item2); + if (Piece(Order1.ID, ';', 2) = '1') and (Changes.Exist(CH_ORD, Order1.ID)) + then DSeq1 := 0 + else DSeq1 := Order1.DGroupSeq; + if (Piece(Order2.ID, ';', 2) = '1') and (Changes.Exist(CH_ORD, Order2.ID)) + then DSeq2 := 0 + else DSeq2 := Order2.DGroupSeq; + if DSeq1 = DSeq2 then + begin + if Order1.OrderTime < Order2.OrderTime then Result := -1 + else if Order1.OrderTime > Order2.OrderTime then Result := 1 + else Result := 0; + if Result = 0 then + begin + IFN1 := StrToIntDef(Piece(Order1.ID, ';', 1), 0); + IFN2 := StrToIntDef(Piece(Order2.ID, ';', 1), 0); + if IFN1 < IFN2 then Result := -1; + if IFN1 > IFN2 then Result := 1; + end; + end + else if DSeq1 < DSeq2 then Result := -1 + else Result := 1; +end; + +function InverseChrono(Item1, Item2: Pointer): Integer; +var + Order1, Order2: TOrder; + IFN1, IFN2: Integer; +begin + Order1 := TOrder(Item1); + Order2 := TOrder(Item2); + if Order1.OrderTime > Order2.OrderTime then Result := -1 + else if Order1.OrderTime < Order2.OrderTime then Result := 1 + else Result := 0; + if Result = 0 then + begin + IFN1 := StrToIntDef(Piece(Order1.ID, ';', 1), 0); + IFN2 := StrToIntDef(Piece(Order2.ID, ';', 1), 0); + if IFN1 < IFN2 then Result := -1; + if IFN1 > IFN2 then Result := 1; + end; +end; + +function ForwardChrono(Item1, Item2: Pointer): Integer; +var + Order1, Order2: TOrder; + IFN1, IFN2: Integer; +begin + Order1 := TOrder(Item1); + Order2 := TOrder(Item2); + if Order1.OrderTime < Order2.OrderTime then Result := -1 + else if Order1.OrderTime > Order2.OrderTime then Result := 1 + else Result := 0; + if Result = 0 then + begin + IFN1 := StrToIntDef(Piece(Order1.ID, ';', 1), 0); + IFN2 := StrToIntDef(Piece(Order2.ID, ';', 1), 0); + if IFN1 < IFN2 then Result := -1; + if IFN1 > IFN2 then Result := 1; + end; +end; + +procedure SortOrders(AList: TList; ByGroup, InvChron: Boolean); +begin + if ByGroup then + begin + if InvChron then AList.Sort(InverseByGroup) else AList.Sort(ForwardByGroup); + end else + begin + if InvChron then AList.Sort(InverseChrono) else AList.Sort(ForwardChrono); + end; +end; + +function DGroupAll: Integer; +var + x: string; +begin + if uDGroupAll = 0 then + begin + x := sCallV('ORWORDG IEN', ['ALL']); + uDGroupAll := StrToIntDef(x, 1); + end; + Result := uDGroupAll; +end; + +function DGroupIEN(AName: string): Integer; +begin + Result := StrToIntDef(sCallV('ORWORDG IEN', [AName]), 0); +end; + +procedure ListDGroupAll(Dest: TStrings); +begin + CallV('ORWORDG ALLTREE', [nil]); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure ListSpecialties(Dest: TStrings); +begin + CallV('ORWOR TSALL', [nil]); + MixedCaseList(RPCBrokerV.Results); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure ListSpecialtiesED(AType: Char; Dest: TStrings); +var + i :integer; + Currloc: integer; + admitEvts: TStringList; + otherEvts: TStringList; + commonList: TStringList; +begin + if Encounter <> nil then + Currloc := Encounter.Location + else + Currloc := 0; + commonList := TStringList.Create; + CallV('OREVNTX1 CMEVTS',[Currloc]); + //MixedCaseList(RPCBrokerV.Results); + if RPCBrokerV.Results.Count > 0 then with RPCBrokerV do for i := 0 to Results.Count - 1 do + begin + if AType = 'D' then + begin + if AType = Piece(Results[i],'^',3) then + commonList.Add(Results[i]); + end + else if AType = 'A' then + begin + if (Piece(Results[i],'^',3) = 'T') or (Piece(Results[i],'^',3) = 'D') then + Continue; + commonList.Add(Results[i]); + end + else + begin + if Length(Results[i])> 0 then + commonList.Add(Results[i]); + end; + end; + if commonList.Count > 0 then + begin + Dest.AddStrings(TStrings(commonList)); + Dest.Add('^^^^^^^^___________________________________________________________________________________________'); + Dest.Add(LLS_SPACE); + end; + if AType = #0 then + begin + admitEvts := TStringList.Create; + otherEvts := TSTringList.Create; + CallV('OREVNTX ACTIVE',['A']); + //MixedCaseList(RPCBrokerV.Results); + if RPCBrokerV.Results.Count > 0 then + begin + RPCBrokerV.Results.Delete(0); + admitEvts.AddStrings(RPCBrokerV.Results); + end; + CallV('OREVNTX ACTIVE',['T^O^M^D']); + //MixedCaseList(RPCBrokerV.Results); + if RPCBrokerV.Results.Count > 0 then + begin + RPCBrokerV.Results.Delete(0); + otherEvts.AddStrings(RPCBrokerV.Results); + end; + Dest.AddStrings(TStrings(otherEvts)); + Dest.Add('^^^^^^^^_____________________________________________________________________________________________'); + Dest.Add(LLS_SPACE); + Dest.AddStrings(TStrings(admitEvts)); + admitEvts.Free; + otherEvts.Free; + end + else if AType = 'A' then + begin + CallV('OREVNTX ACTIVE',['A^O^M']); + //MixedCaseList(RPCBrokerV.Results); + if RPCBrokerV.Results.Count > 0 then + RPCBrokerV.Results.Delete(0); + Dest.AddStrings(RPCBrokerV.Results); + end + else + begin + CallV('OREVNTX ACTIVE',[AType]); + //MixedCaseList(RPCBrokerV.Results); + if RPCBrokerV.Results.Count > 0 then + RPCBrokerV.Results.Delete(0); + Dest.AddStrings(RPCBrokerV.Results); + end; +end; + +procedure ListOrderFilters(Dest: TStrings); +begin + CallV('ORWORDG REVSTS', [nil]); + Dest.Assign(RPCBrokerV.Results); +end; + + +procedure ListOrderFiltersAll(Dest: TStrings); +begin + CallV('ORWORDG REVSTS', [nil]); + Dest.Assign(RPCBrokerV.Results); +end; + +{ Write Orders } + +procedure BuildResponses(var ResolvedDialog: TOrderDialogResolved; const KeyVars: string; + AnEvent: TOrderDelayEvent; ForIMO: boolean); +const + BoolChars: array[Boolean] of Char = ('0', '1'); + RESERVED_PIECE = ''; +var + DelayEvent, x, TheOrder: string; + Idx, tmpOrderGroup, PickupIdx, ForIMOResponses: integer; + IfUDGrp: Boolean; + IfUDGrpForQO: Boolean; + temp: string; +begin + ForIMOResponses := 0; + tmpOrderGroup := 0; + temp := ''; + if ForIMO then ForIMOResponses := 1; + PickupIdx := 0; + IfUDGrp := False; + TheOrder := ResolvedDialog.InputID; + IfUDGrpForQO := CheckQOGroup(TheOrder); + if (CharAt(TheOrder,1) in ['C','T']) then + begin + Delete(TheOrder,1,1); + tmpOrderGroup := CheckOrderGroup(TheOrder); + if tmpOrderGroup = 1 then IfUDGrp := True else IfUDGrp := False; + end; + if (not IfUDGrp) and (AnEvent.EventType in ['A','T']) then + IfUDGrp := True; + //FLDS=DFN^LOC^ORNP^INPT^SEX^AGE^EVENT^SC%^^^Key Variables + if (Patient.Inpatient = true) and (tmpOrderGroup = 2) then temp := '0'; + if temp <> '0' then temp := BoolChars[Patient.Inpatient]; + with AnEvent do + begin + if isNewEvent then + DelayEvent := '0;'+ EventType + ';' + IntToStr(Specialty) + ';' + FloatToStr(Effective) + else + DelayEvent := IntToStr(AnEvent.PtEventIFN) + ';' + EventType + ';' + IntToStr(Specialty) + ';' + FloatToStr(Effective); + end; + x := Patient.DFN + U + // 1 + IntToStr(Encounter.Location) + U + // 2 + IntToStr(Encounter.Provider) + U + // 3 + BoolChars[Patient.Inpatient] + U + // 4 + Patient.Sex + U + // 5 + IntToStr(Patient.Age) + U + // 6 + DelayEvent + U + // 7 (for OREVENT) + IntToStr(Patient.SCPercent) + U + // 8 + RESERVED_PIECE + U + // 9 + RESERVED_PIECE + U + // 10 + KeyVars; + CallV('ORWDXM1 BLDQRSP', [ResolvedDialog.InputID, x, ForIMOResponses]); + // LST(0)=QuickLevel^ResponseID(ORIT;$H)^Dialog^Type^FormID^DGrp + with RPCBrokerV do + begin + x := Results[0]; + with ResolvedDialog do + begin + QuickLevel := StrToIntDef(Piece(x, U, 1), 0); + ResponseID := Piece(x, U, 2); + DialogIEN := StrToIntDef(Piece(x, U, 3), 0); + DialogType := CharAt(Piece(x, U, 4), 1); + FormID := StrToIntDef(Piece(x, U, 5), 0); + DisplayGroup := StrToIntDef(Piece(x, U, 6), 0); + QOKeyVars := Pieces(x, U, 7, 7 + MAX_KEYVARS); + Results.Delete(0); + if Results.Count > 0 then + begin + if (IfUDGrp) or (IfUDGrpForQO) then + begin + for Idx := 0 to Results.Count - 1 do + begin + if(Pos('PICK UP',UpperCase(Results[idx])) > 0) or (Pos('PICK-UP',UpperCase(Results[idx])) > 0) then + begin + PickupIdx := Idx; + Break; + end; + end; + end; + if PickupIdx > 0 then + Results.Delete(PickupIdx); + SetString(ShowText, Results.GetText, StrLen(Results.GetText)); + end; + end; + end; +end; + +procedure ClearOrderRecall; +begin + CallV('ORWDXM2 CLRRCL', [nil]); +end; + +function CommonLocationForOrders(OrderList: TStringList): Integer; +begin + Result := StrToIntDef(sCallV('ORWD1 COMLOC', [OrderList]), 0); +end; + +function FormIDForDialog(IEN: Integer): Integer; +begin + Result := StrToIntDef(sCallV('ORWDXM FORMID', [IEN]), 0); +end; + +function DlgIENForName(DlgName: string): Integer; +begin + Result := StrToIntDef(sCallV('OREVNTX1 DLGIEN',[DlgName]),0); +end; + +procedure LoadOrderMenu(AnOrderMenu: TOrderMenu; AMenuIEN: Integer); +var + OrderMenuItem: TOrderMenuItem; + i: Integer; +begin + CallV('ORWDXM MENU', [AMenuIEN]); + with RPCBrokerV do if Results.Count > 0 then + begin + // Results[0] = Name^Cols^PathSwitch^^^LRFZX^LRFSAMP^LRFSPEC^LRFDATE^LRFURG^LRFSCH^PSJNPOC^ + // GMRCNOPD^GMRCNOAT^GMRCREAF^^^^^ + AnOrderMenu.Title := Piece(Results[0], U, 1); + AnOrderMenu.NumCols := StrToIntDef(Piece(Results[0], U, 2), 1); + AnOrderMenu.KeyVars := Pieces(Results[0], U, 6, 6 + MAX_KEYVARS); + for i := 1 to Results.Count - 1 do + begin + OrderMenuItem := TOrderMenuItem.Create; + with OrderMenuItem do + begin + Col := StrToIntDef(Piece(Results[i], U, 1), 0) - 1; + Row := StrToIntDef(Piece(Results[i], U, 2), 0) - 1; + DlgType := CharAt(Piece(Results[i], U, 3), 1); + IEN := StrToIntDef(Piece(Results[i], U, 4), 0); + FormID := StrToIntDef(Piece(Results[i], U, 5), 0); + AutoAck := Piece(Results[i], U, 6) = '1'; + ItemText := Piece(Results[i], U, 7); + Mnemonic := Piece(Results[i], U, 8); + Display := StrToIntDef(Piece(Results[i], U, 9), 0); + end; {with OrderItem} + AnOrderMenu.MenuItems.Add(OrderMenuItem); + end; {for i} + end; {with RPCBrokerV} +end; + +procedure LoadOrderSet(SetItems: TStrings; AnIEN: Integer; var KeyVars, ACaption: string); +var + x: string; +begin + CallV('ORWDXM LOADSET', [AnIEN]); + KeyVars := ''; + ACaption := ''; + if RPCBrokerV.Results.Count > 0 then + begin + x := RPCBrokerV.Results[0]; + ACaption := Piece(x, U, 1); + KeyVars := Copy(x, Pos(U, x) + 1, Length(x)); + RPCBrokerV.Results.Delete(0); + end; + SetItems.Assign(RPCBrokerV.Results); +end; + +procedure LoadWriteOrders(Dest: TStrings); +begin + CallV('ORWDX WRLST', [Encounter.Location]); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure LoadWriteOrdersED(Dest: TStrings; EvtID: string); +begin + CallV('OREVNTX1 WRLSTED', [Encounter.Location,EvtID]); + if RPCBrokerV.Results.count > 0 then + begin + Dest.Clear; + Dest.Assign(RPCBrokerV.Results); + end +end; + +function OrderDisabledMessage(DlgIEN: Integer): string; +begin + Result := sCallV('ORWDX DISMSG', [DlgIEN]); +end; + +procedure SendOrders(OrderList: TStringList; const ESCode: string); +var + i: Integer; +begin + { prepending the space to ESCode is temporary way to keep broker from crashing } + CallV('ORWDX SEND', [Patient.DFN, Encounter.Provider, Encounter.Location, ' ' + ESCode, OrderList]); + { this is a stop gap way to prevent an undesired error message when user chooses not to sign } + with RPCBrokerV do for i := 0 to Results.Count - 1 do + if Piece(Results[i], U, 4) = 'This order requires a signature.' + then Results[i] := Piece(Results[i], U, 1); + OrderList.Clear; + OrderList.Assign(RPCBrokerV.Results); +end; + +procedure SendReleaseOrders(OrderList: TStringList); +var + loc: string; + CurrTS: Integer; + PtTS: string; +begin + PtTS := Piece(GetCurrentSpec(Patient.DFN),'^',2); + CurrTS := StrToIntDef(PtTS,0); + Loc := IntToStr(Encounter.Location); + CallV('ORWDX SENDED',[OrderList,CurrTS,Loc]); + OrderList.Clear; + OrderList.Assign(RPCBrokerV.Results); +end; + +procedure SendAndPrintOrders(OrderList, ErrList: TStrings; const ESCode: string; const DeviceInfo: string); +var + i: Integer; +begin + { prepending the space to ESCode is temporary way to keep broker from crashing } + CallV('ORWDX SENDP', [Patient.DFN, Encounter.Provider, Encounter.Location, ' ' + ESCode, DeviceInfo, OrderList]); + { this is a stop gap way to prevent an undesired error message when user chooses not to sign } + with RPCBrokerV do for i := 0 to Results.Count - 1 do + if Piece(Results[i], U, 3) <> 'This order requires a signature.' + then ErrList.Add(Results[i]); +end; + +procedure PrintOrdersOnReview(OrderList: TStringList; const DeviceInfo: string); +begin + CallV('ORWD1 RVPRINT', [Encounter.Location, DeviceInfo, OrderList]); +end; + +procedure PrintServiceCopies(OrderList: TStringList); {*REV*} +begin + CallV('ORWD1 SVONLY', [Encounter.Location, OrderList]); +end; + +procedure ExecutePrintOrders(SelectedList: TStringList; const DeviceInfo: string); +begin + CallV('ORWD1 PRINTGUI', [Encounter.Location, DeviceInfo, SelectedList]); +end; + +{ Order Actions } + +function DialogForOrder(const ID: string): Integer; +begin + Result := StrToIntDef(sCallV('ORWDX DLGID', [ID]), 0); +end; + +function FormIDForOrder(const ID: string): Integer; +begin + Result := StrToIntDef(sCallV('ORWDX FORMID', [ID]), 0); +end; + +procedure SetOrderFromResults(AnOrder: TOrder); +var + x, y, z: string; +begin + with RPCBrokerV do while Results.Count > 0 do + begin + x := Results[0]; + Results.Delete(0); + if CharAt(x, 1) <> '~' then Continue; // only happens if out of synch + y := ''; + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + y := y + Copy(Results[0], 2, Length(Results[0])) + CRLF; + Results.Delete(0); + end; + if Length(y) > 0 then y := Copy(y, 1, Length(y) - 2); // take off last CRLF + z := ''; + if (Results.Count > 0) and (Results[0] = '|') then + begin + Results.Delete(0); + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + z := z + Copy(Results[0], 2, Length(Results[0])); //PKI Change + Results.Delete(0); + end; + end; + SetOrderFields(AnOrder, x, y, z); + end; +end; + +procedure LockPatient(var ErrMsg: string); +begin + ErrMsg := sCallV('ORWDX LOCK', [Patient.DFN]); + if Piece(ErrMsg, U, 1) = '1' then ErrMsg := '' else ErrMsg := Piece(ErrMsg, U, 2); +end; + +procedure UnlockPatient; +begin + sCallV('ORWDX UNLOCK', [Patient.DFN]); +end; + +procedure LockOrder(OrderID: string; var ErrMsg: string); +begin + ErrMsg := sCallV('ORWDX LOCK ORDER', [OrderID]); + if Piece(ErrMsg, U, 1) = '1' then ErrMsg := '' else ErrMsg := Piece(ErrMsg, U, 2); +end; + +procedure UnlockOrder(OrderID: string); +begin + sCallV('ORWDX UNLOCK ORDER', [OrderID]); +end; + +procedure ValidateOrderAction(const ID, Action: string; var ErrMsg: string); +begin + ErrMsg := sCallV('ORWDXA VALID', [ID, Action, Encounter.Provider]); +end; + +procedure ValidateOrderActionNature(const ID, Action, Nature: string; var ErrMsg: string); +begin + ErrMsg := sCallV('ORWDXA VALID', [ID, Action, Encounter.Provider, Nature]); +end; + +procedure IsLatestAction(const ID: string; var ErrList: TStringList); +begin + CallV('ORWOR ACTION TEXT',[ID]); + if RPCBrokerV.Results.Count > 0 then + Errlist.Assign(RPCBrokerV.Results); +end; + +procedure ChangeOrder(AnOrder: TOrder; ResponseList: TList); +begin +end; + +procedure RenewOrder(AnOrder: TOrder; RenewFields: TOrderRenewFields; IsComplex: integer; AnIMOOrderAppt: double; OCList: TStringList); +{ put RenewFields into tmplst[0]=BaseType^Start^Stop^Refills^Pickup, tmplst[n]=comments } +var + tmplst: TStringList; + i: integer; + y: string; +begin + + tmplst := TStringList.Create; + + {Begin Billing Aware} + UBAGlobals.SourceOrderID := AnOrder.ID; + {End Billing Aware} + + try + with RenewFields do + begin + tmplst.SetText(PChar(Comments)); + tmplst.Insert(0, IntToStr(BaseType) + U + StartTime + U + StopTime + U + IntToStr(Refills) + U + Pickup); + end; + + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'ORWDXR RENEW'; + Param[0].PType := literal; + Param[0].Value := AnOrder.ID; + Param[1].PType := literal; + Param[1].Value := Patient.DFN; + Param[2].PType := literal; + Param[2].Value := IntToStr(Encounter.Provider); + Param[3].PType := literal; + Param[3].Value := IntToStr(Encounter.Location); + Param[4].PType := list; + for i := 0 to tmplst.Count - 1 do + Param[4].Mult[IntToStr(i+1)] := tmplst[i]; + Param[4].Mult['"ORCHECK"'] := IntToStr(OCList.Count); + for i := 0 to OCList.Count - 1 do + begin + // put quotes around everything to prevent broker from choking + y := '"ORCHECK","' + Piece(OCList[i], U, 1) + '","' + Piece(OCList[i], U, 3) + + '","' + IntToStr(i+1) + '"'; + Param[4].Mult[y] := Pieces(OCList[i], U, 2, 4); + end; + Param[5].PType := literal; + Param[5].Value := IntToStr(IsComplex); + Param[6].PType := literal; + Param[6].Value := FloatToStr(AnIMOOrderAppt); + CallBroker; + SetOrderFromResults(AnOrder); + + {Begin Billing Aware} + UBAGlobals.TargetOrderID := AnOrder.ID; //the ID of the renewed order + UBAGlobals.CopyTreatmentFactorsDxsToRenewedOrder; + {End Billing Aware} + + end; + finally + tmplst.Free; + end; +end; + +procedure HoldOrder(AnOrder: TOrder); +begin + CallV('ORWDXA HOLD', [AnOrder.ID, Encounter.Provider]); + SetOrderFromResults(AnOrder); +end; + +procedure ReleaseOrderHold(AnOrder: TOrder); +begin + CallV('ORWDXA UNHOLD', [AnOrder.ID, Encounter.Provider]); + SetOrderFromResults(AnOrder); +end; + +procedure ListDCReasons(Dest: TStrings; var DefaultIEN: Integer); +begin + CallV('ORWDXA DCREASON', [nil]); + ExtractItems(Dest, RPCBrokerV.Results, 'DCReason'); + //AGP Change 26.15 for PSI-04-63 + //DefaultIEN := StrToIntDef(Piece(ExtractDefault(RPCBrokerV.Results, 'DCReason'), U, 1), 0); +end; + +function GetREQReason: Integer; +begin + Result := StrToIntDef(sCallV('ORWDXA DCREQIEN', [nil]), 0); +end; + +procedure DCOrder(AnOrder: TOrder; AReason: Integer; var DCType: Integer); +var + AParentID : string; +begin + AParentID := AnOrder.ParentID; + CallV('ORWDXA DC', [AnOrder.ID, Encounter.Provider, Encounter.Location, AReason]); + UBACore.DeleteDCOrdersFromCopiedList(AnOrder.ID); + DCType := StrToIntDef(Piece(RPCBrokerV.Results[0], U, 14), 0); + SetOrderFromResults(AnOrder); + AnOrder.ParentID := AParentID; +end; + +procedure AlertOrder(AnOrder: TOrder; AlertRecip: Int64); +begin + CallV('ORWDXA ALERT', [AnOrder.ID, AlertRecip]); + // don't worry about results +end; + +procedure FlagOrder(AnOrder: TOrder; const FlagReason: string; AlertRecip: Int64); +begin + CallV('ORWDXA FLAG', [AnOrder.ID, FlagReason, AlertRecip]); + SetOrderFromResults(AnOrder); +end; + +procedure LoadFlagReason(Dest: TStrings; const ID: string); +begin + CallV('ORWDXA FLAGTXT', [ID]); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure UnflagOrder(AnOrder: TOrder; const AComment: string); +begin + CallV('ORWDXA UNFLAG', [AnOrder.ID, AComment]); + SetOrderFromResults(AnOrder); +end; + +procedure LoadWardComments(Dest: TStrings; const ID: string); +begin + CallV('ORWDXA WCGET', [ID]); + Dest.Assign(RPCBrokerV.Results); +end; + +procedure PutWardComments(Src: TStrings; const ID: string; var ErrMsg: string); +begin + ErrMsg := sCallV('ORWDXA WCPUT', [ID, Src]); +end; + +procedure CompleteOrder(AnOrder: TOrder; const ESCode: string); +begin + CallV('ORWDXA COMPLETE', [AnOrder.ID, ESCode]); + SetOrderFromResults(AnOrder); +end; + +procedure VerifyOrder(AnOrder: TOrder; const ESCode: string); +begin + CallV('ORWDXA VERIFY', [AnOrder.ID, ESCode]); + SetOrderFromResults(AnOrder); +end; + +procedure VerifyOrderChartReview(AnOrder: TOrder; const ESCode: string); +begin + CallV('ORWDXA VERIFY', [AnOrder.ID, ESCode, 'R']); + SetOrderFromResults(AnOrder); +end; + +function GetOrderableIen(AnOrderId:string): integer; +begin + Result := StrToIntDef(sCallV('ORWDXR GTORITM', [AnOrderId]),0); +end; + +procedure StoreDigitalSig(AID, AHash: string; AProvider: Int64; ASig, ACrlUrl: string; var AError: string); +var + len, ix: integer; + ASigAray: TStringList; +begin + ASigAray := TStringList.Create; + ix := 1; + len := length(ASig); + while len >= ix do + begin + ASigAray.Add(copy(ASig, ix, 240)); + inc(ix, 240); + end; //while + try + CallV('ORWOR1 SIG', [AID, AHash, len, '100', AProvider, ASigAray, ACrlUrl]); + with RPCBrokerV do + if piece(Results[0],'^',1) = '-1' then + begin + ShowMessage('Storage of Digital Signature FAILED: ' + piece(Results[0],'^',2) + CRLF + CRLF + + 'This error will prevent this order from being sent to the service for processing. Please cancel the order and try again.' + CRLF + CRLF + + 'If this problem persists, then there is a problem in the CPRS PKI interface, and it needs to be reported through the proper channels, to the developer Cary Malmrose.'); + AError := '1'; + end; + finally + ASigAray.Free; + end; +end; + +procedure UpdateOrderDGIfNeeded(AnID: string); +var + NeedUpdate: boolean; + tmpDFN: string; +begin + tmpDFN := Patient.DFN; + Patient.Clear; + Patient.DFN := tmpDFN; + NeedUpdate := SCallV('ORWDPS4 IPOD4OP', [AnID]) = '1'; + if Patient.Inpatient and needUpdate then + SCallV('ORWDPS4 UPDTDG',[AnID]); +end; + +function CanEditSuchRenewedOrder(AnID: string; IsTxtOrder: integer): boolean; +begin + Result := SCallV('ORWDXR01 CANCHG',[AnID,IsTxtOrder]) = '1'; +end; + +function IsPSOSupplyDlg(DlgID, QODlg: integer): boolean; +begin + Result := SCallV('ORWDXR01 ISSPLY',[DlgID,QODlg])='1'; +end; + +procedure SaveChangesOnRenewOrder(var AnOrder: TOrder; AnID, TheRefills, ThePickup: string; IsTxtOrder: integer); +begin + SCallV('ORWDXR01 SAVCHG',[AnID,TheRefills,ThePickup,IsTxtOrder]); + SetOrderFromResults(AnOrder); +end; + +{ Order Information } + +function OrderIsReleased(const ID: string): Boolean; +begin + Result := sCallV('ORWDXR ISREL', [ID]) = '1'; +end; + +procedure LoadRenewFields(RenewFields: TOrderRenewFields; const ID: string); +var + i: Integer; +begin + CallV('ORWDXR RNWFLDS', [ID]); + with RPCBrokerV, RenewFields do + begin + BaseType := StrToIntDef(Piece(Results[0], U, 1), 0); + StartTime := Piece(Results[0], U, 2); + StopTime := Piece(Results[0], U, 3); + Refills := StrToIntDef(Piece(Results[0], U, 4), 0); + Pickup := Piece(Results[0], U, 5); + Comments := ''; + for i := 1 to Results.Count - 1 do Comments := Comments + CRLF + Results[i]; + if Copy(Comments, 1, 2) = CRLF then Delete(Comments, 1, 2); + end; +end; + +procedure GetChildrenOfComplexOrder(AnParentID,CurrAct: string; var ChildList: TStringList); //PSI-COMPLEX +var + i: integer; +begin + CallV('ORWDXR ORCPLX',[AnParentID,CurrAct]); + if RPCBrokerV.Results.Count = 0 then Exit; + With RPCBrokerV do + begin + for i := 0 to Results.Count - 1 do + begin + if (Piece(Results[i],'^',1) <> 'E') and (Length(Results[i])>0) then + ChildList.Add(Results[i]); + end; + end; +end; + +procedure LESValidationForChangedLabOrder(var RejectedReason: TStringList; AnOrderInfo: string); +begin + CallV('ORWDPS5 LESAPI',[AnOrderInfo]); + if RPCBrokerV.Results.Count > 0 then + RejectedReason.Assign(RPCBrokerV.Results); +end; + +procedure ChangeEvent(AnOrderList: TStringList; APtEvtId: string); +begin + SCallV('OREVNTX1 CHGEVT', [APtEvtId,AnOrderList]); +end; + +procedure DeletePtEvent(APtEvtID: string); +begin + SCallV('OREVNTX1 DELPTEVT',[APtEvtID]); +end; + +function IsRenewableComplexOrder(AnParentID: string): boolean; //PSI-COMPLEX +var + rst: integer; +begin + Result := False; + rst := StrToIntDef(SCallV('ORWDXR CANRN',[AnParentID]),0); + if rst>0 then + Result := True; +end; + +function IsComplexOrder(AnOrderID: string): boolean; //PSI-COMPLEX +var + rst: integer; +begin + Result := False; + rst := StrToIntDef(SCallV('ORWDXR ISCPLX',[AnOrderID]),0); + if rst > 0 then + Result := True; +end; + +procedure ValidateComplexOrderAct(AnOrderID: string; var ErrMsg: string); //PSI-COMPLEX +begin + ErrMsg := SCallV('ORWDXA OFCPLX',[AnOrderID]); +end; + +function GetDlgData(ADlgID: string): string; +begin + Result := SCallV('OREVNTX1 GETDLG',[ADlgID]); +end; + +function PtEvtEmpty(APtEvtID: string): Boolean; +begin + Result := False; + if StrToIntDef(SCallV('OREVNTX1 EMPTY',[APtEvtID]),0)>0 then + Result := True; +end; + + +function TextForOrder(const ID: string): string; +begin + CallV('ORWORR GETTXT', [ID]); + Result := RPCBrokerV.Results.Text; +end; + +function GetConsultOrderNumber(ConsultIEN: string): string; +begin + Result := sCallv('ORQQCN GET ORDER NUMBER',[ConsultIEN]); +end; + +function GetOrderByIFN(const ID: string): TOrder; +var + x, y, z: string; + AnOrder: TOrder; +begin + AnOrder := TOrder.Create; + CallV('ORWORR GETBYIFN', [ID]); + with RPCBrokerV do while Results.Count > 0 do + begin + x := Results[0]; + Results.Delete(0); + if CharAt(x, 1) <> '~' then Continue; // only happens if out of synch + y := ''; + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + y := y + Copy(Results[0], 2, Length(Results[0])) + CRLF; + Results.Delete(0); + end; + if Length(y) > 0 then y := Copy(y, 1, Length(y) - 2); // take off last CRLF + z := ''; + if (Results.Count > 0) and (Results[0] = '|') then + begin + Results.Delete(0); + while (Results.Count > 0) and (CharAt(Results[0], 1) <> '~') and (CharAt(Results[0], 1) <> '|') do + begin + z := z + Copy(Results[0], 2, Length(Results[0])); //PKI Change + Results.Delete(0); + end; + end; + SetOrderFields(AnOrder, x, y, z); + end; + Result := AnOrder; +end; + +function GetPackageByOrderID(const OrderID: string): string; +begin + Result := SCallV('ORWDXR GETPKG',[OrderID]); +end; + +function AnyOrdersRequireSignature(OrderList: TStringList): Boolean; +begin + Result := sCallV('ORWD1 SIG4ANY', [OrderList]) = '1'; +end; + +function OrderRequiresSignature(const ID: string): Boolean; +begin + Result := sCallV('ORWD1 SIG4ONE', [ID]) = '1'; +end; + +function OrderRequiresDigitalSignature(const ID: string): Boolean; +begin + Result := sCallV('ORWOR1 CHKDIG', [ID]) = '1'; +end; + +function GetDrugSchedule(const ID: string): string; +begin + Result := sCallV('ORWOR1 GETDSCH', [ID]); +end; + +function GetExternalText(const ID: string): string; +var + x,y: string; +begin + CallV('ORWOR1 GETDTEXT', [ID]); + y := ''; + with RPCBrokerV do while Results.Count > 0 do + begin + x := Results[0]; + Results.Delete(0); + y := y + x; + end; + Result := y; +end; + +function SetExternalText(const ID: string; ADrugSch: string; AUser: Int64): string; +var + x,y: string; +begin + CallV('ORWOR1 SETDTEXT', [ID, ADrugSch, AUser]); + y := ''; + with RPCBrokerV do while Results.Count > 0 do + begin + x := Results[0]; + Results.Delete(0); + y := y + x; + end; + Result := y; +end; + +function GetDigitalSignature(const ID: string): string; +begin + CallV('ORWORR GETDSIG', [ID]); + Result := RPCBrokerV.Results.Text; +end; + +function GetDEA(const ID: string): string; +begin + CallV('ORWORR GETDEA', [ID]); + Result := RPCBrokerV.Results.Text; +end; + +function GetPKISite: Boolean; +begin + Result := sCallV('ORWOR PKISITE', [nil]) = '1'; +end; + +function GetPKIUse: Boolean; +begin + Result := sCallV('ORWOR PKIUSE', [nil]) = '1'; +end; + +function DoesOIPIInSigForQO(AnQOID: integer): integer; +begin + Result := StrToIntDef(SCallV('ORWDPS1 HASOIPI',[AnQOID]),0); +end; + +function GetDispGroupForLES: string; +begin + Result := SCallV('ORWDPS5 LESGRP',[nil]); +end; + +function GetOrderPtEvtID(AnOrderID: string): string; +begin + Result := SCallV('OREVNTX1 ODPTEVID',[AnOrderID]); +end; + +function VerbTelPolicyOrder(AnOrderID: string): boolean; +begin + Result := SCallV('ORWDPS5 ISVTP',[AnOrderID]) = '1'; +end; + +function ForIVandUD(AnOrderID: string): boolean; +begin + Result := SCallV('ORWDPS4 ISUDIV',[AnOrderID]) = '1'; +end; + +function GetEventIFN(const AEvntID: string): string; +begin + Result := sCallV('OREVNTX1 EVT',[AEvntID]); +end; + +function GetEventName(const AEvntID: string): string; +begin + Result := sCallV('OREVNTX1 NAME',[AEvntID]); +end; + +function GetEventLoc(const APtEvntID: string): string; +begin + Result := SCallV('OREVNTX1 LOC', [APtEvntID]); +end; + +function GetEventLoc1(const AnEvntID: string): string; +begin + Result := SCallV('OREVNTX1 LOC1', [AnEvntID]); +end; + +function GetEventDiv(const APtEvntID: string): string; +begin + Result := SCallV('OREVNTX1 DIV',[APtEvntID]); +end; + +function GetEventDiv1(const AnEvntID: string): string; +begin + Result := SCallV('OREVNTX1 DIV1',[AnEvntID]); +end; + +function GetCurrentSpec(const APtIFN: string): string; +begin + Result := SCallV('OREVNTX1 CURSPE', [APtIFN]); +end; + +function GetDefaultEvt(const AProviderIFN: string): string; +begin + Result := SCallV('OREVNTX1 DFLTEVT',[AProviderIFN]); +end; + +procedure DeleteDefaultEvt; +begin + SCallV('OREVNTX1 DELDFLT',[User.DUZ]); +end; + +function isExistedEvent(const APtDFN: string; const AEvtID: string; var APtEvtID: string): Boolean; +begin + Result := False; + APtEvtID := SCallV('OREVNTX1 EXISTS', [APtDFN,AEvtID]); + if StrToIntDef(APtEvtID,0) > 0 then + Result := True; +end; + +function TypeOfExistedEvent(APtDFN: string; AEvtID: Integer): Integer; +begin + Result := StrToIntDef(SCallV('OREVNTX1 TYPEXT', [APtDFN,AEvtID]),0); +end; + +function isMatchedEvent(const APtDFN: string; const AEvtID: string; var ATs:string): Boolean; +var + rst: string; +begin + Result := False; + rst := SCallV('OREVNTX1 MATCH',[APtDFN,AEvtID]); + if StrToIntDef(Piece(rst,'^',1),0)>0 then + begin + ATs := Piece(rst,'^',2); + Result := True; + end; +end; + +function isDCedOrder(const AnOrderID: string): Boolean; +var + rst: string; +begin + Result := False; + rst := SCAllV('OREVNTX1 ISDCOD',[AnOrderID]); + if STrToIntDef(rst,0)>0 then + Result := True; +end; + +function isOnholdMedOrder(AnOrderID: string): Boolean; +var + rst: string; +begin + Result := False; + rst := SCAllV('OREVNTX1 ISHDORD',[AnOrderID]); + if StrToIntDef(rst,0)>0 then + Result := True; +end; + +function SetDefaultEvent(var AErrMsg: string; EvtID: string): Boolean; +begin + AErrMsg := SCallV('OREVNTX1 SETDFLT',[EvtID]); + Result := True; +end; + +function GetEventPromptID: integer; +var + evtPrompt: string; +begin + evtPrompt := SCallV('OREVNTX1 PRMPTID',[nil]); + Result := StrToIntDef(evtPrompt,0); +end; + +function GetDefaultTSForEvt(AnEvtID: integer): string; +begin + Result := SCallV('OREVNTX1 DEFLTS',[AnEvtID]); +end; + +function GetPromptIDs: string; +begin + Result := SCallV('OREVNTX1 PROMPT IDS',[nil]); +end; + +function GetEventDefaultDlg(AEvtID: integer): string; +begin + Result := SCallV('OREVNTX1 DFLTDLG',[AEvtID]); +end; + +function CanManualRelease: boolean; +var + rst: integer; +begin + Result := False; + rst := StrToIntDef(SCallV('OREVNTX1 AUTHMREL',[nil]),0); + if rst > 0 then + Result := True; +end; + +function TheParentPtEvt(APtEvt: string): string; +begin + Result := SCallV('OREVNTX1 HAVEPRT',[APtEvt]); +end; + +function IsCompletedPtEvt(APtEvtID: integer): boolean; +var + rst : integer; +begin + Result := False; + rst := StrToIntDef(SCallV('OREVNTX1 COMP',[APtEvtID]),0); + if rst > 0 then + Result := True; +end; + +function IsPassEvt(APtEvtID: integer; APtEvtType: char): boolean; +var + rst: integer; +begin + Result := False; + rst := StrToIntDef(SCallV('OREVNTX1 ISPASS',[APtEvtID, APtEvtType]),0); + if rst = 1 then + Result := True; +end; + +function IsPassEvt1(AnEvtID: integer; AnEvtType: char): boolean; +var + rst: integer; +begin + Result := False; + rst := StrToIntDef(SCallV('OREVNTX1 ISPASS1',[AnEvtID, AnEvtType]),0); + if rst = 1 then + Result := True; +end; + +procedure TerminatePtEvt(APtEvtID: integer); +begin + SCallV('OREVNTX1 DONE',[APtEvtID]); +end; + +procedure SetPtEvtList(Dest: TStrings; APtDFN: string; var ATotal: Integer); +begin + CallV('OREVNTX LIST',[APtDFN]); + if RPCBrokerV.Results.Count > 0 then + begin + ATotal := StrToIntDef(RPCBrokerV.Results[0],0); + if ATotal > 0 then + begin + MixedCaseList( RPCBrokerV.Results ); + RPCBrokerV.Results.Delete(0); + Dest.Assign(RPCBrokerV.Results); + end; + end; +end; + +procedure GetTSListForEvt(Dest: TStrings; AnEvtID:integer); +begin + CallV('OREVNTX1 MULTS',[AnEvtID]); + if RPCBrokerV.Results.Count > 0 then + begin + SortByPiece(TStringList(RPCBrokerV.Results),'^',2); + Dest.Assign(RPCBrokerV.Results); + end; +end; + +procedure GetChildEvent(var AChildList: TStringList; APtEvtID: string); +begin +// +end; + +function DeleteEmptyEvt(APtEvntID: string; var APtEvntName: string; Ask: boolean): boolean; +const + TX_EVTDEL1 = 'There are no orders tied to '; + TX_EVTDEL2 = ', Would you like to cancel it?'; +begin + Result := false; + if APtEvntID = '0' then + begin + Result := True; + Exit; + end; + if PtEvtEmpty(APtEvntID) then + begin + if Length(APtEvntName)=0 then + APtEvntName := GetEventName(APtEvntID); + if Ask then + begin + if InfoBox(TX_EVTDEL1 + APtEvntName + TX_EVTDEL2, 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + begin + DeletePtEvent(APtEvntID); + Result := True; + end; + end; + if not Ask then + begin + DeletePtEvent(APtEvntID); + Result := True; + end; + + end; +end; + +function CompleteEvt(APtEvntID: string; APtEvntName: string; Ask: boolean): boolean; +const + TX_EVTFIN1 = 'All of the orders tied to '; + TX_EVTFIN2 = ' have been released to a service, ' + #13 + 'Would you like to terminate this event?'; +var + ThePtEvtName: string; +begin + Result := false; + if APtEvntID = '0' then + begin + Result := True; + Exit; + end; + if PtEvtEmpty(APtEvntID) then + begin + if Length(APtEvntName)=0 then + ThePtEvtName := GetEventName(APtEvntID) + else + ThePtEvtName := APtEvntName; + if Ask then + begin + if InfoBox(TX_EVTFIN1 + ThePtEvtName + TX_EVTFIN2, 'Confirmation', MB_OKCANCEL or MB_ICONQUESTION) = IDOK then + begin + SCallV('OREVNTX1 DONE',[APtEvntID]); + Result := True; + end; + end else + begin + SCallV('OREVNTX1 DONE',[APtEvntID]); + Result := True; + end; + end; +end; + +{ Order Checking } + +function FillerIDForDialog(IEN: Integer): string; +begin + Result := sCallV('ORWDXC FILLID', [IEN]); +end; + +function OrderChecksEnabled: Boolean; +begin + if uOrderChecksOn = #0 then uOrderChecksOn := CharAt(sCallV('ORWDXC ON', [nil]), 1); + Result := uOrderChecksOn = 'E'; +end; + +function OrderChecksOnDisplay(const FillerID: string): string; +begin + CallV('ORWDXC DISPLAY', [Patient.DFN, FillerID]); + with RPCBrokerV.Results do SetString(Result, GetText, Length(Text)); +end; + +procedure OrderChecksOnAccept(ListOfChecks: TStringList; const FillerID, StartDtTm: string; + OIList: TStringList; DupORIFN: string); +begin + // don't pass OIList if no items, since broker pauses 5 seconds per order + if OIList.Count > 0 + then CallV('ORWDXC ACCEPT', [Patient.DFN, FillerID, StartDtTm, Encounter.Location, OIList, DupORIFN]) + else CallV('ORWDXC ACCEPT', [Patient.DFN, FillerID, StartDtTm, Encounter.Location]); + ListOfChecks.Assign(RPCBrokerV.Results); +end; + +procedure OrderChecksOnDelay(ListOfChecks: TStringList; const FillerID, StartDtTm: string; + OIList: TStringList); +begin + // don't pass OIList if no items, since broker pauses 5 seconds per order + if OIList.Count > 0 + then CallV('ORWDXC DELAY', [Patient.DFN, FillerID, StartDtTm, Encounter.Location, OIList]) + else CallV('ORWDXC DELAY', [Patient.DFN, FillerID, StartDtTm, Encounter.Location]); + ListOfChecks.Assign(RPCBrokerV.Results); +end; + +procedure OrderChecksForSession(ListOfChecks, OrderList: TStringList); +begin + CallV('ORWDXC SESSION', [Patient.DFN, OrderList]); + ListOfChecks.Assign(RPCBrokerV.Results); +end; + +procedure SaveOrderChecksForSession(const AReason: string; ListOfChecks: TStringList); +begin + CallV('ORWDXC SAVECHK', [Patient.DFN, AReason, ListOfChecks]); + { no result used currently } +end; + +function DeleteCheckedOrder(const OrderID: string): Boolean; +begin + Result := sCallV('ORWDXC DELORD', [OrderID]) = '1'; +end; + +function DataForOrderCheck(const OrderID: string): string; +begin + Result := sCallV('ORWDXR01 OXDATA',[OrderID]); +end; + +(* + TEMPORARILY COMMENTED OUT WHILE TESTING +function GetPromptandDeviceParameters(Location: integer; OrderList: TStringList; Nature: string): TPrintParams; +var + TempParams: TPrintParams; + x: string; +begin + tempParams.OrdersToPrint := TStringList.Create; + try + CallV('ORWD1 PARAM', [Location, Nature, OrderList]); + x := RPCBrokerV.Results[0]; + with TempParams do + begin + PromptForChartCopy := CharAt(Piece(x, U, 1),1); + if Piece(x, U, 5) <> '' then + ChartCopyDevice := Piece(Piece(x, U, 5),';',1) + '^' + Piece(Piece(x, U, 5),';',2); + PromptForLabels := CharAt(Piece(x, U, 2),1); + if Piece(x, U, 6) <> '' then + LabelDevice := Piece(Piece(x, U, 6),';',1) + '^' + Piece(Piece(x, U, 6),';',2); + PromptForRequisitions := CharAt(Piece(x, U, 3),1); + if Piece(x, U, 7) <> '' then + RequisitionDevice := Piece(Piece(x, U, 7),';',1) + '^' + Piece(Piece(x, U, 7),';',2); + PromptForWorkCopy := CharAt(Piece(x, U, 4),1); + if Piece(x, U, 8) <> '' then + WorkCopyDevice := Piece(Piece(x, U, 8),';',1) + '^' + Piece(Piece(x, U, 8),';',2); + AnyPrompts := ((PromptForChartCopy in ['1','2']) or + (PromptForLabels in ['1','2']) or + (PromptForRequisitions in ['1','2']) or + (PromptForWorkCopy in ['1','2'])); + RPCBrokerV.Results.Delete(0); + OrdersToPrint.Assign(RPCBrokerV.Results); + end; + Result := TempParams; + finally + tempParams.OrdersToPrint.Free; + end; +end; +*) + +procedure OrderPrintDeviceInfo(OrderList: TStringList; var PrintParams: TPrintParams; Nature: Char); +var + x: string; +begin + if Nature <> #0 then + CallV('ORWD2 DEVINFO', [Encounter.Location, Nature, OrderList]) + else + CallV('ORWD2 MANUAL', [Encounter.Location, OrderList]); + x := RPCBrokerV.Results[0]; + FillChar(PrintParams, SizeOf(PrintParams), #0); + with PrintParams do + begin + PromptForChartCopy := CharAt(Piece(x, U, 1),1); + if Piece(x, U, 5) <> '' then + ChartCopyDevice := Piece(Piece(x, U, 5),';',1) + '^' + Piece(Piece(x, U, 5),';',2); + PromptForLabels := CharAt(Piece(x, U, 2),1); + if Piece(x, U, 6) <> '' then + LabelDevice := Piece(Piece(x, U, 6),';',1) + '^' + Piece(Piece(x, U, 6),';',2); + PromptForRequisitions := CharAt(Piece(x, U, 3),1); + if Piece(x, U, 7) <> '' then + RequisitionDevice := Piece(Piece(x, U, 7),';',1) + '^' + Piece(Piece(x, U, 7),';',2); + PromptForWorkCopy := CharAt(Piece(x, U, 4),1); + if Piece(x, U, 8) <> '' then + WorkCopyDevice := Piece(Piece(x, U, 8),';',1) + '^' + Piece(Piece(x, U, 8),';',2); + AnyPrompts := ((PromptForChartCopy in ['1','2']) or + (PromptForLabels in ['1','2']) or + (PromptForRequisitions in ['1','2']) or + (PromptForWorkCopy in ['1','2'])); + end; + if Nature <> #0 then + begin + RPCBrokerV.Results.Delete(0); + OrderList.Clear; + OrderList.Assign(RPCBrokerV.Results); + end; +end; + +procedure SaveEvtForOrder(APtDFN: string; AEvt: integer; AnOrderID: string); +var + TheEventID: string; +begin + TheEventID := SCallV('OREVNTX1 PUTEVNT',[APtDFN,IntToStr(AEvt),AnOrderID]); +end; + +function EventExist(APtDFN:string; AEvt: integer): integer; +var + AOutCome: string; +begin + AOutCome := SCallV('OREVNTX1 EXISTS', [APtDFN,IntToStr(AEvt)]); + if AOutCome = '' then + Result := 0 + else + Result := StrToInt(AOutCome); +end; + +function UseNewMedDialogs: Boolean; +begin + Result := sCallV('ORWDPS1 CHK94', [nil]) = '1'; +end; + +{ Copay } +procedure GetCoPay4Orders; +begin + RPCBrokerV.RemoteProcedure := 'ORWDPS4 CPLST'; + RPCBrokerV.Param[0].PType := literal; + RPCBrokerV.Param[0].Value := Patient.DFN; + CallBroker; +end; + +procedure SaveCoPayStatus(AList: TStrings); +var + i: integer; + +begin + if AList.Count > 0 then + begin + RPCBrokerV.ClearParameters := True; + RPCBrokerV.RemoteProcedure := 'ORWDPS4 CPINFO'; + RPCBrokerV.Param[0].PType := list; + for i := 0 to AList.Count-1 do + RPCBrokerV.Param[0].Mult[IntToStr(i+1)] := AList[i]; + CallBroker; + end; +end; + + + +function IsValidIMOLoc(LocID: integer; PatientID: string): boolean; //IMO +var + rst: string; +begin + rst := SCallV('ORIMO IMOLOC',[LocID, PatientID]); + Result := StrToIntDef(rst,-1) > -1; +end; + +function IsIMOOrder(OrderID: string): boolean; //IMO +begin + Result := SCallV('ORIMO IMOOD',[OrderId])='1'; +end; + +function IsInptQO(DlgID: integer): boolean; +begin + Result := SCallV('ORWDXM3 ISUDQO', [DlgID]) = '1'; +end; + +function IsIVQO(DlgID: integer): boolean; +begin + Result := SCallV('ORIMO ISIVQO', [DlgID]) = '1'; +end; + +function IsClinicLoc(ALoc: integer): boolean; +begin + Result := SCallV('ORIMO ISCLOC', [ALoc]) = '1'; +end; + +function IsValidSchedule(AnOrderID: string): boolean; //nss +begin + result := SCallV('ORWNSS VALSCH', [AnOrderID]) = '1'; +end; + +function IsValidQOSch(QOID: string): string; //nss +begin + Result := SCallV('ORWNSS QOSCH',[QOID]); +end; + +function IsValidSchStr(ASchStr: string): boolean; +begin + Result := SCallV('ORWNSS CHKSCH',[ASchStr]) = '1'; +end; + +{ TParentEvent } + +procedure TParentEvent.Assign(AnEvtID: string); +var + evtInfo: string; +begin +// ORY = EVTTYPE_U_EVT_U_EVTNAME_U_EVTDISP_U_EVTDLG + evtInfo := EventInfo1(AnEvtID); + ParentIFN := StrToInt(AnEvtID); + if Length(Piece(evtInfo,'^',4)) < 1 then + ParentName := Piece(evtInfo,'^',3) + else + ParentName := Piece(evtInfo,'^',4); + ParentType := CharAt(Piece(evtInfo,'^',1),1); + ParentDlg := Piece(evtInfo,'^',5); +end; + +constructor TParentEvent.Create; +begin + ParentIFN := 0; + ParentName := ''; + ParentType := #0; + ParentDlg := '0'; +end; + +initialization + uDGroupAll := 0; + uOrderChecksOn := #0; + +finalization + if uDGroupMap <> nil then uDGroupMap.Free; + +end. + diff --git a/CPRS-Chart/Orders/uODBase.pas b/CPRS-Chart/Orders/uODBase.pas new file mode 100644 index 0000000..4388925 --- /dev/null +++ b/CPRS-Chart/Orders/uODBase.pas @@ -0,0 +1,203 @@ +unit uODBase; + +interface + +uses + Classes, ORFn, uConst; + +{ Order Checking } +function AddFillerAppID(const AnID: string): Boolean; +procedure ClearFillerAppList; + +{ Ordering Environment } +procedure SetOrderFormIDOnCreate(AFormID: Integer); +function OrderFormIDOnCreate: Integer; +procedure SetOrderEventTypeOnCreate(AType: Char); +function OrderEventTypeOnCreate: Char; +procedure SetOrderEventIDOnCreate(AnEvtID: integer); +function OrderEventIDOnCreate: integer; +procedure SetOrderEventNameOnCreate(AnEvtNm: string); +function OrderEventNameOnCreate: string; +function GetKeyVars: string; +procedure PopKeyVars(NumLevels: Integer = 1); +procedure PushKeyVars(const NewVals: string); +procedure ExpandOrderObjects(var Txt: string; var ContainsObjects: boolean; msg: string = ''); + +implementation + +uses + dShared, Windows, rTemplates; + +var + uOrderEventType: Char; + uOrderEventID: Integer; + uOrderEventName: string; + uOrderFormID: Integer; + uFillerAppID: TStringList; + uKeyVarList: TStringList; + +{ Order Checking } + +function AddFillerAppID(const AnID: string): Boolean; +begin + Result := False; + if uFillerAppID.IndexOf(AnID) < 0 then + begin + Result := True; + uFillerAppID.Add(AnID); + end; +end; + +procedure ClearFillerAppList; +begin + uFillerAppID.Clear; +end; + +{ Ordering Environment } + +procedure SetOrderFormIDOnCreate(AFormID: Integer); +begin + uOrderFormID := AFormID; +end; + +function OrderFormIDOnCreate: Integer; +begin + Result := uOrderFormID; +end; + +procedure SetOrderEventTypeOnCreate(AType: Char); +begin + uOrderEventType := AType; +end; + +function OrderEventTypeOnCreate: Char; +begin + Result := uOrderEventType; +end; + +procedure SetOrderEventIDOnCreate(AnEvtID: Integer); +begin + uOrderEventID := AnEvtID; +end; + +procedure SetOrderEventNameOnCreate(AnEvtNm: string); +begin + uOrderEventName := AnEvtNm; +end; + +function OrderEventNameOnCreate: string; +begin + Result := uOrderEventName; +end; + +function OrderEventIDOnCreate: integer; +begin + Result := uOrderEventID; +end; + +function GetKeyVars: string; +begin + Result := ''; + with uKeyVarList do if Count > 0 then Result := Strings[Count - 1]; +end; + +procedure PopKeyVars(NumLevels: Integer = 1); +begin + with uKeyVarList do while (NumLevels > 0) and (Count > 0) do + begin + Delete(Count - 1); + Dec(NumLevels); + end; +end; + +procedure PushKeyVars(const NewVals: string); +var + i: Integer; + x: string; +begin + if uKeyVarList.Count > 0 then x := uKeyVarList[uKeyVarList.Count - 1] else x := ''; + for i := 1 to MAX_KEYVARS do + if Piece(NewVals, U, i) <> '' then SetPiece(x, U, i, Piece(NewVals, U, i)); + uKeyVarList.Add(x); +end; + +procedure ExpandOrderObjects(var Txt: string; var ContainsObjects: boolean; msg: string = ''); +var + ObjList: TStringList; + Err: TStringList; + i, j, k, oLen: integer; + obj, ObjTxt: string; +const + CRDelim = #13; + TC_BOILER_ERR = 'Order Boilerplate Object Error'; + TX_BOILER_ERR = 'Contact IRM and inform them about this error.' + CRLF + + 'Make sure you give them the name of the quick' + CRLF + + 'order that you are processing.' ; +begin + ObjList := TStringList.Create; + try + Err := nil; + if(not dmodShared.BoilerplateOK(Txt, CRDelim, ObjList, Err)) and (assigned(Err)) then + begin + try + Err.Add(CRLF + TX_BOILER_ERR); + InfoBox(Err.Text, TC_BOILER_ERR, MB_OK + MB_ICONERROR); + finally + Err.Free; + end; + end; + if(ObjList.Count > 0) then + begin + ContainsObjects := True; + GetTemplateText(ObjList); + i := 0; + while (i < ObjList.Count) do + begin + if(pos(ObjMarker, ObjList[i]) = 1) then + begin + obj := copy(ObjList[i], ObjMarkerLen+1, MaxInt); + if(obj = '') then break; + j := i + 1; + while (j < ObjList.Count) and (pos(ObjMarker, ObjList[j]) = 0) do + inc(j); + if((j - i) > 2) then + begin + ObjTxt := ''; + for k := i+1 to j-1 do + ObjTxt := ObjTxt + #13 + ObjList[k]; + end + else + ObjTxt := ObjList[i+1]; + i := j; + obj := '|' + obj + '|'; + oLen := length(obj); + repeat + j := pos(obj, Txt); + if(j > 0) then + begin + delete(Txt, j, OLen); + insert(ObjTxt, Txt, j); + end; + until(j = 0); + end + else + inc(i); + end + end; + finally + ObjList.Free; + end; +end; + +initialization + uOrderEventType := #0; + uOrderFormID := 0; + uOrderEventName := ''; + uFillerAppID := TStringList.Create; + uKeyVarList := TStringList.Create; + +finalization + uFillerAppID.Free; + uKeyVarList.Free; + +end. diff --git a/CPRS-Chart/Orders/uOrders.pas b/CPRS-Chart/Orders/uOrders.pas new file mode 100644 index 0000000..84eaf7f --- /dev/null +++ b/CPRS-Chart/Orders/uOrders.pas @@ -0,0 +1,1847 @@ +unit uOrders; + +interface + +uses + Windows, Messages, SysUtils, Classes, Controls, Forms, uConst, rOrders, ORFn, + Dialogs, ORCtrls, stdCtrls, strUtils, fODBase; + +type + EOrderDlgFail = class(Exception); + +{ Ordering Environment } +function AuthorizedUser: Boolean; +function AuthorizedToVerify: Boolean; +function EncounterPresent: Boolean; +function EncounterPresentEDO: Boolean; +function LockedForOrdering: Boolean; +function IsValidActionOnComplexOrder(AnOrderID, AnAction: string; + AListBox: TListBox; var CheckedList: TStringList; var ErrMsg: string; var ParentOrderID: string): boolean; //PSI-COMPLEX +procedure UnlockIfAble; +function OrderCanBeLocked(OrderID: string): Boolean; +procedure UnlockOrderIfAble(OrderID: string); +procedure AddSelectedToChanges(AList: TList); +procedure ResetDialogProperties(const AnID: string; AnEvent: TOrderDelayEvent; var ResolvedDialog: TOrderDialogResolved); +function IsInvalidActionWarning(const AnOrderText,AnOrderID: String): boolean; +procedure InitialOrderVariables; + +{ Write Orders } +function ActivateAction(const AnID: string; AnOwner: TComponent; ARefNum: Integer): Boolean; +function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; +function RetrieveOrderText(AnOrderID: string): string; +function ActivateOrderHTML(const AnID: string; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer): Boolean; +function ActivateOrderMenu(const AnID: string; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer): Boolean; +function ActivateOrderSet(const AnID: string; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer): Boolean; +function ActivateOrderList(AList: TStringList; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer; const KeyVarStr, ACaption: string): Boolean; +function ActiveOrdering: Boolean; +function CloseOrdering: Boolean; +function ReadyForNewOrder(AnEvent: TOrderDelayEvent): Boolean; +function ReadyForNewOrder1(AnEvent: TOrderDelayEvent): Boolean; +function ChangeOrdersEvt(AnOrderID: string; AnEvent: TOrderDelayEvent): boolean; +function CopyOrders(AList: TStringList; AnEvent: TOrderDelayEvent; var DoesEventOccur: boolean; ANeedVerify: boolean = True): boolean; +function TransferOrders(AList: TStringList; AnEvent: TOrderDelayEvent; var DoesEventOccur: boolean; ANeedVerify: boolean = True): boolean; +procedure SetConfirmEventDelay; +procedure ChangeOrders(AList: TStringList; AnEvent: TOrderDelayEvent); +procedure DestroyingOrderAction; +procedure DestroyingOrderDialog; +procedure DestroyingOrderHTML; +procedure DestroyingOrderMenu; +procedure DestroyingOrderSet; +function OrderIsLocked(const AnOrderID, AnAction: string): Boolean; +procedure PopLastMenu; +procedure QuickOrderSave; +procedure QuickOrderListEdit; +function RefNumFor(AnOwner: TComponent): Integer; +procedure PrintOrdersOnSignRelease(OrderList: TStringList; Nature: Char; PrintLoc : Integer =0); +procedure SetFontSize( FontSize: integer); +procedure NextMove(var NMRec: TNextMoveRec; LastIndex: Integer; NewIndex: Integer); + +{ Inpatient medication for Outpatient} +function IsIMODialog(DlgID: integer): boolean; +function AllowActionOnIMO(AnEvtTyp: char): boolean; +function IMOActionValidation(AnId: string; var IsIMOOD: boolean; var x: string; AnEventType: char): boolean; + + +var +uAutoAc: Boolean; +InptDisp : Integer; +OutptDisp: Integer; +MedsDisp : Integer; +ClinDisp : Integer; //IMO +NurDisp : Integer; +IVDisp : Integer; +CsltDisp : Integer; +ProcDisp : Integer; +ImgDisp : Integer; +NonVADisp: Integer; +MedsInDlgIen : Integer; +MedsOutDlgIen : Integer; +MedsNVADlgIen : Integer; +MedsInDlgFormId : Integer; +MedsOutDlgFormId : Integer; +MedsNVADlgFormID : Integer; +MedsIVDlgIen: Integer; +MedsIVDlgFormID: Integer; +NSSchedule: boolean; +OriginalMedsOutHeight: Integer; +OriginalMedsInHeight: Integer; +OriginalNonVAMedsHeight: Integer; + +implementation + +uses fODDiet, fODMisc, fODGen, fODMedIn, fODMedOut, fODText, fODConsult, fODProc, fODRad, + fODLab, fodBBank, fODMeds, fODMedIV, fODVitals, fODAuto, (*fODAllgy,*) fOMNavA, rCore, uCore, fFrame, + fEncnt, fEffectDate, fOMVerify, fOrderSaveQuick, fOMSet, rMisc, uODBase, rODMeds, + fLkUpLocation, fOrdersPrint, fOMAction, fARTAllgy, fOMHTML, fOrders, rODBase, + fODChild, fMeds, rMeds, rPCE, frptBox, fODMedNVA, fODChangeUnreleasedRenew, rODAllergy, + UBAGlobals, fClinicWardMeds, uTemplateFields; + +var + uPatientLocked: Boolean; + uKeepLock: Boolean; + uOrderAction: TfrmOMAction; + uOrderDialog: TfrmODBase; + uOrderHTML: TfrmOMHTML; + uOrderMenu: TfrmOMNavA; + uOrderSet: TfrmOMSet; + uLastConfirm: string; + uOrderSetTime: TFMDateTime; + uNewMedDialog: Integer; + +const + TX_PROV_LOC = 'A provider and location must be selected before entering orders.'; + TC_PROV_LOC = 'Incomplete Information'; + TX_PROV_KEY = 'The provider selected for this encounter must' + CRLF + + 'hold the PROVIDER key to enter orders.'; + TC_PROV_KEY = 'PROVIDER Key Required'; + TX_NOKEY = 'You do not have the keys required to take this action.'; + TC_NOKEY = 'Insufficient Authority'; + TX_BADKEYS = 'You have mutually exclusive order entry keys (ORES, ORELSE, or OREMAS).' + + CRLF + 'This must be resolved before you can take actions on orders.'; + TC_BADKEYS = 'Multiple Keys'; + TC_NO_LOCK = 'Unable to Lock'; + TC_DISABLED = 'Item Disabled'; + TX_DELAY = 'Now writing orders for '; + TX_DELAY1 = CRLF + CRLF + '(To write orders for current release rather than delayed release,' + CRLF + + 'close the next window and select Active Orders from the View Orders pane.)'; + TC_DELAY = 'Ordering Information'; + TX_STOP_SET = 'Do you want to stop entering the current set of orders?'; + TC_STOP_SET = 'Interupt order set'; + TC_DLG_REJECT = 'Unable to Order'; + TX_NOFORM = 'This selection does not have an associated windows form.'; + TC_NOFORM = 'Missing Form ID'; + TX_DLG_ERR = 'Error in activating order dialog.'; + TC_DLG_ERR = 'Dialog Error'; + TX_NO_SAVE_QO = 'An ordering dialog must be active to use this action.'; + TC_NO_SAVE_QO = 'Save as Quick Order'; + TX_NO_EDIT_QO = 'An ordering dialog must be active to use this action.'; + TC_NO_EDIT_QO = 'Edit Common List'; + TX_NO_QUICK = 'This ordering dialog does not support quick orders.'; + TC_NO_QUICK = 'Save/Edit Quick Orders'; + TX_CANT_SAVE_QO = 'This order contains TIU objects, which may result in patient-specific' + CRLF + + 'information being included in the order. For this reason, it may not' + CRLF + + 'be saved as a personal quick order for later reuse.'; + TX_NO_COPY = CRLF + CRLF + '- cannot be copied.' + CRLF + CRLF + 'Reason: '; + TC_NO_COPY = 'Unable to Copy Order'; + TX_NO_CHANGE = CRLF + CRLF + '- cannot be changed.' + CRLF + CRLF + 'Reason: '; + TC_NO_CHANGE = 'Unable to Change Order'; + TC_NO_XFER = 'Unable to Transfer Order'; + TC_NOLOCK = 'Unable to Lock Order'; + TX_ONHOLD = 'The following order has been put on-hold, do you still want to continue?'; + TX_COMPLEX = 'You can not take this action on a complex medication.' + #13 + 'You must enter a new order.'; + STEP_FORWARD = 1; + STEP_BACK = -1; + TX_NOINPT = ': You cannot place inpatient medication orders from a clinic location for selected patient.'; + TX_IMO_WARNING1 = 'You are '; + TX_IMO_WARNING2 = ' Clinic Orders. The New orders will be saved as Clinic Orders and MAY NOT be available in BCMA'; + + +function CreateOrderDialog(Sender: TComponent; FormID: integer; AnEvent: TOrderDelayEvent; ODEvtID: integer = 0): TfrmODBase; +{ creates an order dialog based on the FormID and returns a pointer to it } +type + TDialogClass = class of TfrmODBase; +var + DialogClass: TDialogClass; +begin + Result := nil; + // allows the FormCreate to check event under which dialog is created + if AnEvent.EventType in ['A','D','T','M','O'] then + begin + SetOrderEventTypeOnCreate(AnEvent.EventType); + SetOrderEventIDOnCreate(AnEvent.EventIFN); + end else + begin + SetOrderEventTypeOnCreate(#0); + SetOrderEventIDOnCreate(0); + end; + SetOrderFormIDOnCreate(FormID); + // check to see if we should use the new med dialogs + if uNewMedDialog = 0 then + begin + if UseNewMedDialogs then uNewMedDialog := 1 else uNewMedDialog := -1; + end; + if (uNewMedDialog > 0) and ((FormID = OD_MEDOUTPT) or (FormID = OD_MEDINPT)) then + FormID := OD_MEDS; + // create the form for a given ordering dialog + case FormID of + OD_MEDIV: DialogClass := TfrmODMedIV; + OD_MEDINPT: DialogClass := TfrmODMedIn; + OD_MEDS: DialogClass := TfrmODMeds; + OD_MEDOUTPT: DialogClass := TfrmODMedOut; + OD_MEDNONVA: DialogClass := TfrmODMedNVA; + OD_MISC: DialogClass := TfrmODMisc; + OD_GENERIC: + begin + if ODEvtID>0 then + SetOrderEventIDOnCreate(ODEvtID); + DialogClass := TfrmODGen; + end; + OD_IMAGING: DialogClass := TfrmODRad; + OD_DIET: DialogClass := TfrmODDiet; + OD_LAB: DialogClass := TfrmODLab; + OD_BB: DialogClass := TfrmODBBank; + OD_CONSULT: DialogClass := TfrmODCslt; + OD_PROCEDURE: DialogClass := TfrmODProc; + OD_TEXTONLY: DialogClass := TfrmODText; + OD_VITALS: DialogClass := TfrmODVitals; + //OD_ALLERGY: DialogClass := TfrmODAllergy; + OD_AUTOACK: DialogClass := TfrmODAuto; + else Exit; + end; + if Sender = nil then Sender := Application; + Result := DialogClass.Create(Sender); + if Result <> nil then Result.CallOnExit := DestroyingOrderDialog; + SetOrderEventTypeOnCreate(#0); + SetOrderEventIDOnCreate(0); + SetOrderFormIDOnCreate(0); +end; + +function AuthorizedUser: Boolean; +begin + Result := True; + if User.NoOrdering then Result := False; + if User.OrderRole = OR_BADKEYS then + begin + InfoBox(TX_BADKEYS, TC_BADKEYS, MB_OK); + Result := False; + end; +end; + +function AuthorizedToVerify: Boolean; +begin + Result := True; + if not User.EnableVerify then Result := False; + if User.OrderRole = OR_BADKEYS then + begin + InfoBox(TX_BADKEYS, TC_BADKEYS, MB_OK); + Result := False; + end; +end; + +function EncounterPresent: Boolean; +{ make sure a location and provider are selected, returns false if not } +begin + Result := True; + if (Encounter.Provider > 0) and not PersonHasKey(Encounter.Provider, 'PROVIDER') + then InfoBox(TX_PROV_KEY, TC_PROV_KEY, MB_OK); + if (Encounter.Provider = 0) or (Encounter.Location = 0) or + ((Encounter.Provider > 0) and (not PersonHasKey(Encounter.Provider, 'PROVIDER'))) then + begin + // don't prompt provider if current user has ORES and is the provider + if (User.OrderRole = OR_PHYSICIAN) and (Encounter.Provider = User.DUZ) and (User.IsProvider) + then UpdateEncounter(NPF_SUPPRESS) + else UpdateEncounter(NPF_PROVIDER); + frmFrame.DisplayEncounterText; + end; + if (Encounter.Provider = 0) or (Encounter.Location = 0) then + begin + if not frmFrame.CCOWDrivedChange then //jdccow + InfoBox(TX_PROV_LOC, TC_PROV_LOC, MB_OK or MB_ICONWARNING); {!!!} + Result := False; + end; + if (Encounter.Provider > 0) and not PersonHasKey(Encounter.Provider, 'PROVIDER') then + begin + if not frmFrame.CCOWDrivedChange then //jdccow + InfoBox(TX_PROV_KEY, TC_PROV_KEY, MB_OK); + Result := False; + end; +end; + +function EncounterPresentEDO: Boolean; +begin + Result := True; + if (Encounter.Provider > 0) and not PersonHasKey(Encounter.Provider, 'PROVIDER') + then InfoBox(TX_PROV_KEY, TC_PROV_KEY, MB_OK); + if (Encounter.Provider = 0) or + ((Encounter.Provider > 0) and (not PersonHasKey(Encounter.Provider, 'PROVIDER'))) then + begin + UpdateEncounter(NPF_PROVIDER); + frmFrame.DisplayEncounterText; + end; + if (Encounter.Provider = 0) then + begin + InfoBox(TX_PROV_LOC, TC_PROV_LOC, MB_OK or MB_ICONWARNING); {!!!} + Result := False; + end; + if (Encounter.Provider > 0) and not PersonHasKey(Encounter.Provider, 'PROVIDER') then + begin + InfoBox(TX_PROV_KEY, TC_PROV_KEY, MB_OK); + Result := False; + end; +end; + +function LockedForOrdering: Boolean; +var + ErrMsg: string; +begin + if uPatientLocked then Result := True else + begin + LockPatient(ErrMsg); + if ErrMsg = '' then + begin + Result := True; + uPatientLocked := True; + frmFrame.stsArea.Panels.Items[4].Text := 'LOCK'; + end else + begin + Result := False; + InfoBox(ErrMsg, TC_NO_LOCK, MB_OK); + end; + end; +end; + +procedure UnlockIfAble; +begin + if (Changes.Orders.Count = 0) and not uKeepLock then + begin + UnlockPatient; + uPatientLocked := False; + frmFrame.stsArea.Panels.Items[4].Text := ''; + end; +end; + +function OrderCanBeLocked(OrderID: string): Boolean; +var + ErrMsg: string; +begin + LockOrder(OrderID, ErrMsg); + if ErrMsg = '' then + begin + Result := True; + frmFrame.stsArea.Panels.Items[4].Text := 'LOCK'; + end else + begin + Result := False; + InfoBox(ErrMsg, TC_NO_LOCK, MB_OK); + end; +end; + +procedure UnlockOrderIfAble(OrderID: string); +begin + UnlockOrder(OrderID); + frmFrame.stsArea.Panels.Items[4].Text := ''; +end; + +procedure AddSelectedToChanges(AList: TList); +{ update Changes with orders that were created by taking actions } +var + i, CanSign: Integer; + AnOrder: TOrder; +begin + if (Encounter.Provider = User.DUZ) and User.CanSignOrders + then CanSign := CH_SIGN_YES + else CanSign := CH_SIGN_NA; + with AList do for i := 0 to Count - 1 do + begin + AnOrder := TOrder(Items[i]); + with AnOrder do Changes.Add(CH_ORD, ID, Text, '', CanSign); + if (Length(AnOrder.ActionOn) > 0) + and not Changes.ExistForOrder(Piece(AnOrder.ActionOn, ';', 1)) + then UnlockOrder(AnOrder.ActionOn); + end; +end; + +procedure ResetDialogProperties(const AnID: string; AnEvent: TOrderDelayEvent; var ResolvedDialog: TOrderDialogResolved); +begin + if StrToIntDef(AnID,0)>0 then + Exit; + if XfInToOutNow then + begin + ResolvedDialog.DisplayGroup := OutptDisp; + ResolvedDialog.DialogIEN := MedsOutDlgIen; + ResolvedDialog.FormID := MedsOutDlgFormID; + ResolvedDialog.QuickLevel := 0; + Exit; + end; + //if ResolvedDialog.DisplayGroup in [MedsDisp, OutptDisp, InptDisp, NonVADisp, ClinDisp] then + if (ResolvedDialog.DisplayGroup = InptDisp) or + (ResolvedDialog.DisplayGroup = OutptDisp) or + (ResolvedDialog.DisplayGroup = MedsDisp) or + (ResolvedDialog.DisplayGroup = NonVADisp) or + (ResolvedDialog.DisplayGroup = ClinDisp) then + begin + if (AnEvent.EventType <> 'D') and (AnEvent.EventIFN > 0) then + begin + if (AnEvent.EventType = 'T') and IsPassEvt(AnEvent.PtEventIFN,'T') then + begin + ResolvedDialog.DisplayGroup := OutptDisp; + ResolvedDialog.DialogIEN := MedsOutDlgIen; + ResolvedDialog.FormID := MedsOutDlgFormID; + ResolvedDialog.QuickLevel := 0; + end + else + begin + //AGP changes to handle IMO INV Dialog opening the unit dose dialog. + if (ResolvedDialog.DisplayGroup = ClinDisp) and (Resolveddialog.DialogIEN = MedsIVDlgIEN) and (ResolvedDialog.FormID = MedsIVDlgFormId) then + begin + ResolvedDialog.DisplayGroup := IVDisp; + ResolvedDialog.DialogIEN := MedsIVDlgIen; + ResolvedDialog.FormID := MedsIVDlgFormId; + end + else + begin + ResolvedDialog.DisplayGroup := InptDisp; + ResolvedDialog.DialogIEN := MedsInDlgIen; + ResolvedDialog.FormID := MedsInDlgFormId; + end; + if Length(ResolvedDialog.ShowText)>0 then + ResolvedDialog.QuickLevel := 2; + end; + end + else if (AnEvent.EventType = 'D') and (AnEvent.EventIFN > 0) then + begin + ResolvedDialog.DisplayGroup := OutptDisp; + ResolvedDialog.DialogIEN := MedsOutDlgIen; + ResolvedDialog.FormID := MedsOutDlgFormID; + ResolvedDialog.QuickLevel := 0; + end; + + if XferOutToInOnMeds then + begin + ResolvedDialog.DisplayGroup := InptDisp; + ResolvedDialog.DialogIEN := MedsInDlgIen; + ResolvedDialog.FormID := MedsInDlgFormId; + ResolvedDialog.QuickLevel := 0; + end; + end; + if ResolvedDialog.DisplayGroup = IVDisp then + begin + if Length(ResolvedDialog.ShowText)>0 then + ResolvedDialog.QuickLevel := 2; + end; + if (CharAt(AnID,1) = 'C') and (ResolvedDialog.DisplayGroup in [CsltDisp, ProcDisp]) then + ResolvedDialog.QuickLevel := 0; // CSV - force dialog, to validate ICD code being copied into new order {RV} +end; + +function IsInvalidActionWarning(const AnOrderText,AnOrderID: String): boolean; +var + AnErrLst, tmpList: TStringList; +begin + Result := False; + AnErrlst := TStringList.Create; + IsLatestAction(AnOrderID,AnErrLst); + if AnErrLst.Count > 0 then + begin + tmpList := TStringList.Create; + PiecesToList(AnsiReplaceStr(AnOrderText,'#D#A','^'),'^',tmpList); + tmpList.Add(' '); + tmpList.Add('Cannot be released to service(s) because of the following happened action(s):'); + tmpList.Add(' '); + tmpList.AddStrings(TStrings(AnErrLst)); + ReportBox(tmpList,'Cannot be released to service(s)',False); + tmpList.Free; + AnErrLst.Free; + Result := True; + end; +end; + +procedure InitialOrderVariables; +begin + InptDisp := DisplayGroupByName('UD RX'); + OutptDisp := DisplayGroupByName('O RX'); + MedsDisp := DisplayGroupByName('RX'); + IVDisp := DisplayGroupByName('IV RX'); + ClinDisp := DisplayGroupByName('C RX'); + NurDisp := DisplayGroupByName('NURS'); + CsltDisp := DisplayGroupByName('CSLT'); + ProcDisp := DisplayGroupByName('PROC'); + ImgDisp := DisplayGroupByName('XRAY'); + NonVADisp := DisplayGroupByName('NV RX'); + MedsInDlgIen := DlgIENForName('PSJ OR PAT OE'); + MedsOutDlgIen := DlgIENForName('PSO OERR'); + MedsNVADlgIen := DlgIENForName('PSH OERR'); + MedsIVDlgIen := DlgIENForName('PSJI OR PAT FLUID OE'); + MedsInDlgFormId := FormIDForDialog(MedsInDlgIen); + MedsOutDlgFormId := FormIDForDialog(MedsOutDlgIen); + MedsNVADlgFormID := FormIDForDialog(MedsNVADlgIen); + MedsIVDlgFormID := FormIDForDialog(MedsIVDlgIen); +end; + +function IsValidActionOnComplexOrder(AnOrderID, AnAction: string; + AListBox: TListBox; var CheckedList: TStringList; var ErrMsg: string; var ParentOrderID: string): boolean; //PSI-COMPLEX +const + COMPLEX_SIGN = 'You have requested to sign a medication order which was entered as part of a complex order.' + + 'The following are the orders associated with the same complex order.'; + COMPLEX_SIGN1 = ' Do you want to sign all of these orders?'; + + COMPLEX_DC = 'You have requested to discontinue a medication order which was entered as part of a complex order.' + + ' The following are all of the associated orders.'; + COMPLEX_DC1 =' Do you want to dicscontinue all of them?'; + + COMPLEX_HD = 'You have requested to hold a medication order which was entered as part of a complex order.' + + ' The following are all of the associated orders.'; + COMPLEX_HD1 = ' Do you want to hold all of them?'; + + COMPLEX_UNHD = 'You have requested to release the hold of a medication order which was entered as part of a complex order.' + + ' The following are all of the associated orders.'; + COMPLEX_UNHD1 = ' Do you want to release all of them?'; + + COMPLEX_RENEW = 'You can not take the renew action on a complex medication which has the following associated orders.'; + COMPLEX_RENEW1 = ' You must enter a new order.'; + + COMPLEX_VERIFY ='You have requested to verify a medication order which was entered as part of a complex order.' + + ' The following are all of the associated orders.'; + COMPLEX_VERIFY1 =' Do you want to verify all of them?'; + + COMPLEX_OTHER = 'You can not take this action on a complex medication which has the following associated orders.' + + ' You must enter a new order.'; + + COMPLEX_CANRENEW1 = 'The selected order for renew: '; + COMPLEX_CANRENEW2 = ' is a part of a complex order.'; + COMPLEX_CANRENEW3 = 'The following whole complex order will be renewed.'; +var + CurrentActID, POrderTxt, AChildOrderTxt, CplxOrderMsg: string; + ChildList,ChildIdxList,ChildTxtList, CategoryList: TStringList; + ShowCancelButton: boolean; + procedure RetrieveOrderTextPSI(AOrderList: TStringList; var AODTextList, AnIdxList: TStringList; + TheAction: string; AParentID: string = ''); + var + ix,jx: integer; + tempid: string; + begin + for ix := 0 to AOrderList.count - 1 do + begin + if AListBox.Name = 'lstOrders' then with AListBox do + begin + for jx := 0 to Items.Count - 1 do + if TOrder(Items.Objects[jx]).ID = AOrderList[ix] then + begin + TOrder(Items.Objects[jx]).ParentID := AParentID; + if CategoryList.IndexOf(TheAction)>-1 then + Selected[jx] := True; + AODTextList.Add(TOrder(Items.Objects[jx]).ID + '^' + TOrder(Items.Objects[jx]).Text); + if AnIdxList.IndexOf(IntToStr(jx)) > -1 then + continue; + AnIdxList.Add(IntToStr(jx)); + end; + end + else if (AListBox.Name = 'lstMedsOut' ) or (AListBox.Name = 'lstMedsIn') + or (AListBox.Name = 'lstMedsNonVA') then with AListBox do + begin + for jx := 0 to Items.Count - 1 do + begin + tempid := TMedListRec(AListBox.Items.Objects[jx]).OrderID; + if tempid = AOrderList[ix] then + begin + if CategoryList.IndexOf(TheAction)>-1 then + Selected[jx] := True; + AODTextList.Add(tempid + '^' + Items[jx]); + AnIdxList.Add(IntToStr(jx)); + end; + end; + end; + end; + end; + + procedure DeselectChild(AnIdxList: TStringList); + var + dix: integer; + begin + for dix := 0 to AnIdxList.Count - 1 do + begin + try + if StrToInt(AnIdxList[dix]) < AListBox.Items.Count then + AListBox.Selected[StrToInt(AnIdxList[dix])] := False; + except + // do nothing + end; + end; + end; + + function MakeMessage(ErrMsg1,ErrMsg2,ErrMsg3: string): string; + begin + if Length(ErrMsg1)>0 then + Result := ErrMsg1 + ErrMsg2 + else + Result := ErrMsg2 + ErrMsg3; + end; + +begin + Result := True; + if AnAction = OA_COPY then Exit; + CurrentActID := Piece(AnOrderID,';',2); + CplxOrderMsg := ''; + CategoryList := TStringList.Create; + CategoryList.Add('DC'); + CategoryList.Add('HD'); + CategoryList.Add('RL'); + CategoryList.Add('VR'); + CategoryList.Add('ES'); + ShowCancelButton := False; + + if Length(ErrMsg)>0 then ErrMsg := ErrMsg + #13#13; + ValidateComplexOrderAct(AnOrderID,CplxOrderMsg); + if Pos('COMPLEX-PSI',CplxOrderMsg)>0 then + begin + ParentOrderID := Piece(CplxOrderMsg,'^',2); + if CheckedList.IndexOf(ParentOrderID) >= 0 then + begin + ErrMsg := ''; + Exit; + end; + if CheckedList.Count = 0 then + CheckedList.Add(ParentOrderID) + else + begin + if CheckedList.IndexOf(ParentOrderID) < 0 then + CheckedList.Add(ParentOrderID); + end; + ChildList := TStringList.Create; + GetChildrenOfComplexOrder(ParentOrderID,CurrentActID,ChildList); + ChildtxtList := TStringList.Create; + ChildIdxList := TStringList.Create; + RetrieveOrderTextPSI(ChildList,ChildtxtList,ChildIdxList,AnAction,ParentOrderID); + if ChildtxtList.Count > 0 then + begin + if (AnAction = 'RN') or (AnAction = 'EV') then + begin + if not IsValidSchedule(ParentOrderID) then + begin + POrderTxt := RetrieveOrderText(ParentOrderID); + if CharAt(POrderTxt,1)='+' then + POrderTxt := Copy(POrderTxt,2,Length(POrderTxt)); + if Pos('First Dose NOW',POrderTxt)>1 then + Delete(POrderTxt, Pos('First Dose NOW',POrderTxt), Length('First Dose Now')); + InfoBox('Invalid schedule!' + #13#13 + 'The selected order is a part of a complex order:' + #13 + + POrderTxt + #13#13 + ' It contains an invalid schedule.', + 'Warning', MB_OK or MB_ICONWARNING); + DeselectChild(ChildIdxList); + Result := False; + ErrMsg := ''; + ChildtxtList.Free; + ChildList.Clear; + ChildList.Free; + CategoryList.Clear; + Exit; + end; + end; + if AnAction = OA_DC then + begin + if not ActionOnComplexOrder(ChildtxtList,MakeMessage(ErrMsg,COMPLEX_DC,COMPLEX_DC1),True) then + begin + DeselectChild(ChildIdxList); + Result := False; + end; + end + else if AnAction = OA_SIGN then + begin + if not ActionOnComplexOrder(ChildtxtList,MakeMessage(ErrMsg,COMPLEX_SIGN,COMPLEX_SIGN1),True) then + begin + DeselectChild(ChildIdxList); + Result := False; + end; + end + else if AnAction = OA_HOLD then + begin + if Length(ErrMsg) < 1 then ShowCancelButton := True; + if not ActionOnComplexOrder(ChildtxtList,MakeMessage(ErrMsg,COMPLEX_HD,COMPLEX_HD1),ShowCancelButton) then + begin + DeselectChild(ChildIdxList); + Result := False; + end; + end + else if AnAction = OA_UNHOLD then + begin + if Length(ErrMsg) < 1 then ShowCancelButton := True; + if not ActionOnComplexOrder(ChildtxtList,MakeMessage(ErrMsg,COMPLEX_UNHD,COMPLEX_UNHD1),ShowCancelButton) then + begin + DeselectChild(ChildIdxList); + Result := False; + end; + end + else if AnAction = OA_VERIFY then + begin + if Length(ErrMsg) < 1 then ShowCancelButton := True; + if not ActionOnComplexOrder(ChildtxtList,MakeMessage(ErrMsg,COMPLEX_VERIFY,COMPLEX_VERIFY1),ShowCancelButton) then + begin + DeselectChild(ChildIdxList); + Result := False; + end; + end + else if AnAction = OA_RENEW then + begin + if not IsRenewableComplexOrder(ParentOrderID) then + begin + if not ActionOnComplexOrder(ChildtxtList,MakeMessage(ErrMsg,COMPLEX_RENEW,COMPLEX_RENEW1),False) then + begin + DeselectChild(ChildIdxList); + Result := False; + end; + end + else + begin + POrderTxt := RetrieveOrderText(ParentOrderID); + if CharAt(POrderTxt,1)='+' then + POrderTxt := Copy(POrderTxt,2,Length(POrderTxt)); + if Pos('First Dose NOW',POrderTxt)>1 then + Delete(POrderTxt, Pos('First Dose NOW',POrderTxt), Length('First Dose Now')); + AChildOrderTxt := RetrieveOrderText(AnOrderID); + if InfoBox(COMPLEX_CANRENEW1 + #13 + AChildOrderTxt + + COMPLEX_CANRENEW2 + #13#13 + + COMPLEX_CANRENEW3 + #13 + POrderTxt, + 'Warning', MB_OKCANCEL or MB_ICONWARNING) = IDOK then + begin + if AListBox.Name = 'lstOrders' then + frmOrders.ParentComplexOrderID := ParentOrderID; + if (AListBox.Name = 'lstMedsOut' ) or (AListBox.Name = 'lstMedsIn') then + frmMeds.ParentComplexOrderID := ParentOrderID; + end; + DeselectChild(ChildIdxList); + end; + end; + end; + ErrMsg := ''; + ChildtxtList.Free; + ChildList.Clear; + ChildList.Free; + end; + CategoryList.Clear; +end; + +{ Write New Orders } + +function ActivateAction(const AnID: string; AnOwner: TComponent; ARefNum: Integer): Boolean; +// AnID: DlgIEN {;FormID;DGroup} +type + TDialogClass = class of TfrmOMAction; +var + DialogClass: TDialogClass; + AFormID: Integer; +begin + Result := False; + AFormID := FormIDForDialog(StrToIntDef(Piece(AnID, ';', 1), 0)); + if AFormID > 0 then + begin + case AFormID of + OM_ALLERGY: if ARTPatchInstalled then + DialogClass := TfrmARTAllergy + else + begin + Result := False; + Exit; + end; + OM_HTML: DialogClass := TfrmOMHTML; + 999999: DialogClass := TfrmOMAction; // for testing!!! + else + Exit; + end; + if AnOwner = nil then AnOwner := Application; + uOrderAction := DialogClass.Create(AnOwner); + if (uOrderAction <> nil) (*and (not uOrderAction.AbortAction) *)then + begin + uOrderAction.CallOnExit := DestroyingOrderAction; + uOrderAction.RefNum := ARefNum; + uOrderAction.OrderDialog := StrToIntDef(Piece(AnID, ';', 1), 0); + Result := True; + if (not uOrderAction.AbortAction) then uOrderAction.ShowModal; + end; + end else + begin + //ShowMessage('Order Dialogs of type "Action" are available in List Manager only.'); + Result := False; + end; +end; + +function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; +const + TX_NO_DEA = 'Provider must have a DEA# or VA# to change this order'; + TC_NO_DEA = 'DEA# Required'; + TC_IMO_ERROR = 'Inpatient medication order on outpatient authorization required'; +var + ResolvedDialog: TOrderDialogResolved; + x, EditedOrder, chkCopay, OrderID, PkgInfo,OrderPtEvtID,OrderEvtID,NssErr: string; + ODItem: integer; + IsInpatient, IsAnIMOOrder: boolean; + IsPsoSupply,IsDischargeOrPass,IsPharmacyOrder,IsConsultOrder,ForIMO: boolean; + tmpResp: TResponse; +begin + IsPsoSupply := False; + Result := False; + IsDischargeOrPass := False; + IsAnIMOOrder := False; + ForIMO := False; + // double check environment before continuing with order + if uOrderDialog <> nil then uOrderDialog.Close; // then x := uOrderDialog.Name else x := ''; + //if ShowMsgOn(uOrderDialog <> nil, TX_DLG_ERR + CRLF + x, TC_DLG_ERR) then Exit; + if CharAt(AnID, 1) = 'X' then + begin + ValidateOrderAction(Copy(AnID, 2, Length(AnID)), OA_CHANGE, x); + if ( Length(x)<1 ) and not (AnEvent.EventIFN > 0) then + ValidateComplexOrderAct(Copy(AnID, 2, Length(AnID)),x); + if (Pos('COMPLEX-PSI',x)>0) then + x := TX_COMPLEX; + if Length(x) > 0 then + x := RetrieveOrderText(Copy(AnID, 2, Length(AnID))) + #13#10 + x; + if ShowMsgOn(Length(x) > 0, x, TC_NO_CHANGE) then Exit; + end; + if CharAt(AnID, 1) = 'C' then + begin + ValidateOrderAction(Copy(AnID, 2, Length(AnID)), OA_COPY, x); + if Length(x) > 0 then + x := RetrieveOrderText(Copy(AnID, 2, Length(AnID))) + #13#10 + x; + if ShowMsgOn(Length(x) > 0, x, TC_NO_COPY) then Exit; + end; + if CharAt(AnID, 1) = 'T' then + begin + ValidateOrderAction(Copy(AnID, 2, Length(AnID)), OA_TRANSFER, x); + if Length(x) > 0 then + x := RetrieveOrderText(Copy(AnID, 2, Length(AnID))) + #13#10 + x; + if ShowMsgOn(Length(x) > 0, x, TC_NO_XFER) then Exit; + end; + if not IMOActionValidation(AnID, IsAnIMOOrder, x, AnEvent.EventType) then + begin + ShowMsgOn(Length(x) > 0, x, TC_IMO_ERROR); + Exit; + end; + if ( (StrToIntDef(AnId,0)>0) and (AnEvent.EventIFN <= 0) ) then + ForIMO := IsIMODialog(StrToInt(AnId)) + else if ( (IsAnIMOOrder) and (AnEvent.EventIFN <= 0) ) then + ForIMO := True; + + OrderPtEvtID := GetOrderPtEvtID(Copy(AnID, 2, Length(AnID))); + OrderEvtID := Piece(EventInfo(OrderPtEvtID),'^',2); + // evaluate order dialog, build response list & see what form should be presented + FillChar(ResolvedDialog, SizeOf(ResolvedDialog), #0); + ResolvedDialog.InputID := AnID; + BuildResponses(ResolvedDialog, GetKeyVars, AnEvent, ForIMO); + if (ForIMO and ( (ResolvedDialog.DialogIEN = MedsInDlgIen) + or (ResolvedDialog.DialogIEN = MedsIVDlgIen)) ) then + ResolvedDialog.DisplayGroup := ClinDisp; + ResetDialogProperties(AnID, AnEvent, ResolvedDialog); + {* AGP CHANGE 26.20 Remove restriction to allowed for ordering of inpatient medication for an inpatient from an outpatient location + //jd imo change + if (ResolvedDialog.DisplayGroup = InptDisp) and (Patient.Inpatient) and (AnEvent.EventIFN < 1) then + begin + if IsClinicLoc(Encounter.Location) then + begin + MessageDlg(TX_NOINPT, mtWarning, [mbOK], 0); + Exit; + end; + end; + //jd imo change end *} + if (ResolvedDialog.DisplayGroup = InptDisp) or + (ResolvedDialog.DisplayGroup = OutptDisp) or + (ResolvedDialog.DisplayGroup = MedsDisp) or + (ResolvedDialog.DisplayGroup = IVDisp) or + (ResolvedDialog.DisplayGroup = NonVADisp) or + (ResolvedDialog.DisplayGroup = ClinDisp) then IsPharmacyOrder := True + else + IsPharmacyOrder := False; + (* IsPharmacyOrder := ResolvedDialog.DisplayGroup in [InptDisp, OutptDisp, + MedsDisp,IVDisp, NonVADisp, ClinDisp];*) //v25.27 range check error - RV + IsConsultOrder := ResolvedDialog.DisplayGroup in [CsltDisp,ProcDisp]; + if (uAutoAC) and (not (ResolvedDialog.QuickLevel in [QL_REJECT,QL_CANCEL])) + and (not IsPharmacyOrder) and (not IsConsultOrder) then + ResolvedDialog.QuickLevel := QL_AUTO; + if (ResolvedDialog.DialogType = 'Q') + and (ResolvedDialog.DisplayGroup = InptDisp) then + begin + NssErr := IsValidQOSch(ResolvedDialog.InputID); + if (Length(NssErr) > 1) then + begin + if (NssErr <> 'OTHER') then + ShowMessage('The order contains invalid non-standard schedule.'); + NSSchedule := True; + ResolvedDialog.QuickLevel := 0; + end; + end; + if ResolvedDialog.DisplayGroup = InptDisp then //nss + begin + if (CharAt(AnID, 1) = 'C') or (CharAt(AnID, 1) = 'T') or (CharAt(AnID, 1) = 'X') then + begin + if not IsValidSchedule(Copy(AnID, 2, Length(AnID))) then + begin + ShowMessage('The order contains invalid non-standard schedule.'); + NSSchedule := True; + end; + end; + if NSSchedule then ResolvedDialog.QuickLevel := 0; + end; + with ResolvedDialog do if (QuickLevel = QL_VERIFY) and (HasTemplateField(ShowText)) then QuickLevel := QL_DIALOG; + with ResolvedDialog do + begin + if QuickLevel = QL_REJECT then InfoBox(ShowText, TC_DLG_REJECT, MB_OK); + if (QuickLevel = QL_VERIFY) and (IsPharmacyOrder or ANeedVerify) then ShowVerifyText(QuickLevel, ShowText, DisplayGroup=InptDisp); + if QuickLevel = QL_AUTO then FormID := OD_AUTOACK; + if (QuickLevel = QL_REJECT) or (QuickLevel = QL_CANCEL) then Exit; + PushKeyVars(ResolvedDialog.QOKeyVars); + end; + if ShowMsgOn(not (ResolvedDialog.FormID > 0), TX_NOFORM, TC_NOFORM) then Exit; + with ResolvedDialog do if DialogType = 'X' then + begin + EditedOrder := Copy(Piece(ResponseID, '-', 1), 2, Length(ResponseID)); + end + else EditedOrder := ''; + if XfInToOutNow then + begin + //if Transfer an order to outpatient and release immediately + // then changing the Eventtype to 'C' instead of 'D' + IsDischargeOrPass := True; + AnEvent.EventType := 'C'; + AnEvent.Effective := 0; + end; + uOrderDialog := CreateOrderDialog(AnOwner, ResolvedDialog.FormID, AnEvent, StrToIntDef(OrderEvtID,0)); + uOrderDialog.IsSupply := IsPsoSupply; + + {For copy, change, transfer actions on an None-IMO order, the new order should not be treated as IMO order + although the IMO criteria could be met. } + //if (uOrderDialog.IsIMO) and (CharAt(AnID, 1) in ['X','C','T']) then + if not uOrderDialog.IsIMO then + uOrderDialog.IsIMO := ForIMO; + + if (ResolvedDialog.DialogType = 'Q') and (ResolvedDialog.DisplayGroup in [MedsDisp, OutptDisp, InptDisp]) then + begin + if DoesOIPIInSigForQO(StrToInt(ResolvedDialog.InputID))=1 then + uOrderDialog.IncludeOIPI := True + else + uOrderDialog.IncludeOIPI := False; + end; + + if (uOrderDialog <> nil) and not uOrderDialog.Closing then with uOrderDialog do + begin + SetKeyVariables(GetKeyVars); + + if IsDischargeOrPass then + EvtForPassDischarge := 'D' + else + EvtForPassDischarge := #0; + + Responses.SetEventDelay(AnEvent); + Responses.LogTime := uOrderSetTime; + DisplayGroup := ResolvedDialog.DisplayGroup; // used to pass ORTO + DialogIEN := ResolvedDialog.DialogIEN; // used to pass ORIT + RefNum := ARefNum; + + case ResolvedDialog.DialogType of + 'C': SetupDialog(ORDER_COPY, ResolvedDialog.ResponseID); + 'D': SetupDialog(ORDER_NEW, ''); + 'X': + begin + SetupDialog(ORDER_EDIT, ResolvedDialog.ResponseID); + OrderID := Copy(ResolvedDialog.ResponseID,2,Length(ResolvedDialog.ResponseID)); + IsInpatient := OrderForInpatient; + ODItem := StrToIntDef(Responses.IValueFor('ORDERABLE', 1), 0); + PkgInfo := ''; + if Length(OrderID)>0 then + PkgInfo := GetPackageByOrderID(OrderID); + if Pos('PS',PkgInfo)=1 then + begin + if DEACheckFailed(ODItem, IsInPatient) and (uOrderDialog.FillerID <> 'PSH') then + begin + InfoBox(TX_NO_DEA + #13 + Responses.OrderText, TC_NO_DEA, MB_OK); + if (ResolvedDialog.DialogType = 'X') and not Changes.ExistForOrder(EditedOrder) + then UnlockOrder(EditedOrder); + uOrderDialog.Close; + Exit; + end; + end; + end; + 'Q': + begin + if IsPSOSupplyDlg(ResolvedDialog.DialogIEN,1) then + uOrderDialog.IsSupply := True; + SetupDialog(ORDER_QUICK, ResolvedDialog.ResponseID); + end; + end; + + if Assigned(uOrderDialog) then + with uOrderDialog do if AbortOrder then + begin + Close; + Exit; + end; + + if CharAt(AnID, 1) = 'T' then + begin + if ARefNum = -2 then + Responses.TransferOrder := ''; + if ARefNum = -1 then + Responses.TransferOrder := AnID; + end; + + if CharAt(AnID,1) = 'C' then //////////////////////////////////////////////////////////////////////// + begin + chkCopay := Copy(AnID,2,length(AnID)); //STRIP prepended C, T, or X from first position in order ID. + SetDefaultCoPay(chkCopay); + end; ////////////////////////////////////////////////////////////////////////' + + if IsConsultOrder and (CharAt(AnID,1) = 'C') then + begin + tmpResp := uOrderDialog.Responses.FindResponseByName('CODE', 1); + if (tmpResp <> nil) then + begin + if IsActiveICDCode(tmpResp.EValue) then + ResolvedDialog.QuickLevel := QL_AUTO + else + ResolvedDialog.QuickLevel := QL_DIALOG; + end + else + ResolvedDialog.QuickLevel := QL_AUTO + end; + + if ResolvedDialog.QuickLevel <> QL_AUTO then + begin + if CharAt(AnID, 1) in ['C','T','X'] then + begin + Position := poScreenCenter; + FormStyle := fsNormal; + ShowModal; + Result := uOrderDialog.AcceptOK; + end + else + begin + SetBounds(frmFrame.Left + 112, frmFrame.Top + frmFrame.Height - Height, Width, Height); + SetFormPosition(uOrderDialog); + FormStyle := fsStayOnTop; + if frmOrders.NeedShowModal then + begin + ShowModal; + Result := uOrderDialog.AcceptOK; + uOrderDialog.Destroy; + end + else + begin + Show; + Result := True; + end; + end; + end + else + begin + cmdAcceptClick(Application); // auto-accept order + Result := uOrderDialog.AcceptOK; + + //BAPHII 1.3.2 + //showmessage('DEBUG: About to copy BA CI''s to copied order from Order: '+AnID+'#13'+' in uOrders.ActivateOrderDialog()'); + + //End BAPHII 1.3.2 + + if Assigned(uOrderDialog) then + uOrderDialog.Destroy; + end; + + end + else + begin + uOrderDialog.Release; + Result := False; + //Application.ProcessMessages; // to allow dialog to finish closing + //Exit; // so result is not returned true + end; + + if NSSchedule then + NSSchedule := False; + + if (ResolvedDialog.DialogType = 'X') and not Changes.ExistForOrder(EditedOrder) + then UnlockOrder(EditedOrder); + +end; + +function RetrieveOrderText(AnOrderID: string): string; +var + OrdList: TList; + theOrder: TOrder; + // i: integer; +begin + // if Assigned(OrdList) then + // begin + // for i := 0 to pred(OrdList.Count) do + // TObject(OrdList[i]).Free; + // UBAGlobals.tempDxList := nil; + // end; + OrdList := TList.Create; + theOrder := TOrder.Create; + theOrder.ID := AnOrderID; + OrdList.Add(theOrder); + RetrieveOrderFields(OrdList, 0, 0); + Result := TOrder(OrdList.Items[0]).Text; + if Assigned(OrdList) then OrdList.Free; //CQ:7554 +end; + +function ActivateOrderHTML(const AnID: string; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer): Boolean; +var + DialogIEN: Integer; + x: string; + ASetList: TStringList; +begin + Result := False; + DialogIEN := StrToIntDef(AnID, 0); + x := OrderDisabledMessage(DialogIEN); + if ShowMsgOn(Length(x) > 0, x, TC_DISABLED) then Exit; + if uOrderHTML = nil then + begin + uOrderHTML := TfrmOMHTML.Create(AnOwner); + with uOrderHTML do + begin + SetBounds(frmFrame.Left + 112, frmFrame.Top + frmFrame.Height - Height, Width, Height); + SetFormPosition(uOrderHTML); + FormStyle := fsStayOnTop; + SetEventDelay(AnEvent); + end; + end; + uOrderHTML.Dialog := DialogIEN; + uOrderHTML.RefNum := ARefNum; + uOrderHTML.OwnedBy := AnOwner; + uOrderHTML.ShowModal; + ASetList := TStringList.Create; + ASetList.Assign(uOrderHTML.SetList); + uOrderHTML.Release; + if ASetList.Count = 0 then Exit; + Result := ActivateOrderList(ASetList, AnEvent, AnOwner, ARefNum, '', ''); +end; + +function ActivateOrderMenu(const AnID: string; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer): Boolean; +var + MenuIEN: Integer; + x: string; +begin + Result := False; + MenuIEN := StrToIntDef(AnID, 0); + x := OrderDisabledMessage(MenuIEN); + if ShowMsgOn(Length(x) > 0, x, TC_DISABLED) then Exit; + if uOrderMenu = nil then + begin + uOrderMenu := TfrmOMNavA.Create(AnOwner); + with uOrderMenu do + begin + SetBounds(frmFrame.Left + 112, frmFrame.Top + frmFrame.Height - Height, Width, Height); + SetFormPosition(uOrderMenu); + FormStyle := fsStayOnTop; + SetEventDelay(AnEvent); + end; + end; + uOrderMenu.SetNewMenu(MenuIEN, AnOwner, ARefNum); + if not uOrderMenu.Showing then uOrderMenu.Show else uOrderMenu.BringToFront; + Result := True; +end; + +function ActivateOrderSet(const AnID: string; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer): Boolean; +var + x, ACaption, KeyVarStr: string; + SetList: TStringList; + EvtDefaultDlg, PtEvtID: string; + + function TakeoutDuplicateDlg(var AdlgList: TStringList; ANeedle: string): boolean; + var + i: integer; + begin + Result := False; + for i := 0 to AdlgList.Count - 1 do + begin + if Piece(AdlgList[i],'^',1)=ANeedle then + begin + ADlgList.Delete(i); + Result := True; + Break; + end; + end; + end; + +begin + Result := False; + x := OrderDisabledMessage(StrToIntDef(AnID, 0)); + if ShowMsgOn(Length(x) > 0, x, TC_DISABLED) then Exit; + SetList := TStringList.Create; + try + if uOrderSetTime = 0 then uOrderSetTime := FMNow; + LoadOrderSet(SetList, StrToIntDef(AnID, 0), KeyVarStr, ACaption); + if (AnEvent.EventIFN>0) and isExistedEvent(Patient.DFN, IntToStr(AnEvent.EventIFN), PtEvtID) then + begin + EvtDefaultDlg := GetEventDefaultDlg(AnEvent.EventIFN); + while TakeoutDuplicateDlg(SetList,EvtDefaultDlg) do + TakeoutDuplicateDlg(SetList,EvtDefaultDlg); + end; + Result := ActivateOrderList(SetList, AnEvent, AnOwner, ARefNum, KeyVarStr, ACaption); + finally + SetList.Free; + end; +end; + +function ActivateOrderList(AList: TStringList; AnEvent: TOrderDelayEvent; + AnOwner: TComponent; ARefNum: Integer; const KeyVarStr, ACaption: string): Boolean; +var + InitialCall: Boolean; +begin + InitialCall := False; + if uOrderSet = nil then + begin + uOrderSet := TfrmOMSet.Create(AnOwner); + uOrderSet.SetEventDelay(AnEvent); + uOrderSet.RefNum := ARefNum; + InitialCall := True; + end; + if InitialCall then with uOrderSet do + begin + if Length(ACaption) > 0 then Caption := ACaption; + SetBounds(frmFrame.Left, frmFrame.Top + frmFrame.Height - Height, Width, Height); + SetFormPosition(uOrderSet); + Show; + end; + uOrderSet.InsertList(AList, AnOwner, ARefNum, KeyVarStr, AnEvent.EventType); + Application.ProcessMessages; + Result := uOrderSet <> nil; +end; + +function ActiveOrdering: Boolean; +begin + if (uOrderDialog = nil) and (uOrderMenu = nil) and (uOrderSet = nil) and + (uOrderAction = nil) and (uOrderHTML = nil) + then Result := False + else Result := True; +end; + +function CloseOrdering: Boolean; +begin + Result := False; + { if an order set is being processed, see if want to interupt } + if uOrderSet <> nil then + begin + uOrderSet.Close; + Application.ProcessMessages; + if uOrderSet <> nil then Exit; + end; + { if another ordering dialog is showing, make sure it is closed first } + if uOrderDialog <> nil then + begin + uOrderDialog.Close; + Application.ProcessMessages; // allow close to finish + if uOrderDialog <> nil then Exit; + end; + if uOrderHTML <> nil then + begin + uOrderHTML.Close; + Application.ProcessMessages; // allow browser to close + Assert(uOrderHTML = nil); + end; + { close any open ordering menu } + if uOrderMenu <> nil then + begin + uOrderMenu.Close; + Application.ProcessMessages; // allow menu to close + Assert(uOrderMenu = nil); + end; + if uOrderAction <> nil then + begin + uOrderAction.Close; + Application.ProcessMessages; + if uOrderAction <> nil then Exit; + end; + Result := True; +end; + +function ReadyForNewOrder(AnEvent: TOrderDelayEvent): Boolean; +var + x,tmpPtEvt: string; +begin + Result := False; + { make sure a location and provider are selected before ordering } + if not AuthorizedUser then Exit; + if (not Patient.Inpatient) and (AnEvent.EventIFN > 0 ) then x := '' + else + begin + if not EncounterPresent then Exit; + end; + { then try to lock the patient (provider & encounter checked first to not leave lock) } + if not LockedForOrdering then Exit; + { make sure any current ordering process has completed, but don't drop patient lock } + uKeepLock := True; + if not CloseOrdering then Exit; + uKeepLock := False; + { get the delay event for this order (if applicable) } + if AnEvent.EventType in ['A','D','T','M','O'] then + begin + if (AnEvent.EventName = '') and (AnEvent.EventType <> 'D') then + Exit; + x := AnEvent.EventType + IntToStr(AnEvent.Specialty); + if (uLastConfirm <> x ) and (not XfInToOutNow) then + begin + uLastConfirm := x; + case AnEvent.EventType of + 'A','M','O','T': x := AnEvent.EventName; + 'D': x := 'Discharge'; + end; + if isExistedEvent(Patient.DFN,IntToStr(AnEvent.EventIFN),tmpPtEvt) then + if PtEvtEmpty(tmpPtEvt)then + InfoBox(TX_DELAY + x + TX_DELAY1, TC_DELAY, MB_OK or MB_ICONWARNING); + end; + end + else uLastConfirm := ''; + Result := True; +end; + +function ReadyForNewOrder1(AnEvent: TOrderDelayEvent): Boolean; +var + x: string; +begin + Result := False; + { make sure a location and provider are selected before ordering } + if not AuthorizedUser then Exit; + if (not Patient.Inpatient) and (AnEvent.EventIFN > 0 ) then x := '' + else + begin + if not EncounterPresent then Exit; + end; + { then try to lock the patient (provider & encounter checked first to not leave lock) } + if not LockedForOrdering then Exit; + { make sure any current ordering process has completed, but don't drop patient lock } + uKeepLock := True; + if not CloseOrdering then Exit; + uKeepLock := False; + { get the delay event for this order (if applicable) } + if AnEvent.EventType in ['A','D','T','M','O'] then + begin + x := AnEvent.EventType + IntToStr(AnEvent.Specialty); + if (uLastConfirm <> x ) and (not XfInToOutNow) then + begin + uLastConfirm := x; + case AnEvent.EventType of + 'A','M','T','O': x := AnEvent.EventName; + 'D': x := AnEvent.EventName; //'D': x := 'Discharge'; + end; + end; + end + else uLastConfirm := ''; + Result := True; +end; + +procedure SetConfirmEventDelay; +begin + uLastConfirm := ''; +end; + +procedure ChangeOrders(AList: TStringList; AnEvent: TOrderDelayEvent); +var + i,txtOrder: Integer; + FieldsForEditRenewOrder: TOrderRenewFields; + param1, param2 : string; + OrSts: integer; + AnOrder: TOrder; +begin + if uOrderDialog <> nil then + begin + uOrderDialog.Close; + Application.ProcessMessages; // allow close to finish + end; + + if not ActiveOrdering then // allow change while entering new + if not ReadyForNewOrder(AnEvent) then Exit; + for i := 0 to AList.Count - 1 do + begin + //if it's for unreleased renewed orders, then go to fODChangeUnreleasedRenew and continue + txtOrder := 0; + FieldsForEditRenewOrder := TOrderRenewFields.Create; + LoadRenewFields(FieldsForEditRenewOrder, AList[i]); + if FieldsForEditRenewOrder.BaseType = OD_TEXTONLY then + txtOrder := 1; + if CanEditSuchRenewedOrder(AList[i], txtOrder) then + begin + param1 := '0'; + if txtOrder = 0 then + begin + param1 := IntToStr(FieldsForEditRenewOrder.Refills); + param2 := FieldsForEditRenewOrder.Pickup; + end else if txtOrder = 1 then + begin + param1 := FieldsForEditRenewOrder.StartTime; + param2 := FieldsForEditRenewOrder.StopTime; + end; + UBAGlobals.SourceOrderID := AList[i]; //hds6265 added + ExecuteChangeRenewedOrder(AList[i], param1, param2, txtOrder); + AnOrder := TOrder.Create; + SaveChangesOnRenewOrder(AnOrder, AList[i], param1, param2, txtOrder); + AnOrder.ActionOn := AnOrder.ID + '=RN'; + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_ACT, Integer(AnOrder)); + Application.ProcessMessages; + Continue; + end else FieldsForEditRenewOrder.Free; + + OrSts := GetOrderStatus(AList[i]); + if ( AnsiCompareText(NameOfStatus(OrSts),'active') = 0 ) and (AnEvent.PtEventIFN > 0) then + EventDefaultOD := 1; + ActivateOrderDialog('X' + AList[i], AnEvent, Application, -1); // X + ORIFN for change + if EventDefaultOD = 1 then + EventDefaultOD := 0; + Application.ProcessMessages; // give uOrderDialog a chance to go back to nil + if BILLING_AWARE then //hds6265 + begin //hds6265 + UBAGlobals.SourceOrderID := AList[i]; //hds6265 + UBAGlobals.CopyTreatmentFactorsDxsToCopiedOrder(UBAGlobals.SourceOrderID,UBAGLobals.TargetOrderID); //hds6265 + end; + end; + UnlockIfAble; +end; + +function ChangeOrdersEvt(AnOrderID: string; AnEvent: TOrderDelayEvent): boolean; +begin + Result := False; + if uOrderDialog <> nil then + begin + uOrderDialog.Close; + Application.ProcessMessages; + end; + if not ActiveOrdering then + if not ReadyForNewOrder(AnEvent) then Exit; + Result := ActivateOrderDialog('X' + AnOrderID, AnEvent, Application, -1); + Application.ProcessMessages; + UnlockIfAble; +end; + +function CopyOrders(AList: TStringList; AnEvent: TOrderDelayEvent; var DoesEventOccur: boolean; ANeedVerify: boolean = True): boolean; +var + i: Integer; + xx: string; + IsIMOOD,ForIVAlso: boolean; +begin + Result := False; + if not ReadyForNewOrder(AnEvent) then Exit; // no copy while entering new + for i := 0 to AList.Count - 1 do + begin + if (not DoesEventOccur) and (AnEvent.PtEventIFN>0) and IsCompletedPtEvt(AnEvent.PtEventIFN) then + begin + DoesEventOccur := True; + AnEvent.EventType := #0; + AnEvent.TheParent := TParentEvent.Create; + AnEvent.EventIFN := 0; + AnEvent.EventName := ''; + AnEvent.PtEventIFN := 0; + end; + + if CheckOrderGroup(AList[i])=1 then IsUDGroup := True + else IsUDGroup := False; + + if (AnEvent.EventIFN>0) and isOnholdMedOrder(AList[i]) then + begin + xx := RetrieveOrderText(AList[i]); + if InfoBox(TX_ONHOLD+#13#13+xx, 'Warning', MB_YESNO or MB_ICONWARNING) = IDNO then + Continue; + end; + + DEASig := GetDrugSchedule(AList[i]); + ForIVAlso := ForIVandUD(AList[i]); + IsIMOOD := IsIMOOrder(AList[i]); + if (IsUDGroup) and (ImmdCopyAct) and (not Patient.Inpatient) and (AnEvent.EventType = 'C') and (not IsIMOOD) and (not ForIVAlso) then + XfInToOutNow := True; + + OrderSource := 'C'; + + if ActivateOrderDialog('C' + AList[i], AnEvent, Application, -1, ANeedVerify) then + Result := True; + + Application.ProcessMessages; // give uOrderDialog a chance to go back to nil + OrderSource := ''; + + if (not DoesEventOccur) and (AnEvent.PtEventIFN>0) and IsCompletedPtEvt(AnEvent.PtEventIFN) then + DoesEventOccur := True; + + if IsUDGroup then IsUDGroup := False; + if XfInToOutNOw then XfInToOutNow := False; + + if BILLING_AWARE then + begin + UBAGlobals.SourceOrderID := AList[i]; //BAPHII 1.3.2 + UBAGlobals.CopyTreatmentFactorsDxsToCopiedOrder(UBAGlobals.SourceOrderID,UBAGLobals.TargetOrderID); + end; + end; //for + + UnlockIfAble; +end; + +function TransferOrders(AList: TStringList; AnEvent: TOrderDelayEvent; var DoesEventOccur: boolean; ANeedVerify: boolean = True): boolean; +var + i, CountOfTfOrders: Integer; + xx: string; + //DoesEventOccur: boolean; + //OccuredEvtID: integer; + //OccuredEvtName: string; +begin + //DoesEventOccur := False; + //OccuredEvtID := 0; + Result := False; + if not ReadyForNewOrder(AnEvent) then Exit; // no xfer while entering new + CountOfTfOrders := AList.Count; + for i := 0 to CountOfTfOrders - 1 do + begin + if (not DoesEventOccur) and (AnEvent.PtEventIFN>0) and IsCompletedPtEvt(AnEvent.PtEventIFN) then + begin + DoesEventOccur := True; + //OccuredEvtID := AnEvent.PtEventIFN; + //OccuredEvtName := AnEvent.EventName; + AnEvent.EventType := #0; + AnEvent.TheParent := TParentEvent.Create; + AnEvent.EventIFN := 0; + AnEvent.EventName := ''; + AnEvent.PtEventIFN := 0; + end; + if i = CountOfTfOrders - 1 then + begin + if (AnEvent.EventIFN>0) and isOnholdMedOrder(AList[i]) then + begin + xx := RetrieveOrderText(AList[i]); + if InfoBox(TX_ONHOLD+#13#13+xx, 'Warning', MB_YESNO or MB_ICONWARNING) = IDNO then + Continue; + end; + OrderSource := 'X'; + if ActivateOrderDialog('T' + AList[i], AnEvent, Application, -2, ANeedVerify) then + Result := True; + end else + begin + if (AnEvent.EventIFN>0) and isOnholdMedOrder(AList[i]) then + begin + xx := RetrieveOrderText(AList[i]); + if InfoBox(TX_ONHOLD+#13#13+xx, 'Warning', MB_YESNO or MB_ICONWARNING) = IDNO then + Continue; + end; + OrderSource := 'X'; + if ActivateOrderDialog('T' + AList[i], AnEvent, Application, -1, ANeedVerify) then + Result := True; + end; + Application.ProcessMessages; // give uOrderDialog a chance to go back to nil + OrderSource := ''; + if (not DoesEventOccur) and (AnEvent.PtEventIFN>0) and IsCompletedPtEvt(AnEvent.PtEventIFN) then + DoesEventOccur := True; + + UBAGlobals.SourceOrderID := AList[i]; + UBAGlobals.CopyTreatmentFactorsDxsToCopiedOrder(UBAGlobals.SourceOrderID, UBAGLobals.TargetOrderID); + + end; + UnlockIfAble; + +end; + +procedure DestroyingOrderAction; +begin + uOrderAction := nil; + if not ActiveOrdering then + begin + ClearOrderRecall; + UnlockIfAble; + end; +end; + +procedure DestroyingOrderDialog; +begin + uOrderDialog := nil; + if not ActiveOrdering then + begin + ClearOrderRecall; + UnlockIfAble; + end; +end; + +procedure DestroyingOrderHTML; +begin + uOrderHTML := nil; + if not ActiveOrdering then + begin + ClearOrderRecall; + UnlockIfAble; + end; +end; + +procedure DestroyingOrderMenu; +begin + uOrderMenu := nil; + if not ActiveOrdering then + begin + ClearOrderRecall; + UnlockIfAble; + end; +end; + +procedure DestroyingOrderSet; +begin + uOrderSet := nil; + uOrderSetTime := 0; + if not ActiveOrdering then + begin + ClearOrderRecall; + UnlockIfAble; + end; +end; + +function OrderIsLocked(const AnOrderID, AnAction: string): Boolean; +var + ErrorMsg: string; +begin + Result := True; + if (AnAction = OA_COPY) then + Exit; + if ((AnAction = OA_HOLD) or (AnAction = OA_UNHOLD) or (AnAction = OA_RENEW) or + (AnAction = OA_DC) or (AnAction = OA_CHANGE)) and Changes.ExistForOrder(AnOrderID) + then Exit; + LockOrder(AnOrderID, ErrorMsg); + if Length(ErrorMsg) > 0 then + begin + Result := False; + InfoBox(ErrorMsg + CRLF + CRLF + TextForOrder(AnOrderID), TC_NOLOCK, MB_OK); + end; +end; + +procedure PopLastMenu; +{ always called from fOMSet } +begin + if uOrderMenu <> nil then uOrderMenu.cmdDoneClick(uOrderSet); +end; + +procedure QuickOrderSave; +begin + // would be better to prompt for dialog + if uOrderDialog = nil then + begin + InfoBox(TX_NO_SAVE_QO, TC_NO_SAVE_QO, MB_OK); + Exit; + end; + with uOrderDialog do + begin + if not AllowQuickOrder then + begin + InfoBox(TX_NO_QUICK, TC_NO_QUICK, MB_OK); + Exit; + end; + if Responses.OrderContainsObjects then + begin + InfoBox(TX_CANT_SAVE_QO, TC_NO_QUICK, MB_ICONERROR or MB_OK); + Exit; + end; + SaveAsQuickOrder(Responses); + end; +end; + +procedure QuickOrderListEdit; +begin + // would be better to prompt for dialog + if uOrderDialog = nil then + begin + InfoBox(TX_NO_EDIT_QO, TC_NO_EDIT_QO, MB_OK); + Exit; + end; + with uOrderDialog do + begin + if not AllowQuickOrder then + begin + InfoBox(TX_NO_QUICK, TC_NO_QUICK, MB_OK); + Exit; + end; + EditCommonList(DisplayGroup); + end; +end; + +function RefNumFor(AnOwner: TComponent): Integer; +begin + if (uOrderDialog <> nil) and (uOrderDialog.Owner = AnOwner) + then Result := uOrderDialog.RefNum + else if (uOrderMenu <> nil) and (uOrderMenu.Owner = AnOwner) + then Result := uOrderMenu.RefNum + else if (uOrderHTML <> nil) and (uOrderHTML.Owner = AnOwner) + then Result := uOrderHTML.RefNum + else if (uOrderSet <> nil) and (uOrderSet.Owner = AnOwner) + then Result := uOrderSet.RefNum + else Result := -1; +end; + + +procedure PrintOrdersOnSignRelease(OrderList: TStringList; Nature: Char; PrintLoc : Integer =0); +const + TX_NEW_LOC1 = 'The patient''s location has changed to '; + TX_NEW_LOC2 = '.' + CRLF + 'Should the orders be printed using the new location?'; + TC_NEW_LOC = 'New Patient Location'; + TX_SIGN_LOC = 'No location was selected. Orders could not be printed!'; + TC_REQ_LOC = 'Orders Not Printed'; + TX_LOC_PRINT = 'The selected location will be used to determine where orders are printed.'; +var + ALocation: Integer; + AName, ASvc, DeviceInfo: string; + PrintIt: Boolean; +begin + if PrintLoc = 0 then + begin + CurrentLocationForPatient(Patient.DFN, ALocation, AName, ASvc); + if (ALocation > 0) and (ALocation <> Encounter.Location) then + begin + if InfoBox(TX_NEW_LOC1 + AName + TX_NEW_LOC2, TC_NEW_LOC, MB_YESNO) = IDYES + then Encounter.Location := ALocation; + end; + end + else + Encounter.Location := PrintLoc; + if Encounter.Location = 0 + then Encounter.Location := CommonLocationForOrders(OrderList); + if Encounter.Location = 0 then // location required for DEVINFO + begin + LookupLocation(ALocation, AName, LOC_ALL, TX_LOC_PRINT); + if ALocation > 0 then Encounter.Location := ALocation; + end; + frmFrame.DisplayEncounterText; + if Encounter.Location <> 0 then + begin + SetupOrdersPrint(OrderList, DeviceInfo, Nature, False, PrintIt); + if PrintIt then + PrintOrdersOnReview(OrderList, DeviceInfo) + else + PrintServiceCopies(OrderList); + end + else InfoBox(TX_SIGN_LOC, TC_REQ_LOC, MB_OK or MB_ICONWARNING); +end; + +procedure SetFontSize( FontSize: integer); +begin + if uOrderDialog <> nil then + uOrderDialog.SetFontSize( FontSize); + if uOrderMenu <> nil then + uOrderMenu.ResizeFont; +end; + +procedure NextMove(var NMRec: TNextMoveRec; LastIndex: Integer; NewIndex: Integer); +begin + if LastIndex = 0 then + LastIndex := NewIndex; + if (LastIndex - NewIndex) <= 0 then + NMRec.NextStep := STEP_FORWARD + else + NMRec.NextStep := STEP_BACK; + NMRec.LastIndex := NewIndex; +end; + +function IsIMODialog(DlgID: integer): boolean; //IMO +var + IsInptDlg, IsIMOLocation: boolean; + Td: TFMDateTime; +begin + result := False; + IsInptDlg := False; + Td := FMToday; + if ( (DlgID = MedsInDlgIen) or (DlgID = MedsIVDlgIen) or (IsInptQO(dlgId)) or (IsIVQO(dlgId))) then IsInptDlg := TRUE; + IsIMOLocation := IsValidIMOLoc(Encounter.Location,Patient.DFN); + if (IsInptDlg or IsInptQO(DlgID)) and (not Patient.Inpatient) and IsIMOLocation and (Encounter.DateTime > Td) then + result := True; +end; + +function AllowActionOnIMO(AnEvtTyp: char): boolean; +var + Td: TFMDateTime; +begin + Result := False; + if (Patient.Inpatient) then + begin + Td := FMToday; + if IsValidIMOLoc(Encounter.Location,Patient.DFN) and (Encounter.DateTime > Td) then + Result := True; + end + else + begin + Td := FMToday; + if IsValidIMOLoc(Encounter.Location,Patient.DFN) and (Encounter.DateTime > Td) then + Result := True + else if AnEvtTyp in ['A','T'] then + Result := True; + end; +end; + +function IMOActionValidation(AnId: string; var IsIMOOD: boolean; var x: string; AnEventType: char): boolean; +var + actName: string; +begin + // jd imo change + Result := True; + if CharAt(AnID, 1) in ['X','C'] then // transfer IMO order doesn't need check + begin + IsIMOOD := IsIMOOrder(Copy(AnID, 2, Length(AnID))); + If IsIMOOD then + begin + if (not AllowActionOnIMO(AnEventType)) then + begin + if CharAt(AnID,1) = 'X' then actName := 'change'; + if CharAt(AnID,1) = 'C' then actName := 'copy'; + x := 'You cannot ' + actName + ' the clinical medication order.'; + x := RetrieveOrderText(Copy(AnID, 2, Length(AnID))) + #13#13#10 + x; + UnlockOrder(Copy(AnID, 2, Length(AnID))); + result := False; + end + else + begin + if patient.Inpatient then + begin + if CharAt(AnID,1) = 'X' then actName := 'changing'; + if CharAt(AnID,1) = 'C' then actName := 'copying'; + if MessageDlg(TX_IMO_WARNING1 + actName + TX_IMO_WARNING2 + #13#13#10 + x, mtWarning,[mbOK,mbCancel],0) = mrCancel then + begin + UnlockOrder(Copy(AnID, 2, Length(AnID))); + result := False; + end; + end; + end; + end; + end; + if Piece(AnId,'^',1)='RENEW' then + begin + IsIMOOD := IsIMOOrder(Piece(AnID,'^',2)); + If IsIMOOD then + begin + if (not AllowActionOnIMO(AnEventType)) then + begin + x := 'You cannot renew the clinical medication order.'; + x := RetrieveOrderText(Piece(AnID,'^',2)) + #13#13#10 + x; + UnlockOrder(Piece(AnID,'^',2)); + result := False; + end + else + begin + if Patient.Inpatient then + begin + if MessageDlg(TX_IMO_WARNING1 + 'renewing' + TX_IMO_WARNING2, mtWarning,[mbOK,mbCancel],0) = mrCancel then + begin + UnlockOrder(Copy(AnID, 2, Length(AnID))); + result := False; + end; + end; + end; + end; + end; +end; + +initialization + uPatientLocked := False; + uKeepLock := False; + uLastConfirm := ''; + uOrderSetTime := 0; + uNewMedDialog := 0; + uOrderAction := nil; + uOrderDialog := nil; + uOrderHTML := nil; + uOrderMenu := nil; + uOrderSet := nil; + NSSchedule := False; + OriginalMedsOutHeight := 0; + OriginalMedsInHeight := 0; + OriginalNonVAMedsHeight := 0; + +end. diff --git a/CPRS-Chart/README.TXT b/CPRS-Chart/README.TXT new file mode 100644 index 0000000..8ef53b5 --- /dev/null +++ b/CPRS-Chart/README.TXT @@ -0,0 +1,72 @@ +5/9/2003 +======== + + IMPORTANT NOTE + TO ALL SITES UTILIZING DELPHI CPRS GUI SOURCE CODE: + +A problem was found in Delphi’s “ComServ.pas” file which causes problems +with COM object registration during installation of an application +utilizing such objects. This file explains the problem and the fix +for it. + +EACH SITE MUST IMPLEMENT THIS FIX MANUALLY in order to compile CPRS. + +You must have the Delphi Source code to implement this fix; it is +available only with Delphi Prossional or Delphi Enterprise (unknown: +Delphi Developer version?). The assumption is that anyone involved +with local modifications will have a properly-licensed version. + +After making the fix, DO NOT distribute the modified source code - anywhere. + +Explanation: + +If you try to register Com objects as a Restricted User (not a Power User +or Administrator) on Win2000 or XP, ComServ.pas will always throw an unhandled +error during program initialization because you don't have write permissions +to the registry. + +The TComServer.Initialize code attempts to "squelch the exception unless +we were explicitly told to register." But, it only traps the Ole +Registration Error and not the Ole Sys Error that was raised in +RegisterTypeLibrary from the OleCheck call. + +Two added lines were placed in the following code in the +TComServer.Initialize procedure of the ComServ.pas unit as a +workaround: + +procedure TComServer.Initialize; +begin + try + UpdateRegistry(FStartMode <> smUnregServer); + except + on E: EOleRegistrationError do + // User may not have write access to the registry. + // Squelch the exception unless we were explicitly told to register. + if FStartMode = smRegServer then raise; + on E: EOleSysError do + if FStartMode = smRegServer then raise; + end; + if FStartMode in [smRegServer, smUnregServer] then Halt; + ComClassManager.ForEachFactory(Self, FactoryRegisterClassObject); +end; + +To utilize this fix, copy the unit “ComServ.pas” into the “CPRS-Chart” +directory, rename it to “uComServ.pas” and then make the change above to +the “TComServer.Initialize” procedure of the new “uComserv.pas” file. +Then add “uComServ.pas” to the project. Finally, change the "Uses" clause +of everything that used to use "ComServ" to "uComServ" instead -- currently, +this consists of the files uAccessibleListBox.pas, uAccessibleStringGrid.pas, +uAccessibleTreeNode.pas, and uAccessibleTreeView.pas. + +NOTE that a “ComServ.pas” file IS NOT included in this zip distribution. +You must create this file yourself (by copying and modifying) and place +it in the “CPRS-Chart” directory. The four units listed above already +have “uComServ” in their “Uses” clauses (in place of the “ComServ” unit +formerly listed). + +This fix allows COM objects included with CPRS GUI to be registered on +an installation machine. (Note that machines where disabled users +will utilize applications accessing those COM objects need to have a +Power User or Adminstrator user run the application one time (unless +the disabled user is already a Power User or Adminstrator user) before +ongoing usage. diff --git a/CPRS-Chart/Templates/fTemplateAutoGen.dfm b/CPRS-Chart/Templates/fTemplateAutoGen.dfm new file mode 100644 index 0000000..88ede90 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateAutoGen.dfm @@ -0,0 +1,128 @@ +object frmTemplateAutoGen: TfrmTemplateAutoGen + Left = 361 + Top = 230 + ActiveControl = rgSource + BorderIcons = [biSystemMenu] + BorderStyle = bsDialog + Caption = 'Generate Template' + ClientHeight = 213 + ClientWidth = 415 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblTop: TMemo + Left = 256 + Top = 8 + Width = 147 + Height = 65 + TabStop = False + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Template generation creates a ' + 'new template, automatically ' + 'copying the template'#39's ' + 'boilerplate from an existing ' + 'source.') + TabOrder = 5 + end + object lblSelect: TStaticText + Left = 0 + Top = 0 + Width = 241 + Height = 213 + Align = alLeft + Alignment = taCenter + AutoSize = False + Caption = 'Select Source of Template Generation ...' + TabOrder = 6 + end + object rgSource: TKeyClickRadioGroup + Left = 256 + Top = 88 + Width = 153 + Height = 81 + Caption = ' Template Generate Source ' + Items.Strings = ( + '&Boilerplated Note Title' + '&Patient Data (Object)') + TabOrder = 2 + TabStop = True + OnClick = rgSourceClick + end + object cbxObjects: TORComboBox + Left = 0 + Top = 0 + Width = 249 + Height = 213 + Style = orcsSimple + AutoSelect = True + Caption = 'Patient Data' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Pieces = '1' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + Visible = False + OnDblClick = cbxObjectsDblClick + end + object btnOK: TButton + Left = 257 + Top = 190 + Width = 75 + Height = 21 + Caption = '&OK' + Default = True + ModalResult = 1 + TabOrder = 3 + end + object btnCancel: TButton + Left = 337 + Top = 190 + Width = 75 + Height = 21 + Cancel = True + Caption = '&Cancel' + ModalResult = 2 + TabOrder = 4 + end + object cbxTitles: TORComboBox + Left = 0 + Top = 0 + Width = 249 + Height = 213 + Style = orcsSimple + AutoSelect = True + Caption = 'Choose Existing Template' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + Visible = False + OnDblClick = cbxTitlesDblClick + OnNeedData = cbxTitlesNeedData + end +end diff --git a/CPRS-Chart/Templates/fTemplateAutoGen.pas b/CPRS-Chart/Templates/fTemplateAutoGen.pas new file mode 100644 index 0000000..a68087f --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateAutoGen.pas @@ -0,0 +1,154 @@ +unit fTemplateAutoGen; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ExtCtrls, ORFn; + +type + TfrmTemplateAutoGen = class(TForm) + rgSource: TKeyClickRadioGroup; + cbxObjects: TORComboBox; + btnOK: TButton; + btnCancel: TButton; + lblTop: TMemo; + cbxTitles: TORComboBox; + lblSelect: TStaticText; + procedure rgSourceClick(Sender: TObject); + procedure cbxTitlesNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cbxTitlesDblClick(Sender: TObject); + procedure cbxObjectsDblClick(Sender: TObject); + procedure FormShow(Sender: TObject); + private + FTitlesDone: boolean; + FObjectsDone: boolean; + public + { Public declarations } + end; + +procedure GetAutoGenText(var AName, AText: string; InList: TStringList); + +implementation + +uses dShared, rTemplates, uTemplates; + +{$R *.DFM} + +var + PersObjects: TStringList; + +const + idxTitle = 0; + idxObject = 1; + +procedure GetAutoGenText(var AName, AText: string; InList: TStringList); +var + frmTemplateAutoGen: TfrmTemplateAutoGen; + +begin + AName := ''; + AText := ''; + PersObjects := InList; + frmTemplateAutoGen := TfrmTemplateAutoGen.Create(Application); + try + ResizeAnchoredFormToFont(frmTemplateAutoGen); + with frmTemplateAutoGen do + begin + ShowModal; + if(ModalResult = mrOK) then + begin + if(rgSource.ItemIndex = idxTitle) then + begin + if(cbxTitles.ItemID <> '') then + begin + AName := MixedCase(cbxTitles.DisplayText[cbxTitles.ItemIndex]); + AText := GetTitleBoilerplate(cbxTitles.ItemID); + end; + end + else + if(rgSource.ItemIndex = idxObject) then + begin + if(cbxObjects.Text <> '') then + begin + AName := cbxObjects.Text; + AText := '|'+Piece(cbxObjects.Items[cbxObjects.ItemIndex],U,3)+'|' + end; + end; + end; + end; + finally + frmTemplateAutoGen.Free; + end; +end; + +procedure TfrmTemplateAutoGen.rgSourceClick(Sender: TObject); +var + idx,i: integer; + DoIt: boolean; + +begin + idx := rgSource.ItemIndex; + rgSource.TabStop := (idx < 0); + if(idx < 0) then exit; + if(idx = idxTitle) then + begin + cbxTitles.Visible := TRUE; + cbxObjects.Visible := FALSE; + if(not FTitlesDone) then + begin + cbxTitles.InitLongList(''); + FTitlesDone := TRUE + end; + cbxTitles.SetFocus; + end + else + if(idx = idxObject) then + begin + cbxObjects.Visible := TRUE; + cbxTitles.Visible := FALSE; + if(not FObjectsDone) then + begin + DoIt := TRUE; //10/31/01 S Monson-- Added + if (UserTemplateAccessLevel <> taEditor) then //UserTemplateAccessLevel check and + if PersObjects.Count > 0 then //PersObjects modification of the list + begin //in response to NOIS HUN-0701-22052 + DoIt := FALSE; + for i := 0 to dmodShared.TIUObjects.Count-1 do + if PersObjects.IndexOf(Piece(dmodShared.TIUObjects[i],U,2)) >= 0 then + cbxObjects.Items.Add(dmodShared.TIUObjects[i]); + end; + if DoIt then + cbxObjects.Items.Assign(dmodShared.TIUObjects); + FObjectsDone := TRUE; + end; + cbxObjects.SetFocus; + end; +end; + +procedure TfrmTemplateAutoGen.cbxTitlesNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + cbxTitles.ForDataUse(SubSetOfBoilerplatedTitles(StartFrom, Direction)); +end; + +procedure TfrmTemplateAutoGen.cbxTitlesDblClick(Sender: TObject); +begin + if(cbxTitles.ItemIndex >= 0) then + ModalResult := mrOK; +end; + +procedure TfrmTemplateAutoGen.cbxObjectsDblClick(Sender: TObject); +begin + if(cbxObjects.ItemIndex >= 0) then + ModalResult := mrOK; +end; + +procedure TfrmTemplateAutoGen.FormShow(Sender: TObject); +begin + //pre-select the first radio item + rgSource.ItemIndex := 0; +end; + +end. diff --git a/CPRS-Chart/Templates/fTemplateDialog.dfm b/CPRS-Chart/Templates/fTemplateDialog.dfm new file mode 100644 index 0000000..dffe681 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateDialog.dfm @@ -0,0 +1,102 @@ +object frmTemplateDialog: TfrmTemplateDialog + Left = 268 + Top = 155 + Width = 640 + Height = 440 + BorderIcons = [biSystemMenu, biMaximize] + Caption = 'Text Dialog' + 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 + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnDestroy = FormDestroy + OnPaint = FormPaint + PixelsPerInch = 96 + TextHeight = 13 + object sbMain: TScrollBox + Left = 0 + Top = 0 + Width = 632 + Height = 375 + VertScrollBar.Tracking = True + Align = alClient + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object pnlBottom: TScrollBox + Left = 0 + Top = 375 + Width = 632 + Height = 38 + Align = alBottom + TabOrder = 1 + object lblFootnote: TStaticText + Left = 196 + Top = 7 + Width = 134 + Height = 17 + Alignment = taCenter + Caption = '* Indicates a Required Field' + TabOrder = 5 + end + object btnCancel: TButton + Left = 551 + Top = 3 + Width = 75 + Height = 21 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 4 + end + object btnOK: TButton + Left = 472 + Top = 3 + Width = 75 + Height = 21 + Caption = 'OK' + ModalResult = 1 + TabOrder = 3 + OnClick = btnOKClick + end + object btnAll: TButton + Left = 6 + Top = 3 + Width = 75 + Height = 21 + Caption = 'All' + TabOrder = 0 + OnClick = btnAllClick + end + object btnNone: TButton + Left = 86 + Top = 3 + Width = 75 + Height = 21 + Caption = 'None' + TabOrder = 1 + OnClick = btnNoneClick + end + object btnPreview: TButton + Left = 360 + Top = 3 + Width = 75 + Height = 21 + Caption = 'Preview' + TabOrder = 2 + OnClick = btnPreviewClick + end + end +end diff --git a/CPRS-Chart/Templates/fTemplateDialog.pas b/CPRS-Chart/Templates/fTemplateDialog.pas new file mode 100644 index 0000000..2640dc7 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateDialog.pas @@ -0,0 +1,758 @@ +unit fTemplateDialog; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls, ORCtrls, ORFn, AppEvnts, uTemplates; + +type + TfrmTemplateDialog = class(TForm) + sbMain: TScrollBox; + pnlBottom: TScrollBox; + btnCancel: TButton; + btnOK: TButton; + btnAll: TButton; + btnNone: TButton; + lblFootnote: TStaticText; + btnPreview: TButton; + procedure btnAllClick(Sender: TObject); + procedure btnNoneClick(Sender: TObject); + procedure FormPaint(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure btnOKClick(Sender: TObject); + procedure btnPreviewClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + SL: TStrings; + BuildIdx: TStringList; + Entries: TStringList; + NoTextID: TStringList; + Index: string; + OneOnly: boolean; + Count: integer; + RepaintBuild: boolean; + FirstIndent: integer; + FBuilding: boolean; + FOldHintEvent: TShowHintEvent; + FMaxPnlWidth: integer; + FTabPos: integer; + FCheck4Required: boolean; + FSilent: boolean; + procedure SizeFormToCancelBtn(); + procedure ChkAll(Chk: boolean); + procedure BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean); + procedure ItemChecked(Sender: TObject); + procedure BuildAllControls; + procedure AppShowHint(var HintStr: string; var CanShow: Boolean; + var HintInfo: THintInfo); + procedure FieldChanged(Sender: TObject); + procedure EntryDestroyed(Sender: TObject); + function GetObjectID( Control: TControl): string; + function GetParentID( Control: TControl): string; + function FindObjectByID( id: string): TControl; + function IsAncestor( OldID: string; NewID: string): boolean; + procedure ParentCBEnter(Sender: TObject); + procedure ParentCBExit(Sender: TObject); + public + property Silent: boolean read FSilent write FSilent ; + published + end; + +// Returns True if Cancel button is pressed +function DoTemplateDialog(SL: TStrings; const CaptionText: string; PreviewMode: boolean = FALSE): boolean; +procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload; +procedure CheckBoilerplate4Fields(var AText: string; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload; + +var + frmTemplateDialog: TfrmTemplateDialog; + +implementation + +uses dShared, uConst, uTemplateFields, fRptBox, uInit, rMisc; + +{$R *.DFM} + +const + Gap = 4; + IndentGap = 18; + + +procedure GetText(SL: TStrings; IncludeEmbeddedFields: Boolean); +var + i, p1, p2: integer; + Txt, tmp: string; + Save, Hidden: boolean; + TmpCtrl: TStringList; + +begin + Txt := SL.Text; + SL.Clear; + TmpCtrl := TStringList.Create; + try + for i := 0 to frmTemplateDialog.sbMain.ControlCount-1 do + with frmTemplateDialog.sbMain do + begin + tmp := IntToStr(Controls[i].Tag); + tmp := StringOfChar('0', 7-length(tmp)) + tmp; + TmpCtrl.AddObject(tmp, Controls[i]); + end; + TmpCtrl.Sort; + for i := 0 to TmpCtrl.Count-1 do + begin + Save := FALSE; + if(TmpCtrl.Objects[i] is TORCheckBox) and (TORCheckBox(TmpCtrl.Objects[i]).Checked) then + Save := TRUE + else + if(frmTemplateDialog.OneOnly and (TmpCtrl.Objects[i] is TPanel)) then + Save := TRUE; + if(Save) then + begin + tmp := Piece(frmTemplateDialog.Index,U,TControl(TmpCtrl.Objects[i]).Tag); + p1 := StrToInt(Piece(tmp,'~',1)); + p2 := StrToInt(Piece(tmp,'~',2)); + Hidden := (copy(Piece(tmp,'~',3),2,1)=BOOLCHAR[TRUE]); + SL.Text := SL.Text + ResolveTemplateFields(Copy(Txt,p1,p2), FALSE, Hidden, IncludeEmbeddedFields); + end; + end; + finally + TmpCtrl.Free; + end; +end; + +// Returns True if Cancel button is pressed +function DoTemplateDialog(SL: TStrings; const CaptionText: string; PreviewMode: boolean = FALSE): boolean; +var + i, j, idx, Indent: integer; + DlgProps, Txt: string; + DlgIDCounts: TStringList; + DlgInt: TIntStruc; + CancelDlg: Boolean; + CancelMsg: String; + + + procedure IncDlgID(var id: string); //Appends an item count in the form of id.0, id.1, id.2, etc + var //based on what is in the StringList for id. + k: integer; + + begin + k := DlgIDCounts.IndexOf(id); + + if (k >= 0) then + begin + DlgInt := TIntStruc(DlgIDCounts.Objects[k]); + DlgInt.x := DlgInt.x + 1; + id := id + '.' + InttoStr(DlgInt.x); + end + else + begin + DlgInt := TIntStruc.Create; + DlgInt.x := 0; + DlgIDCounts.AddObject(id, DlgInt); + id := id + '.0'; + end; + + end; + + procedure CountDlgProps(var DlgID: string); //Updates the item and parent item id's with the count + var // value id.0, id.1, id.2, id.3, etc. The input dialog + x: integer; // id is in the form 'a;b;c;d', where c is the item id + id, pid: string; // and d is the parent item id + + begin + id := piece(DlgID,';',3); + pid := piece(DlgID,';',4); + + if length(pid) > 0 then + x := DlgIDCounts.IndexOf(pid) + else + x := -1; + + if (x >= 0) then + begin + DlgInt := TIntStruc(DlgIDCounts.Objects[x]); + pid := pid + '.' + InttoStr(DlgInt.x); + end; + + if length(id) > 0 then + IncDlgID(id); + + SetPiece(DlgID,';',3,id); + SetPiece(DlgID,';',4,pid); + end; + +begin + Result := FALSE; + CancelDlg := FALSE; + frmTemplateDialog := TfrmTemplateDialog.Create(Application); + try + DlgIDCounts := TStringList.Create; + DlgIDCounts.Sorted := TRUE; + DlgIDCounts.Duplicates := dupError; + frmTemplateDialog.Caption := CaptionText; + AssignFieldIDs(SL); + frmTemplateDialog.SL := SL; + frmTemplateDialog.Index := ''; + Txt := SL.Text; + frmTemplateDialog.OneOnly := (DelimCount(Txt, ObjMarker) = 1); + frmTemplateDialog.Count := 0; + idx := 1; + frmTemplateDialog.FirstIndent := 99999; + repeat + i := pos(ObjMarker, Txt); + if(i > 1) then + begin + j := pos(DlgPropMarker, Txt); + if(j > 0) then + begin + DlgProps := copy(Txt, j + DlgPropMarkerLen, (i - j - DlgPropMarkerLen)); + CountDlgProps(DlgProps); + end + else + begin + DlgProps := ''; + j := i; + end; + inc(frmTemplateDialog.Count); + frmTemplateDialog.Index := frmTemplateDialog.Index + + IntToStr(idx)+'~'+IntToStr(j-1)+'~'+DlgProps+U; + inc(idx,i+ObjMarkerLen-1); + Indent := StrToIntDef(Piece(DlgProps, ';', 5),0); + if(frmTemplateDialog.FirstIndent > Indent) then + frmTemplateDialog.FirstIndent := Indent; + end; + if(i > 0) then + delete(txt, 1, i + ObjMarkerLen - 1); + until (i = 0); + if(frmTemplateDialog.Count > 0) then + begin + if(frmTemplateDialog.OneOnly) then + begin + frmTemplateDialog.btnNone.Visible := FALSE; + frmTemplateDialog.btnAll.Visible := FALSE; + end; + frmTemplateDialog.BuildAllControls; + repeat + frmTemplateDialog.ShowModal; + if(frmTemplateDialog.ModalResult = mrOK) then + GetText(SL, TRUE) {TRUE = Include embedded fields} + else + if (not PreviewMode) and (not frmTemplateDialog.Silent) and (not uInit.TimedOut) then + begin + CancelMsg := 'If you cancel, your changes will not be saved. Are you sure you want to cancel?'; + if (InfoBox(CancelMsg, 'Cancel Dialog Processing', MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) = ID_YES) then + begin + SL.Clear; + Result := TRUE; + CancelDlg := TRUE; + end + else + CancelDlg := FALSE; + end + else + begin + SL.Clear; + Result := TRUE; + CancelDlg := TRUE; + end; + until CancelDlg or (frmTemplateDialog.ModalResult = mrOK) + end + else + SL.Clear; + finally + //frmTemplateDialog.Free; v22.11e RV + frmTemplateDialog.Release; + //frmTemplateDialog := nil; access violation source? removed 7/28/03 RV + for i := 0 to DlgIDCounts.Count-1 do begin + DlgIDCounts.Objects[i].Free; + end; + DlgIDCounts.Free; + end; + + if not Result then + CheckBoilerplate4Fields(SL, CaptionText, PreviewMode); + +end; + +procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE); +begin + while(HasTemplateField(SL.Text)) do + begin + if (BoilerplateTemplateFieldsOK(SL.Text)) then + begin + SL[SL.Count-1] := SL[SL.Count-1] + DlgPropMarker + '00100;0;-1;;0' + ObjMarker; + DoTemplateDialog(SL, CaptionText, PreviewMode); + end + else + SL.Clear; + end; +end; + +procedure CheckBoilerplate4Fields(var AText: string; const CaptionText: string = ''; PreviewMode: boolean = FALSE); +var + tmp: TStringList; + +begin + tmp := TStringList.Create; + try + tmp.text := AText; + CheckBoilerplate4Fields(tmp, CaptionText, PreviewMode); + AText := tmp.text; + finally + tmp.free; + end; +end; + +procedure TfrmTemplateDialog.ChkAll(Chk: boolean); +var + i: integer; + +begin + for i := 0 to sbMain.ControlCount-1 do + begin + if(sbMain.Controls[i] is TORCheckBox) then + TORCheckBox(sbMain.Controls[i]).Checked := Chk; + end; +end; + +procedure TfrmTemplateDialog.btnAllClick(Sender: TObject); +begin + ChkAll(TRUE); +end; + +procedure TfrmTemplateDialog.btnNoneClick(Sender: TObject); +begin + ChkAll(FALSE); +end; + +function TfrmTemplateDialog.GetObjectID( Control: TControl): string; +var + idx, idx2: integer; +begin + result := ''; + if Assigned(Control) then + begin + idx := Control.Tag; + if(idx > 0) then + begin + idx2 := BuildIdx.IndexOfObject(TObject(idx)); + if idx2 >= 0 then + result := BuildIdx[idx2] + else + result := Piece(Piece(Piece(Index, U, idx),'~',3), ';', 3); + end; + end; +end; + +function TfrmTemplateDialog.GetParentID( Control: TControl): string; +var + idx: integer; +begin + result := ''; + if Assigned(Control) then + begin + idx := Control.Tag; + if(idx > 0) then + result := Piece(Piece(Piece(Index, U, idx),'~',3), ';', 4); + end; +end; + +function TfrmTemplateDialog.FindObjectByID( id: string): TControl; +var + i: integer; + ObjID: string; +begin + result := nil; + if ID <> '' then + begin + for i := 0 to sbMain.ControlCount-1 do + begin + ObjID := GetObjectID(sbMain.Controls[i]); + if(ObjID = ID) then + begin + result := sbMain.Controls[i]; + break; + end; + end; + end; +end; + +function TfrmTemplateDialog.IsAncestor( OldID: string; NewID: string): boolean; +begin + if (OldID = '') or (NewID = '') then + result := False + else if OldID = NewID then + result := True + else + result := IsAncestor(OldID, GetParentID(FindObjectByID(NewID))); +end; + +procedure TfrmTemplateDialog.BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean); +var + bGap, Indent, i, idx, p1, p2: integer; + EID, ID, PID, DlgProps, tmp, txt, tmpID: string; + pctrl, ctrl: TControl; + pnl: TPanel; + KillCtrl, doHint, dsp, noTextParent: boolean; + Entry: TTemplateDialogEntry; + StringIn, StringOut: string; + + procedure NextTabCtrl(ACtrl: TControl); + begin + if(ACtrl is TWinControl) then + begin + inc(FTabPos); + TWinControl(ACtrl).TabOrder := FTabPos; + end; + end; + +begin + tmp := Piece(Index, U, CBidx); + p1 := StrToInt(Piece(tmp,'~',1)); + p2 := StrToInt(Piece(tmp,'~',2)); + DlgProps := Piece(tmp,'~',3); + ID := Piece(DlgProps, ';', 3); + PID := Piece(DlgProps, ';', 4); + + ctrl := nil; + pctrl := nil; + if(PID <> '') then + noTextParent := (NoTextID.IndexOf(PID) < 0) + else + noTextParent := TRUE; + if not FirstTime then + ctrl := FindObjectByID(ID); + if noTextParent and (PID <> '') then + pctrl := FindObjectByID(PID); + if(PID = '') then + KillCtrl := FALSE + else + begin + if(assigned(pctrl)) then + begin + if(not (pctrl is TORCheckBox)) or + (copy(DlgProps,3,1) = BOOLCHAR[TRUE]) then // show if parent is unchecked + KillCtrl := FALSE + else + KillCtrl := (not TORCheckBox(pctrl).Checked); + end + else + KillCtrl := noTextParent; + end; + if KillCtrl then + begin + if(assigned(ctrl)) then + begin + if(ctrl is TORCheckBox) and (assigned(TORCheckBox(ctrl).Associate)) then + TORCheckBox(ctrl).Associate.Hide; + idx := BuildIdx.IndexOfObject(TObject(ctrl.Tag)); + if idx >= 0 then + BuildIdx.delete(idx); + ctrl.Free; + end; + exit; + end; + tmp := copy(SL.Text, p1, p2); + if(copy(tmp, length(tmp)-1, 2) = CRLF) then + delete(tmp, length(tmp)-1, 2); + bGap := StrToIntDef(copy(DlgProps,5,1),0); + while bGap > 0 do + begin + if(copy(tmp, 1, 2) = CRLF) then + begin + delete(tmp, 1, 2); + dec(bGap); + end + else + bGap := 0; + end; + if(tmp = NoTextMarker) then + begin + if(NoTextID.IndexOf(ID) < 0) then + NoTextID.Add(ID); + exit; + end; + if(not assigned(ctrl)) then + begin + dsp := (copy(DlgProps,1,1)=BOOLCHAR[TRUE]); + EID := 'DLG' + IntToStr(CBIdx); + idx := Entries.IndexOf(EID); + doHint := FALSE; + txt := tmp; + if(idx < 0) then + begin + if(copy(DlgProps,2,1)=BOOLCHAR[TRUE]) then // First Line Only + begin + i := pos(CRLF, tmp); + if(i > 0) then + begin + dec(i); + if i > 70 then + begin + i := 71; + while (i > 0) and (tmp[i] <> ' ') do dec(i); + if i = 0 then + i := 70 + else + dec(i); + end; + doHint := TRUE; + tmp := copy(tmp, 1, i) + ' ...'; + end; + end; + Entry := GetDialogEntry(sbMain, EID, tmp); + Entry.AutoDestroyOnPanelFree := TRUE; + Entry.OnDestroy := EntryDestroyed; + Entries.AddObject(EID, Entry); + end + else + Entry := TTemplateDialogEntry(Entries.Objects[idx]); + + pnl := Entry.GetPanel(FMaxPnlWidth, sbMain); + pnl.Show; + if(doHint and (not pnl.ShowHint)) then + begin + pnl.ShowHint := TRUE; + Entry.Obj := pnl; + Entry.Text := txt; + pnl.hint := Entry.GetText; + Entry.OnChange := FieldChanged; + end; + if(dsp or OneOnly) then + ctrl := pnl + else + begin + ctrl := TORCheckBox.Create(Self); + ctrl.Parent := sbMain; + + TORCheckbox(ctrl).OnEnter := frmTemplateDialog.ParentCBEnter; + TORCheckbox(ctrl).OnExit := frmTemplateDialog.ParentCBExit; + + TORCheckBox(ctrl).Height := TORCheckBox(ctrl).Height + 5; + TORCheckBox(ctrl).Width := 17; + + {Insert next line when focus fixed} + // ctrl.Width := IndentGap; + {Remove next line when focus fixed} + TORCheckBox(ctrl).AutoSize := false; + TORCheckBox(ctrl).Associate := pnl; + tmpID := copy(ID, 1, (pos('.', ID) - 1)); {copy the ID without the decimal place} + if Templates.IndexOf(tmpID) > -1 then + StringIn := 'Sub-Template: ' + TTemplate(Templates.Objects[Templates.IndexOf(tmpID)]).PrintName + else + StringIn := 'Sub-Template:'; + StringOut := StringReplace(StringIn, '&', '&&', [rfReplaceAll]); + TORCheckBox(ctrl).Caption := StringOut; + + end; + ctrl.Tag := CBIdx; + + Indent := StrToIntDef(Piece(DlgProps, ';', 5),0) - FirstIndent; + if dsp then inc(Indent); + ctrl.Left := Gap + (Indent * IndentGap); + //ctrl.Width := sbMain.ClientWidth - Gap - ctrl.Left - ScrollBarWidth; + if(ctrl is TORCheckBox) then + pnl.Left := ctrl.Left + IndentGap; + + if(ctrl is TORCheckBox) then with TORCheckBox(ctrl) do + begin + GroupIndex := StrToIntDef(Piece(DlgProps, ';', 2),0); + if(GroupIndex <> 0) then + RadioStyle := TRUE; + OnClick := ItemChecked; + StringData := DlgProps; + end; + if BuildIdx.IndexOfObject(TObject(CBIdx)) < 0 then + BuildIdx.AddObject(Piece(Piece(Piece(Index, U, CBIdx),'~',3), ';', 3), TObject(CBIdx)); + end; + ctrl.Top := Y; + NextTabCtrl(ctrl); + if(ctrl is TORCheckBox) then + begin + TORCheckBox(ctrl).Associate.Top := Y; + NextTabCtrl(TORCheckBox(ctrl).Associate); + inc(Y, TORCheckBox(ctrl).Associate.Height+1); + end + else + inc(Y, ctrl.Height+1); +end; + +procedure TfrmTemplateDialog.ParentCBEnter(Sender: TObject); +begin + (Sender as TORCheckbox).FocusOnBox := true; +end; + +procedure TfrmTemplateDialog.ParentCBExit(Sender: TObject); +begin + (Sender as TORCheckbox).FocusOnBox := false; + +end; + +procedure TfrmTemplateDialog.ItemChecked(Sender: TObject); +begin + if(copy(TORCheckBox(Sender).StringData,4,1) = '1') then + begin + RepaintBuild := TRUE; + Invalidate; + end; +end; + +procedure TfrmTemplateDialog.BuildAllControls; +var + i, Y: integer; + FirstTime: boolean; + +begin + if FBuilding then exit; + FBuilding := TRUE; + try + FTabPos := 0; + FirstTime := (sbMain.ControlCount = 0); + NoTextID.Clear; + Y := Gap - sbMain.VertScrollBar.Position; + for i := 1 to Count do + BuildCB(i, Y, FirstTime); + finally + FBuilding := FALSE; + end; +end; + +procedure TfrmTemplateDialog.FormPaint(Sender: TObject); +begin + if RepaintBuild then + begin + RepaintBuild := FALSE; + BuildAllControls; + end; +end; + +procedure TfrmTemplateDialog.FormCreate(Sender: TObject); +begin + BuildIdx := TStringList.Create; + Entries := TStringList.Create; + NoTextID := TStringList.Create; + FOldHintEvent := Application.OnShowHint; + Application.OnShowHint := AppShowHint; + ResizeAnchoredFormToFont(Self); + FMaxPnlWidth := FontWidthPixel(sbMain.Font.Handle) * MAX_ENTRY_WIDTH; //AGP change Template Dialog to wrap at 80 instead of 74 + SetFormPosition(Self); + SizeFormToCancelBtn(); +end; + +procedure TfrmTemplateDialog.AppShowHint(var HintStr: string; + var CanShow: Boolean; var HintInfo: THintInfo); +const + HistHintDelay = 1200000; // 20 minutes + +begin +// if(HintInfo.HintControl.Parent = sbMain) then + HintInfo.HideTimeout := HistHintDelay; + if(assigned(FOldHintEvent)) then + FOldHintEvent(HintStr, CanShow, HintInfo); +end; + +procedure TfrmTemplateDialog.FormDestroy(Sender: TObject); +begin + //Application.OnShowHint := FOldHintEvent; v22.11f - RV - moved to OnClose + NoTextID.Free; + FreeEntries(Entries); + Entries.Free; + BuildIdx.Free; +end; + +procedure TfrmTemplateDialog.FieldChanged(Sender: TObject); +begin + with TTemplateDialogEntry(Sender) do + TPanel(Obj).hint := GetText; +end; + +procedure TfrmTemplateDialog.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +var + Txt, tmp: string; + i, p1, p2: integer; + Save: boolean; + +begin + CanClose := TRUE; + if FCheck4Required then + begin + FCheck4Required := FALSE; + Txt := SL.Text; + for i := 0 to sbMain.ControlCount-1 do + begin + Save := FALSE; + if(sbMain.Controls[i] is TORCheckBox) and + (TORCheckBox(sbMain.Controls[i]).Checked) then + Save := TRUE + else + if(OneOnly and (sbMain.Controls[i] is TPanel)) then + Save := TRUE; + if(Save) then + begin + tmp := Piece(Index,U,sbMain.Controls[i].Tag); + p1 := StrToInt(Piece(tmp,'~',1)); + p2 := StrToInt(Piece(tmp,'~',2)); + if AreTemplateFieldsRequired(Copy(Txt,p1,p2)) then + CanClose := FALSE; + end; + if not CanClose then + begin + ShowMessage(MissingFieldsTxt); + break; + end; + end; + end; +end; + +procedure TfrmTemplateDialog.btnOKClick(Sender: TObject); +begin + FCheck4Required := TRUE; +end; + +procedure TfrmTemplateDialog.btnPreviewClick(Sender: TObject); +var + TmpSL: TStringList; + +begin + TmpSL := TStringList.Create; + try + TmpSL.Assign(SL); + GetText(TmpSL, FALSE); {FALSE = Do not include embedded fields} + ReportBox(TmpSL, 'Dialog Preview', FALSE); + finally + TmpSL.Free; + end; +end; + +procedure TfrmTemplateDialog.EntryDestroyed(Sender: TObject); +var + idx: integer; + +begin + idx := Entries.IndexOf(TTemplateDialogEntry(Sender).ID); + if idx >= 0 then + Entries.delete(idx); +end; + +procedure TfrmTemplateDialog.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Application.OnShowHint := FOldHintEvent; + SaveUserBounds(Self); +end; + +procedure TfrmTemplateDialog.SizeFormToCancelBtn; +const + RIGHT_MARGIN = 12; +var + minWidth : integer; +begin + minWidth := btnCancel.Left + btnCancel.Width + RIGHT_MARGIN; + if minWidth > Self.Width then + Self.Width := minWidth; +end; + +end. + diff --git a/CPRS-Chart/Templates/fTemplateEditor.dfm b/CPRS-Chart/Templates/fTemplateEditor.dfm new file mode 100644 index 0000000..e4c56eb --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateEditor.dfm @@ -0,0 +1,1752 @@ +object frmTemplateEditor: TfrmTemplateEditor + Left = 135 + Top = 239 + Width = 748 + Height = 470 + HelpContext = 10000 + ActiveControl = tvPersonal + BorderIcons = [biSystemMenu, biMaximize] + Caption = 'Template Editor' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + Scaled = False + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object splMain: TSplitter + Left = 0 + Top = 239 + Width = 740 + Height = 3 + Cursor = crVSplit + Align = alTop + AutoSnap = False + Beveled = True + MinSize = 40 + OnMoved = splMainMoved + end + object splNotes: TSplitter + Left = 0 + Top = 371 + Width = 740 + Height = 3 + Cursor = crVSplit + Align = alBottom + AutoSnap = False + Beveled = True + Visible = False + OnMoved = splBoilMoved + end + object pnlBottom: TORAutoPanel + Left = 0 + Top = 416 + Width = 740 + Height = 27 + Align = alBottom + BevelOuter = bvNone + TabOrder = 4 + DesignSize = ( + 740 + 27) + object btnApply: TButton + Left = 664 + Top = 4 + Width = 75 + Height = 22 + Anchors = [akTop, akRight] + Caption = 'Apply' + ParentShowHint = False + ShowHint = False + TabOrder = 5 + OnClick = btnApplyClick + end + object btnCancel: TButton + Left = 584 + Top = 4 + Width = 75 + Height = 22 + Anchors = [akTop, akRight] + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + ParentShowHint = False + ShowHint = False + TabOrder = 4 + OnClick = btnCancelClick + end + object btnOK: TButton + Left = 504 + Top = 4 + Width = 75 + Height = 22 + Anchors = [akTop, akRight] + Caption = 'OK' + ParentShowHint = False + ShowHint = False + TabOrder = 3 + OnClick = btnOKClick + end + object cbEditShared: TCheckBox + Left = 0 + Top = 6 + Width = 129 + Height = 17 + Caption = 'E&dit Shared Templates' + TabOrder = 0 + OnClick = cbEditSharedClick + end + object cbNotes: TCheckBox + Left = 259 + Top = 6 + Width = 128 + Height = 17 + Hint = + 'Keep notes about a template that can be seen from the templates ' + + 'drawer' + Caption = 'Sh&ow Template Notes' + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = cbNotesClick + end + object cbEditUser: TCheckBox + Left = 132 + Top = 6 + Width = 123 + Height = 17 + Caption = 'E&dit User'#39's Templates' + TabOrder = 1 + Visible = False + OnClick = cbEditSharedClick + end + end + object pnlBoilerplate: TPanel + Left = 0 + Top = 284 + Width = 740 + Height = 87 + Align = alClient + BevelOuter = bvNone + TabOrder = 2 + OnCanResize = pnlBoilerplateCanResize + OnResize = pnlBoilerplateResize + object splBoil: TSplitter + Left = 0 + Top = 43 + Width = 740 + Height = 3 + Cursor = crVSplit + Align = alBottom + AutoSnap = False + Beveled = True + Visible = False + OnMoved = splBoilMoved + end + object reBoil: TRichEdit + Left = 0 + Top = 14 + Width = 740 + Height = 29 + Align = alClient + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PlainText = True + PopupMenu = popBoilerplate + ScrollBars = ssBoth + TabOrder = 1 + WantTabs = True + OnChange = reBoilChange + OnKeyDown = reBoilKeyDown + OnKeyPress = reBoilKeyPress + OnKeyUp = reBoilKeyUp + OnResizeRequest = reResizeRequest + OnSelectionChange = reBoilSelectionChange + end + object pnlGroupBP: TPanel + Left = 0 + Top = 46 + Width = 740 + Height = 41 + Align = alBottom + BevelOuter = bvNone + TabOrder = 2 + Visible = False + object lblGroupBP: TLabel + Left = 0 + Top = 0 + Width = 740 + Height = 13 + Align = alTop + Caption = 'Group Boilerplate' + end + object lblGroupRow: TLabel + Left = 264 + Top = 0 + Width = 23 + Height = 13 + Caption = 'Line:' + end + object lblGroupCol: TLabel + Left = 336 + Top = 0 + Width = 38 + Height = 13 + Caption = 'Column:' + end + object reGroupBP: TRichEdit + Left = 0 + Top = 16 + Width = 740 + Height = 25 + Align = alClient + Color = clCream + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PlainText = True + PopupMenu = popGroup + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + WantReturns = False + OnSelectionChange = reGroupBPSelectionChange + end + object pnlGroupBPGap: TPanel + Left = 0 + Top = 13 + Width = 740 + Height = 3 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + end + end + object pnlBP: TPanel + Left = 0 + Top = 0 + Width = 740 + Height = 14 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object lblBoilerplate: TLabel + Left = 0 + Top = 0 + Width = 96 + Height = 13 + Caption = 'Template &Boilerplate' + FocusControl = reBoil + end + object lblBoilRow: TLabel + Left = 264 + Top = 0 + Width = 23 + Height = 13 + Caption = 'Line:' + end + object lblBoilCol: TLabel + Left = 336 + Top = 0 + Width = 38 + Height = 13 + Caption = 'Column:' + Color = clBtnFace + ParentColor = False + end + object cbLongLines: TCheckBox + Left = 120 + Top = -2 + Width = 105 + Height = 17 + Caption = 'Allow Lon&g Lines' + TabOrder = 0 + OnClick = cbLongLinesClick + end + end + end + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 740 + Height = 239 + Align = alTop + BevelOuter = bvNone + Constraints.MinHeight = 223 + TabOrder = 0 + object splMiddle: TSplitter + Left = 297 + Top = 24 + Width = 3 + Height = 215 + Cursor = crHSplit + Align = alRight + AutoSnap = False + Beveled = True + end + object Bevel1: TBevel + Left = 0 + Top = 22 + Width = 740 + Height = 2 + Align = alTop + Shape = bsSpacer + end + object pnlRightTop: TPanel + Left = 300 + Top = 24 + Width = 440 + Height = 215 + Align = alRight + BevelOuter = bvNone + TabOrder = 2 + object splProperties: TSplitter + Left = 216 + Top = 0 + Width = 3 + Height = 215 + Cursor = crHSplit + Align = alRight + AutoSnap = False + Beveled = True + end + object pnlCopyBtns: TPanel + Left = 0 + Top = 0 + Width = 27 + Height = 215 + Align = alLeft + BevelOuter = bvNone + TabOrder = 0 + DesignSize = ( + 27 + 215) + object lblCopy: TLabel + Left = -3 + Top = 82 + Width = 30 + Height = 13 + Alignment = taCenter + Anchors = [akLeft, akTop, akRight] + AutoSize = False + Caption = 'Copy' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + Layout = tlCenter + end + object sbCopyRight: TBitBtn + Left = 1 + Top = 125 + Width = 23 + Height = 23 + Hint = 'Copy Shared Template into Personal Template List' + Enabled = False + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = sbCopyRightClick + Glyph.Data = { + 76010000424D7601000000000000760000002800000020000000100000000100 + 0400000000000001000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 + 1111111111111111111111111111111111111111111F11111111111111011111 + 11111111117FF1111111111111001111111111111177FF111111111111000111 + 1111111111777FF11111111111000011111111FFFF7777FF1111100000000001 + 111117777777777FF1111000000000001111177777777777FF11100000000000 + 01111777777777777F1110000000000001111777777777777111100000000000 + 1111177777777777111110000000000111111777777777711111111111000011 + 1111111111777711111111111100011111111111117771111111111111001111 + 1111111111771111111111111101111111111111117111111111} + NumGlyphs = 2 + end + object sbCopyLeft: TBitBtn + Tag = 1 + Left = 1 + Top = 100 + Width = 23 + Height = 23 + Hint = 'Copy Personal Template into Shared Template List' + Enabled = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = sbCopyLeftClick + Glyph.Data = { + 76010000424D7601000000000000760000002800000020000000100000000100 + 0400000000000001000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 + 11111111111111111111111111111111111111111111F1111111111111101111 + 111111111117F1111111111111001111111111111177F1111111111110001111 + 111111111777F1111111111100001111111111117777FFFFFF11111000000000 + 01111117777777777F1111000000000001111177777777777F11100000000000 + 01111777777777777F1110000000000001111777777777777F11110000000000 + 01111177777777777F1111100000000001111117777777777111111100001111 + 111111117777F1111111111110001111111111111777F1111111111111001111 + 111111111177F111111111111110111111111111111711111111} + NumGlyphs = 2 + end + end + object pnlPersonal: TPanel + Left = 27 + Top = 0 + Width = 189 + Height = 215 + Align = alClient + BevelOuter = bvNone + Constraints.MinWidth = 100 + TabOrder = 1 + object lblPersonal: TLabel + Tag = 1 + Left = 0 + Top = 0 + Width = 189 + Height = 13 + Align = alTop + Caption = '&Personal Templates' + FocusControl = tvPersonal + PopupMenu = popTemplates + end + object tvPersonal: TORTreeView + Tag = 1 + Left = 0 + Top = 53 + Width = 189 + Height = 138 + Align = alClient + DragMode = dmAutomatic + Images = dmodShared.imgTemplates + Indent = 19 + PopupMenu = popTemplates + RightClickSelect = True + TabOrder = 1 + OnChange = tvTreeChange + OnDragDrop = tvTreeDragDrop + OnDragOver = tvTreeDragOver + OnEdited = tvTreeNodeEdited + OnEndDrag = tvTreeEndDrag + OnEnter = tvTreeEnter + OnExpanding = tvPersonalExpanding + OnGetImageIndex = tvTreeGetImageIndex + OnGetSelectedIndex = tvTreeGetSelectedIndex + OnKeyDown = tvTreeKeyDown + OnStartDrag = tvTreeStartDrag + Caption = 'Personal Templates' + NodePiece = 0 + OnDragging = tvTreeDragging + end + object pnlPersonalBottom: TPanel + Left = 0 + Top = 191 + Width = 189 + Height = 24 + Align = alBottom + BevelOuter = bvNone + TabOrder = 2 + DesignSize = ( + 189 + 24) + object sbPerUp: TBitBtn + Tag = 1 + Left = 86 + Top = 2 + Width = 21 + Height = 21 + Hint = 'Move Personal Template Up' + Anchors = [akTop, akRight] + Enabled = False + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = sbMoveUpClick + Glyph.Data = { + 76010000424D7601000000000000760000002800000020000000100000000100 + 0400000000000001000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 + 1111111111111111111111111111111111111111111111111111111111111111 + 111111111FFFFFF1111111110000001111111111777777F11111111100000011 + 11111111777777F1111111110000001111111111777777F11111111100000011 + 11111111777777F1111111110000001111111FFF777777FFFFF1000000000000 + 0011777777777777771110000000000001111777777777777111110000000000 + 1111117777777777111111100000000111111117777777711111111100000011 + 1111111177777711111111111000011111111111177771111111111111001111 + 1111111111771111111111111111111111111111111111111111} + NumGlyphs = 2 + end + object sbPerDown: TBitBtn + Tag = 1 + Left = 109 + Top = 2 + Width = 21 + Height = 21 + Hint = 'Move Personal Template Down' + Anchors = [akTop, akRight] + Enabled = False + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = sbMoveDownClick + Glyph.Data = { + 76010000424D7601000000000000760000002800000020000000100000000100 + 0400000000000001000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 + 1111111111111111111111111111111111111111111111111111111111111111 + 11111111111FF1111111111111001111111111111177FF111111111110000111 + 1111111117777FF1111111110000001111111111777777FF1111111000000001 + 111111177777777FF1111100000000001111117777777777FF11100000000000 + 01111777777777777FF100000000000000117777777777777711111100000011 + 11111111777777F1111111110000001111111111777777F11111111100000011 + 11111111777777F1111111110000001111111111777777F11111111100000011 + 1111111177777711111111111111111111111111111111111111} + NumGlyphs = 2 + end + object sbPerDelete: TBitBtn + Tag = 1 + Left = 132 + Top = 2 + Width = 56 + Height = 21 + Hint = 'Delete Personal Template' + Anchors = [akTop, akRight] + Caption = 'Delete' + Enabled = False + ParentShowHint = False + ShowHint = True + TabOrder = 3 + OnClick = sbDeleteClick + Glyph.Data = { + 76010000424D7601000000000000760000002800000020000000100000000100 + 0400000000000001000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 + 1111111111111111111111111111111111111111111111111111111111111111 + 111111FF11111111FF111001111111100111177FF11111177F11100011111100 + 01111777FF1111777111110001111000111111777FF117771111111000110001 + 1111111777FF7771111111110000001111111111777777111111111110000111 + 1111111117777F1111111111100001111111111117777FF11111111100000011 + 11111111777777FF1111111000110001111111177711777FF111110001111000 + 1111117771111777FF1110001111110001111777111111777111100111111110 + 0111177111111117711111111111111111111111111111111111} + Layout = blGlyphRight + NumGlyphs = 2 + end + object cbPerHide: TCheckBox + Left = 0 + Top = 4 + Width = 83 + Height = 17 + Hint = 'Hide Inactive Personal Templates' + Anchors = [akLeft, akTop, akRight] + Caption = 'Hide &Inactive' + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = cbPerHideClick + end + end + object pnlPersonalGap: TPanel + Tag = 1 + Left = 0 + Top = 13 + Width = 189 + Height = 2 + Align = alTop + BevelOuter = bvNone + PopupMenu = popTemplates + TabOrder = 3 + end + object pnlPerSearch: TPanel + Left = 0 + Top = 15 + Width = 189 + Height = 38 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + OnResize = pnlPerSearchResize + DesignSize = ( + 189 + 38) + object btnPerFind: TORAlignButton + Tag = 1 + Left = 134 + Top = 0 + Width = 55 + Height = 21 + Hint = 'Find Template' + Anchors = [akTop, akRight] + Caption = 'Find' + ParentShowHint = False + PopupMenu = popTemplates + ShowHint = True + TabOrder = 1 + OnClick = btnFindClick + end + object edtPerSearch: TCaptionEdit + Tag = 1 + Left = 0 + Top = 0 + Width = 134 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 0 + OnChange = edtSearchChange + OnEnter = edtPerSearchEnter + OnExit = edtPerSearchExit + Caption = 'Personal Templates' + end + object cbPerMatchCase: TCheckBox + Tag = 1 + Left = 0 + Top = 21 + Width = 80 + Height = 17 + Caption = 'Match Case' + TabOrder = 2 + OnClick = cbPerFindOptionClick + end + object cbPerWholeWords: TCheckBox + Tag = 1 + Left = 80 + Top = 21 + Width = 109 + Height = 17 + Caption = 'Whole Words Only' + TabOrder = 3 + OnClick = cbPerFindOptionClick + end + end + end + object pnlProperties: TPanel + Left = 219 + Top = 0 + Width = 221 + Height = 215 + Align = alRight + BevelOuter = bvNone + TabOrder = 2 + OnResize = pnlPropertiesResize + object gbProperties: TGroupBox + Left = 0 + Top = 0 + Width = 221 + Height = 215 + Align = alClient + Caption = ' Template Properties ' + Constraints.MinWidth = 100 + TabOrder = 0 + DesignSize = ( + 221 + 215) + object lblName: TLabel + Left = 5 + Top = 18 + Width = 31 + Height = 13 + Caption = 'Na&me:' + FocusControl = edtName + end + object lblLines: TLabel + Left = 43 + Top = 186 + Width = 110 + Height = 27 + Hint = + 'Indicates the number of blank lines to insert, in the group boil' + + 'erplate, between each item'#39's boilerplate.' + Anchors = [akLeft, akTop, akRight, akBottom] + AutoSize = False + Caption = 'Number of Blank &Lines to insert between items' + FocusControl = edtGap + ParentShowHint = False + ShowHint = True + WordWrap = True + end + object lblType: TLabel + Left = 5 + Top = 44 + Width = 74 + Height = 13 + Caption = 'Template T&ype:' + FocusControl = cbxType + end + object lblRemDlg: TLabel + Left = 5 + Top = 60 + Width = 48 + Height = 26 + Alignment = taCenter + Caption = 'Reminder &Dialog:' + FocusControl = cbxRemDlgs + WordWrap = True + end + object cbExclude: TORCheckBox + Left = 5 + Top = 143 + Width = 73 + Height = 42 + Hint = + 'Removes this template'#39's boilerplate from the group'#39's boilerplate' + + '.' + Caption = 'E&xclude from Group Boilerplate' + ParentShowHint = False + ShowHint = True + TabOrder = 5 + OnClick = cbExcludeClick + WordWrap = True + AutoSize = True + end + object cbActive: TCheckBox + Left = 5 + Top = 86 + Width = 61 + Height = 17 + Hint = 'Makes a template or folder active or inactive.' + Caption = 'A&ctive' + Checked = True + ParentShowHint = False + ShowHint = True + State = cbChecked + TabOrder = 3 + OnClick = cbActiveClick + end + object edtGap: TCaptionEdit + Left = 5 + Top = 190 + Width = 20 + Height = 21 + Hint = + 'Indicates the number of blank lines to insert, in the group boil' + + 'erplate, between each item'#39's boilerplate.' + MaxLength = 1 + ParentShowHint = False + ShowHint = True + TabOrder = 7 + Text = '0' + OnChange = edtGapChange + OnKeyPress = edtGapKeyPress + Caption = 'Number of Blank Lines to insert between items' + end + object udGap: TUpDown + Left = 25 + Top = 190 + Width = 15 + Height = 21 + Hint = + 'Indicates the number of blank lines to insert, in the group boil' + + 'erplate, between each item'#39's boilerplate.' + Associate = edtGap + Min = 0 + Max = 3 + ParentShowHint = False + Position = 0 + ShowHint = True + TabOrder = 8 + Wrap = False + end + object edtName: TCaptionEdit + Left = 38 + Top = 15 + Width = 177 + Height = 21 + Anchors = [akLeft, akTop, akRight] + MaxLength = 60 + TabOrder = 0 + OnChange = edtNameOldChange + OnExit = edtNameExit + Caption = 'Name' + end + object gbDialogProps: TGroupBox + Left = 89 + Top = 87 + Width = 126 + Height = 95 + Anchors = [akLeft, akTop, akRight] + Caption = 'Dialog Properties' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 6 + object cbDisplayOnly: TCheckBox + Left = 6 + Top = 15 + Width = 82 + Height = 17 + Hint = + 'Template boilerplate is for dialog display only, and can not be ' + + 'added to the note.' + Caption = 'Display Only' + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = cbDisplayOnlyClick + end + object cbOneItemOnly: TCheckBox + Left = 6 + Top = 60 + Width = 113 + Height = 17 + Hint = 'Allow only one child item to be selected at a time' + Caption = 'One Item Only' + ParentShowHint = False + ShowHint = True + TabOrder = 3 + OnClick = cbOneItemOnlyClick + end + object cbFirstLine: TCheckBox + Left = 6 + Top = 30 + Width = 115 + Height = 17 + Hint = + 'Only show the first line of text in the dialog, but include the ' + + 'entire template in the note' + Caption = 'Only Show First Line' + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = cbFirstLineClick + end + object cbHideDlgItems: TCheckBox + Left = 6 + Top = 75 + Width = 107 + Height = 17 + Hint = 'Hide child items when parent template is not selected' + Caption = 'Hide Dialog Items' + ParentShowHint = False + ShowHint = True + TabOrder = 4 + OnClick = cbHideDlgItemsClick + end + object cbIndent: TCheckBox + Left = 6 + Top = 45 + Width = 117 + Height = 17 + Hint = + 'Indent child items in the dialog. Text insertion remains unchan' + + 'ged' + Caption = 'Indent Dialog Items' + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = cbIndentClick + end + end + object cbHideItems: TORCheckBox + Left = 5 + Top = 102 + Width = 79 + Height = 42 + Hint = 'Hide child items from template drawer view' + Caption = 'Hide Items in Templates Dra&wer' + ParentShowHint = False + ShowHint = True + TabOrder = 4 + OnClick = cbHideItemsClick + WordWrap = True + AutoSize = True + end + object cbxType: TCaptionComboBox + Left = 82 + Top = 38 + Width = 133 + Height = 24 + Style = csOwnerDrawFixed + Anchors = [akLeft, akTop, akRight] + ItemHeight = 18 + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnChange = cbxTypeChange + OnDrawItem = cbxTypeDrawItem + Caption = 'Template Type' + end + object cbxRemDlgs: TORComboBox + Left = 54 + Top = 64 + Width = 161 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Reminder Dialog' + Color = clWindow + DropDownCount = 12 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + OnChange = cbxRemDlgsChange + end + object cbLock: TORCheckBox + Left = 168 + Top = 191 + Width = 47 + Height = 16 + Caption = 'Lock' + TabOrder = 9 + OnClick = cbLockClick + end + end + end + end + object pnlShared: TPanel + Left = 0 + Top = 24 + Width = 297 + Height = 215 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + object lblShared: TLabel + Left = 0 + Top = 0 + Width = 297 + Height = 13 + Align = alTop + Caption = '&Shared Templates' + FocusControl = tvShared + PopupMenu = popTemplates + end + object tvShared: TORTreeView + Left = 0 + Top = 53 + Width = 297 + Height = 138 + Align = alClient + DragMode = dmAutomatic + Images = dmodShared.imgTemplates + Indent = 19 + PopupMenu = popTemplates + RightClickSelect = True + TabOrder = 1 + OnChange = tvTreeChange + OnDragDrop = tvTreeDragDrop + OnDragOver = tvTreeDragOver + OnEdited = tvTreeNodeEdited + OnEndDrag = tvTreeEndDrag + OnEnter = tvTreeEnter + OnExpanding = tvSharedExpanding + OnGetImageIndex = tvTreeGetImageIndex + OnGetSelectedIndex = tvTreeGetSelectedIndex + OnKeyDown = tvTreeKeyDown + OnStartDrag = tvTreeStartDrag + Caption = 'Shared Templates' + NodePiece = 0 + OnDragging = tvTreeDragging + end + object pnlSharedBottom: TPanel + Left = 0 + Top = 191 + Width = 297 + Height = 24 + Align = alBottom + BevelOuter = bvNone + TabOrder = 2 + DesignSize = ( + 297 + 24) + object sbShUp: TBitBtn + Left = 194 + Top = 2 + Width = 21 + Height = 21 + Hint = 'Move Shared Template Up' + Anchors = [akTop, akRight] + Enabled = False + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = sbMoveUpClick + Glyph.Data = { + 76010000424D7601000000000000760000002800000020000000100000000100 + 0400000000000001000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 + 1111111111111111111111111111111111111111111111111111111111111111 + 111111111FFFFFF1111111110000001111111111777777F11111111100000011 + 11111111777777F1111111110000001111111111777777F11111111100000011 + 11111111777777F1111111110000001111111FFF777777FFFFF1000000000000 + 0011777777777777771110000000000001111777777777777111110000000000 + 1111117777777777111111100000000111111117777777711111111100000011 + 1111111177777711111111111000011111111111177771111111111111001111 + 1111111111771111111111111111111111111111111111111111} + NumGlyphs = 2 + end + object sbShDown: TBitBtn + Left = 217 + Top = 2 + Width = 21 + Height = 21 + Hint = 'Move Shared Template Down' + Anchors = [akTop, akRight] + Enabled = False + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = sbMoveDownClick + Glyph.Data = { + 76010000424D7601000000000000760000002800000020000000100000000100 + 0400000000000001000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 + 1111111111111111111111111111111111111111111111111111111111111111 + 11111111111FF1111111111111001111111111111177FF111111111110000111 + 1111111117777FF1111111110000001111111111777777FF1111111000000001 + 111111177777777FF1111100000000001111117777777777FF11100000000000 + 01111777777777777FF100000000000000117777777777777711111100000011 + 11111111777777F1111111110000001111111111777777F11111111100000011 + 11111111777777F1111111110000001111111111777777F11111111100000011 + 1111111177777711111111111111111111111111111111111111} + NumGlyphs = 2 + end + object sbShDelete: TBitBtn + Left = 240 + Top = 2 + Width = 56 + Height = 21 + Hint = 'Delete Shared Template' + Anchors = [akTop, akRight] + Caption = 'Delete' + Enabled = False + ParentShowHint = False + ShowHint = True + TabOrder = 3 + OnClick = sbDeleteClick + Glyph.Data = { + 76010000424D7601000000000000760000002800000020000000100000000100 + 0400000000000001000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 + 1111111111111111111111111111111111111111111111111111111111111111 + 111111FF11111111FF111001111111100111177FF11111177F11100011111100 + 01111777FF1111777111110001111000111111777FF117771111111000110001 + 1111111777FF7771111111110000001111111111777777111111111110000111 + 1111111117777F1111111111100001111111111117777FF11111111100000011 + 11111111777777FF1111111000110001111111177711777FF111110001111000 + 1111117771111777FF1110001111110001111777111111777111100111111110 + 0111177111111117711111111111111111111111111111111111} + Layout = blGlyphRight + NumGlyphs = 2 + end + object cbShHide: TCheckBox + Left = 0 + Top = 4 + Width = 191 + Height = 17 + Hint = 'Hide Inactive Shared Templates' + Anchors = [akLeft, akTop, akRight] + Caption = '&Hide Inactive' + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = cbShHideClick + end + end + object pnlSharedGap: TPanel + Left = 0 + Top = 13 + Width = 297 + Height = 2 + Align = alTop + BevelOuter = bvNone + PopupMenu = popTemplates + TabOrder = 3 + end + object pnlShSearch: TPanel + Left = 0 + Top = 15 + Width = 297 + Height = 38 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + OnResize = pnlShSearchResize + DesignSize = ( + 297 + 38) + object btnShFind: TORAlignButton + Left = 242 + Top = 0 + Width = 55 + Height = 21 + Hint = 'Find Template' + Anchors = [akTop, akRight] + Caption = 'Find' + ParentShowHint = False + PopupMenu = popTemplates + ShowHint = True + TabOrder = 1 + OnClick = btnFindClick + end + object edtShSearch: TCaptionEdit + Left = 0 + Top = 0 + Width = 242 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 0 + OnChange = edtSearchChange + OnEnter = edtShSearchEnter + OnExit = edtShSearchExit + Caption = 'Shared Templates' + end + object cbShMatchCase: TCheckBox + Left = 0 + Top = 21 + Width = 80 + Height = 17 + Caption = 'Match Case' + TabOrder = 2 + OnClick = cbShFindOptionClick + end + object cbShWholeWords: TCheckBox + Left = 80 + Top = 21 + Width = 109 + Height = 17 + Caption = 'Whole Words Only' + TabOrder = 3 + OnClick = cbShFindOptionClick + end + end + end + object pnlMenuBar: TPanel + Left = 0 + Top = 0 + Width = 740 + Height = 22 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object lblPerOwner: TLabel + Left = 138 + Top = 4 + Width = 75 + Height = 13 + Caption = 'Personal &Owner' + FocusControl = cboOwner + end + object cboOwner: TORComboBox + Left = 219 + Top = 0 + Width = 190 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Personal Owner' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + Pieces = '2' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnChange = cboOwnerChange + OnNeedData = cboOwnerNeedData + end + object btnNew: TORAlignButton + Left = 558 + Top = 0 + Width = 182 + Height = 22 + Caption = '&New Template' + TabOrder = 2 + OnClick = btnNewClick + Align = alRight + end + object pnlMenu: TPanel + Left = 0 + Top = 0 + Width = 109 + Height = 22 + Align = alLeft + AutoSize = True + BevelInner = bvRaised + BevelOuter = bvNone + TabOrder = 0 + object mbMain: TMenuBar + Left = 1 + Top = 1 + Width = 69 + Height = 20 + Align = alLeft + AutoSize = True + ButtonHeight = 21 + ButtonWidth = 43 + Caption = 'mbMain' + Flat = True + Menu = mnuMain + ShowCaptions = True + TabOrder = 0 + OnResize = mbMainResize + end + end + end + end + object pnlNotes: TPanel + Left = 0 + Top = 374 + Width = 740 + Height = 42 + Align = alBottom + BevelOuter = bvNone + TabOrder = 3 + Visible = False + object lblNotes: TLabel + Left = 0 + Top = 0 + Width = 740 + Height = 13 + Align = alTop + Caption = 'Template Notes:' + end + object reNotes: TRichEdit + Left = 0 + Top = 13 + Width = 740 + Height = 29 + Align = alClient + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PlainText = True + PopupMenu = popNotes + ScrollBars = ssBoth + TabOrder = 0 + WantTabs = True + OnChange = reNotesChange + OnKeyDown = reBoilKeyDown + OnKeyPress = reBoilKeyPress + OnKeyUp = reBoilKeyUp + OnResizeRequest = reResizeRequest + end + end + object pnlCOM: TPanel + Left = 0 + Top = 263 + Width = 740 + Height = 21 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + Visible = False + object lblCOMParam: TLabel + Left = 283 + Top = 0 + Width = 77 + Height = 21 + Align = alLeft + Caption = ' Passed Value: ' + Layout = tlCenter + end + object lblCOMObj: TLabel + Left = 0 + Top = 0 + Width = 67 + Height = 21 + Align = alLeft + Caption = ' COM Object: ' + Layout = tlCenter + end + object edtCOMParam: TCaptionEdit + Left = 360 + Top = 0 + Width = 380 + Height = 21 + TabOrder = 0 + OnChange = edtCOMParamChange + Align = alClient + Caption = 'Passed Value' + end + object cbxCOMObj: TORComboBox + Left = 67 + Top = 0 + Width = 216 + Height = 21 + Style = orcsDropDown + Align = alLeft + AutoSelect = True + Caption = 'COM Object' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnChange = cbxCOMObjChange + end + end + object pnlLink: TPanel + Left = 0 + Top = 242 + Width = 740 + Height = 21 + Align = alTop + BevelOuter = bvNone + TabOrder = 5 + Visible = False + object lblLink: TLabel + Left = 0 + Top = 0 + Width = 138 + Height = 21 + Align = alLeft + Caption = ' Associated Consult Service: ' + Layout = tlCenter + end + object cbxLink: TORComboBox + Left = 138 + Top = 0 + Width = 602 + Height = 21 + Style = orcsDropDown + Align = alClient + AutoSelect = True + Caption = ' Associated Consult Service' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = False + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1' + HideSynonyms = True + Sorted = False + SynonymChars = '<>' + TabPositions = '30,5000' + TabOrder = 0 + TabStop = True + OnChange = cbxLinkChange + OnNeedData = cbxLinkNeedData + OnSynonymCheck = cbxLinkSynonymCheck + end + end + object popTemplates: TPopupMenu + OnPopup = popTemplatesPopup + Left = 56 + Top = 96 + object mnuNodeNew: TMenuItem + Caption = '&New Template' + OnClick = btnNewClick + end + object mnuNodeAutoGen: TMenuItem + Caption = '&Generate Template' + OnClick = mnuAutoGenClick + end + object mnuNodeCopy: TMenuItem + Caption = '&Copy Template' + OnClick = mnuNodeCopyClick + end + object mnuNodePaste: TMenuItem + Caption = '&Paste Template' + OnClick = mnuNodePasteClick + end + object mnuNodeDelete: TMenuItem + Caption = '&Delete Template' + OnClick = mnuNodeDeleteClick + end + object N15: TMenuItem + Caption = '-' + end + object mnuNodeSort: TMenuItem + Caption = 'Sort' + OnClick = mnuSortClick + end + object N6: TMenuItem + Caption = '-' + end + object mnuFindTemplates: TMenuItem + Caption = '&Find Templates' + OnClick = mnuFindTemplatesClick + end + object mnuCollapseTree: TMenuItem + Caption = 'Collapse &Tree' + OnClick = mnuCollapseTreeClick + end + end + object popBoilerplate: TPopupMenu + OnPopup = popBoilerplatePopup + Left = 88 + Top = 332 + object mnuBPUndo: TMenuItem + Caption = '&Undo' + ShortCut = 16474 + OnClick = mnuBPUndoClick + end + object N8: TMenuItem + Caption = '-' + end + object mnuBPCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = mnuBPCutClick + end + object mnuBPCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = mnuBPCopyClick + end + object mnuBPPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = mnuBPPasteClick + end + object mnuBPSelectAll: TMenuItem + Caption = 'Select &All' + ShortCut = 16449 + OnClick = mnuBPSelectAllClick + end + object N2: TMenuItem + Caption = '-' + end + object mnuBPInsertObject: TMenuItem + Caption = '&Insert Patient Data (Object)' + ShortCut = 16457 + OnClick = mnuBPInsertObjectClick + end + object mnuBPInsertField: TMenuItem + Caption = 'Insert Template &Field' + ShortCut = 16454 + OnClick = mnuBPInsertFieldClick + end + object mnuBPErrorCheck: TMenuItem + Caption = 'Check for &Errors' + ShortCut = 16453 + OnClick = mnuBPErrorCheckClick + end + object mnuBPTry: TMenuItem + Caption = 'Preview/Print Template' + ShortCut = 16468 + OnClick = mnuBPTryClick + end + object N7: TMenuItem + Caption = '-' + end + object mnuBPCheckGrammar: TMenuItem + Caption = 'Check &Grammar' + ShortCut = 16455 + OnClick = mnuBPCheckGrammarClick + end + object mnuBPSpellCheck: TMenuItem + Caption = 'Check &Spelling' + ShortCut = 16467 + OnClick = mnuBPSpellCheckClick + end + end + object tmrAutoScroll: TTimer + Enabled = False + Interval = 200 + OnTimer = tmrAutoScrollTimer + Left = 96 + Top = 96 + end + object popGroup: TPopupMenu + OnPopup = popGroupPopup + Left = 8 + Top = 325 + object mnuGroupBPCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = mnuGroupBPCopyClick + end + object N4: TMenuItem + Caption = '-' + end + object mnuGroupBPSelectAll: TMenuItem + Caption = 'Select &All' + ShortCut = 16449 + OnClick = mnuGroupBPSelectAllClick + end + end + object mnuMain: TMainMenu + Left = 16 + Top = 104 + object mnuEdit: TMenuItem + Caption = '&Edit' + OnClick = mnuEditClick + object mnuUndo: TMenuItem + Caption = '&Undo' + ShortCut = 16474 + OnClick = mnuBPUndoClick + end + object N9: TMenuItem + Caption = '-' + ShortCut = 189 + end + object mnuCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = mnuBPCutClick + end + object mnuCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = mnuBPCopyClick + end + object mnuPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = mnuBPPasteClick + end + object mnuSelectAll: TMenuItem + Caption = 'Select &All' + ShortCut = 16449 + OnClick = mnuBPSelectAllClick + end + object N11: TMenuItem + Caption = '-' + end + object mnuInsertObject: TMenuItem + Caption = '&Insert Patient Data (Object)' + ShortCut = 16457 + OnClick = mnuBPInsertObjectClick + end + object mnuInsertField: TMenuItem + Caption = 'Insert Template &Field' + ShortCut = 16454 + OnClick = mnuBPInsertFieldClick + end + object mnuErrorCheck: TMenuItem + Caption = 'Check for &Errors' + ShortCut = 16453 + OnClick = mnuBPErrorCheckClick + end + object mnuTry: TMenuItem + Caption = 'Preview/Print Template' + ShortCut = 16468 + OnClick = mnuBPTryClick + end + object N1: TMenuItem + Caption = '-' + end + object mnuCheckGrammar: TMenuItem + Caption = 'Check &Grammar' + ShortCut = 16455 + OnClick = mnuBPCheckGrammarClick + end + object mnuSpellCheck: TMenuItem + Caption = 'Check &Spelling' + ShortCut = 16467 + OnClick = mnuBPSpellCheckClick + end + object N13: TMenuItem + Caption = '-' + end + object mnuGroupBoilerplate: TMenuItem + Caption = 'Group &Boilerplate' + OnClick = mnuGroupBoilerplateClick + object mnuGroupCopy: TMenuItem + Caption = '&Copy' + OnClick = mnuGroupBPCopyClick + end + object mnuGroupSelectAll: TMenuItem + Caption = 'Select &All' + OnClick = mnuGroupBPSelectAllClick + end + end + end + object mnuTemplate: TMenuItem + Caption = '&Action' + OnClick = mnuTemplateClick + object mnuNewTemplate: TMenuItem + Caption = '&New Template' + OnClick = btnNewClick + end + object mnuAutoGen: TMenuItem + Caption = '&Generate Template' + OnClick = mnuAutoGenClick + end + object mnuTCopy: TMenuItem + Caption = '&Copy Template' + OnClick = mnuNodeCopyClick + end + object mnuTPaste: TMenuItem + Caption = '&Paste Template' + OnClick = mnuNodePasteClick + end + object mnuTDelete: TMenuItem + Caption = '&Delete Template' + OnClick = mnuNodeDeleteClick + end + object N12: TMenuItem + Caption = '-' + end + object mnuSort: TMenuItem + Caption = 'Sort' + OnClick = mnuSortClick + end + object N14: TMenuItem + Caption = '-' + end + object mnuFindShared: TMenuItem + Caption = 'Find &Shared Templates' + OnClick = mnuFindSharedClick + end + object mnuFindPersonal: TMenuItem + Caption = '&Find Personal Templates' + OnClick = mnuFindPersonalClick + end + object N3: TMenuItem + Caption = '-' + end + object mnuShCollapse: TMenuItem + Caption = 'Collapse Shared Tree' + OnClick = mnuShCollapseClick + end + object mnuPerCollapse: TMenuItem + Caption = 'Collapse Personal Tree' + OnClick = mnuPerCollapseClick + end + end + object mnuTools: TMenuItem + Caption = '&Tools' + OnClick = mnuToolsClick + object mnuEditTemplateFields: TMenuItem + Caption = 'Edit Template &Fields' + OnClick = mnuEditTemplateFieldsClick + end + object N16: TMenuItem + Caption = '-' + end + object mnuImportTemplate: TMenuItem + Caption = '&Import Template' + OnClick = mnuImportTemplateClick + end + object mnuExportTemplate: TMenuItem + Caption = '&Export Template' + OnClick = mnuExportTemplateClick + end + object N17: TMenuItem + Caption = '-' + end + object mnuRefresh: TMenuItem + Caption = '&Refresh Templates' + OnClick = mnuRefreshClick + end + object mnuTemplateIconLegend: TMenuItem + Caption = 'Template Icon Legend' + OnClick = mnuTemplateIconLegendClick + end + end + end + object popNotes: TPopupMenu + OnPopup = popNotesPopup + Left = 8 + Top = 387 + object mnuNotesUndo: TMenuItem + Caption = '&Undo' + ShortCut = 16474 + OnClick = mnuNotesUndoClick + end + object MenuItem2: TMenuItem + Caption = '-' + end + object mnuNotesCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = mnuNotesCutClick + end + object mnuNotesCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = mnuNotesCopyClick + end + object mnuNotesPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = mnuNotesPasteClick + end + object MenuItem6: TMenuItem + Caption = '-' + end + object mnuNotesSelectAll: TMenuItem + Caption = 'Select &All' + ShortCut = 16449 + OnClick = mnuNotesSelectAllClick + end + object MenuItem8: TMenuItem + Caption = '-' + end + object mnuNotesGrammar: TMenuItem + Caption = 'Check &Grammar' + ShortCut = 16455 + OnClick = mnuNotesGrammarClick + end + object mnuNotesSpelling: TMenuItem + Caption = 'Check &Spelling' + ShortCut = 16467 + OnClick = mnuNotesSpellingClick + end + end + object dlgImport: TOpenDialog + DefaultExt = 'txml' + Filter = 'Template Files|*.txml|XML Files|*.xml|All Files|*.*' + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 16 + Top = 136 + end + object dlgExport: TSaveDialog + DefaultExt = 'txml' + Filter = 'Template Files|*.txml|XML Files|*.xml|All Files|*.*' + Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] + Left = 56 + Top = 136 + end +end diff --git a/CPRS-Chart/Templates/fTemplateEditor.pas b/CPRS-Chart/Templates/fTemplateEditor.pas new file mode 100644 index 0000000..393b933 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateEditor.pas @@ -0,0 +1,4182 @@ +unit fTemplateEditor; +{The OwnerScan conditional compile varaible was created because there were too + many things that needed to be done to incorporate the viewing of other user's + personal templates by clinical coordinators. These include: + Changing the Personal tree. + expanding entirely new personal list when personal list changes + when click on stop editing shared button, and personal is for someone else, + need to resync to personal list. + +HOT HEYS NOT YET ASSIGNED: +JFKQRUVZ +} +{$DEFINE OwnerScan} +{$UNDEF OwnerScan} +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, StdCtrls, ComCtrls, ORCtrls, Buttons, Mask, ORFn, ORNet, + uTemplates, Menus, ImgList, Clipbrd, ToolWin, MenuBar, TypInfo, MSXML_TLB; + +type + TTemplateTreeControl = (tcDel, tcUp, tcDown, tcLbl, tcCopy); + TTemplateTreeType = (ttShared, ttPersonal); + + TfrmTemplateEditor = class(TForm) + splMain: TSplitter; + pnlBottom: TORAutoPanel; + btnApply: TButton; + btnCancel: TButton; + btnOK: TButton; + pnlBoilerplate: TPanel; + reBoil: TRichEdit; + pnlTop: TPanel; + pnlRightTop: TPanel; + splProperties: TSplitter; + pnlCopyBtns: TPanel; + sbCopyLeft: TBitBtn; + sbCopyRight: TBitBtn; + lblCopy: TLabel; + splMiddle: TSplitter; + pnlShared: TPanel; + lblShared: TLabel; + tvShared: TORTreeView; + pnlSharedBottom: TPanel; + sbShUp: TBitBtn; + sbShDown: TBitBtn; + sbShDelete: TBitBtn; + cbShHide: TCheckBox; + pnlSharedGap: TPanel; + pnlPersonal: TPanel; + lblPersonal: TLabel; + tvPersonal: TORTreeView; + pnlPersonalBottom: TPanel; + sbPerUp: TBitBtn; + sbPerDown: TBitBtn; + sbPerDelete: TBitBtn; + cbPerHide: TCheckBox; + pnlPersonalGap: TPanel; + popTemplates: TPopupMenu; + mnuCollapseTree: TMenuItem; + mnuFindTemplates: TMenuItem; + popBoilerplate: TPopupMenu; + mnuBPInsertObject: TMenuItem; + mnuBPErrorCheck: TMenuItem; + mnuBPSpellCheck: TMenuItem; + pnlGroupBP: TPanel; + reGroupBP: TRichEdit; + lblGroupBP: TLabel; + splBoil: TSplitter; + pnlGroupBPGap: TPanel; + tmrAutoScroll: TTimer; + popGroup: TPopupMenu; + mnuGroupBPCopy: TMenuItem; + mnuBPCut: TMenuItem; + N2: TMenuItem; + mnuBPCopy: TMenuItem; + mnuBPPaste: TMenuItem; + N4: TMenuItem; + mnuGroupBPSelectAll: TMenuItem; + mnuBPSelectAll: TMenuItem; + N6: TMenuItem; + mnuNodeCopy: TMenuItem; + mnuNodePaste: TMenuItem; + mnuNodeDelete: TMenuItem; + N8: TMenuItem; + mnuBPUndo: TMenuItem; + cbEditShared: TCheckBox; + pnlProperties: TPanel; + gbProperties: TGroupBox; + lblName: TLabel; + lblLines: TLabel; + cbExclude: TORCheckBox; + cbActive: TCheckBox; + edtGap: TCaptionEdit; + udGap: TUpDown; + edtName: TCaptionEdit; + mnuMain: TMainMenu; + mnuEdit: TMenuItem; + mnuUndo: TMenuItem; + N9: TMenuItem; + mnuCut: TMenuItem; + mnuCopy: TMenuItem; + mnuPaste: TMenuItem; + mnuSelectAll: TMenuItem; + N11: TMenuItem; + mnuInsertObject: TMenuItem; + mnuErrorCheck: TMenuItem; + mnuSpellCheck: TMenuItem; + N13: TMenuItem; + mnuGroupBoilerplate: TMenuItem; + mnuGroupCopy: TMenuItem; + mnuGroupSelectAll: TMenuItem; + mnuTemplate: TMenuItem; + mnuTCopy: TMenuItem; + mnuTPaste: TMenuItem; + mnuTDelete: TMenuItem; + N12: TMenuItem; + pnlShSearch: TPanel; + btnShFind: TORAlignButton; + edtShSearch: TCaptionEdit; + cbShMatchCase: TCheckBox; + cbShWholeWords: TCheckBox; + pnlPerSearch: TPanel; + btnPerFind: TORAlignButton; + edtPerSearch: TCaptionEdit; + cbPerMatchCase: TCheckBox; + cbPerWholeWords: TCheckBox; + mnuFindShared: TMenuItem; + mnuFindPersonal: TMenuItem; + N3: TMenuItem; + mnuShCollapse: TMenuItem; + mnuPerCollapse: TMenuItem; + pnlMenuBar: TPanel; + lblPerOwner: TLabel; + cboOwner: TORComboBox; + btnNew: TORAlignButton; + pnlMenu: TPanel; + mbMain: TMenuBar; + mnuNewTemplate: TMenuItem; + Bevel1: TBevel; + mnuNodeNew: TMenuItem; + mnuBPCheckGrammar: TMenuItem; + mnuCheckGrammar: TMenuItem; + N1: TMenuItem; + N7: TMenuItem; + N14: TMenuItem; + mnuSort: TMenuItem; + N15: TMenuItem; + mnuNodeSort: TMenuItem; + mnuTry: TMenuItem; + mnuBPTry: TMenuItem; + mnuAutoGen: TMenuItem; + mnuNodeAutoGen: TMenuItem; + pnlNotes: TPanel; + reNotes: TRichEdit; + splNotes: TSplitter; + lblNotes: TLabel; + popNotes: TPopupMenu; + mnuNotesUndo: TMenuItem; + MenuItem2: TMenuItem; + mnuNotesCut: TMenuItem; + mnuNotesCopy: TMenuItem; + mnuNotesPaste: TMenuItem; + MenuItem6: TMenuItem; + mnuNotesSelectAll: TMenuItem; + MenuItem8: TMenuItem; + mnuNotesGrammar: TMenuItem; + mnuNotesSpelling: TMenuItem; + cbNotes: TCheckBox; + gbDialogProps: TGroupBox; + cbDisplayOnly: TCheckBox; + cbOneItemOnly: TCheckBox; + cbHideItems: TORCheckBox; + cbFirstLine: TCheckBox; + cbHideDlgItems: TCheckBox; + cbIndent: TCheckBox; + mnuTools: TMenuItem; + mnuEditTemplateFields: TMenuItem; + N16: TMenuItem; + mnuImportTemplate: TMenuItem; + mnuExportTemplate: TMenuItem; + mnuBPInsertField: TMenuItem; + mnuInsertField: TMenuItem; + cbEditUser: TCheckBox; + dlgImport: TOpenDialog; + dlgExport: TSaveDialog; + cbxType: TCaptionComboBox; + lblType: TLabel; + cbxRemDlgs: TORComboBox; + lblRemDlg: TLabel; + N17: TMenuItem; + mnuTemplateIconLegend: TMenuItem; + pnlBP: TPanel; + lblBoilerplate: TLabel; + cbLongLines: TCheckBox; + cbLock: TORCheckBox; + mnuRefresh: TMenuItem; + lblBoilRow: TLabel; + lblGroupRow: TLabel; + lblBoilCol: TLabel; + lblGroupCol: TLabel; + pnlCOM: TPanel; + lblCOMParam: TLabel; + edtCOMParam: TCaptionEdit; + cbxCOMObj: TORComboBox; + lblCOMObj: TLabel; + pnlLink: TPanel; + cbxLink: TORComboBox; + lblLink: TLabel; + procedure btnNewClick(Sender: TObject); + procedure btnApplyClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cboOwnerNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboOwnerChange(Sender: TObject); + procedure tvPersonalExpanding(Sender: TObject; Node: TTreeNode; + var AllowExpansion: Boolean); + procedure tvSharedExpanding(Sender: TObject; Node: TTreeNode; + var AllowExpansion: Boolean); + procedure tvTreeGetImageIndex(Sender: TObject; Node: TTreeNode); + procedure tvTreeGetSelectedIndex(Sender: TObject; Node: TTreeNode); + procedure tvTreeChange(Sender: TObject; Node: TTreeNode); + procedure splMainMoved(Sender: TObject); + procedure pnlBoilerplateResize(Sender: TObject); + procedure edtNameOldChange(Sender: TObject); + procedure cbActiveClick(Sender: TObject); + procedure cbExcludeClick(Sender: TObject); + procedure edtGapChange(Sender: TObject); + procedure tvTreeEnter(Sender: TObject); + procedure tvTreeNodeEdited(Sender: TObject; Node: TTreeNode; + var S: String); + procedure cbShHideClick(Sender: TObject); + procedure cbPerHideClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure sbMoveUpClick(Sender: TObject); + procedure sbMoveDownClick(Sender: TObject); + procedure sbDeleteClick(Sender: TObject); + procedure tvTreeDragging(Sender: TObject; Node: TTreeNode; + var CanDrag: Boolean); + procedure tvTreeDragOver(Sender, Source: TObject; X, Y: Integer; + State: TDragState; var Accept: Boolean); + procedure tvTreeDragDrop(Sender, Source: TObject; X, Y: Integer); + procedure sbCopyLeftClick(Sender: TObject); + procedure sbCopyRightClick(Sender: TObject); + procedure reBoilChange(Sender: TObject); + procedure cbEditSharedClick(Sender: TObject); + procedure popTemplatesPopup(Sender: TObject); + procedure mnuCollapseTreeClick(Sender: TObject); + procedure mnuFindTemplatesClick(Sender: TObject); + procedure btnFindClick(Sender: TObject); + procedure edtSearchChange(Sender: TObject); + procedure edtShSearchEnter(Sender: TObject); + procedure edtShSearchExit(Sender: TObject); + procedure edtPerSearchEnter(Sender: TObject); + procedure edtPerSearchExit(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure mnuBPInsertObjectClick(Sender: TObject); + procedure mnuBPErrorCheckClick(Sender: TObject); + procedure popBoilerplatePopup(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure mnuBPSpellCheckClick(Sender: TObject); + procedure splBoilMoved(Sender: TObject); + procedure edtGapKeyPress(Sender: TObject; var Key: Char); + procedure edtNameExit(Sender: TObject); + procedure tmrAutoScrollTimer(Sender: TObject); + procedure tvTreeStartDrag(Sender: TObject; + var DragObject: TDragObject); + procedure tvTreeEndDrag(Sender, Target: TObject; X, Y: Integer); + procedure mnuGroupBPCopyClick(Sender: TObject); + procedure popGroupPopup(Sender: TObject); + procedure mnuBPCutClick(Sender: TObject); + procedure mnuBPCopyClick(Sender: TObject); + procedure mnuBPPasteClick(Sender: TObject); + procedure mnuGroupBPSelectAllClick(Sender: TObject); + procedure mnuBPSelectAllClick(Sender: TObject); + procedure mnuNodeDeleteClick(Sender: TObject); + procedure mnuNodeCopyClick(Sender: TObject); + procedure mnuNodePasteClick(Sender: TObject); + procedure mnuBPUndoClick(Sender: TObject); + procedure tvTreeKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure mnuEditClick(Sender: TObject); + procedure mnuGroupBoilerplateClick(Sender: TObject); + procedure cbShFindOptionClick(Sender: TObject); + procedure cbPerFindOptionClick(Sender: TObject); + procedure mnuTemplateClick(Sender: TObject); + procedure mnuFindSharedClick(Sender: TObject); + procedure mnuFindPersonalClick(Sender: TObject); + procedure mnuShCollapseClick(Sender: TObject); + procedure mnuPerCollapseClick(Sender: TObject); + procedure pnlShSearchResize(Sender: TObject); + procedure pnlPerSearchResize(Sender: TObject); + procedure pnlPropertiesResize(Sender: TObject); + procedure mbMainResize(Sender: TObject); + procedure mnuBPCheckGrammarClick(Sender: TObject); + procedure mnuSortClick(Sender: TObject); + procedure pnlBoilerplateCanResize(Sender: TObject; var NewWidth, + NewHeight: Integer; var Resize: Boolean); + procedure mnuBPTryClick(Sender: TObject); + procedure mnuAutoGenClick(Sender: TObject); + procedure reNotesChange(Sender: TObject); + procedure mnuNotesUndoClick(Sender: TObject); + procedure mnuNotesCutClick(Sender: TObject); + procedure mnuNotesCopyClick(Sender: TObject); + procedure mnuNotesPasteClick(Sender: TObject); + procedure mnuNotesSelectAllClick(Sender: TObject); + procedure mnuNotesGrammarClick(Sender: TObject); + procedure mnuNotesSpellingClick(Sender: TObject); + procedure popNotesPopup(Sender: TObject); + procedure cbNotesClick(Sender: TObject); + procedure cbDisplayOnlyClick(Sender: TObject); + procedure cbFirstLineClick(Sender: TObject); + procedure cbOneItemOnlyClick(Sender: TObject); + procedure cbHideDlgItemsClick(Sender: TObject); + procedure cbHideItemsClick(Sender: TObject); + procedure cbIndentClick(Sender: TObject); + procedure mnuToolsClick(Sender: TObject); + procedure mnuEditTemplateFieldsClick(Sender: TObject); + procedure mnuBPInsertFieldClick(Sender: TObject); + procedure mnuExportTemplateClick(Sender: TObject); + procedure mnuImportTemplateClick(Sender: TObject); + procedure cbxTypeDrawItem(Control: TWinControl; Index: Integer; + Rect: TRect; State: TOwnerDrawState); + procedure cbxTypeChange(Sender: TObject); + procedure cbxRemDlgsChange(Sender: TObject); + procedure mnuTemplateIconLegendClick(Sender: TObject); + procedure cbLongLinesClick(Sender: TObject); + procedure cbLockClick(Sender: TObject); + procedure mnuRefreshClick(Sender: TObject); + procedure reResizeRequest(Sender: TObject; Rect: TRect); + procedure reBoilSelectionChange(Sender: TObject); + procedure reGroupBPSelectionChange(Sender: TObject); + procedure cbxCOMObjChange(Sender: TObject); + procedure edtCOMParamChange(Sender: TObject); + procedure cbxLinkNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cbxLinkChange(Sender: TObject); + procedure cbxLinkSynonymCheck(Sender: TObject; const Text: String; + var IsSynonym: Boolean); + procedure reBoilKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure reBoilKeyPress(Sender: TObject; var Key: Char); + procedure reBoilKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + FLastRect: TRect; + FForceContainer: boolean; + FSavePause: integer; + FCopyNode: TTreeNode; + FPasteNode: TTreeNode; + FCopying: boolean; + FDropNode: TTreeNode; + FDropInto: boolean; + FDragNode: TTreeNode; + FPersonalEmptyNodeCount: integer; + FSharedEmptyNodeCount: integer; +// FOldPersonalTemplate: TTemplate; + FCurrentPersonalUser: Int64; + FCanEditPersonal: boolean; + FCanEditShared: boolean; + FUpdating: boolean; + FCurTree: TTreeView; + FTreeControl: array[TTemplateTreeType, TTemplateTreeControl] of TControl; + FInternalHiddenExpand :boolean; + FFindShOn: boolean; + FFindShNext: boolean; + FLastFoundShNode: TTreeNode; + FFindPerOn: boolean; + FFindPerNext: boolean; + FLastFoundPerNode: TTreeNode; + FFirstShow: boolean; + FFocusName: boolean; + FOK2Close: boolean; + FBtnNewNode: TTreeNode; + FLastDropNode: TTreeNode; + FFromMainMenu: boolean; + FMainMenuTree: TTreeView; + FDragOverCount: integer; + FBPOK: boolean; + FImportingFromXML: boolean; + FXMLTemplateElement: IXMLDOMNode; + FXMLFieldElement: IXMLDOMNode; + FCanDoReminders: boolean; + FCanDoCOMObjects: boolean; + FPersonalObjects: TStringList; + FShowingTemplate: TTemplate; + FConsultServices: TStringList; + FNavigatingTab: boolean; + protected + procedure UpdateXY(re: TRichEdit; lblX, lblY: TLabel); + function IsTemplateLocked(Node: TTreeNode): boolean; + procedure RefreshData; + procedure ShowTemplateType(Template: TTemplate); + procedure DisplayBoilerplate(Node: TTreeNode); + procedure NewPersonalUser(UsrIEN: Int64); + procedure HideControls; + procedure EnableControls(ok, Root: boolean); + procedure EnableNavControls; + procedure MoveCopyButtons; + procedure ShowInfo(Node: TTreeNode); + function ChangeTree(NewTree: TTreeView): boolean; + procedure Resync(const Templates: array of TTemplate); + function AllowMove(ADropNode, ADragNode: TTreeNode): boolean; + function CanClone(const Node: TTreeNode): boolean; + function Clone(Node: TTreeNode): boolean; + procedure SharedEditing; + function GetTree: TTreeView; + procedure SetFindNext(const Tree: TTreeView; const Value: boolean); + function ScanNames: boolean; + function PasteOK: boolean; + function AutoDel(Template: TTemplate): boolean; + procedure cbClick(Sender: TCheckBox; Index: integer); + procedure UpdateInsertsDialogs; + procedure AutoLongLines(Sender: TObject); + procedure UpdatePersonalObjects; + procedure UpdateApply(Template: TTemplate); + procedure TemplateLocked(Sender: TObject); + procedure InitTrees; + function GetLinkType(const ANode: TTreeNode): TTemplateLinkType; + end; + +procedure EditTemplates(Form: TForm; NewTemplate: boolean = FALSE; CopiedText: string = ''; Shared: boolean = FALSE); + +implementation + +{$R *.DFM} + +uses dShared, uCore, rTemplates, fTemplateObjects, uSpell, fTemplateView, + fTemplateAutoGen, fDrawers, fTemplateFieldEditor, fTemplateFields, XMLUtils, + fIconLegend, uReminders, uConst, rCore, rEventHooks, rConsults; + +const + PropText = ' Template Properties '; +// GroupTag = 5; + BPDisplayOnlyFld = 0; + BPFirstLineFld = 1; + BPOneItemOnlyFld = 2; + BPHideDlgItemsFld = 3; + BPHideItemsFld = 4; + BPIndentFld = 5; + BPLockFld = 6; + NoIE5 = 'You must have Internet Explorer 5 or better installed to %s Templates'; + NoIE5Header = 'Need Internet Explorer 5'; + VK_A = Ord('A'); + VK_C = Ord('C'); + VK_E = Ord('E'); + VK_F = Ord('F'); + VK_G = Ord('G'); + VK_I = Ord('I'); + VK_S = Ord('S'); + VK_T = Ord('T'); + VK_V = Ord('V'); + VK_X = Ord('X'); + VK_Z = Ord('Z'); + +type + TTypeIndex = (tiTemplate, tiFolder, tiGroup, tiDialog, tiRemDlg, tiCOMObj); + +const + tiNone = TTypeIndex(-1); +// TypeTag: array[TTypeIndex] of integer = (7, 6, 8, -8, 7, 7); + ttDialog = TTemplateType(-ord(ttGroup)); + + TypeTag: array[TTypeIndex] of TTemplateType = (ttDoc, ttClass, ttGroup, ttDialog, ttDoc, ttDoc); + ForcedIdx: array[boolean, TTypeIndex] of integer = ((0,1,2,3,4,5),(-1,0,1,2,-1,-1)); + IdxForced: array[boolean, 0..5] of TTypeIndex = ((tiTemplate, tiFolder, tiGroup, tiDialog, tiRemDlg, tiCOMObj), + (tiFolder, tiGroup, tiDialog, tiNone, tiNone, tiNone)); + iMessage = 'This template has one or more new fields, and you are not authorized to create new fields. ' + + 'If you continue, the program will import the new template without the new fields. Do you wish ' + + 'to do this?'; + iMessage2 = 'The imported template fields had XML errors. '; + iMessage3 = 'No Fields were imported.'; + +var + frmTemplateObjects: TfrmTemplateObjects = nil; + frmTemplateFields: TfrmTemplateFields = nil; + +procedure EditTemplates(Form: TForm; NewTemplate: boolean = FALSE; + CopiedText: string = ''; Shared: boolean = FALSE); +var + frmTemplateEditor: TfrmTemplateEditor; + Drawers: TFrmDrawers; + ExpandStr, SelectStr: string; + SelNode: TTreeNode; + SelShared: boolean; + +begin + if(UserTemplateAccessLevel in [taReadOnly, taNone]) then exit; + + ExpandStr := ''; + SelectStr := ''; + Drawers := nil; + if(not NewTemplate) and (CopiedText = '') then + begin + if Form is TfrmDrawers then + Drawers := TFrmDrawers(Form) + else + if IsPublishedProp(Form, 'Drawers') then + Drawers := TFrmDrawers(GetOrdProp(Form, 'Drawers')); + end; + + if assigned(Drawers) then + begin + ExpandStr := Drawers.tvTemplates.GetExpandedIDStr(1, ';'); + SelectStr := Drawers.tvTemplates.GetNodeID(TORTreeNode(Drawers.tvTemplates.Selected),1,';'); + end; + + frmTemplateEditor := TfrmTemplateEditor.Create(Application); + try + with frmTemplateEditor do + begin + Font := Form.Font; + reBoil.Font.Size := Form.Font.Size; + reGroupBP.Font.Size := Form.Font.Size; + reNotes.Font.Size := Form.Font.Size; + dmodShared.ExpandTree(tvShared, ExpandStr, FSharedEmptyNodeCount); + SelNode := tvShared.FindPieceNode(SelectStr,1,';'); + SelShared := assigned(SelNode); + dmodShared.ExpandTree(tvPersonal, ExpandStr, FPersonalEmptyNodeCount); + if not SelShared then + SelNode := tvPersonal.FindPieceNode(SelectStr,1,';'); + + if(SelShared and (not Shared)) then + Shared := TRUE; + + if(Shared and (UserTemplateAccessLevel = taEditor)) then + begin + cbEditShared.Checked := TRUE; + ActiveControl := tvShared; + if SelShared then + tvShared.Selected := SelNode + else + tvShared.Selected := tvShared.Items.GetFirstNode; + end + else + if(not SelShared) and (assigned(SelNode)) then + tvPersonal.Selected := SelNode; + if(NewTemplate) then + begin + btnNewClick(frmTemplateEditor); + if(CopiedText <> '') then + begin + TTemplate(FBtnNewNode.Data).Boilerplate := CopiedText; + ShowInfo(FBtnNewNode); + end; + end; + ShowModal; + end; + finally + frmTemplateEditor.Free; + end; +end; + +procedure TfrmTemplateEditor.btnNewClick(Sender: TObject); +var + idx: integer; + Tmp, Owner: TTemplate; + Node, PNode: TTreeNode; + ownr: string; + ok: boolean; + ACheckBox: TCheckBox; + +begin + if((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + begin + if(FCurTree = tvShared) and (FCanEditShared) then + ok := TRUE + else + if(FCurTree = tvPersonal) and (FCanEditPersonal) then + ok := TRUE + else + ok := FALSE; + if(ok) then + begin + Node := FCurTree.Selected; + PNode := Node; + if(TTemplate(Node.Data).RealType = ttDoc) then + PNode := Node.Parent; + if CanClone(PNode) then + begin + Clone(PNode); + Owner := TTemplate(PNode.Data); + if assigned(Owner) and Owner.CanModify then + begin + if Node = PNode then + idx := 0 + else + idx := Owner.Items.IndexOf(Node.Data) + 1; + if(FCurTree = tvShared) then + begin + ownr := ''; + ACheckBox := cbShHide; + end + else + begin + ownr := IntToStr(User.DUZ); + ACheckBox := cbPerHide; + end; + if FImportingFromXML then + begin + Tmp := TTemplate.CreateFromXML(FXMLTemplateElement, ownr); + ACheckBox.Checked := ACheckBox.Checked and Tmp.Active; + end + else + begin + Tmp := TTemplate.Create('0^T^A^'+NewTemplateName+'^^^'+ownr); + Tmp.BackupItems; + Templates.AddObject(Tmp.ID, Tmp); + end; + btnApply.Enabled := TRUE; + if(idx >= Owner.Items.Count) then + Owner.Items.Add(Tmp) + else + Owner.Items.Insert(idx, Tmp); + Resync([Owner]); + Node := FCurTree.Selected; + if(Node.Data <> Tmp) then + begin + if(TTemplate(Node.Data).RealType = ttDoc) then + Node := Node.GetNextSibling + else + begin + Node.Expand(FALSE); + Node := Node.GetFirstChild; + end; + FCurTree.Selected := Node; + end; + FBtnNewNode := Node; + if(FFirstShow) then + FFocusName := TRUE + else + begin + edtName.SetFocus; + edtName.SelectAll; + end; + end; + end; + end; + end; +end; + +procedure TfrmTemplateEditor.btnApplyClick(Sender: TObject); +begin + if(ScanNames) then + begin + SaveAllTemplates; + BtnApply.Enabled := BackupDiffers; + if not BtnApply.Enabled then + UnlockAllTemplates; + end; +end; + +procedure TfrmTemplateEditor.FormCreate(Sender: TObject); +begin + ResizeAnchoredFormToFont(self); + //Now fix everything the resize messed up + lblLines.Width := cbLock.Left - lblLines.Left - 15; + sbPerDelete.Left := pnlPersonalBottom.ClientWidth - sbPerDelete.Width - 1; + sbPerDown.Left := sbPerDelete.Left - sbPerDown.Width - 2; + sbPerUp.Left := sbPerDown.Left - sbPerUp.Width - 2; + cbPerHide.Width := sbPerUp.Left - 3; + btnPerFind.Left := pnlPerSearch.ClientWidth - btnPerFind.Width; + + FSavePause := Application.HintHidePause; + Application.HintHidePause := FSavePause*2; + if InteractiveRemindersActive then + begin + QuickCopy(GetTemplateAllowedReminderDialogs, cbxRemDlgs.Items); + FCanDoReminders := (cbxRemDlgs.Items.Count > 0); + end + else + FCanDoReminders := FALSE; + + QuickCopy(GetAllActiveCOMObjects, cbxCOMObj.Items); + FCanDoCOMObjects := (cbxCOMObj.Items.Count > 0); + + FUpdating := TRUE; + FFirstShow := TRUE; + + FTreeControl[ttShared, tcDel] := sbShDelete; + FTreeControl[ttShared, tcUp] := sbShUp; + FTreeControl[ttShared, tcDown] := sbShDown; + FTreeControl[ttShared, tcLbl] := lblCopy; + FTreeControl[ttShared, tcCopy] := sbCopyRight; + FTreeControl[ttPersonal, tcDel] := sbPerDelete; + FTreeControl[ttPersonal, tcUp] := sbPerUp; + FTreeControl[ttPersonal, tcDown] := sbPerDown; + FTreeControl[ttPersonal, tcLbl] := lblCopy; + FTreeControl[ttPersonal, tcCopy] := sbCopyLeft; + dmodShared.InEditor := TRUE; + dmodShared.OnTemplateLock := TemplateLocked; + + gbProperties.Caption := PropText; + pnlShSearch.Visible := FALSE; + pnlPerSearch.Visible := FALSE; + FCanEditPersonal := TRUE; + +{ Don't mess with the order of the following commands! } + InitTrees; + + tvPersonal.Selected := tvPersonal.Items.GetFirstNode; + + ClearBackup; + + cboOwner.SelText := MixedCase(User.Name); + NewPersonalUser(User.DUZ); + + cbEditShared.Visible := (UserTemplateAccessLevel = taEditor); + FCanEditShared := FALSE; + SharedEditing; + + HideControls; + + lblCopy.AutoSize := TRUE; + lblCopy.AutoSize := FALSE; // resets height based on font + lblCopy.Width := pnlCopyBtns.Width + splMiddle.Width; + MoveCopyButtons; + + cbShHide.Checked := TRUE; + cbPerHide.Checked := TRUE; + + BtnApply.Enabled := BackupDiffers; +end; + +procedure TfrmTemplateEditor.HideControls; +begin + sbCopyRight.Visible := FCanEditPersonal; + if(not FCanEditPersonal) then + cbPerHide.Checked := TRUE; + cbPerHide.Visible := FCanEditPersonal; + sbPerDelete.Visible := FCanEditPersonal; + sbPerUp.Visible := FCanEditPersonal; + sbPerDown.Visible := FCanEditPersonal; + tvPersonal.ReadOnly := not FCanEditPersonal; + MoveCopyButtons; +end; + +procedure TfrmTemplateEditor.cboOwnerNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin +// cboOwner.ForDataUse(SubSetOfTemplateOwners(StartFrom, Direction)); +end; + +procedure TfrmTemplateEditor.cboOwnerChange(Sender: TObject); +begin + NewPersonalUser(cboOwner.ItemIEN); +end; + +procedure TfrmTemplateEditor.NewPersonalUser(UsrIEN: Int64); +var + NewEdit: boolean; + +begin + FCurrentPersonalUser := UsrIEN; + NewEdit := (FCurrentPersonalUser = User.DUZ); + if(FCanEditPersonal <> NewEdit) then + begin + FCanEditPersonal := NewEdit; + HideControls; + end; +end; + +procedure TfrmTemplateEditor.tvPersonalExpanding(Sender: TObject; + Node: TTreeNode; var AllowExpansion: Boolean); +begin + AllowExpansion := dmodShared.ExpandNode(tvPersonal, Node, + FPersonalEmptyNodeCount, not cbPerHide.Checked); + if(AllowExpansion and FInternalHiddenExpand) then + AllowExpansion := FALSE; +end; + +procedure TfrmTemplateEditor.tvSharedExpanding(Sender: TObject; + Node: TTreeNode; var AllowExpansion: Boolean); +begin + AllowExpansion := dmodShared.ExpandNode(tvShared, Node, + FSharedEmptyNodeCount, not cbShHide.Checked); + if(AllowExpansion and FInternalHiddenExpand) then + AllowExpansion := FALSE; +end; + +procedure TfrmTemplateEditor.tvTreeGetImageIndex(Sender: TObject; + Node: TTreeNode); +begin + Node.ImageIndex := dmodShared.ImgIdx(Node); +end; + +procedure TfrmTemplateEditor.tvTreeGetSelectedIndex(Sender: TObject; + Node: TTreeNode); +begin + Node.SelectedIndex := dmodShared.ImgIdx(Node); +end; + +function TfrmTemplateEditor.IsTemplateLocked(Node: TTreeNode): boolean; +var + Template: TTemplate; + +begin + Result := FALSE; + if assigned(Node) then + begin + Template := TTemplate(Node.Data); + if Template.AutoLock then + Result := TRUE + else + if (Template.PersonalOwner = 0) then + begin + if RootTemplate.IsLocked then + Result := TRUE + else + begin + Result := TTemplate(Node.Data).IsLocked; + if (not Result) and assigned(Node.Parent) and + (TTemplate(Node.Parent).PersonalOwner = 0) then + Result := IsTemplateLocked(Node.Parent); + end; + end; + end; +end; + +procedure TfrmTemplateEditor.tvTreeChange(Sender: TObject; + Node: TTreeNode); +var + ok, Something: boolean; + Template: TTemplate; + +begin + ChangeTree(TTreeView(Sender)); + Something := assigned(Node); + if Something then + begin + Template := TTemplate(Node.Data); + Something := assigned(Template); + if Something then + begin + if(Sender = tvPersonal) then + begin + ok := FCanEditPersonal; + if ok and (Template.PersonalOwner = 0) and IsTemplateLocked(Node) then + ok := FALSE; + end + else + ok := FCanEditShared; + EnableControls(ok, (Template.RealType in AllTemplateRootTypes)); + ShowInfo(Node); + end; + end; + if not Something then + begin + gbProperties.Caption := PropText; + EnableControls(FALSE, FALSE); + ShowInfo(nil); + end; +end; + +procedure TfrmTemplateEditor.EnableControls(ok, Root: boolean); +begin + cbLock.Enabled := ok and (FCurTree = tvShared); + if(ok and Root) then + begin + ok := FALSE; + lblName.Enabled := TRUE; + edtName.Enabled := TRUE; + reNotes.ReadOnly := FALSE; + end + else + begin + lblName.Enabled := ok; + edtName.Enabled := ok; + reNotes.ReadOnly := not ok; + end; + lblNotes.Enabled := (not reNotes.ReadOnly); + if(reNotes.ReadOnly) then + reNotes.Color := ReadOnlyColor + else + reNotes.Color := clWindow; + cbxType.Enabled := ok; + lblType.Enabled := ok; + lblRemDlg.Enabled := ok; + cbxRemDlgs.Enabled := ok and FCanDoReminders; + cbActive.Enabled := ok; + cbExclude.Enabled := ok; + cbDisplayOnly.Enabled := ok; + cbFirstLine.Enabled := ok; + cbOneItemOnly.Enabled := ok; + cbHideDlgItems.Enabled := ok; + cbHideItems.Enabled := ok; + cbIndent.Enabled := ok; + edtGap.Enabled := ok; + udGap.Enabled := ok; + udGap.Invalidate; + lblLines.Enabled := ok; + reBoil.ReadOnly := not ok; + if(ok) then + reBoil.Color := clWindow + else + reBoil.Color := ReadOnlyColor; + lblLink.Enabled := ok; + cbxLink.Enabled := ok; + ok := ok and FCanDoCOMObjects; + cbxCOMObj.Enabled := ok; + lblCOMObj.Enabled := ok; + edtCOMParam.Enabled := ok; + lblCOMParam.Enabled := ok; + UpdateInsertsDialogs; + EnableNavControls; +end; + +procedure TfrmTemplateEditor.MoveCopyButtons; +var + tmpHeight: integer; + +begin + tmpHeight := tvShared.Height; + dec(tmpHeight,lblCopy.Height); + if(sbCopyLeft.Visible) then + dec(tmpHeight, sbCopyLeft.Height+5); + if(sbCopyRight.Visible) then + dec(tmpHeight, sbCopyRight.Height+5); + tmpHeight := (tmpHeight div 2) + tvShared.Top; + lblCopy.Top := tmpHeight; + inc(tmpHeight,lblCopy.height+5); + if(sbCopyLeft.Visible) then + begin + sbCopyLeft.Top := tmpHeight; + inc(tmpHeight, sbCopyLeft.Height+5); + end; + if(sbCopyRight.Visible) then + sbCopyRight.Top := tmpHeight; +end; + +procedure TfrmTemplateEditor.splMainMoved(Sender: TObject); +begin + MoveCopyButtons; +end; + +procedure TfrmTemplateEditor.ShowInfo(Node: TTreeNode); +var + OldUpdating, ClearName, ClearRB, ClearAll: boolean; + Idx: TTypeIndex; + CanDoCOM: boolean; + LinkTemplate: TTemplate; + lt: TTemplateLinkType; + lts: string; + i: integer; + +begin + OldUpdating := FUpdating; + FUpdating := TRUE; + try + if(assigned(Node)) then + begin + FShowingTemplate := TTemplate(Node.Data); + with FShowingTemplate do + begin + ClearName := FALSE; + ClearRB := FALSE; + ClearAll := FALSE; + ShowTemplateType(TTemplate(Node.Data)); + lt := GetLinkType(Node); + if(lt = ltNone) or (IsReminderDialog and (not (lt in [ltNone, ltTitle]))) then + pnlLink.Visible := FALSE + else + begin + pnlLink.Visible := TRUE; + pnlLink.Tag := ord(lt); + case lt of + ltTitle: lts := 'Title'; + ltConsult: lts := 'Consult Service'; + ltProcedure: lts := 'Procedure'; + else lts := ''; + end; + cbxLink.Clear; + if lt = ltConsult then + begin + cbxLink.LongList := FALSE; + if not assigned(FConsultServices) then + begin + FConsultServices := TStringList.Create; + FConsultServices.Assign(LoadServiceListWithSynonyms(1)); + SortByPiece(FConsultServices, U, 2); + end; + for i := 0 to FConsultServices.Count-1 do + begin + LinkTemplate := GetLinkedTemplate(piece(FConsultServices[i],U,1), ltConsult); + if (not assigned(LinkTemplate)) or (LinkTemplate = FShowingTemplate) then + cbxLink.Items.Add(FConsultServices[i]); + end; + end + else + begin + cbxLink.LongList := TRUE; + cbxLink.HideSynonyms := TRUE; + cbxLink.InitLongList(LinkName); + end; + cbxLink.SelectByID(LinkIEN); + lblLink.Caption := ' Associated ' + lts + ': '; + cbxLink.Caption := lblLink.Caption; + end; + + edtName.Text := PrintName; + reNotes.Lines.Text := Description; + if(PersonalOwner = 0) and (FCurTree = tvShared) and (cbEditShared.Checked) then + begin + cbLock.Checked := IsLocked; + if AutoLock then + cbLock.Enabled := FALSE; + end + else + begin + cbLock.Checked := IsTemplateLocked(Node); + cbLock.Enabled := FALSE; + end; + CanDoCom := FCanDoCOMObjects and (PersonalOwner = 0); + if(RealType in AllTemplateRootTypes) then + begin + ClearRB := TRUE; + ClearAll := TRUE; + end + else + begin + case RealType of + ttDoc: begin + if IsReminderDialog then + Idx := tiRemDlg + else + if IsCOMObject then + Idx := tiCOMObj + else + Idx := tiTemplate; + end; + ttGroup: begin + if(Dialog) then + Idx := tiDialog + else + Idx := tiGroup; + end; + ttClass: Idx := tiFolder; + else Idx := tiNone; + end; + FForceContainer := ((RealType in [ttGroup, ttClass]) and (Children <> tcNone)); + cbxType.Items.Clear; + if not FForceContainer then + cbxType.Items.Add('Template'); + cbxType.Items.Add('Folder'); + cbxType.Items.Add('Group Template'); + cbxType.Items.Add('Dialog'); + if (not FForceContainer) then + begin + if(FCanDoReminders or CanDoCOM) then + cbxType.Items.Add('Reminder Dialog'); + if(CanDoCOM) then + cbxType.Items.Add('COM Object'); + end; + cbxType.ItemIndex := ForcedIdx[FForceContainer, Idx]; + if(Idx = tiRemDlg) and FCanDoReminders then + cbxRemDlgs.SelectByID(ReminderDialogIEN) + else + begin + lblRemDlg.Enabled := FALSE; + cbxRemDlgs.Enabled := FALSE; + cbxRemDlgs.ItemIndex := -1; + end; + if (Idx = tiCOMObj) and CanDoCOM then + begin + pnlCOM.Visible := TRUE; + cbxCOMObj.SelectByIEN(COMObject); + edtCOMParam.Text := COMParam; + end + else + begin + pnlCOM.Visible := FALSE; + cbxCOMObj.ItemIndex := -1; + edtCOMParam.Text := ''; + end; + cbActive.Checked := Active; + if(RealType in [ttClass, ttGroup]) then + cbHideItems.Checked := HideItems + else + begin + cbHideItems.Checked := FALSE; + cbHideItems.Enabled := FALSE; + end; + if((RealType in [ttDoc, ttGroup]) and (assigned(Node.Parent)) and + (TTemplate(Node.Parent.Data).RealType = ttGroup) and + (not IsReminderDialog) and (not IsCOMObject)) then + cbExclude.Checked := Exclude + else + begin + cbExclude.Checked := FALSE; + cbExclude.Enabled := FALSE; + end; + if dmodShared.InDialog(Node) and (not IsReminderDialog) and (not IsCOMObject) then + begin + cbDisplayOnly.Checked := DisplayOnly; + cbFirstLine.Checked := FirstLine; + end + else + begin + cbDisplayOnly.Checked := FALSE; + cbDisplayOnly.Enabled := FALSE; + cbFirstLine.Checked := FALSE; + cbFirstLine.Enabled := FALSE; + end; + if(RealType in [ttGroup, ttClass]) and (Children <> tcNone) and + (dmodShared.InDialog(Node)) then + begin + cbOneItemOnly.Checked := OneItemOnly; + cbIndent.Checked := IndentItems; + if(RealType = ttGroup) and (Boilerplate <> '') then + begin + cbHideDlgItems.Checked := HideDlgItems; + end + else + begin + cbHideDlgItems.Checked := FALSE; + cbHideDlgItems.Enabled := FALSE; + end; + end + else + begin + cbOneItemOnly.Checked := FALSE; + cbOneItemOnly.Enabled := FALSE; + cbHideDlgItems.Checked := FALSE; + cbHideDlgItems.Enabled := FALSE; + cbIndent.Checked := FALSE; + cbIndent.Enabled := FALSE; + end; + if(RealType = ttGroup) then + edtGap.Text := IntToStr(Gap) + else + begin + edtGap.Text := '0'; + edtGap.Enabled := FALSE; + udGap.Enabled := FALSE; + udGap.Invalidate; + lblLines.Enabled := FALSE; + end; + DisplayBoilerPlate(Node); + end; + end; + end + else + begin + ClearAll := TRUE; + ClearRB := TRUE; + ClearName := TRUE; + gbProperties.Caption := PropText; + end; + if(ClearName) then + begin + edtName.Text := ''; + reNotes.Clear; + end; + if(ClearRB) then + begin + cbxType.ItemIndex := Ord(tiNone); + end; + if(ClearAll) then + begin + cbActive.Checked := FALSE; + cbExclude.Checked := FALSE; + cbDisplayOnly.Checked := FALSE; + cbFirstLine.Checked := FALSE; + cbOneItemOnly.Checked := FALSE; + cbHideDlgItems.Checked := FALSE; + cbHideItems.Checked := FALSE; + cbIndent.Checked := FALSE; + edtGap.Text := '0'; + reBoil.Clear; + pnlGroupBP.Visible := FALSE; + splBoil.Visible := FALSE; + pnlBoilerplateResize(Self); + pnlCOM.Visible := FALSE; + pnlLink.Visible := FALSE; + end; + if cbDisplayOnly.Enabled or + cbFirstLine.Enabled or + cbIndent.Enabled or + cbOneItemOnly.Enabled or + cbHideDlgItems.Enabled then + gbDialogProps.Font.Color := clWindowText + else + gbDialogProps.Font.Color := clInactiveCaption; + finally + FUpdating := OldUpdating; + end; +end; + +procedure TfrmTemplateEditor.pnlBoilerplateResize(Sender: TObject); +var + Max: integer; + +begin + if(pnlGroupBP.Visible) and (pnlGroupBP.Height > (pnlBoilerplate.Height-29)) then + pnlGroupBP.Height := pnlBoilerplate.Height-29; + if cbLongLines.checked then + Max := 240 + else + Max := MAX_ENTRY_WIDTH; + LimitEditWidth(reBoil, Max); + LimitEditWidth(reNotes, MAX_ENTRY_WIDTH); +end; + +procedure TfrmTemplateEditor.edtNameOldChange(Sender: TObject); +var + i: integer; + Template: TTemplate; + DoRefresh: boolean; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + begin + if CanClone(FCurTree.Selected) then + begin + DoRefresh := Clone(FCurTree.Selected); + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + Template.PrintName := edtName.Text; + UpdateApply(Template); + for i := 0 to Template.Nodes.Count-1 do + TTreeNode(Template.Nodes.Objects[i]).Text := Template.PrintName; + if(DoRefresh) then + begin + tvShared.Invalidate; + tvPersonal.Invalidate; + end; + end; + end; + end; +end; + +procedure TfrmTemplateEditor.cbActiveClick(Sender: TObject); +var + i: integer; + Template: TTemplate; + Node: TTreeNode; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + begin + if CanClone(FCurTree.Selected) then + begin + Clone(FCurTree.Selected); + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + Template.Active := cbActive.Checked; + UpdateApply(Template); + for i := 0 to Template.Nodes.Count-1 do + begin + Node := TTreeNode(Template.Nodes.Objects[i]); + Node.Cut := not Template.Active; + end; + if(FCurTree = tvShared) then + begin + cbPerHideClick(Sender); + cbShHideClick(Sender); + end + else + begin + cbShHideClick(Sender); + cbPerHideClick(Sender); + end; + tvTreeChange(FCurTree, FCurTree.Selected); + EnableNavControls; + if cbActive.CanFocus then + cbActive.SetFocus; + end; + end; + end; +end; + +procedure TfrmTemplateEditor.cbExcludeClick(Sender: TObject); +var + i: integer; + Template: TTemplate; + Node: TTreeNode; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + begin + if CanClone(FCurTree.Selected) then + begin + Clone(FCurTree.Selected); + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + Template.Exclude := cbExclude.Checked; + UpdateApply(Template); + for i := 0 to Template.Nodes.Count-1 do + begin + Node := TTreeNode(Template.Nodes.Objects[i]); + Node.ImageIndex := dmodShared.ImgIdx(Node); + Node.SelectedIndex := dmodShared.ImgIdx(Node); + end; + tvShared.Invalidate; + tvPersonal.Invalidate; + end; + end; + end; +end; + +procedure TfrmTemplateEditor.edtGapChange(Sender: TObject); +var + DoRefresh: boolean; + Template: TTemplate; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + begin + if CanClone(FCurTree.Selected) then + begin + DoRefresh := Clone(FCurTree.Selected); + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + Template.Gap := StrToIntDef(edtGap.Text, 0); + UpdateApply(Template); + DisplayBoilerPlate(FCurTree.Selected); + if(DoRefresh) then + begin + tvShared.Invalidate; + tvPersonal.Invalidate; + end; + end; + end; + end; +end; + +function TfrmTemplateEditor.ChangeTree(NewTree: TTreeView): boolean; +var + i: TTemplateTreeControl; + +begin + Result := FALSE; + tvShared.HideSelection := TRUE; + tvPersonal.HideSelection := TRUE; + if(NewTree <> FCurTree) then + begin + Result := TRUE; + if(assigned(FCurTree)) then + begin + for i := low(TTemplateTreeControl) to high(TTemplateTreeControl) do + FTreeControl[TTemplateTreeType(FCurTree.Tag), i].Enabled := FALSE; + end; + FCurTree := NewTree; + end; + if(assigned(FCurTree)) then + begin + FCurTree.HideSelection := FALSE; + if(FCurTree = tvPersonal) and (Screen.ActiveControl = tvShared) then + tvPersonal.SetFocus + else + if(FCurTree = tvShared) and (Screen.ActiveControl = tvPersonal) then + tvShared.SetFocus; + end; +end; + +procedure TfrmTemplateEditor.tvTreeEnter(Sender: TObject); +begin + if((Sender is TTreeView) and (ChangeTree(TTreeView(Sender)))) then + tvTreeChange(Sender, TTreeView(Sender).Selected); +end; + +procedure TfrmTemplateEditor.tvTreeNodeEdited(Sender: TObject; + Node: TTreeNode; var S: String); +begin + FUpdating := TRUE; + try + edtName.Text := S; + finally + FUpdating := FALSE; + end; + edtNameOldChange(edtName); +end; + +procedure TfrmTemplateEditor.cbShHideClick(Sender: TObject); +var + Node: TTreeNode; + +begin + Node := tvShared.Items.GetFirstNode; + while assigned(Node) do + begin + dmodShared.Resync(Node, not cbShHide.Checked, FSharedEmptyNodeCount); + Node := Node.getNextSibling; + end; + tvTreeChange(tvShared, tvShared.Selected); + EnableNavControls; +end; + +procedure TfrmTemplateEditor.cbPerHideClick(Sender: TObject); +begin + dmodShared.Resync(tvPersonal.Items.GetFirstNode, not cbPerHide.Checked, + FPersonalEmptyNodeCount); + tvTreeChange(tvPersonal, tvPersonal.Selected); + EnableNavControls; +end; + +procedure TfrmTemplateEditor.DisplayBoilerplate(Node: TTreeNode); +var + OldUpdating, ItemOK, BPOK, LongLines: boolean; + i: integer; + TmpSL: TStringList; + +begin + OldUpdating := FUpdating; + FUpdating := TRUE; + try + pnlBoilerplateResize(pnlBoilerplate); + reBoil.Clear; + ItemOK := FALSE; + BPOK := TRUE; + with Node, TTemplate(Node.Data) do + begin + if(RealType in [ttDoc, ttGroup]) then + begin + TmpSL := TStringList.Create; + try + if(RealType = ttGroup) and (not reBoil.ReadOnly) then + begin + ItemOK := TRUE; + TmpSL.Text := Boilerplate; + reGroupBP.Clear; + reGroupBP.SelText := FullBoilerplate; + end + else + TmpSL.Text := FullBoilerplate; + LongLines := FALSE; + for i := 0 to TmpSL.Count-1 do + begin + if length(TmpSL[i]) > MAX_ENTRY_WIDTH then + begin + LongLines := TRUE; + break; + end; + end; + cbLongLines.Checked := LongLines; + reBoil.SelText := TmpSL.Text; + finally + TmpSL.Free; + end; + end + else + begin + reBoil.ReadOnly := TRUE; + reBoil.Color := ReadOnlyColor; + UpdateInsertsDialogs; + end; + pnlGroupBP.Visible := ItemOK; + splBoil.Visible := ItemOK; + if(not ItemOK) and (IsReminderDialog or IsCOMObject) then + BPOK := FALSE; + if(ItemOK) then + splBoil.Top := pnlGroupBP.Top - splBoil.Height; + pnlBoilerplateResize(Self); + pnlBoilerplate.Visible := BPOK; + lblBoilerplate.Visible := BPOK; + pnlCOM.Visible := (not BPOK) and IsCOMObject; + end; + finally + FUpdating := OldUpdating; + end; +end; + +procedure TfrmTemplateEditor.FormDestroy(Sender: TObject); +begin + KillObj(@FConsultServices); + Application.HintHidePause := FSavePause; + if(assigned(frmTemplateObjects)) then + begin + frmTemplateObjects.Free; + frmTemplateObjects := nil; + end; + if(assigned(frmTemplateFields)) then + begin + frmTemplateFields.Free; + frmTemplateFields := nil; + end; + KillObj(@FPersonalObjects); + dmodShared.OnTemplateLock := nil; + dmodShared.InEditor := FALSE; + RemoveAllNodes; + ClearBackup; + UnlockAllTemplates; + dmodShared.Reload; +end; + +procedure TfrmTemplateEditor.sbMoveUpClick(Sender: TObject); +var + idx: integer; + ChangeLevel: boolean; + ParentsParent, ParentNode, Node: TTreeNode; + NodeTemplate, ParentTemplate, Template: TTemplate; + Hide, First, ok: boolean; + +begin + if((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and + (assigned(FCurTree.Selected.Parent))) then + begin + Node := FCurTree.Selected; + NodeTemplate := TTemplate(Node.Data); + ParentNode := Node.Parent; + Template := TTemplate(ParentNode.Data); + idx := Template.Items.IndexOf(NodeTemplate); + ChangeLevel := (idx < 1); + if(not ChangeLevel) then + begin + if(TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then + Hide := cbShHide.Checked + else + Hide := cbPerHide.Checked; + First := TRUE; + while(idx > 0) do + begin + if First then + begin + ok := FALSE; + First := FALSE; + if CanClone(ParentNode) then + begin + if(Clone(ParentNode)) then + Template := TTemplate(ParentNode.Data); + if Template.CanModify then + ok := TRUE; + end; + end + else + ok := TRUE; + if ok then + begin + Template.Items.Exchange(idx-1, idx); + if(Hide and (not TTemplate(Template.Items[idx]).Active)) then + begin + dec(idx); + ChangeLevel := (idx < 1); + end + else + idx := 0; + end + else + idx := 0; + end; + end; + if(ChangeLevel) then + begin + ParentsParent := ParentNode.Parent; + if(assigned(ParentsParent)) then + begin + ParentTemplate := TTemplate(ParentsParent.Data); + if(ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then + InfoBox(ParentsParent.Text + ' already contains the ' + + NodeTemplate.PrintName + ' template.', + 'Error', MB_OK or MB_ICONERROR) + else + begin + if CanClone(ParentNode) then + begin + if(Clone(ParentNode)) then + Template := TTemplate(ParentNode.Data); + if Template.CanModify and CanClone(ParentsParent) then + begin + if(Clone(ParentsParent)) then + ParentTemplate := TTemplate(ParentsParent.Data); + if ParentTemplate.CanModify then + begin + Template.Items.Delete(idx); + idx := ParentTemplate.Items.IndexOf(Template); + if(idx >= 0) then + begin + ParentTemplate.Items.Insert(idx, NodeTemplate); + Resync([ParentTemplate, Template]); + btnApply.Enabled := TRUE; + end; + end; + end; + end; + end; + end; + end + else + begin + Resync([Template]); + btnApply.Enabled := TRUE; + end; + end; +end; + +procedure TfrmTemplateEditor.sbMoveDownClick(Sender: TObject); +var + max, idx: integer; + ChangeLevel: boolean; + ParentsParent, ParentNode, Node: TTreeNode; + NodeTemplate, ParentTemplate, Template: TTemplate; + Hide, First, ok: boolean; + +begin + if((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and + (assigned(FCurTree.Selected.Parent))) then + begin + Node := FCurTree.Selected; + NodeTemplate := TTemplate(Node.Data); + ParentNode := Node.Parent; + Template := TTemplate(ParentNode.Data); + idx := Template.Items.IndexOf(NodeTemplate); + max := Template.Items.Count-1; + ChangeLevel := (idx >= max); + if(not ChangeLevel) then + begin + if(TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then + Hide := cbShHide.Checked + else + Hide := cbPerHide.Checked; + First := TRUE; + while(idx < max) do + begin + if First then + begin + ok := FALSE; + First := FALSE; + if CanClone(ParentNode) then + begin + if(Clone(ParentNode)) then + Template := TTemplate(ParentNode.Data); + if Template.CanModify then + ok := TRUE; + end; + end + else + ok := TRUE; + if ok then + begin + Template.Items.Exchange(idx, idx+1); + if(Hide and (not TTemplate(Template.Items[idx]).Active)) then + begin + inc(idx); + ChangeLevel := (idx >= max); + end + else + idx := max; + end + else + idx := max; + end; + end; + if(ChangeLevel) then + begin + ParentsParent := ParentNode.Parent; + if(assigned(ParentsParent)) then + begin + ParentTemplate := TTemplate(ParentsParent.Data); + if(ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then + InfoBox(ParentsParent.Text + ' already contains the ' + + NodeTemplate.PrintName + ' template.', + 'Error', MB_OK or MB_ICONERROR) + else + begin + if CanClone(ParentNode) then + begin + if(Clone(ParentNode)) then + Template := TTemplate(ParentNode.Data); + if Template.CanModify and CanClone(ParentsParent) then + begin + if(Clone(ParentsParent)) then + ParentTemplate := TTemplate(ParentsParent.Data); + if ParentTemplate.CanModify then + begin + Template.Items.Delete(idx); + idx := ParentTemplate.Items.IndexOf(Template); + if(idx >= 0) then + begin + if(idx = (ParentTemplate.Items.Count-1)) then + ParentTemplate.Items.Add(NodeTemplate) + else + ParentTemplate.Items.Insert(idx+1, NodeTemplate); + Resync([ParentTemplate, Template]); + btnApply.Enabled := TRUE; + end; + end; + end; + end; + end; + end; + end + else + begin + Resync([Template]); + btnApply.Enabled := TRUE; + end; + end; +end; + +procedure TfrmTemplateEditor.sbDeleteClick(Sender: TObject); +var + PNode, Node: TTreeNode; + Template, Parent: TTemplate; + DoIt: boolean; + Answer: Word; + +begin + if((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and + (assigned(FCurTree.Selected.Parent))) then + begin + Node := FCurTree.Selected; + Template := TTemplate(Node.Data); + PNode := Node.Parent; + Parent := TTemplate(PNode.Data); + if(AutoDel(Template)) then + DoIt := TRUE + else + if(Template.Active) and (cbActive.Checked) then + begin + DoIt := FALSE; + Answer := MessageDlg('Once you delete a template you may not be able to retrieve it.' + CRLF + + 'Rather than deleting, you may want to inactivate a template instead.' + CRLF + + 'You may inactivate this template by pressing the Ignore button now.' + CRLF + + 'Are you sure you want to delete the "' + Node.Text + + '" Template?', mtConfirmation, [mbYes, mbNo, mbIgnore], 0); + if(Answer = mrYes) then + DoIt := TRUE + else + if(Answer = mrIgnore) then + cbActive.Checked := FALSE; + end + else + DoIt := InfoBox('Are you sure you want to delete the "' + Node.Text + + '" Template?', 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES; + if(DoIt and CanClone(PNode)) then + begin + if(Clone(PNode)) then + Parent := TTemplate(PNode.Data); + if assigned(Parent) and Parent.CanModify then + begin + btnApply.Enabled := TRUE; + Parent.RemoveChild(Template); + MarkDeleted(Template); + Resync([Parent]); + tvTreeChange(FCurTree, FCurTree.Selected); + end; + end; + end; +end; + +procedure TfrmTemplateEditor.EnableNavControls; +var + i: TTemplateTreeControl; + AllowUp, AllowDown, AllowSet: boolean; + Node: TTreeNode; + Tree: TTemplateTreeType; + Curok: boolean; + OldActiveControl: TControl; +begin + if(Assigned(FCurTree)) then + begin + Tree := TTemplateTreeType(FCurTree.Tag); + Node := FCurTree.Selected; + if(Assigned(Node)) then + Curok := (TTemplate(Node.Data).RealType in [ttDoc, ttGroup, ttClass]) + else + Curok := FALSE; + if(Curok) then + begin + OldActiveControl := ActiveControl; + FTreeControl[Tree, tcDel].Enabled := TRUE; + AllowSet := FALSE; + if(Node.Index > 0) then + AllowUp := TRUE + else + begin + AllowUp := AllowMove(Node.Parent.Parent, Node); + AllowSet := TRUE; + end; + FTreeControl[Tree, tcUp].Enabled := AllowUp; + AllowDown := AllowUp; + if(Node.Index < (Node.Parent.Count-1)) then + AllowDown := TRUE + else + begin + if(not AllowSet) then + AllowDown := AllowMove(Node.Parent.Parent, Node); + end; + FTreeControl[Tree, tcDown].Enabled := AllowDown; + if not AllowUp and (OldActiveControl = FTreeControl[Tree, tcUp]) then + (FTreeControl[Tree, tcDown] as TWinControl).SetFocus; + if not AllowDown and (OldActiveControl = FTreeControl[Tree, tcDown]) then + (FTreeControl[Tree, tcUp] as TWinControl).SetFocus; + FTreeControl[Tree, tcCopy].Enabled := FTreeControl[TTemplateTreeType(1-ord(Tree)), tcDel].Visible; + if(FTreeControl[Tree, tcCopy].Enabled) then + begin + if(Tree = ttShared) then + Node := tvPersonal.Selected + else + Node := tvShared.Selected; + if(assigned(Node)) then + begin + if(TTemplate(Node.Data).RealType = ttDoc) then + Node := Node.Parent; + FTreeControl[Tree, tcCopy].Enabled := AllowMove(Node, FCurTree.Selected); + end + else + FTreeControl[Tree, tcCopy].Enabled := FALSE; + end; + FTreeControl[Tree, tcLbl].Enabled := FTreeControl[Tree, tcCopy].Enabled; + end + else + begin + for i := low(TTemplateTreeControl) to high(TTemplateTreeControl) do + FTreeControl[Tree, i].Enabled := FALSE; + end; + if(FCurTree = tvShared) and (FCanEditShared) then + btnNew.Enabled := TRUE + else + if(FCurTree = tvPersonal) and (FCanEditPersonal) then + btnNew.Enabled := TRUE + else + btnNew.Enabled := FALSE; + end + else + btnNew.Enabled := FALSE; +end; + +procedure TfrmTemplateEditor.tvTreeDragging(Sender: TObject; + Node: TTreeNode; var CanDrag: Boolean); + +begin + CanDrag := (TTemplate(Node.Data).RealType in [ttDoc, ttGroup, ttClass]); + if(CanDrag) then + FDragNode := Node + else + FDragNode := nil; +end; + +procedure TfrmTemplateEditor.tvTreeDragOver(Sender, Source: TObject; X, + Y: Integer; State: TDragState; var Accept: Boolean); +var + TmpNode: TTreeNode; + Tree: TTreeView; + +begin + FDropNode := nil; + Accept := FALSE; + if(Source is TTreeView) and (assigned(FDragNode)) then + begin + Tree := TTreeView(Sender); + FDropNode := Tree.GetNodeAt(X,Y); + if(((Tree = tvShared) and (FCanEditShared)) or + ((Tree = tvPersonal) and (FCanEditPersonal))) then + begin + if(assigned(FDropNode)) then + begin + FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes); + if(FDropInto) then + TmpNode := FDropNode + else + TmpNode := FDropNode.Parent; + Accept := AllowMove(TmpNode, FDragNode); + end; + end; + end; +end; + +procedure TfrmTemplateEditor.tvTreeDragDrop(Sender, Source: TObject; X, + Y: Integer); +var + Src, Template, Item: TTemplate; + SIdx, idx: integer; + TmpNode: TTreeNode; + +begin + if(assigned(FDragNode)) and (assigned(FDropNode)) and (FDragNode <> FDropNode) then + begin + Item := TTemplate(FDragNode.Data); + if(FDropInto) then + begin + TmpNode := FDropNode; + idx := 0; + end + else + begin + TmpNode := FDropNode.Parent; + idx := TTemplate(FDropNode.Parent.Data).Items.IndexOf(FDropNode.Data); + end; + if(AllowMove(TmpNode, FDragNode) and (idx >= 0)) then + begin + Template := TTemplate(TmpNode.Data); + if(Template <> FDragNode.Parent.Data) and + (Template.Items.IndexOf(Item) >= 0) then + InfoBox(Template.PrintName + ' already contains the ' + + Item.PrintName + ' template.', + 'Error', MB_OK or MB_ICONERROR) + else + begin + Src := TTemplate(FDragNode.Parent.Data); + Sidx := Src.Items.IndexOf(Item); + if CanClone(TmpNode) then + begin + if(Clone(TmpNode)) then + Template := TTemplate(TmpNode.Data); + if assigned(Template) and Template.CanModify then + begin + if(Sidx >= 0) and (FDragNode.TreeView = FDropNode.TreeView) and + (not FCopying) then // if same tree delete source + begin + if CanClone(FDragNode.Parent) then + begin + if(Clone(FDragNode.Parent)) then + Src := TTemplate(FDragNode.Parent.Data); + if assigned(Src) and Src.CanModify then + begin + Src.Items.Delete(Sidx); + if(Template = Src) then + Src := nil; + end + else + Src := nil; + end + else + Src := nil; + end + else + Src := nil; + if(idx > 0) then + idx := TTemplate(FDropNode.Parent.Data).Items.IndexOf(FDropNode.Data); + Template.Items.Insert(idx, Item); + if(TTreeView(FDropNode.TreeView) = tvShared) then + begin + Item.PersonalOwner := 0; + tvPersonal.Invalidate; + end; + TTreeView(FDragNode.TreeView).Selected := FDragNode; + TTreeView(FDragNode.TreeView).SetFocus; + Resync([Src, Template]); + btnApply.Enabled := TRUE; + end; + end; + end; + end; + end; +end; + +procedure TfrmTemplateEditor.Resync(const Templates: array of TTemplate); +var + i, j: integer; + NodeList: TStringList; + TemplateList: TStringList; + Node: TTreeNode; + tmpl: TTemplate; + NodeID: string; + +begin + NodeList := TStringList.Create; + try + TemplateList := TStringList.Create; + try + for i := low(Templates) to high(Templates) do + begin + tmpl := Templates[i]; + if(assigned(tmpl)) then + begin + for j := 0 to tmpl.Nodes.Count-1 do + begin + Node := TTreeNode(tmpl.Nodes.Objects[j]); + if(NodeList.IndexOfObject(Node) < 0) then + begin + NodeID := IntToStr(Node.Level); + NodeID := copy('000',1,4-length(NodeID))+NodeID+U+tmpl.Nodes[j]; + TemplateList.AddObject(NodeID,tmpl); + NodeList.AddObject(NodeId,Node); + end; + end; + end; + end; + + { By Sorting by Node Level, we prevent a Resync + of nodes deeper within the heirchary } + + NodeList.Sort; + + for i := 0 to NodeList.Count-1 do + begin + NodeID := NodeList[i]; + Node := TTreeNode(NodeList.Objects[i]); + j := TemplateList.IndexOf(NodeID); + if(j >= 0) then + begin + tmpl := TTemplate(TemplateList.Objects[j]); + NodeID := Piece(NodeID,U,2); + if(tmpl.Nodes.IndexOf(NodeID) >= 0) then + begin + if(Node.TreeView = tvShared) then + dmodShared.Resync(Node, not cbShHide.Checked, FSharedEmptyNodeCount) + else + if(Node.TreeView = tvPersonal) then + dmodShared.Resync(Node, not cbPerHide.Checked, FPersonalEmptyNodeCount); + end; + end; + end; + finally + TemplateList.Free; + end; + finally + NodeList.Free; + end; + EnableNavControls; + if((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + tvTreeChange(FCurTree, FCurTree.Selected) + else + tvPersonal.Selected := tvPersonal.Items.GetFirstNode; + FCopyNode := nil; +end; + +procedure TfrmTemplateEditor.sbCopyLeftClick(Sender: TObject); +begin + if(assigned(tvPersonal.Selected)) then + begin + if(not assigned(tvShared.Selected)) then + tvShared.Selected := tvShared.Items.GetFirstNode; + FDragNode := tvPersonal.Selected; + FDropNode := tvShared.Selected; + FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes); + tvTreeDragDrop(tvPersonal, tvShared, 0,0); + end; +end; + +procedure TfrmTemplateEditor.sbCopyRightClick(Sender: TObject); +begin + if(assigned(tvShared.Selected)) then + begin + if(not assigned(tvPersonal.Selected)) then + tvPersonal.Selected := tvPersonal.Items.GetFirstNode; + FDragNode := tvShared.Selected; + FDropNode := tvPersonal.Selected; + FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes); + tvTreeDragDrop(tvShared, tvPersonal, 0,0); + end; +end; + +function TfrmTemplateEditor.AllowMove(ADropNode, ADragNode: TTreeNode): boolean; +var + i: integer; + TmpNode: TTreeNode; + DragTemplate, DropTemplate: TTemplate; + +begin + if(assigned(ADropNode) and assigned(ADragNode)) then + begin + DropTemplate := TTemplate(ADropNode.Data); + DragTemplate := TTemplate(ADragNode.Data); + if IsTemplateLocked(ADropNode) then + Result := FALSE + else + Result := (DragTemplate.RealType in [ttDoc, ttGroup, ttClass]); + if(Result) then + begin + if(FCopying) then + begin + if(DropTemplate.Items.IndexOf(DragTemplate) >= 0) then + Result := FALSE; + end + else + if((assigned(ADragNode.Parent)) and (ADropNode <> ADragNode.Parent) and + (DropTemplate.Items.IndexOf(DragTemplate) >= 0)) then + Result := FALSE; + end; + if(Result) then + begin + for i := 0 to DropTemplate.Nodes.Count-1 do + begin + TmpNode := TTreeNode(DropTemplate.Nodes.Objects[i]); + while (Result and (assigned(TmpNode.Parent))) do + begin + if(TmpNode.Data = DragTemplate) then + Result := FALSE + else + TmpNode := TmpNode.Parent; + end; + if(not Result) then break; + end; + end; + end + else + Result := FALSE; +end; + +function TfrmTemplateEditor.Clone(Node: TTreeNode): boolean; +var + idx: integer; + Prnt, OldT, NewT: TTemplate; + PNode: TTreeNode; + ok: boolean; + +begin + Result := FALSE; + if((assigned(Node)) and (TTreeView(Node.TreeView) = tvPersonal)) then + begin + OldT := TTemplate(Node.Data); + if(OldT.PersonalOwner <> User.DUZ) then + begin + PNode := Node.Parent; + Prnt := nil; + if (assigned(PNode)) then + begin + ok := CanClone(PNode); + if ok then + begin + Clone(PNode); + Prnt := TTemplate(PNode.Data); + ok := Prnt.CanModify; + end; + end + else + ok := TRUE; + if ok then + begin + BtnApply.Enabled := TRUE; + Result := TRUE; + NewT := OldT.Clone(User.DUZ); + OldT.RemoveNode(Node); + MarkDeleted(OldT); + Node.Data := NewT; + NewT.AddNode(Node); + if(assigned(Prnt)) then + begin + idx := Prnt.Items.IndexOf(OldT); + if(idx >= 0) then + Prnt.Items[idx] := NewT; + end; + tvPersonal.Invalidate; + ShowTemplateType(NewT); + end; + end; + end; +end; + +procedure TfrmTemplateEditor.reBoilChange(Sender: TObject); +var + DoInfo, DoRefresh: boolean; + TmpBPlate: string; + Template: TTemplate; + x: integer; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + begin + Template := TTemplate(FCurTree.Selected.Data); + TmpBPlate := reBoil.Lines.Text; + if(Template.Boilerplate <> TmpBPlate) then + begin + if CanClone(FCurTree.Selected) then + begin + DoRefresh := Clone(FCurTree.Selected); + if(DoRefresh) then + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + DoInfo := FALSE; + if(Template.Boilerplate = '') or (TmpBPlate = '') then + DoInfo := TRUE; + Template.Boilerplate := TmpBPlate; + TTemplate(FCurTree.Selected.Data).Gap := StrToIntDef(edtGap.Text, 0); + if(Template.RealType = ttGroup) then + begin + reGroupBP.Text := Template.FullBoilerplate; + end; + if(DoRefresh) then + begin + tvShared.Invalidate; + tvPersonal.Invalidate; + end; + if(DoInfo) then + begin + x := reBoil.SelStart; + ShowInfo(FCurTree.Selected); + reBoil.SelStart := x; + end; + end; + end; + btnApply.Enabled := TRUE; +// reBoil.Lines.Text := Template.Boilerplate; + end; + end; +end; + +procedure TfrmTemplateEditor.SharedEditing; +begin +{$IFDEF OwnerScan} + lblPerOwner.Visible := FCanEditShared; + cboOwner.Visible := FCanEditShared; +{$ELSE} + lblPerOwner.Visible := FALSE; + cboOwner.Visible := FALSE; +{$ENDIF} + sbCopyLeft.Visible := FCanEditShared; + if(not FCanEditShared) then + cbShHide.Checked := TRUE; + cbShHide.Visible := FCanEditShared; + sbShDelete.Visible := FCanEditShared; + sbShUp.Visible := FCanEditShared; + sbShDown.Visible := FCanEditShared; + tvShared.ReadOnly := not FCanEditShared; + MoveCopyButtons; + tvTreeChange(FCurTree, FCurTree.Selected); +end; + +procedure TfrmTemplateEditor.cbEditSharedClick(Sender: TObject); +begin + FCanEditShared := cbEditShared.Checked; + SharedEditing; +end; + +procedure TfrmTemplateEditor.popTemplatesPopup(Sender: TObject); +var + Tree: TTreeView; + Node: TTreeNode; + FindOn: boolean; + Txt: string; + +begin + FFromMainMenu := FALSE; + Tree := GetTree; + Node := Tree.Selected; + Tree.Selected := Node; // This line prevents selected from changing after menu closes + mnuCollapseTree.Enabled := dmodShared.NeedsCollapsing(Tree); + if(Tree = tvShared) then + begin + Txt := 'Shared'; + FindOn := FFindShOn; + mnuNodeDelete.Enabled := ((sbShDelete.Visible) and (sbShDelete.Enabled)); + end + else + begin + Txt := 'Personal'; + FindOn := FFindPerOn; + mnuNodeDelete.Enabled := ((sbPerDelete.Visible) and (sbPerDelete.Enabled)); + end; + mnuFindTemplates.Checked := FindOn; + mnuCollapseTree.Caption := 'Collapse '+Txt+' &Tree'; + mnuFindTemplates.Caption := '&Find '+Txt+' Templates'; + + if(assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then + begin + mnuNodeCopy.Enabled := (TTemplate(Tree.Selected.Data).RealType in [ttDoc, ttGroup, ttClass]); + mnuNodeSort.Enabled := (TTemplate(Tree.Selected.Data).RealType in AllTemplateFolderTypes) and + (Tree.Selected.HasChildren) and + (Tree.Selected.GetFirstChild.GetNextSibling <> nil); + end + else + begin + mnuNodeCopy.Enabled := FALSE; + mnuNodeSort.Enabled := FALSE; + end; + FPasteNode := Tree.Selected; + mnuNodePaste.Enabled := PasteOK; + mnuNodeNew.Enabled := btnNew.Enabled; + mnuNodeAutoGen.Enabled := btnNew.Enabled; +end; + +procedure TfrmTemplateEditor.mnuCollapseTreeClick(Sender: TObject); +begin + if(GetTree = tvShared) then + begin + tvShared.Selected := tvShared.Items.GetFirstNode; + tvShared.FullCollapse; + end + else + begin + tvPersonal.Selected := tvShared.Items.GetFirstNode; + tvPersonal.FullCollapse; + end; +end; + +procedure TfrmTemplateEditor.mnuFindTemplatesClick(Sender: TObject); +var + Tree: TTreeView; + +begin + Tree := GetTree; + if(Tree = tvShared) then + begin + FFindShOn := not FFindShOn; + pnlShSearch.Visible := FFindShOn; + if(FFindShOn) then + begin + edtShSearch.SetFocus; + btnShFind.Enabled := (edtShSearch.Text <> ''); + end; + end + else + begin + FFindPerOn := not FFindPerOn; + pnlPerSearch.Visible := FFindPerOn; + if(FFindPerOn) then + begin + edtPerSearch.SetFocus; + btnPerFind.Enabled := (edtPerSearch.Text <> ''); + end; + end; + SetFindNext(Tree, FALSE); +end; + +procedure TfrmTemplateEditor.ShowTemplateType(Template: TTemplate); +begin + if(Template.PersonalOwner > 0) then + gbProperties.Caption := 'Personal' + else + gbProperties.Caption := 'Shared'; + gbProperties.Caption := gbProperties.Caption + PropText; +end; + +function TfrmTemplateEditor.GetTree: TTreeView; +begin + if(FFromMainMenu) then + Result := FMainMenuTree + else + begin + if(TTemplateTreeType(PopupComponent(popTemplates, popTemplates).Tag) = ttShared) then + Result := tvShared + else + Result := tvPersonal; + end; +end; + +procedure TfrmTemplateEditor.btnFindClick(Sender: TObject); +var + Found: boolean; + edtSearch: TEdit; + FindNext: boolean; + FindWholeWords: boolean; + FindCase: boolean; + Tree: TTreeView; + LastFoundNode, TmpNode: TTreeNode; + S1,S2: string; + +begin + if(TTemplateTreeType(TButton(Sender).Tag) = ttShared) then + begin + Tree := tvShared; + edtSearch := edtShSearch; + FindNext := FFindShNext; + FindWholeWords := cbShWholeWords.Checked; + FindCase := cbShMatchCase.Checked; + LastFoundNode := FLastFoundShNode; + if(FSharedEmptyNodeCount > 0) then + begin + FInternalHiddenExpand := TRUE; + try + tvShared.Items.GetFirstNode.Expand(TRUE); + finally + FInternalHiddenExpand := FALSE; + end; + end; + end + else + begin + Tree := tvPersonal; + edtSearch := edtPerSearch; + FindNext := FFindPerNext; + FindWholeWords := cbPerWholeWords.Checked; + FindCase := cbPerMatchCase.Checked; + LastFoundNode := FLastFoundPerNode; + if(FPersonalEmptyNodeCount > 0) then + begin + FInternalHiddenExpand := TRUE; + try + tvPersonal.Items.GetFirstNode.Expand(TRUE); + finally + FInternalHiddenExpand := FALSE; + end; + end; + end; + if(edtSearch.text <> '') then + begin + if((FindNext) and assigned (LastFoundNode)) then + TmpNode := LastFoundNode.GetNext + else + TmpNode := Tree.Items.GetFirstNode; + Found := FALSE; + if(assigned(TmpNode)) then + begin + S1 := edtSearch.Text; + if(not FindCase) then + S1 := UpperCase(S1); + while (assigned(TmpNode) and (not Found)) do + begin + S2 := TmpNode.Text; + if(not FindCase) then + S2 := UpperCase(S2); + Found := SearchMatch(S1, S2, FindWholeWords); + if(not Found) then + TmpNode := TmpNode.GetNext; + end; + end; + if(Found) then + begin + if(Tree = tvShared) then + FLastFoundShNode := TmpNode + else + FLastFoundPerNode := TmpNode; + SetFindNext(Tree, TRUE); + Tree.Selected := TmpNode; + end + else + begin + if(FindNext) then + S1 := '' + else + S1 := ' "' + edtSearch.Text + '" was not Found.'; + SetFindNext(Tree, FALSE); + InfoBox('Search Complete.' + S1, 'Information', MB_OK or MB_ICONINFORMATION); + end; + end; + edtSearch.SetFocus; +end; + +procedure TfrmTemplateEditor.edtSearchChange(Sender: TObject); +begin + if(TTemplateTreeType(TEdit(Sender).Tag) = ttShared) then + begin + btnShFind.Enabled := (edtShSearch.Text <> ''); + SetFindNext(tvShared, FALSE); + end + else + begin + btnPerFind.Enabled := (edtPerSearch.Text <> ''); + SetFindNext(tvPersonal, FALSE); + end; +end; + +procedure TfrmTemplateEditor.SetFindNext(const Tree: TTreeView; const Value: boolean); +begin + if(Tree = tvShared) then + begin + if(FFindShNext <> Value) then + begin + FFindShNext := Value; + if(FFindShNext) then btnShFind.Caption := 'Find Next' + else btnShFind.Caption := 'Find'; + end; + end + else + begin + if(FFindPerNext <> Value) then + begin + FFindPerNext := Value; + if(FFindPerNext) then btnPerFind.Caption := 'Find Next' + else btnPerFind.Caption := 'Find'; + end; + end; +end; + +procedure TfrmTemplateEditor.edtShSearchEnter(Sender: TObject); +begin + btnShFind.Default := TRUE; +end; + +procedure TfrmTemplateEditor.edtShSearchExit(Sender: TObject); +begin + btnShFind.Default := FALSE; +end; + +procedure TfrmTemplateEditor.edtPerSearchEnter(Sender: TObject); +begin + btnPerFind.Default := TRUE; +end; + +procedure TfrmTemplateEditor.edtPerSearchExit(Sender: TObject); +begin + btnPerFind.Default := FALSE; +end; + +procedure TfrmTemplateEditor.btnOKClick(Sender: TObject); +begin + if(ScanNames) then + begin + if(SaveAllTemplates) then + begin + FOK2Close := TRUE; + ModalResult := mrOK; + end + else + BtnApply.Enabled := BackupDiffers; + end; +end; + +procedure TfrmTemplateEditor.FormShow(Sender: TObject); +begin + if(FFirstShow) then + begin + FUpdating := FALSE; + FFirstShow := FALSE; + if(FFocusName) then + begin + edtName.SetFocus; + edtName.SelectAll; + end; + pnlBoilerplateResize(Self); + end; +end; + +procedure TfrmTemplateEditor.mnuBPInsertObjectClick(Sender: TObject); +var + i: integer; + DoIt: boolean; + +begin + if(not assigned(frmTemplateObjects)) then + begin + dmodShared.LoadTIUObjects; + frmTemplateObjects := TfrmTemplateObjects.Create(Self); + DoIt := TRUE; + if (UserTemplateAccessLevel <> taEditor) then + begin + UpdatePersonalObjects; + if FPersonalObjects.Count > 0 then + begin + DoIt := FALSE; + for i := 0 to dmodShared.TIUObjects.Count-1 do + if FPersonalObjects.IndexOf(Piece(dmodShared.TIUObjects[i],U,2)) >= 0 then + frmTemplateObjects.cboObjects.Items.Add(dmodShared.TIUObjects[i]); + end; + end; + if DoIt then + frmTemplateObjects.cboObjects.Items.Assign(dmodShared.TIUObjects); + frmTemplateObjects.Font := Font; + frmTemplateObjects.re := reBoil; + frmTemplateObjects.AutoLongLines := AutoLongLines; + end; + frmTemplateObjects.Show; +end; + +procedure TfrmTemplateEditor.mnuBPErrorCheckClick(Sender: TObject); +begin + FBPOK := FALSE; + if(reBoil.Lines.Count > 0) then + begin + if(dmodShared.TemplateOK(FCurTree.Selected.Data,'OK')) then + begin + TestBoilerplate(reBoil.Lines); + if(RPCBrokerV.Results.Count > 0) then + InfoBox('Boilerplate Contains Errors:'+CRLF+CRLF+ + RPCBrokerV.Results.Text, 'Error', MB_OK or MB_ICONERROR) + else + begin + FBPOK := TRUE; + if(assigned(Sender)) then + InfoBox('No Errors Found in Boilerplate.', 'Information', MB_OK or MB_ICONINFORMATION); + end; + end; + end; +end; + +procedure TfrmTemplateEditor.popBoilerplatePopup(Sender: TObject); +var + tryOK, ok: boolean; + +begin + ok := not reBoil.ReadOnly; + mnuBPInsertObject.Enabled := ok; + mnuBPInsertField.Enabled := ok; + + mnuBPPaste.Enabled := (ok and Clipboard.HasFormat(CF_TEXT)); + if(ok) then + ok := (reBoil.Lines.Count > 0); + tryOK := (reBoil.Lines.Count > 0) or ((pnlGroupBP.Visible) and (reGroupBP.Lines.Count > 0)); + mnuBPErrorCheck.Enabled := tryOK; + mnuBPTry.Enabled := tryOK; + mnuBPSpellCheck.Enabled := ok and SpellCheckAvailable; + mnuBPCheckGrammar.Enabled := ok and SpellCheckAvailable; + + mnuBPCopy.Enabled := (reBoil.SelLength > 0); + mnuBPCut.Enabled := (ok and (reBoil.SelLength > 0)); + mnuBPSelectAll.Enabled := (reBoil.Lines.Count > 0); + mnuBPUndo.Enabled := (reBoil.Perform(EM_CANUNDO, 0, 0) <> 0); +end; + +function TfrmTemplateEditor.ScanNames: boolean; +var + Errors: TList; + msg: string; + i: integer; + Node: TTreeNode; + + procedure ScanTree(Tree: TTreeView); + begin + Node := Tree.Items.GetFirstNode; + while (assigned(Node)) do + begin + if(Node.Text <> EmptyNodeText) and (assigned(Node.Data)) then + begin + if(BadTemplateName(Node.Text)) then + Errors.Add(Node); + end; + Node := Node.GetNext; + end; + end; + +begin + Errors := TList.Create; + try + ScanTree(tvShared); + ScanTree(tvPersonal); + if(Errors.Count > 0) then + begin + if(Errors.Count > 1) then + msg := IntToStr(Errors.Count) + ' Templates have invalid names' + else + msg := 'Template has an invalid name'; + msg := msg + ': '; + for i := 0 to Errors.Count-1 do + begin + if(i > 0) then msg := msg + ', '; + Node := TTreeNode(Errors[i]); + msg := msg + Node.Text; + Node.MakeVisible; + end; + msg := msg + '.' + BadNameText; + InfoBox(msg, 'Error', MB_OK or MB_ICONERROR); + TTreeView(Node.TreeView).Selected := TTreeNode(Errors[0]); + end; + finally + Result := (Errors.Count = 0); + Errors.Free; + end; +end; + +procedure TfrmTemplateEditor.btnCancelClick(Sender: TObject); +begin + FOK2Close := TRUE; +end; + +procedure TfrmTemplateEditor.FormCloseQuery(Sender: TObject; + var CanClose: Boolean); +var + ans: word; + +begin + if(not FOK2Close) and (BackupDiffers) then + begin + ans := InfoBox('Save Changes?', 'Confirmation', MB_YESNOCANCEL or MB_ICONQUESTION); + if(ans = IDCANCEL) then + CanClose := FALSE + else + if(ans = IDYES) then + begin + CanClose := FALSE; + if(ScanNames) then + begin + if(SaveAllTemplates) then + CanClose := TRUE + else + BtnApply.Enabled := BackupDiffers; + end; + end; + end; +end; + +procedure TfrmTemplateEditor.mnuBPSpellCheckClick(Sender: TObject); +begin + SpellCheckForControl(reBoil); +end; + +procedure TfrmTemplateEditor.splBoilMoved(Sender: TObject); +begin + pnlBoilerplateResize(Self); +end; + +procedure TfrmTemplateEditor.edtGapKeyPress(Sender: TObject; + var Key: Char); +begin + if(not (Key in ['0','1','2','3'])) then Key := #0; +end; + +procedure TfrmTemplateEditor.edtNameExit(Sender: TObject); +var + Warn: boolean; + +begin + Warn := (ActiveControl <> btnCancel) and (BadTemplateName(edtName.Text)); + if(Warn and ((ActiveControl = sbShDelete) or (ActiveControl = sbPerDelete))) then + begin + if((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + Warn := not AutoDel(TTemplate(FCurTree.Selected.Data)); + end; + if(Warn) then + begin + InfoBox('Template has an invalid name: ' + edtName.Text + '.' + BadNameText, 'Error', MB_OK or MB_ICONERROR); + edtName.SetFocus; + end; +end; + +procedure TfrmTemplateEditor.tmrAutoScrollTimer(Sender: TObject); +const + EdgeScroll = 16; + +var + TopNode: TTreeNode; + Redraw: boolean; + TmpPt: TPoint; + ht: THitTests; + HPos, RMax: integer; + +begin + if(assigned(FDropNode)) then + begin + TopNode := FDropNode.TreeView.TopItem; + Redraw := FALSE; + TmpPt := FDropNode.TreeView.ScreenToClient(Mouse.CursorPos); + if(TopNode = FDropNode) and (TopNode <> TTreeView(FDropNode.TreeView).Items.GetFirstNode) then + begin + FDropNode.TreeView.TopItem := TopNode.GetPrevVisible; + Redraw := TRUE; + end + else + begin + RMax := FDropNode.TreeView.ClientHeight - EdgeScroll; + if((TmpPt.Y > RMax) and (FDropNode.GetNextVisible <> nil)) then + begin + TORTreeView(FDropNode.TreeView).VertScrollPos := + TORTreeView(FDropNode.TreeView).VertScrollPos + 1; + Redraw := TRUE; + end; + end; + if(FLastDropNode <> FDropNode) then + begin + if((assigned(FDropNode)) and (FDropNode.GetNext = nil)) then + Redraw := TRUE + else + if((assigned(FLastDropNode)) and (FLastDropNode.GetNext = nil)) then + Redraw := TRUE; + FLastDropNode := FDropNode; + FDragOverCount := 0; + end + else + begin + if(FDropNode.HasChildren) and (not FDropNode.Expanded) then + begin + ht := FDropNode.TreeView.GetHitTestInfoAt(TmpPt.X, TmpPt.Y); + if(htOnButton in ht) then + begin + inc(FDragOverCount); + if(FDragOverCount > 4) then + begin + TopNode := FDropNode.TreeView.TopItem; + FDropNode.Expand(FALSE); + FDropNode.TreeView.TopItem := TopNode; + FDragOverCount := 0; + Redraw := TRUE; + end; + end + else + FDragOverCount := 0; + end; + if(not Redraw) then + begin + HPos := TORTreeView(FDropNode.TreeView).HorzScrollPos; + if(HPos > 0) and (TmpPt.X < EdgeScroll) then + begin + TORTreeView(FDropNode.TreeView).HorzScrollPos := + TORTreeView(FDropNode.TreeView).HorzScrollPos - EdgeScroll; + Redraw := TRUE; + end + else + begin + RMax := FDropNode.TreeView.ClientWidth - EdgeScroll; + if(TmpPt.X > RMax) then + begin + TORTreeView(FDropNode.TreeView).HorzScrollPos := + TORTreeView(FDropNode.TreeView).HorzScrollPos + EdgeScroll; + Redraw := TRUE; + end; + end; + end; + end; + if(Redraw) then + begin + TmpPt := Mouse.CursorPos; // Wiggling the mouse causes needed windows messages to fire + inc(TmpPt.X); + Mouse.CursorPos := TmpPt; + dec(TmpPt.X); + Mouse.CursorPos := TmpPt; + FDropNode.TreeView.Invalidate; + end; + end; +end; + +procedure TfrmTemplateEditor.tvTreeStartDrag(Sender: TObject; + var DragObject: TDragObject); +begin + FDropNode := nil; + FLastDropNode := nil; + FDragOverCount := 0; + tmrAutoScroll.Enabled := TRUE; +end; + +procedure TfrmTemplateEditor.tvTreeEndDrag(Sender, Target: TObject; X, + Y: Integer); +begin + tmrAutoScroll.Enabled := FALSE; +end; + +procedure TfrmTemplateEditor.mnuGroupBPCopyClick(Sender: TObject); +begin + reGroupBP.CopyToClipboard; +end; + +procedure TfrmTemplateEditor.popGroupPopup(Sender: TObject); +begin + mnuGroupBPCopy.Enabled := (pnlGroupBP.Visible and (reGroupBP.SelLength > 0)); + mnuGroupBPSelectAll.Enabled := (pnlGroupBP.Visible and (reGroupBP.Lines.Count > 0)); +end; + +procedure TfrmTemplateEditor.mnuBPCutClick(Sender: TObject); +begin + reBoil.CutToClipboard; +end; + +procedure TfrmTemplateEditor.mnuBPCopyClick(Sender: TObject); +begin + reBoil.CopyToClipboard; +end; + +procedure TfrmTemplateEditor.mnuBPPasteClick(Sender: TObject); +begin + reBoil.SelText := Clipboard.AsText; +end; + +procedure TfrmTemplateEditor.mnuGroupBPSelectAllClick(Sender: TObject); +begin + reGroupBP.SelectAll; +end; + +procedure TfrmTemplateEditor.mnuBPSelectAllClick(Sender: TObject); +begin + reBoil.SelectAll; +end; + +procedure TfrmTemplateEditor.mnuNodeDeleteClick(Sender: TObject); +begin + if(FCurTree = tvShared) and (sbShDelete.Visible) and (sbShDelete.Enabled) then + sbDeleteClick(sbShDelete) + else + if(FCurTree = tvPersonal) and (sbPerDelete.Visible) and (sbPerDelete.Enabled) then + sbDeleteClick(sbPerDelete); +end; + +procedure TfrmTemplateEditor.mnuNodeCopyClick(Sender: TObject); +begin + if(assigned(FCurTree)) then + FCopyNode := FCurTree.Selected + else + FCopyNode := nil; +end; + +procedure TfrmTemplateEditor.mnuNodePasteClick(Sender: TObject); +begin + if(PasteOK) then + begin + FDragNode := FCopyNode; + FDropNode := FPasteNode; + FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes); + FCopying := TRUE; + try + tvTreeDragDrop(tvShared, tvPersonal, 0, 0); + finally + FCopying := FALSE; + end; + end; + FCopyNode := nil; +end; + +function TfrmTemplateEditor.PasteOK: boolean; +var + OldCopying: boolean; + Node: TTreeNode; + +begin + Result := assigned(FCopyNode) and assigned(FPasteNode); + if(Result) then + Result := (FTreeControl[TTemplateTreeType(FPasteNode.TreeView.Tag), tcDel].Visible); + if(Result) then + begin + OldCopying := FCopying; + FCopying := TRUE; + try + Node := FPasteNode; + if(TTemplate(Node.Data).RealType = ttDoc) then + Node := Node.Parent; + Result := AllowMove(Node, FCopyNode); + finally + FCopying := OldCopying; + end; + end; +end; + +procedure TfrmTemplateEditor.mnuBPUndoClick(Sender: TObject); +begin + reBoil.Perform(EM_UNDO, 0, 0); +end; + +procedure TfrmTemplateEditor.tvTreeKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + + if(Key = VK_DELETE) then + begin + if(Sender = tvShared) then + begin + if(sbShDelete.Visible and sbShDelete.Enabled) then + sbDeleteClick(sbShDelete); + end + else + begin + if(sbPerDelete.Visible and sbPerDelete.Enabled) then + sbDeleteClick(sbPerDelete); + end; + end; + //Code Added to provide CTRL Key access for 508 compliance GRE 3/03 + if (ssCtrl in Shift) and (Key = VK_A) then + reBoil.SelectAll + else + if (ssCtrl in Shift) and (Key = VK_C) then + reBoil.CopyToClipboard + else + if (ssCtrl in Shift) and (Key = VK_E) then + mnuBPErrorCheckClick(Self) + else + if (ssCtrl in Shift) and (Key = VK_F) then + mnuBPInsertFieldClick(Self) + else + if (ssCtrl in Shift) and (Key = VK_G) then + GrammarCheckForControl(reBoil) + else + if (ssCtrl in Shift) and (Key = VK_I) then + mnuBPInsertObjectClick(Self) + else + if (ssCtrl in Shift) and (Key = VK_S) then + SpellCheckForControl(reBoil) + else + if (ssCtrl in Shift) and (Key = VK_T) then + mnuBPTryClick(Self) + else + if (ssCtrl in Shift) and (Key = VK_V) then + reBoil.SelText := Clipboard.AsText + else + if (ssCtrl in Shift) and (Key = VK_X) then + reBoil.CutToClipboard + else + if (ssCtrl in Shift) and (Key = VK_Z) then + reBoil.Perform(EM_UNDO, 0, 0); + //End of ---- Code Added to provide CTRL Key access for 508 compliance GRE 3/03 +end; + +procedure TfrmTemplateEditor.mnuEditClick(Sender: TObject); +var + tryOK, ok: boolean; + +begin + if pnlBoilerplate.Visible then + begin + ok := (not reBoil.ReadOnly); + mnuInsertObject.Enabled := ok; + mnuInsertField.Enabled := ok; + mnuPaste.Enabled := (ok and Clipboard.HasFormat(CF_TEXT)); + if(ok) then + ok := (reBoil.Lines.Count > 0); + tryOK := (reBoil.Lines.Count > 0) or ((pnlGroupBP.Visible) and (reGroupBP.Lines.Count > 0)); + mnuErrorCheck.Enabled := tryOK; + mnuTry.Enabled := tryOK; + mnuSpellCheck.Enabled := ok and SpellCheckAvailable; + mnuCheckGrammar.Enabled := ok and SpellCheckAvailable; + + mnuCopy.Enabled := (reBoil.SelLength > 0); + mnuCut.Enabled := (ok and (reBoil.SelLength > 0)); + mnuSelectAll.Enabled := (reBoil.Lines.Count > 0); + mnuUndo.Enabled := (reBoil.Perform(EM_CANUNDO, 0, 0) <> 0); + mnuGroupBoilerplate.Enabled := pnlGroupBP.Visible; + end + else + begin + mnuInsertObject.Enabled := FALSE; + mnuInsertField.Enabled := FALSE; + mnuPaste.Enabled := FALSE; + mnuErrorCheck.Enabled := FALSE; + mnuTry.Enabled := FALSE; + mnuSpellCheck.Enabled := FALSE; + mnuCheckGrammar.Enabled := FALSE; + mnuCopy.Enabled := FALSE; + mnuCut.Enabled := FALSE; + mnuSelectAll.Enabled := FALSE; + mnuUndo.Enabled := FALSE; + mnuGroupBoilerplate.Enabled := FALSE; + end; +end; + +procedure TfrmTemplateEditor.mnuGroupBoilerplateClick(Sender: TObject); +begin + mnuGroupCopy.Enabled := (pnlGroupBP.Visible and (reGroupBP.SelLength > 0)); + mnuGroupSelectAll.Enabled := (pnlGroupBP.Visible and (reGroupBP.Lines.Count > 0)); +end; + +procedure TfrmTemplateEditor.cbShFindOptionClick(Sender: TObject); +begin + SetFindNext(tvShared, FALSE); + if(pnlShSearch.Visible) then edtShSearch.SetFocus; +end; + +procedure TfrmTemplateEditor.cbPerFindOptionClick(Sender: TObject); +begin + SetFindNext(tvPersonal, FALSE); + if(pnlPerSearch.Visible) then edtPerSearch.SetFocus; +end; + +procedure TfrmTemplateEditor.mnuTemplateClick(Sender: TObject); +var + Tree: TTreeView; + +begin + FFromMainMenu := TRUE; + Tree := FCurTree; + if(assigned(Tree) and assigned(Tree.Selected)) then + begin + if(Tree = tvShared) then + mnuTDelete.Enabled := ((sbShDelete.Visible) and (sbShDelete.Enabled)) + else + mnuTDelete.Enabled := ((sbPerDelete.Visible) and (sbPerDelete.Enabled)); + if(assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then + begin + mnuTCopy.Enabled := (TTemplate(Tree.Selected.Data).RealType in [ttDoc, ttGroup, ttClass]); + mnuSort.Enabled := (TTemplate(Tree.Selected.Data).RealType in AllTemplateFolderTypes) and + (Tree.Selected.HasChildren) and + (Tree.Selected.GetFirstChild.GetNextSibling <> nil); + end + else + begin + mnuTCopy.Enabled := FALSE; + mnuSort.Enabled := FALSE; + end; + FPasteNode := Tree.Selected; + mnuTPaste.Enabled := PasteOK; + end + else + begin + mnuTCopy.Enabled := FALSE; + mnuTPaste.Enabled := FALSE; + mnuTDelete.Enabled := FALSE; + mnuSort.Enabled := FALSE; + end; + mnuNewTemplate.Enabled := btnNew.Enabled; + mnuAutoGen.Enabled := btnNew.Enabled; + mnuFindShared.Checked := FFindShOn; + mnuFindPersonal.Checked := FFindPerOn; + mnuShCollapse.Enabled := dmodShared.NeedsCollapsing(tvShared); + mnuPerCollapse.Enabled := dmodShared.NeedsCollapsing(tvPersonal); +end; + +procedure TfrmTemplateEditor.mnuFindSharedClick(Sender: TObject); +begin + FMainMenuTree := tvShared; + mnuFindTemplatesClick(tvShared); +end; + +procedure TfrmTemplateEditor.mnuFindPersonalClick(Sender: TObject); +begin + FMainMenuTree := tvPersonal; + mnuFindTemplatesClick(tvPersonal); +end; + +procedure TfrmTemplateEditor.mnuShCollapseClick(Sender: TObject); +begin + FMainMenuTree := tvShared; + mnuCollapseTreeClick(tvShared); +end; + +procedure TfrmTemplateEditor.mnuPerCollapseClick(Sender: TObject); +begin + FMainMenuTree := tvPersonal; + mnuCollapseTreeClick(tvPersonal); +end; + +procedure TfrmTemplateEditor.pnlShSearchResize(Sender: TObject); +begin + if((cbShMatchCase.Width + cbShWholeWords.Width) > pnlShSearch.Width) then + cbShWholeWords.Left := cbShMatchCase.Width + else + cbShWholeWords.Left := pnlShSearch.Width - cbShWholeWords.Width; +end; + +procedure TfrmTemplateEditor.pnlPerSearchResize(Sender: TObject); +begin + if((cbPerMatchCase.Width + cbPerWholeWords.Width) > pnlPerSearch.Width) then + cbPerWholeWords.Left := cbPerMatchCase.Width + else + cbPerWholeWords.Left := pnlPerSearch.Width - cbPerWholeWords.Width; +end; + +procedure TfrmTemplateEditor.pnlPropertiesResize(Sender: TObject); +begin + btnNew.Width := pnlProperties.Width; +end; + +procedure TfrmTemplateEditor.mbMainResize(Sender: TObject); +begin + pnlMenu.Width := mbMain.Width + 3; +end; + +procedure TfrmTemplateEditor.mnuBPCheckGrammarClick(Sender: TObject); +begin + GrammarCheckForControl(reBoil); +end; + +procedure TfrmTemplateEditor.mnuSortClick(Sender: TObject); +var + Tree: TTreeView; + +begin + Tree := FCurTree; + if(assigned(Tree) and assigned(Tree.Selected) and Tree.Selected.HasChildren) then + begin + TTemplate(Tree.Selected.Data).SortChildren; + Resync([TTemplate(Tree.Selected.Data)]); + btnApply.Enabled := TRUE; + end; +end; + +procedure TfrmTemplateEditor.pnlBoilerplateCanResize(Sender: TObject; + var NewWidth, NewHeight: Integer; var Resize: Boolean); +begin + if(NewHeight < 40) then Resize := FALSE; +end; + +function TfrmTemplateEditor.AutoDel(Template: TTemplate): boolean; +begin + if(assigned(Template)) then + Result := (((Template.ID = '0') or (Template.ID = '')) and + (Template.PrintName = NewTemplateName) and + (Template.Boilerplate = '')) + else + Result := FALSE; +end; + +procedure TfrmTemplateEditor.mnuBPTryClick(Sender: TObject); +var + R: TRect; + Move: boolean; + tmpl: TTemplate; + txt: String; + +begin + mnuBPErrorCheckClick(nil); + if(FBPOK) or (reBoil.Lines.Count = 0) then + begin + Move := assigned(frmTemplateView); + if(Move) then + begin + R := frmTemplateView.BoundsRect; + frmTemplateView.Free; + frmTemplateView := nil; + end; + tmpl := TTemplate(FCurTree.Selected.Data); + tmpl.TemplatePreviewMode := TRUE; // Prevents "Are you sure?" dialog when canceling + txt := tmpl.Text; + if(not tmpl.DialogAborted) then + ShowTemplateData(Self, tmpl.PrintName ,txt); + if(Move) then + frmTemplateView.BoundsRect := R; + tmpl.TemplatePreviewMode := FALSE; + end; +end; + +procedure TfrmTemplateEditor.mnuAutoGenClick(Sender: TObject); +var + AName, AText: string; + +begin + dmodShared.LoadTIUObjects; + UpdatePersonalObjects; + GetAutoGenText(AName, AText, FPersonalObjects); + if(AName <> '') and (AText <> '') then + begin + btnNewClick(Self); + TTemplate(FBtnNewNode.Data).PrintName := AName; + TTemplate(FBtnNewNode.Data).Boilerplate := AText; + ShowInfo(FBtnNewNode); + edtNameOldChange(Self); + end; +end; + +procedure TfrmTemplateEditor.reNotesChange(Sender: TObject); +var + Template: TTemplate; + DoRefresh: boolean; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + begin + if CanClone(FCurTree.Selected) then + begin + DoRefresh := Clone(FCurTree.Selected); + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + Template.Description := reNotes.Lines.Text; + UpdateApply(Template); + if(DoRefresh) then + begin + tvShared.Invalidate; + tvPersonal.Invalidate; + end; + end; + end; + btnApply.Enabled := TRUE; +// reNotes.Lines.Text := Template.Description; + end; +end; + +procedure TfrmTemplateEditor.mnuNotesUndoClick(Sender: TObject); +begin + reNotes.Perform(EM_UNDO, 0, 0); +end; + +procedure TfrmTemplateEditor.mnuNotesCutClick(Sender: TObject); +begin + reNotes.CutToClipboard; +end; + +procedure TfrmTemplateEditor.mnuNotesCopyClick(Sender: TObject); +begin + reNotes.CopyToClipboard; +end; + +procedure TfrmTemplateEditor.mnuNotesPasteClick(Sender: TObject); +begin + reNotes.SelText := Clipboard.AsText; +end; + +procedure TfrmTemplateEditor.mnuNotesSelectAllClick(Sender: TObject); +begin + reNotes.SelectAll; +end; + +procedure TfrmTemplateEditor.mnuNotesGrammarClick(Sender: TObject); +begin + GrammarCheckForControl(reNotes); +end; + +procedure TfrmTemplateEditor.mnuNotesSpellingClick(Sender: TObject); +begin + SpellCheckForControl(reNotes); +end; + +procedure TfrmTemplateEditor.popNotesPopup(Sender: TObject); +var + ok: boolean; + +begin + ok := not reNotes.ReadOnly; + mnuNotesPaste.Enabled := (ok and Clipboard.HasFormat(CF_TEXT)); + if(ok) then + ok := (reNotes.Lines.Count > 0); + mnuNotesSpelling.Enabled := ok and SpellCheckAvailable; + mnuNotesGrammar.Enabled := ok and SpellCheckAvailable; + mnuNotesCopy.Enabled := (reNotes.SelLength > 0); + mnuNotesCut.Enabled := (ok and (reNotes.SelLength > 0)); + mnuNotesSelectAll.Enabled := (reNotes.Lines.Count > 0); + mnuNotesUndo.Enabled := (reNotes.Perform(EM_CANUNDO, 0, 0) <> 0); +end; + +procedure TfrmTemplateEditor.cbNotesClick(Sender: TObject); +begin + pnlNotes.Visible := cbNotes.Checked; + splNotes.Visible := cbNotes.Checked; + splNotes.Top := pnlNotes.Top-3; + pnlBoilerplateResize(Self); +end; + +procedure TfrmTemplateEditor.cbDisplayOnlyClick(Sender: TObject); +begin + cbClick(TCheckBox(Sender), BPDisplayOnlyFld); +end; + +procedure TfrmTemplateEditor.cbFirstLineClick(Sender: TObject); +begin + cbClick(TCheckBox(Sender), BPFirstLineFld); +end; + +procedure TfrmTemplateEditor.cbOneItemOnlyClick(Sender: TObject); +begin + cbClick(TCheckBox(Sender), BPOneItemOnlyFld); +end; + +procedure TfrmTemplateEditor.cbHideDlgItemsClick(Sender: TObject); +begin + cbClick(TCheckBox(Sender), BPHideDlgItemsFld); +end; + +procedure TfrmTemplateEditor.cbHideItemsClick(Sender: TObject); +begin + cbClick(TCheckBox(Sender), BPHideItemsFld); +end; + +procedure TfrmTemplateEditor.cbClick(Sender: TCheckBox; Index: integer); +var + Template: TTemplate; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + begin + if CanClone(FCurTree.Selected) then + begin + Clone(FCurTree.Selected); + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + case Index of + BPDisplayOnlyFld: Template.DisplayOnly := Sender.Checked; + BPFirstLineFld: Template.FirstLine := Sender.Checked; + BPOneItemOnlyFld: Template.OneItemOnly := Sender.Checked; + BPHideDlgItemsFld: Template.HideDlgItems := Sender.Checked; + BPHideItemsFld: Template.HideItems := Sender.Checked; + BPIndentFld: Template.IndentItems := Sender.Checked; + BPLockFld: Template.Lock := Sender.Checked; + end; + UpdateApply(Template); + end; + end; + end; +end; + +procedure TfrmTemplateEditor.cbIndentClick(Sender: TObject); +begin + cbClick(TCheckBox(Sender), BPIndentFld); +end; + +procedure TfrmTemplateEditor.mnuToolsClick(Sender: TObject); +begin + mnuEditTemplateFields.Enabled := CanEditTemplateFields; + mnuImportTemplate.Enabled := btnNew.Enabled; + mnuExportTemplate.Enabled := (assigned(FCurTree) and assigned(FCurTree.Selected) and + assigned(FCurTree.Selected.Data)); +end; + +procedure TfrmTemplateEditor.mnuEditTemplateFieldsClick(Sender: TObject); +begin + if assigned(frmTemplateObjects) then + frmTemplateObjects.Hide; + if assigned(frmTemplateFields) then + frmTemplateFields.Hide; + if EditDialogFields and assigned(frmTemplateFields) then + FreeAndNil(frmTemplateFields); +end; + +procedure TfrmTemplateEditor.mnuBPInsertFieldClick(Sender: TObject); +begin + if(not assigned(frmTemplateFields)) then + begin + frmTemplateFields := TfrmTemplateFields.Create(Self); + frmTemplateFields.Font := Font; + frmTemplateFields.re := reBoil; + frmTemplateFields.AutoLongLines := AutoLongLines; + end; + frmTemplateFields.Show; +end; + +procedure TfrmTemplateEditor.UpdateInsertsDialogs; +begin + if assigned(frmTemplateObjects) then + frmTemplateObjects.UpdateStatus; + if assigned(frmTemplateFields) then + frmTemplateFields.UpdateStatus; +end; + +procedure TfrmTemplateEditor.mnuExportTemplateClick(Sender: TObject); +var + Tmpl, Flds: TStringList; + i: integer; + XMLDoc: IXMLDOMDocument; + err: boolean; + +begin + err := FALSE; + if(assigned(FCurTree) and assigned(FCurTree.Selected) and assigned(FCurTree.Selected.Data)) then + begin + dlgExport.FileName := ValidFileName(TTemplate(FCurTree.Selected.Data).PrintName); + if dlgExport.Execute then + begin + Tmpl := TStringList.Create; + try + Flds := TStringList.Create; + try + Tmpl.Add('<'+XMLHeader+'>'); + if TTemplate(FCurTree.Selected.Data).CanExportXML(Tmpl, Flds, 2) then + begin + if (Flds.Count > 0) then begin + ExpandEmbeddedFields(Flds); + Flds.Assign(ExportTemplateFields(Flds)); + for i := 0 to Flds.Count-1 do + Flds[i] := ' ' + Flds[i]; + Tmpl.AddStrings(Flds); + end; {if} + Tmpl.Add(''); + try + XMLDoc := CoDOMDocument.Create; + try + XMLDoc.preserveWhiteSpace := TRUE; + XMLDoc.LoadXML(Tmpl.Text); + XMLDoc.Save(dlgExport.FileName); + finally + XMLDoc := nil; + end; + except + InfoBox(Format(NoIE5, ['Export']), NoIE5Header, MB_OK); + err := TRUE; + end; + if not err then + InfoBox('Template ' + TTemplate(FCurTree.Selected.Data).PrintName + + ' Exported.', 'Template Exported', MB_OK); + end; + finally + Flds.Free; + end; + finally + Tmpl.Free; + end; + end; + end; +end; + +procedure TfrmTemplateEditor.mnuImportTemplateClick(Sender: TObject); +const + Filter1 = 'Template Files|*.txml'; + WordFilter = '|Word Documents|*.doc;*.dot'; + Filter2 = '|XML Files|*.xml|All Files|*.*'; + +var + XMLDoc: IXMLDOMDocument; + RootElement: IXMLDOMElement; + ImportedTemplate: TTemplate; + AppData, Flds, ResultSet: TStringList; + tmp,j,p3: string; + err, ok, changes, xmlerr: boolean; + i: integer; + choice: word; + + procedure ClearFields; + begin + Flds.Text := ''; + ResultSet.Text := ''; + end; + +begin + tmp := Filter1; + err := FALSE; + if WordImportActive then + tmp := tmp + WordFilter; + tmp := tmp + Filter2; + dlgImport.Filter := tmp; + if btnNew.Enabled and dlgImport.Execute then + begin + tmp := ExtractFileExt(dlgImport.FileName); + if(WordImportActive and ((CompareText(tmp,'.doc') = 0) or + (CompareText(tmp,'.dot') = 0))) then + AppData := TStringList.Create + else + AppData := nil; + try + try + XMLDoc := CoDOMDocument.Create; + except + InfoBox(Format(NoIE5, ['Import']), NoIE5Header, MB_OK); + exit; + end; + try + if assigned(AppData) then + begin + try + ok := GetXMLFromWord(dlgImport.FileName, AppData); + except + ok := FALSE; + err := TRUE; + end; + end + else + ok := TRUE; + if ok and assigned(XMLDoc) then + begin + XMLDoc.preserveWhiteSpace := TRUE; + if assigned(AppData) then + XMLDoc.LoadXML(AppData.Text) + else + XMLDoc.Load(dlgImport.FileName); + RootElement := XMLDoc.DocumentElement; + if not assigned(RootElement) then + XMLImportError(0); + try + if(RootElement.tagName <> XMLHeader)then + XMLImportError(0) + else + begin + ImportedTemplate := nil; + FXMLTemplateElement := FindXMLElement(RootElement, XMLTemplateTag); + if assigned(FXMLTemplateElement) then + begin + FXMLFieldElement := FindXMLElement(RootElement, XMLTemplateFieldsTag); + if(assigned(FXMLFieldElement)) then + begin + Flds := TStringList.Create; + ResultSet := TStringList.Create; + try + Flds.Text := FXMLFieldElement.Get_XML; + choice := IDOK; + changes := FALSE; + Application.ProcessMessages; + if not BuildTemplateFields(Flds) then //Calls RPC to transfer all field XML + choice := IDCANCEL; //for processing + Flds.Text := ''; + Application.ProcessMessages; + if choice = IDOK then + CheckTemplateFields(Flds); + if Flds.Count > 0 then + begin + for i := 1 to Flds.Count do + begin + j := piece(Flds[i-1],U,2); + if (j = '0') or (j = '2') then + begin + p3 := piece(Flds[i-1],U,3); + if p3 = 'XML FORMAT ERROR' then + choice := IDCANCEL; + changes := TRUE; + if j = '2' then begin + j := Flds[i-1]; + SetPiece(j,U,2,'1'); + Flds[i-1] := j + end; + end; + end; + end + else + choice := IDCANCEL; + if choice <> IDOK then + InfoBox(iMessage2+iMessage3, 'Error', MB_OK or MB_ICONERROR) + else + if (not CanEditTemplateFields) AND + changes {(there is at least one new field)} then + begin + choice := InfoBox(iMessage, 'Warning', MB_OKCANCEL or MB_ICONWARNING); + Flds.Text := ''; + end; + if choice <> IDCANCEL then + begin + FImportingFromXML := TRUE; + try + btnNewClick(Self); + ImportedTemplate := TTemplate(FBtnNewNode.Data); + finally + FImportingFromXML := FALSE; + end; {try} + Application.ProcessMessages; + if assigned(ImportedTemplate) and (Flds.Count > 0) then + if not ImportLoadedFields(ResultSet) then begin + InfoBox(iMessage2+iMessage3, 'Error', MB_OK or MB_ICONERROR); + ClearFields; + choice := IDCANCEL; + end;//if + if Flds.Count = 0 then + choice := IDCANCEL; + end {if choice <> mrCancel} + else + ClearFields; + + xmlerr := FALSE; + if (Flds.Count > 0) and + (ResultSet.Count > 0) and + (Flds.Count = ResultSet.Count) then + for i := 0 to Flds.Count-1 do begin + if piece(ResultSet[i],U,2) = '0' then begin + j := piece(Flds[i],U,1) + U + '0' + U + piece(ResultSet[i],U,3); + Flds[i] := j; + end + end + else + xmlerr := TRUE; + + if xmlerr and (choice <> IDCANCEL) then begin + InfoBox(iMessage2, 'Warning', MB_OK or MB_ICONWARNING); + ClearFields; + end; + + i := 0; + while (i < Flds.Count) do begin + if Piece(Flds[i], U, 2) <> '0' then + Flds.Delete(i) + else + inc(i); + end;//while + if(Flds.Count > 0) then + begin + if assigned(frmTemplateFields) then + FreeAndNil(frmTemplateFields); + ImportedTemplate.UpdateImportedFieldNames(Flds); + if not assigned(AppData) then + begin + for i := 0 to Flds.Count-1 do + Flds[i] := ' Field "' + Piece(Flds[i],U,1) + '" has been renamed to "'+ + Piece(Flds[i],U,3) + '"'; + if Flds.Count = 1 then + tmp := 'A template field has' + else + tmp := IntToStr(Flds.Count) + ' template fields have'; + Flds.Insert(0,tmp + ' been imported with the same name as'); + Flds.Insert(1,'existing template fields, but with different field definitions.'); + Flds.Insert(2,'These imported template fields have been renamed as follows:'); + Flds.Insert(3,''); + InfoBox(Flds.Text, 'Information', MB_OK or MB_ICONINFORMATION); + end; + end; + finally + Flds.Free; + ResultSet.Free; + end; + end + else {There are no fields to consider...} + begin + FImportingFromXML := TRUE; + try + btnNewClick(Self); + ImportedTemplate := TTemplate(FBtnNewNode.Data); + finally + FImportingFromXML := FALSE; + end; {try} + end; + end; + if assigned(ImportedTemplate) then + ShowInfo(FBtnNewNode); + end; + finally + RootElement := nil; + end; + end; + finally + XMLDoc := nil; + end; + finally + if assigned(AppData) then + begin + AppData.Free; + if err then + InfoBox('An error occured while Importing Word Document. Make sure Word is closed and try again.','Import Error', MB_OK); + end; + end; + end; +end; + +procedure TfrmTemplateEditor.cbxTypeDrawItem(Control: TWinControl; + Index: Integer; Rect: TRect; State: TOwnerDrawState); +var + ImgIdx: integer; + +begin + cbxType.Canvas.FillRect(Rect); + case IdxForced[FForceContainer, Index] of + tiTemplate: ImgIdx := 4; + tiFolder: ImgIdx := 3; + tiGroup: ImgIdx := 5; + tiDialog: ImgIdx := 23; + tiRemDlg: ImgIdx := 27; + tiCOMObj: ImgIdx := 28; + else + ImgIdx := ord(tiNone); + end; + if ImgIdx >= 0 then + dmodShared.imgTemplates.Draw(cbxType.Canvas, Rect.Left+1, Rect.Top+1, ImgIdx); + if Index >= 0 then + cbxType.Canvas.TextOut(Rect.Left+21, Rect.Top+2, cbxType.Items[Index]); +end; + +procedure TfrmTemplateEditor.cbxTypeChange(Sender: TObject); +var + i,tg: integer; + Template: TTemplate; + ttyp: TTemplateType; + Node: TTreeNode; + idx: TTypeIndex; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then + begin + tg := cbxType.ItemIndex; + if tg >= 0 then + begin + if CanClone(FCurTree.Selected) then + begin + idx := IdxForced[FForceContainer, tg]; + if(idx = tiRemDlg) and (not (GetLinkType(FCurTree.Selected) in [ltNone, ltTitle])) then + begin + FUpdating := TRUE; + try + cbxType.ItemIndex := ord(tiTemplate); + finally + FUpdating := FALSE; + end; + ShowMessage('Can not assign a Reminder Dialog to a Reason for Request'); + end + else + begin + Clone(FCurTree.Selected); + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + ttyp := TypeTag[idx]; + if(not FForceContainer) or (not (idx in [tiTemplate, tiRemDlg])) then + begin + if(ttyp = ttDialog) then + begin + Template.Dialog := TRUE; + ttyp := ttGroup; + end + else + Template.Dialog := FALSE; + Template.RealType := ttyp; + if(Template.RealType = ttDoc) and (idx = tiRemDlg) then + Template.IsReminderDialog := TRUE + else + Template.IsReminderDialog := FALSE; + if(Template.RealType = ttDoc) and (idx = tiCOMObj) then + Template.IsCOMObject := TRUE + else + Template.IsCOMObject := FALSE; + UpdateApply(Template); + end; + for i := 0 to Template.Nodes.Count-1 do + begin + Node := TTreeNode(Template.Nodes.Objects[i]); + Node.ImageIndex := dmodShared.ImgIdx(Node); + Node.SelectedIndex := dmodShared.ImgIdx(Node); + end; + tvShared.Invalidate; + tvPersonal.Invalidate; + Node := FCurTree.Selected; + tvTreeChange(TTreeView(Node.TreeView), Node); + end; + end; + end; + end; + end; +end; + +procedure TfrmTemplateEditor.cbxRemDlgsChange(Sender: TObject); +var + Template: TTemplate; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and + FCanDoReminders) then + begin + if CanClone(FCurTree.Selected) then + begin + Clone(FCurTree.Selected); + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + if cbxRemDlgs.ItemIndex < 0 then + Template.ReminderDialog := '' + else + Template.ReminderDialog := cbxRemDlgs.Items[cbxRemDlgs.ItemIndex]; + UpdateApply(Template); + end; + end; + end; +end; + +procedure TfrmTemplateEditor.mnuTemplateIconLegendClick(Sender: TObject); +begin + ShowIconLegend(ilTemplates, TRUE); +end; + +procedure TfrmTemplateEditor.cbLongLinesClick(Sender: TObject); +begin + pnlBoilerplateResize(Self); + pnlBoilerplateResize(Self); // Second Call is Needed! +end; + +procedure TfrmTemplateEditor.AutoLongLines(Sender: TObject); +begin + cbLongLines.Checked := TRUE; +end; + +procedure TfrmTemplateEditor.UpdatePersonalObjects; +var + i: integer; + +begin + if not assigned(FPersonalObjects) then + begin + FPersonalObjects := TStringList.Create; + GetAllowedPersonalObjects; + for i := 0 to RPCBrokerV.Results.Count-1 do + FPersonalObjects.Add(Piece(RPCBrokerV.Results[i],U,1)); + FPersonalObjects.Sorted := TRUE; + end; +end; + +(*function TfrmTemplateEditor.ModifyAllowed(const Node: TTreeNode): boolean; +var + tmpl: TTemplate; + + function GetFirstPersonalNode(Node: TTreeNode): TTreeNode; + begin + Result := Node; + if assigned(Node.Parent) and (TTemplate(Node.Data).PersonalOwner <> User.DUZ) then + Result := GetFirstPersonalNode(Node.Parent); + end; + +begin + if(assigned(Node)) then + begin + if (TTreeView(Node.TreeView) = tvPersonal) then + Result := TTemplate(GetFirstPersonalNode(Node).Data).CanModify + else + Result := TRUE; + end + else + Result := FALSE; + if Result then + begin + tmpl := TTemplate(Node.Data); + if (tmpl.PersonalOwner = 0) or (tmpl.PersonalOwner = User.DUZ) then + Result := tmpl.CanModify; + end; +end; +*) + +{ Returns TRUE if Cloning is not needed or if Cloning is needed and + the top personal Node in the tree is locked. } +function TfrmTemplateEditor.CanClone(const Node: TTreeNode): boolean; +var + Template: TTemplate; + + function GetFirstPersonalNode(Node: TTreeNode): TTreeNode; + begin + Result := Node; + if assigned(Node.Parent) and (TTemplate(Node.Data).PersonalOwner <> User.DUZ) then + Result := GetFirstPersonalNode(Node.Parent); + end; + +begin + if(assigned(Node)) and assigned(Node.Data) then + begin + if (TTreeView(Node.TreeView) = tvPersonal) then + begin + Template := TTemplate(Node.Data); + if Template.IsCOMObject or (Template.FileLink <> '') then + Result := FALSE + else + Result := TTemplate(GetFirstPersonalNode(Node).Data).CanModify + end + else + Result := TRUE; + end + else + Result := FALSE; +end; + +procedure TfrmTemplateEditor.UpdateApply(Template: TTemplate); +begin + if(not btnApply.Enabled) then + btnApply.Enabled := Template.Changed; +end; + +procedure TfrmTemplateEditor.TemplateLocked(Sender: TObject); +begin + Resync([TTemplate(Sender)]); + ShowMessage(Format(TemplateLockedText, [TTemplate(Sender).PrintName])); +end; + +procedure TfrmTemplateEditor.cbLockClick(Sender: TObject); +begin + cbClick(TCheckBox(Sender), BPLockFLD); +end; + +procedure TfrmTemplateEditor.mnuRefreshClick(Sender: TObject); +begin + if btnApply.Enabled then + begin + if InfoBox('All changes must be saved before you can Refresh. Save Changes?', + 'Confirmation', MB_YESNO or MB_ICONQUESTION) <> IDYES then + exit; + end; + btnApplyClick(Sender); + if BtnApply.Enabled then + InfoBox('Save not completed - unable to refresh.', 'Error', MB_OK or MB_ICONERROR) + else + RefreshData; +end; + +procedure TfrmTemplateEditor.RefreshData; +var + exp1, exp2, s1, s2, t1, t2: string; + focus: TWinControl; + +begin + focus := FCurTree; + exp1 := tvShared.GetExpandedIDStr(1, ';'); + exp2 := tvPersonal.GetExpandedIDStr(1, ';'); + s1 := tvShared.GetNodeID(TORTreeNode(tvShared.Selected),1,';'); + s2 := tvPersonal.GetNodeID(TORTreeNode(tvPersonal.Selected),1,';'); + t1 := tvShared.GetNodeID(TORTreeNode(tvShared.TopItem),1,';'); + t2 := tvPersonal.GetNodeID(TORTreeNode(tvPersonal.TopItem),1,';'); + tvPersonal.Items.BeginUpdate; + try + tvShared.Items.BeginUpdate; + try + ReleaseTemplates; + tvPersonal.Items.Clear; + tvShared.Items.Clear; + InitTrees; + tvShared.SetExpandedIDStr(1, ';', exp1); + tvShared.TopItem := tvShared.FindPieceNode(t1,1,';'); + tvShared.Selected := tvShared.FindPieceNode(s1,1,';'); + tvPersonal.SetExpandedIDStr(1, ';', exp2); + tvPersonal.TopItem := tvPersonal.FindPieceNode(t2,1,';'); + tvPersonal.Selected := tvPersonal.FindPieceNode(s2,1,';'); + finally + tvShared.Items.EndUpdate; + end; + finally + tvPersonal.Items.EndUpdate; + end; + ActiveControl := focus; +end; + +procedure TfrmTemplateEditor.InitTrees; +begin + LoadTemplateData; + if(not assigned(RootTemplate)) then + SaveTemplate(AddTemplate('0^R^A^Shared Templates'),-1); + if(not assigned(MyTemplate)) then + AddTemplate('0^P^A^My Templates^^^'+IntToStr(User.DUZ)); + dmodShared.AddTemplateNode(tvPersonal, FPersonalEmptyNodeCount, MyTemplate); + dmodShared.AddTemplateNode(tvShared, FSharedEmptyNodeCount, RootTemplate); + if (UserTemplateAccessLevel = taEditor) then + begin + if CanEditLinkType(ttTitles) then + dmodShared.AddTemplateNode(tvShared, FSharedEmptyNodeCount, TitlesTemplate); + if CanEditLinkType(ttConsults) then + dmodShared.AddTemplateNode(tvShared, FSharedEmptyNodeCount, ConsultsTemplate); + if CanEditLinkType(ttProcedures) then + dmodShared.AddTemplateNode(tvShared, FSharedEmptyNodeCount, ProceduresTemplate); + end; +end; + +procedure TfrmTemplateEditor.reResizeRequest(Sender: TObject; + Rect: TRect); +var + R: TRect; + +begin + R := TRichEdit(Sender).ClientRect; + if (FLastRect.Right <> R.Right) or + (FLastRect.Bottom <> R.Bottom) or + (FLastRect.Left <> R.Left) or + (FLastRect.Top <> R.Top) then + begin + FLastRect := R; + pnlBoilerplateResize(Self); + end; +end; + +procedure TfrmTemplateEditor.reBoilSelectionChange(Sender: TObject); +begin + UpdateXY(reBoil, lblBoilCol, lblBoilRow); +end; + +procedure TfrmTemplateEditor.reGroupBPSelectionChange(Sender: TObject); +begin + UpdateXY(reGroupBP, lblGroupCol, lblGroupRow); +end; + +procedure TfrmTemplateEditor.UpdateXY(re: TRichEdit; lblX, lblY: TLabel); +var + p: TPoint; + +begin + p := re.CaretPos; + lblY.Caption := 'Line: ' + inttostr(p.y + 1); + lblX.Caption := 'Column: ' + inttostr(p.x + 1); +end; + +procedure TfrmTemplateEditor.cbxCOMObjChange(Sender: TObject); +var + Template: TTemplate; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and + FCanDoCOMObjects and (FCurTree = tvShared)) then + begin + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + if cbxCOMObj.ItemIndex < 0 then + Template.COMObject := 0 + else + Template.COMObject := cbxCOMObj.ItemID; + UpdateApply(Template); + end; + end; +end; + +procedure TfrmTemplateEditor.edtCOMParamChange(Sender: TObject); +var + Template: TTemplate; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and + FCanDoCOMObjects and (FCurTree = tvShared)) then + begin + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + Template.COMParam := edtCOMParam.Text; + UpdateApply(Template); + end; + end; +end; + +function TfrmTemplateEditor.GetLinkType(const ANode: TTreeNode): TTemplateLinkType; +var + Node: TTreeNode; + +begin + Result := ltNone; + if assigned(ANode) then + begin + if(not assigned(ANode.Data)) or (TTemplate(ANode.Data).RealType <> ttClass) then + begin + Node := ANode.Parent; + repeat + if assigned(Node) and assigned(Node.Data) then + begin + if (TTemplate(Node.Data).FileLink <> '') then + Node := nil + else + if (TTemplate(Node.Data).RealType in AllTemplateLinkTypes) then + begin + case TTemplate(Node.Data).RealType of + ttTitles: Result := ltTitle; + ttConsults: Result := ltConsult; + ttProcedures: Result := ltProcedure; + end; + end + else + Node := Node.Parent; + end + else + Node := nil; + until(Result <> ltNone) or (not assigned(Node)); + end; + end; +end; + +procedure TfrmTemplateEditor.cbxLinkNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +var + tmpSL: TStringList; + i: integer; + tmp: string; + +begin + tmpSL := TStringList.Create; + try + case TTemplateLinkType(pnlLink.Tag) of + ltTitle: tmpSL.Assign(SubSetOfAllTitles(StartFrom, Direction)); +// ltConsult: + ltProcedure: + begin + tmpSL.Assign(SubSetOfProcedures(StartFrom, Direction)); + for i := 0 to tmpSL.Count-1 do + begin + tmp := tmpSL[i]; + setpiece(tmp,U,1,piece(piece(tmp,U,4),';',1)); + tmpSL[i] := tmp; + end; + end; + end; + cbxLink.ForDataUse(tmpSL); + finally + tmpSL.Free; + end; +end; + +procedure TfrmTemplateEditor.cbxLinkChange(Sender: TObject); +var + Template,LinkTemplate: TTemplate; + +begin + if((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and + (FCurTree = tvShared)) then + begin + Template := TTemplate(FCurTree.Selected.Data); + if assigned(Template) and Template.CanModify then + begin + if cbxLink.ItemIEN > 0 then + begin + LinkTemplate := GetLinkedTemplate(cbxLink.ItemID, TTemplateLinkType(pnlLink.tag)); + if (assigned(LinkTemplate) and (LinkTemplate <> Template)) then + begin + ShowMessage(GetLinkName(cbxLink.ItemID, TTemplateLinkType(pnlLink.tag)) + + ' is already assigned to another template.'); + cbxLink.ItemIndex := -1; + end; + Template.FileLink := ConvertFileLink(cbxLink.ItemID, TTemplateLinkType(pnlLink.tag)); + if Template.LinkName <> '' then + edtName.Text := copy(Template.LinkName,1,edtName.MaxLength); + end + else + Template.FileLink := ''; + UpdateApply(Template); + end; + end; +end; + +procedure TfrmTemplateEditor.cbxLinkSynonymCheck(Sender: TObject; + const Text: String; var IsSynonym: Boolean); +var + LinkTemplate: TTemplate; + var IEN: string; + +begin + IsSynonym := FALSE; + if pnlLink.Visible and assigned(FShowingTemplate) then + begin + IEN := Piece(Text,#9,30); + if IEN <> '' then + begin + LinkTemplate := GetLinkedTemplate(IEN, TTemplateLinkType(pnlLink.Tag)); + IsSynonym := (assigned(LinkTemplate) and (LinkTemplate <> FShowingTemplate)); + end + else + IsSynonym := FALSE; + end; +end; + +procedure TfrmTemplateEditor.reBoilKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if FNavigatingTab then + begin + if ssShift in Shift then + FindNextControl(Sender as TWinControl, False, True, False).SetFocus //previous control + else if ssCtrl in Shift then + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + FNavigatingTab := False; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +procedure TfrmTemplateEditor.reBoilKeyPress(Sender: TObject; + var Key: Char); +begin + if FNavigatingTab then + Key := #0; //Disable shift-tab processinend; +end; + +procedure TfrmTemplateEditor.reBoilKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + //The navigating tab controls were inadvertantently adding tab characters + //This should fix it + FNavigatingTab := (Key = VK_TAB) and ([ssShift,ssCtrl] * Shift <> []); + if FNavigatingTab then + Key := 0; +end; + +end. + diff --git a/CPRS-Chart/Templates/fTemplateFieldEditor.dfm b/CPRS-Chart/Templates/fTemplateFieldEditor.dfm new file mode 100644 index 0000000..13aca8f --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateFieldEditor.dfm @@ -0,0 +1,962 @@ +object frmTemplateFieldEditor: TfrmTemplateFieldEditor + Left = 294 + Top = 211 + Width = 640 + Height = 447 + BorderIcons = [biSystemMenu, biMaximize] + Caption = 'Template Field Editor' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnDestroy = FormDestroy + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object splLeft: TSplitter + Left = 273 + Top = 25 + Width = 3 + Height = 366 + Cursor = crHSplit + Beveled = True + end + object pnlBottom: TPanel + Left = 0 + Top = 391 + Width = 632 + Height = 29 + Align = alBottom + TabOrder = 2 + DesignSize = ( + 632 + 29) + object lblReq: TStaticText + Left = 132 + Top = 8 + Width = 134 + Height = 17 + Caption = '* Indicates a Required Field' + TabOrder = 5 + end + object btnOK: TButton + Left = 392 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight, akBottom] + Caption = 'OK' + ModalResult = 1 + TabOrder = 2 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 472 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight, akBottom] + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 3 + OnClick = btnCancelClick + end + object btnApply: TButton + Left = 552 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight, akBottom] + Caption = 'Apply' + TabOrder = 4 + OnClick = btnApplyClick + end + object btnPreview: TButton + Left = 279 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight, akBottom] + Caption = 'Preview' + Enabled = False + TabOrder = 1 + OnClick = btnPreviewClick + end + object cbHide: TCheckBox + Left = 6 + Top = 6 + Width = 115 + Height = 17 + Caption = 'Hide Inactive Fields' + Checked = True + State = cbChecked + TabOrder = 0 + OnClick = cbHideClick + end + end + object pnlObjs: TPanel + Left = 0 + Top = 25 + Width = 273 + Height = 366 + Align = alLeft + Caption = 'pnlObjs' + TabOrder = 0 + OnResize = pnlObjsResize + object lblObjs: TLabel + Left = 1 + Top = 1 + Width = 271 + Height = 13 + Align = alTop + Caption = 'Template Fields' + end + object cbxObjs: TORComboBox + Left = 1 + Top = 14 + Width = 271 + Height = 351 + Style = orcsSimple + Align = alClient + AutoSelect = True + Caption = 'Template Fields' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2,3' + HideSynonyms = True + Sorted = False + SynonymChars = '' + TabPositions = '34,45,55,65,75' + TabOrder = 0 + OnChange = cbxObjsChange + OnKeyDown = cbxObjsKeyDown + OnNeedData = cbxObjsNeedData + OnSynonymCheck = cbxObjsSynonymCheck + end + end + object pnlRight: TPanel + Left = 276 + Top = 25 + Width = 356 + Height = 366 + Align = alClient + Constraints.MinWidth = 356 + TabOrder = 1 + OnResize = FormResize + object splBottom: TSplitter + Left = 1 + Top = 278 + Width = 354 + Height = 3 + Cursor = crVSplit + Align = alBottom + Beveled = True + end + object pnlPreview: TPanel + Left = 1 + Top = 281 + Width = 354 + Height = 84 + Align = alBottom + TabOrder = 1 + OnResize = FormResize + object lblNotes: TLabel + Left = 1 + Top = 1 + Width = 352 + Height = 13 + Align = alTop + Caption = 'Notes:' + end + object reNotes: TRichEdit + Left = 1 + Top = 14 + Width = 352 + Height = 69 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PopupMenu = popText + ScrollBars = ssBoth + TabOrder = 0 + WantTabs = True + OnChange = reNotesChange + OnEnter = edtpopControlEnter + OnKeyUp = reNotesKeyUp + OnResizeRequest = reItemsResizeRequest + end + end + object pnlObjInfo: TPanel + Left = 1 + Top = 1 + Width = 354 + Height = 277 + Align = alClient + TabOrder = 0 + OnResize = FormResize + DesignSize = ( + 354 + 277) + object lblName: TLabel + Left = 4 + Top = 8 + Width = 31 + Height = 13 + Caption = 'Name:' + end + object lblS2: TLabel + Left = 4 + Top = 75 + Width = 23 + Height = 13 + Caption = 'lblS2' + end + object lblLM: TLabel + Left = 3 + Top = 194 + Width = 42 + Height = 13 + Hint = 'Text to replace template field when used in List Manager' + Anchors = [akLeft, akBottom] + Caption = 'LM Text:' + ParentShowHint = False + ShowHint = True + end + object lblS1: TLabel + Left = 4 + Top = 53 + Width = 23 + Height = 13 + Caption = 'lblS1' + end + object lblType: TLabel + Left = 4 + Top = 32 + Width = 27 + Height = 13 + Caption = 'Type:' + end + object lblTextLen: TLabel + Left = 255 + Top = 31 + Width = 45 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Text Len:' + end + object lblLength: TLabel + Left = 157 + Top = 31 + Width = 46 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Field Len:' + end + object lblS3: TLabel + Left = 4 + Top = 97 + Width = 23 + Height = 13 + Caption = 'lblS3' + end + object lblLine: TLabel + Left = 4 + Top = 152 + Width = 23 + Height = 13 + Caption = 'Line:' + end + object lblCol: TLabel + Left = 4 + Top = 168 + Width = 18 + Height = 13 + Caption = 'Col:' + end + object edtName: TCaptionEdit + Left = 50 + Top = 4 + Width = 300 + Height = 22 + Anchors = [akLeft, akTop, akRight] + CharCase = ecUpperCase + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + MaxLength = 60 + ParentFont = False + PopupMenu = popText + TabOrder = 0 + OnChange = edtNameChange + OnEnter = edtpopControlEnter + OnExit = edtNameExit + Caption = 'Name' + end + object edtLMText: TCaptionEdit + Left = 50 + Top = 189 + Width = 300 + Height = 22 + Hint = 'Text to replace template field when used in List Manager' + Anchors = [akLeft, akRight, akBottom] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + MaxLength = 70 + ParentFont = False + ParentShowHint = False + PopupMenu = popText + ShowHint = True + TabOrder = 7 + OnChange = edtLMTextChange + OnEnter = edtpopControlEnter + Caption = 'LM Text' + end + object cbxType: TORComboBox + Left = 50 + Top = 27 + Width = 102 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Type' + Color = clWindow + DropDownCount = 11 + Items.Strings = ( + '' + 'E^Edit Box' + 'C^Combo Box' + 'B^Button' + 'X^Check Boxes' + 'R^Radio Buttons' + 'D^Date' + 'N^Number' + 'H^Hyperlink' + 'W^Word Processing' + 'T^Text') + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnChange = cbxTypeChange + end + object edtTextLen: TCaptionEdit + Left = 309 + Top = 27 + Width = 26 + Height = 21 + Anchors = [akTop, akRight] + TabOrder = 4 + Text = '0' + OnChange = edtTextLenChange + Caption = 'Text Length' + end + object udTextLen: TUpDown + Left = 335 + Top = 27 + Width = 15 + Height = 21 + Anchors = [akTop, akRight] + Associate = edtTextLen + Min = 0 + Max = 240 + Position = 0 + TabOrder = 5 + Wrap = False + end + object pnlSwap: TPanel + Left = 50 + Top = 49 + Width = 300 + Height = 140 + Anchors = [akLeft, akTop, akRight, akBottom] + BevelOuter = bvNone + TabOrder = 6 + object edtDefault: TCaptionEdit + Left = 0 + Top = 0 + Width = 300 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + MaxLength = 70 + ParentFont = False + PopupMenu = popText + TabOrder = 2 + OnChange = edtDefaultChange + OnEnter = edtpopControlEnter + OnExit = ControlExit + Align = alTop + Caption = 'Default Value' + end + object pnlNum: TPanel + Left = 0 + Top = 22 + Width = 300 + Height = 22 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object lblMin: TLabel + Left = 53 + Top = 4 + Width = 20 + Height = 13 + Caption = 'Min:' + end + object lblInc: TLabel + Left = 207 + Top = 4 + Width = 50 + Height = 13 + Caption = 'Increment:' + end + object lblMaxVal: TLabel + Left = 129 + Top = 4 + Width = 23 + Height = 13 + Caption = 'Max:' + end + object udDefNum: TUpDown + Left = 34 + Top = 0 + Width = 15 + Height = 21 + Associate = edtDefNum + Min = -9999 + Max = 9999 + Position = 0 + TabOrder = 1 + Thousands = False + Wrap = False + end + object edtDefNum: TCaptionEdit + Left = 0 + Top = 0 + Width = 34 + Height = 21 + TabOrder = 0 + Text = '0' + OnChange = edtDefNumChange + Caption = 'Default Number' + end + object udMinVal: TUpDown + Left = 110 + Top = 0 + Width = 15 + Height = 21 + Associate = edtMinVal + Min = -9999 + Max = 9999 + Position = 0 + TabOrder = 3 + Thousands = False + Wrap = False + end + object edtMinVal: TCaptionEdit + Left = 76 + Top = 0 + Width = 34 + Height = 21 + TabOrder = 2 + Text = '0' + OnChange = edtMinValChange + Caption = 'Minimum' + end + object udInc: TUpDown + Left = 285 + Top = 0 + Width = 15 + Height = 21 + Associate = edtInc + Min = 1 + Max = 999 + Position = 1 + TabOrder = 7 + Wrap = False + end + object edtInc: TCaptionEdit + Left = 259 + Top = 0 + Width = 26 + Height = 21 + TabOrder = 6 + Text = '1' + OnChange = edtIncChange + Caption = 'Increment' + end + object edtMaxVal: TCaptionEdit + Left = 155 + Top = 0 + Width = 34 + Height = 21 + TabOrder = 4 + Text = '0' + OnChange = edtMaxValChange + Caption = 'Maimum' + end + object udMaxVal: TUpDown + Left = 189 + Top = 0 + Width = 15 + Height = 21 + Associate = edtMaxVal + Min = -9999 + Max = 9999 + Position = 0 + TabOrder = 5 + Thousands = False + Wrap = False + end + end + object edtURL: TCaptionEdit + Left = 0 + Top = 66 + Width = 300 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + MaxLength = 240 + ParentFont = False + PopupMenu = popText + TabOrder = 3 + OnChange = edtURLChange + OnEnter = edtpopControlEnter + Align = alTop + Caption = 'URL' + end + object reItems: TRichEdit + Left = 0 + Top = 110 + Width = 300 + Height = 30 + Align = alClient + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PopupMenu = popText + ScrollBars = ssBoth + TabOrder = 5 + WantTabs = True + OnChange = reItemsChange + OnEnter = edtpopControlEnter + OnExit = ControlExit + OnKeyUp = reNotesKeyUp + OnResizeRequest = reItemsResizeRequest + OnSelectionChange = reItemsSelectionChange + end + object cbxDefault: TORComboBox + Left = 0 + Top = 44 + Width = 300 + Height = 22 + Style = orcsDropDown + Align = alTop + AutoSelect = True + Caption = 'Default Selection' + Color = clWindow + DropDownCount = 8 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ItemHeight = 14 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + ParentFont = False + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + TabStop = True + OnChange = cbxDefaultChange + end + object pnlDate: TPanel + Left = 0 + Top = 88 + Width = 300 + Height = 22 + Align = alTop + BevelOuter = bvNone + TabOrder = 4 + DesignSize = ( + 300 + 22) + object lblDateType: TLabel + Left = 111 + Top = 4 + Width = 53 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Date Type:' + end + object edtDateDef: TCaptionEdit + Left = 0 + Top = 0 + Width = 106 + Height = 21 + Anchors = [akLeft, akTop, akRight] + MaxLength = 70 + PopupMenu = popText + TabOrder = 0 + OnChange = edtDefaultChange + OnEnter = edtpopControlEnter + Caption = 'Default Date' + end + object cbxDateType: TORComboBox + Left = 167 + Top = 0 + Width = 133 + Height = 21 + Anchors = [akTop, akRight] + Style = orcsDropDown + AutoSelect = True + Caption = 'Date Type' + Color = clWindow + DropDownCount = 8 + Items.Strings = ( + 'D^Date' + 'T^Date & Time' + 'R^Date & Required Time' + 'C^Combo Style' + 'Y^Combo Year Only' + 'M^Combo Year & Month') + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + OnChange = cbxDateTypeChange + end + end + end + object edtLen: TCaptionEdit + Left = 214 + Top = 27 + Width = 19 + Height = 21 + Anchors = [akTop, akRight] + TabOrder = 2 + Text = '1' + OnChange = edtLenChange + Caption = 'Field Length' + end + object udLen: TUpDown + Left = 233 + Top = 27 + Width = 15 + Height = 21 + Anchors = [akTop, akRight] + Associate = edtLen + Min = 1 + Max = 70 + Position = 1 + TabOrder = 3 + Wrap = False + end + object gbIndent: TGroupBox + Left = 232 + Top = 213 + Width = 118 + Height = 59 + Anchors = [akLeft, akBottom] + Caption = ' Indent ' + TabOrder = 9 + object lblIndent: TLabel + Left = 10 + Top = 14 + Width = 58 + Height = 13 + Caption = 'Indent Field:' + end + object lblPad: TLabel + Left = 10 + Top = 37 + Width = 57 + Height = 13 + Caption = 'Indent Text:' + end + object edtIndent: TCaptionEdit + Left = 72 + Top = 10 + Width = 21 + Height = 21 + TabOrder = 0 + Text = '0' + OnChange = edtIndentChange + Caption = 'Indent Field' + end + object udIndent: TUpDown + Left = 93 + Top = 10 + Width = 15 + Height = 21 + Associate = edtIndent + Min = 0 + Max = 30 + Position = 0 + TabOrder = 1 + Thousands = False + Wrap = False + end + object udPad: TUpDown + Left = 93 + Top = 33 + Width = 15 + Height = 21 + Associate = edtPad + Min = 0 + Max = 30 + Position = 0 + TabOrder = 2 + Thousands = False + Wrap = False + end + object edtPad: TCaptionEdit + Left = 72 + Top = 33 + Width = 21 + Height = 21 + TabOrder = 3 + Text = '0' + OnChange = edtPadChange + Caption = 'Indent Text' + end + end + object gbMisc: TGroupBox + Left = 10 + Top = 213 + Width = 207 + Height = 59 + Anchors = [akLeft, akBottom] + Caption = ' Miscellaneous ' + TabOrder = 8 + object cbActive: TCheckBox + Left = 6 + Top = 14 + Width = 67 + Height = 17 + BiDiMode = bdLeftToRight + Caption = 'Inactive' + ParentBiDiMode = False + TabOrder = 0 + OnClick = cbActiveClick + end + object cbRequired: TCheckBox + Left = 6 + Top = 37 + Width = 67 + Height = 17 + Caption = 'Required' + TabOrder = 1 + OnClick = cbRequiredClick + end + object cbSepLines: TCheckBox + Left = 83 + Top = 14 + Width = 99 + Height = 17 + Caption = 'Separate Lines' + TabOrder = 2 + OnClick = cbSepLinesClick + end + object cbExclude: TCheckBox + Left = 83 + Top = 37 + Width = 118 + Height = 17 + Caption = 'Exclude From Note' + TabOrder = 3 + OnClick = cbExcludeClick + end + end + end + end + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 632 + Height = 25 + Align = alTop + BevelOuter = bvNone + TabOrder = 3 + DesignSize = ( + 632 + 25) + object MenuBar1: TMenuBar + Left = 0 + Top = 0 + Width = 23 + Height = 25 + Align = alLeft + AutoSize = True + ButtonHeight = 21 + ButtonWidth = 43 + Caption = 'MenuBar1' + Flat = True + Menu = mnuMain + ShowCaptions = True + TabOrder = 0 + end + object btnNew: TButton + Left = 557 + Top = 2 + Width = 75 + Height = 21 + Anchors = [akTop, akRight, akBottom] + Caption = 'New' + TabOrder = 3 + OnClick = mnuNewClick + end + object btnCopy: TButton + Left = 478 + Top = 2 + Width = 75 + Height = 21 + Anchors = [akTop, akRight, akBottom] + Caption = 'Copy' + Enabled = False + TabOrder = 2 + OnClick = mnuCopyClick + end + object btnDelete: TButton + Left = 399 + Top = 2 + Width = 75 + Height = 21 + Anchors = [akTop, akRight, akBottom] + Caption = 'Delete' + Enabled = False + TabOrder = 1 + OnClick = mnuDeleteClick + end + end + object mnuMain: TMainMenu + Left = 8 + Top = 64 + object mnuAction: TMenuItem + Caption = '&Action' + OnClick = mnuActionClick + object mnuNew: TMenuItem + Caption = '&New' + OnClick = mnuNewClick + end + object mnuCopy: TMenuItem + Caption = '&Copy' + OnClick = mnuCopyClick + end + object mnuDelete: TMenuItem + Caption = '&Delete' + OnClick = mnuDeleteClick + end + object mnuPreview: TMenuItem + Caption = '&Preview' + OnClick = btnPreviewClick + end + end + end + object popText: TPopupMenu + OnPopup = popTextPopup + Left = 339 + Top = 204 + object mnuBPUndo: TMenuItem + Caption = '&Undo' + ShortCut = 16474 + OnClick = mnuBPUndoClick + end + object N8: TMenuItem + Caption = '-' + end + object mnuBPCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = mnuBPCutClick + end + object mnuBPCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = mnuBPCopyClick + end + object mnuBPPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = mnuBPPasteClick + end + object mnuBPSelectAll: TMenuItem + Caption = 'Select &All' + ShortCut = 16449 + OnClick = mnuBPSelectAllClick + end + object N2: TMenuItem + Caption = '-' + end + object mnuBPCheckGrammar: TMenuItem + Caption = 'Check &Grammar' + ShortCut = 16455 + OnClick = mnuBPCheckGrammarClick + end + object mnuBPSpellCheck: TMenuItem + Caption = 'Check &Spelling' + ShortCut = 16467 + OnClick = mnuBPSpellCheckClick + end + object N14: TMenuItem + Caption = '-' + end + object mnuInsertTemplateField: TMenuItem + Caption = 'Insert Template &Field' + ShortCut = 16454 + OnClick = mnuInsertTemplateFieldClick + end + end +end diff --git a/CPRS-Chart/Templates/fTemplateFieldEditor.pas b/CPRS-Chart/Templates/fTemplateFieldEditor.pas new file mode 100644 index 0000000..aab94c5 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateFieldEditor.pas @@ -0,0 +1,1410 @@ +unit fTemplateFieldEditor; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ORCtrls, StdCtrls, ExtCtrls, Menus, ComCtrls, uTemplateFields, ORFn, + ToolWin, MenuBar, ORClasses, ORDtTm; + +type + TfrmTemplateFieldEditor = class(TForm) + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + pnlObjs: TPanel; + cbxObjs: TORComboBox; + lblObjs: TLabel; + splLeft: TSplitter; + pnlRight: TPanel; + pnlPreview: TPanel; + lblNotes: TLabel; + pnlObjInfo: TPanel; + lblName: TLabel; + lblS2: TLabel; + lblLM: TLabel; + edtName: TCaptionEdit; + splBottom: TSplitter; + lblS1: TLabel; + edtLMText: TCaptionEdit; + cbxType: TORComboBox; + lblType: TLabel; + reNotes: TRichEdit; + btnApply: TButton; + btnPreview: TButton; + mnuMain: TMainMenu; + mnuAction: TMenuItem; + mnuNew: TMenuItem; + mnuCopy: TMenuItem; + cbHide: TCheckBox; + pnlTop: TPanel; + MenuBar1: TMenuBar; + btnNew: TButton; + btnCopy: TButton; + mnuDelete: TMenuItem; + btnDelete: TButton; + mnuPreview: TMenuItem; + popText: TPopupMenu; + mnuBPUndo: TMenuItem; + N8: TMenuItem; + mnuBPCut: TMenuItem; + mnuBPCopy: TMenuItem; + mnuBPPaste: TMenuItem; + mnuBPSelectAll: TMenuItem; + N2: TMenuItem; + mnuBPCheckGrammar: TMenuItem; + mnuBPSpellCheck: TMenuItem; + lblTextLen: TLabel; + edtTextLen: TCaptionEdit; + udTextLen: TUpDown; + pnlSwap: TPanel; + edtDefault: TCaptionEdit; + pnlNum: TPanel; + edtURL: TCaptionEdit; + udDefNum: TUpDown; + edtDefNum: TCaptionEdit; + udMinVal: TUpDown; + edtMinVal: TCaptionEdit; + lblMin: TLabel; + udInc: TUpDown; + edtInc: TCaptionEdit; + lblInc: TLabel; + lblMaxVal: TLabel; + edtMaxVal: TCaptionEdit; + udMaxVal: TUpDown; + reItems: TRichEdit; + lblLength: TLabel; + edtLen: TCaptionEdit; + udLen: TUpDown; + cbxDefault: TORComboBox; + lblS3: TLabel; + gbIndent: TGroupBox; + lblIndent: TLabel; + edtIndent: TCaptionEdit; + udIndent: TUpDown; + udPad: TUpDown; + edtPad: TCaptionEdit; + lblPad: TLabel; + gbMisc: TGroupBox; + cbActive: TCheckBox; + cbRequired: TCheckBox; + cbSepLines: TCheckBox; + pnlDate: TPanel; + edtDateDef: TCaptionEdit; + cbxDateType: TORComboBox; + lblDateType: TLabel; + cbExclude: TCheckBox; + lblReq: TStaticText; + lblLine: TLabel; + lblCol: TLabel; + N14: TMenuItem; + mnuInsertTemplateField: TMenuItem; + procedure cbxObjsNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure FormCreate(Sender: TObject); + procedure cbxObjsChange(Sender: TObject); + procedure edtNameChange(Sender: TObject); + procedure cbxTypeChange(Sender: TObject); + procedure edtLenChange(Sender: TObject); + procedure edtDefaultChange(Sender: TObject); + procedure cbxDefaultChange(Sender: TObject); + procedure edtLMTextChange(Sender: TObject); + procedure cbActiveClick(Sender: TObject); + procedure mnuNewClick(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure btnApplyClick(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure btnCancelClick(Sender: TObject); + procedure reItemsChange(Sender: TObject); + procedure cbHideClick(Sender: TObject); + procedure edtNameExit(Sender: TObject); + procedure mnuCopyClick(Sender: TObject); + procedure mnuDeleteClick(Sender: TObject); + procedure btnPreviewClick(Sender: TObject); + procedure mnuActionClick(Sender: TObject); + procedure cbRequiredClick(Sender: TObject); + procedure pnlObjsResize(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure cbxObjsSynonymCheck(Sender: TObject; const Text: String; + var IsSynonym: Boolean); + procedure popTextPopup(Sender: TObject); + procedure mnuBPUndoClick(Sender: TObject); + procedure mnuBPCutClick(Sender: TObject); + procedure mnuBPCopyClick(Sender: TObject); + procedure mnuBPPasteClick(Sender: TObject); + procedure mnuBPSelectAllClick(Sender: TObject); + procedure mnuBPCheckGrammarClick(Sender: TObject); + procedure mnuBPSpellCheckClick(Sender: TObject); + procedure cbSepLinesClick(Sender: TObject); + procedure edtpopControlEnter(Sender: TObject); + procedure cbxObjsKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure edtTextLenChange(Sender: TObject); + procedure edtDefNumChange(Sender: TObject); + procedure edtMinValChange(Sender: TObject); + procedure edtMaxValChange(Sender: TObject); + procedure edtIncChange(Sender: TObject); + procedure edtURLChange(Sender: TObject); + procedure edtPadChange(Sender: TObject); + procedure edtIndentChange(Sender: TObject); + procedure reNotesChange(Sender: TObject); + procedure cbxDateTypeChange(Sender: TObject); + procedure cbExcludeClick(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure reItemsResizeRequest(Sender: TObject; Rect: TRect); + procedure reItemsSelectionChange(Sender: TObject); + procedure mnuInsertTemplateFieldClick(Sender: TObject); + procedure ControlExit(Sender: TObject); + procedure reNotesKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + CopyFld, FFld: TTemplateField; + FUpdating: boolean; + FReloadChanges: boolean; + FChangesPending: boolean; + FDeleted: TORStringList; + FHideSynonyms: boolean; + FLastRect: TRect; + procedure UpdateControls; + procedure SyncItems(DoUpdate: boolean = TRUE); + function SaveChanges: boolean; + procedure ResetListEntry; + procedure VerifyName; + procedure EnableButtons; + procedure SetFld(const Value: TTemplateField); + procedure SetHideSynonyms(const Value: boolean); + function GetPopupControl: TCustomEdit; + public + { Public declarations } + end; + +function EditDialogFields: boolean; + +implementation + +uses rTemplates, fTemplateDialog, Clipbrd, uSpell, uConst, + fTemplateFields; + +{$R *.DFM} + +{ TfrmDlgObjEditor } + +var + frmTemplateFields: TfrmTemplateFields = nil; + + +function EditDialogFields: boolean; +var + frmTemplateFieldEditor: TfrmTemplateFieldEditor; + +begin + frmTemplateFieldEditor := TfrmTemplateFieldEditor.Create(Application); + try + frmTemplateFieldEditor.ShowModal; + Result := frmTemplateFieldEditor.FReloadChanges; + finally + frmTemplateFieldEditor.Free; + end; +end; + +procedure TfrmTemplateFieldEditor.UpdateControls; +const + DefTxt = 'Default:'; + +var + ok, edt, txt, tmp: boolean; + Y, idx, Max: integer; + wpTxt: string; + + procedure SetLbl(const Text: string); + var + lbl: TLabel; + + begin + inc(idx); + case idx of + 1: lbl := lblS1; + 2: lbl := lblS2; + 3: lbl := lblS3; + else + lbl := nil; + end; + if assigned(lbl) then + lbl.Caption := Text; + end; + + procedure SetY(Control: TControl; const Text: string); + begin + if (Control.Visible) then + begin + Control.Top := Y; + inc(Y, Control.Height); + SetLbl(Text); + end; + end; + +begin + if(not FUpdating) then + begin + FUpdating := TRUE; + try + Y := 0; + idx := 0; + ok := assigned(FFld); + if(ok) then + begin + edt := (FFld.FldType in EditLenTypes); + txt := (FFld.FldType in EditDfltTypes); + end + else + begin + edt := FALSE; + txt := FALSE; + end; + lblName.Enabled := ok; + edtName.Enabled := ok; + lblType.Enabled := ok; + cbxType.Enabled := ok; + lblLM.Enabled := ok; + edtLMText.Enabled := ok; + cbActive.Enabled := ok; + + gbMisc.Enabled := ok; + lblNotes.Enabled := ok; + reNotes.Enabled := ok; + if(ok) then + begin + edtName.Text := FFld.FldName; + cbxType.ItemIndex := ord(FFld.FldType); + edtLMText.Text := FFld.LMText; + cbActive.Checked := FFld.Inactive; + reNotes.Lines.Text := FFld.Notes; + end + else + begin + edtName.Text := ''; + cbxType.ItemIndex := -1; + edtLMText.Text := ''; + cbActive.Checked := FALSE; + reNotes.Clear; + end; + + tmp := ok and (not (FFld.FldType in NoRequired)); + cbRequired.Enabled := tmp; + if tmp then + cbRequired.Checked := FFld.Required + else + cbRequired.Checked := FALSE; + + pnlSwap.DisableAlign; + try + tmp := ok and (FFld.FldType in SepLinesTypes); + cbSepLines.Enabled := tmp; + if tmp then + cbSepLines.Checked := FFld.SepLines + else + cbSepLines.Checked := FALSE; + + tmp := ok and (FFld.FldType in ExcludeText); + cbExclude.Enabled := tmp; + if tmp then + cbExclude.Checked := FFld.SepLines + else + cbExclude.Checked := FALSE; + + lblLength.Enabled := edt; + if ok and (FFld.FldType = dftWP) then + begin + lblTextLen.Caption := 'Num Lines:'; + udLen.Min := 5; + udLen.Max := 74; + udTextLen.Min := 2; + udTextLen.Max := MaxTFWPLines; + end + else + begin + udLen.Min := 1; + udLen.Max := 70; + udTextLen.Min := 0; + udTextLen.Max := 240; + lblTextLen.Caption := 'Text Len:'; + end; + + lblTextLen.Enabled := edt; + edtTextLen.Enabled := edt; + udTextLen.Enabled := edt; + edtLen.Enabled := edt; + udLen.Enabled := edt; + + edtDefault.Visible := txt; + SetY(edtDefault, DefTxt); + Max := MaxTFEdtLen; + + if(edt) then + begin + udLen.Associate := edtLen; + udLen.Position := FFld.MaxLen; + udTextLen.Associate := edtTextLen; + udTextLen.Position := FFld.TextLen; + if txt then + Max := FFld.MaxLen; + end + else + begin + udLen.Associate := nil; + edtLen.Text := ''; + udTextLen.Associate := nil; + edtTextLen.Text := ''; + end; + + if txt then + begin + edtDefault.MaxLength := Max; + edtDefault.Text := copy(FFld.EditDefault, 1, Max); + end; + + gbIndent.Enabled := ok; + lblIndent.Enabled := ok; + edtIndent.Enabled := ok; + udIndent.Enabled := ok; + if ok then + begin + udIndent.Associate := edtIndent; + udIndent.Position := FFld.Indent; + end + else + begin + udIndent.Associate := nil; + edtIndent.Text := ''; + end; + + tmp := ok and (not cbExclude.Checked); + lblPad.Enabled := tmp; + edtPad.Enabled := tmp; + udPad.Enabled := tmp; + if tmp then + begin + udPad.Associate := edtPad; + udPad.Position := FFld.Pad; + end + else + begin + udPad.Associate := nil; + edtPad.Text := ''; + end; + + tmp := ok and (FFld.FldType = dftNumber); + pnlNum.Visible := tmp; + SetY(pnlNum, DefTxt); + if tmp then + begin + udDefNum.Position := StrToIntDef(FFld.EditDefault, 0); + udMinVal.Position := FFld.MinVal; + udMaxVal.Position := FFld.MaxVal; + udInc.Position := FFld.Increment; + end; + + tmp := ok and (FFld.FldType = dftDate); + pnlDate.Visible := tmp; + SetY(pnlDate, DefTxt); + if tmp then + begin + edtDateDef.Text := FFld.EditDefault; + cbxDateType.SelectByID(TemplateFieldDateCodes[FFld.DateType]); + end; + + tmp := ok and (FFld.FldType in ItemDfltTypes); + cbxDefault.Visible := tmp; + SetY(cbxDefault, DefTxt); + + tmp := ok and (FFld.FldType = dftHyperlink); + edtURL.Visible := tmp; + SetY(edtURL, 'Address:'); + if tmp then + edtURL.Text := FFld.URL; + + tmp := ok and (FFld.FldType in FldItemTypes); + reItems.Visible := tmp; + lblLine.Visible := tmp; + lblCol.Visible := tmp; + if tmp then + begin + if FFld.FldType = dftWP then + wpTxt := DefTxt + else + wpTxt := 'Items:'; + end + else + wpTxt := ''; + SetY(reItems, wpTxt); + if tmp then + reItems.Lines.Text := FFld.Items + else + reItems.Clear; + finally + pnlSwap.EnableAlign; + end; + + SetLbl(''); + SetLbl(''); + SetLbl(''); + SyncItems(FALSE); + FormResize(Self); + finally + FUpdating := FALSE; + end; + end; +end; + +procedure TfrmTemplateFieldEditor.SyncItems(DoUpdate: boolean = TRUE); +var + i, idx, Siz, Max1, Max2: integer; + ChangeSizes: boolean; + +begin + if DoUpdate and FUpdating then + exit; + Max1 := 0; + Max2 := 0; + ChangeSizes := FALSE; + FUpdating := TRUE; + try + cbxDefault.Items.Assign(reItems.Lines); + idx := -1; + if(assigned(FFld)) and reItems.Visible and cbxDefault.Visible then + begin + ChangeSizes := TRUE; + for i := 0 to reItems.Lines.Count-1 do + begin + Siz := length(StripEmbedded(reItems.Lines[i])); + if Max1 < Siz then + Max1 := Siz; + if(idx < 0) and (FFld.ItemDefault = reItems.Lines[i]) then + idx := i; + end; + Max2 := Max1; + if Max1 > MaxTFEdtLen then + Max1 := MaxTFEdtLen; + end; + cbxDefault.ItemIndex := idx; + finally + FUpdating := FALSE; + end; + if ChangeSizes and DoUpdate then + begin + udLen.Position := Max1; + if (not udTextLen.Enabled) or + ((udTextLen.Position > 0) and (udTextLen.Position < Max2)) then + udTextLen.Position := Max2; + end; +end; + +procedure TfrmTemplateFieldEditor.cbxObjsNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +var + tmp: TORStringList; + i, idx: integer; + +begin + tmp := TORStringList.Create; + try + tmp.Assign(SubSetOfTemplateFields(StartFrom, Direction)); + for i := 0 to FDeleted.Count-1 do + begin + idx := tmp.IndexOfPiece(Piece(FDeleted[i],U,1), U, 1); + if(idx >= 0) then + tmp.delete(idx); + end; + ConvertCodes2Text(tmp, TRUE); + cbxObjs.ForDataUse(tmp); + finally + tmp.Free; + end; +end; + +procedure TfrmTemplateFieldEditor.FormCreate(Sender: TObject); +var + i: integer; + Child: TControl; + Overage: integer; +begin + FDeleted := TORStringList.Create; + FHideSynonyms := TRUE; + cbxObjs.InitLongList(''); + cbxObjs.ItemHeight := 15; + UpdateControls; + ResizeAnchoredFormToFont(self); + //ResizeAnchoredFormToFont does the pnlObjInfo panel wrong. So we fix it here. + gbMisc.Top := pnlObjInfo.ClientHeight - gbMisc.Height - 5; + gbIndent.Top := gbMisc.Top; + edtLMText.Top := gbMisc.Top - edtLMText.Height - 2; + lblLM.Top := edtLMText.Top + 5; + pnlSwap.Height := lblLM.Top - pnlSwap.Top; + Overage := edtName.Left + edtName.Width - pnlObjInfo.ClientWidth - 4; + for i := 0 to pnlObjInfo.ControlCount-1 do begin + Child := pnlObjInfo.Controls[i]; + if (akRight in Child.Anchors) then begin + if (akLeft in Child.Anchors) then + Child.Width := Child.Width - Overage + else + Child.Left := Child.Left - Overage; + end; + end; +end; + +procedure TfrmTemplateFieldEditor.cbxObjsChange(Sender: TObject); +begin + if(cbxObjs.ItemIEN <> 0) then + SetFld(GetTemplateField(cbxObjs.ItemID, TRUE)) + else + SetFld(nil); + UpdateControls; +end; + +procedure TfrmTemplateFieldEditor.edtNameChange(Sender: TObject); +var + ok: boolean; + +begin + if(not FUpdating) and (assigned(FFld)) then + begin + if (not FFld.NameChanged) and (not FFld.NewField) then + begin + ok := InfoBox('*** WARNING ***' + CRLF + CRLF + + 'This template field has been saved, and may have been used in one or more' + CRLF + + 'boilerplates. Boilerplates can be found in templates, titles, reasons for request' + CRLF + + 'and reminder dialogs. Renaming this template field will cause any boilerplates' + CRLF + + 'that use it to no longer function correctly.' + CRLF + CRLF + + 'Are you sure you want to rename the ' + FFld.FldName + ' template field?', + 'Warning', MB_YESNO or MB_ICONWARNING) = IDYES; + if ok then + InfoBox('Template field will be renamed when OK or Apply is pressed.', 'Information', MB_OK or MB_ICONINFORMATION) + else + begin + FUpdating := TRUE; + try + edtName.Text := FFld.FldName; + finally + FUpdating := FALSE; + end; + end; + end + else + ok := TRUE; + if ok then + begin + FFld.FldName := edtName.Text; + edtName.Text := FFld.FldName; + FChangesPending := TRUE; + ResetListEntry; + end; + end; +end; + +procedure TfrmTemplateFieldEditor.cbxTypeChange(Sender: TObject); +begin + if(not FUpdating) and (assigned(FFld)) then + begin + if(cbxType.ItemIndex < 0) then + begin + FUpdating := TRUE; + try + cbxType.ItemIndex := 0; + finally + FUpdating := FALSE; + end; + end; + FFld.FldType := TTemplateFieldType(cbxType.ItemIndex); + end; + EnableButtons; + UpdateControls; +end; + +procedure TfrmTemplateFieldEditor.edtLenChange(Sender: TObject); +var + v: integer; + ok: boolean; + +begin + EnsureText(edtLen, udLen); + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType in (EditLenTypes))) then + begin + EnsureText(edtLen, udLen); + FFld.MaxLen := udLen.Position; + udLen.Position := FFld.MaxLen; + if edtDefault.Visible then + begin + edtDefault.MaxLength := FFld.MaxLen; + edtDefault.Text := copy(edtDefault.Text,1,FFld.MaxLen); + end; + case FFLd.FldType of + dftEditBox: ok := TRUE; + dftComboBox: ok := (udTextLen.Position > 0); + else ok := FALSE; + end; + if ok then + begin + v := udLen.Position; + if udTextLen.Position < v then + udTextLen.Position := v; + end; + end; +end; + +procedure TfrmTemplateFieldEditor.edtDefaultChange(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType in EditDfltType2)) then + begin + FFld.EditDefault := TEdit(Sender).Text; + TEdit(Sender).Text := FFld.EditDefault; + end; +end; + +procedure TfrmTemplateFieldEditor.cbxDefaultChange(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType in ItemDfltTypes)) then + begin + FFld.ItemDefault := cbxDefault.Text; + SyncItems; + end; +end; + +procedure TfrmTemplateFieldEditor.edtLMTextChange(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld))) then + begin + FFld.LMText := edtLMText.Text; + edtLMText.Text := FFld.LMText; + end; +end; + +procedure TfrmTemplateFieldEditor.cbActiveClick(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld))) then + begin + FFld.Inactive := cbActive.Checked; + cbActive.Checked := FFld.Inactive; + FChangesPending := TRUE; + //ResetListEntry; + end; +end; + +procedure TfrmTemplateFieldEditor.mnuNewClick(Sender: TObject); +begin + SetFld(TTemplateField.Create(nil)); + if(assigned(FFld)) then + begin + FChangesPending := TRUE; + if cbxObjs.ShortCount = 0 then + begin + cbxObjs.Items.Insert(0,LLS_LINE); + cbxObjs.Items.Insert(1,''); + end; + if(assigned(CopyFld)) then + FFld.Assign(CopyFld); + cbxObjs.Items.Insert(0,FFld.ID + U + FFld.FldName); + cbxObjs.SelectByID(FFld.ID); + cbxObjsChange(nil); + if(assigned(FFld)) then + edtName.SetFocus; + end + else + UpdateControls; +end; + +procedure TfrmTemplateFieldEditor.btnOKClick(Sender: TObject); +begin + SaveChanges; +end; + +procedure TfrmTemplateFieldEditor.btnApplyClick(Sender: TObject); +var + tmp: string; +begin + SaveChanges; + cbxObjs.Clear; + if assigned(FFld) then + tmp := FFld.FldName + else + tmp := ''; + cbxObjs.InitLongList(tmp); + cbxObjs.ItemIndex := 0; + cbxObjsChange(cbxObjs); +end; + +procedure TfrmTemplateFieldEditor.FormCloseQuery(Sender: TObject; + var CanClose: Boolean); +var + ans: word; + +begin + if(AnyTemplateFieldsModified) then + begin + ans := InfoBox('Save Changes?', 'Confirmation', MB_YESNOCANCEL or MB_ICONQUESTION); + if(ans = IDCANCEL) then + CanClose := FALSE + else + if(ans = IDYES) then + CanClose := SaveChanges; + end; +end; + +procedure TfrmTemplateFieldEditor.btnCancelClick(Sender: TObject); +var + i: integer; + +begin + for i := 0 to FDeleted.Count-1 do + UnlockTemplateField(Piece(FDeleted[i],U,1)); + FDeleted.Clear; + ClearModifiedTemplateFields; +end; + +function TfrmTemplateFieldEditor.SaveChanges: boolean; +var + ans: word; + Errors: string; + i: integer; + +begin + for i := 0 to FDeleted.Count-1 do + DeleteTemplateField(Piece(FDeleted[i],U,1)); + FDeleted.Clear; + Result := TRUE; + Errors := SaveTemplateFieldErrors; + if(Errors <> '') then + begin + ans := InfoBox(Errors + CRLF + CRLF + 'Cancel changes to these Template Fields?', + 'Confirmation', MB_YESNO or MB_ICONQUESTION); + if(ans = IDYES) then + ClearModifiedTemplateFields + else + Result := FALSE; + end; + if(FChangesPending) then + FReloadChanges := TRUE; +end; + +procedure TfrmTemplateFieldEditor.reItemsChange(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType in FldItemTypes)) then + begin + FFld.Items := reItems.Lines.Text; + SyncItems; + end; +end; + +procedure TfrmTemplateFieldEditor.cbHideClick(Sender: TObject); +begin + SetHideSynonyms(cbHide.Checked); +end; + +procedure TfrmTemplateFieldEditor.edtNameExit(Sender: TObject); +begin + if (ActiveControl <> btnCancel) and (ActiveControl <> btnDelete) then + VerifyName; +end; + +procedure TfrmTemplateFieldEditor.VerifyName; +var + bad: boolean; + +begin + if assigned(FFld) then + begin + if FDeleted.IndexOfPiece(FFld.FldName, U, 2) >= 0 then + begin + ShowMessage('Template field can not be named the same as a deleted' + CRLF + + 'field until OK or Apply has been pressed.'); + bad := TRUE; + end + else + bad := TemplateFieldNameProblem(FFld); + if bad then + edtName.SetFocus; + end; +end; + +procedure TfrmTemplateFieldEditor.mnuCopyClick(Sender: TObject); +begin + if assigned(FFld) then + begin + CopyFld := FFld; + try + mnuNewClick(nil); + finally + CopyFld := nil; + end; + end; +end; + +procedure TfrmTemplateFieldEditor.SetFld(const Value: TTemplateField); +begin + FFld := Value; + EnableButtons; +end; + +procedure TfrmTemplateFieldEditor.mnuDeleteClick(Sender: TObject); +var + idx: integer; + ok: boolean; + Answer: word; + txt: string; + btns: TMsgDlgButtons; + +begin + if assigned(FFld) then + begin + ok := (FFld.NewField); + if not ok then + begin + btns := [mbYes, mbNo]; + if FFld.Inactive then + txt := '' + else + begin + txt := ' Rather than deleting, you may want' + CRLF + + 'to inactivate this template field instead. You may inactivate this template by' + CRLF + + 'pressing the Ignore button now.'; + include(btns, mbIgnore); + end; + Answer := MessageDlg('*** WARNING ***' + CRLF + CRLF + + 'This template field has been saved, and may have been used in one or more' + CRLF + + 'boilerplates. Boilerplates can be found in templates, titles, reasons for request' + CRLF + + 'and reminder dialogs. Deleting this template field will cause any boilerplates' + CRLF + + 'that use it to no longer function correctly.' + txt + CRLF + CRLF + + 'Are you sure you want to delete the ' + FFld.FldName + ' template field?', + mtWarning, btns, 0); + ok := (Answer = mrYes); + if(Answer = mrIgnore) then + cbActive.Checked := TRUE; + end; + if ok then + begin + if(FFld.NewField or FFld.CanModify) then + begin + if FFld.NewField then + begin + idx := cbxObjs.ItemIndex; + cbxObjs.ItemIndex := -1; + cbxObjs.Items.Delete(idx); + if cbxObjs.Items[0] = LLS_LINE then + begin + cbxObjs.Items.Delete(1); + cbxObjs.Items.Delete(0); + end; + end + else + begin + FDeleted.Add(FFld.ID + U + FFld.FldName); + cbxObjs.ItemIndex := -1; + end; + end; + FFld.Free; + SetFld(nil); + UpdateControls; + cbxObjs.InitLongList(''); + FChangesPending := TRUE; + end; + end; +end; + +procedure TfrmTemplateFieldEditor.ResetListEntry; +var + txt: string; + +begin + if(assigned(FFld) and FFld.NewField and (cbxObjs.ItemIndex >= 0)) then + begin + txt := FFld.ID + U + FFld.FldName; + //if(FFld.Inactive) then + //txt := txt + ' '; + cbxObjs.Items[cbxObjs.ItemIndex] := txt; + cbxObjs.ItemIndex := cbxObjs.ItemIndex; + end; +end; + +procedure TfrmTemplateFieldEditor.btnPreviewClick(Sender: TObject); +var + TmpSL: TStringList; + +begin + if(assigned(FFld)) then + begin + TmpSL := TStringList.Create; + try + TmpSL.Add(TemplateFieldBeginSignature + FFld.FldName + TemplateFieldEndSignature); + CheckBoilerplate4Fields(TmpSL, 'Preview Template Field: ' + FFld.FldName, TRUE); + finally + TmpSL.Free; + end; + end; +end; + +procedure TfrmTemplateFieldEditor.EnableButtons; +begin + btnCopy.Enabled := assigned(FFld); + mnuCopy.Enabled := btnCopy.Enabled; + btnDelete.Enabled := btnCopy.Enabled; // (assigned(FFld) and FFld.NewField); + mnuDelete.Enabled := btnDelete.Enabled; + btnPreview.Enabled := assigned(FFld) and (FFld.FldType <> dftUnknown); + mnuPreview.Enabled := btnPreview.Enabled; +end; + +procedure TfrmTemplateFieldEditor.mnuActionClick(Sender: TObject); +begin + EnableButtons; +end; + +procedure TfrmTemplateFieldEditor.cbRequiredClick(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld))) then + begin + FFld.Required := cbRequired.Checked; + cbRequired.Checked := FFld.Required; + end; +end; + +procedure TfrmTemplateFieldEditor.pnlObjsResize(Sender: TObject); +begin + btnPreview.Left := pnlRight.Left; +end; + +procedure TfrmTemplateFieldEditor.FormDestroy(Sender: TObject); +begin + FDeleted.Free; + if(assigned(frmTemplateFields)) then begin + frmTemplateFields.FRee; + frmTemplateFields := nil; + end; {if} + +end; + +procedure TfrmTemplateFieldEditor.SetHideSynonyms(const Value: boolean); +begin + FHideSynonyms := Value; + cbxObjs.HideSynonyms := FALSE; // Refresh Display + cbxObjs.HideSynonyms := TRUE; +end; + +procedure TfrmTemplateFieldEditor.cbxObjsSynonymCheck(Sender: TObject; + const Text: String; var IsSynonym: Boolean); +begin + if not FHideSynonyms then + IsSynonym := FALSE; + if(FDeleted.Count > 0) and (FDeleted.IndexOfPiece(Text,U,2) >= 0) then + IsSynonym := TRUE; +end; + +procedure TfrmTemplateFieldEditor.popTextPopup(Sender: TObject); +var + HasText, CanEdit, isre: boolean; + ce: TCustomEdit; + ShowTempField: boolean; + +begin + ce := GetPopupControl; + if assigned(ce) then + begin + isre := (ce is TRichEdit); + CanEdit := (not TORExposedCustomEdit(ce).ReadOnly); + mnuBPUndo.Enabled := (CanEdit and (ce.Perform(EM_CANUNDO, 0, 0) <> 0)); + if isre then + HasText := (TRichEdit(ce).Lines.Count > 0) + else + HasText := (Text <> ''); + mnuBPSelectAll.Enabled := HasText; + mnuBPCopy.Enabled := HasText and (ce.SelLength > 0); + mnuBPPaste.Enabled := (CanEdit and Clipboard.HasFormat(CF_TEXT)); + mnuBPCut.Enabled := (CanEdit and HasText and (ce.SelLength > 0)); + ShowTempField := FALSE; + if CanEdit then + if (not assigned(frmTemplateFields)) or + (assigned(frmTemplateFields) and not frmTemplateFields.Visible) then + if (ce = reItems) or + (ce = edtDefault) then + ShowTempField := TRUE; + mnuInsertTemplateField.Enabled := ShowTempField; + end + else + begin + isre := FALSE; + HasText := FALSE; + CanEdit := FALSE; + mnuBPPaste.Enabled := FALSE; + mnuBPCopy.Enabled := FALSE; + mnuBPCut.Enabled := FALSE; + mnuBPSelectAll.Enabled := FALSE; + mnuBPUndo.Enabled := FALSE; + mnuInsertTemplateField.Enabled := FALSE; + end; + + mnuBPSpellCheck.Visible := isre; + mnuBPCheckGrammar.Visible := isre; + + if isre and HasText and CanEdit then + begin + mnuBPSpellCheck.Enabled := SpellCheckAvailable; + mnuBPCheckGrammar.Enabled := SpellCheckAvailable; + end + else + begin + mnuBPSpellCheck.Enabled := FALSE; + mnuBPCheckGrammar.Enabled := FALSE; + end; +end; + +function TfrmTemplateFieldEditor.GetPopupControl: TCustomEdit; +begin + if assigned(popText.PopupComponent) and (popText.PopupComponent is TCustomEdit) then + Result := TCustomEdit(popText.PopupComponent) + else + Result := nil; +end; + +procedure TfrmTemplateFieldEditor.mnuBPUndoClick(Sender: TObject); +var + ce: TCustomEdit; + +begin + ce := GetPopupControl; + if assigned(ce) then + ce.Perform(EM_UNDO, 0, 0); +end; + +procedure TfrmTemplateFieldEditor.mnuBPCutClick(Sender: TObject); +var + ce: TCustomEdit; + +begin + ce := GetPopupControl; + if assigned(ce) then + ce.CutToClipboard; +end; + +procedure TfrmTemplateFieldEditor.mnuBPCopyClick(Sender: TObject); +var + ce: TCustomEdit; + +begin + ce := GetPopupControl; + if assigned(ce) then + ce.CopyToClipboard; +end; + +procedure TfrmTemplateFieldEditor.mnuBPPasteClick(Sender: TObject); +var + ce: TCustomEdit; + +begin + ce := GetPopupControl; + if assigned(ce) then + ce.SelText := Clipboard.AsText; +end; + +procedure TfrmTemplateFieldEditor.mnuBPSelectAllClick(Sender: TObject); +var + ce: TCustomEdit; + +begin + ce := GetPopupControl; + if assigned(ce) then + ce.SelectAll; +end; + +procedure TfrmTemplateFieldEditor.mnuBPCheckGrammarClick(Sender: TObject); +var + ce: TCustomEdit; + +begin + ce := GetPopupControl; + if(assigned(ce) and (ce is TRichEdit)) then + GrammarCheckForControl(TRichEdit(ce)); +end; + +procedure TfrmTemplateFieldEditor.mnuBPSpellCheckClick(Sender: TObject); +var + ce: TCustomEdit; + +begin + ce := GetPopupControl; + if(assigned(ce) and (ce is TRichEdit)) then + SpellCheckForControl(TRichEdit(ce)); +end; + +procedure TfrmTemplateFieldEditor.cbSepLinesClick(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld))) then + begin + FFld.SepLines := cbSepLines.Checked; + cbSepLines.Checked := FFld.SepLines; + end; +end; + +procedure TfrmTemplateFieldEditor.edtpopControlEnter(Sender: TObject); +begin + popText.PopupComponent := TComponent(Sender); + if assigned(frmTemplateFields) then + begin + if ((Sender = reItems) or (Sender = edtDefault)) then + begin + frmTemplateFields.btnInsert.Enabled := TRUE; + if Sender = reItems then + frmTemplateFields.re := reItems + else + frmTemplateFields.re := edtDefault; + end + else + frmTemplateFields.btnInsert.Enabled := FALSE; + end; +end; + +procedure TfrmTemplateFieldEditor.cbxObjsKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if(Key = VK_DELETE) and btnDelete.Enabled then + mnuDeleteClick(btnDelete); +end; + +procedure TfrmTemplateFieldEditor.edtTextLenChange(Sender: TObject); +var + v: integer; + +begin + EnsureText(edtTextLen, udTextLen); + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType in EditLenTypes)) then + begin + FFld.TextLen := udTextLen.Position; + udTextLen.Position := FFld.TextLen; + if FFld.FldType = dftEditBox then + begin + v := udTextLen.Position; + if udLen.Position > v then + udLen.Position := v; + end; + end; +end; + +procedure TfrmTemplateFieldEditor.edtDefNumChange(Sender: TObject); +var + v: integer; + +begin + EnsureText(edtDefNum, udDefNum); + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType = dftNumber)) then + begin + FFld.EditDefault := IntToStr(udDefNum.Position); + udDefNum.Position := StrToIntDef(FFld.EditDefault, 0); + v := udDefNum.Position; + if udMinVal.Position > v then + udMinVal.Position := v; + if udMaxVal.Position < v then + udMaxVal.Position := v; + end; +end; + +procedure TfrmTemplateFieldEditor.edtMinValChange(Sender: TObject); +var + v: integer; + +begin + EnsureText(edtMinVal, udMinVal); + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType = dftNumber)) then + begin + FFld.MinVal := udMinVal.Position; + udMinVal.Position := FFld.MinVal; + v := udMinVal.Position; + if udDefNum.Position < v then + udDefNum.Position := v; + if udMaxVal.Position < v then + udMaxVal.Position := v; + end; +end; + +procedure TfrmTemplateFieldEditor.edtMaxValChange(Sender: TObject); +var + v: integer; + +begin + EnsureText(edtMaxVal, udMaxVal); + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType = dftNumber)) then + begin + FFld.MaxVal := udMaxVal.Position; + udMaxVal.Position := FFld.MaxVal; + v := udMaxVal.Position; + if udDefNum.Position > v then + udDefNum.Position := v; + if udMinVal.Position > v then + udMinVal.Position := v; + end; +end; + +procedure TfrmTemplateFieldEditor.edtIncChange(Sender: TObject); +begin + EnsureText(edtInc, udInc); + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType = dftNumber)) then + begin + FFld.Increment := udInc.Position; + udInc.Position := FFld.Increment; + end; +end; + +procedure TfrmTemplateFieldEditor.edtURLChange(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType = dftHyperlink)) then + begin + FFld.URL := edtURL.Text; + edtURL.Text := FFld.URL; + end; +end; + +procedure TfrmTemplateFieldEditor.edtPadChange(Sender: TObject); +begin + EnsureText(edtPad, udPad); + if((not FUpdating) and (assigned(FFld))) then + begin + FFld.Pad := udPad.Position; + udPad.Position := FFld.Pad; + end; +end; + +procedure TfrmTemplateFieldEditor.edtIndentChange(Sender: TObject); +begin + EnsureText(edtIndent, udIndent); + if((not FUpdating) and (assigned(FFld))) then + begin + FFld.Indent := udIndent.Position; + udIndent.Position := FFld.Indent; + end; +end; + +procedure TfrmTemplateFieldEditor.reNotesChange(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld)) and FFld.CanModify) then + FFld.Notes := reNotes.Lines.Text; +end; + +procedure TfrmTemplateFieldEditor.cbxDateTypeChange(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld)) and (FFld.FldType = dftDate)) then + begin + if cbxDateType.ItemIndex >= 0 then + FFld.DateType := TTmplFldDateType(cbxDateType.ItemIndex + 1) + else + FFld.DateType := dtDate; + cbxDateType.SelectByID(TemplateFieldDateCodes[FFld.DateType]); + end; + +end; + +procedure TfrmTemplateFieldEditor.cbExcludeClick(Sender: TObject); +begin + if((not FUpdating) and (assigned(FFld))) then + begin + FFld.SepLines := cbExclude.Checked; + cbExclude.Checked := FFld.SepLines; + UpdateControls; + end; +end; + +procedure TfrmTemplateFieldEditor.FormResize(Sender: TObject); +begin + LimitEditWidth(reItems, 240); + LimitEditWidth(reNotes, MAX_ENTRY_WIDTH); +end; + +procedure TfrmTemplateFieldEditor.reItemsResizeRequest(Sender: TObject; + Rect: TRect); +var + R: TRect; + +begin + R := TRichEdit(Sender).ClientRect; + if (FLastRect.Right <> R.Right) or + (FLastRect.Bottom <> R.Bottom) or + (FLastRect.Left <> R.Left) or + (FLastRect.Top <> R.Top) then + begin + FLastRect := R; + FormResize(Self); + end; +end; + +procedure TfrmTemplateFieldEditor.reItemsSelectionChange(Sender: TObject); +var + p: TPoint; + +begin + if lblLine.Visible then + begin + p := reItems.CaretPos; + lblLine.Caption := 'Line: ' + inttostr(p.y + 1); + lblCol.Caption := 'Col: ' + inttostr(p.x + 1); + end; +end; + +procedure TfrmTemplateFieldEditor.mnuInsertTemplateFieldClick(Sender: TObject); +var + iCon: TCustomEdit; + ShowButton: boolean; +begin + iCon := GetPopupControl; + if iCon <> nil then + begin + if iCon.Name <> ActiveControl.Name then + begin + ActiveControl := iCon; + iCon.SelStart := iCon.SelLength; + end; + if (not assigned(frmTemplateFields)) then + begin + frmTemplateFields := TfrmTemplateFields.Create(Self); + frmTemplateFields.Font := Font; + end; + ShowButton := False; + if iCon = reItems then + begin + frmTemplateFields.re := reItems; + ShowButton := TRUE; + end + else if iCon = edtDefault then + begin + frmTemplateFields.re := edtDefault; + ShowButton := TRUE; + end; + frmTemplateFields.btnInsert.Enabled := ShowButton; + + frmTemplateFields.Show; + end + +end; + +procedure TfrmTemplateFieldEditor.ControlExit(Sender: TObject); +begin + if assigned(frmTemplateFields) then + frmTemplateFields.btnInsert.Enabled := FALSE; +end; + +procedure TfrmTemplateFieldEditor.reNotesKeyUp(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if (Key = VK_TAB) then + begin + if ssShift in Shift then + begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + Key := 0; + end + else if ssCtrl in Shift then + begin + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + Key := 0; + end; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +end. diff --git a/CPRS-Chart/Templates/fTemplateFields.dfm b/CPRS-Chart/Templates/fTemplateFields.dfm new file mode 100644 index 0000000..16ee7b2 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateFields.dfm @@ -0,0 +1,102 @@ +object frmTemplateFields: TfrmTemplateFields + Left = 212 + Top = 155 + Width = 418 + Height = 300 + Caption = 'Insert Template Field' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsStayOnTop + OldCreateOrder = False + Position = poOwnerFormCenter + OnClose = FormClose + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object pnlBottom: TPanel + Left = 0 + Top = 246 + Width = 410 + Height = 27 + Align = alBottom + BevelOuter = bvNone + TabOrder = 0 + DesignSize = ( + 410 + 27) + object lblReq: TStaticText + Left = 21 + Top = 8 + Width = 134 + Height = 17 + Caption = '* Indicates a Required Field' + TabOrder = 3 + end + object btnCancel: TButton + Left = 335 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Cancel = True + Caption = '&Done' + ModalResult = 2 + TabOrder = 2 + OnClick = btnCancelClick + end + object btnInsert: TButton + Left = 255 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Caption = '&Insert Field' + Default = True + ModalResult = 4 + TabOrder = 1 + OnClick = btnInsertClick + end + object btnPreview: TButton + Left = 175 + Top = 4 + Width = 75 + Height = 21 + Caption = '&Preview' + Enabled = False + TabOrder = 0 + OnClick = btnPreviewClick + end + end + object cboObjects: TORComboBox + Left = 0 + Top = 0 + Width = 410 + Height = 246 + Style = orcsSimple + Align = alClient + AutoSelect = True + Caption = 'Template Field' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + MaxLength = 0 + Pieces = '2,3' + HideSynonyms = True + Sorted = False + SynonymChars = '' + TabPositions = '50,60,70,80,90' + TabOrder = 1 + OnChange = cboObjectsChange + OnDblClick = cboObjectsDblClick + OnNeedData = cboObjectsNeedData + end +end diff --git a/CPRS-Chart/Templates/fTemplateFields.pas b/CPRS-Chart/Templates/fTemplateFields.pas new file mode 100644 index 0000000..14037e5 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateFields.pas @@ -0,0 +1,152 @@ +unit fTemplateFields; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ORCtrls, ComCtrls, StdCtrls, ExtCtrls; + +type + TfrmTemplateFields = class(TForm) + pnlBottom: TPanel; + btnCancel: TButton; + cboObjects: TORComboBox; + btnInsert: TButton; + lblReq: TStaticText; + btnPreview: TButton; + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cboObjectsNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboObjectsDblClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure btnInsertClick(Sender: TObject); + procedure btnPreviewClick(Sender: TObject); + procedure cboObjectsChange(Sender: TObject); + private +{ Fre: TRichEdit;} + Fre: TCustomEdit; + FAutoLongLines: TNotifyEvent; + procedure InsertField; +{ procedure Setre(const Value: TRichEdit);} + procedure Setre(const Value: TCustomEdit); + public + procedure UpdateStatus; +{ property re: TRichEdit read Fre write Setre;} + property re: TCustomEdit read Fre write Setre; + property AutoLongLines: TNotifyEvent read FAutoLongLines write FAutoLongLines; + end; + +implementation + +uses + ORFn, rTemplates, uTemplateFields, fTemplateDialog, ORClasses; + +{$R *.DFM} + +procedure TfrmTemplateFields.FormShow(Sender: TObject); +begin + cboObjects.SelectAll; + cboObjects.SetFocus; +end; + +procedure TfrmTemplateFields.FormCreate(Sender: TObject); +begin + cboObjects.InitLongList(''); + cboObjects.ItemHeight := 15; + ResizeAnchoredFormToFont(self); + //ResizeAnchoredFormToFont doesn't work right on the button positions for some reason. + btnCancel.Left := pnlBottom.ClientWidth - btnCancel.Width; + btnInsert.Left := btnCancel.Left - btnInsert.Width - 8; +end; + +procedure TfrmTemplateFields.cboObjectsNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +var + tmp: TStrings; + +begin + tmp := SubSetOfTemplateFields(StartFrom, Direction); + ConvertCodes2Text(tmp, FALSE); + cboObjects.ForDataUse(tmp); +end; + +procedure TfrmTemplateFields.InsertField; +var + cnt: integer; + +begin + if assigned(Fre) and (not TORExposedCustomEdit(Fre).ReadOnly) and (cboObjects.ItemIndex >= 0) then + begin + if Fre is TRichEdit then + cnt := TRichEdit(FRe).Lines.Count + else + cnt :=0; + Fre.SelText := TemplateFieldBeginSignature + + Piece(cboObjects.Items[cboObjects.ItemIndex],U,2)+ + TemplateFieldEndSignature; + if Fre is TRichEdit then + if(assigned(FAutoLongLines) and (cnt <> TRichEdit(FRe).Lines.Count)) then + FAutoLongLines(Self); + end; +end; + +procedure TfrmTemplateFields.cboObjectsDblClick(Sender: TObject); +begin + if btnInsert.Enabled then + InsertField; +end; + +procedure TfrmTemplateFields.btnCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmTemplateFields.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action := caHide; +end; + +procedure TfrmTemplateFields.Setre(const Value: TCustomEdit); +begin + Fre := Value; + UpdateStatus; +end; + +procedure TfrmTemplateFields.UpdateStatus; +begin + btnInsert.Enabled := (not TORExposedCustomEdit(re).ReadOnly); +end; + +procedure TfrmTemplateFields.btnInsertClick(Sender: TObject); +begin + InsertField; +end; + +procedure TfrmTemplateFields.btnPreviewClick(Sender: TObject); +var + tmp, txt: string; + + +begin + if(cboObjects.ItemIndex >= 0) then + begin + FormStyle := fsNormal; + try + txt := Piece(cboObjects.Items[cboObjects.ItemIndex],U,2); + tmp := TemplateFieldBeginSignature + txt + TemplateFieldEndSignature; + CheckBoilerplate4Fields(tmp, 'Preview Template Field: ' + txt, TRUE); + finally + FormStyle := fsStayOnTop; + end; + end; +end; + +procedure TfrmTemplateFields.cboObjectsChange(Sender: TObject); +begin + btnPreview.Enabled := (cboObjects.ItemIndex >= 0) +end; + +end. diff --git a/CPRS-Chart/Templates/fTemplateImport.dfm b/CPRS-Chart/Templates/fTemplateImport.dfm new file mode 100644 index 0000000..4e91d62 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateImport.dfm @@ -0,0 +1,59 @@ +object frmTemplateImport: TfrmTemplateImport + Left = 273 + Top = 195 + BorderIcons = [biSystemMenu] + BorderStyle = bsDialog + Caption = 'Importing Word Document' + ClientHeight = 132 + ClientWidth = 288 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsStayOnTop + OldCreateOrder = False + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object gaugeImport: TGauge + Left = 8 + Top = 82 + Width = 272 + Height = 21 + ForeColor = clNavy + Progress = 0 + end + object lblImporting: TStaticText + Left = 8 + Top = 4 + Width = 272 + Height = 13 + AutoSize = False + Caption = 'Importing ' + ParentShowHint = False + ShowHint = True + TabOrder = 0 + end + object animImport: TAnimate + Left = 8 + Top = 20 + Width = 272 + Height = 60 + Active = True + CommonAVI = aviCopyFile + StopFrame = 26 + end + object btnCancel: TButton + Left = 106 + Top = 106 + Width = 75 + Height = 25 + Cancel = True + Caption = '&Cancel' + Default = True + TabOrder = 1 + OnClick = btnCancelClick + end +end diff --git a/CPRS-Chart/Templates/fTemplateImport.pas b/CPRS-Chart/Templates/fTemplateImport.pas new file mode 100644 index 0000000..815dceb --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateImport.pas @@ -0,0 +1,82 @@ +unit fTemplateImport; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + Gauges, StdCtrls, ComCtrls; + +type + TfrmTemplateImport = class(TForm) + animImport: TAnimate; + btnCancel: TButton; + lblImporting: TStaticText; + gaugeImport: TGauge; + procedure btnCancelClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +procedure StartImportMessage(AFileName: string; MaxCount: integer); +function UpdateImportMessage(CurrentCount: integer): boolean; +procedure StopImportMessage; + +implementation + +{$R *.DFM} + +uses + ORFn; + +var + frmTemplateImport: TfrmTemplateImport = nil; + +procedure StartImportMessage(AFileName: string; MaxCount: integer); +begin + if not assigned(frmTemplateImport) then + begin + frmTemplateImport := TfrmTemplateImport.Create(Application); + ResizeAnchoredFormToFont(frmTemplateImport); + with frmTemplateImport do + begin + lblImporting.Caption := lblImporting.Caption + AFileName; + lblImporting.Hint := lblImporting.Caption; + gaugeImport.MaxValue := MaxCount; + Show; + Application.ProcessMessages; + end; + end; +end; + +function UpdateImportMessage(CurrentCount: integer): boolean; +begin + if assigned(frmTemplateImport) then + begin + Result := (not frmTemplateImport.btnCancel.Enabled); + if not Result then + begin + frmTemplateImport.gaugeImport.Progress := CurrentCount; + Application.ProcessMessages; + end; + end + else + Result := TRUE; +end; + +procedure StopImportMessage; +begin + if assigned(frmTemplateImport) then + FreeAndNil(frmTemplateImport); +end; + + +procedure TfrmTemplateImport.btnCancelClick(Sender: TObject); +begin + lblImporting.Caption := 'Canceling...'; + btnCancel.Enabled := FALSE; + Application.ProcessMessages; +end; + +end. diff --git a/CPRS-Chart/Templates/fTemplateObjects.dfm b/CPRS-Chart/Templates/fTemplateObjects.dfm new file mode 100644 index 0000000..5076ee3 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateObjects.dfm @@ -0,0 +1,93 @@ +object frmTemplateObjects: TfrmTemplateObjects + Left = 215 + Top = 343 + Width = 247 + Height = 300 + ActiveControl = cboObjects + Caption = 'Insert Patient Data (Object)' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsStayOnTop + OldCreateOrder = False + Position = poOwnerFormCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object cboObjects: TORComboBox + Left = 0 + Top = 0 + Width = 239 + Height = 246 + Style = orcsSimple + Align = alClient + AutoSelect = True + Caption = 'Patient Data' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '1' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnDblClick = cboObjectsDblClick + end + object pnlBottom: TPanel + Left = 0 + Top = 246 + Width = 239 + Height = 27 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + DesignSize = ( + 239 + 27) + object btnCancel: TButton + Left = 162 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Cancel = True + Caption = '&Done' + ModalResult = 2 + TabOrder = 1 + OnClick = btnCancelClick + end + object btnInsert: TButton + Left = 82 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Caption = '&Insert Object' + Default = True + ModalResult = 4 + TabOrder = 0 + OnClick = btnInsertClick + end + object btnRefresh: TButton + Left = 2 + Top = 4 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Caption = '&Refresh' + Default = True + ModalResult = 4 + TabOrder = 2 + OnClick = btnRefreshClick + end + end +end diff --git a/CPRS-Chart/Templates/fTemplateObjects.pas b/CPRS-Chart/Templates/fTemplateObjects.pas new file mode 100644 index 0000000..1807ce1 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateObjects.pas @@ -0,0 +1,103 @@ +unit fTemplateObjects; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ORCtrls, StdCtrls, ExtCtrls, ComCtrls, ORFn, dShared; + +type + TfrmTemplateObjects = class(TForm) + cboObjects: TORComboBox; + pnlBottom: TPanel; + btnCancel: TButton; + btnInsert: TButton; + btnRefresh: TButton; + procedure FormShow(Sender: TObject); + procedure btnInsertClick(Sender: TObject); + procedure cboObjectsDblClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure btnRefreshClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + Fre: TRichEdit; + FAutoLongLines: TNotifyEvent; + procedure InsertObject; + procedure Setre(const Value: TRichEdit); + public + procedure UpdateStatus; + property re: TRichEdit read Fre write Setre; + property AutoLongLines: TNotifyEvent read FAutoLongLines write FAutoLongLines; + end; + +implementation + +{$R *.DFM} + +procedure TfrmTemplateObjects.FormShow(Sender: TObject); +begin + ResizeAnchoredFormToFont(self); + //ResizeAnchoredFormToFont doesn't work right on the button positions for some reason. + btnCancel.Left := pnlBottom.ClientWidth - btnCancel.Width; + btnInsert.Left := btnCancel.Left - btnInsert.Width - 5; + btnRefresh.Left := btnInsert.Left - btnRefresh.Width - 5; + cboObjects.SelectAll; + cboObjects.SetFocus; +end; + +procedure TfrmTemplateObjects.btnInsertClick(Sender: TObject); +begin + InsertObject; +end; + +procedure TfrmTemplateObjects.InsertObject; +var + cnt: integer; + +begin + if(not Fre.ReadOnly) and (cboObjects.ItemIndex >= 0) then + begin + cnt := Fre.Lines.Count; + Fre.SelText := '|'+Piece(cboObjects.Items[cboObjects.ItemIndex],U,3)+'|'; + if(assigned(FAutoLongLines) and (cnt <> FRe.Lines.Count)) then + FAutoLongLines(Self); + end; +end; + +procedure TfrmTemplateObjects.cboObjectsDblClick(Sender: TObject); +begin + InsertObject; +end; + +procedure TfrmTemplateObjects.btnCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmTemplateObjects.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action := caHide; +end; + +procedure TfrmTemplateObjects.Setre(const Value: TRichEdit); +begin + Fre := Value; + UpdateStatus; +end; + +procedure TfrmTemplateObjects.UpdateStatus; +begin + btnInsert.Enabled := (not re.ReadOnly); +end; + +procedure TfrmTemplateObjects.btnRefreshClick(Sender: TObject); +begin +cboObjects.SelectAll; +cboObjects.Clear; +dmodShared.RefreshObject := true; +dmodShared.LoadTIUObjects; +CboOBJECTS.Items.AddStrings(dmodShared.TIUObjects); +end; + +end. diff --git a/CPRS-Chart/Templates/fTemplateView.dfm b/CPRS-Chart/Templates/fTemplateView.dfm new file mode 100644 index 0000000..52877aa --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateView.dfm @@ -0,0 +1,103 @@ +object frmTemplateView: TfrmTemplateView + Left = 257 + Top = 105 + Width = 578 + Height = 372 + Caption = 'View Template' + 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 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object pnlBottom: TPanel + Left = 0 + Top = 315 + Width = 570 + Height = 30 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + DesignSize = ( + 570 + 30) + object btnClose: TButton + Left = 494 + Top = 6 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Cancel = True + Caption = 'Close' + Default = True + TabOrder = 2 + OnClick = btnCloseClick + end + object cbStayOnTop: TCheckBox + Left = 0 + Top = 8 + Width = 77 + Height = 17 + Caption = 'Stay on Top' + TabOrder = 0 + OnClick = cbStayOnTopClick + end + object btnPrint: TButton + Left = 414 + Top = 6 + Width = 75 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Print' + TabOrder = 1 + OnClick = btnPrintClick + end + end + object reMain: TRichEdit + Left = 0 + Top = 0 + Width = 570 + Height = 315 + Align = alClient + Color = clCream + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + HideSelection = False + ParentFont = False + PopupMenu = popView + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + WantReturns = False + WordWrap = False + end + object popView: TPopupMenu + OnPopup = popViewPopup + Left = 24 + Top = 24 + object Copy1: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = Copy1Click + end + object N1: TMenuItem + Caption = '-' + end + object SelectAll1: TMenuItem + Caption = 'Select &All' + ShortCut = 16449 + OnClick = SelectAll1Click + end + end +end diff --git a/CPRS-Chart/Templates/fTemplateView.pas b/CPRS-Chart/Templates/fTemplateView.pas new file mode 100644 index 0000000..eb923a9 --- /dev/null +++ b/CPRS-Chart/Templates/fTemplateView.pas @@ -0,0 +1,130 @@ +unit fTemplateView; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ComCtrls, ExtCtrls, Menus, ORFn; + +type + TfrmTemplateView = class(TForm) + pnlBottom: TPanel; + reMain: TRichEdit; + btnClose: TButton; + cbStayOnTop: TCheckBox; + popView: TPopupMenu; + Copy1: TMenuItem; + N1: TMenuItem; + SelectAll1: TMenuItem; + btnPrint: TButton; + procedure btnCloseClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure cbStayOnTopClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure popViewPopup(Sender: TObject); + procedure Copy1Click(Sender: TObject); + procedure SelectAll1Click(Sender: TObject); + procedure btnPrintClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + private + end; + +procedure ShowTemplateData(Form: TForm; const Title, Text: string); + +var + frmTemplateView: TfrmTemplateView = nil; + +implementation + +uses fTemplateDialog, fRptBox, rMisc; + +{$R *.DFM} + +var + LastStayOnTop: boolean = FALSE; + +procedure ShowTemplateData(Form: TForm; const Title, Text: string); +var + Cnt: integer; + +begin + if(not assigned(frmTemplateView)) then + frmTemplateView := TfrmTemplateView.Create(Application); + ResizeAnchoredFormToFont(frmTemplateView); + frmTemplateView.reMain.Lines.Clear; + frmTemplateView.Caption := 'Template: ' + Title; + frmTemplateView.reMain.Lines.Text := Text; + Cnt := frmTemplateView.reMain.Lines.Count; + CheckBoilerplate4Fields(frmTemplateView.reMain.Lines, frmTemplateView.Caption, TRUE); + if (Cnt > 0) and (frmTemplateView.reMain.Lines.Count = 0) then + frmTemplateView.Close + else + begin + frmTemplateView.cbStayOnTop.Checked := LastStayOnTop; + frmTemplateView.ActiveControl := frmTemplateView.btnClose; + frmTemplateView.Show; + Application.ProcessMessages; + SendMessage(frmTemplateView.reMain.Handle, EM_LINESCROLL, 0, -1 * frmTemplateView.reMain.Lines.Count); + end; +end; + +procedure TfrmTemplateView.btnCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmTemplateView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + SaveUserBounds(frmTemplateView); + Action := caFree; +end; + +procedure TfrmTemplateView.cbStayOnTopClick(Sender: TObject); +begin + if(cbStayOnTop.Checked) then + FormStyle := fsStayOnTop + else + FormStyle := fsNormal; + if(LastStayOnTop <> cbStayOnTop.Checked) then + LastStayOnTop := cbStayOnTop.Checked; +end; + +procedure TfrmTemplateView.FormDestroy(Sender: TObject); +begin + frmTemplateView := nil; +end; + +procedure TfrmTemplateView.popViewPopup(Sender: TObject); +begin + Copy1.Enabled := (reMain.SelLength > 0); + SelectAll1.Enabled := (reMain.Lines.Count > 0); +end; + +procedure TfrmTemplateView.Copy1Click(Sender: TObject); +begin + reMain.CopyToClipboard; +end; + +procedure TfrmTemplateView.SelectAll1Click(Sender: TObject); +begin + reMain.SelectAll; +end; + +procedure TfrmTemplateView.btnPrintClick(Sender: TObject); +begin + PrintStrings(Self, reMain.Lines, Caption, 'End of template'); +end; + +procedure TfrmTemplateView.FormCreate(Sender: TObject); +begin + reMain.Color := ReadOnlyColor; +end; + +procedure TfrmTemplateView.FormShow(Sender: TObject); +begin + SetFormPosition(frmTemplateView); +end; + +end. diff --git a/CPRS-Chart/Templates/mTemplateFieldButton.dfm b/CPRS-Chart/Templates/mTemplateFieldButton.dfm new file mode 100644 index 0000000..3235c56 --- /dev/null +++ b/CPRS-Chart/Templates/mTemplateFieldButton.dfm @@ -0,0 +1,49 @@ +object fraTemplateFieldButton: TfraTemplateFieldButton + Left = 0 + Top = 0 + Width = 109 + Height = 14 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + TabOrder = 0 + TabStop = True + OnEnter = pnlBtnEnter + OnExit = pnlBtnExit + object pnlBtn: TPanel + Left = 0 + Top = 0 + Width = 109 + Height = 14 + Align = alClient + TabOrder = 0 + OnMouseDown = pnlBtnMouseDown + OnMouseUp = pnlBtnMouseUp + object lblText: TLabel + Left = 2 + Top = -1 + Width = 105 + Height = 14 + Alignment = taCenter + Anchors = [akLeft, akTop, akRight, akBottom] + AutoSize = False + Transparent = True + Layout = tlCenter + OnMouseDown = pnlBtnMouseDown + OnMouseUp = pnlBtnMouseUp + end + object pbFocus: TPaintBox + Left = 1 + Top = 1 + Width = 107 + Height = 12 + Align = alClient + OnMouseDown = pnlBtnMouseDown + OnMouseUp = pnlBtnMouseUp + OnPaint = pbFocusPaint + end + end +end diff --git a/CPRS-Chart/Templates/mTemplateFieldButton.pas b/CPRS-Chart/Templates/mTemplateFieldButton.pas new file mode 100644 index 0000000..aebe1e5 --- /dev/null +++ b/CPRS-Chart/Templates/mTemplateFieldButton.pas @@ -0,0 +1,147 @@ +unit mTemplateFieldButton; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls; + +type + TfraTemplateFieldButton = class(TFrame) + pnlBtn: TPanel; + lblText: TLabel; + pbFocus: TPaintBox; + procedure pnlBtnMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlBtnMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlBtnEnter(Sender: TObject); + procedure pnlBtnExit(Sender: TObject); + procedure pbFocusPaint(Sender: TObject); + private + FBtnDown: boolean; + FItems: TStringList; + FOnChange: TNotifyEvent; + procedure ButtonKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure ButtonKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); + function GetButtonText: string; + procedure SetButtonText(const Value: string); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + property ButtonText: string read GetButtonText write SetButtonText; + property Items: TStringList read FItems; + property OnChange: TNotifyEvent read FOnChange write FOnChange; + end; + +implementation + +{$R *.DFM} + +uses + ORFn; + +procedure TfraTemplateFieldButton.pnlBtnMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + txt: string; + i, idx: integer; + +begin + if(not FBtnDown) then + begin + FBtnDown := TRUE; + pnlBtn.BevelOuter := bvLowered; + if(FItems.Count > 0) then + begin + txt := ButtonText; + idx := FItems.Count-1; + for i := 0 to FItems.Count-1 do + begin + if(txt = FItems[i]) then + begin + idx := i; + break; + end; + end; + inc(idx); + if(idx >= FItems.Count) then + idx := 0; + ButtonText := FItems[idx]; + if assigned(FOnChange) then + FOnChange(Self); + end; + SetFocus; + end; +end; + +procedure TfraTemplateFieldButton.pnlBtnMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if(FBtnDown) then + begin + FBtnDown := FALSE; + pnlBtn.BevelOuter := bvRaised; + end; +end; + +procedure TfraTemplateFieldButton.pnlBtnEnter(Sender: TObject); +begin + pbFocus.Invalidate; +end; + +procedure TfraTemplateFieldButton.pnlBtnExit(Sender: TObject); +begin + pbFocus.Invalidate; +end; + +constructor TfraTemplateFieldButton.Create(AOwner: TComponent); +begin + inherited; + FItems := TStringList.Create; + OnKeyDown := ButtonKeyDown; + OnKeyUp := ButtonKeyUp; + Font.Size := MainFontSize; +end; + +procedure TfraTemplateFieldButton.ButtonKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_SPACE then + pnlBtnMouseDown(Sender, mbLeft, [], 0, 0); +end; + +procedure TfraTemplateFieldButton.ButtonKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + pnlBtnMouseUp(Sender, mbLeft, [], 0, 0); +end; + +function TfraTemplateFieldButton.GetButtonText: string; +begin + Result := lblText.Caption; +end; + +procedure TfraTemplateFieldButton.SetButtonText(const Value: string); +begin + lblText.Caption := Value; +end; + +procedure TfraTemplateFieldButton.pbFocusPaint(Sender: TObject); +var + R: TRect; +begin + if(Focused) then + begin + R := Rect(1, 0, pnlBtn.Width - 3, pnlBtn.Height-2); + pbFocus.Canvas.DrawFocusRect(R); + end; +end; + +destructor TfraTemplateFieldButton.Destroy; +begin + FItems.Free; + inherited; +end; + +end. diff --git a/CPRS-Chart/Templates/rTemplates.pas b/CPRS-Chart/Templates/rTemplates.pas new file mode 100644 index 0000000..8771ccd --- /dev/null +++ b/CPRS-Chart/Templates/rTemplates.pas @@ -0,0 +1,456 @@ +unit rTemplates; + +interface + +uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, uConst, TRPCB, uTIU; + +{ Templates } +procedure GetTemplateRoots; +function IsUserTemplateEditor(TemplateID: string; UserID :Int64): boolean; +procedure GetTemplateChildren(ID: string); +procedure GetTemplateBoilerplate(ID: string); +procedure GetTemplateText(BoilerPlate: TStrings); +function IsTemplateEditor(ID: string): boolean; +//function SubSetOfTemplateOwners(const StartFrom: string; Direction: Integer): TStrings; +function UpdateTemplate(ID: string; Fields: TStrings): string; +procedure UpdateChildren(ID: string; Children: TStrings); +procedure DeleteTemplates(DelList: TStrings); +procedure GetObjectList; +procedure GetAllowedPersonalObjects; +procedure TestBoilerplate(BoilerPlate: TStrings); +function GetTemplateAccess(ID: string): integer; +function SubSetOfBoilerplatedTitles(const StartFrom: string; Direction: Integer): TStrings; +function GetTitleBoilerplate(TitleIEN: string): string; +function GetUserTemplateDefaults(LoadFromServer: boolean = FALSE): string; +procedure SetUserTemplateDefaults(Value: string; PieceNum: integer); +procedure SaveUserTemplateDefaults; +procedure LoadTemplateDescription(TemplateIEN: string); +function GetTemplateAllowedReminderDialogs: TStrings; +function IsRemDlgAllowed(RemDlgIEN: string): integer; +function LockTemplate(const ID: string): boolean; // returns true if successful +procedure UnlockTemplate(const ID: string); +function GetLinkedTemplateData(const Link: string): string; +function SubSetOfAllTitles(const StartFrom: string; Direction: Integer): TStrings; + +{ Template Fields } +function SubSetOfTemplateFields(const StartFrom: string; Direction: Integer): TStrings; +function LoadTemplateField(const DlgFld: string): TStrings; +function LoadTemplateFieldByIEN(const DlgFld: string): TStrings; +function CanEditTemplateFields: boolean; +function UpdateTemplateField(const ID: string; Fields: TStrings): string; +function LockTemplateField(const ID: string): boolean; +procedure UnlockTemplateField(const ID: string); +procedure DeleteTemplateField(const ID: string); +function ExportTemplateFields(FldList: TStrings): TStrings; +function ImportTemplateFields(FldList: TStrings): TStrings; +function IsTemplateFieldNameUnique(const FldName, IEN: string): boolean; +procedure Convert2LMText(Text: TStringList); +procedure CheckTemplateFields(ResultString: TStrings); +function BuildTemplateFields(XMLString: TStrings): boolean; +function ImportLoadedFields(ResultSet: TStrings): boolean; + +implementation +var + uUserTemplateDefaults: string = ''; + uCanEditDlgFldChecked: boolean = FALSE; + uCanEditDlgFlds: boolean; + +{ Template RPCs -------------------------------------------------------------- } + +procedure GetTemplateRoots; +begin + CallV('TIU TEMPLATE GETROOTS', [User.DUZ]); +end; + +function IsUserTemplateEditor(TemplateID: string; UserID :Int64): boolean; +begin + if StrToIntDef(TemplateID,0) > 0 then + Result := (Piece(sCallV('TIU TEMPLATE ISEDITOR', [TemplateID, UserID]),U,1) = '1') + else + Result := FALSE; +end; + +procedure GetTemplateChildren(ID: string); +begin + if(ID = '') or (ID = '0') then + RPCBrokerV.Results.Clear + else + CallV('TIU TEMPLATE GETITEMS', [ID]); +end; + +procedure GetTemplateBoilerplate(ID: string); +begin + if(ID = '') or (ID = '0') then + RPCBrokerV.Results.Clear + else + CallV('TIU TEMPLATE GETBOIL', [ID]); +end; + +procedure GetTemplateText(BoilerPlate: TStrings); +var + i: integer; + +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'TIU TEMPLATE GETTEXT'; + Param[0].PType := literal; + Param[0].Value := Patient.DFN; + Param[1].PType := literal; + Param[1].Value := Encounter.VisitStr; + Param[2].PType := list; + for i := 0 to BoilerPlate.Count-1 do + Param[2].Mult[IntToStr(i+1)+',0'] := BoilerPlate[i]; + CallBroker; + RPCBrokerV.Results.Delete(0); + BoilerPlate.Assign(RPCBrokerV.Results); + RPCBrokerV.Results.Clear; + end; +end; + +function IsTemplateEditor(ID: string): boolean; +begin + Result := (sCallV('TIU TEMPLATE ISEDITOR', [ID, User.DUZ]) = '1'); +end; + +//function SubSetOfTemplateOwners(const StartFrom: string; Direction: Integer): TStrings; +//begin +// CallV('TIU TEMPLATE LISTOWNR', [StartFrom, Direction]); +// MixedCaseList(RPCBrokerV.Results); +// Result := RPCBrokerV.Results; +//end; + +function UpdateTIURec(RPC, ID: string; Fields: TStrings): string; +var + i, j: integer; + +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := RPC; + Param[0].PType := literal; + Param[0].Value := ID; + Param[1].PType := list; + for i := 0 to Fields.Count-1 do + begin + j := pos('=',Fields[i]); + if(j > 0) then + Param[1].Mult[Fields.Names[i]] := copy(Fields[i],j+1,MaxInt); + end; + CallBroker; + Result := RPCBrokerV.Results[0]; + end; +end; + +function UpdateTemplate(ID: string; Fields: TStrings): string; +begin + Result := UpdateTIURec('TIU TEMPLATE CREATE/MODIFY', ID, Fields); +end; + +procedure UpdateChildren(ID: string; Children: TStrings); +var + i: integer; + +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'TIU TEMPLATE SET ITEMS'; + Param[0].PType := literal; + Param[0].Value := ID; + Param[1].PType := list; + for i := 0 to Children.Count-1 do + Param[1].Mult[IntToStr(i+1)] := Children[i]; + CallBroker; + end; +end; + +procedure DeleteTemplates(DelList: TStrings); +var + i: integer; + +begin + if(DelList.Count > 0) then + begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'TIU TEMPLATE DELETE'; + Param[0].PType := list; + for i := 0 to DelList.Count-1 do + Param[0].Mult[IntToStr(i+1)] := DelList[i]; + CallBroker; + end; + end; +end; + +procedure GetObjectList; +begin + CallV('TIU GET LIST OF OBJECTS', []); +end; + +procedure GetAllowedPersonalObjects; +begin + CallV('TIU TEMPLATE PERSONAL OBJECTS', []); +end; + +procedure TestBoilerplate(BoilerPlate: TStrings); +var + i: integer; + +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'TIU TEMPLATE CHECK BOILERPLATE'; + Param[0].PType := list; + for i := 0 to BoilerPlate.Count-1 do + Param[0].Mult['2,'+IntToStr(i+1)+',0'] := BoilerPlate[i]; + CallBroker; + end; +end; + +function GetTemplateAccess(ID: string): integer; +begin + Result := StrToIntDef(sCallV('TIU TEMPLATE ACCESS LEVEL', [ID, User.DUZ, Encounter.Location]), 0); +end; + +function SubSetOfBoilerplatedTitles(const StartFrom: string; Direction: Integer): TStrings; +begin + CallV('TIU LONG LIST BOILERPLATED', [StartFrom, Direction]); + Result := RPCBrokerV.Results; +end; + +function GetTitleBoilerplate(TitleIEN: string): string; +begin + CallV('TIU GET BOILERPLATE', [TitleIEN]); + Result := RPCBrokerV.Results.Text; +end; + +function GetUserTemplateDefaults(LoadFromServer: boolean = FALSE): string; +begin + if(LoadFromServer) then + uUserTemplateDefaults := sCallV('TIU TEMPLATE GET DEFAULTS', []); + Result := uUserTemplateDefaults; +end; + +procedure SetUserTemplateDefaults(Value: string; PieceNum: integer); +begin + SetPiece(uUserTemplateDefaults, '/', PieceNum, Value); +end; + +procedure SaveUserTemplateDefaults; +begin + CallV('TIU TEMPLATE SET DEFAULTS', [uUserTemplateDefaults]); +end; + +procedure LoadTemplateDescription(TemplateIEN: string); +begin + CallV('TIU TEMPLATE GET DESCRIPTION', [TemplateIEN]); +end; + +function GetTemplateAllowedReminderDialogs: TStrings; +var + TmpList: TStringList; + +begin + CallV('TIU REMINDER DIALOGS', []); + TmpList := TStringList.Create; + try + TmpList.Assign(RPCBrokerV.Results); + SortByPiece(TmpList, U, 2); + MixedCaseList(TmpList); + RPCBrokerV.Results.Assign(TmpList); + finally + TmpList.Free; + end; + Result := RPCBrokerV.Results; +end; + +function IsRemDlgAllowed(RemDlgIEN: string): integer; +// -1 = inactive or deleted, 0 = not in Param, 1 = allowed +begin + Result := StrToIntDef(sCallV('TIU REM DLG OK AS TEMPLATE', [RemDlgIEN]),-1); +end; + +function LockTemplate(const ID: string): boolean; // returns true if successful +begin + Result := (sCallV('TIU TEMPLATE LOCK', [ID]) = '1') +end; + +procedure UnlockTemplate(const ID: string); +begin + CallV('TIU TEMPLATE UNLOCK', [ID]); +end; + +function GetLinkedTemplateData(const Link: string): string; +begin + Result := sCallV('TIU TEMPLATE GETLINK', [Link]); +end; + +function SubSetOfAllTitles(const StartFrom: string; Direction: Integer): TStrings; +begin + CallV('TIU TEMPLATE ALL TITLES', [StartFrom, Direction]); + Result := RPCBrokerV.Results; +end; + +{ Template Fields } + +function SubSetOfTemplateFields(const StartFrom: string; Direction: Integer): TStrings; +begin + CallV('TIU FIELD LIST', [StartFrom, Direction]); + Result := RPCBrokerV.Results; +end; + +function LoadTemplateField(const DlgFld: string): TStrings; +begin + CallV('TIU FIELD LOAD', [DlgFld]); + Result := RPCBrokerV.Results; +end; + +function LoadTemplateFieldByIEN(const DlgFld: string): TStrings; +begin + CallV('TIU FIELD LOAD BY IEN', [DlgFld]); + Result := RPCBrokerV.Results; +end; + +function CanEditTemplateFields: boolean; +begin + if(not uCanEditDlgFldChecked) then + begin + uCanEditDlgFldChecked := TRUE; + uCanEditDlgFlds := sCallV('TIU FIELD CAN EDIT', []) = '1'; + end; + Result := uCanEditDlgFlds; +end; + +function UpdateTemplateField(const ID: string; Fields: TStrings): string; +begin + Result := UpdateTIURec('TIU FIELD SAVE', ID, Fields); +end; + +function LockTemplateField(const ID: string): boolean; // returns true if successful +begin + Result := (sCallV('TIU FIELD LOCK', [ID]) = '1') +end; + +procedure UnlockTemplateField(const ID: string); +begin + CallV('TIU FIELD UNLOCK', [ID]); +end; + +procedure DeleteTemplateField(const ID: string); +begin + CallV('TIU FIELD DELETE', [ID]); +end; + +function CallImportExportTemplateFields(FldList: TStrings; RPCName: string): TStrings; +var + i: integer; + +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := RPCName; + Param[0].PType := list; + for i := 0 to FldList.Count-1 do + Param[0].Mult[IntToStr(i+1)] := FldList[i]; + CallBroker; + end; + Result := RPCBrokerV.Results; +end; + +function ExportTemplateFields(FldList: TStrings): TStrings; +begin + Result := CallImportExportTemplateFields(FldList, 'TIU FIELD EXPORT'); +end; + +function ImportTemplateFields(FldList: TStrings): TStrings; +begin + Result := CallImportExportTemplateFields(FldList, 'TIU FIELD IMPORT'); +end; + +procedure CheckTemplateFields(ResultString: TStrings); +begin + CallV('TIU FIELD CHECK',[nil]); + ResultString.Assign(RPCBrokerV.Results); +end; + +function IsTemplateFieldNameUnique(const FldName, IEN: string): boolean; +begin + Result := sCallV('TIU FIELD NAME IS UNIQUE', [FldName, IEN]) = '1'; +end; + +procedure Convert2LMText(Text: TStringList); +var + i: integer; +begin + with RPCBrokerV do + begin + ClearParameters := True; + RemoteProcedure := 'TIU FIELD DOLMTEXT'; + Param[0].PType := list; + for i := 0 to Text.Count-1 do + Param[0].Mult[IntToStr(i+1)+',0'] := Text[i]; + CallBroker; + end; + Text.Assign(RPCBrokerV.Results); +end; + +function BuildTemplateFields(XMLString: TStrings): boolean; //Simply builds XML fields on the server +var //in chunks. + i,j,p1: integer; + ok: boolean; + + procedure reset_broker; + begin + with RPCBrokerV do begin + ClearParameters := True; + RemoteProcedure := 'TIU FIELD LIST ADD'; + Param[0].PType := list; + end; + end; + +begin + ok := TRUE; + with RPCBrokerV do + begin + reset_broker; + j := 1; + for i := 0 to XMLString.Count-1 do begin + p1 := pos('',copy(XMLString[i],p1+13,maxint)) > 0) then begin + j := j + 1; + if (j > 50) then begin + j := 1; + CallBroker; + if pos('1',Results[0]) = 0 then begin + ok := FALSE; + break; + end;//if + reset_broker; + end;//if + end;//if + Param[0].Mult[IntToStr(i+1)] := XMLString[i]; + end;//for + if ok then begin + CallBroker; + if pos('1',Results[0]) = 0 then ok := FALSE; + end;//if + end; + Result := ok; +end; + +function ImportLoadedFields(ResultSet: TStrings): boolean; +begin + Result := TRUE; + CallV('TIU FIELD LIST IMPORT',[nil]); + ResultSet.Assign(RPCBrokerV.Results); + if ResultSet.Count < 1 then + Result := FALSE; +end; + +end. diff --git a/CPRS-Chart/Templates/uTemplateFields.pas b/CPRS-Chart/Templates/uTemplateFields.pas new file mode 100644 index 0000000..7051730 --- /dev/null +++ b/CPRS-Chart/Templates/uTemplateFields.pas @@ -0,0 +1,2379 @@ +unit uTemplateFields; + +interface + +uses + Forms, SysUtils, Classes, Dialogs, StdCtrls, ExtCtrls, Controls, Contnrs, + Graphics, ORClasses, ComCtrls, ORDtTm; + +type + TTemplateFieldType = (dftUnknown, dftEditBox, dftComboBox, dftButton, dftCheckBoxes, + dftRadioButtons, dftDate, dftNumber, dftHyperlink, dftWP, dftText); + + TTmplFldDateType = (dtUnknown, dtDate, dtDateTime, dtDateReqTime, + dtCombo, dtYear, dtYearMonth); + +const + FldItemTypes = [dftComboBox, dftButton, dftCheckBoxes, dftRadioButtons, dftWP, dftText]; + SepLinesTypes = [dftCheckBoxes, dftRadioButtons]; + EditLenTypes = [dftEditBox, dftComboBox, dftWP]; + EditDfltTypes = [dftEditBox, dftHyperlink]; + EditDfltType2 = [dftEditBox, dftHyperlink, dftDate]; + ItemDfltTypes = [dftComboBox, dftButton, dftCheckBoxes, dftRadioButtons]; + NoRequired = [dftHyperlink, dftText]; + ExcludeText = [dftHyperlink, dftText]; + DateComboTypes = [dtCombo, dtYear, dtYearMonth]; + +type + TTemplateDialogEntry = class(TObject) + private + FID: string; + FFont: TFont; + FPanel: TPanel; + FControls: TStringList; + FIndents: TStringList; + FFirstBuild: boolean; + FOnChange: TNotifyEvent; + FText: string; + FInternalID: string; + FObj: TObject; + FFieldValues: string; + FUpdating: boolean; + FAutoDestroyOnPanelFree: boolean; + FPanelDying: boolean; + FOnDestroy: TNotifyEvent; + procedure KillLabels; + function GetFieldValues: string; + procedure SetFieldValues(const Value: string); + procedure SetAutoDestroyOnPanelFree(const Value: boolean); + protected + procedure UpDownChange(Sender: TObject); + procedure DoChange(Sender: TObject); + function GetControlText(CtrlID: integer; NoCommas: boolean; + var FoundEntry: boolean; AutoWrap: boolean; + emField: string = ''): string; + procedure SetControlText(CtrlID: integer; AText: string); + public + constructor Create(AParent: TWinControl; AID, Text: string); + destructor Destroy; override; + function GetPanel(MaxLen: integer; AParent: TWinControl): TPanel; + function GetText: string; + property Text: string read FText write FText; + property InternalID: string read FInternalID write FInternalID; + property ID: string read FID; + property Obj: TObject read FObj write FObj; + property OnChange: TNotifyEvent read FOnChange write FOnChange; + property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy; + property FieldValues: string read GetFieldValues write SetFieldValues; + property AutoDestroyOnPanelFree: boolean read FAutoDestroyOnPanelFree + write SetAutoDestroyOnPanelFree; + end; + + TTemplateField = class(TObject) + private + FMaxLen: integer; + FFldName: string; + FNameChanged: boolean; + FLMText: string; + FEditDefault: string; + FNotes: string; + FItems: string; + FInactive: boolean; + FItemDefault: string; + FFldType: TTemplateFieldType; + FRequired: boolean; + FSepLines: boolean; + FTextLen: integer; + FIndent: integer; + FPad: integer; + FMinVal: integer; + FMaxVal: integer; + FIncrement: integer; + FURL: string; + FDateType: TTmplFldDateType; + FModified: boolean; + FID: string; + FLocked: boolean; + procedure SetEditDefault(const Value: string); + procedure SetFldName(const Value: string); + procedure SetFldType(const Value: TTemplateFieldType); + procedure SetInactive(const Value: boolean); + procedure SetRequired(const Value: boolean); + procedure SetSepLines(const Value: boolean); + procedure SetItemDefault(const Value: string); + procedure SetItems(const Value: string); + procedure SetLMText(const Value: string); + procedure SetMaxLen(const Value: integer); + procedure SetNotes(const Value: string); + procedure SetID(const Value: string); + procedure SetIncrement(const Value: integer); + procedure SetIndent(const Value: integer); + procedure SetMaxVal(const Value: integer); + procedure SetMinVal(const Value: integer); + procedure SetPad(const Value: integer); + procedure SetTextLen(const Value: integer); + procedure SetURL(const Value: string); + function GetTemplateFieldDefault: string; + procedure CreateDialogControls(Entry: TTemplateDialogEntry; + var Index: Integer; CtrlID: integer); + function SaveError: string; + function Width: integer; + function GetRequired: boolean; + procedure SetDateType(const Value: TTmplFldDateType); + public + constructor Create(AData: TStrings); + destructor Destroy; override; + procedure Assign(AFld: TTemplateField); + function NewField: boolean; + function CanModify: boolean; + property ID: string read FID write SetID; + property FldName: string read FFldName write SetFldName; + property NameChanged: boolean read FNameChanged; + property FldType: TTemplateFieldType read FFldType write SetFldType; + property MaxLen: integer read FMaxLen write SetMaxLen; + property EditDefault: string read FEditDefault write SetEditDefault; + property Items: string read FItems write SetItems; + property ItemDefault: string read FItemDefault write SetItemDefault; + property LMText: string read FLMText write SetLMText; + property Inactive: boolean read FInactive write SetInactive; + property Required: boolean read GetRequired write SetRequired; + property SepLines: boolean read FSepLines write SetSepLines; + property TextLen: integer read FTextLen write SetTextLen; + property Indent: integer read FIndent write SetIndent; + property Pad: integer read FPad write SetPad; + property MinVal: integer read FMinVal write SetMinVal; + property MaxVal: integer read FMaxVal write SetMaxVal; + property Increment: integer read FIncrement write SetIncrement; + property URL: string read FURL write SetURL; + property DateType: TTmplFldDateType read FDateType write SetDateType; + property Notes: string read FNotes write SetNotes; + property TemplateFieldDefault: string read GetTemplateFieldDefault; + end; + + TIntStruc = class(TObject) + public + x: integer; + end; + +function GetDialogEntry(AParent: TWinControl; AID, AText: string): TTemplateDialogEntry; +procedure FreeEntries(SL: TStrings); +procedure AssignFieldIDs(var Txt: string); overload; +procedure AssignFieldIDs(SL: TStrings); overload; +function ResolveTemplateFields(Text: string; AutoWrap: boolean; Hidden: boolean = FALSE; IncludeEmbedded: boolean = FALSE): string; +function AreTemplateFieldsRequired(const Text: string; FldValues: TORStringList = nil): boolean; +function HasTemplateField(txt: string): boolean; + +function GetTemplateField(ATemplateField: string; ByIEN: boolean): TTemplateField; +function TemplateFieldNameProblem(Fld: TTemplateField): boolean; +function SaveTemplateFieldErrors: string; +procedure ClearModifiedTemplateFields; +function AnyTemplateFieldsModified: boolean; +procedure ListTemplateFields(const AText: string; AList: TStrings; ListErrors: boolean = FALSE); +function BoilerplateTemplateFieldsOK(const AText: string; Msg: string = ''): boolean; +procedure EnsureText(edt: TEdit; ud: TUpDown); +procedure ConvertCodes2Text(sl: TStrings; Short: boolean); +function StripEmbedded(iItems: string): string; + +const + TemplateFieldBeginSignature = '{FLD:'; + TemplateFieldEndSignature = '}'; + MissingFieldsTxt = 'One or more required fields must still be entered.'; + + TemplateFieldTypeCodes: array[TTemplateFieldType] of string[1] = + { dftUnknown } ('', + { dftEditBox } 'E', + { dftComboBox } 'C', + { dftButton } 'B', + { dftCheckBoxes } 'X', + { dftRadioButtons } 'R', + { dftDate } 'D', + { dftNumber } 'N', + { dftHyperlink } 'H', + { dftWP } 'W', + { dftText } 'T'); + + TemplateFieldTypeDesc: array[TTemplateFieldType, boolean] of string = + { dftUnknown } (('',''), + { dftEditBox } ('Edit Box', 'Edit'), + { dftComboBox } ('Combo Box', 'Combo'), + { dftButton } ('Button', 'Button'), + { dftCheckBoxes } ('Check Boxes', 'Check'), + { dftRadioButtons } ('Radio Buttons', 'Radio'), + { dftDate } ('Date', 'Date'), + { dftNumber } ('Number', 'Num'), + { dftHyperlink } ('Hyperlink', 'Link'), + { dftWP } ('Word Processing','WP'), + { dftWP } ('Display Text', 'Text')); + + TemplateDateTypeDesc: array[TTmplFldDateType, boolean] of string = + { dtUnknown } (('',''), + { dtDate } ('Date', 'Date'), + { dtDateTime } ('Date & Time', 'Time'), + { dtDateReqTime } ('Date & Req Time','R.Time'), + { dtCombo } ('Date Combo', 'C.Date'), + { dtYear } ('Year', 'Year'), + { dtYearMonth } ('Year & Month', 'Month')); + + FldNames: array[TTemplateFieldType] of string = + { dftUnknown } ('', + { dftEditBox } 'EDIT', + { dftComboBox } 'LIST', + { dftButton } 'BTTN', + { dftCheckBoxes } 'CBOX', + { dftRadioButtons } 'RBTN', + { dftDate } 'DATE', + { dftNumber } 'NUMB', + { dftHyperlink } 'LINK', + { dftWP } 'WRDP', + { dftTExt } 'TEXT'); + + TemplateFieldDateCodes: array[TTmplFldDateType] of string[1] = + { dtUnknown } ('', + { dtDate } 'D', + { dtDateTime } 'T', + { dtDateReqTime } 'R', + { dtCombo } 'C', + { dtYear } 'Y', + { dtYearMonth } 'M'); + + MaxTFWPLines = 20; + MaxTFEdtLen = 70; + +type + TFieldPanel = class(TPanel) {This is the panel associated with the child} + private {dialog checkboxes in reminders dialogs} + FOnDestroy: TNotifyEvent; + FCanvas: TControlCanvas; {used to draw focus rect} + function GetFocus: boolean; + procedure SetTheFocus(const Value: boolean); + protected {used to draw focus rect} + procedure Paint; override; {used to draw focus rect} + public + destructor Destroy; override; + property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy; + property Focus: boolean read GetFocus write SetTheFocus; {to draw focus rect} + property OnKeyPress; {to click the checkbox when spacebar is pressed} + end; + +implementation + +uses + ORFn, rTemplates, ORCtrls, mTemplateFieldButton, dShared, uConst, uCore, rCore, Windows; + +const + NewTemplateField = 'NEW TEMPLATE FIELD'; + TemplateFieldSignatureLen = length(TemplateFieldBeginSignature); + TemplateFieldSignatureEndLen = length(TemplateFieldEndSignature); + +var + uTmplFlds: TList = nil; + uEntries: TStringList = nil; + + uNewTemplateFieldIDCnt: longint = 0; + uRadioGroupIndex: integer = 0; + + uInternalFieldIDCount: integer = 0; + +const + FieldIDDelim = '`'; + FieldIDLen = 6; + NewLine = 'NL'; + +type + TFieldLabel = class(TLabel) + private + FExclude: boolean; + public + property Exclude: boolean read FExclude; + end; + + TWebLabel = class(TFieldLabel) + private + FAddr: string; + procedure Clicked(Sender: TObject); + public + procedure Init(Addr: string); + end; + +function GetNewFieldID: string; +begin + inc(uInternalFieldIDCount); + Result := IntToStr(uInternalFieldIDCount); + Result := FieldIDDelim + + copy(StringOfChar('0', FieldIDLen-2) + Result, length(Result), FieldIDLen-1); +end; + +function GetDialogEntry(AParent: TWinControl; AID, AText: string): TTemplateDialogEntry; +var + idx: integer; + +begin + Result := nil; + if AID = '' then exit; + if(not assigned(uEntries)) then + uEntries := TStringList.Create; + idx := uEntries.IndexOf(AID); + if(idx < 0) then + begin + Result := TTemplateDialogEntry.Create(AParent, AID, AText); + uEntries.AddObject(AID, Result); + end + else + Result := TTemplateDialogEntry(uEntries.Objects[idx]); +end; + +procedure FreeEntries(SL: TStrings); +var + i, idx, cnt: integer; + +begin + if(assigned(uEntries)) then + begin + for i := SL.Count-1 downto 0 do + begin + idx := uEntries.IndexOf(SL[i]); + if(idx >= 0) then + begin + cnt := uEntries.Count; + if(assigned(uEntries.Objects[idx])) then + begin + TTemplateDialogEntry(uEntries.Objects[idx]).AutoDestroyOnPanelFree := FALSE; + uEntries.Objects[idx].Free; + end; + if cnt = uEntries.Count then + uEntries.Delete(idx); + end; + end; + if(uEntries.Count = 0) then + uInternalFieldIDCount := 0; + end; +end; + +procedure AssignFieldIDs(var Txt: string); +var + i: integer; + +begin + i := 0; + while (i < length(Txt)) do + begin + inc(i); + if(copy(Txt,i,TemplateFieldSignatureLen) = TemplateFieldBeginSignature) then + begin + inc(i,TemplateFieldSignatureLen); + if(i < length(Txt)) and (copy(Txt,i,1) <> FieldIDDelim) then + begin + insert(GetNewFieldID, Txt, i); + inc(i, FieldIDLen); + end; + end; + end; +end; + +procedure AssignFieldIDs(SL: TStrings); +var + i: integer; + txt: string; + +begin + for i := 0 to SL.Count-1 do + begin + txt := SL[i]; + AssignFieldIDs(txt); + SL[i] := txt; + end; +end; + +procedure WordWrapText(var Txt: string); +var + TmpSL: TStringList; + i: integer; + + function WrappedText(const Str: string): string; + var + i, i2, j, k: integer; + Temp: string; + + begin + Temp := Str; + Result := ''; + i2 := 0; + + repeat + i := pos(TemplateFieldBeginSignature, Temp); + + if i>0 then + j := pos(TemplateFieldEndSignature, copy(Temp, i, MaxInt)) + else + j := 0; + + if (j > 0) then + begin + i2 := pos(TemplateFieldBeginSignature, copy(Temp, i+TemplateFieldSignatureLen, MaxInt)); + if (i2 = 0) then + i2 := MaxInt + else + i2 := i + TemplateFieldSignatureLen + i2 - 1; + end; + + if (i>0) and (j=0) then + i := 0; + + if (i>0) and (j>0) then + if (j > i2) then + begin + Result := Result + copy(Temp, 1, i2-1); + delete(Temp, 1, i2-1); + end + else + begin + for k := (i+TemplateFieldSignatureLen) to (i+j-2) do + if Temp[k]=' ' then + Temp[k]:= #1; + i := i + j - 1; + Result := Result + copy(Temp,1,i); + delete(Temp,1,i); + end; + + until (i = 0); + + Result := Result + Temp; + Result := WrapText(Result, #13#10, [' '], MAX_ENTRY_WIDTH); + repeat + i := pos(#1, Result); + if i > 0 then + Result[i] := ' '; + until i = 0; + end; + +begin + if length(Txt) > MAX_ENTRY_WIDTH then + begin + TmpSL := TStringList.Create; + try + TmpSL.Text := Txt; + Txt := ''; + for i := 0 to TmpSL.Count-1 do + begin + if Txt <> '' then + Txt := Txt + CRLF; + Txt := Txt + WrappedText(TmpSL[i]); + end; + finally + TmpSL.Free; + end; + end; +end; + +function ResolveTemplateFields(Text: string; + AutoWrap: boolean; + Hidden: boolean = FALSE; + IncludeEmbedded: boolean = FALSE): string; +var + flen, CtrlID, i, j: integer; + Entry: TTemplateDialogEntry; + iField, Temp, NewTxt, Fld: string; + FoundEntry: boolean; + TmplFld: TTemplateField; + + procedure AddNewTxt; + begin + if(NewTxt <> '') then + begin + insert(StringOfChar('x',length(NewTxt)), Temp, i); + insert(NewTxt, Result, i); + inc(i, length(NewTxt)); + end; + end; + +begin + if(not assigned(uEntries)) then + uEntries := TStringList.Create; + Result := Text; + Temp := Text; // Use Temp to allow template fields to contain other template field references + repeat + i := pos(TemplateFieldBeginSignature, Temp); + if(i > 0) then + begin + CtrlID := 0; + if(copy(Temp, i + TemplateFieldSignatureLen, 1) = FieldIDDelim) then + begin + CtrlID := StrToIntDef(copy(Temp, i + TemplateFieldSignatureLen + 1, FieldIDLen-1), 0); + delete(Temp,i + TemplateFieldSignatureLen, FieldIDLen); + delete(Result,i + TemplateFieldSignatureLen, FieldIDLen); + end; + j := pos(TemplateFieldEndSignature, copy(Temp, i + TemplateFieldSignatureLen, MaxInt)); + Fld := ''; + if(j > 0) then + begin + inc(j, i + TemplateFieldSignatureLen - 1); + flen := j - i - TemplateFieldSignatureLen; + Fld := copy(Temp,i + TemplateFieldSignatureLen, flen); + delete(Temp,i,flen + TemplateFieldSignatureLen + 1); + delete(Result,i,flen + TemplateFieldSignatureLen + 1); + end + else + begin + delete(Temp,i,TemplateFieldSignatureLen); + delete(Result,i,TemplateFieldSignatureLen); + end; + if(CtrlID > 0) then + begin + FoundEntry := FALSE; + for j := 0 to uEntries.Count-1 do + begin + Entry := TTemplateDialogEntry(uEntries.Objects[j]); + if(assigned(Entry)) then + begin + if IncludeEmbedded then + iField := Fld + else + iField := ''; + NewTxt := Entry.GetControlText(CtrlID, FALSE, FoundEntry, AutoWrap, iField); + TmplFld := GetTemplateField(Fld, FALSE); + if (assigned(TmplFld)) and (TmplFld.DateType in DateComboTypes) then {if this is a TORDateBox} + NewTxt := Piece(NewTxt,':',1); {we only want the first piece of NewTxt} + AddNewTxt; + end; + if FoundEntry then break; + end; + if Hidden and (not FoundEntry) and (Fld <> '') then + begin + NewTxt := TemplateFieldBeginSignature + Fld + TemplateFieldEndSignature; + AddNewTxt; + end; + end; + end; + until(i = 0); + if not AutoWrap then + WordWrapText(Result); +end; + +function AreTemplateFieldsRequired(const Text: string; FldValues: TORStringList = nil): boolean; +var + flen, CtrlID, i, j: integer; + Entry: TTemplateDialogEntry; + Fld: TTemplateField; + Temp, NewTxt, FldName: string; + FoundEntry: boolean; + +begin + if(not assigned(uEntries)) then + uEntries := TStringList.Create; + Temp := Text; + Result := FALSE; + repeat + i := pos(TemplateFieldBeginSignature, Temp); + if(i > 0) then + begin + CtrlID := 0; + if(copy(Temp, i + TemplateFieldSignatureLen, 1) = FieldIDDelim) then + begin + CtrlID := StrToIntDef(copy(Temp, i + TemplateFieldSignatureLen + 1, FieldIDLen-1), 0); + delete(Temp,i + TemplateFieldSignatureLen, FieldIDLen); + end; + j := pos(TemplateFieldEndSignature, copy(Temp, i + TemplateFieldSignatureLen, MaxInt)); + if(j > 0) then + begin + inc(j, i + TemplateFieldSignatureLen - 1); + flen := j - i - TemplateFieldSignatureLen; + FldName := copy(Temp, i + TemplateFieldSignatureLen, flen); + Fld := GetTemplateField(FldName, FALSE); + delete(Temp,i,flen + TemplateFieldSignatureLen + 1); + end + else + begin + delete(Temp,i,TemplateFieldSignatureLen); + Fld := nil; + end; + if(CtrlID > 0) and (assigned(Fld)) and (Fld.Required) then + begin + FoundEntry := FALSE; + for j := 0 to uEntries.Count-1 do + begin + Entry := TTemplateDialogEntry(uEntries.Objects[j]); + if(assigned(Entry)) then + begin + NewTxt := Entry.GetControlText(CtrlID, TRUE, FoundEntry, FALSE); + if FoundEntry and (NewTxt = '') then + Result := TRUE; + end; + if FoundEntry then break; + end; + if (not FoundEntry) and assigned(FldValues) then + begin + j := FldValues.IndexOfPiece(IntToStr(CtrlID)); + if(j < 0) or (Piece(FldValues[j],U,2) = '') then + Result := TRUE; + end; + end; + end; + until((i = 0) or Result); +end; + +function HasTemplateField(txt: string): boolean; +begin + Result := (pos(TemplateFieldBeginSignature, txt) > 0); +end; + +function GetTemplateField(ATemplateField: string; ByIEN: boolean): TTemplateField; +var + i, idx: integer; + AData: TStrings; + +begin + Result := nil; + if(not assigned(uTmplFlds)) then + uTmplFlds := TList.Create; + idx := -1; + for i := 0 to uTmplFlds.Count-1 do + begin + if(ByIEN) then + begin + if(TTemplateField(uTmplFlds[i]).FID = ATemplateField) then + begin + idx := i; + break; + end; + end + else + begin + if(TTemplateField(uTmplFlds[i]).FFldName = ATemplateField) then + begin + idx := i; + break; + end; + end; + end; + if(idx < 0) then + begin + if(ByIEN) then + AData := LoadTemplateFieldByIEN(ATemplateField) + else + AData := LoadTemplateField(ATemplateField); + if(AData.Count > 1) then + Result := TTemplateField.Create(AData); + end + else + Result := TTemplateField(uTmplFlds[idx]); +end; + +function TemplateFieldNameProblem(Fld: TTemplateField): boolean; +const + DUPFLD = 'Field Name is not unique'; + +var + i: integer; + msg: string; + +begin + msg := ''; + if(Fld.FldName = NewTemplateField) then + msg := 'Field Name can not be ' + NewTemplateField + else + if(length(Fld.FldName) < 3) then + msg := 'Field Name must be at least three characters in length' + else + if(not (Fld.FldName[1] in ['A'..'Z','0'..'9'])) then + msg := 'First Field Name character must be "A" - "Z", or "0" - "9"' + else + if(assigned(uTmplFlds)) then + begin + for i := 0 to uTmplFlds.Count-1 do + begin + if(Fld <> uTmplFlds[i]) and + (CompareText(TTemplateField(uTmplFlds[i]).FFldName, Fld.FFldName) = 0) then + begin + msg := DUPFLD; + break; + end; + end; + end; + if(msg = '') and (not IsTemplateFieldNameUnique(Fld.FFldName, Fld.ID)) then + msg := DUPFLD; + Result := (msg <> ''); + if(Result) then + ShowMessage(msg); +end; + +function SaveTemplateFieldErrors: string; +var + i: integer; + Errors: TStringList; + Fld: TTemplateField; + msg: string; + +begin + Result := ''; + if(assigned(uTmplFlds)) then + begin + Errors := nil; + try + for i := 0 to uTmplFlds.Count-1 do + begin + Fld := TTemplateField(uTmplFlds[i]); + if(Fld.FModified) then + begin + msg := Fld.SaveError; + if(msg <> '') then + begin + if(not assigned(Errors)) then + begin + Errors := TStringList.Create; + Errors.Add('The following template field save errors have occurred:'); + Errors.Add(''); + end; + Errors.Add(' ' + Fld.FldName + ': ' + msg); + end; + end; + end; + finally + if(assigned(Errors)) then + begin + Result := Errors.Text; + Errors.Free; + end; + end; + end; +end; + +procedure ClearModifiedTemplateFields; +var + i: integer; + Fld: TTemplateField; + +begin + if(assigned(uTmplFlds)) then + begin + for i := uTmplFlds.Count-1 downto 0 do + begin + Fld := TTemplateField(uTmplFlds[i]); + if(assigned(Fld)) and (Fld.FModified) then + begin + if Fld.FLocked then + UnlockTemplateField(Fld.FID); + Fld.Free; + end; + end; + end; +end; + +function AnyTemplateFieldsModified: boolean; +var + i: integer; + +begin + Result := FALSE; + if(assigned(uTmplFlds)) then + begin + for i := 0 to uTmplFlds.Count-1 do + begin + if(TTemplateField(uTmplFlds[i]).FModified) then + begin + Result := TRUE; + break; + end; + end; + end; +end; + +procedure ListTemplateFields(const AText: string; AList: TStrings; ListErrors: boolean = FALSE); +var + i, j, k, flen, BadCount: integer; + flddesc, tmp, fld: string; + TmpList: TStringList; + InactiveList: TStringList; + FldObj: TTemplateField; + +begin + if(AText = '') then exit; + BadCount := 0; + InactiveList := TStringList.Create; + try + TmpList := TStringList.Create; + try + TmpList.Text := AText; + for k := 0 to TmpList.Count-1 do + begin + tmp := TmpList[k]; + repeat + i := pos(TemplateFieldBeginSignature, tmp); + if(i > 0) then + begin + fld := ''; + j := pos(TemplateFieldEndSignature, copy(tmp, i + TemplateFieldSignatureLen, MaxInt)); + if(j > 0) then + begin + inc(j, i + TemplateFieldSignatureLen - 1); + flen := j - i - TemplateFieldSignatureLen; + fld := copy(tmp,i + TemplateFieldSignatureLen, flen); + delete(tmp, i, flen + TemplateFieldSignatureLen + 1); + end + else + begin + delete(tmp,i,TemplateFieldSignatureLen); + inc(BadCount); + end; + if(fld <> '') then + begin + if ListErrors then + begin + FldObj := GetTemplateField(fld, FALSE); + if assigned(FldObj) then + begin + if FldObj.Inactive then + InactiveList.Add(' "' + fld + '"'); + flddesc := ''; + end + else + flddesc := ' "' + fld + '"'; + end + else + flddesc := fld; + if(flddesc <> '') and (AList.IndexOf(flddesc) < 0) then + AList.Add(flddesc) + end; + end; + until (i = 0); + end; + finally + TmpList.Free; + end; + if ListErrors then + begin + if(AList.Count > 0) then + AList.Insert(0, 'The following template fields were not found:'); + if (BadCount > 0) then + begin + if(BadCount = 1) then + tmp := 'A template field marker "' + TemplateFieldBeginSignature + + '" was found without a' + else + tmp := IntToStr(BadCount) + ' template field markers "' + TemplateFieldBeginSignature + + '" were found without'; + if(AList.Count > 0) then + AList.Add(''); + AList.Add(tmp + ' matching "' + TemplateFieldEndSignature + '"'); + end; + if(InactiveList.Count > 0) then + begin + if(AList.Count > 0) then + AList.Add(''); + AList.Add('The following inactive template fields were found:'); + AList.AddStrings(InactiveList); + end; + if(AList.Count > 0) then + begin + AList.Insert(0, 'Text contains template field errors:'); + AList.Insert(1, ''); + end; + end; + finally + InactiveList.Free; + end; +end; + +function BoilerplateTemplateFieldsOK(const AText: string; Msg: string = ''): boolean; +var + Errors: TStringList; + btns: TMsgDlgButtons; + +begin + Result := TRUE; + Errors := TStringList.Create; + try + ListTemplateFields(AText, Errors, TRUE); + if(Errors.Count > 0) then + begin + if(Msg = 'OK') then + btns := [mbOK] + else + begin + btns := [mbAbort, mbIgnore]; + Errors.Add(''); + if(Msg = '') then + Msg := 'text insertion'; + Errors.Add('Do you want to Abort ' + Msg + ', or Ignore the error and continue?'); + end; + Result := (MessageDlg(Errors.Text, mtError, btns, 0) = mrIgnore); + end; + finally + Errors.Free; + end; +end; + +procedure EnsureText(edt: TEdit; ud: TUpDown); +var + v: integer; + s: string; + +begin + if assigned(ud.Associate) then + begin + v := StrToIntDef(edt.Text, ud.Position); + if (v < ud.Min) or (v > ud.Max) then + v := ud.Position; + s := IntToStr(v); + if edt.Text <> s then + edt.Text := s; + end; + edt.SelStart := edt.GetTextLen; +end; + +function TemplateFieldCode2Field(const Code: string): TTemplateFieldType; +var + typ: TTemplateFieldType; + +begin + Result := dftUnknown; + for typ := low(TTemplateFieldType) to high(TTemplateFieldType) do + if Code = TemplateFieldTypeCodes[typ] then + begin + Result := typ; + break; + end; +end; + +function TemplateDateCode2DateType(const Code: string): TTmplFldDateType; +var + typ: TTmplFldDateType; + +begin + Result := dtUnknown; + for typ := low(TTmplFldDateType) to high(TTmplFldDateType) do + if Code = TemplateFieldDateCodes[typ] then + begin + Result := typ; + break; + end; +end; + +procedure ConvertCodes2Text(sl: TStrings; Short: boolean); +var + i: integer; + tmp, output: string; + ftype: TTemplateFieldType; + dtype: TTmplFldDateType; + +begin + for i := 0 to sl.Count-1 do + begin + tmp := sl[i]; + if piece(tmp,U,4) = BOOLCHAR[TRUE] then + output := '* ' + else + output := ' '; + ftype := TemplateFieldCode2Field(Piece(tmp, U, 3)); + if ftype = dftDate then + begin + dtype := TemplateDateCode2DateType(Piece(tmp, U, 5)); + output := output + TemplateDateTypeDesc[dtype, short]; + end + else + output := output + TemplateFieldTypeDesc[ftype, short]; + SetPiece(tmp, U, 3, output); + sl[i] := tmp; + end; +end; + +{ TTemplateField } + +constructor TTemplateField.Create(AData: TStrings); +var + tmp, p1: string; + AFID, i,idx,cnt: integer; + +begin + AFID := 0; + if(assigned(AData)) then + begin + if AData.Count > 0 then + AFID := StrToIntDef(AData[0],0); + if(AFID > 0) and (AData.Count > 1) then + begin + FID := IntToStr(AFID); + FFldName := Piece(AData[1],U,1); + FFldType := TemplateFieldCode2Field(Piece(AData[1],U,2)); + FInactive := (Piece(AData[1],U,3) = '1'); + FMaxLen := StrToIntDef(Piece(AData[1],U,4),0); + FEditDefault := Piece(AData[1],U,5); + FLMText := Piece(AData[1],U,6); + idx := StrToIntDef(Piece(AData[1],U,7),0); + cnt := 0; + for i := 2 to AData.Count-1 do + begin + tmp := AData[i]; + p1 := Piece(tmp,U,1); + tmp := Piece(tmp,U,2); + if(p1 = 'D') then + FNotes := FNotes + tmp + CRLF + else + if(p1 = 'U') then + FURL := tmp + else + if(p1 = 'I') then + begin + inc(cnt); + FItems := FItems + tmp + CRLF; + if(cnt=idx) then + FItemDefault := tmp; + end; + end; + FRequired := (Piece(AData[1],U,8) = '1'); + FSepLines := (Piece(AData[1],U,9) = '1'); + FTextLen := StrToIntDef(Piece(AData[1],U,10),0); + FIndent := StrToIntDef(Piece(AData[1],U,11),0); + FPad := StrToIntDef(Piece(AData[1],U,12),0); + FMinVal := StrToIntDef(Piece(AData[1],U,13),0); + FMaxVal := StrToIntDef(Piece(AData[1],U,14),0); + FIncrement := StrToIntDef(Piece(AData[1],U,15),0); + FDateType := TemplateDateCode2DateType(Piece(AData[1],U,16)); + FModified := FALSE; + FNameChanged := FALSE; + end; + end; + if(AFID = 0) then + begin + inc(uNewTemplateFieldIDCnt); + FID := IntToStr(-uNewTemplateFieldIDCnt); + FFldName := NewTemplateField; + FModified := TRUE; + end; + if(not assigned(uTmplFlds)) then + uTmplFlds := TList.Create; + uTmplFlds.Add(Self); +end; + +function TTemplateField.GetTemplateFieldDefault: string; +begin + case FFldType of + dftEditBox, dftNumber: Result := FEditDefault; + + dftComboBox, + dftButton, + dftCheckBoxes, {Clear out embedded fields} + dftRadioButtons: Result := StripEmbedded(FItemDefault); + + dftDate: if FEditDefault <> '' then Result := FEditDefault; + + dftHyperlink, dftText: if FEditDefault <> '' then + Result := StripEmbedded(FEditDefault) + else + Result := URL; + + dftWP: Result := Items; + end; +end; + +procedure TTemplateField.CreateDialogControls(Entry: TTemplateDialogEntry; + var Index: Integer; CtrlID: integer); + +var + i, Aht, w, tmp, AWdth: integer; + STmp: string; + TmpSL: TStringList; + edt: TEdit; + cbo: TORComboBox; + cb: TORCheckBox; + btn: TfraTemplateFieldButton; + dbox: TORDateBox; + dcbo: TORDateCombo; + lbl: TFieldLabel; + re: TRichEdit; + pnl: TPanel; + ud: TUpDown; + DefDate: TFMDateTime; + ctrl: TControl; + + function wdth: integer; + begin + if(Awdth < 0) then + Awdth := FontWidthPixel(Entry.FFont.Handle); + Result := Awdth; + end; + + function ht: integer; + begin + if(Aht < 0) then + Aht := FontHeightPixel(Entry.FFont.Handle); + Result := Aht; + end; + + procedure UpdateIndents(AControl: TControl); + var + idx: integer; + + begin + if (FIndent > 0) or (FPad > 0) then + begin + idx := Entry.FIndents.IndexOfObject(AControl); + if idx < 0 then + Entry.FIndents.AddObject(IntToStr(FIndent * wdth) + U + IntToStr(FPad), AControl); + end; + end; + +begin + if(not FInactive) and (FFldType <> dftUnknown) then + begin + AWdth := -1; + Aht := -1; + ctrl := nil; + + case FFldType of + dftEditBox: + begin + edt := TEdit.Create(nil); + edt.Parent := Entry.FPanel; + edt.BorderStyle := bsNone; + edt.Height := ht; + edt.Width := (wdth * Width + 4); + if FTextLen > 0 then + edt.MaxLength := FTextLen + else + edt.MaxLength := FMaxLen; + edt.Text := FEditDefault; + edt.Tag := CtrlID; + edt.OnChange := Entry.DoChange; + ctrl := edt; + end; + + dftComboBox: + begin + cbo := TORComboBox.Create(nil); + cbo.Parent := Entry.FPanel; + cbo.TemplateField := TRUE; + w := Width; + cbo.MaxLength := w; + if FTextLen > 0 then + cbo.MaxLength := FTextLen + else + cbo.ListItemsOnly := TRUE; + {Clear out embedded fields} + cbo.Items.Text := StripEmbedded(Items); + cbo.SelectByID(StripEmbedded(FItemDefault)); + cbo.Tag := CtrlID; + cbo.OnClick := Entry.DoChange; + + if cbo.Items.Count > 12 then + begin + cbo.Width := (wdth * w) + ScrollBarWidth + 8; + cbo.DropDownCount := 12; + end + else + begin + cbo.Width := (wdth * w) + 18; + cbo.DropDownCount := cbo.Items.Count; + end; + ctrl := cbo; + end; + + dftButton: + begin + btn := TfraTemplateFieldButton.Create(nil); + btn.Parent := Entry.FPanel; + {Clear out embedded fields} + btn.Items.Text := StripEmbedded(Items); + btn.ButtonText := StripEmbedded(FItemDefault); + btn.Height := ht; + btn.Width := (wdth * Width) + 6; + btn.Tag := CtrlID; + btn.OnChange := Entry.DoChange; + ctrl := btn; + end; + + dftCheckBoxes, dftRadioButtons: + begin + if FFldType = dftRadioButtons then + inc(uRadioGroupIndex); + TmpSL := TStringList.Create; + try + {Clear out embedded fields} + TmpSL.Text := StripEmbedded(Items); + for i := 0 to TmpSL.Count-1 do + begin + cb := TORCheckBox.Create(nil); + cb.Parent := Entry.FPanel; + cb.Caption := TmpSL[i]; + cb.AutoSize := TRUE; + cb.AutoAdjustSize; + // cb.AutoSize := FALSE; + // cb.Height := ht; + if FFldType = dftRadioButtons then + begin + cb.GroupIndex := uRadioGroupIndex; + cb.RadioStyle := TRUE; + end; + if(TmpSL[i] = StripEmbedded(FItemDefault)) then + cb.Checked := TRUE; + cb.Tag := CtrlID; + if FSepLines and (FFldType in SepLinesTypes) then + cb.StringData := NewLine; + cb.OnClick := Entry.DoChange; + inc(Index); + Entry.FControls.InsertObject(Index, '', cb); + if (i=0) or FSepLines then + UpdateIndents(cb); + end; + finally + TmpSL.Free; + end; + end; + + dftDate: + begin + if FEditDefault <> '' then + DefDate := StrToFMDateTime(FEditDefault) + else + DefDate := 0; + if FDateType in DateComboTypes then + begin + dcbo := TORDateCombo.Create(nil); + dcbo.Parent := Entry.FPanel; + dcbo.Tag := CtrlID; + dcbo.IncludeBtn := (FDateType = dtCombo); + dcbo.IncludeDay := (FDateType = dtCombo); + dcbo.IncludeMonth := (FDateType <> dtYear); + dcbo.FMDate := DefDate; + dcbo.TemplateField := TRUE; + dcbo.OnChange := Entry.DoChange; + ctrl := dcbo; + end + else + begin + dbox := TORDateBox.Create(nil); + dbox.Parent := Entry.FPanel; + dbox.Tag := CtrlID; + dbox.DateOnly := (FDateType = dtDate); + dbox.RequireTime := (FDateType = dtDateReqTime); + dbox.TemplateField := TRUE; + dbox.FMDateTime := DefDate; + if (FDateType = dtDate) then + tmp := 11 + else + tmp := 17; + dbox.Width := (wdth * tmp) + 18; + dbox.OnChange := Entry.DoChange; + ctrl := dbox; + end; + end; + + dftNumber: + begin + pnl := TPanel.Create(nil); + pnl.Parent := Entry.FPanel; + pnl.BevelOuter := bvNone; + pnl.Tag := CtrlID; + edt := TEdit.Create(pnl); + edt.Parent := pnl; + edt.BorderStyle := bsNone; + edt.Height := ht; + edt.Width := (wdth * 5 + 4); + edt.Top := 0; + edt.Left := 0; + edt.AutoSelect := True; + ud := TUpDown.Create(pnl); + ud.Parent := pnl; + ud.Associate := edt; + ud.Min := MinVal; + ud.Max := MaxVal; + ud.Min := MinVal; // Both ud.Min settings are needeed! + i := Increment; + if i < 1 then i := 1; + ud.Increment := i; + ud.Thousands := FALSE; + ud.Position := StrToIntDef(EditDefault, 0); + edt.Tag := Integer(ud); + edt.OnChange := Entry.UpDownChange; + pnl.Height := edt.Height; + pnl.Width := edt.Width + ud.Width; + ctrl := pnl; + end; + + dftHyperlink, dftText: + begin + if (FFldType = dftHyperlink) and User.WebAccess then + lbl := TWebLabel.Create(nil) + else + lbl := TFieldLabel.Create(nil); + lbl.Parent := Entry.FPanel; + lbl.ShowAccelChar := FALSE; + lbl.FExclude := FSepLines; + if (FFldType = dftHyperlink) then + begin + if FEditDefault <> '' then + lbl.Caption := StripEmbedded(FEditDefault) + else + lbl.Caption := URL; + end + else + begin + STmp := StripEmbedded(Items); + if copy(STmp,length(STmp)-1,2) = CRLF then + delete(STmp,length(STmp)-1,2); + lbl.Caption := STmp; + end; + if lbl is TWebLabel then + TWebLabel(lbl).Init(FURL); + lbl.Tag := CtrlID; + ctrl := lbl; + end; + + dftWP: + begin + re := TRichEdit.Create(nil); + re.Parent := Entry.FPanel; + re.Tag := CtrlID; + tmp := FMaxLen; + if tmp < 5 then + tmp := 5; + re.Width := wdth * tmp; + tmp := FTextLen; + if tmp < 2 then + tmp := 2 + else + if tmp > MaxTFWPLines then + tmp := MaxTFWPLines; + re.Height := ht * tmp; + re.BorderStyle := bsNone; + re.ScrollBars := ssVertical; + re.Lines.Text := Items; + re.OnChange := Entry.DoChange; + ctrl := re; + end; + end; + if assigned(ctrl) then + begin + inc(Index); + Entry.FControls.InsertObject(Index, '', ctrl); + UpdateIndents(ctrl); + end; + end; +end; + +function TTemplateField.CanModify: boolean; +begin + if((not FModified) and (not FLocked) and (StrToIntDef(FID,0) > 0)) then + begin + FLocked := LockTemplateField(FID); + Result := FLocked; + if(not FLocked) then + ShowMessage('Template Field ' + FFldName + ' is currently being edited by another user.'); + end + else + Result := TRUE; + if(Result) then FModified := TRUE; +end; + +procedure TTemplateField.SetEditDefault(const Value: string); +begin + if(FEditDefault <> Value) and CanModify then + FEditDefault := Value; +end; + +procedure TTemplateField.SetFldName(const Value: string); +begin + if(FFldName <> Value) and CanModify then + begin + FFldName := Value; + FNameChanged := TRUE; + end; +end; + +procedure TTemplateField.SetFldType(const Value: TTemplateFieldType); +begin + if(FFldType <> Value) and CanModify then + begin + FFldType := Value; + if(Value = dftEditBox) then + begin + if (FMaxLen < 1) then + FMaxLen := 1; + if FTextLen < FMaxLen then + FTextLen := FMaxLen; + end + else + if(Value = dftHyperlink) and (FURL = '') then + FURL := 'http://' + else + if(Value = dftComboBox) and (FMaxLen < 1) then + begin + FMaxLen := Width; + if FMaxLen < 1 then + FMaxLen := 1; + end + else + if(Value = dftWP) then + begin + if (FMaxLen = 0) then + FMaxLen := MAX_ENTRY_WIDTH + else + if (FMaxLen < 5) then + FMaxLen := 5; + if FTextLen < 2 then + FTextLen := 2; + end + else + if(Value = dftDate) and (FDateType = dtUnknown) then + FDateType := dtDate; + end; +end; + +procedure TTemplateField.SetID(const Value: string); +begin +// if(FID <> Value) and CanModify then + FID := Value; +end; + +procedure TTemplateField.SetInactive(const Value: boolean); +begin + if(FInactive <> Value) and CanModify then + FInactive := Value; +end; + +procedure TTemplateField.SetItemDefault(const Value: string); +begin + if(FItemDefault <> Value) and CanModify then + FItemDefault := Value; +end; + +procedure TTemplateField.SetItems(const Value: string); +begin + if(FItems <> Value) and CanModify then + FItems := Value; +end; + +procedure TTemplateField.SetLMText(const Value: string); +begin + if(FLMText <> Value) and CanModify then + FLMText := Value; +end; + +procedure TTemplateField.SetMaxLen(const Value: integer); +begin + if(FMaxLen <> Value) and CanModify then + FMaxLen := Value; +end; + +procedure TTemplateField.SetNotes(const Value: string); +begin + if(FNotes <> Value) and CanModify then + FNotes := Value; +end; + +function TTemplateField.SaveError: string; +var + TmpSL, FldSL: TStringList; + AID,Res: string; + idx, i: integer; + IEN64: Int64; + NewRec: boolean; + +begin + if(FFldName = NewTemplateField) then + begin + Result := 'Template Field can not be named "' + NewTemplateField + '"'; + exit; + end; + Result := ''; + NewRec := (StrToIntDef(FID,0) < 0); + if(FModified or NewRec) then + begin + TmpSL := TStringList.Create; + try + FldSL := TStringList.Create; + try + if(StrToIntDef(FID,0) > 0) then + AID := FID + else + AID := '0'; + FldSL.Add('.01='+FFldName); + FldSL.Add('.02='+TemplateFieldTypeCodes[FFldType]); + FldSL.Add('.03='+BOOLCHAR[FInactive]); + FldSL.Add('.04='+IntToStr(FMaxLen)); + FldSL.Add('.05='+FEditDefault); + FldSL.Add('.06='+FLMText); + idx := -1; + if(FItems <> '') and (FItemDefault <> '') then + begin + TmpSL.Text := FItems; + for i := 0 to TmpSL.Count-1 do + if(FItemDefault = TmpSL[i]) then + begin + idx := i; + break; + end; + end; + FldSL.Add('.07='+IntToStr(Idx+1)); + FldSL.Add('.08='+BOOLCHAR[fRequired]); + FldSL.Add('.09='+BOOLCHAR[fSepLines]); + FldSL.Add('.1=' +IntToStr(FTextLen)); + FldSL.Add('.11='+IntToStr(FIndent)); + FldSL.Add('.12='+IntToStr(FPad)); + FldSL.Add('.13='+IntToStr(FMinVal)); + FldSL.Add('.14='+IntToStr(FMaxVal)); + FldSL.Add('.15='+IntToStr(FIncrement)); + if FDateType = dtUnknown then + FldSL.Add('.16=@') + else + FldSL.Add('.16='+TemplateFieldDateCodes[FDateType]); + + if FURL='' then + FldSL.Add('3=@') + else + FldSL.Add('3='+FURL); + + if(FNotes <> '') or (not NewRec) then + begin + if(FNotes = '') then + FldSL.Add('2,1=@') + else + begin + TmpSL.Text := FNotes; + for i := 0 to TmpSL.Count-1 do + FldSL.Add('2,'+IntToStr(i+1)+',0='+TmpSL[i]); + end; + end; + if((FItems <> '') or (not NewRec)) then + begin + if(FItems = '') then + FldSL.Add('10,1=@') + else + begin + TmpSL.Text := FItems; + for i := 0 to TmpSL.Count-1 do + FldSL.Add('10,'+IntToStr(i+1)+',0='+TmpSL[i]); + end; + end; + + Res := UpdateTemplateField(AID, FldSL); + IEN64 := StrToInt64Def(Piece(Res,U,1),0); + if(IEN64 > 0) then + begin + if(NewRec) then + FID := IntToStr(IEN64) + else + UnlockTemplateField(FID); + FModified := FALSE; + FNameChanged := FALSE; + FLocked := FALSE; + end + else + Result := Piece(Res, U, 2); + finally + FldSL.Free; + end; + finally + TmpSL.Free; + end; + end; +end; + +procedure TTemplateField.Assign(AFld: TTemplateField); +begin + FMaxLen := AFld.FMaxLen; + FFldName := AFld.FFldName; + FLMText := AFld.FLMText; + FEditDefault := AFld.FEditDefault; + FNotes := AFld.FNotes; + FItems := AFld.FItems; + FInactive := AFld.FInactive; + FItemDefault := AFld.FItemDefault; + FFldType := AFld.FFldType; + FRequired := AFld.FRequired; + FSepLines := AFld.FSepLines; + FTextLen := AFld.FTextLen; + FIndent := AFld.FIndent; + FPad := AFld.FPad; + FMinVal := AFld.FMinVal; + FMaxVal := AFld.FMaxVal; + FIncrement := AFld.FIncrement; + FDateType := AFld.FDateType; + FURL := AFld.FURL; +end; + +function TTemplateField.Width: integer; +var + i, ilen: integer; + TmpSL: TStringList; + +begin + if(FFldType = dftEditBox) then + Result := FMaxLen + else + begin + if FMaxLen > 0 then + Result := FMaxLen + else + begin + Result := -1; + TmpSL := TStringList.Create; + try + TmpSL.Text := StripEmbedded(FItems); + for i := 0 to TmpSL.Count-1 do + begin + ilen := length(TmpSL[i]); + if(Result < ilen) then + Result := ilen; + end; + finally + TmpSL.Free; + end; + end; + end; + if Result > MaxTFEdtLen then + Result := MaxTFEdtLen; +end; + +destructor TTemplateField.Destroy; +begin + uTmplFlds.Remove(Self); + inherited; +end; + +procedure TTemplateField.SetRequired(const Value: boolean); +begin + if(FRequired <> Value) and CanModify then + FRequired := Value; +end; + +function TTemplateField.NewField: boolean; +begin + Result := (StrToIntDef(FID,0) <= 0); +end; + +procedure TTemplateField.SetSepLines(const Value: boolean); +begin + if(FSepLines <> Value) and CanModify then + FSepLines := Value +end; + +procedure TTemplateField.SetIncrement(const Value: integer); +begin + if(FIncrement <> Value) and CanModify then + FIncrement := Value; +end; + +procedure TTemplateField.SetIndent(const Value: integer); +begin + if(FIndent <> Value) and CanModify then + FIndent := Value; +end; + +procedure TTemplateField.SetMaxVal(const Value: integer); +begin + if(FMaxVal <> Value) and CanModify then + FMaxVal := Value; +end; + +procedure TTemplateField.SetMinVal(const Value: integer); +begin + if(FMinVal <> Value) and CanModify then + FMinVal := Value; +end; + +procedure TTemplateField.SetPad(const Value: integer); +begin + if(FPad <> Value) and CanModify then + FPad := Value; +end; + +procedure TTemplateField.SetTextLen(const Value: integer); +begin + if(FTextLen <> Value) and CanModify then + FTextLen := Value; +end; + +procedure TTemplateField.SetURL(const Value: string); +begin + if(FURL <> Value) and CanModify then + FURL := Value; +end; + +function TTemplateField.GetRequired: boolean; +begin + if FFldType in NoRequired then + Result := FALSE + else + Result := FRequired; +end; + +procedure TTemplateField.SetDateType(const Value: TTmplFldDateType); +begin + if(FDateType <> Value) and CanModify then + FDateType := Value; +end; + +{ TTemplateDialogEntry } +const + EOL_MARKER = #182; + +procedure PanelDestroy(AData: Pointer; Sender: TObject); +var + idx: integer; + dlg: TTemplateDialogEntry; + +begin + dlg := TTemplateDialogEntry(AData); + idx := uEntries.IndexOf(dlg.FID); + if(idx >= 0) then + uEntries.Delete(idx); + dlg.FPanelDying := TRUE; + dlg.Free; +end; + +constructor TTemplateDialogEntry.Create(AParent: TWinControl; AID, Text: string); +var + CtrlID, idx, i, j, flen: integer; + txt, FldName: string; + Fld: TTemplateField; + +begin + FID := AID; + FText := Text; + FControls := TStringList.Create; + FIndents := TStringList.Create; + FFont := TFont.Create; + FFont.Assign(TORExposedControl(AParent).Font); + FControls.Text := Text; + if(FControls.Count > 1) then + for i := 1 to FControls.Count-1 do + FControls[i] := EOL_MARKER + FControls[i]; + FFirstBuild := TRUE; + FPanel := TFieldPanel.Create(AParent.Owner); + FPanel.Parent := AParent; + FPanel.BevelOuter := bvNone; + FPanel.Caption := ''; + FPanel.Font.Assign(FFont); + idx := 0; + while (idx < FControls.Count) do + begin + txt := FControls[idx]; + i := pos(TemplateFieldBeginSignature, txt); + if(i > 0) then + begin + if(copy(txt, i + TemplateFieldSignatureLen, 1) = FieldIDDelim) then + begin + CtrlID := StrToIntDef(copy(txt, i + TemplateFieldSignatureLen + 1, FieldIDLen-1), 0); + delete(txt,i + TemplateFieldSignatureLen, FieldIDLen); + end + else + CtrlID := 0; + j := pos(TemplateFieldEndSignature, copy(txt, i + TemplateFieldSignatureLen, MaxInt)); + if(j > 0) then + begin + inc(j, i + TemplateFieldSignatureLen - 1); + flen := j - i - TemplateFieldSignatureLen; + FldName := copy(txt, i + TemplateFieldSignatureLen, flen); + Fld := GetTemplateField(FldName, FALSE); + delete(txt,i,flen + TemplateFieldSignatureLen + 1); + if(assigned(Fld)) then + begin + FControls[idx] := copy(txt,1,i-1); + if(Fld.Required) then + FControls[idx] := FControls[idx] + '*'; + Fld.CreateDialogControls(Self, idx, CtrlID); + FControls.Insert(idx+1,copy(txt,i,MaxInt)); + end + else + begin + FControls[idx] := txt; + dec(idx); + end; + end + else + begin + delete(txt,i,TemplateFieldSignatureLen); + FControls[idx] := txt; + dec(idx); + end; + end; + inc(idx); + end; +end; + +destructor TTemplateDialogEntry.Destroy; +begin + if assigned(FOnDestroy) then + FOnDestroy(Self); + KillLabels; + KillObj(@FControls, TRUE); + if FPanelDying then + FPanel := nil + else + FreeAndNil(FPanel); + FreeAndNil(FFont); + FreeAndNil(FIndents); + inherited; +end; + +procedure TTemplateDialogEntry.DoChange(Sender: TObject); +begin + if (not FUpdating) and assigned(FOnChange) then + FOnChange(Self); +end; + +function TTemplateDialogEntry.GetControlText(CtrlID: integer; NoCommas: boolean; + var FoundEntry: boolean; AutoWrap: boolean; + emField: string = ''): string; +var + x, i, j, ind, idx: integer; + Ctrl: TControl; + Done: boolean; + iString: string; + iField: TTemplateField; + iTemp: TStringList; + + function GetOriginalItem(istr: string): string; + begin + Result := ''; + if emField <> '' then + begin + iField := GetTemplateField(emField,FALSE); + iTemp := nil; + if ifield <> nil then + try + iTemp := TStringList.Create; + iTemp.Text := StripEmbedded(iField.Items); + x := iTemp.IndexOf(istr); + if x >= 0 then + begin + iTemp.Text := iField.Items; + Result := iTemp.Strings[x]; + end; + finally + iTemp.Free; + end; + end; + end; + + +begin + Result := ''; + Done := FALSE; + ind := -1; + for i := 0 to FControls.Count-1 do + begin + Ctrl := TControl(FControls.Objects[i]); + if(assigned(Ctrl)) and (Ctrl.Tag = CtrlID) then + begin + FoundEntry := TRUE; + Done := TRUE; + if ind < 0 then + begin + idx := FIndents.IndexOfObject(Ctrl); + if idx >= 0 then + ind := StrToIntDef(Piece(FIndents[idx], U, 2), 0) + else + ind := 0; + end; + if(Ctrl is TFieldLabel) then + begin + if not TFieldLabel(Ctrl).Exclude then begin + if emField <> '' then begin + iField := GetTemplateField(emField,FALSE); + case iField.FldType of + dftHyperlink: if iField.EditDefault <> '' then + Result := iField.EditDefault + else + Result := iField.URL; + dftText: begin + iString := iField.Items; + if copy(iString,length(iString)-1,2) = CRLF then + delete(iString,length(iString)-1,2); + Result := iString; + end; + else {case} + Result := TFieldLabel(Ctrl).Caption + end; {case iField.FldType} + end {if emField} + else + Result := TFieldLabel(Ctrl).Caption; + end; + end + else + if(Ctrl is TEdit) then + Result := TEdit(Ctrl).Text + else + if(Ctrl is TORComboBox) then begin + Result := TORComboBox(Ctrl).Text; + iString := GetOriginalItem(Result); + if iString <> '' then + Result := iString; + end + else + if(Ctrl is TORDateCombo) then + Result := TORDateCombo(Ctrl).Text + ':' + FloatToStr(TORDateCombo(Ctrl).FMDate) + else + if(Ctrl is TORDateBox) then + Result := TORDateBox(Ctrl).Text + else + if(Ctrl is TRichEdit) then + begin + if((ind = 0) and (not AutoWrap)) then + Result := TRichEdit(Ctrl).Lines.Text + else + begin + for j := 0 to TRichEdit(Ctrl).Lines.Count-1 do + begin + if AutoWrap then + begin + if(Result <> '') then + Result := Result + ' '; + Result := Result + TRichEdit(Ctrl).Lines[j]; + end + else + begin + if(Result <> '') then + Result := Result + CRLF; + Result := Result + StringOfChar(' ', ind) + TRichEdit(Ctrl).Lines[j]; + end; + end; + ind := 0; + end; + end + else + if(Ctrl is TORCheckBox) then + begin + Done := FALSE; + if(TORCheckBox(Ctrl).Checked) then + begin + if(Result <> '') then + begin + if NoCommas then + Result := Result + '|' + else + Result := Result + ', '; + end; + iString := GetOriginalItem(TORCheckBox(Ctrl).Caption); + if iString <> '' then + Result := Result + iString + else + Result := Result + TORCheckBox(Ctrl).Caption; + end; + end + else + if(Ctrl is TfraTemplateFieldButton) then + begin + Result := TfraTemplateFieldButton(Ctrl).ButtonText; + iString := GetOriginalItem(Result); + if iString <> '' then + Result := iString; + end + else + if(Ctrl is TPanel) then + begin + for j := 0 to Ctrl.ComponentCount-1 do + if Ctrl.Components[j] is TUpDown then + begin + Result := IntToStr(TUpDown(Ctrl.Components[j]).Position); + break; + end; + end; + end; + if Done then break; + end; + if (ind > 0) and (not NoCommas) then + Result := StringOfChar(' ', ind) + Result; +end; + +function TTemplateDialogEntry.GetFieldValues: string; +var + i: integer; + Ctrl: TControl; + CtrlID: integer; + TmpIDs: TList; + TmpSL: TStringList; + Dummy: boolean; + +begin + Result := ''; + TmpIDs := TList.Create; + try + TmpSL := TStringList.Create; + try + for i := 0 to FControls.Count-1 do + begin + Ctrl := TControl(FControls.Objects[i]); + if(assigned(Ctrl)) then + begin + CtrlID := Ctrl.Tag; + if(TmpIDs.IndexOf(Pointer(CtrlID)) < 0) then + begin + TmpSL.Add(IntToStr(CtrlID) + U + GetControlText(CtrlID, TRUE, Dummy, FALSE)); + TmpIDs.Add(Pointer(CtrlID)); + end; + end; + end; + Result := TmpSL.CommaText; + finally + TmpSL.Free; + end; + finally + TmpIDs.Free; + end; +end; + +function TTemplateDialogEntry.GetPanel(MaxLen: integer; AParent: TWinControl): TPanel; +var + i, x, y, cnt, idx, ind, yinc, ybase, MaxX: integer; + MaxTextLen: integer; {Max num of chars per line in pixels} + MaxChars: integer; {Max num of chars per line} + txt: string; + ctrl: TControl; + LastLineBlank: boolean; +const + FOCUS_RECT_MARGIN = 2; {The margin around the panel so the label won't + overlay the focus rect on its parent panel.} + procedure DoLabel(Atxt: string); + var + lbl: TLabel; + + begin + lbl := TLabel.Create(nil); + lbl.Parent := FPanel; + lbl.ShowAccelChar := FALSE; + lbl.Caption := Atxt; + lbl.Left := x; + lbl.Top := y; + inc(x, lbl.Width); + end; + + procedure NextLine; + begin + if(MaxX < x) then + MaxX := x; + x := FOCUS_RECT_MARGIN; {leave two pixels on the left for the Focus Rect} + inc(y, yinc); + yinc := ybase; + end; + +begin + MaxTextLen := MaxLen - (FOCUS_RECT_MARGIN * 2);{save room for the focus rectangle on the panel} + if(FFirstBuild or (FPanel.Width <> MaxLen)) then + begin + if(FFirstBuild) then + FFirstBuild := FALSE + else + KillLabels; + y := FOCUS_RECT_MARGIN; {placement of labels on panel so they don't cover the} + x := FOCUS_RECT_MARGIN; {focus rectangle} + MaxX := 0; + //ybase := FontHeightPixel(FFont.Handle) + 1 + (FOCUS_RECT_MARGIN * 2); AGP commentout line for + //reminder spacing + ybase := FontHeightPixel(FFont.Handle); + yinc := ybase; + LastLineBlank := FALSE; + for i := 0 to FControls.Count-1 do + begin + txt := FControls[i]; + if(copy(txt,1,1) = EOL_MARKER) then + begin + if((x <> 0) or LastLineBlank) then + NextLine; + delete(txt,1,1); + LastLineBlank := (txt = ''); + end; + if(txt <> '') then + begin + while(txt <> '') do + begin + cnt := NumCharsFitInWidth(FFont.Handle, txt, MaxTextLen-x); + MaxChars := cnt; + if(cnt >= length(txt)) then + begin + DoLabel(txt); + txt := ''; + end + else + if(cnt < 1) then + NextLine + else + begin + repeat + if(txt[cnt+1] = ' ') then + begin + DoLabel(copy(txt,1,cnt)); + NextLine; + txt := copy(txt, cnt + 1, MaxInt); + break; + end + else + dec(cnt); + until(cnt = 0); + if(cnt = 0) then + begin + if(x = FOCUS_RECT_MARGIN) then {If x is at the far left margin...} + begin + DoLabel(Copy(txt,1,MaxChars)); + NextLine; + txt := copy(txt, MaxChars + 1, MaxInt); + end + else + NextLine; + end; + end; + end; + end + else + begin + ctrl := TControl(FControls.Objects[i]); + if(assigned(ctrl)) then + begin + idx := FIndents.IndexOfObject(Ctrl); + if idx >= 0 then + ind := StrToIntDef(Piece(FIndents[idx], U, 1), 0) + else + ind := 0; + if(x > 0) then + begin + if (x < MaxLen) and (Ctrl is TORCheckBox) and (TORCheckBox(Ctrl).StringData = NewLine) then + x := MaxLen; + if((ctrl.Width + x + ind) > MaxLen) then + NextLine; + end; + inc(x,ind); + Ctrl.Left := x; + Ctrl.Top := y; + inc(x, Ctrl.Width + 4); + if yinc <= Ctrl.Height then + yinc := Ctrl.Height + 1; + if (x < MaxLen) and ((Ctrl is TRichEdit) or + ((Ctrl is TLabel) and (pos(CRLF, TLabel(Ctrl).Caption) > 0))) then + x := MaxLen; + end; + end; + end; + NextLine; + FPanel.Height := (y-1) + (FOCUS_RECT_MARGIN * 2); //AGP added Focus_rect_margin for Reminder spacing + FPanel.Width := MaxX + FOCUS_RECT_MARGIN; + end; + if(FFieldValues <> '') then + SetFieldValues(FFieldValues); + Result := FPanel; +end; + +function TTemplateDialogEntry.GetText: string; +begin + Result := ResolveTemplateFields(FText, FALSE); +end; + +procedure TTemplateDialogEntry.KillLabels; +var + i, idx: integer; + obj: TObject; + +begin + if(assigned(FPanel)) then + begin + for i := FPanel.ControlCount-1 downto 0 do + if(FPanel.Controls[i] is TLabel) then + begin + obj := FPanel.Controls[i]; + idx := FControls.IndexOfObject(obj); + if idx < 0 then + obj.Free; + end; + end; +end; + +procedure TTemplateDialogEntry.SetAutoDestroyOnPanelFree( + const Value: boolean); +var + M: TMethod; + +begin + FAutoDestroyOnPanelFree := Value; + if(Value) then + begin + M.Data := Self; + M.Code := @PanelDestroy; + TFieldPanel(FPanel).OnDestroy := TNotifyEvent(M); + end + else + TFieldPanel(FPanel).OnDestroy := nil; +end; + +procedure TTemplateDialogEntry.SetControlText(CtrlID: integer; AText: string); +var + cnt, i, j: integer; + Ctrl: TControl; + Done: boolean; + +begin + FUpdating := TRUE; + try + Done := FALSE; + cnt := 0; + for i := 0 to FControls.Count-1 do + begin + Ctrl := TControl(FControls.Objects[i]); + if(assigned(Ctrl)) and (Ctrl.Tag = CtrlID) then + begin + Done := TRUE; + if(Ctrl is TLabel) then + TLabel(Ctrl).Caption := AText + else + if(Ctrl is TEdit) then + TEdit(Ctrl).Text := AText + else + if(Ctrl is TORComboBox) then + TORComboBox(Ctrl).SelectByID(AText) + else + if(Ctrl is TRichEdit) then + TRichEdit(Ctrl).Lines.Text := AText + else + if(Ctrl is TORDateCombo) then + TORDateCombo(Ctrl).FMDate := MakeFMDateTime(piece(AText,':',2)) + else + if(Ctrl is TORDateBox) then + TORDateBox(Ctrl).Text := AText + else + if(Ctrl is TORCheckBox) then + begin + Done := FALSE; + if(cnt = 0) then + cnt := DelimCount(AText, '|') + 1; + for j := 1 to cnt do + begin + if(TORCheckBox(Ctrl).Caption = piece(AText,'|',j)) then + TORCheckBox(Ctrl).Checked := TRUE; + end; + end + else + if(Ctrl is TfraTemplateFieldButton) then + TfraTemplateFieldButton(Ctrl).ButtonText := AText + else + if(Ctrl is TPanel) then + begin + for j := 0 to Ctrl.ComponentCount-1 do + if Ctrl.Components[j] is TUpDown then + begin + TUpDown(Ctrl.Components[j]).Position := StrToIntDef(AText,0); + break; + end; + end; + end; + if Done then break; + end; + finally + FUpdating := FALSE; + end; +end; + +procedure TTemplateDialogEntry.SetFieldValues(const Value: string); +var + i: integer; + TmpSL: TStringList; + +begin + FFieldValues := Value; + TmpSL := TStringList.Create; + try + TmpSL.CommaText := Value; + for i := 0 to TmpSL.Count-1 do + SetControlText(StrToIntDef(Piece(TmpSL[i], U, 1), 0), Piece(TmpSL[i], U, 2)); + finally + TmpSL.Free; + end; +end; + +procedure TTemplateDialogEntry.UpDownChange(Sender: TObject); +begin + EnsureText(TEdit(Sender), TUpDown(TEdit(Sender).Tag)); + DoChange(Sender); +end; + +{ TFieldPanel } + +destructor TFieldPanel.Destroy; +begin + if(assigned(FOnDestroy)) then + FOnDestroy(Self); + inherited; +end; + +{intercept the paint event to draw the focus rect if FFocused is true} +function TFieldPanel.GetFocus: boolean; +begin + result := Focused; +end; + +procedure TFieldPanel.Paint; +var + DC: HDC; + R: TRect; + +begin + inherited; + if(Focused) then + begin + if(not assigned(FCanvas)) then + FCanvas := TControlCanvas.Create; + DC := GetWindowDC(Handle); + try + FCanvas.Handle := DC; + R := ClientRect; + InflateRect(R, -1, -1); + FCanvas.DrawFocusRect(R); + finally + ReleaseDC(Handle, DC); + end; + end; +end; + +procedure TFieldPanel.SetTheFocus(const Value: boolean); +begin + if Value then + SetFocus; +end; + +{ TWebLabel } + +procedure TWebLabel.Clicked(Sender: TObject); +begin + GotoWebPage(FAddr); +end; + +procedure TWebLabel.Init(Addr: string); +begin + FAddr := Addr; + OnClick := Clicked; + Font.Assign(TORExposedControl(Parent).Font); + Font.Color := clActiveCaption; + Font.Style := Font.Style + [fsUnderline]; + AdjustBounds; // make sure we have the right width + AutoSize := FALSE; + Height := Height + 1; // Courier New doesn't support underline unless it's higher + Cursor := crHandPoint; +end; + +function StripEmbedded(iItems: string): string; +{7/26/01 S Monson + Returns the field will all embedded fields removed} +var + p1, p2, icur: integer; +Begin + p1 := pos(TemplateFieldBeginSignature,iItems); + icur := 0; + while p1 > 0 do + begin + p2 := pos(TemplateFieldEndSignature,copy(iItems,icur+p1+TemplateFieldSignatureLen,maxint)); + if p2 > 0 then + begin + delete(iItems,p1+icur,TemplateFieldSignatureLen+p2+TemplateFieldSignatureEndLen-1); + icur := icur + p1 - 1; + p1 := pos(TemplateFieldBeginSignature,copy(iItems,icur+1,maxint)); + end + else + p1 := 0; + end; + Result := iItems; +end; + +initialization + +finalization + KillObj(@uTmplFlds, TRUE); + KillObj(@uEntries, TRUE); + +end. diff --git a/CPRS-Chart/Templates/uTemplates.pas b/CPRS-Chart/Templates/uTemplates.pas new file mode 100644 index 0000000..dc236d5 --- /dev/null +++ b/CPRS-Chart/Templates/uTemplates.pas @@ -0,0 +1,2882 @@ +unit uTemplates; + +{$O-} + +interface +uses + Classes, Controls, SysUtils, Forms, ORFn, ORNet, Dialogs, MSXML_TLB, uTIU, uDCSumm, Variants; + +type + TTemplateType = (ttNone, ttMyRoot, ttRoot, ttTitles, ttConsults, ttProcedures, + ttClass, ttDoc, ttGroup, ttDocEx, ttGroupEx); + TTemplateLinkTypes = ttTitles..ttProcedures; + +const + AllTemplateLinkTypes = [ttTitles..ttProcedures]; + AllTemplateRootTypes = [ttMyRoot, ttRoot, ttTitles, ttConsults, ttProcedures]; + AllTemplateTrueTypes = AllTemplateRootTypes + [ttNone, ttClass]; + AllTemplateFolderTypes = AllTemplateRootTypes + [ttGroup, ttClass]; + +type + TTemplateChildren = (tcNone, tcActive, tcInactive, tcBoth); + TTemplateAccess = (taAll, taReadOnly, taNone, taEditor); + TTemplateLinkType = (ltNone, ltTitle, ltConsult, ltProcedure); + + TTemplateBackup = record + BPrintName: string; + BGap: integer; + BRealType: TTemplateType; + BActive: boolean; + BDisplayOnly: boolean; + BFirstLine: boolean; + BOneItemOnly: boolean; + BHideDlgItems: boolean; + BHideItems: boolean; + BIndentItems: boolean; + BExclude: boolean; + BDialog: boolean; + BPersonalOwner: Int64; + BBoilerPlate: string; + BItemIENs: string; + BDescription: string; + BReminderDialog: string; + BLock: boolean; + BCOMObject: integer; + BCOMParam: string; + BFileLink: string; + + SavedPrintName: boolean; + SavedGap: boolean; + SavedRealType: boolean; + SavedActive: boolean; + SavedDisplayOnly: boolean; + SavedFirstLine: boolean; + SavedOneItemOnly: boolean; + SavedHideDlgItems: boolean; + SavedHideItems: boolean; + SavedIndentItems: boolean; + SavedExclude: boolean; + SavedDialog: boolean; + SavedPersonalOwner: boolean; + SavedBoilerPlate: boolean; + SavedItemIENs: boolean; + SavedDescription: boolean; + SavedReminderDialog: boolean; + SavedLock: boolean; + SavedCOMObject: boolean; + SavedCOMParam: boolean; + SavedFileLink: boolean; + end; + + TTemplate = class(TObject) + private + FDescriptionLoaded: boolean; // Template Notes Loaded Flag + FDescription: string; // Template Notes + FCreatingChildren: boolean; // Flag used to prevent infinite recursion + FExclude: boolean; // Exclude from group boilerplate + FActive: boolean; + FDisplayOnly: boolean; // Suppresses checkbox in dialog - no PN text + FFirstLine: boolean; // Display only the first line in a dialog box + FOneItemOnly: boolean; // Allow only one Child Item to be selected in dialog + FHideDlgItems: boolean; // Hide Child Items when not checked + FHideItems: boolean; // Hide items in Templates Drawer Tree + FIndentItems: boolean; // Indent Items in dialog only + FLock: boolean; // Locks Shared Templates + FDialog: boolean; // Determines if Group is a Dialog + FBoilerPlateLoaded: boolean; // Boilerplate Loaded Flag + FBoilerplate: string; // Boilerplate + FID: string; // Template IEN + FPrintName: string; // Template Name + FItems: TList; // Holds pointers to children templates + FNodes: TStringList; // Holds tree nodes that reference the template + // string value is tmp index used for syncing + FRealType: TTemplateType; // Real Template Type (from the template file) + FGap: integer; // Number of blank lines to insert between items + FChildren: TTemplateChildren; // flag indicating the active status of children + FPersonalOwner: Int64; // owner DUZ + FExpanded: boolean; // Indicates children have been read from server + FTag: longint; // Used internally for syncing + FLastTagIndex: longint; // Used internally for syncing + FBkup: TTemplateBackup; // Backup values to determine what needs to be saved + FLastDlgCnt: longint; + FLastUniqueID: longint; + FDialogAborted: boolean; // Flag indicating Cancel was pressed on the dialog + FReminderDialog: string; // Reminder Dialog IEN ^ Reminder Dialog Name + FIsReminderDialog: boolean; // Flag used internally for setting Type + FIsCOMObject: boolean; // Flag used internally for setting Type + FLocked: boolean; // Flag Indicating Template is locked + FCOMObject: integer; // COM Object IEN + FCOMParam: string; // Param to pass to COM Object + FFileLink: string; // Used to link templates to Titles and Reasons for Request + FLinkName: string; + FCloning: boolean; // Flag used to prevent locking during the cloning process + FPreviewMode: boolean; // Flag to prevent "Are you sure you want to cancel?" dialog when previewing + protected + function TrueClone: TTemplate; + function GetItems: TList; + function GetTemplateType: TTemplateType; + function GetBoilerplate: string; + function GetChildren: TTemplateChildren; + procedure SetTemplateType(const Value: TTemplateType); + procedure SetBoilerplate(Value: string); + function GetText: string; + procedure SetPersonalOwner(Value: Int64); + procedure SetActive(const Value: boolean); + procedure SetDisplayOnly(const Value: boolean); + procedure SetFirstLine(const Value: boolean); + procedure SetOneItemOnly(const Value: boolean); + procedure SetHideDlgItems(const Value: boolean); + procedure SetHideItems(const Value: boolean); + procedure SetIndentItems(const Value: boolean); + procedure SetLock(const Value: boolean); + procedure SetExclude(const Value: boolean); + procedure SetDialog(const Value: boolean); + procedure SetGap(const Value: integer); + procedure SetPrintName(const Value: string); + procedure SetRealType(const Value: TTemplateType); + procedure ClearBackup(ClearItemIENs: boolean = TRUE); + procedure SetDescription(const Value: string); + function GetDescription: string; + function GetDialogAborted: boolean; + procedure SetReminderDialog(const Value: string); // Reminder Dialog IEN + procedure SetCOMObject(const Value: integer); + procedure SetCOMParam(const Value: string); + procedure AssignFileLink(const Value: string; Force: boolean); + procedure SetFileLink(const Value: string); + function ValidID: boolean; + public + constructor Create(DataString: string); + class function CreateFromXML(Element: IXMLDOMNode; Owner: string): TTemplate; + destructor Destroy; override; + function CanModify: boolean; + procedure Unlock; + procedure AddNode(Node: Pointer); + procedure RemoveNode(Node: Pointer); + procedure AddChild(Child: TTemplate); + procedure RemoveChild(Child: TTemplate); + function Clone(Owner: Int64): TTemplate; + function ItemBoilerplate: string; + function FullBoilerplate: string; + function ItemIENs: string; + procedure BackupItems; + procedure SortChildren; + function Changed: boolean; + function DialogProperties(Parent: TTemplate = nil): string; + function DlgID: string; + function IsDialog: boolean; + function CanExportXML(Data, Fields: TStringList; IndentLevel: integer = 0): boolean; + function ReminderDialogIEN: string; + function ReminderDialogName: string; + function ReminderWipe: string; //AGP Change 24.8 + function IsLocked: boolean; + procedure UpdateImportedFieldNames(List: TStrings); + //function COMObjectText(const DefText: string = ''; DocInfo: string = ''): string; + function COMObjectText(DefText: string; var DocInfo: string): string; + function AutoLock: boolean; + function LinkType: TTemplateLinkType; + function LinkIEN: string; + function LinkName: string; + procedure ExecuteReminderDialog(OwningForm: TForm); + property Nodes: TStringList read FNodes; + property ID: string read FID; + property PrintName: string read FPrintName write SetPrintName; + property RealType: TTemplateType read FRealType write SetRealType; + property TemplateType: TTemplateType read GetTemplateType write SetTemplateType; + property Active: boolean read FActive write SetActive; + property DisplayOnly: boolean read FDisplayOnly write SetDisplayOnly; + property FirstLine: boolean read FFirstLine write SetFirstLine; + property OneItemOnly: boolean read FOneItemOnly write SetOneItemOnly; + property HideDlgItems: boolean read FHideDlgItems write SetHideDlgItems; + property HideItems: boolean read FHideItems write SetHideItems; + property IndentItems: boolean read FIndentItems write SetIndentItems; + property Lock: boolean read FLock write SetLock; + property Exclude: boolean read FExclude write SetExclude; + property Dialog: boolean read FDialog write SetDialog; + property Boilerplate: string read GetBoilerplate write SetBoilerplate; + property Children: TTemplateChildren read GetChildren; + property Items: TList read GetItems; + property Gap: integer read FGap write SetGap; + property Description: string read GetDescription write SetDescription; + property Text: string read GetText; + property PersonalOwner: Int64 read FPersonalOwner write SetPersonalOwner; + property Expanded: boolean read FExpanded write FExpanded; + property Tag: longint read FTag write FTag; + property LastTagIndex: longint read FLastTagIndex write FLastTagIndex; + property DialogAborted: boolean read GetDialogAborted; + property ReminderDialog: string read FReminderDialog write SetReminderDialog; + property IsReminderDialog: boolean read FIsReminderDialog write FIsReminderDialog; + property IsCOMObject: boolean read FIsCOMObject write FIsCOMObject; + property Locked: boolean read FLocked; + property COMObject: integer read FCOMObject write SetCOMObject; + property COMParam: string read FCOMParam write SetCOMParam; + property FileLink: string read FFileLink write SetFileLink; + property TemplatePreviewMode: boolean read FPreviewMode write FPreviewMode; + end; + +function SearchMatch(const SubStr, Str: string; const WholeWordsOnly: boolean): boolean; +function UserTemplateAccessLevel: TTemplateAccess; +function AddTemplate(DataString: string; Owner: TTemplate = nil): TTemplate; +procedure LoadTemplateData; +procedure ExpandTemplate(tmpl: TTemplate); +procedure ReleaseTemplates; +procedure RemoveAllNodes; +function CanEditLinkType(LinkType: TTemplateLinkTypes): boolean; +function GetLinkedTemplate(IEN: string; LType: TTemplateLinkType): TTemplate; +function ConvertFileLink(IEN: string; LType: TTemplateLinkType): string; +function GetLinkName(IEN: string; LType: TTemplateLinkType): string; + +function BackupDiffers: boolean; +procedure SaveTemplate(Template: TTemplate; Idx: integer; ErrorList: TStrings = nil); +function SaveAllTemplates: boolean; +procedure ClearBackup; +procedure MarkDeleted(Template: TTemplate); +function BadTemplateName(Text: string): boolean; +procedure WordImportError(msg: string); +procedure XMLImportError(Result: HResult); +procedure XMLImportCheck(Result: HResult); +function GetXMLFromWord(const AFileName: string; Data: TStrings): boolean; +function WordImportActive: boolean; +procedure UnlockAllTemplates; +function DisplayGroupToLinkType(DGroup: integer): TTemplateLinkType; + +(*procedure ExecuteTemplateOrBoilerPlate(SL: TStrings; IEN: Integer; LType: TTemplateLinkType; + OwningForm: TForm; const CaptionText: string = ''; DocInfo: string = ''); overload; +procedure ExecuteTemplateOrBoilerPlate(var AText: string; IEN: Integer; LType: TTemplateLinkType; + OwningForm: TForm; const CaptionText: string = ''; DocInfo: string = ''); overload;*) +procedure ExecuteTemplateOrBoilerPlate(SL: TStrings; IEN: Integer; LType: TTemplateLinkType; + OwningForm: TForm; CaptionText: string; var DocInfo: string); overload; +procedure ExecuteTemplateOrBoilerPlate(var AText: string; IEN: Integer; LType: TTemplateLinkType; + OwningForm: TForm; CaptionText: string; var DocInfo: string); overload; + +procedure ExpandEmbeddedFields(flds: TStringList); +function MakeXMLParamTIU(ANoteID: string; ANoteRec: TEditNoteRec): string; overload; +function MakeXMLParamTIU(ADCSummID: string; ADCSummRec: TEditDCSummRec): string; overload; +function GetXMLParamReturnValueTIU(DocInfo, ParamTag: string): string; + +const + EmptyNodeText = '<^Empty Node^>'; + NewTemplateName = 'New Template'; + FirstRealTemplateType = ttMyRoot; + LastRealTemplateType = ttGroup; + TemplateTypeCodes: array[FirstRealTemplateType..LastRealTemplateType] of string[2] = + ('P','R','TF','CF','OF','C','T','G'); + BadNameText = CRLF + CRLF + 'Valid Template names must start with an alphanumber '+ + 'character, and be at least 3 characters in length.' + CRLF + + 'In addition, no template can be named "' + NewTemplateName+'".'; + + TemplateLockedText = 'Template %s is currently being edited by another user.'; + + XMLTemplateTag = 'TEMPLATE'; + XMLTemplateFieldsTag = 'TEMPLATE_FIELDS'; + XMLHeader = 'CPRS_TEMPLATE'; + +var + Templates: TStringList = nil; + RootTemplate: TTemplate = nil; + MyTemplate: TTemplate = nil; + TitlesTemplate: TTemplate = nil; + ConsultsTemplate: TTemplate = nil; + ProceduresTemplate: TTemplate = nil; + +implementation + +uses + Windows, rTemplates, uCore, dShared, fTemplateDialog, ActiveX, ComObj, uTemplateFields, + XMLUtils, fTemplateImport, Word97, uSpell, rCore, uConst, ORCtrls, uEventHooks, + fReminderDialog, rODBase; + +const + MaxSeq = 999999; + sLoading = 'Loading Template Information...'; + +type + ETemplateError = class(Exception); + ETemplateImportError = class(Exception); + ETemplateXMLImportError = class(EOleSysError); + +var + TemplateAccessLevelChecked: boolean = FALSE; + TemplateAccessLevelValue: TTemplateAccess; + LastTemplateLocation: integer = 0; + TempSL: TStringList = nil; + Deleted: TStringList = nil; + NodeCount: longint = 0; // Used by FNodes to prevent access violations in a Resync + + GettingDialogText: boolean = FALSE; + uIndentLevel: integer; + uDlgCount: longint = 0; // Used for dialogs on unsaved templates + uUniqueIDNum: longint = 0; // Used for dialogs on unsaved templates + uCanEditLinkTypeResults: string = ''; + uTemplateDataLoaded: boolean = FALSE; + uDGroupConsults: integer = 0; + uDGroupProcedures: integer = 0; + +type + TTemplateExportField = (efName, efBlankLines, efType, efStatus, efExclude, efDialog, + efDisplayOnly, efFirstLine, efOneItemOnly, efHideDialogItems, + efHideTreeItems, efIndentItems, efBoilerplate, efDescription, + efItems, efLock); + +const + TemplateActiveCode: array[boolean] of string[1] = ('I','A'); + TemplateExportTag: array[TTemplateExportField] of string = // From Field Names in File 8927 + { efName } ('NAME', + { efBlankLines } 'BLANK_LINES', + { efType } 'TYPE', + { efStatus } 'STATUS', + { efExclude } 'EXCLUDE_FROM_GROUP_BOILERPLATE', + { efDialog } 'DIALOG', + { efDisplayOnly } 'DISPLAY_ONLY', + { efFirstLine } 'FIRST_LINE', + { efOneItemOnly } 'ONE_ITEM_ONLY', + { efHideDialogItems } 'HIDE_DIALOG_ITEMS', + { efHideTreeItems } 'HIDE_TREE_ITEMS', + { efIndentItems } 'INDENT_ITEMS', + { efBoilerplate } 'BOILERPLATE_TEXT', + { efDescription } 'DESCRIPTION', + { efItems } 'ITEMS', + { efLock } 'LOCK'); + + ExportPieces:array[TTemplateExportField] of integer = + { efName } (4, + { efBlankLines } 6, + { efType } 2, + { efStatus } 3, + { efExclude } 5, + { efDialog } 9, + { efDisplayOnly } 10, + { efFirstLine } 11, + { efOneItemOnly } 12, + { efHideDialogItems } 13, + { efHideTreeItems } 14, + { efIndentItems } 15, + { efBoilerplate } 0, + { efDescription } 0, + { efItems } 0, + { efLock } 18); + + XMLErrorMessage = 'Error Importing Template. File does not contain Template ' + + 'information or may be corrupted.'; + + WordErrorMessage = 'Error Importing Word Document.'; + +type + TTemplateFieldExportField = (tfName, tfType, tfLength, tfDefault, tfDefIdx, tfDesc, + tfItems, tfDateType, tfTextLen, tfMinVal, tfMaxVal); + +const + TemplateFieldExportTag: array[TTemplateFieldExportField] of string = // From Field Names in File 8927.1 + { tfName } ('NAME', + { tfType } 'TYPE', + { tfLength } 'LENGTH', + { tfDefault } 'DEFAULT_TEXT', + { tfDefIdx } 'DEFAULT_INDEX', + { tfDesc } 'DESCRIPTION', + { tfItems } 'ITEMS', + { tfDateType } 'DATE_TYPE', + { tfTextLen } 'MAX_LENGTH', + { tfMinVal } 'MIN_VALUE', + { tfMaxVal } 'MAX_VALUE'); + + XMLFieldTag = 'FIELD'; + + LinkGlobal: array[TTemplateLinkType] of string = + { ltNone } ('', + { ltTitle } ';TIU(8925.1,', + { ltConsult } ';GMR(123.5,', + { ltProcedure } ';GMR(123.3,'); + + LinkPassCode: array[TTemplateLinkType] of string = + { ltNone } ('', + { ltTitle } 'T', + { ltConsult } 'C', + { ltProcedure } 'P'); + +function DlgText(const txt: string; DlgProps: string): string; +var + i, j: integer; + +begin + Result := txt; + if GettingDialogText then + begin + if (Result = '') then + Result := NoTextMarker; + i := pos(DlgPropMarker, Result); + j := pos(ObjMarker, Result); + if(i > 0) and (j > 0) then + delete(Result, i, j - i + ObjMarkerLen) + else + i := length(Result) + 1; + insert(DlgPropMarker + DlgProps + ObjMarker, Result, i); + end; +end; + +function SearchMatch(const SubStr, Str: string; const WholeWordsOnly: boolean): boolean; +const + AlphaNumeric = ['A'..'Z','a'..'z','0'..'9']; + +var + i, j: integer; + +begin + i := pos(SubStr,Str); + if(i > 0) then + begin + Result := TRUE; + if(WholeWordsOnly) then + begin + if((i > 1) and (Str[i-1] in AlphaNumeric)) then + Result := FALSE + else + begin + j := length(SubStr); + if((i+j) <= length(Str)) then + Result := (not (Str[i+j] in AlphaNumeric)); + end; + end; + end + else + Result := FALSE; +end; + +function UserTemplateAccessLevel: TTemplateAccess; +var + i: integer; + +begin + if(TemplateAccessLevelChecked and + (LastTemplateLocation = Encounter.Location)) then + Result := TemplateAccessLevelValue + else + begin + TemplateAccessLevelChecked := FALSE; + LastTemplateLocation := 0; + if(not assigned(RootTemplate)) then + begin + Result := taAll; + GetTemplateRoots; + for i := 0 to RPCBrokerV.Results.Count-1 do + begin + if(Piece(RPCBrokerV.Results[i],U,2)=TemplateTypeCodes[ttRoot]) then + begin + Result := TTemplateAccess(GetTemplateAccess(Piece(RPCBrokerV.Results[i],U,1))); + LastTemplateLocation := Encounter.Location; + TemplateAccessLevelChecked := TRUE; + TemplateAccessLevelValue := Result; + Break; + end; + end; + end + else + begin + Result := TTemplateAccess(GetTemplateAccess(RootTemplate.ID)); + LastTemplateLocation := Encounter.Location; + TemplateAccessLevelChecked := TRUE; + TemplateAccessLevelValue := Result; + end; + end; +end; + +function AddTemplate(DataString: string; Owner: TTemplate = nil): TTemplate; +var + idx: integer; + id: string; + tmpl: TTemplate; + +begin + id := Piece(DataString, U, 1); + if(id = '') or (id = '0') then + idx := -1 + else + idx := Templates.IndexOf(id); + if(idx < 0) then + begin + tmpl := TTemplate.Create(DataString); + Templates.AddObject(id, tmpl); + if(tmpl.Active) then + begin + if (tmpl.RealType = ttRoot) then + RootTemplate := tmpl + else if (tmpl.RealType = ttTitles) then + TitlesTemplate := tmpl + else if (tmpl.RealType = ttConsults) then + ConsultsTemplate := tmpl + else if (tmpl.RealType = ttProcedures) then + ProceduresTemplate := tmpl + else if(tmpl.RealType = ttMyRoot) then + MyTemplate := tmpl; + end; + end + else + tmpl := TTemplate(Templates.Objects[idx]); + if(assigned(Owner)) and (assigned(tmpl)) then + Owner.AddChild(tmpl); + Result := tmpl; +end; + +procedure LoadTemplateData; +var + i: integer; + TmpSL: TStringList; + +begin + if(not uTemplateDataLoaded) then + begin + StatusText(sLoading); + try + if(not assigned(Templates)) then + Templates := TStringList.Create; + TmpSL := TStringList.Create; + try + GetTemplateRoots; + TmpSL.Assign(RPCBrokerV.Results); + for i := 0 to TmpSL.Count-1 do + AddTemplate(TmpSL[i]); + uTemplateDataLoaded := TRUE; + finally + TmpSL.Free; + end; + finally + StatusText(''); + end; + end; +end; + +procedure ExpandTemplate(tmpl: TTemplate); +var + i: integer; + TmpSL: TStringList; + +begin + if(not tmpl.Expanded) then + begin + if(tmpl.Children <> tcNone) then + begin + StatusText(sLoading); + try + TmpSL := TStringList.Create; + try + GetTemplateChildren(tmpl.FID); + TmpSL.Assign(RPCBrokerV.Results); + for i := 0 to TmpSL.Count-1 do + AddTemplate(TmpSL[i], tmpl); + finally + TmpSL.Free; + end; + finally + StatusText(''); + end; + end; + tmpl.Expanded := TRUE; + with tmpl,tmpl.FBkup do + begin + BItemIENs := ItemIENs; + SavedItemIENs := TRUE; + end; + end; +end; + +procedure ReleaseTemplates; +var + i: integer; + +begin + if(assigned(Templates)) then + begin + for i := 0 to Templates.Count-1 do + TTemplate(Templates.Objects[i]).Free; + Templates.Free; + Templates := nil; + uTemplateDataLoaded := FALSE; + end; + ClearBackup; + if(assigned(TempSL)) then + begin + TempSL.Free; + TempSL := nil; + end; + if(assigned(Deleted)) then + begin + Deleted.Clear; + Deleted := nil; + end; + RootTemplate := nil; + MyTemplate := nil; + TitlesTemplate := nil; + ConsultsTemplate := nil; + ProceduresTemplate := nil; +end; + +procedure RemoveAllNodes; +var + i: integer; + +begin + if(assigned(Templates)) then + begin + for i := 0 to Templates.Count-1 do + TTemplate(Templates.Objects[i]).FNodes.Clear; + end; +end; + +function CanEditLinkType(LinkType: TTemplateLinkTypes): boolean; + + function CanEditType(Template: TTemplate): boolean; + begin + if not assigned(Template) then + Result := FALSE + else + if pos(Char(ord(LinkType)+ord('0')), uCanEditLinkTypeResults) > 0 then + Result := (pos(Char(ord(LinkType)+ord('A')), uCanEditLinkTypeResults) > 0) + else + begin + Result := IsUserTemplateEditor(Template.ID, User.DUZ); + uCanEditLinkTypeResults := uCanEditLinkTypeResults + Char(ord(LinkType)+ord('0')); + if Result then + uCanEditLinkTypeResults := uCanEditLinkTypeResults + Char(ord(LinkType)+ord('A')); + end; + end; + +begin + case LinkType of + ttTitles: Result := CanEditType(TitlesTemplate); + ttConsults: Result := CanEditType(ConsultsTemplate); + ttProcedures: Result := CanEditType(ProceduresTemplate); + else Result := FALSE; + end; +end; + +function GetLinkedTemplate(IEN: string; LType: TTemplateLinkType): TTemplate; +var + idx: integer; + Data, ALink: string; + +begin + Result := nil; + if LType <> ltNone then + begin + if(not assigned(Templates)) then + Templates := TStringList.Create; + ALink := IEN + LinkGlobal[LType]; + for idx := 0 to Templates.Count-1 do + begin + if ALink = TTemplate(Templates.Objects[idx]).FFileLink then + begin + Result := TTemplate(Templates.Objects[idx]); + break; + end; + end; + if not assigned(Result) then + begin + Data := GetLinkedTemplateData(ALink); + if Data <> '' then + Result := AddTemplate(Data); + end; + end; +end; + +function ConvertFileLink(IEN: string; LType: TTemplateLinkType): string; +begin + if(LType = ltNone) or (IEN = '') or (StrToIntDef(IEN,0) = 0) then + Result := '' + else + Result := IEN + LinkGlobal[LType]; +end; + +function GetLinkName(IEN: string; LType: TTemplateLinkType): string; +var + IEN64: Int64; + +begin + IEN64 := StrToInt64Def(IEN,0); + case LType of + ltTitle: Result := ExternalName(IEN64,8925.1); + ltConsult: Result := ExternalName(IEN64,123.5); + ltProcedure: Result := ExternalName(IEN64,123.3); + else Result := ''; + end; +end; + +function BackupDiffers: boolean; +var + i: integer; + +begin + Result := FALSE; + if(assigned(Templates)) then + begin + for i := 0 to Templates.Count-1 do + begin + if(TTemplate(Templates.Objects[i]).Changed) then + begin + Result := TRUE; + exit; + end; + end; + end; +end; + +procedure DisplayErrors(Errors: TStringList; SingleError: string = ''); +begin + if(assigned(Errors)) then + ShowMessage(Errors.text) + else + ShowMessage(SingleError); +end; + + +procedure SaveTemplate(Template: TTemplate; Idx: integer; ErrorList: TStrings = nil); +var + i: integer; + ID, Tmp: string; + NoCheck: boolean; + DescSL: TStringList; + +begin +{ Removed because this may be a bug??? - what if it's hidden? - + better to save and delete than miss it +//Don't save new templates that have been deleted + if(((Template.ID = '0') or (Template.ID = '')) and + (Template.Nodes.Count = 0)) then exit; +} + if(not Template.Changed) then + begin + Template.Unlock; + exit; + end; + + if(not assigned(TempSL)) then + TempSL := TStringList.Create; + TempSL.Clear; + ID := Template.ID; + + NoCheck := (ID = '0') or (ID = ''); + + with Template,Template.FBkup do + begin + if(NoCheck or (SavedBoilerplate and (BBoilerplate <> Boilerplate))) then + begin + TempSL.Text := BoilerPlate; + if(TempSL.Count > 0) then + begin + for i := 0 to TempSL.Count-1 do + TempSL[i] := '2,'+IntToStr(i+1)+',0='+TempSL[i]; + end + else + TempSL.Add('2,1=@'); + end; + + if(NoCheck or (SavedPrintName and (BPrintName <> PrintName))) then + TempSL.Add('.01='+PrintName); + + if(NoCheck or (SavedGap and (BGap <> Gap))) then + begin + if Gap = 0 then + TempSL.Add('.02=@') + else + TempSL.Add('.02='+IntToStr(Gap)); + end; + + if(NoCheck or (SavedRealType and (BRealType <> RealType))) then + TempSL.Add('.03='+TemplateTypeCodes[RealType]); + + if(NoCheck or (SavedActive and (BActive <> Active))) then + TempSL.Add('.04='+TemplateActiveCode[Active]); + + if(NoCheck or (SavedExclude and (BExclude <> FExclude))) then + TempSL.Add('.05='+BOOLCHAR[Exclude]); + + if(NoCheck or (SavedDialog and (BDialog <> FDialog))) then + TempSL.Add('.08='+BOOLCHAR[Dialog]); + + if(NoCheck or (SavedDisplayOnly and (BDisplayOnly <> DisplayOnly))) then + TempSL.Add('.09='+BOOLCHAR[DisplayOnly]); + + if(NoCheck or (SavedFirstLine and (BFirstLine <> FirstLine))) then + TempSL.Add('.1='+BOOLCHAR[FirstLine]); + + if(NoCheck or (SavedOneItemOnly and (BOneItemOnly <> OneItemOnly))) then + TempSL.Add('.11='+BOOLCHAR[OneItemOnly]); + + if(NoCheck or (SavedHideDlgItems and (BHideDlgItems <> HideDlgItems))) then + TempSL.Add('.12='+BOOLCHAR[HideDlgItems]); + + if(NoCheck or (SavedHideItems and (BHideItems <> HideItems))) then + TempSL.Add('.13='+BOOLCHAR[HideItems]); + + if(NoCheck or (SavedIndentItems and (BIndentItems <> IndentItems))) then + TempSL.Add('.14='+BOOLCHAR[IndentItems]); + + if(NoCheck or (SavedReminderDialog and (BReminderDialog <> ReminderDialog))) then + begin + if ReminderDialogIEN = '' then + TempSL.Add('.15=@') + else + TempSL.Add('.15='+ReminderDialogIEN); + end; + + if(NoCheck or (SavedLock and (BLock <> Lock))) then + TempSL.Add('.16='+BOOLCHAR[Lock]); + + if(NoCheck or (SavedCOMObject and (BCOMObject <> COMObject))) then + begin + if COMObject = 0 then + TempSL.Add('.17=@') + else + TempSL.Add('.17='+IntToStr(COMObject)); + end; + + if(NoCheck or (SavedCOMParam and (BCOMParam <> COMParam))) then + begin + if COMParam = '' then + TempSL.Add('.18=@') + else + TempSL.Add('.18=' + COMParam); + end; + + if(NoCheck or (SavedFileLink and (BFileLink <> FileLink))) then + begin + if FileLink = '' then + TempSL.Add('.19=@') + else + TempSL.Add('.19=' + FileLink); + end; + + if(NoCheck or (SavedPersonalOwner and (BPersonalOwner <> PersonalOwner))) then + begin + if(PersonalOwner = 0) then + Tmp := '' + else + Tmp := IntToStr(PersonalOwner); + TempSL.Add('.06='+Tmp); + end; + + if(NoCheck or (SavedDescription and (BDescription <> Description))) then + begin + DescSL := TStringList.Create; + try + DescSL.Text := Description; + if(DescSL.Count > 0) then + begin + for i := 0 to DescSL.Count-1 do + DescSL[i] := '5,'+IntToStr(i+1)+',0='+DescSL[i]; + end + else + DescSL.Add('5,1=@'); + TempSL.AddStrings(DescSL) + finally + DescSL.Free; + end; + end; + + end; + + if(TempSL.Count > 0) then + begin + Tmp := UpdateTemplate(ID, TempSL); + if(Piece(Tmp,U,1) = '0') then + begin + Tmp := 'Error Saving ' + Template.PrintName + ' ' + ID + '=' + Tmp; + if(Assigned(ErrorList)) then + ErrorList.Add(Tmp) + else + DisplayErrors(nil, Tmp); + end + else + begin + if(((ID = '') or (ID = '0')) and (Tmp <> ID)) then + begin + if(idx < 0) then + idx := Templates.IndexOfObject(Template); + Template.FID := Tmp; + Templates[idx] := Tmp; + if assigned(Template.FNodes) then + begin + for i := 0 to Template.FNodes.Count-1 do + TORTreeNode(Template.FNodes.Objects[i]).StringData := Template.ID + U + Template.PrintName; + end; + end; + Template.ClearBackup(FALSE); + if NoCheck then with Template.FBkup do + begin + BItemIENs := ''; + SavedItemIENs := TRUE; + end; + end; + end; +end; + +function SaveAllTemplates: boolean; +var + i, k: integer; + New: TTemplate; + Errors: TStringList; + First, ChildErr: boolean; + +begin + Errors := TStringList.Create; + try + if(assigned(Templates)) then + begin + if(not assigned(TempSL)) then + TempSL := TStringList.Create; + for i := 0 to Templates.Count-1 do + SaveTemplate(TTemplate(Templates.Objects[i]), i, Errors); + First := TRUE; + if(Errors.Count > 0) then + Errors.Insert(0,'Errors Encountered Saving Templates:'); + for i := 0 to Templates.Count-1 do + begin + New := TTemplate(Templates.Objects[i]); + with New.FBkup do + if(SavedItemIENs and (BItemIENs <> New.ItemIENs)) then + begin + TempSL.Clear; + for k := 0 to New.Items.Count-1 do + TempSL.Add(TTemplate(New.Items[k]).FID); + UpdateChildren(New.ID, TempSL); + ChildErr := FALSE; + for k := 0 to RPCBrokerV.Results.Count-1 do + begin + if(RPCBrokerV.Results[k] <> IntToStr(k+1)) then + begin + if(First) then + begin + Errors.Add('Errors Encountered Saving Children:'); + First := FALSE; + end; + Errors.Add(New.ID+' Item #'+IntToStr(k+1)+'('+ + TTemplate(New.Items[k]).FID+')'+'='+RPCBrokerV.Results[k]); + ChildErr := TRUE; + end; + end; + if(not ChildErr) then + BItemIENs := New.ItemIENs; + end; + New.Unlock; + end; + if(assigned(Deleted)) and (Deleted.Count > 0) then + begin + DeleteTemplates(Deleted); + Deleted.Clear; + end; + if(Errors.Count > 0) then + DisplayErrors(Errors); + end; + finally + Result := (Errors.Count = 0); + Errors.Free; + end; +end; + +procedure ClearBackup; +var + i: integer; + +begin + if(assigned(Templates)) then + begin + for i := 0 to Templates.Count-1 do + TTemplate(Templates.Objects[i]).ClearBackup; + end; +end; + +procedure MarkDeleted(Template: TTemplate); +var + i, idx: integer; + +begin + if(Template.ValidID) then + begin + if(not assigned(Deleted)) then + Deleted := TStringList.Create; + idx := Deleted.IndexOf(Template.ID); + if(idx < 0) then + Deleted.Add(Template.ID); + end; + Template.FileLink := ''; + Template.GetItems; + for i := 0 to Template.FItems.Count-1 do + MarkDeleted(TTemplate(Template.FItems[i])); +end; + +function BadTemplateName(Text: string): boolean; +begin + Result := FALSE; + if(Text = NewTemplateName) or (length(Text) < 3) then + Result := TRUE + else + if(not (Text[1] in ['a'..'z','A'..'Z','0'..'9'])) then + Result := TRUE; +end; + +procedure WordImportError(msg: string); +begin + raise ETemplateImportError.Create(WordErrorMessage + CRLF + msg); +end; + +procedure XMLImportError(Result: HResult); +begin + raise ETemplateXMLImportError.Create(XMLErrorMessage, Result, 0); +end; + +procedure XMLImportCheck(Result: HResult); +begin + if not Succeeded(Result) then + XMLImportError(Result); +end; + +procedure AddXMLData(Data: TStrings; const Pad: string; FldType: TTemplateExportField; const Value, DefValue: string); +begin + if(Value <> '') and (Value <> DefValue) then + Data.Add(Pad + ' <' + TemplateExportTag[FldType] + '>' + Text2XML(Value) + + ''); +end; + +procedure AddXMLBool(Data: TStrings; const Pad: string; FldType: TTemplateExportField; const Value: boolean); +begin + AddXMLData(Data, Pad, FldType, BOOLCHAR[Value], BOOLCHAR[FALSE]); +end; + +procedure AddXMLList(Data, Fields: TStrings; const Pad: string; FldType: TTemplateExportField; Const Txt: string); +var + i: integer; + TmpSL: TStrings; + +begin + if(Txt <> '') then + begin + TmpSL := TStringList.Create; + try + TmpSL.Text := Txt; + Data.Add(Pad + ' <' + TemplateExportTag[FldType] + '>'); + for i := 0 to TmpSL.Count-1 do + Data.Add(Pad + '

' + Text2XML(TmpSL[i]) + '

'); + Data.Add(Pad + ' '); + finally + TmpSL.Free; + end; + if assigned(Fields) then + ListTemplateFields(Txt, Fields); + end; +end; + +function GetXMLFromWord(const AFileName: string; Data: TStrings): boolean; +var + itmp, itmp2, itmp3, i, j: integer; + WDoc: TWordDocument; + WasVis: boolean; + WApp: TWordApplication; + Boiler: string; + FldCache, Fields, PendingAdd: TStringList; + OldCur: TCursor; + idx, TmpVar, RangeStart, RangeEnd: oleVariant; + ddTotal, ffTotal, ffStartCur, ffEndCur, ffEndLast : integer; + ffRange, textRange: Range; + tmp, TemplateName, fName: string; + tmpType, tfIdx: TTemplateFieldType; + tmpDate: TTmplFldDateType; + + tfCount: array[TTemplateFieldType] of integer; + + procedure AddBoiler(txt: string); + var + i: integer; + c: char; + tmp: string; + + begin + tmp := ''; + for i := 1 to length(txt) do + begin + c := txt[i]; + if (c > #31) or (c = #13) or (c = #10) then + tmp := tmp + c; + end; + Boiler := Boiler + tmp; + end; + + procedure AddField(Typ: TTemplateFieldExportField; Value: string; Pending: boolean = FALSE); + var + sl: TStringList; + + begin + if Pending then + sl := PendingAdd + else + sl := Fields; + sl.Add('<' + TemplateFieldExportTag[Typ] + '>' + Text2XML(Value) + + ''); + end; + + procedure AddFieldHeader(FldType: TTemplateFieldType; First: boolean); + var + tmp: string; + + begin + tmp := '<'; + if not First then + tmp := tmp + '/'; + tmp := tmp + XMLFieldTag; + if First then + begin + fname := 'WORDFLD_' + FldNames[FldType] + '_'; + tfIdx := FldType; + tmp := tmp + ' ' + TemplateFieldExportTag[tfName] + '="' + Text2XML(fname); + end; + if not First then + tmp := tmp + '>'; + Fields.Add(tmp); + if First then + AddField(tfType, TemplateFieldTypeCodes[FldType]); + end; + + procedure WordWrap(var Str: string); + var + TmpSL: TStringList; + i: integer; + + begin + TmpSL := TStringList.Create; + try + TmpSL.Text := Str; + Str := ''; + for i := 0 to TmpSL.Count-1 do + begin + if Str <> '' then + Str := Str + CRLF; + Str := Str + WrapText(TmpSL[i], #13#10, [' ','-'], MAX_ENTRY_WIDTH); + end; + finally + TmpSL.Free; + end; + end; + +begin + for tfIdx := low(TTemplateFieldType) to high(TTemplateFieldType) do + tfCount[tfIdx] := 1; + TemplateName := ExtractFileName(AFileName); + Result := TRUE; + try + OldCur := Screen.Cursor; + Screen.Cursor := crAppStart; + try + WApp := TWordApplication.Create(nil); + try + WasVis := WApp.Visible; + WApp.Visible := FALSE; + try + WDoc := TWordDocument.Create(nil); + try + try + WApp.Connect; + TmpVar := AFileName; + WDoc.ConnectTo(WApp.Documents.Add(TmpVar, EmptyParam)); + ffTotal := WDoc.FormFields.Count; + + if ffTotal > 3 then + StartImportMessage(TemplateName, ffTotal+1); + + if WDoc.ProtectionType <> wdNoProtection then + WDoc.Unprotect; + + Data.Add('<'+XMLHeader+'>'); + + tmp := ExtractFileExt(TemplateName); + if tmp <> '' then + begin + i := pos(tmp,TemplateName); + if i > 0 then + delete(TemplateName, i, length(tmp)); + end; + TemplateName := copy(TemplateName, 1, 60); + + if BadTemplateName(TemplateName) then + begin + tmp := copy('WordDoc ' + TemplateName, 1, 60); + if BadTemplateName(TemplateName) then + tmp := 'Imported Word Document' + else + tmp := TemplateName; + end + else + tmp := TemplateName; + Data.Add('<' + XMLTemplateTag + ' ' + TemplateExportTag[efName] + '="' + Text2XML(tmp) + '">'); + AddXMLData(Data, '', efType, TemplateTypeCodes[ttDoc], ''); + AddXMLData(Data, '', efStatus, TemplateActiveCode[TRUE], ''); + + Boiler := ''; + Fields := TStringList.Create; + try + FldCache := TStringList.Create; + try + PendingAdd := TStringList.Create; + try + ffEndCur := 0; + + for i := 1 to ffTotal do + begin + if UpdateImportMessage(i) then + begin + Result := FALSE; + Data.Clear; + break; + end; + idx := i; + ffEndLast := ffEndCur; + ffRange := WDoc.FormFields.Item(idx).Range; + ffStartCur := ffRange.Start; + ffEndCur := ffRange.End_; + + // Assign working start range for text collection: + if i = 1 then + rangeStart := 0 // Before first FormField, use start of document. + else + rangeStart := ffEndLast; // Start of new range is end of the last FormField range. + + // Assign working end range for text collection: + rangeEnd := ffStartCur; // End of new range is start of current FormField range. + + // Collect text in the range: + textRange := WDoc.Range(rangeStart, rangeEnd); + textRange.Select; + + AddBoiler(TextRange.text); + tfIdx := dftUnknown; + fname := ''; + case WDoc.FormFields.Item(idx).type_ of + wdFieldFormTextInput: + begin + itmp3 := WDoc.FormFields.Item(idx).TextInput.Type_; + case itmp3 of + wdNumberText: tmpType := dftNumber; + wdDateText, wdCurrentDateText, wdCurrentTimeText: tmpType := dftDate; + else tmpType := dftEditBox; + end; + AddFieldHeader(tmpType, TRUE); + tmpDate := dtUnknown; + tmp := WDoc.FormFields.Item(idx).TextInput.Default; + case itmp3 of + wdNumberText: + begin + AddField(tfMinVal, IntToStr(-9999), TRUE); + AddField(tfMaxVal, IntToStr(9999), TRUE); + end; + + wdDateText: tmpDate := dtDate; + wdCurrentDateText: + begin + tmpDate := dtDate; + if tmp = '' then + tmp := 'T'; + end; + wdCurrentTimeText: + begin + tmpDate := dtDateTime; + if tmp = '' then + tmp := 'NOW'; + end; + else + begin + itmp2 := WDoc.FormFields.Item(idx).TextInput.Width; + itmp := itmp2; + if (itmp < 1) then + begin + itmp := length(tmp); + if itmp < 10 then + itmp := 10 + else + if itmp > 70 then + itmp := 70; + itmp2 := 240; + end + else + begin + if (itmp > 70) then + itmp := 70; + if (itmp2 > 240) then + itmp2 := 240; + end; + AddField(tfLength, IntToStr(itmp)); + AddField(tfTextLen, IntToStr(itmp2), TRUE); + end; + end; + if tmpDate <> dtUnknown then + AddField(tfDateType, TemplateFieldDateCodes[tmpDate], TRUE); + if tmp <> '' then + AddField(tfDefault, tmp); + Fields.AddStrings(PendingAdd); + PendingAdd.Clear; + AddFieldHeader(tmpType, FALSE); + end; + + wdFieldFormCheckBox: + begin + AddFieldHeader(dftButton, TRUE); + itmp := ord(boolean(WDoc.FormFields.Item(idx).CheckBox.Default))+1; + AddField(tfDefIdx, IntToStr(itmp)); + Fields.Add('<' + TemplateFieldExportTag[tfItems] + '>'); + Fields.Add('

' + Text2XML('[ ]') + '

'); + Fields.Add('

' + Text2XML('[X]') + '

'); + Fields.Add(''); + AddFieldHeader(dftButton, FALSE); + end; + + wdFieldFormDropDown: + begin + ddTotal := WDoc.FormFields.Item(Idx).DropDown.ListEntries.Count; + if(ddTotal > 0)then + begin + AddFieldHeader(dftComboBox, TRUE); + itmp := WDoc.FormFields.Item(idx).DropDown.Default; + if itmp > 0 then + AddField(tfDefIdx, IntToStr(itmp)); + + Fields.Add('<' + TemplateFieldExportTag[tfItems] + '>'); + for j := 1 to ddTotal do + begin + TmpVar := j; + tmp := WDoc.FormFields.Item(Idx).DropDown.ListEntries.Item(TmpVar).Name; + Fields.Add('

' + Text2XML(tmp) + '

'); + end; + Fields.Add(''); + AddFieldHeader(dftComboBox, FALSE); + end; + end; + end; + if (Fields.Count > 0) then + begin + if tfIdx <> dftUnknown then + begin + tmp := Fields.CommaText; + j := FldCache.IndexOf(tmp); + if j < 0 then + begin + FldCache.AddObject(tmp, TObject(tfCount[tfIdx])); + j := tfCount[tfIdx]; + inc(tfCount[tfIdx]); + end + else + j := Integer(FldCache.Objects[j]); + Boiler := Boiler + TemplateFieldBeginSignature + fname + IntToStr(j) + TemplateFieldEndSignature; + end; + Fields.Clear; + end; + end; + if Result then + begin + rangeStart := ffEndCur; // Start of new range is end of last FormField range. + rangeEnd := WDoc.Range.End_; // After last FormField, use end of document. + + // Collect text in trailing range: + textRange := WDoc.Range(rangeStart, rangeEnd); + textRange.Select; + + AddBoiler(TextRange.text); + + WordWrap(Boiler); + + AddXMLList(Data, nil, '', efBoilerplate, Boiler); + + tmp := WrapText('Imported on ' + FormatFMDateTime('mmm dd yyyy hh:nn', FMNow) + + ' from Word Document: ' + AFileName, #13#10, [' '], MAX_ENTRY_WIDTH); + + AddXMLList(Data, nil, '', efDescription, tmp); + + Data.Add(''); + if FldCache.Count > 0 then + begin + Data.Add('<' + XMLTemplateFieldsTag + '>'); + for i := 0 to FldCache.Count-1 do + begin + Fields.Clear; + Fields.CommaText := FldCache[i]; + if Fields.Count > 0 then + begin + Fields[0] := Fields[0] + IntToStr(Integer(FldCache.Objects[i])) + '">'; + Data.AddStrings(Fields); + end; + end; + Data.Add(''); + end; + + Data.Add(''); + UpdateImportMessage(ffTotal+1); + end; + finally + PendingAdd.Free; + end; + finally + FldCache.Free; + end; + finally + Fields.Free; + end; + + except + on E:Exception do + WordImportError(E.Message); + end; + finally + TmpVar := wdDoNotSaveChanges; + WDoc.Close(TmpVar); + WDoc.Free; + end; + finally + WApp.Visible := WasVis; + end; + finally + WApp.Disconnect; + WApp.Free; + end; + finally + Screen.Cursor := OldCur; + end; + finally + StopImportMessage; + end; + if not Result then + InfoBox('Importing Word Document Canceled.','Import Canceled', MB_OK); +end; + +function WordImportActive: boolean; +begin + Result := True; + //Result := SpellCheckAvailable; spell check disabled in v19.16 +end; + +procedure UnlockAllTemplates; +var + i: integer; + +begin + if(assigned(Templates)) then + begin + for i := 0 to Templates.Count-1 do + TTemplate(Templates.Objects[i]).Unlock; + end; +end; + +function DisplayGroupToLinkType(DGroup: integer): TTemplateLinkType; +begin + Result := ltNone; + if DGroup <> 0 then + begin + if uDGroupConsults = 0 then + uDGroupConsults := DisplayGroupByName('CONSULTS'); + if uDGroupProcedures = 0 then + uDGroupProcedures := DisplayGroupByName('PROCEDURES'); + if DGroup = uDGroupConsults then + Result := ltConsult + else + if DGroup = uDGroupProcedures then + Result := ltProcedure; + end; +end; + +(*procedure ExecuteTemplateOrBoilerPlate(SL: TStrings; IEN: Integer; LType: TTemplateLinkType; + OwningForm: TForm; const CaptionText: string = ''; DocInfo: string = '');*) +procedure ExecuteTemplateOrBoilerPlate(SL: TStrings; IEN: Integer; LType: TTemplateLinkType; + OwningForm: TForm; CaptionText: string; var DocInfo: string); + +var + Template: TTemplate; + txt: string; + +begin + Template := GetLinkedTemplate(IntToStr(IEN), LType); + if assigned(Template) then + begin + if Template.IsReminderDialog then + begin + Template.ExecuteReminderDialog(OwningForm); + DocInfo := ''; + end + else + begin + if Template.IsCOMObject then + txt := Template.COMObjectText(SL.Text, DocInfo) + else + begin + txt := Template.Text; + DocInfo := ''; + end; + if(txt <> '') then + begin + CheckBoilerplate4Fields(txt, CaptionText); + SL.Text := txt; + end; + end; + end + else + begin + txt := SL.Text; + CheckBoilerplate4Fields(txt, CaptionText); + DocInfo := ''; + SL.Text := txt; + end; +end; + +(*procedure ExecuteTemplateOrBoilerPlate(var AText: string; IEN: Integer; LType: TTemplateLinkType; + OwningForm: TForm; const CaptionText: string = ''; DocInfo: string = '');*) +procedure ExecuteTemplateOrBoilerPlate(var AText: string; IEN: Integer; LType: TTemplateLinkType; + OwningForm: TForm; CaptionText: string; var DocInfo: string); + +var + tmp: TStringList; + +begin + tmp := TStringList.Create; + try + tmp.text := AText; + ExecuteTemplateOrBoilerPlate(tmp, IEN, LType, OwningForm, CaptionText, DocInfo); + AText := tmp.text; + finally + tmp.free; + end; +end; + +{ TTemplate } + +constructor TTemplate.Create(DataString: string); +var + i: TTemplateType; + Code: string[2]; + +begin + FCloning := TRUE; + try + FNodes := TStringList.Create; + FID := Piece(DataString, U, 1); + Code := Piece(DataString, U, 2); + FRealType := ttNone; + for i := FirstRealTemplateType to LastRealTemplateType do + begin + if(TemplateTypeCodes[i] = Code) then + begin + FRealType := i; + break; + end; + end; + if FRealType = ttNone then + raise ETemplateError.Create('Template has invalid Type Code of "' + Code + '"'); + FActive := (Piece(DataString, U, 3) = TemplateActiveCode[TRUE]); + FPrintName := Piece(DataString, U, 4); + FExclude := (Piece(DataString, U, 5) = '1'); + FDialog := (Piece(DataString, U, 9) = '1'); + FDisplayOnly := (Piece(DataString, U, 10) = '1'); + FFirstLine := (Piece(DataString, U, 11) = '1'); + FOneItemOnly := (Piece(DataString, U, 12) = '1'); + FHideDlgItems := (Piece(DataString, U, 13) = '1'); + FHideItems := (Piece(DataString, U, 14) = '1'); + FIndentItems := (Piece(DataString, U, 15) = '1'); + FLock := (Piece(DataString, U, 18) = '1'); + FReminderDialog := Pieces(DataString, U, 16, 17); + FReminderDialog := FReminderDialog + U + Piece(DataString, U, 25); //AGP CHANGE 24.8 + FIsReminderDialog := (ReminderDialogIEN <> ''); + FCOMObject := StrToIntDef(Piece(DataString, U, 19), 0); + FCOMParam := Piece(DataString, U, 20); + FFileLink := Piece(DataString, U, 21); + FIsCOMObject := (FCOMObject > 0); + FGap := StrToIntDef(Piece(DataString, U, 6),0); + FPersonalOwner := StrToInt64Def(Piece(DataString, U, 7),0); + case StrToIntDef(Piece(DataString, U, 8),0) of + 1: FChildren := tcActive; + 2: FChildren := tcInactive; + 3: FChildren := tcBoth; + else FChildren := tcNone; + end; + FLocked := FALSE; + finally + FCloning := FALSE; + end; +end; + +class function TTemplate.CreateFromXML(Element: IXMLDOMNode; Owner: string): TTemplate; +var + DataStr: string; + Children, Items: IXMLDOMNodeList; + Child, Item: IXMLDOMNode; + i, j, count, ItemCount: integer; + fld: TTemplateExportField; + ETag: string; + +begin + DataStr := '0'; + SetPiece(DataStr, U, 4, FindXMLAttributeValue(Element, TemplateExportTag[efName])); + SetPiece(DataStr, U, 7, Owner); + Children := Element.Get_childNodes; + try + if assigned(Children) then + begin + count := Children.Length; + for i := 0 to Count - 1 do + begin + Child := Children.Item[i]; + ETag := Child.NodeName; + for fld := low(TTemplateExportField) to high(TTemplateExportField) do + begin + if(ExportPieces[fld] > 0) and (CompareText(ETag, TemplateExportTag[fld]) = 0) then + SetPiece(DataStr, U, ExportPieces[fld], Child.Get_Text); + end; + end; + end + else + Count := 0; + Result := Create(DataStr); + Result.FCloning := TRUE; + try + if assigned(Children) then + begin + for i := 0 to Count - 1 do + begin + Child := Children.Item[i]; + ETag := Child.NodeName; + for fld := low(TTemplateExportField) to high(TTemplateExportField) do + begin + if(ExportPieces[fld] = 0) and (CompareText(ETag, TemplateExportTag[fld]) = 0) then + begin + case fld of + efBoilerplate: Result.SetBoilerplate(GetXMLWPText(Child)); + efDescription: Result.SetDescription(GetXMLWPText(Child)); + efItems: + begin + Result.GetItems; + Items := Child.Get_childNodes; + if assigned(Items) then + begin + ItemCount := Items.Length; + for j := 0 to ItemCount - 1 do + begin + Item := Items.Item[j]; + if(CompareText(Item.NodeName, XMLTemplateTag) = 0) then + Result.FItems.Add(CreateFromXML(Item, Owner)); + end; + end; + end; + end; + end; + end; + end; + end; + finally + Result.FCloning := FALSE; + end; + finally + Children := nil; + end; + Result.BackupItems; + Templates.AddObject(Result.ID, Result); +end; + +destructor TTemplate.Destroy; +begin + Unlock; + FNodes.Free; + if(assigned(FItems)) then FItems.Free; + inherited; +end; + +procedure TTemplate.AddChild(Child: TTemplate); +begin + GetItems; + if(FItems.IndexOf(Child) < 0) then + FItems.Add(Child); +end; + +procedure TTemplate.RemoveChild(Child: TTemplate); +var + idx: integer; + +begin + GetItems; + idx := FItems.IndexOf(Child); + if(idx >= 0) and CanModify then + FItems.delete(idx); +end; + +function TTemplate.GetItems: TList; +begin + if(not assigned(FItems)) then + begin + FItems := TList.Create; + FCreatingChildren := TRUE; + try + ExpandTemplate(Self); + finally + FCreatingChildren := FALSE; + end; + end; + Result := FItems; +end; + +function TTemplate.GetTemplateType: TTemplateType; +begin + Result := FRealType; + if(Result in [ttDoc, ttGroup]) and (FExclude) then + begin + case (Result) of + ttDoc: Result := ttDocEx; + ttGroup: Result := ttGroupEx; + end; + end; +end; + +function TTemplate.GetChildren: TTemplateChildren; +var + i: integer; + +begin + if((assigned(FItems)) and (not FCreatingChildren)) then + begin + Result := tcNone; + for i := 0 to FItems.Count-1 do + begin + if(TTemplate(FItems[i]).Active) then + Result := TTemplateChildren(ord(Result) or ord(tcActive)) + else + Result := TTemplateChildren(ord(Result) or ord(tcInactive)); + if(Result = tcBoth) then break; + end; + end + else + Result := FChildren; +end; + +procedure TTemplate.SetTemplateType(const Value: TTemplateType); +begin + if(GetTemplateType <> Value) and CanModify then + begin + if(Value in AllTemplateTrueTypes) then + SetRealType(Value) + else + begin + case Value of + ttDoc: begin SetExclude(FALSE); SetRealType(ttDoc); end; + ttGroup: begin SetExclude(FALSE); SetRealType(ttGroup); end; + ttDocEx: begin SetExclude(TRUE); SetRealType(ttDoc); end; + ttGroupEx: begin SetExclude(TRUE); SetRealType(ttGroup); end; + end; + end; + end; +end; + +function TTemplate.GetBoilerplate: string; +begin + Result := ''; + if FIsReminderDialog or FIsCOMObject then exit; + if(RealType in [ttDoc, ttGroup]) then + begin + if(not FBoilerPlateLoaded) then + begin + StatusText('Loading Template Boilerplate...'); + try + GetTemplateBoilerplate(FID); + FBoilerplate := RPCBrokerV.Results.Text; + FBoilerPlateLoaded := TRUE; + finally + StatusText(''); + end; + end; + Result := FBoilerplate; + end; +end; + +{ Returns the cumulative boilerplate of a groups items } +function TTemplate.ItemBoilerplate: string; +var + i, j: integer; + Template: TTemplate; + GapStr: string; + +begin + Result := ''; + if FIsReminderDialog or FIsCOMObject then exit; + if(RealType = ttGroup) then + begin + GetItems; + GapStr := ''; + if(FGap > 0) then + begin + for j := 1 to FGap do + GapStr := GapStr + CRLF; + end; + if(IndentItems) then + inc(uIndentLevel); + try + for i := 0 to FItems.Count-1 do + begin + Template := TTemplate(FItems[i]); + if(Template.Active and (Template.TemplateType in [ttDoc, ttGroup])) then + begin + if i > 0 then + Result := Result + GapStr; + Result := Result + DlgText(TTemplate(FItems[i]).FullBoilerplate, + TTemplate(FItems[i]).DialogProperties(Self)); + end; + end; + finally + if(IndentItems) then + dec(uIndentLevel); + end; + end; +end; + +{returns the complete boilerplate, including a group's items } +function TTemplate.FullBoilerplate: string; +var + Itm: string; +begin + Result := GetBoilerplate; + if FIsReminderDialog or FIsCOMObject then exit; + Itm := ItemBoilerplate; + if(Result <> '') and (Itm <> '') and (copy(Result,length(Result)-1,2) <> CRLF) then + Result := Result + CRLF; + Result := DlgText(Result, DialogProperties) + Itm; +end; + +{Sets the items boilerplate - does not affect children boilerplates of a group } +procedure TTemplate.SetBoilerplate(Value: string); +begin + if(FBoilerplate <> Value) and CanModify then + begin + with FBkup do + begin + if(FBoilerPlateLoaded and (not SavedBoilerplate) and ValidID) then + begin + BBoilerplate := FBoilerplate; + SavedBoilerplate := TRUE; + end; + end; + FBoilerplate := Value; + end; + FBoilerPlateLoaded := TRUE; +end; + +{Gets the object-expanded boilerplated text} +function TTemplate.GetText: string; +var + OldGettingDialogText: boolean; + TmpSL: TStringList; + +begin + Result := ''; + if FIsReminderDialog or FIsCOMObject then exit; + TmpSL := TStringList.Create; + try + StatusText('Expanding Boilerplate Text...'); + try + OldGettingDialogText := GettingDialogText; + if(IsDialog) then + begin + GettingDialogText := TRUE; + inc(uDlgCount); + if not OldGettingDialogText then + uIndentLevel := 0; + end; + try + TmpSL.Text := FullBoilerPlate; + finally + if(IsDialog) then + GettingDialogText := OldGettingDialogText; + end; + GetTemplateText(TmpSL); + if(IsDialog) then + FDialogAborted := DoTemplateDialog(TmpSL, 'Template: ' + FPrintName, TemplatePreviewMode); + Result := TmpSL.Text; + finally + StatusText(''); + end; + finally + TmpSL.Free; + end; +end; + +procedure TTemplate.SetPersonalOwner(Value: Int64); +var + i: integer; + ok: boolean; + +begin + if(FPersonalOwner <> Value) then + begin + ok := CanModify; + if ok then + begin + with FBkup do + begin + if(not SavedPersonalOwner) and ValidID then + begin + BPersonalOwner := FPersonalOwner; + SavedPersonalOwner := TRUE; + end; + end; + FPersonalOwner := Value; + end; + end + else + ok := TRUE; + if ok and (Value = 0) then // No Shared Template can have personal items within it. + begin + GetItems; + for i := 0 to FItems.Count-1 do + TTemplate(FItems[i]).SetPersonalOwner(0); + end; +end; + +procedure TTemplate.AddNode(Node: Pointer); +begin + if(dmodShared.InEditor) and (FNodes.IndexOfObject(Node) < 0) then + begin + inc(NodeCount); + FNodes.AddObject(IntToStr(NodeCount),Node); + end; +end; + +procedure TTemplate.RemoveNode(Node: Pointer); +var + idx: integer; + +begin + if(dmodShared.InEditor) then + begin + idx := FNodes.IndexOfObject(Node); + if(idx >= 0) then FNodes.Delete(idx); + end; +end; + +{ Creates a new Template that looks like the old one, but with a new Owner } +{ - an example of where this is needed: when a shared template in a user's } +{ personal folder is modified, we need to create a copy of the shared } +{ template, make it a personal template, and make the changes to the copy } +function TTemplate.Clone(Owner: Int64): TTemplate; +var + i: integer; + +begin + Result := Self; + if(FPersonalOwner <> Owner) and (RealType in [ttDoc, ttGroup, ttClass]) then + begin + Result := TrueClone; + Result.FCloning := TRUE; + try + Result.FID := '0'; + GetItems; + Result.FPersonalOwner := Owner; + Result.Expanded := TRUE; + Result.GetItems; + for i := 0 to Items.Count-1 do + Result.Items.Add(Items[i]); + Result.BackupItems; + Templates.AddObject(Result.ID, Result); + finally + Result.FCloning := FALSE; + end; + end; +end; + +{ Creates a duplicate Template - used for backups and comparrisons } +function TTemplate.TrueClone: TTemplate; +var + Code, DataStr: string; + +begin + DataStr := ID+U+TemplateTypeCodes[RealType]+U+TemplateActiveCode[Active]+U+PrintName+U; + if(Exclude) then + DataStr := DataStr + '1' + else + DataStr := DataStr + '0'; + case GetChildren of + tcActive: Code := '1'; + tcInactive: Code := '2'; + tcBoth: Code := '3'; + else Code := '0'; + end; + DataStr := DataStr + U + IntToStr(Gap) + U + IntToStr(PersonalOwner) + U + Code + U + + BOOLCHAR[Dialog] + U + + BOOLCHAR[DisplayOnly] + U + + BOOLCHAR[FirstLine] + U + + BOOLCHAR[OneItemOnly] + U + + BOOLCHAR[HideDlgItems] + U + + BOOLCHAR[HideItems] + U + + BOOLCHAR[IndentItems] + U + + FReminderDialog; + SetPiece(DataStr,U,18,BOOLCHAR[Lock]); + SetPiece(DataStr,U,19,IntToStr(COMObject)); + SetPiece(DataStr,U,20,COMParam); + SetPiece(DataStr,U,21,FileLink); + Result := TTemplate.Create(DataStr); + Result.FCloning := TRUE; + try + Result.SetBoilerplate(GetBoilerplate); + Result.SetDescription(GetDescription); + finally + Result.FCloning := FALSE; + end; +end; + +function TTemplate.ItemIENs: string; +var + i: integer; + +begin + GetItems; + Result := ''; + for i := 0 to FItems.Count-1 do + Result := Result + TTemplate(FItems[i]).FID+','; +end; + +function TemplateChildrenCompare(Item1, Item2: Pointer): Integer; +begin + Result := CompareText(TTemplate(Item1).PrintName,TTemplate(Item2).PrintName); +end; + +procedure TTemplate.SortChildren; +begin + GetItems; + if (FItems.Count > 1) and CanModify then + FItems.Sort(TemplateChildrenCompare); +end; + +procedure TTemplate.BackupItems; +begin + with FBkup do + begin + if((not SavedItemIENs) and assigned(FItems)) then + begin + BItemIENs := ItemIENs; + SavedItemIENs := TRUE; + end; + end; +end; + +procedure TTemplate.SetActive(const Value: boolean); +begin + if(FActive <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedActive) and ValidID then + begin + BActive := FActive; + SavedActive := TRUE; + end; + end; + FActive := Value; + end; +end; + +procedure TTemplate.SetExclude(const Value: boolean); +begin + if(FExclude <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedExclude) and ValidID then + begin + BExclude := FExclude; + SavedExclude := TRUE; + end; + end; + FExclude := Value; + end; +end; + +procedure TTemplate.SetDialog(const Value: boolean); +begin + if(FDialog <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedDialog) and ValidID then + begin + BDialog := FDialog; + SavedDialog := TRUE; + end; + end; + FDialog := Value; + end; +end; + +procedure TTemplate.SetGap(const Value: integer); +begin + if(FGap <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedGap) and ValidID then + begin + BGap := FGap; + SavedGap := TRUE; + end; + end; + FGap := Value; + end; +end; + +procedure TTemplate.SetPrintName(const Value: string); +begin + if(FPrintName <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedPrintName) and ValidID then + begin + BPrintName := FPrintName; + SavedPrintName := TRUE; + end; + end; + FPrintName := Value; + end; +end; + +procedure TTemplate.SetRealType(const Value: TTemplateType); +begin + if(FRealType <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedRealType) and ValidID then + begin + BRealType := FRealType; + SavedRealType := TRUE; + end; + end; + FRealType := Value; + if(FFileLink <> '') and (not (FRealType in [ttDoc, ttGroup])) then + SetFileLink(''); + end; +end; + +procedure TTemplate.ClearBackup(ClearItemIENs: boolean = TRUE); +begin + with FBkup do + begin + SavedPrintName := FALSE; + SavedGap := FALSE; + SavedRealType := FALSE; + SavedActive := FALSE; + SavedDisplayOnly := FALSE; + SavedFirstLine := FALSE; + SavedOneItemOnly := FALSE; + SavedHideDlgItems := FALSE; + SavedHideItems := FALSE; + SavedIndentItems := FALSE; + SavedLock := FALSE; + SavedExclude := FALSE; + SavedDialog := FALSE; + SavedPersonalOwner := FALSE; + SavedBoilerPlate := FALSE; + SavedDescription := FALSE; + SavedReminderDialog := FALSE; + SavedCOMObject := FALSE; + SavedCOMParam := FALSE; + SavedFileLink := FALSE; + if(ClearItemIENs) then + begin + if(FExpanded) then + begin + BItemIENs := ItemIENs; + SavedItemIENs := TRUE; + end + else + SavedItemIENs := FALSE; + end; + end; +end; + +function TTemplate.Changed: boolean; +begin + Result := not ValidID; + with FBkup do + begin + if(not Result) and (SavedPrintName) then Result := (BPrintName <> FPrintName); + if(not Result) and (SavedGap) then Result := (BGap <> FGap); + if(not Result) and (SavedRealType) then Result := (BRealType <> FRealType); + if(not Result) and (SavedActive) then Result := (BActive <> FActive); + if(not Result) and (SavedDisplayOnly) then Result := (BDisplayOnly <> FDisplayOnly); + if(not Result) and (SavedFirstLine) then Result := (BFirstLine <> FFirstLine); + if(not Result) and (SavedOneItemOnly) then Result := (BOneItemOnly <> FOneItemOnly); + if(not Result) and (SavedHideDlgItems) then Result := (BHideDlgItems <> FHideDlgItems); + if(not Result) and (SavedHideItems) then Result := (BHideItems <> FHideItems); + if(not Result) and (SavedIndentItems) then Result := (BIndentItems <> FIndentItems); + if(not Result) and (SavedLock) then Result := (BLock <> FLock); + if(not Result) and (SavedExclude) then Result := (BExclude <> FExclude); + if(not Result) and (SavedDialog) then Result := (BDialog <> FDialog); + if(not Result) and (SavedPersonalOwner) then Result := (BPersonalOwner <> FPersonalOwner); + if(not Result) and (SavedReminderDialog) then Result := (BReminderDialog <> FReminderDialog); + if(not Result) and (SavedCOMObject) then Result := (BCOMObject <> FCOMObject); + if(not Result) and (SavedCOMParam) then Result := (BCOMParam <> FCOMParam); + if(not Result) and (SavedFileLink) then Result := (BFileLink <> FFileLink); + if(not Result) and (SavedBoilerplate) then Result := (BBoilerplate <> FBoilerplate); + if(not Result) and (SavedDescription) then Result := (BDescription <> FDescription); + if(not Result) and (SavedItemIENs) then Result := (BItemIENs <> ItemIENs); // Keep last + end; +end; + +procedure TTemplate.SetDescription(const Value: string); +begin + if(FDescription <> Value) and CanModify then + begin + with FBkup do + begin + if(FDescriptionLoaded and (not SavedDescription) and ValidID) then + begin + BDescription := FDescription; + SavedDescription := TRUE; + end; + end; + FDescription := Value; + end; + FDescriptionLoaded := TRUE; +end; + +function TTemplate.GetDescription: string; +begin + if(not FDescriptionLoaded) then + begin + StatusText('Loading Template Boilerplate...'); + try + LoadTemplateDescription(FID); + FDescription := RPCBrokerV.Results.Text; + finally + StatusText(''); + end; + FDescriptionLoaded := TRUE; + end; + Result := FDescription; +end; + +procedure TTemplate.SetDisplayOnly(const Value: boolean); +begin + if(FDisplayOnly <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedDisplayOnly) and ValidID then + begin + BDisplayOnly := FDisplayOnly; + SavedDisplayOnly := TRUE; + end; + end; + FDisplayOnly := Value; + end; +end; + +procedure TTemplate.SetFirstLine(const Value: boolean); +begin + if(FFirstLine <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedFirstLine) and ValidID then + begin + BFirstLine := FFirstLine; + SavedFirstLine := TRUE; + end; + end; + FFirstLine := Value; + end; +end; + +procedure TTemplate.SetHideItems(const Value: boolean); +begin + if(FHideItems <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedHideItems) and ValidID then + begin + BHideItems := FHideItems; + SavedHideItems := TRUE; + end; + end; + FHideItems := Value; + end; +end; + +procedure TTemplate.SetIndentItems(const Value: boolean); +begin + if(FIndentItems <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedIndentItems) and ValidID then + begin + BIndentItems := FIndentItems; + SavedIndentItems := TRUE; + end; + end; + FIndentItems := Value; + end; +end; + +procedure TTemplate.SetOneItemOnly(const Value: boolean); +begin + if(FOneItemOnly <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedOneItemOnly) and ValidID then + begin + BOneItemOnly := FOneItemOnly; + SavedOneItemOnly := TRUE; + end; + end; + FOneItemOnly := Value; + end; +end; + +procedure TTemplate.SetHideDlgItems(const Value: boolean); +begin + if(FHideDlgItems <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedHideDlgItems) and ValidID then + begin + BHideDlgItems := FHideDlgItems; + SavedHideDlgItems := TRUE; + end; + end; + FHideDlgItems := Value; + end; +end; + +function TTemplate.DlgID: string; +begin + Result := IntToStr(StrToIntDef(FID, 0)); + if(Result = '0') then + begin + if(FLastDlgCnt <> uDlgCount) then + begin + FLastDlgCnt := uDlgCount; + inc(uUniqueIDNum); + FLastUniqueID := uUniqueIDNum; + end; + Result := '-' + inttostr(FLastUniqueID); + end; +end; + +function TTemplate.DialogProperties(Parent: TTemplate = nil): string; +var + Show, ToggleItems: boolean; + bGap: integer; + GroupIdx: string; + +begin + GroupIdx := '0'; + bGap := 0; + if(assigned(parent)) then + begin + Show := ((not Parent.HideDlgItems) or (Parent.Boilerplate = '')); +// if(Parent.Boilerplate <> '') and (Parent.OneItemOnly) then + if(Parent.OneItemOnly) then + GroupIdx := Parent.DlgID; + if(Parent.RealType = ttGroup) then + bGap := Parent.Gap; + end + else + Show := TRUE; + + ToggleItems := ((HideDlgItems) and (Boilerplate <> '')); + + Result := BOOLCHAR[DisplayOnly] + + BOOLCHAR[FirstLine] + + BOOLCHAR[Show] + + BOOLCHAR[ToggleItems] + + IntToStr(bGap) + // Depends on Gap being 1 character in length + ';' + GroupIdx + ';' + DlgID; + if(assigned(Parent)) then + SetPiece(Result, ';', 4, Parent.DlgID); + SetPiece(Result,';',5, inttostr(uIndentLevel)); +end; + +function TTemplate.GetDialogAborted: boolean; +begin + Result := FDialogAborted; + FDialogAborted := FALSE; +end; + +function TTemplate.IsDialog: boolean; +begin + Result := (FDialog and (FRealType = ttGroup)); +end; + +function TTemplate.CanExportXML(Data, Fields: TStringList; IndentLevel: integer = 0): boolean; +var + Pad, Tmp: string; + i: integer; + +begin + if BadTemplateName(PrintName) then + begin + InfoBox('Can not export template.' + CRLF + 'Template has an invalid name: ' + + PrintName + '.' + BadNameText, 'Error', MB_OK or MB_ICONERROR); + Result := FALSE; + exit; + end; + Result := TRUE; + Pad := StringOfChar(' ',IndentLevel); + Data.Add(Pad + '<' + XMLTemplateTag + ' ' + TemplateExportTag[efName] + '="' + Text2XML(PrintName) + '">'); + AddXMLData(Data, Pad, efBlankLines, IntToStr(Gap), '0'); + if(RealType in AllTemplateRootTypes) then + Tmp := TemplateTypeCodes[ttClass] + else + Tmp := TemplateTypeCodes[RealType]; + AddXMLData(Data, Pad, efType, Tmp, ''); + AddXMLData(Data, Pad, efStatus, TemplateActiveCode[Active], ''); + AddXMLBool(Data, Pad, efExclude, Exclude); + AddXMLBool(Data, Pad, efDialog, Dialog); + AddXMLBool(Data, Pad, efDisplayOnly, DisplayOnly); + AddXMLBool(Data, Pad, efFirstLine, FirstLine); + AddXMLBool(Data, Pad, efOneItemOnly, OneItemOnly); + AddXMLBool(Data, Pad, efHideDialogItems, HideDlgItems); + AddXMLBool(Data, Pad, efHideTreeItems, HideItems); + AddXMLBool(Data, Pad, efIndentItems, IndentItems); + AddXMLBool(Data, Pad, efLock, Lock); + AddXMLList(Data, Fields, Pad, efBoilerplate, GetBoilerplate); + AddXMLList(Data, Fields, Pad, efDescription, GetDescription); + GetItems; + if(FItems.Count > 0) then + begin + Data.Add(Pad + ' <' + TemplateExportTag[efItems] + '>'); + for i := 0 to FItems.Count-1 do + begin + Result := TTemplate(FItems[i]).CanExportXML(Data, Fields, IndentLevel + 4); + if(not Result) then exit; + end; + Data.Add(Pad + ' '); + end; + Data.Add(Pad + ''); +end; + +procedure TTemplate.UpdateImportedFieldNames(List: TStrings); +const + SafeCode = #1 + '^@^' + #2; + SafeCodeLen = length(SafeCode); + +var + i, p, l1: integer; + Tag1, Tag2, tmp: string; + First, ok: boolean; + +begin + GetBoilerplate; + ok := TRUE; + First := TRUE; + for i := 0 to List.Count-1 do + begin + if(Piece(List[i],U,2) = '0') then + begin + Tag1 := TemplateFieldBeginSignature + Piece(List[i],U,1) + TemplateFieldEndSignature; + Tag2 := TemplateFieldBeginSignature + SafeCode + Piece(List[i],U,3) + TemplateFieldEndSignature; + l1 := length(Tag1); + repeat + p := pos(Tag1, FBoilerplate); + if(p > 0) then + begin + if First then + begin + ok := CanModify; + First := FALSE; + end; + if ok then + begin + tmp := copy(FBoilerplate,1,p-1) + Tag2 + copy(FBoilerplate,p+l1, MaxInt); + FBoilerplate := tmp; + end + else + p := 0; + end; + until (p = 0); + end; + if not ok then break; + end; + if ok then + begin + repeat + p := pos(SafeCode, FBoilerplate); + if(p > 0) then + delete(FBoilerplate, p, SafeCodeLen); + until (p = 0); + GetItems; + for i := 0 to FItems.Count-1 do + TTemplate(FItems[i]).UpdateImportedFieldNames(List); + end; +end; + +procedure TTemplate.SetReminderDialog(const Value: string); +begin + if(FReminderDialog <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedReminderDialog) and ValidID then + begin + BReminderDialog := FReminderDialog; + SavedReminderDialog := TRUE; + end; + end; + FReminderDialog := Value; + FIsReminderDialog := (ReminderDialogIEN <> ''); + if FIsReminderDialog and (not (LinkType in [ltNone, ltTitle])) then + SetFileLink(''); + end; +end; + +function TTemplate.ReminderDialogIEN: string; +begin + Result := Piece(FReminderDialog,U,1); + if Result = '0' then + Result := ''; +end; + +function TTemplate.ReminderDialogName: string; +begin + Result := Piece(FReminderDialog,U,2); +end; + +function TTemplate.CanModify: boolean; +begin + if(not FLocked) and ValidID and (not FCloning) then + begin + FLocked := LockTemplate(FID); + Result := FLocked; + if(not FLocked) then + begin + if(assigned(dmodShared.OnTemplateLock)) then + dmodShared.OnTemplateLock(Self) + else + ShowMessage(Format(TemplateLockedText, [FPrintName])); + end; + end + else + Result := TRUE; +end; + +function TTemplate.ValidID: boolean; +begin + Result := ((FID <> '0') and (FID <> '')); +end; + +procedure TTemplate.Unlock; +begin + if FLocked and ValidID then + begin + UnlockTemplate(FID); + FLocked := FALSE; + end; +end; + +procedure TTemplate.SetLock(const Value: boolean); +begin + if(FLock <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedLock) and ValidID then + begin + BLock := FLock; + SavedLock := TRUE; + end; + end; + FLock := Value; + end; +end; + +function TTemplate.IsLocked: boolean; +begin + Result := (FLock and (FPersonalOwner = 0)) or AutoLock; +end; + +procedure TTemplate.SetCOMObject(const Value: integer); +begin + if(FCOMObject <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedCOMObject) and ValidID then + begin + BCOMObject := FCOMObject; + SavedCOMObject := TRUE; + end; + end; + FCOMObject := Value; + FIsCOMObject := (FCOMObject > 0); + end; +end; + +procedure TTemplate.SetCOMParam(const Value: string); +begin + if(FCOMParam <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedCOMParam) and ValidID then + begin + BCOMParam := FCOMParam; + SavedCOMParam := TRUE; + end; + end; + FCOMParam := Value; + end; +end; + +procedure TTemplate.AssignFileLink(const Value: string; Force: boolean); +var + i: integer; + DoItems: boolean; + +begin + DoItems := Force; + if(FFileLink <> Value) and CanModify then + begin + with FBkup do + begin + if(not SavedFileLink) and ValidID then + begin + BFileLink := FFileLink; + SavedFileLink := TRUE; + end; + end; + FFileLink := Value; + FLinkName := ''; + if (not (LinkType in [ltNone, ltTitle])) then + SetReminderDialog(''); + if not DoItems then + DoItems := (FFileLink <> ''); + end; + if DoItems then + begin + GetItems; + for i := 0 to FItems.Count-1 do + TTemplate(FItems[i]).AssignFileLink('', TRUE); + end; +end; + +procedure TTemplate.SetFileLink(const Value: string); +begin + AssignFileLink(Value, FALSE); +end; + +//function TTemplate.COMObjectText(const DefText: string = ''; DocInfo: string = ''): string; +function TTemplate.COMObjectText(DefText: string; var DocInfo: string): string; +var + p2: string; + +begin + Result := ''; + if (FCOMObject > 0) then + begin + p2 := ''; + if (LinkType <> ltNone) and (LinkIEN <> '') then + p2 := LinkPassCode[LinkType] + '=' + LinkIEN; + Result := DefText; + GetCOMObjectText(FCOMObject, p2, FCOMParam, Result, DocInfo); + end; +end; + +function TTemplate.AutoLock: boolean; +begin + Result := FIsCOMObject; + if (not Result) and (not (RealType in AllTemplateLinkTypes)) and (LinkType <> ltNone) then + Result := TRUE; +end; + +function TTemplate.LinkType: TTemplateLinkType; +var + idx: TTemplateLinkType; + +begin + Result := ltNone; + case FRealType of + ttTitles: Result := ltTitle; + ttConsults: Result := ltConsult; + ttProcedures: Result := ltProcedure; + else + begin + for idx := succ(low(TTemplateLinkType)) to high(TTemplateLinkType) do + begin + if pos(LinkGlobal[idx], FFileLink) > 0 then + begin + Result := idx; + break; + end; + end; + end; + end; +end; + +function TTemplate.LinkIEN: string; +begin + Result := piece(FFileLink,';',1); +end; + +function TTemplate.LinkName: string; +begin + if FLinkName = '' then + FLinkName := GetLinkName(LinkIEN, LinkType); + Result := FLinkName; +end; + +procedure TTemplate.ExecuteReminderDialog(OwningForm: TForm); +var + sts: integer; + txt: string; + +begin + sts := IsRemDlgAllowed(ReminderDialogIEN); + txt := ''; + if sts < 0 then + txt := 'Reminder Dialog has been Deleted or Deactivated.' + else + if sts = 0 then + txt := 'You are not Authorized to use this Reminder Dialog in a Template' + else + ViewRemDlgTemplateFromForm(OwningForm, Self, TRUE, TRUE); + if txt <> '' then + InfoBox(txt,'Can not use Reminder Dialog', MB_OK or MB_ICONERROR); +end; + +procedure ExpandEmbeddedFields(flds: TStringList); +{07/26/01 S Monson Procedure to take a list of fields and expand it with any + embedded fields. Handles embedded field loops + (self referencing loops.)} +var + i,pos1,pos2: integer; + ifield: TTemplateField; + estring,next: string; +begin + if flds.count < 1 then + Exit; + i := 0; + repeat + ifield := GetTemplateField(flds[i],False); + if ifield <> nil then + begin + estring := ''; + case ifield.FldType of + dftText,dftComboBox,dftButton, + dftCheckBoxes,dftRadioButtons: estring := ifield.items; + dftHyperlink: estring := ifield.EditDefault; + end; + while (estring <> '') do + begin + pos1 := pos(TemplateFieldBeginSignature,estring); + if pos1 > 0 then + begin + estring := copy(estring,(pos1 + length(TemplateFieldBeginSignature)),maxint); + pos2 := pos(TemplateFieldEndSignature,estring); + if pos2 > 0 then + begin + next := copy(estring,1,pos2-1); + delete(estring,1,pos2-1+length(TemplateFieldEndSignature)); + if flds.IndexOf(next) < 0 then + flds.add(next); + end + else + estring := ''; + end + else + estring := ''; + end; + inc(i); + end + else + flds.Delete(i); + until (i > flds.count-1); +end; + +function MakeXMLParamTIU(ANoteID: string; ANoteRec: TEditNoteRec): string; +var + tmpList: TStringList; +begin + tmpList := TStringList.Create; + try + tmpList.Add(''); + tmpList.Add(' ' + ANoteID + ''); + tmpList.Add(' ' + IntToStr(ANoteRec.Author) + ''); + tmpList.Add(' ' + ExternalName(ANoteRec.Author, 200) + ''); + tmpList.Add(''); + finally + Result := tmpList.Text; + tmpList.Free; + end; +end; + +function MakeXMLParamTIU(ADCSummID: string; ADCSummRec: TEditDCSummRec): string; +var + tmpList: TStringList; +begin + tmpList := TStringList.Create; + try + tmpList.Add(''); + tmpList.Add(' ' + ADCSummID + ''); + tmpList.Add(' ' + IntToStr(ADCSummRec.Dictator) + ''); + tmpList.Add(' ' + ExternalName(ADCSummRec.Dictator, 200) + ''); + tmpList.Add(''); + finally + Result := tmpList.Text; + tmpList.Free; + end; +end; + +function GetXMLParamReturnValueTIU(DocInfo, ParamTag: string): string; +var + XMLDoc: IXMLDOMDocument; + RootElement: IXMLDOMElement; + TagElement: IXMLDOMNode; +const + NoIE5 = 'You must have Internet Explorer 5 or better installed to %s Templates'; + NoIE5Header = 'Need Internet Explorer 5'; + TIUHeader = 'TIU_DOC'; +begin +// After ExecuteTemplateOrBoilerPlate, DocInfo parameter may contain return value of AUTHOR. +// Call this function at that point to get the value from the XML formatted parameter that's returned. + Result := ''; + try + XMLDoc := CoDOMDocument.Create; + except + InfoBox(Format(NoIE5, ['use COM']), NoIE5Header, MB_OK); + exit; + end; + try + if assigned(XMLDoc) then + begin + XMLDoc.preserveWhiteSpace := TRUE; + if DocInfo <> '' then + XMLDoc.LoadXML(DocInfo); + RootElement := XMLDoc.DocumentElement; + if not assigned(RootElement) then exit; + try + if(RootElement.tagName <> TIUHeader) then exit + else + begin + TagElement := FindXMLElement(RootElement, ParamTag); + if assigned(TagElement) then + Result := TagElement.Text + else Result := ''; + end; + finally + TagElement := nil; + RootElement := nil; + end; + end; + finally + XMLDoc := nil; + end; +end; + +function TTemplate.ReminderWipe: string; +begin + Result := Piece(FReminderDialog,U,3); +end; + +initialization + +finalization + ReleaseTemplates; + +end. diff --git a/CPRS-Chart/VERGENCECONTEXTORLib_TLB.pas b/CPRS-Chart/VERGENCECONTEXTORLib_TLB.pas new file mode 100644 index 0000000..de0a00a --- /dev/null +++ b/CPRS-Chart/VERGENCECONTEXTORLib_TLB.pas @@ -0,0 +1,1749 @@ +unit VERGENCECONTEXTORLib_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 : $Revision: 1.88.1.0.1.0 $ +// File generated on 2/9/2004 9:12:53 AM from Type Library described below. + +// *************************************************************************// +// NOTE: +// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties +// which return objects that may need to be explicitly created via a function +// call prior to any access via the property. These items have been disabled +// in order to prevent accidental use from within the object inspector. You +// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively +// removing them from the $IFDEF blocks. However, such items must still be +// programmatically created via a method of the appropriate CoClass before +// they can be used. +// ************************************************************************ // +// Type Lib: D:\Development\BDK32_p40\Source\VergenceContextor.dll (1) +// IID\LCID: {30AFBABD-5FD3-11D3-8727-0060B0B5E137}\0 +// Helpfile: +// DepndLst: +// (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb) +// (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL) +// Errors: +// Hint: Member 'Set' of 'IResponseDialogAccessor' changed to 'Set_' +// Error creating palette bitmap of (TContextor) : Invalid GUID format +// Error creating palette bitmap of (TContextItemCollection) : Invalid GUID format +// Error creating palette bitmap of (TContextItem) : Invalid GUID format +// Error creating palette bitmap of (TResponseDialog) : Invalid GUID format +// Error creating palette bitmap of (TContextorParticipant) : Invalid GUID format +// ************************************************************************ // +{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. +interface + +uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; + +// *********************************************************************// +// 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 + VERGENCECONTEXTORLibMajorVersion = 1; + VERGENCECONTEXTORLibMinorVersion = 0; + + LIBID_VERGENCECONTEXTORLib: TGUID = '{30AFBABD-5FD3-11D3-8727-0060B0B5E137}'; + + DIID__IContextChangesSink: TGUID = '{6BED8971-B3DD-11D3-8736-0060B0B5E137}'; + IID_IContextor: TGUID = '{8D879F5D-5FE6-11D3-8727-0060B0B5E137}'; + IID_IContextParticipant: TGUID = '{3E3DD272-998E-11D0-808D-00A0240943E4}'; + IID_IContextItemCollection: TGUID = '{AC4C0271-615A-11D3-84B5-0000861FDD4F}'; + IID_IContextItem: TGUID = '{AC4C0273-615A-11D3-84B5-0000861FDD4F}'; + IID_IResponseContextChange: TGUID = '{CBC6D968-9F6D-416A-8AA7-99172E588DF0}'; + IID_IResponseDialogAccessor: TGUID = '{86592071-F3BA-11D3-8181-005004A0F801}'; + IID_IContextChangesSink: TGUID = '{0B437E31-620E-11D3-84B6-0000861FDD4F}'; + IID_IResponseDialog: TGUID = '{9D33ECF1-8277-11D3-8525-0000861FDD4F}'; + CLASS_Contextor: TGUID = '{D5C9CC98-5FDB-11D3-8727-0060B0B5E137}'; + CLASS_ContextorControl: TGUID = '{8778ACF7-5CA9-11D3-8727-0060B0B5E137}'; + CLASS_ContextItemCollection: TGUID = '{AC4C0272-615A-11D3-84B5-0000861FDD4F}'; + CLASS_ContextItem: TGUID = '{AC4C0274-615A-11D3-84B5-0000861FDD4F}'; + CLASS_ResponseDialog: TGUID = '{9D33ECF2-8277-11D3-8525-0000861FDD4F}'; + IID_ISetHook: TGUID = '{8D879FDD-5FE6-11D3-8727-0060B0B5E137}'; + CLASS_ContextorParticipant: TGUID = '{4BA034A2-D0FA-11D3-818B-0050049598B2}'; + +// *********************************************************************// +// Declaration of Enumerations defined in Type Library +// *********************************************************************// +// Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0002 +type + __MIDL___MIDL_itf_VergenceContextor_0000_0002 = TOleEnum; +const + CsNotRunning = $00000001; + CsParticipating = $00000002; + CsSuspended = $00000003; + +// Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0001 +type + __MIDL___MIDL_itf_VergenceContextor_0000_0001 = TOleEnum; +const + ApNone = $00000001; + ApGet = $00000002; + ApSet = $00000003; + +// Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0003 +type + __MIDL___MIDL_itf_VergenceContextor_0000_0003 = TOleEnum; +const + UrCommit = $00000001; + UrCancel = $00000002; + UrBreak = $00000003; + +type + +// *********************************************************************// +// Forward declaration of types defined in TypeLibrary +// *********************************************************************// + _IContextChangesSink = dispinterface; + IContextor = interface; + IContextorDisp = dispinterface; + IContextParticipant = interface; + IContextParticipantDisp = dispinterface; + IContextItemCollection = interface; + IContextItemCollectionDisp = dispinterface; + IContextItem = interface; + IContextItemDisp = dispinterface; + IResponseContextChange = interface; + IResponseContextChangeDisp = dispinterface; + IResponseDialogAccessor = interface; + IResponseDialogAccessorDisp = dispinterface; + IContextChangesSink = interface; + IContextChangesSinkDisp = dispinterface; + IResponseDialog = interface; + IResponseDialogDisp = dispinterface; + ISetHook = interface; + ISetHookDisp = dispinterface; + +// *********************************************************************// +// Declaration of CoClasses defined in Type Library +// (NOTE: Here we map each CoClass to its Default Interface) +// *********************************************************************// + Contextor = IContextor; + ContextorControl = IContextor; + ContextItemCollection = IContextItemCollection; + ContextItem = IContextItem; + ResponseDialog = IResponseDialog; + ContextorParticipant = IContextParticipant; + + +// *********************************************************************// +// Declaration of structures, unions and aliases. +// *********************************************************************// + + ContextorState = __MIDL___MIDL_itf_VergenceContextor_0000_0002; + AccessPrivilege = __MIDL___MIDL_itf_VergenceContextor_0000_0001; + UserResponse = __MIDL___MIDL_itf_VergenceContextor_0000_0003; + +// *********************************************************************// +// DispIntf: _IContextChangesSink +// Flags: (4096) Dispatchable +// GUID: {6BED8971-B3DD-11D3-8736-0060B0B5E137} +// *********************************************************************// + _IContextChangesSink = dispinterface + ['{6BED8971-B3DD-11D3-8736-0060B0B5E137}'] + procedure Pending(const aContextItemCollection: IDispatch); dispid 1; + procedure Committed; dispid 2; + procedure Canceled; dispid 3; + end; + +// *********************************************************************// +// Interface: IContextor +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {8D879F5D-5FE6-11D3-8727-0060B0B5E137} +// *********************************************************************// + IContextor = interface(IDispatch) + ['{8D879F5D-5FE6-11D3-8727-0060B0B5E137}'] + procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; + const initialNotificationFilter: WideString); safecall; + procedure Suspend; safecall; + procedure Resume; safecall; + function Get_State: ContextorState; safecall; + function GetPrivilege(const subj: WideString): AccessPrivilege; safecall; + function Get_CurrentContext: IContextItemCollection; safecall; + procedure StartContextChange; safecall; + function EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; safecall; + procedure SetSurveyResponse(const reason: WideString); safecall; + function Get_NotificationFilter: WideString; safecall; + procedure Set_NotificationFilter(const filter: WideString); safecall; + function Get_Name: WideString; safecall; + property State: ContextorState read Get_State; + property CurrentContext: IContextItemCollection read Get_CurrentContext; + property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter; + property Name: WideString read Get_Name; + end; + +// *********************************************************************// +// DispIntf: IContextorDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {8D879F5D-5FE6-11D3-8727-0060B0B5E137} +// *********************************************************************// + IContextorDisp = dispinterface + ['{8D879F5D-5FE6-11D3-8727-0060B0B5E137}'] + procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; + const initialNotificationFilter: WideString); dispid 1; + procedure Suspend; dispid 2; + procedure Resume; dispid 3; + property State: ContextorState readonly dispid 4; + function GetPrivilege(const subj: WideString): AccessPrivilege; dispid 5; + property CurrentContext: IContextItemCollection readonly dispid 6; + procedure StartContextChange; dispid 7; + function EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; dispid 8; + procedure SetSurveyResponse(const reason: WideString); dispid 9; + property NotificationFilter: WideString dispid 10; + property Name: WideString readonly dispid 11; + end; + +// *********************************************************************// +// Interface: IContextParticipant +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {3E3DD272-998E-11D0-808D-00A0240943E4} +// *********************************************************************// + IContextParticipant = interface(IDispatch) + ['{3E3DD272-998E-11D0-808D-00A0240943E4}'] + function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; safecall; + procedure ContextChangesAccepted(contextCoupon: Integer); safecall; + procedure ContextChangesCanceled(contextCoupon: Integer); safecall; + procedure CommonContextTerminated; safecall; + procedure Ping; safecall; + end; + +// *********************************************************************// +// DispIntf: IContextParticipantDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {3E3DD272-998E-11D0-808D-00A0240943E4} +// *********************************************************************// + IContextParticipantDisp = dispinterface + ['{3E3DD272-998E-11D0-808D-00A0240943E4}'] + function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; dispid 1610743808; + procedure ContextChangesAccepted(contextCoupon: Integer); dispid 1610743809; + procedure ContextChangesCanceled(contextCoupon: Integer); dispid 1610743810; + procedure CommonContextTerminated; dispid 1610743811; + procedure Ping; dispid 1610743812; + end; + +// *********************************************************************// +// Interface: IContextItemCollection +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {AC4C0271-615A-11D3-84B5-0000861FDD4F} +// *********************************************************************// + IContextItemCollection = interface(IDispatch) + ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}'] + function Count: Integer; safecall; + procedure Add(const aContextItem: IContextItem); safecall; + procedure Remove(const contextItemName: WideString); safecall; + procedure RemoveAll; safecall; + function Present(key: OleVariant): IContextItem; safecall; + function Get__NewEnum: IUnknown; safecall; + function Item(key: OleVariant): IContextItem; safecall; + property _NewEnum: IUnknown read Get__NewEnum; + end; + +// *********************************************************************// +// DispIntf: IContextItemCollectionDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {AC4C0271-615A-11D3-84B5-0000861FDD4F} +// *********************************************************************// + IContextItemCollectionDisp = dispinterface + ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}'] + function Count: Integer; dispid 1; + procedure Add(const aContextItem: IContextItem); dispid 2; + procedure Remove(const contextItemName: WideString); dispid 3; + procedure RemoveAll; dispid 4; + function Present(key: OleVariant): IContextItem; dispid 5; + property _NewEnum: IUnknown readonly dispid -4; + function Item(key: OleVariant): IContextItem; dispid 0; + end; + +// *********************************************************************// +// Interface: IContextItem +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {AC4C0273-615A-11D3-84B5-0000861FDD4F} +// *********************************************************************// + IContextItem = interface(IDispatch) + ['{AC4C0273-615A-11D3-84B5-0000861FDD4F}'] + function Get_Subject: WideString; safecall; + procedure Set_Subject(const pVal: WideString); safecall; + function Get_Role: WideString; safecall; + procedure Set_Role(const pVal: WideString); safecall; + function Get_Prefix: WideString; safecall; + procedure Set_Prefix(const pVal: WideString); safecall; + function Get_Suffix: WideString; safecall; + procedure Set_Suffix(const pVal: WideString); safecall; + function Get_Name: WideString; safecall; + procedure Set_Name(const pVal: WideString); safecall; + function Get_Value: WideString; safecall; + procedure Set_Value(const pVal: WideString); safecall; + function Clone: IContextItem; safecall; + property Subject: WideString read Get_Subject write Set_Subject; + property Role: WideString read Get_Role write Set_Role; + property Prefix: WideString read Get_Prefix write Set_Prefix; + property Suffix: WideString read Get_Suffix write Set_Suffix; + property Name: WideString read Get_Name write Set_Name; + property Value: WideString read Get_Value write Set_Value; + end; + +// *********************************************************************// +// DispIntf: IContextItemDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {AC4C0273-615A-11D3-84B5-0000861FDD4F} +// *********************************************************************// + IContextItemDisp = dispinterface + ['{AC4C0273-615A-11D3-84B5-0000861FDD4F}'] + property Subject: WideString dispid 1; + property Role: WideString dispid 2; + property Prefix: WideString dispid 3; + property Suffix: WideString dispid 4; + property Name: WideString dispid 5; + property Value: WideString dispid 6; + function Clone: IContextItem; dispid 7; + end; + +// *********************************************************************// +// Interface: IResponseContextChange +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {CBC6D968-9F6D-416A-8AA7-99172E588DF0} +// *********************************************************************// + IResponseContextChange = interface(IDispatch) + ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}'] + procedure StartResponseContextChange; safecall; + function EndResponseContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection; + var noContinue: WordBool): OleVariant; safecall; + procedure CommitContextChange; safecall; + procedure CancelContextChange; safecall; + end; + +// *********************************************************************// +// DispIntf: IResponseContextChangeDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {CBC6D968-9F6D-416A-8AA7-99172E588DF0} +// *********************************************************************// + IResponseContextChangeDisp = dispinterface + ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}'] + procedure StartResponseContextChange; dispid 1; + function EndResponseContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection; + var noContinue: WordBool): OleVariant; dispid 2; + procedure CommitContextChange; dispid 3; + procedure CancelContextChange; dispid 4; + end; + +// *********************************************************************// +// Interface: IResponseDialogAccessor +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {86592071-F3BA-11D3-8181-005004A0F801} +// *********************************************************************// + IResponseDialogAccessor = interface(IDispatch) + ['{86592071-F3BA-11D3-8181-005004A0F801}'] + procedure Reset; safecall; + procedure Set_(const aResponseDialog: IResponseDialog); safecall; + end; + +// *********************************************************************// +// DispIntf: IResponseDialogAccessorDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {86592071-F3BA-11D3-8181-005004A0F801} +// *********************************************************************// + IResponseDialogAccessorDisp = dispinterface + ['{86592071-F3BA-11D3-8181-005004A0F801}'] + procedure Reset; dispid 1; + procedure Set_(const aResponseDialog: IResponseDialog); dispid 2; + end; + +// *********************************************************************// +// Interface: IContextChangesSink +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {0B437E31-620E-11D3-84B6-0000861FDD4F} +// *********************************************************************// + IContextChangesSink = interface(IDispatch) + ['{0B437E31-620E-11D3-84B6-0000861FDD4F}'] + procedure Pending(const aContextItemCollection: IDispatch); safecall; + procedure Committed; safecall; + procedure Canceled; safecall; + end; + +// *********************************************************************// +// DispIntf: IContextChangesSinkDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {0B437E31-620E-11D3-84B6-0000861FDD4F} +// *********************************************************************// + IContextChangesSinkDisp = dispinterface + ['{0B437E31-620E-11D3-84B6-0000861FDD4F}'] + procedure Pending(const aContextItemCollection: IDispatch); dispid 1; + procedure Committed; dispid 2; + procedure Canceled; dispid 3; + end; + +// *********************************************************************// +// Interface: IResponseDialog +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {9D33ECF1-8277-11D3-8525-0000861FDD4F} +// *********************************************************************// + IResponseDialog = interface(IDispatch) + ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}'] + function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; safecall; + end; + +// *********************************************************************// +// DispIntf: IResponseDialogDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {9D33ECF1-8277-11D3-8525-0000861FDD4F} +// *********************************************************************// + IResponseDialogDisp = dispinterface + ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}'] + function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; dispid 1; + end; + +// *********************************************************************// +// Interface: ISetHook +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {8D879FDD-5FE6-11D3-8727-0060B0B5E137} +// *********************************************************************// + ISetHook = interface(IDispatch) + ['{8D879FDD-5FE6-11D3-8727-0060B0B5E137}'] + procedure SetParticipant(const aContextParticipant: IContextParticipant); safecall; + end; + +// *********************************************************************// +// DispIntf: ISetHookDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {8D879FDD-5FE6-11D3-8727-0060B0B5E137} +// *********************************************************************// + ISetHookDisp = dispinterface + ['{8D879FDD-5FE6-11D3-8727-0060B0B5E137}'] + procedure SetParticipant(const aContextParticipant: IContextParticipant); dispid 1; + end; + +// *********************************************************************// +// The Class CoContextor provides a Create and CreateRemote method to +// create instances of the default interface IContextor exposed by +// the CoClass Contextor. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoContextor = class + class function Create: IContextor; + class function CreateRemote(const MachineName: string): IContextor; + end; + + TContextorPending = procedure(Sender: TObject; var aContextItemCollection: OleVariant) of object; + + +// *********************************************************************// +// OLE Server Proxy class declaration +// Server Object : TContextor +// Help String : Vergence Contextor +// Default Interface: IContextor +// Def. Intf. DISP? : No +// Event Interface: _IContextChangesSink +// TypeFlags : (2) CanCreate +// *********************************************************************// +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + TContextorProperties= class; +{$ENDIF} + TContextor = class(TOleServer) + private + FOnPending: TContextorPending; + FOnCommitted: TNotifyEvent; + FOnCanceled: TNotifyEvent; + FIntf: IContextor; +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps: TContextorProperties; + function GetServerProperties: TContextorProperties; +{$ENDIF} + function GetDefaultInterface: IContextor; + protected + procedure InitServerData; override; + procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; + function Get_State: ContextorState; + function Get_CurrentContext: IContextItemCollection; + function Get_NotificationFilter: WideString; + procedure Set_NotificationFilter(const filter: WideString); + function Get_Name: WideString; + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Connect; override; + procedure ConnectTo(svrIntf: IContextor); + procedure Disconnect; override; + procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; + const initialNotificationFilter: WideString); + procedure Suspend; + procedure Resume; + function GetPrivilege(const subj: WideString): AccessPrivilege; + procedure StartContextChange; + function EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; + procedure SetSurveyResponse(const reason: WideString); + property DefaultInterface: IContextor read GetDefaultInterface; + property State: ContextorState read Get_State; + property CurrentContext: IContextItemCollection read Get_CurrentContext; + property Name: WideString read Get_Name; + property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter; + published +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + property Server: TContextorProperties read GetServerProperties; +{$ENDIF} + property OnPending: TContextorPending read FOnPending write FOnPending; + property OnCommitted: TNotifyEvent read FOnCommitted write FOnCommitted; + property OnCanceled: TNotifyEvent read FOnCanceled write FOnCanceled; + end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +// *********************************************************************// +// OLE Server Properties Proxy Class +// Server Object : TContextor +// (This object is used by the IDE's Property Inspector to allow editing +// of the properties of this server) +// *********************************************************************// + TContextorProperties = class(TPersistent) + private + FServer: TContextor; + function GetDefaultInterface: IContextor; + constructor Create(AServer: TContextor); + protected + function Get_State: ContextorState; + function Get_CurrentContext: IContextItemCollection; + function Get_NotificationFilter: WideString; + procedure Set_NotificationFilter(const filter: WideString); + function Get_Name: WideString; + public + property DefaultInterface: IContextor read GetDefaultInterface; + published + property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter; + end; +{$ENDIF} + + + +// *********************************************************************// +// OLE Control Proxy class declaration +// Control Name : TContextorControl +// Help String : Vergence ContextorControl +// Default Interface: IContextor +// Def. Intf. DISP? : No +// Event Interface: _IContextChangesSink +// TypeFlags : (2) CanCreate +// *********************************************************************// + TContextorControlPending = procedure(Sender: TObject; const aContextItemCollection: IDispatch) of object; + + TContextorControl = class(TOleControl) + private + FOnPending: TContextorControlPending; + FOnCommitted: TNotifyEvent; + FOnCanceled: TNotifyEvent; + FIntf: IContextor; + function GetControlInterface: IContextor; + protected + procedure CreateControl; + procedure InitControlData; override; + function Get_CurrentContext: IContextItemCollection; + public + procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; + const initialNotificationFilter: WideString); + procedure Suspend; + procedure Resume; + function GetPrivilege(const subj: WideString): AccessPrivilege; + procedure StartContextChange; + function EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; + procedure SetSurveyResponse(const reason: WideString); + property ControlInterface: IContextor read GetControlInterface; + property DefaultInterface: IContextor read GetControlInterface; + property State: TOleEnum index 4 read GetTOleEnumProp; + property CurrentContext: IContextItemCollection read Get_CurrentContext; + property Name: WideString index 11 read GetWideStringProp; + published + property NotificationFilter: WideString index 10 read GetWideStringProp write SetWideStringProp stored False; + property OnPending: TContextorControlPending read FOnPending write FOnPending; + property OnCommitted: TNotifyEvent read FOnCommitted write FOnCommitted; + property OnCanceled: TNotifyEvent read FOnCanceled write FOnCanceled; + end; + +// *********************************************************************// +// The Class CoContextItemCollection provides a Create and CreateRemote method to +// create instances of the default interface IContextItemCollection exposed by +// the CoClass ContextItemCollection. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoContextItemCollection = class + class function Create: IContextItemCollection; + class function CreateRemote(const MachineName: string): IContextItemCollection; + end; + + +// *********************************************************************// +// OLE Server Proxy class declaration +// Server Object : TContextItemCollection +// Help String : Vergence ContextItemCollection +// Default Interface: IContextItemCollection +// Def. Intf. DISP? : No +// Event Interface: +// TypeFlags : (2) CanCreate +// *********************************************************************// +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + TContextItemCollectionProperties= class; +{$ENDIF} + TContextItemCollection = class(TOleServer) + private + FIntf: IContextItemCollection; +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps: TContextItemCollectionProperties; + function GetServerProperties: TContextItemCollectionProperties; +{$ENDIF} + function GetDefaultInterface: IContextItemCollection; + protected + procedure InitServerData; override; + function Get__NewEnum: IUnknown; + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Connect; override; + procedure ConnectTo(svrIntf: IContextItemCollection); + procedure Disconnect; override; + function Count: Integer; + procedure Add(const aContextItem: IContextItem); + procedure Remove(const contextItemName: WideString); + procedure RemoveAll; + function Present(key: OleVariant): IContextItem; + function Item(key: OleVariant): IContextItem; + property DefaultInterface: IContextItemCollection read GetDefaultInterface; + property _NewEnum: IUnknown read Get__NewEnum; + published +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + property Server: TContextItemCollectionProperties read GetServerProperties; +{$ENDIF} + end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +// *********************************************************************// +// OLE Server Properties Proxy Class +// Server Object : TContextItemCollection +// (This object is used by the IDE's Property Inspector to allow editing +// of the properties of this server) +// *********************************************************************// + TContextItemCollectionProperties = class(TPersistent) + private + FServer: TContextItemCollection; + function GetDefaultInterface: IContextItemCollection; + constructor Create(AServer: TContextItemCollection); + protected + function Get__NewEnum: IUnknown; + public + property DefaultInterface: IContextItemCollection read GetDefaultInterface; + published + end; +{$ENDIF} + + +// *********************************************************************// +// The Class CoContextItem provides a Create and CreateRemote method to +// create instances of the default interface IContextItem exposed by +// the CoClass ContextItem. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoContextItem = class + class function Create: IContextItem; + class function CreateRemote(const MachineName: string): IContextItem; + end; + + +// *********************************************************************// +// OLE Server Proxy class declaration +// Server Object : TContextItem +// Help String : Vergence ContextItem +// Default Interface: IContextItem +// Def. Intf. DISP? : No +// Event Interface: +// TypeFlags : (2) CanCreate +// *********************************************************************// +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + TContextItemProperties= class; +{$ENDIF} + TContextItem = class(TOleServer) + private + FIntf: IContextItem; +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps: TContextItemProperties; + function GetServerProperties: TContextItemProperties; +{$ENDIF} + function GetDefaultInterface: IContextItem; + protected + procedure InitServerData; override; + function Get_Subject: WideString; + procedure Set_Subject(const pVal: WideString); + function Get_Role: WideString; + procedure Set_Role(const pVal: WideString); + function Get_Prefix: WideString; + procedure Set_Prefix(const pVal: WideString); + function Get_Suffix: WideString; + procedure Set_Suffix(const pVal: WideString); + function Get_Name: WideString; + procedure Set_Name(const pVal: WideString); + function Get_Value: WideString; + procedure Set_Value(const pVal: WideString); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Connect; override; + procedure ConnectTo(svrIntf: IContextItem); + procedure Disconnect; override; + function Clone: IContextItem; + property DefaultInterface: IContextItem read GetDefaultInterface; + property Subject: WideString read Get_Subject write Set_Subject; + property Role: WideString read Get_Role write Set_Role; + property Prefix: WideString read Get_Prefix write Set_Prefix; + property Suffix: WideString read Get_Suffix write Set_Suffix; + property Name: WideString read Get_Name write Set_Name; + property Value: WideString read Get_Value write Set_Value; + published +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + property Server: TContextItemProperties read GetServerProperties; +{$ENDIF} + end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +// *********************************************************************// +// OLE Server Properties Proxy Class +// Server Object : TContextItem +// (This object is used by the IDE's Property Inspector to allow editing +// of the properties of this server) +// *********************************************************************// + TContextItemProperties = class(TPersistent) + private + FServer: TContextItem; + function GetDefaultInterface: IContextItem; + constructor Create(AServer: TContextItem); + protected + function Get_Subject: WideString; + procedure Set_Subject(const pVal: WideString); + function Get_Role: WideString; + procedure Set_Role(const pVal: WideString); + function Get_Prefix: WideString; + procedure Set_Prefix(const pVal: WideString); + function Get_Suffix: WideString; + procedure Set_Suffix(const pVal: WideString); + function Get_Name: WideString; + procedure Set_Name(const pVal: WideString); + function Get_Value: WideString; + procedure Set_Value(const pVal: WideString); + public + property DefaultInterface: IContextItem read GetDefaultInterface; + published + property Subject: WideString read Get_Subject write Set_Subject; + property Role: WideString read Get_Role write Set_Role; + property Prefix: WideString read Get_Prefix write Set_Prefix; + property Suffix: WideString read Get_Suffix write Set_Suffix; + property Name: WideString read Get_Name write Set_Name; + property Value: WideString read Get_Value write Set_Value; + end; +{$ENDIF} + + +// *********************************************************************// +// The Class CoResponseDialog provides a Create and CreateRemote method to +// create instances of the default interface IResponseDialog exposed by +// the CoClass ResponseDialog. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoResponseDialog = class + class function Create: IResponseDialog; + class function CreateRemote(const MachineName: string): IResponseDialog; + end; + + +// *********************************************************************// +// OLE Server Proxy class declaration +// Server Object : TResponseDialog +// Help String : Vergence ResponseDialog +// Default Interface: IResponseDialog +// Def. Intf. DISP? : No +// Event Interface: +// TypeFlags : (2) CanCreate +// *********************************************************************// +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + TResponseDialogProperties= class; +{$ENDIF} + TResponseDialog = class(TOleServer) + private + FIntf: IResponseDialog; +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps: TResponseDialogProperties; + function GetServerProperties: TResponseDialogProperties; +{$ENDIF} + function GetDefaultInterface: IResponseDialog; + protected + procedure InitServerData; override; + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Connect; override; + procedure ConnectTo(svrIntf: IResponseDialog); + procedure Disconnect; override; + function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; + property DefaultInterface: IResponseDialog read GetDefaultInterface; + published +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + property Server: TResponseDialogProperties read GetServerProperties; +{$ENDIF} + end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +// *********************************************************************// +// OLE Server Properties Proxy Class +// Server Object : TResponseDialog +// (This object is used by the IDE's Property Inspector to allow editing +// of the properties of this server) +// *********************************************************************// + TResponseDialogProperties = class(TPersistent) + private + FServer: TResponseDialog; + function GetDefaultInterface: IResponseDialog; + constructor Create(AServer: TResponseDialog); + protected + public + property DefaultInterface: IResponseDialog read GetDefaultInterface; + published + end; +{$ENDIF} + + +// *********************************************************************// +// The Class CoContextorParticipant provides a Create and CreateRemote method to +// create instances of the default interface IContextParticipant exposed by +// the CoClass ContextorParticipant. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoContextorParticipant = class + class function Create: IContextParticipant; + class function CreateRemote(const MachineName: string): IContextParticipant; + end; + + +// *********************************************************************// +// OLE Server Proxy class declaration +// Server Object : TContextorParticipant +// Help String : ContextorParticipant Class +// Default Interface: IContextParticipant +// Def. Intf. DISP? : No +// Event Interface: +// TypeFlags : (2) CanCreate +// *********************************************************************// +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + TContextorParticipantProperties= class; +{$ENDIF} + TContextorParticipant = class(TOleServer) + private + FIntf: IContextParticipant; +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps: TContextorParticipantProperties; + function GetServerProperties: TContextorParticipantProperties; +{$ENDIF} + function GetDefaultInterface: IContextParticipant; + protected + procedure InitServerData; override; + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Connect; override; + procedure ConnectTo(svrIntf: IContextParticipant); + procedure Disconnect; override; + function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; + procedure ContextChangesAccepted(contextCoupon: Integer); + procedure ContextChangesCanceled(contextCoupon: Integer); + procedure CommonContextTerminated; + procedure Ping; + property DefaultInterface: IContextParticipant read GetDefaultInterface; + published +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + property Server: TContextorParticipantProperties read GetServerProperties; +{$ENDIF} + end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +// *********************************************************************// +// OLE Server Properties Proxy Class +// Server Object : TContextorParticipant +// (This object is used by the IDE's Property Inspector to allow editing +// of the properties of this server) +// *********************************************************************// + TContextorParticipantProperties = class(TPersistent) + private + FServer: TContextorParticipant; + function GetDefaultInterface: IContextParticipant; + constructor Create(AServer: TContextorParticipant); + protected + public + property DefaultInterface: IContextParticipant read GetDefaultInterface; + published + end; +{$ENDIF} + +{ +procedure Register; +} +implementation + +uses ComObj; + +class function CoContextor.Create: IContextor; +begin + Result := CreateComObject(CLASS_Contextor) as IContextor; +end; + +class function CoContextor.CreateRemote(const MachineName: string): IContextor; +begin + Result := CreateRemoteComObject(MachineName, CLASS_Contextor) as IContextor; +end; + +procedure TContextor.InitServerData; +const + CServerData: TServerData = ( + ClassID: '{D5C9CC98-5FDB-11D3-8727-0060B0B5E137}'; + IntfIID: '{8D879F5D-5FE6-11D3-8727-0060B0B5E137}'; + EventIID: '{6BED8971-B3DD-11D3-8736-0060B0B5E137}'; + LicenseKey: nil; + Version: 500); +begin + ServerData := @CServerData; +end; + +procedure TContextor.Connect; +var + punk: IUnknown; +begin + if FIntf = nil then + begin + punk := GetServer; + ConnectEvents(punk); + Fintf:= punk as IContextor; + end; +end; + +procedure TContextor.ConnectTo(svrIntf: IContextor); +begin + Disconnect; + FIntf := svrIntf; + ConnectEvents(FIntf); +end; + +procedure TContextor.DisConnect; +begin + if Fintf <> nil then + begin + DisconnectEvents(FIntf); + FIntf := nil; + end; +end; + +function TContextor.GetDefaultInterface: IContextor; +begin + if FIntf = nil then + Connect; + Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); + Result := FIntf; +end; + +constructor TContextor.Create(AOwner: TComponent); +begin + inherited Create(AOwner); +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps := TContextorProperties.Create(Self); +{$ENDIF} +end; + +destructor TContextor.Destroy; +begin +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps.Free; +{$ENDIF} + inherited Destroy; +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +function TContextor.GetServerProperties: TContextorProperties; +begin + Result := FProps; +end; +{$ENDIF} + +procedure TContextor.InvokeEvent(DispID: TDispID; var Params: TVariantArray); +begin + case DispID of + -1: Exit; // DISPID_UNKNOWN + 1: if Assigned(FOnPending) then + FOnPending(Self, Params[0] {const IDispatch}); + 2: if Assigned(FOnCommitted) then + FOnCommitted(Self); + 3: if Assigned(FOnCanceled) then + FOnCanceled(Self); + end; {case DispID} +end; + +function TContextor.Get_State: ContextorState; +begin + Result := DefaultInterface.Get_State; +end; + +function TContextor.Get_CurrentContext: IContextItemCollection; +begin + Result := DefaultInterface.Get_CurrentContext; +end; + +function TContextor.Get_NotificationFilter: WideString; +begin + Result := DefaultInterface.Get_NotificationFilter; +end; + +procedure TContextor.Set_NotificationFilter(const filter: WideString); +begin + DefaultInterface.Set_NotificationFilter(filter); +end; + +function TContextor.Get_Name: WideString; +begin + Result := DefaultInterface.Get_Name; +end; + +procedure TContextor.Run(const applicationLabel: WideString; const passcode: WideString; + survey: WordBool; const initialNotificationFilter: WideString); +begin + DefaultInterface.Run(applicationLabel, passcode, survey, initialNotificationFilter); +end; + +procedure TContextor.Suspend; +begin + DefaultInterface.Suspend; +end; + +procedure TContextor.Resume; +begin + DefaultInterface.Resume; +end; + +function TContextor.GetPrivilege(const subj: WideString): AccessPrivilege; +begin + Result := DefaultInterface.GetPrivilege(subj); +end; + +procedure TContextor.StartContextChange; +begin + DefaultInterface.StartContextChange; +end; + +function TContextor.EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; +begin + Result := DefaultInterface.EndContextChange(commit, aContextItemCollection); +end; + +procedure TContextor.SetSurveyResponse(const reason: WideString); +begin + DefaultInterface.SetSurveyResponse(reason); +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +constructor TContextorProperties.Create(AServer: TContextor); +begin + inherited Create; + FServer := AServer; +end; + +function TContextorProperties.GetDefaultInterface: IContextor; +begin + Result := FServer.DefaultInterface; +end; + +function TContextorProperties.Get_State: ContextorState; +begin + Result := DefaultInterface.Get_State; +end; + +function TContextorProperties.Get_CurrentContext: IContextItemCollection; +begin + Result := DefaultInterface.Get_CurrentContext; +end; + +function TContextorProperties.Get_NotificationFilter: WideString; +begin + Result := DefaultInterface.Get_NotificationFilter; +end; + +procedure TContextorProperties.Set_NotificationFilter(const filter: WideString); +begin + DefaultInterface.Set_NotificationFilter(filter); +end; + +function TContextorProperties.Get_Name: WideString; +begin + Result := DefaultInterface.Get_Name; +end; + +{$ENDIF} + +procedure TContextorControl.InitControlData; +const + CEventDispIDs: array [0..2] of DWORD = ( + $00000001, $00000002, $00000003); + CControlData: TControlData2 = ( + ClassID: '{8778ACF7-5CA9-11D3-8727-0060B0B5E137}'; + EventIID: '{6BED8971-B3DD-11D3-8736-0060B0B5E137}'; + EventCount: 3; + EventDispIDs: @CEventDispIDs; + LicenseKey: nil (*HR:$80004002*); + Flags: $00000000; + Version: 401); +begin + ControlData := @CControlData; + TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnPending) - Cardinal(Self); +end; + +procedure TContextorControl.CreateControl; + + procedure DoCreate; + begin + FIntf := IUnknown(OleObject) as IContextor; + end; + +begin + if FIntf = nil then DoCreate; +end; + +function TContextorControl.GetControlInterface: IContextor; +begin + CreateControl; + Result := FIntf; +end; + +function TContextorControl.Get_CurrentContext: IContextItemCollection; +begin + Result := DefaultInterface.Get_CurrentContext; +end; + +procedure TContextorControl.Run(const applicationLabel: WideString; const passcode: WideString; + survey: WordBool; const initialNotificationFilter: WideString); +begin + DefaultInterface.Run(applicationLabel, passcode, survey, initialNotificationFilter); +end; + +procedure TContextorControl.Suspend; +begin + DefaultInterface.Suspend; +end; + +procedure TContextorControl.Resume; +begin + DefaultInterface.Resume; +end; + +function TContextorControl.GetPrivilege(const subj: WideString): AccessPrivilege; +begin + Result := DefaultInterface.GetPrivilege(subj); +end; + +procedure TContextorControl.StartContextChange; +begin + DefaultInterface.StartContextChange; +end; + +function TContextorControl.EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; +begin + Result := DefaultInterface.EndContextChange(commit, aContextItemCollection); +end; + +procedure TContextorControl.SetSurveyResponse(const reason: WideString); +begin + DefaultInterface.SetSurveyResponse(reason); +end; + +class function CoContextItemCollection.Create: IContextItemCollection; +begin + Result := CreateComObject(CLASS_ContextItemCollection) as IContextItemCollection; +end; + +class function CoContextItemCollection.CreateRemote(const MachineName: string): IContextItemCollection; +begin + Result := CreateRemoteComObject(MachineName, CLASS_ContextItemCollection) as IContextItemCollection; +end; + +procedure TContextItemCollection.InitServerData; +const + CServerData: TServerData = ( + ClassID: '{AC4C0272-615A-11D3-84B5-0000861FDD4F}'; + IntfIID: '{AC4C0271-615A-11D3-84B5-0000861FDD4F}'; + EventIID: ''; + LicenseKey: nil; + Version: 500); +begin + ServerData := @CServerData; +end; + +procedure TContextItemCollection.Connect; +var + punk: IUnknown; +begin + if FIntf = nil then + begin + punk := GetServer; + Fintf:= punk as IContextItemCollection; + end; +end; + +procedure TContextItemCollection.ConnectTo(svrIntf: IContextItemCollection); +begin + Disconnect; + FIntf := svrIntf; +end; + +procedure TContextItemCollection.DisConnect; +begin + if Fintf <> nil then + begin + FIntf := nil; + end; +end; + +function TContextItemCollection.GetDefaultInterface: IContextItemCollection; +begin + if FIntf = nil then + Connect; + Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); + Result := FIntf; +end; + +constructor TContextItemCollection.Create(AOwner: TComponent); +begin + inherited Create(AOwner); +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps := TContextItemCollectionProperties.Create(Self); +{$ENDIF} +end; + +destructor TContextItemCollection.Destroy; +begin +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps.Free; +{$ENDIF} + inherited Destroy; +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +function TContextItemCollection.GetServerProperties: TContextItemCollectionProperties; +begin + Result := FProps; +end; +{$ENDIF} + +function TContextItemCollection.Get__NewEnum: IUnknown; +begin + Result := DefaultInterface.Get__NewEnum; +end; + +function TContextItemCollection.Count: Integer; +begin + Result := DefaultInterface.Count; +end; + +procedure TContextItemCollection.Add(const aContextItem: IContextItem); +begin + DefaultInterface.Add(aContextItem); +end; + +procedure TContextItemCollection.Remove(const contextItemName: WideString); +begin + DefaultInterface.Remove(contextItemName); +end; + +procedure TContextItemCollection.RemoveAll; +begin + DefaultInterface.RemoveAll; +end; + +function TContextItemCollection.Present(key: OleVariant): IContextItem; +begin + Result := DefaultInterface.Present(key); +end; + +function TContextItemCollection.Item(key: OleVariant): IContextItem; +begin + Result := DefaultInterface.Item(key); +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +constructor TContextItemCollectionProperties.Create(AServer: TContextItemCollection); +begin + inherited Create; + FServer := AServer; +end; + +function TContextItemCollectionProperties.GetDefaultInterface: IContextItemCollection; +begin + Result := FServer.DefaultInterface; +end; + +function TContextItemCollectionProperties.Get__NewEnum: IUnknown; +begin + Result := DefaultInterface.Get__NewEnum; +end; + +{$ENDIF} + +class function CoContextItem.Create: IContextItem; +begin + Result := CreateComObject(CLASS_ContextItem) as IContextItem; +end; + +class function CoContextItem.CreateRemote(const MachineName: string): IContextItem; +begin + Result := CreateRemoteComObject(MachineName, CLASS_ContextItem) as IContextItem; +end; + +procedure TContextItem.InitServerData; +const + CServerData: TServerData = ( + ClassID: '{AC4C0274-615A-11D3-84B5-0000861FDD4F}'; + IntfIID: '{AC4C0273-615A-11D3-84B5-0000861FDD4F}'; + EventIID: ''; + LicenseKey: nil; + Version: 500); +begin + ServerData := @CServerData; +end; + +procedure TContextItem.Connect; +var + punk: IUnknown; +begin + if FIntf = nil then + begin + punk := GetServer; + Fintf:= punk as IContextItem; + end; +end; + +procedure TContextItem.ConnectTo(svrIntf: IContextItem); +begin + Disconnect; + FIntf := svrIntf; +end; + +procedure TContextItem.DisConnect; +begin + if Fintf <> nil then + begin + FIntf := nil; + end; +end; + +function TContextItem.GetDefaultInterface: IContextItem; +begin + if FIntf = nil then + Connect; + Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); + Result := FIntf; +end; + +constructor TContextItem.Create(AOwner: TComponent); +begin + inherited Create(AOwner); +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps := TContextItemProperties.Create(Self); +{$ENDIF} +end; + +destructor TContextItem.Destroy; +begin +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps.Free; +{$ENDIF} + inherited Destroy; +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +function TContextItem.GetServerProperties: TContextItemProperties; +begin + Result := FProps; +end; +{$ENDIF} + +function TContextItem.Get_Subject: WideString; +begin + Result := DefaultInterface.Get_Subject; +end; + +procedure TContextItem.Set_Subject(const pVal: WideString); +begin + DefaultInterface.Set_Subject(pVal); +end; + +function TContextItem.Get_Role: WideString; +begin + Result := DefaultInterface.Get_Role; +end; + +procedure TContextItem.Set_Role(const pVal: WideString); +begin + DefaultInterface.Set_Role(pVal); +end; + +function TContextItem.Get_Prefix: WideString; +begin + Result := DefaultInterface.Get_Prefix; +end; + +procedure TContextItem.Set_Prefix(const pVal: WideString); +begin + DefaultInterface.Set_Prefix(pVal); +end; + +function TContextItem.Get_Suffix: WideString; +begin + Result := DefaultInterface.Get_Suffix; +end; + +procedure TContextItem.Set_Suffix(const pVal: WideString); +begin + DefaultInterface.Set_Suffix(pVal); +end; + +function TContextItem.Get_Name: WideString; +begin + Result := DefaultInterface.Get_Name; +end; + +procedure TContextItem.Set_Name(const pVal: WideString); +begin + DefaultInterface.Set_Name(pVal); +end; + +function TContextItem.Get_Value: WideString; +begin + Result := DefaultInterface.Get_Value; +end; + +procedure TContextItem.Set_Value(const pVal: WideString); +begin + DefaultInterface.Set_Value(pVal); +end; + +function TContextItem.Clone: IContextItem; +begin + Result := DefaultInterface.Clone; +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +constructor TContextItemProperties.Create(AServer: TContextItem); +begin + inherited Create; + FServer := AServer; +end; + +function TContextItemProperties.GetDefaultInterface: IContextItem; +begin + Result := FServer.DefaultInterface; +end; + +function TContextItemProperties.Get_Subject: WideString; +begin + Result := DefaultInterface.Get_Subject; +end; + +procedure TContextItemProperties.Set_Subject(const pVal: WideString); +begin + DefaultInterface.Set_Subject(pVal); +end; + +function TContextItemProperties.Get_Role: WideString; +begin + Result := DefaultInterface.Get_Role; +end; + +procedure TContextItemProperties.Set_Role(const pVal: WideString); +begin + DefaultInterface.Set_Role(pVal); +end; + +function TContextItemProperties.Get_Prefix: WideString; +begin + Result := DefaultInterface.Get_Prefix; +end; + +procedure TContextItemProperties.Set_Prefix(const pVal: WideString); +begin + DefaultInterface.Set_Prefix(pVal); +end; + +function TContextItemProperties.Get_Suffix: WideString; +begin + Result := DefaultInterface.Get_Suffix; +end; + +procedure TContextItemProperties.Set_Suffix(const pVal: WideString); +begin + DefaultInterface.Set_Suffix(pVal); +end; + +function TContextItemProperties.Get_Name: WideString; +begin + Result := DefaultInterface.Get_Name; +end; + +procedure TContextItemProperties.Set_Name(const pVal: WideString); +begin + DefaultInterface.Set_Name(pVal); +end; + +function TContextItemProperties.Get_Value: WideString; +begin + Result := DefaultInterface.Get_Value; +end; + +procedure TContextItemProperties.Set_Value(const pVal: WideString); +begin + DefaultInterface.Set_Value(pVal); +end; + +{$ENDIF} + +class function CoResponseDialog.Create: IResponseDialog; +begin + Result := CreateComObject(CLASS_ResponseDialog) as IResponseDialog; +end; + +class function CoResponseDialog.CreateRemote(const MachineName: string): IResponseDialog; +begin + Result := CreateRemoteComObject(MachineName, CLASS_ResponseDialog) as IResponseDialog; +end; + +procedure TResponseDialog.InitServerData; +const + CServerData: TServerData = ( + ClassID: '{9D33ECF2-8277-11D3-8525-0000861FDD4F}'; + IntfIID: '{9D33ECF1-8277-11D3-8525-0000861FDD4F}'; + EventIID: ''; + LicenseKey: nil; + Version: 500); +begin + ServerData := @CServerData; +end; + +procedure TResponseDialog.Connect; +var + punk: IUnknown; +begin + if FIntf = nil then + begin + punk := GetServer; + Fintf:= punk as IResponseDialog; + end; +end; + +procedure TResponseDialog.ConnectTo(svrIntf: IResponseDialog); +begin + Disconnect; + FIntf := svrIntf; +end; + +procedure TResponseDialog.DisConnect; +begin + if Fintf <> nil then + begin + FIntf := nil; + end; +end; + +function TResponseDialog.GetDefaultInterface: IResponseDialog; +begin + if FIntf = nil then + Connect; + Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); + Result := FIntf; +end; + +constructor TResponseDialog.Create(AOwner: TComponent); +begin + inherited Create(AOwner); +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps := TResponseDialogProperties.Create(Self); +{$ENDIF} +end; + +destructor TResponseDialog.Destroy; +begin +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps.Free; +{$ENDIF} + inherited Destroy; +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +function TResponseDialog.GetServerProperties: TResponseDialogProperties; +begin + Result := FProps; +end; +{$ENDIF} + +function TResponseDialog.ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; +begin + Result := DefaultInterface.ProcessSurveyResults(responses, noContinue); +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +constructor TResponseDialogProperties.Create(AServer: TResponseDialog); +begin + inherited Create; + FServer := AServer; +end; + +function TResponseDialogProperties.GetDefaultInterface: IResponseDialog; +begin + Result := FServer.DefaultInterface; +end; + +{$ENDIF} + +class function CoContextorParticipant.Create: IContextParticipant; +begin + Result := CreateComObject(CLASS_ContextorParticipant) as IContextParticipant; +end; + +class function CoContextorParticipant.CreateRemote(const MachineName: string): IContextParticipant; +begin + Result := CreateRemoteComObject(MachineName, CLASS_ContextorParticipant) as IContextParticipant; +end; + +procedure TContextorParticipant.InitServerData; +const + CServerData: TServerData = ( + ClassID: '{4BA034A2-D0FA-11D3-818B-0050049598B2}'; + IntfIID: '{3E3DD272-998E-11D0-808D-00A0240943E4}'; + EventIID: ''; + LicenseKey: nil; + Version: 500); +begin + ServerData := @CServerData; +end; + +procedure TContextorParticipant.Connect; +var + punk: IUnknown; +begin + if FIntf = nil then + begin + punk := GetServer; + Fintf:= punk as IContextParticipant; + end; +end; + +procedure TContextorParticipant.ConnectTo(svrIntf: IContextParticipant); +begin + Disconnect; + FIntf := svrIntf; +end; + +procedure TContextorParticipant.DisConnect; +begin + if Fintf <> nil then + begin + FIntf := nil; + end; +end; + +function TContextorParticipant.GetDefaultInterface: IContextParticipant; +begin + if FIntf = nil then + Connect; + Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); + Result := FIntf; +end; + +constructor TContextorParticipant.Create(AOwner: TComponent); +begin + inherited Create(AOwner); +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps := TContextorParticipantProperties.Create(Self); +{$ENDIF} +end; + +destructor TContextorParticipant.Destroy; +begin +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps.Free; +{$ENDIF} + inherited Destroy; +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +function TContextorParticipant.GetServerProperties: TContextorParticipantProperties; +begin + Result := FProps; +end; +{$ENDIF} + +function TContextorParticipant.ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; +begin + Result := DefaultInterface.ContextChangesPending(contextCoupon, reason); +end; + +procedure TContextorParticipant.ContextChangesAccepted(contextCoupon: Integer); +begin + DefaultInterface.ContextChangesAccepted(contextCoupon); +end; + +procedure TContextorParticipant.ContextChangesCanceled(contextCoupon: Integer); +begin + DefaultInterface.ContextChangesCanceled(contextCoupon); +end; + +procedure TContextorParticipant.CommonContextTerminated; +begin + DefaultInterface.CommonContextTerminated; +end; + +procedure TContextorParticipant.Ping; +begin + DefaultInterface.Ping; +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +constructor TContextorParticipantProperties.Create(AServer: TContextorParticipant); +begin + inherited Create; + FServer := AServer; +end; + +function TContextorParticipantProperties.GetDefaultInterface: IContextParticipant; +begin + Result := FServer.DefaultInterface; +end; + +{$ENDIF} +{ +procedure Register; +begin + RegisterComponents('Kernel',[TContextorControl]); + RegisterComponents('Kernel',[TContextor, TContextItemCollection, TContextItem, TResponseDialog, + TContextorParticipant]); +end; +} +end. diff --git a/CPRS-Chart/Vitals/fVitalsDate.dfm b/CPRS-Chart/Vitals/fVitalsDate.dfm new file mode 100644 index 0000000..7f05a2b --- /dev/null +++ b/CPRS-Chart/Vitals/fVitalsDate.dfm @@ -0,0 +1,68 @@ +object frmVitalsDate: TfrmVitalsDate + Left = 193 + Top = 381 + Width = 363 + Height = 87 + Caption = 'Vitals Date & Time' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 12 + Width = 151 + Height = 13 + Caption = 'Enter Vital Entry Date and Time:' + end + object dteVitals: TORDateBox + Tag = 11 + Left = 167 + Top = 8 + Width = 133 + Height = 21 + TabOrder = 0 + DateOnly = False + RequireTime = True + Caption = 'Enter Vital Entry Date and Time:' + end + object btnOK: TButton + Left = 195 + Top = 36 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Caption = '&OK' + Default = True + ModalResult = 1 + TabOrder = 2 + end + object btnCancel: TButton + Left = 275 + Top = 36 + Width = 75 + Height = 21 + Anchors = [akRight, akBottom] + Cancel = True + Caption = '&Cancel' + ModalResult = 2 + TabOrder = 3 + end + object btnNow: TButton + Left = 307 + Top = 8 + Width = 43 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'NOW' + TabOrder = 1 + OnClick = btnNowClick + end +end diff --git a/CPRS-Chart/Vitals/fVitalsDate.pas b/CPRS-Chart/Vitals/fVitalsDate.pas new file mode 100644 index 0000000..1a18f98 --- /dev/null +++ b/CPRS-Chart/Vitals/fVitalsDate.pas @@ -0,0 +1,44 @@ +unit fVitalsDate; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORDtTm; + +type + TfrmVitalsDate = class(TForm) + dteVitals: TORDateBox; + Label1: TLabel; + btnOK: TButton; + btnCancel: TButton; + btnNow: TButton; + procedure btnNowClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmVitalsDate: TfrmVitalsDate; + +implementation + +{$R *.DFM} + +uses + ORFn; + +procedure TfrmVitalsDate.btnNowClick(Sender: TObject); +begin + dteVitals.Text := 'NOW'; +end; + +procedure TfrmVitalsDate.FormCreate(Sender: TObject); +begin + ResizeAnchoredFormToFont(Self); +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitAll.dfm b/CPRS-Chart/Vitals/mVitAll.dfm new file mode 100644 index 0000000..9171d32 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitAll.dfm @@ -0,0 +1,61 @@ +object fraVitAll: TfraVitAll + Left = 0 + Top = 0 + Width = 446 + Height = 478 + TabOrder = 0 + inline fraVitMetric1: TfraVitMetric + Left = 120 + Top = 4 + end + inline fraVitTemp1: TfraVitTemp + Left = 142 + Top = 72 + TabOrder = 1 + end + inline fraVitPulse1: TfraVitPulse + Left = 201 + Top = 104 + TabOrder = 2 + end + inline fraVitResp1: TfraVitResp + Left = 203 + Top = 136 + TabOrder = 3 + end + inline fraVitPB1: TfraVitPB + Left = 153 + Top = 168 + TabOrder = 4 + end + inline fraVitHeight1: TfraVitHeight + Left = 128 + Top = 200 + TabOrder = 5 + end + inline fraVitWeight1: TfraVitWeight + Left = 122 + Top = 232 + TabOrder = 6 + end + inline fraVitPain1: TfraVitPain + Left = 153 + Top = 264 + TabOrder = 7 + end + inline fraVitPO21: TfraVitPO2 + Left = 191 + Top = 296 + TabOrder = 8 + end + inline fraVitCVP1: TfraVitCVP + Left = 27 + Top = 328 + TabOrder = 10 + end + inline fraVitCircum1: TfraVitCircum + Left = 144 + Top = 360 + TabOrder = 9 + end +end diff --git a/CPRS-Chart/Vitals/mVitAll.pas b/CPRS-Chart/Vitals/mVitAll.pas new file mode 100644 index 0000000..4d2d572 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitAll.pas @@ -0,0 +1,33 @@ +unit mVitAll; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, mVitCirGirth, mVitCVP, mVitPO2, mVitPain, mVitWeight, + mVitHeight, mVitBP, mVitResp, mVitPulse, mVitBase, mVitTemp, mVitMetric; + +type + TfraVitAll = class(TFrame) + fraVitMetric1: TfraVitMetric; + fraVitTemp1: TfraVitTemp; + fraVitPulse1: TfraVitPulse; + fraVitResp1: TfraVitResp; + fraVitPB1: TfraVitPB; + fraVitHeight1: TfraVitHeight; + fraVitWeight1: TfraVitWeight; + fraVitPain1: TfraVitPain; + fraVitPO21: TfraVitPO2; + fraVitCVP1: TfraVitCVP; + fraVitCircum1: TfraVitCircum; + private + public + end; + +implementation + +uses uVitals; + +{$R *.DFM} + +end. diff --git a/CPRS-Chart/Vitals/mVitBP.dfm b/CPRS-Chart/Vitals/mVitBP.dfm new file mode 100644 index 0000000..c8cc0ac --- /dev/null +++ b/CPRS-Chart/Vitals/mVitBP.dfm @@ -0,0 +1,53 @@ +inherited fraVitPB: TfraVitPB + Width = 288 + inherited lblVitalType: TLabel + Width = 17 + Caption = 'BP:' + end + object lblSlash: TLabel [1] + Left = 70 + Top = 0 + Width = 5 + Height = 21 + AutoSize = False + Caption = '/' + Layout = tlCenter + end + inherited btnQuals: TBitBtn + Left = 129 + end + object udSystolic: TUpDown + Left = 50 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 1 + Wrap = False + end + object edtSystolic: TEdit + Left = 19 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 2 + end + object udDiastolic: TUpDown + Left = 111 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 3 + Wrap = False + end + object edtDiastolic: TEdit + Left = 80 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 4 + end +end diff --git a/CPRS-Chart/Vitals/mVitBP.pas b/CPRS-Chart/Vitals/mVitBP.pas new file mode 100644 index 0000000..50962b5 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitBP.pas @@ -0,0 +1,41 @@ +unit mVitBP; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, StdCtrls, Buttons, ComCtrls; + +type + TfraVitPB = class(TfraVitBase) + udSystolic: TUpDown; + edtSystolic: TEdit; + udDiastolic: TUpDown; + edtDiastolic: TEdit; + lblSlash: TLabel; + private + { Private declarations } + public + function GetVitalInfo: TVitInfo; override; + end; + +var + fraVitPB: TfraVitPB; + +implementation + +uses uVitals; + +{$R *.DFM} + +{ TfraVitPB } + +function TfraVitPB.GetVitalInfo: TVitInfo; +begin + Result.VType := vtBP; + Result.VValue := edtSystolic.Text + '/' + edtDiastolic.Text; + if Result.VValue = '/' then + Result.VValue := ''; +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitBase.dfm b/CPRS-Chart/Vitals/mVitBase.dfm new file mode 100644 index 0000000..a9844bb --- /dev/null +++ b/CPRS-Chart/Vitals/mVitBase.dfm @@ -0,0 +1,39 @@ +object fraVitBase: TfraVitBase + Left = 0 + Top = 0 + Width = 319 + Height = 21 + TabOrder = 0 + object lblVitalType: TLabel + Left = 0 + Top = 0 + Width = 54 + Height = 21 + Align = alLeft + Caption = 'lblVitalType' + Layout = tlCenter + end + object btnQuals: TBitBtn + Left = 160 + Top = 0 + Width = 159 + Height = 21 + Anchors = [akTop, akRight, akBottom] + Caption = 'Qualifiers' + TabOrder = 0 + Glyph.Data = { + 3E010000424D3E010000000000007600000028000000280000000A0000000100 + 040000000000C800000000000000000000001000000000000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 + 888888888888888888888888888888887788888888FF88888888FF88888888FF + 88888888F7888888887F888888887F888888880F8888888F877888888778F888 + 888788F888888078F888888F887888888788F888888788F888888078F88888F8 + 8877888877888F888878888F888807888F8888F88887888878888F888878888F + 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887 + 777777F887777777F880000000F8888888888888888888888888888888888888 + 8888} + Layout = blGlyphRight + NumGlyphs = 4 + end +end diff --git a/CPRS-Chart/Vitals/mVitBase.pas b/CPRS-Chart/Vitals/mVitBase.pas new file mode 100644 index 0000000..f0d62a7 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitBase.pas @@ -0,0 +1,58 @@ +unit mVitBase; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, Buttons, uVitals; + +type + TVitInfo = record + VType: TVitalType; + VValue: string; + end; + + TfraVitBase = class(TFrame) + lblVitalType: TLabel; + btnQuals: TBitBtn; + private + { Private declarations } + public + constructor Create(AOwner: TComponent); override; + procedure VitalsMetricChanged; virtual; + procedure VitalsCVPUnitsChanged; virtual; + function GetVitalInfo: TVitInfo; virtual; + end; + +var + VitEnabledColor: array[boolean] of TColor = (clBtnFace, clWindow); + +implementation + +{$R *.DFM} + +{ TFrame1 } + +constructor TfraVitBase.Create(AOwner: TComponent); +begin + inherited; + VitalsFrameCreated(Self); + VitalsMetricChanged; + VitalsCVPUnitsChanged; +end; + +function TfraVitBase.GetVitalInfo: TVitInfo; +begin + Result.VType := vtUnknown; + Result.VValue := ''; +end; + +procedure TfraVitBase.VitalsCVPUnitsChanged; +begin +end; + +procedure TfraVitBase.VitalsMetricChanged; +begin +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitCVP.dfm b/CPRS-Chart/Vitals/mVitCVP.dfm new file mode 100644 index 0000000..edb4481 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitCVP.dfm @@ -0,0 +1,61 @@ +inherited fraVitCVP: TfraVitCVP + Width = 414 + inherited lblVitalType: TLabel + Width = 24 + Caption = 'CVP:' + end + object lblMm: TLabel [1] + Left = 154 + Top = 0 + Width = 30 + Height = 21 + AutoSize = False + Caption = 'mmHg' + Layout = tlCenter + end + object lblCm: TLabel [2] + Left = 61 + Top = 0 + Width = 36 + Height = 21 + AutoSize = False + Caption = 'cmH2O' + Layout = tlCenter + end + inherited btnQuals: TBitBtn + Left = 255 + end + object edtCVPcm: TEdit + Left = 26 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 1 + end + object UpDown1: TUpDown + Left = 101 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 2 + Wrap = False + end + object edtCVPmm: TEdit + Left = 118 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 3 + end + object cbcmH2O: TORCheckBox + Left = 196 + Top = 3 + Width = 55 + Height = 16 + Caption = 'cmH2O' + TabOrder = 4 + OnClick = cbcmH2OClick + end +end diff --git a/CPRS-Chart/Vitals/mVitCVP.pas b/CPRS-Chart/Vitals/mVitCVP.pas new file mode 100644 index 0000000..d56c6fd --- /dev/null +++ b/CPRS-Chart/Vitals/mVitCVP.pas @@ -0,0 +1,66 @@ +unit mVitCVP; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, ComCtrls, StdCtrls, Buttons, ORCtrls; + +type + TfraVitCVP = class(TfraVitBase) + edtCVPcm: TEdit; + UpDown1: TUpDown; + lblMm: TLabel; + edtCVPmm: TEdit; + lblCm: TLabel; + cbcmH2O: TORCheckBox; + procedure cbcmH2OClick(Sender: TObject); + private + FChanging: boolean; + public + function GetVitalInfo: TVitInfo; override; + procedure VitalsCVPUnitsChanged; override; + end; + +var + fraVitCVP: TfraVitCVP; + +implementation + +uses uVitals, rVitals; + +{$R *.DFM} + +{ TfraVitCVP } + +function TfraVitCVP.GetVitalInfo: TVitInfo; +begin + Result.VType := vtCVP; + Result.VValue := edtCVPcm.Text; +end; + +procedure TfraVitCVP.VitalsCVPUnitsChanged; +begin + inherited; + edtCVPmm.Color := VitEnabledColor[uVitCVPmmHg]; + edtCVPmm.Enabled := uVitCVPmmHg; + edtCVPmm.TabStop := uVitCVPmmHg; + edtCVPcm.Color := VitEnabledColor[not uVitCVPmmHg]; + edtCVPcm.Enabled := not uVitCVPmmHg; + edtCVPcm.TabStop := not uVitCVPmmHg; + FChanging := TRUE; + try + cbcmH2O.Checked := not uVitCVPmmHg; + finally + FChanging := FALSE; + end; +end; + +procedure TfraVitCVP.cbcmH2OClick(Sender: TObject); +begin + inherited; + if FChanging then exit; + SetVitCVPmmHg(not cbcmH2O.Checked); +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitCirGirth.dfm b/CPRS-Chart/Vitals/mVitCirGirth.dfm new file mode 100644 index 0000000..ecf28c9 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitCirGirth.dfm @@ -0,0 +1,52 @@ +inherited fraVitCircum: TfraVitCircum + Width = 297 + inherited lblVitalType: TLabel + Width = 18 + Caption = 'CG:' + end + object lblIn: TLabel [1] + Left = 55 + Top = 0 + Width = 8 + Height = 21 + AutoSize = False + Caption = 'in' + Layout = tlCenter + end + object lblCm: TLabel [2] + Left = 119 + Top = 0 + Width = 14 + Height = 21 + AutoSize = False + Caption = 'cm' + Layout = tlCenter + end + inherited btnQuals: TBitBtn + Left = 138 + end + object edtCirIn: TEdit + Left = 20 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 1 + end + object udCir: TUpDown + Left = 67 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 2 + Wrap = False + end + object edtCirCm: TEdit + Left = 84 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 3 + end +end diff --git a/CPRS-Chart/Vitals/mVitCirGirth.pas b/CPRS-Chart/Vitals/mVitCirGirth.pas new file mode 100644 index 0000000..b77fefc --- /dev/null +++ b/CPRS-Chart/Vitals/mVitCirGirth.pas @@ -0,0 +1,51 @@ +unit mVitCirGirth; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, StdCtrls, Buttons, ComCtrls; + +type + TfraVitCircum = class(TfraVitBase) + edtCirIn: TEdit; + lblIn: TLabel; + udCir: TUpDown; + edtCirCm: TEdit; + lblCm: TLabel; + private + { Private declarations } + public + procedure VitalsMetricChanged; override; + function GetVitalInfo: TVitInfo; override; + end; + +var + fraVitCircum: TfraVitCircum; + +implementation + +uses uVitals, rVitals; + +{$R *.DFM} + +{ TfraVitCircum } + +function TfraVitCircum.GetVitalInfo: TVitInfo; +begin + Result.VType := vtCircum; + Result.VValue := edtCirIn.Text; +end; + +procedure TfraVitCircum.VitalsMetricChanged; +begin + inherited; + edtCirCm.Color := VitEnabledColor[uVitalsMetric]; + edtCirCm.Enabled := uVitalsMetric; + edtCirCm.TabStop := uVitalsMetric; + edtCirIn.Color := VitEnabledColor[not uVitalsMetric]; + edtCirIn.Enabled := not uVitalsMetric; + edtCirIn.TabStop := not uVitalsMetric; +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitHeight.dfm b/CPRS-Chart/Vitals/mVitHeight.dfm new file mode 100644 index 0000000..f361e5b --- /dev/null +++ b/CPRS-Chart/Vitals/mVitHeight.dfm @@ -0,0 +1,52 @@ +inherited fraVitHeight: TfraVitHeight + Width = 313 + inherited lblVitalType: TLabel + Width = 34 + Caption = 'Height:' + end + object lblIn: TLabel [1] + Left = 71 + Top = 0 + Width = 8 + Height = 21 + AutoSize = False + Caption = 'in' + Layout = tlCenter + end + object Label1: TLabel [2] + Left = 135 + Top = 0 + Width = 14 + Height = 21 + AutoSize = False + Caption = 'cm' + Layout = tlCenter + end + inherited btnQuals: TBitBtn + Left = 154 + end + object edtHtIn: TEdit + Left = 36 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 1 + end + object udHeight: TUpDown + Left = 83 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 2 + Wrap = False + end + object edtHtCm: TEdit + Left = 100 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 3 + end +end diff --git a/CPRS-Chart/Vitals/mVitHeight.pas b/CPRS-Chart/Vitals/mVitHeight.pas new file mode 100644 index 0000000..90f8e05 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitHeight.pas @@ -0,0 +1,51 @@ +unit mVitHeight; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, StdCtrls, Buttons, ComCtrls; + +type + TfraVitHeight = class(TfraVitBase) + edtHtIn: TEdit; + lblIn: TLabel; + udHeight: TUpDown; + edtHtCm: TEdit; + Label1: TLabel; + private + { Private declarations } + public + procedure VitalsMetricChanged; override; + function GetVitalInfo: TVitInfo; override; + end; + +var + fraVitHeight: TfraVitHeight; + +implementation + +uses uVitals, rVitals; + +{$R *.DFM} + +{ TfraVitHeight } + +function TfraVitHeight.GetVitalInfo: TVitInfo; +begin + Result.VType := vtHeight; + Result.VValue := edtHtIn.Text; +end; + +procedure TfraVitHeight.VitalsMetricChanged; +begin + inherited; + edtHtCm.Color := VitEnabledColor[uVitalsMetric]; + edtHtCm.Enabled := uVitalsMetric; + edtHtCm.TabStop := uVitalsMetric; + edtHtIn.Color := VitEnabledColor[not uVitalsMetric]; + edtHtIn.Enabled := not uVitalsMetric; + edtHtIn.TabStop := not uVitalsMetric; +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitMetric.dfm b/CPRS-Chart/Vitals/mVitMetric.dfm new file mode 100644 index 0000000..2d0d878 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitMetric.dfm @@ -0,0 +1,22 @@ +object fraVitMetric: TfraVitMetric + Left = 0 + Top = 0 + Width = 161 + Height = 40 + TabOrder = 0 + object rgMetric: TRadioGroup + Left = 0 + Top = 0 + Width = 161 + Height = 40 + Align = alClient + Caption = 'Measurements' + Columns = 2 + ItemIndex = 0 + Items.Strings = ( + 'Standard' + 'Metric') + TabOrder = 0 + OnClick = rgMetricClick + end +end diff --git a/CPRS-Chart/Vitals/mVitMetric.pas b/CPRS-Chart/Vitals/mVitMetric.pas new file mode 100644 index 0000000..6bf245d --- /dev/null +++ b/CPRS-Chart/Vitals/mVitMetric.pas @@ -0,0 +1,54 @@ +unit mVitMetric; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls; + +type + TfraVitMetric = class(TFrame) + rgMetric: TRadioGroup; + procedure rgMetricClick(Sender: TObject); + private + FChanging: boolean; + public + constructor Create(AOwner: TComponent); override; + procedure VitalsMetricChanged; + end; + +implementation + +uses rVitals, uVitals; + +{$R *.DFM} + +{ TfraVitMetric } + +constructor TfraVitMetric.Create(AOwner: TComponent); +begin + inherited; + VitalsMetricChanged; + VitalsFrameCreated(Self); +end; + +procedure TfraVitMetric.rgMetricClick(Sender: TObject); +begin + if FChanging then exit; + SetVitalsMetric(rgMetric.ItemIndex = 1); +end; + +procedure TfraVitMetric.VitalsMetricChanged; +begin + FChanging := TRUE; + try + if uVitalsMetric then + rgMetric.ItemIndex := 1 + else + rgMetric.ItemIndex := 0; + finally + FCHanging := FALSE; + end; +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitPO2.dfm b/CPRS-Chart/Vitals/mVitPO2.dfm new file mode 100644 index 0000000..3546721 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitPO2.dfm @@ -0,0 +1,36 @@ +inherited fraVitPO2: TfraVitPO2 + Width = 250 + inherited lblVitalType: TLabel + Width = 24 + Caption = 'PO2:' + end + object lblPercent: TLabel [1] + Left = 61 + Top = 0 + Width = 8 + Height = 21 + AutoSize = False + Caption = '%' + Layout = tlCenter + end + inherited btnQuals: TBitBtn + Left = 91 + end + object UpDown1: TUpDown + Left = 73 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 1 + Wrap = False + end + object edtPO2: TEdit + Left = 26 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 2 + end +end diff --git a/CPRS-Chart/Vitals/mVitPO2.pas b/CPRS-Chart/Vitals/mVitPO2.pas new file mode 100644 index 0000000..9aad29c --- /dev/null +++ b/CPRS-Chart/Vitals/mVitPO2.pas @@ -0,0 +1,37 @@ +unit mVitPO2; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, StdCtrls, Buttons, ORCtrls, ComCtrls; + +type + TfraVitPO2 = class(TfraVitBase) + UpDown1: TUpDown; + lblPercent: TLabel; + edtPO2: TEdit; + private + { Private declarations } + public + function GetVitalInfo: TVitInfo; override; + end; + +var + fraVitPO2: TfraVitPO2; + +implementation + +uses uVitals; + +{$R *.DFM} + +{ TfraVitPO2 } + +function TfraVitPO2.GetVitalInfo: TVitInfo; +begin + Result.VType := vtPO2; + Result.VValue := edtPO2.Text; +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitPain.dfm b/CPRS-Chart/Vitals/mVitPain.dfm new file mode 100644 index 0000000..de09a0e --- /dev/null +++ b/CPRS-Chart/Vitals/mVitPain.dfm @@ -0,0 +1,29 @@ +inherited fraVitPain: TfraVitPain + Width = 288 + inherited lblVitalType: TLabel + Width = 24 + Caption = 'Pain:' + end + inherited btnQuals: TBitBtn + Left = 129 + end + object cbxPain: TORComboBox + Left = 26 + Top = 0 + Width = 102 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + MaxLength = 0 + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + end +end diff --git a/CPRS-Chart/Vitals/mVitPain.pas b/CPRS-Chart/Vitals/mVitPain.pas new file mode 100644 index 0000000..bbd8745 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitPain.pas @@ -0,0 +1,35 @@ +unit mVitPain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, StdCtrls, Buttons, ORCtrls; + +type + TfraVitPain = class(TfraVitBase) + cbxPain: TORComboBox; + private + { Private declarations } + public + function GetVitalInfo: TVitInfo; override; + end; + +var + fraVitPain: TfraVitPain; + +implementation + +uses uVitals; + +{$R *.DFM} + +{ TfraVitPain } + +function TfraVitPain.GetVitalInfo: TVitInfo; +begin + Result.VType := vtPain; + Result.VValue := cbxPain.ItemID; +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitPulse.dfm b/CPRS-Chart/Vitals/mVitPulse.dfm new file mode 100644 index 0000000..8c2765e --- /dev/null +++ b/CPRS-Chart/Vitals/mVitPulse.dfm @@ -0,0 +1,27 @@ +inherited fraVitPulse: TfraVitPulse + Width = 240 + inherited lblVitalType: TLabel + Width = 29 + Caption = 'Pulse:' + end + inherited btnQuals: TBitBtn + Left = 81 + end + object edtPulse: TEdit + Left = 31 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 1 + end + object UpDown1: TUpDown + Left = 62 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 2 + Wrap = False + end +end diff --git a/CPRS-Chart/Vitals/mVitPulse.pas b/CPRS-Chart/Vitals/mVitPulse.pas new file mode 100644 index 0000000..8fc0df9 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitPulse.pas @@ -0,0 +1,36 @@ +unit mVitPulse; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, StdCtrls, Buttons, ComCtrls, Spin; + +type + TfraVitPulse = class(TfraVitBase) + edtPulse: TEdit; + UpDown1: TUpDown; + private + { Private declarations } + public + function GetVitalInfo: TVitInfo; override; + end; + +var + fraVitPulse: TfraVitPulse; + +implementation + +uses uVitals; + +{$R *.DFM} + +{ TfraVitPulse } + +function TfraVitPulse.GetVitalInfo: TVitInfo; +begin + Result.VType := vtPulse; + Result.VValue := edtPulse.Text; +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitResp.dfm b/CPRS-Chart/Vitals/mVitResp.dfm new file mode 100644 index 0000000..f16ad98 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitResp.dfm @@ -0,0 +1,27 @@ +inherited fraVitResp: TfraVitResp + Width = 238 + inherited lblVitalType: TLabel + Width = 28 + Caption = 'Resp:' + end + inherited btnQuals: TBitBtn + Left = 79 + end + object UpDown1: TUpDown + Left = 61 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 1 + Wrap = False + end + object edtResp: TEdit + Left = 30 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 2 + end +end diff --git a/CPRS-Chart/Vitals/mVitResp.pas b/CPRS-Chart/Vitals/mVitResp.pas new file mode 100644 index 0000000..09d654d --- /dev/null +++ b/CPRS-Chart/Vitals/mVitResp.pas @@ -0,0 +1,36 @@ +unit mVitResp; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, StdCtrls, Buttons, ComCtrls; + +type + TfraVitResp = class(TfraVitBase) + UpDown1: TUpDown; + edtResp: TEdit; + private + { Private declarations } + public + function GetVitalInfo: TVitInfo; override; + end; + +var + fraVitResp: TfraVitResp; + +implementation + +uses uVitals; + +{$R *.DFM} + +{ TfraVitResp } + +function TfraVitResp.GetVitalInfo: TVitInfo; +begin + Result.VType := vtResp; + Result.VValue := edtResp.Text; +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitTemp.dfm b/CPRS-Chart/Vitals/mVitTemp.dfm new file mode 100644 index 0000000..8c81aff --- /dev/null +++ b/CPRS-Chart/Vitals/mVitTemp.dfm @@ -0,0 +1,52 @@ +inherited fraVitTemp: TfraVitTemp + Width = 299 + inherited lblVitalType: TLabel + Width = 30 + Caption = 'Temp:' + end + object lblF: TLabel [1] + Left = 67 + Top = 0 + Width = 6 + Height = 21 + AutoSize = False + Caption = 'F' + Layout = tlCenter + end + object lblC: TLabel [2] + Left = 129 + Top = 0 + Width = 7 + Height = 21 + AutoSize = False + Caption = 'C' + Layout = tlCenter + end + inherited btnQuals: TBitBtn + Left = 140 + end + object edtTempF: TEdit + Left = 32 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 1 + end + object udTemp: TUpDown + Left = 77 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 2 + Wrap = False + end + object edtTempC: TEdit + Left = 94 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 3 + end +end diff --git a/CPRS-Chart/Vitals/mVitTemp.pas b/CPRS-Chart/Vitals/mVitTemp.pas new file mode 100644 index 0000000..58c4465 --- /dev/null +++ b/CPRS-Chart/Vitals/mVitTemp.pas @@ -0,0 +1,51 @@ +unit mVitTemp; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, StdCtrls, Buttons, ComCtrls; + +type + TfraVitTemp = class(TfraVitBase) + edtTempF: TEdit; + udTemp: TUpDown; + edtTempC: TEdit; + lblF: TLabel; + lblC: TLabel; + private + { Private declarations } + public + procedure VitalsMetricChanged; override; + function GetVitalInfo: TVitInfo; override; + end; + +var + fraVitTemp: TfraVitTemp; + +implementation + +uses uVitals, rVitals; + +{$R *.DFM} + +{ TfraVitTemp } + +function TfraVitTemp.GetVitalInfo: TVitInfo; +begin + Result.VType := vtTemp; + Result.VValue := edtTempF.Text; +end; + +procedure TfraVitTemp.VitalsMetricChanged; +begin + inherited; + edtTempC.Color := VitEnabledColor[uVitalsMetric]; + edtTempC.Enabled := uVitalsMetric; + edtTempC.TabStop := uVitalsMetric; + edtTempF.Color := VitEnabledColor[not uVitalsMetric]; + edtTempF.Enabled := not uVitalsMetric; + edtTempF.TabStop := not uVitalsMetric; +end; + +end. diff --git a/CPRS-Chart/Vitals/mVitWeight.dfm b/CPRS-Chart/Vitals/mVitWeight.dfm new file mode 100644 index 0000000..e1de05f --- /dev/null +++ b/CPRS-Chart/Vitals/mVitWeight.dfm @@ -0,0 +1,48 @@ +inherited fraVitWeight: TfraVitWeight + inherited lblVitalType: TLabel + Width = 37 + Caption = 'Weight:' + end + object lblLbs: TLabel [1] + Left = 74 + Top = 0 + Width = 13 + Height = 21 + AutoSize = False + Caption = 'lbs' + Layout = tlCenter + end + object Label1: TLabel [2] + Left = 143 + Top = 0 + Width = 12 + Height = 21 + AutoSize = False + Caption = 'kg' + Layout = tlCenter + end + object edtWtLbs: TEdit + Left = 39 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 1 + end + object udWeight: TUpDown + Left = 91 + Top = 0 + Width = 16 + Height = 21 + Min = 0 + Position = 0 + TabOrder = 2 + Wrap = False + end + object edtWtKg: TEdit + Left = 108 + Top = 0 + Width = 31 + Height = 21 + TabOrder = 3 + end +end diff --git a/CPRS-Chart/Vitals/mVitWeight.pas b/CPRS-Chart/Vitals/mVitWeight.pas new file mode 100644 index 0000000..83578da --- /dev/null +++ b/CPRS-Chart/Vitals/mVitWeight.pas @@ -0,0 +1,51 @@ +unit mVitWeight; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + mVitBase, StdCtrls, Buttons, ComCtrls; + +type + TfraVitWeight = class(TfraVitBase) + edtWtLbs: TEdit; + lblLbs: TLabel; + udWeight: TUpDown; + edtWtKg: TEdit; + Label1: TLabel; + private + { Private declarations } + public + procedure VitalsMetricChanged; override; + function GetVitalInfo: TVitInfo; override; + end; + +var + fraVitWeight: TfraVitWeight; + +implementation + +uses uVitals, rVitals; + +{$R *.DFM} + +{ TfraVitWeight } + +function TfraVitWeight.GetVitalInfo: TVitInfo; +begin + Result.VType := vtWeight; + Result.VValue := edtWtLbs.Text; +end; + +procedure TfraVitWeight.VitalsMetricChanged; +begin + inherited; + edtWtKg.Color := VitEnabledColor[uVitalsMetric]; + edtWtKg.Enabled := uVitalsMetric; + edtWtKg.TabStop := uVitalsMetric; + edtWtLbs.Color := VitEnabledColor[not uVitalsMetric]; + edtWtLbs.Enabled := not uVitalsMetric; + edtWtLbs.TabStop := not uVitalsMetric; +end; + +end. diff --git a/CPRS-Chart/Vitals/rVitals.pas b/CPRS-Chart/Vitals/rVitals.pas new file mode 100644 index 0000000..ee88d11 --- /dev/null +++ b/CPRS-Chart/Vitals/rVitals.pas @@ -0,0 +1,151 @@ +//////////////////////////////////////////////////////////////////////////////// +//Modifed: 9/18/98 +//By: Robert Bott +//Location: ISL +//Description of Mod: +// Changed function ValAndStoreVitals to return the string indicating the value +// that failed. +//////////////////////////////////////////////////////////////////////////////// + +unit rVitals; + +{$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED + +interface + +uses SysUtils, Classes, ORNet, ORFn; + +procedure SaveVitals(VitalList: TStringList); +Procedure GetLastVital(Dest: TStrings; const PatientID: string); //*DFN* +function VerifyVital(typ,rte,unt: String):boolean; +function ValAndStoreVitals(VitalList: TStringList):string; //9/18/98 +Procedure GetVitalFromNoteIEN(Dest: TStrings; const PatientID: string; NoteIEN: Integer); //*DFN* +Procedure GetVitalsFromEncDateTime(Dest: TStrings; const PatientID: string; datetime: TFMDateTime); //*DFN* +procedure LoadUserVitalPreferences; +procedure SaveUserVitalPreferences; +function GetVList(Loc: integer): TStringList; + +var + uVitalsMetric: boolean = FALSE; + uVitCVPmmHg: boolean = FALSE; + +implementation + +var + uOldVitalsMetric: boolean = FALSE; + uOldVitCVPmmHg: boolean = FALSE; + uVitalList: TStringList = nil; + uLastVitalLoc: integer = -1; + +procedure SaveVitals(VitalList: TStringList); +begin + CallV('ORWVITALS SAVE', [VitalList]); +end; + +procedure GetLastVital(Dest: TStrings; const PatientID: string); //*DFN* +var + IDString: String; +begin + IDString := patientid; //*DFN* + CallV('ORQQVI VITALS', [IDString]); + Dest.assign(RPCBrokerV.Results); +end; + +function VerifyVital(typ,rte,unt: String):boolean; +begin + result := False; + CallV('ORQQVI2 VITALS RATE CHECK',[typ,rte,unt]); + if RPCBrokerV.results[0] = '1' then + result := True; +end; + + +//////////////////////////////////////////////////////////////////////////////// +//Modifed: 9/18/98 +//By: Robert Bott +//Location: ISL +//Description of Mod: +// Changed function ValAndStoreVitals to return the string indicating the value +// that failed. +//////////////////////////////////////////////////////////////////////////////// +function ValAndStoreVitals(VitalList: TStringList):string; +begin + CallV('ORQQVI2 VITALS VAL & STORE',[VitalList]); + if RPCBrokerV.results[0] >= '0' then + result := 'True' //stored ok + else + result := Piece(RPCBrokerV.results[1],U,2) + ': '+Piece(RPCBrokerV.results[1],U,3)+' Value: '+ + Piece(RPCBrokerV.results[1],U,4); +end; + +Procedure GetVitalFromNoteIEN(Dest: TStrings; const PatientID: string; NoteIEN: Integer); //*DFN* +var + NoteIENStr,IDString: String; +begin + IDString := patientid; //*DFN* + NoteIENStr := IntToStr(NoteIen); + CallV('ORQQVI NOTEVIT', [IDString, NoteIENStr]); + Dest.assign(RPCBrokerV.Results); +end; + +Procedure GetVitalsFromEncDateTime(Dest: TStrings; const PatientID: string; DateTime: TFMDateTime); //*DFN* +var + EncDate,IDString: String; +begin + IDString := patientid; //*DFN* + EncDate := FloatToStr(DateTime); + CallV('ORQQVI VITALS', [IDString, EncDate]); + Dest.assign(RPCBrokerV.Results); +end; + +procedure LoadUserVitalPreferences; +var + Tmp: string; +begin + Tmp := sCallV('ORQQVI3 GETVPREF', []); + uVitalsMetric := (Piece(Tmp,U,1) = '1'); + uVitCVPmmHg := (Piece(Tmp,U,2) = '1'); + uOldVitalsMetric := uVitalsMetric; + uOldVitCVPmmHg := uVitCVPmmHg; +end; + +procedure SaveUserVitalPreferences; +var + P1, P2: string; + +begin + // Don't same same value loaded, since saving is at user level, + // and loading may be at a different level + if(uOldVitalsMetric = uVitalsMetric) then P1 := '' else P1 := BOOLCHAR[uVitalsMetric]; + if(uOldVitCVPmmHg = uVitCVPmmHg) then P2 := '' else P2 := BOOLCHAR[uVitCVPmmHg]; + CallV('ORQQVI3 SETVPREF', [P1, P2]); +end; + +function GetVList(Loc: integer): TStringList; +var + GetList: boolean; + +begin + GetList := TRUE; + if not assigned(uVitalList) then + uVitalList := TStringList.Create + else + if Loc = uLastVitalLoc then + GetList := FALSE; + if(GetList) then + begin + uLastVitalLoc := Loc; + CallV('ORQQVI3 GETVLIST', [Loc]); + if(RPCBrokerV.Results.Count > 0) then + RPCBrokerV.Results.Delete(0); + uVitalList.assign(RPCBrokerV.Results); + end; + Result := uVitalList; +end; + +initialization + +finalization + KillObj(@uVitalList); + +end. diff --git a/CPRS-Chart/Vitals/uVitals.pas b/CPRS-Chart/Vitals/uVitals.pas new file mode 100644 index 0000000..354119f --- /dev/null +++ b/CPRS-Chart/Vitals/uVitals.pas @@ -0,0 +1,725 @@ +unit uVitals; +{ Old class TVital currently not used - commented out at bottom of unit } + +interface + +uses + SysUtils, Dialogs, Controls, Windows, Classes, ORClasses, ORCtrls, ORFn, Forms + , TRPCB + ; + +const + NoVitalOverrideValue = '^None^'; + +type + TVitalType = (vtUnknown, vtTemp, vtPulse, vtResp, vtBP, vtHeight, vtWeight, vtPain, + vtPO2, vtCVP, vtCircum); + TValidVitalTypes = vtTemp..vtCircum; + +procedure InitPainCombo(cboPain: TORComboBox); +procedure ConvertVital(VType: TVitalType; var VValue, VUnit: string); +function GetVitalStr(VType: TVitalType; rte, unt, UserStr, DateStr: string): string; +function GetVitalUser: string; +procedure AssignVitals2List(List: TStrings; ADateTime: TFMDateTime; + ALocation, ABP, ATemp, ATempUnits, + AResp, APulse, AHeight, AHeightUnits, + AWeight, AWeightUnits, APain: string); +function VitalInvalid(VitalControl: TControl; UnitsControl: TControl = nil; + OverrideValue: string = NoVitalOverrideValue): boolean; +function VitalControlTag(VType: TVitalType; UnitControl: boolean = FALSE): integer; +function ConvertHeight2Inches(Ht: string): string; +function FormatVitalForNote(VitalStr: string):String; +function ConvertVitalData(const Value: string; VitalType: TVitalType; UnitType: string = ''): string; +procedure VitalsFrameCreated(Frame: TFrame); +procedure SetVitalsMetric(const Value: boolean); +procedure SetVitCVPmmHg(const Value: boolean); +function ValidVitalsDate(var ADate: TFMDateTime; SkipFirst: boolean = FALSE; Show: boolean = true): boolean; +function IsNumericWeight(const x: string): Boolean; +procedure CloseVitalsDLL; + +const + VitalPCECodes: array[TValidVitalTypes] of string = + { vtTemp } ('TMP', + { vtPulse } 'PU', + { vtResp } 'RS', + { vtBP } 'BP', + { vtHeight } 'HT', + { vtWeight } 'WT', + { vtPain } 'PN', + { vtPO2 } 'PO2', + { vtCVP } 'CVP', + { vtCircum } 'CG'); + + + VitalCodes: array[TValidVitalTypes] of string = + { vtTemp } ('T', + { vtPulse } 'P', + { vtResp } 'R', + { vtBP } 'BP', + { vtHeight } 'HT', + { vtWeight } 'WT', + { vtPain } 'PN', + { vtPO2 } 'PO2', + { vtCVP } 'CVP', + { vtCircum } 'CG'); + + TAG_VITTEMP = 2; + TAG_VITPULSE = 4; + TAG_VITRESP = 3; + TAG_VITBP = 1; + TAG_VITHEIGHT = 5; + TAG_VITWEIGHT = 6; + TAG_VITTEMPUNIT= 7; + TAG_VITHTUNIT = 8; + TAG_VITWTUNIT = 9; + TAG_VITPAIN = 10; + TAG_VITDATE = 11; + + VitalDateStr = 'VST^DT^'; + VitalPatientStr = 'VST^PT^'; + VitalLocationStr = 'VST^HL^'; + + SHARE_DIR = '\VISTA\Common Files\'; + GMV_CONTEXT = 'OR CPRS GUI CHART'; + GMV_APP_SIGNATURE = 'CPRS'; + GMV_DEFAULT_TEMPLATE = ''; + +type + VitalTags = TAG_VITBP..TAG_VITPAIN; + + TGMV_VitalsEnterForm = function( + aBroker:TRPCBroker; + aPatient, aLocation, aTemplate,aSignature:String; + aDateTime:TDateTime): TCustomForm; stdcall; + + TGMV_VitalsEnterDLG = function( + aBroker:TRPCBroker; + aDFN, aLocation, aTemplate,aSignature:String; + aDateTime:TDateTime; + aName,anInfo:String): Integer; stdcall; + + TGFM_VitalsViewDLG = function( + aBroker:TRPCBroker; + aDFN, aLocation, + DateStart, DateStop, + aSignature, + aContextIn,aContextOut, + aName,anInfo,aHospitalName:String): Integer; stdcall; + + TGMV_VitalsViewForm = function( + aBroker:TRPCBroker; + aDFN, aLocation, + DateStart, DateStop, + aSignature, + aContextIn,aContextOut, + aName,anInfo, + aDynamicParameter {HospitolName^Vital Type Abbreviation} :String): TCustomForm; stdcall; + + TGMV_LatestVitalsList = function ( + aBroker:TRPCBroker; + aDFN, + aDelim:String; + bSilent:Boolean + ): TStringList; stdcall; + + TGMV_VitalsExit = Procedure; + +var + VitalsDLLHandle : THandle; + DLLForceClose : Boolean = False; + + +const + VitalTagSet = [TAG_VITBP..TAG_VITPAIN]; + VitalDateTagSet = [TAG_VITBP..TAG_VITDATE]; + + VitalTagCodes: array[VitalTags] of TVitalType = + { TAG_VITBP } (vtBP, + { TAG_VITTEMP } vtTemp, + { TAG_VITRESP } vtResp, + { TAG_VITPULSE } vtPulse, + { TAG_VITHEIGHT } vtHeight, + { TAG_VITWEIGHT } vtWeight, + { TAG_VITTEMPUNIT } vtTemp, + { TAG_VITHTUNIT } vtHeight, + { TAG_VITWTUNIT } vtWeight, + { TAG_VITPAIN } vtPain); + + VitalDesc: array[TVitalType] of string = + { vtUnknown } ('Unknown', + { vtTemp } 'Temperature', + { vtPulse } 'Pulse', + { vtResp } 'Respiration', + { vtBP } 'Blood Pressure', + { vtHeight } 'Height', + { vtWeight } 'Weight', + { vtPain } 'Pain Score', + { vtPO2 } 'Pulse Oximetry', + { vtCVP } 'Central Venous Pressure', + { vtCircum } 'Circumference/Girth'); + + VitalFormatedDesc: array[TValidVitalTypes] of string = + { vtTemp } ('Temperature ', + { vtPulse } 'Pulse ', + { vtResp } 'Resp ', + { vtBP } 'Blood Press. ', + { vtHeight } 'Height ', + { vtWeight } 'Weight ', + { vtPain } 'Pain Scale. ', + { vtPO2 } 'Pulse Ox. ', + { vtCVP } 'Cnt Vns Pres ', + { vtCircum } 'Circum/Girth '); + vnumType = 2; + vnumValue = 3; + vnumDate = 4; + +implementation + +uses + uCore, rCore, rVitals, Contnrs, mVitBase, mVitMetric, fVitalsDate; + +var + uVitalFrames: TComponentList = nil; + +procedure CloseVitalsDLL; +var + VitalsExit : TGMV_VitalsExit; +begin + if VitalsDLLHandle <> 0 then + begin + @VitalsExit := GetProcAddress(VitalsDLLHandle,PChar('GMV_VitalsExit')); + if assigned(VitalsExit) then + VitalsExit(); + DLLForceClose := True; + end; +end; + +function VitalErrorText(VType: TVitalType): string; +begin + case VType of + vtTemp, vtHeight, vtWeight: + Result := '- check rate and unit.'; + else + Result := 'reading entered.'; + end; + Result := 'Invalid ' + VitalDesc[VType] + ' ' + Result; +end; + +procedure InitPainCombo(cboPain: TORComboBox); +begin + cboPain.Items.Clear; + cboPain.Items.Add('0^ - no pain'); + cboPain.Items.Add('1^ - slightly uncomfortable'); + cboPain.Items.Add('2^'); + cboPain.Items.Add('3^'); + cboPain.Items.Add('4^'); + cboPain.Items.Add('5^'); + cboPain.Items.Add('6^'); + cboPain.Items.Add('7^'); + cboPain.Items.Add('8^'); + cboPain.Items.Add('9^'); + cboPain.Items.Add('10^ - worst imaginable'); + cboPain.Items.Add('99^ - unable to respond'); +end; + +procedure ConvertVital(VType: TVitalType; var VValue, VUnit: string); +begin + case VType of + vtTemp: if(VUnit = 'C') then //if metric, convert to standard + begin + if StrToFloat(VValue) > 0 then + //VValue := FloatToStr(StrToFloat(VValue) * 9.0 / 5.0 +32.0); + VValue := FloatToStr(Round((StrToFloat(VValue) * 9.0 / 5.0 +32.0)*100)/100); + VUnit := 'F'; + end; + + vtHeight: if VUnit = 'CM' then + begin + if StrToFloat(VValue) > 0 then + //VValue := FloatToStr(StrtoFloat(VValue) / 2.54); + VValue := FloatToStr(Round((StrtoFloat(VValue) / 2.54)*1000)/1000); + VUnit := 'IN'; + end; + + vtWeight: if VUnit = 'KG' then + begin + if StrToFloat(VValue) > 0 then + //VValue := FloatToStr(StrtoFloat(VValue) * 2.2046); + // + // the vitals package uses 2.2 (not 2.2046), so the GUI needs to use the + // same so conversions back & forth don't lead to errors + // this probably shouldn't even be done here - it should be done by the + // vitals package - KCM + // + VValue := FloatToStr(Round(StrtoFloat(VValue) * 2.2{046} *1000)/1000); + VUnit := 'LB'; + end; + end; +end; + +function GetVitalStr(VType: TVitalType; rte, unt, UserStr, DateStr: string): string; +begin + Result := ''; + ConvertVital(VType, rte, unt); + if rte <> '' then + begin + if(VType = vtPain) then unt := U; + Result := 'VIT'+U+VitalPCECodes[VType]+U+U+U+rte+U+UserStr+U+unt+U+DateStr; + end; +end; + +function GetVitalUser: string; +var + UserID: Int64; + +begin + UserID := Encounter.Provider; + if UserID <= 0 then + UserID := User.DUZ; + Result := IntToStr(UserID); +end; + +procedure AssignVitals2List(List: TStrings; ADateTime: TFMDateTime; + ALocation, ABP, ATemp, ATempUnits, + AResp, APulse, AHeight, AHeightUnits, + AWeight, AWeightUnits, APain: string); +var + UserStr, DateStr: string; + + procedure AddVital(VType: TVitalType; ARte: string; AUnit: string = ''); + var + VStr: string; + + begin + VStr := GetVitalStr(VType, ARte, AUnit, UserStr, DateStr); + if(VStr <> '') then + List.Add(VStr); + end; + +begin + with List do + begin + UserStr := GetVitalUser; + DateStr := FloatToStr(ADateTime); + clear; + + Add(VitalDateStr + DateStr); + Add(VitalPatientStr + Patient.DFN); // encounter Patient //*DFN* + Add(VitalLocationStr + ALocation); + AddVital(vtBP, ABP); // Blood Pressure + AddVital(vtTemp, ATemp, ATempUnits); // Temperature + AddVital(vtResp, AResp); // Resp + AddVital(vtPulse, APulse); // Pulse + AddVital(vtHeight, AHeight, AHeightUnits); // Height + AddVital(vtWeight, AWeight, AWeightUnits); // Weight + AddVital(vtPain, APain); // Pain + end; +end; + +function VitalInvalid(VitalControl: TControl; UnitsControl: TControl = nil; + OverrideValue: string = NoVitalOverrideValue): boolean; +var + rte, unt: string; + Tag: integer; + VType: TVitalType; + +begin + Tag := -1; + + if(OverrideValue = NoVitalOverrideValue) then + begin + if(assigned(VitalControl)) then + begin + rte := TORExposedControl(VitalControl).Text; + Tag := VitalControl.Tag; + end + else + rte := ''; + end + else + begin + rte := OverrideValue; + if(assigned(VitalControl)) then + Tag := VitalControl.Tag; + end; + + if(assigned(UnitsControl)) then + begin + unt := TORExposedControl(UnitsControl).Text; + if(Tag < 0) then + Tag := UnitsControl.Tag; + end + else + unt := ''; + + if(Tag >= low(VitalTags)) and (Tag <= high(VitalTags)) then + VType := VitalTagCodes[Tag] + else + VType := vtUnknown; + //pain does not need to be validated because the combo box limits the selection. + if(VType = vtPain) then + Result := FALSE + else + begin + Result := TRUE; + if(VType <> vtUnknown) then + begin + if (rte = '') then + Result := FALSE + else + if (VerifyVital(VitalPCECodes[VType],rte,unt) = True) then + Result := FALSE; + end; + end; + // GRE 2/12/03 added to disallow user entering "lb" with weight NOIS MWV-0103-22037 + if VType = vtWeight then + begin + if (IsNumericWeight(rte) = FALSE) then + Result := True; + end; + if(Result) then + ShowMessage(VitalErrorText(VType)); +end; + +function VitalControlTag(VType: TVitalType; UnitControl: boolean = FALSE): integer; +var + i,cnt: integer; + +begin + if UnitControl then + cnt := 0 + else + cnt := 1; + Result := -1; + for i := low(VitalTags) to high(VitalTags) do + begin + if(VitalTagCodes[i] = VType) then + begin + inc(cnt); + if(cnt = 2) then + begin + Result := i; + break; + end; + end; + end; +end; + +function ConvertHeight2Inches(Ht: string): string; +var + c: char; + i: integer; //counter + inchstr,feetstr : string; + feet: boolean; + v: double; + +begin + feet := False; + result := ''; + feetstr := ''; + inchstr := ''; + + // check for feet + for i := 1 to (length(Ht)) do + begin + c := Ht[i]; + if (c = '''') then feet := True; + end; + + if (feet = True) then + begin + i := 1; + while (Ht[i] <> '''') do + begin + if (Ht[i] in ['0'..'9']) or (Ht[i] = '.') then + feetstr := feetstr + Ht[i]; + inc(i); + end; + while (i <= length(Ht)) and (Ht[i] <> '"') and + (Ht[i] <> '') do + begin + if (Ht[i] in ['0'..'9']) or (Ht[i] = '.') then + inchstr := inchstr + Ht[i]; + inc(i); + end; + v := 0; + if (feetstr <> '') then + v := v + (StrTofloat(feetstr)*12); + if(inchstr <> '') then + v := v + StrToFloat(inchstr); + result := floatToStr(v); + //add here to convert to CM if CM is the unit + + end + else //no feet + begin + for i := 1 to (length(Ht)) do + begin + c := Ht[i]; //first character + if (c in ['0'..'9']) or (c = '.') then + result := result + c; + if (c = '"') then break; + end; + end; +end; + +{ +1215^T^98.6^2991108.11^98.6 F^(37.0 C) +1217^P^70^2991108.11^70 +1216^R^18^2991108.11^18 +1214^BP^120/70^2991108.11^120/70 +1218^HT^70^2991108.11^70 in^(177.8 cm) +1219^WT^200^2991108.11^200 lb^(90.0 kg) +1220^PN^1^2991108.11^1 +} + //format string as it should appear on the PCE panel. +function FormatVitalForNote(VitalStr: string):String; +var + Code, Value: string; + v: TVitalType; + +begin + Code := UpperCase(Piece(VitalStr, U, vnumType)); + for v := low(TValidVitalTypes) to high(TValidVitalTypes) do + begin + if(Code = VitalCodes[v]) then + begin + Value := ConvertVitalData(Piece(VitalStr, U, vnumValue), v); + if(v = vtPain) and (Value = '99') then + Value := 'Unable to respond.'; + Result := VitalFormatedDesc[v] + Value + ' ' + + FormatFmDateTime('mmm dd,yyyy hh:nn',(StrToFloat(Piece(VitalStr, U, vnumDate)))); + end + end; +end; + +function ConvertVitalData(const Value: string; VitalType: TVitalType; UnitType: string = ''): string; +var + dbl: Double; + +begin + Result := Value; + if(VitalType in [vtTemp, vtHeight, vtWeight]) then + begin + try + dbl := StrToFloat(Value); + except + on EConvertError do + dbl := 0 + else + raise; + end; + if(dbl <> 0) then + begin + UnitType := UpperCase(UnitType); + case VitalType of + vtTemp: + begin + if(UnitType = 'C') then + begin + dbl := dbl * (9/5); + dbl := dbl + 32; + dbl := round(dbl * 10) / 10; + Result := FloatToStr(dbl) + ' F (' + Result + ' C)'; + end + else + begin + dbl := dbl - 32; + dbl := dbl * (5/9); + dbl := round(dbl * 10) / 10; + Result := Result + ' F (' + FloatToStr(dbl) + ' C)'; + end; + end; + + vtHeight: + begin + if(UnitType = 'CM') then + begin + dbl := dbl / 2.54; + dbl := round(dbl * 10) / 10; + Result := FloatToStr(dbl) + ' in [' + Result + ' cm)'; + end + else + begin + dbl := dbl * 2.54; + dbl := round(dbl * 10) / 10; + Result := Result + ' in [' + FloatToStr(dbl) + ' cm)'; + end; + end; + + vtWeight: + begin + if(UnitType = 'KG') then + begin + dbl := dbl * 2.2; + dbl := round(dbl * 10) / 10; + Result := FloatToStr(dbl) + ' lb (' + Result + ' kg)'; + end + else + begin + dbl := dbl / 2.2; + dbl := round(dbl * 10) / 10; + Result := Result + ' lb (' + FloatToStr(dbl) + ' kg)'; + end; + end; + end; + end; + end; +end; + +procedure VitalsFrameCreated(Frame: TFrame); +begin + if not assigned(uVitalFrames) then + uVitalFrames := TComponentList.Create(FALSE); + uVitalFrames.Add(Frame); +end; + +procedure SetVitalsMetric(const Value: boolean); +var + i: integer; + +begin + if(uVitalsMetric <> Value) then + begin + uVitalsMetric := Value; + for i := 0 to uVitalFrames.Count-1 do + begin + if uVitalFrames[i] is TfraVitBase then + TfraVitBase(uVitalFrames[i]).VitalsMetricChanged + else + if uVitalFrames[i] is TfraVitMetric then + TfraVitMetric(uVitalFrames[i]).VitalsMetricChanged + end; + end; +end; + +procedure SetVitCVPmmHg(const Value: boolean); +var + i: integer; + +begin + if(uVitCVPmmHg <> Value) then + begin + uVitCVPmmHg := Value; + for i := 0 to uVitalFrames.Count-1 do + if uVitalFrames[i] is TfraVitBase then + TfraVitBase(uVitalFrames[i]).VitalsCVPUnitsChanged; + end; +end; + + +function ValidVitalsDate(var ADate: TFMDateTime; SkipFirst: boolean = FALSE; Show: boolean = true): boolean; //AGP Change 26.1 +var + frmVitalsDate: TfrmVitalsDate; + ok: boolean; + +begin + Result := TRUE; + while (Result and (SkipFirst or (ADate > FMNow))) do + begin + if(SkipFirst) then + begin + ok := TRUE; + SkipFirst := FALSE; + end + else + ok := (InfoBox('Vital sign Date/Time entered (' + FormatFMDateTime('mmm dd yyyy hh:nn', ADate) + + ') cannot be in the future.' + CRLF + + 'If you do not change the entered date/time vitals information will be lost.' + CRLF + + 'Do you want to enter a new Date/Time?', + 'Invalid Vital Entry Date/Time', + MB_YESNO + MB_ICONWARNING) = ID_YES); + if ok then + begin + frmVitalsDate := TfrmVitalsDate.Create(Application); + try + frmVitalsDate.dteVitals.FMDateTime := ADate; + frmVitalsDate.btnNow.Visible := Show; //AGP Change 26.1 + if frmVitalsDate.ShowModal = mrOK then + ADate := frmVitalsDate.dteVitals.FMDateTime; + finally + frmVitalsDate.Free; + end; + end + else + Result := FALSE; + end; +end; + +function IsNumericWeight(const x: string): Boolean; +var + i: Integer; +begin + Result := True; + for i := 1 to Length(x) do if not (x[i] in ['0'..'9','.']) then Result := False; +end; +(* Old class currently not used +{$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED + +interface + +uses SysUtils, Classes; + +type + TVital = class(TObject) + {class for vital} + Private + Fsend: Boolean; //do we need this? + public + Typ: String; //type + Value: Single; + Unt: String; //unit + Provider: Integer; + procedure Assign(Src: TVital); //will we need assign? + procedure Clear; + procedure SetFromString(const x: string); + function DelimitedStr: string; + end; + + +implementation + +uses ORFn, fPCEEdit, uPCE; + +Procedure TVital.Assign(Src: TVital); +{assigns the values from one vital to another} +begin + Fsend := Src.Fsend; + Typ := Src.Typ; + Value := Src.Value; + Unt := Src.Unt; + provider := Src.Provider; +end; + +procedure Tvital.Clear; +{clear all fields} +begin + Fsend := False; + Typ := ''; + Value := 0.0; + Unt := ''; //will default to Inches/LBs/Farenheit on M side, + //depending on the Type + //Provider := UProvider; +end; + +Procedure TVital.SetFromString(const X: string); +begin + Typ := Piece(x, U, 2); + Value := StrToFloat(Piece(x, U, 5)); + Provider := StrToInt(Piece(x, U, 6)); + Unt := Piece(x, U, 7); +end; + +function TVital.DelimitedStr: string; +begin + Result := 'VIT' + U + Typ + U + U + U + FloatToStr(Value) + U + + IntToStr(Provider) + U + Unt; +end; +*) + +initialization + +finalization + KillObj(@uVitalFrames); + +end. diff --git a/CPRS-Chart/Window-Eyes Support Files/CPRSCHAR.we b/CPRS-Chart/Window-Eyes Support Files/CPRSCHAR.we new file mode 100644 index 0000000..5c72249 --- /dev/null +++ b/CPRS-Chart/Window-Eyes Support Files/CPRSCHAR.we @@ -0,0 +1,2 @@ +[Reclass on Create] +TCaptionCheckListBox=list box diff --git a/CPRS-Chart/XWBut1.dcu b/CPRS-Chart/XWBut1.dcu new file mode 100644 index 0000000..9192d1f Binary files /dev/null and b/CPRS-Chart/XWBut1.dcu differ diff --git a/CPRS-Chart/XuDigSigSC_TLB.pas b/CPRS-Chart/XuDigSigSC_TLB.pas new file mode 100644 index 0000000..172d4a1 --- /dev/null +++ b/CPRS-Chart/XuDigSigSC_TLB.pas @@ -0,0 +1,150 @@ +unit XuDigSigSC_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 : $Revision: 1.130.1.0.1.0.1.6 $ +// File generated on 6/12/2003 4:03:57 PM from Type Library described below. + +// ************************************************************************ // +// Type Lib: C:\Projects\CryptoAPI2\SignCOM\XuDigSigSC.tlb (1) +// LIBID: {37B1AC3C-8CFB-41C2-951B-D1BCBD90DBBE} +// LCID: 0 +// Helpfile: +// DepndLst: +// (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb) +// (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL) +// ************************************************************************ // +{$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 + XuDigSigSCMajorVersion = 1; + XuDigSigSCMinorVersion = 1; + + LIBID_XuDigSigSC: TGUID = '{37B1AC3C-8CFB-41C2-951B-D1BCBD90DBBE}'; + + IID_IXuDigSigS: TGUID = '{4F007CD0-ED3A-4022-AC5F-01D8494B02CF}'; + CLASS_XuDigSigS: TGUID = '{12037083-5899-495D-818D-BF4EC57C42C7}'; +type + +// *********************************************************************// +// Forward declaration of types defined in TypeLibrary +// *********************************************************************// + IXuDigSigS = interface; + IXuDigSigSDisp = dispinterface; + +// *********************************************************************// +// Declaration of CoClasses defined in Type Library +// (NOTE: Here we map each CoClass to its Default Interface) +// *********************************************************************// + XuDigSigS = IXuDigSigS; + + +// *********************************************************************// +// Interface: IXuDigSigS +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {4F007CD0-ED3A-4022-AC5F-01D8494B02CF} +// *********************************************************************// + IXuDigSigS = interface(IDispatch) + ['{4F007CD0-ED3A-4022-AC5F-01D8494B02CF}'] + procedure Set_DataBuffer(const Param1: WideString); safecall; + procedure Set_UsrNumber(const Param1: WideString); safecall; + function Get_DEAsig: WordBool; safecall; + procedure Set_DEAsig(Value: WordBool); safecall; + function Get_DEAInfo: WideString; safecall; + function Get_HashValue: WideString; safecall; + function Get_Signature: WideString; safecall; + procedure Set_DrugSch(const Param1: WideString); safecall; + function Signdata: WordBool; safecall; + function Get_Reason: WideString; safecall; + procedure Set_UsrName(const Param1: WideString); safecall; + function Get_CrlUrl: WideString; safecall; + procedure Reset; safecall; + procedure GetCSP; safecall; + function Get_SubReason: WideString; safecall; + property DataBuffer: WideString write Set_DataBuffer; + property UsrNumber: WideString write Set_UsrNumber; + property DEAsig: WordBool read Get_DEAsig write Set_DEAsig; + property DEAInfo: WideString read Get_DEAInfo; + property HashValue: WideString read Get_HashValue; + property Signature: WideString read Get_Signature; + property DrugSch: WideString write Set_DrugSch; + property Reason: WideString read Get_Reason; + property UsrName: WideString write Set_UsrName; + property CrlUrl: WideString read Get_CrlUrl; + property SubReason: WideString read Get_SubReason; + end; + +// *********************************************************************// +// DispIntf: IXuDigSigSDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {4F007CD0-ED3A-4022-AC5F-01D8494B02CF} +// *********************************************************************// + IXuDigSigSDisp = dispinterface + ['{4F007CD0-ED3A-4022-AC5F-01D8494B02CF}'] + property DataBuffer: WideString writeonly dispid 1; + property UsrNumber: WideString writeonly dispid 2; + property DEAsig: WordBool dispid 3; + property DEAInfo: WideString readonly dispid 4; + property HashValue: WideString readonly dispid 5; + property Signature: WideString readonly dispid 6; + property DrugSch: WideString writeonly dispid 7; + function Signdata: WordBool; dispid 8; + property Reason: WideString readonly dispid 9; + property UsrName: WideString writeonly dispid 10; + property CrlUrl: WideString readonly dispid 11; + procedure Reset; dispid 12; + procedure GetCSP; dispid 13; + property SubReason: WideString readonly dispid 14; + end; + +// *********************************************************************// +// The Class CoXuDigSigS provides a Create and CreateRemote method to +// create instances of the default interface IXuDigSigS exposed by +// the CoClass XuDigSigS. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoXuDigSigS = class + class function Create: IXuDigSigS; + class function CreateRemote(const MachineName: string): IXuDigSigS; + end; + +implementation + +uses ComObj; + +class function CoXuDigSigS.Create: IXuDigSigS; +begin + Result := CreateComObject(CLASS_XuDigSigS) as IXuDigSigS; +end; + +class function CoXuDigSigS.CreateRemote(const MachineName: string): IXuDigSigS; +begin + Result := CreateRemoteComObject(MachineName, CLASS_XuDigSigS) as IXuDigSigS; +end; + +end. diff --git a/CPRS-Chart/dShared.dfm b/CPRS-Chart/dShared.dfm new file mode 100644 index 0000000..47b8793 --- /dev/null +++ b/CPRS-Chart/dShared.dfm @@ -0,0 +1,4946 @@ +object dmodShared: TdmodShared + OldCreateOrder = False + OnCreate = dmodSharedCreate + OnDestroy = dmodSharedDestroy + Left = 285 + Top = 161 + Height = 479 + Width = 741 + object imgTemplates: TImageList + BkColor = clWhite + AllocBy = 6 + Left = 24 + Top = 16 + Bitmap = { + 494C01011E002200040010001000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000009000000001002000000000000090 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF0084848400C6C6C600C6C6 + C6000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF00C6C6C600C6C6C60000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00C6C6C60000000000FFFFFF00FFFFFF0084848400C6C6C6000000 + FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + FF000000FF00C6C6C60000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C600FFFF + FF00C6C6C60000008400FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF + FF00FFFFFF00C6C6C60000000000FFFFFF00FFFFFF00848484000000FF000000 + FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00C6C6C600FFFFFF00FFFF + FF000000FF000000FF0000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C600FFFF + FF00000084000000FF0000008400FFFFFF00FFFFFF00FF000000FF000000C6C6 + C600FFFFFF00C6C6C60000000000FFFFFF00FFFFFF00848484000000FF000000 + FF00FFFFFF000000FF000000FF00FFFFFF00FFFFFF00FF000000FF000000C6C6 + C6000000FF000000FF0000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C600FFFF + FF000000FF0000FFFF0000008400FFFFFF00FFFFFF00FFFF0000FF000000FF00 + 0000FFFFFF00C6C6C60000000000FFFFFF00FFFFFF000000FF000000FF00FFFF + FF000000FF00FFFFFF000000FF000000FF00FFFFFF00FFFF0000FF000000FF00 + 0000FFFFFF000000FF000000FF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C600FFFF + FF00FFFFFF000000FF0000008400FFFFFF00FFFFFF00FF000000FFFFFF00FFFF + FF00FFFFFF00C6C6C60000000000FFFFFF00FFFFFF000000FF000000FF00FFFF + FF00FFFFFF000000FF00FFFFFF000000FF000000FF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000FF000000FF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00C6C6C60000000000FFFFFF00FFFFFF000000FF000000FF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF00FFFFFF00FFFF + FF00FFFFFF000000FF000000FF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00848484000000FF000000 + FF00C6C6C600C6C6C600C6C6C600C6C6C600FFFFFF000000FF000000FF00C6C6 + C6000000FF000000FF0000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C6008400 + 0000840000008400000084000000840000008400000000000000000000000000 + 000000000000C6C6C60000000000FFFFFF00FFFFFF00848484000000FF000000 + FF008400000084000000840000008400000084000000FFFFFF000000FF000000 + FF000000FF000000FF0000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C6008400 + 00008400000084000000840000008400000084000000FFFFFF0000000000FFFF + FF0000000000C6C6C60000000000FFFFFF00FFFFFF0084848400C6C6C6000000 + FF000000FF0084000000840000008400000084000000FFFFFF00FFFFFF000000 + FF000000FF00C6C6C60000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF0084848400C6C6C600C6C6 + C6000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF00C6C6C600C6C6C60000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400848484008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400848484008484840000000000FFFFFF00FFFFFF0084848400848484008484 + 840084848400848484000000FF000000FF000000FF000000FF00848484008484 + 8400848484008484840000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484840084848400C6C6 + C600FFFFFF008484840084848400000000000084840000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF000084840000000000FFFFFF008484840084848400C6C6 + C600FFFFFF0084848400848484000000000000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484 + 84008484840084848400C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF008484 + 84008484840084848400C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF00000000000000000000000000FFFFFF00FFFFFF00848484008484 + 8400C6C6C600C6C6C600FFFFFF0000000000C6C6C6008484840000000000C6C6 + C600C6C6C60000000000C6C6C60000000000FFFFFF00FFFFFF00848484008484 + 8400C6C6C600C6C6C600FFFFFF0000000000C6C6C6008484840000000000C6C6 + C600C6C6C60000000000C6C6C6000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008484 + 8400848484008484840084848400000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008484840000000000FFFFFF00FFFFFF0084848400C6C6 + C600C6C6C60084848400C6C6C60000000000C6C6C60000000000000000000000 + 0000C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF0084848400C6C6 + C600C6C6C60084848400C6C6C60000000000C6C6C60000000000000000000000 + 0000C6C6C600C6C6C600C6C6C600000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000008484 + 84008484840084848400848484000000000000000000FFFFFF0000FFFF000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF0084848400FFFFFF00C6C6 + C600FFFFFF00C6C6C6008484840000000000C6C6C600C6C6C600C6C6C6000000 + 0000C6C6C60000000000C6C6C60000000000FFFFFF0084848400FFFFFF00C6C6 + C600FFFFFF00C6C6C6008484840000000000C6C6C600C6C6C600C6C6C6000000 + 0000C6C6C60000000000C6C6C6000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008484 + 8400000000000000000084848400000000000000000000FFFF00FFFFFF000000 + 0000848484008484840000000000848484008484840000000000848484000000 + 000000000000000000008484840000000000FFFFFF0084848400FFFFFF008484 + 8400C6C6C600C6C6C600C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400FFFFFF008484 + 8400C6C6C600C6C6C600C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484008484 + 84008484840084848400848484000000000000000000FFFFFF0000FFFF000000 + 0000848484000000000000000000000000008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF0084848400C6C6C600FFFF + FF00C6C6C600C6C6C600FFFFFF000000000084000000FF000000FF000000FF00 + 0000FF000000FF0000008400000000000000FFFFFF0084848400C6C6C600FFFF + FF00C6C6C600C6C6C600FFFFFF0000000000FF000000FF000000FF000000FF00 + 0000FF000000FF000000FF00000000000000FFFFFF0000000000FFFFFF000000 + 0000848484008484840084848400848484008484840084848400848484000000 + 000000000000848484008484840000000000FFFFFF0000000000FFFFFF000000 + 0000848484008484840084848400000000008484840000000000000000000000 + 000000000000848484008484840000000000FFFFFF00FFFFFF0084848400FFFF + FF00FFFFFF0084848400C6C6C600C6C6C6000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF0084848400FFFF + FF00FFFFFF0084848400C6C6C600000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0084848400000000000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF0084848400000000000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF00FFFFFF00848484008484 + 8400FFFFFF00FFFFFF00C6C6C60084848400C6C6C600C6C6C600C6C6C6008484 + 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484 + 8400FFFFFF00FFFFFF00C6C6C60084848400C6C6C600C6C6C600C6C6C6008484 + 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840000000000848484008484840000000000000000008484 + 840000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840000000000848484008484840000000000000000008484 + 8400000000000000000084848400000000008484840084848400848484008484 + 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484 + 8400848484008484840084848400FFFFFF008484840084848400848484008484 + 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484 + 8400848484008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000848484000000000000000000000000008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484000000000000000000000000008484840084848400848484008484 + 84008484840084848400848484000000000084848400FFFFFF00C6C6C600C6C6 + C60084848400848484008484840084848400848484008484840084848400C6C6 + C600C6C6C600C6C6C60084848400FFFFFF0084848400FFFFFF00C6C6C600C6C6 + C60084848400848484008484840084848400848484008484840084848400C6C6 + C600C6C6C600C6C6C60084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840084848400000000008484840000000000848484000000 + 000000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840084848400000000008484840000000000848484000000 + 00000000000000000000848484000000000084848400C6C6C600FFFFFF00C6C6 + C600C6C6C600C6C6C600848484008484840084848400C6C6C600FFFFFF00C6C6 + C600C6C6C600C6C6C60084848400FFFFFF0084848400C6C6C600FFFFFF00C6C6 + C600C6C6C600C6C6C600848484008484840084848400C6C6C600FFFFFF00C6C6 + C600C6C6C600C6C6C60084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF0084848400C6C6C600FFFF + FF00FFFFFF0084848400FFFFFF0084848400FFFFFF0084848400C6C6C600FFFF + FF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF0084848400C6C6C600FFFF + FF00FFFFFF0084848400FFFFFF0084848400FFFFFF0084848400C6C6C600FFFF + FF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000840000008400000084000000840000008400000084000000840000008400 + 000084000000840000008400000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000840000008400000084000000840000008400000084000000840000008400 + 000084000000840000008400000000000000FFFFFF00FFFFFF00848484008484 + 840084848400FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00848484008484 + 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484 + 840084848400FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00848484008484 + 840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00848484008484840084848400FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00848484008484840084848400FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF000000000000000000FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF0000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008484 + 8400848484008484840084848400000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000848484000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6 + C600C6C6C600C6C6C600C6C6C600000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000008484 + 84008484840084848400848484000000000000000000FFFFFF0000FFFF000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 8400848484008484840084848400000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008484 + 8400000000000000000084848400000000000000000000FFFF00FFFFFF000000 + 0000848484008484840000000000848484008484840000000000848484000000 + 00000000000000000000848484000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6 + C6000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000 + 0000C6C6C6008484840000000000C6C6C600C6C6C60000000000C6C6C6000000 + 00000000000000000000C6C6C600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484008484 + 84008484840084848400848484000000000000000000FFFFFF0000FFFF000000 + 0000848484000000000000000000000000008484840084848400848484008484 + 8400848484008484840084848400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0000000000FFFFFF000000 + 0000848484008484840084848400848484008484840084848400848484000000 + 000000000000848484008484840000000000FFFFFF0000000000FFFFFF000000 + 0000848484008484840084848400000000008484840000000000000000000000 + 000000000000848484008484840000000000FFFFFF0000000000FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000 + 000000000000C6C6C600C6C6C60000000000FFFFFF0000000000FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000000000000000 + 000000000000C6C6C600C6C6C60000000000FFFFFF0084848400000000000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF0084848400000000000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF0084848400000000000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400000000000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840000000000848484008484840000000000000000008484 + 840000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840000000000848484008484840000000000000000008484 + 840000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C6008484840000000000C6C6C600C6C6C6000000000000000000C6C6 + C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C6008484840000000000C6C6C600C6C6C6000000000000000000C6C6 + C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484000000000000000000000000008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484000000000000000000000000008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840084848400000000008484840000000000848484000000 + 000000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840084848400000000008484840000000000848484000000 + 000000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000C6C6C6000000 + 00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000C6C6C6000000 + 00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000840000008400000084000000840000008400000084000000840000008400 + 000084000000840000008400000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000840000008400000084000000840000008400000084000000840000008400 + 000084000000840000008400000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF000000FF00000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF000000FF00000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF000000000000000000FFFFFF00FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6 + C600C6C6C600C6C6C60084848400000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008484840000000000FFFFFF00FFFFFF0000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6 + C6000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000 + 0000C6C6C6008484840000000000C6C6C600C6C6C60000000000C6C6C6000000 + 00000000000000000000C6C6C60000000000FFFFFF00FFFFFF0000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF + FF000000000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF00C6C6C60000FFFF0000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0000000000FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000 + 000000000000C6C6C600C6C6C60000000000FFFFFF0000000000FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000000000000000 + 000000000000C6C6C600C6C6C60000000000FFFFFF00FFFFFF0000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400000000000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C6008484840000000000C6C6C600C6C6C6000000000000000000C6C6 + C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C6008484840000000000C6C6C600C6C6C6000000000000000000C6C6 + C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000C6C6C6000000 + 00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000C6C6C6000000 + 00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000084000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF0000008400000000000000FFFFFF00FFFFFF00FFFFFF000000 + 000084000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF0000008400000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 0000000000000000000000000000000000000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000000000000000000000000000C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF0000000000C6C6C600000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000000000000000000000000000C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600000000000000000000FFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000 + 00000000000000000000C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000000000000000000000000000C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000 + 00000000000000000000C6C6C60000000000FFFFFF0000000000FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000 + 00000000000000000000C6C6C60000000000FFFFFF0084848400000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000C6C6C6000000000000000000C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400000000000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF + FF000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C6000000000000000000C6C6 + C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C6000000000000000000C6C6 + C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C6000000000000000000C6C6C600000000000000000000000000C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C600000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C600000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C6000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C6000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF0000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 00000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000 + 00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000 + 00000000000000000000C6C6C60000000000FFFFFF0000000000FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000 + 00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF0084848400000000000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400000000000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00000000000000000000000000FFFFFF000000000000000000FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C6000000000000000000C6C6 + C60000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C6000000000000000000C6C6 + C60000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF + FF000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C60000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C60000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF000000000000000000FFFFFF00000000000000000000000000FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C6000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6 + C6000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C600000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000C6C6C600000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C60000000000000000000000000000000000C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 00000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000000000000000000000000000C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 00000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000000000000000000000000000C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0084848400000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6 + C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF + FF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF + FF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C6000000000000000000C6C6C600C6C6C60000000000C6C6C6000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000BDBDBD000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000BDBDBD000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD + BD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD + BD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000000 + 0000BDBDBD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000000 + 0000BDBDBD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 84000000000000000000FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00000000000000000000000000000000000000FFFF0000000000008484000084 + 84000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FF + FF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000 + 0000000000000000000000FFFF0000000000BDBDBD0000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000 + 000000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBD + BD0000FFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000000000BDBDBD0000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF + FF000000000000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FF + FF00BDBDBD0000FFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000007B7B7B0000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF007B7B7B007B7B7B0000000000008484000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000084 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007B7B + 7B00000000000000000000000000000000007B7B7B00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000FFFF000084840000FFFF000084840000FFFF00008484000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000084840000FFFF000084840000FFFF000084840000FFFF000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007B7B7B000000 + 00000000000000000000000000007B7B7B00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000000000000084840000FFFF000084840000FFFF000084 + 84000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000000000FFFF000084840000FFFF000084840000FF + FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF007B7B7B00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF007B7B7B00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00424D3E000000000000003E000000 + 2800000040000000900000000100010000000000800400000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFF00000000FFFFFFFF00000000 + 800180010000000080018001000000009FF980010000000093B980B100000000 + 9189800100000000918980010000000099B98001000000009FF9800100000000 + 8001800100000000800180010000000080518001000000008001800100000000 + 8001800100000000FFFFFFFF00000000801F801FFF01FE002A9F000F88008800 + 555F0007E000E0002A804000C200C20055402000C000C0002A804000A800A800 + 55402000A000A0000000400092009200A000A000D801D80080008000CC07CC07 + E000E00007C107C1E000E00040014001E000E00020212021E000E0009A9B9A9B + E000E000C6C7C6C7E000E000FC7FFC7F801F801F801F801F2A9F000F2A9F000F + 555F0007555F00072A8140012A80400055402000554020002A8040002A804000 + 55402000554020000000400000004000A000A000A000A0008000800080008000 + E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000 + E000E000E000E000F001F001E000E000FFFFFFFF801F801FFFFFFFFF2A9F000F + FFFFFFFF555F0007C007FFFF2A814001CAA7800F55402000D55780072A804000 + CAA7A00355402000D557900100004000CAA7A800A000A000D557954F80008000 + C007AAAFE000E000EA7F940FE000E000E07FCAFFE000E000FFFFC0FFE000E000 + FFFFFFFFE000E000FFFFFFFFF001F001801FFFFF801F801F0000E0072A9F0000 + 0006E007554000004002E0072A8040002002E007554020004AFEE0072A804000 + 2A82E007554020004AFEE00700004000AA82E007A000A0008AFEE00780008000 + EA92E007E000E000EAFEE007E000E000EAFEE007E000E000EA00E007E000E000 + E803FFFFE003E003E00FFFFFE00FE00F801F801FFFFF801F2A9F0000E0072A9F + 55400000EFF755402A804000E8772A9E55402000EFF755422A804000E8172A9E + 55402000EFF7554200004000E817003EA000A000EFF7AA8280008000E8978AFE + E000E000EFF7EA92E001E001E917EAFEE003E003EFF7EAFEE007E007E007EA00 + E01FE01FFFFFE803E07FE07FFFFFE00FFFFF801F801FFFFFE0072A9F0000E007 + EFF755400006E007E8772A9E4002E007EFF755422002E007E8172A9E4AFEE007 + EFF755422A82E007E817003E4AFEE007EFF7AA82AA82E007E8F78AFE8AFEE007 + EF87EA90EA90E007E9AFEAF5EAF5E00FEF9FEAF3EAF3E01FE03FEA07EA07E03F + FFFFE81FE81FFFFFFFFFE07FE07FFFFFC01FC01FFFFFFFFFC00FC00FFFFFFFFF + E007E007FFFFFFFFE003E003E007FFFFE0038003CAA7C00FE0078007D5578007 + E0078007CAA7A003E0078007D5579001E0078007CAA7A801E0078007D557954F + E007EE07C00FAAAFC007C007EA7F951FC007C007E07FCAFFE007E007FFFFC0FF + F803F803FFFFFFFFFC03FC03FFFFFFFF00000000000000000000000000000000 + 000000000000} + end + object imgReminders: TImageList + BkColor = clWhite + AllocBy = 6 + Width = 20 + Left = 100 + Top = 16 + Bitmap = { + 494C010108000900040014001000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000050000000300000000100200000000000003C + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000008484840084848400848484008484840084848400000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484 + 00008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000FFFF0000FFFF00FFFFFF00FFFFFF0000FFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000008484 + 840084848400C6C6C600FFFFFF00FFFFFF00FFFFFF00C6C6C600848484008484 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484 + 00008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848484008484 + 84008484840084848400848484008484840000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000084848400FFFFFF000000FF0000000000FFFFFF008484 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848484008484 + 8400FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484 + 84008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000C6C6C600FFFFFF000000FF000000FF0000000000FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400FFFF + FF00FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FFFF + FF008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484 + 00008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C6000000 + 0000C6C6C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF000000FF000000FF000000FF0000000000FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C6008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484 + 00008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00848484000000FF000000FF000000FF000000FF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484 + 0000848400008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000840000008400 + 00008400000084000000840000008400000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00848484000000FF000000FF00000000000000FF000000FF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400FFFFFF000000 + 00000000000000000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FF00 + 0000FFFFFF008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000008484 + 000084840000848400008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000FF000000FF0000000000FFFFFF00FFFFFF00848484000000FF000000 + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000084848400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00008484000084840000848400008484000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000 + FF0000000000FFFFFF00FFFFFF00FFFFFF000000000084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00C6C6C6008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFF + FF000000000084840000848400008484000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF000000000084848400FFFF + FF00FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000848400008484000084840000000000000000 + 00000000000084840000848400008484000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484 + 84000000FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000848484008484 + 8400FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484 + 84008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000848400008484000084840000848400008484 + 00008484000084840000848400008484000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00848484000000FF0000000000FFFFFF00FFFFFF00FFFFFF00000000008484 + 840084848400C6C6C600FFFFFF00FF000000FFFFFF00C6C6C600848484008484 + 840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000848400008484000084840000848400008484 + 00008484000084840000848400008484000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00848484000000FF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000000000008484840084848400848484008484840084848400000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000084840000848400008484 + 000084840000848400000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 8400FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 84000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000000084840000FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF00848400000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000084000000 + 000000000000000000000000FF00000000000000FF0000000000000000000000 + 000000008400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0084840000000000000000000000000000FFFF00000000 + 0000FFFF000000000000000000000000000084840000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF000000000000000000FFFF0000C6C6C600FFFFFF000000 + 0000FFFFFF00C6C6C600FFFF00000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000 + FF00C6C6C60000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C6000000 + FF000000000084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008484840000000000FFFF0000C6C6C60000000000FFFFFF00FFFF + FF00FFFFFF0000000000C6C6C600FFFF00000000000084848400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000FF000000 + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFF0000FFFF0000FFFFFF00FFFFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFF0000FFFF000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000FFFF00C6C6C60000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000FF000000 + 0000FFFFFF00000000000000000000000000FFFFFF00FFFFFF00000000000000 + 00000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFF000000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF000000000000000000FFFF000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF00000000000000FF000000 + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + FF000000FF000000000000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFF0000FFFF0000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFF0000FFFF000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400000000000000 + FF00C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C6000000 + FF00000000008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008484840000000000FFFF0000C6C6C60000000000FFFFFF000000 + 0000FFFFFF0000000000C6C6C600FFFF00000000000084848400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF0000FFFF00000000000000 + 00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000 + 00000000000000FFFF0000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF000000000000000000FFFF0000C6C6C600FFFFFF000000 + 0000FFFFFF00C6C6C600FFFF00000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF + 0000FFFF0000FFFF00000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6C6008484 + 840000000000000000000000000000000000000000000000000000000000C6C6 + C600848484008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000C6C6C600C6C6C600848484000000000000000000000000000000 + 0000000000000000000000000000C6C6C600848484008484840000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6C600C6C6 + C600C6C6C60084848400848484000000000084848400C6C6C600C6C6C600C6C6 + C600C6C6C6008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000C6C6C600C6C6C600C6C6C600C6C6C60084848400848484000000 + 000084848400C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484 + 84000000000000000000000000000000000084848400FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00848484000000000000000000000000000000 + 000084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF000000000084848400C6C6 + C600C6C6C600000000000000000000FFFF000000000000000000C6C6C600C6C6 + C600848484000000000000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000084848400C6C6C600C6C6C60000000000848484000000 + 00008484840000000000C6C6C600C6C6C6008484840000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00848484000000 + 00000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000000000 + 000084848400FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00848484000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00000000000000000084848400FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF + FF0000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000FF + FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF + FF0000000000FFFFFF0000FFFF000000000000FFFF00FFFFFF000000000000FF + FF0000FFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00424D3E000000000000003E000000 + 2800000050000000300000000100010000000000400200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F83FFFC7FFFF807FF8070000E00FFF83 + FFFF807FF8070000C387FF83FFFF807FF80700008EE3FFC7FFFF807FF8070000 + 97D3FF83FFFF807FF80700001FF1FF83FFFF807FF80700003FF9FF81FFFF807F + F007000020E9FFC0FFFF807FE00300003F79FFE07FFFFFFFF18300001FB1FE30 + 7FFFFFFFFFC1000097F3FC007FFFFFFFFFC100008EE3FC007FFFFFFFFFE00000 + C287FC007FFFFFFFFFF00000E00FFE00FFFFFFFFFFF80000F83FFF83FFFFFFFF + FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFF8823F8823F0000FFFFFFFF + FFC007FC007F0000FFFFFFFFFFC287FC287F0000E007FE007F8383F8383F0000 + CAA7FC003F8FE3F8DE3F0000D557FD001F88C3F8EC3F0000CAA7FC800F0EE1F8 + EE3F0000D557FD400F0281F8283F0000CAA7FCAA7F0281FC287F0000D557FD55 + 7F0001F0001F0000C00FFCA8FF0001F0001F0000EA7FFE57FF0001F0001F0000 + E07FFE07FF0001F8003F0000FFFFFFFFFF4005FC6C7F0000FFFFFFFFFFC007FF + C7FF0000FFFFFFFFFF8443FFFFFF000000000000000000000000000000000000 + 000000000000} + end + object imgNotes: TImageList + Left = 174 + Top = 16 + Bitmap = { + 494C01010F001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000005000000001002000000000000050 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008484840084848400FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000848484008484840000000000000000000000000000000000FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000848484000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000084848400848484000000000000000000FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000084848400848484000000000000000000FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000848484000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000848484008484840000000000000000000000000000000000FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008484840084848400FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084848400848484008484840084848400848484008484840084848400FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000084848400FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF000000000000FFFF00C6C6C60000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF000000 + 000000FFFF00C6C6C60000FFFF0000000000000000000000000000000000C6C6 + C60000FFFF000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000FFFF00FFFF + FF000000000000FFFF00C6C6C60000FFFF00C6C6C60000000000C6C6C60000FF + FF00C6C6C60000FFFF0000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFF + FF0000000000FFFFFF0000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000848484000000 + 0000000000000000000000000000848484000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000FFFFFF000000 + 000000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBD + BD0000FFFF0000000000000000000000000000000000000000000000000000FF + FF00FFFFFF000000000000000000000000000000000000000000FFFFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000000000000000000000000000000000000000000000FFFF00FFFF + FF000000000000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FF + FF00BDBDBD0000FFFF000000000000000000000000000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00000000000000000000000000FFFF + FF000000000000000000FFFFFF000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007B7B + 7B00000000000000000000000000000000007B7B7B0000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400000000000000000000000000000000008484840000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007B7B7B000000 + 00000000000000000000000000007B7B7B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BDBDBD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BDBDBD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000000 + 0000BDBDBD000000000000000000000000000000000000000000000000000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000000 + 0000BDBDBD000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF000000 + 0000000000000000000000FFFF0000000000BDBDBD0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000000000BDBDBD0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007B7B7B0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000FFFFFF000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF007B7B7B007B7B7B0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000FFFFFF00000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000 + 0000000000000000000000000000000000000000000000000000000000007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF000084840000FFFF000084840000FFFF00008484000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000084840000FFFF000084840000FFFF000084840000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000084840000FFFF000084840000FFFF000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF000084840000FFFF000084840000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007B7B7B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007B7B7B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000500000000100010000000000800200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFFFFFF0000FFFFFFFFFFFF0000 + FFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFFE7FFFFF0000F00FFC3FFFFF0000 + F3CFFDBFFFFF0000FBDFF99FFFFF0000F99FFBDFFFFF0000FDBFF3CFFFFF0000 + FC3FF00FFFFF0000FE7FFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFFFF0000 + FFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFC00FFFFFFFFE007FC00E007 + FFFFE0070000E007FFFFE0070000E007C00FE0070000E0078007E0070000E007 + 8003E0070000E0078001E0070000E0078001E0070000E007800FE0070000E007 + 800FE0070001E007801FE00F0003E007C0FFE01F0007E007C0FFE03F007FE007 + FFFFFFFF007FFFFFFFFFFFFFFFFFFFFFFC00FFFFFFFFFFFFFC00FFFFFFFFFFFF + 0000FFFFFFFFFFFF0000E007FFFFE0070000C007C00FC0070000C0078007C007 + 0000C0078003C0070000C0078001C0070000C0078001C0070000C007800FC007 + 0000C00F800FC00F0000E07F801FE07F0000E07FC0FFE07F007FFFFFC0FFFFFF + 007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFC01FC01FFFFFBFFFC00FC00FE007 + B049E007E007E007807FE003E003E007B07FE0038003E007B9FFE0078007E007 + BFFFE0078007E007B049E0078007E007807FE0078007E007B07FE0078007E007 + B9FFE007E007E007BFFFC007C007E007048FC007C007E00707FFE007E007E007 + 07FFF803F803FFFF9FFFFC03FC03FFFF00000000000000000000000000000000 + 000000000000} + end + object imgImages: TImageList + Left = 240 + Top = 18 + Bitmap = { + 494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000003000000001002000000000000030 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF008484840084848400848484008484840084848400848484008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0084848400848484008484840084848400848484008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FF0000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF000000FF0084848400848484008484840084848400C6C6C600C6C6 + C600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF000000FF000000FF0000000000C6C6C600C6C6C600C6C6C600C6C6 + C600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF00C6C6C600C6C6C600C6C6 + C600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C6C6C600C6C6C600C6C6C6000000FF000000FF00C6C6C600C6C6C6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400C6C6C6000000000000FFFF00FFFF000000000000FFFF000000000000FFFF + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C6C6C60000000000C6C6C6000000FF000000FF000000FF0000000000C6C6 + C600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400C6C6C60000FFFF0000000000C6C6C600FFFF000000000000FFFF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C6C6C600C6C6C60000000000C6C6C6000000FF000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 840000000000C6C6C600C6C6C600FFFF000000000000FFFF000000000000FFFF + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6C6C600C6C6C600C6C6C600000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FFFF000000000000FFFF000000000000FFFF000000000000FFFF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C6C6C60000000000C6C6C60000000000C6C6C60000000000C6C6C6000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000084848400FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF00000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084848400FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF0000000000000000000000000000000000000000000000000000008484 + 84000000000084848400FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF00000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000000000000000000000000000000000000000000000000000848484000000 + 000084848400FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF0000000000000000000000000000000000000000000000000000008484 + 8400FF00000084848400FF000000FF000000FF000000FF000000FF000000FF00 + 0000008400000084000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 000000000000000000000000000000000000000000000000000084848400FF00 + 000084848400FF000000FF000000FF000000FF000000FF000000FF0000000084 + 0000008400000000000000000000000000000000000084848400000000008484 + 8400FF00000084848400FFFF000000000000FFFF000000000000008400000084 + 0000008400000084000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FF000000FF000000FF000000FF000000FF000000FF000000008400000084 + 000000000000000000000000000000000000000000000000000084848400FF00 + 000084848400FFFF000000000000FFFF00000000000000840000008400000084 + 0000008400000000000000000000000000000000000084848400FF0000008484 + 8400FF0000008484840000000000FFFF000000000000FFFF000000000000FFFF + 0000008400000084000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FFFF000000000000FFFF0000000000000084000000840000008400000084 + 000000000000000000000000000000000000000000000000000084848400FF00 + 00008484840000000000FFFF000000000000FFFF000000000000FFFF00000084 + 0000008400000000000000000000000000000000000084848400FF0000008484 + 8400FFFF000084848400FFFF0000C6C6C600C6C6C60000000000FFFF00000000 + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 840000000000FFFF000000000000FFFF000000000000FFFF0000008400000084 + 000000000000000000000000000000000000000000000000000084848400FFFF + 000084848400FFFF0000C6C6C600C6C6C60000000000FFFF000000000000FFFF + 0000000000000000000000000000000000000000000084848400FF0000008484 + 84000000000084848400C6C6C6000000000000FFFF00C6C6C60000000000FFFF + 000000000000FFFF000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FFFF0000C6C6C600C6C6C60000000000FFFF000000000000FFFF00000000 + 0000000000000000000000000000000000000000000000000000848484000000 + 000084848400C6C6C6000000000000FFFF00C6C6C60000000000FFFF00000000 + 0000FFFF00000000000000000000000000000000000084848400FFFF00008484 + 8400FFFF000084848400C6C6C60000FFFF0000000000C6C6C600FFFF00000000 + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400C6C6C6000000000000FFFF00C6C6C60000000000FFFF000000000000FFFF + 000000000000000000000000000000000000000000000000000084848400FFFF + 000084848400C6C6C60000FFFF0000000000C6C6C600FFFF000000000000FFFF + 0000000000000000000000000000000000000000000084848400000000008484 + 8400C6C6C6008484840000000000C6C6C600C6C6C600FFFF000000000000FFFF + 000000000000FFFF000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400C6C6C60000FFFF0000000000C6C6C600FFFF000000000000FFFF00000000 + 000000000000000000000000000000000000000000000000000084848400C6C6 + C6008484840000000000C6C6C600C6C6C600FFFF000000000000FFFF00000000 + 0000FFFF00000000000000000000000000000000000084848400FFFF00008484 + 8400C6C6C60084848400FFFF000000000000FFFF000000000000FFFF00000000 + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 840000000000C6C6C600C6C6C600FFFF000000000000FFFF000000000000FFFF + 000000000000000000000000000000000000000000000000000084848400C6C6 + C60084848400FFFF000000000000FFFF000000000000FFFF000000000000FFFF + 0000000000000000000000000000000000000000000084848400C6C6C6008484 + 8400000000008484840084848400848484008484840084848400848484008484 + 8400848484008484840084848400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FFFF000000000000FFFF000000000000FFFF000000000000FFFF00000000 + 0000000000000000000000000000000000000000000000000000848484000000 + 0000848484008484840084848400848484008484840084848400848484008484 + 8400848484008484840000000000000000000000000084848400C6C6C6008484 + 8400FFFF000000000000FFFF000000000000FFFF000000000000FFFF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 840084848400000000000000000000000000000000000000000084848400FFFF + 000000000000FFFF000000000000FFFF000000000000FFFF0000000000000000 + 0000000000000000000000000000000000000000000084848400000000008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400000000000000000000000000000000000000000084848400FFFF00000000 + 0000FFFF000000000000FFFF000000000000FFFF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400848484008484 + 8400848484008484840084848400848484008484840084848400848484000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000300000000100010000000000800100000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFF00000000FFFFFFFF00000000 + E007E00700000000E007E00700000000E00FE00700000000E7F7E00700000000 + E003E10700000000E803E80700000000E7F7E01700000000E4AFE42700000000 + E257E21700000000E8A7E88700000000E557E54700000000E007E00700000000 + FFFFFFFF00000000FFFFFFFF00000000FFFFFFFFFFFFF801FFFFFFFFF003F801 + FFFFE007F003E001FFFFE007C003E001FFFFE007C0038141FFFFE007C28382A1 + FFFFE507C5438055FFFFEA87C0AB8929FFFFE157D2538095FFFFE4A7C12BA229 + FFFFE257C4538155FFFFE8A7C2AB8801FFFFE557D0038557FFFFE007CAAFA007 + FFFFFFFFC00F955FFFFFFFFFFFFF801F00000000000000000000000000000000 + 000000000000} + end + object imgReminders2: TImageList + Width = 32 + Left = 104 + Top = 72 + Bitmap = { + 494C01010A000E00040020001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000800000004000000001002000000000000080 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF000000000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF00C6C6C60000FFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF000000000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF00C6C6C60000FFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484000000 + 0000000000000000000000000000848484000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484000000 + 0000000000000000000000000000848484000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840084848400848484008484840084848400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840084848400848484008484840084848400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 840084848400C6C6C600FFFFFF00FFFFFF00FFFFFF00C6C6C600848484008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 840084848400C6C6C600FFFFFF00FFFFFF00FFFFFF00C6C6C600848484008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484008484 + 8400FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484 + 8400848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484008484 + 8400FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484 + 8400848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400FFFF + FF00FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FFFF + FF00848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400FFFF + FF00FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FFFF + FF00848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C6008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C6008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF000000 + 00000000000000000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FF00 + 0000FFFFFF008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF000000 + 00000000000000000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FF00 + 0000FFFFFF008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00C6C6C6008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00C6C6C6008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400FFFF + FF00FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400FFFF + FF00FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484008484 + 8400FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484 + 8400848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484008484 + 8400FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484 + 8400848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 840084848400C6C6C600FFFFFF00FF000000FFFFFF00C6C6C600848484008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 840084848400C6C6C600FFFFFF00FF000000FFFFFF00C6C6C600848484008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840084848400848484008484840084848400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840084848400848484008484840084848400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 8400000000000000000000000000000000000000000000000000000000000000 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 8400000000000000000000000000000000000000000000000000000000000000 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 0000000000000000000000000000000000000000000000000000000000008484 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 0000000000000000000000000000000000000000000000000000000000008484 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000084000000 + 000000000000000000000000FF00000000000000FF0000000000000000000000 + 0000000084000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000084000000 + 000000000000000000000000FF00000000000000FF0000000000000000000000 + 0000000084000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848400000000 + 00000000000000000000FFFF000000000000FFFF000000000000000000000000 + 0000848400000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848400000000 + 00000000000000000000FFFF000000000000FFFF000000000000000000000000 + 0000848400000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFF0000C6C6C600FFFFFF0000000000FFFFFF00C6C6C600FFFF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFF0000C6C6C600FFFFFF0000000000FFFFFF00C6C6C600FFFF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400000000000000 + FF00C6C6C60000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C6000000 + FF00000000008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400000000000000 + FF00C6C6C60000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C6000000 + FF00000000008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008484840000000000FFFF + 0000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600FFFF + 0000000000008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008484840000000000FFFF + 0000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600FFFF + 0000000000008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + 0000FFFFFF00000000000000000000000000FFFFFF00FFFFFF00000000000000 + 00000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + 0000FFFFFF00000000000000000000000000FFFFFF00FFFFFF00000000000000 + 00000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF00000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00000000000000 + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF00000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00000000000000 + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF00000000000000FF000000 + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + FF000000FF000000000000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF00000000000000FF000000 + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + FF000000FF000000000000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400000000000000 + FF00C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C6000000 + FF00000000008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400000000000000 + FF00C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C6000000 + FF00000000008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008484840000000000FFFF + 0000C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C600FFFF + 0000000000008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008484840000000000FFFF + 0000C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C600FFFF + 0000000000008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000FFFF00000000000000 + 00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000FFFF00000000000000 + 00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFF0000C6C6C600FFFFFF0000000000FFFFFF00C6C6C600FFFF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFF0000C6C6C600FFFFFF0000000000FFFFFF00C6C6C600FFFF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600C6C6C6008484 + 840000000000000000000000000000000000000000000000000000000000C6C6 + C600848484008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600C6C6C6008484 + 840000000000000000000000000000000000000000000000000000000000C6C6 + C600848484008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600C6C6C6008484 + 840000000000000000000000000000000000000000000000000000000000C6C6 + C600848484008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600C6C6C6008484 + 840000000000000000000000000000000000000000000000000000000000C6C6 + C600848484008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600C6C6C600C6C6 + C600C6C6C60084848400848484000000000084848400C6C6C600C6C6C600C6C6 + C600C6C6C6008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600C6C6C600C6C6 + C600C6C6C60084848400848484000000000084848400C6C6C600C6C6C600C6C6 + C600C6C6C6008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600C6C6C600C6C6 + C600C6C6C60084848400848484000000000084848400C6C6C600C6C6C600C6C6 + C600C6C6C6008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600C6C6C600C6C6 + C600C6C6C60084848400848484000000000084848400C6C6C600C6C6C600C6C6 + C600C6C6C6008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF000000000084848400C6C6 + C600C6C6C600000000000000000000FFFF000000000000000000C6C6C600C6C6 + C600848484000000000000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF000000000084848400C6C6 + C600C6C6C600000000000000000000FFFF000000000000000000C6C6C600C6C6 + C600848484000000000000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400C6C6 + C600C6C6C6000000000084848400000000008484840000000000C6C6C600C6C6 + C600848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400C6C6 + C600C6C6C6000000000084848400000000008484840000000000C6C6C600C6C6 + C600848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484000000 + 00000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000000000 + 0000848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484000000 + 00000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000000000 + 0000848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF0000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF0000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF0000FF + FF00000000000000000000FFFF000000000000FFFF00000000000000000000FF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF0000FF + FF00000000000000000000FFFF000000000000FFFF00000000000000000000FF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000080000000400000000100010000000000000400000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFFFFFFFFFF0000000000000000 + FFFFFFFFFFFFFFFF0000000000000000FFFFFFFFFFFFFFFF0000000000000000 + FFFFFFFFFFFFFFFF0000000000000000FFFFC00FFDFFC00F0000000000000000 + FFFF8007F8FF80070000000000000000FFFF8003F07F80030000000000000000 + FFFF8001F23F80010000000000000000FFFF8001F71F80010000000000000000 + FFFF800FFF9F800F0000000000000000FFFF800FFFDF800F0000000000000000 + FFFF801FFFFF801F0000000000000000FFFFC0FFFFFFC0FF0000000000000000 + FFFFC0FFFFFFC0FF0000000000000000FFFFFFFFFFFFFFFF0000000000000000 + FFFFFFFFFFFFFFFF0000000000000000FFFFF83FFFFFF83FFFFFFFFFFFFFFFFF + FFFFE00FFFFFE00FFFFFFFFFFFFFFFFFFFFFC007FFFFC007FFFFFFFFFFFFFFFF + FFFF8003FFFF8003FFFFFFFFFFFFFFFFFFFF8003FDFF8003FFFFFFFFFDFFFFFF + FFFF0001F8FF0001FFFFFFFFF8FFFFFFFFFF0001F07F0001FFFFFFFFF07FFFFF + FFFF0001F23F0001FFFFFFFFF23FFFFFFFFF0001F71F0001FFFFFFFFF71FFFFF + FFFF0001FF9F0001FFFFFFFFFF9FFFFFFFFF8003FFDF8003FFFFFFFFFFDFFFFF + FFFF8003FFFF8003FFFFFFFFFFFFFFFFFFFFC007FFFFC007FFFFFFFFFFFFFFFF + FFFFE00FFFFFE00FFFFFFFFFFFFFFFFFFFFFF83FFFFFF83FFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8823FFFF8823FFFF8823FFFF8823 + FFFFC007FFFFC007FFFFC007FFFFC007FFFFC007FFFFC007FFFFC007FFFFC007 + FFFF8003FFFF8003FFFF8003FFFF8003FFFF8003FDFF8003FFFF8003FDFF8003 + FFFF8003F8FF8003FFFF8003F8FF8003FFFF0001F07F0001FFFF8003F07F8003 + FFFF0001F23F0001FFFF8003F23F8003FFFF0001F71F0001FFFFC007F71FC007 + FFFF0001FF9F0001FFFF0001FF9F0001FFFF0001FFDF0001FFFF0001FFDF0001 + FFFF0001FFFF0001FFFF0001FFFF0001FFFF0001FFFF0001FFFF8003FFFF8003 + FFFF4005FFFF4005FFFFC6C7FFFFC6C7FFFFC007FFFFC007FFFFFC7FFFFFFC7F + FFFF8443FFFF8443FFFFFFFFFFFFFFFF00000000000000000000000000000000 + 000000000000} + end + object imgConsults: TImageList + Left = 320 + Top = 18 + Bitmap = { + 494C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006B2108006B21 + 08006B2108006B2108006B2108006B2108000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006B2108006B21 + 08006B2108006B2108006B2108006B2108000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006B2108006B21080000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF008400000000000000000000000000 + 00006B2108006B21080000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000084840000840084008484840000000000000000000000 + 00006B2108006B21080000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFF00000000FF00C6C6C60000000000000000000000 + 00006B2108006B21080000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6C6C6000000840084848400000000006B2108006B21 + 08006B2108006B2108006B2108006B2108000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840000000000C6C6C60000000000000000006B2108006B21 + 08006B2108006B2108006B2108006B2108000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000840000008484000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C6C6C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 84008484000084840000C6C6C600C6C6C600C6C6C6008400000084840000C6C6 + C600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084840000848400008484 + 0000848400008484000084840000C6C6C6008484000084840000848400008484 + 0000848400008484000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008484840084840000848400008484 + 0000848400008484000084000000C6C6C6008484000084840000848400008484 + 0000848400008484000084848400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000848400008484000000000000848400000000000084840000848400000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6C6C60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF00000000000000FF000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF00006B2108006B2108006B2108006B2108006B2108006B21 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008484840000000000000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 0000000000000000000000000000000000000000FF0084000000000000000000 + 000000000000000000000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000FF0084000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000006B2108006B2108006B2108006B2108006B2108006B21 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000848484000000000084848400000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 0000000000000000000000000000848400008400840084848400000000000000 + 000000000000000000000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000848400008400840084848400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00006B2108006B210800FFFF0000FFFF + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C6C6C60084848400C6C6C600000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 0000000000000000000000000000FFFF00000000FF00C6C6C600000000000000 + 000000000000000000000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFF00000000FF00C6C6C600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007B7B7B007B7B7B006B2108006B210800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C6C6C6000000000084848400000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 0000000000000000000000000000C6C6C6000000840084848400000000000000 + 000000000000000000000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000C6C6C6000000840084848400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00006B2108006B210800FFFF0000FFFF + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008484840000000000C6C6C60000000000000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 000000000000000000008484840000000000C6C6C60000000000000000000000 + 000000000000000000000000FF00000000000000000000000000000000000000 + 000000000000000000008484840000000000C6C6C60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007B7B7B00000000006B2108006B2108007B7B7B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 0000000000000000000000000000000000008400000084840000000000000000 + 000000000000000000000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000008400000084840000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF00006B2108006B2108006B2108006B2108006B2108006B21 + 0800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6C6C60000000000000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 000000000000000000000000000000000000C6C6C60000000000000000000000 + 000000000000000000000000FF00000000000000000000000000000000000000 + 000000000000000000000000000000000000C6C6C60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000006B2108006B2108006B2108006B2108006B2108006B21 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000848484008484840084848400C6C6C600C6C6C600C6C6C600000000008484 + 8400C6C6C600000000000000000000000000000000000000FF00000000000000 + 0000848484008484000084840000C6C6C600C6C6C600C6C6C600840000008484 + 0000C6C6C600000000000000FF00000000000000000000000000000000000000 + 0000848484008484000084840000C6C6C600C6C6C600C6C6C600840000008484 + 0000C6C6C6000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000000000000000000000000000000000000000000000000000848484008484 + 840084848400848484008484840084848400C6C6C60084848400848484008484 + 840084848400848484008484840000000000000000000000FF00848400008484 + 000084840000848400008484000084840000C6C6C60084840000848400008484 + 0000848400008484000084840000000000000000000000000000848400008484 + 000084840000848400008484000084840000C6C6C60084840000848400008484 + 0000848400008484000084840000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400848484008484 + 840084848400848484008484840000000000C6C6C60084848400848484008484 + 8400848484008484840084848400C6C6C6000000000084848400848400008484 + 000084840000848400008484000084000000C6C6C60084840000848400008484 + 0000848400008484000084840000848484000000000084848400848400008484 + 000084840000848400008484000084000000C6C6C60084840000848400008484 + 0000848400008484000084840000848484000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840084848400000000008484840000000000848484008484 + 840000000000000000000000000000000000000000000000FF00000000000000 + 0000000000008484000084840000000000008484000000000000848400008484 + 000000000000000000000000FF00000000000000000000000000000000000000 + 0000000000008484000084840000000000008484000000000000848400008484 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B + 7B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B + 7B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BDBDBD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BDBDBD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD + BD00000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000000 + 0000BDBDBD000000000000000000000000000000000000000000000000000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000000 + 0000BDBDBD000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084 + 8400000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFFFF007B7B7B007B7B7B007B7B7B00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF000000 + 0000000000000000000000FFFF0000000000BDBDBD0000000000008484000084 + 8400000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000000000BDBDBD0000000000008484000084 + 8400000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFFFF007B7B7B00FFFFFF007B7B7B007B7B7B007B7B7B00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084 + 8400000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007B7B7B0000000000008484000084 + 8400000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFFFF007B7B7B007B7B7B00FFFFFF007B7B7B00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF007B7B7B007B7B7B0000000000008484000084 + 8400000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000084 + 8400000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000 + 0000000000000000000000000000000000000000000000000000000000007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF00000000000000000000000000000000000000000000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF000084840000FFFF000084840000FFFF00008484000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000084840000FFFF000084840000FFFF000084840000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B + 7B00000000000000000000000000000000000000000000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000084840000FFFF000084840000FFFF000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF000084840000FFFF000084840000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B + 7B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007B7B7B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007B7B7B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FEC0000000000000FEC0000000000000 + FEF3000000000000FC73000000000000FC73000000000000FC73000000000000 + FC40000000000000FAC0000000000000FC7F000000000000FABF000000000000 + E00F00000000000080030000000000000001000000000000F29F000000000000 + FFFF000000000000FFFF000000000000FF7FFF7FFF7FF007FF7F8001FF7FCFFB + FF7FBF7DFF7FA80BFE3FBE3DFE3FAC0BFE3FBE3DFE3FA80BFE3FBE3DFE3FAC3B + FE3FBE3DFE3FA80BFD7FBD7DFD7FAD1BFE3FBE3DFE3FA80BFD5FBD5DFD5FAC0B + F007B005F007A80BC0018001C001AFFB800080008000A553F94FB94DF94FB007 + FFFF8001FFFFD007FFFFFFFFFFFFEAAFBFFFC01FC01FF007BFFFC00FC00FC003 + B049E007E0078003807FE003E0038003B07FE00380038003B9FFE00780078003 + BFFFE00780078003B049E00780078003807FE00780078003B07FE00780078003 + B9FFE007E0078003BFFFC007C0078003048FC007C007800307FFE007E007B007 + 07FFF803F803D0079FFFFC03FC03EAAF00000000000000000000000000000000 + 000000000000} + end + object imgSurgery: TImageList + Left = 389 + Top = 17 + Bitmap = { + 494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFF + FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 000000FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF + FF000000000000FFFF00FFFFFF0000FFFF000000000000000000FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000000000FFFFFF000000 + 0000FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF0000FFFF000000000000FFFF000000000000FFFF00FFFF + FF000000000000000000FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF000000000000FFFF00FFFFFF0000000000FFFFFF0000FFFF000000 + 000000FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF + FF000000000000FFFF000000000000FFFF00FFFFFF0000000000FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000000000FFFFFF0000000000FFFFFF0000FFFF00FFFFFF000000 + 0000FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF + FF00000000000000000000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFF + FF000000000000000000FFFFFF000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF000000000000000000FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 000000FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF + FF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00000000000000000000000000FFFF + FF000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF00FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000 + 0000FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000000000000000000000000000000000000000000000FFFF00C6C6 + C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF0000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF00000000000000000000000000000000000000000000FFFF000000000000FF + FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF + FF0000000000FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF0000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF + FF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 + C60000FFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF000000000000FF + FF00FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF + FF000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 000000FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF000000 + 0000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000000FF + FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000 + 0000FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFF + FF000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 000000FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF000000000000FF + FF00FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF000000000000000000FFFFFF00000000000000000000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF0000FFFF00FFFFFF0000FFFF0000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00000000000000000084848400000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000FFFFFF000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF0000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF000000000000000000FFFFFF00000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000C6C6 + C600000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000C6C6 + C600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000000 + 0000C6C6C6000000000000000000000000000000000000000000000000000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000000 + 0000C6C6C6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF000000 + 0000000000000000000000FFFF0000000000C6C6C60000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000000000C6C6C60000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000000000000000000000000000FFFF0000000000008484000084 + 840000000000000000000000000000000000000000000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008484840000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00848484008484840000000000008484000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400848484008484840084848400848484008484840084848400000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400848484008484840084848400848484008484840084848400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF000084840000FFFF000084840000FFFF00008484000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000084840000FFFF000084840000FFFF000084840000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000084840000FFFF000084840000FFFF000084 + 8400000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF000084840000FFFF000084840000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000084848400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000084848400000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF00801F0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000080000000000000008000000000000000 + E000000000000000E000000000000000E000000000000000E000000000000000 + E000000000000000E07F000000000000FC00FFFFFFFF8007FC00E007C0010007 + 0000E007C00100000000E007C00100000000E007C00100000000E007C0010000 + 0000E007C00100000000E007C00100000000E007C00100000000E007C0010000 + 0000E007C001E0000000E007E07FE0010000E007E07FE003007FE007FFFFE007 + 007FFFFFFFFFE01FFFFFFFFFFFFFE07FFFFF8007801FFFFFC00100070000E007 + C00100000000E007C00100000000E007C00100000000E007C00100000000E007 + C00100000000E007C00100000000E007C00100008000E007C00100008000E007 + C001E000E000E007E07FE001E000E007E07FE003E000E007FFFFE007E000E007 + FFFFE01FE000FFFFFFFFE07FE07FFFFFFFFFBFFFC01FC01FFFFFBFFFC00FC00F + FFFFB049E007E007FFFF807FE003E003FFFFB07FE0038003FFFFB9FFE0078007 + FFFFBFFFE0078007FFFFB049E0078007FFFF807FE0078007FFFFB07FE0078007 + FFFFB9FFE007E007FFFFBFFFC007C007FFFF048FC007C007FFFF07FFE007E007 + FFFF07FFF803F803FFFF9FFFFC03FC0300000000000000000000000000000000 + 000000000000} + end +end diff --git a/CPRS-Chart/dShared.pas b/CPRS-Chart/dShared.pas new file mode 100644 index 0000000..3979314 --- /dev/null +++ b/CPRS-Chart/dShared.pas @@ -0,0 +1,884 @@ +unit dShared; +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, ImgList, uTemplates, ORFn, ORNet, ExtCtrls, ORCtrls, Richedit; + +type + TdmodShared = class(TDataModule) + imgTemplates: TImageList; + imgReminders: TImageList; + imgNotes: TImageList; + imgImages: TImageList; + imgReminders2: TImageList; + imgConsults: TImageList; + imgSurgery: TImageList; + procedure dmodSharedCreate(Sender: TObject); + procedure dmodSharedDestroy(Sender: TObject); + private + FTIUObjects: TStringList; + FInEditor: boolean; + FOnTemplateLock: TNotifyEvent; + FTagIndex: longint; + FDrawerTrees: TList; + FRefreshObject: boolean; + protected + procedure EncounterLocationChanged(Sender: TObject); + public + function ImgIdx(Node: TTreeNode): integer; + procedure AddTemplateNode(Tree: TTreeView; var EmptyCount: integer; + const tmpl: TTemplate; AllowInactive: boolean = FALSE; + const Owner: TTreeNode = nil); + function ExpandNode(Tree: TTreeView; Node: TTreeNode; + var EmptyCount: integer; AllowInactive: boolean = FALSE): boolean; + procedure Resync(SyncNode: TTreeNode; AllowInactive: boolean; + var EmptyCount: integer); + procedure AddDrawerTree(DrawerForm: TForm); + procedure RemoveDrawerTree(DrawerForm: TForm); + procedure Reload; + procedure LoadTIUObjects; + function BoilerplateOK(const Txt, CRDelim: string; ObjList: TStringList; + var Err: TStringList): boolean; + function TemplateOK(tmpl: TTemplate; Msg: string = ''): boolean; + function NeedsCollapsing(Tree: TTreeView): boolean; + procedure SelectNode(Tree: TORTreeView; GotoNodeID: string; var EmptyCount: integer); + procedure ExpandTree(Tree: TORTreeView; ExpandString: string; var EmptyCount: integer; + AllowInactive: boolean = FALSE); + function InDialog(Node: TTreeNode): boolean; + property InEditor: boolean read FInEditor write FInEditor; + property OnTemplateLock: TNotifyEvent read FOnTemplateLock write FOnTemplateLock; + property TIUObjects: TStringList read FTIUObjects; + property RefreshObject: boolean read FRefreshObject write FRefreshObject; + procedure FindRichEditText(AFindDialog: TFindDialog; ARichEdit: TRichEdit); + procedure ReplaceRichEditText(AReplaceDialog: TReplaceDialog; ARichEdit: TRichEdit); + end; + +var + dmodShared: TdmodShared; + +const + ObjMarker = '^@@^'; + ObjMarkerLen = length(ObjMarker); + DlgPropMarker = '^@='; + DlgPropMarkerLen = length(DlgPropMarker); + NoTextMarker = '<@>'; + +implementation + +uses fDrawers, rTemplates, uCore, uTemplateFields, uEventHooks; + +{$R *.DFM} + +const + TemplateImageIdx: array[TTemplateType, Boolean, Boolean] of integer = + // Personal Shared + // Closed Open Closed Open + ((( 0, 0), ( 0, 0)), // ttNone, + (( 0, 1), ( 0, 1)), // ttMyRoot + (( 0, 1), ( 0, 1)), // ttRoot + (( 0, 1), ( 0, 1)), // ttTitles + (( 0, 1), ( 0, 1)), // ttConsults + (( 0, 1), ( 0, 1)), // ttProcedures + (( 2, 3), ( 16, 17)), // ttClass + (( 4, 4), ( 10, 10)), // ttDoc + (( 5, 6), ( 11, 12)), // ttGroup + (( 7, 7), ( 13, 13)), // ttDocEx + (( 8, 9), ( 14, 15))); // ttGroupEx + + DialogConvMax = 7; + DialogImageXRef: array[0..DialogConvMax, Boolean] of integer = + ((5,18), (6,19), + (8,20), (9,21), + (11,22),(12,23), + (14,24),(15,25)); + + RemDlgIdx: array[boolean] of integer = (26, 27); + COMObjIdx: array[boolean] of integer = (29, 28); + +function TdmodShared.ImgIdx(Node: TTreeNode): integer; +var + Typ: TTemplateType; + i: integer; + +begin + Result := -1; + if(assigned(Node.Data)) then + begin + with TTemplate(Node.Data) do + begin + if (RealType = ttDoc) and (IsReminderDialog) then + Result := RemDlgIdx[(PersonalOwner <= 0)] + else + if (RealType = ttDoc) and (IsCOMObject) then + Result := COMObjIdx[COMObjectOK(COMObject)] + else + begin + Typ := TemplateType; + if(Exclude and (Typ in [ttDocEx, ttGroupEx])) then + begin + if(not assigned(Node.Parent)) or (TTemplate(Node.Parent.Data).RealType <> ttGroup) then + begin + case Typ of + ttDocEx: Typ := ttDoc; + ttGroupEx: Typ := ttGroup; + end; + end; + end; + Result := TemplateImageIdx[Typ, (PersonalOwner <= 0), + (Node.Expanded and Node.HasChildren)]; + if(Dialog and (Typ in [ttGroup, ttGroupEx])) then + begin + for i := 0 to DialogConvMax do + begin + if(Result = DialogImageXRef[i, FALSE]) then + begin + Result := DialogImageXRef[i, TRUE]; + break; + end; + end; + end; + end; + end; + end; +end; + +procedure TdmodShared.AddTemplateNode(Tree: TTreeView; var EmptyCount: integer; + const tmpl: TTemplate; AllowInactive: boolean = FALSE; + const Owner: TTreeNode = nil); +var + Cur, Next: TTreeNode; + Done: boolean; + NewNode: TTreeNode; + + procedure AddChildObject(Owner: TTreeNode); + begin + NewNode := Tree.Items.AddChildObject(Owner, tmpl.PrintName, tmpl); + TORTreeNode(NewNode).StringData := tmpl.ID + U + tmpl.PrintName; + NewNode.Cut := not tmpl.Active; + tmpl.AddNode(NewNode); + Done := TRUE; + end; + +begin + if((assigned(tmpl)) and ((tmpl.Active) or AllowInactive)) then + begin + Done := FALSE; + NewNode := nil; + if(assigned(Owner)) then + begin + Cur := Owner.GetFirstChild; + if(not assigned(Cur)) then + AddChildObject(Owner); + end + else + begin + Cur := Tree.Items.GetFirstNode; + if(not assigned(Cur)) then + AddChildObject(nil); + end; + if(not Done) then + begin + repeat + if(Cur.Data = tmpl) then + Done := TRUE + else + begin + Next := Cur.GetNextSibling; + if(assigned(Next)) then + Cur := Next + else + AddChildObject(Owner); + end; + until Done; + end; + if(assigned(NewNode) and (InEditor or (not tmpl.HideItems)) and + ((tmpl.Children in [tcActive, tcBoth]) or + ((tmpl.Children <> tcNone) and AllowInactive))) then + begin + Tree.Items.AddChild(NewNode, EmptyNodeText); + inc(EmptyCount); + end; + end; +end; + +function TdmodShared.ExpandNode(Tree: TTreeView; Node: TTreeNode; + var EmptyCount: integer; AllowInactive: boolean = FALSE): boolean; + +var + TmpNode: TTreeNode; + tmpl: TTemplate; + i :integer; + +begin + TmpNode := Node.GetFirstChild; + Result := TRUE; + if((assigned(TmpNode)) and (TmpNode.Text = EmptyNodeText)) then + begin + TmpNode.Delete; + dec(EmptyCount); + tmpl := TTemplate(Node.Data); + ExpandTemplate(tmpl); + for i := 0 to tmpl.Items.Count-1 do + AddTemplateNode(Tree, EmptyCount, TTemplate(tmpl.Items[i]), + AllowInactive, Node); + if((tmpl.Children = tcNone) or ((not AllowInactive) and (tmpl.Children = tcInactive))) then + Result := FALSE; + end; +end; + +procedure TdmodShared.Resync(SyncNode: TTreeNode; AllowInactive: boolean; + var EmptyCount: integer); +var + FromGet: boolean; + IDCount, SyncLevel, i: integer; + SyncExpanded: boolean; + //SelNode, + Node: TTreeNode; + Template: TTemplate; + IDSort, CurExp: TStringList; + SelID, TopID: string; + DoSel, DoTop: boolean; + Tree: TTreeView; + First: boolean; + TagCount: longint; + + function InSyncNode(Node: TTreeNode): boolean; + var + TmpNode: TTreeNode; + + begin + Result := FALSE; + TmpNode := Node; + while((not Result) and assigned(TmpNode)) do + begin + if(TmpNode = SyncNode) then + Result := TRUE + else + TmpNode := TmpNode.Parent; + end; + end; + + function GetID(Node: TTreeNode): string; + var + tmpl: TTemplate; + IDX: string; + + begin + inc(IDCount); + Result := ''; + if(assigned(Node) and assigned(Node.Data)) then + begin + tmpl := TTemplate(Node.Data); + if((tmpl.ID = '') or (tmpl.ID = '0')) then + begin + if(tmpl.LastTagIndex <> FTagIndex) then + begin + tmpl.LastTagIndex := FTagIndex; + inc(TagCount); + tmpl.tag := TagCount; + end; + IDX := '<'+IntToStr(tmpl.Tag)+'>'; + end + else + IDX := tmpl.ID; + if(Node <> SyncNode) and (assigned(Node.Parent)) then + Result := U + GetID(Node.Parent); + Result := IDX + Result; + end; + dec(IDCount); + if((not FromGet) and (IDCount = 0) and (Result <> '')) then + Result := IntToStr(Node.AbsoluteIndex) + U + Result; + end; + + function GetNode(ID: string): TTreeNode; + var + idx, i :integer; + TrueID, TmpStr: string; + TmpNode: TTreeNode; + + begin + Result := nil; + if(ID <> '') then + begin + idx := StrToIntDef(Piece(ID,U,1),0); + i := pos(U,ID); + if(i > 0) then + begin + delete(ID,1,i); + FromGet := TRUE; + try + TmpNode := SyncNode.GetFirstChild; + while ((not assigned(Result)) and (assigned(TmpNode)) and + (TmpNode.Level > SyncLevel)) do + begin + if(GetID(TmpNode) = ID) then + Result := TmpNode + else + TmpNode := TmpNode.GetNext; + end; + if(not assigned(Result)) then + begin + TrueID := piece(ID,U,1); + TmpNode := SyncNode.GetFirstChild; + while ((not assigned(Result)) and (assigned(TmpNode)) and + (TmpNode.Level > SyncLevel)) do + begin + if(assigned(TmpNode.Data) and (TTemplate(TmpNode.Data).ID = TrueID)) then + begin + TmpStr := IntToStr(abs(idx-TmpNode.AbsoluteIndex)); + TmpStr := copy('000000',1,7-length(TmpStr))+TmpStr; + IDSort.AddObject(TmpStr,TmpNode); + end; + TmpNode := TmpNode.GetNext; + end; + if(IDSort.Count > 0) then + begin + IDSort.Sort; + Result := TTreeNode(IDSort.Objects[0]); + IDSort.Clear; + end; + end; + finally + FromGet := FALSE; + end; + end; + end; + end; + + procedure BuildNodes(tmpl: TTemplate; Owner: TTreeNode); + var + i: integer; + TmpNode: TTreeNode; + + begin + if(tmpl.Active or AllowInactive) then + begin + if(First) then + begin + First := FALSE; + TmpNode := Owner; + end + else + begin + TmpNode := Tree.Items.AddChildObject(Owner, tmpl.PrintName, tmpl); + TORTreeNode(TmpNode).StringData := tmpl.ID + U + tmpl.PrintName; + TmpNode.Cut := not tmpl.Active; + tmpl.AddNode(TmpNode); + end; + if(tmpl.Expanded) then + begin + for i := 0 to tmpl.Items.Count-1 do + BuildNodes(TTemplate(tmpl.Items[i]), TmpNode); + end + else + if(InEditor or (not tmpl.HideItems)) and + ((tmpl.Children in [tcActive, tcBoth]) or + (AllowInactive and (tmpl.Children = tcInactive))) then + begin + Tree.Items.AddChild(TmpNode, EmptyNodeText); + inc(EmptyCount); + end; + end; + end; + +begin + if(assigned(SyncNode)) then + begin + TagCount := 0; + inc(FTagIndex); + Tree := TTreeView(SyncNode.TreeView); + Tree.Items.BeginUpdate; + try + SyncExpanded := SyncNode.Expanded; + Template := TTemplate(SyncNode.Data); + SyncLevel := SyncNode.Level; + FromGet := FALSE; + IDCount := 0; + IDSort := TStringList.Create; + try + {-- Get the Current State of the tree --} + CurExp := TStringList.Create; + try + Node := Tree.TopItem; + DoTop := InSyncNode(Node); + if(DoTop) then + TopID := GetID(Node); + + Node := Tree.Selected; + DoSel := InSyncNode(Node); + if(DoSel) then + SelID := GetID(Node); + + Node := SyncNode.GetFirstChild; + while ((assigned(Node)) and (Node.Level > SyncLevel)) do + begin + if(Node.Text = EmptyNodeText) then + dec(EmptyCount) + else + if(Node.Expanded) then + CurExp.Add(GetID(Node)); + if(assigned(Node.Data)) then + TTemplate(Node.Data).RemoveNode(Node); + Node := Node.GetNext; + end; + + {-- Recursively Rebuild the Tree --} + SyncNode.DeleteChildren; + First := TRUE; + BuildNodes(Template, SyncNode); + + {-- Attempt to restore Tree to it's former State --} + SyncNode.Expanded := SyncExpanded; + for i := 0 to CurExp.Count-1 do + begin + Node := GetNode(CurExp[i]); + if(assigned(Node)) then + Node.Expand(FALSE); + end; + + if(DoTop) and (TopID <> '') then + begin + Node := GetNode(TopID); + if(assigned(Node)) then + Tree.TopItem := Node; + end; + + if(DoSel) and (SelID <> '') then + begin + Node := GetNode(SelID); + if(assigned(Node)) then + begin + Tree.Selected := Node; + Node.MakeVisible; + end; + end; + + finally + CurExp.Free; + end; + + finally + IDSort.Free; + end; + + finally + Tree.Items.EndUpdate; + end; + end; +end; + + +procedure TdmodShared.dmodSharedCreate(Sender: TObject); +begin + FDrawerTrees := TList.Create; + imgReminders.Overlay(6,0); + imgReminders.Overlay(7,1); + imgReminders2.Overlay(4,0); +end; + +procedure TdmodShared.dmodSharedDestroy(Sender: TObject); +begin + KillObj(@FDrawerTrees); + KillObj(@FTIUObjects); +end; + +procedure TdmodShared.AddDrawerTree(DrawerForm: TForm); +begin + if(assigned(FDrawerTrees)) and (FDrawerTrees.IndexOf(DrawerForm) < 0) then + FDrawerTrees.Add(DrawerForm); + Encounter.Notifier.NotifyWhenChanged(EncounterLocationChanged); +end; + +procedure TdmodShared.RemoveDrawerTree(DrawerForm: TForm); +var + idx: integer; + +begin + if(assigned(FDrawerTrees)) then + begin + idx := FDrawerTrees.IndexOf(DrawerForm); + if(idx >= 0) then + FDrawerTrees.Delete(idx); + end; +end; + +procedure TdmodShared.Reload; +var + i: integer; + +begin + if(assigned(FDrawerTrees)) then + begin + ReleaseTemplates; + for i := 0 to FDrawerTrees.Count-1 do + TfrmDrawers(FDrawerTrees[i]).ExternalReloadTemplates; + end; +end; + +procedure TdmodShared.LoadTIUObjects; +var + i: integer; + +begin + if(not assigned(FTIUObjects)) or (FRefreshObject = true) then + begin + if(not assigned(FTIUObjects)) then + FTIUObjects := TStringList.Create; + FTIUObjects.Clear; + GetObjectList; + for i := 0 to RPCBrokerV.Results.Count-1 do + FTIUObjects.Add(MixedCase(Piece(RPCBrokerV.Results[i],U,2))+U+RPCBrokerV.Results[i]); + FTIUObjects.Sort; + FRefreshObject := False; + end; +end; + +function TdmodShared.NeedsCollapsing(Tree: TTreeView): boolean; +var + Node: TTreeNode; + +begin + Result := FALSE; + if(assigned(Tree)) then + begin + Node := Tree.Items.GetFirstNode; + while((not Result) and assigned(Node)) do + begin + Result := Node.Expanded; + Node := Node.GetNextSibling; + end; + end; +end; + +function TdmodShared.BoilerplateOK(const Txt, CRDelim: string; ObjList: TStringList; + var Err: TStringList): boolean; +var + cnt, i, j, p: integer; + tmp,obj: string; + BadObj, ok: boolean; + + procedure AddErr(Amsg: string); + begin + if(not assigned(Err)) then + Err := TStringList.Create; + Err.Add(Amsg) + end; + + function ErrCount: integer; + begin + if(Assigned(Err)) then + Result := Err.Count + else + Result := 0; + end; + +begin + if(assigned(ObjList)) then + ObjList.Clear; + cnt := ErrCount; + tmp := Txt; + BadObj := FALSE; + repeat + i := pos('|',tmp); + if(i > 0) then + begin + delete(tmp,1,i); + j := pos('|',tmp); + if(j = 0) then + begin + AddErr('Unpaired "|" in Boilerplate'); + continue; + end; + obj := copy(tmp,1,j-1); + delete(tmp,1,j); + if(obj = '') then + begin + AddErr('Brackets "||" are there, but there''s no name inside it.'); + continue; + end; + j := pos(CRDelim, obj); + if(j > 0) then + begin + AddErr('Object "'+copy(obj,1,j-1)+'" split between lines'); + continue; + end; + LoadTIUObjects; + ok := FALSE; + for j := 0 to FTIUObjects.Count-1 do + begin + for p := 3 to 5 do + begin + if(obj = piece(FTIUObjects[j],U,p)) then + begin + ok := TRUE; + if(assigned(ObjList)) and (ObjList.IndexOf(ObjMarker + obj) < 0) then + begin + ObjList.Add(ObjMarker + obj); + ObjList.Add('|' + obj + '|'); + end; + break; + end; + end; + if(ok) then break; + end; + if(not ok) then + begin + AddErr('Object "'+obj+'" not found.'); + BadObj := TRUE; + end; + end; + until(i=0); + Result := (cnt = ErrCount); + if(not Result) then + begin + Err.Insert(0,'Boilerplate Contains Errors:'); + Err.Insert(1,''); + if(BadObj) then + begin + Err.Add(''); + Err.Add('Use UPPERCASE and object''s exact NAME, PRINT NAME, or ABBREVIATION'); + Err.Add('Any of these may have changed since an object was embedded.'); + end; + end; + if(assigned(ObjList) and (ObjList.Count > 0)) then + ObjList.Add(ObjMarker); +end; + +function TdmodShared.TemplateOK(tmpl: TTemplate; Msg: string = ''): boolean; +var + Err: TStringList; + btns: TMsgDlgButtons; + +begin + Err := nil; + try + Result := BoilerplateOK(tmpl.FullBoilerplate, #13, nil, Err); + if(not Result) then + begin + if(Msg = 'OK') then + btns := [mbOK] + else + begin + btns := [mbAbort, mbIgnore]; + Err.Add(''); + if(Msg = '') then + Msg := 'template insertion'; + Err.Add('Do you want to Abort '+Msg+', or Ignore the error and continue?'); + end; + Result := (MessageDlg(Err.Text, mtError, btns, 0) = mrIgnore); + end; + finally + if(assigned(Err)) then + Err.Free; + end; + if Result then + Result := BoilerplateTemplateFieldsOK(tmpl.FullBoilerplate, Msg); +end; + +procedure TdmodShared.EncounterLocationChanged(Sender: TObject); +var + i: integer; + +begin + if(assigned(FDrawerTrees)) then + begin + for i:= 0 to FDrawerTrees.count-1 do + TfrmDrawers(FDrawerTrees[i]).UpdatePersonalTemplates; + end; +end; + +procedure TdmodShared.SelectNode(Tree: TORTreeView; GotoNodeID: string; var EmptyCount: integer); +var + i, j: integer; + IEN, PIEN: string; + Node: TORTreeNode; + + function FindNode(StartNode: TORTreeNode): TORTreeNode; + begin + Result := nil; + while assigned(StartNode) do + begin + if(Piece(StartNode.StringData, U ,1) = IEN) then + begin + Result := StartNode; + exit; + end; + StartNode := TORTreeNode(StartNode.GetNextSibling); + end; + end; + +begin + if(GotoNodeID <> '') then + begin + i := 1; + for j := 1 to length(GotoNodeID) do + if(GotoNodeID[j] = ';') then inc(i); + PIEN := ''; + Node := TORTreeNode(Tree.Items.GetFirstNode); + repeat + IEN := piece(GotoNodeID, ';', i); + if(IEN <> '') then + begin + Node := FindNode(Node); + if(assigned(Node)) then + begin + if(PIEN <> '') then + PIEN := ';' + PIEN; + PIEN := IEN + PIEN; + if(PIEN = GotoNodeID) then + begin + Node.EnsureVisible; + Tree.Selected := Node; + IEN := ''; + end + else + begin + dmodShared.ExpandNode(Tree, Node, EmptyCount); + Node := TORTreeNode(Node.GetFirstChild); + if(assigned(Node)) then + dec(i) + else + IEN := ''; + end; + end + else + IEN := ''; + end; + until (i < 1) or (IEN = ''); + end; +end; + +function TdmodShared.InDialog(Node: TTreeNode): boolean; +begin + Result := FALSE; + while assigned(Node) and (not Result) do + begin + if TTemplate(Node.Data).IsDialog then + Result := TRUE + else + Node := Node.Parent; + end; +end; + +procedure TdmodShared.ExpandTree(Tree: TORTreeView; ExpandString: string; + var EmptyCount: integer; AllowInactive: boolean = FALSE); + +var + NStr: string; + i: integer; + Node: TTreeNode; + +begin + Tree.Items.BeginUpdate; + try + i := 1; + repeat + NStr := piece(ExpandString,U,i); + if(NStr <> '') then + begin + inc(i); + Node := Tree.FindPieceNode(NStr, 1, ';'); + if assigned(Node) then + begin + ExpandNode(Tree, Node, EmptyCount, AllowInactive); + Node.Expand(False); + end; + end; + until(NStr = ''); + finally + Tree.Items.EndUpdate; + end; +end; + +procedure TdmodShared.FindRichEditText(AFindDialog: TFindDialog; ARichEdit: TRichEdit); +const + TX_NOMATCH = 'The text was not found'; + TC_NOMATCH = 'No more matches'; +var + FoundAt, FoundLine, TopLine, BottomLine: LongInt; + StartPos, ToEnd, CharPos: Integer; + SearchOpts: TSearchTypes; +begin + SearchOpts := []; + with ARichEdit do + begin + { begin the search after the current selection if there is one } + { otherwise, begin at the start of the text } + if SelStart <> 0 then + StartPos := SelStart + SelLength + else + StartPos := 0; + { ToEnd is the length from StartPos to the end of the text in the rich edit control } + ToEnd := Length(Text) - StartPos; + if frMatchCase in AFindDialog.Options then Include(SearchOpts, stMatchCase); + if frWholeWord in AFindDialog.Options then Include(SearchOpts, stWholeWord); + FoundAt := FindText(AFindDialog.FindText, StartPos, ToEnd, SearchOpts); + if FoundAt <> -1 then + begin + SetFocus; + TopLine := SendMessage(Handle, EM_GETFIRSTVISIBLELINE, 0, 0); + BottomLine := TopLine + (Height div FontHeightPixel(Font.Handle)); + FoundLine := SendMessage(Handle, EM_EXLINEFROMCHAR, 0, FoundAt); + if (FoundLine + 10) > BottomLine then + SendMessage(Handle, EM_LINESCROLL, 0, FoundLine - BottomLine + 10); + CharPos := Pos(AFindDialog.FindText, Lines[FoundLine]); + SendMessage(ARichEdit.Handle, EM_LINESCROLL, CharPos, 0); + SelStart := FoundAt; + SelLength := Length(AFindDialog.FindText); + end + else + begin + if not (frReplaceAll in AFindDialog.Options) then InfoBox(TX_NOMATCH, TC_NOMATCH, MB_OK); + SelStart := 0; + SelLength := 0; + //AFindDialog.CloseDialog; + end; + end; +end; + +procedure TdmodShared.ReplaceRichEditText(AReplaceDialog: TReplaceDialog; ARichEdit: TRichEdit); +const + TC_COMPLETE = 'Replacement Complete'; + TX_COMPLETE1 = 'CPRS has finished searching the document. ' + CRLF; + TX_COMPLETE2 = ' replacements were made.'; +var + Replacements: integer; + NewStart: integer; +begin + Replacements := 0; + if (frReplace in AReplaceDialog.Options) then + begin + if ARichEdit.SelLength > 0 then + begin + NewStart := ARichEdit.SelStart + Length(AReplaceDialog.ReplaceText); + ARichEdit.SelText := AReplaceDialog.ReplaceText; + ARichEdit.SelStart := NewStart; + //Replacements := Replacements + 1; + end; + FindRichEditText(AReplaceDialog, ARichEdit); + end + else if (frReplaceAll in AReplaceDialog.Options) then + begin + repeat + if ARichEdit.SelLength > 0 then + begin + NewStart := ARichEdit.SelStart + Length(AReplaceDialog.ReplaceText); + ARichEdit.SelText := AReplaceDialog.ReplaceText; + ARichEdit.SelStart := NewStart; + Replacements := Replacements + 1; + end; + FindRichEditText(AReplaceDialog, ARichEdit); + until ARichEdit.SelLength = 0; + InfoBox(TX_COMPLETE1 + IntToStr(Replacements) + TX_COMPLETE2, TC_COMPLETE, MB_OK); + end + else + FindRichEditText(AReplaceDialog, ARichEdit); +end; + +end. + + + + + diff --git a/CPRS-Chart/fARTAllgy.dfm b/CPRS-Chart/fARTAllgy.dfm new file mode 100644 index 0000000..b51a3ad --- /dev/null +++ b/CPRS-Chart/fARTAllgy.dfm @@ -0,0 +1,611 @@ +inherited frmARTAllergy: TfrmARTAllergy + Tag = 1105 + Left = 339 + Top = 266 + Width = 561 + Height = 465 + Caption = 'Enter Allergy or Adverse Reaction' + Position = poScreenCenter + OnClose = FormClose + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 553 + Height = 438 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object lblAllergyType: TOROffsetLabel + Left = 38 + Top = 403 + Width = 63 + Height = 15 + Caption = 'Allergy Type:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + Visible = False + WordWrap = False + end + object cmdOK: TButton + Left = 380 + Top = 403 + Width = 72 + Height = 21 + Caption = 'OK' + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 459 + Top = 403 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end + object pgAllergy: TPageControl + Left = 4 + Top = 17 + Width = 529 + Height = 371 + ActivePage = tabGeneral + MultiLine = True + TabIndex = 0 + TabOrder = 0 + object tabGeneral: TTabSheet + Caption = '&General' + object lblAgent: TOROffsetLabel + Left = 7 + Top = 44 + Width = 82 + Height = 15 + Caption = 'Causative agent:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object btnAgent: TSpeedButton + Left = 175 + Top = 62 + Width = 19 + Height = 19 + Caption = '...' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + OnClick = btnAgentClick + end + object lblOriginator: TOROffsetLabel + Left = 202 + Top = 1 + Width = 50 + Height = 15 + Caption = 'Originator:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblOriginateDate: TOROffsetLabel + Left = 202 + Top = 44 + Width = 81 + Height = 15 + Caption = 'Origination Date:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object Bevel1: TBevel + Left = 7 + Top = 299 + Width = 502 + Height = 36 + end + object lblSymptoms: TOROffsetLabel + Left = 7 + Top = 127 + Width = 84 + Height = 15 + Caption = 'Signs/Symptoms:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblSelectedSymptoms: TOROffsetLabel + Left = 147 + Top = 127 + Width = 98 + Height = 15 + Caption = 'Selected Symptoms:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblSeverity: TOROffsetLabel + Left = 362 + Top = 81 + Width = 43 + Height = 15 + Caption = 'Severity:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblObservedDate: TOROffsetLabel + Left = 362 + Top = 44 + Width = 102 + Height = 15 + Caption = 'Reaction Date/Time:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblComments: TOROffsetLabel + Left = 295 + Top = 127 + Width = 54 + Height = 15 + Caption = 'Comments:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblNatureOfReaction: TOROffsetLabel + Left = 7 + Top = 82 + Width = 95 + Height = 15 + Caption = 'Nature of Reaction:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object ckNoKnownAllergies: TCheckBox + Left = 7 + Top = 3 + Width = 119 + Height = 17 + Caption = 'No Known Allergies' + TabOrder = 0 + OnClick = ckNoKnownAllergiesClick + end + object btnCurrent: TButton + Left = 7 + Top = 24 + Width = 114 + Height = 21 + Caption = 'Active Allergies' + TabOrder = 1 + OnClick = btnCurrentClick + end + object lstAllergy: TORListBox + Left = 7 + Top = 61 + Width = 166 + Height = 21 + Color = clBtnFace + ExtendedSelect = False + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = lstAllergyClick + ItemTipColor = clWindow + LongList = False + Pieces = '2' + OnChange = ControlChange + end + object cboOriginator: TORComboBox + Left = 202 + Top = 16 + Width = 139 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 2 + MaxLength = 0 + ParentShowHint = False + Pieces = '2,3' + ShowHint = False + Sorted = False + SynonymChars = '<>' + TabOrder = 4 + OnChange = ControlChange + OnNeedData = cboOriginatorNeedData + CharsNeedMatch = 1 + end + object calOriginated: TORDateBox + Left = 202 + Top = 61 + Width = 140 + Height = 21 + Color = clBtnFace + Enabled = False + TabOrder = 5 + OnChange = ControlChange + DateOnly = False + RequireTime = False + end + object ckChartMarked: TCheckBox + Left = 294 + Top = 307 + Width = 113 + Height = 17 + Caption = 'Marked On Chart' + Checked = True + State = cbChecked + TabOrder = 18 + Visible = False + OnClick = ControlChange + end + object ckIDBand: TCheckBox + Left = 122 + Top = 307 + Width = 97 + Height = 17 + Caption = 'ID Band Marked' + TabOrder = 17 + OnClick = ControlChange + end + object cboSymptoms: TORComboBox + Left = 7 + Top = 141 + Width = 135 + Height = 152 + Style = orcsSimple + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 11 + OnKeyDown = cboSymptomsKeyDown + OnMouseClick = cboSymptomsMouseClick + OnNeedData = cboSymptomsNeedData + CharsNeedMatch = 1 + end + object lstSelectedSymptoms: TORListBox + Left = 147 + Top = 141 + Width = 136 + Height = 122 + ExtendedSelect = False + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 12 + ItemTipColor = clWindow + LongList = False + Pieces = '2,4' + OnChange = lstSelectedSymptomsChange + end + object btnDateTime: TButton + Left = 154 + Top = 270 + Width = 62 + Height = 21 + Caption = 'Date/Time' + TabOrder = 13 + OnClick = btnDateTimeClick + end + object btnRemove: TButton + Left = 223 + Top = 270 + Width = 57 + Height = 21 + Caption = 'Remove' + TabOrder = 14 + OnClick = btnRemoveClick + end + object grpObsHist: TRadioGroup + Left = 362 + Top = 2 + Width = 147 + Height = 38 + Columns = 2 + Ctl3D = True + Items.Strings = ( + 'Observed' + 'Historical') + ParentCtl3D = False + ParentShowHint = False + ShowHint = True + TabOrder = 7 + OnClick = grpObsHistClick + end + object cboSeverity: TORComboBox + Left = 362 + Top = 96 + Width = 127 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 9 + OnChange = ControlChange + OnExit = ControlChange + CharsNeedMatch = 1 + end + object calObservedDate: TORDateBox + Left = 362 + Top = 61 + Width = 145 + Height = 21 + TabOrder = 8 + OnChange = ControlChange + DateOnly = False + RequireTime = False + end + object cmdPrevObs: TButton + Left = 202 + Top = 96 + Width = 140 + Height = 21 + Caption = 'View Previous Observations' + TabOrder = 6 + OnClick = cmdPrevObsClick + end + object memComments: TRichEdit + Left = 294 + Top = 141 + Width = 213 + Height = 112 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ScrollBars = ssVertical + TabOrder = 15 + OnExit = memCommentsExit + end + object cmdPrevCmts: TButton + Left = 322 + Top = 270 + Width = 157 + Height = 21 + Caption = 'View Previous Comments' + TabOrder = 16 + OnClick = cmdPrevCmtsClick + end + object cboNatureOfReaction: TORComboBox + Left = 7 + Top = 96 + Width = 190 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 3 + OnChange = ControlChange + CharsNeedMatch = 1 + end + object btnSevHelp: TORAlignButton + Left = 489 + Top = 96 + Width = 21 + Height = 21 + Caption = '?' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = btnSevHelpClick + end + end + object tabVerify: TTabSheet + Caption = '&Verify' + ImageIndex = 3 + object lblVerifier: TOROffsetLabel + Left = 99 + Top = 51 + Width = 55 + Height = 15 + Caption = 'Verified By:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblVerifyDate: TOROffsetLabel + Left = 99 + Top = 108 + Width = 66 + Height = 15 + Caption = 'Date Verified:' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object ckVerified: TCheckBox + Left = 99 + Top = 18 + Width = 69 + Height = 17 + Caption = 'Verified' + TabOrder = 0 + OnClick = ControlChange + end + object cboVerifier: TORComboBox + Left = 99 + Top = 65 + Width = 138 + Height = 21 + Style = orcsDropDown + AutoSelect = True + 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 = 1 + OnChange = ControlChange + OnNeedData = cboVerifierNeedData + CharsNeedMatch = 1 + end + object calVerifyDate: TORDateBox + Left = 99 + Top = 124 + Width = 137 + Height = 21 + TabOrder = 2 + OnChange = ControlChange + DateOnly = False + RequireTime = False + end + end + object tabEnteredInError: TTabSheet + Caption = 'Entered In Error' + ImageIndex = 2 + object lblErrCmts: TLabel + Left = 7 + Top = 12 + Width = 98 + Height = 13 + Caption = 'Comments (optional):' + end + object lblEnteredInError: TLabel + Left = 0 + Top = 330 + Width = 521 + Height = 13 + Align = alBottom + Alignment = taCenter + Caption = 'EnteredInError' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object ckEnteredInError: TCheckBox + Left = 286 + Top = 5 + Width = 203 + Height = 17 + Caption = 'Mark this allergy as "Entered In Error"' + TabOrder = 0 + Visible = False + OnClick = ControlChange + end + object memErrCmts: TRichEdit + Left = 6 + Top = 27 + Width = 506 + Height = 263 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ScrollBars = ssVertical + TabOrder = 1 + OnExit = memCommentsExit + end + end + end + object cboAllergyType: TORComboBox + Left = 38 + Top = 418 + Width = 190 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clBtnFace + DropDownCount = 8 + Enabled = False + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 3 + Visible = False + OnChange = ControlChange + CharsNeedMatch = 1 + end + end + object dlgReactionDateTime: TORDateTimeDlg + FMDateTime = 2981202 + DateOnly = False + RequireTime = False + Left = 5 + Top = 400 + end +end diff --git a/CPRS-Chart/fARTAllgy.pas b/CPRS-Chart/fARTAllgy.pas new file mode 100644 index 0000000..990f1d1 --- /dev/null +++ b/CPRS-Chart/fARTAllgy.pas @@ -0,0 +1,1102 @@ +unit fARTAllgy; + +interface + +uses + SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, + Forms, Dialogs, StdCtrls, ORCtrls, ORfn, ExtCtrls, ComCtrls, uConst, + Menus, ORDtTm, Buttons, fODBase, fAutoSz, fOMAction, rODAllergy; + +type + TfrmARTAllergy = class(TfrmOMAction) + pnlBase: TORAutoPanel; + cmdOK: TButton; + cmdCancel: TButton; + pgAllergy: TPageControl; + tabGeneral: TTabSheet; + tabVerify: TTabSheet; + ckNoKnownAllergies: TCheckBox; + btnCurrent: TButton; + lblAgent: TOROffsetLabel; + lstAllergy: TORListBox; + btnAgent: TSpeedButton; + lblOriginator: TOROffsetLabel; + cboOriginator: TORComboBox; + lblOriginateDate: TOROffsetLabel; + calOriginated: TORDateBox; + ckChartMarked: TCheckBox; + ckIDBand: TCheckBox; + lblVerifier: TOROffsetLabel; + ckVerified: TCheckBox; + cboVerifier: TORComboBox; + calVerifyDate: TORDateBox; + lblVerifyDate: TOROffsetLabel; + dlgReactionDateTime: TORDateTimeDlg; + Bevel1: TBevel; + lblSymptoms: TOROffsetLabel; + cboSymptoms: TORComboBox; + lblSelectedSymptoms: TOROffsetLabel; + lstSelectedSymptoms: TORListBox; + btnDateTime: TButton; + btnRemove: TButton; + grpObsHist: TRadioGroup; + lblSeverity: TOROffsetLabel; + cboSeverity: TORComboBox; + lblObservedDate: TOROffsetLabel; + calObservedDate: TORDateBox; + cmdPrevObs: TButton; + lblComments: TOROffsetLabel; + memComments: TRichEdit; + cmdPrevCmts: TButton; + tabEnteredInError: TTabSheet; + ckEnteredInError: TCheckBox; + memErrCmts: TRichEdit; + lblErrCmts: TLabel; + lblEnteredInError: TLabel; + lblAllergyType: TOROffsetLabel; + cboAllergyType: TORComboBox; + cboNatureOfReaction: TORComboBox; + lblNatureOfReaction: TOROffsetLabel; + btnSevHelp: TORAlignButton; + procedure btnAgentClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cboOriginatorNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboSymptomsNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure lstAllergySelect(Sender: TObject); + procedure grpObsHistClick(Sender: TObject); + procedure ControlChange(Sender: TObject); + procedure memCommentsExit(Sender: TObject); + procedure cboSymptomsClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure ckNoKnownAllergiesClick(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure btnCurrentClick(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure lstAllergyClick(Sender: TObject); + procedure btnDateTimeClick(Sender: TObject); + procedure cboSymptomsMouseClick(Sender: TObject); + procedure cboSymptomsKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure cmdCancelClick(Sender: TObject); + procedure cmdPrevCmtsClick(Sender: TObject); + procedure cmdPrevObsClick(Sender: TObject); + procedure lstSelectedSymptomsChange(Sender: TObject); + procedure cboVerifierNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure btnSevHelpClick(Sender: TObject); + private + FLastAllergyID: string; + FEditAllergyIEN: integer; + FNKAOrder: boolean; + FChanged: Boolean; + FOldHintPause : integer; + protected + procedure EnableDisableControls(EnabledStatus: boolean); + procedure InitDialog; override; + procedure Validate(var AnErrMsg: string); + function ValidSave: Boolean; + procedure SetupDialog; + procedure SetupVerifyFields(ARec: TAllergyRec); + procedure SetUpEnteredInErrorFields(ARec: TAllergyRec); + end; + +function EnterEditAllergy(AllergyIEN: integer; AddNew, MarkAsEnteredInError: boolean): boolean; +function MarkEnteredInError(AllergyIEN: integer): boolean; +function EnterNKAForPatient: boolean; + +var + AllergyList: TStringList; + OldRec, NewRec: TAllergyRec; + Defaults: TStringList; + Changing: Boolean; + uAddingNew: boolean = FALSE; + uEditing: Boolean = FALSE; + uEnteredInError: Boolean = FALSE; + uUserCanVerify: boolean = FALSE; + uDeletedSymptoms: TStringList; + +implementation + +{$R *.DFM} + +uses + rODBase, uCore, rCore, rCover, fAllgyFind, fPtCWAD, fRptBox; + +const + TX_NO_ALLERGY = 'A causative agent must be specified.' ; + TX_NO_ALLGYTYPE = 'An allergy type must be entered for this causative agent.' ; + TX_NO_NATURE_OF_REACTION = 'A Nature of Reaction must be entered for this causative agent.' ; + TX_NO_SYMPTOMS = 'Symptoms must be selected for this observed allergy and reaction.'; + TX_NO_OBSERVER = 'An observer must be selected for this allergy and reaction .'; + TX_NO_ORIGINATOR = 'An originator must be selected for this allergy and reaction .'; + 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_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.'; + TX_MISSING_ORIG_DATE = 'Origination date is required.'; + TX_CAP_FUTURE = 'Invalid date'; + TX_NO_SAVE = 'This item cannot be saved for the following reason(s):' + CRLF + CRLF; + TX_NO_SAVE_CAP = 'Unable to Save Allergy/Adverse Reaction'; + TX_SAVE_ERR = 'Unexpected error - it was not possible to save this request.'; + TX_CAP_EDITING = 'Edit Allergy/Adverse Reaction'; + TX_STS_EDITING = 'Loading Allergy/Adverse Reaction for Edit'; + TX_CAP_ERROR = 'Mark Allergy/Adverse Reaction Entered In Error'; + TX_STS_ERROR = 'Loading Allergy/Adverse Reaction'; + TX_ORIG_CMTS_REQD = 'Comments are required for ''Observed'' reactions.'; + TX_EDIT_ERROR = 'Unable to load record for editing'; + TC_EDIT_ERROR = 'Error Encountered'; + TX_NKA_SUCCESS = 'Patient''s record has been updated.'; + TC_NKA_SUCCESS = 'No Known Allergies'; + TX_OBHX_HINT = 'OBSERVED: directly observed or occurring while the patient was' + CRLF + + 'on the suspected causative agent. Use for new information about' + CRLF + + 'an allergy/adverse reaction and for recent reactions caused by' + CRLF + + 'VA-prescribed medications.' + CRLF + CRLF + + 'HISTORICAL: reported by the patient as occurring in the past;' + CRLF + + 'no longer requires intervention' ; + + NEW_ALLERGY = True; + ENTERED_IN_ERROR = True; + +function EnterNKAForPatient: boolean; +var + x: string; +begin + x := RPCEnterNKAForPatient; + if not (Piece(x, U, 1) = '0') then + InfoBox(Piece(x, U, 2), TC_EDIT_ERROR, MB_ICONERROR or MB_OK) + else + InfoBox(TX_NKA_SUCCESS, TC_NKA_SUCCESS, MB_ICONINFORMATION or MB_OK); + Result := (Piece(x, U, 1) = '0'); +end; + +function MarkEnteredInError(AllergyIEN: integer): boolean; +begin + Result := EnterEditAllergy(AllergyIEN, not NEW_ALLERGY, ENTERED_IN_ERROR); +end; + +function EnterEditAllergy(AllergyIEN: integer; AddNew, MarkAsEnteredInError: boolean): boolean; +var + frmARTAllergy: TfrmARTAllergy; + Allergy: string; +begin + uAddingNew := AddNew; + uEditing := (not AddNew) and (not MarkAsEnteredInError); + uEnteredInError := MarkAsEnteredInError; + Result := False; + frmARTAllergy := TfrmARTAllergy.Create(Application); + if frmARTAllergy.AbortAction then exit; + with frmARTAllergy do + try + ResizeFormToFont(TForm(frmARTAllergy)); + FChanged := False; + Changing := True; + if uEditing then + begin + frmARTAllergy.Caption := TX_CAP_EDITING; + FEditAllergyIEN := AllergyIEN; + if FEditAllergyIEN = 0 then exit; + StatusText(TX_STS_EDITING); + OldRec := LoadAllergyForEdit(FEditAllergyIEN); + NewRec.IEN := OldRec.IEN; + SetupDialog; + end + else if uEnteredInError then + begin + frmARTAllergy.Caption := TX_CAP_ERROR; + FEditAllergyIEN := AllergyIEN; + if FEditAllergyIEN = 0 then exit; + StatusText(TX_STS_ERROR); + OldRec := LoadAllergyForEdit(FEditAllergyIEN); + NewRec.IEN := OldRec.IEN; + SetupDialog; + end + else if uAddingNew then + begin + SetupVerifyFields(NewRec); + SetupEnteredInErrorFields(NewRec); + AllergyLookup(Allergy, ckNoKnownAllergies.Enabled); + if Piece(Allergy, U, 1) = '-1' then + begin + ckNoKnownAllergies.Checked := True; + Result := EnterNKAForPatient; + Exit; + end + else if Allergy <> '' then + begin + lstAllergy.Clear; + lstAllergy.Items.Add(Allergy); + cboAllergyType.SelectByID(Piece(Allergy, U, 4)); + end + else + begin + Result := False; + Close; + exit; + end; + calOriginated.FMDateTime := FMNow; + Changing := False; + ControlChange(lstAllergy); + end; + StatusText(''); + if OldRec.IEN = -1 then + begin + Result := False; + Close; + Exit; + end; + ShowModal; + Result := FChanged; + finally + uAddingNew := FALSE; + uEditing := FALSE; + uEnteredInError := FALSE; + uUserCanVerify := FALSE; + frmARTAllergy.Release; + end; +end; + +procedure TfrmARTAllergy.FormCreate(Sender: TObject); +begin + inherited; // what to do here? How to set up dialog defaults without order dialog to supply prompts? + Changing := True; + AbortAction := False; + AllergyList := TStringList.Create; + uDeletedSymptoms := TStringList.Create; + FillChar(OldRec, SizeOf(OldRec), 0); + FillChar(NewRec, SizeOf(NewRec), 0); + with NewRec do + begin + SignsSymptoms := TStringList.Create ; + IDBandMarked := TStringList.Create; + ChartMarked := TStringList.Create; + Observations := TStringList.Create; + Comments := TStringList.Create ; + NewComments := TStringList.Create ; + ErrorComments := TStringList.Create ; + end; + Defaults := TStringList.Create; + StatusText('Loading Default Values'); + uUserCanVerify := FALSE; //HasSecurityKey('GMRA-ALLERGY VERIFY'); + Defaults.Assign(ODForAllergies); + StatusText('Initializing Long List'); + ExtractItems(cboSymptoms.Items, Defaults, 'Top Ten'); + cboSymptoms.InsertSeparator; + cboSymptoms.InitLongList(''); + cboOriginator.InitLongList(User.Name) ; + cboOriginator.SelectByIEN(User.DUZ); + pgAllergy.ActivePage := tabGeneral; + InitDialog; + Changing := False; + if AbortAction then + begin + Close; + Exit; + end; +end; + +procedure TfrmARTAllergy.InitDialog; +var + Allergy: string; + //ErrMsg: string; +begin + inherited; + // since this only allows entry of new allergies, key check is irrelevant, eff. v26.12 +(* if not IsARTClinicalUser(ErrMsg) then + begin + InfoBox(ErrMsg, 'No Authorization', MB_ICONWARNING or MB_OK); + AbortAction := True; + Close; + Exit; + end;*) + Changing := True; + FOldHintPause := Application.HintHidePause; + Application.HintHidePause := 15000; + ExtractItems(cboAllergyType.Items, Defaults, 'Allergy Types'); + ExtractItems(cboSeverity.Items, Defaults, 'Severity'); + ExtractItems(cboNatureOfReaction.Items, Defaults, 'Nature of Reaction'); + lstAllergy.Items.Add('-1^Click button to search ---->'); + grpObsHist.ItemIndex := 1; + calObservedDate.Text := ''; + cboSeverity.ItemIndex := -1; + cboSymptoms.ItemIndex := -1; + memComments.Clear; + cmdPrevCmts.Visible := (uEditing and (OldRec.Comments <> nil) and (OldRec.Comments.Text <> '')); + cmdPrevObs.Visible := (uEditing and (OldRec.Observations <> nil) and (OldRec.Observations.Text <> '')); + btnAgent.Enabled := (not uEditing) and (not uEnteredInError); + ckEnteredInError.Enabled := uEditing or uEnteredInError; + grpObsHist.Enabled := (not uEditing) and (not uEnteredInError); + grpObsHist.Hint := TX_OBHX_HINT; + grpObsHist.ShowHint := grpObsHist.Enabled; + ckIDBand.Enabled := Patient.Inpatient and MarkIDBand; + ckChartMarked.Checked := ckChartMarked.Checked or uAddingNew; + ListAllergies(AllergyList); + with AllergyList do + if Count > 0 then + begin + if (Piece(Strings[0], U, 1) = '') and (Piece(Strings[0], U, 2) <> 'No Known Allergies') then + ckNoKnownAllergies.Enabled := True + else + begin + ckNoKnownAllergies.Enabled := False; + btnCurrent.Enabled := True; + end; + end + else + begin + btnCurrent.Enabled := False; + ckNoKnownAllergies.Enabled := True; + end; + if (not uEditing) and (not uEnteredInError) and (not uAddingNew) then + begin + SetupVerifyFields(NewRec); + SetupEnteredInErrorFields(NewRec); + AllergyLookup(Allergy, ckNoKnownAllergies.Enabled); + if Piece(Allergy, U, 1) = '-1' then + begin + ckNoKnownAllergies.Checked := True; + //Exit; + end + else if Allergy <> '' then + begin + lstAllergy.Clear; + lstAllergy.Items.Add(Allergy); + cboAllergyType.SelectByID(Piece(Allergy, U, 4)); + end + else + begin + AbortAction := True; + Close; + exit; + end; + calOriginated.FMDateTime := FMNow; + end; + StatusText(''); + Changing := False; + ControlChange(lstAllergy); +end; + +procedure TfrmARTAllergy.SetupDialog; +begin + if AbortAction then exit; + if OldRec.IEN = -1 then + begin + InfoBox(TX_EDIT_ERROR, TC_EDIT_ERROR, MB_ICONERROR or MB_OK); + Exit; + end; + if uEditing then with OldRec do + begin + Changing := True; + ckNoKnownAllergies.Checked := NoKnownAllergies; + btnAgent.Enabled := FALSE; //not Verified; + lstAllergy.Items.Clear; + lstAllergy.Items.Insert(0, U + CausativeAgent); + lstAllergy.ItemIndex := 0; + lstAllergySelect(Self); + cboAllergyType.SelectByID(Piece(AllergyType, U, 1)); + cboNatureOfReaction.SelectByID(Piece(NatureOfReaction, U, 1)); + lstSelectedSymptoms.Items.Assign(SignsSymptoms); + calOriginated.FMDateTime := Originated; + cboOriginator.InitLongList(OriginatorName); + cboOriginator.SelectByIEN(Originator); + { TODO -oRich V. -cART/Allergy : Change to calendar entry fields and prior entries button? } + ckIDBand.Checked := IDBandMarked.Count > 0; + ckChartMarked.Checked := ChartMarked.Count > 0; + if Piece(Observed_Historical, U, 1) <> '' then + case UpperCase(Piece(Observed_Historical, U, 1))[1] of + 'O': grpObsHist.ItemIndex := 0; + 'H': grpObsHist.ItemIndex := 1; + end + else grpObsHist.ItemIndex := -1; + calObservedDate.FMDateTime := ReactionDate; + cmdPrevObs.Enabled := (OldRec.Observations.Text <> ''); + cboSeverity.SelectByID(Piece(Severity, U, 1)); + cmdPrevCmts.Enabled := Comments.Text <> ''; + SetupVerifyFields(OldRec); + SetUpEnteredInErrorFields(OldRec); + Changing := False; + ControlChange(Self); + end + else if uEnteredInError then with OldRec do + begin + Changing := True; + SetupVerifyFields(OldRec); + SetUpEnteredInErrorFields(OldRec); + Changing := False; + end; +end; + +procedure TfrmARTAllergy.Validate(var AnErrMsg: string); +var + tmpDate: TFMDateTime; + + procedure SetError(const x: string); + begin + if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF; + AnErrMsg := AnErrMsg + x; + end; + +begin + AnErrMsg := ''; + if tabEnteredInError.TabVisible then exit; + if not ckNoKnownAllergies.Checked then + 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 = 0) then + begin + if (lstSelectedSymptoms.Items.Count = 0) then SetError(TX_NO_SYMPTOMS); + if (grpObsHist.Enabled) and RequireOriginatorComments and (not ContainsVisibleChar(memComments.Text)) then + SetError(TX_ORIG_CMTS_REQD); + if (grpObsHist.Enabled) and (calObservedDate.Text = '') then + SetError(TX_MISSING_OBS_DATE); + end; + if cboAllergyType.ItemID = '' then SetError(TX_NO_ALLGYTYPE); + with cboNatureOfReaction do + if (ItemID = '') or (ItemIndex < 0) or (Text = '') then + SetError(TX_NO_NATURE_OF_REACTION) + else + NewRec.NatureOfReaction := ItemID + U + Text; + end; + if (cboOriginator.ItemIEN = 0) or (cboOriginator.Text = '') then SetError(TX_NO_ORIGINATOR); + with NewRec do + begin + if calObservedDate.Text <> '' then + begin + tmpDate := ValidDateTimeStr(calObservedDate.Text, 'TS'); + if tmpDate > 0 then + begin + if tmpDate > FMNow then SetError(TX_NO_FUTURE_DATES) + else ReactionDate := tmpDate; + end + else + begin + SetError(TX_BAD_OBS_DATE); + pgAllergy.ActivePage := tabGeneral; + end; + end; + if tabVerify.TabVisible then + if calVerifyDate.Text <> '' then + begin + tmpDate := ValidDateTimeStr(calVerifyDate.Text, 'TS'); + if tmpDate > 0 then VerifiedDateTime := tmpDate + else + begin + SetError(TX_BAD_VER_DATE); + pgAllergy.ActivePage := tabVerify; + end; + end; + if calOriginated.Text <> '' then + begin + tmpDate := ValidDateTimeStr(calOriginated.Text, 'TS'); + if tmpDate > 0 then + begin + if tmpDate > FMNow then SetError(TX_NO_FUTURE_ORIG_DATES) + else Originated := tmpDate; + end + else + begin + SetError(TX_BAD_ORIG_DATE); + pgAllergy.ActivePage := tabGeneral; + end; + end + else + begin + SetError(TX_MISSING_ORIG_DATE); + pgAllergy.ActivePage := tabGeneral; + end; + end; +end; + +procedure TfrmARTAllergy.cboOriginatorNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + cboOriginator.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmARTAllergy.cboSymptomsNeedData(Sender: TObject; + const StartFrom: string; Direction, InsertAt: Integer); +begin + inherited; + cboSymptoms.ForDataUse(SubSetOfSymptoms(StartFrom, Direction)); +end; + +procedure TfrmARTAllergy.grpObsHistClick(Sender: TObject); +begin + inherited; + Changing := True; + cboSeverity.ItemIndex := -1; + case grpObsHist.ItemIndex of + 0: begin + cboSeverity.Visible := True; + lblSeverity.Visible := True; + btnSevHelp.Visible := True; + calObservedDate.Visible := True; + lblObservedDate.Visible := True; + calObservedDate.FMDateTime := FMToday; + end; + 1: begin + cboSeverity.Visible := False; + lblSeverity.Visible := False; + btnSevHelp.Visible := False; + calObservedDate.Visible := False; + lblObservedDate.Visible := False; + end; + end; + Changing := False; + ControlChange(Self); +end; + +procedure TfrmARTAllergy.ControlChange(Sender: TObject); +var + MyFMNow: TFMDateTime; + i: integer; + SourceGlobalRoot: string; +begin + inherited; + if Changing then Exit; + MyFMNow := FMNow; + with NewRec do + begin + if (not uEditing) and (not uEnteredInError) then IEN := 0; + if ckNoKnownAllergies.Checked then + begin + with cboOriginator do if ItemIEN > 0 then + begin + Originator := ItemIEN; + OriginatorName := Text; + end; + NoKnownAllergies := True; + end + else if tabEnteredInError.TabVisible then + begin + EnteredInError := ckEnteredInError.Checked; + if EnteredInError then + begin + DateEnteredInError := MyFMNow; {***} + UserEnteringInError := User.DUZ; + with memErrCmts do if GetTextLen > 0 then ErrorComments.Assign(Lines); + end; + end + else + with lstAllergy do if (Items.Count > 0) then + if (Piece(Items[0], U, 1) <> '-1') and (Length(DisplayText[0]) > 0) then + 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; + with cboAllergyType do + if ItemID <> '' then + AllergyType := ItemID + U + Text; + with cboNatureOfReaction do + if ItemID <> '' then + NatureOfReaction := ItemID + U + Text; + with cboOriginator do + if ItemIEN > 0 then + begin + Originator := ItemIEN; + OriginatorName := Text; + end; + SignsSymptoms.Clear; + for i := 0 to uDeletedSymptoms.Count - 1 do + SignsSymptoms.Add(uDeletedSymptoms[i]); + with lstSelectedSymptoms do + for i := 0 to Items.Count - 1 do + SignsSymptoms.Add(Items[i]); + if tabVerify.TabVisible then + begin + Verified := ckVerified.Checked; + with cboVerifier do + if ItemIEN > 0 then + begin + Verifier := ItemIEN; + VerifierName := Text; + end; + end; + NewRec.ChartMarked.Clear; + if ckChartMarked.Checked then + ChartMarked.Add(FloatToStr(MyFMNow)); + NewRec.IDBandMarked.Clear; + if ckIDBand.Checked then + IDBandMarked.Add(FloatToStr(MyFMNow)); + with grpObsHist do + if ItemIndex > -1 then + begin + if ItemIndex = 0 then + Observed_Historical := 'o^OBSERVED' + else + Observed_Historical := 'h^HISTORICAL'; + end; +(* tmpDate := ValidDateTimeStr(calObservedDate.Text, 'TS'); {***} + if tmpDate > 0 then ReactionDate := tmpDate;*) + with cboSeverity do + if (ItemID <> '') and (Text <> '') then + Severity := ItemID + else + Severity := ''; + with memComments do + if GetTextLen > 0 then + NewComments.Assign(Lines); + end; + end; +end; + +procedure TfrmARTAllergy.lstAllergySelect(Sender: TObject); +begin + inherited; + with lstAllergy do + begin + if Items.Count = 0 then + Exit + else if Piece(Items[0], U, 1) = '-1' then + Exit; + if Piece(Items[0], U, 1) <> FLastAllergyID then + FLastAllergyID := Piece(Items[0], U, 1) + else + Exit; + Changing := True; + //if Sender <> Self then FillChar(NewRec, SizeOf(NewRec), 0); // Sender=Self when called from SetupDialog + Changing := False; + end; + ControlChange(Self) ; +end; + +procedure TfrmARTAllergy.memCommentsExit(Sender: TObject); +var + AStringList: TStringList; +begin + inherited; + AStringList := TStringList.Create; + try + AStringList.Assign(memComments.Lines); + LimitStringLength(AStringList, 74); + memComments.Lines.Assign(AstringList); + ControlChange(Self); + finally + AStringList.Free; + end; +end; + +procedure TfrmARTAllergy.btnAgentClick(Sender: TObject); +var + Allergy: string; +begin + inherited; + AllergyLookup(Allergy, ckNoKnownAllergies.Enabled); + if Piece(Allergy, U, 1) = '-1' then + ckNoKnownAllergies.Checked := True + else if Allergy <> '' then + begin + lstAllergy.Clear; + lstAllergy.Items.Add(Allergy); + cboAllergyType.SelectByID(Piece(Allergy, U, 4)); + end + else + begin + Close; + exit; + end; + ControlChange(lstAllergy); +end; + +procedure TfrmARTAllergy.cboSymptomsClick(Sender: TObject); +begin + inherited; + if cboSymptoms.ItemIndex < 0 then exit; + Changing := True; + if lstSelectedSymptoms.SelectByID(cboSymptoms.ItemID) > -1 then exit; + with lstSelectedSymptoms do + begin + Items.Add(cboSymptoms.Items[cboSymptoms.ItemIndex]); + SelectByID(cboSymptoms.ItemID); + end; + Changing := False; + ControlChange(Self) +end; + +procedure TfrmARTAllergy.FormDestroy(Sender: TObject); +begin + OldRec.SignsSymptoms.Free; + OldRec.IDBandMarked.Free; + OldRec.ChartMarked.Free; + OldRec.Observations.Free; + OldRec.Comments.Free; + OldRec.NewComments.Free; + OldRec.ErrorComments.Free; + NewRec.SignsSymptoms.Free; + NewRec.IDBandMarked.Free; + NewRec.ChartMarked.Free; + NewRec.Observations.Free; + NewRec.Comments.Free; + NewRec.NewComments.Free; + NewRec.ErrorComments.Free; + Defaults.Free; + uDeletedSymptoms.Free; + AllergyList.Free; + inherited; +end; + +procedure TfrmARTAllergy.ckNoKnownAllergiesClick(Sender: TObject); +begin + inherited; + Changing := True; + FNKAOrder := ckNoKnownAllergies.Checked; + EnableDisableControls(not FNKAOrder); + Changing := False; + ControlChange(Self); +end; + +procedure TfrmARTAllergy.EnableDisableControls(EnabledStatus: boolean); +begin + //InitDialog; + with pgAllergy do + begin + tabVerify.TabVisible := FALSE; //EnabledStatus; per Dave, leave out for now. + tabEnteredInError.TabVisible := uEnteredInError; + tabGeneral.TabVisible := not uEnteredInError; + end; + btnAgent.Enabled := EnabledStatus; + cboAllergyType.Enabled := EnabledStatus; + cboNatureOfReaction.Enabled := EnabledStatus; + lblAllergyType.Enabled := EnabledStatus; + lblAgent.Enabled := EnabledStatus; + lblSymptoms.Enabled := EnabledStatus; + lblSelectedSymptoms.Enabled := EnabledStatus; + grpObsHist.Enabled := EnabledStatus; + memComments.Enabled := EnabledStatus; + lblComments.Enabled := EnabledStatus; + lstSelectedSymptoms.Enabled := EnabledStatus; + lblObservedDate.Enabled := EnabledStatus; + calObservedDate.Enabled := EnabledStatus; + lblSeverity.Enabled := EnabledStatus; + cboSeverity.Enabled := EnabledStatus; + btnSevHelp.Enabled := EnabledStatus; + lstAllergy.Enabled := EnabledStatus; + cboSymptoms.Enabled := EnabledStatus; + btnDateTime.Enabled := EnabledStatus; +end; + +procedure TfrmARTAllergy.cmdOKClick(Sender: TObject); +const + TX_ENTERED_IN_ERROR = 'Mark this entry as ''Entered in Error''?'; + TC_ENTERED_IN_ERROR = 'Are you sure?'; +var + Saved: string; +begin + if ValidSave then + begin + if uEnteredInError then + if not (InfoBox(TX_ENTERED_IN_ERROR, TC_ENTERED_IN_ERROR, MB_YESNO or MB_ICONQUESTION) = ID_YES) then + begin + FChanged := False; + Close; + Exit; + end; + Saved := SaveAllergy(NewRec); + FChanged := (Piece(Saved, U, 1) = '0'); + if not FChanged then + InfoBox(TX_NO_SAVE + Piece(Saved, U, 2), TX_NO_SAVE_CAP, MB_OK) + else + begin + SendMessage(Application.MainForm.Handle, UM_NEWORDER, ORDER_SIGN, 0); + Application.ProcessMessages; + end; + Close; + end; +end; + +function TfrmARTAllergy.ValidSave: Boolean; +var + ErrMsg: string; +begin + Result := True; + Validate(ErrMsg); + if Length(ErrMsg) > 0 then + begin + InfoBox(TX_NO_SAVE + ErrMsg, TX_NO_SAVE_CAP, MB_OK); + Result := False; + end; +end; + +procedure TfrmARTAllergy.btnCurrentClick(Sender: TObject); +const + VIEW_CURRENT = 'Current Allergies/Adverse Reactions for '; +begin + inherited; + ReportBox(DetailPosting('A'), VIEW_CURRENT + Patient.Name, True) +end; + +procedure TfrmARTAllergy.btnRemoveClick(Sender: TObject); +var + i: integer; + x: string; +begin + inherited; + Changing := True; + with lstSelectedSymptoms do + begin + if (Items.Count = 0) or (ItemIndex = -1) then exit; + i := ItemIndex; + if uEditing then + begin + if OldRec.SignsSymptoms.IndexOf(Items[ItemIndex]) > -1 then + begin + x := Items[i]; + SetPiece(x, U, 5, '@'); + uDeletedSymptoms.Add(x); + end; + end; + Items.Delete(ItemIndex); + ItemIndex := i - 1; + if (Items.Count > 0) and (ItemIndex = -1) then ItemIndex := 0; + end; + Changing := False; + ControlChange(btnRemove); +end; + +procedure TfrmARTAllergy.lstAllergyClick(Sender: TObject); +begin + inherited; + lstAllergy.ItemIndex := -1; +end; + +procedure TfrmARTAllergy.btnDateTimeClick(Sender: TObject); +var + AFMDateTime: TFMDateTime; + x: string; +begin + inherited; + Changing := True; + with lstSelectedSymptoms do + begin + if (Items.Count = 0) or (ItemIndex = -1) then exit; + AFMDateTime := MakeFMDateTime(Piece(Items[ItemIndex], U, 3)); + if AFMDateTime > 0 then + dlgReactionDateTime.FMDateTime := AFMDateTime + else + dlgReactionDateTime.FMDateTime := FMNow; + if not dlgReactionDateTime.Execute then exit; + if dlgReactionDateTime.FMDateTime > FMNow then + InfoBox(TX_NO_FUTURE_DATES, TX_CAP_FUTURE, MB_OK) + else + begin + x := Items[ItemIndex]; + x := ORFn.Pieces(x, U, 1, 2) + U + FloatToStr(dlgReactionDateTime.FMDateTime) + U + + FormatFMDateTime('mmm dd,yyyy@hh:nn', dlgReactionDateTime.FMDateTime); + Items[ItemIndex] := x; + end; + end; + Changing := False; + ControlChange(btnDateTime); +end; + +procedure TfrmARTAllergy.cboSymptomsMouseClick(Sender: TObject); +const + TC_SS_MAX = 'Too many signs/symptoms'; + TX_SS_MAX = 'A maximum of 38 signs/symptoms may be selected.'; +var + x: string; +begin + inherited; + with cboSymptoms do if (ItemIndex < 0) or (Text = '') or (ItemID = '') then exit; + if (lstSelectedSymptoms.SelectByID(cboSymptoms.ItemID) > -1) or + (lstSelectedSymptoms.Items.IndexOf(cboSymptoms.Text) > -1) then exit; + if (lstSelectedSymptoms.Count + 1) > 38 then + begin + InfoBox(TX_SS_MAX, TC_SS_MAX, MB_ICONERROR or MB_OK); + exit; + end; + Changing := True; + if cboSymptoms.ItemIndex > -1 then + begin + with cboSymptoms do + if Piece(Items[ItemIndex], U, 3) <> '' then + x := ItemID + U + Piece(Items[ItemIndex], U, 3) + else + x := ItemID + U + Piece(Items[ItemIndex], U, 2); + with lstSelectedSymptoms do + begin + Items.Add(x); + SelectByID(cboSymptoms.ItemID); + end; + end ; +(* else Free-text entries no longer allowed. + with lstSelectedSymptoms do + begin + Items.Add('FT' + U + cboSymptoms.Text); + ItemIndex := Items.Count - 1; + end;*) + Changing := False; + ControlChange(Self) +end; + +procedure TfrmARTAllergy.cboSymptomsKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_RETURN then cboSymptomsMouseClick(Self); +end; + +procedure TfrmARTAllergy.cmdCancelClick(Sender: TObject); +begin + inherited; + FChanged := False; + Close; +end; + +procedure TfrmARTAllergy.cmdPrevCmtsClick(Sender: TObject); +const + CMT_CAPTION = 'View previous comments'; +begin + inherited; + ReportBox(OldRec.Comments, CMT_CAPTION, False); +end; + +procedure TfrmARTAllergy.cmdPrevObsClick(Sender: TObject); +const + OBS_CAPTION = 'View previous observations'; +begin + inherited; + ReportBox(OldRec.Observations, OBS_CAPTION, False); +end; + +procedure TfrmARTAllergy.lstSelectedSymptomsChange(Sender: TObject); +begin + inherited; + with lstSelectedSymptoms do + begin + btnDateTime.Enabled := (ItemIndex <> -1); + btnRemove.Enabled := btnDateTime.Enabled; + end; + //ControlChange(Self); +end; + +procedure TfrmARTAllergy.cboVerifierNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + inherited; + cboVerifier.ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmARTAllergy.SetupVerifyFields(ARec: TAllergyRec); +var + CanBeVerified: boolean; +begin + tabVerify.TabVisible := False; // FOR NOW + if not tabVerify.TabVisible then exit; + if not uUserCanVerify then + begin + tabVerify.TabVisible := False; + exit; + end; + Changing := True; + with ARec do + begin + ckVerified.Checked := Verified; + CanBeVerified := (not Verified) and uUserCanVerify; + if CanBeVerified then + begin + cboVerifier.InitLongList(User.Name); + cboVerifier.SelectByIEN(User.DUZ); + cboVerifier.Font.Color := clWindowText; + calVerifyDate.FMDateTime := FMNow; + end + else + begin + cboVerifier.InitLongList(VerifierName); + cboVerifier.SelectByIEN(Verifier); + cboVerifier.Font.Color := clGrayText; + calVerifyDate.FMDateTime := VerifiedDateTime; + end; + cboVerifier.Enabled := CanBeVerified; + calVerifyDate.Enabled := CanBeVerified; + ckVerified.Enabled := CanBeVerified; + lblVerifier.Enabled := CanBeVerified; + lblVerifyDate.Enabled := CanBeVerified; + end; + Changing := False; + ControlChange(ckVerified); +end; + +procedure TfrmARTAllergy.SetUpEnteredInErrorFields(ARec: TAllergyRec); +const + TC_ERR_CMTS_OPTIONAL = 'Comments (optional)'; + TC_ERR_CMTS_DISABLED = 'Comments (disabled)'; + TX_ENTERED_IN_ERROR1 = 'Clicking ''OK'' will mark '; + TX_ENTERED_IN_ERROR2 = ' as ''Entered in Error''.'; + +begin + tabEnteredInError.TabVisible := uEnteredInError; + tabGeneral.TabVisible := not uEnteredInError; + tabVerify.TabVisible := FALSE; // not uEnteredInError; + Changing := True; + ckEnteredInError.Checked := uEnteredInError; + if uEnteredInError then + begin + lblEnteredInError.Caption := TX_ENTERED_IN_ERROR1 + UpperCase(OldRec.CausativeAgent) + TX_ENTERED_IN_ERROR2; + if EnableErrorComments then + begin + memErrCmts.Enabled := True; + memErrCmts.Color := clWindow; + lblErrCmts.Enabled := True; + lblErrCmts.Caption := TC_ERR_CMTS_OPTIONAL; + ActiveControl := memErrCmts; + end + else + begin + memErrCmts.Enabled := False; + memErrCmts.Color := clBtnFace; + lblErrCmts.Enabled := False; + lblErrCmts.Caption := TC_ERR_CMTS_DISABLED; + ActiveControl := cmdOK; + end; + end; + Changing := False; + ControlChange(ckEnteredInError); +end; + + +procedure TfrmARTAllergy.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + uEditing := False; + uEnteredInError := False; + uAddingNew := False; + Application.HintHidePause := FOldHintPause; + Action := caFree; +end; + +procedure TfrmARTAllergy.FormCloseQuery(Sender: TObject; + var CanClose: Boolean); +begin + inherited; + if AbortAction then exit; +end; + +procedure TfrmARTAllergy.btnSevHelpClick(Sender: TObject); +const + TX_SEV_DEFINITION = 'MILD - Requires minimal therapeutic intervention '+#13+#10+ + 'such as discontinuation of drug(s)'+#13+#10+''+#13+#10+ + 'MODERATE - Requires active treatment of adverse reaction, '+#13+#10+ + 'or further testing or evaluation to assess extent of non-serious'+#13+#10+ + 'outcome (see SEVERE for definition of serious).'+#13+#10+''+#13+#10+ + 'SEVERE - Includes any serious outcome, resulting in life- or'+#13+#10+ + 'organ-threatening situation or death, significant or permanent'+#13+#10+ + 'disability, requiring intervention to prevent permanent impairment '+#13+#10+ + 'or damage, or requiring/prolonging hospitalization.'; + TC_SEV_CAPTION = 'Severity Levels'; +begin + inherited; + InfoBox(TX_SEV_DEFINITION, TC_SEV_CAPTION, MB_ICONINFORMATION or MB_OK); +end; + +end. diff --git a/CPRS-Chart/fARTFreeTextMsg.dfm b/CPRS-Chart/fARTFreeTextMsg.dfm new file mode 100644 index 0000000..bda6f07 --- /dev/null +++ b/CPRS-Chart/fARTFreeTextMsg.dfm @@ -0,0 +1,75 @@ +inherited frmARTFreeTextMsg: TfrmARTFreeTextMsg + Left = 426 + Top = 266 + Width = 394 + Height = 359 + Caption = 'Enter Optional Comments' + Constraints.MinHeight = 180 + Constraints.MinWidth = 394 + Position = poMainFormCenter + PixelsPerInch = 96 + TextHeight = 13 + object pnlText: TORAutoPanel + Left = 0 + Top = 0 + Width = 386 + Height = 133 + Align = alTop + BevelOuter = bvNone + Constraints.MinHeight = 133 + TabOrder = 0 + object lblText: TLabel + Left = 17 + Top = 7 + Width = 3 + Height = 13 + end + object lblComments: TOROffsetLabel + Left = 2 + Top = 118 + Width = 100 + Height = 15 + Caption = 'Comments (optional):' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + end + object pnlButton: TORAutoPanel + Left = 0 + Top = 294 + Width = 386 + Height = 38 + Align = alBottom + BevelOuter = bvNone + Constraints.MinHeight = 38 + TabOrder = 2 + object cmdContinue: TButton + Left = 155 + Top = 9 + Width = 75 + Height = 21 + Caption = 'Continue' + Constraints.MinHeight = 21 + TabOrder = 0 + OnClick = cmdContinueClick + end + end + object memFreeText: TCaptionRichEdit + Left = 0 + Top = 133 + Width = 386 + Height = 161 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PlainText = True + TabOrder = 1 + Caption = 'Additional comments:' + end +end diff --git a/CPRS-Chart/fARTFreeTextMsg.pas b/CPRS-Chart/fARTFreeTextMsg.pas new file mode 100644 index 0000000..d88da1f --- /dev/null +++ b/CPRS-Chart/fARTFreeTextMsg.pas @@ -0,0 +1,74 @@ +unit fARTFreeTextMsg; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls, ORCtrls; + +type + TfrmARTFreeTextMsg = class(TfrmAutoSz) + pnlText: TORAutoPanel; + pnlButton: TORAutoPanel; + cmdContinue: TButton; + lblText: TLabel; + memFreeText: TCaptionRichEdit; + lblComments: TOROffsetLabel; + procedure cmdContinueClick(Sender: TObject); + private + FContinue: boolean; + public + end; + + const + LABEL_TEXT = 'You may now add any comments you may have to the message that' + CRLF + + 'is going to be sent with the request to add this reactant.' + CRLF + CRLF + + + 'You may want to add things like sign/symptoms, observed or historical, etc.,' + CRLF + + 'that may be useful to the reviewer.' + CRLF + CRLF + + + 'Already included are the entry you attempted, the patient you attempted to' + CRLF + + 'enter it for, and your name, title, and contact information.'; + + var + tmpList: TStringList; + + procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean); + +implementation + +{$R *.dfm} + +procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean); +var + frmARTFreeTextMsg: TfrmARTFreeTextMsg; +begin + frmARTFreeTextMsg := TfrmARTFreeTextMsg.Create(Application); + tmpList := TStringList.Create; + try + with frmARTFreeTextMsg do + begin + FContinue := OKtoContinue; + tmpList.Text := ''; + lblText.Caption := LABEL_TEXT; + ResizeFormToFont(TForm(frmARTFreeTextMsg)); + ActiveControl := memFreeText; + frmARTFreeTextMsg.ShowModal; + OKtoContinue := FContinue; + AFreeTextComment.Assign(tmpList); + end; + finally + tmpList.Free; + frmARTFreeTextMsg.Release; + end; +end; + +procedure TfrmARTFreeTextMsg.cmdContinueClick(Sender: TObject); +begin + inherited; + tmpList.Assign(memFreeText.Lines); + FContinue := True; + Close; +end; + +end. diff --git a/CPRS-Chart/fAResize.dfm b/CPRS-Chart/fAResize.dfm new file mode 100644 index 0000000..1a9d20f --- /dev/null +++ b/CPRS-Chart/fAResize.dfm @@ -0,0 +1,9 @@ +inherited frmAutoResize: TfrmAutoResize + Left = 276 + Top = 383 + Caption = 'Basic Auto-Resize Page' + OnDestroy = FormDestroy + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 +end diff --git a/CPRS-Chart/fAResize.pas b/CPRS-Chart/fAResize.pas new file mode 100644 index 0000000..5db65f7 --- /dev/null +++ b/CPRS-Chart/fAResize.pas @@ -0,0 +1,96 @@ +unit fAResize; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, + fPage, ExtCtrls; + +type + TfrmAutoResize = class(TfrmPage) + procedure FormDestroy(Sender: TObject); + procedure FormResize(Sender: TObject); + private + FSizes: TList; + protected + procedure Loaded; override; + end; + +var + frmAutoResize: TfrmAutoResize; + +implementation + +{$R *.DFM} + +type + TSizeRatio = class // records relative sizes and positions for resizing logic + CLeft: Extended; + CTop: Extended; + CWidth: Extended; + CHeight: Extended; + constructor Create(ALeft, ATop, AWidth, AHeight: Extended); + end; + +{ TSizeRatio methods } + +constructor TSizeRatio.Create(ALeft, ATop, AWidth, AHeight: Extended); +begin + CLeft := ALeft; CTop := ATop; CWidth := AWidth; CHeight := AHeight; +end; + +{ TfrmAutoResize methods } + +procedure TfrmAutoResize.Loaded; +{ record initial size & position info for resizing logic } +var + SizeRatio: TSizeRatio; + i,H,W: Integer; +begin + FSizes := TList.Create; + H := ClientHeight; + W := ClientWidth; + for i := 0 to ControlCount - 1 do with Controls[i] do + begin + SizeRatio := TSizeRatio.Create(Left/W, Top/H, Width/W, Height/H); + FSizes.Add(SizeRatio); + end; + inherited Loaded; +end; + +procedure TfrmAutoResize.FormResize(Sender: TObject); +{ resize child controls using their design time proportions } +var + SizeRatio: TSizeRatio; + i,H,W: Integer; +begin + inherited; + H := Height; + W := Width; + with FSizes do for i := 0 to ControlCount - 1 do + begin + SizeRatio := Items[i]; + with SizeRatio do + if Controls[i] is TLabel then with Controls[i] do + SetBounds(Round(CLeft*W), Round(CTop*H), Width, Height) + else + Controls[i].SetBounds(Round(CLeft*W), Round(CTop*H), Round(CWidth*W), Round(CHeight*H)); + end; {with FSizes} +end; + +procedure TfrmAutoResize.FormDestroy(Sender: TObject); +{ destroy objects used to record size and position information for controls } +var + SizeRatio: TSizeRatio; + i: Integer; +begin + inherited; + with FSizes do for i := 0 to Count-1 do + begin + SizeRatio := Items[i]; + SizeRatio.Free; + end; + FSizes.Free; +end; + +end. diff --git a/CPRS-Chart/fAbout.ddp b/CPRS-Chart/fAbout.ddp new file mode 100644 index 0000000..4370276 Binary files /dev/null and b/CPRS-Chart/fAbout.ddp differ diff --git a/CPRS-Chart/fAbout.dfm b/CPRS-Chart/fAbout.dfm new file mode 100644 index 0000000..5611309 --- /dev/null +++ b/CPRS-Chart/fAbout.dfm @@ -0,0 +1,1690 @@ +inherited frmAbout: TfrmAbout + Left = 311 + Top = 55 + BorderIcons = [biSystemMenu] + BorderStyle = bsDialog + Caption = 'About CPRS' + ClientHeight = 472 + ClientWidth = 337 + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object bvlBottom: TBevel + Left = 6 + Top = 285 + Width = 326 + Height = 42 + end + object bvl508Disclaimer: TBevel + Left = 6 + Top = 337 + Width = 326 + Height = 101 + end + object lblProductName: TStaticText + Left = 6 + Top = 197 + Width = 79 + Height = 17 + Caption = 'lblProductName' + TabOrder = 1 + TabStop = True + end + object lblFileVersion: TStaticText + Left = 193 + Top = 197 + Width = 65 + Height = 17 + Caption = 'lblFileVersion' + TabOrder = 2 + TabStop = True + end + object lblCompanyName: TStaticText + Left = 6 + Top = 214 + Width = 86 + Height = 17 + Caption = 'lblCompanyName' + TabOrder = 3 + TabStop = True + end + object lblComments: TStaticText + Left = 193 + Top = 232 + Width = 63 + Height = 17 + Caption = 'lblComments' + TabOrder = 5 + TabStop = True + end + object lblCRC: TStaticText + Left = 6 + Top = 266 + Width = 36 + Height = 17 + Caption = 'lblCRC' + TabOrder = 8 + TabStop = True + end + object lblLegalCopyright: TMemo + Left = 8 + Top = 288 + Width = 322 + Height = 38 + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'lblLegalCopyright') + ReadOnly = True + TabOrder = 9 + end + object lblFileDescription: TStaticText + Left = 6 + Top = 249 + Width = 83 + Height = 17 + Caption = 'lblFileDescription' + TabOrder = 6 + TabStop = True + end + object lblInternalName: TStaticText + Left = 193 + Top = 249 + Width = 77 + Height = 17 + Caption = 'lblInternalName' + TabOrder = 7 + TabStop = True + end + object lblOriginalFileName: TStaticText + Left = 6 + Top = 232 + Width = 93 + Height = 17 + Caption = 'lblOriginalFileName' + TabOrder = 4 + TabStop = True + end + object Panel1: TPanel + Left = 6 + Top = 6 + Width = 325 + Height = 183 + BevelInner = bvLowered + BevelWidth = 3 + BorderWidth = 6 + Caption = 'Panel1' + TabOrder = 0 + object Image1: TImage + Left = 13 + Top = 12 + Width = 300 + Height = 159 + Picture.Data = { + 07544269746D61708ABE0000424D8ABE00000000000036040000280000002C01 + 00009F000000010008000000000054BA00000000000000000000000100000001 + 0000B1B0C5003222D000A8A5C700301FC1002412A700A199D200AEA8D500B4AE + D900BEBAD9002101C6001D01AC002301CB002101C3002101C1002101BE003010 + C1003010BF004121CF005134CF007A68CD001F0293001A027400120350003811 + D0002F0FB9003F1FC100391DAD009283CF00C5BAEF00C4BFD8006548CF00A99B + DB003101C5002F01C1002F01BF002C01B4002901A500DFDBEB003F11C100390F + AD00D3D1D300CBC8C800CDCBCB00BAB5B400BEBBB900B7B5B300D5D3D1009E61 + 2000B2997E00914F01008F4F0100915102009F5F1100C0B6AA00D2CDC7008F51 + 0100A06F2F00AA7D4300B3916500BEA68700B2A49200CDC5BB00C4B39B00915F + 10009F6F2100CBC0AF00B6AFA400C5C1BA00BFBBB400D1CFCB00C9C7C300ABA9 + A400CFCBBD00D3D3CD00ADADA900D3D3D000D5D5D300BDBDBB00B1B7B100C5CB + C500D3D5D300C3C5C300CBD7D100D1D7D500CDD5D30001FFFF0003FFFF0005F1 + F1000DF9F90011FBFC0017F2F30027F4F5003AEDEE0050E5E6008EE1E100ADE9 + E900A9DADA00ADC5C500BAD3D300A6BBBB00B4C9C900949F9F00D0DDDD00CAD6 + D600BBC6C600B3BEBE00BFC9C900ADB6B600C6CFCF00C9D1D100D1D8D800CFD6 + D600CCD3D300C7CCCC00AAAEAE00D3D7D700D1D5D50034353500D6D9D900A3A5 + A50054555500E6E8E800E0E2E200D3D5D500D1D3D300CFD1D100CDCFCF00CBCD + CD00C9CBCB00C3C5C500BDBFBF00BBBDBD00B7B9B900B3B5B500717272005C5D + 5D0057585800D5D6D600C8C9C900C5C6C600BFC0C000B5B6B600B2B3B300B0B1 + B100A9AAAA00A1A2A200989999008D8E8E008788880001FAFF0028E3E90069DB + DE0001F2FF0072B9BD008DCFD300C2D7D8009CA7A800A2ADAE00C5D2D300C1CC + CD0001E6FF0008DEF6008D979800B0BABB00A8B2B300B7C1C20009D1EF00B0CE + D20001D9FF004BB0C10008D0F8000BC5E900BEC3C40001CCFF0001D0FF00579A + A900537B850001C9FF0009C3F60010BAE9002FB8DB002F8CA5002C5E6C003775 + 860004BCF20016A4CF001085AF009EB1B8003D404100D9DCDD00CBD7DC007080 + 8800D1D5D8000B559300B6C2CC006F757A00ADB9C4007F8890000C5FAD001775 + D300C1CBD500C9D0D70045474900505152004C4D4E0060616200D3D5D700797A + 7B0066676800A6A7A8009D9E9F009293940080818200C1C2C3004D596600AAB3 + BE00CFD2D6006B6C6E00D4DAE900858CA000BFC3CE00AAABAE00D2D3D600CCCD + D000122A8300989AA800D3D4DB002635C2009A9DB600B4B5BE00AFB0B900C4C5 + CE00BEBFC800BBBCC500C8C9D10093949F00A9AAB6009E9FA900A5A6B0001C21 + C600B7B7CE00CACAD600B8B8C200CECED800C8C8CC00D1D1D300BDBDBF00BABA + BB00D3D3D300D1D1D100CFCFCF00CDCDCD00CBCBCB00C7C7C700BDBDBD00AEAE + AE007B7B7B7B7B7B7B7B7B7B7B7B8AD5FD80808080808A8C85909090909090DD + 8DD57C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B8A838FD1 + D190909090858280806D6D9F9F6A69A46BA56D535353535353535353537B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B536D9F9F9F9F9F6A6A6A6A6A686868686A + 717B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507C5050507C8082F7828AF7DD + 91D291D2D2908E83828282828C7F89897F7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B73706A686868A569A49C6593C5C5C5C5C5C593939277 + FF8F8F8F8E858D8C804CF88AFD8B8283696A6A6868686868686A9E67676F7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7F7F7E7D7D7D7F8080D58282E8DCEADCDC + DCDCEAEAF4E9F2F2E9E7EAEAD8DE7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + DED8D8D8D8D8D8D8F4E5D7D7C4DCDCDCDCC8D8737B7B735470706A6A6D747B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B53547070 + 70709FA5C4C4C4636363636363C4C2C86F73737373D8747B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7D7D7071696969A5A5A5A5A5689F6C6C686A6D54 + 73737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507E8A8C + 8472DDDDDDDD90919293929190DDDDFF8DFE8C8C8CD5F7FFDDDDDDE6D7C2C4BB + BBBBBBBBBBBBD7C4A59FD8737373C0737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7D7E7E7E7E7E7E7E7E7E7E7D7C7B7B7BC3C3D4C5A29C + 726B696A70507B7B7B507C7C7C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7DFD81818181818B8A71807F7E7E80 + 8C848F838A7E7C50505050507B7B7B7B7B50507B7B7B7B7B7B7B7B7B7C808080 + 807F7C505089897B7B7B737B7B507C7D505050505050507E8080808A8080807F + 7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BFD4DF74D828C82828C515183 + E5E9E9E5E6E6E5E9EAD8EAEAE7E7E7DCE8E8E8EAD87B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B74747474745373737373 + 737373737B7B93D3D29085FD7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B746DA56B9D6565 + 6565659C9D9D9D9D9D9C9C908F827F7C50507B7B7B7B7B7B7B7C7C7D8A83858E + 8E8E8E8D8C8A7C7C7C808AD5844D8D8D8A7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B507C7C5050507B7B7B50507B7B7B6E53735353709F9F9F9F + 9F9F9FA5A3A36B9D9CEDEDEDEEE6E8DFDE7DDFDFEAE8E5E5E6ECECE5D5FD5185 + 90D2D3D3D3926565659C9DA46BA5A5A5A5A5A59F6F7B7B7B7B7B7B7470707053 + 737373737373737474747474546C71707B7B7D51848585858585F751FD5151FD + 7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B746D6A686868686868807F7E7E7D7B7B7B7B7B7B7B7B7B7B + 7C80FD83858E90D29394CF86D9D986CFD49494D3D27791D190FF8D8482D5F4EA + EAEAEAEAF4E9F2F2E5ECEEEEEEEEECE6E87D7B7B7B7D7E7F7F7C7C7C7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B746D67737B73679E9E9E9E9E9E6A689F9FA56B9D9DFF8F8F8E8381838E8F + 8FFFDDDDDD90FFF78B7E7E7F8A8C8D858DD56A6861616164626262626262629B + 676E7373737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7C + 507B7B7C7C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7BDE7DDFDFDFDFEADCF2E5E5E5E5E5E5E8F1E2 + E27B7B7B7B7B7B7B7C7F7FD58FD17777777791D2D393D4CF8686CFD4939291DD + 8DD5D5515151518B507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7C7E7F80FD8DDD90858B8A82848D8D8D8483848D848D72 + 77777284838E8F8E85FF7792929292929292D2908E6B9D9D9DA4A4A46B696A6A + A56BA4A3A5A5A5A5687F7C505050507F8C8CD57E7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7BD9CFD4939291FF827F507B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7474747474 + 74746D68686868A5A59F6CBEBE747B7B7B7B7B7B746C74737474747474747474 + 7169A49C65A2A29277FFFF9090DDDDDDDDDDDD72837F7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507C2A808AD58D90D2D3659CA4 + 6BA4A4A4A4A46B6969696969686C747B7B7B7B7B7B7B7B7D7F518C8472DD72FF + FF90777777D1D1D1D18F828BF6858E838A8080807F7B7B7B7B7B7B7DD58C8CD5 + 7C7B7B7BD8DFDFDFE7E8E8E8E8E8DF7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BD494D3D2908D8A7C7B7B + 7B7B7B7B7B7B7B7B73537B7B746F7070707070507C7C7C7B7B7B507C507B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BE2E2F1F1EAD8DE7B7B7B7B7B + DEF37B7B7B7B7B7B7B7B7B7B7B7B7BFD838E8E85F7F7F78D8D856BA4A4A4A4A4 + 696A6F7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B50 + 7C7E7E7E80828E90D2D2D18F8E8E8F8F8F8F8EF7838383838C7F7B7B7B7B7B7B + 7B7B7B7B749FC2C4ECECECECEC9D9CEDEDEDEDEDEDEEE6E8E8E9828A8A808080 + 807C7B7B7B7B7B7C8A8A8A8A7B7B7B7B7B7F8080FD808A8A8AD5D57D7F80807F + 80807F7F507B5080D580808080807F7D507B7B50706AA3A5AC6A6D537B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BD8F3DCE5EEEDE1EDE1EBEB + 93D4CFCFCFCFC3C3CFD49392D18F825151517F7C7B7B7B7B7B7B7B7B7B7B7B7B + 7B507F828E8E8E8EF782828F90D1908F858DD57F7E7D7B7B7B7B7B505050507B + 7B7B7BCEC0C0C9C2C4C4C4C4C4C2C9D86FC0C0C06F6F6D6C6C6D54545470719F + 9F9F6A696BA4A4A46B699F7D7FFDFD7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B74676774746D6D6CA56969A5A569A36B6B6BA472 + 8F8F8F8F8E4DFD807C7B7B7B7B7B7B7B7D8A807D7B7B7B7B7B7B7D7FFD818181 + FD8A7D7B7B7B7B7C7FD5D5D58C8C807E7C507C7F51D58284838C7E7C507E7E7C + 507B7B7B7B7BF3F1EAEADFDEDEDEDE6F737373D89F9F9F9FC86C70737B7B7B73 + 549F6A807F7F7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BDEDF + DC00ECE1E1EBDBDBDBDBDBDBC5BFBFD4D4D4D4C5D39291FF827F507B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7D7E8B82518168A5A5A5A5A5A5A5A5 + A5A56A7073737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7C7C7C7473737373747C + 7B7B7B7B7B7B7B507C7E8080808080FD8384838282D57E7C7D7F7E7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7C507B5050507B7B7B7B7B50507C7E7E507B7B7B7B + 7B7B7D7D7D7D7E7E7E8B838F90D2D292D2D1D19085FD80FD82F7F785FF858C80 + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C8A8A8A6A6A6C9E7070709E + 6C68A5A3A369689EBE66666E7B7B7B7B73735353537B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B50507B508BD58C848F8D838383828282828383828CD5817C7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B735370A5 + 6BA3A36BA4A4A4A49D9C65A2A2A2A29277D18F8C7D507C706CA56BA4A4A4696A + 6A686868686868686868698D817D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B735373737373737B7B7B + 7B7B7353535353737B7B7B7B7B7F8383D58181FD7F818C838472919292919177 + FF82F7FFDDDDDDDD90DD858D827F507B50507C7C7C507B7B7B7B7B7B7B7B7B7B + 7E82838384E6E6E6E6E6E6E6E6E6E6ECECECECF2DCC9DECE7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7D7E7E7E7E7E7E7E7F518ED191D1D1D1D1907272A4A4A4A4 + A4A4A4A4A4A36A705373737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B80D58A8A8A717C7C7D7FD585729090909090DD8584 + 8C84FF919294D4CFCFCF94D3D3D3D3D3949494D3D3D2D292D29085D5F47D7C7C + 7C7C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B747070737B7B7B + 7B7B7B7B7B7B536C6C7EFA507B7B7B507C7C7C7C7C7F7F7F7F7E507B70707070 + 707074746DAC6B6B6BA5A56B9C6565A29394D4D4D4D494939277EEEEEEEEECE5 + E8F1DE7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7353535353537474 + 7474537B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B5081 + D5D5D5D5807B7B7B7E8080807F7E7D7D7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7D7D7B7B7B7B507C7C7B676767669E68 + 69A49C9C656565DBDBDBDBDBDBC5BFC3D0CDD0D9D9C3BFC5DBDBDBDBC5BFBFC5 + C5DBDBDBDBE1E4EEEC00E5E5E5E5E5D57D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7D7F7F7C7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B50507B7B7B5050505050505050507B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B508A8DDD7777DD729091D394D4CFCF8686 + 8686CF94D3D2D18F8F8F8F8FF7FD7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7DFD8A8A51D58C8C8C8C8A7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B536D6A68686A9F616161616363696A6AA3A49DA4A36A70706C70507B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B6FC8C2C4BBE4E4E4E4DBDBE19C6565E1E1DBC5C5C5C5D4D493D3 + 92929291D1D1D1FF8F77D29CA4A3A3A3A3A3A369A5696B9D9C9C9C9D9DA3AC80 + 7F7E507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BFD4D + 8582FDFDFD807C7B7B7B507F7F7F7F7F8080E7DE7B7B7B7BDEF3F3F3F3DE7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507D8AFD + 7E7D7D7D7E5185FF8F85858E8F90919190FF8F8F8F8FD1D2D2D18F858482828E + 908F827F7E7E7E7F8A82FD8A8A808AF7909190854D4D8D8585858585F7FD807D + 7C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7F8283828A7D7D7D8A8A8A8A8A808A + 6A6969689E737B73679E707054545474747474747B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B747C7C7C7D7D7E7E7D7D8B + 8D8D8590D2D2778F84D5D5F78D8D8D848484F7512A5184D57E7D7D7E8B51FD7E + 7C7C8A838E8F8F8F8E838A8080807C7B7B7B7B735470737B7B7B7B7B7B7B7370 + 719F9F9F9F6AA5817E7DFD859090FF8F8F8ED57E50507DD5FE825151824D827E + 7B7B7B7B7B7B7B7BF87C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B737353747B7B7B7B7B7B7B7B8AFE858EFFD1D2D2EEEEEE + EEEEEEE193C5C5EBEBEDEEEEEDEDECE9F4F4D5F68DDDDDDDFF8E858ED1D2D2D1 + 8F8E8F8F8F8F8F9090858DD5807C7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7C2A8080808080808A82838C8A7D7DD58FD1D2D2D190DDDDDDDDDD72 + 8F82D582D57E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BFD51518BFDFD828FD1D1D1D1D17777D1 + FF7792778F8E8EDD91D2908DD5808A8C8D8D8DF7827F507B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7C8A8DFFFFFFDDDDDDFFF7FD8A8A8A8CD5D5D58A7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7E828FFFFFDD919292D277DDDDD1E1EBD3D3E1EEE6E8EAEAEADFDE7BCEF3F3 + 08F008F1EADCF0F0D7E4EDE4E4E4E4E4EEEE8F908FF74D8C8A7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7E7F7F7F7F7FD58D8D8D8DDD9192 + 93949494D3D2D1D1D1D19085817D7D7D7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B8A82858E + 8E8E90D2D3D3D2D2EBD393939394D4C5D3E1EEEEEDEDEEE6E8EADFDF7D7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507D8A828282824D8D8D8484848D8E8D84 + 84D57E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B735353537B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BFDF78EECECECECECDDDD8F8F + 8E8E8E8E85FD7D7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B8AFE4D4DF78FD1919191919177DDFFFFFF8FF78B7C7B7B7B507B7B7B + 7B7B7B7B7B7B7B7B7B7B50507B7B74747B7B7B7B7B74745454545454546C6C6C + 6C6D7D7D6D6C6AA3A49D9C9C9C9C9C9C9C9DA3A3A36B6B6B848482807E7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B808A + 8A8A807D7D7D7D7D7D7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73737B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C + 8CE5E6ECECECECD7D7D7ECECECECE4E4E4ECF0F1C07B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7F828484848ED191D277D1D1D1D1D291 + 77D1FF4D7E7B7B7B7D7E507B7B7B7B7B7B7B7B7B7B7C808C83F7848C807C7C7C + 808472D1D1777777D177EEEEECE6E6E6ECEEE1D3EBEBE1EDE1EDEDEDEEE5828C + 8C8C8C8CD58A7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7D719F9F6C70C9C9C9C9C9C0737373737B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507B7B7B7B7B5050507C7FD5 + 8282D57F507B7B7B7B7B50808D856B6BA46B69686A68A569A3A49C9C9CA4699F + 747B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BDEDEDE + DEEAE8828EDD9090D17792D39393D3D2D18F8E8E8EF77E7C7B7B7B7B7B7B7B7B + 73706D6D6D6D6D6D6D7070706D6AA5A56AD582FD7E7E81838282828282F78FD1 + 908F8E8EDD8EF7F783E8EAEAEAEAEAEAE7E8E77DD8D8D8D87B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C80AC6A6D6D6D6D6D70537373737373 + 7373737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 505050507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BD8 + E7F1F1EAEAE7E8E9E9E8E9E5E6E6E5E98B7E7C7B7B7B7B7C7F7F7C7C7F8A807C + 7C7E80D5848E8E8E8E858280507B7B7B7B7BCF94D3D2D18E517D7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507D7F8A82FF9192D3D3D39292929292 + 9291FF82807E7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B507C7D80808080808AFDFD8A80FA8A8B8CA569A5A5A56868686861BB9C9C + 9C9C65659C6369A5686D74706D6D6C6C7D7C7C7C7C7C7B7B7B7B7B7B7D8C82FD + 80807C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7353737B7B7B + 7B7353535353537474746F6D686A828DFF90D2D2D2D1D17777777777D1D1D18E + FD7D7B7B7B7B7B7B7B7B7B7B7B89897C8A8C82828282D5518B7F7F7E7B7B86CF + 94D39172848B7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7D7E7E7E7E7E7E7E81D5FD7D7C50505050507B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7ED5D5 + D5D5D58A7054547071836B6B6BA49D9C726B8484827F747D7E7FD5F7D5818181 + FD8A7D7D7D7D7D7D7F51517F7E7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B5353535353747C7C7C7C7C7C7C7C507B7B53705453546C + 71716C7054709F69A472727272728ED57F7E507B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7BDEDFE7E7E7E7E7E7E7DCE8E5E6E5E58FDD919293 + D3929394D4D4D4D4D49494D3D29177FF8ED57E5050505050745454547070706D + 6D6D6D6D6D6C6C6C7474D6CDC3BFC5A29CA4619F9E9E9E9E9E9E6F7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B73736E6E6E736E6F6F7373737373737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B677453746D6462626262646464646161616162676E6E + 6E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B53709F9F9F9F9F9F9F9F9F + 9F9F6A6C6D6D6CACD5807F808080807F7F80828E8F8E8E8E8E85827D7B507C7D + 7E7E7E7F807F507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507C507B7B7C7F + 80D5F7FFDD8585DD9192D3D392D2D394D4D494939392D290FFFFFFF7828A8051 + 8B7C7B7B7B7B7B7B7B7B7B7B7B7C7FD58C8D727792D388D086D49392778F8280 + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B5050507C7FD5D5D5D5807E7F7E7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73737B7B536D6D6D6D6D + 6D6D6D6D6C6C6C6D6F7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B745353535367679E9E9E6C68A3A3A3A3A3A3A3AC8B8B8B8B8BFD8A8AFE8E + 8E83FD808A8A7F7B7B7B7B7B736666679F6A5453747467676F6F74747474747B + 7B7B7B7B7B7B7B7B7B7B7BF9FA2A8A82828C8C838EFFFFFF8EF783F7838B7D50 + 7B7B7B7B7B7B7B7B7B7B7B7C7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B88CD86CF94D391DD848B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BF3 + EAF3D8CE7BCECECECECECEDEDFDFDFEAE8E8EAF57D7E8B8B8B5184FFDDDDFF8D + 8CD5D5807E7F7FFD81FE8FFFFFFF8280808A8AFDFDFDFDFD8A7D7C7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7F8C8D85857291D394949493D3 + 92D2D2D2D2D291908DFE859072696A6D9F6A6A6D74745353536767676A69A56A + 807F7F7E50897B7B7B7E7C7C7C7C7C7B50507C7C7C8083FF9192A29393A2A293 + D4D4D4D494A265D29D6BA56C747B7B7B7B7D7170746D6AA5A5A5ACA5A5A5A5A5 + A5A5AC6D747B7B7B7B7B7B7B7B7B7887CDCDCDD9CF94D391FFF7FD82A3A3A571 + 6C6C6D6C6F737B7B7B7B7B7B7B737B7B7B7BDECECECED88A828383F78E8F85F7 + 8ED191D2D1907791D2D2918E82D5518A7FFD83FFDDDD90919177DD8F8F8FFFD1 + 77777777778F827E7B7B7B7B7B7B7B50507C7D7E7F7F808080808080807F7F7E + 7D7C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7BDEF4E9F2F2F2F2F2F2E9F2E8EA7D7E7F7F8080808080808A8A807F7E7E7D8C + 8DDDDD858E90D2D3939392D1FF9091D2D2D291908E84FF919291DD848484848F + 8FF78C83838282828D72728DD57F7F7F7E7E7E7C507C808A8A8AFD80807F80FD + 814DF7848D8D8DFFFF8E8D828CD5517E7C745074737B7B7B7B7B7B7B7B7DD5D5 + 51D58C8C8C8C828483838383838E827E7B7B7B7B7B7B7B7B7B7BCFD4D4D4D4D4 + 949291DD858D8D8D858E727272FF8E8FA36A7053737373537373536F9F6969A5 + 68A5A36B72DDDDDD9090D1D177919291D18E84F78D828C818BFD8A7F7E7E7C7C + D8DEDEC0E2CECED8F3F3F3DCE9F2F2F2E9DCEA7B7B7B7B7B7B7B7B507C7E80FD + 8B8151818BFD8A8A8A7F7E7D8976BDBD76767689897B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7E828F8F8F8F85F78EFFFFFFFFFFFF8F8D8DF7F78C8B8B815181 + 8BFD8A8B828DF7F68C518181D58CD58A8A8B838E90908D807C7C7C7C7C7D7D7E + 8080D5F7DDD18F828BFDFD8B8C84FEFEF7FE828C51518CD57C7B7B7B7B7B7B7B + 7B507E8BFD8BF7D192D39292D3939494949494949392778F8E8D8C7C7B7B8989 + 898976738989897B7C7E8B8B8B8B51518B8B8B8B507B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7C7C7C7DD58C8C8CD58CAC816D7B + 7B7B7B7B7B7B7B7B7B7D8A8A8AFD82834D4DF7F7F78D8EFF90D1D2D277FF8D85 + 8F8F7290909090728F8E848251807E7476BDBDBD7C8283F7848484848484F780 + 7F7F7F7F7E507B7C7E7F81828383828C8B8BFD8BFD7F7D767A7979797ABD7689 + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C808A8A7D7B7B7B7B7B7B7B7B + 7B7B7B7DFDF78283838382D58181E9ECEEEEECE6F2E9E8DCF1F3F1F1EAEAEA7D + F97B7B7B7B7B7B7B7B507C7F8A5183F783828C8B8BFD8B8BFD8A7E89BD7A7A7A + 7A76FBFC7B7B7B7B7B7B7B507C7C7E808BD582F783F784848DD1D29292D3D393 + D3D39292D291D1F7D5FD7F7D508989767C8084FF90909C9C9C9C65659C9C9C9D + 6BAC6D7070745353709F82FF7792929394CF7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B736E6E6E6666666666666E6E6E6E737B7B7B7B7B748AD5D5D58C8C8282FEF7 + 8D8F90779177919177D2D394D4CF86D9D0D0D0D986CFD4939277FFF7817E7BBD + BD6E6F546D70706D6D6D6D6D6D6D6D6D70507B7C8081838E909077D1D1D1D177 + D17284FD897A797A7A76DFE8E8E9F2E6EDEDEDEDEDEDEEECE9DFDEDEDE747B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C8081838E909077D1D1D1D2929292D290 + 84F4F480F481F68D85858D82F47B7B7B7B7B7B7B7B7C7EFDD5847290D190D190 + D1D17791D2778F82807B767C7E8051517F7D7C507B50507C7E8A8182F78D8E8F + 72907792D394CF86D0CDCD878787CDD0D986CFCFD494939291D1909090907792 + 92929292D3D3939494D3D291DD83807D80808A8A836B9C6593C5D4BFBFBF7B7B + 7B7B7B7B7B7B7B7B7B7B7C7C7B7B7B7B7B50505050505050747070507B7B7B7B + 5080F78D83FEFE4DF7848D8FDDD1D2D39494D4CF86CDCDCDCDCD8787877878CB + CCCACACA88D0CF94929084FD7C76BDBDBD767689897B7B7B7B7B7B7B7B7B7B7E + FD828E9293D486D0D0CDCD87CD869492847E737676536D6A6869A49CA2A2A2A2 + A2A292778FF7F7F7F7817E7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7EFD828E92 + 93D486D0D0CDCD87CD869492DDE5E9E9E9E6ECEEEEEEEEEC00E7D8D8D8D8DE7B + 7B7C80D584D1D394CF86D0D0CDCD87CDD0CFD390D57476767B7B7B7B7B7B7B7B + 507C7D808B8C848EDD77D2D394CFD9CDCDCDCD878787878888787878CBCBCCCC + 88D0CFD4939291DD85FE8C8C8282F7F7F7F78DFFD1D18E817D7B7B7B706AA363 + BBBB99999999A9A9A9977B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7470707474747B7B7B6D686969848D8D8EDDD177D191929486CD8888 + 87CDCDCDD0CDCDCD878888CBCCCABCBCBCBCBCBCCBD0D49290F7FD7E7C7D7D80 + 817E507B7B7B7B7DFD5151838DFFD2D4D0CDD9D9D0CD878878CBCB86928DD58B + 7C7B53709F6AA39D65A2D3D392D2D2D2D2D2929292D2DD85D5FD80807F7F7E7E + 7F51828282D57FFD83859194D0CD86D9D0CD878878CB88CFD284D58A7C7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7DFD838F92CFCDD986D9D0CD88787878CBD9D3 + FF8C8B807C7B7B7B7B7B7B507C7E8BD5848FD1D2D3D486CDD0D0D0D0D0CDCDCD + CDCD8787887878CBCBCBCCCCCACACACC8786D4D3D18DD57F7D7C7D7E7E7F7F80 + 8A807C7B7B7B7B7B7B7B7B7B7B74746D6C9F9F9F9F9E7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B08F17D7E7E7E7D507B507E8C848C8BFDD5 + 4D8590D1D2D3CFCDD986D9D0CDD0D0CDB0B5B5B9B9B2B1B1B1B1B9B9BAB7B6BC + 7575CCD0CF93D2FF8DF78D848C80897B7B7B7B7B7BF8F98AD58390D4D0CFD4CF + 86D0CD8878CBCC78D4D272D57D7B7B7B7B7B7B7B7B7D81E5F2F2F2E5E5E5ECEE + EEEEECECECE6E5F2E8D87B7B7B508A8A8A807B7F51F7D1D4D0CFD4CF86D0CD88 + 78CBCC8894918EFD7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7E81F79094CD86 + D4CF86D9CD87787878CB87D4918F8C7F7C7B7B7B7B7B507C7F8B828590D293CF + CDD986868686D9D9D0D0B0B5B5B9B9B9B1B1B1B1B1B3B9B9B5B5B6CABCBCCBD0 + CF92728380747676767689897B7B7B7B7B7B7B7B7B7B7B7B7B7B7CD58DDD9192 + 94D47B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BDE1213D87B7B + 7B7B7B7B7B7B7B7C7D7D80D5F7FF91D3D4D0D986CFCFCFD9B0B5B9B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B9B5CABC78D9CF94D391908582517C7C7C7C7C7C + 7D808B838282778686D4B1B1B1B1B1B1B1B1B1B1B1B1B1977D7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7D8A8C8C8C8C8C8C8C8C817C7B507FAC689F9F6C5380 + 5182778686D4B1B1B1B1B1B1B1B1B1B1B1B1B19A7C7B7B7B7B7B7B7B5050507E + 7F7F7F7C507F839093CDCC88B0B1B1B1B1B1B1B1B1B1B1B1B1B1B1967C7B7B7B + 7B507C7F81F7FF91D3D4CDD986CFCFCF86C3B5B9B3B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B9B5B6BCCCD0D492FF8C7E7B89897689897B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7F828FD19293947B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7BDE12211B7B7B7B7B7B7B7B7B7B507C7F81F772D29386D086CFD4 + D4D4AFB4B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B9B7CACD86 + 94659D6B69A5A5A5A5A5A5A3A36A6D71818CD1D0D9CFB1B1B1B1B1B1B1B1B1B1 + B1B1B1977D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B707070706D6D6D6D + 6D6D706C6869689E9E9E6F71818CD1D0D9CFB1B1B1B1B1B1B1B1B1B1B1B1B19A + 7C7B7B7B7B7B7B7B7B7B7B8A8CFEFE8C828D90D2D4CBCCCCB5B1B1B1B1B1B1B1 + B1B1B1B1B1B1A05C7D7B7B7B507C7F81F772D29486D086CFD4D4CFAFB4B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B3B775BC87CF92FF51 + 7F7F7C7B507C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B94D39292D290 + 8E828282807C7C7C7C7B7B7B7B507C507B7BF312210F1F7B7B7B7B7B7B7B507C + 7F5184729294D0D9CFD494D4AFB3B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B3B687CF92FF8C8A7E8A8A8A8A8A8A8A7B7B808B8BD1D0 + D086B1B1B1B1B1B1B1B1B1B1B1B1AD977D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 507C7C7C7E7E7E7FD584858585858EDD9191908E858585DD90D19388CD86B1B1 + B1B1B1B1B1B1B1B1B1B1AE9A7C7B7B7B7B7B7B7B7B7B7B7D5182828484FFD177 + 9478CB78B9B1B1B1B1B1B1B1B1B1B1B1A8555DFC507B7B507C7F8BF7DD92D4CD + CDD986CFCFAFB3B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B8BACA878694D2DD8D8A7C7C7FD5807F7E507B7B7B7B507C7C7B7B + 7B7B7B7B7B7B74746D68696969696BECD7C4C4C4C4C2DCC8DCC4C4C4C2C91D11 + 0D210F077B7B7B7B7B507C7E8BF7DD92D4CD86D49494C5B4B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B9CDCF928ED57F7070 + 70707070706F73808AFDD1CDCDD0B1B1B1B1B1B1B1B1B1B1B1AEA0977D7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7C7E8A802A2A2A2A808C8E9090909090909090DDDD + 90909091919194CB78CDB1B1B1B1B1B1B1B1B1B1B1A8989A7C7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B507CFDD583D2CDD0D9B3B1B1B1B1B1B1B1B1B1B1A0555B7CF8 + 7B7B7B7C7E518477D3CF88CDD98686B0B4B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B8B5D093D1838B7D507B7C8A8A + 8AFD8A8A8A8AFD8285DD77D292D2D292D3D37B7B7BDED8F1F1F1EAEAEAEAEAEA + EAF1F17B7BD8E8F2F2ACDC19210D2111F081FDFD8B818C838472D294CD86D494 + 93AFB2B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B8B7D4D28D8B7E507B7B7B7B7B7B7B808AFDD1CD87CDB1B1B1B1B1B1 + B1B1B1B1A09555A9E6F2F2F2F2E9D5FD7D7B7B7B7DD58E8F8F84D5807F7F7F80 + 82858EF78282828CFDFAFA8B4DF7F78F8FFFD3787888B1B1B1B1B1B1B1B1B1AD + A095559A6D6D6D6D70537B7B7B7B7B7B7B7373737CFD818392CDD0D0B1B1B1B1 + B1B1B1B1B1AE98555597D54D4DF78EFFD1D293CFCDCA78D08686B5B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B9C3D3FFD57F7C7B7C80A5696B6B6B6B6B6B6BA4A4729D726B69A56A6D7B7B + 7B7B7BF48A807F7E7E7E7E7E7E7E7E7B7B7C8AFDFD800821220D212113D87B7B + 507D8A828FD294CD86D49493A9B1B1B1B1B1B1B1B1B1B1B1B1B1B1AEA8A8A8A8 + A8A8A8AEB1B1B1B1B1B1B1B1B1B1B1B1B1B1B59477F78A7C507B7B7B7B7B7B80 + 8A8B77878888B1B1B1B1B1B1B1B1A895555555978C7E7DF57C7C706F537B7B7B + 7B6F6D9F9F9F9F9E9E9E706D6AA58C7F7C7C7C7F7E507C7FF784848FFFFF9378 + CBCCB1B1B1B1B1B1B1B1A855555555998F9090908E817C7B7B7B7B7B7B7B7B7B + 7CFD8183D387CDB0B1B1B1B1B1B1B1B1A0555555559A7C7C507C8B849091D3CF + 8887D986CFB4B1B1B1B1B1B1B1B1B1B1B1B1B1AEA8A098989895959898A0A0A8 + A8ADB1B1B1B1B1B1B1B1B1B1B1B1B3BFD28DFD7D507B7D828ED1D17272727272 + 72728F8F8F8E8E8D8C7F939291909090858C80F84CF8F8F8F8F84C7B7B7DD5D5 + D551070D21210E2121137B507C7FD5857793D086D49493B4B1B1B1B1B1B1B1B1 + B1B1B1AEA8A095555555555555559598A0A8A8AEB1B1B1B1B1B1B1B1B1B1B1B5 + 93DD8C7F7C7B7B7B7B7B7B808A8B7787CBCBB1B1B1B1B1B1B1AE985555555597 + 827F7D50737353737B7B7B7B7B7B7373737373737373737B7B7B7B7B7B7B7353 + 747B7B7BF8F8F88AFD8B91877878B1B1B1B1B1B1B1A895555555559991929292 + D2D1858A7D7D7D7D7B7B7B7B7C8A8BF7938887B7B1B1B1B1B1B1B1A855555555 + 559A6A9F6D6D6C69729CA286CDCF9493B4B1B1B1B1B1B1B1B1B1B1B1A8985555 + 55555555555555555555559598A0A0A8AEB1B1B1B1B1B1B1B1B1B1B2AF908C7F + 7C746C69A49C65656565656565659C909090908F8D8C949392929291DD8DD551 + D54DF7F7F7F78CD58C82828CD58007210E210D2121211B7C7E8BF790D386D9D4 + 9493B4B1B1B1B1B1B1B1B1B1B1AEA0955555555555555555555555559598A0A8 + A8ADB1B1B1B1B1B1B1B1B1B1AF92858B7D507B7B7B7B7B808A8B77877878B1B1 + B1B1B1B1B1AE9855555555977D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7C7D7D8080808C82F7D378CCCAB1B1B1B1B1B1 + B1A89555555555AFEB939393EBD2908E8D85DD77919C65659C9D639DBFCBCBB7 + B1B1B1B1B1B1B1A85555555555D2D1D1DD8F8D8F909194CD869493A9B1B1B1B1 + B1B1B1B1B1ADA09555555555555555555555555555555555559598A0A8A8AEB1 + B1B1B1B1B1B1B1B1B3A285FD7C7CAC8590D2A2A2A2A2A2A2A2D29D8E8585858D + 84D57B7B7B7B7D7D7D7C7C7C7C7C7C7C6D6A6A6AA3A36A6D6D701B2121210D22 + 0D21101F808C8FD2D4D0CF9493A9B1B1B1B1B1B1B1B1B1AEA095555555555555 + 55555555555555559598A0A0A8AEAEB1B1B1B1B1B1B1B1B1B1AF77827F7C7B7B + 7B7B7B808A8B77877878B1B1B1B1B1B1B1AE9855555555977D7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7F848D8D8D6B6B72 + 9D9D94CBCCCCB1B1B1B1B1B1B1A895555555559AD5828E9090DD8DF7F7F7F785 + 72909191908F838FCFCCCBB5B1B1B1B1B1B1B1A8555555555593929292D3D3D3 + 93CF8787D0CFAFB1B1B1B1B1B1B1B1B1A8955555555555555555555555555555 + 55555555559598A0A0A8AEAEB1B1B1B1B1B1B1B1B1B490D57D6F9E6461616161 + 61616161616164626262626267667B7B7B7B7B7B7B7B7B7B7B7B7B7B73737B7B + 737B737B7B7B1E0D210E210D21210E11F284D193D086CF86AFB1B1B1B1B1B1B1 + B1B1A898555555555555555555555555555555559598A0A8A8AEAEADB1B1B1B1 + B1B1B1B1B1B2DB8F817D507B7B7B7B808A8B77877878B1B1B1B1B1B1B1AE9855 + 555555977D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C808A7F7C + 7B7B7B7B7C80FD8C8C82828D858492877878B1B1B1B1B1B1B1A895555555559A + 7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7D8A8A84947888B5B1B1B1B1B1B1B1A8 + 5555555555F751D58E91D3D393CF88D986BFB3B1B1B1B1B1B1B1ADA055555555 + 555555555555555555555555555555555598A0A0A8AEAEADB1B1B1B1B1B1B1B1 + B1B199F77F507B7B7B7B7B736E6E6E6E6E6E6E737373735373737B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B1E210D21210D220E220A198FD2CF + D986CFBFB2B1B1B1B1B1B1B1B1A898555555555555555555555A5C5C96965555 + 98A0A8A8AEB1B1B1B1B1B1B1B1B1B1B1B1B1B477827F7C7B7B7B7B808A8B7787 + 7878B1B1B1B1B1B1B1AE9855555555977D7B7B7B7B7B7B7B7B7D7D7C7D7F8080 + 80807F7F7F80828E8F8F827E7B7B7B7B7B7B7B5050507C8AFD8177877878B1B1 + B1B1B1B1B1A895555555559A7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7D808A84 + 947878B5B1B1B1B1B1B1B1A85555555555807B7B50FE77D2D3CFCD86CFA9B1B1 + B1B1B1B1B1ADA05555555555555555555A5DA999999A9A9A9A97975D5A98A0A8 + AEB1B1B1B1B1B1B1B1B1B1B1B1B1B38EFD7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B537070546F74535353535353535353747474DE1E0E + 210D220D21220E23041E9488CDD0D0B9B1B1B1B1B1B1B1B1A898555555555555 + 55595D5E7F7F716AAC69A49CA9B4AEB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A9 + 8FD57F7E7D7D7D808A8B77877878B1B1B1B1B1B1B1AE9855555555977D7B7B7B + 7B74DF8C858F84ACD5ACACACACD58A80807D7C7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B808A8B77877878B1B1B1B1B1B1B1A89555555555999D7272A4A36A7054 + 5474737B7B7B7B7B7D8A8A84947878B5B1B1B1B1B1B1B1A85555555555807B7B + 7F8F92D293CDCDD0C3B2B1B1B1B1B1B1B1A05555555555565596A9A292929190 + 84FD7E7E7F8A51837265AFB3B1B1B1B1B1B1B1B1B1ADAEA8A8AEAE99517C7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BD4C5A2A2A2A2A2659CA4A3A56A9F + 9E9F9F9F9F9F8AD582F21221210D21210E2223230A14D687D9C3AFB1B1B1B1B1 + B1B1B1A89855555555565659979B50507B7B507C7C7EFD82FF92BFB9B1B1B1B1 + B1B1B1B1B1B1ADADB1B1B1B2C5A2659C9C9C9C9C9C9D9378CBCBB1B1B1B1B1B1 + B1AE9855555555977DCEE2F3C9C9C9C9C9C9C9C8C8C8C8C8C8C9C9C9D8DE7B7B + 7B7B7B7B7B7B7B7B7B7B7B50507B7B808A8B778778CBB1B1B1B1B1B1B1A89555 + 5555559972FFFFFF8E827F7B7B7B7B7B7B507B7B7D8A8A8DD47878B5B1B1B1B1 + B1B1B1A85555555555D190EEE193C3CFD9CC8888B5B1B1B1B1B1B1B1A8555555 + 5555565997FDFC7B7B7B7B7B7B7B7B7B507C7D7FD5FFD3D9B6B3B1B1B1B1B1B1 + B1ADA8A8A0A8A8968C7E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B81FD + 7F7E7D7D807F7E7D80D5817F7D7E7E7E7E7F7F82FFEE11210D22210D220E230A + 241416D6C3CFB3B1B1B1B1B1B1B1AEA05555555556565B62507B7B7B7B7B7B7B + 507C7D7FD58F92CFB7B8B1B1B1B1B1B1B1B1ADAEAEAEADB1A99084D581818183 + 848ED378CCCCB1B1B1B1B1B1B1AE9855555555977D7B7B7B7B7B7B7B7B7B7B7C + 7F7C7C7C7C507B7B7B7B7B7B7B7B7B7C7C7C7E7E7E7E7E7FD54D8D8F8EFF93CB + CACAB1B1B1B1B1B1B1A895555555559991919177DDF78B7B7B7B7B7B7B7C7C50 + 7E8A8B85CF7878B5B1B1B1B1B1B1B1A855555555559DA3A569A4A2D294CDD0D0 + B3B1B1B1B1B1B1AD9855555555565BBB90DD8D807C7B7B7B7B7B7B7B7B7B507C + 808491D478BCB9B1B1B1B1B1B1B1A8A0A098A098617E7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7BD4939291FF84D57C7B7B7B7B7B7B7B7B7B7B7B7B7B7B + FDF0110E210D21220E22230A14151615C3AFB1B1B1B1B1B1B1B1A85555555556 + 565D9B507B7B7B7B7B7F82FF77656565A2C5BFD0CCB6B8B1B1B1B1B1B1B1ADAE + A8A8A8AEAAA4817C7B7B7B80E7F0EB88CCCCB1B1B1B1B1B1B1AE985555555597 + 7D7B7B7B7B7B7B7B7B7B7B507C507B7B7B7B7B7B7B7B7B7B7B7B7CD58C8C8BFA + F9F9F9F9F9FA7E8B51D5D288CBCCB1B1B1B1B1B1B1A89555555555AFD4D4CFD4 + 94EBEDEE8F8F8F8E8569686C7F8B51FFCF7888B5B1B1B1B1B1B1B1A855555555 + 558A8080818DD18E948887D6B1B1B1B1B1B1B1A0555555555658659292D2EEE5 + DCF4E7E8E9E8E8E8E8E8EAEAE5EDD3C38875BCB8B1B1B1B1B1B1AEA098959595 + 977F7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B86D49392D18E8C7C7B7B + 7B7B7B7B7B7B7B7B7B7B7B507F020F210D21210D22230A241415161515B3B1B1 + B1B1B1B1B1A89855555555565B9B507B7B7B7B7B746DA56B9D65A2C5C5C5BFD9 + 88BCBCB8B1B1B1B1B1B1B1AEA8A8A8A8A8A98C7E507B7B80D5F79288CCCCB1B1 + B1B1B1B1B1AE9855555555977F7C7C7C7C7C7C7C7C7C7C7C7C5050507B7B7B7B + 7B7B7B7B7BDED8E8E5ECE68D848484F7D55151F7848D9278CCCCB1B1B1B1B1B1 + B1A89555555555AFD4CFCFCFD4949494949493D392D2908F729085D1D98888B5 + B1B1B1B1B1B1B1A055555555557F7B7B7E8C8481918688B5B1B1B1B1B1AE9855 + 55555555569992D394D3D290DDDDFF8E8D83F68383838C81838F9194877575BA + B1B1B1B1B1B1AEA0955555555D7F7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B86D49392D18E8C7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B0621210D220D22 + 220A240A14161515E0B1B1B1B1B1B1B1ADA05555555556599E507B7B7B7B7B7B + 7B7B7C7D7F8C8590D177D293CF8875C1B1B1B1B1B1B1AEA8A0989898A096827F + 7470AC9D6565D4CABCBCB1B1B1B1B1B1B1AE9855555555978C81818181818080 + 8080807F8A807E7E7D7C7C7C7C7C507C80818283F78F8F8EF74DFE8B7B7B7B80 + 8A8B77877878B1B1B1B1B1B1B1A8955555555599EEEDEBEBEDEEEEEDEB929177 + D2D2D2D292D393D4887878B5B1B1B1B1B1B1B1A055555555557E7B7B7ED58C7D + 8E93D0B5B1B1B1B1AE555555555555565C838FD1D2D18E838282828C8A7F80D5 + 8C8C82D5818DD2D487BCBCB6B1B1B1B1B1B1ADA0555555559669705353535370 + 7070707C50507B7B7B7B7B7B7B7BC3CFC5EBEDE6E97D7B7B7B7B7B7B7B7B7B7B + 7B7B7C7E7E06210E210D21210E230A2415161515C7B1B1B1B1B1B1B1A8985555 + 5555565E507B7B7B7B7B7B7BD8EAE8E9E5ECEDEBEBEBD394C3CDCA75B9B1B1B1 + B1AEA0955555555555559A7F7D8C8E919292CFCABCBCB1B1B1B1B1B1B1AE9855 + 555555A990FFFFFFFF8C8080808080807F7F7E7D7D74508974897C808DFFDDDD + DD9090DD8E8585848A7C7B808A8B77877878B1B1B1B1B1B1B1A895555555559A + 7C7B50507B7B7B50D5F7F784848D8D8FD1D292D4878788B9B1B1B1B1B1B1ADA0 + 55555555557E7B7B7DFD807A8072D3B4B1B1B1B1955555555555565697646464 + 64629E9B9B9B9B677B7B7B50507C7D80D585D19487CACCCCB1B1B1B1B1B1ADA0 + 555555555AA5676666535353535353737373737B7B7B7B7B7B7BD0D9CF949392 + 77FF82807F7F808080808AFDD58ED1D2D2130D2121220D220E23241415161515 + B8B1B1B1B1B1B1B1A855555555555C7C7B7B7B7B7B7C8082FF90D2D3D3929292 + 9191D29294C387CAB6B1B1B1B1A055555555555555555D719F69A465C5C5D075 + 7575B1B1B1B1B1B1B1AE9855555555A9949393939285828282828CD5518B8A80 + 7D7C7476BDBDBD76F3E9E9F2F2F2F2F2E9E9E9E9E8DFDEFDF2E5D2877878B1B1 + B1B1B1B1B1A895555555559AFD8080808080808081F784848D8D8EFF91D29286 + D0D0CDB9B1B1B1B1B1B1AE98555555555C7D7B7B7C7F7479BDFD8FB4B1B1B1A0 + 555555555555565661828282828A7E7D7D7D7D7E7D7C7C7D7E80818272D3D4D0 + CACCCCCAB1B1B1B1B1B1B1A05555555555827F89897B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7D7C7C7C7EFDFD8A808A847277919191929292D3D393931E220D + 210D210E23230A14151616E0B1B1B1B1B1B1B1AEA055555555555E507B7B7B7B + 7BDEDFEAE9E6EDEBEBE1E1E1EDEEEEEDD293C3D088B3B1B1B1A0555555555555 + 55555BC2C4C4BBE1DBA2BFCABCBCB1B1B1B1B1B1B1AEA055555555B587CDCDCD + 8693939393D3D3D392D291D1FF8D8CFD7D89BDBDBDBDBD767689897B7B7B7B7B + 7B7B7B808A8B77877878B1B1B1B1B1B1B1A89555555555998E8D8D8D8D518A8A + 8A8A8AFD8B81828D72919386CFC3D9B3B1B1B1B1B1B1AE985555555596696A6D + 6D6D89797A7E84B1B1B1A8555555555555555656FF8D8D8DFF90D1919191D2ED + E1E1EDEE9CEDE1EBA2BFD9CC788888D6B1B1B1B1B1B1B1A0555555555584F7D5 + 517F7E507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B736CA56B72 + A4A3A3A37277D292D21E0D21220D21220A232414161616C6B1B1B1B1B1B1B1A8 + 95555555555B7C7B7B7B7B7B7B7B7B7B7B7B748B81818181F47DDE76897F8D91 + D3A9B1B1A8985555555555555555559E6C6C6CA5A46BA278CBCBB1B1B1B1B1B1 + B1AEA095559598B5757575BCCACB7878787878CB7888CDD086D493D2DDF78A7C + 76BDBDBD767689897B7B7B7B7B7B7B808A8B77877878B1B1B1B1B1B1B1A89555 + 555555AFCFD49393D2A3A5ACA3A49D6B6BA4FF90929486D4D4D4BFB1B1B1B1B1 + B1B1A855555555555D8C8A7F7C7C7679BD7FD597979797979797979797979797 + 7D7D7D7D8184FFDD909192D3D3D392D29292D393D4D988D0D9CFCFAFB1B1B1B1 + B1B1ADA055555555557E8B8BFDFDFD7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B508084DD90D1D18F838B8BF7FFDDDDFF1E0D210D21210E23230A14 + 161616B9B1B1B1B1B1B1B1A855555555555E507B7B7B7B7B7B5374747474546A + 8A8A8A80F94C4C89BD768A848FBBB1B1A0555555555555555556555E51D5D584 + DD8ED378CB78B1B1B1B1B1B1B1AEA89898A0A8B7757575BCCCCB787878787878 + 78CBCBCBCCCCCBCDCF939185817E767676767689897B7B7B7B7B7B808A8B7788 + CCCAB1B1B1B1B1B1B1A89855555555B7CB88CDD094D2D29165A2A265D393D4CF + D0D9CF949393A9B1B1B1B1B1B1B1A05555555555977C50507B50897ABD7C7D7D + 7D7D7D7D7D7D7D7C7C7C50507C7C7E7F8A8B81D58C82838384848D8E7291D394 + D9D0CFD49493C5B3B1B1B1B1B1B1ADA05555555555D7D7D7C4C4C4C4DCDF507B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7D7E7E7E8A8D90D2D2D2D2908E858FD1929292 + ED1221220D210E220A0A2415161616B1B1B1B1B1B1B1ADA055555555556A7E50 + 7B7B507D7E8083848484848D8D8D8D8D8484F78CFD8080FD81D5979797979797 + 979797979797975E507B7B80838B77877878B1B1B1B1B1B1B1ADA8A0A8AEB1BA + B6B6B6B6B7B7B7B7B7B7B7B7B7B7B7B7CCCCCACABC78D994D28E817E73898976 + 897B7B7B7B7B7B808A8B7787CBCBB1B1B1B1B1B1B1AE9855555598B67575BCBC + CB8887878787878878788887CD86D49493DBB1B1B1B1B1B1B1AE985555555555 + 5E507B7B7B7B7BBD767B7B7B7B7B7B7B7B7B7B507C7C7E7F8A818CF78D8D8383 + F7848D8E72779293D4D9CDD0D986CFD494C5B3B1B1B1B1B1B1B1AE9855555555 + 5BDC7E7D7C7C7C7C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B80FE8E + FFFFFFFFFF8FEEEDEB93C593E112210D210D2122242324151616E0B1B1B1B1B1 + B1B1AE98555555555B686A6D7473737B7B746D6C6C6C71A58D4DFE4D4DF74D8B + FC7E8AFDFD7D7D7D7D7D7D7D7D7D7C7C7C5050505050508A838B77877878B1B1 + B1B1B1B1B1B1AEA8AEB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B3B9 + B5B6BC88869377848B7D7C7B897B7B7B7B7B7B808A8B77877878B1B1B1B1B1B1 + B1AEA09898A0A8B6757575BCCC78787878787878788887CDD086CF94AFB2B1B1 + B1B1B1B1ADA05555555555559B5470707070706F7070707070707053747C7C7E + 808BD5F785FFD177728E858FDD919293CF86CDCDCDD0D0D98686C3CFAFB2B1B1 + B1B1B1B1B1B1A855555555555C7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7BFD4D8F90909090909090D1777791770219210D22210D22 + 0A230A151616C1B1B1B1B1B1B1B1AE95555555555D8C807C7B7B7B7B7B7B7B7B + 7B7B7B7D8C8C8CF78D7272848383F784F7807F7F7F7F7E7B7B7B7B7B7B7B7B7B + 5050508A8C5177877878B1B1B1B1B1B1B1B1AEAEADB1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B3B7CCD0949185E9E7DF7DDEDEDFE8E5E6DD + EEEE94CBCCCBB1B1B1B1B1B1B1AEA8A0A0AEB1B67575BCCACC78787878787878 + 78888887B0B0A9B3B1B1B1B1B1B1B1B1A05555555555555C506F9F9F9F9F9F9F + 6D6D70707070707C7D7FFD8C848F90D29292D291D292D3D4CFD0CDCDCDCDD0D0 + D0D9D9D986B0A9B2B1B1B1B1B1B1B1B1B1AEA0555555555597507B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B939292929277727272728584848484848484 + 848572DDE6190D21210D210E242314151616C6B1B1B1B1B1B1B1A85555555555 + 978C8A7C7B7B7B7B7B7B7B7B7B7B7BDEDFDFDEDEC9DCDCC9C9C9C9C9C9747474 + 7070747B7B7B7B7B7B7B7B7B7B7B7B80D58B77877878B1B1B1B1B1B1B1B1ADAD + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B8B5D094 + 778E8CFD8A7F7F808A8B828E8FFF93CBCCCCB1B1B1B1B1B1B1ADA8A8AEB1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A855555555 + 5556565E5474676767679E67537B7B7B507C7D7F8B828E90D2D3D3D3D3D394CF + 86CDCDCDCDCDD0D0D0D0D0D0D0B0B5B9B2B1B1B1B1B1B1B1B1B1B1B1B1A85555 + 5555555560507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B93A29C9D9D63 + 619F62676E737B7B7B7B7B7B7B736F6A0521210E21210E230A2324151616BAB1 + B1B1B1B1B1B1A855555555559A8A7F7F7E7E7C505050507C7C7C7C7C7B7B7B7B + 7B7B7B7B89897B7B7B7B7B7B7D7E7C50505050507B7B5050507B7B805182A278 + CBCBB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B9B09390845181F47F7F7F8AF6DDD1D194CCCACAB1B1 + B1B1B1B1B1B1AEAEADB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1AE985555555556565C8F85828A8A8AD583D57D7B7B507DFD848F + 9077D2D2929394CFD9CDCDD0D0D0D0D0D0D0D0D0D9B0B5B9B2B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1A89855555555555B7C7B7B507E7F7F7F7F7F7F7F7F7F7F7E + 7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B736D05210D21 + 210D210E242314161616B9B1B1B1B1B1B1B1A855555555557F7B7B7B7B7B7B7B + 7B7B7B507E7F7F7F7D7B7B7B7B7B737373746D6C6C6C6D54537373737373737B + 507C7C7C507B7B808BD5D3CCCACAB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B8B092A4A5C2C8C8C8 + C8C2C49D9CEDD4CABCBCB1B1B1B1B1B1B1B1ADADB1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A05555555555565A65A2659D6BA3 + A36969A569A3A3A4D293D4D4D4CFCF86D088CB78888887D0D0D0D0D0B0B5B9B3 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A8985555555555555E507B7FF7 + FFDDDDDDDDDDDDDDDDDDDDFF84D5518B7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B5080838F901B0D22210D2221230A2314161616B9B1B1B1B1B1B1B1A055 + 555555557F7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B80FD8BD278CCCAB1B1B1B1B1B1 + B1B1B1B1B1ADADADAEAEAEADADADADADADADADB1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B2BFA29D63A79BBE669BA7BBBB9CBFCABCBCB1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A89855 + 555555555CBB72908F83818B8B8A8A7D7E7F80518D77929394D486CDD986D9D9 + D9D9D0D0B0B5B9B2B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1AEA095 + 5555555556565B7C7B7B7CD54D4D4D4D4D4D824DF7848D8D8CFDFD8B7E507B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7DE8E6ECEE1321210D210D210E240A1416 + 1616B8B1B1B1B1B1B1ADA055555555A6F07C7D8A8283848EFF90D172FFFF7792 + 9277D1D1D1D1D1FF85858E8E8E82D5D5D5817E7B7B7B7B7B7B7B7D7D7D7C5080 + 8A8B778778CBB1B1B1B1B1B1B1B1B1AEA8A8A098955555555555555555555555 + 9598A0A0A8AEADB1B1B1B1B1B1B1B1B1B1B2DBDD8271747B7B7B7B8A69A494CC + CACAB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1ADA8955555555AA9DD826869A3A3A3A3A3A3A3A3A4A47290 + D1D2D3D486CD8686CFCFCF86BFB5B9B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1AEA898555555555556565960507B7B7B8A8283F7848D848284 + FF919293D4CFD9CD888891908FD57F7C7B7B7B7B7B7B7B7B7B7B7B7B7B507EDF + 1E210D22210D22230A2314161616B1B1B1B1B1B1B1ADA055555555B319DC68A5 + 6969696969696B6B83F7DDD292EBEDEDEDEDEEEDEB93C5D4C3D4D4D4D4D493EB + EEDDFFFFFF7777FF8DD57C808A8B77877878B1B1B1B1B1B1B1B1AEA8A0985555 + 55555555555555555555555555555598A0A0A8AEADB1B1B1B1B1B1B1B1B1B3D4 + 659C9DA36A6D9F63BB9DD4CABCBCB1B1B1B1B1B1B1B1B1B1B1B1ADADADB1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1AEA8985555B5CCD09465EDED + EDE1E1E1E1E1E1E1E1E1EDD1D19294D0D9CFCFD4D4BFAFB3B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1AEA8A0955555555555555656565E7453 + 74706DA56B9D65A29494A29394CF86CD78CABC7575757B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B507FD5F7F71E220D210D21210E240A14161616B1B1B1B1B1B1 + B1ADA055555555B32313D87C7C7C7C7D7F547B7B7B7B7B7CD5A5C2C2C2C2C4BB + 9DE1A2C5BFBFBFBFBFBFC5EBEDEEFFFFFFD1FFF78C8A7B808A8B77877878B1B1 + B1B1B1B1B1B1AEA0985555555555555555555555555555555555559598A0A8A8 + AEADB1B1B1B1B1B1B1B1B1A9A29C9D8F8E8E8ED1D2D2CFBCBCBCB1B1B1B1B1B1 + B1B1ADAEA8A8A09895555555555555555555555555555555959898A0A8A8AEAE + AEA8A0985557B9D6D99492908E8D8D8D8D8DF78C8B51837292D4CD86CF9494C5 + A9B2B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1ADA8A89895555555 + 55555555555656589AF7518B8B7F7C7C8084DDD2D3D3D2D2D2D394CF86D087CB + CABC7B7B7B7B7B7B7B7B7B7B5050507B7B7B7B7B7B7C7C7D1221210E21210E23 + 242314161616B1B1B1B1B1B1B1ADA055555555B30E221B7B7B7B7B73536F6F6E + 7373706AA5A3A3A3A3A49D65656565A2C5D4D4D4CFD49392D277D1D1D1D18FF7 + 8382818283849288CBCBB1B1B1B1B1B1B1ADA898555555555555555555555555 + 5555555555555595A0A8A8AEADB1B1B1B1B1B1B1B1B1B1B2DBD290FFFFFFFFD2 + D291D4CCBCBCB1B1B1B1B1B1B1B1AEA8A0955555555555555555555555555555 + 555555555555559598A0A8A8A8A8A8A0A0A0A8B2B5D994927790FFFFFFFFFE8A + 8A8C8FD2D4CD86D49494AFB2B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + AEA8A0A095555555555555555555555555565B9A68FD7D7C7C7B7B7B7B7B7B6F + 6C6C546F9E9E62626262646464617B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7BD8120D210D210D210E240E24161616B1B1B1B1B1B1B1ADA055555555B3 + 23220F1F7B7B7B7B7B7B7B7B7B508B517F7E7E7E7FD584FF7272DD91D3939393 + 93D3D2D19191919191EDEEECE6ECEEEDEDEDD4CCCACAB1B1B1B1B1B1B1ADA055 + 5555555555555555555555555555555555555598A0A8B1B1B1B1B1B1B1B1ADAE + AEAEADADB4F77F507B7B7B808A8B778778CBB1B1B1B1B1B1B1ADA8A095555555 + 555555555555555555555555555555555555555598A0A8A8A8A8A8A8A8AEB1B1 + B1B99390827F7C7C7C507C7E518DD193D086D49493B4B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1AEA8A0989555555555555555555555555555555558978282 + 8384A5A5A5AC6D74737B7B7B7B7B7B73665F5F5F5F5F5F5E5E5E7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BF119210D21220D21230A2314151616B1B1 + B1B1B1B1B1B1A055555555B30A220D26F07E7E7E7FD583828F77929291DDFFFF + FFDDDD909090D1D2D39392D2908DD57E2A51D5D5D5D5D5515151518A8A8B7787 + 7878B1B1B1B1B1B1B1AEA055555555978B8080808080808A8B81AC696BBB99A9 + ABB1B1B1B1B1B1B1B1B1B1AEA8A8A8A8AA63FD7C7B7B7B808A8B77877878B1B1 + B1B1B1B1B1ADA898555555555555555555555555555555555555555555555555 + 98A0A8AEAEAEAEAEB1B1B1B1B1B1B4928DFD7C7B7B507C8A828F9286D9CF94C5 + B4B1B1B1B1B1B1B1B1B1B1B1B1B1B1ADA8A8A098555555555555555555555555 + 5555555555555A97A3848484848D848484848C7F507B7B7B7B7B7B7B7B6DACA3 + 9D9CA2C5BFC37B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B08110E2121 + 0D21210E232224151616B3B1B1B1B1B1B1B1A855555555A623220D22111D6D6D + 6D6AA5F2E6EEE1EBEDEEE6E5E5E5E5E5E5E5E5ECEDEDD2D277FF827F7FFD5151 + D5828E8F8F8F8E84D58B77877878B1B1B1B1B1B1B1AE9855555555977D7B7B7B + 7B7B7B7B50507C7D80D5FFD386B7B8B1B1B1B1B1B1B1B1AEA8A0A0A0A899817C + 7B7B7B80FD8B77877878B1B1B1B1B1B1B1AEA055555555555555555555555555 + 555555555555555555555598A0A8ADB1B1B1B1B1B1B1B1B1B1B1B1A9DDD57E50 + 7B507E51F79093CDCFD494B4B1B1B1B1B1B1B1B1B1B1B1B1A8A8A09555555555 + 555555555555555555555555555555595D6028F8F8F8F8F8F8F8F8F8F87B7B7B + 7B7B7B7B7B7B7B7B7B7FF790D2D3D4CFD9CD7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B070F210D220D210D220A220A151616B9B1B1B1B1B1B1B1A895 + 555555550A22210D2113E88C8C8385FF8F8FFFD1FF8EF6FD7D7C7C7C7C7C7C7D + 7E7E7E7D7D7D7D7D7D7D7C7C7C5050507B7BF58A8A8B77877878B1B1B1B1B1B1 + B1AE9855555555978C81818181818A8282D57F7E8A84D29386CB75B9B1B1B1B1 + B1B1B1ADA8A0A0A0A096D57D7B7B7B808B8B77877878B1B1B1B1B1B1B1AE9855 + 5555559AFD808080808080808080808A8AFD8BD583A499A9B9ADB1B1B1B1B1B1 + B1B1B1B1B1B1B1B199F77F507B7C80828D77CFD0C3C3A9B1B1B1B1B1B1B1B1B1 + B1AEA09855555555555555555555555555555555555555555C97607C50507B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507F82FF919293D47B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B0521210D21210E21220A222415 + 1616B9B1B1B1B1B1B1B1A89855555555240E22220D0F13FFFFFFDD90DDFFFFFF + 8F8E4DFD7B7B7B507C7D7E808AFD8A8A8A808080807F7E7D7C8989768976737F + 8A8B77877878B1B1B1B1B1B1B1AE985555555597E7EAEAEAEAE8E6EEEEECE8F4 + DCD79CEBD48775BCB1B1B1B1B1B1B1B1A8A098989898BB83826B83D583829278 + CCCCB1B1B1B1B1B1B1A898555555559A7C73737B7B7B7B7B7B7B7B7B50507C7D + 7F818592CFD6B9B1B1B1B1B1B1B1B1B1B1B1B1B1B38EFD7C7B7CFD848E92D086 + CFBFB2B1B1B1B1B1B1B1B1AEA098555555555555555555555555555555555559 + 5C975E7C7C50507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7BD277FF838A7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B1B + 210D220D21210D22230E23151616C6B1B1B1B1B1B1B1A89855555555E30E220D + 21210FDB9494949493D391909090907284807C7C7D7F8B518C8CD581FD8A808A + 807E7C89BD7A7A7ABD76767F8A8B77877878B1B1B1B1B1B1B1AE985555555597 + 7D7B7B7B7B7B7B7D7D7C7B7B7B7C8A84D2CFCA75B7B1B1B1B1B1B1B1A8A09555 + 5555A9C5BFBFBFBFBFBFD0BC75BCB1B1B1B1B1B1B1A8955555555599D57F7C7B + 7B7B7B7B7B7B7B7B7B7B7B507C7ED57293CD75BAB1B1B1B1B1B1B1B1ADADADAD + AD99517C7C8A84DD9093CD86CFA9B1B1B1B1B1B1B1B1A8A05555555555555555 + 555555555555555B5D5E627C7C7C7C7D7E7E7E7F7F7F7F7F7E7E7E7D7C7C507B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B1B0D2121210D21220E230D23141616C1B1B1B1B1B1 + B1B1AEA055555555C7230E22220D210FE4D1D1779C72A3A3A4A4A4A46B696C6D + 7F81828D8E8E8584F7F7F784848C8A7C7A7979797ABD7680FD8B77877878B1B1 + B1B1B1B1B1AE9855555555977D7B7B7B7B7B7B7B7B7B7B7B7B7B7E8291CFCB75 + CAB1B1B1B1B1B1B1AEA095555555A992D394D4D4CFCFD0BCBCBCB1B1B1B1B1B1 + B1A895555555559A8B828D8481FDFDFD8A7D7B507C7B7B7B7B7C8A8D9286CA75 + B9B1B1B1B1B1B1B1AEA8A8A8A896827E7FE5EEE1EBCFCD8686B3B1B1B1B1B1B1 + B1A8985555555555555555555555555C975E9E7D7D7D7D7D818E7285F7F783F7 + F7F7F7848382D58A7C897676767689897B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B13210E210D220D210E + 23210E141616E0B1B1B1B1B1B1B1AEA095555555C724230E21210D2211087E81 + 82F6F6848585858E85F6838F77D2D2D39494CFCFD4D4D4D4949393D28F8C7DBD + BD767B808B8B77877878B1B1B1B1B1B1B1AE9855555555977D7B7B7B7B7B7B7B + 7B7B7B7B7B7B7E8C8F9387BCBCB3B1B1B1B1B1B1ADA055555555969394CF86D9 + D0D078757575B1B1B1B1B1B1B1A895555555559AF2E6EEEEEEEEEEEEEEE6F2F7 + 84D5802A2AFC8BF7D2CFCC75B6B1B1B1B1B1B1B1AEA0A0A0A0A0617E7B6C699D + 72D4D0D9B0B1B1B1B1B1B1B1AEA05555555555555555595C975E7C7C50507B7B + 7B7B507C7F8BA3727277D2A2A2A2919C9DA4A56A6C6D6D6D7073767B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7C1E0D210D21210D2121220D220A151616B1B1B1B1B1B1B1ADA898555595 + A60A230E220E210D211EF37DDFDFDFEAEAEAEAE8DCDCF0ECE1EBC5C3D087D0D0 + D0CD87887887D9949C69AC9F7C7B7B80518B77877878B1B1B1B1B1B1B1AE9855 + 555555977D7B7B7B7B7B7B7B7B7B7B7B7B7B7D8A8CD2D0CACAB9B1B1B1B1B1B1 + ADA0555555559691D1D2D3D48686877575BCB1B1B1B1B1B1B1A895555555559A + 9F9F9F9F6C6C9F9F9F6CDF8B8382FD80808051F777D4CB75BCB8B1B1B1B1B1B1 + AEA098959595977F7C818E77DDCFCDD0B5B1B1B1B1B1B1B1A855555555555659 + 5D607C7C50507B7B7B7B7B7B7B7B507E8B849293D4CFD49493D392D392919085 + 8CD581807C767B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7C7ED5120D21210E21210E210E21210A151616B8 + B1B1B1B1B1B1B1A8A09895989804240E22220D210D22137B7B7B7B7B7B7B7B7B + 507D84D19293C38887D0D9D9CD88CCCACABC7578D9CFD4C5C5D4CFC3D9C3CD75 + 7575B1B1B1B1B1B1B1AE9855555555977D7B7B7B7B7B7B7B7B7B7B7B7B7B7D8A + D577D9CCCCB5B1B1B1B1B1B1B1A05555555555917791D293CFCF87757575B1B1 + B1B1B1B1B1A89555555555AF659DA3689F6A68A5A5A5A3A36B6B6B696969A372 + 9C9488BCBCB9B1B1B1B1B1B1AEA0955555555DFD7F818ED27786CDCDB9B1B1B1 + B1B1B1AE9855555555565B6250507B7B7B7B7B7B7B7B7B7B7B7B7C8A8377D486 + 8686D9D9D0CDCDCDD08694D2FF8EF7D5E7DFDEDE7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B736F6F6F676767676767676D6D6AA3A4A4A3A3F21222210D21 + 0D210D21220C2123141616BAB1B1B1B1B1B1B1AEA0989898A0C62423220E2222 + 210D0F1B7B7B7B7B7B7B7B7B507EA39CA2D4CDCDC3CFB5B5B5B5B5B5B5B5B7B5 + B5B5A9AF94CF86D9CDD9CDBC7575B1B1B1B1B1B1B1AE9855555555977D7B7B7B + 7B7B7B7B7B7B7B7B7B507E8B8C77D9CBCBB5B1B1B1B1B1B1B1A055555555557F + 507E7ED5FF8E93CCCACAB1B1B1B1B1B1B1A89555555555998F83FD7E80D58282 + 828C8CFDFD838E8E8F8FDDDD779488BCCAB5B1B1B1B1B1B1ADA0555555555C7F + 7B7F8477908687CDB9B1B1B1B1B1B1A895555555555B7C507B7B7B7B7B7B7B7B + 7B7B7B7B7B507ED58FD294D988788878CBCCCACACACACD94D18E8D83FDFD8A7F + 7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7E7F8181ACF78484848484A49D6B + A568686A706FF3110D21210E21210E210E210C23141516C1B1B1B1B1B1B1B1AD + A8A0A0A0A8B814240A220E220D212119077B7C7B7B7B7B507D8A83D1938688D0 + 86AFB1B1B1B1B1B1B1B1B1B1B1B1B1A994D486D087D9CDBC7575B1B1B1B1B1B1 + B1AE9855555555977D7B7B7B7B7B7B7B7B7B7B7B507C8AD5F7D2CD8888B5B1B1 + B1B1B1B1B1A055555555557E7D7D7D8B85D577877878B1B1B1B1B1B1B1A89555 + 5555559A7D7F7F8B51D5D5D57F7C7C507CD58DDD91919292929478CACCB5B1B1 + B1B1B1B1ADA0555555555A7F7B7FF79190868887B9B1B1B1B1B1B1A855555555 + 55A7507B7B7B7B7B7B7B7B7B7B7B7B7B507C8A838E7794CD86CF86D9CD8778CB + CBCCCBCFD29084ACA5A36B696A70537373737373737373737373737B7B7B7474 + 7474746D6C6C6C6C71A5A56A6D6D6D6D507B0811210E210D210D21210D21200E + 24151616B1B1B1B1B1B1B1B1A8A8A0A0A8AEE01424230E22220E212119F17B7B + 7B507C7D808C8E779387D086CFB4B1B1B1B1B1B1B1B1B1B1B1B1A89ADFDFDCEE + EBE1C5CBCCCCB1B1B1B1B1B1B1AE9855555555978A7F808A8282828A7F7C5050 + 7C7ED584FF938787CDB5B1B1B1B1B1B1ADA055555555557E7B7B7B80848B7787 + 7878B1B1B1B1B1B1B1A895555555559A7C7B7BF9F9F97D7C7B7B7B7B7B7F8A8B + 518C8DDD7293888787B5B1B1B1B1B1B1ADA055555555557F7B7E839190867888 + B1B1B1B1B1B1B1A0555555555CFD7C507B7B7B7B7B7B7B7B7B5353747C7F8184 + 72D38686CFBFB4B9B9B9B9B9B9B9B9B9B4B4B47E7C8A8C807C7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B0826 + 0D21210E21210E21210D200C23141616B9B1B1B1B1B1B1B1AEA8A8A8A8ADB915 + 1424230A220E210D211ED8507C7D7F8B8C8E77D3CFD9CFD4C5B2B1B1B1B1B1B1 + B1B1B1B1AE98559B7B7B7B80845177877878B1B1B1B1B1B1B1AE985555555597 + FF8E8EF7F7F7F74D827F7E7E8A828E90D2CFD0D0D0B9B1B1B1B1B1B1ADA05555 + 55555A7D7B7B7B80848B77877878B1B1B1B1B1B1B1A895555555559AFD8C8E8E + 8E8FA469716D7D7C6D9F6A68A5A3729091CFCDD0CDB5B1B1B1B1B1B1ADA05555 + 5555557E7B7E8277FFCF7878B1B1B1B1B1B1B1A05555555597838A7D7C507B7B + 7B73C0C0D86D9F6A6869A49CA2CFD0CF94AFB1B1B1B1B1B1B1B1B1B1B1B1967C + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B070F21210D21210D210D210D20200E241516C1B1B1B1 + B1B1B1B1ADAEA8A8AEB1B1C6151414240A23220E222213808A518C848F91D3D4 + 86D49494A9B1B1B1B1B1B1B1B1B1B1A055555B7C7B7B7B80848B7787CBCBB1B1 + B1B1B1B1B1AE9855555555A977D18FF7828251D5D58CF7E6EEEB9394C3CD8686 + 86B3B1B1B1B1B1B1AE98555555555C7C7B7B7B80848B7787CBCBB1B1B1B1B1B1 + B1A89555555555AFCFCF9493D3D3929172858482818B83848E90919193D08686 + 86B9B1B1B1B1B1B1ADA055555555557D7B7DD5908594CBCBB8B1B1B1B1B1B1A0 + 55555555A990F7518A7F7D7C7C7C7C7D7E7E80FDAC8472D293D0CFD493A9B1B1 + B1B1B1B1B1B1B1B1B1A85C7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507F1B210D220D220D212221 + 0D210C202224151616B1B1B1B1B1B1B1B1AEA8A8AEB1B1B8E015151414142323 + 0E23181BD582848F77D3CF86D49493C5B2B1B1B1B1B1B1B1B1A8555555555D50 + 7B7B7B80838B7787CBCBB1B1B1B1B1B1B1AE9855555555A9D1DDFFFFFF8C8080 + FD8BD5828D909294D9CFCFCFBFB1B1B1B1B1B1B1A855555555555D7C7B7B7B80 + 838B9178CACAB1B1B1B1B1B1B1A89555555555AFCF86CF9493659C9DA49D9C9C + 9C9C6565A2C5CF8688CDD0D0D0B1B1B1B1B1B1B1AE98555555555B7C7B7C8B8F + F7D3CBCCB9B1B1B1B1B1B1A895555555B493D2FF8D838C807E7F7F8A8B81D582 + 8D72D29386CFD49493B3B1B1B1B1B1B1B1B1B1B1A0555D507B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B501B0D21210D21210D210D21212109200A141516BAB1B1B1B1B1B1B1ADAEAE + ADB1B1B1B91616151515140A24240A041B85DDD294D986D4949393B4B1B1B1B1 + B1B1B1AD985555555555A77E7E7D7B80828B77877878B1B1B1B1B1B1B1AE9855 + 555555A99493939392858283F7848EDD9193CFD9CF9494D4A9B1B1B1B1B1B1B1 + A8555555555597F5DFF4DCF2E6E5D3CBCACAB1B1B1B1B1B1B1A89855555555AF + 939393939184828C8C82A49C6565A2A294CFCDCC7887CDCDB5B1B1B1B1B1B1B1 + A855555555555C7C7B7C8A848CD2CDCAB9B1B1B1B1B1B1A898959598A1D0CF93 + 929172D58A718AFD818C828D90D294D9CF949493A9B1B1B1B1B1B1B1B1B1A855 + 55555E507B7B7B7C7D7D7D7D7D7D7D7D7E7E7F7FFC8A8A8A7D7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B13210D22210D22210D220D210D20200E2415 + 1616B1B1B1B1B1B1B1B1ADADADB1B1B1B1B91616161615151514141414D4CFD0 + CDD0D9CFD494B4B1B1B1B1B1B1B1ADA055555555555C507B7B7B7B808C8B7787 + 7878B1B1B1B1B1B1B1AEA055555555B587878787869493939394D486D087D086 + D49494DBB1B1B1B1B1B1B1AEA055555555555E507B7B7B808C8B77877878B1B1 + B1B1B1B1B1A89855555555B7CDCDCDD0CF93939393939494D4CFC3D9CD7888D0 + 86D4D4BFB2B1B1B1B1B1B1B1A85555555555976DC9C99FE5689D86CAB5B1B1B1 + B1B1B1AEA0A0A0A8AEB5CBD086CF9391728E8D8D8E7277929486D086D49493DB + B2B1B1B1B1B1B1B1AE9555555555627B7B7D51858E8E8F8F8F8F8F8FD192D393 + D4CFD9CDCDCD7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B1E0D21210D21 + 210D21210D21210C200C23141516BAB1B1B1B1B1B1B1B1ADB1B1B1B1B1B1B8E0 + 1616161616161616161687CDD986CFCFC5B4B1B1B1B1B1B1B1B1A85555555555 + 555E507B7B7B7B80818B77877878B1B1B1B1B1B1B1AEA095559598B775757575 + 75BCBCBCCACACCCB87CDD0C3D494DBB2B1B1B1B1B1B1B1A89555555555597C7B + 7B7B7B80518B77877878B1B1B1B1B1B1B1AEA0555595A0B6757575BCCACB7878 + 78787878CBCCCC7887CDD9CFD494DBB3B1B1B1B1B1B1B1AE9855555555555E50 + 7B507D8B7EF794CBB6B1B1B1B1B1B1ADA8A8A8ADB1B8B675CACC87D9CFD494D4 + D4CFD987CDD086CFCFD4BFB3B1B1B1B1B1B1B1A855555555555B7C7B7B7B7B7B + 7B7B7B7E7E7E7D7E8B84DD91D394CFD9CD887B7B7B7B7B7B507D7E7E7E7D7C7C + 7C7C507B7B7B12210E210D220D210E21210D210D20200E24141616B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1BA16161616161616161616D0D986CFAFB3B1B1B1 + B1B1B1B1B1A89855555555555C507B7B7B7B7B808B8B77877878B1B1B1B1B1B1 + B1AEA89898A0A8B7757575BCCCCBCBCBCBCCCCCB888787D0B0B4B1B1B1B1B1B1 + B1B1ADA055555555555C507B7B7C8A8D8F85D2877878B1B1B1B1B1B1B1AEA098 + 98A0AEB6757575BCCC787878787878787878788887CDD986CFAFB2B1B1B1B1B1 + B1B1B1A85555555555597C7B7B7B7C7F7B8B92D0BCB8B1B1B1B1B1B1AEA8AEB1 + B1B1B8B77575BCBCCACACCCB788887CDD0D986CFD4AFB2B1B1B1B1B1B1B1AE98 + 555555555597507B7B7B7B7373537068A5686A6A68A39D65A2C5C3D9CD788484 + 8484859091D2D2D2D2D291D18FD57E7B7BF3120D21210D21210D210D220D2121 + 2009200A141516C1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1BAC116161616 + 161616CAB0A9B3B1B1B1B1B1B1B1B1B1AE985555555556565E74DEDEDEDEDE80 + FD8B77877878B1B1B1B1B1B1B1ADA8A0A8AEB1BAB6B6B6B6B7B7B7B7B7B7B7B7 + B0B5B9B3B1B1B1B1B1B1B1B1B1B1A895555555555599929190DDDD908FF7D288 + 7878B1B1B1B1B1B1B1ADA8A0A8ADB1B7B6B6B6B6B7B7B7B7B7B7B7B7B7B7B7B7 + B7B0B5B9B2B1B1B1B1B1B1B1B1B1AE9855555555555D745353536D71737DFFD4 + CCBAB1B1B1B1B1B1ADAEADB1B1B1B1B1B9B7BCBCCACACCCB788887CDD0D9C3AF + B4B1B1B1B1B1B1B1B1B1A05555555555599E7B7B7B7B7B7B73669E686969696B + 9D65A2C5D4BFC3D087787B7B7B7B7B7B50505050507E7E7E7B7B7B7B7BF31122 + 0D21220D2122210D21210D210C20200E24141516B9B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B8B9B9B9B9B8B1B1B1B1B1B1B1B1B1B1B1B1AEA0555555 + 5556565D7474676767709E6869A3A278CB78B1B1B1B1B1B1B1B1AEA8AEB1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1AE985555555555 + 5A92D2D1DD8F8EDD858C91887878B1B1B1B1B1B1B1ADA8A8AEB1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1ADA05555555555 + 555E6D6868686B72858ED2CF88BCB1B1B1B1B1B1B1ADB1B1B1B1B1B1B1B1B1B9 + B5B5B7B7B7B7B7B5B5B9B1B1B1B1B1B1B1B1B1B1B1A855555555555597746D6D + 6D6D6D6CA569A3A49DA4698383F7848D8DFD7D7D7E7F7B7B7B7B7B7B7B7B7B7B + 73746C6C7074737373F1110D210D21210D210D21210E210D212109210E241415 + 15B8B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1AE985555555556565B9E50507D7E7F8C8E91D292D4CABCCAB1B1 + B1B1B1B1B1B1AEAEADB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1AEA0555555555555977FF4EAE7EAEAF2F2E8E178CCCBB1B1B1B1B1B1 + B1B1AEAEB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1ADA85555555555555C507B7D7D7ED58D8383FFD3D9CABAB1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + A85555555556565A6281858E8E8E8E8FD1777791777284D5D5D5D5D57F7C7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B508080807F7F7F7F070F21210E210D220D210E + 21210D21210C2021220A241415E0B1B1B1B1B1B1ADADADB1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A8985555555556565960507B7B7B7B + 7B7B7B8BD5D5D288CCCBB1B1B1B1B1B1B1B1ADADB1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1AEA05555555556565B7C7B7B7B7B7B7BF1 + EAE7E178CCCCB1B1B1B1B1B1B1B1ADB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1ADA0555555555556566082E6E5F2E6EEE1 + EDEDE193D988CAB8B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1A0555555555656565E507B7B7B7B7B7B7B7B7E8BFD + 7EF9F84C4C4C4C4C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7E82828CD5D5D5 + D5020F210D210D2121210D21210D210E0D210C200D220A241415C1B1B1B1B1B1 + B1AEAEAEB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1AEA0555555 + 555556565960507B7B7B7B7B7B7B7B808A8B7787CBCCB1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1ADA89855555555 + 56565660507B7B7B7B7B7B8AFD8192CBCACAB1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A89855555555 + 555656978C828CFD7DEAE8E9E8E8E8E6E1C5C3B5B1B1B1B1B1B1ADADB1B1B1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1AE98555555555656569750 + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7E7E7E7E7E7F + E8E9E6EEEDEDEDEEE5E9E8E8E81B210D2221210E210D22210D22212121210D21 + 210E23230A1415C1B1B1B1B1B1AEA8A8A8AEADB1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1B1B1AEA05555555555555656595E507B7B7B7B7B7B7B7B7B808080D1D0 + 78CBB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1AEA09855555555555656565E507B7B7B7B7B7B7B808080D1CDCBCBB1B1 + B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1 + B1B1B1AEA89855555555555556565C6A6A6A6A6A9F6D6D6D706F8184D192D3D4 + B5B1B1B1B1B1AEA8AEAEB1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1AE + A055555555555656565D507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7BD5D5D5D5D5D58C8C838F77D292D2DD848A80801B21210D210D21 + 0D21210D210D210D220D21210C210E230A241414E0B8B1B1B1ADA8A8A8A8A8A8 + A8AEB1B1B1B1B1B1B1B1B1B1B1ADA8A098555555555555555656589A07070706 + 07070707070707060606E4D9CACAB1B1B1B1B1B1A8A8A8A8A8A8A8A8A8AEAEAE + ADADADADADADADAEAEAEA8A8A0A0985555555555555556565697070707070707 + 070707060606E4D9CACAB1B1B1B1B1B1A8A8A8A8A8A8A8A8AEAEAEAEADADADAD + ADADADADADADADADAEAEA8A8A0A098555555555555555556565B060606060606 + 060707070707070702698FD294B9B1B1B1B1AEA8A8A0A8A8AEB1B1B1B1B1B1B1 + B1B1B1B1B1B1B1B1AEA0985555555555555656565D507B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507C7C7C7C7C7C7C7C8084DDDD85 + FD7D7B7B7B130D21220D210E21210E21210E21210D210D21210C2122220A2324 + 14E0B3B1B1B1AEA8A0A0989898A0A0A0A0A8A8A8A8A0A0989555555555555555 + 5555555656B303100F0F0F0F0F0F0F0F0F0F0F18180F04151616B1B1B1B1B1A0 + 5555555555555555555555555555555555555555555555555555555555555555 + 55555656C7100F0F0F0F0F0F0F0F0F18180F04151616B1B1B1B1B1A055555555 + 5555555555555555555555555555555555555555555555555555555555555555 + 55555656B303100F0F0F0F0F0F0F0F0F0F0F0F0F1005D58DD1D3A9B1B1B1ADA8 + A0A098989898A0A0A8A8A8AEAEAEA8A8A0A09855555555555555555555565697 + E8DF7B7B7B7B7B7B7B7B7B7C7D7C7C7C7C7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B1321210D2121210D210D210D21210D + 220D21210D210D220E220E230A2414C6B8B1AEA8A0A098955555555555555555 + 55555555555555555555555555555559C70E22220D2122210D2122210D210D22 + 220922141516B1B1B1B1AE555555555555555555555555555555555555555555 + 5555555555555555555555555556A1E30E21210E2121220D21220D2222092214 + 1516B1B1B1B1AE55555555555555555555555555555555555555555555555555 + 555555555555555555555555555556C72222220D2121220D2121210D22210C21 + 2122DFFD828F91AFB2B1B1A8A8A0989555555555555555555555555555555555 + 5555555555555555565AAF9494D3D290F7807E8AFD51F7F7FD7E7D7D7D7D7B7B + 7B7B7B7B7B7B7B7B7B7BD4D4D494D3D29085FD7D7B7B7B7B7B7B7B7B7B120D22 + 210D220D21220D21220D21210D21220D2121210D21220E22230A242404C7AEA8 + A8A09895555555555555555555555555555555555555555555555D621B21210D + 210D210D210D210D21210D220C200B231414B1B1B1B1A0555555555555555555 + 55555555555555555555555555555555555555555555555598C70F220D210D21 + 0D210D210D210D220C200B231414B1B1B1B1A055555555555555555555555555 + 55555555555555555555555555555555555555555555555555B9EF220D210D21 + 0D210D210E210D210D210D210D221B7D7F81838F9CA9ADA8A8A0989555555555 + 5555555555555555555555555555555555555558979CD2D1FF4DFD7C7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B86CFD4D4D494939277D1 + D1FF828A80808080F4120D210D210D21210D21210D210D22210D210D210E210D + 220D22220E220E230A2404C7AAA0989555555555555555555555555555555555 + 555555585D625050F11217261719172601260317032603171917110F1A04B1B1 + B1A8555555555555555555555555555555555555555555555555555555555555 + 5555A6C7E3170F012617190F1703170326012603170117012704B1B1B1A85555 + 5555555555555555555555555555555555555555555555555555555555555555 + 5555A1C701032601260F110F26012617110F111719171917110F11DE7C7E8081 + 828DBBA9A1A0989555555555555555555555555555555555555555555558979C + 9192D393D3D2D1D190DD8F8582D551807C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7F7F7E7E51848FFF8F8F8F8F8FE611210D22210D220D21220D + 21210D210D22210D21210D2121210D22220E22181823230A24C6B9A055555555 + 555555555555555555555555A1B9C722027F507B7BDEF1F1F1F1F1F1F1F1F1F3 + F3F3F3F3E22525F3E9E5B1B1A898555555555555555555555555555555555555 + 5555555555555555555B5C5D97A7F2E6EEEDEBEBEBEBEDECE6E5F2F2F2F2F2F2 + E7DA25F3E9E5B1B1A89855555555555555555555555555555555555555555555 + 55555555555555555596965D97BBE6E6E6E6E6E9E7EAEAEAE7F1F1F3F3F3F3F3 + F3F3F3F3F3F3F37B50507C7D7F8A518284995D5A555555555555555555555555 + 5555555555555A5D9A8C84FFD1929394D49494949494D4D4D4D49392778F8451 + 7E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B536C9F9F6A69A49C65D2D2D2D2D2 + EE110E21210D21210D210D210E21210E21210D22210D220D210E210D21220D1E + 12100E230E23230AE3C7C7B3B3A155555555A6B3B9C7C7EF22220E210F008E8E + 85F78E8F8F8E858D84848D848A7C7C7CBD7A7A897F7F8080808080818D8E8E85 + 858585858585858E8D828C8CFD8080807F7F7F7E7D7C7C50507D824DF78DFFFF + FFFFFF85FD7D7C7C7C7C7C7CBD7A7A897F7F8080808080808080808080808080 + 808080808080808080808080808080807F80F7858F8E858D8D8D84FF77929292 + 92D39393D39277728F8F8F8F8F8F8E8C7F507B7B7B7B7B50507C7D7E7182A49D + BB99975D96965A5555555558965C5D975E627C7C8C8D729090D1779292929292 + 919192D3D392778F817D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C8C + 8282838ED192939291D1D1D1021121210D220D2122210D21210D210D210D2121 + 0D21210D21210D210D2121131F1E22220E220E220E23230E23230E23220E220E + 220E220D220D21210D19E1EBEBEBEBEBEBEDECE5E9E9E5E6F2D5517F7C7A7A76 + 7B7D7B7B7B7F82FF909090FFFFFFFFFFFFFFFF90FFF74D4D817D7B7B507E807F + 7E7E7E7E80828F848282F7F7F7F782807C7B7B7B7B7B7B7B767A7A767B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73D8C9C9C9C99EC8DCC2C2 + C2C2C8C8C8C9BE679F8C828D6BA4A46B6BA3A3696969696969696971747B7B7B + 7B7B7B7B7B7B7B50507C7C7D7E7E7F7F7F7F7F7F7F7F7E7E7D7C7C50507B7B53 + 6DACA569696969A49D9C9C9CA4A3F7848483828A7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B507F828F8F8FFF90919291FF8DF782060F0D220D21210D + 210E21210E210D2221220D210E210D21220D220D21210D13251F11210D212121 + 210D21220D220D210E210D2221210E2121210D210D2113A49D9D9D9D9DA4A369 + 696968FDF54C4C7B7676767B7B7B7B7B7B7DFE8EDD90D1D2929292929292D2D3 + 92D2D2D29172A36A6C6A6A6D7474BEBEBE6770747B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7676767B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7D82848D8D8D8FD177777777D18F8E8E8E85858E8FFF909090DD8E838C8C8C + 8C8C8C8C8C8CD57C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B74679E6C68646161616161646464646464 + 6A676E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BF5F5F5F5F57D7E7B + 7B7B7B7B1F0F210D210D21210D210D210D21210D210D21210D21220D21210D21 + 220D21137B7B070F210D220D210E210D2121210D2121210D210D210D210E2122 + 0D210F1B8D85858585858D8EDD90858C8A2A7E7C50767B7B7B7B7B7B7B7D8282 + 8BFD828585838383838385ECEE72DDFF2DFE4629DFF37B7B7B7BDADADADA737B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B89767B7B7B7B7B7B7B7B7B7B7B7B7B7D + 818C8C848E8FD1D1D1908F83838485858E85F68B8B81818A7E7D7B7B7B7B7B7B + 7B7D8A82F7F7F7827F7C7C7C7C7C7C7C7C7C7C7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7C7C7C7C7D808B807D507B7B7B7B7B7B7B7B7B7B7B7F8C8D90 + 90D1D17777777777777777777790858B7D7B7B7B7B7B7B507FD58E90D2927B7B + 7B7B7BDEF3F3F3F3F3F3F3DE7B7B7B7B1B210D22210E210E21210E21210E210D + 22210D22210D210D210D22210D210D1E7B7B7B1B21210D21210D21210D210E21 + 0D220D210E21210E21210D21210E210F0750505050507C8A8DFF2B3535354343 + 467C7C7C7C7C7C7D818EA4696A6D6D6D6E666666665235303A38382F342F2F2F + 38383A3B3E3DC8DCC2E7DE7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B897B7B7B + 7B7B3639393939393B4C7B8AFE85A4E41E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E + 1E13D87B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B1B1E1E1E1E1E1E + 1E1E1E1E13087B7B74737374709E9E9E9E9F64636363636363BB63A56A9F7170 + 747B7B7B7B7B7B507F828FD1777792D3D3D3D3939393939393D3E1EEE6DC7D7B + 7B7B7B7B7B7B7B7B7B7B7B736EBE67679B9B9B9B9B9B9B676FC06F70130D210D + 21210D210D21210D2121210D210D210D21220D21210D210D21220D127B7B7BF3 + 1E0D210E21210D22210D21210D21210D210D21210D220D210D2121210FF17B7B + 7B7B7B7B6FD874393F343F342F3E7FD5F7F7848F779291DD8DF7F78351FDFD46 + 3A2F3F31323132313231323132313231313F383935297E7C7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B3931323132313E7B7EFDF2E5EC130F0D21 + 21210D21210D210D22210D21210D11F37B7B7B7B7B7B7B7B7B7B7B7B7B7B737B + 7B7B7B7B7B1F0D0D21210E210D21210D21117B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BDEDFDFDFEADC + E8E8E8E8DCE77D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B666666BEBEBEBEBEBEBE + BEBEBEBEBEBEBEC913210D21210D2122210D220D210E210D22210D22210D2121 + 0E21210E210D21127B7B7B7B1D1921210D22210D210D210E21220D210E21210E + 210D2121210E210D2211F37B7B7B7B7BC0CE7B493F323132313F367BF8F8F87E + 51848483518B8B8B807C482F3132313231323132313231323132313231323132 + 333439417B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B4C2F323132 + 313F417B7C808A8C8EE4110D220D210E210E21210D21210D22210D26057C7070 + 6D6D6D6D6D68696969A56C6F7B7B7B7B7B7B2122210D210D21220D21210DF37B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B1221220D22210D210D21210D + 21210D21210D21210D21220D210D2121210D21127B7B7B7B7B050D210D210D21 + 220D21210D210D21210D21210D210E210D21210D212113E7FDFDF4F57B7B7B7B + 41323132313234507C5050706A69A3A3A3A3A3A3684F40313231323132313231 + 323132313231323132313231323132332F3B858FFF908F8F8F8ED57F7E7E7E7E + 7E7D7B7B7B7B7B7B3634313231323449706C6C6CA56BEC1E0D21210D21210D22 + 0D210E210D21220D0F1BD584FF7272729091D2D2D29190848A7E7C505050130D + 210E21210D210D210E21077B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B73706D6D7074537B7B7B7B7B7B7B7B7B73737B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 120D210D210D220D21210D22210D220D210E210D220D210D21210D220D222112 + 7B7B7B7B7B7B1321210D22210D21210D210D22210D22210D22210D21210D2122 + 0D210E13FF8F8FF77E7B7B7B7B3E3132323132347C7B7B7B7B7B7B7B7B7B7353 + 533E3231323132313231313231333F3F343F343F3F3F3331323231323132333B + 8CFD7D7C7C7C507B7B7B7B50507B7B7B7B7B7B7B7E413F313231322F47777790 + 91D393921B0F0D21210E2121210D210D21210D210D211181848D8D8D8EFF90D1 + D1D190858C8C8C8282828B212121210E21210E21212111DE7B7B7B7B7B7BDEDE + DEDEDEDEDEDEDEDEDE7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BDEDEDEDEDE + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B507C7C7C7C7C7C7C7B7BF311210E21210D21210E210D210D21210D21210D21 + 210D22210D22210D210D21127B7B7B7B7B7BF11121210D21220D210E21210D21 + 0D210D210D21220D21220D210D21210F1FFAF9F87B7B7B7B7B7B3A3131323132 + 3A7B7B7B7B7B7B7B7B7B7B7B7B3B313231323132313233403B364C7B7B7B7B7B + 4C49413B402F33323132313240487B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 50503B3F323132313AF78D8385DD908F8E0219210D210D210E2121220D220D21 + 210D2211EE9191908E6969696969696A6D6AA56B6B6B6B120E210D210D21210D + 220D21EC9C9C9D6B6B6B9DA4A4A4A4A46BA3F7F682817D7B7B7B5050507B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B746D68A5A5A5A5696B69A5E9190D21210D21220D + 21210D2221210E21210E21210E21210D210D21210D2221127B7B7B7B7B7B7B08 + 0F0E210D210D2121210E2121220D21220D210D210D210D2121220D210F085050 + 505050505050502F32313231323E747B7B7B7B7B7B7B7B7B4C39323132313231 + 32343B4C7B7B7D518F90D1D1D1EEE6E8EA2A3E393432313231333A2E7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B3A33323132313B7B7B7B7B74747474D813 + 0F21220D21210D210D2121220D210D210FE48F8F8E838B8A8A8A8A8A8AFD8B8C + 7E7D7D1D0D21210D21220D210D21211B8F7272FFFF7277D2EBEBEBEBEBEBEDEE + EEECECE5E77DD87B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7C8A8372779293D4CF7B7B507E7F7E7EFDFD8A808A828E + 909090EE11210E210D210D210D22210D210D210D210D210D210D21210E210D21 + 0D210D127B7B7B7B7B7B7B7B0521210E21210E210D210D210D210D2121220D21 + 210E210D210D21210D11F17B7B7B7B7B7B7B7B493F323132313F8CFD7D7C7C7C + 7C7C7C7C7C3E3132313231323F3E7B7B7B7B7B7B507C7C7D8A83E9DCF1F3F3F3 + 433A3F313231323936DEDEDE7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B4939313231 + 323F417B7B7B7B7B7B7B7B7B05110D21210E21210D210D21210E21210E0F1B6B + 6BA36A6C6A6AA56B72FF8D8A7C7B7B7B0F0D210E210D21220D210D12DE7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73706A6B9D6593D4C3D0879494 + 949494D392D18F4D8BFD4D8FD19177E4260D2121220D21220D210D210D21220D + 2122210D22210E21210D22210D22210FDE7B7B7B7B7B7B7BD81E0D21210D210D + 2122210D2221210E210D21220D21210E21210E21210D1EF57C5050505050507B + 4131313231322F2E7B7B7B7B7B7B7B7B7B41313231323132382E7B7B7B7B7B7B + 7B7B7B7B7B7B736666666666BE9F4439333231322F3E6D6A8181FDFDFDFDFD8A + 7D7B7D7E7E7FFD51432F313231322F487B7B7B7B7B7B7B7B7BF11E0E210D210D + 220D21220D210D210D210F121F0707070707070602020207070707070F212121 + 0D21210D210E2121F17B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7C6D7171717171717171719F9F70707054737B7B + 736F6CA56B9D65A2C5BFCB8887D08686CFD493D2908FDDD1D292D2E40F210D21 + 0D210D2121210E21210E21210D210D21210D210D21210D21210D2121DE7B7B7B + 7B7B7B7B7BF1190D210E21210D210D210D210D21210D210D210D21210D210D21 + 0E21211BDF7B7B7B7B7B7B7B7B3B32313231323A7B7B7B7B7B7B7B7B7B362F32 + 31323132397B7B7B7B737B7B7B7B7B7B7BD8EADCDCDCDCE7D8DEDE283B3F3231 + 323F3E7B7B7B7B7B7B7B7B7B7B7B7B7B7B89505050413F3131323138497B7B7B + 7B7B7B7B7B7BD8130F210D22210D210D21210E21210D22210E210D21210D210D + 210D210D210D22210D210E21210E21210D21210D1F7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B50505050507B7B7B7B7B7B7B507B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B536E66665F5F5F5E5E5E97CC88CDD0D986CFD49392 + 91DD8E858EDD8E1B0F21220D2122210D220D21210D210D210D21220D210D2122 + 0D22210D220D210EDE7B7B7B7B7B7B7B7B7B070F21210D210D22210D2221210E + 210E21210E21220D210E2121210D210F057C7C7C7C7C7C507B7B3A3231323132 + 3B7B7B7B7B7B7B7B7B7B3B323132313238536767676767676F6D6A69A36B6B6B + 6B6B848C7C7B7B7B7B3E3F3132313F3B4C7B7B7B7B7B7B7B7B7B7B7373737373 + 536F3E3F323132313A6861649F6F7373737373C0060F21210D21210D220D2121 + 0D21210D210D22210D220D21220D21220D21210D210D21210D21210E21210E21 + 12DE7B7B7B50505050507C807F7F808A8AD5D5D5D5D58C8282828C8C8C8C8A7C + 7B7C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B73D8D8C9C9C9C9C9C9D8D89EC8C89E6D6D701E0D210D210D210D21210D220D + 2122210D22210D21210E210D210D210D21210D21D87B7B7B7B7B7B7B7B7BDE13 + 0D22210E210D210D210D210D21210D21210D21210D210D220D21220D1907507B + 7B7B7B507E51463F3132313233417B7B7B7B7B7B7B7B482F323132313F417C7F + 7F7F8AD58C8283838383838383834DD57C7B7B7B7B7B3E313132313F3B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B4C3A32313231333B7C7C7C7B7B7B7B7B7B7B + 7BF3190D210D2221210D210E21220D2121210D21210D210D21210D21210E210E + 21220D210E210D210D21210D0F1D7EFDFD6869696969A36B69A5A5A56A6D6D9F + 64646163A46B69A5A5A5A56A6C9F9F6D706F737373737B7B7B7B7B7B7B7B7B7B + 73C0C9C9C9D8DE7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507D5050507B1E + 210D22210D21210E210D21210D210D210D0D21220D21210D210E2121220D210E + DE7B747474747474747474D811210D21210D22210D220D21220D210E21210E21 + 0D22210D21210D210D19F17B7B7B7B7B7B7BF94931323132313F367B7B7B7B7B + 7B7B7B3E32313231323A7B7B7B7B7DFD51515151D5D5D5D5D5D5817F7B7B7B7B + 7B7B4C3B323132313F3E7B7B7B7B7B7B7B7ED58282D57F7C7B7B7B2E39323132 + 313F3E7B7B7B7B7B7B7B7B7B7B7B7B1B21210D210D22210D210D210E210D2221 + 0D220D21220D210E21210D21210D210D21210D21220D210D211B77917777EDE1 + EDEDEDEEE5E9E8DCDE7B7B7B7B7BEAE9E9E981FD8B818B8A8A8A8A8A8A7F7B7B + 7B7B7B7B7B7B7B7B7B7B7B7373C0C8C8C8C8C8C8C8C8C8C8C8C87B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B1E0D210D21220D21210D220D21220D212221210D21 + 0D220D2121210D210D21210DDF8083F7F7F7F7F783D55151000D210D2121210D + 2121210D21210D210D210D21210D210E210D222121211ED87B7B7B7C7F8AD58A + 3531323132312F2A7F7F7F7F7C7B7B2E3932313231343D7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B492F323132312F367B507F808080FD8CF6 + F6F68C8A7D7B7C7D3640323132312F3D8184D581818181FDFD807D7CF00F2121 + 0D210D22210D21210D210D210D21210D21210D210D21210D21210D220D21220D + 21210E210D12C3D9C3D4C5C5A2659C9C6BA59F677B7B7B7B7B7CD5F2E6ECE6E5 + E6EEECE5E5E5E5E5F2F2E8E8E77D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B120D22210D210D220D + 2121210D210D210D210D22210D2121210D210E21210E210DD87C7D7D7D7D7D7D + 7D7C7C7C7C1B0D220D220D210E210D22210D22210D2221210E21210D21210D21 + 0D2121137D7D7EFDD5D5D5D5823A3331323132397F7F7F7F7E7D7C7B2E41413B + 3A3A3E2E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B3A313231 + 3231397B7BF1DCE8E8E8E8E8E8E8E8E5E5E58EDD903C3F323132314047929292 + 92929277FF827E507BD811210E2121210D21210D21220D2122210D220D21210E + 21220D22210E2121210D210D210D21212221BFD986CFD494D391DD8D8A7C7B53 + 706D6D6F6F709F6AA5A5686AA5D7D7C4C4C4C4E9EADFDF7DDE7B7B7B7B7BDFE7 + 7D7B7B7B7B507E7F7F7F7F7F7F7F7F7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7BDE11210D2122210D21210E210D22210D21220D210D21220D210E210D210D + 21210D22D87B7B7B7B7B7B7B7B7B7B7B7B7B1121210D210D21210D210D210D21 + 210D210D210D22210D22210D220D2121137B7B7B7B7B7B7B7B7B393132313132 + 3B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B6E6E6E6E3032313231323F3EC9C2E5E5E5E5E5F2F68C8C8DFFDD90D1 + 9090303132313231392C8484848D84D57C7B7B7B7B7B7B1B0F0D220D21220D22 + 0D21210D210D2121210E0D210D0D210D0D210D220D2122210D220D210D2113D3 + D3EBEDECE5DCF3E27B7B7BC0C8DCC2C86F53737353537373535353535353747B + 7B7B7B7B7B7B7B7B7B7BDEF1F1F3F3F3F3F3F1F1F1F1F1F1F1F1F37B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7BF1110E210D210D21220D210D21210E21210D + 210D22210D210D2122210D21220D210D087B7B7B7B7B7B7B7B7B7B7B7B7BF30F + 0D2121220D21220D210E21210E210D2221210D210D210D2121210E210F077B7B + 7B7B7B7B7B7B4C393132323132417B7B7B7B7B7B7B7B7B7B7B7C7C7C7C7C7C7C + 7C7C7F808A8C838A7D7B7D7E7D507474747C6A81393132313231322F82858EF7 + F7F7F7848DF7D551D5F78E8E84F7F73033323132313A2A7F7FFD51FD807C7473 + 7B737B7B071121210D210D21210D220D21220D210F111212121212121212110F + 210D210D210D210E212112CFCFD49392D1858C807C7C7C7C7F7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B6F9E9F9E676767676767 + 67676767747474737B7B94D3D2908ED57E7B7B7B7B7B7B7B7B7BF1110D21220D + 210D210D22210D21210D220D21210D21220D210D0D21220D210D22211D7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B070D210D210D210D2121210D21210D210D210E2122 + 0D21220D210D21210D19F17B7B7B7B7B7B7B7B362F313132313F367B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73737B7B7B7B74513A + 323132313231322F4E9C9CD1D1D1D2D393D3D29085858E8E8585852D39313231 + 323F3E7B7B7B7B7B7B7B7B7B7B7B7B7B7BF3130F210D220D21210D21210D2121 + 12F36E6E6E9E61639D9C651121220D212221210D210D0FC3D9C3D4C5A2659D6B + A3A3A38484D57E7B7B7B7B7B7B7B7B7B7B7DDF6A6A69A3699FD86FD86D6D6C9F + 69A4A4A4A469A5D5518A808080807F7E7B7B7B7B7B7B88CD86D4949392D1858A + 7C7C7B7B7B7B081921210D21210D2121210D210D210D2121210D210D210D2121 + 21210D210D21210D087B7B7B7B7B7B7B7B7B7B7B7B7B7B7B130E21210D22210D + 220D210E21210E210D21210D21210D210D21210D222111F37B7B7B7B7B7B7B7B + 413F323132312F497B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B4C493B2F32313231323132313F2D9091919191D2D393D3D290 + 858D8D8D8D8D858F443831323132343D7B7B7B7B7B7B7B7B7B7B7B7B5353731F + 192121210D220D210E210D2221121D737B7B6F6D7E7E801B0F210D210D210D21 + 220D21DB94D4D4D4CFCFCF9493939394949393D392D3D3D3D3D2D2EDEDEBDBC5 + C5C5C5DBEBE4E4E4E4E4E1DBDBC5DBEBEDEC85F6F6848D8D8D84D57D507B7B7B + 7B7BD494D391DD8ED57D7B7B7B7B7B7B7B7B1F0F210E210E21220D220D22210E + 21220D220D22210E21220D220D22210E21220D211D7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7BDE110D22210D21210D21210D210D2121220D21210D22210D22210E21 + 0D2121137B7B7B7B7B7B7B7B7B3B33323132313A4C7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B2E363B3833323132313231323132313F + 367C7D7D7D7D8A8DFF6BA56D7453535374747474743D3F3131323140497B7B7B + 7B7B7B7B7B7B7C6A6A6A6A6AF01E0F21210D21210D21210D21211108737B7B7B + 7B7B7BE21721220D210E210D21210D12D29394D4D4D4D4D4D4D4D493929177D1 + 9090FF8F8E517D7B7B7D719F9F9F9F9F6C6DC9C9DCF002E4E4E4E4E402C4F0F0 + F0F0F0F0F0DCEADE7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B050F + 21210D21210D210D21210D21210D210D21210D21210D210D21210D21210D210D + 087B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B080F0D21210D22210D22210D22210D + 210D210E21210D210D210D21210D210F1B7B7B7B7B7B7B7B7B7B3A3F32313231 + 3B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7F7F7F7F7F80828E423C3940333132 + 31323132313231323132312F4C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B3E3F32323132392E7B7B7B7B7B7B7B507F848E8F8F8F8FE6130F0D21210E + 21210E210D22212605E27B7B7B7B7B7B1E0F0D2121210D21210E210FE4779293 + 9393939393939392D18E82FD7E7D7C7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7BDEDEDEDE7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B13210D210D210D210D210D210D210D210D210D210D21 + 0D210D210D210D210D210D21086C6C54747B7B7B7B7B7B7B7B7B7B7B7B7B1B0D + 220D210D210D210D210D21220D21210D210E21210E21210D21220D210F1F7474 + 5454737B7B7B2E39323132313F417B7B7B7B7B7B7B7B7B7B7B7B7CFD8D8E8E8E + 8E8D353C383F313231323132313231323132313231323F3D7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B4C3B313132313F3A7B74537474747B7B7B6D + 6C6C6C6C6C6CA505190D0D21210D21210D210D210F13E27B7B7B7B7B080F210D + 220D210E21210D211B8E90D2D2D2D2D2D2D2D2D18EFEFD8A8B6A6A6A6C6D747B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B071E1E1E1E1E1E1E1E1E + 1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1BE6D191D190D1D2D2 + 929190DDDDDDDDFFFFFF8E1E0D210D2122210E210D22210D210D22210D21210D + 21210E210D21210E210FE6828B8A7B7B7B7B7B362F313231322F485050505050 + 7B7B7B7C7E80828FDDDDDDDD423A343231323132313132313231323132313231 + 32343D7B7B7B7B7B7B7B7B7B7B7B7B7B7C7C7C7C7D7D7D7D7B7B7B2E3A323132 + 313F3E7B7B7B507C5050507E8083F7848483858FEE1E210E210D220D210E2121 + 0D211EE27B7B7B7B8912210D21210D21210D212112E78BD583F7F783D58181FD + 8A8080D5D58C84848484838C8080808080828383838280507B7B7B7B7D7E7E7E + 7E7E7E7E7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B5050 + 7B7B7B7B507B7B507C7FD58FD1D292929277FF7272726B6B9D9CA2A2A2659C9D + 72A3A3A49C65A2A29292939394D3D2D2D2D2D2D1FFFF8FF20D21210D210D2121 + 210D21210E210D210E210D220D21210D220D21210D2119A46BA369717D7D80FD + 353F313231323946824D4DF785828AD5D5D5E8E8E8DCE73E2F31323132313231 + 32313231323132313232312F3E2E7B7B7B7B7B7B7B7B7B7B507E828FFFFFFFFF + DDD19191FF827F7C452F323132313F3D7B507C2A7E7B7B7B7B8A51F78F9090D1 + D2D2130F0D21210D21210D2221212112F37B7B7B7B1B0F210E21210E21210E21 + 0F0269696969A56C747B7B7B7B7B7B7B7BDEDFDFDFDFDFDFDFDFDFDFEAE8E9E9 + E9E8EA7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B746C71547B7B7471808AD58C82838F77929394939277D1 + D1D1D1DD8F8FFF72DDDDFF8451507B7B7B505050507C51D5848E8FFF909090DD + DDDDDDFF1B210E210D21210E210D220D121E260D2121210D21210D0F1E1B0D21 + 210E21128A7B7B7B7B7B7B7B7E3C3F323132313A479292929394949494949493 + D392473F31323132313231313232313231323132343E487E7C7B7B7B7B7B7B7B + 7B7B7B7B7B7B7D8C82824DF784859077DD8DD58B8B433F323132312F497D7F7F + 7E7B7B7B7B7ED58FFFFF8EFF909192DB17220D21220D210D210E212119ECD2D2 + 92ED1121210D210D210D210D2113777283807C507B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B508A8DFF8FF7D58080806AA5 + A5A5696B9D65A294A2659D6B6B6B6B69A5ACD58D909191DD8D80507B7B7B7B7B + 7B502A2A80FD807F7D7B7B7B7C7D7D7D7D11210D220D21210D212121211BF305 + 190D210D210D190673080E210D212121137B7B7B7B7B7D8185DD3A3132323131 + 94CF868686D9D0D0D0D986CFCFCFD43132313231323132323131323231393C8F + 827F7C7C50507B7B7B7B7B7B7B7B7B7B7B7B7B7C7C7C808DDD7792A2A2659C9C + 9C9C3C32313232312FA3696A6D737B7B7B7B7B7CFCFC7E2828F4828FEE110D21 + 0D2122210D210D210D0FE465659C1E0F0E2121220D21220D2112E7FD7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7C51D58C8CD57F7C7B7B7B505050507C7C507DFD7D7B7B7B7B7B7B7B7B7B7B7C + 80FDFD8A8A7F7C7B7B7B507C7C7C2A2A2A7E7B7B7B7B7B7B7B7B7B7B7B7B0F21 + 0D21210D220D210E210F087B7308120F0F121D7B7BF30D21210D22210D05EAF4 + E8F2ECEDEDE19239313132313394CFCFCFD9CDCDD9D9CFCFCFD4393231323132 + 3132313133403E2980807F7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B8B82D551518B8051F78D8D843032313132312F90728D83838FD1D17272 + EEEEEEECECEEEEEDEEE61B0F210D210D21210D22210D22067B7B1D11210D210D + 210D210D210F077B7B7B7B7B7B7B7B7B7B7B7B7B7BDEDEDE7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7BF8F8F8F8F97B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507E7E7E7E7E2A2A507B + 7B7B7B7B7B7B7B7B7B7B1D0F210E21210D21210D210D121D7C5050F107D5FD7D + 7DEA0D220D210D210D21008D858EDD909090D2D22F313231322F9291919192D3 + 92929177DD8D30313132313231323339367B7B7B7B7B7B7B7B7B7B7B7B7B507C + 7C7D7D7C507C7FD5828282828282838585828A7F7F7FD58D729DA46939323231 + 313230D7C2C26163BBBBBB61A762C8C8C8C8C8C8676E6E0826210D210E21210D + 2121210D1F73891221210E21210E21210D211B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BD8DFDCE8E8E8E9E9E9D55151D5848F8D + 828A7F7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7BF87B7B7BF8808A7D7B7B7B7B7B7B7B7B7B7B7B50130F210D210D220D21 + 22210D1E008D8D8DFFD1908E858E21210D22210D22210FF480808A807D7C7B7D + 412F31323132404482FDACA5A5A5ACAC6A6A46333231323132313E7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7DD5828282D58A2A8AD58C8C8C8C8C82696B6BA36A70 + 5454706D6AA3A368AC2F31323231323D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7BD81E0F0D21210D220D210D220D131C13260D21210D21210D222112D8 + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7C + 7C7C7C7C7C7C7C7C7C8A8DFF728F8F838A7C7B7B7B7B7B7B7B7B7CFD838A7C7B + 7B7B7B7B7CDFEAEAEADFDFDFDFE8E9E9DCE7E7DCF2E5E5E9F47D7C7DFDF2ECEE + E1EBEBEB112121220D21210D210D210D1ED4D49493D3D2908F8D120D210D2121 + 0D21211E7B7B7B7B7B7B7B7B7B3E3332313231394C7B7B7B7B7B7B7B7B7B7B2F + 3132313231324C7B7B535353535353535373737B7B7CFD8E90D1D18F82FD8AFD + FDFDFDFDFDFDFD8B8A7B7B7B7B7B7B7B7B7B7B7B7B363F313132313F497B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B050F210D2121210E2121210D121B + 110D220D21210E210D210F077C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B5050505050507C7FD582828E8F8E8EDD + 9192939494D47B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B53747474546C6A6D6F70 + 6D6A6AA3A3A36B9D9C77728F8F8F85D580D58482828A7F7C7C80828A7D7C7C7D + 8A848FFF8EF7D5F78FDD90D1D2D2D2D3EB19210D21210D220D21210F13EB9494 + D3D2908E85DD021311210E210D210E211B7B7B7B7B7B7B7B7B4C3B3132313233 + 3A4C7B7B7B7B7B7B7B7B7B3D3F3231323132497B7B7B50505050505050507B7B + 7B7F82DD91929291FF2B442C2C2CF784848484827F7B7B7B7B7B7B7B7B7B7B7B + 7B7B413332313231402E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B1D + 12210E210D210D210E2121110F21210D220D210D21210E1B8383828A808AF7FF + DDDDDDFF8FFFFFFFFFFF827F507B7B7B7B7B7B7B7B7B7B7B7B7B7BDEDFDFE7E7 + E7E7DCD5FE8C828282FD507B7B7B507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B747054535353746D6C6C6D6D6C6C6D6D6D6D747B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7BF8F9FA7EFAFAFA2AFD68686969686868050F21 + 0E210D21210E0F13E56B84F7D58BFD8AFD82858500131121220D210D0F077B7B + 7B7B7B7B7B7B2E3A31323132343E7B7B7B7B7B7B7B7B7B7B3A33323132313E7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7D7E7E7D7D342F2F2F4039457C7C7C7C + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B3A32313231323A807F7E7E7E7D7D7D7D7D + 7D7D7E7E7C507B7B7B7B7B7BF3130D210E21210D210D220D210D2121210D2122 + 0D210D12C2A3A46B8F8FD1777777777777D2D29292D2908D80507B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B737373CE7FFD818A6A6868686A6A6A6A686D74747B7B + 7B7B7B7B7B7B7B7B7B7B7B7D7D7D7C7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B50507C7C7C7C7C7C7C7E7FD5848E728E + 8D4D828A7D7C898989731321210D21210D1113E27B507C7C7C7C7C7C7C7D8A84 + 8DF71C13112121210D0F1D7B7B7B7B7B7B7B7B4939313231322F417B7B7B7B7B + 7B7B7B7B4C393332313234487B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B413331323132394C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B4C39323132 + 3132308EF74D8C8BFDFDFDFDFD51F78F90D1DDF77F7B7B7B5074070F21210D21 + 0E21210D21220D210D22210D210D212605EDEBDBEBE1E1E1E1E1E1E1E1E1E1E1 + E1EEE6E9E77B7B7B7B7B7B7B7B7B7B7B7B7B74C0C0C0BEBEBEBEC8C2DCC8C2C4 + BB9CE1DBC5C5C594CF867BD8F4F4F4F4F4F4F4F4E7F2ECEDED9DD7D7C4686C54 + 737373737373737353737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7353709E9F6A + 6A6A6A6A6A9F6AA56B9D656577DDFF84D57E7C505050D81121210D2219131CE2 + E2E2E2E2737B7B7B7B7B89DEF3F1071F1312210D222111D87B7B7B7B7B7B7B7B + 483F3132313240367B7B7B7B7B7B7B7B7B492F323132312F367B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B3F32313231323E7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B737033323132313F4272728584848484F78D7291D292D392D1 + 8F8281D54D4D85EC11220D21210D21220D21210D210D210E21210E2113929394 + 94949393939393D3D277D2D3D3D2DDFF8E8C7E7B5050507C7F7F80FD84DD908F + 8E8E85828A80FD828C8C828C8B8B7F7E507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B737B7B7B7B7B7B737B7B + 53535353706C6C6A6A6AA5A5A5A5A5A5A56A9F9F9F6869A5716D6D70507B7B7B + 7B7B7B08190E21210F111212121212121E067C7C7C7C061212111119110F2121 + 210D211EDF7E7F7F7F7F7F80D53E3132313231392E7B7B7B7B7B507B7B7BF939 + 313231322F35F78E8F8F8E827F507B7B7B7B7B7B7B7B7B7B7B7B3A3332313231 + 3F2E7C7C7C7C7C7C7C7B7B7B7B7B7C6D6D6D6D6A9F3632313231322F6C9F9F6A + 6A9F675471696BA49C65659177D1D1D1D1FFDD77771321210D220D210D210E21 + 220D2121210D210D12EE92D29191919191919177FFF7F78DF7807C7C7DDE7BE2 + F1F1F1EAE8E8E5ECEDEBEBEBEBEBEBEDEC858D8DF68C8CD58A7F7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7D7D7E7F7F + 8A8C8282828282828283F7F78DA3A568696B6B6B6B6969696969696969A56A67 + 737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B1321210D210D220D21210D212119077C + 2ADF1B220D21220D21210D220D210E211B7C7FD582F78D858F8F303132313231 + 3A828A818590FF8D8484F7E539313231323430ECECE6E6E9EA7B7B7B7B7B7B7B + 7B7B7B73737B3B3332313231323DDADADA737B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B3E3132313231404C7B7B7B7B7B7B507C7C7B7C7D7D7C7B7B7B7B7B7B7B7B + 7B7B1F21210D21220D21210D21210E210D220D210F077B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B507E7F7F7F7F7FF4E9ECEEEDEDEDEDEEE6F2E9F2E5 + E8E8E8E8E8E8DF7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B808C8283838383828C8C8C4D858F8F8FA4A4A4A36969 + A4A4A4A4A4A4A4A4A46B696A6C6D7C7C7C7B7B7B7B7B7B7B7B7B7B7B7B1E0D22 + 210D21210E21220D21211108507B130D21210D21210E21210D21210E21077B7B + 7B507F82FF91D239323132313F3A86D0CD88CBCBCBCB88CD863932313231322F + 30D1FF827F507B7B7B7B7B7B7B7B7B7B7B7C3931323132313239828C8C8DDD91 + 91919177FF8DF7F7F7F78DFFF78A803931323132313A7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BF31722210D21210D210E21210D21212121 + 0D137B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7DD58C8C8C8C8C8C8C8A807F7F7F7C7C7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73706AACA5A5A5A56A8080 + FDFE8FEEEEEEE1E1EDE6F2F2ECEEEDEEEEEEEEEEEEE6E58DFFFF8D8D8D8DF7D5 + 7F507B7B7B7B7B7B7BF1110D21220D210D210D210E210D121D7313210D220D21 + 0D210D22210D2121210F1D7B7B7B7B7B7C818C4D34313231323F929394949494 + 94D4D49492913C2F32313132313F3B2E7B7B7B7C7C7B7B7B7B507C7C7F3B3132 + 31323132313891909091D3939494949493D3D3D3D3D3D3D3D290DDFF2F313231 + 32313E492E2E2E2E2E2E2EF82E2E502E2E2E4C7B7B7B7B7B7B7B7B7B7B130F21 + 0D21220D210D210E210D220D2112D87B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B8B4DF7F7F7F7F74DFE + 8C8C8CD5D5D57B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B747C8A8A8A808A8C8E90D2D2D2D393939291919293939292929292 + 91FF8D4D4D4DFE83858E8583D5807F7F7F7F7F7F808A1F0F210D21210D21210D + 21210D21121F130D21210D21210D21210D210D210D2119F37B7B7BD8F4E8E5E5 + 2B3F323132313FF6E88A7D7D8A8D8E854DD551433A3F3231313231323430424A + 4A8E517E7F81D5352F323132313231323138EED7C4C4C4D7A43A323132313231 + 3231323132313231323132313231323132313231323131313131313131313448 + 5353737B7B7B7B7B7B7B071921210D21210E21210D210D21210F068181FDFD80 + 507B7B7B7B50507C8082F7D57F7B7B7B7B7B7B7B7B7B7B7EFD7F7F8A7D7B7B7B + 7B7E82FF91D2D2D2D2919085FE8CD5FD8A8AF1F3F3D8DEDEDEDE747B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B706D6AA5696969696BA472A46B6B6B + 6BA3A5A5848D8DD57F7E7E7E7D507DD58C8C8269A3636964649B9B9B9B9B9B9B + 6261611B21210D21220D22210E21220D211912210E21220D22210E21220D2221 + 0E210D13D87B7B7B7B7B7B7B7B4133323132312F7B7B7B7B7B7B7B7BF9FA8A4D + 8D42393F32313231323132313231323132313231323132313231323132398383 + 8C8A808080462F32313231323132313231323132313231323132313231323132 + 32323232323232323232322F69699F747B7B7B7B7B7B7BF3130F0D210D21210D + 2221210D220D139C9C726B69716D6D6D6D6C6A6884FFFF8DD5507B7B7B7B7B7B + 7B7B7B7F51517F7C7B7B7B7B7B7B7C818E90D1D1D1D19085FE8C8CD5D5D51E1E + 1313DBDBDBE1E4EE8F827E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C + 80828484848D8D8D8D8484848484F7848484F7517C7B7B7B7B7B7CD58C8C8C8C + 8282AC8A7F73767676767353708A8AF11E220D210D210D21210D21210D21210D + 21210D21210D21210D21210D2121210D1B7B7B7B7B7B7B7B7B7B3B3132313231 + 397B7B7B7B7CFD8D85858EFF85FEFE42393F3132313231323132313231323132 + 31323132313231323F3D7B7B7B7B7B7B7B7B362F313231323132313231323132 + 3132313231323132313132313131313131313131313131313877728D8C7F507B + 7B507C7F8C1B260D21210E210D210D210D21119393D2D18EF7F7F784A3A3686C + 706C9F9F6C537B73549E9F9F9E6F6E6666667B7B7B7B7B7B7B7B7B74747D8AFD + FDFDFD8A808080808080ECE6E6E6E6E6E6E585858D8CF47B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B507E7E7E7E7E7D7D7D7D7D7E7EDF6C9E9E9E67 + 537B7B7B7B7B53706D6D6D6D6D6D6D70705373737353706AA5A5A56802112122 + 210D210D0D210D0D210D0D210D0D210D0D210D0D210D0D210D0D210D0F1F7B7B + 7B7B7B7B7B50503931323132313C828282FFD191919190858A7C7C8A4D353038 + 33313231323132313231323132313231323132343E737B7B7B7B7B7373737341 + 3F32313231323132313231323132313231323132323232323232323232323232 + 32323232333AA4A46B696A70706D6D6D6D6CF011210D210D210D210D210D0FDB + D3D2D1909192D39394D3D290DD9091919190727277929292778E8C7E7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B6A6A6A6A6AC4D7EC9CEB + DBDBDBDBE1E4E4EC000000ECECECECE5E8EAD87B7BD8D8D8EAE5D7D7D7D7D7C4 + A5A5A5A5C4C4C461649E6E73737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7C7F7D7F7D80050F210D22212221222122212221222122212221222122 + 21222122212221222126087B7B7B7B7B7D7D50492F32313231323D7C7C7D7D7E + FD82FD7C7B7B7B7B7B7B7B4B3D3E392F313231323132313231323132313F3A48 + 7B7B7B7B7B7B7B7B7B7B7B7B3E2F402F2F402F2F402F2F402F2F402F2F402F38 + 393939393939393939393939393939393939D4CFCF9493D2D190728D8C8A51E8 + 1B1E1E1E1E1E1E1E1E1E1EE4FFF7FDFD8DDDD1D29292D291919191919177FF8D + 8D858DF78A7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B746A838FD1777777777777D190D1D177779177FFF78B7B7B + 7B7B7B7B7B7B7BCECE737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507C507C7C1B111111111111111111 + 111111111111111111111111111111111111111111111ED87B7B7B7B7B7B7B7B + 2E36363636362E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73734C2E36413E39 + 3940402F4039393E3D497B7B7B7B7B7B7B7B7B7B7B7B7B7B7B2E2E2E2E2E2E2E + 2E2E2E2E2E2E2E2E2E2E2E4C4C7BF5FD8DFF9192D3D4CFCFCFCF86D087787888 + CDD9CF94D392779085D58A8080807B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7F828FFFFF779293939393 + 93939393939277FF827E7B7B7B7B736E6E6E6E6F9F646161616161639D9DA48E + FFD1D1D1D2D3D3D29085F7F78FD19CA46BA47272A4A369AC6A6C6AA5A5A569A3 + A56C7D7F7E507B7B7B50D8D87B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7BDE7BDE7BDE7BDE7BF5F4FD8B84FDF57BDE7BDE7BDE7BDE7BDE7BDE7BDE + 7BDE7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B4C4C4C4C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7C7F808C858E8E8E8E8585858584E9F2F2F2E9F47DDFE8F2E9E9E6EE + E1D394C594D3D393D4D4D4CFCFD4939292D2D190858C8A8080807C7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7C80828D8D8ED19293939393939494949392778F4DFD7B7B7B7B8686CFD493D3 + 92D277728D8D727791908EF78590908FFFD1D1D1908E85858E8F8F8E84858584 + 817D7D8A838C8DDD919191D29177DD854DD5D5D551517F7C7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7C7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73737373737373537474747474 + 7B7B507C7B7B7B7B7C7D808A8A807F7F7F7F7F7F7F7E7C7F82FF8FD57F7D507D + 7F7F7F808A836B6BA49C659C6BA59FC2D7D7D7C4C4A5A5C2C2C9D8DEDE7B7BDE + DEDEDE7B7B7B507E7E7E7F82F784858585F78A7E7E518590D2D2D18F8E8E8D81 + 8A807FD5D5D5807F7E507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C80F7FFDDDD909192929292D18F82 + 51FD8A8A807D8181FDFDD5D5D5D5518BFDFD51848FFF854D4DF7F74D4D4D4D82 + 828C8C8C8C8C8A7D7B7B7B7B7B7B7B7BF9F9FDF7FFDDDDDDDDDDFFFF8EF7518A + F9F87B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B5080F784848D858D8D858D817E8A81F785DD90DD8DD57D7C7C7C50 + 7C7C808C8E909085FED5FD8C8DFF9091D2D394CFD4D4D4949291909090909085 + F68B807D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7D7D7D7D7D7C7B7B7B7B7C7C7C7C7C7C7C7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507D51D5D5D58C8C8C828D + 8E728E858D8D8D8D848251802A2A7C7C7C7C507B7B7B7B7B7B7B7B7B7D7E7F82 + DD779191919191919177FF8DD5517E7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C8A828385DD9090909090DD9090 + 8F8E8E8E8EFE8A7B7B7B7B7B7B7B8AFE858F854D8C8CD58CFE848F9091929394 + 939277FF8D8585858585858D8DD580FDFD7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73 + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B50706D6D6CA5A5A5A5696969696968686868686A6C707C7C7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B8A51515151D54DF7F7F74D8CFD8A807C7B7C7F7C + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B74 + 6A6868A3A49D9D9D9D9D9C9C9DA3A3A3A384837E507C7C7C7D81858E8F8E8382 + 828282828284729192D2D2778F4D51FD8AFDFDFDFDFDFDFD8A507B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7D8A8BD58D8585858DD5D5D5D5D5D5D5817E507B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73709E6262626262626161616163 + 6363636369696A70507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B808C8C8C8C8C8282 + 828282828CD58A80806AA56A70537353535353706D6D6D6D6D6D70537B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7C7E7F7F80828D82807C7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B5080836B9D9D9D9D9D9D65A2A2659CA4A49C65A29C + A4A3F7F76B9D9D9D9D6BA56A6A6A68686D6F549F6969A5717C507D7E7E7E7E7F + 9F9F9F9F9F6C7473737373737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C + 7C7C7C7C7C7C7E7D7E7C7C7C7C7C7C7C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BD8DE7B7B7B7B7B7B7B7B7B7B7B7B + 7B746F6C696BA3A3A3A36969696969A3A3A36969A58CD57D7B7B7B7B7B7B7B7C + 7F7F7F7F80807F7B7B7B7B7B7B7C7E802A2A507B7B7B7B7B7B7B7B7B507F8282 + 807C7B7B7B505050507C7C507B7B7B7B7B7B7B7B7B7B7B7B7BDED8D8D8D8D8D8 + D8F4E5ECE6E6E6E6E6E6E5DC7D7B7B7B7D82838382FD7B7B7B7B6666737B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7DF4E7F47E7DFDD5D5D5D5D5D5D5D5D5D5D57F507B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BDFE8E6E6E6E6E6E6E6E6E5E8 + E7E77B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B50507B7B7B7B7B7B7C8AE5E6EEEDEDEDEDEDEEECECECEEEDEDEDEDEE + E5E88A7C7B7B7B7B7B7B7B507C507B7B7D7F7F7E7D7E7F7F7F7D8A80802A7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507C7D7C7D7D7FFD7D7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C808080 + 807F7E507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7BC0C9C9C9706CA56B6B6B6BA4A4A4A4A46B699F7D7B + 7B7B507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B8AFDFDFDFDFDFDFDFD + 8B8BFD7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7C7E8B8151D58C82828B8B817C7C7C7C7C7C7C7C7C7C7C7C7C7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B50808DFFDDDD9090D1 + D2D291908FDD90D29292D2D18EF6FD7D7D7D7C507B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7C7F807F7F7F7F7F7F7F7F7F7F7E7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7C7FACA3A49C9C9DA4A4A4A4A4A4A4A4A4A46B69A59F7D7B7B7B7B7B7B7B + 7B7B7B7B5050505050507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7D8A7D7D7D7D7C7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7E718181818181D5D584848D8D8B7E6D6C6D6F737B7B74747474745353 + 7B7B7B7353537B7B7B7B7B7B7B7B7B507ED585909192939394D4848D8D8D8D8D + 8D8D8D8D8D8DD57C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7C7C7C7C7C7D8AD5F7F74D4DF78DDD91919177DDFF8F8F8F8F85D5 + 8A80807F7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C808C8C8CD57D7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7D7D7D8A8AFDFD8B8B5151D5 + AC9F9F9F6C707054737B7B7B7B7B7B73666666737B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B6EBEBEBEBEBE67679F6469A4A4636161 + 6163BB9D77919C65659C9D9D6BA36A6D6D6AA561649F676F737B7B7B7B7B7B7B + 7B7B7B7B7B7B7D8082F7F7F7F78D8D8D8D8D80507B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7F7F80D5828FD1 + 9292929292929292929291FF8D8CD5D57C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7D7F7F7F7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7BDEF5F4FDD5FE8D8F90919191919191929277FF8E8E8E8EA4A3696A6C70 + 537B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7C8A818C7E7C7C7E818DDDDDDDDD9090DD728D8C7F7B7B507C7C + 7C507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C7D8A8A807B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7D7D7D7D7D7E7E7F518BFD8A8080807C507B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7BC0F1DCF0F00000E58D9091D2D27777D1D1D177D1 + 8E828BFDFD8B818A7C7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B507B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BDEF37B7B7B7B7B7B7B7B7B7B + 7B7BF3F1E7EA7D7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7353737373737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7C7D7D7D7D7D7EFD8B8B8B8B8B8BFDF480DF707074747474746F6D + 7169A4A4A4A46BA369696982FD802A2A2A7C7C7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B73BDBDBDBDBD737373 + 737373737373737B7B7B7B7B7B7CD584DD9090907791919191D292D393939291 + FF827F507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B735353535353737B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B507FF79091D2D2D2D2D2D2D2D2D2D2D2D290 + 858C807B7B7B7B7B7B7B7B7B7B7D828383838382828282D5802A2A2A2A7C7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7F82F7F7F7F7F7 + F7F7F7F7F7F7F7827F507B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B + 7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7C8C8ED1D29292 + 929293939393D4CF86CFD49392D1858A7C7B7B7B7B7B} + end + end + object cmdOK: TButton + Left = 259 + Top = 447 + Width = 72 + Height = 21 + Anchors = [akRight, akBottom] + Cancel = True + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 11 + end + object lbl508Notice: TMemo + Left = 8 + Top = 340 + Width = 322 + Height = 97 + 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 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') + ReadOnly = True + TabOrder = 10 + end +end diff --git a/CPRS-Chart/fAbout.pas b/CPRS-Chart/fAbout.pas new file mode 100644 index 0000000..584efd7 --- /dev/null +++ b/CPRS-Chart/fAbout.pas @@ -0,0 +1,73 @@ +unit fAbout; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ExtCtrls; + +type + TfrmAbout = class(TfrmAutoSz) + Panel1: TPanel; + Image1: TImage; + cmdOK: TButton; + lblProductName: TStaticText; + lblFileVersion: TStaticText; + lblCompanyName: TStaticText; + lblComments: TStaticText; + lblCRC: TStaticText; + lblLegalCopyright: TMemo; + bvlBottom: TBevel; + lblFileDescription: TStaticText; + lblInternalName: TStaticText; + lblOriginalFileName: TStaticText; + bvl508Disclaimer: TBevel; + lbl508Notice: TMemo; + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +procedure ShowAbout; + +implementation + +{$R *.DFM} + +uses ORSystem, ORFn; + +procedure ShowAbout; +var + frmAbout: TfrmAbout; +begin + frmAbout := TfrmAbout.Create(Application); + try + ResizeFormToFont(TForm(frmAbout)); + frmAbout.lblLegalCopyright.SelStart := 0; + frmAbout.lblLegalCopyright.SelLength := 0; + frmAbout.lbl508Notice.SelStart := 0; + frmAbout.lbl508Notice.SelLength := 0; + frmAbout.ShowModal; + finally + frmAbout.Release; + end; +end; + +procedure TfrmAbout.FormCreate(Sender: TObject); +begin + inherited; + lblCompanyName.Caption := 'Developed for ' + 'VOE VWPT Patient Enhanced Lookup Version 1.6b'; //vw + //lblCompanyName.Caption := 'Developed by the ' + FileVersionValue(Application.ExeName, FILE_VER_COMPANYNAME); + lblFileDescription.Caption := 'Compiled ' + FileVersionValue(Application.ExeName, FILE_VER_FILEDESCRIPTION); //date + lblFileVersion.Caption := FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION); + lblInternalName.Caption := FileVersionValue(Application.ExeName, FILE_VER_INTERNALNAME); + lblLegalCopyright.Text := FileVersionValue(Application.ExeName, FILE_VER_LEGALCOPYRIGHT); + lblOriginalFileName.Caption := FileVersionValue(Application.ExeName, FILE_VER_ORIGINALFILENAME); //patch + lblProductName.Caption := FileVersionValue(Application.ExeName, FILE_VER_PRODUCTNAME); + lblComments.Caption := FileVersionValue(Application.ExeName, FILE_VER_COMMENTS); // version comment + lblCRC.Caption := 'CRC: ' + IntToHex(CRCForFile(Application.ExeName), 8); +end; + +end. diff --git a/CPRS-Chart/fActivateDeactivate.dfm b/CPRS-Chart/fActivateDeactivate.dfm new file mode 100644 index 0000000..ae426aa --- /dev/null +++ b/CPRS-Chart/fActivateDeactivate.dfm @@ -0,0 +1,62 @@ +object frmActivateDeactive: TfrmActivateDeactive + Left = 491 + Top = 376 + AutoScroll = False + 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 = [] + OldCreateOrder = False + DesignSize = ( + 353 + 185) + PixelsPerInch = 96 + TextHeight = 13 + object TActivate: TButton + Left = 143 + Top = 160 + Width = 56 + Height = 25 + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = 'No' + TabOrder = 2 + OnClick = TActivateClick + end + object TDeactive: TButton + Left = 63 + Top = 160 + Width = 56 + Height = 25 + Caption = 'Yes' + TabOrder = 1 + OnClick = TDeactiveClick + end + object Memo1: TMemo + Left = 0 + Top = 0 + Width = 345 + Height = 145 + BorderStyle = bsNone + Color = clBtnFace + Lines.Strings = ( + 'Memo1') + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 0 + end + object TCancel: TButton + Left = 225 + Top = 160 + Width = 56 + Height = 25 + Caption = 'Cancel' + TabOrder = 3 + OnClick = TCancelClick + end +end diff --git a/CPRS-Chart/fActivateDeactivate.pas b/CPRS-Chart/fActivateDeactivate.pas new file mode 100644 index 0000000..201371b --- /dev/null +++ b/CPRS-Chart/fActivateDeactivate.pas @@ -0,0 +1,182 @@ +unit fActivateDeactivate; + +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; + +type + TfrmActivateDeactive = class(TfrmAutoSz) + TActivate: TButton; + TDeactive: TButton; + Memo1: TMemo; + TCancel: TButton; + procedure TActivateClick(Sender: TObject); + procedure TDeactiveClick(Sender: TObject); + procedure TCancelClick(Sender: TObject); + private + { Private declarations } + procedure GetOriginalOrders(OrderID: TStringList; var OriginalOrder: TORStringList); + procedure BuildForm(Str1: String); + function PromptForm(Text: String): String; + public + { Public declarations } + + procedure fActivateDeactive(OrderID: TStringList); overload; + procedure fActivateDeactive(OrderID: TStringList; AList: TListBox); overload; + end; + +var + frmActivateDeactive: TfrmActivateDeactive; + Act: Boolean; + Deact: Boolean; + CancelProcess: Boolean; + +implementation + +{$R *.dfm} + +{ TfrmActivateDeactive } + +procedure TfrmActivateDeactive.BuildForm(Str1: String); +var + str: string; +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 := 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'; + Memo1.ReadOnly := False; + Memo1.Text := str; + Memo1.ReadOnly := True; + end; + ResizeAnchoredFormToFont(frmActivateDeactive); + frmActivateDeactive.ShowModal; + frmActivateDeactive.Release; +end; + +procedure TfrmActivateDeactive.fActivateDeactive(OrderID: TStringList); +var +i,j,Pos: integer; +tmpArr: TORStringList; +ActDeact: string; +AnOrder,AnOrder1: TOrder; +begin + //called from order tab + tmpArr := TORStringList.Create; + GetOriginalOrders(OrderID,tmpArr); + with forders.frmOrders.lstOrders do for i := 0 to items.Count-1 do if Selected[i] then + begin + AnOrder := TOrder(Items.Objects[i]); + Pos := tmpArr.IndexOfPiece(AnOrder.ID,U,1); + 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 = 'C' then Selected[i] := False; + end; + end; +end; + +procedure TfrmActivateDeactive.fActivateDeactive(OrderID: TStringList; AList: TListBox); +var +i,j,Pos: integer; +tmpArr: TORStringList; +ActDeact: String; +AMed,AMed1: TMedListRec; +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 + begin + AMed := TMedListRec(Items.Objects[i]); + 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; + end; + if ActDeact = 'C' then Selected[i] := False; + end; + end; +end; + +procedure TfrmActivateDeactive.GetOriginalOrders(OrderID: TStringList; var OriginalOrder: TORStringList); +var +i: integer; +begin + CallV('ORWDX1 DCREN', [OrderID]); + for i := 0 to RPCBrokerV.Results.Count-1 do + OriginalOrder.Add(RPCBrokerV.Results.Strings[i]); +end; + +function TfrmActivateDeactive.PromptForm(Text: String): String; +begin + frmActivateDeactive := TfrmActivateDeactive.create(Application); + BuildForm(Text); + if Deact = True then Result := 'D'; + if Act = True then Result := 'A'; + if CancelProcess = True then Result := 'C'; +end; + +procedure TfrmActivateDeactive.TActivateClick(Sender: TObject); +begin + inherited; + Act := True; + Deact := False; + CancelProcess := False; + frmActivateDeactive.Close; +end; + +procedure TfrmActivateDeactive.TDeactiveClick(Sender: TObject); +begin + inherited; + Act := False; + Deact := True; + CancelProcess := False; + frmActivateDeactive.Close; +end; + +procedure TfrmActivateDeactive.TCancelClick(Sender: TObject); +begin + inherited; + Act := False; + Deact := False; + CancelProcess := True; + frmActivateDeactive.Close; +end; + +end. diff --git a/CPRS-Chart/fAddlSigners.dfm b/CPRS-Chart/fAddlSigners.dfm new file mode 100644 index 0000000..05ccc63 --- /dev/null +++ b/CPRS-Chart/fAddlSigners.dfm @@ -0,0 +1,206 @@ +object 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 = [] + OldCreateOrder = True + Position = poScreenCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TPanel + Left = 0 + Top = 0 + Width = 403 + Height = 362 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object pnlButtons: TORAutoPanel + Left = 0 + Top = 309 + Width = 403 + Height = 53 + Align = alBottom + BevelOuter = bvNone + TabOrder = 2 + object cmdOK: TButton + Left = 125 + Top = 14 + Width = 75 + Height = 25 + Caption = 'OK' + TabOrder = 0 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 215 + Top = 14 + Width = 75 + Height = 25 + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = cmdCancelClick + end + end + object pnlAdditional: TORAutoPanel + Left = 0 + Top = 70 + Width = 403 + Height = 239 + Align = alClient + TabOrder = 1 + object SrcLabel: TLabel + Left = 11 + Top = 15 + Width = 175 + Height = 16 + AutoSize = False + Caption = 'Select or enter additional signers' + end + object DstLabel: TLabel + Left = 214 + Top = 16 + Width = 145 + Height = 16 + AutoSize = False + Caption = 'Current additional signers' + end + object cboSrcList: TORComboBox + Left = 11 + Top = 33 + Width = 174 + Height = 185 + Style = orcsSimple + AutoSelect = True + Caption = 'Select or enter additional signers' + 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 + TabStop = True + OnClick = cboSrcListClick + OnKeyDown = cboSrcListKeyDown + OnMouseClick = cboSrcListMouseClick + OnNeedData = NewPersonNeedData + CharsNeedMatch = 1 + end + object DstList: TORListBox + Left = 213 + Top = 33 + Width = 174 + Height = 185 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = DstListClick + Caption = 'Current additional signers' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object cmdRemove: TButton + Left = 264 + Top = 221 + Width = 75 + Height = 25 + Caption = 'Remove' + TabOrder = 2 + Visible = False + OnClick = cmdRemoveClick + end + end + object pnlTop: TORAutoPanel + Left = 0 + Top = 0 + Width = 403 + Height = 70 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object lblAuthor: TOROffsetLabel + Left = 12 + Top = 9 + Width = 97 + Height = 15 + Caption = 'Author (not editable)' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lblCosigner: TOROffsetLabel + Left = 213 + Top = 10 + Width = 155 + Height = 15 + Caption = 'Expected Cosigner (not editable)' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object cboCosigner: TORComboBox + Left = 214 + Top = 26 + Width = 174 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'object lblCosigner: TOROffsetLabel' + Color = clCream + DropDownCount = 8 + Enabled = False + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2,3' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + TabStop = True + OnChange = cboCosignerChange + OnExit = cboCosignerExit + OnNeedData = cboCosignerNeedData + CharsNeedMatch = 1 + end + object txtAuthor: TCaptionEdit + Left = 14 + Top = 27 + Width = 178 + Height = 21 + TabStop = False + AutoSize = False + Color = clCream + ReadOnly = True + TabOrder = 0 + Caption = 'Author (not editable)' + end + end + end +end diff --git a/CPRS-Chart/fAddlSigners.pas b/CPRS-Chart/fAddlSigners.pas new file mode 100644 index 0000000..9f700df --- /dev/null +++ b/CPRS-Chart/fAddlSigners.pas @@ -0,0 +1,314 @@ +unit fAddlSigners; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ORCtrls, ORfn, ExtCtrls, FNoteProps,Dialogs; + +type + TfrmAddlSigners = class(TForm) + cmdOK: TButton; + cmdCancel: TButton; + cboSrcList: TORComboBox; + DstList: TORListBox; + SrcLabel: TLabel; + DstLabel: TLabel; + pnlBase: TPanel; + cmdRemove: TButton; + lblAuthor: TOROffsetLabel; + cboCosigner: TORComboBox; + lblCosigner: TOROffsetLabel; + txtAuthor: TCaptionEdit; + pnlAdditional: TORAutoPanel; + pnlButtons: TORAutoPanel; + pnlTop: TORAutoPanel; + 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 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); + private + FSigners: TStringList ; + FCosigner: int64; + FExclusions: TStringList; + FSigAction: integer; + FChanged: Boolean; + FNoteIEN: integer; + FRefDate: TFMDateTime; + FToday: string; + FTabID: integer; + function CosignerOK: Boolean; + end; + +TSignerList = record + Changed: Boolean; + Signers: TStringList ; + Cosigner: int64; + end; + +procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; Exclusions: TStrings; + var SignerList: TSignerList; TabID: integer; ARefDate: TFMDateTime) ; + +const + SG_ADDITIONAL = 1; + SG_COSIGNER = 2; + SG_BOTH = 3; + +implementation + +{$R *.DFM} + +uses + rCore, uCore, rTIU, uConst, rPCE; + +const + TX_SIGNER_CAP = 'Error adding signers'; + TX_SIGNER_TEXT = 'Select signers or press Cancel.'; + TX_BAD_SIGNER = 'Cannot select author, user, expected signer, or expected cosigner' ; + TX_DUP_SIGNER = 'You have already selected that additional signer'; + TX_NO_COSIGNER = ' is not authorized to cosign this document.'; + TX_NO_COSIGNER_CAP = 'Invalid Cosigner'; + TX_NO_DELETE = 'A cosigner is required'; + TX_NO_DELETE_CAP = 'No cosigner selected'; + + +procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; Exclusions: TStrings; + var SignerList: TSignerList; TabID: integer; ARefDate: TFMDateTime) ; +{ displays additional signer form for notes and returns a record of the selection } +var + frmAddlSigners: TfrmAddlSigners; + W, H, i: Integer; +begin + frmAddlSigners := TfrmAddlSigners.Create(Application); + try + with frmAddlSigners do + begin + FTabID := TabID; + FSigAction := SigAction; + FNoteIEN := NoteIEN; + FRefDate := ARefDate; + FExclusions.Assign(Exclusions); + FToday := FloatToStr(FMToday); + if FSigAction = SG_COSIGNER then + begin + pnlAdditional.Visible := False; + Height := Height - pnlAdditional.Height; + end; + Font.Size := FontSize; + W := ClientWidth; + H := ClientHeight; + ResizeToFont(FontSize, W, H); + ClientWidth := W; pnlBase.Width := W; + ClientHeight := H; pnlBase.Height := H; + with FExclusions do for i := 0 to Count-1 do + begin + if Piece(Strings[i],U,3) = 'Author' then txtAuthor.Text := Piece(Strings[i], U, 2) + else if Piece(Strings[i],U,3) = 'Expected Cosigner' then + begin + cboCosigner.Items.Add(Strings[i]); + cboCosigner.ItemIndex := 0; + end + else + DstList.Items.Add(Strings[i]); + end; + + if (SigAction = SG_COSIGNER) or (SigAction = SG_BOTH) then + begin + lblCosigner.Caption := 'Expected cosigner'; + cboCosigner.Caption := 'Expected cosigner'; + cboCosigner.Color := clWindow; + cboCosigner.Enabled := True; + cboCosigner.InitLongList(''); + end; + if (SigAction = SG_ADDITIONAL) or (SigAction = SG_BOTH) then + cboSrcList.InitLongList(''); + FChanged := False; + ShowModal; + with SignerList do + begin + Signers := TStringList.Create; + Signers.Assign(FSigners); + Cosigner := FCosigner; + Changed := FChanged ; + end ; + end; {with frmAddlSigners} + finally + frmAddlSigners.Release; + end; +end; + +procedure TfrmAddlSigners.NewPersonNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + TORComboBox(Sender).ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmAddlSigners.cmdCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmAddlSigners.cmdOKClick(Sender: TObject); +var + i: integer; +begin + FChanged := False; + if (FSigAction = SG_ADDITIONAL) and ((DstList.Items.Count = 0) and (FSigners.Count = 0)) then + begin + InfoBox(TX_SIGNER_TEXT, TX_SIGNER_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + if not CosignerOK then Exit; + FChanged := True; + FCosigner := cboCosigner.ItemIEN; + for i := 0 to DstList.Items.Count-1 do + begin + if fExclusions.IndexOf(DstList.Items[i]) < 0 then FSigners.Add(DstList.Items[i]); + end; + Close; +end; + +procedure TfrmAddlSigners.cboSrcListMouseClick(Sender: TObject); +var + i: integer; +begin + if cboSrcList.ItemIndex = -1 then exit; + if (DstList.SelectByID(cboSrcList.ItemID) <> -1) then + begin + InfoBox(TX_DUP_SIGNER, TX_SIGNER_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + for i := 0 to FExclusions.Count-1 do + if (Piece(FExclusions.Strings[i],U,1) = cboSrcList.ItemID) then + begin + InfoBox(TX_BAD_SIGNER, TX_SIGNER_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]) ; + cboSrcList.SelectByID(cboSrcList.ItemID); +end; + +procedure TfrmAddlSigners.cmdRemoveClick(Sender: TObject); +var + i,j: integer; +begin + with DstList do + begin + if ItemIndex = -1 then exit ; + for i := Items.Count-1 downto 0 do + if Selected[i] then + begin + j := FExclusions.IndexOf(Items[i]); + FSigners.Add(ORFn.Pieces(Items[i], U, 1, 2) + '^REMOVE'); + if j > -1 then FExclusions.Delete(j); + Items.Delete(i) ; + end; + end; +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 + begin + DstList.Items.Delete(i); + FSigners.Add(ORFn.Pieces(cboCosigner.Items[cboCosigner.ItemIndex], U, 1, 2) + '^REMOVE'); + end; +end; + +procedure TfrmAddlSigners.FormCreate(Sender: TObject); +begin + cboCosigner.Color := ReadOnlyColor; + txtAuthor.Color := ReadOnlyColor; + FSigners := TStringList.Create; + FExclusions := TStringList.Create; +end; + +procedure TfrmAddlSigners.FormDestroy(Sender: TObject); +begin + FSigners.Free; + FExclusions.Free; +end; + +procedure TfrmAddlSigners.DstListClick(Sender: TObject); +begin + if DstList.ItemIndex > -1 then cmdRemoveClick(Self); +end; + +procedure TfrmAddlSigners.cboSrcListKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_RETURN then cboSrcListMouseClick(Self); +end; + +function TfrmAddlSigners.CosignerOK: Boolean; +begin + Result := False; + if not cboCosigner.Enabled then + begin + Result := True; + Exit; + end; + if cboCosigner.ItemIndex < 0 then + begin + InfoBox(TX_NO_DELETE, TX_NO_DELETE_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + case FTabID of + CT_NOTES, CT_CONSULTS: + if (not CanCosign(TitleForNote(FNoteIEN), 0, cboCosigner.ItemIEN, FRefDate)) then + begin + InfoBox(cboCosigner.Text + TX_NO_COSIGNER, TX_NO_COSIGNER_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + CT_DCSUMM: + if not IsUserAProvider(cboCosigner.ItemIEN, FMNow) then + begin + InfoBox(cboCosigner.Text + TX_NO_COSIGNER, TX_NO_COSIGNER_CAP, MB_OK or MB_ICONWARNING); + Exit; + end; + end; + Result := True; +end; + +procedure TfrmAddlSigners.cboCosignerNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +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)); + end; +end; + +procedure TfrmAddlSigners.cboCosignerExit(Sender: TObject); +begin + with cboCosigner do if Text = '' then ItemIndex := -1; +end; + +procedure TfrmAddlSigners.cboSrcListClick(Sender: TObject); +var UserEIN:string; +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; + +end; + +end. diff --git a/CPRS-Chart/fAlertForward.dfm b/CPRS-Chart/fAlertForward.dfm new file mode 100644 index 0000000..58f3f01 --- /dev/null +++ b/CPRS-Chart/fAlertForward.dfm @@ -0,0 +1,137 @@ +object 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 = [] + OldCreateOrder = True + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TORAutoPanel + Left = 0 + Top = 0 + Width = 354 + Height = 381 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object SrcLabel: TLabel + Left = 12 + Top = 120 + Width = 133 + Height = 30 + AutoSize = False + Caption = 'Select one or more names to receive forwarded alert' + WordWrap = True + end + object DstLabel: TLabel + Left = 196 + Top = 134 + Width = 145 + Height = 16 + AutoSize = False + Caption = 'Currently selected recipients' + end + object Label1: TLabel + Left = 8 + Top = 48 + Width = 44 + Height = 13 + Caption = 'Comment' + end + object cmdOK: TButton + Left = 185 + Top = 346 + Width = 75 + Height = 25 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 4 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 265 + Top = 346 + Width = 75 + Height = 25 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 5 + OnClick = cmdCancelClick + end + object cboSrcList: TORComboBox + Left = 12 + Top = 150 + Width = 144 + Height = 185 + Style = orcsSimple + AutoSelect = True + Caption = 'Select or enter name' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + MaxLength = 0 + Pieces = '2,3' + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + OnKeyDown = cboSrcListKeyDown + OnMouseClick = cboSrcListMouseClick + OnNeedData = cboSrcListNeedData + end + object DstList: TORListBox + Left = 196 + Top = 150 + Width = 144 + Height = 185 + ItemHeight = 13 + MultiSelect = True + ParentShowHint = False + ShowHint = True + TabOrder = 3 + OnClick = DstListClick + OnKeyDown = DstListKeyDown + Caption = 'Currently selected recipients' + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + object memAlert: TMemo + Left = 8 + Top = 16 + Width = 337 + Height = 25 + TabStop = False + Color = clBtnFace + Lines.Strings = ( + 'memAlert') + ReadOnly = True + TabOrder = 1 + WantReturns = False + end + object memComment: TMemo + Left = 8 + Top = 64 + Width = 337 + Height = 49 + MaxLength = 180 + ScrollBars = ssVertical + TabOrder = 0 + end + end +end diff --git a/CPRS-Chart/fAlertForward.pas b/CPRS-Chart/fAlertForward.pas new file mode 100644 index 0000000..3125eb9 --- /dev/null +++ b/CPRS-Chart/fAlertForward.pas @@ -0,0 +1,118 @@ +unit fAlertForward; + +interface + +uses Windows, Messages, SysUtils, Classes, Graphics, Forms, Controls, + Dialogs, StdCtrls, Buttons, ORCtrls, ORfn, ExtCtrls, fAutoSz, ComCtrls; + +type + TfrmAlertForward = class(TForm) + cmdOK: TButton; + cmdCancel: TButton; + cboSrcList: TORComboBox; + DstList: TORListBox; + SrcLabel: TLabel; + DstLabel: TLabel; + pnlBase: TORAutoPanel; + memAlert: TMemo; + Label1: TLabel; + memComment: TMemo; + 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; + +function ForwardAlertTo(Alert: String): Boolean; + +implementation + +{$R *.DFM} + +uses rCore, uCore; + +var XQAID: string; + +function ForwardAlertTo(Alert: String): Boolean; +var + frmAlertForward: TfrmAlertForward; +begin + frmAlertForward := TfrmAlertForward.Create(Application); + try + ResizeAnchoredFormToFont(frmAlertForward); + with frmAlertForward do + begin + memAlert.SetTextBuf(PChar(Piece(Alert, U, 2))); + XQAID := Piece(Alert, U, 1); + ShowModal; + end; + finally + frmAlertForward.Release; + Result := True; + end; +end; + +procedure TfrmAlertForward.FormCreate(Sender: TObject); +begin + inherited; + cboSrcList.InitLongList(''); +end; + +procedure TfrmAlertForward.cboSrcListNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmAlertForward.cmdCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmAlertForward.cmdOKClick(Sender: TObject); +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); + memComment.Text := StringReplace(memComment.Text, CRLF, ' ', [rfReplaceAll]); + ForwardAlert(XQAID, Recip, 'A', memComment.Text); + end; + Close; +end; + +procedure TfrmAlertForward.DstListClick(Sender: TObject); +begin + if DstList.ItemIndex = -1 then Exit; + DstList.Items.Delete(DstList.ItemIndex); +end; + +procedure TfrmAlertForward.cboSrcListKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_SPACE then cboSrcListMouseClick(Self); +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); +end; + +end. diff --git a/CPRS-Chart/fAllgyBox.dfm b/CPRS-Chart/fAllgyBox.dfm new file mode 100644 index 0000000..1b44917 --- /dev/null +++ b/CPRS-Chart/fAllgyBox.dfm @@ -0,0 +1,57 @@ +inherited frmAllgyBox: TfrmAllgyBox + Left = 487 + Top = 242 + Width = 457 + Caption = 'frmAllgyBox' + Constraints.MinWidth = 457 + Position = poMainFormCenter + PixelsPerInch = 96 + TextHeight = 13 + inherited memReport: TRichEdit + Width = 449 + end + inherited pnlButton: TPanel + Width = 449 + inherited cmdPrint: TButton + Left = 293 + Top = 3 + TabOrder = 3 + end + inherited cmdClose: TButton + Left = 373 + Top = 3 + TabOrder = 4 + end + object cmdEdit: TButton + Left = 98 + Top = 3 + Width = 90 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Edit' + TabOrder = 1 + Visible = False + OnClick = cmdEditClick + end + object cmdAdd: TButton + Left = 2 + Top = 3 + Width = 90 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Add New' + TabOrder = 0 + OnClick = cmdAddClick + end + object cmdInError: TButton + Left = 195 + Top = 3 + Width = 90 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Entered in Error' + TabOrder = 2 + OnClick = cmdInErrorClick + end + end +end diff --git a/CPRS-Chart/fAllgyBox.pas b/CPRS-Chart/fAllgyBox.pas new file mode 100644 index 0000000..3f68c18 --- /dev/null +++ b/CPRS-Chart/fAllgyBox.pas @@ -0,0 +1,163 @@ +unit fAllgyBox; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, fRptBox, StdCtrls, ExtCtrls, ComCtrls, fARTAllgy, ORFn; + +type + TfrmAllgyBox = class(TfrmReportBox) + cmdEdit: TButton; + cmdAdd: TButton; + cmdInError: TButton; + procedure cmdAddClick(Sender: TObject); + procedure cmdEditClick(Sender: TObject); + procedure cmdInErrorClick(Sender: TObject); + private + { Private declarations } + FAllergyIEN: integer; + procedure RefreshText; + public + { Public declarations } + end; + +procedure AllergyBox(ReportText: TStrings; ReportTitle: string; AllowPrint: boolean; AllergyIEN: integer); + +var + frmAllgyBox: TfrmAllgyBox; + +implementation + +{$R *.dfm} + +uses rCover, fCover, rODAllergy; + +const + NEW_ALLERGY = True; + ENTERED_IN_ERROR = True; + +function CreateAllergyBox(ReportText: TStrings; ReportTitle: string; AllowPrint: boolean): TfrmAllgyBox; +var + i, AWidth, MaxWidth, AHeight: Integer; + Rect: TRect; + // %$@# buttons! + BtnArray: array of TButton; + BtnRight: array of integer; + BtnLeft: array of integer; + j, k: integer; + x: string; +begin + Result := TfrmAllgyBox.Create(Application); + try + with Result do + begin + k := 0; + with pnlButton do for j := 0 to ControlCount - 1 do + if Controls[j] is TButton then + begin + SetLength(BtnArray, k+1); + SetLength(BtnRight, k+1); + BtnArray[j] := TButton(Controls[j]); + BtnRight[j] := ResizeWidth(Font, MainFont, BtnArray[j].Width - BtnArray[j].Width - BtnArray[j].Left); + k := k + 1; + end; + MaxWidth := 350; + for i := 0 to ReportText.Count - 1 do + begin + AWidth := lblFontTest.Canvas.TextWidth(ReportText[i]); + if AWidth > MaxWidth then MaxWidth := AWidth; + end; + MaxWidth := MaxWidth + GetSystemMetrics(SM_CXVSCROLL); + AHeight := (ReportText.Count * (lblFontTest.Height + 2)) + pnlbutton.Height; + AHeight := HigherOf(AHeight, 250); + if AHeight > (Screen.Height - 80) then AHeight := Screen.Height - 80; + if MaxWidth > Screen.Width then MaxWidth := Screen.Width; + ClientWidth := MaxWidth; + ClientHeight := AHeight; + Rect := BoundsRect; + ForceInsideWorkArea(Rect); + BoundsRect := Rect; + ResizeAnchoredFormToFont(Result); + SetLength(BtnLeft, k); + for j := 0 to k - 1 do + BtnLeft[j] := pnlButton.Width - BtnArray[j].Width - BtnRight[j]; + memReport.Lines.Assign(ReportText); + for i := 1 to Length(ReportTitle) do if ReportTitle[i] = #9 then ReportTitle[i] := ' '; + Caption := ReportTitle; + memReport.SelStart := 0; + cmdPrint.Visible := AllowPrint; + cmdAdd.Enabled := True; //IsARTClinicalUser(x); v26.12 + cmdEdit.Enabled := IsARTClinicalUser(x); + cmdInError.Enabled := IsARTClinicalUser(x); + end; + except + KillObj(@Result); + raise; + end; +end; + +procedure AllergyBox(ReportText: TStrings; ReportTitle: string; AllowPrint: boolean; AllergyIEN: integer); +begin + frmAllgyBox := CreateAllergyBox(ReportText, ReportTitle, AllowPrint); + try + with frmAllgyBox do + begin + FAllergyIEN := AllergyIEN; + if not ContainsVisibleChar(memReport.Text) then RefreshText; + ShowModal; + end; + finally + frmAllgyBox.Release; + end; +end; + +procedure TfrmAllgyBox.cmdAddClick(Sender: TObject); +var + Changed: boolean; +begin + inherited; + Visible := False; + Changed := EnterEditAllergy(0, NEW_ALLERGY, not ENTERED_IN_ERROR); + if not Changed then + Close + else + begin + frmCover.UpdateAllergiesList; + Close; + end +end; + +procedure TfrmAllgyBox.cmdEditClick(Sender: TObject); +var + Changed: boolean; +begin + inherited; + Visible := False; + Changed := EnterEditAllergy(FAllergyIEN, not NEW_ALLERGY, not ENTERED_IN_ERROR); + if Changed then RefreshText; + Visible := True; +end; + +procedure TfrmAllgyBox.cmdInErrorClick(Sender: TObject); +var + Changed: boolean; +begin + inherited; + Visible := False; + Changed := MarkEnteredInError(FAllergyIEN); + if Changed then + begin + frmCover.UpdateAllergiesList; + Close; + end + else Visible := True; +end; + +procedure TfrmAllgyBox.RefreshText; +begin + memReport.Clear; + memReport.Lines.Assign(DetailAllergy(FAllergyIEN)); +end; + +end. diff --git a/CPRS-Chart/fAllgyFind.dfm b/CPRS-Chart/fAllgyFind.dfm new file mode 100644 index 0000000..7254cf9 --- /dev/null +++ b/CPRS-Chart/fAllgyFind.dfm @@ -0,0 +1,272 @@ +inherited frmAllgyFind: TfrmAllgyFind + Left = 408 + Top = 234 + BorderIcons = [] + BorderStyle = bsDialog + Caption = 'Causative Agent Lookup' + ClientHeight = 472 + ClientWidth = 445 + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object lblSearch: TLabel + Left = 0 + Top = 0 + Width = 445 + Height = 25 + Align = alTop + AutoSize = False + Caption = 'Enter causative agent for Allergy or Adverse Drug Reaction:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + Layout = tlBottom + end + object lblSelect: TLabel + Left = 5 + Top = 124 + Width = 152 + Height = 13 + Caption = 'Select one of the following items' + Visible = False + end + object lblDetail: TLabel + Left = 0 + Top = 25 + Width = 445 + Height = 39 + Align = alTop + AutoSize = False + Caption = + '(Enter the FIRST FEW LETTERS of the causative agent (minimum of ' + + '3) to allow for a comprehensive search. Only one reactant may be' + + ' entered at a time)' + Layout = tlBottom + WordWrap = True + end + object lblSearchCaption: TLabel + Left = 6 + Top = 73 + Width = 52 + Height = 13 + Caption = 'Search for:' + end + object txtSearch: TCaptionEdit + Left = 4 + Top = 88 + Width = 331 + Height = 21 + TabOrder = 0 + OnChange = txtSearchChange + Caption = + 'Enter causative agent for Allergy or Adverse Drug Reaction (Ente' + + 'r at least 3 characters)' + end + object cmdSearch: TButton + Left = 362 + Top = 88 + Width = 75 + Height = 21 + Caption = 'Search' + Default = True + TabOrder = 1 + OnClick = cmdSearchClick + end + object cmdOK: TButton + Left = 263 + Top = 422 + Width = 75 + Height = 22 + Caption = 'OK' + TabOrder = 4 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 345 + Top = 422 + Width = 75 + Height = 22 + Cancel = True + Caption = 'Cancel' + TabOrder = 5 + OnClick = cmdCancelClick + end + object stsFound: TStatusBar + Left = 0 + Top = 453 + Width = 445 + Height = 19 + Panels = <> + SimplePanel = True + end + object ckNoKnownAllergies: TCheckBox + Left = 320 + Top = 118 + Width = 119 + Height = 17 + Caption = 'No Known Allergies' + TabOrder = 3 + OnClick = ckNoKnownAllergiesClick + end + object tvAgent: TORTreeView + Left = 2 + Top = 138 + Width = 437 + Height = 270 + HideSelection = False + Indent = 19 + ReadOnly = True + StateImages = imTree + TabOrder = 2 + OnDblClick = tvAgentDblClick + Caption = 'Select from one of the following items' + NodePiece = 0 + end + object imTree: TImageList + Left = 396 + Top = 150 + Bitmap = { + 494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000001000000001002000000000000010 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FF000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007B7B7B007B7B + 7B007B7B7B00FFFFFF00FFFFFF00000000007B7B7B00FFFFFF00FFFFFF000000 + 00007B7B7B007B7B7B007B7B7B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FF000000FF000000FF0000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007B7B + 7B007B7B7B007B7B7B00FFFFFF007B7B7B007B7B7B007B7B7B00FFFFFF007B7B + 7B007B7B7B007B7B7B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FF000000FF000000FF0000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007B7B7B007B7B7B007B7B7B00FFFFFF007B7B7B00000000007B7B7B007B7B + 7B007B7B7B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + 000000FF000000FF000000FF000000FF00000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007B7B7B007B7B7B007B7B7B00000000007B7B7B007B7B7B007B7B + 7B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FF000000FF + 000000FF000000FF000000FF000000FF00000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007B7B7B00000000007B7B7B00FFFFFF007B7B7B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008484840000FF000000FF + 0000000000000000000000FF000000FF000000FF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007B7B7B007B7B7B007B7B7B00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008484840000FF0000000000000000 + 000000000000000000000000000000FF000000FF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007B7B7B007B7B7B007B7B7B0000000000FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FF000000FF000000FF0000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007B7B7B00000000007B7B7B007B7B7B007B7B7B00000000007B7B + 7B00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FF000000FF0000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007B7B7B007B7B7B00000000007B7B7B007B7B7B007B7B7B00000000007B7B + 7B007B7B7B00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FF000000FF00000000 + 0000000000000000000000000000000000000000000000000000000000007B7B + 7B007B7B7B007B7B7B00000000007B7B7B007B7B7B007B7B7B00FFFFFF007B7B + 7B007B7B7B007B7B7B00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008484840000FF + 00000000000000000000000000000000000000000000000000007B7B7B007B7B + 7B007B7B7B000000000000000000000000007B7B7B0000000000000000000000 + 00007B7B7B007B7B7B007B7B7B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 840000FF00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FF000000FF0000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000100000000100010000000000800000000000000000000000 + 000000000000000000000000FFFFFF00FFFFFFFFFFFF0000FFFFFFFFE3380000 + FFFFF9FFC1110000FFFFF0FFE0030000FFFFF0FFF0470000FFFFE07FF88F0000 + FFFFC07FFD1F0000FFFF843FFE0F0000FFFF1E3FFE270000FFFFFE1FFA230000 + FFFFFF1FF2210000FFFFFF8FE2000000FFFFFFC7C7710000FFFFFFE3FFFF0000 + FFFFFFF8FFFF0000FFFFFFFFFFFF000000000000000000000000000000000000 + 000000000000} + end +end diff --git a/CPRS-Chart/fAllgyFind.pas b/CPRS-Chart/fAllgyFind.pas new file mode 100644 index 0000000..8eccf99 --- /dev/null +++ b/CPRS-Chart/fAllgyFind.pas @@ -0,0 +1,351 @@ +unit fAllgyFind; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, StdCtrls, ORFn, ORCtrls, ComCtrls, ImgList; + +type + TfrmAllgyFind = class(TfrmAutoSz) + txtSearch: TCaptionEdit; + cmdSearch: TButton; + cmdOK: TButton; + cmdCancel: TButton; + lblSearch: TLabel; + lblSelect: TLabel; + stsFound: TStatusBar; + ckNoKnownAllergies: TCheckBox; + tvAgent: TORTreeView; + imTree: TImageList; + lblDetail: TLabel; + lblSearchCaption: TLabel; + procedure cmdSearchClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure txtSearchChange(Sender: TObject); + procedure BuildAgentTree(AgentList: TStrings; const Parent: string; Node: TORTreeNode); + procedure ckNoKnownAllergiesClick(Sender: TObject); + procedure tvAgentDblClick(Sender: TObject); + private + FAllergy: string ; + FExpanded : boolean; + end; + +procedure AllergyLookup(var Allergy: string; NKAEnabled: boolean); + +implementation + +{$R *.DFM} + +uses rODAllergy, fARTFreeTextMsg; + +const + IMG_MATCHES_FOUND = 1; + IMG_NO_MATCHES = 2; + + TX_3_CHAR = 'Enter at least 3 characters for a search.'; + ST_SEARCHING = 'Searching for allergies...'; + ST_FOUND = 'Select from the matching entries on the list, or search again.'; + ST_NONE_FOUND = 'No matching items were found.'; + TC_FREE_TEXT = 'Causative Agent Not On File - No Matches for '; +(* TX_FREE_TEXT = 'Would you like to request that this term be added to' + #13#10 + + 'the list of available allergies?' + #13#10 + #13#10 + + '"YES" will send a bulletin to request addition of your' + #13#10 + + 'entry to the ALLERGY file for future use, since ' + #13#10 + + 'free-text entries for a patient are not allowed.' + #13#10 + #13#10 + + '"NO" will allow you to enter another search term. Please' + #13#10 + + 'check your spelling, try alternate spellings or a trade name,' + #13#10 + + 'or contact your allergy coordinator for assistance.' + #13#10 + #13#10 + + '"CANCEL" will abort this entry process completely.';*) + // NEW TEXT SUBSTITUTED IN V26.50 - RV + TX_FREE_TEXT = 'The agent you typed was not found in the database.' + CRLF + + 'Consider the common causes of search failure:' + CRLF + + ' Misspellings' + CRLF + + ' Typing more than one agent in a single entry ' + CRLF + + ' Typing "No known allergies"' + CRLF + + CRLF + + 'Select "NO" to attempt the search again. Carefully check your spelling,'+ CRLF + + 'try an alternate spelling, a trade name, a generic name or just entering' + CRLF + + 'the first few characters (minimum of 3). Enter only one allergy at a time.' + CRLF + + 'Use the "No Known Allergies" check box to mark a patient as NKA.' + CRLF + + CRLF + + 'Select "YES" to send a bulletin to the allergy coordinator to request assistance.' + CRLF + + 'Only do this if you''ve tried alternate methods of finding the causative agent' + CRLF + + 'and have been unsuccessful.' + CRLF + + CRLF + + 'Select "CANCEL" to abort this entry process.'; + + TX_BULLETIN = 'Bulletin has been sent.' + CRLF + + 'NOTE: This reactant was NOT added for this patient.'; + TC_BULLETIN_ERROR = 'Unable to Send Bulletin'; + TX_BULLETIN_ERROR = 'Free text entries are no longer allowed.' + #13#10 + + 'Please contact your allergy coordinator if you need assistance.'; +var + uFileCount: integer; + +procedure AllergyLookup(var Allergy: string; NKAEnabled: boolean); +var + frmAllgyFind: TfrmAllgyFind; +begin + frmAllgyFind := TfrmAllgyFind.Create(Application); + try + ResizeFormToFont(TForm(frmAllgyFind)); + frmAllgyFind.ckNoKnownAllergies.Enabled := NKAEnabled; + frmAllgyFind.ShowModal; + Allergy := frmAllgyFind.FAllergy; + finally + frmAllgyFind.Release; + end; +end; + +procedure TfrmAllgyFind.FormCreate(Sender: TObject); +begin + inherited; + FAllergy := ''; + cmdOK.Enabled := False; +end; + +procedure TfrmAllgyFind.txtSearchChange(Sender: TObject); +begin + inherited; + cmdSearch.Default := True; + cmdOK.Default := False; + cmdOK.Enabled := False; +end; + +procedure TfrmAllgyFind.cmdSearchClick(Sender: TObject); +var + AList: TStringlist; + tmpNode1: TORTreeNode; + i: integer; +begin + inherited; + if Length(txtSearch.Text) < 3 then + begin + InfoBox(TX_3_CHAR, 'Information', MB_OK or MB_ICONINFORMATION); + Exit; + end; + StatusText(ST_SEARCHING); + FExpanded := False; + AList := TStringList.Create; + try + if tvAgent.Items <> nil then tvAgent.Items.Clear; + AList.Assign(SearchForAllergies(UpperCase(txtSearch.Text))); + uFileCount := 0; + for i := 0 to AList.Count - 1 do + if Piece(AList[i], U, 5) = 'TOP' then uFileCount := uFileCount + 1; + if AList.Count = uFileCount then + begin + lblSelect.Visible := False; + txtSearch.SetFocus; + txtSearch.SelectAll; + cmdOK.Default := False; + cmdSearch.Default := True; + stsFound.SimpleText := ST_NONE_FOUND; + cmdOKClick(Self); + end else + begin + //if tvAgent.Items <> nil then tvAgent.Items.Clear; + AList.Insert(0, 'TOP^' + IntToStr(Alist.Count - uFileCount) + ' matches found.^^^0^+'); + AList.Add('FREETEXT^Add new free-text allergy^^^TOP^+'); + AList.Add('^' + UpperCase(txtSearch.Text) + '^^^FREETEXT^'); + BuildAgentTree(AList, '0', nil); + tmpNode1 := TORTreeNode(tvAgent.Items.getFirstNode); + tmpNode1.Expand(False); + tmpNode1 := TORTreeNode(tmpNode1.GetFirstChild); + if tmpNode1.HasChildren then + begin + tmpNode1.Text := tmpNode1.Text + ' (' + IntToStr(tmpNode1.Count) + ')'; + tmpNode1.Bold := True; + tmpNode1.StateIndex := IMG_MATCHES_FOUND; + tmpNode1.Expand(True); + FExpanded := True; + end + else + begin + tmpNode1.Text := tmpNode1.Text + ' (no matches)'; + tmpNode1.StateIndex := IMG_NO_MATCHES; + end; + while tmpNode1 <> nil do + begin + tmpNode1 := TORTreeNode(tmpNode1.GetNextSibling); + if tmpNode1 <> nil then + if tmpNode1.HasChildren then + begin + tmpNode1.Text := tmpNode1.Text + ' (' + IntToStr(tmpNode1.Count) + ')'; + tmpNode1.StateIndex := IMG_MATCHES_FOUND; + if not FExpanded then + begin + tmpNode1.Bold := True; + tmpNode1.Expand(True); + FExpanded := True; + end; + end + else + begin + tmpNode1.StateIndex := IMG_NO_MATCHES; + tmpNode1.Text := tmpNode1.Text + ' (no matches)'; + end; + end; + lblSelect.Visible := True; + tvAgent.SetFocus; + cmdSearch.Default := False; + cmdOK.Enabled := True; + stsFound.SimpleText := ST_FOUND; + end; + finally + AList.Free; + StatusText(''); + end; +end; + +procedure TfrmAllgyFind.cmdOKClick(Sender: TObject); +var + x: string; + tmpList: TStringList; + OKtoContinue: boolean ; +begin + inherited; + if ckNoKnownAllergies.Checked then + begin + FAllergy := '-1^No Known Allergy^'; + Close; + end + else if (txtSearch.Text = '') and ((tvAgent.Selected = nil) or (tvAgent.Items.Count = uFileCount)) then + {bail out - no search term present, and (no items currently in tree or none selected)} + begin + FAllergy := ''; + Exit ; + end + else if ((tvAgent.Selected = nil) or + (tvAgent.Items.Count = uFileCount) or + (Piece(TORTreeNode(tvAgent.Selected).StringData, U, 5) = 'FREETEXT')) then + {entry of free text agent - retry, send bulletin, or abort entry} + begin + FAllergy := ''; + case InfoBox(TX_FREE_TEXT, TC_FREE_TEXT + UpperCase(txtSearch.Text), MB_YESNOCANCEL or MB_DEFBUTTON2 or MB_ICONQUESTION)of + ID_YES : // send bulletin and abort free-text entry + begin + tmpList := TStringList.Create; + try + OKtoContinue := False; + GetFreeTextARTComment(tmpList, OKtoContinue); + if not OKtoContinue then + begin + stsFound.SimpleText := ''; + txtSearch.SetFocus; + Exit; + end; + x := SendARTBulletin(UpperCase(txtSearch.Text), tmpList); + if Piece(x, U, 1) = '-1' then + InfoBox(TX_BULLETIN_ERROR, TC_BULLETIN_ERROR, MB_OK or MB_ICONWARNING) + else if Piece(x, U, 1) = '1' then + InfoBox(TX_BULLETIN, 'Information', MB_OK or MB_ICONINFORMATION) + else + InfoBox(Piece(x, U, 2), TC_BULLETIN_ERROR, MB_OK or MB_ICONWARNING); + finally + tmpList.Free; + end; + Close; + end; + ID_NO : // clear status message, and allow repeat search + begin + stsFound.SimpleText := ''; + txtSearch.SetFocus; + Exit; + end; + ID_CANCEL: // abort entry and return to order menu or whatever + Close; + end; + end + else if Piece(TORTreeNode(tvAgent.Selected).StringData, U, 6) = '+' then + {bail out - tree grouper selected} + begin + FAllergy := ''; + Exit; + end + else + {matching item selected} + begin + FAllergy := TORTreeNode(tvAgent.Selected).StringData; + x := Piece(FAllergy, U, 2); + x := Trim(Piece(x, '<', 1)); + SetPiece(FAllergy, U, 2, x); + Close; + end; +end; + +procedure TfrmAllgyFind.cmdCancelClick(Sender: TObject); +begin + inherited; + FAllergy := ''; + Close; +end; + +procedure TfrmAllgyFind.ckNoKnownAllergiesClick(Sender: TObject); +begin + inherited; + with ckNoKnownAllergies do + begin + txtSearch.Enabled := not Checked; + cmdSearch.Enabled := not Checked; + lblSearch.Enabled := not Checked; + lblSelect.Enabled := not Checked; + tvAgent.Enabled := not Checked; + cmdOK.Enabled := Checked; + end; +end; + +procedure TfrmAllgyFind.BuildAgentTree(AgentList: TStrings; const Parent: string; Node: TORTreeNode); +var + MyID, MyParent, Name: string; + i: Integer; + ChildNode, tmpNode: TORTreeNode; + HasChildren, Found: Boolean; +begin + tvAgent.Items.BeginUpdate; + with AgentList do for i := 0 to Count - 1 do + begin + Found := False; + MyParent := Piece(Strings[i], U, 5); + if (MyParent = Parent) then + begin + MyID := Piece(Strings[i], U, 1); + Name := Piece(Strings[i], U, 2); + HasChildren := Piece(Strings[i], U, 6) = '+'; + if Node <> nil then + begin + if Node.HasChildren then + begin + tmpNode := TORTreeNode(Node.GetFirstChild); + while tmpNode <> nil do + begin + if tmpNode.Text = Piece(Strings[i], U, 2) then Found := True; + tmpNode := TORTreeNode(Node.GetNextChild(tmpNode)); + end; + end + else + Node.StateIndex := 0; + end; + if Found then + Continue + else + begin + ChildNode := TORTreeNode(tvAgent.Items.AddChild(Node, Name)); + ChildNode.StringData := AgentList[i]; + if HasChildren then BuildAgentTree(AgentList, MyID, ChildNode); + end; + end; + end; + tvAgent.Items.EndUpdate; +end; + +procedure TfrmAllgyFind.tvAgentDblClick(Sender: TObject); +begin + inherited; + cmdOKClick(Self); +end; + +end. diff --git a/CPRS-Chart/fAutoSz.ddp b/CPRS-Chart/fAutoSz.ddp new file mode 100644 index 0000000..4370276 Binary files /dev/null and b/CPRS-Chart/fAutoSz.ddp differ diff --git a/CPRS-Chart/fAutoSz.dfm b/CPRS-Chart/fAutoSz.dfm new file mode 100644 index 0000000..6e63fc3 --- /dev/null +++ b/CPRS-Chart/fAutoSz.dfm @@ -0,0 +1,20 @@ +object frmAutoSz: TfrmAutoSz + Left = 182 + 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 = [] + OldCreateOrder = True + OnDestroy = FormDestroy + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 +end diff --git a/CPRS-Chart/fAutoSz.pas b/CPRS-Chart/fAutoSz.pas new file mode 100644 index 0000000..51d87f9 --- /dev/null +++ b/CPRS-Chart/fAutoSz.pas @@ -0,0 +1,124 @@ +unit fAutoSz; +{ provides the basic mechanism to resize all the controls on a form when the form size is + changed. Differs from frmAResize in that this one descends directly from TForm, rather + than TPage } + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; + +type + TfrmAutoSz = class(TForm) + procedure FormResize(Sender: TObject); + procedure FormDestroy(Sender: TObject); + private + FSizes: TList; + FAutoSizeDisabled: Boolean; + protected + property AutoSizeDisabled: Boolean read FAutoSizeDisabled write FAutoSizeDisabled; + public + procedure Loaded; override; + end; + +var + frmAutoSz: TfrmAutoSz; + +implementation + +{$R *.DFM} + +uses + ORfn; +type + TSizeRatio = class // records relative sizes and positions for resizing logic + FControl: TControl; + FLeft: Extended; + FTop: Extended; + FWidth: Extended; + FHeight: Extended; + constructor Create(AControl: TControl; W, H: Integer); + end; + +{ TSizeRatio methods } + +constructor TSizeRatio.Create(AControl: TControl; W, H: Integer); +begin + FControl := AControl; + with AControl do + begin + FLeft := Left / W; + FTop := Top / H; + FWidth := Width / W; + FHeight := Height / H; + end; +end; + +{ TfrmAutoSz methods } + +procedure TfrmAutoSz.Loaded; +{ record initial size & position info for resizing logic } +var + SizeRatio: TSizeRatio; + i,W,H: Integer; + Control: TControl; +begin + inherited Loaded; + FSizes := TList.Create; + if AutoSizeDisabled then Exit; + W := ClientWidth; + H := ClientHeight; + for i := 0 to ComponentCount - 1 do if Components[i] is TControl then + begin + Control := TControl(Components[i]); + W := HigherOf(W, Control.Left + Control.Width); + H := HigherOf(H, Control.Top + Control.Height); + end; + ClientHeight := H; + ClientWidth := W; + for i := 0 to ComponentCount - 1 do if Components[i] is TControl then + begin + SizeRatio := TSizeRatio.Create(TControl(Components[i]), W, H); + FSizes.Add(SizeRatio); + end; +end; + +procedure TfrmAutoSz.FormResize(Sender: TObject); +{ resize child controls using their design time proportions } +var + SizeRatio: TSizeRatio; + i, W, H: Integer; +begin + inherited; + if AutoSizeDisabled then Exit; + W := HigherOf(ClientWidth, HorzScrollBar.Range); + H := HigherOf(ClientHeight, VertScrollBar.Range); + with FSizes do for i := 0 to Count - 1 do + begin + SizeRatio := Items[i]; + with SizeRatio do + if ((FControl is TLabel) and TLabel(FControl).AutoSize) or ((FControl is TStaticText) and TStaticText(FControl).AutoSize) then + begin + FControl.Left := Round(FLeft*W); + FControl.Top := Round(FTop*H); + end + else FControl.SetBounds(Round(FLeft*W), Round(FTop*H), Round(FWidth*W), Round(FHeight*H)); + end; {with FSizes} +end; + +procedure TfrmAutoSz.FormDestroy(Sender: TObject); +{ destroy objects used to record size and position information for controls } +var + SizeRatio: TSizeRatio; + i: Integer; +begin + inherited; + if FSizes <> nil then with FSizes do for i := 0 to Count-1 do + begin + SizeRatio := Items[i]; + SizeRatio.Free; + end; + FSizes.Free; +end; + +end. diff --git a/CPRS-Chart/fClinicWardMeds.dfm b/CPRS-Chart/fClinicWardMeds.dfm new file mode 100644 index 0000000..9e256db --- /dev/null +++ b/CPRS-Chart/fClinicWardMeds.dfm @@ -0,0 +1,54 @@ +inherited frmClinicWardMeds: TfrmClinicWardMeds + Left = 523 + Top = 389 + Width = 306 + Height = 122 + BorderIcons = [] + Caption = 'Patient Location' + PixelsPerInch = 96 + TextHeight = 13 + object stxtLine3: TStaticText + Left = 16 + Top = 35 + Width = 29 + Height = 17 + Caption = 'line 3' + TabOrder = 0 + end + object stxtLine2: TStaticText + Left = 16 + Top = 20 + Width = 29 + Height = 17 + Caption = 'line 2' + TabOrder = 1 + end + object stxtLine1: TStaticText + Left = 16 + Top = 5 + Width = 29 + Height = 17 + Caption = 'line 1' + TabOrder = 2 + end + object btnClinic: TButton + Left = 31 + Top = 62 + Width = 58 + Height = 24 + Anchors = [akLeft, akBottom] + BiDiMode = bdLeftToRight + ParentBiDiMode = False + TabOrder = 3 + OnClick = btnClinicClick + end + object btnWard: TButton + Left = 159 + Top = 62 + Width = 58 + Height = 24 + Anchors = [akLeft, akBottom] + TabOrder = 4 + OnClick = btnWardClick + end +end diff --git a/CPRS-Chart/fClinicWardMeds.pas b/CPRS-Chart/fClinicWardMeds.pas new file mode 100644 index 0000000..4cdc156 --- /dev/null +++ b/CPRS-Chart/fClinicWardMeds.pas @@ -0,0 +1,190 @@ +unit fClinicWardMeds; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, fAutoSz, StdCtrls, ExtCtrls, ORCtrls,ORFn, rCore, uCore, oRNet, Math; + +type + TfrmClinicWardMeds = class(TfrmAutoSz) + stxtLine3: TStaticText; + stxtLine2: TStaticText; + stxtLine1: TStaticText; + btnClinic: TButton; + btnWard: TButton; + procedure btnClinicClick(Sender: TObject); + procedure btnWardClick(Sender: TObject); + + private + { Private declarations } + procedure StartLocationCheck; + procedure rpcChangeOrderLocation(pOrderList:TStringList); + procedure BuildMessage(MsgSw:string); + function BuildOrderLocList(pOrderList:TStringList; pLocation:integer):TStringList; + + public + { Public declarations } + // passes order list and selected locations to rpc to be saved with order. + procedure ClinicOrWardLocation(pOrderList:TStringList; pEncounterLoc: integer; pEncounterLocName: string; var RetLoc: integer); overload; + // returns Location selected by user. + function ClinicOrWardLocation(pEncounterLoc: integer):integer;overLoad; + function rpcIsPatientOnWard(Patient: string): boolean; + function SelectPrintLocation(pEncounterLoc:integer):integer; + end; + +var + frmClinicWardMeds: TfrmClinicWardMeds; + ALocation,AWardLoc, AClinicLoc : integer; + ASelectedLoc: integer; + AName, ASvc, AWardName, AClinicName: string; + AOrderLocList: TStringList; + AMsgSw: string; + +const + LOCATION_CHANGE_1 = 'This patient is currently admitted to ward'; + LOCATION_CHANGE_2 = 'These orders are written at clinic'; + LOCATION_CHANGE_3 = 'Where do you want the orders administered?'; + //GE CQ9537 - Message text + PRINT_LOCATION_1 = 'The patient has been admitted to Ward '; + PRINT_LOCATION_2 = 'Should the orders be printed using the new location?'; + LOC_PRINT_MSG = 'P'; + LOC_MSG = 'L'; + +implementation + +uses fFrame; + +{$R *.dfm} + +//entry point +function TfrmClinicWardMeds.ClinicOrWardLocation(pEncounterLoc:integer):integer; +begin + // Patient's current location + AClinicLoc := pEncounterLoc; + AClinicName := Encounter.LocationName; + AMsgSw := LOC_MSG; + StartLocationCheck; + Result := ASelectedLoc; + frmClinicWardMeds.Close; +end; + +//entry point +procedure TfrmClinicWardMeds.ClinicOrWardLocation(pOrderList:TStringList;pEncounterLoc:integer;pEncounterLocName:string; var RetLoc: integer); +begin + AClinicLoc := pEncounterLoc; + AClinicName := pEncounterLocName; + AOrderLocList := TStringList.create; + AOrderLocList.Clear; + AMsgSw := LOC_MSG; + StartLocationCheck; + if pOrderList.Count > 0 then + begin + rpcChangeOrderLocation(BuildOrderLocList(pOrderList, ASelectedLoc)); + RetLoc := ASelectedLoc + end; + if Assigned(AOrderLocList) then FreeAndNil(AOrderLocList); + frmClinicWardMeds.Close; +end; + +// returns button selected by user - ward or clinic. print location +//entry point - +function TfrmClinicWardMeds.SelectPrintLocation(pEncounterLoc:integer):integer; +begin + AClinicLoc := pEncounterLoc; + AMsgSw := LOC_PRINT_MSG; + StartLocationCheck; + Result := ASelectedLoc; + frmClinicWardMeds.Close; +end; + +procedure TfrmClinicWardMeds.StartLocationCheck; +begin + + frmClinicWardMeds := TfrmClinicWardMeds.Create(Application); + // ResizeFormToFont(TForm(frmClinicWardMeds)); + CurrentLocationForPatient(Patient.DFN, ALocation, AName, ASvc); + AWardLoc := ALocation; //current location + AWardName := AName; // current location name + if AMsgSW = LOC_PRINT_MSG then BuildMessage(AMsgSw) + else + if (ALocation > 0) and (ALocation <> AClinicLoc) then BuildMessage(AMsgSw); //Location has changed, patient admitted +end; + +procedure TfrmClinicWardMeds.btnClinicClick(Sender: TObject); +begin + inherited; + ASelectedLoc := AClinicLoc; + frmClinicWardMeds.Close; +end; + +procedure TfrmClinicWardMeds.btnWardClick(Sender: TObject); +begin + inherited; + ASelectedLoc := AWardLoc; + frmClinicWardMeds.Close; +end; + +procedure TfrmClinicWardMeds.BuildMessage(MsgSw:string); +var + ALine1Len, ALine2Len, ALine3Len, ALongLine: integer; +begin + with frmClinicWardMeds do + begin + btnWard.Caption := 'Ward'; + btnClinic.Caption := 'Clinic'; + // message text + if MsgSw = LOC_MSG then + begin + //AClinicName := 'this is my long test clinic Name'; + stxtLine1.Caption := LOCATION_CHANGE_1 + ' :' + AWardName; + stxtLine2.Caption := LOCATION_CHANGE_2+ ' :' + AClinicName; + stxtLine3.Caption := LOCATION_CHANGE_3; + end + else + begin + stxtLine1.Caption := PRINT_LOCATION_1 + ':' + AWardName; + stxtLine2.Caption := PRINT_LOCATION_2; + stxtLine3.Caption := ''; + end; + stxtLine2.Left := stxtLine1.left; + stxtLine3.Left := stxtLine1.left; + ALine1Len := TextWidthByFont(frmClinicWardMeds.stxtLine1.Font.Handle, frmClinicWardMeds.stxtLine1.Caption); + ALine2Len := TextWidthByFont(frmClinicWardMeds.stxtLine2.Font.Handle, frmClinicWardMeds.stxtLine2.Caption); + ALine3Len := TextWidthByFont(frmClinicWardMeds.stxtLine3.Font.Handle, frmClinicWardMeds.stxtLine3.Caption)+25; + ALongLine := Max(ALine1Len,ALine2Len); + ALongLine := Max(ALine3Len,ALongLine); + frmClinicWardMeds.Width := (ALongLine + frmClinicWardMeds.stxtLine1.Left + 15); + end; + frmClinicWardMeds.ShowModal; + frmClinicWardMeds.Release; + +end; + +function TfrmClinicWardMeds.BuildOrderLocList(pOrderList:TStringList; pLocation:integer):TStringList; +var i:integer; + AOrderLoc: string; +begin + AOrderLocList.clear; + for i := 0 to pOrderList.Count -1 do + begin + AOrderLoc := Piece(pOrderList.Strings[i],U,1) + U + IntToStr(pLocation); + AOrderLocList.Add(AOrderLoc); + end; + Result := AOrderLocList; //return value +end; + +procedure TfrmClinicWardMeds.rpcChangeOrderLocation(pOrderList:TStringList); +begin +// OrderIEN^Location -- used to alter location if ward is selected. + + CallV('ORWDX CHANGE',[pOrderList, Patient.DFN]); +end; + +function TfrmClinicWardMeds.rpcIsPatientOnWard(Patient: string): boolean; +begin + result := sCallV('ORWDX1 PATWARD',[Patient]) = '1'; +end; + + +end. diff --git a/CPRS-Chart/fCover.ddp b/CPRS-Chart/fCover.ddp new file mode 100644 index 0000000..4370276 Binary files /dev/null and b/CPRS-Chart/fCover.ddp differ diff --git a/CPRS-Chart/fCover.dfm b/CPRS-Chart/fCover.dfm new file mode 100644 index 0000000..25714b8 --- /dev/null +++ b/CPRS-Chart/fCover.dfm @@ -0,0 +1,552 @@ +inherited frmCover: TfrmCover + Left = 206 + Top = 280 + HelpContext = 1000 + BorderIcons = [] + Caption = 'Cover Sheet' + HelpFile = 'overvw' + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object pnlBase: TPanel + Left = 0 + Top = 0 + Width = 640 + Height = 349 + Align = alClient + BevelOuter = bvNone + Constraints.MinHeight = 10 + TabOrder = 0 + object sptBottom: TSplitter + Left = 0 + Top = 230 + Width = 640 + Height = 5 + Cursor = crVSplit + Align = alBottom + Constraints.MinHeight = 5 + OnCanResize = sptBottomCanResize + end + object pnlNotTheBottom: TPanel + Left = 0 + Top = 0 + Width = 640 + Height = 230 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object sptTop: TSplitter + Left = 0 + Top = 120 + Width = 640 + Height = 5 + Cursor = crVSplit + Align = alTop + Constraints.MinHeight = 5 + OnCanResize = sptTopCanResize + end + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 640 + Height = 120 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object spt_2: TSplitter + Left = 424 + Top = 0 + Width = 5 + Height = 120 + Align = alRight + Constraints.MinWidth = 5 + OnCanResize = spt_2CanResize + end + object pnl_not3: TPanel + Left = 0 + Top = 0 + Width = 424 + Height = 120 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object spt_1: TSplitter + Left = 211 + Top = 0 + Width = 5 + Height = 120 + Color = clBtnFace + Constraints.MinWidth = 5 + ParentColor = False + OnCanResize = spt_1CanResize + end + object pnl_1: TPanel + Left = 0 + Top = 0 + Width = 211 + Height = 120 + Align = alLeft + BevelOuter = bvNone + TabOrder = 0 + Visible = False + object lbl_1: TOROffsetLabel + Left = 0 + Top = 0 + Width = 211 + Height = 19 + Align = alTop + Caption = ' ' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object lst_1: TORListBox + Tag = 10 + Left = 0 + Top = 19 + Width = 211 + Height = 101 + Align = alClient + Ctl3D = True + ItemHeight = 13 + ParentCtl3D = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = CoverItemClick + OnExit = CoverItemExit + ItemTipColor = clWindow + LongList = False + TabPositions = '2,3' + end + end + object pnl_2: TPanel + Left = 216 + Top = 0 + Width = 208 + Height = 120 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + Visible = False + object lbl_2: TOROffsetLabel + Left = 0 + Top = 0 + Width = 208 + Height = 19 + Align = alTop + Caption = ' ' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object lst_2: TORListBox + Tag = 20 + Left = 0 + Top = 19 + Width = 208 + Height = 101 + Align = alClient + Ctl3D = True + ItemHeight = 13 + ParentCtl3D = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = CoverItemClick + OnExit = CoverItemExit + ItemTipColor = clWindow + LongList = False + end + end + end + object pnl_3: TPanel + Left = 429 + Top = 0 + Width = 211 + Height = 120 + Align = alRight + BevelOuter = bvNone + TabOrder = 1 + Visible = False + object lbl_3: TOROffsetLabel + Left = 0 + Top = 57 + Width = 211 + Height = 19 + Align = alTop + Caption = ' ' + HorzOffset = 2 + Transparent = False + VertOffset = 6 + WordWrap = False + end + object sptFlag: TSplitter + Left = 0 + Top = 52 + Width = 211 + Height = 5 + Cursor = crVSplit + Align = alTop + Beveled = True + Constraints.MinHeight = 5 + end + object pnlFlag: TPanel + Left = 0 + Top = 0 + Width = 211 + Height = 52 + Align = alTop + Constraints.MinHeight = 40 + TabOrder = 0 + object lblFlag: TOROffsetLabel + Left = 1 + Top = 1 + Width = 209 + Height = 15 + Align = alTop + Caption = 'Patient Record Flags' + HorzOffset = 2 + Transparent = False + VertOffset = 2 + WordWrap = False + end + object lstFlag: TORListBox + Left = 1 + Top = 16 + Width = 209 + Height = 35 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clMaroon + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 13 + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = lstFlagClick + OnKeyDown = lstFlagKeyDown + ItemTipColor = clWindow + LongList = False + Pieces = '2' + end + end + object lst_3: TORListBox + Tag = 30 + Left = 0 + Top = 76 + Width = 211 + Height = 44 + Align = alClient + Ctl3D = True + Font.Charset = DEFAULT_CHARSET + Font.Color = clMaroon + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 13 + ParentCtl3D = False + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = CoverItemClick + OnExit = CoverItemExit + ItemTipColor = clWindow + LongList = False + TabPositions = '20' + end + end + end + object pnlMiddle: TPanel + Left = 0 + Top = 125 + Width = 640 + Height = 105 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + object spt_3: TSplitter + Left = 318 + Top = 0 + Width = 5 + Height = 105 + Constraints.MinWidth = 5 + OnCanResize = spt_3CanResize + end + object pnl_4: TPanel + Left = 0 + Top = 0 + Width = 318 + Height = 105 + Align = alLeft + BevelOuter = bvNone + TabOrder = 0 + Visible = False + object lbl_4: TOROffsetLabel + Left = 0 + Top = 0 + Width = 318 + Height = 13 + Align = alTop + Caption = ' ' + HorzOffset = 2 + Transparent = False + VertOffset = 0 + WordWrap = False + end + object lst_4: TORListBox + Tag = 40 + Left = 0 + Top = 13 + Width = 318 + Height = 92 + Align = alClient + Ctl3D = True + ItemHeight = 13 + ParentCtl3D = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = CoverItemClick + OnExit = CoverItemExit + ItemTipColor = clWindow + LongList = False + TabPositions = '35' + end + end + object pnl_5: TPanel + Left = 323 + Top = 0 + Width = 317 + Height = 105 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + Visible = False + object lbl_5: TOROffsetLabel + Left = 0 + Top = 0 + Width = 317 + Height = 13 + Align = alTop + Caption = ' ' + HorzOffset = 2 + Transparent = False + VertOffset = 0 + WordWrap = False + end + object lst_5: TORListBox + Tag = 50 + Left = 0 + Top = 13 + Width = 317 + Height = 92 + Align = alClient + Ctl3D = True + ItemHeight = 13 + ParentCtl3D = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = CoverItemClick + OnExit = CoverItemExit + ItemTipColor = clWindow + LongList = False + TabPositions = '34,44' + end + end + end + end + object pnlBottom: TPanel + Left = 0 + Top = 235 + Width = 640 + Height = 114 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + object spt_5: TSplitter + Left = 380 + Top = 0 + Width = 5 + Height = 114 + Align = alRight + Constraints.MinWidth = 5 + OnCanResize = spt_5CanResize + end + object pnl_not8: TPanel + Left = 0 + Top = 0 + Width = 380 + Height = 114 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object spt_4: TSplitter + Left = 255 + Top = 0 + Width = 5 + Height = 114 + Constraints.MinWidth = 5 + OnCanResize = spt_4CanResize + end + object pnl_6: TPanel + Left = 0 + Top = 0 + Width = 255 + Height = 114 + Align = alLeft + BevelOuter = bvNone + TabOrder = 0 + Visible = False + object lbl_6: TOROffsetLabel + Left = 0 + Top = 0 + Width = 255 + Height = 13 + Align = alTop + Caption = ' ' + HorzOffset = 2 + Transparent = False + VertOffset = 0 + WordWrap = False + end + object lst_6: TORListBox + Tag = 60 + Left = 0 + Top = 13 + Width = 255 + Height = 101 + Align = alClient + Ctl3D = True + ItemHeight = 13 + ParentCtl3D = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = CoverItemClick + OnExit = CoverItemExit + ItemTipColor = clWindow + LongList = False + TabPositions = '34' + end + end + object pnl_7: TPanel + Left = 260 + Top = 0 + Width = 120 + Height = 114 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + Visible = False + object lbl_7: TOROffsetLabel + Left = 0 + Top = 0 + Width = 120 + Height = 13 + Align = alTop + HorzOffset = 2 + Transparent = False + VertOffset = 0 + WordWrap = False + end + object lst_7: TORListBox + Tag = 70 + Left = 0 + Top = 13 + Width = 120 + Height = 101 + Align = alClient + Ctl3D = True + ItemHeight = 13 + ParentCtl3D = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = CoverItemClick + OnExit = CoverItemExit + ItemTipColor = clWindow + LongList = False + TabPositions = '4,13,15,24' + end + end + end + object pnl_8: TPanel + Left = 385 + Top = 0 + Width = 255 + Height = 114 + Align = alRight + BevelOuter = bvNone + TabOrder = 1 + Visible = False + object lbl_8: TOROffsetLabel + Left = 0 + Top = 0 + Width = 255 + Height = 13 + Align = alTop + HorzOffset = 2 + Transparent = False + VertOffset = 0 + WordWrap = False + end + object lst_8: TORListBox + Tag = 80 + Left = 0 + Top = 13 + Width = 255 + Height = 101 + Align = alClient + Ctl3D = True + ItemHeight = 13 + ParentCtl3D = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = CoverItemClick + OnExit = CoverItemExit + ItemTipColor = clWindow + LongList = False + TabPositions = '15,35' + end + end + end + end + object timPoll: TTimer + Enabled = False + Interval = 2600 + OnTimer = timPollTimer + Left = 20 + Top = 32 + end + object popMenuAllergies: TPopupMenu + OnPopup = popMenuAllergiesPopup + Left = 283 + Top = 46 + object popNewAllergy: TMenuItem + Caption = 'Enter new allergy' + OnClick = popNewAllergyClick + end + object popEditAllergy: TMenuItem + Caption = 'Edit selected allergy' + Visible = False + OnClick = popEditAllergyClick + end + object popEnteredInError: TMenuItem + Caption = 'Mark selected allergy as entered in error' + OnClick = popEnteredInErrorClick + end + object popNKA: TMenuItem + Caption = 'Mark patient as having "No Known Allergies" (NKA)' + OnClick = popNKAClick + end + end +end diff --git a/CPRS-Chart/fCover.pas b/CPRS-Chart/fCover.pas new file mode 100644 index 0000000..690150d --- /dev/null +++ b/CPRS-Chart/fCover.pas @@ -0,0 +1,1000 @@ +unit fCover; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fPage, StdCtrls, ORCtrls, ExtCtrls, rOrders, ORClasses, Menus, rCover, fAllgyBox; {REV} + +type + TfrmCover = class(TfrmPage) + pnlBase: TPanel; + pnlTop: TPanel; + pnlNotTheBottom: TPanel; + pnlMiddle: TPanel; + pnlBottom: TPanel; + sptTop: TSplitter; + sptBottom: TSplitter; + pnl_Not3: TPanel; + pnl_Not8: TPanel; + pnl_4: TPanel; + pnl_5: TPanel; + pnl_6: TPanel; + pnl_7: TPanel; + pnl_8: TPanel; + spt_3: TSplitter; + spt_4: TSplitter; + spt_5: TSplitter; + pnl_1: TPanel; + pnl_2: TPanel; + pnl_3: TPanel; + spt_1: TSplitter; + spt_2: TSplitter; + lbl_1: TOROffsetLabel; + lbl_2: TOROffsetLabel; + lbl_4: TOROffsetLabel; + lbl_5: TOROffsetLabel; + lbl_6: TOROffsetLabel; + lbl_7: TOROffsetLabel; + lbl_8: TOROffsetLabel; + lst_1: TORListBox; + lst_2: TORListBox; + lst_4: TORListBox; + lst_5: TORListBox; + lst_6: TORListBox; + lst_7: TORListBox; + lst_8: TORListBox; + timPoll: TTimer; + popMenuAllergies: TPopupMenu; + popNewAllergy: TMenuItem; + popNKA: TMenuItem; + popEditAllergy: TMenuItem; + popEnteredInError: TMenuItem; + pnlFlag: TPanel; + lstFlag: TORListBox; + lblFlag: TOROffsetLabel; + lbl_3: TOROffsetLabel; + lst_3: TORListBox; + sptFlag: TSplitter; + procedure CoverItemClick(Sender: TObject); + procedure timPollTimer(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure RemContextPopup(Sender: TObject; MousePos: TPoint; + var Handled: Boolean); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure sptBottomCanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); + procedure sptTopCanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); + procedure spt_1CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); + procedure spt_2CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); + procedure spt_3CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); + procedure spt_4CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); + procedure spt_5CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); + procedure popMenuAllergiesPopup(Sender: TObject); + procedure popNewAllergyClick(Sender: TObject); + procedure popNKAClick(Sender: TObject); + procedure popEditAllergyClick(Sender: TObject); + procedure popEnteredInErrorClick(Sender: TObject); + procedure CoverItemExit(Sender: TObject); + procedure lstFlagClick(Sender: TObject); + procedure lstFlagKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + private + FCoverList: TCoverSheetList; + popReminders: TORPopupMenu; + FLoadingForDFN: string; //*DFN* + procedure RemindersChange(Sender: TObject); + procedure GetPatientFlag; + procedure LoadList(const StsTxt: string; ListCtrl: TObject; + ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, AID, ADetail: String; Reminders: boolean = FALSE); + public + procedure ClearPtData; override; + procedure DisplayPage; override; + procedure SetFontSize(NewFontSize: Integer); override; + procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; {REV} + procedure UpdateAllergiesList; + procedure UpdateVAAButton; + end; + +var + frmCover: TfrmCover; + VAAFlag: TStringList; + MHVFlag: TStringList; + VAA_DFN: string; + PtIsVAA: boolean; + PtIsMHV: boolean; + +const + CoverSplitters1 = 'frmCoverSplitters1'; + CoverSplitters2 = 'frmCoverSplitters2'; + +implementation + +{$R *.DFM} + +uses ORNet, ORFn, fRptBox, fVitals, fvit, fFrame, uCore, TRPCB, uConst, uInit, + uReminders, rReminders, fARTAllgy, uOrPtf, fPatientFlagMulti, rODAllergy, rMisc; + +const + TAG_PROB = 10; + TAG_ALLG = 20; + TAG_POST = 30; + TAG_MEDS = 40; + TAG_RMND = 50; + TAG_LABS = 60; + TAG_VITL = 70; + TAG_VSIT = 80; + RemID = '50'; + + TX_INACTIVE_CODE = 'This problem references an ICD code that is not currently active.' + #13#10 + + 'Please correct this code using the ''Problems'' tab.'; + TC_INACTIVE_CODE = 'Inactive ICD code'; + +var + uIPAddress: string; + uARTCoverSheetParams: string; + +procedure TfrmCover.ClearPtData; +{ clears all lists displayed on the cover sheet } +begin + timPoll.Enabled := False; + if Length(FLoadingForDFN) > 0 then StopCoverSheet(FLoadingForDFN, uIPAddress, frmFrame.Handle); //*DFN* + FLoadingForDFN := ''; //*DFN* + inherited ClearPtData; + lst_1.Clear; + lst_2.Clear; + lst_3.Clear; + lst_4.Clear; + lst_5.Clear; + lst_6.Clear; + lst_7.Clear; + lst_8.Clear; + pnl_1.Visible := false; + pnl_2.Visible := false; + pnl_3.Visible := false; + pnl_4.Visible := false; + pnl_5.Visible := false; + pnl_6.Visible := false; + pnl_7.Visible := false; + pnl_8.Visible := false; +end; + +procedure TfrmCover.LoadList(const StsTxt: string; ListCtrl: TObject; + ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, AID, ADetail: String; Reminders: boolean = FALSE); +begin + StatusText(StsTxt); + if(ListCtrl is TORListBox) then + begin + ListGeneric((ListCtrl as TORListBox).Items, ARpc, ACase, AInvert, ADatePiece, ADateFormat, AParam1, ADetail, AID); + if((ListCtrl as TORListBox).Items.Count = 0) then + (ListCtrl as TORListBox).Items.Add(NoDataText(Reminders)); + end + else + begin + ListGeneric(ListCtrl as TStrings, ARpc, ACase, AInvert, ADatePiece, ADateFormat, AParam1, ADetail, AID); + if((ListCtrl as TStrings).Count = 0) then + (ListCtrl as TStrings).Add(NoDataText(Reminders)); + end; + StatusText(''); +end; + +procedure TfrmCover.DisplayPage; +{ loads the cover sheet lists if the patient has just been selected } +var + DontDo, ForeGround: string; + WaitCount: Integer; + RemSL: TStringList; + uCoverSheetList: TStringList; + i, iRem: Integer; + aIFN, aRPC, aCase, aInvert, aDatePiece, aDateFormat, aTextColor, aStatus, aParam1, aID, aQualifier, aTabPos, aName, aPiece, aDetail, x: string; + bCase, bInvert: Boolean; + iDatePiece: Integer; + +(* procedure LoadList(const StsTxt: string; ListCtrl: TObject; + ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, AID, ADetail: String; Reminders: boolean = FALSE); + begin + StatusText(StsTxt); + if(ListCtrl is TORListBox) then + begin + ListGeneric((ListCtrl as TORListBox).Items, ARpc, ACase, AInvert, ADatePiece, ADateFormat, AParam1, ADetail, AID); + if((ListCtrl as TORListBox).Items.Count = 0) then + (ListCtrl as TORListBox).Items.Add(NoDataText(Reminders)); + end + else + begin + ListGeneric(ListCtrl as TStrings, ARpc, ACase, AInvert, ADatePiece, ADateFormat, AParam1, ADetail, AID); + if((ListCtrl as TStrings).Count = 0) then + (ListCtrl as TStrings).Add(NoDataText(Reminders)); + end; + StatusText(''); + end;*) + + procedure WaitList(ListCtrl: TORListBox); + begin + ListCtrl.Clear; + Inc(WaitCount); + ListCtrl.Items.Add('0^Retrieving in background...'); + ListCtrl.Repaint; + end; + +begin + inherited DisplayPage; + iRem := -1; + frmFrame.mnuFilePrintSetup.Enabled := True; + if InitPage then + uIPAddress := DottedIPStr; + if InitPatient then + begin + WaitCount := 0; + if InteractiveRemindersActive then + begin + if(InitialRemindersLoaded) then + begin + DontDo := RemID+';'; + NotifyWhenRemindersChange(RemindersChange); + end + else + begin + DontDo := ''; + RemoveNotifyRemindersChange(RemindersChange); + end; + end; + ForeGround := StartCoverSheet(uIPAddress, frmFrame.Handle, + DontDo, InteractiveRemindersActive); + uCoverSheetList := TStringList.Create; + LoadCoverSheetList(uCoverSheetList); + for i := 0 to uCoverSheetList.Count - 1 do + begin + x := uCoverSheetList[i]; + aName := Piece(x,'^',2); + aRPC := Piece(x,'^',6); + aCase := Piece(x,'^',7); + aInvert := Piece(x,'^',8); + aDatePiece := Piece(x,'^',11); + aDateFormat := Piece(x,'^',10); + aTextColor := Piece(x,'^',9); + aStatus := 'Searching for ' + Piece(x,'^',2) + '...'; + aParam1 := Piece(x,'^',12); + aID := Piece(x,'^',1); //TAG_PROB, TAG_RMND, ETC. + aQualifier := Piece(x,'^',13); + aTabPos := Piece(x,'^',14); + aPiece := Piece(x,'^',15); + aDetail := Piece(x,'^',16); + aIFN := Piece(x,'^',17); + bCase := FALSE; + bInvert := FALSE; + iDatePiece := 0; + if aCase = '1' then bCase := TRUE; + if aInvert = '1' then bInvert := TRUE; + if Length(aDatePiece) > 0 then iDatePiece := StrToInt(aDatePiece); + if Length(aTextColor) > 0 then aTextColor := 'cl' + aTextColor; + // Assign properties to components + 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(aPiece) > 0 then FCoverList.CVlst(i).Pieces := aPiece; + FCoverList.CVlst(i).Tag := StrToInt(aID); + if(aID <> RemID) then + begin + if((aID = '20') or (Pos(aID + ';', ForeGround) > 0)) then + LoadList(aStatus, FCoverList.CVlst(i), aRpc, bCase, bInvert, iDatePiece, aDateFormat, aParam1, aID, aDetail) + else + Waitlist(FCoverList.CVlst(i)); + if (aID = '20') and ARTPatchInstalled then with FCoverList.CVlst(i) do + begin + uARTCoverSheetParams := x; + PopupMenu := popMenuAllergies; + RightClickSelect := True; + popMenuAllergies.PopupComponent := FCoverList.CVlst(i); + end; + end; + FCoverList.CVpln(i).Visible := true; + if aID = RemID then + begin + FCoverList.CVLst(i).OnContextPopup := RemContextPopup; + FCoverList.CVlst(i).RightClickSelect := True; + iRem := FCoverList.CVlst(i).ComponentIndex; + if InteractiveRemindersActive then + begin + if(InitialRemindersLoaded) then + CoverSheetRemindersInBackground := FALSE + else + begin + InitialRemindersLoaded := TRUE; + CoverSheetRemindersInBackground := (Pos(aID + ';', ForeGround) = 0); + if(not CoverSheetRemindersInBackground) then + begin + //InitialRemindersLoaded := TRUE; + RemSL := TStringList.Create; + try + LoadList(aStatus, RemSL, aRpc, bCase, bInvert, iDatePiece, aDateFormat, aParam1, aID, aDetail); + RemindersEvaluated(RemSL); + finally; + RemSL.Free; + end; + NotifyWhenRemindersChange(RemindersChange); + end + else + Waitlist(FCoverList.CVlst(i)); + end; + end + else + if Pos(aID + ';', ForeGround) > 0 then + LoadList(aStatus, FCoverList.CVlst(i), aRpc, bCase, bInvert, iDatePiece, aDateFormat, aParam1, aID, aDetail, TRUE) + else + Waitlist(FCoverList.CVlst(i)); + if WaitCount > 0 then + begin + FLoadingForDFN := Patient.DFN; + timPoll.Enabled := True; + end + else FLoadingForDFN := ''; //*DFN* + if InteractiveRemindersActive then + begin + RemindersStarted := TRUE; + LoadReminderData(CoverSheetRemindersInBackground); + end; + end; + if WaitCount > 0 then + begin + FLoadingForDFN := Patient.DFN; + timPoll.Enabled := True; + end + else FLoadingForDFN := ''; //*DFN* + end; + FocusFirstControl; + spt_2.Left := pnl_Not3.Left + pnl_Not3.Width; + spt_5.Left := pnl_Not8.Left + pnl_Not8.Width; + GetPatientFlag; + end; + if InitPage then + begin + popReminders := TORPopupMenu.Create(Self); + if InteractiveRemindersActive then + begin + SetReminderPopupCoverRoutine(popReminders); + if iRem > -1 then + (frmCover.Components[iRem] as TORListBox).PopupMenu := popReminders; + end + else + begin + if iRem > -1 then + begin + (frmCover.Components[iRem] as TORListBox).RightClickSelect := FALSE; + (frmCover.Components[iRem] as TORListBox).OnMouseUp := nil; + end; + end; + end; +end; + +procedure TfrmCover.SetFontSize(NewFontSize: Integer); +var + i: integer; +begin + inherited; + with frmCover do + for i := ComponentCount - 1 downto 0 do + begin + if Components[i] is TORListBox then + begin + case Components[i].Tag of + 30: (Components[i] as TORListBox).Font.Size := NewFontSize; + end; + end; + end; +end; + +procedure TfrmCover.CoverItemClick(Sender: TObject); +{ displays details for an item that has been clicked on the cover sheet } +var + i: integer; + aDetail: string; +begin + inherited; + with TORListBox(Sender) do + begin + aDetail := Uppercase(Piece(TORListBox(Sender).Items[TORListBox(Sender).ItemIndex],'^',12)); + case Tag of + TAG_PROB: + if ItemIEN > 0 then + begin + i := ItemIndex; + if Piece(Items[ItemIndex], U, 13) = '#' then + InfoBox(TX_INACTIVE_CODE, TC_INACTIVE_CODE, MB_ICONWARNING or MB_OK); + ItemIndex := i; + ReportBox(DetailGeneric(ItemIEN, ItemID, aDetail), DisplayText[ItemIndex], True); + end; + TAG_ALLG: +{ TODO -oRich V. -cART/Allergy : What to do about NKA only via right-click menu? Add here? } + if ItemIEN > 0 then + begin + if ARTPatchInstalled then + AllergyBox(DetailGeneric(ItemIEN, ItemID, aDetail), DisplayText[ItemIndex], True, ItemIEN) + else + ReportBox(DetailGeneric(ItemIEN, ItemID, aDetail), DisplayText[ItemIndex], True); + end; + TAG_POST: + if DisplayText[ItemIndex] = 'Allergies' then + ReportBox(DetailPosting('A'), DisplayText[ItemIndex], True) + else if ItemID <> '' then + begin + NotifyOtherApps(NAE_REPORT, 'TIU^' + ItemID); + ReportBox(DetailPosting(ItemID), DisplayText[ItemIndex], True); + end; + TAG_MEDS: + if (ItemID <> '') and (ItemID <> '0') then + ReportBox(DetailMed(ItemID), DisplayText[ItemIndex], True); + TAG_RMND: + if ItemIEN > 0 then + ReportBox(DetailReminder(ItemIEN), ClinMaintText + ': ' + DisplayText[ItemIndex], True); + TAG_LABS: + if (ItemID <> '') and (Piece(ItemID,';',1) <> '0') and (not ContainsAlpha(Piece(ItemID,';',1))) then + ReportBox(DetailGeneric(ItemIEN, ItemID, aDetail), DisplayText[ItemIndex], True); + TAG_VITL: + if ItemID <> '' then + begin + frmFrame.VitalsDLLActive := True; + SelectVitals(Piece(DisplayText[ItemIndex],Char(9),1)); //Char(9) = Tab Character + frmFrame.VitalsDLLActive := False; + ClearPtData; + DisplayPage; + end; + + TAG_VSIT: + if (ItemID <> '') and (ItemID <> '0') then + ReportBox(DetailGeneric(ItemIEN, ItemID, aDetail), DisplayText[ItemIndex], True); + else + //don't try to display a detail report + end; + if uInit.TimedOut then // Fix for CQ: 8011 + Abort + else + ItemIndex := -1; + end; +end; + +procedure TfrmCover.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + timPoll.Enabled := False; + if Length(FLoadingForDFN) > 0 then StopCoverSheet(FLoadingForDFN, uIPAddress, frmFrame.Handle); //*DFN* + FLoadingForDFN := ''; //*DFN* +end; + +procedure TfrmCover.timPollTimer(Sender: TObject); +const + RemUnchanged = '[{^Reminders @ @ @ Unchanged^]}'; + +var + Done: Boolean; + ReminderSL: TStringList; + ProbSL, PostSL, MedsSL, RemSL, LabsSL, VitSL, VisitSL: TStringList; + i, iProb, iPost, iMeds, iRem, iLabs, iVit, iVisit: integer; +begin + inherited; + iProb := -1; + iPost := -1; + iMeds := -1; + iRem := -1; + iLabs := -1; + iVit := -1; + iVisit := -1; + with frmCover do + for i := ComponentCount - 1 downto 0 do + begin + if Components[i] is TORListBox then + begin + case Components[i].Tag of + TAG_PROB: iProb := i; + TAG_POST: iPost := i; + TAG_MEDS: iMeds := i; + TAG_RMND: iRem := i; + TAG_LABS: iLabs := i; + TAG_VITL: iVit := i; + TAG_VSIT: iVisit := i; + end; + end; + end; + ProbSL := TStringList.Create; + PostSL := TStringList.Create; + MedsSL := TStringList.Create; + RemSL := TStringList.Create; + LabsSL := TStringList.Create; + VitSL := TStringList.Create; + VisitSL := TStringList.Create; + if InteractiveRemindersActive then + begin + ReminderSL := TStringList.Create; + 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); + // 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; + if Done then + begin + timPoll.Enabled := False; + FLoadingForDFN := ''; //*DFN* + end; + if(not InitialRemindersLoaded) and + (ReminderSL.Count <> 1) or (ReminderSL[0] <> RemUnchanged) then + begin + CoverSheetRemindersInBackground := FALSE; +// InitialRemindersLoaded := TRUE; + RemindersEvaluated(ReminderSL); + NotifyWhenRemindersChange(RemindersChange); + end; + finally + ReminderSL.Free; + end; + end + 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); + // 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; + if Done then + begin + timPoll.Enabled := False; + FLoadingForDFN := ''; //*DFN* + end; + end; + ProbSL.Free; + PostSL.Free; + MedsSL.Free; + RemSL.Free; + LabsSL.Free; + VitSL.Free; + VisitSL.Free; +end; + +procedure TfrmCover.NotifyOrder(OrderAction: Integer; AnOrder: TOrder); {REV} +var + i: integer; +begin + case OrderAction of + ORDER_SIGN: + begin + with frmCover do + for i := ComponentCount - 1 downto 0 do + begin + if Components[i] is TORListBox then + begin + case Components[i].Tag of + 20: UpdateAllergiesList; + 30: ListPostings((Components[i] as TORListBox).Items); + end; + end; + end; + end; + end; +end; + +procedure TfrmCover.RemindersChange(Sender: TObject); +var + i: integer; + tmp: string; + lb: TORListBox; + +begin + lb := nil; + with frmCover do + for i := ComponentCount - 1 downto 0 do + begin + if (Components[i] is TORListBox) and (Components[i].Tag = TAG_RMND) then + begin + lb := (Components[i] as TORListBox); + break; + end; + end; + if assigned(lb) then + begin + lb.Clear; + //i := -1; + //AGP Change 26.8 this changes allowed Reminders to display on the coversheet + //even if they had an error on evaluation + for i := 0 to ActiveReminders.Count-1 do + begin + if Piece(ActiveReminders.Strings[i],U,6)='1' then + begin + tmp := ActiveReminders[i]; + SetPiece(tmp, U, 3, FormatFMDateTimeStr('mmm dd,yy', Piece(tmp, U, 3))); + lb.Items.Add(tmp); + end; + if Piece(ActiveReminders.Strings[i],U,6)='3' then + begin + tmp := ActiveReminders[i]; + SetPiece(tmp, U, 3, 'Error'); + lb.Items.Add(tmp); + end; + if Piece(ActiveReminders.Strings[i],U,6)='4' then + begin + tmp := ActiveReminders[i]; + SetPiece(tmp, U, 3, 'CNBD'); + lb.Items.Add(tmp); + end; + end; + //AGP End Change for 26.8 + if(RemindersEvaluatingInBackground) then + lb.Items.Insert(0,'0^Evaluating Reminders...') + else + if(lb.Items.Count = 0) and (RemindersStarted) then + lb.Items.Add(NoDataText(TRUE)); + end; +end; + +Procedure TfrmCover.RemContextPopup(Sender: TObject; + MousePos: TPoint; var Handled: Boolean); +var + idx: integer; + i, iRem: integer; +begin + inherited; + Handled := TRUE; + iRem := -1; + with frmCover do + for i := ComponentCount - 1 downto 0 do + begin + if Components[i] is TORListBox then + begin + case Components[i].Tag of + TAG_RMND: iRem := i; + end; + end; + end; + if iRem > -1 then + if ((frmCover.Components[iRem] as TORListBox).ItemIndex >= 0) then + begin + idx := StrToIntDef(Piece((frmCover.Components[iRem] as TORListBox).Items[(frmCover.Components[iRem] as TORListBox).ItemIndex],U,1),0); + if(idx <> 0) then + begin + popReminders.Data := RemCode + (frmCover.Components[iRem] as TORListBox).Items[(frmCover.Components[iRem] as TORListBox).ItemIndex]; + Handled := FALSE; + end; + end; +end; + +procedure TfrmCover.FormCreate(Sender: TObject); +begin + inherited; + PageID := CT_COVER; + FCoverList := TCoverSheetList.Create; + FCoverList.Add(pnl_1, lbl_1, lst_1); + FCoverList.Add(pnl_2, lbl_2, lst_2); + FCoverList.Add(pnl_3, lbl_3, lst_3); + FCoverList.Add(pnl_4, lbl_4, lst_4); + FCoverList.Add(pnl_5, lbl_5, lst_5); + 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); +begin + inherited; + FCoverList.Free; +end; + +procedure TfrmCover.sptBottomCanResize(Sender: TObject; + var NewSize: Integer; var Accept: Boolean); +begin + inherited; + if NewSize < 50 then + Newsize := 50; +end; + +procedure TfrmCover.sptTopCanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); +begin + inherited; + if NewSize < 50 then + Newsize := 50; +end; + +procedure TfrmCover.spt_1CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); +begin + inherited; + if NewSize < 50 then + Newsize := 50; +end; + +procedure TfrmCover.spt_2CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); +begin + inherited; + if NewSize < 50 then + Newsize := 50; +end; + +procedure TfrmCover.spt_3CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); +begin + inherited; + if NewSize < 50 then + Newsize := 50; +end; + +procedure TfrmCover.spt_4CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); +begin + inherited; + if NewSize < 50 then + Newsize := 50; +end; + +procedure TfrmCover.spt_5CanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); +begin + inherited; + if NewSize < 50 then + Newsize := 50; +end; + +procedure TfrmCover.popMenuAllergiesPopup(Sender: TObject); +const + NO_ASSESSMENT = 'No Allergy Assessment'; +var + AListBox: TORListBox; + x: string; +begin + inherited; + AListBox := (popMenuAllergies.PopupComponent as TORListBox); + popEditAllergy.Enabled := (AListBox.ItemIEN > 0) and IsARTClinicalUser(x); + popEnteredInError.Enabled := (AListBox.ItemIEN > 0) and IsARTClinicalUser(x); + popNKA.Enabled := (AListBox.Items.Count = 1) and + (Piece(AListBox.Items[0], U, 2) = NO_ASSESSMENT); + //and IsARTClinicalUser(x); v26.12 + popNewAllergy.Enabled := True; //IsARTClinicalUser(x); v26.12 +end; + +procedure TfrmCover.popNewAllergyClick(Sender: TObject); +const + NEW_ALLERGY = True; + ENTERED_IN_ERROR = True; +var + Changed: boolean; +begin + inherited; + Changed := EnterEditAllergy(0, NEW_ALLERGY, not ENTERED_IN_ERROR); + if Changed then UpdateAllergiesList; +end; + +procedure TfrmCover.popNKAClick(Sender: TObject); +var + Changed: boolean; +begin + inherited; + Changed := EnterNKAForPatient; + if Changed then UpdateAllergiesList; +end; + +procedure TfrmCover.popEditAllergyClick(Sender: TObject); +const + NEW_ALLERGY = True; + ENTERED_IN_ERROR = True; +begin + inherited; + EnterEditAllergy((popMenuAllergies.PopupComponent as TORListBox).ItemIEN, not NEW_ALLERGY, not ENTERED_IN_ERROR); +end; + +procedure TfrmCover.popEnteredInErrorClick(Sender: TObject); +var + Changed: boolean; +begin + inherited; + Changed := MarkEnteredInError((popMenuAllergies.PopupComponent as TORListBox).ItemIEN); + if Changed then UpdateAllergiesList; +end; + +procedure TfrmCover.UpdateAllergiesList; +var + bCase, bInvert: boolean; + iDatePiece: integer ; + x, aRPC, aDateFormat, aParam1, aID, aDetail, aStatus, aName, aCase, aInvert, aDatePiece, aTextColor, aQualifier, aTabPos, aPiece, aIFN: string; +begin + x := uARTCoverSheetParams; + if x = '' then exit; + aName := Piece(x,'^',2); + aRPC := Piece(x,'^',6); + aCase := Piece(x,'^',7); + aInvert := Piece(x,'^',8); + aDatePiece := Piece(x,'^',11); + aDateFormat := Piece(x,'^',10); + aTextColor := Piece(x,'^',9); + aStatus := 'Searching for ' + Piece(x,'^',2) + '...'; + aParam1 := Piece(x,'^',12); + aID := Piece(x,'^',1); //TAG_PROB, TAG_RMND, ETC. + aQualifier := Piece(x,'^',13); + aTabPos := Piece(x,'^',14); + aPiece := Piece(x,'^',15); + aDetail := Piece(x,'^',16); + aIFN := Piece(x,'^',17); + bCase := FALSE; + bInvert := FALSE; + iDatePiece := 0; + if aCase = '1' then bCase := TRUE; + if aInvert = '1' then bInvert := TRUE; + if Length(aDatePiece) > 0 then iDatePiece := StrToInt(aDatePiece); + 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(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); + with frmFrame do + begin + lblPtCWAD.Caption := GetCWADInfo(Patient.DFN); + if Length(lblPtCWAD.Caption) > 0 + then lblPtPostings.Caption := 'Postings' + else lblPtPostings.Caption := 'No Postings'; + pnlPostings.Caption := lblPtPostings.Caption + ' ' + lblPtCWAD.Caption; + end; +end; + +procedure TfrmCover.CoverItemExit(Sender: TObject); +begin + with Sender as TORListBox do + Selected[ItemIndex] := False; + inherited; +end; + +procedure TfrmCover.GetPatientFlag; +begin + pnlFlag.Visible := HasFlag; + sptFlag.Visible := HasFlag; + lstFlag.Items.Assign(FlagList); +end; + +procedure TfrmCover.lstFlagClick(Sender: TObject); +begin + if lstFlag.ItemIndex >= 0 then + ShowFlags(lstFlag.ItemID); +end; + +procedure TfrmCover.lstFlagKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_RETURN then + lstFlagClick(Self); +end; + +procedure TfrmCover.UpdateVAAButton; +const + MHVLabelOrigTop = 3; + PtInsLabelOrigTop = 27; +//var +// PtIsVAA: boolean; +// PtIsMHV: boolean; + +begin +//VAA & MHV + PtIsVAA := false; + PtIsMHV := false; + + VAAFlag := TStringList.Create; + MHVFlag := TStringList.Create; + 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.Hint := Piece(VAAFlag[0], '^', 2); //CQ7626 was piece '6' + end; + end + else + begin + with frmFrame do + begin + laVAA2.Caption := #0; + laVAA2.Hint := 'No active insurance'; //CQ7626 added this line + end; + end; + + //MHV flag + if MHVFlag[0] <> '0' then + begin + PtIsMHV := true; + + with frmFrame do + begin + laMHV.Caption := Piece(MHVFlag[0], '^', 1); + laMHV.Hint := Piece(MHVFlag[0], '^', 2); + + if VAAFlag[0] = '0' then + laMHV.Caption := 'MHV'; + end; + end + else + begin + with frmFrame do + begin + laMHV.Caption := #0; + laMHV.Hint := 'No MyHealthyVet data'; //CQ7626 added this line + end; + end; + + with frmFrame do + begin + //Modified this 'with' section for CQ7783 + paVAA.Hide; //Start by hiding it. Show it only if one of the conditions below is true, else it stays invisible. + paVAA.Height := pnlPrimaryCare.Height; + + if ((PtIsVAA and PtIsMHV)) then //CQ7411 - this line + begin + laMHV.Top := paVAA.Top; + laMHV.Width := paVAA.Width - 1; + laMHV.Height := (paVAA.ClientHeight div 2) - 1; + laMHV.Visible := true; + + laVAA2.Top := laMHV.Top + laMHV.Height + 1; + laVAA2.Width := paVAA.Width - 1; + laVAA2.Height := (paVAA.ClientHeight div 2); + laVAA2.Visible := true; + + paVAA.Show; + end + else + if ((PtIsMHV and (not PtIsVAA))) then + begin + laMHV.Top := paVAA.Top; + paVAA.Height := pnlPrimaryCare.Height; + laMHV.Height := paVAA.ClientHeight - 1; + laMHV.Visible := true; + laVAA2.Visible := false; + paVAA.Show; + end + else + if ((PtIsVAA and (not PtIsMHV))) then + begin + laVAA2.Top := paVAA.Top; + paVAA.Height := pnlPrimaryCare.Height-2; + laVAA2.Height := paVAA.ClientHeight - 1; + laVAA2.Visible := true; + laMHV.Visible := false; + + paVAA.Show; + end; + end; //with +//end VAA & MHV +end; + +initialization + +finalization + if Assigned(fCover.VAAFlag) then fCover.VAAFlag.Free; //VAA + +end. + diff --git a/CPRS-Chart/fDCSumm.dfm b/CPRS-Chart/fDCSumm.dfm new file mode 100644 index 0000000..be7a717 --- /dev/null +++ b/CPRS-Chart/fDCSumm.dfm @@ -0,0 +1,902 @@ +inherited frmDCSumm: TfrmDCSumm + Left = 488 + Top = 83 + Width = 687 + Height = 409 + HelpContext = 7000 + Caption = 'Discharge Summary Page' + HelpFile = 'overvw' + Menu = mnuSumms + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + inherited shpPageBottom: TShape + Top = 358 + Width = 679 + end + inherited sptHorz: TSplitter + Left = 64 + Width = 3 + Height = 358 + OnCanResize = sptHorzCanResize + end + inherited pnlLeft: TPanel + Width = 64 + Height = 358 + object lblSumms: TOROffsetLabel + Left = 0 + Top = 0 + Width = 64 + Height = 19 + Align = alTop + Caption = 'Last 100 Summaries' + HorzOffset = 2 + ParentShowHint = False + ShowHint = True + Transparent = True + VertOffset = 6 + WordWrap = False + end + object lblSpace1: TLabel + Left = 0 + Top = 334 + Width = 64 + Height = 3 + Align = alBottom + AutoSize = False + Caption = ' ' + end + object cmdNewSumm: TORAlignButton + Left = 0 + Top = 313 + Width = 64 + Height = 21 + Caption = 'New Summary' + TabOrder = 1 + OnClick = cmdNewSummClick + Align = alBottom + end + object cmdPCE: TORAlignButton + Left = 0 + Top = 337 + Width = 64 + Height = 21 + Caption = 'Encounter' + TabOrder = 2 + Visible = False + OnClick = cmdPCEClick + Align = alBottom + end + object pnlDrawers: TPanel + Left = 0 + Top = 19 + Width = 64 + Height = 294 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object splDrawers: TSplitter + Left = 0 + Top = 291 + Width = 64 + Height = 3 + Cursor = crVSplit + Align = alBottom + end + object lstSumms: TORListBox + Left = 0 + Top = 0 + Width = 64 + Height = 33 + TabStop = False + Ctl3D = True + ItemHeight = 13 + ParentCtl3D = False + ParentShowHint = False + PopupMenu = popSummList + ShowHint = True + TabOrder = 0 + Visible = False + OnClick = lstSummsClick + ItemTipColor = clWindow + LongList = False + Pieces = '2,3' + TabPositions = '10,20' + end + object tvSumms: TORTreeView + Left = 0 + Top = 0 + Width = 64 + Height = 291 + Align = alClient + Constraints.MinWidth = 30 + HideSelection = False + Indent = 19 + PopupMenu = popSummList + ReadOnly = True + TabOrder = 1 + OnAddition = tvSummsAddition + OnChange = tvSummsChange + OnClick = tvSummsClick + OnCollapsed = tvSummsCollapsed + OnDeletion = tvSummsDeletion + OnDragDrop = tvSummsDragDrop + OnDragOver = tvSummsDragOver + OnExpanded = tvSummsExpanded + OnStartDrag = tvSummsStartDrag + Caption = 'Last 100 Summaries' + NodePiece = 0 + ShortNodeCaptions = True + end + end + end + inherited pnlRight: TPanel + Left = 67 + Width = 612 + Height = 358 + object sptVert: TSplitter + Left = 0 + Top = 309 + Width = 612 + Height = 4 + Cursor = crVSplit + Align = alBottom + end + object memPCEShow: TRichEdit + Left = 0 + Top = 313 + Width = 612 + Height = 45 + Align = alBottom + Color = clCream + Lines.Strings = ( + '') + PlainText = True + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 2 + WantReturns = False + WordWrap = False + end + object pnlWrite: TPanel + Left = 0 + Top = 0 + Width = 612 + Height = 309 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + Visible = False + OnResize = pnlWriteResize + object memNewSumm: TRichEdit + Left = 0 + Top = 52 + Width = 612 + Height = 257 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PlainText = True + PopupMenu = popSummMemo + ScrollBars = ssVertical + TabOrder = 1 + WantTabs = True + OnChange = memNewSummChange + OnKeyUp = memNewSummKeyUp + end + object pnlFields: TORAutoPanel + Left = 0 + Top = 0 + Width = 612 + Height = 52 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + DesignSize = ( + 612 + 52) + object bvlNewTitle: TBevel + Left = 5 + Top = 5 + Width = 102 + Height = 15 + end + object lblNewTitle: TStaticText + Left = 6 + Top = 6 + Width = 104 + Height = 17 + Hint = 'Press "Change..." to select a different title.' + Caption = ' Discharge Summary ' + Color = clCream + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentColor = False + ParentFont = False + ParentShowHint = False + ShowAccelChar = False + ShowHint = True + TabOrder = 1 + end + object lblVisit: TStaticText + Left = 6 + Top = 21 + Width = 123 + Height = 17 + Caption = 'Adm: 10/20/99 2BMED' + ShowAccelChar = False + TabOrder = 2 + end + object lblRefDate: TStaticText + Left = 237 + Top = 6 + Width = 101 + Height = 17 + Hint = 'Press "Change..." to change date/time of summary.' + Alignment = taCenter + Caption = 'Oct 20,1999@15:30' + ParentShowHint = False + ShowAccelChar = False + ShowHint = True + TabOrder = 3 + end + object lblCosigner: TStaticText + Left = 307 + Top = 21 + Width = 199 + Height = 13 + Hint = 'Press "Change..." to select a different attending.' + Alignment = taRightJustify + Anchors = [akTop, akRight] + AutoSize = False + Caption = 'Attending: Winchester,Charles Emerson III' + ParentShowHint = False + ShowAccelChar = False + ShowHint = True + TabOrder = 4 + end + object lblDictator: TStaticText + Left = 402 + Top = 6 + Width = 152 + Height = 17 + Hint = 'Press "Change..." to select a different author.' + Alignment = taRightJustify + Anchors = [akTop, akRight] + Caption = 'Winchester,Charles Emerson III' + ParentShowHint = False + ShowAccelChar = False + ShowHint = True + TabOrder = 5 + end + object lblDischarge: TStaticText + Left = 6 + Top = 34 + Width = 71 + Height = 17 + Caption = 'Dis: 03/20/00' + ShowAccelChar = False + TabOrder = 6 + end + object cmdChange: TButton + Left = 554 + Top = 10 + Width = 58 + Height = 21 + Anchors = [akTop, akRight] + Caption = 'Change...' + TabOrder = 0 + OnClick = cmdChangeClick + end + end + end + object pnlRead: TPanel + Left = 0 + Top = 0 + Width = 612 + Height = 309 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object lblTitle: TOROffsetLabel + Left = 0 + Top = 0 + Width = 612 + Height = 19 + Hint = 'No Discharge Summaries Found' + Align = alTop + Caption = 'No Discharge Summaries Found' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HorzOffset = 2 + ParentFont = False + ParentShowHint = False + ShowHint = True + Transparent = False + VertOffset = 6 + WordWrap = False + end + object sptList: TSplitter + Left = 0 + Top = 113 + Width = 612 + Height = 3 + Cursor = crVSplit + Align = alTop + end + object memSumm: TRichEdit + Left = 0 + Top = 116 + Width = 612 + Height = 193 + Align = alClient + Color = clCream + Ctl3D = True + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + Lines.Strings = ( + + 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' + + 'mnopqrstuvwxyz12') + ParentCtl3D = False + ParentFont = False + PlainText = True + PopupMenu = popSummMemo + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + WantReturns = False + WordWrap = False + end + object lvSumms: TCaptionListView + Left = 0 + Top = 19 + Width = 612 + Height = 94 + Align = alTop + Columns = < + item + Caption = 'Date' + Width = 100 + end + item + AutoSize = True + Caption = 'Title' + end + item + AutoSize = True + Caption = 'Subject' + end + item + AutoSize = True + Caption = 'Author' + end + item + AutoSize = True + Caption = 'Location' + end + item + Caption = 'fmdate' + Width = 0 + end + item + Caption = 'TIUDA' + Width = 0 + end> + Constraints.MinHeight = 50 + HideSelection = False + ReadOnly = True + RowSelect = True + TabOrder = 1 + ViewStyle = vsReport + Visible = False + OnColumnClick = lvSummsColumnClick + OnCompare = lvSummsCompare + OnResize = lvSummsResize + OnSelectItem = lvSummsSelectItem + Caption = 'No Discharge Summaries Found' + end + end + end + object mnuSumms: TMainMenu + Left = 596 + Top = 305 + object mnuView: TMenuItem + Caption = '&View' + GroupIndex = 3 + object mnuViewChart: TMenuItem + Caption = 'Chart &Tab' + object mnuChartCover: TMenuItem + Tag = 1 + Caption = 'Cover &Sheet' + ShortCut = 16467 + OnClick = mnuChartTabClick + end + object mnuChartProbs: TMenuItem + Tag = 2 + Caption = '&Problem List' + ShortCut = 16464 + OnClick = mnuChartTabClick + end + object mnuChartMeds: TMenuItem + Tag = 3 + Caption = '&Medications' + ShortCut = 16461 + OnClick = mnuChartTabClick + end + object mnuChartOrders: TMenuItem + Tag = 4 + Caption = '&Orders' + ShortCut = 16463 + OnClick = mnuChartTabClick + end + object mnuChartSumms: TMenuItem + Tag = 6 + Caption = 'Progress &Notes' + ShortCut = 16462 + OnClick = mnuChartTabClick + end + object mnuChartCslts: TMenuItem + Tag = 7 + Caption = 'Consul&ts' + ShortCut = 16468 + OnClick = mnuChartTabClick + end + object mnuChartSurgery: TMenuItem + Tag = 11 + Caption = 'S&urgery' + ShortCut = 16469 + OnClick = mnuChartTabClick + end + object mnuChartDCSumm: TMenuItem + Tag = 8 + Caption = '&Discharge Summaries' + ShortCut = 16452 + OnClick = mnuChartTabClick + end + object mnuChartLabs: TMenuItem + Tag = 9 + Caption = '&Laboratory' + ShortCut = 16460 + OnClick = mnuChartTabClick + end + object mnuChartReports: TMenuItem + Tag = 10 + Caption = '&Reports' + ShortCut = 16466 + OnClick = mnuChartTabClick + end + end + object mnuViewInformation: TMenuItem + Caption = 'Information' + OnClick = mnuViewInformationClick + object mnuViewDemo: TMenuItem + Tag = 1 + Caption = 'De&mographics...' + OnClick = ViewInfo + end + object mnuViewVisits: TMenuItem + Tag = 2 + Caption = 'Visits/Pr&ovider...' + OnClick = ViewInfo + end + object mnuViewPrimaryCare: TMenuItem + Tag = 3 + Caption = 'Primary &Care...' + OnClick = ViewInfo + end + object mnuViewMyHealtheVet: TMenuItem + Tag = 4 + Caption = 'MyHealthe&Vet...' + OnClick = ViewInfo + end + object mnuInsurance: TMenuItem + Tag = 5 + Caption = '&Insurance...' + OnClick = ViewInfo + end + object mnuViewFlags: TMenuItem + Tag = 6 + Caption = '&Flags...' + OnClick = ViewInfo + end + object mnuViewRemoteData: TMenuItem + Tag = 7 + Caption = 'Remote &Data...' + OnClick = ViewInfo + end + object mnuViewReminders: TMenuItem + Tag = 8 + Caption = '&Reminders...' + Enabled = False + OnClick = ViewInfo + end + object mnuViewPostings: TMenuItem + Tag = 9 + Caption = '&Postings...' + OnClick = ViewInfo + end + end + object Z3: TMenuItem + Caption = '-' + end + object mnuViewAll: TMenuItem + Tag = 1 + Caption = '&Signed Summaries (All)' + OnClick = mnuViewClick + end + object mnuViewByAuthor: TMenuItem + Tag = 4 + Caption = 'Signed Summaries by &Author' + OnClick = mnuViewClick + end + object mnuViewByDate: TMenuItem + Tag = 5 + Caption = 'Signed Summaries by Date &Range' + OnClick = mnuViewClick + end + object mnuViewUncosigned: TMenuItem + Tag = 3 + Caption = 'Un&cosigned Summaries' + OnClick = mnuViewClick + end + object mnuViewUnsigned: TMenuItem + Tag = 2 + Caption = '&Unsigned Summaries' + OnClick = mnuViewClick + end + object mnuViewCustom: TMenuItem + Tag = 6 + Caption = 'Custo&m View' + OnClick = mnuViewClick + end + object N1: TMenuItem + Caption = '-' + end + object mnuViewSaveAsDefault: TMenuItem + Caption = 'Sa&ve as Default View' + OnClick = mnuViewSaveAsDefaultClick + end + object mnuViewReturnToDefault: TMenuItem + Caption = 'Return to De&fault View' + OnClick = mnuViewReturntoDefaultClick + end + object Z1: TMenuItem + Caption = '-' + end + object mnuViewDetail: TMenuItem + Caption = '&Details' + OnClick = mnuViewDetailClick + end + object N7: TMenuItem + Caption = '-' + end + object mnuIconLegend: TMenuItem + Caption = 'Icon Legend' + OnClick = mnuIconLegendClick + end + end + object mnuAct: TMenuItem + Caption = '&Action' + GroupIndex = 4 + object mnuActNew: TMenuItem + Caption = '&New Discharge Summary...' + Hint = 'Creates a new Discharge Summary' + ShortCut = 24654 + OnClick = mnuActNewClick + end + object mnuActAddend: TMenuItem + Caption = '&Make Addendum...' + Hint = 'Makes an addendum for the currently selected Discharge Summary' + ShortCut = 24653 + OnClick = mnuActAddendClick + end + object mnuActAddIDEntry: TMenuItem + Caption = 'Add Ne&w Entry to Interdisciplinary Note' + OnClick = mnuActAddIDEntryClick + end + object mnuActAttachtoIDParent: TMenuItem + Caption = 'A&ttach to Interdisciplinary Note' + OnClick = mnuActAttachtoIDParentClick + end + object mnuActDetachFromIDParent: TMenuItem + Caption = 'Detac&h from Interdisciplinary Note' + OnClick = mnuActDetachFromIDParentClick + end + object Z2: TMenuItem + Caption = '-' + end + object mnuActChange: TMenuItem + Caption = '&Change Title...' + ShortCut = 24643 + OnClick = mnuActChangeClick + end + object mnuActLoadBoiler: TMenuItem + Caption = 'Reload &Boilerplate Text' + OnClick = mnuActLoadBoilerClick + end + object Z4: TMenuItem + Caption = '-' + end + object mnuActSignList: TMenuItem + Caption = 'Add to Signature &List' + Hint = + 'Adds the currently displayed Discharge Summary to list of things' + + ' to be signed' + OnClick = mnuActSignListClick + end + object mnuActDelete: TMenuItem + Caption = '&Delete Discharge Summary...' + ShortCut = 24644 + OnClick = mnuActDeleteClick + end + object mnuActEdit: TMenuItem + Caption = '&Edit Discharge Summary...' + ShortCut = 24645 + OnClick = mnuActEditClick + end + object mnuActSave: TMenuItem + Caption = 'S&ave without Signature' + Hint = 'Saves the Discharge Summary that is being edited' + ShortCut = 24641 + OnClick = mnuActSaveClick + end + object mnuActSign: TMenuItem + Caption = 'Si&gn Discharge Summary Now...' + ShortCut = 24647 + OnClick = mnuActSignClick + end + object mnuActIdentifyAddlSigners: TMenuItem + Caption = '&Identify Additional Signers' + OnClick = mnuActIdentifyAddlSignersClick + end + end + object mnuOptions: TMenuItem + Caption = '&Options' + GroupIndex = 4 + OnClick = mnuOptionsClick + object mnuEditTemplates: TMenuItem + Caption = 'Edit &Templates...' + OnClick = mnuEditTemplatesClick + end + object mnuNewTemplate: TMenuItem + Caption = 'Create &New Template...' + OnClick = mnuNewTemplateClick + end + object N3: TMenuItem + Caption = '-' + end + object mnuEditSharedTemplates: TMenuItem + Caption = 'Edit &Shared Templates...' + OnClick = mnuEditSharedTemplatesClick + end + object mnuNewSharedTemplate: TMenuItem + Caption = '&Create New Shared Template...' + OnClick = mnuNewSharedTemplateClick + end + object N4: TMenuItem + Caption = '-' + end + object mnuEditDialgFields: TMenuItem + Caption = 'Edit Template &Fields' + OnClick = mnuEditDialgFieldsClick + end + end + end + object popSummMemo: TPopupMenu + OnPopup = popSummMemoPopup + Left = 539 + Top = 304 + object popSummMemoCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = popSummMemoCutClick + end + object popSummMemoCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = popSummMemoCopyClick + end + object popSummMemoPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = popSummMemoPasteClick + end + object popSummMemoPaste2: TMenuItem + Caption = 'Paste2' + ShortCut = 8237 + Visible = False + OnClick = popSummMemoPasteClick + end + object popSummMemoReformat: TMenuItem + Caption = 'Re&format Paragraph' + ShortCut = 24658 + OnClick = popSummMemoReformatClick + end + object popSummMemoSaveContinue: TMenuItem + Caption = 'Save && Continue Editing' + ShortCut = 24659 + Visible = False + OnClick = popSummMemoSaveContinueClick + end + object Z11: TMenuItem + Caption = '-' + end + object popSummMemoFind: TMenuItem + Caption = '&Find in Selected Summary' + OnClick = popSummMemoFindClick + end + object popSummMemoReplace: TMenuItem + Caption = '&Replace Text' + OnClick = popSummMemoReplaceClick + end + object N8: TMenuItem + Caption = '-' + end + object popSummMemoGrammar: TMenuItem + Caption = 'Check &Grammar' + OnClick = popSummMemoGrammarClick + end + object popSummMemoSpell: TMenuItem + Caption = 'C&heck Spelling' + OnClick = popSummMemoSpellClick + end + object N2: TMenuItem + Caption = '-' + end + object popSummMemoTemplate: TMenuItem + Caption = 'Copy Into New &Template' + OnClick = popSummMemoTemplateClick + end + object Z10: TMenuItem + Caption = '-' + end + object popSummMemoSignList: TMenuItem + Caption = 'Add to Signature &List' + OnClick = mnuActSignListClick + end + object popSummMemoDelete: TMenuItem + Caption = '&Delete Discharge Summary...' + OnClick = mnuActDeleteClick + end + object popSummMemoEdit: TMenuItem + Caption = '&Edit Discharge Summary...' + OnClick = mnuActEditClick + end + object popSummMemoAddend: TMenuItem + Caption = '&Make Addendum...' + OnClick = mnuActAddendClick + end + object popSummMemoSave: TMenuItem + Caption = 'S&ave without Signature' + OnClick = mnuActSaveClick + end + object popSummMemoSign: TMenuItem + Caption = '&Sign Discharge Summary Now...' + OnClick = mnuActSignClick + end + object popSummMemoAddlSign: TMenuItem + Caption = '&Identify Additional Signers' + OnClick = popSummMemoAddlSignClick + end + object N9: TMenuItem + Caption = '-' + end + object popSummMemoPreview: TMenuItem + Caption = 'Previe&w/Print Current Template' + ShortCut = 16471 + OnClick = popSummMemoPreviewClick + end + object popSummMemoInsTemplate: TMenuItem + Caption = 'Insert Current Template' + ShortCut = 16429 + OnClick = popSummMemoInsTemplateClick + end + object popSummMemoEncounter: TMenuItem + Caption = 'Edit Encounter Information' + ShortCut = 16453 + OnClick = cmdPCEClick + end + end + object popSummList: TPopupMenu + OnPopup = popSummListPopup + Left = 500 + Top = 304 + object popSummListAll: TMenuItem + Tag = 1 + Caption = '&Signed Discharge Summaries (All)' + OnClick = mnuViewClick + end + object popSummListByAuthor: TMenuItem + Tag = 4 + Caption = 'Signed Discharge Summaries by &Author' + OnClick = mnuViewClick + end + object popSummListByDate: TMenuItem + Tag = 5 + Caption = 'Signed Discharge Summaries by Date &Range' + OnClick = mnuViewClick + end + object popSummListUncosigned: TMenuItem + Tag = 3 + Caption = 'Un&cosigned Discharge Summaries' + OnClick = mnuViewClick + end + object popSummListUnsigned: TMenuItem + Tag = 2 + Caption = '&Unsigned Discharge Summaries' + OnClick = mnuViewClick + end + object popSummListCustom: TMenuItem + Tag = 6 + Caption = 'Cus&tom View' + OnClick = mnuViewClick + end + object N5: TMenuItem + Caption = '-' + end + object popSummListExpandSelected: TMenuItem + Caption = '&Expand Selected' + OnClick = popSummListExpandSelectedClick + end + object popSummListExpandAll: TMenuItem + Caption = 'E&xpand All' + OnClick = popSummListExpandAllClick + end + object popSummListCollapseSelected: TMenuItem + Caption = 'C&ollapse Selected' + OnClick = popSummListCollapseSelectedClick + end + object popSummListCollapseAll: TMenuItem + Caption = 'Co&llapse All' + OnClick = popSummListCollapseAllClick + end + object N6: TMenuItem + Caption = '-' + end + object popSummListAddIDEntry: TMenuItem + Caption = 'Add Ne&w Entry to Interdisciplinary Note' + OnClick = mnuActAddIDEntryClick + end + object popSummListAttachtoIDParent: TMenuItem + Caption = 'A&ttach to Interdisciplinary Note' + OnClick = mnuActAttachtoIDParentClick + end + object popSummListDetachFromIDParent: TMenuItem + Caption = 'Detac&h from Interdisciplinary Note' + OnClick = mnuActDetachFromIDParentClick + end + end + object timAutoSave: TTimer + Enabled = False + Interval = 300000 + OnTimer = timAutoSaveTimer + Left = 560 + Top = 61 + end + object dlgFindText: TFindDialog + Options = [frDown, frHideUpDown] + OnFind = dlgFindTextFind + Left = 452 + Top = 312 + end + object dlgReplaceText: TReplaceDialog + OnFind = dlgReplaceTextFind + OnReplace = dlgReplaceTextReplace + Left = 409 + Top = 313 + end +end diff --git a/CPRS-Chart/fDCSumm.pas b/CPRS-Chart/fDCSumm.pas new file mode 100644 index 0000000..d9cda68 --- /dev/null +++ b/CPRS-Chart/fDCSumm.pas @@ -0,0 +1,3289 @@ +unit fDCSumm; + + +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; + +type + TfrmDCSumm = class(TfrmHSplit) + mnuSumms: TMainMenu; + mnuView: TMenuItem; + mnuViewChart: TMenuItem; + mnuChartReports: TMenuItem; + mnuChartLabs: TMenuItem; + mnuChartDCSumm: TMenuItem; + mnuChartCslts: TMenuItem; + mnuChartSumms: TMenuItem; + mnuChartOrders: TMenuItem; + mnuChartMeds: TMenuItem; + mnuChartProbs: TMenuItem; + mnuChartCover: TMenuItem; + Z1: TMenuItem; + mnuViewDetail: TMenuItem; + mnuAct: TMenuItem; + mnuActNew: TMenuItem; + Z2: TMenuItem; + mnuActSave: TMenuItem; + mnuActDelete: TMenuItem; + mnuActEdit: TMenuItem; + mnuActSign: TMenuItem; + mnuActAddend: TMenuItem; + lblSumms: TOROffsetLabel; + pnlRead: TPanel; + lblTitle: TOROffsetLabel; + memSumm: TRichEdit; + pnlWrite: TPanel; + memNewSumm: TRichEdit; + Z3: TMenuItem; + mnuViewAll: TMenuItem; + mnuViewByAuthor: TMenuItem; + mnuViewByDate: TMenuItem; + mnuViewUncosigned: TMenuItem; + mnuViewUnsigned: TMenuItem; + mnuActSignList: TMenuItem; + cmdNewSumm: TORAlignButton; + lblSpace1: TLabel; + cmdPCE: TORAlignButton; + popSummMemo: TPopupMenu; + popSummMemoCut: TMenuItem; + popSummMemoCopy: TMenuItem; + popSummMemoPaste: TMenuItem; + Z10: TMenuItem; + popSummMemoSignList: TMenuItem; + popSummMemoDelete: TMenuItem; + popSummMemoEdit: TMenuItem; + popSummMemoSave: TMenuItem; + popSummMemoSign: TMenuItem; + popSummList: TPopupMenu; + popSummListAll: TMenuItem; + popSummListByAuthor: TMenuItem; + popSummListByDate: TMenuItem; + popSummListUncosigned: TMenuItem; + popSummListUnsigned: TMenuItem; + pnlFields: TORAutoPanel; + sptVert: TSplitter; + memPCEShow: TRichEdit; + mnuActIdentifyAddlSigners: TMenuItem; + popSummMemoAddlSign: TMenuItem; + Z11: TMenuItem; + popSummMemoSpell: TMenuItem; + popSummMemoGrammar: TMenuItem; + mnuViewCustom: TMenuItem; + N1: TMenuItem; + mnuViewSaveAsDefault: TMenuItem; + mnuViewReturnToDefault: TMenuItem; + pnlDrawers: TPanel; + lstSumms: TORListBox; + N2: TMenuItem; + popSummMemoTemplate: TMenuItem; + mnuOptions: TMenuItem; + mnuEditTemplates: TMenuItem; + mnuNewTemplate: TMenuItem; + splDrawers: TSplitter; + N3: TMenuItem; + mnuEditSharedTemplates: TMenuItem; + mnuNewSharedTemplate: TMenuItem; + timAutoSave: TTimer; + cmdChange: TButton; + lblNewTitle: TStaticText; + lblVisit: TStaticText; + lblRefDate: TStaticText; + lblCosigner: TStaticText; + lblDictator: TStaticText; + lblDischarge: TStaticText; + popSummMemoPaste2: TMenuItem; + popSummMemoReformat: TMenuItem; + Z4: TMenuItem; + mnuActChange: TMenuItem; + mnuActLoadBoiler: TMenuItem; + bvlNewTitle: TBevel; + popSummMemoSaveContinue: TMenuItem; + N4: TMenuItem; + mnuEditDialgFields: TMenuItem; + lvSumms: TCaptionListView; + sptList: TSplitter; + N5: TMenuItem; + popSummListExpandSelected: TMenuItem; + popSummListExpandAll: TMenuItem; + popSummListCollapseSelected: TMenuItem; + popSummListCollapseAll: TMenuItem; + tvSumms: TORTreeView; + popSummListCustom: TMenuItem; + N6: TMenuItem; + popSummListDetachFromIDParent: TMenuItem; + mnuActDetachFromIDParent: TMenuItem; + popSummListAddIDEntry: TMenuItem; + mnuActAddIDEntry: TMenuItem; + N7: TMenuItem; + mnuIconLegend: TMenuItem; + dlgFindText: TFindDialog; + popSummMemoFind: TMenuItem; + dlgReplaceText: TReplaceDialog; + N8: TMenuItem; + popSummMemoReplace: TMenuItem; + mnuChartSurgery: TMenuItem; + mnuActAttachtoIDParent: TMenuItem; + popSummListAttachtoIDParent: TMenuItem; + popSummMemoAddend: TMenuItem; + N9: TMenuItem; + popSummMemoPreview: TMenuItem; + popSummMemoInsTemplate: TMenuItem; + popSummMemoEncounter: TMenuItem; + mnuViewInformation: TMenuItem; + mnuViewDemo: TMenuItem; + mnuViewVisits: TMenuItem; + mnuViewPrimaryCare: TMenuItem; + mnuViewMyHealtheVet: TMenuItem; + mnuInsurance: TMenuItem; + mnuViewFlags: TMenuItem; + mnuViewReminders: TMenuItem; + mnuViewRemoteData: TMenuItem; + mnuViewPostings: TMenuItem; + procedure mnuChartTabClick(Sender: TObject); + procedure lstSummsClick(Sender: TObject); + procedure pnlRightResize(Sender: TObject); + procedure cmdNewSummClick(Sender: TObject); + procedure memNewSummChange(Sender: TObject); + procedure mnuActNewClick(Sender: TObject); + procedure mnuActAddIDEntryClick(Sender: TObject); + procedure mnuActSaveClick(Sender: TObject); + procedure mnuViewClick(Sender: TObject); + procedure mnuActAddendClick(Sender: TObject); + procedure mnuActDetachFromIDParentClick(Sender: TObject); + procedure mnuActSignListClick(Sender: TObject); + procedure mnuActDeleteClick(Sender: TObject); + procedure mnuActEditClick(Sender: TObject); + procedure mnuActSignClick(Sender: TObject); + procedure cmdOrdersClick(Sender: TObject); + procedure cmdPCEClick(Sender: TObject); + procedure popSummMemoCutClick(Sender: TObject); + procedure popSummMemoCopyClick(Sender: TObject); + procedure popSummMemoPasteClick(Sender: TObject); + procedure popSummMemoPopup(Sender: TObject); + procedure pnlWriteResize(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure mnuViewDetailClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure mnuActIdentifyAddlSignersClick(Sender: TObject); + procedure popSummMemoAddlSignClick(Sender: TObject); + procedure popSummMemoSpellClick(Sender: TObject); + procedure popSummMemoGrammarClick(Sender: TObject); + procedure mnuViewSaveAsDefaultClick(Sender: TObject); + procedure mnuViewReturntoDefaultClick(Sender: TObject); + procedure popSummMemoTemplateClick(Sender: TObject); + procedure mnuNewTemplateClick(Sender: TObject); + procedure mnuEditTemplatesClick(Sender: TObject); + procedure mnuOptionsClick(Sender: TObject); + procedure mnuEditSharedTemplatesClick(Sender: TObject); + procedure mnuNewSharedTemplateClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure timAutoSaveTimer(Sender: TObject); + procedure cmdChangeClick(Sender: TObject); + procedure popSummMemoReformatClick(Sender: TObject); + procedure mnuActChangeClick(Sender: TObject); + procedure mnuActLoadBoilerClick(Sender: TObject); + procedure popSummMemoSaveContinueClick(Sender: TObject); + procedure mnuEditDialgFieldsClick(Sender: TObject); + procedure tvSummsChange(Sender: TObject; Node: TTreeNode); + procedure tvSummsClick(Sender: TObject); + procedure tvSummsCollapsed(Sender: TObject; Node: TTreeNode); + procedure tvSummsExpanded(Sender: TObject; Node: TTreeNode); + procedure tvSummsStartDrag(Sender: TObject; + var DragObject: TDragObject); + procedure tvSummsDragDrop(Sender, Source: TObject; X, Y: Integer); + procedure tvSummsDragOver(Sender, Source: TObject; X, Y: Integer; + State: TDragState; var Accept: Boolean); + procedure lvSummsColumnClick(Sender: TObject; Column: TListColumn); + procedure lvSummsCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); + procedure lvSummsSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); + procedure popSummListExpandAllClick(Sender: TObject); + procedure popSummListCollapseAllClick(Sender: TObject); + procedure popSummListExpandSelectedClick(Sender: TObject); + procedure popSummListCollapseSelectedClick(Sender: TObject); + procedure popSummListPopup(Sender: TObject); + procedure lvSummsResize(Sender: TObject); + procedure mnuIconLegendClick(Sender: TObject); + procedure popSummMemoFindClick(Sender: TObject); + procedure dlgFindTextFind(Sender: TObject); + procedure dlgReplaceTextReplace(Sender: TObject); + procedure dlgReplaceTextFind(Sender: TObject); + procedure popSummMemoReplaceClick(Sender: TObject); + procedure mnuActAttachtoIDParentClick(Sender: TObject); + procedure memNewSummKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + 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 + FEditingIndex: Integer; // index of Summary being currently edited + FChanged: Boolean; // true if any text has changed in the Summary + FEditCtrl: TCustomEdit; + FDischargeDate: TFMDateTime; + FSilent: Boolean; + FCurrentContext: TTIUContext; + FDefaultContext: TTIUContext; + FImageFlag: TBitmap; + FEditDCSumm: TEditDCSummRec; + FShowAdmissions: Boolean; + FVerifySummTitle: Integer; + FDocList: TStringList; + FConfirmed: boolean; + FDeleted: boolean; + FLastSummID: string; + function NoSummSelected : Boolean; + procedure ClearEditControls; + function StartNewEdit(NewNoteType: integer): Boolean; + procedure DoAutoSave(Suppress: integer = 1); + function LacksRequiredForCreate: Boolean; + function GetTitleText(AnIndex: Integer): string; + //function MakeTitleText(IsAddendum: Boolean = False): string; + procedure SetEditingIndex(const Value: Integer); + procedure DisplayPCE; + function LockSumm(AnIEN: Int64): Boolean; + procedure InsertAddendum; + procedure InsertNewSumm(IsIDChild: boolean; AnIDParent: integer); + procedure LoadForEdit(PreserveValues: Boolean); + procedure RemovePCEFromChanges(IEN: Int64; AVisitStr: string = ''); + procedure SaveEditedSumm(var Saved: Boolean); + procedure SaveCurrentSumm(var Saved: Boolean); + procedure ShowPCEControls(ShouldShow: Boolean); + function TitleText(AnIndex: Integer): string; + procedure ProcessNotifications; + procedure SetViewContext(AContext: TTIUContext); + function GetDrawers: TFrmDrawers; + property EditingIndex: Integer read FEditingIndex write SetEditingIndex; + function VerifySummTitle: Boolean; + // added for treeview - see also uDocTree.pas + procedure LoadSumms; + procedure UpdateTreeView(DocList: TStringList; Tree: TORTreeView); + procedure EnableDisableIDNotes; + procedure DoAttachIDChild(AChild, AParent: TORTreeNode); + function SetSummTreeLabel(AContext: TTIUContext): string; + public + function AllowContextChange(var WhyNot: string): Boolean; override; + procedure ClearPtData; override; + procedure DisplayPage; override; + procedure RequestPrint; override; + procedure RequestMultiplePrint(AForm: TfrmPrintList); + procedure SetFontSize(NewFontSize: Integer); override; + procedure SaveSignItem(const ItemID, ESCode: string); + procedure LstSummsToPrint; + published + property Drawers: TFrmDrawers read GetDrawers; // Keep Drawers published + end; + +var + frmDCSumm: TfrmDCSumm; + +implementation + +{$R *.DFM} + +uses fFrame, fVisit, fEncnt, rCore, uCore, fNoteBA, fNoteBD, fSignItem, fEncounterFrame, + rPCE, Clipbrd, fNotePrt, fAddlSigners, fNoteDR, uSpell, rVitals, fTIUView, + fTemplateEditor, rTIU, fDCSummProps, fNotesBP, fTemplateFieldEditor, uTemplates, + fReminderDialog, dShared, rTemplates, fIconLegend, fNoteIDParents, + uAccessibleTreeView, uAccessibleTreeNode, fTemplateDialog; + +const + NA_CREATE = 0; // New Summ action - create new Summ + NA_SHOW = 1; // New Summ action - show current + NA_SAVECREATE = 2; // New Summ action - save current then create + + TYP_DC_SUMM = 244; + DC_NEW_SUMM = -50; // Holder IEN for a new Summary + DC_ADDENDUM = -60; // Holder IEN for a new addendum + + DC_ACT_NEW_SUMM = 2; + DC_ACT_ADDENDUM = 3; + DC_ACT_EDIT_SUMM = 4; + DC_ACT_ID_ENTRY = 5; + + TX_NEED_VISIT = 'A visit is required before creating a new Discharge Summary.'; + TX_NO_VISIT = 'Insufficient Visit Information'; + TX_BOILERPLT = 'You have modified the text of this Discharge Summary. Changing the title will' + + ' discard the Discharge Summary text.' + CRLF + 'Do you wish to continue?'; + TX_NEWTITLE = 'Change Discharge Summary Title'; + TX_REQD_SUMM = 'The following information is required to save a Discharge Summary - ' + CRLF; + TX_REQD_ADDM = 'The following information is required to save an addendum - ' + CRLF; + TX_REQD_COSIG = CRLF + 'Attending Physician'; + TX_REQ2 = CRLF + CRLF + + 'It is recommended that these fields be entered before continuing' + CRLF + + 'to prevent losing the summary should the application time out.'; + TX_CREATE_ERR = 'Error Creating Summary'; + TX_UPDATE_ERR = 'Error Updating Summary'; + TX_NO_NOTE = 'No Discharge Summary is currently being edited'; + TX_SAVE_NOTE = 'Save Discharge Summary'; + TX_ADDEND_NO = 'Cannot make an addendum to a Summary that is being edited'; + TX_DEL_OK = CRLF + CRLF + 'Delete this Discharge Summary?'; + TX_DEL_ERR = 'Unable to Delete Summary'; + TX_SIGN = 'Sign Summary'; + TX_COSIGN = 'Cosign Summary'; + TX_SIGN_ERR = 'Unable to Sign Summary'; + + TX_NOSUMM = 'No Discharge Summary is currently selected.'; + TX_NOSUMM_CAP = 'No Summary Selected'; + TX_NOPRT_NEW = 'This Discharge Summary may not be printed until it is saved'; + TX_NOPRT_NEW_CAP = 'Save Discharge Summary'; + TX_NOT_INPATIENT = 'Discharge Summaries are only applicable to hospital admissions.'; + TX_NO_ADMISSION_CAP = 'No hospital admission was selected'; + TX_NO_ALERT = 'There is insufficient information to process this alert.' + CRLF + + 'Either the alert has already been deleted, or it contained invalid data.' + CRLF + CRLF + + 'Click the NEXT button if you wish to continue processing more alerts.'; + TX_CAP_NO_ALERT = 'Unable to Process Alert'; + TX_NO_FUTURE_DT = 'A Reference Date/Time in the future is not allowed.'; + TX_RELEASE = 'Do you want to release this summary from DRAFT mode to UNSIGNED' + CRLF + + 'status? This does not release the summary as the official,' + CRLF + + 'completed Discharge Summary until it is COSIGNED.'; + //'Do you want to release this discharge summary?'; + TC_RELEASE = 'Release Document'; + TX_NEW_SAVE1 = 'You are currently editing:' + CRLF + CRLF; + TX_NEW_SAVE2 = CRLF + CRLF + 'Do you wish to save this summary and begin a new one?'; + TX_NEW_SAVE3 = CRLF + CRLF + 'Do you wish to save this summary and begin a new addendum?'; + TX_NEW_SAVE4 = CRLF + CRLF + 'Do you wish to save this summary and edit the one selected?'; + TX_NEW_SAVE5 = CRLF + CRLF + 'Do you wish to save this summary and begin a new Interdisciplinary entry?'; + TC_NEW_SAVE2 = 'Create New Summary'; + TC_NEW_SAVE3 = 'Create New Addendum'; + TC_NEW_SAVE4 = 'Edit Different Summary'; + TC_NEW_SAVE5 = 'Create New Interdisciplinary Entry'; + TC_NO_LOCK = 'Unable to Lock Summary'; + TX_EMPTY_SUMM = CRLF + CRLF + 'This discharge summary contains no text and will not be saved.' + CRLF + + 'Do you wish to delete this discharge summary?'; + TC_EMPTY_SUMM = 'Empty Note'; + TX_EMPTY_SUMM1 = 'This document contains no text and can not be signed.'; + TX_ABSAVE = 'It appears the session terminated abnormally when this' + CRLF + + 'note was last edited. Some text may not have been saved.' + CRLF + CRLF + + 'Do you wish to continue and sign the note?'; + TC_ABSAVE = 'Possible Missing Text'; + TX_NO_BOIL = 'There is no boilerplate text associated with this title.'; + TC_NO_BOIL = 'Load Boilerplate Text'; + TX_BLR_CLEAR = 'Do you want to clear the previously loaded boilerplate text?'; + TC_BLR_CLEAR = 'Clear Previous Boilerplate Text'; + TX_MISSING_FIELDS = 'This document can not be saved. An ATTENDING must first be entered.'; + TC_MISSING_FIELDS = 'Unable to save'; + TX_DETACH_CNF = 'Confirm Detachment'; + TX_DETACH_FAILURE = 'Detach failed'; + TX_RETRACT_CAP = 'Retraction Notice'; + TX_RETRACT = 'This document will now be RETRACTED. As Such, it has been removed' +CRLF + + ' from public view, and from typical Releases of Information,' +CRLF + + ' but will remain indefinitely discoverable to HIMS.' +CRLF +CRLF; + TX_AUTH_SIGNED = 'Author has not signed, are you SURE you want to sign.' +CRLF; + +var + uPCEShow, uPCEEdit: TPCEData; + ViewContext: Integer; + frmDrawers: TfrmDrawers; + uDCSummContext: TTIUContext; + ColumnToSort: Integer; + ColumnSortForward: Boolean; + uChanging: Boolean; + uIDNotesActive: Boolean; + +{ TPage common methods --------------------------------------------------------------------- } + +function TfrmDCSumm.AllowContextChange(var WhyNot: string): Boolean; +begin + dlgFindText.CloseDialog; + Result := inherited AllowContextChange(WhyNot); // sets result = true + if Assigned(frmTemplateDialog) then + if Screen.ActiveForm = frmTemplateDialog then + //if (fsModal in frmTemplateDialog.FormState) then + case BOOLCHAR[frmFrame.CCOWContextChanging] of + '1': begin + WhyNot := 'A template in progress will be aborted. '; + Result := False; + end; + '0': begin + if WhyNot = 'COMMIT' then + begin + FSilent := True; + frmTemplateDialog.Silent := True; + frmTemplateDialog.ModalResult := mrCancel; + end; + end; + end; + if EditingIndex <> -1 then + case BOOLCHAR[frmFrame.CCOWContextChanging] of + '1': begin + if memNewSumm.GetTextLen > 0 then + WhyNot := WhyNot + 'A discharge summary in progress will be saved as unsigned. ' + else + WhyNot := WhyNot + 'An empty discharge summary in progress will be deleted. '; + Result := False; + end; + '0': begin + if WhyNot = 'COMMIT' then FSilent := True; + SaveCurrentSumm(Result); + end; + end; + if Assigned(frmEncounterFrame) then + if Screen.ActiveForm = frmEncounterFrame then + //if (fsModal in frmEncounterFrame.FormState) then + case BOOLCHAR[frmFrame.CCOWContextChanging] of + '1': begin + WhyNot := WhyNot + 'Encounter information being edited will not be saved'; + Result := False; + end; + '0': begin + if WhyNot = 'COMMIT' then + begin + FSilent := True; + frmEncounterFrame.Abort := False; + frmEncounterFrame.Cancel := True; + end; + end; + end; +end; + +procedure TfrmDCSumm.LstSummsToPrint; +var + AParentID: string; + SavedDocID: string; + Saved: boolean; +begin + inherited; + if lstSumms.ItemIEN = 0 then exit; + SavedDocID := lstSumms.ItemID; + if EditingIndex <> -1 then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + LoadSumms; + with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end; + if tvSumms.Selected = nil then exit; + AParentID := frmPrintList.SelectParentFromList(tvSumms,CT_DCSUMM); + if AParentID = '' then exit; + with tvSumms do Selected := FindPieceNode(AParentID, 1, U, Items.GetFirstNode); +end; + +procedure TfrmDCSumm.ClearPtData; +{ clear all controls that contain patient specific information } +begin + inherited ClearPtData; + ClearEditControls; + uChanging := True; + tvSumms.Items.BeginUpdate; + KillDocTreeObjects(tvSumms); + tvSumms.Items.Clear; + tvSumms.Items.EndUpdate; + uChanging := False; + lstSumms.Clear; + memSumm.Clear; + memPCEShow.Clear; + uPCEShow.Clear; + uPCEEdit.Clear; + frmDrawers.ResetTemplates; +end; + +procedure TfrmDCSumm.DisplayPage; +{ causes page to be visible and conditionally executes initialization code } +begin + inherited DisplayPage; + frmFrame.ShowHideChartTabMenus(mnuViewChart); + frmFrame.mnuFilePrint.Tag := CT_DCSUMM; + frmFrame.mnuFilePrint.Enabled := True; + frmFrame.mnuFilePrintSetup.Enabled := True; + frmFrame.mnuFilePrintSelectedItems.Enabled := True; + if InitPage then + begin + EnableDisableIDNotes; + FDefaultContext := GetCurrentDCSummContext; + FCurrentContext := FDefaultContext; + popSummMemoSpell.Visible := SpellCheckAvailable; + popSummMemoGrammar.Visible := popSummMemoSpell.Visible; + Z11.Visible := popSummMemoSpell.Visible; + timAutoSave.Interval := User.AutoSave * 1000; // convert seconds to milliseconds + SetEqualTabStops(memNewSumm); + end; + // to indent the right margin need to set Paragraph.RightIndent for each paragraph? + if InitPatient and not (CallingContext = CC_NOTIFICATION) then + begin + SetViewContext(FDefaultContext); + end; + case CallingContext of + CC_INIT_PATIENT: if not InitPatient then + begin + SetViewContext(FDefaultContext); + end; + CC_NOTIFICATION: ProcessNotifications; + end; +end; + +procedure TfrmDCSumm.RequestPrint; +var + Saved: Boolean; +begin + with lstSumms do + begin + if ItemIndex = EditingIndex then + //if ItemIEN < 0 then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + end; + if ItemIEN > 0 then PrintNote(ItemIEN, MakeDCSummDisplayText(Items[ItemIndex])) 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; +end; + +procedure TfrmDCSumm.RequestMultiplePrint(AForm: TfrmPrintList); +var + NoteIEN: int64; + i: integer; +begin + with AForm.lbIDParents do + 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} +end; + +procedure TfrmDCSumm.SetFontSize(NewFontSize: Integer); +{ adjusts the font size of any controls that don't have ParentFont = True } +begin + inherited SetFontSize(NewFontSize); + memSumm.Font.Size := NewFontSize; + memNewSumm.Font.Size := NewFontSize; + lblTitle.Font.Size := NewFontSize; + frmDrawers.Font.Size := NewFontSize; + SetEqualTabStops(memNewSumm); + // adjust heights of pnlAction, pnlFields, and lstEncntShow +end; + +procedure TfrmDCSumm.mnuChartTabClick(Sender: TObject); +{ reroute to Chart Tab menu of the parent form: frmFrame } +begin + inherited; + frmFrame.mnuChartTabClick(Sender); +end; + +{ General procedures ----------------------------------------------------------------------- } + +procedure TfrmDCSumm.ClearEditControls; +{ resets controls used for entering a new Discharge Summary } +begin + // clear FEditDCSumm (should FEditDCSumm be an object with a clear method?) + with FEditDCSumm do + begin + DocType := 0; + EditIEN := 0; + Title := 0; + TitleName := ''; + AdmitDateTime := 0; + DischargeDateTime := 0; + DictDateTime := 0; + Dictator := 0; + DictatorName := ''; + Cosigner := 0; + CosignerName := ''; + Transcriptionist := 0; + TranscriptionistName := ''; + Attending := 0; + AttendingName := ''; + Urgency := ''; + UrgencyName := ''; + Location := 0; + LocationName := ''; + Addend := 0; + VisitStr := ''; + {LastCosigner & LastCosignerName aren't cleared because they're used as default for next note.} + Lines := nil; + end; + // clear the editing controls (also clear the new labels?) + memNewSumm.Clear; + timAutoSave.Enabled := False; + // clear the PCE object for editing + uPCEEdit.Clear; + // set the tracking variables to initial state + EditingIndex := -1; + FChanged := False; +end; + +procedure TfrmDCSumm.ShowPCEControls(ShouldShow: Boolean); +begin + sptVert.Visible := ShouldShow; + memPCEShow.Visible := ShouldShow; + if(ShouldShow) then + sptVert.Top := memPCEShow.Top - sptVert.Height; + memSumm.Invalidate; +end; + +procedure TfrmDCSumm.DisplayPCE; +{ displays PCE information if appropriate & enables/disabled editing of PCE data } +var + VitalStr: TStringlist; + NoPCE: boolean; + ActionSts: TActionRec; + +begin + memPCEShow.Clear; + with lstSumms do if ItemIndex = EditingIndex then + begin + with uPCEEdit do + begin + AddStrData(memPCEShow.Lines); + NoPCE := (memPCEShow.Lines.Count = 0); + VitalStr := TStringList.create; + try + GetVitalsFromDate(VitalStr, uPCEEdit); + AddVitalData(VitalStr, memPCEShow.Lines); + finally + VitalStr.free; + end; + cmdPCE.Enabled := CanEditPCE(uPCEEdit); + ShowPCEControls(cmdPCE.Enabled or (memPCEShow.Lines.Count > 0)); + if(NoPCE and memPCEShow.Visible) then + memPCEShow.Lines.Insert(0, TX_NOPCE); + + frmDrawers.DisplayDrawers(TRUE, [odTemplates],[odTemplates]); + cmdNewSumm.Visible := FALSE; + lblSpace1.Top := cmdPCE.Top - lblSpace1.Height; + end; + end else + begin + cmdPCE.Enabled := False; + + frmDrawers.DisplayDrawers(FALSE); + cmdNewSumm.Visible := TRUE; + lblSpace1.Top := cmdNewSumm.Top - lblSpace1.Height; + + ActOnDocument(ActionSts, lstSumms.ItemIEN, 'VIEW'); + if ActionSts.Success then + begin + StatusText('Retrieving encounter information...'); + with uPCEShow do + begin + NoteDateTime := MakeFMDateTime(Piece(lstSumms.Items[lstSumms.ItemIndex], U, 3)); + PCEForNote(lstSumms.ItemIEN, uPCEEdit); + AddStrData(memPCEShow.Lines); + NoPCE := (memPCEShow.Lines.Count = 0); + VitalStr := TStringList.create; + try + GetVitalsFromNote(VitalStr, uPCEShow, lstSumms.ItemIEN); + AddVitalData(VitalStr, memPCEShow.Lines); + finally + VitalStr.free; + end; + ShowPCEControls(memPCEShow.Lines.Count > 0); + if(NoPCE and memPCEShow.Visible) then + memPCEShow.Lines.Insert(0, TX_NOPCE); + end; + StatusText(''); + end + else + ShowPCEControls(FALSE); + end; {if ItemIndex} + memPCEShow.SelStart := 0; + popSummMemoEncounter.Enabled := cmdPCE.Enabled; +end; + +procedure TfrmDCSumm.InsertNewSumm(IsIDChild: boolean; AnIDParent: integer); +{ creates the editing context for a new Discharge Summary & inserts stub into top of view list} +const + USE_CURRENT_VISITSTR = -2; +var + EnableAutosave, HaveRequired, Saved: Boolean; + CreatedSumm: TCreatedDoc; + ListItemForEdit: string; + TmpBoilerPlate: TStringList; + tmpNode: TTreeNode; + x, WhyNot: string; + DocInfo: string; +begin + EnableAutosave := FALSE; + TmpBoilerPlate := nil; + try + ClearEditControls; + FShowAdmissions := True; + FillChar(FEditDCSumm, SizeOf(FEditDCSumm), 0); //v15.7 + with FEditDCSumm do + begin + EditIEN := 0; + DocType := TYP_DC_SUMM; + Title := DfltDCSummTitle; + TitleName := DfltDCSummTitleName; + if IsIDChild and (not CanTitleBeIDChild(Title, WhyNot)) then + begin + Title := 0; + TitleName := ''; + end; + DictDateTime := FMNow; + Dictator := User.DUZ; + DictatorName := User.Name; + if IsIDChild then + IDParent := AnIDParent + else + IDParent := 0; + end; + // check to see if interaction necessary to get required fields + if LacksRequiredForCreate or VerifySummTitle + then HaveRequired := ExecuteDCSummProperties(FEditDCSumm, ListItemForEdit, FShowAdmissions, IsIDChild) + else HaveRequired := True; + if HaveRequired then + begin + if ListItemForEdit <> '' then + begin + lstSumms.ItemIndex := -1; + lstSumms.SelectByID(Piece(ListItemForEdit, U, 1)); + if lstSumms.ItemIndex < 0 then + begin + lstSumms.Items.Insert(0, ListItemForEdit); + lstSumms.ItemIndex := 0; + end; + if lstSumms.ItemIndex = EditingIndex then Exit; + if EditingIndex > -1 then + begin + if InfoBox(TX_NEW_SAVE1 + MakeDCSummDisplayText(lstSumms.Items[EditingIndex]) + TX_NEW_SAVE2, + TC_NEW_SAVE2, MB_YESNO) = IDNO then exit + else + begin + SaveCurrentSumm(Saved); + if not Saved then exit; + end; + end; + //if not StartNewEdit then Exit; + lstSummsClick(Self); + LoadForEdit(True); + Exit; + end + else + begin + // set up uPCEEdit for entry of new note + uPCEEdit.UseEncounter := True; + uPCEEdit.NoteDateTime := FEditDCSumm.DischargeDateTime; + uPCEEdit.PCEForNote(USE_CURRENT_VISITSTR, uPCEShow); + FEditDCSumm.NeedCPT := uPCEEdit.CPTRequired; + // create the note + PutNewDCSumm(CreatedSumm, FEditDCSumm); + uPCEEdit.NoteIEN := CreatedSumm.IEN; + if CreatedSumm.IEN > 0 then LockDocument(CreatedSumm.IEN, CreatedSumm.ErrorText); + if CreatedSumm.ErrorText = '' then + begin + //x := $$RESOLVE^TIUSRVLO formatted string + //7348^Discharge Summary^3000913^NERD, YOURA (N0165)^1329;Rich Vertigan;VERTIGAN,RICH^8E REHAB MED^unverified^Adm: 11/05/98;2981105.095547^ ;^^0^^^2 + with FEditDCSumm do + begin + x := IntToStr(CreatedSumm.IEN) + U + TitleName + U + FloatToStr(DischargeDateTime) + U + + Patient.Name + U + IntToStr(Dictator) + ';' + DictatorName + U + LocationName + U + 'new' + U + + 'Adm: ' + FormatFMDateTime('mmm dd,yyyy', AdmitDateTime) + ';' + FloatToStr(AdmitDateTime) + U + + 'Dis: ' + FormatFMDateTime('mmm dd,yyyy', DischargeDateTime) + ';' + FloatToStr(DischargeDateTime) + + U + U + U + U + U + U; + end; + lstSumms.Items.Insert(0, x); + uChanging := True; + tvSumms.Items.BeginUpdate; + if IsIDChild then + begin + tmpNode := tvSumms.FindPieceNode(IntToStr(AnIDParent), 1, U, tvSumms.Items.GetFirstNode); + tmpNode.ImageIndex := IMG_IDNOTE_OPEN; + tmpNode.SelectedIndex := IMG_IDNOTE_OPEN; + tmpNode := tvSumms.Items.AddChildObjectFirst(tmpNode, MakeDCSummDisplayText(x), MakeDCSummTreeObject(x)); + tmpNode.ImageIndex := IMG_ID_CHILD; + tmpNode.SelectedIndex := IMG_ID_CHILD; + end + else + begin + tmpNode := tvSumms.Items.AddObjectFirst(tvSumms.Items.GetFirstNode, 'New Summary in Progress', + MakeDCSummTreeObject('NEW^New Summary in Progress^^^^^^^^^^^%^0')); + TORTreeNode(tmpNode).StringData := 'NEW^New Summary in Progress^^^^^^^^^^^%^0'; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + tmpNode := tvSumms.Items.AddChildObjectFirst(tmpNode, MakeDCSummDisplayText(x), MakeDCSummTreeObject(x)); + tmpNode.ImageIndex := IMG_SINGLE; + tmpNode.SelectedIndex := IMG_SINGLE; + end; + TORTreeNode(tmpNode).StringData := x; + tvSumms.Selected := tmpNode; + tvSumms.Items.EndUpdate; + uChanging := False; + Changes.Add(CH_SUM, IntToStr(CreatedSumm.IEN), GetTitleText(0), '', CH_SIGN_YES); + lstSumms.ItemIndex := 0; + EditingIndex := 0; + if not assigned(TmpBoilerPlate) then + TmpBoilerPlate := TStringList.Create; + LoadBoilerPlate(TmpBoilerPlate, FEditDCSumm.Title); + FChanged := False; + cmdChangeClick(Self); // will set captions, sign state for Changes + lstSummsClick(Self); // will make pnlWrite visible + if timAutoSave.Interval <> 0 then EnableAutosave := TRUE; + memNewSumm.SetFocus; + end else + begin + InfoBox(CreatedSumm.ErrorText, TX_CREATE_ERR, MB_OK); + HaveRequired := False; + end; {if CreatedSumm.IEN} + end; {loaded for edit} + end; {if HaveRequired} + if not HaveRequired then ClearEditControls; + finally + if assigned(TmpBoilerPlate) then + begin + DocInfo := MakeXMLParamTIU(IntToStr(CreatedSumm.IEN), FEditDCSumm); + ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo); + memNewSumm.Lines.Assign(TmpBoilerPlate); + TmpBoilerPlate.Free; + end; + if EnableAutosave then // Don't enable autosave until after dialog fields have been resolved + timAutoSave.Enabled := True; + end; +end; + +procedure TfrmDCSumm.InsertAddendum; +{ sets up fields of pnlWrite to write an addendum for the selected Summary} +const + AS_ADDENDUM = True; + IS_ID_CHILD = False; +var + HaveRequired: Boolean; + CreatedSumm: TCreatedDoc; + ListItemForEdit: string; + tmpNode: TTreeNode; + x: string; +begin + ClearEditControls; + FShowAdmissions := False; + with FEditDCSumm do + begin + DocType := TYP_ADDENDUM; + Title := TitleForNote(lstSumms.ItemIEN); + TitleName := Piece(lstSumms.Items[lstSumms.ItemIndex], U, 2); + if Copy(TitleName,1,1) = '+' then TitleName := Copy(TitleName, 3, 199); + DictDateTime := FMNow; + Dictator := User.DUZ; + DictatorName := User.Name; + Addend := lstSumms.ItemIEN; + end; + // check to see if interaction necessary to get required fields + if LacksRequiredForCreate + then HaveRequired := ExecuteDCSummProperties(FEditDCSumm, ListItemForEdit, FShowAdmissions, IS_ID_CHILD) + else HaveRequired := True; + if HaveRequired then + begin + with FEditDCSumm do + begin + uPCEEdit.NoteDateTime := DischargeDateTime; + uPCEEdit.PCEForNote(Addend, uPCEShow); + Location := uPCEEdit.Location; + LocationName := ExternalName(uPCEEdit.Location, 44); + AdmitDateTime := uPCEEdit.DateTime; + DischargeDateTime := StrToFMDateTime(GetDischargeDate(Patient.DFN, FloatToStr(AdmitDateTime))); + if DischargeDateTime <= 0 then DischargeDateTime := FMNow; + end; + PutDCAddendum(CreatedSumm, FEditDCSumm, FEditDCSumm.Addend); + uPCEEdit.NoteIEN := CreatedSumm.IEN; + if CreatedSumm.IEN > 0 then LockDocument(CreatedSumm.IEN, CreatedSumm.ErrorText); + if CreatedSumm.ErrorText = '' then + begin + with FEditDCSumm do + begin + x := IntToStr(CreatedSumm.IEN) + U + 'Addendum to ' + TitleName + U + FloatToStr(DischargeDateTime) + U + + Patient.Name + U + IntToStr(Dictator) + ';' + DictatorName + U + LocationName + U + 'new' + U + + 'Adm: ' + FormatFMDateTime('mmm dd,yyyy', AdmitDateTime) + ';' + FloatToStr(AdmitDateTime) + U + + 'Dis: ' + FormatFMDateTime('mmm dd,yyyy', DischargeDateTime) + ';' + FloatToStr(DischargeDateTime) + + U + U + U + U + U + U; + end; + lstSumms.Items.Insert(0, x); + uChanging := True; + tvSumms.Items.BeginUpdate; + tmpNode := tvSumms.Items.AddObjectFirst(tvSumms.Items.GetFirstNode, 'New Addendum in Progress', + MakeDCSummTreeObject('ADDENDUM^New Addendum in Progress^^^^^^^^^^^%^0')); + TORTreeNode(tmpNode).StringData := 'ADDENDUM^New Addendum in Progress^^^^^^^^^^^%^0'; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + tmpNode := tvSumms.Items.AddChildObjectFirst(tmpNode, MakeDCSummDisplayText(x), MakeDCSummTreeObject(x)); + TORTreeNode(tmpNode).StringData := x; + tmpNode.ImageIndex := IMG_ADDENDUM; + tmpNode.SelectedIndex := IMG_ADDENDUM; + tvSumms.Selected := tmpNode; + tvSumms.Items.EndUpdate; + uChanging := False; + Changes.Add(CH_SUM, IntToStr(CreatedSumm.IEN), GetTitleText(0), '', CH_SIGN_YES); + lstSumms.ItemIndex := 0; + EditingIndex := 0; + cmdChangeClick(Self); // will set captions, sign state for Changes + lstSummsClick(Self); // will make pnlWrite visible + if timAutoSave.Interval <> 0 then timAutoSave.Enabled := True; + memNewSumm.SetFocus; + end else + begin + InfoBox(CreatedSumm.ErrorText, TX_CREATE_ERR, MB_OK); + HaveRequired := False; + end; {if CreatedNote.IEN} + end; {if HaveRequired} + if not HaveRequired then ClearEditControls; +end; + +procedure TfrmDCSumm.LoadForEdit(PreserveValues: Boolean); +{ retrieves an existing Summ and places the data in the fields of pnlWrite } +var + tmpNode: TTreeNode; + x: string; +begin + if not PreserveValues then ClearEditControls; + if not LockSumm(lstSumms.ItemIEN) then Exit; + EditingIndex := lstSumms.ItemIndex; + Changes.Add(CH_SUM, lstSumms.ItemID, GetTitleText(EditingIndex), '', CH_SIGN_YES); + if not PreserveValues then GetDCSummForEdit(FEditDCSumm, lstSumms.ItemIEN); + if FEditDCSumm.Lines <> nil then memNewSumm.Lines.Assign(FEditDCSumm.Lines); + FChanged := False; + if FEditDCSumm.Title = TYP_ADDENDUM then + begin + FEditDCSumm.DocType := TYP_ADDENDUM; + FEditDCSumm.TitleName := Piece(lstSumms.Items[lstSumms.ItemIndex], U, 2); + if Copy(FEditDCSumm.TitleName,1,1) = '+' then FEditDCSumm.TitleName := Copy(FEditDCSumm.TitleName, 3, 199); + if CompareText(Copy(FEditDCSumm.TitleName, 1, 8), 'Addendum') <> 0 + then FEditDCSumm.TitleName := FEditDCSumm.TitleName + 'Addendum to '; + end; + + uChanging := True; + tvSumms.Items.BeginUpdate; + tmpNode := tvSumms.FindPieceNode('EDIT', 1, U, nil); + if tmpNode = nil then + begin + tmpNode := tvSumms.Items.AddObjectFirst(tvSumms.Items.GetFirstNode, 'Summary being edited', + MakeDCSummTreeObject('EDIT^Summary being edited^^^^^^^^^^^%^0')); + TORTreeNode(tmpNode).StringData := 'EDIT^Summary being edited^^^^^^^^^^^%^0'; + end + else + tmpNode.DeleteChildren; + x := lstSumms.Items[lstSumms.ItemIndex]; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + tmpNode := tvSumms.Items.AddChildObjectFirst(tmpNode, MakeDCSummDisplayText(x), MakeDCSummTreeObject(x)); + TORTreeNode(tmpNode).StringData := x; + if CompareText(Copy(FEditDCSumm.TitleName, 1, 8), 'Addendum') <> 0 then + tmpNode.ImageIndex := IMG_SINGLE + else + tmpNode.ImageIndex := IMG_ADDENDUM; + tmpNode.SelectedIndex := tmpNode.ImageIndex; + tvSumms.Selected := tmpNode; + tvSumms.Items.EndUpdate; + uChanging := False; + + uPCEEdit.NoteDateTime := MakeFMDateTime(Piece(lstSumms.Items[lstSumms.ItemIndex], U, 3)); + uPCEEdit.PCEForNote(lstSumms.ItemIEN, uPCEShow); + FEditDCSumm.NeedCPT := uPCEEdit.CPTRequired; + cmdChangeClick(Self); // will set captions, sign state for Changes + lstSummsClick(Self); // will make pnlWrite visible + if timAutoSave.Interval <> 0 then timAutoSave.Enabled := True; + memNewSumm.SetFocus; +end; + +function TfrmDCSumm.TitleText(AnIndex: Integer): string; +{ returns non-tabbed text for the title of a Summ given the ItemIndex in lstSumms } +begin + with lstSumms do + Result := FormatFMDateTime('mmm dd,yy', MakeFMDateTime(Piece(Items[AnIndex], U, 3))) + + ' ' + Piece(Items[AnIndex], U, 2); +end; + +procedure TfrmDCSumm.SaveEditedSumm(var Saved: Boolean); +{ validates fields and sends the updated Summ to the server } +var + UpdatedSumm: TCreatedDoc; + x: string; +begin + Saved := False; + if (memNewSumm.GetTextLen = 0) or (not ContainsVisibleChar(memNewSumm.Text)) then + begin + lstSumms.ItemIndex := EditingIndex; + x := lstSumms.ItemID; + uChanging := True; + tvSumms.Selected := tvSumms.FindPieceNode(x, 1, U, tvSumms.Items.GetFirstNode); + uChanging := False; + tvSummsChange(Self, tvSumms.Selected); + if FSilent or + ((not FSilent) and + (InfoBox(GetTitleText(EditingIndex) + TX_EMPTY_SUMM, TC_EMPTY_SUMM, MB_YESNO) = IDYES)) + then + begin + FConfirmed := True; + mnuActDeleteClick(Self); + Saved := True; + FDeleted := True; + end + else + FConfirmed := False; + Exit; + end; + //ExpandTabsFilter(memNewSumm.Lines, TAB_STOP_CHARS); + with FEditDCSumm do + begin + if (Attending = 0) and (not FSilent) then + begin + InfoBox(TX_MISSING_FIELDS, TC_MISSING_FIELDS,MB_OK); + cmdChangeClick(mnuActSave); + Exit; + end; + NeedCPT := uPCEEdit.CPTRequired; {*RAB*} + Lines := memNewSumm.Lines; + if RequireMASVerification(lstSumms.GetIEN(EditingIndex), TYP_DC_SUMM) then + Status := TIU_ST_UNVER; + (*if (User.DUZ <> Dictator) and (User.DUZ <> Attending) and*) //ALL USERS?? + if RequireRelease(lstSumms.GetIEN(EditingIndex), TYP_DC_SUMM) then + begin + if not FSilent then + begin + if InfoBox(TX_RELEASE, TC_RELEASE, MB_YESNO) = IDNO then + Status := TIU_ST_UNREL; + end + else // always save as unreleased on timeout + Status := TIU_ST_UNREL; + end; + end; + timAutoSave.Enabled := False; + try + PutEditedDCSumm(UpdatedSumm, FEditDCSumm, lstSumms.GetIEN(EditingIndex)); + finally + timAutoSave.Enabled := True; + end; + if UpdatedSumm.IEN > 0 then + begin + if (FEditDCSumm.Status in [TIU_ST_UNREL, TIU_ST_UNVER]) then + begin + Changes.Remove(CH_SUM, IntToStr(UpdatedSumm.IEN)); // DON'T REPROMPT ON PATIENT CHANGE + UnlockDocument(UpdatedSumm.IEN); // Unlock only if UNRELEASED or UNVERIFIED + end; + // otherwise, there's no unlocking here since the note is still in Changes after a save + if lstSumms.ItemIndex = EditingIndex then + begin + EditingIndex := -1; + lstSummsClick(Self); + end; + EditingIndex := -1; // make sure EditingIndex reset even if not viewing edited note + Saved := True; + FChanged := False; + end else + begin + if not FSilent then + InfoBox(TX_SAVE_ERROR1 + UpdatedSumm.ErrorText + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING); + end; +end; + +procedure TfrmDCSumm.SaveCurrentSumm(var Saved: Boolean); +{ called whenever a Summ should be saved - uses IEN to call appropriate save logic } +begin + if EditingIndex < 0 then Exit; + SaveEditedSumm(Saved); +end; + +{ Form events ------------------------------------------------------------------------------ } + +procedure TfrmDCSumm.pnlRightResize(Sender: TObject); +{ memSumm (TRichEdit) doesn't repaint appropriately unless its parent panel is refreshed } +begin + inherited; + pnlRight.Refresh; + memSumm.Repaint; +end; + +procedure TfrmDCSumm.pnlWriteResize(Sender: TObject); +const + LEFT_MARGIN = 4; +begin + inherited; + LimitEditWidth(memNewSumm, MAX_ENTRY_WIDTH - 1); + memNewSumm.Constraints.MinWidth := TextWidthByFont(memNewSumm.Font.Handle, StringOfChar('X', MAX_ENTRY_WIDTH)) + (LEFT_MARGIN * 2) + ScrollBarWidth; + pnlLeft.Width := self.ClientWidth - pnlWrite.Width - sptHorz.Width; +end; + +{ Left panel (selector) events ------------------------------------------------------------- } + +procedure TfrmDCSumm.lstSummsClick(Sender: TObject); +{ loads the text for the selected Summ or displays the editing panel for the selected Summ } +begin + inherited; + with lstSumms do if ItemIndex = -1 then Exit + else if ItemIndex = EditingIndex then + begin + pnlWrite.Visible := True; + pnlRead.Visible := False; + mnuViewDetail.Enabled := False; + mnuActChange.Enabled := True; + mnuActLoadBoiler.Enabled := True; + end else + begin + StatusText('Retrieving selected Discharge Summary...'); + Screen.Cursor := crHourGlass; + pnlRead.Visible := True; + pnlWrite.Visible := False; + lblTitle.Caption := MakeDCSummDisplayText(Items[ItemIndex]); + lvSumms.Caption := lblTitle.Caption; + lblTitle.Hint := lblTitle.Caption; + //lblTitle.Caption := Piece(DisplayText[ItemIndex], #9, 1) + ' ' + Piece(DisplayText[ItemIndex], #9, 2); + LoadDocumentText(memSumm.Lines, ItemIEN); + memSumm.SelStart := 0; + mnuViewDetail.Enabled := True; + mnuViewDetail.Checked := False; + mnuActChange.Enabled := False; + mnuActLoadBoiler.Enabled := False; + Screen.Cursor := crDefault; + StatusText(''); + end; + DisplayPCE; + pnlRight.Refresh; + memNewSumm.Repaint; + memSumm.Repaint; + NotifyOtherApps(NAE_REPORT, 'TIU^' + lstSumms.ItemID); +end; + +procedure TfrmDCSumm.cmdNewSummClick(Sender: TObject); +{ maps 'New Summ' button to the New Discharge Summary menu item } +begin + inherited; + mnuActNewClick(Self); +end; + +procedure TfrmDCSumm.cmdPCEClick(Sender: TObject); +begin + inherited; + cmdPCE.Enabled := False; + UpdatePCE(uPCEEdit); + cmdPCE.Enabled := True; + if frmFrame.Closing then exit; + DisplayPCE; +end; + +procedure TfrmDCSumm.cmdOrdersClick(Sender: TObject); +begin + inherited; + { call add orders here } +end; + +{ Right panel (editor) events -------------------------------------------------------------- } + +procedure TfrmDCSumm.memNewSummChange(Sender: TObject); +{ sets FChanged to record that the Summ has really been edited } +begin + inherited; + FChanged := True; +end; + +{ View menu events ------------------------------------------------------------------------- } + +procedure TfrmDCSumm.mnuViewClick(Sender: TObject); +{ changes the list of Summs available for viewing } +var + AuthCtxt: TAuthorContext; + DateRange: TNoteDateRange; + Saved: Boolean; +begin + inherited; + if EditingIndex <> -1 then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + end; + FLastSummID := lstSumms.ItemID; + StatusText('Retrieving Discharge Summary list...'); + mnuViewDetail.Checked := False; + if Sender is TMenuItem then ViewContext := TMenuItem(Sender).Tag + else if FCurrentContext.Status <> '' then ViewContext := NC_CUSTOM + else ViewContext := NC_RECENT; + case ViewContext of + NC_RECENT: begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblSumms.Caption := 'Last ' + IntToStr(ReturnMaxDCSumms) + ' Summaries'; + FCurrentContext.Status := IntToStr(ViewContext); + FCurrentContext.MaxDocs := ReturnMaxDCSumms; + LoadSumms; + end; + NC_ALL: begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblSumms.Caption := 'All Signed Summaries'; + FCurrentContext.Status := IntToStr(ViewContext); + LoadSumms; + end; + NC_UNSIGNED: begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblSumms.Caption := 'Unsigned Summaries'; + FCurrentContext.Status := IntToStr(ViewContext); + LoadSumms; + end; + NC_UNCOSIGNED: begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblSumms.Caption := 'Uncosigned Summaries'; + FCurrentContext.Status := IntToStr(ViewContext); + LoadSumms; + end; + NC_BY_AUTHOR: begin + SelectAuthor(Font.Size, FCurrentContext, AuthCtxt); + with AuthCtxt do if Changed then + begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblSumms.Caption := AuthorName + ': Signed Summaries'; + FCurrentContext.Status := IntToStr(NC_BY_AUTHOR); + FCurrentContext.Author := Author; + FCurrentContext.TreeAscending := Ascending; + LoadSumms; + end; + end; + NC_BY_DATE: begin + SelectNoteDateRange(Font.Size, FCurrentContext, DateRange); + with DateRange do if Changed then + begin + FillChar(FCurrentContext, SizeOf(FCurrentContext), 0); + lblSumms.Caption := FormatFMDateTime('mmm dd,yy', FMBeginDate) + ' to ' + + FormatFMDateTime('mmm dd,yy', FMEndDate) + ': Signed Summaries'; + FCurrentContext.BeginDate := BeginDate; + FCurrentContext.EndDate := EndDate; + FCurrentContext.FMBeginDate := FMBeginDate; + FCurrentContext.FMEndDate := FMEndDate; + FCurrentContext.TreeAscending := Ascending; + FCurrentContext.Status := IntToStr(NC_BY_DATE); + LoadSumms; + end; + end; + NC_CUSTOM: begin + if Sender is TMenuItem then + begin + SelectTIUView(Font.Size, True, FCurrentContext, uDCSummContext); + //lblSumms.Caption := 'Custom List'; + end; + with uDCSummContext do if Changed then + begin + //if not (Sender is TMenuItem) then lblSumms.Caption := 'Default List'; + //if MaxDocs = 0 then MaxDocs := ReturnMaxNotes; + FCurrentContext.BeginDate := BeginDate; + FCurrentContext.EndDate := EndDate; + FCurrentContext.FMBeginDate := FMBeginDate; + FCurrentContext.FMEndDate := FMEndDate; + FCurrentContext.Status := Status; + FCurrentContext.Author := Author; + FCurrentContext.MaxDocs := MaxDocs; + FCurrentContext.ShowSubject := ShowSubject; + // NEW PREFERENCES: + FCurrentContext.SortBy := SortBy; + FCurrentContext.ListAscending := ListAscending; + FCurrentContext.GroupBy := GroupBy; + FCurrentContext.TreeAscending := TreeAscending; + FCurrentContext.SearchField := SearchField; + FCurrentContext.Keyword := Keyword; + FCurrentContext.Filtered := Filtered; + LoadSumms; + end; + end; + end; {case} + lblSumms.Caption := SetSummTreeLabel(FCurrentContext); + lblSumms.hint := lblSumms.Caption; + tvSumms.Caption := lblSumms.Caption; + StatusText(''); +end; + +{ Action menu events ----------------------------------------------------------------------- } + +function TfrmDCSumm.StartNewEdit(NewNoteType: integer): Boolean; +{ if currently editing a note, returns TRUE if the user wants to start a new one } +var + Saved: Boolean; + Msg, CapMsg: string; +begin + Result := True; + if EditingIndex > -1 then + begin + case NewNoteType of + DC_ACT_ADDENDUM: begin + Msg := TX_NEW_SAVE1 + MakeDCSummDisplayText(lstSumms.Items[EditingIndex]) + TX_NEW_SAVE3; + CapMsg := TC_NEW_SAVE3; + end; + DC_ACT_EDIT_SUMM: begin + Msg := TX_NEW_SAVE1 + MakeDCSummDisplayText(lstSumms.Items[EditingIndex]) + TX_NEW_SAVE4; + CapMsg := TC_NEW_SAVE4; + end; + DC_ACT_ID_ENTRY: begin + Msg := TX_NEW_SAVE1 + MakeDCSummDisplayText(lstSumms.Items[EditingIndex]) + TX_NEW_SAVE5; + CapMsg := TC_NEW_SAVE5; + end; + else + begin + Msg := TX_NEW_SAVE1 + MakeDCSummDisplayText(lstSumms.Items[EditingIndex]) + TX_NEW_SAVE2; + CapMsg := TC_NEW_SAVE2; + end; + end; + + if InfoBox(Msg, CapMsg, MB_YESNO) = IDNO then Result := False + else + begin + SaveCurrentSumm(Saved); + if not Saved then Result := False else LoadSumms; + end; + end; +end; + +procedure TfrmDCSumm.mnuActNewClick(Sender: TObject); +const + IS_ID_CHILD = False; +{ switches to current new Summ or creates a new Summ if none is being edited already } +begin + inherited; + if not StartNewEdit(DC_ACT_NEW_SUMM) then Exit; + //LoadSumms; + // a visit (time & location) need not be available before creating the summary, + // since an admission will be prompted for to link the summary to. (REV - v14d) +(* if Encounter.NeedVisit then + begin + UpdateVisit(Font.Size); + frmFrame.DisplayEncounterText; + end; + if Encounter.NeedVisit then + begin + InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING); + Exit; + end;*) + + InsertNewSumm(IS_ID_CHILD, 0); +end; + +procedure TfrmDCSumm.mnuActAddIDEntryClick(Sender: TObject); +const + IS_ID_CHILD = True; +var + AnIDParent: integer; +{ switches to current new note or creates a new note if none is being edited already } +begin + inherited; + AnIDParent := lstSumms.ItemIEN; + if not StartNewEdit(DC_ACT_ID_ENTRY) then Exit; + //LoadSumms; + with tvSumms do Selected := FindPieceNode(IntToStr(AnIDParent), U, Items.GetFirstNode); + // make sure a visit (time & location) is available before creating the note + if Encounter.NeedVisit then + begin + UpdateVisit(Font.Size, DfltTIULocation); + frmFrame.DisplayEncounterText; + end; + if Encounter.NeedVisit then + begin + InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING); + Exit; + end; + InsertNewSumm(IS_ID_CHILD, AnIDParent); +end; + +procedure TfrmDCSumm.mnuActAddendClick(Sender: TObject); +{ make an addendum to an existing Summ } +var + ActionSts: TActionRec; + ASummID: string; +begin + inherited; + if NoSummSelected() then Exit; + ASummID := lstSumms.ItemID; + if not StartNewEdit(DC_ACT_ADDENDUM) then Exit; + //LoadSumms; + with tvSumms do Selected := FindPieceNode(ASummID, 1, U, Items.GetFirstNode); + if lstSumms.ItemIndex = EditingIndex then + begin + InfoBox(TX_ADDEND_NO, TX_ADDEND_MK, MB_OK); + Exit; + end; + ActOnDCDocument(ActionSts, lstSumms.ItemIEN, 'MAKE ADDENDUM'); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end; + with lstSumms do if TitleForNote(ItemIEN) = TYP_ADDENDUM then //v17.5 RV + //with lstSumms do if Copy(Piece(Items[ItemIndex], U, 2), 1, 8) = 'Addendum' then + begin + InfoBox(TX_ADDEND_AD, TX_ADDEND_MK, MB_OK); + Exit; + end; + FEditDCSumm.DischargeDateTime := FMNow; + InsertAddendum; +end; + +procedure TfrmDCSumm.mnuActDetachFromIDParentClick(Sender: TObject); +var + DocID, WhyNot: string; + Saved: boolean; + SavedDocID: string; +begin + if lstSumms.ItemIEN = 0 then exit; + SavedDocID := lstSumms.ItemID; + if EditingIndex <> -1 then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + LoadSumms; + with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end; + if not CanBeAttached(PDocTreeObject(tvSumms.Selected.Data)^.DocID, WhyNot) then + begin + WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]); + WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]); + InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK); + Exit; + end; + if (InfoBox('DETACH: ' + tvSumms.Selected.Text + CRLF + CRLF + + ' FROM: ' + tvSumms.Selected.Parent.Text + CRLF + CRLF + + 'Are you sure?', TX_DETACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) + then Exit; + DocID := PDocTreeObject(tvSumms.Selected.Data)^.DocID; + SavedDocID := PDocTreeObject(tvSumms.Selected.Parent.Data)^.DocID; + if DetachEntryFromParent(DocID, WhyNot) then + begin + LoadSumms; + with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + if tvSumms.Selected <> nil then tvSumms.Selected.Expand(False); + end + else + begin + WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]); + WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]); + InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK); + end; +end; + + +procedure TfrmDCSumm.mnuActSignListClick(Sender: TObject); +{ add the Summ to the Encounter object, see mnuActSignClick - copied} +const + SIG_COSIGN = 'COSIGNATURE'; + SIG_SIGN = 'SIGNATURE'; +var + ActionType, SignTitle: string; + ActionSts: TActionRec; +begin + inherited; + if NoSummSelected() then Exit; + if lstSumms.ItemIndex = EditingIndex then Exit; // already in signature list + if not NoteHasText(lstSumms.ItemIEN) then + begin + InfoBox(TX_EMPTY_SUMM1, TC_EMPTY_SUMM, MB_OK or MB_ICONERROR); + Exit; + end; + if not LastSaveClean(lstSumms.ItemIEN) and + (InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) then Exit; + if CosignDocument(lstSumms.ItemIEN) then + begin + SignTitle := TX_COSIGN; + ActionType := SIG_COSIGN; + end else + begin + SignTitle := TX_SIGN; + ActionType := SIG_SIGN; + end; + ActOnDCDocument(ActionSts, lstSumms.ItemIEN, ActionType); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end; + LockSumm(lstSumms.ItemIEN); + with lstSumms do Changes.Add(CH_SUM, ItemID, TitleText(ItemIndex), '', CH_SIGN_YES); +end; + +procedure TfrmDCSumm.RemovePCEFromChanges(IEN: Int64; AVisitStr: string = ''); +begin + if IEN = DC_ADDENDUM then Exit; // no PCE information entered for an addendum + // do we need to call DeletePCE(AVisitStr), as was done with NT_NEW_NOTE (ien=-10)??? + if AVisitStr = '' then AVisitStr := VisitStrForNote(IEN); + Changes.Remove(CH_PCE, 'V' + AVisitStr); + Changes.Remove(CH_PCE, 'P' + AVisitStr); + Changes.Remove(CH_PCE, 'D' + AVisitStr); + Changes.Remove(CH_PCE, 'I' + AVisitStr); + Changes.Remove(CH_PCE, 'S' + AVisitStr); + Changes.Remove(CH_PCE, 'A' + AVisitStr); + Changes.Remove(CH_PCE, 'H' + AVisitStr); + Changes.Remove(CH_PCE, 'E' + AVisitStr); + Changes.Remove(CH_PCE, 'T' + AVisitStr); +end; + + +procedure TfrmDCSumm.mnuActDeleteClick(Sender: TObject); +{ delete the selected progress note & remove from the Encounter object if necessary } +var + DeleteSts, ActionSts: TActionRec; + ReasonForDelete, AVisitStr, SavedDocID: string; + Saved: boolean; + SavedDocIEN: integer; +begin + inherited; + if NoSummSelected() then Exit; + ActOnDocument(ActionSts, lstSumms.ItemIEN, 'DELETE RECORD'); + if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit; + ReasonForDelete := SelectDeleteReason(lstSumms.ItemIEN); + if ReasonForDelete = DR_CANCEL then Exit; + // suppress prompt for deletion when called from SaveEditedNote (Sender = Self) + if (Sender <> Self) and (InfoBox(MakeDCSummDisplayText(lstSumms.Items[lstSumms.ItemIndex]) + TX_DEL_OK, + TX_DEL_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) then Exit; + // do the appropriate locking + if not LockSumm(lstSumms.ItemIEN) then Exit; + // retraction notification message + if JustifyDocumentDelete(lstSumms.ItemIEN) then + InfoBox(TX_RETRACT, TX_RETRACT_CAP, MB_OK); + SavedDocID := lstSumms.ItemID; + SavedDocIEN := lstSumms.ItemIEN; + if (EditingIndex > -1) and (not FConfirmed) and (lstSumms.ItemIndex <> EditingIndex) and (memNewSumm.GetTextLen > 0) then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + end; + EditingIndex := -1; + FConfirmed := False; +(* if Saved then + begin + EditingIndex := -1; + mnuViewClick(Self); + with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end;*) + // remove the note + DeleteSts.Success := True; + AVisitStr := VisitStrForNote(SavedDocIEN); + RemovePCEFromChanges(SavedDocIEN, AVisitStr); + if (SavedDocIEN > 0) and (lstSumms.ItemIEN = SavedDocIEN) then DeleteDocument(DeleteSts, SavedDocIEN, ReasonForDelete); + if not Changes.Exist(CH_SUM, SavedDocID) then UnlockDocument(SavedDocIEN); + Changes.Remove(CH_SUM, SavedDocID); // this will unlock the document if in Changes + // reset the display now that the note is gone + if DeleteSts.Success then + begin + DeletePCE(AVisitStr); // removes PCE data if this was the only note pointing to it + ClearEditControls; + //ClearPtData; WRONG - fixed in v15.10 - RV + LoadSumms; +(* with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + if tvSumms.Selected <> nil then tvSummsChange(Self, tvSumms.Selected) else + begin*) + pnlWrite.Visible := False; + pnlRead.Visible := True; + UpdateReminderFinish; + ShowPCEControls(False); + frmDrawers.DisplayDrawers(FALSE); + cmdNewSumm.Visible := TRUE; + cmdPCE.Visible := FALSE; + popSummMemoEncounter.Visible := cmdPCE.Visible; + lblSpace1.Top := cmdNewSumm.Top - lblSpace1.Height; +// end; {if ItemIndex} + end {if DeleteSts} + else InfoBox(DeleteSts.Reason, TX_DEL_ERR, MB_OK or MB_ICONWARNING); +end; + +procedure TfrmDCSumm.mnuActEditClick(Sender: TObject); +{ load the selected Discharge Summary for editing } +var + ActionSts: TActionRec; + ASummID: string; +begin + inherited; + if NoSummSelected() then Exit; + if lstSumms.ItemIndex = EditingIndex then Exit; + ASummID := lstSumms.ItemID; + if not StartNewEdit(DC_ACT_EDIT_SUMM) then Exit; + //LoadSumms; + with tvSumms do Selected := FindPieceNode(ASummID, 1, U, Items.GetFirstNode); + ActOnDCDocument(ActionSts, lstSumms.ItemIEN, 'EDIT RECORD'); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end; + LoadForEdit(False); +end; + +procedure TfrmDCSumm.mnuActSaveClick(Sender: TObject); +{ saves the Summ that is currently being edited } +var + Saved: Boolean; + SavedDocID: string; +begin + inherited; + if EditingIndex > -1 then + begin + SavedDocID := Piece(lstSumms.Items[EditingIndex], U, 1); + FLastSummID := SavedDocID; + SaveCurrentSumm(Saved); + if Saved and (EditingIndex < 0) and (not FDeleted) then + //if Saved then + begin + LoadSumms; + with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end; + end + else InfoBox(TX_NO_NOTE, TX_SAVE_NOTE, MB_OK or MB_ICONWARNING); +end; + +procedure TfrmDCSumm.mnuActSignClick(Sender: TObject); +{ sign the currently selected Summ, save first if necessary } +const + SIG_COSIGN = 'COSIGNATURE'; + SIG_SIGN = 'SIGNATURE'; +var + Saved, SummUnlocked: Boolean; + ActionType, ESCode, SignTitle: string; + ActionSts, SignSts: TActionRec; + OK: boolean; + SavedDocID, tmpItem: string; + EditingID: string; //v22.12 - RV + tmpNode: TTreeNode; +begin + inherited; + if NoSummSelected() then Exit; +(* if lstSumms.ItemIndex = EditingIndex then //v22.12 - RV + begin //v22.12 - RV + SaveCurrentSumm(Saved); //v22.12 - RV + if (not Saved) or FDeleted then Exit; //v22.12 - RV + end //v22.12 - RV + else if EditingIndex > -1 then //v22.12 - RV + tmpItem := lstSumms.Items[EditingIndex]; //v22.12 - RV + SavedDocID := lstSumms.ItemID;*) //v22.12 - RV + SavedDocID := lstSumms.ItemID; //v22.12 - RV + FLastSummID := SavedDocID; //v22.12 - RV + if lstSumms.ItemIndex = EditingIndex then //v22.12 - RV + begin //v22.12 - RV + SaveCurrentSumm(Saved); //v22.12 - RV + if (not Saved) or FDeleted then Exit; //v22.12 - RV + end //v22.12 - RV + else if EditingIndex > -1 then //v22.12 - RV + begin //v22.12 - RV + tmpItem := lstSumms.Items[EditingIndex]; //v22.12 - RV + EditingID := Piece(tmpItem, U, 1); //v22.12 - RV + end; //v22.12 - RV + if not NoteHasText(lstSumms.ItemIEN) then + begin + InfoBox(TX_EMPTY_SUMM1, TC_EMPTY_SUMM, MB_OK or MB_ICONERROR); + Exit; + end; + if not LastSaveClean(lstSumms.ItemIEN) and + (InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) then Exit; + if CosignDocument(lstSumms.ItemIEN) then + begin + SignTitle := TX_COSIGN; + ActionType := SIG_COSIGN; + end else + begin + SignTitle := TX_SIGN; + ActionType := SIG_SIGN; + end; + if not LockSumm(lstSumms.ItemIEN) then Exit; + // no exits after things are locked + SummUnlocked := False; + ActOnDCDocument(ActionSts, lstSumms.ItemIEN, ActionType); + if ActionSts.Success then + begin + OK := IsOK2Sign(uPCEShow, lstSumms.ItemIEN); + if frmFrame.Closing then exit; + if(uPCEShow.Updated) then + begin + uPCEShow.CopyPCEData(uPCEEdit); + uPCEShow.Updated := FALSE; + lstSummsClick(Self); + end; + if not AuthorSignedDocument(lstSumms.ItemIEN) then + begin + if (InfoBox(TX_AUTH_SIGNED + + GetTitleText(lstSumms.ItemIndex),TX_SIGN ,MB_YESNO)= ID_NO) then exit; + end; + if(OK) then + begin + with lstSumms do SignatureForItem(Font.Size, MakeDCSummDisplayText(Items[ItemIndex]), SignTitle, ESCode); + if Length(ESCode) > 0 then + begin + SignDCDocument(SignSts, lstSumms.ItemIEN, ESCode); + RemovePCEFromChanges(lstSumms.ItemIEN); + SummUnlocked := Changes.Exist(CH_SUM, lstSumms.ItemID); + Changes.Remove(CH_SUM, lstSumms.ItemID); + if SignSts.Success + then lstSummsClick(Self) + else InfoBox(SignSts.Reason, TX_SIGN_ERR, MB_OK); + end {if Length(ESCode)} + else + SummUnlocked := Changes.Exist(CH_SUM, lstSumms.ItemID); + end; + end + else InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + if not SummUnlocked then UnlockDocument(lstSumms.ItemIEN); + //SetViewContext(FCurrentContext); //v22.12 - RV + LoadSumms; //v22.12 - RV + //if EditingIndex > -1 then //v22.12 - RV + if (EditingID <> '') then //v22.12 - RV + begin + lstSumms.Items.Insert(0, tmpItem); + tmpNode := tvSumms.Items.AddObjectFirst(tvSumms.Items.GetFirstNode, 'Summary being edited', + MakeDCSummTreeObject('EDIT^Summary being edited^^^^^^^^^^^%^0')); + TORTreeNode(tmpNode).StringData := 'EDIT^Summary being edited^^^^^^^^^^^%^0'; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + tmpNode := tvSumms.Items.AddChildObjectFirst(tmpNode, MakeDCSummDisplayText(tmpItem), MakeDCSummTreeObject(tmpItem)); + TORTreeNode(tmpNode).StringData := tmpItem; + SetTreeNodeImagesAndFormatting(TORTreeNode(tmpNode), FCurrentContext, CT_DCSUMM); + EditingIndex := lstSumms.SelectByID(EditingID); //v22.12 - RV + end; + //with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); //v22.12 - RV + with tvSumms do //v22.12 - RV + begin //v22.12 - RV + Selected := FindPieceNode(FLastSummID, U, Items.GetFirstNode); //v22.12 - RV + if Selected <> nil then tvSummsChange(Self, Selected); //v22.12 - RV + end; //v22.12 - RV +end; + +procedure TfrmDCSumm.SaveSignItem(const ItemID, ESCode: string); +{ saves and optionally signs a Discharge Summary or addendum } +const + SIG_COSIGN = 'COSIGNATURE'; + SIG_SIGN = 'SIGNATURE'; +var + AnIndex, IEN, i: Integer; + Saved, ContinueSign: Boolean; {*RAB* 8/26/99} + ActionSts, SignSts: TActionRec; + APCEObject: TPCEData; + OK: boolean; + ActionType, SignTitle: string; +begin + AnIndex := -1; + IEN := StrToIntDef(ItemID, 0); + if IEN = 0 then Exit; + if frmFrame.TimedOut and (EditingIndex <> -1) then FSilent := True; + with lstSumms do for i := 0 to Items.Count - 1 do if lstSumms.GetIEN(i) = IEN then + begin + AnIndex := i; + break; + end; + if (AnIndex > -1) and (AnIndex = EditingIndex) then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + if FDeleted then + begin + FDeleted := False; + Exit; + end; + AnIndex := lstSumms.SelectByIEN(IEN); + //IEN := lstNotes.GetIEN(AnIndex); // saving will change IEN + end; + if Length(ESCode) > 0 then + begin + if CosignDocument(IEN) then + begin + SignTitle := TX_COSIGN; + ActionType := SIG_COSIGN; + end else + begin + SignTitle := TX_SIGN; + ActionType := SIG_SIGN; + end; + ActOnDocument(ActionSts, IEN, ActionType); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + ContinueSign := False; + end + else if not NoteHasText(IEN) then + begin + InfoBox(TX_EMPTY_SUMM1, TC_EMPTY_SUMM, MB_OK or MB_ICONERROR); + ContinueSign := False; + end + else if not LastSaveClean(IEN) and + (InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) + then ContinueSign := False + else ContinueSign := True; + if ContinueSign then + begin + if (AnIndex >= 0) and (AnIndex = lstSumms.ItemIndex) then + APCEObject := uPCEShow + else + APCEObject := nil; + OK := IsOK2Sign(APCEObject, IEN); + if frmFrame.Closing then exit; + if(assigned(APCEObject)) and (uPCEShow.Updated) then + begin + uPCEShow.CopyPCEData(uPCEEdit); + uPCEShow.Updated := FALSE; + lstSummsClick(Self); + end + else + uPCEEdit.Clear; + if(OK) then + begin + SignDocument(SignSts, IEN, ESCode); + if not SignSts.Success then InfoBox(SignSts.Reason, TX_SIGN_ERR, MB_OK); + end; {if OK} + end; {if ContinueSign} + end; {if Length(ESCode)} + + if (AnIndex = lstSumms.ItemIndex) and (not frmFrame.ContextChanging) then + begin + LoadSumms; + with tvSumms do Selected := FindPieceNode(IntToStr(IEN), U, Items.GetFirstNode); + end; +end; + +procedure TfrmDCSumm.popSummMemoPopup(Sender: TObject); +begin + inherited; + if PopupComponent(Sender, popSummMemo) is TCustomEdit + then FEditCtrl := TCustomEdit(PopupComponent(Sender, popSummMemo)) + else FEditCtrl := nil; + if FEditCtrl <> nil then + begin + popSummMemoCut.Enabled := FEditCtrl.SelLength > 0; + popSummMemoCopy.Enabled := popSummMemoCut.Enabled; + popSummMemoPaste.Enabled := (not TORExposedCustomEdit(FEditCtrl).ReadOnly) and + Clipboard.HasFormat(CF_TEXT); + popSummMemoTemplate.Enabled := frmDrawers.CanEditTemplates and popSummMemoCut.Enabled; + popSummMemoFind.Enabled := FEditCtrl.GetTextLen > 0; + end else + begin + popSummMemoCut.Enabled := False; + popSummMemoCopy.Enabled := False; + popSummMemoPaste.Enabled := False; + popSummMemoTemplate.Enabled := False; + end; + if pnlWrite.Visible then + begin + popSummMemoSpell.Enabled := True; + popSummMemoGrammar.Enabled := True; + popSummMemoReformat.Enabled := True; + popSummMemoReplace.Enabled := (FEditCtrl.GetTextLen > 0); + popSummMemoPreview.Enabled := (frmDrawers.TheOpenDrawer = odTemplates) and Assigned(frmDrawers.tvTemplates.Selected); + popSummMemoInsTemplate.Enabled := (frmDrawers.TheOpenDrawer = odTemplates) and Assigned(frmDrawers.tvTemplates.Selected); + end else + begin + popSummMemoSpell.Enabled := False; + popSummMemoGrammar.Enabled := False; + popSummMemoReformat.Enabled := False; + popSummMemoReplace.Enabled := False; + popSummMemoPreview.Enabled := False; + popSummMemoInsTemplate.Enabled := False; + end; +end; + +procedure TfrmDCSumm.popSummMemoCutClick(Sender: TObject); +begin + inherited; + FEditCtrl.CutToClipboard; +end; + +procedure TfrmDCSumm.popSummMemoCopyClick(Sender: TObject); +begin + inherited; + FEditCtrl.CopyToClipboard; +end; + +procedure TfrmDCSumm.popSummMemoPasteClick(Sender: TObject); +begin + inherited; + FEditCtrl.SelText := Clipboard.AsText; {*KCM*} + //FEditCtrl.PasteFromClipboard; // use AsText to prevent formatting +end; + +procedure TfrmDCSumm.popSummMemoReformatClick(Sender: TObject); +begin + inherited; + if Screen.ActiveControl <> memNewSumm then Exit; + ReformatMemoParagraph(memNewSumm); +end; + +procedure TfrmDCSumm.popSummMemoFindClick(Sender: TObject); +begin + inherited; + SendMessage(TRichEdit(popSummMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0); + with dlgFindText do + begin + Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top); + FindText := ''; + Options := [frDown, frHideUpDown]; + Execute; + end; +end; + +procedure TfrmDCSumm.dlgFindTextFind(Sender: TObject); +begin + dmodShared.FindRichEditText(dlgFindText, TRichEdit(popSummMemo.PopupComponent)); +end; + +procedure TfrmDCSumm.popSummMemoReplaceClick(Sender: TObject); +begin + inherited; + SendMessage(TRichEdit(popSummMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0); + with dlgReplaceText do + begin + Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top); + FindText := ''; + ReplaceText := ''; + Options := [frDown, frHideUpDown]; + Execute; + end; +end; + +procedure TfrmDCSumm.dlgReplaceTextReplace(Sender: TObject); +begin + inherited; + dmodShared.ReplaceRichEditText(dlgReplaceText, TRichEdit(popSummMemo.PopupComponent)); +end; + +procedure TfrmDCSumm.dlgReplaceTextFind(Sender: TObject); +begin + inherited; + dmodShared.FindRichEditText(dlgFindText, TRichEdit(popSummMemo.PopupComponent)); +end; + +procedure TfrmDCSumm.popSummMemoSpellClick(Sender: TObject); +begin + inherited; + DoAutoSave(0); + timAutoSave.Enabled := False; + try + SpellCheckForControl(memNewSumm); + finally + FChanged := True; + DoAutoSave(0); + timAutoSave.Enabled := True; + end; +end; + +procedure TfrmDCSumm.popSummMemoGrammarClick(Sender: TObject); +begin + inherited; + DoAutoSave(0); + timAutoSave.Enabled := False; + try + GrammarCheckForControl(memNewSumm); + finally + FChanged := True; + DoAutoSave(0); + timAutoSave.Enabled := True; + end; +end; + +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; + FEditDCSumm.LastCosignerName := ''; + FLastSummID := ''; + frmDrawers := TfrmDrawers.CreateDrawers(Self, pnlDrawers, [],[]); + frmDrawers.Align := alBottom; + 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); +begin + inherited; + if lstSumms.ItemIEN <= 0 then Exit; + mnuViewDetail.Checked := not mnuViewDetail.Checked; + if mnuViewDetail.Checked then + begin + StatusText('Retrieving discharge summary details...'); + Screen.Cursor := crHourGlass; + LoadDetailText(memSumm.Lines, lstSumms.ItemIEN); + Screen.Cursor := crDefault; + StatusText(''); + memSumm.SelStart := 0; + memSumm.Repaint; + end + else + lstSummsClick(Self); + SendMessage(memSumm.Handle, WM_VSCROLL, SB_TOP, 0); +end; + +procedure TfrmDCSumm.FormClose(Sender: TObject; var Action: TCloseAction); +var + Saved: Boolean; + IEN: Int64; + ErrMsg: string; + DeleteSts: TActionRec; +begin + inherited; + if frmFrame.TimedOut and (EditingIndex <> -1) then + begin + FSilent := True; + if memNewSumm.GetTextLen > 0 then SaveCurrentSumm(Saved) + else + begin + IEN := lstSumms.GetIEN(EditingIndex); + if not LastSaveClean(IEN) then // means note hasn't been committed yet + begin + LockDocument(IEN, ErrMsg); + if ErrMsg = '' then + begin + DeleteDocument(DeleteSts, IEN, ''); + UnlockDocument(IEN); + end; {if ErrMsg} + end; {if not LastSaveClean} + end; {else} + end; {if frmFrame} +end; + +procedure TfrmDCSumm.mnuActIdentifyAddlSignersClick(Sender: TObject); +var + Exclusions: TStrings; + Saved, x, y: boolean; + SignerList: TSignerList; + ActionSts: TActionRec; + SigAction: integer; + SavedDocID: string; + ARefDate: TFMDateTime; +begin + inherited; + if NoSummSelected() then Exit; + if lstSumms.ItemIndex = EditingIndex then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + LoadSumms; + with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end; + x := CanChangeCosigner(lstSumms.ItemIEN); + ActOnDocument(ActionSts, lstSumms.ItemIEN, 'IDENTIFY SIGNERS'); + y := ActionSts.Success; + if x and not y then + begin + if InfoBox(ActionSts.Reason + CRLF + CRLF + + 'Would you like to change the cosigner?', + TX_IN_AUTH, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) = ID_YES then + SigAction := SG_COSIGNER + else + Exit; + end + else if y and not x then SigAction := SG_ADDITIONAL + else if x and y then SigAction := SG_BOTH + else + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end; + +// NEED TO PREVENT CHANGE OF COSIGNER ON DC SUMMARIES? +{ if y then SigAction := SG_ADDITIONAL + else + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + Exit; + end; } + + Exclusions := GetCurrentSigners(lstSumms.ItemIEN); + ARefDate := ExtractFloat(Piece(Piece(lstSumms.Items[lstSumms.ItemIndex], U, 9), ';', 2)); + if ARefDate = 0 then //no discharge date, so use note date + ARefDate := StrToFloat(Piece(lstSumms.Items[lstSumms.ItemIndex], U, 3)); + SelectAdditionalSigners(Font.Size, lstSumms.ItemIEN, SigAction, Exclusions, SignerList, CT_DCSUMM, ARefDate); + with SignerList do + begin + case SigAction of + SG_ADDITIONAL: if Changed and (Signers <> nil) and (Signers.Count > 0) then + UpdateAdditionalSigners(lstSumms.ItemIEN, Signers); + SG_COSIGNER: if Changed then ChangeAttending(lstSumms.ItemIEN, Cosigner); + SG_BOTH: if Changed then + begin + if (Signers <> nil) and (Signers.Count > 0) then + UpdateAdditionalSigners(lstSumms.ItemIEN, Signers); + ChangeAttending(lstSumms.ItemIEN, Cosigner); + end; + end; + lstSummsClick(Self); + end; +end; + +procedure TfrmDCSumm.popSummMemoAddlSignClick(Sender: TObject); +begin + inherited; + mnuActIdentifyAddlSignersClick(Self); +end; + +procedure TfrmDCSumm.ProcessNotifications; +var + x: string; + Saved: boolean; + tmpNode: TTreeNode; + AnObject: PDocTreeObject; +begin + if EditingIndex <> -1 then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + end; + lblSumms.Caption := Notifications.Text; + tvSumms.Caption := Notifications.Text; + EditingIndex := -1; + lstSumms.Enabled := True ; + pnlRead.BringToFront ; + x := Notifications.AlertData; + //x := MakeDCSummListItem(Notifications.AlertData); + if StrToIntDef(Piece(x, U, 1), 0) = 0 then + begin + InfoBox(TX_NO_ALERT, TX_CAP_NO_ALERT, MB_OK); + Exit; + end; + uChanging := True; + tvSumms.Items.BeginUpdate; + lstSumms.Clear; + KillDocTreeObjects(tvSumms); + tvSumms.Items.Clear; + lstSumms.Items.Add(x); + AnObject := MakeDCSummTreeObject('ALERT^Alerted Note^^^^^^^^^^^%^0'); + tmpNode := tvSumms.Items.AddObjectFirst(tvSumms.Items.GetFirstNode, AnObject.NodeText, AnObject); + TORTreeNode(tmpNode).StringData := 'ALERT^Alerted Note^^^^^^^^^^^%^0'; + tmpNode.ImageIndex := IMG_TOP_LEVEL; + AnObject := MakeDCSummTreeObject(x); + tmpNode := tvSumms.Items.AddChildObjectFirst(tmpNode, AnObject.NodeText, AnObject); + TORTreeNode(tmpNode).StringData := x; + SetTreeNodeImagesAndFormatting(TORTreeNode(tmpNode), FCurrentContext, CT_DCSUMM); + tvSumms.Selected := tmpNode; + tvSumms.Items.EndUpdate; + uChanging := False; + tvSummsChange(Self, tvSumms.Selected); + case Notifications.Followup of + NF_DCSUMM_UNSIGNED_NOTE: ; //Automatically deleted by sig action!!! + end; + if Copy(Piece(Notifications.RecordID, U, 2), 1, 6) = 'TIUADD' then Notifications.Delete; + if Copy(Piece(Notifications.RecordID, U, 2), 1, 5) = 'TIUID' then Notifications.Delete; +end; + +procedure TfrmDCSumm.SetViewContext(AContext: TTIUContext); +var + Saved: boolean; +begin + if EditingIndex <> -1 then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + end; + EditingIndex := -1; + tvSumms.Enabled := True ; + pnlRead.BringToFront ; + if FCurrentContext.Status <> '' then with uDCSummContext do + begin + BeginDate := FCurrentContext.BeginDate; + EndDate := FCurrentContext.EndDate; + FMBeginDate := FCurrentContext.FMBeginDate; + FMEndDate := FCurrentContext.FMEndDate; + Status := FCurrentContext.Status; + Author := FCurrentContext.Author; + MaxDocs := FCurrentContext.MaxDocs; + ShowSubject := FCurrentContext.ShowSubject; + GroupBy := FCurrentContext.GroupBy; + SortBy := FCurrentContext.SortBy; + ListAscending := FCurrentContext.ListAscending; + TreeAscending := FCurrentContext.TreeAscending; + Keyword := FCurrentContext.Keyword; + SearchField := FCurrentContext.SearchField; + Filtered := FCurrentContext.Filtered; + Changed := True; + mnuViewClick(Self); + end + else + begin + ViewContext := NC_RECENT ; + mnuViewClick(Self); + end; +end; + +procedure TfrmDCSumm.mnuViewSaveAsDefaultClick(Sender: TObject); +const + TX_NO_MAX = 'You have not specified a maximum number of summaries to be returned.' + CRLF + + 'If you save this preference, the result will be that ALL summaries for every' + CRLF + + 'patient will be saved as your default view.' + CRLF + CRLF + + 'For patients with large numbers of summaries, this could result in some lengthy' + CRLF + + 'delays in loading the list of summaries.' + CRLF + CRLF + + 'Are you sure you mean to do this?'; + TX_REPLACE = 'Replace current defaults?'; +begin + inherited; + if FCurrentContext.MaxDocs = 0 then + if InfoBox(TX_NO_MAX,'Warning', MB_YESNO or MB_ICONWARNING) = IDNO then + begin + mnuViewClick(mnuViewCustom); + Exit; + end; + if InfoBox(TX_REPLACE,'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then + begin + SaveCurrentDCSummContext(FCurrentContext); + FDefaultContext := FCurrentContext; + //lblSumms.Caption := 'Default List'; + end; +end; + +procedure TfrmDCSumm.mnuViewReturntoDefaultClick(Sender: TObject); +begin + inherited; + SetViewContext(FDefaultContext); +end; + +procedure TfrmDCSumm.popSummMemoTemplateClick(Sender: TObject); +begin + inherited; + EditTemplates(Self, True, FEditCtrl.SelText); +end; + +procedure TfrmDCSumm.popSummListPopup(Sender: TObject); +begin + inherited; + N5.Visible := (popSummList.PopupComponent is TORTreeView); + popSummListExpandAll.Visible := N5.Visible; + popSummListExpandSelected.Visible := N5.Visible; + popSummListCollapseAll.Visible := N5.Visible; + popSummListCollapseSelected.Visible := N5.Visible; +end; + +procedure TfrmDCSumm.popSummListExpandAllClick(Sender: TObject); +begin + inherited; + tvSumms.FullExpand; +end; + +procedure TfrmDCSumm.popSummListCollapseAllClick(Sender: TObject); +begin + inherited; + tvSumms.Selected := nil; + lvSumms.Items.Clear; + memSumm.Clear; + tvSumms.FullCollapse; + tvSumms.Selected := tvSumms.TopItem; +end; + +procedure TfrmDCSumm.popSummListExpandSelectedClick(Sender: TObject); +begin + inherited; + if tvSumms.Selected = nil then exit; + with tvSumms.Selected do if HasChildren then Expand(True); +end; + +procedure TfrmDCSumm.popSummListCollapseSelectedClick(Sender: TObject); +begin + inherited; + if tvSumms.Selected = nil then exit; + with tvSumms.Selected do if HasChildren then Collapse(True); +end; + +procedure TfrmDCSumm.mnuNewTemplateClick(Sender: TObject); +begin + inherited; + EditTemplates(Self, True); +end; + +procedure TfrmDCSumm.mnuEditTemplatesClick(Sender: TObject); +begin + inherited; + EditTemplates(Self); +end; + +procedure TfrmDCSumm.mnuOptionsClick(Sender: TObject); +begin + inherited; + mnuEditTemplates.Enabled := frmDrawers.CanEditTemplates; + mnuNewTemplate.Enabled := frmDrawers.CanEditTemplates; + mnuEditSharedTemplates.Enabled := frmDrawers.CanEditShared; + mnuNewSharedTemplate.Enabled := frmDrawers.CanEditShared; + mnuEditDialgFields.Enabled := CanEditTemplateFields; +end; + +procedure TfrmDCSumm.mnuEditSharedTemplatesClick(Sender: TObject); +begin + inherited; + EditTemplates(Self, FALSE, '', TRUE); +end; + +procedure TfrmDCSumm.mnuNewSharedTemplateClick(Sender: TObject); +begin + inherited; + EditTemplates(Self, TRUE, '', TRUE); +end; + +procedure TfrmDCSumm.FormDestroy(Sender: TObject); +begin + TAccessibleTreeView.UnwrapControl(tvSumms); + FImageFlag.Free; + FDocList.Free; + KillDocTreeObjects(tvSumms); + inherited; +end; + +function TfrmDCSumm.GetDrawers: TFrmDrawers; +begin + Result := frmDrawers; +end; + +procedure TfrmDCSumm.SetEditingIndex(const Value: Integer); +begin + FEditingIndex := Value; +end; + +(*function TfrmDCSumm.MakeTitleText(IsAddendum: Boolean = False): string; +{ returns display text for list box based on FEditNote } +begin + Result := FormatFMDateTime('mmm dd,yy', FEditDCSumm.DischargeDateTime) + U; + if IsAddendum and (CompareText(Copy(FEditDCSumm.TitleName, 1, 8), 'Addendum') <> 0) + then Result := Result + 'Addendum to '; + Result := Result + FEditDCSumm.TitleName + ', ' + FEditDCSumm.LocationName + ', ' + + FEditDCSumm.DictatorName; +end;*) + +function TfrmDCSumm.LacksRequiredForCreate: Boolean; +{ determines if the fields required to create the note are present } +var + CurTitle: Integer; + ADateTime: TFMDateTime; +begin + Result := False; + with FEditDCSumm do + begin + if Title <= 0 then Result := True; + if Dictator <= 0 then Result := True; + if AdmitDateTime <= 0 then Result := True; + if (DocType = TYP_ADDENDUM) then + begin + if AskCosignerForDocument(Addend, Dictator) 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; +end; + +function TfrmDCSumm.VerifySummTitle: Boolean; +const + VNT_UNKNOWN = 0; + VNT_NO = 1; + VNT_YES = 2; +var + AParam: string; +begin + if FVerifySummTitle = VNT_UNKNOWN then + begin + AParam := GetUserParam('ORWOR VERIFY NOTE TITLE'); + if AParam = '1' then FVerifySummTitle := VNT_YES else FVerifySummTitle := VNT_NO; + end; + Result := FVerifySummTitle = VNT_YES; +end; + +function TfrmDCSumm.LockSumm(AnIEN: Int64): Boolean; +{ returns true if summ successfully locked } +var + LockMsg: string; +begin + Result := True; + if Changes.Exist(CH_SUM, IntToStr(AnIEN)) then Exit; // already locked + LockDocument(AnIEN, LockMsg); + if LockMsg <> '' then + begin + Result := False; + InfoBox(LockMsg, TC_NO_LOCK, MB_OK); + end; +end; + +procedure TfrmDCSumm.DoAutoSave(Suppress: integer = 1); +var + ErrMsg: string; +begin + if (EditingIndex > -1) and FChanged then + begin + StatusText('Autosaving note...'); + //PutTextOnly(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex)); + timAutoSave.Enabled := False; + try + SetText(ErrMsg, memNewSumm.Lines, lstSumms.GetIEN(EditingIndex), Suppress); + finally + timAutoSave.Enabled := True; + end; + FChanged := False; + StatusText(''); + end; + if ErrMsg <> '' then + InfoBox(TX_SAVE_ERROR1 + ErrMsg + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING); + //Assert(ErrMsg = '', 'AutoSave: ' + ErrMsg); +end; + +procedure TfrmDCSumm.timAutoSaveTimer(Sender: TObject); +begin + inherited; + DoAutoSave; +end; + +function TfrmDCSumm.GetTitleText(AnIndex: Integer): string; +{ returns non-tabbed text for the title of a note given the ItemIndex in lstSumms } +begin + with lstSumms do + Result := FormatFMDateTime('mmm dd,yy', MakeFMDateTime(Piece(Items[AnIndex], U, 3))) + + ' ' + Piece(Items[AnIndex], U, 2) + ', ' + Piece(Items[AnIndex], U, 6) + ', ' + + Piece(Piece(Items[AnIndex], U, 5), ';', 2) +end; + +procedure TfrmDCSumm.cmdChangeClick(Sender: TObject); +var + LastTitle: Integer; + OKPressed, IsIDChild: Boolean; + x: string; + ListItemForEdit: string; +begin + inherited; + IsIDChild := uIDNotesActive and (FEditDCSumm.IDParent > 0); + LastTitle := FEditDCSumm.Title; + if Sender <> Self then + begin + FShowAdmissions := False; + OKPressed := ExecuteDCSummProperties(FEditDCSumm, ListItemForEdit, FShowAdmissions, IsIDChild); + end + else + OKPressed := True; + if not OKPressed then Exit; + // update display fields & uPCEEdit + lblNewTitle.Caption := ' ' + FEditDCSumm.TitleName + ' '; + if (FEditDCSumm.Addend > 0) and (CompareText(Copy(lblNewTitle.Caption, 2, 8), 'Addendum') <> 0) then + lblNewTitle.Caption := 'Addendum to: ' + lblNewTitle.Caption; + with lblNewTitle do bvlNewTitle.SetBounds(Left - 1, Top - 1, Width + 2, Height + 2); + lblRefDate.Caption := FormatFMDateTime('mmm dd,yyyy@hh:nn', FEditDCSumm.DischargeDateTime); + lblDictator.Caption := FEditDCSumm.DictatorName; + x := 'Adm: ' + FormatFMDateTime('mm/dd/yy', FEditDCSumm.AdmitDateTime) + ' ' + FEditDCSumm.LocationName; + lblVisit.Caption := x; + x := ' Dis: ' + FormatFMDateTime('mm/dd/yy', FEditDCSumm.DischargeDateTime); + lblDischarge.Caption := x; + if Length(FEditDCSumm.AttendingName) > 0 + then lblCosigner.Caption := 'Attending: ' + FEditDCSumm.AttendingName + else lblCosigner.Caption := ''; + uPCEEdit.NoteTitle := FEditDCSumm.Title; + // modify signature requirements if author or cosigner changed + if (User.DUZ <> FEditDCSumm.Dictator) and (User.DUZ <> FEditDCSumm.Attending) + then Changes.ReplaceSignState(CH_SUM, lstSumms.ItemID, CH_SIGN_NA) + else Changes.ReplaceSignState(CH_SUM, lstSumms.ItemID, CH_SIGN_YES); + x := lstSumms.Items[EditingIndex]; + SetPiece(x, U, 2, lblNewTitle.Caption); + SetPiece(x, U, 3, FloatToStr(FEditDCSumm.DischargeDateTime)); + tvSumms.Selected.Text := MakeDCSummDisplayText(x); + TORTreeNode(tvSumms.Selected).StringData := x; + lstSumms.Items[EditingIndex] := x; + Changes.ReplaceText(CH_SUM, lstSumms.ItemID, GetTitleText(EditingIndex)); + if LastTitle <> FEditDCSumm.Title then mnuActLoadBoilerClick(Self); +end; + +procedure TfrmDCSumm.mnuActChangeClick(Sender: TObject); +begin + inherited; + if NoSummSelected() then Exit; + if (FEditingIndex < 0) or (lstSumms.ItemIndex <> FEditingIndex) then Exit; + cmdChangeClick(Sender); +end; + +procedure TfrmDCSumm.mnuActLoadBoilerClick(Sender: TObject); +var + NoteEmpty: Boolean; + BoilerText: TStringList; + DocInfo: string; + + procedure AssignBoilerText; + begin + ExecuteTemplateOrBoilerPlate(BoilerText, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo); + memNewSumm.Lines.Assign(BoilerText); + FChanged := False; + end; + +begin + inherited; + if NoSummSelected() then Exit; + if (FEditingIndex < 0) or (lstSumms.ItemIndex <> FEditingIndex) then Exit; + BoilerText := TStringList.Create; + try + NoteEmpty := memNewSumm.Text = ''; + LoadBoilerPlate(BoilerText, FEditDCSumm.Title); + if (BoilerText.Text <> '') or + assigned(GetLinkedTemplate(IntToStr(FEditDCSumm.Title), ltTitle)) then + begin + DocInfo := MakeXMLParamTIU(IntToStr(lstSumms.ItemIEN), FEditDCSumm); + if NoteEmpty then AssignBoilerText else + begin + case QueryBoilerPlate(BoilerText) of + 0: { do nothing } ; // ignore + 1: begin + ExecuteTemplateOrBoilerPlate(BoilerText, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo); + memNewSumm.Lines.AddStrings(BoilerText); // append + end; + 2: AssignBoilerText // replace + end; + end; + end else + begin + if Sender = mnuActLoadBoiler + then InfoBox(TX_NO_BOIL, TC_NO_BOIL, MB_OK) + else + begin + if not NoteEmpty then + if not FChanged and (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES) + then memNewSumm.Lines.Clear; + end; + end; {if BoilerText.Text <> ''} + finally + BoilerText.Free; + end; +end; + +procedure TfrmDCSumm.popSummMemoSaveContinueClick(Sender: TObject); +begin + inherited; + FChanged := True; + DoAutoSave; +end; + +procedure TfrmDCSumm.mnuEditDialgFieldsClick(Sender: TObject); +begin + inherited; + EditDialogFields; +end; + +//=================== Added for sort/search enhancements ====================== +procedure TfrmDCSumm.LoadSumms; +var + tmpList: TStringList; + ANode: TORTreeNode; + +begin + tmpList := TStringList.Create; + try + FDocList.Clear; + uChanging := True; + RedrawSuspend(memSumm.Handle); + RedrawSuspend(lvSumms.Handle); + tvSumms.Items.BeginUpdate; + lstSumms.Items.Clear; + KillDocTreeObjects(tvSumms); + tvSumms.Items.Clear; + tvSumms.Items.EndUpdate; + lvSumms.Items.Clear; + memSumm.Clear; + memSumm.Invalidate; + lblTitle.Caption := ''; + lvSumms.Caption := lblTitle.Caption; + lblTitle.Hint := lblTitle.Caption; + with FCurrentContext do + begin + if Status <> IntToStr(NC_UNSIGNED) then + begin + ListSummsForTree(tmpList, NC_UNSIGNED, 0, 0, 0, 0, TreeAscending); + if tmpList.Count > 0 then + begin + CreateListItemsForDocumentTree(FDocList, tmpList, NC_UNSIGNED, GroupBy, TreeAscending, CT_DCSUMM); + UpdateTreeView(FDocList, tvSumms); + end; + tmpList.Clear; + FDocList.Clear; + end; + if Status <> IntToStr(NC_UNCOSIGNED) then + begin + ListSummsForTree(tmpList, NC_UNCOSIGNED, 0, 0, 0, 0, TreeAscending); + if tmpList.Count > 0 then + begin + CreateListItemsForDocumentTree(FDocList, tmpList, NC_UNCOSIGNED, GroupBy, TreeAscending, CT_DCSUMM); + UpdateTreeView(FDocList, tvSumms); + end; + tmpList.Clear; + FDocList.Clear; + end; + ListSummsForTree(tmpList, StrToIntDef(Status, 0), FMBeginDate, FMEndDate, Author, MaxDocs, TreeAscending); + CreateListItemsForDocumentTree(FDocList, tmpList, StrToIntDef(Status, 0), GroupBy, TreeAscending, CT_DCSUMM); + UpdateTreeView(FDocList, tvSumms); + end; + with tvSumms do + begin + uChanging := True; + tvSumms.Items.BeginUpdate; + RemoveParentsWithNoChildren(tvSumms, FCurrentContext); // moved TO here in v15.9 (RV) + if FLastSummID <> '' then + Selected := FindPieceNode(FLastSummID, 1, U, nil); + if Selected = nil then + begin + if (FCurrentContext.GroupBy <> '') or (FCurrentContext.Filtered) then + begin + ANode := TORTreeNode(Items.GetFirstNode); + while ANode <> nil do + begin + ANode.Expand(False); + Selected := ANode; + ANode := TORTreeNode(ANode.GetNextSibling); + end; + end + else + begin + ANode := tvSumms.FindPieceNode(FCurrentContext.Status, 1, U, nil); + if ANode <> nil then ANode.Expand(False); + ANode := tvSumms.FindPieceNode(IntToStr(NC_UNSIGNED), 1, U, nil); + if ANode = nil then + ANode := tvSumms.FindPieceNode(IntToStr(NC_UNCOSIGNED), 1, U, nil); + if ANode = nil then + ANode := tvSumms.FindPieceNode(FCurrentContext.Status, 1, U, nil); + if ANode <> nil then + begin + if ANode.getFirstChild <> nil then + Selected := ANode.getFirstChild + else + Selected := ANode; + end; + end; + end; + memSumm.Clear; + with lvSumms do + begin + Selected := nil; + if FCurrentContext.SortBy <> '' then + ColumnToSort := Pos(FCurrentContext.SortBy, 'RDSAL') - 1; + if not FCurrentContext.ShowSubject then + begin + Columns[1].Width := 2 * (Width div 5); + Columns[2].Width := 0; + end + else + begin + Columns[1].Width := Width div 5; + Columns[2].Width := Columns[1].Width; + end; + end; + //RemoveParentsWithNoChildren(tvSumms, FCurrentContext); //moved FROM here in v15.9 (RV) + tvSumms.Items.EndUpdate; + uChanging := False; + SendMessage(tvSumms.Handle, WM_VSCROLL, SB_TOP, 0); + if Selected <> nil then tvSummsChange(Self, Selected); + end; + finally + RedrawActivate(memSumm.Handle); + RedrawActivate(lvSumms.Handle); + tmpList.Free; + end; +end; + +procedure TfrmDCSumm.UpdateTreeView(DocList: TStringList; Tree: TORTreeView); +begin + with Tree do + begin + uChanging := True; + Items.BeginUpdate; + lstSumms.Items.AddStrings(DocList); + BuildDocumentTree(DocList, '0', Tree, nil, FCurrentContext, CT_DCSUMM); + Items.EndUpdate; + uChanging := False; + end; +end; + +procedure TfrmDCSumm.tvSummsChange(Sender: TObject; Node: TTreeNode); +var + x, MySearch, MyNodeID: string; + i: integer; + WhyNot: string; +begin + if uChanging then Exit; + //This gives the change a chance to occur when keyboarding, so that WindowEyes + //doesn't use the old value. + Application.ProcessMessages; + with tvSumms do + begin + memSumm.Clear; + if Selected = nil then Exit; + if uIDNotesActive then + begin + mnuActDetachFromIDParent.Enabled := (Selected.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD]); + popSummListDetachFromIDParent.Enabled := (Selected.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD]); + if (Selected.ImageIndex in [IMG_SINGLE, IMG_PARENT, IMG_ID_CHILD, IMG_ID_CHILD_ADD]) then + mnuActAttachtoIDParent.Enabled := CanBeAttached(PDocTreeObject(Selected.Data)^.DocID, WhyNot) + else + mnuActAttachtoIDParent.Enabled := False; + popSummListAttachtoIDParent.Enabled := mnuActAttachtoIDParent.Enabled; + if (Selected.ImageIndex in [IMG_SINGLE, IMG_PARENT, + IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT, + IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) then + mnuActAddIDEntry.Enabled := CanReceiveAttachment(PDocTreeObject(Selected.Data)^.DocID, WhyNot) + else + mnuActAddIDEntry.Enabled := False; + popSummListAddIDEntry.Enabled := mnuActAddIDEntry.Enabled + end; + RedrawSuspend(lvSumms.Handle); + RedrawSuspend(memSumm.Handle); + popSummListExpandSelected.Enabled := Selected.HasChildren; + popSummListCollapseSelected.Enabled := Selected.HasChildren; + x := TORTreeNode(Selected).StringData; + if (Selected.ImageIndex in [IMG_TOP_LEVEL, IMG_GROUP_OPEN, IMG_GROUP_SHUT]) then + begin + lvSumms.Visible := True; + lvSumms.Items.Clear; + lvSumms.Height := (2 * lvSumms.Parent.Height) div 5; + with lblTitle do + begin + Caption := Trim(Selected.Text); + if (FCurrentContext.SearchField <> '') and (FCurrentContext.Filtered) then + begin + case FCurrentContext.SearchField[1] of + 'T': MySearch := 'TITLE'; + 'S': MySearch := 'SUBJECT'; + 'B': MySearch := 'TITLE or SUBJECT'; + end; + Caption := Caption + ' where ' + MySearch + ' contains "' + UpperCase(FCurrentContext.Keyword) + '"'; + end; + Hint := Caption; + lvSumms.Caption := Caption; + end; + + if Selected.ImageIndex = IMG_TOP_LEVEL then + MyNodeID := Piece(TORTreeNode(Selected).StringData, U, 1) + else if Selected.Parent.ImageIndex = IMG_TOP_LEVEL then + MyNodeID := Piece(TORTreeNode(Selected.Parent).StringData, U, 1) + else if Selected.Parent.Parent.ImageIndex = IMG_TOP_LEVEL then + MyNodeID := Piece(TORTreeNode(Selected.Parent.Parent).StringData, U, 1); + + uChanging := True; + TraverseTree(tvSumms, lvSumms, Selected.GetFirstChild, MyNodeID, FCurrentContext); + with lvSumms do + begin + for i := 0 to Columns.Count - 1 do + Columns[i].ImageIndex := IMG_NONE; + ColumnSortForward := FCurrentContext.ListAscending; + if ColumnToSort = 5 then ColumnToSort := 0; + if ColumnSortForward then + Columns[ColumnToSort].ImageIndex := IMG_ASCENDING + else + Columns[ColumnToSort].ImageIndex := IMG_DESCENDING; + if ColumnToSort = 0 then ColumnToSort := 5; + AlphaSort; + Columns[5].Width := 0; + Columns[6].Width := 0; + end; + uChanging := False; + with lvSumms do + if Items.Count > 0 then + begin + Selected := Items[0]; + lvSummsSelectItem(Self, Selected, True); + end + else + begin + Selected := nil; + lstSumms.ItemIndex := -1; + memPCEShow.Clear; + ShowPCEControls(False); + end; + pnlWrite.Visible := False; + pnlRead.Visible := True; +(* UpdateReminderFinish; + ShowPCEControls(False); + frmDrawers.DisplayDrawers(FALSE); + cmdNewSumm.Visible := TRUE; + cmdPCE.Visible := FALSE; + lblSpace1.Top := cmdNewSumm.Top - lblSpace1.Height;*) + //memSumm.Clear; + end + else if StrToIntDef(Piece(x, U, 1), 0) > 0 then + begin + memSumm.Clear; + lvSumms.Visible := False; + lstSumms.SelectByID(Piece(x, U, 1)); + lstSummsClick(Self); + SendMessage(memSumm.Handle, WM_VSCROLL, SB_TOP, 0); + end; + SendMessage(tvSumms.Handle, WM_HSCROLL, SB_THUMBTRACK, 0); + RedrawActivate(lvSumms.Handle); + RedrawActivate(memSumm.Handle); + end; +end; + +procedure TfrmDCSumm.tvSummsCollapsed(Sender: TObject; Node: TTreeNode); +begin + with Node do + begin + if (ImageIndex in [IMG_GROUP_OPEN, IMG_IDNOTE_OPEN, IMG_IDPAR_ADDENDA_OPEN]) then + ImageIndex := ImageIndex - 1; + if (SelectedIndex in [IMG_GROUP_OPEN, IMG_IDNOTE_OPEN, IMG_IDPAR_ADDENDA_OPEN]) then + SelectedIndex := SelectedIndex - 1; + end; +end; + +procedure TfrmDCSumm.tvSummsExpanded(Sender: TObject; Node: TTreeNode); + + function SortByTitle(Node1, Node2: TTreeNode; Data: Longint): Integer; stdcall; + begin + { Within an ID parent node, sorts in ascending order by title + BUT - addenda to parent document are always at the top of the sort, in date order} + if (Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum') and + (Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum') then + begin + Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate), + PChar(PDocTreeObject(Node2.Data)^.DocFMDate)); + end + else if Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := -1 + else if Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := 1 + else + begin + if Data = 0 then + Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocTitle), + PChar(PDocTreeObject(Node2.Data)^.DocTitle)) + else + Result := -AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocTitle), + PChar(PDocTreeObject(Node2.Data)^.DocTitle)); + end + end; + + function SortByDate(Node1, Node2: TTreeNode; Data: Longint): Integer; stdcall; + begin + { Within an ID parent node, sorts in ascending order by document date + BUT - addenda to parent document are always at the top of the sort, in date order} + if (Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum') and + (Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum') then + begin + Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate), + PChar(PDocTreeObject(Node2.Data)^.DocFMDate)); + end + else if Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := -1 + else if Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := 1 + else + begin + if Data = 0 then + Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate), + PChar(PDocTreeObject(Node2.Data)^.DocFMDate)) + else + Result := -AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate), + PChar(PDocTreeObject(Node2.Data)^.DocFMDate)); + end; + end; + +begin + with Node do + begin + if Assigned(Data) then + if (Pos('<', PDocTreeObject(Data)^.DocHasChildren) > 0) then + begin + if (PDocTreeObject(Node.Data)^.OrderByTitle) then + CustomSort(@SortByTitle, 0) + else + CustomSort(@SortByDate, 0); + end; + if (ImageIndex in [IMG_GROUP_SHUT, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_SHUT]) then + ImageIndex := ImageIndex + 1; + if (SelectedIndex in [IMG_GROUP_SHUT, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_SHUT]) then + SelectedIndex := SelectedIndex + 1; + end; +end; + +procedure TfrmDCSumm.tvSummsClick(Sender: TObject); +begin +(* if tvSumms.Selected = nil then exit; + if (tvSumms.Selected.ImageIndex in [IMG_TOP_LEVEL, IMG_GROUP_OPEN, IMG_GROUP_SHUT]) then + begin + uChanging := True; + lvSumms.Selected := nil; + uChanging := False; + memSumm.Clear; + end;*) +end; + +procedure TfrmDCSumm.tvSummsDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); +var + AnItem: TORTreeNode; +begin + Accept := False; + if not uIDNotesActive then exit; + AnItem := TORTreeNode(tvSumms.GetNodeAt(X, Y)); + if (AnItem = nil) or (AnItem.ImageIndex in [IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) then Exit; + with tvSumms.Selected do + if (ImageIndex in [IMG_SINGLE, IMG_PARENT, IMG_ID_CHILD, IMG_ID_CHILD_ADD]) then + Accept := (AnItem.ImageIndex in [IMG_SINGLE, IMG_PARENT, + IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT, + IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) + else if (ImageIndex in [IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) then + Accept := (AnItem.ImageIndex in [IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) + else if (ImageIndex in [IMG_ADDENDUM, IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) then + Accept := False; +end; + +procedure TfrmDCSumm.tvSummsDragDrop(Sender, Source: TObject; X, Y: Integer); +var + HT: THitTests; + Saved: boolean; + ADestNode: TORTreeNode; +begin + if not uIDNotesActive then + begin + CancelDrag; + exit; + end; + if tvSumms.Selected = nil then exit; + if EditingIndex <> -1 then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + end; + HT := tvSumms.GetHitTestInfoAt(X, Y); + ADestNode := TORTreeNode(tvSumms.GetNodeAt(X, Y)); + DoAttachIDChild(TORTreeNode(tvSumms.Selected), ADestNode); +end; + +procedure TfrmDCSumm.tvSummsStartDrag(Sender: TObject; + var DragObject: TDragObject); +const + TX_CAP_NO_DRAG = 'Item cannot be moved'; + var + WhyNot: string; + Saved: boolean; +begin + if (tvSumms.Selected.ImageIndex in [IMG_ADDENDUM, IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) or + (not uIDNotesActive) or + (lstSumms.ItemIEN = 0) then + begin + CancelDrag; + Exit; + end; + if EditingIndex <> -1 then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + end; + if not CanBeAttached(PDocTreeObject(tvSumms.Selected.Data)^.DocID, WhyNot) then + begin + InfoBox(WhyNot, TX_CAP_NO_DRAG, MB_OK); + CancelDrag; + end; +end; + +procedure TfrmDCSumm.lvSummsColumnClick(Sender: TObject; Column: TListColumn); +var + i, ClickedColumn: Integer; +begin + if Column.Index = 0 then ClickedColumn := 5 else ClickedColumn := Column.Index; + if ClickedColumn = ColumnToSort then + ColumnSortForward := not ColumnSortForward + else + ColumnSortForward := True; + for i := 0 to lvSumms.Columns.Count - 1 do + lvSumms.Columns[i].ImageIndex := IMG_NONE; + if ColumnSortForward then lvSumms.Columns[Column.Index].ImageIndex := IMG_ASCENDING + else lvSumms.Columns[Column.Index].ImageIndex := IMG_DESCENDING; + ColumnToSort := ClickedColumn; + case ColumnToSort of + 5: FCurrentContext.SortBy := 'R'; + 1: FCurrentContext.SortBy := 'D'; + 2: FCurrentContext.SortBy := 'S'; + 3: FCurrentContext.SortBy := 'A'; + 4: FCurrentContext.SortBy := 'L'; + else + FCurrentContext.SortBy := 'R'; + end; + FCurrentContext.ListAscending := ColumnSortForward; + (Sender as TCustomListView).AlphaSort; + //with lvSumms do if Selected <> nil then Scroll(0, Selected.Top - TopItem.Top); +end; + +procedure TfrmDCSumm.lvSummsCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); +var + ix: Integer; +begin + if ColumnToSort = 0 then + Compare := CompareText(Item1.Caption,Item2.Caption) + else begin + ix := ColumnToSort - 1; + Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]); + end; + if not ColumnSortForward then Compare := -Compare; +end; + +procedure TfrmDCSumm.lvSummsSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); +begin + if uChanging or (not Selected) then Exit; + with lvSumms do + begin + StatusText('Retrieving selected discharge summary...'); + lstSumms.SelectByID(Item.SubItems[5]); + lstSummsClick(Self); + SendMessage(memSumm.Handle, WM_VSCROLL, SB_TOP, 0); + end; +end; + +procedure TfrmDCSumm.lvSummsResize(Sender: TObject); +begin + inherited; + with lvSumms do + begin + if not FCurrentContext.ShowSubject then + begin + Columns[1].Width := 2 * (Width div 5); + Columns[2].Width := 0; + end + else + begin + Columns[1].Width := Width div 5; + Columns[2].Width := Columns[1].Width; + end; + end; +end; + +procedure TfrmDCSumm.EnableDisableIDNotes; +begin + uIDNotesActive := False; // := IDNotesInstalled; Not yet on this tab + mnuActDetachFromIDParent.Visible := uIDNotesActive; + popSummListDetachFromIDParent.Visible := uIDNotesActive; + mnuActAddIDEntry.Visible := uIDNotesActive; + popSummListAddIDEntry.Visible := uIDNotesActive; + mnuActAttachtoIDParent.Visible := uIDNotesActive; + popSummListAttachtoIDParent.Visible := uIDNotesActive; + if uIDNotesActive then + tvSumms.DragMode := dmAutomatic + else + tvSumms.DragMode := dmManual; +end; + +procedure TfrmDCSumm.mnuIconLegendClick(Sender: TObject); +begin + inherited; + ShowIconLegend(ilNotes); +end; + +procedure TfrmDCSumm.mnuActAttachtoIDParentClick(Sender: TObject); +var + AChildNode: TORTreeNode; + AParentID: string; + SavedDocID: string; + Saved: boolean; +begin + inherited; + if not uIDNotesActive then exit; + if lstSumms.ItemIEN = 0 then exit; + SavedDocID := lstSumms.ItemID; + if EditingIndex <> -1 then + begin + SaveCurrentSumm(Saved); + if not Saved then Exit; + LoadSumms; + with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + end; + if tvSumms.Selected = nil then exit; + AChildNode := TORTreeNode(tvSumms.Selected); + AParentID := SelectParentNodeFromList(tvSumms); + if AParentID = '' then exit; + with tvSumms do Selected := FindPieceNode(AParentID, 1, U, Items.GetFirstNode); + DoAttachIDChild(AChildNode, TORTreeNode(tvSumms.Selected)); +end; + +procedure TfrmDCSumm.DoAttachIDChild(AChild, AParent: TORTreeNode); +const + TX_ATTACH_CNF = 'Confirm Attachment'; + TX_ATTACH_FAILURE = 'Attachment failed'; +var + ErrMsg, WhyNot: string; + SavedDocID: string; +begin + if (AChild = nil) or (AParent = nil) then exit; + ErrMsg := ''; + if not CanBeAttached(PDocTreeObject(AChild.Data)^.DocID, WhyNot) then + ErrMsg := ErrMsg + WhyNot + CRLF + CRLF; + if not CanReceiveAttachment(PDocTreeObject(AParent.Data)^.DocID, WhyNot) then + ErrMsg := ErrMsg + WhyNot; + if ErrMsg <> '' then + begin + InfoBox(ErrMsg, TX_ATTACH_FAILURE, MB_OK); + Exit; + end + else + begin + WhyNot := ''; + if (InfoBox('ATTACH: ' + AChild.Text + CRLF + CRLF + + ' TO: ' + AParent.Text + CRLF + CRLF + + 'Are you sure?', TX_ATTACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) + then Exit; + SavedDocID := PDocTreeObject(AParent.Data)^.DocID; + end; + if AChild.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD] then + begin + if DetachEntryFromParent(PDocTreeObject(AChild.Data)^.DocID, WhyNot) then + begin + if AttachEntryToParent(PDocTreeObject(AChild.Data)^.DocID, PDocTreeObject(AParent.Data)^.DocID, WhyNot) then + begin + LoadSumms; + with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + if tvSumms.Selected <> nil then tvSumms.Selected.Expand(False); + end + else + InfoBox(WhyNot, TX_ATTACH_FAILURE, MB_OK); + end + else + begin + WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]); + WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]); + InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK); + Exit; + end; + end + else + begin + if AttachEntryToParent(PDocTreeObject(AChild.Data)^.DocID, PDocTreeObject(AParent.Data)^.DocID, WhyNot) then + begin + LoadSumms; + with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); + if tvSumms.Selected <> nil then tvSumms.Selected.Expand(False); + end + else + InfoBox(WhyNot, TX_ATTACH_FAILURE, MB_OK); + end; +end; + +function TfrmDCSumm.SetSummTreeLabel(AContext: TTIUContext): string; +var + x: string; + + function SetDateRangeText(AContext: TTIUContext): string; + var + x1: string; + begin + with AContext do + if BeginDate <> '' then + begin + x1 := ' from ' + UpperCase(BeginDate); + if EndDate <> '' then x1 := x1 + ' to ' + UpperCase(EndDate) + else x1 := x1 + ' to TODAY'; + end; + Result := x1; + end; + +begin + with AContext do + begin + if MaxDocs > 0 then x := 'Last ' + IntToStr(MaxDocs) + ' ' else x := 'All '; + case StrToIntDef(Status, 0) of + NC_ALL : x := x + 'Signed Summaries'; + NC_UNSIGNED : begin + x := x + 'Unsigned Summaries for '; + if Author > 0 then x := x + ExternalName(Author, 200) + else x := x + User.Name; + x := x + SetDateRangeText(AContext); + end; + NC_UNCOSIGNED : begin + x := x + 'Uncosigned Summaries for '; + if Author > 0 then x := x + ExternalName(Author, 200) + else x := x + User.Name; + x := x + SetDateRangeText(AContext); + end; + NC_BY_AUTHOR : x := x + 'Signed Summaries for ' + ExternalName(Author, 200) + SetDateRangeText(AContext); + NC_BY_DATE : x := x + 'Signed Summaries ' + SetDateRangeText(AContext); + else + x := 'Custom List'; + end; + end; + Result := x; +end; + +procedure TfrmDCSumm.memNewSummKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if (Key = VK_TAB) then + begin + if ssShift in Shift then + begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + Key := 0; + end + else if ssCtrl in Shift then + begin + FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control + Key := 0; + end; + end; + if (key = VK_ESCAPE) then begin + FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control + key := 0; + end; +end; + +procedure TfrmDCSumm.sptHorzCanResize(Sender: TObject; var NewSize: Integer; + var Accept: Boolean); +begin + inherited; + if pnlWrite.Visible then + if NewSize > frmDCSumm.ClientWidth - memNewSumm.Constraints.MinWidth - sptHorz.Width then + NewSize := frmDCSumm.ClientWidth - memNewSumm.Constraints.MinWidth - sptHorz.Width; +end; + +procedure TfrmDCSumm.popSummMemoPreviewClick(Sender: TObject); +begin + frmDrawers.mnuPreviewTemplateClick(Sender); +end; + +procedure TfrmDCSumm.popSummMemoInsTemplateClick(Sender: TObject); +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.} +function TfrmDCSumm.NoSummSelected: Boolean; +begin + if lstSumms.ItemIEN <= 0 then + begin + InfoBox(TX_NOSUMM,TX_NOSUMM_CAP,MB_OK or MB_ICONWARNING); + Result := true; + end + else + Result := false; +end; + +procedure TfrmDCSumm.ViewInfo(Sender: TObject); +begin + inherited; + frmFrame.ViewInfo(Sender); +end; + +procedure TfrmDCSumm.mnuViewInformationClick(Sender: TObject); +begin + inherited; + mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled; + mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled; + mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled; + mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No'); + mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No'); + mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled; + mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled; + mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled; + mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled; +end; + +initialization + uPCEEdit := TPCEData.Create; + uPCEShow := TPCEData.Create; + +finalization + uPCEEdit.Free; + uPCEShow.Free; + +end. \ No newline at end of file diff --git a/CPRS-Chart/fDCSummProps.dfm b/CPRS-Chart/fDCSummProps.dfm new file mode 100644 index 0000000..a5288dd --- /dev/null +++ b/CPRS-Chart/fDCSummProps.dfm @@ -0,0 +1,357 @@ +object 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 + PixelsPerInch = 96 + TextHeight = 13 + object bvlConsult: TBevel + Tag = 1 + Left = 6 + Top = 119 + Width = 483 + Height = 2 + end + object pnlFields: TORAutoPanel + Left = 0 + Top = 0 + Width = 498 + Height = 218 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object lblNewTitle: TLabel + Left = 7 + Top = 15 + Width = 120 + Height = 13 + Alignment = taRightJustify + Caption = 'Discharge Summary Title:' + end + object lblDateTime: TLabel + Left = 28 + Top = 141 + Width = 99 + Height = 13 + Alignment = taRightJustify + Caption = 'Dictation Date/Time:' + end + object lblAuthor: TLabel + Left = 51 + Top = 167 + Width = 76 + Height = 13 + Alignment = taRightJustify + Caption = 'Author/Dictator:' + end + object lblCosigner: TLabel + Left = 31 + Top = 194 + Width = 96 + Height = 13 + Alignment = taRightJustify + Caption = 'Attending Physician:' + end + object cboNewTitle: TORComboBox + Left = 148 + Top = 11 + Width = 347 + Height = 118 + Style = orcsSimple + AutoSelect = True + Caption = 'Discharge Summary Title:' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + Pieces = '2' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnDblClick = cboNewTitleDblClick + OnDropDownClose = cboNewTitleDropDownClose + OnEnter = cboNewTitleEnter + OnExit = cboNewTitleExit + OnMouseClick = cboNewTitleMouseClick + OnNeedData = cboNewTitleNeedData + CharsNeedMatch = 1 + end + object calSumm: TORDateBox + Left = 148 + Top = 138 + Width = 140 + Height = 21 + TabOrder = 1 + DateOnly = False + RequireTime = False + Caption = 'Dictation Date/Time:' + end + object cboAuthor: TORComboBox + Left = 148 + Top = 164 + Width = 239 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Author/Dictator:' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + LookupPiece = 2 + MaxLength = 0 + ParentShowHint = False + Pieces = '2,3' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabOrder = 2 + OnEnter = cboAuthorEnter + OnExit = cboAuthorExit + OnMouseClick = cboAuthorMouseClick + OnNeedData = cboAuthorNeedData + CharsNeedMatch = 1 + end + object cboAttending: TORComboBox + Left = 148 + Top = 191 + Width = 239 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Attending Physician:' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + LookupPiece = 2 + MaxLength = 0 + ParentShowHint = False + Pieces = '2,3' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabOrder = 3 + OnExit = cboAttendingExit + OnNeedData = cboAttendingNeedData + CharsNeedMatch = 1 + end + object cmdOK: TButton + Left = 411 + Top = 165 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 4 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 411 + Top = 190 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 5 + OnClick = cmdCancelClick + end + end + object pnlTranscription: TORAutoPanel + Left = 0 + Top = 218 + Width = 498 + Height = 63 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + Visible = False + object lblTranscriptionist: TLabel + Left = 53 + Top = 13 + Width = 71 + Height = 13 + Alignment = taRightJustify + Caption = 'Transcriptionist' + end + object lblUrgency: TLabel + Left = 84 + Top = 38 + Width = 40 + Height = 13 + Alignment = taRightJustify + Caption = 'Urgency' + end + object cboTranscriptionist: TORComboBox + Left = 148 + Top = 7 + Width = 239 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Transcriptionist' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 2 + MaxLength = 0 + ParentShowHint = False + Pieces = '2,3' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnNeedData = cboAuthorNeedData + CharsNeedMatch = 1 + end + object cboUrgency: TORComboBox + Left = 148 + Top = 37 + Width = 121 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Caption = 'Urgency' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 1 + CharsNeedMatch = 1 + end + end + object pnlAdmissions: TORAutoPanel + Left = 0 + Top = 327 + Width = 498 + Height = 110 + Align = alClient + AutoSize = True + BevelOuter = bvNone + TabOrder = 2 + Visible = False + object lstAdmissions: TORListBox + Left = 0 + Top = 0 + Width = 498 + Height = 110 + Align = alClient + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + Caption = 'Associated Admission' + ItemTipColor = clWindow + LongList = False + Pieces = '3,5,4,9' + TabPositions = '20' + OnChange = lstAdmissionsChange + end + end + object pnlLabels: TORAutoPanel + Left = 0 + Top = 281 + Width = 498 + Height = 46 + Align = alTop + AutoSize = True + BevelOuter = bvNone + TabOrder = 3 + Visible = False + DesignSize = ( + 498 + 46) + object lblLocation: TLabel + Left = 1 + Top = 33 + Width = 41 + Height = 13 + Caption = 'Location' + end + object lblDate: TLabel + Left = 133 + Top = 33 + Width = 73 + Height = 13 + Caption = 'Admission Date' + end + object lblType: TLabel + Left = 249 + Top = 33 + Width = 24 + Height = 13 + Caption = 'Type' + end + object lblSummStatus: TLabel + Left = 336 + Top = 33 + Width = 127 + Height = 13 + Caption = 'Discharge Summary Status' + end + object lblDCSumm1: TStaticText + Tag = 1 + Left = 81 + Top = 0 + Width = 300 + Height = 17 + Anchors = [] + Caption = 'This discharge summary must be associated with an admission.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object lblDCSumm2: TStaticText + Tag = 1 + Left = 120 + Top = 14 + Width = 207 + Height = 17 + Anchors = [] + Caption = 'Select one of the following or press cancel.' + TabOrder = 1 + end + end +end diff --git a/CPRS-Chart/fDCSummProps.pas b/CPRS-Chart/fDCSummProps.pas new file mode 100644 index 0000000..675a8de --- /dev/null +++ b/CPRS-Chart/fDCSummProps.pas @@ -0,0 +1,522 @@ +unit fDCSummProps; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORDtTm, ORCtrls, ExtCtrls, uConst, rTIU, rDCSumm, uDocTree, uDCSumm, uTIU; + +type + TfrmDCSummProperties = class(TForm) + bvlConsult: TBevel; + pnlFields: TORAutoPanel; + lblNewTitle: TLabel; + lblDateTime: TLabel; + lblAuthor: TLabel; + lblCosigner: TLabel; + cboNewTitle: TORComboBox; + calSumm: TORDateBox; + cboAuthor: TORComboBox; + cboAttending: TORComboBox; + pnlTranscription: TORAutoPanel; + lblTranscriptionist: TLabel; + lblUrgency: TLabel; + cboTranscriptionist: TORComboBox; + cboUrgency: TORComboBox; + pnlAdmissions: TORAutoPanel; + cmdOK: TButton; + cmdCancel: TButton; + pnlLabels: TORAutoPanel; + lblDCSumm1: TStaticText; + lblDCSumm2: TStaticText; + lblLocation: TLabel; + lblDate: TLabel; + lblType: TLabel; + lblSummStatus: TLabel; + lstAdmissions: TORListBox; + procedure FormShow(Sender: TObject); + procedure cboNewTitleNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboAuthorNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cboAttendingNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cboNewTitleExit(Sender: TObject); + procedure cboNewTitleMouseClick(Sender: TObject); + procedure cboNewTitleEnter(Sender: TObject); + procedure cboAttendingExit(Sender: TObject); + procedure cboAuthorExit(Sender: TObject); + procedure cboAuthorMouseClick(Sender: TObject); + procedure cboAuthorEnter(Sender: TObject); + procedure cboNewTitleDropDownClose(Sender: TObject); + procedure lstAdmissionsChange(Sender: TObject); + procedure cboNewTitleDblClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + FCosignIEN: Int64; // store cosigner that was passed in + FCosignName: string; // store cosigner that was passed in + FDocType: Integer; // store document type that was passed in + FAddend: Integer; // store IEN of note being addended (if make addendum) + FLastAuthor: Int64; // set by mouseclick to avoid redundant call on exit + FLastTitle: Integer; // set by mouseclick to avoid redundant call on exit + FAdmitDateTime: string ; + FLocation: integer; + FLocationName: string; + FVisitStr: string; + FEditIEN: integer; + //FFixCursor: Boolean; // to fix the problem where the list box is an I-bar + FLastCosigner: Int64; // holds cosigner from previous note (for defaulting) + FLastCosignerName: string; // holds cosigner from previous note (for defaulting) + FShowAdmissions: Boolean; + FIDNoteTitlesOnly: boolean; + procedure SetCosignerRequired; + procedure ShowAdmissionList; + procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT; + public + { Public declarations } + end; + +function ExecuteDCSummProperties(var ASumm: TEditDCSummRec; var ListBoxItem: string; ShowAdmissions, IDNoteTitlesOnly: boolean): Boolean; + +var + EditLines: TStringList; + +implementation + +{$R *.DFM} + +uses ORFn, uCore, rCore, uPCE, rPCE, rMisc; +{ Initial values in ASumm + + Title Type Author DateTime Cosigner Location Consult NeedCPT + New DCSumm dflt 244 DUZ NOW dflt Encnt 0 ? + Edit DCSumm ien 244 ien DtTm ien ien ien fld + Addend DCSumm ien 81 DUZ NOW 0 N/A N/A? no + + New Summ - setup as much as possible, then call ExecuteDCSummProperties if necessary. + +} + +const + TC_REQ_FIELDS = 'Required Information'; + TX_REQ_TITLE = CRLF + 'A title must be selected.'; + TX_REQ_AUTHOR = CRLF + 'The author of the note must be identified.'; + TX_REQ_REFDATE = CRLF + 'A valid date/time for the note must be entered.'; + TX_REQ_COSIGNER = CRLF + 'An attending must be identified.'; + TX_NO_FUTURE = CRLF + 'A reference date/time in the future is not allowed.'; + TX_COS_SELF = CRLF + 'You cannot make yourself a cosigner.'; + TX_COS_AUTH = CRLF + ' is not authorized to cosign this document.'; + TX_BAD_ADMISSION = CRLF + 'Admission information is missing or invalid.'; + TX_NO_ADMISSION = CRLF + 'An admission must be selected'; + TX_NO_MORE_SUMMS = CRLF + 'Only one discharge summary may be written for each admission.'; + TC_NO_EDIT = 'Unable to Edit'; + TC_EDIT_EXISTING = 'Unsigned document in progress'; + TX_EDIT_EXISTING = 'Would you like to continue editing the existing unsigned summary for this admission?'; + +function ExecuteDCSummProperties(var ASumm: TEditDCSummRec; var ListBoxItem: string; ShowAdmissions, IDNoteTitlesOnly: boolean): Boolean; +var + frmDCSummProperties: TfrmDCSummProperties; + x: string; +begin + frmDCSummProperties := TfrmDCSummProperties.Create(Application); + EditLines := TStringList.Create; + try + ResizeAnchoredFormToFont(frmDCSummProperties); + with frmDCSummProperties do + begin + // setup common fields (title, reference date, author) + FShowAdmissions := ShowAdmissions; + FIDNoteTitlesOnly := IDNoteTitlesOnly; + pnlTranscription.Visible := False; {was never used on old form} + if not pnlTranscription.Visible then + begin + Height := Height - pnlTranscription.Height; + Top := Top - pnlTranscription.Height; + end; + Height := Height - pnlAdmissions.Height - pnlLabels.Height; + if ASumm.DocType <> TYP_ADDENDUM then + begin + cboNewTitle.InitLongList(''); + ListDCSummTitlesShort(cboNewTitle.Items); + end + else //if addendum + cboNewTitle.Items.Insert(0, IntToStr(ASumm.Title) + U + ASumm.TitleName); + if ASumm.Title > 0 then cboNewTitle.SelectByIEN(ASumm.Title); + if (ASumm.Title > 0) and (cboNewTitle.ItemIndex < 0) + then cboNewTitle.SetExactByIEN(ASumm.Title, ASumm.TitleName); + cboAuthor.InitLongList(ASumm.DictatorName); + if ASumm.Dictator > 0 then cboAuthor.SelectByIEN(ASumm.Dictator); + cboUrgency.Items.Assign(LoadDCUrgencies); + 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; + FDocType := ASumm.DocType; + FLastCosigner := ASumm.LastCosigner; + FLastCosignerName := ASumm.LastCosignerName; + FEditIEN := 0; + // restrict edit of title if addendum + if FDocType = TYP_ADDENDUM then + begin + lblNewTitle.Caption := 'Addendum to:'; + cboNewTitle.Caption := 'Addendum to:'; + cboNewTitle.Enabled := False; + cboNewTitle.Color := clBtnFace; + end; + Result := ShowModal = idOK; // display the form + if Result then with ASumm do + begin + if FDocType <> TYP_ADDENDUM then + begin + Title := cboNewTitle.ItemIEN; + TitleName := PrintNameForTitle(Title); + end; + Urgency := cboUrgency.ItemID; + DictDateTime := calSumm.FMDateTime; + Dictator := cboAuthor.ItemIEN; + DictatorName := Piece(cboAuthor.Items[cboAuthor.ItemIndex], U, 2); + Attending := cboAttending.ItemIEN; + AttendingName := Piece(cboAttending.Items[cboAttending.ItemIndex], U, 2); + if Attending = Dictator then Cosigner := 0 else + begin + Cosigner := cboAttending.ItemIEN; + CosignerName := Piece(cboAttending.Items[cboAttending.ItemIndex], U, 2); + // The LastCosigner fields are used to default the cosigner in subsequent notes. + // These fields are not reset with new notes & not passed into TIU. + LastCosigner := Cosigner; + LastCosignerName := CosignerName; + end; + Transcriptionist := cboTranscriptionist.ItemIEN; + if FShowAdmissions then + begin + AdmitDateTime := StrToFMDateTime(FAdmitDateTime); + DischargeDateTime := StrToFMDateTime(GetDischargeDate(Patient.DFN, FAdmitDateTime)); + if DischargeDateTime <= 0 then DischargeDateTime := FMNow; + Location := FLocation; + LocationName := FLocationName; + VisitStr := IntToStr(Location) + ';' + FloatToStr(AdmitDateTime) + ';H' ; + end; + EditIEN := FEditIEN; + if FEditIEN > 0 then + begin + x := GetTIUListItem(FEditIEN); + ListBoxItem := x; + if Lines = nil then Lines := TStringList.Create; + Lines.Assign(EditLines); + end + else + begin + ListBoxItem := ''; + end; + end; + // The following fields in TEditDCSummRec are not set: + // DocType, NeedCPT, Lines (unless editing an existing summary) + end; + finally + EditLines.Free; + frmDCSummProperties.Release; + end; +end; + +{ Form events } + +procedure TfrmDCSummProperties.FormShow(Sender: TObject); +begin + SetFormPosition(Self); + //if cboNewTitle.Text = '' then PostMessage(Handle, UM_DELAYEVENT, 0, 0); +end; + +procedure TfrmDCSummProperties.UMDelayEvent(var Message: TMessage); +{ let the window finish displaying before dropping list box, otherwise listbox drop + in the design position rather then new windows position (ORCtrls bug?) } +begin +(* Screen.Cursor := crArrow; + FFixCursor := TRUE; + cboNewTitle.DroppedDown := True; + lblDateTime.Visible := False; + lblAuthor.Visible := False; + lblCosigner.Visible := False;*) +end; + +{ General calls } + +procedure TfrmDCSummProperties.SetCosignerRequired; +{ called initially & whenever title or author changes } +begin +(* if FDocType = TYP_ADDENDUM then + begin + lblCosigner.Visible := AskCosignerForDocument(FAddend, cboAuthor.ItemIEN) + end else + begin + if cboNewTitle.ItemIEN = 0 + then lblCosigner.Visible := AskCosignerForTitle(FDocType, cboAuthor.ItemIEN) + else lblCosigner.Visible := AskCosignerForTitle(cboNewTitle.ItemIEN, cboAuthor.ItemIEN); + end;*) + lblCosigner.Visible := True; + cboAttending.Visible := lblCosigner.Visible; +end; + +procedure TfrmDCSummProperties.ShowAdmissionList; +var + i, Status: integer; + x: string; +begin + with lstAdmissions do + begin + ListAdmitAll(Items, Patient.DFN); + if Items.Count > 0 then + begin + for i := 0 to Items.Count-1 do + begin + x := Items[i]; + SetPiece(x, '^', 8, FormatFMDateTimeStr('mmm dd,yyyy hh:nn', Piece(Items[i],U,1))); + Status := StrToIntDef(Piece(Items[i],U,7),0); + case Status of + 0: x := x + '^None on file'; + 1: x := x + '^Completed'; + 2: x := x + '^Unsigned'; + end; + Items[i] := x; + end; + end + else + FAdmitDateTime := '-1^No admissions were found for this patient.'; + end; +end; + +{ cboNewTitle events } + +procedure TfrmDCSummProperties.cboNewTitleNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + cboNewTitle.ForDataUse(SubSetOfDCSummTitles(StartFrom, Direction, FIDNoteTitlesOnly)); +end; + +procedure TfrmDCSummProperties.cboNewTitleEnter(Sender: TObject); +begin + FLastTitle := 0; +end; + +procedure TfrmDCSummProperties.cboNewTitleMouseClick(Sender: TObject); +begin + with cboNewTitle do + if (ItemIEN > 0) and (ItemIEN = FLastTitle) then Exit + else if ItemIEN = 0 then + begin + if FLastTitle > 0 then SelectByIEN(FLastTitle) + else ItemIndex := -1; + Exit; + end; + SetCosignerRequired; + if FShowAdmissions and (not pnlAdmissions.Visible) then + begin + Height := Height + pnlAdmissions.Height + pnlLabels.Height; + pnlAdmissions.Visible := True; + pnlLabels.Visible := True; + end; + FLastTitle := cboNewTitle.ItemIEN; +end; + +procedure TfrmDCSummProperties.cboNewTitleExit(Sender: TObject); +begin + if cboNewTitle.ItemIEN <> FLastTitle then cboNewTitleMouseClick(Self); +end; + +{ cboAuthor & cboAttending events } + +procedure TfrmDCSummProperties.cboAuthorNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); +begin + (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction)); +end; + +procedure TfrmDCSummProperties.cboAttendingNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); +begin // changed in v15.2, per BRX-1100-10981 +// (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction)); + (Sender as TORComboBox).ForDataUse(SubSetOfProviders(StartFrom, Direction)); +end; + +procedure TfrmDCSummProperties.cboAuthorEnter(Sender: TObject); +begin + FLastAuthor := 0; +end; + +procedure TfrmDCSummProperties.cboAuthorMouseClick(Sender: TObject); +begin + SetCosignerRequired; + FLastAuthor := cboAuthor.ItemIEN; +end; + +procedure TfrmDCSummProperties.cboAuthorExit(Sender: TObject); +begin + if cboAuthor.ItemIEN <> FLastAuthor then cboAuthorMouseClick(Self); +end; + +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); +end; + +{ Command Button events } + +procedure TfrmDCSummProperties.cmdOKClick(Sender: TObject); +var + ErrMsg, x, WhyNot: string; +begin + cmdOK.SetFocus; // make sure cbo exit events fire + Application.ProcessMessages; + SetCosignerRequired; + ErrMsg := ''; + if cboNewTitle.ItemIEN = 0 then + ErrMsg := ErrMsg + TX_REQ_TITLE + else if FIDNoteTitlesOnly and (not CanTitleBeIDChild(cboNewTitle.ItemIEN, WhyNot)) then + ErrMsg := ErrMsg + CRLF + WhyNot; + if cboAuthor.ItemIEN = 0 then ErrMsg := ErrMsg + TX_REQ_AUTHOR; + if not calSumm.IsValid then ErrMsg := ErrMsg + TX_REQ_REFDATE; + 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; + if pnlAdmissions.Visible then + with lstAdmissions do + begin + if ItemIndex < 0 then + ErrMsg := TX_NO_ADMISSION + else if (Piece(x, U, 7) = '1') then + begin + x := Items[ItemIndex]; + FVisitStr := Piece(x, U, 2) + ';' + Piece(x, U, 1) + ';H'; + if (OneNotePerVisit(cboNewTitle.ItemIEN, Patient.DFN, FVisitStr)) then + begin + FEditIEN := 0; + InfoBox(TX_NO_MORE_SUMMS, TC_NO_EDIT, MB_OK); + lstAdmissions.ItemIndex := -1; + end; + end + else + begin + x := Items[ItemIndex]; + FAdmitDateTime := Piece(x,U,1); + FLocation := StrToIntDef(Piece(x, U, 2), 0); + if (MakeFMDateTime(FAdmitDateTime)= -1) or (FLocation = 0) then + ErrMsg := TX_BAD_ADMISSION + else + FLocationName := ExternalName(FLocation, 44); + end; + end; + + if ShowMsgOn(Length(ErrMsg) > 0, ErrMsg, TC_REQ_FIELDS) + then Exit + else ModalResult := mrOK; +end; + +procedure TfrmDCSummProperties.cmdCancelClick(Sender: TObject); +begin + ModalResult := mrCancel; + Close; +end; + +procedure TfrmDCSummProperties.cboNewTitleDropDownClose(Sender: TObject); +begin +(* if FFixCursor then + begin + Screen.Cursor := crDefault; + FFixCursor := FALSE; + end; + lblDateTime.Visible := True; + lblAuthor.Visible := True; + lblCosigner.Visible := True;*) +end; + +procedure TfrmDCSummProperties.lstAdmissionsChange(Sender: TObject); +var + x: string; + AnEditSumm: TEditDCSummRec; + ActionSts: TActionRec; +begin + if lstAdmissions.ItemIndex < 0 then Exit; + x := lstAdmissions.Items[lstAdmissions.ItemIndex]; + if (StrToIntDef(Piece(x, U, 7), 0) = 2) then + begin + { Prompt for edit first - proceed as below if yes, else proceed as if '1'} + if InfoBox(TX_EDIT_EXISTING, TC_EDIT_EXISTING, MB_YESNO) = MRYES then + begin + FillChar(AnEditSumm, SizeOf(AnEditSumm), 0); + FEditIEN := StrToInt(Piece(x,U,6)); + ActOnDCDocument(ActionSts, FEditIEN, 'EDIT RECORD'); + if not ActionSts.Success then + begin + InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK); + lstAdmissions.ItemIndex := -1; + Exit; + end; + GetDCSummForEdit(AnEditSumm, FEditIEN); + EditLines.Assign(AnEditSumm.Lines); + cboNewTitle.InitLongList(AnEditSumm.TitleName); + ListDCSummTitlesShort(cboNewTitle.Items); + 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); + cboUrgency.SelectByID('R'); + cboAttending.InitLongList(AnEditSumm.AttendingName); + if AnEditSumm.Attending > 0 then cboAttending.SelectByIEN(AnEditSumm.Attending); + calSumm.FMDateTime := AnEditSumm.DictDateTime; + end + else // if user answers NO to edit existing document, can new one be created? + begin + FVisitStr := Piece(x, U, 2) + ';' + Piece(x, U, 1) + ';H'; + if (OneNotePerVisit(cboNewTitle.ItemIEN, Patient.DFN, FVisitStr)) then + begin + FEditIEN := 0; + InfoBox(TX_NO_MORE_SUMMS, TC_NO_EDIT, MB_OK); + lstAdmissions.ItemIndex := -1; + end; + end; + end + else if Piece(x, U, 7) = '1' then + begin + FVisitStr := Piece(x, U, 2) + ';' + Piece(x, U, 1) + ';H'; + if (OneNotePerVisit(cboNewTitle.ItemIEN, Patient.DFN, FVisitStr)) then + begin + FEditIEN := 0; + InfoBox(TX_NO_MORE_SUMMS, TC_NO_EDIT, MB_OK); + lstAdmissions.ItemIndex := -1; + end; + end + else + begin + FEditIEN := 0; +(* cboNewTitle.ItemIndex := -1; + cboAttending.ItemIndex := -1; + calSumm.FMDateTime := FMNow;*) + end; +end; + +procedure TfrmDCSummProperties.cboNewTitleDblClick(Sender: TObject); +begin + cmdOKClick(Self); +end; + +procedure TfrmDCSummProperties.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + SaveUserBounds(Self); +end; + +end. diff --git a/CPRS-Chart/fDateRange.dfm b/CPRS-Chart/fDateRange.dfm new file mode 100644 index 0000000..df80c7a --- /dev/null +++ b/CPRS-Chart/fDateRange.dfm @@ -0,0 +1,77 @@ +inherited frmDateRange: TfrmDateRange + Left = 460 + Top = 262 + Width = 282 + Height = 159 + Caption = 'Date Range' + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object lblStart: TLabel + Left = 8 + Top = 44 + Width = 53 + Height = 13 + Caption = 'Begin Date' + end + object lblStop: TLabel + Left = 145 + Top = 44 + Width = 45 + Height = 13 + Caption = 'End Date' + end + object lblInstruct: TOROffsetLabel + Left = 0 + Top = 0 + Width = 274 + Height = 37 + Align = alTop + Caption = 'Select a date range -' + HorzOffset = 8 + Transparent = False + VertOffset = 8 + WordWrap = True + end + object txtStart: TORDateBox + Left = 8 + Top = 58 + Width = 121 + Height = 21 + TabOrder = 0 + DateOnly = False + RequireTime = False + Caption = 'Begin Date' + end + object txtStop: TORDateBox + Left = 145 + Top = 58 + Width = 121 + Height = 21 + TabOrder = 1 + DateOnly = False + RequireTime = False + Caption = 'End Date' + end + object cmdOK: TButton + Left = 114 + Top = 103 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 2 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 194 + Top = 103 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 3 + OnClick = cmdCancelClick + end +end diff --git a/CPRS-Chart/fDateRange.pas b/CPRS-Chart/fDateRange.pas new file mode 100644 index 0000000..dcaaa86 --- /dev/null +++ b/CPRS-Chart/fDateRange.pas @@ -0,0 +1,118 @@ +unit fDateRange; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, ORCtrls, StdCtrls, ORFn, ORDtTm; + +type + TfrmDateRange = class(TfrmAutoSz) + txtStart: TORDateBox; + txtStop: TORDateBox; + lblStart: TLabel; + lblStop: TLabel; + cmdOK: TButton; + cmdCancel: TButton; + lblInstruct: TOROffsetLabel; + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + OKPressed: Boolean; + Flags: string; + end; + +function ExecuteDateRange(var Start, Stop: string; const AFlag, ATitle, Instruct, + StartLabel, StopLabel: string): Boolean; + +implementation + +{$R *.DFM} + +uses rCore; + +const + TX_INVALID_DATE = 'The date/time entered could not be validated.'; + TC_INVALID_DATE = 'Unable to interpret date/time entry.'; + +function ExecuteDateRange(var Start, Stop: string; const AFlag, ATitle, Instruct, + StartLabel, StopLabel: string): Boolean; +var + frmDateRange: TfrmDateRange; +begin + Result := False; + frmDateRange := TfrmDateRange.Create(Application); + try + ResizeFormToFont(TForm(frmDateRange)); + with frmDateRange do + begin + if Flags <> '' then Flags := AFlag; + if ATitle <> '' then Caption := ATitle; + if Instruct <> '' then lblInstruct.Caption := Instruct; + if StartLabel <> '' then lblStart.Caption := StartLabel; + if StopLabel <> '' then lblStop.Caption := StopLabel; + txtStart.Text := Start; + txtStop.Text := Stop; + ShowModal; + if OKPressed then + begin + Start := txtStart.Text; + Stop := txtStop.Text; + Result := True; + end; + end; + finally + frmDateRange.Release; + end; +end; + +procedure TfrmDateRange.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmDateRange.cmdOKClick(Sender: TObject); +const + TX_BAD_START = 'The start date is not valid.'; + TX_BAD_STOP = 'The stop date is not valid.'; + TX_STOPSTART = 'The stop date must be after the start date.'; +var + x, ErrMsg: string; +begin + inherited; + ErrMsg := ''; + txtStart.Validate(x); + if Length(x) > 0 then ErrMsg := ErrMsg + TX_BAD_START + CRLF; + with txtStop do + begin + Validate(x); + if Length(x) > 0 then ErrMsg := ErrMsg + TX_BAD_STOP + CRLF; + if (Length(Text) > 0) and (FMDateTime <= txtStart.FMDateTime) + then ErrMsg := ErrMsg + TX_STOPSTART; + end; + if Length(ErrMsg) > 0 then + begin + InfoBox(ErrMsg, TC_INVALID_DATE, MB_OK); + Exit; + end; + +// if ((Length(txtStart.Text) > 0) and (ValidDateTimeStr(txtStart.Text, Flags) < 0)) +// or ((Length(txtStop.Text) > 0) and (ValidDateTimeStr(txtStop.Text, Flags) < 0)) then +// begin +// InfoBox(TX_INVALID_DATE, TC_INVALID_DATE, MB_OK); +// Exit; +// end; + + OKPressed := True; + Close; +end; + +procedure TfrmDateRange.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +end. diff --git a/CPRS-Chart/fDefaultEvent.dfm b/CPRS-Chart/fDefaultEvent.dfm new file mode 100644 index 0000000..9520412 --- /dev/null +++ b/CPRS-Chart/fDefaultEvent.dfm @@ -0,0 +1,91 @@ +object 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 + Left = 0 + Top = 0 + Width = 394 + Height = 25 + Align = alTop + TabOrder = 0 + object lblCaption: TLabel + Left = 1 + Top = 1 + Width = 392 + Height = 23 + Align = alClient + Caption = + ' Select an event from the following list as your personal defaul' + + 't release event:' + WordWrap = True + end + end + object cboEvents: TORComboBox + Left = 0 + Top = 25 + Width = 394 + Height = 261 + Style = orcsSimple + Align = alClient + AutoSelect = False + Caption = + ' Select an event from the following list as your personal defaul' + + 't release event:' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = False + MaxLength = 0 + ParentShowHint = False + Pieces = '9' + ShowHint = True + Sorted = True + SynonymChars = '<>' + TabOrder = 1 + CheckEntireLine = True + end + object pnlBottom: TPanel + Left = 0 + Top = 286 + Width = 394 + Height = 31 + Align = alBottom + TabOrder = 2 + object btnOK: TButton + Left = 212 + Top = 6 + Width = 75 + Height = 20 + Caption = 'OK' + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 296 + Top = 6 + Width = 75 + Height = 20 + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = btnCancelClick + end + end +end diff --git a/CPRS-Chart/fDefaultEvent.pas b/CPRS-Chart/fDefaultEvent.pas new file mode 100644 index 0000000..6a8bd4e --- /dev/null +++ b/CPRS-Chart/fDefaultEvent.pas @@ -0,0 +1,128 @@ +unit fDefaultEvent; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ExtCtrls, rOrders, ORFn, uCore; + +type + TfrmDefaultEvent = class(TForm) + pnlTop: TPanel; + lblCaption: TLabel; + cboEvents: TORComboBox; + pnlBottom: TPanel; + btnOK: TButton; + btnCancel: TButton; + procedure btnCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure btnOKClick(Sender: TObject); + private + OKPressed: boolean; + FDefaultEvtName: string; + FPreDefaultEvtID: string; + FPreDefaultEvtName: string; + public + { Public declarations } + end; + +function ExcueteDefaultEvntSetting: string; + +var + frmDefaultEvent: TfrmDefaultEvent; + +implementation + +{$R *.DFM} + +function ExcueteDefaultEvntSetting: string; +var + frmDefaultEvent: TfrmDefaultEvent; +begin + frmDefaultEvent := TfrmDefaultEvent.Create(Application); + try + ResizeAnchoredFormToFont(frmDefaultEvent); + frmDefaultEvent.ShowModal; + Result := frmDefaultEvent.FDefaultEvtName; + finally + frmDefaultEvent.Free; + end; +end; + +procedure TfrmDefaultEvent.btnCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmDefaultEvent.FormCreate(Sender: TObject); +var + i : integer; +begin + FPreDefaultEvtID := ''; + FPreDefaultEvtName := ''; + FDefaultEvtName := ''; + FPreDefaultEvtID := GetDefaultEvt(IntToStr(User.DUZ)); + ListSpecialtiesED(#0,cboEvents.Items); + with cboEvents do + begin + for i := 0 to Items.Count - 1 do + begin + if FPreDefaultEvtID = Piece(Items[i],'^',1) then + begin + ItemIndex := i; + FPreDefaultEvtName := Piece(Items[i],'^',9); + if Length(FPreDefaultEvtName)<1 then + FPreDefaultEvtName := Piece(Items[i],'^',2); + break; + end; + end; + end; + OKPressed := False; +end; + +procedure TfrmDefaultEvent.btnOKClick(Sender: TObject); +const + TXT_1 = 'Would you like to change the default event from "'; + TXT_2 = '" to "'; + TXT_3 = 'Would you like set your default event to "'; +var + errMsg: string; +begin + if cboEvents.ItemIndex < 0 then + begin + ShowMessage('You have to select an event first!'); + Exit; + end; + if (Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1) <> FPreDefaultEvtID) and ( Length(FPreDefaultEvtID)>0 )then + begin + if InfoBox(TXT_1 + FPreDefaultEvtName + TXT_2 + cboEvents.Text + '"?','Warning', MB_OKCANCEL or MB_ICONWARNING) = IDOK then + begin + errMsg := ''; + SetDefaultEvent(errMsg, Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1)); + if length(errMsg)>0 then + ShowMessage(errMsg) + else + ShowMessage('The default release event "' + cboEvents.Text + '" has been set successfully!'); + FDefaultEvtName := cboEvents.Text; + OKPressed := True; + Close; + end; + end + else if (Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1) <> FPreDefaultEvtID) and ( Length(FPreDefaultEvtID)=0 )then + begin + if InfoBox(TXT_3 + cboEvents.Text + '"?','Warning', MB_OKCANCEL or MB_ICONWARNING) = IDOK then + begin + errMsg := ''; + SetDefaultEvent(errMsg, Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1)); + if length(errMsg)>0 then + ShowMessage(errMsg) + else + ShowMessage('The default release event "' + cboEvents.Text + '" has been set successfully!'); + FDefaultEvtName := cboEvents.Text; + OKPressed := True; + Close; + end; + end; +end; + +end. diff --git a/CPRS-Chart/fDeviceSelect.dfm b/CPRS-Chart/fDeviceSelect.dfm new file mode 100644 index 0000000..32f74f9 --- /dev/null +++ b/CPRS-Chart/fDeviceSelect.dfm @@ -0,0 +1,143 @@ +object 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 + PixelsPerInch = 96 + TextHeight = 13 + object lblPrintTo: TLabel + Left = 8 + Top = 276 + Width = 3 + Height = 13 + end + object grpDevice: TGroupBox + Left = 0 + Top = 0 + Width = 415 + Height = 194 + Align = alClient + Caption = 'Device' + TabOrder = 0 + object cboDevice: TORComboBox + Left = 2 + Top = 15 + Width = 411 + Height = 145 + Style = orcsSimple + Align = alClient + AutoSelect = True + Caption = 'Device' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = True + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + Pieces = '2,4' + ShowHint = True + Sorted = False + SynonymChars = '<>' + TabPositions = '30' + TabOrder = 0 + OnChange = cboDeviceChange + OnNeedData = cboDeviceNeedData + end + object pnlGBBottom: TPanel + Left = 2 + Top = 160 + Width = 411 + Height = 32 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + object lblMargin: TLabel + Left = 8 + Top = 12 + Width = 60 + Height = 13 + Caption = 'Right Margin' + end + object lblLength: TLabel + Left = 120 + Top = 12 + Width = 61 + Height = 13 + Caption = 'Page Length' + end + object txtRightMargin: TMaskEdit + Left = 72 + Top = 6 + Width = 33 + Height = 19 + AutoSize = False + EditMask = '99999;0; ' + MaxLength = 5 + TabOrder = 0 + end + object txtPageLength: TMaskEdit + Left = 184 + Top = 6 + Width = 34 + Height = 19 + AutoSize = False + EditMask = '99999;0; ' + MaxLength = 5 + TabOrder = 1 + end + end + end + object pnlBottom: TPanel + Left = 0 + Top = 194 + Width = 415 + Height = 41 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + object cmdOK: TButton + Left = 257 + Top = 11 + Width = 72 + Height = 22 + Caption = 'OK' + Default = True + TabOrder = 0 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 337 + Top = 11 + Width = 72 + Height = 22 + Cancel = True + Caption = 'Cancel' + TabOrder = 1 + OnClick = cmdCancelClick + end + object chkDefault: TCheckBox + Left = 12 + Top = 16 + Width = 163 + Height = 17 + Caption = 'Save as user'#39's default printer' + TabOrder = 2 + end + end +end diff --git a/CPRS-Chart/fDeviceSelect.pas b/CPRS-Chart/fDeviceSelect.pas new file mode 100644 index 0000000..f828ba3 --- /dev/null +++ b/CPRS-Chart/fDeviceSelect.pas @@ -0,0 +1,162 @@ +unit fDeviceSelect; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ExtCtrls; + +type + TfrmDeviceSelect = class(TfrmAutoSz) + grpDevice: TGroupBox; + cboDevice: TORComboBox; + pnlBottom: TPanel; + cmdOK: TButton; + cmdCancel: TButton; + chkDefault: TCheckBox; + pnlGBBottom: TPanel; + lblMargin: TLabel; + txtRightMargin: TMaskEdit; + lblLength: TLabel; + txtPageLength: TMaskEdit; + procedure cboDeviceChange(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + 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); + private + FWinPrint: Boolean; + end; + +var + frmDeviceSelect: TfrmDeviceSelect; + ADevice: string; + +function SelectDevice(Sender: TObject; ALocation: integer; AllowWindowsPrinter: boolean; ACaption: String): string ; + +implementation + +{$R *.DFM} + +uses ORFn, rCore, uCore, rReports, Printers, fFrame, rMisc; + +const + TX_NODEVICE = 'A device must be selected to print, or press ''Cancel'' to not print.'; + TX_NODEVICE_CAP = 'Device Not Selected'; + TX_ERR_CAP = 'Print Error'; + +function SelectDevice(Sender: TObject; ALocation: integer; AllowWindowsPrinter: boolean; ACaption: String): string ; +{ displays a form that prompts for a device} +var + frmDeviceSelect: TfrmDeviceSelect; + DefPrt: string; +begin + frmDeviceSelect := TfrmDeviceSelect.Create(Application); + try + ResizeFormToFont(TForm(frmDeviceSelect)); + with frmDeviceSelect do + begin + FWinPrint := AllowWindowsPrinter; + with cboDevice do + begin + if (FWinPrint) and (Printer.Printers.Count > 0) then + begin + Items.Add('WIN;Windows Printer^Windows Printer'); + Items.Add('^--------------------VistA Printers----------------------'); + end; + end; + if Sender <> frmFrame then + begin + DefPrt := User.CurrentPrinter; + if DefPrt = '' then DefPrt := GetDefaultPrinter(User.Duz, Encounter.Location); + if DefPrt <> '' then + begin + if (not FWinPrint) then + begin + if (DefPrt <> 'WIN;Windows Printer') then + begin + cboDevice.InitLongList(Piece(DefPrt, ';', 2)); + cboDevice.SelectByID(DefPrt); + end + else + cboDevice.InitLongList(''); + end + else if FWinprint then + begin + cboDevice.InitLongList(Piece(DefPrt, ';', 2)); + cboDevice.SelectByID(DefPrt); + end; + end + else + begin + cboDevice.InitLongList(''); + end; + if ACaption<>'' then frmDeviceSelect.Caption:=ACaption; + end + else + begin + frmDeviceSelect.Caption := 'Print Device Selection'; + cboDevice.InitLongList(''); + end; + ShowModal; + Result := ADevice; + //Result := Piece(ADevice, ';', 1) + U + Piece(ADevice, U, 2); + end; + finally + frmDeviceSelect.Release; + end; +end; + +procedure TfrmDeviceSelect.cboDeviceChange(Sender: TObject); +begin +inherited; + with cboDevice do if ItemIndex > -1 then + begin + txtRightMargin.Text := Piece(Items[ItemIndex], '^', 4); + txtPageLength.Text := Piece(Items[ItemIndex], '^', 5); + end; +end; + +procedure TfrmDeviceSelect.cmdOKClick(Sender: TObject); +begin + inherited; + if cboDevice.ItemID = '' then + begin + InfoBox(TX_NODEVICE, TX_NODEVICE_CAP, MB_OK); + Exit; + end; + ADevice := cboDevice.Items[cboDevice.ItemIndex]; + if chkDefault.Checked then SaveDefaultPrinter(Piece(cboDevice.ItemID, ';', 1)); + Close; +end; + +procedure TfrmDeviceSelect.cmdCancelClick(Sender: TObject); +begin + inherited; + ADevice := ''; + Close; +end; + +procedure TfrmDeviceSelect.cboDeviceNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +begin + inherited; + 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 + inherited; + SaveUserBounds(Self); +end; + +end. diff --git a/CPRS-Chart/fDrawers.ddp b/CPRS-Chart/fDrawers.ddp new file mode 100644 index 0000000..4370276 Binary files /dev/null and b/CPRS-Chart/fDrawers.ddp differ diff --git a/CPRS-Chart/fDrawers.dfm b/CPRS-Chart/fDrawers.dfm new file mode 100644 index 0000000..27c561f --- /dev/null +++ b/CPRS-Chart/fDrawers.dfm @@ -0,0 +1,411 @@ +object frmDrawers: TfrmDrawers + Left = 634 + Top = 437 + 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 + PixelsPerInch = 96 + TextHeight = 13 + object pnlRemindersButton: TKeyClickPanel + Left = 0 + Top = 193 + Width = 189 + Height = 22 + Align = alTop + BevelOuter = bvNone + Caption = 'Reminders' + TabOrder = 4 + TabStop = True + OnClick = sbRemindersClick + OnEnter = pnlTemplatesButtonEnter + OnExit = pnlTemplatesButtonExit + object sbReminders: TORAlignSpeedButton + Left = 0 + Top = 0 + Width = 189 + Height = 22 + AllowAllUp = True + GroupIndex = 1 + Caption = 'Reminders' + Glyph.Data = { + 3E010000424D3E010000000000007600000028000000280000000A0000000100 + 040000000000C800000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 + 888888888888888888888888888888887788888888FF88888888FF88888888FF + 88888888F7888888887F888888887F888888880F8888888F877888888778F888 + 888788F888888078F888888F887888888788F888888788F888888078F88888F8 + 8877888877888F888878888F888807888F8888F88887888878888F888878888F + 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887 + 777777F887777777F880000000F8888888888888888888888888888888888888 + 8888} + Margin = 60 + NumGlyphs = 4 + Spacing = 2 + OnClick = sbRemindersClick + Align = alClient + OnResize = sbResize + end + end + object pnlEncounterButton: TKeyClickPanel + Left = 0 + Top = 107 + Width = 189 + Height = 22 + Align = alTop + BevelOuter = bvNone + Caption = 'Encounter' + TabOrder = 2 + TabStop = True + OnClick = sbEncounterClick + OnEnter = pnlTemplatesButtonEnter + OnExit = pnlTemplatesButtonExit + object sbEncounter: TORAlignSpeedButton + Left = 0 + Top = 0 + Width = 189 + Height = 22 + AllowAllUp = True + GroupIndex = 1 + Caption = 'Encounter' + Glyph.Data = { + 3E010000424D3E010000000000007600000028000000280000000A0000000100 + 040000000000C800000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 + 888888888888888888888888888888887788888888FF88888888FF88888888FF + 88888888F7888888887F888888887F888888880F8888888F877888888778F888 + 888788F888888078F888888F887888888788F888888788F888888078F88888F8 + 8877888877888F888878888F888807888F8888F88887888878888F888878888F + 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887 + 777777F887777777F880000000F8888888888888888888888888888888888888 + 8888} + Margin = 60 + NumGlyphs = 4 + Spacing = 2 + OnClick = sbEncounterClick + Align = alClient + OnResize = sbResize + end + end + object pnlTemplatesButton: TKeyClickPanel + Left = 0 + Top = 0 + Width = 189 + Height = 22 + Align = alTop + BevelOuter = bvNone + Caption = 'Templates' + TabOrder = 0 + TabStop = True + OnClick = sbTemplatesClick + OnEnter = pnlTemplatesButtonEnter + OnExit = pnlTemplatesButtonExit + object sbTemplates: TORAlignSpeedButton + Left = 0 + Top = 0 + Width = 189 + Height = 22 + AllowAllUp = True + GroupIndex = 1 + Caption = 'Templates' + Glyph.Data = { + 3E010000424D3E010000000000007600000028000000280000000A0000000100 + 040000000000C800000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 + 888888888888888888888888888888887788888888FF88888888FF88888888FF + 88888888F7888888887F888888887F888888880F8888888F877888888778F888 + 888788F888888078F888888F887888888788F888888788F888888078F88888F8 + 8877888877888F888878888F888807888F8888F88887888878888F888878888F + 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887 + 777777F887777777F880000000F8888888888888888888888888888888888888 + 8888} + Margin = 60 + NumGlyphs = 4 + PopupMenu = popTemplates + Spacing = 2 + OnClick = sbTemplatesClick + Align = alClient + OnResize = sbResize + end + end + object pnlOrdersButton: TKeyClickPanel + Left = 0 + Top = 279 + Width = 189 + Height = 22 + Align = alTop + BevelOuter = bvNone + Caption = 'Orders' + TabOrder = 6 + TabStop = True + OnClick = sbOrdersClick + OnEnter = pnlTemplatesButtonEnter + OnExit = pnlTemplatesButtonExit + object sbOrders: TORAlignSpeedButton + Left = 0 + Top = 0 + Width = 189 + Height = 22 + AllowAllUp = True + GroupIndex = 1 + Caption = 'Orders' + Glyph.Data = { + 3E010000424D3E010000000000007600000028000000280000000A0000000100 + 040000000000C800000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 + 888888888888888888888888888888887788888888FF88888888FF88888888FF + 88888888F7888888887F888888887F888888880F8888888F877888888778F888 + 888788F888888078F888888F887888888788F888888788F888888078F88888F8 + 8877888877888F888878888F888807888F8888F88887888878888F888878888F + 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887 + 777777F887777777F880000000F8888888888888888888888888888888888888 + 8888} + Margin = 60 + NumGlyphs = 4 + Spacing = 11 + OnClick = sbOrdersClick + Align = alClient + OnResize = sbResize + end + end + object lbOrders: TORListBox + Left = 0 + Top = 301 + Width = 189 + Height = 64 + Align = alTop + ItemHeight = 13 + Items.Strings = ( + 'Orders') + ParentShowHint = False + ShowHint = True + TabOrder = 7 + Visible = False + Caption = 'Orders' + ItemTipColor = clWindow + LongList = False + end + object lbEncounter: TORListBox + Left = 0 + Top = 129 + Width = 189 + Height = 64 + Align = alTop + ItemHeight = 13 + Items.Strings = ( + 'Encounter') + ParentShowHint = False + ShowHint = True + TabOrder = 3 + Visible = False + Caption = 'Encounter' + ItemTipColor = clWindow + LongList = False + end + object pnlTemplates: TPanel + Left = 0 + Top = 22 + Width = 189 + Height = 85 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + Visible = False + object tvTemplates: TORTreeView + Left = 0 + Top = 38 + Width = 189 + Height = 47 + Align = alClient + DragMode = dmAutomatic + HideSelection = False + Images = dmodShared.imgTemplates + Indent = 19 + ParentShowHint = False + PopupMenu = popTemplates + ReadOnly = True + RightClickSelect = True + ShowHint = False + TabOrder = 1 + OnClick = tvTemplatesClick + OnCollapsing = tvTemplatesCollapsing + OnDblClick = tvTemplatesDblClick + OnExpanding = tvTemplatesExpanding + OnGetImageIndex = tvTemplatesGetImageIndex + OnGetSelectedIndex = tvTemplatesGetSelectedIndex + OnKeyDown = tvTemplatesKeyDown + OnKeyUp = tvTemplatesKeyUp + Caption = 'Templates' + NodePiece = 2 + OnDragging = tvTemplatesDragging + end + object pnlTemplateSearch: TPanel + Left = 0 + Top = 0 + Width = 189 + Height = 38 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + OnResize = pnlTemplateSearchResize + DesignSize = ( + 189 + 38) + object btnFind: TORAlignButton + Left = 134 + Top = 0 + Width = 55 + Height = 21 + Hint = 'Find Template' + Anchors = [akTop, akRight] + Caption = 'Find' + ParentShowHint = False + PopupMenu = popTemplates + ShowHint = True + TabOrder = 1 + OnClick = btnFindClick + end + object edtSearch: TCaptionEdit + Left = 0 + Top = 0 + Width = 134 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 0 + OnChange = edtSearchChange + OnEnter = edtSearchEnter + OnExit = edtSearchExit + Caption = 'Text to find' + end + object cbMatchCase: TCheckBox + Left = 0 + Top = 21 + Width = 80 + Height = 17 + Caption = 'Match Case' + TabOrder = 2 + OnClick = cbFindOptionClick + end + object cbWholeWords: TCheckBox + Left = 80 + Top = 21 + Width = 109 + Height = 17 + Caption = 'Whole Words Only' + TabOrder = 3 + OnClick = cbFindOptionClick + end + end + end + object tvReminders: TORTreeView + Left = 0 + Top = 215 + Width = 189 + Height = 64 + HelpContext = 11300 + Align = alTop + HideSelection = False + Images = dmodShared.imgReminders + Indent = 23 + ReadOnly = True + RightClickSelect = True + StateImages = dmodShared.imgReminders + TabOrder = 5 + OnAddition = tvRemindersAddition + OnCollapsed = tvRemindersCurListChanged + OnDeletion = tvRemindersDeletion + OnExpanded = tvRemindersCurListChanged + OnKeyDown = tvRemindersKeyDown + OnMouseUp = tvRemindersMouseUp + Caption = 'Reminders' + NodePiece = 0 + OnNodeCaptioning = tvRemindersNodeCaptioning + end + object popTemplates: TPopupMenu + OnPopup = popTemplatesPopup + Left = 8 + Top = 70 + object mnuCopyTemplate: TMenuItem + Caption = 'Copy Template Text' + ShortCut = 16451 + OnClick = mnuCopyTemplateClick + end + object mnuInsertTemplate: TMenuItem + Caption = '&Insert Template' + ShortCut = 16429 + OnClick = mnuInsertTemplateClick + end + object mnuPreviewTemplate: TMenuItem + Caption = '&Preview/Print Template' + ShortCut = 16471 + OnClick = mnuPreviewTemplateClick + end + object N1: TMenuItem + Caption = '-' + end + object mnuGotoDefault: TMenuItem + Caption = '&Goto Default' + ShortCut = 16455 + OnClick = mnuGotoDefaultClick + end + object mnuDefault: TMenuItem + Caption = '&Mark as Default' + ShortCut = 16416 + OnClick = mnuDefaultClick + end + object N3: TMenuItem + Caption = '-' + end + object mnuViewNotes: TMenuItem + Caption = '&View Template Notes' + ShortCut = 16470 + OnClick = mnuViewNotesClick + end + object N4: TMenuItem + Caption = '-' + end + object mnuFindTemplates: TMenuItem + Caption = '&Find Templates' + ShortCut = 16454 + OnClick = mnuFindTemplatesClick + end + object mnuCollapseTree: TMenuItem + Caption = '&Collapse Tree' + OnClick = mnuCollapseTreeClick + end + object N2: TMenuItem + Caption = '-' + end + object mnuEditTemplates: TMenuItem + Caption = '&Edit Templates' + OnClick = mnuEditTemplatesClick + end + object mnuNewTemplate: TMenuItem + Caption = 'Create &New Template' + OnClick = mnuNewTemplateClick + end + object N5: TMenuItem + Caption = '-' + end + object mnuViewTemplateIconLegend: TMenuItem + Caption = 'Template Icon Legend' + OnClick = mnuViewTemplateIconLegendClick + end + end +end diff --git a/CPRS-Chart/fDrawers.pas b/CPRS-Chart/fDrawers.pas new file mode 100644 index 0000000..2ad9164 --- /dev/null +++ b/CPRS-Chart/fDrawers.pas @@ -0,0 +1,1564 @@ +unit fDrawers; +{ +bugs noticed: + if delete only note (currently editing) then drawers and encounter button still enabled +} +//vw mod for template callup. Checks in test 4/15/07 +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, StdCtrls, Buttons, ORCtrls, ComCtrls, ImgList, uTemplates, + Menus, ORClasses, ORFn; + +type + TDrawer = (odNone, odTemplates, odEncounter, odReminders, odOrders); + TDrawers = set of TDrawer; + + TfrmDrawers = class(TForm) + lbOrders: TORListBox; + sbOrders: TORAlignSpeedButton; + sbReminders: TORAlignSpeedButton; + sbEncounter: TORAlignSpeedButton; + sbTemplates: TORAlignSpeedButton; + pnlOrdersButton: TKeyClickPanel; + pnlRemindersButton: TKeyClickPanel; + pnlEncounterButton: TKeyClickPanel; + pnlTemplatesButton: TKeyClickPanel; + lbEncounter: TORListBox; + popTemplates: TPopupMenu; + mnuPreviewTemplate: TMenuItem; + pnlTemplates: TPanel; + tvTemplates: TORTreeView; + N1: TMenuItem; + mnuCollapseTree: TMenuItem; + N2: TMenuItem; + mnuEditTemplates: TMenuItem; + pnlTemplateSearch: TPanel; + btnFind: TORAlignButton; + edtSearch: TCaptionEdit; + mnuFindTemplates: TMenuItem; + mnuNewTemplate: TMenuItem; + cbMatchCase: TCheckBox; + cbWholeWords: TCheckBox; + mnuInsertTemplate: TMenuItem; + tvReminders: TORTreeView; + mnuDefault: TMenuItem; + N3: TMenuItem; + mnuGotoDefault: TMenuItem; + N4: TMenuItem; + mnuViewNotes: TMenuItem; + mnuCopyTemplate: TMenuItem; + N5: TMenuItem; + mnuViewTemplateIconLegend: TMenuItem; + procedure FormCanResize(Sender: TObject; var NewWidth, + NewHeight: Integer; var Resize: Boolean); + procedure FormResize(Sender: TObject); + procedure sbTemplatesClick(Sender: TObject); + procedure sbEncounterClick(Sender: TObject); + procedure sbRemindersClick(Sender: TObject); + procedure sbOrdersClick(Sender: TObject); + procedure sbResize(Sender: TObject); + procedure tvTemplatesGetImageIndex(Sender: TObject; Node: TTreeNode); + procedure tvTemplatesGetSelectedIndex(Sender: TObject; + Node: TTreeNode); + procedure tvTemplatesExpanding(Sender: TObject; Node: TTreeNode; + var AllowExpansion: Boolean); + procedure tvTemplatesClick(Sender: TObject); + procedure tvTemplatesDblClick(Sender: TObject); + procedure tvTemplatesCollapsing(Sender: TObject; Node: TTreeNode; + var AllowCollapse: Boolean); + procedure tvTemplatesKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure tvTemplatesKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure popTemplatesPopup(Sender: TObject); + procedure mnuPreviewTemplateClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure mnuCollapseTreeClick(Sender: TObject); + procedure btnFindClick(Sender: TObject); + procedure edtSearchChange(Sender: TObject); + procedure ToggleMenuItem(Sender: TObject); + procedure edtSearchEnter(Sender: TObject); + procedure edtSearchExit(Sender: TObject); + procedure mnuFindTemplatesClick(Sender: TObject); + procedure tvTemplatesDragging(Sender: TObject; Node: TTreeNode; + var CanDrag: Boolean); + procedure mnuEditTemplatesClick(Sender: TObject); + procedure mnuNewTemplateClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure pnlTemplateSearchResize(Sender: TObject); + procedure cbFindOptionClick(Sender: TObject); + procedure mnuInsertTemplateClick(Sender: TObject); + procedure tvRemindersMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure tvRemindersCurListChanged(Sender: TObject; Node: TTreeNode); + procedure mnuDefaultClick(Sender: TObject); + procedure mnuGotoDefaultClick(Sender: TObject); + procedure mnuViewNotesClick(Sender: TObject); + procedure mnuCopyTemplateClick(Sender: TObject); + procedure mnuViewTemplateIconLegendClick(Sender: TObject); + procedure pnlTemplatesButtonEnter(Sender: TObject); + procedure pnlTemplatesButtonExit(Sender: TObject); + procedure tvRemindersKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure tvRemindersNodeCaptioning(Sender: TObject; + var Caption: String); + procedure tvRemindersAddition(Sender: TObject; Node: TTreeNode); + procedure tvRemindersDeletion(Sender: TObject; Node: TTreeNode); + private + FOpenToNode: string; + FOldMouseUp: TMouseEvent; + FEmptyNodeCount: integer; + FOldDragDrop: TDragDropEvent; + FOldDragOver: TDragOverEvent; + FOldFontChanged: TNotifyEvent; + FTextIconWidth: integer; + FInternalResize: integer; + FHoldResize: integer; + FOpenDrawer: TDrawer; + FLastOpenSize: integer; + FButtonHeights: integer; + FInternalExpand :boolean; + FInternalHiddenExpand :boolean; + FAsk :boolean; + FAskExp :boolean; + FAskNode :TTreeNode; + FDragNode :TTreeNode; + FClickOccurred: boolean; + FRichEditControl: TRichEdit; + FFindNext: boolean; + FLastFoundNode: TTreeNode; + FSplitter: TSplitter; + FOldCanResize: TCanResizeEvent; + FSplitterActive: boolean; + FHasPersonalTemplates: boolean; + FRemNotifyList: TORNotifyList; + FDefTempPiece: integer; + FNewNoteButton: TButton; + FCurrentVisibleDrawers: TDrawers; + FCurrentEnabledDrawers: TDrawers; + function GetAlign: TAlign; + procedure SetAlign(const Value: TAlign); + function MinDrawerControlHeight: integer; + procedure DisableArrowKeyMove(Sender: TObject); + protected + procedure PositionToReminder(Sender: TObject); + procedure RemindersChanged(Sender: TObject); + procedure SetFindNext(const Value: boolean); + procedure ReloadTemplates; + procedure SetRichEditControl(const Value: TRichEdit); + procedure CheckAsk; + procedure FontChanged(Sender: TObject); + procedure InitButtons; + procedure StartInternalResize; + procedure EndInternalResize; + procedure ResizeToVisible; + function ButtonHeights: integer; + procedure GetDrawerControls(Drawer: TDrawer; + var Btn: TORAlignSpeedButton; + var Ctrl: TWinControl); + procedure AddTemplateNode(const tmpl: TTemplate; const Owner: TTreeNode = nil); + procedure MoveCaret(X, Y: integer); + procedure NewRECDragDrop(Sender, Source: TObject; X, Y: Integer); + procedure NewRECDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; + var Accept: Boolean); + procedure InsertText; + procedure SetSplitter(const Value: TSplitter); + procedure SplitterCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); + procedure SetSplitterActive(Active: boolean); + function EnableDrawer(Drawer: TDrawer; EnableIt: boolean): boolean; + function InsertOK(Ask: boolean): boolean; + procedure OpenToNode(Path: string = ''); + property FindNext: boolean read FFindNext write SetFindNext; + public + constructor CreateDrawers(AOwner: TComponent; AParent: TWinControl; + VisibleDrawers, EnabledDrawers: TDrawers); + procedure ExternalReloadTemplates; + procedure OpenDrawer(Drawer: TDrawer); + procedure ToggleDrawer(Drawer: TDrawer); + procedure ShowDrawers(Drawers: TDrawers); + procedure EnableDrawers(Drawers: TDrawers); + procedure DisplayDrawers(Show: Boolean); overload; + procedure DisplayDrawers(Show: Boolean; AEnable, ADisplay: TDrawers); overload; + function CanEditTemplates: boolean; + function CanEditShared: boolean; + procedure UpdatePersonalTemplates; + procedure NotifyWhenRemTreeChanges(Proc: TNotifyEvent); + procedure RemoveNotifyWhenRemTreeChanges(Proc: TNotifyEvent); + procedure ResetTemplates; + property RichEditControl: TRichEdit read FRichEditControl write SetRichEditControl; + property NewNoteButton: TButton read FNewNoteButton write FNewNoteButton; + property Splitter: TSplitter read FSplitter write SetSplitter; + property HasPersonalTemplates: boolean read FHasPersonalTemplates; + property LastOpenSize: integer read FLastOpenSize write FLastOpenSize; + property DefTempPiece: integer read FDefTempPiece write FDefTempPiece; + property TheOpenDrawer: TDrawer read FOpenDrawer; + published + property Align: TAlign read GetAlign write SetAlign; + end; + +{ There is a different instance of frmDrawers on each tab, so make the + frmDrawers variable local to each tab, do not use this global var! } +//var + //frmDrawers: TfrmDrawers; + +const + DrawerSplitters = 'frmDrawersSplitters'; + +implementation + +uses fTemplateView, uCore, rTemplates, fTemplateEditor, dShared, uReminders, + fReminderDialog, RichEdit, fRptBox, Clipbrd, fTemplateDialog, fIconLegend, + uAccessibleTreeView, uAccessibleTreeNode; + +{$R *.DFM} + +const + BaseMinDrawerControlHeight = 24; + FindNextText = 'Find Next'; + +function TfrmDrawers.MinDrawerControlHeight: integer; +begin + result := ResizeHeight( BaseFont, MainFont, BaseMinDrawerControlHeight); +end; + +procedure TfrmDrawers.ResizeToVisible; +var + NewHeight: integer; + od: TDrawer; + Button: TORAlignSpeedButton; + WinCtrl: TWinControl; + + procedure AllCtrls(AAlign: TAlign); + var + od: TDrawer; + + begin + Parent.DisableAlign; + try + for od := succ(low(TDrawer)) to high(TDrawer) do + begin + GetDrawerControls(od, Button, WinCtrl); + Button.Parent.Align := AAlign; + WinCtrl.Align := AAlign; + end; + finally + Parent.EnableAlign; + end; + end; + +begin + if((FHoldResize = 0) and Visible) then + begin + FButtonHeights := -1; //Force re-calculate + NewHeight := 0; + AllCtrls(alNone); + for od := succ(low(TDrawer)) to high(TDrawer) do + begin + GetDrawerControls(od, Button, WinCtrl); + if(Button.Parent.Visible) then + begin + Button.Parent.Top := NewHeight; + inc(NewHeight, Button.Parent.Height); + WinCtrl.Top := NewHeight; + if(WinCtrl.Visible) then + begin + if(FLastOpenSize < 10) or (FLastOpenSize > (Parent.Height - 20)) then + begin + FLastOpenSize := (Parent.Height div 4) * 3; + dec(FLastOpenSize, ButtonHeights); + if(FLastOpenSize < MinDrawerControlHeight) then + FLastOpenSize := MinDrawerControlHeight; + end; + inc(NewHeight, FLastOpenSize); + WinCtrl.Height := FLastOpenSize; + end + else + WinCtrl.Height := 0; + end; + end; + AllCtrls(alTop); + StartInternalResize; + try + ClientHeight := NewHeight + finally + EndInternalResize; + end; + end; +end; + +procedure TfrmDrawers.FormCanResize(Sender: TObject; var NewWidth, + NewHeight: Integer; var Resize: Boolean); +var + od: TDrawer; + Btn: TORAlignSpeedButton; + Ctrl: TWinControl; + IsVisible: boolean; + +begin + if(FInternalResize = 0) then + begin + IsVisible := FALSE; + for od := succ(low(TDrawer)) to high(TDrawer) do + begin + GetDrawerControls(od, Btn, Ctrl); + if(Ctrl.Visible) then + begin + IsVisible := TRUE; + break; + end; + end; + if(not IsVisible) then + NewHeight := ButtonHeights; + end; +end; + +function TfrmDrawers.ButtonHeights: integer; +begin + if(FButtonHeights < 0) then + begin + FButtonHeights := 0; + if(pnlOrdersButton.Visible) then + inc(FButtonHeights, sbOrders.Height); + if(pnlRemindersButton.Visible) then + inc(FButtonHeights, sbReminders.Height); + if(pnlEncounterButton.Visible) then + inc(FButtonHeights, sbEncounter.Height); + if(pnlTemplatesButton.Visible) then + inc(FButtonHeights, sbTemplates.Height); + end; + Result := FButtonHeights; +end; + +procedure TfrmDrawers.ShowDrawers(Drawers: TDrawers); +var + od: TDrawer; + Btn: TORAlignSpeedButton; + Ctrl: TWinControl; + SaveLOS: integer; + +begin + if(FCurrentVisibleDrawers = []) or (Drawers <> FCurrentVisibleDrawers) then + begin + FCurrentVisibleDrawers := Drawers; + SaveLOS := FLastOpenSize; + OpenDrawer(odNone); + for od := succ(low(TDrawer)) to high(TDrawer) do + begin + GetDrawerControls(od, Btn, Ctrl); + Btn.Parent.Visible := (od in Drawers); + Ctrl.Visible := FALSE; + Ctrl.Height := 0; + end; + FButtonHeights := -1; + FLastOpenSize := SaveLOS; + ResizeToVisible; + if(odReminders in Drawers) then + begin + NotifyWhenRemindersChange(RemindersChanged); + NotifyWhenProcessingReminderChanges(PositionToReminder); + end + else + begin + RemoveNotifyRemindersChange(RemindersChanged); + RemoveNotifyWhenProcessingReminderChanges(PositionToReminder); + end; + end; +end; + +procedure TfrmDrawers.OpenDrawer(Drawer: TDrawer); +var + Btn: TORAlignSpeedButton; + Ctrl: TWinControl; + +begin + if(FOpenDrawer <> Drawer) then + begin + StartInternalResize; + try + if(FOpenDrawer <> odNone) then + begin + GetDrawerControls(FOpenDrawer, Btn, Ctrl); + Btn.Down := FALSE; + with Btn.Parent as TPanel do + if BevelOuter = bvLowered then + BevelOuter := bvRaised; + Ctrl.Visible := FALSE; + Ctrl.Height := 0; + end; + if(Drawer = odNone) then + begin + FOpenDrawer := Drawer; + SetSplitterActive(FALSE); + end + else + begin + GetDrawerControls(Drawer, Btn, Ctrl); + if(Btn.Parent.Visible) and (Btn.Enabled) then + begin + SetSplitterActive(TRUE); + Btn.Down := TRUE; + with Btn.Parent as TPanel do + if BevelOuter = bvRaised then + BevelOuter := bvLowered; + Ctrl.Visible := TRUE; + FOpenDrawer := Drawer; + end + else + SetSplitterActive(FALSE); + end; + finally + EndInternalResize; + end; + ResizeToVisible; + end; +end; + +procedure TfrmDrawers.GetDrawerControls(Drawer: TDrawer; + var Btn: TORAlignSpeedButton; var Ctrl: TWinControl); +begin + case Drawer of + odTemplates: + begin + Btn := sbTemplates; + Ctrl := pnlTemplates; + end; + + odEncounter: + begin + Btn := sbEncounter; + Ctrl := lbEncounter; + end; + + odReminders: + begin + Btn := sbReminders; + Ctrl := tvReminders; + end; + + odOrders: + begin + Btn := sbOrders; + Ctrl := lbOrders; + end; + + else + begin + Btn := nil; + Ctrl := nil; + end; + end; +end; + +constructor TfrmDrawers.CreateDrawers(AOwner: TComponent; AParent: TWinControl; + VisibleDrawers, EnabledDrawers: TDrawers); +begin + FInternalResize := 0; + StartInternalResize; + try + Create(AOwner); + FButtonHeights := -1; + FLastOpenSize := 0; + FOpenDrawer := odNone; + Parent := AParent; + Align := alBottom; + FOldFontChanged := Font.OnChange; + Font.OnChange := FontChanged; + InitButtons; + ShowDrawers(VisibleDrawers); + EnableDrawers(EnabledDrawers); + Show; + finally + EndInternalResize; + end; +end; + +function TfrmDrawers.EnableDrawer(Drawer: TDrawer; EnableIt: boolean): boolean; +var + Btn: TORAlignSpeedButton; + Ctrl: TWinControl; + +begin + inc(FHoldResize); + try + GetDrawerControls(Drawer, Btn, Ctrl); + Btn.Parent.Enabled := EnableIt; + if(Drawer = FOpenDrawer) and (not Btn.Parent.Enabled) then + OpenDrawer(odNone); + finally + dec(FHoldResize); + end; + ResizeToVisible; + Result := EnableIt; +end; + +procedure TfrmDrawers.EnableDrawers(Drawers: TDrawers); +var + od: TDrawer; + +begin + if(FCurrentEnabledDrawers = []) or (Drawers <> FCurrentEnabledDrawers) then + begin + FCurrentEnabledDrawers := Drawers; + inc(FHoldResize); + try + for od := succ(low(TDrawer)) to high(TDrawer) do + EnableDrawer(od, (od in Drawers)); + finally + dec(FHoldResize); + end; + ResizeToVisible; + end; +end; + +procedure TfrmDrawers.FormResize(Sender: TObject); +begin + if(FInternalResize = 0) and (FOpenDrawer <> odNone) then + begin + FLastOpenSize := Height; + dec(FLastOpenSize, ButtonHeights); + if(FLastOpenSize < MinDrawerControlHeight) then + FLastOpenSize := MinDrawerControlHeight; + ResizeToVisible; + end; +end; + +procedure TfrmDrawers.sbTemplatesClick(Sender: TObject); +begin + if(FOpenDrawer <> odTemplates) then + begin + ReloadTemplates; + btnFind.Enabled := (edtSearch.Text <> ''); + pnlTemplateSearch.Visible := mnuFindTemplates.Checked; + end; + ToggleDrawer(odTemplates); +end; + +procedure TfrmDrawers.sbEncounterClick(Sender: TObject); +begin + ToggleDrawer(odEncounter); +end; + +procedure TfrmDrawers.sbRemindersClick(Sender: TObject); +begin + if(InitialRemindersLoaded) then + ToggleDrawer(odReminders) + else + begin + StartupReminders; + if(GetReminderStatus = rsNone) then + begin + EnableDrawer(odReminders, FALSE); + sbReminders.Down := FALSE; + with sbReminders.Parent as TPanel do + if BevelOuter = bvLowered then + BevelOuter := bvRaised; + end + else + ToggleDrawer(odReminders) + end; +end; + +procedure TfrmDrawers.sbOrdersClick(Sender: TObject); +begin + ToggleDrawer(odOrders); +end; + +procedure TfrmDrawers.ToggleDrawer(Drawer: TDrawer); +begin + if(Drawer = FOpenDrawer) then + OpenDrawer(odNone) + else + OpenDrawer(Drawer); +end; + +procedure TfrmDrawers.EndInternalResize; +begin + if(FInternalResize > 0) then dec(FInternalResize); +end; + +procedure TfrmDrawers.StartInternalResize; +begin + inc(FInternalResize); +end; + +procedure TfrmDrawers.sbResize(Sender: TObject); +var + Button: TORAlignSpeedButton; + Mar: integer; // Mar Needed because you can't assign Margin a negative value + +begin + Button := (Sender as TORAlignSpeedButton); + Mar := (Button.Width - FTextIconWidth) div 2; + if(Mar < 0) then + Mar := 0; + Button.Margin := Mar; +end; + +procedure TfrmDrawers.InitButtons; +var + od: TDrawer; + Btn: TORAlignSpeedButton; + Ctrl: TWinControl; + TmpWidth: integer; + TmpHeight: integer; + MaxHeight: integer; + +begin + StartInternalResize; + try + FTextIconWidth := 0; + MaxHeight := 0; + for od := succ(low(TDrawer)) to high(TDrawer) do + begin + GetDrawerControls(od, Btn, Ctrl); + TmpWidth := Canvas.TextWidth(Btn.Caption) + Btn.Spacing + + (Btn.Glyph.Width div Btn.NumGlyphs) + 4; + if(TmpWidth > FTextIconWidth) then + FTextIconWidth := TmpWidth; + TmpHeight := Canvas.TextHeight(Btn.Caption) + 9; + if(TmpHeight > MaxHeight) then + MaxHeight := TmpHeight; + end; + if(MaxHeight > 0) then + begin + for od := succ(low(TDrawer)) to high(TDrawer) do + begin + GetDrawerControls(od, Btn, Ctrl); + Btn.Parent.Height := MaxHeight; + end; + end; + Constraints.MinWidth := FTextIconWidth; + finally + EndInternalResize; + end; + ResizeToVisible; +end; + +procedure TfrmDrawers.FontChanged(Sender: TObject); +var + Ht: integer; + +begin + if(assigned(FOldFontChanged)) then + FOldFontChanged(Sender); + if(FInternalResize = 0) then + begin + InitButtons; + ResizeToVisible; + btnFind.Width := Canvas.TextWidth(FindNextText) + 10; + btnFind.Height := edtSearch.Height; + btnFind.Left := pnlTemplateSearch.Width - btnFind.Width; + edtSearch.Width := pnlTemplateSearch.Width - btnFind.Width; + cbMatchCase.Width := Canvas.TextWidth(cbMatchCase.Caption)+23; + cbWholeWords.Width := Canvas.TextWidth(cbWholeWords.Caption)+23; + Ht := Canvas.TextHeight(cbMatchCase.Caption); + if(Ht < 17) then Ht := 17; + pnlTemplateSearch.Height := edtSearch.Height + Ht; + cbMatchCase.Height := Ht; + cbWholeWords.Height := Ht; + cbMatchCase.Top := edtSearch.Height; + cbWholeWords.Top := edtSearch.Height; + pnlTemplateSearchResize(Sender); + end; +end; + +procedure TfrmDrawers.AddTemplateNode(const tmpl: TTemplate; const Owner: TTreeNode = nil); +begin + dmodShared.AddTemplateNode(tvTemplates, FEmptyNodeCount, tmpl, FALSE, Owner); +end; + +procedure TfrmDrawers.tvTemplatesGetImageIndex(Sender: TObject; + Node: TTreeNode); + +begin + Node.ImageIndex := dmodShared.ImgIdx(Node); +end; + +procedure TfrmDrawers.tvTemplatesGetSelectedIndex(Sender: TObject; + Node: TTreeNode); +begin +//vw mod for template callup. Checks in test + + //Application.MessageBox(PChar('Node='+IntToStr(Node.Index)+' tvtemplates.VertScrollPos='+IntToStr(tvTemplates.VertScrollPos)),PChar(Application.Title),MB_ICONINFORMATION); + sbTemplates.Caption := 'Templates '+ 'Node='+IntToStr(Node.Index)+' VertScrollPos='+IntToStr(tvTemplates.VertScrollPos) ; +//end vw mod + Node.SelectedIndex := dmodShared.ImgIdx(Node); +end; + +procedure TfrmDrawers.tvTemplatesExpanding(Sender: TObject; + Node: TTreeNode; var AllowExpansion: Boolean); +begin + if(assigned(Node)) then + begin + if(Dragging) then EndDrag(FALSE); + if(not FInternalExpand) then + begin + if(TTemplate(Node.Data).RealType = ttGroup) then + begin + FAsk := TRUE; + FAskExp := TRUE; + AllowExpansion := FALSE; + FAskNode := Node; + end; + end; + if(AllowExpansion) then + begin + FClickOccurred := FALSE; + AllowExpansion := dmodShared.ExpandNode(tvTemplates, Node, FEmptyNodeCount); + if(FInternalHiddenExpand) then AllowExpansion := FALSE; + end; + end; + //vw mod for template callup. Checks in test + + //Application.MessageBox(PChar('Node='+IntToStr(Node.Index)+' tvtemplates.VertScrollPos='+IntToStr(tvTemplates.VertScrollPos)),PChar(Application.Title),MB_ICONINFORMATION); + sbTemplates.Caption := 'Templates '+ 'Node='+IntToStr(Node.Index)+' VertScrollPos='+IntToStr(tvTemplates.VertScrollPos) ; + //end vw mod +end; + +procedure TfrmDrawers.CheckAsk; +begin + if(FAsk) then + begin + FAsk := FALSE; + FInternalExpand := TRUE; + try + if(FAskExp) then + FAskNode.Expand(FALSE) + else + FAskNode.Collapse(FALSE); + finally + FInternalExpand := FALSE; + end; + end; +end; + +procedure TfrmDrawers.tvTemplatesClick(Sender: TObject); +begin + FClickOccurred := TRUE; + CheckAsk; +end; + +procedure TfrmDrawers.tvTemplatesDblClick(Sender: TObject); +begin + if(not FClickOccurred) then CheckAsk + else + begin + FAsk := FALSE; + if((assigned(tvTemplates.Selected)) and + (TTemplate(tvTemplates.Selected.Data).RealType in [ttDoc, ttGroup])) then + InsertText; + end; +end; + +procedure TfrmDrawers.tvTemplatesCollapsing(Sender: TObject; + Node: TTreeNode; var AllowCollapse: Boolean); +begin + if(assigned(Node)) then + begin + if(Dragging) then EndDrag(FALSE); + if(not FInternalExpand) then + begin + if(TTemplate(Node.Data).RealType = ttGroup) then + begin + FAsk := TRUE; + FAskExp := FALSE; + AllowCollapse := FALSE; + FAskNode := Node; + end; + end; + if(AllowCollapse) then + FClickOccurred := FALSE; + end; + //vw mod for template callup. Checks in test + + //Application.MessageBox(PChar('Node='+IntToStr(Node.Index)+' tvtemplates.VertScrollPos='+IntToStr(tvTemplates.VertScrollPos)),PChar(Application.Title),MB_ICONINFORMATION); + sbTemplates.Caption := 'Templates '+ 'Node='+IntToStr(Node.Index)+' VertScrollPos='+IntToStr(tvTemplates.VertScrollPos) ; + //end vw mod +end; + +procedure TfrmDrawers.tvTemplatesKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + CheckAsk; + case Key of + VK_SPACE, VK_RETURN: + begin + InsertText; + Key := 0; + end; + end; +end; + +procedure TfrmDrawers.tvTemplatesKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + CheckAsk; +end; + +procedure TfrmDrawers.SetRichEditControl(const Value: TRichEdit); +begin + if(FRichEditControl <> Value) then + begin + if(assigned(FRichEditControl)) then + begin + FRichEditControl.OnDragDrop := FOldDragDrop; + FRichEditControl.OnDragOver := FOldDragOver; + end; + FRichEditControl := Value; + if(assigned(FRichEditControl)) then + begin + FOldDragDrop := FRichEditControl.OnDragDrop; + FOldDragOver := FRichEditControl.OnDragOver; + FRichEditControl.OnDragDrop := NewRECDragDrop; + FRichEditControl.OnDragOver := NewRECDragOver; + end; + end; +end; + + +procedure TfrmDrawers.MoveCaret(X, Y: integer); +var + pt: TPoint; + +begin + FRichEditControl.SetFocus; + pt := Point(x, y); + FRichEditControl.SelStart := FRichEditControl.Perform(EM_CHARFROMPOS,0,LParam(@pt)); +end; + + +procedure TfrmDrawers.NewRECDragDrop(Sender, Source: TObject; X, + Y: Integer); +begin + if(Source = tvTemplates) then + begin + MoveCaret(X, Y); + InsertText; + end + else + if(assigned(FOldDragDrop)) then + FOldDragDrop(Sender, Source, X, Y); +end; + +procedure TfrmDrawers.NewRECDragOver(Sender, Source: TObject; X, + Y: Integer; State: TDragState; var Accept: Boolean); + +begin + Accept := FALSE; + if(Source = tvTemplates) then + begin + if(assigned(FDragNode)) and (TTemplate(FDragNode.Data).RealType in [ttDoc, ttGroup]) then + begin + Accept := TRUE; + MoveCaret(X, Y); + end; + end + else + if(assigned(FOldDragOver)) then + FOldDragOver(Sender, Source, X, Y, State, Accept); +end; + +procedure TfrmDrawers.InsertText; +var + BeforeLine, AfterTop: integer; + txt, DocInfo: string; + Template: TTemplate; + +begin + DocInfo := ''; + if InsertOK(TRUE) and (dmodShared.TemplateOK(tvTemplates.Selected.Data)) then + begin + Template := TTemplate(tvTemplates.Selected.Data); + Template.TemplatePreviewMode := FALSE; + if Template.IsReminderDialog then + Template.ExecuteReminderDialog(TForm(Owner)) + else + begin + if Template.IsCOMObject then + txt := Template.COMObjectText('', DocInfo) + else + txt := Template.Text; + 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)); + end; + end; + end; +end; + +procedure TfrmDrawers.popTemplatesPopup(Sender: TObject); +var + Node: TTreeNode; + ok, ok2, NodeFound: boolean; + Def: string; + +begin + ok := FALSE; + ok2 := FALSE; + if(FOpenDrawer = odTemplates) then + begin + Node := tvTemplates.Selected; + tvTemplates.Selected := Node; // This line prevents selected from changing after menu closes + NodeFound := (assigned(Node)); + if(NodeFound) then + begin + with TTemplate(Node.Data) do + begin + ok := (RealType in [ttDoc, ttGroup]); + ok2 := ok and (not IsReminderDialog) and (not IsCOMObject); + end; + end; + Def := Piece(GetUserTemplateDefaults, '/', FDefTempPiece); + mnuGotoDefault.Enabled := (Def <> ''); + mnuViewNotes.Enabled := NodeFound and (TTemplate(Node.Data).Description <> ''); + mnuDefault.Enabled := NodeFound; + mnuDefault.Checked := NodeFound and (tvTemplates.GetNodeID(TORTreeNode(Node), 1, ';') = Def); + end + else + begin + mnuDefault.Enabled := FALSE; + mnuGotoDefault.Enabled := FALSE; + mnuViewNotes.Enabled := FALSE; + end; + mnuPreviewTemplate.Enabled := ok2; + mnuCopyTemplate.Enabled := ok2; + mnuInsertTemplate.Enabled := ok and InsertOK(FALSE); + mnuFindTemplates.Enabled := (FOpenDrawer = odTemplates); + mnuCollapseTree.Enabled := ((FOpenDrawer = odTemplates) and + (dmodShared.NeedsCollapsing(tvTemplates))); + mnuEditTemplates.Enabled := (UserTemplateAccessLevel in [taAll, taEditor]); + mnuNewTemplate.Enabled := (UserTemplateAccessLevel in [taAll, taEditor]); +end; + +procedure TfrmDrawers.mnuPreviewTemplateClick(Sender: TObject); +var + tmpl: TTemplate; + txt: String; + +begin + if(assigned(tvTemplates.Selected)) then + begin + if(dmodShared.TemplateOK(tvTemplates.Selected.Data,'template preview')) then + begin + tmpl := TTemplate(tvTemplates.Selected.Data); + tmpl.TemplatePreviewMode := TRUE; // Prevents "Are you sure?" dialog when canceling + txt := tmpl.Text; + if(not tmpl.DialogAborted) then + ShowTemplateData(Self, tmpl.PrintName, txt); + end; + end; +end; + +procedure TfrmDrawers.FormDestroy(Sender: TObject); +begin + TAccessibleTreeView.UnwrapControl(tvReminders); + dmodShared.RemoveDrawerTree(Self); + KillObj(@FRemNotifyList); +end; + +procedure TfrmDrawers.mnuCollapseTreeClick(Sender: TObject); +begin + tvTemplates.Selected := nil; + tvTemplates.FullCollapse; +end; + +procedure TfrmDrawers.ReloadTemplates; +begin + LoadTemplateData; + if(UserTemplateAccessLevel <> taNone) and (assigned(MyTemplate)) and + (MyTemplate.Children in [tcActive, tcBoth]) then + begin + AddTemplateNode(MyTemplate); + FHasPersonalTemplates := TRUE; + end; + AddTemplateNode(RootTemplate); + OpenToNode; +end; + +procedure TfrmDrawers.btnFindClick(Sender: TObject); +var + TmpNode: TTreeNode; + Found: boolean; + S1,S2: string; + +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 + 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; + end; + if(Found) then + begin + FLastFoundNode := TmpNode; + SetFindNext(TRUE); + FInternalExpand := TRUE; + try + tvTemplates.Selected := TmpNode; + 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; +end; + +procedure TfrmDrawers.SetFindNext(const Value: boolean); +begin + if(FFindNext <> Value) then + begin + FFindNext := Value; + if(FFindNext) then btnFind.Caption := FindNextText + else btnFind.Caption := 'Find'; + end; +end; + +procedure TfrmDrawers.edtSearchChange(Sender: TObject); +begin + btnFind.Enabled := (edtSearch.Text <> ''); + SetFindNext(FALSE); +end; + +procedure TfrmDrawers.ToggleMenuItem(Sender: TObject); +var + TmpMI: TMenuItem; + +begin + TmpMI := (Sender as TMenuItem); + TmpMI.Checked := not TmpMI.Checked; + SetFindNext(FALSE); + if(pnlTemplateSearch.Visible) then edtSearch.SetFocus; +end; + +procedure TfrmDrawers.edtSearchEnter(Sender: TObject); +begin + btnFind.Default := TRUE; +end; + +procedure TfrmDrawers.edtSearchExit(Sender: TObject); +begin + btnFind.Default := FALSE; +end; + +procedure TfrmDrawers.mnuFindTemplatesClick(Sender: TObject); +var + FindOn: boolean; + +begin + mnuFindTemplates.Checked := not mnuFindTemplates.Checked; + FindOn := mnuFindTemplates.Checked; + pnlTemplateSearch.Visible := FindOn; + if(FindOn) and (FOpenDrawer = odTemplates) then + edtSearch.SetFocus; +end; + +procedure TfrmDrawers.tvTemplatesDragging(Sender: TObject; Node: TTreeNode; + var CanDrag: Boolean); + +begin + if(TTemplate(Node.Data).RealType in [ttDoc, ttGroup]) then + begin + FDragNode := Node; + CanDrag := TRUE; + end + else + begin + FDragNode := nil; + CanDrag := FALSE; + end; +end; + +procedure TfrmDrawers.mnuEditTemplatesClick(Sender: TObject); +begin + EditTemplates(Self); +end; + +procedure TfrmDrawers.mnuNewTemplateClick(Sender: TObject); +begin + EditTemplates(Self, TRUE); +end; + +procedure TfrmDrawers.FormCreate(Sender: TObject); +begin + dmodShared.AddDrawerTree(Self); + FHasPersonalTemplates := FALSE; + TAccessibleTreeView.WrapControl(tvReminders); +end; + +procedure TfrmDrawers.ExternalReloadTemplates; +begin + if(FOpenToNode = '') and (assigned(tvTemplates.Selected)) then + FOpenToNode := tvTemplates.GetNodeID(TORTreeNode(tvTemplates.Selected),1,';'); + tvTemplates.Items.Clear; + FHasPersonalTemplates := FALSE; + FEmptyNodeCount := 0; + ReloadTemplates; +end; + +procedure TfrmDrawers.DisplayDrawers(Show: Boolean); +begin + DisplayDrawers(Show, [], []); +end; + +procedure TfrmDrawers.DisplayDrawers(Show: Boolean; AEnable, ADisplay: TDrawers); +begin + if(not (csLoading in ComponentState)) then + begin + if Show then + begin + EnableDrawers(AEnable); + ShowDrawers(ADisplay); + end + else + begin + ShowDrawers([]); + end; + if(assigned(FSplitter)) then + begin + if(Show and (FOpenDrawer <> odNone)) then + SetSplitterActive(TRUE) + else + SetSplitterActive(FALSE); + end; + end; +end; + +function TfrmDrawers.CanEditTemplates: boolean; +begin + Result := (UserTemplateAccessLevel in [taAll, taEditor]); +end; + +function TfrmDrawers.CanEditShared: boolean; +begin + Result := (UserTemplateAccessLevel = taEditor); +end; + +procedure TfrmDrawers.pnlTemplateSearchResize(Sender: TObject); +begin + if((cbMatchCase.Width + cbWholeWords.Width) > pnlTemplateSearch.Width) then + cbWholeWords.Left := cbMatchCase.Width + else + cbWholeWords.Left := pnlTemplateSearch.Width - cbWholeWords.Width; +end; + +procedure TfrmDrawers.cbFindOptionClick(Sender: TObject); +begin + SetFindNext(FALSE); + if(pnlTemplateSearch.Visible) then edtSearch.SetFocus; +end; + +procedure TfrmDrawers.mnuInsertTemplateClick(Sender: TObject); +begin + if((assigned(tvTemplates.Selected)) and + (TTemplate(tvTemplates.Selected.Data).RealType in [ttDoc, ttGroup])) then + InsertText; +end; + +procedure TfrmDrawers.SetSplitter(const Value: TSplitter); +begin + if(FSplitter <> Value) then + begin + if(assigned(FSplitter)) then + FSplitter.OnCanResize := FOldCanResize; + FSplitter := Value; + if(assigned(FSplitter)) then + begin + FOldCanResize := FSplitter.OnCanResize; + FSplitter.OnCanResize := SplitterCanResize; + SetSplitterActive(FSplitterActive); + end; + end; +end; + +procedure TfrmDrawers.SplitterCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); +begin + Accept := FSplitterActive; +end; + +procedure TfrmDrawers.SetSplitterActive(Active: boolean); +begin + FSplitterActive := Active; + if(Active) then + begin + FSplitter.Cursor := crVSplit; + FSplitter.ResizeStyle := rsPattern; + end + else + begin + FSplitter.Cursor := crDefault; + FSplitter.ResizeStyle := ExtCtrls.rsNone; + end; +end; + +procedure TfrmDrawers.UpdatePersonalTemplates; +var + NeedPersonal: boolean; + Node: TTreeNode; + + function FindNode: TTreeNode; + begin + Result := tvTemplates.Items.GetFirstNode; + while assigned(Result) do + begin + if(Result.Data = MyTemplate) then exit; + Result := Result.getNextSibling; + end; + end; + +begin + NeedPersonal := (UserTemplateAccessLevel <> taNone); + if(NeedPersonal <> FHasPersonalTemplates) then + begin + if(NeedPersonal) then + begin + if(assigned(MyTemplate)) and (MyTemplate.Children in [tcActive, tcBoth]) then + begin + AddTemplateNode(MyTemplate); + FHasPersonalTemplates := TRUE; + if(assigned(MyTemplate)) then + begin + Node := FindNode; + if(assigned(Node)) then + Node.MoveTo(nil, naAddFirst); + end; + end; + end + else + begin + if(assigned(MyTemplate)) then + begin + Node := FindNode; + if(assigned(Node)) then Node.Delete; + end; + FHasPersonalTemplates := FALSE; + end; + end; +end; + +procedure TfrmDrawers.RemindersChanged(Sender: TObject); +begin + inc(FHoldResize); + try + if(EnableDrawer(odReminders, (GetReminderStatus <> rsNone))) then + begin + BuildReminderTree(tvReminders); + FOldMouseUp := tvReminders.OnMouseUp; + end + else + begin + FOldMouseUp := nil; + tvReminders.PopupMenu := nil; + end; + tvReminders.OnMouseUp := tvRemindersMouseUp; + finally + dec(FHoldResize); + end; +end; + +procedure TfrmDrawers.tvRemindersMouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if(Button = mbLeft) and (assigned(tvReminders.Selected)) and + (htOnItem in tvReminders.GetHitTestInfoAt(X, Y)) then + ViewReminderDialog(ReminderNode(tvReminders.Selected)); +end; + +procedure TfrmDrawers.PositionToReminder(Sender: TObject); +var + Rem: TReminder; + +begin + if(assigned(Sender)) then + begin + if(Sender is TReminder) then + begin + Rem := TReminder(Sender); + if(Rem.CurrentNodeID <> '') then + tvReminders.Selected := tvReminders.FindPieceNode(Rem.CurrentNodeID, 1, IncludeParentID) + else + begin + tvReminders.Selected := tvReminders.FindPieceNode(RemCode + (Sender as TReminder).IEN, 1); + if(assigned(tvReminders.Selected)) then + TORTreeNode(tvReminders.Selected).EnsureVisible; + end; + Rem.CurrentNodeID := ''; + end; + end + else + tvReminders.Selected := nil; +end; + +procedure TfrmDrawers.tvRemindersCurListChanged(Sender: TObject; + Node: TTreeNode); +begin + if(assigned(FRemNotifyList)) then + FRemNotifyList.Notify(Node); +end; + +procedure TfrmDrawers.NotifyWhenRemTreeChanges(Proc: TNotifyEvent); +begin + if(not assigned(FRemNotifyList)) then + FRemNotifyList := TORNotifyList.Create; + FRemNotifyList.Add(Proc); +end; + +procedure TfrmDrawers.RemoveNotifyWhenRemTreeChanges(Proc: TNotifyEvent); +begin + if(assigned(FRemNotifyList)) then + FRemNotifyList.Remove(Proc); +end; + +function TfrmDrawers.GetAlign: TAlign; +begin + Result := inherited Align; +end; + +procedure TfrmDrawers.SetAlign(const Value: TAlign); +begin + inherited Align := Value; + ResizeToVisible; +end; + +procedure TfrmDrawers.ResetTemplates; +begin + FOpenToNode := Piece(GetUserTemplateDefaults, '/', FDefTempPiece); +end; + +procedure TfrmDrawers.mnuDefaultClick(Sender: TObject); +var + NodeID: string; + UserTempDefNode: string; +begin + NodeID := tvTemplates.GetNodeID(TORTreeNode(tvTemplates.Selected), 1, ';'); + UserTempDefNode := Piece(GetUserTemplateDefaults, '/', FDefTempPiece); + if NodeID <> UserTempDefNode then + SetUserTemplateDefaults(tvTemplates.GetNodeID(TORTreeNode(tvTemplates.Selected), 1, ';'), + FDefTempPiece) + else SetUserTemplateDefaults('', FDefTempPiece); +end; + +procedure TfrmDrawers.OpenToNode(Path: string = ''); +var + OldInternalHE, OldInternalEX: boolean; + +begin + if(Path <> '') then + FOpenToNode := PATH; + if(FOpenToNode <> '') then + begin + OldInternalHE := FInternalHiddenExpand; + OldInternalEX := FInternalExpand; + try + FInternalExpand := TRUE; + FInternalHiddenExpand := FALSE; + dmodShared.SelectNode(tvTemplates, FOpenToNode, FEmptyNodeCount); + finally + FInternalHiddenExpand := OldInternalHE; + FInternalExpand := OldInternalEX; + end; + FOpenToNode := ''; + end; +end; + +procedure TfrmDrawers.mnuGotoDefaultClick(Sender: TObject); +begin + OpenToNode(Piece(GetUserTemplateDefaults, '/', FDefTempPiece)); +end; + +procedure TfrmDrawers.mnuViewNotesClick(Sender: TObject); +var + tmpl: TTemplate; + tmpSL: TStringList; + +begin + if(assigned(tvTemplates.Selected)) then + begin + tmpl := TTemplate(tvTemplates.Selected.Data); + if(tmpl.Description = '') then + ShowMessage('No notes found for ' + tmpl.PrintName) + else + begin + tmpSL := TStringList.Create; + try + tmpSL.Text := tmpl.Description; + ReportBox(tmpSL, tmpl.PrintName + ' Notes:', TRUE); + finally + tmpSL.Free; + end; + end; + end; +end; + +procedure TfrmDrawers.mnuCopyTemplateClick(Sender: TObject); +var + txt: string; + Template: TTemplate; + +begin + txt := ''; + if((assigned(tvTemplates.Selected)) and + (TTemplate(tvTemplates.Selected.Data).RealType in [ttDoc, ttGroup])) and + (dmodShared.TemplateOK(tvTemplates.Selected.Data)) then + begin + Template := TTemplate(tvTemplates.Selected.Data); + txt := Template.Text; + CheckBoilerplate4Fields(txt, 'Template: ' + Template.PrintName); + if txt <> '' then + Clipboard.SetTextBuf(PChar(txt)); + end; + if txt <> '' then + StatusText('Templated Text copied to clipboard.'); +end; + +function TfrmDrawers.InsertOK(Ask: boolean): boolean; + + function REOK: boolean; + begin + Result := assigned(FRichEditControl) and + FRichEditControl.Visible and + FRichEditControl.Parent.Visible; + end; + +begin + Result := REOK; + if (not ask) and (not Result) and (assigned(FNewNoteButton)) then + Result := TRUE + else + if ask and (not Result) and assigned(FNewNoteButton) and + FNewNoteButton.Visible and FNewNoteButton.Enabled then + begin + FNewNoteButton.Click; + Result := REOK; + end; +end; + +procedure TfrmDrawers.mnuViewTemplateIconLegendClick(Sender: TObject); +begin + ShowIconLegend(ilTemplates); +end; + +procedure TfrmDrawers.pnlTemplatesButtonEnter(Sender: TObject); +begin + with Sender as TPanel do + if (ControlCount > 0) and (Controls[0] is TSpeedButton) and (TSpeedButton(Controls[0]).Down) + then + BevelOuter := bvLowered + else + BevelOuter := bvRaised; +end; + +procedure TfrmDrawers.pnlTemplatesButtonExit(Sender: TObject); +begin + with Sender as TPanel do + BevelOuter := bvNone; + DisableArrowKeyMove(Sender); +end; + +procedure TfrmDrawers.tvRemindersKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + case Key of + VK_RETURN, VK_SPACE: + begin + ViewReminderDialog(ReminderNode(tvReminders.Selected)); + Key := 0; + end; + end; +end; + +procedure TfrmDrawers.tvRemindersNodeCaptioning(Sender: TObject; + var Caption: String); +var + StringData: string; +begin + StringData := (Sender as TORTreeNode).StringData; + if (Length(StringData) > 0) and (StringData[1] = 'R') then //Only tag reminder statuses + case StrToIntDef(Piece(StringData,'^',6 {Due}),-1) of + 0: Caption := Caption + ' -- Applicable'; + 1: Caption := Caption + ' -- DUE'; + 2: Caption := Caption + ' -- Not Applicable'; + else Caption := Caption + ' -- Not Evaluated'; + 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; +begin + if Sender is TKeyClickPanel then + begin + CurrPanel := Sender as TKeyClickPanel; + If Boolean(Hi(GetKeyState(VK_UP))) + OR Boolean(Hi(GetKeyState(VK_DOWN))) + OR Boolean(Hi(GetKeyState(VK_LEFT))) + OR Boolean(Hi(GetKeyState(VK_RIGHT))) then + begin + if Assigned(CurrPanel) then + CurrPanel.SetFocus; + end; + end; +end; + +end. + diff --git a/CPRS-Chart/fDupPts.dfm b/CPRS-Chart/fDupPts.dfm new file mode 100644 index 0000000..d44355b --- /dev/null +++ b/CPRS-Chart/fDupPts.dfm @@ -0,0 +1,97 @@ +object 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 + Position = poScreenCenter + OnCreate = FormCreate + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object pnlDupPts: TPanel + Left = 0 + Top = 0 + Width = 463 + Height = 184 + Align = alClient + TabOrder = 0 + DesignSize = ( + 463 + 184) + object lblSelDupPts: TLabel + Left = 6 + Top = 3 + Width = 155 + Height = 13 + Caption = 'Please select the correct patient:' + end + object btnOK: TButton + Left = 296 + Top = 150 + Width = 75 + Height = 25 + Anchors = [akRight, akBottom] + Caption = '&OK' + Default = True + TabOrder = 0 + OnClick = btnOKClick + end + object btnCancel: TButton + Left = 381 + Top = 150 + Width = 75 + Height = 25 + Anchors = [akRight, akBottom] + Caption = '&Cancel' + ModalResult = 2 + TabOrder = 1 + OnClick = btnCancelClick + end + object pnlSelDupPt: TPanel + Left = 2 + Top = 19 + Width = 461 + Height = 120 + Anchors = [akLeft, akTop, akRight, akBottom] + TabOrder = 2 + object lblDupPts: TLabel + Left = 4 + Top = 2 + Width = 364 + Height = 13 + Caption = + ' Name DOB' + + ' SSN' + end + object lboSelPt: TORListBox + Left = 1 + Top = 16 + Width = 459 + Height = 103 + Align = alBottom + Anchors = [akLeft, akTop, akRight, akBottom] + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnDblClick = lboSelPtDblClick + Caption = 'Please select the correct patient' + ItemTipColor = clWindow + LongList = False + Pieces = '2,3,4' + TabPositions = '33,57' + end + end + end +end diff --git a/CPRS-Chart/fDupPts.pas b/CPRS-Chart/fDupPts.pas new file mode 100644 index 0000000..8bd405d --- /dev/null +++ b/CPRS-Chart/fDupPts.pas @@ -0,0 +1,86 @@ +unit fDupPts; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, + Controls, Forms, Dialogs, StdCtrls, ORCtrls, ExtCtrls, OrFn; + +type + TfrmDupPts = class(TForm) + pnlDupPts: TPanel; + btnOK: TButton; + btnCancel: TButton; + pnlSelDupPt: TPanel; + lboSelPt: TORListBox; + lblDupPts: TLabel; + lblSelDupPts: TLabel; + procedure btnCancelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure lboSelPtDblClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmDupPts: TfrmDupPts; + +implementation + +{$R *.dfm} + +uses rCore, uCore, fPtSel; + +procedure TfrmDupPts.btnCancelClick(Sender: TObject); +begin + +close; + +end; + +procedure TfrmDupPts.FormCreate(Sender: TObject); +var + theDups: tStringList; +begin + fPtSel.DupDFN := 'Cancel'; // Pre-set as default. + theDups := tStringList.create; + theDups.assign(fPtSel.PtStrs); + lboSelPt.items.assign(theDups); + ResizeAnchoredFormToFont(self); +end; + +procedure TfrmDupPts.btnOKClick(Sender: TObject); +begin + +if not (Length(lboSelPt.ItemID) > 0) then //*DFN* +begin + infoBox('A patient has not been selected.', 'No Patient Selected', MB_OK); + exit; +end; + +fPtSel.DupDFN := lboSelPt.ItemID; //*DFN* +close; + +end; + +procedure TfrmDupPts.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + +// Check for "Esc" keypress: +if (key = 27) then // ESC key. + btnCancel.click; + +end; + +procedure TfrmDupPts.lboSelPtDblClick(Sender: TObject); +begin + btnOKClick(btnOK); +end; + +end. diff --git a/CPRS-Chart/fEffectDate.dfm b/CPRS-Chart/fEffectDate.dfm new file mode 100644 index 0000000..786208a --- /dev/null +++ b/CPRS-Chart/fEffectDate.dfm @@ -0,0 +1,67 @@ +inherited frmEffectDate: TfrmEffectDate + Left = 335 + Top = 133 + BorderIcons = [] + BorderStyle = bsDialog + Caption = 'Discharge Date' + ClientHeight = 127 + ClientWidth = 254 + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label2: TLabel + Left = 68 + Top = 48 + Width = 68 + Height = 13 + Caption = 'Effective Date' + end + object Label3: TStaticText + Left = 8 + Top = 8 + Width = 244 + Height = 17 + Caption = 'Enter the date this discharge will become effective.' + TabOrder = 3 + end + object Label4: TStaticText + Left = 8 + Top = 22 + Width = 224 + Height = 17 + Caption = '(This aids pharmacy in preparing prescriptions.)' + TabOrder = 4 + end + object calEffective: TORDateBox + Left = 68 + Top = 62 + Width = 120 + Height = 21 + TabOrder = 0 + Text = 'Today' + DateOnly = True + RequireTime = False + Caption = 'Effective Date' + end + object cmdOK: TButton + Left = 51 + Top = 95 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 1 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 133 + Top = 95 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 2 + OnClick = cmdCancelClick + end +end diff --git a/CPRS-Chart/fEffectDate.pas b/CPRS-Chart/fEffectDate.pas new file mode 100644 index 0000000..9266fa8 --- /dev/null +++ b/CPRS-Chart/fEffectDate.pas @@ -0,0 +1,69 @@ +unit fEffectDate; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + fAutoSz, Grids, Calendar, ORDtTmCal, StdCtrls, ORDtTm, ORFn; + +type + TfrmEffectDate = class(TfrmAutoSz) + calEffective: TORDateBox; + Label2: TLabel; + Label3: TStaticText; + Label4: TStaticText; + cmdOK: TButton; + cmdCancel: TButton; + procedure FormCreate(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + private + OKPressed: Boolean; + end; + +function ObtainEffectiveDate(var ADate: TFMDateTime): Boolean; + +implementation + +{$R *.DFM} + +function ObtainEffectiveDate(var ADate: TFMDateTime): Boolean; +var + frmEffectDate: TfrmEffectDate; +begin + Result := False; + frmEffectDate := TfrmEffectDate.Create(Application); + try + ResizeFormToFont(TForm(frmEffectDate)); + if ADate <> 0 then frmEffectDate.calEffective.FMDateTime := ADate; + frmEffectDate.ShowModal; + if frmEffectDate.OKPressed then + begin + ADate := frmEffectDate.calEffective.FMDateTime; + Result := True; + end; + finally + frmEffectDate.Release; + end; +end; + +procedure TfrmEffectDate.FormCreate(Sender: TObject); +begin + inherited; + OKPressed := False; +end; + +procedure TfrmEffectDate.cmdOKClick(Sender: TObject); +begin + inherited; + OKPressed := True; + Close; +end; + +procedure TfrmEffectDate.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +end. diff --git a/CPRS-Chart/fEncnt.ddp b/CPRS-Chart/fEncnt.ddp new file mode 100644 index 0000000..4370276 Binary files /dev/null and b/CPRS-Chart/fEncnt.ddp differ diff --git a/CPRS-Chart/fEncnt.dfm b/CPRS-Chart/fEncnt.dfm new file mode 100644 index 0000000..6b915b3 --- /dev/null +++ b/CPRS-Chart/fEncnt.dfm @@ -0,0 +1,325 @@ +object frmEncounter: TfrmEncounter + Left = 481 + Top = 242 + Width = 470 + Height = 450 + Anchors = [akTop] + BorderIcons = [biSystemMenu] + Caption = 'Provider & Location for Current Activities' + Color = clBtnFace + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnResize = FormResize + OnShow = FormShow + DesignSize = ( + 462 + 416) + PixelsPerInch = 96 + TextHeight = 13 + object lblInstruct: TLabel + Left = 6 + Top = 6 + Width = 253 + Height = 31 + AutoSize = False + Caption = + 'Select the appointment or visit that should be associated with t' + + 'he note or orders .' + Visible = False + WordWrap = True + end + object lblLocation: TLabel + Tag = 9 + Left = 6 + Top = 140 + Width = 93 + Height = 13 + Anchors = [akLeft, akBottom] + Caption = 'Encounter Location' + Constraints.MinHeight = 12 + end + object lblProvider: TLabel + Left = 6 + Top = 6 + Width = 91 + Height = 13 + Caption = 'Encounter Provider' + end + object cboPtProvider: TORComboBox + Left = 6 + Top = 20 + Width = 331 + Height = 117 + Anchors = [akLeft, akTop, akRight, akBottom] + Style = orcsSimple + AutoSelect = True + Caption = 'Encounter Provider' + 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 + OnDblClick = cmdOKClick + OnNeedData = cboPtProviderNeedData + CharsNeedMatch = 1 + end + object cmdDateRange: TButton + Tag = 9 + Left = 266 + Top = 153 + Width = 84 + Height = 25 + Anchors = [akLeft, akBottom] + Caption = 'Date Range...' + Constraints.MinHeight = 21 + Constraints.MinWidth = 21 + TabOrder = 2 + OnClick = cmdDateRangeClick + end + object txtLocation: TCaptionEdit + Tag = 9 + Left = 6 + Top = 154 + Width = 258 + Height = 21 + Anchors = [akLeft, akBottom] + AutoSize = False + Color = clBtnFace + Constraints.MinHeight = 21 + ReadOnly = True + TabOrder = 1 + Text = '< Select a location from the tabs below.... >' + Caption = 'Encounter Location' + end + object cmdCancel: TButton + Left = 341 + Top = 45 + Width = 84 + Height = 23 + Anchors = [akTop, akRight] + Cancel = True + Caption = 'Cancel' + Constraints.MinHeight = 21 + Constraints.MinWidth = 21 + TabOrder = 4 + OnClick = cmdCancelClick + end + object cmdOK: TButton + Left = 340 + Top = 20 + Width = 84 + Height = 23 + Anchors = [akTop, akRight] + Caption = 'OK' + Constraints.MinHeight = 21 + Constraints.MinWidth = 21 + Default = True + TabOrder = 3 + OnClick = cmdOKClick + end + object Panel1: TPanel + Left = 0 + Top = 179 + Width = 460 + Height = 243 + Anchors = [akLeft, akRight, akBottom] + TabOrder = 6 + DesignSize = ( + 460 + 243) + object pgeVisit: TPageControl + Tag = 9 + Left = 4 + Top = 5 + Width = 452 + Height = 232 + ActivePage = tabNewVisit + Anchors = [akLeft, akTop, akRight, akBottom] + Constraints.MinHeight = 150 + RaggedRight = True + TabOrder = 0 + OnChange = pgeVisitChange + object tabClinic: TTabSheet + Caption = 'Clinic Appointments' + object lstClinic: TORListBox + Left = 0 + Top = 20 + Width = 444 + Height = 184 + Align = alClient + Constraints.MinHeight = 21 + ItemHeight = 13 + ParentShowHint = False + ScrollWidth = 353 + ShowHint = True + TabOrder = 0 + OnDblClick = cmdOKClick + Caption = 'Clinic Appointments / Visits (T-30 thru T+1)' + ItemTipColor = clWindow + LongList = False + Pieces = '3,2,4' + TabPositions = '30,50' + OnChange = lstClinicChange + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 444 + Height = 20 + Align = alTop + TabOrder = 2 + object lblDateRange: TLabel + Left = 138 + Top = 4 + Width = 71 + Height = 13 + Caption = '(T-30 thru T+1)' + end + object lblClinic: TLabel + Left = 4 + Top = 4 + Width = 127 + Height = 13 + Caption = 'Clinic Appointments / Visits' + end + end + end + object tabAdmit: TTabSheet + Caption = 'Hospital Admissions' + object lstAdmit: TORListBox + Left = 0 + Top = 17 + Width = 444 + Height = 187 + Align = alClient + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnDblClick = cmdOKClick + Caption = 'Hospital Admissions' + ItemTipColor = clWindow + LongList = False + Pieces = '3,5,4' + TabPositions = '20' + OnChange = lstAdmitChange + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 444 + Height = 17 + Align = alTop + TabOrder = 2 + object lblAdmit: TLabel + Left = 4 + Top = 1 + Width = 93 + Height = 13 + Caption = 'Hospital Admissions' + end + end + end + object tabNewVisit: TTabSheet + Caption = 'New Visit' + object lblVisitDate: TLabel + Left = 220 + Top = 4 + Width = 85 + Height = 13 + Caption = 'Date/Time of Visit' + Visible = False + end + object lblNewVisit: TLabel + Left = 4 + Top = 4 + Width = 63 + Height = 13 + Caption = 'Visit Location' + end + object calVisitDate: TORDateBox + Left = 220 + Top = 18 + Width = 140 + Height = 21 + TabOrder = 1 + Text = 'NOW' + OnChange = calVisitDateChange + OnExit = calVisitDateExit + DateOnly = False + RequireTime = True + end + object ckbHistorical: TORCheckBox + Left = 220 + Top = 50 + Width = 140 + Height = 81 + Caption = + 'Historical Visit: a visit that occurred at some time in the past' + + ' or at some other location (possibly non-VA) but is not used for' + + ' workload credit.' + ParentShowHint = False + ShowHint = True + TabOrder = 2 + WordWrap = True + OnClick = ckbHistoricalClick + AutoSize = True + end + object cboNewVisit: TORComboBox + Left = 4 + Top = 18 + Width = 208 + Height = 117 + Style = orcsSimple + AutoSelect = True + Caption = 'Visit Location' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnChange = cboNewVisitChange + OnDblClick = cmdOKClick + OnNeedData = cboNewVisitNeedData + CharsNeedMatch = 1 + end + end + end + end + object dlgDateRange: TORDateRangeDlg + DateOnly = True + Instruction = 'Show appointments / visits in the date range:' + LabelStart = 'From' + LabelStop = 'Through' + RequireTime = False + Format = 'mmm d,yyyy' + Left = 264 + Top = 4 + end +end diff --git a/CPRS-Chart/fEncnt.pas b/CPRS-Chart/fEncnt.pas new file mode 100644 index 0000000..5995814 --- /dev/null +++ b/CPRS-Chart/fEncnt.pas @@ -0,0 +1,540 @@ +unit fEncnt; + +//Modifed: 7/26/99 +//By: Robert Bott +//Location: ISL +//Description of Mod: +// Moved asignment of historical visit category from the cboNewVisitChange event +// to the ckbHistoricalClick event. + + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions; + +type + TfrmEncounter = class(TForm) + cboPtProvider: TORComboBox; + lblProvider: TLabel; + cmdOK: TButton; + cmdCancel: TButton; + lblLocation: TLabel; + txtLocation: TCaptionEdit; + dlgDateRange: TORDateRangeDlg; + cmdDateRange: TButton; + lblInstruct: TLabel; + Panel1: TPanel; + pgeVisit: TPageControl; + tabClinic: TTabSheet; + lstClinic: TORListBox; + tabAdmit: TTabSheet; + lstAdmit: TORListBox; + tabNewVisit: TTabSheet; + lblVisitDate: TLabel; + lblNewVisit: TLabel; + calVisitDate: TORDateBox; + ckbHistorical: TORCheckBox; + cboNewVisit: TORComboBox; + Panel2: TPanel; + lblDateRange: TLabel; + lblClinic: TLabel; + Panel3: TPanel; + lblAdmit: TLabel; + procedure FormCreate(Sender: TObject); + procedure pgeVisitChange(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cboNewVisitNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure calVisitDateChange(Sender: TObject); + procedure cboNewVisitChange(Sender: TObject); + procedure calVisitDateExit(Sender: TObject); + procedure cboPtProviderNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + procedure ckbHistoricalClick(Sender: TObject); + procedure cmdDateRangeClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure lstAdmitChange(Sender: TObject); + procedure lstClinicChange(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure FormShow(Sender: TObject); + private + CLINIC_TXT : String; + FFilter: Int64; + FPCDate: TFMDateTime; + FProvider: Int64; + FLocation: Integer; + FLocationName: string; + FDateTime: TFMDateTime; + FVisitCategory: Char; + FStandAlone: Boolean; + FFromSelf: Boolean; + FFromDate: TFMDateTime; + FThruDate: TFMDateTIme; + FEncFutureLimit: string; + FFromCreate: Boolean; + FOldHintEvent: TShowHintEvent; + OKPressed: Boolean; + procedure AppShowHint(var HintStr: string; var CanShow: Boolean; + var HintInfo: THintInfo); + procedure SetVisitCat; + public + { Public declarations } + end; + +procedure UpdateEncounter(PersonFilter: Int64; ADate: TFMDateTime = 0; TIULocation: integer = 0); +procedure UpdateVisit(FontSize: Integer); overload; +procedure UpdateVisit(FontSize: Integer; TIULocation: integer); overload; + +implementation + +{$R *.DFM} + +uses rCore, uCore, uConst, fReview, uPCE, rPCE; + +const + TC_MISSING = 'Incomplete Encounter Information'; + TX_NO_DATE = 'A valid date/time has not been entered.'; + TX_NO_TIME = 'A valid time has not been entered.'; + TX_NO_LOC = 'A visit location has not been selected.'; + TC_LOCONLY = 'Location for Current Activities'; + TX_FUTURE_WARNING = 'You have selected a visit with a date in the future. Are you sure?'; + TC_FUTURE_WARNING = 'Visit Is In Future'; + +var + uTIULocation: integer; + uTIULocationName: string; + +procedure UpdateVisit(FontSize: Integer); +begin + UpdateEncounter(NPF_SUPPRESS); +end; + +procedure UpdateVisit(FontSize: Integer; TIULocation: integer); +begin + UpdateEncounter(NPF_SUPPRESS, 0, TIULocation); +end; + +procedure UpdateEncounter(PersonFilter: Int64; ADate: TFMDateTime = 0; TIULocation: integer = 0); +const + UP_SHIFT = 85; +var + frmEncounter: TfrmEncounter; + CanChange: Boolean; + TimedOut: Boolean; +begin + uTIULocation := TIULocation; + if uTIULocation <> 0 then uTIULocationName := ExternalName(uTIULocation, FN_HOSPITAL_LOCATION); + frmEncounter := TfrmEncounter.Create(Application); + try + TimedOut := False; + ResizeAnchoredFormToFont(frmEncounter); + with frmEncounter do + begin + FFilter := PersonFilter; + FPCDate := ADate; + if PersonFilter = NPF_SUPPRESS then // not prompting for provider + begin + lblProvider.Visible := False; + cboPtProvider.Visible := False; + lblInstruct.Visible := True; + Caption := TC_LOCONLY; + Height := frmEncounter.Height - UP_SHIFT; + end + else // also prompt for provider + begin + // InitLongList must be done AFTER FFilter is set + cboPtProvider.InitLongList(Encounter.ProviderName); + cboPtProvider.SelectByIEN(FProvider); + end; + ShowModal; + if OKPressed then + begin + CanChange := True; + if (PersonFilter <> NPF_SUPPRESS) and + (((Encounter.Provider = User.DUZ) and (FProvider <> User.DUZ)) or + ((Encounter.Provider <> User.DUZ) and (FProvider = User.DUZ))) + then CanChange := ReviewChanges(TimedOut); + if CanChange then + begin + if PersonFilter <> NPF_SUPPRESS then Encounter.Provider := FProvider; + Encounter.Location := FLocation; + Encounter.DateTime := FDateTime; + Encounter.VisitCategory := FVisitCategory; + Encounter.StandAlone := FStandAlone; + end; + end; + end; + finally + frmEncounter.Release; + end; +end; + +procedure TfrmEncounter.FormCreate(Sender: TObject); +var + ADateFrom, ADateThru: TDateTime; + BDateFrom, BDateThru: Integer; + BDisplayFrom, BDisplayThru: String; +begin + inherited; + FProvider := Encounter.Provider; + FLocation := Encounter.Location; + FLocationName := Encounter.LocationName; + FDateTime := Encounter.DateTime; + FVisitCategory := Encounter.VisitCategory; + FStandAlone := Encounter.StandAlone; + rpcGetEncFutureDays(FEncFutureLimit); + rpcGetRangeForEncs(BDateFrom, BDateThru, False); // Get user's current date range settings. + if BDateFrom > 0 then + BDisplayFrom := 'T-' + IntToStr(BDateFrom) + else + BDisplayFrom := 'T'; + if BDateThru > 0 then + BDisplayThru := 'T+' + IntToStr(BDateThru) + else + BDisplayThru := 'T'; + lblDateRange.Caption := '(' + BDisplayFrom + ' thru ' + BDisplayThru + ')'; + ADateFrom := (FMDateTimeToDateTime(FMToday) - BDateFrom); + ADateThru := (FMDateTimeToDateTime(FMToday) + BDateThru); + FFromDate := DateTimeToFMDateTime(ADateFrom); + FThruDate := DateTimeToFMDateTime(ADateThru) + 0.2359; + FFromCreate := True; + with txtLocation do if Length(FLocationName) > 0 then + begin + Text := FLocationName + ' '; + if (FVisitCategory <> 'H') and (FDateTime <> 0) then + Text := Text + FormatFMDateTime('mmm dd,yy hh:nn', FDateTime); + end + else Text := '< Select a location from the tabs below.... >'; + OKPressed := False; + pgeVisit.ActivePage := tabClinic; + pgeVisitChange(Self); + if lstClinic.Items.Count = 0 then + begin + pgeVisit.ActivePage := tabNewVisit; + pgeVisitChange(Self); + end; + ckbHistorical.Hint := 'A historical visit or encounter is a visit that occurred at some time' + CRLF + + 'in the past or at some other location (possibly non-VA). Although these' + CRLF + + 'are not used for workload credit, they can be used for setting up the' + CRLF + + 'PCE reminder maintenance system, or other non-workload-related reasons.'; + FOldHintEvent := Application.OnShowHint; + Application.OnShowHint := AppShowHint; + FFromCreate := False; + //JAWS will read the second caption if 2 are displayed, so Combining Labels + CLINIC_TXT := lblClinic.Caption+' '; + lblClinic.Caption := CLINIC_TXT + lblDateRange.Caption; + lblDateRange.Hide; +end; + +procedure TfrmEncounter.cboPtProviderNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + case FFilter of + NPF_PROVIDER: cboPtProvider.ForDataUse(SubSetOfProviders(StartFrom, Direction)); +// NPF_ENCOUNTER: cboPtProvider.ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FloatToStr(FPCDate))); + else cboPtProvider.ForDataUse(SubSetOfPersons(StartFrom, Direction)); + end; +end; + +procedure TfrmEncounter.pgeVisitChange(Sender: TObject); +begin + inherited; + cmdDateRange.Visible := pgeVisit.ActivePage = tabClinic; + if (pgeVisit.ActivePage = tabClinic) and (lstClinic.Items.Count = 0) then + begin + ListApptAll(lstClinic.Items, Patient.DFN, FFromDate, FThruDate); + ActiveControl := lstClinic; + end; + if (pgeVisit.ActivePage = tabAdmit) and (lstAdmit.Items.Count = 0) then + begin + ListAdmitAll(lstAdmit.Items, Patient.DFN); + ActiveControl := lstAdmit; + end; + if pgeVisit.ActivePage = tabNewVisit then + begin + if cboNewVisit.Items.Count = 0 then + begin + if FVisitCategory <> 'H' then + begin + if uTIULocation <> 0 then + begin + cboNewVisit.InitLongList(uTIULocationName); + cboNewVisit.SelectByIEN(uTIULocation); + cboNewVisitChange(Self); + end + else + begin + cboNewVisit.InitLongList(FLocationName); + if Encounter.Location <> 0 then cboNewVisit.SelectByIEN(FLocation); + end; + FFromSelf := True; + with calVisitDate do if FDateTime <> 0 then FMDateTime := FDateTime else Text := 'NOW'; + FFromSelf := False; + ActiveControl := cboNewVisit; + end + else if FVisitCategory = 'E' then + begin + ckbHistorical.Checked := True; + ActiveControl := cboNewVisit; + end + else + begin + cboNewVisit.InitLongList(''); + //ActiveControl := cboPtProvider; + end; + //ckbHistorical.Checked := FVisitCategory = 'E'; + //ActiveControl := cboNewVisit; + end; {if cboNewVisit} + end; {if pgeVisit.ActivePage} +end; + +procedure TfrmEncounter.cboNewVisitNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + cboNewVisit.ForDataUse(SubSetOfNewLocs(StartFrom, Direction)); +end; + +procedure TfrmEncounter.cmdDateRangeClick(Sender: TObject); +begin + dlgDateRange.FMDateStart := FFromDate; + dlgDateRange.FMDateStop := FThruDate; + if dlgDateRange.Execute then + begin + FFromDate := dlgDateRange.FMDateStart; + FThruDate := dlgDateRange.FMDateStop + 0.2359; + lblDateRange.Caption := '(' + dlgDateRange.RelativeStart + ' thru ' + + dlgDateRange.RelativeStop + ')'; + //label + lblClinic.Caption := CLINIC_TXT + lblDateRange.Caption; + //list + lstClinic.Caption := lblClinic.Caption + ' ' + lblDateRange.Caption; + lstClinic.Items.Clear; + ListApptAll(lstClinic.Items, Patient.DFN, FFromDate, FThruDate); + end; +end; + +procedure TfrmEncounter.cboNewVisitChange(Sender: TObject); +begin + inherited; + with cboNewVisit do + begin + FLocation := ItemIEN; + FLocationName := DisplayText[ItemIndex]; + FDateTime := calVisitDate.FMDateTime; + SetVisitCat; + with txtLocation do + begin + Text := FLocationName + ' '; + if FDateTime <> 0 then Text := Text + FormatFMDateTime('mmm dd,yy hh:nn', FDateTime); + end; + end; +end; + +procedure TfrmEncounter.calVisitDateChange(Sender: TObject); +begin + inherited; + // The FFromSelf was added because without it, a new visit (minus the seconds gets created. + // Setting the text of calVisit caused the text to be re-evaluated & changed the FMDateTime property. + if FFromSelf then Exit; + with cboNewVisit do + begin + FLocation := ItemIEN; + FLocationName := DisplayText[ItemIndex]; + FDateTime := calVisitDate.FMDateTime; + SetVisitCat; + txtLocation.Text := FLocationName + ' ' + calVisitDate.Text; + end; +end; + +procedure TfrmEncounter.calVisitDateExit(Sender: TObject); +begin + inherited; + with cboNewVisit do if ItemIEN > 0 then + begin + FLocation := ItemIEN; + FLocationName := DisplayText[ItemIndex]; + FDateTime := calVisitDate.FMDateTime; + SetVisitCat; + with txtLocation do + begin + Text := FLocationName + ' '; + if FDateTime <> 0 then Text := Text + FormatFMDateTime('mmm dd,yy hh:nn', FDateTime); + end; + end; +end; + +procedure TfrmEncounter.cmdOKClick(Sender: TObject); +var + msg: string; + ADate, AMaxDate: TDateTime; + +begin + inherited; + msg := ''; + if FLocation = 0 then msg := TX_NO_LOC; + if FDateTime <= 0 then msg := msg + CRLF + TX_NO_DATE + else if(pos('.',FloatToStr(FDateTime)) = 0) then msg := msg + CRLF + TX_NO_TIME; + if(msg <> '') then + begin + InfoBox(msg, TC_MISSING, MB_OK); + Exit; + end + else + begin + ADate := FMDateTimeToDateTime(Trunc(FDateTime)); + AMaxDate := FMDateTimeToDateTime(FMToday) + StrToIntDef(FEncFutureLimit, 0); + if ADate > AMaxDate then + if InfoBox(TX_FUTURE_WARNING, TC_FUTURE_WARNING, MB_YESNO or MB_ICONQUESTION) = MRNO then exit; + end; + if FFilter <> NPF_SUPPRESS then FProvider := cboPtProvider.ItemIEN; + OKPressed := True; + Close; +end; + +procedure TfrmEncounter.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmEncounter.ckbHistoricalClick(Sender: TObject); +begin + SetVisitCat; +end; + +{ +procedure TfrmEncounter.cboPtProviderChange(Sender: TObject); +var + txt: string; + AIEN: Int64; + +begin + if(FFilter <> NPF_ENCOUNTER) then exit; + AIEN := cboPtProvider.ItemIEN; + if(AIEN <> 0) then + begin + txt := InvalidPCEProviderTxt(AIEN, FPCDate); + if(txt <> '') then + begin + InfoBox(cboPtProvider.text + txt, TX_BAD_PROV, MB_OK); + cboPtProvider.ItemIndex := -1; + end; + end; +end; + } + +procedure TfrmEncounter.AppShowHint(var HintStr: string; + var CanShow: Boolean; var HintInfo: THintInfo); +const + HistHintDelay = 30000; // 30 seconds + +begin + if (not Assigned(HintInfo.HintControl)) then exit; + if(HintInfo.HintControl = ckbHistorical) then + HintInfo.HideTimeout := HistHintDelay; + if(assigned(FOldHintEvent)) then + FOldHintEvent(HintStr, CanShow, HintInfo); +end; + +procedure TfrmEncounter.FormDestroy(Sender: TObject); +begin + //Application.OnShowHint := FOldHintEvent; v22.11f - RV +end; + +procedure TfrmEncounter.SetVisitCat; +begin + if ckbHistorical.Checked then + FVisitCategory := 'E' + else + FVisitCategory := GetVisitCat('A', FLocation, Patient.Inpatient); + FStandAlone := (FVisitCategory = 'A'); +end; + +procedure TfrmEncounter.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Application.OnShowHint := FOldHintEvent; +end; + +procedure TfrmEncounter.lstAdmitChange(Sender: TObject); +begin + inherited; + with lstAdmit do + begin + FLocation := StrToIntDef(Piece(Items[ItemIndex], U, 2), 0); + FLocationName := Piece(Items[ItemIndex], U, 3); + FDateTime := MakeFMDateTime(ItemID); + FVisitCategory := 'H'; + FStandAlone := False; + txtLocation.Text := FLocationName; // don't show admit date (could confuse user) + end; +end; + +procedure TfrmEncounter.lstClinicChange(Sender: TObject); +// V|A;DateTime;LocIEN^DateTime^LocName^Status +begin + inherited; + with lstClinic do + begin + FLocation := StrToIntDef(Piece(ItemID, ';', 3), 0); + FLocationName := Piece(Items[ItemIndex], U, 3); + FDateTime := MakeFMDateTime(Piece(ItemID,';', 2)); + FVisitCategory := 'A'; + FStandAlone := CharAt(ItemID, 1) = 'V'; + with txtLocation do + begin + Text := FLocationName + ' '; + if FDateTime <> 0 then Text := Text + FormatFMDateTime('mmm dd,yy hh:nn', FDateTime); + end; + end; +end; + +procedure TfrmEncounter.FormResize(Sender: TObject); +begin + //CQ7118 + if cboPtProvider.Visible then + begin + cmdOK.Left := cboPtProvider.Left + cboPtProvider.Width + 1; + cmdCancel.Left := cboPtProvider.Left + cboPtProvider.Width + 1; + end + else + begin + cmdOK.Left := cmdDateRange.Left; + cmdCancel.Left := cmdDateRange.Left; + end; + + cmdCancel.Top := cmdDateRange.Top - cmdCancel.Height - 10; + cmdOK.Top := cmdCancel.Top - cmdOK.Height - 1; + + cmdCancel.Top := cmdOK.Top + cmdOK.Height + 1; + cmdCancel.Width := cmdOK.Width; + //end CQ7118 +end; + +procedure TfrmEncounter.FormShow(Sender: TObject); +begin + //CQ7118 + if cboPtProvider.Visible then + begin + cmdOK.Left := cboPtProvider.Left + cboPtProvider.Width + 1; + cmdCancel.Left := cboPtProvider.Left + cboPtProvider.Width + 1; + end + else + begin + cmdOK.Left := cmdDateRange.Left; + cmdCancel.Left := cmdDateRange.Left; + end; + + cmdCancel.Top := cmdDateRange.Top - cmdCancel.Height - 10; + cmdOK.Top := cmdCancel.Top - cmdOK.Height - 1; + cmdCancel.Top := cmdOK.Top + cmdOK.Height + 1; + //end CQ7118 +end; + +end. diff --git a/CPRS-Chart/fEncntKEEP.dfm b/CPRS-Chart/fEncntKEEP.dfm new file mode 100644 index 0000000..29d3da6 --- /dev/null +++ b/CPRS-Chart/fEncntKEEP.dfm @@ -0,0 +1,277 @@ +object frmEncounter: TfrmEncounter + Left = 435 + Top = 175 + Width = 351 + Height = 350 + BorderIcons = [biSystemMenu] + Caption = 'Provider & Location for Current Activities' + 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 + OnCreate = FormCreate + OnDestroy = FormDestroy + DesignSize = ( + 343 + 323) + PixelsPerInch = 96 + TextHeight = 13 + object lblInstruct: TLabel + Left = 6 + Top = 6 + Width = 253 + Height = 31 + AutoSize = False + Caption = + 'Select the appointment or visit that should be associated with t' + + 'he note or orders .' + Visible = False + WordWrap = True + end + object lblLocation: TLabel + Tag = 9 + Left = 6 + Top = 133 + Width = 93 + Height = 13 + Caption = 'Encounter Location' + end + object lblProvider: TLabel + Left = 6 + Top = 6 + Width = 91 + Height = 13 + Caption = 'Encounter Provider' + end + object cmdOK: TButton + Left = 250 + Top = 20 + Width = 72 + Height = 21 + Caption = 'OK' + Default = True + TabOrder = 4 + OnClick = cmdOKClick + end + object cmdCancel: TButton + Left = 250 + Top = 49 + Width = 72 + Height = 21 + Cancel = True + Caption = 'Cancel' + TabOrder = 5 + OnClick = cmdCancelClick + end + object txtLocation: TCaptionEdit + Tag = 9 + Left = 6 + Top = 147 + Width = 212 + Height = 21 + Color = clBtnFace + ReadOnly = True + TabOrder = 1 + Text = '< Select a location from the tabs below.... >' + Caption = 'Encounter Location' + end + object pgeVisit: TPageControl + Tag = 9 + Left = 6 + Top = 171 + Width = 331 + Height = 147 + ActivePage = tabClinic + Anchors = [akLeft, akTop, akBottom] + TabIndex = 0 + TabOrder = 2 + OnChange = pgeVisitChange + object tabClinic: TTabSheet + Caption = 'Clinic Appointments' + DesignSize = ( + 323 + 119) + object lblClinic: TLabel + Left = 4 + Top = 4 + Width = 127 + Height = 13 + Caption = 'Clinic Appointments / Visits' + end + object lblDateRange: TLabel + Left = 138 + Top = 4 + Width = 71 + Height = 13 + Caption = '(T-30 thru T+1)' + end + object lstClinic: TORListBox + Left = 0 + Top = 18 + Width = 321 + Height = 97 + Anchors = [akLeft, akTop, akBottom] + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnDblClick = cmdOKClick + Caption = 'Clinic Appointments / Visits (T-30 thru T+1)' + ItemTipColor = clWindow + LongList = False + Pieces = '3,2,4' + TabPositions = '20' + OnChange = lstClinicChange + end + end + object tabAdmit: TTabSheet + Caption = 'Hospital Admissions' + object lblAdmit: TLabel + Left = 4 + Top = 4 + Width = 93 + Height = 13 + Caption = 'Hospital Admissions' + end + object lstAdmit: TORListBox + Left = 4 + Top = 18 + Width = 352 + Height = 117 + ItemHeight = 13 + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnDblClick = cmdOKClick + Caption = 'Hospital Admissions' + ItemTipColor = clWindow + LongList = False + Pieces = '3,5,4' + TabPositions = '20' + OnChange = lstAdmitChange + end + end + object tabNewVisit: TTabSheet + Caption = 'New Visit' + object lblVisitDate: TLabel + Left = 220 + Top = 4 + Width = 85 + Height = 13 + Caption = 'Date/Time of Visit' + Visible = False + end + object lblNewVisit: TLabel + Left = 4 + Top = 4 + Width = 63 + Height = 13 + Caption = 'Visit Location' + end + object calVisitDate: TORDateBox + Left = 220 + Top = 18 + Width = 140 + Height = 21 + TabOrder = 1 + Text = 'NOW' + OnChange = calVisitDateChange + OnExit = calVisitDateExit + DateOnly = False + RequireTime = True + end + object ckbHistorical: TORCheckBox + Left = 220 + Top = 50 + Width = 140 + Height = 81 + Caption = + 'Historical Visit: a visit that occurred at some time in the past' + + ' or at some other location (possibly non-VA) but is not used for' + + ' workload credit.' + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = ckbHistoricalClick + WordWrap = True + AutoSize = True + end + object cboNewVisit: TORComboBox + Left = 4 + Top = 18 + Width = 208 + Height = 117 + Style = orcsSimple + AutoSelect = True + Caption = 'Visit Location' + Color = clWindow + DropDownCount = 8 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = True + LongList = True + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + OnChange = cboNewVisitChange + OnDblClick = cmdOKClick + OnNeedData = cboNewVisitNeedData + CharsNeedMatch = 1 + end + end + end + object cmdDateRange: TButton + Tag = 9 + Left = 224 + Top = 145 + Width = 90 + Height = 21 + Caption = 'Date Range...' + TabOrder = 3 + OnClick = cmdDateRangeClick + end + object cboPtProvider: TORComboBox + Left = 6 + Top = 20 + Width = 235 + Height = 93 + Style = orcsSimple + AutoSelect = True + Caption = 'Encounter Provider' + 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 + OnDblClick = cmdOKClick + OnNeedData = cboPtProviderNeedData + CharsNeedMatch = 1 + end + object dlgDateRange: TORDateRangeDlg + DateOnly = True + Instruction = 'Show appointments / visits in the date range:' + LabelStart = 'From' + LabelStop = 'Through' + RequireTime = False + Format = 'mmm d,yyyy' + Left = 264 + Top = 4 + end +end diff --git a/CPRS-Chart/fEncntKEEP.pas b/CPRS-Chart/fEncntKEEP.pas new file mode 100644 index 0000000..b5b5c9a --- /dev/null +++ b/CPRS-Chart/fEncntKEEP.pas @@ -0,0 +1,475 @@ +unit fEncntKEEP; + +//Modifed: 7/26/99 +//By: Robert Bott +//Location: ISL +//Description of Mod: +// Moved asignment of historical visit category from the cboNewVisitChange event +// to the ckbHistoricalClick event. + + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions; + +type + TfrmEncounter = class(TForm) + cboPtProvider: TORComboBox; + lblProvider: TLabel; + cmdOK: TButton; + cmdCancel: TButton; + lblLocation: TLabel; + txtLocation: TCaptionEdit; + pgeVisit: TPageControl; + tabClinic: TTabSheet; + lblClinic: TLabel; + lblDateRange: TLabel; + lstClinic: TORListBox; + tabAdmit: TTabSheet; + lblAdmit: TLabel; + lstAdmit: TORListBox; + tabNewVisit: TTabSheet; + lblVisitDate: TLabel; + lblNewVisit: TLabel; + calVisitDate: TORDateBox; + ckbHistorical: TORCheckBox; + cboNewVisit: TORComboBox; + dlgDateRange: TORDateRangeDlg; + cmdDateRange: TButton; + lblInstruct: TLabel; + procedure FormCreate(Sender: TObject); + procedure pgeVisitChange(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure cmdCancelClick(Sender: TObject); + procedure cboNewVisitNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure calVisitDateChange(Sender: TObject); + procedure cboNewVisitChange(Sender: TObject); + procedure calVisitDateExit(Sender: TObject); + procedure cboPtProviderNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); + procedure ckbHistoricalClick(Sender: TObject); + procedure cmdDateRangeClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure lstAdmitChange(Sender: TObject); + procedure lstClinicChange(Sender: TObject); + private + CLINIC_TXT : String; + FFilter: Int64; + FPCDate: TFMDateTime; + FProvider: Int64; + FLocation: Integer; + FLocationName: string; + FDateTime: TFMDateTime; + FVisitCategory: Char; + FStandAlone: Boolean; + FFromSelf: Boolean; + FFromDate: TFMDateTime; + FThruDate: TFMDateTIme; + FEncFutureLimit: string; + FFromCreate: Boolean; + FOldHintEvent: TShowHintEvent; + OKPressed: Boolean; + procedure AppShowHint(var HintStr: string; var CanShow: Boolean; + var HintInfo: THintInfo); + procedure SetVisitCat; + public + { Public declarations } + end; + +procedure UpdateEncounter(PersonFilter: Int64; ADate: TFMDateTime = 0; TIULocation: integer = 0); +procedure UpdateVisit(FontSize: Integer); overload; +procedure UpdateVisit(FontSize: Integer; TIULocation: integer); overload; + +implementation + +{$R *.DFM} + +uses rCore, uCore, uConst, fReview, uPCE, rPCE; + +const + TC_MISSING = 'Incomplete Encounter Information'; + TX_NO_DATE = 'A valid date/time has not been entered.'; + TX_NO_TIME = 'A valid time has not been entered.'; + TX_NO_LOC = 'A visit location has not been selected.'; + TC_LOCONLY = 'Location for Current Activities'; + TX_FUTURE_WARNING = 'You have selected a visit with a date in the future. Are you sure?'; + TC_FUTURE_WARNING = 'Visit Is In Future'; + +var + uTIULocation: integer; + uTIULocationName: string; + +procedure UpdateVisit(FontSize: Integer); +begin + UpdateEncounter(NPF_SUPPRESS); +end; + +procedure UpdateVisit(FontSize: Integer; TIULocation: integer); +begin + UpdateEncounter(NPF_SUPPRESS, 0, TIULocation); +end; + +procedure UpdateEncounter(PersonFilter: Int64; ADate: TFMDateTime = 0; TIULocation: integer = 0); +const + UP_SHIFT = 85; +var + frmEncounter: TfrmEncounter; + CanChange: Boolean; + TimedOut: Boolean; +begin + uTIULocation := TIULocation; + if uTIULocation <> 0 then uTIULocationName := ExternalName(uTIULocation, FN_HOSPITAL_LOCATION); + frmEncounter := TfrmEncounter.Create(Application); + try + TimedOut := False; + ResizeAnchoredFormToFont(frmEncounter); + with frmEncounter do + begin + FFilter := PersonFilter; + FPCDate := ADate; + if PersonFilter = NPF_SUPPRESS then // not prompting for provider + begin + lblProvider.Visible := False; + cboPtProvider.Visible := False; + lblInstruct.Visible := True; + Caption := TC_LOCONLY; + Height := frmEncounter.Height - UP_SHIFT; + end + else // also prompt for provider + begin + // InitLongList must be done AFTER FFilter is set + cboPtProvider.InitLongList(Encounter.ProviderName); + cboPtProvider.SelectByIEN(FProvider); + end; + ShowModal; + if OKPressed then + begin + CanChange := True; + if (PersonFilter <> NPF_SUPPRESS) and + (((Encounter.Provider = User.DUZ) and (FProvider <> User.DUZ)) or + ((Encounter.Provider <> User.DUZ) and (FProvider = User.DUZ))) + then CanChange := ReviewChanges(TimedOut); + if CanChange then + begin + if PersonFilter <> NPF_SUPPRESS then Encounter.Provider := FProvider; + Encounter.Location := FLocation; + Encounter.DateTime := FDateTime; + Encounter.VisitCategory := FVisitCategory; + Encounter.StandAlone := FStandAlone; + end; + end; + end; + finally + frmEncounter.Release; + end; +end; + +procedure TfrmEncounter.FormCreate(Sender: TObject); +var + ADateFrom, ADateThru: TDateTime; + BDateFrom, BDateThru: Integer; + BDisplayFrom, BDisplayThru: String; +begin + inherited; + FProvider := Encounter.Provider; + FLocation := Encounter.Location; + FLocationName := Encounter.LocationName; + FDateTime := Encounter.DateTime; + FVisitCategory := Encounter.VisitCategory; + FStandAlone := Encounter.StandAlone; + rpcGetEncFutureDays(FEncFutureLimit); + rpcGetRangeForEncs(BDateFrom, BDateThru, False); // Get user's current date range settings. + if BDateFrom > 0 then + BDisplayFrom := 'T-' + IntToStr(BDateFrom) + else + BDisplayFrom := 'T'; + if BDateThru > 0 then + BDisplayThru := 'T+' + IntToStr(BDateThru) + else + BDisplayThru := 'T'; + lblDateRange.Caption := '(' + BDisplayFrom + ' thru ' + BDisplayThru + ')'; + ADateFrom := (FMDateTimeToDateTime(FMToday) - BDateFrom); + ADateThru := (FMDateTimeToDateTime(FMToday) + BDateThru); + FFromDate := DateTimeToFMDateTime(ADateFrom); + FThruDate := DateTimeToFMDateTime(ADateThru) + 0.2359; + FFromCreate := True; + with txtLocation do if Length(FLocationName) > 0 then + begin + Text := FLocationName + ' '; + if (FVisitCategory <> 'H') and (FDateTime <> 0) then + Text := Text + FormatFMDateTime('mmm dd,yy hh:nn', FDateTime); + end + else Text := '< Select a location from the tabs below.... >'; + OKPressed := False; + pgeVisit.ActivePage := tabClinic; + pgeVisitChange(Self); + if lstClinic.Items.Count = 0 then + begin + pgeVisit.ActivePage := tabNewVisit; + pgeVisitChange(Self); + end; + ckbHistorical.Hint := 'A historical visit or encounter is a visit that occurred at some time' + CRLF + + 'in the past or at some other location (possibly non-VA). Although these' + CRLF + + 'are not used for workload credit, they can be used for setting up the' + CRLF + + 'PCE reminder maintenance system, or other non-workload-related reasons.'; + FOldHintEvent := Application.OnShowHint; + Application.OnShowHint := AppShowHint; + FFromCreate := False; + //JAWS will read the second caption if 2 are displayed, so Combining Labels + CLINIC_TXT := lblClinic.Caption+' '; + lblClinic.Caption := CLINIC_TXT + lblDateRange.Caption; + lblDateRange.Hide; +end; + +procedure TfrmEncounter.cboPtProviderNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + case FFilter of + NPF_PROVIDER: cboPtProvider.ForDataUse(SubSetOfProviders(StartFrom, Direction)); +// NPF_ENCOUNTER: cboPtProvider.ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FloatToStr(FPCDate))); + else cboPtProvider.ForDataUse(SubSetOfPersons(StartFrom, Direction)); + end; +end; + +procedure TfrmEncounter.pgeVisitChange(Sender: TObject); +begin + inherited; + cmdDateRange.Visible := pgeVisit.ActivePage = tabClinic; + if (pgeVisit.ActivePage = tabClinic) and (lstClinic.Items.Count = 0) + then ListApptAll(lstClinic.Items, Patient.DFN, FFromDate, FThruDate); + if (pgeVisit.ActivePage = tabAdmit) and (lstAdmit.Items.Count = 0) + then ListAdmitAll(lstAdmit.Items, Patient.DFN); + if pgeVisit.ActivePage = tabNewVisit then + begin + if cboNewVisit.Items.Count = 0 then + begin + if FVisitCategory <> 'H' then + begin + if uTIULocation <> 0 then + begin + cboNewVisit.InitLongList(uTIULocationName); + cboNewVisit.SelectByIEN(uTIULocation); + end + else + begin + cboNewVisit.InitLongList(FLocationName); + if Encounter.Location <> 0 then cboNewVisit.SelectByIEN(FLocation); + end; + FFromSelf := True; + with calVisitDate do if FDateTime <> 0 then FMDateTime := FDateTime else Text := 'NOW'; + FFromSelf := False; + end + else cboNewVisit.InitLongList(''); + ckbHistorical.Checked := FVisitCategory = 'E'; + end; {if cboNewVisit} + end; {if pgeVisit.ActivePage} +end; + +procedure TfrmEncounter.cboNewVisitNeedData(Sender: TObject; const StartFrom: string; + Direction, InsertAt: Integer); +begin + inherited; + cboNewVisit.ForDataUse(SubSetOfNewLocs(StartFrom, Direction)); +end; + +procedure TfrmEncounter.cmdDateRangeClick(Sender: TObject); +begin + dlgDateRange.FMDateStart := FFromDate; + dlgDateRange.FMDateStop := FThruDate; + if dlgDateRange.Execute then + begin + FFromDate := dlgDateRange.FMDateStart; + FThruDate := dlgDateRange.FMDateStop + 0.2359; + lblDateRange.Caption := '(' + dlgDateRange.RelativeStart + ' thru ' + + dlgDateRange.RelativeStop + ')'; + //label + lblClinic.Caption := CLINIC_TXT + lblDateRange.Caption; + //list + lstClinic.Caption := lblClinic.Caption + ' ' + lblDateRange.Caption; + lstClinic.Items.Clear; + ListApptAll(lstClinic.Items, Patient.DFN, FFromDate, FThruDate); + end; +end; + +procedure TfrmEncounter.cboNewVisitChange(Sender: TObject); +begin + inherited; + with cboNewVisit do + begin + FLocation := ItemIEN; + FLocationName := DisplayText[ItemIndex]; + FDateTime := calVisitDate.FMDateTime; + SetVisitCat; + with txtLocation do + begin + Text := FLocationName + ' '; + if FDateTime <> 0 then Text := Text + FormatFMDateTime('mmm dd,yy hh:nn', FDateTime); + end; + end; +end; + +procedure TfrmEncounter.calVisitDateChange(Sender: TObject); +begin + inherited; + // The FFromSelf was added because without it, a new visit (minus the seconds gets created. + // Setting the text of calVisit caused the text to be re-evaluated & changed the FMDateTime property. + if FFromSelf then Exit; + with cboNewVisit do + begin + FLocation := ItemIEN; + FLocationName := DisplayText[ItemIndex]; + FDateTime := calVisitDate.FMDateTime; + SetVisitCat; + txtLocation.Text := FLocationName + ' ' + calVisitDate.Text; + end; +end; + +procedure TfrmEncounter.calVisitDateExit(Sender: TObject); +begin + inherited; + with cboNewVisit do if ItemIEN > 0 then + begin + FLocation := ItemIEN; + FLocationName := DisplayText[ItemIndex]; + FDateTime := calVisitDate.FMDateTime; + SetVisitCat; + with txtLocation do + begin + Text := FLocationName + ' '; + if FDateTime <> 0 then Text := Text + FormatFMDateTime('mmm dd,yy hh:nn', FDateTime); + end; + end; +end; + +procedure TfrmEncounter.cmdOKClick(Sender: TObject); +var + msg: string; + ADate, AMaxDate: TDateTime; + +begin + inherited; + msg := ''; + if FLocation = 0 then msg := TX_NO_LOC; + if FDateTime <= 0 then msg := msg + CRLF + TX_NO_DATE + else if(pos('.',FloatToStr(FDateTime)) = 0) then msg := msg + CRLF + TX_NO_TIME; + if(msg <> '') then + begin + InfoBox(msg, TC_MISSING, MB_OK); + Exit; + end + else + begin + ADate := FMDateTimeToDateTime(Trunc(FDateTime)); + AMaxDate := FMDateTimeToDateTime(FMToday) + StrToIntDef(FEncFutureLimit, 0); + if ADate > AMaxDate then + if InfoBox(TX_FUTURE_WARNING, TC_FUTURE_WARNING, MB_YESNO or MB_ICONQUESTION) = MRNO then exit; + end; + if FFilter <> NPF_SUPPRESS then FProvider := cboPtProvider.ItemIEN; + OKPressed := True; + Close; +end; + +procedure TfrmEncounter.cmdCancelClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmEncounter.ckbHistoricalClick(Sender: TObject); +begin + SetVisitCat; +end; + +{ +procedure TfrmEncounter.cboPtProviderChange(Sender: TObject); +var + txt: string; + AIEN: Int64; + +begin + if(FFilter <> NPF_ENCOUNTER) then exit; + AIEN := cboPtProvider.ItemIEN; + if(AIEN <> 0) then + begin + txt := InvalidPCEProviderTxt(AIEN, FPCDate); + if(txt <> '') then + begin + InfoBox(cboPtProvider.text + txt, TX_BAD_PROV, MB_OK); + cboPtProvider.ItemIndex := -1; + end; + end; +end; + } + +procedure TfrmEncounter.AppShowHint(var HintStr: string; + var CanShow: Boolean; var HintInfo: THintInfo); +const + HistHintDelay = 30000; // 30 seconds + +begin + if (not Assigned(HintInfo.HintControl)) then exit; + if(HintInfo.HintControl = ckbHistorical) then + HintInfo.HideTimeout := HistHintDelay; + if(assigned(FOldHintEvent)) then + FOldHintEvent(HintStr, CanShow, HintInfo); +end; + +procedure TfrmEncounter.FormDestroy(Sender: TObject); +begin + //Application.OnShowHint := FOldHintEvent; v22.11f - RV +end; + +procedure TfrmEncounter.SetVisitCat; +begin + if ckbHistorical.Checked then + FVisitCategory := 'E' + else + FVisitCategory := GetVisitCat('A', FLocation, Patient.Inpatient); + FStandAlone := (FVisitCategory = 'A'); +end; + +procedure TfrmEncounter.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Application.OnShowHint := FOldHintEvent; +end; + +procedure TfrmEncounter.lstAdmitChange(Sender: TObject); +begin + inherited; + with lstAdmit do + begin + FLocation := StrToIntDef(Piece(Items[ItemIndex], U, 2), 0); + FLocationName := Piece(Items[ItemIndex], U, 3); + FDateTime := MakeFMDateTime(ItemID); + FVisitCategory := 'H'; + FStandAlone := False; + txtLocation.Text := FLocationName; // don't show admit date (could confuse user) + end; +end; + +procedure TfrmEncounter.lstClinicChange(Sender: TObject); +// V|A;DateTime;LocIEN^DateTime^LocName^Status +begin + inherited; + with lstClinic do + begin + FLocation := StrToIntDef(Piece(ItemID, ';', 3), 0); + FLocationName := Piece(Items[ItemIndex], U, 3); + FDateTime := MakeFMDateTime(Piece(ItemID,';', 2)); + FVisitCategory := 'A'; + FStandAlone := CharAt(ItemID, 1) = 'V'; + with txtLocation do + begin + Text := FLocationName + ' '; + if FDateTime <> 0 then Text := Text + FormatFMDateTime('mmm dd,yy hh:nn', FDateTime); + end; + end; +end; + +end. diff --git a/CPRS-Chart/fFrame.ddp b/CPRS-Chart/fFrame.ddp new file mode 100644 index 0000000..44d54ac Binary files /dev/null and b/CPRS-Chart/fFrame.ddp differ diff --git a/CPRS-Chart/fFrame.dfm b/CPRS-Chart/fFrame.dfm new file mode 100644 index 0000000..63ca194 --- /dev/null +++ b/CPRS-Chart/fFrame.dfm @@ -0,0 +1,1048 @@ +object frmFrame: TfrmFrame + Left = 380 + Top = 292 + Width = 684 + Height = 487 + Caption = 'p' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIForm + KeyPreview = True + Menu = mnuFrame + OldCreateOrder = True + Visible = True + OnActivate = FormActivate + OnClose = FormClose + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnDestroy = FormDestroy + OnHelp = FormHelp + OnKeyDown = FormKeyDown + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object pnlNoPatientSelected: TPanel + Left = 0 + Top = 0 + Width = 676 + Height = 433 + Align = alClient + Caption = 'No patient is currently selected' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + Visible = False + end + object pnlPatientSelected: TPanel + Left = 0 + Top = 0 + Width = 676 + Height = 433 + Align = alClient + TabOrder = 0 + object bvlPageTop: TBevel + Left = 1 + Top = 41 + Width = 674 + Height = 1 + Align = alTop + end + object pnlToolbar: TPanel + Left = 1 + Top = 1 + Width = 674 + Height = 40 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object bvlToolTop: TBevel + Left = 0 + Top = 0 + Width = 674 + Height = 1 + Align = alTop + Style = bsRaised + end + object pnlCCOW: TPanel + Left = 0 + Top = 1 + Width = 39 + Height = 39 + Align = alLeft + BevelWidth = 2 + ParentShowHint = False + ShowHint = True + TabOrder = 8 + object imgCCOW: TImage + Left = 2 + Top = 2 + Width = 35 + Height = 35 + Align = alClient + Center = True + Picture.Data = { + 07544269746D617052030000424D520300000000000052020000280000001000 + 000010000000010008000000000000010000120B0000120B0000870000008700 + 00003F3E3F003A393A007B351600BCB6B30082340900642700008D3F0D00985B + 3400B19A8C00B5A59B008B3700008A3700008936000088360000873500008635 + 00008535000083340000813300007D3100007D3200007B3100007A3000007830 + 0000772F0000762F0000742E00006F2C00006E2B00006C2B00006A2A00006829 + 0000662800006528000061260000602600005C2400005B240000592300005823 + 0000562200008B3801008C3902008C3903008C3A04008C3B05008D3B06008D3C + 07008E3E0A008F420F009045130090481900935025009B6440009F6D4C00A275 + 5800A6806700AA897300AD917F00B8AEA700053A0D00063B0E000C3F14000E41 + 16000A3C17002351360000007F0000007B000101800001017F00040480000707 + 820007078100080882000A0A82000D0D7200101085000E0E7200131386001313 + 7500171787001919880021218A0025258C0023237B002B2B8E002C2C8E002F2F + 8F002C2C79003535840039398500FFFFFF00DFDFDF00BFBFBF00BEBEBE00BCBC + BC00BBBBBB00B9B9B900B8B8B800B7B7B700B4B4B400B2B2B200B1B1B100ACAC + AC00A9A9A900A7A7A700A6A6A600A4A4A400A2A2A2009F9F9F00989898009797 + 970094949400929292008F8F8F008C8C8C008B8B8B0089898900858585008484 + 840083838300818181007F7F7F007E7E7E007D7D7D007B7B7B007A7A7A007979 + 79007777770076767600747474000A0A0A000707070001010100000000005D04 + 868686865D868686865D5D5D5D5D5D865B5B5B5B865B5B5B5B865D5D5D5D865B + 8686868686868686865B865D5D5D865B865D865D5D5D865D865B865D5D5D865B + 8686868686868686865B865D5D5D0A865B5B5B5B865B5B5B5B865D5D5D5D0A0A + 868686865D868686865D5D5D5D5D0A0A0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A + 0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A0A0A0A0A5D5D5D5D5D5D5D5D5D5D5D29 + 0A0A0A5D5D5D5D5D5D0C0C5D5D5D5D5D0A0A5D5D5D5D5D5D5D0C0C0C5D5D5D0A + 0A0A2F5D5D5D5D5D5D5D0C0C0C5D5D0A0A0A305D5D5D5D5D5D5D5D0C0C5D5D02 + 0A0A025D5D5D5D5D0C0C0C0C0C5D5D5D5D5D5D5D5D5D5D5D0C0C0C0C5D5D} + end + end + object pnlPatient: TKeyClickPanel + Left = 39 + Top = 1 + Width = 187 + Height = 39 + Hint = 'Click for more patient information.' + Align = alLeft + BevelWidth = 2 + Color = clInfoBk + Font.Charset = DEFAULT_CHARSET + Font.Color = clInfoBk + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 0 + TabStop = True + OnClick = pnlPatientClick + OnEnter = pnlPrimaryCareEnter + OnExit = pnlPrimaryCareExit + OnMouseDown = pnlPatientMouseDown + OnMouseUp = pnlPatientMouseUp + object lblPtName: TStaticText + Left = 6 + Top = 4 + Width = 118 + Height = 17 + Caption = 'No Patient Selected' + Font.Charset = ANSI_CHARSET + Font.Color = clInfoText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 0 + OnClick = pnlPatientClick + OnMouseDown = pnlPatientMouseDown + OnMouseUp = pnlPatientMouseUp + end + object lblPtSSN: TStaticText + Left = 6 + Top = 19 + Width = 64 + Height = 17 + Font.Charset = DEFAULT_CHARSET + Font.Color = clInfoText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 1 + OnClick = pnlPatientClick + OnMouseDown = pnlPatientMouseDown + OnMouseUp = pnlPatientMouseUp + end + object lblPtAge: TStaticText + Left = 176 + Top = 19 + Width = 3 + Height = 6 + Alignment = taRightJustify + Font.Charset = DEFAULT_CHARSET + Font.Color = clInfoText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 2 + OnClick = pnlPatientClick + OnMouseDown = pnlPatientMouseDown + OnMouseUp = pnlPatientMouseUp + end + end + object pnlVisit: TKeyClickPanel + Left = 226 + Top = 1 + Width = 168 + Height = 39 + Hint = 'Click to change provider/location.' + Align = alLeft + BevelWidth = 2 + 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 = pnlVisitClick + OnEnter = pnlPrimaryCareEnter + OnExit = pnlPrimaryCareExit + OnMouseDown = pnlVisitMouseDown + OnMouseUp = pnlVisitMouseUp + object lblPtLocation: TStaticText + Left = 6 + Top = 4 + Width = 4 + Height = 4 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + ParentShowHint = False + ShowAccelChar = False + ShowHint = False + TabOrder = 0 + OnClick = pnlVisitClick + OnMouseDown = pnlVisitMouseDown + OnMouseUp = pnlVisitMouseUp + end + object lblPtProvider: TStaticText + Left = 6 + Top = 19 + Width = 4 + Height = 4 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBtnText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 1 + OnClick = pnlVisitClick + OnMouseDown = pnlVisitMouseDown + OnMouseUp = pnlVisitMouseUp + end + end + object pnlPrimaryCare: TKeyClickPanel + Left = 394 + Top = 1 + Width = 31 + Height = 39 + Hint = 'Primary Care Team / Primary Care Provider' + Align = alClient + BevelWidth = 2 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBtnFace + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 2 + TabStop = True + OnClick = pnlPrimaryCareClick + OnEnter = pnlPrimaryCareEnter + OnExit = pnlPrimaryCareExit + OnMouseDown = pnlPrimaryCareMouseDown + OnMouseUp = pnlPrimaryCareMouseUp + object lblPtCare: TStaticText + Left = 6 + Top = 4 + Width = 4 + Height = 4 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBtnText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 0 + OnClick = pnlPrimaryCareClick + OnMouseDown = pnlPrimaryCareMouseDown + OnMouseUp = pnlPrimaryCareMouseUp + end + object lblPtAttending: TStaticText + Left = 6 + Top = 19 + Width = 4 + Height = 4 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBtnText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 1 + OnClick = pnlPrimaryCareClick + OnMouseDown = pnlPrimaryCareMouseDown + 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 + Top = 1 + Width = 35 + Height = 39 + Align = alRight + BevelWidth = 2 + Caption = 'Reminders' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBtnFace + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 6 + TabStop = True + OnClick = pnlRemindersClick + OnEnter = pnlPrimaryCareEnter + OnExit = pnlPrimaryCareExit + OnMouseDown = pnlRemindersMouseDown + OnMouseUp = pnlRemindersMouseUp + object imgReminder: TImage + Left = 2 + Top = 2 + Width = 31 + Height = 35 + Align = alClient + Center = True + OnMouseDown = pnlRemindersMouseDown + OnMouseUp = pnlRemindersMouseUp + end + object anmtRemSearch: TAnimate + Left = 2 + Top = 2 + Width = 31 + Height = 35 + Align = alClient + Visible = False + end + end + object pnlFlag: TKeyClickPanel + Left = 485 + Top = 1 + Width = 35 + Height = 39 + Hint = 'Click to display patient record flags.' + Align = alRight + BevelWidth = 2 + Caption = 'Flag' + ParentShowHint = False + ShowHint = True + TabOrder = 4 + TabStop = True + OnClick = pnlFlagClick + OnEnter = pnlFlagEnter + OnExit = pnlFlagExit + OnMouseDown = pnlFlagMouseDown + OnMouseUp = pnlFlagMouseUp + object lblFlag: TLabel + Left = 2 + Top = 2 + Width = 31 + Height = 35 + Align = alClient + Alignment = taCenter + Caption = 'Flag' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clBtnFace + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + Layout = tlCenter + WordWrap = True + OnClick = pnlFlagClick + OnMouseDown = pnlFlagMouseDown + OnMouseUp = pnlFlagMouseUp + end + end + object pnlPostings: TKeyClickPanel + Left = 604 + Top = 1 + Width = 70 + Height = 39 + Hint = 'Click to display patient postings.' + Align = alRight + BevelWidth = 2 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBtnFace + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = True + TabOrder = 7 + TabStop = True + OnClick = pnlPostingsClick + OnEnter = pnlPrimaryCareEnter + OnExit = pnlPrimaryCareExit + OnMouseDown = pnlPostingsMouseDown + OnMouseUp = pnlPostingsMouseUp + object lblPtPostings: TStaticText + Left = 5 + Top = 4 + Width = 57 + Height = 13 + Alignment = taCenter + AutoSize = False + Caption = 'No Postings' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBtnText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 0 + OnClick = pnlPostingsClick + OnMouseDown = pnlPostingsMouseDown + OnMouseUp = pnlPostingsMouseUp + end + object lblPtCWAD: TStaticText + Left = 6 + Top = 19 + Width = 57 + Height = 13 + Alignment = taCenter + AutoSize = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clMaroon + Font.Height = -12 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 1 + OnClick = pnlPostingsClick + OnMouseDown = pnlPostingsMouseDown + OnMouseUp = pnlPostingsMouseUp + end + end + object paVAA: TKeyClickPanel + Left = 425 + Top = 1 + Width = 60 + Height = 39 + Align = alRight + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clBtnFace + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 3 + Visible = False + DesignSize = ( + 60 + 39) + object laVAA2: TButton + Left = 0 + Top = 19 + Width = 59 + Height = 20 + Hint = 'Click to display patient insurance data' + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = 'laVAA2' + ParentShowHint = False + ShowHint = True + TabOrder = 1 + OnClick = laVAA2Click + end + object laMHV: TButton + Left = 0 + Top = 1 + Width = 59 + Height = 18 + Hint = 'Click to display MHV data' + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = 'laMHV' + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = laMHVClick + end + end + end + object stsArea: TStatusBar + Left = 1 + Top = 411 + Width = 674 + Height = 21 + Panels = < + item + Width = 200 + end + item + Width = 224 + end + item + Style = psOwnerDraw + Width = 50 + end + item + Width = 94 + end + item + Width = 38 + end + item + Width = 33 + end> + PopupMenu = popAlerts + SizeGrip = False + OnMouseDown = stsAreaMouseDown + OnMouseUp = stsAreaMouseUp + OnDrawPanel = stsAreaDrawPanel + end + object tabPage: TTabControl + Left = 1 + Top = 389 + Width = 674 + Height = 22 + Align = alBottom + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + TabPosition = tpBottom + OnChange = tabPageChange + OnMouseUp = tabPageMouseUp + end + object pnlPage: TPanel + Left = 1 + Top = 42 + Width = 674 + Height = 347 + Align = alClient + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + object lstCIRNLocations: TORListBox + Left = 424 + Top = 0 + Width = 209 + Height = 78 + TabStop = False + Style = lbOwnerDrawFixed + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 13 + ParentFont = False + ParentShowHint = False + PopupMenu = popCIRN + ShowHint = False + TabOrder = 0 + Visible = False + OnClick = lstCIRNLocationsClick + OnExit = lstCIRNLocationsExit + Caption = 'Remote Data' + ItemTipColor = clWindow + LongList = False + Pieces = '2,3,4' + TabPositions = '16' + OnChange = lstCIRNLocationsChange + RightClickSelect = True + CheckBoxes = True + CheckEntireLine = True + end + end + end + object mnuFrame: TMainMenu + Left = 180 + Top = 128 + object mnuFile: TMenuItem + Caption = '&File' + GroupIndex = 1 + object mnuFileOpen: TMenuItem + Caption = 'Select &New Patient...' + OnClick = mnuFileOpenClick + end + object mnuFileRefresh: TMenuItem + Caption = 'Refresh Patient &Information' + OnClick = mnuFileRefreshClick + end + object mnuFileResumeContext: TMenuItem + Caption = 'Rejoin patient link' + object mnuFileResumeContextSet: TMenuItem + Caption = 'Set new context' + OnClick = mnuFileResumeContextSetClick + end + object Useexistingcontext1: TMenuItem + Caption = 'Use existing context' + OnClick = mnuFileResumeContextGetClick + end + end + object mnuFileBreakContext: TMenuItem + Caption = 'Break patient link' + OnClick = mnuFileBreakContextClick + end + object mnuFileEncounter: TMenuItem + Caption = '&Update Provider / Location...' + OnClick = mnuFileEncounterClick + end + object mnuFileReview: TMenuItem + Caption = '&Review/Sign Changes...' + OnClick = mnuFileReviewClick + end + object Z7: TMenuItem + Caption = '-' + Visible = False + end + object mnuFileNext: TMenuItem + Caption = 'Next Noti&fication' + OnClick = mnuFileNextClick + end + object mnuFileNotifRemove: TMenuItem + Caption = 'Remo&ve Current Notification' + OnClick = mnuFileNotifRemoveClick + end + object Z1: TMenuItem + Caption = '-' + end + object mnuFilePrintSetup: TMenuItem + Caption = 'Print &Setup...' + Enabled = False + OnClick = mnuFilePrintSetupClick + end + object mnuFilePrintSelectedItems: TMenuItem + Caption = 'Print Selected Items' + Enabled = False + OnClick = mnuFilePrintSelectedItemsClick + end + object mnuFilePrint: TMenuItem + Caption = '&Print...' + Enabled = False + OnClick = mnuFilePrintClick + end + object mnuFileExit: TMenuItem + Caption = 'E&xit' + OnClick = mnuFileExitClick + end + end + object mnuEdit: TMenuItem + Caption = '&Edit' + GroupIndex = 2 + OnClick = mnuEditClick + object mnuEditUndo: TMenuItem + Caption = '&Undo' + ShortCut = 16474 + OnClick = mnuEditUndoClick + end + object Z3: TMenuItem + Caption = '-' + end + object mnuEditCut: TMenuItem + Caption = 'Cu&t' + ShortCut = 16472 + OnClick = mnuEditCutClick + end + object mnuEditCopy: TMenuItem + Caption = '&Copy' + ShortCut = 16451 + OnClick = mnuEditCopyClick + end + object mnuEditPaste: TMenuItem + Caption = '&Paste' + ShortCut = 16470 + OnClick = mnuEditPasteClick + end + object Z4: TMenuItem + Caption = '-' + end + object mnuEditPref: TMenuItem + Caption = 'P&references' + object Prefs1: TMenuItem + Caption = '&Fonts' + object mnu8pt: TMenuItem + Tag = 8 + Caption = '8 pt' + RadioItem = True + OnClick = mnuFontSizeClick + end + object mnu10pt1: TMenuItem + Tag = 10 + Caption = '10 pt' + RadioItem = True + OnClick = mnuFontSizeClick + end + object mnu12pt1: TMenuItem + Tag = 12 + Caption = '12 pt' + RadioItem = True + OnClick = mnuFontSizeClick + end + object mnu14pt1: TMenuItem + Tag = 14 + Caption = '14 pt' + RadioItem = True + OnClick = mnuFontSizeClick + end + object mnu18pt1: TMenuItem + Tag = 18 + Caption = '18 pt' + RadioItem = True + OnClick = mnuFontSizeClick + end + object mnu24pt1: TMenuItem + Tag = 24 + Caption = '24 pt' + RadioItem = True + OnClick = mnuFontSizeClick + end + end + end + end + object mnuView: TMenuItem + Caption = '&View' + GroupIndex = 3 + object mnuViewChart: TMenuItem + Caption = 'Chart &Tab' + object mnuChartCover: TMenuItem + Tag = 1 + Caption = 'Cover &Sheet' + ShortCut = 16467 + OnClick = mnuChartTabClick + end + object mnuChartProbs: TMenuItem + Tag = 2 + Caption = '&Problem List' + ShortCut = 16464 + OnClick = mnuChartTabClick + end + object mnuChartMeds: TMenuItem + Tag = 3 + Caption = '&Medications' + ShortCut = 16461 + OnClick = mnuChartTabClick + end + object mnuChartOrders: TMenuItem + Tag = 4 + Caption = '&Orders' + ShortCut = 16463 + OnClick = mnuChartTabClick + end + object mnuChartNotes: TMenuItem + Tag = 6 + Caption = 'Progress &Notes' + ShortCut = 16462 + OnClick = mnuChartTabClick + end + object mnuChartCslts: TMenuItem + Tag = 7 + Caption = 'Consul&ts' + ShortCut = 16468 + OnClick = mnuChartTabClick + end + object mnuChartSurgery: TMenuItem + Tag = 11 + Caption = 'S&urgery' + ShortCut = 16469 + OnClick = mnuChartTabClick + end + object mnuChartDCSumm: TMenuItem + Tag = 8 + Caption = '&Discharge Summaries' + ShortCut = 16452 + OnClick = mnuChartTabClick + end + object mnuChartLabs: TMenuItem + Tag = 9 + Caption = '&Laboratory' + ShortCut = 16460 + OnClick = mnuChartTabClick + end + object mnuChartReports: TMenuItem + Tag = 10 + Caption = '&Reports' + ShortCut = 16466 + OnClick = mnuChartTabClick + end + end + object mnuViewInformation: TMenuItem + Caption = 'Information' + OnClick = mnuViewInformationClick + object mnuViewDemo: TMenuItem + Tag = 1 + Caption = 'De&mographics...' + OnClick = ViewInfo + end + object mnuViewVisits: TMenuItem + Tag = 2 + Caption = 'Visits/Pr&ovider...' + OnClick = ViewInfo + end + object mnuViewPrimaryCare: TMenuItem + Tag = 3 + Caption = 'Primary &Care...' + OnClick = ViewInfo + end + object mnuViewMyHealtheVet: TMenuItem + Tag = 4 + Caption = 'MyHealthe&Vet...' + OnClick = ViewInfo + end + object mnuInsurance: TMenuItem + Tag = 5 + Caption = '&Insurance...' + OnClick = ViewInfo + end + object mnuViewFlags: TMenuItem + Tag = 6 + Caption = '&Flags...' + OnClick = ViewInfo + end + object mnuViewRemoteData: TMenuItem + Tag = 7 + Caption = 'Remote &Data...' + OnClick = ViewInfo + end + object mnuViewReminders: TMenuItem + Tag = 8 + Caption = '&Reminders...' + OnClick = ViewInfo + end + object mnuViewPostings: TMenuItem + Tag = 9 + Caption = '&Postings...' + OnClick = ViewInfo + end + end + end + object mnuTools: TMenuItem + Caption = '&Tools' + GroupIndex = 8 + OnClick = mnuToolsClick + object Z8: TMenuItem + Caption = '-' + end + object mnuToolsGraphing: TMenuItem + Caption = '&Graphing...' + ShortCut = 16455 + OnClick = mnuToolsGraphingClick + end + object LabInfo1: TMenuItem + Caption = '&Lab Test Information...' + OnClick = LabInfo1Click + end + object mnuToolsOptions: TMenuItem + Caption = '&Options...' + OnClick = mnuToolsOptionsClick + end + end + object mnuHelp: TMenuItem + Caption = '&Help' + GroupIndex = 9 + object mnuHelpContents: TMenuItem + Caption = '&Contents' + Hint = 'WinHlp32 cprs.hlp' + OnClick = ToolClick + end + object mnuHelpTutor: TMenuItem + Caption = '&Brief Tutorial' + Enabled = False + Visible = False + end + object Z5: TMenuItem + Caption = '-' + end + object mnuHelpBroker: TMenuItem + Caption = 'Last Broker Call' + OnClick = mnuHelpBrokerClick + end + object mnuHelpLists: TMenuItem + Caption = 'Show ListBox Data' + OnClick = mnuHelpListsClick + end + object mnuHelpSymbols: TMenuItem + Caption = 'Symbol Table' + OnClick = mnuHelpSymbolsClick + end + object Z6: TMenuItem + Caption = '-' + end + object mnuHelpAbout: TMenuItem + Caption = '&About CPRS' + OnClick = mnuHelpAboutClick + end + end + end + object popCIRN: TPopupMenu + Left = 539 + Top = 60 + object popCIRNSelectAll: TMenuItem + Caption = 'Select All' + OnClick = popCIRNSelectAllClick + end + object popCIRNSelectNone: TMenuItem + Caption = 'Select None' + OnClick = popCIRNSelectNoneClick + end + object popCIRNClose: TMenuItem + Caption = 'Close List' + OnClick = popCIRNCloseClick + end + end + object OROpenDlg: TOpenDialog + Filter = 'Exe file (*.exe)|*.exe' + Left = 260 + Top = 257 + end + object popAlerts: TPopupMenu + AutoPopup = False + Left = 320 + Top = 200 + object mnuAlertContinue: TMenuItem + Caption = 'Continue' + OnClick = mnuFileNextClick + end + object mnuAlertForward: TMenuItem + Caption = 'Forward' + OnClick = mnuAlertForwardClick + end + object mnuAlertRenew: TMenuItem + Caption = 'Renew' + OnClick = mnuAlertRenewClick + end + end + object AppEvents: TApplicationEvents + OnActivate = AppEventsActivate + OnShortCut = AppEventsShortCut + Left = 336 + Top = 256 + end +end diff --git a/CPRS-Chart/fFrame.pas b/CPRS-Chart/fFrame.pas new file mode 100644 index 0000000..9327661 --- /dev/null +++ b/CPRS-Chart/fFrame.pas @@ -0,0 +1,4450 @@ +unit fFrame; +{ This is the main form for the CPRS GUI. It provides a patient-encounter-user framework + which all the other forms of the GUI use. } + +{$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED +{$WARN SYMBOL_PLATFORM OFF} +{$DEFINE CCOWBROKER} + +{.$define debug} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Tabs, ComCtrls, + ExtCtrls, Menus, StdCtrls, Buttons, ORFn, fPage, uConst, ORCtrls, Trpcb, + OleCtrls, VERGENCECONTEXTORLib_TLB, ComObj, AppEvnts; + +type + TfrmFrame = class(TForm) + pnlToolbar: TPanel; + stsArea: TStatusBar; + tabPage: TTabControl; + pnlPage: TPanel; + bvlPageTop: TBevel; + bvlToolTop: TBevel; + pnlPatient: TKeyClickPanel; + lblPtName: TStaticText; + lblPtSSN: TStaticText; + lblPtAge: TStaticText; + pnlVisit: TKeyClickPanel; + lblPtLocation: TStaticText; + lblPtProvider: TStaticText; + mnuFrame: TMainMenu; + mnuFile: TMenuItem; + mnuFileExit: TMenuItem; + mnuFileOpen: TMenuItem; + mnuFileReview: TMenuItem; + Z1: TMenuItem; + mnuFilePrint: TMenuItem; + mnuEdit: TMenuItem; + mnuEditUndo: TMenuItem; + Z3: TMenuItem; + mnuEditCut: TMenuItem; + mnuEditCopy: TMenuItem; + mnuEditPaste: TMenuItem; + Z4: TMenuItem; + mnuEditPref: TMenuItem; + Prefs1: TMenuItem; + mnu24pt1: TMenuItem; + mnu18pt1: TMenuItem; + mnu14pt1: TMenuItem; + mnu12pt1: TMenuItem; + mnu10pt1: TMenuItem; + mnu8pt: TMenuItem; + mnuHelp: TMenuItem; + mnuHelpContents: TMenuItem; + mnuHelpTutor: TMenuItem; + Z5: TMenuItem; + mnuHelpAbout: TMenuItem; + mnuTools: TMenuItem; + mnuView: TMenuItem; + mnuViewChart: TMenuItem; + mnuChartReports: TMenuItem; + mnuChartLabs: TMenuItem; + mnuChartDCSumm: TMenuItem; + mnuChartCslts: TMenuItem; + mnuChartNotes: TMenuItem; + mnuChartOrders: TMenuItem; + mnuChartMeds: TMenuItem; + mnuChartProbs: TMenuItem; + mnuChartCover: TMenuItem; + mnuHelpBroker: TMenuItem; + mnuFileEncounter: TMenuItem; + mnuViewDemo: TMenuItem; + mnuViewPostings: TMenuItem; + mnuHelpLists: TMenuItem; + Z6: TMenuItem; + mnuHelpSymbols: TMenuItem; + mnuFileNext: TMenuItem; + Z7: TMenuItem; + mnuFileRefresh: TMenuItem; + pnlPrimaryCare: TKeyClickPanel; + lblPtCare: TStaticText; + lblPtAttending: TStaticText; + pnlCIRN: TKeyClickPanel; + lblCIRN: TLabel; + lblCIRNData: TLabel; + pnlReminders: TKeyClickPanel; + imgReminder: TImage; + mnuViewReminders: TMenuItem; + anmtRemSearch: TAnimate; + lstCIRNLocations: TORListBox; + popCIRN: TPopupMenu; + popCIRNSelectAll: TMenuItem; + popCIRNSelectNone: TMenuItem; + popCIRNClose: TMenuItem; + mnuFilePrintSetup: TMenuItem; + LabInfo1: TMenuItem; + mnuFileNotifRemove: TMenuItem; + Z8: TMenuItem; + mnuToolsOptions: TMenuItem; + mnuChartSurgery: TMenuItem; + OROpenDlg: TOpenDialog; + mnuFileResumeContext: TMenuItem; + mnuFileResumeContextSet: TMenuItem; + Useexistingcontext1: TMenuItem; + mnuFileBreakContext: TMenuItem; + pnlCCOW: TPanel; + imgCCOW: TImage; + pnlPatientSelected: TPanel; + pnlNoPatientSelected: TPanel; + pnlFlag: TKeyClickPanel; + lblFlag: TLabel; + pnlPostings: TKeyClickPanel; + lblPtPostings: TStaticText; + lblPtCWAD: TStaticText; + mnuFilePrintSelectedItems: TMenuItem; + popAlerts: TPopupMenu; + mnuAlertContinue: TMenuItem; + mnuAlertForward: TMenuItem; + mnuAlertRenew: TMenuItem; + AppEvents: TApplicationEvents; + paVAA: TKeyClickPanel; + mnuToolsGraphing: TMenuItem; + laVAA2: TButton; + laMHV: TButton; + lblCIRNAvail: TLabel; + mnuViewInformation: TMenuItem; + mnuViewVisits: TMenuItem; + mnuViewPrimaryCare: TMenuItem; + mnuViewMyHealtheVet: TMenuItem; + mnuInsurance: TMenuItem; + mnuViewFlags: TMenuItem; + mnuViewRemoteData: TMenuItem; + procedure tabPageChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure pnlPatientMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlPatientMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlVisitMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlVisitMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure mnuFileExitClick(Sender: TObject); + procedure pnlPostingsMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlPostingsMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure mnuFontSizeClick(Sender: TObject); + procedure mnuChartTabClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure mnuFileOpenClick(Sender: TObject); + procedure mnuHelpBrokerClick(Sender: TObject); + procedure mnuFileEncounterClick(Sender: TObject); + procedure mnuViewPostingsClick(Sender: TObject); + procedure mnuHelpAboutClick(Sender: TObject); + procedure mnuFileReviewClick(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure mnuHelpListsClick(Sender: TObject); + procedure ToolClick(Sender: TObject); + procedure mnuEditClick(Sender: TObject); + procedure mnuEditUndoClick(Sender: TObject); + procedure mnuEditCutClick(Sender: TObject); + procedure mnuEditCopyClick(Sender: TObject); + procedure mnuEditPasteClick(Sender: TObject); + procedure mnuHelpSymbolsClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure mnuFilePrintClick(Sender: TObject); + procedure mnuGECStatusClick(Sender: TObject); + procedure mnuFileNextClick(Sender: TObject); + procedure stsAreaMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure stsAreaMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure stsAreaDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; + const Rect: TRect); + procedure pnlPrimaryCareMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure pnlPrimaryCareMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + function FormHelp(Command: Word; Data: Integer; + var CallHelp: Boolean): Boolean; + procedure pnlRemindersMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlRemindersMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlCIRNClick(Sender: TObject); + procedure lstCIRNLocationsClick(Sender: TObject); + procedure popCIRNCloseClick(Sender: TObject); + procedure popCIRNSelectAllClick(Sender: TObject); + procedure popCIRNSelectNoneClick(Sender: TObject); + procedure mnuFilePrintSetupClick(Sender: TObject); + procedure lstCIRNLocationsChange(Sender: TObject); + procedure LabInfo1Click(Sender: TObject); + procedure mnuFileNotifRemoveClick(Sender: TObject); + procedure mnuToolsOptionsClick(Sender: TObject); + procedure mnuFileRefreshClick(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormActivate(Sender: TObject); + procedure pnlPrimaryCareEnter(Sender: TObject); + procedure pnlPrimaryCareExit(Sender: TObject); + procedure pnlPatientClick(Sender: TObject); + procedure pnlVisitClick(Sender: TObject); + procedure pnlPrimaryCareClick(Sender: TObject); + procedure pnlRemindersClick(Sender: TObject); + procedure pnlPostingsClick(Sender: TObject); + procedure ctxContextorCanceled(Sender: TObject); + procedure ctxContextorCommitted(Sender: TObject); + procedure ctxContextorPending(Sender: TObject; + const aContextItemCollection: IDispatch); + procedure mnuFileBreakContextClick(Sender: TObject); + procedure mnuFileResumeContextGetClick(Sender: TObject); + procedure mnuFileResumeContextSetClick(Sender: TObject); + procedure pnlFlagMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlFlagMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlFlagClick(Sender: TObject); + procedure mnuFilePrintSelectedItemsClick(Sender: TObject); + procedure mnuAlertRenewClick(Sender: TObject); + procedure mnuAlertForwardClick(Sender: TObject); + procedure pnlFlagEnter(Sender: TObject); + procedure pnlFlagExit(Sender: TObject); + procedure tabPageMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure lstCIRNLocationsExit(Sender: TObject); + procedure AppEventsActivate(Sender: TObject); + procedure ScreenActiveFormChange(Sender: TObject); + procedure AppEventsShortCut(var Msg: TWMKey; var Handled: Boolean); + procedure mnuToolsClick(Sender: TObject); + procedure mnuToolsGraphingClick(Sender: TObject); + procedure pnlCIRNMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure pnlCIRNMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure laMHVClick(Sender: TObject); + procedure laVAA2Click(Sender: TObject); + procedure ViewInfo(Sender: TObject); + procedure mnuViewInformationClick(Sender: TObject); + private + FJustEnteredApp : boolean; + FCCOWInstalled: boolean; + FCCOWContextChanging: boolean; + FCCOWIconName: string; + FCCOWDrivedChange: boolean; + FCCOWBusy: boolean; + FCCOWError: boolean; + FNoPatientSelected: boolean; + FRefreshing: boolean; + FClosing: boolean; + FContextChanging: Boolean; + FChangeSource: Integer; + FCreateProgress: Integer; + FEditCtrl: TCustomEdit; + FLastPage: TfrmPage; + FNextButtonL: Integer; + FNextButtonR: Integer; + FNextButtonActive: Boolean; + FNextButtonBitmap: TBitmap; + FTerminate: Boolean; + FTabChanged: TNotifyEvent; + FOldActivate: TNotifyEvent; + FOldActiveFormChange: TNotifyEvent; + FECSAuthUser: Boolean; + FFixedStatusWidth: integer; + FPrevInPatient: Boolean; + FFirstLoad: Boolean; + FFlagList: TStringList; + FPrevPtID: string; + FVitalsDLLActive: boolean; + FGraphFloatActive: boolean; + FGraphContext: string; + procedure RefreshFixedStatusWidth; + procedure FocusApplicationTopForm; + procedure AppActivated(Sender: TObject); + procedure AppDeActivated(Sender: TObject); + procedure AppException(Sender: TObject; E: Exception); + function AllowContextChangeAll(var Reason: string): Boolean; + procedure ClearPatient; + procedure ChangeFont(NewFontSize: Integer); + //procedure CreateTab(var AnInstance: TObject; AClass: TClass; ATabID: integer; ALabel: string); + procedure CreateTab(ATabID: integer; ALabel: string); + procedure DetermineNextTab; + function ExpandCommand(x: string): string; + procedure FitToolbar; + procedure LoadSizesForUser; + procedure SaveSizesForUser; + procedure LoadUserPreferences; + procedure SaveUserPreferences; + procedure SwitchToPage(NewForm: TfrmPage); + function TabToPageID(Tab: Integer): Integer; + function TimeoutCondition: boolean; + function GetTimedOut: boolean; + procedure TimeOutAction; + procedure SetUserTools; + procedure SetDebugMenu; + procedure SetupPatient(AFlaggedList : TStringList = nil); + //procedure SetUpCIRN; + procedure RemindersChanged(Sender: TObject); + procedure ReportsOnlyDisplay; + procedure UMInitiate(var Message: TMessage); message UM_INITIATE; + procedure UMNewOrder(var Message: TMessage); message UM_NEWORDER; + procedure UMStatusText(var Message: TMessage); message UM_STATUSTEXT; + procedure UMShowPage(var Message: TMessage); message UM_SHOWPAGE; + procedure WMSetFocus(var Message: TMessage); message WM_SETFOCUS; + procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND; + procedure UpdateECSParameter(var CmdParameter: string); + function ValidECSUser: boolean; + procedure StartCCOWContextor; + function AllowCCOWContextChange(var CCOWResponse: UserResponse; NewDFN: string): boolean; + procedure UpdateCCOWContext; + procedure CheckHyperlinkResponse(aContextItemCollection: IDispatch; var HyperlinkReason: string); + procedure CheckForDifferentPatient(aContextItemCollection: IDispatch; var PtChanged: boolean); +{$IFDEF CCOWBROKER} + procedure CheckForDifferentUser(aContextItemCollection: IDispatch; var UserChanged: boolean); +{$ENDIF} + procedure HideEverything; + procedure ShowEverything; + //function FindBestCCOWDFN(var APatientName: string): string; + function FindBestCCOWDFN: string; + procedure HandleCCOWError(AMessage: string); + public + EnduringPtSelSplitterPos: integer; + procedure SetBADxList; + + function PageIDToTab(PageID: Integer): Integer; + procedure ShowHideChartTabMenus(AMenuItem: TMenuItem); + procedure UpdatePtInfoOnRefresh; + function TabExists(ATabID: integer): boolean; + procedure DisplayEncounterText; + property ChangeSource: Integer read FChangeSource; + property CCOWContextChanging: Boolean read FCCOWContextChanging; + property CCOWDrivedChange: Boolean read FCCOWDrivedChange; + property CCOWBusy: Boolean read FCCOWBusy write FCCOWBusy; + property ContextChanging: Boolean read FContextChanging; + property TimedOut: Boolean read GetTimedOut; + property Closing: Boolean read FClosing; + property OnTabChanged: TNotifyEvent read FTabChanged write FTabChanged; + property VitalsDLLActive: boolean read FVitalsDLLActive write FVitalsDLLActive; + property GraphFloatActive: boolean read FGraphFloatActive write FGraphFloatActive; + property GraphContext: string read FGraphContext write FGraphContext; + procedure ToggleMenuItemChecked(Sender: TObject); + procedure SetUpCIRN; + end; + +var + frmFrame: TfrmFrame; + uTabList: TStringList; + uRemoteType : string; + FlaggedPTList: TStringList; + ctxContextor : TContextorControl; + NextTab, LastTab: Integer; + uToolsMaxed, uToolsWarned: boolean; + +const + PASSCODE = '_gghwn7pghCrOJvOV61PtPvgdeEU2u5cRsGvpkVDjKT_H7SdKE_hqFYWsUIVT1H7JwT6Yz8oCtd2u2PALqWxibNXx3Yo8GPcTYsNaxW' + 'ZFo8OgT11D5TIvpu3cDQuZd3Yh_nV9jhkvb0ZBGdO9n-uNXPPEK7xfYWCI2Wp3Dsu9YDSd_EM34nvrgy64cqu9_jFJKJnGiXY96Lf1ecLiv4LT9qtmJ-BawYt7O9JZGAswi344BmmCbNxfgvgf0gfGZea'; + +implementation + +{$R *.DFM} +{$R sBitmaps} +{$R sRemSrch} + +uses + ORNet, rCore, fPtSelMsg, fPtSel, fCover, fProbs, fMeds, fOrders, rOrders, fNotes, fConsults, fDCSumm, + rMisc, Clipbrd, fLabs, fReports, rReports, fPtDemo, fEncnt, fPtCWAD, uCore, fAbout, fReview, fxBroker, + fxLists, fxServer, ORSystem, fRptBox, fSplash, rODAllergy, uInit, fLabTests, fLabInfo, + uReminders, fReminderTree, ORClasses, fDeviceSelect, fDrawers, fReminderDialog, ShellAPI, rVitals, + fOptions, fGraphs, rTemplates, fSurgery, rSurgery, uEventHooks, uSignItems, fDefaultEvent,rECS, + fIconLegend, uOrders, fPtSelOptns, DateUtils, uSpell, uOrPtf, fPatientFlagMulti, + fAlertForward, UBAGlobals, fBAOptionsDiagnoses, UBACore, fOrdersSign, uVitals, fOrdersRenew, uFormMonitor + {$IFDEF CCOWBROKER} + , CCOW_const + {$ENDIF} + ; + +var // RV 05/11/04 + IsRunExecuted: Boolean = FALSE; // RV 05/11/04 + GraphFloat: TfrmGraphs; + +const + // moved to uConst - RV v16 +(* CT_NOPAGE = -1; // chart tab - none selected + CT_UNKNOWN = 0; // chart tab - unknown (shouldn't happen) + CT_COVER = 1; // chart tab - cover sheet + CT_PROBLEMS = 2; // chart tab - problem list + CT_MEDS = 3; // chart tab - medications screen + CT_ORDERS = 4; // chart tab - doctor's orders + CT_HP = 5; // chart tab - history & physical + CT_NOTES = 6; // chart tab - progress notes + CT_CONSULTS = 7; // chart tab - consults + CT_DCSUMM = 8; // chart tab - discharge summaries + CT_LABS = 9; // chart tab - laboratory results + CT_REPORTS = 10; // chart tab - reports + CT_SURGERY = 11; // chart tab - surgery*) + + FCP_UPDATE = 10; // form create about to check auto-update + FCP_SETHOOK = 20; // form create about to set timeout hooks + FCP_SERVER = 30; // form create about to connect to server + FCP_CHKVER = 40; // form create about to check version + FCP_OBJECTS = 50; // form create about to create core objects + FCP_FORMS = 60; // form create about to create child forms + FCP_PTSEL = 70; // form create about to select patient + FCP_FINISH = 99; // form create finished successfully + + TX_IN_USE = 'VistA CPRS in use by: '; + TX_OPTION = 'OR CPRS GUI CHART'; + TX_ECSOPT = 'EC GUI CONTEXT'; + TX_PTINQ = 'Retrieving demographic information...'; + TX_NOTIF_STOP = 'Stop processing notifications?'; + TC_NOTIF_STOP = 'Currently Processing Notifications'; + TX_UNK_NOTIF = 'Unable to process the follow up action for this notification'; + TC_UNK_NOTIF = 'Follow Up Action Not Implemented'; + TX_NO_SURG_NOTIF = 'This notification must be processed using the Surgery tab, ' + CRLF + + 'which is not currently available to you.'; + TC_NO_SURG_NOTIF = 'Surgery Tab Not Available'; + TX_VER1 = 'This is version '; + TX_VER2 = ' of CPRSChart.exe.'; + TX_VER3 = CRLF + 'The running server version is '; + TX_VER_REQ = ' version server is required.'; + TX_VER_OLD = CRLF + 'It is strongly recommended that you upgrade.'; + TX_VER_OLD2 = CRLF + 'The program cannot be run until the client is upgraded.'; + TX_VER_NEW = CRLF + 'The program cannot be run until the server is upgraded.'; + TC_VER = 'Server/Client Incompatibility'; + TC_CLIERR = 'Client Specifications Mismatch'; + + SHOW_NOTIFICATIONS = True; + + TC_DGSR_ERR = 'Remote Data Error'; + TC_DGSR_SHOW = 'Restricted Remote Record'; + TC_DGSR_DENY = 'Remote Access Denied'; + TX_DGSR_YESNO = CRLF + 'Do you want to continue accessing this remote patient record?'; + + TX_CCOW_LINKED = 'Clinical Link On'; + TX_CCOW_CHANGING = 'Clinical link changing'; + TX_CCOW_BROKEN = 'Clinical link broken'; + TX_CCOW_ERROR = 'CPRS was unable to communicate with the CCOW Context Vault' + CRLF + + 'CCOW patient synchronization will be unavailable for the remainder of this session.'; + TC_CCOW_ERROR = 'CCOW Error'; + +function TfrmFrame.TimeoutCondition: boolean; +begin + Result := (FCreateProgress < FCP_PTSEL); +end; + +function TfrmFrame.GetTimedOut: boolean; +begin + Result := uInit.TimedOut; +end; + +procedure TfrmFrame.TimeOutAction; +begin + if frmFrame.VitalsDLLActive then + CloseVitalsDLL() + else + Close; +end; + +{ General Functions and Procedures } + +procedure TfrmFrame.AppException(Sender: TObject; E: Exception); +var + AnAddr: Pointer; + ErrMsg: string; +begin + Application.NormalizeTopMosts; + if (E is EIntError) then + begin + ErrMsg := E.Message + CRLF + + 'CreateProgress: ' + IntToStr(FCreateProgress) + CRLF + + 'RPC Info: ' + RPCLastCall; + if EExternal(E).ExceptionRecord <> nil then + begin + AnAddr := EExternal(E).ExceptionRecord^.ExceptionAddress; + ErrMsg := ErrMsg + CRLF + 'Address was ' + IntToStr(Integer(AnAddr)); + end; + ShowMessage(ErrMsg); + end + else if (E is EBrokerError) then + begin + Application.ShowException(E); + FCreateProgress := FCP_FORMS; + Close; + end + else if (E is EOleException) then + begin + Application.ShowException(E); + FCreateProgress := FCP_FORMS; + Close; + end + else Application.ShowException(E); + Application.RestoreTopMosts; +end; + +function TfrmFrame.AllowContextChangeAll(var Reason: string): Boolean; +var + Silent: Boolean; +begin + if pnlNoPatientSelected.Visible then + begin + Result := True; + exit; + end; + FContextChanging := True; + Result := True; + if COMObjectActive or SpellCheckInProgress or VitalsDLLActive then + begin + Reason := 'COM_OBJECT_ACTIVE'; + Result:= False; + end; + if Result then Result := frmCover.AllowContextChange(Reason); + if Result then Result := frmProblems.AllowContextChange(Reason); + if Result then Result := frmMeds.AllowContextChange(Reason); + if Result then Result := frmOrders.AllowContextChange(Reason); + if Result then Result := frmNotes.AllowContextChange(Reason); + if Result then Result := frmConsults.AllowContextChange(Reason); + if Result then Result := frmDCSumm.AllowContextChange(Reason); + if Result then + if Assigned(frmSurgery) then Result := frmSurgery.AllowContextChange(Reason);; + if Result then Result := frmLabs.AllowContextChange(Reason);; + if Result then Result := frmReports.AllowContextChange(Reason); + if (not User.IsReportsOnly) then + if Result and Changes.RequireReview then //Result := ReviewChanges(TimedOut); + case BOOLCHAR[FCCOWContextChanging] of + '1': begin + if Changes.RequireReview then + begin + Reason := 'Items will be left unsigned.'; + Result := False; + end + else + Result := True; + end; + '0': begin + Silent := (TimedOut) or (Reason = 'COMMIT'); + Result := ReviewChanges(Silent); + end; + end; + FContextChanging := False; +end; + +procedure TfrmFrame.ClearPatient; +{ call all pages to make sure patient related information is cleared (when switching patients) } +begin + if frmFrame.Timedout then Exit; // added to correct Access Violation when "Refresh Patient Information" selected + lblPtName.Caption := ''; + lblPtSSN.Caption := ''; + lblPtAge.Caption := ''; + pnlPatient.Caption := ''; + lblPtCWAD.Caption := ''; + lblPtLocation.Caption := 'Visit Not Selected'; + lblPtProvider.Caption := 'Current Provider Not Selected'; + pnlVisit.Caption := lblPtLocation.Caption + CRLF + lblPtProvider.Caption; + lblPtCare.Caption := 'Primary Care Team Unassigned'; + lblPtAttending.Caption := ''; + pnlPrimaryCare.Caption := lblPtCare.Caption + ' ' + lblPtAttending.Caption; + frmCover.ClearPtData; + frmProblems.ClearPtData; + frmMeds.ClearPtData; + frmOrders.ClearPtData; + frmNotes.ClearPtData; + frmConsults.ClearPtData; + frmDCSumm.ClearPtData; + if Assigned(frmSurgery) then frmSurgery.ClearPtData; + frmLabs.ClearPtData; + frmReports.ClearPtData; + tabPage.TabIndex := PageIDToTab(CT_NOPAGE); // to make sure DisplayPage gets called + tabPageChange(tabPage); + ClearReminderData; + SigItems.Clear; + lstCIRNLocations.Clear; + uRemoteType := ''; + ClearFlag; + if Assigned(FlagList) then FlagList.Clear; + HasFlag := False; + HidePatientSelectMessages; + if (GraphFloat <> nil) and GraphFloatActive then + with GraphFloat do + begin + Initialize; + DisplayData('top'); + DisplayData('bottom'); + lstCheck.Items.Clear; + Caption := 'CPRS Graphing - Patient: ' + MixedCase(Patient.Name); + end; +end; + +procedure TfrmFrame.DisplayEncounterText; +{ updates the display in the header bar of encounter related information (location & provider) } +begin + with Encounter do + begin + if Length(LocationText) > 0 + then lblPtLocation.Caption := LocationText + else lblPtLocation.Caption := 'Visit Not Selected'; + if Length(ProviderName) > 0 + then lblPtProvider.Caption := 'Provider: ' + ProviderName + else lblPtProvider.Caption := 'Current Provider Not Selected'; + end; + pnlVisit.Caption := lblPtLocation.Caption + CRLF + lblPtProvider.Caption; + FitToolBar; +end; + +{ Form Events (Create, Destroy) ----------------------------------------------------------- } + +procedure TfrmFrame.RefreshFixedStatusWidth; +begin + with stsArea do + FFixedStatusWidth := Panels[0].Width + Panels[2].Width + Panels[3].Width + Panels[4].Width; +end; + +procedure TfrmFrame.FormCreate(Sender: TObject); +{ connect to server, create tab pages, select a patient, & initialize core objects } +var + ClientVer, ServerVer, ServerReq: string; +begin + FJustEnteredApp := false; + SizeHolder := TSizeHolder.Create; + FOldActiveFormChange := Screen.OnActiveFormChange; + Screen.OnActiveFormChange := ScreenActiveFormChange; + if not (ParamSearch('CCOW')='DISABLE') then + try + StartCCOWContextor; + except + IsRunExecuted := False; + FCCOWInstalled := False; + pnlCCOW.Visible := False; + mnuFileResumeContext.Visible := False; + mnuFileBreakContext.Visible := False; + end + else + begin + IsRunExecuted := False; + FCCOWInstalled := False; + pnlCCOW.Visible := False; + mnuFileResumeContext.Visible := False; + mnuFileBreakContext.Visible := False; + end; + RefreshFixedStatusWidth; + FTerminate := False; + AutoUpdateCheck; + + FFlagList := TStringList.Create; + + // setup initial timeout here so can timeout logon + FCreateProgress := FCP_SETHOOK; + InitTimeOut(TimeoutCondition, TimeOutAction); + + // connect to the server and create an option context + FCreateProgress := FCP_SERVER; + +{$IFDEF CCOWBROKER} + EnsureBroker; + if ctxContextor <> nil then + begin + if ParamSearch('CCOW') = 'PATIENTONLY' then + RPCBrokerV.Contextor := nil + else + RPCBrokerV.Contextor := ctxContextor; + end + else + RPCBrokerV.Contextor := nil; +{$ENDIF} + + if not ConnectToServer(TX_OPTION) then + begin + if Assigned(RPCBrokerV) then + InfoBox(RPCBrokerV.RPCBError, 'Error', MB_OK or MB_ICONERROR); + Close; + Exit; + end; + + if ctxContextor <> nil then + begin + if not (ParamSearch('CCOW') = 'PATIENTONLY') then + ctxContextor.NotificationFilter := ctxContextor.NotificationFilter + ';User'; + end; + + FECSAuthUser := ValidECSUser; + uECSReport := TECSReport.Create; + uECSReport.ECSPermit := FECSAuthUser; + RPCBrokerV.CreateContext(TX_OPTION); + Application.OnException := AppException; + FOldActivate := Application.OnActivate; + Application.OnActivate := AppActivated; + Application.OnDeActivate := AppDeActivated; + + // create initial core objects + FCreateProgress := FCP_OBJECTS; + User := TUser.Create; + + // make sure we're using the matching server version + FCreateProgress := FCP_CHKVER; + ClientVer := ClientVersion(Application.ExeName); + ServerVer := ServerVersion(TX_OPTION, ClientVer); + if (ServerVer = '0.0.0.0') then + begin + InfoBox('Unable to determine current version of server.', TX_OPTION, MB_OK); + Close; + Exit; + end; + ServerReq := Piece(FileVersionValue(Application.ExeName, FILE_VER_INTERNALNAME), ' ', 1); + if (ClientVer <> ServerReq) then + begin + InfoBox('Client "version" does not match client "required" server.', TC_CLIERR, MB_OK); + Close; + Exit; + end; + if (CompareVersion(ServerVer, ServerReq) <> 0) then + begin + if (sCallV('ORWU DEFAULT DIVISION', [nil]) = '1') then + begin + if (InfoBox('Proceed with mismatched Client and Server versions?', TC_CLIERR, MB_YESNO) = ID_NO) then + begin + Close; + Exit; + end; + end + else + begin + if (CompareVersion(ServerVer, ServerReq) > 0) then // Server newer than Required + begin + // NEXT LINE COMMENTED OUT - CHANGED FOR VERSION 19.16, PATCH OR*3*155: + // if GetUserParam('ORWOR REQUIRE CURRENT CLIENT') = '1' then + if (true) then // "True" statement guarantees "required" current version client. + begin + InfoBox(TX_VER1 + ClientVer + TX_VER2 + CRLF + ServerReq + TX_VER_REQ + TX_VER3 + ServerVer + '.' + TX_VER_OLD2, TC_VER, MB_OK); + Close; + Exit; + end; + end + else InfoBox(TX_VER1 + ClientVer + TX_VER2 + CRLF + ServerReq + TX_VER_REQ + TX_VER3 + ServerVer + '.' + TX_VER_OLD, TC_VER, MB_OK); + end; + if (CompareVersion(ServerVer, ServerReq) < 0) then // Server older then Required + begin + InfoBox(TX_VER1 + ClientVer + TX_VER2 + CRLF + ServerReq + TX_VER_REQ + TX_VER3 + ServerVer + '.' + TX_VER_NEW, TC_VER, MB_OK); + Close; + Exit; + end; + end; + + // Add future tabs here as they are created/implemented: + if ( + (not User.HasCorTabs) and + (not User.HasRptTab) + ) + then + begin + InfoBox('No valid tabs assigned', 'Tab Access Problem', MB_OK); + Close; + Exit; + end; + + // create creating core objects + Patient := TPatient.Create; + Encounter := TEncounter.Create; + Changes := TChanges.Create; + Notifications := TNotifications.Create; + RemoteSites := TRemoteSiteList.Create; + RemoteReports := TRemoteReportList.Create; + uTabList := TStringList.Create; + FlaggedPTList := TStringList.Create; + HasFlag := False; + FlagList := TStringList.Create; + // set up structures specific to the user + Caption := TX_IN_USE + MixedCase(User.Name) + ' (' + RPCBrokerV.Server + ')'; + SetDebugMenu; + if InteractiveRemindersActive then + NotifyWhenRemindersChange(RemindersChanged); + // load all the tab pages + FCreateProgress := FCP_FORMS; + //CreateTab(TObject(frmProblems), TfrmProblems, CT_PROBLEMS, 'Problems'); + CreateTab(CT_PROBLEMS, 'Problems'); + CreateTab(CT_MEDS, 'Meds'); + CreateTab(CT_ORDERS, 'Orders'); + CreateTab(CT_NOTES, 'Notes'); + CreateTab(CT_CONSULTS, 'Consults'); + if ShowSurgeryTab then CreateTab(CT_SURGERY, 'Surgery'); + CreateTab(CT_DCSUMM, 'D/C Summ'); + CreateTab(CT_LABS, 'Labs'); + CreateTab(CT_REPORTS, 'Reports'); + CreateTab(CT_COVER, 'Cover Sheet'); + ShowHideChartTabMenus(mnuViewChart); + // We defer calling LoadUserPreferences to UMInitiate, so that the font sizing + // routines recognize this as the application's main form (this hasn't been + // set yet). + FNextButtonBitmap := TBitmap.Create; + FNextButtonBitmap.LoadFromResourceName(hInstance, 'BMP_HANDRIGHT'); + // set the timeout to DTIME now that there is a connection + UpdateTimeOutInterval(User.DTIME * 1000); // DTIME * 1000 mSec + // get a patient + HandleNeeded; // make sure handle is there for ORWPT SHARE call + FCreateProgress := FCP_PTSEL; + Enabled := False; + FFirstLoad := True; // First time to initialize the fFrame + FCreateProgress := FCP_FINISH; + pnlReminders.Visible := InteractiveRemindersActive; + GraphFloatActive := false; + GraphContext := ''; + uRemoteType := ''; + FPrevPtID := ''; + SetUserTools; + EnduringPtSelSplitterPos := 0; + if User.IsReportsOnly then // Reports Only tab. + ReportsOnlyDisplay; // Calls procedure to hide all components/menus not needed. + InitialOrderVariables; + PostMessage(Handle, UM_INITIATE, 0, 0); // select patient after main form is created +// mnuFileOpenClick(Self); +// if Patient.DFN = '' then //*DFN* +// begin +// Close; +// Exit; +// end; +// if WindowState = wsMinimized then WindowState := wsNormal; + SetFormMonitoring(true); +end; + +procedure TfrmFrame.StartCCOWContextor; +begin + try + ctxContextor := TContextorControl.Create(Self); + with ctxContextor do + begin + OnPending := ctxContextorPending; + OnCommitted := ctxContextorCommitted; + OnCanceled := ctxContextorCanceled; + end; + FCCOWBusy := False; + FCCOWInstalled := True; + FCCOWDrivedChange := False; + ctxContextor.Run('CPRSChart', '', TRUE, 'Patient'); + IsRunExecuted := True; + except + on exc : EOleException do + begin + IsRunExecuted := False; + FreeAndNil(ctxContextor); + try + ctxContextor := TContextorControl.Create(Self); + with ctxContextor do + begin + OnPending := ctxContextorPending; + OnCommitted := ctxContextorCommitted; + OnCanceled := ctxContextorCanceled; + end; + FCCOWBusy := False; + FCCOWInstalled := True; + FCCOWDrivedChange := False; + ctxContextor.Run('CPRSChart' + '#', '', TRUE, 'Patient'); + IsRunExecuted := True; + if ParamSearch('CCOW') = 'FORCE' then + begin + mnuFileResumeContext.Enabled := False; + mnuFileBreakContext.Visible := True; + mnuFileBreakContext.Enabled := True; + end + else + begin + ctxContextor.Suspend; + mnuFileResumeContext.Visible := True; + mnuFileBreakContext.Visible := True; + mnuFileBreakContext.Enabled := False; + end; + except + IsRunExecuted := False; + FCCOWInstalled := False; + FreeAndNil(ctxContextor); + pnlCCOW.Visible := False; + mnuFileResumeContext.Visible := False; + mnuFileBreakContext.Visible := False; + end; + end; + end +end; + +procedure TfrmFrame.UMInitiate(var Message: TMessage); +begin + NotifyOtherApps(NAE_OPEN, IntToStr(User.DUZ)); + LoadUserPreferences; + GetBAStatus(User.DUZ,Patient.DFN); + mnuFileOpenClick(Self); + Enabled := True; + // If TimedOut, Close has already been called. + if not TimedOut and (Patient.DFN = '') then Close; +end; + +procedure TfrmFrame.FormDestroy(Sender: TObject); +{ free core objects used by CPRS } +begin + Application.OnActivate := FOldActivate; + Screen.OnActiveFormChange := FOldActiveFormChange; + FNextButtonBitmap.Free; + uTabList.Free; + FlaggedPTList.Free; + RemoteSites.Free; + RemoteReports.Free; + Notifications.Free; + Changes.Free; + Encounter.Free; + Patient.Free; + User.Free; + SizeHolder.Free; + ctxContextor.Free; +end; + +procedure TfrmFrame.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +{ cancels close if the user cancels the ReviewChanges screen } +var + Reason: string; +begin + if (FCreateProgress < FCP_FINISH) then Exit; + if User.IsReportsOnly then // Reports Only tab. + exit; + if TimedOut then + begin + if Changes.RequireReview then ReviewChanges(TimedOut); + Exit; + end; + if not AllowContextChangeAll(Reason) then CanClose := False; +end; + +procedure TfrmFrame.SetUserTools; +var + ToolItems: TToolItemList; + i: Integer; + UserTool: TMenuItem; + MaxedOut: boolean; + // OptionsClick: TNotifyEvent; +begin + if User.IsReportsOnly then // Reports Only tab. + begin + mnuTools.Clear; // Remove all current items. + UserTool := TMenuItem.Create(Self); + UserTool.Caption := 'Options...'; + UserTool.Hint := 'Options'; + UserTool.OnClick := mnuToolsOptionsClick; + mnuTools.Add(UserTool); // Add back the "Options" menu. + exit; + end; + if User.GECStatus then + begin + UserTool := TMenuItem.Create(self); + UserTool.Caption := 'GEC Referral Status Display'; + UserTool.Hint := 'GEC Referral Status Display'; + UserTool.OnClick := mnuGECStatusClick; + mnuTools.Add(UserTool); // Add back the "Options" menu. + //exit; + end; + GetToolMenu(ToolItems, MaxedOut); // For all other users, proceed normally with creation of Tools menu: + for i := Low(ToolItems) to High(ToolItems) do + begin + if (AnsiCompareText(ToolItems[i].Caption, 'Event Capture Interface') = 0 ) and + (not uECSReport.ECSPermit) then + begin + ToolItems[i].Caption := ''; + ToolItems[i].Action := ''; + Break; + end; + end; + if MaxedOut then + begin + uToolsMaxed := True; + uToolsWarned := False; + end; + for i := 0 to MAX_TOOLITEMS do with ToolItems[i] do if Length(Caption) > 0 then + begin + UserTool := TMenuItem.Create(Self); + UserTool.Caption := Caption; + UserTool.Hint := Action; + UserTool.OnClick := ToolClick; + mnuTools.Insert(i, UserTool); + end; +end; + +procedure TfrmFrame.mnuToolsClick(Sender: TObject); +const + TX_TOO_MANY_TOOLS = 'Some defined items may not be shown'; + TC_TOO_MANY_TOOLS = 'Tool Menu Limit Exceeded'; +begin + if uToolsMaxed and (not uToolsWarned) then + begin + InfoBox(TX_TOO_MANY_TOOLS, TC_TOO_MANY_TOOLS, MB_ICONWARNING or MB_OK); + uToolsWarned := True; + end; +end; + +procedure TfrmFrame.UpdateECSParameter(var CmdParameter: string); //ECS +var + vstID,AccVer,Svr,SvrPort,VUser: string; +begin + AccVer := ''; + Svr := ''; + SvrPort := ''; + VUser := ''; + if RPCBrokerV <> nil then + begin + AccVer := RPCBrokerV.AccessVerifyCodes; + Svr := RPCBrokerV.Server; + SvrPort := IntToStr(RPCBrokerV.ListenerPort); + VUser := RPCBrokerV.User.DUZ; + end; + vstID := GetVisitID; + CmdParameter :=' Svr=' +Svr + +' SvrPort='+SvrPort + +' VUser='+ VUser + +' PtIEN='+ Patient.DFN + +' PdIEN='+IntToStr(Encounter.Provider) + +' vstIEN='+vstID + +' locIEN='+IntToStr(Encounter.Location) + +' Date=0' + +' Division='+GetDivisionID; + +end; + +function TfrmFrame.ValidECSUser: boolean; //ECS +var + isTrue: boolean; +begin + Result := True; + with RPCBrokerV do + begin + ShowErrorMsgs := semQuiet; + Connected := True; + try + isTrue := CreateContext(TX_ECSOPT); + if not isTrue then + Result := False; + ShowErrorMsgs := semRaise; + except + on E: Exception do + begin + ShowErrorMsgs := semRaise; + Result := False; + end; + end; + end; +end; + +procedure TfrmFrame.FormClose(Sender: TObject; var Action: TCloseAction); +//var +// i: Integer; +// UserTool: TMenuItem; +begin + FClosing := TRUE; + SetFormMonitoring(false); + if FCreateProgress < FCP_FINISH then FTerminate := True; + + FlushNotifierBuffer; + if FCreateProgress = FCP_FINISH then NotifyOtherApps(NAE_CLOSE, ''); + TerminateOtherAppNotification; + + if GraphFloat <> nil then + begin + if frmFrame.GraphFloatActive then + GraphFloat.Close; + GraphFloat.Release; + end; + + // unhook the timeout hooks + ShutDownTimeOut; + // clearing changes will unlock notes + if FCreateProgress = FCP_FINISH then Changes.Clear; + // clear server side flag global tmp + if FCreateProgress = FCP_FINISH then ClearFlag; + // save user preferences + if FCreateProgress = FCP_FINISH then SaveUserPreferences; + // call close for each page in case there is any special processing + if FCreateProgress > FCP_FORMS then + begin + mnuFrame.Merge(nil); + frmCover.Close; //frmCover.Release; + frmProblems.Close; //frmProblems.Release; + frmMeds.Close; //frmMeds.Release; + frmOrders.Close; //frmOrders.Release; + frmNotes.Close; //frmNotes.Release; + frmConsults.Close; //frmConsults.Release; + frmDCSumm.Close; //frmDCSumm.Release; + if Assigned(frmSurgery) then frmSurgery.Close; //frmSurgery.Release; + frmLabs.Close; //frmLabs.Release; + frmReports.Close; //frmReports.Release; + end; +// with mnuTools do for i := Count - 1 downto 0 do +// begin +// UserTool := Items[i]; +// if UserTool <> nil then +// begin +// Delete(i); +// UserTool.Free; +// end; +// end; + //Application.ProcessMessages; // so everything finishes closing + // if < FCP_FINISH we came here from inside FormCreate, so need to call terminate + //if GraphFloat <> nil then GraphFloat.Release; + if FCreateProgress < FCP_FINISH then Application.Terminate; +end; + +procedure TfrmFrame.SetDebugMenu; +var + IsProgrammer: Boolean; +begin + IsProgrammer := User.HasKey('XUPROGMODE'); + mnuHelpBroker.Visible := IsProgrammer; + mnuHelpLists.Visible := IsProgrammer; + mnuHelpSymbols.Visible := IsProgrammer; + Z6.Visible := IsProgrammer; +end; + +{ Updates posted to MainForm --------------------------------------------------------------- } + +procedure TfrmFrame.UMNewOrder(var Message: TMessage); +{ post a notice of change in orders to all TPages, wParam=OrderAction, lParam=TOrder } +var + OrderAct: string; +begin + with Message do + begin + frmCover.NotifyOrder(WParam, TOrder(LParam)); + frmProblems.NotifyOrder(WParam, TOrder(LParam)); + frmMeds.NotifyOrder(WParam, TOrder(LParam)); + frmOrders.NotifyOrder(WParam, TOrder(LParam)); + frmNotes.NotifyOrder(WParam, TOrder(LParam)); + frmConsults.NotifyOrder(WParam, TOrder(LParam)); + frmDCSumm.NotifyOrder(WParam, TOrder(LParam)); + if Assigned(frmSurgery) then frmSurgery.NotifyOrder(WParam, TOrder(LParam)); + frmLabs.NotifyOrder(WParam, TOrder(LParam)); + frmReports.NotifyOrder(WParam, TOrder(LParam)); + lblPtCWAD.Caption := GetCWADInfo(Patient.DFN); + if Length(lblPtCWAD.Caption) > 0 + then lblPtPostings.Caption := 'Postings' + else lblPtPostings.Caption := 'No Postings'; + pnlPostings.Caption := lblPtPostings.Caption + ' ' + lblPtCWAD.Caption; + OrderAct := ''; + case WParam of + ORDER_NEW: OrderAct := 'NW'; + ORDER_DC: OrderAct := 'DC'; + ORDER_RENEW: OrderAct := 'RN'; + ORDER_HOLD: OrderAct := 'HD'; + ORDER_EDIT: OrderAct := 'XX'; + ORDER_ACT: OrderAct := 'AC'; + end; + if Length(OrderAct) > 0 then NotifyOtherApps(NAE_ORDER, OrderAct + U + TOrder(LParam).ID); // add FillerID + end; +end; + +{ Tab Selection (navigate between pages) --------------------------------------------------- } + +procedure TfrmFrame.WMSetFocus(var Message: TMessage); +begin + if (FLastPage <> nil) and (not TimedOut) and + (not (csDestroying in FLastPage.ComponentState)) and FLastPage.Visible + then FLastPage.FocusFirstControl; +end; + +procedure TfrmFrame.UMShowPage(var Message: TMessage); +{ shows a page when the UM_SHOWPAGE message is received } +begin + if FCCOWDrivedChange then FCCOWDrivedChange := False; + if FLastPage <> nil then FLastPage.DisplayPage; + FChangeSource := CC_CLICK; // reset to click so we're only dealing with exceptions to click + if assigned(FTabChanged) then + FTabChanged(Self); +end; + +procedure TfrmFrame.SwitchToPage(NewForm: TfrmPage); +{ unmerge/merge menus, bring page to top of z-order, call form-specific OnDisplay code } +begin + if FLastPage = NewForm then + begin + if Notifications.Active then PostMessage(Handle, UM_SHOWPAGE, 0, 0); + Exit; + end; + if (FLastPage <> nil) then + begin + mnuFrame.Unmerge(FLastPage.Menu); + FLastPage.Hide; + end; + if Assigned(NewForm) then + begin + {if ((FLastPage = frmOrders) and (NewForm.Name <> frmMeds.Name)) + or ((FLastPage = frmMeds) and (NewForm.Name <> frmOrders.Name)) then + begin + if not CloseOrdering then + Exit; + end;} + mnuFrame.Merge(NewForm.Menu); + NewForm.Show; + end; + lstCIRNLocations.Visible := False; + pnlCIRN.BevelOuter := bvRaised; + lstCIRNLocations.SendToBack; + mnuFilePrint.Enabled := False; // let individual page enable this + mnuFilePrintSetup.Enabled := False; // let individual page enable this + mnuFilePrintSelectedItems.Enabled := False; + FLastPage := NewForm; + if NewForm <> nil then + begin + if NewForm.Name = frmNotes.Name then frmNotes.Align := alClient + else frmNotes.Align := alNone; + if NewForm.Name = frmConsults.Name then frmConsults.Align := alClient + else frmConsults.Align := alNone; + if NewForm.Name = frmDCSumm.Name then frmDCSumm.Align := alClient + else frmDCSumm.Align := alNone; + if Assigned(frmSurgery) then + if NewForm.Name = frmSurgery.Name then frmSurgery.Align := alclient + else frmSurgery.Align := alNone; + NewForm.BringToFront; // to cause tab switch to happen immediately + NewForm.FocusFirstControl; + Application.ProcessMessages; + PostMessage(Handle, UM_SHOWPAGE, 0, 0); // this calls DisplayPage for the form + end; +end; + +procedure TfrmFrame.mnuChartTabClick(Sender: TObject); +{ use the Tag property of the menu item to switch to proper page } +begin + with Sender as TMenuItem do tabPage.TabIndex := PageIDToTab(Tag); + LastTab := TabToPageID(tabPage.TabIndex) ; + tabPageChange(tabPage); +end; + +procedure TfrmFrame.tabPageChange(Sender: TObject); +{ switches to form linked to NewTab } +begin + + if (not User.IsReportsOnly) then + begin + case TabToPageID((sender as TTabControl).TabIndex) of + CT_NOPAGE: SwitchToPage(nil); + CT_COVER: SwitchToPage(frmCover); + CT_PROBLEMS: SwitchToPage(frmProblems); + CT_MEDS: SwitchToPage(frmMeds); + CT_ORDERS: SwitchToPage(frmOrders); + CT_NOTES: SwitchToPage(frmNotes); + CT_CONSULTS: SwitchToPage(frmConsults); + CT_DCSUMM: SwitchToPage(frmDCSumm); + CT_SURGERY: SwitchToPage(frmSurgery); + CT_LABS: SwitchToPage(frmLabs); + CT_REPORTS: SwitchToPage(frmReports); + end; {case} + end + else // Reports Only tab. + SwitchToPage(frmReports); + +end; + +function TfrmFrame.PageIDToTab(PageID: Integer): Integer; +{ returns the tab index that corresponds to a given PageID } +VAR + i: integer; +begin + i := uTabList.IndexOf(IntToStr(PageID)); + Result := i; + //Result := uTabList.IndexOf(IntToStr(PageID)); + (* + Result := -1; + case PageID of + CT_NOPAGE: Result := -1; + CT_COVER: Result := 0; + CT_PROBLEMS: Result := 1; + CT_MEDS: Result := 2; + CT_ORDERS: Result := 3; + {CT_HP: Result := 4;} + CT_NOTES: Result := 4; + CT_CONSULTS: Result := 5; + CT_DCSUMM: Result := 6; + CT_LABS: Result := 7; + CT_REPORTS: Result := 8; + end;*) +end; + +function TfrmFrame.TabToPageID(Tab: Integer): Integer; +{ returns the constant that identifies the page given a TabIndex } +begin + if (Tab > -1) and (Tab < uTabList.Count) then + Result := StrToIntDef(uTabList[Tab], CT_UNKNOWN) + else + Result := CT_NOPAGE; +(* case Tab of + -1: Result := CT_NOPAGE; + 0: Result := CT_COVER; + 1: Result := CT_PROBLEMS; + 2: Result := CT_MEDS; + 3: Result := CT_ORDERS; + {4: Result := CT_HP;} + 4: Result := CT_NOTES; + 5: Result := CT_CONSULTS; + 6: Result := CT_DCSUMM; + 7: Result := CT_LABS; + 8: Result := CT_REPORTS; + end;*) +end; + +{ File Menu Events ------------------------------------------------------------------------- } + +procedure TfrmFrame.SetupPatient(AFlaggedList : TStringList); +var + AMsg, SelectMsg: string; +begin + with Patient do + begin + ClearPatient; // must be called to avoid leaving previous patient's information visible! + Visible := True; + Application.ProcessMessages; + lblPtName.Caption := Name; + lblPtSSN.Caption := SSN; + lblPtAge.Caption := FormatFMDateTime('mmm dd,yyyy', DOB) + ' (' + IntToStr(Age) + ')'; + pnlPatient.Caption := lblPtName.Caption + ' ' + lblPtSSN.Caption + ' ' + lblPtAge.Caption; + if Length(CWAD) > 0 + then lblPtPostings.Caption := 'Postings' + else lblPtPostings.Caption := 'No Postings'; + lblPtCWAD.Caption := CWAD; + pnlPostings.Caption := lblPtPostings.Caption + ' ' + lblPtCWAD.Caption; + if (Length(PrimaryTeam) > 0) or (Length(PrimaryProvider) > 0) + then lblPtCare.Caption := PrimaryTeam + ' / ' + MixedCase(PrimaryProvider); + if Length(Attending) > 0 then lblPtAttending.Caption := 'Attending: ' + MixedCase(Attending); + pnlPrimaryCare.Caption := lblPtCare.Caption + ' ' + lblPtAttending.Caption; + SetUpCIRN; + DisplayEncounterText; + SetShareNode(DFN, Handle); + with Patient do + NotifyOtherApps(NAE_NEWPT, SSN + U + FloatToStr(DOB) + U + Name); + SelectMsg := ''; + if MeansTestRequired(Patient.DFN, AMsg) then SelectMsg := AMsg; + if HasLegacyData(Patient.DFN, AMsg) then SelectMsg := SelectMsg + CRLF + AMsg; + + HasActiveFlg(FlagList, HasFlag, Patient.DFN); + if HasFlag then + begin + pnlFlag.Enabled := True; + lblFlag.Font.Color := clMaroon; + lblFlag.Enabled := True; + if (not FReFreshing) and (TriggerPRFPopUp(Patient.DFN)) then + ShowFlags; + end else + begin + pnlFlag.Enabled := False; + lblFlag.Font.Color := clBtnFace; + lblFlag.Enabled := False; + end; + FPrevPtID := patient.DFN; + frmCover.UpdateVAAButton; //VAA CQ7525 (moved here in v26.30 (RV)) + ProcessPatientChangeEventHook; + if Length(SelectMsg) > 0 then ShowPatientSelectMessages(SelectMsg); + end; +end; + +procedure TfrmFrame.mnuFileNextClick(Sender: TObject); +var + SaveDFN, NewDFN: string; // *DFN* + NextIndex: Integer; + Reason: string; + CCOWResponse: UserResponse; + + procedure UpdatePatientInfoForAlert; + begin + if Patient.Inpatient then + begin + Encounter.Inpatient := True; + Encounter.Location := Patient.Location; + Encounter.DateTime := Patient.AdmitTime; + Encounter.VisitCategory := 'H'; + end; + if User.IsProvider then Encounter.Provider := User.DUZ; + SetupPatient(FlaggedPTList); + if (FlaggedPTList.IndexOf(Patient.DFN) < 0) then + FlaggedPTList.Add(Patient.DFN); + end; + +begin + SaveDFN := Patient.DFN; + Notifications.Next; + if Notifications.Active then + begin + NewDFN := Notifications.DFN; + //Patient.DFN := Notifications.DFN; + //if SaveDFN <> Patient.DFN then + if SaveDFN <> NewDFN then + begin + // newdfn does not have new patient.co information for CCOW call + if (AllowContextChangeAll(Reason)) then + begin + RemindersStarted := FALSE; + Patient.DFN := NewDFN; + Encounter.Clear; + Changes.Clear; + if Assigned(FlagList) then + begin + FlagList.Clear; + HasFlag := False; + HasActiveFlg(FlagList, HasFlag, NewDFN); + end; + if FCCOWInstalled and (ctxContextor.State = csParticipating) then + begin + if (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then + UpdatePatientInfoForAlert + else + begin + case CCOWResponse of + urCancel: + begin + Patient.DFN := SaveDFN; + Notifications.Prior; + Exit; + end; + urBreak: + begin + // do not revert to old DFN if context was manually broken by user - v26 (RV) + if (ctxContextor.State = csParticipating) then Patient.DFN := SaveDFN; + UpdatePatientInfoForAlert; + end; + else + UpdatePatientInfoForAlert; + end; + end; + end + else + UpdatePatientInfoForAlert + end else + begin + Patient.DFN := SaveDFN; + Notifications.Prior; + Exit; + end; + end; + stsArea.Panels.Items[1].Text := Notifications.Text; + FChangeSource := CC_NOTIFICATION; + NextIndex := PageIDToTab(CT_COVER); + tabPage.TabIndex := CT_NOPAGE; + tabPageChange(tabPage); + mnuFileNotifRemove.Enabled := Notifications.Followup in [NF_FLAGGED_ORDERS, + NF_ORDER_REQUIRES_ELEC_SIGNATURE, + NF_MEDICATIONS_EXPIRING_INPT, + NF_MEDICATIONS_EXPIRING_OUTPT, + NF_UNVERIFIED_MEDICATION_ORDER, + NF_UNVERIFIED_ORDER, + NF_FLAGGED_OI_EXP_INPT, + NF_FLAGGED_OI_EXP_OUTPT]; + case Notifications.FollowUp of + NF_LAB_RESULTS : NextIndex := PageIDToTab(CT_LABS); + NF_FLAGGED_ORDERS : NextIndex := PageIDToTab(CT_ORDERS); + NF_ORDER_REQUIRES_ELEC_SIGNATURE : NextIndex := PageIDToTab(CT_ORDERS); + NF_ABNORMAL_LAB_RESULTS : NextIndex := PageIDToTab(CT_LABS); + NF_IMAGING_RESULTS : NextIndex := PageIDToTab(CT_REPORTS); + NF_CONSULT_REQUEST_RESOLUTION : NextIndex := PageIDToTab(CT_CONSULTS); + NF_ABNORMAL_IMAGING_RESULTS : NextIndex := PageIDToTab(CT_REPORTS); + NF_IMAGING_REQUEST_CANCEL_HELD : NextIndex := PageIDToTab(CT_ORDERS); + NF_NEW_SERVICE_CONSULT_REQUEST : NextIndex := PageIDToTab(CT_CONSULTS); + NF_CONSULT_REQUEST_CANCEL_HOLD : NextIndex := PageIDToTab(CT_CONSULTS); + NF_SITE_FLAGGED_RESULTS : NextIndex := PageIDToTab(CT_ORDERS); + NF_ORDERER_FLAGGED_RESULTS : NextIndex := PageIDToTab(CT_ORDERS); + NF_ORDER_REQUIRES_COSIGNATURE : NextIndex := PageIDToTab(CT_ORDERS); + NF_LAB_ORDER_CANCELED : NextIndex := PageIDToTab(CT_ORDERS); + NF_STAT_RESULTS : + if Piece(Piece(Notifications.AlertData, '|', 2), '@', 2) = 'LRCH' then + NextIndex := PageIDToTab(CT_LABS) + else if Piece(Piece(Notifications.AlertData, '|', 2), '@', 2) = 'GMRC' then + NextIndex := PageIDToTab(CT_CONSULTS) + else if Piece(Piece(Notifications.AlertData, '|', 2), '@', 2) = 'RA' then + NextIndex := PageIDToTab(CT_REPORTS); + NF_DNR_EXPIRING : NextIndex := PageIDToTab(CT_ORDERS); + NF_MEDICATIONS_EXPIRING_INPT : NextIndex := PageIDToTab(CT_ORDERS); + NF_MEDICATIONS_EXPIRING_OUTPT : NextIndex := PageIDToTab(CT_ORDERS); + NF_UNVERIFIED_MEDICATION_ORDER : NextIndex := PageIDToTab(CT_ORDERS); + NF_NEW_ORDER : NextIndex := PageIDToTab(CT_ORDERS); + NF_IMAGING_RESULTS_AMENDED : NextIndex := PageIDToTab(CT_REPORTS); + NF_CRITICAL_LAB_RESULTS : NextIndex := PageIDToTab(CT_LABS); + NF_UNVERIFIED_ORDER : NextIndex := PageIDToTab(CT_ORDERS); + NF_FLAGGED_OI_RESULTS : NextIndex := PageIDToTab(CT_ORDERS); + NF_FLAGGED_OI_ORDER : NextIndex := PageIDToTab(CT_ORDERS); + NF_DC_ORDER : NextIndex := PageIDToTab(CT_ORDERS); + NF_CONSULT_UNSIGNED_NOTE : NextIndex := PageIDToTab(CT_CONSULTS); + NF_DCSUMM_UNSIGNED_NOTE : NextIndex := PageIDToTab(CT_DCSUMM); + NF_NOTES_UNSIGNED_NOTE : NextIndex := PageIDToTab(CT_NOTES); + NF_CONSULT_REQUEST_UPDATED : NextIndex := PageIDToTab(CT_CONSULTS); + NF_FLAGGED_OI_EXP_INPT : NextIndex := PageIDToTab(CT_ORDERS); + NF_FLAGGED_OI_EXP_OUTPT : NextIndex := PageIDToTab(CT_ORDERS); + NF_CONSULT_PROC_INTERPRETATION : NextIndex := PageIDToTab(CT_CONSULTS); + NF_IMAGING_REQUEST_CHANGED : + begin + ReportBox(GetNotificationFollowUpText(Patient.DFN, Notifications.FollowUp, Notifications.AlertData), Pieces(Piece(Notifications.RecordID, U, 1), ':', 2, 3), True); + Notifications.Delete; + end; + NF_LAB_THRESHOLD_EXCEEDED : NextIndex := PageIDToTab(CT_LABS); + NF_SURGERY_UNSIGNED_NOTE : if TabExists(CT_SURGERY) then + NextIndex := PageIDToTab(CT_SURGERY) + else + InfoBox(TX_NO_SURG_NOTIF, TC_NO_SURG_NOTIF, MB_OK); + //NextIndex := PageIDToTab(CT_NOTES); + else InfoBox(TX_UNK_NOTIF, TC_UNK_NOTIF, MB_OK); + end; + tabPage.TabIndex := NextIndex; + tabPageChange(tabPage); + end + else mnuFileOpenClick(mnuFileNext); +end; + + +procedure TfrmFrame.SetBADxList; +var + i: smallint; +begin + if not Assigned(UBAGlobals.tempDxList) then + begin + UBAGlobals.tempDxList := TList.Create; + UBAGlobals.tempDxList.Count := 0; + Application.ProcessMessages; + end + else + begin + //Kill the old Dx list + for i := 0 to pred(UBAGlobals.tempDxList.Count) do + TObject(UBAGlobals.tempDxList[i]).Free; + + UBAGlobals.tempDxList.Clear; + Application.ProcessMessages; + + //Create new Dx list for newly selected patient + if not Assigned(UBAGlobals.tempDxList) then + begin + UBAGlobals.tempDxList := TList.Create; + UBAGlobals.tempDxList.Count := 0; + Application.ProcessMessages; + end; + end; +end; + +procedure TfrmFrame.mnuFileOpenClick(Sender: TObject); +{ select a new patient & update the header displays (patient id, encounter, postings) } +var + SaveDFN, Reason: string; + //NextTab: Integer; // moved up for visibility - v23.4 rV + ok, OldRemindersStarted, PtSelCancelled: boolean; + //i: smallint; + CCOWResponse: UserResponse; +begin + PtSelCancelled := FALSE; + DetermineNextTab; +(* if (FRefreshing or User.UseLastTab) and (not FFirstLoad) then + NextTab := TabToPageID(tabPage.TabIndex) + else + NextTab := User.InitialTab; + if NextTab = CT_NOPAGE then NextTab := User.InitialTab; + if User.IsReportsOnly then // Reports Only tab. + NextTab := 0; // Only one tab should exist by this point in "REPORTS ONLY" mode. + if not TabExists(NextTab) then NextTab := CT_COVER; + if NextTab = CT_NOPAGE then NextTab := User.InitialTab; + if NextTab = CT_ORDERS then + if frmOrders <> nil then with frmOrders do + begin + if (lstSheets.ItemIndex > -1 ) and (TheCurrentView <> nil) and (theCurrentView.EventDelay.PtEventIFN>0) then + PtEvtCompleted(TheCurrentView.EventDelay.PtEventIFN, TheCurrentView.EventDelay.EventName); + end;*) + if not AllowContextChangeAll(Reason) then Exit; + + // update status text here + stsArea.Panels.Items[1].Text := ''; + if (not User.IsReportsOnly) then + begin + if not FRefreshing then + begin + Notifications.Next; // avoid prompt if no more alerts selected to process {v14a RV} + if Notifications.Active then + begin + if (InfoBox(TX_NOTIF_STOP, TC_NOTIF_STOP, MB_YESNO) = ID_NO) then + begin + Notifications.Prior; + Exit; + end; + end; + if Notifications.Active then Notifications.Prior; + end; + end; + + if FNoPatientSelected then + SaveDFN := '' + else + SaveDFN := Patient.DFN; + + OldRemindersStarted := RemindersStarted; + RemindersStarted := FALSE; + try + if FRefreshing then + begin + UpdatePtInfoOnRefresh; + ok := TRUE; + end + else + begin + ok := FALSE; + if (not User.IsReportsOnly) then + begin + if FCCOWInstalled and (ctxContextor.State = csParticipating) then + begin + UpdateCCOWContext; + if not FCCOWError then + begin + FCCOWIconName := 'BMP_CCOW_LINKED'; + pnlCCOW.Hint := TX_CCOW_LINKED; + imgCCOW.Picture.Bitmap.LoadFromResourceName(hInstance, FCCOWIconName); + end; + end + else + begin + FCCOWIconName := 'BMP_CCOW_BROKEN'; + pnlCCOW.Hint := TX_CCOW_BROKEN; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + end; + if (Patient.DFN = '') or (Sender = mnuFileOpen) or (Sender = mnuFileNext) or (Sender = mnuViewDemo) then + SelectPatient(SHOW_NOTIFICATIONS, Font.Size, PtSelCancelled); + if PtSelCancelled then exit; + ShowEverything; + DisplayEncounterText; + FPrevInPatient := Patient.Inpatient; + if Notifications.Active then + begin + // display 'next notification' button + FNextButtonActive := True; + with stsArea.Panels[2] do + begin + //Text := 'Next ->'; + Bevel := pbRaised; + end; + mnuFileNext.Enabled := True; + mnuFileNextClick(Self); + end + else + begin + // hide the 'next notification' button + FNextButtonActive := False; + with stsArea.Panels[2] do + begin + //Text := ''; + Bevel := pbLowered; + end; + mnuFileNext.Enabled := False; + mnuFileNotifRemove.Enabled := False; + if Patient.DFN <> SaveDFN then + ok := TRUE; + end + end + else + begin + Notifications.Clear; + SelectPatient(False, Font.Size, PtSelCancelled); // Call Pt. Sel. w/o notifications. + if PtSelCancelled then exit; + ShowEverything; + DisplayEncounterText; + FPrevInPatient := Patient.Inpatient; + ok := TRUE; + end; + end; + if ok then + begin + if FCCOWInstalled and (ctxContextor.State = csParticipating) and (not FRefreshing) then + begin + if (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then + begin + SetupPatient; + tabPage.TabIndex := PageIDToTab(NextTab); + tabPageChange(tabPage); + end + else + begin + case CCOWResponse of + urCancel: UpdateCCOWContext; + urBreak: + begin + // do not revert to old DFN if context was manually broken by user - v26 (RV) + if (ctxContextor.State = csParticipating) then Patient.DFN := SaveDFN; + SetupPatient; + tabPage.TabIndex := PageIDToTab(NextTab); + tabPageChange(tabPage); + end; + else + begin + SetupPatient; + tabPage.TabIndex := PageIDToTab(NextTab); + tabPageChange(tabPage); + end; + end; + end; + end + else + begin + SetupPatient; + tabPage.TabIndex := PageIDToTab(NextTab); + tabPageChange(tabPage); + end; + end; + finally + if (not FRefreshing) and (Patient.DFN = SaveDFN) then + RemindersStarted := OldRemindersStarted; + FFirstLoad := False; + end; + {Begin BillingAware} + if BILLING_AWARE then frmFrame.SetBADxList; //end IsBillingAware + {End BillingAware} + //frmCover.UpdateVAAButton; //VAA CQ7525 CQ#7933 - moved to SetupPatient, before event hook execution (RV) +end; + +procedure TfrmFrame.DetermineNextTab; +begin + if (FRefreshing or User.UseLastTab) and (not FFirstLoad) then + begin + if (tabPage.TabIndex < 0) then + NextTab := LastTab + else + NextTab := TabToPageID(tabPage.TabIndex); + end + else + NextTab := User.InitialTab; + if NextTab = CT_NOPAGE then NextTab := User.InitialTab; + if User.IsReportsOnly then // Reports Only tab. + NextTab := 0; // Only one tab should exist by this point in "REPORTS ONLY" mode. + if not TabExists(NextTab) then NextTab := CT_COVER; + if NextTab = CT_NOPAGE then NextTab := User.InitialTab; + if NextTab = CT_ORDERS then + if frmOrders <> nil then with frmOrders do + begin + if (lstSheets.ItemIndex > -1 ) and (TheCurrentView <> nil) and (theCurrentView.EventDelay.PtEventIFN>0) then + PtEvtCompleted(TheCurrentView.EventDelay.PtEventIFN, TheCurrentView.EventDelay.EventName); + end; +end; + +procedure TfrmFrame.mnuFileEncounterClick(Sender: TObject); +{ displays encounter window and updates encounter display in case encounter was updated } +begin + UpdateEncounter(NPF_ALL); {*KCM*} + DisplayEncounterText; +end; + +procedure TfrmFrame.mnuFileReviewClick(Sender: TObject); +{ displays the Review Changes window (which resets the Encounter object) } +var + EventChanges: boolean; + NameNeedLook: string; +begin + EventChanges := False; + NameNeedLook := ''; + UpdatePtInfoOnRefresh; + if Changes.Count > 0 then + begin + if (frmOrders <> nil) and (frmOrders.TheCurrentView <> nil) and ( frmOrders.TheCurrentView.EventDelay.EventIFN>0) then + begin + EventChanges := True; + NameNeedLook := frmOrders.TheCurrentView.ViewName; + frmOrders.PtEvtCompleted(frmOrders.TheCurrentView.EventDelay.PtEventIFN, frmOrders.TheCurrentView.EventDelay.EventName); + end; + ReviewChanges(TimedOut, EventChanges); + if TabToPageID(tabPage.TabIndex)= CT_MEDS then + begin + frmOrders.InitOrderSheets2(NameNeedLook); + end; + end + else InfoBox('No new changes to review/sign.', 'Review Changes', MB_OK); +end; + +procedure TfrmFrame.mnuFileExitClick(Sender: TObject); +{ see the CloseQuery event } +var + i: smallint; +begin + try + if BILLING_AWARE then + begin + if Assigned(tempDxList) then + for i := 0 to pred(UBAGlobals.tempDxList.Count) do + TObject(UBAGlobals.tempDxList[i]).Free; + + UBAGlobals.tempDxList.Clear; + Application.ProcessMessages; + end; //end IsBillingAware + except + on EAccessViolation do + begin + {$ifdef debug}ShowMessage('Access Violation in procedure TfrmFrame.mnuFileExitClick()');{$endif} + raise; + end; + on E: Exception do + begin + {$ifdef debug}ShowMessage('Unhandled exception in procedure TfrmFrame.mnuFileExitClick()');{$endif} + raise; + end; + end; + + Close; +end; + +{ View Menu Events ------------------------------------------------------------------------- } + +procedure TfrmFrame.mnuViewPostingsClick(Sender: TObject); +begin +end; + +{ Tool Menu Events ------------------------------------------------------------------------- } + +function TfrmFrame.ExpandCommand(x: string): string; +{ look for 'macros' on the command line and expand them using current context } + + procedure Substitute(const Key, Data: string); + var + Stop, Start: Integer; + begin + Stop := Pos(Key, x) - 1; + Start := Stop + Length(Key) + 1; + x := Copy(x, 1, Stop) + Data + Copy(x, Start, Length(x)); + end; + +begin + if Pos('%MREF', x) > 0 then Substitute('%MREF', + '^TMP(''ORWCHART'',' + MScalar('$J') + ',''' + DottedIPStr + ''',' + IntToHex(Handle, 8) + ')'); + if Pos('%SRV', x) > 0 then Substitute('%SRV', RPCBrokerV.Server); + if Pos('%PORT', x) > 0 then Substitute('%PORT', IntToStr(RPCBrokerV.ListenerPort)); + if Pos('%DFN', x) > 0 then Substitute('%DFN', Patient.DFN); //*DFN* + if Pos('%DUZ', x) > 0 then Substitute('%DUZ', IntToStr(User.DUZ)); + Result := x; +end; + +procedure TfrmFrame.ToolClick(Sender: TObject); +{ executes the program associated with an item on the Tools menu, the command line is stored + in the item's hint property } +const + TXT_ECS_NOTFOUND = 'The ECS application is not found at the default directory,' + #13 + 'would you like manually search it?'; + TC_ECS_NOTFOUND = 'Application Not Found'; +var + x, AFile, Param, MenuCommand, ECSAppend, CapNm, curPath : string; + IsECSInterface: boolean; + + function TakeOutAmps(AString: string): string; + var + S1,S2: string; + begin + if Pos('&',AString)=0 then + begin + Result := AString; + Exit; + end; + S1 := Piece(AString,'&',1); + S2 := Piece(AString,'&',2); + Result := S1 + S2; + end; + + function ExcuteEC(AFile,APara: string): boolean; + begin + if (ShellExecute(Handle, 'open', PChar(AFile), PChar(Param), '', SW_NORMAL) > 32 ) then Result := True + else + begin + if InfoBox(TXT_ECS_NOTFOUND, TC_ECS_NOTFOUND, MB_YESNO or MB_ICONERROR) = IDYES then + begin + if OROpenDlg.Execute then + begin + AFile := OROpenDlg.FileName; + if Pos('ecs gui.exe',lowerCase(AFile))<1 then + begin + ShowMessage('This is not a valid ECS application.'); + Result := True; + end else + begin + if (ShellExecute(Handle, 'open', PChar(AFile), PChar(Param), '', SW_NORMAL)<32) then Result := False + else Result := True; + end; + end + else Result := True; + end else Result := True; + end; + end; + + function ExcuteECS(AFile, APara: string; var currPath: string): boolean; + var + commandline,RPCHandle: string; + StartupInfo: TStartupInfo; + ProcessInfo: TProcessInformation; + begin + FillChar(StartupInfo, SizeOf(TStartupInfo), 0); + with StartupInfo do + begin + cb := SizeOf(TStartupInfo); + dwFlags := STARTF_USESHOWWINDOW; + wShowWindow := SW_SHOWNORMAL; + end; + commandline := AFile + Param; + RPCHandle := GetAppHandle(RPCBrokerV); + commandline := commandline + ' H=' + RPCHandle; + if CreateProcess(nil, PChar(commandline), nil, nil, False, + NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then Result := True + else + begin + if InfoBox(TXT_ECS_NOTFOUND, TC_ECS_NOTFOUND, MB_YESNO or MB_ICONERROR) = IDYES then + begin + if OROpenDlg.Execute then + begin + AFile := OROpenDlg.FileName; + if Pos('ecs gui.exe',lowerCase(AFile))<1 then + begin + ShowMessage('This is not a valid ECS application.'); + Result := True; + end else + begin + SaveUserPath('Event Capture Interface='+AFile, currPath); + FillChar(StartupInfo, SizeOf(TStartupInfo), 0); + with StartupInfo do + begin + cb := SizeOf(TStartupInfo); + dwFlags := STARTF_USESHOWWINDOW; + wShowWindow := SW_SHOWNORMAL; + end; + commandline := AFile + Param; + RPCHandle := GetAppHandle(RPCBrokerV); + commandline := commandline + ' H=' + RPCHandle; + if not CreateProcess(nil, PChar(commandline), nil, nil, False, + NORMAL_PRIORITY_CLASS, nil, nil,StartupInfo,ProcessInfo) then Result := False + else Result := True; + end; + end + else Result := True; + end else Result := True; + end; + end; + +begin + MenuCommand := ''; + ECSAppend := ''; + IsECSInterface := False; + curPath := ''; + CapNm := LowerCase(TMenuItem(Sender).Caption); + CapNm := TakeOutAmps(CapNm); + if AnsiCompareText('event capture interface',CapNm)=0 then + begin + IsECSInterface := True; + if FECSAuthUser then UpdateECSParameter(ECSAppend) + else begin + ShowMessage('You don''t have permission to use ECS.'); + exit; + end; + end; + MenuCommand := TMenuItem(Sender).Hint + ECSAppend; + x := ExpandCommand(MenuCommand); + if CharAt(x, 1) = '"' then + begin + x := Copy(x, 2, Length(x)); + AFile := Copy(x, 1, Pos('"',x)-1); + Param := Copy(x, Pos('"',x)+1, Length(x)); + end else + begin + AFile := Piece(x, ' ', 1); + Param := Copy(x, Length(AFile)+1, Length(x)); + end; + if IsECSInterface then + begin + if not ExcuteECS(AFile,Param,curPath) then + ExcuteECS(AFile,Param,curPath); + if Length(curPath)>0 then + TMenuItem(Sender).Hint := curPath; + end + else if (Pos('ecs',LowerCase(AFile))>0) and (not IsECSInterface) then + begin + if not ExcuteEC(AFile,Param) then + ExcuteEC(AFile,Param); + end else + begin + ShellExecute(Handle, 'open', PChar(AFile), PChar(Param), '', SW_NORMAL); + end; +end; + +{ Help Menu Events ------------------------------------------------------------------------- } + +procedure TfrmFrame.mnuHelpBrokerClick(Sender: TObject); +{ used for debugging - shows last n broker calls } +begin + ShowBroker; +end; + +procedure TfrmFrame.mnuHelpListsClick(Sender: TObject); +{ used for debugging - shows internal contents of TORListBox } +begin + if Screen.ActiveControl is TListBox + then DebugListItems(TListBox(Screen.ActiveControl)) + else InfoBox('Focus control is not a listbox', 'ListBox Data', MB_OK); +end; + +procedure TfrmFrame.mnuHelpSymbolsClick(Sender: TObject); +{ used for debugging - shows current symbol table } +begin + DebugShowServer; +end; + +procedure TfrmFrame.mnuHelpAboutClick(Sender: TObject); +{ displays the about screen } +begin + ShowAbout; +end; + +{ Status Bar Methods } + +procedure TfrmFrame.UMStatusText(var Message: TMessage); +{ displays status bar text (using the pointer to a text buffer passed in LParam) } +begin + stsArea.Panels.Items[0].Text := StrPas(PChar(Message.LParam)); + stsArea.Refresh; +end; + +procedure TfrmFrame.stsAreaMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if (FNextButtonActive) and (X > FNextButtonL) and (X < FNextButtonR) then + begin + stsArea.Panels[2].Bevel := pbLowered; + popAlerts.AutoPopup := TRUE; + end; +end; + +procedure TfrmFrame.stsAreaMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if FNextButtonActive then + begin + stsArea.Panels[2].Bevel := pbRaised; + popAlerts.AutoPopup := FALSE; + if (X > FNextButtonL) and (X < FNextButtonR) then + if Button = mbLeft then mnuFileNextClick(Self); + end; +end; + +procedure TfrmFrame.stsAreaDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; + const Rect: TRect); +begin + if FNextButtonActive then with StatusBar.Canvas do + begin + Draw(Rect.Left + 2, Rect.Top, FNextButtonBitmap); { draw bitmap } + TextOut(Rect.Left + 20, Rect.Top + 2, 'Next'); { draw text to the right of the bitmap } + end; +end; + +{ Toolbar Methods (make panels act like buttons) ------------------------------------------- } + +procedure TfrmFrame.pnlPatientMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +{ emulate a button press in the patient identification panel } +begin + if pnlPatient.BevelOuter = bvLowered then exit; + pnlPatient.BevelOuter := bvLowered; + with lblPtName do SetBounds(Left+2, Top+2, Width, Height); + with lblPtSSN do SetBounds(Left+2, Top+2, Width, Height); + with lblPtAge do SetBounds(Left+2, Top+2, Width, Height); +end; + +procedure TfrmFrame.pnlPatientMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +{ emulate the button raising in the patient identification panel & call Patient Inquiry } +begin + if pnlPatient.BevelOuter = bvRaised then exit; + pnlPatient.BevelOuter := bvRaised; + with lblPtName do SetBounds(Left-2, Top-2, Width, Height); + with lblPtSSN do SetBounds(Left-2, Top-2, Width, Height); + with lblPtAge do SetBounds(Left-2, Top-2, Width, Height); +end; + +procedure TfrmFrame.pnlVisitMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +{ emulate a button press in the encounter panel } +begin + if User.IsReportsOnly then + exit; + pnlVisit.BevelOuter := bvLowered; + //with lblStLocation do SetBounds(Left+2, Top+2, Width, Height); + with lblPtLocation do SetBounds(Left+2, Top+2, Width, Height); + with lblPtProvider do SetBounds(Left+2, Top+2, Width, Height); +end; + +procedure TfrmFrame.pnlVisitMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +{ emulate a button raising in the encounter panel and call Update Provider/Location } +begin + if User.IsReportsOnly then + exit; + pnlVisit.BevelOuter := bvRaised; + //with lblStLocation do SetBounds(Left-2, Top-2, Width, Height); + with lblPtLocation do SetBounds(Left-2, Top-2, Width, Height); + with lblPtProvider do SetBounds(Left-2, Top-2, Width, Height); +end; + +procedure TfrmFrame.pnlPrimaryCareMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + pnlPrimaryCare.BevelOuter := bvLowered; + with lblPtCare do SetBounds(Left+2, Top+2, Width, Height); + with lblPtAttending do SetBounds(Left+2, Top+2, Width, Height); +end; + +procedure TfrmFrame.pnlPrimaryCareMouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + pnlPrimaryCare.BevelOuter := bvRaised; + with lblPtCare do SetBounds(Left-2, Top-2, Width, Height); + with lblPtAttending do SetBounds(Left-2, Top-2, Width, Height); +end; + +procedure TfrmFrame.pnlPostingsMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +{ emulate a button press in the postings panel } +begin + pnlPostings.BevelOuter := bvLowered; + with lblPtPostings do SetBounds(Left+2, Top+2, Width, Height); + with lblPtCWAD do SetBounds(Left+2, Top+2, Width, Height); +end; + +procedure TfrmFrame.pnlPostingsMouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +{ emulate a button raising in the posting panel and call Postings } +begin + pnlPostings.BevelOuter := bvRaised; + with lblPtPostings do SetBounds(Left-2, Top-2, Width, Height); + with lblPtCWAD do SetBounds(Left-2, Top-2, Width, Height); +end; + +{ Resize and Font-Change procedures -------------------------------------------------------- } + +procedure TfrmFrame.LoadSizesForUser; +var + s1, s2, s3, s4, Dummy: integer; + + panelBottom, panelMedIn : integer; + +begin + ChangeFont(UserFontSize); + SetUserBounds(TControl(frmFrame)); + SetUserWidths(TControl(frmProblems.pnlLeft)); + //SetUserWidths(TControl(frmMeds.pnlLeft)); + SetUserWidths(TControl(frmOrders.pnlLeft)); + SetUserWidths(TControl(frmNotes.pnlLeft)); + SetUserWidths(TControl(frmConsults.pnlLeft)); + SetUserWidths(TControl(frmDCSumm.pnlLeft)); + if Assigned(frmSurgery) then SetUserWidths(TControl(frmSurgery.pnlLeft)); + SetUserWidths(TControl(frmLabs.pnlLeft)); + SetUserWidths(TControl(frmReports.pnlLeft)); + SetUserColumns(TControl(frmOrders.hdrOrders)); + SetUserColumns(TControl(frmMeds.hdrMedsIn)); // still need conversion + SetUserColumns(TControl(frmMeds.hdrMedsOut)); + SetUserBounds2(ReminderTreeName, RemTreeDlgLeft, RemTreeDlgTop, RemTreeDlgWidth, RemTreeDlgHeight); + SetUserBounds2(RemDlgName, RemDlgLeft, RemDlgTop, RemDlgWidth, RemDlgHeight); + SetUserBounds2(RemDlgSplitters, RemDlgSpltr1, RemDlgSpltr2, Dummy ,Dummy); + SetUserBounds2(DrawerSplitters,s1, s2, s3, Dummy); + if Assigned(frmSurgery) then frmSurgery.Drawers.LastOpenSize := Dummy; //CQ7315 + frmNotes.Drawers.LastOpenSize := s1; + frmConsults.Drawers.LastOpenSize := s2; + frmDCSumm.Drawers.LastOpenSize := s3; + + with frmMeds do + begin + SetUserBounds2(frmMeds.Name+'Split', panelBottom, panelMedIn, Dummy, Dummy); + if (panelBottom > frmMeds.Height-50) then panelBottom := frmMeds.Height-50; + if (panelMedIn > panelBottom-50) then panelMedIn := panelBottom-50; + frmMeds.pnlBottom.Height := panelBottom; + frmMeds.pnlMedIn.Height := panelMedIn; + //Meds Tab Non-VA meds columns + SetUserColumns(TControl(hdrMedsNonVA)); //CQ7314 + end; + + frmCover.DisableAlign; + try + SetUserBounds2(CoverSplitters1, s1, s2, s3, s4); + if s1 > 0 then + frmCover.pnl_1.Width := LowerOf( frmCover.pnl_not3.ClientWidth - 5, s1); + if s2 > 0 then + frmCover.pnl_3.Width := LowerOf( frmCover.pnlTop.ClientWidth - 5, s2); + if s3 > 0 then + frmCover.pnlTop.Height := LowerOf( frmCover.pnlBase.ClientHeight - 5, s3); + if s4 > 0 then + frmCover.pnl_4.Width := LowerOf( frmCover.pnlMiddle.ClientWidth - 5, s4); + + SetUserBounds2(CoverSplitters2, s1, s2, s3, Dummy); + if s1 > 0 then + frmCover.pnlBottom.Height := LowerOf( frmCover.pnlBase.ClientHeight - 5, s1); + if s2 > 0 then + frmCover.pnl_6.Width := LowerOf( frmCover.pnlBottom.ClientWidth - 5, s2); + if s3 > 0 then + frmCover.pnl_8.Width := LowerOf( frmCover.pnlBottom.ClientWidth - 5, s3); + + finally + frmCover.EnableAlign; + end; + if ParamSearch('rez') = '640' then SetBounds(Left, Top, 648, 488); // for testing +end; + +procedure TfrmFrame.SaveSizesForUser; +var + SizeList: TStringList; + SurgTempHt: integer; +begin + SaveUserFontSize(MainFontSize); + SizeList := TStringList.Create; + try + with SizeList do + begin + Add(StrUserBounds(frmFrame)); + Add(StrUserWidth(frmProblems.pnlLeft)); + //Add(StrUserWidth(frmMeds.pnlLeft)); + Add(StrUserWidth(frmOrders.pnlLeft)); + Add(StrUserWidth(frmNotes.pnlLeft)); + Add(StrUserWidth(frmConsults.pnlLeft)); + Add(StrUserWidth(frmDCSumm.pnlLeft)); + if Assigned(frmSurgery) then Add(StrUserWidth(frmSurgery.pnlLeft)); + Add(StrUserWidth(frmLabs.pnlLeft)); + Add(StrUserWidth(frmReports.pnlLeft)); + Add(StrUserColumns(frmOrders.hdrOrders)); + Add(StrUserColumns(frmMeds.hdrMedsIn)); + Add(StrUserColumns(frmMeds.hdrMedsOut)); + Add(StrUserBounds2(ReminderTreeName, RemTreeDlgLeft, RemTreeDlgTop, RemTreeDlgWidth, RemTreeDlgHeight)); + Add(StrUserBounds2(RemDlgName, RemDlgLeft, RemDlgTop, RemDlgWidth, RemDlgHeight)); + Add(StrUserBounds2(RemDlgSplitters, RemDlgSpltr1, RemDlgSpltr2, 0 ,0)); + + //v26.47 - RV - access violation if Surgery Tab not enabled. Set to designer height as default. + if Assigned(frmSurgery) then SurgTempHt := frmSurgery.Drawers.pnlTemplates.Height else SurgTempHt := 85; + Add(StrUserBounds2(DrawerSplitters, frmNotes.Drawers.LastOpenSize, + frmConsults.Drawers.LastOpenSize, + frmDCSumm.Drawers.LastOpenSize, + SurgTempHt)); // last parameter = CQ7315 + + Add(StrUserBounds2(CoverSplitters1, + frmCover.pnl_1.Width, + frmCover.pnl_3.Width, + frmCover.pnlTop.Height, + frmCover.pnl_4.Width)); + Add(StrUserBounds2(CoverSplitters2, + frmCover.pnlBottom.Height, + frmCover.pnl_6.Width, + frmCover.pnl_8.Width, + 0)); + + //Meds Tab Splitters + Add(StrUserBounds2(frmMeds.Name+'Split',frmMeds.pnlBottom.Height,frmMeds.pnlMedIn.Height,0,0)); + + //Meds Tab Non-VA meds columns + Add(StrUserColumns(fMeds.frmMeds.hdrMedsNonVA)); //CQ7314 + + //Orders Tab columns + Add(StrUserColumns(fOrders.frmOrders.hdrOrders)); //CQ6328 + + if EnduringPtSelSplitterPos <> 0 then + Add(StrUserBounds2('frmPtSel.sptVert', EnduringPtSelSplitterPos, 0, 0, 0)); + end; + //Add sizes for forms that used SaveUserBounds() to save thier positions + SizeHolder.AddSizesToStrList(SizeList); + //Send the SizeList to the Database + SaveUserSizes(SizeList); + finally + SizeList.Free; + end; +end; + +procedure TfrmFrame.FormResize(Sender: TObject); +{ need to resize tab forms specifically since they don't inherit resize event (because they + are derived from TForm itself) } +begin + if FTerminate or FClosing then Exit; + if csDestroying in ComponentState then Exit; + MoveWindow(frmCover.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + MoveWindow(frmProblems.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + MoveWindow(frmMeds.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + MoveWindow(frmOrders.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + MoveWindow(frmNotes.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + MoveWindow(frmConsults.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + MoveWindow(frmDCSumm.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + if Assigned(frmSurgery) then MoveWindow(frmSurgery.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + MoveWindow(frmLabs.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + MoveWindow(frmReports.Handle, 0, 0, pnlPage.ClientWidth, pnlPage.ClientHeight, True); + with stsArea do + begin + Panels[1].Width := stsArea.Width - FFixedStatusWidth; + FNextButtonL := Panels[0].Width + Panels[1].Width; + FNextButtonR := FNextButtonL + Panels[2].Width; + end; + lstCIRNLocations.Left := FNextButtonL - ScrollBarWidth - 100; + lstCIRNLocations.Width := ClientWidth - lstCIRNLocations.Left; + Self.Repaint; +end; + +procedure TfrmFrame.ChangeFont(NewFontSize: Integer); +{ Makes changes in all components whenever the font size is changed. This is hardcoded and + based on MS Sans Serif for now, as only the font size may be selected. Courier New is used + wherever non-proportional fonts are required. } +const + TAB_VOFFSET = 7; +var + OldFont: TFont; +begin +// Ho ho! ResizeAnchoredFormToFont(self) doesn't work here because the +// Form size is aliased with MainFormSize. + OldFont := TFont.Create; + try + DisableAlign; + try + OldFont.Assign(Font); + with Self do Font.Size := NewFontSize; + with lblPtName do Font.Size := NewFontSize; // must change BOLDED labels by hand + with lblPtSSN do Font.Size := NewFontSize; + with lblPtAge do Font.Size := NewFontSize; + with lblPtLocation do Font.Size := NewFontSize; + with lblPtProvider do Font.Size := NewFontSize; + with lblPtPostings do Font.Size := NewFontSize; + with lblPtCare do Font.Size := NewFontSize; + with lblPtAttending do Font.Size := NewFontSize; + with lblFlag do Font.Size := NewFontSize; + with lblPtCWAD do Font.Size := NewFontSize; + with lblCIRN do Font.Size := NewFontSize; + with lblCIRNData do Font.Size := NewFontSize; + with lstCIRNLocations do Font.Size := NewFontSize; + with tabPage do Font.Size := NewFontSize; + with laMHV do Font.Size := NewFontSize; //VAA + with laVAA2 do Font.Size := NewFontSize; //VAA + + tabPage.Height := MainFontHeight + TAB_VOFFSET; // resize tab selector + FitToolbar; // resize toolbar + stsArea.Font.Size := NewFontSize; + stsArea.Height := MainFontHeight + TAB_VOFFSET; + stsArea.Panels[0].Width := ResizeWidth( OldFont, Font, stsArea.Panels[0].Width); + stsArea.Panels[2].Width := ResizeWidth( OldFont, Font, stsArea.Panels[2].Width); + + //VAA CQ8271 + if ((fCover.PtIsVAA and fCover.PtIsMHV)) then + begin + laMHV.Height := (pnlToolBar.Height div 2) -1; + with laVAA2 do + begin + Top := laMHV.Top + laMHV.Height; + Height := (pnlToolBar.Height div 2) -1; + end; + end; + //end VAA + + RefreshFixedStatusWidth; + FormResize( self ); + finally + EnableAlign; + end; + finally + OldFont.Free; + end; + + //remove CWAD color if using high-contrast colors + if ColorToRGB(clWindowText) <> ColorToRGB(clBlack) then + begin + lblPtCWAD.Font.Color := clWindowText; + lblFlag.Font.Color := clWindowText; + end; + + case (NewFontSize) of + 8: mnu8pt.Checked := true; + 10: mnu10pt1.Checked := true; + 12: mnu12pt1.Checked := true; + 14: mnu14pt1.Checked := true; + 18: mnu18pt1.Checked := true; + 24: mnu24pt1.Checked := true; + end; + + //Now that the form elements are resized, the pages will know what size to take. + frmCover.SetFontSize(NewFontSize); // child pages lack a ParentFont property + frmProblems.SetFontSize(NewFontSize); + frmMeds.SetFontSize(NewFontSize); + frmOrders.SetFontSize(NewFontSize); + frmNotes.SetFontSize(NewFontSize); + frmConsults.SetFontSize(NewFontSize); + frmDCSumm.SetFontSize(NewFontSize); + if Assigned(frmSurgery) then frmSurgery.SetFontSize(NewFontSize); + frmLabs.SetFontSize(NewFontSize); + frmReports.SetFontSize(NewFontSize); + TfrmIconLegend.SetFontSize(NewFontSize); + uOrders.SetFontSize(NewFontSize); + if Assigned(frmRemDlg) then frmRemDlg.SetFontSize; + if Assigned(frmReminderTree) then frmReminderTree.SetFontSize(NewFontSize); + if GraphFloat <> nil then ResizeAnchoredFormToFont(GraphFloat); +end; + +procedure TfrmFrame.FitToolBar; +{ resizes and repositions the panels & labels used in the toolbar } +const + PATIENT_WIDTH = 29; + VISIT_WIDTH = 36; + POSTING_WIDTH = 11.5; + FLAG_WIDTH = 5; + CIRN_WIDTH = 7; + MHV_WIDTH = 6; + LINES_HIGH = 2; + M_HORIZ = 4; + M_MIDDLE = 2; + M_NVERT = 4; + M_WVERT = 6; + TINY_MARGIN = 2; +//var + //WidthNeeded: integer; +begin + pnlToolbar.Height := (LINES_HIGH * lblPtName.Height) + M_HORIZ + M_MIDDLE + M_HORIZ; + pnlPatient.Width := HigherOf(PATIENT_WIDTH * MainFontWidth, lblPtName.Width + (M_WVERT * 2)); + lblPtSSN.Top := M_HORIZ + lblPtName.Height + M_MIDDLE; + lblPtAge.Top := lblPtSSN.Top; + lblPtAge.Left := pnlPatient.Width - lblPtAge.Width - M_WVERT; + pnlVisit.Width := HigherOf(LowerOf(VISIT_WIDTH * MainFontWidth, + HigherOf(lblPtProvider.Width + (M_WVERT * 2), + lblPtLocation.Width + (M_WVERT * 2))), + PATIENT_WIDTH * MainFontWidth); + lblPtProvider.Top := lblPtSSN.Top; + lblPtAttending.Top := lblPtSSN.Top; + lblCIRNData.Top := lblPtSSN.Top; + pnlPostings.Width := Round(POSTING_WIDTH * MainFontWidth); + pnlFlag.Width := Round(FLAG_WIDTH * MainFontWidth); + pnlFlag.Width := Round(FLAG_WIDTH * MainFontWidth); + pnlCIRN.Width := Round(CIRN_WIDTH * MainFontWidth) + M_WVERT; + paVAA.Width := Round(MHV_WIDTH * MainFontWidth) + M_WVERT; + with lblPtPostings do + SetBounds(M_WVERT, M_HORIZ, pnlPostings.Width-M_WVERT-M_WVERT, lblPtName.Height); + with lblPtCWAD do + SetBounds(M_WVERT, lblPtSSN.Top, lblPtPostings.Width, lblPtName.Height); + //Low resolution handling: First, try to fit everything on by shrinking fields + if pnlPrimaryCare.Width < HigherOf( lblPtCare.Left + lblPtCare.Width, lblPtAttending.Left + lblPtAttending.Width) + TINY_MARGIN then + begin + lblPtAge.Left := lblPtAge.Left - (lblPtName.Left - TINY_MARGIN); + lblPtName.Left := TINY_MARGIN; + lblPTSSN.Left := TINY_MARGIN; + pnlPatient.Width := HigherOf( lblPtName.Left + lblPtName.Width, lblPtAge.Left + lblPtAge.Width)+ TINY_MARGIN; + lblPtLocation.Left := TINY_MARGIN; + lblPtProvider.Left := TINY_MARGIN; + pnlVisit.Width := HigherOf( lblPtLocation.Left + lblPtLocation.Width, lblPtProvider.Left + lblPtProvider.Width)+ TINY_MARGIN; + end; + //If that is not enough, add scroll bars to form + {if pnlPrimaryCare.Width < HigherOf( lblPtCare.Left + lblPtCare.Width, lblPtAttending.Left + lblPtAttending.Width) + TINY_MARGIN then + begin + WidthNeeded := HigherOf( lblPtCare.Left + lblPtCare.Width, lblPtAttending.Left + lblPtAttending.Width) + TINY_MARGIN - pnlPrimaryCare.Width; + HorzScrollBar.Range := ClientWidth + WidthNeeded; + Width := Width + WidthNeeded; + end + else } // commented out - BA + HorzScrollBar.Range := 0; +end; + +{ Temporary Calls -------------------------------------------------------------------------- } + +procedure TfrmFrame.ToggleMenuItemChecked(Sender: TObject); +begin + with (Sender as TMenuItem) do + begin + if not Checked then + Checked := true + else + Checked := false; + end; +end; + +procedure TfrmFrame.mnuFontSizeClick(Sender: TObject); +begin + if (frmRemDlg <> nil) then + ShowMessage('Please close the reminder dialog before changing font sizes.') + else + if (dlgProbs <> nil) then + ShowMessage('Font size cannot be changed while adding or editing a problem.') + else + begin + with (Sender as TMenuItem) do + begin + ToggleMenuItemChecked(Sender); + fMeds.oldFont := MainFontSize; //CQ9182 + ChangeFont(Tag); + end; + end; +end; + +procedure TfrmFrame.mnuEditClick(Sender: TObject); +var + IsReadOnly: Boolean; +begin + FEditCtrl := nil; + if Screen.ActiveControl is TCustomEdit then FEditCtrl := TCustomEdit(Screen.ActiveControl); + if FEditCtrl <> nil then + begin + if FEditCtrl is TMemo then IsReadOnly := TMemo(FEditCtrl).ReadOnly + else if FEditCtrl is TEdit then IsReadOnly := TEdit(FEditCtrl).ReadOnly + else if FEditCtrl is TRichEdit then IsReadOnly := TRichEdit(FEditCtrl).ReadOnly + else IsReadOnly := True; + mnuEditUndo.Enabled := FEditCtrl.Perform(EM_CANUNDO, 0, 0) <> 0; + mnuEditCut.Enabled := FEditCtrl.SelLength > 0; + mnuEditCopy.Enabled := mnuEditCut.Enabled; + mnuEditPaste.Enabled := (IsReadOnly = False) and Clipboard.HasFormat(CF_TEXT); + end else + begin + mnuEditUndo.Enabled := False; + mnuEditCut.Enabled := False; + mnuEditCopy.Enabled := False; + mnuEditPaste.Enabled := False; + end; +end; + +procedure TfrmFrame.mnuEditUndoClick(Sender: TObject); +begin + FEditCtrl.Perform(EM_UNDO, 0, 0); +end; + +procedure TfrmFrame.mnuEditCutClick(Sender: TObject); +begin + FEditCtrl.CutToClipboard; +end; + +procedure TfrmFrame.mnuEditCopyClick(Sender: TObject); +begin + FEditCtrl.CopyToClipboard; +end; + +procedure TfrmFrame.mnuEditPasteClick(Sender: TObject); +begin + FEditCtrl.SelText := Clipboard.AsText; + //FEditCtrl.PasteFromClipboard; // use AsText to prevent formatting from being pasted +end; + +procedure TfrmFrame.mnuFilePrintClick(Sender: TObject); +begin + case mnuFilePrint.Tag of + CT_NOTES: frmNotes.RequestPrint; + CT_CONSULTS: frmConsults.RequestPrint; + CT_DCSUMM: frmDCSumm.RequestPrint; + CT_REPORTS: frmReports.RequestPrint; + CT_LABS: frmLabs.RequestPrint; + CT_ORDERS: frmOrders.RequestPrint; + CT_PROBLEMS: frmProblems.RequestPrint; + CT_SURGERY: if Assigned(frmSurgery) then frmSurgery.RequestPrint; + end; +end; + +function TfrmFrame.FormHelp(Command: Word; Data: Integer; + var CallHelp: Boolean): Boolean; +var + ActiveForm: TForm; +begin + inherited; + if Screen.ActiveForm <> nil then + begin + if Screen.ActiveForm.ActiveControl <> nil then + begin + if Screen.ActiveForm.ActiveControl is TForm then + ActiveForm := TForm(Screen.ActiveForm.ActiveControl) + else if Screen.ActiveForm.ActiveControl.Owner is TForm then + ActiveForm := TForm(Screen.ActiveForm.ActiveControl.Owner) + else + ActiveForm := Screen.ActiveForm; + end + else + ActiveForm := Screen.ActiveForm; + HelpFile := ActiveForm.HelpFile; + end ; + Result := True; +end; + +procedure TfrmFrame.WMSysCommand(var Message: TMessage); +begin + case TabToPageID(tabPage.TabIndex) of + CT_NOTES: + if Assigned(Screen.ActiveControl.Parent) and (Screen.ActiveControl.Parent.Name = 'cboCosigner') then + with Message do + begin + SendMessage(frmNotes.Handle, Msg, WParam, LParam); + Result := 0; + end + else + inherited; + CT_DCSUMM: + if Assigned(Screen.ActiveControl.Parent) and (Screen.ActiveControl.Parent.Name = 'cboAttending') then + with Message do + begin + SendMessage(frmDCSumm.Handle, Msg, WParam, lParam); + Result := 0; + end + else + inherited; + CT_CONSULTS: + if Assigned(Screen.ActiveControl.Parent) and (Screen.ActiveControl.Parent.Name = 'cboCosigner') then + with Message do + begin + SendMessage(frmConsults.Handle, Msg, WParam, lParam); + Result := 0; + end + else + inherited; + else + inherited; + end; + if Message.WParam = SC_MAXIMIZE then + begin + // form becomes maximized; + frmOrders.mnuOptimizeFieldsClick(self); + frmProblems.mnuOptimizeFieldsClick(self); + frmMeds.mnuOptimizeFieldsClick(self); + end + else if Message.WParam = SC_MINIMIZE then + begin + // form becomes maximized; + end + else if Message.WParam = SC_RESTORE then + begin + // form is restored (from maximized); + frmOrders.mnuOptimizeFieldsClick(self); + frmProblems.mnuOptimizeFieldsClick(self); + frmMeds.mnuOptimizeFieldsClick(self); + end; +end; + +procedure TfrmFrame.RemindersChanged(Sender: TObject); +var + ImgName: string; +begin + pnlReminders.tag := HAVE_REMINDERS; + pnlReminders.Hint := 'Click to display reminders'; + case GetReminderStatus of + rsUnknown: + begin + ImgName := 'BMP_REMINDERS_UNKNOWN'; + pnlReminders.Caption := 'Reminders'; + end; + rsDue: + begin + ImgName := 'BMP_REMINDERS_DUE'; + pnlReminders.Caption := 'Due Reminders'; + end; + rsApplicable: + begin + ImgName := 'BMP_REMINDERS_APPLICABLE'; + pnlReminders.Caption := 'Applicable Reminders'; + end; + rsNotApplicable: + begin + ImgName := 'BMP_REMINDERS_OTHER'; + pnlReminders.Caption := 'Other Reminders'; + end; + else + begin + ImgName := 'BMP_REMINDERS_NONE'; + pnlReminders.Hint := 'There are currently no reminders available'; + pnlReminders.Caption := pnlReminders.Hint; + pnlReminders.tag := NO_REMINDERS; + end; + end; + if(RemindersEvaluatingInBackground) then + begin + if(anmtRemSearch.ResName = '') then + begin + TORExposedAnimate(anmtRemSearch).OnMouseDown := pnlRemindersMouseDown; + TORExposedAnimate(anmtRemSearch).OnMouseUp := pnlRemindersMouseUp; + anmtRemSearch.ResHandle := 0; + anmtRemSearch.ResName := 'REMSEARCHAVI'; + end; + imgReminder.Visible := FALSE; + anmtRemSearch.Active := TRUE; + anmtRemSearch.Visible := TRUE; + if(pnlReminders.Hint <> '') then + pnlReminders.Hint := CRLF + pnlReminders.Hint + '.'; + pnlReminders.Hint := 'Evaluating Reminders... ' + pnlReminders.Hint; + pnlReminders.Caption := pnlReminders.Hint; + end + else + begin + anmtRemSearch.Visible := FALSE; + imgReminder.Visible := TRUE; + imgReminder.Picture.Bitmap.LoadFromResourceName(hInstance, ImgName); + anmtRemSearch.Active := FALSE; + end; + mnuViewReminders.Enabled := (pnlReminders.tag = HAVE_REMINDERS); +end; + +procedure TfrmFrame.pnlRemindersMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if(not InitialRemindersLoaded) then + StartupReminders; + if(pnlReminders.tag = HAVE_REMINDERS) then + pnlReminders.BevelOuter := bvLowered; +end; + +procedure TfrmFrame.pnlRemindersMouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + pnlReminders.BevelOuter := bvRaised; + if(pnlReminders.tag = HAVE_REMINDERS) then + ViewInfo(mnuViewReminders); +end; + +//--------------------- CIRN-related procedures -------------------------------- + +procedure TfrmFrame.SetUpCIRN; +var + i: integer; + aAutoQuery: string; + ASite: TRemoteSite; +begin + with RemoteSites do + if UseVistaWeb then + begin + ChangePatient(Patient.DFN); + lblCIRN.Caption := 'Remote'; //VistaWeb On + lblCIRNData.Caption := 'Data*'; + pnlCIRN.Caption := 'Remote Data'; + lblCIRN.Width := 43; + lblCIRNData.Width := 43; + lblCIRNData.Alignment := taCenter; + lblCIRN.Alignment := taCenter; + lblCIRN.Enabled := True; + lblCIRNData.Enabled := True; + lblCIRNAvail.Enabled := True; + pnlCIRN.TabStop := True; + if RemoteDataExists and (RemoteSites.Count > 0) then + begin + lblCIRN.Enabled := True; + lblCIRNData.Enabled := True; + lblCIRNAvail.Enabled := True; + pnlCIRN.TabStop := True; + if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then + begin + lblCIRN.Font.Color := clBlue; + lblCIRNData.Font.Color := clBlue; + lblCIRNAvail.Font.Color := clBlue; + lstCIRNLocations.Font.Color := clBlue; + lblCIRN.Caption := 'Remote'; + lblCIRNData.Caption := 'Data*'; + lblCIRNAvail.Caption := 'Available'; + pnlCIRN.Caption := 'Remote Data Available'; + end + else + begin + lblCIRN.Font.Color := clWindowText; + lblCIRNData.Font.Color := clWindowText; + lblCIRNAvail.Font.Color := clWindowText; + lstCIRNLocations.Font.Color := clWindowText; + end; + end + else + begin + lblCIRN.Font.Color := clWindowText; + lblCIRNData.Font.Color := clWindowText; + lblCIRNAvail.Font.Color := clWindowText; + lblCIRN.Enabled := False; + lblCIRNData.Enabled := False; + lblCIRNAvail.Enabled := False; + pnlCIRN.TabStop := False; + pnlCIRN.Hint := NoDataReason; + end; + pnlCIRN.Hint := 'Click to open VistaWeb'; + end + else + begin + ChangePatient(Patient.DFN); + lblCIRN.Caption := ' Remote'; + lblCIRNData.Caption := 'Data'; + pnlCIRN.Caption := 'Remote Data'; + lblCIRNAvail.Caption := ''; + lblCIRN.Width := 43; + lblCIRNData.Width := 43; + lblCIRNData.Alignment := taCenter; + lblCIRN.Alignment := taCenter; + if RemoteDataExists and (RemoteSites.Count > 0) then + begin + lblCIRN.Enabled := True; + lblCIRNData.Enabled := True; + lblCIRNAvail.Enabled := True; + pnlCIRN.TabStop := True; + if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then + begin + lblCIRN.Font.Color := clBlue; + lblCIRNData.Font.Color := clBlue; + lblCIRNAvail.Font.Color := clBlue; + lstCIRNLocations.Font.Color := clBlue; + lblCIRN.Caption := 'Remote'; + lblCIRNData.Caption := 'Data'; + lblCIRNAvail.Caption := 'Available'; + pnlCIRN.Caption := 'Remote Data Available'; + end + else + begin + lblCIRN.Font.Color := clWindowText; + lblCIRNData.Font.Color := clWindowText; + lblCIRNAvail.Font.Color := clWindowText; + lstCIRNLocations.Font.Color := clWindowText; + lblCIRNAvail.Color := clWindowText; + end; + pnlCIRN.Hint := 'Click to display other facilities having data for this patient.'; + lstCIRNLocations.Items.Add('-1' + U + 'Use VistaWeb from now on'); + if RemoteSites.Count > 0 then + lstCIRNLocations.Items.Add('0' + U + 'All Available Sites'); + for i := 0 to RemoteSites.Count - 1 do + begin + ASite := TRemoteSite(SiteList[i]); + lstCIRNLocations.Items.Add(ASite.SiteID + U + ASite.SiteName + U + + FormatFMDateTime('mmm dd yyyy hh:nn', ASite.LastDate)); + end; + end + else + begin + lblCIRN.Font.Color := clWindowText; + lblCIRNData.Font.Color := clWindowText; + lblCIRNAvail.Font.Color := clWindowText; + lblCIRN.Enabled := False; + lblCIRNData.Enabled := False; + lblCIRNAvail.Enabled := False; + pnlCIRN.TabStop := False; + pnlCIRN.Hint := NoDataReason; + end; + aAutoQuery := AutoRDV; //Check to see if Remote Queries should be used for all available sites + if (aAutoQuery = '1') and (lstCIRNLocations.Count > 0) then + begin + lstCIRNLocations.ItemIndex := 1; + lstCIRNLocations.Checked[1] := true; + lstCIRNLocationsClick(self); + end; + end; +end; + +procedure TfrmFrame.pnlCIRNClick(Sender: TObject); +//var +// aAddress: string; +begin + {if UseVistaWeb then + begin + pnlCIRN.BevelOuter := bvRaised; + pnlCIRN.Hint := 'Click to open VistaWeb'; + lblCIRN.Width := 43; + lblCIRNData.Width := 43; + lblCIRNData.Alignment := taCenter; + lblCIRN.Alignment := taCenter; + lstCIRNLocations.Visible := false; + lstCIRNLocations.SendToBack; + aAddress := GetVistaWebAddress(Patient.DFN); + ShellExecute(Handle, 'open', PChar(aAddress), PChar(''), '', SW_NORMAL); + Exit; + end; + if not RemoteSites.RemoteDataExists then Exit; + if (not lstCIRNLocations.Visible) then + begin + pnlCIRN.BevelOuter := bvLowered; + lstCIRNLocations.Visible := True; + lstCIRNLocations.BringToFront; + lstCIRNLocations.SetFocus; + pnlCIRN.Hint := 'Click to close list.'; + end + else + begin + pnlCIRN.BevelOuter := bvRaised; + lstCIRNLocations.Visible := False; + lstCIRNLocations.SendToBack; + pnlCIRN.Hint := 'Click to display other facilities having data for this patient.'; + end } + ViewInfo(mnuViewRemoteData); +end; + +procedure TfrmFrame.lstCIRNLocationsClick(Sender: TObject); +const + DGSR_FAIL = -1; + DGSR_NONE = 0; + DGSR_SHOW = 1; + DGSR_ASK = 2; + DGSR_DENY = 3; +var + iIndex,j,iAll,iCur: integer; + aMsg,s: string; + AccessStatus: integer; +begin + iAll := 1; + AccessStatus := 0; + iIndex := lstCIRNLocations.ItemIndex; + if iIndex = 0 then + if (piece(lstCIRNLocations.Items[0],'^',1) = '-1') and (lstCIRNLocations.Checked[iIndex] = true) then + begin + if MessageDlg('Are you sure you want to make VistaWeb your default for viewing Remote Data?', + mtConfirmation, [mbYes, mbNo], 0) = mrYes then + begin + ChangeVistaWebParam('1'); + lblCIRN.Caption := 'Remote'; //VistaWeb On + lblCIRNData.Caption := 'Data*'; + pnlCIRN.Caption := 'Remote Data'; + lblCIRNAvail.Caption := ''; + lblCIRN.Width := 43; + lblCIRNData.Width := 43; + lblCIRNData.Alignment := taCenter; + lblCIRN.Alignment := taCenter; + with RemoteSites do if RemoteDataExists and (RemoteSites.Count > 0) then + begin + lblCIRN.Enabled := True; + lblCIRNData.Enabled := True; + pnlCIRN.TabStop := True; + if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then + begin + lblCIRN.Font.Color := clBlue; + lblCIRNData.Font.Color := clBlue; + lstCIRNLocations.Font.Color := clBlue; + lblCIRN.Caption := 'Remote'; + lblCIRNData.Caption := 'Data*'; + lblCIRNAvail.Caption := 'Available'; + pnlCIRN.Caption := 'Remote Data Available'; + end + else + begin + lblCIRN.Font.Color := clWindowText; + lblCIRNData.Font.Color := clWindowText; + lstCIRNLocations.Font.Color := clWindowText; + lblCIRNAvail.Font.Color := clWindowText; + end; + end; + pnlCIRNClick(self); + Exit; + end + else + lstCIRNLocations.Checked[iIndex] := false; + end + else + begin + ChangeVistaWebParam('0'); + lblCIRN.Caption := 'Remote'; + lblCIRNData.Caption := 'Data'; + pnlCIRN.Caption := 'Remote Data'; + lblCIRN.Width := 43; + lblCIRNData.Width := 43; + lblCIRNData.Alignment := taCenter; + lblCIRN.Alignment := taCenter; + pnlCIRNClick(self); + Exit; + end; + if not CheckHL7TCPLink then + begin + InfoBox('Local HL7 TCP Link is down.' + CRLF + 'Unable to retrieve remote data.', TC_DGSR_ERR, MB_OK); + lstCIRNLocations.Checked[iIndex] := false; + Exit; + end; + if lstCIRNLocations.Items.Count > 1 then + if piece(lstCIRNLocations.Items[1],'^',1) = '0' then + iAll := 2; + with frmReports do + if piece(uRemoteType,'^',2) = 'V' then + begin + lvReports.Items.BeginUpdate; + lvReports.Items.Clear; + lvReports.Columns.Clear; + lvReports.Items.EndUpdate; + end; + uReportInstruction := ''; + frmReports.TabControl1.Tabs.Clear; + frmLabs.TabControl1.Tabs.Clear; + frmReports.TabControl1.Tabs.AddObject('Local',nil); + frmLabs.TabControl1.Tabs.AddObject('Local',nil); + StatusText('Checking Remote Sites...'); + if piece(lstCIRNLocations.Items[iIndex],'^',1) = '0' then // All sites have been clicked + if lstCIRNLocations.Checked[iIndex] = false then // All selection is being turned off + begin + with RemoteSites.SiteList do + for j := 0 to Count - 1 do + if lstCIRNLocations.Checked[j+2] = true then + begin + lstCIRNLocations.Checked[j+2] := false; + TRemoteSite(RemoteSites.SiteList[j]).Selected := false; + TRemoteSite(RemoteSites.SiteList[j]).ReportClear; + TRemoteSite(RemoteSites.SiteList[j]).LabClear; + end; + end + else + begin + with RemoteSites.SiteList do + for j := 0 to Count - 1 do + begin + Screen.Cursor := crHourGlass; + {CheckRemotePatient(aMsg, Patient.DFN + ';' + Patient.ICN,TRemoteSite(Items[j]).SiteID, + AccessStatus);} + Screen.Cursor := crDefault; + aMsg := aMsg + ' at site: ' + TRemoteSite(Items[j]).SiteName; + s := lstCIRNLocations.Items[j+2]; + lstCIRNLocations.Items[j+2] := pieces(s, '^', 1, 3); + case AccessStatus of + DGSR_FAIL: begin + if piece(aMsg,':',1) = 'RPC name not found at site' then //Allow for backward compatibility + begin + lstCIRNLocations.Checked[j+2] := true; + TRemoteSite(RemoteSites.SiteList[j]).ReportClear; + TRemoteSite(RemoteSites.SiteList[j]).LabClear; + TRemoteSite(Items[j]).Selected := true; + end + else + begin + InfoBox(aMsg, TC_DGSR_ERR, MB_OK); + lstCIRNLocations.Checked[j+2] := false; + lstCIRNLocations.Items[j+2] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_ERR; + TRemoteSite(Items[j]).Selected := false; + Continue; + end; + end; + DGSR_NONE: begin + lstCIRNLocations.Checked[j+2] := true; + TRemoteSite(RemoteSites.SiteList[j]).ReportClear; + TRemoteSite(RemoteSites.SiteList[j]).LabClear; + TRemoteSite(Items[j]).Selected := true; + end; + DGSR_SHOW: begin + InfoBox(AMsg, TC_DGSR_SHOW, MB_OK); + lstCIRNLocations.Checked[j+2] := true; + TRemoteSite(RemoteSites.SiteList[j]).ReportClear; + TRemoteSite(RemoteSites.SiteList[j]).LabClear; + TRemoteSite(Items[j]).Selected := true; + end; + DGSR_ASK: if InfoBox(AMsg + TX_DGSR_YESNO, TC_DGSR_SHOW, MB_YESNO or MB_ICONWARNING or + MB_DEFBUTTON2) = IDYES then + begin + lstCIRNLocations.Checked[j+2] := true; + TRemoteSite(RemoteSites.SiteList[j]).ReportClear; + TRemoteSite(RemoteSites.SiteList[j]).LabClear; + TRemoteSite(Items[j]).Selected := true; + end + else + begin + lstCIRNLocations.Checked[j+2] := false; + lstCIRNLocations.Items[j+2] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_SHOW; + TRemoteSite(Items[j]).Selected := false; + Continue; + end; + else begin + InfoBox(AMsg, TC_DGSR_DENY, MB_OK); + lstCIRNLocations.Checked[j+2] := false; + lstCIRNLocations.Items[j+2] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_DENY; + TRemoteSite(Items[j]).Selected := false; + Continue; + end; + end; + end; + end + else + begin + if iIndex > 0 then + begin + iCur := iIndex - iAll; + TRemoteSite(RemoteSites.SiteList[iCur]).Selected := + lstCIRNLocations.Checked[iIndex]; + if lstCIRNLocations.Checked[iIndex] = true then + with RemoteSites.SiteList do + begin + Screen.Cursor := crHourGlass; + {CheckRemotePatient(aMsg, Patient.DFN + ';' + Patient.ICN,TRemoteSite(Items[iCur]).SiteID, + AccessStatus);} + Screen.Cursor := crDefault; + aMsg := aMsg + ' at site: ' + TRemoteSite(Items[iCur]).SiteName; + s := lstCIRNLocations.Items[iIndex]; + lstCIRNLocations.Items[iIndex] := pieces(s, '^', 1, 3); + case AccessStatus of + DGSR_FAIL: begin + if piece(aMsg,':',1) = 'RPC name not found at site' then //Allow for backward compatibility + begin + lstCIRNLocations.Checked[iIndex] := true; + TRemoteSite(RemoteSites.SiteList[iCur]).ReportClear; + TRemoteSite(RemoteSites.SiteList[iCur]).LabClear; + TRemoteSite(Items[iCur]).Selected := true; + end + else + begin + InfoBox(aMsg, TC_DGSR_ERR, MB_OK); + lstCIRNLocations.Checked[iIndex] := false; + lstCIRNLocations.Items[iIndex] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_ERR; + TRemoteSite(Items[iCur]).Selected := false; + end; + end; + DGSR_NONE: begin + lstCIRNLocations.Checked[iIndex] := true; + TRemoteSite(RemoteSites.SiteList[iCur]).ReportClear; + TRemoteSite(RemoteSites.SiteList[iCur]).LabClear; + TRemoteSite(Items[iCur]).Selected := true; + end; + DGSR_SHOW: begin + InfoBox(AMsg, TC_DGSR_SHOW, MB_OK); + lstCIRNLocations.Checked[iIndex] := true; + TRemoteSite(RemoteSites.SiteList[iCur]).ReportClear; + TRemoteSite(RemoteSites.SiteList[iCur]).LabClear; + TRemoteSite(Items[iCur]).Selected := true; + end; + DGSR_ASK: if InfoBox(AMsg + TX_DGSR_YESNO, TC_DGSR_SHOW, MB_YESNO or MB_ICONWARNING or + MB_DEFBUTTON2) = IDYES then + begin + lstCIRNLocations.Checked[iIndex] := true; + TRemoteSite(RemoteSites.SiteList[iCur]).ReportClear; + TRemoteSite(RemoteSites.SiteList[iCur]).LabClear; + TRemoteSite(Items[iCur]).Selected := true; + end + else + begin + lstCIRNLocations.Checked[iIndex] := false; + lstCIRNLocations.Items[iIndex] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_SHOW; + end; + else begin + InfoBox(AMsg, TC_DGSR_DENY, MB_OK); + lstCIRNLocations.Checked[iIndex] := false; + lstCIRNLocations.Items[iIndex] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_DENY; + TRemoteSite(Items[iCur]).Selected := false; + end; + end; + with frmReports do + if piece(uRemoteType,'^',1) = '1' then + if not(piece(uRemoteType,'^',2) = 'V') then + begin + TabControl1.Visible := true; + pnlRightTop.Height := lblTitle.Height + TabControl1.Height; + end; + with frmLabs do + if lstReports.ItemIndex > -1 then + if piece(lstReports.Items[lstReports.ItemIndex],'^',3) = '1' then + if not(piece(lstReports.Items[lstReports.ItemIndex],'^',5) = 'V') then + TabControl1.Visible := true; + end; + end; + end; + with RemoteSites.SiteList do + for j := 0 to Count - 1 do + if TRemoteSite(Items[j]).Selected then + begin + frmReports.TabControl1.Tabs.AddObject(TRemoteSite(Items[j]).SiteName, + TRemoteSite(Items[j])); + frmLabs.TabControl1.Tabs.AddObject(TRemoteSite(Items[j]).SiteName, + TRemoteSite(Items[j])); + end; + //frmLabs.TabControl1.OnChange(nil); + //frmReports.TabControl1.OnChange(nil); + if frmReports.tvReports.SelectionCount > 0 then frmReports.tvReportsClick(self); + if frmLabs.lstReports.ItemIndex > -1 then frmLabs.ExtlstReportsClick(self, true); + StatusText(''); +end; + +procedure TfrmFrame.popCIRNCloseClick(Sender: TObject); +begin + lstCIRNLocations.Visible := False; + lstCirnLocations.SendToBack; + pnlCIRN.BevelOuter := bvRaised; +end; + +procedure TfrmFrame.popCIRNSelectAllClick(Sender: TObject); + +begin + lstCIRNLocations.ItemIndex := 0; + lstCIRNLocations.Checked[0] := true; + lstCIRNLocations.OnClick(Self); +end; + +procedure TfrmFrame.popCIRNSelectNoneClick(Sender: TObject); + +begin + lstCIRNLocations.ItemIndex := 0; + lstCIRNLocations.Checked[0] := false; + lstCIRNLocations.OnClick(Self); +end; + +procedure TfrmFrame.mnuFilePrintSetupClick(Sender: TObject); +var + CurrPrt: string; +begin + CurrPrt := SelectDevice(Self, Encounter.Location, True,''); + User.CurrentPrinter := Piece(CurrPrt, U, 1); +end; + +procedure TfrmFrame.lstCIRNLocationsChange(Sender: TObject); +begin + if lstCIRNLocations.ItemIndex > 0 then + if (lstCIRNLocations.Selected[lstCIRNLocations.ItemIndex] = true) and (uUpdateStat = false) then + if not (piece(lstCIRNLocations.Items[1],'^',1) = '0') then + lstCIRNLocations.OnClick(nil); +end; + +procedure TfrmFrame.LabInfo1Click(Sender: TObject); +begin + ExecuteLabInfo; +end; + +procedure TfrmFrame.mnuFileNotifRemoveClick(Sender: TObject); +const + TC_REMOVE_ALERT = 'Remove Current Alert'; + TX_REMOVE_ALERT1 = 'This action will delete the alert you are currently processing; the alert will ' + CRLF + + 'disappear automatically when all orders have been acted on, but this action may' + CRLF + + 'be used to remove the alert if some orders are to be left unchanged.' + CRLF + CRLF + + 'Your '; + TX_REMOVE_ALERT2 = ' alert for '; + TX_REMOVE_ALERT3 = ' will be deleted!' + CRLF + CRLF + 'Are you sure?'; +var + AlertMsg, AlertType: string; + + procedure StopProcessingNotifs; + begin + Notifications.Clear; + FNextButtonActive := False; + stsArea.Panels[2].Bevel := pbLowered; + mnuFileNext.Enabled := False; + mnuFileNotifRemove.Enabled := False; + end; + +begin + if not Notifications.Active then Exit; + case Notifications.Followup of + NF_MEDICATIONS_EXPIRING_INPT : AlertType := 'Expiring Medications'; + NF_MEDICATIONS_EXPIRING_OUTPT : AlertType := 'Expiring Medications'; + NF_ORDER_REQUIRES_ELEC_SIGNATURE: AlertType := 'Unsigned Orders'; + NF_FLAGGED_ORDERS : AlertType := 'Flagged Orders (for clarification)'; + NF_UNVERIFIED_MEDICATION_ORDER : AlertType := 'Unverified Medication Order'; + NF_UNVERIFIED_ORDER : AlertType := 'Unverified Order'; + NF_FLAGGED_OI_EXP_INPT : AlertType := 'Flagged Orderable Item (INPT)'; + NF_FLAGGED_OI_EXP_OUTPT : AlertType := 'Flagged Orderable Item (OUTPT)'; + else + Exit; + end; + AlertMsg := TX_REMOVE_ALERT1 + AlertType + TX_REMOVE_ALERT2 + Patient.Name + TX_REMOVE_ALERT3; + if InfoBox(AlertMsg, TC_REMOVE_ALERT, MB_YESNO) = ID_YES then + begin + Notifications.DeleteForCurrentUser; + Notifications.Next; // avoid prompt if no more alerts selected to process {v14a RV} + if Notifications.Active then + begin + if (InfoBox(TX_NOTIF_STOP, TC_NOTIF_STOP, MB_YESNO) = ID_NO) then + begin + Notifications.Prior; + mnuFileNextClick(Self); + end + else + StopProcessingNotifs; + end + else + StopProcessingNotifs; + end; +end; + +procedure TfrmFrame.mnuToolsOptionsClick(Sender: TObject); +// personal preferences - changes may need to be applied to chart +var + i: integer; +begin + i := 0; + DialogOptions(i); +end; + +procedure TfrmFrame.LoadUserPreferences; +begin + LoadSizesForUser; +// LoadUserVitalPreferences; + GetUserTemplateDefaults(TRUE); +end; + +procedure TfrmFrame.SaveUserPreferences; +begin + SaveSizesForUser; // position & size settings +// SaveUserVitalPreferences; // save Vitals metric setting + SaveUserTemplateDefaults; +end; + +procedure TfrmFrame.mnuFileRefreshClick(Sender: TObject); +begin + FRefreshing := TRUE; + try + mnuFileOpenClick(Self); + finally + FRefreshing := FALSE; + end; +end; + +procedure TfrmFrame.AppActivated(Sender: TObject); +begin + if assigned(FOldActivate) then + FOldActivate(Sender); + SetActiveWindow(Application.Handle); +end; + +// close Treatment Factor hint window if alt-tab pressed. +procedure TfrmFrame.AppDeActivated(Sender: TObject); +begin + if FRVTFhintWindowActive then + begin + FRVTFHintWindow.ReleaseHandle; + FRVTFHintWindowActive := False; + end + else + if FOSTFHintWndActive then + begin + FOSTFhintWindow.ReleaseHandle; + FOSTFHintWndActive := False ; + end; + if FHintWinActive then // graphing - hints on values + begin + FHintWin.ReleaseHandle; + FHintWinActive := false; + end; +end; + +(*procedure TfrmFrame.CreateTab(var AnInstance: TObject; AClass: TClass; ATabID: integer; ALabel: string); +begin + AnInstance := TPage.Create(Self); + TPage(AnInstance).Parent := pnlPage; + TPage(AnInstance).Show; + uTabList.Add(IntToStr(ATabID)); + tabPage.Tabs.Add(ALabel); +end;*) + +procedure TfrmFrame.CreateTab(ATabID: integer; ALabel: string); +begin + // old comment - try making owner self (instead of application) to see if solves TMenuItem.Insert bug + case ATabID of + CT_PROBLEMS : begin + frmProblems := TfrmProblems.Create(Self); + frmProblems.Parent := pnlPage; + end; + CT_MEDS : begin + frmMeds := TfrmMeds.Create(Self); + frmMeds.Parent := pnlPage; + frmMeds.InitfMedsSize; + end; + CT_ORDERS : begin + frmOrders := TfrmOrders.Create(Self); + frmOrders.Parent := pnlPage; + end; + CT_HP : begin + // not yet + end; + CT_NOTES : begin + frmNotes := TfrmNotes.Create(Self); + frmNotes.Parent := pnlPage; + end; + CT_CONSULTS : begin + frmConsults := TfrmConsults.Create(Self); + frmConsults.Parent := pnlPage; + end; + CT_DCSUMM : begin + frmDCSumm := TfrmDCSumm.Create(Self); + frmDCSumm.Parent := pnlPage; + end; + CT_LABS : begin + frmLabs := TfrmLabs.Create(Self); + frmLabs.Parent := pnlPage; + end; + CT_REPORTS : begin + frmReports := TfrmReports.Create(Self); + frmReports.Parent := pnlPage; + end; + CT_SURGERY : begin + frmSurgery := TfrmSurgery.Create(Self); + frmSurgery.Parent := pnlPage; + end; + CT_COVER : begin + frmCover := TfrmCover.Create(Self); + frmCover.Parent := pnlPage; + end; + else + Exit; + end; + if ATabID = CT_COVER then + begin + uTabList.Insert(0, IntToStr(ATabID)); + tabPage.Tabs.Insert(0, ALabel); + tabPage.TabIndex := 0; + end + else + begin + uTabList.Add(IntToStr(ATabID)); + tabPage.Tabs.Add(ALabel); + end; +end; + +procedure TfrmFrame.ShowHideChartTabMenus(AMenuItem: TMenuItem); +var + i: integer; +begin + for i := 0 to AMenuItem.Count - 1 do + AMenuItem.Items[i].Visible := TabExists(AMenuItem.Items[i].Tag); +end; + +function TfrmFrame.TabExists(ATabID: integer): boolean; +begin + Result := (uTabList.IndexOf(IntToStr(ATabID)) > -1) +end; + +procedure TfrmFrame.ReportsOnlyDisplay; +begin + +// Configure "Edit" menu: +menuHideAllBut(mnuEdit, mnuEditPref); // Hide everything under Edit menu except Preferences. +menuHideAllBut(mnuEditPref, Prefs1); // Hide everything under Preferences menu except Fonts. + +// Remaining pull-down menus: +mnuView.visible := false; +mnuFileRefresh.visible := false; +mnuFileEncounter.visible := false; +mnuFileReview.visible := false; +mnuFileNext.visible := false; +mnuFileNotifRemove.visible := false; +mnuHelpBroker.visible := false; +mnuHelpLists.visible := false; +mnuHelpSymbols.visible := false; + +// Top panel components: +//pnlVisit.visible := false; +pnlVisit.hint := 'Provider/Location'; +pnlVisit.onMouseDown := nil; +pnlVisit.onMouseUp := nil; +//pnlPrimaryCare.visible := false; +//pnlPostings.visible := false; +//lblPtCWAD.visible := false; +//lblPtPostings.visible := false; +//pnlReminders.visible := false; +//anmtRemSearch.visible := false; + +// Forms for other tabs: +frmCover.visible := false; +frmProblems.visible := false; +frmMeds.visible := false; +frmOrders.visible := false; +frmNotes.visible := false; +frmConsults.visible := false; +frmDCSumm.visible := false; +if Assigned(frmSurgery) then + frmSurgery.visible := false; +frmLabs.visible := false; + +// Other tabs (so to speak): +tabPage.tabs.clear; +tabPage.tabs.add('Reports'); + +end; + +procedure TfrmFrame.UpdatePtInfoOnRefresh; +var + tmpDFN: string; +begin + tmpDFN := Patient.DFN; + Patient.Clear; + Patient.DFN := tmpDFN; + uCore.TempEncounterLoc := 0; //hds7591 Clinic/Ward movement. + uCore.TempEncounterLocName := ''; //hds7591 Clinic/Ward movement. + + if (FPrevInPatient and Patient.Inpatient) then //transfering inside hospital + Encounter.Location := Patient.Location + else if (FPrevInPatient and (not Patient.Inpatient)) then //patient was discharged + begin + Encounter.Inpatient := False; + Encounter.Location := 0; + FPrevInPatient := False; + end + else if ((not FPrevInPatient) and Patient.Inpatient) then //patient was admitted + begin + Encounter.Inpatient := True; + uCore.TempEncounterLoc := Encounter.Location; //hds7591 Clinic/Ward movement. + uCore.TempEncounterLocName := Encounter.LocationName; //hds7591 Clinic/Ward movement. + Encounter.Location := Patient.Location; + Encounter.DateTime := Patient.AdmitTime; + Encounter.VisitCategory := 'H'; + FPrevInPatient := True; + end; + //if User.IsProvider then Encounter.Provider := ; + DisplayEncounterText; +end; + +procedure TfrmFrame.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); +var + NewTabIndex: integer; +begin + //CQ2844: Toggle Remote Data button using Alt+R + case Key of + 82,114: if (ssAlt in Shift) then + frmFrame.pnlCIRNClick(Sender); + end; + + if (Key = VK_TAB) then begin + if (ssCtrl in Shift) then begin + if not (ActiveControl is TCustomMemo) or not TMemo(ActiveControl).WantTabs then begin + NewTabIndex := tabPage.TabIndex; + if ssShift in Shift then + dec(NewTabIndex) + else + inc(NewTabIndex); + if NewTabIndex >= tabPage.Tabs.Count then + dec(NewTabIndex,tabPage.Tabs.Count) + else if NewTabIndex < 0 then + inc(NewTabIndex,tabPage.Tabs.Count); + tabPage.TabIndex := NewTabIndex; + tabPageChange(tabPage); + Key := 0; + end; + end; + end; +end; + +procedure TfrmFrame.FormActivate(Sender: TObject); +begin + if Assigned(FLastPage) then + FLastPage.FocusFirstControl; +end; + +procedure TfrmFrame.pnlPrimaryCareEnter(Sender: TObject); +begin + with Sender as TPanel do + if (ControlCount > 0) and (Controls[0] is TSpeedButton) and (TSpeedButton(Controls[0]).Down) + then + BevelInner := bvLowered + else + BevelInner := bvRaised; +end; + +procedure TfrmFrame.pnlPrimaryCareExit(Sender: TObject); +var + ShiftIsDown,TabIsDown : boolean; +begin + with Sender as TPanel do begin + BevelInner := bvNone; + //Make the lstCIRNLocations act as if between pnlCIRN & pnlReminders + //in the Tab Order + if (lstCIRNLocations.CanFocus) then + begin + ShiftIsDown := Boolean(Hi(GetKeyState(VK_SHIFT))); + TabIsDown := Boolean(Hi(GetKeyState(VK_TAB))); + if TabIsDown then + if (ShiftIsDown) and (Name = 'pnlReminders') then + lstCIRNLocations.SetFocus + else if Not (ShiftIsDown) and (Name = 'pnlCIRN') then + lstCIRNLocations.SetFocus; + end; + end; +end; + +procedure TfrmFrame.pnlPatientClick(Sender: TObject); +begin + ViewInfo(mnuViewDemo); +end; + +procedure TfrmFrame.pnlVisitClick(Sender: TObject); +begin + //if (not User.IsReportsOnly) then // Reports Only tab. + // mnuFileEncounterClick(Self); + ViewInfo(mnuViewVisits); +end; + +procedure TfrmFrame.pnlPrimaryCareClick(Sender: TObject); +begin + //ReportBox(DetailPrimaryCare(Patient.DFN), 'Primary Care', True); + ViewInfo(mnuViewPrimaryCare); +end; + +procedure TfrmFrame.pnlRemindersClick(Sender: TObject); +begin + if(pnlReminders.tag = HAVE_REMINDERS) then + ViewInfo(mnuViewReminders); + +end; + +procedure TfrmFrame.pnlPostingsClick(Sender: TObject); +begin + ViewInfo(mnuViewPostings); +end; + +//=========================== CCOW main changes ======================== + +procedure TfrmFrame.HandleCCOWError(AMessage: string); +begin + {$ifdef DEBUG} + ShowMessage(AMessage); + {$endif} + InfoBox(TX_CCOW_ERROR, TC_CCOW_ERROR, MB_ICONERROR or MB_OK); + FCCOWInstalled := False; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, 'BMP_CCOW_BROKEN'); + pnlCCOW.Hint := TX_CCOW_BROKEN; + mnuFileResumeContext.Visible := True; + mnuFileResumeContext.Enabled := False; + mnuFileBreakContext.Visible := True; + mnuFileBreakContext.Enabled := False; + FCCOWError := True; +end; + +function TfrmFrame.AllowCCOWContextChange(var CCOWResponse: UserResponse; NewDFN: string): boolean; +var + PtData : IContextItemCollection; + PtDataItem2, PtDataItem3, PtDataItem4 : IContextItem; + response : UserResponse; + StationNumber: string; + IsProdAcct: boolean; +begin + Result := False; + response := 0; + try + // Start a context change transaction + if FCCOWInstalled then + begin + FCCOWError := False; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, 'BMP_CCOW_CHANGING'); + pnlCCOW.Hint := TX_CCOW_CHANGING; + try + ctxContextor.StartContextChange(); + except + on E: Exception do HandleCCOWError(E.Message); + end; + if FCCOWError then + begin + Result := False; + Exit; + end; + // Set the new proposed context data. + PtData := CoContextItemCollection.Create(); + StationNumber := User.StationNumber; + IsProdAcct := User.IsProductionAccount; + + {$IFDEF CCOWBROKER} + //IsProdAcct := RPCBrokerV.Login.IsProduction; //not yet + {$ENDIF} + + PtDataItem2 := CoContextItem.Create(); + PtDataItem2.Set_Name('Patient.co.PatientName'); // Patient.Name + PtDataItem2.Set_Value(Piece(Patient.Name, ',', 1) + U + Piece(Patient.Name, ',', 2) + '^^^^'); + PtData.Add(PtDataItem2); + + PtDataItem3 := CoContextItem.Create(); + if not IsProdAcct then + PtDataItem3.Set_Name('Patient.id.MRN.DFN_' + StationNumber + '_TEST') // Patient.DFN + else + PtDataItem3.Set_Name('Patient.id.MRN.DFN_' + StationNumber); // Patient.DFN + PtDataItem3.Set_Value(Patient.DFN); + PtData.Add(PtDataItem3); + + if Patient.ICN <> '' then + begin + PtDataItem4 := CoContextItem.Create(); + if not IsProdAcct then + PtDataItem4.Set_Name('Patient.id.MRN.NationalIDNumber_TEST') // Patient.ICN + else + PtDataItem4.Set_Name('Patient.id.MRN.NationalIDNumber'); // Patient.ICN + PtDataItem4.Set_Value(Patient.ICN); + PtData.Add(PtDataItem4); + end; + + // End the context change transaction. + FCCOWError := False; + try + response := ctxContextor.EndContextChange(true, PtData); + except + on E: Exception do HandleCCOWError(E.Message); + end; + if FCCOWError then + begin + HideEverything; + Result := False; + Exit; + end; + end + else + //response := urBreak; + begin + Result := True; + Exit; + end; + + CCOWResponse := response; + if (response = UrCommit) then + begin + // New context is committed. + //ShowMessage('Response was Commit'); + mnuFileResumeContext.Enabled := False; + mnuFileBreakContext.Enabled := True; + FCCOWIconName := 'BMP_CCOW_LINKED'; + pnlCCOW.Hint := TX_CCOW_LINKED; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + Result := True; + end + else if (response = UrCancel) then + begin + // Proposed context change is canceled. Return to the current context. + PtData.RemoveAll; + mnuFileResumeContext.Enabled := False; + mnuFileBreakContext.Enabled := True; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + Result := False; + end + else if (response = UrBreak) then + begin + // The contextor has broken the link by suspending. This app should + // update the Clinical Link icon, enable the Resume menu item, and + // disable the Suspend menu item. + PtData.RemoveAll; + mnuFileResumeContext.Enabled := True; + mnuFileBreakContext.Enabled := False; + FCCOWIconName := 'BMP_CCOW_BROKEN'; + pnlCCOW.Hint := TX_CCOW_BROKEN; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + if Patient.Inpatient then + begin + Encounter.Inpatient := True; + Encounter.Location := Patient.Location; + Encounter.DateTime := Patient.AdmitTime; + Encounter.VisitCategory := 'H'; + end; + if User.IsProvider then Encounter.Provider := User.DUZ; + SetupPatient; + tabPage.TabIndex := PageIDToTab(User.InitialTab); + tabPageChange(tabPage); + Result := False; + end; + except + on exc : EOleException do + //ShowMessage('EOleException: ' + exc.Message + ' - ' + string(exc.ErrorCode) ); + ShowMessage('EOleException: ' + exc.Message); + end; +end; + +procedure TfrmFrame.ctxContextorCanceled(Sender: TObject); +begin + // Application should maintain its state as the current (existing) context. + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); +end; + +procedure TfrmFrame.ctxContextorPending(Sender: TObject; + const aContextItemCollection: IDispatch); +var + Reason, HyperLinkReason: string; + PtChanged: boolean; +{$IFDEF CCOWBROKER} + UserChanged: boolean; +{$ENDIF} +begin + // If the app would lose data, or have other problems changing context at + // this time, it should return a message using SetSurveyReponse. Note that the + // user may decide to commit the context change anyway. + // + // if (cannot-change-context-without-a-problem) then + // contextor.SetSurveyResponse('Conditional accept reason...'); + if FCCOWBusy then + begin + Sleep(10000); + end; + + FCCOWError := False; + try + CheckForDifferentPatient(aContextItemCollection, PtChanged); +{$IFDEF CCOWBROKER} + CheckForDifferentUser(aContextItemCollection, UserChanged); +{$ENDIF} + except + on E: Exception do HandleCCOWError(E.Message); + end; + if FCCOWError then + begin + HideEverything; + Exit; + end; + +{$IFDEF CCOWBROKER} + if PtChanged or UserChanged then +{$ELSE} + if PtChanged then +{$ENDIF} + begin + FCCOWContextChanging := True; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, 'BMP_CCOW_CHANGING'); + pnlCCOW.Hint := TX_CCOW_CHANGING; + AllowContextChangeAll(Reason); + end; + CheckHyperlinkResponse(aContextItemCollection, HyperlinkReason); + Reason := HyperlinkReason + Reason; + if Pos('COM_OBJECT_ACTIVE', Reason) > 0 then + Sleep(12000) + else if Length(Reason) > 0 then + ctxContextor.SetSurveyResponse(Reason); + FCCOWContextChanging := False; +end; + +procedure TfrmFrame.ctxContextorCommitted(Sender: TObject); +var + Reason: string; + PtChanged: boolean; + i: integer; +begin + // Application should now access the new context and update its state. + FCCOWError := False; + try + {$IFDEF CCOWBROKER} + with RPCBrokerV do if (WasUserDefined and IsUserCleared and (ctxContextor.CurrentContext.Present(CCOW_USER_NAME) = nil)) then // RV 05/11/04 + begin + Reason := 'COMMIT'; + if AllowContextChangeAll(Reason) then + begin + Close; + Exit; + end; + end; + {$ENDIF} + CheckForDifferentPatient(ctxContextor.CurrentContext, PtChanged); + except + on E: Exception do HandleCCOWError(E.Message); + end; + if FCCOWError then + begin + HideEverything; + Exit; + end; + if not PtChanged then exit; + FCCOWDrivedChange := True; + i := 0; + while Length(Screen.Forms[i].Name) > 0 do + begin + if fsModal in Screen.Forms[i].FormState then + begin + Screen.Forms[i].ModalResult := mrCancel; + i := i + 1; + end else // the fsModal forms always sequenced prior to the none-fsModal forms + Break; + end; + Reason := 'COMMIT'; + if AllowContextChangeAll(Reason) then UpdateCCOWContext; + FCCOWIconName := 'BMP_CCOW_LINKED'; + pnlCCOW.Hint := TX_CCOW_LINKED; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); +end; + +//function TfrmFrame.FindBestCCOWDFN(var APatientName: string): string; +function TfrmFrame.FindBestCCOWDFN: string; +var + data: IContextItemCollection; + anItem: IContextItem; + StationNumber, tempDFN: string; + IsProdAcct: Boolean; + + procedure FindNextBestDFN; + begin + StationNumber := User.StationNumber; + if IsProdAcct then + anItem := data.Present('Patient.id.MRN.DFN_' + StationNumber) + else + anItem := data.Present('Patient.id.MRN.DFN_' + StationNumber + '_TEST'); + if anItem <> nil then tempDFN := anItem.Get_Value(); + end; + +begin + if uCore.User = nil then + begin + Result := ''; + exit; + end; + IsProdAcct := User.IsProductionAccount; + {$IFDEF CCOWBROKER} + //IsProdAcct := RPCBrokerV.Login.IsProduction; //not yet + {$ENDIF} + // Get an item collection of the current context + FCCOWError := False; + try + data := ctxContextor.CurrentContext; + except + on E: Exception do HandleCCOWError(E.Message); + end; + if FCCOWError then + begin + HideEverything; + Exit; + end; + // Retrieve the ContextItem name and value as strings + if IsProdAcct then + anItem := data.Present('Patient.id.MRN.NationalIDNumber') + else + anItem := data.Present('Patient.id.MRN.NationalIDNumber_TEST'); + if anItem <> nil then + begin + tempDFN := GetDFNFromICN(anItem.Get_Value()); // "Public" RPC call + if tempDFN = '-1' then FindNextBestDFN; + end + else + FindNextBestDFN; + Result := tempDFN; +(* anItem := data.Present('Patient.co.PatientName'); + if anItem <> nil then APatientName := anItem.Get_Value();*) + data := nil; + anItem := nil; +end; + +procedure TfrmFrame.UpdateCCOWContext; +var + PtDFN(*, PtName*): string; +begin + if not FCCOWInstalled then exit; + //PtDFN := FindBestCCOWDFN(PtName); + PtDFN := FindBestCCOWDFN; + if StrToInt64Def(PtDFN, 0) > 0 then + begin + // Select new patient based on context value + if Patient.DFN = PtDFN then exit; + Patient.DFN := PtDFN; + //if (Patient.Name = '-1') or (PtName <> Piece(Patient.Name, ',', 1) + U + Piece(Patient.Name, ',', 2) + '^^^^') then + if (Patient.Name = '-1') then + begin + HideEverything; + exit; + end + else + ShowEverything; + Encounter.Clear; + if Patient.Inpatient then + begin + Encounter.Inpatient := True; + Encounter.Location := Patient.Location; + Encounter.DateTime := Patient.AdmitTime; + Encounter.VisitCategory := 'H'; + end; + if User.IsProvider then Encounter.Provider := User.DUZ; + if not FFirstLoad then SetupPatient; + frmCover.UpdateVAAButton; //VAA + DetermineNextTab; + tabPage.TabIndex := PageIDToTab(NextTab); + tabPageChange(tabPage); + end + else + HideEverything; +end; + +procedure TfrmFrame.mnuFileBreakContextClick(Sender: TObject); +begin + FCCOWError := False; + FCCOWIconName := 'BMP_CCOW_CHANGING'; + pnlCCOW.Hint := TX_CCOW_CHANGING; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + try + ctxContextor.Suspend; + except + on E: Exception do HandleCCOWError(E.Message); + end; + if FCCOWError then exit; + FCCOWIconName := 'BMP_CCOW_BROKEN'; + pnlCCOW.Hint := TX_CCOW_BROKEN; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + mnuFileResumeContext.Enabled := True; + mnuFileBreakContext.Enabled := False; +end; + +procedure TfrmFrame.mnuFileResumeContextGetClick(Sender: TObject); +var + Reason: string; +begin + Reason := ''; + if not AllowContextChangeAll(Reason) then exit; + FCCOWIconName := 'BMP_CCOW_CHANGING'; + pnlCCOW.Hint := TX_CCOW_CHANGING; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + FCCOWError := False; + try + ctxContextor.Resume; + except + on E: Exception do HandleCCOWError(E.Message); + end; + if FCCOWError then exit; + UpdateCCOWContext; + FCCOWIconName := 'BMP_CCOW_LINKED'; + pnlCCOW.Hint := TX_CCOW_LINKED; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + mnuFileResumeContext.Enabled := False; + mnuFileBreakContext.Visible := True; + mnuFileBreakContext.Enabled := True; +end; + +procedure TfrmFrame.mnuFileResumeContextSetClick(Sender: TObject); +var + CCOWResponse: UserResponse; + Reason: string; +begin + Reason := ''; + if not AllowContextChangeAll(Reason) then exit; + FCCOWIconName := 'BMP_CCOW_CHANGING'; + pnlCCOW.Hint := TX_CCOW_CHANGING; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + FCCOWError := False; + try + ctxContextor.Resume; + except + on E: Exception do HandleCCOWError(E.Message); + end; + if FCCOWError then exit; + if (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then + begin + mnuFileResumeContext.Enabled := False; + mnuFileBreakContext.Visible := True; + mnuFileBreakContext.Enabled := True; + FCCOWIconName := 'BMP_CCOW_LINKED'; + pnlCCOW.Hint := TX_CCOW_LINKED; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + end + else + begin + mnuFileResumeContext.Enabled := True; + mnuFileBreakContext.Enabled := False; + FCCOWIconName := 'BMP_CCOW_BROKEN'; + pnlCCOW.Hint := TX_CCOW_BROKEN; + imgCCOW.Picture.BitMap.LoadFromResourceName(hInstance, FCCOWIconName); + try + if ctxContextor.State in [csParticipating] then ctxContextor.Suspend; + except + on E: Exception do HandleCCOWError(E.Message); + end; + end; + SetupPatient; + tabPage.TabIndex := PageIDToTab(User.InitialTab); + tabPageChange(tabPage); +end; + +procedure TfrmFrame.CheckForDifferentPatient(aContextItemCollection: IDispatch; var PtChanged: boolean); +var + data : IContextItemCollection; + anItem: IContextItem; + PtDFN, PtName: string; +begin + if uCore.Patient = nil then + begin + PtChanged := False; + Exit; + end; + data := IContextItemCollection(aContextItemCollection) ; + //PtDFN := FindBestCCOWDFN(PtName); + PtDFN := FindBestCCOWDFN; + // Retrieve the ContextItem name and value as strings + anItem := data.Present('Patient.co.PatientName'); + if anItem <> nil then PtName := anItem.Get_Value(); + PtChanged := not ((PtDFN = Patient.DFN) and (PtName = Piece(Patient.Name, ',', 1) + U + Piece(Patient.Name, ',', 2) + '^^^^')); +end; + +{$IFDEF CCOWBROKER} +procedure TfrmFrame.CheckForDifferentUser(aContextItemCollection: IDispatch; var UserChanged: boolean); +var + data : IContextItemCollection; +begin + if uCore.User = nil then + begin + UserChanged := False; + Exit; + end; + data := IContextItemCollection(aContextItemCollection) ; + UserChanged := RPCBrokerV.IsUserContextPending(data); +end; +{$ENDIF} + +procedure TfrmFrame.CheckHyperlinkResponse(aContextItemCollection: IDispatch; var HyperlinkReason: string); +var + data : IContextItemCollection; + anItem : IContextItem; + itemvalue: string; + PtSubject: string; +begin + data := IContextItemCollection(aContextItemCollection) ; + anItem := data.Present('[hds_med_va.gov]request.id.name'); + // Retrieve the ContextItem name and value as strings + if anItem <> nil then + begin + itemValue := anItem.Get_Value(); + if itemValue = 'GetWindowHandle' then + begin + PtSubject := 'patient.id.mrn.dfn_' + User.StationNumber; + if not User.IsProductionAccount then PtSubject := PtSubject + '_test'; + if data.Present(PtSubject) <> nil then + HyperlinkReason := '!@#$' + IntToStr(Self.Handle) + ':0:' + else + HyperlinkReason := ''; + end; + end; +end; + +procedure TfrmFrame.HideEverything; +begin + FNoPatientSelected := TRUE; + pnlNoPatientSelected.Visible := True; + pnlNoPatientSelected.BringToFront; + mnuFileReview.Enabled := False; + mnuFilePrint.Enabled := False; + mnuFilePrintSelectedItems.Enabled := False; + mnuFileEncounter.Enabled := False; + mnuFileNext.Enabled := False; + mnuFileRefresh.Enabled := False; + mnuFilePrintSetup.Enabled := False; + mnuFilePrintSelectedItems.Enabled := False; + mnuFileNotifRemove.Enabled := False; + mnuFileResumeContext.Enabled := False; + mnuFileBreakContext.Enabled := False; + mnuEdit.Enabled := False; + mnuView.Enabled := False; + mnuTools.Enabled := False; +end; + +procedure TfrmFrame.ShowEverything; +begin + FNoPatientSelected := FALSE; + pnlNoPatientSelected.Visible := False; + pnlNoPatientSelected.SendToBack; + mnuFileReview.Enabled := True; + mnuFilePrint.Enabled := True; + mnuFileEncounter.Enabled := True; + mnuFileNext.Enabled := True; + mnuFileRefresh.Enabled := True; + mnuFilePrintSetup.Enabled := True; + mnuFilePrintSelectedItems.Enabled := True; + mnuFileNotifRemove.Enabled := True; + if not FCCOWError then + begin + if FCCOWIconName= 'BMP_CCOW_BROKEN' then + begin + mnuFileResumeContext.Enabled := True; + mnuFileBreakContext.Enabled := False; + end else + begin + mnuFileResumeContext.Enabled := False; + mnuFileBreakContext.Enabled := True; + end; + end; + mnuEdit.Enabled := True; + mnuView.Enabled := True; + mnuTools.Enabled := True; +end; + + +procedure TfrmFrame.pnlFlagMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + pnlFlag.BevelOuter := bvLowered; +end; + +procedure TfrmFrame.pnlFlagMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + pnlFlag.BevelOuter := bvRaised; +end; + +procedure TfrmFrame.pnlFlagClick(Sender: TObject); +begin + //ShowFlags; + ViewInfo(mnuViewFlags); +end; + +procedure TfrmFrame.mnuFilePrintSelectedItemsClick(Sender: TObject); +begin + case TabToPageID(tabPage.TabIndex) of + CT_NOTES: frmNotes.LstNotesToPrint; + CT_CONSULTS: frmConsults.LstConsultsToPrint; + CT_DCSUMM: frmDCSumm.LstSummsToPrint; + end; {case} +end; + +procedure TfrmFrame.mnuAlertRenewClick(Sender: TObject); +var XQAID: string; +begin + XQAID := Piece(Notifications.RecordID, '^', 2); + RenewAlert(XQAID); +end; + +procedure TfrmFrame.mnuAlertForwardClick(Sender: TObject); +var + XQAID, AlertMsg: string; +begin + XQAID := Piece(Notifications.RecordID,'^', 2); + AlertMsg := Piece(Notifications.RecordID, '^', 1); + RenewAlert(XQAID); // must renew/restore an alert before it can be forwarded + ForwardAlertTo(XQAID + '^' + AlertMsg); +end; + +procedure TfrmFrame.mnuGECStatusClick(Sender: TObject); +var +ans, Result,str,str1,title: string; +cnt,i: integer; +fin: boolean; + +begin + Result := sCallV('ORQQPXRM GEC STATUS PROMPT', [Patient.DFN]); + if Piece(Result,U,1) <> '0' then + begin + title := Piece(Result,U,2); + if pos('~',Piece(Result,U,1))>0 then + begin + str:=''; + str1 := Piece(Result,U,1); + cnt := DelimCount(str1, '~'); + for i:=1 to cnt+1 do + begin + if i = 1 then str := Piece(str1,'~',i); + if i > 1 then str :=str+CRLF+Piece(str1,'~',i); + end; + end + else str := Piece(Result,U,1); + if Piece(Result,U,3)='1' then + begin + fin := (InfoBox(str,title, MB_YESNO or MB_DEFBUTTON2)=IDYES); + if fin = true then ans := '1'; + if fin = false then ans := '0'; + CallV('ORQQPXRM GEC FINISHED?',[Patient.DFN,ans]); + end + else + InfoBox(str,title, MB_OK); + end; +end; + +procedure TfrmFrame.pnlFlagEnter(Sender: TObject); +begin + pnlFlag.BevelInner := bvRaised; + pnlFlag.BevelOuter := bvNone; + pnlFlag.BevelWidth := 4; +end; + +procedure TfrmFrame.pnlFlagExit(Sender: TObject); +begin + pnlFlag.BevelWidth := 2; + pnlFlag.BevelInner := bvNone; + pnlFlag.BevelOuter := bvRaised; +end; + +procedure TfrmFrame.tabPageMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + LastTab := TabToPageID((sender as TTabControl).TabIndex); +end; + +procedure TfrmFrame.lstCIRNLocationsExit(Sender: TObject); +begin + //Make the lstCIRNLocations act as if between pnlCIRN & pnlReminders + //in the Tab Order + if Boolean(Hi(GetKeyState(VK_TAB))) then + if Boolean(Hi(GetKeyState(VK_SHIFT))) then + pnlCIRN.SetFocus + else + pnlReminders.SetFocus; +end; + +procedure TfrmFrame.AppEventsActivate(Sender: TObject); +begin + FJustEnteredApp := True; +end; + +procedure TfrmFrame.ScreenActiveFormChange(Sender: TObject); +begin + if(assigned(FOldActiveFormChange)) then + FOldActiveFormChange(Sender); + //Focus the Form that Stays on Top after the Application Regains focus. + if FJustEnteredApp then + FocusApplicationTopForm; + FJustEnteredApp := false; +end; + +procedure TfrmFrame.FocusApplicationTopForm; +var + I : integer; +begin + for I := (Screen.FormCount-1) downto 0 do //Set the last one opened last + begin + with Screen.Forms[I] do + if (FormStyle = fsStayOnTop) and (Enabled) and (Visible) then + SetFocus; + end; +end; + +procedure TfrmFrame.AppEventsShortCut(var Msg: TWMKey; + var Handled: Boolean); +begin + if ((Boolean(Hi(GetKeyState(VK_MENU{ALT})))) and (Msg.CharCode = VK_F1)) then + begin + FocusApplicationTopForm; + Handled := True; + end; +end; + +procedure TfrmFrame.mnuToolsGraphingClick(Sender: TObject); +begin + Screen.Cursor := crHourGlass; + if GraphFloat = nil then // new graph + begin + GraphFloat := TfrmGraphs.Create(self); + try + with GraphFloat do + begin + if btnClose.Tag = 1 then + Exit; + Initialize; + Caption := 'CPRS Graphing - Patient: ' + MixedCase(Patient.Name); + BorderIcons := [biSystemMenu, biMaximize, biMinimize]; + BorderStyle := bsSizeable; + BorderWidth := 1; + // context sensitive type (tabPage.TabIndex) & [item] + ResizeAnchoredFormToFont(GraphFloat); + Show; + end; + finally + if GraphFloat.btnClose.Tag = 1 then + begin + GraphFloatActive := false; + GraphFloat.Free; + GraphFloat := nil; + end + else + GraphFloatActive := true; + end; + end + else if GraphFloat.btnClose.Tag = 1 then + Exit + else if GraphFloatActive and (GraphFloat.lstTypes.Hint = Patient.DFN) then + GraphFloat.BringToFront // graph is active, same patient + else if GraphFloat.lstTypes.Hint = Patient.DFN then + begin // graph is not active, same patient + // context sensitive + GraphFloat.Show; + GraphFloatActive := true; + end + else + //with GraphFloat do // new patient + begin + GraphFloat.InitialRetain; + GraphFloatActive := false; + GraphFloat.Free; + GraphFloat := nil; + mnuToolsGraphingClick(self); // delete and recurse + {//FormCreate(self); //**************** + Initialize; + DisplayData('top'); + DisplayData('bottom'); + lstCheck.Items.Clear; + Caption := 'CPRS Graphing - Patient: ' + MixedCase(Patient.Name); + // context sensitive + Show; + GraphFloatActive := true;} + end; + Screen.Cursor := crDefault; +end; + +procedure TfrmFrame.pnlCIRNMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + pnlCIRN.BevelOuter := bvLowered; +end; + +procedure TfrmFrame.pnlCIRNMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + pnlCIRN.BevelOuter := bvRaised; +end; + +procedure TfrmFrame.laMHVClick(Sender: TObject); +begin + //if laMHV.Caption = 'MHV' then + // ShellExecute(Handle, 'open', PChar('http://www.myhealth.va.gov/'), '', '', SW_NORMAL); + ViewInfo(mnuViewMyHealtheVet); +end; + +procedure TfrmFrame.laVAA2Click(Sender: TObject); +{var + InsuranceSubscriberName: string; + ReportString: TStringList; //CQ7782 } +begin + {if fCover.VAAFlag[0] <> '0' then //'0' means subscriber not found + begin + InsuranceSubscriberName := fCover.VAAFlag[12]; + //CQ7782 + //ReportString := TStringList.Create; + ReportString := VAAFlag; + ReportString[0] := ''; + ReportBox(ReportString, InsuranceSubscriberName, True); + //end CQ7782 + end;} + ViewInfo(mnuInsurance); +end; + +procedure TfrmFrame.ViewInfo(Sender: TObject); +var + SelectNew: Boolean; + InsuranceSubscriberName: string; + ReportString: TStringList; + aAddress: string; +begin + case (Sender as TMenuItem).Tag of + 1:begin { displays patient inquiry report (which optionally allows new patient to be selected) } + StatusText(TX_PTINQ); + PatientInquiry(SelectNew); + if Assigned(FLastPage) then + FLastPage.FocusFirstControl; + StatusText(''); + if SelectNew then mnuFileOpenClick(mnuViewDemo); + end; + 2:begin + if (not User.IsReportsOnly) then // Reports Only tab. + mnuFileEncounterClick(Self); + end; + 3:begin + ReportBox(DetailPrimaryCare(Patient.DFN), 'Primary Care', True); + end; + 4:begin + if laMHV.Caption = 'MHV' then + ShellExecute(laMHV.Handle, 'open', PChar('http://www.myhealth.va.gov/'), '', '', SW_NORMAL); + end; + 5:begin + if fCover.VAAFlag[0] <> '0' then //'0' means subscriber not found + begin + InsuranceSubscriberName := fCover.VAAFlag[12]; + ReportString := VAAFlag; + ReportString[0] := ''; + ReportBox(ReportString, InsuranceSubscriberName, True); + end; + end; + 6:begin + ShowFlags; + end; + 7:begin + if UseVistaWeb then + begin + pnlCIRN.BevelOuter := bvRaised; + pnlCIRN.Hint := 'Click to open VistaWeb'; + lblCIRN.Width := 43; + lblCIRNData.Width := 43; + lblCIRNData.Alignment := taCenter; + lblCIRN.Alignment := taCenter; + lstCIRNLocations.Visible := false; + lstCIRNLocations.SendToBack; + aAddress := GetVistaWebAddress(Patient.DFN); + ShellExecute(pnlCirn.Handle, 'open', PChar(aAddress), PChar(''), '', SW_NORMAL); + Exit; + end; + if not RemoteSites.RemoteDataExists then Exit; + if (not lstCIRNLocations.Visible) then + begin + pnlCIRN.BevelOuter := bvLowered; + lstCIRNLocations.Visible := True; + lstCIRNLocations.BringToFront; + lstCIRNLocations.SetFocus; + pnlCIRN.Hint := 'Click to close list.'; + end + else + begin + pnlCIRN.BevelOuter := bvRaised; + lstCIRNLocations.Visible := False; + lstCIRNLocations.SendToBack; + pnlCIRN.Hint := 'Click to display other facilities having data for this patient.'; + end; + end; + 8:begin + ViewReminderTree; + end; + 9:begin { displays the window that shows crisis notes, warnings, allergies, & advance directives } + ShowCWAD; + end; + end; +end; + +procedure TfrmFrame.mnuViewInformationClick(Sender: TObject); +begin + mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled; + mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled; + mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled; + mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No'); + mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No'); + mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled; + mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled; + mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled; + mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled; +end; + +initialization + +finalization + + +end. + + diff --git a/CPRS-Chart/fGraphProfiles.dfm b/CPRS-Chart/fGraphProfiles.dfm new file mode 100644 index 0000000..67bbe96 --- /dev/null +++ b/CPRS-Chart/fGraphProfiles.dfm @@ -0,0 +1,429 @@ +object frmGraphProfiles: TfrmGraphProfiles + Left = 721 + Top = 528 + 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 + 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 + Left = 142 + Top = 29 + Width = 28 + Height = 13 + Hint = 'Make selections move them to the right.' + Caption = 'Items:' + ParentShowHint = False + ShowHint = False + end + object lblDisplay: TLabel + Left = 312 + Top = 29 + Width = 89 + Height = 13 + Hint = + 'These items can be saved as a View and/or displayed on the graph' + + '.' + Caption = 'Items for Graphing:' + ParentShowHint = False + ShowHint = False + end + object bvlBase: TBevel + Left = 8 + Top = 339 + Width = 457 + Height = 2 + end + object lblEditInfo: TLabel + Left = 132 + Top = 278 + Width = 202 + Height = 13 + Caption = 'Items for Graphing can be saved as Views.' + end + object lblSelectionInfo: TLabel + Left = 42 + Top = 8 + Width = 89 + Height = 13 + Caption = 'Select Items using:' + ParentShowHint = False + ShowHint = False + end + object lblSelectandDefine: TLabel + Left = 8 + Top = 350 + Width = 359 + Height = 13 + Caption = + 'Use Select/Define button or Right-click on graphs to select item' + + 's for display.' + WordWrap = True + end + object lblEditInfo1: TLabel + Left = 132 + Top = 294 + Width = 187 + Height = 13 + Caption = 'Edit Views by saving to the same name.' + end + object btnClear: TButton + Left = 8 + Top = 312 + Width = 85 + Height = 21 + Caption = 'Clear Selections' + Enabled = False + ParentShowHint = False + ShowHint = False + TabOrder = 8 + OnClick = btnClearClick + end + object btnSave: TButton + Left = 286 + Top = 312 + Width = 85 + Height = 21 + Caption = 'Save Personal...' + Enabled = False + ParentShowHint = False + ShowHint = False + TabOrder = 12 + OnClick = btnSaveClick + end + object btnDelete: TButton + Left = 100 + Top = 312 + Width = 85 + Height = 21 + Caption = 'Delete...' + Enabled = False + ParentShowHint = False + ShowHint = False + TabOrder = 9 + OnClick = btnDeleteClick + end + object btnRemoveOne: TButton + Left = 280 + Top = 173 + Width = 21 + Height = 21 + Caption = '<' + Enabled = False + ParentShowHint = False + ShowHint = False + TabOrder = 6 + OnClick = btnRemoveOneClick + end + object btnRemoveAll: TButton + Left = 280 + Top = 205 + Width = 21 + Height = 21 + Caption = '<<' + Enabled = False + ParentShowHint = False + ShowHint = False + TabOrder = 7 + 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 + Top = 44 + Width = 150 + Height = 225 + ItemHeight = 13 + ParentShowHint = False + ShowHint = False + Sorted = True + TabOrder = 3 + OnDblClick = lstItemsDisplayedDblClick + ItemTipColor = clWindow + LongList = False + Pieces = '3' + OnChange = lstItemsDisplayedChange + end + object pnlSource: TPanel + Left = 147 + Top = 1 + Width = 190 + Height = 25 + BevelOuter = bvNone + TabOrder = 11 + object radSourcePat: TRadioButton + Left = 87 + Top = 6 + Width = 82 + Height = 17 + Hint = + 'Use this for selecting patient items. Note: this form is used pr' + + 'imarily for defining views, #13 not selecting data.' + Caption = 'Patient Items' + TabOrder = 1 + OnClick = radSourceAllClick + end + object radSourceAll: TRadioButton + Left = 0 + Top = 6 + Width = 60 + Height = 17 + Hint = 'Use this for defining views. It shows every possible item.' + Caption = 'All Items' + Checked = True + TabOrder = 0 + TabStop = True + OnClick = radSourceAllClick + end + end + object lstItemsTopSelection: TORListBox + Left = 142 + Top = 44 + Width = 120 + Height = 225 + ItemHeight = 13 + ParentShowHint = False + ShowHint = False + Sorted = True + TabOrder = 2 + Visible = False + OnDblClick = cboAllItemsClick + ItemTipColor = clWindow + LongList = False + Pieces = '3' + OnChange = cboAllItemsChange + end + object pnlTempData: TPanel + Left = 16 + Top = 230 + Width = 425 + Height = 49 + TabOrder = 14 + 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 + 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 + Height = 21 + Caption = '>' + Enabled = False + ParentShowHint = False + ShowHint = False + TabOrder = 5 + OnClick = cboAllItemsClick + 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 + end +end diff --git a/CPRS-Chart/fGraphProfiles.pas b/CPRS-Chart/fGraphProfiles.pas new file mode 100644 index 0000000..ed54ca7 --- /dev/null +++ b/CPRS-Chart/fGraphProfiles.pas @@ -0,0 +1,1236 @@ +unit fGraphProfiles; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, StdCtrls, ExtCtrls, CheckLst, ORCtrls, ORFn, uGraphs, uCore; + +type + TfrmGraphProfiles = class(TForm) + btnAdd: TButton; + btnAddAll: TButton; + btnClear: TButton; + btnClose: TButton; + btnDelete: TButton; + btnRemoveAll: TButton; + btnRemoveOne: TButton; + btnRename: TButton; + btnSave: TButton; + btnSavePublic: TButton; + bvlBase: TBevel; + cboAllItems: TORComboBox; + lblApply: TLabel; + lblDisplay: TLabel; + lblEditInfo: TLabel; + lblEditInfo1: TLabel; + lblSelectandDefine: TLabel; + lblSelection: TLabel; + lblSelectionInfo: TLabel; + lblSource: TLabel; + lstActualItems: TORListBox; + lstDrugClass: TListBox; + lstItemsDisplayed: TORListBox; + lstItemsTopSelection: TORListBox; + lstScratch: TListBox; + lstSource: TORListBox; + lstTests: TListBox; + pnlApply: TPanel; + pnlSource: TPanel; + pnlTempData: TPanel; + radSourceAll: TRadioButton; + radSourcePat: TRadioButton; + radTop: TRadioButton; + radBottom: TRadioButton; + radBoth: TRadioButton; + radNeither: TRadioButton; + lblSave: TLabel; + lblClose: TLabel; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + + procedure btnClearClick(Sender: TObject); + procedure btnDeleteClick(Sender: TObject); + procedure btnCloseClick(Sender: TObject); + procedure btnRemoveClick(Sender: TObject); + procedure btnRemoveAllClick(Sender: TObject); + procedure btnRemoveOneClick(Sender: TObject); + procedure btnRenameClick(Sender: TObject); + procedure btnSaveClick(Sender: TObject); + + procedure radSourceAllClick(Sender: TObject); + + procedure cboAllItemsClick(Sender: TObject); + procedure cboAllItemsChange(Sender: TObject); + procedure cboAllItemsNeedData(Sender: TObject; const StartFrom: String; + Direction, InsertAt: Integer); + procedure lstItemsDisplayedChange(Sender: TObject); + procedure lstItemsDisplayedDblClick(Sender: TObject); + procedure lstSourceChange(Sender: TObject); + procedure lstSourceDblClick(Sender: TObject); + + procedure AddToList(aItem: string; aListBox: TORListBox); + procedure ArrangeList(aCheckFile, aCheckItem, aItem: string; + aListBox: TORListBox; var addtolist: boolean); + procedure AssignHints; + procedure AssignProfile(aList: TStrings; aProfile: string); + procedure CheckPublic; + procedure FillSource; + + function ProfileExists(aName: string; aType: integer): boolean; + private + { Private declarations } + FHintPauseTime: integer; + FPublicEditor: boolean; + procedure CheckToClear; + procedure QualifierDelete(line: string); + procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN; + public + { Public declarations } + end; + +var + frmGraphProfiles: TfrmGraphProfiles; + +procedure DialogOptionsGraphProfiles(topvalue, leftvalue, fontsize: integer; + var actiontype: boolean); +procedure DialogGraphProfiles(fontsize: integer; var actionOK: boolean; + var checkaction: boolean; aGraphSetting: TGraphSetting; + var aProfname, aProfilestring, aSection: string; + const PatientDFN: string; var aCounter: integer; + aSelections: string); + +implementation + +{$R *.DFM} + +uses + rGraphs; + +procedure DialogOptionsGraphProfiles(topvalue, leftvalue, fontsize: integer; + var actiontype: boolean); +// create the form and make it modal, return an action +var + FGraphSetting: TGraphSetting; + aList, AllTypes: TStrings; + dfntype, listline, settings, settings1, t1, t2: string; + actionOK, checkaction: boolean; + counter, i: integer; + aSelections, profile, profilestring, section: string; +begin + aList := TStringList.Create; + FastAssign(rpcGetGraphSettings, aList); + if aList.Count < 1 then + begin + showmessage('CPRS is not configured for graphing.'); + aList.Free; + 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', true), AllTypes); + for i := 0 to AllTypes.Count - 1 do + begin + listline := AllTypes[i]; + dfntype := UpperCase(Piece(listline, '^', 1)); + SetPiece(listline, '^', 1, dfntype); + AllTypes[i] := listline; + end; + FGraphSetting := GraphSettingsInit(settings); + checkaction := false; + actionOK := false; + profile := '*'; + counter := BIG_NUMBER; + aSelections :=''; + DialogGraphProfiles(fontsize, actionOK, checkaction, FGraphSetting, + profile, profilestring, section, Patient.DFN, counter, aSelections); + FGraphSetting.Free; + aList.Free; +end; + +procedure DialogGraphProfiles(fontsize: integer; var actionOK: boolean; + var checkaction: boolean; aGraphSetting: TGraphSetting; + var aProfname, aProfilestring, aSection: string; + const PatientDFN: string; var aCounter: integer; + aSelections: string); +var + i: integer; + counter, profile, profileitem, profiletype: string; + frmGraphProfiles: TfrmGraphProfiles; +begin + frmGraphProfiles := TfrmGraphProfiles.Create(Application); + try + with frmGraphProfiles do + begin + lblSave.Hint := aProfname; + lblClose.Hint := PatientDFN; + if aCounter = BIG_NUMBER then + begin + pnlApply.Visible := false; + frmGraphProfiles.Caption := 'Define Views'; + end + else + begin + pnlApply.Visible := true; + frmGraphProfiles.Caption := 'Select Items and Define Views'; + end; + if length(aSelections) > 0 then + lstSource.Items.Insert(0, '-3^^' + aSelections); + ResizeAnchoredFormToFont(frmGraphProfiles); + ShowModal; + actionOK := (btnClose.Tag = 1); + aProfname := ''; + if actionOK then + begin + aProfname := lblSave.Hint; + if radTop.Checked then aSection := 'top' + else if radBottom.Checked then aSection := 'bottom' + else if radBoth.Checked then aSection := 'both' + else aSection := 'neither'; + profile := ''; + with lstItemsDisplayed do + for i := 0 to Items.Count - 1 do + begin + profiletype := Piece(Items[i], '^', 1); + profileitem := Piece(Items[i], '^', 2); + profile := profile + profiletype + '~' + profileitem + '~|'; + end; + aCounter := aCounter + 1; + counter := inttostr(aCounter); + aProfileString := '^^' + profile; + with aGraphSetting do + begin + lstActualItems.Items.Clear; + with lstItemsDisplayed do + for i := 0 to Items.Count - 1 do + begin + lstActualItems.Items.Add(Piece(Items[i], '<', 1)); //get rid of + end; + ItemsForDisplay := lstActualItems.Items; + end; + end; + end; + finally + frmGraphProfiles.Release; + end; +end; + +procedure TfrmGraphProfiles.FormCreate(Sender: TObject); +begin + FillSource; + FPublicEditor := rpcPublicEdit; +end; + +procedure TfrmGraphProfiles.FormShow(Sender: TObject); +begin + cboAllItems.Visible := radSourceAll.Checked; + FHintPauseTime := Application.HintHidePause; + Application.HintHidePause := 9000; // uses a longer hint pause time +end; + +procedure TfrmGraphProfiles.btnClearClick(Sender: TObject); +begin + lstItemsDisplayed.Items.Clear; + lstItemsTopSelection.Items.Clear; + cboAllItems.Items.Clear; + cboAllItems.Text :=''; + lstItemsDisplayedChange(self); + cboAllItemsChange(self); + lstSource.ItemIndex := -1; +end; + +procedure TfrmGraphProfiles.btnDeleteClick(Sender: TObject); +var + publicview: boolean; + info, profilename, profname, proftype: string; +begin + if lstSource.ItemIndex < 0 then + begin + showmessage('You must select a valid View for deletion.'); + exit; + end; + publicview := false; + profilename := ''; + info := lstSource.Items[lstSource.ItemIndex]; + proftype := Piece(info, '^', 1); + profname := Piece(info, '^', 2); + if proftype = '-1' then + profilename := profname + else if (proftype = '-2') and FPublicEditor then + begin + profilename := profname; + publicview := true; + end + else + begin + showmessage('You must select a valid View for deletion.'); + exit; + end; + if publicview then + begin + if MessageDlg('This is Public and may be used by others.' + + #13 + 'Delete ' + profilename + '?', mtConfirmation, + [mbYes, mbNo], 0) = mrYes then + begin + rpcDeleteGraphProfile(UpperCase(profilename), '1'); + btnClose.Tag := 1; + MessageDlg('The public view, ' + profilename + ' has been deleted.', + mtInformation, [mbOk], 0); + end + else exit; + end + else + begin + if MessageDlg('Delete ' + profilename + '?', mtConfirmation, + [mbYes, mbNo], 0) = mrYes then + begin + rpcDeleteGraphProfile(UpperCase(profilename), '0'); + btnClose.Tag := 1; + MessageDlg('Your personal view, ' + profilename + ' has been deleted.', + mtInformation, [mbOk], 0); + end + else exit; + end; + btnClearClick(self); + lstItemsDisplayed.Items.Clear; + lstItemsTopSelection.Items.Clear; + cboAllItems.Items.Clear; + cboAllItems.Text :=''; + FormCreate(self); + lstItemsDisplayedChange(self); + btnDelete.Enabled := false; + btnRename.Enabled := false; +end; + +procedure TfrmGraphProfiles.btnRenameClick(Sender: TObject); +var + profentered, publicview: boolean; + i, match: integer; + aName, aType, info, infotitle: string; + newprofilename, profilename, profname, proftype: string; +begin + if lstSource.ItemIndex < 0 then + begin + showmessage('You must select a valid View to rename.'); + exit; + end; + publicview := false; + profilename := ''; + info := lstSource.Items[lstSource.ItemIndex]; + proftype := Piece(info, '^', 1); + profname := Piece(info, '^', 2); + if proftype = '-1' then + profilename := profname + else if (proftype = '-2') and FPublicEditor then + begin + profilename := profname; + publicview := true; + end + else + begin + showmessage('You must select a valid View to rename.'); + end; + btnRemoveAllClick(self); + lstSourceDblClick(self); + if publicview then + begin + infotitle := 'Rename this Public View'; + info := 'This is Public and may be used by others.' + + #13 + 'Enter a new name for ' + profilename + '.' + end + else + begin + infotitle := 'Rename your Personal View'; + info := 'Enter a new name for ' + profilename + '.' + end; + profentered := InputQuery(infotitle, info, newprofilename); + if not profentered then exit; + if newprofilename = '' then exit; + info := ''; + if not ProfileExists(newprofilename, -2) and publicview then + info := 'The Public View, ' + profilename + ', will be changed to ' + + newprofilename + #13 + 'Is this OK?' + else if not ProfileExists(newprofilename, -1) then + info := 'Your Personal View, ' + profilename + ', will be changed to ' + + newprofilename + #13 + 'Is this OK?'; + if length(info) > 0 then + begin + if MessageDlg(info, mtConfirmation, [mbYes, mbNo], 0) <> mrYes then exit; + if publicview then + begin + FastAssign(rpcGetGraphProfiles(UpperCase(profilename), '1', 1), lstScratch.Items); + rpcDeleteGraphProfile(UpperCase(profilename), '1'); + rpcSetGraphProfile(newprofilename, '1', lstScratch.Items); + btnClose.Tag := 1; + proftype := '-2'; + end + else + begin + FastAssign(rpcGetGraphProfiles(UpperCase(profilename), '0', 1), lstScratch.Items); + rpcDeleteGraphProfile(UpperCase(profilename), '0'); + rpcSetGraphProfile(newprofilename, '0', lstScratch.Items); + btnClose.Tag := 1; + proftype := '-1'; + end; + end; + if length(newprofilename) > 0 then + lblSave.Hint := newprofilename; + btnClearClick(self); + lstScratch.Items.Clear; + lstSource.Items.Clear; + FormCreate(btnSave); + match := -1; + profilename := UpperCase(newprofilename); + for i := lstSource.Items.Count - 1 downto 0 do + begin + info := lstSource.Items[i]; + aType := Piece(info, '^', 1); + aName := Piece(info, '^', 2); + if (UpperCase(aName) = newprofilename) and (aType = proftype) then + begin + match := i; + break; + end; + end; + if match = -1 then exit; + lstSource.ItemIndex := match; + lstSourceChange(self); +end; + +procedure TfrmGraphProfiles.btnCloseClick(Sender: TObject); +begin + if lstItemsDisplayed.Items.Count > 0 then + btnClose.Tag := 1; + Close; +end; + +procedure TfrmGraphProfiles.btnRemoveClick(Sender: TObject); +begin + if lstItemsDisplayed.ItemIndex < 0 then exit; + lstItemsDisplayed.Items.Delete(lstItemsDisplayed.ItemIndex); + CheckToClear; +end; + +procedure TfrmGraphProfiles.btnRemoveAllClick(Sender: TObject); +begin + lstItemsDisplayed.Clear; + lstItemsDisplayedChange(self); + CheckToClear; +end; + +procedure TfrmGraphProfiles.btnRemoveOneClick(Sender: TObject); +begin + lstItemsDisplayedDblClick(self); + CheckToClear; +end; + +procedure TfrmGraphProfiles.CheckToClear; +begin + if cboAllItems.Visible and (cboAllItems.Items.Count = 0) then + lstSource.ItemIndex := -1 + else if lstItemsTopSelection.Visible and (lstItemsTopSelection.Items.Count = 0) then + lstSource.ItemIndex := -1; + if lstSource.ItemIndex = -1 then + begin + btnAdd.Enabled := false; + btnAddAll.Enabled := false; + end; +end; + +procedure TfrmGraphProfiles.btnSaveClick(Sender: TObject); +var + profentered, puplicedit: boolean; + i, j, match: integer; + aName, aType, info, infotitle, profile, profileitem, profilename, profiletype, profname, proftype: string; + aList: TStrings; +begin + puplicedit := Sender = btnSavePublic; + if lstItemsDisplayed.Items.Count < 1 then exit; + profilename := ''; + if lstSource.ItemIndex > -1 then + begin + info := lstSource.Items[lstSource.ItemIndex]; + proftype := Piece(info, '^', 1); + profname := Piece(info, '^', 2); + profilename := profname; + end; + if puplicedit then + begin + infotitle := 'Save this Public View'; + info := 'Save this Public View by entering a name for it.' + + #13 + 'If you are editing a View, enter the View''s name to overwrite it.'; + end + else + begin + infotitle := 'Save your Personal View'; + info := 'Save your Personal View by entering a name for it.' + + #13 + 'If you are editing a View, enter the View''s name to overwrite it.'; + end; + profentered := InputQuery(infotitle, info, profilename); + if not profentered then exit; + if profilename = '' then exit; + if (length(profilename) < 3) or (length(profilename) > 30) then + begin + showmessage('Not accepted - names of views must be 3-30 characters.'); + exit; + end; + info := ''; + if ProfileExists(profilename, -2) and FPublicEditor and puplicedit then + info := 'The Public View, ' + profilename + ', will be overwritten.' + + #13 + 'Is this OK?' + else if ProfileExists(profilename, -1) and (not puplicedit) then + info := 'Your Personal View, ' + profilename + ', will be overwritten.' + + #13 + 'Is this OK?'; + if length(info) > 0 then + if MessageDlg(info, mtConfirmation, [mbYes, mbNo], 0) <> mrYes then exit; + aList := TStringList.Create; + profile := ''; + aList.Clear; + j := 1; + with lstItemsDisplayed do + for i := 0 to Items.Count - 1 do + begin + profiletype := Piece(Items[i], '^', 1); + profileitem := Piece(Items[i], '^', 2); + profile := profile + profiletype + '~' + profileitem + '~|'; + j := j +1; + if (j mod 10) = 0 then + if length(profile) > 0 then + begin + aList.Add(UpperCase(profile)); + profile := ''; + end; + end; + if length(profile) > 0 then + begin + aList.Add(UpperCase(profile)); + profile := ''; + end; + if puplicedit then + begin + proftype := '-2'; + rpcSetGraphProfile(profilename, '1', aList); + btnClose.Tag := 1; + end + else + begin + proftype := '-1'; + rpcSetGraphProfile(profilename, '0', aList); + btnClose.Tag := 1; + end; + if length(profilename) > 0 then + lblSave.Hint := profilename; + btnClearClick(self); + lstScratch.Items.Clear; + lstSource.Items.Clear; + FormCreate(btnSave); + match := -1; + profilename := UpperCase(profilename); + for i := lstSource.Items.Count - 1 downto 0 do + begin + info := lstSource.Items[i]; + aType := Piece(info, '^', 1); + aName := Piece(info, '^', 2); + if (UpperCase(aName) = profilename) and (aType = proftype) then + begin + match := i; + break; + end; + end; + aList.Free; + if match = -1 then exit; + lstSource.ItemIndex := match; + lstSourceChange(self); +end; + +procedure TfrmGraphProfiles.CheckPublic; +var + typedata: string; +begin + if lstSource.ItemIndex = -1 then + begin + btnDelete.Enabled := false; + btnRename.Enabled := false; + exit; + end; + typedata := lstSource.Items[lstSource.ItemIndex]; + btnDelete.Enabled := (Piece(typedata, '^', 1) = '-1') + or ((Piece(typedata, '^', 1) = '-2') and FPublicEditor); + btnRename.Enabled := btnDelete.Enabled; +end; + +procedure TfrmGraphProfiles.radSourceAllClick(Sender: TObject); +var + dfn: string; +begin + if Sender = radSourceAll then + begin + lstItemsTopSelection.Visible := false; + cboAllItems.Visible := true; + end + else + begin + if radSourcePat.Tag = 0 then + begin + dfn := lblClose.Hint; + FastAssign(rpcGetAllItems(dfn), lstTests.Items); //*** using a DFN, get all items + FastAssign(rpcGetItems('50.605', dfn), lstDrugClass.Items); + radSourcePat.Tag := 1; + end; + cboAllItems.Visible := false; + lstItemsTopSelection.Visible := true; + end; + lstSourceChange(self); +end; + +procedure TfrmGraphProfiles.cboAllItemsClick(Sender: TObject); +var + profileselected: boolean; + i: integer; + first, profileitem, selection, subtype: string; +begin + if Sender is TButton then + begin + if lstItemsTopSelection.Visible then + begin + if Sender = btnAddAll then + lstItemsTopSelection.ItemIndex := 0; + Sender := lstItemsTopSelection; + end + else + begin + if Sender = btnAddAll then + cboAllItems.ItemIndex := 0; + Sender := cboAllItems; + end; + end; + if Sender is TORListBox then + with (Sender as TORListBox) do + begin + if ItemIndex < 0 then exit; + selection := Items[ItemIndex]; + if length(Piece(selection, '_', 2)) > 0 then + selection := Piece(selection, '_', 1) + ' ' + Piece(selection, '_', 2); + first := Piece(selection, '^', 1); + if first = '' then exit; // line + profileselected := strtointdef(Piece(selection, '^', 2), 0) < 0; + if profileselected then + begin + for i := 2 to Items.Count - 1 do + begin + profileitem := Items[i]; + if length(Piece(profileitem, '_', 2)) > 0 then + profileitem := Piece(profileitem, '_', 1) + ' ' + Piece(profileitem, '_', 2); //*****???? ^ + AddToList(profileitem, lstItemsDisplayed); + end; + end + else + AddToList(selection, lstItemsDisplayed); + if ItemIndex = 0 then Clear; //profile or type + ItemIndex := -1; + end + else if Sender is TORComboBox then + with (Sender as TORComboBox) do + begin + if ItemIndex < 0 then exit; + selection := Items[ItemIndex]; + subtype := Piece(Items[0], '^', 3); + subtype := Piece(subtype, ':', 2); + subtype := copy(subtype, 2, length(subtype)); + subtype := Piece(subtype, ' ', 1); + if UpperCase(copy(selection, 1, 5)) = '63AP;' then + selection := copy(selection, 1, 4) + '^A;' + copy(selection, 6, 1) + ';' + + Piece(selection, '^', 2) + '^' + subtype + ': ' + Piece(selection, '^', 3) + else if UpperCase(copy(selection, 1, 5)) = '63MI;' then + selection := copy(selection, 1, 4) + '^M;' + copy(selection, 6, 1) + ';' + + Piece(selection, '^', 2) + '^' + subtype + ': ' + Piece(selection, '^', 3); + if length(Piece(selection, '_', 2)) > 0 then + selection := Piece(selection, '_', 1) + ' ' + Piece(selection, '_', 2); + first := Piece(selection, '^', 1); + if first = '' then exit; // line + profileselected := strtointdef(Piece(selection, '^', 2), 0) < 0; + if profileselected then + begin + for i := 2 to Items.Count - 1 do + begin + profileitem := Items[i]; + if length(Piece(profileitem, '_', 2)) > 0 then + profileitem := Piece(profileitem, '_', 1) + ' ' + Piece(profileitem, '_', 2); //*****???? ^ + AddToList(profileitem, lstItemsDisplayed); + end; + end + else + AddToList(selection, lstItemsDisplayed); + if ItemIndex = 0 then Clear; //profile or type + ItemIndex := -1; + end + else exit; + lstItemsDisplayedChange(self); + CheckToClear; +end; + +procedure TfrmGraphProfiles.cboAllItemsChange(Sender: TObject); +begin + if (Sender is TORListBox) then + btnClear.Enabled := btnSave.Enabled or ((Sender as TORListBox).Items.Count > 0) + else if (Sender is TORComboBox) then + btnClear.Enabled := btnSave.Enabled or ((Sender as TORComboBox).Items.Count > 0); + if lstItemsTopSelection.Visible then + begin + btnAddAll.Enabled := lstItemsTopSelection.Items.Count > 0; + btnAdd.Enabled := lstItemsTopSelection.ItemIndex > -1; + end + else + begin + btnAddAll.Enabled := cboAllItems.Items.Count > 0; + btnAdd.Enabled := cboAllItems.ItemIndex > -1; + end; +end; + +procedure TfrmGraphProfiles.cboAllItemsNeedData(Sender: TObject; + const StartFrom: String; Direction, InsertAt: Integer); +var + filetype: string; +begin + if lstSource.ItemIndex = -1 then exit; + filetype := Piece(lstSource.Items[lstSource.ItemIndex], '^', 1); + cboAllItems.ForDataUse(rpcLookupItems(filetype, StartFrom, Direction)); +end; + +procedure TfrmGraphProfiles.lstItemsDisplayedChange(Sender: TObject); +begin + btnSave.Enabled := lstItemsDisplayed.Items.Count > 0; + btnSavePublic.Enabled := btnSave.Enabled and FPublicEditor; + btnRemoveAll.Enabled := btnSave.Enabled; + btnAdd.Enabled := (cboAllItems.Visible and (cboAllItems.ItemIndex > -1)) + or (lstItemsTopSelection.Visible and (lstItemsTopSelection.ItemIndex > -1)); + btnRemoveOne.Enabled := btnSave.Enabled and (lstItemsDisplayed.ItemIndex > -1); + btnClear.Enabled := btnSave.Enabled or (lstItemsTopSelection.Items.Count > 0); + if btnSave.Enabled and pnlApply.Visible then btnClose.Caption := 'Close and Display' + else btnClose.Caption := 'Close'; +end; + +procedure TfrmGraphProfiles.lstItemsDisplayedDblClick(Sender: TObject); +var + line: string; +begin + if lstItemsDisplayed.ItemIndex < 0 then exit; + line := lstItemsDisplayed.Items[lstItemsDisplayed.ItemIndex]; + lstItemsDisplayed.Items.Delete(lstItemsDisplayed.ItemIndex); + QualifierDelete(line); + lstItemsDisplayedChange(self); +end; + +procedure TfrmGraphProfiles.QualifierDelete(line: string); +var + i: integer; + filenum: string; +begin + if Piece(line, '^', 1) <> '0' then exit; + filenum := Piece(line, '^', 2); + if strtointdef(filenum, 0) < 0 then exit; + if (filenum = '52') or (filenum = '55') or (filenum = '55NVAE') + or (filenum = '55NVA') or (filenum = '53.79') then + with lstItemsDisplayed do + for i := 0 to Items.Count - 1 do + if (Piece(Items[i], '^', 2) = '50.605') and (Piece(Items[i], '^', 1) = '0') then + begin + Items.Delete(i); + break; + end; +end; + +procedure TfrmGraphProfiles.lstSourceChange(Sender: TObject); +var + i: integer; + filetype, itemdata, typedata: string; +begin + cboAllItems.Items.Clear; + cboAllItems.Text := ''; + CheckPublic; + if lstSource.ItemIndex = -1 then exit; + typedata := lstSource.Items[lstSource.ItemIndex]; + if typedata = LLS_LINE then + begin + cboAllItems.Items.Clear; + cboAllItems.Text := ''; + exit; + end; + filetype := Piece(typedata, '^', 1); + if filetype = '-1' then + AssignProfile(cboAllItems.Items, typedata) + else + if filetype = '-2' then + AssignProfile(cboAllItems.Items, typedata) + else + if filetype = '-3' then // current selections + begin + AssignProfile(cboAllItems.Items, typedata); + end + else + with cboAllItems.Items do + begin + Clear; + cboAllItems.InitLongList(''); + typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 2) + ' '; + Insert(0, typedata); + Insert(1, '^' + LLS_LINE); + if Piece(typedata, '^', 2) = '63AP' then + begin + for i := 0 to lstSource.Items.Count - 1 do + if copy(lstSource.Items[i], 1, 5) = '63AP;' then + begin + typedata := lstSource.Items[i]; + typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 2) + ' '; + Add(typedata); + end; + end + else if Piece(typedata, '^', 2) ='63MI' then + begin + for i := 0 to lstSource.Items.Count - 1 do + if copy(lstSource.Items[i], 1, 5) = '63MI;' then + begin + typedata := lstSource.Items[i]; + typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 2) + ' '; + Add(typedata); + end; + end; + end; + cboAllItemsChange(cboAllItems); + CheckPublic; + if lstSource.ItemIndex = -1 then exit; + typedata := lstSource.Items[lstSource.ItemIndex]; + if typedata = LLS_LINE then + begin + lstItemsTopSelection.Clear; + exit; + end; + filetype := Piece(typedata, '^', 1); + if filetype = '-1' then + AssignProfile(lstItemsTopSelection.Items, typedata) + else + if filetype = '-2' then + AssignProfile(lstItemsTopSelection.Items, typedata) + else + if filetype = '-3' then + begin + AssignProfile(lstItemsTopSelection.Items, typedata); + end + else + with lstItemsTopSelection.Items do + begin + Clear; + lstItemsTopSelection.Sorted := true; + typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 2) + ' '; + Insert(0, typedata); + Insert(1, '^' + LLS_LINE); + if filetype = '63AP' then + begin + lstItemsTopSelection.Sorted := false; + for i := 0 to lstSource.Items.Count - 1 do + if copy(lstSource.Items[i], 1, 5) = '63AP;' then + begin + typedata := lstSource.Items[i]; + typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 2) + ' '; + Add(typedata); + end; + end + else if filetype ='63MI' then + begin + lstItemsTopSelection.Sorted := false; + for i := 0 to lstSource.Items.Count - 1 do + if copy(lstSource.Items[i], 1, 5) = '63MI;' then + begin + typedata := lstSource.Items[i]; + typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 2) + ' '; + Add(typedata); + end; + end + else if filetype = '50.605' then + for i := 0 to lstDrugClass.Items.Count - 1 do + begin + itemdata := lstDrugClass.Items[i]; + if filetype = Piece(itemdata, '^', 1) then + Add(itemdata); + end + else if copy(filetype, 1, 5) = '63AP;' then + begin + filetype := copy(filetype, 1, 4) + '^A;' + copy(filetype, 6, 1) + ';'; + for i := 0 to lstTests.Items.Count - 1 do + begin + itemdata := lstTests.Items[i]; + if filetype = UpperCase(copy(itemdata, 1, 9)) then + Add(itemdata); + end; + end + else if copy(filetype, 1, 5) = '63MI;' then + begin + filetype := copy(filetype, 1, 4) + '^M;' + copy(filetype, 6, 1) + ';'; + for i := 0 to lstTests.Items.Count - 1 do + begin + itemdata := lstTests.Items[i]; + if filetype = UpperCase(copy(itemdata, 1, 9)) then + Add(itemdata); + end; + end + else if filetype <> '405' then + for i := 0 to lstTests.Items.Count - 1 do + begin + itemdata := lstTests.Items[i]; + if filetype = UpperCase(Piece(itemdata, '^', 1)) then + Add(itemdata); + end; + cboAllItemsChange(lstItemsTopSelection); + end; +end; + +procedure TfrmGraphProfiles.lstSourceDblClick(Sender: TObject); +begin + if cboAllItems.Visible then + begin + if cboAllItems.Items.Count < 1 then exit; + cboAllItems.ItemIndex := 0; + cboAllItemsClick(cboAllItems); + end + else + begin + if lstItemsTopSelection.Items.Count < 1 then exit; + lstItemsTopSelection.Selected[0] := true; + cboAllItemsClick(lstItemsTopSelection); + end; +end; + +procedure TfrmGraphProfiles.AddToList(aItem: string; aListBox: TORListBox); +var + addtolist: boolean; + checkfile, checkitem: string; +begin + aItem := UpperCase(Pieces(aItem, '^', 1, 2)) + '^' + Piece(aItem, '^', 3); + checkfile := Piece(aItem, '^', 1); + checkitem := Piece(aItem, '^', 2); + if checkfile = '0' then + begin + checkfile := checkitem; // if drug class any - 52,0;55,0 + checkitem := '0'; // if drug class item - go thru meds + end; + ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist); + if addtolist then aListBox.Items.Add(aItem); + if (checkfile = '50.605') and (checkitem = '0') then + begin + checkfile := '52'; + aItem := '0^52^ Medication,Outpatitent '; + ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist); + if addtolist then aListBox.Items.Add(aItem); + checkfile := '55'; + aItem := '0^55^ Medication,Inpatitent '; + ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist); + if addtolist then aListBox.Items.Add(aItem); + checkfile := '53.79'; + aItem := '0^53.79^ Medication,BCMA '; + ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist); + if addtolist then aListBox.Items.Add(aItem); + {checkfile := '55NVAE'; // nonvameds as events is not used + aItem := '0^55NVAE^ Medication,Non-VA-Event '; + ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist); + if addtolist then aListBox.Items.Add(aItem);} + checkfile := '55NVA'; + aItem := '0^55NVA^ Medication,Non-VA '; + ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist); + if addtolist then aListBox.Items.Add(aItem); + end; +end; + +procedure TfrmGraphProfiles.ArrangeList(aCheckFile, aCheckItem, aItem: string; + aListBox: TORListBox; var addtolist: boolean); +var + i: integer; + listfile, listitem: string; +begin + addtolist := true; + with aListBox do + for i := Items.Count - 1 downto 0 do + begin + listfile := Piece(Items[i], '^', 1); + listitem := Piece(Items[i], '^', 2); + if listfile = '0' then + begin + listfile := listitem; + listitem := '0'; + end; + if (aCheckItem = listitem) and (aCheckFile = listfile) then + begin + addtolist := false; + break; + end + else + if (listitem = '0') and (aCheckFile = listfile) then + begin + addtolist := false; + break; + end + else + if listitem = '0' then + begin + if aCheckFile = Piece(listfile, ';', 1) then + if Piece(aCheckItem, ';', 2) = Piece(listfile, ';', 2) then + begin + addtolist := false; + break; + end; + end + else + if (aCheckItem = '0') and (aCheckFile = listfile) then + Items.Delete(i); + end; +end; + +procedure TfrmGraphProfiles.AssignProfile(aList: TStrings; aProfile: string); +var + ext, stop: boolean; + i, j, k: integer; + dfn, itemname, itemnums, itempart, itempart1, itempart2, itemtest, typedata, teststring: string; +begin + ext := radSourceAll.Checked; + if ext then + begin + if Piece(aProfile, '^', 1) = '-2' then + FastAssign(rpcGetGraphProfiles(UpperCase(Piece(aProfile, '^', 2)), '1', 1), aList) + else + + if Piece(aProfile, '^', 1) = '-3' then // current selection on list + begin + if radSourcePat.Tag = 0 then + begin + dfn := lblClose.Hint; + FastAssign(rpcGetAllItems(dfn), lstTests.Items); //*** using a DFN, get all items + FastAssign(rpcGetItems('50.605', dfn), lstDrugClass.Items); + radSourcePat.Tag := 1; + end; + typedata := '0^-1^ ' + Piece(aProfile, '^', 2); + aProfile := Piece(aProfile, '^', 3); + aList.Clear; + aList.Add(typedata); + aList.Add('^' + LLS_LINE); + for i := 1 to BIG_NUMBER do + begin + itempart := Piece(aProfile, '|', i); + if itempart = '' then exit; + itempart1 := Piece(itempart, '~', 1); + itempart2 := Piece(itempart, '~', 2); + itemnums := itempart1 + '^' + itempart2; + itemname := ''; + for k := 0 to lstTests.Items.Count - 1 do + begin + itemtest := UpperCase(Pieces(lstTests.Items[k], '^', 1, 2)); + if itemtest = itemnums then + begin + itemname := Piece(lstTests.Items[k], '^', 3); + itemnums := itemnums + '^' + itemname; + aList.Add(itemnums); + break; + end; + end; + end; + end + + else + FastAssign(rpcGetGraphProfiles(UpperCase(Piece(aProfile, '^', 2)), '0', 1), aList); + for i := 0 to aList.Count -1 do + begin + teststring := aList[i]; + if Piece(teststring, '^', 1) = '0' then + aList[i] := '0^' + Piece(teststring, '^', 2) + '^_' + Piece(teststring, '^', 3); + end; + typedata := '0^' + Piece(aProfile, '^', 1) + '^ ' + Piece(aProfile, '^', 2); + aList.Insert(0, typedata); + aList.Insert(1, '^' + LLS_LINE); + exit; + end; + if Piece(aProfile, '^', 1) = '-2' then + begin + FastAssign(rpcGetGraphProfiles(UpperCase(Piece(aProfile, '^', 2)), '1', 0), lstScratch.Items); + typedata := '0^-1^ ' + Piece(aProfile, '^', 2); + end + else + if Piece(aProfile, '^', 1) = '-3' then // current selection on list + begin + lstScratch.Items.Clear; + lstScratch.Items.Add(Piece(aProfile, '^', 3)); + typedata := '0^-1^ ' + Piece(aProfile, '^', 2); + aProfile := '-1^' + Piece(aProfile, '^', 2) + '^'; + end + else + begin + FastAssign(rpcGetGraphProfiles(UpperCase(Piece(aProfile, '^', 2)), '0', 0), lstScratch.Items); + typedata := '0^' + Piece(aProfile, '^', 1) + '^ ' + Piece(aProfile, '^', 2); + end; + for i := 0 to lstScratch.Items.Count - 1 do + aProfile := aProfile + lstScratch.Items[i]; + aProfile := Piece(aProfile, '^', 3); + aList.Clear; + aList.Add(typedata); + aList.Add('^' + LLS_LINE); + for i := 1 to BIG_NUMBER do + begin + itempart := Piece(aProfile, '|', i); + if itempart = '' then exit; + itempart1 := Piece(itempart, '~', 1); + itempart2 := Piece(itempart, '~', 2); + itemnums := itempart1 + '^' + itempart2; + itemname := ''; + if itempart1 = '0' then + begin + for j := 0 to lstSource.Items.Count - 1 do + if itempart2 = Piece(lstSource.Items[j], '^', 1) then + begin + itemname := Piece(lstSource.Items[j], '^', 2); + break; + end; + typedata := '0^' + itempart2 + '^_' + itemname + ' '; + aList.Add(typedata); + end + else + if (itempart1 <> '0') then //DRUG CLASS NOT INCLUDED + begin + stop := false; + for k := 0 to lstTests.Items.Count - 1 do + begin + itemtest := UpperCase(Pieces(lstTests.Items[k], '^', 1, 2)); + if itemtest = itemnums then + begin + itemname := Piece(lstTests.Items[k], '^', 3); + itemnums := itemnums + '^' + itemname; + aList.Add(itemnums); + stop := true; + break; + end; + end; + if not stop then + for k := 0 to lstDrugClass.Items.Count - 1 do + begin + itemtest := UpperCase(Pieces(lstDrugClass.Items[k], '^', 1, 2)); + if itemtest = itemnums then + begin + itemname := Piece(lstDrugClass.Items[k], '^', 3); + itemnums := itemnums + '^' + itemname; + aList.Add(itemnums); + break; + end; + end; + end; + end; +end; + +procedure TfrmGraphProfiles.FillSource; +var + i: integer; + dfntype, listline: string; +begin + with lstSource do + begin + Sorted := true; + OnClick := OnChange; // turn off onchange event when loading + OnChange := nil; + FastAssign(rpcGetTypes('0', true), Items); + for i := 0 to Items.Count - 1 do + begin + listline := Items[i]; + dfntype := UpperCase(Piece(listline, '^', 1)); + SetPiece(listline, '^', 1, dfntype); + Items[i] := listline; + end; + //Items.Add('50.605^Drug Class'); + OnChange := OnClick; + OnClick := nil; + Sorted := false; + FastAssign(rpcGetGraphProfiles('1', '0', 0), lstScratch.Items); + if lstScratch.Items.Count > 0 then + begin + Items.Add(LLS_LINE); + for i := 0 to lstScratch.Items.Count - 1 do + Items.Add('-1^' + lstScratch.Items[i] + '^'); + end; + FastAssign(rpcGetGraphProfiles('1', '1', 0), lstScratch.Items); + if lstScratch.Items.Count > 0 then + begin + Items.Add(LLS_LINE); + for i := 0 to lstScratch.Items.Count - 1 do + Items.Add('-2^' + lstScratch.Items[i] + '^'); + end; + end; +end; + +function TfrmGraphProfiles.ProfileExists(aName: string; aType: integer): boolean; +var + i, sourcetype: integer; + info, profilename: string; +begin + Result := false; + aName := UpperCase(aName); + for i := lstSource.Items.Count - 1 downto 0 do + begin + info := lstSource.Items[i]; + profilename := Piece(info, '^', 2); + sourcetype := strtointdef(Piece(info, '^', 1), 0); + if (UpperCase(profilename) = aName) and (aType = sourcetype) then + begin + Result := true; + break; + end; + end; +end; + +procedure TfrmGraphProfiles.AssignHints; +var + i: integer; +begin // text defined in uGraphs + for i := 0 to ControlCount - 1 do with Controls[i] do + Controls[i].ShowHint := true; + RadSourcePat.Hint := HINT_PAT_SOURCE; + RadSourceAll.Hint := HINT_ALL_SOURCE; + lblSelectionInfo.Hint := HINT_SELECTION_INFO; + lblSource.Hint := HINT_SOURCE; + lstSource.Hint := HINT_SOURCE; + lblSelection.Hint := HINT_SELECTION; + lstItemsTopSelection.Hint := HINT_SELECTION; + cboAllItems.Hint := HINT_SELECTION; + lblDisplay.Hint := HINT_DISPLAY; + lstItemsDisplayed.Hint := HINT_DISPLAY; + btnAddAll.Hint := HINT_BTN_ADDALL; + btnAdd.Hint := HINT_BTN_ADD1; + btnRemoveOne.Hint := HINT_BTN_REMOVE1; + btnRemoveAll.Hint := HINT_BTN_REMOVEALL; + btnClear.Hint := HINT_BTN_CLEAR; + btnDelete.Hint := HINT_BTN_DELETE; + btnRename.Hint := HINT_BTN_RENAME; + btnSave.Hint := HINT_BTN_SAVE; + btnSavePublic.Hint := HINT_BTN_SAVE_PUB; + pnlApply.Hint := HINT_APPLY; + btnClose.Hint := HINT_BTN_CLOSE; +end; + +procedure TfrmGraphProfiles.wmNCLButtonDown(var Msg: TWMNCLButtonDown); +begin // clicking the ? button will have controls show hints + if Msg.HitTest = HTHELP then + begin + Msg.Result := 0; // ignore biHelp border icon + AssignHints; + ShowMessage('Help is now available.' + #13 + + 'By pausing over a list or control, hints will appear.'); + end + else + inherited; +end; + +procedure TfrmGraphProfiles.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Application.HintHidePause := FHintPauseTime; +end; + +end. diff --git a/CPRS-Chart/fGraphSettings.dfm b/CPRS-Chart/fGraphSettings.dfm new file mode 100644 index 0000000..1ca7f67 --- /dev/null +++ b/CPRS-Chart/fGraphSettings.dfm @@ -0,0 +1,414 @@ +object frmGraphSettings: TfrmGraphSettings + Left = 109 + Top = 60 + BorderIcons = [biSystemMenu, biHelp] + BorderStyle = bsDialog + Caption = 'Graph Settings' + ClientHeight = 304 + 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 + DesignSize = ( + 438 + 304) + PixelsPerInch = 96 + TextHeight = 13 + object lblMinGraphHeight: TLabel + Left = 311 + Top = 60 + Width = 110 + Height = 13 + Caption = 'Minimum Graph Height:' + ParentShowHint = False + ShowHint = False + end + object lblMaxGraphs: TLabel + Left = 311 + Top = 4 + Width = 108 + Height = 13 + Caption = 'Max Graphs in Display:' + ParentShowHint = False + ShowHint = False + end + object lblOptions: TLabel + Left = 179 + Top = 4 + Width = 39 + Height = 13 + Caption = 'Options:' + ParentShowHint = False + ShowHint = False + end + object bvlBase: TBevel + Left = 13 + Top = 271 + Width = 412 + Height = 2 + end + object lblSources: TLabel + Left = 16 + Top = 4 + Width = 91 + Height = 13 + Caption = 'Sources Displayed:' + ParentShowHint = False + ShowHint = False + end + object lblConversions: TLabel + Left = 311 + Top = 162 + Width = 46 + Height = 13 + Caption = 'Functions' + ParentShowHint = False + ShowHint = False + end + object lblMaxSelect: TLabel + Left = 311 + Top = 115 + Width = 96 + Height = 13 + Caption = 'Max Items to Select:' + ParentShowHint = False + ShowHint = False + WordWrap = True + end + object lblShow: TLabel + Left = 196 + Top = 217 + Width = 72 + Height = 13 + Alignment = taRightJustify + Caption = 'Show Defaults:' + ParentShowHint = False + ShowHint = False + end + object lblSave: TLabel + Left = 189 + Top = 249 + Width = 79 + Height = 13 + Alignment = taRightJustify + Caption = 'Save as Default:' + ParentShowHint = False + ShowHint = False + end + object bvlDefaults: TBevel + Left = 176 + Top = 205 + Width = 248 + Height = 2 + end + object lblOptionsInfo: TLabel + Left = 13 + Top = 281 + Width = 275 + Height = 13 + Caption = 'Settings saved as your defaults are applied to new graphs.' + ParentShowHint = False + ShowHint = False + WordWrap = True + end + object lblMaxGraphsRef: TLabel + Left = 374 + Top = 20 + Width = 57 + Height = 17 + AutoSize = False + ParentShowHint = False + ShowHint = False + end + object lblMinGraphHeightRef: TLabel + Left = 374 + Top = 80 + Width = 57 + Height = 17 + AutoSize = False + ParentShowHint = False + ShowHint = False + end + object lblMaxSelectRef: TLabel + Left = 374 + Top = 133 + Width = 57 + Height = 17 + AutoSize = False + ParentShowHint = False + ShowHint = False + end + object bvlMid: TBevel + Left = 176 + Top = 239 + Width = 248 + Height = 2 + end + object lstATypes: TListBox + Left = 253 + Top = 3 + Width = 45 + Height = 16 + Anchors = [akLeft, akTop, akRight] + ItemHeight = 13 + TabOrder = 17 + Visible = False + end + object lstSourcesCopy: TListBox + Left = 123 + Top = 4 + Width = 45 + Height = 16 + ItemHeight = 13 + Sorted = True + TabOrder = 16 + Visible = False + end + object chklstOptions: TCheckListBox + Left = 179 + Top = 20 + Width = 120 + Height = 179 + OnClickCheck = chklstOptionsClickCheck + ItemHeight = 13 + ParentShowHint = False + ShowHint = False + Sorted = True + TabOrder = 1 + end + object txtMinGraphHeight: TEdit + Left = 311 + Top = 78 + Width = 41 + Height = 21 + ParentShowHint = False + ShowHint = False + TabOrder = 4 + Text = '90' + OnChange = txtMinGraphHeightChange + OnExit = txtMinGraphHeightExit + OnKeyPress = txtMinGraphHeightKeyPress + end + object txtMaxGraphs: TEdit + Left = 311 + Top = 20 + Width = 41 + Height = 21 + ParentShowHint = False + ShowHint = False + TabOrder = 2 + Text = '5' + OnChange = txtMaxGraphsChange + OnExit = txtMaxGraphsExit + OnKeyPress = txtMaxGraphsKeyPress + end + object spnMinGraphHeight: TUpDown + Left = 352 + Top = 78 + Width = 15 + Height = 21 + Associate = txtMinGraphHeight + Min = 10 + Max = 1000 + ParentShowHint = False + Position = 90 + ShowHint = False + TabOrder = 5 + Wrap = False + OnClick = spnMinGraphHeightClick + end + object spnMaxGraphs: TUpDown + Left = 352 + Top = 20 + Width = 15 + Height = 21 + Associate = txtMaxGraphs + Min = 1 + Max = 20 + ParentShowHint = False + Position = 5 + ShowHint = False + TabOrder = 3 + Wrap = False + OnClick = spnMaxGraphsClick + end + object btnClose: TButton + Left = 350 + Top = 279 + Width = 75 + Height = 21 + Cancel = True + Caption = 'Close' + ParentShowHint = False + ShowHint = False + TabOrder = 15 + OnClick = btnCloseClick + end + object lstSources: TCheckListBox + Left = 16 + Top = 20 + Width = 153 + Height = 216 + ItemHeight = 13 + ParentShowHint = False + ShowHint = False + Sorted = True + TabOrder = 0 + end + object btnAll: TButton + Left = 18 + Top = 245 + Width = 65 + Height = 21 + Caption = 'All' + ParentShowHint = False + ShowHint = False + TabOrder = 9 + OnClick = btnAllClick + end + object brnClear: TButton + Left = 103 + Top = 245 + Width = 65 + Height = 21 + Cancel = True + Caption = 'Clear' + ParentShowHint = False + ShowHint = False + TabOrder = 10 + OnClick = btnAllClick + end + object btnPersonal: TButton + Left = 277 + Top = 213 + Width = 65 + Height = 21 + Cancel = True + Caption = 'Personal' + TabOrder = 11 + OnClick = btnPublicClick + end + object cboConversions: TORComboBox + Left = 311 + Top = 178 + Width = 116 + Height = 21 + Style = orcsDropDown + AutoSelect = True + Color = clWindow + DropDownCount = 8 + Items.Strings = ( + '' + 'Standard Deviations' + 'Inverse Values') + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + ParentShowHint = False + ShowHint = False + Sorted = False + SynonymChars = '<>' + TabOrder = 8 + CharsNeedMatch = 1 + end + object txtMaxSelect: TEdit + Left = 311 + Top = 131 + Width = 41 + Height = 21 + ParentShowHint = False + ShowHint = False + TabOrder = 6 + Text = '100' + OnChange = txtMaxSelectChange + OnExit = txtMaxSelectExit + OnKeyPress = txtMaxSelectKeyPress + end + object spnMaxSelect: TUpDown + Left = 352 + Top = 131 + Width = 15 + Height = 21 + Associate = txtMaxSelect + Min = 1 + Max = 1000 + ParentShowHint = False + Position = 100 + ShowHint = False + TabOrder = 7 + Wrap = False + OnClick = spnMaxSelectClick + end + object btnPublic: TButton + Left = 360 + Top = 213 + Width = 65 + Height = 21 + Cancel = True + Caption = 'Public' + ParentShowHint = False + ShowHint = False + TabOrder = 12 + OnClick = btnPublicClick + end + object btnPersonalSave: TButton + Left = 277 + Top = 245 + Width = 65 + Height = 21 + Cancel = True + Caption = 'Personal' + ParentShowHint = False + ShowHint = False + TabOrder = 13 + OnClick = SaveClick + end + object btnPublicSave: TButton + Left = 360 + Top = 245 + Width = 65 + Height = 21 + Cancel = True + Caption = 'Public' + ParentShowHint = False + ShowHint = False + TabOrder = 14 + OnClick = SaveClick + end + object lstOptions: TListBox + Left = 368 + Top = 160 + Width = 57 + Height = 17 + ItemHeight = 13 + Items.Strings = ( + '3D^A' + 'Clear Background^B' + 'Dates^C' + 'Fixed Date Range^M' + 'Gradient^D' + 'Hints^E' + 'Legend^F' + 'Lines^G' + 'Sort by Type^H' + 'Stay on Top^I' + 'Values^J' + 'Zoom, Horizontal^K' + 'Zoom, Vertical^L') + Sorted = True + TabOrder = 18 + Visible = False + end +end diff --git a/CPRS-Chart/fGraphSettings.pas b/CPRS-Chart/fGraphSettings.pas new file mode 100644 index 0000000..7cd8224 --- /dev/null +++ b/CPRS-Chart/fGraphSettings.pas @@ -0,0 +1,805 @@ +unit fGraphSettings; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, StdCtrls, ExtCtrls, CheckLst, Math, ORCtrls, ORFn, uGraphs; + +type + TfrmGraphSettings = class(TForm) + brnClear: TButton; + btnAll: TButton; + btnClose: TButton; + btnPersonal: TButton; + btnPersonalSave: TButton; + btnPublic: TButton; + btnPublicSave: TButton; + bvlBase: TBevel; + bvlDefaults: TBevel; + cboConversions: TORComboBox; + chklstOptions: TCheckListBox; + lblConversions: TLabel; + lblMaxGraphs: TLabel; + lblMaxGraphsRef: TLabel; + lblMaxSelect: TLabel; + lblMaxSelectRef: TLabel; + lblMinGraphHeight: TLabel; + lblMinGraphHeightRef: TLabel; + lblOptions: TLabel; + lblOptionsInfo: TLabel; + lblSave: TLabel; + lblShow: TLabel; + lblSources: TLabel; + lstATypes: TListBox; + lstSources: TCheckListBox; + lstSourcesCopy: TListBox; + spnMaxGraphs: TUpDown; + spnMaxSelect: TUpDown; + spnMinGraphHeight: TUpDown; + txtMaxGraphs: TEdit; + txtMaxSelect: TEdit; + txtMinGraphHeight: TEdit; + bvlMid: TBevel; + lstOptions: TListBox; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure btnAllClick(Sender: TObject); + procedure btnCloseClick(Sender: TObject); + procedure btnPublicClick(Sender: TObject); + procedure CheckSetting(setting: string; turnon: boolean); + procedure chklstOptionsClickCheck(Sender: TObject); + procedure SaveClick(Sender: TObject); + procedure spnMaxGraphsClick(Sender: TObject; Button: TUDBtnType); + procedure txtMaxGraphsChange(Sender: TObject); + procedure txtMaxGraphsExit(Sender: TObject); + procedure txtMaxGraphsKeyPress(Sender: TObject; var Key: Char); + procedure spnMinGraphHeightClick(Sender: TObject; Button: TUDBtnType); + procedure spnMaxSelectClick(Sender: TObject; Button: TUDBtnType); + procedure txtMinGraphHeightChange(Sender: TObject); + procedure txtMaxSelectChange(Sender: TObject); + procedure txtMinGraphHeightExit(Sender: TObject); + procedure txtMaxSelectExit(Sender: TObject); + procedure txtMinGraphHeightKeyPress(Sender: TObject; var Key: Char); + procedure txtMaxSelectKeyPress(Sender: TObject; var Key: Char); + procedure AssignHints; + function DisplaySettings: string; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + + private + { Private declarations } + FHintPauseTime: integer; + public + { Public declarations } + procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN; + end; + +var + frmGraphSettings: TfrmGraphSettings; + procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer; + var actiontype: boolean); + procedure DialogGraphSettings(fontsize: integer; var okbutton: boolean; + aGraphSetting: TGraphSetting; DisplaySource: TStrings; var conv: integer; var aSettings: string); + function FileNameX(filenum: string): string; + +implementation + +{$R *.DFM} + +uses + rGraphs; + +procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer; + var actiontype: boolean); +var + FGraphSetting: TGraphSetting; + aList, FSources, AllTypes: TStrings; + i, conv: integer; + aSettings, dfntype, listline, settings, settings1, t1, t2: string; +begin + aList := TStringList.Create; + FastAssign(rpcGetGraphSettings, aList); + if aList.Count < 1 then + begin + showmessage('CPRS is not configured for graphing.'); + aList.Free; + 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); + for i := 0 to AllTypes.Count - 1 do + begin + listline := AllTypes[i]; + dfntype := UpperCase(Piece(listline, '^', 1)); + SetPiece(listline, '^', 1, dfntype); + AllTypes[i] := listline; + end; + FGraphSetting := GraphSettingsInit(settings); + FSources := TStringList.Create; + for i := 0 to BIG_NUMBER do + begin + dfntype := Piece(settings1, ';', i); + if length(dfntype) = 0 then break; + listline := dfntype + '^' + FileNameX(dfntype) + '^1'; + FSources.Add(listline); + end; + conv := BIG_NUMBER; // indicates being called from Options + DialogGraphSettings(fontsize, actiontype, FGraphSetting, FSources, conv, aSettings); + FGraphSetting.Free; + aList.Free; + FSources.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 + okbutton := false; + aSettings := ''; + aList := TStringList.Create; + frmGraphSettings := TfrmGraphSettings.Create(Application); + try + with frmGraphSettings do + begin + 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; + 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; + ResizeAnchoredFormToFont(frmGraphSettings); + ShowModal; + okbutton := (btnClose.Tag = 1); + if okbutton then + 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; + end; + end; + finally + frmGraphSettings.Release; + aList.Free; + end; +end; + +function FileNameX(filenum: string): string; +var + i: integer; + typestring: string; + AllTypes: TStrings; +begin + Result := ''; + Alltypes := TStringList.Create; + for i := 0 to AllTypes.Count - 1 do + begin + typestring := AllTypes[i]; + if Piece(typestring, '^', 1) = filenum then + begin + Result := Piece(AllTypes[i], '^', 2); + break; + end; + end; + if Result = '' then + begin + for i := 0 to AllTypes.Count - 1 do + begin + typestring := AllTypes[i]; + if lowercase(Piece(typestring, '^', 1)) = filenum then + begin + Result := Piece(AllTypes[i], '^', 2); + break; + end; + end; + end; +end; + +procedure TfrmGraphSettings.FormCreate(Sender: TObject); +var + i: integer; +begin + btnPublicSave.Enabled := rpcPublicEdit; + lblConversions.Enabled := btnPublicSave.Enabled; + cboConversions.Enabled := btnPublicSave.Enabled; + for i := 0 to lstOptions.Items.Count - 1 do + chklstOptions.Items.Add(Piece(lstOptions.Items[i], '^', 1)); +end; + +procedure TfrmGraphSettings.btnAllClick(Sender: TObject); +var + i: integer; +begin + for i := 0 to lstSources.Count - 1 do + lstSources.Checked[i] := (Sender = btnAll); +end; + +procedure TfrmGraphSettings.btnCloseClick(Sender: TObject); +begin + btnClose.Tag := 1; // forces check for changes + btnClose.Hint := DisplaySettings; + Close; +end; + +function TfrmGraphSettings.DisplaySettings: string; +var + i: integer; + delim, settings, value: string; +begin + settings := ''; + delim := ''; + for i := 0 to lstSourcesCopy.Items.Count - 1 do + if lstSources.Checked[i] then + begin + settings := settings + delim + Piece(lstSourcesCopy.Items[i], '^', 2); + delim := ';'; + end; + settings := settings + '|'; + delim := ''; + for i := 0 to chklstOptions.Items.Count - 1 do + begin + value := ''; + if chklstOptions.Checked[i] then value := Piece(lstOptions.Items[i], '^', 2); + settings := settings + value; + end; + settings := settings + '|' + inttostr(lstOptions.Tag); // sortorder + settings := settings + '|'; + settings := settings + txtMaxGraphs.Text + '|'; + settings := settings + txtMinGraphHeight.Text + '|'; + settings := settings + '|'; // not used + settings := settings + txtMaxSelect.Text + '|'; + settings := settings + Piece(btnPublic.Hint, '|', 8) + '|'; + Result := settings; +end; + +procedure TfrmGraphSettings.btnPublicClick(Sender: TObject); +var + i, j, k: integer; + dfntype, filename, settings, settings1, settings2, value: string; +begin + if Sender = btnPublic then + settings := btnPublic.Hint + else + settings := btnPersonal.Hint; + settings1 := Piece(settings, '|', 1); + settings2 := Piece(settings, '|', 2); //piece 3 not used + spnMaxGraphs.Position := strtointdef(Piece(settings, '|', 4), 5); + spnMinGraphHeight.Position := strtointdef(Piece(settings, '|', 5), 90); //piece 6 not used + spnMaxSelect.Position := strtointdef(Piece(settings, '|', 7), 100); + spnMaxSelect.Max := strtointdef(Piece(settings, '|', 8), 1000); + spnMaxGraphs.Tag := spnMaxGraphs.Position; + spnMinGraphHeight.Tag := spnMinGraphHeight.Position; + spnMaxSelect.Tag := spnMaxSelect.Position; + for i := 0 to lstOptions.Items.Count - 1 do + begin + value := Piece(lstOptions.Items[i], '^', 2); + chklstOptions.Checked[i] := Pos(value, settings2) > 0; + end; + for i := 0 to lstSources.Items.Count -1 do + lstSources.Checked[i] := false; + for i := 0 to BIG_NUMBER do + begin + dfntype := Piece(settings1, ';', i); + if length(dfntype) = 0 then break; + for j := 0 to lstSourcesCopy.Items.Count - 1 do + if dfntype = Piece(lstSourcesCopy.Items[j], '^', 2) then + begin + filename := Piece(lstSourcesCopy.Items[j], '^', 1); + for k := 0 to lstSources.Items.Count - 1 do + if filename = lstSources.Items[k] then + begin + lstSources.Checked[k] := true; + break; + end; + break; + end; + end; +end; + +procedure TfrmGraphSettings.chklstOptionsClickCheck(Sender: TObject); +var + value: string; +begin + with chklstOptions do + begin + value := Piece(lstOptions.Items[ItemIndex], '^', 2); + if State[ItemIndex] = cbChecked then + if value = SETTING_CLEAR then + CheckSetting(SETTING_GRADIENT, false) + else if value = SETTING_GRADIENT then + CheckSetting(SETTING_CLEAR, false) + else if value = SETTING_VZOOM then + CheckSetting(SETTING_HZOOM, true); + if State[ItemIndex] = cbUnchecked then + if value = SETTING_HZOOM then + CheckSetting(SETTING_VZOOM, false); + end; +end; + +procedure TfrmGraphSettings.CheckSetting(setting: string; turnon: boolean); +var + i: integer; + value: string; +begin + for i := 0 to lstOptions.Items.Count -1 do + begin + value := Piece(lstOptions.Items[i], '^', 2); + if value = setting then + begin + chklstOptions.Checked[i] := turnon; + break; + end; + end; +end; + +procedure TfrmGraphSettings.SaveClick(Sender: TObject); +var + info, settings: string; +begin + if (Sender = btnPublicSave) then + info := 'This will change the PUBLIC default to these settings.' + else if (Sender = btnPersonalSave) then + info := 'This will change your personal default to these settings.'; + 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.'); + exit; + end; + settings := DisplaySettings; + if (Sender = btnPersonalSave) then + begin + rpcSetGraphSettings(settings, '0'); + btnPersonal.Hint := settings; + end; + if (Sender = btnPublicSave) then + begin + rpcSetGraphSettings(settings, '1'); + btnPublic.Hint := settings; + end; +end; + +procedure TfrmGraphSettings.spnMaxGraphsClick(Sender: TObject; + Button: TUDBtnType); +begin + txtMaxGraphs.SetFocus; + txtMaxGraphs.Tag := strtointdef(txtMaxGraphs.Text, spnMaxGraphs.Min); +end; + +procedure TfrmGraphSettings.txtMaxGraphsChange(Sender: TObject); +var + maxvalue, minvalue: integer; +begin + maxvalue := spnMaxGraphs.Max; + minvalue := spnMaxGraphs.Min; + if strtointdef(txtMaxGraphs.Text, maxvalue) > maxvalue then + begin + beep; + InfoBox('Number must be < ' + inttostr(maxvalue), 'Warning', MB_OK or MB_ICONWARNING); + if strtointdef(txtMaxGraphs.Text, 0) > maxvalue then + txtMaxGraphs.Text := inttostr(maxvalue); + end; + if strtointdef(txtMaxGraphs.Text, minvalue) < minvalue then + begin + beep; + InfoBox('Number must be > ' + inttostr(minvalue), 'Warning', MB_OK or MB_ICONWARNING); + if strtointdef(txtMaxGraphs.Text, 0) < minvalue then + txtMaxGraphs.Text := inttostr(minvalue); + end; + spnMaxGraphsClick(self, btNext); +end; + +procedure TfrmGraphSettings.txtMaxGraphsExit(Sender: TObject); +begin + with txtMaxGraphs do + if Text = '' then + begin + Text := inttostr(spnMaxGraphs.Min); + spnMaxGraphsClick(self, btNext); + end + else if (copy(Text, 1, 1) = '0') and (length(Text) > 1) then + begin + Text := inttostr(strtointdef(Text, 0)); + if Text = '0' then + Text := inttostr(spnMaxGraphs.Min); + spnMaxGraphsClick(self, btNext); + end; +end; + +procedure TfrmGraphSettings.txtMaxGraphsKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; + if not (Key in ['0'..'9', #8]) then + begin + Key := #0; + beep; + end; +end; + +procedure TfrmGraphSettings.spnMinGraphHeightClick(Sender: TObject; + Button: TUDBtnType); +begin + txtMinGraphHeight.SetFocus; + txtMinGraphHeight.Tag := strtointdef(txtMinGraphHeight.Text, spnMinGraphHeight.Min); +end; + +procedure TfrmGraphSettings.spnMaxSelectClick(Sender: TObject; + Button: TUDBtnType); +begin + txtMaxSelect.SetFocus; + txtMaxSelect.Tag := strtointdef(txtMaxSelect.Text, spnMaxSelect.Min); +end; + +procedure TfrmGraphSettings.txtMinGraphHeightChange(Sender: TObject); +var + maxvalue, minvalue: integer; +begin + maxvalue := spnMinGraphHeight.Max; + minvalue := spnMinGraphHeight.Min; + if strtointdef(txtMinGraphHeight.Text, maxvalue) > maxvalue then + begin + beep; + InfoBox('Number must be < ' + inttostr(maxvalue), 'Warning', MB_OK or MB_ICONWARNING); + if strtointdef(txtMinGraphHeight.Text, 0) > maxvalue then + txtMinGraphHeight.Text := inttostr(maxvalue); + end; + if strtointdef(txtMinGraphHeight.Text, minvalue) < minvalue then + if txtMinGraphHeight.Hint = KEYPRESS_OFF then + begin + beep; + InfoBox('Number must be > ' + inttostr(minvalue), 'Warning', MB_OK or MB_ICONWARNING); + if strtointdef(txtMinGraphHeight.Text, 0) < minvalue then + txtMinGraphHeight.Text := inttostr(minvalue); + end; + spnMinGraphHeightClick(self, btNext); + txtMinGraphHeight.Hint := KEYPRESS_OFF; +end; + +procedure TfrmGraphSettings.txtMaxSelectChange(Sender: TObject); +var + maxvalue, minvalue: integer; +begin + maxvalue := spnMaxSelect.Max; + minvalue := spnMaxSelect.Min; + if strtointdef(txtMaxSelect.Text, maxvalue) > maxvalue then + begin + beep; + InfoBox('Number must be < ' + inttostr(maxvalue), 'Warning', MB_OK or MB_ICONWARNING); + if strtointdef(txtMaxSelect.Text, 0) > maxvalue then + txtMaxSelect.Text := inttostr(maxvalue); + end; + if strtointdef(txtMaxSelect.Text, minvalue) < minvalue then + if txtMaxSelect.Hint = KEYPRESS_OFF then + begin + beep; + InfoBox('Number must be > ' + inttostr(minvalue), 'Warning', MB_OK or MB_ICONWARNING); + if strtointdef(txtMaxSelect.Text, 0) < minvalue then + txtMaxSelect.Text := inttostr(minvalue); + end; + spnMaxSelectClick(self, btNext); + txtMaxSelect.Hint := KEYPRESS_OFF; +end; + +procedure TfrmGraphSettings.txtMinGraphHeightExit(Sender: TObject); +begin + with txtMinGraphHeight do + if Text = '' then + begin + Text := inttostr(spnMinGraphHeight.Min); + spnMinGraphHeightClick(self, btNext); + end + else if (copy(Text, 1, 1) = '0') and (length(Text) > 1) then + begin + Text := inttostr(strtointdef(Text, 0)); + if Text = '0' then + Text := inttostr(spnMinGraphHeight.Min); + spnMinGraphHeightClick(self, btNext); + end + else if strtointdef(txtMinGraphHeight.Text, spnMinGraphHeight.Min) < spnMinGraphHeight.Min then + begin + Text := inttostr(spnMinGraphHeight.Min); + spnMinGraphHeightClick(self, btNext); + end; +end; + +procedure TfrmGraphSettings.txtMaxSelectExit(Sender: TObject); +begin + with txtMaxSelect do + if Text = '' then + begin + Text := inttostr(spnMaxSelect.Min); + spnMaxSelectClick(self, btNext); + end + else if (copy(Text, 1, 1) = '0') and (length(Text) > 1) then + begin + Text := inttostr(strtointdef(Text, 0)); + if Text = '0' then + Text := inttostr(spnMaxSelect.Min); + spnMaxSelectClick(self, btNext); + end + else if strtointdef(txtMaxSelect.Text, spnMaxSelect.Min) < spnMaxSelect.Min then + begin + Text := inttostr(spnMaxSelect.Min); + spnMaxSelectClick(self, btNext); + end; +end; + +procedure TfrmGraphSettings.txtMinGraphHeightKeyPress(Sender: TObject; + var Key: Char); +begin + txtMinGraphHeight.Hint := KEYPRESS_OFF; + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; + if not (Key in ['0'..'9', #8]) then + begin + Key := #0; + beep; + exit; + end; + txtMinGraphHeight.Hint := KEYPRESS_ON; +end; + +procedure TfrmGraphSettings.txtMaxSelectKeyPress(Sender: TObject; + var Key: Char); +begin + txtMaxSelect.Hint := KEYPRESS_OFF; + if Key = #13 then + begin + Perform(WM_NextDlgCtl, 0, 0); + exit; + end; + if not (Key in ['0'..'9', #8]) then + begin + Key := #0; + beep; + exit; + end; + txtMaxSelect.Hint := KEYPRESS_ON; +end; + +procedure TfrmGraphSettings.FormShow(Sender: TObject); +begin + if Caption = 'Graph Settings - Defaults Only' then + btnPersonal.SetFocus; + FHintPauseTime := Application.HintHidePause; + Application.HintHidePause := 9000; // uses a longer hint pause time +end; + +procedure TfrmGraphSettings.AssignHints; +var + i: integer; +begin // text defined in uGraphs + for i := 0 to ControlCount - 1 do with Controls[i] do + Controls[i].ShowHint := true; + lblSources.Hint := SHINT_SOURCES; + lstSources.Hint := SHINT_SOURCES; + lblOptions.Hint := SHINT_OPTIONS; + chklstOptions.Hint := SHINT_OPTIONS; + btnAll.Hint := SHINT_BTN_ALL; + brnClear.Hint := SHINT_BTN_CLEAR; + lblShow.Hint := SHINT_BTN_SHOW; + lblSave.Hint := SHINT_BTN_SAVE; + btnPersonal.Hint := SHINT_BTN_PER; + btnPersonalSave.Hint := SHINT_BTN_PERSAVE; + btnPublic.Hint := SHINT_BTN_PUB; + btnPublicSave.Hint := SHINT_BTN_PUBSAVE; + lblOptionsInfo.Hint := SHINT_BTN_CLOSE; + btnClose.Hint := SHINT_BTN_CLOSE; + lblMaxGraphs.Hint := SHINT_MAX; + txtMaxGraphs.Hint := SHINT_MAX; + spnMaxGraphs.Hint := SHINT_MAX; + lblMaxGraphsRef.Hint := SHINT_MAX ; + lblMinGraphHeight.Hint := SHINT_MIN; + txtMinGraphHeight.Hint := SHINT_MIN; + spnMinGraphHeight.Hint := SHINT_MIN; + lblMinGraphHeightRef.Hint := SHINT_MIN; + lblMaxSelect.Hint := SHINT_MAX_ITEMS; + txtMaxSelect.Hint := SHINT_MAX_ITEMS; + spnMaxSelect.Hint := SHINT_MAX_ITEMS; + lblMaxSelectRef.Hint := SHINT_MAX_ITEMS; + lblConversions.Hint := SHINT_FUNCTIONS; + cboConversions.Hint := SHINT_FUNCTIONS; +end; + +procedure TfrmGraphSettings.wmNCLButtonDown(var Msg: TWMNCLButtonDown); +begin // clicking the ? button will have controls show hints + if Msg.HitTest = HTHELP then + begin + Msg.Result := 0; // ignore biHelp border icon + AssignHints; + ShowMessage('Help is now available.' + #13 + + 'By pausing over a list or control, hints will appear.'); + end + else + inherited; +end; + +procedure TfrmGraphSettings.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Application.HintHidePause := FHintPauseTime; +end; + +end. diff --git a/CPRS-Chart/fGraphs.dfm b/CPRS-Chart/fGraphs.dfm new file mode 100644 index 0000000..74d40a0 --- /dev/null +++ b/CPRS-Chart/fGraphs.dfm @@ -0,0 +1,1243 @@ +object frmGraphs: TfrmGraphs + Left = 524 + Top = 105 + BorderIcons = [] + BorderStyle = bsNone + Caption = 'CPRS Graphing - CPRSpatient,One' + ClientHeight = 412 + ClientWidth = 592 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + PopupMenu = mnuPopGraphStuff + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object pnlHeader: TPanel + Left = 0 + Top = 0 + Width = 592 + Height = 21 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object pnlTemp: TPanel + Left = 416 + Top = 0 + Width = 73 + Height = 17 + TabOrder = 1 + Visible = False + end + object pnlInfo: TORAutoPanel + Left = 0 + Top = 0 + Width = 592 + Height = 21 + Align = alClient + BevelOuter = bvNone + Caption = 'Select multiple items using Ctrl-click or Shift-click.' + Color = clCream + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object chartBase: TChart + Left = 145 + Top = 0 + Width = 105 + Height = 17 + AllowPanning = pmNone + AllowZoom = False + BackWall.Brush.Color = clWhite + BackWall.Brush.Style = bsClear + Gradient.EndColor = clPurple + Gradient.Visible = True + Title.Text.Strings = ( + 'fsdfs dfs fsd') + Title.Visible = False + OnClickLegend = chartBaseClickLegend + OnClickSeries = chartBaseClickSeries + OnUndoZoom = ChartOnUndoZoom + OnZoom = ChartOnZoom + BottomAxis.Automatic = False + BottomAxis.AutomaticMaximum = False + BottomAxis.AutomaticMinimum = False + BottomAxis.Increment = 0.000694444444444444 + BottomAxis.Maximum = 25 + BottomAxis.Visible = False + Legend.Alignment = laTop + Legend.LegendStyle = lsSeries + Legend.ResizeChart = False + TopAxis.LabelsOnAxis = False + View3D = False + Color = clRed + TabOrder = 0 + Visible = False + OnDblClick = mnuPopGraphDetailsClick + OnMouseDown = chartBaseMouseDown + end + end + object pnlFooter: TPanel + Left = 0 + Top = 383 + Width = 592 + Height = 29 + Align = alBottom + BevelOuter = bvNone + TabOrder = 2 + object lblDateRange: TLabel + Left = 3 + Top = 8 + Width = 61 + Height = 13 + Caption = 'Date Range:' + end + object btnClose: TButton + Left = 510 + Top = 4 + Width = 70 + Height = 21 + Caption = 'Close' + TabOrder = 4 + OnClick = btnCloseClick + end + object btnChangeSettings: TButton + Left = 380 + Top = 4 + Width = 85 + Height = 21 + Caption = 'Settings...' + TabOrder = 3 + OnClick = btnChangeSettingsClick + end + object cboDateRange: TORComboBox + Left = 68 + Top = 4 + Width = 121 + 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 = 0 + TabStop = True + OnChange = cboDateRangeChange + OnDropDown = cboDateRangeDropDown + CharsNeedMatch = 1 + end + object chkDualViews: TCheckBox + Left = 197 + Top = 7 + Width = 85 + Height = 17 + Caption = 'Split Views' + TabOrder = 1 + OnClick = chkDualViewsClick + end + object btnGraphSelections: TButton + Left = 284 + Top = 4 + Width = 85 + Height = 21 + Caption = 'Select/Define...' + TabOrder = 2 + OnClick = btnGraphSelectionsClick + end + end + object pnlMain: TPanel + Left = 0 + Top = 21 + Width = 592 + Height = 362 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + object splGraphs: TSplitter + Left = 0 + Top = 261 + Width = 592 + Height = 3 + Cursor = crVSplit + Align = alBottom + Beveled = True + Color = clBtnShadow + ParentColor = False + OnMoved = splGraphsMoved + end + object pnlTop: TPanel + Tag = 1 + Left = 0 + Top = 0 + Width = 592 + Height = 261 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object splItemsTop: TSplitter + Left = 148 + Top = 0 + Width = 2 + Height = 261 + Cursor = crHSplit + AutoSnap = False + Beveled = True + MinSize = 15 + OnMoved = splItemsTopMoved + end + object pnlItemsTop: TPanel + Left = 0 + Top = 0 + Width = 148 + Height = 261 + Align = alLeft + BevelOuter = bvNone + TabOrder = 0 + object pnlItemsTopInfo: TPanel + Left = 0 + Top = 0 + Width = 148 + Height = 25 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + DesignSize = ( + 148 + 25) + object bvlBottomLeft: TBevel + Left = 0 + Top = 0 + Width = 2 + Height = 25 + Align = alLeft + end + object bvlBottomRight: TBevel + Left = 146 + Top = 0 + Width = 2 + Height = 25 + Align = alRight + Visible = False + end + object lblViewsTop: TOROffsetLabel + Left = 2 + Top = 0 + Width = 28 + Height = 25 + Align = alLeft + Caption = 'View:' + HorzOffset = 2 + Transparent = False + VertOffset = 8 + WordWrap = False + end + object chkItemsTop: TCheckBox + Left = 40 + Top = 5 + Width = 105 + Height = 20 + Alignment = taLeftJustify + Anchors = [akTop, akRight] + Caption = 'Individual Graphs' + TabOrder = 0 + OnClick = chkItemsTopClick + end + end + object lvwItemsTop: TListView + Left = 0 + Top = 46 + Width = 148 + Height = 215 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Columns = < + item + Caption = 'Item' + Width = 100 + end + item + Caption = 'Type' + Width = 60 + end + item + Caption = 'View' + Width = 40 + end + item + Caption = 'Classification' + end> + HideSelection = False + MultiSelect = True + ReadOnly = True + RowSelect = True + ParentShowHint = False + ShowHint = False + TabOrder = 2 + ViewStyle = vsReport + OnChange = lvwItemsTopChange + OnClick = lvwItemsTopClick + OnColumnClick = lvwItemsTopColumnClick + OnCompare = lvwItemsTopCompare + OnEnter = lvwItemsTopEnter + OnKeyDown = lvwItemsTopKeyDown + end + object pnlViewsTopSpacer: TPanel + Left = 0 + Top = 25 + Width = 148 + Height = 21 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + object cboViewsTop: TORComboBox + Left = 0 + Top = 0 + Width = 140 + Height = 21 + Style = orcsDropDown + Align = alClient + AutoSelect = True + Color = clWindow + DropDownCount = 12 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + TabStop = True + OnChange = cboViewsTopChange + OnDropDown = cboViewsTopDropDown + OnDropDownClose = cboViewsTopDropDownClose + CharsNeedMatch = 1 + end + object pnlViewsTopSpacerRight: TPanel + Left = 140 + Top = 0 + Width = 8 + Height = 21 + Align = alRight + BevelOuter = bvNone + TabOrder = 1 + end + end + end + object pnlTopRightPad: TPanel + Tag = 50 + Left = 577 + Top = 0 + Width = 15 + Height = 261 + Align = alRight + BevelOuter = bvNone + TabOrder = 1 + end + object pnlScrollTopBase: TPanel + Left = 150 + Top = 0 + Width = 427 + Height = 261 + Align = alClient + BevelOuter = bvNone + TabOrder = 2 + OnResize = pnlScrollTopBaseResize + object pnlBlankTop: TPanel + Left = 0 + Top = 233 + Width = 427 + Height = 20 + Align = alClient + BevelOuter = bvNone + TabOrder = 3 + Visible = False + end + object scrlTop: TScrollBox + Tag = 5 + Left = 0 + Top = 233 + Width = 427 + Height = 20 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Color = clBtnFace + ParentColor = False + TabOrder = 0 + end + object pnlDatelineTop: TPanel + Left = 0 + Top = 231 + Width = 427 + Height = 30 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + object chartDatelineTop: TChart + Left = 20 + Top = 0 + Width = 407 + Height = 30 + AllowPanning = pmNone + BackWall.Brush.Color = clWhite + BackWall.Brush.Style = bsClear + BackWall.Pen.Visible = False + Gradient.EndColor = clWhite + Gradient.StartColor = 8421631 + Title.Text.Strings = ( + '') + Title.Visible = False + OnClickLegend = chartBaseClickLegend + OnClickSeries = chartBaseClickSeries + OnUndoZoom = ChartOnUndoZoom + OnZoom = ChartOnZoom + BottomAxis.Automatic = False + BottomAxis.AutomaticMaximum = False + BottomAxis.AutomaticMinimum = False + BottomAxis.DateTimeFormat = 'M/d/yyyy' + BottomAxis.Increment = 0.000694444444444444 + BottomAxis.Maximum = 25 + Frame.Visible = False + LeftAxis.Automatic = False + LeftAxis.AutomaticMaximum = False + LeftAxis.AutomaticMinimum = False + LeftAxis.Axis.Visible = False + LeftAxis.Grid.Visible = False + LeftAxis.Labels = False + LeftAxis.LabelsOnAxis = False + LeftAxis.Maximum = 9 + LeftAxis.MinorGrid.Visible = True + LeftAxis.RoundFirstLabel = False + LeftAxis.Title.Caption = ' ' + LeftAxis.Visible = False + Legend.Alignment = laBottom + Legend.Color = clCream + Legend.LegendStyle = lsSeries + Legend.ShadowSize = 1 + Legend.Visible = False + RightAxis.Automatic = False + RightAxis.AutomaticMaximum = False + RightAxis.AutomaticMinimum = False + RightAxis.Axis.Visible = False + RightAxis.Labels = False + RightAxis.LabelsOnAxis = False + RightAxis.RoundFirstLabel = False + RightAxis.Visible = False + TopAxis.LabelsOnAxis = False + View3D = False + View3DWalls = False + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + OnDblClick = mnuPopGraphDetailsClick + OnMouseDown = chartBaseMouseDown + object serDatelineTop: TGanttSeries + ColorEachPoint = True + Marks.ArrowLength = 0 + Marks.Visible = False + SeriesColor = clRed + ShowInLegend = False + OnGetMarkText = serDatelineTopGetMarkText + Pointer.InflateMargins = False + Pointer.Style = psRectangle + Pointer.Visible = True + XValues.DateTime = True + XValues.Name = 'Start' + XValues.Multiplier = 1 + XValues.Order = loAscending + YValues.DateTime = False + YValues.Name = 'Y' + YValues.Multiplier = 1 + YValues.Order = loNone + StartValues.DateTime = True + StartValues.Name = 'Start' + StartValues.Multiplier = 1 + StartValues.Order = loAscending + EndValues.DateTime = True + EndValues.Name = 'End' + EndValues.Multiplier = 1 + EndValues.Order = loNone + NextTask.DateTime = False + NextTask.Name = 'NextTask' + NextTask.Multiplier = 1 + NextTask.Order = loNone + end + end + object pnlDatelineTopSpacer: TORAutoPanel + Left = 0 + Top = 0 + Width = 20 + Height = 30 + Align = alLeft + BevelOuter = bvNone + TabOrder = 1 + end + end + object pnlData: TPanel + Left = 0 + Top = 0 + Width = 427 + Height = 233 + Align = alTop + Caption = 'pnlData' + TabOrder = 2 + Visible = False + DesignSize = ( + 427 + 233) + object lstZoomHistory: TListBox + Left = 336 + Top = 4 + Width = 82 + Height = 33 + Anchors = [akLeft, akTop, akRight] + ItemHeight = 13 + TabOrder = 22 + end + object lstTypes: TListBox + Left = 8 + Top = 119 + Width = 413 + Height = 33 + Anchors = [akLeft, akTop, akRight] + ItemHeight = 13 + TabOrder = 0 + end + object lstItemsTemp: TListBox + Left = 8 + Top = 4 + Width = 73 + Height = 33 + ItemHeight = 13 + TabOrder = 1 + end + object lstAllTypes: TListBox + Left = 254 + Top = 4 + Width = 82 + Height = 33 + Anchors = [akLeft, akTop, akRight] + ItemHeight = 13 + TabOrder = 2 + end + object lstItems: TListBox + Left = 8 + Top = 158 + Width = 413 + Height = 33 + Anchors = [akLeft, akTop, akRight] + ItemHeight = 13 + TabOrder = 3 + end + object lstData: TListBox + Left = 8 + Top = 81 + Width = 413 + Height = 33 + Anchors = [akLeft, akTop, akRight] + ItemHeight = 13 + TabOrder = 4 + end + object lstSpec2: TListBox + Left = 188 + Top = 43 + Width = 42 + Height = 33 + ItemHeight = 13 + TabOrder = 5 + end + object lstSpec1: TListBox + Left = 143 + Top = 43 + Width = 42 + Height = 33 + ItemHeight = 13 + TabOrder = 6 + end + object lstSpec3: TListBox + Left = 233 + Top = 43 + Width = 42 + Height = 33 + ItemHeight = 13 + TabOrder = 7 + end + object lstSpec4: TListBox + Left = 278 + Top = 43 + Width = 42 + Height = 33 + ItemHeight = 13 + TabOrder = 8 + end + object lstMultiSpec: TListBox + Left = 320 + Top = 43 + Width = 45 + Height = 33 + ItemHeight = 13 + TabOrder = 10 + end + object lstTestSpec: TListBox + Left = 368 + Top = 43 + Width = 42 + Height = 33 + ItemHeight = 13 + TabOrder = 11 + end + object lstSelCopyBottom: TListBox + Left = 283 + Top = 195 + Width = 41 + Height = 33 + ItemHeight = 13 + TabOrder = 15 + end + object lstTempCheck: TListBox + Left = 53 + Top = 195 + Width = 41 + Height = 33 + ItemHeight = 13 + MultiSelect = True + TabOrder = 18 + end + object lstViews: TListBox + Left = 191 + Top = 195 + Width = 41 + Height = 33 + ItemHeight = 13 + MultiSelect = True + TabOrder = 19 + end + object lstScratchTemp: TListBox + Left = 53 + Top = 43 + Width = 42 + Height = 33 + ItemHeight = 13 + TabOrder = 20 + end + object lstScratchLab: TListBox + Left = 98 + Top = 43 + Width = 42 + Height = 33 + ItemHeight = 13 + TabOrder = 21 + end + object lstCheck: TListBox + Left = 172 + Top = 5 + Width = 73 + Height = 33 + ItemHeight = 13 + MultiSelect = True + TabOrder = 13 + end + object lstSelCopyTop: TListBox + Left = 237 + Top = 195 + Width = 41 + Height = 33 + ItemHeight = 13 + TabOrder = 16 + end + object lstScratchSwap: TListBox + Left = 8 + Top = 43 + Width = 41 + Height = 33 + ItemHeight = 13 + TabOrder = 9 + end + object lstNonNumeric: TListBox + Left = 90 + Top = 4 + Width = 79 + Height = 33 + ItemHeight = 13 + TabOrder = 12 + end + object lstDrugClass: TListBox + Left = 8 + Top = 195 + Width = 41 + Height = 33 + ItemHeight = 13 + TabOrder = 14 + end + object lstSelPrevTop: TListBox + Left = 329 + Top = 195 + Width = 41 + Height = 33 + ItemHeight = 13 + TabOrder = 23 + end + object lstSelPrevBottom: TListBox + Left = 375 + Top = 195 + Width = 41 + Height = 33 + ItemHeight = 13 + TabOrder = 24 + end + object lstTemp: TListBox + Left = 99 + Top = 195 + Width = 41 + Height = 33 + ItemHeight = 13 + MultiSelect = True + TabOrder = 17 + end + object lstComp: TListBox + Left = 145 + Top = 195 + Width = 41 + Height = 33 + ItemHeight = 13 + MultiSelect = True + TabOrder = 25 + end + end + end + end + object pnlBottom: TPanel + Tag = 1 + Left = 0 + Top = 264 + Width = 592 + Height = 98 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + object splItemsBottom: TSplitter + Left = 148 + Top = 0 + Width = 2 + Height = 98 + Cursor = crHSplit + AutoSnap = False + Beveled = True + MinSize = 15 + OnMoved = splItemsBottomMoved + end + object pnlItemsBottom: TPanel + Left = 0 + Top = 0 + Width = 148 + Height = 98 + Align = alLeft + BevelOuter = bvNone + TabOrder = 0 + object pnlItemsBottomInfo: TPanel + Left = 0 + Top = 0 + Width = 148 + Height = 25 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + DesignSize = ( + 148 + 25) + object bvlTopLeft: TBevel + Left = 0 + Top = 0 + Width = 2 + Height = 25 + Align = alLeft + end + object bvlTopRight: TBevel + Left = 146 + Top = 0 + Width = 2 + Height = 25 + Align = alRight + Visible = False + end + object lblViewsBottom: TOROffsetLabel + Left = 2 + Top = 0 + Width = 28 + Height = 25 + Align = alLeft + Caption = 'View:' + HorzOffset = 2 + Transparent = False + VertOffset = 8 + WordWrap = False + end + object chkItemsBottom: TCheckBox + Left = 40 + Top = 5 + Width = 105 + Height = 20 + Alignment = taLeftJustify + Anchors = [akTop, akRight] + Caption = 'Individual Graphs' + TabOrder = 0 + OnClick = chkItemsBottomClick + OnEnter = chkItemsBottomEnter + end + end + object lvwItemsBottom: TListView + Left = 0 + Top = 46 + Width = 148 + Height = 52 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Columns = < + item + Caption = 'Item' + Width = 100 + end + item + Caption = 'Type' + Width = 60 + end + item + Caption = 'View' + Width = 40 + end + item + Caption = 'Classification' + end> + HideSelection = False + MultiSelect = True + ReadOnly = True + RowSelect = True + ParentShowHint = False + ShowHint = False + TabOrder = 2 + ViewStyle = vsReport + OnChange = lvwItemsBottomChange + OnClick = lvwItemsBottomClick + OnColumnClick = lvwItemsBottomColumnClick + OnCompare = lvwItemsBottomCompare + OnEnter = lvwItemsBottomEnter + OnKeyDown = lvwItemsTopKeyDown + end + object pnlViewsBottomSpacer: TPanel + Left = 0 + Top = 25 + Width = 148 + Height = 21 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + object cboViewsBottom: TORComboBox + Left = 0 + Top = 0 + Width = 140 + Height = 21 + Style = orcsDropDown + Align = alClient + AutoSelect = True + Color = clWindow + DropDownCount = 12 + ItemHeight = 13 + ItemTipColor = clWindow + ItemTipEnable = True + ListItemsOnly = False + LongList = False + LookupPiece = 0 + MaxLength = 0 + Pieces = '2' + Sorted = False + SynonymChars = '<>' + TabOrder = 0 + TabStop = True + OnChange = cboViewsBottomChange + OnDropDown = cboViewsBottomDropDown + OnDropDownClose = cboViewsBottomDropDownClose + OnEnter = cboViewsBottomEnter + CharsNeedMatch = 1 + end + object pnlViewsBottomSpacerRight: TPanel + Left = 140 + Top = 0 + Width = 8 + Height = 21 + Align = alRight + BevelOuter = bvNone + TabOrder = 1 + end + end + end + object pnlBottomRightPad: TPanel + Tag = 50 + Left = 577 + Top = 0 + Width = 15 + Height = 98 + Align = alRight + BevelOuter = bvNone + TabOrder = 1 + end + object pnlScrollBottomBase: TPanel + Left = 150 + Top = 0 + Width = 427 + Height = 98 + Align = alClient + BevelOuter = bvNone + TabOrder = 2 + object pnlBlankBottom: TPanel + Left = 0 + Top = 0 + Width = 427 + Height = 68 + Align = alClient + BevelOuter = bvNone + TabOrder = 2 + Visible = False + end + object pnlDatelineBottom: TPanel + Left = 0 + Top = 68 + Width = 427 + Height = 30 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + object chartDatelineBottom: TChart + Left = 20 + Top = 0 + Width = 407 + Height = 30 + AllowPanning = pmNone + BackWall.Brush.Color = clWhite + BackWall.Brush.Style = bsClear + BackWall.Pen.Visible = False + Gradient.EndColor = clGradientActiveCaption + Title.Text.Strings = ( + '') + Title.Visible = False + OnClickLegend = chartBaseClickLegend + OnClickSeries = chartBaseClickSeries + OnUndoZoom = ChartOnUndoZoom + OnZoom = ChartOnZoom + BottomAxis.Automatic = False + BottomAxis.AutomaticMaximum = False + BottomAxis.AutomaticMinimum = False + BottomAxis.DateTimeFormat = 'M/d/yyyy' + BottomAxis.Increment = 0.000694444444444444 + BottomAxis.Maximum = 25 + Frame.Visible = False + LeftAxis.Automatic = False + LeftAxis.AutomaticMaximum = False + LeftAxis.AutomaticMinimum = False + LeftAxis.Axis.Visible = False + LeftAxis.ExactDateTime = False + LeftAxis.Labels = False + LeftAxis.LabelsOnAxis = False + LeftAxis.Maximum = 9 + LeftAxis.MinorGrid.Visible = True + LeftAxis.RoundFirstLabel = False + LeftAxis.Title.Caption = ' ' + Legend.Alignment = laBottom + Legend.Color = clCream + Legend.LegendStyle = lsSeries + Legend.ShadowSize = 1 + Legend.Visible = False + RightAxis.Automatic = False + RightAxis.AutomaticMaximum = False + RightAxis.AutomaticMinimum = False + RightAxis.Axis.Visible = False + RightAxis.Labels = False + RightAxis.LabelsOnAxis = False + RightAxis.RoundFirstLabel = False + RightAxis.Visible = False + TopAxis.LabelsOnAxis = False + View3D = False + View3DWalls = False + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + OnDblClick = mnuPopGraphDetailsClick + OnMouseDown = chartBaseMouseDown + object serDatelineBottom: TGanttSeries + ColorEachPoint = True + Marks.ArrowLength = 0 + Marks.Visible = False + SeriesColor = clRed + ShowInLegend = False + OnGetMarkText = serDatelineTopGetMarkText + Pointer.InflateMargins = True + Pointer.Style = psRectangle + Pointer.Visible = True + XValues.DateTime = True + XValues.Name = 'Start' + XValues.Multiplier = 1 + XValues.Order = loAscending + YValues.DateTime = False + YValues.Name = 'Y' + YValues.Multiplier = 1 + YValues.Order = loNone + StartValues.DateTime = True + StartValues.Name = 'Start' + StartValues.Multiplier = 1 + StartValues.Order = loAscending + EndValues.DateTime = True + EndValues.Name = 'End' + EndValues.Multiplier = 1 + EndValues.Order = loNone + NextTask.DateTime = False + NextTask.Name = 'NextTask' + NextTask.Multiplier = 1 + NextTask.Order = loNone + end + end + object pnlDatelineBottomSpacer: TORAutoPanel + Left = 0 + Top = 0 + Width = 20 + Height = 30 + Align = alLeft + BevelOuter = bvNone + TabOrder = 1 + end + end + object scrlBottom: TScrollBox + Tag = 5 + Left = 0 + Top = 0 + Width = 427 + Height = 68 + Align = alClient + BevelInner = bvNone + BorderStyle = bsNone + Color = clBtnFace + ParentColor = False + TabOrder = 0 + end + end + end + end + object mnuPopGraphStuff: TPopupMenu + OnPopup = mnuPopGraphStuffPopup + Left = 4 + object mnuPopGraphDetails: TMenuItem + Caption = 'Details...' + Enabled = False + OnClick = mnuPopGraphDetailsClick + end + object mnuPopGraphDefineViews: TMenuItem + Caption = 'Select/Define...' + OnClick = btnGraphSelectionsClick + end + object mnuPopGraphChangeViews: TMenuItem + Caption = 'Settings...' + OnClick = btnChangeSettingsClick + end + object N4: TMenuItem + Caption = '-' + end + object mnuPopGraphReset: TMenuItem + Caption = 'Reset Display' + ShortCut = 45 + OnClick = mnuPopGraphResetClick + end + object mnuPopGraphZoomBack: TMenuItem + Caption = 'Zoom Back' + Enabled = False + ShortCut = 46 + OnClick = mnuPopGraphZoomBackClick + end + object mnuPopGraphSplit: TMenuItem + Caption = 'Split Numerics/Events' + OnClick = mnuPopGraphSplitClick + end + object mnuPopGraphSwap: TMenuItem + Caption = 'Swap' + OnClick = mnuPopGraphSwapClick + end + object mnuPopGraphIsolate: TMenuItem + Caption = 'Move' + Enabled = False + OnClick = mnuPopGraphIsolateClick + end + object mnuPopGraphRemove: TMenuItem + Caption = 'Remove' + Enabled = False + OnClick = mnuPopGraphRemoveClick + end + object N1: TMenuItem + Caption = '-' + end + object mnuPopGraphStayOnTop: TMenuItem + Caption = 'Stay on Top' + OnClick = mnuPopGraphStayOnTopClick + end + object mnuPopGraphDualViews: TMenuItem + Caption = 'Dual Views' + Visible = False + OnClick = mnuPopGraphDualViewsClick + end + object mnuPopGraphSeparate1: TMenuItem + Caption = 'Individual Graphs' + Visible = False + OnClick = mnuPopGraphSeparate1Click + end + object mnuPopGraph3D: TMenuItem + Caption = '3D' + OnClick = mnuPopGraph3DClick + end + object mnuPopGraphLegend: TMenuItem + Caption = 'Legend' + Visible = False + OnClick = mnuPopGraphLegendClick + end + object mnuPopGraphValues: TMenuItem + Caption = 'Values' + OnClick = mnuPopGraphValuesClick + end + object mnuPopGraphFixed: TMenuItem + Caption = 'Fixed Date Range' + Visible = False + OnClick = mnuPopGraphFixedClick + end + object mnuPopGraphVertical: TMenuItem + Caption = 'Vertical Zoom' + OnClick = mnuPopGraphVerticalClick + end + object mnuPopGraphHorizontal: TMenuItem + Caption = 'Horizontal Zoom' + Visible = False + OnClick = mnuPopGraphHorizontalClick + end + object mnuPopGraphLines: TMenuItem + Caption = 'Lines' + Visible = False + OnClick = mnuPopGraphLinesClick + end + object mnuPopGraphDates: TMenuItem + Caption = 'Dates' + Visible = False + OnClick = mnuPopGraphDatesClick + end + object mnuPopGraphSort: TMenuItem + Caption = 'Sort by Type' + Visible = False + OnClick = mnuPopGraphSortClick + end + object mnuPopGraphClear: TMenuItem + Caption = 'Clear Background' + Visible = False + OnClick = mnuPopGraphClearClick + end + object mnuPopGraphGradient: TMenuItem + Caption = 'Gradient' + Visible = False + OnClick = mnuPopGraphGradientClick + end + object mnuPopGraphHints: TMenuItem + Caption = 'Hints' + Visible = False + end + object N2: TMenuItem + Caption = '-' + end + object mnuPopGraphCopy: TMenuItem + Caption = 'Copy' + ShortCut = 16451 + OnClick = mnuPopGraphCopyClick + end + object mnuPopGraphPrint: TMenuItem + Caption = 'Print...' + OnClick = mnuPopGraphPrintClick + end + object N3: TMenuItem + Caption = '-' + Visible = False + end + object mnumedsasgantt: TMenuItem + Caption = 'meds as gantt' + Checked = True + RadioItem = True + Visible = False + OnClick = mnumedsasganttClick + end + object mnumedsasganttvertheight: TMenuItem + Caption = 'meds as gantt + vert + height change' + RadioItem = True + Visible = False + OnClick = mnumedsasganttClick + end + object mnuPopGraphToday: TMenuItem + Caption = 'Reset Today...' + Visible = False + OnClick = mnuPopGraphTodayClick + end + object testcount1: TMenuItem + Caption = 'test count' + Visible = False + OnClick = testcount1Click + end + end + object calDateRange: TORDateRangeDlg + DateOnly = False + Instruction = 'Enter a date range -' + LabelStart = 'Begin Date' + LabelStop = 'End Date' + RequireTime = False + Format = 'mmm d,yy@hh:nn' + Left = 32 + end + object dlgDate: TORDateTimeDlg + FMDateTime = 3040806 + DateOnly = True + RequireTime = False + Left = 57 + end + object timHintPause: TTimer + Enabled = False + Interval = 100 + OnTimer = timHintPauseTimer + Left = 83 + end +end diff --git a/CPRS-Chart/fGraphs.pas b/CPRS-Chart/fGraphs.pas new file mode 100644 index 0000000..70d911f --- /dev/null +++ b/CPRS-Chart/fGraphs.pas @@ -0,0 +1,6324 @@ +unit fGraphs; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ExtCtrls, StdCtrls, ORCtrls, Menus, TeeProcs, TeEngine, Series, Chart, Math, + ComCtrls, GanttCh, ClipBrd, StrUtils, ORFn, ORDtTmRng, DateUtils, Printers, + OleServer, Variants, Word97, Word2000, ArrowCha, ORDtTm, uGraphs; + +type + TfrmGraphs = class(TForm) + btnChangeSettings: TButton; + btnClose: TButton; + btnGraphSelections: TButton; + bvlBottomLeft: TBevel; + bvlBottomRight: TBevel; + bvlTopLeft: TBevel; + bvlTopRight: TBevel; + calDateRange: TORDateRangeDlg; + cboDateRange: TORComboBox; + chartBase: TChart; + chartDatelineBottom: TChart; + chartDatelineTop: TChart; + chkDualViews: TCheckBox; + chkItemsBottom: TCheckBox; + chkItemsTop: TCheckBox; + dlgDate: TORDateTimeDlg; + lblDateRange: TLabel; + lblViewsBottom: TOROffsetLabel; + lblViewsTop: TOROffsetLabel; + lstAllTypes: TListBox; + lstCheck: TListBox; + lstData: TListBox; + lstDrugClass: TListBox; + lstItems: TListBox; + lstItemsTemp: TListBox; + lstMultiSpec: TListBox; + lstNonNumeric: TListBox; + lstScratchLab: TListBox; + lstScratchSwap: TListBox; + lstScratchTemp: TListBox; + lstSelCopyBottom: TListBox; + lstSelCopyTop: TListBox; + lstSpec1: TListBox; + lstSpec2: TListBox; + lstSpec3: TListBox; + lstSpec4: TListBox; + lstTemp: TListBox; + lstTempCheck: TListBox; + lstTestSpec: TListBox; + lstTypes: TListBox; + lstViews: TListBox; + lstZoomHistory: TListBox; + lvwItemsBottom: TListView; + lvwItemsTop: TListView; + mnumedsasgantt: TMenuItem; + mnumedsasganttvertheight: TMenuItem; + mnuPopGraph3D: TMenuItem; + mnuPopGraphClear: TMenuItem; + mnuPopGraphCopy: TMenuItem; + mnuPopGraphDates: TMenuItem; + mnuPopGraphDefineViews: TMenuItem; + mnuPopGraphDetails: TMenuItem; + mnuPopGraphDualViews: TMenuItem; + mnuPopGraphGradient: TMenuItem; + mnuPopGraphFixed: TMenuItem; + mnuPopGraphHints: TMenuItem; + mnuPopGraphHorizontal: TMenuItem; + mnuPopGraphIsolate: TMenuItem; + mnuPopGraphLegend: TMenuItem; + mnuPopGraphLines: TMenuItem; + mnuPopGraphPrint: TMenuItem; + mnuPopGraphRemove: TMenuItem; + mnuPopGraphReset: TMenuItem; + mnuPopGraphSeparate1: TMenuItem; + mnuPopGraphSort: TMenuItem; + mnuPopGraphSplit: TMenuItem; + mnuPopGraphStayOnTop: TMenuItem; + mnuPopGraphStuff: TPopupMenu; + mnuPopGraphSwap: TMenuItem; + mnuPopGraphToday: TMenuItem; + mnuPopGraphValues: TMenuItem; + mnuPopGraphVertical: TMenuItem; + mnuPopGraphZoomBack: TMenuItem; + N1: TMenuItem; + N2: TMenuItem; + N3: TMenuItem; + N4: TMenuItem; + pnlBlankBottom: TPanel; + pnlBlankTop: TPanel; + pnlBottom: TPanel; + pnlBottomRightPad: TPanel; + pnlData: TPanel; + pnlDatelineBottom: TPanel; + pnlDatelineBottomSpacer: TORAutoPanel; + pnlDatelineTop: TPanel; + pnlDatelineTopSpacer: TORAutoPanel; + pnlFooter: TPanel; + pnlHeader: TPanel; + pnlInfo: TORAutoPanel; + pnlItemsBottom: TPanel; + pnlItemsBottomInfo: TPanel; + pnlItemsTop: TPanel; + pnlItemsTopInfo: TPanel; + pnlMain: TPanel; + pnlScrollBottomBase: TPanel; + pnlScrollTopBase: TPanel; + pnlTemp: TPanel; + pnlTop: TPanel; + pnlTopRightPad: TPanel; + scrlBottom: TScrollBox; + scrlTop: TScrollBox; + serDatelineBottom: TGanttSeries; + serDatelineTop: TGanttSeries; + splGraphs: TSplitter; + splItemsBottom: TSplitter; + splItemsTop: TSplitter; + timHintPause: TTimer; + lstSelPrevTop: TListBox; + lstSelPrevBottom: TListBox; + lstComp: TListBox; + pnlViewsTopSpacer: TPanel; + cboViewsTop: TORComboBox; + pnlViewsTopSpacerRight: TPanel; + pnlViewsBottomSpacer: TPanel; + cboViewsBottom: TORComboBox; + pnlViewsBottomSpacerRight: TPanel; + testcount1: TMenuItem; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + + procedure btnCloseClick(Sender: TObject); + procedure btnChangeSettingsClick(Sender: TObject); + procedure btnGraphSelectionsClick(Sender: TObject); + + procedure chkDualViewsClick(Sender: TObject); + procedure chkItemsTopClick(Sender: TObject); + procedure chkItemsBottomClick(Sender: TObject); + + procedure mnuMedsasganttClick(Sender: TObject); + procedure mnuPopGraph3DClick(Sender: TObject); + procedure mnuPopGraphClearClick(Sender: TObject); + procedure mnuPopGraphCopyClick(Sender: TObject); + procedure mnuPopGraphDatesClick(Sender: TObject); + procedure mnuPopGraphDetailsClick(Sender: TObject); + procedure mnuPopGraphDualViewsClick(Sender: TObject); + procedure mnuPopGraphFixedClick(Sender: TObject); + procedure mnuPopGraphGradientClick(Sender: TObject); + procedure mnuPopGraphHintsClick(Sender: TObject); + procedure mnuPopGraphIsolateClick(Sender: TObject); + procedure mnuPopGraphLegendClick(Sender: TObject); + procedure mnuPopGraphLinesClick(Sender: TObject); + procedure mnuPopGraphPrintClick(Sender: TObject); + procedure mnuPopGraphRemoveClick(Sender: TObject); + procedure mnuPopGraphResetClick(Sender: TObject); + procedure mnuPopGraphSeparate1Click(Sender: TObject); + procedure mnuPopGraphStayOnTopClick(Sender: TObject); + procedure mnuPopGraphSortClick(Sender: TObject); + procedure mnuPopGraphSplitClick(Sender: TObject); + procedure mnuPopGraphStuffPopup(Sender: TObject); + procedure mnuPopGraphSwapClick(Sender: TObject); + procedure mnuPopGraphTodayClick(Sender: TObject); + procedure mnuPopGraphValuesClick(Sender: TObject); + procedure mnuPopGraphHorizontalClick(Sender: TObject); + procedure mnuPopGraphVerticalClick(Sender: TObject); + procedure mnuPopGraphZoomBackClick(Sender: TObject); + + procedure splGraphsMoved(Sender: TObject); + procedure splItemsBottomMoved(Sender: TObject); + procedure splItemsTopMoved(Sender: TObject); + + procedure GetSize; + procedure SetSize; + + procedure lvwItemsBottomClick(Sender: TObject); + procedure lvwItemsBottomColumnClick(Sender: TObject; Column: TListColumn); + procedure lvwItemsBottomCompare(Sender: TObject; Item1, + Item2: TListItem; Data: Integer; var Compare: Integer); + procedure lvwItemsTopClick(Sender: TObject); + procedure lvwItemsTopColumnClick(Sender: TObject; Column: TListColumn); + procedure lvwItemsTopCompare(Sender: TObject; Item1, Item2: TListItem; + Data: Integer; var Compare: Integer); + + procedure cboDateRangeChange(Sender: TObject); + procedure cboViewsBottomChange(Sender: TObject); + procedure cboViewsTopChange(Sender: TObject); + + procedure pnlScrollTopBaseResize(Sender: TObject); + + procedure chartBaseClickLegend(Sender: TCustomChart; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure chartBaseClickSeries(Sender: TCustomChart; Series: TChartSeries; + ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure chartBaseMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure chartBaseMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); + procedure serDatelineTopGetMarkText(Sender: TChartSeries; + ValueIndex: Integer; var MarkText: String); + + procedure ChartOnUndoZoom(Sender: TObject); + procedure ChartOnZoom(Sender: TObject); + procedure DisplayData(aSection: string); + procedure HideDates(aChart: TChart); + procedure SourcesDefault; + procedure StayOnTop; + + procedure timHintPauseTimer(Sender: TObject); + procedure ZoomUpdate; + procedure ZoomUpdateInfo(SmallTime, BigTime: TDateTime); + procedure ZoomTo(SmallTime, BigTime: TDateTime); + procedure lvwItemsTopChange(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure lvwItemsTopKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure lvwItemsBottomChange(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure testcount1Click(Sender: TObject); + procedure cboDateRangeDropDown(Sender: TObject); + procedure cboViewsTopDropDown(Sender: TObject); + procedure cboViewsTopDropDownClose(Sender: TObject); + procedure cboViewsBottomDropDown(Sender: TObject); + procedure cboViewsBottomDropDownClose(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure lvwItemsTopEnter(Sender: TObject); + procedure lvwItemsBottomEnter(Sender: TObject); + procedure chkItemsBottomEnter(Sender: TObject); + procedure cboViewsBottomEnter(Sender: TObject); + + private + { Private declarations } + FBSortAscending: boolean; + FBSortCol: integer; + FDate1: Double; + FDate2: Double; + FSortAscending: boolean; + FSortCol: integer; + + FActiveGraph: TChart; + FArrowKeys: boolean; + FBHighTime, FBLowTime: Double; + FCreate: boolean; + FFirstClick: boolean; + FFirstSwitch: boolean; + FGraphClick: TCustomChart; + FGraphSeries: TChartSeries; + FGraphValueIndex: integer; + FGraphSetting: TGraphSetting; + FGraphType: char; + FItemsSortedTop: boolean; + FItemsSortedBottom: boolean; + FMouseDown: boolean; + FMTimestamp: string; + FMToday: TFMDateTime; + FMyProfiles, FProfiles: TStringList; + FNonNumerics: boolean; // used with pnlItemsTop.Tag & pnlItemsBottom.Tag + FOnLegend: integer; + FOnSeries: integer; + FOnValue: integer; + FPrevEvent: string; + FRetainZoom: boolean; + FSources: TStrings; + FSourcesDefault: TStrings; + FTHighTime, FTLowTime: Double; + FWarning: boolean; + FX, FY: integer; + FYMinValue: Double; + FYMaxValue: Double; + + procedure AdjustTimeframe; + procedure AllTypeDate(aType, aTypeName, firstline, secondline: string; aDate, aDate2: double); + procedure AllDetails(aDate1, aDate2: TFMDateTime; aTempList: TStrings); + procedure AssignProfile(aProfile, aSection: string); + procedure AutoSelect(aListView: TListView); + procedure BaseResize(aScrollBox: TScrollBox); + procedure BottomAxis(aScrollBox: TScrollBox); + procedure ChangeStyle; + procedure ChartStyle(aChart: TChart); + procedure CheckProfile(var aProfile: string; var Updated: boolean); + procedure CheckToAddData(aListView: TListView; aSection, TypeToCheck: string); + procedure CreatePatientHeader(var HeaderList: TStringList; PageTitle, Warning, DateRange: string); + procedure DateRangeItems(oldestdate, newestdate: double; filenum: string); + procedure UpdateView(filename, filenum, itemnum, aString: string; aListView: TListView); + procedure DisplayType(itemtype, displayed: string); + procedure FillViews; + procedure FilterListView(oldestdate, newestdate: double); + procedure FixedDates(var adatetime, adatetime1: TDateTime); + procedure GetData(aString: string); + procedure HideGraphs(action: boolean); + procedure HighLow(fmtime, fmtime1: string; aChart: TChart; var adatetime, adatetime1: TDateTime); + procedure InactivateHint; + procedure ItemCheck(aListView: TListView; aItemName: string; + var aNum: integer; var aTypeItem: string); + procedure ItemsClick(Sender: TObject; aListView, aOtherListView: TListView; + aCheckBox: TCheckBox; aComboBox: TORComboBox; aList: TListBox; aSection: string); + procedure ItemDateRange(Sender: TCustomChart); + procedure LabData(aItemType, aItemName, aSection: string); + procedure LoadDateRange; + procedure LoadDisplayCheck(typeofitem: string; var updated: boolean); + procedure LoadType(itemtype, displayed: string); + procedure NextPointerStyle(aSeries: TChartSeries; aSerCnt: integer); + procedure OneDayTypeDetails(aTypeItem: string); + procedure RefUnits(aItem, aSpec: string; var low, high, units: string); + procedure ResetSpec(aListBox: TListBox; aItemNum, aNewItemNum, aNewItemName, aNewString: string); + procedure TempCheck(typeitem: string; var levelseq: double); + procedure SelCopy(aListView: TListView; aListBox: TListBox); + procedure SelReset(aListbox: TListBox; aListView: TListView); + procedure SelectItem(aListView: TListView; typeitem: string); + procedure SetProfile(aProfile, aName: string; aListView: TListView); + procedure SizeDates(aChart: TChart; aSmallTime, aBigTime: TDateTime); + procedure SizeTogether(onlylines, nolines, anylines: Boolean; aScroll: TScrollBox; + aChart: TChart; aPanel, aPanelBase: TPanel; portion: Double); + procedure ViewsChange(aListView: TListView; aComboBox: TORComboBox; aSection: string); + + procedure MakeDateline(section, aTitle, aFileType: string; aChart: TChart; graphtype: integer; + var bcnt, pcnt, gcnt, vcnt, acnt: integer); + procedure MakeSeparate(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string); + procedure MakeTogether(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string); + + procedure MakeAGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); + procedure MakeArrowSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); + procedure MakeBarSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); + procedure MakeGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); + procedure MakeLineSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt, aNonCnt: integer; multiline: boolean); + procedure MakeManyGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); // good one + procedure MakePointSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); + procedure MakeVisitGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); + procedure MakeWeightedArrowSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); + procedure MakeWeightedGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); + + function BPValue(aDateTime: TDateTime): string; + function DateRangeMultiItems(aOldDate, aNewDate: double; aMultiItem: string): boolean; + function DCName(aDCien: string): string; + function ExpandTax(profile: string): string; + function FileNameX(filenum: string): string; + function FMCorrectedDate(fmtime: string): string; + function GraphTypeNum(aType: string): integer; + function HSAbbrev(aType: string): boolean; + function InvVal(value: double): double; + function ItemName(filenum, itemnum: string): string; + function NextColor(aCnt: integer): TColor; + function PortionSize(lcnt, pcnt, gcnt, vcnt, bcnt, acnt: integer): double; + function SelectRef(aRef: string): string; + function StdDev(value, high, low: double): double; + function TypeIsDisplayed(itemtype: string): boolean; + function TypeIsLoaded(itemtype: string): boolean; + function Vfactor(aTitle: string): double; + function ValueText(Sender: TCustomChart; Series: TChartSeries; ValueIndex: Integer): string; + + public + { Public declarations } + procedure InitialData; + procedure Initialize; + procedure InitialRetain; + procedure LoadListView(aList: TStrings); + procedure SourceContext; + procedure ViewSelections; + procedure SetFontSize(FontSize: integer); + function FMToDateTime(FMDateTime: string): TDateTime; + end; + +var + frmGraphs: TfrmGraphs; + FHintWin: THintWindow; + FHintWinActive: boolean; + FHintStop: boolean; + +implementation + +uses fGraphSettings, fGraphProfiles, rGraphs, + ComObj, ActiveX, ShellAPI, fFrame, uCore, rCore, fRptBox, fReports, + uFormMonitor; + +{$R *.DFM} + +type + TGraphItem = class + public + Values: string; +end; + +procedure TfrmGraphs.FormCreate(Sender: TObject); +var + i: integer; + dfntype, listline, settings, settings1, t1, t2: string; + aList: TStrings; +begin + FMToday := DateTimeToFMDateTime(Date); + FHintWinActive := false; + FHintStop := false; + FNonNumerics := false; + FMouseDown := false; + FItemsSortedTop := false; + FItemsSortedBottom := false; + FRetainZoom := false; + FFirstClick := true; + FArrowKeys := false; + FCreate := true; + FGraphType := Char(32); + aList := TStringList.Create; + FastAssign(rpcGetGraphSettings, aList); + btnClose.Tag := 0; + if aList.Count < 1 then + begin + Screen.Cursor := crDefault; + showmessage('CPRS is not configured for graphing.'); + btnClose.Tag := 1; + FreeAndNil(aList); + Close; + Exit; + end; + t1 := aList[0]; t2 := aList[1]; // hint are current, t1 are personal, t2 public settings + if length(frmFrame.mnuToolsGraphing.Hint) > 0 then settings := frmFrame.mnuToolsGraphing.Hint + else if length(t1) > 0 then settings := t1 + else settings := t2; + SetPiece(settings, '|', 8, Piece(t2, '|', 8)); //?????????? + frmFrame.mnuToolsGraphing.Hint := settings; + settings1 := Piece(settings, '|', 1); + FSources := TStringList.Create; + FSourcesDefault := TStringList.Create; + FMyProfiles := TStringList.Create; + FProfiles := TStringList.Create; + FYMinValue := 0; + FYMaxValue := 0; + FTHighTime := 0; + FTLowTime := BIG_NUMBER; + FBHighTime := 0; + FBLowTime := BIG_NUMBER; + pnlInfo.Caption := TXT_INFO; + FOnLegend := BIG_NUMBER; + FOnSeries := BIG_NUMBER; + FOnValue := BIG_NUMBER; + FHintWin := THintWindow.Create(self); + FHintWin.Color := clInfoBk; + FHintWin.Canvas.Font.Color := clInfoBk; + FX := 0; FY :=0; + FastAssign(rpcGetTypes('0', false), lstAllTypes.Items); + for i := 0 to lstAllTypes.Items.Count - 1 do + begin + listline := lstAllTypes.Items[i]; + dfntype := UpperCase(Piece(listline, '^', 1)); + SetPiece(listline, '^', 1, dfntype); + lstAllTypes.Items[i] := listline; + end; + FGraphSetting := GraphSettingsInit(settings); + for i := 0 to BIG_NUMBER do + begin + dfntype := Piece(settings1, ';', i); + if length(dfntype) = 0 then break; + listline := dfntype + '^' + FileNameX(dfntype) + '^1'; + FSources.Add(listline); + FSourcesDefault.Add(listline); + end; + serDatelineTop.Active := false; + serDatelineBottom.Active := false; + chartDatelineTop.Gradient.EndColor := clGradientActiveCaption; + chartDatelineTop.Gradient.StartColor := clWindow; + chartDatelineBottom.Gradient.EndColor := clGradientActiveCaption; + chartDatelineBottom.Gradient.StartColor := clWindow; + LoadDateRange; + chkItemsTop.Checked := true; + chkItemsBottom.Checked := true; + FastAssign(rpcGetTestSpec, lstTestSpec.Items); + FillViews; + FreeAndNil(aList); +end; + +procedure TfrmGraphs.SourcesDefault; +var + i: integer; + dfntype, listline, settings, settings1, t1, t2: string; + aList: TStrings; +begin + aList := TStringList.Create; + FastAssign(rpcGetGraphSettings, aList); + t1 := aList[0]; t2 := aList[1]; // t1 are personal, t2 public settings + if length(frmFrame.mnuToolsGraphing.Hint) > 0 then settings := frmFrame.mnuToolsGraphing.Hint + else if length(t1) > 0 then settings := t1 + else settings := t2; + SetPiece(settings, '|', 8, Piece(t2, '|', 8)); + settings1 := Piece(settings, '|', 1); + FGraphSetting := GraphSettingsInit(settings); + for i := 0 to BIG_NUMBER do + begin + dfntype := Piece(settings1, ';', i); + if length(dfntype) = 0 then break; + listline := dfntype + '^' + FileNameX(dfntype) + '^1'; + FSourcesDefault.Add(listline); + end; + FreeAndNil(aList); +end; + +procedure TfrmGraphs.Initialize; +var + i: integer; + rptview1, rptview2, rptviews: string; +begin + InitialData; + SourceContext; + LoadListView(lstItems.Items); + if pnlMain.Tag > 0 then + begin + rptviews := MixedCase(rpcReportParams(pnlMain.Tag)); + if length(rptviews) > 1 then + begin + rptview1 := Piece(rptviews, '^', 1); + rptview2 := Piece(rptviews, '^', 2); + if length(rptview1) > 0 then + begin + for i := 0 to cboViewsTop.Items.Count - 1 do + if Piece(cboViewsTop.Items[i], '^', 2) = rptview1 then + begin + cboViewsTop.ItemIndex := i; + break; + end; + end; + if length(rptview2) > 0 then + begin + chkDualViews.Checked := true; + chkDualViewsClick(self); + for i := 0 to cboViewsBottom.Items.Count - 1 do + if Piece(cboViewsBottom.Items[i], '^', 2) = rptview2 then + begin + cboViewsBottom.ItemIndex := i; + break; + end; + end; + end; + end; + if cboViewsTop.ItemIndex > -1 then + cboViewsTopChange(self) + else + lvwItemsTopClick(self); + if cboViewsBottom.ItemIndex > -1 then + cboViewsbottomChange(self) + else + lvwItemsBottomClick(self); + if pnlMain.Tag > 0 then + begin + pnlMain.Tag := 0; + cboDateRangeChange(self); + if cboViewsTop.ItemIndex > -1 then + cboViewsTopChange(self) + else + lvwItemsTopClick(self); + if cboViewsBottom.ItemIndex > -1 then + cboViewsbottomChange(self) + else + lvwItemsBottomClick(self); + end; +end; + +procedure TfrmGraphs.InitialRetain; +//var + //i: integer; +begin + {// + allview=false + fullview=false + noview=true + go thru items + if selected + if view + noview=false + else + allview=false + + else + if view + allview=false + fullview=false + noview=false + else + // + if noview + // + if allview + // + if fullview + // + else //partial view + // + //} +end; + +procedure TfrmGraphs.FillViews; +var + i: integer; +begin + with cboViewsTop do + begin + Items.Clear; + Sorted := false; + lstTemp.Sorted := true; + FastAssign(rpcGetGraphProfiles('1', '0', 0), lstTemp.Items); + if lstTemp.Items.Count > 0 then + begin + for i := 0 to lstTemp.Items.Count - 1 do + Items.Add('-1^' + lstTemp.Items[i] + '^'); + end; + FastAssign(rpcGetGraphProfiles('1', '1', 0), lstTemp.Items); + if lstTemp.Items.Count > 0 then + begin + Items.Add(LLS_LINE); + for i := 0 to lstTemp.Items.Count - 1 do + Items.Add('-2^' + lstTemp.Items[i] + '^'); + end; + Items.Insert(0, '^^0'); + Items.Insert(1, '^